libhdf4-4.2.10/0000755000000000000000000000000012503554542010005 5ustar libhdf4-4.2.10/HDF_ALT/0000755000000000000000000000000012474643755011122 5ustar libhdf4-4.2.10/HDF_ALT/aclocal.m40000644000000000000000000124226412474643755012775 0ustar # generated automatically by aclocal 1.12.3 -*- Autoconf -*- # Copyright (C) 1996-2012 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_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-2012 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.12' 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.12.3], [], [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.12.3])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-2012 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], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997-2012 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-2012 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-2012 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], [{ # Autoconf 2.62 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. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _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. FIXME. This creates each '.P' file that we will # 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" ac_aux_dir="$ac_aux_dir"]) ]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996-2012 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. # 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.62])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. For more info, see: http://www.gnu.org/software/automake/manual/automake.html#Modernize-AM_INIT_AUTOMAKE-invocation]) 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_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([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: # # AC_SUBST([mkdir_p], ['$(MKDIR_P)']) # We need awk for the "check" target. 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 dnl Support for Objective C++ was only introduced in Autoconf 2.65, dnl but we still cater to Autoconf 2.62. m4_ifdef([AC_PROG_OBJCXX], [AC_PROVIDE_IFELSE([AC_PROG_OBJCXX], [_AM_DEPENDENCIES([OBJCXX])], [m4_define([AC_PROG_OBJCXX], m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])])dnl ]) _AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl dnl The 'parallel-tests' driver may need to know about EXEEXT, so add the dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro dnl 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 ]) 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-2012 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}" != 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-2012 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-2012 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 ] ) AU_DEFUN([jm_MAINTAINER_MODE], [AM_MAINTAINER_MODE]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001-2012 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 to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997-2012 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 supports --run. # If it does, 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 case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN(['missing' script is too old or missing]) fi ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001-2012 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])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996-2012 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) 2001-2012 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-2012 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-2012 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}']) m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar],, [pax],, [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' _am_tools=${am_cv_prog_tar_$1-$_am_tools} # Do not fold the above two line into one, because Tru64 sh and # Solaris sh will not grok spaces in the rhs of '-'. 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 /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 # libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 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) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 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.58])dnl We use AC_INCLUDES_DEFAULT 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_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _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 _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which 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 "X${COLLECT_NAMES+set}" != Xset; 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 # 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], [[!?.]$], [], [.]) )]) # _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: # # ='`$ECHO "$" | $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\\"\\\`\\\\\\"" ;; *) 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\\"\\\`\\\\\\"" ;; *) 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 $lt_write_fail = 0 && 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 ." 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 "$silent" = yes && 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 which 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 # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $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. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _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 "X${COLLECT_NAMES+set}" != Xset; 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) _LT_PROG_REPLACE_SHELLFNS 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' TIMESTAMP='$TIMESTAMP' 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 $_lt_result -eq 0; 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 $_lt_result -eq 0 && $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 "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; 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 "$lt_cv_ld_force_load" = "no"; 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 "$lt_cv_ld_force_load" = "yes"; 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*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; 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 "$lt_cv_apple_cc_single_mod" != "yes"; 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 "${lt_cv_aix_libpath+set}" = 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 which will find a shell with a builtin # printf (which 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], [ --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 "$GCC" = yes; 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 in which 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 "x$enable_libtool_lock" != xno && 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 which ABI we are using. 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 which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; 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* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. 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*) LD="${LD-ld} -m elf_i386" ;; powerpc64le-*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*) 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-*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*) 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 x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. 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*) 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 "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; 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 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" # 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 x"[$]$2" = xyes; 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 x"[$]$2" = xyes; 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; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # 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"; 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 $i != 17 # 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 "$cross_compiling" = yes; 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 #endif #include #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 -fvisbility=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 "x$enable_dlopen" != xyes; 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 ]) ;; *) 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 "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && 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 "x$lt_cv_dlopen_self" = xyes; 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 "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; 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 "$hard_links" = no; 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 in which 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 "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # 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 "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; 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 "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; 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_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 AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; 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` 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" else 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 "$host_cpu" = ia64; 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 # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.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}' else # 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' fi 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%'\''`; test $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} $libname${shared_ext}' 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 ;; 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' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; 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=yes 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 "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; 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 "$lt_cv_prog_gnu_ld" = yes; 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 ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-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 # Append ld.so.conf contents 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*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac 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 if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; 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 "$with_gnu_ld" = yes; 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=freebsd-elf 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 "$with_gnu_ld" = yes; 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 "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _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], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which 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 which 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 "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test "$GCC" = yes; 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 "$with_gnu_ld" = yes; 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 &1 /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 ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; 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) 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*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 ;; 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 case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) 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 "$lt_cv_path_NM" != "no"; 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 /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) 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 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 "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # 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 "$GCC" = yes; 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 "$host_cpu" = ia64; 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 # 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 -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$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 -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/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 # and D for any global 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};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print 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 con'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* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$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 "$pipe_works" = yes; 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_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_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 "$GXX" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; 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']) ;; 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 "$host_cpu" = ia64; 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 "$host_cpu" != ia64; 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) 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 "$GCC" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; 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']) ;; 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 "$host_cpu" = ia64; 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 ;; 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']) ;; 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) 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' ;; 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 which 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) 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 "$with_gnu_ld" = yes; 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 "$lt_use_gnu_ld_interface" = yes; 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 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 "$host_cpu" != ia64; 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 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 (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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 ;; 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 "$host_os" = linux-dietlibc; 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 "$tmp_diet" = no 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' ;; 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 "x$supports_anon_versioning" = xyes; 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 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 "x$supports_anon_versioning" = xyes; 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 can not *** 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no; 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 "$GCC" = yes && 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 "$host_cpu" = ia64; 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; 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,' if test "$GCC" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' 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~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 "$GCC" = yes; 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 $output_objdir/$soname = $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 $output_objdir/$soname = $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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes; 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 "$lt_cv_irix_exported_symbol" = yes; 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 ;; 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*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _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' ;; esac 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 _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "x$host_vendor" = xsequent; 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 "$GCC" = yes; 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 can NOT 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 "$GCC" = yes; 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 x$host_vendor = xsni; 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no && 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 "$enable_shared" = yes && test "$GCC" = yes; 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 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 which 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; 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 "$_lt_caught_CXX_error" != yes; 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 "$GXX" = yes; 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 "$GXX" = yes; 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 "$with_gnu_ld" = yes; 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 "$host_cpu" = ia64; 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 # need to do runtime linking. 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 ;; 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,' if test "$GXX" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach 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~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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) ;; 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 ;; gnu*) ;; 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 $output_objdir/$soname = $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 "$GXX" = yes; 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 $output_objdir/$soname = $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 $with_gnu_ld = no; 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 "$GXX" = yes; then if test $with_gnu_ld = no; 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 "$GXX" = yes; then if test "$with_gnu_ld" = no; 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) 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 "x$supports_anon_versioning" = xyes; 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 ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 $LDFLAGS $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 -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 $LDFLAGS $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 -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 can NOT 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no && 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 "$_lt_caught_CXX_error" != yes 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 ${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 ])# _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 $p = "-L" || test $p = "-R"; 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 "$pre_test_object_deps_done" = no; 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 "$pre_test_object_deps_done" = no; 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)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; 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 "X$F77" = "Xno"; 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 "$_lt_disable_F77" != yes; 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "$_lt_disable_F77" != yes 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 "X$FC" = "Xno"; 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 "$_lt_disable_FC" != yes; 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "$_lt_disable_FC" != yes 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 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 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 "x${GCJFLAGS+set}" = xset || 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 $lt_ac_count -gt 10 && 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], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) 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_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which 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 # Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 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 7 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_SET_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_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=default]) test -z "$pic_mode" && 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], []) 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])]) # ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 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 ]) # ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 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 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) # lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 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])]) libhdf4-4.2.10/HDF_ALT/configure0000755000000000000000000313466112474643755013047 0ustar #! /bin/sh # From configure.ac Id: configure.ac 6079 2014-02-08 00:29:03Z bmribler . # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for HDF 4.2.10. # # Report bugs to . # # # 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 help@hdfgroup.org $0: about your system, including any error possibly output $0: before this message. Then install a modern shell, or $0: manually run the script under such a shell if you do $0: 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'" SHELL=${CONFIG_SHELL-/bin/sh} test -n "$DJDIR" || exec 7<&0 &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='HDF' PACKAGE_TARNAME='hdf' PACKAGE_VERSION='4.2.10' PACKAGE_STRING='HDF 4.2.10' PACKAGE_BUGREPORT='help@hdfgroup.org' PACKAGE_URL='' ac_unique_file="hdf/src/atom.c" ac_default_prefix=`pwd`/hdf4 # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS DEPRECATED_SYMBOLS F77_VERSION CC_VERSION HDF_BUILD_SHARED_FALSE HDF_BUILD_SHARED_TRUE SETX CONFIG_MODE CONFIG_USER CONFIG_DATE H4_VERSION HDF_BUILD_XDR_FALSE HDF_BUILD_XDR_TRUE BUILD_SHARED_SZIP_CONDITIONAL_FALSE BUILD_SHARED_SZIP_CONDITIONAL_TRUE SZIP_INFO LL_PATH USE_COMP_SZIP CXXCPP OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR DLLTOOL OBJDUMP NM ac_ct_DUMPBIN DUMPBIN LD FGREP EGREP GREP SED LIBTOOL LT_STATIC_EXEC STATIC_EXEC UNAME_INFO enable_static enable_shared SHARED_EXTENSION STATIC_SHARED TBL NEQN DIFF LEX YACC AR LN_S BUILD_FORTRAN HDF_BUILD_FORTRAN_FALSE HDF_BUILD_FORTRAN_TRUE FLIBS ac_ct_F77 FFLAGS F77 am__fastdepCXX_FALSE am__fastdepCXX_TRUE CXXDEPMODE ac_ct_CXX CXXFLAGS CXX CPP am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC BUILD_NETCDF HDF_BUILD_NETCDF_FALSE HDF_BUILD_NETCDF_TRUE TEST_FORTRAN_NETCDF host_os host_vendor host_cpu host build_os build_vendor build_cpu build MAINT MAINTAINER_MODE_FALSE MAINTAINER_MODE_TRUE 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 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' ac_subst_files='' ac_user_opts=' enable_option_checking enable_maintainer_mode enable_netcdf enable_dependency_tracking enable_fortran enable_shared enable_static with_pic enable_fast_install with_gnu_ld with_sysroot enable_libtool_lock enable_static_exec with_fnord with_zlib with_jpeg with_szlib enable_hdf4_xdr enable_production enable_deprecated_symbols ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP CXX CXXFLAGS CCC F77 FFLAGS CXXCPP' # 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 HDF 4.2.10 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/hdf] --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 HDF 4.2.10:";; 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-maintainer-mode enable make rules and dependencies not useful (and sometimes confusing) to the casual installer --enable-netcdf Build HDF4 versions of NetCDF APIs (version 2.3.2) [default=yes] --enable-dependency-tracking do not reject slow dependency extractors --disable-dependency-tracking speeds up one-time build --enable-fortran Build Fortran into library [default=yes] --enable-shared[=PKGS] build shared libraries [default=no] --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) --enable-static-exec Install only statically linked executables [default=no] --enable-hdf4-xdr Build xdr library from code in HDF4 source. Not supported for 64 bit mode. [default="no"] --enable-production Determines how to run the compiler. --enable-deprecated-symbols Enable deprecated public API symbols [default=yes] 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-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). For the following --with-xxx options, you can specify where the header files and libraries are in two different ways: --with-xxx=INC,LIB - Specify individually the include directory and library directory separated by a comma --with-xxx=DIR - Specify only the directory which contains the include/ and lib/ subdirectories --with-zlib=DIR Use zlib library [default=yes] --with-jpeg=DIR Use jpeg library [default=yes] --with-szlib=DIR Use szlib library [default=no] Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor CXX C++ compiler command CXXFLAGS C++ compiler flags F77 Fortran 77 compiler command FFLAGS Fortran 77 compiler flags CXXCPP C++ preprocessor 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 . _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 HDF configure 4.2.10 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_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_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_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_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_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 declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #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_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_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_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $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 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## -------------------------------- ## ## Report this to help@hdfgroup.org ## ## -------------------------------- ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $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 eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_mongrel # 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 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 HDF $as_me 4.2.10, 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 # 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 ac_aux_dir= for ac_dir in bin "$srcdir"/bin; 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 bin \"$srcdir\"/bin" "$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. ac_config_headers="$ac_config_headers hdf/src/h4config.h" ## AM_INIT_AUTOMAKE takes a list of options that should be applied to ## every Makefile.am when automake is run. am__api_version='1.12' # 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 case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " 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}" != 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 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='hdf' VERSION='4.2.10' 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: # # mkdir_p='$(MKDIR_P)' # We need awk for the "check" target. 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}' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' ## AM_MAINTAINER_MODE turns off "rebuild rules" that contain dependencies ## for Makefiles, configure, etc. If AM_MAINTAINER_MODE ## is *not* included here, these files will be rebuilt if out of date. ## This is a problem because if users try to build on a machine with ## the wrong versions of autoconf and automake, these files will be ## rebuilt with the wrong versions and bad things can happen. ## Also, CVS doesn't preserve dependencies between timestamps, so ## Makefiles will often think rebuilding needs to occur when it doesn't. ## Developers should './configure --enable-maintainer-mode' to turn on ## rebuild rules. { $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=no 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 ## ---------------------------------------------------------------------- ## Set prefix default (install directory) to a directory in the build area. ## This allows multiple src-dir builds within one host. ## Run post processing on files created by configure. ## src/h4config.h: ## libhdf4.settings: ## Remove all lines begun with "#" which are generated by CONDITIONAL's of ## configure. ac_config_commands="$ac_config_commands h4config" ## ====================================================================== ## Information on the package ## ====================================================================== ## Dump all shell variables values. { $as_echo "$as_me:${as_lineno-$LINENO}: checking shell variables initial values" >&5 $as_echo_n "checking shell variables initial values... " >&6; } set >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5 $as_echo "done" >&6; } # 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 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if basename works" >&5 $as_echo_n "checking if basename works... " >&6; } BASENAME_TEST="`basename /foo/bar/baz/qux/basename_works`" if test $BASENAME_TEST != "basename_works"; then as_fn_error $? "basename program doesn't work" "$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 if xargs works" >&5 $as_echo_n "checking if xargs works... " >&6; } XARGS_TEST="`echo /foo/bar/baz/qux/xargs_works | xargs basename`" if test $XARGS_TEST != "xargs_works"; then as_fn_error $? "xargs program doesn't work" "$LINENO" 5 else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi ## Source any special files that we need. These files normally aren't ## present but can be used by the maintainers to fine tune things like ## turning on debug or profiling flags for the compiler. The search order ## is: ## ## CPU-VENDOR-OS ## VENDOR-OS ## CPU-OS ## CPU-VENDOR ## OS ## VENDOR ## CPU ## ## If the `OS' ends with a version number then remove it. For instance, ## `freebsd3.1' would become `freebsd' ## case "$host_os" in aix4.*) host_os_novers="aix4.x" ;; aix5.*) host_os_novers="aix5.x" ;; darwin10.*) host_os_novers="darwin10.x" ;; darwin11.*) host_os_novers="darwin11.x" ;; darwin12.*) host_os_novers="darwin12.x" ;; freebsd*) host_os_novers="freebsd" ;; solaris2.*) host_os_novers="solaris2.x" ;; *) host_os_novers="$host_os" ;; esac host_config="none" for f in $host_cpu-$host_vendor-$host_os \ $host_cpu-$host_vendor-$host_os_novers \ $host_vendor-$host_os \ $host_vendor-$host_os_novers \ $host_cpu-$host_os \ $host_cpu-$host_os_novers \ $host_cpu-$host_vendor \ $host_os \ $host_os_novers \ $host_vendor \ $host_cpu ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for config $f" >&5 $as_echo_n "checking for config $f... " >&6; } if test -f "$srcdir/config/$f"; then host_config=$srcdir/config/$f { $as_echo "$as_me:${as_lineno-$LINENO}: result: found" >&5 $as_echo "found" >&6; } break fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } done if test "X$host_config" != "Xnone"; then CC_BASENAME="`echo $CC | cut -f1 -d' ' | xargs basename 2>/dev/null`" F77_BASENAME="`echo $F77 | cut -f1 -d' ' | xargs basename 2>/dev/null`" CXX_BASENAME="`echo $CXX | cut -f1 -d' ' | xargs basename 2>/dev/null`" . $host_config fi ## ====================================================================== ## Checks for NetCDF-2.3.2 support ## ====================================================================== # We disable Fortran netCDF APIs and their testing when --disable-netcdf is used. # Let's define a proper variable to be used in mfhdf/testfortran.sh.in to run # the netCDF Fortran APIs test program "ftest". TEST_FORTRAN_NETCDF="yes" # Check whether --enable-netcdf was given. if test "${enable_netcdf+set}" = set; then : enableval=$enable_netcdf; else enableval="yes" fi case "$enableval" in yes) BUILD_NETCDF="yes" $as_echo "#define HAVE_NETCDF 1" >>confdefs.h ;; no) BUILD_NETCDF="no" TEST_FORTRAN_NETCDF="no" ;; esac if test "X$BUILD_NETCDF" = "Xyes"; then HDF_BUILD_NETCDF_TRUE= HDF_BUILD_NETCDF_FALSE='#' else HDF_BUILD_NETCDF_TRUE='#' HDF_BUILD_NETCDF_FALSE= fi ## ====================================================================== ## Checks for programs ## ====================================================================== { $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 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 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 #include 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 DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # 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 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 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 to if __STDC__ is defined, since # 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 #else # include #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 _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 to if __STDC__ is defined, since # 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 #else # include #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 _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 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 # Check whether --enable-fortran was given. if test "${enable_fortran+set}" = set; then : enableval=$enable_fortran; else enableval="yes" fi case "$enableval" in yes) BUILD_FORTRAN="yes" 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 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 how to get verbose linking output from $F77" >&5 $as_echo_n "checking how to get verbose linking output from $F77... " >&6; } if ${ac_cv_prog_f77_v+:} false; then : $as_echo_n "(cached) " >&6 else cat > conftest.$ac_ext <<_ACEOF program main end _ACEOF if ac_fn_f77_try_compile "$LINENO"; then : ac_cv_prog_f77_v= # Try some options frequently used verbose output for ac_verb in -v -verbose --verbose -V -\#\#\#; do cat > conftest.$ac_ext <<_ACEOF program main end _ACEOF # Compile and link our simple test program by passing a flag (argument # 1 to this macro) to the Fortran compiler in order to get # "verbose" output that we can then parse for the Fortran linker # flags. ac_save_FFLAGS=$FFLAGS FFLAGS="$FFLAGS $ac_verb" eval "set x $ac_link" shift $as_echo "$as_me:${as_lineno-$LINENO}: $*" >&5 # gfortran 4.3 outputs lines setting COLLECT_GCC_OPTIONS, COMPILER_PATH, # LIBRARY_PATH; skip all such settings. ac_f77_v_output=`eval $ac_link 5>&1 2>&1 | sed '/^Driving:/d; /^Configured with:/d; '"/^[_$as_cr_Letters][_$as_cr_alnum]*=/d"` $as_echo "$ac_f77_v_output" >&5 FFLAGS=$ac_save_FFLAGS rm -rf conftest* # On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where # /foo, /bar, and /baz are search directories for the Fortran linker. # Here, we change these into -L/foo -L/bar -L/baz (and put it first): ac_f77_v_output="`echo $ac_f77_v_output | grep 'LPATH is:' | sed 's|.*LPATH is\(: *[^ ]*\).*|\1|;s|: */| -L/|g'` $ac_f77_v_output" # FIXME: we keep getting bitten by quoted arguments; a more general fix # that detects unbalanced quotes in FLIBS should be implemented # and (ugh) tested at some point. case $ac_f77_v_output in # With xlf replace commas with spaces, # and remove "-link" and closing parenthesis. *xlfentry*) ac_f77_v_output=`echo $ac_f77_v_output | sed ' s/,/ /g s/ -link / /g s/) *$// ' ` ;; # With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted # $LIBS confuse us, and the libraries appear later in the output anyway). *mGLOB_options_string*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/"-mGLOB[^"]*"/ /g'` ;; # Portland Group compiler has singly- or doubly-quoted -cmdline argument # Singly-quoted arguments were reported for versions 5.2-4 and 6.0-4. # Doubly-quoted arguments were reported for "PGF90/x86 Linux/x86 5.0-2". *-cmdline\ * | *-ignore\ * | *-def\ *) ac_f77_v_output=`echo $ac_f77_v_output | sed "\ s/-cmdline *'[^']*'/ /g; s/-cmdline *\"[^\"]*\"/ /g s/-ignore *'[^']*'/ /g; s/-ignore *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; # If we are using fort77 (the f2c wrapper) then filter output and delete quotes. *fort77*f2c*gcc*) ac_f77_v_output=`echo "$ac_f77_v_output" | sed -n ' /:[ ]\+Running[ ]\{1,\}"gcc"/{ /"-c"/d /[.]c"*/d s/^.*"gcc"/"gcc"/ s/"//gp }'` ;; # If we are using Cray Fortran then delete quotes. *cft90*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/"//g'` ;; esac # look for -l* and *.a constructs in the output for ac_arg in $ac_f77_v_output; do case $ac_arg in [\\/]*.a | ?:[\\/]*.a | -[lLRu]*) ac_cv_prog_f77_v=$ac_verb break 2 ;; esac done done if test -z "$ac_cv_prog_f77_v"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot determine how to obtain linking information from $F77" >&5 $as_echo "$as_me: WARNING: cannot determine how to obtain linking information from $F77" >&2;} fi else { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: compilation failed" >&5 $as_echo "$as_me: WARNING: compilation failed" >&2;} 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_v" >&5 $as_echo "$ac_cv_prog_f77_v" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 libraries of $F77" >&5 $as_echo_n "checking for Fortran 77 libraries of $F77... " >&6; } if ${ac_cv_f77_libs+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$FLIBS" != "x"; then ac_cv_f77_libs="$FLIBS" # Let the user override the test. else cat > conftest.$ac_ext <<_ACEOF program main end _ACEOF # Compile and link our simple test program by passing a flag (argument # 1 to this macro) to the Fortran compiler in order to get # "verbose" output that we can then parse for the Fortran linker # flags. ac_save_FFLAGS=$FFLAGS FFLAGS="$FFLAGS $ac_cv_prog_f77_v" eval "set x $ac_link" shift $as_echo "$as_me:${as_lineno-$LINENO}: $*" >&5 # gfortran 4.3 outputs lines setting COLLECT_GCC_OPTIONS, COMPILER_PATH, # LIBRARY_PATH; skip all such settings. ac_f77_v_output=`eval $ac_link 5>&1 2>&1 | sed '/^Driving:/d; /^Configured with:/d; '"/^[_$as_cr_Letters][_$as_cr_alnum]*=/d"` $as_echo "$ac_f77_v_output" >&5 FFLAGS=$ac_save_FFLAGS rm -rf conftest* # On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where # /foo, /bar, and /baz are search directories for the Fortran linker. # Here, we change these into -L/foo -L/bar -L/baz (and put it first): ac_f77_v_output="`echo $ac_f77_v_output | grep 'LPATH is:' | sed 's|.*LPATH is\(: *[^ ]*\).*|\1|;s|: */| -L/|g'` $ac_f77_v_output" # FIXME: we keep getting bitten by quoted arguments; a more general fix # that detects unbalanced quotes in FLIBS should be implemented # and (ugh) tested at some point. case $ac_f77_v_output in # With xlf replace commas with spaces, # and remove "-link" and closing parenthesis. *xlfentry*) ac_f77_v_output=`echo $ac_f77_v_output | sed ' s/,/ /g s/ -link / /g s/) *$// ' ` ;; # With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted # $LIBS confuse us, and the libraries appear later in the output anyway). *mGLOB_options_string*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/"-mGLOB[^"]*"/ /g'` ;; # Portland Group compiler has singly- or doubly-quoted -cmdline argument # Singly-quoted arguments were reported for versions 5.2-4 and 6.0-4. # Doubly-quoted arguments were reported for "PGF90/x86 Linux/x86 5.0-2". *-cmdline\ * | *-ignore\ * | *-def\ *) ac_f77_v_output=`echo $ac_f77_v_output | sed "\ s/-cmdline *'[^']*'/ /g; s/-cmdline *\"[^\"]*\"/ /g s/-ignore *'[^']*'/ /g; s/-ignore *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; # If we are using fort77 (the f2c wrapper) then filter output and delete quotes. *fort77*f2c*gcc*) ac_f77_v_output=`echo "$ac_f77_v_output" | sed -n ' /:[ ]\+Running[ ]\{1,\}"gcc"/{ /"-c"/d /[.]c"*/d s/^.*"gcc"/"gcc"/ s/"//gp }'` ;; # If we are using Cray Fortran then delete quotes. *cft90*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/"//g'` ;; esac ac_cv_f77_libs= # Save positional arguments (if any) ac_save_positional="$@" set X $ac_f77_v_output while test $# != 1; do shift ac_arg=$1 case $ac_arg in [\\/]*.a | ?:[\\/]*.a) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi ;; -bI:*) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else if test "$ac_compiler_gnu" = yes; then for ac_link_opt in $ac_arg; do ac_cv_f77_libs="$ac_cv_f77_libs -Xlinker $ac_link_opt" done else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi fi ;; # Ignore these flags. -lang* | -lcrt*.o | -lc | -lgcc* | -lSystem | -libmil | -little \ |-LANG:=* | -LIST:* | -LNO:* | -link) ;; -lkernel32) case $host_os in *cygwin*) ;; *) ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" ;; esac ;; -[LRuYz]) # These flags, when seen by themselves, take an argument. # We remove the space between option and argument and re-iterate # unless we find an empty arg or a new option (starting with -) case $2 in "" | -*);; *) ac_arg="$ac_arg$2" shift; shift set X $ac_arg "$@" ;; esac ;; -YP,*) for ac_j in `$as_echo "$ac_arg" | sed -e 's/-YP,/-L/;s/:/ -L/g'`; do ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_j" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_arg="$ac_arg $ac_j" ac_cv_f77_libs="$ac_cv_f77_libs $ac_j" fi done ;; -[lLR]*) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi ;; -zallextract*| -zdefaultextract) ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" ;; # Ignore everything else. esac done # restore positional arguments set X $ac_save_positional; shift # We only consider "LD_RUN_PATH" on Solaris systems. If this is seen, # then we insist that the "run path" must be an absolute path (i.e. it # must begin with a "/"). case `(uname -sr) 2>/dev/null` in "SunOS 5"*) ac_ld_run_path=`$as_echo "$ac_f77_v_output" | sed -n 's,^.*LD_RUN_PATH *= *\(/[^ ]*\).*$,-R\1,p'` test "x$ac_ld_run_path" != x && if test "$ac_compiler_gnu" = yes; then for ac_link_opt in $ac_ld_run_path; do ac_cv_f77_libs="$ac_cv_f77_libs -Xlinker $ac_link_opt" done else ac_cv_f77_libs="$ac_cv_f77_libs $ac_ld_run_path" fi ;; esac fi # test "x$[]_AC_LANG_PREFIX[]LIBS" = "x" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_libs" >&5 $as_echo "$ac_cv_f77_libs" >&6; } FLIBS="$ac_cv_f77_libs" 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}: checking for dummy main to link with Fortran 77 libraries" >&5 $as_echo_n "checking for dummy main to link with Fortran 77 libraries... " >&6; } if ${ac_cv_f77_dummy_main+:} false; then : $as_echo_n "(cached) " >&6 else ac_f77_dm_save_LIBS=$LIBS LIBS="$LIBS $FLIBS" ac_fortran_dm_var=F77_DUMMY_MAIN 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 # First, try linking without a dummy main: cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_fortran_dummy_main=none else ac_cv_fortran_dummy_main=unknown fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test $ac_cv_fortran_dummy_main = unknown; then for ac_func in MAIN__ MAIN_ __main MAIN _MAIN __MAIN main_ main__ _main; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define $ac_fortran_dm_var $ac_func #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_fortran_dummy_main=$ac_func; break fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi 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_cv_f77_dummy_main=$ac_cv_fortran_dummy_main rm -rf conftest* LIBS=$ac_f77_dm_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_dummy_main" >&5 $as_echo "$ac_cv_f77_dummy_main" >&6; } F77_DUMMY_MAIN=$ac_cv_f77_dummy_main if test "$F77_DUMMY_MAIN" != unknown; then : if test $F77_DUMMY_MAIN != none; then cat >>confdefs.h <<_ACEOF #define F77_DUMMY_MAIN $F77_DUMMY_MAIN _ACEOF if test "x$ac_cv_fc_dummy_main" = "x$ac_cv_f77_dummy_main"; then $as_echo "#define FC_DUMMY_MAIN_EQ_F77 1" >>confdefs.h fi 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 $? "linking to Fortran libraries from C fails 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 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 name-mangling scheme" >&5 $as_echo_n "checking for Fortran 77 name-mangling scheme... " >&6; } if ${ac_cv_f77_mangling+:} false; then : $as_echo_n "(cached) " >&6 else cat > conftest.$ac_ext <<_ACEOF subroutine foobar() return end subroutine foo_bar() return end _ACEOF if ac_fn_f77_try_compile "$LINENO"; then : mv conftest.$ac_objext cfortran_test.$ac_objext ac_save_LIBS=$LIBS LIBS="cfortran_test.$ac_objext $LIBS $FLIBS" 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_success=no for ac_foobar in foobar FOOBAR; do for ac_underscore in "" "_"; do ac_func="$ac_foobar$ac_underscore" 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 $ac_func (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return $ac_func (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_success=yes; break 2 fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done done 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 "$ac_success" = "yes"; then case $ac_foobar in foobar) ac_case=lower ac_foo_bar=foo_bar ;; FOOBAR) ac_case=upper ac_foo_bar=FOO_BAR ;; 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 ac_success_extra=no for ac_extra in "" "_"; do ac_func="$ac_foo_bar$ac_underscore$ac_extra" 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 $ac_func (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return $ac_func (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_success_extra=yes; break fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done 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 "$ac_success_extra" = "yes"; then ac_cv_f77_mangling="$ac_case case" if test -z "$ac_underscore"; then ac_cv_f77_mangling="$ac_cv_f77_mangling, no underscore" else ac_cv_f77_mangling="$ac_cv_f77_mangling, underscore" fi if test -z "$ac_extra"; then ac_cv_f77_mangling="$ac_cv_f77_mangling, no extra underscore" else ac_cv_f77_mangling="$ac_cv_f77_mangling, extra underscore" fi else ac_cv_f77_mangling="unknown" fi else ac_cv_f77_mangling="unknown" fi LIBS=$ac_save_LIBS rm -rf conftest* rm -f cfortran_test* 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 compile a simple Fortran program See \`config.log' for more details" "$LINENO" 5; } fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_mangling" >&5 $as_echo "$ac_cv_f77_mangling" >&6; } 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 case $ac_cv_f77_mangling in "lower case, no underscore, no extra underscore") $as_echo "#define F77_FUNC(name,NAME) name" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) name" >>confdefs.h ;; "lower case, no underscore, extra underscore") $as_echo "#define F77_FUNC(name,NAME) name" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) name ## _" >>confdefs.h ;; "lower case, underscore, no extra underscore") $as_echo "#define F77_FUNC(name,NAME) name ## _" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) name ## _" >>confdefs.h ;; "lower case, underscore, extra underscore") $as_echo "#define F77_FUNC(name,NAME) name ## _" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) name ## __" >>confdefs.h ;; "upper case, no underscore, no extra underscore") $as_echo "#define F77_FUNC(name,NAME) NAME" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) NAME" >>confdefs.h ;; "upper case, no underscore, extra underscore") $as_echo "#define F77_FUNC(name,NAME) NAME" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) NAME ## _" >>confdefs.h ;; "upper case, underscore, no extra underscore") $as_echo "#define F77_FUNC(name,NAME) NAME ## _" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) NAME ## _" >>confdefs.h ;; "upper case, underscore, extra underscore") $as_echo "#define F77_FUNC(name,NAME) NAME ## _" >>confdefs.h $as_echo "#define F77_FUNC_(name,NAME) NAME ## __" >>confdefs.h ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unknown Fortran name-mangling scheme" >&5 $as_echo "$as_me: WARNING: unknown Fortran name-mangling scheme" >&2;} ;; 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 if test "X$F77" = "X"; then BUILD_FORTRAN="no" fi ;; no) BUILD_FORTRAN="no" F77="no" ;; esac if test "X$BUILD_FORTRAN" = "Xyes"; then HDF_BUILD_FORTRAN_TRUE= HDF_BUILD_FORTRAN_FALSE='#' else HDF_BUILD_FORTRAN_TRUE='#' HDF_BUILD_FORTRAN_FALSE= fi ## ------------------------------------------------------------------------- ## Build static libraries by default. Furthermore, fortran shared libraries ## are unsupported. Disallow a user from enabling both shared libraries and ## fortran. if test "X${enable_shared}" != "Xyes"; then enable_shared="no" fi if test "X${enable_shared}" = "Xyes"; then if test "X${BUILD_FORTRAN}" = "Xyes"; then as_fn_error $? "Cannot build shared fortran libraries. Please configure with --disable-fortran flag." "$LINENO" 5 fi fi { $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 for ac_prog in ar xar 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_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_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 test -n "$AR" || AR=":" for ac_prog in 'bison -y' byacc yacc 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_YACC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$YACC"; then ac_cv_prog_YACC="$YACC" # 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_YACC="$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 YACC=$ac_cv_prog_YACC if test -n "$YACC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $YACC" >&5 $as_echo "$YACC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$YACC" && break done test -n "$YACC" || YACC="none" if test "$YACC" = "none"; then as_fn_error $? "cannot find yacc utility" "$LINENO" 5 fi for ac_prog in flex lex 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_LEX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LEX"; then ac_cv_prog_LEX="$LEX" # 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_LEX="$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 LEX=$ac_cv_prog_LEX if test -n "$LEX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LEX" >&5 $as_echo "$LEX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$LEX" && break done test -n "$LEX" || LEX="none" if test "$LEX" = "none"; then as_fn_error $? "cannot find lex utility" "$LINENO" 5 fi # Extract the first word of "diff", so it can be a program name with args. set dummy diff; 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_DIFF+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DIFF"; then ac_cv_prog_DIFF="$DIFF" # 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_DIFF="diff -w" $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 DIFF=$ac_cv_prog_DIFF if test -n "$DIFF"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DIFF" >&5 $as_echo "$DIFF" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi # Extract the first word of "makeinfo", so it can be a program name with args. set dummy makeinfo; 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_MAKEINFO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MAKEINFO"; then ac_cv_prog_MAKEINFO="$MAKEINFO" # 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_MAKEINFO="makeinfo" $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 MAKEINFO=$ac_cv_prog_MAKEINFO if test -n "$MAKEINFO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAKEINFO" >&5 $as_echo "$MAKEINFO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi # Extract the first word of "neqn", so it can be a program name with args. set dummy neqn; 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_NEQN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NEQN"; then ac_cv_prog_NEQN="$NEQN" # 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_NEQN="neqn" $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 NEQN=$ac_cv_prog_NEQN if test -n "$NEQN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NEQN" >&5 $as_echo "$NEQN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi # Extract the first word of "tbl", so it can be a program name with args. set dummy tbl; 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_TBL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$TBL"; then ac_cv_prog_TBL="$TBL" # 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_TBL="tbl" $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 TBL=$ac_cv_prog_TBL if test -n "$TBL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TBL" >&5 $as_echo "$TBL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi UNAME_INFO=`uname -a` STATIC_EXEC=no ## ====================================================================== ## Libtool initialization ## ====================================================================== 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.2' macro_revision='1.3337' 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 "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; 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 "$with_gnu_ld" = yes; 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 &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 &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 case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) 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 "$lt_cv_path_NM" != "no"; 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 /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) 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; } # 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; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # 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"; 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 $i != 17 # 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"} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5 $as_echo_n "checking whether the shell understands some XSI constructs... " >&6; } # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5 $as_echo "$xsi_shell" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5 $as_echo_n "checking whether the shell understands \"+=\"... " >&6; } lt_shell_append=no ( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5 $as_echo "$lt_shell_append" >&6; } 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 "$GCC" != yes; then reload_cmds=false fi ;; darwin*) if test "$GCC" = yes; 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 # which 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. # func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin. if ( test "$lt_cv_nm_interface" = "BSD nm" && 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 ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; 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) 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*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 ;; 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 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "$ac_status" -eq 0; 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 "$ac_status" -ne 0; 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 "x$lt_cv_ar_at_file" = xno; 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 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 "$host_cpu" = ia64; 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 # 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 -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$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 -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/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 # and D for any global 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};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print 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 con'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* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$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 "$pipe_works" = yes; 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 "$GCC" = yes; 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; } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test "x$enable_libtool_lock" != xno && 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 which ABI we are using. 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 which ABI we are using. 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 "$lt_cv_prog_gnu_ld" = yes; 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* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. 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*) LD="${LD-ld} -m elf_i386" ;; powerpc64le-*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*) 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-*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*) 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. 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*) 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 "x$lt_cv_path_mainfest_tool" != xyes; 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 $_lt_result -eq 0; 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 $_lt_result -eq 0 && $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 "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; 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 "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac { $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 #include #include #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 _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 _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 #include #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 # Set options enable_dlopen=yes # 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=no fi enable_win32_dll=no # 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 --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=default fi test -z "$pic_mode" && pic_mode=default # 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 # 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 "X${COLLECT_NAMES+set}" != Xset; 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 for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` # 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* if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; 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" # 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 x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; 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 "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; 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' ;; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; 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' ;; 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) 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' ;; 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 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_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' ;; *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 which 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" # 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 x"$lt_cv_prog_compiler_pic_works" = xyes; 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 x"$lt_cv_prog_compiler_static_works" = xyes; 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 "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; 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 "$hard_links" = no; 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 "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) 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 "$with_gnu_ld" = yes; 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 "$lt_use_gnu_ld_interface" = yes; 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 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 "$host_cpu" != ia64; 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 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 (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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 ;; 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 "$host_os" = linux-dietlibc; 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 "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' 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' ;; 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 5q` 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' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; 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 $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in 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 "x$supports_anon_versioning" = xyes; 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 can not *** 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 "$ld_shlibs" = no; 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 "$GCC" = yes && 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 "$host_cpu" = ia64; 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; 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,' if test "$GCC" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "${lt_cv_aix_libpath+set}" = 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "${lt_cv_aix_libpath+set}" = 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' 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~linknames=' archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 "$lt_cv_ld_force_load" = "yes"; 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*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; 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 "$GCC" = yes; 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 $output_objdir/$soname = $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 $output_objdir/$soname = $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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 x"$lt_cv_prog_compiler__b" = xyes; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes; 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 "$lt_cv_irix_exported_symbol" = yes; 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 ;; 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*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "x$host_vendor" = xsequent; 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 "$GCC" = yes; 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 can NOT 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 "$GCC" = yes; 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 x$host_vendor = xsni; 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 "$ld_shlibs" = no && 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 "$enable_shared" = yes && test "$GCC" = yes; 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 "$GCC" = yes; 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` 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" else 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 "$host_cpu" = ia64; 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 # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.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}' else # 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' fi 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%'\''`; test $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} $libname${shared_ext}' 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 ;; 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' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; 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=yes 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 "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; 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 "$lt_cv_prog_gnu_ld" = yes; 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 ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 # Append ld.so.conf contents 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*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac 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 if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; 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 "$with_gnu_ld" = yes; 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=freebsd-elf 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 "$with_gnu_ld" = yes; 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 "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $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 "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct" != no && # 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 "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; 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 "$hardcode_action" = relink || test "$inherit_rpath" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi if test "x$enable_dlopen" != xyes; 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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 ;; *) 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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && 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 "$cross_compiling" = yes; 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 #endif #include #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 -fvisbility=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 "x$lt_cv_dlopen_self" = xyes; 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 "$cross_compiling" = yes; 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 #endif #include #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 -fvisbility=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 which 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } 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 "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; 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 to if __STDC__ is defined, since # 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 #else # include #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 _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 to if __STDC__ is defined, since # 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 #else # include #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 _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 "$_lt_caught_CXX_error" != yes; 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 for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' else lt_prog_compiler_no_builtin_flag_CXX= fi if test "$GXX" = yes; 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 "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; 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 "$with_gnu_ld" = yes; 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 &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 &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 "$with_gnu_ld" = yes; then archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$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' 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 -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 { $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 "$host_cpu" = ia64; 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 # need to do runtime linking. 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 ;; 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,' if test "$GXX" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag_CXX='-berok' # Determine the default libpath from the value encoded in an empty # executable. if test "${lt_cv_aix_libpath+set}" = 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "${lt_cv_aix_libpath+set}" = 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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared # libraries. archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_CXX=unsupported # Joseph Beckenbach 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~linknames=' archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 -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 (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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 "$lt_cv_ld_force_load" = "yes"; 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*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; 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 "$lt_cv_apple_cc_single_mod" != "yes"; 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 ;; 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 ;; gnu*) ;; 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 $output_objdir/$soname = $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 "$GXX" = yes; 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 $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; 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 "$GXX" = yes; then if test $with_gnu_ld = no; 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 "$GXX" = yes; then if test "$with_gnu_ld" = no; 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) 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*) # 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 "x$supports_anon_versioning" = xyes; 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 5q` 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 ;; openbsd2*) # C++ shared libraries are fairly broken ld_shlibs_CXX=no ;; openbsd*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 $LDFLAGS $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 -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 $LDFLAGS $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 -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 can NOT 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 "$ld_shlibs_CXX" = no && 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... # 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 $p = "-L" || test $p = "-R"; 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 "$pre_test_object_deps_done" = no; 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 "$pre_test_object_deps_done" = no; 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= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; 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 "$GXX" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_CXX='-Bstatic' fi ;; 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' ;; 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 "$host_cpu" = ia64; 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 "$host_cpu" != ia64; 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) 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*) # 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 5q` 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 which 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" # 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 x"$lt_cv_prog_compiler_pic_works_CXX" = xyes; 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 x"$lt_cv_prog_compiler_static_works_CXX" = xyes; 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 "$lt_cv_prog_compiler_c_o_CXX" = no && test "$need_locks" != no; 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 "$hard_links" = no; 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 "$ld_shlibs_CXX" = no && 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 "$enable_shared" = yes && test "$GCC" = yes; 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 "$host_cpu" = ia64; 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 # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.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}' else # 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' fi 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%'\''`; test $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} $libname${shared_ext}' 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 ;; 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' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; 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=yes 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 "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; 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 "$lt_cv_prog_gnu_ld" = yes; 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 ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-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. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 # Append ld.so.conf contents 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*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac 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 if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; 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 "$with_gnu_ld" = yes; 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=freebsd-elf 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 "$with_gnu_ld" = yes; 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 "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $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 "X$hardcode_automatic_CXX" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct_CXX" != no && # 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 "$_LT_TAGVAR(hardcode_shlibpath_var, CXX)" != no && test "$hardcode_minus_L_CXX" != no; 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 "$hardcode_action_CXX" = relink || test "$inherit_rpath_CXX" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; 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 "$_lt_caught_CXX_error" != 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_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 "X$F77" = "Xno"; 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 "$_lt_disable_F77" != yes; 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 for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "$GCC" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_F77='-Bstatic' fi ;; 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' ;; 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 "$host_cpu" = ia64; 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 ;; 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' ;; 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) 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' ;; 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 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_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' ;; *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 which 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" # 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 x"$lt_cv_prog_compiler_pic_works_F77" = xyes; 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 x"$lt_cv_prog_compiler_static_works_F77" = xyes; 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 "$lt_cv_prog_compiler_c_o_F77" = no && test "$need_locks" != no; 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 "$hard_links" = no; 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 "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) 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 "$with_gnu_ld" = yes; 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 "$lt_use_gnu_ld_interface" = yes; 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 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 "$host_cpu" != ia64; 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 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 (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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 ;; 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 "$host_os" = linux-dietlibc; 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 "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' 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' ;; 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 5q` 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' ;; esac archive_cmds_F77='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; 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 $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in 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 "x$supports_anon_versioning" = xyes; 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 can not *** 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 "$ld_shlibs_F77" = no; 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 "$GCC" = yes && 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 "$host_cpu" = ia64; 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_F77='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; 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,' if test "$GCC" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "${lt_cv_aix_libpath+set}" = 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "${lt_cv_aix_libpath+set}" = 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' 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~linknames=' archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 "$lt_cv_ld_force_load" = "yes"; 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*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; 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 "$GCC" = yes; 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 $output_objdir/$soname = $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 $output_objdir/$soname = $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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes; 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 "$lt_cv_irix_exported_symbol" = yes; 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 ;; 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*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_F77='-R$libdir' ;; *) archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' ;; esac 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 archive_cmds_F77='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds_F77='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "x$host_vendor" = xsequent; 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 "$GCC" = yes; 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 can NOT 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 "$GCC" = yes; 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 x$host_vendor = xsni; 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 "$ld_shlibs_F77" = no && 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 "$enable_shared" = yes && test "$GCC" = yes; 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 "$host_cpu" = ia64; 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 # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.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}' else # 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' fi 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%'\''`; test $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} $libname${shared_ext}' 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 ;; 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' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; 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=yes 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 "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; 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 "$lt_cv_prog_gnu_ld" = yes; 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 ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-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 # Append ld.so.conf contents 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*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac 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 if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; 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 "$with_gnu_ld" = yes; 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=freebsd-elf 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 "$with_gnu_ld" = yes; 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 "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $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 "X$hardcode_automatic_F77" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct_F77" != no && # 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 "$_LT_TAGVAR(hardcode_shlibpath_var, F77)" != no && test "$hardcode_minus_L_F77" != no; 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 "$hardcode_action_F77" = relink || test "$inherit_rpath_F77" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi fi # test -n "$compiler" GCC=$lt_save_GCC CC="$lt_save_CC" CFLAGS="$lt_save_CFLAGS" fi # test "$_lt_disable_F77" != 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_config_commands="$ac_config_commands libtool" # Only expand once: : ${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 ." lt_cl_version="\ HDF config.lt 4.2.10 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"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $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_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"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $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"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $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"`' 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_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`' reload_cmds_F77='`$ECHO "$reload_cmds_F77" | $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"`' compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`' compiler_F77='`$ECHO "$compiler_F77" | $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"`' 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_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_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_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_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"`' 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"`' 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"`' 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"`' 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"`' 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"`' 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_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"`' 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_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"`' 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_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"`' 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"`' 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"`' 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"`' 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_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_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_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_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_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_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`' hardcode_automatic_F77='`$ECHO "$hardcode_automatic_F77" | $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"`' 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"`' 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"`' 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"`' exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`' exclude_expsyms_F77='`$ECHO "$exclude_expsyms_F77" | $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"`' prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`' prelink_cmds_F77='`$ECHO "$prelink_cmds_F77" | $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"`' 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"`' hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`' hardcode_action_F77='`$ECHO "$hardcode_action_F77" | $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"`' predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`' predep_objects_F77='`$ECHO "$predep_objects_F77" | $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"`' predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`' predeps_F77='`$ECHO "$predeps_F77" | $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"`' 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"`' 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_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ 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 \ reload_flag_CXX \ reload_flag_F77 \ compiler_CXX \ compiler_F77 \ lt_prog_compiler_no_builtin_flag_CXX \ lt_prog_compiler_no_builtin_flag_F77 \ lt_prog_compiler_pic_CXX \ lt_prog_compiler_pic_F77 \ lt_prog_compiler_wl_CXX \ lt_prog_compiler_wl_F77 \ lt_prog_compiler_static_CXX \ lt_prog_compiler_static_F77 \ lt_cv_prog_compiler_c_o_CXX \ lt_cv_prog_compiler_c_o_F77 \ export_dynamic_flag_spec_CXX \ export_dynamic_flag_spec_F77 \ whole_archive_flag_spec_CXX \ whole_archive_flag_spec_F77 \ compiler_needs_object_CXX \ compiler_needs_object_F77 \ with_gnu_ld_CXX \ with_gnu_ld_F77 \ allow_undefined_flag_CXX \ allow_undefined_flag_F77 \ no_undefined_flag_CXX \ no_undefined_flag_F77 \ hardcode_libdir_flag_spec_CXX \ hardcode_libdir_flag_spec_F77 \ hardcode_libdir_separator_CXX \ hardcode_libdir_separator_F77 \ exclude_expsyms_CXX \ exclude_expsyms_F77 \ include_expsyms_CXX \ include_expsyms_F77 \ file_list_spec_CXX \ file_list_spec_F77 \ compiler_lib_search_dirs_CXX \ compiler_lib_search_dirs_F77 \ predep_objects_CXX \ predep_objects_F77 \ postdep_objects_CXX \ postdep_objects_F77 \ predeps_CXX \ predeps_F77 \ postdeps_CXX \ postdeps_F77 \ compiler_lib_search_path_CXX \ compiler_lib_search_path_F77; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) 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 \ sys_lib_dlsearch_path_spec \ reload_cmds_CXX \ reload_cmds_F77 \ old_archive_cmds_CXX \ old_archive_cmds_F77 \ old_archive_from_new_cmds_CXX \ old_archive_from_new_cmds_F77 \ old_archive_from_expsyms_cmds_CXX \ old_archive_from_expsyms_cmds_F77 \ archive_cmds_CXX \ archive_cmds_F77 \ archive_expsym_cmds_CXX \ archive_expsym_cmds_F77 \ module_cmds_CXX \ module_cmds_F77 \ module_expsym_cmds_CXX \ module_expsym_cmds_F77 \ export_symbols_cmds_CXX \ export_symbols_cmds_F77 \ prelink_cmds_CXX \ prelink_cmds_F77 \ postlink_cmds_CXX \ postlink_cmds_F77; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which 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' TIMESTAMP='$TIMESTAMP' 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 which 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 # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $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. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="CXX F77 " # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # 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 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 # 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 in which our libraries should be installed. lt_sysroot=$lt_sysroot # 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 # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # 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 # 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 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 "X${COLLECT_NAMES+set}" != Xset; 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) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi 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 # 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 # 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 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 "$silent" = yes && 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 ## ---------------------------------------------------------------------- ## Check if we should install only statically linked executables. ## This check needs to occur after libtool is initialized because ## we check a libtool cache value and may issue a warning based ## on its result. { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we should install only statically linked executables" >&5 $as_echo_n "checking if we should install only statically linked executables... " >&6; } # Check whether --enable-static_exec was given. if test "${enable_static_exec+set}" = set; then : enableval=$enable_static_exec; STATIC_EXEC=$enableval fi if test "X$STATIC_EXEC" = "Xyes"; then echo "yes" ## Issue a warning if -static flag is not supported. if test "X$lt_cv_prog_compiler_static_works" = "Xno"; then echo " warning: -static flag not supported on this system; executable won't statically link shared system libraries." fi LT_STATIC_EXEC="-all-static" else echo "no" LT_STATIC_EXEC="" fi ## ====================================================================== ## Checks for libraries ## ====================================================================== ## ---------------------------------------------------------------------- ## Fake --with-xxx option to allow us to create a help message for the ## following --with-xxx options which can take either a =DIR or =INC,LIB ## specifier. ## # Check whether --with-fnord was given. if test "${with_fnord+set}" = set; then : withval=$with_fnord; fi ## ---------------------------------------------------------------------- ## Is the GNU zlib present? It has a header file `zlib.h' and a library ## `-lz' and their locations might be specified with the `--with-zlib' ## command-line switch. The value is an include path and/or a library path. ## If the library path is specified then it must be preceded by a comma. # Check whether --with-zlib was given. if test "${with_zlib+set}" = set; then : withval=$with_zlib; else withval=yes fi case "$withval" in yes) HAVE_ZLIB="yes" for ac_header in zlib.h do : ac_fn_c_check_header_mongrel "$LINENO" "zlib.h" "ac_cv_header_zlib_h" "$ac_includes_default" if test "x$ac_cv_header_zlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_ZLIB_H 1 _ACEOF HAVE_ZLIB_H="yes" else unset HAVE_ZLIB fi done if test "x$HAVE_ZLIB" = "xyes" -a "x$HAVE_ZLIB_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for compress2 in -lz" >&5 $as_echo_n "checking for compress2 in -lz... " >&6; } if ${ac_cv_lib_z_compress2+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lz $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 compress2 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return compress2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_z_compress2=yes else ac_cv_lib_z_compress2=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_z_compress2" >&5 $as_echo "$ac_cv_lib_z_compress2" >&6; } if test "x$ac_cv_lib_z_compress2" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBZ 1 _ACEOF LIBS="-lz $LIBS" else unset HAVE_ZLIB fi fi if test -z "$HAVE_ZLIB"; then if test -n "$HDF5_CONFIG_ABORT"; then as_fn_error $? "couldn't find zlib library" "$LINENO" 5 fi else ac_fn_c_check_func "$LINENO" "compress2" "ac_cv_func_compress2" if test "x$ac_cv_func_compress2" = xyes; then : HAVE_COMPRESS2="yes" fi fi ;; no) HAVE_ZLIB="no" as_fn_error $? "zlib library required to build HDF4" "$LINENO" 5 ;; *) HAVE_ZLIB="yes" case "$withval" in *,*) zlib_inc="`echo $withval | cut -f1 -d,`" zlib_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then zlib_inc="$withval/include" zlib_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$zlib_inc" = "X/usr/include"; then zlib_inc="" fi if test "X$zlib_lib" = "X/usr/lib"; then zlib_lib="" fi if test -n "$zlib_inc"; then CPPFLAGS="$CPPFLAGS -I$zlib_inc" fi for ac_header in zlib.h do : ac_fn_c_check_header_mongrel "$LINENO" "zlib.h" "ac_cv_header_zlib_h" "$ac_includes_default" if test "x$ac_cv_header_zlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_ZLIB_H 1 _ACEOF HAVE_ZLIB_H="yes" else unset HAVE_ZLIB fi done if test -n "$zlib_lib"; then LDFLAGS="$LDFLAGS -L$zlib_lib" fi if test "x$HAVE_ZLIB" = "xyes" -a "x$HAVE_ZLIB_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for compress2 in -lz" >&5 $as_echo_n "checking for compress2 in -lz... " >&6; } if ${ac_cv_lib_z_compress2+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lz $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 compress2 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return compress2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_z_compress2=yes else ac_cv_lib_z_compress2=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_z_compress2" >&5 $as_echo "$ac_cv_lib_z_compress2" >&6; } if test "x$ac_cv_lib_z_compress2" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBZ 1 _ACEOF LIBS="-lz $LIBS" else unset HAVE_ZLIB fi fi if test -z "$HAVE_ZLIB"; then as_fn_error $? "couldn't find zlib library" "$LINENO" 5 else ac_fn_c_check_func "$LINENO" "compress2" "ac_cv_func_compress2" if test "x$ac_cv_func_compress2" = xyes; then : HAVE_COMPRESS2="yes" fi fi ;; esac ## ---------------------------------------------------------------------- ## Is the JPEG library present? # Check whether --with-jpeg was given. if test "${with_jpeg+set}" = set; then : withval=$with_jpeg; else withval=yes fi case "$withval" in yes) HAVE_JPEG="yes" for ac_header in jpeglib.h do : ac_fn_c_check_header_mongrel "$LINENO" "jpeglib.h" "ac_cv_header_jpeglib_h" "$ac_includes_default" if test "x$ac_cv_header_jpeglib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_JPEGLIB_H 1 _ACEOF HAVE_JPEG_H="yes" else unset HAVE_JPEG fi done if test "x$HAVE_JPEG" = "xyes" -a "x$HAVE_JPEG_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for jpeg_start_decompress in -ljpeg" >&5 $as_echo_n "checking for jpeg_start_decompress in -ljpeg... " >&6; } if ${ac_cv_lib_jpeg_jpeg_start_decompress+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ljpeg $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 jpeg_start_decompress (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return jpeg_start_decompress (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_jpeg_jpeg_start_decompress=yes else ac_cv_lib_jpeg_jpeg_start_decompress=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_jpeg_jpeg_start_decompress" >&5 $as_echo "$ac_cv_lib_jpeg_jpeg_start_decompress" >&6; } if test "x$ac_cv_lib_jpeg_jpeg_start_decompress" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBJPEG 1 _ACEOF LIBS="-ljpeg $LIBS" else unset HAVE_JPEG fi fi if test -z "$HAVE_JPEG"; then as_fn_error $? "couldn't find jpeg library" "$LINENO" 5 fi ;; no) HAVE_JPEG="no" as_fn_error $? "jpeg library required to build HDF4" "$LINENO" 5 ;; *) HAVE_JPEG="yes" case "$withval" in *,*) jpeg_inc="`echo $withval | cut -f1 -d,`" jpeg_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then jpeg_inc="$withval/include" jpeg_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$jpeg_inc" = "X/usr/include"; then jpeg_inc="" fi if test "X$jpeg_lib" = "X/usr/lib"; then jpeg_lib="" fi if test -n "$jpeg_inc"; then CPPFLAGS="$CPPFLAGS -I$jpeg_inc" fi for ac_header in jpeglib.h do : ac_fn_c_check_header_mongrel "$LINENO" "jpeglib.h" "ac_cv_header_jpeglib_h" "$ac_includes_default" if test "x$ac_cv_header_jpeglib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_JPEGLIB_H 1 _ACEOF HAVE_JPEG_H="yes" else unset HAVE_JPEG fi done if test -n "$jpeg_lib"; then LDFLAGS="$LDFLAGS -L$jpeg_lib" fi if test "x$HAVE_JPEG" = "xyes" -a "x$HAVE_JPEG_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for jpeg_start_decompress in -ljpeg" >&5 $as_echo_n "checking for jpeg_start_decompress in -ljpeg... " >&6; } if ${ac_cv_lib_jpeg_jpeg_start_decompress+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ljpeg $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 jpeg_start_decompress (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return jpeg_start_decompress (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_jpeg_jpeg_start_decompress=yes else ac_cv_lib_jpeg_jpeg_start_decompress=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_jpeg_jpeg_start_decompress" >&5 $as_echo "$ac_cv_lib_jpeg_jpeg_start_decompress" >&6; } if test "x$ac_cv_lib_jpeg_jpeg_start_decompress" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBJPEG 1 _ACEOF LIBS="-ljpeg $LIBS" else unset HAVE_JPEG fi fi if test -z "$HAVE_JPEG"; then as_fn_error $? "couldn't find jpeg library" "$LINENO" 5 fi ;; esac ## ---------------------------------------------------------------------- ## Is the szip library present? USE_COMP_SZIP="no" # Check whether --with-szlib was given. if test "${with_szlib+set}" = set; then : withval=$with_szlib; else withval=no fi case "$withval" in yes) HAVE_SZIP="yes" for ac_header in szlib.h do : ac_fn_c_check_header_mongrel "$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 HAVE_SZLIB_H="yes" else unset HAVE_SZIP fi done if test "x$HAVE_SZLIB" = "xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for SZ_BufftoBuffCompress in -lsz" >&5 $as_echo_n "checking for SZ_BufftoBuffCompress in -lsz... " >&6; } if ${ac_cv_lib_sz_SZ_BufftoBuffCompress+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsz $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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return SZ_BufftoBuffCompress (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_sz_SZ_BufftoBuffCompress=yes else ac_cv_lib_sz_SZ_BufftoBuffCompress=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_sz_SZ_BufftoBuffCompress" >&5 $as_echo "$ac_cv_lib_sz_SZ_BufftoBuffCompress" >&6; } if test "x$ac_cv_lib_sz_SZ_BufftoBuffCompress" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBSZ 1 _ACEOF LIBS="-lsz $LIBS" else unset HAVE_SZIP fi fi if test -z "$HAVE_SZIP"; then as_fn_error $? "couldn't find szlib library" "$LINENO" 5 fi ;; no) HAVE_SZIP="no" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for szlib" >&5 $as_echo_n "checking for szlib... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: suppressed" >&5 $as_echo "suppressed" >&6; } SZIP_INFO="${SZIP_INFO}disabled" ;; *) HAVE_SZIP="yes" case "$withval" in *,*) szip_inc="`echo $withval | cut -f1 -d,`" szip_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then szip_inc="$withval/include" szip_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$szip_inc" = "X/usr/include"; then szip_inc="" fi if test "X$szip_lib" = "X/usr/lib"; then szip_lib="" fi if test -n "$szip_inc"; then CPPFLAGS="$CPPFLAGS -I$szip_inc" fi for ac_header in szlib.h do : ac_fn_c_check_header_mongrel "$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 HAVE_SZLIB_H="yes" else unset HAVE_SZIP fi done if test -n "$szip_lib"; then LDFLAGS="$LDFLAGS -L$szip_lib" fi if test "x$HAVE_SZIP" = "xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for SZ_BufftoBuffCompress in -lsz" >&5 $as_echo_n "checking for SZ_BufftoBuffCompress in -lsz... " >&6; } if ${ac_cv_lib_sz_SZ_BufftoBuffCompress+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsz $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 (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return SZ_BufftoBuffCompress (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_sz_SZ_BufftoBuffCompress=yes else ac_cv_lib_sz_SZ_BufftoBuffCompress=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_sz_SZ_BufftoBuffCompress" >&5 $as_echo "$ac_cv_lib_sz_SZ_BufftoBuffCompress" >&6; } if test "x$ac_cv_lib_sz_SZ_BufftoBuffCompress" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBSZ 1 _ACEOF LIBS="-lsz $LIBS" else unset HAVE_SZIP fi fi if test -z "$HAVE_SZIP"; then as_fn_error $? "couldn't find szlib library" "$LINENO" 5 else USE_COMP_SZIP="yes" fi ;; esac ## Check to see if SZIP has encoder if test "X$HAVE_SZIP" = "Xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then ## SZLIB library is available. Check if it can encode. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for szlib encoder" >&5 $as_echo_n "checking for szlib encoder... " >&6; } ## Set LD_LIBRARY_PATH so encoder test can find the library and run. if test -z "$LD_LIBRARY_PATH"; then export LD_LIBRARY_PATH="$szip_lib" else export LD_LIBRARY_PATH="${szip_lib}:$LD_LIBRARY_PATH" fi LL_PATH="$LD_LIBRARY_PATH" if test "$cross_compiling" = 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 $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main(void) { /* SZ_encoder_enabled returns 1 if encoder is present */ if (SZ_encoder_enabled() == 1) exit(0); else exit(1); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : CAN_ENCODE="yes" else CAN_ENCODE="no" fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi ## Report szip encoder test results if test "X$CAN_ENCODE" = "Xyes"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi if test "X$CAN_ENCODE" = "Xno"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ## Add "szip" to external filter list if test "X$CAN_ENCODE" = "Xyes"; then if test "X$SZIP_INFO" != "X"; then SZIP_INFO="${SZIP_INFO}" fi SZIP_INFO="${SZIP_INFO}enabled with encoder" fi if test "X$CAN_ENCODE" = "Xno"; then if test "X$SZIP_INFO" != "X"; then SZIP_INFO="${SZIP_INFO}" fi SZIP_INFO="${SZIP_INFO}enabled with decoder only" fi ## Create macro to specify if encoder is present if test "X$CAN_ENCODE" = "Xyes"; then $as_echo "#define HAVE_SZIP_ENCODER 1" >>confdefs.h SZIP_HAS_ENCODER="yes" fi fi if test "X$USE_COMP_SZIP" = "Xyes" && test "X$LL_PATH" != "X"; then BUILD_SHARED_SZIP_CONDITIONAL_TRUE= BUILD_SHARED_SZIP_CONDITIONAL_FALSE='#' else BUILD_SHARED_SZIP_CONDITIONAL_TRUE='#' BUILD_SHARED_SZIP_CONDITIONAL_FALSE= fi ## ---------------------------------------------------------------------- ## Is XDR support present? The TRY_LINK info was gotten from the ## mfhdf/libsrc/local_nc.c file. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for xdr library support" >&5 $as_echo_n "checking for xdr library support... " >&6; } # Check whether --enable-hdf4-xdr was given. if test "${enable_hdf4_xdr+set}" = set; then : enableval=$enable_hdf4_xdr; enableval="yes" else enableval="no" fi case "$enableval" in yes) BUILD_XDR="yes" { $as_echo "$as_me:${as_lineno-$LINENO}: result: using HDF4 XDR" >&5 $as_echo "using HDF4 XDR" >&6; }; ;; no) BUILD_XDR="no" ;; esac if test "X$BUILD_XDR" != "Xyes"; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { xdr_int ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; }; BUILD_XDR="no" else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; }; BUILD_XDR="yes" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi if test "X$BUILD_XDR" = "Xyes"; then HDF_BUILD_XDR_TRUE= HDF_BUILD_XDR_FALSE='#' else HDF_BUILD_XDR_TRUE='#' HDF_BUILD_XDR_FALSE= fi ## Check headers and add libraries for XDR if the HDF4 XDR library is not used. if test "X$BUILD_XDR" != "Xyes"; then ## For Solaris systems, add the -nsl for XDR support ## ## The SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library for IPv6 support case "$host" in *-solaris*) LIBS="$LIBS -lnsl" ;; *-pc-cygwin*) LIBS="$LIBS -ltirpc" ;; *) ;; esac ## ====================================================================== ## Checks for header files ## ====================================================================== ## ---------------------------------------------------------------------- ## We're trying to link against the rpc library when building on Cygwin, ## but we need to make sure that it is present on the system. Do that here, ## The SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library for IPv6 support case "$host" in *-pc-cygwin*) HAVE_RPC="yes" ac_fn_c_check_header_mongrel "$LINENO" "rpc.h" "ac_cv_header_rpc_h" "$ac_includes_default" if test "x$ac_cv_header_rpc_h" = xyes; then : : else unset HAVE_RPC fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for xdr_opaque in -ltirpc" >&5 $as_echo_n "checking for xdr_opaque in -ltirpc... " >&6; } if ${ac_cv_lib_tirpc_xdr_opaque+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ltirpc $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 xdr_opaque (); #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { return xdr_opaque (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_tirpc_xdr_opaque=yes else ac_cv_lib_tirpc_xdr_opaque=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_tirpc_xdr_opaque" >&5 $as_echo "$ac_cv_lib_tirpc_xdr_opaque" >&6; } if test "x$ac_cv_lib_tirpc_xdr_opaque" = xyes; then : : else unset HAVE_RPC fi if test -z "$HAVE_RPC"; then as_fn_error $? "couldn't find tirpc library" "$LINENO" 5 fi ;; esac fi { $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 #include #include #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 _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 _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 #include #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 ## ====================================================================== ## Checks for types ## ====================================================================== ## ====================================================================== ## Checks for structures ## ====================================================================== ## ====================================================================== ## Checks for compiler characteristics ## ====================================================================== if test "x$CC" != xcc; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC and cc understand -c and -o together" >&5 $as_echo_n "checking whether $CC and cc understand -c and -o together... " >&6; } else { $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; } fi set dummy $CC; ac_cc=`$as_echo "$2" | sed 's/[^a-zA-Z0-9_]/_/g;s/^[0-9]/_/'` if eval \${ac_cv_prog_cc_${ac_cc}_c_o+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { ; return 0; } _ACEOF # Make sure it works both with $CC and with simple cc. # We do the test twice because some compilers refuse to overwrite an # existing .o file with -o, though they will create one. ac_try='$CC -c conftest.$ac_ext -o conftest2.$ac_objext >&5' rm -f conftest2.* if { { 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; } && test -f conftest2.$ac_objext && { { 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 eval ac_cv_prog_cc_${ac_cc}_c_o=yes if test "x$CC" != xcc; then # Test first that cc exists at all. if { ac_try='cc -c conftest.$ac_ext >&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_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then ac_try='cc -c conftest.$ac_ext -o conftest2.$ac_objext >&5' rm -f conftest2.* if { { 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; } && test -f conftest2.$ac_objext && { { 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 # cc works too. : else # cc exists but doesn't like -o. eval ac_cv_prog_cc_${ac_cc}_c_o=no fi fi fi else eval ac_cv_prog_cc_${ac_cc}_c_o=no fi rm -f core conftest* fi if eval test \$ac_cv_prog_cc_${ac_cc}_c_o = yes; 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_echo "#define NO_MINUS_C_MINUS_O 1" >>confdefs.h 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 { $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 to if __STDC__ is defined, since # 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 #else # include #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 _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 to if __STDC__ is defined, since # 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 #else # include #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 _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 if test "X$BUILD_FORTRAN" = "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 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $F77 understands -c and -o together" >&5 $as_echo_n "checking whether $F77 understands -c and -o together... " >&6; } if ${ac_cv_prog_f77_c_o+:} false; then : $as_echo_n "(cached) " >&6 else cat > conftest.$ac_ext <<_ACEOF program main end _ACEOF # We test twice because some compilers refuse to overwrite an existing # `.o' file with `-o', although they will create one. ac_try='$F77 $FFLAGS -c conftest.$ac_ext -o conftest2.$ac_objext >&5' rm -f conftest2.* if { { 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; } && test -f conftest2.$ac_objext && { { 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_cv_prog_f77_c_o=yes else ac_cv_prog_f77_c_o=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_f77_c_o" >&5 $as_echo "$ac_cv_prog_f77_c_o" >&6; } if test $ac_cv_prog_f77_c_o = no; then $as_echo "#define F77_NO_MINUS_C_MINUS_O 1" >>confdefs.h 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 ## This is a bit of a hack. The AC_CHECK_SIZEOF macro is supposed to ## #define a value in a header file. However, we don't use a generated ## header file. So I check the value left over from autoconf's test is ## >= 8. # 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 int*" >&5 $as_echo_n "checking size of int*... " >&6; } if ${ac_cv_sizeof_intp+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (int*))" "ac_cv_sizeof_intp" "$ac_includes_default"; then : else if test "$ac_cv_type_intp" = 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 (int*) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_intp=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_intp" >&5 $as_echo "$ac_cv_sizeof_intp" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_INTP $ac_cv_sizeof_intp _ACEOF if test $ac_cv_sizeof_intp -ge 8; then CPPFLAGS="$CPPFLAGS -DBIG_LONGS" ## Define super secret special flag for AIX machines in 64-bit mode. case "${host}" in *-ibm-aix*) CPPFLAGS="$CPPFLAGS -DAIX5L64" ;; *) ;; esac if test "X$BUILD_XDR" = "Xyes"; then as_fn_error $? "--enable-hdf4-xdr is not supported for 64 bit mode." "$LINENO" 5 fi fi ## ---------------------------------------------------------------------- ## Set some variables for general configuration information to be saved ## and installed with the libraries. ## ## HDF4 version from the first line of the README.txt file. H4_VERSION="`cut -d' ' -f3 $srcdir/README.txt | head -1`" ## Configuration date CONFIG_DATE="`date`" ## User doing the configuration CONFIG_USER="`whoami`@`hostname`" ## Configuration mode (production, development, etc) { $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 #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris). cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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; #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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 #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif 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) CPPFLAGS="$CPPFLAGS -DSWAP" ;; #( 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 ## Are we building this in debug or production mode? (Remove the -g flag ## in production mode.) { $as_echo "$as_me:${as_lineno-$LINENO}: checking for build mode" >&5 $as_echo_n "checking for build mode... " >&6; } # Check whether --enable-production was given. if test "${enable_production+set}" = set; then : enableval=$enable_production; fi case "X-$enable_production" in X-|X-yes) { $as_echo "$as_me:${as_lineno-$LINENO}: result: production" >&5 $as_echo "production" >&6; } CONFIG_MODE=production ## Remove the "-g" flag from compile line if it's in there. CFLAGS_temp="" if test -n "$CFLAGS"; then for d in $CFLAGS ; do if test "X$d" != "X-g"; then CFLAGS_temp="$CFLAGS_temp $d" fi done CFLAGS=$CFLAGS_temp fi FFLAGS_temp="" if test -n "$FFLAGS"; then for d in $FFLAGS ; do if test "X$d" != "X-g"; then FFLAGS_temp="$FFLAGS_temp $d" fi done FFLAGS=$FFLAGS_temp fi CXXFLAGS_temp="" if test -n "$CXXFLAGS"; then for d in $CXXFLAGS ; do if test "X$d" != "X-g"; then CXXFLAGS_temp="$CXXFLAGS_temp $d" fi done CXXFLAGS=$CXXFLAGS_temp fi CFLAGS="$CFLAGS $PROD_CFLAGS" CXXFLAGS="$CXXFLAGS $PROD_CXXFLAGS" FFLAGS="$FFLAGS $PROD_FFLAGS" CPPFLAGS="$CPPFLAGS $PROD_CPPFLAGS" ;; X-no) { $as_echo "$as_me:${as_lineno-$LINENO}: result: development" >&5 $as_echo "development" >&6; } CONFIG_MODE=development CFLAGS="$CFLAGS $DEBUG_CFLAGS" FFLAGS="$FFLAGS $DEBUG_FFLAGS" CXXFLAGS="$CXXFLAGS $DEBUG_CXXFLAGS" CPPFLAGS="$CPPFLAGS $DEBUG_CPPFLAGS" ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: user-defined" >&5 $as_echo "user-defined" >&6; } ;; esac ## ====================================================================== ## Checks for library functions ## ====================================================================== { $as_echo "$as_me:${as_lineno-$LINENO}: checking for math library support" >&5 $as_echo_n "checking for math library support... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef F77_DUMMY_MAIN # ifdef __cplusplus extern "C" # endif int F77_DUMMY_MAIN() { return 1; } #endif int main () { sinh(37.927) ; return 0; } _ACEOF if ac_fn_c_try_link "$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; }; LIBS="$LIBS -lm" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext for ac_func in fork system vfork wait 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 ## ====================================================================== ## Checks for system services ## ====================================================================== ## Copy NetCDF header files. # ## FIXME: This is code stolen^Wborrowed from the old HDF4 configure. ## These header files should probably be generated by autoconf instead ## of being copied depending upon the host. case "$host" in *-linux*) BAR="linux" ;; *-freebsd*) BAR="fbsd" ;; *-ibm-aix*) BAR="aix" ;; sparc64-*-solaris2*) BAR="solaris64" ;; *-*-solaris2*) BAR="solaris" ;; *-apple*) BAR="apple" ;; *-pc-cygwin*) BAR="linux" ;; *) echo "*** unknown host $host!"; exit 1 ;; esac src_files="" src_files="`echo $src_files | sed -e s/FOO/${BAR}/g`" for config_file in $src_files; do src_file="${srcdir}/`echo $config_file | sed -e s/:.*$//`" target_file="`echo $config_file | sed -e s/^[^:]*://g`" if test ! -r ${src_file}; then echo '***' "${progname}: cannot copy file \"${target_file}\"," 1>&2 echo '***' "since the file \"${src_file}\" does not exist." 1>&2 exit 1 fi ## this sed command emulates the dirname command dstdir=`echo "$target_file" | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` ## Create directory for the target_file if it's not there. if test ! -d $dstdir; then ${srcdir}/bin/mkinstalldirs $dstdir fi echo "Copying \"${src_file}\" to \"${target_file}\" ." cp ${src_file} ${target_file} if test ! -r ${target_file}; then echo '***' "${progname}: cannot copy file \"${target_file}\"," 1>&2 exit 1 fi done ## ------------------------------------------------------------------------ ## Check to see if libtool has enabled shared libraries. Set a conditional ## as some Makefiles will build based on availability of shared libraries. if (./libtool --features | grep '^enable shared libraries' > /dev/null); then enable_shared=yes else enable_shared=no fi ## ------------------------------------------------------------------------ ## Specify shared library extension the host machine should recognize. case "$host_os" in darwin*) SHARED_EXTENSION="dylib" ;; *) SHARED_EXTENSION="so" ;; esac ## We don't need to say when we're entering directories if we're using ## GNU make because make does it for us. if test "X$GMAKE" = "Xyes"; then SETX=":" else SETX="set -x" fi if test "X$enable_shared" = "Xyes"; then HDF_BUILD_SHARED_TRUE= HDF_BUILD_SHARED_FALSE='#' else HDF_BUILD_SHARED_TRUE='#' HDF_BUILD_SHARED_FALSE= fi ## Compiler with version information. This consists of the full path ## name of the compiler and the reported version number. ## Strip anything that looks like a flag off of $CC CC_NOFLAGS=`echo $CC | sed 's/ -.*//'` if `echo $CC_NOFLAGS | grep ^/ >/dev/null 2>&1`; then CC_VERSION="$CC" else CC_VERSION="$CC"; for x in `echo $PATH | sed -e 's/:/ /g'`; do if test -x $x/$CC_NOFLAGS; then CC_VERSION="$x/$CC" break fi done fi ## ---------------------------------------------------------------------- ## ## If --enable-static-exec and are specified together, there will be ld failures for ## "attempted static link of dynamic object" when the tools are built. This check ## will prevent that error during configure instead. It could go with the other ## --enable-static-exec checks, but since enable_static is set by default later in ## the configure process this check has to be delayed. if test "X$STATIC_EXEC" = "Xyes"; then if test "X${enable_static}" != "Xyes"; then as_fn_error $? "--enable-static-exec flag to build static executables requires static libraries. Please configure with --enable-static flag." "$LINENO" 5 fi fi ## This part doesn't work yet since HDF4 config files do not contain ## information for cc_vendor and cc_version as HDF5 similar files do. ## Needs to be fixed EIP 2010-01-21 ## if test -n "$cc_vendor" && test -n "$cc_version"; then ## CC_VERSION="$CC_VERSION ($cc_vendor-$cc_version)" ## fi if test -n "$cc_version_info"; then CC_VERSION="$CC_VERSION ( $cc_version_info)" fi ## Fortran compiler with version information. This consists of the full path ## name of the compiler and the reported version number. ## Strip anything that looks like a flag off of $F77 F77_NOFLAGS=`echo $F77 | sed 's/ -.*//'` if `echo $F77_NOFLAGS | grep ^/ >/dev/null 2>&1`; then F77_VERSION="$F77" else F77_VERSION="$F77"; for x in `echo $PATH | sed -e 's/:/ /g'`; do if test -x $x/$F77_NOFLAGS; then F77_VERSION="$x/$F77" break fi done fi if test -n "$fc_version_info"; then F77_VERSION="$F77_VERSION ( $fc_version_info)" fi ## This part doesn't work yet since HDF4 config files do not contain ## information for fortran_vendor and fortran_version. ## Needs to be fixed EIP 2010-01-21 ## if test -n "$fortran_vendor" && test -n "$fortran_version"; then ## F77_VERSION="$F77_VERSION ($fortran_vendor-$fortran_version)" ## fi ## ---------------------------------------------------------------------- ## Enable deprecated public API symbols ## { $as_echo "$as_me:${as_lineno-$LINENO}: checking if deprecated public symbols are available" >&5 $as_echo_n "checking if deprecated public symbols are available... " >&6; }; # Check whether --enable-deprecated-symbols was given. if test "${enable_deprecated_symbols+set}" = set; then : enableval=$enable_deprecated_symbols; DEPREC_SYMBOLS=$enableval else DEPREC_SYMBOLS=yes fi case "X-$DEPREC_SYMBOLS" in X-yes) { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } DEPRECATED_SYMBOLS=yes ;; X-no|*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } DEPRECATED_SYMBOLS=no $as_echo "#define NO_DEPRECATED_SYMBOLS 1" >>confdefs.h ;; esac ac_config_files="$ac_config_files Makefile libhdf4.settings hdf/Makefile hdf/examples/Makefile hdf/fortran/Makefile hdf/fortran/examples/Makefile hdf/src/Makefile hdf/test/Makefile hdf/util/Makefile hdf/util/h4cc hdf/util/h4fc hdf/util/h4redeploy hdf/util/testutil.sh man/Makefile mfhdf/fortran/ftest.f mfhdf/fortran/jackets.c mfhdf/fortran/netcdf.inc mfhdf/libsrc/netcdf.h mfhdf/Makefile mfhdf/dumper/Makefile mfhdf/dumper/testhdp.sh mfhdf/examples/Makefile mfhdf/examples/testexamples.sh mfhdf/fortran/Makefile mfhdf/fortran/examples/Makefile mfhdf/fortran/testfortran.sh mfhdf/hdfimport/Makefile mfhdf/hdfimport/testutil.sh mfhdf/hdiff/Makefile mfhdf/hdiff/testhdiff.sh mfhdf/hrepack/Makefile mfhdf/hrepack/hrepack_all.sh mfhdf/libsrc/Makefile mfhdf/ncdump/Makefile mfhdf/ncdump/testncdump.sh mfhdf/ncgen/Makefile mfhdf/ncgen/testncgen.sh mfhdf/nctest/Makefile mfhdf/test/Makefile mfhdf/test/testmfhdf.sh mfhdf/xdr/Makefile" 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/\.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 "${HDF_BUILD_NETCDF_TRUE}" && test -z "${HDF_BUILD_NETCDF_FALSE}"; then as_fn_error $? "conditional \"HDF_BUILD_NETCDF\" 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 "${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 "${HDF_BUILD_FORTRAN_TRUE}" && test -z "${HDF_BUILD_FORTRAN_FALSE}"; then as_fn_error $? "conditional \"HDF_BUILD_FORTRAN\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${BUILD_SHARED_SZIP_CONDITIONAL_TRUE}" && test -z "${BUILD_SHARED_SZIP_CONDITIONAL_FALSE}"; then as_fn_error $? "conditional \"BUILD_SHARED_SZIP_CONDITIONAL\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HDF_BUILD_XDR_TRUE}" && test -z "${HDF_BUILD_XDR_FALSE}"; then as_fn_error $? "conditional \"HDF_BUILD_XDR\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HDF_BUILD_SHARED_TRUE}" && test -z "${HDF_BUILD_SHARED_FALSE}"; then as_fn_error $? "conditional \"HDF_BUILD_SHARED\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : "${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 HDF $as_me 4.2.10, 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 ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ HDF config.status 4.2.10 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" ac_aux_dir="$ac_aux_dir" # 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"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $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_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"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $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"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $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"`' 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_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`' reload_cmds_F77='`$ECHO "$reload_cmds_F77" | $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"`' compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`' compiler_F77='`$ECHO "$compiler_F77" | $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"`' 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_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_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_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_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"`' 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"`' 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"`' 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"`' 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"`' 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"`' 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_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"`' 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_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"`' 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_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"`' 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"`' 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"`' 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"`' 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_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_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_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_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_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_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`' hardcode_automatic_F77='`$ECHO "$hardcode_automatic_F77" | $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"`' 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"`' 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"`' 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"`' exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`' exclude_expsyms_F77='`$ECHO "$exclude_expsyms_F77" | $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"`' prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`' prelink_cmds_F77='`$ECHO "$prelink_cmds_F77" | $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"`' 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"`' hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`' hardcode_action_F77='`$ECHO "$hardcode_action_F77" | $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"`' predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`' predep_objects_F77='`$ECHO "$predep_objects_F77" | $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"`' predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`' predeps_F77='`$ECHO "$predeps_F77" | $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"`' 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"`' 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_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ 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 \ reload_flag_CXX \ reload_flag_F77 \ compiler_CXX \ compiler_F77 \ lt_prog_compiler_no_builtin_flag_CXX \ lt_prog_compiler_no_builtin_flag_F77 \ lt_prog_compiler_pic_CXX \ lt_prog_compiler_pic_F77 \ lt_prog_compiler_wl_CXX \ lt_prog_compiler_wl_F77 \ lt_prog_compiler_static_CXX \ lt_prog_compiler_static_F77 \ lt_cv_prog_compiler_c_o_CXX \ lt_cv_prog_compiler_c_o_F77 \ export_dynamic_flag_spec_CXX \ export_dynamic_flag_spec_F77 \ whole_archive_flag_spec_CXX \ whole_archive_flag_spec_F77 \ compiler_needs_object_CXX \ compiler_needs_object_F77 \ with_gnu_ld_CXX \ with_gnu_ld_F77 \ allow_undefined_flag_CXX \ allow_undefined_flag_F77 \ no_undefined_flag_CXX \ no_undefined_flag_F77 \ hardcode_libdir_flag_spec_CXX \ hardcode_libdir_flag_spec_F77 \ hardcode_libdir_separator_CXX \ hardcode_libdir_separator_F77 \ exclude_expsyms_CXX \ exclude_expsyms_F77 \ include_expsyms_CXX \ include_expsyms_F77 \ file_list_spec_CXX \ file_list_spec_F77 \ compiler_lib_search_dirs_CXX \ compiler_lib_search_dirs_F77 \ predep_objects_CXX \ predep_objects_F77 \ postdep_objects_CXX \ postdep_objects_F77 \ predeps_CXX \ predeps_F77 \ postdeps_CXX \ postdeps_F77 \ compiler_lib_search_path_CXX \ compiler_lib_search_path_F77; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) 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 \ sys_lib_dlsearch_path_spec \ reload_cmds_CXX \ reload_cmds_F77 \ old_archive_cmds_CXX \ old_archive_cmds_F77 \ old_archive_from_new_cmds_CXX \ old_archive_from_new_cmds_F77 \ old_archive_from_expsyms_cmds_CXX \ old_archive_from_expsyms_cmds_F77 \ archive_cmds_CXX \ archive_cmds_F77 \ archive_expsym_cmds_CXX \ archive_expsym_cmds_F77 \ module_cmds_CXX \ module_cmds_F77 \ module_expsym_cmds_CXX \ module_expsym_cmds_F77 \ export_symbols_cmds_CXX \ export_symbols_cmds_F77 \ prelink_cmds_CXX \ prelink_cmds_F77 \ postlink_cmds_CXX \ postlink_cmds_F77; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which 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' TIMESTAMP='$TIMESTAMP' 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 "hdf/src/h4config.h") CONFIG_HEADERS="$CONFIG_HEADERS hdf/src/h4config.h" ;; "h4config") CONFIG_COMMANDS="$CONFIG_COMMANDS h4config" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "libhdf4.settings") CONFIG_FILES="$CONFIG_FILES libhdf4.settings" ;; "hdf/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/Makefile" ;; "hdf/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/examples/Makefile" ;; "hdf/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/fortran/Makefile" ;; "hdf/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/fortran/examples/Makefile" ;; "hdf/src/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/src/Makefile" ;; "hdf/test/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/test/Makefile" ;; "hdf/util/Makefile") CONFIG_FILES="$CONFIG_FILES hdf/util/Makefile" ;; "hdf/util/h4cc") CONFIG_FILES="$CONFIG_FILES hdf/util/h4cc" ;; "hdf/util/h4fc") CONFIG_FILES="$CONFIG_FILES hdf/util/h4fc" ;; "hdf/util/h4redeploy") CONFIG_FILES="$CONFIG_FILES hdf/util/h4redeploy" ;; "hdf/util/testutil.sh") CONFIG_FILES="$CONFIG_FILES hdf/util/testutil.sh" ;; "man/Makefile") CONFIG_FILES="$CONFIG_FILES man/Makefile" ;; "mfhdf/fortran/ftest.f") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/ftest.f" ;; "mfhdf/fortran/jackets.c") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/jackets.c" ;; "mfhdf/fortran/netcdf.inc") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/netcdf.inc" ;; "mfhdf/libsrc/netcdf.h") CONFIG_FILES="$CONFIG_FILES mfhdf/libsrc/netcdf.h" ;; "mfhdf/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/Makefile" ;; "mfhdf/dumper/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/dumper/Makefile" ;; "mfhdf/dumper/testhdp.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/dumper/testhdp.sh" ;; "mfhdf/examples/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/examples/Makefile" ;; "mfhdf/examples/testexamples.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/examples/testexamples.sh" ;; "mfhdf/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/Makefile" ;; "mfhdf/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/examples/Makefile" ;; "mfhdf/fortran/testfortran.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/fortran/testfortran.sh" ;; "mfhdf/hdfimport/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/hdfimport/Makefile" ;; "mfhdf/hdfimport/testutil.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/hdfimport/testutil.sh" ;; "mfhdf/hdiff/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/hdiff/Makefile" ;; "mfhdf/hdiff/testhdiff.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/hdiff/testhdiff.sh" ;; "mfhdf/hrepack/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/hrepack/Makefile" ;; "mfhdf/hrepack/hrepack_all.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/hrepack/hrepack_all.sh" ;; "mfhdf/libsrc/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/libsrc/Makefile" ;; "mfhdf/ncdump/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/ncdump/Makefile" ;; "mfhdf/ncdump/testncdump.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/ncdump/testncdump.sh" ;; "mfhdf/ncgen/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/ncgen/Makefile" ;; "mfhdf/ncgen/testncgen.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/ncgen/testncgen.sh" ;; "mfhdf/nctest/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/nctest/Makefile" ;; "mfhdf/test/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/test/Makefile" ;; "mfhdf/test/testmfhdf.sh") CONFIG_FILES="$CONFIG_FILES mfhdf/test/testmfhdf.sh" ;; "mfhdf/xdr/Makefile") CONFIG_FILES="$CONFIG_FILES mfhdf/xdr/Makefile" ;; *) 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` 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 ' >$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 ' >$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 "h4config":C) echo "modifying hdf/src/h4config.h" sed 's/#define /#define H4_/' < hdf/src/h4config.h |\ sed 's/#undef /#undef H4_/' > h4config cp h4config hdf/src/h4config.h rm -f h4config #if test ! -f hdf/src/h4config.h; then # /bin/mv -f h4config hdf/src/h4config.h # elif (diff h4config hdf/src/h4config.h >/dev/null); then # /bin/rm -f h4config # echo "hdf/src/h4config.h is unchanged" # else # /bin/mv -f h4config hdf/src/h4config.h # fi echo "Post process libhdf4.settings" sed '/^#/d' < libhdf4.settings > libhdf4.settings.TMP cp libhdf4.settings.TMP libhdf4.settings rm -f libhdf4.settings.TMP ;; "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Autoconf 2.62 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. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options which 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 # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $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. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="CXX F77 " # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # 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 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 # 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 in which our libraries should be installed. lt_sysroot=$lt_sysroot # 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 # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # 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 # 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 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 "X${COLLECT_NAMES+set}" != Xset; 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) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi 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 # 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 # 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 ;; 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 ## A temporary patch. These code were after where it did ## cp config/netcdf-XXX.h netcdf.h before. ## Moved it here after AC_CONFIG_FILES(... mfhdf/libsrc/netcdf.h ). ## Need a better and correct solution. ## if test "X$BUILD_NETCDF" != "Xyes"; then echo "Renaming \"mfhdf/libsrc/netcdf.h\" to \"mfhdf/libsrc/hdf4_netcdf.h\" ." mv mfhdf/libsrc/netcdf.h mfhdf/libsrc/hdf4_netcdf.h fi chmod 755 hdf/util/h4cc hdf/util/h4redeploy if test "X$BUILD_FORTRAN" = "Xyes"; then chmod 755 hdf/util/h4fc fi ## show the configure settings cat libhdf4.settings libhdf4-4.2.10/HDF_ALT/configure.ac0000644000000000000000000007723512474643754013425 0ustar ## Process this file with autoconf to produce configure. ## ## ## Copyright by The HDF Group. ## Copyright by the Board of Trustees of the University of Illinois. ## All rights reserved. ## ## This file is part of HDF. The full HDF copyright notice, including ## terms governing use, modification, and redistribution, is contained in ## the files COPYING and Copyright.html. COPYING can be found at the root ## of the source code distribution tree; Copyright.html can be found at ## http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have ## access to either file, you may request a copy from help@hdfgroup.org. ## ## AC_REVISION($Id: configure.ac 6079 2014-02-08 00:29:03Z bmribler $) ## ====================================================================== ## Initialize configure. ## ====================================================================== ## AC_INIT takes the name of the package, the version number, and an ## email address to report bugs. AC_CONFIG_SRCDIR takes a unique file ## as its argument. ## ## NOTE: Do not forget to change the version number here when we do a ## release!!! ## AC_INIT([HDF], [4.2.10], [help@hdfgroup.org]) AC_CONFIG_SRCDIR([hdf/src/atom.c]) AC_CONFIG_AUX_DIR([bin]) AC_CONFIG_HEADER([hdf/src/h4config.h]) AC_CONFIG_MACRO_DIR([m4]) ## AM_INIT_AUTOMAKE takes a list of options that should be applied to ## every Makefile.am when automake is run. AM_INIT_AUTOMAKE([foreign]) ## AM_MAINTAINER_MODE turns off "rebuild rules" that contain dependencies ## for Makefiles, configure, etc. If AM_MAINTAINER_MODE ## is *not* included here, these files will be rebuilt if out of date. ## This is a problem because if users try to build on a machine with ## the wrong versions of autoconf and automake, these files will be ## rebuilt with the wrong versions and bad things can happen. ## Also, CVS doesn't preserve dependencies between timestamps, so ## Makefiles will often think rebuilding needs to occur when it doesn't. ## Developers should './configure --enable-maintainer-mode' to turn on ## rebuild rules. AM_MAINTAINER_MODE ## ---------------------------------------------------------------------- ## Set prefix default (install directory) to a directory in the build area. ## This allows multiple src-dir builds within one host. AC_PREFIX_DEFAULT([`pwd`/hdf4]) ## Run post processing on files created by configure. ## src/h4config.h: ## libhdf4.settings: ## Remove all lines begun with "#" which are generated by CONDITIONAL's of ## configure. AC_CONFIG_COMMANDS([h4config], [ echo "modifying hdf/src/h4config.h" sed 's/#define /#define H4_/' < hdf/src/h4config.h |\ sed 's/#undef /#undef H4_/' > h4config cp h4config hdf/src/h4config.h rm -f h4config #if test ! -f hdf/src/h4config.h; then # /bin/mv -f h4config hdf/src/h4config.h # elif (diff h4config hdf/src/h4config.h >/dev/null); then # /bin/rm -f h4config # echo "hdf/src/h4config.h is unchanged" # else # /bin/mv -f h4config hdf/src/h4config.h # fi echo "Post process libhdf4.settings" sed '/^#/d' < libhdf4.settings > libhdf4.settings.TMP cp libhdf4.settings.TMP libhdf4.settings rm -f libhdf4.settings.TMP ]) ## ====================================================================== ## Information on the package ## ====================================================================== ## Dump all shell variables values. AC_MSG_CHECKING([shell variables initial values]) set >&AS_MESSAGE_LOG_FD AC_MSG_RESULT([done]) AC_CANONICAL_HOST AC_MSG_CHECKING([if basename works]) BASENAME_TEST="`basename /foo/bar/baz/qux/basename_works`" if test $BASENAME_TEST != "basename_works"; then AC_MSG_ERROR([basename program doesn't work]) else AC_MSG_RESULT([yes]) fi AC_MSG_CHECKING([if xargs works]) XARGS_TEST="`echo /foo/bar/baz/qux/xargs_works | xargs basename`" if test $XARGS_TEST != "xargs_works"; then AC_MSG_ERROR([xargs program doesn't work]) else AC_MSG_RESULT([yes]) fi ## Source any special files that we need. These files normally aren't ## present but can be used by the maintainers to fine tune things like ## turning on debug or profiling flags for the compiler. The search order ## is: ## ## CPU-VENDOR-OS ## VENDOR-OS ## CPU-OS ## CPU-VENDOR ## OS ## VENDOR ## CPU ## ## If the `OS' ends with a version number then remove it. For instance, ## `freebsd3.1' would become `freebsd' ## case "$host_os" in aix4.*) host_os_novers="aix4.x" ;; aix5.*) host_os_novers="aix5.x" ;; darwin10.*) host_os_novers="darwin10.x" ;; darwin11.*) host_os_novers="darwin11.x" ;; darwin12.*) host_os_novers="darwin12.x" ;; freebsd*) host_os_novers="freebsd" ;; solaris2.*) host_os_novers="solaris2.x" ;; *) host_os_novers="$host_os" ;; esac host_config="none" for f in $host_cpu-$host_vendor-$host_os \ $host_cpu-$host_vendor-$host_os_novers \ $host_vendor-$host_os \ $host_vendor-$host_os_novers \ $host_cpu-$host_os \ $host_cpu-$host_os_novers \ $host_cpu-$host_vendor \ $host_os \ $host_os_novers \ $host_vendor \ $host_cpu ; do AC_MSG_CHECKING([for config $f]) if test -f "$srcdir/config/$f"; then host_config=$srcdir/config/$f AC_MSG_RESULT([found]) break fi AC_MSG_RESULT([no]) done if test "X$host_config" != "Xnone"; then CC_BASENAME="`echo $CC | cut -f1 -d' ' | xargs basename 2>/dev/null`" F77_BASENAME="`echo $F77 | cut -f1 -d' ' | xargs basename 2>/dev/null`" CXX_BASENAME="`echo $CXX | cut -f1 -d' ' | xargs basename 2>/dev/null`" . $host_config fi ## ====================================================================== ## Checks for NetCDF-2.3.2 support ## ====================================================================== # We disable Fortran netCDF APIs and their testing when --disable-netcdf is used. # Let's define a proper variable to be used in mfhdf/testfortran.sh.in to run # the netCDF Fortran APIs test program "ftest". AC_SUBST(TEST_FORTRAN_NETCDF) TEST_FORTRAN_NETCDF="yes" AC_ARG_ENABLE([netcdf], [AS_HELP_STRING([--enable-netcdf], [Build HDF4 versions of NetCDF APIs (version 2.3.2) [default=yes]])],, [enableval="yes"]) case "$enableval" in yes) BUILD_NETCDF="yes" AC_DEFINE([HAVE_NETCDF], [1], [Define if we support HDF NetCDF APIs version 2.3.2]) ;; no) BUILD_NETCDF="no" TEST_FORTRAN_NETCDF="no" ;; esac AM_CONDITIONAL([HDF_BUILD_NETCDF], [test "X$BUILD_NETCDF" = "Xyes"]) AC_SUBST([BUILD_NETCDF]) ## ====================================================================== ## Checks for programs ## ====================================================================== AC_PROG_MAKE_SET AC_PROG_CC AC_PROG_CPP AC_PROG_CXX AC_ARG_ENABLE([fortran], [AS_HELP_STRING([--enable-fortran], [Build Fortran into library [default=yes]])],, [enableval="yes"]) case "$enableval" in yes) BUILD_FORTRAN="yes" AC_PROG_F77 AC_F77_WRAPPERS if test "X$F77" = "X"; then BUILD_FORTRAN="no" fi ;; no) BUILD_FORTRAN="no" F77="no" ;; esac AM_CONDITIONAL([HDF_BUILD_FORTRAN], [test "X$BUILD_FORTRAN" = "Xyes"]) AC_SUBST([BUILD_FORTRAN]) ## ------------------------------------------------------------------------- ## Build static libraries by default. Furthermore, fortran shared libraries ## are unsupported. Disallow a user from enabling both shared libraries and ## fortran. if test "X${enable_shared}" != "Xyes"; then enable_shared="no" fi if test "X${enable_shared}" = "Xyes"; then if test "X${BUILD_FORTRAN}" = "Xyes"; then AC_MSG_ERROR([Cannot build shared fortran libraries. Please configure with --disable-fortran flag.]) fi fi AC_PROG_INSTALL AC_PROG_LN_S AC_CHECK_PROGS([AR], [ar xar], [:], [$PATH]) AC_CHECK_PROGS([YACC], ['bison -y' byacc yacc], [none], []) if test "$YACC" = "none"; then AC_MSG_ERROR([cannot find yacc utility]) fi AC_CHECK_PROGS([LEX], [flex lex], [none], []) if test "$LEX" = "none"; then AC_MSG_ERROR([cannot find lex utility]) fi AC_CHECK_PROG([DIFF], [diff], [diff -w]) AC_CHECK_PROG([MAKEINFO], [makeinfo], [makeinfo]) AC_CHECK_PROG([NEQN], [neqn], [neqn]) AC_CHECK_PROG([TBL], [tbl], [tbl]) AC_SUBST([AR]) AC_SUBST([DIFF]) AC_SUBST([STATIC_SHARED]) AC_SUBST([SHARED_EXTENSION]) AC_SUBST([enable_shared]) AC_SUBST([enable_static]) AC_SUBST([UNAME_INFO]) UNAME_INFO=`uname -a` AC_SUBST([STATIC_EXEC]) STATIC_EXEC=no AC_SUBST([LT_STATIC_EXEC]) ## ====================================================================== ## Libtool initialization ## ====================================================================== LT_INIT([dlopen disable-shared]) LT_OUTPUT ## ---------------------------------------------------------------------- ## Check if we should install only statically linked executables. ## This check needs to occur after libtool is initialized because ## we check a libtool cache value and may issue a warning based ## on its result. AC_MSG_CHECKING([if we should install only statically linked executables]) AC_ARG_ENABLE([static_exec], [AS_HELP_STRING([--enable-static-exec], [Install only statically linked executables [default=no]])], [STATIC_EXEC=$enableval]) if test "X$STATIC_EXEC" = "Xyes"; then echo "yes" ## Issue a warning if -static flag is not supported. if test "X$lt_cv_prog_compiler_static_works" = "Xno"; then echo " warning: -static flag not supported on this system; executable won't statically link shared system libraries." fi LT_STATIC_EXEC="-all-static" else echo "no" LT_STATIC_EXEC="" fi AC_SUBST([LT_STATIC_EXEC]) ## ====================================================================== ## Checks for libraries ## ====================================================================== ## ---------------------------------------------------------------------- ## Fake --with-xxx option to allow us to create a help message for the ## following --with-xxx options which can take either a =DIR or =INC,LIB ## specifier. ## AC_ARG_WITH([fnord], [ For the following --with-xxx options, you can specify where the header files and libraries are in two different ways: --with-xxx=INC,LIB - Specify individually the include directory and library directory separated by a comma --with-xxx=DIR - Specify only the directory which contains the include/ and lib/ subdirectories ]) ## ---------------------------------------------------------------------- ## Is the GNU zlib present? It has a header file `zlib.h' and a library ## `-lz' and their locations might be specified with the `--with-zlib' ## command-line switch. The value is an include path and/or a library path. ## If the library path is specified then it must be preceded by a comma. AC_ARG_WITH([zlib], [AS_HELP_STRING([--with-zlib=DIR], [Use zlib library [default=yes]])],, [withval=yes]) case "$withval" in yes) HAVE_ZLIB="yes" AC_CHECK_HEADERS([zlib.h], [HAVE_ZLIB_H="yes"], [unset HAVE_ZLIB]) if test "x$HAVE_ZLIB" = "xyes" -a "x$HAVE_ZLIB_H" = "xyes"; then AC_CHECK_LIB([z], [compress2],, [unset HAVE_ZLIB]) fi if test -z "$HAVE_ZLIB"; then if test -n "$HDF5_CONFIG_ABORT"; then AC_MSG_ERROR([couldn't find zlib library]) fi else AC_CHECK_FUNC([compress2], [HAVE_COMPRESS2="yes"]) fi ;; no) HAVE_ZLIB="no" AC_MSG_ERROR([zlib library required to build HDF4]) ;; *) HAVE_ZLIB="yes" case "$withval" in *,*) zlib_inc="`echo $withval | cut -f1 -d,`" zlib_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then zlib_inc="$withval/include" zlib_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$zlib_inc" = "X/usr/include"; then zlib_inc="" fi if test "X$zlib_lib" = "X/usr/lib"; then zlib_lib="" fi if test -n "$zlib_inc"; then CPPFLAGS="$CPPFLAGS -I$zlib_inc" fi AC_CHECK_HEADERS([zlib.h], [HAVE_ZLIB_H="yes"], [unset HAVE_ZLIB]) if test -n "$zlib_lib"; then LDFLAGS="$LDFLAGS -L$zlib_lib" fi if test "x$HAVE_ZLIB" = "xyes" -a "x$HAVE_ZLIB_H" = "xyes"; then AC_CHECK_LIB([z], [compress2],, [unset HAVE_ZLIB]) fi if test -z "$HAVE_ZLIB"; then AC_MSG_ERROR([couldn't find zlib library]) else AC_CHECK_FUNC([compress2], [HAVE_COMPRESS2="yes"]) fi ;; esac ## ---------------------------------------------------------------------- ## Is the JPEG library present? AC_ARG_WITH([jpeg], [AS_HELP_STRING([--with-jpeg=DIR], [Use jpeg library [default=yes]])],, [withval=yes]) case "$withval" in yes) HAVE_JPEG="yes" AC_CHECK_HEADERS([jpeglib.h], [HAVE_JPEG_H="yes"], [unset HAVE_JPEG]) if test "x$HAVE_JPEG" = "xyes" -a "x$HAVE_JPEG_H" = "xyes"; then AC_CHECK_LIB([jpeg], [jpeg_start_decompress],, [unset HAVE_JPEG]) fi if test -z "$HAVE_JPEG"; then AC_MSG_ERROR([couldn't find jpeg library]) fi ;; no) HAVE_JPEG="no" AC_MSG_ERROR([jpeg library required to build HDF4]) ;; *) HAVE_JPEG="yes" case "$withval" in *,*) jpeg_inc="`echo $withval | cut -f1 -d,`" jpeg_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then jpeg_inc="$withval/include" jpeg_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$jpeg_inc" = "X/usr/include"; then jpeg_inc="" fi if test "X$jpeg_lib" = "X/usr/lib"; then jpeg_lib="" fi if test -n "$jpeg_inc"; then CPPFLAGS="$CPPFLAGS -I$jpeg_inc" fi AC_CHECK_HEADERS([jpeglib.h], [HAVE_JPEG_H="yes"], [unset HAVE_JPEG]) if test -n "$jpeg_lib"; then LDFLAGS="$LDFLAGS -L$jpeg_lib" fi if test "x$HAVE_JPEG" = "xyes" -a "x$HAVE_JPEG_H" = "xyes"; then AC_CHECK_LIB([jpeg], [jpeg_start_decompress],, [unset HAVE_JPEG]) fi if test -z "$HAVE_JPEG"; then AC_MSG_ERROR([couldn't find jpeg library]) fi ;; esac ## ---------------------------------------------------------------------- ## Is the szip library present? AC_SUBST(USE_COMP_SZIP) USE_COMP_SZIP="no" AC_ARG_WITH([szlib], [AS_HELP_STRING([--with-szlib=DIR], [Use szlib library [default=no]])],, [withval=no]) case "$withval" in yes) HAVE_SZIP="yes" AC_CHECK_HEADERS([szlib.h], [HAVE_SZLIB_H="yes"], [unset HAVE_SZIP]) if test "x$HAVE_SZLIB" = "xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then AC_CHECK_LIB([sz], [SZ_BufftoBuffCompress],, [unset HAVE_SZIP]) fi if test -z "$HAVE_SZIP"; then AC_MSG_ERROR([couldn't find szlib library]) fi ;; no) HAVE_SZIP="no" AC_MSG_CHECKING([for szlib]) AC_MSG_RESULT([suppressed]) SZIP_INFO="${SZIP_INFO}disabled" ;; *) HAVE_SZIP="yes" case "$withval" in *,*) szip_inc="`echo $withval | cut -f1 -d,`" szip_lib="`echo $withval | cut -f2 -d, -s`" ;; *) if test -n "$withval"; then szip_inc="$withval/include" szip_lib="$withval/lib" fi ;; esac ## Trying to include -I/usr/include and -L/usr/lib is redundant and ## can mess some compilers up. if test "X$szip_inc" = "X/usr/include"; then szip_inc="" fi if test "X$szip_lib" = "X/usr/lib"; then szip_lib="" fi if test -n "$szip_inc"; then CPPFLAGS="$CPPFLAGS -I$szip_inc" fi AC_CHECK_HEADERS([szlib.h], [HAVE_SZLIB_H="yes"], [unset HAVE_SZIP]) if test -n "$szip_lib"; then LDFLAGS="$LDFLAGS -L$szip_lib" fi if test "x$HAVE_SZIP" = "xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then AC_CHECK_LIB([sz], [SZ_BufftoBuffCompress],, [unset HAVE_SZIP]) fi if test -z "$HAVE_SZIP"; then AC_MSG_ERROR([couldn't find szlib library]) else USE_COMP_SZIP="yes" fi ;; esac ## Check to see if SZIP has encoder if test "X$HAVE_SZIP" = "Xyes" -a "x$HAVE_SZLIB_H" = "xyes"; then ## SZLIB library is available. Check if it can encode. AC_MSG_CHECKING([for szlib encoder]) ## Set LD_LIBRARY_PATH so encoder test can find the library and run. if test -z "$LD_LIBRARY_PATH"; then export LD_LIBRARY_PATH="$szip_lib" else export LD_LIBRARY_PATH="${szip_lib}:$LD_LIBRARY_PATH" fi AC_SUBST([LL_PATH]) LL_PATH="$LD_LIBRARY_PATH" AC_TRY_RUN([ #include #include int main(void) { /* SZ_encoder_enabled returns 1 if encoder is present */ if (SZ_encoder_enabled() == 1) exit(0); else exit(1); } ], [CAN_ENCODE="yes"], [CAN_ENCODE="no"],) ## Report szip encoder test results if test "X$CAN_ENCODE" = "Xyes"; then AC_MSG_RESULT([yes]) fi if test "X$CAN_ENCODE" = "Xno"; then AC_MSG_RESULT([no]) fi ## Add "szip" to external filter list if test "X$CAN_ENCODE" = "Xyes"; then if test "X$SZIP_INFO" != "X"; then SZIP_INFO="${SZIP_INFO}" fi SZIP_INFO="${SZIP_INFO}enabled with encoder" fi if test "X$CAN_ENCODE" = "Xno"; then if test "X$SZIP_INFO" != "X"; then SZIP_INFO="${SZIP_INFO}" fi SZIP_INFO="${SZIP_INFO}enabled with decoder only" fi ## Create macro to specify if encoder is present if test "X$CAN_ENCODE" = "Xyes"; then AC_DEFINE([HAVE_SZIP_ENCODER], [1], [Define if szip has encoder]) SZIP_HAS_ENCODER="yes" fi fi AC_SUBST([SZIP_INFO]) AM_CONDITIONAL([BUILD_SHARED_SZIP_CONDITIONAL], [test "X$USE_COMP_SZIP" = "Xyes" && test "X$LL_PATH" != "X"]) ## ---------------------------------------------------------------------- ## Is XDR support present? The TRY_LINK info was gotten from the ## mfhdf/libsrc/local_nc.c file. AC_MSG_CHECKING([for xdr library support]) AC_ARG_ENABLE([hdf4-xdr], [AS_HELP_STRING([--enable-hdf4-xdr], [Build xdr library from code in HDF4 source. Not supported for 64 bit mode. [default="no"]])], [enableval="yes"],[enableval="no"]) case "$enableval" in yes) BUILD_XDR="yes" AC_MSG_RESULT([using HDF4 XDR]); ;; no) BUILD_XDR="no" ;; esac if test "X$BUILD_XDR" != "Xyes"; then AC_TRY_LINK([ #include #include ], [xdr_int], [AC_MSG_RESULT([yes]); BUILD_XDR="no"], [AC_MSG_RESULT([no]); BUILD_XDR="yes"]) fi AM_CONDITIONAL([HDF_BUILD_XDR], [test "X$BUILD_XDR" = "Xyes"]) ## Check headers and add libraries for XDR if the HDF4 XDR library is not used. if test "X$BUILD_XDR" != "Xyes"; then ## For Solaris systems, add the -nsl for XDR support ## ## The SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library for IPv6 support case "$host" in *-solaris*) LIBS="$LIBS -lnsl" ;; *-pc-cygwin*) LIBS="$LIBS -ltirpc" ;; *) ;; esac ## ====================================================================== ## Checks for header files ## ====================================================================== ## ---------------------------------------------------------------------- ## We're trying to link against the rpc library when building on Cygwin, ## but we need to make sure that it is present on the system. Do that here, ## The SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library for IPv6 support case "$host" in *-pc-cygwin*) HAVE_RPC="yes" AC_CHECK_HEADER([rpc.h],[:], [unset HAVE_RPC]) AC_CHECK_LIB([tirpc], [xdr_opaque],[:], [unset HAVE_RPC]) if test -z "$HAVE_RPC"; then AC_MSG_ERROR([couldn't find tirpc library]) fi ;; esac fi AC_HEADER_STDC ## ====================================================================== ## Checks for types ## ====================================================================== ## ====================================================================== ## Checks for structures ## ====================================================================== ## ====================================================================== ## Checks for compiler characteristics ## ====================================================================== AC_PROG_CC_C_O AC_PROG_CXXCPP if test "X$BUILD_FORTRAN" = "Xyes"; then AC_PROG_F77_C_O fi ## This is a bit of a hack. The AC_CHECK_SIZEOF macro is supposed to ## #define a value in a header file. However, we don't use a generated ## header file. So I check the value left over from autoconf's test is ## >= 8. AC_CHECK_SIZEOF([int*]) if test $ac_cv_sizeof_intp -ge 8; then CPPFLAGS="$CPPFLAGS -DBIG_LONGS" ## Define super secret special flag for AIX machines in 64-bit mode. case "${host}" in *-ibm-aix*) CPPFLAGS="$CPPFLAGS -DAIX5L64" ;; *) ;; esac if test "X$BUILD_XDR" = "Xyes"; then AC_MSG_ERROR([--enable-hdf4-xdr is not supported for 64 bit mode.]) fi fi ## ---------------------------------------------------------------------- ## Set some variables for general configuration information to be saved ## and installed with the libraries. ## ## HDF4 version from the first line of the README.txt file. H4_VERSION="`cut -d' ' -f3 $srcdir/README.txt | head -1`" AC_SUBST([H4_VERSION]) ## Configuration date AC_SUBST([CONFIG_DATE]) CONFIG_DATE="`date`" ## User doing the configuration AC_SUBST([CONFIG_USER]) CONFIG_USER="`whoami`@`hostname`" ## Configuration mode (production, development, etc) AC_SUBST([CONFIG_MODE]) AC_C_BIGENDIAN([], [CPPFLAGS="$CPPFLAGS -DSWAP"]) ## Are we building this in debug or production mode? (Remove the -g flag ## in production mode.) AC_MSG_CHECKING([for build mode]) AC_ARG_ENABLE([production], [AS_HELP_STRING([--enable-production], [Determines how to run the compiler.])]) case "X-$enable_production" in X-|X-yes) AC_MSG_RESULT([production]) CONFIG_MODE=production ## Remove the "-g" flag from compile line if it's in there. CFLAGS_temp="" if test -n "$CFLAGS"; then for d in $CFLAGS ; do if test "X$d" != "X-g"; then CFLAGS_temp="$CFLAGS_temp $d" fi done CFLAGS=$CFLAGS_temp fi FFLAGS_temp="" if test -n "$FFLAGS"; then for d in $FFLAGS ; do if test "X$d" != "X-g"; then FFLAGS_temp="$FFLAGS_temp $d" fi done FFLAGS=$FFLAGS_temp fi CXXFLAGS_temp="" if test -n "$CXXFLAGS"; then for d in $CXXFLAGS ; do if test "X$d" != "X-g"; then CXXFLAGS_temp="$CXXFLAGS_temp $d" fi done CXXFLAGS=$CXXFLAGS_temp fi CFLAGS="$CFLAGS $PROD_CFLAGS" CXXFLAGS="$CXXFLAGS $PROD_CXXFLAGS" FFLAGS="$FFLAGS $PROD_FFLAGS" CPPFLAGS="$CPPFLAGS $PROD_CPPFLAGS" ;; X-no) AC_MSG_RESULT([development]) CONFIG_MODE=development CFLAGS="$CFLAGS $DEBUG_CFLAGS" FFLAGS="$FFLAGS $DEBUG_FFLAGS" CXXFLAGS="$CXXFLAGS $DEBUG_CXXFLAGS" CPPFLAGS="$CPPFLAGS $DEBUG_CPPFLAGS" ;; *) AC_MSG_RESULT([user-defined]) ;; esac ## ====================================================================== ## Checks for library functions ## ====================================================================== AC_MSG_CHECKING([for math library support]) AC_TRY_LINK([#include ], [sinh(37.927)], [AC_MSG_RESULT([yes])], [AC_MSG_RESULT([no]); LIBS="$LIBS -lm"]) AC_CHECK_FUNCS([fork system vfork wait]) ## ====================================================================== ## Checks for system services ## ====================================================================== ## Copy NetCDF header files. # ## FIXME: This is code stolen^Wborrowed from the old HDF4 configure. ## These header files should probably be generated by autoconf instead ## of being copied depending upon the host. case "$host" in *-linux*|*-k*bsd*-gnu|*-gnu*)BAR="linux" ;; *-freebsd*) BAR="fbsd" ;; *-ibm-aix*) BAR="aix" ;; sparc64-*-solaris2*) BAR="solaris64" ;; *-*-solaris2*) BAR="solaris" ;; *-apple*) BAR="apple" ;; *-pc-cygwin*) BAR="linux" ;; *) echo "*** unknown host $host!"; exit 1 ;; esac src_files="" src_files="`echo $src_files | sed -e s/FOO/${BAR}/g`" for config_file in $src_files; do src_file="${srcdir}/`echo $config_file | sed -e s/:.*$//`" target_file="`echo $config_file | sed -e s/^[[^:]]*://g`" if test ! -r ${src_file}; then echo '***' "${progname}: cannot copy file \"${target_file}\"," 1>&2 echo '***' "since the file \"${src_file}\" does not exist." 1>&2 exit 1 fi ## this sed command emulates the dirname command dstdir=`echo "$target_file" | sed -e 's,[[^/]]*$,,;s,/$,,;s,^$,.,'` ## Create directory for the target_file if it's not there. if test ! -d $dstdir; then ${srcdir}/bin/mkinstalldirs $dstdir fi echo "Copying \"${src_file}\" to \"${target_file}\" ." cp ${src_file} ${target_file} if test ! -r ${target_file}; then echo '***' "${progname}: cannot copy file \"${target_file}\"," 1>&2 exit 1 fi done ## ------------------------------------------------------------------------ ## Check to see if libtool has enabled shared libraries. Set a conditional ## as some Makefiles will build based on availability of shared libraries. if (./libtool --features | grep '^enable shared libraries' > /dev/null); then enable_shared=yes else enable_shared=no fi ## ------------------------------------------------------------------------ ## Specify shared library extension the host machine should recognize. case "$host_os" in darwin*) SHARED_EXTENSION="dylib" ;; *) SHARED_EXTENSION="so" ;; esac ## We don't need to say when we're entering directories if we're using ## GNU make because make does it for us. if test "X$GMAKE" = "Xyes"; then AC_SUBST([SETX]) SETX=":" else AC_SUBST([SETX]) SETX="set -x" fi AM_CONDITIONAL([HDF_BUILD_SHARED], [test "X$enable_shared" = "Xyes"]) ## Compiler with version information. This consists of the full path ## name of the compiler and the reported version number. AC_SUBST([CC_VERSION]) ## Strip anything that looks like a flag off of $CC CC_NOFLAGS=`echo $CC | sed 's/ -.*//'` if `echo $CC_NOFLAGS | grep ^/ >/dev/null 2>&1`; then CC_VERSION="$CC" else CC_VERSION="$CC"; for x in `echo $PATH | sed -e 's/:/ /g'`; do if test -x $x/$CC_NOFLAGS; then CC_VERSION="$x/$CC" break fi done fi ## ---------------------------------------------------------------------- ## ## If --enable-static-exec and are specified together, there will be ld failures for ## "attempted static link of dynamic object" when the tools are built. This check ## will prevent that error during configure instead. It could go with the other ## --enable-static-exec checks, but since enable_static is set by default later in ## the configure process this check has to be delayed. if test "X$STATIC_EXEC" = "Xyes"; then if test "X${enable_static}" != "Xyes"; then AC_MSG_ERROR([--enable-static-exec flag to build static executables requires static libraries. Please configure with --enable-static flag.]) fi fi ## This part doesn't work yet since HDF4 config files do not contain ## information for cc_vendor and cc_version as HDF5 similar files do. ## Needs to be fixed EIP 2010-01-21 ## if test -n "$cc_vendor" && test -n "$cc_version"; then ## CC_VERSION="$CC_VERSION ($cc_vendor-$cc_version)" ## fi if test -n "$cc_version_info"; then CC_VERSION="$CC_VERSION ( $cc_version_info)" fi ## Fortran compiler with version information. This consists of the full path ## name of the compiler and the reported version number. AC_SUBST([F77_VERSION]) ## Strip anything that looks like a flag off of $F77 F77_NOFLAGS=`echo $F77 | sed 's/ -.*//'` if `echo $F77_NOFLAGS | grep ^/ >/dev/null 2>&1`; then F77_VERSION="$F77" else F77_VERSION="$F77"; for x in `echo $PATH | sed -e 's/:/ /g'`; do if test -x $x/$F77_NOFLAGS; then F77_VERSION="$x/$F77" break fi done fi if test -n "$fc_version_info"; then F77_VERSION="$F77_VERSION ( $fc_version_info)" fi ## This part doesn't work yet since HDF4 config files do not contain ## information for fortran_vendor and fortran_version. ## Needs to be fixed EIP 2010-01-21 ## if test -n "$fortran_vendor" && test -n "$fortran_version"; then ## F77_VERSION="$F77_VERSION ($fortran_vendor-$fortran_version)" ## fi ## ---------------------------------------------------------------------- ## Enable deprecated public API symbols ## AC_SUBST([DEPRECATED_SYMBOLS]) AC_MSG_CHECKING([if deprecated public symbols are available]); AC_ARG_ENABLE([deprecated-symbols], [AS_HELP_STRING([--enable-deprecated-symbols], [Enable deprecated public API symbols [default=yes]])], [DEPREC_SYMBOLS=$enableval], [DEPREC_SYMBOLS=yes]) case "X-$DEPREC_SYMBOLS" in X-yes) AC_MSG_RESULT([yes]) DEPRECATED_SYMBOLS=yes ;; X-no|*) AC_MSG_RESULT([no]) DEPRECATED_SYMBOLS=no AC_DEFINE([NO_DEPRECATED_SYMBOLS], [1], [Define if deprecated public API symbols are disabled]) ;; esac AC_CONFIG_FILES([Makefile libhdf4.settings hdf/Makefile hdf/examples/Makefile hdf/fortran/Makefile hdf/fortran/examples/Makefile hdf/src/Makefile hdf/test/Makefile hdf/util/Makefile hdf/util/h4cc hdf/util/h4fc hdf/util/h4redeploy hdf/util/testutil.sh man/Makefile mfhdf/fortran/ftest.f mfhdf/fortran/jackets.c mfhdf/fortran/netcdf.inc mfhdf/libsrc/netcdf.h mfhdf/Makefile mfhdf/dumper/Makefile mfhdf/dumper/testhdp.sh mfhdf/examples/Makefile mfhdf/examples/testexamples.sh mfhdf/fortran/Makefile mfhdf/fortran/examples/Makefile mfhdf/fortran/testfortran.sh mfhdf/hdfimport/Makefile mfhdf/hdfimport/testutil.sh mfhdf/hdiff/Makefile mfhdf/hdiff/testhdiff.sh mfhdf/hrepack/Makefile mfhdf/hrepack/hrepack_all.sh mfhdf/libsrc/Makefile mfhdf/ncdump/Makefile mfhdf/ncdump/testncdump.sh mfhdf/ncgen/Makefile mfhdf/ncgen/testncgen.sh mfhdf/nctest/Makefile mfhdf/test/Makefile mfhdf/test/testmfhdf.sh mfhdf/xdr/Makefile]) AC_OUTPUT ## A temporary patch. These code were after where it did ## cp config/netcdf-XXX.h netcdf.h before. ## Moved it here after AC_CONFIG_FILES(... mfhdf/libsrc/netcdf.h ). ## Need a better and correct solution. ## if test "X$BUILD_NETCDF" != "Xyes"; then echo "Renaming \"mfhdf/libsrc/netcdf.h\" to \"mfhdf/libsrc/hdf4_netcdf.h\" ." mv mfhdf/libsrc/netcdf.h mfhdf/libsrc/hdf4_netcdf.h fi chmod 755 hdf/util/h4cc hdf/util/h4redeploy if test "X$BUILD_FORTRAN" = "Xyes"; then chmod 755 hdf/util/h4fc fi ## show the configure settings cat libhdf4.settings libhdf4-4.2.10/HDF_ALT/UserMacros.cmake0000644000000000000000000000210112421456623014165 0ustar ######################################################## # Include file for user options ######################################################## #----------------------------------------------------------------------------- #------------------- E X A M P L E B E G I N-------------------------------- #----------------------------------------------------------------------------- # Option to Build with User Defined Values #----------------------------------------------------------------------------- MACRO (MACRO_USER_DEFINED_LIBS) SET (USER_DEFINED_VALUE "FALSE") ENDMACRO (MACRO_USER_DEFINED_LIBS) #------------------------------------------------------------------------------- OPTION (BUILD_USER_DEFINED_LIBS "Build With User Defined Values" OFF) IF (BUILD_USER_DEFINED_LIBS) MACRO_USER_DEFINED_LIBS () ENDIF (BUILD_USER_DEFINED_LIBS) #----------------------------------------------------------------------------- #------------------- E X A M P L E E N D ----------------------------------- #----------------------------------------------------------------------------- libhdf4-4.2.10/HDF_ALT/release_notes/0000755000000000000000000000000012421456623013736 5ustar libhdf4-4.2.10/HDF_ALT/release_notes/USING_CMake_Examples.txt0000644000000000000000000000743312421456623020271 0ustar ************************************************************************ * Build and Test HDF4 Examples with CMake * ************************************************************************ This short set of instructions is for users who want to quickly test the installation of HDF4 by using the CMake tools to build and test the HDF4 examples. These instructions will show the default usage and then present common changes for non-default installations. For more information, see the USING_HDF4_CMake.txt file. More information about using CMake can be found at the KitWare site at www.cmake.org. CMake uses the command line, and these instructions use the script method of the ctest command. ======================================================================== I. Preconditions ======================================================================== 1. We suggest you obtain the latest CMake for Windows from the Kitware web site. The HDF 4.2.x product requires a minimum CMake version of 2.8.10. 2. You have installed the HDF4 Library built with CMake by executing the HDF Install Utility (the *.exe file in the binary package for Windows or the *.sh file on Linux). If you are using a Windows platform, you can obtain a pre-built Windows binary from The HDF Group's website at www.hdfgroup.org. See the "Common Changes to the HDF4_Examples.cmake File" section below for the line to change the location. 3. On Windows, you have installed the 7Zip package. See the "Common Changes to the HDF4_Examples.cmake File" section below for the line to change the command. ======================================================================== II. Building HDF4 Examples with CMake ======================================================================== Confirm that these files are in the HDF4 install directory: HDF4Examples-0.1.1-Source.zip (or HDF4Examples-0.1.1-Source.tar.gz) HDF4_Examples.cmake Run the default installation process: Create a directory to run the examples, i.e. \test_hdf4. Copy HDF4Examples-0.1.1-Source.zip(.tar.gz) to this directory, do NOT unzip. Copy HDF4_Examples.cmake to this directory. Edit line 8 of the HDF4_Examples.cmake file, and change the INSTALLDIR to the HDF4 install location. Execute from this directory: ctest -S HDF4_Examples.cmake,HDF4Examples-0.1.1-Source -C Release -O test.log The script will uncompress the examples file HDF4Examples-0.1.1-Source.zip (.tar.gz), and create a build directory inside the HDF4Examples-0.1.1-Source directory. It will then configure, build, and execute the examples. All of the log files will be found under the build\Testing\Temporary directory; check these for errors. The amount of script information can be increased by adding -V to the ctest command. Even more information can be shown by adding -VV instead of -V. ======================================================================== III. Common Changes to the HDF4_Examples.cmake File ======================================================================== Line 8: change the INSTALLDIR to a different HDF4 install location. Line 14: uncomment to allow Mac machines to build shared examples. Line 15: comment to build and test Fortran examples. Line 16: uncomment to build and test Fortran examples with the F2003 option. Line 68: change the CTEST_7Z_COMMAND to a different unzip program. libhdf4-4.2.10/HDF_ALT/release_notes/INSTALL_CYGWIN.txt0000644000000000000000000001307412421456623016672 0ustar ************************************************************************ HDF4 Build and Install Instructions for Cygwin ************************************************************************ This document is a instruction on how to build, test and install HDF4 libary on Cygwin. See detailed information in hdf4/INSTALL. NOTE: hdf4 can be built with CMake, see the INSTALL_CMake.txt file for more guidance. Preconditions: -------------- 1. Installed Cygwin 1.7.25 or higher To install the Cygwin net release, go to http://www.cygwin.com and click on "setup-x86.exe" (32-bit installation) under the heading "Current Cygwin DLL version". This will download a GUI installer called setup-x86.exe which can be run to download a complete Cygwin installation via the internet. Then follow the instructions on each screen to install Cygwin. Cygwin uses packages to manage installing various software. Users can choose to install or uninstall certain packages by running setup.exe. http://www.cygwin.com/packages/ provides detailed information about Cygwin packages. Most required dependencies can be satisfied by installing all packages in the "Devel" category. However, please verify that you have installed all packages listed below. 2. Compilers, Libraries and Utilities Installed 2.1 Compilers Supported The following compilers are supported by HDF4 and included in the Cygwin package system: gcc (4.7.3), which includes: gcc4-core : C compiler gcc4-g++ : C++ compiler gcc4-fortran : fortran compiler 2.1.1 Using Compilers Not Supported By default the current configuration uses vendor compilers; to use another compiler run the following commands before running configure: setenv CC "foo -flags" setenv F77 "fffoo -flags" See the configure help page (configure --help) for a list of environment variables that have an affect on building the library. 2.2 Libraries Installed The following libraries are required to build HDF4: libjpeg-devel : JPEG library tirpc : RPC library zlib : Zlib compression library Back in 2005, the SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library to support IPv6. Note that HDF4 configure expects to find the library with the name libtirpc.a, since Cygwin 1.7.7. HDF4 also requires xdr support which is not provided by the Cygwin version of tirpc. HDF4 provides a library for xdr support when the configure flag --enable-hdf4-xdr is specified (see note 3 in the section "Build, Test and Install HDF4 on Cygwin"). HDF4 may be configured to use the SZIP compression Library. For more information about the SZIP library, see http://hdfgroup.org/doc_resource/SZIP/ The SZIP compression library is free for non-commercial use; see http://hdfgroup.org/doc_resource/SZIP/Commercial_szip.html for information regarding commercial use. The szip library is not distributed with the Cygwin packaging system. However, a recent Cygwin binary can be found at: ftp://ftp.hdfgroup.org/lib-external/szip/2.0/bin/cygwin/ 2.3 Additional Utilities The following standard utilities are also required to build and test HDF4: bison : yacc implementation diffutils : diff command flex : flex utility make : make utility 2.4 Alternate Build Process Download the CMake package and follow the notes in the "INSTALL_CMake.txt" file to build HDF4 with the CMake utilities. Build, Test and Install HDF4 on Cygwin -------------------------------------- Notes: Use the configure command in the top level HDF4 directory. 1. HDF4 Source code and precompiled binaries HDF provides "tar source ball" and precompiled binaries from the HDF ftp server (ftp.hdfgroup.org) in the directories: ftp://ftp.hdfgroup.org/HDF/HDF_Current/src ftp://ftp.hdfgroup.org/HDF/HDF_Current/bin 2. Unpacking the distribution gzip -cd | tar xvf - 3. To configure ./configure <--disable-fortran> --enable-hdf4-xdr --with-zlib=/path_to_ZLIB_install_directory --with-jpeg=/path_to_JPEG_install_directory <--with-szlib=/path_to_SZIP_install_directory> --prefix=/path_to_HDF4_install_directory * Please note that when szlib option is not used, SZIP Library will not be configured in and SZIP compression will not be enabled. * If your system has ZLIB and/or JPEG libraries installed under a system library directory (such as /usr/lib), configure will automatically find the library. In this case, the corresponding configure flag may be omitted. * Note that --prefix defines where the installation path is. The default is set as /NewHDF 4. To Build and Test: 4.1 To build the library make >& make.out 4.2 To build and run the tests make check >& check.out 5. To Install: make install Acknowledgements: ----------------- HDF group would like to thank Xinmin Hua(NASA/GSFC) for his help to make HDF4 work on Cygwin. ----------------------------------------------------------------------- Need Further assistance, email help@hdfgroup.org libhdf4-4.2.10/HDF_ALT/release_notes/INSTALL0000644000000000000000000001450112421456623014770 0ustar Installation Instructions for HDF4 on Unix and Mac OSX Platforms =================================================================== CONTENTS 1. Third-party Software Requirements 2. Optional Szip Compression Library 3. HDF4 Source Code and Precompiled Binaries 4. Unix and Mac OSX Configuration and Build 5. Using HDF/MFHDF Libraries with the netCDF Library (libnetcdf.a) 1. Third-party Software Requirements ================================= C and Fortran compilers. If a Fortran compiler is not available, use the --disable-fortran configure flag to build the HDF4 C library and utilties. For the list of the supported compilers see RELEASE.txt in the release_notes directory. JPEG Distribution Release 6b or Later (libjpeg.a(so)). The source code can be downloaded from http://www.ijg.org/. ZLIB 1.1.4(libz.a) or later. The source code and binaries may be downloaded from http://www.gzip.org/. They are also available on The HDF Group's FTP server at ftp://ftp.hdfgroup.org/lib-external/zlib/. 2. Optional Szip Compression Library ================================= HDF4 may be configured to use the Szip compression Library. For more information about the Szip library, see http://hdfgroup.org/doc_resource/SZIP/. The Szip compression library is free for non-commercial use; see http://hdfgroup.org/doc_resource/SZIP/Commercial_szip.html for information regarding commercial use. 3. HDF4 Source Code and Precompiled Binaries ========================================= The HDF Group (THG) provides a "tar source ball" and precompiled binaries from the company's FTP server at these locations: ftp://ftp.hdfgroup.org/HDF/HDF_Current/src ftp://ftp.hdfgroup.org/HDF/HDF_Current/bin Starting with the HDF 4.2.6 release, binaries are packed with the ZLIB, JPEG, and Szip libraries used to build the binaries. HDF4 prebuilt utilties come with Szip compression. To use these binaries, you must install the Szip Library on your system. Precompiled Szip binaries can be downloaded from: ftp://ftp.hdfgroup.org/lib-external/szip/2.0/bin/ Source code for the Szip library can be found on the same server: ftp://ftp.hdfgroup.org/lib-external/szip/2.1/src To build the Szip library, follow the instructions in the Szip source code distribution. 4. Unix and Mac OSX Configuration and Build ======================================= See RELEASE.txt in the release_docs/ subdirectory for the list of platforms tested for this release. Before You Start: 1) Make sure that the ZLIB and JPEG libraries are installed on your system. 2) Optional: Install the Szip version 2.1 library (you may use Szip 2.0 binaries). 3) Extract the source from the hdf-X.Y.Z.tar file and change directory to hdf-X.Y.Z. To Configure: 4) Use the configure command in the top level HDF4 directory hdf-X.Y.Z: ./configure --with-zlib=/path_to_ZLIB_install_directory --with-jpeg=/path_to_JPEG_install_directory <--with-szlib=/path_to_SZIP_install_directory> --prefix=/path_to_HDF4_install_directory * Please note that when the szlib option is not used, the Szip library will not be configured in and Szip compression will not be enabled. * If your system has the ZLIB and/or JPEG libraries installed under a system library directory (such as /usr/lib), configure will automatically find the library. In this case, the corresponding configure flag may be omitted. * Note that --prefix defines where the installation path is. The default is set as /hdf4. To Build and Test: 5) To build the library: gmake >& gmake.out 6) To build and run the tests: gmake check >& check.out To Install: 7) To install the HDF4 library and tools: gmake install 8) To install C and Fortran examples gmake install-examples 9) To test the installation gmake installcheck 10) By default, the current configuration uses vendor compilers; to use another compiler, run the following commands before running configure: setenv CC "foo -flags" setenv F77 "fffoo -flags" See the configure help page (configure --help) for a list of environment variables that have an affect on building the library. 11) You may build HDF4 in a directory other than hdf-X.Y.Z by using the "srcdir" option. Simply create a build directory and type: /configure ... where "..." are your configuration options. 5. Using HDF/MFHDF Libraries with the netCDF Library (libnetcdf.a) =============================================================== To use the HDF/MFHDF libraries (libdf.a, libmfhdf.a) with the netCDF library (libnetcdf.a), the HDF4 distribution must be configured with the --disable-netcdf configuration flag. When this flag is used, the HDF versions of the C netCDF functions (as of netCDF version 2.3.2) are renamed from ncxxx to sd_ncxxx, and HDF Fortran netCDF wrappers are disabled to avoid name clashes with the netCDF C and Fortran functions from libnetcdf.a. Please report all problems to help@hdfgroup.org. 6. Windows Configuration and Build ======================================= See RELEASE.txt in the release_docs/ subdirectory for the list of platforms tested for this release. We now recommend that users build, test, and install HDF4 using CMake. Instructions for building and testing HDF4 using CMake can be found in the INSTALL_CMake.txt file found in this folder. For instructions on building and testing an application with HDF4, see the USING_HDF4_CMake.txt file found in this folder. Users who want to build and run an application with HDF4 in Visual Studio without using CMake should consult the USING_HDF4_VS.txt file. Additional Third-party Software Requirements: 1) Flex and Bison programs are required to build the ncgen utility. 2) Recommended is the Win flex-bison project, a port of Flex & Bison tools to the Windows platform. Download from: http://sourceforge.net/projects/winflexbison 3) CMake version 2.8.11.1 or higher is needed to use Win flex-bison. Using an earlier version of CMake will require renaming the executables without the "win_" prefix. libhdf4-4.2.10/HDF_ALT/release_notes/INSTALL_WINDOWS.txt0000644000000000000000000000135112421456623017017 0ustar *********************************************************************** * HDF4 Build and Install Instructions for Windows * * (Full Version) * *********************************************************************** We now recommend that users build, test, and install HDF4 using CMake. Instructions for building and testing HDF4 using CMake can be found in the INSTALL_CMake.txt file found in this folder. For instructions on building and testing an application with HDF4, see the USING_HDF4_CMake.txt file found in this folder. Users who want to build and run an application with HDF4 in Visual Studio without using CMake should consult the USING_HDF4_VS.txt file. libhdf4-4.2.10/HDF_ALT/release_notes/INSTALL_CMake.txt0000644000000000000000000012053412421456623016652 0ustar ************************************************************************ * Build and Install the HDF4 C/C++ Library with CMake * ************************************************************************ Table of Contents Section I: Quick Step Building HDF4 Libraries with CMake Script Mode Section II: Quick Step Building HDF4 Libraries with CMake Command Mode Section III: Preconditions Section IV: Building HDF4 C/Fortran Libraries with CMake Section V: All Options for HDF4 C/Fortran Libraries with CMake Section VI: User-defined Options for HDF4 Libraries with CMake Section VII: APPENDIX ************************************************************************ ======================================================================== I. Quick Step Building HDF4 Libraries with CMake script mode ======================================================================== This short set of instructions is written for users who want to quickly build the HDF4 Library and tools from the HDF4 source code package using the CMake tools. HDF Group recommends using a ctest script to build HDF4. To build HDF4 with the SZIP, ZLIB and JPEG external libraries you will need to: 1. Create a directory for your development; myhdfstuff. 2. Create a directory for the HDF4 source; hdf4.2.10 in myhdfstuff. 3. Download the SZip.tar.gz, ZLib.tar.gz, and JPEG.tar.gz to your development directory, (See Section VII: APPENDIX for instructions). All are needed if building with external libraries; do not uncompress them. 4. Download or create the CTestScript.cmake file in your development directory, (See Section VII: APPENDIX for instructions and an example). 5. Download or create a platform configuration file in your development directory, (See Section VII: APPENDIX for instructions and an example). This file calls CTestScript.cmake; the platform configuration file can be modified. CTestScript.cmake file should not be modified. 6. From your development directory execute the CTest Script with the following options: ctest -S , -C Release -VV -O hdf4.log 7. This will create an install package in the myhdfstuff/hdf4.2.10/build folder. Where: "configuration file" is the platform configuration file from step 5; HDF4WindowsCMake.cmake, HDF4LinuxCMake.cmake, or HDF4MacCMake.cmake can be downloaded from the HDF Group website. "hdf4src" is the uncompressed HDF4 source code directory. No path should be specified. The -S option uses the script version of ctest. The value for the -C option (as shown above, "-C Release") must match the setting for CTEST_BUILD_CONFIGURATION in the platform configuration file. The -VV option is for verbose; Use -V for less verbose. The "-O hdf4.log" option saves the output to a log file hdf4.log. ======================================================================== II. Quick Step Building HDF4 Libraries with CMake command line mode ======================================================================== This short set of instructions is written for users who want to quickly build the HDF4 Library and tools from the HDF4 source code package using the CMake command line tools. A. Windows Quick Step Building HDF4 Libraries with CMake Using VS2010 Go through these steps: 1. Locate the source files in: c:\MyHDFstuff\hdf4 2. Create a build folder at: c:\MyHDFstuff\hdf4\build 3. Open a command prompt at: c:\MyHDFstuff\hdf4\build 4. Configure the C library, tools, and tests with this command: cmake -G "Visual Studio 10" -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING="SVN" -DHDF4_PACKAGE_EXTLIBS:BOOL=ON -DHDF4_BUILD_TOOLS:BOOL=ON -DHDF4_BUILD_UTILS:BOOL=ON -DBUILD_TESTING:BOOL=ON -DCMAKE_INSTALL_PREFIX:PATH="." .. The two dots on the end of the command is the location of the source. 5. Build the C library, tools, and tests with this command: cmake --build . --config Release 6. Test the C library and tools with this command: ctest . -C Release 7. Create an install image with this command: cpack -C Release CPackConfig.cmake 8. Install with this command: HDF4.2.x-win32.exe B. Linux Quick Step Building HDF4 Libraries with CMake Using GCC Go through these steps: 1. Locate the source files in: ~/MyHDFstuff/hdf4 2. Create a build folder at: ~/MyHDFstuff/hdf4/build 3. Open a command prompt at: ~/MyHDFstuff/hdf4/build 4. Configure the C library, tools, and tests with this command: cmake -G "Unix Makefiles" -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING="SVN" -DHDF4_PACKAGE_EXTLIBS:BOOL=ON -DHDF4_BUILD_TOOLS:BOOL=ON -DHDF4_BUILD_UTILS:BOOL=ON -DBUILD_TESTING:BOOL=ON -DCMAKE_INSTALL_PREFIX:PATH="." .. The two dots on the end of the command is the location of the source. 5. Build the C library, tools, and tests with this command: cmake --build . --config Release 6. Test the C library and tools with this command: ctest . -C Release 7. Create an install image with this command: cpack -C Release CPackConfig.cmake 8. Install with this command: HDF4.2.x-Linux.sh ======================================================================== III. Preconditions ======================================================================== 1. We suggest you obtain the latest CMake for Windows from the Kitware web site. The HDF 4.2.x product requires a minimum CMake version of 2.8.10. 2. HDF4 requires Zlib and JPEG. Szip is optional. Use one of the choices below: A. Download the binary packages and install them in a central location. For example on Windows, create a folder extlibs and install the packages there. This will require telling CMake where the include and binary files are located. B. Use source packages from an SVN server by adding the following CMake options: HDF4_ALLOW_EXTERNAL_SUPPORT:STRING="SVN" JPEG_SVN_URL:STRING="http://some_location/jpeg/trunk" ZLIB_SVN_URL:STRING="http://some_location/zlib/trunk" SZIP_SVN_URL:STRING="http://some_location/szip/trunk" where "some_location" is the URL to the SVN repository. C. (Preferred) Use source packages from a compressed file by adding the following CMake options: HDF4_ALLOW_EXTERNAL_SUPPORT:STRING="TGZ" JPEG_TGZ_NAME:STRING="jpeg_src.ext" ZLIB_TGZ_NAME:STRING="zlib_src.ext" SZIP_TGZ_NAME:STRING="szip_src.ext" TGZPATH:STRING="some_location" where "some_location" is the URL or full path to the compressed file and ext is the type of compression file. See the appendix at the bottom of this file for downloading the files. 3. If you are building under CYGWIN set the following option; HDF4_BUILD_XDR_LIB:BOOL=ON 4. If you are building on Apple Darwin platforms, you should add the following options: A. Compiler choice - use xcode by setting the ENV variables of CC and CXX. B. Shared Fortran is not supported, build static: BUILD_SHARED_LIBS:BOOL=OFF C. Additional options: CMAKE_ANSI_CFLAGS:STRING=-fPIC CTEST_USE_LAUNCHERS:BOOL=ON CMAKE_BUILD_WITH_INSTALL_RPATH:BOOL=OFF 5. Windows developers should install NSIS to create an executable install image with CPack. Visual Studio Express users will not be able to package HDF4 into an executable install image executable. Use the HDF4_NO_PACKAGES option. 6. Developers can copy the config/cmake/cacheinit.cmake file and alter the settings for the developers' environment. Then the only options needed on the command line are those options that are different. An example using the HDF default cache file is: cmake -C ../config/cmake/cacheinit.cmake -G "Visual Studio 10" \ -DHDF4_ENABLE_SZIP_SUPPORT:BOOL=OFF -DHDF4_BUILD_EXAMPLES:BOOL=OFF .. Notes: CMake and HDF4 1. Using CMake for building and using HDF4 is under active development. While we have attempted to provide error-free files, please understand that development with CMake has not been extensively tested outside of HDF. The CMake specific files may change before the next release. 2. CMake support for HDF4 development should be usable on any system where CMake is supported. Please send us any comments on how CMake support can be improved on any system. Visit the KitWare site for more information about CMake. 3. Build and test results can be submitted to our CDash server at: cdash.hdfgroup.uiuc.edu. Please read the HDF and CDash document at: www.hdfgroup.org/CDash/HowToSubmit. 4. See the appendix at the bottom of this file for examples of using a ctest script for building and testing. Using a ctest script is preferred because of its flexibility. Notes: CMake in General 1. More information about using CMake can be found at the KitWare site at www.cmake.org. 2. CMake uses the command line; however, the visual CMake tool is available for the configuration step. The steps are similar for all the operating systems supported by CMake. ======================================================================== IV. Building HDF4 C/Fortran Libraries with CMake command line mode ======================================================================== This section provides more details on building the HDF4 C/Fortran Libraries with CMake using the CMake command line tools, go through these five steps: 1. Run CMake 2. Configure the cache settings 3. Build HDF4 4. Test HDF4 5. Packaging HDF4 (create install image) These five steps are described in detail below. ======================================================================== 1. Run CMake The visual CMake executable is named "cmake-gui.exe" on Windows and should be available in your Start menu. For Linux, Unix, and Mac users the executable is named "cmake-gui" and can be found where CMake was installed. Specify the source and build directories. ***** Make the build and source directories different. ****** For example on Windows, if the source is at c:\MyHDFstuff\hdf4, then use c:\MyHDFstuff\hdf4\build or c:\MyHDFstuff\build\hdf4 as the build directory. RECOMMENDED: Users can perform the configuration step without using the visual cmake-gui program. We use the file cacheinit.cmake in the config/cmake folder for our testing. This file enables all of the basic options, and we turn specific options on or off for testing using the following command line within the build directory: cmake -C /config/cmake/cacheinit.cmake -G "" [-D] Where is: the relative path to the source folder. is: * Borland Makefiles * MSYS Makefiles * MinGW Makefiles * NMake Makefiles * Unix Makefiles * Visual Studio 11 * Visual Studio 11 Win64 * Visual Studio 10 * Visual Studio 10 Win64 * Visual Studio 6 * Visual Studio 7 * Visual Studio 7 .NET 2003 * Visual Studio 8 2005 * Visual Studio 8 2005 Win64 * Visual Studio 9 2008 * Visual Studio 9 2008 Win64 is: * SZIP_INCLUDE_DIR:PATH= * SZIP_LIBRARY:FILEPATH= * ZLIB_INCLUDE_DIR:PATH= * ZLIB_LIBRARY:FILEPATH= * JPEG_INCLUDE_DIR:PATH= * JPEG_LIBRARY:FILEPATH= * :BOOL=[ON | OFF] is: # This is the CMakeCache file. ######################## # EXTERNAL cache entries ######################## SET (BUILD_SHARED_LIBS ON CACHE BOOL "Build Shared Libraries" FORCE) SET (BUILD_TESTING ON CACHE BOOL "Build HDF4 Unit Testing" FORCE) SET (HDF4_BUILD_EXAMPLES ON CACHE BOOL "Build HDF4 Library Examples" FORCE) SET (HDF4_BUILD_FORTRAN ON CACHE BOOL "Build FORTRAN support" FORCE) SET (HDF4_BUILD_TOOLS ON CACHE BOOL "Build HDF4 Tools" FORCE) SET (HDF4_BUILD_UTILS ON CACHE BOOL "Build HDF4 Library Utilities" FORCE) SET (HDF4_ENABLE_NETCDF ON CACHE BOOL "Build HDF4 versions of NetCDF-3 APIS" FORCE) SET (HDF4_BUILD_XDR_LIB OFF CACHE BOOL "Build HDF4 XDR Library" FORCE) SET (HDF4_ENABLE_PARALLEL OFF CACHE BOOL "Enable parallel build (requires MPI)" FORCE) SET (MPIEXEC_MAX_NUMPROCS "3" CACHE STRING "Minimum number of processes for HDF parallel tests" FORCE) SET (HDF4_ENABLE_JPEG_LIB_SUPPORT ON CACHE BOOL "Enable Jpeg library" FORCE) SET (HDF4_ENABLE_Z_LIB_SUPPORT ON CACHE BOOL "Enable Zlib Filters" FORCE) SET (HDF4_ENABLE_SZIP_SUPPORT ON CACHE BOOL "Use SZip Filter" FORCE) SET (HDF4_ENABLE_SZIP_ENCODING ON CACHE BOOL "Use SZip Encoding" FORCE) SET (HDF4_ENABLE_COVERAGE OFF CACHE BOOL "Enable code coverage for Libraries and Programs" FORCE) SET (HDF4_DISABLE_COMPILER_WARNINGS OFF CACHE BOOL "Disable compiler warnings" FORCE) SET (HDF4_PACKAGE_EXTLIBS OFF CACHE BOOL "(WINDOWS)CPACK - include external libraries" FORCE) SET (HDF4_NO_PACKAGES OFF CACHE BOOL "CPACK - Disable packaging" FORCE) SET (HDF4_ALLOW_EXTERNAL_SUPPORT "NO" CACHE STRING "Allow External Library Building" FORCE) SET (ZLIB_SVN_URL "http://svn.hdfgroup.uiuc.edu/zlib/trunk" CACHE STRING "Use ZLib from HDF repository" FORCE) SET (SZIP_SVN_URL "http://svn.hdfgroup.uiuc.edu/szip/trunk" CACHE STRING "Use SZip from HDF repository" FORCE) SET (JPEG_SVN_URL "http://svn.hdfgroup.uiuc.edu/jpeg/branches/jpeg8b" CACHE STRING "Use JPEG from HDF repository" FORCE) SET (ZLIB_TGZ_NAME "ZLib.tar.gz" CACHE STRING "Use ZLib from compressed file" FORCE) SET (SZIP_TGZ_NAME "SZip.tar.gz" CACHE STRING "Use SZip from compressed file" FORCE) SET (JPEG_TGZ_NAME "JPEG8b.tar.gz" CACHE STRING "Use JPEG from compressed file" FORCE) 2. Configure the cache settings 2.1 Visual CMake users, click the Configure button. If this is the first time you are running cmake-gui in this directory, you will be prompted for the generator you wish to use (for example on Windows, Visual Studio 11, to use Visual Studio 2012). CMake will read in the CMakeLists.txt files from the source directory and display options for the HDF4 project. After the first configure, you can adjust the cache settings and/or specify the locations of other programs. Any conflicts or new values will be highlighted by the configure process in red. Once you are happy with all the settings and there are no more values in red, click the Generate button to produce the appropriate build files. On Windows, if you are using a Visual Studio generator, the solution and project files will be created in the build folder. On Linux, if you are using the Unix Makefiles generator, the Makefiles will be created in the build folder. 2.2 Recommended command line example on Windows in the C:\MyHDFstuff\hdf4\build directory: cmake -C ../config/cmake/cacheinit.cmake -G "Visual Studio 10" \ -DHDF4_ENABLE_SZIP_SUPPORT:BOOL=OFF -DHDF4_ENABLE_Z_LIB_SUPPORT:BOOL=OFF .. 2.3 On Windows, if you are using a Visual Studio Express version, you must be sure that the following two options are correctly set/unset: HDF4_NO_PACKAGES:BOOL=ON HDF4_USE_FOLDERS:BOOL=OFF 3. Build HDF4 On Windows, you can build HDF4 using either the Visual Studio Environment or the command line. The command line can be used on all platforms: Windows, Linux, Unix, and Mac. To build from the command line, navigate to your build directory and execute the following: cmake --build . --config {Debug | Release} NOTE: "--config {Debug | Release}" may be optional on your platform. We recommend choosing either Debug or Release on Windows. 3.1 If you wish to use the Visual Studio environment, open the solution file in your build directory. Be sure to select either Debug or Release, and then build the solution. 3.2.1 The external libraries (zlib, Szip, and jpeg) can be configured to allow building the libraries by downloading from an SVN repository. The option is 'HDF4_ALLOW_EXTERNAL_SUPPORT'; by adding the following configuration option: -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING="SVN" The options to control the SVN URL (config/cmake/cacheinit.cmake file) are: JPEG_SVN_URL:STRING="http://svn.hdfgroup.uiuc.edu/jpeg/branches/jpeg8b" ZLIB_SVN_URL:STRING="http://svn.hdfgroup.uiuc.edu/zlib/trunk" SZIP_SVN_URL:STRING="http://svn.hdfgroup.uiuc.edu/szip/trunk" These should be changed to your location. 3.2.2 Or the external libraries (zlib, Szip, and jpeg) can be configured to allow building the libraries by using a compressed file. The option is 'HDF4_ALLOW_EXTERNAL_SUPPORT' and is enabled by adding the following configuration option: -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING="TGZ" The options to control the SVN URL (config/cmake/cacheinit.cmake file) are: JPEG_TGZ_NAME:STRING="jpeg_src.ext" ZLIB_TGZ_NAME:STRING="zlib_src.ext" SZIP_TGZ_NAME:STRING="szip_src.ext" TGZPATH:STRING="some_location" where "some_location/xxxx_src.ext" is the URL or full path to the compressed file and where ext is the type of the compression file such as .bz2, .tar, .tar.gz, .tgz, or .zip. 4. Test HDF4 To test the build, navigate to your build directory and execute: ctest . -C {Debug | Release} NOTE: "-C {Debug | Release}" may be optional on your platform. We recommend choosing either Debug or Release to match the build step on Windows. 5. Packaging HDF4 (create an install image) To package the build into a simple installer using the NullSoft installer NSIS on Windows, or into compressed files (.tar.gz, .sh, .zip), use the CPack tool. To package the build, navigate to your build directory and execute: cpack -C {Debug | Release} CPackConfig.cmake NOTES: See note 8 below for NSIS information. Also, if you are using a Visual Studio Express version or do not want to enable the packaging components, set HDF4_NO_PACKAGES to ON (on the command line add -DHDF4_NO_PACKAGES:BOOL=ON) 6. The files that support building HDF4 with CMake are all of the files in the config/cmake folder, the CMakeLists.txt and CMakeTests.cmake files in each source folder, and CTestConfig.cmake. CTestConfig.cmake is specific to the internal testing performed by The HDF Group. It should be altered for the user's installation and needs. The cacheinit.cmake file settings are used by The HDF Group for daily testing. It should be altered/ignored for the user's installation and requirements. 7. More information about using CMake can be found at the KitWare site at www.cmake.org. 8. The Nullsoft Scriptable Install System (NSIS) is an open source installation system. It was created by the WinAmp authors to distribute that application, but it is now a general-purpose system which anyone might use. NSIS installers recognize /S for silent installation and /D=dir to specify the "output directory", which is where the program will be installed. These options are case-sensitive, so be sure to type them in upper case. ======================================================================== V. All Options for HDF4 C/Fortran Libraries with CMake ======================================================================== In the options listed below, there are three columns of information: Option Name, Option Description, and Option Default. ---------------- General Build Options --------------------- BUILD_SHARED_LIBS "Build Shared Libraries" OFF BUILD_TESTING "Build HDF4 Unit Testing" OFF ---------------- HDF4 Build Options --------------------- HDF4_BUILD_EXAMPLES "Build HDF4 Library Examples" OFF HDF4_BUILD_FORTRAN "Build FORTRAN support" ON HDF4_BUILD_TOOLS "Build HDF4 Tools" OFF HDF4_BUILD_UTILS "Build HDF4 Utilities" OFF HDF4_BUILD_XDR_LIB "Build HDF4 XDR Library" OFF HDF4_ENABLE_NETCDF "Build HDF4 versions of NetCDF-3 APIS" ON ---------------- HDF4 Advanced Options --------------------- HDF4_DISABLE_COMPILER_WARNINGS "Disable compiler warnings" OFF HDF4_ENABLE_COVERAGE "Enable code coverage for Libraries and Programs" OFF HDF4_ENABLE_DEPRECATED_SYMBOLS "Enable deprecated public API symbols" ON HDF4_ENABLE_LARGE_FILE "Enable support for large (64-bit) files on Linux." ON HDF4_ENABLE_PARALLEL "Enable parallel build (requires MPI)" OFF HDF4_NO_PACKAGES "Do not include CPack Packaging" OFF HDF4_PACKAGE_EXTLIBS "CPACK - include external libraries" OFF HDF4_USE_FOLDERS "Enable folder grouping of projects in IDEs." OFF IF (APPLE) HDF4_BUILD_WITH_INSTALL_NAME "Build with library install_name set to the installation path" OFF IF (WIN32 AND NOT CYGWIN) HDF_LEGACY_NAMING "Use Legacy Names for Libraries and Programs" OFF ---------------- External Library Options --------------------- HDF4_ALLOW_EXTERNAL_SUPPORT "Allow External Library Building" "NO" HDF4_ENABLE_JPEG_LIB_SUPPORT "Enable libjpeg" ON HDF4_ENABLE_SZIP_SUPPORT "Use SZip Filter" OFF HDF4_ENABLE_Z_LIB_SUPPORT "Enable Zlib Filters" ON JPEG_USE_EXTERNAL "Use External Library Building for JPEG" 0 SZIP_USE_EXTERNAL "Use External Library Building for SZIP" 0 ZLIB_USE_EXTERNAL "Use External Library Building for ZLIB" 0 IF (HDF4_ENABLE_SZIP_SUPPORT) HDF4_ENABLE_SZIP_ENCODING "Use SZip Encoding" OFF ======================================================================== VI. User-defined Options for HDF4 Libraries with CMake ======================================================================== Support for user-defined macros and options has been added. The file UserMacros.cmake has an example of the technique. In the folder config/cmake/UserMacros is an implementation for Windows Visual Studio users for linking libraries to the static CRT - Windows_MT.cmake. Copy the contents of the file, both macro and option, into the UserMacros.cmake file. Then enable the option to the CMake configuration, build, and test process. ======================================================================== VII. APPENDIX ======================================================================== Below are examples of the ctest scripts used by The HDF Group. The examples are for a Linux machine, but the same scripts can be used on a Windows machine by adjusting the CTEST_CMAKE_GENERATOR option in the product specific script. NOTE: these files are available at the HDF web site: http://www.hdfgroup.org/release4/cmakebuild.html CTestScript.cmake SZip.tar.gz ZLib.tar.gz JPEG.tar.gz HDF4WindowsCMake.cmake HDF4LinuxCMake.cmake HDF4MacCMake.cmake ======================================================================== CTestScript.cmake ======================================================================== The CTestScript.cmake script shown below is a common ctest script that is used to build, test, and package HDF4 Library files. cmake_minimum_required(VERSION 2.8.10 FATAL_ERROR) ######################################################## # This dashboard is maintained by The HDF Group # For any comments please contact cdashhelp@hdfgroup.org # ######################################################## # ----------------------------------------------------------- # -- Get environment # ----------------------------------------------------------- if(NOT SITE_OS_NAME) ## machine name not provided - attempt to discover with uname ## -- set hostname ## -------------------------- find_program(HOSTNAME_CMD NAMES hostname) exec_program(${HOSTNAME_CMD} ARGS OUTPUT_VARIABLE HOSTNAME) set(CTEST_SITE "${HOSTNAME}${CTEST_SITE_EXT}") find_program(UNAME NAMES uname) macro(getuname name flag) exec_program("${UNAME}" ARGS "${flag}" OUTPUT_VARIABLE "${name}") endmacro(getuname) getuname(osname -s) getuname(osrel -r) getuname(cpu -m) message("Dashboard script uname output: ${osname}-${osrel}-${cpu}\n") set(CTEST_BUILD_NAME "${osname}-${osrel}-${cpu}") if(USE_AUTOTOOLS) set(CTEST_BUILD_NAME "AT-${CTEST_BUILD_NAME}") endif(USE_AUTOTOOLS) if(SITE_BUILDNAME_SUFFIX) set(CTEST_BUILD_NAME "${CTEST_BUILD_NAME}-${SITE_BUILDNAME_SUFFIX}") endif(SITE_BUILDNAME_SUFFIX) set(BUILD_OPTIONS "${ADD_BUILD_OPTIONS}") else(NOT SITE_OS_NAME) ## machine name provided ## -------------------------- if(CMAKE_HOST_UNIX) set(CTEST_BUILD_NAME "${SITE_OS_NAME}-${SITE_OS_VERSION}-${SITE_OS_BITS}-${SITE_COMPILER_NAME}-${SITE_COMPILER_VERSION}") else(CMAKE_HOST_UNIX) set(CTEST_BUILD_NAME "${SITE_OS_NAME}-${SITE_OS_VERSION}-${SITE_COMPILER_NAME}") endif(CMAKE_HOST_UNIX) if(SITE_BUILDNAME_SUFFIX) set(CTEST_BUILD_NAME ${CTEST_BUILD_NAME}-${SITE_BUILDNAME_SUFFIX}) endif(SITE_BUILDNAME_SUFFIX) set(BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DSITE:STRING=${CTEST_SITE} -DBUILDNAME:STRING=${CTEST_BUILD_NAME}") endif(NOT SITE_OS_NAME) #----------------------------------------------------------------------------- # MAC machines need special option #----------------------------------------------------------------------------- if(APPLE) # Compiler choice execute_process(COMMAND xcrun --find cc OUTPUT_VARIABLE XCODE_CC OUTPUT_STRIP_TRAILING_WHITESPACE) execute_process(COMMAND xcrun --find c++ OUTPUT_VARIABLE XCODE_CXX OUTPUT_STRIP_TRAILING_WHITESPACE) set(ENV{CC} "${XCODE_CC}") set(ENV{CXX} "${XCODE_CXX}") if(NOT NO_MAC_FORTRAN) # Shared fortran is not supported, build static set(BUILD_OPTIONS "${BUILD_OPTIONS} -DBUILD_SHARED_LIBS:BOOL=OFF -DCMAKE_ANSI_CFLAGS:STRING=-fPIC") else(NOT NO_MAC_FORTRAN) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DHDF5_BUILD_FORTRAN:BOOL=OFF") endif(NOT NO_MAC_FORTRAN) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DCTEST_USE_LAUNCHERS:BOOL=ON -DCMAKE_BUILD_WITH_INSTALL_RPATH:BOOL=OFF") endif(APPLE) #----------------------------------------------------------------------------- ## cygwin does not handle the find_package() call ## -------------------------- if(NOT SITE_CYGWIN}) find_package (Subversion) set(CTEST_UPDATE_COMMAND "${Subversion_SVN_EXECUTABLE}") else(NOT SITE_CYGWIN}) set(CTEST_UPDATE_COMMAND "/usr/bin/svn") endif(NOT SITE_CYGWIN}) #----------------------------------------------------------------------------- set(NEED_REPOSITORY_CHECKOUT 0) set(CTEST_CMAKE_COMMAND "\"${CMAKE_COMMAND}\"") if(CTEST_USE_TAR_SOURCE) ## Uncompress source if tar file provided ## -------------------------- if(WIN32) set(CTEST_7Z_COMMAND "C:/Program Files/7-Zip/7z.exe") message("extracting... [${CTEST_7Z_COMMAND} x ${CTEST_USE_TAR_SOURCE}.zip]") execute_process(COMMAND ${CTEST_7Z_COMMAND} x ${CTEST_USE_TAR_SOURCE}.zip RESULT_VARIABLE rv) else(WIN32) message("extracting... [${CTEST_CMAKE_COMMAND} -E tar -xvf ${CTEST_USE_TAR_SOURCE}.tar]") execute_process(COMMAND tar -xvf ${CTEST_USE_TAR_SOURCE}.tar RESULT_VARIABLE rv) endif(WIN32) if(NOT rv EQUAL 0) message("extracting... [error-(${rv}) clean up]") file(REMOVE_RECURSE "${CTEST_SOURCE_DIRECTORY}") message(FATAL_ERROR "error: extract of ${CTEST_USE_TAR_SOURCE} failed") endif(NOT rv EQUAL 0) file(RENAME ${CTEST_USE_TAR_SOURCE} ${CTEST_SOURCE_DIRECTORY}) set(LOCAL_SKIP_UPDATE "TRUE") else(CTEST_USE_TAR_SOURCE) ## use subversion to get source ## -------------------------- if(NOT EXISTS "${CTEST_SOURCE_DIRECTORY}") set(NEED_REPOSITORY_CHECKOUT 1) endif(NOT EXISTS "${CTEST_SOURCE_DIRECTORY}") if(${NEED_REPOSITORY_CHECKOUT}) set(CTEST_CHECKOUT_COMMAND "${CTEST_UPDATE_COMMAND} co ${REPOSITORY_URL} \"${CTEST_SOURCE_DIRECTORY}\" -r HEAD") else(${NEED_REPOSITORY_CHECKOUT}) set(CTEST_CHECKOUT_COMMAND "${CTEST_UPDATE_COMMAND} update") endif(${NEED_REPOSITORY_CHECKOUT}) endif(CTEST_USE_TAR_SOURCE) #----------------------------------------------------------------------------- ## Clear the build directory ## -------------------------- set(CTEST_START_WITH_EMPTY_BINARY_DIRECTORY TRUE) file(MAKE_DIRECTORY "${CTEST_BINARY_DIRECTORY}") #include(${CTEST_SOURCE_DIRECTORY}/CTestConfig.cmake) ctest_empty_binary_directory(${CTEST_BINARY_DIRECTORY}) # Use multiple CPU cores to build include(ProcessorCount) ProcessorCount(N) if(NOT N EQUAL 0) if(NOT WIN32) set(CTEST_BUILD_FLAGS -j${N}) endif(NOT WIN32) set(ctest_test_args ${ctest_test_args} PARALLEL_LEVEL ${N}) endif() #----------------------------------------------------------------------------- # Send the main script as a note. if(USE_AUTOTOOLS) ## autotools builds need to use make and does not use the cacheinit.cmake file ## -- make command ## ----------------- find_program(MAKE NAMES make) list(APPEND CTEST_NOTES_FILES "${CTEST_SCRIPT_DIRECTORY}/${CTEST_SCRIPT_NAME}" "${CMAKE_CURRENT_LIST_FILE}" ) else(USE_AUTOTOOLS) list(APPEND CTEST_NOTES_FILES "${CTEST_SCRIPT_DIRECTORY}/${CTEST_SCRIPT_NAME}" "${CMAKE_CURRENT_LIST_FILE}" "${CTEST_SOURCE_DIRECTORY}/config/cmake/cacheinit.cmake" ) endif(USE_AUTOTOOLS) #----------------------------------------------------------------------------- # Check for required variables. # -------------------------- foreach(req CTEST_CMAKE_GENERATOR CTEST_SITE CTEST_BUILD_NAME ) if(NOT DEFINED ${req}) message(FATAL_ERROR "The containing script must set ${req}") endif(NOT DEFINED ${req}) endforeach(req) #----------------------------------------------------------------------------- # Initialize the CTEST commands #------------------------------ if(USE_AUTOTOOLS) set(CTEST_CONFIGURE_COMMAND "${CTEST_SOURCE_DIRECTORY}/configure ${ADD_BUILD_OPTIONS}") set(CTEST_BUILD_COMMAND "${MAKE} ${CTEST_BUILD_FLAGS}") ## -- CTest Config #configure_file($ENV{HOME}/CTestConfiguration/CTestConfig.cmake ${CTEST_SOURCE_DIRECTORY}/CTestConfig.cmake) configure_file(${CTEST_SOURCE_DIRECTORY}/config/cmake/CTestCustom.cmake ${CTEST_BINARY_DIRECTORY}/CTestCustom.cmake) ## -- CTest Testfile # configure_file(${CTEST_SCRIPT_DIRECTORY}/CTestTestfile.cmake ${CTEST_BINARY_DIRECTORY}/CTestTestfile.cmake) file(WRITE ${CTEST_BINARY_DIRECTORY}/CTestTestfile.cmake "ADD_TEST(makecheck \"${MAKE}\" \"${CTEST_BUILD_FLAGS}\" \"-i\" \"check\")") else(USE_AUTOTOOLS) if(LOCAL_MEMCHECK_TEST) find_program(CTEST_MEMORYCHECK_COMMAND NAMES valgrind) set (CTEST_CONFIGURE_COMMAND "${CTEST_CMAKE_COMMAND} -C \"${CTEST_SOURCE_DIRECTORY}/config/cmake/mccacheinit.cmake\" -DCMAKE_BUILD_TYPE:STRING=${CTEST_BUILD_CONFIGURATION} ${BUILD_OPTIONS} \"-G${CTEST_CMAKE_GENERATOR}\" \"${CTEST_SOURCE_DIRECTORY}\"" ) else(LOCAL_MEMCHECK_TEST) find_program(CTEST_COVERAGE_COMMAND NAMES gcov) set (CTEST_CONFIGURE_COMMAND "${CTEST_CMAKE_COMMAND} -C \"${CTEST_SOURCE_DIRECTORY}/config/cmake/cacheinit.cmake\" -DCMAKE_BUILD_TYPE:STRING=${CTEST_BUILD_CONFIGURATION} ${BUILD_OPTIONS} \"-G${CTEST_CMAKE_GENERATOR}\" \"${CTEST_SOURCE_DIRECTORY}\"" ) endif(LOCAL_MEMCHECK_TEST) endif(USE_AUTOTOOLS) #----------------------------------------------------------------------------- ## -- set output to english set($ENV{LC_MESSAGES} "en_EN") # Print summary information. foreach(v CTEST_SITE CTEST_BUILD_NAME CTEST_SOURCE_DIRECTORY CTEST_BINARY_DIRECTORY CTEST_CMAKE_GENERATOR CTEST_BUILD_CONFIGURATION CTEST_GIT_COMMAND CTEST_CHECKOUT_COMMAND CTEST_CONFIGURE_COMMAND CTEST_SCRIPT_DIRECTORY CTEST_USE_LAUNCHERS ) set(vars "${vars} ${v}=[${${v}}]\n") endforeach(v) message("Dashboard script configuration:\n${vars}\n") #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- ## NORMAL process ## -- LOCAL_UPDATE updates the source folder from svn ## -- LOCAL_SUBMIT reports to CDash server ## -- LOCAL_SKIP_TEST skips the test process (only builds) ## -- LOCAL_MEMCHECK_TEST executes the Valgrind testing ## -- LOCAL_COVERAGE_TEST executes code coverage process ## -------------------------- CTEST_START (${MODEL} TRACK ${MODEL}) if(LOCAL_UPDATE) CTEST_UPDATE (SOURCE "${CTEST_SOURCE_DIRECTORY}") endif(LOCAL_UPDATE) CTEST_CONFIGURE (BUILD "${CTEST_BINARY_DIRECTORY}") CTEST_READ_CUSTOM_FILES ("${CTEST_BINARY_DIRECTORY}") if(LOCAL_SUBMIT) CTEST_SUBMIT (PARTS Update Configure Notes) endif(LOCAL_SUBMIT) CTEST_BUILD (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND) if(LOCAL_SUBMIT) CTEST_SUBMIT (PARTS Build) endif(LOCAL_SUBMIT) if(NOT LOCAL_SKIP_TEST) if(NOT LOCAL_MEMCHECK_TEST) CTEST_TEST (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND ${ctest_test_args} RETURN_VALUE res) if(LOCAL_SUBMIT) CTEST_SUBMIT (PARTS Test) endif(LOCAL_SUBMIT) if(res GREATER 0) message(FATAL_ERROR "Failed tests: ${res}\n") endif(res GREATER 0) else(NOT LOCAL_MEMCHECK_TEST) CTEST_MEMCHECK (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND ${ctest_test_args}) if(LOCAL_SUBMIT) CTEST_SUBMIT (PARTS MemCheck) endif(LOCAL_SUBMIT) endif(NOT LOCAL_MEMCHECK_TEST) if(LOCAL_COVERAGE_TEST) CTEST_COVERAGE (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND) if(LOCAL_SUBMIT) CTEST_SUBMIT (PARTS Coverage) endif(LOCAL_SUBMIT) endif(LOCAL_COVERAGE_TEST) endif(NOT LOCAL_SKIP_TEST) if(NOT LOCAL_MEMCHECK_TEST AND NOT LOCAL_NO_PACKAGE) ##----------------------------------------------- ## Package the product ##----------------------------------------------- execute_process(COMMAND cpack -C ${CTEST_BUILD_CONFIGURATION} -V WORKING_DIRECTORY ${CTEST_BINARY_DIRECTORY} RESULT_VARIABLE cpackResult OUTPUT_VARIABLE cpackLog ERROR_VARIABLE cpackLog.err ) file(WRITE ${CTEST_BINARY_DIRECTORY}/cpack.log "${cpackLog.err}" "${cpackLog}") if(cpackResult GREATER 0) message(FATAL_ERROR "Failed packaging: ${cpackResult}\n") endif(cpackResult GREATER 0) endif(NOT LOCAL_MEMCHECK_TEST AND NOT LOCAL_NO_PACKAGE) #----------------------------------------------------------------------------- message("DONE:CTestScript") ======================================================================== ctest ======================================================================== Below is an example of the ctest script used by The HDF Group. The CTestScript.cmake file used by this script is shown above. Adjust the values as necessary. Note that the source folder is entered on the command line and the build folder is created as a sub-folder. ############################################################################ # Product specific script, HDF4Static.cmake, that uses the # CTestScript.cmake file (see above). Usage: # "ctest -S HDF4Static.cmake,hdf4 -C Release -O hdf4static.log" # where hdf4 is the source folder relative to the location of these scripts ############################################################################ cmake_minimum_required(VERSION 2.8.10 FATAL_ERROR) set(CTEST_SOURCE_NAME ${CTEST_SCRIPT_ARG}) set(CTEST_BINARY_NAME ${CTEST_SOURCE_NAME}/build) set(CTEST_DASHBOARD_ROOT "${CTEST_SCRIPT_DIRECTORY}") set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_SOURCE_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_BINARY_NAME}") set(MODEL "Experimental") ####### Following Line is one of [Release, RelWithDebInfo, Debug] ############# set(CTEST_BUILD_CONFIGURATION "RelWithDebInfo") ######### Following describes computer ############ set(CTEST_CMAKE_GENERATOR "Unix Makefiles") ## Set the following to unique id your computer ## set(CTEST_SITE "LINUX.XXXX") ## following is optional to describe build ## set(SITE_BUILDNAME_SUFFIX "RWDI-SHARED") #################################################### ##### Following controls CDash submission ##### #set(LOCAL_SUBMIT "TRUE") ##### Following controls test process ##### #set(LOCAL_SKIP_TEST "TRUE") #set(LOCAL_MEMCHECK_TEST "TRUE") #set(LOCAL_COVERAGE_TEST "TRUE") ##### Following controls cpack command ##### set(LOCAL_NO_PACKAGE "TRUE") ##### Following controls source update ##### #set(LOCAL_UPDATE "TRUE") set(REPOSITORY_URL "http://svn.hdfgroup.uiuc.edu/hdf4/branches/hdf4_2_10") #uncomment to use a compressed source file *.tgz #set(CTEST_USE_TAR_SOURCE "hdf-4.2.10") ############################################ #### Change default configuration of options in config/cmake/cacheinit.cmake file ### ### uncomment and change the following line for more configuration options #set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DXXX:XXX=XXX") ### uncomment the following line to build static libraries #set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DBUILD_SHARED_LIBS:BOOL=OFF") ### ext libs from svn #set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING=SVN") ### ext libs from tgz set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING=TGZ -DTGZPATH:PATH=${CTEST_SCRIPT_DIRECTORY}") ### Create install package with external libraries (szip, zlib, szip) set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DHDF4_PACKAGE_EXTLIBS:BOOL=ON") ### disable test program builds #set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DBUILD_TESTING:BOOL=OFF") ### disable packaging #set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DHDF4_NO_PACKAGES:BOOL=ON") ############################################ include(${CTEST_SCRIPT_DIRECTORY}/CTestScript.cmake) ======================================================================== For further assistance, send email to help@hdfgroup.org ======================================================================== ======================================================================== libhdf4-4.2.10/HDF_ALT/release_notes/RELEASE.txt0000644000000000000000000003136412421456623015566 0ustar HDF version 4.2.10 released on 2014-02-09 ============================================== INTRODUCTION This document describes the differences between HDF 4.2.9 and HDF 4.2.10. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.10. The HDF 4.2.10 documentation can be found on the The HDF Group's website at: http://www.hdfgroup.org/doc.html Previous versions of the documentation are available from the FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Configuration - Support for new platforms and compilers - Bugs fixed since HDF 4.2.9 -- Configuration -- Library -- Utilities - Documentation - Platforms tested - Known problems New features and changes ======================== Configuration ============= CMake - Added support to create dmg bundles on Mac. (ADB 2013/9/12) CMake - Added support to use Windows /MT option. (ADB 2013/6/10) Support for new platforms and compilers ======================================= - Visual Studio 2012 w/ Intel Fortran 13 on Windows 7 and Windows 8 - Mac OS X Mavericks with clang and gfortran Bugs fixed since HDF 4.2.9 ========================= Configuration ============= - Removed the requirement of yacc/lex like tools. The ncgenXXX.* files generated files from yacc and lex input files are pre-created in the source code to build the ncgen tool. The msoft*.[ch] files were for Windows build but was out of dated. Cmake uses the pre-created files instead. See known problem below. (AKC 2014/02/02 HDFFR-1419) - Removed old Macintosh platform codes that are not used any more. (AKC 2014/01/21 HDFFR-1340) - Changed Mac platforms to use the Apple supported clang compiler as the default C compiler. (AKC 2014/01/15 HDFFR-1318) - Removed the following individual platform specific files and have them to be produced by configure using corresponding *.in files. mfhdf/libsrc/config/netcdf-XXX.h by mfhdf/libsrc/netcdf.h.in mfhdf/fortran/config/ftest-XXX.f by mfhdf/fortran/ftest.f.in mfhdf/fortran/config/jackets-XXX.c by mfhdf/fortran/jackets.c.in mfhdf/fortran/config/netcdf-XXX.inc by mfhdf/fortran/netcdf.inc.in (AKC 2013/12/31 HDFFR-1320/476) - The following platforms are old and no longer available. Removed their support code from the configure files: alpha, convex, dec, fujivp, hpux, ia64, irix32, irix4, irix5, irix6, mac, solarisx86, sun, t3e, unicos. (AKC 2013/12/26 HDFFR-1320) - Removed -Xc (strict ansi standard) from the default CFLAGS of Solaris since the latest Sun Compiler version 5.11 and 5.12 have a conflict with the system header file. Since the current versions of C compiler should be at least ANSI (aka C89) compliant, the removal of -Xc should be safe. This also fixes a previous known problem of needing to use -xc99 to build HDF4. (AKC 2013/12/20 HDFFR-1361) - CMake - Changed name of TGZ_PATH to TGZPATH. (ADB 2013/9/12) - CMake - Removed extra flag POSIX_SOURCE as it caused failures on Apple Mac builds. (ADB 2013/8/7) Library ========= - SDsetblocksize and VSsetblocksize would not change the block size if the sds/vdata did not use linked-block before it was closed. The problem is now fixed. (BMR 2013/1/15 - HDFFR-1357) - Patches from user are applied to the C test to correct an overflow variable and to the Fortran source for some missing declarations. (BMR/EP 2014/1/15 - HDFFR-1367) - Examples GR_write_chunks.c and GR_read_chunks.c were added. (BMR 2014/12/30 - HDFFR-1402) Utilities ========= - ncdump displayed garbage in place of fill-values when a variable had unlimited dimension and had been written with less number of records than the largest number of records in the file. This is now fixed. (BMR 2014/12/16 - HDFFR-1390) Documentation ============= - None Platforms tested ================ This version has been tested in the following platforms: Linux 2.6.32-358.18.1 gcc (GCC) 4.4.7 20120313 (Red Hat 4.4.7-3) .el6.ppc64 #1 GNU Fortran (GCC) 4.4.7 20120313 (Red Hat 4.4.7-3) SMP ppc64 GNU/Linux IBM XL Fortran for Linux, V13.1 (64-bit mode) (ostrich) Linux 2.6.18-308.13.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-52) SMP i686 i386 GNU Fortran (GCC) 4.1.2 20080704 (jam) (Red Hat 4.1.2-52) pgcc and pgf90 13.7-0 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 13.1.3 20130607 Intel(R) Fortran Compiler, Version 13.1.3 Linux 2.6.18-308.24.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-54) SMP x86_64 GNU/Linux GNU Fortran (GCC) 4.1.2 20080704 (koala) (Red Hat 4.1.2-54) icc (ICC) 13.1.3 20130607 ifort (IFORT) 13.1.3 20130607 pgcc and pgf90 13.7-0 64-bit target on x86-64 Linux -tp nehalem Linux 2.6.32-431.el6.x86_64 gcc (GCC) 4.4.7 20120313 (Red Hat 4.4.7-4) #1 SMP x86_64 GNU/Linux GNU Fortran (GCC) 4.4.7 20120313 (platypus) (Red Hat 4.4.7-4) icc (ICC) 13.1.3 20130607 ifort (IFORT) 13.1.3 20130607 SunOS 5.11 32- and 64-bit Sun C 5.12 SunOS_sparc 2011/11/16 (emu) (see "Known problem" section) Sun Fortran 95 8.6 SunOS_sparc 2011/11/16 Windows 7 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Visual Studio 2012 w/ Intel Fortran 13 (cmake) Cygwin(CYGWIN_NT-6.1 1.7.25(0.270/5/3) gcc(4.7.3) compiler and gfortran) (cmake and autotools) Windows 7 x64 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Visual Studio 2012 w/ Intel Fortran 13 (cmake) Windows 8 Visual Studio 2012 w/ Intel Fortran 13 (cmake) Windows 8 x64 Visual Studio 2012 w/ Intel Fortran 13 (cmake) Mac OS X Intel 10.6.8 Apple clang version 1.7 from Xcode 3.2.6 Darwin 10.8.0 gfortran GNU Fortran (GCC) 4.6.2 (fred) icc and ifort Version 12.1.6 20120928 Mac OS X 10.7.5 Apple clang version 3.0 from Xcode 4.6.1 Darwin 11.4.2 gfortran GNU Fortran (GCC) 4.6.2 (duck) icc and ifort Version 13.0.3 20130606 Mac OS X 10.8.5 Apple clang version 4.2 from Xcode 4.6.1 Darwin 12.2.0 gfortran GNU Fortran (GCC) 4.6.2 (wren) icc and ifort Version 13.0.3 20130606 Mac OS X 10.8.5 Apple clang version 5.0 from Xcode 5.0.2 Darwin 12.2.0 gfortran GNU Fortran (GCC) 4.6.2 (swallow,kite) icc and ifort Version 14.0.1 20131010 Mac OS X 10.9.1 Apple LLVM version 5.0 (clang-500.2.79) Darwin 13.0.0 (based on LLVM 3.3svn) gfortran GNU Fortran (GCC) 4.6.2 Debian7.2.0 3.2.0-4-amd64 #1 SMP Debian 3.2.51-1 x86_64 GNU/Linux gcc (Debian 4.7.2-5) 4.7.2 GNU Fortran (Debian 4.7.2-5) 4.7.2 (cmake and autotools) Fedora20 3.11.10-301.fc20.x86_64 #1 SMP x86_64 x86_64 x86_64 GNU/Linux gcc (GCC) 4.8.2 20131212 (Red Hat 4.8.2-7) GNU Fortran (GCC) 4.8.2 20130603 (Red Hat 4.8.2-7) (cmake and autotools) SUSE 13.1 3.11.6-4-desktop #1 SMP PREEMPT x86_64 x86_64 x86_64 GNU/Linux gcc (SUSE Linux) 4.8.1 GNU Fortran (SUSE Linux) 4.8.1 (cmake and autotools) Ubuntu 13.10 3.11.0-13-generic #20-Ubuntu SMP x86_64 GNU/Linux gcc (Ubuntu/Linaro 4.8.1-10ubuntu8) 4.8.1 GNU Fortran (Ubuntu/Linaro 4.8.1-10ubuntu8) 4.8.1 (cmake and autotools) Known problems ============== o CMake builds in Windows uses the same pre-generated ncgen*.[ch] files from the yacc/lex input files. The generated file, ncgenyy.c, uses the header file that Windows does not support. This must be blocked out in order for Windows to use it. (AKC 2014-02-03 HDFFR-1424). o CMake "make install" fails installing the tools: Use CPack to create an install package. ADB - 2014/02/03 o CMake does not install these man pages: hdf.1, ncdump.1, ncgen.1 AKC/BMR - 2014/02/02 o For Mac OS X 10.7 Lion and on 10.8 Mountain Lion, several tests fail with GCC, Intel and Clang compilers. Currently, this situation is detected and -O0 level optimization is used. We will work on the issue for the next release. (HDFFR-1318,1358) EIP - 2013/02/05 o On IBM PowerPC 64, hdftest fails when gcc 4.4.6 is used with -O3 optimization level. o When building in AIX systems, if CC is xlc with -qlanglvl=ansi, configure will fail when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of the jpeg library have HAVE_STDLIB_H defined in the jconfig.h header file. Without the -qlanglvl=ansi, some older xlc versions (e.g., V7.0) still fail, but newer xlc versions (e.g., V9.0) pass. AKC - 2010/02/17 o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files in the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale have the same name, subsequent accesses to the dimension scale or to the SDS might produce undesired results because the libraries could not distinguish between the two objects. In the case of writing, data might even be corrupted. For example, SDS data might be written to a dimension variable or vice versa. (bugzilla #624) HDF4 Library Releases 4.2r2 and later make a distinction between an SDS and a dimension variable. However, as with older versions, these recent versions are unable to detect such conflicts in files created by earlier releases. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. FB - 2009/01/26 BMR - revised 2011/06/24 o N-bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata) after being written and before SDgetdatasize is called. BMR - 2008/11/22 libhdf4-4.2.10/HDF_ALT/release_notes/bugs_fixed.txt0000644000000000000000000004016212421456623016621 0ustar This file contains some historical information; please do not edit. EIP 2007-09-23 For bugs fixed in the current release see RELEASE.txt file For bugs fixed in all releases after HDF4.2r0-Beta see HISTORY.txt file. HDF4.2r0-Beta ======== 1. "hdp dumpgr" and "hdp dumpsds" have two new options: -g to suppress the data of global (or file) attributes -l to suppress the data of local attributes 2. The problem where hdp failed on very long file name has been fixed. (bug #693) 3. The problem where VSinquire failed when being called on a vdata that has no fields defined, has been fixed. (bug #626) 4. A user attempted to change the values of VGNAMELENMAX and VSNAMELENMAX to 256 for her own use, but the hdp output showed that the change was not in effect. This problem is now fixed. (bug #606) 5. hdp dumpvg failed sometimes when reading a file that has a vgroup being inserted into another. This has been fixed. (bug #477) 6. fp2hdf when used with -p option did the opposite of what it was supposed to do with palette files. This problem is now fixed. (bug #800). However the utility hdfimport should be used in the future instead of fp2hdf. 7. hdf2gif failed when a user tried it on JPEG compressed images. (Bug #601). The problem is now fixed. An error message is displayed if the image is not 8-bit. If the image is 24-bit, the message suggests using hdf2jpeg. 8. ncdump failed to read NetCDF files 3.5 when there were more than one variable with unlimited dimensions. Fixed. 9. NetCDF part of the HDF4 Library was not ported to Compaq True64 system. Fixed. 10. The hdp commands dumpsds, dumpgr, dumpvd, and dumpvg now display an informative message when a non-HDF file is given as input. (Bug #817) 11. The compilation warnings and error on the macro HDFclose are fixed. (Bug #818) HDF4.1r5 ======== 1. The following VS routines are added as requested (bug #267): VSsetblocksize/vsfsetblsz -- sets the block size of the linked-block element. VSsetnumblocks/vsfsetnmbl -- sets the number of blocks for a linked-block element. VSgetblockinfo/vsfgetblinfo -- retrieves the block size and the number of blocks of a linked-block element. 2. When using SDsetdimscale to set the data type for a dimension to an unsigned type, the type became signed inadvertently (bug #172). This problem is now fixed. 3. The memory leak in the netCDF part of the HDF/mfhdf distribution is fixed. (bug #418) 4. When using "hdp dumpgr", data was being printed in the range of 0-250 when it should be 0-168 (bug #422). This problem is now fixed. 5. hdp dumpgr has a new option to print palette data only -pd. Also, whenever option -p or -pd is given, only palettes are printed, no images nor file attributes. (bug #439) 6. The "#define NULL" was removed since ANSI C compilers are required to define NULL. (bug #448) 7. Giving NULL to the fieldname argument in VSsetfields now returns FAIL instead of causing segmentation fault. (bug #554) 8. Giving a NULL to the argument name in several name setting routines now returns FAIL instead of causing segmentation fault. (bug #514) 9. Two routines were added to get compression information for the SD and GR interfaces, including chunked elements: SDgetcompress/sfgcompress and GRgetcompress/mggcompress. (bug #307) Note: - for a JPEG image, GRgetcompress only returns the compression type, not the compression information (i.e, quantity and force_baseline) because this information currently is not retrievable. - getting compression type for JPEG chunked images is not working yet. 10. Added new fortran function heprntf (HEprint) that takes two arguments: file name and level. If file name string has 0 length error messages will be printed to the standard output. 11. Fix the linking bug of unresolved symbol(error_top) DLL when HEclear was called by users. Users who want to use hdf DLL should define HDFAPDLL in their applications. Simply going to project setting and adding HDFAPDLL as the predefined constant should work. HDF4.1r4 ======== 1. Fixed GR JPEG compression problem. 2. Added -s, -c and -l options to hdp. HDF4.1r3 ========= 1. HDF 4.1r2 was unable to properly read HDF SDSs created with HDF 3.3x. It did not read the correct SDS names. This problem has been fixed. 2. Many problems with the GR interface were fixed: - The GR interface can now read compressed files created with the DFR8 and DF24 interfaces, except for those which were compressed with IMCOMP compression. - The GR interface can read and write images compressed with RLE, GZIP and Skipping Huffman compression methods. - Palettes can now be written and read properly with the GR interface. - 24-bit raster images can now be read by the GR interface. 3. You can now create an SDS with a name up to 256 characters in length. The previous limit was 64. 4. SDfileinfo no longer returns the wrong number of datasets for old files created with the DFSD interface. 5. The Vdata/Vgroup interfaces in HDF did not check return values, which caused problems on the Macintosh, and could have potentially caused problems on all platforms. HDF now checks all return values properly. 6. Several missing Fortran functions have been added to the ./include/dffunc.inc file. 7. Calling SDreaddata after setting the fill value and before doing an SDendaccess and SDend caused a core dump on IRIX6.x with the -64 bit option. This problem has been fixed. 8. Many hdp fixes were made: - Options 'o' and 'b' or 'x': it used to be that you had to give -o in order for -b or -x to be valid; now you can just give -b or -x and the output will go to the screen. Basically, you can have either binary or ASCII text to the screen now where it used to be just ASCII. - Options (-r,-i,-n,-c) can be given on the same command line; previously the last option overrode all the previous ones. - Added printing of GR file attributes (bug #192) - Added printing of a palette to the dumpgr command (bug #252) with the new option -p -p : print palette info and data -p -h : print palette info -p -d : print palette data - Added printing of SD file attributes to the dumpsds command - The -c option for dumpvd used to only show the first vdata; now all vdatas of the same class show for option -c. Also, multiple class names listed with this option are searched; they used to be ignored. - Added printing file annotations to the dumpvd command. - Improved output wording for the dumpvd command. For example, gets printed instead of nothing, or FULL_INTERLACE/NO_INTERLACE is printed instead of "0/1". - In one case the dumpvg command would get into an infinite loop. This problem has been fixed. - With the dumpvg command, all vgroups of the same class show for option -c; previously only the first one was shown. Also, multiple class names listed with this option are now searched; they used to be ignored. - File annotations can now be printed with the dumpvg command. - With the dumpvg command, occasionally a core dump occurred when printing the Graphical Representation part if multiple hdf files were given. This has been fixed. HDF4.1r2 ======== 1. The hdp utility can now dump data properly to a binary file (using the -b option). 2. HDF no longer core dumps when reading a NetCDF file. 3. HDF now supports little-endian conversion for VAX and Dec Alpha OpenVMS. 4. The SD interface can now properly handle writing to a one-dimensional array that is unlimited. 5. The SD interface can now properly handle attributes with a data type of Little Endian. 6. HDF will no longer fail if you write data to a vdata that had no data written to it when it was first created. 7. The problems that occurred on the Crays with HDF 4.1r1 have been corrected. HDF4.1r1 ======== 1. A bug was fixed where you would receive an error if you changed the name of a Vdata to a name that was longer than the original name. 2. The FORTRAN equivalents have been added for several ANxx utility routines (ANget_tagref, ANid2tagref ...). 3. A bug was fixed where old data (DFSD) in native and little endian format could not be read by the SD interface correctly. 4. The variable _HDF_ENTIRE_VDATA has been changed to _HDF_VDATA, to avoid confusion. This variable had been added to HDF 4.1b1. For those users who are already using it, a macro called _HDF_ENTIRE_VDATA has been added, which is defined as _HDF_VDATA. 5. SD_FILL and SD_NOFILL were added as file fillmodes. 6. In HDF 4.0r2, you could create an empty compressed SDS. With 4.1b1 you could not. This was fixed in the 4.1 release. 7. There was a bug in hdp where 'hdp list -a' did not list the file attributes. This was fixed. 8. In 4.1b1, the SD chunking routine names contained upper case characters after the initial two "SD" characters (for eg. SDwriteChunk). With 4.1r1 the SD chunking routine names were changed to lower case after the initial "SD" characters, to be consistent with the SD interface naming scheme (for eg. SDwritechunk). HDF4.1b1 ======== 1. If you opened a file in read only mode with the SD interface, it would create the file if the file did not exist. This has been fixed. 2. There was a problem with GRstart, which caused GRend to trigger a segmentation fault when it was called twice. This has been fixed. 3. DFNT_UCHAR has been added to hdf_unmap_type. 4. A problem was fixed in HDc2fstr, which caused garbage to be attached to a converted string. 5. The multi-file annotation functions were added to dffunc.inc. 6. A bug was fixed in the DFPnpals function, where it would return the wrong number of palettes. 7. A problem was fixed with the gzip compression, where an error occurred if you attempted to write to an SDS that you have created, and then performed an SDendaccess, followed by a SDselect. 8. HDF4.0r2 did not recognize JPEG images created by HDF 3.3r4. This has been fixed. 9. The newest SGI cc compiler (7.0) has eliminated the compression code errors when '-O' option is used. HDF4.0r2 ======== 1. SDstart (, DFACC_RDWR) no longer fails. It will create a file now. 2. When appending compressed data onto the end of an unlimited dimension SDS, the SD interface no longer writes the fill- values in locations where they will immediately be over- written by data. 3. dfkcray.c, IEG2JPEG and JPEG2IEG do not work if the foreign data does not start from the 64-bit boundary. 4. On IRIX 6.1 with -n32, hdf/test/comp.c gave error messages. Fix: Not to use '-O' option (for now). 5. Problem when running 'make test' on UNICOS has been fixed (bug was in hdf/util/he_main.c). 6. The RIG tag was not getting written out when creating a GR object, so you couldn't view it with "hdp list". The hdp command has been updated. HDF4.0r1p1 ========== 1. Fixed a bug in SDS interface which caused a wrong number of records for UNLIMITED dimensions when ncsync was called to write data to hdf files. 2. A bug has been fixed in the UNLIMITED dimension record to improve backward compatibility. 3. Parameter 'class' in vffndcls() has been changed to 'vgclass' to avoid conflicts with C++ reserved word 'class'. HDF4.0r1 ======== 1. Fixed Fortran character string handling under UNICOS. 2. Added checks on the return values of HDmalloc calls. 3. The automatic test of hdf utilities (in hdf/util/) is added to the Makefile and will be executed by 'make test' at the top level. 4. Thanks to Mark W. Dalton for his contribution to the fix of the adaptive Huffman compression on the CRAY YMP. His fix is merged into 4.0r1. 5. Added check in SDsetattr() to make sure that the argument 'count' < MAX_ORDER. HDF4.0b2 ======== 1. To avoid conflicts with C++, field name 'new' in vgroup_desc of vg.h is changed to 'new_vg', and in accrec_t 'new' of hfile.h is changed to 'new_elem'. 2. Fixed the max number of fields of vdata in vparse.c, vshow.c and show.c (in mfhdf/dumper/). Now vshow and hdp can dump VSFIELDMAX number of fields. 3. Fixed platform number subclass problem when external data file was written in Little_endian format (IBM-PC). 4. Fixed the core-dump on some machines when writing large number of big SDS by holding the buffer instead of freeing it every time. 5. The max number of files which can be open at one time was defined in hdf.h, hfile.h and netcdf.h. Now there is only one definition by MAX_FILE in hdf/src/hlimits.h. 6. A bug in SDsetnbitdataset is fixed. 7. Uninitialized memory reads in SDIputattr and hdf_create_dim_vdata are fixed. HDF4.0b1 ======== 1. Added support to unsigned integers for attributes. 2. Bug fixed in SDsetdimscale if dim strings or other attributes already assigned to that dimension and if the size of the number type is not 4 bytes. 3. Bug fixed in SDgetdimscale. For dimensions that have no dim scale SDgetdimscale now returns 0 for nt to indicate that no-scale was assigned. 4. Several buffers allocated by Hxxxx, SDxxxx, and VSxxxx functions were used through the entire excecution time of HDF application programs. In previous releases those buffers were not freed by HDF. Some debugging tools list those buffers as memory leaks. In HDF4.0b1 those buffers are freed by HDF when the programs exit. The fix doesn't work on SunOS. 5. Added Fortran version of VSQueryxxxx and VSfind: vsqfnelt -- VSQuerycount vsqfintr -- VSQueryinterlace vsqfflds -- VSQueryfields vsqfvsiz -- VSQuerysize vsqfname -- VSQueryname vsffnd -- VSfind 6. SDsetdimscale () did not set scales for unlimited dimension. After appending records to the unlimited dimension, the number of records was not updated. The bug is fixed. 7. In previous releases, the Vdata interface couldn't define more than 36 fields even though VSFIELDMAX was defined as 64 in hdf.h. The bug is fixed. Now the maximum number of fields is decided by VSFIELDMAX. 8. The Fortran function sfgdinfo now returns nattr correctly. 9. hdfrseq is moved out from the HDF release. It is now available on the NCSA ftp server in directory: /HDF/contrib/NCSA/hdfrseq/. 10. If the same file is accessed twice with DFSDputdata (i.e. the file is first destroyed), the first call to DFANputlabel after the second call to DFSDputdata fails. To fix this problem, a new function DFANclear has been added. ----------------------------------------------------------------- Name: DFANclear Purpose: Clear DFAN interface Inputs: void Returns: SUCCEED if ok; FAIL otherwise. Remarks: When a file is re-created in a single run, user should call DFANclear() before the file is re-created to reset DFAN interface structures. Example: main() { int ret; dump(0); /* DFSDputdata("myfile.hdf",...) is called */ /* in dump() to create myfile.hdf */ ret = DFANclear(); dump(1); /* DFSDputdata("myfile.hdf",...) is called */ /* again to re-create a file with the same */ /* name myfile.hdf */ } 11. A bug is fixed in SDgetcal, which failed in getting number_type from old hdf files, created by DFSDxxxx calls. 12. hdf.inc missing constants and commas 13. HDgettagname() can't recognize DFTAG_FV and DFTAG_COMPRESSED in hkit.c 14. fp2hdf is back in hdf/util/. -------------------------------------------------------------- Known problems: 1. Need Fortran version of VFfieldxxxx functions. 2. Need an easy way to append to a vdata. One solution would be to make all FULL_INTERLACE vdatas appendable. 3. Need a high level function to create external Vdata, similar to SDsetexternalfile(). 4. SDxxxx interface creates dummy values for dimension records. For multi-dimensional SDS this isn't too bad. However, for 1-D SDS it doubles the size of the file. libhdf4-4.2.10/HDF_ALT/release_notes/USING_HDF4_CMake.txt0000644000000000000000000002636412421456623017204 0ustar ************************************************************************ * Build and Install HDF4 Applications with CMake * ************************************************************************ This short set of instructions is for users who want to quickly build HDF4 applications using the CMake tools. Users can adapt these instructions for their own applications. For more information, see the "Minimum C Project Files for CMake" section. More information about using CMake can be found at the KitWare site at www.cmake.org. CMake uses the command line; however, the visual CMake tool is available for the configuration step. The steps are similar for all of the operating systems supported by CMake. Notes: 1. Using CMake for building and using HDF4 is under active development. While we have attempted to provide error-free files, please understand that development with CMake has not been extensively tested outside of HDF. The CMake specific files may change before the next release. 2. CMake for HDF4 development should be usable on any system where CMake is supported. Please send us any comments on how CMake support can be improved on any system. 3. See the appendix at the bottom of this file for an example of using a ctest script for building and testing. See CMake.txt for more information. ======================================================================== I. Preconditions ======================================================================== 1. We suggest you obtain the latest CMake for Windows from the Kitware web site. The HDF 4.2.x product requires a minimum CMake version of 2.8.10. 2. You have installed the HDF4 Library built with CMake by executing the HDF Install Utility (the *.exe file in the binary package for Windows). If you are using a Windows platform, you can obtain a pre-built Windows binary from The HDF Group's website at www.hdfgroup.org. 3. Set the environment variable HDF4_DIR to the installed location of the config files for HDF4. On Windows: HDF4_DIR=C:/Program Files/HDF_Group/HDF/4.2.x/cmake/hdf4 (Note there are no quote characters used on Windows and all platforms use forward slashes) 4. Created separate source and build directories (CMake commands are executed in the build directory). 5. Created a CMakeLists.txt file(s) for your source. See Section III below. ======================================================================== II. Building HDF4 Applications with CMake ======================================================================== Go through these steps to build HDF4 applications with CMake. 1. Run CMake 2. Configure the cache settings 3. Build HDF4 applications 4. Test HDF4 applications These steps are described in more detail below. The files that support building with CMake are all of the files in the config/cmake folder, the CMakeLists.txt files in each source folder, and CTestConfig.cmake. CTestConfig.cmake is specific to the internal testing performed by The HDF Group. It should be altered for the user's installation and needs. The cacheinit.cmake file settings are used by The HDF Group for daily testing. It should be altered/ignored for the user's installation and needs. 1. Run CMake The visual CMake executable is named "cmake-gui.exe" on Windows and should be available in your Start menu. For Linux, Unix, and Mac users the executable is named "cmake-gui" and can be found where CMake was installed. Specify the source and build directories. Make the build and source directories different. For example on Windows, if the source is at c:\MyHDFstuff\hdf4, then use c:\MyHDFstuff\hdf4\build or c:\MyHDFstuff\build\hdf4 for the build directory. PREFERRED: Users can perform the configuration step without using the visual cmake-gui program. The following is an example command line configuration step executed within the build directory: cmake -G "" [-D] Where is * Borland Makefiles * MSYS Makefiles * MinGW Makefiles * NMake Makefiles * Unix Makefiles * Visual Studio 11 * Visual Studio 11 Win64 * Visual Studio 10 * Visual Studio 10 Win64 * Visual Studio 6 * Visual Studio 7 * Visual Studio 7 .NET 2003 * Visual Studio 8 2005 * Visual Studio 8 2005 Win64 * Visual Studio 9 2008 * Visual Studio 9 2008 Win64 is: * BUILD_TESTING:BOOL=ON * USE_SHARED_LIBS:BOOL=[ON | OFF] 2. Configure the cache settings 2.1 Visual CMake users should click the Configure button. If this is the first time you are running cmake-gui in this directory, you will be prompted for the generator you wish to use (for example on Windows, Visual Studio 10). CMake will read in the CMakeLists.txt files from the source directory and display options for the HDF4 project. After the first configure, you can adjust the cache settings and/or specify locations of other programs. Any conflicts or new values will be highlighted by the configure process in red. Once you are happy with all the settings and there are no more values in red, click the Generate button to produce the appropriate build files. On Windows, if you are using a Visual Studio generator, the solution and project files will be created in the build folder. On Linux, if you are using the Unix Makefiles generator, the Makefiles will be created in the build folder. 2.2 A command-line example on Windows can be run from the c:\MyHDFstuff\hdf4\build directory: cmake -G "Visual Studio 10" -DBUILD_TESTING:BOOL=ON -DUSE_SHARED_LIBS:BOOL=ON .. 3. Build HDF4 applications On Windows, you can build HDF4 applications using either the Visual Studio Environment or the command line. The command line is normally used on Linux, Unix, and Mac. To build from the command line, navigate to your build directory and execute the following: cmake --build . --config {Debug | Release} NOTE: "--config {Debug | Release}" may be optional on your platform. We recommend choosing either Debug or Release on Windows. If you are using the pre-built binaries from HDF, use Release. 3.1 If you wish to use the Visual Studio environment, open the solution file in your build directory. Be sure to select either Debug or Release and build the solution. 4. Test HDF4 applications To test the build, navigate to your build directory and execute: ctest . -C {Debug | Release} NOTE: "-C {Debug | Release}" may be optional on your platform. We recommend choosing either Debug or Release to match the build step on Windows. ======================================================================== III. Minimum C Project Files for CMake ======================================================================== Create a CMakeLists.txt file at the source root. Include the following text in the file: ########################################################## cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4MyApp C CXX) FIND_PACKAGE (HDF4 NAMES hdf4) # FIND_PACKAGE (HDF4) # Find non-cmake built HDF4 INCLUDE_DIRECTORIES (${HDF4_INCLUDE_DIR}) SET (LINK_LIBS ${LINK_LIBS} ${HDF4_LIBRARIES}) SET (example hdf_example) ADD_EXECUTABLE (${example} ${PROJECT_SOURCE_DIR}/${example}.c) TARGET_C_PROPERTIES (${example} " " " ") TARGET_LINK_LIBRARIES (${example} ${LINK_LIBS}) ENABLE_TESTING () INCLUDE (CTest) ADD_TEST (NAME test_example COMMAND ${example}) ########################################################## ======================================================================== IV. APPENDIX ======================================================================== Below is an example of the ctest script used by The HDF Group. See the Appendix in the INSTALL_CMake.txt file for the CTestScript.cmake file used by this script. Adjust the values as necessary. Note that the source folder is entered on the command line and the build folder is created as a sub-folder. Windows should adjust the forward slash to double backslashes, except for the HDF_DIR environment variable. Note: these files are available at the HDF web site: http://www.hdfgroup.org/HDF4/release/cmakebuild.html CTestScript.cmake HDF4ExamplesWindowsbinaryCMake.cmake ======================================================================== ctest ======================================================================== ############################################################################ # Product specific script, HDF4Example.cmake, that uses the # CTestScript.cmake file (see Appendix in the CMake.txt). Usage: # "ctest -S HDF4Example.cmake,hdf4Examples -C Release -O hdf4EX.log" # where hdf4Examples is the source folder relative to the location of these scripts ############################################################################ cmake_minimum_required(VERSION 2.8.10 FATAL_ERROR) set(CTEST_DASHBOARD_ROOT ${CTEST_SCRIPT_DIRECTORY}) set(CTEST_SOURCE_NAME ${CTEST_SCRIPT_ARG}) set(CTEST_BINARY_NAME ${CTEST_SOURCE_NAME}/build) set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_SOURCE_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_BINARY_NAME}") set(CTEST_BUILD_CONFIGURATION "Release") set(MODEL "Experimental") # build generator name, see cmake generator list set(CTEST_CMAKE_GENERATOR "Unix Makefiles") # machine description, can be removed on Linux set(CTEST_SITE "machine.domain") set(SITE_OS_NAME "os name") set(SITE_OS_VERSION "os version") set(SITE_OS_BITS "os size") set(SITE_COMPILER_NAME "compiler name") set(SITE_COMPILER_VERSION "compiler version") # needed for source updates, change as required set(REPOSITORY_URL "http://svn.hdfgroup.uiuc.edu/hdf4-examples/trunk") set(ADD_BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DCMAKE_INSTALL_PREFIX:PATH=/usr/local/hdfExamples-4.2.x") # location of the installed hdf4 (cmake configuration folder) set(ENV{HDF4_DIR} "/usr/share/cmake/hdf4") include(${CTEST_SCRIPT_DIRECTORY}/CTestScript.cmake) message("DONE") ################################################################################# ======================================================================== For further assistance, send email to help@hdfgroup.org ======================================================================== libhdf4-4.2.10/HDF_ALT/release_notes/USING_HDF4_VS.txt0000644000000000000000000000736412421456623016553 0ustar *********************************************************************** * HDF4 Build and Install Suggestions for Windows and Visual Studio * * (Full Version) * *********************************************************************** These suggestions are for Visual Studio users. Instructions for building and testing HDF4 applications using CMake can be found in the USING_HDF4_CMake.txt file found in this folder. The following two sections are helpful if you do not use CMake to build your applications. ========================================================================== Using Visual Studio 2010 with HDF4 Libraries Built with Visual Studio 2010 ========================================================================== 1. Set up the path to the external libraries and headers. The path settings will need to be in the project property sheets per project. Go to "Project" and select "Properties", find "Configuration Properties", and then "VC++ Directories". 1.1 If you are building on 64-bit Windows, find the "Platform" dropdown and select "x64". 1.2 Add the header path to the "Include Directories" setting. 1.3 Add the library path to the "Library Directories" setting. 1.4 Select Linker->Input and beginning with the "Additional Dependencies" line, enter the library names. The external libraries should be listed first followed by the HDF4 libraries. For example, enter: jpeg.lib szip.lib zlib.lib hdfdll.lib mfhdfdll.lib ========================================================================== Using Visual Studio 2008 with HDF4 Libraries Built with Visual Studio 2008 ========================================================================== 2. Set up the path to the external libraries and headers Invoke Microsoft Visual Studio and go to "Tools" and select "Options", find "Projects", and then "VC++ Directories". 2.1 If you are building on 64-bit Windows, find the "Platform" dropdown and select "x64". 2.2 Find the box "Show directories for", choose "Include files", add the header path (i.e., c:\Program Files\HDF_Group\HDF4\1.8.x\include) to the included directories. 2.3 Find the box "Show directories for", choose "Library files", add the library path (i.e., c:\Program Files\HDF_Group\HDF4\1.8.x\lib) to the library directories. 2.4 For Fortran libraries, you will also need to setup the path for the Intel Fortran compiler. 2.5 Select Project->Properties->Linker->Input and beginning with the "Additional Dependencies" line, enter the library names. The external libraries should be listed first followed by the HDF4 libraries. For example, enter: jpeg.lib szip.lib zlib.lib hdfdll.lib mfhdfdll.lib ======================================================================== 3. Helpful Pointers ======================================================================== 3.1 FAQ Many other common questions and hints are located online and being updated in the HDF4 FAQ. For Windows-specific questions, please see: http://www.hdfgroup.org/HDF4/windows/faq.html For all other general questions, you can look in the general FAQ: http://hdfgroup.org/HDF4-FAQ.html ************************************************************************ Please send email to help@hdfgroup.org for further assistance. libhdf4-4.2.10/HDF_ALT/release_notes/HISTORY.txt0000644000000000000000000063203512421456623015651 0ustar ========================================================================== = = = This files conatins a history of the HDF4.* releases. = = = = To find information about a particular release search = = for %%%4.#.# string, for example 4.2.6, or = = for %%%4.#r# string, for example 4.1r2, prior to 2010. = = List of all releases is at the top of this file. = = = = Documents in this file refer to several *.txt files that were = = originally stored in the release_notes directory of the HDF4 = = source tree. Those file are now combined into one misc_docs.txt = = file in the same directory. = = = ========================================================================== List of the HDF4 releases 4.2.9 February 2013 4.2.8 August 2012 4.2.7 February 2012 4.2.6 June 2011 4.2.5 February 2010 4.2r4 January 2009 4.2r3 January 2008 4.2r2 October 2007 4.2r1 February 2005 4.2r0 December 2003 4.2r0-Beta September 2003 4.1r5 November 2001 4.1r4 October 2000 4.1r3 May 1999 4.1r2 March 1998 4.1r1 February 1997 4.1b1 December 1996 4.0r2 July 1996 4.0r1 February 1996 4.0b2 November 1995 4.0b1 July 1995 4.0.alpha November 1994 ========================================================================== %%%4.2.9%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF version 4.2.9 released on 2013-02-07 ============================================= INTRODUCTION This document describes the differences between HDF 4.2.8 and HDF 4.2.9. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.9. The HDF 4.2.9 documentation can be found on the The HDF Group's website at: http://www.hdfgroup.org/doc.html Previous versions of the documentation are available from the FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Configuration - Support for new platforms and compilers - Bugs fixed since HDF 4.2.8 -- Configuration -- Library -- Utilities - Documentation - Platforms tested - Known problems New features and changes ======================== Configuration ============= - The macro H4_NO_DEPRECATED_SYMBOLS was added to handle deprecated functions/features. To use deprecated functions/features, the library must be configured with option HDF4_ENABLE_DEPRECATED_SYMBOLS. (ADB, BMR 2013/1/25) Support for new platforms and compilers ======================================= - Ported to Mac OSX 10.8 (Mountain Lion) with Clang as the default C compiler. (AKC 2013/1/19) - Ported to Mac OSX 10.8 (Mountain Lion) with Intel compilers. (EIP 2013/02/05) Bugs fixed since HDF 4.2.8 ========================= Configuration ============= - Cygwin >= 1.7.7; The SunRPC of the glibc has been replaced by a TI-RPC (Transport Independent RPC) library to support IPv6. Configure has been updated to look for the tirpc library instead of rpc. (ADB 2012/11/09) Library ========= - SDgetcompress is now deprecated and not available by default. Its availability can be activated using option HDF4_ENABLE_DEPRECATED_SYMBOLS. (BMR 2012/1/25) - Some memory leaks were fixed. (BMR 2012/10/01) Utilities ========= - Vnattrs/Vattrinfo/Vgetattr are replaced with Vnattrs2/Vattrinfo2/Vgetattr2 in various tools to ensure attributes that are not created by Vsetattr can still be detected and accessed. The Reference Manual and User's Guide provide details about this issue. (BMR 2012/12/25) Documentation ============= - The Reference Manual and User's Guide have minor updates. - The Specification and Developer's Guide is extensively updated. Platforms tested ================ This version has been tested in the following platforms: Linux 2.6.32-279.19.1 gcc (GCC) 4.4.6 20120305 (Red Hat 4.4.6-4) .el6.ppc64 #1 GNU Fortran (GCC) 4.4.6 20120305 (Red Hat 4.4.6-4) SMP ppc64 GNU/Linux IBM XL Fortran for Linux, V13.1 (64-bit mode) (ostrich) Linux 2.6.18-308.13.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-52) SMP i686 i386 GNU Fortran (GCC) 4.1.2 20080704 (jam) (Red Hat 4.1.2-52) pgcc and pgf90 11.9-0 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 12.1.0 20110811 Intel(R) Fortran Compiler, Version 12.1.0 Linux 2.6.18-308.24.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-52) SMP x86_64 GNU/Linux GNU Fortran (GCC) 4.1.2 20080704 (koala) (Red Hat 4.1.2-52) icc (ICC) 12.1.0 20110811 ifort (IFORT) 12.1.0 20110811 pgcc and pgf90 11.9-0 64-bit target on x86-64 Linux -tp nehalem SunOS 5.10 32- and 64-bit Sun C 5.9 SunOS_sparc Patch 124867-16 2010/08/11 (linew) Sun Fortran 95 8.3 SunOS_sparc Patch 127000-13 2010/01/26 Sun C 5.11 SunOS_sparc 2010/08/13 Sun Fortran 95 8.5 SunOS_sparc 2010/08/13 SunOS 5.11 32- and 64-bit Sun C 5.12 SunOS_sparc 2011/11/16 (emu) (see "Known problem" section) Sun Fortran 95 8.6 SunOS_sparc 2011/11/16 Windows 7 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(CYGWIN_NT-6.1 1.7.15(0.260/5/3) gcc(4.5.3) compiler and gfortran) Windows 7 x64 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(CYGWIN_NT-6.1 1.7.15(0.260/5/3) gcc(4.5.3) compiler and gfortran) MAC OS X Intel 10.6.8 icc (ICC) 12.1 Build 20120928 (64-bit) ifort (IFORT) 12.1 Build 20120928 Darwin 10.8.0 i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 (fred) GNU Fortran (GCC) 4.6.2 20111019 Apple clang version 1.7 (tags/Apple/clang-77) (based on LLVM 2.9svn) MAC OS X Intel 10.7.5 i686-apple-darwin11-llvm-gcc-4.2 (GCC) 4.2.1 (64 bit) GNU Fortran (GCC) 4.6.2 20111019 Darwin 11.4.2 icc and ifort Version 13.0 Build 20121010 (duck) Apple clang version 3.0 (tags/Apple/clang-211.12) (based on LLVM 3.0svn) Mac OS X 10.8.2 Apple LLVM version 4.2 (clang-425.0.24) Darwin 12.2.0 gcc i686-apple-darwin11-llvm-gcc-4.2 (GCC) 4.2.1 (wren) gfortran GNU Fortran (GCC) 4.6.2 icc and ifort Version 13.0.1.119 Build 20121010 Debian6.0.3 2.6.32-5-686 #1 SMP i686 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Debian6.0.3 2.6.32-5-amd64 #1 SMP x86_64 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Fedora17 3.5.2-1.fc17.i6866 #1 SMP i686 i686 i386 GNU/Linux gcc (GCC) 4.7.0 20120507 (Red Hat 4.7.0-5) GNU Fortran (GCC) 4.7.0 20120507 (Red Hat 4.7.0-5) Fedora17 3.5.2-1.fc17.x86_64 #1 SMP x86_64 x86_64 x86_64 GNU/Linux gcc (GCC) 4.7.0 20120507 (Red Hat 4.7.0-5) GNU Fortran (GCC) 4.7.0 20120507 (Red Hat 4.7.0-5) SUSE 12.2 3.4.6-2.10-desktop #1 SMP PREEMPT i686 i686 i386 GNU/Linux gcc (SUSE Linux) 4.7.1 GNU Fortran (SUSE Linux) 4.7.1 SUSE 12.2 3.4.6-2.10-desktop #1 SMP PREEMPT x86_64 x86_64 x86_64 GNU/Linux gcc (SUSE Linux) 4.7.1 GNU Fortran (SUSE Linux) 4.7.1 Ubuntu 12.04 3.2.0-29-generic #46-Ubuntu SMP i686 GNU/Linux gcc (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 GNU Fortran (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 Ubuntu 12.04 3.2.0-29-generic #46-Ubuntu SMP x86_64 GNU/Linux gcc (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 GNU Fortran (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 Known problems ============== o On SunOS 5.11, the -xc99 flag has to be used with the cc compiler to avoid compilation errors. Future releases will automatically detect the system and add the flag. (HDFFR-1361) EIP - 2013/02/05 o For Mac OS X 10.7 Lion and on 10.8 Mountain Lion, several tests fail with GCC, Intel and Clang compilers. Currently, this situation is detected and -O0 level optimization is used. We will work on the issue for the next release. (HDFFR-1358,1327,1358) EIP - 2013/02/05 o On IBM PowerPC 64, hdftest fails when gcc 4.4.6 is used with -O3 optimization level. o When building in AIX systems, if CC is xlc with -qlanglvl=ansi, configure will fail when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of the jpeg library have HAVE_STDLIB_H defined in the jconfig.h header file. Without the -qlanglvl=ansi, some older xlc versions (e.g., V7.0) still fail, but newer xlc versions (e.g., V9.0) pass. AKC - 2010/02/17 o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files in the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale have the same name, subsequent accesses to the dimension scale or to the SDS might produce undesired results because the libraries could not distinguish between the two objects. In the case of writing, data might even be corrupted. For example, SDS data might be written to a dimension variable or vice versa. HDF4 Library Releases 4.2r2 and later make a distinction between an SDS and a dimension variable. However, as with older versions, these recent versions are unable to detect such conflicts in files created by earlier releases. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata) after being written and before SDgetdatasize is called. %%%4.2.8%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF version 4.2.8 released on 2012-08-03 =================================================== INTRODUCTION This document describes the differences between HDF 4.2.7 and HDF 4.2.8. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.8. The HDF 4.2.8 documentation can be found on the The HDF Group's FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Source distribution -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF 4.2.7 -- Configuration -- Library -- Utilities - Documentation - Platforms tested - Known problems New features and changes ======================== Source distribution =================== - [None. PPM - YYYY/MM/DD] Configuration ============= - [None] Library ========= - It was discovered by the HDF Mapping Project that there were certain type of palettes that cannot be retrieved by existing functions. A new function, GRgetpalinfo, was added to allow applications to get information about palettes. Please refer to the HDF User's Guide and Reference Manual for more information regarding this palette issue. BMR - 2012/07/26 - It was also discovered that the IMCOMP compression was not detected. Although IMCOMP is no longer supported in new data, HDF still needs to detect IMCOMP compression from existing data. We added COMP_CODE_IMCOMP to comp_coder_t with value 12 (same as COMP_IMCOMP.) The library and hdp now can detect IMCOMP compression. However, writing IMCOMP compressed images is not allowed. BMR - 2012/07/26 - Added GRgetcomptype to return image's compression, which can include IMCOMP. BMR - 2012/07/26 Test ==== - [None] Utilities ========= - [None] Support for new platforms and compilers ======================================= - Mac OS X 10.7.4 with GNU gcc and gfortran compilers Bugs fixed since HDF 4.2.7 ========================= Configuration ============= - Add config/apple-darwin11.4.0 customized for Mac OS X 10.7 Lion. This one set production CFLAGS to -O0 to eliminate the test errors encountered in Lion systems only. This one lets HDF4 to be build and run in Lion systems. More investigate needed to locate the exact locations of the errors. (HDFFR-1327 and HDFFR-1328) AKC - 2012/07/03 - The USE_ENUM in mfhdf/libsrc/netcdf.h, which is copied from config/netcdf-apple.h, which generated an error due to xdr_enum overwrote memory outside of its designated enum variable. This happened only to the apple provided compiler (i686-apple-darwin11-llvm-gcc-4.2 (GCC) 4.2.1). We decided to not define USE_ENUM for all apple OS for now. (HDFFR-1318) AKC - 2012/07/01 Library ========= - [None] Utilities ========= - Added test file IMCOMP.hdf and sample file dumpgr-20.out for IMCOMP test for testing the detection of IMCOMP compressed image in hdp. BMR - 2012/07/26 Documentation ============== - The Reference Manual and User's Guide have been updated to include new functions: + GRgetpalinfo + GRgetcomptype BMR - 2012/07/26 Platforms tested ================ This version has been tested in the following platforms: Linux 2.6.32-279.2.1 gcc (GCC) 4.4.6 20120305 (Red Hat 4.4.6-4) .el6.ppc64 #1 GNU Fortran (GCC) 4.4.6 20120305 (Red Hat 4.4.6-4) SMP ppc64 GNU/Linux IBM XL Fortran for Linux, V13.1 (64-bit mode) (ostrich) Linux 2.6.18-194.3.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) SMP i686 i386 GNU Fortran (GCC) 4.1.2 20080704 (jam) (Red Hat 4.1.2-52) pgcc and pgf90 11.9-0 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 12.1.0 20110811 Intel(R) Fortran Compiler, Version 12.1.0 Linux 2.6.18-274.17.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-51) SMP x86_64 GNU/Linux GNU Fortran (GCC) 4.1.2 20080704 (koala) (Red Hat 4.1.2-51) icc (ICC) 12.1.0 20110811 ifort (IFORT) 12.1.0 20110811 pgcc and pgf90 11.9-0 64-bit target on x86-64 Linux -tp nehalem SunOS 5.10 32- and 64-bit Sun C 5.9 SunOS_sparc Patch 124867-16 2010/08/11 (linew) Sun Fortran 95 8.3 SunOS_sparc Patch 127000-13 2010/01/26 Xeon Linux 2.6.32.24-0.2.1.2230.2.PTF-default #1 SMP x86_64 Intel(R) C Compiler Version 11.1.073 20100806 SGI Altix UV Intel(R) Fortran Compiler Version 11.1.073 (ember) gcc (SUSE Linux) 4.3.4 [gcc-4_3-branch revision 152973 GNU Fortran (SUSE Linux) 4.3.4 [gcc-4_3-branch revision 152973] Windows 7 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(1.7.15 native gcc(4.5.3) compiler and gfortran) Windows 7 x64 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(1.7.15 native gcc(4.5.3) compiler and gfortran) MAC OS X Intel 10.6.8 Darwin 10.8.0 (32 bit) i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 (tejeda) GNU Fortran (GCC) 4.6.1 icc (ICC) 12.1.0 20110811 ifort (IFORT) 12.1.0 20110811 MAC OS X Intel 10.6.8 Darwin 10.8.0 (64 bit) icc (ICC) 12.1.0 20110811 (fred) ifort (IFORT) 12.1.0 20110811 i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 GNU Fortran (GCC) 4.6.2 MAC OS X Intel 10.7.4 Darwin 11.4.0 (64 bit) i686-apple-darwin11-llvm-gcc-4.2.1 (GCC) 4.2.1 (hdf-duck) gcc (GCC) 4.6.2 GNU Fortran (GCC) 4.6.2 Debian6.0.3 2.6.32-5-686 #1 SMP i686 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Debian6.0.3 2.6.32-5-amd64 #1 SMP x86_64 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Fedora15 3.2.9-2.fc16.i686.PAE #1 SMP i686 i686 i386 GNU/Linux gcc (GCC) 4.6.2 20111027 (Red Hat 4.6.2-1) GNU Fortran (GCC) 4.6.2 20111027 (Red Hat 4.6.2-1) Fedora15 3.2.9-2.fc16.x86_64 #1 SMP x86_64 x86_64 x86_64 GNU/Linux gcc (GCC) 4.6.2 20111027 (Red Hat 4.6.2-1) GNU Fortran (GCC) 4.6.2 20111027 (Red Hat 4.6.2-1) SUSE 12.1 3.1.9-1.4-desktop #1 SMP PREEMPT i686 i686 i386 GNU/Linux gcc (SUSE Linux) 4.6.2 GNU Fortran (SUSE Linux) 4.6.2 SUSE 12.1 3.1.9-1.4-desktop #1 SMP PREEMPT x86_64 x86_64 x86_64 GNU/Linux gcc (SUSE Linux) 4.6.2 GNU Fortran (SUSE Linux) 4.6.2 Ubuntu 11.10 3.2.0-26-generic #23-Ubuntu SMP i686 GNU/Linux gcc (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 GNU Fortran (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 Ubuntu 11.10 3.2.0-26-generic #23-Ubuntu SMP x86_64 GNU/Linux gcc (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 GNU Fortran (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3 Known problems ============== o For Mac OS X 10.7 Lion, the test suite on the mfhdf side encounter 2 erros, when optimization is used, whether with the Apple GCC compiler or with the GNU GCC compiler. CFLAGS must be set to use no optimization (-O0 or -g) to avoid these failures. config/apple-darwin11.4.0 is added to direct configure to use -O0 for CFLAGS for Mac OS X 10.7 Lion. We hope to fix the bug in the next release. (HDFFR-1327 and HDFFR-1328) AKC - 2012/07/03 o On IBM PowerPC 64 hdftest fails when gcc 4.4.6 is used with -O3 optimization level. o When building in AIX systems, if CC is xlc with -qlanglvl=ansi, configure will fail when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of jpeg library have HAVE_STDLIB_H defined in the jconfig.h header file. Without the -qlanglvl=ansi, some older xlc (e.g., V7.0) still fails but newer xlc (e.g., V9.0) passes. AKC - 2010/02/17 o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files in the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale have the same name, subsequent accesses to the dimension scale or to the SDS might produce undesired results because the libraries could not distinguish between the two objects. In the case of writing, data might even be corrupted. For example, SDS data might be written to a dimension variable or vice versa. HDF4 Library Releases 4.2r2 and later make a distinction between an SDS and a dimension variable. However, as with older versions, these recent versions are unable to detect such conflicts in files created by earlier releases. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata) after being written and before SDgetdatasize is called. %%%4.2.7%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF version 4.2.7 released on 2012-02-06 =================================================== INTRODUCTION This document describes the differences between HDF 4.2.6 and HDF 4.2.7. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.7. The HDF 4.2.7 documentation can be found on the The HDF Group's FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Source distribution -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2.6 -- Utilities -- Library -- Configuration - Documentation - Platforms tested - Known problems New features and changes ======================== Source distribution =================== - None Configuration ============= - Fortran fort_ps folders are now obsolete, and VS2008 project files have been updated. CMake was tested on Windows, Linux, and Cygwin. ADB - 2012/1/20 Library ========= - Fortran fort_ps folders are obsolete and have been removed. ADB - 2012/1/20 - VSgetexternalfile and SDgetexternalfile are superseded by VSgetexternalinfo and SDgetexternalinfo because their prototypes missed the parameter "length" for external data length. (part 1 in bug HDFFR-1297) BMR - 2012/1/15 - Visinternal is superseded by Vgisinternal, which allows the handling of special cases in old data. (part 2 in bug HDFFR-1297) BMR - 2012/1/15 - Fortran wrappers vfgvgroups and vsfgvdatas have been added for Vgetvgroups and VSgetvdatas, respectively. MSB - 2012/1/5 Test ==== - The following files were added: ./hdf/test/test_files/README: special notes on data files in this directory ./hdf/test/test_files/grtdfui83.hdf: file to test old data situations ./mfhdf/test/tutils.c: added to provide common code for various tests BMR - 2011/1/21 - The following file was removed: ./mfhdf/test/tidtypes.c: changed to tmixed_apis.c for broader contents BMR - 2011/1/21 Utilities ========= - The following files were added: ./mfhdf/dumper/testfiles/Roy.nc: file to test skipping compression check in a netCDF file ./mfhdf/dumper/testfiles/dumpsds-18.out: output of testing netCDF file ./hdf/test/tvnameclass.c: tests issues involving vgroup/vdata names/classes BMR - 2011/1/21 Support for new platforms and compilers ======================================= - IBM XL Fortran for Linux 64-bit, V13.1 on Linux PowerPC 64 EIP - 2012-02-01 Bugs fixed since HDF4.2.6 ========================= Utilities ========= - hrepack: Version HDF4 2.6 does not allow the combination of unlimited dimensions and compression, which is wrong. - Freeing incorrect buffers caused segfault. It was previously commented out, thus resulted in memory leaks. This is now fixed. (HDFFR-479) BMR - 2011/11/3 - hdp: fixed to skip netCDF files when checking for compression. (HDFFR-473) BMR - 2011/11/1 Library ========= - SDgetchunkinfo and SDreadchunk failed on an empty SDS when the file is opened as read-only (HDFFR-171). This is now fixed. BMR - 2011/10/20 - SDcheckempty was fixed to return "empty" when detecting a pair of DFTAG_SD/ that is associated with offset=INVALID_OFFSET and length=INVALID_LENGTH. BMR - 2011/10/9 - Vgetclass and Vgetname were fixed to return vgclass and vgname with null terminated character when the class or name is not set. (HDFFR-1288) BMR - 2011/9/19 Configuration ============= - [None] Documentation ============== - The Reference Manual and User's Guide have been updated to include new functions: + VSgetexternalinfo and SDgetexternalinfo + Vgisinternal + Fortran wrappers vfgvgroups and vsfgvdatas BMR - 2012/1/22 Platforms tested ================ This version has been tested in the following platforms: Linux 2.6.32-220.2.1 gcc (GCC) 4.4.6 20110731 (Red Hat 4.4.6-3) .el6.ppc64 #1 GNU Fortran (GCC) 4.4.6 20110731 SMP ppc64 GNU/Linux IBM XL Fortran for Linux, V13.1 (64-bit mode) (ostrich) Linux 2.6.18-194.3.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) SMP i686 i386 GNU Fortran (GCC) 4.1.2 20080704 (jam) (Red Hat 4.1.2-51) pgcc and pgf90 11.8-0 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 12.0.4 20110427 Intel(R) Fortran Compiler, Version 12.0.4 Linux 2.6.18-274.17.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-51) SMP x86_64 GNU/Linux GNU Fortran (GCC) 4.1.2 20080704 (koala) (Red Hat 4.1.2-51) icc (ICC) 12.0.4 20110427 ifort (IFORT) 12.0.4 20110427 pgcc and pgf90 11.8-0 64-bit target on x86-64 Linux -tp nehalem SunOS 5.10 32- and 64-bit Sun C 5.9 SunOS_sparc Patch 124867-16 2010/08/11 (linew) Sun Fortran 95 8.3 SunOS_sparc Patch 127000-13 2010/01/26 Xeon Linux 2.6.32.24-0.2.1.2230.2.PTF-default #1 SMP x86_64 Intel(R) C Compiler Version 11.1.073 20100806 SGI Altix UV Intel(R) Fortran Compiler Version 11.1.073 (ember) Windows XP Visual Studio 2008 w/ Intel Fortran 10.1 (project files) Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(1.7.9 native gcc(4.5.3) compiler and gfortran) Windows XP x64 Visual Studio 2008 w/ Intel Fortran 10.1 (project files) Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Cygwin(1.7.9 native gcc(4.5.3) compiler and gfortran) Windows 7 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) Windows 7 x64 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 w/ Intel Fortran 12 (cmake) MAC OS X Intel 10.6.8 Darwin 10.8.0 (32 bit) i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 (tejeda) GNU Fortran (GCC) 4.6.1 icc (ICC) 12.1.0 20110811 ifort (IFORT) 12.1.0 20110811 MAC OS X Intel 10.6.8 Darwin 10.8.0 (64 bit) icc (ICC) 12.1.0 20110811 (fred) ifort (IFORT) 12.1.0 20110811 i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 GNU Fortran (GCC) 4.6.1 Debian6.0.3 2.6.32-5-686 #1 SMP i686 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Debian6.0.3 2.6.32-5-amd64 #1 SMP x86_64 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Fedora15 2.6.41.4-1.fc15.i686.PAE #1 SMP i686 i686 i386 GNU/Linux gcc (GCC) 4.6.1 20110908 (Red Hat 4.6.1-9) GNU Fortran (GCC) 4.6.1 20110908 (Red Hat 4.6.1-9) Fedora15 2.6.41.4-1.fc15.x86_64 #1 SMP x86_64 x86_64 x86_64 GNU/Linux gcc (GCC) 4.6.1 20110908 (Red Hat 4.6.1-9) GNU Fortran (GCC) 4.6.1 20110908 (Red Hat 4.6.1-9) SUSE 11.4 2.6.37.6-0.9-desktop #1 SMP PREEMPT i686 i686 i386 GNU/Linux gcc (SUSE Linux) 4.5.1 20101208 GNU Fortran (SUSE Linux) 4.5.1 20101208 SUSE 11.4 2.6.37.6-0.9-desktop #1 SMP PREEMPT x86_64 x86_64 x86_64 GNU/Linux gcc (SUSE Linux) 4.5.1 20101208 GNU Fortran (SUSE Linux) 4.5.1 20101208 Ubuntu 11.10 3.0.0-14-generic #23-Ubuntu SMP i686 GNU/Linux gcc (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1 GNU Fortran (Ubuntu/Linaro 4.6.4-9ubuntu3) 4.6.1 Ubuntu 11.10 3.0.0-14-generic #23-Ubuntu SMP x86_64 GNU/Linux gcc (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1 GNU Fortran (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1 Known problems ============== o On IBM PowerPC 64 hdftest fails when gcc 4.4.6 is used with -O3 optimization level. o When building in AIX systems, if CC is xlc with -qlanglvl=ansi, configure fails when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of jpeg library have HAVE_STDLIB_H defined in the jconfig.h header file. Without the -qlanglvl=ansi, some older xlc (e.g., V7.0) still fails but newer xlc (e.g., V9.0) passes. AKC - 2010/02/17 o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files in the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale have the same name, subsequent accesses to the dimension scale or to the SDS might produce undesired results because the libraries could not distinguish between the two objects. In the case of writing, data might even be corrupted. For example, SDS data might be written to a dimension variable or vice versa. HDF4 Library Releases 4.2r2 and later make a distinction between an SDS and a dimension variable. However, as with older versions, these recent versions are unable to detect such conflicts in files created by earlier releases. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata) after being written and before SDgetdatasize is called. %%%4.2.6%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF version 4.2.6 released on 2011-06-15 =================================================== INTRODUCTION This document describes the differences between HDF 4.2.5 and HDF 4.2.6. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.6. The HDF 4.2.6 documentation can be found on the The HDF Group's FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Source distribution -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2.5 -- Utilities -- Library -- Configuration - Documentation - Platforms tested - Known problems New features and changes ======================== Source distribution =================== - [None] Configuration ============= - CMake support has been added. Current version recommemded is CMake 2.8.4. ADB - 2011/06/14 - Specified explicit version of the netCDF API (v 2.3.2) used by HDF in configure help and in configuration SUMMARY. Library ========= - Prior to HDF version 4.2.6, passing 0 for count caused failure; however, the failure did not occur in SDsetattr but was delayed until SDend. This can potentially cause file corruption. Starting from release 4.2.6, SDsetattr will fail when count is 0. BMR - 2011/06/09 - The function Vnattrs only processes attributes created by Vsetattr. It is not aware of attributes created by the pre-Vsetattr methods. The following functions are added to work around the limitation of Vnattrs: + Vnattrs2 gives number of new- and old-style attributes + Vattrinfo2 gives information about an old or new style attribute + Vgetattr2 reads values of an old or new style attribute BMR - 2011/06/09 - The following functions were added to support the HDF4 Mapping project specifically: + VSgetdatainfo gives offsets/lengths of a vdata's data + ANgetdatainfo gives offset/length of an annotation's data + SDgetdatainfo gives offsets/lengths of a data set's data + GRgetdatainfo gives offsets/lengths of a raster image's data + VSgetattdatainfo gives offset/length of vdata attribute's data + VGgetattdatainfo gives offset/length of vgroup attribute's data + GRgetattdatainfo gives offset/length of raster image attribute's data + SDgetattdatainfo gives offset/length of data set attribute's data + SDgetoldattdatainfo gives offset/length of a pre-defined attribute in old format + SDgetanndatainfo gives offset/lenth of an annotation belonging to an SDS + Vgetvgroups gives a list of user-created vgroups + VSgetvdatas gives a list of user-created vdatas + VSofclass gives a list of vdatas of a specific class + Hgetntinfo gives some information about a number type + GR2bmapped indicates whether a raster image should be mapped BMR - 2011/06/09 - Two functions are added to provide information of an external file: VSgetexternalfile for a vdata and SDgetexternalfile for a data set. BMR - 2011/06/09 Utilities ========= - [None] Support for new platforms and compilers ======================================= - [None] Bugs fixed since HDF4.2.5 ========================= Utilities ========= - hdp dumpvd and dumpsds now provide the name of the external file in the error message when reading fails due to missing the external file. BMR - 2011/06/10 - The problem where hdiff displays zeroes for Vdata values that are non-zero had been fixed. BMR - 2011/06/09 - hdp had been fixed for the problems of + dumpvd printing Name/Class incorrectly + dumprig giving wrong info about RIS24 and palettes + dumpvg missing some items in the Graphical representation BMR - 2011/06/09 Library ========= - The JPEG test failure due to the different versions of the JPEG library had been fixed. HDF4 is expected to build and pass regression tests for any version of the JPEG library available on the user's systems. BMR - 2011/06/09 Configuration ============= - [None] Documentation ============== The updated HDF Reference Manual is now available in HTML format. Platforms tested ================ This version has been tested in the following platforms: Linux 2.6.18-194.3.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) SMP i686 i386 G95 (GCC 4.0.3 (g95 0.92!) Jun 24 2009) (jam) g77 (GCC) 3.4.6 20060404 pgcc and pgf90 10.6-0 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 11.1 Intel(R) Fortran Compiler, Version 11.1 GNU Fortran (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) Linux 2.6.18-238.9.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) SMP x86_64 GNU/Linux G95 (GCC 4.0.3 (g95 0.93!) Apr 21 2010) (koala) icc (ICC) 12.0.3 20110309 ifort (IFORT) 12.0.3 20110309 pgcc and pgf90 11.3-0 64-bit target on x86-64 Linux -tp nehalem GNU Fortran (GCC) 4.1.2 20080704 (Red Hat 4.1.2-50) SunOS 5.10 32- and 64-bit Sun C 5.9 SunOS_sparc Patch 124867-16 (linew) Sun Fortran 95 8.3 SunOS_sparc Patch 127000-13 Xeon Linux 2.6.32.24-0.2.1.2230.2.PTF-default #1 SMP x86_64 Intel(R) C Compiler Version 11.1.073 SGI Altix UV Intel(R) Fortran Compiler Version 11.1.073 (ember) AIX 6.1 (32/64 bit) IBM XL C/C++ for AIX, V11.1 (NCSA bp-login) IBM XL Fortran for AIX, V13.1 Windows XP Visual Studio 2008 w/ Intel Fortran 10.1 (project files) Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 (cmake) Cygwin(1.7.7 native gcc(4.3.4) compiler and gfortran) Windows XP x64 Visual Studio 2008 w/ Intel Fortran 10.1 (project files) Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Visual Studio 2010 (cmake) Cygwin(1.7.7 native gcc(4.3.4) compiler and gfortran) Windows 7 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) Windows 7 x64 Visual Studio 2008 w/ Intel Fortran 11.1 (cmake) MAC OS X Intel 10.6.2 Darwin 10.7.0 (32 bit) i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 (tejeda) GNU Fortran (GCC) 4.4.0 20090123 MAC OS X Intel 10.6.2 Darwin 10.7.0 (64 bit) Intel C icc (ICC) 12.0 20101110 (fred) Intel Fortran ifort (IFORT) 12.0 20101110 i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 GNU Fortran (GCC) 4.6.0 Debian6.01 2.6.32-5-686 #1 SMP i686 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Debian6.01 2.6.32-5-amd64 #1 SMP x86_64 GNU/Linux gcc (Debian 4.4.5-8) 4.4.5 GNU Fortran (Debian 4.4.5-8) 4.4.5 Fedora14 2.6.35.12-88.fc14.i686.PAE #1 SMP i686 i686 i386 GNU/Linux gcc (GCC) 4.5.1 20100924 (Red Hat 4.5.1-4) GNU Fortran (GCC) 4.5.1 20100924 (Red Hat 4.5.1-4) Fedora14 2.6.35.12-88.fc14.x86_64 #1 SMP x86_64 x86_64 x86_64 GNU/Linux gcc (GCC) 4.5.1 20100924 (Red Hat 4.5.1-4) GNU Fortran (GCC) 4.5.1 20100924 (Red Hat 4.5.1-4) SUSE 11.4 2.6.37.1-1.2-desktop #1 SMP PREEMPT i686 i686 i386 GNU/Linux gcc (SUSE Linux) 4.5.1 20101208 GNU Fortran (SUSE Linux) 4.5.1 20101208 SUSE 11.4 2.6.37.1-1.2-desktop #1 SMP PREEMPT x86_64 x86_64 x86_64 GNU/Linux gcc (SUSE Linux) 4.5.1 20101208 GNU Fortran (SUSE Linux) 4.5.1 20101208 Ubuntu 10.10 2.6.35-28-generic #50-Ubuntu SMP i686 GNU/Linux gcc (Ubuntu/Linaro 4.4.4-14ubuntu5) 4.4.5 GNU Fortran (Ubuntu/Linaro 4.4.4-14ubuntu5) 4.4.5 Ubuntu 10.10 2.6.35-28-generic #50-Ubuntu SMP x86_64 GNU/Linux gcc (Ubuntu/Linaro 4.4.4-14ubuntu5) 4.4.5 GNU Fortran (Ubuntu/Linaro 4.4.4-14ubuntu5) 4.4.5 Known problems ============== o Wnen buidling in AIX systems, if CC is xlc with -qlanglvl=ansi, configure fails when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of jpeg library has HAVE_STDLIB_H defined in its jconfig.h header file. Without the -qlanglvl=ansi, some older xlc (e.g., V7.0) still fails but newer xlc (e.g., V9.0) passes. AKC - 2010/02/17 o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files into the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale were created with the same name, subsequent accesses to the dimension scale or to the SDS might corrupt the data. HDF4 Library Releases 4.2r2 and later do not allow this conflict to occur. On the other hand, recent libraries are also unable to detect such conflicts that already exist in a file. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata), after being written and before SDgetdatasize is called. %%%4.2.5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF version 4.2.5 released on Wed Feb 24 13:00:16 CST 2010 =================================================== INTRODUCTION This document describes the differences between HDF 4.2.4 and HDF 4.2.5 It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2.5 The HDF 4.2.5 documentation can be found on the The HDF Group's FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Source distribution -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2.4 -- Utilities -- Library -- Configuration - Documentation - Platforms tested - Known problems - Appendix: List of the removed files New features and changes ======================== Source distribution =================== - For the complete list of the removed obsolete files see Appendix. - Removed obsolete mfhdf/port and mfhdf/c++ directories and related code (EIP - 2010/1/18) - Removed obsolete hdf/fmpool directory and related code - Removed obsolete constants PCIO, WINIO, PAGEBIFIO, and WINNTIO from hdfi.h and hfile.h (EIP - 2009/12/31) - INSTALL* files were moved to the release_notes directory (EIP - 2009/12/29) - SD tests were moved from mfhdf/libsrc to mfhdf/test. (BMR - 2009/09/10) Configuration ============= - Added a configure check that will fail when jpeg version 7 is used, as this is not yet supported in HDF4. (MAM - 2010/01/28) - Configure suite now built with the following versions of the autotools: Automake 1.11.1, Autoconf 2.65, and Libtool 2.2.6b (MAM - 2009/12/14) Library ========= - SDgetchunkinfo now contains compression type and compression information. If failure occurs while getting compression information, the associate compression parameters will be set to -1 to indicate that no compression information is retrieved, instead of SDgetchunkinfo simply fails. This is to support backward compatibily. (BMR - 2010/02/04) - Vgroup name and class name can now be more than the previous limit of 64 characters. Two public functions are provided for applications to be able to allocate sufficient space for these items. int32 Vgetnamelen (int32 vkey, uint16 *name_len); int32 Vgetclassnamelen (int32 vkey, uint16 *classname_len); Please refer to the Reference Manual and User's Guide for details. (BMR - 2010/01/27) - SDreset_maxopenfiles allows users to reset the number of the files that can be open at the same time to the system limit minus 3. On AIX 6.1 system limit is 2GB-1 causing HDF4 to choke. Source code was modified to put a cap on the system limit to not exceed H4_MAX_AVAIL_OPENFILES (currently 20000). (EIP - 2010/02/01) - "make installcheck" builds and tests examples using h4cc and h4fc scripts (MAM, BMR and MSB - 2009/12) - HDF Fortran examples were added to hdf/fortran/examples. (MAM - 2009/12/14) - SD examples were added to mfhdf/examples. (BMR - 2009/08/28) - HDF C examples were added to hdf/examples. (BMR - 2009/11/07) Test ==== - Added tests for GRfindattr, GRattrinfo, and GRgetattr (BMR - 2009/11/15) - Moved SD tests out of mfhdf/libsrc into the new directory mfhdf/test (BMR - 2009/09/10) Utilities ========= - Added flag -k to hdp dumpsds to keep the order of the outputted SDSs the same as the order they were specified on the command line. The default (without -k) is SDSs are printed in the order in which they were added to the file (ie., indices.) (BMR - 2010/02/03) - Added -V flag to hdiff, hrepack, hdfimport, ncdump and ncgen; when specified, tool prints library version string and exits. (EIP - 2010/01/28) - Hrepack: set default value for JPEG's quality factor to 75 to prevent image distortion when the factor is not provided by user (BMR - 2010/01/14) Daily Test and Release ====================== Added h4vers and release scripts and Snapshot Release capability. Support for new platforms and compilers ======================================= Added support for 64-bit Mac Intel with gcc, gfortran and Intel C and Fortran compilers. Added support for AIX 6.1 using IBM XL C and Fortran compilers. (EIP - 2010/1/29) Bugs fixed since HDF4.2.4 ========================= Utilities ========= - None Library ========= - The problem where incorrect result occurred when attempting to retrieve the dimension scale's number type from a netCDF file was fixed (bugzilla #1644.) (BMR - 2009/09/25) - The problem where pieces of an image get written multiple times at different locations in the 2-D array had been fixed. The cause was the pointer to user's buffer was not advanced properly. This was part of bugzilla 1547. (BMR - 2009/06/10) - The problem which SDgetdimstrs failed if there are no attributes attached to the dimension had been fixed. SDgetdimstrs now returns the attribute strings containing '\0' for the first character, as specified in the documentation. (BMR - 2009/08/28) Configuration ============= - The mfhdf/ncgen/Makefile.in now has $(EXEEXT) appended to the ncgen program whenever it is referenced in a build rule dependency. This fixes some compile problems on Cygwin, where the .exe is necessary. (MAM - 2009/12/17). - Configure will now fail if the yacc or flex utilities are not available (as opposed to failing sometime during make when they are used). (MAM - 2009/12/17). - Configure will now properly check for the rpc library when on Cygwin, and fail gracefully if it is not found. (MAM - 2009/12/17) - Configure will no longer try to use a Fortran compiler to set up aspects of the build environment when Fortran has been disabled, as configure now deliberately sets the F77 environment variable to 'no' when Fortran is disabled. This should no longer cause build problems on Cygwin when no Fortran compiler is available. (MAM - 2009/12/14) - './configure --help' will now correctly indicate that shared libraries are disabled by default. (MAM - 2009/12/14) Documentation ============== The updated HDF Reference Manual is now available in HTML format. Platforms tested ================ HDF 4.2.5 has been tested in the following platforms: FreeBSD 6.3-STABLE i386 gcc 3.4.6 [FreeBSD] 20060305 (duty) f77 (gcc) 3.4.6 gcc (GCC) 4.4.4 20100126 (prerelease) GNU Fortran (GCC) 4.4.4 20100126 (prerelease) FreeBSD 6.3-STABLE amd64 gcc 3.4.6 [FreeBSD] 20060305 (liberty) f77 (gcc) 3.4.6 gcc (GCC) 4.4.4 20100126 (prerelease) GNU Fortran (GCC) 4.4.4 20100126 (prerelease) Linux jam 2.6.18-164.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-46) SMP i686 i386 G95 (GCC 4.0.3 (g95 0.92!) Jun 24 2009) (jam) g77 (GCC) 3.4.6 20060404 pgcc and pgf90 8.0-5 32-bit target on x86 Linux -tp penryn Intel(R) C Compiler, Version 11.0 Intel(R) Fortran Compiler, Version 11.0 Linux 2.6.18-164.11.1.el5 #1 gcc (GCC) 4.1.2 20080704 (Red Hat 4.1.2-46) SMP x86_64 GNU/Linux G95 (GCC 4.0.3 (g95 0.92!) Jun 24 2009) (amani) icc (ICC) 11.1 20090827 ifort (IFORT) 11.1 20090827 pgcc and pgf90 9.0-4 64-bit target on x86-64 Linux -tp k8-64e GNU Fortran (GCC) 4.1.2 20080704 (Red Hat 4.1.2-46) SunOS 5.10 32- and 64-bit Sun C 5.9 SunOS_sparc Patch 124867-12 (linew) Sun Fortran 95 8.3 SunOS_sparc Patch 127000-12 Linux 2.6.16.54-0.2.5 #1 Intel(R) C Compiler Version 10.1.017 Altix SMP ia64 Intel(R) Fortran Itanium(R) Version 10.1.017 (cobalt) SGI MPI 1.16 Xeon Linux 2.6.18-92.1.10.el5_lustre.1.6.6smp-perfctr #2 SMP x86_64 Intel(R) C Compiler Version 10.0.026 (abe) Intel(R) Fortran Compiler Version 10.0.026 IA-64 Linux 2.4.21.SuSE_292.til1 ia64 (NCSA tg-login) Intel(R) C Compiler Version 8.1.037 Intel(R) Fortran Compiler Version 8.1.033 AIX 5.3 (32/64 bit) IBM XL C/C++ for AIX, V9.0 (LLNL Up) IBM XL Fortran for AIX, V11.1 AIX 6.1 (32/64 bit) IBM XL C/C++ for AIX, V10.1 (NCSA bp-login) IBM XL Fortran for AIX, V12.1 Windows XP Visual Studio 2005 (with Intel Fortran 9.1/10.1) Visual Studio 2008 (with Intel Fortran 10.1) cygwin (gcc 4.3.4) Windows XP(64 bit) Visual Studio 2005 (with Intel Fortran 9.1/10.1) Visual Studio 2008 (with Intel Fortran 10.1) Windows Vista Visual Studio 2008 (with Intel Fortran 10.1) Windows Vista(64 bit) Visual Studio 2008 (with Intel Fortran 10.1) MAC OS X Intel 10.6.2 Darwin 10.2.0 Intel C icc (ICC) 11.1 20091130 Intel Fortran ifort (IFORT) 11.1 20091130 i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 GNU Fortran (GCC) 4.5.0 20090910 Linux 2.6.31.12-174.2.3.fc12.x86_64 #1 SMP x86_64 GNU/Linux gcc (GCC) 4.4.2 (Fedora 12) gfortran GNU Fortran (GCC) 4.4.2 20091222 (Red Hat 4.4.2-20) Linux 2.6.31-17-generic #54-Ubuntu SMP x86_64 GNU/Linux gcc (GCC) 4.4.1 (Ubuntu 9.10) gfortran GNU Fortran (GCC) 4.4.1 Linux 2.6.31.8-0.1-desktop #1 SMP x86_64 GNU/Linux gcc (GCC) 4.4.1 (OpenSuse 11.2) gfortran GNU Fortran (GCC) 4.4.1 Known problems ============== o Wnen buidling in AIX systems, if CC is xlc with -qlanglvl=ansi, configure fails when checking for the jpeglib.h header due to the duplicated macro definition of HAVE_STDLIB_H. This is because some newer builds of jpeg library has HAVE_STDLIB_H defined in its jconfig.h header file. Without the -qlanglvl=ansi, some older xlc (e.g., V7.0) still fails but newer xlc (e.g., V9.0) passes. (AKC - 2010/02/17) o When building on Linux/UNIX platforms, the szip shared library files must be in the system library path. This can be done by adding a link to the libsz.* files into the /usr/lib folder or by adding the library location to the LD_LIBRARY_PATH environment variable. Ex. export LD_LIBRARY_PATH=path_to_szip_lib:$LD_LIBRARY_PATH Optionally, one can use the static szip library files by adding '-static' to the CFLAGS environment variable. o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale were created with the same name, subsequent accesses to the dimension scale or to the SDS might corrupt the data. HDF4 Library Releases 4.2r2 and later do not allow this conflict to occur. On the other hand, recent libraries are also unable to detect such conflicts that already exist in a file. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata), after being written and before SDgetdatasize is called. Appendix: List of the removed files =================================== mfhdf/CHANGES mfhdf/CUSTOMIZE mfhdf/INSTALL mfhdf/MANIFEST mfhdf/ORIGIN mfhdf/README mfhdf/README.HDF mfhdf/README.HDF.33 mfhdf/VERSION mfhdf/macros.mk mfhdf/mfhdf.mak mfhdf/msoft.mk mfhdf/c++/README mfhdf/c++/example.c mfhdf/c++/example.cc mfhdf/c++/example.cdl mfhdf/c++/expected mfhdf/c++/nc.info mfhdf/c++/nc.txn mfhdf/c++/nctst.cc mfhdf/c++/ncvalues.cc mfhdf/c++/ncvalues.hh mfhdf/c++/netcdf.cc mfhdf/c++/netcdf.hh mfhdf/fortran/fortc mfhdf/fortran/fortc1.sed mfhdf/fortran/fortc2.sed mfhdf/fortran/ftest.lnk mfhdf/fortran/msoft/ mfhdf/fortran/Linux.m4 mfhdf/fortran/README mfhdf/fortran/aix.m4 mfhdf/fortran/common.m4 mfhdf/fortran/convex.m4 mfhdf/fortran/craympp.m4 mfhdf/fortran/descrip.mms mfhdf/fortran/freebsd.m4 mfhdf/fortran/fujivp.m4 mfhdf/fortran/hpux.m4 mfhdf/fortran/irix.m4 mfhdf/fortran/msoft.m4 mfhdf/fortran/msoft.mk mfhdf/fortran/osf.m4 mfhdf/fortran/solaris.m4 mfhdf/fortran/sunos.m4 mfhdf/fortran/ultrix.m4 mfhdf/fortran/unicos.m4 mfhdf/fortran/vax-ultrix.m4 mfhdf/fortran/vms.m4 mfhdf/libsrc/README mfhdf/libsrc/cdftest.c mfhdf/libsrc/cdftest.mak mfhdf/libsrc/cdftest.project.hqx mfhdf/libsrc/descrip.mms mfhdf/libsrc/gen_sds_szipped.c mfhdf/libsrc/hdftest.c mfhdf/libsrc/hdftest.h mfhdf/libsrc/hdftest.mak mfhdf/libsrc/hdftest.project.hqx mfhdf/libsrc/htons.mar mfhdf/libsrc/mfhdflib.project.hqx mfhdf/libsrc/msoft.mk mfhdf/libsrc/ntohs.mar mfhdf/libsrc/sds_szipped.dat mfhdf/libsrc/tchunk.c mfhdf/libsrc/tcomp.c mfhdf/libsrc/tcoordvar.c mfhdf/libsrc/tdatasizes.c mfhdf/libsrc/tdim.c mfhdf/libsrc/temptySDSs.c mfhdf/libsrc/tfile.c mfhdf/libsrc/tidtypes.c mfhdf/libsrc/tncunlim.c mfhdf/libsrc/tnetcdf.c mfhdf/libsrc/trank0.c mfhdf/libsrc/tsd.c mfhdf/libsrc/tsdsprops.c mfhdf/libsrc/tszip.c mfhdf/libsrc/tunlim.c mfhdf/libsrc/win32cdf.h mfhdf/libsrc/win32cdf.mak mfhdf/ncdump/ncdump.mak mfhdf/ncdump/msoft.mk mfhdf/ncdump/msofttab.c mfhdf/ncdump/ctest0.mak mfhdf/ncdump/ncdump.lnk mfhdf/ncgen/test0.lnk mfhdf/ncgen/ncgen.opt mfhdf/ncgen/msoft.mk mfhdf/ncgen/ncgen.mak mfhdf/ncgen/ctest0.mak mfhdf/ncgen/descrip.mms mfhdf/port/COPYRIGHT mfhdf/port/CUSTOMIZE mfhdf/port/HISTORY mfhdf/port/Makefile.am mfhdf/port/Makefile.in mfhdf/port/VERSION mfhdf/port/aclocal.m4 mfhdf/port/configure mfhdf/port/configure.in mfhdf/port/depend mfhdf/port/mast_mk.in mfhdf/port/master.mk.in mfhdf/port/uddummy.c mfhdf/port/udposix.h.in mfhdf/port/udposixh.in mfhdf/port/which hdf/COPYING hdf/COPYRIGHT hdf/README hdf/README.33r4 hdf/fmpool/Makefile.in hdf/fmpool/README hdf/fmpool/cdefs.h hdf/fmpool/compat.h hdf/fmpool/config.guess hdf/fmpool/config.sub hdf/fmpool/configure hdf/fmpool/configure.in hdf/fmpool/fmpio.3 hdf/fmpool/fmpio.c hdf/fmpool/fmpio.h hdf/fmpool/fmpool.3 hdf/fmpool/fmpool.c hdf/fmpool/fmpool.h hdf/fmpool/fmptypes.h hdf/fmpool/move-if-change hdf/fmpool/queue.h hdf/fmpool/test_fmpio.c hdf/fmpool/tfmpio_read.c hdf/fmpool/tfmpio_write.c hdf/fmpool/config/fmpaix.h hdf/fmpool/config/fmpalpha.h hdf/fmpool/config/fmpconvex.h hdf/fmpool/config/fmpdec.h hdf/fmpool/config/fmpfbsd.h hdf/fmpool/config/fmpfujivp.h hdf/fmpool/config/fmphpux.h hdf/fmpool/config/fmpia64.h hdf/fmpool/config/fmpirix32.h hdf/fmpool/config/fmpirix4.h hdf/fmpool/config/fmpirix5.h hdf/fmpool/config/fmpirix6.h hdf/fmpool/config/fmplinux.h hdf/fmpool/config/fmpmac.h hdf/fmpool/config/fmpsolaris.h hdf/fmpool/config/fmpsun.h hdf/fmpool/config/fmpt3e.h hdf/fmpool/config/fmpunicos.h hdf/fmpool/config/mh-aix hdf/fmpool/config/mh-alpha hdf/fmpool/config/mh-convex hdf/fmpool/config/mh-decstation hdf/fmpool/config/mh-fbsd hdf/fmpool/config/mh-fujivp hdf/fmpool/config/mh-hpux hdf/fmpool/config/mh-ia64 hdf/fmpool/config/mh-irix32 hdf/fmpool/config/mh-irix4 hdf/fmpool/config/mh-irix5 hdf/fmpool/config/mh-irix6 hdf/fmpool/config/mh-linux hdf/fmpool/config/mh-mac hdf/fmpool/config/mh-solaris hdf/fmpool/config/mh-sun hdf/fmpool/config/mh-t3e hdf/fmpool/config/mh-unicos hdf/src/hdf.bld hdf/src/hdflib.project.hqx hdf/src/hdfnof.bld hdf/src/hdfnofw3.lbc hdf/src/hdfnofwc.lbc hdf/src/hdfw386.lbc hdf/src/hdfwcc.lbc hdf/src/makepc.386 hdf/src/makepc.msc hdf/src/makepc.wcc hdf/src/makewin.msc hdf/src/win32hdf.mak hdf/util/fp2hdf.mak hdf/util/hdf24to8.mak hdf/util/hdf2jpeg.mak hdf/util/hdf8to24.mak hdf/util/hdfcomp.mak hdf/util/hdfed.mak hdf/util/hdfls.mak hdf/util/hdfpack.mak hdf/util/hdftopal.mak hdf/util/hdftor8.mak hdf/util/hdfunpac.mak hdf/util/jpeg2hdf.mak hdf/util/makepc.386 hdf/util/makepc.msc hdf/util/paltohdf.mak hdf/util/r8tohdf.mak hdf/util/ristosds.mak hdf/util/vcompat.mak hdf/util/vmake.mak hdf/util/vshow.mak hdf/test/MAKECOM.OLD hdf/test/makepc.386 hdf/test/makepc.msc hdf/test/makewin.msc hdf/test/makewin.new hdf/test/testhdf.386 hdf/test/testhdf.def hdf/test/testhdf.lnk hdf/test/testhdf.pc hdf/test/testhdf.project.hqx hdf/test/win32tst.mak %%%4.2r4%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF 4.2 Release 4 ================= January 25, 2009 INTRODUCTION This document describes the differences between HDF 4.2r3 and HDF 4.2r4 It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r4 The HDF 4.2r4 documentation can be found on the The HDF Group's FTP server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2r3 -- Utilities -- Library -- Configuration - Documentation - Platforms tested - Known problems New features and changes ======================== Configuration ============= - Automake 1.10.1 used to generate Makefile.in files, and Autoconf 2.61 used to generate configure script. MAM - 2008/10/09 - Libtool support (2.2.6a) has been added, and HDF4 shared C libraries can now be built. To build, use the --enable-shared configuration flag. This needs to be used in conjunction with the --disable-fortran flag, as Fortran shared libraries are not supported. Shared libraries are disabled by default. MAM - 2008/10/09 - Added SZIP information to end of configure summary, which indicates whether SZIP is present and, if SZIP is present, whether the SZIP encoder is present. MAM - 2008/10/06 Library ========= - Added new API SDgetdatasize to retrieve the compressed and original sizes of an SDS' data. Its limitation is listed in the "Known problems" section at the end of this document. intn SDgetdatasize(int32 sdsid, int32* comp_size, int32* orig_size) sdsid - IN: dataset ID comp_size - OUT: size of compressed data orig_size - OUT: size of original data BMR - 2008/10/15 - The following Fortran APIs were added in this release: sfgetname sfgetnamelen sfgmaxopenf sfgnumopenf sfrmaxopenf sfidtype sfgnvars_byname sfn2indices Please see HDF Reference Manual for functions description. Note: These APIs are not available on Windows. Utilities ========= - hrepack output now includes dataset compression ratios. PVN - 2008/10/30 - hdp now displays various parameters of Gzip, Szip, and Skipping Huffman compressions when a dataset is compressed. (Bugzilla 1202) BMR - 2008/10/03 Support for new platforms and compilers ======================================= Linux 2.6.27 x86_64 Fedora 10 with GNU C and gfortran Ubuntu 8.10 with GNU C and gfortran OpenSuse 11.1 with GNU C and gfortran Mac Intel with GNU C, gfortran, g95 and Intel 10.1 32-bit C and Fortran compilers Note: Only the 32-bit version of the Intel compiler is supported. One has to run configuration scripts, which can be found under the bin directories in the Intel compiler installation directory tree (e.g., /opt/intel/cc/10.1.006/bin/iccvars.csh and /opt/intel/fc/10.1.006/bin/ifortvars.csh), to enable the 32-bit version of the compiler before configuring and building HDF4. Known problems: Due to a known bug in the Intel 10.1 icc compiler, one has to use -no-multibyte-chars flag with icc. O0 flag with ifort is required to build Fortran APIs and tests. This restriction is probably due to very old Fortran code and will be lifted for future releases. Bugs fixed since HDF4.2r3 ========================= Utilities ========= - hrepack previously failed to preserve unlimited dataset dimensions; they are now preserved. PVN - 2008/11/19 Library ========= - SDreaddata now checks for out-of-range values in the parameter 'stride' and fails when invalid values are given (Bugzilla 150.) This bug was actually fixed right before the HDF4.2r2 release. BMR - 2008/07/14 - Reading a record variable using nc API fills the buffer with fill values up to the maximum number of records of all unlimited dimension variables in the file, as in netCDF. It used to fail before (Bugzilla 1378.) - BMR 2009/01/21 - When the file name is too long, some SD APIs caused a segmentation fault (Bugzilla 1331.) This problem is now fixed. - BMR 2009/01/23 Configuration ============= - hdiff_array.c now gets linked against libm.a library. Documentation ============== The updated HDF Reference Manual is now available in HTML format. Platforms tested ================ HDF 4.2 Release 4 has been tested on the following platforms: FreeBSD 6.3-STABLE i386 gcc 3.4.6 [FreeBSD] 20060305 (duty) g++ 3.4.6 [FreeBSD] 20060305 f77 (gcc) 3.4.6 gcc 4.2.5 20080702 g++ 4.2.5 20080702 gfortran 4.2.5 20080702 FreeBSD 6.3-STABLE amd64 gcc 3.4.6 [FreeBSD] 20060305 (liberty) g++ 3.4.6 [FreeBSD] 20060305 f77 (gcc) 3.4.6 gcc 4.2.5 20080702 g++ 4.2.5 20080702 gfortran 4.2.5 20080702 IRIX64 6.5 MIPSpro cc 7.4.4m (ucar mop1 64 & n32) F90 MIPSpro 7.4.4m Linux 2.6.18-92.1.22.el5xen gcc (GCC) 4.1.2 20071124 #1 SMP i686 i686 i386 gG95 (GCC 4.0.3 (g95 0.92!) July 1 2008) (jam) g77 (GCC) 3.4.6 20060404 PGI C, Fortran, C++ 7.2-5 32-bit Intel(R) C Compiler for 32-bit applications, Version 10.1.018 Intel(R) Fortran Compiler for 32-bit applications, Version 10.1.018 Linux 2.6.9-42.0.10.ELsmp #1 gcc (GCC) 3.4.6 SMP i686 i386 g++ (GCC) 3.4.6 (kagiso) G95 (GCC 4.0.3 (g95 0.92!) April 18 2007) Linux 2.6.16.46-0.12-debug #1 Intel(R) C Compiler Version 10.0.025 SMP ia64 GNU/Linux Intel(R) Fortran Itanium(R) Version 10.0.025 (ucar hir1) Linux 2.6.16.46-0.14-smp #1 gcc (GCC) 4.1.2 20070115 (SUSE Linux) SMP x86_64 GNU/Linux G95 (GCC 4.0.3 (g95 0.92!) July 1 2008) (smirom) Intel(R) C Compiler for Intel(R) EM64T Ver. 10.1.013 Intel(R) Fortran Intel(R) EM64T Ver. 10.1.013 PGI C, Fortran Version 7.2-1 for 64-bit target on x86-64 Linux 2.6.16.54-0.2.5 #1 Intel(R) C Compiler Version 10.1.017 Altix SMP ia64 Intel(R) Fortran Itanium(R) Version 10.1.017 (cobalt) SGI MPI 1.16 SunOS 5.10 32- and 64-bit Sun WorkShop 6 update 2 C 5.8 Patch 121015-06 (linew) Sun WorkShop 6 update 2 Fortran 95 8.2 Patch 121019-09 Xeon Linux 2.6.18-92.1.10.el5_lustre.1.6.6smp-perfctr #2 SMP x86_64 Intel(R) C Compiler Version 10.0.026 (abe) Intel(R) Fortran Compiler Version 10.0.026 IA-64 Linux 2.4.21.SuSE_292.til1 ia64 (NCSA tg-login) Intel(R) C Compiler Version 8.1.037 Intel(R) Fortran Compiler Version 8.1.033 Windows XP Visual Studio 6.0 Visual Studio .NET (with Intel Fortran 9.1) Visual Studio 2005 (with Intel Fortran 9.1/10.1) Visual Studio 2008 (with Intel Fortran 10.1) cygwin (gcc 3.4.4 and g95 0.90!) Windows XP(64 bit) Visual Studio 2005 (with Intel Fortran 9.1/10.1) Visual Studio 2008 (with Intel Fortran 10.1) Windows Vista Visual Studio 2008 (with Intel Fortran 10.1) cygwin (gcc 3.4.4 and g95 0.90!) Windows Vista(64 bit) Visual Studio 2008 (with Intel Fortran 10.1) MAC OS X Intel Darwin 9.4.0 i686-apple-darwin8-gcc-4.0.1 (GCC) 4.0.1 G95 (GCC 4.0.3 (g95 0.91!) Apr 24 2008) gfortran GNU Fortran (GCC) 4.3.0 20070810 Intel 10.1 32-bit version Linux 2.6.27.9-159.fc10.x86_64 #1 SMP x86_64 GNU/Linux gcc (GCC) 4.3.2 (Fedora 10) gfortran GNU Fortran (GCC) 4.3.2 20081105 (Red Hat 4.3.2-7) Linux 2.6.27-9-generic #1 SMP x86_64 GNU/Linux gcc (GCC) 4.3.2 (Ubuntu 8.10) gfortran GNU Fortran (GCC) 4.3.2 Linux 2.6.27.7-9-default #1 SMP x86_64 GNU/Linux gcc (GCC) 4.3.2 (OpenSuse 11.1) gfortran GNU Fortran (GCC) 4.3.2 Known problems ============== o Existing data written by an HDF4 Library prior to HDF 4.2r2: When a one-dimensional SDS and a dimension scale were created with the same name, subsequent accesses to the dimension scale or to the SDS might corrupt the data. HDF4 Library Releases 4.2r2 and later do not allow this conflict to occur. On the other hand, recent libraries are also unable to detect such conflicts that already exist in a file. It is therefore STRONGLY recommended to check for such name duplication before working with data created with a pre-4.2r2 library. The functions SDgetnumvars_byname and SDnametoindices are provided to help detect such name conflicts and select the correct object to access, respectively; see the HDF Reference Manual entries for further details. o This release does not support VMS systems. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... o In order for the new API SDgetdatasize to get the correct compressed size of the data, the dataset needs to be closed (SDendaccess) or read (SDreaddata), after being written and before SDgetdatasize is called. o On a fedora x86_64 GNU/Linux machine with gfortran 4.3.2, the flag -fno-range-check needs to be used to work around old code. o On Windows with Visual Studio .NET 2003, a minor bug in the hdfnctest test causes it to fail. The failure is non-critical, and so the test has been disabled by default for all Windows compilers. ========================================================================== %%%4.2r3%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF 4.2 Release 3 ================= January 28, 2008 INTRODUCTION This document describes the differences between HDF 4.2r2 and HDF 4.2r3. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r3. The HDF 4.2r3 documentation can be found on the THG ftp server: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the HDF FAQ, which can be reached from the HDF product home page: http://hdfgroup.org/products/hdf4/ If you have any questions or comments, please see the HDF Support page: http://hdfgroup.org/services/support.html CONTENTS - New features and changes -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2r2 -- Utilities -- Library -- Configuration - Documentation - Platforms tested - Known problems New features and changes ======================== Configuration ============= None Library ========= - Modified the HDF4 mfhdf library and configure to work in the absence of the NetCDF-3 header files when the HDF4 library is configured with the --disable-netcdf flag. This feature is required when building the ESDIS Toolkit in the presence of the NetCDF-3 library. In this case, the HDF4 file netcdf.h is used to build the HDF4 libraries and is installed under the name "hdf4_netcdf.h" to avoid a name clash with the NetCDF-3 file netcdf.h. EIP 2007-10-30 - Note that the previous change to SDnametoindex was backed out. It only returns the first variable of the requested name, as did the original version of this function. The variable can be an SDS or a coordinate variable. With this behavior, if there is more than one variable with the same name in the file, care must be taken to retrieve the desired variable. Please see new APIs in the next item for a way to handle non-uniquely named variables. The behavior of SDnametoindex will be documented in FAQs, documentation, and the newsletter. BMR 2008-01-17 - Added new APIs to SD interface: + SDgetnumvars_byname: Given a name, returns the number of variables in a file with that same name. + SDnametoindices: Given a name, returns a list of indices of all the variables in a file with that same name. With these new APIs, users can determine when an SDS name or a coordinate variable's name is not unique, retrieve the named variables, and examine them. BMR 2008-01-17 Utilities ========= None Support for new platforms and compilers ======================================= Support for Windows XP 64-bit with Visual Studio 2005 and Intel Fortran compiler was added. Bugs fixed since HDF4.2r2 ========================= Utilities ========= None Library ========= None Configuration ============= - libhdf4.settings file was not installed by make install command; fixed EIP, 2007-10-09 Documentation ============== Descriptions of the new functions SDgetnumvars_byname and SDnametoindices have been added to the documentation. Platforms tested ================ HDF 4.2 Release 3 has been tested on the following platforms: AIX 5.2 (32/64 bit) xlc 8.0.0.11 (datstar) xlf 10.01.0000.0002 FreeBSD 6.2 (32- and 64-bit) gcc and f77 GNU 3.4.6 (duty and liberty) GNU Fortran (GCC) 4.2.3 20080123 IRIX64 6.5 MIPSpro cc 7.4.4m (ucar mop1 64 & n32) F90 MIPSpro 7.4.4m Linux 2.4.21-47.ELsmp #1 SMP gcc and g77 3.2.3 i686 i386 GNU/Linux (osage) Linux 2.6.9-42.0.10.ELsmp #1 gcc (GCC) 3.4.6 SMP i686 i386 G95 (GCC 4.0.3 (g95 0.91!) April 18 2007) (kagiso) PGI C, Fortran 7.0-7 32-bit icc (ICC) 9.1 Intel(R) Fortran Compiler for 32-bit applications, Version 9.1 Linux 2.6.16.46-0.12-debug #1 Intel(R) C++ Version 10.0.025 SMP ia64 GNU/Linux Intel(R) Fortran Itanium(R) Version 10.0.025 (ucar hir1) Linux 2.6.16.46-0.14-smp #1 Intel(R) C for Intel(R) EM64T Ver. 9.1.037 SMP x86_64 GNU/Linux Intel(R) Fortran Intel(R) EM64T Ver. 9.1.031 (smirom) gcc (GCC) 4.1.2 20070115 (SUSE Linux) G95 (GCC 4.0.3 (g95 0.91!) Apr 19 2007) Linux 2.6.5-7.283-rtgfx Altix Intel(R) C++ Version 9.0.032 SMP ia64 Intel(R) Fortran Itanium(R) Version 9.0.033 (cobalt) SunOS 5.8 32- and 64-bit Sun WorkShop 6 update 2 C 5.3 (sol) Sun WorkShop 6 update 2 Fortran 77 5.3 SunOS 5.10 32- and 64-bit Sun WorkShop 6 update 2 C 5.8 Patch 121015-06 (linew) Sun WorkShop 6 update 2 Fortran 95 8.2 Patch 121019-09 IA-64 Linux 2.4.21.SuSE_292.til1 ia64 (NCSA tg-login) Intel(R) C++ Version 8.1.037 Intel(R) Fortran Compiler Version 8.1.033 Windows XP Visual Studio 6.0 Visual Studio .NET (with Intel Fortran 9.1) Visual Studio 2005 (with Intel Fortran 9.1) cygwin (gcc 3.4.4) Windows XP(64 bit) Visual Studio 2005(with Intel Fortran 9.1) Windows Vista Visual Studio 2005 (no fortran) MAC OS X Intel Darwin 8.10.1 i686-apple-darwin8-gcc-4.0.1 (GCC) 4.0.1 g95 0.91 gfortran GNU Fortran (GCC) 4.3.0 20070518 Known problems ============== o hdfcomp fails on HPUX 11.23 for the 64-bit version of the library. o This release does not support VMS systems. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o For existing data prior to HDF 4.2r2, when a one-dimensional SDS has the same name as the dimension scale, subsequent accesses to the dimension scale or the SDS might produce undesired results. It is recommended to check for name duplication first. See "New features and changes" section for details. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with a JPEG library built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... %%%4.2r2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF 4.2 Release 2 October 4, 2007 INTRODUCTION This document describes the differences between HDF 4.2r1 and HDF 4.2r2. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r2. The HDF 4.2r2 documentation can be found on the THG ftp server (ftp.hdfgroup.org) in the directory: ftp://ftp.hdfgroup.org/HDF/Documentation/ First-time HDF users are encouraged to read the FAQ for this release for more information about HDF. Also see the home page for HDF at: http://hdfgroup.org/ If you have any questions or comments, please send them to: help@hdfgroup.org CONTENTS - New features and changes -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2r1 -- Utilities -- Library - Documentation - Platforms tested - Known problems New features and changes ======================== Configuration ============= - The default installation directory name was changed from "NewHDF" to "hdf4". EIP - 2007/08/06 - Introduced --enable-netcdf configure flag to provide an option to enable/disable "HDF4-NetCDF"-like interfaces. By default, the HDF4 netcdf feature is enabled. Use the --disable-netcdf configuration flag to build HDF4 C and Fortran libraries that can be used by NetCDF-3 applications. There is no longer a need to specify the -DHAVE_NETCDF compilation flag. This feature is not yet supported on Windows. EIP - 2007/09/05 - Updated versions of autotools. HDF4 now uses automake 1.10.0, autoconf 2.61, and libtool 1.5.22. MAM - 2007/7/25. - The Fortran part of the HDF4 library uses the F77_FUNC macro to mangle names of C functions called from Fortran APIs. This should help with HDF4 code portability to different Fortran compilers. EIP - 2006/12/19 Library ========= - SZIP compression is supported now for GR C interfaces EIP - 2007/09/15 - Added new Fortran function hconfinf that determines whether the SZIP compression method is present and whether encoding is available. - Added support for SZIP compression in Fortran. EIP - 2007/09/01 - The following APIs were added; see "Bugs fixed" section for details. SDreset_maxopenfiles -- Resets the maximum number of files that can be open at a time. SDget_maxopenfiles -- Retrieves the current number of open files allowed in HDF and the maximum number of open files allowed on a system. SDget_numopenfiles -- Returns the number of files currently open. SDgetcompinfo -- Replaces SDgetcompress. GRgetcompinfo -- Replaces GRgetcompress. SDgetfilename -- Retrieves the name of the file, given its ID. SDgetnamelen -- Retrieves the name length of the object, given its ID. Note: Fortran wrappers for these new APIs are not available in this release. BMR - 2007/09/23 - SDS and vgroup names are no longer limited to 64 characters (Bugzilla #516). Note that when an older version of the library reads a new name that is longer than 64 characters, the name will contain some garbage after 64 characters. BMR - 2006/10/12 - User reported that SDreaddata went into an infinite loop when reading some corrupted compressed data. This problem is fixed. Two new error codes were added, consequently: DFE_READCOMP - when the zlib function returns Z_ERRNO (-1) or Z_STREAM_ERROR (-2) or Z_DATA_ERROR (-3) or Z_MEM_ERROR (-4) or Z_BUF_ERROR (-5) DFE_COMPVERSION - when the zlib function returns Z_VERSION_ERROR (-6) Utilities ========= - hrepack repacks by hyperslabs for large (non-compressed) datasets. PVN - 2007/7/10 - hdiff enables reading by hyperslabs. This feature was added to handle very large datasets, where available memory is a isssue. PVN - 2007/6/13 - hdiff now shows indices in multidimensional array notation. PVN - 2007/4/5 - hdiff now shows the name of the array when printing differences. PVN - 2007/4/5 - hdiff now shows a list of all objects in verbose mode. PVN - 2007/4/5 - hdiff return code is now 1 if differences are found, 0 if no differences are found, and -1 for an error. PVN - 2007/4/5 - hdiff has a new option, -p, for relative error. See usage. PVN - 2007/4/5 - hrepack now prints chunk information along with the compression type in verbose mode. PVN - 2007/4/5 Support for new platforms and compilers ======================================= - Added support for gfortran and g95 on Mac Intel. EIP 2007/09/14 - Added support for gfortran on FreeBSD for both 32- and 64-bit. - Added support for FreeBSD on AMD64 with gcc compilers. EIP 2007/05/24 - Added support for MAC OS X Intel with gcc and g95 compilers. - Added support for SUNOS 5.10 on Intel with SUN compilers (32- and 64-bit modes). EIP 2006/12/14 - Added support for HPUX 11.23 (32- and 64-bit modes). EIP 2006/12/19 Bugs fixed since HDF4.2r1 ========================= Utilities ========= - hrepack: Repeated vgroup insertions (duplicated links) were not being replicated. PVN - 2007/9/10 - hrepack: Improved performance for large number of SDSs, through the elimination of redundant file open calls. PVN - 2007/4/5 - hrepack: Fixed a bug in the -t option so that it now accepts multiple comma-separated names. PVN - 2007/4/5 - hrepack: Now duplicates dimension SDSs that are not accessed from any other SDSs. PVN - 2007/4/5 - hrepack: Fixed a bug that caused the unchunking of a dataset when uncompressing was requested. PVN - 2007/4/5 Library ========= - Added display of the compression method to hdp dumpsds and dumpgr (Bugzilla #130). BMR - 2005/4/4 - The current SDgetcompress and GRgetcompress APIs have severe flaws. Two new APIs, SDgetcompinfo and GRgetcompinfo, were added to provide better functionality and will eventually replace SDgetcompress and GRgetcompress. BMR - 2005/4/4 - Applied user's patch to fix bug #602. BMR - 2005/4/23 - Added a switch ('u') to ncdump to replace nonalpha-numeric characters with underscores. Thus, the SDS names won't be changed automatically unless the user so requests (Access bug #934/Bugzilla #381). BMR - 2005/7/17 - In HDF4.2r0, SDwritedata failed when the SDS had rank=0 (bug #1045). This change was retracted; writing to an SDS with rank=0 is allowed again. BMR - 2005/8/23 - When a dimension has the same name as an SDS, depending on the order in which they were created, either the SDS or the dimension will be corrupted if certain operations occur, such as a SDsetdimscale or SDsetattr call to the dimension. With this bugfix, the current situation can be summarized as below: + Data that has already been corrupted cannot be recovered. + For existing data that has not yet been corrupted, the problem has been fixed for multi-dimensional SDSs only. If the SDS had only one dimension, the results of subsequent accesses to the dimension would still be unpredictable (Bugzilla #328). BMR - 2005/8/23 + For future data, the problem has been fixed (Bugzilla #624). BMR - 2007/6/24 - Allowing the maximum number of open files to be increased revealed a problem: having more than 255 files open will cause file corruption (Bugzilla #440). Specifically, file number (255*m)+n will overwrite file number n, where n is [0..255] and m is [1..p], where (255*p) <= maximum system allowed. This problem is fixed. In addition, a new API is added for convenience: SDgetfilename -- retrieves the name of the file given its ID. BMR - 2005/10/05 - Prior to this release, the maximum number of files that can be open at the same time was only 32. This limit was implemented as a defined constant in the library, which users could not change without recompiling the library. In this release, if this limit is reached, the library will increase it to the system limit, minus 3 to account for stdin, stdout, and stderr. In addition, three APIs are added for more flexibility (Bugzilla #396/Access bug #935): SDreset_maxopenfiles -- Resets the maximum number of files that can be open at a time. SDget_maxopenfiles -- Retrieves the current number of open files allowed in HDF and the maximum number of open files allowed on a system. SDget_numopenfiles -- Returns the number of files currently open. Note: (1) Because there are also stdin, stdout, and stderr, the maximum limit that can be set must only be (system limit) - 3. (2) If the system maximum limit is reached, the library will push the error code DFE_TOOMANY onto the error stack. The user application can detect this after an SDstart fails. BMR - 2005/10/21 - The problem where ncgen failed with "too many attributes" on some user files is fixed (Bugzilla #373). BMR - 2005/10/28 - The problem where SDcheckempty returns "not empty" for empty chunked and compressed datasets is fixed (Bugzilla #218). BMR - 2005/10/31 - If a VSgetattr was called twice for an attribute, the second call would fail (Bugzilla #486). This problem is fixed. BMR - 2005/12/30 - A bug with reading metadata in hdfimport is fixed (Bugzilla #558). BMR - 2006/9/23 - The problem of writing to two unlimited 1-D arrays is fixed (Access bug #525). BMR - 2006/11/11 Documentation ============== Documentation contains multiple bug fixes and improvements. Platforms tested ================ HDF 4.2 Release 2 has been tested on the following platforms: AIX 5.3 (32/64 bit) xlc 7.0.0.0 (copper) xlf 9.1.0.3 FreeBSD 6.2 (32- and 64-bit) gcc and f77 GNU 3.4.6 (duty and liberty) GNU Fortran (GCC) 4.2.2 20070905 HP-UX B.11.23 (32- and 64-bit)HP aC++/ANSI C B3910B A.06.02 (sirius) HP F90 v3.1 IRIX64 6.5 MIPSpro cc 7.4.4m (ucar mop1 64 & n32) F90 MIPSpro 7.4.4m Linux 2.4.21-47.ELsmp #1 SMP gcc and f77 3.2.3 i686 i386 GNU/Linux (osage) Linux 2.6.9-42.0.10.ELsmp #1 gcc (GCC) 3.4.6 SMP i686 i386 G95 (GCC 4.0.3 (g95 0.91!) Nov 21 2006) (kagiso) PGI C, Fortran, C++ 6.2-5 32-bit icc (ICC) 9.1 Intel(R) Fortran Compiler for 32-bit applications, Version 9.1 Linux 2.6.16.46-0.12-debug #1 SMP ia64 GNU/Linux Intel(R) C++ Version 10.0.025 (ucar hir1) Intel(R) Fortran Itanium(R) Version 10.0.025 Linux 2.6.16.46-0.14-smp #1 Intel(R) C++ for Intel(R) EM64T Ver. 9.1.037 SMP x86_64 GNU/Linux Intel(R) Fortran Intel(R) EM64T Ver. 9.1.031 (smirom) gcc (GCC) 4.1.2 20070115 (SUSE Linux) G95 (GCC 4.0.3 (g95 0.91!) Apr 19 2007) Linux 2.6.5-7.283-rtgfx Altix SMP ia64 Intel(R) C++ Version 9.0 (cobalt) Intel(R) Fortran Itanium(R) Version 9.0 SunOS 5.8 32- and 64-bit Sun WorkShop 6 update 2 C 5.3 (sol) Sun WorkShop 6 update 2 Fortran 95 6.2 SunOS 5.10 32- and 64-bit Sun WorkShop 6 update 2 C 5.8 (linew) Sun WorkShop 6 update 2 Fortran 95 8.2 Patch 121019-06 IA-64 Linux 2.4.21.SuSE_292.til1 ia64 gcc (GCC) 3.2.2 (NCSA tg-login) Intel(R) C++ Version 8.0 Intel(R) Fortran Compiler Version 8.0 Windows XP Visual Studio 6.0 Visual Studio .NET (with Intel Fortran 9.1) Visual Studio 2005 (with Intel Fortran 9.1) cygwin (gcc 3.4.4) Windows Vista Visual Studio 2005 (no fortran) MAC OS X Intel Darwin 8.10.1 i686-apple-darwin8-gcc-4.0.1 (GCC) 4.0.1 g95 0.91 gfortran GNU Fortran (GCC) 4.3.0 20070518 Known problems ============== o hdfcomp fails on HPUX 11.23 for the 64-bit version of the library o This release does not support VMS systems. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets does not work. o When a one-dimensional SDS has the same name as the dimension, subsequent accesses to the dimension produce unpredictable results. o When using PGI compilers, make sure that the JPEG library is also compiled with a PGI C compiler; linking with JPEG built with gcc causes JPEG library tests to fail. To bypass the problem: x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installation directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use the --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... %%%4.2r1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF 4.2 Release 1 February, 2005 INTRODUCTION This document describes the differences between HDF 4.2r0 and HDF 4.2r1. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r1 The HDF 4.2r1 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: ftp://hdf.ncsa.uiuc.edu/HDF/Documentation/ First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes -- Configuration -- Library -- Utilities - Support for new platforms and compilers - Bugs fixed since HDF4.2r1 - Documentation - Platforms Tested - Known problems New Features and Changes: ======================== Configuration ============= * By default HDF4 libraies and utilities are installed under /NewHDF 12/01/2004 EIP * Windows configuration, build and testing procedures have been changed. Please see INSTALL_WINDOWS.txt file for more information 02/12/2005 EIP Library ========= * New API SDidtype was added to the library (bug #766) 01/23/2005 EIP for BMR * HCgetcompress renamed to HCPgetcompress * New API HCget_config_info added * The default chunk cache size was changed for 2D and higher chunks * Pablo instumentation was removed Utilities ========= * hdiff and hrepack are supported on Windows. * Substantial performance improvements in hdiff and hrepack Support for new platforms and compilers ======================================= * Fortran IBM xlf v 8.1 and Absoft f95 version 8.2 compilers are supported on Mac OSX. 12/07/2004 EIP * Absoft Fortran compiler f95 version 9.0 is supported on Linux 2.4 12/07/2004 EIP * PGI C and Fortran compilers are supported on Linux 2.4 * Intel C and Fortran compilers are supported on Linux 2.4 * AMD Opteron is supported Bugs fixed since HDF4.2r0 ========================= * VERY IMPORTANT: Data compressed with SZIP may be corrupted; fixed. For more information see "HDF4.2r1 SZIP Release Notes" available at http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/SZIP_HDF4_2r1.pdf 02/12/2005 EIP * Fortran couldn't read names with spaces when NetCDF interfaces were used; fixed 02/12/2005 EIP * Library failed to compile in presence of the NetCDF library; fixed 11/22/2004 EIP * h4fc couldn't create object files; fixed 01/23/2005 EIP * When rank of SDS is 0, some SD APIs give segmentation fault (bug 1045); fixed 01/23/2005 EIP for BMR * Some GR images with special elements are read in as duplicate (bug 814); fixed 02/14/2005 BMR * Many bugs fixed in hdiff and hrepack utilities Documentation ============== Documentation contains multiple bug fixes and improvements. Platforms Tested ================ HDF 4.2 Release 1 has been tested on the following platforms: AIX 5.1 (32 and 64-bit) xlc 6.0.0.6 xlf 8.1.1.6 AIX 5.2 (32 and 64-bit) xlc 6.0.0.8 xlf 8.1.1.7 Cray SV1 10.0.1.2 Cray Standard C Version 6.6.0.3.6 Cray Fortran: Version 3.6.0.3.1 Cray TS IEEE Cray Standard C Version 6.4.0.3 Cray Fortran: Version 3.4.0.0 FreeBSD 4.9 gcc 2.95.4 GNU Fortran 0.5.25 HP-UX B.11.00 HP C HP92453-01 A.11.01.20 HP F90 v2.4 HP ANSI C++ B3910B A.03.13 IRIX64 6.5 (64 & n32) MIPSpro cc 7.3.1.3m F90 MIPSpro 7.3.1.3m Linux 2.4.20.28 gcc 2.96, GNU Fortran 0.5.25, Absoft Fortran 9.0 Intel(R) C++ and Fortran Compilers Version 8.1 Linux 2.4.21-268-smp #1 SMP x86_64 (AMD) gcc 3.3.1 GNU Fortran (GCC) 3.3.1 Intel(R) C++ and Fortran Compilers Version 8.1 PGI C and Fortran Compilers Version 5.2-1 Linux 2.4.21-27.0.1.ELsmp #1 SMP gcc 3.2.3 PGI C and Fortran Compilers Version 5.2-1 Linux 2.4.21-sgi303rp05012313_10138 (Altix) Intel C++ and Intel Fortran Verison 8.1 Linux 2.4.20-31.9smp_perfctr_lustre (IA-32) Intel(R) C++ Version 8.0 Intel(R) Fortran Compiler Version 8.0 Linux 2.4.21.SuSE_241.bef1 (IA-64) Intel(R) C++ Version 8.0 Intel(R) Fortran Compiler Version 8.0 OSF1 V5.1 Compaq C V6.5-303 HP Fortran V5.5A-3548 HP Fortran Compiler X5.5A-4085-48E1K SunOS 5.7(32 and 64 bit) WorkShop Compilers 5.0 98/12/15 C 5.0 (Solaris 2.7) WorkShop Compilers 5.0 99/09/16 FORTRAN 77 5.0 patch 107596-03 gcc 3.2.2 g77 GNU Fortran (GCC 3.2.2) 3.2.2 SunOS 5.8(32 and 64 bit) Sun WorkShop 6 update 2 C 5.3 (Solaris 2.8) Sun WorkShop 6 update 2 Fortran 77 5.3 SunOS 5.9 (32 and 64 bit) Sun C 5.6 compiler, Sun Fortran 95 8.0 Windows 2000 (NT5.0) MSVC++ 6.0 DEC Visual Fortran 6.0 Intel C and F90 compilers version 7.1 Windows XP MSVC++.NET, Intel Fortran 8.1 (static libraries only) MAC OS X Darwin 7.7 gcc 3.3 IBM Fortran xlf 8.1 Absoft Fortran 8.2 Known problems ============== o SZIP Library is not available for Crays SV1 and TS Fortran APIs do not support SZIP compression. o SZIP compression cannot be used with GR interfaces. For more information see "HDF4.2r1 SZIP Release Notes" available at http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/SZIP_HDF4_2r1.pdf o This release doesn't support VMS system. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets doesn't work. o SDgetdimscale incorrectly returns FAIL and or returns incorrect data when the associated SDS has the same name as the dimension. o When using PGI compilers make sure that JPEG library is also compiled with PGI C compiler; linking with JPEG built with gcc causes JPEG library tests to fail. To bypass the problem x Set LIBS flag to $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a where $PGI_JPEG_INSTALL_DIR points to the installtion directory for the PGI-compiled JPEG library: setenv LIBS $PGI_JPEG_INSTALL_DIR/lib/libjpeg.a x Use --with-jpeg=$PGI_JPEG_INSTALL_DIR configure flag to configure with the PGI-compiled JPEG library: ./configure --with-jpeg=$PGI_JPEG_INSTALL_DIR --with-zlib.... %%%4.2r0%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HDF 4.2 Release 0 December 2003 INTRODUCTION This document describes the differences between HDF 4.1r5 and HDF 4.2r0. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r0 The HDF 4.2r0 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: ftp://hdf.ncsa.uiuc.edu/HDF/Documentation/ First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Support for new platforms - Bugs fixed since HDF4.1r5 - Documentation - Platforms Tested - Known problems New Features and Changes: ======================== o IMPORTANT: HDF4 HAS A NEW CONFIGURATION ZLIB and JPEG libraries were removed from the HDF4 distribution source. ZLIB and JPEG have to be installed on the system before HDF4 library can be built or HDF4 precompiled binaries can be used. Please read INSTALL in the top HDF4 directory for instructions how to build the HDF4 library and applications. o HDF4 has an optional SZIP compression method; in order to use SZIP compression, SZIP library has to be installed on the system. Please refer to the INSTALL file for instructions on how to build with/without the SZIP Library. SZIP in HDF4 is free for non-commercial use; see http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/Commercial_szip.html for information regarding commercial use. For more information about SZIP compression see http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/ and the "HDF4 Reference Manual" entries for the GRsetcompress and SDsetcompress functions. o IMPORTANT note about prebuild binaries: NCSA precompiled binaries has SZIP compression method enabled for all platforms except Crays T3E and SV1 and Linux 2.4 SuSE x86_64. To use the binaries download the SZIP library from http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/ o The following new tools have been added hrepack hdiff hdfimport See "HDF4 Reference Manual" in the HDF 4.2r0 documentation set for more information. o fp2hdf is removed. It is replaced with hdfimport. o Helper scripts to facilitate HDF4 installation and compilation were added: h4cc - to compile C application with the HDF4 Libraries h4fc - to compiler Fortran applications with the HDF4 Libraries h4redeploy - to fix binary installation See "HDF4 Reference Manual" in the HDF 4.2r0 documentation set for more information. Support for new platforms ========================= o HDF4 was ported to the following platforms AIX 5.1 64-bit version MacOSX Linux 2.4 RH8 and RH9 Linux 2.4 RH8 64-bit, SuSE 64-bit Linux 2.4 ia64 Linux 2.4 SGI (Altrix) Bugs fixed since HDF4.1r5 ========================= 1. "hdp dumpgr" and "hdp dumpsds" have two new options: -g to suppress the data of global (or file) attributes -l to suppress the data of local attributes 2. The problem where hdp failed on a very long file name has been fixed. (bug #693) 3. The problem where VSinquire failed when being called on a vdata that had no fields defined, has been fixed. (bug #626) 4. When the values of VGNAMELENMAX and VSNAMELENMAX are changed the hdp output doesn't reflect the change. This problem is now fixed. (bug #606) 5. hdp dumpvg sometimes failed when reading a file that had a vgroup being inserted into another. This has been fixed. (bug #477) 6. hdf2gif failed when a user tried it on JPEG compressed images. (Bug #601). The problem is now fixed. An error message is displayed if the image is not 8-bit. If the image is 24-bit, the message suggests using hdf2jpeg. 7. ncdump failed to read NetCDF files 3.5 when there was more than one variable with unlimited dimensions. Fixed. 8. The NetCDF part of the HDF4 library was not ported to Compaq True64 system. Fixed. 9. The hdp commands dumpsds, dumpgr, dumpvd, and dumpvg now display an informative message when a non-HDF file is given as input. (Bug #817) 10. The compilation warnings and error on the macro HDFclose are fixed. (Bug #818) Documentation ============== Entries for new utilities hdiff, hrepack, hdfimport and helper scripts h4cc, h4fc, and h4redeply were added to the Reference Manual. Platforms Tested ================ HDF 4.2 Release 0 has been tested on the following platforms: AIX 5.1 (32 and 64-bit) xlc 6.0.0.2 xlf 8.1.1 Cray T3E sn6606 2.0.6.08 Cray Standard C Version 6.6.0.2 Cray Fortran Version 3.6.0.2 Cray SV1 sn9617 10.0.1.2 Cray Standard C Version 6.6.0.2 Cray Fortran Version 3.6.0.2 FreeBSD 4.9 gcc 2.95.4 g++ 2.95.4 HP-UX B.11.00 HP C HP92453-01 A.11.01.20 HP F90 v2.4 HP ANSI C++ B3910B A.03.13 IRIX64 6.5 (64 & n32) MIPSpro cc 7.3.1.3m F90 MIPSpro 7.3.1.3m Linux 2.4.20-20.7 (RH8) gcc 3.3.1 Intel(R) C++ Version 7.1 Intel(R) Fortran Compiler Version 7.1 Linux 2.4.20-20.9 (RH9) gcc 3.2.2 Linux 2.4.21-2.9.5ws x86_64 gcc version 3.2.3 20030502 (Red Hat Linux 3.2.3-16) g77 based on gcc version 3.2.3 Linux 2.4.19-SMP #1 x86_64 gcc version 3.3.2 (SuSE Linux) g77 version 3.3.2 OSF1 V5.1 Compaq C V6.4-014 Compaq Fortran V5.5-1877 SunOS 5.7(32 and 64 bit) WorkShop Compilers 5.0 98/12/15 C 5.0 (Solaris 2.7) WorkShop Compilers 5.0 98/10/25 FORTRAN 77 5.0 gcc 3.2.2 g77 GNU Fortran (GCC 3.2.2) 3.2.2 SunOS 5.8(32 and 64 bit) Sun WorkShop 6 update 2 C 5.3 (Solaris 2.8) Sun WorkShop 6 update 2 Fortran 77 5.3 IA-32 Linux 2.4.9-31pctr Intel(R) C++ Version 7.0 Intel(R) Fortran Compiler Version 7.0 IA-64 Linux 2.4.16 ia64 Intel(R) C++ Version 7.0 Intel(R) Fortran Compiler Version 7.0 IA-64 Linux 2.4.19-SMP Intel(R) C++ Version 7.1 Intel(R) Fortran Compiler Version 7.1 gcc 3.2 g77 GNU Fortran (GCC 3.2) 3.2 IA-64 Linux 2.4.21-sgi Intel(R) C++ Version 7.1 (Altrix) Intel(R) Fortran Compiler Version 7.1 Windows 2000 (NT5.0) MSVC++ 6.0 DEC Visual Fortran 6.0 Intel C and F90 compilers version 7.1 Windows XP MSVC++.NET MAC OS X Darwin 6.8 gcc Apple Computer, Inc. GCC version 1175, based on gcc version 3.1 Known problems ============== o SZIP Library is not available for Crays SV1 and T3E Fortran APIs do not support SZIP compression. o NetCDF tests nctest (C) and ftest (Fortran) fail to read from NetCDF 3.5 files o On Linux RH8 64-bit SZIP tests fail if library is compiled in production mode. All tests pass in the debug mode. o This release doesn't support VMS system. o On Linux with gcc compilers Fortran NetCDF APIs cannot read attributes, variables, and dimensions when name contain spaces. o HDF4 Library cannot be built with PGI compilers. o N-Bit compression is not supported with Fortran APIs. o Using both fill-value and compression on SD datasets doesn't work. o --prefix defines where the installation path is. This version has the default set as /usr/local which is different from previous versions. o New utilities hdiff and hrepack are not available for Windows 2000. %%%4.2r0-Beta%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF 4.2 Release 0-Beta September 2003 INTRODUCTION This document describes the differences between HDF 4.1r5 and HDF 4.2r0-Beta. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.2r0-Beta The HDF 4.2r0-Beta documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/pub/outgoing/hdf4/4.2-Beta/ First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested New Features and Changes: ======================== o ZLIB and JPEG libraries were removed from the HDF4 distribution source. Please read INSTALL-4.2r0-Beta in the top HDF4 directory for instructions how to build HDF4 Library and applications. o HDF4 has an optional SZIP compression; please refer to the INSTALL-4.2r0-Beta file for instructions how to build with/without the SZIP Library. SZIP in HDF4 is free for non-commercial use; see http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/Commercial_szip.html for information regarding commercial use. For more information about SZIP compression see http://hdf.ncsa.uiuc.edu/HDF5/doc_resource/SZIP/ and the "HDF4 Reference Manual" entries for the GRsetcompress and SDsetcompress functions. o The following new tools have been added hrepack hdiff hdfimport See "HDF4 Reference Manual" in the HDF 4.2r0-Beta documentation set for more information. o HDF4 was ported to the following platforms AIX 5.1 64-bit version MacOSX Linux 2.4 RH8 and RH9 Please refer to the bugs_fixed.txt file for more details on bugs that were fixed. Platforms Tested: ================ HDF 4.2 Release 0-Beta has been tested on the following platforms: FreeBSD 4.9 HP-UX B.11.00 AIX 5.1 (32 and 64-bit) IRIX64 6.5 (-n32, -64) Linux 2.4 Solaris 2.7, 2.8 (32 and 64-bit) MacOSX No precompiled binaries is available for this release. %%%4.1r5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF 4.1 Release 5 November 2001 INTRODUCTION This document describes the differences between HDF 4.1r4 and HDF 4.1r5. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1r5. The HDF 4.1r5 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/HDF/Documentation/HDF4.1r5/ First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested New Features and Changes: ======================== o The following Vdata routines were added: VSsetblocksize/vsfsetblsz -- sets the block size of the linked-block element. VSsetnumblocks/vsfsetnmbl -- sets the number of blocks for a linked-block element. VSgetblockinfo/vsfgetblinfo -- retrieves the block size and the number of blocks of a linked-block element. o Two routines were added to get compression information for the SD and GR interfaces, including chunked elements: SDgetcompress/sfgcompress and GRgetcompress/mggcompress. Note: - For a JPEG image, GRgetcompress only returns the compression type, not the compression information (i.e, quantity and force_baseline). This information is not currently retrievable. - Getting compression type for JPEG chunked images is not working yet. o "hdp dumpgr" has a new option, -pd, to print palette data only. Also, whenever option -p or -pd is given, only palettes are printed, and no images or file attributes. o A new FORTRAN function, heprntf (HEprint), was added. It takes two arguments: file name and level. If the file name string has 0 length, then error messages will be printed to standard output. o On Windows, the unresolved symbol (error_top) error has been fixed when calling HEclear and linking with the DLL. Users who want to use the HDF DLL should define HDFAPDLL in their applications. Simply go to Project Settings and add HDFAPDLL as the predefined constant. o A memory leak in the netCDF portion of the HDF/mfhdf distribution was fixed. o The "#define NULL" was removed since ANSI C compilers are required to define NULL. o When using "hdp dumpgr", data was being printed in the range of 0-250 when it should have been between 0-168. This problem is now fixed. Please refer to the bugs_fixed.txt file for more details on bugs that were fixed. Platforms Tested: ================ HDF 4.1 Release 5 has been tested on the following platforms: Cray SV1 10.0.0.8 Cray T3E sn6711 2.0.5.55 Compaq Tru64 Unix (OSF1) 5.1 DEC Alpha/OpenVMS AXP 7.2-1 FreeBSD 4.4 HP-UX B.11.00 IBM SP 4.3 IRIX 6.5 IRIX64 6.5 (-n32, -64) Linux 2.2.18smp Solaris 2.7, 2.8 Windows NT/98/2000 For more information on the platforms that were tested and for which we provide pre-compiled binaries, please refer to the following web page (accessible from the HDF home page): http://hdf.ncsa.uiuc.edu/platforms.html Know problmes: Writing n-bit datasets from FORTRAN with the SD interface is not working. SDgetchunkinfo does not return compression coding or modelling type. Using both fill-values and compression on SD datasets is not currently working, don't use one or the other. Dumping compressed Vdatas with vshow or hdp is not working. Reading or writing compressed images with the GR interface is not working. %%%4.1r4%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF 4.1 Release 4 October 2000 INTRODUCTION This document describes the differences between HDF 4.1r3 and HDF 4.1r4. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1r4. The HDF 4.1r4 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/HDF/Documentation/HDF4.1r4/ First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems New Features and Changes: ======================== This release focuses on new features and changes added to the GR interface. o Two new utilities have been added to HDF, gif2hdf and hdf2gif. The gif2hdf utility will convert a GIF image into an HDF file containing a GR image. The hdf2gif utility will convert an HDF GR image into a GIF image. o Chunking and chunking with compression have been added to the GR interface. o JPEG compression with the GR interface was not working properly. This problem has been fixed. Several hdp options have been added: o Added -s option to dumpgr and dumpsds to allow printing data as a stream instead of breaking the lines at 65 characters. o Added option -c to dumpgr and dumpsds to allow printing clean output for attributes with type DFNT_CHAR. With this option, hdp will print space characters, such as horizontal tabs, CRs, and LFs, as they are instead of "\digit" (still the default.) This option also prints "..." for one or more null characters among the data. o Added option -l to dumpgr to allow printing data in different interlace modes. Platforms Tested: ================ HDF 4.1 Release 4 has been tested on the following platforms: Cray J90 (available after initial 4.1r4 release) Cray T3E DEC Alpha/Digital Unix DEC Alpha/OpenVMS Exemplar FreeBSD HP-UX IRIX IRIX64 (-n32, -64) Linux Solaris Solaris x86 SP Windows NT/98/2000 For more information on the platforms that were tested and for which we provide pre-compiled binaries, please refer to the following web page (accessible from the HDF home page): http://hdf.ncsa.uiuc.edu/platforms.html Known Problems: ============== o The ncgen utility fails on the IBM SP. %%%4.1r3%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF 4.1 Release 3 May 7, 1999 INTRODUCTION This document describes the differences between HDF 4.1r2 and HDF 4.1r3. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1r3. The release notes provide more in-depth information concerning the topics discussed here. The HDF 4.1r3 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/HDF/Documentation/HDF4.1r3 First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems - Acknowledgements New Features and Changes: ======================== o HDF 4.1r2 was unable to properly read HDF SDSs created with HDF 3.3x. It did not read the correct SDS names. This problem has been fixed. o Many problems have been fixed with the GR interface, including the following: - The GR interface can now read compressed files created with the DFR8 and DF24 interfaces, except for those which were compressed with IMCOMP compression. - The GR interface can read and write images compressed with RLE, GZIP and Skipping Huffman compression methods. - Palettes can now be written and read properly with the GR interface. - 24-bit raster images can now be read by the GR interface. o You can now create an SDS with a name up to 256 characters in length. The previous limit was 64. o HDF now supports IJP JPEG version 6b and Gzip version 1.1.3. o Numerous hdp problems have been fixed, including the following: - hdp no longer fails on an HDF file which contains a vdata that no records have been written to. - hdp no longer fails on the PC and Mactinosh dumping large SDSs. - GR file attributes can now be displayed. - A palette can now be dumped with the GR command. o SDfileinfo no longer returns the wrong number of datasets for old files created with the DFSD interface. o This will be the last release that SunOS 4.1.4 is supported. Check the ./bugs_fixed.txt for other changes that are not listed here. Platforms Tested: ================ HDF 4.1 Release 3 has been tested on the following platforms: Cray J90 Cray T90 (CFP, IEEE) Cray T3E DEC Alpha/Digital Unix DEC Alpha/OpenVMS DEC Alpha NT VAX OpenVMS Exemplar FreeBSD HP-UX 10.2 IRIX 6.5 IRIX64 6.5 (-n32, -64) Linux Macintosh Solaris Solaris x86 SP SunOS 4.1.4 Windows NT/95 For more information on the platforms that were tested and for which we provide pre-compiled binaries, please refer to the following web page (accessible from the HDF home page): http://hdf.ncsa.uiuc.edu/platforms.html Known Problems: ============== o On Alpha OpenVMS version 6.2, the DF.OLB and MFHDF.OLB Libraries should be created with optimization turned off. Otherwise hdftest fails (the sfgichnk function returns incorrect information). o On VAX Open VMS 6.2, the ncgen utility core dumps and an error occurs when reading GR image data with user-defined fill values. o If you encounter problems building on a platform, please be sure to check the INSTALL file at the top of the HDF source tree, in case these problems are documented in section 2.5, Platform-specific Notes. o On the NT, the hdp utility fails in the debug version when using the list command. Acknowledgements: ================ Fortner Software LLC ("Fortner") created the reference implementations for the Macintosh and Windows NT/95 of the HDF 4.1r3 library. For more information, please refer to the macintosh.txt and windows.txt files in the ./release_notes/ directory. %%%4.1r2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF 4.1 Release 2 March 16, 1998 INTRODUCTION This document describes the differences between HDF 4.1r1 and HDF 4.1r2. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1r2. The release notes provide more in-depth information concerning the topics discussed here. The HDF 4.1r2 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/Documentation/HDF4.1r2 First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems - Important Fixes - Acknowledgements New Features and Changes: ======================== o Data chunking is now supported with the GR interface. New routines for creating and manipulating chunked GR images have been added. Please refer to the ./release_notes/new_functions.txt file and HDF Reference Manual for information on using chunked GRs. o In previous releases, many C routines existed for which there were no Fortran counterparts. With HDF 4.1r2, we have added a Fortran routine for most C routines. Please check the ./release_notes/new_functions.txt file for a list of the new functions added to HDF. o This is the first release in which the Java Products (the Java-based HDF Viewer (JHV) and the Java HDF interface (JHI)) are incorporated in the HDF release itself. For information on the Java Products, please refer to the HDF home page under Information about HDF (http://hdf.ncsa.uiuc.edu/about.html). o In the SD interface, HDF now defaults to ONLY storing the new version of the dimension representation added in HDF 4.0r1. When the dimension representation was changed in 4.0r1, the HDF library defaulted to include both the new and old dimension representations in an HDF file. Now, this new dimension representation is stored by default. The SDsetdimval_comp function can be used to change the dimension representation stored. Following is a detailed description of the difference between the new and old representations: Prior to HDF 4.0r1, a vgroup was used to represent a dimension. The vgroup had a single field vdata with a class of "DimVal0.0". The vdata had number of records, with each record having a fake value from 0, 1, 2 ... , ( - 1). The fake values were not really required and took up a large amount of space. For applications that created large one dimensional array datasets, the disk space taken by these fake values almost doubled the size of the HDF file. In order to omit the fake values, the new version for a dimension vdata was implemented. The new version uses the same structure as the old version. The only differences are that the vdata has only 1 record with a value of and that the vdata's class is "DimVal0.1", to distinguish it from the old version. o Platforms dropped with this release: Cray Y-MP, T3D, and Linux (a.out) o Extensive changes have been made to the Reference Manual and User's Guide. The updated Reference Manual is available with this release. The updated User's Guide will be available in the near future. Platforms Tested: ================ HDF 4.1 Release 2 has been tested on the following platforms: Cray T90 (CFP, IEEE) IRIX 6.2 Cray T3E IRIX64 6.4 (-n32, -64) DEC Alpha/Digital Unix Linux (elf) Exemplar Solaris FreeBSD Solaris x86 HP-UX 9.03 SP2 HP-UX 10.2 SunOS IRIX 5.3 ** The Windows NT/95, Macintosh, Dec Alpha OpenVMS and VAX OpenVMS releases are not available with this release of HDF4.1r2. Separate releases for these platforms will be available in the near future. For more information on the platforms that were tested and for which we provide pre-compiled binaries, please refer to the following web page (accessible from the HDF home page): http://hdf.ncsa.uiuc.edu/platforms.html Known Problems: ============== o Writing n-bit datasets from FORTRAN with the SD interface is not working. o SDgetchunkinfo does not return compression coding or modeling type. o Using both fill-values and compression on SD datasets is not currently working; don't use one or the other. o Dumping compressed Vdatas with vshow or hdp is not working. o Reading or writing compressed images with the GR interface is not working. o With the GR interface, you cannot create a raster image without writing data to it. Important Fixes: =============== o HDF no longer core dumps when reading a NetCDF file. o HDF now supports little-endian conversion for VAX and Dec Alpha OpenVMS. o The problems that occurred on the Cray with HDF 4.1r1 have been corrected. See the ./release_notes/bugs_fixed.txt file for more information on bugs fixed in this release. Acknowledgements: ================ Fortner Software LLC ("Fortner") created the reference implementations for Macintosh and Windows NT/95 of the HDF 4.1r2 library, which will be available in the near future. For more information, please refer to the macintosh.txt and windows.txt files [in the ./release_notes/ directory]. (see above). ==================new_functions.txt================================== This file contains a list of the new functions added with HDF 4.1r2. The functions in parenthesis were already present in the HDF library, and are included for clarity. C FORTRAN Description -------------------------------------------------------------------------------- (SDsetcompress) sfscompress compresses SDS (SDwritechunk) sfwchnk writes the specified chunk of NUMERIC data to the SDS (SDwritechunk) sfwcchnk writes the specified chunk of CHARACTER data to the SDS (SDreadchunk) sfrchnk reads the specified chunk of NUMERIC data to the SDS (SDreadchunk) sfrcchnk reads the specified chunk of CHARACTER data to the SDS (SDsetchunk) sfschnk makes the SDS a chunked SDS (SDsetchunkcache) sfscchnk sets the maximum number of chunks to cache (SDgetchunkinfo) sfgichnk gets info on SDS (SDsetblocksize) sfsblsz sets block size (SDisrecord) sfisrcrd checks if an SDS is unlimited (GRsetcompress) mgscompress compresses raster image GRsetchunk mgschnk makes a raster image a chunked raster image GRgetchunkinfo mggichnk gets info on a raster image GRsetchunkcache mgscchnk sets the maximum number of chunks to cache (Hgetlibversion) hglibver gets version of the HDF Library (Hgetfileversion) hgfilver gets version of the HDF file Vdeletetagref vfdtr deletes tag/ref pair ( HDF object) from a vgroup (VSfindclass) vsffcls finds class with a specified name in a vdata VSdelete vsfdlte deletes a vdata Vdelete vdelete deletes a vgroup ===================================================================== %%%4.1r1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.1 Release 1 February 21, 1997 INTRODUCTION This document describes the differences between HDF 4.0r2 and HDF 4.1r1. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1r1. The release notes provide more in-depth information concerning the topics discussed here. The HDF 4.1r1 documentation can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory: /HDF/Documentation/HDF4.1r1 First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems - Important Fixes New Features and Changes: ======================== o Attributes are now supported in both the vdata and vgroup APIs. In the vdata API, attributes can be attached to either vdata fields or vdatas; in the vgroup API, attributes can be attached to vgroups. This new functionality can also be used to attach attributes to vdatas and vgroups created by earlier versions of the HDF library. However, the old versions of the HDF library cannot read the new version vdatas and vgroups. A vdata/vgroup having attributes will become a new version vdata/vgroup. For more information, please refer to the file ../release_notes/vattr.txt, the man pages for the new functions, and the HDF 4.1 User's Guide. o Data chunking is now supported in SD scientific data sets. When data chunking is used, an n-dimensional SDS is stored as a series of n-dimensional chunks, improving performance on certain types of partial read operations. New routines for creating and manipulating chunked SD scientific data sets have been provided, and two preexisting SD I/O routines, SDreaddata and SDwritedata, have also been modified to work with chunked SDSs. For more information, please refer to the file ../release_notes/sd_chunk_examples.txt, the man page for sd_chunk, and the HDF 4.1 User's Guide. o Due to certain limitations in the way compressed SDS datasets are stored, data which has been compressed is not completely writable in ways that uncompressed datasets are. The "rules" for writing to a compressed dataset are as follows: (1) Write an entire dataset that is to be compressed. i.e. build the dataset entirely in memory, then write it out with a single call. (2) Append to a compressed dataset. i.e. write to a compressed dataset that has already been written out by adding to the unlimited dimension for that dataset. (3) For users of HDF 4.1, write to any subset of a compressed dataset that is also chunked. Please refer to the HDF 4.1 User's Guide for more information. o HDF now creates free format FORTRAN include files. In order to make FORTRAN 90 programs be able to use HDF include files (*.inc), HDF4.1r1 creates F90 versions of these files during the 'make' process on UNIX platforms, by replacing 'C' or 'c' in column 1 with '!'. Continuation lines in hdf.inc have been eliminated. The F90 version files are named as hdf.f90, dffunc.f90 and netcdf.f90. o Several performance improvements have been added. Test programs on SPARC 20/Solaris 2.5 show that when creating an hdf file with 2500 3D (10x10x10) float32 SDSs, the program execution speed is improved by 2.5 - 4.8 times, and SDend is faster by 4.3 - 20 times. o A new function, SDsetfillmode, has been added. It can be used to prevent SDwritedata from pre-filling the dataset with a user defined or default fill value, so that better performance can be obtained. o SGI has changed some compiler default settings in IRIX 6.2. We decided to explicitly define the settings of various ABI related options. For the 64 bit OS ("uname -s" returns IRIX64), HDF uses "-64 -mips4" code. For the traditional 32 bit OS ("uname -s" returns IRIX), HDF uses "-32 -mips2". To use n32 mode on IRIX64, HDF uses "-n32 -mips3" code. Note that in the previous release (4.0r2), HDF used only "-n32". In IRIX 6.1 and before, "-n32" defaulted to "-mips4" code but in IRIX 6.2, it defaults to mips3 or mips4 code. We decided to explicitly set it to "-n32 -mips3". Therefore, applications linking with the HDF library must be compiled with the same explicit ABI options. o This will be the last release that we support the CM5. HDF 4.1 Beta 1 USERS ONLY ------------------------- o The SD chunking routine names were changed to be more consistent with the SD interface. The names of the routines are now in lower case, after the two initial "SD" characters. For example, SDwriteChunk() has been changed to SDwritechunk(). o The _HDF_ENTIRE_VDATA variable has been changed to _HDF_VDATA. For those users already using it, a macro called _HDF_ENTIRE_VDATA has been added, which is defined as _HDF_VDATA. o You can now create an empty compressed SDS. Please refer to the ../release_notes/bugs_fixed.txt file for changes in this release. Platforms Tested: ================ HDF 4.1 Release 1 has been tested on the following platforms: CM5 Parallel I/O, 4.1.3_U1 DEC Alpha/Digital Unix 3.2 DEC Alpha/OpenVMS AXP 6.2 DEC VAX OpenVMS 6.2 Exemplar 9.03 Free BSD 2.2 HP-UX 9.03 HP-UX 10.10 IRIX 5.3 IRIX 6.2_64 IRIX 6.2_n32 IRIX 6.4_64 IRIX 6.4_n32 Linux A.OUT 1.2.4 Linux ELF 2.0.27 (C only) Macintosh PowerPC (C only) SP2 4.1 Solaris 2.5 Solaris_x86 2.5 (C only) SunOS 4.1.3 Windows NT/95 (C only) Known Problems: ============== o With the SD interface, you are unable to overwrite existing compressed data, that is not stored in "chunked" form. This is due to compression algorithms not being suitable for "local" modifications in a compressed datastream. o There are no plans to add the DF24writeref function to the DF24 interface. This function will be removed from the documentation. Important Fixes: =============== o If you opened a file in Read Only mode with the SD interface (using SDstart), it would create the file if the file did not exist. This no longer occurs. o HDF 4.0r2 did not recognize JPEG images created by HDF 3.3r4. This has been fixed. See the ../release_notes/bugs_fixed.txt file for more information on bugs fixed in this release. %%%4.1b1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.1 Beta 1 December 6, 1996 INTRODUCTION This document describes the differences between HDF 4.0r2 and HDF 4.1b1. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.1b1. The release notes provide more in-depth information concerning the topics discussed here. For documentation, please refer to the HDF 4.0r2 documentation which can be found on the NCSA ftp server (ftp.ncsa.uiuc.edu) in the directory /HDF/Documentation/HDF4.0r2. First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems - Important Fixes New Features and Changes: ------------------------- o Attributes are now supported in both the vdata and vgroup APIs. In the vdata API, attributes can be attached to either vdata fields or vdatas; in the vgroup API, attributes can be attached to vgroups. This new functionality can be used to attach attributes to vdatas and vgroups created by earlier versions of the HDF library. However, the old versions of the HDF library cannot read the new version vdatas and vgroups. A vdata/vgroup having attributes will become a new version vdata/vgroup. For more information, please refer to the file ../release_notes/vattr.txt, as well as the man pages for the new functions. o Data chunking is now supported in SD scientific data sets. When data chunking is used, an n-dimensional SDS is stored as a series of n-dimensional chunks, improving performance on certain types of partial read operations. New routines for creating and manipulating chunked SD scientific data sets have been provided, and two preexisting SD I/O routines, SDreaddata and SDwritedata, have also been modified to work with chunked SDSs. For more information, please refer to the file ../release_notes/sd_chunk_examples.txt, as well as the man page for sd_chunk. More information will be included in the HDF 4.1 documentation, which will be available with the release of HDF 4.1. o Due to certain limitations in the way compressed SDS datasets are stored, data which has been compressed is not completely writable in ways that uncompressed datasets are. The "rules" for writing to a compressed dataset are as follows: (1) Write an entire dataset that is to be compressed. i.e. build the dataset entirely in memory, then write it out with a single call. (2) Append to a compressed dataset. i.e. write to a compressed dataset that has already been written out by adding to the unlimited dimension for that dataset. (3) For users of HDF 4.1, write to any subset of a compressed dataset that is also chunked. Please refer to the ../release_notes/comp_SDS.txt file for more information. o A new file, ../release_notes/compile.txt, contains instructions on compiling applications on the supported platforms. If you encounter problems with it, please let us know at hdfhelp@ncsa.uiuc.edu. o SGI has changed some compiler default settings in IRIX 6.2. We decided to explicitly define the settings of various ABI related options. For the 64 bit OS ("uname -s" returns IRIX64), HDF uses "-64 -mips4" code. For the traditional 32 bit OS ("uname -s" returns IRIX), HDF uses "-32 -mips2". To use n32 mode on IRIX64, HDF uses "-n32 -mips3" code. Note that in the previous release (4.0r2), HDF used only "-n32". In IRIX 6.1 and before, "-n32" defaulted to "-mips4" code but in IRIX 6.2, it defaults to mips3 or mips4 code. We decided to explicitly set it to "-n32 -mips3". Therefore, applications linking with the HDF library must be compiled with the same explicit ABI options. Platforms Tested: ----------------- HDF 4.1b1 has been tested on the following platforms: DEC Alpha/Digital Unix 3.2 DEC Alpha/OpenVMS AXP v6.2 DEC VAX OpenVMS v6.2 Free BSD 2.2 HP-UX 9.03 IRIX 5.3 IRIX 6.2_64 IRIX 6.2_n32 Linux ELF 1.2.13 (C only) Macintosh PowerPC (C only) (not ready yet) SP2 4.1 Solaris 2.5 SunOS 4.1.3 Windows NT/95 (C only) YMP 9.0.2asC Known Problems: --------------- o With the SD interface, you are unable to overwrite existing compressed data, that is not stored in "chunked" form. This is due to compression algorithms not being suitable for "local" modifications in a compressed datastream. For more information, please refer to the ../release_notes/comp_SDS.txt file. o With 4.0r1p1, you could type "hdp list -a to get a list of the file attributes associated with a file. This does not currently work. o There are no plans to add the DF24writeref function to the DF24 interface. This function will be removed from the documentation. o When running "make test" on OpenVMS, Test 3 (float32) of the chunking tests fails, and has therefore been commented out. o When running the tests on Window NT/95, Test 2 (uint16) of the chunking tests fails, and will be commented out. Important Fixes: ---------------- o If you opened a file in Read Only mode with the SD interface (using SDstart), it would create the file if the file did not exist. This no longer occurs. o HDF 4.0r2 did not recognize JPEG images created by HDF 3.3r4. This has been fixed. See the ../release_notes/bug_fixed.txt file for more information on bugs fixed in this release. %%%4.0r2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.0 Release 2 July 19, 1996 INTRODUCTION This document describes the differences between HDF 4.0r1p1 and HDF 4.0r2. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF 4.0r2. The documentation and release notes provide more in-depth information concerning the topics discussed here. The HDF 4.0 documentation can be found on the NCSA ftp server in the directory /HDF/Documentation/HDF4.0/Users_Guide. First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - New Features and Changes - Platforms Tested - Known Problems New Features and Changes: ------------------------- o HDF now supports unlimited number of access IDs and files IDs. o The vdata field size limit has been increased from 32000 to 65535. o The hdp utility has been updated to: - view a GR object - recognize the new compression methods - view descriptive annotations - display the library version of the HDF file o SDsetattr and GRsetattr now check for both MAX_ORDER and MAX_FIELD_SIZE. o The handling of DFNT_CHAR in all Fortran interfaces has been cleaned up. See release_notes/Fortran_APIs.txt for more information. o When appending compressed data onto the end of an unlimited dimension SDS, the SD interface no longer writes the fill-values in locations where they will immediately be over-written by data. This was done for the compression layer, but has the added enhancement of improving performance. o On the Cray, there were boundary problems when foreign data did not start from the 64-bit boundary. This has been fixed. o There are no longer the following name collisions with the HDF libraries: - AVS (HPread, HPwrite) - Windows SDK (_hread) - ODL library (_HDF_) o The 32-bit mode for IRIX 6.1 previously used the '-32' option which produces mips1 code. It has been changed to use '-n32' which produces mips4 code. This runs faster on the Power Challenges. Users who must use the '-32' option can link their code with the IRIX 5.3 HDF library. o The compression problems have been fixed when using HDF on IRIX 6.1 with the -n32 (see Known Problems below). o The zlib and jpeg libraries have been updated. The versions included with HDF 4.0 Release 2 are: zlib version 1.0.2 jpeg version 6a (7-Feb-96) o The hdfls utility has been updated to: - support the new compression modes - display the library version of the HDF file o Support for the 16-bit architecture has been pulled out of HDF. o The directories separator in the directory variable used by the function HXsetdir (Fortran equivalent: hxsdir) is the verticle bar ('|') now. It used to be the colon (':') symbol, but a colon is a legal symbol for a file pathname in the MacOS system. o The code has been rearranged so that most applications' binaries will be smaller. o A new routine, VSfpack(), has been added. Please see the HDF man page on how to use this routine. o A new routine, GRluttoref(), has been added. Please see the HDF man page on how to use this routine. o Several internal problems have been fixed with the GR interface. Changes in Compiling the Source Code: o A new compile option, '-DHAVE_NETCDF', has been added, to avoid conflicts in linking the HDF/MFHDF library with the original netCDF library. This is only available for the C-interface. However, keep in mind that you cannot read/write HDF files using the netCDF libraries. See section 2.4.3.2 in the INSTALL file for more information. o When compiling and installing HDF, the default location to place the binaries, has been changed from /usr/local/bin to NewHDF in the source directory. For example, assuming the library source is loaded at /usr/local/src/hdf, the following commands will result in the HDF binaries being placed in the directory /usr/local/src/hdf/dev/NewHDF. cd dev ./configure -v make make test make install o The Fortran test output has been cleaned up and shortened, when running "make test". Previously, the Fortran tests on the hdf/ side consisted of multiple Fortran programs invoked by a C frontend. The test programs were changed to subroutines and combined as one Fortran program. The C frontend was also changed to produce a 'directive' file, called fortest.arg, which contains directives to run the Fortran test program. Platforms Tested: ----------------- HDF 4.0r2 has been tested on the following platforms: AIX Linux ELF C90 MAC CM5 SP2 (single node) Digital Unix 3.2 Solaris_2.4 Exemplar 9.03 Solaris 2.5 Free BSD Solaris_x86 2.4 (C only) Fujitsu (C only) SunOS 4.1.4 HP-UX T3D (C only) IRIX 6.1 w/-n32 bit option VMS IRIX 6.1 w/-64 bit option Windows NT/95 IRIX 5.3 YMP Linux A.OUT Known Problems: --------------- o On the SunOS platform, there is a bug when using sfscal()/sfgcal() routines with gcc and f77. o On the VMS platform, there is a bug with float64 data. o For IRIX 6.1, the stdio.h file gives a false warning message if both the '-n32' and '-ansi' options are used for the C compiler. We have temporarily removed the '-ansi' option from our autoconfiguration for the Irix6_32 system, to avoid these messages. We have verified that the culprit in stdio.h has been corrected in IRIX 6.2, and plan to put the '-ansi' option back in our next release. o The compression tests produce errors for FLOAT32 data if the '-O' option is used on IRIX 6.1, for both the '-64' bit and '-n32' bit modes. It did not produce errors when using the '-32' bit option or when not using the '-O' option. We are unsure whether the errors are due to the compression code or the IRIX C optimizer. For now, we have chosen to compile the HDF library without the '-O' option, while we investigate the problem. %%%4.0r1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.0 Release 1 February 7, 1996 INTRODUCTION This document describes the differences between HDF4.0r1 and HDF3.3r4. It is written for people who are familiar with previous releases of HDF and wish to migrate to HDF4.0r1. The documentation and release notes provide more in-depth information concerning the topics discussed here. The HDF 4.0 documentation can be found on the NCSA ftp server in the directory /HDF/Documentation/HDF4.0/Users_Guide. For more history behind the implementation of the items listed here, refer to the ABOUT_4.0.alpha, ABOUT_4.0b1 and ABOUT_4.0b2 files. First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu CONTENTS - Important Changes (that will affect you) - New Features and Changes - Changes in Utilities - Known Problems Important Changes: ----------------- 1. Several changes have been made to the libraries in HDF4.0 which affect the way that users compile and link their programs: * The mfhdf library has been renamed to libmfhdf.a from libnetcdf.a in previous releases. * HDF 4.0 libraries now use v5 of the Independent JPEG Group (IJG) JPEG file access library. * Gzip library libz.a is added in HDF4.0r1, in order to support "deflate" style compression of any object in HDF files. Due to these changes, users are required to specify four libraries when compiling and linking a program: libmfhdf.a, libdf.a, libjpeg.a and libz.a, even if your program does not use JPEG or GZIP compression. For example: For C: cc -o myprog myprog.c -I \ \ or cc -o myprog myprog.c -I \ -L -lmfhdf -ldf -ljpeg -lz For FORTRAN: f77 -o myprog myprog.f \ \ or f77 -o myprog myprog.f -L \ -lmfhdf -ldf -ljpeg -lz NOTE: The order of the libraries is important: libmfhdf.a first, then libdf.a, followed by libjpeg.a and libz.a. This is also discussed in Items 1, 2, and 3 of the New Features and Changes section of this document. 2. The HDF 4.0 library will ONLY compile with ANSI C compilers. See Item 4 in the New Features and Changes section of this document for more information. 3. The HDF library and netCDF library on Unix systems can now be automatically configured and built with one command. See Item 5 in the New Features and Changes section of this document for more information. 4. In HDF 4.0, the FORTRAN programs dffunct.i and constant.i have been changed to dffunct.inc and hdf.inc. See Item 16 in the New Features and Changes section of this document for more information. 5. Platforms tested on: IRIX (5.3, 6.1 (32 bit and 64 bit)), SunOS 4.1.4, Solaris (ver 2.4, 2.5), Solaris x86, HP-UX, Digital Unix, AIX, LINUX (A.OUT), CM5, YMP, FreeBSD, C90, Exemplar, Open VMS, and SP2 (single node only). HDF 4.0 is not yet available on the Macintosh for HDF4.0r1. 6. The HDF 4.0 binaries for each tested platform are available. Unix binaries are located in the bin/ directory. Binaries for Windows NT are located in the zip/ directory. New Features and Changes: ------------------------ 1. Changes to the mfhdf library The mfhdf library has been renamed to libmfhdf.a from libnetcdf.a in previous releases. To link a program with HDF4.0r1 libraries, four libraries are required: libmfhdf.a, libdf.a, libjpeg.a and libz.a. See Item 1 of 'Important Changes' for examples of how you would compile and link your programs. 2. JPEG Group v5b library HDF Version 4.0 libraries now use v5 of the Independent JPEG Group (IJG) JPEG file access library. The JPEG library will need to be linked with user's applications whether they are compressed with JPEG or not. See Item 1 of 'Important Changes' for examples of how you would compile and link your programs. 3. Gzip library added New with this release is support for gzip "deflate" style compression of any object in an HDF file. This is supported through the standard compression interface function calls (HCcreate, SDsetcompress, GRsetcompress). The ABOUT_4.0b2 file contains additional information on this. See Item 1 of 'Important Changes' for examples of how you would compile and link your programs. 4. ANSI C only As was previously noted in the HDF newsletters, this release of the HDF library will compile only with ANSI C compilers. This shift to ANSI C compliance has been accompanied by a large clean up in the source code. An attempt has been made to remove all warnings and informational messages that the compilers on supported platforms occasionally emit, but this may not be completely clean for all user sites. 5. Auto configuration Both the HDF library and netCDF library on Unix systems now use the same configure script and can be configured uniformally with one command. See the README and the INSTALL files at the top level of HDF4.0r1 for detailed instructions on configuration and installation. A consequence of the auto configuration is that on UNIX systems without FORTRAN installed, the top level config/mh- will need to have the 'FC' macros defined to "NONE" for correct configuration. 6. New version of dimension record In HDF4.0b1 and previous releases of the SDS interface, a vgroup was used to represent a dimension. The vgroup had a single field vdata with a class of "DimVal0.0". The vdata had number of records, with each record having a fake value from 0, 1, 2 ... , ( - 1). The fake values were not really required and took up a large amount of space. For applications that created large one dimensional array datasets, the disk space taken by these fake values almost doubled the size of the HDF file. In order to omit the fake values, a new version of dimension vdata was implemented. The new version uses the same structure as the old version. The only differences are that the vdata has only 1 record with a value of and that the vdata's class is "DimVal0.1", to distinguish it from the old version. No change was made in unlimited dimensions. Functions added to support this are: - SDsetdimval_comp -- sets backward compatibility mode for a dimension. The default mode is compatible in HDF4.0r1, and will be incompatible in HDF4.1. See the man page of SDsetdimval_comp(3) for detail. - SDisdimval_bwcomp(dimid) -- gets the backward compatibility mode of a dimension. See the man page of SDisdimval_bwcomp(3) for detail. 7. Reading CDF files With HDF 4.0 limited support for reading CDF files was added to the library. This support is still somewhat in the development stage and is therefore limited. To begin with, unlike the netCDF merger, the CDF API is not supported. Rather, the SD and netCDF APIs can be used to access information pulled out of CDF files. The type of files supported are limited to CDF 2.X files. The header information is different between CDF 1.X and 2.X files. In addition, all of the files must be stored as single-file CDFs in network encoding. If there is user demand, and support, the types of CDF files that are readable may be increased in the future. 8. Parallel I/O interface on CM5 An extension using the parallel IO in CM5 has been added to the SDS interface. Initial tests have resulted in about 25 MBytes/second IO throughput using the SDA (Scalable Disk Array) file system. The library provides interfaces for both C* and CMF programming languages. The ABOUT_4.0.alpha file has more information concerning this. Users will find some examples in the directory mfhdf/CM5/Examples. The parallel I/O interface stores scientific datasets in external files. New options have been added to hdfls and hdfpack to handle them. A new utility, hdfunpac, was created for external files handling, too. 9. Support for SGI Power Challenge running IRIX6.1 Power Challenge is now supported, both in the native 64-bit and the 32-bit objects modes. Note that the Power Challenge native 64 bits objects use 64 bits long integers. Users should be careful when using the netcdf interface. They should declare their variables as "nclong", not "long". 10. Multi-file Annotation Interface (ANxxx) The multi-file annotation Interface is for accessing file labels and descriptions, and object labels and descriptions. It allows users to keep open more than one file at a time, and to access more than one annotation at a time. It also allows multiple labels and multiple descriptions to be applied to an HDF object or HDF file. 11. Multi-file Raster Image (GRxxx) interface The new Generic Raster (GR) interface provides a set of functions for manipulating raster images of all kinds. This interface allows users to keep open more than one file at a time, and to "attach" more than one raster image at a time. It supports a general framework for attributes within the RIS data-model, allowing 'name = value' style metadata. It allows access to subsamples and subsets of images. The GRreqlutil and GRreqimageil functions allow for different methods of interlacing images in memory. The images are interlaced in memory only, and are actually written to disk in "pixel" interlacing. 12. Compression for HDF SDS Two new compression functions have been added to the SD interface for HDF 4.0: SDsetcompress and SDsetnbitdataset. SDsetcompress allows users to compress a scientific dataset using any of several compression methods. Initially three schemes, RLE encoding, an adaptive Huffman compression algorithm, and gzip 'deflation' compression are available. SDsetnbitdataset allows for storing a scientific dataset using integers whose size is any number of bits between 1 and 32 (instead of being restricted to 8, 16 or 32-bit sizes). Access to the data stored in an n-bit data item is transparent to the calling program. The ABOUT_4.0.alpha file has an in-depth description concerning this ("n-bit SDS" listed under Item 2). 13. External Path Handling New functions have been added to allow applications to specify directories to create or search for external files. - HXsetcreatedir (hxscdir for FORTRAN) - HXsetdir (hxsdir for FORTRAN) 14. I/O performance improvement HDF 4.0 unofficially supports file page buffering. With HDF 4.1 it will be officially supported. The file page buffering allows the file to be mapped to user memory on a per page basis i.e. a memory pool of the file. With regards to the file system, page sizes can be allocated based on the file system page-size or in a multiple of the file system page-size. This allows for fewer pages to be managed as well as accommodating the user's file usage pattern. See the top level INSTALL file and the release_notes/page_buf.txt file for creating the library with this support and using it. 15. Improvement in memory usage and general optimizations Considerable effort was put into this release (since the b2 release) to reduce the amount of memory used per file and by the library in general. In general terms, we believe that the library should have at least half as large of a memory footprint during the course of its execution and is more frugal about allocating large chunks of memory. Much time was spent optimizing the low-level HDF routines for this release to be faster than they have been in the past also. Applications which make use of files with many (1000+) datasets should notice significant improvements in execution speed. 16. In hdf/ there are two files for FORTRAN programs to include the values and functions defined in HDF. They were originally named as constant.i and dffunct.i. The extension .i caused problems on some machines since *.i is used by cc as an "intermediate" file produced by the cpp preprocessor. In HDF 4.0 dffunct.i has been changed to dffunct.inc, and constant.i has been changed to hdf.inc. Users' existing FORTRAN application programs need to make the corresponding changes, if they include the .i files, in order to compile with HDF4.0. 17. Limits file A new file, limits.txt, has been added to the ftp server. It is aimed at HDF applications programmers and defines the upper bounds of HDF 4.0. This information is also found in the hdf/src/hlimits.h file. Refer to the ABOUT_4.0.alpha for historical information concerning this. 18. Pablo available HDF4.0 supports creating an instrumented version of the HDF library(libdf-inst.a). This library, along with the Pablo performance data capture libraries, can be used to gather data about I/O behavior and procedure execution times. See the top level INSTALL file and the hdf/pablo/README.Pablo file for further information. 19. Support for the IBM SP-2 The HDF library has been ported to run in a single SP2 node. It does not support the parallel or distributed computing for multiple SP-2 nodes yet. 20. Miscellaneous fixes - To avoid conflicts with C++, internal structures' fields which were named 'new' have been renamed. - The maximum number of fields in a vdata now is decided by VSFIELDMAX. - The platform number subclass problem when an external data file was in Little_endian format has been fixed. - Unlimited dimension was not handled correctly by the HDF3.3r4 FORTRAN interface. This problem has been fixed in HDF4.0r1. Changes to utilities: -------------------- o hdf/util/ristosds Ristosds now converts several raster images into a 3D uint8, instead of float32, SDS. o hdf/util/hdfls New options have been added to support the parallel I/O interface on CM5. o hdf/util/hdfpack New options have been added to support the parallel I/O interface on CM5. o hdf/util/hdfunpac This is a new utility for external file handling for the parallel I/O interface on CM5. o mfhdf/dumper/hdp Hdp is a new command line utility designed for quick display of contents and data objects. It can list the contents of hdf files at various levels with different details. It can also dump the data of one or more specific objects in the file. See hdp.txt in the release notes for more information. Known Problems: -------------- o On the IRIX4 platform, fp2hdf creates float32 and float64 values incorrectly. o On the SP2, the hdp command gives a false message of "Failure to allocate space" when the hdf file has no annotations to list. o On the C90, hdfed fails inconsistently when opening hdf files more than once in the same hdfed session. o Currently there is a problem in re-writing data in the middle of compressed objects. o VMS gives an error on the test for Little Endian float64. o If the external element test in hdf/test/testhdf fails and there is no subdirectory "testdir" in hdf/test/, create one via "mkdir" and run the test again. (The "testdir" should have been created by "make". But the "make" in some old systems does not support the creation commands.) %%%4.0b2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.0 Beta 2 Nov 14, 1995 CONTENTS 1. The mfhdf side library is renamed to libmfhdf.a, versus libnetcdf.a in previous releases 2. New version of dimension record 3. New features GR interface Gzip library is added Unified configuration of library I/O performance improvement 4. New functions added Fortran functions hxscdir and hxsdir SDsetdimval_comp SDisdimval_bwcomp 5. SGI Power Challenge running IRIX6.1 is now supported 6. Pablo available 7. Platforms tested 8. Changes in release notes 9. Bug fixes and Known problems 1. The mfhdf side library is renamed to libmfhdf.a, versus libnetcdf.a in previous releases. To link a program with HDF4.0b2 libraries, one needs four libraries, libmfhdf.a, libdf.a, libjpeg.a and libz.a (see "Gzip library is added" in item 3 below): cc -o myprog myprog.c -I \ libmfhdf.a libdf.a libjpeg.a libz.a Note, the order of the libraries is important. 2. New version of dimension record HDF4.0b1 and previous releases use a vgroup to represent a dimension. The vgroup has a single field vdata with class "DimVal0.0". The vdata has number of records, each record has a fake value from 0, 1, 2 ... , ( - 1 ). The fake values are not really required and take a lot of space. For applications that create large one dimensional array datasets the disk space taken by these fake values almost double the size of the HDF file. In order to omit the fake values, a new version of dimension vdata is proposed. The new version uses the same structure as the old version. The only differences are that the vdata has only 1 record with value and that the vdata's class is "DimVal0.1" to distinguish it from the old version. No change is made in Unlimited dimensions. See file dimval.txt in subdirectoy release_notes/ of HDF4.0b2 release for our policy on the backward compatibility of this dimension version. 3. New features . New with this beta release is the support for different methods of interlacing images in memory. This feature is supported through the GRreqlutil and GRreqimageil functions rescribed in the mf_ris.txt document in this directory. Please note that the images are interlaced in memory only, all images are actually written to disk in "pixel" interlacing. . Gzip library is added New with this release is support for gzip "deflate" style compression of any object in an HDF file. This is supported through the standard compression interface function calls (HCcreate, SDsetcompress, GRsetcompress) by using the COMP_CODE_DEFLATE parameter for the coding type. The comp_info structure has a new member, deflate.level, which specifies how much effort to expend trying to compress data. Values for deflate.level must be between 1-9, with 1 being small amounts of effort (time) and 9 being maximum effort (most time and compression), the default value is 6. Currently, due to our use of the gzip "zlib" library for support of this feature, users must link with the "libz.a" library produced by zlib. (See item1 above). cc -o myprog myprog.c -I \ libmfhdf.a libdf.a libjpeg.a libz.a Note, the order of the libraries is important. Also, this method of compression currently has several known bugs when used on a 64-bit architecture (DEC Alpha processors, Cray machines, and SGI Power Challenge machines in 64-bit "mode"). . Unified configuration of library Both sides of the library now use the same configure script and can be configured uniformly through one makefile fragment. Please see the top-level INSTALL file in the distribution for further details. . I/O performance improvement This version of the distribution also has preliminary support for file page buffering. Note that is a *Beta* release and is not supported officially. As such it is is provided as is. The file page buffering allows the file to be mapped to user memory on a per page basis i.e a memory pool of the file. With regards to the file system, page sizes can be allocated based on the file system page-size or if the user wants in some multiple of the file system page-size. This allows for fewer pages to be managed along with accommodating the users file usage pattern. Please see the documentation in 'release_notes/page_buf.txt'. We have also reduced the memory requirements for several of the internal HDF library data structures, for greater efficiency. 4. Functions added . Fortran interface functions added for the set external path features. They are hxscdir and hxsdir. See the man page of HXsetcreatedir(3) and HXsetdir(3) for detail. . SDsetdimval_comp -- sets backward compatibility mode for a dimension. The default mode is compatible in HDF4.0b2, and will be incompatible in HDF4.1. See the man page of SDsetdimval_comp(3) for detail. . SDisdimval_bwcomp(dimid) -- gets the backward compatibility mode of a dimension. See the man page of SDisdimval_bwcomp(3) for detail. 5. SGI Power Challenge running IRIX6.1 is now supported Power Challenge is now supported, both in the native 64-bit and the 32-bit objects modes. Note that the Power Challenge native 64 bits objects use 64 bits long integers, users should be careful when using the netcdf interface. They should declare their variables as "nclong", not "long". 6. Pablo available This version of the distribution has support to create an instrumented version of the HDF library(libdf-inst.a). This library along the Pablo performance data capture libraries can be used to gather data about I/O behaviour and procedure execution times. Please see the documentation release_notes/Pablo.txt in the distribution for further details. 7. Platforms tested HDF4.0b2 has been tested on the following systems: SunOS 4.1.3, SunOS 5.3 and 5.4(Solaris 2.3 and 2.4), Linux_a.out, Linux_elf, SGI/IRIX5.2, SGI/IRIX5.3, SGI Power Challenge/IRIX6.1 (32- and 64-bit), HP/UX 9.01, IBM RS6000/AIX, Cray C90, Cray YMP, DEC alpha/UNIX (OSF), DecStation/MIPSEL (ncdump doesn't work), Free BSD 2.0, Solaris_x86, Convex Exemplar/HPUX, and CM5 parallel I/O. See the INSTALL file at the top level of HDF4.0b2 for more details. 8. Changes in release notes The directory release_notes/ contains writeups for the alpha and beta releases of HDF4.0. Those files can be used as temporary documents for HDF4.0 before the official documentation is available. Newly added: ABOUT_4.0b2, Pablo.txt, dimval.txt, and page_buf.txt Files changed: bug_fixed.txt and parallel_CM5.txt. AOUBT_4.0.alpha is also included. 9. Fixes and Known problems Problems fixed: . To avoid conflicts with C++, internal structures' fields which were named 'new' have been renamed. . Maximum number of fields in a vdata now is decided by VSFIELDMAX. . Vshow and hdp are fixed. Now they can handle as many fields as defined by VSFIELDMAX. . Fixed platform number subclass problem when external data file was in Little_endian format. . A file hdf/src/hlimits.h has been added to hold definitions for maximum number of open files and other limits. . Miscelianeous fixes Known problems: . Hfidinquire not included in binaries . Gzip doesn't work on 64-bit machines. . Currently there is a problem in appending data to compressed objects. . Hfidinquire is in the source code, but it is not included in the pre-compiled code. If your program uses Hfidinquire, you need to re-compile libdf.a. %%%4.0b1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT HDF4.0 Beta 1 July 25, 1995 CONTENTS 1. New features in the HDF4.0 Beta 1 release 2. Bugs fixed and known problems 3. Platforms tested 4. Installation of HDF4.0 Beta 1 on WindowsNT/95 5. Known problems in compilation, testing and installation of HDF4.0b1 6. Installing without FORTRAN support 1. New features in HDF4.0 Beta 1 release o Auto configuration It is now possible to automatically configure and build both the HDF library and netCDF library with one command. See the README and the INSTALL files at the top level of HDF4.0beta1 for detailed instructions on configuring and installation. o Multi-file Annotation Interface (ANxxx) The multi-file annotation Interface is for accessing file labels and descriptions, and object labels and descriptions. It allows users to keep open more than one file at a time, and to access more than one annotation at a time. It also allows multiple labels and multiple descriptions to be applied to an HDF object or HDF file. A draft of the documentation for this interface is in ./mf_anno.txt. o Multi-file Raster Image (GRxxx) interface The new Generic Raster (GR) interface provides a set of functions for manipulating raster images of all kinds. This interface allows users to keep open more than one file at a time, and to "attach" more than one raster image at a time. It supports a general framework for attributes within the RIS data-model, allowing 'name = value' style metadata. It allows access to subsamples and subsets of images. HDF4.0beta1 includes a C interface only. The Fortran interface will be available in the next release. A draft of the documentation for this interface is in ./mf_ris.txt. o New Compression Algorithms and interface A new low-level compression interface has been added to HDF which allows any data-object to be compressed using a variety of algorithms. Currently only two compression algorithms are supported: Run-Length Encoding (RLE) and adaptive Huffman. A draft of the documentation for this interface is in ./compression.txt o JPEG Group v5b library HDF Version 4.0 libraries now use v5 of the Independent JPEG Group (IJG) JPEG file access library. For more details about JPEG library see ./JPEG_v5b.txt The JPEG library will need to be linked with a user's applications whether they are compressed with JPEG or not. For example on a SUN SPARC, if the .h files are in the directory "incdir", and all libraries are in "libdir," the following command should be used to compile a C program "myprog.c": cc -DSUN -DHDF -Iincdir myprog.c libdir/libnetcdf.a \ libdir/libdf.a /libdir/libjpeg.a -o myprog or cc -DSUN -DHDF -Iincdir myprog.c -L libdir -lnetcdf \ -ldf -ljpeg -o myprog Note that the order is important: libnetcdf.a must occur first, then libdf.a, and then libjpeg.a. For FORTRAN programs, use command line: f77 -o myprogf myprogf.f libdir/libnetcdf.a \ libdir/libdf.a libdir/libjpeg.a or f77 -o myprogf myprogf.f -L libdir -lnetcdf -ldf -ljpeg Note that the order is important: libnetcdf.a, then libdf.a and then libjpeg.a. o Compression for HDF SDS (not completely working) Work is almost complete on the addition of two new compression functions to the SD interface. One function, which still has some known bugs, will allow users to compress a scientific dataset using any of several compression methods. Initially two schemes, RLE encoding and an adaptive Huffman compression algorithms, will be available. A second function is available for storing a scientific dataset using integers whose size is any number of bits between 1 and 32 (instead of being restricted to 8, 16 or 32-bit sizes). A draft of the documentation for these functions is in ./comp_SDS.txt o External Path Handling New functions have been added to allow applications to specify directories to create or search for external files. More explanation can be found in: ./external_path.txt. o Parallel I/O for the CM5 An extension using the parallel I/O facilities on a CM5 has been added to the SDS interface. Initial tests have resulted in about 25 MBytes/second I/O throughput using the SDA (Scalable Disk Array) file system. The library provides interfaces for both C* and CMF programming languages. See: ./parallel_CM5.txt for details. o HDF dumper Hdp is a command line utility designed for quick display of contents and data of HDF3.3 objects, RIS, SDS, Vdata, and Vgroup. It can list the contents of hdf files at various levels with different details. It can also dump the data of one or more specific objects in the file. See: ./hdp.txt for details. Currently hdp works on SunOS and LINUX only. 2. Bugs fixed and known problems Several bugs or problems, such as failure in setting and getting scales for unlimited dimensions, missing Fortran version of VSQxxxx functions, failure in defining more than 36 fields in Vdatas, etc. were fixed in this beta release. For more details about fixed and un-fixed bugs and problems please see: ./bug_fixed.txt. 3. HDF4.0 Beta 1 has been tested on the following systems: SunOS 4.1.3, SunOS 5.3 (Solaris 2.3), Linux, SGI/IRIX5.3, SGI Power Challenge/IRIX6.0 (32-bit mode only), HP/UX 9.01, IBM RS6000/AIX (C only), C3880/ConvexOS,11.0, CM5, Cray C90, DEC alpha/OSF (C only), DecStation/MIPSEL (C only), Windows NT, Free BSD 2.0, and Convex Exemplar/HPUX. See the INSTALL file at the top level of HDF4.0b1 for more details. 4. Installing HDF4.0 Beta 1 on Windows NT and Windows 95 Since Windows NT, Windows '95 (Chicago) and Windows 3.1 (with the Win 32s extensions) all are designed to run the same 32-bit code, we have decided to support only 32-bit libraries and code on the MS-Windows platform. To build the HDF, JPEG and netCDF libraries and utilities, follow the instructions listed in: ./install_winNT.txt. 5. Known problems in compilation,testing and installation of HDF4.0b1: . On SunOS, tsdmmsf.f in hdf/test/fortest fails . On C90, mfhdf/fortran test doesn't configure correctly. The adaptive Huffman algorithm does not work right either. Due to this problem, when running hdf/test/testhdf the test module comp prints out error messages. . On DecStation/MIPSEL, ncdump gives a segmentation fault. . The Fortran interface has not been tested on IBM RS6000, DecStation/MIPSEL, and Dec Alpha/OSF because a Fortran compiler is not available on those machines in our group. . If the external element test in hdf/test/testhdf fails and there is no subdirectory "testdir" in hdf/test/, create one via "mkdir" and run the test again. (The "testdir" should have been created by "make". But the "make" in some old systems does not support the creation commands.) . A bug was found in the "mfhdf.h" file late in the testing stage. The error occured in the CM5 parallel I/O extension only. The fix is not included in the source release, but it is avalable in the binary release for the CM5 version. Please retrieve the fix there. . SDsetcompress does not work correctly. . Hdp now works on SunOS and LINUX only. Commands dumpsds, dumpvd and dumpvg have different problems on other platforms. See mfhdf/dumper/README for more details. 6. Installing without FORTRAN support: . On UNIX systems without a FORTRAN system installed, the config/mh- will need to have the 'FC' macros defined to "NONE" for correct configuration and the target "allnofortran" should be used to build the distribution, instead of the target "all". %%%4.0alpha%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ABOUT_4.0.alpha This file was last updated: November 8, 1994 INTRODUCTION This is a preliminary document describing the differences between HDF4.0 (Alpha) and HDF3.3r3. It is written for people who already use HDF3.3r3 or earlier versions and wish to be HDF4.0 Alpha testers. Special emphasis is given to changes that might be required in existing code. The files ABOUT_3.3r3, ABOUT_3.3r2 and ABOUT_3.3r1 which were released along with previous releases contain detailed descriptions of HDF3.3. Those files can be found in this directory. First-time HDF users are encouraged to read the FAQ file in directory HDF/ for more information about HDF and where to get HDF documentation. If you have any questions or comments, please send them to: hdfhelp@ncsa.uiuc.edu. Contents 1. Changes in include file names for FORTRAN programs 2. New features supported by HDF4.0 ANSI C only n-bit SDS Reading CDF files Parallel I/O interface on CM5 Installing HDF Libraries With CM5 Parallel IO Extension 3. Changes in HDF utilities hdp -- HDF dumper ristosds hdfls hdfpack hdfunpac 4. Platforms tested 5. Limits of the current release 1. Changes in include file names for FORTRAN programs In hdf/ there are two files for FORTRAN programs to include the values and functions defined in HDF. They were originally named as constant.i and dffunct.i. The extension .i causes problems on some machines since *.i is used by cc as an "intermediate" file produced by the cpp preprocessor. In HDF 4.0 dffunct.i is changed to dffunct.inc, and constant.i is changed to hdf.inc. Users' existing FORTRAN application programs need to make the corresponding changes, if they include the .i files, in order to compile with HDF4.0. 2. New Features supported by HDF4.0 ANSI C only As previously noted in the HDF newsletters, the next major release of the HDF library will compile only with ANSI C compilers. Backward compatibility will be provided through an ANSI->K&R filter which will need to be run on each source file in order to convert the ANSI style code into K&R style code. Currently the entire HDF library has been converted to ANSI code, but the filter is not yet in place. Future alpha releases may have the code filter in place, but it will definitely be in place for the first beta release. This shift to ANSI C compliance has been accompanied by a large cleanup in the source code. An attempt has been made to remove all warnings and informational messages that the compilers on supported platforms occasionally emit, but this may not be completely clean for all user sites. n-bit SDS Support for n-bit integer data has been incorporated into this release of the HDF library. The n-bit support is currently incorporated into the call to SDsetnbitdataset, future releases may incorporate high level access through the DFSD interface also. Access to the data stored in an n-bit data item is transparent to the calling program. For example to store an unsigned 12-bit integer (which is represented unpacked in memory as an unsigned 16-bit integer), with no sign extension or bit filling and which starts at bit 14 (counting from the right with bit zero being the lowest) the following setup & call would be appropriate: intn sign_ext = FALSE; intn fill_one = FALSE; intn start_bit= 14; intn bit_len = 12; SDsetnbitdataset(sds_id,start_bit,bit_len,sign_ext,fill_one); Further reads and writes to this dataset would transparently convert the 16-bit unsigned integers from memory into 12-bit unsigned integers stored on disk. The corresponding FORTRAN function name is sfsnbit which takes the same parameters in the same order. A breakdown of the parameters to the SDsetnbitdataset call is as follows: int32 sds_id - The id of a scientific dataset returned from SDcreate or SDselect. intn start_bit - This value determines the bit position of the highest end of the n-bit data to write out. Bits in all number- types are counted from the right starting with 0. For example, in the following bit data, "01111011", bits 2 and 7 are set to 0 and all the other bits are set to one. intn bit_len - The number of bits in the n-bit data to write, including the starting bit, counting towards the right (i.e. lower bit numbers). For example, starting at bit 5 and writing 4 bits from the following bit data, "01111011", would write out the bit data, "1110", to the dataset on disk. intn sign_ext - Whether to use the top bit of the n-bit data to sign-extend to the highest bit in the memory representation of of the data. For example, if 9-bit signed integer data is being extracted from bits 17-25 (nt=DFNT_INT32, start_bit=25, bit_len=9, see below for full information about start_bit & bit_len parameters) and the bit in position 25 is a 1, then when the data is read back in from the disk, bits 26-31 will be set to a 1, otherwise bit 25 will be a zero and bits 26-31 will be set to 0. This bit-filling takes higher precendence (i.e. is performed after) the fill_one (see below) bit-filling. intn fill_one - Whether to fill the "background" bits with 1's or 0's. The "background" bits of a n-bit dataset are those bits in the in-memory representation which fall outside of the actuall n-bit field stored on disk. For example, if 5 bits of an unsigned 16-bit integer (in-memory) dataset located in bits 5-9 are written to disk with the fill_one parameter set to TRUE (or 1), then when the data is read back into memory at a future time, bits 0-4 and 10-15 would be set to 1. If the same 5-bit data was written with a fill_one value of FALSE (or 0), then bits 0-4 and 10-15 would be set to 0. This setting has a lower precedence (i.e. is performed first) than the sign_ext setting. For example, using the sign_ext example above, bits 0-16 and 26-31 will first be set to either 1 or 0 based on the fill_one parameter, and then bits 26-31 will be set to 1 or 0 based on bit-25's value. Reading CDF files With HDF 4.0 limited support for reading CDF files was added to the library. This support is still somewhat in the development stage and is therefore limited. To begin with, unlike the netCDF merger, the CDF API is not supported. Rather, the SD and netCDF APIs can be used to access information pulled out of CDF files. The type of files supported are limited to CDF 2.X files. The header information is different between CDF 1.X and 2.X files. In addition, all of the files must be stored as single-file CDFs in network encoding. If there is user demand, and support, the types of CDF files readable may be increased in the future. Parallel I/O interface on CM5 An extension using the parallel IO in CM5 is added to the SDS interface. Initial tests have resulted in about 25 MBytes/second IO throughput using the SDA (Scalable Disk Array) file system. The library provides interfaces for both C* and CMF programming languages. Read the section "Installing HDF Libraries With CM5 Parallel IO Extension" below for specific installation instructions. Users will find some examples in the directory mfhdf/CM5/Examples. Please send comments, bugs reports, etc. to acheng@ncsa.uiuc.edu. The parallel I/O interface stores scientific datasets in external files. New options have been added to hdfls and hdfpack to handle them. A new utility program, hdfunpac, is created for external files handling too. See the man pages for details. Installing HDF Libraries With CM5 Parallel IO Extension The current alpha version requires two major steps to install the HDF libraries (libdf.a and libnetcdf.a). Works are in progress to make it simpler in the production release. Bear with us for now. 1) Compile and install the ordinary HDF libraries, include files and utilities according to the instructions for a Sun Microsystem machine. 2) To make the HDF library with CM5 parallel IO extension: There are two new libraries, libdfcm5.a and libnetcdfcm5.a that are similar to libdf.a and libnetcdf.a. For libdf.a cd hdf cp MAKE.CM5 Makefile cp src/Makefile.CM5 src/Makefile make libdf # create the parallel IO libdf.a # to install it in /usr/local/lib cp src/libdf.a /usr/local/lib/libdfcm5.a ranlib /usr/local/lib/libdfcm5.a For libnetcdf.a cd mfhdf # edit CUSTOMIZE to use "gcc" as the CC compiler # and add "-DCM5" to the CFLAGS variable. ./configure (cd libsrc; make ) # compile the library # to install it in /usr/local/lib cp libsrc/libnetcdf.a /usr/local/lib/libnetcdfcm5.a ranlib /usr/local/lib/libnetcdfcm5.a 3. Changes in HDF utilities hdp -- HDF dumper A new utility hdp is under development to list contents of HDF files and to dump data of HDF objects. A prototype is included in HDF4.0 Alpha for users to play with and comment on. Development will continue based on users' feedback. More information is contained in HDF/HDF4.0.alpha/mfhdf/dumper/README. ristosds Ristosds now converts several raster images into a 3D uint8, instead of float32, SDS. hdfls New options to recognize external elements. hdfpack New options to pack external elements back into the main file. hdfunpac New utility program to unpack scientific datasets to external elements. Can be used to prepare for CM5 parallel IO access. 4. HDF 4.0 Alpha has been tested on the following machines Platform 'base library' HDF/netCDF --------------------------------------------------------------- Sun4/SunOs X X Sun4/SOLARIS X X IBM/RS6000 X X SGI/IRIX4 X X Convex/ConvexOS * X X Cray Y-MP/UNICOS X X Cray/C90 X X NeXT/NeXTSTEP X X HP/UX 9.01 X X DecStation/MIPSEL X X IBM PC - MSDOS ** *** IBM PC - Windows 3.1 ** *** IBM PC - Windows NT X X DEC Alpha/OSF X X CM5/ X X Fujitsu VP/UXPM X Intel i860 X Mac/MacOS VMS * When compiling the mfhdf section of the library on a Convex3 you will need to set the environment variable 'MACHINE' to 'c3' before running the configure script. ** There is no FORTRAN support for either PC version of HDF4.0 Alpha *** The netCDF half of the HDF/netCDF merger is not working correctly, but the multi-file SD interface is working correctly. 5. Limits of the current release Sometimes it is important for HDF users to be aware of certain limits in using HDF files and HDF libraries. This section is aimed at HDF applications programmers and reflects upperbounds as of HDF 4.0. Limits that are #define'd are fully capitalized and the file where the symbol is defined is given in parentheses at the end of the sentence. If the #define's are changed in order to meet the needs of an application, it is important to make sure that all other users, who would share the HDF library and the hdf files of the application, are aware of the changes. If a limit has no #define, the size of the maximum storage allocated for that item is given; it would, generally, require a large amount of modification of the HDF library to change. If a limit is listed as a number type (e.g. int16) then it refers to the largest number that can be represented using that type. That is: int16 -- 32,767 int32 -- 2,147,483,647. H-Level Limits -------------- MAX_FILE files open at a single time (hfile.h) MAX_ACC access records open at a single time (hfile.h) int16 total tags (fixed) int32 max length and offset of an element in an HDF file (fixed) Vgroup Limits ------------- MAX_VFILE vset files open at a single time (hdf.h) int16 elements in a Vgroup (fixed) VGNAMELENMAX max length of a Vgroup name or class (vg.h) Vdata Limits ------------ MAX_VFILE vset files open at a single time (hdf.h) VSFIELDMAX fields in a Vdata (hdf.h) FIELDNAMELENMAX characters in a single field name (hdf.h) MAX_ORDER max field order in a Vdata (hdf.h) VSNAMELENMAX max length of a Vdata name or class (hdf.h) int16 max width in bytes of a Vdata record. (fixed) Vdatas can have a maximum field width of MAX_FIELD_SIZE bytes. (hdf.h) Raster Images ------------- int32 width or height of a raster image. (fixed) SD Limits --------- MAX_VAR_DIMS dimensions per dataset (defined in netcdf.h included by mfhdf.h) int32 maximum dimension length (fixed) MAX_NC_ATTRS attributes for a given object (defined in netcdf.h included by mfhdf.h) MAX_NC_NAME maximum length of a name of a dataset (defined in netcdf.h included by mfhdf.h) Other Convensions / Issues -------------------------- Some utility programs (e.g. ncgen) expect dataset names to be composed of only alphanumeric, '-' and '_' characters. libhdf4-4.2.10/HDF_ALT/release_notes/misc_docs.txt0000644000000000000000000036636712421456623016467 0ustar This file was created for the HDF4.2r0. release to store the documents that were in the release_notes directory of the main HDF4 source tree since the 4.0.alpha release. See also HISTORY.txt file for more information. File contains the following *.txt files: Fortran_APIs.txt JPEG.txt Pablo.txt comp_SDS.txt compile.txt compression.txt dimval.txt external_path.txt hdp.txt install_winNT.txt macintosh.txt mf_anno.txt mf_ris.txt new_functions.txt page_buf.txt sd_chunk_examples.txt vattr.txt windows.txt To search for a particular document use "filename.txt=" string, for example to seach for the beginning of the new_functions.txt file, use "new_functions.txt=" string ================================Fortran_APIs.txt============================ Problem: ======== In HDF4.0r1 and previous versions of HDF several Fortran routines declared a formal parameter as character*(*) or integer while the actual parameter was a character or a numeric type. This caused problems on some systems, such as VMS and T3D. With HDF 4.0r2 and later releases, these routines have either been replaced by 2 routines, one for character type parameters and another for numeric type parameters; or, a new routine has been added for char type parameters and the old routine is used for numeric type parameters only. Those routines that were replaced by two routines should be phased out in the future. However, in order to not break currently working applications they are still supported. New applications should use the new routines. Routines and parameters affected: ================================ 1. Write vdata Old: vsfwrit(vsid, databuf, n_rec, interlace) character*(*) databuf HDF4.0r2: Write to a vdata from a character buffer: vsfwrtc(vsid, cbuf, n_rec, interlace) character*(*) cbuf Write to a vdata from an integer buffer (for numeric values): vsfwrt(vsid, buf, n_rec, interlace) integer buf 2. Read vdata Old: vsfread(vsid, buf, n_recs, interlace) character*(*) buf HDF4.0r2: Read records into a character buffer: vsfrdc(vsid, cbuf, n_recs, interlace) character*(*) cbuf Read records into an integer buffer (for numeric values): vsfrd(vsid, buf, n_recs, interlace) integer buf 3. High level function for creating a single field single component vdata Old: vhfsd(f, field, buf, n, dtype, vsname, vsclass) integer buf HDF4.0r2: Store a simple character dataset in a vdata: vhfscd(f,field,cbuf,n,dtype,vsname,vsclass) character*(*) cbuf Store a simple numeric dataset in a vdata vhfsd(f, field, buf, n, dtype, vsname, vsclass) integer buf 4. High level function for creating a single field multi- component vdata Old: vhfsdm (f,field,buf,n,dtype,vsname,vsclass,order) integer buf HDF4.0r2: Store an aggregate char dataset in a vadata: vhfscdm (f,field,cbuf,n,dtype,vsname,vsclass,order) character*(*) cbuf Store a simple numeric dataset in a vdata vhfsdm(f,field,buf,n,dtype,vsname,vsclass,order) integer buf 5. Write GR image Old: mgwrimg(riid, start,stride,count,data) data HDF4.0r2: Write character type image data mgwcimg(riid, start, stride, count, cdata) character*(*) cdata Write numeric type image data mgwrimg(riid, start,stride,count,data) data 6. Read GR image Old: mgrdimg(riid,start,stride,count,data) integer data HDF4.0r2: Read character type image data mgrcimg(riid,start,stride,count,cdata) character*(*) cdata Read numeric type image data mgrdimg(riid,start,stride,count,data) data 7. Write LUT Old: mgwrlut(lutid,ncomp,data_type,interlace,nentries,data) data HDF4.0r2: Write character type palette: mgwclut(lutid,ncomp,data_type,interlace,nentries,cdata) character*(*) cdata Write numeric type palette: mgwrlut(lutid,ncomp,data_type,interlace,nentries,data) data 8. Read LUT Old: mgrdlut(lutid, data) data HDF4.0r2: Read char type palette: mgrclut(lutid,cdata) character*(*) cdata Read numeric type palette: mgrdlut(lutid, data) data 9. Set GR attribute Old: mgsattr(riid, name, nt, count, data) character*(*) data HDF4.0r2: Add char type attribute to a raster image mgscatt(riid, name, nt, count, cdata) character*(*) cdata Add a numeric attribute to a raster image mgsnatt(riid, name, nt, count, data) integer data 10. Get GR attribute Old: mggattr(riid, index, data) data HDF4.0r2: Get a char type attribute: mggcatt(riid, index, cdata) character*(*) cdata Get a numeric type attribute: mggnatt(riid, index, data) integer data 11. Write SDS data Old: sfwdata(sdsid,start,stride,end,values) values HDF4.0r2 Write char type SDS data sfwcdata(sdsid,start,stride,end,cvalues) character*(*) cvalues Write numeric type SDS data sfwdata(sdsid,start,stride,end,values) values 12. Read SDS data Old: sfrdata(sdsid,start,stride,end,values) values HDF4.0r2 Read char type SDS data sfrcdata(sdsid,start,stride,end,cvalues) character*(*) cvalues Read numeric type SDS data sfrdata(sdsid,start,stride,end,values) values 13. Add an attribute to an object in SD interface Old: sfsattr(id, name, nt, count, data) character*(*) data HDF4.0r2 Add a char type attribute to an object sfscatt(id, name, nt, count, cdata) character*(*) cdata Add a numeric type attribute to an object sfsnatt(id, name,nt, count,data) integer data 14. Get contents of an attribute Old: sfrattr(id, index, buf) buf HDF4.0r2: Get a char type attribute sfrcatt(id, index, cbuf) character*(*) cbuf Get a numeric type attribute sfrnatt(id, index, buf) buf 15. Set fill value Old: sfsfill(id, val) val HDF4.0r2 Set a char type fill value sfscfill(id, cval) character cval Set a numeric type fill value sfsfill(id, val) val 16. Get fill value Old: sfgfill(id, val) val HDF4.0r2 Get char type fill value sfgcfill(id, cval) character cval Get numeric type fill value sfgfill(id, val) val ============================================================================ ================================JPEG.txt==================================== Independant JPEG Group library Version 4.1b of the HDF-netCDF library uses v6a of the Independent JPEG Group (IJG) JPEG file access library. For most users of the HDF library, this will be completely transparent. For users who are integrating the HDF library into an existing application which uses the IJG's JPEG library, linking with the HDF library is now much simpler and should be completely painless. The JPEG library will need to be linked with user's applications when raster images are being used (whether they are compressed with JPEG or not). cc -o myprog.c -I \ Note: order of the libraries is important, the mfhdf library must be first and be followed by the hdf library. ============================================================================ ================================Pablo.txt=================================== Pablo Instrumentation of HDF =========================== This version of the distribution has support to create an instrumented version of the HDF library(libdf-inst.a). This library along with the Pablo performance data capture libraries can be used to gather data about I/O behavior and procedure execution times. More detailed documentation on how to use the instrumented version of the HDF library with Pablo can be found in the Pablo directory '$(toplevel)/hdf/pablo'. See the provided '$(toplevel)/hdf/pablo/README.Pablo' and the Postscript file '$(toplevel)/hdf/pablo/Pablo.ps'. At this time only an instrumented version of the core HDF library libdf.a can be created. Future versions will have support for the SDxx interface found in libmfhdf.a. Current interfaces supported are ANxx, GRxx, DFSDxx, DFANxx, DFPxx, DFR8xx, DF24xx, Hxx, Vxx, and VSxx. To enable the creation of an instrumented library the following section in the makefile fragment($(toplevel)/config/mh-) must be uncommented and set. # ------------ Macros for Pablo Instrumentation -------------------- # Uncomment the following lines to create a Pablo Instrumentation # version of the HDF core library called 'libdf-inst.a' # See the documentation in the directory 'hdf/pablo' for further # information about Pablo and what platforms it is supported on # before enabling. # You need to set 'PABLO_INCLUDE' to the Pablo distribution # include directory to get the files 'IOTrace.h' and 'IOTrace_SD.h'. #PABLO_FLAGS = -DHAVE_PABLO #PABLO_INCLUDE = -I/hdf2/Pablo/Instrument.HP/include After setting these values you must re-run the top-level 'configure' script. Make sure that your start from a clean re-build(i.e. 'make clean') after re-running the toplevel 'configure' script and then run 'make'. Details on running configure can be found in the section 'General Configuration/Installation - Unix' found in the top-level installation file '$(toplevel)/INSTALL'. ============================================================================ ================================comp_SDS.txt================================ Limitations of compressed SDS datasets Due to certain limitations in the way compressed datasets are stored, data which has been compressed is not completely writable in ways that uncompressed datasets are. The "rules" for writing to a compressed dataset are as follows: (1) Write an entire dataset that is to be compressed. I.e. build the dataset entirely in memory, then write it out with a single call. (2) Append to a compressed dataset. I.e. write to a compressed dataset that has already been written out by adding to the unlimited dimension for that dataset. (3) For users of HDF 4.1, write to any subset of a compressed dataset that is also chunked. Generally speaking, these mean that it is impossible to overwrite existing compressed data which is not stored in "chunked" form. This is due to compression algorithms not being suitable for "local" modifications in a compressed datastream. Please send questions about compression to the general HDF support e-mail address: hdfhelp@ncsa.uiuc.edu Compression for HDF SDS The SDsetcompress and SDsetnbitdataset functions are used as higher-level routines to access the HCcreate function (HCcreate is described in the reference manual). SDsetnbitdataset allows for the storage of 1-32 bit integer values (instead of being restricted to 8, 16 or 32-bit sizes) in a scientific dataset. SDsetcompress can be used to compress a scientific dataset through the SD interface instead of dropping down to the lower-level H interface. N-bit SDS using SDsetnbitdataset: The interface to SDsetnbitdataset is described below: intn SDsetnbitdataset(sds_id,start_bit,bit_len,sign_ext,fill_one); int32 sds_id - The id of a scientific dataset returned from SDcreate or SDselect. intn start_bit - This value determines the bit position of the highest end of the n-bit data to write out. Bits in all number-types are counted from the right starting with 0. For example, in the following bit data, "01111011", bits 2 and 7 are set to 0 and all the other bits are set to one. intn bit_len - The number of bits in the n-bit data to write, including the starting bit, counting towards the right (i.e. lower bit numbers). For example, starting at bit 5 and writing 4 bits from the following bit data, "01111011", would write out the bit data, "1110", to the dataset on disk. intn sign_ext - Whether to use the top bit of the n-bit data to sign-extend to the highest bit in the memory representation of the data. For example, if 9-bit signed integer data is being extracted from bits 17-25 (nt=DFNT_INT32, start_bit=25, bit_len=9, see below for full information about start_bit & bit_len parameters) and the bit in position 25 is a 1, then when the data is read back in from the disk, bits 26-31 will be set to a 1, otherwise bit 25 will be a zero and bits 26-31 will be set to 0. This bit-filling takes higher precedence (i.e. is performed after) the fill_one (see below) bit-filling. intn fill_one - Whether to fill the "background" bits with 1's or 0's. The "background" bits of a n-bit dataset are those bits in the in-memory representation which fall outside of the actual n-bit field stored on disk. For example, if 5 bits of an unsigned 16-bit integer (in-memory) dataset located in bits 5-9 are written to disk with the fill_one parameter set to TRUE (or 1), then when the data is read back into memory at a future time, bits 0-4 and 10-15 would be set to 1. If the same 5-bit data was written with a fill_one value of FALSE (or 0), then bits 0-4 and 10-15 would be set to 0. This setting has a lower precedence (i.e. is performed first) than the sign_ext setting. For example, using the sign_ext example above, bits 0-16 and 26-31 will first be set to either 1 or 0 based on the fill_one parameter, and then bits 26-31 will be set to 1 or 0 based on bit-25's value. RETURNS - SUCCEED (0) or FAIL (-1) for success/failure. The corresponding FORTRAN function name is sfsnbit which takes the same parameters in the same order. For example, to store an unsigned 12-bit integer (which is represented unpacked in memory as an unsigned 16-bit integer), with no sign extension or bit filling and which starts at bit 14 (counting from the right with bit zero being the lowest) the following setup & call would be appropriate: intn sign_ext = FALSE; intn fill_one = FALSE; intn start_bit= 14; intn bit_len = 12; SDsetnbitdataset(sds_id,start_bit,bit_len,sign_ext,fill_one); Further reads and writes to this dataset would transparently convert the 16-bit unsigned integers from memory into 12-bit unsigned integers stored on disk. More details about this function can be found in the HDF library reference manual. Compressed SDS data using SDsetcompress: The SDsetcompress function call contains a subset of the parameters to the HCcreate function call described in compression.txt and performs the same types of compression. The interface to SDsetcompress is described below: intn SDsetcompress(sds_id,comp_type,c_info); int32 sds_id - The id of a scientific dataset returned from SDcreate or SDselect. int32 comp_type - The type of compression to encode the dataset with. The values are the same as for HCcreate: COMP_CODE_NONE - for no compression COMP_CODE_RLE - for RLE encoding COMP_CODE_SKPHUFF - for adaptive Huffman COMP_CODE_DEFLATE - for gzip 'deflation' comp_info *c_info - Information needed for the encoding type chosen. For COMP_CODE_NONE and COMP_CODE_RLE, this is unused and can be set to NULL. For COMP_CODE_SKPHUFF, the structure skphuff in this union needs information about the size of the data elements in bytes (see example below). For COMP_CODE_DEFLATE, the structure deflate in this union need information about "effort" to try to compress with (see example below). For more information about the types of compression see the compression.txt document in this directory. RETURNS - SUCCEED (0) or FAIL (-1) for success/failure. Similarly to the HCcreate function, SDsetcompress can be used to create compressed dataset or to compress existing ones. For example, to compress unsigned 16-bit integer data using the adaptive Huffman algorithm, the following setup and call would be used: comp_info c_info; c_info.skphuff.skp_size=sizeof(uint16); SDsetcompress(sds_id,COMP_CODE_SKPHUFF,&c_info); Further reads and writes to this dataset would transparently convert the 16-bit unsigned integers from memory into a compressed representation on disk. For example, to compress a dataset using the gzip deflation algorithm, with the maximum effort to compress the data, the following setup and call would be used: comp_info c_info; c_info.deflate.level=9; SDsetcompress(sds_id,COMP_CODE_DEFLATE,&c_info); Currently, SDsetcompress is limited to creating new datasets or appending new slices/slabs onto existing datasets. Overwriting existing data in a dataset will be supported at some point in the future. More details about this function can be found in the HDF library reference manual. ============================================================================ ================================compile.txt================================= COMPILING A PROGRAM Following are instructions for compiling an application program on the platforms supported by HDF, using the binaries that we provide. For Unix, the information on options to specify comes from the configuration files (mh-*) in the HDF source code (under ../HDF4.1r5/config). In general, you compile your program as shown below. If your platform is not specified in the section, "INSTRUCTIONS FOR SPECIFIC PLATFORMS", then use these instructions. If you are unable to compile your program on Unix, please check the configuration file for your platform for the correct options. C: cc -o .c -I\ -L -lmfhdf -ldf -ljpeg -lz or cc -o .c -I \ \ FORTRAN: f77 -o .f \ -L -lmfhdf -ldf -ljpeg -lz or f77 -o .f \ \ NOTE: The order of the libraries is important: libmfhdf.a first, followed by libdf.a, then libjpeg.a and libz.a. The libjpeg.a library is optional. INSTRUCTIONS FOR SPECIFIC PLATFORMS =================================== Cray: ---- C: cc -O -s -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f90 -O 1 -o .f \ -L -lmfhdf -ldf -ljpeg -lz Dec Alpha/Digital Unix: ---------------------- C: cc -Olimit 2048 -std1 -o .c \ -I\ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -o .f \ -L -lmfhdf -ldf -ljpeg -lz Dec Alpha/OpenVMS AXP: --------------------- To compile your programs, prog.c and prog1.for, with the HDF library, mfhdf.olb, df.olb, and libz.olb are required. The libjpeg.olb library is optional. cc/opt/nodebug/define=(HDF,VMS)/nolist/include= prog.c fort prog1.for link/nodebug/notraceback/exec=prog.exe prog.obj, prog1.obj, - mfhdf/lib - df/lib, libjpeg/lib, - libz/lib, sys$library:vaxcrtl/lib NOTE: The order of the libraries is important: mfhdf.olb first, followed by df.olb then libjpeg.olb and libz.olb. Exemplar: -------- C: cc -ext -nv -no .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: fc -sfc -72 -o .f \ -L -lmfhdf -ldf -ljpeg -lz NOTE: These instructions are for Convex/HP Exemplar machines running versions of the OS ealier than 10.x. For machines running version 10.x of HP-UX, follow the instructions for HP-UX 10.2. FreeBSD: ------- C: cc -ansi -Wall -pedantic -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -O -o .f \ -L -lmfhdf -ldf -ljpeg -lz HP-UX: ----- C: cc -Ae -s -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -s -o .f \ -L -lmfhdf -ldf -ljpeg -lz IRIX 6.x: -------- C: cc -ansi -n32 -mips3 -O -s -o .c \ -I\ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f90 -n32 -mips3 -O -s -o .f \ -L -lmfhdf -ldf -ljpeg -lz IRIX64 with 64-bit mode: ------------------------ C: cc -ansi -64 -mips4 -O -s -o .c \ -I\ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -64 -mips4 -O -s -o .f \ -L -lmfhdf -ldf -ljpeg -lz IRIX64 with n32-bit mode: ------------------------- C: cc -ansi -n32 -mips4 -O -s -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -n32 -mips4 -O -s -o .f \ -L -lmfhdf -ldf -ljpeg -lz Linux: ----- C: gcc -ansi -D_BSD_SOURCE -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: g77 -o .f \ -L -lmfhdf -ldf -ljpeg -lz Solaris: ------- The -lnsl is necessary in order to include the xdr library. C: cc -Xc -xO2 -o .c \ -I\ -L -lmfhdf -ldf -ljpeg -lz \ -L/usr/lib -lnsl FORTRAN: f77 -O -o .f \ -L -lmfhdf -ldf -ljpeg -lz \ -L/usr/lib -lnsl Solaris_x86 (C only): -------------------- The -lnsl is necessary in order to include the xdr library. gcc -ansi -O -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz \ -L/usr/lib -lnsl SP: --- C: xlc -qlanglvl=ansi -O -o .c \ -I \ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f77 -O -o .f \ -L -lmfhdf -ldf -ljpeg -lz T3E: --- C: cc -X m -s -o .c \ -I\ -L -lmfhdf -ldf -ljpeg -lz FORTRAN: f90 -X m -Wl"-Dpermok=yes" -Wl"-s" -o .f \ -L -lmfhdf -ldf -ljpeg -lz Windows NT/98/2000: ------------------ Using Microsoft Visual C++ version 6.x: Under Tools->Options, select the folder, Directories: Under "Show directories for", select "Include files". Add the following directories: C:\INCLUDE Under "Show directories for", select "Library files": Add the following directories: C:\LIB Under Project->Settings, select folder, Link: Add the following libraries to the beginning of the list of Object/Library Modules: hd415.lib hm415.lib (single-threaded release version) hd415d.lib hm415d.lib (single-threaded debug version) hd415m.lib hm415m.lib (multi-threaded release version) hd415md.lib hm415md.lib (multi-threaded debug version) ============================================================================ ================================compression.txt============================= Compression Algorithms and interface The low-level compression interface allows any data object to be compressed using a variety of algorithms. This is completely transparent to users once the data has been compressed initially - further data written to an object or read from it are compressed or decompressed internally to the library, without user intervention. (For information on compressing SDS datasets, see the ../release_notes/comp_SDS.txt file.) Currently only three compression algorithms are supported: Run-Length Encoding (RLE), adaptive Huffman, and an LZ-77 dictionary coder (the gzip 'deflation' algorithm). Plans for future algorithms include an Lempel/Ziv-78 dictionary coding, an arithmetic coder and a faster Huffman algorithm. The public interface for this routine is contained in the user-level function call, HCcreate. The interface to HCcreate is described below: int32 HCcreate(id,tag,ref,model_type,m_info,coder_type,c_info); int32 id; IN: the file id to create the data in (from Hopen) uint16 tag,ref; IN: the tag/ref pair of the data object which is to be compressed comp_model_t model_type; IN: the type of modeling to use, currently only COMP_MODEL_STDIO is supported, which indicates data is transferred in the same way as C I/O functions operate. model_info *m_info; IN: Information needed for the modeling type chosen Nothing needed for COMP_MODEL_STDIO, so NULL can be used. comp_coder_t coder_type; IN: the type of encoding to use from the following: COMP_CODE_NONE - for no compression COMP_CODE_RLE - for RLE encoding COMP_CODE_SKPHUFF - for adaptive Huffman COMP_CODE_DEFLATE - for gzip 'deflation' comp_info *c_info; IN: Information needed for the encoding type chosen For COMP_CODE_NONE and COMP_CODE_RLE, this is unused and can be set to NULL. For COMP_CODE_SKPHUFF, the structure skphuff in this union needs information about the size of the data elements in bytes (see examples below). For COMP_CODE_DEFLATE, the structure deflate in this union needs information about the "effort" to encode data with. Higher values of 'level' member indicate more compression effort. Values may range from 0 (minimal compression, fastest time) to 9 (maximum compression, slowest time). RETURNS Return an AID to the newly created compressed element, FAIL on error. HCcreate will compress an existing data object with the specified compression method, or it can create a new data object which will contain compressed data when it is written to. In either case, Hendaccess must be called to release the AID allocated by HCcreate. In the first two examples below the datasets already exist, in the final example the dataset is created by the HCcreate call. There is currently no FORTRAN equivalent for this function. More details about this function can be found in the HDF reference manual. The following example shows how to compress a scientific dataset data object (which is composed of multi-dimensional 32-bit integer data) using the adaptive Huffman encoding: { int32 aid; comp_info c_info; c_info.skphuff.skp_size=sizeof(int32); aid=HCcreate(file_id, DFTAG_SD, ref, COMP_MODEL_STDIO, NULL, COMP_CODE_SKPHUFF,&c_info); . . . . Hendaccess(aid); } The following example shows show to compress a raster image data object using the RLE algorithm: { int32 aid; aid=HCcreate(file_id, DFTAG_RI, ref, COMP_MODEL_STDIO, NULL, COMP_CODE_RLE,NULL); . . . . Hendaccess(aid); } The following example shows how to create a new data object whose data will compressed as it is written: { int32 aid; aid=HCcreate(file_id, DFTAG_RI, ref, COMP_MODEL_STDIO, NULL, COMP_CODE_RLE,NULL); . . Hwrite(aid,len,data); . . Hendaccess(aid); } ============================================================================ ================================dimval.txt================================== New Version of Dimension Values =============================== HDF4.0b1 and previous releases use a vgroup to represent a dimension. The vgroup has a single field vdata with class "DimVal0.0". The vdata has number of records, each record has a fake value from 0, 1, 2 ... , ( - 1 ). The fake values are not really required and take a lot of space. For applications that create large one dimensional array datasets the disk space taken by these fake values almost double the size of the HDF file. In order to omit the fake values, a new version of dimension vdata has been proposed. The new version uses the same structure as the old version. The only differences are that the vdata has only 1 record with value and that the vdata's class is "DimVal0.1" to distinguish it from the old version. However, existing tools and utilities which were compiled with the old version can't recognize the new dimensions of hdf files created using HDF4.0b2 or later version. This could cause problems for HDF users. To solve this problem, we are planning to implement a transitional policy: 1. Starting from HDF4.0b2 both versions of the dimension will be created by default. The old tools recognize the "DimVal0.0" dimension. 2. A new function SDsetdimval_comp (sfsdmvc) is added which can be called for a specific dimension to suppress the creation of the "DimVal0.0" vdata for that dimension. Users who store big 1D arrays should use this function to create "DimVal0.1" only. See the man page for sdsetdimval_comp.3. 3. A new function SDisdimval_bwcomp (sfisdmvc) is added which can be called to get the current compatibility mode of a dimension. See the man page for sdisdimval_bwcomp.3. 4. HDF4.0b2 and later version of HDF libraries can recognize both old and new versions of dimensions. This means old HDF files can always be read by new HDF libraries. 5. HDF4.1 will create only "DimVal0.1" by default and function SDsetdimval_comp should be called if "DimVal0.0" is also desired. The transition time period is ended. 6. Existing tools and utilities should be re-compiled with HDF4.0b2 or later releases during that transition time period. 7. A new utility will be written to remove redundant "DimVal0.0" from the files created during the transition time period. 8. A new utility will be written to convert "DimVal0.1" to "DimVal0.0" for special cases. Please send bug reports, comments and suggestions to hdfhelp@ncsa.uiuc.edu. ============================================================================ ================================external_path.txt=========================== User Settable File Location for External Elements Users sometimes encounter situations (e.g., disk space shortage, different filesystem names) that the external file containing the data of the external element has to reside in a directory different from the one it was created. The user may set up symbolic pointers to forward the file locations but this does not work if the external filename is an absolute path type containing directory components that do not exist in the local system. A new feature is added such that an application can provide a list of directories for the HDF library to search for the external file. This is set by the function call HXsetdir or via the environment variable $HDFEXTDIR. See the man page HXsetdir(3) for details. A similar feature is also added to direct the HDF library to create the external file of a _new_ external element in the given directory. An example for the need of this feature is that an application wants to create multiple external element files with certain naming conventions (e.g., Data950101, Data950102) while all these files share a common parent directory (project123/DataVault). Different users will have a different choice of the common parent directory. This can be set by the function call HXsetcreatedir or the environment variable $HDFEXTCREATEDIR. See the man page for HXsetcreatedir (1) for detail. ============================================================================ ================================hdp.txt===================================== hdp -- HDF dumper NAME hdp - HDF dumper SYNOPSIS hdp [hdp options] hdp command [command options] DESCRIPTION hdp is a command line utility designed for quick display of contents and data of HDF3.3 objects. It can list the contents of hdf files at various levels with different details. It can also dump the data of one or more specific objects in the file. HDP OPTIONS Currently, there is only one option. -H Display usage information about the specified command. If no command is specified, -H lists all available commands. HDP COMMANDS hdp currently has two types of commands: list and dump. Other types of commands such as those for editing may be added in the future. hdp list lists contents of files in hdp dumpsds displays data of NDGs and SDGs in the listed files. hdp dumpvd displays data of vdatas in the listed files. hdp dumpvg displays data of objects in vgroups in the listed files. hdp dumprig displays data of RIGs in the listed files. hdp dumpgr displays data of general RIGs in the listed files. HDP COMMAND OPTIONS (Note: options preceeded by an * have not yet been implemented.) hdp list [format options] [content ops] [filter ops] [order ops] -------------------------------------------------------------------------- Format options decide how the info of objects will be presented on the screen. -s (short format) under each tag #, all ref's of that tag are listed in one or more lines, same as the output of hdfls. (default) -l (long format) one object per line. Each line contains tag-name, tag/ref and the index of this tag in the file.(e.g., the ith NDG in the file). -d debug format, one object per line. Each line contains tag_name, tag/ref, index, offset, and length, same as the output of hdfls -d. no tagname tag ref index/tag offset length -- ------- --- --- --------- ------ ------ 1 DFTAG_NT 106 2 1 2 DFTAG_SD 701 3 1 ... Content options allow contents be displayed. -n display the name or label of the object, if there is any. -n puts you in -l format automatically. -c display the class of the object, if there is any. -l format. -a display description of the object, if there is any. -l format. Filter options select certain type of objects to display, default is all. -g display groups only. Objects which do not belong to any group will not be displayed. Nested groups will be displayed in tree format. -t display objects with specified tag number . e.g. 720 for NDG. -t display objects with specified tag name. Order options sort the output list in different orders. -ot by tag # (default) -of by the order in file DDlist. -og by group -on by name(label) hdp dumpsds [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which SDS to dump. -i dump SDS's with indices specified in ; indices correspond to the order of the SDS in the file -r dump SDS's with reference numbers specified in -n dump SDS's with names specified in -a dump all SDS's in the file. (default) Options -i, -r, and -n can be used inclusively to specify different SDS's. Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref These options are exclusive. Output options -o specify as output file name -b binary output -x ascii text output (default) Options -b and -x are exclusive, but each can be used with option -o. Format options -c print space characters as they are, not \digit -g do not print data of file (global) attributes -l do not print data of local attributes -s do not add carriage return to a long line - dump as a stream Options in this category can be used inclusively. Note: Any combination of an option from each of the categories can be used as long as the criteria of that category are met. hdp dumpvd [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which vdata to dump. -i dump vdatas with indices in ; indices correspond to the order of the vdatas in the files -r dump vdatas with reference numbers specified in -n dump vdatas with names specified in -c dump vdatas with classes specified in -a dump all vdatas in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref -f dump data of specified fields Output options -o specify fn as output file name * -b binary file -t text ascii file (default) hdp dumpvg [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which vgroups to dump. -i dump vgroups with indices specified in ; indices correspond to the order of the vgroups specified in the files -r dump vgroups with reference numbers specified in -n dump vgroups with names specified in -c dump vgroups with classes specified in -a dump all vgroups in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only Output options -o specify fn as output file name * -b binary file -t text ascii file (default) Note: Unless the "-d" option is specified, a graphical representation of the file will be given after the data has been displayed. hdp dumprig [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which RIG to dump. -i dump RIGs with indices specified in ; indices correspond to the order of the RIGs specified in the files -r dump RIGs with reference numbers specified in -a dump all RIGs in the file. (default) -m 8|24 dump the RIGs of 8-bit or 24-bit. By default all RIGs in the file will be dumped Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only Output options -o specify fn as output file name -b binary file -t text ascii file (default) hdp dumpgr [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which general RIGs to dump. -i dump general RIG's with indices specified in ; indices correspond to the order of the RIG in the file -r dump general RIG's with reference numbers specified in -n dump general RIG's with names specified in -a dump all general RIG's in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref Output options -o specify fn as output file name -b binary file -t ascii text file (default) Note: any combination of an option from each of the three categories can be used; but no more than one option from one category is allowed. ============================================================================ ================================install_winNT.txt=========================== Install HDF4.1 Release 2 on Windows NT and Windows 95, and Alpha NT. Since Windows NT, Windows '95 (Chicago) and Windows 3.1 (with the Win 32s extensions) all are designed to run the same 32-bit code, our decision is to support only 32-bit libraries and code on the MS-Windows platform. We are not planning on supporting any 16-bit versions in the foreseeable future. The instructions which follow assume that you will be using one of the 'zip' files that we provide, either the binary code release (hdf41r2.zip) or the source code release (hdf41r2s.zip). In building HDF from source code you may select between two build environment options depending on your application and environment needs. Each option has it's own zip file: Option I, (select Win32nof.zip) Test and Utility configuration : HDF library, tests, and utilities, no fortran, available for Win32 Intel platform only. Option II, (select Win32full.zip) Full configuration : HDF library, tests, and utilities, with fortran This version has been built and tested using DEC Visual Fortran on both the Win32 Intel platform and the Win32 Alpha platform. Building from Binary Code Release (hdf41r2.zip) =============================================== To install the HDF, JPEG, zlib and mfhdf libraries and utilities, it is assumed that you have done the following: 1. Create a directory structure to unpack the library. For example: c:\ (any drive) MyHDFstuff\ (any folder name) 2. Copy the binary archive (HDF41r2.zip) to that directory and unpack it by running WinZip on HDF41r2.zip (the binary archive). This should create a directory called 'HDF41r2' which contains the following files and directories. c:\MyHDFstuff\HDF41r2\lib ( Debug and Release versions of HDF libraries ) c:\MyHDFstuff\HDF41r2\include ( HDF include files ) c:\MyHDFstuff\HDF41r2\bin ( HDF utilities files ) c:\MyHDFstuff\HDF41r2\release_notes ( release notes ) c:\MyHDFstuff\HDF41r2\install_NT_95 ( this file) 3. If you are building an application that uses the HDF library the following locations will need to be specified for locating header files and linking in the HDF libraries: C:\MyHDFstuff\HDF41r2\lib C:\MyHDFstuff\HDF41r2\include Building from Source Code Release (hdf41r2s.zip) =============================================== STEP I: Preconditions To build the HDF, JPEG, zlib and mfhdf libraries and utilities, it is assumed that you have done the following: 1. Installed MicroSoft Developer Studio, and Visual C++ 5.0. Visual Fortran 5.0 is needed if you are going to build the full HDF Library with Fortran support. 2. Set up a directory structure to unpack the library. For example: c:\ (any drive) MyHDFstuff\ (any folder name) 3. Copy the source distribution archive to that directory and unpack it using the appropriate archiver options to create a directory hierarchy. Run WinZip on HDF41r2s.zip (the entire source tree). This should create a directory called 'HDF41r2' which contains several files and directories. ( Note for those using the Win32 Alpha platform: If you do not have a Winzip utility for your Alpha system you can download the needed executables from: http://www.cdrom.com/pub/infozip ) STEP II: Select Installation type and Build. You may select one of 2 ways to build the HDF library and utilities, depending on your environment and application needs. Option I, (select Win32nof.zip) Test and Utility configuration : HDF library, tests, and utilities, no fortran Option II, (select Win32full.zip) Full configuration : HDF library, tests, and utilities, with fortran STEP III: Follow Instructions for Option I, or II INSTRUCTIONS FOR OPTION I, TEST AND UTILITY INSTALLATION, NO FORTRAN (Win32 Intel platform only) *** Builds hdf library, hdf utilities, *** test programs and batch files. No fortran code. 1. You will use Win32nof.zip Unpack dev\win32nof.zip in directory dev\ Run WinZip on c:\myHDFstuff\HDF41r2\Win32nof.zip This archive contains a Developer Studio project "dev" and two batch files. 40 project files (*.dsp files) will be created when Win32nof.zip is expanded. 2. Invoke Microsoft Visial C++ 5.0, go to "File" and select "Open Workspace" option. Then open c:\myHDFstuff\HDF41r2\dev.dsw workspace. 3. Select "Build", then Select "Set Active Configuration". Select "dev -- Win32Debug" as active configuration. Select "Build" and "Build dev.exe" to build the Debug version of the HDF41r2 tree. 4. Select "Build", then Select "Set Active Configuration". Select "dev -- Win32Release" as active configuration. Select "Build" and "Build dev.exe" to build the Release version of the HDF41r2 tree. 5. In command prompt window run the test batch file win32noftst.bat in directory HDF41r2\. 6. If all tests passed, run the installation batch file win32ins.bat in directory HDF41r2\. Commands in this file will create subdirectories bin\, include\ and lib\ in HDF41r2\. The bin dirctory will contain the HDF utilities, the include directory will contain header files, and the lib directory will contain: jpeg.lib - JPEG Library jpegd.lib - JPEG Library with DEBUG option libsrc.lib - multi-file SDS Inteface routines libsrcd.lib - multi-file SDS Inteface routines with DEBUG option src.lib - multi-file Vdata Interface Vgroup Interface AN Interface GR Interface routines srcd.lib - multi-file Vdata Interface Vgroup Interface AN Interface GR Interface routines with DEBUG option xdr.lib - XDR Library xdrd.lib - XDR Library with DEBUG option zlib.lib - GNU Zip Library zlibd.lib - GNU Zip Library with DEBUG option INSTRUCTIONS FOR OPTION II, FULL INSTALLATION WITH FORTRAN *** Builds the hdf library, hdf utility programs, test programs, *** and batch files. Includes fortran source code to be *** compiled with Digital Visual Fortran on either a Win32 Intel *** machine or a Win32 Alpha machine. 1. Unpack HDF41r2\Win32full.zip in directory HDF41r2\. 2. Invoke Microsoft Visial C++ 5.0, go to "File" and select "Open Workspace" option. Then open c:\myHDFstuff\HDF41r2\dev.dsw workspace. 3. Select "Build", then Select "Set Active Configuration". Select as the active configuration "dev -- Win32Debug" if you have a Win32 Intel processor OR select "dev-Win32AlphaDbg" if you have a Win32 Alpha processor. Select "Build" and "Build dev.exe" to build the Debug version of the HDF41r2 tree. You will see that Digital Visual Fortran compiler is invoked by Visual C++ Development environment in compiling the fortran code. 4. Select "Build", then Select "Set Active Configuration". Select as the active configuration"dev -- Win32Release" if you have a Win32 Intel processor OR select "dev-Win32AlphaRel" if you have a Win32 Alpha processor. Select "Build" and "Build dev.exe" to build the Release version of the HDF41r2 tree. 5. In command prompt window run the test batch file which resides in the HDF41r2 directory. Run win32tst.bat if you have a Win32 Intel platform OR run win32ALPHAtst.bat if you have the Win32 Alpha platform. 6. If all tests passed, run the installation batch file which resides in the HDF41r2 directory Run win32ins.bat if you have a Win32 Intel platform OR run win32ALPHAins.bat if you have a Win32 Alpha platform. Commands in these files will create subdirectories bin\, include\ and lib\ in HDF41r2\. The bin dirctory will contain the HDF utilities, include directory will contain header files, and the lib directory will contain: jpeg.lib - JPEG Library jpegd.lib - JPEG Library with DEBUG option libsrc.lib - multi-file SDS Inteface routines libsrcd.lib - multi-file SDS Inteface routines with DEBUG option src.lib - multi-file Vdata Interface Vgroup Interface AN Interface GR Interface routines srcd.lib - multi-file Vdata Interface Vgroup Interface AN Interface xdrd.lib - XDR Library with DEBUG option zlib.lib - GNU Zip Library zlibd.lib - GNU Zip Library with DEBUG option STEP IV: BUILDING AN APPLICATION USING THE HDF LIBRARY - SOME HELPFUL POINTERS ===================================================================== If you are building an application that uses the HDF library the following locations will need to be specified for locating header files and linking in the HDF libraries: \lib \include where may be C:\myHDFstuff\dev or C:\MyHDFstuff\HDF41r2\ Please refer to the \release_notes\compile.txt file for more information on compiling an application with the HDF libraries. MORE HELPFUL POINTERS ===================== (as described in terms of installing the nofortran configuration) Here are some notes that may be of help if you are not familiar with using the Visual C++ Development Environment. Project name and location issues: The files in Win32nof.zip must end up in the HDF41r2\ directory installed by HDF41r2s.zip If you must install dev.dsw and dev.dsp in another directory, relative to HDF41r2\ , you will be asked to locate the above 5 sub-project files, when you open the project dev.dsw. If you want to rename dev (the entire project), you will need to modify two files dev.dsw and dev.dsp as text (contrary to the explicit warnings in the files). You can also modify dev.dsw and dev.dsp as text, to allow these 2 files to be installed in another directory. Settings... details: If you create your own project, the necessary settings can be read from the dev.dsp file(as text), or from the Project Settings in the Developer Studio project settings dialog. Project Settings C/C++ Category PreProcessor Code Generation Use run-time Library These are all set to use Single-Threaded. or Single-Threaded debug. ============================================================================ ================================macintosh.txt=============================== Fortner Software LLC ("Fortner") created the reference implementation for Macintosh of the HDF 4.1r3 library, providing C-language bindings to all 4.1r3 features. The Macintosh reference implementation of the HDF 4.1r3 library was implemented and tested on a PowerMac Model 7600/120 running MacOS 8.5.1 using Metrowerks CodeWarrior Pro1. The library has also been run on a PowerMac G3. Fortner cannot be certain that the libraries will run on other versions of Macintoshes (or clones) or MacOS versions, or when built using other development tools. (In particular, this Macintosh implementation has not addressed use with non-PowerPC versions of Macintosh [i.e., 680x0-based Macintoshes]). Migrating the Macintosh reference implementation to other development and/or run-time environments is the responsibility of the library user. First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ Please send questions, comments, and recommendations regarding the Macintosh version of the HDF library to: hdfhelp@ncsa.uiuc.edu ============================================================================ ================================mf_anno.txt================================= Annotation access through the Multi-file Annotation Interface(ANxxx) ==================================================================== These routines are for accessing file labels, file descriptions, data labels and data descriptions(i.e. all are annotations). General access requires the routines Hopen() and ANstart() to be called first and the last call to be ANend() and Hclose() which ends annotation handling on the file and closes the file. Basic annotation manipulation involes dealing with handles(ann_id's) foreach annotation and annotation interface handle(an_id). NOTES: Note that the annotation types are enumerated. TYPE here refers to file/data label/description types They are AN_FILE_LABEL, AN_FILE_DESC, AN_DATA_LABEL, AN_DATA_DESC The tag/ref refers to data tag/ref. AN_DATA_LABEL = 0, /* Data label */ AN_DATA_DESC = 1, /* Data description */ AN_FILE_LABEL = 2, /* File label */ AN_FILE_DESC = 3 /* File description */ In C-code you need to declare the annotation type using the enumerated type defintion. e.g. C-code fragment to write a File label #include "hdf.h" ... .. char fname[10] = {"ann.hdf"}; char *file_lab[1] = {"File label #1: This is a file label"}; int32 file_id; /* file id */ int32 an_id; /* annotation interface id */ int32 ann_id; /* annotation id */ ann_type myanntype; /* annotation type */ /* Start Annotation inteface and create file */ file_id = Hopen(fname, DFACC_CREATE,0); an_id = ANstart(file_id); /* Set annotation type to file label */ myanntype = AN_FILE_LABEL; /* Create id for file label */ ann_id = ANcreatef(an_id, myanntype); /* Write file label */ ANwriteann(ann_id, file_lab[0], HDstrlen(file_lab[0])); /* end access to file label */ ANendaccess(ann_id); /* end access to file and close it*/ ANend(an_id); Hclose(file_id); .... ... NOTE: You could also call ANcreatef() like this ANcreatef(an_handle, AN_FILE_LABEL); without using the intermediate variable. ROUTINES NEEDED: ================ Hopen - Opening the file, returns a file handle Hclose - Close the file. NEW ROUTINES: =============== ANstart - open file for annotation handling, returns annotation interface id ANfileinfo - get number of file/data annotations in file. Indices returned are used in ANselect() calls. ANend - end access to annotation handling on file ANcreate - create a new data annotation and return an id(ann_id) ANcreatef - create a new file annotation and return an id(ann_id) ANselect - returns an annotation id(ann_id) from index for a particular annotation TYPE. This id is then used for calls like ANwriteann(), ANreadann(), ANannlen(),..etc ANnumann: - return number of annotations that match TYPE/tag/ref ANannlist: - return list of id's(ann_id's) that match TYPE/tag/ref ANannlen: - get length of annotation given id(ann_id) ANreadann: - read annotation given id(ann_id) ANwriteann: - write annotation given id(ann_id) ANendaccess - end access to annotation using id(ann_id) Routines: ---------- C: /* ------------------------------- ANstart -------------------------------- NAME ANstart -- open file for annotation handling USAGE int32 ANstart(file_id) int32 file_id; IN: file id RETURNS An annotation interface ID or FAIL DESCRIPTION Start annotation handling on the file and return an interface id. Fortran: afstart(file_id) /*------------------------------- ANfileinfo ---------------------------- NAME ANfileinfo PURPOSE Report high-level information about the ANxxx interface for a given file. USAGE intn ANfileinfo(an_id, n_file_label, n_file_desc, n_data_label, n_data_desc) int32 an_id; IN: annotation interface ID int32 *n_file_label; OUT: the # of file labels int32 *n_file_desc; OUT: the # of file descriptions int32 *n_data_label; OUT: the # of data labels int32 *n_data_desc; OUT: the # of data descriptions RETURNS SUCCEED/FAIL DESCRIPTION Reports general information about the number of file and data annotations in the file. This routine is generally used to find the range of acceptable indices for ANselect calls. Fortran: affileinfo(an_id, num_flabel, num_fdesc, num_dlabel, num_ddesc) /* -------------------------------- ANend --------------------------------- NAME ANend -- close annotation handling on a file USAGE int32 ANend(an_id) int32 an_id; IN: annotation interface ID for the file RETURNS SUCCEED / FAIL DESCRIPTION Closes annotation handling on the gvien annotation interface id. Fortran: afend(an_id) /* ------------------------------ ANcreate ---------------------------- NAME ANcreate - create a new data annotation and return an id USAGE int32 ANcreate(an_id, tag, ref, type ) int32 an_id; IN: annotation interface ID uint16 tag; IN: tag of item to be assigned annotation uint16 ref; IN: reference number of itme to be assigned ann ann_type type: IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, RETURNS An ID to an annotation which can either be a label or description DESCRIPTION Creates a data annotation, returns an 'ann_id' to work with the new annotation which can either be a label or description. Fortran: afcreate(an_id, tag, ref, type) /* ------------------------------ ANcreatef ---------------------------- NAME ANcreatef - create a new file annotation and return an id USAGE int32 ANcreatef(an_id, type ) int32 an_id; IN: annotation interface ID ann_type type: IN: AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions. RETURNS An ID to an annotation which can either be a file label or description DESCRIPTION Creates a file annotation, returns an 'ann_id' to work with the new file annotation which can either be a label or description. Fortran: afcreatef(an_id, type) /* ------------------------------- ANselect ------------------------------- NAME ANselect -- get an annotation ID from index of 'type' USAGE int32 ANselect(an_id, index, type) int32 an_id; IN: annotation interface ID int32 index; IN: index of annottion to get ID for ann_type type: IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions. RETURNS An ID to an annotation type which can either be a label or description DESCRIPTION The position index is ZERO based Fortran: afselect(an_id, index, type) /*------------------------------- ANnumann --------------------------------- NAME ANnumann -- find number of annotation of 'type' that match the given element tag/ref USAGE intn ANnumann(an_id, type, elem_tag, elem_ref) int32 an_id; IN: annotation interface ID int type: IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions. uint16 elem_tag,: IN: tag of item of which this is annotation uint16 elem_ref; IN: ref of item of which this is annotation RETURNS number of annotation found if successful and FAIL (-1) otherwise DESCRIPTION Find number of annotation of 'type' for the given element tag/ref pair. Here an element is either a file label/desc or data label/desc. Fortran: afnumann(an_id, type, tag, ref) /*-------------------------------------------------------------------------- NAME ANannlist -- generate list of annotation ids of 'type' that match the given element tag/ref USAGE intn ANannlist(an_id, type, elm_tag, elem_ref, ann_list[]) int32 an_id; IN: annotation interface ID ann_type type: IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions. uint16 elem_tag,: IN: tag of element of which this is annotation uint16 elem_ref; IN: ref of element of which this is annotation int32 ann_list[]; OUT: array of ann_id's that match criteria. RETURNS number of annotations ids found if successful and FAIL (-1) otherwise DESCRIPTION Find and generate list of annotation ids of 'type' for the given element tag/ref pair Fortran: afannlist(an_id,type, tag, ref, alist[]) /*-------------------------------------------------------------------------- NAME ANannlen -- get length of annotation givne annotation id USAGE int32 ANannlen(ann_id) int32 ann_id; IN: annotation id RETURNS length of annotation if successful and FAIL (-1) otherwise DESCRIPTION Get the length of the annotation specified. Fortran: afannlen(ann_id) /*-------------------------------------------------------------------------- NAME ANwriteann -- write annotation given ann_id USAGE intn ANwriteann(ann_id, ann, ann_len) char *ann_id; IN: annotation id char *ann; IN: annotation to write int32 ann_len; IN: length of annotation RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Checks for pre-existence of given annotation, replacing old one if it exists. Writes out annotation. Fortran: afwriteann(ann_id, ann, annlen) /*-------------------------------------------------------------------------- NAME ANreadann -- read annotation given ann_id USAGE intn ANreadann(ann_id, ann, maxlen) int32 ann_id; IN: annotation id (handle) char *ann; OUT: space to return annotation in int32 maxlen; IN: size of space to return annotation in RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. Fortran: afreadann(ann_id, ann, maxlen) /* ----------------------------------------------------------------------- NAME ANendaccess -- end access to an annotation given it's id USAGE intn ANendaccess(ann_id) int32 an_id; IN: annotation id RETURNS SUCCEED or FAIL DESCRIPTION Terminates access to an annotation. Fortran: afendaccess(ann_id) ============================================================================ ================================mf_ris.txt================================== The multi-file RIS interface ============================= Contents: Introduction How to access files and images in the new interface "Name = value" attributes in the new interface Dealing with annotations in the new interface Work not yet completed, bugs, limitations A listing or routines Descriptions of GR routines File level interface Dataset Manipulation ID/Ref/Index Functions Interlace Request Functions LUT/Palette I/O Functions Special Element Functions Attribute Functions Introduction ============ The new Generic Raster (GR) interface provides a set of functions for manipulating raster images of all kinds. This new interface is meant to replace the older RIS8 and RIS24 interfaces, although these older interfaces will continue to be supported. Generic raster images are composed of "pixels" which can have multiple components, including but not limited to 8-bit unsigned integers. Each image can have multiple palettes associated with it and other 'attributes' in the same "name=value" style as the SD*() routines have. The new GR interface was motivated by a number of needs: o The need for multi-file, multi-object access to raster images, allowing users to keep open more than one file at a time, and to "attach" more than one raster image at a time. o A need to further integrate the netCDF data-model with the HDF data-models. o A need for a more general framework for attributes within the RIS data-model (allowing 'name = value' style metadata). o A need to be able to access subsamples and subsets of images. IMPORTANT: The added functionality represented by this new interface has necessitated a change in how raster images are physically represented on disk. As a result programs using the old single-file RIS interfaces will only be able to read the data out of files produced by the new interface. The metadata / attributes will not be accessible. The following chart represents what can be done with the various interfaces available in HDF 4.0b1: old RIS-API new GR-API old RIS CRW CRW HDF files new RIS r CRW HDF files 'R' means read, 'W' means write and 'C' means create. Entries with dashes '-' represent functionality which has not yet been implemented. 'r' stands for the ability to only read the data, not the metadata. Work not yet completed, bugs, limitations =========================================== Misc. stuff left to do: Deal with special elements for images. GRrename for images. GRsetflags to suppress writing fill data and to suppress fillvalue attr. Features not supported: Full support for multiple palettes with each RI. Support for named palettes with each RI. Support for palettes with non-standard formats. Deletion of attributes or images (would require changing the way index numbers are handled) Other limitations: Currently the following design limitations are still in place: 1 - Cannot have pixels or palette entries which contain mixed variable types, i.e. all the pixel/palette components must be of the same number type. 2 - Currently all the components must be of valid HDF number types, fractional bytes (i.e. 6-bit components) or 'plain' multiple byte values are not handled, although they can be packed into the next larger sized number type in order to hold them. How to access files and images in the new interface ====================================================== Here are the steps involved in accessing images in the new interface: 1. Open or create the file using Hopen. This provides you with a file ID to be used in step 2. 2. Activate the GR interface for the file with the file ID obtained from step 1, using GRstart. This provides you with a GR interface ID (GR ID). 3. Optionally obtain information about the raster images in the file and global GR attributes using GRfileinfo. Use the GR ID from step 2 to refer to the image file. 4. Optionally find the index of a raster image, by name using GRnametoindex, or by reference number using GRreftoindex. 5. Select for access an image with a given index, using GRselect for each image. Each call to GRselect returns a raster image ID (RI ID) for subsequent accesses involving the corresponding image. 5. Access the image by its RI ID, using routines such as GRgetiminfo (to get information about the image) and GRreadimage (to read all or part of an image). 6. Terminate access to a given image using GRendaccess. 7. Terminate access to the GR interface for the file, using GRend. 8. Close the file using Hclose. Notice that in the GR interface, images are identified in several ways. Before an image is accessible ("attached"), it is identified by index, name, and reference number. The index describes the relative position of the image in the file. The name is a character string associated with the image, and the reference number is a unique integer. An image's name is assigned by the program when it is created, and the reference number is assigned by the HDF library when it is created. After an image is attached , it is identified by an raster image identifier, or RI ID. The following code fragment illustrates the steps involved in accessing the image in a file and printing information about them. /* Open the file and initialize the GR interface */ hdf_file_id=Hopen(TESTFILE,DFACC_RDWR,0); grid=GRstart(hdf_file_id); /* Obtain information about the images in the file */ GRfileinfo(grid,&n_datasets,&n_attrs); /* Attach to each image and print information about it */ for(i=0; i) must be uncommented and set. # ------------ Macros for Shared Memory File Buffer Pool(fmpool) ------ # Uncomment the following lines to enable shared memory file buffer pool # version of the HDF core library libdf.a. Please read the # documentation before enabling this feature. #FMPOOL_FLAGS = -DHAVE_FMPOOL After setting these values you must re-run the toplevel 'configure' script. Make sure that your start from a clean re-build(i.e. 'make clean') after re-running the toplevel 'configure' script and then run 'make'. Details on running configure can be found in the section 'General Configuration/Installation - Unix' in the installation file '$(toplevel)/INSTALL'. The file caching version of libdf.a is automatically tested when the regular HDF and netCDF tests are run. The page caching version has been tested only on a few UNIX platforms and is NOT available for the Macintosh ,IBM-PC(Windows NT/95) or VMS. ****************************** Beta Version ********************************* ============================================================================ ================================sd_chunk_examples.txt======================= /************************************************************************** File: sd_chunk_examples.c Examples for writing/reading SDS with Chunking and Chunking w/ Compression. - Sample C-code using SDS chunking routines. - No real error checking is done and the value of 'status' should be checked for proper values. 5 Examples are shown, 1 for 2-D array, 3 for 3-D arrays and 1 for 2-D array with compression.. Example 1. 2-D 9x4 SDS of uint16 with 3x2 chunks Write data using SDwritechunk(). Read data using SDreaddata(). Example 2. 3-D 2x3x4 SDS of uint16 with 2x3x2 chunks Write data using SDwritedata(). Read data using SDreaddata(). Example 3. 3-D 2x3x4 SDS of uint16 with 1x1x4 chunks Write data using SDwritechunk(). Read data using SDreaddata(). Example 4. 3-D 2x3x4 SDS of uint16 with 1x1x4 chunks Write data using SDwritedata(). Read data using SDreadchunk(). Example 5. 2-D 9x4 SDS of uint16 with 3x2 chunks with GZIP compression. Write data using SDwritechunk(). Read data using SDreaddata(). Author - GeorgeV Date - 11/25/96 ********************************************************************/ #include "mfhdf.h" /* arrays holding dim info for datasets */ static int32 d_dims[3] = {2, 3, 4}; /* data dimensions */ static int32 edge_dims[3] = {0, 0, 0}; /* edge dims */ static int32 start_dims[3] = {0, 0, 0}; /* starting dims */ /* data arrays layed out in memory */ /* used in Example 1 and 5 */ static uint16 u16_2data[9][4] = { {11, 21, 31, 41}, {12, 22, 32, 42}, {13, 23, 33, 43}, {14, 24, 34, 44}, {15, 25, 35, 45}, {16, 26, 36, 46}, {17, 27, 37, 47}, {18, 28, 38, 48}, {19, 29, 39, 49}, }; /* uint16 3x2 chunk arrays used in example 1 and 5*/ static uint16 chunk1_2u16[6] = {11, 21, 12, 22, 13, 23}; static uint16 chunk2_2u16[6] = {31, 41, 32, 42, 33, 43}; static uint16 chunk3_2u16[6] = {14, 24, 15, 25, 16, 26}; static uint16 chunk4_2u16[6] = {34, 44, 35, 45, 36, 46}; static uint16 chunk5_2u16[6] = {17, 27, 18, 28, 19, 29}; static uint16 chunk6_2u16[6] = {37, 47, 38, 48, 39, 49}; /* uint16 1x1x4 chunk arrays used in example 3 */ static uint16 chunk1_3u16[4] = { 0, 1, 2, 3}; static uint16 chunk2_3u16[4] = { 10, 11, 12, 13}; static uint16 chunk3_3u16[4] = { 20, 21, 22, 23}; static uint16 chunk4_3u16[4] = { 100, 101, 102, 103}; static uint16 chunk5_3u16[4] = { 110, 111, 112, 113}; static uint16 chunk6_3u16[4] = { 120, 121, 122, 123}; /* Used in Examples 2 and 4 */ static uint16 u16_3data[2][3][4] = { { { 0, 1, 2, 3}, { 10, 11, 12, 13}, { 20, 21, 22, 23}}, { { 100, 101, 102, 103}, { 110, 111, 112, 113}, { 120, 121, 122, 123}}}; /* * Main routine */ int main(int argc, char *argv[]) { int32 f1; /* file handle */ int32 sdsid; /* SDS handle */ uint16 inbuf_3u16[2][3][4]; /* Data array read for Example 2 and 3*/ uint16 inbuf_2u16[5][2]; /* Data array read for Example 1 */ uint16 ru16_3data[4]; /* whole chunk input buffer */ uint16 fill_u16 = 0; /* fill value */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ int32 cflags; /* chunk flags */ comp_info cinfo; /* compression info */ intn status; ncopts = NC_VERBOSE; /* create file */ f1 = SDstart("chunk.hdf", DFACC_CREATE); /* Example 1. 2-D 9x4 SDS of uint16 with 3x2 chunks Write data using SDwritechunk(). Read data using SDreaddata(). */ /* create a 9x4 SDS of uint16 in file 1 */ d_dims[0] = 9; d_dims[1] = 4; sdsid = SDcreate(f1, "DataSetChunked_1", DFNT_UINT16, 2, d_dims); /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(sdsid, (VOIDP) &fill_u16); /* Create chunked SDS chunk is 3x2 which will create 6 chunks */ chunk_def.chunk_lengths[0] = 3; chunk_def.chunk_lengths[1] = 2; status = SDsetchunk(sdsid, chunk_def, HDF_CHUNK); /* Set Chunk cache to hold 3 chunks */ status = SDsetchunkcache(sdsid, 3, 0); /* Write data use SDwritechunk */ /* Write chunk 1 */ start_dims[0] = 0; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk1_2u16); /* Write chunk 4 */ start_dims[0] = 1; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk4_2u16); /* Write chunk 2 */ start_dims[0] = 0; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk2_2u16); /* Write chunk 5 */ start_dims[0] = 2; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk5_2u16); /* Write chunk 3 */ start_dims[0] = 1; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk3_2u16); /* Write chunk 6 */ start_dims[0] = 2; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk6_2u16); /* read a portion of data back in using SDreaddata i.e 5x2 subset of the whole array */ start_dims[0] = 2; start_dims[1] = 1; edge_dims[0] = 5; edge_dims[1] = 2; status = SDreaddata(sdsid, start_dims, NULL, edge_dims, (VOIDP) inbuf_2u16); /* This 5x2 array should look somethink like this {{23, 24, 25, 26, 27}, {33, 34, 35, 36, 37}} */ /* Get chunk information */ status = SDgetchunkinfo(sdsid, &rchunk_def, &cflags); /* Close down this SDS*/ status = SDendaccess(sdsid); /* Example 2. 3-D 2x3x4 SDS of uint16 with 2x3x2 chunks Write data using SDwritedata(). Read data using SDreaddata(). */ /* create a new 2x3x4 SDS of uint16 in file 1 */ d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; sdsid = SDcreate(f1, "DataSetChunked_2", DFNT_UINT16, 3, d_dims); /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(sdsid, (VOIDP) &fill_u16); /* Create chunked SDS chunk is 2x3x2 which will create 2 chunks */ chunk_def.chunk_lengths[0] = 2; chunk_def.chunk_lengths[1] = 2; chunk_def.chunk_lengths[2] = 3; status = SDsetchunk(sdsid, chunk_def, HDF_CHUNK); /* Set Chunk cache to hold 2 chunks*/ status = SDsetchunkcache(sdsid, 2, 0); /* Write data using SDwritedata*/ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDwritedata(sdsid, start_dims, NULL, edge_dims, (VOIDP) u16_3data); /* read data back in using SDreaddata*/ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(sdsid, start_dims, NULL, edge_dims, (VOIDP) inbuf_3u16); /* Verify the data in inbuf_3u16 against u16_3data[] */ /* Get chunk information */ status = SDgetchunkinfo(sdsid, &rchunk_def, &cflags); /* Close down this SDS*/ status = SDendaccess(sdsid); /* Example 3. 3-D 2x3x4 SDS of uint16 with 1x1x4 chunks Write data using SDwritechunk(). Read data using SDreaddata(). */ /* Now create a new 2x3x4 SDS of uint16 in file 'chunk.hdf' */ d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; sdsid = SDcreate(f1, "DataSetChunked_3", DFNT_UINT16, 3, d_dims); /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(sdsid, (VOIDP) &fill_u16); /* Create chunked SDS chunk is 1x1x4 which will create 6 chunks */ chunk_def.chunk_lengths[0] = 1; chunk_def.chunk_lengths[1] = 1; chunk_def.chunk_lengths[2] = 4; status = SDsetchunk(sdsid, chunk_def, HDF_CHUNK); /* Set Chunk cache to hold 4 chunks*/ status = SDsetchunkcache(sdsid, 4, 0); /* Write data use SDwritechunk */ /* Write chunk 1 */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk1_3u16); /* Write chunk 4 */ start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk4_3u16); /* Write chunk 2 */ start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk2_3u16); /* Write chunk 5 */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk5_3u16); /* Write chunk 3 */ start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk3_3u16); /* Write chunk 6 */ start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk6_3u16); /* read data back in using SDreaddata*/ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(sdsid, start_dims, NULL, edge_dims, (VOIDP) inbuf_3u16); /* Verify the data in inbuf_3u16 against u16_3data[] */ /* Close down this SDS*/ status = SDendaccess(sdsid); /* Example 4. 3-D 2x3x4 SDS of uint16 with 1x1x4 chunks Write data using SDwritedata(). Read data using SDreadchunk(). */ /* Now create a new 2x3x4 SDS of uint16 in file 'chunk.hdf' */ d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; sdsid = SDcreate(f1, "DataSetChunked_4", DFNT_UINT16, 3, d_dims); /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(sdsid, (VOIDP) &fill_u16); /* Create chunked SDS chunk is 1x1x4 which will create 6 chunks */ chunk_def.chunk_lengths[0] = 1; chunk_def.chunk_lengths[1] = 1; chunk_def.chunk_lengths[2] = 4; status = SDsetchunk(sdsid, chunk_def, HDF_CHUNK); /* Set Chunk cache to hold 4 chunks */ status = SDsetchunkcache(sdsid, 4, 0); /* Write data using SDwritedata*/ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDwritedata(sdsid, start_dims, NULL, edge_dims, (VOIDP) u16_3data); /* read data back in using SDreadchunk and verify against the chunk arrays chunk1_3u16[] ... chunk6_3u16[] */ /* read chunk 1 */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* read chunk 2 */ start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* read chunk 3 */ start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* read chunk 4 */ start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* read chunk 5 */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* read chunk 6 */ start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(sdsid, start_dims, (VOIDP) ru16_3data); /* Close down this SDS*/ status = SDendaccess(sdsid); /* Example 5. 2-D 9x4 SDS of uint16 with 3x2 chunks with GZIP compression Write data using SDwritechunk(). Read data using SDreaddata(). */ /* create a 9x4 SDS of uint16 in file 1 */ d_dims[0] = 9; d_dims[1] = 4; sdsid = SDcreate(f1, "DataSetChunked_1", DFNT_UINT16, 2, d_dims); /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(sdsid, (VOIDP) &fill_u16); /* Create chunked SDS chunk is 3x2 which will create 6 chunks Compression set will be GZIP. Note that 'chunk_def' is a union. See the man page 'sd_chunk.3' for more info on the union. */ chunk_def.comp.chunk_lengths[0] = 3; chunk_def.comp.chunk_lengths[1] = 2; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; /* GZIP */ chunk_def.comp.cinfo.deflate.level = 6; /* Level */ /* set Chunking with Compression */ status = SDsetchunk(sdsid, chunk_def, HDF_CHUNK | HDF_COMP); /* Set Chunk cache to hold 3 chunks */ status = SDsetchunkcache(sdsid, 3, 0); /* Write data use SDwritechunk NOTE: This is the recommended way when using Compression */ /* Write chunk 1 */ start_dims[0] = 0; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk1_2u16); /* Write chunk 4 */ start_dims[0] = 1; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk4_2u16); /* Write chunk 2 */ start_dims[0] = 0; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk2_2u16); /* Write chunk 5 */ start_dims[0] = 2; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk5_2u16); /* Write chunk 3 */ start_dims[0] = 1; start_dims[1] = 0; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk3_2u16); /* Write chunk 6 */ start_dims[0] = 2; start_dims[1] = 1; status = SDwritechunk(sdsid, start_dims, (VOIDP) chunk6_2u16); /* read a portion of data back in using SDreaddata i.e 5x2 subset of the whole array */ start_dims[0] = 2; start_dims[1] = 1; edge_dims[0] = 5; edge_dims[1] = 2; status = SDreaddata(sdsid, start_dims, NULL, edge_dims, (VOIDP) inbuf_2u16); /* This 5x2 array should look somethink like this {{23, 24, 25, 26, 27}, {33, 34, 35, 36, 37}} */ /* Get chunk information */ status = SDgetchunkinfo(sdsid, &rchunk_def, &cflags); /* Close down this SDS*/ status = SDendaccess(sdsid); /* Close down SDS interface */ status = SDend(f1); } ============================================================================ ================================vattr.txt=================================== Vgroup and vdata attributes 9/8/96 Vdata/vgroup version -------------------- Previously (up to HDF4.0r2), the vdata and vgroup version was 3, VSET_VERSION. With attributes added, the version number has been changed to 4, VSET_NEW_VERSION. For backward compatibility, a vdata or a vgroup will still have version number 3 if it has no attribute(s) assigned. Attribute --------- An attribute has a name, data type, a number of values and the values. All values of an attribute should be of the same data type. For example, 10 characters, or 2 32-bit integers. Any number of attributes can be assigned to a vgroup, a vdata (entire vdata) or any field of a vdata. An attribute name should be unique in its scope. For example, a field attribute name should be unique among all attributes of that field. Attributes in HDF files ----------------------- Attributes will be stored in vdatas. The vdata's name is the attribute name specified by the user. Its class is "Attr0.0", _HDF_ATTRIBUTE. All attributes of a vgroup or a vdata will be included in the vgroup represented by DFTAG_VG, or the vdata header, DFTAG_VH. Vdata/Vgroup attribute routines (see man pages for more info) ---------------------------------------------------------- intn VSfindex(int32 vsid, char *fieldname, int32 *fldindex) find out the index of a field given the field name. intn VSsetattr(int32 vsid, int32 findex, char *attrname, int32 datatype, int32 count, VOIDP values) set attr for a field of a vdata or for the vdata. if the attr already exists the new values will replace the current ones, provided the datatype and order have not been changed. intn VSnattrs(int32 vsid) total number of attr for a vdata and its fields int32 VSfnattrs(int32 vsid, int32 findex) number of attrs for a vdata or a field of it intn VSfindattr(int32 vsid, int32 findex, char *attrname) get index of an attribute with a given name intn VSattrinfo(int32 vsid, int32 findex, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size); get info about an attribute intn VSgetattr(int32 vsid, int32 findex, intn attrindex, VOIDP values) get values of an attribute intn VSisattr(int32 vsid) test if a vdata is an attribute of other object intn Vsetattr(int32 vgid, char *attrname, int32 datatype, int32 count, VOIDP values) set attr for a vgroup intn Vnattrs(int32 vgid) number of attrs for a vgroup intn Vfindattr(int32 vgid, char *attrname) get index of an attribute with a given name intn Vattrinfo(int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size) get info about an attribute intn Vgetattr(int32 vgid, intn attrindex, VOIDP values) get values of an attribute int32 Vgetversion(int32 vgid) get vset version of a vgroup ( int32 VSgetversion(int32 vsid) already exists.) Changes in the vdata header in HDF files : ------------------------------------------ 1. If attributes or other new features are assigned: o version number will be VSET_NEW_VERSION (4, defined in vg.h) o the new DFTAG_VH looks like: interlace number_records hdf_rec_size n_fields 2 bytes 4 2 2 datatype_field_n offset_field_n order_field_n fldnmlen_n 2*n_fields 2*n_fields 2*n_fields 2*n_fields fldnm_n namelen name classlen class extag exref version 2 2 2 2 2 more flags < nattrs field_index attr0_tag/ref 2 4 4 4 2/2 field_index attr1_tag/ref ...> version more extra_byte 4 2/2 If no attributes or other new features were assigned, version number is still VSET_VERSION and the old vdata header will be written out. 2. In the old implementation the 'version' and 'more' fields follow the 'exref' field. In order to not break existing applications the new implementation keeps these two fields and adds a duplication of 'version' and 'more' at the end, along with an extra byte which was not documented in the old documentation. 3. The field "flags" of uint32: bit 0 -- has attr bit 1 -- 15 -- unused. o Fields follow the 'flags' are: total_number_of_attrs this vdata has (4 bytes) vs_attr_list (#_attrs * 8 bytes (4+2+2)) (field_index, attr_vdata_tag, attr_vdata_ref) the flags and attribute fields are added after the first 'more' fields. Changes in the vgroup data in HDF files --------------------------------------- 1. If has attribute(s): o add a flag field, uint16, bit 0 -- has attr bit 1-15 -- unused. o version number will be changed to 4 o fields following the flag are: number_of_attrs vg_attr_list the above fields are added preceding the version field o vg_attr_list consists of a list of attribute_tag/ref pairs If no attribute: No changes in vgroup data and version number is still 3 ============================================================================ ================================windows.txt================================= Fortner Software LLC ("Fortner") created the reference implementation for Windows of the HDF 4.1r3 library, providing C-language bindings to all 4.1r3 features. The Windows reference implementation of the 4.1r3 library was implemented and tested on a Pentium PC running Windows95 4.00.950 using Microsoft Developers Studio 97 Visual C++ Version 5.00. The library has also been run on Pentium PC running WindowsNT version 4.0. Fortner cannot be certain that the libraries will run on other versions of Windows or when built using other development tools. (In particular, this Windows implementation has not addressed use with Windows 3.x, or non-PC versions of WindowsNT). Migrating the Windows reference implementation to other development and/or run-time environments is the responsibility of the library user. First-time HDF users are encouraged to read the FAQ in this release for more information about HDF. Users can also look at the home page for HDF at: http://hdf.ncsa.uiuc.edu/ Please send questions, comments, and recommendations regarding the Windows version of the HDF library to: hdfhelp@ncsa.uiuc.edu ============================================================================ libhdf4-4.2.10/HDF_ALT/README.txt0000644000000000000000000000553312421456623012612 0ustar HDF version 4.2.10 released on 2014-02-09 =================================================== Obtaining the latest version of HDF4 ------------------------------------ The most recent version of the distribution can be obtained from the The HDF Group's FTP site: ftp://ftp.hdfgroup.org/HDF/HDF_Current/ Source Distribution Layout -------------------------- The top level of the source code distribution contains the following subdirectories: bin -- Scripts for maintenance. config -- Configuration files to be used by configure script. hdf -- The source code for the HDF 'base library', the multi-file annotation interface, the multi-file raster image interface, HDF command line utilities, and a test suite. Please see the README in each directory for further information on each package. mfhdf -- The netCDF(mfhdf) part of the HDF/mfhdf distribution and additional HDF utilities, such as hdp, hrepack, hdfimport, etc. man -- An incomplete set of man page(s) for HDF. release_notes -- Installation instructions for UNIX and Windows. Descriptions of new features and bug fixes in this release. Files in this sub-directory can be used as supplemental documentation for HDF. These files are also available on the THG FTP server: ftp://ftp.hdfgroup.org/HDF/HDF_Current/src/unpacked/release_notes windows-- Removed 4/2013. Third Party Software Requirements --------------------------------- 1. JPEG distribution release 6b(libjpeg.a). You may download the software from http://www.hdfgroup.org/release4/obtain.html. 2. ZLIB 1.1.4(libz.a) or later distribution. You may download the software from the http://www.gzip.org/ site. System Requirements ------------------- To build the HDF library from source, you need: * C and Fortran compilers. For a list of the supported compilers, see release_notes/RELEASE.txt file. Configuring/Testing/Installing ------------------------------ See the INSTALL file for instructions on configuring, testing, and installing this software on Unix and non-UNIX systems. DOCUMENTATION/FAQ/HELP ---------------------- The HDF documentation can be found on the THG FTP server and on the THG website: http://hdfgroup.org/doc.html ftp://ftp.hdfgroup.org/HDF/Documentation The HDF home page is at: http://hdfgroup.org An FAQ is available on the FTP server and as under "Information about HDF" on the website. http://hdfgroup.org/products/hdf4/index.html If you have any questions or comments, or would like to be added to or removed from our hdfnews email list, contact information and other resource information can be found on the HDF Support page: http://hdfgroup.org/services/support.html libhdf4-4.2.10/HDF_ALT/move-if-change0000755000000000000000000000020112421456623013612 0ustar #!/bin/sh if test -r $2 then if cmp $1 $2 > /dev/null then echo $2 is unchanged rm -f $1 else mv -f $1 $2 fi else mv -f $1 $2 fi libhdf4-4.2.10/HDF_ALT/mfhdf/0000755000000000000000000000000012421456623012172 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/0000755000000000000000000000000012474643755013300 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgenyy.c0000644000000000000000000015153312474643755015130 0ustar /* A lexical scanner generated by flex*/ /* Scanner skeleton version: * $Header: /home/daffy/u0/vern/flex/RCS/flex.skl,v 2.91 96/09/10 16:58:48 vern Exp $ */ #define FLEX_SCANNER #define YY_FLEX_MAJOR_VERSION 2 #define YY_FLEX_MINOR_VERSION 5 #include /* Windows does not have unistd.h */ #ifdef H4_HAVE_UNISTD_H #include #endif /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */ #ifdef c_plusplus #ifndef __cplusplus #define __cplusplus #endif #endif #ifdef __cplusplus #include /* Use prototypes in function declarations. */ #define YY_USE_PROTOS /* The "const" storage-class-modifier is valid. */ #define YY_USE_CONST #else /* ! __cplusplus */ #if __STDC__ #define YY_USE_PROTOS #define YY_USE_CONST #endif /* __STDC__ */ #endif /* ! __cplusplus */ #ifdef __TURBOC__ #pragma warn -rch #pragma warn -use #include #include #define YY_USE_CONST #define YY_USE_PROTOS #endif #ifdef YY_USE_CONST #define yyconst const #else #define yyconst #endif #ifdef YY_USE_PROTOS #define YY_PROTO(proto) proto #else #define YY_PROTO(proto) () #endif /* Returned upon end-of-file. */ #define YY_NULL 0 /* Promotes a possibly negative, possibly signed char to an unsigned * integer for use as an array index. If the signed char is negative, * we want to instead treat it as an 8-bit unsigned char, hence the * double cast. */ #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) /* Enter a start condition. This macro really ought to take a parameter, * but we do it the disgusting crufty way forced on us by the ()-less * definition of BEGIN. */ #define BEGIN yy_start = 1 + 2 * /* Translate the current start state into a value that can be later handed * to BEGIN to return to the state. The YYSTATE alias is for lex * compatibility. */ #define YY_START ((yy_start - 1) / 2) #define YYSTATE YY_START /* Action number for EOF rule of a given start state. */ #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) /* Special action meaning "start processing a new file". */ #define YY_NEW_FILE yyrestart( yyin ) #define YY_END_OF_BUFFER_CHAR 0 /* Size of default input buffer. */ #define YY_BUF_SIZE 16384 typedef struct yy_buffer_state *YY_BUFFER_STATE; extern int yyleng; extern FILE *yyin, *yyout; #define EOB_ACT_CONTINUE_SCAN 0 #define EOB_ACT_END_OF_FILE 1 #define EOB_ACT_LAST_MATCH 2 /* The funky do-while in the following #define is used to turn the definition * int a single C statement (which needs a semi-colon terminator). This * avoids problems with code like: * * if ( condition_holds ) * yyless( 5 ); * else * do_something_else(); * * Prior to using the do-while the compiler would get upset at the * "else" because it interpreted the "if" statement as being all * done when it reached the ';' after the yyless() call. */ /* Return all but the first 'n' matched characters back to the input stream. */ #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ *yy_cp = yy_hold_char; \ YY_RESTORE_YY_MORE_OFFSET \ yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \ YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 ) #define unput(c) yyunput( c, yytext_ptr ) /* Some routines like yy_flex_realloc() are emitted as static but are not called by all lexers. This generates warnings in some compilers, notably GCC. Arrange to suppress these. */ #ifdef __GNUC__ #define YY_MAY_BE_UNUSED __attribute__((unused)) #else #define YY_MAY_BE_UNUSED #endif /* The following is because we cannot portably get our hands on size_t * (without autoconf's help, which isn't available because we want * flex-generated scanners to compile on their own). */ typedef unsigned int yy_size_t; struct yy_buffer_state { FILE *yy_input_file; char *yy_ch_buf; /* input buffer */ char *yy_buf_pos; /* current position in input buffer */ /* Size of input buffer in bytes, not including room for EOB * characters. */ yy_size_t yy_buf_size; /* Number of characters read into yy_ch_buf, not including EOB * characters. */ int yy_n_chars; /* Whether we "own" the buffer - i.e., we know we created it, * and can realloc() it to grow it, and should free() it to * delete it. */ int yy_is_our_buffer; /* Whether this is an "interactive" input source; if so, and * if we're using stdio for input, then we want to use getc() * instead of fread(), to make sure we stop fetching input after * each newline. */ int yy_is_interactive; /* Whether we're considered to be at the beginning of a line. * If so, '^' rules will be active on the next match, otherwise * not. */ int yy_at_bol; /* Whether to try to fill the input buffer when we reach the * end of it. */ int yy_fill_buffer; int yy_buffer_status; #define YY_BUFFER_NEW 0 #define YY_BUFFER_NORMAL 1 /* When an EOF's been seen but there's still some text to process * then we mark the buffer as YY_EOF_PENDING, to indicate that we * shouldn't try reading from the input source any more. We might * still have a bunch of tokens to match, though, because of * possible backing-up. * * When we actually see the EOF, we change the status to "new" * (via yyrestart()), so that the user can continue scanning by * just pointing yyin at a new input file. */ #define YY_BUFFER_EOF_PENDING 2 }; static YY_BUFFER_STATE yy_current_buffer = 0; /* We provide macros for accessing buffer states in case in the * future we want to put the buffer states in a more general * "scanner state". */ #define YY_CURRENT_BUFFER yy_current_buffer /* yy_hold_char holds the character lost when yytext is formed. */ static char yy_hold_char; static int yy_n_chars; /* number of characters read into yy_ch_buf */ int yyleng; /* Points to current character in buffer. */ static char *yy_c_buf_p = (char *) 0; static int yy_init = 1; /* whether we need to initialize */ static int yy_start = 0; /* start state number */ /* Flag which is used to allow yywrap()'s to do buffer switches * instead of setting up a fresh yyin. A bit of a hack ... */ static int yy_did_buffer_switch_on_eof; void yyrestart YY_PROTO(( FILE *input_file )); void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer )); void yy_load_buffer_state YY_PROTO(( void )); YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size )); void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b )); void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file )); void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b )); #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer ) YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size )); YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str )); YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len )); static void *yy_flex_alloc YY_PROTO(( yy_size_t )); static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t )) YY_MAY_BE_UNUSED; static void yy_flex_free YY_PROTO(( void * )); #define yy_new_buffer yy_create_buffer #define yy_set_interactive(is_interactive) \ { \ if ( ! yy_current_buffer ) \ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \ yy_current_buffer->yy_is_interactive = is_interactive; \ } #define yy_set_bol(at_bol) \ { \ if ( ! yy_current_buffer ) \ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \ yy_current_buffer->yy_at_bol = at_bol; \ } #define YY_AT_BOL() (yy_current_buffer->yy_at_bol) typedef unsigned char YY_CHAR; FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0; typedef int yy_state_type; extern char *yytext; #define yytext_ptr yytext static yy_state_type yy_get_previous_state YY_PROTO(( void )); static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state )); static int yy_get_next_buffer YY_PROTO(( void )); static void yy_fatal_error YY_PROTO(( yyconst char msg[] )); /* Done after the current pattern has been matched and before the * corresponding action - sets up yytext. */ #define YY_DO_BEFORE_ACTION \ yytext_ptr = yy_bp; \ yyleng = (int) (yy_cp - yy_bp); \ yy_hold_char = *yy_cp; \ *yy_cp = '\0'; \ yy_c_buf_p = yy_cp; #define YY_NUM_RULES 29 #define YY_END_OF_BUFFER 30 static yyconst short int yy_accept[241] = { 0, 0, 0, 30, 28, 27, 17, 28, 28, 28, 28, 18, 28, 21, 21, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 27, 0, 2, 0, 0, 0, 18, 0, 21, 0, 0, 18, 18, 0, 19, 1, 22, 22, 22, 21, 20, 0, 21, 21, 16, 16, 16, 16, 16, 16, 16, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 2, 23, 0, 0, 0, 18, 0, 0, 18, 1, 22, 18, 22, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 7, 15, 16, 16, 14, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 7, 16, 16, 16, 16, 16, 16, 26, 24, 0, 0, 18, 14, 18, 19, 18, 5, 4, 16, 16, 16, 16, 16, 16, 16, 16, 7, 16, 3, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 24, 0, 25, 0, 12, 16, 16, 16, 16, 16, 16, 16, 6, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 8, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 13, 13, 16, 16, 16, 16, 16, 16, 16, 15, 16, 16, 16, 16, 16, 16, 9, 16, 16, 16, 16, 11, 16, 10, 0 } ; static yyconst int yy_ec[256] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 5, 1, 1, 1, 6, 1, 7, 8, 9, 10, 11, 11, 11, 11, 11, 11, 11, 12, 12, 13, 1, 1, 1, 1, 1, 1, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 23, 24, 25, 26, 27, 23, 23, 28, 29, 30, 31, 32, 23, 33, 34, 23, 1, 35, 1, 1, 23, 1, 36, 37, 38, 39, 40, 41, 42, 43, 44, 23, 23, 45, 46, 47, 48, 23, 23, 49, 50, 51, 52, 53, 23, 54, 55, 23, 56, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 } ; static yyconst int yy_meta[57] = { 0, 1, 1, 2, 1, 3, 1, 4, 1, 1, 5, 5, 5, 1, 5, 5, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 5, 5, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6 } ; static yyconst short int yy_base[251] = { 0, 0, 0, 411, 465, 408, 465, 53, 374, 50, 55, 86, 399, 124, 171, 0, 373, 385, 58, 64, 54, 53, 378, 41, 386, 382, 376, 387, 344, 355, 65, 352, 347, 338, 345, 344, 340, 335, 345, 378, 79, 465, 80, 374, 76, 0, 180, 0, 110, 342, 0, 465, 139, 465, 0, 123, 194, 160, 465, 465, 0, 0, 465, 0, 347, 362, 345, 349, 342, 320, 81, 174, 235, 344, 322, 339, 327, 341, 336, 338, 349, 335, 335, 323, 299, 313, 296, 299, 292, 295, 291, 294, 289, 303, 290, 292, 287, 98, 465, 330, 113, 329, 271, 307, 203, 307, 0, 465, 212, 130, 314, 302, 315, 310, 312, 288, 0, 0, 309, 286, 303, 276, 295, 298, 0, 289, 283, 287, 286, 267, 257, 269, 264, 266, 266, 261, 258, 73, 254, 249, 253, 252, 465, 465, 217, 289, 465, 465, 0, 0, 465, 0, 0, 280, 266, 267, 244, 257, 235, 265, 237, 0, 262, 0, 248, 252, 261, 260, 225, 226, 219, 227, 251, 228, 215, 219, 228, 465, 258, 465, 257, 465, 232, 242, 218, 234, 237, 206, 230, 0, 226, 228, 192, 201, 200, 220, 197, 193, 198, 211, 0, 210, 179, 197, 173, 352, 187, 186, 164, 158, 152, 156, 172, 150, 155, 139, 0, 387, 175, 169, 128, 133, 118, 129, 111, 0, 127, 108, 82, 89, 69, 83, 0, 95, 57, 81, 69, 465, 56, 465, 465, 422, 428, 431, 436, 442, 59, 446, 449, 454, 459 } ; static yyconst short int yy_def[251] = { 0, 240, 1, 240, 240, 240, 240, 241, 242, 240, 240, 240, 240, 240, 240, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 240, 241, 240, 241, 240, 244, 11, 240, 14, 240, 240, 11, 240, 240, 240, 245, 13, 55, 56, 240, 240, 246, 14, 240, 243, 243, 243, 243, 243, 243, 243, 240, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 241, 240, 240, 240, 247, 240, 240, 240, 240, 245, 240, 57, 246, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 240, 240, 240, 248, 240, 240, 56, 56, 240, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 240, 240, 240, 240, 240, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 249, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 250, 249, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 243, 240, 243, 240, 0, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240 } ; static yyconst short int yy_nxt[522] = { 0, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 14, 4, 15, 16, 17, 18, 19, 20, 15, 15, 21, 15, 22, 15, 23, 15, 24, 25, 15, 26, 27, 15, 15, 4, 15, 28, 29, 30, 19, 31, 15, 15, 32, 33, 15, 34, 15, 35, 36, 15, 37, 38, 15, 15, 4, 41, 45, 78, 46, 47, 47, 45, 109, 46, 47, 47, 48, 239, 70, 71, 66, 48, 72, 72, 72, 79, 73, 75, 67, 49, 239, 41, 97, 68, 100, 100, 42, 172, 48, 102, 102, 102, 237, 48, 50, 50, 50, 74, 76, 86, 41, 51, 52, 53, 69, 238, 237, 87, 51, 173, 236, 88, 42, 42, 70, 70, 143, 235, 102, 102, 102, 144, 144, 51, 52, 53, 232, 234, 101, 51, 45, 42, 55, 55, 55, 233, 56, 56, 56, 56, 57, 56, 232, 104, 104, 107, 58, 105, 105, 105, 124, 59, 107, 231, 240, 60, 230, 59, 56, 56, 56, 56, 57, 56, 70, 70, 107, 58, 108, 108, 108, 229, 59, 107, 228, 240, 60, 45, 59, 61, 61, 61, 72, 72, 72, 227, 45, 48, 46, 46, 46, 226, 225, 62, 225, 224, 48, 223, 59, 222, 240, 221, 56, 56, 56, 161, 220, 59, 219, 48, 56, 105, 105, 105, 62, 218, 240, 240, 48, 59, 177, 240, 215, 161, 214, 178, 178, 148, 59, 149, 213, 212, 56, 211, 150, 210, 205, 205, 209, 200, 208, 207, 240, 72, 72, 72, 206, 205, 204, 148, 116, 149, 117, 203, 202, 150, 201, 116, 200, 199, 179, 177, 198, 197, 189, 196, 195, 194, 163, 193, 192, 181, 116, 191, 117, 190, 189, 188, 116, 102, 102, 102, 187, 186, 185, 163, 146, 184, 53, 183, 182, 181, 179, 146, 176, 175, 174, 163, 161, 171, 170, 169, 168, 167, 152, 151, 166, 165, 146, 164, 53, 163, 162, 161, 146, 105, 105, 105, 160, 159, 158, 157, 51, 156, 53, 155, 154, 153, 152, 51, 151, 147, 142, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 51, 131, 53, 130, 129, 128, 51, 216, 216, 216, 216, 216, 216, 127, 216, 216, 126, 125, 124, 216, 123, 122, 121, 120, 119, 118, 115, 114, 113, 112, 111, 110, 103, 98, 39, 96, 95, 94, 93, 92, 91, 216, 216, 216, 216, 216, 216, 216, 90, 216, 216, 89, 85, 84, 216, 83, 82, 81, 80, 77, 65, 64, 54, 44, 39, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 216, 40, 40, 40, 40, 40, 40, 43, 43, 43, 43, 43, 43, 63, 63, 99, 240, 99, 99, 99, 99, 106, 240, 106, 106, 106, 106, 145, 240, 145, 180, 240, 180, 217, 217, 217, 217, 217, 216, 216, 216, 216, 216, 3, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240 } ; static yyconst short int yy_chk[522] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 9, 23, 9, 9, 9, 10, 246, 10, 10, 10, 9, 238, 19, 19, 18, 10, 19, 19, 19, 23, 20, 21, 18, 10, 236, 40, 42, 18, 44, 44, 7, 137, 9, 70, 70, 70, 235, 10, 11, 11, 11, 20, 21, 30, 97, 11, 11, 11, 18, 234, 233, 30, 11, 137, 231, 30, 40, 42, 48, 48, 100, 230, 48, 48, 48, 100, 100, 11, 11, 11, 229, 228, 44, 11, 13, 97, 13, 13, 13, 227, 13, 13, 13, 13, 13, 13, 226, 52, 52, 55, 13, 52, 52, 52, 224, 13, 109, 223, 55, 13, 222, 109, 13, 13, 13, 13, 13, 13, 57, 57, 55, 13, 57, 57, 57, 221, 13, 109, 220, 55, 13, 14, 109, 14, 14, 14, 71, 71, 71, 219, 46, 14, 46, 46, 46, 218, 215, 14, 214, 213, 46, 212, 14, 211, 56, 210, 56, 56, 56, 209, 208, 46, 207, 14, 56, 104, 104, 104, 14, 206, 108, 108, 46, 14, 144, 56, 204, 203, 202, 144, 144, 108, 46, 108, 201, 199, 56, 198, 108, 197, 196, 195, 194, 193, 192, 191, 56, 72, 72, 72, 190, 188, 187, 108, 72, 108, 72, 186, 185, 108, 184, 72, 183, 182, 180, 178, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 72, 166, 72, 165, 164, 162, 72, 102, 102, 102, 160, 159, 158, 157, 102, 156, 102, 155, 154, 153, 145, 102, 141, 140, 139, 138, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 102, 126, 102, 125, 123, 122, 102, 105, 105, 105, 121, 120, 119, 118, 105, 115, 105, 114, 113, 112, 111, 105, 110, 103, 101, 99, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 105, 86, 105, 85, 84, 83, 105, 205, 205, 205, 205, 205, 205, 82, 205, 205, 81, 80, 79, 205, 78, 77, 76, 75, 74, 73, 69, 68, 67, 66, 65, 64, 49, 43, 39, 38, 37, 36, 35, 34, 33, 205, 217, 217, 217, 217, 217, 217, 32, 217, 217, 31, 29, 28, 217, 27, 26, 25, 24, 22, 17, 16, 12, 8, 5, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 217, 241, 241, 241, 241, 241, 241, 242, 242, 242, 242, 242, 242, 243, 243, 244, 0, 244, 244, 244, 244, 245, 0, 245, 245, 245, 245, 247, 0, 247, 248, 0, 248, 249, 249, 249, 249, 249, 250, 250, 250, 250, 250, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240 } ; static yy_state_type yy_last_accepting_state; static char *yy_last_accepting_cpos; /* The intent behind this definition is that it'll catch * any uses of REJECT which flex missed. */ #define REJECT reject_used_but_not_detected #define yymore() yymore_used_but_not_detected #define YY_MORE_ADJ 0 #define YY_RESTORE_YY_MORE_OFFSET char *yytext; #line 1 "../../../hdf4/mfhdf/ncgen/ncgen.l" #define INITIAL 0 #line 2 "../../../hdf4/mfhdf/ncgen/ncgen.l" /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: ncgen.l 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) /* lex specification for tokens for ncgen */ char errstr[100]; /* for short error messages */ extern long strtol(); void expand_escapes(); #include #include #include #include "ncgentab.h" #line 587 "lex.yy.c" /* Macros after this point can all be overridden by user definitions in * section 1. */ #ifndef YY_SKIP_YYWRAP #ifdef __cplusplus extern "C" int yywrap YY_PROTO(( void )); #else extern int yywrap YY_PROTO(( void )); #endif #endif #ifndef YY_NO_UNPUT static void yyunput YY_PROTO(( int c, char *buf_ptr )); #endif #ifndef yytext_ptr static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int )); #endif #ifdef YY_NEED_STRLEN static int yy_flex_strlen YY_PROTO(( yyconst char * )); #endif #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput YY_PROTO(( void )); #else static int input YY_PROTO(( void )); #endif #endif #if YY_STACK_USED static int yy_start_stack_ptr = 0; static int yy_start_stack_depth = 0; static int *yy_start_stack = 0; #ifndef YY_NO_PUSH_STATE static void yy_push_state YY_PROTO(( int new_state )); #endif #ifndef YY_NO_POP_STATE static void yy_pop_state YY_PROTO(( void )); #endif #ifndef YY_NO_TOP_STATE static int yy_top_state YY_PROTO(( void )); #endif #else #define YY_NO_PUSH_STATE 1 #define YY_NO_POP_STATE 1 #define YY_NO_TOP_STATE 1 #endif #ifdef YY_MALLOC_DECL YY_MALLOC_DECL #else #if __STDC__ #ifndef __cplusplus #include #endif #else /* Just try to get by without declaring the routines. This will fail * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int) * or sizeof(void*) != sizeof(int). */ #endif #endif /* Amount of stuff to slurp up with each read. */ #ifndef YY_READ_BUF_SIZE #define YY_READ_BUF_SIZE 8192 #endif /* Copy whatever the last rule matched to the standard output. */ #ifndef ECHO /* This used to be an fputs(), but since the string might contain NUL's, * we now use fwrite(). */ #define ECHO (void) fwrite( yytext, yyleng, 1, yyout ) #endif /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, * is returned in "result". */ #ifndef YY_INPUT #define YY_INPUT(buf,result,max_size) \ if ( yy_current_buffer->yy_is_interactive ) \ { \ int c = '*', n; \ for ( n = 0; n < max_size && \ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ if ( c == '\n' ) \ buf[n++] = (char) c; \ if ( c == EOF && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ result = n; \ } \ else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \ && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); #endif /* No semi-colon after return; correct usage is to write "yyterminate();" - * we don't want an extra ';' after the "return" because that will cause * some compilers to complain about unreachable statements. */ #ifndef yyterminate #define yyterminate() return YY_NULL #endif /* Number of entries by which start-condition stack grows. */ #ifndef YY_START_STACK_INCR #define YY_START_STACK_INCR 25 #endif /* Report a fatal error. */ #ifndef YY_FATAL_ERROR #define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) #endif /* Default declaration of generated scanner - a define so the user can * easily add parameters. */ #ifndef YY_DECL #define YY_DECL int yylex YY_PROTO(( void )) #endif /* Code executed at the beginning of each rule, after yytext and yyleng * have been set up. */ #ifndef YY_USER_ACTION #define YY_USER_ACTION #endif /* Code executed at the end of each rule. */ #ifndef YY_BREAK #define YY_BREAK break; #endif #define YY_RULE_SETUP \ YY_USER_ACTION YY_DECL { register yy_state_type yy_current_state; register char *yy_cp = NULL, *yy_bp = NULL; register int yy_act; #line 25 "../../../hdf4/mfhdf/ncgen/ncgen.l" #line 740 "lex.yy.c" if ( yy_init ) { yy_init = 0; #ifdef YY_USER_INIT YY_USER_INIT; #endif if ( ! yy_start ) yy_start = 1; /* first start state */ if ( ! yyin ) yyin = stdin; if ( ! yyout ) yyout = stdout; if ( ! yy_current_buffer ) yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); yy_load_buffer_state(); } while ( 1 ) /* loops until end-of-file is reached */ { yy_cp = yy_c_buf_p; /* Support of yytext. */ *yy_cp = yy_hold_char; /* yy_bp points to the position in yy_ch_buf of the start of * the current run. */ yy_bp = yy_cp; yy_current_state = yy_start; yy_match: do { register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; if ( yy_accept[yy_current_state] ) { yy_last_accepting_state = yy_current_state; yy_last_accepting_cpos = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 241 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; ++yy_cp; } while ( yy_base[yy_current_state] != 465 ); yy_find_action: yy_act = yy_accept[yy_current_state]; if ( yy_act == 0 ) { /* have to back up */ yy_cp = yy_last_accepting_cpos; yy_current_state = yy_last_accepting_state; yy_act = yy_accept[yy_current_state]; } YY_DO_BEFORE_ACTION; do_action: /* This label is used only to access EOF actions. */ switch ( yy_act ) { /* beginning of action switch */ case 0: /* must back up */ /* undo the effects of YY_DO_BEFORE_ACTION */ *yy_cp = yy_hold_char; yy_cp = yy_last_accepting_cpos; yy_current_state = yy_last_accepting_state; goto yy_find_action; case 1: YY_RULE_SETUP #line 26 "../../../hdf4/mfhdf/ncgen/ncgen.l" /* comment */ ; YY_BREAK case 2: YY_RULE_SETUP #line 28 "../../../hdf4/mfhdf/ncgen/ncgen.l" { if(yyleng > MAXTRST) { yyerror("string too long, truncated\n"); yytext[MAXTRST-1] = '\0'; } expand_escapes(termstring,yytext,yyleng); return (TERMSTRING); } YY_BREAK case 3: YY_RULE_SETUP #line 37 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (FLOAT_K);} YY_BREAK case 4: YY_RULE_SETUP #line 38 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (CHAR_K);} YY_BREAK case 5: YY_RULE_SETUP #line 39 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (BYTE_K);} YY_BREAK case 6: YY_RULE_SETUP #line 40 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (SHORT_K);} YY_BREAK case 7: YY_RULE_SETUP #line 41 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (LONG_K);} YY_BREAK case 8: YY_RULE_SETUP #line 42 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (DOUBLE_K);} YY_BREAK case 9: YY_RULE_SETUP #line 43 "../../../hdf4/mfhdf/ncgen/ncgen.l" {long_val = -1; return (NC_UNLIMITED_K);} YY_BREAK case 10: YY_RULE_SETUP #line 46 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (DIMENSIONS);} YY_BREAK case 11: YY_RULE_SETUP #line 47 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (VARIABLES);} YY_BREAK case 12: YY_RULE_SETUP #line 48 "../../../hdf4/mfhdf/ncgen/ncgen.l" {return (DATA);} YY_BREAK case 13: YY_RULE_SETUP #line 49 "../../../hdf4/mfhdf/ncgen/ncgen.l" { char *s = (char*)yytext+strlen("netcdf"); char *t = (char*)yytext+yyleng-1; while (isspace(*s)) s++; while (isspace(*t)) t--; t++; netcdfname = (char *) emalloc(t-s+1); (void) strncpy(netcdfname, s, t-s); netcdfname[t-s] = '\0'; return (NETCDF); } YY_BREAK case 14: YY_RULE_SETUP #line 63 "../../../hdf4/mfhdf/ncgen/ncgen.l" { /* double missing values */ double_val = FILL_DOUBLE; /* IEEE double infinity */ return (DOUBLE_CONST); } YY_BREAK case 15: YY_RULE_SETUP #line 68 "../../../hdf4/mfhdf/ncgen/ncgen.l" { /* float missing values */ float_val = FILL_FLOAT; /* IEEE float infinity */ return (FLOAT_CONST); } YY_BREAK case 16: YY_RULE_SETUP #line 72 "../../../hdf4/mfhdf/ncgen/ncgen.l" { if ((yylval = lookup(yytext)) == NULL) { yylval = install(yytext); } return (IDENT); } YY_BREAK case 17: YY_RULE_SETUP #line 79 "../../../hdf4/mfhdf/ncgen/ncgen.l" { lineno++ ; } YY_BREAK case 18: YY_RULE_SETUP #line 82 "../../../hdf4/mfhdf/ncgen/ncgen.l" { if (sscanf((char*)yytext, "%le", &double_val) != 1) { sprintf(errstr,"bad long or double constant: %s",(char*)yytext); yyerror(errstr); } return (DOUBLE_CONST); } YY_BREAK case 19: YY_RULE_SETUP #line 89 "../../../hdf4/mfhdf/ncgen/ncgen.l" { if (sscanf((char*)yytext, "%e", &float_val) != 1) { sprintf(errstr,"bad float constant: %s",(char*)yytext); yyerror(errstr); } return (FLOAT_CONST); } YY_BREAK case 20: YY_RULE_SETUP #line 96 "../../../hdf4/mfhdf/ncgen/ncgen.l" { if (sscanf((char*)yytext, "%hd", &short_val) != 1) { sprintf(errstr,"bad short constant: %s",(char*)yytext); yyerror(errstr); } return (SHORT_CONST); } YY_BREAK case 21: YY_RULE_SETUP #line 103 "../../../hdf4/mfhdf/ncgen/ncgen.l" { /* machines where doubles have more precision than longs. */ /* * Because strtol and sscanf with "%ld" may silently give * bad results from undetected overflow for strings like * "30000000000", we scan as double first. */ double dd; if (sscanf((char*)yytext, "%le", &dd) != 1) { sprintf(errstr,"bad long constant: %s",(char*)yytext); yyerror(errstr); } #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ || defined __aarch64__ if (dd < INT_MIN || dd > INT_MAX) #else if (dd < LONG_MIN || dd > LONG_MAX) #endif { double_val = dd; return DOUBLE_CONST; } else { long_val = dd; return LONG_CONST; } } YY_BREAK case 22: YY_RULE_SETUP #line 129 "../../../hdf4/mfhdf/ncgen/ncgen.l" { long dd; if (sscanf((char*)yytext, "%li", &dd) != 1) { sprintf(errstr,"bad long constant: %s",(char*)yytext); yyerror(errstr); } long_val = dd; return LONG_CONST; } YY_BREAK case 23: YY_RULE_SETUP #line 138 "../../../hdf4/mfhdf/ncgen/ncgen.l" { (void) sscanf((char*)&yytext[1],"%c",&byte_val); return (BYTE_CONST); } YY_BREAK case 24: YY_RULE_SETUP #line 142 "../../../hdf4/mfhdf/ncgen/ncgen.l" { byte_val = strtol((char*)&yytext[2], (char **) 0, 8); return (BYTE_CONST); } YY_BREAK case 25: YY_RULE_SETUP #line 146 "../../../hdf4/mfhdf/ncgen/ncgen.l" { byte_val = strtol((char*)&yytext[2], (char **) 0, 16); return (BYTE_CONST); } YY_BREAK case 26: YY_RULE_SETUP #line 150 "../../../hdf4/mfhdf/ncgen/ncgen.l" { switch ((char)yytext[2]) { case 'a': byte_val = '\007'; break; /* not everyone under- * stands '\a' yet */ case 'b': byte_val = '\b'; break; case 'f': byte_val = '\f'; break; case 'n': byte_val = '\n'; break; case 'r': byte_val = '\r'; break; case 't': byte_val = '\t'; break; case 'v': byte_val = '\v'; break; case '\\': byte_val = '\\'; break; case '?': byte_val = '\177'; break; case '\'': byte_val = '\''; break; default: byte_val = (char)yytext[2]; } return (BYTE_CONST); } YY_BREAK case 27: YY_RULE_SETUP #line 168 "../../../hdf4/mfhdf/ncgen/ncgen.l" {/* whitespace */ ; } YY_BREAK case 28: YY_RULE_SETUP #line 170 "../../../hdf4/mfhdf/ncgen/ncgen.l" return (yytext[0]) ; YY_BREAK case 29: YY_RULE_SETUP #line 171 "../../../hdf4/mfhdf/ncgen/ncgen.l" ECHO; YY_BREAK #line 1078 "lex.yy.c" case YY_STATE_EOF(INITIAL): yyterminate(); case YY_END_OF_BUFFER: { /* Amount of text matched not including the EOB char. */ int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1; /* Undo the effects of YY_DO_BEFORE_ACTION. */ *yy_cp = yy_hold_char; YY_RESTORE_YY_MORE_OFFSET if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW ) { /* We're scanning a new file or input source. It's * possible that this happened because the user * just pointed yyin at a new source and called * yylex(). If so, then we have to assure * consistency between yy_current_buffer and our * globals. Here is the right place to do so, because * this is the first action (other than possibly a * back-up) that will match for the new input source. */ yy_n_chars = yy_current_buffer->yy_n_chars; yy_current_buffer->yy_input_file = yyin; yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL; } /* Note that here we test for yy_c_buf_p "<=" to the position * of the first EOB in the buffer, since yy_c_buf_p will * already have been incremented past the NUL character * (since all states make transitions on EOB to the * end-of-buffer state). Contrast this with the test * in input(). */ if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] ) { /* This was really a NUL. */ yy_state_type yy_next_state; yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state(); /* Okay, we're now positioned to make the NUL * transition. We couldn't have * yy_get_previous_state() go ahead and do it * for us because it doesn't know how to deal * with the possibility of jamming (and we don't * want to build jamming into it because then it * will run more slowly). */ yy_next_state = yy_try_NUL_trans( yy_current_state ); yy_bp = yytext_ptr + YY_MORE_ADJ; if ( yy_next_state ) { /* Consume the NUL. */ yy_cp = ++yy_c_buf_p; yy_current_state = yy_next_state; goto yy_match; } else { yy_cp = yy_c_buf_p; goto yy_find_action; } } else switch ( yy_get_next_buffer() ) { case EOB_ACT_END_OF_FILE: { yy_did_buffer_switch_on_eof = 0; if ( yywrap() ) { /* Note: because we've taken care in * yy_get_next_buffer() to have set up * yytext, we can now set up * yy_c_buf_p so that if some total * hoser (like flex itself) wants to * call the scanner after we return the * YY_NULL, it'll still work - another * YY_NULL will get returned. */ yy_c_buf_p = yytext_ptr + YY_MORE_ADJ; yy_act = YY_STATE_EOF(YY_START); goto do_action; } else { if ( ! yy_did_buffer_switch_on_eof ) YY_NEW_FILE; } break; } case EOB_ACT_CONTINUE_SCAN: yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state(); yy_cp = yy_c_buf_p; yy_bp = yytext_ptr + YY_MORE_ADJ; goto yy_match; case EOB_ACT_LAST_MATCH: yy_c_buf_p = &yy_current_buffer->yy_ch_buf[yy_n_chars]; yy_current_state = yy_get_previous_state(); yy_cp = yy_c_buf_p; yy_bp = yytext_ptr + YY_MORE_ADJ; goto yy_find_action; } break; } default: YY_FATAL_ERROR( "fatal flex scanner internal error--no action found" ); } /* end of action switch */ } /* end of scanning one token */ } /* end of yylex */ /* yy_get_next_buffer - try to read in a new buffer * * Returns a code representing an action: * EOB_ACT_LAST_MATCH - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position * EOB_ACT_END_OF_FILE - end of file */ static int yy_get_next_buffer() { register char *dest = yy_current_buffer->yy_ch_buf; register char *source = yytext_ptr; register int number_to_move, i; int ret_val; if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] ) YY_FATAL_ERROR( "fatal flex scanner internal error--end of buffer missed" ); if ( yy_current_buffer->yy_fill_buffer == 0 ) { /* Don't try to fill the buffer, so this is an EOF. */ if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 ) { /* We matched a single character, the EOB, so * treat this as a final EOF. */ return EOB_ACT_END_OF_FILE; } else { /* We matched some text prior to the EOB, first * process it. */ return EOB_ACT_LAST_MATCH; } } /* Try to read more data. */ /* First move last chars to start of buffer. */ number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1; for ( i = 0; i < number_to_move; ++i ) *(dest++) = *(source++); if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING ) /* don't do the read, it's not guaranteed to return an EOF, * just force an EOF */ yy_current_buffer->yy_n_chars = yy_n_chars = 0; else { int num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1; while ( num_to_read <= 0 ) { /* Not enough room in the buffer - grow it. */ #ifdef YY_USES_REJECT YY_FATAL_ERROR( "input buffer overflow, can't enlarge buffer because scanner uses REJECT" ); #else /* just a shorter name for the current buffer */ YY_BUFFER_STATE b = yy_current_buffer; int yy_c_buf_p_offset = (int) (yy_c_buf_p - b->yy_ch_buf); if ( b->yy_is_our_buffer ) { int new_size = b->yy_buf_size * 2; if ( new_size <= 0 ) b->yy_buf_size += b->yy_buf_size / 8; else b->yy_buf_size *= 2; b->yy_ch_buf = (char *) /* Include room in for 2 EOB chars. */ yy_flex_realloc( (void *) b->yy_ch_buf, b->yy_buf_size + 2 ); } else /* Can't grow it, we don't own it. */ b->yy_ch_buf = 0; if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "fatal error - scanner input buffer overflow" ); yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset]; num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1; #endif } if ( num_to_read > YY_READ_BUF_SIZE ) num_to_read = YY_READ_BUF_SIZE; /* Read in more data. */ YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]), yy_n_chars, num_to_read ); yy_current_buffer->yy_n_chars = yy_n_chars; } if ( yy_n_chars == 0 ) { if ( number_to_move == YY_MORE_ADJ ) { ret_val = EOB_ACT_END_OF_FILE; yyrestart( yyin ); } else { ret_val = EOB_ACT_LAST_MATCH; yy_current_buffer->yy_buffer_status = YY_BUFFER_EOF_PENDING; } } else ret_val = EOB_ACT_CONTINUE_SCAN; yy_n_chars += number_to_move; yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR; yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR; yytext_ptr = &yy_current_buffer->yy_ch_buf[0]; return ret_val; } /* yy_get_previous_state - get the state just before the EOB char was reached */ static yy_state_type yy_get_previous_state() { register yy_state_type yy_current_state; register char *yy_cp; yy_current_state = yy_start; for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp ) { register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); if ( yy_accept[yy_current_state] ) { yy_last_accepting_state = yy_current_state; yy_last_accepting_cpos = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 241 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; } return yy_current_state; } /* yy_try_NUL_trans - try to make a transition on the NUL character * * synopsis * next_state = yy_try_NUL_trans( current_state ); */ #ifdef YY_USE_PROTOS static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state ) #else static yy_state_type yy_try_NUL_trans( yy_current_state ) yy_state_type yy_current_state; #endif { register int yy_is_jam; register char *yy_cp = yy_c_buf_p; register YY_CHAR yy_c = 1; if ( yy_accept[yy_current_state] ) { yy_last_accepting_state = yy_current_state; yy_last_accepting_cpos = yy_cp; } while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 241 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; yy_is_jam = (yy_current_state == 240); return yy_is_jam ? 0 : yy_current_state; } #ifndef YY_NO_UNPUT #ifdef YY_USE_PROTOS static void yyunput( int c, register char *yy_bp ) #else static void yyunput( c, yy_bp ) int c; register char *yy_bp; #endif { register char *yy_cp = yy_c_buf_p; /* undo effects of setting up yytext */ *yy_cp = yy_hold_char; if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 ) { /* need to shift things up to make room */ /* +2 for EOB chars. */ register int number_to_move = yy_n_chars + 2; register char *dest = &yy_current_buffer->yy_ch_buf[ yy_current_buffer->yy_buf_size + 2]; register char *source = &yy_current_buffer->yy_ch_buf[number_to_move]; while ( source > yy_current_buffer->yy_ch_buf ) *--dest = *--source; yy_cp += (int) (dest - source); yy_bp += (int) (dest - source); yy_current_buffer->yy_n_chars = yy_n_chars = yy_current_buffer->yy_buf_size; if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 ) YY_FATAL_ERROR( "flex scanner push-back overflow" ); } *--yy_cp = (char) c; yytext_ptr = yy_bp; yy_hold_char = *yy_cp; yy_c_buf_p = yy_cp; } #endif /* ifndef YY_NO_UNPUT */ #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput() #else static int input() #endif { int c; *yy_c_buf_p = yy_hold_char; if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR ) { /* yy_c_buf_p now points to the character we want to return. * If this occurs *before* the EOB characters, then it's a * valid NUL; if not, then we've hit the end of the buffer. */ if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] ) /* This was really a NUL. */ *yy_c_buf_p = '\0'; else { /* need more input */ int offset = yy_c_buf_p - yytext_ptr; ++yy_c_buf_p; switch ( yy_get_next_buffer() ) { case EOB_ACT_LAST_MATCH: /* This happens because yy_g_n_b() * sees that we've accumulated a * token and flags that we need to * try matching the token before * proceeding. But for input(), * there's no matching to consider. * So convert the EOB_ACT_LAST_MATCH * to EOB_ACT_END_OF_FILE. */ /* Reset buffer status. */ yyrestart( yyin ); /* fall through */ case EOB_ACT_END_OF_FILE: { if ( yywrap() ) return EOF; if ( ! yy_did_buffer_switch_on_eof ) YY_NEW_FILE; #ifdef __cplusplus return yyinput(); #else return input(); #endif } case EOB_ACT_CONTINUE_SCAN: yy_c_buf_p = yytext_ptr + offset; break; } } } c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */ *yy_c_buf_p = '\0'; /* preserve yytext */ yy_hold_char = *++yy_c_buf_p; return c; } #endif /* YY_NO_INPUT */ #ifdef YY_USE_PROTOS void yyrestart( FILE *input_file ) #else void yyrestart( input_file ) FILE *input_file; #endif { if ( ! yy_current_buffer ) yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); yy_init_buffer( yy_current_buffer, input_file ); yy_load_buffer_state(); } #ifdef YY_USE_PROTOS void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer ) #else void yy_switch_to_buffer( new_buffer ) YY_BUFFER_STATE new_buffer; #endif { if ( yy_current_buffer == new_buffer ) return; if ( yy_current_buffer ) { /* Flush out information for old buffer. */ *yy_c_buf_p = yy_hold_char; yy_current_buffer->yy_buf_pos = yy_c_buf_p; yy_current_buffer->yy_n_chars = yy_n_chars; } yy_current_buffer = new_buffer; yy_load_buffer_state(); /* We don't actually know whether we did this switch during * EOF (yywrap()) processing, but the only time this flag * is looked at is after yywrap() is called, so it's safe * to go ahead and always set it. */ yy_did_buffer_switch_on_eof = 1; } #ifdef YY_USE_PROTOS void yy_load_buffer_state( void ) #else void yy_load_buffer_state() #endif { yy_n_chars = yy_current_buffer->yy_n_chars; yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos; yyin = yy_current_buffer->yy_input_file; yy_hold_char = *yy_c_buf_p; } #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_create_buffer( FILE *file, int size ) #else YY_BUFFER_STATE yy_create_buffer( file, size ) FILE *file; int size; #endif { YY_BUFFER_STATE b; b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_buf_size = size; /* yy_ch_buf has to be 2 characters longer than the size given because * we need to put in 2 end-of-buffer characters. */ b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 ); if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_is_our_buffer = 1; yy_init_buffer( b, file ); return b; } #ifdef YY_USE_PROTOS void yy_delete_buffer( YY_BUFFER_STATE b ) #else void yy_delete_buffer( b ) YY_BUFFER_STATE b; #endif { if ( ! b ) return; if ( b == yy_current_buffer ) yy_current_buffer = (YY_BUFFER_STATE) 0; if ( b->yy_is_our_buffer ) yy_flex_free( (void *) b->yy_ch_buf ); yy_flex_free( (void *) b ); } #ifdef YY_USE_PROTOS void yy_init_buffer( YY_BUFFER_STATE b, FILE *file ) #else void yy_init_buffer( b, file ) YY_BUFFER_STATE b; FILE *file; #endif { yy_flush_buffer( b ); b->yy_input_file = file; b->yy_fill_buffer = 1; #if YY_ALWAYS_INTERACTIVE b->yy_is_interactive = 1; #else #if YY_NEVER_INTERACTIVE b->yy_is_interactive = 0; #else b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; #endif #endif } #ifdef YY_USE_PROTOS void yy_flush_buffer( YY_BUFFER_STATE b ) #else void yy_flush_buffer( b ) YY_BUFFER_STATE b; #endif { if ( ! b ) return; b->yy_n_chars = 0; /* We always need two end-of-buffer characters. The first causes * a transition to the end-of-buffer state. The second causes * a jam in that state. */ b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; b->yy_buf_pos = &b->yy_ch_buf[0]; b->yy_at_bol = 1; b->yy_buffer_status = YY_BUFFER_NEW; if ( b == yy_current_buffer ) yy_load_buffer_state(); } #ifndef YY_NO_SCAN_BUFFER #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size ) #else YY_BUFFER_STATE yy_scan_buffer( base, size ) char *base; yy_size_t size; #endif { YY_BUFFER_STATE b; if ( size < 2 || base[size-2] != YY_END_OF_BUFFER_CHAR || base[size-1] != YY_END_OF_BUFFER_CHAR ) /* They forgot to leave room for the EOB's. */ return 0; b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ b->yy_buf_pos = b->yy_ch_buf = base; b->yy_is_our_buffer = 0; b->yy_input_file = 0; b->yy_n_chars = b->yy_buf_size; b->yy_is_interactive = 0; b->yy_at_bol = 1; b->yy_fill_buffer = 0; b->yy_buffer_status = YY_BUFFER_NEW; yy_switch_to_buffer( b ); return b; } #endif #ifndef YY_NO_SCAN_STRING #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str ) #else YY_BUFFER_STATE yy_scan_string( yy_str ) yyconst char *yy_str; #endif { int len; for ( len = 0; yy_str[len]; ++len ) ; return yy_scan_bytes( yy_str, len ); } #endif #ifndef YY_NO_SCAN_BYTES #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len ) #else YY_BUFFER_STATE yy_scan_bytes( bytes, len ) yyconst char *bytes; int len; #endif { YY_BUFFER_STATE b; char *buf; yy_size_t n; int i; /* Get memory for full buffer, including space for trailing EOB's. */ n = len + 2; buf = (char *) yy_flex_alloc( n ); if ( ! buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); for ( i = 0; i < len; ++i ) buf[i] = bytes[i]; buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR; b = yy_scan_buffer( buf, n ); if ( ! b ) YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); /* It's okay to grow etc. this buffer, and we should throw it * away when we're done. */ b->yy_is_our_buffer = 1; return b; } #endif #ifndef YY_NO_PUSH_STATE #ifdef YY_USE_PROTOS static void yy_push_state( int new_state ) #else static void yy_push_state( new_state ) int new_state; #endif { if ( yy_start_stack_ptr >= yy_start_stack_depth ) { yy_size_t new_size; yy_start_stack_depth += YY_START_STACK_INCR; new_size = yy_start_stack_depth * sizeof( int ); if ( ! yy_start_stack ) yy_start_stack = (int *) yy_flex_alloc( new_size ); else yy_start_stack = (int *) yy_flex_realloc( (void *) yy_start_stack, new_size ); if ( ! yy_start_stack ) YY_FATAL_ERROR( "out of memory expanding start-condition stack" ); } yy_start_stack[yy_start_stack_ptr++] = YY_START; BEGIN(new_state); } #endif #ifndef YY_NO_POP_STATE static void yy_pop_state() { if ( --yy_start_stack_ptr < 0 ) YY_FATAL_ERROR( "start-condition stack underflow" ); BEGIN(yy_start_stack[yy_start_stack_ptr]); } #endif #ifndef YY_NO_TOP_STATE static int yy_top_state() { return yy_start_stack[yy_start_stack_ptr - 1]; } #endif #ifndef YY_EXIT_FAILURE #define YY_EXIT_FAILURE 2 #endif #ifdef YY_USE_PROTOS static void yy_fatal_error( yyconst char msg[] ) #else static void yy_fatal_error( msg ) char msg[]; #endif { (void) fprintf( stderr, "%s\n", msg ); exit( YY_EXIT_FAILURE ); } /* Redefine yyless() so it works in section 3 code. */ #undef yyless #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ yytext[yyleng] = yy_hold_char; \ yy_c_buf_p = yytext + n; \ yy_hold_char = *yy_c_buf_p; \ *yy_c_buf_p = '\0'; \ yyleng = n; \ } \ while ( 0 ) /* Internal utility routines. */ #ifndef yytext_ptr #ifdef YY_USE_PROTOS static void yy_flex_strncpy( char *s1, yyconst char *s2, int n ) #else static void yy_flex_strncpy( s1, s2, n ) char *s1; yyconst char *s2; int n; #endif { register int i; for ( i = 0; i < n; ++i ) s1[i] = s2[i]; } #endif #ifdef YY_NEED_STRLEN #ifdef YY_USE_PROTOS static int yy_flex_strlen( yyconst char *s ) #else static int yy_flex_strlen( s ) yyconst char *s; #endif { register int n; for ( n = 0; s[n]; ++n ) ; return n; } #endif #ifdef YY_USE_PROTOS static void *yy_flex_alloc( yy_size_t size ) #else static void *yy_flex_alloc( size ) yy_size_t size; #endif { return (void *) malloc( size ); } #ifdef YY_USE_PROTOS static void *yy_flex_realloc( void *ptr, yy_size_t size ) #else static void *yy_flex_realloc( ptr, size ) void *ptr; yy_size_t size; #endif { /* The cast to (char *) in the following accommodates both * implementations that use char* generic pointers, and those * that use void* generic pointers. It works with the latter * because both ANSI C and C++ allow castless assignment from * any pointer type to void*, and deal with argument conversions * as though doing an assignment. */ return (void *) realloc( (char *) ptr, size ); } #ifdef YY_USE_PROTOS static void yy_flex_free( void *ptr ) #else static void yy_flex_free( ptr ) void *ptr; #endif { free( ptr ); } #if YY_MAIN int main() { yylex(); return 0; } #endif #line 171 "../../../hdf4/mfhdf/ncgen/ncgen.l" libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgen.l0000644000000000000000000001145112474643755014551 0ustar %{ /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: ncgen.l 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) /* lex specification for tokens for ncgen */ char errstr[100]; /* for short error messages */ extern long strtol(); void expand_escapes(); #include #include #include #include "ncgentab.h" %} escquote \\\" nonquotes ([^"]|{escquote})* exp ([eE][+-]?[0-9]+) %% \/\/.* /* comment */ ; \"{nonquotes}\" { if(yyleng > MAXTRST) { yyerror("string too long, truncated\n"); yytext[MAXTRST-1] = '\0'; } expand_escapes(termstring,yytext,yyleng); return (TERMSTRING); } float|FLOAT|real|REAL {return (FLOAT_K);} char|CHAR {return (CHAR_K);} byte|BYTE {return (BYTE_K);} short|SHORT {return (SHORT_K);} long|LONG|int|INT|integer|INTEGER {return (LONG_K);} double|DOUBLE {return (DOUBLE_K);} unlimited|UNLIMITED {long_val = -1; return (NC_UNLIMITED_K);} dimensions:|DIMENSIONS: {return (DIMENSIONS);} variables:|VARIABLES: {return (VARIABLES);} data:|DATA: {return (DATA);} (netcdf|NETCDF|netCDF)[^\{]+ { char *s = (char*)yytext+strlen("netcdf"); char *t = (char*)yytext+yyleng-1; while (isspace(*s)) s++; while (isspace(*t)) t--; t++; netcdfname = (char *) emalloc(t-s+1); (void) strncpy(netcdfname, s, t-s); netcdfname[t-s] = '\0'; return (NETCDF); } DoubleInf|-?NaN { /* double missing values */ double_val = FILL_DOUBLE; /* IEEE double infinity */ return (DOUBLE_CONST); } FloatInf|Infinity|Inf { /* float missing values */ float_val = FILL_FLOAT; /* IEEE float infinity */ return (FLOAT_CONST); } [A-Za-z_][A-Za-z_0-9-]* { if ((yylval = lookup(yytext)) == NULL) { yylval = install(yytext); } return (IDENT); } \n { lineno++ ; } [+-]?[0-9]*\.[0-9]*{exp}?[LlDd]?|[+-]?[0-9]*{exp}[LlDd]? { if (sscanf((char*)yytext, "%le", &double_val) != 1) { sprintf(errstr,"bad long or double constant: %s",(char*)yytext); yyerror(errstr); } return (DOUBLE_CONST); } [+-]?[0-9]*\.[0-9]*{exp}?[Ff]|[+-]?[0-9]*{exp}[Ff] { if (sscanf((char*)yytext, "%e", &float_val) != 1) { sprintf(errstr,"bad float constant: %s",(char*)yytext); yyerror(errstr); } return (FLOAT_CONST); } [+-]?[0-9]+[sS]|0[xX][0-9a-fA-F]+[sS] { if (sscanf((char*)yytext, "%hd", &short_val) != 1) { sprintf(errstr,"bad short constant: %s",(char*)yytext); yyerror(errstr); } return (SHORT_CONST); } [+-]?[1-9][0-9]*[lL]?|0[lL]? { /* machines where doubles have more precision than longs. */ /* * Because strtol and sscanf with "%ld" may silently give * bad results from undetected overflow for strings like * "30000000000", we scan as double first. */ double dd; if (sscanf((char*)yytext, "%le", &dd) != 1) { sprintf(errstr,"bad long constant: %s",(char*)yytext); yyerror(errstr); } #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || __powerpc64__ || defined __s390x__ || defined __aarch64__ if (dd < INT_MIN || dd > INT_MAX) #else if (dd < LONG_MIN || dd > LONG_MAX) #endif { double_val = dd; return DOUBLE_CONST; } else { long_val = dd; return LONG_CONST; } } 0[xX]?[0-9a-fA-F]+[lL]? { long dd; if (sscanf((char*)yytext, "%li", &dd) != 1) { sprintf(errstr,"bad long constant: %s",(char*)yytext); yyerror(errstr); } long_val = dd; return LONG_CONST; } \'[^\\]\' { (void) sscanf((char*)&yytext[1],"%c",&byte_val); return (BYTE_CONST); } \'\\[0-7][0-7]?[0-7]?\' { byte_val = strtol((char*)&yytext[2], (char **) 0, 8); return (BYTE_CONST); } \'\\x[0-9a-fA-F][0-9a-fA-F]?\' { byte_val = strtol((char*)&yytext[2], (char **) 0, 16); return (BYTE_CONST); } \'\\.\' { switch ((char)yytext[2]) { case 'a': byte_val = '\007'; break; /* not everyone under- * stands '\a' yet */ case 'b': byte_val = '\b'; break; case 'f': byte_val = '\f'; break; case 'n': byte_val = '\n'; break; case 'r': byte_val = '\r'; break; case 't': byte_val = '\t'; break; case 'v': byte_val = '\v'; break; case '\\': byte_val = '\\'; break; case '?': byte_val = '\177'; break; case '\'': byte_val = '\''; break; default: byte_val = (char)yytext[2]; } return (BYTE_CONST); } [ \t\f]+ {/* whitespace */ ; } . return (yytext[0]) ; libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/genlib.h0000644000000000000000000000434412421456623014702 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: genlib.h 3226 1997-11-05 19:41:13Z koziol $ *********************************************************************/ extern char *progname; /* for error messages */ extern char *cdlname; /* for error messages */ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif #ifndef MIPSEL /* punt */ #ifndef NO_STDARG extern void derror(const char *fmt, ...); #else extern void derror(); #endif #endif /* extern void derror PROTO(( char *fmt, ... )); */ extern void *emalloc PROTO(( int size )); extern void *erealloc PROTO(( void *ptr, int size )); extern void usage PROTO(( void )); extern void yyerror PROTO(( char * )); extern int yyparse PROTO(( void )); extern void put_variable PROTO(( void * )); #ifdef OLD_WAY extern int getopt PROTO(( int argc, char **argv, char *opts )) #endif /* generate.c */ void cline(const char *stmnt); void fline(const char *stmnt); const char *nctype(nc_type); const char *ncctype(nc_type); char *cstrstr(char *, long); char *fstrstr(char *, long); char *fstring(nc_type, void *, int); void define_netcdf(char *netcdfname); /* load.c */ void load_netcdf(void *rec_start); /* getfill.c */ void nc_fill(nc_type , long , void *, union generic ); void nc_getfill(nc_type , union generic *); void nc_putfill(nc_type , void *, union generic *); /* init.c */ void init_netcdf(void); /* close.c */ void close_netcdf(void); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/escapes.c0000644000000000000000000000374712421456623015066 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: escapes.c 3226 1997-11-05 19:41:13Z koziol $ *********************************************************************/ #include /* * "Expands" valid escape sequences in yystring (read by lex) into the * apropriate characters in termstring. For example, the two character * sequence "\t" in yystring would be converted into a single tab character * in termstring. On return, termstring is properly terminated. */ void expand_escapes(termstring, yytext, yyleng) char *termstring; /* returned, with escapes expanded */ char *yytext; int yyleng; { char *s, *t, *endp; yytext[yyleng-1]='\0'; /* don't copy quotes */ /* expand "\" escapes, e.g. "\t" to tab character */ s = termstring; t = yytext+1; while(*t) { if (*t == '\\') { t++; switch (*t) { case 'a': *s++ = '\007'; t++; /* will use '\a' when STDC */ break; case 'b': *s++ = '\b'; t++; break; case 'f': *s++ = '\f'; t++; break; case 'n': *s++ = '\n'; t++; break; case 'r': *s++ = '\r'; t++; break; case 't': *s++ = '\t'; t++; break; case 'v': *s++ = '\v'; t++; break; case '\\': *s++ = '\\'; t++; break; case '?': *s++ = '\177'; t++; break; case '\'': *s++ = '\''; t++; break; case '\"': *s++ = '\"'; t++; break; case 'x': t++; /* now t points to one or more hex digits */ *s++ = (char) strtol(t, &endp, 16); t = endp; break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': /* t now points to octal digits */ *s++ = (char) strtol(t, &endp, 8); t = endp; break; default: *s++ = *t++; break; } } else { *s++ = *t++; } } *s = '\0'; return; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/CMakeLists.txt0000644000000000000000000000446612421456623016036 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_NCGEN) INCLUDE_DIRECTORIES ( ${HDF4_HDFSOURCE_DIR} ${HDF4_MFHDFSOURCE_DIR} ${HDF4_MFHDF_NCGEN_SOURCE_DIR} ${CMAKE_CURRENT_BINARY_DIR} ${CMAKE_CURRENT_SOURCE_DIR} ) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS(-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (ncgen_SRCS ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/close.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/escapes.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/generate.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/genlib.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/getfill.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/init.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/load.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/main.c ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/ncgentab.c ) IF (WIN32 AND NOT CYGWIN) SET (ncgen_SRCS ${ncgen_SRCS} ${HDF4_SOURCE_DIR}/mfhdf/util/getopt.c) ENDIF (WIN32 AND NOT CYGWIN) ADD_EXECUTABLE (ncgen ${ncgen_SRCS}) TARGET_C_PROPERTIES (ncgen " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ncgen ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET} ) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ncgen ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (ncgen ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (ncgen ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS ncgen RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/getfill.c0000644000000000000000000000540612421456623015063 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: getfill.c 3862 2000-08-29 13:57:05Z koziol $ *********************************************************************/ #include "mfhdf.h" #include "generic.h" #include "genlib.h" /* * Given netCDF type, return a default fill_value appropriate for * that type. */ void nc_getfill(type, gval) nc_type type; union generic *gval; { switch(type) { case NC_CHAR: gval->charv = FILL_CHAR; return; case NC_BYTE: gval->charv = FILL_BYTE; return; case NC_SHORT: gval->shortv = FILL_SHORT; return; case NC_LONG: gval->longv = FILL_LONG; return; case NC_FLOAT: gval->floatv = FILL_FLOAT; return; case NC_DOUBLE: gval->doublev = FILL_DOUBLE; return; default: derror("nc_getfill: unrecognized type"); } } void nc_fill(type, num, datp, fill_val) nc_type type; /* netcdf type code */ long num; /* number of values to fill */ void *datp; /* where to start filling */ union generic fill_val; /* value to use */ { char *char_valp=NULL; /* pointers used to accumulate data values */ short *short_valp=NULL; nclong *long_valp=NULL; float *float_valp=NULL; double *double_valp=NULL; switch (type) { case NC_CHAR: case NC_BYTE: char_valp = (char *) datp; break; case NC_SHORT: short_valp = (short *) datp; break; case NC_LONG: long_valp = (nclong *) datp; break; case NC_FLOAT: float_valp = (float *) datp; break; case NC_DOUBLE: double_valp = (double *) datp; break; default: break; } while (num--) { switch (type) { case NC_CHAR: case NC_BYTE: *char_valp++ = fill_val.charv; break; case NC_SHORT: *short_valp++ = fill_val.shortv; break; case NC_LONG: *long_valp++ = fill_val.longv; break; case NC_FLOAT: *float_valp++ = fill_val.floatv; break; case NC_DOUBLE: *double_valp++ = fill_val.doublev; break; default: break; } } } /* * Given netCDF type, put a value of that type into a fill_value */ void nc_putfill(type, val, gval) nc_type type; void *val; /* value of type to be put */ union generic *gval; /* where the value is to be put */ { switch(type) { case NC_CHAR: case NC_BYTE: gval->charv = *(char *)val; return; case NC_SHORT: gval->shortv = *(short *)val; return; case NC_LONG: gval->longv = *(nclong *)val; return; case NC_FLOAT: gval->floatv = *(float *)val; return; case NC_DOUBLE: gval->doublev = *(double *)val; return; default: derror("nc_putfill: unrecognized type"); } } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/depend0000644000000000000000000000177012421456623014453 0ustar close.o: close.c close.o: ncgen.h close.o: ../../mfhdf/libsrc/netcdf.h close.o: ../../hdf/src//hlimits.h close.o: generic.h close.o: genlib.h escapes.o: escapes.c generate.o: generate.c generate.o: ncgen.h generate.o: ../../mfhdf/libsrc/netcdf.h generate.o: ../../hdf/src//hlimits.h generate.o: generic.h generate.o: genlib.h genlib.o: genlib.c genlib.o: genlib.h getfill.o: getfill.c getfill.o: ../../mfhdf/libsrc/netcdf.h getfill.o: ../../hdf/src//hlimits.h getfill.o: generic.h getfill.o: genlib.h init.o: init.c init.o: ncgen.h init.o: ../../mfhdf/libsrc/netcdf.h init.o: ../../hdf/src//hlimits.h init.o: generic.h load.o: load.c load.o: ncgen.h load.o: ../../mfhdf/libsrc/netcdf.h load.o: ../../hdf/src//hlimits.h load.o: generic.h load.o: genlib.h main.o: main.c main.o: genlib.h msofttab.o: msofttab.c msofttab.o: ncgen.h msofttab.o: ../../mfhdf/libsrc/netcdf.h msofttab.o: ../../hdf/src//hlimits.h msofttab.o: generic.h msofttab.o: msoftyy.c msofttab.o: msofttab.h msoftyy.o: msoftyy.c msoftyy.o: msofttab.h libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/test0.cdl0000644000000000000000000000162112421456623015007 0ustar netcdf test0 { dimensions: i = 2; j = 3; k = unlimited; l = 3 ; variables: char bears(i,j,l); bears:act = "text string\n\t123"; // bears:acb = '\n'; // "byte" type not in some FORTRANs bears:acs = -40s ; bears:acl = 17000 ; bears:acf = -2.0f, 1.f, 0.0f ; bears:acd = -1.0, 0.75 ; // byte dust(i,j); // "byte" type short order(i,j); long shot(i,j); float aloan(i,j); double cross(i,j); int i(i); float j(j); short l(l); :history = "This is an example of a multi-line global\n", "attribute. It could be used for representing the\n", "processing history of the data, for example." ; data: bears = "indistinguishable" ; // dust = -127,0,127,128,255; // "byte" type order = 1s, 2s, 3s, 4s, 5s, 6s; shot = 2, 3, 4, 5, 6, 7 ; aloan = 3.f, 4.f, 5.f, 6.f, 7.f, 1.0e12f ; cross = '\4', 5s, 0.000244140625, 7.0f, 8.0, 1.0e10 ; i = 10, 20; j = 2, 4, 6; l = 10, 9, 8; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/generate.c0000644000000000000000000006602712421456623015235 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: generate.c 6032 2014-01-17 18:13:52Z acheng $ *********************************************************************/ #include #include #include #include #include "ncgen.h" #include "genlib.h" extern char *netcdf_name; /* output netCDF filename, if on command line. */ static const char *ncftype(nc_type); static const char *ftypename(nc_type); static char *cstring(nc_type, void *, int); extern int netcdf_flag; extern int c_flag; extern int fortran_flag; /* create netCDF from in-memory structure */ static void gen_netcdf(filename) char *filename; /* name for output netcdf file */ { int idim, ivar, iatt; int istat; int dimids[H4_MAX_NC_DIMS]; int varids[H4_MAX_NC_VARS]; ncid = nccreate (filename, NC_CLOBBER); /* define dimensions from info in dims array */ for (idim = 0; idim < ndims; idim++) { dimids[idim] = ncdimdef(ncid, dims[idim].name, dims[idim].size); if (dimids[idim] == -1) derror("error defining dimension %s of size %ld", dims[idim].name,dims[idim].size); } /* define variables from info in vars array */ for (ivar = 0; ivar < nvars; ivar++) { varids[ivar] = ncvardef (ncid, vars[ivar].name, vars[ivar].type, vars[ivar].ndims, vars[ivar].dims); if (varids[ivar] == -1) derror("error defining variable %s", vars[ivar].name); } /* define attributes from info in atts array */ for (iatt = 0; iatt < natts; iatt++) { istat = ncattput(ncid, (atts[iatt].var == -1) ? NC_GLOBAL : atts[iatt].var, atts[iatt].name, atts[iatt].type, atts[iatt].len, atts[iatt].val); if (istat == -1) derror("error defining attribute %s for variable %s", atts[iatt].name,vars[atts[ivar].var].name); } istat = ncendef (ncid); if (istat == -1) { derror("error returned from ncendef, exiting ..."); exit(2); } } /* * Output a C statement. */ void cline(stmnt) const char *stmnt; { FILE *cout = stdout; fputs(stmnt, cout); fputs("\n", cout); } /* generate C code for creating netCDF from in-memory structure */ static void gen_c(filename) char *filename; { int idim, ivar, iatt, jatt, itype, maxdims; int scalar_atts, vector_atts; char *val_string; char stmnt[C_MAX_STMNT]; char s2[H4_MAX_NC_NAME + 2]; static const char *ctypes[] = {"char","short","nclong","float","double"}; int ntypes = (sizeof ctypes) / (sizeof ctypes[0]); /* wrap in main program */ cline("#include \"h4config.h\""); cline("#ifdef H4_HAVE_NETCDF"); cline("#include \"netcdf.h\""); cline("#else"); cline("#include \"hdf4_netcdf.h\""); cline("#endif"); /* cline("#include \"netcdf.h\""); */ cline(""); cline("int"); sprintf(stmnt, "main() {\t\t\t/* create %s */", filename); cline(stmnt); /* create necessary declarations */ cline(""); cline(" int ncid;\t\t\t/* netCDF id */"); if (ndims > 0) { cline(""); cline(" /* dimension ids */"); strcpy(stmnt, " int "); for (idim = 0; idim < ndims; idim++) { sprintf(s2, "%s_dim%s", dims[idim].name, idim == ndims-1 ? ";" : ", "); if (strlen(stmnt) + strlen(s2) >= C_MAX_STMNT) { if (idim < ndims-1) { stmnt[strlen(stmnt)-2] = '\0'; /* truncate trailing ", " */ strcat(stmnt, ";"); cline(stmnt); strcpy(stmnt, " int "); } } strcat(stmnt, s2); } cline(stmnt); } maxdims = 0; /* most dimensions of any variable */ for (ivar = 0; ivar < nvars; ivar++) if (vars[ivar].ndims > maxdims) maxdims = vars[ivar].ndims; if (nvars > 0) { cline(""); cline(" /* variable ids */"); strcpy(stmnt, " int "); for (ivar = 0; ivar < nvars; ivar++) { sprintf(s2, "%s_id%s", vars[ivar].name, ivar == nvars-1 ? ";" : ", "); if (strlen(stmnt) + strlen(s2) >= C_MAX_STMNT) { if (ivar < nvars-1) { stmnt[strlen(stmnt)-2] = '\0'; /* truncate trailing ", " */ strcat(stmnt, ";"); cline(stmnt); strcpy(stmnt, " int "); } } strcat(stmnt, s2); } cline(stmnt); if (maxdims > 0) { /* we have dimensioned variables */ cline(""); cline(" /* variable shapes */"); sprintf(stmnt, " int dims[%d];", maxdims); cline(stmnt); } } /* determine if any containers for scalar attributes needed */ scalar_atts = 0; for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].len == 1) { scalar_atts = 1; break; } } if (scalar_atts) { cline(""); cline(" /* containers for scalar attributes */"); for (itype = 0; itype < ntypes; itype++) { for (iatt = 0; iatt < natts; iatt++) { char type_name[12]; /* big enough for longest c typename */ (void) strcpy(type_name,ncctype(atts[iatt].type)); if (atts[iatt].len == 1 && strcmp(type_name,ctypes[itype]) == 0) { sprintf(stmnt, " %s %s_val;", type_name, type_name); cline(stmnt); break; } } } } /* determine if we need any attribute vectors */ vector_atts = 0; for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].len > 1 && atts[iatt].type != NC_CHAR) { vector_atts = 1; break; } } if (vector_atts) { cline(""); cline(" /* attribute vectors */"); for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].len > 1 && atts[iatt].type != NC_CHAR) { sprintf(stmnt, " %s %s_%s[%d];", ncctype(atts[iatt].type), atts[iatt].var == -1 ? "cdf" : vars[atts[iatt].var].name, atts[iatt].name, atts[iatt].len); cline(stmnt); } } } /* create netCDF file, uses NC_CLOBBER mode */ cline(""); cline(" /* enter define mode */"); sprintf(stmnt, " ncid = nccreate(\"%s\", NC_CLOBBER);", filename); cline(stmnt); /* define dimensions from info in dims array */ if (ndims > 0) { cline(""); cline(" /* define dimensions */"); } for (idim = 0; idim < ndims; idim++) { if (dims[idim].size == NC_UNLIMITED) sprintf(stmnt, " %s_dim = ncdimdef(ncid, \"%s\", NC_UNLIMITED);", dims[idim].name, dims[idim].name); else sprintf(stmnt, " %s_dim = ncdimdef(ncid, \"%s\", %dL);", dims[idim].name,dims[idim].name, (int)dims[idim].size); cline(stmnt); } /* define variables from info in vars array */ if (nvars > 0) { cline(""); cline(" /* define variables */"); for (ivar = 0; ivar < nvars; ivar++) { cline(""); for (idim = 0; idim < vars[ivar].ndims; idim++) { sprintf(stmnt, " dims[%d] = %s_dim;", idim, dims[vars[ivar].dims[idim]].name); cline(stmnt); } if (vars[ivar].ndims > 0) { /* a dimensioned variable */ sprintf(stmnt, " %s_id = ncvardef (ncid, \"%s\", %s, %d, dims);", vars[ivar].name, vars[ivar].name, nctype(vars[ivar].type), vars[ivar].ndims); } else { /* a scalar */ sprintf(stmnt, " %s_id = ncvardef (ncid, \"%s\", %s, %d, 0);", vars[ivar].name, vars[ivar].name, nctype(vars[ivar].type), vars[ivar].ndims); } cline(stmnt); } } /* define attributes from info in atts array */ if (natts > 0) { cline(""); cline(" /* assign attributes */"); for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].type == NC_CHAR && atts[iatt].len > 1) { /* string */ val_string = cstrstr((char *) atts[iatt].val, (long)atts[iatt].len); sprintf(stmnt, " ncattput (ncid, %s%s, \"%s\", NC_CHAR, %d, (void *)%s);", atts[iatt].var == -1 ? "NC_GLOBAL" : vars[atts[iatt].var].name, atts[iatt].var == -1 ? "" : "_id", atts[iatt].name, atts[iatt].len, val_string); cline(stmnt); free (val_string); } else if (atts[iatt].len <= 1) { /* scalar attribute */ val_string = cstring(atts[iatt].type, atts[iatt].val, 0); sprintf(stmnt, " %s_val = %s;", ncctype(atts[iatt].type), val_string); cline(stmnt); sprintf(stmnt, " ncattput (ncid, %s%s, \"%s\", %s, %d,(void *) &%s_val);", atts[iatt].var == -1 ? "NC_GLOBAL" : vars[atts[iatt].var].name, atts[iatt].var == -1 ? "" : "_id", atts[iatt].name, nctype(atts[iatt].type), atts[iatt].len, ncctype(atts[iatt].type)); cline(stmnt); free (val_string); } else { /* vector attribute */ for (jatt = 0; jatt < atts[iatt].len ; jatt++) { val_string = cstring(atts[iatt].type,atts[iatt].val,jatt); sprintf(stmnt, " %s_%s[%d] = %s;", atts[iatt].var == -1 ? "cdf" : vars[atts[iatt].var].name, atts[iatt].name, jatt, val_string); cline(stmnt); free (val_string); } sprintf(stmnt, " ncattput (ncid, %s%s, \"%s\", %s, %d, (void *) %s_%s);", atts[iatt].var == -1 ? "NC_GLOBAL" : vars[atts[iatt].var].name, atts[iatt].var == -1 ? "" : "_id", atts[iatt].name, nctype(atts[iatt].type), atts[iatt].len, atts[iatt].var == -1 ? "cdf" : vars[atts[iatt].var].name, atts[iatt].name); cline(stmnt); } } } cline(""); cline(" /* leave define mode */"); cline(" ncendef (ncid);"); } /* * From a long line FORTRAN statment, generates the necessary FORTRAN * lines with continuation characters in column 6. If stmnt starts with "*", * it is treated as a one-line comment. Statement labels are *not* handled, * but since we don't generate any labels, we don't care. */ void fline(stmnt) const char *stmnt; { FILE *fout = stdout; int len = strlen(stmnt); int line = 0; static char cont[] = { /* continuation characters */ ' ', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i'}; if(stmnt[0] == '*') { fputs(stmnt, fout); fputs("\n", fout); return; } while (len > 0) { if (line >= FORT_MAX_LINES) derror("FORTRAN statement too long: %s",stmnt); (void) fprintf(fout, " %c", cont[line++]); (void) fprintf(fout, "%.66s\n", stmnt); len -= 66; if (len > 0) stmnt += 66; } } /* generate FORTRAN code for creating netCDF from in-memory structure */ static void gen_fortran(filename) char *filename; { int idim, ivar, iatt, jatt, itype, maxdims; int vector_atts; char *val_string; char stmnt[FORT_MAX_STMNT]; char s2[H4_MAX_NC_NAME + 2]; /* Need how many netCDF types there are, because we create an array * for each type of attribute. */ int ntypes = 6; /* number of netCDF types, NC_BYTE, ... */ nc_type types[6]; /* at least ntypes */ const char *ftypes[NC_DOUBLE + 1]; int max_atts[NC_DOUBLE + 1]; types[0] = NC_BYTE; types[1] = NC_CHAR; types[2] = NC_SHORT; types[3] = NC_LONG; types[4] = NC_FLOAT; types[5] = NC_DOUBLE; ftypes[(int) NC_BYTE] = "byte"; ftypes[(int) NC_CHAR] = "char"; ftypes[(int) NC_SHORT] = "short"; ftypes[(int) NC_LONG] = "nclong"; ftypes[(int) NC_FLOAT] = "float"; ftypes[(int) NC_DOUBLE] = "double"; /* wrap in main program */ #ifdef MSDOS printf("$include: \"msoft.int\"\n"); #endif sprintf(stmnt, "program fgennc"); fline(stmnt); #ifdef MSDOS printf("$include: \"netcdf.inc\"\n"); #else fline("include 'netcdf.inc'"); #endif /* create necessary declarations */ fline("integer iret"); fline("* netCDF id"); fline("integer ncid"); if (ndims > 0) { fline("* dimension ids"); strcpy(stmnt, "integer "); for (idim = 0; idim < ndims; idim++) { sprintf(s2, "%sdim%s", dims[idim].name, idim == ndims-1 ? "" : ", "); if (strlen(stmnt) + strlen(s2) >= FORT_MAX_STMNT) { if (idim < ndims-1) { stmnt[strlen(stmnt)-2] = '\0'; /* truncate trailing ", " */ fline(stmnt); strcpy(stmnt,"integer "); } } strcat(stmnt, s2); } fline(stmnt); } maxdims = 0; /* most dimensions of any variable */ for (ivar = 0; ivar < nvars; ivar++) if (vars[ivar].ndims > maxdims) maxdims = vars[ivar].ndims; if (nvars > 0) { fline("* variable ids"); strcpy(stmnt,"integer "); for (ivar = 0; ivar < nvars; ivar++) { sprintf(s2, "%sid%s", vars[ivar].name, ivar == nvars-1 ? "" : ", "); if (strlen(stmnt) + strlen(s2) >= FORT_MAX_STMNT) { if (ivar < nvars-1) { stmnt[strlen(stmnt)-2] = '\0'; /* truncate trailing ", " */ fline(stmnt); strcpy(stmnt,"integer "); } } strcat(stmnt, s2); } fline(stmnt); if (maxdims > 0) { /* we have dimensioned variables */ fline("* variable shapes"); sprintf(stmnt, "integer dims(%d)", maxdims); fline(stmnt); } } fline("* corners and edge lengths"); #ifdef MSDOS sprintf(stmnt, "integer*4 corner(%d), edges(%d)", maxdims, maxdims); #else sprintf(stmnt, "integer corner(%d), edges(%d)", maxdims, maxdims); #endif fline(stmnt); /* declarations for variables to be initialized */ if (nvars > 0) { /* we have variables */ fline("* data variables"); for (ivar = 0; ivar < nvars; ivar++) { if (vars[ivar].type != NC_CHAR) { if (vars[ivar].ndims == 0) { /* scalar */ sprintf(stmnt, "%s %s", ncftype(vars[ivar].type), vars[ivar].name); fline(stmnt); } else { sprintf(stmnt, "%s %s(", ncftype(vars[ivar].type), vars[ivar].name); /* reverse dimensions for FORTRAN */ for (idim = vars[ivar].ndims-1; idim > 0; idim--) { sprintf(s2, "%d,", (int)dims[vars[ivar].dims[idim]].size); strcat(stmnt, s2); } if (vars[ivar].dims[0] == rec_dim) sprintf(s2, "%d)", 1); else sprintf(s2, "%d)", (int)dims[vars[ivar].dims[0]].size); strcat(stmnt, s2); fline(stmnt); } } else { /* for strings, declare multi-char variable */ int dimprod = 1; for (idim = vars[ivar].ndims-1; idim > 0; idim--) dimprod *= dims[vars[ivar].dims[idim]].size; if (vars[ivar].ndims != 0) { /* not a scalar */ if (vars[ivar].dims[0] != rec_dim) dimprod *= dims[vars[ivar].dims[0]].size; } sprintf(stmnt, "%s*%d %s", ncftype(vars[ivar].type), dimprod, vars[ivar].name); fline(stmnt); } } } /* determine what attribute vectors needed */ for (itype = 0; itype < ntypes; itype++) max_atts[(int)types[itype]] = 0; vector_atts = 0; for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].len > max_atts[(int) atts[iatt].type]) { max_atts[(int)atts[iatt].type] = atts[iatt].len; vector_atts = 1; } } if (vector_atts) { fline("* attribute vectors"); for (itype = 0; itype < ntypes; itype++) { if (types[itype] != NC_CHAR && max_atts[(int)types[itype]] > 0) { sprintf(stmnt, "%s %sval(%d)", ncftype(types[itype]), ftypes[(int)types[itype]], max_atts[(int)types[itype]]); fline(stmnt); } } } /* create netCDF file, uses NC_CLOBBER mode */ fline("* enter define mode"); sprintf(stmnt, "ncid = nccre (\'%s\', NCCLOB, iret)", filename); fline(stmnt); /* define dimensions from info in dims array */ if (ndims > 0) fline("* define dimensions"); for (idim = 0; idim < ndims; idim++) { if (dims[idim].size == NC_UNLIMITED) sprintf(stmnt, "%sdim = ncddef(ncid, \'%s\', NCUNLIM, iret)", dims[idim].name,dims[idim].name); else sprintf(stmnt, "%sdim = ncddef(ncid, \'%s\', %d, iret)", dims[idim].name,dims[idim].name,(int)dims[idim].size); fline(stmnt); } /* define variables from info in vars array */ if (nvars > 0) { fline("* define variables"); for (ivar = 0; ivar < nvars; ivar++) { for (idim = 0; idim < vars[ivar].ndims; idim++) { sprintf(stmnt, "dims(%d) = %sdim", vars[ivar].ndims - idim, /* reverse dimensions */ dims[vars[ivar].dims[idim]].name); fline(stmnt); } if (vars[ivar].ndims > 0) { /* a dimensioned variable */ sprintf(stmnt, "%sid = ncvdef (ncid, \'%s\', %s, %d, dims, iret)", vars[ivar].name, vars[ivar].name, ftypename(vars[ivar].type), vars[ivar].ndims); } else { /* a scalar */ sprintf(stmnt, "%sid = ncvdef (ncid, \'%s\', %s, %d, 0, iret)", vars[ivar].name, vars[ivar].name, ftypename(vars[ivar].type), vars[ivar].ndims); } fline(stmnt); } } /* define attributes from info in atts array */ if (natts > 0) { fline("* assign attributes"); for (iatt = 0; iatt < natts; iatt++) { if (atts[iatt].type == NC_CHAR && atts[iatt].len > 1) { /* string */ val_string = fstrstr((char *) atts[iatt].val, (long)atts[iatt].len); sprintf(stmnt, "call ncaptc(ncid, %s%s, \'%s\', NCCHAR, %d, %s, iret)", atts[iatt].var == -1 ? "NCGLOBAL" : vars[atts[iatt].var].name, atts[iatt].var == -1 ? "" : "id", atts[iatt].name, atts[iatt].len, val_string); fline(stmnt); free(val_string); } else { for (jatt = 0; jatt < atts[iatt].len ; jatt++) { val_string = fstring(atts[iatt].type,atts[iatt].val,jatt); sprintf(stmnt, "%sval(%d) = %s", ftypes[(int)atts[iatt].type], jatt+1, val_string); fline(stmnt); free (val_string); } sprintf(stmnt, "call ncapt(ncid, %s%s, \'%s\', %s, %d, %sval, iret)", atts[iatt].var == -1 ? "NCGLOBAL" : vars[atts[iatt].var].name, atts[iatt].var == -1 ? "" : "id", atts[iatt].name, ftypename(atts[iatt].type), atts[iatt].len, ftypes[(int)atts[iatt].type]); fline(stmnt); } } } fline("* leave define mode"); fline("call ncendf(ncid, iret)"); } /* return C name for netCDF type, given type code */ const char * nctype(type) nc_type type; /* netCDF type code */ { switch (type) { case NC_BYTE: return "NC_BYTE"; case NC_CHAR: return "NC_CHAR"; case NC_SHORT: return "NC_SHORT"; case NC_LONG: return "NC_LONG"; case NC_FLOAT: return "NC_FLOAT"; case NC_DOUBLE: return "NC_DOUBLE"; default: derror("nctype: bad type code"); return NULL; } } /* return FORTRAN name for netCDF type, given type code */ static const char * ftypename(type) nc_type type; /* netCDF type code */ { switch (type) { case NC_BYTE: return "NCBYTE"; case NC_CHAR: return "NCCHAR"; case NC_SHORT: return "NCSHORT"; case NC_LONG: return "NCLONG"; case NC_FLOAT: return "NCFLOAT"; case NC_DOUBLE: return "NCDOUBLE"; default: derror("ftypename: bad type code"); return NULL; } } /* return C type name for netCDF type, given type code */ const char * ncctype(type) nc_type type; /* netCDF type code */ { switch (type) { case NC_BYTE: return "char"; case NC_CHAR: return "char"; case NC_SHORT: return "short"; case NC_LONG: return "nclong"; case NC_FLOAT: return "float"; case NC_DOUBLE: return "double"; default: derror("ncctype: bad type code"); return NULL; } } /* return Fortran type name for netCDF type, given type code */ static const char * ncftype(type) nc_type type; /* netCDF type code */ { switch (type) { case NC_BYTE: return "byte"; /* non-standard */ case NC_CHAR: return "character"; case NC_SHORT: return "integer*2"; case NC_LONG: #ifdef MSDOS return "integer*4"; #else return "integer"; #endif case NC_FLOAT: return "real"; case NC_DOUBLE: return "double precision"; default: derror("ncctype: bad type code"); return NULL; } } /* * Given a netcdf type, a pointer to a vector of values of that type, * and the index of the vector element desired, returns a pointer to a * malloced string representing the value in C. */ static char * cstring(type,valp, num) nc_type type; /* netCDF type code */ void *valp; /* pointer to vector of values */ int num; /* element of vector desired */ { static char *cp, *sp, ch; char *bytep; short *shortp; nclong *longp; float *floatp; double *doublep; switch (type) { case NC_CHAR: sp = cp = (char *) emalloc (7); *cp++ = '\''; ch = *((char *)valp + num); switch (ch) { case '\b': *cp++ = '\\'; *cp++ = 'b'; break; case '\f': *cp++ = '\\'; *cp++ = 'f'; break; case '\n': *cp++ = '\\'; *cp++ = 'n'; break; case '\r': *cp++ = '\\'; *cp++ = 'r'; break; case '\t': *cp++ = '\\'; *cp++ = 't'; break; case '\v': *cp++ = '\\'; *cp++ = 'v'; break; case '\\': *cp++ = '\\'; *cp++ = '\\'; break; /*, tj case '\?': *cp++ = '\\'; *cp++ = '?'; break; */ case '\'': *cp++ = '\\'; *cp++ = '\''; break; default: /*, tj if (ch < '\040' || ch > '\176') { */ /* assumes ASCII */ if (!isprint((unsigned char)ch)) { static char octs[] = "01234567"; int rem = ((unsigned char)ch)%64; *cp++ = '\\'; *cp++ = octs[((unsigned char)ch)/64]; /* to get, e.g. '\177' */ *cp++ = octs[rem/8]; *cp++ = octs[rem%8]; } else { *cp++ = ch; } break; } *cp++ = '\''; *cp = '\0'; return sp; case NC_BYTE: cp = (char *) emalloc (7); bytep = (char *)valp; (void) sprintf(cp,"'\\%o'", * (bytep + num) & 0xff); return cp; case NC_SHORT: cp = (char *) emalloc (10); shortp = (short *)valp; (void) sprintf(cp,"%d",* (shortp + num)); return cp; case NC_LONG: cp = (char *) emalloc (20); longp = (nclong *)valp; (void) sprintf(cp,"%d",(int)* (longp + num)); return cp; case NC_FLOAT: cp = (char *) emalloc (20); floatp = (float *)valp; (void) sprintf(cp,"%.8g",* (floatp + num)); return cp; case NC_DOUBLE: cp = (char *) emalloc (20); doublep = (double *)valp; (void) sprintf(cp,"%.16g",* (doublep + num)); return cp; default: derror("cstring: bad type code"); return 0; } } /* * Given a netcdf type, a pointer to a vector of values of that type, * and the index of the vector element desired, returns a pointer to a * malloced string representing the value in FORTRAN. */ char * fstring(type,valp, num) nc_type type; /* netCDF type code */ void *valp; /* pointer to vector of values */ int num; /* element of vector desired */ { static char *cp, *sp; char ch; short *shortp; nclong *longp; float *floatp; double *doublep; switch (type) { case NC_CHAR: case NC_BYTE: sp = cp = (char *) emalloc (10); ch = *((char *)valp + num); if (isprint((unsigned char)ch)) { *cp++ = '\''; *cp++ = ch; *cp++ = '\''; *cp = '\0'; } else { sprintf(cp,"%d",(unsigned char)ch); /* char(%d) ? */ } return sp; case NC_SHORT: cp = (char *) emalloc (10); shortp = (short *)valp; (void) sprintf(cp,"%d",* (shortp + num)); return cp; case NC_LONG: cp = (char *) emalloc (20); longp = (nclong *)valp; (void) sprintf(cp,"%d",(int)* (longp + num)); return cp; case NC_FLOAT: cp = (char *) emalloc (20); floatp = (float *)valp; (void) sprintf(cp,"%.8g",* (floatp + num)); return cp; case NC_DOUBLE: cp = (char *) emalloc (20); doublep = (double *)valp; (void) sprintf(cp,"%.16g",* (doublep + num)); return cp; default: derror("fstring: bad type code"); return 0; } } /* * Given a pointer to a counted string, returns a pointer to a malloced string * representing the string as a C constant. */ char * cstrstr(valp, len) char *valp; /* pointer to vector of characters*/ long len; /* number of characters in valp */ { static char *sp; char *cp; char *istr, *istr0; /* for null-terminated copy */ if(4*len+3 != (unsigned)(4*len+3)) { derror("too much character data!"); exit(9); } istr0 = istr = (char *) emalloc((int)len + 1); strncpy(istr, (char *) valp, (int)len); istr[len] = '\0'; sp = cp = (char *) emalloc(4*(int)len+3); *cp++ = '"'; while (*istr != '\0') { switch (*istr) { case '\b': *cp++ = '\\'; *cp++ = 'b'; break; case '\f': *cp++ = '\\'; *cp++ = 'f'; break; case '\n': *cp++ = '\\'; *cp++ = 'n'; break; case '\r': *cp++ = '\\'; *cp++ = 'r'; break; case '\t': *cp++ = '\\'; *cp++ = 't'; break; case '\v': *cp++ = '\\'; *cp++ = 'v'; break; case '\\': *cp++ = '\\'; *cp++ = '\\'; break; /*, tj case '\?': *cp++ = '\\'; *cp++ = '?'; break; */ case '\'': *cp++ = '\\'; *cp++ = '\''; break; default: /*, tj if (*istr < '\040' || *istr > '\176') { */ /* assumes ASCII */ if (!isprint((unsigned char)*istr)) { static char octs[] = "01234567"; int rem = ((unsigned char)*istr)%64; *cp++ = '\\'; *cp++ = octs[((unsigned char)*istr)/64]; /* to get, e.g. '\177' */ *cp++ = octs[rem/8]; *cp++ = octs[rem%8]; } else { *cp++ = *istr; } break; } istr++; } *cp++ = '"'; *cp = '\0'; free(istr0); return sp; } /* * Given a pointer to a counted string (not necessarily null-terminated), * returns a pointer to a malloced string representing the string as a * FORTRAN string expression. For example, the string "don't" would yield * the FORTRAN string "'don''t'", and the string "ab\ncd" would yield * "'ab'//char(10)//'cd'". */ char * fstrstr(str, ilen) char *str; /* pointer to vector of characters */ long ilen; /* number of characters in istr */ { static char *ostr; char *cp, tstr[12]; int was_print = 0; /* true if last character was printable */ char *istr, *istr0; /* for null-terminated copy */ if(12*ilen != (unsigned)(12*ilen)) { derror("too much character data!"); exit(9); } istr0 = istr = (char *) emalloc((int)ilen + 1); strncpy(istr, (char *) str, (int)ilen); istr[ilen] = '\0'; ostr = cp = (char *) emalloc(12*(int)ilen); *ostr = '\0'; if (*istr == '\0') { /* empty string input, not legal in FORTRAN */ strcat(ostr,"' '"); free(istr0); return ostr; } if (isprint((unsigned char)*istr)) { /* handle first character in input */ *cp++ = '\''; if (*istr == '\'') { *cp++ = '\''; *cp++ = '\''; } else { *cp++ = *istr; } *cp = '\0'; was_print = 1; } else { sprintf(tstr, "char(%d)", (unsigned char)*istr); strcat(cp, tstr); cp += strlen(tstr); was_print = 0; } istr++; while (*istr != '\0') { /* handle subsequent characters in input */ if (isprint((unsigned char)*istr)) { if (! was_print) { strcat(cp, "//'"); cp += 3; } if (*istr == '\'') { *cp++ = '\''; *cp++ = '\''; } else { *cp++ = *istr; } *cp = '\0'; was_print = 1; } else { if (was_print) { *cp++ = '\''; *cp = '\0'; } sprintf(tstr, "//char(%d)", (unsigned char)*istr); strcat(cp, tstr); cp += strlen(tstr); was_print = 0; } istr++; } if (was_print) *cp++ = '\''; *cp = '\0'; free(istr0); return ostr; } /* invoke netcdf calls (or generate C or Fortran code) to create netcdf * from in-memory structure. */ void define_netcdf(netcdfname) char *netcdfname; { char *filename; /* output file name */ if (netcdf_name) { /* name given on command line */ filename = netcdf_name; } else { /* construct name from CDL name */ filename = (char *) emalloc(strlen(netcdfname) + 5); (void) strcpy(filename,netcdfname); if (netcdf_flag == 1) (void) strcat(filename,".nc"); /* new, favored extension */ else if (netcdf_flag == -1) (void) strcat(filename,".cdf"); /* old, deprecated extension */ } if (netcdf_flag) gen_netcdf(filename); /* create netcdf */ if (c_flag) /* create C code to create netcdf */ gen_c(filename); if (fortran_flag) /* create Fortran code to create netcdf */ gen_fortran(filename); } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/main.c0000644000000000000000000000507612421456623014364 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: main.c 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #include #include #include #ifdef __hpux #include #endif #include "ncgen.h" #include "genlib.h" char *progname; /* for error messages */ char *cdlname; int c_flag; int fortran_flag; int netcdf_flag; char *netcdf_name = NULL; /* name of output netCDF file to write */ extern FILE *yyin, *yyout; void usage() { derror("Usage: %s [-V] [ -b ] [ -c ] [ -f ] [ -o outfile] [ file ... ]", progname); exit(8); } int main(argc, argv) int argc; char *argv[]; { extern int optind; extern int opterr; extern char *optarg; int c; FILE *fp; yyin=stdin; yyout=stdout; #ifdef __hpux setlocale(LC_CTYPE,""); #endif #ifdef MDEBUG malloc_debug(2) ; /* helps find malloc/free errors on Sun */ #endif /* MDEBUG */ opterr = 1; /* print error message if bad option */ progname = argv[0]; cdlname = "-"; c_flag = 0; fortran_flag = 0; netcdf_flag = 0; while ((c = getopt(argc, argv, "Vbcfno:")) != EOF) switch(c) { case 'V': /* for c output */ printf("%s, %s\n\n", argv[0], LIBVER_STRING );; exit(EXIT_SUCCESS); case 'c': /* for c output */ c_flag = 1; break; case 'f': /* for fortran output */ fortran_flag = 1; break; case 'b': /* for binary netcdf output, ".nc" extension */ netcdf_flag = 1; break; case 'n': /* old version of -b, uses ".cdf" extension */ netcdf_flag = -1; break; case 'o': /* to explicitly specify output name */ netcdf_flag = 1; netcdf_name = (char *) emalloc(strlen(optarg)+1); if (! netcdf_name) { derror ("%s: out of memory", progname); exit(1); } strcpy(netcdf_name,optarg); break; case '?': usage(); break; } if (fortran_flag && c_flag) { derror("Only one of -c or -f may be specified"); exit(8); } argc -= optind; argv += optind; if (argc > 1) { derror ("%s: only one input file argument permitted",progname); exit(6); } fp = stdin; if (argc > 0 && strcmp(argv[0], "-") != 0) { if ((fp = fopen(argv[0], "r")) == NULL) { derror ("can't open file %s for reading: ", argv[0]); perror(""); exit(7); } cdlname = (char *) emalloc(1 + strlen(argv[0])); strcpy(cdlname, argv[0]); } yyin = fp; return (yyparse()); } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/Makefile.in0000644000000000000000000010350412421456623015334 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testncgen.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = ncgen$(EXEEXT) @HDF_BUILD_FORTRAN_FALSE@@HDF_BUILD_NETCDF_TRUE@noinst_PROGRAMS = ctest0$(EXEEXT) @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@noinst_PROGRAMS = ctest0$(EXEEXT) \ @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@ ftest0$(EXEEXT) @HDF_BUILD_NETCDF_FALSE@noinst_PROGRAMS = ctest0$(EXEEXT) check_PROGRAMS = ctest0$(EXEEXT) $(am__EXEEXT_1) @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@am__append_1 = ftest0 TESTS = $(TEST_SCRIPT) subdir = mfhdf/ncgen ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testncgen.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)" @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@am__EXEEXT_1 = ftest0$(EXEEXT) PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS) am_ctest0_OBJECTS = ctest0_OBJECTS = $(am_ctest0_OBJECTS) ctest0_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) am_ftest0_OBJECTS = ftest0_OBJECTS = $(am_ftest0_OBJECTS) ftest0_LDADD = $(LDADD) am_ncgen_OBJECTS = close.$(OBJEXT) escapes.$(OBJEXT) \ generate.$(OBJEXT) genlib.$(OBJEXT) getfill.$(OBJEXT) \ init.$(OBJEXT) load.$(OBJEXT) main.$(OBJEXT) \ ncgentab.$(OBJEXT) ncgen_OBJECTS = $(am_ncgen_OBJECTS) ncgen_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(ncgen_LDFLAGS) \ $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(ctest0_SOURCES) $(ftest0_SOURCES) $(ncgen_SOURCES) DIST_SOURCES = $(ctest0_SOURCES) $(ftest0_SOURCES) $(ncgen_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac 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; }; \ } man1dir = $(mandir)/man1 NROFF = nroff MANS = $(man1_MANS) ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog ctest1.cdl ftest1.cdl test0.nc \ test1.cdl test1.nc test2.cdl @HDF_BUILD_SHARED_FALSE@SHLIBLOC = $(top_builddir)/mfhdf/libsrc/.libs/libmfhdf.a $(top_builddir)/hdf/src/.libs/libdf.a @HDF_BUILD_SHARED_TRUE@SHLIBLOC = $(top_builddir)/mfhdf/libsrc/.libs/libmfhdf.$(SHARED_EXTENSION) $(top_builddir)/hdf/src/.libs/libdf.$(SHARED_EXTENSION) INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ncgen_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ncgen_SOURCES = close.c escapes.c generate.c genlib.c getfill.c init.c \ load.c main.c ncgentab.c ncgen_LDADD = $(LIBMFHDF) $(LIBHDF) ncgen_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ctest0_SOURCES = ctest0_LDADD = $(LIBMFHDF) $(LIBHDF) ftest0_SOURCES = ############################################################################# ############################################################################# man1_MANS = ncgen.1 ############################################################################# ############################################################################# NCDUMP = $(top_builddir)/mfhdf/ncdump/ncdump TEST_SCRIPT = testncgen.sh check_SCRIPTS = testncgen.sh DISTCLEANFILES = ctest0$(EXEEXT) ctest0.nc ftest0$(EXEEXT) ftest0.nc \ netcdf.inc test0.c test0.f # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/ncgen/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/ncgen/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testncgen.sh: $(top_builddir)/config.status $(srcdir)/testncgen.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 @HDF_BUILD_FORTRAN_FALSE@ftest0$(EXEEXT): $(ftest0_OBJECTS) $(ftest0_DEPENDENCIES) $(EXTRA_ftest0_DEPENDENCIES) @HDF_BUILD_FORTRAN_FALSE@ @rm -f ftest0$(EXEEXT) @HDF_BUILD_FORTRAN_FALSE@ $(LINK) $(ftest0_OBJECTS) $(ftest0_LDADD) $(LIBS) @HDF_BUILD_NETCDF_FALSE@ftest0$(EXEEXT): $(ftest0_OBJECTS) $(ftest0_DEPENDENCIES) $(EXTRA_ftest0_DEPENDENCIES) @HDF_BUILD_NETCDF_FALSE@ @rm -f ftest0$(EXEEXT) @HDF_BUILD_NETCDF_FALSE@ $(LINK) $(ftest0_OBJECTS) $(ftest0_LDADD) $(LIBS) ncgen$(EXEEXT): $(ncgen_OBJECTS) $(ncgen_DEPENDENCIES) $(EXTRA_ncgen_DEPENDENCIES) @rm -f ncgen$(EXEEXT) $(ncgen_LINK) $(ncgen_OBJECTS) $(ncgen_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/close.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/escapes.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/generate.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/genlib.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getfill.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/init.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/load.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/main.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ncgentab.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-man1: $(man1_MANS) @$(NORMAL_INSTALL) @list1='$(man1_MANS)'; \ list2=''; \ test -n "$(man1dir)" \ && test -n "`echo $$list1$$list2`" \ || exit 0; \ echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \ $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \ { for i in $$list1; do echo "$$i"; done; \ if test -n "$$list2"; then \ for i in $$list2; do echo "$$i"; done \ | sed -n '/\.1[a-z]*$$/p'; \ fi; \ } | while read p; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; echo "$$p"; \ done | \ sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \ sed 'N;N;s,\n, ,g' | { \ list=; while read file base inst; do \ if test "$$base" = "$$inst"; then list="$$list $$file"; else \ echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \ fi; \ done; \ for i in $$list; do echo "$$i"; done | $(am__base_list) | \ while read files; do \ test -z "$$files" || { \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \ done; } uninstall-man1: @$(NORMAL_UNINSTALL) @list='$(man1_MANS)'; test -n "$(man1dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @list='$(MANS)'; if test -n "$$list"; then \ list=`for p in $$list; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; else :; fi; done`; \ if test -n "$$list" && \ grep 'ab help2man is required to generate this page' $$list >/dev/null; then \ echo "error: found man pages containing the 'missing help2man' replacement text:" >&2; \ grep -l 'ab help2man is required to generate this page' $$list | sed 's/^/ /' >&2; \ echo " to fix them, install help2man, remove and regenerate the man pages;" >&2; \ echo " typically 'make maintainer-clean' will remove them" >&2; \ exit 1; \ else :; fi; \ else :; fi @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_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) $(MANS) all-local installdirs: for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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-noinstPROGRAMS mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-man install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binPROGRAMS install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-man1 install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS uninstall-man uninstall-man: uninstall-man1 .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-checkPROGRAMS clean-generic \ clean-libtool clean-noinstPROGRAMS cscopelist ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-binPROGRAMS install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-man1 install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS uninstall-man uninstall-man1 @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@netcdf.inc: @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@ ln -s $(top_builddir)/mfhdf/fortran/$@ . @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@ftest0$(EXEEXT): ncgen$(EXEEXT) test0.cdl netcdf.inc @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@ $(TESTS_ENVIRONMENT) ./ncgen -f -o ftest0.nc $(srcdir)/test0.cdl > test0.f @HDF_BUILD_FORTRAN_TRUE@@HDF_BUILD_NETCDF_TRUE@ $(F77) $(FFLAGS) -o $@ test0.f $(LDFLAGS) $(SHLIBLOC) $(LIBS) ctest0$(EXEEXT): ncgen$(EXEEXT) $(srcdir)/test0.cdl $(TESTS_ENVIRONMENT) ./ncgen -c -o ctest0.nc $(srcdir)/test0.cdl > test0.c $(COMPILE) -c -o ctest0$(EXEEXT).o test0.c $(LINK) ctest0$(EXEEXT).o $(ctest0_LDADD) $(LDFLAGS) $(SHLIBLOC) $(LIBS) # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgentab.c0000644000000000000000000020312112421456623015210 0ustar /* A Bison parser, made by GNU Bison 2.3. */ /* Skeleton implementation for Bison's Yacc-like parsers in C Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 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, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ /* C LALR(1) parser skeleton written by Richard Stallman, by simplifying the original so-called "semantic" parser. */ /* All symbols defined below should begin with yy or YY, to avoid infringing on user name space. This should be done even for local variables, as they might otherwise be expanded by user macros. There are some unavoidable exceptions within include files to define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ /* Identify Bison output. */ #define YYBISON 1 /* Bison version. */ #define YYBISON_VERSION "2.3" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" /* Pure parsers. */ #define YYPURE 0 /* Using locations. */ #define YYLSP_NEEDED 0 /* Tokens. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE /* Put the tokens into the symbol table, so that GDB and other debuggers know about them. */ enum yytokentype { NC_UNLIMITED_K = 258, BYTE_K = 259, CHAR_K = 260, SHORT_K = 261, LONG_K = 262, FLOAT_K = 263, DOUBLE_K = 264, IDENT = 265, TERMSTRING = 266, BYTE_CONST = 267, CHAR_CONST = 268, SHORT_CONST = 269, LONG_CONST = 270, FLOAT_CONST = 271, DOUBLE_CONST = 272, DIMENSIONS = 273, VARIABLES = 274, NETCDF = 275, DATA = 276 }; #endif /* Tokens. */ #define NC_UNLIMITED_K 258 #define BYTE_K 259 #define CHAR_K 260 #define SHORT_K 261 #define LONG_K 262 #define FLOAT_K 263 #define DOUBLE_K 264 #define IDENT 265 #define TERMSTRING 266 #define BYTE_CONST 267 #define CHAR_CONST 268 #define SHORT_CONST 269 #define LONG_CONST 270 #define FLOAT_CONST 271 #define DOUBLE_CONST 272 #define DIMENSIONS 273 #define VARIABLES 274 #define NETCDF 275 #define DATA 276 /* Copy the first part of user declarations. */ #line 9 "../../../hdf4/mfhdf/ncgen/ncgen.y" #ifndef lint static char SccsId[] = "$Id: ncgen.y 4928 2007-09-06 21:48:49Z epourmal $"; #endif #include #include #include "ncgen.h" typedef struct Symbol { /* symbol table entry */ char *name; struct Symbol *next; unsigned is_dim : 1; /* appears as netCDF dimension */ unsigned is_var : 1; /* appears as netCDF variable */ unsigned is_att : 1; /* appears as netCDF attribute */ int dnum; /* handle as a dimension */ int vnum; /* handle as a variable */ } *YYSTYPE1; #define YYSTYPE YYSTYPE1 YYSTYPE install(), lookup(); YYSTYPE symlist; /* symbol table: linked list */ void init_netcdf(); /* initializes netcdf counts (e.g. nvars) */ void define_netcdf(); /* generates all define mode stuff */ void load_netcdf(); /* generates variable puts */ void close_netcdf(); /* generates close */ void derror(); /* varargs message emitter */ void *emalloc(), *erealloc(); /* malloc that checks for memory exhausted */ void clearout(); /* initializes symbol table */ void nc_getfill(); /* to get fill value for various types */ void nc_putfill(); /* to get fill value for various types */ void nc_fill(); /* fills a generic array with a value */ int put_variable(); /* invoke nc calls or generate code to put */ /* variable values */ extern int derror_count; /* counts errors in netcdf definition */ extern int lineno; /* line number for error messages */ static int not_a_string; /* whether last constant read was a string */ static char termstring[MAXTRST]; /* last terminal string read */ static double double_val; /* last double value read */ static float float_val; /* last float value read */ static nclong long_val; /* last long value read */ static short short_val; /* last short value read */ static char char_val; /* last char value read */ static char byte_val; /* last byte value read */ static nc_type type_code; /* holds declared type for variables */ static nc_type atype_code; /* holds derived type for attributes */ static char *netcdfname; /* to construct netcdf file name */ static void *att_space; /* pointer to block for attribute values */ static nc_type valtype; /* type code for list of attribute values */ static char *char_valp; /* pointers used to accumulate data values */ static char *byte_valp; static short *short_valp; static nclong *long_valp; static float *float_valp; static double *double_valp; static void *rec_cur; /* pointer to where next data value goes */ static void *rec_start; /* start of space for a record of data */ /* Enabling traces. */ #ifndef YYDEBUG # define YYDEBUG 0 #endif /* Enabling verbose error messages. */ #ifdef YYERROR_VERBOSE # undef YYERROR_VERBOSE # define YYERROR_VERBOSE 1 #else # define YYERROR_VERBOSE 0 #endif /* Enabling the token table. */ #ifndef YYTOKEN_TABLE # define YYTOKEN_TABLE 0 #endif #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef int YYSTYPE; # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 # define YYSTYPE_IS_TRIVIAL 1 #endif /* Copy the second part of user declarations. */ /* Line 216 of yacc.c. */ #line 211 "y.tab.c" #ifdef short # undef short #endif #ifdef YYTYPE_UINT8 typedef YYTYPE_UINT8 yytype_uint8; #else typedef unsigned char yytype_uint8; #endif #ifdef YYTYPE_INT8 typedef YYTYPE_INT8 yytype_int8; #elif (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) typedef signed char yytype_int8; #else typedef short int yytype_int8; #endif #ifdef YYTYPE_UINT16 typedef YYTYPE_UINT16 yytype_uint16; #else typedef unsigned short int yytype_uint16; #endif #ifdef YYTYPE_INT16 typedef YYTYPE_INT16 yytype_int16; #else typedef short int yytype_int16; #endif #ifndef YYSIZE_T # ifdef __SIZE_TYPE__ # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else # define YYSIZE_T unsigned int # endif #endif #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) #ifndef YY_ # if YYENABLE_NLS # if ENABLE_NLS # include /* INFRINGES ON USER NAME SPACE */ # define YY_(msgid) dgettext ("bison-runtime", msgid) # endif # endif # ifndef YY_ # define YY_(msgid) msgid # endif #endif /* Suppress unused-variable warnings by "using" E. */ #if ! defined lint || defined __GNUC__ # define YYUSE(e) ((void) (e)) #else # define YYUSE(e) /* empty */ #endif /* Identity function, used to suppress warnings about constant conditions. */ #ifndef lint # define YYID(n) (n) #else #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static int YYID (int i) #else static int YYID (i) int i; #endif { return i; } #endif #if ! defined yyoverflow || YYERROR_VERBOSE /* The parser invokes alloca or malloc; define the necessary symbols. */ # ifdef YYSTACK_USE_ALLOCA # if YYSTACK_USE_ALLOCA # ifdef __GNUC__ # define YYSTACK_ALLOC __builtin_alloca # elif defined __BUILTIN_VA_ARG_INCR # include /* INFRINGES ON USER NAME SPACE */ # elif defined _AIX # define YYSTACK_ALLOC __alloca # elif defined _MSC_VER # include /* INFRINGES ON USER NAME SPACE */ # define alloca _alloca # else # define YYSTACK_ALLOC alloca # if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) # include /* INFRINGES ON USER NAME SPACE */ # ifndef _STDLIB_H # define _STDLIB_H 1 # endif # endif # endif # endif # endif # ifdef YYSTACK_ALLOC /* Pacify GCC's `empty if-body' warning. */ # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) # ifndef YYSTACK_ALLOC_MAXIMUM /* The OS might guarantee only one guard page at the bottom of the stack, and a page size can be as small as 4096 bytes. So we cannot safely invoke alloca (N) if N exceeds 4096. Use a slightly smaller number to allow for a few compiler-allocated temporary stack slots. */ # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ # endif # else # define YYSTACK_ALLOC YYMALLOC # define YYSTACK_FREE YYFREE # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif # if (defined __cplusplus && ! defined _STDLIB_H \ && ! ((defined YYMALLOC || defined malloc) \ && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ # ifndef _STDLIB_H # define _STDLIB_H 1 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc # if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ # endif # endif # ifndef YYFREE # define YYFREE free # if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ #if (! defined yyoverflow \ && (! defined __cplusplus \ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { yytype_int16 yyss; YYSTYPE yyvs; }; /* The size of the maximum gap between one aligned stack and the next. */ # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) /* The size of an array large to enough to hold all stacks, each with N elements. */ # define YYSTACK_BYTES(N) \ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) /* Copy COUNT objects from FROM to TO. The source and destination do not overlap. */ # ifndef YYCOPY # if defined __GNUC__ && 1 < __GNUC__ # define YYCOPY(To, From, Count) \ __builtin_memcpy (To, From, (Count) * sizeof (*(From))) # else # define YYCOPY(To, From, Count) \ do \ { \ YYSIZE_T yyi; \ for (yyi = 0; yyi < (Count); yyi++) \ (To)[yyi] = (From)[yyi]; \ } \ while (YYID (0)) # endif # endif /* Relocate STACK from its old location to the new one. The local variables YYSIZE and YYSTACKSIZE give the old and new number of elements in the stack, and YYPTR gives the new location of the stack. Advance YYPTR to a properly aligned location for the next stack. */ # define YYSTACK_RELOCATE(Stack) \ do \ { \ YYSIZE_T yynewbytes; \ YYCOPY (&yyptr->Stack, Stack, yysize); \ Stack = &yyptr->Stack; \ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ yyptr += yynewbytes / sizeof (*yyptr); \ } \ while (YYID (0)) #endif /* YYFINAL -- State number of the termination state. */ #define YYFINAL 4 /* YYLAST -- Last index in YYTABLE. */ #define YYLAST 70 /* YYNTOKENS -- Number of terminals. */ #define YYNTOKENS 30 /* YYNNTS -- Number of nonterminals. */ #define YYNNTS 39 /* YYNRULES -- Number of rules. */ #define YYNRULES 71 /* YYNRULES -- Number of states. */ #define YYNSTATES 101 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ #define YYUNDEFTOK 2 #define YYMAXUTOK 276 #define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 27, 28, 2, 2, 25, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 29, 24, 2, 26, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 22, 2, 23, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21 }; #if YYDEBUG /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in YYRHS. */ static const yytype_uint8 yyprhs[] = { 0, 0, 3, 4, 5, 6, 16, 17, 20, 23, 27, 29, 33, 37, 41, 43, 45, 46, 49, 52, 56, 58, 60, 63, 65, 67, 69, 71, 73, 75, 77, 81, 82, 86, 88, 89, 93, 95, 99, 101, 102, 107, 111, 114, 116, 118, 120, 124, 126, 128, 130, 132, 134, 136, 138, 140, 141, 144, 147, 151, 152, 157, 159, 163, 164, 167, 169, 171, 173, 175, 177, 179 }; /* YYRHS -- A `-1'-separated list of the rules' RHS. */ static const yytype_int8 yyrhs[] = { 31, 0, -1, -1, -1, -1, 20, 22, 32, 35, 33, 41, 34, 61, 23, -1, -1, 18, 36, -1, 37, 24, -1, 36, 37, 24, -1, 38, -1, 37, 25, 38, -1, 39, 26, 15, -1, 39, 26, 3, -1, 40, -1, 10, -1, -1, 19, 42, -1, 43, 24, -1, 42, 43, 24, -1, 44, -1, 53, -1, 45, 46, -1, 4, -1, 5, -1, 6, -1, 7, -1, 8, -1, 9, -1, 47, -1, 46, 25, 47, -1, -1, 49, 48, 50, -1, 10, -1, -1, 27, 51, 28, -1, 52, -1, 51, 25, 52, -1, 40, -1, -1, 55, 54, 26, 58, -1, 56, 29, 57, -1, 29, 57, -1, 49, -1, 10, -1, 59, -1, 58, 25, 59, -1, 60, -1, 13, -1, 11, -1, 12, -1, 14, -1, 15, -1, 16, -1, 17, -1, -1, 21, 62, -1, 63, 24, -1, 62, 63, 24, -1, -1, 56, 64, 26, 65, -1, 66, -1, 65, 25, 66, -1, -1, 67, 68, -1, 13, -1, 11, -1, 12, -1, 14, -1, 15, -1, 16, -1, 17, -1 }; /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { 0, 103, 103, 105, 110, 101, 121, 122, 124, 125, 127, 128, 130, 136, 144, 155, 157, 158, 160, 161, 163, 163, 165, 167, 168, 169, 170, 171, 172, 174, 175, 178, 177, 203, 205, 206, 208, 209, 211, 231, 230, 262, 263, 269, 279, 285, 286, 288, 297, 303, 314, 320, 326, 332, 338, 346, 347, 350, 351, 354, 353, 416, 417, 420, 420, 486, 511, 544, 569, 594, 619, 644 }; #endif #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at YYNTOKENS, nonterminals. */ static const char *const yytname[] = { "$end", "error", "$undefined", "NC_UNLIMITED_K", "BYTE_K", "CHAR_K", "SHORT_K", "LONG_K", "FLOAT_K", "DOUBLE_K", "IDENT", "TERMSTRING", "BYTE_CONST", "CHAR_CONST", "SHORT_CONST", "LONG_CONST", "FLOAT_CONST", "DOUBLE_CONST", "DIMENSIONS", "VARIABLES", "NETCDF", "DATA", "'{'", "'}'", "';'", "','", "'='", "'('", "')'", "':'", "$accept", "ncdesc", "@1", "@2", "@3", "dimsection", "dimdecls", "dimdecline", "dimdecl", "dimd", "dim", "vasection", "vadecls", "vadecl", "vardecl", "type", "varlist", "varspec", "@4", "var", "dimspec", "dimlist", "vdim", "attdecl", "@5", "att", "avar", "attr", "attvallist", "aconst", "attconst", "datasection", "datadecls", "datadecl", "@6", "constlist", "dconst", "@7", "const", 0 }; #endif # ifdef YYPRINT /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to token YYLEX-NUM. */ static const yytype_uint16 yytoknum[] = { 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 123, 125, 59, 44, 61, 40, 41, 58 }; # endif /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ static const yytype_uint8 yyr1[] = { 0, 30, 32, 33, 34, 31, 35, 35, 36, 36, 37, 37, 38, 38, 39, 40, 41, 41, 42, 42, 43, 43, 44, 45, 45, 45, 45, 45, 45, 46, 46, 48, 47, 49, 50, 50, 51, 51, 52, 54, 53, 55, 55, 56, 57, 58, 58, 59, 60, 60, 60, 60, 60, 60, 60, 61, 61, 62, 62, 64, 63, 65, 65, 67, 66, 68, 68, 68, 68, 68, 68, 68 }; /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ static const yytype_uint8 yyr2[] = { 0, 2, 0, 0, 0, 9, 0, 2, 2, 3, 1, 3, 3, 3, 1, 1, 0, 2, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 0, 3, 1, 0, 3, 1, 3, 1, 0, 4, 3, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 2, 3, 0, 4, 1, 3, 0, 2, 1, 1, 1, 1, 1, 1, 1 }; /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state STATE-NUM when YYTABLE doesn't specify something else to do. Zero means the default is an error. */ static const yytype_uint8 yydefact[] = { 0, 0, 0, 2, 1, 6, 0, 3, 15, 7, 0, 10, 0, 14, 16, 0, 8, 0, 0, 0, 4, 9, 11, 13, 12, 23, 24, 25, 26, 27, 28, 33, 0, 17, 0, 20, 0, 43, 21, 39, 0, 55, 44, 42, 0, 18, 22, 29, 31, 0, 0, 0, 0, 19, 0, 34, 0, 41, 59, 56, 0, 5, 30, 0, 32, 49, 50, 48, 51, 52, 53, 54, 40, 45, 47, 0, 0, 57, 38, 0, 36, 0, 63, 58, 0, 35, 46, 60, 61, 0, 37, 63, 66, 67, 65, 68, 69, 70, 71, 64, 62 }; /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int8 yydefgoto[] = { -1, 2, 5, 14, 41, 7, 9, 10, 11, 12, 13, 20, 33, 34, 35, 36, 46, 47, 55, 37, 64, 79, 80, 38, 49, 39, 40, 43, 72, 73, 74, 52, 59, 60, 75, 87, 88, 89, 99 }; /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ #define YYPACT_NINF -57 static const yytype_int8 yypact[] = { 7, -2, 38, -57, -57, 21, 30, -57, -57, 30, -1, -57, 15, -57, 23, 12, -57, 30, 6, -4, -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, 33, -4, 20, -57, 35, -57, -57, -57, 17, 26, -57, -57, 24, -57, 25, -57, -57, 27, 33, 35, 28, -57, 35, 22, 0, -57, -57, 35, 31, -57, -57, 30, -57, -57, -57, -57, -57, -57, -57, -57, 29, -57, -57, 32, 36, -57, -57, -6, -57, 0, -57, -57, 30, -57, -57, 34, -57, 18, -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, -57 }; /* YYPGOTO[NTERM-NUM]. */ static const yytype_int8 yypgoto[] = { -57, -57, -57, -57, -57, -57, -57, 43, 39, -57, -56, -57, -57, 37, -57, -57, -57, 3, -57, -28, -57, -57, -23, -57, -57, -57, -41, 13, -57, -19, -57, -57, -57, 5, -57, -57, -26, -57, -57 }; /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule which number is the opposite. If zero, do what YYDEFACT says. If YYTABLE_NINF, syntax error. */ #define YYTABLE_NINF -1 static const yytype_uint8 yytable[] = { 25, 26, 27, 28, 29, 30, 31, 78, 48, 23, 58, 65, 66, 67, 68, 69, 70, 71, 58, 84, 3, 24, 85, 16, 17, 32, 48, 1, 78, 92, 93, 94, 95, 96, 97, 98, 21, 17, 4, 6, 8, 18, 19, 42, 45, 31, 50, 51, 53, 63, 54, 61, 15, 56, 81, 77, 22, 62, 82, 91, 83, 90, 86, 57, 76, 100, 0, 0, 0, 0, 44 }; static const yytype_int8 yycheck[] = { 4, 5, 6, 7, 8, 9, 10, 63, 36, 3, 51, 11, 12, 13, 14, 15, 16, 17, 59, 25, 22, 15, 28, 24, 25, 29, 54, 20, 84, 11, 12, 13, 14, 15, 16, 17, 24, 25, 0, 18, 10, 26, 19, 10, 24, 10, 29, 21, 24, 27, 25, 23, 9, 26, 25, 24, 17, 54, 26, 25, 24, 84, 81, 50, 59, 91, -1, -1, -1, -1, 33 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ static const yytype_uint8 yystos[] = { 0, 20, 31, 22, 0, 32, 18, 35, 10, 36, 37, 38, 39, 40, 33, 37, 24, 25, 26, 19, 41, 24, 38, 3, 15, 4, 5, 6, 7, 8, 9, 10, 29, 42, 43, 44, 45, 49, 53, 55, 56, 34, 10, 57, 43, 24, 46, 47, 49, 54, 29, 21, 61, 24, 25, 48, 26, 57, 56, 62, 63, 23, 47, 27, 50, 11, 12, 13, 14, 15, 16, 17, 58, 59, 60, 64, 63, 24, 40, 51, 52, 25, 26, 24, 25, 28, 59, 65, 66, 67, 52, 25, 11, 12, 13, 14, 15, 16, 17, 68, 66 }; #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY (-2) #define YYEOF 0 #define YYACCEPT goto yyacceptlab #define YYABORT goto yyabortlab #define YYERROR goto yyerrorlab /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(Token, Value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { \ yychar = (Token); \ yylval = (Value); \ yytoken = YYTRANSLATE (yychar); \ YYPOPSTACK (1); \ goto yybackup; \ } \ else \ { \ yyerror (YY_("syntax error: cannot back up")); \ YYERROR; \ } \ while (YYID (0)) #define YYTERROR 1 #define YYERRCODE 256 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. If N is 0, then set CURRENT to the empty location which ends the previous symbol: RHS[0] (always defined). */ #define YYRHSLOC(Rhs, K) ((Rhs)[K]) #ifndef YYLLOC_DEFAULT # define YYLLOC_DEFAULT(Current, Rhs, N) \ do \ if (YYID (N)) \ { \ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ } \ else \ { \ (Current).first_line = (Current).last_line = \ YYRHSLOC (Rhs, 0).last_line; \ (Current).first_column = (Current).last_column = \ YYRHSLOC (Rhs, 0).last_column; \ } \ while (YYID (0)) #endif /* YY_LOCATION_PRINT -- Print the location on the stream. This macro was not mandated originally: define only if we know we won't break user code: when these are the locations we know. */ #ifndef YY_LOCATION_PRINT # if YYLTYPE_IS_TRIVIAL # define YY_LOCATION_PRINT(File, Loc) \ fprintf (File, "%d.%d-%d.%d", \ (Loc).first_line, (Loc).first_column, \ (Loc).last_line, (Loc).last_column) # else # define YY_LOCATION_PRINT(File, Loc) ((void) 0) # endif #endif /* YYLEX -- calling `yylex' with the right arguments. */ #ifdef YYLEX_PARAM # define YYLEX yylex (YYLEX_PARAM) #else # define YYLEX yylex () #endif /* Enable debugging if requested. */ #if YYDEBUG # ifndef YYFPRINTF # include /* INFRINGES ON USER NAME SPACE */ # define YYFPRINTF fprintf # endif # define YYDPRINTF(Args) \ do { \ if (yydebug) \ YYFPRINTF Args; \ } while (YYID (0)) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ do { \ if (yydebug) \ { \ YYFPRINTF (stderr, "%s ", Title); \ yy_symbol_print (stderr, \ Type, Value); \ YYFPRINTF (stderr, "\n"); \ } \ } while (YYID (0)) /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ /*ARGSUSED*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) #else static void yy_symbol_value_print (yyoutput, yytype, yyvaluep) FILE *yyoutput; int yytype; YYSTYPE const * const yyvaluep; #endif { if (!yyvaluep) return; # ifdef YYPRINT if (yytype < YYNTOKENS) YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); # else YYUSE (yyoutput); # endif switch (yytype) { default: break; } } /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) #else static void yy_symbol_print (yyoutput, yytype, yyvaluep) FILE *yyoutput; int yytype; YYSTYPE const * const yyvaluep; #endif { if (yytype < YYNTOKENS) YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); else YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); yy_symbol_value_print (yyoutput, yytype, yyvaluep); YYFPRINTF (yyoutput, ")"); } /*------------------------------------------------------------------. | yy_stack_print -- Print the state stack from its BOTTOM up to its | | TOP (included). | `------------------------------------------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_stack_print (yytype_int16 *bottom, yytype_int16 *top) #else static void yy_stack_print (bottom, top) yytype_int16 *bottom; yytype_int16 *top; #endif { YYFPRINTF (stderr, "Stack now"); for (; bottom <= top; ++bottom) YYFPRINTF (stderr, " %d", *bottom); YYFPRINTF (stderr, "\n"); } # define YY_STACK_PRINT(Bottom, Top) \ do { \ if (yydebug) \ yy_stack_print ((Bottom), (Top)); \ } while (YYID (0)) /*------------------------------------------------. | Report that the YYRULE is going to be reduced. | `------------------------------------------------*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yy_reduce_print (YYSTYPE *yyvsp, int yyrule) #else static void yy_reduce_print (yyvsp, yyrule) YYSTYPE *yyvsp; int yyrule; #endif { int yynrhs = yyr2[yyrule]; int yyi; unsigned long int yylno = yyrline[yyrule]; YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", yyrule - 1, yylno); /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { fprintf (stderr, " $%d = ", yyi + 1); yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], &(yyvsp[(yyi + 1) - (yynrhs)]) ); fprintf (stderr, "\n"); } } # define YY_REDUCE_PRINT(Rule) \ do { \ if (yydebug) \ yy_reduce_print (yyvsp, Rule); \ } while (YYID (0)) /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ int yydebug; #else /* !YYDEBUG */ # define YYDPRINTF(Args) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) # define YY_STACK_PRINT(Bottom, Top) # define YY_REDUCE_PRINT(Rule) #endif /* !YYDEBUG */ /* YYINITDEPTH -- initial size of the parser's stacks. */ #ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only if the built-in stack extension method is used). Do not make this value too large; the results are undefined if YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) evaluated with infinite-precision integer arithmetic. */ #ifndef YYMAXDEPTH # define YYMAXDEPTH 10000 #endif #if YYERROR_VERBOSE # ifndef yystrlen # if defined __GLIBC__ && defined _STRING_H # define yystrlen strlen # else /* Return the length of YYSTR. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static YYSIZE_T yystrlen (const char *yystr) #else static YYSIZE_T yystrlen (yystr) const char *yystr; #endif { YYSIZE_T yylen; for (yylen = 0; yystr[yylen]; yylen++) continue; return yylen; } # endif # endif # ifndef yystpcpy # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE # define yystpcpy stpcpy # else /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in YYDEST. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static char * yystpcpy (char *yydest, const char *yysrc) #else static char * yystpcpy (yydest, yysrc) char *yydest; const char *yysrc; #endif { char *yyd = yydest; const char *yys = yysrc; while ((*yyd++ = *yys++) != '\0') continue; return yyd - 1; } # endif # endif # ifndef yytnamerr /* Copy to YYRES the contents of YYSTR after stripping away unnecessary quotes and backslashes, so that it's suitable for yyerror. The heuristic is that double-quoting is unnecessary unless the string contains an apostrophe, a comma, or backslash (other than backslash-backslash). YYSTR is taken from yytname. If YYRES is null, do not copy; instead, return the length of what the result would have been. */ static YYSIZE_T yytnamerr (char *yyres, const char *yystr) { if (*yystr == '"') { YYSIZE_T yyn = 0; char const *yyp = yystr; for (;;) switch (*++yyp) { case '\'': case ',': goto do_not_strip_quotes; case '\\': if (*++yyp != '\\') goto do_not_strip_quotes; /* Fall through. */ default: if (yyres) yyres[yyn] = *yyp; yyn++; break; case '"': if (yyres) yyres[yyn] = '\0'; return yyn; } do_not_strip_quotes: ; } if (! yyres) return yystrlen (yystr); return yystpcpy (yyres, yystr) - yyres; } # endif /* Copy into YYRESULT an error message about the unexpected token YYCHAR while in state YYSTATE. Return the number of bytes copied, including the terminating null byte. If YYRESULT is null, do not copy anything; just return the number of bytes that would be copied. As a special case, return 0 if an ordinary "syntax error" message will do. Return YYSIZE_MAXIMUM if overflow occurs during size calculation. */ static YYSIZE_T yysyntax_error (char *yyresult, int yystate, int yychar) { int yyn = yypact[yystate]; if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) return 0; else { int yytype = YYTRANSLATE (yychar); YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]); YYSIZE_T yysize = yysize0; YYSIZE_T yysize1; int yysize_overflow = 0; enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; int yyx; # if 0 /* This is so xgettext sees the translatable formats that are constructed on the fly. */ YY_("syntax error, unexpected %s"); YY_("syntax error, unexpected %s, expecting %s"); YY_("syntax error, unexpected %s, expecting %s or %s"); YY_("syntax error, unexpected %s, expecting %s or %s or %s"); YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"); # endif char *yyfmt; char const *yyf; static char const yyunexpected[] = "syntax error, unexpected %s"; static char const yyexpecting[] = ", expecting %s"; static char const yyor[] = " or %s"; char yyformat[sizeof yyunexpected + sizeof yyexpecting - 1 + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2) * (sizeof yyor - 1))]; char const *yyprefix = yyexpecting; /* Start YYX at -YYN if negative to avoid negative indexes in YYCHECK. */ int yyxbegin = yyn < 0 ? -yyn : 0; /* Stay within bounds of both yycheck and yytname. */ int yychecklim = YYLAST - yyn + 1; int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; int yycount = 1; yyarg[0] = yytname[yytype]; yyfmt = yystpcpy (yyformat, yyunexpected); for (yyx = yyxbegin; yyx < yyxend; ++yyx) if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) { if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) { yycount = 1; yysize = yysize0; yyformat[sizeof yyunexpected - 1] = '\0'; break; } yyarg[yycount++] = yytname[yyx]; yysize1 = yysize + yytnamerr (0, yytname[yyx]); yysize_overflow |= (yysize1 < yysize); yysize = yysize1; yyfmt = yystpcpy (yyfmt, yyprefix); yyprefix = yyor; } yyf = YY_(yyformat); yysize1 = yysize + yystrlen (yyf); yysize_overflow |= (yysize1 < yysize); yysize = yysize1; if (yysize_overflow) return YYSIZE_MAXIMUM; if (yyresult) { /* Avoid sprintf, as that infringes on the user's name space. Don't have undefined behavior even if the translation produced a string with the wrong number of "%s"s. */ char *yyp = yyresult; int yyi = 0; while ((*yyp = *yyf) != '\0') { if (*yyp == '%' && yyf[1] == 's' && yyi < yycount) { yyp += yytnamerr (yyp, yyarg[yyi++]); yyf += 2; } else { yyp++; yyf++; } } } return yysize; } } #endif /* YYERROR_VERBOSE */ /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ /*ARGSUSED*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) #else static void yydestruct (yymsg, yytype, yyvaluep) const char *yymsg; int yytype; YYSTYPE *yyvaluep; #endif { YYUSE (yyvaluep); if (!yymsg) yymsg = "Deleting"; YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); switch (yytype) { default: break; } } /* Prevent warnings from -Wmissing-prototypes. */ #ifdef YYPARSE_PARAM #if defined __STDC__ || defined __cplusplus int yyparse (void *YYPARSE_PARAM); #else int yyparse (); #endif #else /* ! YYPARSE_PARAM */ #if defined __STDC__ || defined __cplusplus int yyparse (void); #else int yyparse (); #endif #endif /* ! YYPARSE_PARAM */ /* The look-ahead symbol. */ int yychar; /* The semantic value of the look-ahead symbol. */ YYSTYPE yylval; /* Number of syntax errors so far. */ int yynerrs; /*----------. | yyparse. | `----------*/ #ifdef YYPARSE_PARAM #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) int yyparse (void *YYPARSE_PARAM) #else int yyparse (YYPARSE_PARAM) void *YYPARSE_PARAM; #endif #else /* ! YYPARSE_PARAM */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) int yyparse (void) #else int yyparse () #endif #endif { int yystate; int yyn; int yyresult; /* Number of tokens to shift before error messages enabled. */ int yyerrstatus; /* Look-ahead token as an internal (translated) token number. */ int yytoken = 0; #if YYERROR_VERBOSE /* Buffer for error messages, and its allocated size. */ char yymsgbuf[128]; char *yymsg = yymsgbuf; YYSIZE_T yymsg_alloc = sizeof yymsgbuf; #endif /* Three stacks and their tools: `yyss': related to states, `yyvs': related to semantic values, `yyls': related to locations. Refer to the stacks thru separate pointers, to allow yyoverflow to reallocate them elsewhere. */ /* The state stack. */ yytype_int16 yyssa[YYINITDEPTH]; yytype_int16 *yyss = yyssa; yytype_int16 *yyssp; /* The semantic value stack. */ YYSTYPE yyvsa[YYINITDEPTH]; YYSTYPE *yyvs = yyvsa; YYSTYPE *yyvsp; #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) YYSIZE_T yystacksize = YYINITDEPTH; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; /* The number of symbols on the RHS of the reduced rule. Keep to zero when no symbol should be popped. */ int yylen = 0; YYDPRINTF ((stderr, "Starting parse\n")); yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss; yyvsp = yyvs; goto yysetstate; /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | `------------------------------------------------------------*/ yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; yysetstate: *yyssp = yystate; if (yyss + yystacksize - 1 <= yyssp) { /* Get the current used size of the three stacks, in elements. */ YYSIZE_T yysize = yyssp - yyss + 1; #ifdef yyoverflow { /* Give user a chance to reallocate the stack. Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; yytype_int16 *yyss1 = yyss; /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow (YY_("memory exhausted"), &yyss1, yysize * sizeof (*yyssp), &yyvs1, yysize * sizeof (*yyvsp), &yystacksize); yyss = yyss1; yyvs = yyvs1; } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE goto yyexhaustedlab; # else /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) goto yyexhaustedlab; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) yystacksize = YYMAXDEPTH; { yytype_int16 *yyss1 = yyss; union yyalloc *yyptr = (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); if (! yyptr) goto yyexhaustedlab; YYSTACK_RELOCATE (yyss); YYSTACK_RELOCATE (yyvs); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); } # endif #endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; YYDPRINTF ((stderr, "Stack size increased to %lu\n", (unsigned long int) yystacksize)); if (yyss + yystacksize - 1 <= yyssp) YYABORT; } YYDPRINTF ((stderr, "Entering state %d\n", yystate)); goto yybackup; /*-----------. | yybackup. | `-----------*/ yybackup: /* Do appropriate processing given the current state. Read a look-ahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to look-ahead token. */ yyn = yypact[yystate]; if (yyn == YYPACT_NINF) goto yydefault; /* Not known => get a look-ahead token if don't already have one. */ /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ if (yychar == YYEMPTY) { YYDPRINTF ((stderr, "Reading a token: ")); yychar = YYLEX; } if (yychar <= YYEOF) { yychar = yytoken = YYEOF; YYDPRINTF ((stderr, "Now at end of input.\n")); } else { yytoken = YYTRANSLATE (yychar); YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } /* If the proper action on seeing token YYTOKEN is to reduce or to detect an error, take that action. */ yyn += yytoken; if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) goto yydefault; yyn = yytable[yyn]; if (yyn <= 0) { if (yyn == 0 || yyn == YYTABLE_NINF) goto yyerrlab; yyn = -yyn; goto yyreduce; } if (yyn == YYFINAL) YYACCEPT; /* Count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; /* Shift the look-ahead token. */ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); /* Discard the shifted token unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; yystate = yyn; *++yyvsp = yylval; goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ yyreduce: /* yyn is the number of a rule to reduce with. */ yylen = yyr2[yyn]; /* If YYLEN is nonzero, implement the default value of the action: `$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison users should not rely upon it. Assigning to YYVAL unconditionally makes the parser a bit smaller, and it avoids a GCC warning that YYVAL may be used uninitialized. */ yyval = yyvsp[1-yylen]; YY_REDUCE_PRINT (yyn); switch (yyn) { case 2: #line 103 "../../../hdf4/mfhdf/ncgen/ncgen.y" { init_netcdf(); } break; case 3: #line 105 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (ndims > H4_MAX_NC_DIMS) derror("Too many dimensions"); } break; case 4: #line 110 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (derror_count == 0) define_netcdf(netcdfname); } break; case 5: #line 116 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (derror_count == 0) close_netcdf(); } break; case 12: #line 131 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (long_val <= 0) derror("negative dimension size"); dims[ndims].size = long_val; ndims++; } break; case 13: #line 137 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (rec_dim != -1) derror("only one NC_UNLIMITED dimension allowed"); rec_dim = ndims; /* the unlimited (record) dimension */ dims[ndims].size = NC_UNLIMITED; ndims++; } break; case 14: #line 145 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if ((yyvsp[(1) - (1)])->is_dim == 1) { derror( "duplicate dimension declaration for %s", (yyvsp[(1) - (1)])->name); } (yyvsp[(1) - (1)])->is_dim = 1; (yyvsp[(1) - (1)])->dnum = ndims; dims[ndims].name = (char *) emalloc(strlen((yyvsp[(1) - (1)])->name)+1); (void) strcpy(dims[ndims].name, (yyvsp[(1) - (1)])->name); } break; case 23: #line 167 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_BYTE; } break; case 24: #line 168 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_CHAR; } break; case 25: #line 169 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_SHORT; } break; case 26: #line 170 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_LONG; } break; case 27: #line 171 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_FLOAT; } break; case 28: #line 172 "../../../hdf4/mfhdf/ncgen/ncgen.y" { type_code = NC_DOUBLE; } break; case 31: #line 178 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (nvars >= H4_MAX_NC_VARS) derror("too many variables"); nvdims = 0; /* make sure variable not re-declared */ if ((yyvsp[(1) - (1)])->is_var == 1) { derror( "duplicate variable declaration for %s", (yyvsp[(1) - (1)])->name); } (yyvsp[(1) - (1)])->is_var = 1; (yyvsp[(1) - (1)])->vnum = nvars; vars[nvars].name = (char *) emalloc(strlen((yyvsp[(1) - (1)])->name)+1); (void) strcpy(vars[nvars].name, (yyvsp[(1) - (1)])->name); vars[nvars].type = type_code; /* set default fill value. You can override this with * the variable attribute "_FillValue". */ nc_getfill(type_code, &vars[nvars].fill_value); vars[nvars].has_data = 0; /* has no data (yet) */ } break; case 32: #line 198 "../../../hdf4/mfhdf/ncgen/ncgen.y" { vars[nvars].ndims = nvdims; nvars++; } break; case 38: #line 212 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (nvdims >= H4_MAX_VAR_DIMS) { derror("%s has too many dimensions",vars[nvars].name); } if ((yyvsp[(1) - (1)])->is_dim == 1) dimnum = (yyvsp[(1) - (1)])->dnum; else { derror( "%s is not declared as a dimension", (yyvsp[(1) - (1)])->name); dimnum = ndims; } if (rec_dim != -1 && dimnum == rec_dim && nvdims != 0) { derror("unlimited dimension must be first"); } vars[nvars].dims[nvdims] = dimnum; nvdims++; } break; case 39: #line 231 "../../../hdf4/mfhdf/ncgen/ncgen.y" { valnum = 0; valtype = NC_UNSPECIFIED; /* get a large block for attributes, realloc later */ att_space = emalloc(H4_MAX_NC_ATTSIZE); /* make all kinds of pointers point to it */ char_valp = (char *) att_space; byte_valp = (char *) att_space; short_valp = (short *) att_space; long_valp = (nclong *) att_space; float_valp = (float *) att_space; double_valp = (double *) att_space; } break; case 40: #line 245 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (natts >= H4_MAX_NC_ATTRS) derror("too many attributes"); atts[natts].var = varnum ; atts[natts].type = valtype; atts[natts].len = valnum; /* shrink space down to what was really needed */ att_space = erealloc(att_space, valnum*nctypelen(valtype)); atts[natts].val = att_space; if (STREQ(atts[natts].name, _FillValue)) { nc_putfill(atts[natts].type, atts[natts].val, &vars[atts[natts].var].fill_value); } natts++; } break; case 42: #line 264 "../../../hdf4/mfhdf/ncgen/ncgen.y" { varnum = -1; /* handle of "global" attribute */ } break; case 43: #line 270 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if ((yyvsp[(1) - (1)])->is_var == 1) varnum = (yyvsp[(1) - (1)])->vnum; else { derror("%s not declared as a variable, fatal error", (yyvsp[(1) - (1)])->name); YYABORT; } } break; case 44: #line 280 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atts[natts].name = (char *) emalloc(strlen((yyvsp[(1) - (1)])->name)+1); (void) strcpy(atts[natts].name,(yyvsp[(1) - (1)])->name); } break; case 47: #line 289 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (valtype == NC_UNSPECIFIED) valtype = atype_code; if (valtype != atype_code) derror("values for attribute must be all of same type"); } break; case 48: #line 298 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_CHAR; *char_valp++ = char_val; valnum++; } break; case 49: #line 304 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_CHAR; { /* don't null-terminate attribute strings */ int len = strlen(termstring); valnum += len; (void)strncpy(char_valp,termstring,len); char_valp += len; } } break; case 50: #line 315 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_BYTE; *byte_valp++ = byte_val; valnum++; } break; case 51: #line 321 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_SHORT; *short_valp++ = short_val; valnum++; } break; case 52: #line 327 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_LONG; *long_valp++ = long_val; valnum++; } break; case 53: #line 333 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_FLOAT; *float_valp++ = float_val; valnum++; } break; case 54: #line 339 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_DOUBLE; *double_valp++ = double_val; valnum++; } break; case 59: #line 354 "../../../hdf4/mfhdf/ncgen/ncgen.y" { valtype = vars[varnum].type; /* variable type */ valnum = 0; /* values accumulated for variable */ vars[varnum].has_data = 1; /* compute dimensions product (size of a "record") */ var_size = nctypelen(valtype); if (vars[varnum].ndims == 0) var_len = 1; else if (vars[varnum].dims[0] == rec_dim) { var_len = 1; /* one record for unlimited vars */ netcdf_record_number = 0; } else var_len = dims[vars[varnum].dims[0]].size; for(dimnum = 1; dimnum < vars[varnum].ndims; dimnum++) var_len = var_len*dims[vars[varnum].dims[dimnum]].size; /* allocate memory for a record of variable data */ if (var_len*var_size != (unsigned)(var_len*var_size)) { derror("too much data for this machine"); exit(9); } rec_start = malloc ((unsigned)(var_len*var_size)); if (rec_start == 0) { derror ("out of memory\n"); exit(3); } rec_cur = rec_start; switch (valtype) { case NC_CHAR: char_valp = (char *) rec_start; break; case NC_BYTE: byte_valp = (char *) rec_start; break; case NC_SHORT: short_valp = (short *) rec_start; break; case NC_LONG: long_valp = (nclong *) rec_start; break; case NC_FLOAT: float_valp = (float *) rec_start; break; case NC_DOUBLE: double_valp = (double *) rec_start; break; } } break; case 60: #line 403 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (valnum > 0 && valnum < var_len) { /* leftovers */ nc_fill(valtype, var_len - valnum, rec_cur, vars[varnum].fill_value); /* put out record of var_len values */ if (derror_count == 0) put_variable(rec_start); } free ((char *) rec_start); } break; case 63: #line 420 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if(valnum >= var_len) { derror("too many values for this variable"); exit (4); } not_a_string = 1; } break; case 64: #line 428 "../../../hdf4/mfhdf/ncgen/ncgen.y" { if (not_a_string) { switch (valtype) { case NC_CHAR: rec_cur = (void *) char_valp; break; case NC_BYTE: rec_cur = (void *) byte_valp; break; case NC_SHORT: rec_cur = (void *) short_valp; break; case NC_LONG: rec_cur = (void *) long_valp; break; case NC_FLOAT: rec_cur = (void *) float_valp; break; case NC_DOUBLE: rec_cur = (void *) double_valp; break; } } if (valnum >= var_len) { /* put out record of var_len elements */ if (derror_count == 0) put_variable(rec_start); /* if this variable is unbounded, reset for */ /* next record */ if (vars[varnum].dims[0] == rec_dim) { valnum = 0; netcdf_record_number++; rec_cur = rec_start; switch (valtype) { case NC_CHAR: char_valp = (char *) rec_start; break; case NC_BYTE: byte_valp = (char *) rec_start; break; case NC_SHORT: short_valp = (short *) rec_start; break; case NC_LONG: long_valp = (nclong *) rec_start; break; case NC_FLOAT: float_valp = (float *) rec_start; break; case NC_DOUBLE: double_valp = (double *) rec_start; break; } } } } break; case 65: #line 487 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_CHAR; switch (valtype) { case NC_CHAR: *char_valp++ = char_val; break; case NC_BYTE: *byte_valp++ = char_val; break; case NC_SHORT: *short_valp++ = char_val; break; case NC_LONG: *long_valp++ = char_val; break; case NC_FLOAT: *float_valp++ = char_val; break; case NC_DOUBLE: *double_valp++ = char_val; break; } valnum++; } break; case 66: #line 512 "../../../hdf4/mfhdf/ncgen/ncgen.y" { not_a_string = 0; atype_code = NC_CHAR; { int len = strlen(termstring); valnum += len; if(valnum > var_len) { derror("string won't fit in this variable"); exit (5); } switch (valtype) { case NC_CHAR: (void)strncpy(char_valp,termstring,len); char_valp += len; rec_cur = (void *) char_valp; break; case NC_BYTE: (void)strncpy(byte_valp,termstring,len); byte_valp += len; rec_cur = (void *) byte_valp; break; case NC_SHORT: case NC_LONG: case NC_FLOAT: case NC_DOUBLE: derror("string value invalid for %s variable", nctype(valtype)); break; } } } break; case 67: #line 545 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_BYTE; switch (valtype) { case NC_CHAR: *char_valp++ = byte_val; break; case NC_BYTE: *byte_valp++ = byte_val; break; case NC_SHORT: *short_valp++ = byte_val; break; case NC_LONG: *long_valp++ = byte_val; break; case NC_FLOAT: *float_valp++ = byte_val; break; case NC_DOUBLE: *double_valp++ = byte_val; break; } valnum++; } break; case 68: #line 570 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_SHORT; switch (valtype) { case NC_CHAR: *char_valp++ = short_val; break; case NC_BYTE: *byte_valp++ = short_val; break; case NC_SHORT: *short_valp++ = short_val; break; case NC_LONG: *long_valp++ = short_val; break; case NC_FLOAT: *float_valp++ = short_val; break; case NC_DOUBLE: *double_valp++ = short_val; break; } valnum++; } break; case 69: #line 595 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_LONG; switch (valtype) { case NC_CHAR: *char_valp++ = long_val; break; case NC_BYTE: *byte_valp++ = long_val; break; case NC_SHORT: *short_valp++ = long_val; break; case NC_LONG: *long_valp++ = long_val; break; case NC_FLOAT: *float_valp++ = long_val; break; case NC_DOUBLE: *double_valp++ = long_val; break; } valnum++; } break; case 70: #line 620 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_FLOAT; switch (valtype) { case NC_CHAR: *char_valp++ = float_val; break; case NC_BYTE: *byte_valp++ = float_val; break; case NC_SHORT: *short_valp++ = float_val; break; case NC_LONG: *long_valp++ = float_val; break; case NC_FLOAT: *float_valp++ = float_val; break; case NC_DOUBLE: *double_valp++ = float_val; break; } valnum++; } break; case 71: #line 645 "../../../hdf4/mfhdf/ncgen/ncgen.y" { atype_code = NC_DOUBLE; switch (valtype) { case NC_CHAR: *char_valp++ = double_val; break; case NC_BYTE: *byte_valp++ = double_val; break; case NC_SHORT: *short_valp++ = double_val; break; case NC_LONG: *long_valp++ = double_val; break; case NC_FLOAT: if (double_val == FILL_DOUBLE) *float_valp++ = FILL_FLOAT; else *float_valp++ = double_val; break; case NC_DOUBLE: *double_valp++ = double_val; break; } valnum++; } break; /* Line 1267 of yacc.c. */ #line 2130 "y.tab.c" default: break; } YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; /* Now `shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTOKENS]; goto yynewstate; /*------------------------------------. | yyerrlab -- here on detecting error | `------------------------------------*/ yyerrlab: /* If not already recovering from an error, report this error. */ if (!yyerrstatus) { ++yynerrs; #if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); #else { YYSIZE_T yysize = yysyntax_error (0, yystate, yychar); if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM) { YYSIZE_T yyalloc = 2 * yysize; if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM)) yyalloc = YYSTACK_ALLOC_MAXIMUM; if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); yymsg = (char *) YYSTACK_ALLOC (yyalloc); if (yymsg) yymsg_alloc = yyalloc; else { yymsg = yymsgbuf; yymsg_alloc = sizeof yymsgbuf; } } if (0 < yysize && yysize <= yymsg_alloc) { (void) yysyntax_error (yymsg, yystate, yychar); yyerror (yymsg); } else { yyerror (YY_("syntax error")); if (yysize != 0) goto yyexhaustedlab; } } #endif } if (yyerrstatus == 3) { /* If just tried and failed to reuse look-ahead token after an error, discard it. */ if (yychar <= YYEOF) { /* Return failure if at end of input. */ if (yychar == YYEOF) YYABORT; } else { yydestruct ("Error: discarding", yytoken, &yylval); yychar = YYEMPTY; } } /* Else will try to reuse look-ahead token after shifting the error token. */ goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ yyerrorlab: /* Pacify compilers like GCC when the user code never invokes YYERROR and the label yyerrorlab therefore never appears in user code. */ if (/*CONSTCOND*/ 0) goto yyerrorlab; /* Do not reclaim the symbols of the rule which action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: yyerrstatus = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact[yystate]; if (yyn != YYPACT_NINF) { yyn += YYTERROR; if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { yyn = yytable[yyn]; if (0 < yyn) break; } } /* Pop the current state because it cannot handle the error token. */ if (yyssp == yyss) YYABORT; yydestruct ("Error: popping", yystos[yystate], yyvsp); YYPOPSTACK (1); yystate = *yyssp; YY_STACK_PRINT (yyss, yyssp); } if (yyn == YYFINAL) YYACCEPT; *++yyvsp = yylval; /* Shift the error token. */ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); yystate = yyn; goto yynewstate; /*-------------------------------------. | yyacceptlab -- YYACCEPT comes here. | `-------------------------------------*/ yyacceptlab: yyresult = 0; goto yyreturn; /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; goto yyreturn; #ifndef yyoverflow /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; /* Fall through. */ #endif yyreturn: if (yychar != YYEOF && yychar != YYEMPTY) yydestruct ("Cleanup: discarding lookahead", yytoken, &yylval); /* Do not reclaim the symbols of the rule which action triggered this YYABORT or YYACCEPT. */ YYPOPSTACK (yylen); YY_STACK_PRINT (yyss, yyssp); while (yyssp != yyss) { yydestruct ("Cleanup: popping", yystos[*yyssp], yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif #if YYERROR_VERBOSE if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); #endif /* Make sure YYID is used. */ return YYID (yyresult); } #line 676 "../../../hdf4/mfhdf/ncgen/ncgen.y" /* PROGRAMS */ /* get lexical input routine generated by lex */ #include "ncgenyy.c" void derror(); yyerror(s) /* called for yacc syntax error */ char *s; { derror(s); } #ifndef yywrap int yywrap() /* returns 1 on EOF if no more input */ { return 1; } #endif /* yywrap() */ /* Symbol table operations for ncgen tool */ YYSTYPE lookup(sname) /* find sname in symbol table (linear search) */ char *sname; { YYSTYPE sp; for (sp = symlist; sp != (YYSTYPE) 0; sp = sp -> next) if (STREQ(sp -> name, sname)) { return sp; } return 0; /* 0 ==> not found */ } YYSTYPE install(sname) /* install sname in symbol table */ char *sname; { YYSTYPE sp; sp = (YYSTYPE) emalloc (sizeof (struct Symbol)); sp -> name = (char *) emalloc (strlen (sname) + 1);/* +1 for '\0' */ (void) strcpy (sp -> name, sname); sp -> next = symlist; /* put at front of list */ sp -> is_dim = 0; sp -> is_var = 0; sp -> is_att = 0; symlist = sp; return sp; } void clearout() /* reset symbol table to empty */ { YYSTYPE sp, tp; for (sp = symlist; sp != (YYSTYPE) 0;) { tp = sp -> next; free (sp -> name); free ((char *) sp); sp = tp; } symlist = 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/Makefile.am0000644000000000000000000000730112421456623015321 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am if HDF_BUILD_SHARED SHLIBLOC = $(top_builddir)/mfhdf/libsrc/.libs/libmfhdf.$(SHARED_EXTENSION) $(top_builddir)/hdf/src/.libs/libdf.$(SHARED_EXTENSION) else SHLIBLOC = $(top_builddir)/mfhdf/libsrc/.libs/libmfhdf.a $(top_builddir)/hdf/src/.libs/libdf.a endif ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add ncgen specific linker flags here ncgen_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = ncgen if HDF_BUILD_NETCDF if HDF_BUILD_FORTRAN noinst_PROGRAMS = ctest0 ftest0 else noinst_PROGRAMS = ctest0 endif else noinst_PROGRAMS = ctest0 endif ## Information for building the "ncgen" program ncgen_SOURCES = close.c escapes.c generate.c genlib.c getfill.c init.c \ load.c main.c ncgentab.c ncgen_LDADD = $(LIBMFHDF) $(LIBHDF) ncgen_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ctest0_SOURCES= ctest0_LDADD = $(LIBMFHDF) $(LIBHDF) ftest0_SOURCES= ## Recipe for building the ncgentab.c file ##ncgentab.c ncgentab.h: ncgen.h ncgen.y ncgenyy.c ## $(YACC) -d $(srcdir)/ncgen.y ## mv y.tab.c ncgentab.c ## mv y.tab.h ncgentab.h ##ncgenyy.c: ncgen.l ## $(LEX) $(srcdir)/ncgen.l ## mv lex.yy.c ncgenyy.c ############################################################################# ## Documentation ## ############################################################################# man1_MANS = ncgen.1 ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# NCDUMP=$(top_builddir)/mfhdf/ncdump/ncdump check_PROGRAMS = ctest0 if HDF_BUILD_NETCDF if HDF_BUILD_FORTRAN check_PROGRAMS += ftest0 netcdf.inc: ln -s $(top_builddir)/mfhdf/fortran/$@ . ftest0$(EXEEXT): ncgen$(EXEEXT) test0.cdl netcdf.inc $(TESTS_ENVIRONMENT) ./ncgen -f -o ftest0.nc $(srcdir)/test0.cdl > test0.f $(F77) $(FFLAGS) -o $@ test0.f $(LDFLAGS) $(SHLIBLOC) $(LIBS) endif endif ctest0$(EXEEXT): ncgen$(EXEEXT) $(srcdir)/test0.cdl $(TESTS_ENVIRONMENT) ./ncgen -c -o ctest0.nc $(srcdir)/test0.cdl > test0.c $(COMPILE) -c -o ctest0$(EXEEXT).o test0.c $(LINK) ctest0$(EXEEXT).o $(ctest0_LDADD) $(LDFLAGS) $(SHLIBLOC) $(LIBS) TEST_SCRIPT = testncgen.sh check_SCRIPTS = testncgen.sh ############################################################################# ## Miscellaneous ## ############################################################################# ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += ctest1.cdl ftest1.cdl \ test0.nc test1.cdl test1.nc test2.cdl DISTCLEANFILES = ctest0$(EXEEXT) ctest0.nc ftest0$(EXEEXT) ftest0.nc \ netcdf.inc test0.c test0.f include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/testncgen.sh.in0000755000000000000000000000577312421456623016236 0ustar #! /bin/sh # Tests for ncgen srcdir=@srcdir@ NCDUMP='../ncdump/ncdump' RM='rm -f' CMP='cmp -s' DIFF='diff -c' CP='cp' nerrors=0 verbose=yes # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All ncgen tests passed" else MESG 0 "ncgen tests failed: $nerrors" fi exit $nerrors } # Print a line-line message left justified in a field of 70 characters # beginning with the word "Testing". # TESTING() { SPACES=" " echo "Testing $* $SPACES" | cut -c1-70 | tr -d '\012' } bcheck() { ## Test the "-b" option of ncgen ${TESTS_ENVIRONMENT} ./ncgen -b test1.cdl ${TESTS_ENVIRONMENT} $NCDUMP test1.nc > test2.cdl $DIFF test1.cdl test2.cdl RET=$? if [ $RET -eq 0 ]; then echo "*** ncgen -b test successful ***" else echo "*** ncgen -b test failed ***" nerrors="`expr $nerrors + 1`" fi } ccheck() { ## Test the "-c" option of ncgen ${TESTS_ENVIRONMENT} ./ctest0 # tests `-c' option, creates ctest0.nc ${TESTS_ENVIRONMENT} $NCDUMP -n test1 ctest0.nc > ctest1.cdl $DIFF test1.cdl ctest1.cdl RET=$? if [ $RET -eq 0 ]; then echo "*** ncgen -c test successful ***" else echo "*** ncgen -c test failed ***" nerrors="`expr $nerrors + 1`" fi } fcheck() { ## Test the "-f" option of ncgen ${TESTS_ENVIRONMENT} ./ftest0 ${TESTS_ENVIRONMENT} $NCDUMP -n test1 ftest0.nc > ftest1.cdl $DIFF test1.cdl ftest1.cdl RET=$? if [ $RET -eq 0 ]; then echo "*** ncgen -f test successful ***" else echo "*** ncgen -f test failed (but roundoff differences are OK) ***" nerrors="`expr $nerrors + 1`" fi } # Run a test and print PASS or *FAIL*. If a test fails then increment # the `nerrors' global variable # RUN() { # create test files ${TESTS_ENVIRONMENT} ./ncgen -b -o test0.nc $srcdir/test0.cdl ${TESTS_ENVIRONMENT} $NCDUMP -n test1 test0.nc > test1.cdl # Run test. if [ $HDF_BUILD_NETCDF -ne 0 ]; then if [ $HDF_BUILD_FORTRAN -ne 0 ]; then bcheck ccheck fcheck else bcheck ccheck fi else bcheck ccheck fi } ############################################################################## ### T H E T E S T S ### ############################################################################## # Print a beginning banner MESG 0 "Running ncgen tests" # compare output RUN # End of test, return exit code FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/README0000644000000000000000000000203412421456623014143 0ustar This directory contains source code for ncgen, a netCDF utility that converts a CDL description of a netCDF file into a netCDF file, or that generates the C or FORTRAN source code required to create the netCDF file. Before compiling the sources in this directory, you must have already made the netCDF library from the ../src directory. For VMS, first make sure you have compiled [-.util]getopt.c, then type "@make". The make.com, make.opt, and *-vms files are for VMS only. For Microsoft MSDOS and OS/2 platforms, use the msoft.mk Makefile. To test ncgen, you should first make sure the appropriate FORTRAN jackets are compiled and installed in the netCDF library. Then "make test" will test creating a netCDF file from a test CDL file (in test0.cdl), creating the same netCDF file by generating C code and running it, and finally creating the same netCDF file by generating FORTRAN code and running it. If your FORTRAN compiler understands BYTE declarations, you can uncomment the byte declarations and data in test0.cdl before testing ncgen. libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgentab.h0000644000000000000000000000547712421456623015233 0ustar /* A Bison parser, made by GNU Bison 2.3. */ /* Skeleton interface for Bison's Yacc-like parsers in C Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 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, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ /* Tokens. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE /* Put the tokens into the symbol table, so that GDB and other debuggers know about them. */ enum yytokentype { NC_UNLIMITED_K = 258, BYTE_K = 259, CHAR_K = 260, SHORT_K = 261, LONG_K = 262, FLOAT_K = 263, DOUBLE_K = 264, IDENT = 265, TERMSTRING = 266, BYTE_CONST = 267, CHAR_CONST = 268, SHORT_CONST = 269, LONG_CONST = 270, FLOAT_CONST = 271, DOUBLE_CONST = 272, DIMENSIONS = 273, VARIABLES = 274, NETCDF = 275, DATA = 276 }; #endif /* Tokens. */ #define NC_UNLIMITED_K 258 #define BYTE_K 259 #define CHAR_K 260 #define SHORT_K 261 #define LONG_K 262 #define FLOAT_K 263 #define DOUBLE_K 264 #define IDENT 265 #define TERMSTRING 266 #define BYTE_CONST 267 #define CHAR_CONST 268 #define SHORT_CONST 269 #define LONG_CONST 270 #define FLOAT_CONST 271 #define DOUBLE_CONST 272 #define DIMENSIONS 273 #define VARIABLES 274 #define NETCDF 275 #define DATA 276 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef int YYSTYPE; # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 # define YYSTYPE_IS_TRIVIAL 1 #endif extern YYSTYPE yylval; libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/genlib.c0000644000000000000000000000357312421456623014700 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: genlib.c 3226 1997-11-05 19:41:13Z koziol $ *********************************************************************/ #include #include #ifndef NO_STDARG #include #else /* try varargs instead */ #include #endif /* !NO_STDARG */ #include "ncgen.h" #include "genlib.h" int lineno = 1; int derror_count = 0; /* * For logging error conditions. */ #ifndef NO_STDARG void derror(const char *fmt, ...) #else /*VARARGS1*/ void derror(fmt, va_alist) const char *fmt ; /* error-message printf-style format */ va_dcl /* variable number of error args, if any */ #endif /* !NO_STDARG */ { va_list args ; if (lineno == 1) (void) fprintf(stderr,"%s: %s: ", progname, cdlname); else (void) fprintf(stderr,"%s: %s line %d: ", progname, cdlname, lineno); #ifndef NO_STDARG va_start(args ,fmt) ; #else va_start(args) ; #endif /* !NO_STDARG */ (void) vfprintf(stderr,fmt,args) ; va_end(args) ; (void) fputc('\n',stderr) ; (void) fflush(stderr); /* to ensure log files are current */ derror_count++; } void * emalloc (size) /* check return from malloc */ int size; { void *p; if (size < 0) { derror ("negative arg to emalloc: %d", size); return 0; } p = (void *) malloc ((unsigned) size); if (p == 0) { derror ("out of memory\n"); exit(3); } return p; } void * erealloc (ptr,size) /* check return from realloc */ void *ptr; int size; { void *p; if (size < 0) { derror ("negative arg to realloc"); return 0; } p = (void *) realloc ((char *) ptr, (unsigned) size); if (p == 0) { derror ("out of memory"); exit(3); } return p; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgen.10000644000000000000000000003370512421456623014450 0ustar .\" $Id: ncgen.1 2365 1996-03-26 22:43:35Z georgev $ .TH NCGEN 1 "$Date: 1996-03-26 16:43:35 -0600 (Tue, 26 Mar 1996) $" "Printed: \n(yr-\n(mo-\n(dy" "UNIDATA UTILITIES" .SH NAME ncgen \- From a CDL file generate a netCDF file, a C program, or a Fortran program .SH SYNOPSIS .HP ncgen .nh \%[-b] \%[-c] \%[-f] \%[-n] \%[-o \fIoutput_file\fP] \%\fIinput_file\fP .hy .ft .SH DESCRIPTION \fBncgen\fP generates either a netCDF file, or C or Fortran source code to create a netCDF file. The input to \fBncgen\fP is a description of a netCDF file in a small language known as CDL (network Common Data form Language), described below. If no options are specified in invoking \fBncgen\fP, it merely checks the syntax of the input CDL file, producing error messages for any violations of CDL syntax. Other options can be used to create the corresponding netCDF file, to generate a C program that uses the netCDF C interface to create the netCDF file, or to generate a Fortran program that uses the netCDF Fortran interface to create the same netCDF file. .LP \fBncgen\fP may be used with the companion program \fBncdump\fP to perform some simple operations on netCDF files. For example, to rename a dimension in a netCDF file, use \fBncdump\fP to get a CDL version of the netCDF file, edit the CDL file to change the name of the dimensions, and use \fBncgen\fP to generate the corresponding netCDF file from the edited CDL file. .SH OPTIONS .IP "\fB-b\fP" Create a (binary) netCDF file. If the \fB-o\fP option is absent, a default file name will be constructed from the netCDF name (specified after the \fBnetcdf\fP keyword in the input) by appending the `.nc' extension. If a file already exists with the specified name, it will be overwritten. .IP "\fB-c\fP" Generate .B C source code that will create a netCDF file matching the netCDF specification. The C source code is written to standard output. .IP "\fB-f\fP" Generate .B Fortran source code that will create a netCDF file matching the netCDF specification. The Fortran source code is written to standard output. .IP "\fB-o\fP \fRoutputfile\fP" Name for the netCDF file created. If this option is specified, it implies the "\fB-b\fP" option. (This option is necessary because netCDF files cannot be written directly to standard output, since standard output is not seekable.) .IP "\fB-n\fP" Like \fB-b\fP option, except creates netCDF file with the obsolete `.cdf' extension instead of the `.nc' extension, in the absence of an output filename specified by the \fB-O\fP option. This option is only supported for backward compatibility. .SH EXAMPLES .LP Check the syntax of the CDL file `\fBfoo.cdl\fP': .RS .HP ncgen foo.cdl .RE .LP From the CDL file `\fBfoo.cdl\fP', generate an equivalent binary netCDF file named `\fBx.nc\fP': .RS .HP ncgen -o x.nc foo.cdl .RE .LP From the CDL file `\fBfoo.cdl\fP', generate a C program containing the netCDF function invocations necessary to create an equivalent binary netCDF file named `\fBx.nc\fP': .RS .HP ncgen -c -o x.nc foo.cdl .RE .LP .SH USAGE .SS "CDL Syntax Summary" .LP Below is an example of CDL syntax, describing a netCDF file with several named dimensions (lat, lon, and time), variables (Z, t, p, rh, lat, lon, time), variable attributes (units, long_name, valid_range, _FillValue), and some data. CDL keywords are in boldface. (This example is intended to illustrate the syntax; a real CDL file would have a more complete set of attributes so that the data would be more completely self-describing.) .RS .nf \fBnetcdf\fP foo { // an example netCDF specification in CDL \fBdimensions\fP: lat = 10, lon = 5, time = \fBunlimited\fP ; \fBvariables\fP: \fBlong\fP lat(lat), lon(lon), time(time); \fBfloat\fP Z(time,lat,lon), t(time,lat,lon); \fBdouble\fP p(time,lat,lon); \fBlong\fP rh(time,lat,lon); // variable attributes lat:long_name = "latitude"; lat:units = "degrees_north"; lon:long_name = "longitude"; lon:units = "degrees_east"; time:units = "seconds since 1992-1-1 00:00:00"; Z:units = "geopotential meters"; Z:valid_range = 0., 5000.; p:_FillValue = -9999.; rh:_FillValue = -1; \fBdata\fP: lat = 0, 10, 20, 30, 40, 50, 60, 70, 80, 90; lon = -140, -118, -96, -84, -52; } .fi .RE .LP All CDL statements are terminated by a semicolon. Spaces, tabs, and newlines can be used freely for readability. Comments may follow the characters `//' on any line. .LP A CDL description consists of three optional parts: \fIdimensions\fP, \fIvariables\fP, and \fIdata\fP, beginning with the keyword .BR dimensions: , .BR variables: , and .BR data , respectively. The variable part may contain \fIvariable declarations\fP and \fIattribute assignments\fP. .LP A netCDF \fIdimension\fP is used to define the shape of one or more of the multidimensional variables contained in the netCDF file. A netCDF dimension has a name and a size. At most one dimension in a netCDF file can have the \fBunlimited\fP size, which means a variable using this dimension can grow to any length (like a record number in a file). .LP A \fIvariable\fP represents a multidimensional array of values of the same type. A variable has a name, a data type, and a shape described by its list of dimensions. Each variable may also have associated \fIattributes\fP (see below) as well as data values. The name, data type, and shape of a variable are specified by its declaration in the \fIvariable\fP section of a CDL description. A variable may have the same name as a dimension; by convention such a variable is one-dimensional and contains coordinates of the dimension it names. Dimensions need not have corresponding variables. .LP A netCDF \fIattribute\fP contains information about a netCDF variable or about the whole netCDF dataset. Attributes are used to specify such properties as units, special values, maximum and minimum valid values, scaling factors, offsets, and parameters. Attribute information is represented by single values or arrays of values. For example, "units" is an attribute represented by a character array such as "celsius". An attribute has an associated variable, a name, a data type, a length, and a value. In contrast to variables that are intended for data, attributes are intended for metadata (data about data). .LP In CDL, an attribute is designated by a variable and attribute name, separated by `:'. It is possible to assign \fIglobal\fP attributes not associated with any variable to the netCDF as a whole by using `:' before the attribute name. The data type of an attribute in CDL is derived from the type of the value assigned to it. The length of an attribute is the number of data values assigned to it, or the number of characters in the character string assigned to it. Multiple values are assigned to non-character attributes by separating the values with commas. All values assigned to an attribute must be of the same type. .LP The names for CDL dimensions, variables, and attributes must begin with an alphabetic character or `_', and subsequent characters may be alphanumeric or `_' or `-'. .LP The optional \fIdata\fP section of a CDL specification is where netCDF variables may be initialized. The syntax of an initialization is simple: a variable name, an equals sign, and a comma-delimited list of constants (possibly separated by spaces, tabs and newlines) terminated with a semicolon. For multi-dimensional arrays, the last dimension varies fastest. Thus row-order rather than column order is used for matrices. If fewer values are supplied than are needed to fill a variable, it is extended with a type-dependent `fill value', which can be overridden by supplying a value for a distinguished variable attribute named `_FillValue'. The types of constants need not match the type declared for a variable; coercions are done to convert integers to floating point, for example. .SS "Primitive Data Types" .LP .RS .nf \fBchar\fP characters \fBbyte\fP 8-bit data \fBshort\fP 16-bit signed integers \fBlong\fP 32-bit signed integers \fBint\fP (synonymous with \fBlong\fP) \fBfloat\fP IEEE single precision floating point (32 bits) \fBreal\fP (synonymous with \fBfloat\fP) \fBdouble\fP IEEE double precision floating point (64 bits) .fi .RE .LP Except for the added data-type \fBbyte\fP and the lack of \fBunsigned\fP, CDL supports the same primitive data types as C. The names for the primitive data types are reserved words in CDL, so the names of variables, dimensions, and attributes must not be type names. In declarations, type names may be specified in either upper or lower case. .LP Bytes differ from characters in that they are intended to hold a full eight bits of data, and the zero byte has no special significance, as it does for character data. \fBncgen\fP converts \fBbyte\fP declarations to \fBchar\fP declarations in the output C code and to the nonstandard \fBBYTE\fP declaration in output Fortran code. .LP Shorts can hold values between -32768 and 32767. \fBncgen\fP converts \fBshort\fP declarations to \fBshort\fP declarations in the output C code and to the nonstandard \fBINTEGER*2\fP declaration in output Fortran code. .LP Longs can hold values between -2147483648 and 2147483647. \fBncgen\fP converts \fBlong\fP declarations to \fBlong\fP declarations in the output C code and to \fBINTEGER\fP declarations in output Fortran code. \fBint\fP and \fBinteger\fP are accepted as synonyms for \fBlong\fP in CDL declarations. Now that there are platforms with 64-bit representations for C longs, it may be better to use the \fBint\fP synonym to avoid confusion. .LP Floats can hold values between about -3.4+38 and 3.4+38. Their external representation is as 32-bit IEEE normalized single-precision floating point numbers. \fBncgen\fP converts \fBfloat\fP declarations to \fBfloat\fP declarations in the output C code and to \fBREAL\fP declarations in output Fortran code. \fBreal\fP is accepted as a synonym for \fBfloat\fP in CDL declarations. .LP Doubles can hold values between about -1.7+308 and 1.7+308. Their external representation is as 64-bit IEEE standard normalized double-precision floating point numbers. \fBncgen\fP converts \fBdouble\fP declarations to \fBdouble\fP declarations in the output C code and to \fBDOUBLE PRECISION\fP declarations in output Fortran code. .LP .SS "CDL Constants" .LP Constants assigned to attributes or variables may be of any of the basic netCDF types. The syntax for constants is similar to C syntax, except that type suffixes must be appended to shorts and floats to distinguish them from longs and doubles. .LP A \fIbyte\fP constant is represented by a single character or multiple character escape sequence enclosed in single quotes. For example, .RS .nf 'a' // ASCII `a' '\\0' // a zero byte '\\n' // ASCII newline character '\\33' // ASCII escape character (33 octal) '\\x2b' // ASCII plus (2b hex) '\\377' // 377 octal = 255 decimal, non-ASCII .fi .RE .LP Character constants are enclosed in double quotes. A character array may be represented as a string enclosed in double quotes. The usual C string escape conventions are honored. For example .RS .nf "a" // ASCII `a' "Two\\nlines\\n" // a 10-character string with two embedded newlines "a bell:\\007" // a string containing an ASCII bell .fi .RE Note that the netCDF character array "a" would fit in a one-element variable, since no terminating NULL character is assumed. However, a zero byte in a character array is interpreted as the end of the significant characters by the \fBncdump\fP program, following the C convention. Therefore, a NULL byte should not be embedded in a character string unless at the end: use the \fIbyte\fP data type instead for byte arrays that contain the zero byte. NetCDF and CDL have no string type, but only fixed-length character arrays, which may be multi-dimensional. .LP \fIshort\fP integer constants are intended for representing 16-bit signed quantities. The form of a \fIshort\fP constant is an integer constant with an `s' or `S' appended. If a \fIshort\fP constant begins with `0', it is interpreted as octal, except that if it begins with `0x', it is interpreted as a hexadecimal constant. For example: .RS .nf -2s // a short -2 0123s // octal 0x7ffs //hexadecimal .fi .RE .LP \fILong\fP integer constants are intended for representing 32-bit signed quantities. The form of a \fIlong\fP constant is an ordinary integer constant, although it is acceptable to append an optional `l' or `L'. If a \fIlong\fP constant begins with `0', it is interpreted as octal, except that if it begins with `0x', it is interpreted as a hexadecimal constant. Examples of valid \fIlong\fP constants include: .RS .nf -2 1234567890L 0123 // octal 0x7ff // hexadecimal .fi .RE .LP Floating point constants of type \fIfloat\fP are appropriate for representing floating point data with about seven significant digits of precision. The form of a \fIfloat\fP constant is the same as a C floating point constant with an `f' or `F' appended. For example the following are all acceptable \fIfloat\fP constants: .RS .nf -2.0f 3.14159265358979f // will be truncated to less precision 1.f .1f .fi .RE .LP Floating point constants of type \fIdouble\fP are appropriate for representing floating point data with about sixteen significant digits of precision. The form of a \fIdouble\fP constant is the same as a C floating point constant. An optional `d' or `D' may be appended. For example the following are all acceptable \fIdouble\fP constants: .RS .nf -2.0 3.141592653589793 1.0e-20 1.d .fi .RE .SH BUGS .LP The programs generated by \fBncgen\fP when using the \fB-c\fP or \fB-f\fP use initialization statements to store data in variables, and will fail to produce compilable programs if you try to use them for large datasets, since the resulting statements may exceed the line length or number of continuation statements permitted by the compiler. .LP The CDL syntax makes it easy to assign what looks like an array of variable-length strings to a netCDF variable, but the strings will simply be concatenated into a single array of characters, since netCDF cannot represent an array of variable-length strings in one netCDF variable. .LP NetCDF and CDL do not yet support a type corresponding to a 64-bit integer. libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgen.y0000644000000000000000000004636512421456623014566 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: ncgen.y 4928 2007-09-06 21:48:49Z epourmal $ *********************************************************************/ /* yacc source for "ncgen", a netCDL parser and netCDF generator */ %{ #ifndef lint static char SccsId[] = "$Id: ncgen.y 4928 2007-09-06 21:48:49Z epourmal $"; #endif #include #include #include "ncgen.h" typedef struct Symbol { /* symbol table entry */ char *name; struct Symbol *next; unsigned is_dim : 1; /* appears as netCDF dimension */ unsigned is_var : 1; /* appears as netCDF variable */ unsigned is_att : 1; /* appears as netCDF attribute */ int dnum; /* handle as a dimension */ int vnum; /* handle as a variable */ } *YYSTYPE1; #define YYSTYPE YYSTYPE1 YYSTYPE install(), lookup(); YYSTYPE symlist; /* symbol table: linked list */ void init_netcdf(); /* initializes netcdf counts (e.g. nvars) */ void define_netcdf(); /* generates all define mode stuff */ void load_netcdf(); /* generates variable puts */ void close_netcdf(); /* generates close */ void derror(); /* varargs message emitter */ void *emalloc(), *erealloc(); /* malloc that checks for memory exhausted */ void clearout(); /* initializes symbol table */ void nc_getfill(); /* to get fill value for various types */ void nc_putfill(); /* to get fill value for various types */ void nc_fill(); /* fills a generic array with a value */ int put_variable(); /* invoke nc calls or generate code to put */ /* variable values */ extern int derror_count; /* counts errors in netcdf definition */ extern int lineno; /* line number for error messages */ static int not_a_string; /* whether last constant read was a string */ static char termstring[MAXTRST]; /* last terminal string read */ static double double_val; /* last double value read */ static float float_val; /* last float value read */ static nclong long_val; /* last long value read */ static short short_val; /* last short value read */ static char char_val; /* last char value read */ static char byte_val; /* last byte value read */ static nc_type type_code; /* holds declared type for variables */ static nc_type atype_code; /* holds derived type for attributes */ static char *netcdfname; /* to construct netcdf file name */ static void *att_space; /* pointer to block for attribute values */ static nc_type valtype; /* type code for list of attribute values */ static char *char_valp; /* pointers used to accumulate data values */ static char *byte_valp; static short *short_valp; static nclong *long_valp; static float *float_valp; static double *double_valp; static void *rec_cur; /* pointer to where next data value goes */ static void *rec_start; /* start of space for a record of data */ %} /* DECLARATIONS */ %token NC_UNLIMITED_K /* keyword for unbounded record dimension */ BYTE_K /* keyword for byte datatype */ CHAR_K /* keyword for char datatype */ SHORT_K /* keyword for short datatype */ LONG_K /* keyword for long datatype */ FLOAT_K /* keyword for float datatype */ DOUBLE_K /* keyword for double datatype */ IDENT /* name for a dimension, variable, or attribute */ TERMSTRING /* terminal string */ BYTE_CONST /* byte constant */ CHAR_CONST /* char constant */ SHORT_CONST /* short constant */ LONG_CONST /* long constant */ FLOAT_CONST /* float constant */ DOUBLE_CONST /* double constant */ DIMENSIONS /* keyword starting dimensions section, if any */ VARIABLES /* keyword starting variables section, if any */ NETCDF /* keyword declaring netcdf name */ DATA /* keyword starting data section, if any */ %start ncdesc /* start symbol for grammar */ %% /* RULES */ ncdesc: NETCDF '{' { init_netcdf(); } dimsection /* dimension declarations */ { if (ndims > H4_MAX_NC_DIMS) derror("Too many dimensions"); } vasection /* variable and attribute declarations */ { if (derror_count == 0) define_netcdf(netcdfname); } datasection /* data, variables loaded as encountered */ '}' { if (derror_count == 0) close_netcdf(); } ; dimsection: /* empty */ | DIMENSIONS dimdecls ; dimdecls: dimdecline ';' | dimdecls dimdecline ';' ; dimdecline: dimdecl | dimdecline ',' dimdecl ; dimdecl: dimd '=' LONG_CONST { if (long_val <= 0) derror("negative dimension size"); dims[ndims].size = long_val; ndims++; } | dimd '=' NC_UNLIMITED_K { if (rec_dim != -1) derror("only one NC_UNLIMITED dimension allowed"); rec_dim = ndims; /* the unlimited (record) dimension */ dims[ndims].size = NC_UNLIMITED; ndims++; } ; dimd: dim { if ($1->is_dim == 1) { derror( "duplicate dimension declaration for %s", $1->name); } $1->is_dim = 1; $1->dnum = ndims; dims[ndims].name = (char *) emalloc(strlen($1->name)+1); (void) strcpy(dims[ndims].name, $1->name); } ; dim: IDENT ; vasection: /* empty */ | VARIABLES vadecls ; vadecls: vadecl ';' | vadecls vadecl ';' ; vadecl: vardecl | attdecl ; vardecl: type varlist ; type: BYTE_K { type_code = NC_BYTE; } | CHAR_K { type_code = NC_CHAR; } | SHORT_K { type_code = NC_SHORT; } | LONG_K { type_code = NC_LONG; } | FLOAT_K { type_code = NC_FLOAT; } | DOUBLE_K { type_code = NC_DOUBLE; } ; varlist: varspec | varlist ',' varspec ; varspec: var { if (nvars >= H4_MAX_NC_VARS) derror("too many variables"); nvdims = 0; /* make sure variable not re-declared */ if ($1->is_var == 1) { derror( "duplicate variable declaration for %s", $1->name); } $1->is_var = 1; $1->vnum = nvars; vars[nvars].name = (char *) emalloc(strlen($1->name)+1); (void) strcpy(vars[nvars].name, $1->name); vars[nvars].type = type_code; /* set default fill value. You can override this with * the variable attribute "_FillValue". */ nc_getfill(type_code, &vars[nvars].fill_value); vars[nvars].has_data = 0; /* has no data (yet) */ } dimspec { vars[nvars].ndims = nvdims; nvars++; } ; var: IDENT ; dimspec: /* empty */ | '(' dimlist ')' ; dimlist: vdim | dimlist ',' vdim ; vdim: dim { if (nvdims >= H4_MAX_VAR_DIMS) { derror("%s has too many dimensions",vars[nvars].name); } if ($1->is_dim == 1) dimnum = $1->dnum; else { derror( "%s is not declared as a dimension", $1->name); dimnum = ndims; } if (rec_dim != -1 && dimnum == rec_dim && nvdims != 0) { derror("unlimited dimension must be first"); } vars[nvars].dims[nvdims] = dimnum; nvdims++; } ; attdecl: att { valnum = 0; valtype = NC_UNSPECIFIED; /* get a large block for attributes, realloc later */ att_space = emalloc(H4_MAX_NC_ATTSIZE); /* make all kinds of pointers point to it */ char_valp = (char *) att_space; byte_valp = (char *) att_space; short_valp = (short *) att_space; long_valp = (nclong *) att_space; float_valp = (float *) att_space; double_valp = (double *) att_space; } '=' attvallist { if (natts >= H4_MAX_NC_ATTRS) derror("too many attributes"); atts[natts].var = varnum ; atts[natts].type = valtype; atts[natts].len = valnum; /* shrink space down to what was really needed */ att_space = erealloc(att_space, valnum*nctypelen(valtype)); atts[natts].val = att_space; if (STREQ(atts[natts].name, _FillValue)) { nc_putfill(atts[natts].type, atts[natts].val, &vars[atts[natts].var].fill_value); } natts++; } ; att: avar ':' attr | ':' attr { varnum = -1; /* handle of "global" attribute */ } ; avar: var { if ($1->is_var == 1) varnum = $1->vnum; else { derror("%s not declared as a variable, fatal error", $1->name); YYABORT; } } ; attr: IDENT { atts[natts].name = (char *) emalloc(strlen($1->name)+1); (void) strcpy(atts[natts].name,$1->name); } ; attvallist: aconst | attvallist ',' aconst ; aconst: attconst { if (valtype == NC_UNSPECIFIED) valtype = atype_code; if (valtype != atype_code) derror("values for attribute must be all of same type"); } ; attconst: CHAR_CONST { atype_code = NC_CHAR; *char_valp++ = char_val; valnum++; } | TERMSTRING { atype_code = NC_CHAR; { /* don't null-terminate attribute strings */ int len = strlen(termstring); valnum += len; (void)strncpy(char_valp,termstring,len); char_valp += len; } } | BYTE_CONST { atype_code = NC_BYTE; *byte_valp++ = byte_val; valnum++; } | SHORT_CONST { atype_code = NC_SHORT; *short_valp++ = short_val; valnum++; } | LONG_CONST { atype_code = NC_LONG; *long_valp++ = long_val; valnum++; } | FLOAT_CONST { atype_code = NC_FLOAT; *float_valp++ = float_val; valnum++; } | DOUBLE_CONST { atype_code = NC_DOUBLE; *double_valp++ = double_val; valnum++; } ; datasection: /* empty */ | DATA datadecls ; datadecls: datadecl ';' | datadecls datadecl ';' ; datadecl: avar { valtype = vars[varnum].type; /* variable type */ valnum = 0; /* values accumulated for variable */ vars[varnum].has_data = 1; /* compute dimensions product (size of a "record") */ var_size = nctypelen(valtype); if (vars[varnum].ndims == 0) var_len = 1; else if (vars[varnum].dims[0] == rec_dim) { var_len = 1; /* one record for unlimited vars */ netcdf_record_number = 0; } else var_len = dims[vars[varnum].dims[0]].size; for(dimnum = 1; dimnum < vars[varnum].ndims; dimnum++) var_len = var_len*dims[vars[varnum].dims[dimnum]].size; /* allocate memory for a record of variable data */ if (var_len*var_size != (unsigned)(var_len*var_size)) { derror("too much data for this machine"); exit(9); } rec_start = malloc ((unsigned)(var_len*var_size)); if (rec_start == 0) { derror ("out of memory\n"); exit(3); } rec_cur = rec_start; switch (valtype) { case NC_CHAR: char_valp = (char *) rec_start; break; case NC_BYTE: byte_valp = (char *) rec_start; break; case NC_SHORT: short_valp = (short *) rec_start; break; case NC_LONG: long_valp = (nclong *) rec_start; break; case NC_FLOAT: float_valp = (float *) rec_start; break; case NC_DOUBLE: double_valp = (double *) rec_start; break; } } '=' constlist { if (valnum > 0 && valnum < var_len) { /* leftovers */ nc_fill(valtype, var_len - valnum, rec_cur, vars[varnum].fill_value); /* put out record of var_len values */ if (derror_count == 0) put_variable(rec_start); } free ((char *) rec_start); } ; constlist: dconst | constlist ',' dconst ; dconst: { if(valnum >= var_len) { derror("too many values for this variable"); exit (4); } not_a_string = 1; } const { if (not_a_string) { switch (valtype) { case NC_CHAR: rec_cur = (void *) char_valp; break; case NC_BYTE: rec_cur = (void *) byte_valp; break; case NC_SHORT: rec_cur = (void *) short_valp; break; case NC_LONG: rec_cur = (void *) long_valp; break; case NC_FLOAT: rec_cur = (void *) float_valp; break; case NC_DOUBLE: rec_cur = (void *) double_valp; break; } } if (valnum >= var_len) { /* put out record of var_len elements */ if (derror_count == 0) put_variable(rec_start); /* if this variable is unbounded, reset for */ /* next record */ if (vars[varnum].dims[0] == rec_dim) { valnum = 0; netcdf_record_number++; rec_cur = rec_start; switch (valtype) { case NC_CHAR: char_valp = (char *) rec_start; break; case NC_BYTE: byte_valp = (char *) rec_start; break; case NC_SHORT: short_valp = (short *) rec_start; break; case NC_LONG: long_valp = (nclong *) rec_start; break; case NC_FLOAT: float_valp = (float *) rec_start; break; case NC_DOUBLE: double_valp = (double *) rec_start; break; } } } } ; const: CHAR_CONST { atype_code = NC_CHAR; switch (valtype) { case NC_CHAR: *char_valp++ = char_val; break; case NC_BYTE: *byte_valp++ = char_val; break; case NC_SHORT: *short_valp++ = char_val; break; case NC_LONG: *long_valp++ = char_val; break; case NC_FLOAT: *float_valp++ = char_val; break; case NC_DOUBLE: *double_valp++ = char_val; break; } valnum++; } | TERMSTRING { not_a_string = 0; atype_code = NC_CHAR; { int len = strlen(termstring); valnum += len; if(valnum > var_len) { derror("string won't fit in this variable"); exit (5); } switch (valtype) { case NC_CHAR: (void)strncpy(char_valp,termstring,len); char_valp += len; rec_cur = (void *) char_valp; break; case NC_BYTE: (void)strncpy(byte_valp,termstring,len); byte_valp += len; rec_cur = (void *) byte_valp; break; case NC_SHORT: case NC_LONG: case NC_FLOAT: case NC_DOUBLE: derror("string value invalid for %s variable", nctype(valtype)); break; } } } | BYTE_CONST { atype_code = NC_BYTE; switch (valtype) { case NC_CHAR: *char_valp++ = byte_val; break; case NC_BYTE: *byte_valp++ = byte_val; break; case NC_SHORT: *short_valp++ = byte_val; break; case NC_LONG: *long_valp++ = byte_val; break; case NC_FLOAT: *float_valp++ = byte_val; break; case NC_DOUBLE: *double_valp++ = byte_val; break; } valnum++; } | SHORT_CONST { atype_code = NC_SHORT; switch (valtype) { case NC_CHAR: *char_valp++ = short_val; break; case NC_BYTE: *byte_valp++ = short_val; break; case NC_SHORT: *short_valp++ = short_val; break; case NC_LONG: *long_valp++ = short_val; break; case NC_FLOAT: *float_valp++ = short_val; break; case NC_DOUBLE: *double_valp++ = short_val; break; } valnum++; } | LONG_CONST { atype_code = NC_LONG; switch (valtype) { case NC_CHAR: *char_valp++ = long_val; break; case NC_BYTE: *byte_valp++ = long_val; break; case NC_SHORT: *short_valp++ = long_val; break; case NC_LONG: *long_valp++ = long_val; break; case NC_FLOAT: *float_valp++ = long_val; break; case NC_DOUBLE: *double_valp++ = long_val; break; } valnum++; } | FLOAT_CONST { atype_code = NC_FLOAT; switch (valtype) { case NC_CHAR: *char_valp++ = float_val; break; case NC_BYTE: *byte_valp++ = float_val; break; case NC_SHORT: *short_valp++ = float_val; break; case NC_LONG: *long_valp++ = float_val; break; case NC_FLOAT: *float_valp++ = float_val; break; case NC_DOUBLE: *double_valp++ = float_val; break; } valnum++; } | DOUBLE_CONST { atype_code = NC_DOUBLE; switch (valtype) { case NC_CHAR: *char_valp++ = double_val; break; case NC_BYTE: *byte_valp++ = double_val; break; case NC_SHORT: *short_valp++ = double_val; break; case NC_LONG: *long_valp++ = double_val; break; case NC_FLOAT: if (double_val == FILL_DOUBLE) *float_valp++ = FILL_FLOAT; else *float_valp++ = double_val; break; case NC_DOUBLE: *double_valp++ = double_val; break; } valnum++; } ; /* END OF RULES */ %% /* PROGRAMS */ /* get lexical input routine generated by lex */ #include "ncgenyy.c" void derror(); yyerror(s) /* called for yacc syntax error */ char *s; { derror(s); } #ifndef yywrap int yywrap() /* returns 1 on EOF if no more input */ { return 1; } #endif /* yywrap() */ /* Symbol table operations for ncgen tool */ YYSTYPE lookup(sname) /* find sname in symbol table (linear search) */ char *sname; { YYSTYPE sp; for (sp = symlist; sp != (YYSTYPE) 0; sp = sp -> next) if (STREQ(sp -> name, sname)) { return sp; } return 0; /* 0 ==> not found */ } YYSTYPE install(sname) /* install sname in symbol table */ char *sname; { YYSTYPE sp; sp = (YYSTYPE) emalloc (sizeof (struct Symbol)); sp -> name = (char *) emalloc (strlen (sname) + 1);/* +1 for '\0' */ (void) strcpy (sp -> name, sname); sp -> next = symlist; /* put at front of list */ sp -> is_dim = 0; sp -> is_var = 0; sp -> is_att = 0; symlist = sp; return sp; } void clearout() /* reset symbol table to empty */ { YYSTYPE sp, tp; for (sp = symlist; sp != (YYSTYPE) 0;) { tp = sp -> next; free (sp -> name); free ((char *) sp); sp = tp; } symlist = 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/init.c0000644000000000000000000000303612421456623014375 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: init.c 4928 2007-09-06 21:48:49Z epourmal $ *********************************************************************/ #include #include "ncgen.h" #include "genlib.h" extern int netcdf_flag; extern int c_flag; extern int fortran_flag; struct dims dims[H4_MAX_NC_DIMS]; /* table of netcdf dimensions */ int ncid; /* handle for netCDF */ int ndims; /* number of dimensions declared for netcdf */ int nvars; /* number of variables declared for netcdf */ int natts; /* number of attributes */ int nvdims; /* number of dimensions for variables */ int dimnum; /* dimension number index for variables */ int varnum; /* variable number index for attributes */ int valnum; /* value number index for attributes */ int rec_dim; /* number of the unlimited dimension, if any */ long var_len; /* variable length (product of dimensions) */ int var_size; /* size of each element of variable */ long netcdf_record_number; /* current record number for variables */ struct vars vars[H4_MAX_NC_VARS]; /* should be a malloc'ed list, not an array */ struct atts atts[H4_MAX_NC_ATTRS]; /* should be a malloc'ed list, not an array */ extern void clearout(); void init_netcdf() { /* initialize global counts, flags */ clearout(); /* reset symbol table to empty */ ndims = 0; nvars = 0; rec_dim = -1; /* means no unlimited dimension (yet) */ } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/ncgen.h0000644000000000000000000000453212421456623014533 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: ncgen.h 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #include "local_nc.h" #include "generic.h" /* defines union generic */ #define H4_MAX_NC_ATTSIZE 2000 /* max size in bytes of an attribute */ #define MAXTRST 500 /* maximum size of a single string value */ #define FORT_MAX_LINES 20 /* max lines in FORTRAN statement */ #define FORT_MAX_STMNT 66*FORT_MAX_LINES /* max chars in FORTRAN statement */ #define C_MAX_STMNT FORT_MAX_STMNT /* until we fix to break up C lines */ /* Why is STREQ re-defined in multiple places? (hdf.h, then here, msoftyy.c, and vms_yy.c) -> compiler warnings. -BMR, Jul 17, 2012 */ #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) extern struct dims { /* dimensions */ long size; char *name; } dims[H4_MAX_NC_DIMS]; /* table of netcdf dimensions */ extern int ncid; /* handle for netCDF */ extern int ndims; /* number of dimensions declared for netcdf */ extern int nvars; /* number of variables declared for netcdf */ extern int natts; /* number of attributes */ extern int nvdims; /* number of dimensions for variables */ extern int dimnum; /* dimension number index for variables */ extern int varnum; /* variable number index for attributes */ extern int valnum; /* value number index for attributes */ extern int rec_dim; /* number of the unlimited dimension, if any */ extern long var_len; /* variable length (product of dimensions) */ extern int var_size; /* size of each element of variable */ extern long netcdf_record_number; /* current record number for variables */ extern struct vars { /* variables */ char *name; nc_type type; int ndims; int dims[H4_MAX_VAR_DIMS]; /* should be a malloc'ed list, not an array */ union generic fill_value; /* set to value of _FillValue attribute */ int has_data; /* 1 if data specified, 0 otherwise */ } vars[H4_MAX_NC_VARS]; /* should be a malloc'ed list, not an array */ extern struct atts { int var; /* number of variable for this attribute */ char *name; nc_type type; int len; void *val; } atts[H4_MAX_NC_ATTRS]; /* should be a malloc'ed list, not an array */ libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/CMakeTests.cmake0000644000000000000000000001263312421456623016276 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME NCGEN-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove ctest0.nc ctest1.cdl ftest0.nc ftest1.cdl ncgentab.c ncgentab.h ncgenyy.c netcdf.inc test0.c test0.f test0.nc test1.cdl test1.nc test2.cdl ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (NCGEN-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (NCGEN-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "NCGEN-clearall-objects") #-- Copy all the data files from the test directory into the source directory #MESSAGE (STATUS " Copying ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/test0.cdl to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET ncgen POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_NCGEN_SOURCE_DIR}/test0.cdl ${PROJECT_BINARY_DIR}/test0.cdl ) #-- Adding test for ncgen ADD_TEST ( NAME NCGEN-test0.nc COMMAND $ -b -o test0.nc test0.cdl ) SET_TESTS_PROPERTIES (NCGEN-test0.nc PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-test0.nc") ADD_TEST ( NAME NCGEN-test1.cdl COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-n;test1;test0.nc" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test1.cdl" -D "TEST_EXPECT=0" -D "TEST_SKIP_COMPARE=TRUE" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCGEN-test1.cdl PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-test1.cdl") ADD_TEST ( NAME NCGEN-test1.nc COMMAND $ -b test1.cdl ) SET_TESTS_PROPERTIES (NCGEN-test1.nc PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-test1.nc") ADD_TEST ( NAME NCGEN-test2.cdl COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=test1.nc" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test2.cdl" -D "TEST_EXPECT=0" -D "TEST_REFERENCE=test1.cdl" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCGEN-test2.cdl PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-test2.cdl") # #ctest0$(EXEEXT): ncgen$(EXEEXT) $(srcdir)/test0.cdl # $(TESTS_ENVIRONMENT) ./ncgen -c -o ctest0.nc $(srcdir)/test0.cdl > test0.c # $(COMPILE) -c -o ctest0$(EXEEXT).o test0.c # $(LINK) ctest0$(EXEEXT).o $(ctest0_LDADD) $(LDFLAGS) $(SHLIBLOC) $(LIBS) ADD_TEST ( NAME NCGEN-ctest0 COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-c;-o;ctest0.nc;test0.cdl" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test0.c" -D "TEST_EXPECT=0" -D "TEST_SKIP_COMPARE=TRUE" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCGEN-ctest0 PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-ctest0") # ## Test the "-c" option of ncgen #c-check: b-check ctest0 # $(TESTS_ENVIRONMENT) ./ctest0 # tests `-c' option, creates ctest0.nc # $(TESTS_ENVIRONMENT) $(NCDUMP) -n test1 ctest0.nc > ctest1.cdl # @if $(DIFF) test1.cdl ctest1.cdl; then \ # echo "*** ncgen -c test successful ***"; \ # else \ # echo "*** ncgen -c test failed ***"; \ # fi IF (HDF4_BUILD_FORTRAN) # #ftest0$(EXEEXT): ncgen$(EXEEXT) test0.cdl netcdf.inc # $(TESTS_ENVIRONMENT) ./ncgen -f -o ftest0.nc $(srcdir)/test0.cdl > test0.f # $(F77) $(FFLAGS) -o $@ test0.f $(LDFLAGS) $(SHLIBLOC) $(LIBS) ADD_TEST ( NAME NCGEN-ftest0 COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-f;-o;ftest0.nc;test0.cdl" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test0.f" -D "TEST_EXPECT=0" -D "TEST_SKIP_COMPARE=TRUE" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCGEN-ftest0 PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCGEN-ftest0") # Test the "-f" option of ncgen #f-check: b-check ftest0 # $(TESTS_ENVIRONMENT) ./ftest0 # $(TESTS_ENVIRONMENT) $(NCDUMP) -n test1 ftest0.nc > ftest1.cdl # @if $(DIFF) test1.cdl ftest1.cdl; then \ # echo "*** ncgen -f test successful ***"; \ # else \ # echo "*** ncgen -f test failed (but roundoff differences are OK) ***"; \ # fi ENDIF (HDF4_BUILD_FORTRAN) libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/close.c0000644000000000000000000000201512421456623014533 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: close.c 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #include #include "ncgen.h" #ifdef EIP #include "genlib.h" #endif extern void fline(), cline(); extern int netcdf_flag; extern int c_flag; extern int fortran_flag; static void cl_netcdf() { if (ncclose(ncid) == -1) derror ("error closing netcdf"); } #define fpr (void) fprintf static void cl_c() { cline(" ncclose (ncid);"); cline(" return 0;"); cline("}"); } static void cl_fortran() { fline("call ncclos (ncid, iret)"); fline("end"); } void close_netcdf() { if (netcdf_flag) cl_netcdf(); /* close netcdf */ if (c_flag) /* create C code to close netcdf */ cl_c(); if (fortran_flag) /* create Fortran code to close netcdf */ cl_fortran(); } libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/generic.h0000644000000000000000000000071512421456623015054 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: generic.h 2365 1996-03-26 22:43:35Z georgev $ *********************************************************************/ union generic { /* used to hold any kind of fill_value */ double doublev; float floatv; nclong longv; short shortv; char charv; }; libhdf4-4.2.10/HDF_ALT/mfhdf/ncgen/load.c0000644000000000000000000003320112421456623014346 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: load.c 4928 2007-09-06 21:48:49Z epourmal $ *********************************************************************/ #include #include #include #include #include "ncgen.h" #include "genlib.h" extern int netcdf_flag; extern int c_flag; extern int fortran_flag; void load_netcdf(rec_start) /* write out record from in-memory structure */ void *rec_start; { int idim; int istat=0; long coords[H4_MAX_VAR_DIMS]; long edges[H4_MAX_VAR_DIMS]; char *charvalp=NULL; short *shortvalp=NULL; nclong *longvalp=NULL; float *floatvalp=NULL; double *doublevalp=NULL; /* load values into variable */ switch (vars[varnum].type) { case NC_CHAR: case NC_BYTE: charvalp = (char *) rec_start; break; case NC_SHORT: shortvalp = (short *) rec_start; break; case NC_LONG: longvalp = (nclong *) rec_start; break; case NC_FLOAT: floatvalp = (float *) rec_start; break; case NC_DOUBLE: doublevalp = (double *) rec_start; break; default: break; } /* initialize coords to upper left corner (0,0,0,...) */ if (vars[varnum].dims[0] == rec_dim) { coords[0] = netcdf_record_number; edges[0] = 1; } else { coords[0] = 0; edges[0] = dims[vars[varnum].dims[0]].size; } for (idim = 1; idim < vars[varnum].ndims; idim++) { coords[idim] = 0; edges[idim] = dims[vars[varnum].dims[idim]].size; } switch (vars[varnum].type) { case NC_CHAR: case NC_BYTE: istat = ncvarput (ncid,varnum,coords,edges,(void *)charvalp); break; case NC_SHORT: istat = ncvarput (ncid,varnum,coords,edges,(void *)shortvalp); break; case NC_LONG: istat = ncvarput (ncid,varnum,coords,edges,(void *)longvalp); break; case NC_FLOAT: istat = ncvarput (ncid,varnum,coords,edges,(void *)floatvalp); break; case NC_DOUBLE: istat = ncvarput (ncid,varnum,coords,edges,(void *)doublevalp); break; default: break; } if (istat == -1) derror("error putting value for variable %s",vars[varnum].name); } #define fpr (void) fprintf /* * Remove trailing zeros (after decimal point) but not trailing decimal * point from ss, a string representation of a floating-point number that * might include an exponent part. */ static void tztrim(ss) char *ss; /* returned string representing dd */ { char *cp, *ep; cp = ss; if (*cp == '-') cp++; while(isdigit((int)*cp) || *cp == '.') cp++; if (*--cp == '.') return; ep = cp+1; while (*cp == '0') cp--; cp++; if (cp == ep) return; while (*ep) *cp++ = *ep++; *cp = '\0'; return; } /* generate C to put netCDF record from in-memory data */ static void gen_load_c(rec_start) void *rec_start; { int idim, ival; char *val_string; char *charvalp=NULL; short *shortvalp=NULL; nclong *longvalp=NULL; float *floatvalp=NULL; double *doublevalp=NULL; char stmnt[C_MAX_STMNT]; int stmnt_len; char s2[H4_MAX_NC_NAME + 2]; /* initialize coords to upper left corner (rec_num,0,0,...) */ cline(""); sprintf(stmnt, " {\t\t\t/* store %s */", vars[varnum].name); cline(stmnt); if (vars[varnum].ndims > 0) { sprintf(stmnt, " static long %s_start[] = {", vars[varnum].name); if (vars[varnum].dims[0] == rec_dim) sprintf(s2, "%ld%s", netcdf_record_number, 0 < vars[varnum].ndims-1 ? ", " : "};"); else sprintf(s2, "%d%s", 0, 0 < vars[varnum].ndims-1 ? ", " : "};"); strcat(stmnt, s2); for (idim = 1; idim < vars[varnum].ndims; idim++) { sprintf(s2, "%d%s", 0, idim < vars[varnum].ndims-1 ? ", " : "};"); strcat(stmnt, s2); } cline(stmnt); /* initialize edge lengths from upper left corner */ sprintf(stmnt, " static long %s_edges[] = {", vars[varnum].name); if (vars[varnum].dims[0] == rec_dim) sprintf(s2, "%d%s", 1, 0 < vars[varnum].ndims-1 ? ", " : "};"); else sprintf(s2, "%ld%s", dims[vars[varnum].dims[0]].size, 0 < vars[varnum].ndims-1 ? ", " : "};"); strcat(stmnt, s2); for (idim = 1; idim < vars[varnum].ndims; idim++) { sprintf(s2, "%ld%s", dims[vars[varnum].dims[idim]].size, idim < vars[varnum].ndims-1 ? ", " : "};"); strcat(stmnt, s2); } cline(stmnt); /* load variable with data values using static initialization */ sprintf(stmnt, " static %s %s[] = {", ncctype(vars[varnum].type), vars[varnum].name); stmnt_len = strlen(stmnt); switch (vars[varnum].type) { case NC_CHAR: val_string = cstrstr((char *) rec_start, var_len); sprintf(s2, "%s", val_string); strcat(stmnt, s2); free(val_string); break; default: switch (vars[varnum].type) { case NC_BYTE: charvalp = (char *) rec_start; break; case NC_SHORT: shortvalp = (short *) rec_start; break; case NC_LONG: longvalp = (nclong *) rec_start; break; case NC_FLOAT: floatvalp = (float *) rec_start; break; case NC_DOUBLE: doublevalp = (double *) rec_start; break; default: break; } for (ival = 0; ival < var_len-1; ival++) { switch (vars[varnum].type) { case NC_BYTE: sprintf(s2, "%d, ", *charvalp++); break; case NC_SHORT: sprintf(s2, "%d, ", *shortvalp++); break; case NC_LONG: sprintf(s2, "%d, ", (int)*longvalp++); break; case NC_FLOAT: sprintf(s2, "%.8g, ", *floatvalp++); break; case NC_DOUBLE: sprintf(s2, "%#.16g", *doublevalp++); tztrim(s2); strcat(s2, ", "); break; default: break; } stmnt_len += strlen(s2); if (stmnt_len < C_MAX_STMNT) strcat(stmnt, s2); else { cline(stmnt); strcpy(stmnt,s2); stmnt_len = strlen(stmnt); } } for (;ival < var_len; ival++) { switch (vars[varnum].type) { case NC_BYTE: sprintf(s2, "%d", *charvalp); break; case NC_SHORT: sprintf(s2, "%d", *shortvalp); break; case NC_LONG: sprintf(s2, "%d", (int)*longvalp); break; case NC_FLOAT: sprintf(s2, "%.8g", *floatvalp); break; case NC_DOUBLE: sprintf(s2, "%#.16g", *doublevalp++); tztrim(s2); break; default: break; } stmnt_len += strlen(s2); if (stmnt_len < C_MAX_STMNT) strcat(stmnt, s2); else { cline(stmnt); strcpy(stmnt,s2); stmnt_len = strlen(stmnt); } } break; } strcat(stmnt,"};"); cline(stmnt); sprintf(stmnt, " ncvarput(ncid, %s_id, %s_start, %s_edges, (void *)%s);", vars[varnum].name, vars[varnum].name, vars[varnum].name, vars[varnum].name); cline(stmnt); cline(" }"); } else { /* scalar variables */ /* load variable with data values using static initialization */ sprintf(stmnt, " static %s %s = {", ncctype(vars[varnum].type), vars[varnum].name); switch (vars[varnum].type) { case NC_CHAR: val_string = cstrstr((char *) rec_start, var_len); sprintf(s2, "%s", val_string); strcat(stmnt, s2); free(val_string); break; case NC_BYTE: charvalp = (char *) rec_start; sprintf(s2, "%d", *charvalp); strcat(stmnt, s2); break; case NC_SHORT: shortvalp = (short *) rec_start; sprintf(s2, "%d", *shortvalp); strcat(stmnt, s2); break; case NC_LONG: longvalp = (nclong *) rec_start; sprintf(s2, "%d", (int)*longvalp); strcat(stmnt, s2); break; case NC_FLOAT: floatvalp = (float *) rec_start; sprintf(s2, "%.8g", *floatvalp); strcat(stmnt, s2); break; case NC_DOUBLE: doublevalp = (double *) rec_start; sprintf(s2, "%#.16g", *doublevalp++); tztrim(s2); strcat(stmnt, s2); break; default: break; } strcat(stmnt,"};"); cline(stmnt); sprintf(stmnt, " ncvarput1(ncid, %s_id, (long *)0, (void *)&%s);", vars[varnum].name, vars[varnum].name); cline(stmnt); cline(" }"); } } /* * Add to a partial Fortran statement, checking if it's too long. If it is too * long, output the first part of it as a single statement with continuation * characters and start a new (probably invalid) statement with the remainder. * This will cause a Fortran compiler error, but at least all the information * will be available. */ static void fstrcat(s, t, slenp) char *s; /* source string of stement being built */ char *t; /* string to be appended to source */ long *slenp; /* pointer to length of source string */ { *slenp += strlen(t); if (*slenp >= FORT_MAX_STMNT) { derror("FORTRAN statement too long: %s",s); fline(s); strcpy(s, t); *slenp = strlen(s); } else { strcat(s, t); } } static void gen_load_fortran(rec_start) /* make Fortran to put record */ void *rec_start; { int idim, ival; char *val_string; char *charvalp; short *shortvalp; nclong *longvalp; float *floatvalp; double *doublevalp; char stmnt[FORT_MAX_STMNT]; long stmnt_len; char s2[H4_MAX_NC_NAME + 2]; /* initialize coords to upper left corner (1,1,...,rec_num) */ sprintf(stmnt, "* store %s", vars[varnum].name); fline(stmnt); if (vars[varnum].ndims > 0) { for (idim = 1; idim < vars[varnum].ndims; idim++) { sprintf(stmnt, "corner(%d) = 1", idim); fline(stmnt); } if (vars[varnum].dims[0] == rec_dim) { sprintf(stmnt, "corner(%d) = %d", idim, (int)(netcdf_record_number+1)); fline(stmnt); } else { sprintf(stmnt, "corner(%d) = 1", idim); fline(stmnt); } for (idim = vars[varnum].ndims-1; idim > 0; idim--) { sprintf(stmnt, "edges(%d) = %d", vars[varnum].ndims - idim, (int)dims[vars[varnum].dims[idim]].size); fline(stmnt); } if (vars[varnum].dims[0] == rec_dim) { sprintf(stmnt, "edges(%d) = 1", vars[varnum].ndims - idim); fline(stmnt); } else { sprintf(stmnt, "edges(%d) = %d", vars[varnum].ndims - idim, (int)dims[vars[varnum].dims[0]].size); fline(stmnt); } } else { /* scalar variables */ fline("corner(1) = 1"); fline("edges(1) = 1"); } /* load variable with data values */ if (vars[varnum].type != NC_CHAR) { sprintf(stmnt, "data %s /",vars[varnum].name); stmnt_len = strlen(stmnt); switch (vars[varnum].type) { case NC_BYTE: charvalp = (char *) rec_start; for (ival = 0; ival < var_len-1; ival++) { val_string = fstring(NC_BYTE,(void *)charvalp++,0); sprintf(s2, "%s, ", val_string); fstrcat(stmnt, s2, &stmnt_len); free(val_string); } val_string = fstring(NC_BYTE,(void *)charvalp++,0); fstrcat(stmnt, val_string, &stmnt_len); free(val_string); break; case NC_SHORT: shortvalp = (short *) rec_start; for (ival = 0; ival < var_len-1; ival++) { sprintf(s2, "%d, ", *shortvalp++); fstrcat(stmnt, s2, &stmnt_len); } sprintf(s2, "%d", *shortvalp); fstrcat(stmnt, s2, &stmnt_len); break; case NC_LONG: longvalp = (nclong *) rec_start; for (ival = 0; ival < var_len-1; ival++) { sprintf(s2, "%d, ", (int)*longvalp++); fstrcat(stmnt, s2, &stmnt_len); } sprintf(s2, "%d", (int)*longvalp); fstrcat(stmnt, s2, &stmnt_len); break; case NC_FLOAT: floatvalp = (float *) rec_start; for (ival = 0; ival < var_len-1; ival++) { sprintf(s2, "%.8g, ", *floatvalp++); fstrcat(stmnt, s2, &stmnt_len); } sprintf(s2, "%.8g", *floatvalp); fstrcat(stmnt, s2, &stmnt_len); break; case NC_DOUBLE: doublevalp = (double *) rec_start; for (ival = 0; ival < var_len-1; ival++) { sprintf(s2, "%#.16g", *doublevalp++); tztrim(s2); fstrcat(s2, ", ", &stmnt_len); fstrcat(stmnt, s2, &stmnt_len); } sprintf(s2, "%#.16g", *doublevalp++); tztrim(s2); fstrcat(stmnt, s2, &stmnt_len); break; default: break; } fstrcat(stmnt, "/", &stmnt_len); fline(stmnt); sprintf(stmnt, "call ncvpt(ncid, %sid, corner, edges, %s, iret)", vars[varnum].name, vars[varnum].name); } else { /* for strings, call ncvptc() */ int dimprod = 1; val_string = fstrstr((char *) rec_start, var_len); sprintf(stmnt, "%s = %s",vars[varnum].name, val_string); free(val_string); stmnt_len = strlen(stmnt); fstrcat(stmnt, " // char(0)", &stmnt_len); fline(stmnt); for (idim = vars[varnum].ndims-1; idim > 0; idim--) dimprod *= dims[vars[varnum].dims[idim]].size; if (vars[varnum].dims[0] != rec_dim) dimprod *= dims[vars[varnum].dims[0]].size; sprintf(stmnt, "call ncvptc(ncid, %sid, corner, edges, %s, %d, iret)", vars[varnum].name, vars[varnum].name, dimprod); } fline(stmnt); } /* invoke netcdf calls (or generate C or Fortran code) to load netcdf variable * from in-memory data. Assumes following global variables set from yacc * parser: * int varnum - number of variable to be loaded. * struct vars[varnum] - structure containing info on variable, specifically * name, type, ndims, dims, fill_value, has_data * int rec_dim - id of record dimension, or -1 if none * struct dims[] - structure containing name and size of dimensions. * int netcdf_record_number - number of current record for this variable. */ void put_variable(rec_start) void *rec_start; /* points to data to be loaded */ { if (netcdf_flag) load_netcdf(rec_start); /* put variable values (one record's worth) */ if (c_flag) /* create C code to put values */ gen_load_c(rec_start); if (fortran_flag) /* create Fortran code to put values */ gen_load_fortran(rec_start); } libhdf4-4.2.10/HDF_ALT/mfhdf/CMakeLists.txt0000644000000000000000000000236712421456623014742 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF) #----------------------------------------------------------------------------- # Option to build HDF4 Tools #----------------------------------------------------------------------------- IF (EXISTS "${HDF4_MFHDF_SOURCE_DIR}/dumper" AND IS_DIRECTORY "${HDF4_MFHDF_SOURCE_DIR}/dumper") OPTION (HDF4_BUILD_TOOLS "Build HDF4 Tools" OFF) IF (HDF4_BUILD_TOOLS) SET (NCGEN_UTILITY 0) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/dumper ${HDF4_MFHDF_BINARY_DIR}/dumper) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/hdfimport ${HDF4_MFHDF_BINARY_DIR}/hdfimport) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/hdiff ${HDF4_MFHDF_BINARY_DIR}/hdiff) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/hrepack ${HDF4_MFHDF_BINARY_DIR}/hrepack) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/ncgen ${HDF4_MFHDF_BINARY_DIR}/ncgen) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/ncdump ${HDF4_MFHDF_BINARY_DIR}/ncdump) IF (BUILD_TESTING) ADD_SUBDIRECTORY (${HDF4_MFHDF_SOURCE_DIR}/nctest ${HDF4_MFHDF_BINARY_DIR}/nctest) ENDIF (BUILD_TESTING ) ENDIF (HDF4_BUILD_TOOLS) ENDIF (EXISTS "${HDF4_MFHDF_SOURCE_DIR}/dumper" AND IS_DIRECTORY "${HDF4_MFHDF_SOURCE_DIR}/dumper") libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/0000755000000000000000000000000012421456623013607 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_sds.c0000644000000000000000000010535412421456623016251 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_sds.h" #include "hrepack_an.h" #include "hrepack_utils.h" #include "hrepack_parse.h" #include "hrepack_opttable.h" #include "hrepack_dim.h" #define H4TOOLS_BUFSIZE (1024 * 1024) #define H4TOOLS_MALLOCSIZE (1024 * 1024) void print_info( int chunk_flags, HDF_CHUNK_DEF *chunk_def, int comp_type, char *path, char *ratio); int get_print_info( int chunk_flags, HDF_CHUNK_DEF *chunk_def, int comp_type, char *path, char *sds_name, int32 sd_id); /*------------------------------------------------------------------------- * Function: copy_sds * * Purpose: copy an SDS from input file to output file and compress it * using options * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 10, 2003 * *------------------------------------------------------------------------- */ int copy_sds(int32 sd_in, int32 sd_out, int32 tag, /* tag of input SDS */ int32 ref, /* ref of input SDS */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ options_t *options, list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, int32 infile_id, int32 outfile_id) { int32 sds_id, /* data set identifier */ sds_out=FAIL, /* data set identifier */ sds_index, /* index number of the data set */ dtype, /* SDS data type */ dimsizes[H4_MAX_VAR_DIMS],/* dimensions of SDS */ start[H4_MAX_VAR_DIMS], /* read start */ edges[H4_MAX_VAR_DIMS], /* read edges */ nattrs, /* number of SDS attributes */ rank, /* rank of SDS */ sds_ref, /* reference number of the output data set */ numtype, /* number type */ eltsz, /* element size */ nelms, /* number of elements */ dim_id, /* dimension ID */ dim_out; /* dimension ID */ char sds_name[H4_MAX_NC_NAME]; char dim_name[H4_MAX_NC_NAME]; char *path=NULL; VOIDP buf=NULL; VOIDP dim_buf=NULL; int i, j; int info; /* temporary int compression information */ comp_coder_t comp_type; /* compression type requested */ comp_coder_t comp_type_in; /* compression type original */ comp_info c_info; /* compression information requested */ comp_info c_info_in; /* compression information original */ HDF_CHUNK_DEF chunk_def; /* chunk definition */ HDF_CHUNK_DEF chunk_def_in; /* chunk definition original */ int32 chunk_flags; /* chunk flags */ int32 chunk_flags_in; /* chunk flags original*/ int szip_mode; /* szip mode, EC, NN */ intn empty_sds; int have_info=0; size_t need; /* read size needed */ void *sm_buf=NULL; int is_record = 0; sds_index = SDreftoindex(sd_in,ref); sds_id = SDselect(sd_in,sds_index); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ if (SDgetinfo(sds_id,sds_name,&rank,dimsizes,&dtype,&nattrs)==FAIL){ printf( "Could not get information for SDS\n"); SDendaccess(sds_id); return FAIL; } /* check if the given SDS is a dimension scale, return 0 for no table add */ if ( SDiscoordvar(sds_id) ) { /* add SDS coordinate variable to dimension table 1 */ dim_table_add(td1,ref,sds_name); SDendaccess(sds_id); return SUCCEED; } /* initialize path */ path=get_path(path_name,sds_name); /* add object to table */ list_table_add(list_tbl,tag,ref,path); /*------------------------------------------------------------------------- * check if the input SDS is empty. if so , avoid some operations (mainly read, write) *------------------------------------------------------------------------- */ if (SDcheckempty( sds_id, &empty_sds ) == FAIL) { printf( "Failed to check empty SDS <%s>\n", path); goto out; } /*------------------------------------------------------------------------- * element size and number of elements *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /* get number of elements */ nelms=1; for (j = 0; j < rank; j++) { nelms *= dimsizes[j]; } /*------------------------------------------------------------------------- * get the original compression/chunk information from the object *------------------------------------------------------------------------- */ /* reset variables before retrieving information */ comp_type = comp_type_in = COMP_CODE_NONE; chunk_flags = chunk_flags_in = HDF_NONE; if (empty_sds==0 ) { HDmemset(&c_info_in, 0, sizeof(comp_info)) ; if ( SDgetcompinfo(sds_id, &comp_type_in, &c_info_in) == FAIL ) { printf( "Could not get compression information for SDS <%s>\n",path); goto out; } /* get chunk lengths */ if ( SDgetchunkinfo(sds_id, &chunk_def_in, &chunk_flags_in)== FAIL ) { printf( "Could not get chunking information for SDS <%s>\n",path); goto out; } /* retrieve the compress information if so */ if ( (HDF_CHUNK | HDF_COMP) == chunk_flags_in ) { chunk_def_in.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_RLE: chunk_def_in.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def_in.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def_in.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def_in.comp.comp_type = COMP_CODE_DEFLATE; chunk_def_in.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ chunk_def_in.comp.comp_type = COMP_CODE_SZIP; chunk_def_in.comp.cinfo.szip = c_info_in.szip; #else printf("Error: SZIP compression is not available <%s>\n",path); goto out; #endif break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type_in,path); goto out; }; } /*------------------------------------------------------------------------- * set the default values to the ones read from the object *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * compression *------------------------------------------------------------------------- */ comp_type = comp_type_in; switch (comp_type_in) { case COMP_CODE_NBIT: printf("Nbit compression not supported in this version <%s>\n",path); break; case COMP_CODE_NONE: break; case COMP_CODE_RLE: break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ info = c_info_in.szip.pixels_per_block; if (c_info_in.szip.options_mask & SZ_EC_OPTION_MASK) { szip_mode = EC_MODE; } else if (c_info_in.szip.options_mask & SZ_NN_OPTION_MASK) { szip_mode = NN_MODE; } #else printf("SZIP compression not supported in this version <%s>\n",path); #endif break; case COMP_CODE_SKPHUFF: info = c_info_in.skphuff.skp_size; break; case COMP_CODE_DEFLATE: info = c_info_in.deflate.level; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type,path); goto out; break; }; /*------------------------------------------------------------------------- * chunking *------------------------------------------------------------------------- */ chunk_flags = chunk_flags_in; if ( (HDF_CHUNK) == chunk_flags ) { for (i = 0; i < rank; i++) chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } else if ( (HDF_CHUNK | HDF_COMP) == chunk_flags ) { for (i = 0; i < rank; i++) { chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; chunk_def.comp.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } chunk_def.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_RLE: chunk_def.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ chunk_def.comp.comp_type = COMP_CODE_SZIP; chunk_def.comp.cinfo.szip = c_info_in.szip; #else printf("Error: SZIP compression not available in %d <%s>\n",comp_type_in,path); #endif break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type_in,path); goto out; }; } /*------------------------------------------------------------------------- * get the compression/chunk information of this object from the table * translate to usable information * this is done ONLY for the second trip inspection *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip>0 ) { have_info = options_get_info(options, /* global options */ &chunk_flags, /* chunk flags OUT */ &chunk_def, /* chunk definition OUT */ &info, /* compression information OUT */ &szip_mode, /* compression information OUT */ &comp_type, /* compression type OUT */ rank, /* rank of object IN */ path, /* path of object IN */ 1, /* number of GR image planes (for SZIP), IN */ dimsizes, /* dimensions (for SZIP), IN */ dtype /* numeric type ( for SZIP), IN */ ); if (have_info==FAIL) goto out; } /* check inspection mode */ /*------------------------------------------------------------------------- * check for maximum number of chunks treshold *------------------------------------------------------------------------- */ if ( options->trip>0 ) { int count=1, nchunks; int maxchunk=INT_MAX; if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { for (j = 0; j < rank; j++) { count *= chunk_def.chunk_lengths[j]; } nchunks=nelms/count; if (nchunks>maxchunk){ printf("Warning: number of chunks is %d (greater than %d). Not chunking <%s>\n", nchunks,maxchunk,path); chunk_flags=HDF_NONE; } } } /*------------------------------------------------------------------------- * check for objects too small *------------------------------------------------------------------------- */ if ( have_info==1 && options->trip>0 && nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ chunk_flags=chunk_flags_in; comp_type=comp_type_in; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,path); } } } /* empty_sds */ /*------------------------------------------------------------------------- * check if the requested compression is valid * SDSs do not support JPEG *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip>0 && empty_sds==0) { switch(comp_type) { case COMP_CODE_NONE: case COMP_CODE_RLE: case COMP_CODE_SKPHUFF: case COMP_CODE_DEFLATE: case COMP_CODE_SZIP: case COMP_CODE_NBIT: break; case COMP_CODE_JPEG: printf("Error: JPEG compression is not available for <%s>\n",path); goto out; break; default: printf("Error: Unrecognized compression code %d in <%s>\n",comp_type_in,path); goto out; } } /* check inspection mode */ /*------------------------------------------------------------------------- * if we are in first trip inspection mode, exit, after printing the information *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip==0 ) { /* close sds before get info */ SDendaccess(sds_id); if ( options->verbose) { if (get_print_info(chunk_flags_in, &chunk_def, comp_type, path, sds_name, sd_in)==FAIL) goto out; } if (path) free(path); return SUCCEED; } /*------------------------------------------------------------------------- * create new SDS * check for unlimited dimension * SDisrecord determines whether the data set identified by the parameter sds_id * is appendable, which means that the slowest-changing dimension of the SDS array * is declared unlimited when the data set is created. *------------------------------------------------------------------------- */ /* do not use unlimited if compression is needed since combination of unlimited and compression is not allowed. */ if (SDisrecord(sds_id) && comp_type<=COMP_CODE_NONE) { int32 dimsizes_cre[H4_MAX_VAR_DIMS]; is_record = 1; for (j = 0; j < rank; j++) { dimsizes_cre[j] = dimsizes[j]; } dimsizes_cre[0] = SD_UNLIMITED; if ((sds_out = SDcreate(sd_out,sds_name,dtype,rank,dimsizes_cre)) == FAIL) { printf( "Failed to create new SDS <%s>\n", path); goto out; } } else { if ((sds_out = SDcreate(sd_out,sds_name,dtype,rank,dimsizes)) == FAIL) { printf( "Failed to create new SDS <%s>\n", path); goto out; } } /*------------------------------------------------------------------------- * set chunk * * Chunked -> flags = HDF_CHUNK * Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP * Non-chunked -> flags = HDF_NONE *------------------------------------------------------------------------- */ if (empty_sds==0 ) { /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { /* unlimited dimensions don't work with chunking */ if ( ! is_record ) { if (SDsetchunk (sds_out, chunk_def, chunk_flags)==FAIL) { printf( "Error: Failed to set chunk dimensions for <%s>\n", path); goto out; } } } /*------------------------------------------------------------------------- * set compression * * COMP_CODE_RLE -> simple RLE encoding * COMP_CODE_SKPHUFF -> Skipping huffman encoding * COMP_CODE_DEFLATE -> gzip 'deflate' encoding *------------------------------------------------------------------------- */ /* use compress without chunk-in */ else if ( chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE) { if ( nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ comp_type=COMP_CODE_NONE; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,path); } } else { /* setup compression factors */ switch(comp_type) { case COMP_CODE_SZIP: if (set_szip (info,szip_mode,&c_info)==FAIL) { comp_type=COMP_CODE_NONE; } break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: c_info.skphuff.skp_size = info; break; case COMP_CODE_DEFLATE: c_info.deflate.level = info; break; case COMP_CODE_NBIT: comp_type = COMP_CODE_NONE; /* not supported in this version */ break; default: printf( "Error: Unrecognized compression code %d\n", comp_type); goto out; } /* HDF4 2.6 does not allow the combination of unlimited dimensions and compression. See bug HDFFR-1280 The fix: for the case of the combination of unlimited dimensions and compression, compressed will be applied but dimension is changed to limited size in hrepack. */ if (SDsetcompress (sds_out, comp_type, &c_info)==FAIL) { printf( "Error: Failed to set compression for <%s>\n", path); goto out; } } } need = (size_t)(nelms * eltsz); /* bytes needed */ if ( need < H4TOOLS_MALLOCSIZE || /* for compressed datasets do one operation I/O, but allow hyperslab for chunked */ (chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE)) { buf = (VOIDP)HDmalloc(need); } /*------------------------------------------------------------------------- * read all *------------------------------------------------------------------------- */ if ( buf!=NULL ) { /* set edges of SDS, select all */ for (i = 0; i < rank; i++) { edges[i] = dimsizes[i]; start[i] = 0; } /* read */ if (SDreaddata (sds_id, start, NULL, edges, buf) == FAIL) { printf( "Could not read SDS <%s>\n", path); goto out; } /* write */ if (SDwritedata(sds_out, start, NULL, edges, buf) == FAIL) { printf( "Failed to write to new SDS <%s>\n", path); goto out; } } else /* possibly not enough memory, read/write by hyperslabs */ { size_t p_type_nbytes = eltsz; /*size of type */ uint32 p_nelmts = nelms; /*total selected elmts */ uint32 elmtno; /*counter */ int carry; /*counter carry value */ /* stripmine info */ int32 sm_size[H4_MAX_VAR_DIMS]; /*stripmine size */ int32 sm_nbytes; /*bytes per stripmine */ int32 sm_nelmts; /*elements per stripmine*/ /* hyperslab info */ int32 hs_offset[H4_MAX_VAR_DIMS]; /*starting offset */ int32 hs_size[H4_MAX_VAR_DIMS]; /*size this pass */ int32 hs_nelmts; /*elements in request */ /* * determine the strip mine size and allocate a buffer. The strip mine is * a hyperslab whose size is manageable. */ sm_nbytes = p_type_nbytes; for (i = rank; i > 0; --i) { sm_size[i - 1] = MIN(dimsizes[i - 1], H4TOOLS_BUFSIZE / sm_nbytes); sm_nbytes *= sm_size[i - 1]; assert(sm_nbytes > 0); } sm_buf = HDmalloc((size_t)sm_nbytes); sm_nelmts = sm_nbytes / p_type_nbytes; /* the stripmine loop */ memset(hs_offset, 0, sizeof hs_offset); for (elmtno = 0; elmtno < p_nelmts; elmtno += hs_nelmts) { /* calculate the hyperslab size */ if (rank > 0) { for (i = 0, hs_nelmts = 1; i < rank; i++) { hs_size[i] = MIN(dimsizes[i] - hs_offset[i], sm_size[i]); hs_nelmts *= hs_size[i]; } } else { hs_nelmts = 1; } /* rank */ /* read */ if (SDreaddata (sds_id, hs_offset, NULL, hs_size, sm_buf) == FAIL) { printf( "Could not read SDS <%s>\n", sds_name); goto out; } /* write */ if (SDwritedata(sds_out, hs_offset, NULL, hs_size, sm_buf) == FAIL) { printf( "Failed to write to new SDS <%s>\n", path); goto out; } /* calculate the next hyperslab offset */ for (i = rank, carry = 1; i > 0 && carry; --i) { hs_offset[i - 1] += hs_size[i - 1]; if (hs_offset[i - 1] == dimsizes[i - 1]) hs_offset[i - 1] = 0; else carry = 0; } /* i */ } /* elmtno */ /* free */ if (sm_buf!=NULL) { free(sm_buf); sm_buf=NULL; } } /* hyperslab read */ } /* empty_sds */ /*------------------------------------------------------------------------- * copy attributes *------------------------------------------------------------------------- */ if( copy_sds_attrs(sds_id,sds_out,nattrs,options)==FAIL) { goto out; } /*------------------------------------------------------------------------- * copy dimension scales *------------------------------------------------------------------------- */ /* loop through each dimension up to rank of SDS */ for (i = 0; i < rank; i++) { int32 dim_size; /* get dimension handle for input dimension */ if ((dim_id = SDgetdimid(sds_id, i)) == FAIL) { printf( "Failed to get dimension %d of SDS <%s>\n", i, path); goto out; } /* get dimension handle for output dimension */ if ((dim_out = SDgetdimid(sds_out, i)) == FAIL) { printf( "Failed to get dim_id for dimension %d of SDS <%s>\n", i, path); goto out; } /* get dimension information for input dimension */ if (SDdiminfo(dim_id, dim_name, &dim_size, &dtype, &nattrs) == FAIL) { printf( "Failed to get information for dimension %d of SDS <%s>\n", i, path); goto out; } /* add dimension name to dimension scales table */ dim_table_add(td2,-1,dim_name); /* set output dimension name */ if (SDsetdimname(dim_out, dim_name) == FAIL) { printf( "Failed to set dimension name %d of SDS <%s>\n", i, path); goto out; } /* copy attributes */ if (nattrs && copy_sds_attrs(dim_id, dim_out, nattrs, options) == FAIL) { printf( "Failed to copy attributes for dimension %d of of SDS <%s>\n", i, path); goto out; } /* copy scale information over */ if (dtype != 0) { intn okdim; /* compute the number of the bytes for each value. */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); if ((dim_buf = (VOIDP) HDmalloc(dimsizes[i] * eltsz)) == NULL) { printf( "Failed to alloc %ld for dimension scale\n", dimsizes[i]); goto out; } if ((okdim=SDgetdimscale(dim_id, dim_buf)) == FAIL) { printf( "Warning: Failed to get scale information for %s\n", dim_name); } if (okdim!=FAIL) { /* use dimsizes returned by SDgetinfo */ if (SDsetdimscale(dim_out,dimsizes[i], dtype, dim_buf) == FAIL) { printf( "Failed to set scale information for %s\n", dim_name); goto out; } } free(dim_buf); } } /* obtain the reference number of the new SDS using its identifier */ if ((sds_ref = SDidtoref (sds_out)) == FAIL) { printf( "Failed to get new SDS reference in <%s>\n", path); goto out; } /*------------------------------------------------------------------------- * add SDS to group *------------------------------------------------------------------------- */ /* add it to group, if present */ if (vgroup_id_out_par) { /* add the SDS to the vgroup. the tag DFTAG_NDG is used */ if (Vaddtagref (vgroup_id_out_par, TAG_GRP_DSET, sds_ref)==FAIL) { printf( "Failed to add new SDS to group <%s>\n", path); goto out; } } /*------------------------------------------------------------------------- * copy ANs *------------------------------------------------------------------------- */ if (copy_an(infile_id,outfile_id, ref,tag,sds_ref,tag, path,options)<0) { goto out; } /*------------------------------------------------------------------------- * close *------------------------------------------------------------------------- */ if (SDendaccess(sds_id)== FAIL ) printf( "Failed to close SDS <%s>\n", path); if (sds_out!=FAIL) { if (SDendaccess (sds_out)== FAIL ) printf( "Failed to close SDS <%s>\n", path); } /*------------------------------------------------------------------------- * print compression *------------------------------------------------------------------------- */ assert( options->trip==1 ); if ( options->verbose ) { if (get_print_info(chunk_flags_in, &chunk_def, comp_type, path, sds_name, sd_out)==FAIL) goto out; } if (path) free(path); if (buf) free(buf); return SUCCEED; out: if (SDendaccess(sds_id)== FAIL ) printf( "Failed to close SDS <%s>\n", path); if (sds_out!=FAIL) { if (SDendaccess (sds_out)== FAIL ) printf( "Failed to close SDS <%s>\n", path); } if (path) free(path); if (buf) free(buf); return FAIL; } /*------------------------------------------------------------------------- * Function: copy_sds_attrs * * Purpose: copy SD attributes from input file to output file * used for global, dataset and dimension attributes * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 30, 2003 * *------------------------------------------------------------------------- */ int copy_sds_attrs(int32 id_in, int32 id_out, int32 nattrs, options_t *options) { int32 dtype, /* SDS data type */ numtype, /* number type */ eltsz, /* element size */ nelms; /* number of elements */ char attr_name[H4_MAX_NC_NAME]; VOIDP attr_buf=NULL; int i; /* loop through attributes in input SDS */ for (i = 0; i < nattrs; i++) { if (SDattrinfo (id_in, i, attr_name, &dtype, &nelms) == FAIL) { printf( "Cannot get information for attribute number %d\n", i); goto out; } /* compute the number of the bytes for each value. */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); if ((attr_buf = (VOIDP) HDmalloc(nelms * eltsz)) == NULL) { printf( "Error allocating %ld values of size %ld for attribute %s", nelms, numtype, attr_name); goto out; } /* read attributes from input SDS */ if (SDreadattr(id_in, i, attr_buf) == FAIL) { printf( "Cannot read attribute %s\n", attr_name); goto out; } /* put attributes into output SDS */ if (SDsetattr(id_out, attr_name, dtype, nelms, attr_buf) == FAIL) { printf( "Cannot write attribute %s\n", attr_name); goto out; } if (attr_buf) free(attr_buf); } return SUCCEED; out: if (attr_buf) free(attr_buf); return FAIL; } /*------------------------------------------------------------------------- * get_print_info *------------------------------------------------------------------------- */ int get_print_info( int chunk_flags, HDF_CHUNK_DEF *chunk_def, /* chunk definition */ int comp_type, char *path, char *sds_name, int32 sd_id) { int32 comp_size; int32 uncomp_size; int32 sds_idx; int32 sds_id; double a, b, r=0; char comp_str[255]; int is_record = 0; if ((sds_idx = SDnametoindex (sd_id, sds_name))==FAIL) goto out; if ((sds_id = SDselect (sd_id, sds_idx))==FAIL) goto out; if (SDisrecord(sds_id)) is_record = 1; if (SDgetdatasize(sds_id, &comp_size, &uncomp_size) == FAIL) { printf( "Could not get data sizes for <%s>\n", sds_name); goto out; } if (SDendaccess (sds_id)== FAIL ) goto out; sprintf(comp_str,"\0"); /* unlimited dimensions don't work with compression */ if ( is_record ) { comp_type = COMP_CODE_NONE; chunk_flags = HDF_NONE; } if ( comp_type > COMP_CODE_NONE ) { /* compression ratio = uncompressed size / compressed size */ a = uncomp_size; b = comp_size; if ( b != 0 ) r = a / b; sprintf(comp_str,"(%.2f:1)", r); } print_info(chunk_flags, chunk_def, comp_type, path, comp_str); return SUCCEED; out: return FAIL; } /*------------------------------------------------------------------------- * print_info *------------------------------------------------------------------------- */ void print_info( int chunk_flags, HDF_CHUNK_DEF *chunk_def, /* chunk definition */ int comp_type, char *path, char *ratio) { int pr_comp_type=0; int pr_chunk_flags; pr_chunk_flags=chunk_flags; if (comp_type>0) { pr_comp_type=comp_type; } else { if (pr_chunk_flags == (HDF_CHUNK | HDF_COMP) ) { pr_comp_type=chunk_def->comp.comp_type; } } printf(PFORMAT, (pr_chunk_flags>0)?"chunk":"", /*chunk information*/ (pr_comp_type>0)?get_scomp(pr_comp_type):"", /*compression information*/ ratio, /*ratio */ path); /*name*/ } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_sds.h0000644000000000000000000000325112421456623016247 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_SDS_H_ #define REPACK_SDS_H_ #include "hrepack.h" #include "hrepack_lsttable.h" #include "hrepack_dim.h" #ifdef __cplusplus extern "C" { #endif int copy_sds(int32 sd_in, int32 sd_out, int32 tag, int32 ref, int32 vgroup_id_out_par, char*group_name, options_t *options, list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, int32 infile_id, int32 outfile_id); int copy_sds_attrs(int32 sds_id, int32 sds_out, int32 nattrs, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_SDS_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_an.c0000644000000000000000000002047512421456623016056 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hrepack_an.h" /*------------------------------------------------------------------------- * Function: copy_vg_an * * Purpose: copy Vgroup ANs * * Return: ok, 1, -1 not ok * *------------------------------------------------------------------------- */ int copy_vg_an(int32 infile_id, int32 outfile_id, int32 vgroup_id, int32 vgroup_id_out, char *path, options_t *options) { int32 ref_in, tag_in, ref_out, tag_out; if ( options->trip==0 ) { return 1; } if ((ref_in = VQueryref(vgroup_id))==FAIL){ printf( "Failed to get ref for <%s>\n", path); return-1; } if ((tag_in = VQuerytag(vgroup_id))==FAIL){ printf( "Failed to get tag for <%s>\n", path); return-1; } if ((ref_out = VQueryref(vgroup_id_out))==FAIL){ printf( "Failed to get ref for <%s>\n", path); return-1; } if ((tag_out = VQuerytag(vgroup_id_out))==FAIL){ printf( "Failed to get tag for <%s>\n", path); return-1; } if (copy_an(infile_id, outfile_id, ref_in, tag_in, ref_out, tag_out, path, options)<0) return FAIL; return SUCCEED; } /*------------------------------------------------------------------------- * Function: copy_vs_an * * Purpose: copy Vdata ANs * * Return: ok, 1, -1 not ok * *------------------------------------------------------------------------- */ int copy_vs_an(int32 infile_id, int32 outfile_id, int32 vdata_id, int32 vdata_id_out, char *path, options_t *options) { int32 ref_in, tag_in, ref_out, tag_out; if ( options->trip==0 ) { return 1; } if ((ref_in = VSQueryref(vdata_id))==FAIL){ printf( "Failed to get ref for <%s>\n", path); return-1; } if ((tag_in = VSQuerytag(vdata_id))==FAIL){ printf( "Failed to get tag for <%s>\n", path); return-1; } if ((ref_out = VSQueryref(vdata_id_out))==FAIL){ printf( "Failed to get ref for <%s>\n", path); return-1; } if ((tag_out = VSQuerytag(vdata_id_out))==FAIL){ printf( "Failed to get tag for <%s>\n", path); return-1; } if (copy_an(infile_id, outfile_id, ref_in, tag_in, ref_out, tag_out, path, options)<0) return FAIL; return 1; } /*------------------------------------------------------------------------- * Function: copy_an_data * * Purpose: copy DATA ANs * * Return: ok, 1, -1 not ok * *------------------------------------------------------------------------- */ int copy_an_data(int32 infile_id, int32 outfile_id, int32 ref_in, int32 tag_in, int32 ref_out, int32 tag_out, ann_type type, char *path, options_t *options) { int32 an_id, /* AN interface identifier */ an_out, /* AN interface identifier */ ann_id, /* an annotation identifier */ ann_out, /* an annotation identifier */ ann_length, /* length of the text in an annotation */ n_anno; int i; /* position of an annotation */ char *buf; /* buffer to hold the read annotation */ int is_label= (type==AN_DATA_LABEL)?1:0; int ret=0; if ( options->trip==0 ) { return 1; } /* Initialize the AN interface */ an_id = ANstart (infile_id); an_out = ANstart (outfile_id); /* Get the number of ANs in this object */ if((n_anno = ANnumann(an_id,type,(uint16)tag_in,(uint16)ref_in))==FAIL) { printf( "Failed to get annotations for <%s>\n", path); return-1; } for (i = 0; i < n_anno; i++) { /*------------------------------------------------------------------------- * read *------------------------------------------------------------------------- */ if((ann_id = ANselect(an_id,i,type))==FAIL) { printf( "Failed to select AN %d of <%s>\n", i, path); continue; } if((ann_length = ANannlen(ann_id))==FAIL) { printf( "Failed to get AN %d lenght of <%s>\n", i, path); continue; } /* * Read the data label. Note that the size of the buffer, * i.e., the third parameter, is 1 character more than the length of * the data label; that is for the null character. It is not the case * when a description is retrieved because the description does not * necessarily end with a null character. * */ if (is_label) ann_length++; if ((buf = (char *)malloc((ann_length)*sizeof(int8)))==NULL ) { printf( "Failed to get memory for AN %d of <%s>\n", i, path); continue; } if(ANreadann(ann_id,buf,ann_length)==FAIL){ printf( "Failed to read AN %d of <%s>\n", i, path); if (buf) free(buf); continue; } if(ANendaccess(ann_id)==FAIL){ printf( "Failed to end AN %d of <%s>\n", i, path); if (buf) free(buf); continue; } /*------------------------------------------------------------------------- * write *------------------------------------------------------------------------- */ /* Create the data label for the vgroup identified by its tag and ref number */ if((ann_out = ANcreate(an_out,(uint16)tag_out,(uint16)ref_out,type))==FAIL) { printf( "Failed to create AN %d of <%s>\n", i, path); continue; } /* Write the annotation */ if (ANwriteann (ann_out,buf,ann_length)==FAIL){ printf( "Failed to write AN %d of <%s>\n", i, path); } if(ANendaccess(ann_out)==FAIL){ printf( "Failed to end AN %d of <%s>\n", i, path); if (buf) free(buf); continue; } if (buf) free(buf); } /* Terminate access to the AN interface */ if (ANend (an_id)==FAIL){ printf( "Failed close AN for <%s>\n", path); ret=-1; } if (ANend (an_out)==FAIL){ printf( "Failed close AN for <%s>\n", path); ret=-1; } return ret; } /*------------------------------------------------------------------------- * Function: copy_an * * Purpose: copy DATA ANs (AN_DATA_LABEL and AN_DATA_DESC) * * Return: ok, 1, -1 not ok * *------------------------------------------------------------------------- */ int copy_an(int32 infile_id, int32 outfile_id, int32 ref_in, int32 tag_in, int32 ref_out, int32 tag_out, char *path, options_t *options) { if (copy_an_data(infile_id,outfile_id, ref_in,tag_in,ref_out,tag_out, AN_DATA_LABEL,path,options)<0) return FAIL; if (copy_an_data(infile_id,outfile_id, ref_in,tag_in,ref_out,tag_out, AN_DATA_DESC,path,options)<0) return FAIL; return SUCCEED; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_lsttable.c0000644000000000000000000001354212421456623017267 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include #include "hrepack_lsttable.h" /*------------------------------------------------------------------------- * Function: list_table_search * * Purpose: linear search the table for tag and ref * * Return: index on success, -1 on failure * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ int list_table_search(list_table_t *list_tbl, int tag, int ref ) { int i; for (i = 0; i < list_tbl->nobjs; i++) { if (list_tbl->objs[i].tag == tag && list_tbl->objs[i].ref == ref) return i; } return -1; } /*------------------------------------------------------------------------- * Function: list_table_add * * Purpose: add pair tag/ref and object path to table * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void list_table_add(list_table_t *list_tbl, int tag, int ref, char* path) { int path_len; int i; if (list_tbl->nobjs == list_tbl->size) { list_tbl->size *= 2; list_tbl->objs = (obj_info_t*)realloc(list_tbl->objs, list_tbl->size * sizeof(obj_info_t)); for (i = list_tbl->nobjs; i < list_tbl->size; i++) { list_tbl->objs[i].tag = -1; list_tbl->objs[i].ref = -1; list_tbl->objs[i].path = NULL; } } i = list_tbl->nobjs++; list_tbl->objs[i].tag = tag; list_tbl->objs[i].ref = ref; /* copy the path over */ path_len = HDstrlen(path); list_tbl->objs[i].path = (char *)HDmalloc(path_len+1); HIstrncpy(list_tbl->objs[i].path, path, path_len+1); } /*------------------------------------------------------------------------- * Function: list_table_init * * Purpose: initialize table * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void list_table_init( list_table_t **tbl ) { int i; list_table_t* list_tbl = (list_table_t*) malloc(sizeof(list_table_t)); list_tbl->size = 20; list_tbl->nobjs = 0; list_tbl->objs = (obj_info_t*) malloc(list_tbl->size * sizeof(obj_info_t)); for (i = 0; i < list_tbl->size; i++) { list_tbl->objs[i].tag = -1; list_tbl->objs[i].ref = -1; } *tbl = list_tbl; } /*------------------------------------------------------------------------- * Function: list_table_free * * Purpose: free table memory * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void list_table_free( list_table_t *list_tbl ) { int i; for (i = 0; i < list_tbl->nobjs; i++) { assert(list_tbl->objs[i].path); free(list_tbl->objs[i].path); } free(list_tbl->objs); free(list_tbl); } /*------------------------------------------------------------------------- * Function: list_table_check * * Purpose: search the table for valid objects * * Return: error string or NULL for success * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ const char* list_table_check(list_table_t *list_tbl, char*obj_name) { int i; int32 tag; for (i = 0; i < list_tbl->nobjs; i++) { if (strcmp(list_tbl->objs[i].path,obj_name)==0) { /* found the name; check if it is an SDS or Image */ tag=list_tbl->objs[i].tag; if (tag==DFTAG_SD || tag==DFTAG_SDG || tag==DFTAG_NDG || tag==DFTAG_RI || tag==DFTAG_CI || tag==DFTAG_RIG || tag==DFTAG_RI8 || tag==DFTAG_CI8 || tag==DFTAG_II8 ) return NULL; else return "not compressible/chunk object"; } } return "not found"; } /*------------------------------------------------------------------------- * Function: list_table_print * * Purpose: print object list * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 25, 2003 * *------------------------------------------------------------------------- */ void list_table_print(list_table_t *list_tbl) { int i; printf("---------------------------------------\n"); printf("%5s %6s %-15s\n", "Tag", "Ref", "Name"); printf("---------------------------------------\n"); for (i = 0; i < list_tbl->nobjs; i++) { printf("%5d %6d %-15s\n", list_tbl->objs[i].tag, list_tbl->objs[i].ref, list_tbl->objs[i].path); } } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/pal_rgb.h0000644000000000000000000000724212421456623015373 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #if !defined(_PAL_RGB_H) #define _PAL_RGB_H unsigned char pal_rgb[256*3] = {0,0,0, 0,0,131, 0,0,135, 0,0,139, 0,0,143, 0,0,147, 0,0,151, 0,0,155, 0,0,159, 0,0,163, 0,0,167, 0,0,171, 0,0,175, 0,0,179, 0,0,183, 0,0,187, 0,0,191, 0,0,195, 0,0,199, 0,0,203, 0,0,207, 0,0,211, 0,0,215, 0,0,219, 0,0,223, 0,0,227, 0,0,231, 0,0,235, 0,0,239, 0,0,243, 0,0,247, 0,0,251, 0,0,255, 0,0,255, 0,3,255, 0,7,255, 0,11,255, 0,15,255, 0,19,255, 0,23,255, 0,27,255, 0,31,255, 0,35,255, 0,39,255, 0,43,255, 0,47,255, 0,51,255, 0,55,255, 0,59,255, 0,63,255, 0,67,255, 0,71,255, 0,75,255, 0,79,255, 0,83,255, 0,87,255, 0,91,255, 0,95,255, 0,99,255, 0,103,255, 0,107,255, 0,111,255, 0,115,255, 0,119,255, 0,123,255, 0,127,255, 0,131,255, 0,135,255, 0,139,255, 0,143,255, 0,147,255, 0,151,255, 0,155,255, 0,159,255, 0,163,255, 0,167,255, 0,171,255, 0,175,255, 0,179,255, 0,183,255, 0,187,255, 0,191,255, 0,195,255, 0,199,255, 0,203,255, 0,207,255, 0,211,255, 0,215,255, 0,219,255, 0,223,255, 0,227,255, 0,231,255, 0,235,255, 0,239,255, 0,243,255, 0,247,255, 0,251,255, 0,255,255, 0,255,255, 3,255,251, 7,255,247, 11,255,243, 15,255,239, 19,255,235, 23,255,231, 27,255,227, 31,255,223, 35,255,219, 39,255,215, 43,255,211, 47,255,207, 51,255,203, 55,255,199, 59,255,195, 63,255,191, 67,255,187, 71,255,183, 75,255,179, 79,255,175, 83,255,171, 87,255,167, 91,255,163, 95,255,159, 99,255,155, 103,255,151, 107,255,147, 111,255,143, 115,255,139, 119,255,135, 123,255,131, 127,255,127, 131,255,123, 135,255,119, 139,255,115, 143,255,111, 147,255,107, 151,255,103, 155,255,99, 159,255,95, 163,255,91, 167,255,87, 171,255,83, 175,255,79, 179,255,75, 183,255,71, 187,255,67, 191,255,63, 195,255,59, 199,255,55, 203,255,51, 207,255,47, 211,255,43, 215,255,39, 219,255,35, 223,255,31, 227,255,27, 231,255,23, 235,255,19, 239,255,15, 243,255,11, 247,255,7, 251,255,3, 255,255,0, 255,251,0, 255,247,0, 255,243,0, 255,239,0, 255,235,0, 255,231,0, 255,227,0, 255,223,0, 255,219,0, 255,215,0, 255,211,0, 255,207,0, 255,203,0, 255,199,0, 255,195,0, 255,191,0, 255,187,0, 255,183,0, 255,179,0, 255,175,0, 255,171,0, 255,167,0, 255,163,0, 255,159,0, 255,155,0, 255,151,0, 255,147,0, 255,143,0, 255,139,0, 255,135,0, 255,131,0, 255,127,0, 255,123,0, 255,119,0, 255,115,0, 255,111,0, 255,107,0, 255,103,0, 255,99,0, 255,95,0, 255,91,0, 255,87,0, 255,83,0, 255,79,0, 255,75,0, 255,71,0, 255,67,0, 255,63,0, 255,59,0, 255,55,0, 255,51,0, 255,47,0, 255,43,0, 255,39,0, 255,35,0, 255,31,0, 255,27,0, 255,23,0, 255,19,0, 255,15,0, 255,11,0, 255,7,0, 255,3,0, 255,0,0, 250,0,0, 246,0,0, 241,0,0, 237,0,0, 233,0,0, 228,0,0, 224,0,0, 219,0,0, 215,0,0, 211,0,0, 206,0,0, 202,0,0, 197,0,0, 193,0,0, 189,0,0, 184,0,0, 180,0,0, 175,0,0, 171,0,0, 167,0,0, 162,0,0, 158,0,0, 153,0,0, 149,0,0, 145,0,0, 140,0,0, 136,0,0, 131,0,0, 127,0,0 }; #endif libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/CMakeLists.txt0000644000000000000000000000473412421456623016357 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_HREPACK) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_SOURCE_DIR}/mfhdf/hdiff) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (hrepack_SRCS ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_an.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_gr.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_list.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_lsttable.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_main.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_opttable.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_parse.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_sds.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_utils.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_vg.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_vs.c ${HDF4_MFHDF_HREPACK_SOURCE_DIR}/hrepack_dim.c ) ADD_EXECUTABLE (hrepack ${hrepack_SRCS}) TARGET_C_PROPERTIES (hrepack " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hrepack ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hrepack ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (hrepack ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Rules for Installation of tools using make Install target #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (hrepack ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS hrepack RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_gr.c0000644000000000000000000005574212421456623016075 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_gr.h" #include "hrepack_utils.h" #include "hrepack_an.h" #include "hrepack_parse.h" #include "hrepack_opttable.h" /*------------------------------------------------------------------------- * Function: copy_gr * * Purpose: copy a GR from input file to output file and compress it * using options * * Return: 0 ok, -1 not ok * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 11, 2003 * *------------------------------------------------------------------------- */ int copy_gr(int32 infile_id, int32 outfile_id, int32 gr_in, int32 gr_out, int32 tag, /* tag of input GR */ int32 ref, /* ref of input GR */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ options_t *options, list_table_t *list_tbl) { int32 ri_id, /* raster image identifier */ ri_out, /* raster image identifier */ ri_index, /* index of a image */ dimsizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode,/* interlace mode of an image */ dtype, /* number type of an image */ n_attrs, /* number of attributes belong to an image */ gr_ref, /* reference number of the output data set */ pal_id, /* palette identifier */ pal_out, /* palette identifier */ pal_ref, r_num_entries, r_data_type, r_ncomp, r_interlace_mode; char gr_name[H4_MAX_GR_NAME]; char *path=NULL; int info; /* temporary int compression information */ int szip_mode; /* szip mode, EC, NN */ comp_coder_t comp_type; /* compression type requested */ comp_coder_t comp_type_in; /* compression type original */ comp_info c_info; /* compression information requested */ comp_info c_info_in; /* compression information original */ HDF_CHUNK_DEF chunk_def; /* chunk definition */ HDF_CHUNK_DEF chunk_def_in; /* chunk definition original */ int32 chunk_flags; /* chunk flags */ int32 chunk_flags_in; /* chunk flags original*/ int i, j, ret=0, rank=2, have_info,stat; int has_pal = 0; int32 start[2], /* read start */ edges[2], /* read edges */ numtype, /* number type */ eltsz, /* element size */ nelms, /* number of elements */ data_size; VOIDP buf=NULL; uint8 pal_data[256*3]; int can_compress=1; /* flag to tell if a compression is supported */ char *pal_path="palette"; ri_index = GRreftoindex(gr_in,(uint16)ref); ri_id = GRselect(gr_in,ri_index); if (GRgetiminfo(ri_id,gr_name,&n_comps,&dtype,&interlace_mode,dimsizes,&n_attrs)==FAIL){ printf( "Could not information for GR\n"); GRendaccess(ri_id); return-1; } /* initialize path */ path=get_path(path_name,gr_name); /* add object to table */ list_table_add(list_tbl,tag,ref,path); /*------------------------------------------------------------------------- * get the original compression/chunk information from the object *------------------------------------------------------------------------- */ comp_type_in = COMP_CODE_NONE; /* reset variables before retrieving information */ HDmemset(&c_info_in, 0, sizeof(comp_info)) ; stat=GRgetcompinfo(ri_id, &comp_type_in, &c_info_in); if (stat==FAIL && comp_type_in>0){ printf( "Could not get compress information for GR <%s>\n",path); GRendaccess(ri_id); return-1; } /* get chunk lengths */ if (GRgetchunkinfo(ri_id, &chunk_def_in, &chunk_flags_in)==FAIL){ printf( "Could not get chunk information for GR <%s>\n",path); GRendaccess(ri_id); return-1; } /* retrieve the compress information if so */ if ( (HDF_CHUNK | HDF_COMP) == chunk_flags_in ) { chunk_def_in.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: #ifdef H4_GR_SZIP chunk_def_in.comp.comp_type = COMP_CODE_SZIP; chunk_def_in.comp.cinfo.szip = c_info_in.szip; #endif chunk_def_in.comp.comp_type = COMP_CODE_NONE; printf("Warning: SZIP compression not supported for GR\n"); break; case COMP_CODE_RLE: chunk_def_in.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def_in.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def_in.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def_in.comp.comp_type = COMP_CODE_DEFLATE; chunk_def_in.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_JPEG: chunk_def_in.comp.comp_type = COMP_CODE_JPEG; chunk_def_in.comp.cinfo.jpeg = c_info_in.jpeg; break; default: printf("Error: Unrecognized compression code <%d> in <%s>\n",comp_type_in,path); break; }; } /*------------------------------------------------------------------------- * set the default values to the ones read from the object *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * compression *------------------------------------------------------------------------- */ comp_type = comp_type_in; switch (comp_type_in) { default: break; case COMP_CODE_SZIP: #ifdef H4_GR_SZIP info = c_info_in.szip.pixels_per_block; #ifdef H4_HAVE_LIBSZ if (c_info_in.szip.options_mask & SZ_EC_OPTION_MASK) { szip_mode = EC_MODE; } else if (c_info_in.szip.options_mask & SZ_NN_OPTION_MASK) { szip_mode = NN_MODE; } #else szip_mode = 0; /* irrelevant */ #endif #endif szip_mode = 0; /* irrelevant */ break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: info = c_info_in.skphuff.skp_size; break; case COMP_CODE_DEFLATE: info = c_info_in.deflate.level; break; case COMP_CODE_JPEG: /* JPEG's quality factor was not saved to the file and 75 is recommended by http://www.faqs.org/faqs/jpeg-faq/part1 - BMR 1/2009*/ info = 75; /* a constant should be defined somewhere in the library */ c_info_in.jpeg.quality = 75; break; }; /*------------------------------------------------------------------------- * chunking *------------------------------------------------------------------------- */ chunk_flags = chunk_flags_in; if ( (HDF_CHUNK) == chunk_flags ) { for (i = 0; i < rank; i++) chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } else if ( (HDF_CHUNK | HDF_COMP) == chunk_flags ) { for (i = 0; i < rank; i++) { chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; chunk_def.comp.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } chunk_def.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: #ifdef H4_GR_SZIP chunk_def.comp.comp_type = COMP_CODE_SZIP; chunk_def.comp.cinfo.szip = c_info_in.szip; #endif chunk_def.comp.comp_type = COMP_CODE_NONE; printf("Warning: SZIP not supported for GR\n"); break; case COMP_CODE_RLE: chunk_def.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_JPEG: chunk_def.comp.comp_type = COMP_CODE_JPEG; chunk_def.comp.cinfo.jpeg = c_info_in.jpeg; break; default: printf("Error: Unrecognized compression code <%d> in <%s>\n",comp_type_in,path); break; }; } /*------------------------------------------------------------------------- * get the compression/chunk information of this object from the table * translate to usable information * this is done ONLY for the second trip inspection *------------------------------------------------------------------------- */ /* check inspection mode */ have_info = 0; if ( options->trip>0 ) { have_info = options_get_info(options, /* global options */ &chunk_flags, /* chunk flags OUT */ &chunk_def, /* chunk definition OUT */ &info, /* compression information OUT */ &szip_mode, /* compression information OUT */ &comp_type, /* compression type OUT */ rank, /* rank of object IN */ path, /* path of object IN */ n_comps, /* number of GR image planes (for SZIP), IN */ dimsizes, /* dimensions (for SZIP), IN */ dtype /* numeric type ( for SZIP), IN */ ); if (have_info==FAIL) goto out; } /* check inspection mode */ /*------------------------------------------------------------------------- * check for data size before printing *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value. */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /* set edges of GR */ nelms=1; for (j = 0; j < rank; j++) { nelms *= dimsizes[j]; edges[j] = dimsizes[j]; start[j] = 0; } data_size = dimsizes[0]*dimsizes[1]*n_comps*eltsz; /*------------------------------------------------------------------------- * check for objects too small *------------------------------------------------------------------------- */ if ( have_info && options->trip>0 && nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ chunk_flags=chunk_flags_in; comp_type=comp_type_in; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,path); } } /*------------------------------------------------------------------------- * print the PATH, COMP and CHUNK information *------------------------------------------------------------------------- */ if (options->verbose) { int pr_comp_type=0; int pr_chunk_flags; if ( options->trip==0 ) pr_chunk_flags=chunk_flags_in; else pr_chunk_flags=chunk_flags; if (comp_type>0) { pr_comp_type=comp_type; } else { if (pr_chunk_flags == (HDF_CHUNK | HDF_COMP) ) { pr_comp_type=chunk_def.comp.comp_type; } } printf(PFORMAT, (pr_chunk_flags>0)?"chunk":"", /*chunk information*/ (pr_comp_type>0)?get_scomp(pr_comp_type):"", /*compression information*/ "", /*compression ratio */ path); /*name*/ } /*------------------------------------------------------------------------- * if we are in first trip inspection mode, exit, after printing the information *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip==0 ) { if (path) free(path); if (GRendaccess(ri_id)==FAIL){ printf( "Could not close GR <%s>\n",path); return-1; } return 0; } /*------------------------------------------------------------------------- * read gr and create new one *------------------------------------------------------------------------- */ /* alloc */ if ((buf = (VOIDP) HDmalloc(data_size)) == NULL) { printf( "Failed to allocate %ld elements of size %ld\n", nelms, eltsz); GRendaccess(ri_id); if (path) free(path); return-1; } /* set the interlace for reading */ if ( GRreqimageil(ri_id, interlace_mode) == FAIL ){ printf( "Could not set interlace for GR <%s>\n", path); GRendaccess(ri_id); if (path) free(path); return-1; } /* read data */ if (GRreadimage (ri_id, start, NULL, edges, buf) == FAIL) { printf( "Could not read GR <%s>\n", path); GRendaccess(ri_id); if (path) free(path); return-1; } /* create output GR */ if ((ri_out = GRcreate(gr_out,gr_name,n_comps,dtype,interlace_mode,dimsizes)) == FAIL) { printf( "Failed to create new GR <%s>\n", path); ret=-1; goto out; } /*------------------------------------------------------------------------- * set chunk * * Chunked -> flags = HDF_CHUNK * Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP * Non-chunked -> flags = HDF_NONE *------------------------------------------------------------------------- */ /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { if (GRsetchunk (ri_out, chunk_def, chunk_flags)==FAIL) { printf( "Error: Failed to set chunk dimensions for <%s>\n", path); ret=-1; goto out; } } /*------------------------------------------------------------------------- * set compression * * COMP_CODE_RLE -> simple RLE encoding * COMP_CODE_SKPHUFF -> Skipping huffman encoding * COMP_CODE_DEFLATE -> gzip 'deflate' encoding *------------------------------------------------------------------------- */ /* use compress without chunk-in */ else if ( chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE) { if ( have_info && options->trip>0 && nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ comp_type=COMP_CODE_NONE; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,path); } } else { /* setup compression factors */ switch(comp_type) { case COMP_CODE_SZIP: #ifdef H4_GR_SZIP /* not supported */ if (set_szip (info,szip_mode,&c_info)==FAIL) { comp_type=COMP_CODE_NONE; } #endif printf("Warning: SZIP not supported for GR\n"); can_compress=0; break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: c_info.skphuff.skp_size = info; break; case COMP_CODE_DEFLATE: c_info.deflate.level = info; break; case COMP_CODE_JPEG: c_info.jpeg.quality = info; c_info.jpeg.force_baseline = 1; break; default: printf( "Error: Unrecognized compression code %d\n", comp_type); can_compress=0; } if (can_compress) { if (GRsetcompress (ri_out, comp_type, &c_info)==FAIL) { printf( "Error: Failed to set compression for <%s>\n", path); ret=-1; goto out; } } /* can_compress */ } } /* write the data */ if (GRwriteimage(ri_out, start, NULL, edges, buf) == FAIL) { printf( "Failed to write to new GR <%s>\n", path); ret=-1; goto out; } /*------------------------------------------------------------------------- * copy attributes *------------------------------------------------------------------------- */ if( copy_gr_attrs(ri_id,ri_out,n_attrs,options)==FAIL) { ret=-1; goto out; } /*------------------------------------------------------------------------- * check for palette *------------------------------------------------------------------------- */ pal_id = GRgetlutid(ri_id, 0); GRgetlutinfo(pal_id,&r_ncomp,&r_data_type,&r_interlace_mode,&r_num_entries); /*check if there is palette data */ has_pal=((r_ncomp == 0) || (r_interlace_mode < 0) || (r_num_entries == 0))?0:1; if ( has_pal==1 ) { GRreqlutil(ri_id, r_interlace_mode); if (GRreadlut(pal_id, pal_data)==FAIL) { printf( "Failed to get palette data for <%s>\n", path); } if ((pal_ref=GRluttoref(pal_id))== FAIL) { printf( "Failed to get palette ref for <%s>\n", path); } /* add palette to table; we want to later check for lone palettes */ list_table_add(list_tbl,DFTAG_IP8,pal_ref,pal_path); /* Get the id for the new palette */ if ((pal_out = GRgetlutid(ri_out, 0)) == FAIL) { printf( "Failed to get palette ID for <%s>\n", path); } /* Write the palette to file. */ if (GRwritelut(pal_out,r_ncomp,r_data_type,r_interlace_mode,r_num_entries, (VOIDP)pal_data)== FAIL) { printf( "Failed to write palette for <%s>\n", path); } } /* has_pal==1 */ /* obtain the reference number of the new SDS using its identifier */ if ((gr_ref = GRidtoref (ri_out)) == FAIL) { printf( "Failed to get new GR reference in <%s>\n", path); } /*------------------------------------------------------------------------- * add GR to group, if needed *------------------------------------------------------------------------- */ if (vgroup_id_out_par) { /* add the GR to the vgroup. the tag DFTAG_RIG is used */ if (Vaddtagref (vgroup_id_out_par, TAG_GRP_IMAGE, gr_ref)==FAIL) { printf( "Failed to add new GR to group <%s>\n", path); } } /*------------------------------------------------------------------------- * copy ANs *------------------------------------------------------------------------- */ if (copy_an(infile_id,outfile_id, ref,DFTAG_RIG,gr_ref,DFTAG_RIG, path,options)<0) { ret=-1; goto out; } if (copy_an(infile_id,outfile_id, ref,DFTAG_RI,gr_ref,DFTAG_RI, path,options)<0) { ret=-1; goto out; } out: /* terminate access to the GRs */ if (GRendaccess(ri_id)== FAIL ) printf( "Failed to close SDS <%s>\n", path); if (GRendaccess(ri_out)== FAIL ) printf( "Failed to close SDS <%s>\n", path); if (path) free(path); if (buf) free(buf); return ret; } /*------------------------------------------------------------------------- * Function: copy_gr_attrs * * Purpose: copy GR attributes from input file to output file * * Return: 1, for success, -1 for error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 28, 2003 * *------------------------------------------------------------------------- */ int copy_gr_attrs(int32 ri_id, int32 ri_out, int32 nattrs, options_t *options) { int32 dtype, /* SDS data type */ numtype, /* number type */ eltsz, /* element size */ nelms; /* number of elements */ char attr_name[H4_MAX_NC_NAME]; VOIDP attr_buf=NULL; int i; /* loop through attributes in input GR */ for (i = 0; i < nattrs; i++) { if (GRattrinfo (ri_id, i, attr_name, &dtype, &nelms) == FAIL) { printf( "Cannot get information for attribute number %d\n", i); return-1; } /* compute the number of the bytes for each value. */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); if ((attr_buf = (VOIDP) HDmalloc(nelms * eltsz)) == NULL) { printf( "Error allocating %ld values of size %ld for attribute %s", nelms, numtype, attr_name); return-1; } /* read attributes from input GR */ if (GRgetattr(ri_id, i, attr_buf) == FAIL) { printf( "Cannot read attribute %s\n", attr_name); return-1; } /* put attributes into output GR */ if (GRsetattr(ri_out, attr_name, dtype, nelms, attr_buf) == FAIL) { printf( "Cannot write attribute %s\n", attr_name); return-1; } if (attr_buf) free(attr_buf); } return 1; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack.c0000644000000000000000000003151412421456623015374 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_parse.h" #include "hrepack_opttable.h" int print_options(options_t *options); /*------------------------------------------------------------------------- * Function: hrepack * * Purpose: locate all high-level HDF objects in the file * and compress/chunk them using options * * Algorythm: 2 traversals are made to the file; the 1st builds a list of * the high-level objects, the 2nd makes a copy of them, using the options; * the reason for the 1st traversal is to check for invalid object name requests * * Return: FAIL, SUCCEED * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 10, 2003 * *------------------------------------------------------------------------- */ int hrepack_main(const char* infile, const char* outfile, options_t *options) { options->trip=0; /* also checks input */ if (print_options(options)<0) return FAIL; /* first check for objects in input that are in the file */ if (list_main(infile,outfile,options)<0) return FAIL; /* the real deal now */ options->trip=1; if (options->verbose) printf("Making new file %s...\n",outfile); /* this can fail for different reasons */ if (list_main(infile,outfile,options)<0) return FAIL; return SUCCEED; } /*------------------------------------------------------------------------- * Function: hrepack_addcomp * * Purpose: add a compression -t option to table * Example: -t "*:GZIP 6" * * Return: FAIL, SUCCEED * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 23, 2003 * *------------------------------------------------------------------------- */ int hrepack_addcomp(const char* str, options_t *options) { obj_list_t *obj_list=NULL; /*one object list for the -t and -c option entry */ comp_info_t comp; /*compression info for the current -t option entry */ int n_objs; /*number of objects in the current -t or -c option entry */ int i; if (options->all_comp==1){ printf("Error: Invalid compression input: '*' is present with other objects <%s>\n",str); return FAIL; } /* initialize parse struct to FAIL */ memset(&comp,FAIL,sizeof(comp_info_t)); /* parse the -t option */ if ((obj_list = parse_comp(str,&n_objs,&comp)) == NULL) return FAIL; /* searh for the "*" all objects character */ for (i = 0; i < n_objs; i++) { if (strcmp("*",obj_list[i].obj)==0) { /* if we are compressing all set the global comp type */ options->all_comp=1; options->comp_g=comp; } } if (i>1 && options->all_comp==1) { printf("\nError: '*' cannot be with other objects, <%s>. Exiting...\n",str); goto out; } if (options->all_comp==0) { if (options_add_comp(obj_list,n_objs,comp,options->op_tbl)<0) goto out; } HDfree(obj_list); return SUCCEED; out: HDfree(obj_list); return FAIL; } /*------------------------------------------------------------------------- * Function: hrepack_addchunk * * Purpose: add a chunk -c option to table * Example: -c "*:2x2" , STR = "*:2x2" * * Return: FAIL, SUCCEED * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 23, 2003 * *------------------------------------------------------------------------- */ int hrepack_addchunk(const char* str, options_t *options) { obj_list_t *obj_list=NULL; /*one object list for the -t and -c option entry */ int n_objs; /*number of objects in the current -t or -c option entry */ int32 chunk_lengths[H4_MAX_VAR_DIMS]; /* chunk lengths along each dimension */ int chunk_rank; /*global rank for chunks */ int i, j; if (options->all_chunk==1){ printf("Error: Invalid chunking input: '*' is present with other objects <%s>\n",str); return FAIL; } /* parse the -c option */ if ((obj_list = parse_chunk(str,&n_objs,chunk_lengths,&chunk_rank)) == NULL) return FAIL; /* searh for the "*" all objects character */ for (i = 0; i < n_objs; i++) { if (strcmp("*",obj_list[i].obj)==0) { /* if we are chunking all set the global chunking type */ options->all_chunk=1; options->chunk_g.rank=chunk_rank; for (j = 0; j < chunk_rank; j++) options->chunk_g.chunk_lengths[j] = chunk_lengths[j]; } } if (i>1) { printf("\nError: '*' cannot be with other objects, <%s>. Exiting...\n",str); goto out; } if (options->all_chunk==0) { if (options_add_chunk(obj_list,n_objs,chunk_lengths,chunk_rank,options->op_tbl)<0) goto out; } HDfree(obj_list); return SUCCEED; out: HDfree(obj_list); return FAIL; } /*------------------------------------------------------------------------- * Function: hrepack_init * * Purpose: initialize options * *------------------------------------------------------------------------- */ void hrepack_init (options_t *options, int verbose) { memset(options,0,sizeof(options_t)); options->threshold = 1024; options->verbose = verbose; options_table_init(&(options->op_tbl)); } /*------------------------------------------------------------------------- * Function: hrepack_end * * Purpose: free options table * *------------------------------------------------------------------------- */ void hrepack_end (options_t *options) { options_table_free(options->op_tbl); } /*------------------------------------------------------------------------- * Function: print_options * * Purpose: print and check options * * Return: FAIL, SUCCEED * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 25, 2003 * *------------------------------------------------------------------------- */ int print_options(options_t *options) { int i, k, j, has_cp=0, has_ck=0; /*------------------------------------------------------------------------- * objects to chunk *------------------------------------------------------------------------- */ if (options->verbose) { printf("Objects to chunk are...\n"); if (options->all_chunk==1) { printf("\tChunk all with dimension ["); for ( j = 0; j < options->chunk_g.rank; j++) printf("%ld ", options->chunk_g.chunk_lengths[j]); printf("]\n"); } }/* verbose */ for ( i = 0; i < options->op_tbl->nelems; i++) { char* obj_name=options->op_tbl->objs[i].objpath; if (options->op_tbl->objs[i].chunk.rank>0) { if (options->verbose){ printf("\t%s [",obj_name); for ( k = 0; k < options->op_tbl->objs[i].chunk.rank; k++) printf("%ld ",options->op_tbl->objs[i].chunk.chunk_lengths[k]); printf("]\n"); } has_ck=1; } else if (options->op_tbl->objs[i].chunk.rank==-2) { if (options->verbose) printf("\t%s %s\n",obj_name,"NONE"); has_ck=1; } } if (options->all_chunk==1 && has_ck){ printf("Error: Invalid chunking input: '*' is present with other objects\n"); return FAIL; } /*------------------------------------------------------------------------- * objects to compress/uncompress *------------------------------------------------------------------------- */ if (options->verbose) { printf("Objects to compress are...\n"); if (options->all_comp==1) { switch (options->comp_g.type) { default: break; case COMP_CODE_RLE: case COMP_CODE_SZIP: printf("\tCompress all with %s compression\n", get_scomp(options->comp_g.type)); break; case COMP_CODE_SKPHUFF: case COMP_CODE_DEFLATE: case COMP_CODE_JPEG: printf("\tCompress all with %s compression, parameter %d\n", get_scomp(options->comp_g.type), options->comp_g.info); break; }; } } /* verbose */ for ( i = 0; i < options->op_tbl->nelems; i++) { pack_info_t obj=options->op_tbl->objs[i]; if (obj.comp.type>0) { char* obj_name=obj.objpath; if (options->verbose) { printf("\t%s %s compression, parameter %d\n", obj_name, get_scomp(obj.comp.type), obj.comp.info); } has_cp=1; } } if (options->all_comp==1 && has_cp){ printf("Error: Invalid compression input: * is present with other objects\n"); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: read_info * * Purpose: read comp and chunk options from file * * Return: FAIL, SUCCEED * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 30, 2003 * *------------------------------------------------------------------------- */ int read_info(const char *filename, options_t *options) { char stype[10]; char comp_info[1024]; FILE *fp=NULL; char c; int i, rc=1; if ((fp = fopen(filename, "r")) == (FILE *)NULL) { printf( "Cannot open options file %s", filename); return FAIL; } /* cycle until end of file reached */ while( 1 ) { rc=fscanf(fp, "%s", stype); if (rc==-1) break; /*------------------------------------------------------------------------- * comp *------------------------------------------------------------------------- */ if (strcmp(stype,"-t") == 0) { /* find begining of info */ i=0; c='0'; while( c!='"' ) { fscanf(fp, "%c", &c); } c='0'; /* go until end */ while( c!='"' ) { fscanf(fp, "%c", &c); comp_info[i]=c; i++; } comp_info[i-1]='\0'; /*cut the last " */ if (hrepack_addcomp(comp_info,options)<0) goto out; } /*------------------------------------------------------------------------- * chunk *------------------------------------------------------------------------- */ else if (strcmp(stype,"-c") == 0) { /* find begining of info */ i=0; c='0'; while( c!='"' ) { fscanf(fp, "%c", &c); } c='0'; /* go until end */ while( c!='"' ) { fscanf(fp, "%c", &c); comp_info[i]=c; i++; } comp_info[i-1]='\0'; /*cut the last " */ if (hrepack_addchunk(comp_info,options)<0) goto out; } /*------------------------------------------------------------------------- * not valid *------------------------------------------------------------------------- */ else { printf( "Bad file format for %s", filename); goto out; } } fclose(fp); return SUCCEED; out: if (fp!=NULL) fclose(fp); return FAIL; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_list.c0000644000000000000000000013420112421456623016424 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_utils.h" #include "hrepack_parse.h" #include "hrepack_opttable.h" #include "hrepack_sds.h" #include "hrepack_gr.h" #include "hrepack_vs.h" #include "hrepack_an.h" #include "hrepack_vg.h" #include "hrepack_dim.h" int list_vg (int32 infile_id,int32 outfile_id,int32 sd_id,int32 sd_out,int32 gr_id,int32 gr_out,list_table_t *list_tbl,dim_table_t *td1,dim_table_t *td2,options_t *options); int list_gr (int32 infile_id,int32 outfile_id,int32 gr_id,int32 gr_out,list_table_t *list_tbl,options_t *options); int list_sds(int32 infile_id,int32 outfile_id,int32 sd_id, int32 sd_out,list_table_t *list_tbl,dim_table_t *td1,dim_table_t *td2,options_t *options); int list_vs (int32 infile_id,int32 outfile_id,list_table_t *list_tbl,options_t *options); int list_glb(int32 infile_id,int32 outfile_id,int32 sd_id,int32 sd_out,int32 gr_id,int32 gr_out,list_table_t *list_tbl,options_t *options); int list_pal(const char* infname,const char* outfname,list_table_t *list_tbl,options_t *options); int list_an (int32 infile_id,int32 outfile_id,options_t *options); /*------------------------------------------------------------------------- * Function: list * * Purpose: locate all HDF objects in the file and compress them using options * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 10, 2003 * * Modifications: September 9, 2007 * Check for duplicate Vgroup insertions * * Description: * * A main loop is used to locate all the objects in the file. The algorithm used is: * 1) Obtain the number of lone vgroups in the HDF file, i.e., vgroups that are at * the top of the grouping hierarchy, in a file. * 2) Do a loop for each one of these groups. In each iteration a table is updated * with the tag/reference pair of an object. * 2.1) Obtain the pairs of tag/references for the group * 2.2) Switch between the tag of the current object. Four cases are possible: * 1) Object is a group: recursively repeat the process (obtain the pairs of * tag/references for this group and do another tag switch). * If the Vgroup has not been visited * Add the object to the table and continue recursion * else * Open it, create the insertion into its parent and exit the recursion. * 2) Object is a dataset: Add the object to the table. * 3) Object is an image: Add the object to the table. * 4) Object is a vdata: Add the object to the table. * 3) Read all the HDF interfaces (SDS, GR and VS), checking for objects that are * already in the table (meaning they belong to a previous inspected group, * and should not be added). These objects belong to a root group. * 4) Read all global attributes and annotations. * *------------------------------------------------------------------------- */ int list_main(const char* infname, const char* outfname, options_t *options) { list_table_t *list_tbl=NULL; /* list of objects */ dim_table_t *td1=NULL; /* dimensions */ dim_table_t *td2=NULL; /* dimensions */ int32 sd_id=FAIL, /* SD interface identifier */ sd_out=FAIL, /* SD interface identifier */ gr_id=FAIL, /* GR interface identifier */ gr_out=FAIL, /* GR interface identifier */ infile_id=FAIL, outfile_id=FAIL; int i; const char* err; /*------------------------------------------------------------------------- * initialize tables *------------------------------------------------------------------------- */ list_table_init(&list_tbl); dim_table_init(&td1); dim_table_init(&td2); /*------------------------------------------------------------------------- * open the input file for read and initialize interfaces *------------------------------------------------------------------------- */ if ((infile_id = Hopen (infname,DFACC_READ,(int16)0))==FAIL) { printf("Cannot open file <%s>\n",infname); goto out; } if ((sd_id = SDstart (infname, DFACC_READ))==FAIL) { printf( "Could not start SD for <%s>\n",infname); goto out; } if ((gr_id = GRstart (infile_id))==FAIL) { printf( "Could not start GR for <%s>\n",infname); goto out; } /*------------------------------------------------------------------------- * create the output file and initialize interfaces *------------------------------------------------------------------------- */ if ( options->trip==1 ) { if ((outfile_id = Hopen (outfname,DFACC_CREATE,(int16)0))==FAIL) { printf("Cannot create file <%s>\n",outfname); goto out; } if ((sd_out = SDstart (outfname, DFACC_WRITE))==FAIL) { printf( "Could not start GR for <%s>\n",outfname); goto out; } if ((gr_out = GRstart (outfile_id))==FAIL) { printf( "Could not start GR for <%s>\n",outfname); goto out; } } /* options->trip==1 */ if (options->verbose && options->trip==0) printf("Building list of objects in %s...\n",infname); /*------------------------------------------------------------------------- * iterate tru HDF interfaces *------------------------------------------------------------------------- */ if (options->verbose) { printf("-----------------------------------------------\n"); printf(" Chunk Filter(compression) Name\n"); printf("-----------------------------------------------\n"); } if (list_vg (infile_id,outfile_id,sd_id,sd_out,gr_id,gr_out,list_tbl,td1,td2,options)<0) goto out; if (list_gr (infile_id,outfile_id,gr_id,gr_out,list_tbl,options)<0) goto out; if (list_sds(infile_id,outfile_id,sd_id,sd_out,list_tbl,td1,td2,options)<0) goto out; if (list_vs (infile_id,outfile_id,list_tbl,options)<0) goto out; if (list_glb(infile_id,outfile_id,sd_id,sd_out,gr_id,gr_out,list_tbl,options)<0) goto out; if (list_pal(infname,outfname,list_tbl,options)<0) goto out; if (list_an (infile_id,outfile_id,options)<0) goto out; if ( options->trip==1 ) { match_dim(sd_id,sd_out,td1,td2,options); } /*------------------------------------------------------------------------- * check for objects in the file table: * 1) the input object names are present in the file * 2) they are valid objects (SDS or GR) * check only if selected objects are given (all==0) *------------------------------------------------------------------------- */ if ( options->trip==0 ) { if (options->verbose) printf("Searching for objects to modify...\n"); for ( i = 0; i < options->op_tbl->nelems; i++) { char* obj_name=options->op_tbl->objs[i].objpath; if (options->verbose) printf(PFORMAT1,"","",obj_name); /* the input object names are present in the file and are valid */ err=list_table_check(list_tbl,obj_name); if (err!=NULL) { printf("\nError: <%s> %s in file <%s>. Exiting...\n",obj_name,err,infname); goto out; } if (options->verbose) printf("...Found\n"); } } /*------------------------------------------------------------------------- * close interfaces *------------------------------------------------------------------------- */ if (GRend (gr_id)==FAIL) printf( "Failed to close GR interface <%s>\n", infname); if (SDend (sd_id)==FAIL) printf( "Failed to close file <%s>\n", infname); if (Hclose (infile_id)==FAIL) printf( "Failed to close file <%s>\n", infname); if ( options->trip==1 ) { if (GRend (gr_out)==FAIL) printf( "Failed to close GR interface <%s>\n", outfname); if (SDend (sd_out)==FAIL) printf( "Failed to close file <%s>\n", outfname); if (Hclose (outfile_id)==FAIL) printf( "Failed to close file <%s>\n", outfname); } /*------------------------------------------------------------------------- * free tables *------------------------------------------------------------------------- */ list_table_free(list_tbl); dim_table_free(td1); dim_table_free(td2); return SUCCEED; out: if (list_tbl!=NULL) list_table_free(list_tbl); if (td1!=NULL) dim_table_free(td1); if (td2!=NULL) dim_table_free(td2); if (gr_id!=FAIL) { if (GRend (gr_id)==FAIL) printf( "Failed to close GR interface <%s>\n", infname); } if (gr_out!=FAIL) { if (GRend (gr_out)==FAIL) printf( "Failed to close GR interface <%s>\n", outfname); } if (sd_id!=FAIL) { if (SDend (sd_id)==FAIL) printf( "Failed to close SD interface for <%s>\n", infname); } if (sd_out!=FAIL) { if (SDend (sd_out)==FAIL) printf( "Failed to close SD interface for <%s>\n", outfname); } if (infile_id!=FAIL) { if (Hclose (infile_id)==FAIL) printf( "Failed to close file <%s>\n", infname); } if (outfile_id!=FAIL) { if (Hclose (outfile_id)==FAIL) printf( "Failed to close file <%s>\n", outfname); } return FAIL; } /*------------------------------------------------------------------------- * Function: list_vg * * Purpose: locate all objects in the file under a group hierarchy * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_vg(int32 infile_id, int32 outfile_id, int32 sd_id, int32 sd_out, int32 gr_id, int32 gr_out, list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, options_t *options) { int32 vg_id; /* vgroup identifier */ int32 nlones = 0; /* number of lone vgroups */ int32 ntagrefs; /* number of tag/ref pairs in a vgroup */ int32 *ref_array=NULL;/* buffer to hold the ref numbers of lone vgroups */ int32 *tags=NULL; /* buffer to hold the tag numbers of vgroups */ int32 *refs=NULL; /* buffer to hold the ref numbers of vgroups */ int32 vgroup_id_out=0;/* vgroup identifier */ int32 tag_vg; int32 ref_vg; char *vg_name; char *vg_class; uint16 name_len; int32 i; /*------------------------------------------------------------------------- * initialize the V interface *------------------------------------------------------------------------- */ if (Vstart(infile_id) == FAIL) { return FAIL; } if (options->trip==1) { if (Vstart(outfile_id) == FAIL) { return FAIL; } } /*------------------------------------------------------------------------- * get and print the names and class names of all the lone vgroups. * first, call Vlone with nlones set to 0 to get the number of * lone vgroups in the file, but not to get their reference numbers. *------------------------------------------------------------------------- */ nlones = Vlone (infile_id, NULL, nlones ); if (nlones > 0) { /* * use the nlones returned to allocate sufficient space for the * buffer ref_array to hold the reference numbers of all lone vgroups, */ ref_array = (int32 *) malloc(sizeof(int32) * nlones); /* * and call Vlone again to retrieve the reference numbers into * the buffer ref_array. */ nlones = Vlone (infile_id, ref_array, nlones); /* * iterate tru each lone vgroup. */ for (i = 0; i < nlones; i++) { int32 ref = ref_array[i]; uint16 name_len; /* * attach to the current vgroup then get its * name and class. note: the current vgroup must be detached before * moving to the next. */ if ((vg_id = Vattach (infile_id, ref, "r"))==FAIL) { printf("Error: Could not attach group with ref <%ld>\n", ref); goto out; } /* Get vgroup's name */ if (Vgetnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name lenght for group with ref <%ld>\n", ref); goto out; } vg_name = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetname (vg_id, vg_name)==FAIL) { printf( "Could not get name for group\n"); goto out; } /* Get vgroup's class name */ if (Vgetclassnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name lenght for group with ref <%ld>\n", ref); goto out; } vg_class = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetclass (vg_id, vg_class)==FAIL) { printf( "Could not get class for group\n"); goto out; } /* ignore reserved HDF groups/vdatas */ if( is_reserved(vg_class)) { if (Vdetach (vg_id)==FAIL) { printf( "Could not detach group\n"); goto out; } continue; } if(strcmp(vg_name,GR_NAME)==0) { if (Vdetach (vg_id)==FAIL) { printf( "Could not detach group\n"); goto out; } continue; } /* get ref, tag */ if ((ref_vg = VQueryref(vg_id))==FAIL) { printf( "Failed to get ref for <%s>\n", vg_name); goto out; } if ((tag_vg = VQuerytag(vg_id))==FAIL) { printf( "Failed to get tag for <%s>\n", vg_name); goto out; } /*------------------------------------------------------------------------- * add object to table *------------------------------------------------------------------------- */ list_table_add(list_tbl,tag_vg,ref_vg,vg_name); if (options->verbose) printf(PFORMAT,"","","",vg_name); if (options->trip==1) { /* * create the group in the output file. the vgroup reference number is set * to -1 for creating and the access mode is "w" for writing */ vgroup_id_out = Vattach (outfile_id, -1, "w"); if (Vsetname (vgroup_id_out, vg_name)==FAIL) { printf("Error: Could not create group <%s>\n", vg_name); goto out; } if (Vsetclass (vgroup_id_out, vg_class)==FAIL) { printf("Error: Could not create group <%s>\n", vg_name); goto out; } if (copy_vgroup_attrs(vg_id,vgroup_id_out,vg_name,options)<0) goto out; if (copy_vg_an(infile_id,outfile_id,vg_id,vgroup_id_out,vg_name,options)<0) goto out; } /* insert objects for this group */ ntagrefs = Vntagrefs(vg_id); if ( ntagrefs > 0 ) { tags = (int32 *) malloc(sizeof(int32) * ntagrefs); refs = (int32 *) malloc(sizeof(int32) * ntagrefs); if (Vgettagrefs(vg_id, tags, refs, ntagrefs)<0) goto out; if (vgroup_insert(infile_id, outfile_id, sd_id, sd_out, gr_id, gr_out, vgroup_id_out, vg_name, tags, refs, ntagrefs, list_tbl, td1, td2, options)<0) { goto out; } free (tags); tags=NULL; free (refs); refs=NULL; } if(Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); goto out; } if (options->trip==1) { if (Vdetach (vgroup_id_out)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); goto out; } } free (vg_name); } /* for nlones */ /* free the space allocated */ if (ref_array!=NULL) free (ref_array); } /* if nlones */ /*------------------------------------------------------------------------- * terminate access to the V interface *------------------------------------------------------------------------- */ if (Vend (infile_id)==FAIL) { printf("Error: Could not end group interface in <%s>\n", vg_name); return FAIL; } if (options->trip==1) { if (Vend (outfile_id)==FAIL){ printf("Error: Could not end group interface in <%s>\n", vg_name); return FAIL; } } return SUCCEED; out: Vend (infile_id); if (options->trip==1) Vend (outfile_id); /* free the space allocated */ if (ref_array!=NULL) free (ref_array); if (tags!=NULL) free (tags); if (refs!=NULL) free (refs); return FAIL; } /*------------------------------------------------------------------------- * Function: vgroup_insert * * Purpose: recursive function to locate objects in vgroups * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int vgroup_insert(int32 infile_id, int32 outfile_id, int32 sd_id, /* SD interface identifier */ int32 sd_out, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ int32 gr_out, /* GR interface identifier */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ int32* in_tags, /* tag list for parent group */ int32* in_refs, /* ref list for parent group */ int npairs, /* number tag/ref pairs for parent group */ list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, options_t *options) { int32 vg_id; /* vgroup identifier for opened group in input */ int32 ntagrefs; /* number of tag/ref pairs in a vgroup */ int32 *tags=NULL; /* buffer to hold the tag numbers of vgroups */ int32 *refs=NULL; /* buffer to hold the ref numbers of vgroups */ int32 vgroup_id_out =-1; /* vgroup identifier for the created group in output */ char *vg_name; char *vg_class; char *path=NULL; uint16 name_len; int visited; int32 tag; int32 ref; int i; for ( i = 0; i < npairs; i++ ) { tag = in_tags[i]; ref = in_refs[i]; switch(tag) { /*------------------------------------------------------------------------- * DFTAG_VG *------------------------------------------------------------------------- */ case DFTAG_VG: visited = list_table_search(list_tbl,DFTAG_VG,ref); /*------------------------------------------------------------------------- * open input *------------------------------------------------------------------------- */ vg_id = Vattach (infile_id, ref, "r"); /* Get vgroup's name */ if (Vgetnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name lenght for group with ref <%ld>\n", ref); goto out; } vg_name = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetname (vg_id, vg_name)==FAIL) { printf( "Could not get name for group\n"); goto out; } /* Get vgroup's class name */ if (Vgetclassnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name lenght for group with ref <%ld>\n", ref); goto out; } vg_class = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetclass (vg_id, vg_class)==FAIL) { printf( "Could not get class for group\n"); goto out; } /* ignore reserved HDF groups/vdatas */ if( is_reserved(vg_class)) { if (Vdetach (vg_id)==FAIL) { printf( "Could not detach group\n"); goto out; } continue; } if(strcmp(vg_name,GR_NAME)==0) { if (Vdetach (vg_id)==FAIL) { printf( "Could not detach group\n"); goto out; } continue; } /*------------------------------------------------------------------------- * create the group in output or create the link *------------------------------------------------------------------------- */ if (options->trip==1) { if ( visited < 0 ) { /* * create the group in the output file. the vgroup reference number * is set to -1 for creating and the access mode is "w" for writing */ vgroup_id_out = Vattach (outfile_id, -1, "w"); if (Vsetname (vgroup_id_out, vg_name)==FAIL) { printf("Error: Could not create group <%s>\n", vg_name); goto out; } if (Vsetclass (vgroup_id_out, vg_class)==FAIL) { printf("Error: Could not create group <%s>\n", vg_name); goto out; } if (copy_vgroup_attrs(vg_id,vgroup_id_out,path,options)<0) goto out; if (copy_vg_an(infile_id,outfile_id,vg_id,vgroup_id_out,path,options)<0) goto out; } else { /* open previously visited group */ vgroup_id_out = Vattach (outfile_id, ref, "r"); } /* insert the created (or opened) vgroup into its parent */ if (Vinsert (vgroup_id_out_par, vgroup_id_out)==FAIL) { printf("Could not insert group <%s>\n", vg_name); goto out; } } /* create the group in output or create the link */ /*------------------------------------------------------------------------- * if group not visited, add to table and check for more tag/ref pairs *------------------------------------------------------------------------- */ /* check if already visited */ if ( visited < 0 ) { /* initialize path */ path=get_path(path_name,vg_name); /* add object to table */ list_table_add(list_tbl,tag,ref,path); if (options->verbose) printf(PFORMAT,"","","",path); if ( options->trip==0 ) { /*we must go to other groups always */ } /* insert objects for this group */ ntagrefs = Vntagrefs(vg_id); if ( ntagrefs > 0 ) { tags = (int32 *) malloc(sizeof(int32) * ntagrefs); refs = (int32 *) malloc(sizeof(int32) * ntagrefs); if (Vgettagrefs(vg_id, tags, refs, ntagrefs)<0) goto out; /* recurse */ if (vgroup_insert( infile_id, outfile_id, sd_id, sd_out, gr_id, gr_out, vgroup_id_out, path, tags, refs, ntagrefs, list_tbl, td1, td2, options)<0) { goto out; } free (tags); tags=NULL; free (refs); refs=NULL; } /* ntagrefs > 0 */ if (path) free(path); } /* check if already visited */ if(Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); goto out; } if (options->trip==1) { if (Vdetach (vgroup_id_out)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); goto out; } } break; /*------------------------------------------------------------------------- * SDS *------------------------------------------------------------------------- */ case DFTAG_SD: /* Scientific Data */ case DFTAG_SDG: /* Scientific Data Group */ case DFTAG_NDG: /* Numeric Data Group */ /* copy dataset */ if (copy_sds(sd_id, sd_out, tag,ref, vgroup_id_out_par, path_name, options, list_tbl, td1, td2, infile_id, outfile_id)<0) return FAIL; break; /*------------------------------------------------------------------------- * Image *------------------------------------------------------------------------- */ case DFTAG_RI: /* Raster Image */ case DFTAG_CI: /* Compressed Image */ case DFTAG_RIG: /* Raster Image Group */ case DFTAG_RI8: /* Raster-8 image */ case DFTAG_CI8: /* RLE compressed 8-bit image */ case DFTAG_II8: /* IMCOMP compressed 8-bit image */ /* copy GR */ if (copy_gr(infile_id, outfile_id, gr_id, gr_out, tag, ref, vgroup_id_out_par, path_name, options, list_tbl)<0) return FAIL; break; /*------------------------------------------------------------------------- * Vdata *------------------------------------------------------------------------- */ case DFTAG_VH: /* Vdata Header */ if (copy_vs(infile_id, outfile_id, tag, ref, vgroup_id_out_par, path_name, options, list_tbl, 0)<0) return FAIL; break; } /* switch */ } /* i */ return SUCCEED; out: if (tags!=NULL) free (tags); if (refs!=NULL) free (refs); return FAIL; } /*------------------------------------------------------------------------- * Function: list_gr * * Purpose: get top level GR image list * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_gr(int32 infile_id, int32 outfile_id, int32 gr_id, /* GR interface identifier */ int32 gr_out, /* GR interface identifier */ list_table_t *list_tbl, options_t *options) { int32 ri_id, /* raster image identifier */ n_rimages, /* number of raster images in the file */ n_file_attrs, /* number of file attributes */ ri_index, /* index of a image */ gr_ref, /* reference number of the GR image */ dim_sizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode, /* interlace mode of an image */ data_type, /* number type of an image */ n_attrs; /* number of attributes belong to an image */ char name[H4_MAX_GR_NAME]; /* name of an image */ /* determine the contents of the file */ if (GRfileinfo (gr_id, &n_rimages, &n_file_attrs)==FAIL){ printf( "Could not get info for GR\n"); return FAIL; } for (ri_index = 0; ri_index < n_rimages; ri_index++) { ri_id = GRselect (gr_id, ri_index); if (GRgetiminfo (ri_id, name, &n_comps, &data_type, &interlace_mode, dim_sizes, &n_attrs)==FAIL){ printf("Could not get GR info\n"); goto out; } gr_ref = GRidtoref(ri_id); /* check if already inserted in Vgroup; search all image tags */ if ( list_table_search(list_tbl,DFTAG_RI,gr_ref)>=0 || list_table_search(list_tbl,DFTAG_CI,gr_ref)>=0 || list_table_search(list_tbl,DFTAG_RIG,gr_ref)>=0 || list_table_search(list_tbl,DFTAG_RI8,gr_ref)>=0 || list_table_search(list_tbl,DFTAG_CI8,gr_ref)>=0 || list_table_search(list_tbl,DFTAG_II8,gr_ref)>=0 ) { if (GRendaccess (ri_id)==FAIL){ printf("Could not close GR\n"); return FAIL; } continue; } /* copy GR */ if (copy_gr(infile_id,outfile_id,gr_id,gr_out,DFTAG_RI,gr_ref,0,NULL,options,list_tbl)<0) goto out; /* terminate access to the current raster image */ if (GRendaccess (ri_id)==FAIL){ printf( "Could not end GR\n"); return FAIL; } } return SUCCEED; out: GRendaccess (ri_id); return FAIL; } /*------------------------------------------------------------------------- * Function: list_sds * * Purpose: get top level SDS * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_sds(int32 infile_id, int32 outfile_id, int32 sd_id, int32 sd_out, list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, options_t *options) { int32 sds_id, /* dataset identifier */ n_datasets, /* number of datasets in the file */ n_file_attrs, /* number of file attributes */ index, /* index of a dataset */ sds_ref, /* reference number */ dim_sizes[H4_MAX_VAR_DIMS],/* dimensions of an image */ data_type, /* number type */ rank, /* rank */ n_attrs; /* number of attributes */ char name[H4_MAX_GR_NAME]; /* name of dataset */ /* determine the number of data sets in the file and the number of file attributes */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)==FAIL){ printf("Could not get SDS info\n"); return FAIL; } for (index = 0; index < n_datasets; index++) { sds_id = SDselect (sd_id, index); SDgetinfo(sds_id, name, &rank, dim_sizes, &data_type, &n_attrs); sds_ref = SDidtoref(sds_id); /* check if already inserted in Vgroup; search all SDS tags */ if ( list_table_search(list_tbl,DFTAG_SD,sds_ref)>=0 || list_table_search(list_tbl,DFTAG_SDG,sds_ref)>=0 || list_table_search(list_tbl,DFTAG_NDG,sds_ref)>=0 ) { SDendaccess (sds_id); continue; } /* copy SDS */ if (copy_sds(sd_id,sd_out,TAG_GRP_DSET,sds_ref,0,NULL,options,list_tbl,td1,td2, infile_id,outfile_id)<0) goto out; /* terminate access to the current dataset */ SDendaccess (sds_id); } return SUCCEED; out: SDendaccess (sds_id); return FAIL; } /*------------------------------------------------------------------------- * Function: list_vs * * Purpose: get top level VS * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_vs(int32 infile_id, int32 outfile_id, list_table_t *list_tbl, options_t *options) { int32 nlones = 0, /* number of lone vdatas */ *ref_array=NULL, /* buffer to hold the ref numbers of lone vdatas */ ref; /* temporary ref number */ int i; /*------------------------------------------------------------------------- * initialize the V interface *------------------------------------------------------------------------- */ if (Vstart(infile_id) == FAIL) { return FAIL; } if (options->trip==1) { if (Vstart(outfile_id) == FAIL) { return FAIL; } } /*------------------------------------------------------------------------- * get the names and class names of all the lone vdatas * first, call Vlone with nlones set to 0 to get the number of lone vdatas * in the file * *------------------------------------------------------------------------- */ nlones = VSlone (infile_id, NULL, nlones ); if (nlones > 0) { /* * use the nlones returned to allocate sufficient space for the * buffer ref_array to hold the reference numbers of all lone vgroups, */ ref_array = (int32 *) malloc(sizeof(int32) * nlones); /* * and call VSlone again to retrieve the reference numbers into * the buffer ref_array. */ nlones = VSlone (infile_id, ref_array, nlones); /* * iterate tru each lone vdata. */ for (i = 0; i < nlones; i++) { /* * attach to the current vdata then get its * name and class. note: the current vdata must be detached before * moving to the next. */ ref = ref_array[i]; /* check if already inserted in Vgroup, search with VS tag */ if ( list_table_search(list_tbl,DFTAG_VH,ref)>=0 ) { continue; } /* copy VS */ if (copy_vs(infile_id,outfile_id,DFTAG_VH,ref,0,NULL,options,list_tbl,1)<0) { goto out; } } /* for */ /* free the space allocated */ if (ref_array) { free (ref_array); ref_array = NULL; } } /* if */ /*------------------------------------------------------------------------- * terminate access to the V interface *------------------------------------------------------------------------- */ if (Vend (infile_id)==FAIL) { printf("Error: Could not end Vdata interface\n"); return FAIL; } if (options->trip==1) { if (Vend (outfile_id)==FAIL){ printf("Error: Could not end Vdata interface\n"); return FAIL; } } return SUCCEED; out: Vend (infile_id); if (options->trip==1) Vend (outfile_id); /* free the space allocated */ if (ref_array!=NULL) free (ref_array); return FAIL; } /*------------------------------------------------------------------------- * Function: list_glb * * Purpose: list/copy global SDS attributes, global GR atrributes * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_glb(int32 infile_id, int32 outfile_id, int32 sd_id, int32 sd_out, int32 gr_id, int32 gr_out, list_table_t *list_tbl, options_t *options) { int32 n_datasets, /* number of datasets in the file */ n_file_attrs; /* number of file attributes */ if ( options->trip==0 ) { return SUCCEED; } /*------------------------------------------------------------------------- * copy SDS global attributes *------------------------------------------------------------------------- */ /* determine the number of data sets in the file and the number of file attributes */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)==FAIL) { printf("Could not get SDS info\n"); return FAIL; } if (copy_sds_attrs(sd_id,sd_out,n_file_attrs,options)<0) return FAIL; /*------------------------------------------------------------------------- * copy GR global attributes *------------------------------------------------------------------------- */ /* determine the number of data sets in the file and the number of file attributes */ if (GRfileinfo (gr_id, &n_datasets, &n_file_attrs)==FAIL) { printf("Could not get GR info\n"); return FAIL; } if (copy_gr_attrs(gr_id,gr_out,n_file_attrs,options)<0) return FAIL; return SUCCEED; } /*------------------------------------------------------------------------- * Function: list_an * * Purpose: list/copy AN FILE objects * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_an(int32 infile_id, int32 outfile_id, options_t *options) { int32 an_id, /* AN interface identifier */ ann_id, /* an annotation identifier */ ann_length, /* length of the text in an annotation */ an_out, /* AN interface identifier */ file_label_id, /* file label identifier */ file_desc_id, /* file description identifier */ n_file_labels, n_file_descs, n_data_labels, n_data_descs; char *ann_buf=NULL; /* buffer to hold the read annotation */ int i; /* position of an annotation in all of the same type*/ if ( options->trip==0 ) { return SUCCEED; } /* Initialize the AN interface */ an_id = ANstart (infile_id); an_out = ANstart (outfile_id); /* * Get the annotation information, e.g., the numbers of file labels, file * descriptions, data labels, and data descriptions. */ if (ANfileinfo (an_id,&n_file_labels,&n_file_descs,&n_data_labels,&n_data_descs)==FAIL) { printf( "Could not get AN info\n"); goto out; } /*------------------------------------------------------------------------- * AN_FILE_LABEL *------------------------------------------------------------------------- */ for (i = 0; i < n_file_labels; i++) { /* Get the identifier of the current data label */ ann_id = ANselect (an_id, i, AN_FILE_LABEL); /* Get the length of the data label */ ann_length = ANannlen (ann_id); /* Allocate space for the buffer to hold the data label text */ ann_buf = malloc ((ann_length+1) * sizeof (char)); /* * Read and display the file label. Note that the size of the buffer, * i.e., the third parameter, is 1 character more than the length of * the data label; that is for the null character. It is not the case * when a description is retrieved because the description does not * necessarily end with a null character. * */ if (ANreadann (ann_id, ann_buf, ann_length+1)==FAIL) { printf( "Could not read AN\n"); goto out; } /* Create the file label */ file_label_id = ANcreatef (an_out, AN_FILE_LABEL); /* Write the annotations */ if (ANwriteann (file_label_id, ann_buf, ann_length)==FAIL) { printf("Failed to write file label %d\n", i); goto out; } /* Terminate access to the current data label */ if (ANendaccess (ann_id)==FAIL || ANendaccess (file_label_id)==FAIL) { printf( "Could not end AN\n"); goto out; } /* Free the space allocated for the annotation buffer */ if (ann_buf) free (ann_buf); } /*------------------------------------------------------------------------- * AN_FILE_DESC *------------------------------------------------------------------------- */ for (i = 0; i < n_file_descs; i++) { /* Get the identifier of the current data label */ ann_id = ANselect (an_id, i, AN_FILE_DESC); /* Get the length of the data label */ ann_length = ANannlen (ann_id); /* Allocate space for the buffer to hold the data label text */ ann_buf = malloc ((ann_length+1) * sizeof (char)); if (ANreadann (ann_id, ann_buf, ann_length+1)==FAIL) { printf( "Could not read AN\n"); goto out; } /* Create the label */ file_desc_id = ANcreatef (an_out, AN_FILE_DESC); /* Write the annotations */ if (ANwriteann (file_desc_id, ann_buf, ann_length)==FAIL) { printf("Failed to write file description %d\n", i); goto out; } /* Terminate access to the current data label */ if (ANendaccess (ann_id)==FAIL || ANendaccess (file_desc_id)==FAIL) { printf( "Could not read AN\n"); goto out; } /* Free the space allocated for the annotation buffer */ if (ann_buf) { free (ann_buf); ann_buf = NULL; } } /* Terminate access to the AN interface */ if (ANend (an_id)==FAIL || ANend (an_out)==FAIL) { printf( "Could not end AN\n"); goto out; } return SUCCEED; out: if (ANend (an_id)==FAIL || ANend (an_out)==FAIL) { printf( "Could not end AN\n"); } if (ann_buf!=NULL) free (ann_buf); return FAIL; } /*------------------------------------------------------------------------- * Function: list_pal * * Purpose: list/copy lone palettes * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int list_pal(const char* infname, const char* outfname, list_table_t *list_tbl, options_t *options) { uint8 palette_data[256*3]; intn nPals, j; uint16 ref; if ( options->trip==0 ) { return SUCCEED; } DFPrestart(); if((nPals = DFPnpals (infname))==FAIL ) { printf( "Failed to get palettes in <%s>\n", infname); return FAIL; } for ( j = 0; j < nPals; j++) { if (DFPgetpal(infname, (VOIDP)palette_data)==FAIL ) { printf( "Failed to read palette <%d> in <%s>\n", j, infname); return FAIL; } ref=DFPlastref(); /* check if already inserted in image */ if ( list_table_search(list_tbl,DFTAG_IP8,ref)>=0 ) { continue; } if (DFPaddpal(outfname,palette_data)==FAIL) { printf( "Failed to write palette in <%s>\n", outfname); return FAIL; } } return SUCCEED; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_opttable.h0000644000000000000000000000307612421456623017275 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_OPTTABLE_H_ #define REPACK_OPTTABLE_H_ #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #ifdef __cplusplus extern "C" { #endif void options_table_init( options_table_t **tbl ); void options_table_free( options_table_t *table ); int options_add_chunk(obj_list_t *obj_list,int n_objs,int32 *chunk_lengths, int chunk_rank,options_table_t *table ); int options_add_comp(obj_list_t *obj_list,int n_objs,comp_info_t comp, options_table_t *table ); pack_info_t* options_get_object(char *path,options_table_t *table); #ifdef __cplusplus } #endif #endif /* REPACK_OPTTABLE_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_check.c0000644000000000000000000001744012421456623016533 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #include "hdf.h" #include "mfhdf.h" static void usage(void); static int sds_get_compck(char *fname, char *sds_name); static int sds_get_all(char *fname); static const char* get_schunk(int32 flags); static const char* get_scomp(comp_coder_t code); int main(int argc, char **argv) { if (argc==3) sds_get_compck(argv[1], argv[2]); else if (argc==2) sds_get_all(argv[1]); else { usage(); return 1; } return 0; } /*------------------------------------------------------------------------- * Function: sds_get_compck * * Purpose: utility function to verify chunking and compressing for SDS_NAME * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_get_compck(char *fname, char *sds_name) { HDF_CHUNK_DEF chunk_def; /* chunk defintion read */ comp_coder_t comp_type; /* to retrieve compression type into */ comp_info comp_info; /* compression structure */ int32 chunk_flags; /* chunking flag */ int32 sd_id, sds_id, sds_index, dimsizes[H4_MAX_VAR_DIMS],/* dimensional size of SDS */ nattrs, /* number of SDS attributes */ dtype, /* SDS data type */ rank; /* rank of SDS */ int i; if ((sd_id = SDstart (fname, DFACC_RDONLY))==FAIL) { printf("Error: cannot open file <%s>\n", fname); return -1; } sds_index = SDnametoindex(sd_id, sds_name); if ((sds_id = SDselect(sd_id, sds_index))==FAIL) { printf("Error: cannot open sds <%s>\n", sds_name); SDend (sd_id); return -1; } SDgetchunkinfo (sds_id, &chunk_def, &chunk_flags); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ SDgetinfo(sds_id,sds_name,&rank,dimsizes,&dtype,&nattrs); /*------------------------------------------------------------------------- * print the dimensions *------------------------------------------------------------------------- */ printf("dimensions: ["); for (i = 0; i < rank; i++) { printf("%ld ", dimsizes[i]); } printf("]\n"); /*------------------------------------------------------------------------- * print the chunk info *------------------------------------------------------------------------- */ printf("chunk flags: %s \n", get_schunk(chunk_flags)); if (HDF_NONE != chunk_flags ) { printf("chunk dimension: ["); for (i = 0; i < rank; i++) { printf("%ld ", chunk_def.chunk_lengths[i]); } printf("]\n"); } /*------------------------------------------------------------------------- * retrieve the compression info *------------------------------------------------------------------------- */ comp_type = COMP_CODE_NONE; /* reset variables before retrieving info */ HDmemset(&comp_info, 0, sizeof(comp_info)) ; SDgetcompinfo(sds_id, &comp_type, &comp_info); printf("compression type: %s \n", get_scomp(comp_type)); if (COMP_CODE_NONE != comp_type ) { switch (comp_type) { default: break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: printf("skipping factor: %d \n", comp_info.skphuff.skp_size); break; case COMP_CODE_DEFLATE: printf("level: %d \n", comp_info.deflate.level); break; case COMP_CODE_JPEG: printf("quality factor: %d \n", comp_info.jpeg.quality); break; case COMP_CODE_SZIP: printf("pixels per block: %ld \n", comp_info.szip.pixels_per_block); break; }; } /* terminate access to the sds */ SDendaccess (sds_id); /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * Function: sds_get_all * * Purpose: utility function to ptint all SDSs names * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_get_all(char *fname) { int32 sd_id, sds_id, sds_index, n_datasets, /* number of datasets in the file */ n_file_attrs, /* number of file attributes */ data_type, /* number type */ rrank, /* read rank */ n_attrs, /* number of attributes */ dim_sizes[H4_MAX_VAR_DIMS];/* dimensions of an image */ char name[H4_MAX_GR_NAME]; /* name of dataset */ /* initialize the sd interface */ if ((sd_id = SDstart (fname, DFACC_RDONLY))==FAIL) { printf("Error: cannot open file <%s>\n", fname); return -1; } /* determine the number of data sets in the file */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)==FAIL) { printf("Error: Cannot get file information\n"); SDend (sd_id); return -1; } printf("List of sds:\n"); for (sds_index = 0; sds_index < n_datasets; sds_index++) { sds_id = SDselect (sd_id, sds_index); /* skip dimension scales */ if ( SDiscoordvar(sds_id) ) { SDendaccess(sds_id); continue; } SDgetinfo(sds_id, name, &rrank, dim_sizes, &data_type, &n_attrs); printf(" %s\n", name); /* terminate access to the current dataset */ SDendaccess (sds_id); } /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * Function: get_scomp * * Purpose: return the compression type as a string * *------------------------------------------------------------------------- */ static const char* get_scomp(comp_coder_t code) { if (code==COMP_CODE_RLE) return "RLE"; else if (code==COMP_CODE_SKPHUFF) return "HUFF"; else if (code==COMP_CODE_DEFLATE) return "GZIP"; else if (code==COMP_CODE_JPEG) return "JPEG"; if (code==COMP_CODE_SZIP) return "SZIP"; else if (code==COMP_CODE_NONE) return "NONE"; else { printf("Input Error in compression type\n"); exit(1); } /* not reached */ return NULL; } /*------------------------------------------------------------------------- * Function: get_schunk * * Purpose: return the chunking flags as a string * * Return: void * *------------------------------------------------------------------------- */ static const char* get_schunk(int32 flags) { if (flags==(HDF_CHUNK | HDF_COMP)) return "HDF_CHUNK | HDF_COMP"; else if (flags==(HDF_CHUNK)) return "HDF_CHUNK"; else if (flags==(HDF_COMP)) return "HDF_COMP"; else if (flags==(HDF_NONE)) return "HDF_NONE"; else return "Invalid chunk flags"; } /*------------------------------------------------------------------------- * Function: usage * * Purpose: print usage * * Return: void * *------------------------------------------------------------------------- */ static void usage(void) { printf("hrepack_check file_name \n"); printf(" file_name HDF File\n"); printf(" sds_name SDS name (if no name, a list of all names is printed)\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_utils.c0000644000000000000000000004461012421456623016615 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hrepack_utils.h" #include "hrepack_opttable.h" /*------------------------------------------------------------------------- * Function: is_reserved * * Purpose: check for reserved Vgroup/Vdata class/names * * Return: 1 if reserved, 0 if not * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 22, 2003 * *------------------------------------------------------------------------- */ int is_reserved(char*vgroup_class) { int ret=0; /* ignore reserved HDF groups/vdatas */ if(vgroup_class != NULL) { if( (strcmp(vgroup_class,_HDF_ATTRIBUTE)==0) || (strcmp(vgroup_class,_HDF_VARIABLE) ==0) || (strcmp(vgroup_class,_HDF_DIMENSION)==0) || (strcmp(vgroup_class,_HDF_UDIMENSION)==0) || (strcmp(vgroup_class,DIM_VALS)==0) || (strcmp(vgroup_class,DIM_VALS01)==0) || (strcmp(vgroup_class,_HDF_CDF)==0) || (strcmp(vgroup_class,GR_NAME)==0) || (strcmp(vgroup_class,RI_NAME)==0) || (strcmp(vgroup_class,RIGATTRNAME)==0) || (strcmp(vgroup_class,RIGATTRCLASS)==0) ){ ret=1; } /* class and name(partial) for chunk table i.e. Vdata */ if( (strncmp(vgroup_class,"_HDF_CHK_TBL_",13)==0)){ ret=1; } } return ret; } /*------------------------------------------------------------------------- * Function: get_path * * Purpose: return absolute path for an object * * Return: path * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 11, 2003 * *------------------------------------------------------------------------- */ char *get_path(char*path_name, char*obj_name) { char *path=NULL; /* initialize path */ if (path_name!=NULL) { path = (char*) malloc(strlen(path_name) + strlen(obj_name) + 2); strcpy( path, path_name ); strcat( path, "/" ); strcat( path, obj_name ); } else { path = (char*) malloc(strlen(obj_name) + 1); strcpy( path, obj_name ); } return path; } /*------------------------------------------------------------------------- * Function: options_get_info * * Purpose: get COMP and CHUNK information from options * * Return: 0 if no information for this PATH, 1 otherwise * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 28, 2003 * *------------------------------------------------------------------------- */ int options_get_info(options_t *options, /* global options */ int32 *chunk_flags, /* chunk flags OUT */ HDF_CHUNK_DEF *chunk_def, /* chunk definition OUT */ int *info, /* compression information OUT */ int *szip_mode, /* compression information OUT */ comp_coder_t *comp_type, /* compression type OUT */ int rank, /* rank of object IN */ char *path, /* path of object IN */ int ncomps, /* number of GR image planes (for SZIP), IN */ int32 *dimsizes, /* dimensions (for SZIP), IN */ int32 dtype /* numeric type (for SZIP), IN */ ) { pack_info_t *obj=NULL; /* check if we have information for this object */ int i; comp_info c_info; /* for SZIP default values */ /*------------------------------------------------------------------------- * CASE 1: chunk==ALL comp==SELECTED *------------------------------------------------------------------------- */ if (options->all_chunk==1 && options->all_comp==0) { /* NONE option */ if (options->chunk_g.rank==-2) { chunk_flags = HDF_NONE; } /*check if the input rank is correct (warn this one cannot be chunked) */ else if (options->chunk_g.rank!=rank) { if ( options->verbose ) printf("Warning: chunk rank does not apply to <%s>\n",path); } else { *chunk_flags = HDF_CHUNK; for (i = 0; i < rank; i++) chunk_def->chunk_lengths[i] = options->chunk_g.chunk_lengths[i]; } obj = options_get_object(path,options->op_tbl); if (obj!=NULL ) { /* 0 is the NONE option */ *comp_type = obj->comp.type; *info = obj->comp.info; *szip_mode = obj->comp.szip_mode; /* chunk and compress */ if (*chunk_flags == HDF_CHUNK && *comp_type>0 ) { /* assign the object CHUNK information */ *chunk_flags = HDF_CHUNK | HDF_COMP; chunk_def->comp.comp_type = obj->comp.type; switch (obj->comp.type) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: if (set_szip (obj->comp.info,obj->comp.szip_mode,&c_info)==FAIL) { return FAIL; } chunk_def->comp.cinfo = c_info; break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: chunk_def->comp.cinfo.skphuff.skp_size = obj->comp.info; break; case COMP_CODE_DEFLATE: chunk_def->comp.cinfo.deflate.level = obj->comp.info; break; case COMP_CODE_JPEG: chunk_def->comp.cinfo.jpeg.quality = obj->comp.info; chunk_def->comp.cinfo.jpeg.force_baseline = 1; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",obj->comp.type,path); break; }; /*switch */ for (i = 0; i < rank; i++) { /* To use chunking with RLE, Skipping Huffman, and GZIP compression */ chunk_def->comp.chunk_lengths[i] = options->chunk_g.chunk_lengths[i]; } } /* chunk_flags */ } /* obj */ } /*------------------------------------------------------------------------- * CASE 2: chunk==SELECTED comp==SELECTED *------------------------------------------------------------------------- */ else if (options->all_chunk==0 && options->all_comp==0) { obj = options_get_object(path,options->op_tbl); if (obj!=NULL) { /* NONE option */ if (obj->chunk.rank==-2) { *chunk_flags = HDF_NONE; } /* check if we have CHUNK information inserted for this one */ else if (obj->chunk.rank>0) { /*check if the input rank is correct (just here, better later than never) */ if (obj->chunk.rank!=rank) { printf("Error: chunk rank does not match for <%s>\n",path); return FAIL; } *chunk_flags = HDF_CHUNK; for (i = 0; i < rank; i++) chunk_def->chunk_lengths[i] = obj->chunk.chunk_lengths[i]; } /* check if we have COMP information; 0 is the NONE option */ if (obj->comp.type>=0) { *comp_type = obj->comp.type; *info = obj->comp.info; *szip_mode = obj->comp.szip_mode; /* check if we have also CHUNK info */ if (obj->chunk.rank>0) { *chunk_flags = HDF_CHUNK | HDF_COMP; chunk_def->comp.comp_type = *comp_type; switch (*comp_type) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: if (set_szip (obj->comp.info,obj->comp.szip_mode,&c_info)==FAIL) { return FAIL; } chunk_def->comp.cinfo = c_info; break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: chunk_def->comp.cinfo.skphuff.skp_size = obj->comp.info; break; case COMP_CODE_DEFLATE: chunk_def->comp.cinfo.deflate.level = obj->comp.info; break; case COMP_CODE_JPEG: chunk_def->comp.cinfo.jpeg.quality = obj->comp.info; chunk_def->comp.cinfo.jpeg.force_baseline = 1; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",*comp_type,path); return FAIL; break; }; } } /* comp.type */ } /* obj */ } /* else if */ /*------------------------------------------------------------------------- * CASE 3: chunk==SELECTED comp==ALL *------------------------------------------------------------------------- */ else if (options->all_chunk==0 && options->all_comp==1) { obj = options_get_object(path,options->op_tbl); if (obj!=NULL) { /* NONE option */ if (obj->chunk.rank==-2) { *chunk_flags = HDF_NONE; } /* check if we have CHUNK information inserted for this one */ else if (obj->chunk.rank>0) { /*check if the input rank is correct (just here, better later than never) */ if (obj->chunk.rank!=rank) { printf("Error: chunk rank does not match for <%s>\n",path); return FAIL; } *chunk_flags = HDF_CHUNK; for (i = 0; i < rank; i++) chunk_def->chunk_lengths[i] = obj->chunk.chunk_lengths[i]; } } /* obj */ /* we must have COMP information */ *comp_type = options->comp_g.type; *info = options->comp_g.info; *szip_mode = options->comp_g.szip_mode; /* check if we have also CHUNK information */ if ( (*chunk_flags==HDF_CHUNK) || (*chunk_flags==(HDF_CHUNK|HDF_COMP))) { *chunk_flags = HDF_CHUNK | HDF_COMP; chunk_def->comp.comp_type = *comp_type; switch (*comp_type) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: if (set_szip (options->comp_g.info,options->comp_g.szip_mode,&c_info)==FAIL) { return FAIL; } chunk_def->comp.cinfo = c_info; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: chunk_def->comp.cinfo.skphuff.skp_size = *info; break; case COMP_CODE_DEFLATE: chunk_def->comp.cinfo.deflate.level = *info; break; case COMP_CODE_JPEG: chunk_def->comp.cinfo.jpeg.quality = *info;; chunk_def->comp.cinfo.jpeg.force_baseline = 1; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",*comp_type,path); return FAIL; break; }; } } /* else if */ /*------------------------------------------------------------------------- * CASE 4: chunk==ALL comp==ALL *------------------------------------------------------------------------- */ else if (options->all_chunk==1 && options->all_comp==1) { /* NONE option */ if (options->chunk_g.rank==-2) { *chunk_flags = HDF_NONE; } /*check if this object rank is the same as input (warn this one cannot be chunked) */ else if (options->chunk_g.rank!=rank) { if ( options->verbose ) printf("Warning: chunk rank does not apply to <%s>\n",path); } else { *chunk_flags = HDF_CHUNK; for (i = 0; i < rank; i++) chunk_def->chunk_lengths[i] = options->chunk_g.chunk_lengths[i]; } /* we must have COMP information */ *comp_type = options->comp_g.type; *info = options->comp_g.info; *szip_mode = options->comp_g.szip_mode; /* check if we can aplly CHUNK */ if (options->chunk_g.rank==rank) { *chunk_flags = HDF_CHUNK | HDF_COMP; chunk_def->comp.comp_type = *comp_type; switch (*comp_type) { case COMP_CODE_NONE: break; case COMP_CODE_SZIP: if (set_szip (options->comp_g.info,options->comp_g.szip_mode,&c_info)==FAIL) { return FAIL; } chunk_def->comp.cinfo = c_info; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: chunk_def->comp.cinfo.skphuff.skp_size = *info; break; case COMP_CODE_DEFLATE: chunk_def->comp.cinfo.deflate.level = *info; break; case COMP_CODE_JPEG: chunk_def->comp.cinfo.jpeg.quality = *info;; chunk_def->comp.cinfo.jpeg.force_baseline = 1; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",*comp_type,path); return FAIL; break; }; } } /* else if */ return (obj==NULL) ? 0 : 1; } /*------------------------------------------------------------------------- * Function: set_szip * * Purpose: utility to set SZIP parameters * * SZIP compresses data block by block, with a user-tunable block size. * This block size is passed in the parameter pixels_per_block and must be even, * with typical values being 8, 10, 16, and 32. The more pixel values vary, * the smaller this number should be. For optimal performance, the number of * pixels per scan line (i.e., the size of the fastest-changing dimension in the chunk) * should be an even multiple of the number of pixels per block. * * Return: 0 for OK, -1 otherwise * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 11, 2003 * *------------------------------------------------------------------------- */ int set_szip( int pixels_per_block, /*in */ int compression_mode, /* in */ comp_info *c_info/*out*/) { #ifdef H4_HAVE_LIBSZ int ppb=pixels_per_block; if (SZ_encoder_enabled() == 0) { printf("Warning: SZIP encoder is not enabled\n"); return -1; } if ( (compression_mode!=NN_MODE) && (compression_mode!=EC_MODE)) { printf("SZIP compression mode must be NN_MODE or EC_MODE"); return -1; } /* pixels_per_block must be an even number, and <= pixels_per_scanline and <= SZ_MAX_PIXELS_PER_BLOCK */ if (pixels_per_block & 1) { printf("Pixels per block must be even.\n"); return -1; } if (ppb < 2 || ppb > 32) { printf("Pixels per block must be 2-32.\n"); return -1; } c_info->szip.pixels_per_block = ppb; /* set according to input value */ c_info->szip.options_mask = SZ_EC_OPTION_MASK; if (compression_mode == EC_MODE) { c_info->szip.options_mask = SZ_EC_OPTION_MASK; } else if (compression_mode == NN_MODE) { c_info->szip.options_mask = SZ_NN_OPTION_MASK; } c_info->szip.options_mask |= SZ_RAW_OPTION_MASK; return 0; #else printf("Warning: SZIP compression is not available\n"); return -1; #endif } /*------------------------------------------------------------------------- * Function: cache * * Purpose: Checks chunk size * *------------------------------------------------------------------------- */ int cache( HDF_CHUNK_DEF chunk_def, int32 eltsz, int32 rank, int32 *dimsize) { int32 targetbytes; int32 chunkrow; int32 chunkcnt; int32 chunksizes[32]; int i; int32 cntr; for (i = 0; i < rank; i++) { chunkcnt = 1; targetbytes = dimsize[i] * eltsz; chunkrow = eltsz * chunk_def.chunk_lengths[i]; cntr = chunkrow; while( cntr < targetbytes) { cntr += chunkrow; chunkcnt++; } chunksizes[i] = chunkcnt; } chunkcnt = 1; for (i = 0; i < rank; i++) { chunkcnt *= chunksizes[i]; } printf("total chunks is %ld\n",chunkcnt); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_opttable.c0000644000000000000000000002102412421456623017261 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include "hrepack_opttable.h" /*------------------------------------------------------------------------- * Function: options_table_init * * Purpose: init options table * * Return: void * *------------------------------------------------------------------------- */ void options_table_init( options_table_t **tbl ) { int i; options_table_t* op_tbl = (options_table_t*) malloc(sizeof(options_table_t)); op_tbl->size = 3; op_tbl->nelems = 0; op_tbl->objs = (pack_info_t*) malloc(op_tbl->size * sizeof(pack_info_t)); for (i = 0; i < op_tbl->size; i++) { strcpy(op_tbl->objs[i].objpath,"\0"); op_tbl->objs[i].comp.info = -1; op_tbl->objs[i].comp.type = COMP_CODE_NONE; op_tbl->objs[i].chunk.rank = -1; } *tbl = op_tbl; } /*------------------------------------------------------------------------- * Function: options_table_free * * Purpose: free table memory * * Return: void * *------------------------------------------------------------------------- */ void options_table_free( options_table_t *op_tbl ) { if (op_tbl->objs!=NULL) free(op_tbl->objs); if (op_tbl!=NULL) free(op_tbl); } /*------------------------------------------------------------------------- * Function: options_add_chunk * * Purpose: add a chunking -c option to the option list * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int options_add_chunk(obj_list_t *obj_list, int n_objs, int32 *chunk_lengths, int chunk_rank, options_table_t *op_tbl ) { int i, j, k, I, added=0, found=0; if (op_tbl->nelems+n_objs >= op_tbl->size) { op_tbl->size += n_objs; op_tbl->objs = (pack_info_t*)realloc(op_tbl->objs, op_tbl->size * sizeof(pack_info_t)); for (i = op_tbl->nelems; i < op_tbl->size; i++) { strcpy(op_tbl->objs[i].objpath,"\0"); op_tbl->objs[i].comp.info = -1; op_tbl->objs[i].comp.type = COMP_CODE_NONE; op_tbl->objs[i].chunk.rank = -1; } } /* search if this object is already in the table; "path" is the key */ if (op_tbl->nelems>0) { /* go tru the supplied list of names */ for (j = 0; j < n_objs; j++) { /* linear table search */ for (i = 0; i < op_tbl->nelems; i++) { /*already on the table */ if (strcmp(obj_list[j].obj,op_tbl->objs[i].objpath)==0) { /* already chunk info inserted for this one; exit */ if (op_tbl->objs[i].chunk.rank>0) { printf("Input Error: chunk information already inserted for <%s>\n",obj_list[j].obj); return FAIL; } /* insert the chunk info */ else { op_tbl->objs[i].chunk.rank = chunk_rank; for (k = 0; k < chunk_rank; k++) op_tbl->objs[i].chunk.chunk_lengths[k] = chunk_lengths[k]; found=1; break; } } /* if */ } /* i */ if (found==0) { /* keep the grow in a temp var */ I = op_tbl->nelems + added; added++; strcpy(op_tbl->objs[I].objpath,obj_list[j].obj); op_tbl->objs[I].chunk.rank = chunk_rank; for (k = 0; k < chunk_rank; k++) op_tbl->objs[I].chunk.chunk_lengths[k] = chunk_lengths[k]; } } /* j */ } /* first time insertion */ else { /* go tru the supplied list of names */ for (j = 0; j < n_objs; j++) { I = op_tbl->nelems + added; added++; strcpy(op_tbl->objs[I].objpath,obj_list[j].obj); op_tbl->objs[I].chunk.rank = chunk_rank; for (k = 0; k < chunk_rank; k++) op_tbl->objs[I].chunk.chunk_lengths[k] = chunk_lengths[k]; } } op_tbl->nelems+= added; return SUCCEED; } /*------------------------------------------------------------------------- * Function: options_add_comp * * Purpose: add a compression -t option to the option list * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int options_add_comp(obj_list_t *obj_list, int n_objs, comp_info_t comp, options_table_t *op_tbl ) { int i, j, I, added=0, found=0; if (op_tbl->nelems+n_objs >= op_tbl->size) { op_tbl->size += n_objs; op_tbl->objs = (pack_info_t*)realloc(op_tbl->objs, op_tbl->size * sizeof(pack_info_t)); for (i = op_tbl->nelems; i < op_tbl->size; i++) { strcpy(op_tbl->objs[i].objpath,"\0"); op_tbl->objs[i].comp.info = -1; op_tbl->objs[i].comp.type = COMP_CODE_NONE; op_tbl->objs[i].chunk.rank = -1; } } /* search if this object is already in the table; "path" is the key */ if (op_tbl->nelems>0) { /* go tru the supplied list of names */ for (j = 0; j < n_objs; j++) { /* linear table search */ for (i = 0; i < op_tbl->nelems; i++) { /*already on the table */ if (strcmp(obj_list[j].obj,op_tbl->objs[i].objpath)==0) { /* already COMP info inserted for this one; exit */ if (op_tbl->objs[i].comp.type>0) { printf("Input Error: compression information already inserted for <%s>\n",obj_list[j].obj); return FAIL; } /* insert the comp info */ else { op_tbl->objs[i].comp = comp; found=1; break; } } /* if */ } /* i */ if (found==0) { /* keep the grow in a temp var */ I = op_tbl->nelems + added; added++; strcpy(op_tbl->objs[I].objpath,obj_list[j].obj); op_tbl->objs[I].comp = comp; } } /* j */ } /* first time insertion */ else { /* go tru the supplied list of names */ for (j = 0; j < n_objs; j++) { I = op_tbl->nelems + added; added++; strcpy(op_tbl->objs[I].objpath,obj_list[j].obj); op_tbl->objs[I].comp = comp; } } op_tbl->nelems+= added; return 0; } /*------------------------------------------------------------------------- * Function: options_get_object * * Purpose: get object from table; "path" is the key * * Return: information for one object, contains PATH, CHUNK info and COMP info * *------------------------------------------------------------------------- */ pack_info_t* options_get_object(char *path, options_table_t *op_tbl) { int i; for ( i = 0; i < op_tbl->nelems; i++) { /* found it */ if (strcmp(op_tbl->objs[i].objpath,path)==0) { return (&op_tbl->objs[i]); } } return NULL; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/Makefile.in0000644000000000000000000015057312421456623015667 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/hrepack_all.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = hrepack$(EXEEXT) check_PROGRAMS = hrepack_check$(EXEEXT) test_hrepack$(EXEEXT) TESTS = $(am__EXEEXT_1) subdir = mfhdf/hrepack ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = hrepack_all.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) am_hrepack_OBJECTS = hrepack.$(OBJEXT) hrepack_an.$(OBJEXT) \ hrepack_gr.$(OBJEXT) hrepack_list.$(OBJEXT) \ hrepack_lsttable.$(OBJEXT) hrepack_main.$(OBJEXT) \ hrepack_opttable.$(OBJEXT) hrepack_parse.$(OBJEXT) \ hrepack_sds.$(OBJEXT) hrepack_utils.$(OBJEXT) \ hrepack_vg.$(OBJEXT) hrepack_vs.$(OBJEXT) \ hrepack_dim.$(OBJEXT) hrepack_OBJECTS = $(am_hrepack_OBJECTS) hrepack_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hrepack_LDFLAGS) \ $(LDFLAGS) -o $@ am_hrepack_check_OBJECTS = hrepack_check.$(OBJEXT) hrepack_check_OBJECTS = $(am_hrepack_check_OBJECTS) am_test_hrepack_OBJECTS = hrepack.$(OBJEXT) hrepack_an.$(OBJEXT) \ hrepack_gr.$(OBJEXT) hrepack_list.$(OBJEXT) \ hrepack_lsttable.$(OBJEXT) hrepack_opttable.$(OBJEXT) \ hrepack_parse.$(OBJEXT) hrepack_sds.$(OBJEXT) \ hrepack_utils.$(OBJEXT) hrepack_vg.$(OBJEXT) \ hrepack_dim.$(OBJEXT) hrepack_vs.$(OBJEXT) \ hrepacktst.$(OBJEXT) hdiff.$(OBJEXT) hdiff_array.$(OBJEXT) \ hdiff_gattr.$(OBJEXT) hdiff_gr.$(OBJEXT) hdiff_list.$(OBJEXT) \ hdiff_mattbl.$(OBJEXT) hdiff_misc.$(OBJEXT) \ hdiff_sds.$(OBJEXT) hdiff_table.$(OBJEXT) hdiff_vs.$(OBJEXT) \ hdiff_dim.$(OBJEXT) test_hrepack_OBJECTS = $(am_test_hrepack_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(hrepack_SOURCES) $(hrepack_check_SOURCES) \ $(test_hrepack_SOURCES) DIST_SOURCES = $(hrepack_SOURCES) $(hrepack_check_SOURCES) \ $(test_hrepack_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = test_hrepack$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog *.hdf INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/hdiff \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) hrepack_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hrepack_SOURCES = hrepack.c hrepack_an.c hrepack_gr.c \ hrepack_list.c hrepack_lsttable.c hrepack_main.c \ hrepack_opttable.c hrepack_parse.c \ hrepack_sds.c hrepack_utils.c \ hrepack_vg.c hrepack_vs.c hrepack_dim.c hrepack_LDADD = $(LIBMFHDF) $(LIBHDF) hrepack_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) TEST_PROG = test_hrepack test_hrepack_SOURCES = hrepack.c hrepack_an.c hrepack_gr.c \ hrepack_list.c hrepack_lsttable.c hrepack_opttable.c \ hrepack_parse.c hrepack_sds.c \ hrepack_utils.c hrepack_vg.c \ hrepack_dim.c \ hrepack_vs.c hrepacktst.c \ $(top_srcdir)/mfhdf/hdiff/hdiff.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_array.c $(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_gr.c $(top_srcdir)/mfhdf/hdiff/hdiff_list.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c $(top_srcdir)/mfhdf/hdiff/hdiff_misc.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_sds.c $(top_srcdir)/mfhdf/hdiff/hdiff_table.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_vs.c $(top_srcdir)/mfhdf/hdiff/hdiff_dim.c test_hrepack_LDADD = $(LIBMFHDF) $(LIBHDF) -lm test_hrepack_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) hrepack_check_SOURCES = hrepack_check.c hrepack_check_LDADD = $(LIBMFHDF) $(LIBHDF) hrepack_check_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/hrepack/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/hrepack/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): hrepack_all.sh: $(top_builddir)/config.status $(srcdir)/hrepack_all.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 hrepack$(EXEEXT): $(hrepack_OBJECTS) $(hrepack_DEPENDENCIES) $(EXTRA_hrepack_DEPENDENCIES) @rm -f hrepack$(EXEEXT) $(hrepack_LINK) $(hrepack_OBJECTS) $(hrepack_LDADD) $(LIBS) hrepack_check$(EXEEXT): $(hrepack_check_OBJECTS) $(hrepack_check_DEPENDENCIES) $(EXTRA_hrepack_check_DEPENDENCIES) @rm -f hrepack_check$(EXEEXT) $(LINK) $(hrepack_check_OBJECTS) $(hrepack_check_LDADD) $(LIBS) test_hrepack$(EXEEXT): $(test_hrepack_OBJECTS) $(test_hrepack_DEPENDENCIES) $(EXTRA_test_hrepack_DEPENDENCIES) @rm -f test_hrepack$(EXEEXT) $(LINK) $(test_hrepack_OBJECTS) $(test_hrepack_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_array.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_dim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_gattr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_gr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_list.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_mattbl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_misc.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_sds.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_table.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_vs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_an.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_check.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_dim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_gr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_list.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_lsttable.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_main.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_opttable.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_parse.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_sds.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_utils.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_vg.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepack_vs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hrepacktst.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< hdiff.o: $(top_srcdir)/mfhdf/hdiff/hdiff.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff.o -MD -MP -MF $(DEPDIR)/hdiff.Tpo -c -o hdiff.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff.Tpo $(DEPDIR)/hdiff.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff.c' object='hdiff.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff.c hdiff.obj: $(top_srcdir)/mfhdf/hdiff/hdiff.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff.obj -MD -MP -MF $(DEPDIR)/hdiff.Tpo -c -o hdiff.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff.Tpo $(DEPDIR)/hdiff.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff.c' object='hdiff.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff.c'; fi` hdiff_array.o: $(top_srcdir)/mfhdf/hdiff/hdiff_array.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_array.o -MD -MP -MF $(DEPDIR)/hdiff_array.Tpo -c -o hdiff_array.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_array.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_array.Tpo $(DEPDIR)/hdiff_array.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_array.c' object='hdiff_array.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_array.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_array.c hdiff_array.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_array.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_array.obj -MD -MP -MF $(DEPDIR)/hdiff_array.Tpo -c -o hdiff_array.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_array.Tpo $(DEPDIR)/hdiff_array.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_array.c' object='hdiff_array.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_array.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_array.c'; fi` hdiff_gattr.o: $(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_gattr.o -MD -MP -MF $(DEPDIR)/hdiff_gattr.Tpo -c -o hdiff_gattr.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_gattr.Tpo $(DEPDIR)/hdiff_gattr.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c' object='hdiff_gattr.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_gattr.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c hdiff_gattr.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_gattr.obj -MD -MP -MF $(DEPDIR)/hdiff_gattr.Tpo -c -o hdiff_gattr.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_gattr.Tpo $(DEPDIR)/hdiff_gattr.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c' object='hdiff_gattr.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_gattr.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c'; fi` hdiff_gr.o: $(top_srcdir)/mfhdf/hdiff/hdiff_gr.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_gr.o -MD -MP -MF $(DEPDIR)/hdiff_gr.Tpo -c -o hdiff_gr.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_gr.Tpo $(DEPDIR)/hdiff_gr.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c' object='hdiff_gr.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_gr.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c hdiff_gr.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_gr.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_gr.obj -MD -MP -MF $(DEPDIR)/hdiff_gr.Tpo -c -o hdiff_gr.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_gr.Tpo $(DEPDIR)/hdiff_gr.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c' object='hdiff_gr.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_gr.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_gr.c'; fi` hdiff_list.o: $(top_srcdir)/mfhdf/hdiff/hdiff_list.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_list.o -MD -MP -MF $(DEPDIR)/hdiff_list.Tpo -c -o hdiff_list.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_list.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_list.Tpo $(DEPDIR)/hdiff_list.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_list.c' object='hdiff_list.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_list.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_list.c hdiff_list.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_list.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_list.obj -MD -MP -MF $(DEPDIR)/hdiff_list.Tpo -c -o hdiff_list.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_list.Tpo $(DEPDIR)/hdiff_list.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_list.c' object='hdiff_list.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_list.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_list.c'; fi` hdiff_mattbl.o: $(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_mattbl.o -MD -MP -MF $(DEPDIR)/hdiff_mattbl.Tpo -c -o hdiff_mattbl.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_mattbl.Tpo $(DEPDIR)/hdiff_mattbl.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c' object='hdiff_mattbl.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_mattbl.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c hdiff_mattbl.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_mattbl.obj -MD -MP -MF $(DEPDIR)/hdiff_mattbl.Tpo -c -o hdiff_mattbl.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_mattbl.Tpo $(DEPDIR)/hdiff_mattbl.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c' object='hdiff_mattbl.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_mattbl.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c'; fi` hdiff_misc.o: $(top_srcdir)/mfhdf/hdiff/hdiff_misc.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_misc.o -MD -MP -MF $(DEPDIR)/hdiff_misc.Tpo -c -o hdiff_misc.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_misc.Tpo $(DEPDIR)/hdiff_misc.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c' object='hdiff_misc.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_misc.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c hdiff_misc.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_misc.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_misc.obj -MD -MP -MF $(DEPDIR)/hdiff_misc.Tpo -c -o hdiff_misc.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_misc.Tpo $(DEPDIR)/hdiff_misc.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c' object='hdiff_misc.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_misc.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_misc.c'; fi` hdiff_sds.o: $(top_srcdir)/mfhdf/hdiff/hdiff_sds.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_sds.o -MD -MP -MF $(DEPDIR)/hdiff_sds.Tpo -c -o hdiff_sds.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_sds.Tpo $(DEPDIR)/hdiff_sds.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c' object='hdiff_sds.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_sds.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c hdiff_sds.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_sds.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_sds.obj -MD -MP -MF $(DEPDIR)/hdiff_sds.Tpo -c -o hdiff_sds.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_sds.Tpo $(DEPDIR)/hdiff_sds.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c' object='hdiff_sds.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_sds.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_sds.c'; fi` hdiff_table.o: $(top_srcdir)/mfhdf/hdiff/hdiff_table.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_table.o -MD -MP -MF $(DEPDIR)/hdiff_table.Tpo -c -o hdiff_table.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_table.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_table.Tpo $(DEPDIR)/hdiff_table.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_table.c' object='hdiff_table.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_table.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_table.c hdiff_table.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_table.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_table.obj -MD -MP -MF $(DEPDIR)/hdiff_table.Tpo -c -o hdiff_table.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_table.Tpo $(DEPDIR)/hdiff_table.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_table.c' object='hdiff_table.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_table.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_table.c'; fi` hdiff_vs.o: $(top_srcdir)/mfhdf/hdiff/hdiff_vs.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_vs.o -MD -MP -MF $(DEPDIR)/hdiff_vs.Tpo -c -o hdiff_vs.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_vs.Tpo $(DEPDIR)/hdiff_vs.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c' object='hdiff_vs.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_vs.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c hdiff_vs.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_vs.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_vs.obj -MD -MP -MF $(DEPDIR)/hdiff_vs.Tpo -c -o hdiff_vs.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_vs.Tpo $(DEPDIR)/hdiff_vs.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c' object='hdiff_vs.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_vs.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_vs.c'; fi` hdiff_dim.o: $(top_srcdir)/mfhdf/hdiff/hdiff_dim.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_dim.o -MD -MP -MF $(DEPDIR)/hdiff_dim.Tpo -c -o hdiff_dim.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_dim.Tpo $(DEPDIR)/hdiff_dim.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c' object='hdiff_dim.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_dim.o `test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c hdiff_dim.obj: $(top_srcdir)/mfhdf/hdiff/hdiff_dim.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT hdiff_dim.obj -MD -MP -MF $(DEPDIR)/hdiff_dim.Tpo -c -o hdiff_dim.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/hdiff_dim.Tpo $(DEPDIR)/hdiff_dim.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c' object='hdiff_dim.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o hdiff_dim.obj `if test -f '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; then $(CYGPATH_W) '$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; else $(CYGPATH_W) '$(srcdir)/$(top_srcdir)/mfhdf/hdiff/hdiff_dim.c'; fi` mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) all-local 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-checkPROGRAMS clean-generic \ clean-libtool cscopelist ctags distclean distclean-compile \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-binPROGRAMS install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-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 \ mostlyclean-local pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-binPROGRAMS # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/Makefile.am0000644000000000000000000000642012421456623015645 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/hdiff \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add hrepack specific linker flags here hrepack_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = hrepack hrepack_SOURCES = hrepack.c hrepack_an.c hrepack_gr.c \ hrepack_list.c hrepack_lsttable.c hrepack_main.c \ hrepack_opttable.c hrepack_parse.c \ hrepack_sds.c hrepack_utils.c \ hrepack_vg.c hrepack_vs.c hrepack_dim.c hrepack_LDADD = $(LIBMFHDF) $(LIBHDF) hrepack_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# check_PROGRAMS = hrepack_check test_hrepack TEST_PROG = test_hrepack test_hrepack_SOURCES = hrepack.c hrepack_an.c hrepack_gr.c \ hrepack_list.c hrepack_lsttable.c hrepack_opttable.c \ hrepack_parse.c hrepack_sds.c \ hrepack_utils.c hrepack_vg.c \ hrepack_dim.c \ hrepack_vs.c hrepacktst.c \ $(top_srcdir)/mfhdf/hdiff/hdiff.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_array.c $(top_srcdir)/mfhdf/hdiff/hdiff_gattr.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_gr.c $(top_srcdir)/mfhdf/hdiff/hdiff_list.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_mattbl.c $(top_srcdir)/mfhdf/hdiff/hdiff_misc.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_sds.c $(top_srcdir)/mfhdf/hdiff/hdiff_table.c \ $(top_srcdir)/mfhdf/hdiff/hdiff_vs.c $(top_srcdir)/mfhdf/hdiff/hdiff_dim.c test_hrepack_LDADD = $(LIBMFHDF) $(LIBHDF) -lm test_hrepack_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) hrepack_check_SOURCES = hrepack_check.c hrepack_check_LDADD = $(LIBMFHDF) $(LIBHDF) hrepack_check_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += *.hdf DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_dim.c0000644000000000000000000007377712421456623016246 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_utils.h" #include "hrepack_sds.h" #include "hrepack_dim.h" /* match name between 2 dim_table_t type lists */ typedef struct match_dim_name_t { int32 ref; /* reference */ char dim_name[H4_MAX_NC_NAME]; /* name */ int flags[2]; /* name exists 1, no 0 */ } match_dim_name_t; /* table for match_dim_name_t */ typedef struct match_dim_table_t { int size; int nobjs; match_dim_name_t *objs; } match_dim_table_t; /*------------------------------------------------------------------------- * local prototypes *------------------------------------------------------------------------- */ /* methods for match_dim_table_t */ static void match_dim_table_free( match_dim_table_t *mdim_tbl ); static void match_dim_table_init( match_dim_table_t **tbl ); static void match_dim_table_add ( match_dim_table_t *mdim_tbl, unsigned *flags, char* dim_name, int32 ref); /* generate the SDS */ static int gen_dim(char* name, int32 ref, int32 sd_in, int32 sd_out, options_t *options); /*------------------------------------------------------------------------- * Function: match_dim * * Purpose: generate "lone" dimensions. * Find common dimension names; the algorithm used for this search is the * cosequential match algorithm and is described in * Folk, Michael; Zoellick, Bill. (1992). File Structures. Addison-Wesley. * * Return: void * * Programmer: Pedro Vicente Nunes, pvn@hdfgroup.org * * Date: May 10, 2006 * *------------------------------------------------------------------------- */ void match_dim(int32 sd_in, int32 sd_out, dim_table_t *dt1, dim_table_t *dt2, options_t *options) { int cmp; int more_names_exist = (dt1->nobjs>0 && dt2->nobjs>0) ? 1 : 0; int curr1=0; int curr2=0; /*build a common list */ match_dim_table_t *mattbl=NULL; unsigned inlist[2]; int i; #if defined (HREPACK_DEBUG) for (i = 0; i < dt1->nobjs; i++) { printf("%s\n", dt1->objs[i].dim_name); } for (i = 0; i < dt2->nobjs; i++) { printf("%s\n", dt2->objs[i].dim_name); } #endif /*------------------------------------------------------------------------- * build the list *------------------------------------------------------------------------- */ match_dim_table_init( &mattbl ); while ( more_names_exist ) { cmp = strcmp( dt1->objs[curr1].dim_name, dt2->objs[curr2].dim_name ); if ( cmp == 0 ) { inlist[0]=1; inlist[1]=1; match_dim_table_add(mattbl,inlist, dt1->objs[curr1].dim_name, dt1->objs[curr1].ref); curr1++; curr2++; } else if ( cmp < 0 ) { inlist[0]=1; inlist[1]=0; match_dim_table_add(mattbl,inlist, dt1->objs[curr1].dim_name, dt1->objs[curr1].ref); curr1++; } else { inlist[0]=0; inlist[1]=1; match_dim_table_add(mattbl,inlist, dt2->objs[curr2].dim_name, dt2->objs[curr2].ref); curr2++; } more_names_exist = (curr1nobjs && curr2nobjs) ? 1 : 0; } /* end while */ /* dt1 did not end */ if (curr1nobjs) { while ( curr1nobjs ) { inlist[0]=1; inlist[1]=0; match_dim_table_add(mattbl,inlist, dt1->objs[curr1].dim_name, dt1->objs[curr1].ref); curr1++; } } /* dt2 did not end */ if (curr2nobjs) { while ( curr2nobjs ) { inlist[0]=0; inlist[1]=1; match_dim_table_add(mattbl,inlist, dt2->objs[curr2].dim_name, dt2->objs[curr2].ref); curr2++; } } /*------------------------------------------------------------------------- * print the list *------------------------------------------------------------------------- */ #if defined (HREPACK_DEBUG) { char c1, c2; if (options->verbose) { printf("---------------------------------------\n"); printf("list1 list2\n"); printf("---------------------------------------\n"); for (i = 0; i < mattbl->nobjs; i++) { c1 = (char)((mattbl->objs[i].flags[0]) ? 'x' : ' '); c2 = (char)((mattbl->objs[i].flags[1]) ? 'x' : ' '); printf("%5c %6c %-15s\n", c1, c2, mattbl->objs[i].dim_name); } printf("\n"); } } #endif /*------------------------------------------------------------------------- * get objects from list1 not in list2 *------------------------------------------------------------------------- */ for (i = 0; i < mattbl->nobjs; i++) { if ( mattbl->objs[i].flags[0] && ( ! mattbl->objs[i].flags[1] ) ) { gen_dim(mattbl->objs[i].dim_name, mattbl->objs[i].ref, sd_in, sd_out, options); } } /* free table */ match_dim_table_free(mattbl); } /*------------------------------------------------------------------------- * Function: gen_dim * * Purpose: generate "lone" dimensions. * * Return: -1 error, 1 ok * * Programmer: Pedro Vicente Nunes, pvn@ncsa.uiuc.edu * * Date: May 10, 2006 * *------------------------------------------------------------------------- */ static int gen_dim(char* name, /* name of SDS */ int32 ref, /* ref of SDS */ int32 sd_in, int32 sd_out, options_t *options) { int32 sds_id, /* data set identifier */ sds_out=FAIL, /* data set identifier */ dim_id, /* dimension identifier */ sds_index, /* index number of the data set */ dtype, /* SDS data type */ dimsizes[H4_MAX_VAR_DIMS], /* dimensions of SDS */ start[H4_MAX_VAR_DIMS], /* read start */ edges[H4_MAX_VAR_DIMS], /* read edges */ nattrs, /* number of SDS attributes */ rank, /* rank of SDS */ numtype, /* number type */ eltsz, /* element size */ nelms; /* number of elements */ char sds_name[H4_MAX_NC_NAME]; VOIDP buf=NULL; int i, j, ret=1; int info; /* temporary int compression information */ comp_coder_t comp_type; /* compression type requested */ comp_coder_t comp_type_in; /* compression type original */ comp_info c_info; /* compression information requested */ comp_info c_info_in; /* compression information original */ HDF_CHUNK_DEF chunk_def; /* chunk definition */ HDF_CHUNK_DEF chunk_def_in; /* chunk definition original */ int32 chunk_flags; /* chunk flags */ int32 chunk_flags_in; /* chunk flags original*/ int szip_mode; /* szip mode, EC, NN */ intn empty_sds; int have_info=0; sds_index = SDreftoindex(sd_in,ref); sds_id = SDselect(sd_in,sds_index); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ if (SDgetinfo(sds_id,sds_name,&rank,dimsizes,&dtype,&nattrs)==FAIL){ printf( "Could not get information for SDS\n"); SDendaccess(sds_id); return -1; } /*------------------------------------------------------------------------- * check if the input SDS is empty. if so , avoid some operations (mainly read, write) *------------------------------------------------------------------------- */ if (SDcheckempty( sds_id, &empty_sds ) == FAIL) { printf( "Failed to check empty SDS <%s>\n", sds_name); ret=-1; goto out; } /*------------------------------------------------------------------------- * element size and number of elements *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /* set edges of SDS */ nelms=1; for (j = 0; j < rank; j++) { nelms *= dimsizes[j]; edges[j] = dimsizes[j]; start[j] = 0; } /*------------------------------------------------------------------------- * get the original compression/chunk information from the object *------------------------------------------------------------------------- */ if (empty_sds==0 ) { comp_type_in = COMP_CODE_NONE; /* reset variables before retrieving information */ HDmemset(&c_info_in, 0, sizeof(comp_info)) ; if ( SDgetcompinfo(sds_id, &comp_type_in, &c_info_in) == FAIL ) { printf( "Could not get compression information for SDS <%s>\n",sds_name); SDendaccess(sds_id); return -1; } /* get chunk lengths */ if ( SDgetchunkinfo(sds_id, &chunk_def_in, &chunk_flags_in) == FAIL ) { printf( "Could not get chunking information for SDS <%s>\n",sds_name); SDendaccess(sds_id); return -1; } /* retrieve the compress information if so */ if ( (HDF_CHUNK | HDF_COMP) == chunk_flags_in ) { chunk_def_in.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_RLE: chunk_def_in.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def_in.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def_in.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def_in.comp.comp_type = COMP_CODE_DEFLATE; chunk_def_in.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ chunk_def_in.comp.comp_type = COMP_CODE_SZIP; chunk_def_in.comp.cinfo.szip = c_info_in.szip; #else printf("Error: SZIP compression is not available <%s>\n",sds_name); SDendaccess(sds_id); return -1; #endif break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type_in,sds_name); }; } /*------------------------------------------------------------------------- * set the default values to the ones read from the object *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * compression *------------------------------------------------------------------------- */ comp_type = comp_type_in; switch (comp_type_in) { case COMP_CODE_NBIT: printf("Nbit compression not supported in this version <%s>\n",sds_name); break; case COMP_CODE_NONE: break; case COMP_CODE_RLE: break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ info = c_info_in.szip.pixels_per_block; if (c_info_in.szip.options_mask & SZ_EC_OPTION_MASK) { szip_mode = EC_MODE; } else if (c_info_in.szip.options_mask & SZ_NN_OPTION_MASK) { szip_mode = NN_MODE; } #else printf("SZIP compression not supported in this version <%s>\n",sds_name); #endif break; case COMP_CODE_SKPHUFF: info = c_info_in.skphuff.skp_size; break; case COMP_CODE_DEFLATE: info = c_info_in.deflate.level; break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type,sds_name); break; }; /*------------------------------------------------------------------------- * chunking *------------------------------------------------------------------------- */ chunk_flags = chunk_flags_in; if ( (HDF_CHUNK) == chunk_flags ) { for (i = 0; i < rank; i++) chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } else if ( (HDF_CHUNK | HDF_COMP) == chunk_flags ) { for (i = 0; i < rank; i++) { chunk_def.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; chunk_def.comp.chunk_lengths[i] = chunk_def_in.chunk_lengths[i]; } chunk_def.comp.comp_type=comp_type_in; switch (comp_type_in) { case COMP_CODE_RLE: chunk_def.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff = c_info_in.skphuff; break; case COMP_CODE_DEFLATE: chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate = c_info_in.deflate; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ chunk_def.comp.comp_type = COMP_CODE_SZIP; chunk_def.comp.cinfo.szip = c_info_in.szip; #else printf("Error: SZIP compression not available in %d <%s>\n",comp_type_in,sds_name); #endif break; default: printf("Error: Unrecognized compression code in %d <%s>\n",comp_type_in,sds_name); }; } /*------------------------------------------------------------------------- * get the compression/chunk information of this object from the table * translate to usable information * this is done ONLY for the second trip inspection *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip>0 ) { have_info = options_get_info(options, /* global options */ &chunk_flags, /* chunk flags OUT */ &chunk_def, /* chunk definition OUT */ &info, /* compression information OUT */ &szip_mode, /* compression information OUT */ &comp_type, /* compression type OUT */ rank, /* rank of object IN */ sds_name, /* path of object IN */ 1, /* number of GR image planes (for SZIP), IN */ dimsizes, /* dimensions (for SZIP), IN */ dtype /* numeric type ( for SZIP), IN */ ); if (have_info==FAIL) goto out; } /* check inspection mode */ /*------------------------------------------------------------------------- * check for maximum number of chunks treshold *------------------------------------------------------------------------- */ if ( options->trip>0 ) { int count=1, nchunks; int maxchunk=INT_MAX; if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { for (j = 0; j < rank; j++) { count *= chunk_def.chunk_lengths[j]; } nchunks=nelms/count; if (nchunks>maxchunk){ printf("Warning: number of chunks is %d (greater than %d). Not chunking <%s>\n", nchunks,maxchunk,sds_name); chunk_flags=HDF_NONE; } } } /*------------------------------------------------------------------------- * check for objects too small *------------------------------------------------------------------------- */ if ( have_info==1 && options->trip>0 && nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ chunk_flags=chunk_flags_in; comp_type=comp_type_in; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,sds_name); } } } /* empty_sds */ /*------------------------------------------------------------------------- * print the PATH, COMP and CHUNK information *------------------------------------------------------------------------- */ if (options->verbose) { int pr_comp_type=0; int pr_chunk_flags; if ( options->trip==0 ) pr_chunk_flags=chunk_flags_in; else pr_chunk_flags=chunk_flags; if (comp_type>0) { pr_comp_type=comp_type; } else { if (pr_chunk_flags == (HDF_CHUNK | HDF_COMP) ) { pr_comp_type=chunk_def.comp.comp_type; } } printf(PFORMAT, (pr_chunk_flags>0)?"chunk":"", /*chunk information */ (pr_comp_type>0)?get_scomp(pr_comp_type):"", /*compression information */ "", /*compression ratio */ name); /*name*/ } /*------------------------------------------------------------------------- * check if the requested compression is valid * SDSs do not support JPEG *------------------------------------------------------------------------- */ /* check inspection mode */ if ( options->trip>0 && empty_sds==0) { switch(comp_type) { case COMP_CODE_NONE: case COMP_CODE_RLE: case COMP_CODE_SKPHUFF: case COMP_CODE_DEFLATE: case COMP_CODE_SZIP: case COMP_CODE_NBIT: break; case COMP_CODE_JPEG: printf("Error: JPEG compression is not available for <%s>\n",sds_name); ret=FAIL; goto out; break; default: printf("Error: Unrecognized compression code %d in <%s>\n",comp_type_in,sds_name); ret=FAIL; goto out; } } /* check inspection mode */ /*------------------------------------------------------------------------- * create new SDS *------------------------------------------------------------------------- */ if ((sds_out = SDcreate(sd_out,sds_name,dtype,rank,dimsizes)) == FAIL) { printf( "Failed to create new SDS <%s>\n", sds_name); ret=-1; goto out; } /*------------------------------------------------------------------------- * make it a "dimension" *------------------------------------------------------------------------- */ if ((dim_id = SDgetdimid(sds_out, 0)) == FAIL) { printf( "Failed to get dimension ID for SDS <%s>\n", sds_name); ret=-1; goto out; } if (SDsetdimname(dim_id, sds_name) == FAIL) { printf( "Failed to set dimension name for SDS <%s>\n", sds_name); ret=-1; goto out; } /*------------------------------------------------------------------------- * set chunk * * Chunked -> flags = HDF_CHUNK * Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP * Non-chunked -> flags = HDF_NONE *------------------------------------------------------------------------- */ if (empty_sds==0 ) { /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { if (SDsetchunk (sds_out, chunk_def, chunk_flags)==FAIL) { printf( "Error: Failed to set chunk dimensions for <%s>\n", sds_name); ret=-1; goto out; } } /*------------------------------------------------------------------------- * set compression * * COMP_CODE_RLE -> simple RLE encoding * COMP_CODE_SKPHUFF -> Skipping huffman encoding * COMP_CODE_DEFLATE -> gzip 'deflate' encoding *------------------------------------------------------------------------- */ /* use compress without chunk-in */ else if ( chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE) { if ( nelms*eltszthreshold ) { /* reset to the original values . we don't want to uncompress if it was */ comp_type=COMP_CODE_NONE; if (options->verbose) { printf("Warning: object size smaller than %d bytes. Not compressing <%s>\n", options->threshold,sds_name); } } else { /* setup compression factors */ switch(comp_type) { case COMP_CODE_SZIP: if (set_szip (info,szip_mode,&c_info)==FAIL) { comp_type=COMP_CODE_NONE; } break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: c_info.skphuff.skp_size = info; break; case COMP_CODE_DEFLATE: c_info.deflate.level = info; break; case COMP_CODE_NBIT: comp_type = COMP_CODE_NONE; /* not supported in this version */ break; default: printf( "Error: Unrecognized compression code %d\n", comp_type); } if (SDsetcompress (sds_out, comp_type, &c_info)==FAIL) { printf( "Error: Failed to set compression for <%s>\n", sds_name); ret=-1; goto out; } } } /*------------------------------------------------------------------------- * read sds and write new one *------------------------------------------------------------------------- */ /* alloc */ if ((buf = (VOIDP) HDmalloc(nelms * eltsz)) == NULL) { printf( "Failed to allocate %ld elements of size %ld\n", nelms, eltsz); ret=-1; goto out; } /* read data */ if (SDreaddata (sds_id, start, NULL, edges, buf) == FAIL) { printf( "Could not read SDS <%s>\n", sds_name); ret=-1; goto out; } /* write the data */ if (SDwritedata(sds_out, start, NULL, edges, buf) == FAIL) { printf( "Failed to write to new SDS <%s>\n", sds_name); ret=-1; goto out; } } /* empty_sds */ /*------------------------------------------------------------------------- * copy attributes *------------------------------------------------------------------------- */ if( copy_sds_attrs(sds_id,sds_out,nattrs,options)==FAIL) { ret=-1; goto out; } out: /* terminate access to the SDSs */ if (SDendaccess(sds_id)== FAIL ) printf( "Failed to close SDS <%s>\n", sds_name); if (sds_out!=FAIL) { if (SDendaccess (sds_out)== FAIL ) printf( "Failed to close SDS <%s>\n", sds_name); } if (buf) free(buf); return ret; } /*------------------------------------------------------------------------- * Function: match_dim_table_add * * Purpose: add an entry from a list of dimension names into the match table * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ static void match_dim_table_add (match_dim_table_t *mdim_tbl, unsigned *flags, char* dim_name, int32 ref) { int i; /* check if name already on match table */ for (i = 0; i < mdim_tbl->nobjs; i++) { /* insert information at position i */ if ( strcmp(dim_name, mdim_tbl->objs[i].dim_name)==0 ) { if (mdim_tbl->objs[i].flags[0] == 0) mdim_tbl->objs[i].flags[0] = flags[0]; if (mdim_tbl->objs[i].flags[1] == 0) mdim_tbl->objs[i].flags[1] = flags[1]; return; } } if (mdim_tbl->nobjs == mdim_tbl->size) { mdim_tbl->size *= 2; mdim_tbl->objs = (match_dim_name_t*)realloc(mdim_tbl->objs, mdim_tbl->size * sizeof(match_dim_name_t)); for (i = mdim_tbl->nobjs; i < mdim_tbl->size; i++) { mdim_tbl->objs[i].ref = -1; mdim_tbl->objs[i].flags[0] = mdim_tbl->objs[i].flags[1] = -1; } } i = mdim_tbl->nobjs++; mdim_tbl->objs[i].ref = ref; strcpy(mdim_tbl->objs[i].dim_name,dim_name); mdim_tbl->objs[i].flags[0] = flags[0]; mdim_tbl->objs[i].flags[1] = flags[1]; } /*------------------------------------------------------------------------- * Function: match_dim_table_init * * Purpose: initialize match table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ static void match_dim_table_init( match_dim_table_t **tbl ) { int i; match_dim_table_t *mdim_tbl = (match_dim_table_t*) malloc(sizeof(match_dim_table_t)); mdim_tbl->size = 20; mdim_tbl->nobjs = 0; mdim_tbl->objs = (match_dim_name_t*) malloc(mdim_tbl->size * sizeof(match_dim_name_t)); for (i = 0; i < mdim_tbl->size; i++) { mdim_tbl->objs[i].ref = -1; mdim_tbl->objs[i].flags[0] = mdim_tbl->objs[i].flags[1] = -1; } *tbl = mdim_tbl; } /*------------------------------------------------------------------------- * Function: match_dim_table_free * * Purpose: free match table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ static void match_dim_table_free( match_dim_table_t *mdim_tbl ) { free(mdim_tbl->objs); free(mdim_tbl); } /*------------------------------------------------------------------------- * Function: dim_table_add * * Purpose: add an entry of pair REF/NAME into a dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ void dim_table_add(dim_table_t *dim_tbl, int ref, char* name) { int i; if (dim_tbl->nobjs == dim_tbl->size) { dim_tbl->size *= 2; dim_tbl->objs = (dim_name_t*)realloc(dim_tbl->objs, dim_tbl->size * sizeof(dim_name_t)); for (i = dim_tbl->nobjs; i < dim_tbl->size; i++) { dim_tbl->objs[i].ref = -1; } } i = dim_tbl->nobjs++; dim_tbl->objs[i].ref = ref; strcpy(dim_tbl->objs[i].dim_name,name); } /*------------------------------------------------------------------------- * Function: dim_table_init * * Purpose: initialize dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ void dim_table_init( dim_table_t **tbl ) { int i; dim_table_t* dim_tbl = (dim_table_t*) malloc(sizeof(dim_table_t)); dim_tbl->size = 20; dim_tbl->nobjs = 0; dim_tbl->objs = (dim_name_t*) malloc(dim_tbl->size * sizeof(dim_name_t)); for (i = 0; i < dim_tbl->size; i++) { dim_tbl->objs[i].ref = -1; } *tbl = dim_tbl; } /*------------------------------------------------------------------------- * Function: dim_table_free * * Purpose: free dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: January 17, 2007 * *------------------------------------------------------------------------- */ void dim_table_free( dim_table_t *dim_tbl ) { free(dim_tbl->objs); free(dim_tbl); } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_utils.h0000644000000000000000000000434512421456623016623 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_UTILS_H_ #define REPACK_UTILS_H_ #include "hrepack.h" #include "hrepack_parse.h" #ifdef __cplusplus extern "C" { #endif int is_reserved(char*vgroup_class); char *get_path(char*path_name, char*obj_name); int options_get_info(options_t *options, /* global options */ int32 *chunk_flags, /* chunk flags OUT */ HDF_CHUNK_DEF *chunk_def, /* chunk definition OUT */ int *info, /* compression info OUT */ int *szip_mode, /* compression information OUT */ comp_coder_t *comp_type, /* compression type OUT */ int rank, /* rank of object IN */ char *path, /* path of object IN */ int ncomps, /* number of GR image planes (for SZIP), IN */ int32 *dimsizes, /* dimensions (for SZIP), IN */ int32 dtype /* numeric type (for SZIP), IN */ ); int set_szip( int pixels_per_block, /*in */ int compression_mode, /* in */ comp_info *c_info/*out*/); #ifdef __cplusplus } #endif #endif /* REPACK_UTILS_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepacktst.c0000644000000000000000000031770712421456623016142 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "mfhdf.h" #include "hcomp.h" #include "hrepack.h" #include "hdiff.h" #include "pal_rgb.h" #if defined (H4_HAVE_LIBSZ) #include "szlib.h" #endif #define HREPACK_FILE1 "hrepacktst1.hdf" #define HREPACK_FILE1_OUT "hrepacktst1_out.hdf" #define HREPACK_FILE2 "hrepacktst2.hdf" #define HREPACK_FILE2_OUT "hrepacktst2_out.hdf" #define HREPACK_FILE3 "hrepacktst3.hdf" #define HREPACK_FILE3_OUT "hrepacktst3_out.hdf" #define DATA_FILE1 "image8.txt" #define DATA_FILE2 "image24pixel.txt" #define DATA_FILE3 "image24plane.txt" #define HDIFF_TSTSTR "hdiff hrepacktst1.hdf hrepacktst1_out.hdf" #define HDIFF_TSTSTR2 "hdiff hrepacktst2.hdf hrepacktst2_out.hdf" #define HDIFF_TSTSTR3 "hdiff hrepacktst3.hdf hrepacktst3_out.hdf" #define TESTING(WHAT) {printf("%-70s", "Testing " WHAT); fflush(stdout); } #define PASSED() {puts(" PASSED");fflush(stdout);} #define SKIPPED() {puts(" SKIPPED");fflush(stdout);} #define H4_FAILED() {puts("*FAILED*");fflush(stdout);} /* AN labels */ #define FILE_LABEL_TXT "This is a file label" #define FILE_DESC_TXT "This is a file description" #define DATA_LABEL_TXT "This is a data label" #define DATA_DESC_TXT "This is a data annotation" /* dimensions of image */ #define X_DIM_GR 60 #define Y_DIM_GR 400 /* dimensions of dataset */ #define X_DIM 20 #define Y_DIM 800 #define Z_DIM 2 /* dimensions */ #define XD1 60 #define YD1 40 /* dimensions for hyperslab sds */ #define DIM0 10 #define DIM1 10 #define ADD_ROWS ( 1024 * 1024 - 10 ) / 10 /* Vdata */ #define N_RECORDS 3 /* number of records the vdata contains */ #define ORDER_1 3 /* order of first field */ #define ORDER_2 1 /* order of second field */ #define ORDER_3 2 /* order of third field */ #define CLASS_NAME "Particle" #define FIELD1_NAME "Position" /* contains x, y, z values */ #define FIELD2_NAME "Mass" /* contains weight values */ #define FIELD3_NAME "Temperature" /* contains min and max values */ #define FIELDNAME_LIST "Position,Mass,Temperature" /* No spaces b/w names */ #define N_VALS_PER_REC (ORDER_1 + ORDER_2 + ORDER_3) /* number of values per record */ /*------------------------------------------------------------------------- * global variables for read image data, used in gr, r8 and r24 add *------------------------------------------------------------------------- */ static int g_lenght_x; static int g_lenght_y; static int g_ncomps; static unsigned char *g_image_data = NULL; /*------------------------------------------------------------------------- * read_data * utility function to read ASCII image data * the files have a header of the type * * components * n * height * n * width * n * * followed by the image data * *------------------------------------------------------------------------- */ static int read_data(const char* fname) { int i, n; int color_planes; char str[20]; FILE *f; int w, h; f = fopen( fname, "r"); if ( f == NULL ) { printf( "Could not open file <%s>\n", fname ); return -1; } fscanf( f, "%s", str ); fscanf( f, "%d", &color_planes ); fscanf( f, "%s", str ); fscanf( f, "%d", &h); fscanf( f, "%s", str ); fscanf( f, "%d", &w); /* globals */ g_ncomps=color_planes; g_lenght_y=h; g_lenght_x=w; if ( g_image_data != NULL ) { free( g_image_data ); g_image_data=NULL; } g_image_data = (unsigned char*)malloc(w*h*color_planes*sizeof(unsigned char)); for (i = 0; i < h*w*color_planes ; i++) { fscanf( f, "%d",&n ); g_image_data[i] = (unsigned char)n; } fclose(f); return 1; } /*------------------------------------------------------------------------- * Function: vg_getngrpdep * * Purpose: utility function to get number of vgroups dependencies in * file HFILEID f * * Return: number of vgroups dependencies in file * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: September 10, 2007 * *------------------------------------------------------------------------- */ static int vg_getngrpdep( HFILEID f) { int32 vg, vgt; int32 vgotag, vgoref; int32 vgid = -1; int32 vsid = -1; int32 vsno = 0; int32 vstag; int32 i, nvg, n, ne, nlnk; uint16 name_len; char *vgname; Vstart(f); nvg = 0; nlnk = 0; while ((vgid = Vgetid(f, vgid)) != -1) { vg = Vattach(f, vgid, "r"); if (vg == FAIL) { printf("cannot open vg id=%d\n", (int) vgid); } /* Get vgroup's name */ if (Vgetnamelen(vg, &name_len)==FAIL) { printf("Error: Could not get name length for group with ref <%ld>\n", vgid); continue; } vgname = (char *) HDmalloc(sizeof(char) * (name_len+1)); Vinquire(vg, &n, vgname); vgotag = VQuerytag(vg); vgoref = VQueryref(vg); for (i = 0; i < Vntagrefs(vg); i++) { Vgettagref(vg, i, &vstag, &vsid); if (vstag == DFTAG_VG) { vgt = Vattach(f, vsid, "r"); if (vgt == FAIL) { printf("cannot open vg id=%d\n", (int) vsid); continue; } Vinquire(vgt, &ne, vgname); vgotag = VQuerytag(vgt); vgoref = VQueryref(vgt); Vdetach(vgt); nlnk++; } /* if */ } /* for */ Vdetach(vg); nvg++; } /* while */ Vend(f); return nlnk; } /*------------------------------------------------------------------------- * Function: vg_verifygrpdep * * Purpose: utility function to verify number of vgroups dependencies in * 2 files NAME1 and NAME2 * * Return: 0, group dependencies are the same in both files * 1, they are not the same * -1, error * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: September 10, 2007 * *------------------------------------------------------------------------- */ static int vg_verifygrpdep( char* name1, char* name2 ) { HFILEID f1; HFILEID f2; int32 nlnk1; int32 nlnk2; if ((f1 = Hopen(name1, DFACC_READ, 0)) == FAIL) { printf("\nFile (%s) failed to open.\n", name1); return -1; } if ((f2 = Hopen(name2, DFACC_READ, 0)) == FAIL) { printf("\nFile (%s) failed to open.\n", name2); return -1; } nlnk1 = vg_getngrpdep( f1 ); nlnk2 = vg_getngrpdep( f2 ); Hclose(f1); Hclose(f2); return (nlnk1 == nlnk2) ? 0: 1; } /*------------------------------------------------------------------------- * Function: set_chunk_def * * Purpose: set chunk parameters. used by GR and SDS * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: September 15, 2003 * *------------------------------------------------------------------------- */ static void set_chunk_def( comp_coder_t comp_type, int32 *dim, int32 ncomps, int32 bits_per_pixel, /* for szip */ HDF_CHUNK_DEF *chunk_def ) { /* Define chunk's dimensions */ chunk_def->chunk_lengths[0] = dim[0]/2; chunk_def->chunk_lengths[1] = dim[1]/2; /* To use chunking with RLE, Skipping Huffman, GZIP, SZIP compression */ chunk_def->comp.chunk_lengths[0] = dim[0]/2; chunk_def->comp.chunk_lengths[1] = dim[1]/2; /*define some compression specific parameters */ switch(comp_type) { default: break; case COMP_CODE_RLE: chunk_def->comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def->comp.comp_type = COMP_CODE_SKPHUFF; chunk_def->comp.cinfo.skphuff.skp_size = 1; break; case COMP_CODE_DEFLATE: /* GZIP compression, set compression type, flag and deflate level*/ chunk_def->comp.comp_type = COMP_CODE_DEFLATE; chunk_def->comp.cinfo.deflate.level = 6; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { chunk_def->comp.cinfo.szip.pixels_per_block = 2; chunk_def->comp.cinfo.szip.options_mask = SZ_EC_OPTION_MASK; chunk_def->comp.cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; chunk_def->comp.cinfo.szip.pixels = 0; chunk_def->comp.cinfo.szip.pixels_per_scanline = 0; chunk_def->comp.cinfo.szip.bits_per_pixel = 0; } else { printf("Warning: SZIP encoding not available\n"); } #else printf("Warning: SZIP compression not available\n"); #endif break; } } /*------------------------------------------------------------------------- * verify functions *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * Function: cmp_gr * * Purpose: compare 2 GR images * * Return: same as memcmp * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: September 03, 2003 * *------------------------------------------------------------------------- */ static int cmp_gr(int32 ri1_id, int32 ri2_id) { int32 dimsizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode1,/* interlace mode of an image */ dtype, /* number type of an image */ n_attrs; /* number of attributes belong to an image */ int32 interlace_mode2; char gr_name[H4_MAX_GR_NAME]; int j, rank=2; int32 start[2], /* read start */ edges[2], /* read edges */ numtype, /* number type */ eltsz, /* element size */ nelms, /* number of elements */ data_size; VOIDP buf1=NULL, buf2=NULL; int cmp=-1; GRgetiminfo(ri1_id,gr_name,&n_comps,&dtype,&interlace_mode1,dimsizes,&n_attrs); GRgetiminfo(ri2_id,gr_name,&n_comps,&dtype,&interlace_mode2,dimsizes,&n_attrs); printf( "Comparing GR <%s>: ", gr_name); /*------------------------------------------------------------------------- * match interlace * NOTE: GR images are always stored as pixel_interlace (0) on disk * that does not happen with images saved with the * DF24 - Single-file 24-Bit Raster Image Interface, * where the interlace mode on disk can be 0, 1 or 2 *------------------------------------------------------------------------- */ if ( interlace_mode1 != interlace_mode2 ) { printf("Warning: different interlace mode: <%ld> and <%ld>", interlace_mode1,interlace_mode2); interlace_mode1=interlace_mode2; } /*------------------------------------------------------------------------- * check for data size before printing *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value. */ numtype = dtype & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /* set edges of GR */ nelms=1; for (j = 0; j < rank; j++) { nelms *= dimsizes[j]; edges[j] = dimsizes[j]; start[j] = 0; } data_size = dimsizes[0]*dimsizes[1]*n_comps*eltsz; /*------------------------------------------------------------------------- * read gr 1 *------------------------------------------------------------------------- */ /* alloc */ if ((buf1 = (VOIDP) HDmalloc(data_size)) == NULL) { printf( "Failed to allocate %ld elements of size %ld\n", nelms, eltsz); goto out; } /* read data */ if (GRreadimage (ri1_id, start, NULL, edges, buf1) == FAIL) { printf( "Could not read GR\n"); goto out; } /*------------------------------------------------------------------------- * read gr 2 *------------------------------------------------------------------------- */ /* alloc */ if ((buf2 = (VOIDP) HDmalloc(data_size)) == NULL) { printf( "Failed to allocate %ld elements of size %ld\n", nelms, eltsz); goto out; } /* read data */ if (GRreadimage (ri2_id, start, NULL, edges, buf2) == FAIL) { printf( "Could not read GR\n"); goto out; } cmp = HDmemcmp(buf1,buf2,data_size); if (cmp!=0) printf("Differences found\n"); else printf("\n"); out: /* terminate access to the GRs */ GRendaccess(ri1_id); GRendaccess(ri2_id); if (buf1) free(buf1); if (buf2) free(buf2); return cmp; } /*------------------------------------------------------------------------- * Function: sds_verifiy_comp * * Purpose: utility function to verify compression for SDS_NAME * * Return: 0, -1 on error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_verifiy_comp(const char *sds_name, int32 in_comp_type, int32 in_comp_info) { comp_coder_t comp_type; /* to retrieve compression type into */ comp_info comp_info; /* compression structure */ int32 sd_id, sds_id, sds_index; /* get chunk and comp */ sd_id = SDstart (HREPACK_FILE1_OUT, DFACC_RDONLY); sds_index = SDnametoindex(sd_id, sds_name); if ((sds_id = SDselect(sd_id, sds_index))==FAIL) { printf("Error: Cannot open sds <%s>", sds_name); SDend (sd_id); return -1; } /*------------------------------------------------------------------------- * retrieve and verify the compression info *------------------------------------------------------------------------- */ comp_type = COMP_CODE_NONE; /* reset variables before retrieving info */ HDmemset(&comp_info, 0, sizeof(comp_info)) ; SDgetcompinfo(sds_id, &comp_type, &comp_info); if ( comp_type != in_comp_type ) { printf("Error: Compression type does not match "); SDendaccess (sds_id); SDend (sd_id); return -1; } if (in_comp_info) { if ( comp_info.skphuff.skp_size != in_comp_info ) { printf("Error: compresion information does not match "); SDendaccess (sds_id); SDend (sd_id); return -1; } } /* terminate access to the sds */ SDendaccess (sds_id); /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * Function: sds_verifiy_comp_all * * Purpose: utility function to verify compression for all SDSs * * Return: 0, -1 on error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_verifiy_comp_all(comp_coder_t in_comp_type, int in_comp_info) { comp_coder_t comp_type; /* to retrieve compression type into */ comp_info comp_info; /* compression structure */ int32 sd_id, sds_id, sds_index, n_datasets, /* number of datasets in the file */ n_file_attrs, /* number of file attributes */ data_type, /* number type */ rrank, /* read rank */ n_attrs, /* number of attributes */ dim_sizes[H4_MAX_VAR_DIMS];/* dimensions of an image */ char name[H4_MAX_GR_NAME]; /* name of dataset */ int info; intn empty_sds; int is_record = 0; /* initialize the sd interface */ sd_id = SDstart (HREPACK_FILE1_OUT, DFACC_READ); /* determine the number of data sets in the file */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)==FAIL) { printf("Error: Cannot get file information"); SDend (sd_id); return -1; } for (sds_index = 0; sds_index < n_datasets; sds_index++) { sds_id = SDselect (sd_id, sds_index); /* skip dimension scales */ if ( SDiscoordvar(sds_id) ) { SDendaccess(sds_id); continue; } name[0] = '\0'; if ( SDgetinfo(sds_id, name, &rrank, dim_sizes, &data_type, &n_attrs) == FAIL ) { printf("Error: can't read info for SDS <%s>",name); SDendaccess (sds_id); SDend (sd_id); return -1; } /*------------------------------------------------------------------------- * check if the input SDS is empty *------------------------------------------------------------------------- */ if (SDcheckempty( sds_id, &empty_sds ) == FAIL) { printf( "Failed to check empty SDS <%s>\n", name); SDendaccess (sds_id); SDend (sd_id); return -1; } /*------------------------------------------------------------------------- * retrieve and verify the compression info *------------------------------------------------------------------------- */ if (empty_sds==0 ) { comp_type = COMP_CODE_NONE; /* reset variables before retrieving info */ HDmemset(&comp_info, 0, sizeof(comp_info)) ; if (SDisrecord(sds_id)) is_record = 1; /* unlimited dimensions don't work with compression */ if ( ! is_record ) { if ( SDgetcompinfo(sds_id, &comp_type, &comp_info) == FAIL ) { printf("Warning: can't read compression for SDS <%s>",name); } else { if ( comp_type != in_comp_type ) { printf("Error: compression type does not match <%s>",name); SDendaccess (sds_id); SDend (sd_id); return -1; } if (in_comp_type) { switch (in_comp_type) { case COMP_CODE_NONE: break; case COMP_CODE_RLE: break; case COMP_CODE_SZIP: break; case COMP_CODE_SKPHUFF: info = comp_info.skphuff.skp_size; break; case COMP_CODE_DEFLATE: info = comp_info.deflate.level; break; default: printf("Error: Unrecognized compression code %d\n",in_comp_type); info = -1; break; }; if ( info != in_comp_info ) { printf("Error: compresion information does not match for <%s>",name); SDendaccess (sds_id); SDend (sd_id); return -1; } } } } /* is_record */ } /* empty_sds */ /* terminate access to the current dataset */ SDendaccess (sds_id); } /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * Function: sds_verifiy_chunk * * Purpose: utility function to verify chunking for SDS_NAME * * Return: 0, -1 on error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_verifiy_chunk(const char *sds_name, int32 in_chunk_flags, int rank, int32 *in_chunk_lengths) { HDF_CHUNK_DEF chunk_def; /* chunk defintion read */ int32 chunk_flags; /* chunking flag */ int32 sd_id, sds_id, sds_index; int i; /* get chunk and comp */ sd_id = SDstart (HREPACK_FILE1_OUT, DFACC_RDONLY); sds_index = SDnametoindex(sd_id, sds_name); if ((sds_id = SDselect(sd_id, sds_index))==FAIL) { printf("Error: cannot open sds <%s>", sds_name); SDend (sd_id); return -1; } SDgetchunkinfo (sds_id, &chunk_def, &chunk_flags); /*------------------------------------------------------------------------- * retrieve and verify the chunk info *------------------------------------------------------------------------- */ if ( chunk_flags != (in_chunk_flags) ) { printf("Error: chunk flags do not match"); SDendaccess (sds_id); SDend (sd_id); return -1; } for (i = 0; i < rank; i++) { if (chunk_def.chunk_lengths[i] != in_chunk_lengths[i] ) { printf("Error: chunk lengths do not match "); SDendaccess (sds_id); SDend (sd_id); return -1; } } /* terminate access to the sds */ SDendaccess (sds_id); /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * Function: sds_verifiy_chunk_all * * Purpose: utility function to verify chunking for all SDSs * * Return: 0, -1 on error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * *------------------------------------------------------------------------- */ static int sds_verifiy_chunk_all(int32 in_chunk_flags, int rank, int32 *in_chunk_lengths, const char *sds_exclude) { HDF_CHUNK_DEF chunk_def; /* chunk defintion read */ int32 chunk_flags; /* chunking flag */ int32 sd_id, sds_id, sds_index, n_datasets, /* number of datasets in the file */ n_file_attrs, /* number of file attributes */ data_type, /* number type */ rrank, /* read rank */ n_attrs, /* number of attributes */ dim_sizes[H4_MAX_VAR_DIMS];/* dimensions of an image */ char name[H4_MAX_GR_NAME]; /* name of dataset */ int i; /* initialize the sd interface */ sd_id = SDstart (HREPACK_FILE1_OUT, DFACC_READ); /* determine the number of data sets in the file */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)==FAIL) { printf("Error: cannot get file information"); SDend (sd_id); return -1; } for (sds_index = 0; sds_index < n_datasets; sds_index++) { sds_id = SDselect (sd_id, sds_index); /* skip dimension scales */ if ( SDiscoordvar(sds_id) ) { SDendaccess(sds_id); continue; } SDgetinfo(sds_id, name, &rrank, dim_sizes, &data_type, &n_attrs); SDgetchunkinfo (sds_id, &chunk_def, &chunk_flags); /* do not compare this one */ if (strcmp(name,sds_exclude)==0) { SDendaccess(sds_id); SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * retrieve and verify the chunk info *------------------------------------------------------------------------- */ if ( chunk_flags != (in_chunk_flags) ) { printf("Error: chunk flags do not match"); SDendaccess (sds_id); SDend (sd_id); return -1; } for (i = 0; i < rank; i++) { if (chunk_def.chunk_lengths[i] != in_chunk_lengths[i] ) { printf("Error: chunk lengths do not match "); SDendaccess (sds_id); SDend (sd_id); return -1; } } /* terminate access to the current dataset */ SDendaccess (sds_id); } /* terminate access to the sd interface */ SDend (sd_id); return 0; } /*------------------------------------------------------------------------- * add functions *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * Function: add_an * * Purpose: utility function to write a AN * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 19, 2003 * *------------------------------------------------------------------------- */ static int add_an(int32 file_id, int32 tag, int32 ref) { int32 an_id, /* AN interface identifier */ data_label_id, /* data label identifier */ data_desc_id; /* data description identifier */ /* Initialize the AN interface */ an_id = ANstart (file_id); /*------------------------------------------------------------------------- * data labels and annotations *------------------------------------------------------------------------- */ /* Create the data label for the object identified by its tag and ref number */ data_label_id = ANcreate (an_id, (uint16)tag, (uint16)ref, AN_DATA_LABEL); /* Write the annotation text to the data label */ if (ANwriteann (data_label_id, DATA_LABEL_TXT, strlen (DATA_LABEL_TXT))==FAIL){ printf("Error: writing data label in tag %ld ref %ld\n", tag, ref); return FAIL; } /* Create the data description for the object identified by its tag and ref number */ data_desc_id = ANcreate (an_id, (uint16)tag, (uint16)ref, AN_DATA_DESC); /* Write the annotation text to the data description */ if (ANwriteann (data_desc_id, DATA_DESC_TXT, strlen (DATA_DESC_TXT))==FAIL){ printf("Error: writing data label in tag %ld ref %ld\n", tag, ref); return FAIL; } /* Terminate access to each annotation explicitly */ if (ANendaccess (data_label_id)==FAIL|| ANendaccess (data_desc_id)==FAIL){ printf( "Failed to close AN\n"); return FAIL; } /* Terminate access to the AN interface */ if (ANend (an_id)==FAIL){ printf( "Failed to close AN\n"); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_gr_ffile * * Purpose: utility function to read an image data file and save the image with the * GR - Multifile General Raster Image Interface, * optionally inserting the image into the group VGROUP_ID * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_gr_ffile(const char* name_file, int32 gr_id, const char* gr_name, int32 interlace_mode, int32 file_id, int32 vgroup_id) { int32 ri_id, /* raster image identifier */ gr_ref, /* reference number of the GR image */ start[2], /* start position to write for each dimension */ edges[2], /* number of elements to be written along each dimension */ dim_gr[2], /* dimension sizes of the image array */ data_type; /* data type of the image data */ char *srcdir = getenv("srcdir"); /* the source directory */ char data_file[512]=""; /* buffer to hold name of existing data file */ uint8 attr_values[2]={1,2}; int n_values; /* compose the name of the file to open, using the srcdir, if appropriate */ if ( srcdir ) { strcpy(data_file, srcdir); strcat(data_file, "/"); } strcat( data_file, name_file); if ( read_data(data_file) > 0 ) { /* set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_UINT8; dim_gr[0] = g_lenght_x; dim_gr[1] = g_lenght_y; /* create the raster image array */ if ((ri_id = GRcreate (gr_id, gr_name, g_ncomps, data_type, interlace_mode, dim_gr))== FAIL) { printf("Error: Could not create GR <%s>\n", gr_name); return FAIL; } /* define the size of the data to be written */ start[0] = start[1] = 0; edges[0] = g_lenght_x; edges[1] = g_lenght_y; /* write the data in the buffer into the image array */ if (GRwriteimage(ri_id, start, NULL, edges, (VOIDP)g_image_data)==FAIL) { printf("Error: Could not write GR <%s>\n", gr_name); } /* assign an attribute to the SDS */ n_values = 2; if(GRsetattr(ri_id, "Myattr", DFNT_UINT8, n_values, (VOIDP)attr_values)==FAIL) { printf("Error: Could not write attributes for GR <%s>\n", gr_name); return FAIL; } /* obtain the reference number of the GR using its identifier */ gr_ref = GRidtoref (ri_id); /* add the GR to the vgroup. the tag DFTAG_RIG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_IMAGE, gr_ref)==FAIL) { printf("Error: Could not add GR <%s> to group\n", gr_name); return FAIL; } } /* terminate access to the raster image */ if (GRendaccess (ri_id)==FAIL) { printf("Error: Could not close GR <%s>\n", gr_name); return FAIL; } /* add an annotation and label to the object */ if (add_an(file_id, DFTAG_RI, gr_ref)<0) return FAIL; } /* read data */ if ( g_image_data != NULL ) { free( g_image_data ); g_image_data=NULL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_gr * * Purpose: utility function to write images with the * GR - Multifile General Raster Image Interface, * optionally inserting the image into the group VGROUP_ID * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 18, 2003 * *------------------------------------------------------------------------- */ static int add_gr(const char* gr_name, /* gr name */ int32 file_id, /* file ID */ int32 gr_id, /* GR ID */ int32 vgroup_id, /* group ID */ int32 chunk_flags, /* chunk flags */ comp_coder_t comp_type, /* compression flag */ comp_info *comp_info /* compression structure */ ) { int32 ri_id, /* raster image identifier */ gr_ref, /* reference number of the GR image */ start[2], /* start position to write for each dimension */ edges[2], /* number of elements to be written along each dimension */ dim_gr[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ data[Y_DIM_GR][X_DIM_GR]; int i, j, n=0, ncomps=1; HDF_CHUNK_DEF chunk_def; /* Chunking definitions */ /* set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_UINT32; interlace_mode = MFGR_INTERLACE_PIXEL; dim_gr[0] = Y_DIM_GR; dim_gr[1] = X_DIM_GR; /* data set data initialization */ for (j = 0; j < Y_DIM_GR; j++) { for (i = 0; i < X_DIM_GR; i++) data[j][i] = n++; } /*define some compression specific parameters */ switch(comp_type) { default: break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: comp_info->skphuff.skp_size = 1; break; case COMP_CODE_DEFLATE: comp_info->deflate.level = 6; break; case COMP_CODE_SZIP: #ifdef H4_GR_SZIP /* not supported for GR */ #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { comp_info->szip.pixels_per_block = 2; comp_info->szip.options_mask = SZ_EC_OPTION_MASK; comp_info->szip.options_mask |= SZ_RAW_OPTION_MASK; comp_info->szip.pixels = 0; comp_info->szip.pixels_per_scanline = 0; comp_info->szip.bits_per_pixel = 0; } else { printf("Warning: SZIP encoding not available\n"); } #else printf("Warning: SZIP compression not available\n"); #endif #endif printf("Warning: SZIP compression not available for GR\n"); break; } /* create the raster image array */ if ((ri_id = GRcreate (gr_id, gr_name, ncomps, data_type, interlace_mode, dim_gr))== FAIL) { printf("Error: Could not create GR <%s>\n", gr_name); return FAIL; } /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { /* Define chunk's dimensions */ chunk_def.chunk_lengths[0] = Y_DIM_GR/2; chunk_def.chunk_lengths[1] = X_DIM_GR/2; /* To use chunking with RLE, Skipping Huffman, and GZIP compression */ chunk_def.comp.chunk_lengths[0] = Y_DIM_GR/2; chunk_def.comp.chunk_lengths[1] = X_DIM_GR/2; /*define some compression specific parameters */ switch(comp_type) { default: break; case COMP_CODE_RLE: chunk_def.comp.comp_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff.skp_size = 1; break; case COMP_CODE_DEFLATE: /* GZIP compression, set compression type, flag and deflate level*/ chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate.level = 6; break; case COMP_CODE_SZIP: #ifdef H4_GR_SZIP #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { chunk_def.comp.cinfo.szip.pixels_per_block = 2; chunk_def.comp.cinfo.szip.options_mask = SZ_EC_OPTION_MASK; chunk_def.comp.cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; chunk_def.comp.cinfo.szip.pixels = 0; chunk_def.comp.cinfo.szip.pixels_per_scanline = 0; chunk_def.comp.cinfo.szip.bits_per_pixel = 0; } else { printf("Warning: SZIP encoding not available\n"); } #else printf("Warning: SZIP compression not available\n"); #endif #endif printf("Warning: SZIP compression not available for GR\n"); break; } if(GRsetchunk (ri_id, chunk_def, chunk_flags)==FAIL) { printf("Error: Could not set chunk for GR <%s>\n", gr_name); return FAIL; } } /* use compress without chunk-in */ else if ( (chunk_flags==HDF_NONE || chunk_flags==HDF_CHUNK) && comp_type>COMP_CODE_NONE && comp_type\n", gr_name); return FAIL; } } /* define the size of the data to be written */ start[0] = start[1] = 0; edges[0] = Y_DIM_GR; edges[1] = X_DIM_GR; /* write the data in the buffer into the image array */ if (GRwriteimage(ri_id, start, NULL, edges, (VOIDP)data)==FAIL) { printf("Error: Could not set write GR <%s>\n", gr_name); return FAIL; } /* obtain the reference number of the GR using its identifier */ gr_ref = GRidtoref (ri_id); /* add the GR to the vgroup. the tag DFTAG_RIG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_IMAGE, gr_ref)==FAIL) { printf("Error: Could not add GR <%s> to group\n", gr_name); return FAIL; } } /* terminate access to the raster image */ if (GRendaccess (ri_id)==FAIL) { printf("Error: Could not close GR <%s>\n", gr_name); return FAIL; } /* add an annotation and label to the object */ if (add_an(file_id, DFTAG_RI, gr_ref)<0) return FAIL; return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_glb_attrs * * Purpose: utility function to write global attributes * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 30, 2003 * *------------------------------------------------------------------------- */ static int add_glb_attrs(const char *fname, int32 file_id, int32 sd_id, int32 gr_id) { uint8 attr_values[2]={1,2}; int n_values=2; /*------------------------------------------------------------------------- * make SDS global attributes *------------------------------------------------------------------------- */ /* assign an attribute to the SD */ if (SDsetattr(sd_id, "MySDgattr", DFNT_UINT8, n_values, (VOIDP)attr_values)==FAIL){ printf("Could not set SDS attr\n"); return FAIL; } /*------------------------------------------------------------------------- * make GR global attributes *------------------------------------------------------------------------- */ /* assign an attribute to the GR */ if (GRsetattr(gr_id, "MyGRgattr", DFNT_UINT8, n_values, (VOIDP)attr_values)==FAIL){ printf("Could not set GR attr\n"); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_r8 * * Purpose: utility function to read an image data file and save the image with the * DFR8 - Single-file 8-Bit Raster Image Interface, * optionally inserting the image into the group VGROUP_ID * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_r8(const char* image_file, const char *fname, int32 file_id, int32 vgroup_id) { int32 ri_ref; /* reference number of the GR image */ char *srcdir = getenv("srcdir"); /* the source directory */ char data_file[512]=""; /* buffer to hold name of existing data file */ /* compose the name of the file to open, using the srcdir, if appropriate */ if ( srcdir ) { strcpy(data_file, srcdir); strcat(data_file, "/"); } strcat( data_file, image_file); if ( read_data(data_file) > 0 ) { /* add a palette */ if (DFR8setpalette(pal_rgb)==FAIL){ printf( "Could not set palette for image\n"); return FAIL; } /* write the image */ if (DFR8addimage(fname, g_image_data, g_lenght_x, g_lenght_y, (uint16)0)==FAIL){ printf( "Could not write palette for image\n"); return FAIL; } /* obtain the reference number of the RIS8 */ ri_ref = DFR8lastref(); /* add the image to the vgroup. the tag DFTAG_RIG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_IMAGE, ri_ref)==FAIL){ printf( "Could not add image to group\n"); return FAIL; } } /* add an annotation and label to the object */ if (add_an(file_id, TAG_GRP_IMAGE, ri_ref)<0) return FAIL; } if ( g_image_data != NULL ) { free( g_image_data ); g_image_data=NULL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_r24 * * Purpose: utility function to read an image data file and save the image with the * DF24 - Single-file 24-Bit Raster Image Interface, * optionally inserting the image into the group VGROUP_ID * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_r24(const char* image_file, const char *fname, int32 file_id, intn il, int32 vgroup_id) { int32 ri_ref; /* reference number of the GR image */ char *srcdir = getenv("srcdir"); /* the source directory */ char data_file[512]=""; /* buffer to hold name of existing data file */ /* compose the name of the file to open, using the srcdir, if appropriate */ if ( srcdir ) { strcpy(data_file, srcdir); strcat(data_file, "/"); } strcat( data_file, image_file); if ( read_data(data_file) > 0 ) { /* set interlace */ if (DF24setil(il)==FAIL){ printf( "Could not set interlace for image\n"); return FAIL; } /* write the image */ if (DF24addimage(fname, g_image_data, g_lenght_x, g_lenght_y)==FAIL){ printf( "Could not write image\n"); return FAIL; } /* obtain the reference number of the RIS24 */ ri_ref = DF24lastref(); /* add the image to the vgroup. the tag DFTAG_RIG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_IMAGE, ri_ref)==FAIL) { printf( "Could not set group for image\n"); return FAIL; } } /* add an annotation and label to the object */ if (add_an(file_id, TAG_GRP_IMAGE, ri_ref)<0) return FAIL; } /* read_data */ if ( g_image_data != NULL ) { free( g_image_data ); g_image_data=NULL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_sd * * Purpose: utility function to write with * SD - Multifile Scientific Data Interface, * optionally : * 1)inserting the SD into the group VGROUP_ID * 2)making the dataset chunked and/or compressed * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_sd(const char *fname, /* file name */ int32 file_id, /* file ID */ int32 sd_id, /* SD id */ const char* sds_name, /* sds name */ int32 vgroup_id, /* group ID */ int32 chunk_flags, /* chunk flags */ comp_coder_t comp_type, /* compression flag */ comp_info *comp_info /* compression structure */ ) { int32 sds_id, /* data set identifier */ sds_ref, /* reference number of the data set */ dim_sds[2], /* dimension of the data set */ rank = 2, /* rank of the data set array */ n_values, /* number of values of attribute */ dim_index, /* dimension index */ dim_id, /* dimension ID */ start[2], /* write start */ edges[2], /* write edges */ fill_value=2, /* fill value */ data[Y_DIM][X_DIM], bits_per_pixel=32; float32 sds_values[2] = {2., 10.}; /* values of the SDS attribute */ int16 data_X[X_DIM]; /* X dimension dimension scale */ float64 data_Y[Y_DIM]; /* Y dimension dimension scale */ int i, j; HDF_CHUNK_DEF chunk_def; /* Chunking definitions */ /* set the size of the SDS's dimension */ dim_sds[0] = Y_DIM; dim_sds[1] = X_DIM; /*define some compression specific parameters */ switch(comp_type) { default: break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: comp_info->skphuff.skp_size = 1; break; case COMP_CODE_DEFLATE: comp_info->deflate.level = 6; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { comp_info->szip.pixels_per_block = 2; comp_info->szip.options_mask = SZ_EC_OPTION_MASK; comp_info->szip.options_mask |= SZ_RAW_OPTION_MASK; comp_info->szip.pixels = 0; comp_info->szip.pixels_per_scanline = 0; comp_info->szip.bits_per_pixel = 0; } else { printf("Warning: SZIP encoding not available\n"); } #else printf("Warning: SZIP compression not available\n"); #endif break; } /* data set data initialization */ for (j = 0; j < Y_DIM; j++) { for (i = 0; i < X_DIM; i++) data[j][i] = (i + j) + 1; } /* initialize dimension scales */ for (i=0; i < X_DIM; i++) data_X[i] = i; for (i=0; i < Y_DIM; i++) data_Y[i] = 0.1 * i; /* create the SDS */ if ((sds_id = SDcreate (sd_id, sds_name, DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n",sds_name); return FAIL; } /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { set_chunk_def(comp_type, dim_sds, 1, bits_per_pixel, &chunk_def); if (SDsetchunk (sds_id, chunk_def, chunk_flags)==FAIL) { printf( "Failed to set chunk for SDS <%s>\n", sds_name); goto fail; } } /* use compress without chunk-in */ else if ( chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE && comp_type\n", sds_name); goto fail; } } /* set a fill value */ if (SDsetfillvalue (sds_id, (VOIDP)&fill_value)==FAIL){ printf( "Failed to set fillvaclue for SDS <%s>\n", sds_name); goto fail; } /* define the location and size of the data to be written to the data set */ start[0] = 0; start[1] = 0; edges[0] = Y_DIM; edges[1] = X_DIM; /* write the stored data to the data set */ if (SDwritedata (sds_id, start, NULL, edges, (VOIDP)data)==FAIL){ printf( "Failed to set write for SDS <%s>\n", sds_name); goto fail; } /* assign an attribute to the SDS */ n_values = 2; if (SDsetattr(sds_id,"Valid_range",DFNT_FLOAT32,n_values,(VOIDP)sds_values)==FAIL){ printf( "Failed to set attr for SDS <%s>\n", sds_name); goto fail; } /* For each dimension of the data set specified in SDS_NAME, * get its dimension identifier and set dimension name * and dimension scale. Note that data type of dimension scale * can be different between dimensions and can be different from * SDS data type. */ for (dim_index = 0; dim_index < rank; dim_index++) { /* select the dimension at position dim_index */ dim_id = SDgetdimid (sds_id, dim_index); /* assign name and dimension scale to selected dimension */ switch (dim_index) { case 0: n_values = Y_DIM; if (SDsetdimname (dim_id, "Y_Axis")==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } if (SDsetdimscale (dim_id,n_values,DFNT_FLOAT64,(VOIDP)data_Y)==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } if (SDsetattr (dim_id, "info", DFNT_CHAR8, 7,"meters")==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } break; case 1: n_values = X_DIM; if (SDsetdimname (dim_id, "X_Axis")==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } if (SDsetdimscale (dim_id,n_values,DFNT_INT16,(VOIDP)data_X)==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } if (SDsetattr (dim_id, "info", DFNT_CHAR8, 5,"feet")==FAIL){ printf( "Failed to set dims for SDS <%s>\n", sds_name); goto fail; } break; default: break; } } /* obtain the reference number of the SDS using its identifier */ sds_ref = SDidtoref (sds_id); /* add the SDS to the vgroup. the tag DFTAG_NDG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_DSET, sds_ref)==FAIL) { printf( "Failed to add ref for SDS <%s>\n", sds_name); goto fail; } } /* add an annotation and label to the object */ add_an(file_id, TAG_GRP_DSET, sds_ref); /* terminate access to the SDS */ if (SDendaccess (sds_id)==FAIL){ printf( "Failed to end SDS <%s>\n", sds_name); goto fail; } return SUCCEED; fail: SDendaccess (sds_id); return FAIL; } /*------------------------------------------------------------------------- * Function: add_sd3d * * Purpose: utility function to write with * SD - Multifile Scientific Data Interface, * optionally : * 1)inserting the SD into the group VGROUP_ID * 2)making the dataset chunked and/or compressed * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_sd3d(const char *fname, /* file name */ int32 file_id, /* file ID */ int32 sd_id, /* SD interface identifier */ const char* sds_name, /* sds name */ int32 vgroup_id, /* group ID */ int32 chunk_flags, /* chunk flags */ comp_coder_t comp_type, /* compression flag */ comp_info *comp_info /* compression structure */ ) { int32 sds_id, /* data set identifier */ sds_ref, /* reference number of the data set */ dim_sds[3], /* dimension of the data set */ rank = 3, /* rank of the data set array */ start[3], /* write start */ fill_value=2, /* fill value */ data[Z_DIM][Y_DIM][X_DIM]; int i, j, k; HDF_CHUNK_DEF chunk_def; /* Chunking definitions */ /* Define chunk's dimensions */ chunk_def.chunk_lengths[0] = Z_DIM/2; chunk_def.chunk_lengths[1] = Y_DIM/2; chunk_def.chunk_lengths[2] = X_DIM/2; /* To use chunking with RLE, Skipping Huffman, and GZIP compression */ chunk_def.comp.chunk_lengths[0] = Y_DIM/2; chunk_def.comp.chunk_lengths[1] = Y_DIM/2; chunk_def.comp.chunk_lengths[2] = X_DIM/2; /* GZIP compression, set compression type, flag and deflate level*/ chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate.level = 6; /* data set data initialization */ for (k = 0; k < Z_DIM; k++){ for (j = 0; j < Y_DIM; j++) for (i = 0; i < X_DIM; i++) data[k][j][i] = (i + j) + 1; } /* set the size of the SDS's dimension */ dim_sds[0] = Z_DIM; dim_sds[1] = Y_DIM; dim_sds[2] = X_DIM; /* create the SDS */ if ((sds_id = SDcreate (sd_id, sds_name, DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n",sds_name); return FAIL; } /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { if (SDsetchunk (sds_id, chunk_def, chunk_flags)==FAIL){ printf( "Failed to set chunk for SDS <%s>\n", sds_name); goto fail; } } /* use compress without chunk-in */ else if ( (chunk_flags==HDF_NONE) && comp_type>COMP_CODE_NONE && comp_type\n", sds_name); goto fail; } } /* set a fill value */ if (SDsetfillvalue (sds_id, (VOIDP)&fill_value)==FAIL) { printf( "Failed to set fill for SDS <%s>\n", sds_name); goto fail; } /* define the location and size of the data to be written to the data set */ start[0] = 0; start[1] = 0; start[2] = 0; /* write the stored data to the data set */ if (SDwritedata (sds_id, start, NULL, dim_sds, (VOIDP)data)==FAIL) { printf( "Failed to write SDS <%s>\n", sds_name); goto fail; } /* obtain the reference number of the SDS using its identifier */ sds_ref = SDidtoref (sds_id); /* add the SDS to the vgroup. the tag DFTAG_NDG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_DSET, sds_ref)==FAIL) { printf( "Failed to set ref for SDS <%s>\n", sds_name); goto fail; } } /* add an annotation and label to the object */ add_an(file_id, TAG_GRP_DSET, sds_ref); /* terminate access to the SDS */ if (SDendaccess (sds_id)==FAIL) { printf( "Failed to end SDS <%s>\n", sds_name); goto fail; } return SUCCEED; fail: SDendaccess (sds_id); return FAIL; } /*------------------------------------------------------------------------- * Function: add_empty_sd * * Purpose: utility function to write an empty sds * *------------------------------------------------------------------------- */ static int add_empty_sd(int32 sd_id, /* SD id */ const char* sds_name /* sds name */ ) { int32 sds_id, /* data set identifier */ dim_sds[2], /* dimension of the data set */ rank = 2; /* rank of the data set array */ /* set the size of the SDS's dimension */ dim_sds[0] = Y_DIM; dim_sds[1] = X_DIM; /* create the SDS */ if ((sds_id = SDcreate (sd_id, sds_name, DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n",sds_name); return FAIL; } /* terminate access to the SDS */ if (SDendaccess (sds_id)==FAIL) { printf( "Failed to end SDS <%s>\n", sds_name); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_unl_sd * * Purpose: utility function to create a sds with unlimited dimension * *------------------------------------------------------------------------- */ static int add_unl_sd(int32 sd_id, /* SD id */ const char* sds_name, /* sds name */ int do_write ) { int32 sds_id, /* data set identifier */ dim_sds[2], /* dimension of the data set */ rank = 2; /* rank of the data set array */ /* set the size of the SDS's dimension */ dim_sds[0] = SD_UNLIMITED; dim_sds[1] = X_DIM; /* create the SDS */ if ((sds_id = SDcreate (sd_id, sds_name, DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n",sds_name); return FAIL; } if ( do_write ) { int32 start[2], /* write start */ edges[2], /* write edges */ buf[Y_DIM][X_DIM]; int i, j; /* data set data initialization */ for (j = 0; j < Y_DIM; j++) { for (i = 0; i < X_DIM; i++) { buf[j][i] = (i + j) + 1; } } /* define the location and size of the data to be written to the data set */ start[0] = 0; start[1] = 0; edges[0] = Y_DIM; edges[1] = X_DIM; /* write the stored data to the data set */ if (SDwritedata (sds_id, start, NULL, edges, (VOIDP)buf)==FAIL) { printf( "Failed to set write for SDS <%s>\n", sds_name); goto fail; } } /* terminate access to the SDS */ if (SDendaccess (sds_id)==FAIL) { printf( "Failed to end SDS <%s>\n", sds_name); return FAIL; } return SUCCEED; fail: SDendaccess (sds_id); return FAIL; } /*------------------------------------------------------------------------- * Function: add_vs * * Purpose: utility function to write with * VS - Vdata Interface, * optionally inserting the VS into the group VGROUP_ID * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ static int add_vs(const char* vs_name, int32 file_id, int32 vgroup_id) { int32 vdata_ref, /* reference number of the vdata */ vdata_tag, /* tag number of the vdata */ vdata_id; /* vdata id */ int32 attr_n_values = 3; /* number of values in the vdata attribute */ int32 field_n_values = 4; /* number of values in the field attribute */ char vd_attr[3] = {'A', 'B', 'C'};/* vdata attribute values*/ int32 fld_attr[4] = {2, 4, 6, 8}; /* field attribute values*/ float32 data_buf[N_RECORDS][N_VALS_PER_REC]; /* buffer for vdata values */ int i; /* Initialize the VS interface */ Vstart (file_id); /* Create a new vdata, set to -1 to create */ vdata_ref = -1, vdata_id = VSattach (file_id, vdata_ref, "w"); /* Set name and class name of the vdata */ if (VSsetname (vdata_id, vs_name)==FAIL){ printf( "Could not set name for VS\n"); return FAIL; } if (VSsetclass (vdata_id, CLASS_NAME)==FAIL){ printf( "Could not set class for VS\n"); return FAIL; } /* Introduce each field's name, data type, and order */ VSfdefine (vdata_id, FIELD1_NAME, DFNT_FLOAT32, ORDER_1 ); VSfdefine (vdata_id, FIELD2_NAME, DFNT_FLOAT32, ORDER_2 ); VSfdefine (vdata_id, FIELD3_NAME, DFNT_FLOAT32, ORDER_3 ); /* Finalize the definition of the fields */ if (VSsetfields (vdata_id, FIELDNAME_LIST)==FAIL){ printf( "Could not set fields for VS\n"); return FAIL; } /* * Buffer the data by the record for fully interlaced mode. Note that the * first three elements contain the three values of the first field, the * fourth element contains the value of the second field, and the last two * elements contain the two values of the third field. */ for (i = 0; i < N_RECORDS; i++) { data_buf[i][0] = (float32)1.0 * i; data_buf[i][1] = (float32)2.0 * i; data_buf[i][2] = (float32)3.0 * i; data_buf[i][3] = (float32)0.1 + i; data_buf[i][4] = 0.0; data_buf[i][5] = 65.0; } /* Write the data from data_buf to the vdata with full interlacing mode */ if (VSwrite (vdata_id, (uint8 *)data_buf, N_RECORDS,FULL_INTERLACE)==FAIL){ printf( "Could not write VS\n"); return FAIL; } /* Attach an attribute to the vdata, i.e., indicated by the second parameter */ if (VSsetattr (vdata_id,_HDF_VDATA,"Myattr",DFNT_CHAR, attr_n_values, vd_attr)==FAIL){ printf( "Could not set attr for VS\n"); return FAIL; } /* Attach an attribute to the field 0 */ if (VSsetattr (vdata_id, 0, "Myfattr", DFNT_INT32, field_n_values, fld_attr)==FAIL){ printf( "Could not set attr for VS\n"); return FAIL; } /* Obtain the tag and ref number of the vdata */ vdata_tag = VSQuerytag (vdata_id); vdata_ref = VSQueryref (vdata_id); /* add the VS to the vgroup*/ if (vgroup_id) { if (Vaddtagref (vgroup_id, vdata_tag, vdata_ref)==FAIL){ printf( "Could not set group for VS\n"); return FAIL; } } /* terminate access to the VSs */ if (VSdetach (vdata_id)==FAIL){ printf( "Could not detach VS\n"); return FAIL; } /* Terminate access to the VS interface */ if (Vend (file_id)==FAIL){ printf( "Could not end VS\n"); return FAIL; } /* add an annotation and label to the vdata */ if (add_an(file_id, vdata_tag, vdata_ref)<0) return FAIL; return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_file_an * * Purpose: utility function to write a file AN * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 30, 2003 * *------------------------------------------------------------------------- */ static int add_file_an(int32 file_id) { int32 an_id, /* AN interface identifier */ file_label_id,/* file label identifier */ file_desc_id, /* file description identifier */ data_label_id, /* data label identifier */ data_desc_id, /* data description identifier */ vgroup_id; uint16 vgroup_tag, vgroup_ref; /* Initialize the AN interface */ an_id = ANstart (file_id); /*------------------------------------------------------------------------- * file labels and annotations *------------------------------------------------------------------------- */ /* Create the file label */ file_label_id = ANcreatef (an_id, AN_FILE_LABEL); /* Write the annotations to the file label */ if (ANwriteann (file_label_id,FILE_LABEL_TXT,strlen (FILE_LABEL_TXT))==FAIL) { printf( "Could not write AN\n"); return FAIL; } /* Create file description */ file_desc_id = ANcreatef (an_id, AN_FILE_DESC); /* Write the annotation to the file description */ if (ANwriteann (file_desc_id, FILE_DESC_TXT, strlen (FILE_DESC_TXT))==FAIL) { printf( "Could not write AN\n"); return FAIL; } /*------------------------------------------------------------------------- * data labels and annotations *------------------------------------------------------------------------- */ /* Create a vgroup in the V interface*/ Vstart (file_id); vgroup_id = Vattach (file_id, -1, "w"); if (Vsetname (vgroup_id, "an_group")==FAIL) { printf( "Could not set name for VG\n"); return FAIL; } /* Obtain the tag and ref number of the vgroup */ vgroup_tag = (uint16) VQuerytag (vgroup_id); vgroup_ref = (uint16) VQueryref (vgroup_id); /* Create the data label for the vgroup identified by its tag and ref number */ data_label_id = ANcreate (an_id, vgroup_tag, vgroup_ref, AN_DATA_LABEL); /* Write the annotation text to the data label */ if (ANwriteann (data_label_id, DATA_LABEL_TXT, strlen (DATA_LABEL_TXT))==FAIL) { printf( "Could not write AN\n"); return FAIL; } /* Create the data description for the vgroup identified by its tag and ref number */ data_desc_id = ANcreate (an_id, (uint16)vgroup_tag, (uint16)vgroup_ref, AN_DATA_DESC); /* Write the annotation text to the data description */ if (ANwriteann (data_desc_id, DATA_DESC_TXT, strlen (DATA_DESC_TXT))==FAIL) { printf( "Could not write AN\n"); return FAIL; } /* Teminate access to the vgroup and to the V interface */ if (Vdetach (vgroup_id)==FAIL) { printf( "Could not detach VG\n"); return FAIL; } if (Vend (file_id)==FAIL){ printf( "Could not end VG\n"); return FAIL; } /* Terminate access to each annotation explicitly */ if (ANendaccess (file_label_id)==FAIL|| ANendaccess (file_desc_id)==FAIL|| ANendaccess (data_label_id)==FAIL|| ANendaccess (data_desc_id)==FAIL){ printf( "Could not end AN\n"); return FAIL; } /* Terminate access to the AN interface */ if (ANend (an_id)==FAIL==FAIL){ printf( "Could not end AN\n"); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_pal * * Purpose: utility function to write a palette * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 19, 2003 * *------------------------------------------------------------------------- */ static int add_pal(const char* fname) { uint8 pal[256*3]; int i, n; /*------------------------------------------------------------------------- * define a palette, blue to red tones *------------------------------------------------------------------------- */ for ( i=0, n=0; i< 256*3; i+=3, n++) { pal[i] =n; /* red */ pal[i+1]=0; /* green */ pal[i+2]=255-n; /* blue */ } if (DFPaddpal(fname,pal)==FAIL){ printf( "Failed to write palette in <%s>\n", fname); return FAIL; } return SUCCEED; } /*------------------------------------------------------------------------- * Function: add_sd_szip * * Purpose: utility function to write with SZIPed SDSs * SD - Multifile Scientific Data Interface, * * Return: SUCCEED, FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: September 15, 2003 * *------------------------------------------------------------------------- */ static int add_sd_szip(const char *fname, /* file name */ int32 file_id, /* file ID */ int32 sd_id, /* SD interface identifier */ const char* sds_name, /* sds name */ int32 vgroup_id, /* group ID */ int32 chunk_flags, /* chunk flags */ int32 nt, /* number type */ int32 bits_per_pixel, /* szip parameter */ int32 *dim, /* dimension of the data set */ void *data ) { int32 sds_id, /* data set identifier */ sds_ref, /* reference number of the data set */ rank = 2; /* rank of the data set array */ comp_coder_t comp_type = COMP_CODE_NONE; /* compression flag */ comp_info comp_info; /* compression structure */ HDF_CHUNK_DEF chunk_def; /* chunking definitions */ int32 edges[2], /* write edges */ start[2]={0,0}; /* write start */ edges[0]=dim[0]; edges[1]=dim[1]; #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { comp_type = COMP_CODE_SZIP; comp_info.szip.pixels_per_block = 2; comp_info.szip.options_mask = SZ_EC_OPTION_MASK; comp_info.szip.options_mask |= SZ_RAW_OPTION_MASK; comp_info.szip.pixels = 0; comp_info.szip.pixels_per_scanline = 0; comp_info.szip.bits_per_pixel = 0; } else { printf("Warning: SZIP encoding not available\n"); } #else printf("Warning: SZIP compression not available\n"); #endif /* create the SDS */ sds_id = SDcreate (sd_id, sds_name, nt, rank, dim); if (sds_id < 0) { printf( "SDcreate failed for file <%s>\n",sds_name); return FAIL; } /* set chunk */ if ( (chunk_flags == HDF_CHUNK) || (chunk_flags == (HDF_CHUNK | HDF_COMP)) ) { set_chunk_def(comp_type, dim, 1, bits_per_pixel, &chunk_def); if (SDsetchunk (sds_id, chunk_def, chunk_flags)==FAIL) { printf( "Failed to set chunk for SDS <%s>\n",sds_name); goto fail; } } /* use compress without chunk-in */ else if ( chunk_flags==HDF_NONE && comp_type>COMP_CODE_NONE && comp_type\n",sds_name); goto fail; } } /* write the stored data to the data set */ if (SDwritedata (sds_id, start, NULL, edges, (VOIDP)data)==FAIL) { printf( "Failed to writer SDS <%s>\n",sds_name); goto fail; } /* obtain the reference number of the SDS using its identifier */ sds_ref = SDidtoref (sds_id); /* add the SDS to the vgroup. the tag DFTAG_NDG is used */ if (vgroup_id) { if (Vaddtagref (vgroup_id, TAG_GRP_DSET, sds_ref)==FAIL) { printf( "Failed to set ref for SDS <%s>\n",sds_name); goto fail; } } /* terminate access to the SDS */ if (SDendaccess (sds_id)==FAIL) { printf( "Failed to end SDS <%s>\n",sds_name); goto fail; } return SUCCEED; fail: SDendaccess (sds_id); return FAIL; } /*------------------------------------------------------------------------- * Function: do_file_all * * Purpose: writes all types of HDF objects * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ static int do_file_all(char* fname) { int32 vgroup1_id, /* vgroup identifier */ vgroup2_id, /* vgroup identifier */ vgroup3_id, /* vgroup identifier */ vgroup_img_id,/* vgroup identifier */ file_id, /* HDF file identifier, same for V interface */ gr_id, /* GR interface identifier */ sd_id; /* SD interface identifier */ int32 attr_n_values = 3; /* number of values in the vg attribute */ char vg_attr[3] = {'A', 'B', 'C'};/* vg attribute values*/ comp_coder_t comp_type; /* to retrieve compression type into */ int32 chunk_flags; /* Chunking flag */ comp_info comp_info; /* compression structure */ /*------------------------------------------------------------------------- * create a file with SDSs, images , groups and vdatas *------------------------------------------------------------------------- */ /* create a HDF file */ if ((file_id = Hopen (fname, DFACC_CREATE, (int16)0))<0) { printf("Error: Could not create file <%s>\n",fname); return FAIL; } /* initialize the SD interface */ if ((sd_id = SDstart (fname, DFACC_RDWR))== FAIL) { printf("Error: Could not start SD interface\n"); return FAIL; } /* initialize the GR interface */ if ((gr_id = GRstart (file_id))== FAIL) { printf("Error: Could not start GR interface\n"); return FAIL; } /* initialize the V interface */ if (Vstart (file_id)==FAIL) { printf( "Could not start VG\n"); return FAIL; } /*------------------------------------------------------------------------- * create groups *------------------------------------------------------------------------- */ vgroup1_id = Vattach (file_id, -1, "w"); if (Vsetname (vgroup1_id, "g1")==FAIL) { printf( "Could not name group\n"); goto out; } /* attach an attribute to the vgroup */ if (Vsetattr (vgroup1_id,"Myattr",DFNT_CHAR,attr_n_values,vg_attr)==FAIL) { printf( "Could set group attributes\n"); goto out; } /* create the second vgroup */ vgroup2_id = Vattach (file_id, -1, "w"); if (Vsetname (vgroup2_id, "g2")==FAIL) { printf( "Could not name group\n"); goto out; } /* create the 3rd vgroup */ vgroup3_id = Vattach (file_id, -1, "w"); if (Vsetname (vgroup3_id, "g3")==FAIL) { printf( "Could not name group\n"); goto out; } /* insert the second vgroup into the first vgroup using its identifier */ if (Vinsert (vgroup1_id, vgroup2_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } /* insert the 3rd vgroup into the 2nd vgroup using its identifier */ if (Vinsert (vgroup2_id, vgroup3_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } /* create the 4th vgroup, for images */ vgroup_img_id = Vattach (file_id, -1, "w"); if (Vsetname (vgroup_img_id, "images")==FAIL) { printf( "Could not name group\n"); goto out; } /*------------------------------------------------------------------------- * add some SDSs to the file * duplicates are inserted in the groups "g1", "g2", "g3" and root *------------------------------------------------------------------------- */ /* add non chunked, non compressed sds */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_NONE; if (add_sd(fname,file_id,sd_id,"dset1",vgroup1_id,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd(fname,file_id,sd_id,"dset2",vgroup2_id,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd(fname,file_id,sd_id,"dset3",vgroup3_id,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd(fname,file_id,sd_id,"dset4",0,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd(fname,file_id,sd_id,"dset5",0,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd(fname,file_id,sd_id,"dset6",0,chunk_flags,comp_type,NULL)<0) goto out; if (add_sd3d(fname,file_id,sd_id,"dset7",0,chunk_flags,comp_type,NULL)<0) goto out; /*------------------------------------------------------------------------- * add some chunked/compressd SDS to the file * Chunked -> flags = HDF_CHUNK * Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP * Non-chunked -> flags = HDF_NONE *------------------------------------------------------------------------- */ /* add a chunked, non compressed sds */ chunk_flags = HDF_CHUNK; comp_type = COMP_CODE_NONE; if (add_sd(fname,file_id,sd_id,"dset_chunk",0,chunk_flags,comp_type,NULL)<0) goto out; /* add a chunked-compressed sds with SDsetchunk */ chunk_flags = HDF_CHUNK | HDF_COMP; comp_type = COMP_CODE_DEFLATE; if (add_sd(fname,file_id,sd_id,"dset_chunk_comp",0,chunk_flags,comp_type,&comp_info)<0) goto out; /*------------------------------------------------------------------------- * GZIP *------------------------------------------------------------------------- */ /* add some non chunked, compressed sds */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_DEFLATE; if (add_sd(fname,file_id,sd_id,"dset_gzip",0,chunk_flags,comp_type,&comp_info)<0) goto out; /*------------------------------------------------------------------------- * add an empty sds *------------------------------------------------------------------------- */ if (add_empty_sd(sd_id,"dset_empty")<0) goto out; /*------------------------------------------------------------------------- * add 2 SDSs with unlimited dimensions, one written *------------------------------------------------------------------------- */ if (add_unl_sd(sd_id,"dset_unl", 0)<0) goto out; if (add_unl_sd(sd_id,"dset_unlw", 1)<0) goto out; /*------------------------------------------------------------------------- * RLE *------------------------------------------------------------------------- */ /* add some non chunked, compressed sds */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_RLE; if (add_sd(fname,file_id,sd_id,"dset_rle",0,chunk_flags,comp_type,&comp_info)<0) goto out; /*------------------------------------------------------------------------- * HUFF *------------------------------------------------------------------------- */ /* add some non chunked, compressed sds */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_SKPHUFF; if (add_sd(fname,file_id,sd_id,"dset_huff",0,chunk_flags,comp_type,&comp_info)<0) goto out; #if defined (H4_HAVE_LIBSZ) /*------------------------------------------------------------------------- * SZIP *------------------------------------------------------------------------- */ if (SZ_encoder_enabled()) { chunk_flags = HDF_NONE; comp_type = COMP_CODE_SZIP; if (add_sd(fname,file_id,sd_id,"dset_szip",0,chunk_flags,comp_type,&comp_info)<0) goto out; { int i, j; { int32 buf[YD1][XD1]; int32 dim[2]={YD1,XD1}; int32 bpp=32; for (j = 0; j < YD1; j++) { for (i = 0; i < XD1; i++) buf[j][i] = (int32) (i + j) + 1; } if (add_sd_szip(fname,file_id,sd_id,"dset32szip",0,HDF_NONE,DFNT_INT32,bpp,dim,buf)<0) return FAIL; } } } #endif /*------------------------------------------------------------------------- * add some RIS24 images to the file *------------------------------------------------------------------------- */ /* Pixel Interlacing */ if (add_r24(DATA_FILE2,fname,file_id,DFIL_PIXEL,vgroup_img_id)<0) goto out; /* Scan Plane Interlacing */ if (add_r24(DATA_FILE3,fname,file_id,DFIL_PLANE,vgroup_img_id)<0) goto out; /*------------------------------------------------------------------------- * add some RIS8 images to the file *------------------------------------------------------------------------- */ if (add_r8(DATA_FILE1,fname,file_id,vgroup_img_id)<0) goto out; /*------------------------------------------------------------------------- * add some GR images to the file with compression/chunking *------------------------------------------------------------------------- */ /*------------------------------------------------------------------------- * no compression *------------------------------------------------------------------------- */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_NONE; if (add_gr("gr_none",file_id,gr_id,0,chunk_flags,comp_type,&comp_info)<0) goto out; /*------------------------------------------------------------------------- * GZIP *------------------------------------------------------------------------- */ chunk_flags = HDF_NONE; comp_type = COMP_CODE_DEFLATE; if (add_gr("gr_gzip",file_id,gr_id,0,chunk_flags,comp_type,&comp_info)<0) goto out; #if defined (H4_GR_SZIP) /* not supported for GR */ /*------------------------------------------------------------------------- * SZIP *------------------------------------------------------------------------- */ #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { chunk_flags = HDF_NONE; comp_type = COMP_CODE_SZIP; if (add_gr("gr_szip",file_id,gr_id,0,chunk_flags,comp_type,&comp_info)<0) goto out; } #endif #endif /*------------------------------------------------------------------------- * add some GR realistic images to the file * realistic data is read from ASCII files *------------------------------------------------------------------------- */ if (add_gr_ffile(DATA_FILE1,gr_id,"gr_8bit",0,file_id,0)<0) goto out; if (add_gr_ffile(DATA_FILE2,gr_id,"gr_24bit",0,file_id,0)<0) goto out; /*------------------------------------------------------------------------- * add some VS to the file * duplicates are inserted in the groups "g1", "g2", "g3" and root *------------------------------------------------------------------------- */ if (add_vs("vdata1",file_id,vgroup1_id)<0) goto out; if (add_vs("vdata2",file_id,vgroup2_id)<0) goto out; if (add_vs("vdata3",file_id,vgroup3_id)<0) goto out; if (add_vs("vdata4",file_id,0)<0) goto out; /*------------------------------------------------------------------------- * add some global attributes to the file *------------------------------------------------------------------------- */ if (add_glb_attrs(fname,file_id,sd_id,gr_id)<0) goto out; /*------------------------------------------------------------------------- * add annotations to the file *------------------------------------------------------------------------- */ if (add_file_an(file_id)<0) goto out; /*------------------------------------------------------------------------- * add a palette to the file *------------------------------------------------------------------------- */ if (add_pal(fname)<0) goto out; /*------------------------------------------------------------------------- * close *------------------------------------------------------------------------- */ /* terminate access to the vgroups */ if (Vdetach (vgroup1_id)==FAIL || Vdetach (vgroup2_id)==FAIL || Vdetach (vgroup3_id)==FAIL || Vdetach (vgroup_img_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the V interface */ if (Vend (file_id)==FAIL) { printf( "Could not end VG\n"); goto out; } /* terminate access to the GR interface */ if (GRend (gr_id)==FAIL) { printf("Error: Could not close GR interface\n"); goto out; } /* terminate access to the SD interface */ if (SDend (sd_id)==FAIL) { printf("Error: Could not close SD interface\n"); goto out; } /* close the HDF file */ if (Hclose (file_id)==FAIL) { printf( "Could not close file\n"); return FAIL; } return SUCCEED; out: /* close interfaces */ Vend (file_id); GRend (gr_id); SDend (sd_id); Hclose (file_id); return FAIL; } /*------------------------------------------------------------------------- * write a big file for hyperslab reading *------------------------------------------------------------------------- */ static int do_file_hyperslab(char* fname) { int32 sd_id; /* SD interface identifier */ int32 sds_id; /* SDS identifier */ int32 dims[2]; /* sizes of the SDS dimensions */ int32 start[2]; /* start location to write */ int32 edges[2]; /* number of elements to write */ int32 sds_idx; int32 rank; uint8 array_data[DIM0][DIM1]; uint8 append_data[DIM1]; intn i, j, n; /* Create a file and initiate the SD interface. */ if ((sd_id = SDstart(fname, DFACC_CREATE))==FAIL) goto error; /* Define the rank and dimensions of the data set to be created. */ rank = 2; dims[0] = SD_UNLIMITED; dims[1] = DIM1; /* Create 2 data sets */ if ((sds_id = SDcreate(sd_id, "data1", DFNT_UINT8, rank, dims))==FAIL) goto error; /* initial values */ for (j = 0; j < DIM0; j++) { for (i = 0; i < DIM1; i++) array_data[j][i] = (i + j) + 1; } /* define the location, pattern, and size of the data set */ for (i = 0; i < rank; i++) { start[i] = 0; } edges[0] = DIM0; /* 10 */ edges[1] = DIM1; /* 5 */ if ( SDwritedata(sds_id, start, NULL, edges, (VOIDP)array_data)==FAIL) goto error; /* terminate access to the datasets and SD interface */ if ( SDendaccess(sds_id)==FAIL) goto error; if ( SDend(sd_id)==FAIL) goto error; /* append data */ if (( sd_id = SDstart(fname, DFACC_WRITE))==FAIL) goto error; if ((sds_idx = SDnametoindex (sd_id, "data1"))==FAIL) goto error; if ((sds_id = SDselect (sd_id, sds_idx))==FAIL) goto error; /* store array values to be appended */ for (i = 0; i < DIM1; i++) append_data[i] = i + 1; /* define the location of the append */ for (n = 0; n < ADD_ROWS; n++) { start[0] = DIM0 + n; /* 10 */ start[1] = 0; edges[0] = 1; /* 1 row at a time */ edges[1] = DIM1; /* 5 elements */ /* append data to file */ if ( SDwritedata (sds_id, start, NULL, edges, (VOIDP) append_data)==FAIL) goto error; } /* terminate access */ if ( SDendaccess (sds_id)==FAIL) goto error; if ( SDend (sd_id)==FAIL) goto error; return SUCCEED; error: printf("Error...Exiting...\n"); return FAIL; } /*------------------------------------------------------------------------- * write groups * a circular reference * * g0 -----> g1 * | | ^ * | | | * | \/ | * |-----> g1.1 * *------------------------------------------------------------------------- */ static int do_file_groups(char* name) { int32 vg0_id, /* vgroup identifier */ vg1_id, /* vgroup identifier */ vg2_id, /* vgroup identifier */ file1_id; /* HDF file identifier */ /* create a HDF file */ if ((file1_id = Hopen (name, DFACC_CREATE, (int16)0))<0) { printf("Error: Could not create file <%s>\n",name); return FAIL; } /* initialize the V interface */ if (Vstart (file1_id)==FAIL) { printf( "Could not start VG\n"); return FAIL; } /* create a vgroup */ vg0_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg0_id, "g0")==FAIL) { printf( "Could not name group\n"); goto out; } /* create the second vgroup */ vg1_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg1_id, "g1")==FAIL) { printf( "Could not name group\n"); goto out; } /* create the third vgroup */ vg2_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg2_id, "g1.1")==FAIL) { printf( "Could not name group\n"); goto out; } if (Vinsert (vg0_id, vg1_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg0_id, vg2_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg1_id, vg2_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg2_id, vg1_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg0_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg1_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg2_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the V interface */ if (Vend (file1_id)==FAIL) { printf( "Could not end VG\n"); goto out; } /* close the HDF file */ if (Hclose (file1_id)==FAIL) { printf( "Could not close file\n"); return FAIL; } return SUCCEED; out: printf("Error...Exiting...\n"); return FAIL; } /*------------------------------------------------------------------------- * Function: test_files * * Purpose: call hrepack and hdiff on the generated files * 1) zip HREPACK_FILE1 with some compression/chunking options * 2) use the hdiff utility to compare the input and output file; it returns RET==0 * if the high-level objects have the same data * 3) use the API functions SD(GR)getcompress, SD(GR)getchunk to verify * the compression/chunking input on the output file * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ static int test_files(void) { options_t options; /* for hrepack */ diff_opt_t fspec; /* for hdiff */ int verbose=0; int32 in_chunk_lengths[H4_MAX_VAR_DIMS]; /* initialize options for hdiff */ memset(&fspec,0,sizeof(diff_opt_t)); fspec.ga = 1; /* compare global attributes */ fspec.sa = 1; /* compare SD local attributes */ fspec.sd = 1; /* compare SD data */ fspec.vd = 1; /* compare Vdata */ fspec.gr = 1; /* compare GR data */ in_chunk_lengths[0]=10; in_chunk_lengths[1]=8; in_chunk_lengths[2]=6; /*------------------------------------------------------------------------- * test1: * HUFF *------------------------------------------------------------------------- */ TESTING("hrepack -t dset7:HUFF 1 -c dset7:10x8x6"); hrepack_init (&options,verbose); hrepack_addcomp("dset7:HUFF 1",&options); hrepack_addchunk("dset7:10x8x6",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset7",COMP_CODE_SKPHUFF, 1) == -1) goto out; if ( sds_verifiy_chunk("dset7",HDF_CHUNK|HDF_COMP,3,in_chunk_lengths) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test2: * RLE *------------------------------------------------------------------------- */ TESTING("hrepack -t dset4:RLE -c dset4:10x8"); hrepack_init (&options,verbose); hrepack_addcomp("dset4:RLE",&options); hrepack_addchunk("dset4:10x8",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset4",COMP_CODE_RLE, 0) == -1) goto out; if ( sds_verifiy_chunk("dset4",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test3: * SDS SELECTED with GZIP, chunking SELECTED *------------------------------------------------------------------------- */ TESTING("hrepack -t dset4:GZIP 6 -c dset4:10x8"); hrepack_init (&options,verbose); hrepack_addcomp("dset4:GZIP 6",&options); hrepack_addchunk("dset4:10x8",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset4",COMP_CODE_DEFLATE, 6) == -1) goto out; if ( sds_verifiy_chunk("dset4",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test4: * SDS SELECTED with SZIP, chunking SELECTED *------------------------------------------------------------------------- */ TESTING("hrepack -t dset4:SZIP 8,EC -c dset4:10x8"); #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { hrepack_init (&options,verbose); hrepack_addcomp("dset4:SZIP 8,EC",&options); hrepack_addchunk("dset4:10x8",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset4",COMP_CODE_SZIP, 0) == -1) goto out; if ( sds_verifiy_chunk("dset4",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; PASSED(); } else { /* no szip encoder */ SKIPPED(); } #else /* no szip at all */ SKIPPED(); #endif /*------------------------------------------------------------------------- * test4: * SDS SELECTED with NONE, chunking SELECTED NONE *------------------------------------------------------------------------- */ TESTING("hrepack -t dset_chunk:NONE -c dset_chunk:NONE"); hrepack_init (&options,verbose); hrepack_addcomp("dset_chunk_comp:NONE",&options); hrepack_addcomp("dset_chunk:NONE",&options); hrepack_addchunk("dset_chunk_comp:NONE",&options); hrepack_addchunk("dset_chunk:NONE",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset_chunk_comp",COMP_CODE_NONE, 0) == -1) goto out; if ( sds_verifiy_comp("dset_chunk",COMP_CODE_NONE, 0) == -1) goto out; if ( sds_verifiy_chunk("dset_chunk_comp",HDF_NONE,0,0) == -1) goto out; if ( sds_verifiy_chunk("dset_chunk",HDF_NONE,0,0) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test5: * SDS SELECTED with all types, chunking SELECTED *------------------------------------------------------------------------- */ TESTING("hrepack -t dset4:GZIP 9 -t dset5:RLE -c dset4:10x8"); hrepack_init (&options,verbose); hrepack_addcomp("dset4:GZIP 9",&options); hrepack_addcomp("dset5:RLE",&options); hrepack_addcomp("dset6:HUFF 2",&options); #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { hrepack_addcomp("dset7:SZIP 8,EC",&options); } #endif hrepack_addchunk("dset4:10x8",&options); hrepack_addchunk("dset5:10x8",&options); hrepack_addchunk("dset6:10x8",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset4",COMP_CODE_DEFLATE, 9) == -1) goto out; if ( sds_verifiy_comp("dset5",COMP_CODE_RLE, 0) == -1) goto out; if ( sds_verifiy_comp("dset6",COMP_CODE_SKPHUFF, 2) == -1) goto out; #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { if ( sds_verifiy_comp("dset7",COMP_CODE_SZIP, 0) == -1) goto out; } #endif if ( sds_verifiy_chunk("dset4",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; if ( sds_verifiy_chunk("dset5",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; if ( sds_verifiy_chunk("dset6",HDF_CHUNK|HDF_COMP,2,in_chunk_lengths) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test6: * SDS SELECTED with all types, no chunking *------------------------------------------------------------------------- */ TESTING("hrepack -t dset4:GZIP 9 -t dset5:RLE -t dset6:HUFF 2"); hrepack_init (&options,verbose); hrepack_addcomp("dset4:GZIP 9",&options); hrepack_addcomp("dset5:RLE",&options); hrepack_addcomp("dset6:HUFF 2",&options); #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { hrepack_addcomp("dset7:SZIP 4,EC",&options); } #endif if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp("dset4",COMP_CODE_DEFLATE, 9) == -1) goto out; if ( sds_verifiy_comp("dset5",COMP_CODE_RLE, 0) == -1) goto out; if ( sds_verifiy_comp("dset6",COMP_CODE_SKPHUFF, 2) == -1) goto out; #if defined (H4_HAVE_LIBSZ) if (SZ_encoder_enabled()) { if ( sds_verifiy_comp("dset7",COMP_CODE_SZIP, 0) == -1) goto out; } #endif PASSED(); /*------------------------------------------------------------------------- * test7: * compressing SDS ALL, chunking SELECTED NONE *------------------------------------------------------------------------- */ TESTING("hrepack -t *:GZIP 1 -c dset_chunk:NONE"); hrepack_init (&options,verbose); hrepack_addcomp("*:GZIP 1",&options); hrepack_addchunk("dset_chunk_comp:NONE",&options); hrepack_addchunk("dset_chunk:NONE",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp_all(COMP_CODE_DEFLATE, 1) == -1) goto out; if ( sds_verifiy_chunk("dset_chunk_comp",HDF_NONE,0,0) == -1) goto out; if ( sds_verifiy_chunk("dset_chunk",HDF_NONE,0,0) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test8: * no compressing, chunking ALL *------------------------------------------------------------------------- */ TESTING("hrepack -c *:10x8"); hrepack_init (&options,verbose); hrepack_addchunk("*:10x8",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_chunk_all(HDF_CHUNK,2,in_chunk_lengths,"dset7") == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test9: * compressing SDS ALL with GZIP *------------------------------------------------------------------------- */ TESTING("hrepack -t *:GZIP 1"); hrepack_init (&options,verbose); hrepack_addcomp("*:GZIP 1",&options); if (hrepack_main(HREPACK_FILE1,HREPACK_FILE1_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR); if (hdiff(HREPACK_FILE1,HREPACK_FILE1_OUT,&fspec) > 0 || fspec.err_stat) goto out; if ( sds_verifiy_comp_all(COMP_CODE_DEFLATE, 1) == -1) goto out; PASSED(); /*------------------------------------------------------------------------- * test10: * repack a big file using hyperslab reading/writing *------------------------------------------------------------------------- */ TESTING("hyperslab repacking"); hrepack_init (&options,verbose); if (hrepack_main(HREPACK_FILE2,HREPACK_FILE2_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR2); if (hdiff(HREPACK_FILE2,HREPACK_FILE2_OUT,&fspec) > 0 || fspec.err_stat) goto out; PASSED(); /*------------------------------------------------------------------------- * test11: * repack a file with vgroups *------------------------------------------------------------------------- */ TESTING("vgroups dependencies"); hrepack_init (&options,verbose); if (hrepack_main(HREPACK_FILE3,HREPACK_FILE3_OUT,&options)<0) goto out; hrepack_end (&options); PASSED(); TESTING(HDIFF_TSTSTR3); if (hdiff(HREPACK_FILE3,HREPACK_FILE3_OUT,&fspec) > 0 || fspec.err_stat) goto out; if (vg_verifygrpdep(HREPACK_FILE3,HREPACK_FILE3_OUT) != 0 ) goto out; PASSED(); return SUCCEED; out: H4_FAILED(); return FAIL; } /*------------------------------------------------------------------------- * Function: generate_files * * Purpose: writes several HDF objects to the files * HREPACK_FILE1 * HREPACK_FILE2 * HREPACK_FILE3 * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ static int generate_files(void) { TESTING("generating files"); if (do_file_all(HREPACK_FILE1)<0) return FAIL; if (do_file_hyperslab(HREPACK_FILE2)<0) return FAIL; if (do_file_groups(HREPACK_FILE3)<0) return FAIL; PASSED(); return SUCCEED; } /*------------------------------------------------------------------------- * Function: main * * Purpose: test program for hrepack * * A)This program writes several HDF objects to the file HREPACK_FILE1 * The image data consists of realistic data read from the files DATA_FILE1 * (8bit image) , DATA_FILE2 (24bit image, pixel interlace) and * DATA_FILE3 (24bit image, plane interlace) * The objects written are * 1) groups * 2) images * 3) datasets * 4) vdatas with attributes and field attributes * 5) global and local attributes * 6) labels and annotations * * B) Then several calls are made to hrepack, in each call the HREPACK_FILE1_OUT is * generated * * C) In each test the hdiff utility is called to compare the files * HREPACK_FILE1 and HREPACK_FILE1_OUT * * D) In each test the verifiy_comp_chunk function is called to compare * the input and output compression and chunking parameters * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 3, 2003 * * Modifications: * July 7, 2007. Add test for hyperslab repacking in HREPACK_FILE2 * September 12, 2007. Add test for duplicate vgroup insertions in HREPACK_FILE3 * *------------------------------------------------------------------------- */ int main(void) { if ( generate_files() < 0 ) return 1; if ( test_files() < 0 ) return 1; return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_vg.c0000644000000000000000000000511712421456623016070 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #include "mfhdf.h" #include "hrepack_vg.h" #include "hrepack_utils.h" #include "hrepack_an.h" /*------------------------------------------------------------------------- * Function: copy_vgroup_attrs * * Purpose: copy VG attributes * * Return: FAIL, SUCCEED * *------------------------------------------------------------------------- */ int copy_vgroup_attrs(int32 vg_in, int32 vg_out, char *path,options_t *options) { int n_attrs; int32 data_type, size, n_values; char attr_name[H4_MAX_NC_NAME]; int i; char *buf=NULL; if ( options->trip==0 ) { return 1; } /* Get the number of attributes attached to this vgroup. */ if((n_attrs = Vnattrs2 (vg_in))==FAIL) { printf( "Failed to get attributes for <%s>\n", path); return-1; } for (i = 0; i < n_attrs; i++) { if((Vattrinfo2(vg_in, i, attr_name, &data_type, &n_values, &size, NULL, NULL))==FAIL) { printf( "Failed to get attribute %d of <%s>\n", i, path); continue; } if ((buf = (char *)malloc( (size_t) (size * n_values) ))==NULL ) { printf( "Failed to get memory for attribute %d of <%s>\n", i, path); continue; } if((Vgetattr2 (vg_in, i, buf))==FAIL){ printf( "Failed to get attribute %d of <%s>\n", i, path); if (buf) free(buf); continue; } if((Vsetattr(vg_out, attr_name, data_type, n_values, buf))==FAIL){ printf( "Failed to set attribute %d of <%s>\n", i, path); } if (buf) free(buf); } return 1; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_an.h0000644000000000000000000000370112421456623016054 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_AN_H_ #define REPACK_AN_H_ #include "hrepack.h" #ifdef __cplusplus extern "C" { #endif int copy_an(int32 infile_id,int32 outfile_id, int32 ref_in, int32 tag_in, int32 ref_out, int32 tag_out, char *path, options_t *options); int copy_vg_an(int32 infile_id, int32 outfile_id, int32 vgroup_id, int32 vgroup_id_out, char *path, options_t *options); int copy_vs_an(int32 infile_id, int32 outfile_id, int32 vdata_id, int32 vdata_id_out, char *path, options_t *options); int copy_an_data(int32 infile_id, int32 outfile_id, int32 ref_in, int32 tag_in, int32 ref_out, int32 tag_out, ann_type type, char *path, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_AN_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/info.txt0000644000000000000000000000004112421456623015276 0ustar -t "dset4:GZIP 6" -c "dset4:2x2" libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_dim.h0000644000000000000000000000315312421456623016230 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef REPACK_DIM_H_ #define REPACK_DIM_H_ #include "hrepack.h" /* dimension SDS */ typedef struct dim_name_t { int32 ref; /* reference */ char dim_name[H4_MAX_NC_NAME]; /* name */ } dim_name_t; /* table for dim_name_t */ typedef struct dim_table_t { int size; int nobjs; dim_name_t *objs; } dim_table_t; #ifdef __cplusplus extern "C" { #endif void dim_table_add(dim_table_t *dim_tbl, int ref, char* name); void dim_table_init( dim_table_t **tbl ); void dim_table_free( dim_table_t *dim_tbl ); void match_dim(int32 sd_in, int32 sd_out, dim_table_t *dt1, dim_table_t *dt2, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_DIM_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_vg.h0000644000000000000000000000415112421456623016072 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef REPACK_VG_H_ #define REPACK_VG_H_ #include "hrepack.h" #include "hrepack_lsttable.h" #include "hrepack_dim.h" #ifdef __cplusplus extern "C" { #endif int copy_vgroup_attrs(int32 vg_in, int32 vg_out, char *path, options_t *options); int vgroup_insert(int32 infile_id, int32 outfile_id, int32 sd_id, /* SD interface identifier */ int32 sd_out, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ int32 gr_out, /* GR interface identifier */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ int32* in_tags, /* tag list for parent group */ int32* in_refs, /* ref list for parent group */ int npairs, /* number tag/ref pairs for parent group */ list_table_t *list_tbl, dim_table_t *td1, dim_table_t *td2, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_VG_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_vs.c0000644000000000000000000002533012421456623016103 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #include "mfhdf.h" #include "hrepack_vs.h" #include "hrepack_utils.h" #include "hrepack_an.h" /*------------------------------------------------------------------------- * Function: copy_vs * * Purpose: copy a VS from input file to output file * * Return: 0, -1 for error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 11, 2003 * *------------------------------------------------------------------------- */ int copy_vs( int32 infile_id, int32 outfile_id, int32 tag, /* tag of input VS */ int32 ref, /* ref of input VS */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ options_t *options, list_table_t *list_tbl, int is_lone) { int32 vdata_id, /* vdata identifier */ vdata_out, /* vdata identifier */ vdata_ref, /* reference number of the vdata */ n_records, /* number of records */ vdata_size, interlace_mode, field_type, field_order; int n_fields, n_attrs; char vdata_name [VSNAMELENMAX], vdata_class[VSNAMELENMAX]; char fieldname_list[VSFIELDMAX*FIELDNAMELENMAX]; char *path=NULL; char *field_name; uint8 *buf=NULL; int i, j, ret=1; /*------------------------------------------------------------------------- * attach the vdata, gets its name and class *------------------------------------------------------------------------- */ if ((vdata_id = VSattach (infile_id, ref, "r")) == FAIL ){ printf( "Failed to attach vdata ref %ld\n", ref); return-1; } if (VSgetname (vdata_id, vdata_name)==FAIL){ printf( "Failed to name for vdata ref %ld\n", ref); return-1; } if (VSgetclass (vdata_id, vdata_class)==FAIL){ printf( "Failed to name for vdata ref %ld\n", ref); return-1; } /* ignore reserved HDF groups/vdatas; they are lone ones */ if( is_lone==1 && vdata_class != NULL) { if( is_reserved(vdata_class)){ if (VSdetach (vdata_id)== FAIL ) printf( "Failed to detach vdata <%s>\n", path_name); return 0; } } /* initialize path */ path=get_path(path_name,vdata_name); /* add object to table */ list_table_add(list_tbl,tag,ref,path); if (options->verbose) { printf(PFORMAT,"","","",path); } /* check inspection mode */ if ( options->trip==0 ) { if (VSdetach (vdata_id)==FAIL) printf( "Failed to detach vdata <%s>\n", path_name); if (path) free(path); return 0; } /*------------------------------------------------------------------------- * get vdata info *------------------------------------------------------------------------- */ if (VSinquire(vdata_id, &n_records, &interlace_mode, fieldname_list, &vdata_size, vdata_name) == FAIL) { printf( "Failed to get info for vdata ref %ld\n", ref); if (path) free(path); return-1; } /*------------------------------------------------------------------------- * create the VS in the output file. the vdata reference number is set * to -1 for creating and the access mode is "w" for writing *------------------------------------------------------------------------- */ if ((vdata_out = VSattach (outfile_id, -1, "w")) == FAIL) { printf( "Failed to create new VS <%s>\n", path); VSdetach (vdata_id); if (path) free(path); return -1; } if (VSsetname (vdata_out, vdata_name)== FAIL) { printf( "Failed to set name for new VS <%s>\n", path); ret=-1; goto out; } if (VSsetclass(vdata_out, vdata_class)== FAIL) { printf( "Failed to set class for new VS <%s>\n", path); ret=-1; goto out; } if (VSsetinterlace(vdata_out, interlace_mode) == FAIL) { printf( "Failed to set interlace mode for output vdata\n"); ret=-1; goto out; } /*------------------------------------------------------------------------- * define the fields for vdata_out *------------------------------------------------------------------------- */ if ((n_fields = VFnfields(vdata_id)) == FAIL ){ printf( "Failed getting fields for VS <%s>\n", path); ret=-1; goto out; } for (i = 0; i < n_fields; i++) { field_name = VFfieldname(vdata_id, i); field_type = VFfieldtype(vdata_id, i); field_order = VFfieldorder(vdata_id, i); if (VSfdefine(vdata_out, field_name, field_type, field_order) == FAIL) { printf( "Error: cannot define fields for VS <%s>\n", path); ret=-1; goto out; } } /* Set fields */ if (VSsetfields(vdata_out, fieldname_list)==FAIL) { printf( "Error: cannot define fields for VS <%s>\n", path); ret=-1; goto out; } /*------------------------------------------------------------------------- * read, write vdata *------------------------------------------------------------------------- */ /* Set fields for reading */ if (VSsetfields(vdata_id, fieldname_list)== FAIL) { printf( "Error: cannot define fields for VS <%s>\n", path); ret=-1; goto out; } if (n_records>0) { if ((buf = (uint8 *)malloc( (size_t)(n_records * vdata_size))) == NULL ){ printf( "Failed to get memory for new VS <%s>\n", path); ret=-1; goto out; } if (VSread(vdata_id, buf, n_records, interlace_mode) == FAIL) { printf( "Error reading vdata <%s>\n", path); ret=-1; goto out; } if (VSwrite(vdata_out, buf, n_records, interlace_mode) == FAIL) { printf( "Error writing vdata <%s>\n", path); ret=-1; goto out; } } /*------------------------------------------------------------------------- * read, write attributes *------------------------------------------------------------------------- */ if ((n_attrs = VSfnattrs( vdata_id, -1 )) == FAIL ){ printf( "Failed getting attributes for VS <%s>\n", path); ret=-1; goto out; } for (i = 0; i < n_attrs; i++) { copy_vdata_attribute(vdata_id, vdata_out, -1, i); } /*------------------------------------------------------------------------- * read, write field attributes *------------------------------------------------------------------------- */ for (i = 0; i < n_fields; i++) { if ((n_attrs = VSfnattrs(vdata_id, i)) == FAIL ){ printf( "Failed getting fields for VS <%s>\n", path); ret=-1; goto out; } for (j = 0; j < n_attrs; j++) { copy_vdata_attribute(vdata_id, vdata_out, i, j); } } /*------------------------------------------------------------------------- * add VS to group, if needed *------------------------------------------------------------------------- */ if (vgroup_id_out_par) { /* obtain the reference number of the new VS */ if ((vdata_ref=VSQueryref(vdata_out)) == 0) { printf( "Failed to get new VS reference in <%s>\n", path); } /* add the VS to the vgroup. the INPUT TAG is used */ if (Vaddtagref (vgroup_id_out_par, tag, vdata_ref)== FAIL) { printf( "Failed to add new VS to group <%s>\n", path); } } /*------------------------------------------------------------------------- * copy ANs *------------------------------------------------------------------------- */ if (copy_vs_an(infile_id,outfile_id,vdata_id,vdata_out,path,options)<0) { ret=-1; goto out; } out: /* terminate access to the VSs */ if (VSdetach (vdata_id)==FAIL|| VSdetach (vdata_out)==FAIL){ printf( "Could not detach VG in <%s>\n", path); } if (path) free(path); if (buf) free(buf); return ret; } /*------------------------------------------------------------------------- * Function: copy_vdata_attribute * * Purpose: copy VS attributes from input file to output file * * Return: 1, for success, -1 for error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 28, 2003 * *------------------------------------------------------------------------- */ int copy_vdata_attribute(int32 in, int32 out, int32 findex, intn attrindex) { char attr_name[H4_MAX_NC_NAME]; int32 n_values, attr_size, attr_type; VOIDP *values=NULL; /* Get attribute information */ VSattrinfo(in, findex, attrindex, attr_name, &attr_type, &n_values, &attr_size); /* Allocate space for attribute values */ if ((values = (VOIDP)malloc((size_t)(attr_size * n_values))) == NULL) { printf( "Cannot allocate %ld values of size %ld for attribute %s", n_values, attr_size, attr_name); return-1; } /* Read attribute from input object */ if (VSgetattr(in, findex, attrindex, values) == FAIL) { printf( "Cannot read attribute %s\n", attr_name); if (values) free(values); return-1; } /* Write attribute to output object */ if (VSsetattr(out, findex, attr_name, attr_type, n_values, values) == FAIL) { printf( "Cannot write attribute %s\n", attr_name); if (values) free(values); return-1; } if (values) free(values); return 1; } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/image8.txt0000644000000000000000000112555212421456623015535 0ustar components 1 height 400 width 300 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12 8 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 61 52 39 25 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 86 77 65 48 16 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 108 106 104 99 88 48 23 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 109 107 106 106 105 98 60 26 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 107 105 104 104 105 105 100 73 37 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 108 105 104 104 105 105 104 93 69 29 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 109 105 103 103 104 106 106 103 89 59 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 105 103 103 104 106 107 106 100 86 29 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 113 105 102 101 102 105 107 108 106 100 55 20 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 107 102 101 100 101 104 107 108 107 88 42 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 118 109 103 100 99 100 102 105 108 108 99 63 30 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 119 111 104 100 97 100 101 103 106 109 105 82 48 17 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 3 3 4 5 6 7 7 8 9 9 9 9 9 8 7 7 6 4 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 119 113 106 100 97 100 101 102 104 108 108 95 65 30 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 4 6 7 9 11 13 16 18 20 22 24 26 27 27 28 28 27 25 24 22 20 16 13 11 8 6 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 119 115 109 102 97 100 103 104 104 106 108 103 79 46 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 4 6 9 12 17 21 25 30 34 40 44 48 52 55 58 60 61 62 62 60 58 56 52 48 41 35 29 23 18 11 7 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 114 111 106 99 97 104 106 106 106 107 106 91 65 30 7 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 6 9 13 20 26 33 41 49 59 66 74 80 87 94 98 102 106 109 112 113 114 115 115 115 114 112 109 105 98 91 82 72 61 46 36 26 18 12 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 109 111 110 107 103 97 104 107 108 107 107 107 97 77 44 16 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 6 11 17 24 31 40 52 62 71 79 87 95 100 104 107 110 113 115 117 119 120 121 122 123 124 124 125 125 124 124 123 120 118 113 108 101 87 75 62 49 36 21 13 7 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 102 104 106 107 106 98 101 106 109 108 108 107 101 85 56 27 14 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 6 10 15 22 33 43 53 64 74 85 93 99 104 109 113 115 117 119 120 121 122 123 124 124 125 126 126 127 128 128 129 129 129 129 129 129 127 125 122 115 106 96 84 70 50 37 25 16 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 95 97 101 104 106 100 99 104 109 110 108 108 104 92 67 38 23 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 6 12 18 27 36 48 63 75 85 95 103 110 113 116 117 118 119 120 120 121 121 122 122 122 123 123 124 124 125 126 126 127 128 129 129 130 130 130 131 131 130 129 127 122 114 104 85 69 53 38 25 11 6 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 90 92 95 99 105 105 98 102 108 111 110 109 106 98 79 48 33 19 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 10 17 29 41 55 69 83 99 107 112 115 116 117 118 118 119 119 120 120 120 120 120 119 119 119 119 119 119 119 120 121 122 123 124 126 127 128 129 130 131 131 131 131 131 131 129 128 120 108 91 73 53 31 18 10 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 89 90 93 96 99 105 100 98 101 110 111 110 108 101 85 68 54 37 21 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 9 16 26 38 52 74 88 100 109 114 115 116 117 117 118 118 117 117 115 113 111 110 109 108 108 108 109 109 110 110 111 112 113 114 115 116 117 118 119 121 123 124 126 128 129 131 131 131 131 132 131 130 127 120 108 83 62 43 26 14 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 88 89 91 95 98 104 103 99 98 106 110 110 108 102 90 71 62 50 36 18 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 8 15 29 42 58 73 88 102 108 111 114 116 116 116 116 115 113 110 108 107 106 105 105 105 106 106 107 107 108 109 109 110 111 112 113 114 115 116 117 118 119 120 121 123 124 125 126 128 129 130 131 132 132 132 131 129 126 115 101 83 63 44 21 11 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 88 90 93 99 103 104 101 97 99 107 109 108 103 92 74 65 57 47 31 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 8 15 25 38 59 74 88 99 107 114 115 115 115 115 113 111 109 107 105 103 102 102 102 102 103 104 105 106 108 109 111 112 113 114 116 117 118 118 119 119 120 120 120 121 122 122 123 124 125 126 128 129 130 131 132 132 133 133 133 130 124 113 99 81 53 34 20 10 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 87 88 92 100 103 104 103 99 93 101 104 105 101 93 75 66 60 54 44 18 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 11 22 35 51 68 90 102 110 114 115 115 115 113 111 110 106 103 100 99 98 99 100 101 102 104 106 108 110 113 115 118 120 123 124 126 128 129 130 130 130 130 129 129 128 127 126 126 126 126 126 126 127 128 129 130 131 132 133 133 134 134 133 131 125 115 90 68 46 27 13 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 87 88 92 102 105 105 104 102 95 90 97 99 97 93 76 66 61 57 54 32 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 6 12 28 46 66 86 104 113 114 115 115 115 114 112 107 102 98 95 95 96 96 98 99 101 103 106 109 114 119 124 129 133 138 142 145 148 150 152 153 153 153 152 150 149 147 144 142 138 136 133 131 129 128 128 128 129 129 130 131 132 133 134 134 135 135 134 133 125 108 84 58 33 11 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 90 90 91 95 104 108 107 106 104 102 91 86 86 89 89 83 71 63 60 58 48 25 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 13 26 44 74 94 107 113 114 115 115 114 112 108 100 96 94 93 93 95 96 97 100 103 110 117 125 133 141 151 158 164 169 174 178 181 183 185 186 187 187 187 187 186 185 183 182 179 176 172 168 164 159 154 148 143 139 136 133 132 132 132 133 133 134 135 135 135 135 134 132 125 110 87 49 25 11 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 93 96 102 107 108 107 106 105 104 96 88 83 81 82 80 75 69 64 61 55 35 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 9 20 38 59 81 101 108 112 114 114 113 110 105 100 96 93 92 92 93 94 98 102 109 117 127 139 149 157 164 171 178 182 185 187 189 191 192 193 193 194 194 194 193 193 193 192 191 189 188 186 184 181 179 176 173 169 164 160 155 150 143 140 137 135 134 134 135 135 135 135 135 134 132 127 117 89 61 36 17 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 96 97 101 106 109 109 107 106 105 105 101 95 87 80 77 76 75 71 67 63 59 43 23 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 9 27 47 69 88 103 112 113 113 113 111 105 100 96 92 90 91 92 94 98 103 114 123 134 145 155 167 174 179 184 188 192 193 195 195 196 196 196 196 196 195 195 194 194 193 193 192 192 191 190 189 188 186 185 183 182 179 177 174 170 166 160 155 150 145 141 138 136 136 135 135 135 135 135 134 131 117 96 71 44 22 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 99 100 104 109 110 108 106 105 105 105 104 101 95 86 76 72 72 71 69 66 62 50 30 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 13 26 55 78 96 108 112 113 112 111 108 103 95 91 89 89 89 93 97 103 112 122 139 152 163 172 180 187 190 193 195 196 196 196 196 196 196 195 194 193 192 191 189 188 187 186 186 185 185 185 185 185 185 184 184 183 183 182 181 181 179 178 174 170 165 159 153 146 142 139 137 136 136 135 135 135 135 132 123 105 80 51 19 8 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 102 103 107 110 110 104 103 103 104 105 105 105 101 94 81 70 69 69 68 67 64 56 36 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 14 30 55 93 104 110 113 114 112 110 104 97 90 87 87 87 89 91 99 110 124 140 155 171 180 186 190 193 195 196 197 197 197 197 196 195 193 192 189 186 184 181 179 175 173 172 170 169 169 169 170 171 173 175 177 178 179 180 181 181 181 180 179 178 178 176 173 170 162 155 149 143 139 137 136 136 135 135 135 134 129 116 92 47 23 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 103 105 108 110 110 103 101 102 103 105 105 105 103 98 87 70 68 67 67 66 65 60 42 20 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7 23 47 75 100 109 112 113 113 111 104 95 89 86 84 86 88 92 100 111 135 151 165 177 185 191 194 195 196 197 197 196 195 194 192 189 185 181 177 172 165 159 154 149 144 138 134 130 127 125 123 123 124 125 127 132 136 141 146 151 158 164 169 173 176 177 177 177 176 175 174 172 168 163 156 146 141 138 136 136 135 135 135 132 128 104 68 37 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 104 105 107 109 110 103 101 101 102 104 104 104 101 95 86 70 67 66 66 66 65 61 44 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 27 54 79 97 107 112 112 111 108 101 92 87 85 85 86 90 99 112 128 144 164 175 183 188 193 195 196 196 196 195 194 192 189 185 180 173 167 160 153 145 135 128 122 115 110 103 99 95 92 89 87 87 87 87 88 91 94 98 103 108 117 125 133 141 149 159 165 170 173 174 174 173 172 170 167 161 154 148 142 138 136 136 135 134 133 124 104 76 45 18 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 103 105 107 109 110 105 102 101 102 104 104 102 97 91 84 71 66 65 65 65 65 62 46 24 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 10 24 58 82 98 107 111 112 110 105 98 91 84 83 84 87 92 106 122 138 155 170 182 188 192 195 196 196 196 195 193 191 186 182 176 169 162 151 142 133 124 115 104 97 91 85 80 76 73 71 69 67 66 66 66 66 66 68 69 72 74 78 84 89 96 103 112 125 135 145 153 161 168 171 172 172 171 168 164 159 154 147 141 138 136 135 135 133 124 107 81 48 15 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 103 104 106 108 109 106 103 102 103 104 103 99 92 85 82 74 67 64 64 65 65 62 46 24 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 10 26 51 88 101 108 111 112 109 103 96 88 84 81 84 88 95 107 130 150 165 177 187 192 195 196 196 196 195 193 190 187 182 174 166 157 148 137 123 112 103 93 85 76 71 67 63 61 59 58 57 57 57 57 57 57 57 57 57 58 58 59 60 62 64 67 72 78 88 98 110 121 134 150 158 164 168 170 171 170 168 165 159 150 144 140 137 136 135 133 127 112 85 39 18 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 102 103 105 106 107 107 105 104 104 105 104 93 85 80 80 78 69 65 64 65 65 62 45 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8 25 52 86 106 109 110 111 111 103 92 85 81 80 82 87 98 114 135 161 175 185 191 195 197 197 197 196 194 191 187 182 176 169 156 144 132 120 107 91 81 73 66 61 57 56 55 55 54 54 54 54 54 55 55 55 55 55 55 56 56 56 56 57 57 57 58 59 60 62 66 72 80 92 112 129 143 156 165 170 171 171 170 169 163 155 147 141 137 136 135 134 130 122 79 42 17 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 100 101 102 103 104 107 106 106 107 108 97 85 80 80 81 80 73 67 64 65 65 61 42 19 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9 33 64 92 106 109 110 110 107 101 87 82 79 79 82 93 110 131 153 171 186 191 195 197 197 197 195 193 190 187 180 172 162 151 138 119 104 91 80 70 61 58 55 54 53 53 53 53 53 53 54 54 54 54 54 54 54 55 55 55 55 55 55 56 56 56 56 56 57 57 57 58 59 60 62 68 76 89 105 123 145 159 166 170 170 169 167 164 157 148 140 137 136 135 133 124 94 58 26 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 99 99 99 100 102 103 105 106 107 109 91 82 80 81 82 80 72 67 65 65 65 57 36 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 6 31 64 88 103 108 109 109 105 98 89 81 79 79 84 93 116 138 157 174 185 194 196 197 197 196 193 191 187 182 176 164 151 138 123 108 90 78 69 63 58 55 54 53 53 53 53 53 53 53 53 53 53 54 54 54 54 54 54 54 54 55 55 55 55 55 55 56 56 56 56 57 57 58 58 59 61 64 69 76 86 106 124 139 153 164 168 168 168 165 160 150 144 139 136 135 131 119 94 62 26 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 98 98 97 97 99 100 103 105 107 109 88 81 80 81 81 78 70 66 65 65 64 52 30 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 21 61 87 101 107 109 109 105 98 89 81 77 79 85 96 113 142 162 177 187 194 197 197 196 195 193 189 184 178 169 159 141 125 110 96 82 69 62 58 55 53 52 52 52 52 52 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 54 54 54 54 54 54 55 55 55 56 56 56 57 57 57 58 59 60 62 66 78 90 105 122 139 156 164 168 168 166 160 154 147 142 137 135 131 118 95 61 19 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 98 97 96 95 96 98 100 103 106 109 90 82 81 81 78 74 68 66 65 66 63 44 22 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6 19 45 88 101 107 108 108 106 98 88 81 77 78 84 97 115 138 167 181 190 195 198 198 196 194 191 188 182 174 164 151 137 114 98 84 73 64 57 54 53 52 52 52 52 52 52 52 52 52 52 52 53 53 53 53 53 53 52 52 52 52 52 52 52 53 53 53 53 53 54 54 54 55 55 56 56 56 57 57 58 58 59 62 66 75 89 106 132 148 159 165 167 166 163 157 150 143 137 135 131 120 98 47 21 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 98 97 96 95 95 96 96 99 104 109 98 83 80 80 73 70 67 66 66 66 60 33 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 15 39 75 103 106 108 108 107 99 87 80 76 75 82 96 117 141 165 185 192 196 198 198 196 193 190 187 182 172 160 144 127 109 87 74 65 58 54 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 51 51 51 51 51 51 51 51 52 52 52 52 53 53 54 54 55 55 56 57 57 57 58 58 59 61 65 71 94 116 136 153 164 167 168 166 162 153 141 138 135 132 126 88 46 18 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 97 97 96 95 95 95 95 96 100 107 107 79 76 80 73 70 68 67 66 64 40 17 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 14 41 73 100 107 108 107 105 99 85 78 75 76 80 101 126 150 172 188 196 198 199 198 195 191 188 183 176 167 147 129 110 92 77 63 58 54 52 52 51 51 51 51 51 51 52 52 52 52 52 52 52 52 52 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 51 52 52 53 53 54 55 56 56 57 58 58 59 60 64 72 87 108 132 158 165 167 166 164 157 148 141 137 134 125 96 58 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 97 97 96 95 95 95 95 96 98 102 108 78 75 80 75 71 69 67 63 54 23 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8 32 64 91 104 107 107 105 99 90 77 75 76 82 94 125 150 171 186 194 198 199 197 195 191 186 181 173 162 147 122 104 87 74 63 56 54 52 51 51 51 51 51 51 51 51 52 52 52 52 52 52 52 51 51 51 51 51 51 51 51 51 51 51 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 52 52 53 54 54 56 56 57 58 59 60 63 70 80 96 125 144 157 164 165 164 159 151 143 138 132 120 93 58 21 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 97 97 96 96 96 96 95 95 96 99 108 80 75 78 76 72 69 64 55 38 11 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 21 55 83 101 106 107 105 99 91 81 74 75 81 94 114 149 171 185 194 198 199 197 194 191 187 180 171 158 143 124 99 83 71 62 56 53 52 51 51 51 51 51 51 51 51 51 52 52 52 52 52 51 51 51 51 50 50 50 50 50 50 50 50 50 50 50 50 50 49 49 49 49 49 49 50 50 50 50 50 50 51 51 51 52 52 54 54 55 56 57 58 60 62 66 73 92 113 132 149 160 166 164 159 153 145 137 132 117 92 54 14 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 96 97 96 96 96 97 96 95 95 96 107 87 77 74 77 72 67 58 43 22 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 8 41 76 96 105 107 105 100 92 83 74 73 78 91 111 138 171 186 194 198 199 198 194 190 186 181 171 157 140 121 101 78 67 59 55 52 51 51 51 50 50 50 51 51 51 51 52 52 52 52 52 51 51 51 50 50 50 50 50 50 50 50 50 49 49 49 49 49 48 48 48 48 48 48 48 48 48 49 49 49 50 50 50 50 51 51 52 52 53 54 56 57 58 59 60 62 69 83 102 123 145 161 164 164 161 154 144 138 132 119 92 38 15 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 96 96 96 96 96 97 98 97 95 95 103 101 83 69 75 69 61 47 29 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 17 65 91 103 106 106 102 95 84 76 72 74 86 107 133 161 188 195 198 199 198 195 190 186 181 174 158 139 118 98 79 63 57 54 52 51 51 50 50 50 50 50 51 51 51 52 52 52 52 52 51 51 50 50 50 50 50 49 49 49 49 49 49 48 48 48 47 47 47 47 47 46 46 46 46 46 46 47 47 47 48 49 49 50 50 50 51 51 51 52 53 55 56 57 58 59 61 65 75 91 114 147 159 164 164 163 155 145 139 133 125 79 36 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 96 96 96 96 96 97 99 99 98 95 96 103 90 72 66 65 53 36 19 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 16 42 92 101 105 106 103 94 83 75 71 72 85 108 135 162 185 198 199 198 197 195 189 184 178 170 157 132 110 90 74 62 54 53 52 51 51 50 50 50 50 50 51 51 52 52 52 52 52 51 51 50 49 49 49 49 49 49 49 49 49 48 48 48 48 47 47 47 47 47 46 46 46 46 46 45 45 45 45 45 45 45 46 46 47 48 49 50 50 51 51 51 52 53 54 56 57 59 60 62 66 74 101 126 146 160 165 164 159 150 142 136 124 88 48 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 96 96 96 95 95 97 99 101 101 97 96 102 98 86 65 57 49 34 18 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10 30 64 99 104 105 103 99 87 77 72 72 76 101 129 156 179 194 199 199 197 195 191 184 178 169 157 139 111 91 75 63 56 53 52 51 51 50 50 50 50 50 51 52 52 52 52 52 52 51 50 50 49 49 49 49 49 49 49 49 49 48 48 48 48 47 47 47 47 47 47 47 47 46 46 46 46 46 45 45 45 45 45 45 45 45 46 46 48 49 50 50 51 51 52 52 53 54 57 58 60 62 65 77 95 117 138 156 164 163 159 152 143 133 117 85 47 13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 95 95 95 95 95 97 99 101 103 101 96 99 101 94 72 50 41 29 16 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 19 45 82 103 105 104 100 94 80 73 72 75 86 120 149 173 190 199 199 198 195 191 186 179 170 158 141 120 91 75 64 56 53 52 51 50 50 50 50 50 50 51 51 52 52 52 52 52 51 50 50 49 49 49 49 49 49 49 49 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 47 47 47 47 46 46 45 45 44 44 44 44 45 45 46 47 49 50 51 51 51 52 53 54 56 58 59 61 66 75 91 111 134 156 162 162 159 152 141 132 113 83 42 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 95 95 95 95 95 97 99 101 104 104 98 98 100 98 84 48 34 22 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8 30 60 95 105 105 102 96 88 74 71 73 82 100 139 167 186 197 200 198 196 192 187 181 172 160 143 123 100 75 63 56 53 52 51 50 50 50 49 50 50 51 52 52 53 53 52 52 51 50 49 49 49 49 49 49 49 49 49 48 48 48 48 48 48 48 48 48 48 48 49 49 49 49 49 49 49 49 49 48 48 47 47 46 45 45 44 44 44 44 44 45 46 48 49 50 51 51 51 52 53 55 57 59 61 64 72 85 105 137 153 161 162 160 149 141 132 114 80 25 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 95 95 94 95 95 97 99 102 104 106 103 98 99 101 98 57 33 17 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 15 43 76 101 106 103 98 91 81 70 70 77 92 117 159 183 195 200 200 196 193 188 183 176 164 147 126 104 82 63 56 53 52 51 50 50 49 49 49 50 51 52 52 53 53 53 52 51 50 49 49 49 49 49 49 49 49 49 48 48 48 48 48 48 49 49 49 49 49 49 49 49 49 49 49 50 50 50 50 51 51 50 50 49 47 46 45 44 44 44 44 44 44 45 47 48 50 51 51 51 52 53 54 56 59 61 63 68 77 106 134 152 162 163 160 150 140 131 119 59 22 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 94 94 95 95 99 102 104 105 107 107 102 100 100 103 89 47 20 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 27 61 92 104 105 100 93 83 73 68 74 88 111 142 182 194 200 200 198 193 188 182 175 167 147 125 102 82 65 55 53 52 51 50 49 49 49 49 50 51 52 53 53 53 53 52 51 50 49 49 49 49 49 49 49 49 49 48 48 48 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 50 50 50 51 51 51 52 52 52 51 50 48 46 44 44 43 43 43 44 45 47 48 50 51 51 52 52 52 55 58 60 62 64 73 93 119 143 160 163 161 153 143 133 115 66 28 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 94 94 95 96 101 103 105 107 107 108 105 102 100 102 97 67 34 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9 39 72 97 104 104 96 87 78 70 69 79 99 127 160 191 198 200 198 195 190 183 177 168 157 131 108 87 70 58 53 52 51 50 49 49 49 49 50 51 52 53 53 53 53 52 51 50 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 48 47 47 46 46 46 46 46 47 47 48 48 49 50 51 51 52 52 53 53 52 52 50 48 46 45 44 43 43 44 44 46 47 50 51 51 52 52 53 54 57 59 62 66 75 91 114 140 159 161 159 153 142 127 101 61 23 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 94 94 95 97 102 104 106 107 108 109 108 104 101 102 101 84 51 18 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 16 51 81 100 103 102 92 82 74 69 72 87 113 144 176 198 200 199 196 192 186 179 171 160 145 115 92 74 62 55 52 51 50 50 49 49 49 50 50 52 53 53 53 53 53 51 50 50 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 48 47 46 46 45 44 44 44 44 44 45 45 46 47 48 48 50 50 51 52 52 53 53 54 53 53 51 50 48 46 44 43 43 43 44 45 47 49 50 51 52 52 53 54 56 59 62 66 74 89 112 145 156 160 159 152 136 122 92 53 15 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 94 94 96 98 103 105 107 107 108 109 109 106 103 101 102 96 68 32 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 25 63 88 102 103 99 88 78 72 69 75 97 127 160 188 202 200 198 194 189 181 174 164 150 131 99 79 65 56 53 51 51 50 49 49 49 49 50 51 53 53 54 53 53 52 51 50 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 48 48 46 45 44 43 43 43 43 43 43 44 44 45 46 46 47 48 49 50 51 52 52 53 54 54 54 54 54 53 51 49 47 44 44 43 43 44 45 47 49 50 51 52 52 52 54 56 60 62 66 72 85 120 143 156 161 160 146 135 116 86 38 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 93 94 96 100 105 106 107 108 108 109 109 108 106 101 102 101 83 52 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 33 74 95 102 103 95 83 75 70 69 80 109 143 174 197 203 199 195 191 185 177 168 155 138 116 84 68 58 54 52 51 50 49 49 49 49 50 51 52 53 54 54 53 52 51 50 49 49 49 49 49 49 49 49 49 49 49 50 50 50 49 48 47 45 43 42 42 42 42 42 43 43 43 44 44 45 46 47 47 48 49 50 51 52 52 53 54 54 54 55 55 55 54 53 51 47 45 44 43 43 43 44 46 48 50 52 52 52 52 53 56 60 62 65 69 88 119 143 158 162 158 144 132 112 77 15 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 93 95 97 102 106 107 107 107 108 108 109 109 108 103 102 102 96 77 35 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 8 49 83 98 101 101 90 79 73 70 71 91 128 162 188 201 202 196 192 187 180 170 158 142 121 96 69 59 54 52 51 50 49 48 48 48 49 51 52 53 54 54 53 53 52 50 49 49 49 49 49 49 49 49 49 49 50 50 50 50 49 47 44 43 42 41 42 42 42 43 43 44 45 46 47 47 48 49 49 49 50 50 51 51 52 52 53 54 54 54 55 55 55 55 55 54 52 50 47 45 43 43 43 44 45 47 50 51 52 52 52 53 55 58 62 64 69 83 109 137 157 161 157 145 131 118 57 20 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 94 96 99 103 107 107 107 107 107 107 108 109 108 106 102 102 100 86 54 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 13 60 88 99 101 100 85 76 71 70 73 102 142 174 195 202 201 194 189 183 175 164 150 130 107 83 62 56 53 52 51 49 48 48 48 49 50 52 53 54 54 54 53 52 51 50 49 49 49 49 49 49 49 49 49 50 50 50 49 48 46 43 42 41 41 41 42 43 44 45 46 47 48 48 49 49 50 50 50 50 50 51 51 52 52 53 53 54 54 55 55 55 55 55 55 55 54 52 50 48 46 44 43 43 44 45 48 50 51 52 52 53 54 55 58 62 66 72 86 108 138 159 159 154 143 127 94 46 16 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 94 96 100 104 107 107 107 107 106 106 107 108 109 108 103 103 102 94 73 17 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6 19 69 91 100 100 98 82 74 70 71 77 115 155 183 199 202 199 191 186 180 171 157 140 118 94 73 57 54 52 51 50 49 48 48 48 49 51 52 53 54 54 54 53 52 51 50 49 49 49 49 49 49 49 49 50 50 50 49 48 46 43 41 41 41 41 42 44 45 46 47 48 49 49 50 50 50 50 50 50 50 50 51 51 51 52 52 53 54 54 55 55 55 55 55 55 55 55 54 52 50 48 45 44 43 43 44 45 48 50 51 52 53 53 54 56 58 63 66 73 87 111 146 157 158 152 140 116 75 37 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 94 97 101 105 107 107 107 107 106 105 106 107 109 109 104 103 102 99 88 29 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 8 25 77 94 100 99 95 78 72 69 72 82 128 167 190 201 202 196 188 182 176 166 150 129 106 83 64 54 53 51 50 49 48 48 48 49 50 51 53 53 54 54 53 52 51 50 50 49 49 49 49 49 49 49 50 50 50 50 48 46 43 41 40 41 42 43 44 46 48 48 49 49 50 50 50 50 50 50 50 50 50 50 50 50 51 51 51 52 53 54 54 55 55 55 55 55 55 55 55 54 53 51 47 45 44 43 43 44 46 48 50 52 53 53 53 54 56 60 63 67 73 85 124 147 157 158 152 130 103 62 24 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 95 98 102 106 107 107 107 106 105 104 105 106 108 109 105 103 103 101 97 46 16 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 11 32 84 96 100 98 93 75 70 68 73 89 141 177 196 202 201 193 186 179 172 162 141 118 94 73 59 53 52 51 50 48 48 48 48 49 50 52 53 53 54 54 53 52 51 50 50 50 49 49 49 49 49 50 50 50 50 49 46 43 41 40 40 41 43 45 47 48 49 49 49 50 50 50 50 50 50 51 51 51 50 50 50 50 49 49 49 50 51 53 53 54 55 55 55 55 55 55 55 55 54 53 50 47 45 44 43 43 44 46 48 50 52 53 53 54 54 57 61 64 67 71 93 127 149 160 160 142 126 90 47 10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 95 98 103 107 107 107 106 106 105 103 104 105 106 109 107 104 103 102 101 65 27 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 15 42 90 97 100 97 88 72 69 69 78 100 157 186 199 202 201 189 182 175 166 154 128 103 81 64 55 52 51 50 49 48 48 48 49 49 51 53 53 53 53 53 53 51 50 50 50 50 50 49 49 50 50 50 50 50 50 46 42 40 40 40 42 44 46 48 48 49 49 49 50 50 51 52 53 54 55 56 56 55 54 53 51 50 49 49 48 47 47 48 50 51 53 54 54 55 55 55 55 55 55 54 52 50 48 46 44 43 44 44 46 48 51 52 53 53 54 55 58 61 64 67 73 92 122 149 161 159 140 120 88 35 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 95 99 103 107 107 107 106 105 104 103 103 104 105 108 107 104 103 102 102 78 34 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 19 49 93 98 99 95 85 70 68 70 82 109 167 190 200 201 199 186 179 171 161 147 118 93 73 59 54 52 51 50 48 48 48 48 49 50 51 53 53 53 53 53 52 51 50 50 50 50 50 50 50 50 50 50 50 50 48 42 40 40 40 41 44 46 47 48 48 49 49 50 51 53 58 62 67 71 74 77 77 76 74 71 65 60 56 52 49 47 47 47 47 48 50 51 53 54 54 55 55 55 55 54 53 52 50 47 45 44 44 44 45 46 49 51 52 53 54 55 57 59 62 65 69 78 99 126 154 161 153 136 108 68 15 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 95 99 103 107 107 107 106 105 103 103 103 103 105 108 108 104 103 103 102 87 42 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7 23 55 94 98 98 94 83 69 68 72 87 118 175 194 201 201 197 183 176 168 156 139 108 85 67 56 53 51 50 49 48 48 48 48 49 50 51 53 53 53 53 53 52 51 50 50 50 50 50 50 50 50 50 50 50 49 45 40 39 39 40 42 46 47 48 48 48 49 51 53 58 64 73 80 86 91 96 100 101 101 100 97 91 84 76 69 61 54 50 48 46 47 48 49 51 52 53 54 54 54 54 54 54 53 51 49 47 45 44 44 44 45 48 50 52 53 53 54 56 58 60 63 67 71 82 103 134 160 159 147 127 99 34 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 96 99 104 107 107 107 106 104 103 102 102 103 104 108 108 104 103 103 102 93 50 20 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 3 5 6 7 7 6 5 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 8 26 61 95 98 98 93 81 69 68 73 91 126 183 196 201 200 195 181 173 164 151 131 99 77 62 55 53 51 50 49 48 48 48 49 49 50 51 52 53 53 53 53 51 50 50 50 50 50 50 50 50 50 50 50 49 47 42 39 39 40 41 44 47 47 48 48 48 50 54 60 68 77 88 96 102 108 112 117 119 121 121 121 117 111 103 94 83 69 61 54 50 47 47 48 49 50 52 53 53 54 54 54 54 53 52 50 48 46 44 44 44 44 46 49 51 52 53 54 55 57 59 62 66 68 72 84 108 150 159 155 142 122 61 25 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 96 99 104 107 107 107 106 104 103 102 102 102 104 108 108 105 103 103 103 97 58 25 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 4 5 6 6 6 6 5 5 4 4 4 6 8 14 18 21 21 19 14 9 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 10 29 67 96 98 97 91 79 68 68 75 95 134 189 198 202 199 192 179 170 160 145 123 90 70 59 54 52 51 49 48 48 48 48 49 50 50 51 52 52 53 53 52 51 50 50 50 50 50 50 50 50 50 50 50 48 45 40 39 39 40 43 46 47 47 47 48 49 54 62 71 82 90 98 103 108 112 116 120 123 125 127 129 131 131 129 124 114 96 82 69 58 50 47 47 47 48 50 52 52 53 53 54 54 53 53 51 50 47 45 44 44 44 45 47 50 52 53 54 54 56 58 61 65 68 70 74 82 127 153 161 154 134 93 44 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 96 99 103 107 107 107 106 104 102 102 102 102 104 108 108 105 103 103 103 100 65 30 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 9 14 23 30 36 41 44 45 44 41 37 33 28 27 28 32 41 57 69 76 79 79 71 57 41 25 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 12 34 74 97 98 96 90 77 68 68 76 99 143 193 200 202 198 189 176 167 154 137 113 80 64 56 53 52 50 49 48 48 48 48 49 50 51 51 52 52 52 52 52 51 50 50 50 50 50 50 50 50 50 51 49 46 42 39 38 39 42 45 46 47 47 47 49 53 63 73 81 87 92 99 103 107 109 112 115 118 121 125 128 132 133 134 134 134 130 119 104 88 71 56 50 48 47 48 50 51 52 53 53 53 53 53 52 51 49 47 45 44 43 44 46 48 50 53 54 54 55 57 59 65 67 69 70 73 90 129 152 160 156 125 77 37 10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 95 99 103 107 107 107 106 105 103 102 102 103 105 108 108 104 102 102 103 101 69 33 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 10 20 32 44 55 65 70 74 77 79 80 79 78 76 73 69 65 64 67 73 85 91 95 97 98 96 90 82 70 53 25 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 14 38 78 97 98 96 89 76 67 68 77 102 149 195 200 202 197 187 174 164 150 131 106 74 61 54 52 52 50 48 48 48 48 48 49 50 50 51 51 52 52 52 52 51 50 50 50 50 50 50 50 50 51 50 48 44 40 38 38 40 43 46 46 46 47 48 51 57 68 75 81 87 90 92 91 89 87 86 86 89 93 98 105 116 123 129 133 135 135 132 126 116 100 76 63 54 49 47 48 50 51 52 52 53 53 53 52 52 50 48 46 45 44 44 45 47 49 52 54 54 55 56 58 63 67 69 70 72 79 105 135 158 161 138 104 61 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 95 98 103 107 107 107 107 105 103 103 102 104 106 109 108 103 102 102 104 102 72 35 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 12 23 41 53 64 73 80 86 88 90 92 93 94 94 93 93 92 90 88 88 89 92 98 101 103 105 105 105 104 101 95 85 64 43 23 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 16 42 81 97 98 96 88 75 67 68 78 104 152 196 201 202 197 185 172 162 146 125 99 69 59 54 52 51 49 48 48 48 48 49 49 50 50 51 51 51 52 51 51 51 50 50 50 50 50 50 50 51 51 50 47 43 39 38 38 41 44 46 46 46 46 49 53 60 70 75 79 81 80 75 70 67 64 62 62 64 66 70 75 86 96 106 117 127 135 137 136 132 124 103 84 68 57 50 48 49 50 51 52 53 53 53 52 52 50 49 47 45 44 44 44 46 48 51 53 54 54 55 57 61 67 70 71 72 74 87 115 145 162 152 125 85 42 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 95 98 102 107 107 107 107 106 104 103 103 105 107 109 108 103 101 102 104 103 74 37 7 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 11 22 36 53 74 83 88 90 91 91 91 91 92 93 94 95 96 96 97 99 99 99 100 101 103 104 105 105 106 106 106 105 105 104 97 79 54 29 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 19 45 84 98 98 95 88 74 67 68 79 106 155 197 202 202 196 183 170 159 142 120 93 65 57 53 52 51 49 48 48 48 48 49 49 50 50 51 51 51 51 51 51 51 50 50 50 50 50 50 50 51 51 50 46 41 38 37 39 42 45 46 46 46 47 49 55 61 69 73 73 71 65 56 52 49 47 47 47 47 48 49 51 57 65 76 90 105 123 131 136 139 139 128 110 90 71 57 49 49 49 50 51 52 52 53 52 52 51 49 48 46 45 44 44 45 47 50 53 54 54 55 56 60 66 70 73 73 73 76 95 125 157 162 142 107 66 23 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 95 97 101 106 107 107 108 107 105 104 105 107 109 109 106 101 101 102 105 103 75 38 8 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 13 34 57 77 87 90 91 92 91 90 86 84 84 83 84 87 90 93 95 98 100 101 102 103 103 104 105 105 105 105 105 105 106 106 106 105 103 93 69 28 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 21 48 85 98 98 95 88 74 67 67 79 107 156 198 202 201 195 182 168 157 138 115 88 62 56 53 52 51 49 48 48 48 48 49 49 50 50 50 51 51 51 51 51 51 50 50 50 50 50 50 51 51 51 49 44 40 38 37 39 43 45 46 46 46 47 50 55 61 67 67 64 57 48 45 44 44 43 43 44 44 44 44 45 45 47 50 55 66 92 114 129 139 142 142 135 118 95 71 53 50 49 49 50 52 52 52 52 52 51 50 49 47 45 44 44 45 46 49 53 54 54 55 56 59 64 70 74 76 74 74 80 101 144 164 152 128 92 41 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 95 97 100 106 107 107 108 108 108 107 108 108 109 109 103 100 100 102 105 102 73 37 9 6 7 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 13 31 68 82 88 90 91 88 82 75 70 65 62 61 61 62 64 68 73 79 86 93 100 102 103 104 104 104 103 103 103 102 102 102 102 103 104 105 105 104 100 90 30 10 2 1 1 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 5 23 51 85 98 98 95 88 75 67 67 79 107 156 198 202 201 195 181 165 153 134 109 83 59 55 52 51 50 48 48 48 48 48 49 50 50 50 50 50 51 51 51 51 51 51 50 50 50 50 51 51 51 51 49 43 39 37 37 40 44 45 45 45 45 46 50 54 59 59 57 51 46 44 43 43 43 43 43 43 43 43 44 44 44 44 44 45 46 51 64 85 110 133 143 145 142 131 108 73 59 52 49 50 51 52 52 52 52 52 51 49 48 46 45 44 44 45 47 51 53 54 55 55 58 62 69 75 80 79 76 76 83 103 158 163 151 121 75 20 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 92 94 96 99 106 107 107 108 108 108 109 109 109 109 108 101 100 100 102 105 101 69 36 12 9 9 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 11 29 50 69 82 87 88 86 82 74 69 65 62 60 58 57 58 59 61 65 70 77 85 93 100 101 102 102 102 103 102 102 102 102 101 100 99 99 99 101 102 103 103 100 73 34 12 2 1 2 7 9 8 5 2 1 1 1 1 1 1 1 1 1 1 5 24 52 85 98 98 95 88 75 67 68 78 106 156 198 202 201 194 180 164 151 131 105 79 58 54 52 51 50 48 48 48 48 49 49 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 51 51 51 48 42 38 37 37 41 44 45 45 45 45 46 49 53 55 55 51 47 44 43 43 43 43 43 43 43 43 43 43 44 44 44 44 44 44 46 50 59 74 97 130 141 145 142 133 101 76 61 52 50 50 51 52 52 52 52 51 50 49 47 45 44 44 45 46 51 53 54 55 55 57 61 67 73 81 83 80 77 78 85 140 159 156 136 103 38 14 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 91 94 96 98 105 107 107 107 108 109 109 109 109 108 106 100 99 100 102 104 99 65 35 15 13 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 20 39 57 73 84 86 85 82 78 73 66 63 60 58 57 56 56 57 58 60 64 70 77 85 94 100 101 101 102 102 102 102 101 100 98 97 96 95 95 95 96 97 99 101 103 95 66 36 11 3 3 8 15 20 19 12 5 2 1 1 1 1 1 1 1 1 5 24 52 85 98 98 95 88 76 67 68 77 103 154 198 202 201 194 180 164 150 128 103 76 57 54 52 51 50 48 48 48 48 49 49 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 51 51 48 41 38 37 37 41 44 45 45 45 45 45 48 50 51 51 47 45 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 44 47 54 67 101 125 139 146 145 126 99 76 59 52 50 51 51 52 52 52 52 51 49 48 45 45 44 45 46 50 53 54 55 55 56 60 65 72 81 86 84 81 78 77 113 148 159 150 127 61 26 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 89 93 95 97 104 106 106 107 108 109 109 109 108 106 103 99 98 100 103 104 96 60 33 18 17 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 8 19 47 69 79 82 83 82 79 74 70 67 63 61 59 58 57 56 56 56 58 60 65 71 78 87 95 101 101 102 102 103 102 100 97 95 93 91 90 90 91 92 93 93 95 97 101 102 93 66 34 11 5 7 17 29 36 29 17 8 3 1 1 1 1 1 1 1 5 23 52 85 98 98 95 89 76 67 68 76 100 151 198 202 202 194 180 163 149 126 100 74 56 53 52 51 50 48 48 48 49 49 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 51 48 41 38 37 37 41 43 44 44 44 44 45 47 48 49 48 45 44 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 45 48 68 99 124 141 148 144 123 97 72 56 51 51 51 52 52 52 52 51 50 48 46 45 45 45 45 49 52 54 55 55 56 59 65 72 81 88 88 85 81 76 88 132 156 161 145 86 42 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 88 93 95 97 102 106 106 106 106 108 108 108 107 104 99 97 97 100 103 104 93 55 32 22 20 11 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8 24 56 77 81 82 81 78 72 70 68 66 64 63 61 59 58 57 56 56 57 59 62 67 72 79 88 96 103 105 105 104 103 99 94 90 87 85 84 84 85 87 90 92 92 93 93 95 101 102 97 76 32 10 11 15 26 50 53 40 22 7 2 1 1 1 1 1 1 4 22 50 83 98 98 96 89 77 67 67 74 97 146 198 203 202 195 180 163 148 125 99 73 56 53 52 51 50 48 48 48 49 49 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 48 41 38 36 37 41 43 44 44 44 44 44 45 47 47 46 44 44 43 43 43 43 43 43 43 43 43 43 43 43 42 42 42 42 42 42 42 42 43 43 47 67 97 127 145 149 142 120 92 65 52 51 51 51 52 52 52 51 50 49 46 45 45 45 45 48 51 54 55 55 56 58 64 71 79 90 91 89 85 79 77 115 148 165 157 113 61 26 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 85 92 94 96 100 106 106 106 105 105 106 106 104 100 96 96 97 100 103 103 84 50 32 25 22 8 3 1 1 1 1 1 1 1 1 1 1 1 1 1 2 18 46 72 80 79 75 73 72 71 69 68 67 66 65 64 63 61 59 57 56 56 59 62 66 70 78 89 99 106 107 106 104 100 95 86 83 81 80 80 80 81 83 86 89 91 92 92 92 93 94 100 102 101 96 53 30 23 26 32 64 66 58 39 12 2 1 1 1 1 1 3 18 44 79 97 98 96 91 79 67 67 72 91 136 195 202 202 196 182 164 147 124 98 71 55 53 52 51 49 49 48 49 49 49 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 48 42 38 36 36 40 42 44 44 44 44 44 44 45 45 45 44 44 44 44 44 44 44 44 43 43 43 42 42 42 42 42 41 40 40 39 40 40 41 42 43 46 63 91 128 147 148 141 123 90 59 53 51 51 52 52 52 52 51 49 47 46 45 45 45 47 51 53 55 55 56 57 63 70 77 90 93 94 92 85 76 87 123 157 164 142 92 48 16 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 92 94 95 98 106 106 106 104 103 103 103 100 97 96 95 98 101 103 102 76 46 32 26 21 5 2 1 1 1 1 1 1 1 1 1 1 1 1 3 24 52 69 76 76 74 73 72 72 73 71 69 68 67 67 66 64 61 59 57 57 58 62 66 70 80 92 100 105 107 106 103 97 91 85 80 78 76 75 74 75 77 80 83 87 91 92 92 92 93 94 96 99 101 101 89 71 51 36 37 51 65 67 59 40 9 3 1 1 1 1 2 15 39 75 97 98 97 92 81 68 67 70 87 127 191 202 203 197 183 165 148 125 98 71 55 53 52 51 49 49 48 49 49 50 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 49 42 38 36 36 39 42 43 44 43 43 43 44 44 45 45 45 44 44 44 44 44 44 44 43 43 42 42 42 41 41 41 40 39 38 37 37 38 39 41 42 44 51 68 101 139 146 146 136 113 72 59 53 52 52 52 52 52 51 50 48 46 45 45 45 47 50 53 55 55 56 57 62 70 77 89 94 97 95 91 79 80 108 142 165 155 115 69 28 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 91 94 95 97 105 106 106 105 102 101 100 98 96 95 96 99 101 102 99 67 44 32 26 17 3 1 1 1 1 1 1 1 1 1 1 1 1 6 18 52 70 75 75 73 74 77 77 76 75 73 70 69 69 68 66 64 61 59 58 59 62 67 72 78 90 100 105 107 106 102 96 89 83 78 73 71 69 68 68 70 72 76 80 84 90 91 92 92 93 94 95 96 99 101 101 93 79 64 51 50 61 68 68 60 28 11 3 1 1 1 2 11 32 69 95 97 97 93 83 68 67 69 83 117 186 200 204 198 185 166 149 126 99 72 55 53 51 51 49 49 49 49 49 50 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 50 43 39 36 36 38 41 42 43 43 43 43 43 44 44 45 44 44 44 44 44 44 44 43 43 42 42 41 40 40 40 40 39 38 37 36 35 35 36 38 41 42 45 54 75 124 141 147 143 131 89 67 56 52 52 52 52 52 52 51 48 47 45 45 45 46 50 53 55 56 56 57 62 69 77 87 95 98 98 96 84 79 94 123 161 161 135 90 44 12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 79 90 94 94 95 104 105 106 105 102 99 98 97 96 96 97 100 101 100 93 59 41 31 24 12 1 1 1 1 1 1 1 1 1 1 1 1 6 18 42 74 75 74 72 75 80 84 85 82 76 73 71 70 69 68 66 64 61 60 60 63 67 72 78 86 99 104 106 105 103 95 87 81 75 71 66 63 62 62 63 65 68 72 76 81 88 90 92 92 93 95 95 95 96 98 100 100 98 90 71 60 60 66 71 72 51 25 9 3 1 1 1 8 26 61 94 97 97 94 86 70 67 68 79 107 179 198 204 199 187 167 150 127 100 73 55 53 51 51 49 49 49 49 49 50 50 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 50 45 40 37 36 37 39 41 42 43 43 43 43 43 44 44 44 44 44 44 44 44 43 43 42 41 40 40 40 39 39 39 38 38 37 34 33 33 33 35 40 41 43 46 55 103 132 144 147 143 108 78 61 53 52 52 52 52 52 51 49 47 46 45 45 46 49 53 55 56 56 57 61 68 77 86 94 99 100 100 90 81 84 106 153 164 150 111 64 21 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 77 90 94 94 94 102 105 106 105 102 99 97 96 96 96 98 100 101 97 86 50 37 29 20 7 1 1 1 1 1 1 1 1 1 1 1 2 16 39 71 76 72 70 74 84 92 92 90 86 77 73 71 70 70 68 66 64 63 62 62 66 70 77 85 94 104 105 105 103 96 84 78 72 67 61 58 58 59 60 61 62 64 67 72 77 85 89 91 92 93 95 96 96 95 94 94 95 95 94 93 77 69 67 71 76 73 46 22 6 2 1 1 5 19 52 91 96 97 95 89 72 67 67 75 96 170 196 205 201 190 170 152 129 102 75 55 53 51 51 49 49 49 49 49 50 50 50 50 50 50 50 49 49 50 50 50 51 51 51 51 51 51 51 51 51 51 46 41 37 36 37 38 40 41 42 43 43 43 43 43 43 44 44 44 44 44 43 42 41 40 40 40 39 39 39 39 38 38 37 36 33 32 31 31 32 37 40 42 44 46 78 119 140 147 147 126 91 68 55 52 52 52 52 52 52 49 47 46 45 45 46 49 52 55 56 56 57 61 67 77 86 93 99 102 102 96 84 81 95 138 164 159 130 86 34 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 75 89 93 93 94 99 103 105 106 105 100 98 97 97 97 100 100 99 92 74 43 30 22 14 3 1 1 1 1 1 1 1 1 1 1 2 15 43 68 75 71 70 77 87 98 101 100 95 88 81 74 73 73 72 71 67 65 64 64 66 74 85 95 103 107 106 101 95 87 79 71 65 59 56 55 56 56 56 56 55 56 57 60 64 69 77 84 88 90 92 94 97 98 98 98 97 95 93 92 91 90 83 77 74 75 79 75 54 28 7 1 1 3 12 36 84 94 97 96 92 75 69 67 71 83 155 190 204 203 193 173 156 133 106 78 56 53 51 51 50 49 49 49 49 50 50 50 50 50 50 50 49 49 50 50 50 51 51 52 52 51 51 51 51 52 51 49 44 39 37 37 38 38 39 39 41 42 42 43 43 43 43 43 43 42 41 40 40 40 40 40 40 40 40 39 39 39 38 37 36 33 31 29 29 29 33 38 41 43 44 56 96 127 145 147 140 109 81 60 53 52 52 52 52 52 50 48 47 46 46 46 49 52 55 56 56 57 60 67 76 86 91 98 102 103 102 90 83 87 109 160 161 147 114 58 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 73 88 93 93 93 97 101 104 106 106 102 101 100 99 99 100 100 96 85 65 35 25 17 9 1 1 1 1 1 1 1 1 1 1 1 9 37 59 72 73 70 74 85 96 104 106 104 99 93 87 81 79 77 75 72 68 67 69 74 84 93 99 101 102 102 95 88 83 77 70 59 56 53 52 51 51 50 51 51 53 54 55 57 59 63 70 77 82 86 89 92 95 97 98 99 99 99 98 97 95 93 90 84 78 76 78 77 69 51 23 3 1 2 8 24 74 91 96 96 94 79 70 67 69 77 139 182 202 204 196 177 160 137 110 81 57 53 51 51 50 49 49 49 49 50 50 51 50 50 50 50 49 49 49 50 50 51 51 52 52 52 51 51 51 52 52 50 46 41 38 37 38 38 38 38 39 40 40 41 41 42 42 41 41 40 39 39 39 40 40 40 41 41 42 42 42 42 41 40 38 34 31 29 28 28 31 36 40 42 44 51 82 116 141 147 143 120 91 66 54 53 53 53 52 52 51 49 47 46 46 46 49 52 55 56 57 57 60 66 76 85 90 96 101 104 103 95 86 84 94 151 159 154 130 80 21 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 72 87 93 93 92 95 98 103 106 106 104 102 101 101 101 101 99 91 75 53 27 20 12 5 1 1 1 1 1 1 1 1 1 1 3 24 53 68 73 71 70 80 92 102 107 108 105 101 97 91 86 83 81 77 74 72 77 82 89 96 101 101 98 95 92 85 78 70 63 57 51 48 47 45 44 44 44 46 48 50 52 53 54 55 57 63 69 75 81 84 87 90 93 95 98 100 101 101 100 99 97 96 92 88 83 80 79 76 67 45 11 4 2 5 15 62 86 95 96 95 82 72 67 68 73 122 173 198 205 199 180 164 141 115 85 59 54 52 51 50 49 49 49 49 50 51 51 51 50 50 50 50 49 50 50 50 51 51 52 52 52 51 51 51 52 52 51 49 44 39 38 38 38 38 38 38 38 39 39 39 40 39 39 39 39 39 39 40 40 41 43 44 44 45 45 46 46 45 44 42 37 32 29 28 28 29 34 39 42 43 48 71 105 136 147 145 128 101 73 56 53 53 53 53 52 51 49 47 46 46 47 49 52 55 56 57 57 60 66 76 85 89 94 99 104 104 99 90 83 86 138 156 158 142 102 33 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 71 87 92 92 92 93 96 101 105 106 105 103 102 102 102 101 96 83 64 40 20 14 8 3 1 1 1 1 1 1 1 1 1 3 8 44 65 73 72 69 73 87 98 106 109 108 106 103 100 95 90 87 84 82 80 81 89 95 100 101 100 96 90 85 79 72 65 57 51 46 44 42 40 38 37 37 39 41 43 46 48 50 51 52 53 56 61 67 73 78 82 85 87 91 94 98 100 101 102 101 101 100 99 97 92 84 82 80 76 66 26 10 3 4 8 48 79 93 96 96 86 74 68 67 70 107 161 192 205 202 185 168 146 120 90 61 55 52 51 50 49 49 49 49 50 51 51 51 51 50 50 50 50 50 50 50 51 51 52 52 52 52 51 51 51 52 52 51 48 42 39 38 38 38 38 38 38 38 38 38 38 38 38 38 38 39 40 41 42 44 45 46 47 47 48 49 49 49 49 47 41 34 30 28 28 29 33 38 41 43 46 63 96 130 146 146 134 108 79 58 53 53 53 53 53 51 49 48 47 47 47 50 53 55 57 57 58 60 66 75 85 88 93 97 103 104 102 93 85 84 122 151 160 150 123 48 18 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 70 86 92 92 91 91 92 98 104 106 105 104 103 103 102 101 88 71 50 28 13 9 5 1 1 1 1 1 1 1 1 1 1 6 19 63 72 73 71 69 76 92 103 108 110 108 107 105 102 99 95 92 91 90 91 96 98 99 99 98 93 89 83 75 65 52 46 43 42 40 37 35 35 34 34 34 35 36 38 40 44 46 48 48 49 50 53 58 65 71 78 80 82 84 87 94 98 101 102 102 101 101 100 99 98 91 86 83 81 78 51 20 7 4 5 32 69 88 96 96 89 77 70 67 68 92 147 185 204 204 189 173 152 126 96 64 56 52 51 50 49 49 49 49 50 51 51 51 51 51 50 50 50 50 50 50 51 51 52 52 52 52 51 51 51 52 52 52 50 47 40 39 39 39 39 38 38 38 38 38 38 38 38 38 39 41 43 44 46 47 47 48 48 48 48 49 51 52 52 51 46 38 32 28 28 29 33 38 41 43 45 58 89 124 145 146 138 114 85 61 54 53 53 53 53 52 50 48 47 47 47 50 53 56 57 57 58 61 66 75 85 88 91 95 101 104 103 96 87 83 107 145 159 156 140 66 27 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 69 86 91 91 91 89 88 92 98 105 106 105 105 103 101 89 71 50 30 14 7 5 3 1 1 1 1 1 1 1 1 1 4 16 42 73 75 72 68 68 79 95 104 109 109 109 108 107 106 105 103 102 101 100 100 99 98 97 93 86 72 63 55 48 43 40 38 37 36 35 35 34 34 34 34 34 34 34 35 37 40 42 44 45 45 45 45 47 51 56 66 72 77 80 81 84 90 95 99 101 101 101 101 101 102 101 97 92 87 85 76 46 21 6 6 16 52 79 94 95 93 81 72 67 67 78 124 169 201 207 195 180 160 136 105 69 58 53 51 50 49 49 49 49 49 51 51 51 51 51 51 50 50 50 50 50 50 51 52 52 52 52 52 51 51 51 52 52 52 51 46 42 40 40 40 40 40 39 39 39 39 40 41 42 44 46 46 47 47 47 48 48 48 48 48 49 51 53 53 53 50 41 34 30 29 30 33 38 41 43 45 55 84 118 144 146 140 119 91 64 54 54 53 53 53 52 50 49 48 48 48 51 54 56 57 57 58 61 67 75 84 87 89 92 97 103 103 99 91 84 93 135 155 159 153 92 42 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 68 85 91 91 90 88 85 85 90 100 103 103 101 97 91 74 53 33 17 9 6 3 1 1 1 1 1 1 1 1 1 1 9 27 59 75 74 70 67 67 80 95 104 108 109 109 108 108 107 106 104 102 101 100 99 96 91 82 72 62 51 46 43 40 38 37 37 37 38 38 38 38 38 38 37 36 35 35 35 36 38 40 41 43 43 43 43 43 44 46 52 58 64 71 75 80 83 89 94 98 99 100 100 100 100 101 99 96 93 89 84 66 39 15 7 12 38 67 89 95 94 85 75 68 67 72 107 153 193 207 199 185 167 143 114 75 61 54 51 50 49 49 49 49 49 50 51 51 51 51 51 51 50 50 50 50 50 51 52 53 53 52 52 52 51 51 52 52 52 52 50 46 43 42 41 41 42 42 42 42 43 43 44 45 46 47 47 47 47 48 48 48 48 49 49 50 52 54 55 55 51 42 35 31 30 31 35 39 42 43 45 54 83 117 143 146 141 121 93 66 55 54 53 53 53 52 51 49 48 48 49 51 54 57 57 58 58 61 67 76 83 85 87 89 94 102 103 100 94 84 89 126 150 161 157 110 55 21 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 67 84 90 91 90 89 82 79 81 89 94 95 91 84 75 51 33 20 11 7 4 2 1 1 1 1 1 1 1 1 1 3 17 40 70 77 72 68 66 67 80 94 103 108 109 108 108 108 107 105 103 101 99 95 90 79 70 61 53 46 41 40 39 39 40 41 42 43 44 44 45 45 44 43 42 40 38 37 36 35 37 38 40 41 42 42 42 42 42 42 44 48 52 57 63 69 74 80 87 94 98 99 99 99 99 100 100 99 96 93 90 80 56 30 11 11 27 55 82 94 94 88 79 70 66 69 92 137 181 205 203 191 174 152 123 82 65 55 52 50 49 49 49 49 49 50 51 52 52 52 52 52 51 51 50 50 50 51 52 53 53 53 52 52 51 51 52 52 52 52 52 50 47 45 43 42 43 43 43 44 44 45 45 46 46 47 47 47 47 48 48 48 49 49 50 51 54 55 56 56 51 42 35 31 31 32 36 39 42 43 45 55 83 117 143 145 141 121 94 66 55 54 53 53 53 52 51 50 49 49 49 52 55 57 58 58 58 62 68 76 82 84 85 87 91 100 102 101 96 85 87 117 144 161 160 126 69 29 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 67 84 90 90 90 89 81 74 71 75 80 80 74 65 53 28 17 11 8 6 2 1 1 1 1 1 1 1 1 1 1 7 27 53 75 77 70 66 65 66 80 93 101 106 107 107 107 106 104 102 98 94 89 82 72 58 50 44 41 40 40 41 42 43 44 47 48 49 49 50 50 50 50 49 48 45 43 40 38 36 36 37 38 39 41 41 41 41 41 41 41 42 43 45 49 57 62 69 76 85 94 97 98 99 99 99 100 100 99 96 93 89 73 48 18 12 19 44 72 92 93 91 82 72 66 67 81 119 166 202 205 195 181 160 132 90 69 58 52 50 49 49 49 49 49 50 51 52 52 53 53 53 52 51 51 51 51 51 52 53 53 53 53 52 52 51 51 52 52 52 52 52 51 49 47 45 44 44 44 45 45 46 46 46 47 47 47 48 48 48 49 49 50 50 51 54 56 57 57 57 51 41 35 32 32 33 37 40 43 44 46 58 86 119 143 145 140 120 93 66 55 54 54 53 53 52 51 50 49 49 50 53 56 58 58 58 59 62 68 77 81 82 83 84 87 98 101 101 97 87 86 109 138 160 161 139 83 39 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 66 83 89 90 90 89 81 71 64 62 63 58 50 39 26 17 14 10 7 4 1 1 1 1 1 1 1 1 1 1 2 12 37 63 78 77 68 65 64 65 78 90 98 103 105 105 103 102 99 95 86 76 66 56 48 43 42 41 41 41 45 46 48 49 49 49 50 50 50 51 51 52 52 52 52 50 48 45 42 39 36 36 37 38 40 40 41 41 41 41 41 41 41 41 42 44 47 53 60 69 84 92 96 98 98 99 99 100 99 99 96 94 87 68 32 15 17 33 59 87 93 92 85 76 67 66 73 103 146 195 205 200 188 169 143 99 75 61 53 51 50 49 49 49 49 50 51 52 53 54 54 54 53 52 51 51 51 51 52 53 53 53 53 53 52 51 51 51 52 52 53 53 52 52 50 48 47 46 46 46 46 46 46 47 47 48 48 48 48 49 50 50 51 52 53 56 58 58 58 57 48 39 34 32 32 34 38 41 43 44 47 61 91 122 143 144 138 118 91 66 55 54 54 53 53 53 51 50 50 50 51 54 57 58 58 58 59 62 69 77 80 80 81 82 84 95 100 101 98 89 86 102 132 158 162 149 97 49 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 66 82 88 89 89 90 87 74 60 53 49 41 35 30 24 17 14 9 4 2 1 1 1 1 1 1 1 1 1 1 4 22 50 74 80 75 67 63 63 63 71 79 84 87 88 87 81 76 70 62 53 48 45 44 43 43 44 45 47 49 49 49 49 49 49 49 49 50 50 51 52 52 53 54 54 54 54 52 49 46 41 38 36 36 37 39 39 40 40 40 40 40 40 40 41 41 42 43 45 48 60 75 87 95 98 99 99 99 100 99 98 97 95 85 64 23 20 25 42 74 92 92 89 82 70 66 68 85 119 175 206 204 195 180 158 114 86 67 56 51 50 49 49 49 48 49 51 52 53 54 55 55 55 54 53 52 52 52 52 53 54 54 54 53 53 52 51 51 51 51 52 52 53 53 53 53 52 51 50 49 49 48 48 48 48 49 49 49 50 51 52 52 53 54 56 59 59 59 57 53 43 37 34 34 34 37 41 43 45 45 50 70 101 129 144 144 134 112 85 63 55 54 54 54 54 53 52 51 51 51 52 56 58 58 59 59 59 63 70 77 78 78 78 78 80 91 98 100 98 91 85 95 124 154 162 156 114 65 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 65 81 87 88 88 90 88 79 66 54 49 42 37 32 27 19 15 9 3 1 1 1 1 1 1 1 1 1 1 1 9 33 59 78 81 74 66 62 61 61 65 69 72 72 71 68 62 58 54 50 47 45 44 44 45 46 47 48 48 49 49 48 48 48 48 48 48 48 49 50 51 52 53 55 56 57 57 55 53 50 46 42 39 37 36 37 38 38 39 39 40 40 40 40 40 41 41 41 42 43 48 56 68 82 93 98 99 99 100 100 99 98 97 92 82 39 27 25 35 59 88 91 90 85 74 66 67 76 102 154 200 204 200 188 169 127 96 74 59 52 50 49 49 49 48 49 50 52 53 55 56 56 56 56 55 53 53 53 53 53 54 54 54 54 53 52 51 51 51 51 51 52 52 53 53 53 53 53 52 52 51 51 51 51 51 51 51 52 52 53 53 54 55 56 58 59 59 58 55 49 39 36 35 35 36 40 43 44 45 46 54 80 110 135 144 143 129 105 80 61 55 54 54 54 54 53 52 52 52 52 54 57 58 59 59 59 59 64 70 77 77 76 75 76 77 88 96 99 98 92 85 92 120 150 163 159 125 76 31 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 65 80 86 87 87 89 89 84 73 59 52 47 41 36 32 22 16 8 2 1 1 1 1 1 1 1 1 1 1 2 15 43 67 81 82 73 65 61 60 59 60 61 61 60 58 55 51 49 47 45 45 45 45 46 47 48 48 49 49 48 48 48 48 48 47 47 47 48 48 49 51 52 54 55 57 58 59 59 57 55 50 46 43 40 37 37 37 38 38 39 39 39 39 40 40 40 40 40 41 41 43 46 54 65 80 93 97 99 99 100 99 98 98 96 92 59 36 28 32 46 82 88 90 87 79 67 66 70 88 129 191 202 202 195 179 141 108 82 64 54 50 50 49 49 48 49 50 51 53 55 57 57 57 57 57 55 54 54 54 54 54 54 54 54 54 53 52 51 51 51 51 51 52 52 53 53 53 53 53 53 53 53 53 53 53 53 53 53 54 54 55 56 57 58 59 60 58 55 50 44 37 36 36 36 38 42 44 45 46 48 63 92 119 139 144 141 122 97 74 59 55 54 54 54 54 53 52 52 52 53 56 58 59 59 59 59 60 65 71 76 76 74 74 73 74 85 94 98 97 93 85 90 115 145 163 161 135 88 39 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 64 79 85 86 86 89 89 87 80 66 57 53 48 43 39 27 17 8 2 1 1 1 1 1 1 1 1 1 1 3 22 53 74 83 83 72 65 61 59 57 56 55 54 52 50 48 46 46 45 45 45 46 47 48 48 49 49 49 49 49 49 48 48 47 47 47 47 48 48 49 52 54 55 57 58 60 61 61 61 59 54 50 47 43 40 37 37 37 38 38 39 39 39 39 39 39 39 39 40 40 41 42 44 50 62 82 92 97 99 99 99 99 98 98 96 78 49 35 32 38 72 85 89 88 83 69 66 67 78 105 176 197 204 200 189 155 122 93 70 57 51 50 49 49 48 48 49 51 53 55 58 58 59 58 58 57 56 55 55 55 55 55 55 55 55 54 52 51 51 51 50 51 51 51 52 53 53 53 53 53 54 54 54 54 54 54 54 55 55 55 56 58 59 59 60 59 56 51 45 40 36 36 37 38 41 44 45 46 48 52 75 105 128 142 144 137 113 88 68 57 55 54 54 54 54 53 53 53 53 54 58 59 60 60 59 59 60 65 71 76 76 73 72 71 72 82 93 97 97 93 85 88 111 141 163 162 143 98 48 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 62 78 83 84 85 87 89 89 85 76 64 60 56 52 45 33 19 9 2 1 1 1 1 1 1 1 1 1 2 5 30 62 79 85 84 71 65 61 59 56 52 51 49 47 46 46 45 45 45 45 47 48 48 49 49 50 51 51 51 51 49 49 48 47 47 47 47 48 49 50 54 57 59 60 61 62 62 63 63 62 60 55 50 46 44 40 38 38 38 38 39 39 38 38 37 37 37 38 38 39 40 41 42 43 45 63 81 92 97 99 99 99 99 98 98 91 63 44 34 35 60 80 88 89 87 73 67 66 71 85 156 190 203 203 197 169 136 105 79 61 52 50 49 49 48 48 49 50 52 54 58 59 60 60 59 58 57 57 56 56 55 55 55 55 55 54 53 52 51 51 50 50 50 50 51 52 52 53 53 53 54 54 54 55 55 55 55 55 56 57 58 59 59 59 59 56 51 45 41 38 37 37 39 41 44 46 46 47 51 59 90 119 136 144 143 130 102 79 62 55 55 54 54 54 54 54 54 54 54 56 59 60 60 60 59 59 61 66 72 75 75 72 70 70 70 80 91 96 97 94 85 87 108 136 163 163 150 108 57 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 60 75 81 82 82 85 88 89 88 83 72 66 62 58 52 39 21 9 2 1 1 1 1 1 1 1 1 1 3 9 43 72 84 86 85 71 65 62 59 56 50 48 47 46 46 46 46 46 46 47 49 49 50 51 51 52 52 52 52 51 48 47 47 47 47 48 50 52 55 58 60 61 61 62 62 63 63 64 64 64 63 61 57 51 47 44 42 41 41 40 39 39 38 38 37 37 37 37 38 38 39 40 41 42 42 44 55 72 88 97 98 98 99 98 98 96 82 59 41 38 47 71 84 88 88 80 70 66 67 72 120 169 196 206 204 186 157 125 95 71 55 52 50 49 49 48 48 49 51 53 57 59 60 61 61 60 60 59 58 57 57 57 57 56 56 55 54 53 52 51 50 50 49 49 49 49 50 50 51 52 52 53 53 53 54 55 55 56 57 57 58 58 58 57 53 47 43 40 39 38 39 41 43 45 46 47 48 51 61 78 112 133 142 143 139 112 86 68 57 55 55 55 55 54 54 54 55 55 56 59 61 61 61 60 60 60 62 67 73 75 74 70 69 68 69 77 89 95 96 94 85 86 104 131 162 164 156 119 69 21 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 57 73 79 80 80 82 86 88 88 86 78 73 69 65 59 45 25 10 2 1 1 1 1 1 1 1 1 1 5 14 52 77 86 87 85 71 65 62 60 56 50 48 46 46 45 46 46 47 48 49 50 50 51 51 52 52 51 51 49 48 47 46 47 48 49 53 55 57 58 59 60 61 61 62 62 63 63 63 63 63 63 63 60 57 52 46 44 43 42 41 40 40 39 38 37 37 37 38 38 38 39 40 41 41 42 42 46 55 69 88 97 98 98 98 98 97 90 70 50 40 44 63 78 87 88 83 73 67 66 68 98 149 184 202 206 196 172 142 110 82 60 54 51 49 49 48 48 49 50 52 56 58 60 61 62 62 61 60 60 59 58 58 58 58 57 57 55 54 52 51 50 49 49 49 48 48 49 49 50 50 51 51 52 52 53 54 54 55 56 56 56 55 52 49 46 43 41 40 40 40 42 44 45 46 47 48 51 60 76 97 127 138 142 138 129 96 75 62 56 55 55 55 55 55 55 55 56 57 58 60 62 62 61 60 60 60 62 68 73 74 73 70 68 68 68 76 88 94 95 93 84 86 102 128 161 165 159 126 79 27 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 55 71 77 78 77 78 85 88 88 87 81 77 74 70 65 48 26 11 2 1 1 1 1 1 1 1 1 2 7 18 60 80 88 89 86 72 66 63 61 58 51 48 46 45 45 46 46 47 48 50 50 51 51 51 51 51 50 49 47 46 46 48 49 51 54 56 58 59 59 60 60 60 60 60 60 60 60 60 61 61 62 62 61 59 55 50 47 45 43 42 41 40 39 38 38 38 38 39 40 40 40 40 41 41 42 42 43 46 55 70 90 96 98 98 98 98 94 79 60 43 44 56 72 85 87 85 77 69 65 65 82 127 167 196 206 203 185 159 128 96 68 58 52 50 49 48 48 48 49 50 54 57 59 61 62 63 62 62 61 60 59 59 59 59 59 58 57 55 54 52 50 49 49 48 47 47 47 47 48 48 49 49 50 51 51 52 52 53 52 52 50 49 46 44 43 41 41 41 42 43 44 46 46 47 48 50 59 75 94 115 136 140 138 130 113 81 66 58 55 55 55 55 55 55 56 56 57 59 60 62 62 62 61 60 60 60 63 69 73 74 72 69 68 68 68 75 87 93 94 93 84 85 100 125 160 166 161 133 88 33 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 52 68 74 75 74 75 82 87 88 88 84 81 77 73 68 48 25 10 2 1 1 1 1 1 1 1 1 3 9 23 66 83 90 90 87 73 66 63 62 60 53 48 46 46 45 46 46 47 48 49 50 50 51 50 50 49 47 47 46 47 48 51 53 56 57 58 58 58 58 58 57 56 55 55 54 54 54 55 55 56 58 59 59 59 57 53 49 46 44 43 42 41 40 39 39 39 40 41 42 42 42 42 42 42 43 43 42 43 45 52 77 90 96 98 98 98 97 86 69 48 45 52 67 81 87 86 80 72 66 64 71 104 147 185 204 207 196 175 146 113 78 64 55 51 50 49 48 48 48 49 52 55 58 61 62 63 63 63 62 62 61 60 60 60 60 59 58 57 55 54 51 50 49 48 47 46 46 45 45 46 46 47 47 48 48 48 48 48 47 46 45 43 42 42 42 41 42 43 44 45 46 47 47 48 50 58 75 94 113 130 140 138 131 117 95 68 59 56 55 55 55 56 56 56 57 58 59 61 62 63 63 62 61 60 60 60 64 69 73 73 71 69 68 68 68 75 86 92 94 92 84 84 98 123 159 167 163 138 96 40 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 49 64 70 71 71 72 79 85 88 88 85 82 79 74 67 45 22 8 2 1 1 1 1 1 1 1 1 3 10 26 72 86 91 91 88 74 67 64 63 61 55 50 47 46 45 46 46 47 48 49 50 49 49 48 47 46 46 46 47 50 54 56 57 58 58 58 57 55 54 52 49 48 47 47 46 46 46 47 47 48 51 52 54 56 56 55 51 48 46 44 43 42 41 40 40 40 42 43 44 44 44 44 45 45 45 44 43 43 43 44 57 78 91 97 98 98 97 91 77 54 46 49 62 77 86 86 83 75 67 63 66 84 123 167 200 208 203 189 165 133 92 72 60 53 50 49 49 48 48 48 50 53 56 60 62 63 64 64 63 63 62 61 61 61 60 60 59 58 57 55 53 51 49 48 47 45 44 44 43 42 42 42 42 42 42 42 42 41 41 41 41 41 41 41 42 43 44 45 46 47 47 48 48 50 54 75 97 115 129 138 139 132 118 99 76 59 56 55 55 56 56 56 57 58 59 60 61 63 63 63 63 63 61 60 60 61 66 70 73 73 70 68 68 68 68 74 85 91 93 91 83 84 96 121 158 168 165 143 104 47 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 46 58 64 65 65 66 74 81 86 87 85 81 77 69 58 35 16 5 1 1 1 1 1 1 1 1 1 4 14 33 76 87 92 92 90 76 68 64 63 63 59 54 49 46 45 45 45 46 46 46 46 46 46 46 46 47 50 53 55 57 58 57 57 55 52 49 47 45 44 43 43 42 42 42 43 43 43 43 43 43 44 45 46 47 47 48 48 48 46 45 43 43 42 42 42 43 43 44 44 44 44 45 46 48 52 51 49 46 43 43 44 57 75 90 97 98 98 94 83 60 47 48 58 71 85 86 85 79 71 64 63 70 96 134 178 207 208 202 187 161 118 91 71 59 52 49 49 49 48 48 48 50 53 56 59 63 64 64 64 64 64 63 63 63 62 62 61 60 58 56 54 52 50 49 47 45 44 43 42 42 41 40 40 40 40 40 40 40 40 41 42 42 44 45 46 47 47 47 47 48 49 50 54 64 82 110 124 133 137 138 128 112 93 75 60 56 55 56 56 56 57 58 59 60 61 63 64 64 64 64 64 62 61 60 60 62 67 71 73 73 69 68 68 68 68 74 84 90 91 90 83 83 95 119 157 169 166 149 113 56 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 43 53 58 60 60 60 66 75 81 83 82 78 71 61 48 25 11 3 1 1 1 1 1 1 1 1 2 6 16 37 79 88 92 92 91 79 69 64 63 63 61 58 54 49 47 46 46 46 46 46 46 46 47 48 51 54 56 57 57 57 54 51 49 47 45 44 43 42 42 42 42 42 42 42 42 42 43 43 43 43 44 44 45 45 46 46 46 45 45 44 43 43 43 43 43 44 44 44 45 45 45 45 46 49 55 58 57 53 48 44 43 48 62 80 94 98 97 94 84 63 47 48 56 68 83 86 85 81 74 66 62 66 81 110 155 195 205 207 198 180 140 110 86 68 57 51 50 49 48 48 48 48 50 52 55 59 62 63 64 65 64 64 64 64 64 64 63 62 61 59 56 54 52 50 48 46 45 44 43 42 41 41 41 41 41 41 42 43 44 45 46 46 47 47 47 48 48 48 48 49 52 60 73 90 109 128 133 136 136 130 109 91 75 63 57 55 56 56 57 58 59 60 61 62 63 64 65 65 64 64 63 62 61 61 61 63 69 72 73 72 69 68 68 68 69 74 84 89 91 89 82 82 94 118 156 169 167 152 118 62 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 41 48 52 53 53 51 56 63 70 73 72 67 59 48 35 14 6 2 1 1 1 1 1 1 1 1 2 7 18 39 81 89 93 93 91 81 70 65 63 63 63 61 58 55 52 49 48 48 48 49 50 51 53 54 56 57 56 55 53 50 47 46 44 43 42 42 41 41 41 41 42 42 42 42 42 42 43 43 43 43 43 44 44 45 45 45 45 45 44 44 44 44 44 44 44 44 45 45 45 45 46 47 49 52 58 65 65 63 57 49 44 45 53 67 87 96 96 94 85 64 47 48 54 66 81 86 86 83 77 69 63 63 71 91 129 178 198 207 206 196 163 132 104 81 64 54 51 50 49 48 48 48 48 50 52 56 59 61 63 64 64 64 64 64 64 64 64 64 63 62 59 58 56 54 52 50 48 47 46 45 45 44 44 44 45 45 46 46 47 47 48 48 48 48 48 48 48 49 51 56 67 83 99 114 127 136 136 133 125 112 89 74 64 57 55 56 57 57 58 59 61 62 63 64 65 65 65 65 64 64 63 62 61 61 61 65 70 72 73 72 68 68 68 68 69 73 83 88 89 88 81 82 93 118 156 170 168 155 124 68 14 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 40 43 45 46 46 42 43 47 51 53 53 48 40 30 20 5 3 1 1 1 1 1 1 1 1 1 2 7 19 42 83 90 93 93 91 83 72 65 62 62 63 63 62 60 58 54 53 53 53 53 55 57 58 58 57 55 52 49 46 44 42 42 41 41 41 41 41 41 41 41 42 42 42 42 43 43 43 43 43 43 44 44 44 44 45 45 45 45 45 44 44 44 44 45 45 45 45 46 47 48 49 53 56 60 65 73 73 72 68 59 46 45 47 56 74 92 93 92 83 63 47 47 53 64 80 86 86 84 79 72 64 62 65 77 103 156 184 202 209 206 184 156 126 99 76 59 54 51 50 49 48 48 48 48 49 52 55 57 60 62 63 64 64 64 64 64 64 64 64 63 62 60 59 57 56 54 52 51 50 50 49 49 49 49 49 50 49 49 49 49 49 49 48 49 49 49 52 55 62 72 92 109 122 132 136 137 132 122 107 90 70 62 58 56 56 57 58 59 60 61 63 64 65 66 66 66 65 65 64 64 63 61 61 61 61 67 71 72 72 71 68 68 68 69 69 73 82 87 88 87 81 81 93 117 156 170 169 157 128 74 17 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 38 39 39 39 39 31 29 27 26 24 22 17 12 7 4 1 1 1 1 1 1 1 1 1 1 2 3 8 21 46 84 91 93 93 91 85 75 67 61 61 61 62 62 62 61 60 60 59 59 59 59 59 58 55 50 45 43 42 42 41 41 41 41 41 41 41 41 41 42 42 42 43 43 44 44 45 45 45 45 45 45 45 45 45 45 45 45 45 45 46 46 46 46 46 46 47 47 48 50 52 56 62 68 75 79 82 83 82 80 74 52 47 46 49 57 82 87 86 78 59 45 46 52 63 79 86 86 85 81 75 67 63 63 68 81 129 165 191 206 212 202 179 151 121 93 68 59 54 51 50 49 48 48 48 48 49 50 52 55 58 61 62 63 64 64 64 64 64 64 63 62 61 61 60 59 57 56 56 55 54 53 53 52 52 51 51 50 50 49 49 49 49 49 49 50 52 59 70 84 101 123 131 135 136 137 133 119 102 84 68 59 57 56 57 57 59 60 61 62 63 65 66 67 67 67 66 65 65 64 64 62 61 61 61 62 69 72 73 72 70 68 68 68 69 70 73 81 86 87 86 80 81 93 117 156 171 169 160 132 79 20 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 37 36 34 32 30 25 22 18 15 13 8 7 5 3 3 2 2 1 1 1 1 1 2 2 3 3 5 11 24 47 85 91 93 93 92 86 77 68 61 57 58 59 61 61 61 61 60 59 58 56 49 44 42 42 42 41 41 41 41 40 40 41 41 41 41 42 43 45 46 48 50 52 54 55 56 58 58 58 58 58 58 57 56 55 53 52 51 51 50 50 50 50 51 52 53 56 59 62 66 71 80 86 92 98 105 106 103 99 95 92 73 56 48 47 49 59 66 67 63 52 44 44 51 63 79 87 87 85 82 78 70 65 62 62 65 94 131 165 191 207 212 202 184 158 129 93 74 61 54 51 49 49 48 48 48 48 48 48 49 50 52 54 56 57 59 60 61 61 62 62 61 61 60 59 58 57 56 56 55 54 53 52 52 51 50 50 49 49 49 49 49 50 52 57 64 81 97 112 125 133 135 136 136 132 124 101 83 71 63 59 57 57 58 59 60 61 63 64 65 67 68 68 68 67 67 66 65 65 64 63 62 61 61 62 65 71 72 72 72 70 68 68 69 70 71 73 80 84 86 85 80 80 92 117 156 171 170 162 137 86 23 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 37 35 33 30 28 24 21 18 14 12 9 8 7 6 5 4 3 3 2 2 2 2 2 3 3 4 5 11 24 47 84 90 93 93 92 87 78 69 61 56 54 55 56 57 57 55 54 51 49 47 45 44 43 43 42 40 40 40 40 40 42 43 45 47 49 53 55 58 60 62 65 67 69 70 72 73 74 75 75 76 76 75 75 75 74 73 72 71 71 70 71 71 73 74 77 80 84 89 94 99 107 112 117 121 124 125 123 118 111 105 91 69 55 48 48 51 53 52 49 43 41 42 51 65 80 87 87 86 83 79 72 68 64 61 61 74 104 138 170 195 210 208 199 182 158 121 96 77 64 56 52 51 50 49 49 48 48 48 48 49 50 50 51 52 53 55 55 56 56 56 56 56 56 55 54 54 53 52 52 51 50 50 50 49 49 49 49 50 51 52 58 65 74 86 100 116 124 130 133 136 135 130 121 109 93 76 68 63 59 58 58 59 60 61 62 64 66 67 68 68 69 68 68 67 67 66 65 64 64 63 62 62 62 64 67 72 72 72 71 69 69 69 70 71 71 73 79 83 85 84 79 80 92 117 157 172 171 163 140 91 26 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 37 35 32 29 27 23 21 19 17 16 14 13 12 11 10 7 6 5 4 3 3 3 3 3 3 4 6 13 26 49 83 90 93 93 92 88 80 71 62 55 52 51 51 52 52 52 51 51 50 49 47 44 41 40 39 39 40 41 43 46 49 53 56 59 61 65 67 70 72 74 77 78 80 82 83 85 86 87 88 89 90 90 91 92 92 92 93 93 93 94 95 97 99 101 104 109 113 117 122 127 133 136 139 141 143 142 141 136 129 121 109 86 66 52 49 48 47 44 40 38 38 41 52 67 81 87 88 86 84 80 74 70 66 63 59 64 82 110 143 175 202 208 207 198 183 150 124 101 82 67 56 53 52 51 50 49 49 49 49 49 49 49 49 50 50 51 51 51 51 52 52 51 51 51 51 51 50 50 50 50 49 49 49 50 51 53 56 60 66 73 86 96 106 116 125 133 135 135 134 130 120 109 96 84 73 64 61 59 59 59 60 61 62 64 65 67 68 69 69 69 69 68 68 67 66 65 65 64 63 63 62 62 64 66 70 72 72 72 71 69 69 70 71 72 72 74 78 82 83 83 79 80 92 118 158 172 171 164 142 95 29 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 36 34 31 28 27 24 23 22 21 21 20 20 19 17 16 14 11 9 7 5 4 3 3 4 4 5 8 15 29 52 83 90 93 93 93 90 83 73 63 55 50 49 48 48 49 50 51 51 51 49 46 41 37 36 37 39 42 45 49 54 60 64 67 70 73 75 77 79 81 82 84 86 88 89 91 93 94 96 97 99 100 102 103 105 106 108 110 111 113 115 117 120 123 126 130 135 139 143 146 150 153 156 157 159 159 158 156 153 147 137 126 105 81 60 50 48 45 40 36 35 36 41 55 70 83 88 88 87 85 82 77 72 69 65 60 60 66 85 114 148 186 201 208 208 201 178 155 130 106 85 66 59 55 52 51 50 50 49 49 49 49 49 49 49 49 49 48 48 48 48 49 49 49 49 49 49 49 50 50 51 52 54 56 59 63 70 77 85 94 105 119 127 134 137 138 136 133 128 122 113 95 82 72 66 62 60 60 59 60 61 62 64 65 67 68 70 70 70 70 70 69 68 68 67 66 65 65 64 63 63 63 64 66 68 71 72 72 71 70 69 69 71 73 73 74 74 78 81 82 81 79 80 92 119 160 172 172 165 144 100 31 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 36 34 31 28 27 25 25 24 24 24 24 24 24 24 23 22 20 17 13 8 5 4 4 4 5 7 10 18 33 56 83 89 92 93 93 91 86 77 65 56 51 49 48 48 50 52 52 48 41 34 32 33 34 36 38 43 49 54 60 64 69 72 74 76 78 80 82 83 85 86 89 91 92 94 96 98 100 102 103 105 107 109 111 112 114 117 119 121 124 126 131 135 139 143 147 152 155 158 161 164 167 168 169 170 171 171 169 167 163 154 141 126 100 73 52 49 45 40 36 35 36 44 58 73 84 88 88 87 86 83 79 74 71 67 62 60 59 66 84 115 162 188 204 211 212 201 184 162 137 112 84 69 60 55 53 51 51 50 50 49 49 49 48 48 48 48 48 48 48 48 48 49 49 49 50 50 51 52 53 55 60 66 74 84 95 110 121 130 136 140 141 142 141 140 137 131 120 106 92 78 67 64 62 61 60 60 60 61 62 63 66 68 69 70 71 71 71 71 70 70 69 68 68 67 66 65 65 64 64 64 64 66 68 71 72 72 72 71 70 70 70 73 74 75 75 75 77 79 81 80 78 79 93 120 161 173 172 166 146 103 34 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 36 33 30 27 27 25 25 25 25 25 25 26 25 25 25 24 24 24 24 23 17 12 9 8 12 20 27 35 44 58 79 87 91 91 91 91 89 84 75 63 54 53 53 54 54 51 43 36 31 31 33 35 36 37 40 46 52 58 64 69 74 77 80 82 85 88 91 93 96 99 102 105 107 110 112 115 117 119 121 123 125 127 129 131 133 136 139 142 145 149 155 159 162 165 168 171 172 174 175 176 177 178 178 179 179 179 178 178 176 173 161 150 130 102 68 52 48 42 37 35 37 47 61 75 85 89 90 89 87 84 80 77 74 71 67 62 60 59 62 72 113 148 178 200 210 212 207 198 184 164 134 112 92 75 64 57 55 53 52 51 51 50 50 50 50 50 51 51 52 53 55 58 61 65 71 80 89 98 107 117 129 135 140 142 144 145 146 146 145 143 139 133 123 111 98 81 73 68 64 63 62 61 61 61 61 62 63 65 67 69 71 72 72 72 72 72 71 71 70 70 69 68 68 67 66 65 65 65 65 65 67 69 71 72 72 72 71 71 70 70 72 76 77 78 77 76 77 78 79 79 78 79 93 121 163 174 173 167 148 107 37 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 37 33 30 27 26 25 25 26 26 26 27 27 28 27 27 25 24 24 24 24 23 22 21 20 22 35 45 52 57 63 77 84 89 90 90 90 89 86 81 72 63 60 58 57 54 44 36 32 32 33 35 36 37 38 40 48 55 63 69 75 81 84 88 91 94 98 101 104 107 110 114 116 119 121 124 127 129 131 134 136 139 142 145 148 152 157 161 165 168 171 174 175 176 177 177 178 179 179 179 180 180 180 180 180 180 180 180 180 180 179 173 164 150 126 92 59 51 45 41 38 39 47 61 75 86 91 91 91 89 86 81 77 75 73 70 66 62 60 59 62 80 109 140 170 195 209 210 207 201 193 175 157 139 121 104 87 78 71 67 64 62 62 63 64 66 70 74 79 85 91 99 106 112 118 123 128 131 135 138 141 143 144 144 144 143 139 134 127 120 112 100 92 85 79 74 68 65 63 62 62 61 61 62 63 64 66 68 70 71 72 73 73 73 73 73 72 72 71 71 70 69 68 68 67 67 66 66 67 67 68 70 71 72 72 72 72 71 71 71 71 74 79 80 80 79 77 77 78 78 78 77 79 94 123 165 174 173 168 150 110 39 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 38 34 30 27 26 25 25 26 26 27 27 27 28 29 29 27 25 24 24 24 24 25 27 31 35 46 57 66 72 75 81 85 87 88 89 89 89 88 85 79 70 66 62 56 49 36 32 31 32 34 36 37 38 39 41 50 59 67 75 81 87 90 94 98 101 105 109 112 115 118 121 124 126 129 131 135 137 140 143 146 150 154 158 163 167 172 175 178 179 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 181 179 174 165 148 118 75 59 49 43 41 41 48 60 74 85 92 93 92 90 87 82 78 76 74 72 69 65 62 59 58 64 80 103 131 162 191 202 207 207 205 196 187 175 163 149 132 122 114 108 104 101 101 103 104 107 112 116 120 124 128 133 136 139 141 143 144 144 144 142 140 135 130 126 121 116 108 102 96 90 84 76 71 68 66 64 63 62 62 62 62 63 64 65 67 69 71 72 73 74 74 74 74 74 74 74 73 72 72 71 71 70 69 69 68 68 68 68 69 69 70 71 72 72 72 72 72 71 71 71 72 77 82 84 84 82 77 77 77 77 77 77 78 95 125 166 175 174 168 151 113 41 15 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 40 36 32 28 26 25 25 25 26 26 26 26 27 29 30 29 26 24 23 23 23 24 28 34 39 47 59 71 81 85 86 86 87 87 88 88 88 87 86 83 76 69 62 53 42 32 31 31 32 35 37 38 39 40 43 54 64 72 79 85 91 95 99 103 107 112 115 118 121 124 128 131 133 136 139 143 146 149 152 155 161 166 171 175 178 182 183 183 183 183 182 182 182 181 181 181 181 182 182 182 182 182 182 182 182 181 181 181 181 181 181 180 176 165 145 98 72 55 47 44 44 49 59 73 85 93 94 94 92 89 84 80 77 75 73 71 69 65 61 58 59 63 75 94 120 158 181 195 203 205 204 201 197 191 184 173 165 158 153 148 145 145 145 147 148 150 151 152 151 151 149 146 144 140 137 133 130 126 121 116 108 102 96 89 83 76 72 69 67 65 64 64 63 63 63 63 63 64 64 65 67 69 70 72 73 75 75 76 76 76 75 75 75 75 74 74 73 72 72 72 71 70 70 70 70 70 70 71 71 72 72 72 72 72 72 72 71 71 72 73 81 86 88 87 86 78 77 76 76 76 76 78 96 127 168 176 174 169 152 115 43 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 45 42 36 30 26 24 24 24 24 25 24 24 26 28 29 29 26 24 23 23 24 24 23 23 24 32 48 64 77 85 89 89 89 88 88 87 86 86 85 83 77 69 59 48 36 31 31 31 33 36 39 40 41 42 44 57 67 76 83 89 95 100 105 109 113 118 122 125 128 132 136 139 142 145 148 153 157 160 165 169 177 181 184 186 186 185 184 184 183 182 181 181 181 181 181 182 182 183 183 184 185 185 184 184 183 182 181 181 181 181 182 182 181 178 168 127 91 66 51 46 46 49 58 71 84 93 95 95 94 91 86 82 79 76 73 72 71 68 65 60 59 59 62 68 81 112 141 167 188 199 203 201 199 197 194 190 187 183 180 176 173 170 167 165 162 159 157 154 151 148 142 135 127 119 110 98 90 83 78 73 69 68 66 65 65 64 64 64 64 63 63 63 63 63 64 65 66 68 69 71 73 74 75 76 77 77 77 77 77 77 76 76 75 75 75 74 73 73 73 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 73 75 86 90 92 92 90 80 77 76 76 76 76 78 97 129 170 176 174 169 152 117 45 17 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 26 33 36 37 36 34 32 30 30 30 32 32 32 30 29 23 22 22 22 23 26 28 28 28 26 25 27 33 44 59 77 83 87 89 89 88 87 86 84 82 77 69 59 48 37 32 32 33 36 41 42 42 42 44 49 65 76 85 92 98 106 111 116 120 125 130 134 137 141 144 149 153 156 160 163 169 173 179 184 189 191 190 190 188 187 183 181 180 180 180 180 181 182 184 186 189 191 194 196 198 199 199 199 198 196 192 188 184 182 181 181 181 182 182 181 166 131 95 66 50 47 48 54 65 80 93 96 97 97 94 89 85 81 78 75 72 72 71 69 66 61 60 59 60 61 68 84 105 128 151 175 185 191 192 192 189 186 183 179 176 171 167 163 158 152 141 131 120 108 97 84 78 73 70 67 66 65 65 64 64 64 64 64 64 65 65 65 65 66 66 67 69 70 71 73 74 75 76 77 77 78 79 79 79 79 79 78 78 77 77 76 76 75 75 75 74 74 74 74 74 73 73 73 73 73 72 72 72 72 72 72 72 72 72 72 72 73 74 77 81 92 97 99 98 96 84 78 76 75 75 75 78 99 132 172 177 175 169 153 119 47 18 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 16 18 19 20 21 21 21 21 22 22 22 22 22 22 21 21 21 23 25 29 34 36 36 36 35 30 29 29 33 37 46 53 61 70 79 86 87 86 85 83 78 72 63 52 41 37 38 41 44 45 43 42 43 47 56 73 83 91 98 104 112 117 121 126 130 136 140 144 148 151 156 160 163 168 172 179 184 188 191 192 192 189 186 183 180 179 179 179 180 182 185 188 190 193 196 200 203 205 207 209 210 211 211 210 209 206 202 197 192 186 182 181 182 182 182 177 157 126 92 62 49 49 52 60 74 90 96 99 99 98 92 87 83 79 76 73 72 72 71 69 65 63 61 59 59 61 67 76 89 104 125 138 149 158 164 166 166 163 159 154 145 136 127 117 107 96 89 83 79 75 71 70 68 68 67 67 68 69 69 70 71 72 72 73 74 74 75 75 76 77 77 78 78 79 79 80 80 80 80 81 80 80 80 80 79 79 78 78 77 77 76 76 75 75 75 75 74 74 74 74 74 73 73 73 73 73 73 73 73 73 73 72 72 72 73 73 75 78 81 86 97 103 104 104 101 87 80 76 75 74 75 78 100 134 173 178 175 170 154 120 48 18 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 19 19 19 19 19 20 20 20 20 20 20 20 21 22 23 25 27 30 34 37 41 42 43 42 42 38 35 33 32 31 34 37 42 49 57 65 72 78 82 82 80 76 70 63 53 50 51 52 51 47 43 42 46 53 66 81 89 97 104 110 117 122 127 132 136 143 147 151 155 159 164 167 172 178 183 189 192 193 194 192 187 182 179 178 176 178 180 183 185 188 191 194 197 200 203 207 210 212 214 215 217 217 217 217 216 215 212 208 203 197 188 184 182 182 182 181 173 153 122 86 56 51 50 55 65 85 93 98 100 100 96 90 85 81 77 74 73 72 71 70 68 66 64 61 59 58 60 63 68 75 87 97 106 115 122 127 127 125 121 116 107 99 92 86 80 74 72 70 70 70 71 72 73 74 75 76 77 77 78 79 79 80 80 81 81 81 82 82 82 82 83 83 83 83 83 82 82 82 82 82 81 81 80 80 79 78 78 78 77 77 76 76 76 75 75 75 75 75 74 74 74 74 73 73 73 73 73 73 73 73 73 73 73 73 74 75 78 82 87 92 103 108 110 110 107 91 82 77 75 74 74 78 101 136 175 179 175 170 154 121 49 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 29 28 28 27 26 26 25 25 25 25 25 26 27 28 30 33 37 40 42 45 46 47 47 47 47 46 43 40 38 35 34 34 33 34 37 42 51 62 70 73 75 76 74 70 64 61 59 57 52 46 42 45 52 63 76 89 96 103 110 116 123 129 134 139 144 150 154 159 163 167 172 177 183 189 193 196 196 194 191 186 179 175 174 175 177 181 184 188 191 193 196 199 202 205 209 213 215 216 218 219 219 220 220 220 220 220 219 216 213 209 199 190 185 183 182 182 181 171 151 118 72 58 51 52 57 76 88 96 101 102 100 95 89 83 78 75 74 73 72 71 70 69 67 64 61 59 59 59 60 61 64 68 73 78 84 88 88 86 84 80 74 71 70 69 69 70 71 72 73 75 77 79 81 82 83 84 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 84 84 84 83 83 82 82 81 81 80 80 79 79 78 78 77 77 77 76 76 76 76 75 75 75 75 75 75 74 74 74 74 73 73 73 73 73 73 74 74 74 75 76 78 82 87 93 98 109 114 116 116 113 96 84 78 75 74 74 78 103 139 176 179 175 170 154 122 50 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 38 38 38 37 37 36 36 35 35 35 35 36 37 39 40 43 45 46 47 48 50 50 50 50 50 49 48 46 44 42 39 37 35 34 34 34 35 37 42 48 59 65 66 65 63 58 52 46 42 40 42 51 64 76 86 96 103 110 117 123 130 136 141 147 152 158 163 167 171 175 182 188 194 198 199 198 195 189 182 173 172 172 174 177 183 189 190 192 193 194 198 201 205 210 213 217 219 220 220 221 221 221 221 221 221 221 222 221 219 216 210 202 193 185 183 183 182 181 172 153 101 72 56 50 51 63 80 92 99 103 103 100 94 87 80 76 74 73 72 71 71 71 70 68 65 61 59 59 59 60 60 61 62 63 64 65 65 65 65 65 65 66 67 69 71 74 77 79 81 83 84 85 85 86 86 86 86 86 86 86 86 86 86 86 86 85 85 85 85 85 85 85 84 84 84 83 82 82 81 80 80 79 79 78 78 78 77 77 77 77 76 76 76 76 76 76 76 76 76 75 75 75 75 75 75 75 75 75 75 75 75 76 77 78 79 83 88 94 100 105 114 120 122 122 120 101 87 79 75 73 74 78 104 141 177 180 176 170 155 122 50 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 51 51 50 50 50 49 49 49 49 49 49 49 50 51 52 54 55 56 57 58 60 60 60 60 60 59 57 56 54 52 50 48 46 44 42 39 38 37 37 37 38 39 39 39 39 39 39 40 42 46 61 72 81 89 95 106 113 120 126 131 139 145 150 155 161 167 171 176 180 186 195 200 201 201 199 190 177 170 167 168 172 179 184 188 190 191 191 192 193 196 203 209 213 216 218 219 219 219 218 216 213 213 213 214 216 219 221 222 223 223 219 215 207 198 188 183 183 183 181 177 147 110 79 58 50 51 62 77 91 100 104 104 102 97 90 80 76 74 72 72 71 71 71 70 69 67 64 63 61 61 61 60 60 60 61 61 62 63 64 65 68 71 73 75 76 77 76 75 73 70 67 66 66 67 68 69 71 74 77 79 81 81 82 82 83 83 83 83 83 83 82 82 82 82 81 81 80 80 80 79 79 79 78 78 78 78 78 78 78 79 79 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 79 80 80 80 81 82 83 84 87 92 97 103 109 113 121 127 129 130 128 110 93 82 76 73 74 79 106 144 178 180 176 170 155 123 51 20 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 60 60 60 60 59 59 59 59 58 58 59 59 59 60 61 62 63 64 65 65 66 67 67 67 66 65 64 63 61 60 58 56 55 53 51 49 48 46 45 43 43 43 43 43 44 46 48 52 58 65 76 83 90 97 104 114 121 127 132 138 146 152 157 162 168 174 179 184 190 197 201 202 201 196 186 171 168 167 168 173 183 186 188 189 190 189 189 191 194 200 207 211 214 216 217 215 212 208 203 199 196 194 195 196 198 203 209 215 219 222 222 220 216 208 199 187 184 183 182 181 169 141 109 80 58 50 54 63 76 92 102 103 103 101 97 88 82 77 74 72 71 71 71 70 70 69 68 66 65 64 62 61 61 61 61 62 63 65 67 70 73 74 74 73 70 65 61 57 54 52 50 49 48 47 47 49 50 52 54 56 62 66 71 74 77 79 80 81 81 81 81 81 81 81 81 80 80 80 80 79 79 79 80 80 81 82 82 83 84 85 86 86 86 87 87 87 87 88 88 87 87 87 87 86 86 86 86 86 86 86 87 88 89 91 95 99 105 110 115 118 124 131 134 135 134 117 98 84 77 73 74 79 108 145 179 180 176 170 155 123 51 20 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 70 70 69 69 69 69 68 68 68 68 68 68 69 69 70 71 71 72 72 73 73 73 73 73 73 72 71 70 69 67 65 64 63 61 60 58 57 56 55 53 52 52 52 53 55 58 62 66 72 78 86 92 99 106 113 122 128 134 139 145 153 159 164 170 174 181 187 193 198 203 203 200 191 181 171 163 165 170 176 182 188 189 189 188 186 186 187 191 196 202 209 211 213 213 211 206 200 195 190 186 184 184 185 186 189 194 198 204 210 216 222 223 221 217 209 196 188 185 183 183 179 163 138 107 77 55 52 54 63 77 95 100 102 102 100 95 89 84 79 75 72 72 71 71 70 70 69 68 67 66 64 63 62 62 63 65 67 69 71 73 74 72 69 65 61 57 55 53 53 52 52 53 53 52 51 49 47 45 44 44 47 50 54 57 61 67 70 74 76 78 79 80 80 80 80 80 80 80 80 81 81 82 83 84 86 88 89 90 91 92 93 94 94 94 95 95 95 95 95 95 95 95 94 94 94 93 93 93 93 93 94 95 97 99 102 106 111 115 119 122 127 134 138 140 139 125 103 88 78 74 74 80 109 147 180 181 176 170 154 123 51 20 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 79 79 79 79 79 78 78 78 78 78 78 78 78 78 79 79 79 80 80 80 81 81 80 80 80 79 78 77 76 75 73 72 71 70 69 68 67 66 65 64 64 64 65 66 68 72 75 80 84 89 95 102 109 115 122 129 135 141 146 152 160 166 171 177 181 189 195 201 205 205 200 190 177 165 160 163 170 178 185 189 189 188 186 184 183 183 186 191 198 204 208 210 210 208 203 195 189 184 180 178 178 180 181 183 186 189 192 195 200 207 218 222 223 222 218 206 195 188 185 184 183 178 162 137 105 69 57 51 53 61 83 94 99 101 101 99 95 91 86 81 76 74 73 72 71 71 70 70 69 68 66 66 66 66 67 70 72 74 74 74 71 66 61 57 54 53 54 55 57 59 62 64 66 67 66 62 58 53 48 44 41 40 40 42 45 51 56 61 65 69 72 74 76 77 78 79 80 80 81 82 83 85 87 89 91 94 95 97 98 99 100 101 101 102 102 103 103 103 103 103 102 102 102 102 101 101 101 100 101 101 101 102 104 106 109 113 116 120 123 125 129 137 142 144 144 133 110 92 79 74 74 80 110 149 180 181 176 169 154 123 50 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 89 89 88 88 88 88 88 87 87 87 87 87 87 87 87 88 88 88 88 88 88 88 88 87 87 86 85 84 83 82 81 80 79 78 77 76 76 75 75 75 75 75 76 78 80 83 86 90 94 99 107 113 119 124 129 137 142 148 153 159 167 173 178 183 188 198 204 206 206 204 188 168 159 157 159 171 182 188 190 189 187 183 181 180 180 181 185 192 198 204 206 206 205 201 196 187 182 178 176 176 177 179 181 183 186 189 192 195 198 200 209 217 222 224 223 216 205 195 187 184 184 183 177 163 137 93 70 55 49 51 64 82 94 99 99 98 96 94 92 88 83 80 76 74 73 72 71 71 71 70 70 71 72 73 75 76 76 75 74 71 62 56 53 52 52 53 53 55 56 59 63 67 72 76 80 82 80 75 68 59 48 42 39 37 37 38 39 42 45 50 57 62 66 70 73 76 78 80 81 82 84 87 89 92 95 98 99 101 102 103 104 105 106 107 108 108 109 109 109 109 109 109 108 108 108 108 107 107 107 108 108 109 110 112 114 117 119 122 125 128 131 139 145 149 149 141 117 97 81 75 75 81 111 150 181 181 176 170 154 122 50 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101 101 101 101 101 101 100 100 100 100 100 99 99 99 99 99 99 99 99 99 98 98 98 97 97 96 95 94 93 92 91 90 90 89 88 88 87 87 87 87 88 89 90 92 94 98 101 105 109 113 119 124 129 134 140 147 152 157 163 169 177 182 187 193 200 207 208 206 198 182 154 153 155 161 176 189 190 190 188 183 178 178 179 179 179 181 186 192 199 202 203 203 200 195 187 178 174 172 172 174 178 182 187 192 195 198 199 199 200 201 204 209 216 222 224 223 217 207 197 187 184 184 183 179 170 135 104 78 59 49 50 59 74 88 96 95 94 94 92 91 89 87 85 83 81 79 78 78 77 77 77 78 78 78 78 77 75 71 65 57 52 51 51 52 52 52 53 53 53 53 57 63 71 78 85 91 92 91 87 81 71 63 56 49 44 39 38 38 38 39 40 42 45 49 53 60 66 71 75 79 83 86 89 92 95 99 100 102 103 104 106 107 108 109 110 111 112 112 112 113 113 113 113 113 113 112 112 113 113 113 114 115 115 116 118 120 121 124 127 130 133 141 148 153 154 149 128 105 85 76 75 82 113 152 182 182 176 170 154 121 48 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 111 111 110 110 110 110 110 109 109 109 109 108 108 108 108 107 107 107 107 106 106 105 105 104 103 103 102 101 100 99 98 98 97 96 96 96 96 96 97 98 99 100 102 104 108 111 114 118 122 128 133 138 143 147 154 159 164 170 176 183 188 194 201 207 208 206 193 176 157 150 154 165 178 187 190 189 186 181 178 177 177 177 178 178 180 187 193 198 201 202 201 196 189 180 173 171 171 174 178 188 196 202 207 211 213 213 212 210 207 206 209 213 218 223 225 222 215 206 195 186 185 184 183 179 160 133 105 80 61 49 52 59 71 84 92 92 91 90 88 88 87 86 85 83 82 81 81 80 80 80 80 79 79 78 74 69 63 57 52 51 51 51 52 52 52 52 53 53 53 56 61 68 77 87 96 100 100 98 93 84 76 68 61 54 48 45 42 41 39 40 41 43 46 49 55 61 66 71 76 81 85 89 92 95 99 101 102 104 105 107 108 110 111 112 113 113 114 114 114 114 114 114 114 114 114 114 114 114 115 115 116 117 118 119 121 122 125 129 132 136 142 150 156 158 155 136 112 89 77 76 82 114 153 182 182 176 170 153 119 47 18 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 120 120 120 120 120 120 119 119 119 119 118 118 118 117 117 116 116 116 115 115 114 114 113 112 112 111 110 109 108 108 107 106 105 105 105 104 104 105 105 106 107 108 110 112 114 117 121 124 128 132 137 141 146 150 155 161 166 171 177 182 189 196 202 207 209 206 191 173 157 147 153 166 178 187 191 189 185 180 177 176 176 176 177 178 178 181 188 194 198 200 200 197 191 183 175 171 171 173 179 187 200 208 214 219 222 223 223 221 220 217 212 211 213 216 221 225 224 220 214 204 191 187 185 184 183 175 157 133 106 81 58 52 52 58 69 82 87 87 86 85 84 84 84 84 84 83 82 82 81 81 81 80 78 77 74 67 61 56 52 50 50 50 51 51 51 51 51 52 53 53 55 60 67 77 87 100 105 107 106 103 94 86 78 70 63 56 52 48 46 44 43 43 43 45 48 54 59 64 69 74 80 85 89 92 96 99 102 104 106 107 110 111 113 114 115 116 117 117 117 117 117 117 116 116 116 116 116 116 116 116 117 118 118 119 120 123 124 127 131 135 139 144 152 159 162 159 145 120 94 78 77 83 115 153 182 182 177 170 153 118 46 17 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 130 130 130 129 129 129 129 129 128 128 127 127 127 126 126 125 125 124 123 123 122 121 121 120 119 118 117 117 116 115 114 114 113 113 113 113 113 113 114 114 116 117 119 121 123 127 130 133 137 140 145 149 153 157 162 168 173 178 184 188 196 203 208 210 208 194 169 153 145 149 164 180 188 190 189 184 179 176 175 175 176 177 177 178 179 182 188 194 197 198 197 193 186 178 171 170 172 178 187 199 212 219 224 226 228 228 228 228 227 225 220 216 215 216 219 224 225 224 220 212 198 190 187 185 185 183 174 157 134 107 76 60 53 52 55 69 77 81 82 81 79 79 79 80 80 81 81 81 81 80 79 77 75 71 67 58 53 51 49 49 50 50 49 49 48 49 50 52 53 53 55 59 67 77 88 102 109 113 113 111 102 94 86 78 71 63 58 55 52 50 48 47 47 48 50 55 60 65 69 74 80 85 89 93 97 101 103 106 108 110 113 115 116 118 119 120 121 121 121 121 120 120 120 119 119 118 118 118 118 118 119 120 120 121 123 126 127 130 133 138 143 147 154 161 165 164 152 128 100 80 78 84 115 154 183 182 177 170 152 116 44 17 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 139 139 139 139 139 139 138 138 138 137 137 136 136 135 135 134 133 132 132 131 130 129 128 128 127 126 125 124 123 123 122 122 121 121 121 121 121 121 122 123 125 126 128 130 132 136 139 142 145 149 153 157 161 165 168 174 180 185 190 194 205 210 211 209 204 164 147 142 146 158 185 190 191 189 185 177 175 175 175 175 176 178 179 180 181 183 188 193 196 196 195 190 182 174 169 170 174 184 197 210 222 226 228 229 229 230 230 229 229 229 228 223 220 218 219 223 225 225 224 219 206 196 189 186 185 185 183 175 159 136 101 78 62 53 50 55 62 70 75 75 73 71 70 70 72 75 77 78 78 78 75 72 67 62 56 50 49 48 48 49 49 48 47 46 46 46 49 51 52 53 55 59 67 78 90 105 113 118 119 117 109 102 94 86 78 69 64 60 57 55 54 54 55 56 57 60 63 67 71 75 81 86 90 94 98 103 105 108 111 113 116 118 120 121 123 124 125 125 125 125 125 125 124 124 123 123 122 122 122 122 122 123 124 125 126 129 131 134 137 142 147 150 156 163 167 167 160 136 106 82 80 85 116 155 183 182 177 170 152 114 43 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 152 152 152 152 151 151 151 151 150 150 149 149 148 147 147 145 145 144 143 142 141 140 139 138 137 136 135 134 133 133 132 132 131 131 131 131 132 132 133 134 136 138 140 142 144 147 150 153 156 159 163 167 170 173 177 184 188 193 198 206 212 212 208 194 162 138 138 148 165 186 191 190 187 182 176 174 174 175 176 179 182 183 183 183 183 184 188 192 194 195 193 185 176 170 169 171 182 197 211 223 229 229 229 230 230 230 230 230 230 230 229 228 226 223 221 223 225 226 226 224 216 206 196 189 186 186 186 184 179 168 141 116 92 72 57 49 50 53 57 64 68 67 65 62 60 57 58 59 60 60 59 58 55 52 49 47 47 47 47 47 46 44 43 43 43 45 48 51 53 53 55 61 70 81 93 109 117 123 125 124 117 109 101 93 85 76 70 66 63 62 61 62 63 64 66 69 71 73 76 79 84 89 94 98 102 106 109 112 114 117 120 122 123 125 126 127 128 128 129 129 130 130 130 130 129 129 129 129 129 129 130 130 131 132 134 137 139 142 144 149 154 156 160 165 170 170 166 146 116 86 82 88 118 155 183 182 177 169 150 111 40 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 161 161 161 161 161 161 160 160 160 159 159 158 157 156 156 154 153 152 151 150 149 148 147 146 144 143 142 141 141 140 139 139 139 139 139 139 139 140 141 142 144 146 148 150 152 156 158 161 164 166 170 173 176 180 184 190 194 199 206 212 213 209 191 165 141 136 148 165 181 190 190 186 181 177 175 174 175 178 182 186 187 187 185 184 183 184 188 191 193 193 191 181 173 169 168 174 190 206 219 226 229 229 229 229 229 229 229 229 229 230 229 229 228 226 224 224 225 226 226 225 220 212 203 194 188 186 186 186 184 180 163 144 122 100 79 60 54 52 53 56 59 60 60 59 58 55 53 52 50 49 48 48 47 46 45 45 46 46 46 45 43 42 41 41 42 46 49 51 53 54 56 63 73 85 97 113 121 127 130 129 121 113 105 96 87 78 73 69 67 66 66 67 68 70 71 73 74 76 79 82 88 93 97 101 105 109 112 114 117 120 122 124 126 127 128 130 130 131 131 131 132 132 132 132 132 133 133 134 134 135 135 137 138 139 140 143 146 149 151 155 160 162 164 168 172 172 170 152 124 91 85 90 119 156 183 182 177 169 149 108 38 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 171 171 171 171 170 170 170 170 169 169 168 167 166 166 165 163 162 161 160 158 157 156 154 153 152 151 150 149 148 148 147 147 146 146 146 147 147 148 149 150 152 154 156 158 161 164 166 169 171 173 177 180 183 186 191 195 200 206 212 214 211 193 167 144 133 144 164 180 189 190 186 181 177 175 174 175 179 185 190 193 193 192 188 185 184 184 188 190 192 192 189 178 171 168 168 178 198 213 224 228 229 229 229 229 229 229 229 229 229 229 229 229 229 228 226 225 226 226 226 226 223 218 209 200 192 187 187 187 186 185 178 165 148 128 107 82 68 59 54 53 54 56 56 57 56 54 52 49 47 46 44 43 43 42 42 43 43 43 43 42 41 41 41 41 43 47 50 52 53 54 58 67 77 89 102 117 127 133 135 134 125 116 107 98 89 80 75 72 70 70 70 71 72 74 75 76 77 79 82 86 92 97 101 104 107 112 115 117 120 123 125 127 129 130 132 133 133 134 134 134 135 135 135 135 135 136 137 138 138 139 141 142 143 145 147 150 153 155 158 161 166 167 169 171 174 174 172 158 132 96 87 92 121 157 183 182 177 169 147 105 36 13 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 180 180 180 180 180 180 180 179 179 178 177 177 176 175 174 172 171 169 168 167 165 163 162 161 159 158 157 156 155 155 154 154 154 154 154 154 155 155 157 158 160 162 164 166 168 171 174 176 178 180 184 186 189 193 196 201 207 212 215 214 201 169 145 133 136 161 180 189 190 188 180 177 175 174 175 179 186 193 199 200 200 197 191 185 183 184 187 190 191 191 186 175 169 167 168 184 205 219 227 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 228 227 227 227 227 227 225 221 215 207 198 189 188 187 187 187 186 180 169 155 136 109 91 75 64 57 54 53 54 54 54 54 52 50 48 46 44 42 41 40 40 40 41 41 41 41 40 41 41 42 45 49 52 53 54 55 61 72 83 94 106 123 133 139 141 138 129 118 108 98 89 80 76 74 73 73 73 74 75 76 77 78 80 83 86 91 96 100 104 107 110 115 118 121 123 126 129 131 132 134 135 136 137 137 138 138 138 138 138 138 139 140 140 141 142 144 145 147 149 150 152 156 159 161 164 167 171 173 174 175 176 176 175 163 140 102 91 95 123 158 183 182 177 168 146 101 33 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 190 190 190 190 190 189 189 189 188 188 187 186 185 184 183 181 180 178 177 175 173 171 169 168 166 164 163 162 161 161 160 160 160 160 160 160 161 162 163 165 167 170 172 174 176 179 181 183 185 187 189 192 195 199 201 208 214 216 215 213 174 142 131 135 149 184 189 190 188 182 176 174 173 174 177 187 196 203 207 208 207 201 193 185 183 183 187 189 190 189 184 173 167 167 169 191 212 223 228 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 228 228 228 227 227 226 224 219 213 204 192 189 187 187 187 188 187 183 175 163 140 121 102 85 70 59 53 51 51 52 52 52 51 50 48 45 43 42 41 40 40 40 40 40 40 41 41 43 45 48 51 53 54 55 56 66 78 89 100 112 130 141 146 146 143 131 119 108 97 88 80 77 76 75 75 76 76 77 77 78 80 83 87 91 96 101 104 107 111 114 118 121 124 127 129 132 134 135 137 138 139 140 140 141 141 142 142 143 143 144 145 145 146 147 148 150 151 153 155 157 160 163 166 169 172 176 178 178 178 178 178 177 168 146 108 94 99 126 160 184 182 177 167 144 97 30 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 202 202 202 202 202 202 202 202 201 201 200 199 198 196 195 193 191 189 188 186 184 182 180 179 177 176 175 174 173 172 172 171 171 171 171 172 173 174 175 177 179 181 183 185 186 189 190 192 193 195 197 200 203 206 210 217 217 216 208 185 133 129 136 154 183 191 190 186 181 175 172 172 175 181 190 202 208 212 215 215 214 205 194 185 182 183 185 187 188 188 181 171 166 166 170 199 217 226 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 228 228 228 227 225 223 219 213 201 193 189 188 188 188 188 188 187 183 172 158 143 126 108 87 75 64 57 53 53 52 52 51 51 50 48 47 46 44 43 43 43 43 43 45 46 48 50 51 53 54 55 57 61 77 89 99 109 122 143 153 156 154 147 131 117 104 93 85 79 77 76 76 77 77 78 78 80 82 87 91 95 98 102 106 109 112 116 119 124 127 129 132 134 137 138 140 141 142 143 143 144 145 146 147 148 149 150 151 153 154 155 156 157 159 160 161 163 164 167 169 171 173 176 181 182 182 182 181 180 179 173 154 117 100 104 130 162 184 181 177 166 140 91 26 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 212 212 212 212 212 212 212 212 211 211 210 209 207 206 205 202 200 198 196 194 191 188 186 184 182 180 179 178 177 177 177 176 176 176 177 177 178 179 181 182 185 187 189 190 192 194 196 198 199 201 204 207 209 212 215 218 218 209 189 149 128 134 153 175 189 190 187 181 176 171 171 175 182 190 199 208 212 215 216 217 215 206 195 186 182 182 184 186 187 186 180 169 165 166 171 203 220 227 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 227 226 224 221 217 207 199 193 189 188 188 188 189 189 188 184 176 166 154 139 118 104 90 78 68 59 56 54 53 52 51 50 50 49 48 47 47 47 47 48 48 49 50 52 53 54 54 56 62 71 87 97 106 118 133 156 162 163 158 147 127 112 100 90 83 78 77 77 77 78 79 80 83 85 88 93 96 99 102 106 110 113 117 120 124 128 131 134 136 138 140 142 143 144 145 146 147 148 149 151 152 154 155 156 158 159 160 162 163 164 165 167 168 169 170 172 174 175 176 178 182 184 184 184 183 182 181 175 159 123 105 109 134 164 184 181 176 164 137 86 24 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 221 221 221 222 222 222 222 222 221 221 220 218 217 215 214 211 209 207 205 203 200 197 195 192 190 187 186 184 183 183 182 182 182 182 182 183 185 186 188 190 193 195 197 199 200 202 204 205 207 208 211 213 215 216 218 219 214 192 162 132 130 150 171 187 191 188 182 176 171 169 173 181 190 199 206 212 215 216 217 217 216 207 196 186 182 182 184 185 186 185 179 168 164 165 172 206 221 228 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 228 226 224 223 220 213 205 198 192 189 188 188 189 190 190 190 187 182 174 164 147 133 119 105 92 77 70 64 59 56 53 52 51 51 50 50 50 50 50 50 51 51 52 53 54 55 57 62 71 83 97 105 116 130 148 168 171 168 159 144 121 106 95 86 81 78 78 78 79 81 83 86 88 91 94 98 101 104 107 110 115 119 122 126 129 133 135 138 140 142 144 145 146 148 149 151 152 153 155 157 159 160 162 163 165 166 168 169 170 171 172 173 174 175 176 177 178 179 180 181 184 185 186 186 185 183 182 178 162 129 110 114 137 166 184 181 176 163 133 81 21 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 231 231 231 231 232 232 232 232 231 231 230 229 227 225 223 220 218 215 213 210 207 205 203 200 198 195 193 192 190 189 189 188 188 188 189 191 192 194 197 199 202 204 205 207 208 210 211 212 213 214 216 217 218 219 219 217 201 169 138 127 143 170 185 190 189 184 176 171 168 170 179 189 198 205 210 214 216 217 218 218 216 208 197 187 182 181 183 184 184 184 178 168 163 165 172 208 222 228 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 230 230 230 230 229 228 226 225 223 222 217 211 204 197 191 188 188 189 189 190 192 192 190 188 183 171 160 147 134 120 103 91 81 73 66 60 57 55 53 52 52 52 51 52 52 52 53 54 54 55 58 64 73 83 94 105 114 128 145 165 179 178 170 157 138 114 100 89 83 79 78 79 81 83 85 89 92 95 97 100 103 106 109 112 116 121 124 128 131 134 137 140 142 144 145 148 149 151 152 154 156 158 160 162 164 166 168 169 171 172 174 175 175 176 177 178 179 179 180 181 182 182 183 183 183 185 186 187 187 186 185 184 180 166 135 115 119 141 168 183 181 176 161 129 75 18 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 240 241 241 241 242 242 241 241 241 241 241 240 239 237 235 231 227 223 219 215 212 209 207 206 204 202 200 199 198 197 196 196 196 197 197 199 201 203 205 207 209 210 211 212 213 214 214 215 216 217 218 219 219 220 219 213 173 142 127 130 170 186 191 189 186 179 170 167 168 173 189 196 203 208 212 216 217 218 218 218 216 209 198 187 181 181 182 183 183 183 178 167 163 164 171 208 222 228 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 229 230 230 230 230 230 229 227 225 224 223 221 216 209 202 195 190 188 188 188 189 191 193 194 194 193 188 181 171 161 148 131 118 106 95 85 74 68 63 59 56 54 54 53 54 54 55 55 55 56 57 66 77 87 97 104 114 127 144 163 182 187 182 169 151 129 105 93 85 80 79 80 82 85 88 91 95 98 100 102 105 108 111 115 118 122 127 130 134 137 139 142 144 146 148 150 152 154 155 157 160 163 165 168 170 172 174 176 177 178 179 180 181 182 182 183 183 184 184 184 185 185 185 186 186 186 187 187 188 188 187 186 185 181 169 141 121 124 145 170 183 181 176 159 125 70 16 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 252 251 249 246 244 241 240 239 239 240 241 241 242 243 243 242 241 240 237 233 226 221 216 212 210 207 206 205 204 204 203 203 203 204 204 206 208 210 212 214 215 215 216 216 217 217 218 219 220 221 221 221 221 219 214 162 133 125 136 166 192 191 189 185 181 166 164 166 172 185 195 201 207 212 216 218 219 219 219 219 217 209 199 189 182 181 181 182 182 182 178 168 163 163 168 206 222 228 229 229 228 229 229 229 229 229 229 229 229 229 229 229 229 229 230 230 230 230 230 230 229 227 226 224 223 222 220 216 210 202 194 191 189 188 188 189 191 193 195 197 197 195 191 185 177 163 152 140 128 117 104 95 87 81 75 69 66 64 62 61 61 62 65 70 78 90 97 103 110 118 135 153 172 187 196 192 177 157 134 112 91 84 82 81 82 87 91 95 98 100 103 105 107 110 113 117 120 124 128 131 135 138 141 143 146 148 150 152 154 157 160 162 165 168 171 174 176 178 180 182 183 185 186 186 187 187 187 187 187 187 187 187 187 187 187 187 187 187 187 188 188 188 188 189 188 187 186 183 172 147 127 131 150 172 183 180 175 155 118 62 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 180 181 182 185 190 194 199 200 200 198 196 198 201 205 211 220 227 233 236 235 233 230 226 221 217 213 210 209 208 207 207 207 207 208 209 213 215 216 216 216 215 215 215 215 215 217 218 219 219 216 203 192 178 161 143 124 124 141 165 186 192 189 186 181 173 162 162 168 177 188 198 205 211 215 218 219 219 219 219 219 217 211 201 191 184 180 181 181 181 181 178 169 163 161 165 200 220 227 228 228 228 228 229 229 229 229 229 229 229 229 229 229 229 230 230 230 230 230 230 230 229 227 226 224 223 222 222 219 214 208 199 194 191 189 188 188 190 191 194 196 198 199 198 195 190 180 170 160 149 139 125 115 107 99 92 85 81 78 76 76 78 81 85 90 96 102 107 114 125 138 158 175 189 198 200 187 165 140 117 99 86 84 83 85 89 94 98 100 103 105 108 110 113 116 119 124 128 131 135 138 142 144 147 149 151 154 157 159 162 164 168 171 174 177 179 182 184 186 187 188 188 189 189 189 189 189 189 189 189 189 188 188 188 188 188 188 188 188 188 188 188 189 189 189 189 188 187 184 174 150 132 136 154 175 183 180 174 151 112 56 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 148 162 177 189 197 202 206 207 207 205 204 204 204 204 204 208 214 220 226 232 235 234 232 228 224 219 216 213 212 211 210 211 212 214 216 219 218 217 212 202 197 198 201 203 203 198 187 175 160 145 132 128 125 121 115 121 140 164 184 193 190 186 182 176 164 159 162 170 180 190 202 209 214 217 219 219 219 219 219 219 218 212 204 194 186 181 180 180 181 180 178 170 163 160 162 193 216 226 228 228 228 228 228 229 229 229 229 230 230 230 230 230 230 230 230 230 230 230 230 230 229 227 226 224 223 223 222 221 218 212 203 197 193 190 189 188 189 190 192 194 198 200 201 201 198 192 185 176 167 157 144 134 126 118 111 103 99 97 95 95 96 99 102 105 108 114 122 133 146 160 179 192 201 203 198 173 146 122 103 90 85 86 88 92 97 101 104 106 108 110 114 117 120 124 127 132 136 139 142 145 148 151 153 155 158 161 164 167 170 173 177 180 183 185 187 189 189 190 191 191 192 192 192 192 192 191 191 191 191 191 190 190 190 190 190 189 189 189 189 189 189 189 189 189 189 188 188 185 176 153 137 140 158 177 183 180 173 147 105 49 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 152 178 200 216 224 226 226 226 226 226 226 225 222 217 211 207 206 209 214 223 232 234 234 232 230 225 222 219 216 215 215 216 218 220 222 217 205 194 182 165 154 155 156 157 153 140 123 105 86 71 71 80 94 108 119 141 168 185 194 193 186 184 178 169 157 157 163 172 183 193 206 213 216 218 219 219 219 219 219 219 219 214 207 197 189 182 180 180 180 180 178 171 164 160 160 184 211 224 228 228 228 228 228 228 228 229 229 230 230 230 230 230 230 230 230 230 230 230 230 230 228 227 225 224 223 223 223 222 220 215 207 200 195 192 190 189 188 189 190 193 197 200 203 204 204 200 195 188 181 172 160 151 143 136 129 122 118 116 114 113 113 114 115 118 121 131 143 156 170 182 197 204 206 201 188 151 124 105 92 87 88 91 95 100 104 108 110 112 114 117 121 125 128 132 136 141 144 147 149 152 155 157 160 163 166 170 173 177 180 183 186 188 190 192 193 193 194 194 194 194 195 195 195 195 195 194 194 194 194 194 193 193 192 192 192 192 191 191 191 191 191 190 190 190 190 189 188 186 177 156 141 145 162 179 183 180 171 143 98 43 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 186 210 221 226 227 227 226 226 225 225 225 225 225 225 224 217 210 207 207 210 225 231 234 234 234 230 228 225 222 220 221 223 224 224 222 202 160 129 109 98 83 72 62 50 36 23 23 28 39 54 80 99 114 128 143 177 190 195 193 189 184 181 172 161 153 154 162 173 184 196 210 215 217 218 218 219 219 219 219 219 219 217 210 202 192 184 181 180 179 179 178 172 165 160 158 174 205 222 228 228 228 228 227 227 228 228 229 229 230 230 230 230 230 230 230 230 230 230 230 229 228 226 225 224 223 223 223 223 221 218 209 203 198 194 191 189 189 189 190 192 197 200 203 205 206 205 201 196 190 184 174 166 159 152 145 139 134 131 127 125 123 123 126 132 141 159 171 181 190 199 208 210 205 192 165 123 103 92 88 88 93 98 103 107 109 112 114 117 120 124 129 133 137 141 145 149 151 154 156 159 163 166 169 173 176 181 184 187 190 192 194 195 195 196 196 197 198 198 199 199 199 199 199 199 199 199 199 199 198 198 197 197 196 196 196 195 195 194 193 193 192 192 191 191 190 189 189 187 178 159 145 150 165 180 183 179 170 138 91 37 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 197 216 224 226 226 224 223 223 223 224 224 224 224 225 225 224 218 212 207 207 211 220 228 233 234 233 232 229 227 227 230 230 218 184 115 59 41 27 18 11 8 5 4 6 10 28 49 73 97 118 135 141 152 166 185 196 196 193 189 184 182 174 162 152 150 152 160 172 186 201 214 216 217 217 217 218 219 219 219 220 220 219 215 208 199 188 183 180 179 179 178 174 167 161 158 162 190 212 226 228 228 227 227 227 227 227 228 228 229 229 229 229 230 230 230 230 229 229 229 228 226 225 224 224 224 223 223 223 222 218 210 203 198 194 191 189 189 189 190 193 198 201 204 207 209 209 207 204 199 192 183 176 169 163 157 149 145 143 141 141 146 153 162 171 180 188 194 200 206 211 211 204 182 151 117 95 92 92 94 99 107 111 114 116 118 122 125 129 133 138 143 147 151 154 157 160 163 166 169 173 178 181 185 188 191 194 196 197 198 199 200 200 201 202 203 204 204 204 205 205 205 206 206 206 206 206 206 205 205 204 204 203 202 202 201 200 200 199 198 197 196 195 194 193 192 190 189 187 179 161 151 156 170 182 183 179 166 130 80 29 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 205 219 225 226 225 223 223 223 223 224 224 224 224 224 225 225 222 216 210 207 211 219 227 232 234 234 233 232 231 231 226 189 138 87 47 24 17 12 8 6 4 5 13 27 50 83 103 120 133 141 152 162 175 186 194 197 194 189 185 183 181 167 156 149 148 150 158 172 188 205 216 216 216 216 216 217 219 219 219 220 220 220 218 214 206 193 186 182 179 179 177 175 169 163 158 159 177 200 220 227 228 227 227 227 227 227 227 227 227 228 228 228 228 228 228 228 228 227 227 226 225 225 224 224 224 224 224 223 220 216 207 201 196 193 190 189 190 191 194 197 202 206 209 211 212 212 210 207 204 198 190 184 178 173 168 164 163 163 164 167 172 177 183 188 192 199 204 209 211 212 199 171 142 116 101 94 95 98 103 108 114 116 119 122 125 131 135 140 144 148 154 157 161 164 168 173 176 180 184 187 191 193 196 197 199 200 201 202 203 203 204 205 205 205 206 206 206 207 207 207 207 207 208 208 208 208 208 208 207 207 207 207 206 205 205 204 203 202 201 200 199 197 196 195 193 191 190 187 180 162 154 160 172 183 183 178 162 123 72 24 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 207 220 225 226 225 222 222 223 224 225 224 224 224 224 225 225 223 217 211 209 211 219 227 233 234 234 234 233 230 222 171 117 70 34 16 8 6 5 4 3 6 19 39 65 92 120 134 145 153 159 171 181 190 196 197 195 190 186 184 183 176 160 151 147 147 149 157 172 191 209 217 216 215 213 213 216 218 219 220 220 220 221 220 217 212 200 191 185 180 179 177 176 172 166 159 157 166 187 210 225 228 227 227 227 227 226 226 226 226 227 227 227 227 227 227 227 226 226 226 225 225 224 224 224 224 224 223 221 217 211 203 197 194 191 191 192 194 197 200 204 208 210 212 214 214 213 211 209 206 202 197 192 188 184 181 180 179 180 182 184 189 192 195 199 203 207 210 211 206 194 161 134 114 101 97 99 104 108 113 117 121 124 128 132 136 143 148 152 156 160 165 170 174 178 182 186 190 192 195 197 199 200 201 202 203 204 204 204 205 205 206 206 206 207 207 207 207 207 207 208 208 208 208 208 209 209 209 209 209 209 209 209 209 208 208 207 206 205 204 204 202 200 199 197 194 191 190 188 180 164 158 164 175 183 183 177 158 115 64 19 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 206 220 225 225 225 222 221 222 224 225 224 224 224 224 225 224 222 217 212 210 214 222 229 233 235 234 233 227 210 180 95 48 22 11 6 4 4 4 4 5 18 45 75 104 126 143 151 159 166 175 187 194 198 198 196 193 187 185 184 183 170 155 148 147 147 148 156 173 194 213 216 215 212 211 211 215 217 219 219 220 220 221 221 220 217 207 197 189 183 179 177 176 173 169 161 157 159 173 195 218 226 227 227 227 227 226 226 226 226 226 226 226 226 226 226 225 225 225 225 225 224 224 224 224 224 223 221 217 211 205 197 193 191 190 191 195 199 202 206 209 212 213 214 215 214 213 211 209 206 204 201 198 196 194 193 192 192 193 194 196 199 201 203 206 209 211 208 199 183 159 121 106 100 100 102 108 114 118 122 125 130 134 139 145 150 157 161 166 170 174 179 183 187 191 194 198 200 201 202 203 203 203 203 204 204 204 204 204 204 204 204 204 205 205 205 206 206 207 207 207 208 208 208 208 209 209 209 209 210 210 210 210 210 210 210 209 209 208 207 206 205 203 201 199 196 192 191 188 180 165 161 168 177 184 182 176 152 106 55 15 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 205 219 225 225 225 222 221 221 222 224 225 225 225 225 225 222 218 215 213 212 219 228 233 235 235 234 230 207 161 88 28 15 7 4 3 3 3 3 5 10 44 81 110 130 144 157 166 174 183 191 198 199 199 197 194 188 185 184 184 183 162 151 147 147 147 148 156 174 197 214 216 213 210 207 208 213 216 217 219 220 220 221 221 221 221 215 205 195 187 180 177 176 174 171 165 157 156 161 176 203 224 226 227 227 227 226 226 226 226 226 226 225 225 225 225 225 225 225 225 225 224 224 224 224 224 222 216 209 202 196 190 188 188 190 192 197 200 204 207 210 212 213 214 214 213 212 210 208 205 203 201 200 199 198 197 197 198 199 201 203 206 208 210 211 212 208 193 166 136 111 102 102 104 108 114 119 122 125 128 133 140 146 152 158 163 170 176 181 187 191 196 199 200 201 202 202 203 203 204 204 204 203 203 202 202 201 201 201 200 200 199 199 199 200 201 202 203 204 205 206 207 207 208 208 208 209 209 209 210 210 210 210 211 211 211 211 211 210 209 209 207 206 204 201 198 193 192 188 180 166 164 172 180 184 182 175 145 97 47 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 198 216 224 225 226 222 221 221 221 221 221 221 221 220 219 217 217 217 220 225 232 234 234 234 232 216 166 106 52 21 8 4 3 2 2 3 3 5 15 39 91 117 137 152 166 180 187 193 197 199 200 199 197 193 191 186 185 185 184 180 155 149 147 147 147 148 155 176 200 216 216 210 205 202 203 208 211 214 216 218 219 220 221 221 222 220 215 207 197 187 179 177 175 173 171 161 157 156 160 171 205 219 225 227 227 226 226 226 226 226 226 225 225 225 225 225 225 225 224 224 224 223 222 220 216 207 200 194 190 187 186 186 187 189 191 195 197 199 201 202 204 204 204 204 204 203 203 202 202 202 201 201 201 201 202 204 206 207 208 208 209 209 207 201 186 149 125 111 105 104 106 111 116 121 125 132 137 144 150 157 165 171 177 182 188 194 197 199 200 201 201 202 202 202 201 199 198 196 194 192 188 184 181 177 174 171 170 169 168 168 168 169 171 173 176 180 184 187 191 195 200 202 205 206 208 209 209 209 210 210 210 210 211 212 212 212 212 212 211 211 210 208 207 204 200 194 192 188 180 168 167 176 182 184 182 171 134 84 36 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 189 211 221 224 226 224 223 222 221 221 221 221 221 221 221 221 223 226 228 230 233 232 227 215 191 127 80 45 21 9 4 2 2 2 2 2 4 14 36 73 117 139 157 171 182 191 194 197 199 200 199 197 195 193 190 186 186 186 183 176 152 150 149 149 148 149 156 178 203 216 215 208 202 198 198 202 206 209 211 214 216 218 220 220 221 221 219 214 207 196 184 179 176 174 172 166 160 157 157 160 178 201 215 223 226 226 226 225 225 225 225 225 225 225 224 224 224 223 223 222 219 216 212 208 202 196 192 189 187 186 186 186 188 189 191 193 195 196 198 199 200 201 201 202 202 202 202 203 203 203 204 205 206 206 207 207 207 207 207 206 200 187 171 153 136 120 114 111 112 116 121 126 130 134 139 146 152 159 166 174 183 188 191 194 196 199 200 200 199 198 196 192 188 184 179 172 167 162 158 154 151 149 147 145 143 141 140 139 139 139 141 142 144 146 149 154 158 163 169 175 184 189 195 199 203 206 208 209 210 210 210 210 211 211 212 213 213 212 212 212 211 210 208 206 201 195 193 187 179 169 170 179 183 184 181 168 124 73 29 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 175 202 215 221 225 224 224 223 223 222 222 222 223 223 224 225 226 228 229 228 222 205 181 149 111 56 30 14 6 3 2 1 2 2 2 3 8 30 64 104 141 160 174 185 192 196 198 199 200 199 198 196 194 192 190 186 187 187 183 173 152 152 152 151 149 149 157 180 205 216 214 205 198 194 192 195 199 202 205 208 212 215 217 218 220 221 220 218 214 206 193 185 180 176 173 170 164 159 156 155 162 178 196 211 221 225 225 225 225 224 224 223 223 222 221 220 219 218 216 214 210 207 203 199 195 191 189 188 187 186 187 188 189 191 192 195 196 198 199 200 202 202 203 204 205 206 206 206 207 207 208 208 208 208 207 205 202 197 189 180 164 151 138 126 117 113 115 117 120 125 132 138 144 150 157 167 173 179 184 189 194 196 197 198 197 193 190 185 180 175 168 163 158 154 149 144 140 137 134 132 130 129 128 128 127 126 125 125 125 125 125 126 127 129 131 134 138 142 148 154 164 172 180 188 194 201 204 207 209 210 210 210 211 211 212 213 213 213 213 213 212 211 210 207 202 195 193 187 179 171 173 181 184 184 180 163 113 63 23 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 157 188 204 212 220 222 223 223 223 223 223 223 224 224 224 223 221 217 210 199 176 145 108 69 34 11 6 3 1 1 1 1 1 1 1 4 19 54 95 131 161 177 187 194 197 198 199 200 199 199 197 195 194 193 190 188 188 188 183 170 154 155 155 154 150 149 158 183 207 216 213 203 195 190 186 187 191 193 196 200 204 209 212 215 217 220 220 220 219 215 204 194 186 180 175 172 168 163 158 155 153 160 173 190 207 220 222 223 224 223 222 221 220 219 218 216 214 212 210 207 203 200 197 195 193 191 191 190 190 191 192 193 195 197 198 201 202 203 205 206 207 207 208 208 209 209 210 210 209 209 207 206 203 200 196 188 181 171 159 145 129 122 118 116 117 120 124 129 134 139 148 154 162 170 178 187 191 195 196 197 195 193 190 186 181 173 166 159 152 145 138 133 130 127 125 124 123 123 122 122 121 121 121 121 121 121 121 121 121 120 119 119 119 119 120 122 124 127 130 135 145 154 163 173 182 192 198 203 206 209 209 210 210 211 212 213 213 214 214 214 213 212 211 208 202 196 193 186 178 173 175 183 185 183 179 155 102 53 17 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 138 167 185 197 209 215 218 220 220 221 221 221 221 220 218 212 202 183 157 123 72 42 22 10 3 2 1 1 1 1 1 1 1 1 1 8 40 83 125 154 179 190 195 197 197 199 199 199 199 198 197 196 195 194 191 189 190 189 183 168 157 158 159 157 151 150 160 185 209 215 211 201 192 186 180 179 181 182 185 189 194 200 204 208 212 217 218 220 220 219 215 206 196 187 179 174 172 168 163 156 153 152 154 162 179 206 215 221 224 223 223 221 220 219 217 214 212 210 208 206 202 200 198 196 195 195 195 197 199 201 205 207 209 211 212 213 214 214 214 214 213 213 213 212 211 210 210 209 207 205 201 195 186 176 163 146 135 127 122 119 117 117 118 120 124 133 140 148 157 165 176 183 189 193 195 197 197 197 196 193 184 174 163 152 142 133 128 126 124 123 122 122 122 121 121 121 122 122 122 123 123 123 123 123 123 123 122 122 121 121 120 119 118 118 117 117 117 118 120 122 128 136 145 156 166 180 189 196 202 206 209 209 210 211 212 213 213 214 214 214 214 213 212 209 203 197 193 186 178 174 179 185 185 182 177 146 89 43 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 114 131 144 154 166 173 177 180 180 178 172 165 154 139 121 92 70 50 34 21 10 6 3 1 1 1 1 1 1 1 1 1 1 1 3 23 78 122 155 176 193 195 196 197 197 199 199 199 199 198 198 198 197 195 192 191 192 191 184 169 163 164 164 160 151 150 164 188 210 215 209 198 189 182 173 169 167 166 167 170 175 181 187 193 199 207 211 215 218 219 219 216 211 203 193 181 176 173 170 167 158 154 151 150 150 158 174 191 206 217 220 221 221 220 219 218 216 215 214 213 212 211 211 212 213 214 214 215 215 216 216 216 215 215 215 214 213 213 212 210 208 205 202 198 193 185 177 169 161 153 141 135 130 127 125 124 124 125 126 128 133 138 144 149 154 159 165 171 178 185 191 194 197 197 196 188 177 164 151 139 129 125 123 122 121 121 121 121 121 122 124 126 128 130 132 136 138 141 143 146 148 148 148 148 146 144 141 139 135 132 127 124 122 120 118 116 115 115 115 115 117 121 127 135 145 161 172 183 192 200 205 207 209 210 211 212 213 214 214 215 214 214 213 210 203 197 193 185 178 176 182 186 185 181 174 130 72 31 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 102 110 115 119 123 125 122 120 115 109 100 94 86 77 67 54 44 34 25 17 9 5 3 1 1 1 1 1 1 1 1 1 1 3 7 48 105 144 170 186 195 195 196 196 197 199 199 199 199 199 200 200 198 196 193 193 194 192 186 172 168 168 167 161 150 150 166 191 211 214 208 197 188 180 170 163 159 156 155 156 158 163 169 175 182 192 199 205 211 215 218 217 215 211 206 195 186 179 174 171 166 161 157 153 150 150 155 160 167 179 194 203 210 214 215 216 216 215 215 214 214 213 213 213 213 213 213 213 212 212 210 208 205 202 198 192 187 183 178 173 167 163 158 154 150 146 143 140 137 134 131 130 128 128 127 128 130 132 136 140 146 153 161 169 177 187 191 195 197 198 194 186 175 164 153 142 136 131 127 124 122 121 121 122 123 126 129 134 139 144 152 157 162 167 171 175 178 179 180 181 182 182 181 180 179 176 173 169 164 159 151 145 138 131 125 120 117 114 113 113 113 115 119 124 133 147 159 171 182 192 201 204 207 208 210 212 213 214 215 215 215 214 213 210 203 198 191 184 178 178 185 186 184 179 170 115 59 23 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 97 98 97 95 92 88 84 80 75 69 65 61 56 51 47 42 35 28 21 12 6 3 1 1 1 1 1 1 1 1 1 1 5 13 76 130 162 180 192 195 195 195 196 197 199 199 199 199 200 201 201 199 197 194 195 195 194 189 177 172 172 169 161 150 150 169 193 211 214 208 196 187 178 168 159 154 148 145 144 144 147 151 157 163 174 181 190 198 205 213 215 216 215 213 206 198 190 182 176 171 168 164 159 155 151 149 148 149 154 165 171 178 183 187 193 195 197 198 199 200 199 199 198 196 194 192 190 187 184 180 176 172 169 165 160 157 153 150 146 142 140 137 135 133 132 131 130 130 130 131 132 133 135 137 142 148 154 161 167 176 182 187 192 196 197 193 187 179 171 161 152 144 135 128 123 121 120 120 121 124 128 132 138 144 152 159 165 171 176 182 186 190 193 196 198 199 200 200 201 201 201 200 200 199 197 195 192 188 184 177 169 161 152 142 131 124 118 114 112 111 111 113 117 123 135 147 159 172 184 195 200 204 207 209 211 213 214 215 215 215 215 213 209 203 198 190 183 179 180 187 186 183 176 163 99 47 17 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 89 89 89 87 83 75 71 68 66 65 64 64 63 62 61 58 54 47 39 30 16 8 3 1 1 1 1 1 1 1 1 1 2 8 22 104 151 175 187 195 195 194 194 195 198 200 199 199 200 201 203 202 200 197 196 197 197 196 191 181 176 175 169 160 149 150 172 195 212 214 208 196 186 178 168 157 151 144 138 135 132 133 136 139 144 153 161 169 179 189 201 208 212 214 214 213 209 203 195 186 178 174 170 167 163 157 153 150 147 145 145 146 148 151 156 163 167 170 172 173 174 174 173 171 169 166 163 160 156 152 147 144 141 139 137 135 134 133 133 132 132 132 132 132 133 133 134 135 136 137 141 144 148 153 159 167 174 182 189 196 201 201 199 195 191 181 170 158 145 133 124 120 118 118 118 120 122 125 129 134 142 149 158 166 174 184 191 196 199 202 205 206 207 207 208 208 209 209 209 209 209 209 209 209 209 208 207 206 204 202 197 191 184 175 164 149 137 127 119 114 110 109 110 112 115 125 135 148 161 174 188 196 201 205 207 210 212 214 215 215 215 215 213 209 203 197 188 182 180 182 188 186 182 173 154 82 36 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 85 86 86 85 83 74 70 67 65 65 69 73 77 80 82 78 72 64 54 41 22 11 4 1 1 1 1 1 1 1 1 1 3 12 36 129 164 182 190 196 194 192 193 195 198 200 199 199 200 202 204 203 200 198 198 199 199 197 193 185 179 176 168 158 149 150 174 197 212 213 208 196 187 178 168 157 150 142 135 131 126 124 124 125 127 132 138 146 155 165 182 194 204 212 214 215 214 213 210 204 190 181 175 171 168 166 163 160 157 152 147 145 143 142 142 141 142 142 142 142 142 142 141 141 140 139 138 137 136 136 136 135 135 135 134 134 134 134 134 134 135 135 136 137 138 141 144 147 151 155 163 171 179 187 195 203 207 210 212 211 201 185 169 153 140 128 123 119 116 115 115 115 116 117 119 125 133 143 155 167 182 191 197 201 204 206 207 208 208 209 209 209 209 209 210 210 210 210 210 210 210 210 210 210 210 210 210 210 210 210 208 206 201 195 186 171 157 142 129 119 111 108 108 108 110 116 126 137 150 164 181 190 198 202 206 209 212 214 215 215 215 215 213 208 203 195 187 182 182 184 189 185 180 168 142 66 26 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 84 85 85 84 77 73 71 71 74 94 102 106 106 105 95 86 74 60 45 25 12 5 1 1 1 1 1 1 1 1 1 4 19 55 150 175 187 192 196 193 191 192 194 198 198 198 199 201 204 205 203 201 201 201 202 202 199 194 187 178 173 164 155 148 150 176 198 212 213 209 200 190 180 172 160 152 144 137 131 126 122 120 119 118 119 120 122 126 131 143 155 170 184 199 210 213 214 214 214 212 206 198 188 179 172 169 166 165 163 160 158 156 153 151 149 147 146 145 144 143 142 142 141 140 140 140 140 140 140 140 140 141 142 143 143 144 145 147 149 152 154 157 161 167 175 182 189 195 201 208 211 213 214 213 199 180 162 146 136 129 124 121 118 116 114 113 113 113 114 117 124 134 146 161 180 190 197 202 205 207 207 208 208 209 209 209 209 209 210 210 210 210 210 210 210 210 210 210 210 210 210 210 210 211 211 211 211 211 211 211 210 210 208 204 194 182 167 150 134 117 110 107 106 106 109 116 126 138 151 170 183 192 199 204 208 211 213 215 216 216 215 212 207 202 192 185 183 183 187 189 184 177 159 121 45 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 85 86 87 86 82 79 78 81 91 112 116 117 116 111 99 87 72 57 40 23 11 4 1 1 1 1 1 1 1 1 1 5 23 64 157 177 187 192 196 193 191 191 192 195 196 197 200 203 206 206 204 203 203 204 204 202 198 191 182 172 167 160 153 148 150 175 197 211 213 210 203 196 188 179 167 158 150 143 137 130 126 123 121 119 118 118 118 119 121 125 130 138 149 163 183 195 205 211 214 214 212 209 205 200 191 184 177 172 168 164 162 160 159 157 155 153 152 151 150 149 149 149 149 148 148 148 148 148 148 149 149 150 151 153 156 159 163 168 173 180 185 190 195 199 203 205 207 208 206 188 171 159 152 149 144 139 133 128 123 119 115 112 111 111 111 113 119 128 139 157 169 179 187 193 200 203 205 207 208 208 209 209 209 210 210 211 211 211 212 212 212 213 213 213 213 213 213 213 212 212 212 212 211 211 211 211 211 211 211 211 211 210 210 208 203 195 182 167 149 126 115 108 105 104 106 111 119 130 142 163 177 188 196 202 207 211 213 215 216 216 215 211 206 201 190 185 183 185 189 188 182 172 148 101 31 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 86 89 90 90 87 85 85 91 107 124 126 126 122 114 99 83 66 50 35 18 9 3 1 1 1 1 1 1 1 1 1 5 24 68 158 177 187 192 196 194 192 191 191 193 196 198 202 206 207 207 205 205 206 206 204 199 191 181 170 164 161 156 151 147 149 173 194 209 211 210 206 201 195 189 178 170 162 155 148 139 134 130 126 123 120 118 117 117 117 117 119 122 127 135 150 163 177 190 201 209 212 213 213 211 205 200 195 190 185 178 174 171 169 166 164 162 161 160 159 158 157 157 156 157 157 158 159 161 162 166 169 172 175 178 183 186 190 193 197 201 204 205 202 193 173 167 165 164 163 153 142 135 129 126 123 120 116 113 110 109 107 108 112 118 131 142 154 164 175 188 195 201 204 206 208 208 209 209 210 210 211 211 212 213 213 214 214 214 215 215 215 215 215 216 216 216 215 215 215 215 214 214 213 213 212 212 212 211 211 211 211 211 211 210 208 203 194 181 164 137 121 111 105 103 104 108 114 123 135 155 171 184 194 201 207 210 213 215 216 216 215 210 205 199 188 185 184 186 190 186 180 165 135 82 20 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 89 93 95 96 93 92 94 103 122 132 133 131 124 113 93 74 56 41 28 14 6 2 1 1 1 1 1 1 1 1 1 5 23 66 156 175 185 191 196 196 193 192 192 194 197 201 205 208 208 208 208 208 207 206 199 188 175 163 154 154 155 154 150 146 147 168 190 206 209 209 208 205 202 199 191 185 178 171 165 154 148 142 137 132 126 123 120 118 117 116 116 116 117 118 123 132 144 159 174 191 200 206 210 212 213 213 211 208 203 197 192 188 184 182 178 177 175 174 173 172 171 171 172 172 174 176 178 180 183 187 192 196 200 204 207 206 203 199 194 189 186 183 176 162 132 125 122 122 122 124 124 123 121 117 113 109 106 103 103 108 114 122 133 145 165 180 191 199 203 206 207 208 208 209 210 210 211 211 212 213 214 214 215 216 216 217 217 217 217 218 218 218 218 218 218 218 217 217 217 217 217 216 216 215 214 214 213 212 212 211 211 211 211 210 210 208 203 193 177 149 129 115 106 102 102 105 110 118 128 149 166 181 192 200 206 210 213 215 216 217 214 209 203 196 186 185 185 188 191 184 177 156 119 62 12 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 84 93 99 102 102 99 98 105 117 134 139 138 132 121 107 80 60 44 31 18 10 4 1 1 1 1 1 1 1 1 1 1 4 20 58 150 171 182 189 197 198 197 195 195 196 202 206 209 210 210 210 210 209 207 203 185 165 149 138 132 144 150 151 149 145 145 162 184 203 207 208 208 207 206 206 203 201 197 192 186 176 168 160 153 146 138 132 128 124 120 117 116 115 115 115 115 116 118 123 132 152 169 184 197 206 212 214 214 214 214 214 213 211 208 204 200 198 196 195 195 197 198 200 201 202 205 207 209 210 211 212 213 213 212 212 208 198 181 160 138 117 110 108 111 119 129 136 138 138 133 126 118 109 100 96 93 94 95 99 106 127 149 169 186 197 203 205 207 207 208 208 209 209 210 211 212 213 214 215 216 217 217 217 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 218 217 217 216 215 214 213 212 211 211 211 211 210 210 207 201 189 162 139 121 108 102 100 103 107 113 122 143 163 179 191 199 206 211 214 215 216 217 213 207 201 193 186 185 187 189 191 182 173 145 101 43 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 85 99 106 109 109 108 110 120 133 143 144 138 128 111 87 55 42 29 19 10 4 2 1 1 1 1 1 1 1 1 1 1 3 14 43 133 160 173 181 192 199 200 201 202 204 209 210 211 211 211 211 209 205 194 176 141 120 108 103 103 128 142 148 148 144 142 150 172 193 201 204 206 207 207 207 207 207 207 207 206 202 197 190 183 175 165 157 150 143 136 130 125 121 119 116 115 114 114 114 114 117 120 127 136 149 167 180 192 201 208 213 216 218 220 221 221 220 219 218 217 215 215 215 215 215 214 213 212 209 205 193 175 156 137 122 106 105 108 116 129 144 148 149 149 145 137 124 111 99 92 90 89 89 90 93 102 118 139 162 183 197 202 205 206 207 208 208 209 209 210 211 213 214 215 216 217 217 217 218 218 218 218 218 218 218 219 219 219 219 219 219 219 219 219 219 219 219 219 219 219 219 219 219 218 218 218 218 217 216 215 214 212 212 211 211 210 210 210 207 200 176 151 130 113 102 99 101 104 108 116 139 160 177 190 199 207 211 214 216 217 216 211 205 197 190 186 186 189 190 189 178 163 124 73 23 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 86 102 110 113 114 115 121 131 141 147 145 134 116 94 72 53 39 25 15 8 3 2 1 1 1 1 1 1 1 1 1 1 2 9 29 114 148 163 169 177 196 202 204 206 209 211 212 212 212 211 209 202 187 166 140 116 105 98 95 95 110 132 142 145 144 140 142 159 179 191 196 201 204 205 205 207 207 208 208 208 207 205 202 198 192 183 176 169 161 154 145 140 135 130 127 122 119 117 115 114 114 115 117 119 123 129 135 142 150 159 169 176 183 188 193 196 199 200 202 202 201 198 192 184 174 160 152 144 137 130 125 124 127 131 136 142 144 145 146 149 149 141 131 120 109 101 97 93 90 89 89 94 102 114 131 158 172 184 193 200 204 206 207 208 208 209 210 212 213 214 215 216 216 217 217 218 218 218 218 218 219 219 219 220 221 222 222 223 223 224 224 224 224 224 224 223 222 221 221 220 220 219 219 219 219 219 218 218 218 217 215 214 213 212 211 210 210 210 208 205 185 160 137 118 104 99 101 102 106 113 137 159 177 191 200 208 212 215 216 217 215 209 202 195 188 186 187 190 190 185 174 150 104 53 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 105 114 117 118 122 131 141 147 150 143 126 106 87 71 57 44 30 17 9 3 2 1 1 1 1 1 1 1 1 1 1 1 5 16 89 134 152 156 160 180 196 203 207 210 211 212 212 211 209 198 182 160 138 121 106 99 95 92 91 98 117 133 143 144 138 137 147 162 176 182 189 194 197 198 202 204 206 207 208 208 209 208 206 203 196 191 184 176 169 159 153 147 142 139 134 130 126 123 120 117 116 114 114 113 114 116 119 123 128 134 139 143 146 149 151 153 154 154 152 149 146 143 138 132 127 127 128 128 127 129 133 139 146 152 157 157 154 148 139 125 115 107 98 91 87 87 88 91 96 107 122 138 155 171 190 198 202 205 206 207 208 209 210 211 213 214 215 216 216 217 217 218 218 218 218 218 219 220 220 221 222 223 224 225 227 227 228 229 229 230 229 229 229 229 228 227 226 225 224 223 222 221 220 219 219 219 219 219 218 217 216 214 212 211 210 210 210 209 207 192 168 144 122 106 99 100 101 104 110 137 160 179 192 201 209 213 215 216 216 213 206 199 192 187 187 189 191 189 181 169 133 83 36 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 88 109 118 121 122 130 141 148 151 151 138 118 102 90 83 73 60 45 31 18 7 3 2 1 1 1 1 1 1 1 1 1 1 2 7 59 115 140 146 145 157 180 194 202 207 209 209 208 205 199 178 155 135 120 114 108 104 101 98 93 93 104 122 138 143 137 133 135 143 156 163 170 176 180 182 189 193 196 200 203 205 207 209 209 208 205 201 196 190 182 173 166 159 153 149 145 142 138 135 131 126 123 120 118 117 115 114 114 114 114 114 114 115 115 115 114 114 114 113 112 111 111 112 113 115 123 132 140 148 153 159 161 163 163 162 156 149 140 129 114 96 90 87 86 86 88 91 96 105 117 140 160 177 192 200 205 206 207 208 208 209 210 212 213 214 216 217 217 217 217 218 218 218 218 219 219 220 221 222 223 225 226 227 229 230 231 232 232 233 233 233 233 233 233 233 232 231 231 230 228 227 225 224 222 221 220 219 219 219 219 218 217 215 213 212 211 210 210 210 209 197 175 150 127 107 99 99 100 103 109 138 162 180 194 203 210 214 216 216 216 211 203 196 190 187 187 190 191 187 177 160 112 62 22 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 90 112 121 124 126 138 148 153 153 150 130 113 106 105 106 105 89 76 60 39 16 6 2 2 1 1 1 1 1 1 1 1 1 1 3 25 92 127 139 137 132 149 172 192 198 204 204 200 192 178 148 130 122 118 116 117 121 121 114 100 93 95 109 126 139 140 132 128 128 133 140 144 148 153 154 160 167 174 181 189 196 202 206 209 210 211 210 208 203 196 187 178 169 161 155 151 149 147 146 144 141 138 135 132 130 126 123 120 118 116 115 114 114 113 113 114 115 117 121 126 135 141 145 148 151 155 159 161 163 165 166 166 165 163 159 143 124 108 96 89 86 85 85 86 87 95 102 116 133 154 184 195 202 205 206 207 207 208 209 210 213 215 216 217 217 217 217 218 218 218 218 218 219 220 221 222 223 224 225 226 228 229 230 230 231 232 233 233 234 234 234 234 234 234 233 233 233 232 232 231 230 229 228 226 224 221 220 220 219 219 219 218 217 215 212 211 210 210 210 209 201 180 156 131 109 99 99 100 103 109 141 165 183 196 204 212 215 216 216 216 208 200 193 189 187 188 192 190 184 173 146 89 42 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 116 126 128 131 145 153 156 154 146 124 120 121 124 125 119 110 103 92 73 49 27 12 3 1 1 1 1 1 1 1 1 1 1 1 4 38 90 133 139 119 117 124 137 152 159 162 159 151 136 126 124 123 125 134 147 150 152 150 144 114 100 98 108 132 140 137 130 122 121 119 118 118 118 117 117 119 122 127 134 149 164 180 194 204 211 214 216 216 213 208 202 193 183 172 161 156 152 150 149 148 147 146 145 145 144 144 143 143 143 143 143 143 144 144 145 147 149 151 153 155 155 157 159 163 167 170 173 174 174 170 165 155 142 125 105 97 91 88 86 85 87 89 94 103 118 139 161 182 197 204 206 207 207 208 209 210 212 214 216 217 217 217 217 217 218 218 218 218 219 220 221 222 223 224 224 225 226 226 227 228 229 230 231 232 232 233 233 233 233 233 232 232 232 232 232 232 232 232 231 231 230 229 229 228 225 223 221 220 220 219 219 218 216 214 211 210 210 210 210 204 186 161 135 112 100 99 99 103 112 148 171 187 199 207 213 216 217 216 214 203 195 191 188 188 191 192 185 175 166 115 58 22 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 118 129 131 133 148 155 157 153 142 128 129 132 136 137 131 123 115 105 91 72 52 32 15 3 1 1 1 1 1 1 1 1 1 1 2 14 51 97 135 130 117 113 117 126 138 140 138 134 129 126 126 130 137 144 150 152 154 154 154 142 122 106 101 112 137 138 132 124 120 117 114 113 112 112 110 110 110 110 111 114 122 134 149 166 188 200 207 212 214 213 211 207 201 194 179 171 164 158 154 152 150 149 148 148 147 147 146 146 146 146 147 147 148 149 150 152 154 157 159 163 166 169 172 174 176 177 177 175 171 161 149 137 124 112 99 93 89 87 86 88 93 100 110 124 152 173 188 198 204 206 207 208 208 210 212 214 215 216 217 217 217 217 217 218 218 218 219 220 221 222 222 223 223 224 224 225 225 225 226 227 228 229 229 230 230 230 230 229 229 229 229 228 228 229 229 229 230 230 230 230 230 230 229 228 227 225 223 221 220 220 219 219 217 214 212 211 210 210 210 205 188 164 137 113 100 99 99 104 117 155 176 191 202 209 214 216 216 215 210 199 193 189 188 189 192 192 182 168 153 85 38 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 120 131 133 135 149 156 158 153 141 133 136 140 144 144 141 135 128 118 105 85 70 52 32 12 1 1 1 1 1 1 1 1 1 1 1 3 22 56 105 134 125 115 110 112 120 126 128 129 128 128 132 137 143 148 150 152 154 156 157 155 142 123 106 101 122 134 135 129 121 117 114 112 111 110 108 106 105 103 102 100 101 105 112 122 145 167 184 198 207 213 214 213 211 207 197 188 179 171 165 160 157 156 154 153 152 151 151 151 151 151 152 153 154 155 158 160 163 165 168 171 174 177 179 180 181 179 176 172 165 151 139 127 115 104 94 90 88 88 89 95 103 116 132 152 180 194 201 205 206 207 208 210 211 213 215 216 217 217 217 217 217 217 218 218 219 220 220 221 222 223 223 223 223 223 223 223 223 224 225 226 227 228 228 228 228 228 228 227 227 227 227 227 227 227 227 227 228 228 229 229 229 229 229 228 228 226 225 223 221 220 220 219 218 215 212 211 210 210 210 206 189 165 138 114 101 99 100 107 123 163 182 195 204 211 216 216 216 213 207 195 191 189 189 190 193 188 177 159 132 58 23 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 93 121 132 135 137 149 156 158 153 141 137 142 147 149 150 149 145 139 130 117 95 81 67 50 27 4 2 1 1 1 1 1 1 1 1 1 1 4 20 58 117 128 123 114 109 108 117 123 128 130 131 137 142 145 147 149 151 153 155 157 158 156 142 121 100 103 124 135 136 126 119 116 113 112 110 109 108 106 104 102 97 94 91 89 88 101 125 149 171 189 207 212 213 214 214 209 203 195 187 178 170 166 164 161 160 158 157 156 156 156 156 157 158 160 162 166 168 171 173 176 179 180 182 183 183 182 179 174 167 158 143 132 120 109 99 90 89 89 90 94 105 119 137 158 180 199 204 206 207 207 209 210 212 214 216 217 217 217 217 217 217 217 218 218 219 220 221 221 222 222 222 222 222 221 221 221 221 222 223 224 226 226 227 227 227 227 227 227 227 227 226 226 226 226 226 226 226 226 226 227 228 228 229 229 228 228 227 226 224 222 220 220 219 218 215 212 211 210 210 210 206 190 165 138 115 101 99 101 110 133 171 187 199 207 212 216 216 215 210 202 192 190 189 190 191 192 181 169 146 106 34 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 91 121 133 137 138 149 156 157 153 142 141 148 152 154 154 153 152 148 141 129 104 88 75 63 50 11 4 1 1 1 1 1 1 1 1 1 1 1 2 7 65 114 131 128 117 106 107 115 125 132 137 140 142 144 145 146 148 150 154 157 159 158 155 142 111 93 107 127 140 137 123 120 117 114 113 113 112 112 110 108 100 95 90 85 81 77 85 105 130 157 191 205 211 213 215 213 211 207 201 192 182 176 171 169 167 164 163 162 161 161 161 162 163 165 167 169 171 174 177 179 183 185 186 187 186 183 178 172 163 153 138 125 112 101 94 90 90 92 96 102 119 140 162 183 200 205 206 207 208 209 211 214 216 217 217 217 217 217 217 217 217 218 219 219 220 221 221 221 222 221 221 220 219 219 219 220 221 222 223 225 226 226 227 227 227 227 227 227 227 227 227 227 226 226 226 226 226 226 226 226 226 227 227 228 228 228 227 226 225 223 221 220 220 218 215 212 211 210 210 210 206 189 165 138 115 101 100 103 116 144 179 193 203 209 215 216 216 213 207 197 190 189 189 191 193 191 174 157 129 74 16 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 118 133 137 139 148 156 157 153 146 146 152 155 155 155 154 154 153 152 150 127 101 82 68 61 35 12 2 1 1 1 1 1 1 1 1 1 1 1 1 4 34 81 121 133 127 115 111 113 118 127 134 138 139 139 139 141 145 151 157 160 160 159 156 149 99 91 100 119 141 139 130 125 122 120 122 125 127 129 129 124 117 106 93 82 74 69 67 73 91 137 167 190 204 212 215 213 213 211 207 198 189 182 176 172 169 167 165 164 163 164 165 166 169 171 176 179 182 184 186 188 188 188 188 187 182 176 169 159 148 131 118 107 98 93 91 93 97 105 118 147 170 189 202 206 207 207 209 210 212 216 216 217 217 217 217 217 217 217 217 218 219 219 220 220 220 220 220 219 218 217 218 218 219 219 220 222 223 225 225 226 226 226 227 227 227 227 227 227 227 227 227 227 227 227 227 226 226 226 226 226 226 226 227 227 227 227 226 225 224 222 221 220 218 215 212 211 210 210 210 206 187 161 135 114 101 102 109 128 162 189 199 207 213 216 216 215 208 200 192 189 189 190 192 192 182 165 136 94 37 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 84 113 130 137 140 147 155 157 154 148 149 154 155 155 154 154 154 154 155 154 146 120 93 71 62 47 21 7 1 1 1 1 1 1 1 1 1 1 1 1 1 10 28 56 94 119 122 123 123 123 124 126 128 128 128 130 136 142 148 155 161 161 160 159 156 132 102 91 97 114 139 137 134 130 127 128 130 132 133 133 132 131 126 117 103 81 71 64 62 63 83 114 146 177 202 213 213 213 212 210 206 202 195 188 181 176 173 171 169 168 168 168 170 172 174 179 181 184 186 188 189 189 190 189 187 182 175 167 157 145 127 114 104 97 93 93 97 105 119 138 168 187 199 205 207 208 209 211 213 215 216 217 217 217 217 217 217 217 217 218 219 219 219 220 220 219 218 217 217 217 217 217 218 219 220 222 224 225 226 226 226 226 227 227 227 227 227 227 227 227 227 227 227 227 227 227 227 227 226 226 226 226 226 226 227 227 226 226 225 224 222 222 220 218 215 211 211 210 210 210 204 184 158 132 112 102 103 118 142 175 195 203 210 215 216 216 211 204 196 191 190 190 191 192 191 169 152 113 64 19 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 82 107 126 137 140 147 155 157 154 149 152 155 155 155 154 154 154 155 157 158 156 138 108 77 60 52 33 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 5 18 42 70 94 109 118 123 128 130 131 131 132 134 139 144 149 154 160 161 162 161 159 150 123 100 87 92 117 132 137 137 134 133 133 134 135 135 136 136 136 132 124 103 84 69 58 52 54 71 98 133 171 204 210 213 213 212 210 208 203 198 191 183 179 176 174 172 170 171 171 173 176 180 184 186 188 190 190 191 190 190 188 181 174 165 154 142 123 111 102 96 93 95 103 116 134 156 184 198 204 207 208 209 211 213 215 216 217 217 217 217 217 217 217 217 218 218 219 219 219 219 218 217 216 216 216 216 217 218 219 221 223 225 225 226 226 226 226 226 226 226 226 226 226 226 226 227 227 227 227 227 227 227 227 227 227 226 226 226 226 226 226 226 226 226 225 224 223 222 220 217 214 211 211 210 210 209 201 179 154 129 109 104 107 129 159 185 199 207 213 216 216 214 207 199 193 190 190 191 192 190 184 160 133 87 39 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 102 121 135 141 147 154 157 155 151 154 155 155 154 153 153 154 156 159 161 161 153 125 89 58 51 42 22 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 19 48 70 87 101 117 125 130 135 139 143 147 150 153 155 159 161 162 162 160 158 145 120 94 80 89 113 129 138 140 137 137 136 136 136 136 137 139 139 139 128 106 83 64 51 43 44 58 85 124 180 199 210 214 214 212 210 208 205 200 191 186 181 178 175 173 172 173 174 177 182 185 188 191 191 191 191 191 190 188 181 173 163 152 139 120 109 100 96 94 100 111 128 149 172 196 204 207 208 209 210 213 215 216 217 217 217 217 217 217 217 217 218 218 218 219 218 218 217 216 215 215 215 215 216 218 219 221 223 225 226 226 226 226 226 226 226 226 226 225 225 225 225 226 226 226 226 226 227 227 227 227 227 227 227 226 226 226 226 226 226 226 225 225 223 223 222 219 216 213 211 210 210 210 209 197 173 148 126 108 106 115 144 175 193 203 211 215 216 216 211 201 195 191 190 190 192 191 186 173 151 107 59 20 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 80 96 115 132 142 147 154 157 155 152 155 156 155 153 153 153 154 158 162 165 166 162 143 108 57 43 43 26 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 18 39 72 91 109 124 138 151 155 157 157 157 159 160 162 162 162 160 157 144 120 82 72 79 103 128 141 142 140 139 137 136 136 138 139 141 142 142 133 110 82 54 41 37 37 44 65 133 177 202 213 215 214 211 210 208 206 199 192 187 182 178 175 174 175 176 178 183 187 190 191 192 192 192 191 190 187 180 172 162 150 136 117 106 99 96 96 105 122 142 164 186 205 207 208 209 210 212 214 216 216 217 217 217 217 217 217 217 217 218 218 218 218 217 216 215 215 214 214 215 215 217 220 223 225 226 226 226 226 226 226 225 225 224 224 224 224 224 224 224 224 225 225 225 226 226 226 227 227 227 227 227 226 226 226 225 225 225 225 225 224 223 223 222 219 215 212 210 210 210 210 209 192 167 142 120 108 108 131 162 188 198 208 214 216 216 215 205 196 192 190 190 192 192 190 181 161 135 77 33 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 91 109 129 143 149 155 157 156 154 155 155 154 153 153 153 155 161 168 174 175 171 161 135 85 37 39 29 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 7 15 29 48 72 106 127 141 151 155 157 159 160 161 162 161 160 158 150 130 77 67 66 80 113 141 142 143 142 140 138 139 140 142 144 145 143 135 117 85 44 36 32 30 31 52 103 156 197 215 216 214 212 210 209 206 202 196 191 185 180 177 176 177 178 184 187 190 192 192 193 192 192 190 187 180 171 160 147 133 114 104 98 97 100 117 137 158 180 199 207 208 209 210 211 214 216 216 217 217 217 217 217 217 217 217 217 218 217 217 216 215 214 214 213 214 214 216 219 222 225 226 226 226 226 226 225 224 224 223 223 223 223 223 223 223 222 222 222 222 222 223 223 224 225 226 227 227 227 227 227 226 225 225 225 225 225 224 224 223 223 220 217 213 211 210 210 210 208 205 181 159 133 113 109 118 159 184 198 203 214 216 216 214 210 196 192 191 191 191 192 190 179 164 151 89 38 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 89 107 128 144 150 155 157 157 155 156 155 154 153 153 153 155 162 169 177 179 177 169 148 110 34 27 22 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 10 18 31 59 85 108 127 140 149 153 156 158 160 161 160 159 156 149 113 79 62 59 71 115 135 143 144 143 142 142 143 144 146 147 146 140 128 107 63 41 30 27 26 33 55 98 149 196 216 216 215 213 210 207 204 200 195 189 183 180 178 178 179 184 188 191 192 193 193 193 192 190 187 179 170 159 145 130 111 102 98 99 106 126 147 169 189 203 208 209 210 211 213 215 216 216 217 217 217 217 217 217 217 217 217 217 217 216 215 214 213 213 213 214 216 219 222 225 226 226 226 226 225 224 223 223 223 223 223 223 223 222 222 221 221 220 220 220 221 221 222 223 224 225 226 227 227 227 227 226 225 225 224 224 224 224 223 223 222 219 215 212 210 210 210 209 206 199 175 145 124 113 112 146 177 193 202 209 215 216 215 211 202 193 191 191 191 192 191 183 170 151 127 52 19 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 87 106 129 145 151 156 157 157 155 156 155 154 153 153 154 155 161 169 179 182 180 175 160 129 38 22 17 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 10 25 46 68 91 112 129 138 145 150 154 157 158 159 158 157 139 105 74 51 45 76 112 133 144 145 145 145 146 147 149 150 149 145 136 122 81 49 31 23 22 25 32 57 97 152 205 213 216 215 212 210 206 203 199 194 187 183 181 181 181 184 189 191 192 193 193 193 192 190 187 179 169 157 144 128 109 101 99 102 111 135 157 178 195 206 209 209 210 212 214 216 216 216 216 216 216 217 217 217 217 217 217 217 216 215 214 213 212 213 213 216 219 222 224 226 226 226 225 224 223 222 222 223 223 223 223 223 222 221 220 220 220 220 220 220 220 220 221 222 223 225 226 227 227 227 226 225 225 224 224 224 224 223 223 222 220 217 213 211 210 210 209 208 203 194 161 133 119 117 126 171 190 200 206 213 216 216 212 205 196 191 191 191 191 192 187 173 158 134 91 25 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 81 86 106 130 146 152 156 158 157 155 156 154 154 154 154 154 155 160 167 178 183 182 180 169 144 49 22 13 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 6 16 32 52 75 99 114 126 135 142 149 153 155 157 158 154 132 97 60 34 39 77 111 136 145 147 148 149 150 152 153 152 149 142 131 98 61 35 20 17 20 22 31 54 98 177 203 214 217 215 212 209 206 203 199 192 187 184 183 183 184 189 191 193 193 193 193 192 190 187 179 169 156 142 126 108 101 100 106 117 143 165 185 200 208 209 210 211 213 215 216 216 216 216 216 216 216 217 217 217 217 216 216 215 214 212 212 212 213 214 218 221 224 225 226 225 224 223 222 221 221 222 223 223 223 223 222 221 220 220 220 220 220 220 220 220 220 221 221 223 225 226 227 227 227 226 225 224 224 224 223 223 223 222 221 218 214 212 210 210 209 209 206 199 184 143 125 119 126 149 189 198 205 210 215 216 213 206 198 192 191 191 191 191 190 178 162 142 108 52 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 82 87 108 132 147 153 157 158 157 156 156 155 155 155 155 155 155 157 162 173 181 182 181 174 159 69 25 8 5 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 7 16 31 58 78 94 108 120 133 142 149 154 156 156 151 126 86 35 18 34 73 116 143 147 149 151 152 154 156 155 153 148 140 114 78 44 19 12 13 18 23 31 48 130 182 208 217 216 215 212 209 205 201 196 191 187 186 186 187 190 191 193 193 193 193 192 190 187 178 168 155 140 124 106 101 102 110 124 150 172 191 204 209 210 211 212 214 215 216 216 216 216 216 216 216 216 216 216 216 216 215 214 213 212 212 212 213 216 220 223 225 226 226 224 223 221 221 220 221 222 223 224 224 223 221 220 220 220 220 220 220 220 220 220 220 221 222 223 225 226 227 227 227 226 225 224 223 223 223 222 222 221 220 216 212 210 210 209 209 208 204 192 167 125 121 125 143 179 199 204 209 214 216 215 208 200 193 191 191 191 191 190 185 164 152 118 70 19 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 83 90 113 136 147 154 157 158 157 156 156 155 156 157 157 155 155 155 157 162 178 182 182 178 165 86 31 8 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 12 23 38 54 72 95 114 130 143 151 155 154 148 124 71 14 10 22 54 106 142 147 151 153 155 156 155 153 151 147 126 99 64 32 11 7 9 14 21 28 56 122 175 208 217 216 215 213 210 206 201 198 194 191 190 190 191 192 193 193 193 193 192 190 187 178 167 153 138 121 105 102 105 115 131 158 179 196 206 210 211 211 213 214 215 216 216 216 216 216 216 216 216 216 216 216 215 214 213 212 211 212 213 215 218 222 224 225 225 224 222 220 219 219 220 222 223 224 224 224 222 221 220 220 220 220 220 220 220 220 220 220 221 222 224 226 226 227 227 226 225 223 223 222 222 222 221 221 220 216 212 210 209 209 209 208 205 191 167 134 125 127 150 179 198 205 211 214 215 215 208 198 193 192 191 191 191 189 181 167 153 119 69 23 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 84 95 117 139 148 155 158 158 157 156 156 156 157 158 159 157 156 155 155 158 172 180 182 179 171 98 37 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 8 14 23 36 60 83 106 127 141 151 153 150 134 97 22 9 9 23 52 108 133 145 151 154 155 154 152 150 146 129 103 71 38 13 6 6 9 13 22 40 79 136 187 212 216 216 215 213 210 204 201 198 195 193 193 193 193 194 194 194 193 192 190 187 178 166 153 137 120 105 103 108 119 135 162 183 198 208 210 211 212 213 214 215 216 216 216 216 216 216 216 216 216 216 216 215 214 213 211 211 212 213 215 219 223 224 224 224 223 220 219 218 219 220 223 224 224 224 224 222 221 221 220 220 220 220 220 220 220 220 221 222 224 225 226 226 226 226 225 223 222 222 221 221 221 221 219 216 212 210 209 209 208 208 206 193 169 146 132 129 151 174 194 204 210 213 215 214 211 199 194 192 192 191 191 188 180 169 159 128 76 35 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 85 99 122 142 149 157 159 159 157 156 156 157 158 159 159 159 157 155 155 156 166 177 182 180 174 106 42 12 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 8 14 30 51 77 103 127 144 148 148 137 109 28 10 3 7 19 61 97 124 141 149 152 152 150 146 142 127 105 75 42 14 6 5 6 8 13 27 52 98 151 199 214 216 215 214 213 208 204 201 199 197 195 195 195 194 194 194 194 193 190 187 177 166 152 136 119 105 104 110 122 138 165 185 200 208 211 211 212 213 214 215 216 216 216 216 216 216 216 216 216 216 215 214 213 212 211 211 212 213 216 219 223 223 223 223 221 218 217 217 218 220 224 224 224 224 224 223 222 222 221 220 220 220 220 220 221 222 223 224 225 226 226 226 225 224 223 221 221 221 221 221 220 218 215 212 210 208 208 208 208 206 194 172 152 138 133 148 174 192 203 208 213 214 213 210 203 194 192 192 192 192 189 181 171 158 141 86 40 13 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 104 126 144 150 158 159 159 157 156 156 157 159 160 160 159 159 157 155 155 161 174 181 181 175 111 46 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 10 24 45 71 100 126 135 137 129 107 31 10 2 2 3 20 54 87 116 136 143 145 144 141 137 122 104 75 44 14 5 5 4 5 6 17 34 65 112 175 210 214 216 215 214 212 207 205 202 200 197 197 196 195 195 194 194 193 191 187 178 166 151 135 117 106 106 112 124 141 167 187 200 209 211 212 212 213 214 215 215 216 216 216 216 216 216 216 216 216 215 214 213 212 211 211 212 213 216 219 222 222 222 221 219 216 216 216 217 220 224 225 225 225 225 224 223 223 222 222 221 221 221 222 222 224 225 225 226 226 226 225 224 222 221 220 220 220 220 219 217 214 211 209 208 208 208 207 204 198 174 152 142 140 144 174 193 203 209 212 214 213 210 204 196 192 192 192 191 190 182 171 159 140 109 41 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 87 110 131 147 151 158 160 159 157 156 156 158 159 160 160 160 159 158 156 155 158 171 179 181 177 115 48 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 14 30 54 94 107 111 105 92 29 10 2 1 1 3 13 37 71 108 126 133 134 132 129 116 98 73 43 13 4 4 4 4 4 7 21 45 81 134 201 211 215 216 215 214 211 207 204 203 199 198 198 197 196 195 194 193 191 187 178 166 151 134 117 107 108 114 126 143 169 187 201 209 211 212 213 213 214 215 215 216 216 216 216 216 216 216 216 216 215 214 213 212 211 211 212 213 216 219 221 221 221 220 218 215 215 215 216 220 224 225 225 225 225 225 225 224 224 224 224 224 224 225 225 225 226 226 226 226 225 223 222 221 220 220 220 219 217 216 212 210 208 208 208 208 207 205 196 178 149 144 142 148 168 197 205 209 212 214 214 210 203 196 192 192 192 191 189 184 171 162 144 111 58 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 89 118 138 149 152 159 161 159 157 157 157 158 159 160 160 160 160 159 157 155 157 169 178 181 177 117 48 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 4 7 24 36 39 37 30 10 4 2 1 1 1 2 6 16 39 80 97 106 108 106 95 80 55 29 7 2 2 3 3 3 4 7 21 47 88 169 200 213 216 216 215 214 210 207 205 203 201 199 198 197 195 194 193 191 188 178 166 151 134 117 108 109 116 127 143 168 186 200 209 211 212 213 213 214 214 215 215 215 216 216 216 216 216 216 216 215 214 213 211 211 211 211 213 215 218 220 220 219 218 216 214 213 213 215 219 224 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 226 225 225 224 222 220 220 219 218 217 215 214 212 210 208 208 208 208 207 205 198 183 166 152 147 148 161 180 199 209 211 213 213 213 208 200 195 192 192 192 191 186 180 172 160 136 94 48 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 91 124 143 151 153 160 161 159 157 157 157 158 159 160 160 160 160 159 157 155 157 169 178 181 177 114 46 13 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 8 12 13 12 10 4 2 1 1 1 1 1 3 6 14 37 59 74 81 82 74 61 41 20 5 2 2 2 3 3 3 5 13 30 61 133 182 206 214 216 216 215 213 210 206 204 202 201 200 199 196 195 193 191 188 179 167 152 135 118 109 110 117 128 143 166 184 198 208 211 212 213 213 214 214 215 215 215 215 216 216 216 216 216 216 215 214 213 212 211 211 211 212 214 217 218 218 218 217 215 212 212 212 213 216 223 224 225 225 225 225 225 225 225 225 225 225 225 225 225 224 224 222 221 220 218 217 216 215 214 213 212 210 210 209 208 208 207 205 203 190 176 165 157 152 155 168 184 199 208 211 212 213 212 208 199 195 193 192 192 189 185 179 172 163 133 90 50 19 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 94 129 147 153 154 160 161 160 158 157 157 158 159 159 160 160 160 159 157 156 157 169 178 181 176 108 43 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 3 2 2 1 1 1 1 1 1 1 1 2 4 13 28 41 51 56 51 41 27 13 4 1 1 1 2 3 3 4 7 18 39 101 158 194 212 215 216 216 215 212 209 206 204 203 201 200 197 195 194 192 188 180 168 153 136 119 110 111 117 127 141 163 181 196 206 211 212 213 213 214 214 215 215 215 215 215 216 216 216 216 216 215 214 213 212 211 211 211 212 213 215 217 217 217 216 215 212 211 211 211 213 220 223 224 225 225 225 225 225 224 224 224 224 223 223 222 221 220 218 217 216 215 214 213 212 212 210 210 209 208 208 207 205 201 195 187 174 165 159 157 159 174 189 201 208 211 212 212 210 206 201 195 193 192 191 189 184 179 171 159 139 89 48 21 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 98 133 150 155 156 161 161 160 158 157 157 158 158 159 160 160 160 159 157 156 157 170 179 181 174 100 38 10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 7 16 24 30 28 23 15 8 3 1 1 1 1 2 2 3 4 9 22 72 128 175 206 214 215 216 216 215 212 208 207 205 203 201 198 196 194 192 189 181 170 155 138 120 111 112 117 127 139 160 177 192 204 210 212 213 213 214 214 214 214 215 215 215 215 216 216 216 216 215 214 213 212 211 211 211 211 212 214 216 216 216 215 214 211 210 209 209 210 216 221 223 224 225 225 224 224 223 223 222 222 221 220 219 217 216 215 214 213 212 211 211 210 210 209 208 208 207 206 202 197 190 181 171 163 161 162 166 175 195 205 210 212 212 212 209 205 200 195 193 192 191 188 185 178 171 157 134 99 42 17 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 102 136 151 156 157 161 161 160 158 157 157 157 158 159 159 159 159 159 157 156 158 172 180 180 171 87 32 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 5 8 9 7 5 3 2 1 1 1 1 1 2 2 3 4 7 44 98 154 197 212 215 216 216 216 216 211 209 207 205 202 200 196 194 192 190 182 171 157 140 122 113 113 117 125 137 156 172 188 200 208 211 213 213 214 214 214 214 214 215 215 215 215 215 215 215 215 215 214 213 212 211 211 211 212 213 214 215 215 214 214 211 209 208 208 208 210 216 220 223 224 224 224 223 222 222 220 219 218 217 216 214 213 212 212 211 211 210 210 209 209 208 207 206 204 200 190 181 174 168 164 163 164 172 184 200 210 211 212 212 212 209 203 198 195 193 192 190 187 183 179 172 159 130 91 45 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 108 137 152 157 158 162 162 161 159 157 157 157 158 158 159 159 159 158 157 156 160 175 181 177 162 65 22 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 3 5 19 58 113 168 206 214 215 216 217 217 215 212 210 208 205 201 198 195 193 191 184 174 160 144 126 114 114 117 124 133 149 164 180 193 203 209 211 213 213 214 214 214 214 214 214 215 215 215 215 215 215 215 214 214 213 212 211 211 211 212 213 213 213 213 213 211 209 208 206 206 205 207 211 215 218 221 222 221 221 220 219 218 217 215 214 213 212 211 211 210 210 209 208 207 206 202 197 192 185 179 173 170 169 168 167 176 189 200 207 211 212 212 211 209 206 199 196 194 193 192 188 184 180 176 170 145 105 63 28 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 138 152 158 159 162 162 161 159 158 157 158 158 158 159 159 159 158 157 157 164 178 182 173 146 47 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 3 12 38 83 138 194 212 214 215 216 217 216 214 212 210 206 202 198 196 193 192 185 176 163 148 130 116 115 117 123 131 144 157 172 186 197 205 209 212 213 213 214 214 214 214 214 214 215 215 215 215 215 215 215 214 213 212 212 211 211 212 212 212 212 212 212 211 209 208 206 205 204 204 205 207 209 212 214 216 216 217 216 215 215 214 213 211 210 209 208 207 205 203 200 197 194 188 184 181 178 175 172 172 174 179 185 196 203 208 210 211 211 209 207 204 200 196 194 192 189 187 183 180 173 161 140 92 54 27 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 139 152 159 160 163 163 161 160 158 158 158 158 158 158 159 158 158 157 157 169 180 181 165 124 31 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 6 23 57 107 171 208 212 214 215 217 217 216 214 211 208 203 199 196 194 192 186 178 166 152 134 118 116 118 122 128 139 151 164 178 190 200 206 209 212 213 213 214 214 214 214 214 214 214 215 215 215 215 215 214 214 213 212 212 212 212 212 212 212 212 212 211 209 208 207 205 203 203 202 203 203 205 206 207 208 209 209 208 208 207 206 205 204 202 200 199 196 193 191 188 185 181 179 177 176 176 178 181 187 193 200 207 210 211 211 210 208 205 202 199 196 193 190 188 185 182 178 169 152 127 93 45 22 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 118 139 152 159 161 163 163 162 160 158 158 158 158 158 158 159 158 158 157 159 175 181 178 154 96 17 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 12 36 77 139 200 209 213 214 216 217 216 215 213 209 204 200 197 195 193 188 180 170 156 139 121 118 118 121 126 135 144 156 168 181 194 200 205 209 212 213 213 213 213 214 214 214 214 214 214 215 215 215 215 214 214 213 213 212 212 212 212 212 212 211 211 210 209 207 206 204 203 202 201 200 200 200 200 200 200 200 200 200 199 198 197 195 194 192 190 187 185 183 182 181 179 179 179 181 183 189 195 201 206 210 212 211 210 209 207 204 200 197 195 193 189 186 184 180 177 165 145 116 81 45 13 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 120 140 152 159 161 164 164 163 161 158 158 158 158 158 158 159 158 157 158 161 181 182 173 138 64 8 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 19 49 102 187 204 212 214 214 216 216 215 213 211 205 201 198 196 194 189 182 173 161 145 124 120 119 121 125 132 138 147 158 171 185 193 200 205 209 212 213 213 213 213 213 213 214 214 214 214 214 214 214 214 214 214 213 213 212 212 212 212 211 211 211 210 209 208 207 204 203 202 201 200 198 198 197 196 195 194 194 193 192 191 190 189 188 187 186 184 184 183 182 181 182 184 187 192 198 205 209 211 211 212 211 209 207 205 202 199 196 193 190 187 184 182 180 175 167 138 101 63 31 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 123 140 152 159 162 164 164 164 162 160 158 158 158 158 159 159 158 158 161 170 183 181 152 100 29 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 9 25 59 145 188 207 213 214 215 215 215 214 211 207 203 200 197 195 191 186 178 167 154 132 124 121 121 124 129 133 138 146 156 170 180 188 195 201 207 210 211 212 213 213 213 213 213 213 213 214 214 214 214 214 214 214 213 213 213 212 212 212 211 211 210 210 209 208 207 205 204 202 200 199 198 197 196 195 194 193 192 192 191 190 189 188 187 187 186 187 188 191 194 199 203 207 209 210 211 211 211 210 208 206 204 202 199 197 193 190 186 184 182 179 174 164 145 114 65 34 14 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 124 139 151 159 162 165 165 164 163 161 159 159 159 159 159 159 158 159 164 177 181 171 124 64 12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 5 15 36 103 165 198 211 213 214 215 215 214 212 208 205 201 199 196 192 188 181 173 162 141 129 124 122 124 128 131 134 139 146 158 167 176 184 192 200 204 207 210 211 212 212 212 212 213 213 213 213 213 214 214 214 214 213 213 213 213 213 212 212 212 211 211 210 210 209 208 206 205 204 202 201 200 198 197 196 195 195 194 194 193 194 194 195 195 197 199 201 203 205 207 209 209 210 210 210 209 208 206 205 202 200 197 194 190 186 184 182 180 177 168 150 124 93 60 26 13 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 125 139 150 158 162 165 165 165 164 162 160 159 159 160 160 158 158 162 170 180 179 148 91 35 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 18 68 134 180 207 213 214 214 214 214 213 209 206 203 200 197 194 190 185 178 169 150 137 128 124 124 127 129 132 135 139 148 156 164 172 180 190 196 201 205 208 210 211 212 212 212 212 212 212 212 213 213 213 213 213 213 213 213 213 213 213 212 212 212 212 211 210 210 209 208 207 206 205 204 203 203 202 201 201 201 201 201 202 202 203 204 206 207 208 209 210 210 210 209 209 209 207 206 204 203 200 197 194 191 187 184 181 179 176 170 161 135 107 77 48 25 7 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 126 139 149 157 162 165 165 165 164 163 161 161 161 161 160 158 160 167 175 181 170 115 57 14 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 7 39 98 155 197 211 213 214 214 214 213 210 207 204 201 199 195 192 188 182 175 160 146 135 128 126 126 129 131 133 135 140 146 152 160 167 178 185 191 197 201 206 208 210 211 211 211 211 212 212 212 212 212 213 213 213 213 213 213 213 213 213 213 212 212 212 212 211 211 211 211 210 209 209 209 208 208 208 208 208 208 208 209 209 209 210 210 210 210 210 210 209 209 208 207 206 204 202 200 198 195 190 187 184 181 179 176 172 163 149 128 89 59 34 16 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 138 148 156 161 164 165 165 165 164 163 163 162 161 159 159 163 172 179 178 149 72 25 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 14 61 122 177 208 213 213 214 214 214 211 209 206 203 200 196 194 190 185 180 168 156 144 134 128 128 129 130 132 133 135 138 143 148 154 164 171 179 185 192 199 203 206 208 210 210 211 211 211 211 211 211 211 212 212 212 212 212 213 213 213 213 212 212 212 212 212 212 212 212 212 212 212 211 211 211 211 211 211 211 211 211 210 210 210 210 210 209 209 208 207 206 206 204 203 201 198 194 191 187 182 180 178 177 175 169 157 136 109 76 39 18 7 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 138 147 155 160 163 164 165 165 164 164 163 161 159 159 161 170 174 172 160 76 28 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 7 24 70 130 191 211 213 213 214 214 212 210 208 205 202 199 196 193 189 185 178 169 158 148 138 132 131 131 132 133 135 135 137 139 142 148 154 160 167 173 182 188 193 198 202 206 208 209 209 210 210 210 210 210 210 210 211 211 211 211 211 212 212 212 212 212 212 212 212 212 212 211 211 211 211 211 211 211 210 210 210 209 209 209 208 207 207 207 206 206 204 203 200 197 194 189 185 182 179 177 176 174 171 166 156 128 100 70 42 23 5 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 138 147 153 158 163 164 164 165 164 164 162 161 160 161 167 173 171 154 111 39 15 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 13 43 89 153 204 211 213 213 213 213 211 209 207 204 201 198 195 192 188 183 176 168 159 150 140 137 135 134 134 135 136 137 138 140 143 146 150 154 160 167 173 179 184 190 196 200 203 205 207 208 209 209 209 209 209 209 209 209 210 210 210 210 210 210 210 210 210 210 210 210 210 210 210 210 209 209 209 209 209 208 208 208 207 207 206 205 204 202 200 197 194 190 187 183 179 177 175 174 172 169 162 150 133 111 77 51 31 18 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 139 147 152 157 161 163 164 164 164 162 161 160 161 162 170 171 156 123 73 23 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6 23 56 111 185 204 212 213 213 213 212 210 208 206 203 200 197 194 191 186 182 177 170 162 152 146 143 140 138 137 138 138 139 139 141 143 145 148 151 156 161 165 170 176 183 188 192 196 199 202 204 206 207 207 208 208 208 208 208 208 208 209 209 209 209 209 209 209 209 209 209 209 208 208 208 208 207 207 207 206 206 205 204 203 200 198 196 193 190 186 183 180 177 175 173 171 169 166 161 147 131 111 89 65 36 20 11 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 129 140 147 152 155 160 162 163 164 163 161 160 161 162 164 171 162 132 91 49 19 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10 31 69 153 190 207 212 213 213 213 211 210 208 205 202 199 197 194 190 187 183 178 173 164 158 153 149 145 142 141 141 140 141 141 142 143 145 146 149 152 155 159 163 169 174 178 183 187 193 196 199 201 203 204 205 206 206 207 207 207 207 207 207 207 207 207 207 207 207 207 207 206 206 206 205 205 204 203 202 200 199 197 195 191 188 185 182 179 176 173 172 170 169 166 163 157 148 136 111 88 66 45 28 9 5 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 130 141 147 151 154 159 162 163 162 160 160 161 161 163 167 169 144 107 70 44 23 11 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 12 32 108 166 198 211 213 213 213 212 211 209 207 204 201 199 196 192 190 187 185 182 175 170 166 162 158 153 150 147 145 143 142 142 143 144 145 146 149 150 152 154 158 161 165 169 172 178 182 186 190 193 197 199 201 203 204 204 205 205 205 205 205 205 205 204 204 204 204 203 203 202 201 200 199 197 196 193 190 188 185 182 178 175 173 171 169 168 167 166 165 163 157 147 132 114 91 61 41 26 15 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 131 142 148 151 153 159 160 159 159 160 161 159 159 162 170 155 117 90 70 52 25 12 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 10 48 109 163 200 211 212 213 213 212 211 209 207 204 202 199 196 193 191 190 188 185 182 179 177 175 172 169 166 163 159 154 151 148 146 146 146 148 149 150 152 154 155 157 158 160 162 165 167 169 172 175 178 181 184 186 189 191 192 194 194 195 195 195 195 194 194 192 191 190 188 186 184 182 180 178 175 173 171 169 167 166 165 164 164 163 161 158 153 144 131 107 87 68 49 31 13 9 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 131 143 149 151 153 158 158 159 160 161 159 157 161 167 168 131 108 95 83 65 32 16 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 24 68 121 170 203 211 212 212 212 212 210 209 206 204 202 198 196 194 192 191 190 188 186 184 183 181 180 178 176 174 171 168 164 161 157 152 151 150 150 151 153 154 155 156 158 160 161 162 164 165 167 168 169 170 172 173 174 175 177 177 178 179 179 180 180 179 179 178 177 176 174 173 171 170 168 166 165 164 163 163 162 161 159 156 152 141 129 115 100 83 60 45 32 20 10 5 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 133 144 149 151 153 157 158 159 160 160 156 156 164 168 158 120 113 110 105 92 52 27 11 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9 35 79 130 180 207 210 212 212 212 211 210 208 206 204 201 199 196 194 193 192 191 191 190 188 188 187 186 186 185 183 181 178 176 172 167 163 160 157 155 155 155 155 156 157 158 159 160 161 162 163 163 164 164 165 165 166 166 166 167 167 167 168 168 167 167 167 166 166 165 164 163 163 162 161 160 159 159 158 157 153 148 142 134 123 105 90 73 57 43 27 19 12 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 134 145 149 151 153 157 159 161 161 157 154 160 168 166 144 121 127 130 130 123 84 49 23 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 12 41 85 143 194 206 211 212 212 212 211 210 208 207 204 202 199 197 195 194 193 193 193 192 192 192 192 191 191 191 190 189 188 186 183 179 175 171 166 162 161 159 159 158 159 159 160 161 161 162 162 163 163 163 163 163 162 162 162 162 161 161 161 160 160 159 159 159 158 158 158 157 157 157 156 155 154 151 148 138 128 116 102 86 65 49 35 24 15 7 5 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 136 146 150 151 153 157 163 163 159 153 154 169 172 160 131 135 145 150 150 148 127 82 43 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13 42 92 166 195 208 211 212 212 212 211 210 209 207 204 202 200 197 195 195 194 194 194 195 195 195 195 195 195 195 194 194 193 193 192 191 189 186 181 177 172 168 165 162 161 161 161 162 162 163 163 163 163 163 163 163 162 162 162 161 161 160 160 159 159 158 158 158 157 156 156 155 154 153 151 147 141 133 114 99 83 66 49 29 18 11 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 137 146 150 151 154 162 164 161 156 155 168 177 163 144 135 153 155 155 153 151 146 127 86 41 10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 10 30 96 151 187 207 211 211 212 212 211 210 209 208 206 204 202 199 197 196 195 195 195 196 196 196 196 196 196 197 197 197 197 197 197 197 196 195 193 192 190 187 184 181 179 176 174 172 171 171 170 170 170 169 169 169 168 167 167 166 166 165 164 163 163 162 161 160 159 157 156 154 150 144 134 120 102 77 60 44 30 18 8 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 138 146 150 153 158 167 164 160 158 162 179 179 159 140 144 157 157 156 153 150 147 139 110 69 22 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 12 49 97 145 185 206 211 211 212 212 212 210 209 208 207 205 203 201 199 198 197 196 196 196 196 196 196 197 197 197 198 198 198 198 198 198 198 197 197 196 196 194 193 191 190 189 187 185 184 183 183 182 181 181 180 180 179 178 178 177 177 175 174 172 170 169 165 162 159 156 152 144 132 115 96 76 52 37 24 14 7 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 139 147 150 154 162 169 163 161 164 174 184 174 154 140 151 160 160 157 153 149 146 143 125 91 38 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 20 53 97 143 183 207 210 211 212 212 211 211 210 209 208 206 205 203 201 200 199 199 198 198 197 197 197 198 198 198 199 199 199 199 199 199 199 199 199 200 199 199 198 198 198 197 196 195 194 193 192 191 191 190 189 188 187 186 185 184 181 179 177 174 171 167 162 157 150 141 123 105 86 67 50 31 20 11 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 141 147 151 156 166 170 163 164 171 185 186 166 149 142 156 163 162 157 152 147 145 143 134 107 54 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 21 51 92 141 189 202 209 211 211 212 211 211 210 210 209 207 206 205 204 203 202 201 200 200 199 199 199 199 200 200 200 201 201 201 200 200 201 201 201 201 201 202 202 202 202 202 202 201 201 200 199 198 197 196 194 193 191 189 186 182 179 176 172 167 159 151 142 131 116 91 72 54 39 26 15 9 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 143 148 152 158 170 169 164 168 177 188 186 157 145 147 159 164 163 157 151 145 143 142 137 117 70 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 19 44 82 147 184 203 210 210 211 212 211 211 211 210 210 209 208 207 206 205 204 203 202 202 202 202 202 202 203 203 203 203 202 202 202 202 202 201 201 202 202 203 203 204 204 204 204 204 204 203 201 200 198 195 193 190 187 184 179 175 169 162 154 137 123 107 90 73 52 37 25 15 8 5 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 144 148 155 163 173 166 165 173 184 189 181 150 141 147 160 161 155 149 144 143 143 142 138 122 83 19 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 10 26 68 110 150 183 204 210 211 212 212 212 212 212 211 211 211 211 211 210 210 210 209 209 208 208 208 207 207 207 206 206 205 204 203 203 202 202 202 202 203 203 203 204 204 205 205 203 201 198 195 191 185 180 172 164 154 140 128 115 102 88 71 58 44 32 23 14 10 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 144 149 157 166 173 164 165 176 187 190 173 147 141 146 155 151 147 144 143 142 141 140 137 123 88 21 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 9 32 60 93 127 159 189 200 206 209 211 211 212 212 212 212 212 211 211 211 211 211 211 210 210 210 209 209 208 208 207 206 205 205 204 203 202 202 202 202 203 203 202 202 201 198 191 185 178 170 161 148 138 127 116 105 89 78 67 56 45 35 26 19 13 8 5 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 146 150 159 167 170 162 167 179 189 189 164 144 139 143 146 144 142 142 141 141 139 139 136 123 90 23 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 11 27 48 74 104 140 161 177 189 198 204 206 208 209 209 210 210 210 210 210 210 210 210 210 209 209 209 208 208 207 206 205 204 203 202 201 201 201 201 200 199 196 192 186 178 164 154 143 131 119 103 91 80 70 60 48 39 31 24 19 13 8 6 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 147 151 159 166 166 160 170 181 190 188 156 141 138 139 139 140 141 141 140 139 138 137 135 122 90 23 8 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7 18 33 52 83 106 128 147 163 176 183 188 192 195 197 199 200 201 201 202 202 202 203 203 203 203 203 203 203 202 201 201 200 199 197 196 195 193 190 184 177 168 157 144 126 112 99 86 74 59 49 40 32 25 19 14 9 6 5 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 147 152 160 165 162 159 174 184 189 184 148 139 136 136 137 141 141 140 139 137 137 136 133 120 87 22 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 8 17 34 50 66 81 96 115 128 139 149 157 165 169 172 175 178 180 182 184 186 188 189 190 191 192 192 192 192 191 190 189 187 184 179 174 166 153 140 126 112 98 80 67 55 43 33 24 18 12 8 5 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 147 152 157 159 155 159 180 187 183 172 142 137 136 138 141 141 141 140 138 137 136 136 132 115 77 17 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 6 11 18 24 31 37 41 45 50 54 60 64 67 71 74 78 81 85 89 93 100 104 108 112 115 119 121 122 122 121 117 112 106 99 91 79 70 60 50 41 30 23 17 11 6 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 145 151 154 154 152 168 183 184 176 163 141 139 139 141 142 142 141 140 140 138 137 136 130 110 67 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 4 6 9 11 14 15 17 18 20 22 23 25 26 28 30 31 33 35 38 41 44 47 50 53 56 58 60 61 61 59 56 53 49 45 38 33 27 22 17 11 8 6 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 142 148 150 150 153 177 183 178 167 154 141 141 142 143 142 142 142 142 142 141 139 137 128 103 55 9 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 4 4 4 4 5 5 6 6 7 8 8 9 10 11 12 14 15 17 18 20 21 22 23 23 23 22 20 19 17 14 11 9 7 5 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 138 144 147 150 158 182 179 169 157 148 143 144 143 143 143 143 145 145 145 143 141 137 123 93 43 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 5 5 5 5 4 4 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 138 142 145 153 171 181 171 159 150 145 145 144 143 143 143 146 148 149 148 146 143 138 117 81 31 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 139 143 151 162 175 168 157 150 146 145 145 143 144 146 150 156 157 155 153 149 145 136 104 62 18 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 142 148 158 167 170 157 150 147 146 145 143 144 148 153 157 159 158 156 153 150 146 130 92 47 12 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 145 153 161 165 159 149 147 146 145 144 143 149 154 158 160 160 159 157 154 152 146 120 78 35 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 148 157 160 158 148 145 145 145 145 144 146 155 158 159 159 159 158 157 155 153 143 108 64 24 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 148 157 154 147 143 144 145 145 145 144 155 158 157 156 155 157 157 157 156 153 139 93 49 15 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 148 148 143 138 143 144 145 144 145 148 159 153 151 150 151 153 155 156 155 151 118 68 30 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 143 139 137 138 143 144 145 145 147 153 155 151 149 149 150 151 152 152 149 141 92 47 18 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 138 134 135 138 143 145 145 145 148 154 152 150 149 149 149 149 149 147 138 121 65 29 10 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 134 131 134 138 143 145 145 145 148 153 151 150 149 149 148 147 145 138 123 94 40 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 130 130 134 139 143 145 144 145 148 151 150 150 149 149 148 146 140 126 101 64 19 7 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 139 144 145 144 146 149 150 151 150 150 149 148 144 129 101 67 31 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 139 144 145 144 146 149 150 151 151 150 148 147 141 115 81 46 17 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 139 144 145 144 146 148 150 151 150 149 148 146 135 99 61 29 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 139 145 145 144 146 148 150 151 150 148 147 145 126 82 44 16 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 140 145 145 145 146 148 150 150 149 148 146 143 112 64 28 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 130 134 139 145 145 145 146 147 149 149 148 146 143 137 87 39 13 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 129 133 139 145 145 145 146 147 149 148 146 144 140 129 62 25 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 129 133 139 145 146 146 147 148 148 147 145 143 134 112 39 14 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 128 132 138 145 146 147 147 148 147 145 144 140 124 88 21 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 128 131 137 145 146 147 147 147 145 143 142 135 111 58 7 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 127 130 136 143 146 146 145 144 142 142 139 118 78 22 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 127 130 134 139 144 143 142 142 142 141 130 93 46 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 127 127 130 133 137 140 140 141 141 141 137 108 64 22 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 128 129 132 135 138 139 140 140 139 123 76 35 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 128 128 129 132 135 136 139 140 139 136 94 39 11 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 129 130 131 132 134 138 139 138 129 107 29 9 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 130 131 132 133 136 139 138 127 101 52 10 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 132 133 134 136 138 137 126 97 59 18 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 135 135 136 137 137 125 97 57 20 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 137 137 137 137 134 94 44 16 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 136 134 125 104 66 18 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 105 88 67 45 22 6 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 55 41 26 13 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13 7 4 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_main.c0000644000000000000000000001574512421456623016410 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "hfile.h" #include "mfhdf.h" #include "hrepack.h" #include "hrepack_parse.h" #include "hrepack_opttable.h" static void usage(void); /*------------------------------------------------------------------------- * Function: main * * Purpose: hrepack main program * * Programmer: Pedro Vicente Nunes, pvn@ncsa.uiuc.edu * * Date: July 10, 2003 * *------------------------------------------------------------------------- */ int main(int argc, char **argv) { char *infile = NULL; char *outfile = NULL; options_t options; /*the global options */ int i; int ret; /* initialize options */ hrepack_init (&options,0); for ( i = 1; i < argc; i++) { if (strcmp(argv[i], "-i") == 0) { infile = argv[++i]; } else if (strcmp(argv[i], "-o") == 0) { outfile = argv[++i]; } else if (strcmp(argv[i], "-h") == 0) { goto out; } else if (strcmp(argv[i], "-v") == 0) { options.verbose = 1; } else if (strcmp(argv[i], "-V") == 0) { printf("%s, %s\n\n", argv[0], LIBVER_STRING ); exit(0); } else if (strcmp(argv[i], "-t") == 0) { /* add the -t option */ if (hrepack_addcomp(argv[i+1],&options)<0) goto out; /* jump to next */ ++i; } else if (strcmp(argv[i], "-c") == 0) { /* parse the -c option */ if (hrepack_addchunk(argv[i+1],&options)<0) goto out; /* jump to next */ ++i; } else if (strcmp(argv[i], "-m") == 0) { options.threshold = parse_number(argv[i+1]); if (options.threshold==-1) { printf("Error: Invalid treshold size <%s>\n",argv[i+1]); goto out; } ++i; } else if (strcmp(argv[i], "-f") == 0) { if (read_info(argv[++i],&options)<0) goto out; } else if (argv[i][0] == '-') { goto out; } } if (infile == NULL || outfile == NULL) goto out; /* zip it */ ret=hrepack_main(infile,outfile,&options); /* free tables */ hrepack_end(&options); /* unix error return code */ if (ret==-1) return 1; else return 0; out: usage(); /* free tables */ hrepack_end(&options); return 0; } /*------------------------------------------------------------------------- * Function: usage * * Purpose: print usage * * Return: void * *------------------------------------------------------------------------- */ static void usage(void) { printf("usage: hrepack -i input -o output [-V] [-h] [-v] [-t 'comp_info'] [-c 'chunk_info'] [-f cfile] [-m size]\n"); printf(" -i input input HDF File\n"); printf(" -o output output HDF File\n"); printf(" [-V] prints version of the HDF4 library and exits\n"); printf(" [-h] prints this usage\n"); printf(" [-v] verbose mode\n"); printf(" [-t 'comp_info'] compression type: 'comp_info' is a string with the format\n"); printf("\t\t :\n"); printf("\t\t is a comma separated list of object names\n"); printf("\t\t meaning apply compression only to those objects\n"); printf("\t\t '*' means all objects\n"); printf("\t\t can be:\n"); printf("\t\t RLE, for RLE compression\n"); printf("\t\t HUFF, for Huffman\n"); printf("\t\t GZIP, for gzip\n"); printf("\t\t JPEG, for JPEG (for images only)\n"); printf("\t\t SZIP, for szip\n"); printf("\t\t NONE, to uncompress\n"); printf("\t\t is optional compression info\n"); printf("\t\t RLE, no parameter\n"); printf("\t\t HUFF, the skip-size\n"); printf("\t\t GZIP, the deflation level\n"); printf("\t\t JPEG, the quality factor\n"); printf("\t\t SZIP, pixels per block, compression mode (NN or EC)\n"); printf(" [-c 'chunk_info'] apply chunking. 'chunk_info' is a string with the format\n"); printf("\t\t :\n"); printf("\t\t is a comma separated list of object names\n"); printf("\t\t meaning apply chunking only to those objects\n"); printf("\t\t '*' means all objects\n"); printf("\t\t is the chunk size of each dimension:\n"); printf("\t\t or\n"); printf("\t\t NONE, to unchunk a previous chunked object\n"); printf(" [-f cfile] file with compression information -t and -c\n"); printf(" [-m size] do not compress objects smaller than size (bytes)\n"); printf("\n"); printf("Examples:\n"); printf("\n"); printf("1) hrepack -v -i file1.hdf -o file2.hdf -t '*:RLE'\n"); printf(" compresses all objects in the file file1.hdf, using RLE compression\n"); printf("\n"); printf("2) hrepack -v -i file1.hdf -o file2.hdf -t '/group1/A,/group2/B,C:HUFF 1'\n"); printf(" applies Skipping Huffman compression with skip factor of 1,\n"); printf(" for objects /group1/A, /group2/B and C\n"); printf("\n"); printf("2) hrepack -v -i file1.hdf -o file2.hdf -t '/group1/D:RLE' -c 'D,E:10x10'\n"); printf(" applies RLE compression for object /group1/D\n"); printf(" applies chunking to objects D and E using a chunk size of 10 for the 2 dimensions\n"); printf("\n"); printf("3) hrepack -v -i file1.hdf -o file2.hdf -t 'A:NONE'\n"); printf(" uncompresses object A\n"); printf("\n"); printf("4) hrepack -v -i file1.hdf -o file2.hdf -t 'A:SZIP 8,NN'\n"); printf(" applies SZIP compression to object A, with parameters 8 and NN\n"); printf("\n"); printf("Note: the use of the verbose option -v is recommended\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_gr.h0000644000000000000000000000331712421456623016071 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_GR_H_ #define REPACK_GR_H_ #include "hrepack.h" #include "hrepack_lsttable.h" #ifdef __cplusplus extern "C" { #endif int copy_gr(int32 infile_id, int32 outfile_id, int32 gr_in, int32 gr_out, int32 tag, /* tag of input GR */ int32 ref, /* ref of input GR */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ options_t *options, list_table_t *list_tbl); int copy_gr_attrs(int32 ri_id, int32 ri_out, int32 nattrs, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_GR_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack.h0000644000000000000000000000623512421456623015403 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_H_ #define REPACK_H_ #include "hrepack_lsttable.h" #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #define NN_MODE 0 #define EC_MODE 1 #define TAG_GRP_IMAGE DFTAG_RIG #define TAG_GRP_DSET DFTAG_NDG /* a list of names */ typedef struct { char obj[H4_MAX_NC_NAME]; } obj_list_t; /* the type of compression and additional parameter */ typedef struct { comp_coder_t type; /* compression enum type */ int info; /* numerical parameter for several types of compression */ int szip_mode; /* NN_MODE or EC_MODE */ } comp_info_t; /* chunk lengths along each dimension and rank */ typedef struct { int32 chunk_lengths[H4_MAX_VAR_DIMS]; int rank; } chunk_info_t; /* information for one object, contains PATH, CHUNK info and COMP info */ typedef struct { char objpath[H4_MAX_NC_NAME]; /* name of object */ comp_info_t comp; /* compression information */ chunk_info_t chunk; /* chunk information */ } pack_info_t; /* store a list of all objects */ typedef struct { int size; int nelems; pack_info_t *objs; } options_table_t; /* all the above, ready to go to the hrepack call */ typedef struct { options_table_t *op_tbl; /*table with all -c and -t options */ int all_chunk; /*chunk all objects, input of "*" */ int all_comp; /*comp all objects, input of "*" */ comp_info_t comp_g; /*global compress INFO for the ALL case */ chunk_info_t chunk_g; /*global chunk INFO for the ALL case */ int verbose; /*verbose mode */ int trip; /*which cycle are we in */ int threshold; /*minimum size to compress, in bytes */ } options_t; #ifdef __cplusplus extern "C" { #endif int hrepack (const char* infname, const char* outfname, options_t *options); int hrepack_addcomp (const char* str, options_t *options); int hrepack_addchunk(const char* str, options_t *options); void hrepack_init (options_t *options, int verbose); void hrepack_end (options_t *options); int list(const char* infname,const char* outfname,options_t *options); int read_info(const char *filename,options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_lsttable.h0000644000000000000000000000517612421456623017300 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_LSTTABLE_H_ #define REPACK_LSTTABLE_H_ #include "hdf.h" #include "mfhdf.h" #define PFORMAT " %-7s %-4s %-10s %-7s\n" /*chunk info, compression info, ratio, name*/ #define PFORMAT1 " %-7s %-7s %-7s" /*chunk info, compression info, name*/ #ifdef __cplusplus extern "C" { #endif /* structure to store the tag/ref and path of an object the pair tag/ref uniquely identifies an HDF object the path field is used for information purposes */ typedef struct obj_info_t { int tag; int ref; char *path; /* build a path for each object using the vgroup separation symbol "/" * along the vgroup hierarchy traversal, e.g., the vgroup hierarchy * * vg0 -----> vg1 -----> vg2 -----> sds1 * -----> vg3 -----> sds2 * * would built 6 objects with the paths * * vg0 * vg0/vg1 * vg0/vg1/vg2 * vg0/vg1/vg2/sds1 * vg0/vg1/vg3 * vg0/vg1/vg3/sds2 */ } obj_info_t; /*struct that stores all objects */ typedef struct list_table_t { int size; int nobjs; obj_info_t *objs; } list_table_t; /* table methods */ void list_table_init(list_table_t **list_tbl); void list_table_free(list_table_t *list_tbl); int list_table_search(list_table_t *list_tbl, int tag, int ref ); void list_table_add(list_table_t *list_tbl, int tag, int ref, char* obj_name); const char* list_table_check(list_table_t *list_tbl, char*obj_name); void list_table_print(list_table_t *list_tbl); #ifdef __cplusplus } #endif #endif /* REPACK_LSTTABLE_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/image24plane.txt0000644000000000000000000123760312421456623016634 0ustar components 3 height 149 width 227 48 48 49 50 53 53 54 54 56 56 58 58 58 58 58 58 58 57 57 56 56 57 57 58 56 56 56 56 56 56 56 56 54 54 54 53 53 52 52 52 52 52 52 52 52 52 52 50 47 47 47 48 49 50 51 51 54 54 55 56 56 57 58 58 65 66 68 70 73 74 75 75 77 77 79 78 79 79 80 82 82 89 98 110 125 139 153 163 175 184 190 197 199 202 203 208 231 237 235 235 238 239 241 244 248 247 244 240 233 226 215 203 187 181 181 180 180 179 178 175 173 170 166 162 159 155 152 150 148 146 146 145 145 144 146 146 148 148 148 148 148 149 150 150 150 149 151 159 169 179 188 191 185 181 172 158 135 111 84 67 61 57 57 55 55 54 53 53 55 55 55 54 54 53 53 52 47 46 47 47 48 48 50 50 53 52 52 51 55 61 69 80 106 124 141 149 159 170 170 159 148 135 128 126 115 96 84 80 83 79 77 84 102 124 141 153 163 162 158 143 123 102 88 81 85 85 85 48 48 49 49 52 53 54 54 56 56 58 58 58 58 58 58 57 57 56 56 56 56 57 57 56 56 56 56 56 56 56 56 54 54 53 53 53 52 52 52 53 53 53 53 53 53 53 51 48 48 48 49 50 51 52 52 54 54 55 55 56 57 58 58 64 65 67 69 72 73 74 74 76 76 77 77 77 78 79 81 80 85 94 106 120 132 146 156 167 175 181 188 192 196 197 205 225 231 232 234 237 239 243 246 248 247 244 240 233 224 213 202 185 181 180 180 180 178 176 175 173 169 166 161 159 155 152 150 148 146 145 145 145 144 146 146 148 147 148 148 148 149 150 150 148 149 152 160 171 181 189 191 187 183 172 156 133 108 83 66 62 58 57 56 56 55 54 54 55 55 55 54 54 53 53 52 47 46 47 47 48 48 50 50 51 53 52 51 53 60 67 78 100 118 134 143 154 164 165 157 145 134 127 123 111 91 81 79 79 79 80 82 91 110 131 148 153 154 153 143 126 106 93 86 88 86 88 47 47 48 49 52 52 53 53 55 55 55 55 57 57 57 57 57 56 55 55 55 55 56 57 56 56 56 56 56 56 56 56 54 53 53 53 52 52 52 52 53 53 53 53 53 53 53 51 50 49 50 51 51 52 52 53 54 54 54 55 56 57 57 58 63 64 66 68 71 72 72 72 73 73 75 75 75 76 77 78 77 81 89 100 113 124 135 146 152 160 167 175 181 186 191 197 217 225 227 231 234 240 244 248 250 249 245 240 232 220 209 198 183 179 179 178 178 176 175 173 170 167 165 161 157 154 152 149 148 145 145 145 144 144 144 144 145 145 146 146 147 147 148 149 149 150 154 163 175 185 191 193 192 184 174 153 129 104 81 66 63 61 60 58 57 56 55 55 54 54 54 53 53 52 52 50 46 44 46 46 47 47 48 50 53 52 53 52 52 57 62 73 91 108 124 134 144 152 155 148 140 131 125 117 102 84 77 76 77 79 81 77 78 91 113 133 135 138 141 134 120 102 90 86 90 90 91 46 47 47 48 51 52 52 52 54 54 54 54 56 56 56 56 55 55 54 54 54 54 55 55 56 56 56 56 56 56 56 56 53 53 53 52 52 52 51 51 54 54 54 54 54 54 54 52 51 51 51 52 52 53 53 53 53 53 54 55 56 56 57 57 62 63 64 66 69 69 70 70 71 71 72 73 73 74 76 74 75 78 85 94 105 115 126 134 140 148 157 163 172 179 184 193 210 218 222 226 231 236 243 247 250 249 245 238 229 218 205 194 181 176 176 176 175 174 174 172 169 166 163 160 156 152 150 148 145 145 145 144 144 144 143 143 144 144 143 143 146 145 148 146 149 150 156 166 178 188 193 194 194 186 172 151 124 98 76 65 64 62 61 60 58 57 56 56 54 54 54 51 53 50 50 49 45 45 47 47 48 48 49 49 53 54 53 53 52 54 58 68 84 99 113 123 130 137 141 139 131 125 120 111 96 81 76 76 76 80 81 76 71 77 94 106 117 120 122 119 107 96 87 84 93 93 93 45 45 46 47 48 49 51 52 51 51 52 52 52 52 54 54 52 52 51 51 51 51 52 52 53 53 53 53 53 53 53 53 51 51 50 50 50 49 49 49 52 52 52 52 52 52 52 52 52 52 52 52 52 53 53 53 53 53 54 54 55 56 57 57 60 61 63 64 66 67 67 67 68 68 70 71 72 73 74 73 74 77 82 89 98 106 117 125 130 139 147 154 163 172 178 187 204 212 216 221 226 233 240 244 249 248 244 237 225 211 197 185 178 174 174 174 173 172 172 170 168 164 160 158 154 151 149 147 145 144 143 143 143 142 142 142 142 142 142 142 143 143 145 144 148 151 157 168 182 191 197 196 190 183 166 144 116 90 69 60 64 64 63 62 61 60 57 56 54 52 52 50 51 49 49 48 45 44 45 45 47 47 48 49 51 53 53 52 50 52 55 61 78 89 101 110 115 121 128 131 127 122 117 107 95 84 79 76 78 78 77 74 71 71 75 77 93 96 98 96 90 87 85 88 94 96 96 44 44 46 46 47 48 51 51 50 50 51 51 51 51 53 53 51 51 50 49 49 50 51 51 51 51 51 51 51 51 51 51 50 50 50 50 49 49 49 48 51 51 51 51 51 51 51 51 52 52 52 52 52 52 52 52 52 53 53 54 55 56 56 56 59 60 61 62 64 65 65 65 67 67 69 70 71 72 74 72 74 73 78 86 92 100 110 118 123 130 140 148 156 163 170 180 196 204 209 214 222 228 236 241 247 244 240 233 220 205 190 177 174 171 170 170 170 169 169 168 165 162 160 155 151 149 147 145 143 143 143 143 142 142 142 141 142 139 141 139 139 140 141 142 148 151 160 172 185 194 197 194 186 177 163 141 111 83 65 57 64 65 63 62 60 57 56 55 52 52 51 50 50 48 48 46 45 45 46 46 48 48 49 49 50 51 51 52 50 49 52 56 71 79 88 96 101 109 121 130 128 124 119 110 100 91 82 76 79 76 73 72 72 69 64 59 66 68 74 74 73 75 79 86 94 96 96 43 43 44 45 47 47 48 48 49 49 49 49 50 50 50 50 50 50 49 49 49 49 50 50 49 49 49 49 49 49 49 49 50 50 50 49 49 49 48 48 51 51 51 51 51 51 51 51 52 52 52 51 51 51 51 51 52 52 53 54 55 55 56 56 58 59 60 61 63 63 63 63 66 66 69 69 71 72 74 72 72 71 75 81 88 95 102 110 118 124 133 140 147 155 162 172 187 194 201 208 217 226 234 240 242 241 236 228 214 198 181 170 170 169 169 168 168 168 167 165 163 160 158 154 150 147 145 143 143 141 141 140 140 140 139 139 139 138 138 137 138 139 139 140 146 152 161 174 188 194 196 192 185 178 165 143 115 87 67 60 62 64 62 61 58 57 56 54 52 52 51 49 49 46 46 46 45 45 45 45 46 46 48 48 48 49 50 50 48 47 50 52 63 68 75 84 90 100 117 131 137 133 126 116 109 99 86 76 75 73 71 69 70 68 63 59 58 62 68 71 71 74 78 85 94 97 97 43 43 44 44 46 47 48 48 49 49 49 49 50 50 50 50 50 49 49 48 48 49 49 50 48 48 48 48 48 48 48 48 50 50 50 49 49 48 48 48 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 52 52 53 54 54 55 56 56 57 58 59 60 62 62 62 62 66 66 69 69 71 73 74 73 70 70 74 79 84 92 98 106 113 119 125 133 140 149 155 164 178 186 193 202 212 222 231 238 237 235 231 223 209 191 175 164 166 166 165 165 165 164 164 164 162 159 156 152 149 145 143 143 141 141 141 140 140 139 139 138 138 136 136 136 136 135 136 139 145 150 162 173 186 193 193 187 185 178 165 145 117 91 71 67 60 63 62 59 57 55 54 52 52 51 50 49 47 46 46 46 45 45 45 45 46 46 48 48 47 48 50 50 49 48 48 51 56 59 67 75 83 94 116 135 144 140 132 122 114 105 87 73 69 71 68 67 67 64 64 62 71 75 81 85 83 82 84 89 94 97 97 44 44 44 44 45 45 46 46 47 47 49 48 48 48 47 47 47 47 47 47 47 47 47 48 47 47 47 47 47 47 47 47 47 47 47 48 48 49 49 50 49 49 49 49 49 49 49 49 48 49 50 51 51 51 51 51 51 51 51 51 52 53 54 55 56 57 58 59 61 62 62 62 63 63 66 67 68 70 71 70 71 72 74 80 84 88 94 98 109 116 124 131 141 147 152 158 167 173 181 190 202 212 222 229 232 234 230 218 200 183 170 162 162 161 162 162 161 161 162 160 156 154 152 149 147 144 142 140 139 139 138 137 137 137 136 135 137 134 134 135 136 136 137 139 145 151 163 177 186 187 187 184 180 175 163 145 126 106 86 73 76 74 66 60 57 55 54 51 52 51 49 49 48 47 44 44 45 45 45 45 47 47 47 47 48 48 49 49 49 49 49 52 52 59 65 67 74 93 121 139 147 148 144 131 116 106 95 90 76 72 65 62 63 65 76 85 98 110 118 114 108 103 95 87 91 96 99 44 44 44 44 45 45 46 46 47 46 48 48 47 47 47 47 46 46 46 46 47 47 47 47 47 47 47 47 47 47 47 47 47 47 47 48 48 48 49 49 49 49 49 49 49 49 49 49 48 48 49 50 51 51 50 50 50 50 50 50 51 52 53 54 56 57 58 59 61 62 62 61 63 63 65 66 67 69 71 72 72 72 76 79 81 86 90 95 104 112 119 129 137 144 150 155 162 167 172 180 190 201 212 219 223 224 222 212 196 178 165 158 159 158 159 158 158 158 158 158 154 153 150 148 144 143 140 140 139 138 137 137 137 135 135 133 134 133 133 131 132 134 135 136 147 151 163 175 184 184 183 179 177 170 159 144 127 109 90 78 76 75 69 64 61 56 52 49 50 50 48 47 47 46 46 46 47 45 47 47 47 47 47 47 48 48 49 49 49 49 49 50 53 57 60 63 72 94 120 138 147 148 144 132 121 113 107 104 92 88 83 82 84 90 102 114 116 126 131 126 118 114 102 90 89 94 97 44 44 44 44 44 44 45 45 46 46 46 45 47 46 46 46 44 44 44 44 43 43 43 43 45 45 45 45 45 45 45 45 44 44 45 45 45 46 46 46 46 46 46 47 47 47 47 47 48 48 49 50 50 50 50 49 49 49 49 49 50 51 52 53 56 57 58 59 61 61 61 61 63 63 65 65 67 68 70 71 72 74 75 78 80 83 86 91 99 107 116 125 135 141 148 150 157 160 162 168 177 186 197 205 213 215 212 204 190 174 161 156 157 156 156 155 155 155 155 155 152 150 148 147 143 140 139 138 137 137 137 135 135 133 132 131 132 130 130 130 131 133 135 136 148 151 160 172 178 179 178 174 173 166 157 145 130 115 99 88 78 77 72 68 64 57 52 47 48 48 47 47 46 46 47 47 47 46 47 47 47 47 47 47 48 48 48 48 48 48 48 49 54 55 56 59 72 95 122 139 144 146 143 132 125 123 124 125 125 119 113 110 110 111 121 131 139 145 144 136 131 124 106 92 86 91 93 45 45 45 45 45 45 46 46 46 46 45 45 46 46 46 46 44 43 43 43 43 42 42 42 44 44 44 44 44 44 44 44 44 44 44 44 44 45 45 45 45 46 46 46 46 47 47 47 47 48 49 49 49 49 48 48 48 48 48 48 49 50 51 52 57 58 59 60 61 61 61 61 62 62 64 64 65 67 68 69 70 72 73 74 76 78 81 84 94 101 111 120 130 138 144 148 153 155 155 159 165 174 184 191 199 203 202 195 182 170 158 153 153 153 152 151 151 153 153 151 149 148 147 144 142 138 138 137 136 136 135 135 132 132 131 128 129 128 128 129 131 131 135 136 148 150 158 167 174 174 173 170 167 161 154 143 134 122 109 98 83 81 75 69 64 59 53 49 48 47 46 46 46 46 47 48 47 47 47 47 47 46 47 46 48 47 48 47 47 47 47 50 55 54 51 57 72 98 123 139 141 143 140 131 129 133 141 146 147 144 140 135 130 125 129 136 148 152 148 139 133 127 107 88 83 89 90 43 43 43 43 45 45 46 46 45 45 46 45 45 44 44 44 44 44 44 43 43 42 42 42 44 44 44 44 44 44 44 44 44 44 44 44 44 43 43 43 44 45 45 46 46 47 47 47 47 48 48 48 48 48 47 46 47 47 47 47 48 49 51 52 57 58 59 60 61 61 60 60 61 61 63 63 64 65 66 67 68 67 68 69 71 72 75 78 88 95 105 114 125 134 140 144 151 151 151 151 156 163 171 179 186 189 190 185 176 166 155 151 151 151 150 149 148 149 150 150 149 147 146 142 139 137 137 136 135 134 134 134 131 131 130 128 128 128 128 127 130 131 135 136 145 146 154 163 168 168 169 166 162 155 149 140 134 126 116 106 92 86 78 69 63 60 55 54 48 48 46 47 47 47 49 50 49 49 49 49 49 47 49 47 50 48 50 48 48 48 48 50 56 53 49 54 71 96 122 136 141 143 141 134 135 144 155 160 152 154 155 152 145 137 137 144 146 149 144 136 132 123 103 84 81 85 86 44 44 44 44 46 46 47 47 46 46 47 46 46 46 45 45 45 45 45 44 43 42 42 42 43 43 43 43 43 43 43 43 44 44 43 43 43 42 42 42 44 44 44 45 46 46 47 47 47 47 48 48 47 47 46 45 48 48 47 48 49 50 51 52 58 58 59 60 61 60 60 59 61 60 62 62 63 64 65 63 64 64 64 65 66 67 70 72 81 88 97 108 117 128 134 139 147 149 147 147 149 154 160 165 172 176 180 177 170 161 154 150 149 148 147 147 147 147 148 148 147 146 143 141 138 137 135 135 134 134 133 131 131 129 127 127 128 127 127 128 130 133 136 138 142 144 151 159 167 167 169 164 156 150 143 136 131 126 121 112 100 93 82 74 66 62 58 57 51 50 49 47 47 48 49 50 49 49 49 49 49 48 48 48 49 49 49 49 47 47 47 50 56 53 51 53 69 92 117 134 142 145 144 139 141 151 162 169 165 166 167 164 151 139 136 141 142 144 141 132 128 119 100 81 77 81 82 44 44 44 44 46 46 46 46 47 47 47 47 47 47 46 46 47 46 46 45 44 43 43 42 43 43 43 43 43 43 43 43 43 43 43 42 42 42 41 41 43 43 44 45 46 46 47 47 47 47 47 47 47 46 45 44 48 48 48 48 49 50 52 52 58 59 59 60 61 60 60 59 60 60 62 61 62 62 63 62 61 59 59 60 61 62 64 67 71 79 89 100 110 120 127 133 143 145 144 143 144 147 151 153 160 166 170 170 165 159 151 149 146 146 145 144 145 145 146 146 145 145 142 141 138 136 134 132 133 133 131 130 130 129 126 126 128 128 128 129 132 133 136 140 140 142 152 161 168 169 169 164 153 146 137 130 128 127 126 120 106 100 90 81 73 67 62 60 54 52 51 48 49 49 50 52 50 50 50 50 50 48 48 48 49 49 48 48 48 48 48 49 54 53 52 52 65 87 113 130 141 144 144 139 141 149 160 164 169 168 167 161 147 133 130 135 136 140 139 129 123 113 95 77 73 74 76 46 44 46 46 46 46 46 47 48 48 48 48 48 48 47 49 50 49 49 48 47 44 43 43 43 43 43 43 43 43 43 43 43 43 45 42 44 41 41 40 42 43 44 44 45 46 47 47 45 45 47 47 46 45 44 44 49 50 50 50 51 52 53 54 59 59 60 60 61 60 59 59 60 60 61 61 61 62 63 61 62 61 60 57 57 58 59 63 67 74 84 94 104 111 118 123 135 139 139 140 142 143 146 149 152 156 162 161 158 153 150 148 148 147 144 142 142 140 140 141 142 142 139 138 136 135 132 132 130 128 127 126 126 124 124 124 128 129 128 130 133 133 136 139 140 142 147 152 157 157 158 157 147 143 137 129 127 125 122 116 103 98 92 85 78 71 64 61 56 56 53 51 50 50 51 52 50 48 48 50 50 50 50 50 51 51 49 49 48 48 48 49 52 52 52 52 63 84 109 129 137 141 141 136 138 145 155 159 159 158 157 152 140 130 133 140 132 137 137 126 118 108 90 74 70 70 70 47 46 47 48 48 48 49 50 51 52 52 54 53 52 51 52 53 53 52 51 50 49 48 48 46 46 45 45 44 43 42 41 46 46 47 46 47 46 46 46 47 47 45 46 45 45 46 46 45 45 46 47 47 48 50 50 50 52 53 54 56 58 58 59 61 61 62 62 62 61 60 59 61 60 60 59 61 62 62 64 66 66 60 57 53 52 54 59 64 71 79 86 91 97 102 109 121 127 134 139 143 147 147 146 147 147 148 149 148 146 145 145 151 151 146 140 136 132 130 130 136 136 138 137 136 135 132 131 123 126 118 112 118 118 118 125 125 131 136 139 138 135 133 135 144 149 147 142 138 134 135 136 139 138 139 138 132 124 114 110 104 97 91 89 90 86 79 73 66 64 58 53 51 51 51 49 47 45 45 45 47 49 51 51 52 52 51 50 48 47 47 47 47 49 48 47 60 86 112 127 141 139 140 140 138 137 142 153 159 157 150 143 136 133 131 133 131 131 128 121 114 104 89 77 74 68 62 47 48 48 48 49 49 50 51 52 52 55 55 54 53 53 53 55 55 54 54 51 50 48 48 48 47 47 45 45 43 41 41 46 47 47 47 47 47 46 46 47 47 46 46 46 46 46 46 46 46 46 46 47 47 49 51 53 53 55 56 58 59 60 61 62 62 62 62 62 61 60 60 61 60 59 59 61 61 62 64 68 70 67 64 61 60 59 62 65 70 75 80 86 92 97 103 112 120 128 136 143 145 147 147 141 139 139 140 141 141 142 145 149 149 144 139 134 131 129 129 133 134 135 136 133 132 130 127 119 119 112 109 114 114 113 117 127 132 138 140 138 135 133 136 144 149 145 138 131 127 128 131 134 139 143 143 136 127 117 109 100 94 89 89 90 88 82 77 69 65 59 53 51 50 49 46 49 48 48 48 49 51 52 52 52 51 50 48 47 45 44 44 50 50 48 45 56 83 111 128 135 134 134 136 134 132 138 147 153 150 147 140 134 130 130 131 131 130 127 120 113 104 89 77 70 64 59 49 49 49 49 50 50 52 52 53 53 56 56 56 55 55 54 56 56 55 54 52 51 50 49 49 47 48 47 45 44 43 43 47 49 47 47 47 47 46 46 48 48 47 47 47 48 48 48 47 47 48 48 48 47 49 50 54 55 57 58 60 61 62 63 63 63 64 64 63 62 61 61 61 60 59 59 59 59 60 63 68 71 74 76 79 78 74 71 68 65 66 70 79 89 99 105 107 111 119 129 135 140 141 141 138 135 134 133 134 137 140 143 142 143 140 138 135 133 134 134 137 137 136 134 132 128 126 122 124 120 117 116 118 118 117 118 127 132 138 140 138 137 136 140 147 153 151 146 138 131 129 130 134 138 143 145 144 138 130 122 107 97 92 92 93 91 85 80 70 66 58 51 46 42 40 43 50 53 53 53 52 53 51 51 48 47 44 43 41 40 38 40 49 51 46 42 53 80 109 124 128 126 127 131 128 126 128 135 141 139 136 132 129 127 127 127 127 128 125 119 112 104 89 77 69 62 57 50 50 51 51 51 52 53 53 54 55 57 58 58 57 57 57 58 57 57 56 53 52 52 52 51 51 49 49 48 46 45 45 48 50 48 48 48 48 47 47 49 49 48 48 49 49 49 49 49 49 49 49 49 50 51 51 57 57 59 60 62 64 64 65 66 65 66 65 65 64 62 62 61 61 60 59 59 60 61 63 66 70 77 84 88 87 81 75 68 62 60 64 72 84 96 101 105 107 117 125 133 137 138 136 137 134 134 133 133 134 135 137 137 137 136 136 135 136 136 137 138 138 136 133 130 125 122 120 127 122 120 120 117 118 123 123 128 132 135 137 136 138 138 140 144 147 148 143 137 132 131 131 135 136 139 143 143 139 136 127 114 108 104 102 103 100 96 92 81 76 66 57 50 46 44 45 53 56 56 55 52 51 50 48 44 43 42 40 39 39 37 40 46 49 48 46 56 80 105 118 123 121 124 127 125 121 122 127 130 128 125 125 125 126 126 125 124 125 122 117 110 101 87 78 69 63 57 52 52 52 53 53 53 55 55 56 56 59 60 60 60 60 60 60 60 59 59 56 55 54 54 53 54 54 51 50 49 48 49 50 52 52 52 50 50 50 50 51 51 51 51 50 50 51 51 51 51 51 51 53 53 54 54 59 60 61 63 65 66 69 67 68 68 69 68 67 66 64 64 62 62 61 61 61 61 62 62 66 70 78 85 90 89 83 76 68 60 57 60 68 78 90 94 102 106 115 122 130 134 135 134 130 129 129 129 131 131 133 132 132 132 133 134 136 137 139 140 138 137 135 131 127 122 119 120 127 122 129 131 117 113 124 125 127 129 131 132 133 135 138 137 130 129 134 135 136 137 141 141 138 136 136 137 135 132 129 127 125 125 123 120 120 117 112 108 99 92 83 73 66 61 57 55 57 57 54 52 49 46 44 44 41 41 41 41 42 42 43 45 44 50 53 56 66 85 102 110 116 113 117 120 119 115 116 119 122 120 119 120 121 123 123 124 121 122 119 115 109 100 87 78 68 62 56 53 53 54 54 55 55 56 56 57 58 61 62 62 62 62 62 63 63 62 61 59 58 57 57 56 56 57 56 55 52 53 52 54 54 54 54 52 52 52 52 52 52 52 53 51 51 52 52 52 52 53 53 56 56 57 58 61 62 64 65 67 68 71 72 70 70 70 70 69 67 66 65 64 64 63 62 62 63 64 64 65 68 75 81 86 85 82 75 68 63 61 63 67 73 83 88 93 100 108 118 125 130 131 130 126 125 125 125 128 131 134 133 131 131 132 132 136 136 137 138 135 134 131 128 126 124 121 126 133 138 160 166 138 124 130 128 123 122 124 125 127 130 137 134 119 117 130 141 150 159 166 167 157 150 146 143 139 134 130 131 134 136 134 131 129 126 122 118 109 104 96 87 80 72 66 64 61 60 56 53 50 47 44 43 43 44 45 47 51 52 54 54 51 60 69 73 81 93 103 106 110 107 108 112 113 111 111 114 117 114 113 116 120 122 121 121 118 119 117 111 106 99 85 78 67 64 58 54 55 55 55 56 56 57 58 58 59 62 63 63 63 64 64 66 66 65 64 61 61 60 60 60 60 60 60 59 57 57 56 56 57 56 56 56 56 54 54 54 54 53 53 54 54 55 55 53 53 56 57 58 60 61 64 64 65 67 68 71 72 73 73 74 74 74 73 70 68 66 65 65 64 64 63 63 64 64 65 64 65 67 70 72 74 74 72 69 69 69 70 73 73 76 82 90 100 110 122 131 137 139 139 139 135 130 127 127 130 136 138 133 132 132 134 134 133 132 131 128 127 126 127 127 128 129 135 144 160 203 216 171 138 136 127 117 114 113 114 118 124 132 128 113 116 138 156 173 186 194 195 191 183 173 163 154 145 139 137 140 142 139 135 132 128 122 119 112 107 103 94 88 80 72 67 65 64 59 56 52 50 46 46 48 51 54 58 62 65 69 67 70 76 86 91 96 103 105 106 108 103 102 108 111 110 110 114 115 111 111 114 119 121 120 117 115 117 115 110 105 98 84 77 72 69 63 55 55 56 56 56 57 58 58 59 60 63 64 64 64 65 65 67 67 67 66 63 62 62 61 62 62 62 62 61 60 58 59 58 58 57 57 57 57 57 55 54 54 54 54 54 55 55 55 53 54 57 59 60 63 66 66 65 66 67 69 72 73 74 74 75 75 74 74 70 69 67 66 66 66 65 64 64 65 66 66 63 64 66 69 71 73 77 78 77 78 81 81 81 82 80 86 103 114 126 137 149 155 159 159 160 153 142 133 132 133 140 143 139 138 137 136 136 132 128 125 122 122 122 125 129 134 139 146 150 176 234 252 195 149 137 120 112 106 104 106 111 118 128 130 124 134 160 183 203 214 218 218 230 219 207 195 184 174 165 162 159 159 156 152 148 141 137 133 127 124 119 112 105 98 87 83 79 77 73 68 64 59 55 54 57 58 61 65 70 72 75 72 84 89 100 103 105 110 109 108 107 103 103 109 112 113 114 117 116 111 111 114 119 121 119 116 115 117 115 111 105 97 84 77 78 76 69 57 57 57 57 57 58 61 61 61 61 64 64 65 66 68 68 69 69 69 68 68 67 69 68 66 66 66 66 66 66 65 65 65 65 65 64 64 62 62 62 60 60 59 58 56 56 55 55 57 57 57 58 60 61 65 66 67 68 70 74 75 76 78 78 78 78 76 75 73 72 69 69 66 65 64 63 63 63 64 64 60 77 77 75 84 82 81 95 91 94 95 92 94 101 109 114 137 143 151 159 159 155 154 158 166 164 168 171 165 153 151 156 148 146 143 137 136 135 127 117 117 115 116 121 133 142 149 155 198 229 194 202 224 171 134 132 109 105 105 107 107 111 125 141 145 177 208 218 222 229 241 243 243 233 227 226 224 218 216 215 196 192 189 185 181 175 171 167 157 157 154 150 145 135 127 123 117 103 100 97 79 71 76 77 72 69 68 70 70 71 75 81 89 96 102 103 107 117 117 111 108 108 112 114 115 117 119 118 114 115 115 113 115 119 122 121 120 115 109 107 105 97 84 79 79 84 82 57 57 57 57 58 59 62 63 62 62 65 65 66 67 68 68 70 69 69 69 68 68 69 69 69 69 69 68 67 67 68 67 66 66 66 66 65 65 64 64 62 60 59 59 57 56 55 55 57 57 57 58 60 62 65 66 67 69 73 74 76 76 78 78 78 78 77 74 73 72 69 69 67 66 64 64 64 64 65 65 67 73 75 86 106 116 123 133 129 131 132 132 141 152 161 162 147 148 154 159 160 156 156 159 163 155 153 160 164 167 174 182 181 176 167 155 147 142 133 121 114 124 135 133 133 149 181 211 219 221 199 190 208 179 132 130 121 101 96 107 117 119 127 150 185 210 224 231 238 249 255 255 255 243 236 234 230 224 222 221 219 216 214 213 208 206 204 201 204 203 203 202 202 201 199 197 195 177 163 153 141 132 107 72 84 77 72 74 75 75 79 85 91 99 103 105 110 122 122 116 114 112 112 113 117 119 119 119 115 120 122 121 126 131 133 131 129 122 114 109 104 96 84 78 82 86 86 56 56 56 57 59 60 63 64 64 64 67 67 67 67 68 68 70 70 70 69 69 69 71 70 74 73 72 71 70 69 70 69 68 68 68 68 68 68 68 67 63 63 60 59 58 58 57 57 57 57 58 59 62 64 66 67 69 70 73 75 77 77 78 77 80 77 76 75 73 72 69 68 67 67 65 65 63 64 64 68 83 82 105 142 173 193 203 196 154 150 149 155 171 190 203 196 163 157 160 165 165 163 164 167 171 161 152 157 165 172 178 184 167 177 185 190 186 173 150 130 123 118 122 133 156 186 215 232 225 206 205 187 198 198 148 140 125 106 104 117 128 130 143 177 224 239 238 239 248 255 255 254 255 245 240 239 237 233 236 239 241 239 239 237 236 234 233 232 228 229 228 228 233 238 242 244 252 237 225 210 203 199 166 114 93 88 87 81 66 58 63 76 86 97 101 104 113 127 126 119 120 117 114 114 118 121 122 122 128 132 138 141 146 151 152 150 145 135 122 112 103 94 84 80 82 88 89 55 55 56 57 59 61 64 65 66 66 68 68 68 68 69 69 71 71 71 70 70 70 72 72 76 75 74 73 72 71 70 69 68 68 69 69 68 69 69 69 64 63 61 60 59 58 58 58 57 57 59 59 63 64 67 68 70 70 74 75 77 77 77 77 79 79 76 75 74 71 69 68 68 68 66 64 64 65 66 70 81 88 135 189 216 228 226 201 157 148 144 152 173 196 212 203 177 167 169 172 175 176 179 180 178 169 163 164 169 171 174 173 182 186 187 186 190 197 196 190 153 139 135 157 195 219 224 218 221 204 209 198 197 200 167 144 119 120 126 130 133 145 172 213 234 246 242 242 249 253 249 243 253 248 244 246 248 249 255 255 255 252 252 249 247 248 246 245 247 245 244 245 247 252 255 255 255 253 250 239 228 226 213 180 124 104 88 80 71 63 59 65 81 95 103 111 124 136 135 125 122 124 124 122 122 125 131 136 149 156 163 166 172 177 176 171 161 148 131 115 104 93 83 80 80 86 87 54 54 55 56 58 60 63 64 66 66 68 68 68 69 70 70 70 70 71 72 72 72 74 74 76 75 75 74 74 73 72 71 69 69 69 69 69 69 68 68 64 64 64 63 60 59 59 58 59 59 59 60 63 65 67 68 71 71 75 77 77 78 79 79 79 78 78 74 73 71 68 68 68 68 66 64 65 65 66 75 91 116 172 218 229 226 213 182 167 156 145 149 171 193 211 204 177 168 170 173 178 184 188 187 172 170 168 166 170 176 183 187 200 204 206 205 211 220 223 218 193 195 203 209 215 218 223 224 217 215 205 206 190 178 181 150 123 130 136 133 147 176 206 232 231 237 230 227 227 227 228 229 240 239 239 242 245 248 254 255 255 253 252 250 251 252 253 252 253 251 250 250 250 249 249 250 255 255 255 253 238 230 226 216 186 140 96 81 86 86 74 65 82 101 117 128 142 153 149 136 130 137 143 140 135 138 151 164 178 184 191 192 194 197 195 190 176 162 141 121 105 92 84 82 80 84 86 53 53 54 55 56 58 61 62 64 64 67 68 69 69 71 71 71 71 72 73 73 73 75 76 76 75 76 75 76 75 74 73 71 71 70 70 69 69 68 67 65 65 64 64 61 60 59 59 59 59 59 60 63 65 68 69 72 74 76 77 78 78 79 79 79 78 77 76 73 71 70 67 67 66 66 64 64 65 66 78 106 149 195 218 220 219 209 188 172 159 150 148 161 179 193 189 167 162 165 167 175 184 186 183 174 173 167 164 170 182 195 202 188 203 221 232 239 239 231 218 216 222 229 224 216 214 224 231 216 221 202 205 189 174 200 184 142 135 132 139 170 209 226 229 240 239 226 216 209 209 219 233 235 238 239 245 246 246 249 253 251 248 248 249 254 255 255 255 251 251 250 247 247 244 241 241 255 251 251 255 251 243 236 224 231 194 150 116 93 82 82 87 94 114 136 149 159 166 161 150 149 158 166 166 162 166 181 194 204 209 213 213 212 213 209 203 191 176 152 128 109 96 87 86 83 86 87 53 53 53 53 54 56 58 59 61 62 65 67 68 70 72 72 71 72 73 73 74 74 77 77 77 76 77 77 78 77 78 77 74 74 73 72 71 70 68 68 67 67 65 64 63 63 60 60 60 60 60 60 64 65 68 69 72 75 77 78 80 80 79 79 79 79 77 76 73 70 69 67 66 65 65 63 63 64 64 78 111 165 190 186 188 193 191 183 167 162 155 150 152 158 164 162 158 160 162 165 173 183 184 178 177 173 168 166 175 188 195 196 193 203 213 221 232 245 253 252 233 227 220 217 220 223 229 228 215 212 207 206 196 187 199 210 166 143 139 164 203 224 232 233 246 238 225 213 202 200 211 229 240 245 251 255 254 249 249 250 247 246 246 249 251 254 255 255 255 255 255 255 251 249 247 244 251 245 249 252 250 255 255 242 240 229 211 175 132 104 105 115 121 140 163 173 178 182 178 170 176 182 189 192 195 201 213 221 226 231 233 230 229 228 224 217 202 186 162 136 116 101 92 91 92 92 94 53 53 53 53 53 54 56 57 60 61 64 66 68 70 71 72 72 72 72 74 74 75 75 78 77 77 77 77 77 77 78 78 77 77 75 74 72 71 69 68 67 67 65 65 64 63 60 60 62 62 60 61 62 65 67 68 72 73 76 77 78 80 79 79 76 76 75 76 74 73 70 67 65 62 61 60 63 64 66 83 134 193 200 174 170 177 171 171 170 171 169 163 160 161 161 158 160 163 166 166 173 182 183 176 171 168 169 172 187 198 197 188 188 201 218 227 238 246 249 247 246 241 236 232 227 226 225 222 222 207 219 205 199 194 179 209 191 165 170 205 232 231 235 246 237 227 215 207 195 185 187 199 229 234 242 249 252 250 250 251 252 251 250 249 251 253 255 255 255 255 255 251 247 245 245 243 244 252 255 243 231 249 255 255 246 238 231 220 199 170 143 126 153 171 190 197 198 200 199 195 203 204 209 215 221 230 232 237 239 242 244 240 238 237 234 228 209 193 171 145 122 108 98 96 100 100 100 50 51 52 54 56 57 57 57 59 60 61 63 65 67 69 69 72 72 72 74 75 76 77 78 77 74 71 74 78 78 71 68 78 76 74 75 77 76 70 66 69 67 64 63 64 63 60 60 67 66 65 62 63 62 63 64 66 68 71 74 76 79 79 76 70 69 72 74 75 77 75 72 67 55 55 62 62 58 67 101 189 183 166 164 167 164 163 168 162 165 169 171 172 172 174 170 164 161 162 166 170 172 172 172 169 171 173 179 189 196 192 184 199 203 207 213 219 225 231 237 240 242 242 239 234 227 221 218 219 212 207 206 197 190 194 207 200 207 225 238 240 237 243 248 235 225 214 201 187 179 177 180 202 212 222 226 235 248 254 249 253 250 253 255 253 250 254 255 255 255 249 245 244 248 253 255 255 255 249 239 229 229 247 255 255 240 245 232 198 194 140 145 171 189 212 222 221 220 222 226 231 235 241 244 245 245 243 244 248 248 248 245 242 237 232 229 214 205 187 163 139 121 114 112 123 119 118 48 49 51 53 54 55 56 56 58 59 61 63 65 67 68 69 72 72 72 74 75 76 77 78 75 75 75 80 87 89 86 82 79 77 72 70 71 72 70 66 68 65 63 63 64 64 61 59 61 61 61 60 61 62 61 62 66 68 71 74 77 79 80 76 65 63 69 72 74 74 70 67 65 60 61 69 74 80 100 133 176 171 160 161 163 158 158 163 161 167 174 179 182 183 184 181 170 165 164 165 168 171 171 171 174 171 177 191 198 193 188 192 203 207 208 209 212 216 224 231 238 244 244 241 234 225 215 213 222 217 213 212 204 193 196 207 209 218 233 243 244 240 245 248 229 218 210 197 183 174 170 171 182 198 212 220 227 239 250 254 248 247 250 255 253 249 252 255 255 255 252 249 249 252 254 255 255 255 244 242 243 246 247 247 250 248 238 220 203 182 115 150 180 206 229 239 235 233 236 237 246 251 255 255 255 255 254 252 253 252 251 249 247 243 240 238 230 220 202 179 158 142 137 136 142 137 134 47 48 49 50 52 53 55 55 58 58 60 62 64 66 67 68 73 73 74 76 77 78 78 79 75 78 84 95 105 109 108 107 96 89 79 72 72 71 69 64 67 63 60 60 61 62 62 61 56 57 59 60 61 62 63 64 69 71 73 76 79 80 80 76 60 58 62 65 66 67 63 60 63 68 75 82 92 111 139 164 165 162 159 164 165 158 158 162 164 170 177 182 185 187 190 190 178 172 169 169 171 173 173 173 178 176 185 203 203 188 186 201 208 212 212 214 216 220 227 232 240 244 244 240 231 221 212 210 221 220 218 218 211 200 197 203 201 205 217 229 234 233 236 235 222 213 205 194 182 174 171 172 172 192 212 221 224 232 247 255 244 244 249 253 254 250 251 254 255 255 255 255 255 255 255 255 255 255 254 250 252 255 250 236 248 254 218 203 218 187 103 151 178 215 245 253 250 250 249 244 251 255 255 255 255 255 255 255 255 255 255 255 254 252 250 248 240 229 211 190 173 162 157 157 163 157 153 47 47 48 49 50 51 53 54 56 57 59 61 63 65 66 67 72 74 75 77 80 79 81 79 76 81 94 109 122 129 128 128 123 114 101 89 84 77 71 66 68 64 60 59 59 60 61 59 58 57 59 62 63 64 63 65 70 72 75 77 79 79 80 76 66 63 64 65 65 64 62 60 61 70 80 88 107 135 161 174 167 165 165 170 168 160 161 164 165 171 179 185 189 193 197 196 189 182 178 174 175 176 178 179 182 185 196 203 200 190 192 205 214 216 218 219 222 225 230 236 243 244 244 239 228 219 210 208 215 218 218 220 214 208 205 210 196 197 202 216 226 229 222 214 211 206 199 190 181 176 175 177 172 189 209 217 221 229 243 253 240 240 246 254 254 252 250 252 255 255 255 255 255 255 255 255 255 255 255 252 246 252 252 243 239 236 206 220 251 211 104 113 166 210 247 255 255 255 255 249 250 252 255 255 255 255 254 255 255 255 255 255 255 254 254 253 246 236 218 201 186 179 177 176 183 175 169 49 49 48 48 49 50 52 53 55 56 57 59 61 63 65 68 73 76 78 80 82 82 83 81 79 86 102 119 134 141 143 143 142 135 123 112 105 95 85 78 75 69 63 59 57 57 56 56 54 55 56 59 62 63 66 67 71 74 75 76 77 77 76 76 77 76 73 67 63 60 56 55 57 64 72 90 119 149 167 169 170 170 171 172 169 165 166 171 167 173 181 188 193 197 202 202 197 190 186 183 183 184 186 186 187 199 205 197 193 198 203 207 219 223 225 226 227 231 236 240 245 246 242 236 226 217 208 207 214 217 216 216 215 212 214 216 214 205 201 203 214 217 210 197 197 194 192 186 183 180 182 185 181 191 201 210 219 227 237 246 236 237 242 251 255 253 250 251 251 251 255 255 255 255 255 255 255 255 255 251 245 253 254 243 231 224 226 255 255 239 140 108 166 206 243 255 255 255 255 251 252 253 255 255 255 255 255 255 255 255 255 255 255 255 255 255 253 243 228 214 205 201 202 202 201 190 182 54 52 51 49 49 50 51 52 54 55 56 58 60 62 64 66 74 77 79 82 84 84 83 82 81 90 108 127 140 150 153 154 153 148 140 134 129 120 110 102 93 86 77 68 62 59 59 55 53 52 54 56 60 63 67 70 71 72 73 73 73 72 72 72 76 76 71 64 58 53 49 47 55 55 67 93 126 149 157 158 167 170 170 170 169 169 172 176 171 178 185 191 195 200 205 207 203 198 194 193 193 194 194 195 197 209 208 195 195 208 214 211 224 228 231 232 234 237 240 243 246 245 241 236 225 218 209 208 216 217 214 213 213 212 212 214 236 225 211 204 202 204 200 192 188 188 188 185 183 184 188 191 193 193 197 207 215 221 228 235 232 234 240 249 254 252 252 252 248 249 253 255 255 255 255 255 254 255 252 250 255 255 252 233 243 231 240 255 254 236 194 165 179 206 240 255 255 255 255 251 253 252 253 255 255 255 253 255 255 255 255 255 255 255 254 252 249 242 231 223 219 221 224 223 221 207 197 60 59 56 53 52 52 53 54 55 56 57 59 61 63 65 67 74 77 80 83 87 85 85 83 83 93 110 130 145 154 159 162 161 158 153 149 148 144 137 130 122 114 102 88 80 73 70 67 63 61 59 59 60 63 67 69 70 70 69 69 67 66 65 65 69 71 71 71 70 67 63 62 67 65 75 102 128 138 140 146 164 169 171 172 173 175 176 177 177 182 189 195 200 204 210 212 207 205 203 203 204 205 204 203 211 213 210 204 206 216 218 215 228 233 236 238 240 242 244 246 247 244 240 233 226 217 210 207 212 213 211 209 210 211 210 208 227 232 231 218 204 196 191 185 185 185 185 185 184 186 192 195 201 198 201 209 213 214 216 223 230 232 237 245 252 251 251 251 246 247 249 253 255 255 255 255 246 242 244 250 255 255 247 236 246 239 227 239 218 223 222 210 191 199 230 255 255 255 255 254 251 249 248 250 250 249 250 252 255 255 255 255 255 254 252 249 240 233 228 226 230 235 241 241 236 220 208 64 61 58 55 53 53 53 54 55 55 57 59 61 63 64 66 74 77 82 86 87 88 87 84 83 94 112 130 145 156 163 167 170 166 161 160 159 157 153 149 146 137 121 106 96 88 82 79 78 75 70 64 63 63 64 65 67 67 66 66 63 62 60 59 65 71 80 89 95 99 99 101 102 95 106 130 146 143 142 150 167 174 174 175 176 180 178 176 181 188 194 200 205 209 213 216 210 208 208 209 212 212 211 211 222 213 209 214 222 222 218 220 231 235 239 241 244 247 247 247 247 244 238 233 225 218 212 207 206 207 206 207 208 210 209 206 203 227 243 235 213 196 186 181 184 184 185 185 186 189 192 196 202 202 206 213 211 206 205 214 227 230 232 242 248 249 247 250 244 245 248 251 255 255 255 255 239 239 249 253 249 242 245 253 251 255 235 243 238 246 237 223 190 188 216 249 255 255 254 255 252 251 248 249 249 250 252 253 253 255 255 255 255 251 247 243 235 232 228 232 240 249 255 254 244 227 214 66 65 64 62 60 58 56 55 54 54 55 56 59 62 65 69 73 77 82 85 87 88 90 91 84 88 103 124 141 151 158 165 170 171 172 172 170 170 168 169 159 153 141 129 116 104 93 88 88 89 86 77 67 63 63 66 62 64 66 63 60 58 62 65 70 85 101 108 119 131 132 128 137 144 157 164 162 154 151 158 167 172 174 177 179 180 182 185 186 190 196 203 209 214 218 218 215 216 217 216 216 216 218 221 230 224 218 227 254 255 255 231 229 237 241 244 244 245 248 248 247 243 237 227 218 212 212 211 204 202 205 207 210 210 210 209 218 207 220 244 229 203 197 183 183 182 185 186 189 191 196 198 199 204 217 223 212 195 192 207 222 226 230 239 241 239 237 241 249 248 247 247 252 255 255 253 245 239 243 251 255 255 254 252 255 247 253 252 234 235 251 233 198 173 203 232 249 255 254 252 246 247 247 246 248 253 253 251 255 255 255 253 255 255 246 231 228 223 225 241 252 253 255 255 249 231 218 67 66 65 63 61 59 58 57 55 55 55 56 58 61 64 68 72 76 81 84 86 87 89 90 85 87 101 121 138 148 155 163 171 172 174 175 176 175 175 175 169 162 152 140 128 117 105 99 96 96 93 86 77 70 66 65 60 65 70 67 65 68 79 88 102 116 130 138 149 160 165 164 172 180 185 181 173 168 168 169 167 168 171 174 176 178 181 184 187 194 202 211 217 222 223 223 225 223 223 225 229 232 231 230 229 230 228 220 213 216 235 255 241 238 234 238 248 255 254 246 250 245 239 231 222 214 212 207 203 200 202 205 207 208 209 208 211 207 212 229 229 219 205 183 188 187 189 190 190 192 194 196 200 203 213 220 210 195 191 204 219 223 229 235 237 235 233 236 247 248 249 250 252 255 255 254 241 245 255 255 255 253 250 249 249 242 249 249 236 241 247 217 182 153 185 218 239 254 251 253 248 247 247 245 248 253 254 252 253 254 252 252 255 255 245 234 229 222 223 239 252 255 255 255 248 232 221 69 69 67 65 63 61 60 59 56 56 55 56 58 61 63 67 71 74 78 82 84 87 89 89 87 88 98 115 133 144 152 160 170 173 175 177 179 180 181 181 175 172 163 153 142 131 120 115 107 105 99 93 86 78 69 64 56 65 75 76 81 90 112 130 152 165 175 178 184 192 194 192 193 207 207 195 183 180 178 173 175 176 178 180 183 187 192 196 196 203 211 217 223 225 224 223 220 217 216 222 230 236 233 228 227 219 216 219 212 204 214 233 245 242 239 240 246 250 252 248 240 236 232 227 220 216 213 209 205 203 205 208 210 211 212 212 209 214 213 213 229 237 217 194 192 191 192 191 193 192 192 192 198 199 207 216 210 198 192 199 214 216 221 228 229 226 226 229 242 246 253 254 252 250 251 255 248 255 255 255 255 252 254 255 250 247 248 242 231 234 229 197 160 126 155 195 223 241 244 255 249 249 247 245 248 253 255 252 252 252 250 251 255 255 249 239 230 220 221 238 253 255 255 255 248 233 224 73 72 70 68 66 64 63 62 58 57 57 57 58 60 62 64 69 73 76 79 82 85 87 87 88 88 94 112 128 140 149 157 168 169 173 176 177 178 180 180 175 171 165 159 151 140 130 125 117 112 102 95 89 81 71 65 61 72 84 96 110 128 150 170 189 201 203 201 198 199 198 196 197 216 223 208 195 194 186 175 173 173 174 179 182 188 195 200 211 215 218 220 222 222 221 219 211 210 211 216 225 227 225 220 220 208 205 217 226 220 208 203 233 243 253 252 244 241 245 251 241 235 228 222 218 215 214 211 211 210 214 216 218 219 220 220 210 230 229 206 223 243 223 213 200 196 195 195 194 194 193 190 194 194 200 207 206 198 191 193 206 209 213 219 221 217 218 220 235 243 252 255 250 245 245 253 255 255 255 255 250 252 255 255 255 250 244 236 224 212 200 177 141 104 130 172 206 229 239 255 251 249 248 245 248 255 255 254 251 250 249 253 255 255 253 247 235 223 222 237 254 255 255 255 247 234 228 78 77 76 74 72 70 68 67 63 62 61 61 61 62 64 63 67 69 75 78 81 82 86 86 90 86 91 108 126 138 146 154 166 169 173 175 176 176 176 175 171 168 164 160 154 147 138 134 131 123 109 100 95 89 82 78 87 95 109 129 152 172 188 202 214 223 222 215 208 203 198 194 211 225 228 215 205 203 194 182 183 184 186 189 195 202 208 213 217 218 219 217 217 217 218 215 212 215 218 221 223 222 221 220 214 217 215 207 205 210 213 212 216 230 248 253 249 245 246 247 247 237 226 218 215 215 217 217 227 228 226 226 224 223 220 218 209 239 248 211 209 230 220 230 207 202 198 197 196 196 195 192 190 190 195 199 199 194 190 188 201 202 206 213 215 213 211 215 233 240 252 255 252 242 243 252 255 255 254 244 243 250 253 249 253 245 239 236 221 192 168 156 127 89 110 150 190 223 238 254 254 252 249 246 249 255 255 254 253 250 250 254 255 255 255 255 242 229 225 240 255 255 255 255 246 237 232 81 80 79 77 75 73 71 71 66 65 64 63 63 63 65 64 66 69 75 77 80 82 85 85 89 85 90 105 124 137 147 154 166 169 172 173 174 174 173 173 169 167 164 162 159 154 149 146 146 137 124 115 111 109 105 106 121 130 142 163 187 205 214 218 224 228 224 217 210 204 199 198 227 229 224 211 206 206 200 190 195 195 197 201 206 209 215 218 214 213 214 213 214 216 219 218 219 221 224 223 221 220 220 219 210 221 218 205 198 206 210 205 204 212 226 243 255 255 254 243 234 225 216 212 215 222 228 233 239 240 238 232 227 220 215 209 205 231 255 219 200 215 211 234 217 210 203 198 198 198 195 193 187 187 190 192 191 189 188 187 195 196 200 208 211 208 210 213 233 238 251 255 255 245 245 254 255 255 245 238 241 247 240 227 243 245 241 241 238 206 169 151 117 82 97 132 177 221 239 253 254 252 250 248 252 255 255 255 255 248 250 255 255 255 255 255 250 238 234 245 255 255 255 255 249 242 238 83 82 81 79 77 75 74 73 69 68 66 65 64 65 65 64 65 67 73 77 79 82 85 85 87 82 88 106 125 137 146 152 164 166 171 171 172 173 172 172 168 166 164 163 161 160 157 155 153 146 139 134 131 132 131 136 143 154 169 187 207 224 232 232 228 222 216 210 202 194 191 195 226 223 217 216 218 216 210 200 192 190 191 192 194 195 198 198 206 208 209 212 214 217 221 220 222 219 220 219 219 218 216 215 213 211 208 207 210 209 202 192 200 202 213 231 250 255 255 247 234 225 217 215 220 227 233 240 246 248 244 237 228 222 213 207 201 209 250 228 200 208 203 228 228 220 209 201 198 197 194 191 186 188 189 188 186 186 189 190 188 188 192 200 204 202 204 208 232 236 248 255 255 247 247 253 249 244 233 227 234 242 234 222 246 255 247 238 249 239 196 163 106 73 88 117 165 220 242 249 255 255 252 249 252 255 255 255 254 247 247 253 255 255 255 255 255 246 242 251 255 254 254 255 253 248 246 86 84 83 80 79 76 76 74 72 70 69 66 66 65 67 65 67 68 74 77 79 81 84 85 85 81 87 106 126 140 147 153 159 164 166 169 169 169 169 169 165 163 163 162 164 165 165 163 152 150 148 148 149 152 158 168 164 178 193 206 218 228 235 235 231 223 216 209 199 191 189 193 225 221 221 230 236 230 219 207 205 200 201 199 198 195 194 194 198 203 206 211 216 217 219 219 228 222 218 218 223 223 219 213 216 206 202 208 206 199 202 212 200 206 215 222 230 238 246 251 255 250 242 236 234 231 229 230 244 248 244 239 232 224 217 211 198 192 244 235 207 212 203 223 234 224 211 201 198 198 195 190 190 193 192 187 183 184 189 190 181 179 184 193 197 197 200 203 229 230 241 254 254 243 240 246 248 241 229 223 233 249 247 239 253 255 245 223 246 255 211 164 96 69 82 107 156 220 244 246 255 255 253 251 252 255 255 254 250 242 242 249 253 250 254 255 255 252 248 254 255 253 253 255 255 252 251 88 87 87 85 84 82 82 80 77 75 75 72 72 71 72 70 71 71 74 78 82 85 85 86 88 85 90 107 123 137 145 152 166 167 165 164 162 163 164 164 161 161 161 164 167 172 174 171 161 156 149 152 166 180 180 179 186 205 219 227 228 227 223 223 226 221 219 200 202 202 186 219 230 233 235 232 230 225 219 212 207 200 202 209 205 191 184 189 191 195 200 203 209 212 219 224 231 224 219 222 230 231 225 215 209 206 203 201 201 203 206 207 202 207 209 210 210 213 215 220 224 230 235 235 233 231 232 237 246 246 239 236 234 227 217 208 195 196 231 233 203 223 197 218 225 220 212 204 200 198 199 200 197 194 190 188 187 186 186 183 180 181 185 187 187 190 192 196 239 245 234 244 251 236 244 255 255 251 234 226 229 237 243 245 255 255 241 241 214 248 189 133 97 74 77 115 165 205 237 255 255 255 252 251 253 254 255 251 239 229 231 240 248 252 253 255 255 255 255 255 254 252 252 251 253 255 255 89 88 88 86 85 84 83 82 78 77 76 75 74 74 74 73 71 72 76 79 82 83 86 84 88 85 89 107 123 134 141 150 161 163 161 161 160 160 162 161 160 160 158 161 164 166 166 163 163 160 160 165 177 188 189 191 204 220 230 233 230 225 219 218 224 218 218 203 204 202 193 229 230 232 234 231 226 219 213 207 212 198 197 204 204 193 184 183 185 191 198 203 209 216 225 228 229 226 225 225 228 226 221 213 211 205 201 200 204 206 207 208 213 214 211 207 201 199 203 207 216 222 227 230 230 230 230 232 236 237 236 232 224 219 213 210 213 187 214 208 217 235 218 216 231 226 220 212 205 201 200 199 200 196 191 189 189 186 185 182 178 180 183 184 186 189 193 197 235 242 231 240 245 232 241 254 255 255 242 228 228 239 253 255 253 255 235 237 215 242 178 118 94 78 83 117 169 214 246 255 255 255 253 251 250 251 250 246 237 227 227 235 244 249 252 255 255 255 255 254 249 248 250 250 249 251 254 92 91 91 89 88 87 86 86 83 82 81 79 79 79 79 77 74 74 77 80 83 86 86 84 87 86 90 107 121 133 139 146 153 155 155 155 157 158 160 160 160 157 155 156 156 157 156 155 153 158 168 178 191 198 197 194 209 218 223 225 225 225 223 223 224 215 213 207 202 195 196 233 224 228 232 227 220 214 209 204 213 196 190 197 205 198 187 183 186 191 199 207 215 222 230 233 217 218 221 223 223 222 220 217 198 192 187 186 191 191 191 193 227 229 222 213 204 200 200 204 210 213 215 217 219 220 219 220 219 223 224 220 213 208 208 209 212 194 231 210 218 222 232 240 237 231 227 221 214 207 202 197 196 192 188 185 185 183 181 178 176 177 180 181 183 185 190 195 220 234 228 240 246 231 236 245 228 240 240 235 235 242 254 255 253 252 231 232 217 237 170 108 89 79 87 119 173 225 255 255 255 255 252 250 251 251 249 244 233 222 220 225 233 239 245 252 253 255 255 249 241 239 243 247 251 252 255 92 92 91 90 89 89 88 88 85 84 83 82 82 82 82 80 76 75 79 82 84 87 87 87 86 85 92 106 121 130 138 143 148 149 149 150 152 152 155 155 156 152 150 149 147 147 146 145 136 148 168 184 199 207 210 208 217 218 218 220 222 225 229 229 227 214 209 209 198 186 197 234 221 227 230 227 219 211 208 206 207 194 187 192 199 196 189 184 189 194 203 210 217 224 232 235 217 218 222 224 225 225 220 217 202 199 195 192 192 195 198 208 236 237 228 217 207 199 200 201 207 208 207 209 212 214 212 209 211 211 211 208 205 202 204 204 204 207 244 224 210 210 230 251 255 255 255 246 231 213 199 189 196 192 187 184 183 181 178 176 175 173 176 176 177 182 188 192 203 223 226 244 248 230 228 232 218 234 239 236 240 249 255 255 254 248 229 229 218 230 168 106 85 83 92 121 176 231 255 255 255 252 251 250 249 246 242 234 219 208 205 209 217 223 233 242 244 249 251 244 234 231 235 240 251 251 254 92 92 91 91 90 89 89 89 87 86 85 85 84 85 85 83 79 79 81 83 85 88 89 88 85 85 92 104 117 124 133 140 141 142 142 144 146 147 148 147 149 146 142 137 133 129 126 129 128 145 170 193 214 225 229 230 226 220 216 216 220 227 236 237 230 215 208 208 191 179 200 224 220 225 227 225 218 212 209 207 199 192 189 189 191 191 189 189 194 199 207 213 219 224 231 235 231 230 229 232 233 231 222 214 205 205 201 197 194 196 206 222 235 237 228 216 204 198 196 197 203 203 204 206 212 212 211 208 208 202 197 196 198 199 199 199 205 205 216 225 212 228 224 223 215 214 222 229 234 234 232 228 203 196 190 184 183 180 176 174 172 172 172 172 173 177 183 186 198 222 226 240 244 229 229 232 251 254 241 229 234 252 255 255 254 245 232 228 221 226 172 115 93 94 104 129 179 232 255 255 254 251 249 247 244 237 227 218 201 191 187 192 200 207 217 227 235 243 247 242 234 231 233 238 241 240 242 91 91 91 90 90 89 89 89 88 88 87 86 86 87 87 88 81 81 83 85 88 88 89 88 87 85 89 101 110 117 126 131 133 132 135 137 139 140 141 141 144 139 131 126 120 114 108 111 131 148 175 203 227 239 243 244 235 225 217 215 222 229 240 240 228 215 204 206 186 176 201 213 216 218 219 218 216 212 205 203 192 193 192 190 188 187 189 192 196 202 210 215 220 225 228 232 234 234 234 240 246 247 240 230 219 216 215 210 209 211 220 235 237 238 230 220 209 202 200 201 198 201 206 211 218 221 221 216 211 201 194 192 195 198 197 197 204 205 205 230 219 239 227 218 213 210 213 214 210 204 198 192 206 198 188 181 177 175 171 170 171 171 172 172 171 173 178 181 201 224 224 234 238 230 240 246 255 255 241 231 240 255 255 255 253 244 237 229 222 220 180 133 113 111 121 141 182 223 249 252 255 250 244 238 230 220 208 197 178 172 172 178 185 190 201 210 224 232 240 241 236 233 232 234 232 230 229 91 91 91 91 90 90 90 90 89 89 88 88 88 89 89 89 83 84 85 88 89 90 90 89 89 85 88 95 100 106 115 121 122 122 127 130 133 135 136 136 136 131 125 121 115 110 105 111 132 151 179 210 236 246 251 252 240 231 222 219 224 231 240 239 221 212 200 201 180 177 206 201 206 208 207 208 211 207 200 195 190 195 194 191 189 190 191 193 196 203 211 217 221 225 228 234 235 241 248 253 255 255 255 253 250 246 243 243 246 247 252 254 246 244 237 227 217 208 206 206 203 209 217 223 226 228 229 223 217 207 201 196 194 194 198 200 201 211 225 235 222 224 235 232 216 213 215 215 213 210 205 201 214 204 191 180 176 172 171 169 172 173 174 173 171 171 173 177 192 218 222 232 240 234 245 253 241 248 245 237 248 255 255 255 252 242 241 231 222 217 189 152 129 123 130 145 172 203 224 233 236 227 215 205 196 187 180 172 156 152 156 163 170 175 184 194 206 216 228 235 236 233 229 226 223 218 213 91 90 90 90 90 90 89 89 90 89 89 88 88 89 90 90 86 86 88 89 90 90 90 90 91 87 87 92 94 98 106 113 116 116 120 125 129 132 133 135 130 127 125 122 122 120 116 124 133 152 178 211 237 246 252 253 244 235 228 225 227 230 237 234 214 209 197 195 178 179 209 195 201 199 197 200 205 204 195 188 192 196 195 193 194 195 194 195 196 202 212 217 221 225 229 234 245 254 255 255 255 255 255 254 254 246 242 247 255 255 252 244 246 243 237 230 218 212 209 208 212 221 230 235 235 232 232 226 223 215 211 203 196 194 200 207 206 212 230 223 224 210 236 229 213 210 210 207 206 202 200 197 227 216 202 190 183 181 181 181 175 177 177 177 175 173 173 174 177 208 220 236 244 238 245 248 255 255 250 235 241 255 255 255 250 243 245 232 220 215 196 164 134 126 129 141 161 180 200 213 202 191 176 166 157 154 150 145 140 138 143 152 158 162 170 179 190 201 216 227 232 230 223 218 211 206 200 90 90 90 90 90 90 90 90 88 88 88 89 89 90 90 90 90 90 90 91 93 94 92 92 89 87 87 88 90 93 96 96 103 106 112 114 120 129 137 138 137 140 138 135 139 145 139 137 143 161 179 202 220 231 243 254 246 241 236 233 233 233 233 226 207 197 190 183 176 178 192 210 199 212 205 204 214 199 181 187 186 193 195 194 192 194 197 199 203 208 214 216 218 224 236 245 246 247 248 249 250 252 252 252 251 247 248 255 255 255 255 255 254 238 229 227 221 211 209 218 226 232 238 242 242 239 238 229 220 209 210 236 187 196 223 200 205 222 232 226 216 218 226 229 223 213 207 203 204 205 203 197 236 224 200 185 186 184 177 180 176 176 174 175 176 178 180 179 176 186 214 236 241 246 251 245 255 253 242 244 253 255 255 255 255 241 245 239 217 208 190 158 134 125 126 135 148 158 160 156 146 138 128 122 121 124 129 131 132 134 140 147 149 152 157 162 167 175 189 206 220 224 218 211 203 192 184 90 90 90 90 90 90 90 90 88 88 88 89 89 90 90 90 90 90 92 93 93 94 92 92 93 91 91 89 90 92 95 94 97 101 107 110 117 127 135 139 143 145 143 143 154 165 158 154 156 166 175 192 208 218 231 243 245 245 244 241 236 231 225 216 199 189 182 177 171 174 189 208 218 220 212 208 213 205 187 178 189 194 196 196 196 198 199 202 207 207 212 218 227 234 239 240 231 231 235 240 246 250 254 255 251 248 250 255 255 255 255 252 244 245 244 228 218 219 221 218 241 244 247 246 246 248 249 244 219 218 215 228 228 206 209 193 212 225 232 224 216 217 221 221 212 207 201 199 200 202 202 198 237 225 201 186 194 195 191 194 191 190 189 187 184 181 180 176 180 187 211 232 239 246 254 249 255 253 244 245 254 255 255 255 255 242 246 242 221 208 183 149 127 117 120 127 138 141 139 133 112 108 104 103 107 113 121 124 132 133 139 142 146 148 151 155 155 161 172 188 205 213 212 206 197 186 177 92 92 92 92 92 92 92 92 90 90 90 91 91 92 92 92 92 92 93 93 93 94 94 92 95 93 92 91 90 91 93 92 93 98 101 105 113 125 132 137 152 155 156 160 177 189 183 177 181 186 182 189 200 210 219 228 241 247 249 247 239 229 215 205 192 184 177 173 169 173 187 207 217 215 217 218 220 221 206 181 190 193 196 198 201 200 201 204 207 207 211 223 238 244 241 233 224 221 226 230 234 238 239 242 242 239 240 247 253 252 251 248 244 241 242 239 238 238 233 229 240 243 246 246 245 245 243 237 220 226 218 223 255 229 209 206 217 223 224 219 213 214 214 210 200 195 194 196 197 198 198 197 235 225 201 191 203 209 206 210 216 215 212 207 201 195 188 182 185 188 207 227 237 248 255 253 255 252 245 246 254 255 255 255 255 242 245 242 224 203 167 130 110 104 109 116 123 125 120 113 96 95 97 101 110 117 125 128 132 135 139 142 140 143 146 148 147 149 154 168 184 196 200 198 183 169 159 91 91 91 91 91 91 91 91 90 90 90 91 91 92 92 92 93 93 93 94 94 94 94 94 94 94 93 91 92 91 92 91 94 98 100 103 111 122 132 136 155 166 175 184 200 211 204 198 216 217 209 203 201 204 211 222 238 245 251 249 240 226 209 197 191 182 175 171 170 174 188 206 213 213 224 229 225 232 223 191 193 190 192 196 201 202 203 206 205 210 217 229 241 245 240 228 222 221 224 228 231 233 236 236 232 230 234 240 245 246 250 251 253 228 229 255 255 255 242 244 232 237 241 244 241 234 225 215 216 218 212 229 255 245 221 229 219 218 213 210 209 208 205 198 190 185 187 191 192 191 192 197 229 220 202 199 215 222 218 223 231 233 230 225 217 208 200 193 187 187 203 224 236 250 255 255 252 250 245 247 255 255 255 254 250 240 241 240 225 195 146 111 95 92 100 108 116 118 114 111 109 108 111 117 123 129 132 135 134 136 139 140 138 138 139 144 145 143 144 154 170 187 197 198 177 161 151 91 91 91 91 91 91 91 91 90 90 90 91 91 92 92 92 93 94 94 94 94 95 94 94 94 94 94 92 94 93 94 94 98 99 99 101 108 120 127 131 148 172 194 206 218 223 218 216 236 242 233 219 205 202 210 219 234 242 248 246 237 222 205 192 189 181 174 171 170 174 187 204 225 226 238 235 222 227 230 213 200 192 188 193 200 201 203 208 206 215 224 233 237 237 235 229 223 223 229 235 241 244 246 244 235 232 235 240 242 245 252 255 245 229 238 255 255 255 245 247 238 237 237 233 227 219 206 199 203 199 208 242 246 242 219 226 220 212 206 205 207 207 202 194 185 179 181 184 185 182 188 198 219 217 206 208 225 231 227 231 235 238 235 231 225 216 208 200 190 186 200 220 235 251 255 255 247 248 245 248 254 255 255 255 247 241 240 238 227 188 131 98 92 91 102 110 116 120 121 119 121 120 122 124 129 132 133 134 137 139 138 138 136 135 137 139 143 140 141 151 170 191 203 207 188 168 156 90 90 90 90 90 90 90 90 90 90 90 91 91 92 92 93 94 94 94 95 94 95 94 94 93 93 94 95 95 96 97 98 101 101 97 98 104 116 123 125 143 174 203 218 227 232 230 228 242 252 244 227 209 203 209 217 230 235 239 239 231 218 201 190 186 177 169 168 170 176 188 202 232 233 235 229 218 222 238 244 218 201 190 194 199 200 203 210 209 218 230 233 234 232 234 235 241 243 247 250 251 253 250 247 244 241 242 243 242 244 254 255 230 248 255 255 252 250 244 233 243 234 221 210 202 194 189 188 196 192 217 250 221 225 207 207 224 212 202 202 206 205 203 196 180 173 175 179 177 175 186 202 214 216 212 215 231 236 232 237 242 244 242 239 232 226 218 210 194 186 197 215 231 250 255 255 248 249 246 247 252 253 255 255 245 244 242 239 229 182 121 94 96 97 110 118 123 126 129 130 128 125 124 125 128 130 131 133 137 139 137 136 133 133 135 137 139 135 140 153 175 198 213 217 194 172 155 90 90 90 90 90 90 90 90 90 90 90 91 91 92 92 93 94 96 94 95 94 95 94 94 94 95 96 97 97 97 97 100 104 103 99 98 106 118 124 128 143 173 205 222 237 246 246 244 248 255 251 235 219 214 213 215 224 227 230 228 223 212 199 189 184 175 168 169 173 180 193 207 223 229 227 226 224 219 230 252 242 217 198 198 200 201 205 213 213 222 230 232 233 232 238 245 255 255 255 255 255 255 250 244 246 243 242 242 240 243 254 255 240 255 255 247 236 239 234 217 235 221 201 186 177 171 165 168 184 188 221 225 205 205 193 201 228 213 201 200 201 200 200 196 177 166 168 172 171 172 188 211 214 221 219 220 233 236 235 244 253 255 250 244 237 230 223 216 201 189 192 207 225 247 255 255 252 252 248 247 249 249 252 252 238 242 240 236 225 174 112 92 95 102 117 127 132 134 136 137 136 132 127 125 127 129 131 134 136 138 136 134 130 130 131 133 135 134 140 155 176 199 214 215 188 165 147 91 90 91 90 91 90 91 90 91 90 91 91 92 92 93 93 94 94 94 94 94 94 94 92 96 97 97 98 98 97 97 98 107 106 101 100 107 120 125 127 145 171 198 217 238 252 253 249 247 255 251 238 229 225 221 215 222 223 225 222 218 208 197 188 181 172 169 173 180 187 202 216 217 225 222 226 230 211 207 235 255 235 209 202 203 201 205 212 218 223 229 231 234 237 244 252 252 255 255 255 255 255 251 246 237 236 237 238 237 239 253 255 255 254 247 242 242 240 227 210 218 205 187 175 168 162 155 157 170 178 210 187 196 190 189 206 229 213 200 196 197 196 198 195 177 167 168 173 172 175 194 219 217 225 222 222 234 237 239 252 254 253 249 243 237 230 223 214 209 191 188 200 217 243 255 255 253 255 252 253 252 249 249 249 234 240 236 228 215 162 102 88 90 98 116 128 135 136 138 139 140 134 129 126 124 125 129 131 131 133 132 130 128 128 129 132 137 136 140 153 172 189 201 203 182 159 140 93 92 93 92 93 92 93 92 94 93 94 93 94 93 94 93 93 93 94 92 92 91 93 94 96 95 96 98 99 100 100 100 107 104 101 102 110 120 129 137 143 165 190 208 225 240 249 255 244 237 231 233 235 231 228 229 226 224 221 217 212 204 196 185 167 175 173 172 191 204 204 208 218 220 222 222 222 221 215 211 217 240 242 217 199 205 212 210 211 240 225 239 244 239 255 240 250 255 255 249 253 255 254 240 238 248 233 235 240 227 255 229 255 255 255 251 246 236 222 208 204 197 184 167 156 154 157 160 167 174 194 191 189 196 197 212 219 218 209 200 196 199 203 197 188 179 173 171 179 195 210 216 228 223 218 221 231 242 249 253 247 246 246 243 242 237 230 221 213 190 192 185 214 233 255 251 255 255 255 253 252 254 250 243 242 235 237 224 216 141 92 83 92 103 119 125 127 128 131 130 128 127 126 125 124 125 127 127 127 127 129 127 126 127 129 131 135 139 139 142 153 167 175 178 163 141 124 93 93 93 93 93 93 93 93 94 94 94 94 94 94 94 94 92 94 95 94 91 91 92 94 95 93 93 95 96 98 99 101 105 103 101 103 110 121 128 135 158 163 171 185 211 234 244 244 245 238 233 238 243 242 238 234 228 224 220 215 210 203 196 186 171 170 169 178 193 197 199 212 210 214 215 216 217 219 219 218 221 230 235 225 208 199 202 211 221 245 228 241 246 241 255 237 243 247 251 253 252 248 246 247 239 237 234 253 216 238 250 213 255 255 255 253 247 231 218 210 193 194 188 172 154 147 146 147 158 176 209 206 195 198 209 235 216 214 208 199 198 202 208 206 199 194 194 195 201 209 216 222 228 222 218 221 231 242 251 251 244 243 244 243 243 238 231 223 215 191 190 183 211 233 255 249 253 255 255 255 255 255 252 246 243 236 236 223 194 128 88 82 91 101 115 120 119 123 125 125 124 124 124 123 123 123 125 126 124 125 125 125 124 125 127 130 133 135 136 136 139 144 144 140 118 99 83 93 93 93 93 93 93 93 93 93 93 93 93 93 93 93 93 94 95 97 96 93 92 91 91 91 91 92 92 95 99 102 103 103 103 104 108 115 124 130 138 152 160 170 185 207 228 238 242 248 242 234 237 243 245 242 238 228 224 219 213 207 201 193 184 174 170 171 184 199 192 187 202 205 208 213 216 217 217 220 224 221 219 226 233 222 200 200 217 226 245 231 242 248 245 255 244 240 235 236 249 245 239 236 245 234 245 231 225 234 255 237 255 255 242 239 241 235 222 214 214 194 194 189 181 173 168 162 157 155 169 199 194 188 200 215 244 208 210 208 203 204 212 218 219 219 216 221 227 228 224 227 235 224 221 217 221 231 240 245 248 244 244 244 243 243 238 231 223 216 192 186 181 208 237 255 251 253 255 255 253 254 255 252 250 244 238 234 223 165 117 88 85 95 102 114 117 116 120 123 123 121 121 121 120 121 121 124 122 122 123 123 123 123 123 125 127 135 138 139 137 134 130 121 111 81 64 50 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 96 97 96 93 90 89 88 88 91 95 98 101 105 108 107 108 108 111 114 121 127 133 140 142 159 173 179 189 204 222 241 254 253 244 242 242 242 240 239 229 225 219 213 206 198 191 184 173 173 177 188 204 199 186 186 200 205 211 217 219 217 220 224 224 219 224 236 227 210 209 224 222 240 233 239 245 248 255 255 253 242 226 237 234 240 232 235 241 209 229 220 231 239 255 241 217 219 225 225 222 220 218 212 201 195 190 193 206 215 210 196 178 182 207 217 227 239 234 241 201 206 210 208 211 217 224 226 233 231 236 242 239 232 236 246 222 219 218 222 229 236 242 244 244 246 246 245 245 240 233 224 217 194 183 179 203 239 255 254 255 255 252 250 250 252 251 250 242 239 229 215 136 107 92 91 99 106 115 116 117 119 121 122 119 118 119 118 120 120 123 122 122 122 122 122 122 122 124 126 134 139 140 138 134 128 116 105 80 67 56 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 93 95 96 95 92 90 88 88 89 96 103 110 115 115 115 113 111 112 114 118 122 127 132 138 147 157 160 158 160 172 188 210 240 253 254 251 249 244 237 234 232 227 221 215 208 199 192 185 173 180 175 176 200 213 201 187 190 193 204 214 219 218 220 226 224 226 228 229 226 222 222 226 219 234 236 238 239 246 255 255 255 255 225 227 224 247 232 220 218 234 219 216 255 224 202 202 193 213 224 218 217 223 220 205 204 205 211 221 235 245 244 234 196 198 229 248 255 255 229 215 201 209 215 214 213 213 216 220 238 241 240 242 239 235 243 254 223 220 218 220 227 234 239 242 244 246 247 246 245 240 234 226 217 198 180 178 195 239 255 255 255 255 249 246 245 247 249 249 243 237 219 193 114 98 96 99 102 107 116 117 118 120 121 120 117 117 117 118 119 120 123 122 122 123 124 124 121 121 123 125 128 133 135 135 133 131 123 114 100 91 81 95 95 95 95 95 95 95 95 95 95 95 95 95 95 95 95 94 95 96 94 91 89 90 90 95 104 114 122 123 123 122 118 113 114 116 119 122 126 132 139 150 153 155 162 170 171 159 153 186 210 225 233 239 241 236 229 235 231 226 218 211 203 195 188 179 186 171 163 190 217 217 203 184 184 192 206 217 218 222 228 223 228 227 221 222 227 228 223 222 233 240 239 236 242 255 255 255 255 226 227 213 244 226 215 217 203 202 247 220 213 209 186 196 219 229 219 215 220 217 204 208 226 244 250 247 246 248 248 214 213 234 234 231 227 207 206 217 224 228 223 217 215 215 220 245 251 248 245 245 248 255 255 224 222 220 221 225 231 237 240 244 247 249 248 246 241 235 226 217 201 179 177 186 236 255 255 255 255 246 243 243 244 249 249 243 235 205 160 102 89 95 99 102 107 116 119 120 123 122 118 115 114 115 116 118 119 123 122 121 122 124 123 120 120 122 123 126 131 133 135 137 137 132 124 117 111 103 95 95 95 95 95 95 95 95 94 94 94 94 94 94 94 95 97 97 97 94 91 91 92 95 107 115 125 130 129 125 123 120 115 115 120 123 126 132 141 148 154 160 171 188 201 197 170 154 155 173 181 194 214 232 238 236 235 233 229 224 217 210 202 194 189 190 175 167 187 209 214 213 195 186 186 199 214 217 223 231 226 227 226 222 224 229 228 222 229 232 240 240 239 241 242 244 246 252 233 246 216 235 221 230 216 204 207 226 210 208 185 213 217 226 232 230 223 219 224 228 238 250 255 255 248 245 246 246 244 232 232 216 207 212 211 225 227 233 234 225 217 216 219 227 243 255 255 250 252 255 255 251 227 223 221 221 226 230 237 241 244 247 249 248 246 241 235 227 216 205 181 177 178 233 255 255 255 253 243 241 244 245 251 252 245 232 188 125 94 81 91 93 101 106 114 118 121 123 120 115 112 112 113 113 116 117 121 120 120 121 122 121 120 120 121 123 127 130 132 134 135 134 128 120 112 108 101 95 95 95 95 95 95 95 95 94 94 94 94 94 94 94 95 99 99 97 93 90 92 95 97 116 121 129 131 126 121 121 119 119 120 125 130 133 141 151 160 172 182 190 200 208 214 209 208 175 174 164 168 194 224 239 241 233 234 230 226 223 215 207 201 193 193 185 184 193 199 199 209 211 194 188 197 210 215 223 231 230 225 224 227 231 230 226 223 233 229 240 240 241 242 232 226 231 247 246 255 229 235 224 254 255 220 255 255 234 211 198 215 241 235 237 246 240 230 241 255 255 255 254 245 247 253 253 246 241 227 226 213 210 217 210 216 223 227 226 217 211 214 220 232 234 252 254 247 249 255 253 236 226 224 222 223 225 232 239 244 246 247 249 248 248 242 235 227 215 209 182 178 176 232 255 255 255 252 241 242 245 246 253 253 242 225 174 98 89 74 85 88 99 105 113 118 122 124 120 114 110 110 110 111 114 116 119 119 119 120 121 119 118 118 119 121 122 126 129 127 126 123 114 105 95 92 86 92 94 96 96 95 95 95 97 98 95 93 93 97 99 98 96 100 97 93 94 91 90 101 115 121 122 126 128 125 120 114 108 116 118 128 139 150 164 178 188 203 211 217 219 220 221 217 217 209 184 161 203 216 189 216 247 233 229 225 227 226 219 216 214 203 192 199 187 191 198 185 206 209 204 197 196 205 216 225 227 223 223 224 228 224 221 223 229 228 234 236 238 238 235 232 226 215 230 245 237 215 215 249 255 255 255 255 255 255 245 242 252 255 255 249 248 243 235 234 238 252 255 255 254 251 254 255 251 237 223 214 214 215 215 216 219 225 220 217 214 215 219 224 230 240 243 243 246 245 242 235 227 222 222 223 224 228 233 239 245 247 248 250 249 249 243 236 229 224 204 191 175 184 210 255 254 255 255 246 239 241 249 253 245 242 209 137 80 69 68 77 90 91 99 113 120 120 116 114 113 108 109 110 111 114 116 117 117 116 116 118 119 118 118 117 116 123 123 122 117 109 98 88 83 63 63 62 91 94 96 96 96 95 96 97 98 96 95 96 98 99 98 96 102 95 92 94 97 100 109 118 119 123 125 120 113 107 108 110 117 124 137 152 168 184 201 211 219 226 231 230 228 226 219 212 212 189 170 199 202 182 211 246 236 231 226 228 233 229 224 219 214 201 202 185 184 189 182 200 221 212 198 189 196 212 220 219 226 229 228 224 220 219 223 227 236 237 237 235 231 227 225 221 214 216 228 243 250 252 254 255 240 235 238 252 255 255 244 242 236 239 241 244 238 228 227 234 251 253 255 255 255 255 252 242 229 222 219 222 223 220 218 219 224 219 216 215 219 223 229 231 233 234 235 238 238 236 229 223 220 221 223 226 229 234 242 245 247 247 250 249 247 243 236 229 223 212 194 182 183 216 255 251 254 254 247 244 246 246 250 241 227 183 119 76 62 61 71 80 88 96 110 117 118 116 113 112 107 107 108 109 112 114 115 115 116 117 117 117 116 114 113 112 110 108 104 98 88 78 70 64 64 64 64 89 91 94 94 94 94 95 96 97 96 95 96 97 97 96 94 98 92 91 99 107 113 118 121 121 121 120 110 101 96 106 114 125 135 151 169 187 203 220 229 233 237 240 237 231 226 215 203 185 170 156 171 168 158 187 222 247 238 227 226 234 235 231 224 223 212 212 194 183 183 174 182 219 223 217 202 197 209 217 217 222 233 236 224 213 213 218 222 230 232 231 230 227 226 225 224 198 202 220 240 250 247 243 241 231 232 237 251 255 255 242 225 232 242 250 251 244 236 243 255 245 244 247 252 255 255 246 232 222 222 227 233 235 230 225 221 221 217 215 215 220 225 231 233 227 227 229 231 232 230 225 219 218 219 222 226 231 235 243 247 245 245 248 247 247 242 238 231 221 220 199 187 181 228 255 248 252 251 248 251 250 243 239 233 210 155 107 79 62 59 70 72 81 89 103 114 116 113 109 107 105 105 105 107 109 110 112 113 117 117 116 114 112 109 107 106 101 97 91 85 76 69 65 62 67 68 69 87 90 92 94 93 94 95 97 96 96 96 97 97 96 95 92 90 90 98 106 113 118 120 122 119 115 109 98 93 97 108 120 137 149 164 182 199 213 225 231 235 238 238 233 227 218 203 188 166 157 150 155 155 156 181 208 251 243 232 229 229 234 234 232 223 219 222 211 195 186 176 167 191 219 234 219 201 204 212 215 217 241 254 237 217 214 219 222 223 225 225 222 220 218 217 215 194 196 206 217 223 224 228 234 241 246 247 248 255 255 241 219 233 240 241 240 235 235 249 255 237 232 234 242 255 255 244 227 225 228 234 242 244 239 230 224 221 218 217 217 220 227 232 233 226 224 227 230 231 229 224 218 218 219 222 226 231 235 242 246 244 244 247 246 246 242 238 231 220 224 201 190 182 238 255 248 253 250 251 255 252 239 232 224 195 135 101 90 72 65 76 70 76 83 98 108 112 110 107 105 103 104 104 106 107 109 111 112 116 115 113 111 106 103 101 100 96 93 87 82 77 76 78 79 77 78 79 85 87 91 92 93 93 95 97 95 96 97 97 96 95 95 94 86 95 110 116 120 120 120 121 115 106 96 91 95 106 118 128 147 158 173 187 203 212 221 225 229 230 228 224 218 206 190 174 155 143 140 141 147 157 169 188 230 237 240 240 238 237 235 233 227 224 228 222 204 198 196 175 174 199 220 214 204 206 208 209 214 245 255 250 227 220 223 227 226 227 226 221 212 205 198 194 197 192 193 203 215 219 219 218 225 236 242 242 249 255 241 222 233 237 237 239 242 247 255 255 229 222 223 234 249 253 244 233 232 235 239 242 243 240 233 226 223 220 219 220 223 228 232 233 230 228 230 232 232 230 225 220 219 220 223 225 229 233 241 244 243 241 244 244 244 242 238 231 222 224 202 192 192 247 255 249 248 246 252 255 255 242 228 216 171 119 100 97 84 75 80 71 71 76 90 102 109 109 108 104 102 103 103 105 106 108 110 111 116 115 110 106 102 99 97 95 90 88 83 80 79 82 87 90 85 85 85 82 85 88 90 91 92 94 96 96 97 97 97 96 96 98 97 94 106 121 125 122 120 118 115 106 99 91 93 104 118 129 136 153 163 175 187 198 207 212 215 217 217 215 210 204 197 180 163 141 124 124 120 130 143 144 157 192 215 237 249 253 250 243 237 237 234 225 224 209 211 221 194 184 189 194 200 207 215 214 209 208 234 250 242 223 217 219 224 230 231 231 226 218 209 202 196 176 184 200 211 210 203 204 207 211 227 237 240 244 246 232 218 229 236 243 253 255 255 255 255 226 221 221 231 245 249 248 244 237 239 240 237 235 234 231 225 227 224 223 222 225 228 232 232 232 231 232 235 235 233 226 222 219 220 221 223 227 231 239 242 241 240 243 243 243 241 236 231 224 217 204 193 209 255 253 247 237 241 250 255 255 248 227 200 139 106 93 93 88 81 79 73 68 71 83 94 103 106 106 103 103 102 102 103 105 107 109 109 113 111 106 103 99 96 95 94 92 91 87 86 85 89 93 94 90 88 88 78 81 85 87 88 90 92 94 97 98 98 97 95 97 102 104 110 117 124 123 119 118 112 106 97 94 95 101 112 125 137 143 153 161 170 180 186 192 195 199 198 197 193 188 187 181 166 150 139 117 119 115 122 137 133 150 155 183 214 237 252 255 254 249 252 245 230 231 216 219 234 197 196 189 190 199 209 212 212 215 210 216 221 220 214 213 216 222 229 230 229 226 219 213 209 204 174 188 205 209 198 187 192 202 215 226 236 240 239 236 223 212 209 218 227 237 245 247 244 239 228 225 230 240 247 249 254 253 239 240 240 236 232 231 230 224 228 224 224 224 227 230 234 236 236 236 237 238 238 235 228 222 222 221 221 223 225 230 237 241 240 238 241 242 243 241 236 231 226 210 210 198 231 255 249 241 227 239 253 255 255 253 219 177 106 94 88 85 89 85 76 73 64 65 75 88 98 102 104 102 101 99 99 101 103 104 105 107 110 108 104 100 97 95 95 95 95 95 93 93 93 96 99 99 92 90 90 74 77 81 84 87 89 92 94 100 101 100 98 95 97 103 108 119 121 120 116 114 116 108 98 90 95 102 109 118 129 143 151 155 160 169 174 177 178 180 182 181 179 174 171 170 164 153 136 126 102 108 100 108 124 123 147 140 162 187 212 238 255 255 255 254 247 233 238 221 222 234 186 190 190 199 209 203 193 202 219 222 211 204 205 212 215 221 225 228 228 222 215 207 202 197 194 212 200 189 190 195 196 194 194 220 221 225 229 232 229 220 212 203 212 218 224 228 232 233 231 238 237 244 253 255 253 255 255 248 249 249 240 235 233 232 226 227 224 224 225 228 231 235 238 236 235 236 237 237 234 227 219 222 221 221 222 224 227 233 236 238 238 240 240 242 239 235 231 228 205 215 202 249 255 246 237 228 243 255 255 255 245 201 148 83 88 84 79 89 83 69 71 61 64 73 83 95 101 103 101 99 97 98 99 101 102 104 105 108 107 102 99 97 96 96 96 94 94 95 96 97 100 102 102 93 92 93 68 70 74 80 82 87 93 95 96 97 96 95 98 103 111 115 119 122 124 121 112 103 96 92 96 102 111 121 132 141 150 156 160 161 163 164 166 165 165 164 165 163 162 162 159 153 142 131 113 104 99 102 108 115 128 143 150 169 181 192 216 235 246 255 249 255 237 223 217 239 204 197 196 195 192 195 198 202 208 213 210 214 215 211 205 205 216 226 224 225 222 215 207 201 198 196 194 198 203 205 204 197 187 182 199 208 217 224 227 225 216 208 205 213 220 227 232 237 240 244 251 250 251 253 255 255 255 255 255 255 255 254 244 237 233 232 221 221 222 224 227 230 233 235 235 236 235 233 231 226 221 219 220 219 220 222 223 226 227 230 236 237 240 241 241 237 232 228 222 212 211 215 255 255 248 241 247 236 249 255 245 230 178 97 71 65 75 82 79 66 59 60 65 69 75 83 91 97 100 100 98 96 97 99 101 104 108 109 108 105 103 102 102 101 99 97 100 100 98 99 100 100 101 97 91 92 95 61 63 70 74 80 84 91 93 96 96 94 94 99 104 110 115 116 118 116 112 103 97 93 92 101 107 116 125 134 141 148 152 155 156 157 158 158 157 156 155 158 156 156 155 154 147 136 128 115 107 100 101 107 113 124 141 157 178 187 195 211 221 224 235 251 255 247 238 227 235 199 194 197 195 192 193 196 200 207 211 213 213 211 210 209 209 212 216 223 224 220 214 207 200 193 190 190 193 198 201 202 200 197 194 191 199 209 216 218 215 204 195 202 211 221 229 237 244 249 253 255 255 255 255 255 255 255 255 255 255 255 255 247 241 234 230 220 220 222 224 227 230 233 235 235 236 235 232 228 223 220 217 219 219 220 220 222 223 225 227 231 234 235 235 235 232 228 223 221 209 207 239 255 255 241 249 248 247 244 243 239 205 139 89 69 60 62 67 67 61 56 58 60 75 92 101 104 101 100 100 97 97 97 99 103 105 107 108 108 106 104 102 103 102 102 100 102 100 100 100 101 101 102 98 93 95 98 54 58 63 68 75 79 86 89 94 92 92 94 99 104 111 115 115 113 106 99 92 90 92 92 104 110 119 127 134 138 143 145 147 147 147 147 148 147 147 146 149 147 148 148 147 140 131 126 121 115 103 100 100 104 117 135 166 190 203 208 218 222 220 226 251 255 255 255 247 238 196 192 196 193 192 192 194 198 204 208 214 211 206 208 212 212 206 203 218 218 217 214 208 201 194 190 189 192 194 196 199 202 203 204 199 202 207 208 210 209 202 197 204 214 223 231 241 246 251 255 252 252 251 249 251 250 252 254 255 255 254 253 247 242 236 229 220 220 222 224 229 231 233 235 237 238 237 234 229 225 220 216 218 217 218 219 221 222 224 225 225 226 227 227 227 225 221 218 219 204 211 255 255 249 237 255 247 255 240 233 227 171 101 81 65 52 53 58 63 62 60 62 62 88 115 128 119 104 97 97 96 96 97 99 104 106 107 108 110 107 104 103 104 104 102 100 101 100 99 100 102 102 101 98 99 101 104 50 53 59 65 71 75 82 86 88 89 89 94 99 105 111 114 114 106 96 87 84 87 92 97 108 114 123 130 136 138 140 141 143 143 143 142 143 142 142 141 143 142 143 144 143 137 128 126 127 121 107 99 96 98 109 128 161 193 209 217 228 228 224 228 236 237 254 255 255 245 201 196 194 191 191 190 193 197 200 206 216 212 206 206 209 209 203 199 210 211 210 210 209 205 200 196 196 196 198 198 199 200 201 203 211 211 208 203 203 207 207 206 206 217 226 235 242 247 249 252 249 247 247 248 251 253 255 255 255 253 250 249 247 242 233 225 220 220 222 224 229 231 233 235 238 238 238 234 230 225 220 215 216 216 216 217 218 220 221 221 219 220 221 220 220 218 215 214 213 206 231 255 254 243 243 255 251 252 240 228 196 129 78 72 54 50 56 62 65 63 65 69 84 112 143 151 131 106 95 93 95 97 98 102 107 108 109 109 111 108 105 104 105 105 104 103 102 100 100 101 103 104 102 100 103 105 108 45 51 56 60 66 71 77 81 83 83 85 90 97 105 109 108 106 98 88 80 81 88 96 102 111 117 124 130 134 135 138 139 139 139 138 137 137 136 138 137 140 139 141 141 141 135 126 127 131 125 108 99 92 91 102 122 149 187 209 219 230 231 224 227 228 226 247 255 255 244 201 193 192 191 191 192 194 197 199 205 216 217 210 207 204 201 200 201 207 209 210 209 207 204 203 203 202 201 202 201 200 198 197 197 208 208 205 201 203 206 205 204 208 217 228 236 244 249 251 252 252 251 252 252 254 255 255 255 255 251 247 245 241 237 228 221 220 220 222 226 229 231 234 236 241 241 239 237 230 225 218 215 216 214 214 216 216 217 218 217 213 213 214 213 212 211 211 211 208 215 255 255 255 240 255 250 255 242 237 215 148 91 71 63 49 52 58 60 58 62 80 94 121 144 170 168 142 111 97 94 96 99 101 106 111 112 111 111 111 108 105 103 105 105 105 104 102 101 100 101 103 104 103 101 105 105 108 43 46 52 56 62 66 72 75 78 78 79 87 95 102 103 103 98 91 81 78 82 91 101 108 117 122 127 131 134 134 136 137 135 134 134 133 133 133 135 135 141 140 141 140 139 132 123 124 129 126 109 100 92 89 99 118 146 183 209 219 231 231 228 231 236 230 247 243 254 230 196 190 194 193 193 195 196 200 203 207 214 216 212 206 199 196 198 202 207 214 217 214 206 200 202 203 201 200 201 201 202 200 200 199 202 207 210 211 214 213 206 201 210 220 231 240 246 250 253 253 249 247 247 246 247 247 250 250 252 248 245 240 237 231 224 218 220 221 223 226 229 231 234 236 242 242 240 237 230 223 218 214 213 212 212 212 213 213 215 212 208 206 207 207 206 206 206 208 208 232 255 254 255 246 255 246 255 234 221 185 107 71 71 59 56 58 57 53 51 66 102 129 159 169 181 175 146 118 101 96 96 99 103 109 114 114 113 112 111 108 104 102 104 105 105 105 103 102 101 102 104 105 105 102 106 107 110 40 43 47 51 55 60 64 67 73 72 75 82 91 97 98 96 95 90 84 84 92 103 112 118 123 126 131 132 132 131 133 134 131 130 131 130 131 133 136 136 141 139 139 139 137 129 119 117 125 121 107 101 93 91 100 116 140 176 202 214 226 230 231 237 245 237 247 222 229 210 195 199 197 196 197 200 202 205 208 212 211 212 210 205 199 194 192 195 200 213 225 222 211 202 201 205 200 200 200 200 202 202 203 203 205 210 215 216 218 219 215 210 220 229 238 245 249 249 250 248 242 239 237 237 239 239 242 241 244 244 242 236 229 225 223 221 220 221 223 227 230 233 234 236 244 244 241 238 230 224 218 212 211 209 208 208 208 208 209 208 203 200 200 199 200 200 203 206 213 250 255 255 253 254 255 250 244 230 192 135 84 67 68 62 66 64 58 54 57 80 125 159 176 175 176 166 146 123 103 95 94 99 105 111 115 115 113 111 110 107 103 101 103 104 105 105 102 100 100 101 103 104 105 102 106 108 111 38 40 45 49 51 55 58 60 71 68 71 79 90 95 94 92 96 92 89 92 103 113 122 127 129 130 133 132 131 129 131 131 132 131 132 131 133 135 138 140 141 140 139 138 133 127 115 111 117 114 105 102 99 97 102 115 125 159 184 197 215 226 233 240 247 241 247 209 212 197 200 212 199 199 201 205 208 211 216 217 207 206 206 203 199 193 190 188 192 209 227 228 216 203 203 208 202 201 199 198 200 202 206 208 211 213 213 210 213 218 221 220 232 241 247 251 250 245 242 239 237 234 234 235 237 241 244 243 239 238 236 233 226 222 223 225 221 222 225 227 230 233 234 236 244 244 241 236 230 223 216 211 208 205 205 204 205 205 205 204 197 194 195 194 195 198 201 205 220 255 255 255 250 255 246 251 228 224 162 91 71 70 64 67 71 70 64 63 69 96 139 170 177 171 166 157 142 123 102 90 94 97 104 111 114 114 112 110 110 106 102 100 102 104 105 105 102 101 100 101 103 104 104 101 107 109 112 40 39 40 41 46 51 55 57 61 63 68 74 79 86 90 93 89 91 94 101 110 119 127 132 140 140 138 134 130 128 130 131 128 129 131 132 134 136 139 140 138 138 137 135 128 119 107 102 106 108 104 102 101 102 106 114 114 135 166 193 209 220 237 247 249 230 212 206 209 215 214 212 207 205 207 209 212 216 220 220 208 205 204 202 197 193 190 188 194 190 233 223 195 209 206 199 202 201 200 199 200 201 203 204 208 215 220 220 217 218 226 236 245 242 240 246 246 241 237 237 236 230 228 229 235 240 241 239 242 238 234 230 225 223 220 220 222 225 227 230 233 236 237 239 244 243 240 237 231 224 215 207 202 200 199 198 199 199 200 199 193 196 190 182 188 201 206 201 255 255 255 252 245 242 247 240 228 171 110 78 67 65 66 66 77 77 67 68 88 125 155 167 171 159 152 148 130 102 88 89 93 99 105 110 109 108 107 108 105 102 99 99 102 104 102 100 103 104 103 102 101 102 106 107 113 113 114 42 41 41 41 45 49 53 55 59 62 65 72 79 83 88 90 92 94 100 107 117 127 135 139 141 140 137 133 128 128 128 130 133 134 135 137 139 140 141 142 138 137 134 130 123 116 108 100 99 98 101 102 105 108 110 113 121 130 149 173 199 221 243 254 240 227 217 213 217 220 219 214 211 209 209 212 215 220 223 221 206 201 200 198 196 193 191 190 196 203 228 220 200 204 200 194 202 203 202 202 203 204 206 207 211 214 217 215 213 216 222 231 248 241 237 239 240 238 235 235 228 220 216 223 238 248 248 243 233 231 229 226 225 224 225 225 224 226 229 231 233 236 237 238 243 242 238 234 228 220 211 203 198 195 194 192 192 193 193 193 189 193 187 179 185 192 201 215 255 255 253 246 242 242 240 224 170 131 95 72 59 59 73 85 81 84 87 100 119 140 154 159 152 154 154 141 114 89 84 92 95 98 105 109 108 107 105 105 103 101 99 99 103 105 104 103 105 105 105 103 103 102 108 109 112 111 114 45 45 44 44 47 49 51 52 57 60 64 69 75 81 85 86 92 94 102 112 122 133 141 144 144 142 138 135 129 127 127 128 134 136 138 140 140 140 140 139 137 134 128 123 117 110 105 99 93 93 97 103 109 112 114 114 122 123 137 164 199 224 245 252 226 222 221 222 225 225 221 218 212 211 211 213 216 221 224 221 203 196 194 193 194 194 193 192 195 220 218 213 206 196 196 190 198 199 199 201 202 203 204 205 213 213 214 215 218 223 229 233 240 237 235 236 238 237 235 234 221 225 236 248 253 250 239 229 226 224 224 224 225 226 228 228 225 228 230 232 235 235 235 236 239 238 236 231 226 217 207 199 194 191 189 187 187 187 187 187 184 189 179 177 182 180 194 235 255 254 243 237 238 236 227 202 130 102 85 71 59 56 65 78 72 83 103 129 146 149 148 149 146 156 154 128 92 72 78 91 95 99 104 108 106 104 103 102 100 100 99 101 104 107 107 106 105 105 105 104 103 104 108 111 115 115 117 50 48 48 48 49 50 51 52 57 59 63 68 73 77 82 83 88 92 100 110 122 132 140 145 148 147 142 137 130 127 127 128 132 134 137 141 139 137 135 133 133 128 121 114 109 107 105 99 92 90 97 103 111 115 117 119 118 123 139 171 205 226 237 239 219 220 225 227 227 225 224 219 214 211 209 212 216 220 224 218 200 189 188 189 191 194 195 196 198 233 211 204 209 190 192 192 192 196 197 199 200 203 204 205 210 212 213 219 227 233 236 236 232 236 239 238 234 230 228 226 243 252 255 255 243 228 223 221 223 222 222 223 225 226 229 230 229 230 232 233 235 235 235 236 238 238 234 229 223 214 204 197 190 186 182 181 181 180 179 179 179 183 173 173 179 171 193 252 253 249 238 232 229 220 206 177 119 92 79 74 70 64 61 61 65 81 110 138 149 145 141 144 157 161 144 108 75 65 76 87 95 100 105 107 105 103 100 101 98 99 100 103 106 108 109 110 106 106 106 104 103 105 109 112 119 118 118 55 54 54 53 53 53 54 54 59 61 64 68 73 77 81 82 86 89 97 107 117 128 136 140 149 148 144 139 132 129 127 127 129 132 135 137 138 134 129 128 127 122 114 109 106 105 106 102 97 95 100 105 110 116 122 125 127 136 157 182 205 216 223 226 221 223 226 227 225 223 221 220 211 208 207 209 212 217 221 216 196 185 181 183 189 194 199 199 208 245 214 201 207 184 183 188 191 195 198 200 202 204 207 209 208 210 214 222 229 234 232 230 233 239 240 234 228 228 232 237 255 255 241 221 209 209 220 231 224 224 224 224 226 227 229 229 230 231 234 235 235 235 232 234 238 238 234 228 223 214 203 195 186 181 179 175 175 172 172 172 170 172 166 167 170 171 203 255 243 241 235 226 215 199 178 153 103 83 80 78 73 66 63 65 77 94 120 139 145 141 143 151 157 146 117 82 63 66 79 86 98 101 105 106 105 101 98 99 98 102 103 105 107 109 110 111 106 107 106 105 105 106 110 114 120 118 118 63 61 61 61 61 59 59 59 63 64 67 70 75 78 81 82 89 90 95 103 113 123 131 135 143 143 141 138 131 126 122 121 123 124 128 131 131 127 124 122 118 114 109 106 107 108 108 107 103 102 103 106 110 118 124 131 150 157 169 185 197 204 213 221 225 225 226 226 224 222 220 218 209 205 204 206 209 213 217 211 193 180 176 178 187 196 201 203 217 248 227 206 204 184 172 181 188 191 192 195 197 201 206 209 217 219 222 229 234 234 231 227 232 235 236 232 236 248 255 255 249 226 202 192 201 214 223 224 226 225 226 225 227 228 229 230 233 233 234 235 235 234 232 233 239 236 232 227 221 211 201 192 182 178 174 170 169 168 165 165 165 160 160 160 162 181 219 249 237 237 231 216 198 177 156 136 84 77 83 77 63 57 65 78 108 119 132 137 141 144 148 152 131 110 81 60 57 65 79 87 99 101 106 107 105 101 97 99 99 105 106 108 108 108 109 110 109 109 109 108 107 109 114 115 124 123 122 68 68 68 67 67 67 66 66 68 69 71 74 79 82 84 85 92 92 92 97 105 114 123 129 134 136 136 132 127 121 116 111 112 114 118 119 119 116 115 114 109 108 106 107 109 111 111 111 110 109 107 108 111 117 125 137 161 167 174 186 197 204 212 220 224 225 225 224 224 221 216 212 207 202 201 202 205 210 213 207 191 177 172 174 186 196 202 206 216 240 241 217 204 190 166 179 190 193 193 194 197 201 207 212 225 227 228 231 233 233 232 231 231 230 230 233 244 255 255 248 204 193 189 195 213 222 223 217 226 226 226 226 228 229 231 233 234 235 235 235 235 232 232 233 235 233 230 224 219 209 198 190 179 174 170 166 164 163 163 160 161 150 156 154 154 195 237 237 235 232 220 202 182 161 142 127 78 75 80 76 69 71 87 105 127 130 131 125 131 142 137 124 88 71 57 54 58 61 74 87 101 104 108 108 105 99 97 97 102 108 109 110 108 107 107 109 112 113 112 112 111 113 116 119 126 123 121 73 74 73 73 73 73 72 72 73 74 76 78 82 84 88 89 93 91 92 94 100 110 120 125 129 131 133 131 125 117 111 107 105 106 109 109 109 108 107 106 103 104 104 107 110 113 113 112 112 111 112 115 119 126 137 147 162 166 171 186 200 211 217 221 223 223 223 223 223 221 216 209 207 204 202 203 206 209 211 206 190 175 168 172 182 193 201 204 204 224 248 224 208 202 171 184 202 204 202 203 205 210 220 225 226 226 227 226 226 227 229 229 228 224 221 225 234 234 211 184 184 190 201 208 214 217 225 231 226 226 226 228 229 231 233 234 234 234 235 235 233 232 231 231 233 230 226 222 214 204 194 185 174 170 166 162 160 158 159 155 152 140 153 152 151 205 246 222 229 217 200 183 167 155 141 128 84 67 66 72 88 110 132 148 135 134 124 110 117 130 117 91 59 52 53 61 60 57 67 85 103 105 108 109 106 102 98 99 104 108 111 110 108 105 106 106 115 115 115 114 114 115 119 122 119 117 116 82 82 82 82 82 82 82 82 85 86 87 88 89 91 92 92 98 97 97 98 101 107 113 117 122 124 127 127 124 117 109 101 99 96 95 95 94 94 97 98 101 103 105 107 107 109 109 106 106 114 113 117 139 156 162 170 164 165 166 176 194 210 221 222 223 222 222 222 222 219 216 215 213 212 210 210 210 210 212 205 189 182 174 169 171 183 192 195 200 206 212 219 221 212 194 183 221 216 212 211 215 219 221 223 223 230 234 234 229 224 222 220 220 209 199 191 185 186 191 195 195 199 208 217 224 229 233 236 230 229 229 229 229 229 229 229 224 225 228 229 230 231 231 231 235 230 223 220 214 205 193 183 169 163 160 155 153 150 151 145 144 139 135 145 188 228 229 205 189 181 170 162 155 150 149 138 88 61 56 86 127 155 161 156 146 126 104 92 89 84 72 63 58 64 60 58 60 58 65 82 93 103 112 111 108 106 105 103 108 109 111 108 109 107 109 109 113 113 114 114 116 118 121 122 123 111 101 87 87 87 87 87 87 87 87 88 89 89 91 92 93 94 95 100 99 99 99 102 106 110 112 114 116 118 118 115 109 103 98 94 90 89 87 88 88 92 94 99 99 102 103 105 106 107 106 102 111 119 129 153 168 175 180 173 170 171 177 190 204 216 220 221 220 220 220 219 218 217 215 215 213 213 213 212 212 212 206 190 182 174 166 167 178 185 190 198 199 203 210 220 225 223 221 219 214 209 208 211 215 217 218 230 234 236 234 230 226 225 219 205 194 187 180 178 181 186 191 198 205 213 220 226 230 235 239 233 231 231 230 230 229 229 227 226 227 227 228 228 228 229 229 228 227 223 217 208 196 183 172 165 160 156 151 150 146 147 140 128 128 137 157 191 215 209 183 172 164 157 152 151 151 152 140 96 83 94 122 153 165 153 136 106 97 84 74 70 63 57 53 58 65 61 58 61 58 64 82 94 103 113 112 110 107 107 104 109 110 109 109 107 107 108 109 112 112 112 115 117 120 120 120 110 100 90 93 93 93 93 93 93 93 93 91 92 93 94 95 96 97 97 101 101 100 100 101 102 104 104 105 106 107 107 105 102 98 95 90 87 85 82 81 83 87 88 94 94 97 99 103 105 107 105 101 113 123 136 162 175 177 182 182 183 182 184 189 197 204 211 217 219 219 219 218 217 217 215 215 213 213 212 212 212 210 205 192 182 173 163 163 170 179 185 196 196 197 200 208 216 220 225 216 215 210 211 216 222 227 232 236 237 234 231 230 227 224 217 193 184 179 175 175 178 182 187 200 205 213 217 223 229 234 238 234 233 233 231 231 230 229 229 227 228 228 227 227 226 225 222 221 220 218 211 200 185 173 165 161 157 153 148 147 144 144 138 122 121 136 160 185 192 184 171 162 156 153 151 151 151 152 139 115 122 147 164 171 158 124 91 63 65 65 63 58 54 54 53 57 64 61 57 61 57 64 81 96 105 115 114 112 109 109 107 112 113 111 110 108 108 108 110 112 112 112 117 120 121 117 113 95 86 79 97 97 97 97 97 97 97 97 95 96 96 97 98 99 100 100 101 102 102 103 103 102 102 102 104 104 104 104 103 101 100 99 93 90 86 82 80 80 84 85 87 89 91 93 97 100 102 102 103 111 119 138 169 182 180 183 193 195 195 193 189 189 193 202 213 217 218 217 218 216 216 213 213 212 212 212 212 212 210 205 193 182 172 162 157 162 172 181 188 191 195 197 203 206 206 211 220 223 218 218 222 226 232 235 235 235 232 229 228 224 217 204 185 177 175 174 174 176 179 181 195 202 210 217 223 227 234 236 237 235 235 234 234 232 231 230 226 225 223 224 222 220 219 217 214 213 210 202 187 175 164 158 156 152 148 146 143 141 140 135 128 118 129 153 170 172 169 166 157 152 148 148 149 149 151 141 137 153 173 166 144 115 78 47 45 51 58 61 59 58 58 60 57 63 60 57 60 57 63 80 97 106 116 115 114 111 111 109 112 115 112 111 109 109 110 112 113 114 116 121 123 119 109 101 90 82 77 99 99 99 99 99 99 99 99 99 99 100 100 101 102 102 102 102 103 104 105 105 105 104 103 106 105 105 104 104 104 104 104 100 96 91 86 80 78 78 78 80 82 84 86 88 91 93 95 99 105 112 134 172 189 191 197 205 210 209 203 194 187 184 190 208 215 216 215 217 214 214 212 212 212 212 210 210 210 210 205 193 182 171 161 154 155 163 175 179 186 194 199 203 206 208 216 232 234 228 226 223 223 225 225 233 232 231 230 226 218 206 191 181 174 174 173 173 173 173 175 184 193 205 215 221 225 231 235 237 238 238 237 234 232 231 228 225 223 223 220 219 217 215 212 207 203 197 185 173 163 158 154 150 147 145 141 138 137 136 131 131 117 123 147 164 161 158 161 152 146 144 141 143 148 151 143 141 152 157 128 93 68 50 36 45 48 53 57 60 61 58 58 57 62 59 56 59 56 62 80 98 107 117 116 115 113 113 111 114 114 114 112 109 109 112 115 116 118 120 123 122 113 100 89 92 85 81 101 101 101 101 101 101 101 101 101 102 102 102 103 103 104 104 103 104 105 106 106 106 106 106 106 105 104 104 104 104 105 106 102 98 94 88 83 77 75 73 75 76 76 78 80 81 83 84 92 95 100 124 161 181 193 211 214 220 219 210 200 189 178 183 204 212 213 213 214 213 213 212 212 210 210 210 210 210 210 205 193 181 171 162 153 149 155 167 178 185 191 195 197 203 210 223 233 237 234 232 229 228 225 224 223 224 226 224 217 207 194 181 177 172 172 171 170 169 169 171 175 183 197 206 214 222 227 232 236 239 239 238 235 233 231 228 226 224 222 218 217 213 209 205 195 187 179 170 161 155 152 149 145 141 138 136 134 132 131 127 125 116 126 151 163 156 149 152 149 144 142 140 142 147 153 145 126 121 114 85 59 47 48 48 51 52 54 60 64 63 60 55 56 62 58 55 58 55 61 79 98 107 117 117 116 113 114 112 114 115 114 112 110 112 115 118 121 123 122 120 113 103 93 88 95 87 82 103 103 103 103 103 103 103 103 103 103 103 104 104 104 104 105 106 106 106 106 105 105 105 105 105 104 104 104 104 104 104 104 102 101 98 92 87 80 76 73 73 71 71 71 72 73 72 74 82 89 92 105 129 149 174 209 217 223 223 217 207 195 183 180 201 211 212 211 213 211 211 211 210 209 209 209 209 209 209 205 193 181 172 163 152 144 149 161 173 182 191 192 194 199 208 222 232 238 236 233 229 224 220 217 204 207 211 207 199 189 180 171 170 167 167 166 165 166 166 169 170 177 188 195 203 211 220 228 233 236 236 235 233 232 229 226 224 221 218 213 207 202 199 191 177 169 162 156 152 148 145 141 139 137 135 131 130 128 127 125 120 120 133 152 157 148 144 149 147 144 144 144 146 149 152 142 107 86 74 61 54 50 52 53 54 56 61 67 69 67 64 59 55 61 58 55 58 54 61 78 97 107 117 117 116 114 114 112 113 114 113 112 111 114 117 121 127 126 122 113 102 95 93 94 97 89 82 104 104 104 104 104 104 104 104 103 104 104 104 104 104 105 105 109 108 106 105 104 103 103 104 105 105 105 105 104 104 104 104 103 102 101 98 92 85 80 77 69 68 68 68 66 66 66 67 74 84 85 89 101 115 146 192 215 222 223 220 213 204 189 184 203 207 208 210 210 210 210 210 209 209 209 209 209 209 209 205 193 182 173 167 153 143 147 159 163 176 192 198 204 208 217 227 236 238 233 226 214 202 192 187 183 187 190 187 179 169 164 160 161 159 160 161 161 163 163 164 169 173 178 184 191 201 212 224 229 232 232 231 229 228 225 222 220 216 210 202 196 188 184 176 162 153 149 147 145 143 139 133 136 133 131 128 126 124 123 123 121 128 140 150 146 139 144 153 145 146 148 150 150 151 150 140 97 69 54 56 62 60 51 45 49 55 66 71 72 66 63 59 55 61 57 54 58 54 60 78 97 106 117 116 116 114 114 112 113 113 113 112 112 115 119 123 130 128 120 106 93 89 94 101 99 90 83 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 103 103 102 101 98 90 83 77 72 69 65 64 63 63 63 63 72 74 67 75 92 96 128 189 217 224 226 229 226 215 203 201 199 203 204 205 205 206 209 211 210 210 210 210 209 209 209 206 187 182 177 168 154 148 149 156 174 179 186 193 205 215 226 234 232 232 221 201 187 180 176 169 171 169 164 160 155 150 147 146 150 152 153 154 155 156 158 161 162 165 171 176 182 190 197 204 218 224 226 226 226 222 218 215 216 210 199 187 178 170 166 159 153 146 145 141 139 136 135 133 128 125 124 124 124 123 121 120 119 139 151 147 142 145 147 142 152 152 145 144 151 149 148 147 93 73 65 66 62 55 50 52 52 72 90 87 77 68 65 61 58 62 59 58 59 52 59 80 99 108 117 115 114 112 114 113 112 113 114 114 115 118 123 127 130 120 106 96 94 97 102 104 100 91 84 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 104 104 103 103 100 94 85 79 73 69 66 64 63 62 62 61 66 65 64 72 77 82 124 185 201 221 234 230 226 226 219 209 205 206 207 207 207 206 205 205 206 208 208 208 208 208 208 205 201 197 188 174 159 150 150 155 168 180 195 209 222 230 233 234 224 219 208 190 175 171 165 159 159 156 151 149 143 139 135 136 142 143 146 145 148 148 150 153 159 161 164 168 173 178 184 189 202 208 211 213 215 214 212 209 202 195 185 176 169 164 159 153 146 140 138 136 134 132 131 129 126 124 123 121 120 119 117 119 128 144 152 145 140 143 146 144 147 152 152 151 156 148 142 138 93 88 95 90 73 54 52 60 79 89 95 87 74 66 63 60 57 61 58 57 60 53 59 80 100 108 117 116 114 113 114 113 115 114 112 113 116 120 124 127 123 111 99 93 97 101 101 99 100 91 84 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 106 108 107 105 105 102 97 89 83 77 72 68 65 65 63 62 61 62 58 66 73 69 84 132 181 179 214 239 236 230 235 232 219 203 201 201 201 203 202 200 200 202 203 203 203 203 204 204 203 194 190 182 173 161 158 160 167 188 199 214 225 231 233 229 223 216 209 195 177 166 161 156 152 149 146 143 138 133 130 126 129 132 136 137 137 139 139 142 143 150 152 155 158 162 167 170 175 185 190 193 196 197 197 195 193 182 178 170 163 158 155 152 148 141 136 135 132 130 128 128 127 125 122 122 119 118 117 116 118 136 148 150 142 136 141 145 146 146 153 153 154 154 147 141 141 129 126 128 108 76 54 61 76 101 101 93 80 69 63 61 58 56 59 56 57 61 54 60 80 100 109 118 116 115 113 114 112 117 112 110 112 117 121 125 124 112 102 92 92 101 105 102 95 99 90 83 105 105 105 105 105 105 105 105 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 110 109 106 106 104 101 95 89 82 77 71 68 67 66 64 62 63 60 71 76 77 110 152 167 158 197 229 239 237 237 234 227 205 199 197 197 200 202 203 205 209 209 210 210 211 211 211 211 211 209 203 198 194 195 199 206 217 221 226 228 228 226 224 220 214 202 189 173 161 155 151 148 142 140 138 133 130 125 123 124 128 131 131 132 132 133 135 136 137 140 143 147 150 156 160 163 170 173 175 176 176 176 175 174 168 165 158 155 149 146 145 142 136 133 131 129 127 126 125 125 124 122 121 119 115 113 114 117 140 146 145 138 135 139 147 151 150 155 152 148 150 144 144 151 148 133 117 89 67 63 80 99 101 92 78 67 63 62 61 59 55 58 55 57 61 55 60 79 98 108 118 117 116 114 114 111 113 111 111 115 122 124 122 117 99 94 91 95 103 106 102 96 98 89 82 105 105 105 105 105 105 105 105 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 111 110 107 107 107 104 100 96 88 82 78 73 71 68 66 63 64 65 77 83 101 148 170 153 155 179 214 241 245 235 232 233 217 211 205 203 206 210 213 215 218 218 221 221 222 222 224 224 235 232 227 220 216 216 219 224 224 225 227 226 228 226 228 224 218 203 188 174 163 153 147 146 141 138 137 132 130 128 125 125 127 128 128 128 128 129 129 131 130 132 134 138 140 144 146 148 155 158 159 160 161 162 162 162 159 156 152 148 143 140 137 135 132 130 129 128 125 125 124 123 122 121 120 118 113 111 113 116 140 141 137 132 133 140 147 152 152 156 152 147 146 136 131 134 110 90 74 65 73 87 100 106 88 76 63 58 60 62 60 58 56 58 54 56 62 55 59 76 95 105 116 116 116 114 115 112 110 109 112 119 124 122 114 105 90 92 97 101 103 103 104 102 99 89 82 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 111 110 107 108 108 107 103 100 94 89 83 77 75 71 69 64 61 66 81 98 129 169 178 155 175 184 208 242 254 243 237 242 227 218 212 208 209 212 214 214 217 218 220 221 222 222 224 224 226 225 220 217 214 215 216 219 224 228 230 232 231 228 223 219 221 205 188 175 165 153 146 144 140 137 136 134 132 129 129 128 128 127 127 127 127 127 127 127 128 129 131 131 133 132 133 133 141 143 145 148 151 154 158 159 153 150 147 144 138 135 132 130 130 129 127 126 123 123 123 122 120 120 119 115 112 111 114 118 139 137 132 130 133 139 146 151 147 153 151 149 144 123 102 96 69 62 63 74 95 107 101 88 77 64 54 55 61 61 58 55 56 58 54 56 62 55 57 73 91 101 114 115 115 114 115 112 109 111 115 120 122 115 105 96 89 94 101 103 102 101 103 104 97 88 81 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 111 109 107 108 109 108 105 102 98 94 88 82 79 74 73 65 60 66 86 122 163 178 180 183 197 193 200 222 241 242 233 228 219 213 207 205 207 208 208 205 210 210 212 213 215 216 217 218 221 221 222 221 223 224 227 229 231 234 236 236 231 226 219 214 219 204 188 177 169 155 147 145 139 139 138 137 136 135 136 133 128 125 125 125 125 125 125 124 124 124 126 126 125 125 126 126 131 131 135 137 141 145 149 150 146 145 141 138 135 131 128 126 128 128 126 125 124 122 122 121 117 118 118 114 111 111 115 120 138 134 129 130 133 137 142 145 146 151 147 145 138 110 80 69 65 75 87 96 103 100 86 71 65 55 49 54 61 60 56 55 57 59 54 57 63 55 55 70 86 97 111 113 115 114 116 113 111 113 117 118 115 106 98 91 94 96 99 101 102 102 102 101 96 87 80 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 108 110 109 109 109 109 108 106 103 100 96 90 85 80 77 73 69 65 71 92 137 175 169 169 203 195 189 185 195 216 229 221 205 209 207 205 206 210 210 206 201 207 209 210 212 214 217 220 222 222 223 222 223 225 224 224 225 232 234 232 231 228 228 226 223 215 200 184 177 169 155 146 142 137 136 136 136 136 138 137 136 128 126 126 124 124 124 124 124 120 121 124 124 125 125 125 125 126 127 128 129 132 133 134 134 138 136 136 133 132 128 126 125 125 125 124 121 122 120 120 120 114 117 118 114 110 110 116 120 138 132 128 132 136 140 140 141 149 148 139 132 127 101 71 61 73 90 103 99 89 83 78 74 58 48 44 53 61 60 58 57 59 59 55 57 63 56 56 69 85 97 110 114 114 114 115 113 114 117 118 116 111 102 94 91 100 97 96 99 102 103 101 97 96 87 80 105 105 105 106 106 107 107 107 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 110 107 112 116 114 110 106 104 104 103 103 99 91 86 83 78 71 76 74 98 145 182 187 183 185 182 189 194 200 205 208 211 211 205 205 208 211 212 207 206 207 200 201 203 207 212 216 222 222 225 223 223 224 224 225 225 227 227 228 228 227 227 227 227 224 211 197 184 170 160 151 142 134 131 129 129 129 132 135 136 136 133 132 132 129 129 128 128 128 126 126 126 126 126 126 126 126 125 125 126 126 128 128 128 126 128 126 125 124 123 122 120 120 120 120 119 118 118 116 115 113 109 114 110 109 111 109 113 127 133 133 134 136 139 144 148 149 147 141 137 130 111 89 77 79 106 98 89 85 82 77 73 67 55 52 50 54 60 64 64 60 53 51 52 55 57 59 61 60 83 97 110 115 114 114 115 114 117 126 126 112 98 94 94 94 96 98 100 102 101 99 96 94 95 84 75 105 105 105 106 106 107 107 107 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 110 114 113 114 113 114 111 109 106 103 107 111 108 104 99 91 82 80 72 81 107 127 132 136 147 177 184 187 192 192 193 194 194 205 197 192 195 205 209 205 199 202 202 204 208 214 219 223 224 223 223 223 223 224 224 225 225 224 225 224 224 226 226 226 224 213 200 186 172 160 148 138 130 128 126 126 127 131 134 136 137 135 133 132 132 131 130 130 130 127 127 127 127 126 126 126 126 125 125 125 125 125 125 124 124 124 122 122 121 121 121 119 119 119 119 116 115 114 114 112 112 107 113 109 108 111 108 112 126 132 133 136 139 144 148 149 148 138 133 128 123 115 104 102 103 94 88 80 76 75 75 71 67 60 56 54 55 60 63 62 59 52 51 53 54 58 60 62 62 81 94 107 112 112 113 115 115 120 124 120 107 96 93 93 92 96 97 99 101 100 98 96 94 93 82 73 105 105 105 106 106 107 107 107 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 110 113 111 109 109 113 111 108 104 102 112 123 126 127 122 112 101 84 70 67 77 83 85 93 108 110 117 126 135 146 155 165 171 185 183 181 186 198 206 210 207 208 209 211 213 215 219 222 222 222 222 222 221 223 222 223 223 222 222 221 220 221 221 221 220 214 206 195 179 162 148 136 131 130 127 126 127 131 134 135 136 135 132 132 132 130 130 128 128 127 127 126 126 126 126 126 126 125 125 125 125 124 123 123 123 123 123 122 121 120 120 120 120 116 116 115 115 114 113 111 111 106 111 109 107 108 105 109 125 135 135 139 142 145 146 148 145 140 135 126 116 111 111 108 102 81 75 69 68 69 71 71 69 63 60 57 55 58 60 59 57 54 53 54 54 58 60 61 61 77 90 102 108 110 113 117 116 122 119 110 99 92 92 92 90 95 97 98 100 99 97 95 93 91 80 70 105 105 105 106 106 107 107 107 106 106 106 106 106 106 106 106 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 110 114 111 109 107 107 108 108 106 106 120 136 145 149 146 137 125 96 79 68 70 72 70 76 86 80 82 86 89 92 97 101 109 136 157 173 181 188 196 208 216 212 213 214 216 217 219 219 221 222 221 221 221 221 221 221 220 219 218 217 217 218 218 219 217 214 211 201 186 167 152 140 133 131 127 126 127 131 132 135 136 132 132 132 131 130 130 127 127 127 127 126 126 126 126 126 126 125 124 125 123 123 123 123 120 123 121 121 121 120 120 120 118 115 115 115 114 113 111 111 109 106 111 108 104 107 104 108 124 138 140 141 143 144 145 144 140 137 133 121 105 100 100 92 78 69 65 61 60 63 67 70 71 66 62 58 57 57 57 56 55 55 54 54 54 58 59 60 60 74 86 98 106 110 115 119 120 123 114 101 92 90 92 92 90 95 96 97 98 97 96 94 93 90 78 69 104 104 104 105 105 106 106 106 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 114 116 115 109 106 108 115 122 129 144 160 168 171 168 163 153 122 99 79 71 69 66 66 69 75 74 71 68 65 65 64 70 85 113 142 160 175 191 204 211 213 215 216 217 218 218 218 218 221 221 221 219 219 219 219 217 218 217 214 213 213 213 213 214 212 211 206 193 174 158 145 138 132 129 128 128 129 132 134 135 132 131 130 130 130 129 127 127 126 126 126 126 125 125 125 125 124 122 124 121 121 120 120 118 121 121 120 118 118 117 117 116 114 113 113 112 111 110 110 109 106 109 106 104 106 102 106 125 141 143 144 144 144 142 138 131 123 118 107 93 89 89 79 63 58 55 52 53 56 61 67 69 66 63 60 58 56 55 53 52 53 53 54 54 57 58 59 59 71 82 96 105 111 117 121 121 120 110 96 90 91 94 94 93 96 97 98 98 97 96 95 94 87 76 66 104 104 104 105 105 106 106 106 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 107 110 112 108 107 114 132 145 167 181 196 201 201 197 192 185 164 136 102 80 70 62 59 58 56 56 56 58 60 64 67 71 64 83 104 129 163 192 204 202 211 214 216 218 219 219 220 220 221 221 219 219 218 218 218 217 217 215 214 212 211 210 211 212 212 213 208 198 182 165 150 140 134 130 129 128 129 131 132 133 130 130 130 130 129 127 127 126 126 126 126 126 125 125 125 125 122 122 121 121 120 118 118 116 119 117 117 115 116 115 114 114 113 113 112 111 110 109 108 106 104 108 105 102 104 101 105 123 142 146 145 143 141 135 129 124 115 107 96 86 80 74 64 52 51 50 48 48 50 53 57 60 63 63 62 58 58 53 51 49 51 51 52 52 56 57 59 59 67 79 93 105 112 119 121 119 113 102 90 88 92 93 93 94 96 96 96 96 96 95 94 93 85 74 65 104 104 104 105 105 106 106 106 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 106 106 107 107 117 136 159 176 195 211 226 231 231 227 222 217 206 184 151 121 95 75 64 59 62 61 61 59 59 58 57 58 63 69 81 99 137 177 199 202 205 209 213 216 219 221 224 223 222 221 221 220 220 219 219 217 218 216 213 212 211 210 211 212 217 217 209 200 188 172 153 140 137 131 129 128 129 131 131 132 130 130 130 129 127 127 126 125 126 126 125 125 125 125 125 125 122 121 120 120 119 116 115 114 116 115 114 113 114 112 112 112 111 111 110 110 109 108 107 105 103 107 104 101 104 98 102 122 144 146 145 142 136 129 120 114 107 94 82 75 67 57 50 48 49 49 48 47 47 48 50 52 57 59 61 60 59 54 51 49 46 48 49 50 55 57 58 58 63 75 91 104 113 119 119 115 103 94 85 87 91 91 91 93 95 95 95 95 94 94 93 93 85 74 64 104 104 104 105 105 106 106 106 105 105 105 105 105 105 105 105 107 107 107 107 107 107 107 107 108 108 108 108 108 108 108 108 112 110 108 116 135 161 188 206 207 224 242 250 251 247 241 240 232 221 193 162 125 94 75 67 65 65 64 66 65 66 67 65 59 66 71 76 102 145 181 199 192 199 206 211 216 222 225 226 221 219 219 220 220 219 219 219 220 217 215 212 212 211 210 213 221 219 210 202 191 176 156 139 138 133 130 128 129 129 131 132 130 130 130 127 127 126 125 125 126 126 125 125 125 125 125 123 121 119 120 117 116 115 114 113 114 113 112 110 112 109 111 111 111 111 110 109 108 106 105 104 102 107 104 99 101 98 101 120 142 146 142 138 131 122 113 104 90 73 63 62 57 48 47 54 52 53 53 52 50 48 48 49 54 58 61 62 60 55 50 49 44 46 48 49 54 56 58 58 60 73 89 103 112 118 117 112 96 88 83 87 91 89 89 92 95 95 94 94 94 93 93 93 83 72 63 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 106 107 107 107 108 108 109 109 109 109 109 109 109 109 109 109 108 105 103 118 147 175 196 218 234 243 246 252 255 255 255 252 253 247 242 224 198 170 136 98 69 68 67 70 71 70 67 70 73 65 66 70 75 101 147 198 233 211 199 191 195 210 219 225 225 220 220 217 210 215 225 225 216 218 218 217 215 215 212 209 211 222 219 211 202 190 176 159 144 140 135 131 129 128 127 129 129 127 127 127 126 126 124 124 124 124 124 124 124 122 122 122 122 121 119 119 117 116 113 112 112 111 109 109 108 109 108 109 109 105 109 112 111 107 103 103 104 101 105 100 93 96 95 98 115 140 143 136 129 125 118 102 84 68 62 58 53 52 51 52 52 54 55 54 52 51 49 47 46 46 50 54 58 58 56 52 49 42 44 45 46 52 55 58 58 54 68 87 104 115 119 114 107 91 88 84 84 87 90 91 90 94 98 98 94 92 95 96 94 83 70 61 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 107 107 107 108 108 109 109 109 109 109 109 109 109 109 109 108 103 111 134 164 193 214 234 247 247 248 252 254 255 255 255 255 255 251 237 215 192 164 130 103 76 71 69 71 72 73 76 75 66 71 81 96 124 166 207 232 255 234 201 188 199 213 219 216 213 210 215 219 218 212 214 221 217 217 218 218 217 214 212 212 220 219 211 203 191 177 160 146 140 135 131 129 128 127 129 129 127 127 127 126 125 124 124 124 124 124 124 124 122 123 123 122 119 117 117 115 114 110 111 109 109 108 108 108 108 106 108 108 107 110 111 110 108 105 103 101 99 100 95 94 98 94 96 112 129 135 135 126 114 100 81 62 58 54 53 51 52 52 53 55 55 55 55 53 52 49 47 47 46 49 52 56 57 56 52 52 46 46 46 45 50 52 56 57 55 68 87 104 116 119 112 103 89 87 84 84 86 89 89 89 91 95 95 92 91 94 94 94 82 70 59 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 107 107 107 108 108 109 109 109 109 109 109 109 109 110 110 108 101 121 151 178 205 228 244 250 251 252 253 254 255 255 255 255 254 250 239 225 210 188 160 135 96 81 68 68 74 76 75 73 68 84 107 130 157 192 219 234 248 255 255 234 190 177 198 219 216 207 202 204 210 214 216 217 214 216 217 217 217 214 213 213 217 217 210 203 192 178 161 147 142 137 131 129 127 126 128 128 127 127 126 125 125 124 123 123 125 125 123 123 123 123 122 120 116 113 114 111 110 108 108 107 108 106 106 106 106 105 106 106 110 109 109 109 109 105 102 99 100 97 93 95 99 92 95 115 125 129 126 112 94 79 63 52 50 48 49 50 52 52 53 55 55 55 54 53 53 50 48 48 46 48 50 54 55 56 56 57 52 51 47 44 47 49 53 54 54 68 89 107 119 119 108 95 87 87 84 84 86 88 89 89 90 93 95 93 93 95 94 90 78 65 54 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 105 106 107 107 108 108 109 109 109 109 109 109 110 110 110 110 109 106 131 163 185 208 229 243 245 251 251 252 252 253 254 255 255 248 244 238 230 221 206 182 161 128 102 77 70 72 75 72 68 80 106 139 164 183 203 223 234 247 255 255 255 245 227 200 176 194 200 199 195 199 211 213 207 210 212 213 216 214 214 213 213 214 213 210 204 192 178 162 149 142 137 131 129 127 126 128 128 127 127 126 125 125 124 123 123 126 126 124 123 123 123 122 120 114 111 111 109 108 107 106 104 105 105 105 104 104 104 104 104 109 108 106 105 106 106 102 97 101 97 93 97 98 89 97 121 129 118 105 87 73 64 58 56 48 47 51 52 53 53 54 54 55 54 54 52 51 51 49 49 46 47 48 50 53 55 59 60 57 55 50 45 46 47 50 52 52 69 93 114 123 119 102 85 83 84 83 83 84 85 86 86 87 91 93 92 94 95 92 87 73 61 49 103 103 103 103 103 103 103 103 103 103 103 103 103 103 103 105 106 107 107 108 108 109 109 109 109 109 109 110 110 111 111 110 113 135 164 183 205 227 242 244 248 250 251 253 252 250 249 246 246 243 240 238 233 222 202 182 157 125 89 71 70 70 67 65 98 133 170 192 203 213 230 241 249 250 251 255 255 255 233 182 164 178 192 199 197 190 193 202 203 206 209 210 211 211 211 211 211 210 208 201 189 175 160 149 142 137 131 129 127 126 127 127 126 126 126 125 124 123 123 123 124 124 124 123 122 121 121 119 110 109 108 108 107 104 104 104 105 104 104 103 103 103 103 104 107 104 102 103 105 104 101 98 99 98 95 93 93 86 98 123 116 97 78 65 61 59 57 57 51 51 53 54 54 55 53 52 54 52 51 51 51 50 49 49 46 46 47 48 51 54 58 60 61 58 53 48 48 47 49 49 50 71 98 119 124 113 92 74 79 81 81 81 81 81 83 83 87 91 93 93 95 95 90 82 65 54 43 103 103 103 103 103 103 103 103 103 103 103 103 103 103 103 105 106 107 107 108 108 109 109 109 109 109 110 110 111 112 112 110 108 122 147 171 196 220 237 244 245 246 250 251 251 248 245 241 244 244 244 243 242 233 216 197 177 143 101 77 71 70 71 74 122 158 195 215 222 230 243 252 243 254 255 255 255 255 255 255 212 181 162 178 190 182 182 199 199 202 205 208 208 208 208 208 210 210 206 197 184 170 158 149 142 137 131 129 127 126 127 127 126 126 126 125 124 123 123 123 124 123 123 122 121 120 119 117 110 108 108 106 105 105 104 103 103 103 102 102 102 102 102 102 104 104 103 103 103 104 103 102 97 101 94 92 96 97 105 117 88 69 60 57 59 56 53 51 54 53 55 54 54 53 53 51 50 49 50 49 49 49 49 49 46 46 46 47 48 51 54 55 60 58 56 53 52 50 49 48 48 72 101 117 116 102 82 66 75 78 80 80 78 78 79 81 86 90 93 94 95 95 86 78 59 48 38 103 103 103 103 103 103 103 103 103 103 103 103 103 103 103 105 106 107 107 108 108 109 109 109 109 109 110 110 111 112 113 111 104 109 133 163 191 211 229 240 242 245 248 250 252 250 248 246 246 247 250 252 253 247 231 213 192 158 117 90 80 83 91 99 146 176 210 230 242 249 255 255 255 255 249 247 251 255 255 255 255 234 183 168 174 183 185 191 195 198 202 203 205 204 203 204 209 208 204 194 179 166 156 149 140 135 133 129 127 126 127 127 126 126 126 125 124 123 123 123 123 123 121 120 119 118 118 115 110 106 106 106 106 104 104 104 103 102 102 102 100 100 100 102 103 104 105 105 104 105 106 108 103 107 98 97 111 120 116 110 67 53 52 56 56 52 49 50 53 53 53 52 52 52 52 51 47 46 48 46 46 46 48 48 49 48 48 47 48 49 51 52 57 58 59 58 58 54 50 47 50 73 99 109 102 87 73 63 72 76 78 78 76 76 77 79 85 89 91 93 94 92 81 71 54 43 34 103 103 103 103 103 103 103 103 103 103 103 103 103 103 103 105 106 106 106 108 108 109 109 109 109 108 109 110 111 110 111 109 107 109 131 165 195 213 230 244 244 247 249 250 252 252 252 253 251 254 255 255 255 255 239 221 193 162 124 98 88 93 109 124 165 187 215 235 250 255 255 254 253 250 250 251 250 244 247 255 255 255 250 188 157 171 183 177 192 198 201 202 202 201 199 200 207 205 199 188 173 159 149 145 138 132 130 129 127 126 128 128 126 126 126 125 124 123 123 123 122 122 120 119 118 117 117 113 109 107 106 106 105 105 105 104 103 102 103 102 102 102 102 102 102 106 109 107 106 106 109 111 108 111 100 99 122 134 121 98 62 51 52 55 52 47 50 57 51 50 50 48 49 50 52 52 46 44 47 45 47 47 47 47 49 48 48 47 47 47 48 48 55 57 60 61 59 56 50 45 50 74 99 104 93 79 70 65 72 75 78 78 75 74 76 78 84 87 90 91 93 90 78 67 50 41 31 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 106 106 108 108 109 109 109 103 106 110 111 104 102 115 129 137 149 170 194 215 233 245 248 252 254 255 253 250 249 250 251 249 250 249 252 254 249 233 213 186 152 113 95 98 114 132 145 180 202 226 240 247 251 253 252 255 254 254 253 254 254 254 254 251 255 255 255 215 163 155 178 193 195 198 201 205 206 203 202 198 195 190 181 166 154 144 139 133 129 127 127 128 128 129 129 127 126 124 123 122 122 119 118 119 119 119 119 118 117 113 110 108 105 105 104 104 103 103 103 102 103 105 105 104 103 101 101 104 106 109 107 106 105 105 107 103 106 100 118 126 138 140 82 55 52 52 51 51 51 50 50 49 49 51 48 50 47 49 47 47 46 47 46 47 47 47 47 48 47 47 46 46 47 47 47 49 51 54 56 57 55 53 51 52 68 87 91 80 69 64 66 73 75 75 75 74 74 76 79 85 89 92 93 93 87 72 59 37 38 36 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 107 108 109 109 109 105 106 109 106 103 108 126 144 167 183 208 225 241 250 255 255 254 255 255 254 251 248 246 247 247 248 248 247 249 242 223 204 180 145 107 89 95 116 140 157 191 211 231 243 247 251 252 251 254 254 254 254 254 254 254 251 241 237 247 255 255 239 196 164 176 186 193 196 194 188 190 196 196 195 191 180 166 153 144 138 130 127 126 124 126 127 128 128 125 125 122 122 121 120 118 118 117 118 116 116 116 114 111 109 108 105 106 104 105 104 103 103 101 101 103 104 106 106 106 107 107 108 107 107 107 106 106 105 103 107 103 117 129 140 134 75 54 51 51 51 50 50 50 49 49 49 49 48 48 47 47 47 47 47 47 47 47 47 47 47 48 47 46 46 46 46 47 47 46 47 49 52 54 54 54 53 54 67 80 82 73 65 66 69 74 74 75 75 73 72 73 74 83 88 92 93 91 84 67 54 38 39 37 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 107 108 109 109 109 109 107 109 106 107 119 145 167 190 209 235 246 253 254 255 255 254 255 255 253 250 245 241 241 244 245 246 245 245 238 219 201 176 147 117 107 116 136 159 174 205 222 239 248 251 254 254 253 254 254 254 254 254 254 254 253 245 251 254 255 255 255 248 215 147 164 168 167 183 207 206 189 196 198 195 185 170 157 149 144 134 129 126 123 122 122 122 122 120 120 119 119 117 116 116 116 114 114 114 114 111 110 108 107 108 106 108 106 107 105 105 104 103 103 102 103 104 105 107 107 108 106 105 104 107 106 105 102 102 108 106 117 134 145 128 69 53 50 50 50 49 49 49 48 49 49 49 48 48 47 47 47 47 47 47 47 47 47 47 47 47 47 46 45 45 46 47 46 43 43 45 47 50 52 54 55 56 63 69 67 59 56 62 68 74 74 76 75 73 71 70 71 82 88 93 94 90 80 61 46 38 39 37 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 107 108 109 109 109 110 108 108 108 112 128 158 185 195 218 244 250 251 251 253 251 255 255 255 251 245 238 233 231 237 240 241 241 242 234 216 199 178 161 145 144 156 170 182 192 220 233 246 251 253 255 255 253 254 254 254 254 254 254 254 254 251 255 255 245 246 255 255 255 232 183 148 163 185 184 180 190 193 198 197 188 173 161 152 149 139 133 128 124 121 119 117 118 118 118 118 117 115 114 114 113 111 111 111 110 107 106 106 105 109 110 109 108 108 107 105 105 108 106 104 102 102 102 104 102 106 102 101 102 104 105 102 99 99 104 105 115 133 143 112 57 52 50 49 49 49 48 48 48 49 49 49 48 48 47 47 47 46 46 46 46 46 46 46 46 46 46 45 45 45 45 46 45 42 41 42 43 46 49 52 53 54 58 60 56 50 50 56 62 68 69 75 74 75 71 72 70 83 88 96 94 90 76 57 41 38 37 35 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 107 108 109 109 109 108 107 110 111 116 133 164 191 205 229 251 251 250 252 255 253 255 255 254 247 239 231 224 222 231 234 237 236 238 232 218 204 194 183 177 182 193 201 210 217 232 242 250 252 253 255 255 252 254 254 254 254 254 254 254 255 255 255 250 248 252 254 254 253 255 245 196 157 151 165 180 186 189 196 195 188 176 166 157 152 143 137 130 124 119 115 114 115 113 115 115 114 114 114 112 111 110 109 108 107 106 105 105 106 110 112 112 109 109 108 105 105 108 107 104 101 101 101 101 100 102 99 99 100 100 100 98 95 94 101 106 114 132 132 91 51 50 50 49 49 49 48 48 48 49 49 49 48 48 47 47 47 46 46 46 46 46 46 46 46 45 45 44 44 44 44 45 44 44 43 42 42 43 46 48 50 50 53 54 53 49 49 53 56 61 64 70 72 74 73 75 75 84 91 99 97 89 74 54 38 36 36 34 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 107 108 109 109 108 106 107 108 111 115 129 159 184 213 236 251 251 250 253 255 253 255 255 252 243 235 227 221 220 228 231 233 234 235 232 223 211 211 204 203 208 215 224 234 240 243 249 253 253 253 255 254 252 254 254 254 254 254 254 254 255 255 255 253 254 249 246 237 240 235 255 255 204 163 161 170 173 182 188 189 185 178 169 161 153 149 142 133 125 120 115 112 112 112 113 113 113 113 112 111 111 111 110 109 107 104 104 104 108 111 113 112 112 109 108 106 105 104 103 101 101 100 101 102 100 94 97 99 100 99 96 93 93 93 98 109 115 128 118 70 52 51 50 50 50 49 49 49 48 49 49 49 48 48 47 47 47 45 45 45 45 45 45 45 45 45 44 43 43 43 43 44 44 46 44 42 42 42 43 45 46 45 48 52 53 52 51 51 51 55 57 64 66 71 72 77 77 85 92 100 96 88 71 52 36 36 36 34 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 106 106 107 108 109 108 108 108 108 107 107 108 121 149 174 209 233 251 248 248 254 255 249 255 254 249 241 233 227 223 224 228 231 232 231 232 231 224 215 218 217 222 230 238 243 250 255 250 254 255 253 253 255 255 252 254 254 254 254 254 254 254 255 255 255 255 252 245 234 234 242 245 239 255 255 242 171 143 170 175 179 179 179 177 172 162 154 150 143 136 129 122 117 113 113 112 113 113 113 113 113 112 112 113 112 110 108 105 106 106 110 111 114 112 112 110 108 106 105 100 100 99 100 100 99 99 95 90 95 103 104 99 94 91 92 93 93 110 116 124 99 50 54 51 51 51 51 50 50 50 49 49 49 49 48 48 47 47 47 45 45 45 45 45 45 45 45 44 44 43 42 42 43 44 43 45 43 42 42 43 43 44 45 44 47 50 54 55 55 53 52 50 52 58 61 65 68 74 76 84 92 99 94 85 68 50 35 38 38 36 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 104 106 106 106 107 108 109 108 108 111 109 106 103 102 114 142 168 201 226 247 246 249 254 255 249 255 253 248 240 233 229 227 229 230 233 234 232 232 232 225 216 216 221 234 248 255 255 255 255 254 255 255 254 254 255 255 253 254 254 254 254 254 254 254 255 255 255 251 247 245 243 240 237 240 251 255 255 255 255 216 170 164 169 168 169 173 169 161 151 149 143 137 131 125 119 116 115 113 113 115 113 113 113 113 112 115 113 111 109 108 106 109 111 111 113 111 109 109 105 104 102 102 100 100 98 96 93 92 87 84 91 102 105 98 90 90 92 90 88 107 115 117 85 38 56 51 52 52 51 51 51 50 50 49 49 49 48 48 47 47 47 45 45 45 45 45 45 45 45 44 43 43 42 42 43 43 44 43 41 42 43 43 44 45 45 44 46 50 54 57 57 55 54 48 50 53 57 60 64 70 74 82 91 97 92 81 66 47 34 42 40 38 104 104 104 104 104 104 104 104 105 105 105 105 105 105 105 105 107 107 107 108 109 110 109 109 113 107 107 107 106 112 135 159 187 208 234 246 252 254 255 254 255 254 250 246 244 240 234 231 240 237 235 236 232 225 221 222 224 231 241 249 253 255 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 254 252 250 249 249 254 254 254 255 255 255 255 255 182 162 147 155 165 160 154 155 142 141 135 128 121 116 115 115 114 114 116 115 117 117 116 113 115 113 113 113 112 110 111 111 107 109 108 108 108 104 103 99 99 94 100 99 84 78 77 64 87 80 75 79 93 105 101 86 88 93 111 122 100 61 45 50 52 53 52 52 52 51 51 51 51 51 51 50 49 49 49 48 49 49 48 48 47 47 47 47 44 44 44 44 44 44 43 43 46 45 45 44 45 45 46 46 43 45 48 53 57 61 63 63 55 53 51 49 50 57 66 73 79 86 93 89 76 60 47 41 42 41 40 104 104 104 104 104 104 104 104 105 105 105 105 105 105 105 105 107 107 107 108 109 110 109 107 111 106 107 107 106 113 137 163 190 210 235 247 253 254 255 254 255 254 251 247 244 240 234 232 234 230 228 230 227 223 222 223 230 236 245 250 255 255 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 250 250 253 253 253 253 255 255 255 255 255 255 255 255 254 255 255 217 163 142 146 152 152 150 138 137 135 131 126 122 118 115 117 115 117 117 116 111 112 115 113 112 112 110 111 109 110 109 107 108 109 107 106 103 101 98 100 91 94 94 78 70 71 62 76 71 68 68 77 92 98 96 89 100 115 115 88 58 47 55 54 54 54 54 53 53 53 53 53 53 53 52 52 51 51 51 50 50 50 49 49 49 48 48 46 46 45 45 44 44 43 43 42 42 41 41 41 42 43 44 46 45 46 48 52 57 63 66 59 58 55 52 51 54 60 64 76 83 89 87 76 61 49 43 44 43 42 104 104 104 104 104 104 104 104 105 105 105 105 105 105 105 105 107 107 108 109 109 110 109 107 109 105 106 107 105 113 138 165 191 212 237 247 252 253 255 254 255 253 250 247 244 239 231 229 226 222 221 222 222 221 224 228 237 242 249 254 255 255 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 246 246 250 253 255 255 255 255 255 255 255 255 255 255 250 250 254 255 255 223 168 132 131 145 148 139 127 118 117 118 121 120 113 110 113 116 115 111 113 120 110 109 109 107 108 106 108 106 103 103 103 103 101 99 96 94 98 85 90 96 82 67 69 70 65 66 65 60 63 78 95 105 97 110 118 103 74 52 52 61 56 56 56 56 55 55 55 54 56 56 55 55 55 54 54 54 53 52 52 52 51 51 51 50 48 48 47 46 45 44 43 43 41 41 41 41 41 42 43 44 49 47 44 44 47 54 61 65 64 62 60 56 52 50 51 53 68 75 81 81 72 60 50 46 46 46 45 103 103 104 104 104 104 105 105 105 105 105 105 105 105 105 105 107 107 108 109 109 109 109 106 107 105 106 106 104 109 136 166 191 211 235 246 252 253 255 255 254 253 250 247 244 238 229 226 219 215 214 217 221 222 229 236 247 250 255 255 255 255 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 247 247 250 253 255 255 255 255 255 255 255 255 255 255 250 250 255 255 253 255 255 238 176 118 117 117 119 123 125 120 107 98 123 115 113 115 111 103 100 103 105 105 105 103 102 102 102 101 98 98 96 95 95 91 90 87 88 79 92 111 99 77 73 73 62 63 64 60 60 70 88 100 109 120 116 91 64 54 56 60 57 57 57 56 56 55 55 55 57 56 56 56 56 56 56 56 55 55 55 54 54 54 53 53 51 51 49 48 47 45 44 44 43 43 42 42 43 44 45 45 48 46 43 43 45 50 56 59 64 64 64 61 56 51 49 48 60 66 72 73 68 59 50 46 45 47 46 103 103 103 104 104 105 105 105 105 105 105 105 105 105 105 105 107 108 108 109 109 109 109 106 107 105 105 103 100 106 133 163 189 210 234 244 251 253 255 255 255 255 254 251 247 240 230 226 217 213 210 212 218 224 234 244 253 255 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 250 250 252 255 255 255 255 255 255 255 255 255 255 255 253 252 244 255 255 255 255 255 246 228 208 183 146 118 104 104 109 112 108 105 103 106 110 110 111 111 101 99 99 99 99 99 98 96 93 92 92 90 90 87 84 82 80 78 102 126 114 86 74 71 60 60 63 65 65 68 77 84 120 123 110 85 67 63 62 58 59 57 57 56 56 55 55 55 56 56 56 56 56 56 56 56 57 57 57 56 56 56 55 55 54 53 52 51 50 48 47 47 45 45 44 43 43 44 45 45 44 44 44 44 46 48 51 52 59 61 64 64 60 55 52 50 54 58 64 66 63 56 49 45 45 46 45 102 102 103 104 104 105 106 106 105 105 105 105 105 105 105 105 108 108 108 109 109 109 109 106 107 105 105 103 98 103 130 163 192 212 235 245 251 253 255 255 255 255 255 255 250 242 231 226 215 209 205 206 214 222 236 247 255 255 255 255 255 253 253 253 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 254 254 254 254 254 253 253 251 252 254 255 255 254 254 254 251 255 254 249 253 255 255 255 255 252 242 226 205 179 155 140 122 125 116 97 87 89 91 88 96 96 96 95 96 96 96 93 92 92 92 89 88 85 82 81 78 81 105 124 109 83 70 62 60 60 63 68 69 68 72 76 121 116 102 84 76 75 70 60 60 57 57 57 56 56 56 56 55 55 56 56 56 56 57 57 58 58 58 58 57 57 57 56 56 56 55 54 53 52 51 51 47 46 45 44 43 43 43 43 43 44 45 46 47 47 47 45 51 55 61 64 63 60 57 56 53 56 60 62 60 55 49 45 44 46 45 102 102 103 104 104 105 106 106 105 105 105 105 105 105 105 105 108 108 108 109 109 109 109 106 106 104 104 102 99 104 133 165 199 218 240 248 252 253 255 255 255 255 255 252 248 239 226 221 213 206 201 202 208 218 233 246 255 255 255 255 254 252 251 252 253 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 254 253 250 247 246 245 243 245 250 253 255 255 255 255 252 254 255 255 255 252 248 245 255 255 255 255 255 255 251 248 249 255 227 165 116 101 98 92 94 92 92 93 93 94 94 92 89 87 87 86 85 83 80 78 77 80 96 102 85 69 65 60 63 63 67 72 72 70 79 89 113 106 97 91 89 84 77 66 61 59 59 59 58 58 58 57 56 56 56 57 57 58 58 58 59 59 59 58 58 57 57 57 58 58 57 57 56 56 55 55 52 50 49 47 45 44 43 43 44 44 45 46 46 46 45 43 43 47 54 59 61 60 58 58 53 55 58 60 58 54 48 45 45 46 45 99 99 100 101 101 104 105 105 104 105 105 105 105 105 105 107 107 107 108 108 109 109 107 106 105 104 104 103 100 106 137 170 205 223 242 250 251 253 254 254 250 250 250 248 244 234 223 217 211 204 197 198 204 214 230 244 253 254 255 254 253 252 251 252 253 254 254 254 254 254 254 254 254 254 254 254 255 255 255 255 255 255 254 252 249 246 244 243 242 245 250 254 255 255 255 255 255 255 255 255 253 251 250 252 244 244 247 247 248 251 255 255 253 255 236 158 96 82 88 88 91 91 90 90 91 91 92 91 85 84 84 81 80 78 75 73 74 76 83 80 64 59 65 63 67 68 72 76 73 74 89 107 102 98 94 95 96 90 83 76 65 64 64 62 62 62 61 61 57 57 57 58 58 58 58 58 59 59 59 58 58 57 57 57 59 59 59 59 58 58 58 58 56 55 52 51 49 47 46 46 46 46 44 44 43 43 44 41 36 41 50 56 59 59 59 59 56 57 59 60 60 55 49 46 46 47 46 92 93 95 96 98 101 103 104 102 104 104 104 106 107 107 108 107 106 109 108 109 106 104 102 102 103 102 98 99 114 150 185 209 224 240 247 247 250 252 252 248 250 249 243 239 236 224 214 216 203 188 188 195 205 219 233 250 253 254 255 254 252 251 252 254 254 254 254 254 254 255 255 255 255 255 255 255 255 255 255 255 255 253 253 254 254 251 249 253 251 253 255 255 255 255 255 255 255 254 254 254 251 251 250 252 252 255 255 255 255 255 255 251 255 233 145 86 88 85 83 87 87 85 85 84 84 84 83 81 82 80 80 77 75 72 71 74 70 65 61 62 68 70 68 77 75 70 67 79 94 96 90 89 91 95 95 95 92 88 85 75 71 68 65 64 62 63 63 60 58 58 57 57 55 55 55 58 57 57 56 56 57 57 58 58 58 57 58 59 60 61 62 56 55 55 55 53 51 50 49 46 47 45 45 46 48 54 55 59 59 60 59 59 60 61 61 58 63 68 68 67 64 55 46 45 44 41 89 90 92 93 97 98 103 103 103 103 105 105 107 108 109 109 108 106 107 108 107 106 104 101 104 103 103 102 106 121 156 186 208 224 240 246 249 249 251 249 249 248 246 238 235 230 221 210 203 193 184 187 194 205 219 228 251 253 254 255 254 252 252 252 254 254 254 254 254 254 255 255 255 255 255 255 255 255 255 255 255 255 253 253 255 255 254 253 255 255 255 254 245 238 244 250 255 254 253 254 252 251 251 250 252 252 255 254 255 255 255 255 248 254 229 141 83 84 82 81 85 85 84 84 83 83 81 81 81 79 80 78 77 74 72 69 71 69 65 63 66 70 74 74 75 75 82 89 93 87 83 83 85 86 90 91 92 92 90 89 82 80 75 72 67 65 66 63 61 58 58 57 55 55 54 54 58 57 57 56 56 57 57 58 58 58 58 58 59 60 61 60 61 60 60 60 60 58 57 56 55 52 51 48 51 57 66 71 79 76 76 70 66 60 59 58 61 68 74 76 75 72 60 51 43 43 40 89 90 92 94 97 99 103 104 105 105 107 107 108 109 110 110 108 107 107 107 107 106 104 101 104 101 100 103 111 127 157 182 204 221 239 246 249 248 248 245 244 241 236 226 222 216 208 199 192 188 187 194 204 215 227 234 251 253 254 254 253 252 252 253 254 254 254 254 254 254 255 255 255 255 255 255 255 255 255 255 255 254 252 253 254 255 254 253 255 255 255 249 232 223 234 246 255 254 253 254 252 251 251 250 252 252 255 254 255 255 255 255 249 254 228 138 80 82 82 82 84 85 84 85 84 83 81 80 81 79 80 77 77 74 73 70 72 69 67 66 70 73 79 81 80 85 103 119 112 88 76 78 80 81 84 85 87 88 91 92 89 86 81 77 71 68 67 63 61 58 58 57 55 55 54 54 58 58 57 57 57 57 58 58 58 58 58 58 59 60 62 60 64 63 64 64 65 63 63 62 62 57 54 52 57 66 80 88 94 91 87 77 67 57 54 52 60 69 77 82 82 78 65 56 47 47 44 89 90 92 94 98 100 104 105 107 107 109 108 110 110 111 111 109 107 107 107 106 106 104 102 102 97 95 100 112 127 151 171 199 217 237 245 248 245 243 238 234 228 221 212 208 202 195 189 196 198 203 213 224 234 244 248 252 253 254 254 253 251 252 253 254 254 254 254 254 254 255 255 255 255 255 255 255 255 255 255 255 253 251 252 254 255 254 253 254 255 255 250 234 227 239 251 255 254 253 254 252 251 251 250 252 252 255 254 255 255 255 255 252 255 228 137 80 82 84 84 84 85 85 85 84 83 80 79 81 79 79 76 76 74 74 71 74 71 70 72 76 78 85 91 103 115 135 144 133 110 90 82 79 78 80 79 82 85 89 91 90 88 84 80 74 71 69 65 61 58 58 57 55 55 54 54 59 58 57 57 57 57 58 59 59 58 58 59 59 61 62 61 61 60 62 62 64 63 63 63 61 57 54 52 57 68 82 91 89 87 84 73 62 51 48 46 54 64 75 82 83 79 65 54 49 48 45 89 90 92 94 98 100 105 106 109 108 110 109 110 110 112 111 109 107 106 106 105 105 104 102 103 97 94 100 112 125 145 161 194 214 234 243 245 242 239 233 227 218 211 204 201 195 190 187 202 209 218 229 238 248 255 255 252 253 253 253 252 251 252 254 254 254 254 254 254 254 255 255 255 255 255 255 255 255 255 255 255 252 251 252 254 255 254 253 254 254 255 254 245 239 247 254 255 254 253 254 252 251 251 250 251 251 254 254 255 255 255 255 254 255 229 138 81 84 86 87 84 85 86 86 85 83 79 78 81 79 79 76 76 74 74 73 76 73 74 78 81 82 91 99 129 146 161 157 148 138 115 90 80 78 78 76 78 81 86 88 88 86 83 80 76 73 71 67 61 58 58 57 55 55 54 54 59 59 58 57 57 58 59 59 59 59 59 59 60 61 62 61 59 58 60 60 62 61 62 61 58 55 53 52 57 66 78 85 83 81 79 69 57 46 44 44 49 60 73 80 82 78 63 52 43 43 40 47 47 48 49 49 49 50 50 51 51 51 51 51 51 51 51 50 49 49 48 48 49 49 50 48 48 48 48 48 48 48 48 46 46 46 45 45 44 44 44 44 44 44 44 44 44 44 45 42 44 44 45 46 47 48 48 51 51 52 53 53 54 55 55 58 60 62 64 65 66 67 67 68 68 67 66 67 67 68 69 63 63 64 66 69 72 71 70 71 71 69 71 71 71 72 69 70 67 68 69 67 66 62 61 59 58 58 60 63 64 63 65 61 64 64 63 63 64 63 64 64 65 65 66 64 65 64 65 62 63 63 62 62 61 60 60 63 63 61 61 61 62 63 64 63 62 61 63 66 68 68 68 63 65 70 72 72 65 56 51 53 53 53 51 49 48 48 48 50 50 50 49 49 48 48 49 47 48 47 47 47 47 46 46 44 43 42 41 40 46 54 58 66 73 77 79 87 100 111 116 123 127 134 136 121 97 75 68 74 71 72 81 100 125 145 158 169 168 160 146 124 103 87 78 82 81 81 47 47 48 48 48 49 50 50 51 51 51 51 51 51 51 51 49 49 48 48 48 48 49 49 48 48 48 48 48 48 48 48 46 46 45 45 45 44 44 44 45 45 45 45 45 45 45 46 43 45 45 46 47 48 49 49 51 51 52 52 53 54 55 55 57 59 61 63 64 65 66 66 67 67 65 65 65 66 67 68 62 63 65 67 68 69 69 67 67 65 65 66 68 69 70 67 69 66 67 68 68 66 64 63 59 58 58 60 63 65 64 64 62 64 63 63 63 63 63 64 64 64 65 65 64 65 64 65 62 63 62 62 62 61 60 60 63 62 61 61 61 62 63 64 64 62 62 62 65 68 67 68 65 67 70 73 71 64 57 52 54 54 53 52 50 49 49 49 50 50 50 49 49 48 48 49 47 48 47 47 47 47 46 46 45 44 42 41 41 45 52 56 62 69 74 78 84 97 108 114 123 128 133 132 117 91 72 67 70 71 72 78 89 111 135 153 158 160 157 145 127 107 91 83 83 82 81 46 46 47 48 48 48 49 49 50 50 50 50 50 50 50 50 49 48 47 47 47 47 48 49 48 48 48 48 48 48 48 48 46 45 45 45 44 44 44 44 45 45 45 45 45 45 45 46 45 46 47 48 48 49 49 50 51 51 51 52 53 54 54 55 56 58 60 62 63 64 64 64 64 64 63 63 63 64 65 66 65 65 66 67 67 67 66 65 60 58 59 61 64 68 70 68 67 64 66 66 68 67 65 63 59 58 59 61 64 65 64 64 61 64 64 63 63 63 62 64 63 64 64 65 65 63 64 64 62 62 62 62 61 61 61 61 62 62 60 60 61 61 63 63 65 63 62 62 65 67 68 67 68 70 73 74 71 64 58 53 55 55 54 52 52 51 50 50 50 50 50 49 50 49 49 49 48 49 48 48 47 47 47 46 47 46 44 42 42 45 50 53 57 63 69 73 79 91 102 109 119 125 130 126 109 86 69 65 65 70 72 72 75 91 116 137 140 143 144 138 122 105 91 83 85 84 83 45 46 46 47 47 48 48 48 49 49 49 49 49 49 49 49 47 47 46 46 46 46 47 47 48 48 48 48 48 48 48 48 45 45 45 44 44 44 43 43 46 46 46 46 46 46 46 47 48 48 48 49 49 50 50 50 50 50 51 52 53 53 54 54 55 57 58 60 61 61 62 62 61 62 60 61 61 62 64 65 68 69 68 68 68 66 65 63 57 57 57 60 64 69 72 70 68 65 66 68 67 66 64 63 59 58 59 62 65 66 64 64 61 64 64 64 62 63 63 63 64 63 64 64 64 64 64 63 62 62 62 61 61 61 60 60 61 61 60 60 60 62 62 63 65 63 62 64 66 67 67 66 70 74 76 75 70 64 58 55 56 57 55 55 53 52 51 51 50 50 50 50 50 49 49 50 50 50 49 49 48 48 48 48 49 48 47 44 43 44 48 50 55 59 65 69 72 82 95 105 115 121 125 119 102 82 69 64 64 69 70 67 66 76 94 110 121 125 128 122 111 98 89 84 87 86 86 45 45 45 46 47 48 47 48 47 47 47 47 47 47 47 47 47 47 46 46 46 46 47 47 48 48 48 48 48 48 48 48 46 46 45 45 45 44 44 44 47 47 47 47 47 47 47 47 49 49 49 49 49 50 50 50 50 50 51 51 52 53 54 54 53 54 56 57 58 59 59 59 58 58 58 59 60 61 62 64 71 72 71 70 69 68 66 62 59 58 58 61 66 70 74 73 71 68 68 69 66 65 61 60 58 58 60 63 66 67 65 63 63 63 63 63 62 62 62 63 62 63 63 63 63 63 62 62 62 63 62 62 62 61 61 61 61 61 61 61 60 62 62 63 66 65 64 64 65 67 66 65 67 72 76 74 69 62 57 53 57 56 55 54 53 52 52 51 50 51 51 51 50 50 50 50 50 50 50 50 49 49 48 48 50 49 49 46 44 43 46 47 53 57 61 64 66 75 90 103 112 120 123 115 100 84 71 66 65 66 65 65 66 70 75 80 99 102 105 102 96 91 88 88 89 87 87 44 44 45 45 46 47 47 47 46 46 46 46 46 46 46 45 46 46 45 44 44 45 46 46 46 46 46 46 46 46 46 46 45 45 45 45 44 44 44 43 46 46 46 46 46 46 46 46 49 49 49 49 49 49 49 49 49 50 50 51 52 53 53 53 52 53 54 55 55 57 57 57 57 57 57 58 59 60 62 65 71 72 71 70 69 67 64 62 60 59 59 61 64 70 74 74 72 69 70 69 67 64 62 58 59 58 60 64 67 67 64 62 63 64 63 63 63 62 62 63 62 63 63 62 63 62 62 63 62 62 62 62 61 61 61 60 61 60 60 60 60 61 62 63 66 65 64 66 67 67 66 65 65 73 78 78 71 63 59 54 57 55 55 54 52 52 51 52 51 51 52 51 51 50 50 51 51 51 51 51 50 50 49 49 49 50 50 48 46 45 46 46 52 52 56 60 63 71 89 107 117 124 124 117 104 91 77 66 65 64 61 62 66 67 66 64 71 77 81 81 81 81 85 87 89 89 88 43 43 44 45 46 46 47 47 45 45 45 45 45 45 45 45 45 44 43 43 43 43 44 44 43 43 43 43 43 43 43 43 44 44 44 43 43 43 42 42 45 45 45 45 45 45 45 46 49 49 49 48 48 48 48 48 49 49 50 51 52 52 53 53 51 52 53 54 54 54 54 55 56 56 56 57 59 60 62 64 69 70 69 68 67 66 63 61 61 58 57 59 61 66 70 70 70 70 70 69 68 67 64 62 58 59 60 65 67 68 64 61 63 64 64 63 62 62 61 62 61 63 63 63 63 62 63 62 62 62 62 61 61 61 60 60 60 61 59 60 60 62 61 63 67 66 65 66 67 67 67 67 70 81 88 88 82 73 67 63 57 55 55 54 53 52 51 51 51 51 52 51 51 51 51 51 51 51 51 51 51 51 50 50 48 49 50 49 47 46 46 47 48 48 51 56 60 70 93 115 128 132 131 122 112 101 83 67 63 60 59 62 66 66 65 63 66 72 77 81 81 82 86 88 90 89 88 43 43 44 44 44 46 47 47 45 45 45 45 45 45 45 45 44 43 43 42 42 43 43 44 42 42 42 42 42 42 42 42 44 44 44 43 43 42 42 42 44 44 44 44 44 44 44 44 47 48 48 48 48 48 48 48 49 49 50 51 51 52 53 53 50 51 52 53 53 53 53 53 56 56 56 56 58 61 62 63 67 67 66 65 65 64 62 60 60 57 56 56 58 61 66 66 70 69 70 71 71 70 67 66 59 59 62 66 68 68 64 62 65 65 64 64 64 63 63 62 62 64 63 63 62 63 62 62 62 62 62 61 61 60 60 61 61 60 60 60 60 62 62 63 68 67 66 67 67 68 68 69 80 91 101 102 95 85 77 73 57 56 55 54 52 52 51 51 51 52 52 51 52 51 51 51 51 51 51 51 51 51 50 50 47 48 50 50 48 47 47 47 44 44 48 55 60 73 98 122 138 141 136 128 120 107 87 68 61 60 60 62 65 67 68 69 81 87 94 96 95 94 94 95 91 90 90 45 45 45 46 45 45 45 45 46 46 45 44 44 44 43 43 43 43 43 43 43 43 43 44 43 43 43 43 43 43 43 43 43 43 43 44 44 45 45 46 45 45 45 45 45 45 45 45 44 45 46 47 47 47 47 47 47 47 47 47 48 49 50 52 48 50 51 52 52 53 53 53 52 53 53 54 55 57 58 60 63 64 64 63 62 60 57 54 57 56 56 57 59 61 63 62 65 65 67 69 71 71 69 67 64 66 68 69 68 66 65 66 65 64 63 62 61 61 62 63 60 61 60 62 61 61 61 62 60 60 61 60 60 60 58 59 61 60 60 61 62 64 65 65 69 68 69 73 71 68 69 77 90 102 113 115 114 106 94 81 76 70 62 56 53 52 51 51 51 52 52 52 50 49 49 49 50 50 50 50 49 49 49 49 50 50 49 49 49 49 49 48 43 47 51 52 59 79 109 133 144 150 149 137 122 110 98 91 73 66 62 62 66 73 85 96 113 125 134 127 121 117 107 95 90 90 93 45 45 45 45 45 45 44 45 46 45 44 44 43 43 43 43 42 42 42 42 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 44 44 44 45 45 45 45 45 45 45 45 45 45 44 44 45 46 47 47 46 46 46 46 46 46 47 48 49 50 48 49 50 52 52 53 53 52 52 52 52 53 54 56 58 59 62 62 61 62 61 59 57 55 55 55 55 57 57 60 60 61 64 65 66 68 69 70 69 68 68 69 70 71 70 67 66 66 67 66 64 63 63 63 62 62 61 62 61 61 61 62 62 61 60 61 60 60 60 59 59 60 60 61 61 61 62 64 65 66 71 69 71 74 73 71 76 84 100 113 126 127 124 115 102 88 78 73 67 61 58 56 52 49 51 51 51 50 49 48 48 48 49 50 49 49 49 49 49 49 50 50 49 49 49 49 49 48 43 45 50 53 63 86 114 136 147 151 150 139 129 121 116 110 95 90 85 87 94 103 118 130 136 146 149 142 134 128 116 101 88 88 91 45 45 45 45 45 46 45 45 45 45 45 44 43 42 42 42 43 42 42 42 41 41 41 41 43 43 43 43 43 43 43 43 42 42 43 43 43 44 44 44 44 44 44 45 45 45 45 46 44 44 45 46 46 46 46 45 45 45 45 45 46 47 48 49 48 49 50 51 51 52 52 52 52 52 52 52 54 55 57 58 59 59 60 61 59 58 55 54 54 54 53 55 57 59 60 60 63 64 64 64 67 68 69 68 70 72 73 73 69 67 66 65 66 65 63 62 62 62 62 63 60 61 60 61 62 61 60 61 60 60 60 59 59 60 58 59 60 60 60 62 63 65 67 68 74 72 72 75 75 76 83 96 115 129 140 142 137 128 113 99 82 78 73 68 64 59 54 49 49 49 48 48 47 47 47 47 47 48 47 47 47 47 47 47 48 48 48 48 48 48 48 47 43 43 47 54 69 94 122 141 148 151 149 142 137 137 139 140 136 131 126 125 126 130 142 153 161 168 165 157 150 141 123 104 86 87 89 46 46 46 46 46 46 46 46 45 45 44 44 42 42 42 42 42 41 41 41 41 40 40 40 42 42 42 42 42 42 42 42 42 42 42 42 42 43 43 43 43 44 44 44 44 45 45 45 43 44 45 45 45 45 44 44 44 44 44 44 45 46 47 48 49 50 51 52 51 51 51 52 51 51 50 51 52 54 55 56 57 57 58 59 58 57 56 53 55 54 54 56 57 58 60 62 63 63 63 63 65 66 68 69 71 72 74 73 70 66 65 64 65 65 63 62 62 62 61 62 60 61 61 61 61 61 61 60 59 59 59 59 59 59 59 59 59 60 60 62 64 67 68 69 76 72 71 74 76 81 93 106 128 143 154 155 149 139 123 109 90 85 79 73 68 61 55 51 49 48 47 45 45 45 46 47 46 46 46 46 46 46 46 46 47 47 47 47 47 47 47 45 44 42 45 54 74 102 128 144 147 150 149 144 144 153 164 168 168 164 160 158 153 152 156 163 176 177 173 163 155 146 124 102 86 85 86 47 47 47 47 46 46 46 46 45 45 45 44 44 43 43 43 42 42 42 41 41 40 40 40 42 42 42 42 42 42 42 42 42 42 42 42 42 41 41 41 42 43 43 44 44 45 45 45 43 44 44 44 44 44 43 42 43 43 43 43 44 45 47 48 48 50 51 52 51 51 50 50 50 50 49 49 50 51 53 54 54 56 57 58 57 57 56 53 55 54 55 55 58 60 62 62 64 63 63 63 64 67 67 69 69 71 72 71 68 65 63 64 64 64 63 62 61 60 61 61 60 59 60 60 60 60 60 60 59 58 58 58 58 58 58 58 58 60 61 63 66 68 70 72 75 72 71 76 80 88 102 118 140 153 164 163 157 145 130 117 101 95 85 76 70 64 58 56 49 48 45 44 43 43 45 46 45 45 45 45 45 46 45 46 46 47 46 47 47 47 47 45 44 41 43 54 76 104 131 146 151 154 153 150 155 170 185 192 183 182 183 183 177 171 171 177 179 180 173 162 155 146 122 98 84 84 85 48 48 48 48 47 47 47 47 46 46 46 45 45 45 44 44 43 43 43 42 41 40 40 40 41 41 41 41 41 41 41 41 42 42 41 41 41 40 40 40 42 42 42 43 44 44 45 45 43 43 44 44 43 43 42 41 44 44 43 44 45 46 47 48 49 49 51 52 51 50 50 49 50 49 48 48 49 50 52 52 53 55 57 58 57 56 55 53 53 53 54 56 57 60 62 61 63 62 63 63 66 66 67 68 66 68 69 69 66 63 62 62 63 63 61 61 60 60 60 60 59 60 60 59 59 60 59 59 58 58 57 58 58 57 57 57 60 60 63 65 67 70 73 73 74 71 72 78 86 96 112 131 148 161 168 167 160 150 136 123 112 105 94 83 75 69 64 60 52 50 46 44 41 42 43 44 43 43 43 43 43 44 44 44 45 45 45 45 46 46 46 44 42 40 43 54 75 103 130 147 155 158 159 158 165 180 197 206 201 202 203 200 190 179 176 178 178 178 172 161 153 142 120 95 81 81 81 48 48 48 48 47 47 47 47 47 47 47 47 46 46 45 45 45 44 44 43 42 41 41 40 41 41 41 41 41 41 41 41 41 41 41 40 40 40 39 39 41 41 42 43 44 44 45 45 43 43 43 43 43 42 41 40 44 44 44 44 45 46 48 48 49 50 50 51 51 50 50 49 49 49 48 47 48 48 49 51 54 54 56 57 58 57 55 54 52 52 52 53 56 58 59 59 60 60 62 64 65 66 65 64 62 64 66 66 64 62 61 63 63 63 62 61 59 59 60 60 59 59 59 59 59 58 58 59 57 57 58 57 57 57 56 56 60 61 64 66 69 73 75 77 73 72 74 83 93 104 123 142 156 167 172 170 161 153 139 129 120 114 104 93 84 76 68 63 55 52 48 43 40 40 41 43 41 41 41 41 41 42 42 42 43 43 44 44 44 44 44 43 41 41 45 54 72 99 128 146 156 160 162 161 168 184 200 208 211 210 209 203 189 175 172 176 174 177 171 159 148 136 115 93 79 77 76 47 48 47 47 48 48 48 47 48 48 48 47 47 47 46 45 46 45 45 44 43 42 41 41 41 41 41 41 41 41 41 41 41 41 40 40 40 39 39 38 40 41 42 43 43 45 46 46 44 44 43 43 42 41 40 40 45 45 45 45 46 47 48 49 51 51 52 52 51 50 49 49 49 49 47 47 47 48 49 50 51 54 55 57 58 58 56 54 50 49 50 51 54 57 60 59 61 61 63 64 64 64 63 61 60 62 66 67 66 63 62 62 62 61 61 61 61 61 61 62 60 60 60 59 58 59 59 59 58 59 58 59 59 58 58 58 62 62 64 67 70 74 77 79 73 73 80 92 104 117 135 153 162 170 172 169 162 155 144 136 126 121 112 103 93 82 73 65 56 53 48 43 40 40 41 42 41 42 42 41 41 41 41 41 42 42 43 43 44 44 44 43 41 42 45 54 70 96 124 144 153 158 161 161 167 182 196 203 201 199 198 193 183 173 174 181 171 174 169 156 143 131 110 90 76 74 72 48 48 48 49 49 49 50 49 50 51 51 50 49 49 47 47 48 48 47 46 44 45 44 44 44 44 45 45 44 43 41 41 41 41 40 41 41 41 42 42 43 43 44 45 45 46 47 47 45 45 44 45 46 47 46 46 45 44 45 46 47 49 49 50 52 52 53 53 53 52 51 50 50 49 49 48 47 48 48 49 47 49 51 54 56 55 54 50 45 41 39 41 46 53 60 63 65 64 65 66 64 61 59 56 59 61 65 66 67 65 62 59 59 58 59 61 63 63 63 63 64 63 62 61 60 59 58 59 57 64 60 56 62 62 59 63 59 63 68 72 76 77 79 78 76 84 99 113 125 138 151 159 166 167 168 168 165 161 155 151 142 133 122 116 110 101 88 75 63 57 48 43 39 39 39 38 41 41 40 39 38 38 38 38 39 39 40 40 41 42 42 42 41 43 45 47 63 92 122 139 156 157 161 166 168 170 180 191 193 190 186 179 174 171 170 170 168 166 158 148 137 124 107 90 82 73 65 48 49 49 49 50 50 49 50 51 51 52 52 51 50 48 48 47 47 46 46 46 45 44 44 44 45 45 45 44 42 42 40 41 40 40 40 41 41 42 42 43 43 45 45 47 47 47 47 46 46 46 46 46 46 45 46 45 46 46 47 47 48 50 51 53 53 53 53 53 52 51 51 50 49 48 48 47 47 48 49 47 47 50 51 52 51 50 48 44 42 41 42 45 51 57 61 65 65 65 64 63 61 58 59 57 60 62 64 65 65 65 63 59 59 60 61 62 64 63 64 64 62 61 60 59 59 58 60 57 61 59 57 63 63 57 58 61 64 68 72 74 77 79 77 74 84 102 119 135 147 159 166 167 168 167 167 165 160 156 153 147 139 130 123 119 111 97 86 73 65 56 48 42 41 40 40 40 39 39 39 38 38 39 39 39 40 40 41 42 42 43 43 45 46 44 45 58 88 120 139 150 153 158 163 164 165 173 182 185 182 179 174 171 168 168 168 166 164 157 146 136 123 106 90 77 68 62 50 50 50 50 51 51 51 51 52 52 53 53 53 52 50 49 48 48 47 46 47 46 44 45 45 45 46 45 45 44 42 41 40 39 41 41 41 41 42 42 44 44 46 46 46 47 47 47 47 47 46 46 47 46 45 45 46 48 48 49 49 51 52 53 54 54 55 55 54 53 52 52 50 49 48 48 48 48 49 49 49 47 46 44 43 42 42 42 44 46 45 45 46 48 50 52 58 59 59 61 60 60 58 58 60 61 62 63 65 65 66 67 63 61 62 62 62 62 61 61 59 60 58 58 59 60 61 61 62 60 59 60 65 65 61 59 63 65 70 72 74 74 78 77 73 83 101 117 132 144 156 164 168 169 169 168 164 158 153 151 149 146 139 134 130 124 114 104 89 80 68 58 51 47 45 42 38 36 36 36 37 38 40 42 42 42 43 44 45 45 46 45 47 47 42 42 55 85 118 138 144 147 153 159 160 160 165 172 175 173 170 169 167 167 166 166 164 162 155 145 135 124 107 90 73 64 58 51 51 52 52 52 53 52 52 53 54 54 55 55 54 52 52 50 49 49 48 48 47 46 46 47 47 47 47 46 46 45 43 41 41 42 42 42 42 43 43 45 45 47 47 48 48 48 48 49 49 47 48 48 46 46 46 50 50 50 51 52 54 54 55 56 56 57 56 56 55 53 53 50 50 49 48 48 49 50 49 51 49 45 41 38 37 38 40 47 49 50 50 47 47 45 46 57 59 60 60 59 59 59 58 62 64 66 66 67 66 65 65 64 64 63 63 62 60 59 58 56 56 57 57 59 60 61 62 64 55 56 60 59 62 65 64 66 68 71 73 73 75 78 80 81 90 101 114 125 136 147 156 165 167 168 168 163 158 152 150 148 146 142 140 139 134 125 118 103 93 80 68 58 52 47 42 37 35 35 36 37 39 41 44 42 43 43 44 44 44 45 44 42 43 43 43 56 85 113 132 140 143 150 156 159 158 160 165 167 165 163 163 165 165 165 164 161 159 153 144 135 124 107 91 71 61 55 53 53 53 54 54 54 54 54 55 55 56 57 57 57 55 55 52 52 51 51 51 50 49 49 49 50 50 49 48 47 46 45 44 43 43 43 44 44 44 44 47 47 47 47 49 49 50 50 50 50 50 50 49 49 49 49 52 53 52 54 55 56 56 57 58 58 59 58 57 56 53 53 51 51 50 50 50 50 51 51 52 50 48 44 40 39 40 44 50 53 55 54 51 49 47 47 58 59 60 61 60 60 59 58 59 62 65 66 67 67 64 64 66 67 64 62 60 59 57 56 54 55 56 58 60 61 62 62 57 48 56 63 53 53 66 67 69 71 73 74 74 76 79 85 94 102 109 114 121 131 144 154 159 163 167 168 166 162 156 151 144 142 140 139 139 136 131 126 113 104 90 75 64 54 47 42 39 37 38 38 39 40 43 44 43 43 43 43 42 42 41 41 35 42 48 54 67 90 112 125 136 138 144 152 155 153 154 159 162 160 159 160 163 165 165 163 158 156 150 142 134 123 107 92 69 58 52 54 54 55 55 56 56 55 55 56 57 58 59 59 59 57 57 55 55 54 53 54 53 52 52 52 52 53 52 51 51 49 48 45 45 45 45 46 46 46 47 48 48 48 49 50 50 51 51 51 51 52 52 52 53 52 53 54 55 55 56 57 58 58 59 60 60 60 60 59 57 55 54 53 53 52 51 51 52 53 53 54 53 50 49 46 45 47 49 53 56 57 57 55 54 50 50 50 51 53 54 55 56 55 54 55 58 60 62 63 64 63 65 65 65 65 63 60 58 57 56 55 56 57 59 60 61 62 60 53 51 77 89 65 57 70 75 71 74 76 77 77 80 85 92 105 112 114 117 117 124 135 145 147 153 160 165 165 161 156 150 143 141 140 142 142 141 138 134 125 116 104 90 77 64 54 47 43 42 42 42 42 44 45 45 45 45 44 43 41 40 39 40 40 51 62 71 82 98 113 121 130 132 137 145 149 149 151 154 159 156 155 158 162 164 162 159 154 153 148 141 133 124 108 92 68 57 51 55 56 56 56 57 57 56 57 57 58 59 60 60 60 59 59 58 58 57 56 56 56 55 55 55 55 55 55 54 53 51 51 47 47 47 48 48 48 49 49 49 49 50 50 51 51 52 52 52 52 52 53 54 57 56 57 55 56 57 58 58 60 61 61 61 61 61 60 60 58 56 55 56 55 55 54 54 55 55 56 54 55 56 56 57 56 56 57 56 56 57 56 57 57 57 54 47 47 51 54 57 59 59 61 65 64 61 60 58 60 61 64 63 64 62 62 60 59 58 59 58 59 60 61 61 60 59 57 49 61 108 127 91 68 76 78 73 77 80 81 83 85 90 100 113 120 118 115 109 107 111 116 128 137 148 156 159 159 154 151 143 142 144 146 147 147 146 144 137 130 119 107 93 79 67 58 50 49 48 47 47 47 47 47 47 46 44 42 40 38 36 38 53 67 81 89 98 109 119 123 130 130 134 142 148 148 150 154 157 155 153 156 160 162 158 155 151 151 146 139 132 123 109 93 73 60 54 56 56 57 57 57 58 57 57 58 59 60 61 61 61 60 60 59 59 59 58 58 57 57 56 57 57 57 57 56 55 53 51 48 48 49 49 49 49 49 50 49 49 51 51 51 52 52 52 52 53 53 56 57 58 59 59 56 58 57 59 60 61 62 62 62 62 61 61 60 59 57 56 57 57 56 55 55 56 57 57 56 57 59 60 60 60 60 59 54 54 54 54 55 56 57 54 53 54 59 64 68 72 74 76 81 76 68 59 55 55 57 60 60 61 60 59 59 59 60 61 62 62 62 61 59 57 54 51 41 63 125 150 104 72 75 72 76 81 83 86 86 90 95 102 113 118 115 107 95 84 81 82 111 121 133 142 147 148 145 142 137 137 140 142 144 144 143 144 137 133 121 110 97 82 68 59 52 49 48 47 47 46 46 47 48 47 46 44 41 40 39 41 66 81 94 101 108 117 123 126 132 132 135 143 149 150 153 157 155 153 150 153 157 159 154 150 148 148 144 138 132 124 109 93 79 67 60 58 58 58 58 58 59 60 60 60 60 61 61 62 63 63 63 64 64 64 63 63 62 62 61 59 59 59 59 58 59 58 58 56 56 56 55 54 55 55 55 55 55 54 53 53 53 52 52 54 54 54 55 55 56 58 59 58 60 60 62 63 64 64 64 64 64 63 62 60 59 59 59 57 56 57 56 56 56 57 57 53 68 64 58 64 54 48 60 52 54 52 48 47 54 61 60 73 71 73 75 70 62 61 68 78 80 86 89 79 65 59 62 57 56 53 51 55 62 63 60 65 63 59 57 54 50 44 38 72 99 70 89 122 86 70 86 82 91 98 100 95 94 99 106 99 110 111 89 59 45 44 49 65 74 91 111 124 129 133 138 126 128 131 133 135 136 138 138 128 125 121 110 98 85 72 65 58 47 48 49 39 37 48 53 51 50 49 49 46 43 45 54 72 87 95 100 111 124 132 129 131 135 141 146 149 151 153 155 150 152 151 149 149 153 152 150 149 141 135 132 130 122 109 95 80 75 73 58 58 58 58 59 60 61 62 61 61 62 62 63 64 63 63 65 64 64 64 63 63 62 62 62 62 62 61 60 60 59 58 57 57 57 57 56 56 57 57 55 55 54 54 54 53 52 52 54 54 54 55 55 58 58 60 59 59 61 62 64 64 64 64 64 64 63 61 60 59 59 59 58 57 57 57 57 57 58 58 58 56 47 46 55 58 59 69 68 72 73 72 74 79 80 79 68 66 66 67 62 55 55 61 67 63 64 69 71 70 72 78 75 71 64 56 55 61 62 61 60 72 75 62 43 40 57 75 76 79 64 65 96 89 64 84 97 91 92 104 108 102 99 99 102 97 88 67 46 39 40 42 48 53 63 76 82 84 85 90 98 101 105 108 112 116 118 120 124 121 118 113 107 101 97 95 97 84 76 72 68 70 55 28 49 48 49 54 56 58 62 69 79 90 97 102 114 130 137 134 137 137 139 142 146 148 148 148 146 150 151 150 152 157 157 155 153 146 137 132 129 121 109 97 83 80 79 57 57 57 58 60 61 62 63 63 63 64 64 64 64 63 63 65 65 65 64 64 64 64 63 65 64 63 62 61 60 60 59 58 58 58 58 59 59 59 60 56 56 55 54 53 53 52 52 54 54 53 55 55 57 57 59 59 60 61 63 63 64 65 64 63 63 62 61 60 59 59 58 58 58 58 58 59 60 60 59 69 51 51 65 76 86 93 96 66 73 77 79 82 85 80 76 65 66 64 63 59 55 56 61 69 62 55 58 62 65 67 67 48 57 68 75 77 75 65 55 56 54 49 48 51 60 70 77 71 54 60 52 79 99 74 91 99 95 99 111 111 103 103 104 100 84 71 58 52 52 50 46 53 51 53 56 55 54 54 57 65 67 70 73 77 81 84 86 84 83 80 78 78 81 83 87 105 99 93 87 90 101 83 45 39 49 58 63 58 56 66 78 79 86 95 101 117 134 140 136 140 139 139 139 140 143 144 144 149 155 158 160 163 168 169 166 162 152 141 131 126 119 109 99 87 85 85 56 56 57 58 60 62 63 64 65 65 65 65 65 65 64 64 66 66 66 65 65 66 65 65 67 66 65 64 62 61 60 59 58 58 59 59 59 60 60 60 57 56 56 55 54 53 53 53 54 54 55 55 56 58 59 60 60 61 62 63 64 64 64 64 63 62 62 61 60 58 59 58 59 59 59 60 60 61 62 60 56 43 59 85 85 86 86 75 52 58 62 66 70 74 67 63 66 70 66 64 63 62 66 68 71 66 60 59 60 58 54 51 57 57 56 55 61 74 84 88 63 52 45 54 72 80 66 52 59 47 57 56 70 93 88 87 87 100 112 111 102 99 109 117 85 70 62 60 64 67 61 55 66 60 55 54 52 50 51 56 51 53 54 56 58 61 63 64 67 67 64 63 65 67 71 74 81 84 87 85 86 99 102 89 49 48 49 56 62 64 68 70 74 84 96 107 124 142 145 139 141 143 143 141 138 140 146 151 163 169 174 177 180 185 183 181 171 160 145 132 124 116 108 100 88 87 88 55 55 56 57 59 61 62 63 65 65 65 65 65 66 65 65 67 67 66 67 68 68 67 67 67 66 65 64 61 61 60 59 59 59 59 59 59 59 59 59 57 57 57 56 55 54 54 53 55 55 55 56 56 59 59 60 61 62 63 64 64 65 63 63 63 61 61 60 59 59 58 58 60 60 59 60 61 63 63 61 54 52 77 94 78 65 55 39 50 56 58 61 65 69 63 60 63 66 64 63 64 67 72 74 62 63 61 59 57 58 59 61 71 69 64 57 56 67 77 83 68 77 84 85 75 64 53 51 52 57 51 59 57 65 91 85 78 98 106 96 90 100 112 109 70 60 59 62 68 73 74 73 76 68 58 55 52 49 52 58 57 58 59 59 60 63 65 67 69 69 68 68 67 68 68 67 72 66 74 79 75 80 93 99 91 64 38 43 64 79 76 67 74 89 106 123 141 156 156 147 142 151 155 153 146 147 158 168 182 188 193 193 195 198 195 190 181 169 151 135 123 115 109 102 90 89 91 54 54 55 56 57 59 60 61 63 63 64 65 66 66 66 66 68 68 67 68 69 69 68 69 67 67 66 65 64 63 62 61 61 61 60 60 59 59 59 58 58 58 57 57 56 55 54 54 55 55 55 56 57 59 60 61 63 62 63 64 65 65 63 63 63 61 60 59 59 59 57 57 59 60 59 60 62 63 63 59 57 71 90 88 68 57 52 44 50 56 58 58 61 64 59 56 55 58 57 55 58 66 69 69 62 63 60 54 54 62 68 71 58 65 70 68 63 59 52 48 57 73 85 80 63 50 48 55 49 61 46 56 52 55 104 108 87 90 86 81 91 106 103 83 69 62 60 62 66 72 80 87 79 68 59 54 50 47 50 55 57 58 58 59 61 63 67 68 60 62 63 64 64 62 61 60 74 61 66 78 77 80 86 91 114 97 74 58 53 56 66 76 81 101 124 141 157 167 166 156 158 167 175 172 167 168 180 193 201 206 208 208 206 207 203 198 189 178 159 140 126 116 110 106 95 96 95 54 54 54 54 55 57 57 58 60 61 62 64 65 67 67 67 68 69 68 68 70 70 70 70 69 68 67 67 66 65 64 65 65 65 64 63 61 60 60 60 58 58 58 57 56 56 55 55 56 56 56 56 58 59 60 61 63 63 64 65 64 64 64 63 61 61 61 60 59 58 56 57 58 59 58 59 61 62 64 58 50 75 84 63 49 48 49 50 50 57 61 61 61 63 59 55 54 56 54 52 56 64 67 64 66 65 60 56 58 67 68 65 64 64 55 44 36 39 44 49 44 48 53 55 53 52 50 51 52 55 51 55 55 63 97 127 101 86 76 86 100 99 82 66 69 63 62 64 63 63 69 77 74 63 56 54 53 50 54 59 58 58 56 56 56 59 61 63 64 64 65 67 68 67 67 67 73 68 72 77 77 88 97 94 107 113 111 93 67 54 65 85 101 125 150 163 174 182 182 175 183 189 193 195 194 198 206 215 218 221 221 218 216 215 212 207 197 186 167 146 130 120 115 111 106 105 104 54 54 54 54 54 55 55 56 59 60 61 63 65 67 68 69 69 69 69 70 70 71 71 72 71 71 69 68 68 68 67 67 67 68 66 65 62 61 61 59 58 58 58 58 57 55 55 55 55 55 56 57 58 58 60 61 64 63 64 65 65 64 64 63 62 62 61 59 57 56 55 56 56 58 59 61 61 62 63 57 61 93 90 56 47 50 47 51 58 67 71 70 66 66 61 58 57 59 58 55 60 67 69 64 61 60 59 60 69 76 69 56 55 60 61 53 44 42 40 39 44 48 52 54 53 52 51 52 59 50 63 55 57 63 65 108 103 82 78 98 103 81 64 65 60 58 59 62 61 54 52 56 71 63 58 57 57 55 58 63 67 65 63 59 58 58 59 60 64 63 63 63 64 65 64 66 68 79 86 76 66 86 105 102 94 96 104 112 112 102 92 89 126 152 176 187 194 199 199 195 202 202 202 206 213 219 224 227 229 232 232 228 225 224 221 216 202 191 171 150 134 123 117 114 114 112 110 49 50 51 53 55 56 56 56 58 59 61 63 65 67 69 69 72 72 72 72 74 75 76 75 74 70 68 70 73 73 68 63 69 67 64 65 67 66 61 57 60 58 57 55 56 55 55 52 58 57 57 57 58 58 59 60 63 64 64 64 64 64 64 63 64 62 59 56 54 52 55 58 62 56 59 66 64 56 59 66 106 75 55 54 55 54 56 61 57 60 64 65 61 57 54 55 54 55 56 60 64 66 66 65 62 61 60 61 67 70 62 50 57 57 57 57 55 54 52 50 46 47 49 50 53 55 58 59 58 51 52 56 56 54 66 83 78 83 92 93 80 62 56 63 64 67 64 62 60 58 59 59 76 75 70 62 60 63 62 59 69 68 68 68 64 60 61 66 70 65 59 58 61 68 73 75 78 78 81 82 79 79 90 103 93 69 86 94 91 117 92 114 143 167 195 213 220 219 220 219 216 216 217 220 227 231 236 239 243 243 240 236 231 226 221 220 208 201 186 165 144 131 125 123 132 128 125 46 47 50 52 53 54 55 55 57 58 61 63 65 67 68 69 72 72 72 72 74 75 77 77 74 73 74 80 85 88 84 79 73 68 63 61 62 63 61 59 58 57 55 55 56 56 56 54 52 52 53 55 57 58 60 61 63 63 64 64 64 64 63 63 64 64 60 57 54 52 51 52 60 59 61 63 58 54 65 74 80 59 50 54 58 55 57 62 59 60 63 64 61 57 54 55 57 58 57 59 62 65 66 64 63 58 60 69 72 63 56 54 55 55 57 59 60 58 56 52 49 46 46 48 52 55 58 58 60 54 56 61 59 53 58 70 70 73 79 80 71 59 58 67 66 68 66 62 59 58 60 61 69 76 78 71 63 63 63 64 67 67 68 70 66 62 62 66 70 67 63 64 66 70 74 75 72 71 74 82 93 96 88 79 70 68 68 73 92 106 71 121 148 176 209 226 231 232 230 226 227 225 227 230 236 242 247 250 249 249 246 244 238 234 231 229 221 214 198 178 161 147 143 144 148 144 140 46 47 48 49 51 52 54 54 57 58 60 62 64 66 67 68 70 71 72 73 74 76 76 76 73 75 82 94 104 109 107 104 89 81 71 64 62 61 60 58 58 58 55 55 56 57 58 57 51 52 54 57 58 59 60 60 62 63 63 64 63 63 63 63 59 61 60 58 55 53 52 50 55 57 56 49 43 46 58 69 58 50 49 57 60 55 56 60 59 61 65 65 62 60 58 60 60 60 57 57 60 62 62 60 63 56 62 76 71 54 50 57 54 54 56 58 58 56 54 51 48 46 46 49 50 54 56 55 56 53 57 62 61 54 57 65 60 62 69 75 74 67 63 67 67 68 66 61 58 56 58 59 56 68 78 73 64 62 66 72 65 64 67 71 69 64 63 65 68 67 67 70 73 75 76 74 66 68 72 78 91 98 87 69 77 86 64 71 121 121 64 123 140 177 216 234 240 245 243 236 233 233 234 237 242 246 251 254 253 252 249 247 244 242 239 239 231 223 207 189 174 165 163 163 171 165 161 46 46 47 48 49 50 52 53 56 57 59 61 63 65 66 67 69 70 72 74 75 77 76 76 74 80 93 108 122 130 130 128 117 107 95 83 76 69 64 60 63 59 56 54 54 56 57 56 55 57 59 59 61 60 59 59 63 63 63 64 63 63 62 63 61 62 61 58 58 57 57 57 56 56 52 44 41 48 55 61 54 55 58 63 63 57 56 59 58 60 62 64 62 61 61 62 63 61 57 56 57 58 58 57 59 59 66 69 62 49 50 57 53 52 54 55 55 54 51 49 48 46 47 48 50 52 54 53 50 48 52 60 61 57 61 68 53 54 59 68 77 75 67 61 64 65 62 60 58 56 57 59 52 63 72 72 66 64 70 78 63 63 66 72 72 66 64 65 65 67 70 73 77 79 76 72 63 74 79 73 77 87 87 79 75 78 62 98 156 141 57 75 119 163 210 231 242 251 250 241 237 237 237 240 242 246 250 251 252 251 249 248 245 244 243 242 235 227 213 198 185 180 180 182 191 183 177 48 48 47 47 48 49 51 52 55 56 57 59 61 63 65 65 69 70 72 74 75 77 76 75 74 84 100 120 134 144 147 144 139 131 119 109 100 91 80 74 71 66 61 55 53 54 53 53 55 56 57 59 60 60 61 60 63 63 64 65 64 63 64 62 63 62 58 56 56 57 59 60 60 57 51 49 55 62 61 56 59 60 64 65 64 60 59 62 56 58 60 61 60 59 60 61 63 62 58 55 55 56 56 56 55 65 67 56 49 51 55 53 52 51 52 54 53 53 49 47 47 47 47 48 50 52 53 52 49 47 50 54 57 58 63 69 70 64 60 64 75 78 69 59 61 60 60 59 57 58 60 63 57 60 64 67 67 68 74 79 63 62 66 73 74 70 67 67 64 66 69 74 78 79 76 72 68 78 80 72 74 86 87 81 71 72 88 147 178 155 72 47 106 149 198 225 240 251 253 246 246 245 245 246 248 250 252 252 251 250 248 247 245 244 243 243 241 233 220 209 202 201 202 205 208 200 192 53 51 50 48 48 49 50 51 54 55 56 58 60 62 64 64 68 69 72 75 75 77 76 75 76 87 105 126 143 153 158 158 152 145 138 133 126 118 107 101 90 84 75 65 60 58 55 54 53 53 54 55 58 60 62 64 63 64 65 66 65 66 65 63 61 58 55 54 54 55 56 57 60 52 48 56 66 71 63 52 59 60 63 63 62 62 63 63 56 57 58 57 57 58 58 60 62 59 57 56 56 57 56 54 55 67 64 48 44 55 60 50 51 50 50 51 51 50 47 45 47 46 48 49 52 53 54 53 55 51 51 51 53 56 60 63 89 82 72 67 69 73 69 62 58 59 58 58 58 58 62 65 65 60 60 65 69 71 73 76 66 64 67 75 78 74 70 70 65 66 69 74 78 79 78 76 77 79 77 79 87 95 85 71 86 83 100 144 137 130 95 77 104 141 187 219 238 247 250 249 250 251 250 250 250 251 252 251 251 251 250 250 247 245 242 240 237 230 221 216 215 219 222 225 228 216 206 57 56 53 50 49 49 50 51 52 53 54 56 58 60 62 63 66 67 71 74 75 76 75 74 74 87 108 130 149 160 166 169 165 160 155 152 149 145 137 131 121 113 99 86 78 71 67 66 63 61 58 57 57 59 61 64 64 65 66 67 67 67 67 65 59 61 64 68 71 72 72 71 72 61 58 70 80 74 63 56 62 62 62 63 64 64 63 60 56 56 57 57 56 56 57 59 58 58 56 56 57 58 55 54 60 62 57 50 52 59 60 51 49 49 49 50 49 47 45 44 45 47 49 51 53 54 55 55 57 56 54 52 52 55 56 55 78 88 90 81 71 68 64 62 60 60 60 58 57 59 62 65 68 64 64 70 73 72 71 73 70 66 68 76 81 79 76 75 68 68 70 73 78 79 79 80 85 84 84 89 93 92 83 74 89 87 79 94 78 86 86 89 99 128 169 208 233 241 246 252 252 253 252 251 250 249 249 248 250 250 251 250 247 242 237 234 225 221 217 217 223 231 237 241 243 231 219 61 58 55 52 50 50 50 51 52 52 54 56 58 60 61 62 66 67 70 74 75 76 75 73 74 88 109 132 151 164 173 176 177 172 167 164 163 161 155 150 146 136 121 105 93 85 80 77 74 71 66 61 58 58 60 62 64 66 67 68 68 68 69 66 67 72 81 91 97 99 98 95 88 74 72 83 88 76 65 63 66 64 65 64 65 65 61 55 55 56 56 56 54 55 56 59 55 55 55 56 57 57 56 54 65 56 51 56 61 61 57 53 50 48 48 48 47 45 44 44 45 47 50 52 53 55 55 56 55 56 55 54 55 57 55 52 52 78 100 96 79 65 59 57 62 62 60 59 57 57 60 62 68 65 69 75 76 71 69 72 73 67 69 77 83 82 79 79 72 71 71 73 78 81 82 84 84 90 96 96 86 78 81 90 93 102 80 88 83 90 79 83 92 114 152 198 226 235 242 255 255 255 255 255 253 252 251 249 248 248 249 249 245 239 232 229 221 218 217 222 232 243 250 254 250 237 224 62 61 60 58 56 54 52 51 50 50 51 52 54 57 60 62 64 67 70 73 74 75 76 78 73 82 100 126 146 160 170 176 179 178 180 178 177 175 172 171 161 154 141 127 114 101 90 82 81 81 79 72 63 58 59 63 62 66 69 68 66 67 70 75 85 101 113 114 117 119 111 95 91 88 87 87 78 65 58 59 60 61 63 64 64 63 61 59 54 54 54 55 55 56 57 56 56 57 58 57 54 54 56 58 67 61 55 64 91 108 93 63 51 50 50 47 42 40 40 43 45 48 50 49 48 49 52 58 59 60 60 60 58 57 56 55 64 56 71 99 88 66 64 52 58 60 60 60 58 58 60 62 62 67 80 88 79 63 63 72 72 71 74 80 82 78 75 76 82 79 75 74 77 81 82 82 88 89 89 92 93 91 88 86 101 89 95 94 73 73 84 88 102 103 142 181 209 234 238 248 250 255 255 255 254 255 252 247 250 250 247 243 244 243 232 217 214 209 214 231 244 247 251 255 254 240 227 63 62 61 59 57 55 54 53 51 51 51 52 53 56 59 61 63 66 69 72 73 74 75 77 74 81 98 123 143 157 166 174 180 181 182 183 183 182 180 178 170 163 152 138 127 113 101 94 87 86 84 80 73 67 65 65 60 66 69 68 63 66 77 86 103 116 125 125 124 124 113 96 89 87 81 73 64 60 61 63 56 55 56 57 56 57 55 54 51 52 55 58 60 61 60 60 62 60 60 62 66 67 66 65 64 66 64 56 49 54 73 91 64 54 43 41 45 47 44 40 48 52 54 54 51 50 50 54 58 59 60 58 57 55 53 52 57 53 61 80 84 76 66 49 59 61 60 59 57 56 58 58 62 66 79 87 82 68 67 72 76 74 77 83 84 80 78 79 86 85 83 82 82 83 83 83 76 84 92 96 91 85 82 84 87 84 93 93 82 87 93 86 96 92 127 169 199 224 233 248 250 255 255 255 254 255 253 248 250 249 247 244 245 244 233 220 215 209 213 229 245 249 252 255 253 241 227 65 65 63 61 59 57 56 55 52 52 51 52 53 56 58 60 62 66 68 70 71 71 73 74 75 80 94 117 138 153 164 171 179 181 183 185 186 187 185 185 178 172 163 151 141 128 117 109 96 93 90 87 82 75 68 64 53 60 65 64 62 69 87 99 115 122 127 123 118 112 99 84 71 76 73 61 54 58 61 61 60 59 58 59 60 60 60 60 54 56 60 63 65 62 60 58 55 52 51 57 65 69 66 61 60 52 52 55 50 44 54 71 75 64 52 45 44 44 44 42 42 47 50 53 52 49 49 51 55 58 58 58 59 58 56 56 52 60 58 60 79 89 69 51 59 60 59 58 57 56 56 56 61 65 74 85 82 71 68 71 75 73 76 83 83 80 77 78 88 90 91 90 86 82 81 81 70 79 89 90 86 84 87 92 89 91 98 98 96 105 106 94 93 77 108 151 185 211 224 245 249 255 255 255 254 255 252 248 249 249 247 246 247 246 238 228 219 209 211 228 246 251 253 255 251 239 229 69 68 66 64 62 60 59 58 54 53 53 53 53 55 57 59 62 64 68 70 69 69 71 73 77 78 90 112 134 150 161 169 176 177 179 183 183 185 184 184 177 173 167 158 150 139 129 121 109 103 96 90 88 81 71 62 53 56 61 64 67 79 93 103 108 110 111 105 97 88 73 59 51 65 69 60 56 64 65 59 54 53 53 53 55 56 59 60 64 64 64 63 61 57 54 52 46 45 46 51 58 60 56 53 53 44 41 55 66 63 52 46 70 73 72 60 45 35 39 47 45 47 50 51 49 48 47 48 55 57 58 60 62 63 64 64 54 76 74 53 71 90 73 65 60 59 58 58 58 58 57 57 60 62 70 79 80 72 67 67 72 70 74 80 82 77 75 75 88 91 97 97 88 79 77 78 76 79 83 82 84 90 99 105 102 98 98 101 103 106 106 104 94 70 93 135 171 199 218 243 247 253 255 255 254 255 251 248 250 250 248 250 251 250 243 236 224 213 212 230 247 254 254 254 249 239 231 72 71 70 68 66 64 61 60 56 55 54 54 54 55 57 58 62 65 67 69 68 69 70 72 77 77 87 107 130 147 159 166 174 175 176 179 179 180 179 179 174 171 167 162 156 149 140 133 127 117 107 101 97 91 81 72 70 67 66 69 77 85 91 90 84 83 84 80 74 67 57 47 57 68 72 63 62 71 73 63 62 61 60 62 63 66 68 69 69 66 62 59 54 53 51 51 49 52 55 57 56 55 54 53 47 53 55 50 49 57 62 59 60 68 74 68 54 42 42 47 54 53 51 49 48 47 48 48 56 57 58 59 60 61 63 62 55 87 97 59 59 80 70 80 60 58 56 57 58 60 59 59 58 60 65 72 73 68 64 62 70 69 73 80 82 78 75 76 90 94 102 104 93 80 77 79 83 82 81 82 92 103 105 101 101 94 94 106 115 107 101 110 101 71 86 123 159 193 214 238 245 252 255 255 253 255 251 248 254 253 251 253 255 253 250 246 233 221 217 233 250 255 254 254 248 240 233 75 74 73 71 69 67 64 64 59 58 57 56 56 56 58 59 63 66 69 70 69 69 70 72 76 75 83 105 129 147 158 164 172 172 173 176 177 177 176 176 172 170 168 166 163 158 153 148 146 138 128 120 117 112 103 95 95 87 80 79 83 84 80 72 65 65 69 69 69 65 59 54 74 73 66 56 57 65 68 63 69 69 70 69 70 71 71 71 62 59 56 52 51 52 52 54 56 60 61 60 57 53 53 55 46 59 61 49 45 55 61 58 57 56 58 61 64 60 51 44 44 43 42 43 47 52 56 57 55 55 55 55 55 54 53 53 53 80 109 72 52 67 62 86 65 62 56 54 58 60 62 61 57 60 63 65 65 64 61 60 67 68 72 80 82 79 78 79 94 97 105 110 100 86 81 86 86 86 87 93 109 117 106 87 95 94 96 114 135 128 117 122 106 77 85 112 149 191 213 233 244 250 254 254 253 254 250 249 255 254 253 255 255 255 252 253 241 230 226 240 251 254 254 255 250 244 240 77 76 75 73 71 69 68 67 62 61 59 58 57 58 57 59 64 67 69 71 71 70 70 72 75 72 82 103 129 147 158 162 167 167 169 172 173 174 174 174 172 170 168 167 168 167 164 162 158 154 147 143 141 136 129 121 109 99 88 81 77 73 65 62 62 65 69 74 75 71 68 65 86 72 60 54 56 59 57 56 58 60 59 58 56 55 52 50 52 51 51 51 51 53 54 56 61 61 59 56 55 54 52 51 51 51 52 54 61 62 57 50 58 52 49 53 60 61 55 51 45 45 45 47 52 57 59 57 50 48 48 49 49 50 49 51 49 61 106 84 57 64 58 82 74 67 58 54 56 59 60 61 59 63 64 63 59 59 59 60 62 62 68 76 80 78 76 78 97 97 104 111 104 90 85 91 91 95 98 107 125 133 118 92 101 107 98 106 144 161 148 140 105 81 85 103 140 190 213 227 242 249 253 253 253 253 251 248 255 253 253 255 255 253 251 255 250 240 236 246 252 252 253 255 254 249 246 79 78 75 74 71 70 68 68 64 64 60 59 57 58 58 60 64 68 70 71 71 70 72 72 73 71 81 104 130 148 157 162 160 160 163 166 169 171 172 172 171 170 167 167 169 170 168 167 161 161 159 159 155 150 141 132 102 93 82 74 66 62 60 61 64 67 70 74 74 71 67 64 83 68 57 62 68 64 56 53 67 68 67 65 62 57 54 50 50 51 52 53 53 52 52 52 66 60 54 54 57 57 53 49 56 49 49 57 56 52 55 67 55 56 54 53 51 53 58 63 76 72 66 62 60 55 50 44 43 41 44 47 49 52 53 55 48 46 100 93 64 68 59 77 82 72 59 54 56 57 59 58 60 64 65 60 56 57 60 63 55 55 62 71 75 73 73 74 97 94 100 110 107 93 88 94 97 100 104 110 127 141 131 110 112 120 97 88 136 180 173 153 104 81 84 97 136 192 215 224 241 248 253 252 253 253 252 249 255 254 252 255 255 252 251 255 255 246 242 249 253 251 252 255 255 252 251 79 80 78 78 75 75 73 72 67 67 65 64 62 63 62 64 67 69 71 73 74 74 74 75 78 76 84 104 126 143 153 159 162 161 160 161 163 167 170 173 170 169 168 169 170 170 170 170 168 166 160 159 164 160 135 105 78 70 65 61 61 62 64 64 61 61 70 59 68 69 49 74 75 67 62 59 60 61 59 60 66 63 68 77 75 61 54 57 55 54 53 50 47 47 50 53 65 56 49 50 57 59 55 50 50 51 52 51 51 51 53 53 48 50 53 54 52 51 51 52 50 51 53 51 47 45 45 46 45 43 43 47 53 57 55 52 45 51 88 89 59 78 52 72 79 74 67 59 56 56 57 60 60 59 57 59 60 61 61 60 56 59 61 63 63 64 64 65 106 112 99 109 113 97 103 112 107 104 103 101 103 109 110 109 119 126 95 105 103 174 167 141 112 89 81 110 149 182 213 238 244 245 247 251 254 255 254 255 255 252 249 254 255 255 255 253 253 251 250 250 249 250 250 250 253 255 255 80 79 79 77 76 75 74 73 69 68 67 66 65 65 65 65 67 68 70 72 74 75 75 75 78 76 85 104 125 140 149 154 156 155 157 158 161 165 170 172 172 171 167 166 164 164 162 160 166 164 160 155 153 143 115 87 70 63 59 58 59 62 64 65 60 57 65 59 66 64 51 79 67 63 59 56 56 56 58 59 69 61 60 71 76 67 58 57 55 55 54 52 50 51 53 56 61 58 53 52 52 53 51 50 56 56 56 58 58 58 55 51 51 53 55 55 54 52 52 52 50 50 48 46 44 44 45 46 43 44 48 50 52 53 56 57 63 42 68 62 70 86 66 66 85 82 75 67 61 57 57 56 59 59 58 60 62 63 64 62 58 59 61 62 63 63 66 67 105 109 98 107 111 98 107 115 111 110 107 97 92 99 110 119 117 121 89 99 99 168 162 134 114 95 90 115 157 196 225 245 248 248 249 251 254 255 254 255 255 255 251 254 255 255 255 255 253 253 251 247 244 243 245 247 249 252 253 80 79 79 77 76 75 74 74 71 70 69 67 67 67 67 67 67 70 71 73 75 75 75 75 77 77 87 105 123 137 145 150 152 151 152 156 159 163 167 169 170 168 165 162 160 158 154 153 154 152 147 140 131 115 91 70 68 65 63 62 62 62 62 62 60 56 63 65 67 60 57 87 66 62 59 57 54 54 57 59 72 59 53 65 75 72 61 56 54 55 55 54 53 55 57 61 50 51 53 52 52 54 57 62 51 51 52 53 55 55 50 44 64 62 61 60 57 55 55 55 55 51 47 46 46 46 47 46 44 48 53 53 51 52 57 62 65 49 83 59 65 67 74 84 85 83 79 74 67 60 56 54 55 55 55 58 60 62 61 61 58 59 60 61 61 63 67 69 92 103 97 108 112 97 102 106 80 94 106 104 99 102 111 117 114 111 81 90 97 158 152 122 109 100 96 119 165 209 238 248 251 252 253 255 255 255 255 255 255 252 246 247 251 251 252 255 250 250 248 242 234 232 236 242 248 252 254 80 80 79 78 77 77 76 76 73 72 71 70 70 70 70 70 69 71 73 75 76 76 76 75 76 77 86 104 121 133 141 148 148 148 149 152 155 158 161 163 165 162 159 155 153 151 147 144 131 130 124 115 102 88 72 62 68 68 69 68 66 64 62 62 63 58 63 69 65 54 62 90 65 64 61 58 56 57 60 65 69 58 50 60 69 69 62 57 56 57 56 58 56 57 59 62 48 49 51 51 52 54 56 59 54 58 59 59 58 58 59 56 67 64 64 61 57 57 58 59 60 55 49 49 49 51 49 47 50 53 55 55 53 55 59 62 59 60 94 70 51 46 64 87 117 114 106 94 80 65 53 46 56 56 56 59 60 61 61 60 59 60 60 60 59 62 66 70 77 96 97 112 116 96 93 93 70 88 105 107 104 109 113 115 111 103 74 82 93 148 145 116 106 104 103 124 170 220 245 249 249 252 254 255 255 255 252 251 247 241 234 235 237 239 243 247 246 246 246 237 227 222 226 233 244 246 249 80 80 79 79 78 77 77 77 75 74 73 73 72 73 73 73 71 73 73 76 77 77 76 76 75 75 85 101 116 126 135 143 144 145 146 148 149 151 152 154 157 155 148 144 139 135 130 125 115 110 102 92 78 65 59 59 67 71 73 73 71 66 62 61 66 62 64 73 62 50 67 85 68 65 63 62 63 64 68 70 61 56 53 57 61 61 59 60 58 59 59 59 56 56 56 57 56 52 49 50 51 52 49 47 48 54 57 54 51 51 57 62 56 55 55 53 52 53 55 58 61 56 52 53 56 58 57 56 62 59 56 55 57 60 60 58 62 58 62 67 47 58 50 53 53 59 67 75 81 83 84 85 63 63 60 61 62 63 63 62 60 60 60 61 60 61 65 68 76 98 99 110 114 96 96 95 105 109 110 100 98 109 117 118 107 95 71 75 90 137 142 121 114 117 119 136 178 226 250 253 252 255 255 255 255 251 241 237 232 227 221 222 224 226 230 235 239 242 242 235 225 219 221 226 231 231 233 79 79 79 78 78 77 77 77 76 76 75 74 74 75 75 76 73 73 75 76 77 77 76 77 75 76 83 94 106 116 125 134 138 139 141 142 143 143 144 144 148 144 136 129 123 116 110 104 105 98 88 79 65 56 53 58 66 72 76 77 73 69 63 62 67 67 65 73 59 52 73 76 66 63 59 60 64 69 71 71 56 56 56 57 57 56 58 59 59 61 60 59 56 54 54 53 50 46 43 47 51 54 52 50 46 51 53 50 46 46 53 58 48 48 51 51 53 55 57 60 56 54 54 58 62 65 65 65 71 65 59 57 60 61 60 56 58 55 48 67 50 63 47 42 49 53 56 57 56 53 50 49 69 65 61 58 57 57 58 58 59 61 62 60 60 60 62 65 83 103 99 106 110 99 106 110 110 114 112 102 103 116 117 110 103 90 72 72 87 128 146 136 134 137 138 151 183 222 244 250 255 255 255 255 249 239 227 222 213 211 209 210 213 214 218 223 230 234 237 234 227 221 218 220 219 217 216 78 78 78 78 77 77 77 77 76 76 75 75 75 76 76 77 73 74 76 76 78 77 77 78 77 76 79 87 95 102 111 121 128 130 131 133 134 136 137 137 136 131 124 118 112 107 101 95 94 85 78 74 64 54 52 58 64 70 74 75 72 68 63 63 65 70 65 72 58 55 79 66 61 54 49 53 62 69 70 68 57 58 58 58 56 57 58 58 57 58 58 57 55 53 51 51 42 42 45 46 49 50 51 53 55 55 57 56 56 55 53 53 42 45 49 52 54 56 59 61 53 56 59 61 62 61 62 65 74 71 65 60 57 57 56 57 50 57 64 68 48 46 52 54 51 55 57 58 59 59 58 59 76 70 64 57 54 54 55 56 59 61 62 61 60 60 60 61 75 100 99 107 111 105 114 117 101 111 116 111 111 120 116 101 98 84 72 68 81 118 149 153 150 151 149 157 178 204 224 236 244 241 235 228 221 212 203 199 193 194 195 201 203 203 206 211 217 222 227 229 226 219 212 209 205 203 198 78 77 77 77 77 77 76 76 77 76 76 75 75 76 77 76 74 74 76 78 77 77 77 77 79 77 77 82 88 93 102 113 119 122 125 128 129 131 132 132 125 121 116 111 109 105 101 95 79 72 69 71 66 58 54 58 62 66 69 70 69 67 63 64 64 71 65 71 57 58 85 62 56 47 42 47 58 67 67 62 59 59 60 58 59 60 59 56 53 55 56 55 53 51 51 50 51 54 56 52 45 40 40 43 45 41 38 41 44 42 32 25 34 40 44 48 49 51 53 54 54 57 61 62 58 55 53 57 72 75 69 61 54 51 54 56 52 54 67 56 50 32 56 54 49 52 52 53 54 54 53 55 89 82 72 64 59 59 60 60 57 59 61 61 59 57 57 58 60 89 98 112 118 109 113 114 121 127 124 109 104 114 115 105 92 80 71 64 78 112 152 163 156 154 151 156 169 186 205 220 215 210 202 193 187 182 178 176 180 181 186 192 195 196 197 201 206 210 218 224 222 216 205 199 193 188 182 77 77 77 77 77 77 77 77 75 75 75 76 76 77 77 77 76 76 77 78 77 79 79 79 77 77 76 78 80 85 89 93 103 109 114 116 119 126 131 131 126 126 120 112 112 114 106 90 71 66 65 68 64 58 60 68 62 62 62 65 67 68 66 67 63 64 63 62 60 60 68 77 54 59 50 51 67 63 54 62 55 58 60 59 57 57 58 58 58 57 54 50 46 47 55 61 57 54 49 43 40 38 38 38 38 33 34 39 41 33 24 23 37 34 34 43 45 42 44 50 54 54 54 54 49 46 44 47 57 58 57 83 34 43 70 46 46 60 69 58 47 46 53 60 62 60 53 51 53 59 59 56 98 90 67 54 58 56 51 54 48 50 50 52 54 58 60 61 58 67 92 112 115 120 121 113 122 119 117 118 116 114 107 100 94 74 69 70 70 103 144 155 156 153 148 151 159 166 168 168 163 163 159 154 154 157 160 164 172 177 183 188 190 189 189 189 188 189 195 205 212 211 200 192 185 177 168 77 77 77 77 77 77 77 77 75 75 75 76 76 77 77 77 76 77 76 77 78 79 79 79 80 79 78 78 80 83 85 88 93 100 105 108 113 122 128 128 128 125 116 108 111 115 103 86 61 55 54 61 65 63 64 65 61 59 60 62 66 66 66 66 60 61 60 59 58 58 65 74 71 65 54 53 64 67 57 53 56 59 61 61 59 59 58 57 57 54 50 50 53 56 56 57 50 49 47 45 44 45 46 46 42 37 36 39 37 29 20 19 29 45 50 41 39 45 47 42 58 55 52 50 47 48 50 56 50 59 56 69 69 47 50 34 53 63 69 61 51 50 54 58 58 57 53 53 57 60 60 57 99 88 64 52 57 58 54 57 53 52 52 53 54 53 54 54 59 66 89 108 113 120 124 117 122 119 119 118 117 111 104 97 93 75 68 70 73 102 138 146 147 146 142 144 149 152 149 148 135 137 137 141 143 149 155 158 171 177 183 186 187 187 188 187 181 179 183 190 199 200 195 188 181 172 163 76 76 76 76 76 76 76 76 74 74 74 75 75 76 76 76 76 76 75 77 78 79 79 79 82 81 80 78 79 80 81 82 84 89 95 99 108 119 126 125 132 128 118 111 115 117 104 81 61 54 54 61 68 69 66 63 61 58 58 61 64 66 65 66 59 57 57 57 56 57 63 70 68 57 55 59 67 79 72 51 57 58 59 61 61 60 58 57 55 50 47 52 61 63 57 52 54 54 50 48 46 45 44 44 44 40 39 41 37 30 22 24 37 47 52 53 57 58 53 45 50 47 46 45 46 46 47 52 48 61 54 59 109 67 47 47 58 64 65 60 55 53 53 54 54 54 54 56 59 60 60 59 96 84 60 48 59 62 59 61 61 60 61 60 59 57 54 54 59 64 84 103 111 122 129 123 122 121 122 121 117 110 99 92 89 73 65 70 76 97 122 128 130 133 131 133 136 136 132 130 122 127 133 141 149 156 160 163 171 176 180 184 184 185 186 186 177 172 170 174 181 186 185 183 171 160 150 75 75 75 75 75 75 75 75 74 74 74 75 75 76 76 76 75 75 76 77 77 79 79 79 81 81 79 79 78 78 79 79 80 84 89 94 104 117 124 123 132 133 128 122 120 116 99 77 72 67 67 70 73 72 69 65 64 60 60 62 65 66 65 64 63 60 57 58 57 56 62 68 60 51 59 65 68 83 85 58 57 55 55 59 61 61 57 56 52 50 50 57 62 62 53 47 54 55 52 50 46 46 44 44 42 39 40 42 39 34 31 37 56 40 44 77 93 78 60 58 41 42 45 48 50 48 43 40 48 55 50 67 115 86 62 71 61 60 58 56 55 54 52 51 53 54 56 59 60 57 58 60 88 77 55 48 60 65 59 60 62 61 63 64 63 60 58 57 57 61 78 99 110 124 132 125 118 119 122 122 118 109 98 91 84 71 61 68 79 91 104 109 115 121 122 125 129 131 129 129 135 142 149 157 164 168 170 170 172 176 179 182 183 183 184 184 180 171 165 165 172 180 184 184 171 158 146 75 75 75 75 75 75 75 75 74 74 74 75 75 76 76 76 76 75 75 77 77 78 79 79 79 78 78 79 78 79 80 79 78 80 84 89 101 114 119 118 125 134 137 130 119 108 89 69 70 73 77 76 71 69 69 67 66 63 63 65 68 68 66 63 65 61 58 58 57 56 59 63 70 61 66 65 59 74 88 75 64 56 51 56 60 58 55 56 48 51 56 59 58 54 48 44 48 50 49 50 51 51 53 53 46 45 47 49 46 42 44 52 58 51 62 92 104 85 67 64 51 51 51 54 57 56 52 47 50 46 55 89 92 88 65 72 66 60 55 54 56 57 55 53 56 57 58 61 59 54 55 61 78 69 53 49 62 64 56 53 50 50 53 56 58 58 57 58 54 56 73 95 110 125 133 126 116 118 122 123 116 108 97 90 81 72 62 69 83 86 91 98 112 118 121 126 129 133 136 140 149 154 160 167 170 171 171 169 172 174 178 180 181 182 184 184 183 173 164 165 174 186 193 198 186 170 156 74 74 74 74 74 74 74 74 74 74 74 75 75 76 76 76 75 75 75 76 77 78 79 79 78 78 79 79 79 80 81 80 76 77 79 85 96 111 116 113 118 131 140 131 116 101 81 63 55 64 73 71 65 66 67 67 67 64 64 66 68 68 66 63 64 59 56 57 57 56 58 59 73 63 61 55 50 65 90 104 80 65 53 54 57 57 55 56 48 54 59 59 52 47 45 45 52 52 51 50 49 49 48 49 49 50 53 53 49 46 49 62 51 78 95 92 84 79 68 56 65 58 50 47 50 56 59 58 58 50 74 107 76 80 59 59 76 64 55 55 60 60 58 59 59 58 60 62 57 51 58 68 71 67 55 50 59 58 50 50 44 44 46 51 55 58 60 62 54 52 66 88 106 124 134 127 117 119 123 122 114 105 94 89 79 75 64 70 85 83 84 96 115 124 129 134 136 139 144 151 156 159 164 168 169 170 169 169 170 173 175 178 178 180 182 184 181 173 166 169 181 196 206 210 194 178 161 75 75 75 75 75 75 75 75 75 75 75 76 76 77 77 76 75 74 75 76 77 78 79 79 79 80 79 80 80 80 80 78 75 75 78 84 97 112 118 115 117 128 134 127 113 101 82 62 47 55 65 64 63 66 67 65 65 64 63 65 67 66 64 62 62 57 55 58 60 60 61 63 61 57 48 47 52 57 77 108 104 81 60 58 58 55 54 56 52 55 57 54 49 47 49 49 50 48 45 43 38 35 32 32 39 43 47 49 44 42 51 66 67 95 103 85 74 74 65 49 64 55 45 40 46 56 63 64 63 58 89 93 71 68 54 59 85 70 57 56 58 57 57 61 63 60 59 61 55 51 61 76 71 69 57 51 55 53 48 49 44 43 46 49 52 56 59 62 57 51 59 78 97 121 136 131 121 122 124 122 111 101 90 86 75 74 64 69 84 77 77 94 114 126 136 142 144 146 151 158 164 166 167 168 168 169 169 168 167 169 172 174 175 177 181 183 179 173 168 173 185 199 207 210 192 174 156 74 75 74 75 74 75 74 75 74 75 74 76 75 77 76 76 75 75 75 77 77 79 79 79 81 82 82 81 81 80 79 76 77 76 79 87 101 117 124 120 122 129 132 126 117 109 90 70 52 58 64 63 65 69 66 60 63 62 62 64 66 65 62 61 63 59 56 60 63 64 65 67 55 56 46 51 58 48 53 85 119 91 67 60 59 55 54 58 55 56 54 51 48 49 51 53 37 35 34 33 32 31 29 30 28 32 39 41 39 41 53 70 96 94 85 80 80 75 62 48 61 54 47 46 52 59 63 61 57 56 86 59 63 52 50 67 87 72 57 54 54 53 53 58 60 58 55 57 52 49 63 82 73 72 59 50 52 49 45 50 44 43 43 43 45 49 52 56 61 50 55 73 92 119 137 134 126 125 125 119 107 96 87 83 68 71 59 65 81 73 70 93 109 125 140 150 152 155 160 165 172 171 170 167 165 165 165 165 164 166 170 172 173 175 179 182 182 176 173 176 188 198 203 205 191 171 152 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 74 75 76 76 76 78 80 83 83 82 80 81 82 81 78 76 75 75 79 91 107 123 133 137 132 136 136 130 121 114 106 97 77 65 61 66 69 65 61 62 59 59 58 59 60 59 58 57 54 65 60 54 65 70 61 55 56 55 53 54 56 60 58 54 59 83 90 69 56 62 66 58 50 71 47 54 55 45 66 40 38 41 41 29 34 39 39 29 31 44 33 38 44 33 86 43 92 94 89 84 79 71 62 54 61 64 62 54 49 53 58 59 56 55 69 59 51 54 53 68 76 75 68 58 52 53 52 53 60 57 47 40 45 57 67 72 80 69 55 48 48 50 49 49 47 48 48 48 48 50 53 57 61 50 62 61 95 115 143 132 135 132 120 104 95 92 86 77 72 60 62 66 94 63 67 91 116 134 150 156 157 161 166 168 167 166 165 165 164 163 163 163 165 166 171 172 173 174 177 179 181 180 177 174 180 189 194 193 175 152 135 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 75 75 76 77 78 78 78 81 82 83 81 79 79 78 80 79 77 76 78 83 95 111 126 136 139 150 140 127 120 121 124 117 105 94 81 71 74 76 71 64 60 57 58 57 60 61 60 58 59 60 63 56 58 65 60 54 60 53 53 53 52 56 58 59 57 54 65 77 73 62 56 56 59 58 73 48 55 54 46 63 37 36 37 41 43 42 40 40 43 36 37 37 59 26 50 63 35 104 97 90 86 78 65 59 61 55 66 71 61 47 39 38 39 45 58 84 72 53 52 61 87 71 71 65 57 51 54 55 55 61 57 53 50 52 56 63 69 74 65 54 48 48 50 48 48 48 49 48 47 48 49 52 57 61 51 60 61 94 118 144 133 134 128 115 100 92 89 84 76 68 61 66 74 83 61 67 92 118 135 149 156 157 161 165 166 165 165 164 163 161 161 161 162 163 166 169 170 171 173 175 177 176 178 175 171 171 172 170 162 133 111 95 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 75 78 80 80 80 79 79 82 81 81 79 79 80 81 84 84 84 86 92 105 118 131 138 142 146 139 131 125 128 131 126 115 102 85 73 72 73 71 65 61 55 55 56 60 63 63 61 61 61 60 58 66 72 59 48 58 54 54 55 56 55 56 57 58 52 52 65 79 72 53 50 64 62 72 48 53 54 49 66 46 41 35 36 49 45 39 38 49 40 55 42 40 50 81 59 89 94 85 78 76 69 58 55 62 53 62 65 60 55 49 43 38 36 47 69 58 44 51 65 94 63 67 65 61 57 61 64 64 64 61 62 65 62 58 63 73 66 60 53 50 49 51 49 48 48 48 48 47 48 49 52 57 62 52 56 59 91 122 147 135 129 124 113 100 90 85 79 73 65 63 71 84 64 56 70 95 119 135 147 152 154 158 163 163 162 162 161 160 159 160 160 160 162 164 167 168 169 169 171 174 178 181 178 172 166 158 147 134 99 79 65 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 76 78 80 81 80 78 79 80 79 81 85 88 88 89 92 94 96 99 107 116 126 135 141 143 135 139 138 129 121 123 129 130 116 100 88 79 73 68 63 60 54 55 57 60 64 64 64 63 57 62 61 70 82 72 53 49 57 56 59 61 59 54 54 56 53 50 61 78 75 58 56 66 54 62 47 48 50 52 74 70 62 51 36 47 44 50 42 47 57 26 50 43 56 68 87 75 60 64 66 62 57 56 55 57 56 56 57 64 77 85 77 66 55 57 75 77 81 89 82 89 53 62 66 64 63 66 67 64 63 56 57 63 58 53 62 77 57 54 51 51 52 51 50 48 48 47 48 47 47 48 52 56 63 54 53 57 86 124 147 135 128 121 110 99 88 80 72 67 61 66 77 90 50 57 77 101 123 137 146 149 152 157 161 162 160 160 159 158 159 159 159 160 162 163 167 167 168 168 171 173 178 180 179 173 166 157 142 128 98 82 71 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 75 77 80 80 79 78 79 81 80 87 96 102 104 103 103 103 108 112 118 124 130 135 139 140 142 141 132 117 108 110 117 118 115 109 104 95 83 71 60 55 53 54 57 60 64 65 65 64 55 64 58 59 82 92 77 59 57 55 57 62 61 54 52 54 51 55 61 69 70 66 65 62 48 55 48 45 44 51 76 87 90 79 46 48 44 69 54 44 44 61 49 50 98 61 41 45 38 59 65 55 51 57 55 47 52 59 71 83 96 105 101 94 64 69 94 104 111 106 75 61 52 62 68 67 62 60 58 52 53 45 44 46 44 44 57 74 51 51 51 51 53 52 52 50 48 47 47 46 47 48 51 55 63 56 50 56 78 124 146 135 126 117 108 97 85 74 64 59 58 68 80 87 46 62 84 106 124 137 146 150 153 158 161 160 159 159 157 158 158 159 159 161 162 165 166 167 167 168 170 172 172 175 174 170 165 160 149 138 119 107 97 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 76 78 78 79 78 79 83 84 90 98 109 117 117 113 112 112 116 119 124 128 131 134 138 141 144 139 133 131 132 126 107 82 78 82 88 88 84 75 63 52 56 57 58 61 64 65 63 62 57 65 53 46 73 103 100 85 60 54 51 58 59 54 51 54 49 55 59 57 62 70 66 57 48 52 51 45 41 47 66 82 93 92 57 57 43 74 56 47 51 39 37 87 61 57 54 31 40 61 66 53 44 49 48 41 52 76 98 105 100 96 96 98 76 78 92 86 77 72 52 51 65 75 79 74 64 58 54 46 50 45 42 39 41 48 62 74 49 51 51 53 52 52 52 51 48 47 46 45 46 47 50 55 61 59 49 55 67 121 141 136 123 113 104 96 83 69 58 55 58 72 80 74 52 66 87 106 124 136 145 149 153 158 160 158 155 156 155 156 157 158 159 161 161 164 167 166 166 167 169 170 170 173 172 169 167 165 157 148 137 128 120 80 80 80 80 80 80 80 80 79 79 79 79 79 79 79 78 80 80 79 79 79 82 86 90 103 111 122 126 124 119 117 118 121 125 129 132 134 138 142 147 147 150 156 167 173 166 136 103 70 65 65 66 72 78 74 63 61 59 59 60 64 63 62 60 58 63 52 49 73 99 104 101 79 62 52 55 57 53 50 54 48 52 55 55 62 67 62 52 51 47 51 46 45 48 54 64 77 89 70 81 51 70 56 65 53 44 46 70 55 55 35 59 57 60 62 55 46 42 50 61 77 95 109 106 97 91 90 92 100 90 87 64 49 52 51 67 74 82 83 74 63 57 56 51 46 48 48 42 46 59 67 65 49 52 52 53 52 51 52 52 48 47 46 45 46 47 50 55 58 62 49 55 59 115 138 135 116 104 97 92 82 68 55 56 61 78 81 57 60 68 86 100 119 133 142 148 154 158 158 155 152 153 154 154 155 156 157 159 161 162 165 164 164 164 165 167 169 172 171 168 165 162 154 145 132 128 121 80 80 80 80 80 80 80 80 79 79 79 79 79 79 79 78 81 81 80 80 80 84 90 95 114 120 128 129 126 121 117 119 124 127 133 136 138 143 150 157 167 172 179 184 190 193 187 172 111 92 71 62 71 87 87 78 64 61 60 61 61 61 59 57 56 60 58 61 79 88 93 101 99 76 58 56 57 52 50 54 52 50 53 60 67 67 58 51 52 45 48 48 52 54 46 50 66 88 87 111 68 72 60 91 109 59 123 108 81 61 48 59 72 59 56 62 56 46 64 95 110 107 100 94 95 99 95 90 93 80 74 55 47 53 48 57 68 74 73 64 54 52 55 54 39 48 50 43 48 62 63 52 51 53 54 52 51 51 52 52 48 47 46 45 46 47 50 55 57 63 48 54 54 112 135 134 110 99 94 90 81 67 57 59 67 84 82 48 68 69 83 93 115 129 139 146 152 157 156 153 151 151 151 152 153 155 155 158 158 161 163 163 162 162 163 165 164 166 166 161 156 151 140 130 117 113 107 76 78 80 80 79 79 79 81 82 79 77 77 81 83 82 81 83 80 80 81 81 83 97 113 120 124 128 129 127 122 115 111 119 124 131 141 151 164 176 185 197 204 207 207 207 209 203 194 168 128 93 122 116 72 81 99 75 63 57 59 58 55 54 59 56 53 66 60 73 88 79 100 99 88 71 58 54 55 54 52 48 50 55 61 60 55 53 55 47 47 47 49 50 52 53 54 55 74 89 78 56 54 88 126 120 107 99 102 101 92 89 91 87 70 58 57 51 45 50 62 85 97 104 103 100 100 97 94 83 70 56 52 49 47 51 57 68 66 63 60 57 56 57 54 55 52 52 52 54 53 51 49 51 53 55 53 51 50 50 50 49 48 47 46 47 48 51 55 63 56 54 47 59 88 152 123 109 102 93 81 72 68 61 59 79 84 61 44 58 70 77 94 105 120 136 146 150 149 150 152 149 150 151 152 153 155 156 156 155 157 160 161 162 162 161 160 165 163 158 151 139 126 114 106 85 85 84 75 78 80 80 80 79 80 81 82 80 79 80 82 83 82 80 86 81 79 84 90 96 107 119 121 125 127 124 117 112 111 113 119 126 137 152 167 182 197 206 214 219 222 221 219 216 209 199 188 155 124 138 125 86 96 114 90 75 63 62 63 59 54 54 61 56 63 54 62 75 72 93 111 96 72 53 48 54 53 48 53 57 61 60 56 53 52 53 55 53 50 48 48 50 52 53 56 62 74 87 94 92 93 97 79 74 78 92 104 101 89 79 53 45 44 47 40 34 41 57 81 92 100 101 102 101 92 82 69 60 54 54 53 51 50 54 62 62 59 58 56 56 57 58 57 55 55 55 55 54 51 50 51 54 55 54 50 49 49 50 49 48 47 46 47 48 51 55 60 61 56 49 55 90 144 115 103 94 87 80 71 65 61 66 81 76 60 50 57 65 71 83 99 114 131 143 147 147 147 148 146 148 149 150 151 153 154 154 155 157 159 159 158 158 157 156 152 148 140 129 117 105 93 87 87 87 87 76 78 81 81 81 81 82 83 84 83 82 83 84 84 83 80 85 81 81 89 100 109 117 123 123 126 124 115 105 103 110 117 125 133 148 167 185 201 215 224 228 231 232 229 225 219 207 196 174 154 130 130 110 81 93 109 117 96 74 66 65 62 57 54 61 59 65 55 55 62 61 70 106 105 91 66 50 52 54 50 53 65 71 61 50 49 50 48 52 49 46 47 50 55 61 66 45 52 68 86 94 90 83 81 69 70 77 91 107 109 87 60 47 45 50 51 44 40 55 76 74 80 87 95 100 97 82 67 57 55 55 60 59 57 53 54 58 59 57 57 55 56 58 60 57 57 57 57 56 55 52 50 54 55 56 54 50 48 48 49 49 49 48 47 47 48 51 54 57 68 56 52 47 95 131 108 99 88 81 78 69 59 61 74 85 68 60 62 60 63 68 72 92 107 124 137 143 144 143 143 144 145 146 148 150 151 151 152 156 157 156 156 154 151 149 148 141 136 127 116 105 96 88 85 93 94 95 74 77 79 81 80 81 82 84 83 83 83 84 84 83 82 80 79 81 88 99 109 117 122 124 124 121 114 105 100 103 114 123 138 146 162 181 196 209 220 227 229 233 232 226 219 211 195 182 164 152 134 127 113 98 104 113 139 118 92 76 69 65 61 60 58 60 69 67 58 58 54 49 73 97 107 83 58 52 54 52 52 77 90 75 56 51 52 50 46 44 44 45 49 54 59 63 47 52 58 67 70 69 71 77 81 86 87 91 102 107 86 56 50 47 46 43 37 41 62 83 63 65 71 81 90 88 71 54 53 55 59 64 64 61 57 55 56 57 56 56 55 55 57 58 58 59 58 58 58 56 53 51 54 55 56 54 50 48 47 48 50 50 49 48 48 48 51 54 56 70 57 51 44 102 121 103 100 86 76 72 64 55 63 82 89 67 67 79 70 67 71 68 85 99 116 131 139 141 141 142 143 144 145 147 148 150 150 151 155 155 153 151 147 144 142 141 135 129 121 113 105 102 101 102 103 104 105 72 74 78 79 80 80 82 84 82 83 84 84 83 82 82 81 77 88 102 112 116 119 122 123 121 114 103 99 103 114 124 132 149 159 174 189 201 211 218 223 224 226 222 215 208 198 182 167 153 141 132 123 117 114 109 111 137 129 116 102 88 79 69 65 58 59 66 69 60 61 66 49 48 73 88 78 61 56 54 51 52 85 107 93 68 59 59 56 52 50 49 48 48 47 47 48 57 52 51 58 67 69 66 64 69 80 86 86 93 101 87 63 59 53 51 50 50 57 72 86 53 51 54 65 74 72 59 49 53 57 60 60 59 58 55 55 59 59 58 57 56 55 54 55 58 59 58 58 59 57 54 51 55 56 57 55 51 49 48 49 51 51 50 48 49 48 51 54 55 67 55 49 49 106 113 103 95 82 68 63 59 58 71 91 86 69 74 89 79 73 73 69 80 92 108 124 133 138 140 141 142 143 145 146 147 149 149 150 153 152 149 146 143 140 138 136 129 124 116 110 107 108 110 113 111 112 111 69 72 75 77 78 79 81 83 83 84 84 84 83 83 85 86 86 101 117 121 121 121 121 119 114 106 99 101 112 126 135 141 157 166 179 191 199 206 211 213 214 213 208 201 195 186 168 155 137 121 116 107 107 110 97 96 115 122 128 126 115 100 85 73 68 62 60 65 58 67 84 62 54 57 61 63 66 67 64 55 50 76 95 87 68 58 56 55 57 57 57 58 57 57 56 56 40 51 64 73 68 59 55 58 57 73 86 89 93 95 83 63 64 63 64 70 76 81 84 85 51 46 46 55 60 58 52 48 52 57 56 52 50 50 52 52 60 61 60 59 56 55 52 52 56 57 56 57 57 55 53 51 55 56 58 55 50 48 48 49 52 52 51 49 49 49 51 54 57 60 55 48 64 110 107 99 84 74 62 55 55 64 79 92 71 70 76 86 81 74 71 68 74 85 99 115 127 135 138 140 140 142 144 144 146 148 148 148 149 148 145 142 140 137 136 134 130 126 120 114 111 112 114 117 114 115 115 66 69 73 75 76 78 80 82 85 86 86 85 83 85 90 93 103 112 120 121 120 119 117 111 104 102 103 109 120 133 144 151 161 168 178 186 191 193 195 197 194 192 186 179 176 168 153 139 132 111 110 101 102 109 94 99 90 103 117 124 125 120 106 92 83 72 61 68 59 71 92 59 60 55 54 62 68 66 65 65 56 62 67 66 61 56 55 55 58 57 58 59 62 65 69 71 45 59 74 76 61 48 48 57 65 76 86 90 92 89 76 62 52 53 57 63 66 68 64 62 51 48 49 55 54 49 45 49 50 57 55 48 44 48 51 51 61 61 61 60 58 57 54 54 53 53 53 54 54 53 50 49 55 57 58 55 52 49 49 49 52 53 52 50 49 49 51 54 59 52 58 50 85 112 99 90 75 72 58 49 54 67 77 80 53 71 75 78 81 74 64 68 70 79 91 106 120 129 136 139 138 139 141 142 144 145 145 146 146 144 143 139 138 136 135 135 133 130 126 121 119 119 120 122 116 117 117 67 70 72 75 75 77 79 81 87 88 88 86 85 87 94 99 114 117 118 115 114 117 112 103 97 101 108 115 124 135 147 156 161 167 174 179 180 179 179 179 176 172 166 161 159 153 140 126 120 97 99 88 90 99 86 98 77 85 97 108 121 129 124 112 97 84 71 79 66 71 87 44 49 52 62 69 62 50 55 69 69 57 51 53 59 61 60 61 59 57 53 52 53 56 60 63 83 71 60 58 61 59 55 52 75 76 80 84 89 86 77 67 52 54 53 52 49 49 48 46 51 50 52 56 51 41 40 46 45 53 53 46 42 48 53 53 60 61 61 61 59 58 55 54 52 51 50 51 53 52 49 48 56 58 58 56 52 51 51 52 53 53 52 51 50 50 52 54 61 47 62 52 98 112 91 80 70 72 61 50 55 71 74 66 43 72 75 72 80 74 64 70 67 74 85 100 114 125 132 136 136 137 138 141 142 143 143 144 144 144 141 138 136 135 135 134 129 127 125 124 123 123 124 126 120 121 122 66 68 70 71 72 73 77 79 81 82 83 86 89 98 106 111 113 116 121 119 112 103 97 95 98 104 112 122 130 139 146 153 158 160 162 163 163 162 160 159 158 156 154 153 150 142 131 124 111 103 95 90 89 86 85 86 82 89 88 91 107 122 131 139 117 117 95 80 69 90 55 50 54 55 55 55 57 59 60 63 56 60 63 59 53 51 58 64 57 57 55 55 55 58 63 65 61 64 69 71 67 60 50 43 60 69 79 86 89 88 79 67 58 58 56 53 46 42 40 39 44 43 42 41 39 38 36 35 35 38 42 44 44 46 53 60 56 58 59 59 58 57 55 53 51 52 53 53 53 53 53 53 56 57 57 57 56 55 54 52 53 52 53 52 53 53 54 56 58 55 58 62 109 98 85 75 79 58 57 63 64 80 73 36 43 56 68 76 73 67 68 73 72 75 83 93 107 118 126 131 134 136 137 139 141 144 144 145 145 142 140 139 138 137 133 131 131 129 127 126 127 127 126 125 123 127 130 63 65 67 69 69 71 75 77 79 81 83 86 91 99 108 111 112 112 112 109 102 97 94 92 100 106 114 123 130 137 142 147 149 151 152 153 151 150 150 149 150 148 147 147 145 138 127 121 109 101 94 91 90 86 84 84 84 91 88 88 102 114 120 126 136 135 117 103 85 90 50 47 55 55 55 56 56 59 59 61 57 57 58 58 57 57 56 56 59 57 56 56 57 57 58 57 54 56 61 64 65 63 60 57 52 62 72 79 81 78 67 55 55 56 55 52 47 43 41 40 43 42 41 38 35 33 30 29 30 31 36 41 45 50 55 60 57 58 59 59 58 57 55 53 51 52 53 54 55 54 53 53 57 57 57 57 57 56 56 54 53 51 52 53 53 54 55 55 61 52 53 84 102 91 73 76 69 64 56 62 78 76 56 41 51 54 59 64 66 64 68 73 68 80 98 111 118 122 126 130 131 134 137 140 141 142 144 145 145 144 141 139 138 137 133 131 131 129 127 128 129 129 127 126 128 132 135 57 60 63 65 66 69 72 76 79 79 83 87 93 101 109 113 111 107 102 96 91 90 93 95 106 111 120 128 132 136 139 142 144 144 144 144 142 141 140 139 140 139 139 140 139 133 123 115 103 96 91 91 91 88 85 83 89 95 91 88 100 109 113 119 138 138 133 125 110 97 52 50 56 58 57 57 57 59 58 58 58 53 53 56 62 62 54 47 58 56 55 56 58 58 57 55 53 54 56 58 61 64 65 66 58 64 69 70 72 71 64 55 54 54 55 52 48 45 43 42 39 39 37 35 33 30 28 27 29 30 35 42 50 55 57 59 57 58 59 59 57 56 55 53 51 52 53 54 54 54 53 52 56 57 57 56 56 55 55 54 53 52 53 54 54 55 55 56 61 50 56 108 93 81 62 75 59 66 56 65 87 64 34 46 52 53 54 59 62 61 64 69 70 97 126 140 135 127 125 128 131 133 137 140 142 143 144 145 147 145 141 140 139 139 136 134 132 131 128 129 130 130 129 128 134 138 141 53 56 60 62 64 66 69 74 76 77 81 87 94 103 110 111 109 103 94 87 85 88 95 99 110 115 124 131 134 136 136 138 142 140 140 139 137 136 134 133 133 133 134 136 136 131 121 112 96 90 89 92 94 91 86 82 84 91 89 88 99 108 112 121 125 122 131 134 129 107 60 56 59 58 59 58 58 58 57 56 58 54 53 56 62 62 56 47 54 53 52 54 57 60 61 59 58 58 57 57 58 59 60 61 68 69 65 61 60 65 64 59 53 53 53 51 47 43 41 41 38 38 38 39 38 37 36 35 33 34 37 44 53 57 57 57 57 58 59 59 57 56 55 53 52 52 54 54 55 54 53 53 56 56 56 56 55 55 54 54 53 54 55 57 57 59 58 58 59 51 73 111 85 69 62 67 55 60 66 79 80 47 29 48 47 52 58 65 64 61 64 70 93 126 159 168 152 132 123 126 131 134 138 143 144 145 146 146 148 146 142 141 140 140 138 137 133 131 129 130 131 132 130 130 138 142 145 51 54 57 59 61 64 68 71 73 75 78 85 94 103 107 107 104 96 86 80 81 89 99 106 114 120 127 133 135 136 137 138 139 138 136 135 133 131 131 130 132 132 133 134 134 130 120 110 90 84 87 92 96 95 90 83 74 83 83 82 93 102 108 118 117 111 126 130 135 108 63 56 59 61 61 60 59 58 56 55 58 56 56 57 58 58 57 55 57 55 56 55 55 56 60 62 60 61 60 59 58 56 55 53 64 64 61 57 56 59 58 53 47 48 50 50 47 45 43 44 45 46 47 47 47 47 45 46 40 40 43 48 54 56 56 53 57 58 59 58 57 56 54 52 52 52 53 55 55 54 54 53 56 57 57 57 57 56 55 56 56 58 59 61 61 62 61 61 55 60 93 96 80 60 66 55 55 52 78 92 64 38 40 49 46 54 62 65 61 61 74 92 133 163 190 190 165 139 127 127 132 136 141 147 148 149 147 147 148 146 142 140 140 140 139 138 133 132 131 132 133 134 133 133 142 145 148 49 52 55 57 58 61 65 68 72 71 74 83 94 101 103 102 97 89 81 79 83 94 105 111 119 124 129 133 135 135 135 136 135 134 132 130 128 128 127 128 133 133 133 134 133 128 118 106 87 81 85 94 100 97 93 87 78 85 84 82 92 98 104 113 121 113 124 115 120 92 59 53 59 61 61 60 59 59 57 55 53 55 58 58 58 56 58 61 61 64 65 62 56 52 56 60 58 58 59 59 58 57 53 53 54 59 62 63 63 62 55 44 43 45 48 51 49 48 48 48 48 49 49 48 47 45 44 42 46 46 48 51 54 55 54 53 57 58 58 58 57 56 54 52 53 53 54 55 55 54 54 54 55 56 56 57 56 56 55 57 57 60 61 63 64 64 63 60 55 72 103 78 72 56 66 49 57 55 83 87 50 41 55 50 51 55 59 58 56 68 99 131 174 193 206 199 174 148 134 130 133 136 143 150 152 151 149 148 148 145 141 139 139 140 139 139 134 133 132 133 136 137 135 134 143 147 150 48 49 52 53 54 56 61 62 69 69 72 80 91 98 98 96 94 88 84 84 93 105 115 120 127 130 132 134 133 132 132 133 134 133 131 129 127 128 128 128 133 132 131 132 130 124 113 102 86 81 87 95 101 100 96 91 82 91 89 85 91 93 98 109 122 114 120 89 91 68 53 58 58 60 61 61 59 58 56 54 48 51 56 59 59 59 59 60 59 67 75 72 61 52 53 59 57 57 57 57 56 56 55 55 54 60 63 64 64 65 58 49 48 49 52 54 52 49 48 47 46 47 47 48 45 44 43 42 49 50 53 53 53 53 55 56 56 57 58 58 56 55 54 52 53 53 55 56 55 55 54 54 55 56 56 57 57 57 56 57 57 58 62 63 64 64 62 59 58 85 94 71 62 58 56 53 58 71 80 64 50 53 57 51 51 53 56 60 67 92 132 168 197 203 204 195 174 153 136 129 131 137 143 149 153 152 149 147 147 144 140 138 138 139 139 139 136 134 134 136 138 139 137 137 146 150 153 46 48 50 51 51 54 57 59 68 68 70 79 90 97 96 92 95 90 88 92 103 115 124 128 132 133 134 133 131 130 130 130 135 134 132 130 130 130 130 131 133 131 130 130 127 120 110 99 87 84 87 95 101 100 96 93 79 89 89 83 86 87 90 100 114 110 113 68 65 49 52 67 57 58 59 60 58 58 56 55 44 48 54 60 64 62 59 55 52 66 79 78 66 55 55 62 59 58 56 55 54 54 56 56 59 59 57 54 55 60 60 55 56 56 58 57 52 47 44 44 47 49 51 52 53 53 51 53 50 53 56 54 52 52 55 60 56 57 57 58 56 55 54 52 53 53 55 56 57 56 55 55 56 58 57 59 58 58 58 59 57 58 61 62 63 63 61 56 60 93 81 72 56 63 46 62 61 93 76 45 56 66 55 52 48 50 57 68 86 116 157 190 203 201 195 186 172 153 135 124 129 135 142 149 152 151 148 146 147 143 139 137 137 139 139 139 136 135 135 136 138 139 139 138 147 151 154 48 47 45 46 48 51 56 58 61 64 69 76 82 88 92 94 88 89 93 101 110 120 129 133 140 140 138 135 130 128 128 130 131 133 131 132 131 131 132 132 128 128 128 125 120 111 101 93 92 92 92 94 95 96 96 94 79 84 92 96 89 81 83 92 104 89 68 55 55 58 61 59 57 58 57 58 56 56 53 53 47 51 56 62 64 64 61 57 57 48 87 75 47 61 60 56 59 58 57 56 55 54 53 52 55 59 62 60 55 56 62 67 66 57 50 52 50 45 45 50 55 53 54 55 57 58 55 55 59 60 58 56 56 55 55 55 57 57 57 58 57 57 57 56 55 54 56 57 59 59 57 55 56 57 57 58 58 58 59 60 57 61 58 52 57 68 64 49 95 87 75 61 51 50 56 69 91 71 52 51 63 66 54 43 46 49 56 74 110 155 186 198 203 190 182 178 160 132 118 123 128 135 143 148 149 148 146 145 142 138 134 134 137 139 138 136 139 140 139 139 138 139 143 147 155 157 158 48 47 46 46 47 51 54 56 60 63 68 74 80 85 89 92 90 93 98 106 116 126 135 140 141 140 137 132 128 126 127 130 134 135 136 136 136 134 134 133 128 127 124 120 115 107 98 93 96 96 94 94 92 93 94 93 93 89 88 90 86 83 82 89 85 76 62 54 54 57 57 57 56 56 56 56 55 54 52 53 48 53 57 61 65 64 60 57 56 60 82 72 52 58 58 52 61 60 59 59 58 57 56 54 55 56 55 51 49 49 55 60 68 56 47 47 48 46 49 54 53 51 50 58 69 73 68 63 58 57 57 57 56 56 57 57 56 56 57 57 57 57 57 55 54 53 54 56 59 58 57 55 56 58 58 59 59 60 60 60 57 63 58 53 58 60 58 61 95 81 67 57 57 61 64 74 64 63 58 58 61 61 59 61 47 55 75 104 143 176 195 199 186 185 182 169 142 117 112 123 127 134 141 147 148 147 144 144 140 137 134 134 138 140 140 139 141 141 142 140 140 142 146 149 156 157 158 49 49 47 46 47 49 52 53 59 62 66 72 77 82 85 87 89 93 100 110 120 131 139 144 142 140 137 132 127 124 125 127 134 136 138 139 138 136 132 130 128 124 118 112 106 100 94 93 98 98 95 92 90 91 92 92 96 87 82 85 88 86 80 79 62 60 56 55 54 54 55 55 55 56 56 56 54 53 51 53 51 54 57 60 63 63 60 56 53 74 70 65 60 54 59 54 58 58 58 58 56 55 54 51 57 55 51 51 51 54 58 60 60 52 48 49 51 52 55 61 55 65 78 89 90 81 66 56 54 55 55 55 56 57 59 59 55 56 56 56 56 56 56 56 53 52 53 55 58 58 56 55 56 58 59 60 60 60 60 60 57 64 57 54 59 49 52 80 92 75 59 57 65 73 75 79 56 62 63 64 60 54 52 55 43 60 93 136 171 188 194 192 180 184 180 154 117 98 104 120 125 131 140 146 146 146 144 143 137 135 134 136 139 142 143 142 144 144 144 144 143 146 148 153 161 163 163 52 52 49 49 50 51 52 54 59 62 65 70 74 79 81 83 86 90 97 108 119 130 137 143 145 144 139 133 127 124 124 126 131 133 136 138 136 133 127 125 123 118 110 102 97 93 90 91 97 98 95 92 89 89 90 91 86 81 81 88 91 84 71 63 50 53 53 54 53 53 54 56 55 56 56 57 54 54 51 54 54 56 55 58 62 63 59 56 52 85 60 56 66 53 61 61 56 56 57 58 57 55 54 51 54 51 50 52 58 62 63 61 52 53 54 53 50 51 55 60 85 98 109 105 86 65 54 52 54 55 55 56 56 57 57 58 55 56 56 57 56 56 56 55 53 54 54 57 60 60 57 57 57 59 59 60 60 61 59 60 58 64 56 56 59 43 53 97 85 72 62 62 73 81 81 85 70 70 66 67 67 61 54 50 50 70 107 147 172 180 184 186 187 184 167 130 95 87 99 114 123 131 138 145 145 145 143 142 135 134 135 138 141 143 145 146 145 145 146 146 145 147 151 156 166 166 166 56 56 54 54 54 54 55 56 62 64 67 71 75 78 80 82 85 88 95 105 115 125 134 138 146 145 141 135 129 125 124 124 126 129 133 134 132 128 122 119 115 110 101 95 91 90 89 90 96 97 95 92 91 90 90 90 84 81 81 86 83 72 58 52 49 51 53 53 51 51 53 57 56 57 58 58 56 55 53 55 59 58 54 56 59 61 59 55 57 92 61 53 65 51 58 63 58 58 58 58 59 58 56 55 51 49 49 55 60 62 59 55 55 59 60 54 49 53 66 77 120 113 96 74 56 50 55 64 57 57 55 55 54 55 55 55 54 55 55 56 56 56 55 55 55 55 55 58 61 61 59 59 56 58 59 60 60 60 59 59 59 61 56 57 56 48 64 105 78 72 69 73 80 85 86 90 75 74 68 67 67 64 66 71 85 103 129 153 164 169 178 185 183 167 134 99 80 83 97 108 123 130 138 144 146 145 144 142 135 134 138 140 142 144 146 147 145 146 147 147 147 150 154 158 167 167 167 61 62 61 61 61 60 61 61 66 68 71 74 76 79 81 82 87 90 94 101 110 121 128 133 140 140 138 133 127 121 119 118 119 122 125 126 125 121 116 114 107 102 95 91 90 90 90 91 94 95 94 93 93 92 92 89 94 85 77 73 64 56 50 50 53 54 53 52 50 52 54 59 57 59 59 59 58 57 55 57 62 59 53 53 57 60 59 55 63 91 73 58 64 54 51 60 57 55 55 55 55 55 55 55 60 58 57 60 62 61 56 52 57 60 58 56 62 80 98 112 104 84 61 49 52 59 61 59 59 58 57 56 55 55 53 54 54 54 55 56 56 55 55 54 56 56 56 59 62 62 60 60 56 58 59 59 60 59 58 58 60 57 59 57 54 62 84 102 76 74 76 78 83 87 92 97 71 74 70 62 51 54 77 102 138 148 155 154 155 163 173 176 149 125 96 74 70 80 95 106 122 130 139 145 146 145 143 142 136 137 141 143 143 143 145 146 148 149 150 150 151 153 159 162 173 172 171 65 66 66 67 67 67 66 67 70 72 74 77 78 81 82 83 90 92 93 97 104 113 122 126 130 131 132 129 123 115 111 109 109 111 113 115 115 111 107 105 97 95 92 90 91 91 92 92 92 93 94 95 95 96 93 89 95 79 66 59 55 50 51 53 55 54 52 51 52 53 55 57 58 61 61 62 60 59 57 59 64 60 53 51 56 60 58 53 57 78 84 66 66 63 49 60 60 57 55 54 55 57 59 59 68 65 63 62 61 59 56 56 56 57 55 59 74 92 100 99 61 56 52 56 65 69 61 52 59 59 57 57 56 56 55 55 54 55 54 56 56 55 55 54 55 54 56 59 62 62 60 60 56 59 59 59 59 58 58 57 62 55 61 57 50 80 107 93 80 75 74 77 84 93 101 106 75 72 63 55 53 71 111 146 178 179 165 146 141 150 151 140 102 84 69 66 68 74 88 104 124 130 139 144 147 145 145 143 139 140 144 145 143 142 143 145 151 153 153 154 155 157 163 166 175 174 172 67 68 69 69 71 71 70 71 72 74 76 78 80 81 82 84 89 90 89 91 97 107 115 120 123 125 127 124 119 110 105 103 102 103 104 105 105 103 98 96 93 92 90 91 93 94 94 93 93 93 93 93 93 93 91 87 84 69 57 55 56 54 54 54 54 52 52 52 55 55 54 54 58 60 60 61 59 59 58 60 65 60 51 51 57 61 59 56 50 65 91 73 68 70 50 63 70 66 64 63 63 66 69 71 64 61 58 54 54 55 57 60 63 61 58 63 77 81 64 41 45 53 62 65 62 59 59 61 57 57 57 56 57 58 57 58 56 56 56 56 57 56 55 55 54 54 56 58 61 61 60 59 57 59 59 59 59 59 58 58 63 53 61 56 47 92 122 88 89 81 77 77 87 97 104 110 84 72 57 59 80 116 162 193 188 184 158 130 126 135 125 98 68 60 61 68 69 67 80 101 123 131 139 145 147 146 144 142 141 143 146 147 143 142 143 146 155 157 157 158 158 162 166 171 167 165 164 75 75 74 74 74 74 74 75 78 79 80 81 82 84 85 85 91 90 89 89 93 97 102 106 110 112 115 115 112 106 98 93 96 95 93 90 90 89 90 90 91 91 92 92 92 92 93 94 98 101 90 79 87 92 90 91 78 70 60 56 56 56 52 49 54 55 55 55 55 55 54 55 56 56 57 57 57 57 56 59 59 62 57 49 50 57 60 57 53 53 58 67 75 72 61 50 80 74 70 69 73 72 68 61 55 56 58 58 57 55 57 61 69 65 57 50 48 52 59 63 58 61 64 64 62 60 57 58 56 56 56 57 57 57 57 57 52 53 54 55 56 57 57 57 59 57 57 61 65 66 65 63 58 60 61 60 58 58 56 56 65 60 47 47 76 109 109 86 76 78 81 85 88 93 97 106 89 75 69 97 141 176 188 189 181 157 128 109 100 93 80 68 61 67 64 62 67 67 78 100 115 131 143 147 146 146 147 144 144 145 147 147 146 147 150 152 156 158 159 161 163 167 170 170 168 155 145 78 78 78 78 78 78 78 78 79 80 80 82 83 84 85 86 91 90 89 89 91 95 98 100 101 103 105 105 102 96 91 88 91 90 86 84 84 84 86 87 90 90 91 92 93 94 95 95 97 103 91 83 86 88 82 82 73 67 61 57 56 55 52 51 54 56 56 56 55 56 55 55 55 55 55 55 56 56 56 58 60 62 57 49 50 58 62 60 58 52 52 59 69 79 81 79 70 65 60 59 62 62 58 53 56 56 56 56 56 58 62 66 64 61 57 52 52 55 60 64 64 64 65 63 58 56 55 56 54 54 55 56 56 57 57 58 57 58 58 59 59 59 57 57 58 59 60 63 65 63 61 59 59 61 61 60 59 58 56 58 57 56 53 60 81 101 94 77 78 84 89 92 94 94 95 102 95 103 114 144 175 190 178 160 130 117 101 88 80 72 63 56 60 66 63 61 65 67 77 100 116 131 144 148 146 148 147 145 145 146 148 148 147 148 151 152 157 157 160 162 166 169 169 168 152 141 131 84 84 84 84 84 84 84 84 82 83 84 85 86 87 88 88 93 93 91 91 91 91 93 93 93 94 95 95 94 91 87 86 86 84 81 78 77 79 81 82 87 87 89 91 92 94 96 97 96 101 94 88 91 88 74 71 65 63 60 56 55 57 57 57 56 55 55 57 56 55 55 55 55 55 55 56 56 56 57 59 62 62 58 50 51 58 62 62 63 56 50 52 60 70 77 78 59 53 51 53 58 63 62 60 57 54 51 51 54 57 60 64 55 56 53 52 52 55 59 61 68 67 66 63 58 56 54 55 54 54 54 55 55 57 57 58 58 59 59 60 59 58 57 56 57 60 64 66 63 58 55 55 59 60 60 59 58 57 55 57 54 54 57 70 83 87 80 73 77 83 89 94 97 97 95 101 114 141 166 185 192 179 144 111 82 83 80 76 67 60 57 56 59 65 63 60 65 66 77 99 118 133 146 150 148 150 149 148 148 149 150 150 148 149 151 153 157 157 159 164 169 170 166 160 137 127 120 88 88 88 88 88 88 88 88 86 87 87 88 89 90 91 91 93 94 94 95 94 92 92 92 93 93 93 94 93 91 90 91 89 86 82 78 76 77 78 79 81 84 86 88 90 93 95 97 97 99 91 91 98 91 71 61 61 60 58 57 56 57 61 62 57 55 56 57 56 56 56 55 55 56 56 56 56 56 57 59 63 62 57 51 51 56 61 64 63 58 55 53 55 58 60 58 55 50 50 52 56 60 62 61 56 52 49 50 54 56 55 55 51 54 53 54 54 56 58 58 65 66 66 64 60 58 56 56 54 55 55 56 56 57 58 59 57 58 58 59 58 58 57 57 60 64 67 65 59 54 54 55 59 59 59 59 58 56 55 57 61 53 53 69 80 77 76 81 80 85 90 94 97 97 97 103 133 169 189 184 161 134 96 65 62 66 70 70 65 61 61 61 57 64 62 60 64 66 76 98 119 134 147 151 150 152 151 151 151 152 152 151 150 150 153 155 158 159 163 168 172 167 157 146 132 123 118 90 90 90 90 90 90 90 90 90 90 91 91 92 93 93 93 94 95 96 97 97 96 95 94 96 96 96 95 95 96 96 97 94 90 85 80 77 75 75 75 77 79 81 83 87 90 92 92 96 93 85 91 105 100 79 67 61 58 57 56 56 60 65 65 58 55 56 58 57 57 57 56 56 56 56 57 57 57 57 59 63 62 58 54 52 55 61 66 59 59 58 57 56 58 60 59 58 53 51 51 53 53 52 51 54 53 52 56 57 56 51 48 53 57 57 58 58 58 56 55 58 59 63 64 62 60 58 57 55 54 54 55 56 58 58 60 58 59 60 61 61 62 61 62 64 66 66 61 55 53 55 58 59 60 59 58 57 56 55 56 64 52 51 71 81 78 78 87 85 88 90 92 93 96 97 104 137 165 169 142 107 83 64 50 58 59 61 63 63 63 59 58 57 63 61 59 63 65 75 98 120 135 148 152 151 154 153 153 154 154 154 153 151 152 155 158 160 162 167 169 168 159 146 134 133 124 120 92 92 92 92 92 92 92 92 92 93 93 93 94 94 95 95 95 96 97 98 98 98 97 97 97 97 96 96 96 96 97 98 95 93 88 82 77 74 72 72 74 75 77 79 81 84 86 85 88 85 80 87 104 102 88 83 65 60 57 56 58 62 66 64 59 55 56 57 57 57 57 56 56 57 57 57 57 57 57 59 63 61 60 57 54 53 59 65 66 64 59 55 50 52 59 61 54 52 55 57 59 59 59 58 53 55 57 61 61 58 51 48 57 61 61 62 61 60 58 56 54 56 59 62 61 60 59 59 56 55 55 56 58 59 60 61 62 63 65 65 65 65 64 66 63 64 61 56 53 53 56 60 60 60 60 58 57 55 54 54 58 51 57 79 89 82 79 86 89 91 90 91 92 95 96 103 120 131 124 96 69 59 59 60 61 60 60 63 65 65 60 55 57 63 60 58 62 64 74 97 120 135 148 153 152 154 154 154 154 156 155 153 153 155 158 161 165 167 168 166 159 148 138 130 134 126 121 94 94 94 94 94 94 94 94 94 94 94 95 95 95 95 96 97 98 98 98 96 96 97 97 97 96 96 96 96 97 97 97 95 94 91 87 82 77 73 72 72 72 74 75 76 77 79 78 80 81 78 82 89 87 84 91 75 65 57 55 59 62 64 60 58 55 56 58 57 58 58 58 57 58 58 58 58 58 58 59 61 61 61 60 56 52 57 65 67 65 61 54 47 48 54 58 53 54 59 64 66 66 64 63 50 55 58 62 60 56 53 53 60 62 62 63 62 61 59 58 55 56 56 57 56 58 61 63 58 57 57 58 59 59 61 62 66 67 67 66 65 63 61 62 60 58 56 54 55 56 58 58 61 60 60 58 57 55 54 54 51 53 66 85 87 80 80 90 89 90 92 92 91 92 91 98 98 96 83 71 63 61 62 63 61 63 66 70 71 68 62 57 56 62 60 58 62 63 74 96 119 135 148 153 152 155 154 154 155 157 156 155 154 157 161 165 171 169 165 156 145 137 135 136 136 128 121 95 95 95 95 95 95 95 95 94 95 95 95 95 95 96 96 100 99 97 96 95 94 94 96 97 97 97 97 96 96 97 96 97 95 94 91 87 82 77 76 70 71 72 72 73 75 75 74 74 80 79 76 75 69 74 91 83 70 59 55 59 61 60 55 58 56 57 59 59 59 59 59 58 58 58 58 58 58 58 59 59 58 60 62 57 51 55 63 57 59 62 60 56 55 60 63 61 63 67 68 64 59 53 49 48 54 58 60 58 57 56 58 61 62 63 64 64 64 62 61 59 58 55 54 53 57 63 67 60 59 59 60 60 61 62 64 68 68 67 65 63 59 56 57 55 56 53 54 58 60 58 56 61 60 60 60 58 56 54 54 49 56 71 83 80 76 82 95 87 89 91 93 93 92 89 94 88 77 64 65 71 69 61 55 56 62 69 74 73 67 62 58 56 62 59 57 62 63 73 96 119 134 148 152 152 155 154 154 156 156 156 155 155 158 163 167 173 171 163 149 135 131 136 143 138 129 122 96 96 96 96 96 96 96 96 96 96 96 96 96 96 96 95 96 96 96 96 96 96 96 97 97 97 97 98 98 98 98 98 95 95 94 95 93 88 80 76 73 72 69 68 69 71 71 69 74 75 68 74 81 70 75 107 104 86 71 65 64 61 59 59 51 53 54 55 55 56 59 61 60 60 60 60 59 59 59 60 50 55 59 58 55 53 55 57 65 59 54 52 54 60 67 72 68 69 67 58 54 56 55 52 57 57 56 56 57 58 60 60 61 61 62 63 64 65 66 64 59 58 55 54 54 56 58 60 61 61 63 65 65 66 64 64 72 69 65 59 53 51 49 50 57 59 57 58 58 59 59 60 57 56 57 57 57 56 54 51 45 65 79 77 76 81 85 82 92 92 85 84 90 88 87 103 84 81 75 75 72 64 61 63 60 80 94 91 79 70 65 61 59 63 61 61 63 61 72 98 121 136 148 151 150 153 154 155 157 158 159 159 159 162 167 170 173 163 147 137 135 137 142 144 137 128 121 96 96 96 96 96 96 96 96 96 96 96 96 96 96 96 95 95 95 95 95 95 96 96 96 96 97 97 97 97 97 97 97 96 96 95 95 93 89 82 78 74 72 68 68 69 70 70 69 70 67 69 76 73 65 82 117 100 96 86 72 64 64 62 56 57 61 61 62 59 59 57 58 58 58 58 58 58 58 58 59 63 66 66 61 54 49 49 50 53 54 59 65 69 73 74 75 66 69 66 59 57 61 63 61 63 62 62 61 61 62 64 63 61 60 60 62 63 63 63 62 64 61 58 56 55 56 57 56 60 60 63 65 67 67 68 69 66 65 61 58 54 53 52 55 58 61 59 59 58 59 60 60 59 59 57 58 57 56 54 52 52 68 78 75 74 81 84 82 83 88 85 86 93 87 83 99 87 99 106 102 84 67 64 72 88 98 102 92 78 69 63 60 58 62 60 60 64 62 72 98 122 136 148 152 150 154 154 155 160 159 157 158 160 164 167 170 166 154 140 134 137 141 141 139 137 128 121 96 96 96 96 96 96 96 96 96 96 96 96 96 96 96 95 95 94 94 95 95 96 96 96 96 96 96 96 96 96 96 96 97 96 97 97 95 92 86 82 75 73 70 69 69 70 68 67 69 62 71 75 63 64 92 116 87 100 101 84 70 71 66 57 55 58 58 58 57 56 54 54 56 55 55 55 55 56 56 56 51 53 54 51 48 47 49 51 65 67 71 76 76 74 70 68 66 67 63 59 60 65 69 69 68 67 66 65 64 65 65 64 59 59 58 60 60 60 61 60 63 60 59 56 56 56 58 57 57 57 59 62 63 65 65 65 59 58 56 55 54 54 55 58 59 60 59 59 58 59 59 60 59 59 59 57 56 55 54 52 59 70 78 74 72 79 83 82 79 84 83 86 93 89 91 108 125 137 139 120 88 68 74 90 113 111 101 85 73 67 64 60 57 60 58 60 65 63 73 98 122 137 149 152 151 154 154 154 162 160 157 159 164 167 168 167 153 143 132 132 140 144 141 133 136 127 120 96 96 96 96 96 96 96 96 97 97 97 97 97 97 97 96 96 95 96 96 96 97 97 97 97 97 97 97 97 97 97 97 98 98 98 98 97 94 90 86 79 75 72 70 69 68 68 66 70 65 73 70 59 78 100 96 66 84 100 95 83 74 68 64 56 57 55 55 56 58 59 58 62 62 62 62 63 63 63 62 63 66 68 70 70 73 77 80 83 80 77 73 71 67 65 65 69 67 62 59 61 66 70 73 69 69 66 66 64 64 64 63 59 57 58 59 59 60 59 59 58 57 55 55 56 58 59 59 58 56 57 58 58 58 57 56 55 55 54 54 55 56 57 60 60 60 59 57 58 57 58 59 58 59 59 57 56 54 55 53 68 72 75 72 73 79 84 84 81 84 81 83 92 95 104 126 148 146 130 104 82 79 96 114 116 105 88 76 69 66 65 61 56 59 57 60 65 64 73 97 120 136 149 153 152 155 154 155 160 158 158 162 168 170 165 160 140 135 131 135 142 145 141 135 135 126 119 96 96 96 96 96 96 96 96 97 97 97 97 97 97 97 96 96 96 96 97 97 97 98 98 98 98 98 97 97 97 97 97 99 98 98 98 98 97 93 90 82 79 75 71 69 69 67 66 72 70 71 62 62 90 96 63 52 64 89 106 101 82 73 77 73 70 64 62 64 68 71 71 74 74 74 74 75 75 75 75 83 84 83 82 83 83 85 85 76 73 69 67 66 67 69 70 73 68 61 60 62 66 68 71 68 66 65 63 62 62 62 62 59 58 58 58 61 60 60 59 57 56 56 56 57 58 58 58 59 57 57 58 57 56 56 56 56 56 56 56 57 58 58 59 58 58 57 56 56 55 56 57 56 57 58 56 53 53 55 57 72 73 73 73 75 82 87 88 81 85 82 86 96 98 103 122 114 105 89 82 90 105 118 124 105 91 76 68 68 67 65 61 57 59 56 59 66 64 72 94 117 133 147 152 152 155 155 156 157 158 161 168 170 168 157 147 131 132 136 140 142 142 141 138 134 123 116 96 96 96 96 96 96 96 96 98 98 98 98 98 98 98 97 98 98 98 98 98 99 99 100 100 100 99 99 98 98 98 98 99 98 98 99 99 98 96 93 87 83 77 74 72 69 66 65 71 70 66 61 69 89 79 46 60 62 84 112 118 100 88 93 85 80 71 67 68 71 71 71 72 74 72 74 74 75 75 75 72 71 72 71 72 72 71 70 66 65 66 66 67 66 65 65 73 66 59 61 63 64 65 67 64 64 62 60 60 59 59 60 60 61 60 61 61 61 61 61 60 60 59 57 57 56 55 54 57 56 57 58 59 61 60 62 57 57 58 58 59 59 59 58 58 57 55 54 53 53 53 54 54 56 57 56 52 53 58 60 77 75 74 77 81 86 88 87 78 84 86 92 101 94 86 94 79 78 79 92 114 126 120 106 95 81 69 68 70 68 62 59 58 59 56 59 66 64 70 91 113 129 145 151 151 155 155 156 156 160 164 168 168 160 147 138 129 134 140 142 141 141 140 140 132 122 115 96 96 96 96 96 96 96 96 98 98 98 98 98 98 98 98 98 98 98 99 99 100 100 100 100 100 100 100 99 99 98 98 99 97 98 99 100 99 96 95 91 87 81 76 73 71 67 67 70 69 64 70 80 72 57 52 67 65 75 98 113 109 97 89 81 76 68 66 68 69 66 64 67 67 67 68 67 68 69 68 65 65 68 71 73 74 73 71 65 65 66 66 65 64 61 60 69 60 54 58 62 61 61 63 60 59 58 57 56 56 57 58 60 61 61 61 61 61 61 60 60 61 60 58 57 56 54 54 57 57 57 57 57 59 60 61 57 58 58 59 59 60 59 59 56 56 54 53 52 52 52 53 50 54 56 54 51 53 58 64 80 78 78 81 86 88 85 82 79 84 84 92 102 91 75 75 78 90 103 114 121 122 108 93 86 72 64 66 70 68 61 58 59 60 56 60 67 64 68 88 108 125 142 149 151 155 156 157 158 162 166 166 161 151 140 133 134 136 138 140 141 142 139 137 131 121 114 96 96 96 96 96 96 96 96 98 98 98 98 98 98 98 98 98 99 99 99 100 100 100 100 100 100 100 100 99 99 99 99 98 97 97 97 100 99 97 96 93 89 83 78 75 72 68 67 69 67 65 83 92 63 49 74 64 61 59 71 90 101 88 71 74 69 66 67 71 71 67 62 68 68 68 69 69 69 67 68 63 64 66 69 71 70 66 62 66 64 62 61 62 64 67 69 65 56 52 58 62 61 60 63 59 58 58 56 55 55 56 59 58 59 59 60 60 60 60 60 56 57 58 58 59 59 57 57 58 57 55 55 54 53 55 55 56 57 59 60 60 61 60 59 57 55 54 53 52 52 52 53 50 53 56 54 52 53 59 66 85 80 79 83 87 86 82 78 84 85 82 88 100 90 75 74 88 107 120 120 110 104 99 95 76 63 57 62 67 66 60 60 61 61 57 60 67 63 66 85 104 122 138 147 150 154 157 157 160 163 164 162 154 144 136 131 140 137 135 138 141 142 138 133 131 121 114 96 96 96 97 97 98 98 98 97 97 97 97 97 97 97 97 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 93 96 100 100 98 96 96 98 97 97 93 86 81 78 72 65 70 62 73 103 120 108 89 79 66 66 68 70 72 74 75 75 69 69 70 72 70 68 67 70 68 69 69 68 67 66 63 61 66 67 67 68 68 70 70 69 67 66 64 63 63 63 63 66 66 62 57 55 57 61 62 62 63 63 61 59 57 56 56 57 59 60 60 60 59 58 58 58 58 58 58 58 58 58 58 58 57 57 56 56 55 55 55 56 56 56 57 56 57 56 56 56 56 56 55 56 54 54 53 53 49 54 52 51 54 52 56 73 83 83 82 82 80 81 81 82 84 84 91 99 95 85 86 95 126 120 111 106 103 98 89 82 68 62 58 59 62 66 64 62 56 57 58 58 61 63 66 69 95 114 134 145 149 154 157 157 158 167 167 152 138 134 134 132 134 136 138 141 140 138 135 132 130 118 109 96 96 96 97 97 98 98 98 97 97 97 97 97 97 97 97 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 98 97 98 99 102 103 101 100 99 104 105 103 99 94 85 76 74 62 63 80 88 78 69 68 87 84 81 80 78 77 76 76 85 73 62 61 67 70 66 62 68 68 70 69 69 66 64 63 67 67 67 69 69 70 70 70 69 67 66 65 64 64 64 66 68 67 62 58 57 58 60 60 65 64 62 60 58 57 56 57 59 60 59 59 59 58 58 58 57 57 57 57 58 58 58 58 57 57 57 57 57 57 57 57 57 58 58 57 57 57 57 57 56 56 56 55 54 54 54 54 49 55 52 51 54 51 55 72 82 83 81 80 81 80 81 83 79 83 91 101 105 107 113 120 116 110 102 97 95 92 86 80 70 64 59 58 61 64 62 61 58 59 59 60 60 63 65 68 91 109 129 140 147 153 157 158 159 162 158 145 134 131 131 130 134 135 137 139 138 136 134 132 127 116 107 96 96 96 97 97 98 98 98 97 97 97 97 97 97 97 97 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 100 95 93 95 101 103 100 98 98 108 120 123 121 117 105 96 84 70 62 66 64 56 55 61 55 57 59 64 73 80 88 91 94 84 72 67 68 71 68 64 65 66 68 70 70 69 68 68 68 68 68 69 69 70 69 69 68 68 68 67 66 66 66 67 69 69 66 62 58 56 57 59 64 64 62 61 58 57 56 58 59 59 59 59 58 58 58 58 57 57 58 58 58 58 58 58 57 57 57 57 57 56 56 56 59 59 58 59 58 58 58 58 56 56 55 55 54 53 53 53 49 54 52 50 54 51 55 71 80 80 80 81 82 83 85 86 87 91 94 98 105 114 119 119 101 95 89 85 86 86 84 82 73 68 62 59 60 62 61 59 60 61 60 60 60 62 64 67 87 105 124 136 145 153 159 159 161 157 148 137 130 130 130 128 133 135 136 138 137 135 133 131 125 113 103 96 96 96 97 97 98 98 98 97 97 97 97 97 97 97 97 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 100 97 95 95 97 99 101 102 102 116 132 141 143 140 130 122 99 84 71 69 67 61 60 67 57 54 52 53 54 57 61 61 76 83 86 79 70 66 68 70 64 65 66 68 69 69 69 69 68 69 69 69 69 69 69 71 70 69 68 68 67 67 68 68 67 70 70 65 59 56 57 60 64 64 63 61 58 58 57 58 58 59 59 58 58 58 57 57 57 57 58 58 58 58 58 58 57 57 57 56 56 56 56 56 59 59 59 59 58 58 58 58 55 55 55 54 53 53 53 52 49 54 51 50 53 50 54 70 79 79 80 82 83 86 87 90 93 97 95 90 95 104 102 93 85 81 77 75 77 81 82 83 76 71 65 61 61 61 60 59 61 61 59 60 60 61 63 65 83 101 120 134 145 155 161 162 162 152 139 130 128 130 130 128 133 134 135 136 135 134 132 131 124 111 102 97 97 97 98 98 99 99 99 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 99 102 104 103 99 97 101 110 119 126 141 157 165 167 164 157 150 123 102 82 74 72 69 69 72 76 72 68 62 57 55 54 52 53 66 79 79 73 71 69 66 64 65 66 67 69 69 69 69 69 68 68 69 69 69 69 69 70 69 70 69 69 69 69 70 65 67 69 66 62 57 59 60 63 63 62 61 59 58 58 59 58 59 58 58 58 57 57 57 58 58 58 58 58 58 58 58 57 58 57 57 57 56 56 55 58 58 57 58 58 57 57 58 55 54 54 53 52 51 51 52 49 55 52 50 52 50 54 68 78 78 81 84 85 87 89 91 89 92 90 85 88 94 89 75 72 69 66 65 68 73 76 78 75 72 69 65 63 62 60 58 60 60 59 59 59 60 62 64 80 97 118 133 146 157 163 163 159 145 131 125 126 129 129 128 131 132 133 133 132 131 130 129 124 112 102 97 97 97 98 98 99 99 99 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 99 97 100 102 99 100 109 129 144 163 177 193 198 196 192 185 178 156 130 99 81 73 69 68 70 69 69 67 66 66 67 69 69 52 56 61 68 79 87 81 67 71 70 70 70 70 70 68 68 69 68 69 69 68 68 68 69 69 70 69 69 68 69 70 69 63 64 67 67 65 61 61 61 62 63 62 61 60 59 58 59 58 58 58 58 57 58 57 56 58 58 58 58 58 58 58 58 58 58 57 57 56 55 55 56 56 57 57 57 56 57 56 56 54 54 53 52 51 52 51 52 50 54 51 50 52 49 53 66 77 77 80 84 86 88 89 92 92 91 87 83 83 81 73 64 60 59 57 57 59 62 66 69 72 72 71 70 67 64 62 60 58 57 57 57 57 59 62 64 76 94 115 132 147 159 163 161 152 137 125 123 127 128 128 129 131 131 131 131 131 130 129 128 121 110 101 97 97 97 98 98 99 99 99 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 96 97 100 103 112 133 158 176 194 210 225 230 227 222 214 206 188 165 135 109 89 76 69 68 74 72 70 67 62 59 56 55 60 59 53 55 71 92 96 87 81 79 78 77 74 72 69 68 68 68 68 67 67 66 67 67 68 68 68 69 68 69 70 69 64 64 66 67 67 64 59 57 61 62 62 61 60 59 59 60 58 58 58 57 57 57 56 57 58 58 58 58 58 58 58 58 58 58 57 57 56 56 55 56 56 57 56 56 56 55 55 55 54 54 53 53 52 51 50 51 49 55 52 49 52 48 52 65 77 77 80 85 88 89 90 92 94 87 80 78 74 66 58 56 55 55 54 53 53 56 58 60 68 70 72 73 70 67 64 62 56 54 54 55 56 59 60 63 72 89 113 131 147 158 161 156 141 129 120 122 126 126 126 128 130 130 130 130 129 129 128 128 118 107 96 97 97 97 98 98 99 99 99 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 98 99 99 99 99 99 99 99 98 103 103 103 113 132 160 188 208 207 224 242 248 247 243 236 226 208 193 171 145 117 92 77 72 73 73 71 68 65 61 57 57 58 61 53 45 54 81 102 109 92 90 87 84 78 74 70 68 68 69 69 67 67 66 67 67 68 67 67 67 67 68 69 69 66 65 66 68 69 65 58 53 60 61 61 61 60 60 60 60 58 58 58 58 57 56 57 57 58 58 58 58 58 58 58 59 58 59 57 57 56 57 56 55 56 56 55 56 55 55 54 54 54 54 53 52 51 52 51 52 50 55 52 49 51 48 51 66 77 79 82 85 88 90 91 92 84 74 67 68 65 56 55 60 55 56 55 55 53 54 56 57 65 69 74 75 73 70 65 62 54 52 53 54 55 58 60 63 69 87 111 130 146 157 158 153 134 123 118 122 126 124 124 127 130 130 129 129 129 128 128 127 116 104 93 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 98 98 98 99 99 100 100 100 100 100 100 100 100 100 100 100 98 100 115 146 175 198 220 238 244 247 252 255 255 251 247 242 225 216 202 182 160 132 98 72 72 71 69 68 60 54 52 57 60 61 56 54 69 105 147 172 140 119 96 86 82 77 71 69 70 74 68 60 62 72 71 62 64 64 65 66 66 64 64 64 67 65 64 65 66 64 58 56 61 62 62 62 61 60 61 60 58 57 57 56 56 56 56 56 57 57 57 57 58 58 58 58 61 60 59 58 57 56 55 55 54 55 55 56 55 56 55 55 50 54 57 56 52 50 50 51 48 55 50 45 48 47 50 62 79 80 81 82 89 95 89 78 69 69 67 64 60 59 58 58 56 56 54 54 53 54 54 54 57 61 67 71 73 71 67 63 52 50 50 51 53 57 60 63 62 82 108 130 148 158 155 148 126 121 117 117 120 123 124 123 127 131 131 127 125 128 129 126 113 100 88 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 98 98 98 99 99 100 100 100 100 100 100 100 100 100 100 100 100 110 133 164 195 218 238 251 251 252 253 254 255 254 252 250 240 235 223 205 187 163 131 106 81 74 67 66 62 58 57 60 56 62 69 80 104 140 178 197 213 177 131 99 87 83 74 67 71 70 73 75 70 62 61 67 63 63 64 64 65 65 64 63 65 64 64 66 67 65 59 56 61 62 62 62 61 60 60 60 58 57 57 56 57 56 56 56 57 57 57 57 58 59 59 59 60 60 58 58 57 56 54 55 55 56 56 56 56 56 56 56 54 55 56 57 55 52 50 51 49 52 47 46 50 46 48 62 74 82 88 88 86 82 74 63 65 65 64 62 60 60 59 58 57 55 55 55 54 54 54 55 57 60 65 69 72 71 69 66 56 53 51 50 51 54 58 61 63 81 108 130 149 157 152 143 124 120 117 117 119 122 122 122 124 128 128 125 124 127 127 123 109 95 84 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 98 98 98 99 99 100 100 100 100 100 100 100 100 101 101 102 100 123 153 182 209 233 249 255 255 255 254 254 254 255 255 255 252 249 240 229 216 196 168 145 103 88 71 67 68 68 65 62 58 74 95 118 146 178 206 220 228 240 224 167 101 67 72 86 88 79 70 69 70 70 68 67 61 62 63 63 65 64 65 64 64 64 66 69 68 66 60 57 60 61 62 62 61 60 61 61 57 57 58 57 57 56 56 56 58 58 59 59 59 59 59 60 59 59 57 57 56 56 54 55 56 56 56 56 56 57 56 56 57 56 56 56 56 55 52 49 50 49 45 48 52 45 48 68 80 86 89 84 74 67 60 54 59 59 60 61 60 60 59 58 57 57 56 55 55 55 55 56 57 59 63 67 69 71 71 70 62 58 52 50 48 51 55 58 62 81 109 132 151 156 147 135 120 117 114 114 116 118 119 119 120 123 125 123 123 125 124 119 101 87 76 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 98 98 99 99 100 100 100 100 100 100 101 101 101 101 103 107 135 167 190 213 237 251 253 255 255 255 254 254 253 254 255 253 253 247 242 233 218 193 171 135 109 81 72 74 73 68 64 70 96 129 154 175 198 218 230 238 249 246 215 178 141 100 68 83 85 82 72 72 77 74 63 62 62 63 64 64 64 65 65 62 64 67 69 69 65 61 59 60 61 62 62 61 60 61 61 57 57 58 57 57 56 56 56 59 59 60 59 59 59 59 60 57 57 57 57 56 55 54 54 55 55 55 56 56 56 56 56 59 55 53 55 56 56 52 49 53 50 46 50 51 42 50 78 92 87 78 67 60 58 59 60 56 58 59 60 61 59 57 57 57 56 56 57 56 57 57 57 57 58 61 63 66 69 72 73 67 63 56 51 48 49 52 56 60 82 112 139 154 156 141 124 115 114 113 113 114 115 116 116 117 121 123 122 124 125 122 114 93 78 66 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 99 99 98 98 99 99 100 100 100 100 100 100 101 101 102 102 103 113 140 169 191 213 237 252 254 255 255 255 255 253 252 249 248 255 255 253 249 244 232 210 190 163 130 93 76 75 74 71 67 95 125 162 184 195 208 225 238 246 243 237 236 242 224 165 105 76 82 90 92 83 69 64 67 64 64 63 64 66 66 66 66 63 65 69 69 67 64 62 61 60 60 61 61 61 60 61 61 58 58 58 57 57 56 56 56 60 60 60 59 59 58 58 59 55 56 55 55 54 54 54 54 55 56 56 56 56 56 56 56 57 54 52 53 55 55 52 49 50 51 48 49 49 42 54 85 89 78 63 55 54 57 59 60 57 59 59 60 60 58 56 55 57 57 56 57 57 58 57 57 57 57 58 59 62 67 69 71 69 66 59 54 50 49 51 53 58 83 117 143 155 149 130 112 111 110 110 110 110 110 112 112 116 120 122 122 124 124 119 108 82 67 56 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 99 99 98 98 99 99 100 100 100 100 100 101 101 102 103 103 103 110 130 154 181 206 230 247 254 254 255 255 255 254 250 246 244 253 253 252 249 246 236 215 196 176 142 103 80 75 77 79 82 123 155 190 207 212 220 235 247 240 251 255 251 243 237 226 210 143 100 75 85 88 71 63 74 67 67 66 66 66 66 66 65 65 67 68 68 65 61 59 60 59 60 61 61 61 60 61 61 58 58 58 57 57 56 56 56 60 59 59 58 58 57 56 57 55 55 55 56 55 55 54 55 55 55 55 55 55 55 55 55 55 54 53 53 54 55 54 53 50 54 50 48 52 53 61 83 71 62 53 53 56 58 55 54 57 59 58 57 57 56 55 54 56 57 56 57 57 57 57 57 57 57 57 58 59 62 65 66 68 67 63 59 54 52 51 52 55 84 120 141 146 137 119 104 107 107 109 109 107 107 108 110 115 119 122 123 124 124 115 102 73 59 47 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 99 99 98 98 99 99 100 100 100 100 100 101 101 102 103 104 104 105 116 140 172 200 222 240 252 252 254 255 255 255 253 249 247 246 247 247 246 245 236 216 198 177 147 110 87 81 86 98 109 154 179 207 223 228 235 241 248 253 251 248 247 249 252 253 249 224 168 111 87 85 82 77 74 71 69 69 68 68 67 66 65 67 69 69 67 61 59 59 60 60 61 60 61 60 60 61 61 58 58 58 57 57 56 56 56 59 59 58 57 56 55 55 55 55 56 56 56 56 56 56 56 55 55 55 55 56 56 56 55 54 55 56 56 55 56 59 61 56 60 54 53 67 76 73 77 57 54 53 57 59 55 52 53 56 56 55 54 54 54 54 55 55 57 56 57 57 57 56 56 57 56 56 55 56 57 59 60 66 67 66 65 60 56 52 51 57 85 117 132 132 121 110 100 103 105 107 107 105 105 106 108 114 118 120 122 123 121 110 95 66 52 40 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 99 99 99 98 98 98 99 100 100 100 101 102 103 103 104 104 106 111 116 138 174 204 223 238 252 253 253 254 255 255 255 255 254 248 250 249 250 249 242 224 206 178 151 117 95 90 99 119 134 173 193 215 230 238 244 245 244 247 249 252 255 253 247 249 252 242 242 201 129 85 85 85 69 74 71 70 69 67 66 66 65 70 71 71 67 62 58 59 62 61 62 62 61 60 60 60 60 58 58 58 57 57 56 56 56 58 58 57 56 55 54 54 54 56 57 56 56 57 57 57 56 55 55 55 55 55 55 55 55 53 56 59 58 57 58 62 67 64 68 60 61 86 100 87 76 58 56 57 60 58 53 53 60 54 53 52 51 51 53 54 55 54 55 55 56 55 55 55 55 57 56 56 55 55 55 56 56 63 66 69 68 65 60 54 52 59 86 114 124 118 109 102 97 100 104 107 107 104 103 105 107 113 116 119 120 122 118 106 91 62 47 37 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 100 100 99 101 101 102 96 101 107 108 101 101 113 130 142 157 178 199 220 237 246 250 254 254 255 254 253 252 253 254 250 250 249 250 252 247 229 212 185 152 116 100 107 125 144 155 185 204 227 239 243 247 249 248 254 254 254 255 255 255 255 255 253 253 251 229 166 96 68 75 79 71 67 68 72 73 72 71 71 72 73 71 69 66 66 67 67 67 65 63 62 60 59 59 57 58 57 56 55 55 55 54 55 55 56 56 55 54 53 51 55 56 56 55 55 54 54 54 53 54 55 56 55 54 52 51 51 53 56 57 58 59 61 65 66 73 72 95 107 120 127 74 57 58 58 57 57 57 56 56 55 55 54 54 53 53 52 53 52 53 52 53 52 52 52 52 53 52 52 51 51 52 52 54 59 61 64 66 68 66 64 62 63 81 101 107 98 88 84 87 99 101 102 102 101 101 103 106 112 116 118 119 119 113 98 79 48 43 41 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 99 100 99 100 101 102 100 104 106 107 103 108 127 147 174 193 213 230 242 251 254 254 253 254 255 255 252 251 252 253 250 250 250 250 251 245 226 208 184 150 113 97 107 129 152 167 193 211 231 243 247 251 252 251 254 254 254 254 254 254 254 255 255 251 249 248 233 190 128 80 78 76 75 74 68 61 63 70 70 74 76 73 70 67 68 71 68 67 66 64 62 60 60 60 58 58 58 58 57 56 55 55 54 55 56 56 56 54 53 52 55 56 56 55 55 55 54 54 51 51 53 54 56 56 56 57 54 55 57 59 59 62 64 68 72 80 82 102 117 133 131 76 57 57 57 57 56 56 56 55 55 55 55 54 54 53 53 53 52 52 52 52 52 52 52 52 53 52 51 51 51 51 52 54 56 58 61 64 66 66 66 66 67 80 93 96 87 79 80 85 98 100 101 101 99 99 100 101 110 114 118 119 116 109 92 73 49 44 42 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 99 100 99 100 101 102 104 105 106 107 107 119 146 172 197 219 240 251 254 255 254 253 253 254 255 254 251 248 247 247 247 249 248 248 247 238 219 202 177 150 121 112 123 144 167 181 207 222 239 248 251 254 254 253 254 254 254 254 254 254 254 255 250 255 254 248 250 245 204 157 75 81 75 64 71 89 84 63 68 72 75 73 66 63 65 70 66 66 66 65 64 62 62 62 60 60 59 59 58 57 57 57 57 57 57 57 57 56 54 53 55 56 55 56 54 55 55 54 53 53 53 54 55 56 58 58 59 59 58 60 63 67 68 69 73 86 89 106 127 142 127 70 56 56 56 56 55 55 55 54 55 55 55 54 54 53 53 53 52 52 52 52 52 52 52 52 52 52 51 50 50 51 52 53 53 54 57 59 62 64 66 68 69 76 82 81 73 70 76 84 95 98 100 99 97 96 95 96 107 112 117 118 113 103 84 65 49 44 42 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 99 100 99 100 101 102 105 106 107 109 113 130 161 190 202 228 249 255 252 252 251 250 254 255 254 252 246 241 239 237 241 244 244 244 241 234 216 199 177 161 147 147 158 173 187 197 220 233 246 251 253 255 255 253 254 254 254 254 254 254 254 254 251 254 254 240 237 249 250 238 191 127 79 80 89 78 68 69 65 70 73 71 64 60 62 66 64 66 65 65 64 64 64 63 61 61 61 60 61 60 60 59 59 59 59 58 57 56 56 55 56 55 54 55 55 54 55 55 58 57 55 55 55 55 57 58 63 62 61 62 67 69 71 71 74 86 92 107 130 142 113 61 55 56 55 55 55 54 54 54 55 55 55 54 54 53 53 53 51 51 51 51 51 51 51 51 51 51 50 50 50 50 51 52 52 52 54 55 58 61 64 65 67 71 73 69 63 64 70 78 88 93 96 98 96 95 94 94 105 112 117 117 110 99 77 58 47 42 40 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 99 100 99 100 101 102 103 105 109 112 117 135 167 196 212 239 255 255 251 253 253 252 255 255 253 248 240 234 230 229 235 239 240 240 238 232 216 202 189 181 174 180 190 200 211 217 232 242 250 252 253 255 255 252 254 254 254 254 254 254 254 254 251 247 246 247 255 255 255 252 254 220 155 98 75 76 80 74 65 68 71 69 63 58 59 63 62 63 65 65 66 66 67 66 63 62 62 61 61 61 62 61 62 61 60 59 59 58 58 58 55 54 54 54 54 55 55 55 59 58 57 57 57 57 58 60 66 65 67 68 71 73 73 73 76 86 98 109 131 135 96 58 56 56 55 55 55 54 54 54 55 55 55 54 54 53 53 53 51 51 51 51 51 51 51 51 50 50 49 49 49 49 50 51 54 53 52 52 53 56 59 61 61 64 65 65 61 61 65 70 79 84 89 92 93 94 94 96 103 112 118 117 107 93 71 52 45 41 39 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 99 100 99 100 101 102 103 106 110 114 118 133 164 191 222 246 255 255 251 254 254 252 255 255 252 245 237 231 227 227 233 236 237 236 235 230 218 206 206 198 195 201 210 219 230 239 242 249 253 253 253 255 254 252 254 254 254 254 254 254 254 253 252 246 249 255 255 255 255 254 242 255 236 166 106 90 87 76 70 70 70 70 66 61 59 59 61 62 63 64 65 66 68 68 63 63 63 63 63 62 63 63 64 63 62 60 60 60 60 60 56 54 54 54 54 55 56 56 55 56 57 58 60 63 64 66 66 71 76 77 77 75 75 77 81 88 104 115 131 123 79 61 57 56 56 56 55 55 55 54 55 55 55 54 54 53 53 53 50 50 50 50 50 50 50 50 50 49 48 48 48 48 49 51 53 54 52 52 52 53 55 57 56 59 63 64 63 63 62 64 70 75 79 84 87 91 93 96 101 111 116 114 103 88 66 50 45 41 39 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 99 100 99 100 102 102 105 107 109 110 114 127 157 183 218 242 255 253 249 255 254 248 255 253 249 243 235 231 230 232 233 237 236 233 232 229 219 208 211 209 212 221 228 233 241 249 249 254 255 253 253 255 255 252 254 254 254 254 254 254 254 253 250 251 254 255 255 251 255 255 255 245 250 250 204 119 81 93 80 76 75 75 73 69 63 59 61 62 63 64 65 67 69 69 63 63 63 63 63 63 63 63 66 65 63 61 61 62 62 61 56 55 54 54 55 55 56 56 56 57 59 62 64 65 65 67 69 78 86 87 83 79 79 82 86 89 108 118 129 109 62 66 59 57 57 57 56 56 56 55 55 55 55 54 54 53 53 53 50 50 50 50 50 50 50 50 49 49 48 47 47 48 49 50 52 53 52 52 53 53 54 55 54 58 61 65 66 66 64 63 63 67 71 76 79 84 88 92 98 107 113 109 98 82 62 47 47 44 42 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 99 100 99 100 102 102 108 108 108 107 108 123 152 177 210 235 252 251 250 255 254 248 255 253 248 242 235 233 234 237 236 237 237 232 230 227 218 208 206 210 223 237 244 245 245 249 252 255 255 254 254 255 255 253 254 254 254 254 254 254 254 254 249 249 250 251 255 255 255 253 252 255 253 242 239 225 174 114 89 84 81 82 81 77 68 61 62 63 62 64 65 67 68 69 63 63 62 63 63 63 63 63 66 66 64 62 61 62 62 62 56 55 56 56 56 56 57 58 59 62 64 66 67 65 64 66 71 83 94 94 88 83 83 87 86 87 109 119 125 97 50 68 59 58 58 57 57 57 56 56 55 55 55 54 54 53 53 53 50 50 50 50 50 50 50 50 49 48 48 47 47 48 48 49 50 51 52 53 53 54 55 55 54 56 60 65 68 68 66 65 59 63 66 70 73 78 84 88 96 104 110 105 94 78 59 44 48 46 44 101 101 101 101 101 101 101 101 102 102 102 102 102 102 102 102 101 101 100 101 100 101 103 103 110 109 110 114 114 121 145 170 196 217 239 251 253 255 254 253 255 254 250 248 246 244 241 239 246 242 238 236 230 220 213 212 211 217 227 234 241 246 248 252 253 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 254 255 255 255 255 255 254 253 255 253 249 248 249 248 241 232 132 100 83 87 93 83 75 76 63 63 63 60 59 60 63 66 61 61 61 62 64 64 63 63 65 64 64 64 63 63 62 62 57 56 58 59 59 60 60 61 63 62 71 71 61 57 56 49 81 78 73 75 89 101 97 85 88 96 115 128 108 73 57 62 60 59 58 58 58 57 57 57 57 57 57 56 55 55 55 54 54 54 53 53 52 52 52 52 49 49 49 49 49 49 48 48 53 52 52 51 52 52 53 53 50 52 55 61 65 69 71 74 66 64 62 61 62 69 78 85 91 98 104 100 87 70 57 51 48 47 46 101 101 101 101 101 101 101 101 102 102 102 102 102 102 102 102 101 101 100 101 100 101 103 104 110 108 110 114 116 124 148 174 199 219 240 252 254 255 254 253 255 254 251 249 247 245 242 237 239 235 231 230 225 217 212 212 216 222 230 238 243 246 249 251 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 255 254 252 250 250 248 252 250 248 249 252 252 248 241 234 178 117 92 92 92 87 83 70 68 68 68 67 66 65 63 64 62 62 64 63 61 62 65 63 63 63 63 62 62 61 62 60 61 62 63 63 65 65 66 71 65 71 73 61 55 56 54 76 75 71 68 77 91 97 97 89 103 119 121 96 68 59 67 62 60 60 60 59 59 59 59 59 59 59 58 58 57 57 57 55 55 55 54 54 54 53 53 51 51 50 50 49 49 48 48 49 49 48 48 48 49 50 51 53 52 53 55 59 65 70 74 70 69 66 63 63 66 72 76 88 95 100 98 86 71 59 53 51 49 48 101 101 101 101 101 101 101 101 102 102 102 102 102 102 102 102 101 101 99 100 100 101 103 104 108 109 111 116 117 125 152 178 202 221 242 252 253 255 254 253 255 253 251 250 247 244 239 235 231 225 221 222 219 215 213 217 225 230 237 243 246 248 249 252 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 254 253 250 248 246 244 249 247 247 250 255 255 253 248 240 246 235 191 131 90 83 93 93 82 70 63 62 66 70 71 63 60 60 66 65 63 65 72 62 62 62 63 61 62 61 62 63 65 65 67 67 67 67 68 75 66 73 83 71 59 61 65 69 72 69 64 66 78 96 106 97 113 122 109 79 60 61 70 62 62 62 62 61 61 61 60 62 62 61 61 61 60 60 60 58 57 57 57 56 56 56 55 53 53 52 51 50 49 48 48 46 46 46 46 46 47 48 49 54 52 49 49 52 59 66 72 75 75 73 69 65 63 65 67 81 88 94 94 84 72 62 56 53 53 52 100 100 101 101 101 101 102 102 102 102 102 102 102 102 102 102 101 101 99 100 100 102 103 105 109 109 111 115 116 124 152 179 202 220 240 251 253 255 255 254 254 253 251 250 247 243 237 232 224 218 214 215 215 215 219 224 235 239 244 248 249 250 250 252 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 254 253 251 248 246 244 248 247 248 252 255 255 255 252 255 248 238 239 239 210 144 82 76 75 74 78 80 75 64 55 77 68 66 68 67 59 56 61 63 63 63 63 62 62 62 63 64 66 67 67 67 68 69 68 73 66 84 105 94 75 71 75 68 72 70 66 65 73 89 101 109 120 118 95 67 59 64 67 63 63 63 62 62 61 61 61 63 62 62 62 62 62 62 62 60 60 60 59 59 59 58 58 56 56 54 53 52 50 49 49 48 48 47 47 48 49 50 50 53 51 48 48 50 55 61 66 75 77 77 74 69 64 63 62 73 79 85 86 80 71 62 58 55 54 53 100 100 100 101 101 102 102 102 102 102 102 102 102 102 102 102 101 100 99 100 100 102 103 105 109 110 113 115 114 121 149 178 200 219 239 249 252 255 255 255 255 255 255 254 250 245 238 232 220 213 208 209 212 217 224 233 242 246 250 252 253 253 253 253 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 255 255 253 251 249 249 248 249 250 254 255 255 255 253 241 251 253 251 248 244 227 207 183 156 118 87 73 73 76 79 71 66 66 69 73 74 75 75 65 66 66 66 66 66 67 67 70 71 71 71 71 72 71 71 72 72 100 126 114 88 76 77 69 70 72 71 70 71 78 85 119 122 110 85 66 65 65 62 62 63 63 62 62 61 61 61 62 62 62 62 62 62 62 62 62 62 62 61 61 61 60 60 59 58 57 56 55 53 52 52 50 50 49 48 48 49 50 50 49 49 49 49 50 53 55 59 71 76 79 79 75 70 67 65 69 73 79 80 77 70 63 57 55 53 52 99 99 100 101 101 102 103 103 102 102 102 102 102 102 102 102 100 100 99 100 100 102 103 105 109 110 113 115 112 120 148 178 203 221 240 250 252 255 255 255 255 255 255 255 253 247 240 232 218 209 203 203 207 215 226 238 245 249 252 254 254 254 254 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 255 255 255 255 255 254 253 251 252 253 254 255 254 252 252 246 250 248 244 246 254 254 254 248 239 227 209 187 161 134 117 93 94 85 68 58 60 62 61 69 69 69 70 71 71 71 72 75 77 77 76 77 77 76 76 76 81 107 128 113 89 76 71 70 70 72 74 74 71 73 77 120 115 100 82 73 74 69 61 63 63 63 63 62 62 62 62 61 61 62 62 62 62 63 63 63 63 63 63 62 62 62 61 61 61 60 59 58 57 56 56 52 51 50 49 48 48 48 48 48 49 49 50 51 51 51 52 63 70 76 79 78 75 72 71 68 71 75 77 74 69 63 57 54 53 52 99 99 100 101 101 102 103 103 102 102 102 102 102 102 102 102 100 100 99 100 100 102 103 105 108 109 114 115 113 121 151 183 210 227 245 253 253 255 255 254 255 255 255 255 251 244 235 227 213 204 196 196 201 210 224 237 246 249 252 254 254 254 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 251 252 253 255 255 255 255 255 254 255 255 255 253 251 249 248 241 245 250 253 252 251 248 245 255 255 255 255 252 246 239 235 228 230 202 143 94 79 76 72 74 74 74 75 75 76 76 77 78 79 79 80 79 78 78 78 79 84 102 111 94 79 75 70 73 73 76 78 77 73 80 88 109 102 92 86 84 81 74 67 64 65 65 65 64 64 64 63 62 62 62 63 63 64 64 64 64 64 64 63 63 62 62 62 63 63 62 62 61 61 60 60 57 55 54 52 50 49 47 47 48 48 49 50 50 50 49 49 57 64 72 77 79 78 76 76 71 73 76 77 75 71 64 59 55 53 52 100 100 101 102 102 102 103 103 102 102 102 102 102 102 102 101 101 101 100 101 100 102 103 105 107 109 114 116 113 123 155 187 216 232 249 255 255 255 255 254 250 251 251 250 246 238 227 219 209 199 190 190 195 206 221 234 246 249 253 254 253 254 255 255 255 254 254 254 254 254 254 254 254 254 254 254 254 254 254 253 250 251 252 254 255 255 255 255 254 255 255 255 252 249 247 246 248 247 249 252 252 253 255 255 250 250 249 248 246 248 250 253 241 251 220 142 80 66 72 72 77 77 78 78 79 79 80 81 79 79 79 79 78 78 77 77 78 82 92 89 73 70 76 74 78 79 81 83 78 77 90 106 101 94 89 90 91 85 78 73 66 66 66 65 65 65 64 64 63 63 63 64 64 66 66 66 64 64 64 63 63 62 62 62 64 64 64 64 63 63 63 63 63 61 59 56 54 52 51 51 50 50 50 50 50 50 52 54 54 61 70 76 79 77 77 77 74 75 77 78 78 72 66 60 56 54 53 102 103 103 104 106 106 106 107 103 103 101 101 100 101 101 102 101 103 103 104 102 102 100 100 103 108 111 111 112 130 168 199 219 233 247 252 253 255 255 254 249 251 248 240 236 233 222 209 208 191 179 178 184 195 210 223 243 248 251 254 254 254 253 254 254 254 254 254 254 254 254 254 255 255 255 254 253 252 252 252 254 253 253 253 255 255 255 254 255 252 252 255 254 249 247 250 251 252 253 255 255 255 255 254 255 255 255 254 254 254 254 254 245 252 225 137 79 78 76 74 78 78 78 78 79 79 78 79 77 78 78 80 79 79 77 76 80 79 74 70 72 75 77 78 88 87 81 77 86 99 99 90 89 89 90 90 88 85 81 78 70 68 65 63 62 62 63 65 63 64 64 65 65 66 66 66 66 65 64 64 63 65 64 66 65 66 64 66 66 68 68 69 66 65 65 63 61 59 56 54 52 53 55 57 59 64 71 77 86 88 86 84 82 79 78 79 76 81 86 87 87 84 74 63 55 51 48 103 104 104 105 107 108 108 108 104 104 102 102 101 102 101 103 102 103 103 104 103 102 102 102 105 108 112 115 119 137 171 200 218 233 247 254 255 255 254 253 250 249 243 235 230 225 214 201 191 179 172 174 183 195 208 221 243 247 251 254 253 253 254 254 254 254 254 254 254 254 254 254 255 255 253 253 253 252 252 253 254 254 253 253 255 255 254 253 255 255 252 247 236 228 231 241 252 254 255 255 255 255 255 254 255 255 254 254 253 254 253 254 246 252 224 137 77 79 75 74 79 79 79 79 79 79 80 80 77 78 78 81 79 80 77 77 80 78 74 73 73 77 80 82 86 88 93 100 101 94 88 86 85 86 85 86 85 84 82 81 76 74 70 67 64 63 64 65 62 64 64 65 66 66 67 67 66 65 65 64 64 65 65 66 66 66 66 66 67 68 69 70 71 72 70 71 68 66 63 61 62 62 61 62 67 77 89 97 112 110 105 97 89 82 76 75 79 86 93 95 95 92 83 70 53 50 47 103 104 104 106 107 109 108 109 106 106 104 104 102 103 102 104 102 104 103 103 103 102 102 102 105 106 109 116 124 143 172 196 214 230 246 254 255 255 251 249 245 242 233 223 217 211 201 190 180 174 175 181 193 205 216 227 243 247 251 253 252 253 254 255 254 254 254 254 254 254 254 254 255 254 253 253 252 252 252 253 254 253 252 253 254 255 254 253 255 255 253 242 223 213 221 237 252 254 255 255 255 255 255 254 255 255 254 254 253 254 253 254 247 252 223 134 74 77 75 75 78 79 79 80 80 79 80 79 77 78 78 80 79 80 78 78 81 78 76 76 77 80 85 89 91 98 116 130 120 95 81 81 80 81 79 80 80 81 83 84 83 80 76 72 68 66 65 65 62 64 64 65 66 66 67 67 66 66 65 65 65 65 66 66 66 66 66 66 67 68 70 70 74 75 74 75 73 71 69 67 69 67 64 66 73 86 103 114 127 125 116 104 90 79 71 69 78 87 96 101 102 98 88 75 57 54 51 103 104 104 106 108 110 109 110 108 108 106 105 104 104 103 105 103 104 103 103 102 102 102 103 103 102 104 113 125 143 166 185 209 226 244 253 254 252 246 242 235 229 218 209 203 197 188 180 184 184 191 200 213 224 233 241 244 247 251 253 252 252 254 255 254 254 254 254 254 254 254 254 254 254 253 252 252 252 251 252 253 252 251 252 254 255 254 253 253 255 253 243 225 217 226 242 252 254 255 255 255 255 255 254 255 255 254 254 253 254 252 253 250 254 223 133 74 77 77 77 78 79 80 80 80 79 79 78 77 78 77 79 78 80 79 79 83 80 79 82 83 85 91 99 114 128 148 156 143 117 95 87 79 78 75 74 75 78 81 83 84 82 79 75 71 69 67 67 62 64 64 65 66 66 67 67 67 66 65 65 65 65 66 67 67 66 66 67 67 69 70 71 71 72 72 73 72 71 69 68 68 67 64 66 73 88 105 117 122 121 113 100 85 73 65 63 72 82 94 101 103 99 88 73 59 55 52 103 104 104 106 108 110 110 111 110 109 107 106 104 104 104 105 103 104 102 102 101 101 102 103 104 102 103 113 125 141 160 175 204 223 241 251 251 249 242 237 228 219 208 201 196 190 183 178 190 195 206 216 227 238 245 249 244 247 250 252 251 252 254 255 254 254 254 254 254 254 254 254 254 254 252 252 252 251 251 252 252 251 251 252 254 255 254 253 253 253 252 247 236 229 234 245 252 254 255 255 255 255 255 254 255 255 253 254 254 254 252 252 252 255 224 134 75 79 79 80 78 79 81 81 81 79 78 77 77 78 77 79 78 80 79 81 85 82 83 88 88 89 97 107 142 162 174 169 158 145 120 95 80 78 73 71 71 74 78 80 82 80 78 75 73 71 69 69 62 64 64 65 66 66 67 67 67 67 66 65 65 66 67 67 67 67 67 67 68 69 70 71 69 70 70 71 70 69 68 66 65 65 63 66 73 86 101 111 116 115 108 96 80 68 61 61 67 78 92 99 102 98 86 71 53 50 47 45 45 46 47 46 46 47 47 47 47 45 45 45 45 45 45 47 46 46 45 45 46 46 47 45 45 45 45 45 45 45 45 43 43 43 42 42 41 41 41 41 41 41 41 41 41 41 41 36 37 37 38 39 40 41 41 44 44 45 46 46 47 48 46 48 48 50 52 52 53 54 54 53 53 51 50 51 51 52 53 49 50 52 53 54 56 57 55 58 57 58 59 62 63 64 64 76 76 75 73 73 68 66 65 65 64 63 63 64 62 60 55 47 46 46 45 45 45 45 45 44 44 45 44 42 41 42 44 45 47 47 46 44 43 43 43 43 43 42 42 42 43 44 47 54 53 50 49 51 51 52 52 48 50 56 59 57 50 42 38 50 52 52 50 49 48 45 45 47 47 47 46 45 44 44 44 45 45 45 45 45 45 45 45 45 44 43 42 43 49 57 60 67 72 77 79 91 110 131 144 163 174 186 189 173 145 118 104 103 94 94 98 111 130 144 152 159 154 147 129 108 85 69 69 91 98 98 45 45 46 46 45 46 47 47 47 47 45 45 45 45 45 45 46 46 45 45 45 45 46 46 45 45 45 45 45 45 45 45 43 43 42 42 42 41 41 41 42 42 42 42 42 42 42 42 37 38 38 39 40 41 42 42 44 44 45 45 46 47 48 46 47 47 49 51 51 52 53 53 52 52 49 49 49 50 51 52 48 49 51 52 54 52 53 51 52 52 52 55 58 60 61 64 73 73 73 72 71 68 67 67 65 64 63 63 64 62 60 54 47 46 45 45 45 44 45 45 44 43 45 43 42 41 42 44 45 47 46 46 44 43 43 43 43 42 42 42 42 43 44 47 53 53 51 49 51 52 52 53 50 54 56 59 58 51 42 41 51 53 52 51 50 49 46 46 47 47 47 46 45 44 44 44 45 45 45 45 45 45 45 45 45 45 43 42 43 48 55 58 61 65 73 76 86 106 125 142 162 174 185 187 169 141 117 105 101 95 95 95 102 116 136 149 151 148 143 131 111 89 76 74 90 97 97 44 44 45 46 45 45 46 46 46 46 46 46 44 44 44 44 46 46 45 45 45 45 46 47 46 46 46 46 46 46 46 46 44 43 43 43 42 42 42 42 43 43 43 43 43 43 43 42 39 39 40 41 41 42 42 43 44 44 44 45 46 47 47 46 46 46 48 50 52 53 51 51 49 49 49 49 47 48 49 50 49 49 50 50 51 50 50 48 45 43 46 50 54 58 61 62 69 70 71 70 70 69 68 68 64 63 64 64 64 61 59 53 46 45 45 44 45 45 44 44 45 45 44 43 44 42 42 43 45 46 46 46 43 43 43 43 44 44 43 43 44 44 43 46 54 53 51 50 52 53 53 53 56 59 61 61 59 52 44 44 52 55 54 52 49 48 47 47 47 47 47 46 45 44 44 44 45 45 45 45 45 45 45 45 47 46 45 43 43 47 52 54 55 57 64 68 77 96 118 136 158 173 185 183 164 137 118 107 101 99 99 94 92 101 121 136 134 136 133 124 108 88 77 76 91 96 96 43 44 44 45 44 45 45 45 45 45 45 45 43 43 43 43 45 45 44 44 44 44 45 45 46 46 46 46 46 46 46 46 43 43 43 42 42 42 41 41 44 44 44 44 44 44 44 44 43 41 41 42 42 43 43 43 43 43 44 45 46 46 47 45 45 45 46 48 50 50 49 49 49 47 46 47 47 46 48 48 50 52 52 51 50 49 47 45 41 39 42 45 51 56 60 62 67 67 67 67 68 67 67 65 64 63 64 64 64 61 57 51 45 44 44 44 44 44 44 43 45 44 43 42 43 42 41 42 44 46 46 45 43 43 42 42 43 43 42 42 43 44 45 45 54 53 50 52 54 56 55 55 60 63 64 62 58 52 46 45 53 54 55 52 50 49 48 48 47 47 47 46 45 44 44 45 46 46 46 46 46 46 46 46 48 48 47 45 44 45 49 50 49 51 55 59 68 85 108 130 152 171 181 181 162 139 121 112 104 103 102 94 86 90 102 113 120 119 118 111 97 84 76 76 89 93 94 45 45 43 44 45 46 44 45 44 44 43 43 43 43 41 41 44 44 43 43 43 43 44 44 45 45 45 45 45 45 45 45 43 43 42 42 42 41 41 41 44 44 44 44 44 44 44 44 44 44 44 44 44 45 45 45 45 45 46 46 47 48 49 47 45 44 46 47 47 48 48 46 46 46 46 45 46 47 48 49 54 53 53 53 51 49 47 44 41 41 42 44 50 56 61 63 66 67 66 66 66 65 64 62 63 60 62 62 62 58 53 48 45 44 44 44 45 45 45 45 46 45 44 43 44 43 42 42 44 46 45 45 45 44 44 44 44 44 44 44 44 45 46 46 52 52 49 51 55 57 56 55 59 63 67 64 59 50 45 43 51 53 53 51 50 49 48 47 47 47 47 46 46 45 45 45 46 46 46 46 46 46 46 46 48 48 48 46 44 44 47 46 46 46 49 51 59 75 101 128 151 170 183 180 166 148 131 119 109 104 101 96 89 88 87 85 99 98 97 92 84 77 77 80 86 88 90 44 44 43 43 44 45 44 44 43 43 42 42 42 42 40 42 43 43 42 41 41 42 43 43 43 43 43 43 43 43 43 43 42 42 42 42 41 41 41 40 43 43 43 43 43 43 43 43 44 44 44 44 44 44 44 44 44 45 45 46 47 48 48 46 44 43 44 45 46 46 46 46 47 45 45 46 47 46 48 49 54 54 53 54 51 50 48 45 43 41 42 44 49 53 58 61 64 65 65 64 65 62 63 60 60 59 61 61 61 56 50 44 44 44 43 43 45 44 44 44 45 44 44 44 43 42 41 42 43 45 45 45 44 44 44 43 44 43 43 43 45 44 47 46 52 50 50 53 57 58 58 59 57 64 71 69 61 52 47 45 51 53 52 51 49 48 47 47 47 47 47 46 46 45 45 45 47 47 47 47 47 47 47 47 47 48 48 47 45 44 46 44 45 41 43 48 54 70 100 133 159 178 188 187 175 161 143 126 114 104 99 96 94 88 79 70 74 74 74 73 70 69 73 79 83 83 85 43 43 44 45 44 44 45 45 42 42 42 42 41 41 41 41 42 44 43 43 43 43 44 44 43 43 43 43 43 43 43 43 44 44 44 43 43 43 42 42 45 45 45 45 45 45 45 43 44 44 44 43 43 43 43 43 44 44 45 46 47 47 48 46 43 44 45 46 47 45 45 44 46 46 47 45 47 48 50 51 54 52 53 52 50 50 46 44 44 42 41 42 46 50 55 56 60 62 62 62 64 63 64 62 58 58 60 60 59 54 47 41 45 45 45 44 46 46 45 45 46 46 45 45 44 42 42 41 43 45 45 44 46 46 45 45 45 45 44 44 47 46 48 47 50 49 49 54 58 60 61 61 65 74 82 81 73 62 55 54 51 50 49 48 47 46 47 46 46 46 47 46 46 45 45 45 47 47 47 47 47 47 47 47 46 47 48 47 45 44 45 44 43 41 41 45 52 70 106 141 171 190 199 198 189 175 154 130 113 103 99 95 93 87 78 72 69 71 72 73 72 71 75 77 79 78 79 43 43 44 44 45 44 45 45 42 42 42 42 41 41 41 42 44 43 43 42 42 43 43 44 42 42 42 42 42 42 42 42 44 44 44 43 43 42 42 42 44 44 44 44 44 44 44 44 44 43 43 43 43 43 43 43 44 44 45 46 46 47 48 48 44 43 44 45 46 46 46 44 47 46 47 47 49 49 50 51 52 52 53 52 50 50 48 45 46 42 41 40 44 47 52 53 58 59 62 63 64 65 65 64 59 59 59 59 58 52 45 40 45 45 44 46 46 45 45 47 46 46 46 45 43 42 41 43 45 45 45 44 46 45 45 45 45 46 46 46 47 47 49 49 50 49 52 54 59 62 62 65 76 84 92 93 84 73 65 63 50 50 49 48 46 45 46 46 46 46 47 46 46 45 45 45 47 47 47 47 47 47 47 47 45 46 48 48 46 45 45 44 44 41 42 48 54 72 110 148 182 198 207 204 198 182 159 132 110 100 97 94 89 86 80 75 82 85 87 88 85 84 83 83 76 74 74 47 47 47 45 45 45 43 43 44 44 42 41 41 41 40 40 42 42 42 42 42 42 42 43 42 42 42 42 42 42 42 42 42 42 42 43 43 44 44 45 44 44 44 44 44 44 44 44 41 42 43 44 44 44 44 44 44 44 44 44 45 46 47 47 45 44 45 46 47 46 46 46 46 44 45 46 47 48 49 50 52 53 54 53 51 49 48 43 46 45 43 44 47 48 49 48 51 52 56 58 61 62 63 64 63 65 65 62 56 49 46 44 46 45 44 46 45 45 46 47 44 44 45 45 44 43 42 42 43 43 45 44 44 44 45 45 47 47 47 48 51 50 53 52 53 52 57 62 64 62 65 71 82 95 102 104 100 94 83 70 66 61 53 47 44 43 44 43 46 46 45 45 45 44 43 43 46 46 46 46 46 46 46 46 47 47 47 47 47 47 47 47 48 51 50 47 54 79 121 159 187 207 217 211 198 183 167 148 116 100 93 88 85 86 92 98 110 120 124 117 111 104 95 80 70 68 71 47 47 47 47 45 45 45 43 44 43 41 41 40 40 40 40 41 41 41 41 42 42 42 42 42 42 42 42 42 42 42 42 42 42 42 43 43 43 44 44 44 44 44 44 44 44 44 44 43 41 42 43 44 44 43 43 43 43 43 43 44 45 46 47 46 46 47 46 47 48 48 45 46 46 46 45 46 48 50 51 53 53 54 54 52 50 48 47 48 46 45 45 46 49 49 49 51 51 53 56 58 60 61 61 64 64 65 62 56 50 45 45 46 45 46 45 45 45 46 46 44 44 45 44 43 43 42 44 43 43 44 44 44 43 45 45 47 47 49 49 50 54 55 54 57 55 60 64 66 65 70 78 92 102 111 111 109 101 90 77 65 61 55 52 49 46 44 41 45 45 44 43 44 43 43 43 46 46 46 46 46 46 46 46 47 47 47 47 47 47 47 49 52 55 51 51 58 84 124 158 185 202 212 207 194 184 173 158 128 113 106 106 104 109 118 127 127 135 137 129 121 113 101 84 67 62 67 47 47 47 47 47 45 45 45 43 43 43 42 40 39 39 39 41 43 43 43 42 42 42 42 44 44 44 44 44 44 44 44 43 43 44 44 44 45 45 45 45 45 45 46 46 46 46 44 43 43 44 45 45 45 45 44 44 44 44 44 45 46 47 46 46 46 47 48 49 47 47 47 48 46 46 46 48 49 51 52 53 54 55 54 54 53 50 46 48 46 44 47 47 48 48 49 51 52 51 51 54 56 58 58 64 64 66 63 58 51 46 46 47 46 46 45 45 45 47 48 45 45 46 46 45 44 43 43 42 42 44 43 45 45 45 45 48 48 50 51 52 56 58 57 61 59 62 68 70 71 77 86 103 113 122 123 119 111 98 85 68 64 59 56 52 46 43 38 41 41 42 42 42 42 45 45 45 45 45 45 45 45 45 45 46 46 46 46 46 46 46 50 57 57 52 51 62 89 124 154 177 191 199 195 187 182 178 171 154 143 135 130 126 126 133 141 148 152 148 138 131 123 105 84 62 58 62 48 48 48 48 48 48 46 46 43 43 42 42 39 39 39 41 43 42 42 42 42 41 41 41 43 43 43 43 43 43 43 43 43 43 43 43 43 44 44 44 44 45 45 45 45 46 46 46 42 43 44 44 44 44 43 43 43 43 43 43 44 45 46 47 47 48 49 49 49 49 49 47 47 47 47 45 46 48 49 50 51 52 53 54 54 52 51 48 50 48 47 47 48 47 49 49 52 52 50 49 50 53 55 58 62 64 65 62 58 53 48 46 45 45 45 44 44 44 46 46 44 44 46 45 44 43 45 44 41 41 43 43 44 44 45 44 47 49 49 53 55 58 60 60 64 60 62 67 73 76 86 94 111 121 130 131 128 120 106 93 74 70 64 58 54 48 44 40 41 40 41 40 41 41 44 45 44 44 44 44 44 44 44 44 45 45 45 45 45 45 45 49 58 56 49 49 63 88 122 147 163 176 182 178 175 178 182 179 171 163 158 152 143 137 139 144 154 155 151 141 132 124 105 79 59 56 57 50 50 50 50 48 48 46 46 45 45 43 42 42 41 41 41 43 43 43 42 42 41 41 41 43 43 43 43 43 43 43 43 43 43 43 43 43 42 42 42 43 44 44 45 45 46 46 46 42 43 43 43 43 43 42 41 42 42 42 42 43 44 46 47 49 48 49 50 50 49 48 48 48 46 46 46 47 48 47 48 51 52 53 54 54 52 52 48 50 48 48 47 49 49 50 50 54 53 53 51 51 53 54 56 59 61 62 61 56 53 48 47 45 45 46 45 44 44 47 47 46 45 47 46 45 44 44 44 43 42 42 42 43 43 44 46 48 49 52 54 57 61 64 63 65 61 63 69 76 81 93 104 119 128 135 135 131 125 113 101 82 76 67 58 54 50 47 45 41 40 40 39 40 42 44 45 44 44 44 44 44 44 44 44 45 45 45 45 45 45 45 49 58 53 43 44 56 81 112 135 150 160 165 163 162 169 177 179 168 167 168 165 156 146 144 148 150 149 143 133 129 120 100 73 57 56 57 51 51 51 51 49 49 47 47 46 46 44 43 43 43 42 42 44 44 44 43 42 41 41 41 42 42 42 42 42 42 42 42 43 43 42 42 42 41 41 41 43 43 43 44 45 45 46 46 42 42 43 43 42 42 41 40 43 43 42 43 44 45 46 47 50 50 49 50 50 49 48 47 48 47 45 45 46 47 46 46 49 50 51 52 52 52 52 47 49 47 47 45 46 47 48 49 53 53 53 52 52 52 52 52 53 56 58 59 55 52 49 48 46 43 44 44 43 43 46 46 45 45 46 45 44 44 43 43 42 42 41 41 43 42 45 45 49 51 54 56 60 63 66 67 65 62 67 74 82 90 101 114 125 131 138 136 132 126 117 106 92 83 74 64 58 53 50 49 44 42 41 39 41 42 43 44 43 43 43 43 43 43 43 43 44 44 44 44 44 44 44 46 55 49 40 38 49 71 100 121 138 148 154 152 151 158 165 173 173 176 177 172 159 145 141 144 142 143 138 130 123 114 93 69 54 53 53 51 51 51 51 49 49 49 49 47 47 47 47 44 44 43 43 46 45 45 44 43 42 42 41 42 42 42 42 42 42 42 42 42 42 42 41 41 41 40 40 42 42 43 44 45 45 46 46 42 42 42 42 42 41 40 39 43 43 43 43 44 45 47 47 50 51 51 52 50 49 49 48 47 47 47 46 45 45 46 47 48 48 51 52 53 51 50 48 46 43 43 43 44 45 46 46 52 53 51 51 50 49 50 48 49 52 55 57 54 53 50 50 45 45 44 43 42 42 45 45 46 46 45 45 46 45 44 44 41 41 41 40 42 42 44 44 49 52 55 57 62 65 70 70 65 64 70 79 88 98 110 121 129 134 139 136 132 128 119 110 97 91 81 73 67 59 54 52 47 44 43 39 41 41 42 44 42 42 42 42 42 42 42 42 43 43 43 43 43 43 43 45 50 45 37 33 38 59 87 109 125 134 140 138 137 142 148 157 171 174 173 165 151 135 132 134 133 136 134 123 116 107 87 66 51 48 48 49 49 49 49 47 47 47 47 46 46 46 45 45 43 44 44 45 44 44 43 44 43 42 42 42 42 42 42 42 42 44 42 44 42 44 41 41 40 40 39 41 42 43 41 44 43 44 44 42 42 42 42 41 40 39 39 44 42 42 42 43 44 45 46 49 49 50 50 49 48 47 47 47 47 46 46 44 45 46 46 45 46 49 49 50 50 49 47 43 44 41 42 43 45 46 47 50 51 50 50 51 49 49 47 47 50 54 55 55 52 50 49 47 46 45 44 44 44 46 47 46 46 47 46 45 45 44 44 43 43 42 42 43 42 44 46 50 53 54 58 61 66 69 71 67 68 74 84 96 105 117 128 133 137 139 135 132 127 121 111 98 93 85 79 72 65 56 51 46 46 44 41 41 41 42 43 44 42 44 42 44 44 44 44 45 45 45 45 45 45 45 47 47 43 37 33 37 56 81 103 116 122 126 122 123 130 136 144 153 157 154 149 138 128 130 137 127 133 130 120 111 102 83 63 50 47 48 43 43 43 44 44 44 45 45 46 47 47 47 46 44 44 44 45 45 44 43 44 44 43 43 45 45 47 47 46 45 46 43 47 45 47 45 45 45 43 43 42 42 42 41 43 41 42 42 45 45 45 46 44 45 43 43 42 41 42 43 42 44 42 43 45 45 48 48 48 47 46 45 46 45 47 46 46 47 47 46 41 41 42 45 45 46 46 45 41 39 39 38 40 44 48 48 48 47 49 51 51 48 47 45 47 46 49 50 50 48 46 44 48 50 49 48 48 47 46 46 49 48 49 48 47 46 45 45 43 51 46 41 45 45 45 50 47 52 57 63 65 66 67 69 73 80 89 97 106 113 124 130 135 137 138 140 136 130 123 117 105 95 88 85 83 78 69 61 54 51 46 42 41 43 43 42 45 42 44 41 43 44 45 45 46 46 48 48 49 49 49 48 45 43 40 35 42 64 88 103 117 115 118 119 118 117 123 134 143 143 138 131 125 124 123 126 125 126 124 117 109 99 85 70 61 51 46 42 43 43 43 44 44 44 45 46 46 47 47 46 45 44 44 44 44 44 44 43 42 43 43 45 46 48 47 49 47 46 45 47 47 47 47 45 45 43 43 42 42 41 41 42 42 41 42 46 48 46 46 44 44 42 43 42 40 41 40 41 42 41 42 44 44 46 46 46 45 46 46 46 45 46 46 46 46 47 46 42 41 43 43 45 44 45 45 43 41 40 39 41 45 49 47 47 45 48 50 52 51 50 49 46 47 46 48 49 49 47 49 50 50 50 48 48 47 47 46 49 47 48 46 46 44 44 44 44 49 45 43 46 46 42 44 49 53 58 61 64 65 67 69 72 82 93 102 112 119 127 134 136 138 141 141 137 131 125 118 105 96 90 88 88 83 74 67 59 55 51 45 43 42 43 42 43 44 44 44 44 45 48 48 48 48 49 49 49 51 51 49 49 45 41 37 44 66 93 105 111 108 110 112 112 112 119 128 135 132 129 123 120 119 121 124 124 127 123 117 110 101 87 72 59 51 45 44 44 44 44 45 45 46 46 47 47 48 48 48 47 46 45 45 45 44 43 44 43 44 44 46 46 49 48 47 46 47 46 47 47 45 45 45 45 43 43 43 43 42 42 41 42 42 43 45 47 47 47 45 44 42 42 43 42 43 42 43 42 43 44 45 45 46 46 47 46 45 45 46 45 46 46 46 46 47 46 43 43 43 45 47 46 47 46 44 42 40 40 41 42 45 44 44 45 48 52 54 53 52 52 50 50 50 51 50 51 53 53 50 47 49 46 47 44 46 44 46 44 45 42 44 41 43 43 49 49 47 47 49 49 46 45 53 56 61 63 65 65 67 70 72 81 92 101 110 116 123 131 135 137 140 140 137 131 125 120 109 101 97 96 96 93 86 80 69 63 57 50 44 41 41 40 40 42 42 42 42 43 46 47 46 46 48 48 48 49 49 48 50 46 39 34 42 65 91 105 107 106 106 110 110 109 113 120 124 122 120 118 118 117 119 121 121 125 121 116 109 99 85 70 58 50 44 45 45 46 46 46 47 47 47 48 49 49 50 50 49 48 48 47 46 46 45 45 44 46 46 48 48 48 50 49 48 47 46 48 46 46 46 46 44 44 42 44 44 43 43 43 43 43 44 47 49 48 46 46 43 43 42 44 44 43 44 43 45 45 46 47 47 48 47 49 48 46 46 46 46 47 46 46 47 48 46 46 46 46 48 47 46 47 46 46 43 41 41 40 41 42 41 47 47 51 54 56 57 55 54 56 56 57 57 55 55 55 53 49 47 46 46 45 44 43 43 42 42 42 41 41 40 40 42 49 46 46 49 45 47 51 50 55 58 61 63 64 66 68 72 74 81 91 98 103 109 118 124 131 135 137 138 135 130 126 121 111 105 103 101 103 101 95 91 80 74 63 54 47 42 40 37 38 40 40 40 40 43 44 45 43 45 45 45 47 47 47 45 43 43 39 34 44 65 89 99 104 104 105 108 109 107 109 114 116 113 112 112 115 118 120 120 120 122 119 113 106 98 82 71 57 48 42 47 47 47 48 48 48 49 49 50 50 51 52 52 52 51 51 49 49 48 48 48 47 46 46 48 49 49 50 49 48 47 46 48 46 46 46 46 44 44 44 46 44 44 44 44 44 45 46 48 48 48 48 48 46 46 45 46 47 45 45 46 47 47 47 49 49 50 49 48 47 47 47 47 47 46 46 48 48 49 49 49 49 50 52 51 50 49 49 48 45 43 42 41 41 41 41 49 51 55 58 58 59 59 58 55 56 56 57 58 58 57 55 50 49 48 47 46 46 45 45 43 43 43 43 43 42 42 42 45 39 47 52 43 42 54 55 58 60 62 63 66 68 71 74 78 81 89 93 98 105 117 124 126 130 133 134 132 128 125 119 112 108 108 107 109 108 103 100 88 82 72 61 52 44 38 36 39 39 39 38 38 40 41 42 40 42 42 42 44 44 44 42 36 39 42 42 53 70 87 94 101 98 101 105 107 104 105 107 110 108 109 110 115 117 119 119 117 119 116 111 104 95 80 69 55 47 41 48 48 49 49 50 50 50 50 51 52 53 54 54 54 53 53 52 52 51 50 51 50 49 49 49 51 52 51 50 49 50 47 48 46 48 46 46 46 46 44 45 45 45 46 45 45 46 46 47 49 50 48 49 48 48 47 48 47 46 47 48 48 49 50 51 51 51 51 50 48 49 48 49 49 48 47 49 50 51 51 50 50 53 54 54 53 53 50 50 48 45 43 41 40 41 41 43 44 48 52 55 55 55 54 53 52 54 53 57 56 57 56 51 49 49 48 47 46 46 45 44 44 44 44 44 44 44 44 42 44 69 81 56 48 59 61 58 60 62 63 66 69 74 76 79 82 88 93 98 105 115 122 122 124 127 129 130 126 121 118 112 111 112 112 112 112 109 107 98 92 83 71 62 51 42 39 39 40 39 40 39 39 39 40 40 40 42 42 42 42 42 40 36 44 52 56 64 75 86 90 93 92 93 98 101 100 101 102 109 106 105 110 114 118 118 118 116 118 114 107 102 94 79 69 54 47 41 49 50 50 50 51 51 51 52 52 53 54 55 55 55 55 55 55 55 54 53 52 52 51 51 51 52 52 52 51 50 51 48 48 46 48 46 46 46 46 45 45 45 45 45 46 46 47 47 48 48 49 50 51 52 52 51 48 47 48 48 49 48 49 49 52 52 52 51 51 49 47 46 49 48 50 49 49 50 50 51 52 53 54 55 54 54 54 52 48 47 45 43 44 42 43 42 38 39 45 51 56 57 58 59 62 58 54 51 51 52 55 55 53 51 50 50 49 48 47 47 46 46 46 47 47 47 47 47 43 56 102 121 84 60 65 64 60 61 63 64 64 68 74 79 79 85 91 95 99 102 107 111 119 122 126 128 129 126 121 118 114 114 114 114 114 115 112 112 105 101 92 81 71 59 48 43 43 44 42 42 41 40 39 41 42 42 43 43 43 43 43 40 45 52 62 68 74 81 86 87 91 87 87 92 97 97 98 102 107 106 105 110 116 120 119 118 115 118 114 108 99 91 77 67 59 51 45 50 50 51 51 51 52 52 52 53 54 55 56 56 56 56 56 56 56 56 55 54 53 53 52 53 53 53 53 53 51 49 48 46 46 46 46 47 46 46 46 45 45 46 46 46 47 47 47 48 49 50 51 52 52 53 51 47 47 47 47 48 49 50 50 53 53 52 52 51 50 48 47 50 50 51 50 50 51 52 52 50 51 53 55 54 54 53 52 46 44 43 43 42 43 41 39 42 44 51 57 64 68 71 70 74 68 59 48 45 45 49 52 53 55 54 53 53 52 51 51 51 51 51 51 51 51 51 49 38 59 122 146 99 64 64 58 60 61 62 62 64 69 76 80 81 85 92 94 95 92 91 92 117 120 124 126 128 125 120 118 114 116 117 117 117 115 115 114 110 106 97 87 78 66 53 47 45 45 44 42 40 38 39 39 41 41 43 43 43 43 43 39 52 60 70 76 79 86 88 88 90 86 86 93 98 98 100 105 108 107 106 109 118 120 121 117 117 117 113 107 101 91 77 66 63 58 51 52 52 52 52 52 53 55 55 55 55 56 56 57 58 59 59 60 60 58 57 57 56 56 55 53 53 53 53 55 53 52 52 51 51 51 50 52 49 49 49 49 49 48 47 46 46 47 47 49 49 49 48 49 50 50 49 49 49 50 50 51 50 51 53 55 55 54 53 51 50 50 50 48 47 49 48 48 48 51 51 47 61 58 51 57 50 43 54 45 46 43 39 37 44 49 48 61 59 63 65 62 55 54 59 68 69 74 75 66 53 48 54 56 56 53 50 52 56 54 49 52 50 48 48 50 51 49 44 73 97 68 85 118 79 60 70 61 65 70 72 69 68 76 84 76 93 104 93 76 69 72 76 89 92 101 114 124 125 127 130 118 119 120 120 120 119 121 120 112 110 106 98 90 78 67 63 60 50 50 49 39 35 45 49 46 44 45 46 44 42 45 47 52 58 66 69 78 90 93 89 87 90 93 97 98 100 102 104 106 111 113 111 116 120 124 122 121 114 106 102 100 90 77 68 64 66 64 52 52 52 52 53 54 56 57 56 56 57 57 58 59 59 59 61 60 58 58 57 57 56 56 56 56 56 53 54 52 52 49 50 50 50 50 51 51 51 51 49 49 48 48 47 46 47 47 49 47 47 48 49 49 48 48 48 47 49 48 50 50 51 51 53 55 54 52 51 50 50 50 49 48 49 49 49 49 52 50 51 49 43 44 54 57 59 67 63 64 65 62 66 72 76 71 55 52 54 56 51 45 45 48 53 48 48 51 54 54 58 69 77 76 68 59 56 58 56 51 48 59 65 56 43 46 68 87 78 77 61 63 92 81 53 68 73 64 63 73 79 74 75 78 88 91 90 78 69 68 72 73 78 78 82 90 94 93 93 98 105 108 110 113 114 116 119 119 125 123 121 117 115 111 108 108 110 95 85 81 75 73 57 27 45 42 43 47 49 50 54 56 53 57 65 69 79 93 98 94 95 95 96 96 100 100 100 102 105 114 120 120 125 132 135 133 131 122 111 104 100 91 77 69 67 68 69 51 51 51 52 54 55 57 58 58 58 59 59 59 59 59 59 59 59 59 58 58 58 56 55 58 57 56 53 54 51 51 49 49 49 49 49 52 52 52 52 48 48 49 48 47 47 46 46 47 47 47 46 47 47 48 48 49 48 49 49 50 48 49 48 53 52 51 50 51 50 49 48 49 49 48 48 50 51 51 52 60 46 51 71 87 96 102 98 62 63 65 66 74 82 83 75 52 48 48 49 46 43 43 47 54 43 36 39 45 47 50 58 50 66 76 82 82 76 62 49 47 44 42 45 55 71 87 91 73 51 57 49 75 93 63 74 76 67 69 79 81 74 78 89 98 90 81 73 74 78 77 72 79 75 74 76 77 75 76 80 88 91 93 97 99 101 104 107 107 106 106 105 109 112 115 118 133 124 116 108 108 114 93 50 39 44 52 53 45 41 49 57 51 54 63 68 84 101 105 100 105 101 100 99 101 104 105 106 118 126 133 138 144 150 153 153 146 134 121 109 98 89 77 71 67 70 73 50 50 51 52 54 56 58 59 60 60 60 60 60 60 60 60 60 60 60 59 59 57 57 57 60 57 56 55 53 51 50 49 48 48 49 50 50 51 53 53 49 48 50 49 48 47 47 47 47 45 46 44 46 46 48 47 48 46 48 47 48 48 47 48 50 52 51 50 51 49 49 48 50 50 49 49 51 52 53 51 49 38 63 96 101 102 99 79 48 47 48 51 61 71 72 64 55 53 51 51 51 51 52 54 53 47 41 40 40 40 38 40 55 61 62 60 66 76 83 83 55 42 37 49 75 87 81 64 57 42 52 52 64 85 75 70 64 73 83 81 74 75 91 105 87 80 74 73 78 81 76 72 83 77 75 75 74 73 78 83 84 86 87 87 90 92 94 97 102 103 101 103 105 109 115 115 117 117 118 113 110 120 118 98 53 47 42 44 47 46 47 47 46 56 67 78 96 114 118 113 113 115 115 111 109 111 117 122 138 149 157 161 167 174 176 173 162 148 130 113 99 88 78 72 67 69 72 49 49 50 51 53 55 57 58 60 60 60 60 60 61 61 61 60 60 60 61 59 59 59 57 58 57 56 54 52 49 48 47 47 47 47 49 49 49 50 50 47 47 49 48 49 48 48 47 46 46 46 45 46 47 48 47 49 47 49 48 48 48 47 48 50 51 51 49 48 47 48 48 49 49 49 49 50 51 54 52 46 50 83 105 95 81 69 43 41 40 38 41 51 61 63 59 53 52 50 50 53 57 59 60 47 47 43 41 41 44 47 49 65 65 63 57 60 69 78 79 62 67 76 77 74 66 62 55 46 46 43 52 52 57 80 67 57 73 80 70 70 84 100 104 75 68 67 68 72 75 76 77 83 77 73 72 71 70 76 82 86 88 88 90 93 95 98 101 105 107 108 109 111 111 113 111 112 104 109 112 104 107 114 115 99 68 36 34 51 61 55 45 51 67 86 103 121 139 140 131 128 136 141 136 130 130 142 153 167 174 182 185 189 193 195 190 177 162 140 118 101 89 79 74 66 67 71 48 48 49 50 51 53 55 56 58 58 59 60 61 61 62 62 61 61 61 62 60 60 58 59 58 56 56 53 52 51 50 49 49 49 48 48 49 49 50 49 48 48 49 49 50 49 48 48 46 46 44 45 45 47 47 48 48 48 47 48 48 48 47 47 50 51 50 49 48 47 48 47 48 48 49 49 50 51 54 52 52 69 95 98 81 70 59 43 39 37 33 32 38 46 50 49 44 45 45 44 49 56 59 58 50 48 44 39 41 48 59 61 45 54 63 66 65 62 55 48 53 66 76 71 57 48 50 55 40 47 34 49 44 47 92 92 67 67 63 61 76 97 98 84 75 70 64 62 62 66 77 87 82 77 71 70 70 68 71 78 83 84 86 87 92 97 101 107 101 104 106 108 110 110 108 105 114 97 100 110 110 109 111 110 130 106 76 56 45 43 50 58 65 85 110 130 145 159 159 152 155 164 172 168 163 163 176 188 192 197 204 205 206 209 207 202 192 175 152 126 107 91 82 78 71 72 72 48 48 48 48 49 51 52 53 55 56 57 59 60 62 63 63 61 62 62 62 61 61 60 60 58 57 57 55 54 51 51 51 50 50 49 48 49 48 49 49 49 49 50 49 50 50 49 49 47 45 45 45 46 47 47 48 48 49 48 48 48 48 45 47 49 49 48 47 48 46 47 47 47 47 48 48 49 50 52 49 47 75 86 68 54 51 47 41 33 35 33 31 32 35 37 37 41 45 44 44 49 58 60 54 55 52 47 43 48 56 61 55 45 45 43 38 37 43 49 52 42 43 44 44 44 44 45 43 37 38 38 44 46 55 85 113 83 66 58 73 91 95 84 73 77 68 63 60 56 55 65 76 78 75 72 72 72 69 71 77 80 82 82 85 88 93 97 103 106 108 112 115 116 116 115 111 109 97 101 106 107 116 122 116 126 126 119 97 65 47 55 74 92 118 144 161 171 182 185 179 189 197 202 202 202 205 214 219 216 219 221 220 223 224 222 216 203 186 163 135 113 98 87 83 80 79 79 49 49 49 48 49 49 50 51 54 55 56 58 60 60 61 62 62 62 60 61 59 59 59 58 59 59 58 59 59 61 63 61 55 53 51 50 50 49 50 50 49 51 50 52 51 52 51 49 47 47 47 48 49 50 50 51 53 51 50 49 48 48 45 47 49 51 50 51 49 49 48 50 47 47 47 47 48 47 48 44 55 91 89 54 42 43 37 35 38 42 44 39 38 38 35 35 42 48 48 46 52 60 59 53 48 47 46 48 57 65 60 44 36 40 46 44 42 43 43 39 42 43 44 44 42 41 40 37 42 31 48 41 45 53 54 96 89 66 65 90 98 82 70 74 68 61 60 57 52 44 46 52 72 69 68 72 73 71 73 78 85 86 84 84 85 90 94 99 104 107 110 111 112 113 115 112 106 109 115 104 96 115 133 130 119 120 123 125 120 103 88 81 119 146 173 186 195 204 207 207 216 216 218 223 228 233 235 235 230 230 232 230 232 233 231 226 209 194 169 143 120 104 95 90 89 88 86 47 48 49 49 53 52 52 52 53 54 53 55 57 57 59 59 64 62 60 59 56 55 56 56 57 58 59 67 77 80 79 69 62 52 52 53 57 56 52 48 53 53 51 52 53 53 52 50 53 52 54 53 55 55 56 57 58 55 54 52 48 45 43 44 50 52 51 52 53 55 57 58 58 48 45 49 43 35 36 46 92 65 44 41 43 39 38 43 36 38 42 41 41 38 37 37 39 41 42 46 50 52 50 49 44 44 44 47 52 56 49 38 43 42 43 45 45 46 47 45 44 45 44 44 42 41 41 40 38 31 32 39 39 40 53 73 67 75 87 90 82 67 63 71 70 68 65 57 51 47 47 48 64 67 67 63 65 71 73 71 81 81 82 85 86 85 90 100 107 106 103 103 109 115 121 122 121 117 116 113 106 106 119 135 128 105 118 120 109 125 92 109 132 156 187 208 218 224 231 235 237 238 241 242 243 244 244 243 240 239 238 237 235 232 227 225 212 202 184 160 137 120 111 107 115 109 107 47 48 48 50 51 50 51 50 52 53 53 55 55 57 56 59 62 62 60 57 54 54 53 56 56 61 69 82 96 106 106 96 75 63 58 56 57 58 56 53 56 54 52 52 53 53 53 50 47 47 50 52 54 57 58 57 58 57 54 52 48 45 43 44 46 50 53 54 55 55 55 55 57 54 49 49 42 37 46 58 66 45 35 38 39 36 37 42 37 40 43 45 44 42 40 41 41 42 41 43 46 49 47 46 44 40 43 54 57 49 43 41 43 44 46 45 47 46 47 45 45 43 43 43 41 40 39 36 39 35 37 42 42 38 47 60 63 68 77 81 73 64 65 72 69 67 65 56 49 45 45 46 53 63 69 67 62 66 70 74 74 76 80 84 83 83 88 97 104 105 105 106 112 118 122 123 120 115 111 116 122 123 118 112 107 107 104 102 111 116 72 115 137 165 200 220 230 237 242 243 249 250 253 253 254 253 254 251 246 244 243 241 239 237 236 234 224 216 197 174 154 140 133 131 134 128 126 44 45 46 47 47 48 50 49 52 50 52 54 54 56 57 58 61 59 59 56 55 55 55 57 58 66 83 102 120 133 138 131 105 92 82 75 71 69 65 60 59 55 52 51 50 51 49 48 45 46 48 50 51 52 53 51 52 52 51 48 48 47 45 44 39 42 47 48 51 52 50 49 52 53 50 44 39 44 57 67 48 36 32 39 41 36 34 38 38 41 45 47 46 45 45 47 46 46 43 43 43 45 45 44 45 40 46 61 58 42 38 46 44 43 44 46 47 46 47 44 45 43 43 41 39 38 34 33 36 35 39 47 46 41 44 55 53 56 65 73 74 67 65 67 65 63 61 52 46 42 42 43 41 56 69 69 64 65 73 80 71 73 79 84 85 85 88 95 102 105 107 112 119 123 124 122 116 116 113 116 124 128 118 99 109 119 92 94 132 123 59 112 129 166 208 228 239 249 253 251 255 255 255 255 255 255 255 252 250 248 247 245 245 243 243 242 234 225 206 185 168 158 153 151 158 150 148 44 44 45 44 45 46 47 48 48 49 51 53 53 55 56 57 60 59 57 57 56 56 56 59 62 76 98 122 146 161 168 166 151 138 123 109 100 90 80 72 70 63 55 51 48 47 46 47 48 49 51 50 49 49 47 45 47 46 47 47 48 47 48 47 42 44 46 48 50 51 53 52 52 53 49 43 43 54 65 65 46 40 40 45 44 38 35 38 38 41 44 47 47 48 49 50 51 50 46 42 43 44 44 42 44 45 52 57 51 39 40 47 43 42 45 45 46 44 44 42 44 43 41 40 38 36 32 31 30 31 36 46 47 46 50 58 45 48 53 64 73 73 63 56 57 56 52 47 43 42 43 45 38 51 64 67 64 68 76 85 69 69 77 85 87 87 88 94 99 102 109 114 121 124 123 121 113 122 122 112 110 117 117 106 102 103 85 113 164 141 51 64 109 155 202 226 241 254 255 254 255 255 255 255 253 254 251 250 249 247 247 246 246 245 247 246 239 228 210 193 180 172 169 170 180 172 166 44 44 43 43 44 44 46 47 47 48 49 51 51 53 55 56 58 58 58 58 57 58 58 61 68 85 113 141 168 185 195 198 192 182 169 154 141 126 110 97 88 77 66 56 50 47 44 44 49 51 49 49 47 43 42 41 44 43 44 47 48 50 52 51 52 53 51 50 50 52 52 53 51 49 46 47 56 68 71 60 48 43 46 47 45 41 39 42 36 39 43 46 45 46 48 51 54 51 47 44 44 43 43 43 43 53 56 46 38 41 45 43 43 41 45 44 44 43 42 42 44 42 41 39 35 33 31 30 30 30 34 41 45 48 54 61 62 55 53 57 68 71 62 49 49 48 47 44 42 43 45 48 45 50 58 63 66 72 79 86 69 67 76 85 89 88 89 93 95 100 108 115 122 124 121 118 114 124 122 111 108 116 115 105 95 93 104 158 184 155 69 42 98 142 192 220 239 253 255 253 255 255 255 255 255 254 251 249 247 247 247 246 247 246 247 247 243 234 218 205 195 191 192 194 200 191 183 49 46 46 43 43 44 45 46 46 47 48 50 50 52 54 52 56 56 56 59 58 59 60 65 73 94 124 157 184 204 216 222 218 212 201 191 181 167 150 135 119 105 89 74 63 56 52 50 53 55 52 50 46 43 42 42 42 43 44 48 52 54 57 58 58 58 55 53 53 52 49 48 53 43 41 50 65 71 64 52 47 43 45 45 44 42 43 45 37 40 43 45 44 46 48 52 53 52 49 46 46 47 46 44 45 57 55 38 35 47 52 42 44 40 43 42 43 43 42 42 42 41 41 40 36 34 32 31 35 35 36 38 41 44 49 54 81 74 65 59 60 63 59 49 42 40 42 41 40 43 48 51 54 51 54 61 69 72 77 80 70 67 73 84 89 90 92 95 95 97 105 112 119 122 120 118 119 118 116 115 121 123 111 94 107 99 113 154 145 134 98 76 101 137 183 215 237 247 253 254 255 255 255 255 254 252 250 248 247 248 249 249 249 247 246 242 239 230 219 210 206 207 210 214 220 211 201 52 49 48 43 42 42 43 44 45 46 47 49 49 51 53 52 55 55 56 59 59 61 63 67 75 99 130 166 197 218 234 241 239 235 229 221 214 202 189 177 161 145 126 107 92 82 76 74 75 71 64 58 52 47 45 44 42 43 47 52 55 59 62 65 67 70 72 75 76 75 71 66 65 52 48 59 70 64 53 45 47 44 42 43 44 45 45 42 39 41 42 44 45 46 49 53 52 51 49 49 50 50 48 47 53 53 49 40 42 50 51 42 42 39 42 41 41 41 40 40 41 41 41 40 39 37 33 32 37 37 37 37 40 43 46 47 71 80 83 73 62 57 55 47 42 38 40 39 40 42 48 52 59 55 58 67 72 71 74 75 72 68 73 83 90 93 93 96 94 97 102 108 117 120 120 119 119 117 118 120 123 119 107 95 106 102 93 107 89 96 96 96 100 124 166 207 231 240 247 253 255 255 255 253 252 249 247 245 246 247 250 249 247 242 240 237 228 221 213 210 213 219 225 229 236 227 215 54 51 48 45 43 43 43 44 45 45 47 49 49 51 52 51 55 55 56 58 59 60 63 67 77 102 136 171 203 227 245 253 255 250 243 238 234 225 214 204 196 180 159 139 124 112 104 101 99 94 83 72 62 54 49 47 47 48 51 55 61 64 68 72 82 92 99 106 110 109 104 97 87 69 63 73 76 60 49 46 48 47 45 45 46 47 43 38 40 43 43 45 45 47 49 52 50 50 50 50 52 52 51 47 58 47 42 47 53 53 49 44 41 39 40 41 41 41 40 40 41 41 41 41 39 38 36 35 34 37 36 38 41 43 43 42 43 71 92 89 70 55 50 45 41 39 38 37 38 42 47 50 57 57 63 72 73 68 69 71 73 68 72 83 90 92 94 97 94 96 100 105 114 120 121 122 116 119 126 125 113 103 105 109 108 116 94 102 97 104 94 94 93 111 150 195 225 233 242 253 255 255 255 253 252 249 247 246 244 245 248 248 245 239 235 229 221 217 211 213 221 229 236 242 246 236 223 53 52 51 49 47 45 43 42 41 41 42 43 48 51 54 54 55 55 56 57 58 59 65 72 77 96 129 167 202 227 246 255 255 255 255 252 249 243 236 232 218 210 193 177 161 146 135 126 122 118 110 95 77 64 58 56 52 53 58 61 62 66 72 84 106 126 137 136 139 139 126 106 101 91 87 81 68 51 40 40 42 42 44 46 45 45 44 44 39 40 42 45 45 47 49 51 52 53 54 51 49 49 51 51 60 54 48 55 82 99 84 54 41 41 42 41 38 37 38 40 43 44 43 39 35 34 36 40 38 40 41 42 44 43 44 45 56 49 65 94 81 60 59 42 38 36 38 38 40 43 48 50 52 59 74 82 74 58 58 68 71 69 75 84 87 86 88 92 102 102 101 102 108 115 118 118 119 118 117 120 120 115 110 106 117 103 109 108 88 88 101 101 103 101 139 178 207 231 238 247 249 253 254 252 252 252 248 244 246 246 244 241 244 243 232 217 213 206 208 222 231 231 232 243 248 239 226 54 51 52 50 48 46 45 44 42 42 42 43 47 50 53 53 54 54 55 56 56 57 62 69 78 95 127 164 201 226 245 254 255 255 255 255 255 252 248 245 235 227 216 201 187 174 160 152 142 136 127 116 98 84 73 67 58 61 65 63 64 69 82 99 131 150 157 155 154 150 136 117 107 98 88 71 57 47 41 41 37 37 38 40 39 40 40 40 37 40 45 50 51 53 53 53 57 55 55 57 61 61 60 59 58 57 55 47 40 43 62 79 54 44 35 35 41 45 43 40 46 47 49 46 41 38 37 38 39 39 40 40 42 41 41 40 47 45 54 74 81 72 63 40 40 38 39 39 40 40 44 47 52 56 70 80 73 61 59 67 72 70 76 82 87 86 86 90 102 104 105 107 109 113 116 117 108 115 121 123 117 110 105 101 102 98 104 104 94 99 105 94 95 87 125 165 197 222 233 245 247 253 254 252 252 252 251 245 245 245 243 241 244 244 233 219 212 203 204 219 229 231 232 239 246 238 225 54 53 52 50 48 46 45 44 43 43 42 43 47 50 52 52 53 55 56 54 54 55 60 67 75 93 121 156 194 220 240 250 254 254 255 255 255 255 255 255 249 244 235 224 211 199 188 179 162 155 145 133 119 104 86 76 60 64 66 66 66 74 93 115 149 165 167 162 154 147 131 110 94 92 82 62 48 43 41 39 41 41 41 42 44 45 45 46 42 46 49 53 56 55 51 52 49 46 45 51 59 63 60 53 52 44 43 45 39 32 42 58 62 54 45 41 42 44 44 44 41 43 46 46 43 40 39 39 40 41 40 41 42 42 43 44 43 52 53 55 78 87 69 47 44 40 42 41 41 40 42 44 51 54 65 75 71 62 58 62 68 67 73 80 84 83 83 87 100 104 112 114 110 108 108 112 106 116 123 121 113 107 107 109 104 104 109 107 103 110 109 95 87 70 102 148 182 209 223 244 247 253 255 252 252 254 253 247 244 242 242 242 244 244 236 226 215 203 201 216 228 232 231 236 242 235 225 57 56 54 52 51 49 48 47 45 44 44 44 47 49 51 53 54 55 55 53 52 53 56 62 75 87 113 150 186 212 233 245 249 249 253 255 255 255 255 255 252 248 242 234 226 215 205 197 182 170 158 144 132 117 99 81 68 66 67 69 74 85 100 120 141 153 152 143 131 120 103 85 72 80 79 60 49 50 44 36 34 36 36 38 40 43 45 47 54 55 54 54 53 51 46 44 40 39 40 45 52 52 49 45 45 34 31 44 54 48 37 31 55 60 63 55 42 37 41 50 46 46 46 44 42 42 41 39 42 43 43 45 47 48 51 51 42 66 69 48 70 92 75 63 47 43 42 42 42 42 43 42 48 50 57 66 68 60 55 55 63 63 69 75 79 76 77 80 96 103 113 117 109 103 103 107 112 116 115 110 108 111 117 120 117 111 109 108 108 106 104 97 84 60 85 129 169 197 217 243 246 252 255 254 254 255 255 248 245 242 243 245 247 247 241 232 218 204 202 214 228 232 229 233 238 232 224 58 57 56 54 54 52 51 50 48 47 46 46 48 49 51 52 56 56 56 54 51 50 54 59 71 82 104 139 177 206 227 238 247 249 253 253 255 254 255 253 251 248 244 239 233 226 217 209 201 187 172 158 146 132 115 98 89 81 76 77 84 93 98 104 112 118 117 110 99 89 74 63 69 77 75 60 54 58 52 41 43 45 45 47 48 52 55 58 57 55 53 50 45 44 43 42 42 45 46 48 48 47 46 44 38 43 43 35 34 41 45 41 45 55 65 63 52 45 45 50 55 53 48 44 42 44 45 43 49 49 49 50 48 48 48 49 43 76 90 54 58 81 72 81 52 47 44 44 45 46 45 44 45 46 51 57 59 54 50 48 60 60 66 73 77 75 75 79 96 104 114 120 113 101 101 107 117 116 111 106 111 119 119 115 116 109 107 114 117 102 92 97 86 57 74 114 156 193 214 239 246 252 255 254 254 255 255 250 248 244 245 248 250 249 244 241 226 210 204 215 228 230 229 233 234 231 225 61 60 59 57 57 55 54 54 51 50 49 48 50 50 52 53 56 57 57 54 51 50 51 55 67 76 99 133 171 200 222 235 248 251 253 255 255 254 253 253 249 247 242 240 237 232 227 222 218 205 192 178 169 157 142 125 120 106 95 92 92 93 87 83 83 84 85 81 77 70 60 54 76 74 65 52 50 55 53 46 54 54 55 56 56 58 60 61 51 49 47 44 42 43 44 45 49 52 52 51 48 45 44 45 36 48 46 34 29 38 41 38 39 41 47 57 64 62 55 47 46 42 41 40 44 52 56 57 53 52 51 49 45 42 40 38 40 69 99 65 50 67 66 86 60 52 46 43 45 47 47 46 43 45 48 50 50 46 46 45 54 57 63 71 76 73 76 78 99 103 116 122 117 106 105 111 115 113 110 110 120 127 115 98 109 109 111 125 138 124 104 106 88 58 71 103 146 191 216 235 245 251 255 254 255 255 255 253 251 244 246 250 250 248 246 245 232 219 213 221 229 229 226 231 234 231 229 61 60 61 59 57 55 56 55 52 51 51 50 51 52 54 55 59 59 57 55 50 48 49 53 63 70 94 130 167 196 218 231 246 250 252 254 255 254 251 251 246 244 241 240 238 237 232 230 226 219 210 202 194 183 168 154 136 122 105 95 89 82 73 65 62 60 61 60 60 53 50 49 73 63 55 51 53 54 52 48 46 46 46 46 43 42 39 38 42 42 40 41 42 44 46 47 51 50 49 47 45 44 42 41 38 37 37 38 41 42 36 28 38 37 39 49 60 64 61 55 49 46 45 46 51 58 61 61 54 51 49 47 42 40 37 36 36 49 95 76 53 63 61 83 72 61 51 46 46 48 48 47 42 45 46 45 42 40 43 44 48 50 56 66 72 70 73 76 101 102 114 123 120 107 106 114 114 115 113 116 128 136 121 100 116 124 117 119 149 159 138 124 85 60 70 92 136 190 217 230 245 251 255 255 255 255 255 253 251 243 243 247 248 246 245 246 240 226 220 226 230 227 225 230 236 235 234 63 62 62 60 58 56 55 56 53 52 51 49 50 50 51 54 57 58 58 55 50 48 50 53 61 69 93 128 168 197 216 231 242 247 250 253 255 254 253 251 245 242 238 235 237 238 237 238 230 227 221 213 203 190 175 160 127 114 99 88 78 72 67 62 58 55 55 55 52 47 44 45 69 60 55 61 67 64 57 51 57 56 56 53 50 44 41 39 40 40 42 44 46 46 46 44 55 49 44 44 45 45 41 37 40 32 33 40 39 34 37 48 38 42 44 46 47 51 57 62 75 70 66 61 61 58 54 49 49 47 46 46 43 42 41 40 33 31 89 83 58 67 59 77 81 69 54 47 46 47 45 43 44 45 46 41 37 38 41 46 41 43 49 58 64 65 66 69 95 96 106 119 117 105 101 109 116 116 112 114 127 139 132 115 121 134 113 102 145 180 162 135 80 57 63 85 129 191 217 227 244 251 255 255 255 255 255 253 249 240 241 244 247 241 242 244 243 232 226 229 231 226 224 233 241 240 239 64 64 63 62 60 59 58 59 55 54 53 51 50 50 50 52 58 57 56 54 53 52 52 57 68 77 98 131 167 195 215 231 246 249 252 252 255 255 255 252 245 241 236 237 239 243 246 246 246 238 222 211 203 188 155 120 93 84 77 73 71 69 69 68 65 61 66 52 59 60 41 69 73 69 66 63 63 62 59 57 59 55 59 65 62 48 41 44 43 44 45 42 42 43 47 46 53 43 36 38 43 45 38 31 31 31 33 34 34 37 39 41 38 41 41 42 40 38 39 41 41 46 50 51 50 50 52 53 51 47 44 45 46 44 40 37 28 34 72 78 51 73 49 72 80 74 64 54 48 44 43 43 42 40 38 40 41 41 43 44 44 48 49 51 51 52 53 55 97 105 95 106 113 100 109 121 122 120 111 105 106 110 111 111 123 133 108 119 112 175 154 117 81 58 56 90 136 176 211 240 245 249 251 253 255 255 255 254 243 232 233 237 245 244 242 240 241 238 234 230 227 225 225 229 241 250 250 65 64 64 62 61 60 59 58 54 53 52 51 50 50 50 52 56 57 56 54 53 52 55 58 69 77 99 131 166 192 211 225 236 241 244 249 253 255 255 251 244 237 232 232 234 237 238 237 243 235 220 205 189 166 130 98 77 70 67 65 67 67 68 70 67 63 68 59 63 61 49 80 70 68 66 63 59 57 56 55 63 53 52 62 65 53 44 43 42 43 45 45 46 47 51 52 50 45 41 38 39 39 34 31 36 34 37 38 43 44 44 42 46 45 43 41 38 34 33 34 36 38 43 44 45 47 50 51 46 45 46 46 42 39 39 39 46 25 53 49 62 80 63 65 86 82 72 62 53 46 43 40 42 40 39 41 43 45 47 46 44 48 48 49 48 49 51 53 92 100 91 102 108 97 108 120 126 124 114 102 96 102 112 120 119 126 100 112 110 169 147 107 79 59 59 92 141 184 220 241 248 249 250 251 253 254 255 250 242 232 229 234 240 241 241 240 239 237 233 229 224 221 223 228 239 246 249 66 65 65 63 62 61 60 60 57 56 55 53 53 53 53 55 57 59 57 55 54 53 55 58 67 78 98 129 161 185 203 214 222 227 233 238 244 247 248 244 239 232 227 224 224 225 227 226 221 214 204 189 169 145 111 81 76 68 65 63 65 67 68 70 67 61 65 64 63 56 54 87 67 66 63 60 56 54 54 54 65 49 43 53 62 58 47 41 41 41 44 46 48 49 53 57 42 42 42 42 42 41 42 44 33 31 33 34 41 41 40 37 59 56 51 46 41 36 34 35 37 36 38 39 42 45 47 47 41 43 45 44 38 37 38 42 47 32 69 48 59 63 73 85 84 81 77 67 59 50 43 38 38 37 38 39 42 45 44 44 44 47 46 47 46 48 52 55 81 93 89 103 109 96 103 113 94 107 113 109 103 105 113 119 117 117 93 104 109 161 138 96 72 61 65 93 146 194 230 241 247 248 248 251 253 253 251 246 237 226 221 224 229 231 234 236 233 234 230 224 216 213 217 223 239 244 249 66 66 65 64 63 63 62 62 59 58 57 56 56 56 56 58 59 60 59 57 55 54 56 59 66 75 96 126 155 178 194 206 210 214 219 227 232 236 237 235 232 223 218 213 213 214 214 210 189 182 175 162 143 120 97 75 74 67 65 65 67 69 70 70 70 62 64 68 60 49 58 89 66 67 64 61 57 55 56 56 59 46 40 47 55 54 47 40 41 41 46 47 48 49 55 56 43 42 44 44 45 46 46 47 40 41 43 44 46 48 54 53 64 60 55 49 42 37 38 37 40 39 37 37 40 44 44 42 42 44 43 41 39 37 40 42 40 44 80 60 47 44 64 88 115 111 103 89 71 55 40 32 39 40 38 41 44 45 44 45 46 46 47 45 45 46 51 55 65 87 91 108 114 97 97 100 84 101 114 111 108 112 118 118 115 110 88 98 107 150 131 89 67 63 69 95 148 202 232 240 239 242 245 249 250 248 243 235 222 210 204 206 210 213 219 225 225 227 227 219 209 205 209 217 234 240 243 66 66 65 65 64 63 63 63 61 60 59 59 58 59 59 61 60 61 60 58 56 55 57 60 65 73 93 120 147 165 183 194 195 200 207 212 220 224 223 222 220 214 206 199 197 195 193 184 159 150 143 134 118 101 85 75 71 67 65 65 67 71 72 72 73 64 63 69 56 44 60 80 67 67 64 63 61 60 59 60 50 42 41 42 45 45 43 41 42 42 47 47 47 47 51 53 53 50 48 49 50 48 43 39 39 45 48 46 45 48 59 64 59 54 49 44 38 34 35 37 41 38 38 39 44 48 47 45 49 45 39 37 39 41 41 40 45 42 50 58 45 58 52 54 51 54 62 67 73 72 72 71 48 46 44 45 45 46 47 48 46 46 46 44 44 46 51 54 65 88 93 108 114 99 101 103 118 122 118 104 102 113 123 124 115 106 87 93 104 141 131 93 73 73 80 102 150 204 233 237 237 240 242 243 241 234 224 215 200 189 186 188 192 196 204 211 216 222 223 217 210 205 207 214 222 224 226 65 65 65 64 64 63 63 63 62 62 61 60 60 61 61 62 62 62 62 59 57 55 57 59 63 71 87 110 131 150 165 177 180 185 193 200 207 212 213 211 211 202 192 184 178 173 171 156 140 123 120 113 102 87 78 72 69 66 66 66 69 71 73 74 72 67 62 68 52 44 64 70 65 61 59 59 61 63 60 58 42 40 42 40 39 38 40 40 41 44 46 46 46 46 47 48 50 47 48 50 55 55 53 49 42 47 50 50 49 52 61 68 54 50 47 44 41 39 40 40 36 36 40 44 50 53 53 54 56 49 40 38 41 42 42 38 43 41 39 60 47 65 50 44 47 46 49 48 46 42 38 35 53 50 46 42 41 43 44 44 47 48 47 46 43 44 47 50 71 94 95 105 111 104 113 120 123 126 117 107 110 122 126 117 112 102 89 91 102 131 134 107 93 90 96 114 152 194 222 229 239 238 238 234 227 217 205 193 173 167 168 171 175 178 186 193 204 212 218 216 212 209 207 211 211 211 210 62 62 62 62 61 61 61 61 60 60 59 59 59 60 60 63 63 62 61 60 58 58 58 60 63 69 82 98 115 129 144 157 164 169 178 188 198 203 204 202 200 191 181 173 167 164 160 142 117 97 96 98 90 79 71 69 64 62 64 66 69 71 73 74 68 68 61 66 47 44 70 60 56 52 48 49 56 59 57 53 40 40 42 39 37 38 39 38 38 41 44 43 43 43 43 45 43 45 51 52 55 55 56 56 59 60 62 65 68 70 72 69 53 50 50 47 45 42 43 44 38 42 47 50 52 52 53 54 60 55 49 44 41 39 42 41 39 47 56 62 47 46 54 54 45 46 48 49 49 48 48 47 63 58 49 42 41 40 42 42 45 47 48 47 43 43 46 48 65 90 94 105 115 110 122 127 112 121 121 115 118 127 125 111 110 98 91 89 97 123 137 122 107 102 104 117 142 173 196 209 220 215 207 199 191 182 174 164 149 144 148 154 158 162 168 177 187 196 206 213 214 210 205 202 201 198 193 62 61 61 61 61 61 60 60 61 60 60 59 59 60 61 63 62 62 62 60 60 58 58 60 65 68 76 90 102 113 127 141 150 156 167 181 191 197 200 199 191 183 173 167 165 162 160 141 93 75 75 82 82 73 67 64 61 59 63 65 66 70 72 73 65 68 60 63 46 47 75 53 51 44 38 42 51 57 54 47 42 41 41 39 40 41 39 37 36 37 41 42 42 42 41 42 51 56 60 58 50 45 45 49 51 48 49 54 63 65 57 47 48 46 49 47 44 43 41 42 43 48 54 55 52 49 48 50 61 60 55 47 40 37 41 45 42 45 60 50 49 32 57 51 40 41 41 41 43 42 43 43 78 70 59 50 47 46 49 49 45 47 48 46 44 42 44 45 50 81 93 112 121 114 124 125 131 137 128 113 112 124 127 116 106 97 94 87 94 116 139 132 110 103 104 113 130 150 173 189 185 178 167 158 151 144 140 134 130 127 133 140 144 146 154 162 170 181 196 205 210 207 201 195 189 184 180 61 61 61 61 61 61 61 61 59 59 59 60 60 61 61 61 63 63 61 61 61 60 60 62 61 67 72 79 88 98 105 114 129 142 155 167 179 193 201 199 192 188 178 168 167 171 163 132 82 60 64 67 67 62 62 69 60 58 61 64 67 72 73 72 62 57 54 51 47 48 56 68 49 54 46 46 59 51 39 44 37 39 41 40 37 38 39 40 39 40 40 36 34 37 46 53 51 49 46 43 41 40 40 40 42 41 46 55 62 59 54 49 54 43 42 45 45 39 40 47 50 52 54 53 50 47 44 44 50 49 49 75 26 35 62 38 40 55 64 55 42 42 49 55 52 46 41 38 42 46 48 46 88 79 58 44 47 45 39 42 37 38 38 37 39 42 46 49 48 59 87 112 118 124 131 124 132 128 123 122 124 124 120 115 110 92 92 91 86 107 128 122 109 102 99 106 119 129 131 132 127 124 118 113 111 114 118 117 119 121 127 132 134 135 140 144 147 154 167 185 199 202 196 188 183 174 168 61 61 61 61 61 61 61 61 59 59 59 60 60 61 61 61 63 61 61 61 59 60 60 62 64 67 70 74 81 88 94 102 116 131 145 157 172 188 196 196 193 186 171 162 164 168 158 125 69 46 46 53 59 58 58 61 61 60 62 65 69 70 70 67 55 52 49 47 44 43 53 65 64 61 51 49 57 56 43 35 39 40 42 42 40 40 40 40 40 38 37 37 42 46 48 49 39 38 38 39 40 42 44 47 45 43 46 55 59 55 51 48 47 56 59 48 43 47 49 45 62 61 58 54 52 51 53 55 45 53 50 63 63 43 46 30 49 58 64 56 45 44 48 49 46 42 39 40 43 48 50 47 89 78 56 43 49 48 44 47 43 42 42 41 41 40 40 41 48 57 84 106 116 124 132 128 132 128 125 125 125 123 118 113 110 93 92 92 89 104 119 111 98 92 93 99 107 112 112 109 93 93 92 94 95 101 105 107 116 118 124 125 127 130 134 137 134 139 151 168 183 191 188 186 181 172 163 60 60 60 60 60 60 60 60 58 58 58 59 59 60 60 60 61 61 61 61 59 60 60 60 65 65 68 70 75 78 83 90 103 118 133 145 164 181 190 189 193 183 169 158 162 165 152 118 70 49 45 50 56 59 58 57 62 62 63 66 69 69 66 63 52 48 43 42 40 42 51 60 62 54 52 55 61 69 60 35 40 39 41 43 44 43 41 41 41 35 35 42 51 54 49 43 39 38 37 37 37 38 40 41 45 43 47 54 58 55 51 51 55 58 64 64 66 67 62 55 60 59 57 55 51 49 49 50 44 57 52 57 106 65 45 44 55 60 59 54 46 45 43 42 39 37 39 41 46 49 49 49 89 77 51 40 51 54 51 54 56 55 54 50 49 46 42 41 47 54 77 101 114 126 136 131 131 129 127 127 127 124 117 111 109 94 90 92 90 97 101 90 81 79 82 88 93 94 92 88 77 80 85 89 96 103 106 109 114 116 120 121 121 122 126 129 127 128 134 146 162 174 178 180 173 165 155 59 59 59 59 59 59 59 59 58 58 58 59 59 60 60 60 61 61 60 61 59 60 60 60 64 64 66 67 69 70 73 79 95 109 123 137 156 173 183 179 186 180 170 161 159 156 140 108 82 66 63 61 60 59 59 60 65 65 68 69 72 68 64 59 54 49 43 42 41 42 48 58 55 49 57 63 63 76 74 43 41 36 37 41 44 44 42 41 38 38 41 47 55 54 46 38 41 41 42 40 41 41 41 43 44 44 49 57 60 59 61 65 74 54 58 89 105 90 73 72 56 56 57 58 55 49 42 37 45 50 47 64 112 83 59 68 58 57 53 48 45 42 38 35 35 36 38 44 47 45 47 50 81 71 48 41 55 58 53 53 57 57 57 56 53 50 46 45 44 49 72 95 111 127 136 133 127 127 127 128 128 123 116 110 104 92 86 90 92 90 82 71 66 67 73 80 86 88 88 87 90 92 98 104 108 111 113 112 113 116 117 118 118 118 119 122 124 123 124 133 150 164 175 181 175 165 153 59 59 59 59 59 59 59 59 58 58 58 59 59 60 60 60 60 60 60 61 59 60 60 60 60 62 62 63 65 66 69 74 89 100 113 125 145 162 168 164 167 171 169 158 148 137 119 95 84 78 78 72 62 60 62 62 66 67 71 74 73 70 63 57 55 47 43 42 41 42 46 54 65 59 66 65 54 66 76 62 50 40 35 40 45 42 41 43 37 41 47 52 53 48 43 39 43 44 48 48 53 54 56 58 53 54 61 67 70 71 78 82 77 63 75 105 118 100 83 82 68 65 62 60 57 51 42 36 42 40 50 84 90 86 63 70 64 55 48 45 45 43 39 35 35 36 40 45 44 41 46 53 71 65 48 45 57 58 49 49 48 49 50 51 50 47 46 46 42 43 66 89 108 128 137 131 124 126 127 129 129 124 117 112 101 93 86 90 93 82 66 60 63 67 75 81 86 90 95 97 101 104 109 113 114 114 112 111 114 116 116 116 116 114 116 119 123 120 120 130 149 167 181 193 191 182 168 58 58 58 58 58 58 58 58 58 58 58 59 59 60 60 60 60 60 60 61 59 60 60 60 59 59 60 63 63 64 65 70 80 93 101 115 133 151 157 151 150 159 161 150 133 117 100 80 72 78 81 74 64 60 63 66 70 70 71 72 73 69 62 54 53 45 40 40 41 42 45 51 69 63 62 56 47 58 80 91 67 51 37 39 43 43 43 44 38 45 52 52 48 44 43 45 56 59 61 60 61 61 60 62 65 66 75 78 78 79 88 95 72 91 108 107 99 95 88 74 81 71 58 50 45 45 43 42 47 40 66 99 71 75 57 57 74 60 48 45 47 43 41 40 38 37 41 45 41 39 47 59 65 61 50 46 55 54 46 45 45 44 47 49 49 49 49 50 41 41 58 82 104 125 137 132 125 127 128 128 127 121 115 111 99 96 88 91 95 78 58 56 69 73 83 89 93 96 103 108 108 109 111 112 111 110 108 108 113 113 114 114 111 112 114 116 118 116 119 132 153 175 190 204 202 192 175 56 56 56 56 56 56 56 56 56 56 56 57 57 58 58 58 60 60 60 61 59 60 60 60 58 59 59 62 62 62 60 65 77 87 95 109 128 146 152 145 142 148 148 135 121 108 91 75 66 75 79 73 67 66 67 66 69 69 70 70 70 66 60 53 51 43 39 41 42 44 49 55 58 57 51 50 50 52 69 97 91 67 47 45 46 42 43 47 44 47 51 50 47 44 47 53 66 68 69 65 63 60 56 55 65 69 77 80 80 84 96 104 87 108 116 100 89 90 84 66 82 67 49 40 36 38 38 39 46 44 77 81 62 62 51 55 81 64 49 45 44 40 40 41 39 38 38 42 40 40 52 70 65 64 54 48 51 49 43 45 47 45 47 47 47 49 49 50 46 40 50 72 94 122 138 135 129 130 132 130 124 117 111 108 96 97 87 89 93 71 49 54 68 78 91 99 104 106 110 115 116 116 114 112 110 109 108 108 110 110 111 111 108 107 110 114 116 116 119 133 154 175 189 204 201 189 171 56 56 56 56 56 56 56 56 56 56 56 57 57 58 58 58 60 60 60 61 61 60 60 60 62 61 63 63 63 62 59 63 75 84 92 107 127 148 156 151 148 149 144 133 122 111 91 76 69 78 81 76 74 73 70 64 68 67 67 65 65 61 56 52 49 43 40 44 46 49 55 61 52 53 46 48 54 39 41 71 106 80 55 48 48 42 43 48 48 50 51 50 49 50 54 60 53 56 56 56 55 53 52 53 50 57 66 71 74 77 92 104 115 106 98 93 93 89 76 59 70 59 46 40 39 40 38 37 39 43 74 50 56 49 47 64 83 65 49 42 40 37 36 40 40 38 37 42 38 37 53 74 65 66 54 46 49 47 43 50 47 46 45 43 42 42 44 44 49 40 46 66 88 119 139 138 133 133 134 130 122 114 108 105 92 94 85 86 90 67 45 53 63 74 92 103 108 110 114 118 122 119 114 109 105 103 103 105 107 109 109 108 104 105 106 111 115 114 120 132 152 169 181 194 196 183 164 55 55 55 55 55 55 55 55 56 56 56 56 56 56 56 58 60 61 62 60 60 61 63 65 66 63 64 65 66 66 65 66 76 80 91 108 134 156 170 173 166 166 159 144 128 115 102 96 87 79 74 76 79 75 69 70 66 63 61 58 57 54 48 44 38 48 44 40 53 61 53 50 53 49 46 45 42 42 39 37 48 76 79 57 42 46 51 45 42 66 47 59 62 56 77 51 50 50 50 39 42 47 47 38 41 55 46 55 64 57 112 66 108 105 99 92 87 77 64 52 55 55 49 38 33 35 39 41 45 47 63 55 49 52 52 67 72 69 59 48 41 40 41 42 47 44 35 30 36 47 59 63 70 61 48 42 44 49 51 52 49 49 49 46 46 45 45 47 48 37 49 51 89 113 143 134 140 141 135 123 116 115 110 101 99 89 91 89 105 59 45 54 66 77 93 99 103 106 110 111 110 109 108 105 104 102 101 102 108 109 108 107 103 102 103 105 109 114 118 124 137 153 164 174 173 158 141 55 55 55 55 55 55 55 55 56 56 56 56 56 56 56 58 59 62 63 62 61 61 63 66 67 65 66 66 68 70 72 73 78 84 97 116 142 166 183 187 199 182 160 142 133 125 111 100 99 90 82 83 86 80 74 69 63 60 58 56 55 52 47 44 43 45 40 44 54 52 49 55 48 45 42 40 38 38 37 39 46 59 68 60 47 40 41 46 51 69 49 60 65 60 77 50 44 40 44 44 43 40 40 44 39 40 44 68 38 65 80 51 117 106 97 93 83 67 56 54 44 53 54 44 31 26 25 27 37 54 80 71 52 53 61 85 66 63 57 47 41 44 47 48 51 49 46 45 46 51 57 61 64 56 45 42 44 49 51 51 50 50 49 48 46 45 45 45 49 36 47 50 87 115 144 136 140 138 132 121 116 114 110 103 97 90 95 96 92 55 46 57 67 75 89 95 98 102 105 106 105 105 104 101 100 100 99 101 106 108 108 105 101 99 99 99 104 107 112 115 124 132 135 139 126 111 95 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 58 62 64 64 63 62 63 67 69 71 71 73 77 79 84 86 88 96 112 134 161 185 201 206 210 196 178 159 147 138 122 109 105 92 81 79 82 81 75 69 61 58 57 55 55 52 48 45 45 43 44 54 63 50 41 50 47 46 44 44 40 38 38 42 45 46 57 67 58 37 35 50 53 68 50 59 63 61 80 59 48 38 39 51 47 39 37 50 41 57 48 48 60 93 73 101 102 92 84 82 73 59 52 57 44 50 53 49 45 41 35 32 30 42 67 58 44 53 66 93 58 59 57 51 47 52 56 59 60 59 59 63 62 58 61 68 57 52 44 43 45 49 50 50 50 50 49 48 46 45 45 45 50 37 43 48 84 119 146 138 137 137 129 120 114 111 107 102 95 92 98 103 72 51 50 60 69 78 90 94 95 99 103 103 102 102 99 98 98 97 98 99 102 104 104 101 97 96 96 96 106 110 115 116 119 117 110 108 87 76 62 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 56 58 60 62 63 62 67 69 72 79 84 89 95 99 102 104 108 116 134 155 181 200 214 220 212 208 194 167 144 130 124 123 116 103 92 84 80 77 71 66 59 56 55 55 54 52 49 46 42 45 48 58 71 63 46 41 49 49 48 49 45 39 38 43 45 43 52 66 61 44 42 54 45 58 48 53 58 62 86 79 69 56 38 49 44 50 42 46 57 28 54 49 63 76 98 85 67 68 70 65 61 57 56 55 51 49 50 58 72 83 78 64 50 53 73 76 82 90 81 86 49 54 57 55 53 57 60 59 64 61 61 67 63 56 61 74 51 48 43 44 46 48 49 49 50 50 49 48 46 45 45 45 51 39 40 46 79 121 146 139 137 135 126 118 111 106 102 98 92 94 100 104 53 48 56 67 75 80 89 92 94 98 101 102 100 97 97 96 96 96 97 99 102 103 102 98 96 93 93 95 103 110 116 115 117 113 105 100 84 75 64 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 57 53 53 57 59 62 64 70 75 81 92 104 115 121 123 125 127 129 138 153 172 193 208 220 225 224 214 190 159 130 115 111 107 109 108 105 96 87 77 66 61 59 56 56 55 55 53 48 47 41 51 48 49 72 81 67 48 48 45 47 51 49 42 39 42 44 48 53 57 57 51 50 50 38 50 47 48 50 59 84 94 95 83 49 51 45 69 54 44 45 63 52 54 104 66 49 52 42 61 69 58 55 61 59 48 51 59 70 83 99 108 107 97 62 64 91 103 112 106 75 59 48 55 60 59 53 52 49 49 59 55 54 56 52 51 60 75 47 46 43 44 46 48 47 49 50 50 49 48 46 45 45 45 51 42 37 45 71 121 145 140 137 132 124 116 109 102 96 93 92 97 101 97 43 48 62 73 77 83 92 95 95 99 99 98 96 96 95 95 95 96 97 98 100 101 100 96 94 90 92 94 97 103 109 112 115 114 110 106 100 94 84 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 58 52 52 56 58 62 69 77 84 97 112 129 140 145 147 147 148 149 157 170 183 196 207 216 218 218 201 180 162 145 123 93 64 66 73 82 85 82 77 67 58 60 59 57 56 56 54 48 47 44 54 43 36 63 92 90 73 50 41 41 48 48 44 41 45 42 49 50 47 48 53 51 43 39 45 49 46 45 53 71 87 98 97 60 60 44 75 57 47 53 40 41 89 65 61 58 35 43 62 69 57 50 55 53 46 55 78 101 110 108 105 108 107 76 74 90 84 77 70 50 47 60 68 72 67 56 51 46 45 58 58 55 52 52 58 67 74 46 44 44 44 45 47 47 47 50 50 49 48 46 45 45 45 49 45 36 44 61 118 141 141 135 129 120 114 107 98 92 90 92 99 96 77 43 48 64 73 78 82 91 95 96 100 99 96 93 92 92 93 94 95 97 98 98 98 98 95 91 89 89 90 95 101 107 109 115 117 115 114 112 109 102 61 61 61 61 61 61 61 61 60 60 60 60 60 60 60 58 54 54 57 60 65 75 86 97 118 134 151 161 165 163 165 167 171 178 184 191 196 200 206 205 198 187 179 176 169 148 109 76 50 52 52 57 68 78 75 67 63 61 59 58 56 53 49 48 48 54 44 39 63 86 91 87 66 50 41 44 48 44 43 48 44 47 47 46 49 52 48 37 41 42 47 46 46 51 55 67 82 94 75 87 55 74 60 69 56 46 51 73 59 58 37 61 59 62 65 60 54 50 59 68 83 101 115 115 106 103 104 102 100 86 84 61 48 52 51 64 69 75 76 65 55 51 49 51 55 62 61 55 58 69 72 66 47 45 45 44 45 44 47 48 50 50 49 48 46 45 45 45 47 48 37 44 53 113 138 141 132 124 116 112 106 97 93 94 95 102 91 54 48 49 64 69 77 82 91 94 97 100 97 93 89 87 88 88 92 93 95 96 95 94 94 92 89 87 86 88 95 100 104 108 111 113 109 106 104 101 96 61 61 61 61 61 61 61 61 60 60 60 60 60 60 60 58 57 57 60 64 71 82 97 109 138 152 168 176 176 175 176 181 190 195 196 196 193 191 190 188 187 180 175 169 166 162 150 136 84 71 53 48 63 81 86 79 67 63 61 59 58 53 49 48 48 53 51 53 69 77 79 88 85 62 45 46 49 45 44 48 48 45 46 51 55 52 45 37 43 37 45 45 50 53 47 52 70 93 92 117 74 77 67 96 115 64 128 112 84 63 50 62 75 62 63 70 66 56 74 103 119 114 110 103 107 111 110 101 93 73 71 52 48 52 46 53 63 68 65 56 47 47 49 54 47 60 61 54 58 69 65 52 46 46 45 44 42 44 47 49 49 50 49 48 46 45 45 45 46 50 37 44 49 111 136 142 128 120 113 111 106 97 95 96 98 103 87 39 51 47 60 63 76 81 91 95 98 100 95 90 85 85 85 86 90 92 93 93 91 91 91 88 87 85 84 88 90 95 99 100 102 102 93 88 81 82 76 60 62 64 64 63 63 63 65 66 63 61 61 65 67 66 62 63 62 64 73 80 90 112 137 154 165 177 185 186 183 180 182 198 202 202 198 195 190 187 180 181 176 172 165 163 161 156 152 136 103 70 103 101 63 78 99 76 65 57 58 57 53 49 54 49 46 59 51 63 75 65 86 84 73 57 47 45 47 47 47 45 44 48 52 48 41 40 44 36 38 41 45 48 48 49 52 57 78 93 83 61 60 96 132 128 113 107 109 107 97 92 96 90 75 66 65 62 57 62 72 95 105 114 112 109 110 111 103 83 64 53 49 49 46 49 52 61 58 55 52 48 49 51 54 60 59 59 60 59 57 51 47 44 46 46 43 43 44 44 48 50 51 50 49 47 46 46 46 53 44 44 38 55 87 154 131 128 124 114 104 101 101 100 96 108 100 63 32 38 46 53 67 69 77 90 98 96 92 89 89 83 82 83 84 88 90 93 91 88 87 88 87 87 85 84 83 91 93 94 91 85 77 67 62 46 47 46 59 62 64 64 64 63 64 65 66 64 63 64 66 67 66 64 71 70 71 83 97 111 131 150 162 174 184 185 181 180 182 190 206 211 209 206 199 193 186 177 172 167 167 164 164 163 158 154 154 128 100 119 109 74 91 112 91 76 64 62 64 59 54 52 56 51 56 46 51 64 59 77 96 81 58 41 38 45 45 41 49 53 55 51 46 41 42 42 46 43 43 43 44 44 46 50 55 64 76 91 98 100 101 105 87 82 86 100 111 107 95 84 58 53 54 57 53 45 54 67 90 100 108 109 110 109 104 90 69 55 52 51 53 48 47 50 57 55 52 51 49 50 53 54 59 58 58 57 57 53 49 44 44 45 44 44 43 44 44 48 50 51 50 49 47 46 46 46 51 50 46 42 52 91 147 125 122 118 111 105 102 98 99 99 104 86 56 35 35 40 47 56 65 74 88 95 93 88 86 84 79 80 81 82 86 88 91 89 88 87 87 87 84 81 82 81 80 78 76 70 63 54 47 43 45 45 45 60 62 65 65 65 65 66 67 68 67 66 67 68 68 67 67 77 77 82 98 116 132 149 164 172 182 187 181 176 175 184 196 213 217 217 216 209 202 193 184 173 169 167 166 167 165 160 154 144 129 107 112 96 71 85 105 117 95 76 68 68 64 58 54 58 54 58 48 44 51 47 56 92 91 77 54 40 43 45 44 50 62 67 54 41 39 39 37 42 41 41 41 44 47 52 57 40 51 67 88 98 97 91 91 80 81 87 101 116 115 93 66 53 52 60 62 57 52 69 87 83 87 95 102 107 105 89 73 55 49 53 56 59 53 49 48 51 50 48 48 49 51 54 56 57 57 55 56 56 52 48 43 45 45 44 44 41 41 44 48 50 51 50 49 47 46 46 46 48 57 48 46 46 98 136 119 120 115 109 108 102 93 95 102 103 74 52 44 39 40 47 48 60 69 81 91 90 85 82 79 77 75 76 80 84 85 88 87 89 87 85 84 82 77 77 76 71 69 65 59 51 45 42 39 48 49 50 58 61 63 65 64 65 66 68 67 67 67 68 68 67 66 68 77 86 99 115 134 149 163 173 180 183 180 175 172 177 190 202 221 225 225 225 217 208 198 189 179 175 174 171 170 167 158 150 139 132 118 113 99 87 96 109 137 116 93 78 71 68 63 60 56 56 63 59 48 47 41 35 59 82 92 69 44 39 43 45 50 75 88 70 48 42 43 40 38 37 37 37 41 44 48 52 39 44 54 66 72 73 78 86 93 98 97 100 111 115 94 61 55 52 54 52 50 52 73 95 73 73 76 86 96 93 77 56 51 51 56 62 63 59 53 50 50 49 48 48 49 51 54 55 55 57 55 56 54 52 46 43 44 45 44 44 41 41 43 47 50 51 50 49 47 46 46 46 47 60 49 46 44 106 128 116 121 113 107 106 99 89 94 104 101 66 55 59 49 45 51 45 54 62 76 85 88 82 80 75 73 74 75 77 80 84 87 86 88 85 83 80 77 74 72 71 68 65 61 56 54 54 55 56 56 56 58 56 58 62 63 64 64 66 68 66 67 68 68 67 66 66 73 82 104 123 137 151 161 171 180 183 179 173 171 176 187 198 206 223 224 228 228 225 217 209 202 194 191 188 182 181 175 163 151 140 128 121 113 107 105 101 105 132 126 114 100 89 78 69 64 55 55 61 63 51 51 53 35 34 59 75 64 47 42 42 42 50 85 104 88 62 51 50 48 45 44 43 41 39 36 36 35 44 39 41 53 65 71 71 72 80 91 97 97 104 109 95 68 60 55 56 56 61 67 83 95 63 59 59 68 79 77 65 51 49 53 56 57 57 55 51 48 50 49 48 48 50 51 52 53 56 56 56 57 55 53 47 44 45 46 45 42 41 41 41 45 50 51 50 49 47 46 46 46 47 58 48 45 51 112 122 116 116 109 102 100 99 94 100 109 91 62 61 70 59 52 54 46 51 56 70 78 83 82 77 74 72 72 73 76 79 83 86 85 86 85 82 76 75 72 70 70 66 63 59 56 58 61 64 67 63 61 63 53 56 59 61 62 63 65 67 67 68 68 68 67 67 69 80 99 124 144 154 161 169 176 180 179 176 171 174 185 199 209 209 220 221 226 228 227 224 219 214 209 204 198 192 190 184 168 153 134 116 113 101 101 103 91 91 109 117 123 121 112 99 84 71 63 58 54 59 49 58 74 50 41 44 46 47 49 53 49 45 47 77 93 83 63 52 49 48 51 50 50 49 47 44 43 41 24 34 50 62 64 58 59 64 67 83 95 98 102 104 89 67 62 59 67 74 84 89 93 94 58 53 51 58 65 63 56 50 50 53 54 50 48 48 48 46 52 52 51 50 51 51 51 51 56 56 56 57 55 53 47 44 45 44 43 42 40 40 40 44 50 51 50 49 47 46 46 46 49 51 49 45 67 117 117 113 105 102 97 94 98 100 105 105 70 58 60 67 62 55 52 46 46 50 62 72 77 79 75 71 70 71 72 74 78 82 85 85 85 81 78 75 72 69 70 71 69 68 65 63 64 66 71 71 66 64 64 50 53 57 59 60 62 64 66 69 70 70 69 67 69 74 89 119 142 153 160 166 173 175 175 172 174 176 182 192 205 216 214 210 210 217 222 223 224 223 221 217 212 204 196 193 186 170 153 139 113 111 101 101 106 89 95 84 96 110 118 119 115 102 87 78 66 54 61 52 61 82 48 48 43 40 46 51 51 49 51 54 62 67 64 55 49 47 47 51 51 51 51 53 53 56 54 24 37 56 61 53 43 48 62 74 85 97 101 100 97 82 64 47 47 57 64 72 74 73 70 59 54 54 60 57 52 50 52 48 53 52 46 42 44 46 44 53 52 52 51 53 53 53 53 55 55 55 56 54 52 46 43 46 45 43 42 38 38 40 44 50 51 50 49 47 46 46 46 51 43 53 48 88 120 110 105 96 102 98 93 98 104 101 89 47 55 58 59 62 56 48 48 44 46 54 64 71 74 73 70 68 66 69 72 76 79 82 83 82 80 78 74 72 70 72 72 72 72 71 70 72 75 79 78 66 64 64 51 54 57 60 61 63 63 65 70 71 72 70 73 77 85 102 137 154 158 159 164 173 175 169 169 175 184 191 200 211 221 222 211 209 216 221 223 223 223 222 217 213 203 196 193 185 170 150 132 103 102 90 88 95 80 93 70 77 88 99 114 122 119 106 92 79 66 73 61 64 79 34 39 39 46 54 45 34 39 55 63 55 46 48 53 53 52 52 52 50 46 43 41 43 44 45 62 50 41 45 50 53 52 51 78 81 85 89 93 88 79 64 43 43 47 50 52 54 56 54 62 59 63 66 62 53 51 57 51 55 57 47 43 46 49 47 52 52 52 52 54 54 54 54 54 53 53 52 53 49 45 40 44 43 43 40 38 36 38 42 48 50 50 47 47 44 44 46 52 38 57 53 103 121 105 99 93 104 101 93 97 104 93 70 35 56 58 54 63 57 45 49 39 40 49 58 69 73 74 72 67 66 67 69 72 77 80 81 80 77 74 73 71 70 72 73 71 70 71 73 75 77 78 78 67 63 66 54 56 59 62 62 62 62 63 62 63 66 71 82 95 110 126 147 160 168 169 166 163 162 164 173 181 192 204 214 223 231 232 223 218 219 220 220 219 216 213 210 207 201 198 193 184 171 155 124 108 96 90 85 80 78 79 73 80 80 83 100 114 124 134 113 115 93 76 65 84 49 42 42 40 39 38 40 43 46 49 46 50 52 48 40 39 47 53 48 48 46 43 41 42 44 47 46 52 58 60 59 52 44 38 55 66 76 83 86 82 73 58 42 40 44 46 47 50 51 54 62 63 63 63 63 63 60 60 55 56 59 57 54 53 54 58 52 51 52 53 53 53 51 52 53 54 52 52 51 47 44 41 44 42 40 38 38 37 37 38 45 47 48 46 44 43 42 44 48 46 53 64 117 113 106 99 105 90 94 103 99 107 87 35 32 39 52 60 57 49 47 47 38 37 46 56 68 75 78 74 70 66 64 66 70 74 80 81 76 72 71 72 74 73 72 71 74 73 71 71 74 72 71 67 60 61 66 52 54 60 63 63 62 62 61 59 60 65 73 88 105 121 134 149 158 162 162 159 159 161 164 176 186 197 207 217 224 230 229 221 217 218 219 218 217 214 211 210 205 200 198 192 183 170 154 123 105 94 89 83 77 74 75 75 82 82 82 97 106 111 119 133 133 115 100 83 85 44 37 41 38 37 38 39 42 45 47 44 44 44 44 43 43 43 44 49 48 46 44 42 40 38 38 42 48 53 56 57 55 52 49 45 54 64 71 73 70 59 42 37 36 41 44 47 51 55 58 64 65 65 65 64 60 61 58 57 56 58 59 57 58 58 60 52 53 52 53 53 53 51 50 53 54 52 52 49 47 44 41 42 42 40 38 38 37 37 37 43 43 44 42 42 40 41 42 49 43 51 88 114 111 98 104 99 95 91 97 109 98 64 37 39 40 44 49 48 45 46 44 29 39 60 74 82 81 79 76 70 65 64 64 68 72 77 78 75 71 72 70 74 73 74 72 75 73 72 70 71 71 69 65 62 63 66 46 49 55 58 59 60 61 60 60 60 66 77 93 108 123 137 148 153 152 149 148 152 160 166 181 191 202 210 216 220 224 221 215 211 211 211 212 211 208 206 205 199 194 191 186 175 162 145 119 102 91 86 82 75 72 72 81 89 89 87 98 105 107 113 132 134 129 121 104 88 43 38 41 39 38 37 38 40 43 44 45 41 39 42 47 47 40 34 46 45 44 44 43 41 38 36 41 44 46 48 51 54 55 56 49 54 59 60 62 61 54 43 37 38 44 47 51 53 57 60 59 61 61 59 58 55 55 54 55 53 55 59 60 62 60 59 52 53 52 53 53 53 51 50 54 55 53 53 49 47 44 40 41 41 39 37 37 36 36 37 39 41 42 40 40 40 41 43 50 42 54 112 108 104 91 108 92 100 90 98 113 82 41 42 43 39 38 41 42 40 41 38 29 52 84 100 96 83 76 71 67 63 64 64 69 74 77 78 77 72 72 71 75 75 76 74 75 74 70 71 72 71 70 66 68 69 72 42 45 52 55 58 59 60 60 60 61 68 79 98 114 128 140 149 148 143 139 142 152 162 173 187 195 206 213 217 219 220 217 212 209 209 210 211 210 209 206 202 196 191 187 180 169 154 137 112 96 89 84 81 73 70 69 76 89 91 92 103 107 108 115 118 115 126 129 123 97 50 41 40 39 38 37 38 39 41 42 46 42 39 41 46 46 40 33 41 41 40 41 43 43 42 41 45 47 48 47 49 49 51 51 60 59 57 51 52 55 56 49 39 41 46 49 53 54 55 58 57 59 59 60 60 58 58 58 54 54 55 59 62 63 59 56 52 53 52 53 53 53 51 52 55 55 54 53 50 47 44 42 42 40 40 38 38 36 36 36 37 40 39 40 40 40 41 43 49 46 74 119 104 94 95 102 91 97 99 108 101 61 33 46 39 39 44 46 43 36 36 36 48 77 114 124 109 87 74 69 67 64 65 67 74 76 79 79 78 73 73 72 76 76 78 77 76 74 71 72 72 73 71 68 72 73 76 39 43 49 54 57 58 61 61 61 62 68 81 101 117 129 138 144 143 136 134 141 154 170 180 193 201 208 214 217 216 217 214 209 206 209 210 210 211 211 207 205 199 192 185 175 162 146 129 104 90 84 82 79 72 68 66 68 82 87 89 100 106 108 113 110 104 118 123 126 96 50 40 40 39 39 39 39 39 40 41 47 46 44 43 43 42 41 40 43 43 44 43 42 42 44 45 48 48 50 47 48 44 45 42 55 53 52 46 48 49 50 44 37 41 48 53 56 57 59 60 63 63 64 64 65 63 63 64 56 55 55 58 61 61 56 52 52 53 54 55 53 53 53 52 56 56 54 54 50 47 44 42 42 40 40 38 38 38 38 38 37 38 39 40 40 42 44 46 47 56 100 111 103 89 104 95 95 88 108 113 79 46 45 48 41 43 47 43 34 30 40 53 83 108 139 141 119 91 75 70 68 66 68 71 78 80 83 83 78 73 73 71 76 76 79 78 74 73 72 73 73 72 71 68 73 75 78 37 42 48 51 55 58 59 60 60 61 68 82 102 117 127 134 137 138 133 135 147 163 179 190 202 209 214 216 217 215 213 212 205 204 205 207 210 210 212 208 210 201 192 182 169 155 138 120 97 86 81 80 77 73 69 67 69 82 90 90 99 103 106 111 114 104 116 106 109 81 43 35 39 40 40 40 40 41 42 42 43 45 46 44 41 39 41 44 46 50 52 49 42 38 41 44 44 44 47 45 47 43 43 40 44 47 52 51 54 51 46 35 37 42 50 57 59 60 63 63 64 64 64 61 60 57 57 55 59 58 58 58 59 58 54 51 52 53 54 55 53 53 53 52 57 57 55 54 52 47 45 42 43 41 41 39 39 37 39 37 36 37 38 39 40 42 46 48 49 72 113 98 100 90 108 92 96 87 106 102 57 43 58 51 48 48 45 35 24 29 58 84 119 135 151 147 125 98 81 70 66 66 70 74 79 82 85 84 78 75 72 70 75 76 78 79 75 74 73 73 73 72 71 67 74 77 80 35 39 45 48 52 53 56 56 60 60 67 81 101 116 124 130 136 138 138 144 160 179 196 205 216 219 222 221 216 214 212 209 203 202 205 207 211 212 214 211 210 200 188 176 163 146 127 109 91 81 78 79 77 73 71 69 70 84 91 90 97 100 101 108 115 106 111 80 80 56 39 41 39 38 39 40 42 42 42 42 39 41 44 44 42 40 40 41 42 52 61 58 47 38 39 44 41 41 43 41 43 41 43 41 43 46 52 51 54 53 49 41 46 52 57 62 62 62 64 63 60 60 57 55 53 50 50 49 57 58 59 57 55 53 54 54 54 55 54 55 55 55 55 54 58 58 58 55 52 48 45 42 42 42 42 40 40 38 40 38 34 34 36 37 40 42 45 49 54 91 111 97 95 96 102 98 95 99 96 72 51 52 61 55 54 49 43 34 30 46 80 113 138 142 146 141 125 101 81 69 64 64 68 74 80 83 85 83 78 74 71 69 74 75 78 78 75 73 73 72 74 73 72 69 76 78 81 33 37 43 46 49 52 53 54 61 60 66 81 100 112 121 126 137 140 145 154 173 192 209 220 225 228 227 225 219 213 210 206 204 201 204 206 211 214 215 212 208 196 183 171 155 136 117 99 85 76 75 77 77 73 70 70 63 77 83 82 90 92 96 101 109 102 104 59 55 37 38 50 37 38 39 41 43 44 44 44 35 37 41 44 45 42 39 36 35 50 65 64 52 41 41 47 43 42 40 39 39 40 42 43 46 47 45 42 44 49 50 49 56 61 65 66 65 60 59 58 59 57 56 56 55 54 54 55 54 58 59 57 53 52 54 58 54 55 54 55 55 55 55 54 58 58 58 57 53 50 47 43 43 42 43 42 42 40 42 40 34 34 36 37 40 43 46 49 62 102 103 100 91 103 92 104 91 111 85 45 51 63 58 57 54 49 41 38 42 63 97 127 140 139 139 132 122 101 80 64 63 62 67 74 79 82 84 82 78 73 70 68 73 75 78 78 75 74 71 70 72 71 71 68 76 79 82 33 34 38 40 45 49 51 52 53 56 64 75 89 101 115 125 130 139 150 163 182 200 216 226 238 240 236 228 220 214 211 206 198 197 201 206 208 211 210 207 197 188 175 160 143 122 103 88 81 77 76 75 73 72 71 70 59 65 79 89 88 84 91 96 101 80 60 48 47 49 47 43 40 38 40 41 41 42 44 44 37 41 44 47 47 45 42 39 41 34 74 63 35 49 47 40 43 41 40 39 38 38 38 38 41 46 50 48 44 45 52 60 69 63 60 63 64 59 58 61 62 59 56 56 57 57 56 55 61 60 58 55 53 52 53 53 55 56 57 58 59 60 60 60 59 58 58 58 57 53 48 44 43 41 43 41 41 40 42 41 35 39 35 30 37 51 54 44 101 103 98 92 88 89 99 105 111 81 51 44 54 60 56 49 51 46 38 40 61 95 119 130 140 130 128 126 110 82 66 63 62 65 68 73 76 78 79 78 73 68 66 66 73 75 76 74 77 78 75 72 69 69 73 74 81 82 83 34 35 39 40 44 48 49 50 52 55 61 71 84 97 107 117 127 137 148 164 186 206 223 233 239 240 235 226 216 210 207 204 199 199 201 204 207 206 204 200 188 177 161 147 130 112 96 83 79 75 75 75 73 72 71 69 71 67 70 76 80 83 88 95 83 69 57 48 47 48 44 40 38 38 40 41 41 42 44 44 39 41 43 45 47 45 42 40 41 46 69 60 40 45 44 38 44 43 42 42 41 41 41 40 42 44 44 41 39 40 46 53 71 62 57 58 61 59 60 63 58 54 50 56 66 70 67 62 55 56 55 54 53 53 56 56 55 56 57 58 59 60 60 59 58 57 56 56 56 53 47 43 42 42 42 42 42 41 43 41 36 41 37 31 39 47 50 61 103 100 91 87 91 96 100 101 76 62 50 47 48 50 58 61 46 47 53 69 91 112 125 129 125 128 131 120 94 69 61 66 64 64 67 72 75 76 77 77 71 67 66 68 74 76 78 77 79 77 75 71 70 69 73 76 81 82 83 34 35 38 41 45 47 47 45 48 49 55 65 76 87 97 105 116 127 140 160 183 206 223 234 239 237 231 223 211 203 200 195 196 196 198 199 201 197 191 183 175 161 145 129 114 99 88 81 76 75 74 74 73 72 71 69 73 63 61 68 79 83 84 83 60 55 52 49 47 46 43 40 38 36 38 39 41 42 44 44 40 40 41 43 45 45 43 40 39 61 58 53 47 40 43 38 41 41 41 42 41 41 40 39 45 44 42 42 43 47 51 56 61 57 55 56 60 60 64 67 59 65 75 85 85 76 62 52 50 50 50 50 53 54 56 56 55 56 58 59 60 60 60 59 56 55 55 55 55 52 47 44 43 43 43 43 43 41 43 41 38 42 36 36 43 39 48 84 105 96 85 86 93 102 100 97 57 54 50 48 44 41 43 47 35 44 66 95 116 123 122 123 120 133 133 109 75 53 56 66 63 64 68 71 73 74 76 75 68 67 68 70 75 78 79 78 79 79 77 74 72 72 75 77 86 87 88 38 38 41 43 45 46 46 43 45 45 51 57 68 78 87 93 100 111 126 148 172 195 214 227 234 235 226 217 204 195 191 189 189 190 193 193 189 183 174 166 157 143 127 112 99 90 83 78 75 74 74 74 75 74 73 70 65 59 61 70 80 80 73 65 47 47 49 48 46 43 41 41 36 36 38 39 41 42 44 45 41 39 38 40 43 45 43 41 39 73 49 44 52 37 43 43 40 39 40 41 41 41 40 39 42 41 41 44 51 55 57 58 53 57 59 59 58 57 61 64 86 98 106 100 81 60 51 47 49 49 49 50 53 54 55 56 56 57 59 60 60 60 60 60 58 56 55 55 55 52 47 44 42 42 41 41 43 41 42 40 39 44 38 39 45 34 52 103 100 92 85 88 95 100 95 90 65 57 50 49 48 42 35 30 29 42 72 102 116 116 115 120 133 138 125 91 58 48 55 63 64 64 67 70 72 71 72 74 66 66 69 72 77 79 81 82 80 78 76 74 71 71 75 79 88 90 90 40 42 44 46 48 48 47 43 45 45 46 52 62 70 78 82 83 93 108 129 155 178 199 211 225 226 220 211 196 186 181 179 181 182 183 181 176 166 155 146 135 124 108 95 88 83 79 76 76 76 76 75 76 75 75 71 65 61 65 70 72 64 56 51 45 47 47 46 44 41 40 40 36 36 38 39 41 42 44 45 43 41 37 39 43 46 46 44 48 84 53 43 53 36 40 43 41 42 43 44 45 45 45 45 42 41 43 49 55 58 55 52 53 60 63 57 53 58 70 79 119 110 91 67 51 46 51 58 51 49 50 50 50 51 54 54 56 57 59 60 62 62 61 59 59 57 58 58 58 55 50 47 42 42 42 41 42 40 41 41 40 42 39 42 45 41 67 114 94 91 89 91 94 93 87 85 63 57 52 49 45 39 35 35 46 60 84 102 109 110 114 125 136 128 100 67 48 49 57 61 66 66 67 69 70 70 72 71 66 67 72 74 78 80 82 83 78 79 77 75 73 73 75 79 89 88 88 46 46 49 51 53 52 50 47 47 45 46 51 58 65 73 72 74 78 92 114 137 161 183 196 209 211 207 199 186 175 166 165 169 171 170 166 161 149 137 129 115 104 94 86 82 80 78 78 77 77 77 77 77 77 77 73 79 71 64 61 55 46 43 43 49 47 46 45 41 39 38 40 36 36 38 39 41 42 44 45 44 40 35 35 41 46 47 45 55 84 65 48 51 38 32 41 39 39 39 40 41 42 44 45 51 50 51 55 58 57 53 49 54 57 58 58 64 80 99 112 101 80 54 43 48 55 58 55 53 50 52 51 51 51 53 54 57 57 59 60 62 61 61 58 60 57 58 58 58 55 50 47 41 41 41 40 40 39 38 40 41 40 41 42 42 56 88 112 92 93 92 91 90 86 82 82 55 57 53 43 27 23 37 54 84 92 101 100 102 107 116 124 109 92 67 48 44 49 59 61 68 66 68 70 70 70 70 71 67 70 75 77 79 79 81 82 81 79 80 76 74 74 78 81 94 93 92 48 51 54 57 59 59 54 51 48 45 45 50 57 63 69 68 67 68 79 97 120 144 166 181 191 195 193 186 174 161 151 148 154 158 154 150 142 131 120 110 97 89 83 80 79 80 78 78 78 78 78 79 79 79 78 77 83 69 56 50 45 40 41 44 48 47 45 44 42 40 37 37 34 34 36 39 41 42 44 45 45 40 33 33 40 46 47 45 51 73 77 57 53 46 29 40 44 43 42 41 43 46 49 51 61 60 59 59 59 58 56 53 53 53 52 58 74 91 99 95 57 50 46 49 61 64 59 50 53 51 52 52 52 52 55 55 57 58 59 60 62 61 61 58 58 57 57 57 57 54 49 46 41 41 40 39 40 39 39 38 43 37 43 41 39 75 109 102 94 92 87 83 83 82 81 85 56 55 47 36 27 35 61 86 111 113 104 89 89 99 100 95 67 56 45 42 44 48 55 62 70 67 69 70 71 70 71 71 70 73 78 79 79 78 79 81 84 83 83 80 78 78 82 85 96 95 93 51 54 57 58 59 59 57 53 51 50 50 52 59 62 68 65 62 62 72 84 104 126 147 160 167 171 173 166 157 143 133 130 133 134 134 128 120 110 101 94 84 80 77 76 77 79 79 78 79 79 78 79 78 78 76 76 72 60 47 45 47 45 45 45 47 45 44 44 44 41 39 36 36 36 38 39 41 42 44 45 47 39 33 32 39 46 47 46 42 59 84 64 55 55 31 44 55 53 51 50 51 55 60 63 59 57 55 52 52 53 55 57 57 54 53 58 72 76 57 35 38 45 55 59 57 56 59 61 54 54 54 54 53 54 57 58 56 56 59 59 60 59 58 58 58 56 56 56 56 53 49 45 40 42 41 40 39 38 40 39 45 34 46 42 38 88 124 95 100 91 82 79 80 85 85 86 56 42 28 27 43 68 102 126 118 115 97 77 81 94 86 64 41 37 40 50 50 43 50 62 72 70 71 71 71 71 71 71 74 77 80 80 77 75 74 76 84 85 83 81 79 82 85 90 91 91 90 59 59 61 61 61 61 61 59 60 61 62 63 64 68 69 69 72 72 76 82 91 105 116 123 132 136 139 137 132 123 114 106 105 101 98 94 89 85 82 79 79 75 75 73 71 72 70 72 79 84 74 66 74 80 76 76 61 52 44 40 45 48 49 45 47 46 46 46 46 43 41 41 41 41 41 41 43 43 43 44 43 45 40 32 33 42 47 46 43 45 48 56 62 57 44 35 70 64 60 59 63 64 62 58 52 55 58 58 55 52 51 55 62 57 47 40 38 41 47 51 48 51 55 58 59 57 57 58 58 58 58 57 55 55 53 53 48 49 53 54 57 58 58 59 62 59 57 58 61 59 54 49 41 43 42 40 38 37 38 38 48 45 35 38 74 111 111 90 78 79 77 79 79 82 84 83 47 22 15 41 80 111 121 120 115 97 76 67 66 66 57 48 44 50 49 48 51 48 50 62 66 72 75 75 71 73 75 74 80 83 83 80 77 74 74 73 76 77 78 80 82 85 89 94 101 92 82 63 63 63 63 63 63 63 63 64 65 65 67 68 69 70 71 74 73 77 79 85 93 100 104 108 112 114 114 109 103 95 89 86 82 79 75 73 72 72 71 75 73 73 72 71 70 71 73 77 84 77 70 77 79 74 69 57 48 44 41 44 48 50 48 46 46 46 46 45 45 44 43 43 43 43 43 43 43 43 44 46 46 40 32 32 41 46 46 45 42 41 48 58 66 67 67 63 59 53 52 55 56 54 51 55 56 57 56 55 55 57 58 55 52 44 39 38 41 45 49 52 54 55 56 55 55 54 58 58 60 58 57 55 53 53 53 50 51 53 54 56 56 57 57 59 59 61 61 59 54 50 45 43 42 43 41 40 38 37 37 39 41 42 53 80 101 97 77 76 77 80 81 83 83 86 81 47 42 51 79 110 124 112 98 72 66 59 55 55 53 49 45 47 52 52 50 51 48 51 62 69 72 77 76 72 72 76 75 81 84 83 81 76 72 72 72 74 74 76 81 84 88 88 94 89 83 73 69 69 69 69 69 69 69 69 67 68 69 70 71 72 73 71 74 72 74 76 81 85 89 91 93 94 95 95 92 89 83 81 77 75 72 67 66 67 67 66 71 69 70 70 72 72 74 76 77 85 80 78 85 81 69 64 55 49 47 43 43 44 47 47 46 45 45 46 45 44 44 43 43 43 43 43 43 43 43 44 48 46 40 32 31 38 44 46 48 43 40 42 48 57 63 68 54 51 48 50 55 60 60 60 60 58 55 54 56 57 58 58 45 43 39 37 37 40 43 46 53 54 56 55 52 52 53 57 57 57 57 55 55 53 53 51 51 52 54 54 56 57 57 56 58 60 62 61 57 49 43 40 44 43 43 41 40 38 37 38 35 37 44 61 79 84 79 70 72 76 80 83 87 87 86 80 70 86 110 128 135 123 91 60 36 43 47 50 48 46 48 47 46 51 52 49 51 47 51 61 71 74 79 78 74 74 78 78 84 85 83 80 75 73 72 73 76 76 78 83 88 91 87 88 74 69 62 73 73 73 73 73 73 73 73 71 72 72 73 74 75 76 74 72 71 73 76 79 80 82 83 87 87 87 85 84 81 80 78 77 74 70 66 64 62 64 63 65 65 67 68 71 74 76 77 81 85 79 81 92 88 68 58 56 54 48 45 41 42 46 47 45 44 45 45 45 44 44 43 43 43 43 43 43 43 43 44 49 46 39 32 29 34 41 46 45 43 42 42 43 46 47 50 53 52 50 52 56 60 63 62 60 56 54 53 56 55 53 49 40 39 38 38 38 40 41 42 49 52 55 56 53 53 54 55 56 56 56 54 54 52 52 52 50 50 52 55 56 56 55 57 58 60 61 59 50 43 39 40 42 41 41 40 38 36 35 37 42 35 39 58 72 71 71 76 74 76 79 82 86 86 87 84 95 120 142 136 116 89 56 27 28 37 46 51 51 50 52 53 45 50 51 49 50 47 50 60 72 75 80 79 76 76 80 79 84 85 82 80 74 72 74 75 77 78 83 88 93 91 83 77 69 65 60 75 75 75 75 75 75 75 75 75 75 76 76 77 78 78 76 71 72 73 76 78 79 80 79 84 81 81 78 78 77 77 78 78 76 71 66 62 58 58 58 60 62 64 64 67 70 72 75 81 81 74 82 99 96 77 67 61 57 52 48 43 41 43 43 43 41 42 43 43 42 42 41 41 41 41 41 41 41 41 44 49 48 40 34 30 32 38 45 42 44 44 45 46 48 48 52 60 60 57 56 56 56 56 53 60 57 58 58 60 54 49 40 40 40 40 40 40 40 38 38 43 47 51 55 56 56 54 55 54 54 54 52 52 51 51 51 50 50 53 55 58 60 59 61 60 60 58 53 45 40 40 42 41 41 42 40 38 37 36 37 45 34 37 58 73 70 71 78 76 76 78 78 82 85 87 87 102 122 129 106 72 52 38 25 38 42 46 51 52 52 51 48 45 49 50 48 49 46 49 60 73 76 81 80 77 78 82 81 83 83 81 77 75 73 76 79 81 83 89 94 95 86 74 67 73 69 65 77 77 77 77 77 77 77 77 77 78 78 78 79 79 80 78 74 73 76 77 79 79 80 80 80 78 77 75 75 73 74 75 77 74 72 66 61 57 55 54 56 57 59 61 63 65 69 69 76 73 69 78 97 97 85 82 67 62 55 48 46 43 42 40 42 40 41 42 42 42 42 41 41 41 41 41 41 41 41 44 49 47 41 36 31 29 34 42 46 47 44 42 40 43 48 56 58 60 61 62 62 62 61 60 56 58 62 62 62 54 47 39 43 42 42 42 41 40 39 37 37 41 48 51 53 55 56 55 55 53 53 53 52 52 52 52 53 55 58 59 62 63 61 63 58 56 51 45 40 39 40 42 40 41 40 38 39 37 36 37 41 33 42 65 78 71 69 74 78 77 77 77 81 84 87 87 88 94 90 66 44 37 42 46 50 49 50 54 57 54 48 43 43 49 49 47 48 45 48 59 73 76 81 81 78 78 83 82 81 80 79 75 74 76 79 82 88 90 93 93 87 79 69 66 77 71 66 79 79 79 79 79 79 79 79 79 79 79 80 80 80 80 79 80 79 79 79 79 79 78 78 78 75 75 73 73 71 71 71 76 75 73 68 63 58 56 54 54 54 57 58 59 60 63 63 67 70 67 68 77 76 76 89 74 66 57 50 49 45 42 36 41 40 41 42 42 42 42 42 41 41 41 41 41 41 41 44 48 47 44 41 32 27 32 41 45 47 47 43 37 39 46 56 57 62 65 67 69 67 65 63 50 54 60 59 57 49 46 41 45 43 43 44 43 40 39 39 37 39 43 46 48 52 57 59 55 53 53 52 52 52 52 52 55 57 60 59 61 60 59 57 51 47 43 40 39 41 41 40 41 42 41 39 40 38 37 36 35 37 50 69 75 67 68 76 77 78 81 81 84 85 86 85 69 61 52 44 42 44 51 54 54 56 59 61 60 54 47 42 42 48 49 47 48 44 48 58 72 76 81 81 78 79 83 80 79 78 77 76 75 78 84 88 96 97 93 85 76 71 69 73 79 73 66 80 80 80 80 80 80 80 80 79 80 80 80 80 80 81 81 85 84 82 81 80 79 77 77 78 76 76 76 73 73 71 73 75 76 75 72 68 63 60 58 52 52 55 55 57 58 58 58 62 68 65 60 58 53 62 83 79 69 58 53 51 47 41 34 41 39 40 42 42 42 42 42 41 41 41 41 41 41 41 44 48 46 44 43 35 26 30 39 35 41 48 49 46 47 53 61 66 68 69 67 63 55 48 46 44 49 54 54 50 46 44 43 45 43 44 45 45 43 42 42 42 40 40 41 43 48 57 62 55 53 53 52 53 52 53 53 57 58 59 57 58 54 53 51 45 40 39 39 41 42 41 38 42 43 42 41 39 37 38 38 35 42 56 67 66 61 69 83 76 78 82 84 86 86 84 81 59 40 30 38 50 52 50 46 49 54 60 63 59 49 42 38 40 48 48 46 48 44 47 58 72 75 81 80 78 79 83 80 77 76 76 75 76 79 86 92 101 100 92 80 69 65 72 80 81 74 67 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 83 87 87 87 87 86 86 84 82 82 80 80 79 79 79 77 77 74 74 73 73 73 67 61 58 55 55 54 53 55 56 56 55 61 61 52 54 59 47 57 93 96 83 69 64 61 53 48 45 37 38 39 40 40 41 44 46 45 45 45 45 44 44 44 45 40 46 47 41 34 31 30 34 45 43 41 42 47 55 63 69 69 72 67 54 49 48 46 43 47 46 46 45 44 43 43 43 43 42 43 44 45 44 45 45 42 40 40 41 43 45 51 52 54 54 56 55 57 54 54 53 61 59 56 50 47 45 42 43 45 42 43 42 41 41 43 43 39 40 40 40 40 39 38 36 32 52 67 65 64 69 74 71 82 82 77 76 85 83 84 90 53 42 40 44 47 43 45 49 49 67 80 74 58 46 39 37 41 49 50 50 49 42 46 60 74 77 81 79 76 77 83 81 76 75 78 78 80 85 92 98 102 94 79 71 69 74 80 84 83 76 69 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 83 89 91 91 89 89 87 86 84 84 82 82 82 82 82 80 80 77 75 74 74 74 69 63 58 58 55 54 53 55 55 55 54 56 53 49 53 48 39 58 98 88 90 84 71 62 61 57 48 43 44 46 45 45 43 43 42 44 43 44 43 44 43 44 46 53 58 55 47 35 29 29 29 35 40 47 56 63 68 70 72 65 68 62 51 47 48 49 48 49 50 48 47 47 46 46 44 42 42 43 44 43 43 44 44 46 45 44 44 43 45 48 47 50 50 53 55 57 57 57 56 54 52 51 48 47 46 44 44 46 44 44 43 42 42 42 44 42 41 41 41 40 39 39 36 39 55 67 63 62 68 73 71 74 79 79 80 88 82 79 84 53 57 66 66 54 41 42 52 71 81 84 70 55 42 35 34 40 48 49 49 50 43 46 60 75 77 81 80 76 78 83 81 79 76 76 77 81 87 95 99 97 85 74 68 74 78 78 79 83 76 69 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 85 91 94 94 93 89 87 86 84 84 84 84 84 84 84 86 84 79 76 78 78 76 72 67 62 60 57 56 54 54 54 54 53 53 45 49 51 37 39 67 96 74 90 98 83 72 72 68 54 43 42 44 42 44 41 41 39 43 41 43 41 43 42 44 46 45 47 45 40 34 30 32 36 50 55 63 70 71 70 66 64 65 65 58 49 47 49 52 51 51 52 50 48 48 47 46 46 42 43 41 42 43 43 42 42 46 45 43 42 43 45 46 47 46 48 48 51 51 52 51 52 44 44 45 43 43 44 46 47 47 44 45 44 43 43 43 44 43 42 44 42 41 40 41 38 49 60 66 61 60 66 72 73 73 79 81 83 90 85 84 91 88 94 97 82 52 35 46 64 89 87 77 62 48 40 35 36 39 46 47 49 51 44 47 60 75 78 82 80 77 78 83 80 81 76 76 79 86 92 96 96 85 77 69 69 77 81 78 72 82 76 69 81 81 81 81 81 81 81 81 82 82 82 82 82 82 82 86 92 95 94 92 90 88 87 85 85 85 85 85 87 87 88 87 82 80 79 79 78 75 71 69 62 60 58 56 55 54 53 51 52 45 51 48 37 57 79 78 53 76 95 94 85 79 72 65 49 45 43 43 45 47 48 48 52 52 52 52 53 53 53 55 59 62 62 61 60 62 64 68 72 71 71 69 66 63 61 61 66 63 55 48 46 48 51 54 52 51 51 49 48 46 46 45 44 44 43 44 44 45 43 43 43 41 41 42 44 47 47 48 47 46 47 46 46 44 43 42 41 40 41 42 43 45 47 48 46 45 44 42 42 42 42 43 44 44 44 42 42 40 41 41 56 61 63 58 60 68 75 76 76 80 79 79 88 88 94 106 112 102 87 63 43 42 60 81 85 75 61 49 43 41 40 39 40 45 46 49 51 45 47 59 73 77 82 81 78 79 83 80 79 77 77 82 93 97 94 91 74 69 68 72 79 80 76 72 81 75 68 81 81 81 81 81 81 81 81 82 82 82 82 82 82 82 84 90 92 90 88 87 85 83 83 83 83 83 85 87 87 88 87 85 82 81 81 81 79 77 74 66 62 60 56 54 53 51 49 49 47 49 43 45 76 83 52 43 57 85 103 101 85 78 80 65 60 54 52 54 58 61 62 65 65 66 66 67 67 68 69 82 84 82 79 76 76 76 78 72 70 66 64 64 64 66 68 70 64 55 50 50 49 51 52 51 51 51 48 49 48 47 47 46 46 46 46 45 45 45 45 42 42 43 42 43 45 46 47 47 45 45 44 44 43 42 42 41 41 40 41 42 44 45 45 45 44 43 42 41 43 43 43 44 45 45 43 42 41 43 43 59 60 61 59 63 70 77 79 77 81 80 81 89 87 91 100 81 64 48 40 48 63 78 86 69 58 46 41 44 45 45 44 43 45 45 48 52 45 46 56 70 74 80 80 78 79 84 81 77 76 80 89 97 96 88 81 65 69 73 77 77 75 74 76 80 73 66 81 81 81 81 81 81 81 81 83 83 83 83 83 83 83 85 89 89 89 86 86 82 82 81 81 81 82 84 86 88 88 88 85 82 81 82 82 81 80 77 71 67 63 59 57 54 51 47 46 45 45 45 58 82 74 43 57 59 82 110 118 104 94 95 81 70 64 58 61 62 65 63 67 66 68 67 70 68 71 71 72 73 72 71 68 68 66 66 65 66 65 66 66 64 62 63 71 63 54 51 51 48 48 51 50 49 49 49 48 49 49 49 49 49 51 49 49 47 49 47 47 45 45 44 44 42 43 41 46 46 45 47 46 46 47 46 41 40 42 43 44 43 44 43 44 43 41 40 41 41 41 41 42 44 44 42 41 41 45 48 64 60 60 61 67 72 77 78 73 79 82 85 92 80 70 71 45 41 40 50 69 81 75 64 55 45 38 42 49 52 48 45 44 45 45 48 52 45 44 53 66 70 78 79 77 79 84 81 76 79 85 92 96 91 81 72 66 71 77 77 74 71 71 76 78 72 65 81 81 81 81 81 81 81 81 83 83 83 83 83 83 83 83 88 86 86 82 82 79 79 77 77 77 79 81 82 84 86 86 85 83 83 84 85 84 81 79 75 71 65 60 57 54 51 46 43 42 43 57 76 72 60 57 69 64 73 96 112 112 101 92 78 68 63 59 63 62 62 57 63 61 64 63 65 64 67 67 68 68 70 72 72 73 73 72 67 68 69 69 65 62 58 58 70 60 51 50 52 49 48 49 47 48 49 48 49 51 52 52 51 51 52 51 51 49 51 48 48 46 46 45 44 41 42 42 46 46 45 46 46 46 46 45 41 41 42 42 43 42 43 42 42 44 42 41 40 40 42 42 41 44 45 43 41 42 47 51 66 63 61 64 70 73 74 73 73 78 79 86 90 74 55 49 48 57 67 74 79 76 62 47 45 36 33 42 53 57 54 51 46 46 45 49 53 45 42 50 61 66 75 77 77 79 85 82 80 81 87 90 89 82 74 69 72 73 75 75 74 72 70 73 77 71 64 81 81 81 81 81 81 81 81 83 83 83 83 83 83 83 83 86 84 84 82 81 79 79 77 77 79 79 81 82 84 84 84 84 83 83 83 85 84 82 80 77 73 67 62 56 53 49 46 42 40 44 71 88 65 51 78 69 62 60 71 91 102 91 72 71 66 63 62 66 66 62 55 61 61 64 65 66 67 69 70 67 68 69 69 71 70 67 63 68 67 65 62 62 63 64 67 66 56 48 52 54 51 47 50 47 48 48 49 51 51 52 53 50 50 50 50 48 48 48 48 44 45 46 46 45 45 44 44 47 47 46 44 42 42 42 40 42 42 43 45 45 44 44 43 44 45 44 42 42 41 41 44 40 43 45 43 41 42 48 54 71 66 64 68 73 74 71 71 78 78 75 77 83 68 50 44 57 73 84 81 69 61 56 52 38 30 29 41 53 56 55 53 50 48 46 49 53 45 41 49 59 67 77 78 78 81 83 82 85 88 91 90 85 78 72 68 78 75 72 73 74 75 69 69 77 71 64 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 81 81 81 81 82 82 82 82 84 84 84 84 80 81 87 87 86 84 83 84 83 81 77 67 61 56 50 41 44 36 51 87 109 101 87 79 69 69 71 72 75 75 77 77 69 69 68 69 66 61 60 60 56 57 60 63 64 67 68 67 70 68 68 69 69 68 68 68 67 64 63 62 62 61 61 63 63 58 51 48 48 50 51 50 50 51 50 51 51 51 49 50 48 46 46 45 47 46 46 46 45 45 45 45 47 47 47 47 48 48 48 46 46 46 46 44 44 44 44 45 45 44 44 44 46 46 45 45 44 43 42 43 39 44 41 40 43 41 45 61 72 74 71 72 72 74 75 76 77 75 78 81 72 58 55 59 89 81 72 67 64 59 53 49 38 35 35 39 48 53 54 51 45 45 46 47 47 46 44 40 59 70 82 85 81 83 83 85 90 101 101 89 75 71 72 71 73 75 77 78 77 75 72 71 76 68 59 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 84 83 82 85 86 90 90 88 86 87 89 89 84 79 72 61 52 48 37 41 61 71 66 61 63 86 84 81 79 77 77 74 74 84 71 62 58 64 65 59 52 57 57 61 62 66 68 69 69 70 68 68 69 67 68 68 68 65 64 63 62 61 61 61 63 63 60 54 48 48 47 48 48 50 51 52 51 51 49 49 48 46 45 44 44 45 44 44 44 45 45 45 45 47 47 47 47 48 48 48 48 48 48 48 48 48 48 48 47 47 47 46 46 47 47 46 45 44 44 43 43 38 44 41 40 43 40 44 62 73 76 74 74 76 77 78 79 71 72 75 80 80 76 81 84 77 71 63 58 58 58 55 52 45 41 39 41 47 50 50 48 48 48 49 48 47 46 44 42 57 68 82 82 83 82 83 86 94 101 97 84 73 70 70 69 73 74 76 78 77 75 73 73 76 66 57 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 84 84 80 80 82 89 92 89 86 87 96 105 106 105 98 86 74 60 46 40 46 47 40 42 51 48 49 53 58 66 74 80 82 89 78 69 63 66 67 64 58 59 60 62 64 67 70 70 70 68 68 68 68 69 69 67 67 66 66 63 62 61 61 61 62 64 63 60 53 49 45 44 45 50 49 50 49 49 49 49 48 46 44 44 44 44 44 46 46 45 45 47 47 47 47 47 47 48 48 48 48 48 47 47 47 49 49 48 48 47 47 47 47 46 46 45 45 44 43 42 42 38 43 41 39 42 39 43 61 73 73 74 76 77 78 80 80 79 80 79 78 81 85 89 85 66 58 54 51 54 57 56 56 48 45 42 42 46 48 47 46 50 50 50 48 47 48 45 41 53 64 77 78 81 82 85 87 96 96 87 76 69 69 69 67 72 74 75 77 76 74 72 72 74 66 56 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 84 87 84 82 83 87 90 91 93 93 105 120 129 129 126 114 103 78 62 50 49 48 44 44 52 43 42 42 41 43 47 49 49 66 74 79 75 68 66 67 70 62 63 62 64 67 68 68 68 68 68 68 68 68 68 66 67 66 65 62 62 60 60 61 62 60 63 62 56 49 44 43 45 48 49 48 47 49 47 47 46 45 44 44 43 44 44 45 45 45 45 47 47 47 47 47 47 48 48 48 47 47 47 47 46 49 48 48 48 47 47 47 47 45 45 45 44 43 42 42 41 38 43 40 38 41 38 42 60 71 74 75 77 78 80 80 81 82 85 80 71 73 79 75 64 56 52 48 46 51 55 58 59 52 50 47 44 46 46 45 45 51 53 52 50 49 47 44 42 52 62 73 76 81 84 87 90 97 91 78 69 67 69 69 67 72 73 74 75 74 73 71 74 74 64 55 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 84 88 92 91 89 88 93 104 112 119 134 148 156 156 153 145 135 107 83 63 55 53 50 50 53 60 57 53 48 44 43 42 40 42 56 72 75 71 73 73 69 66 66 65 66 65 65 65 65 68 70 70 70 68 68 68 67 66 65 62 61 61 61 61 62 58 59 61 57 51 45 46 47 48 47 46 45 47 45 45 46 45 45 44 44 44 43 45 45 47 47 47 47 49 49 49 49 49 49 49 48 48 47 47 46 49 49 48 48 48 47 47 47 47 46 46 45 44 43 43 43 40 45 42 40 42 39 43 59 71 72 74 76 79 80 82 81 77 79 74 66 68 72 65 51 47 46 43 43 46 51 55 57 54 53 50 47 47 46 44 44 52 53 53 52 48 47 45 41 49 58 71 75 82 86 89 91 96 87 73 67 68 71 71 70 73 74 75 75 74 73 72 73 73 66 56 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 84 85 90 92 90 92 103 124 140 160 174 188 193 190 186 177 168 143 114 84 63 56 51 49 50 51 51 50 51 52 56 58 57 40 47 54 65 79 91 86 73 74 70 70 68 66 66 63 65 68 70 70 70 67 67 67 67 65 65 64 61 60 60 61 61 56 57 58 57 55 48 47 46 47 47 46 45 45 45 45 46 44 44 44 44 43 43 45 44 47 47 47 47 49 49 49 49 49 49 48 48 47 46 46 46 47 47 47 46 46 46 45 45 46 46 45 44 43 43 42 42 40 44 41 39 41 38 42 57 71 72 74 76 79 78 79 81 78 76 70 66 66 63 54 44 43 42 40 40 42 45 49 52 55 53 52 50 50 47 45 44 51 53 53 50 49 46 45 42 47 55 68 77 83 89 89 89 89 79 67 65 69 70 70 71 73 73 73 73 73 72 71 74 73 64 57 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 86 86 88 90 94 106 128 154 174 192 208 223 228 224 218 211 200 178 151 122 93 73 58 49 47 54 55 53 52 53 51 51 48 51 50 49 52 72 95 100 90 83 79 75 74 71 68 65 66 68 70 70 69 69 68 66 66 67 64 63 63 60 60 61 61 58 58 58 58 58 52 47 43 47 46 45 44 44 44 44 45 44 44 44 43 45 45 46 46 47 47 49 49 49 49 49 49 49 49 48 48 47 46 45 45 46 46 45 45 45 44 44 44 45 45 44 44 43 42 41 41 39 44 41 38 41 37 41 56 71 72 74 76 78 79 79 78 78 71 65 61 58 49 43 41 43 45 44 43 41 43 43 45 52 53 55 55 53 49 44 45 48 50 50 49 50 48 46 41 43 53 67 76 86 91 89 86 80 73 64 66 70 70 70 72 74 74 74 74 73 73 72 74 73 64 55 81 81 81 82 82 83 83 83 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 84 84 84 84 84 84 84 86 94 95 97 106 127 156 186 207 207 224 242 249 246 240 233 223 198 181 157 129 98 71 55 50 50 52 53 55 55 57 55 54 53 55 49 43 54 82 105 109 92 87 83 78 75 72 68 67 70 70 70 69 69 68 66 66 67 66 63 62 62 60 60 61 61 57 58 59 58 54 45 38 47 46 45 44 44 44 42 45 44 44 44 43 45 44 46 46 47 47 49 49 49 49 49 49 49 49 48 47 46 46 45 44 45 45 44 44 44 43 43 43 45 45 44 43 42 42 41 41 39 44 41 38 40 37 40 56 71 73 74 77 79 79 77 76 68 58 52 54 50 43 42 50 48 49 50 48 46 44 45 44 51 53 57 57 55 51 44 45 46 48 49 48 49 47 46 43 42 52 65 77 86 92 88 85 73 67 62 66 70 68 68 71 74 74 73 73 73 72 72 76 73 65 55 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 85 85 85 85 85 87 90 93 110 142 173 197 219 239 246 249 254 255 253 250 244 236 212 199 181 159 135 105 70 45 47 48 49 53 51 48 50 57 57 58 55 53 70 106 146 169 136 112 90 81 79 76 73 72 71 75 70 62 64 74 73 64 64 64 64 62 62 60 59 57 62 57 57 57 56 53 46 42 48 47 46 45 44 43 42 44 43 45 45 44 46 45 45 45 48 48 48 48 49 49 49 49 53 52 51 50 49 47 46 46 45 45 45 45 45 45 45 45 43 47 50 49 45 42 42 43 40 46 41 35 38 37 40 54 74 75 74 74 77 81 73 62 53 53 50 48 47 48 48 48 51 51 52 49 48 47 46 43 43 45 50 54 54 52 46 46 43 46 46 45 47 46 47 43 38 49 67 82 93 95 87 82 68 68 64 64 67 70 71 70 74 78 78 74 72 75 76 77 75 66 55 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 85 85 85 85 85 89 93 106 131 162 194 219 239 252 254 255 255 254 253 250 249 243 224 212 197 178 157 132 99 75 51 47 46 47 50 51 53 57 55 63 69 80 103 139 174 191 207 168 123 93 85 83 77 69 70 69 72 75 70 63 63 69 63 63 64 64 62 61 60 57 60 59 57 58 59 54 49 45 48 47 46 45 44 43 44 44 43 45 45 44 46 45 45 45 48 48 48 48 49 50 50 50 52 51 50 49 48 46 45 45 45 45 45 45 45 45 45 45 46 48 49 49 47 44 42 42 40 42 37 36 40 36 38 53 69 76 82 79 75 68 58 47 49 48 48 48 49 49 49 51 52 53 53 50 49 47 46 44 43 46 48 52 53 52 50 49 47 46 45 43 43 43 45 44 40 51 69 85 96 98 89 80 68 67 64 64 66 69 69 69 71 75 75 72 71 74 74 77 74 66 55 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 85 85 85 86 86 90 95 120 152 183 210 236 252 255 255 255 255 254 252 251 250 244 231 221 209 196 180 159 131 108 69 55 44 46 52 55 56 58 57 75 95 118 144 175 200 211 217 229 214 159 97 68 75 89 85 76 66 66 69 70 68 68 63 64 63 63 64 63 61 58 58 58 58 60 60 55 50 46 48 48 47 46 45 44 45 45 45 45 47 46 46 45 47 47 49 49 50 50 50 50 52 52 50 49 48 47 46 45 44 44 45 45 45 45 45 45 45 45 49 48 48 48 48 46 43 40 41 39 35 38 42 35 38 60 74 80 81 73 63 55 45 40 42 43 46 47 49 49 49 51 52 54 51 50 50 48 47 45 43 45 46 50 52 52 52 53 51 50 45 40 40 40 42 41 39 53 74 90 102 102 90 75 67 67 64 64 66 68 69 69 70 73 75 73 73 75 74 75 72 64 53 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 85 86 86 86 86 91 102 136 168 193 216 239 253 255 255 255 255 251 249 248 247 243 230 222 216 206 195 180 153 134 101 76 54 48 53 58 57 55 68 95 128 153 172 194 212 221 229 239 235 207 172 140 100 66 76 78 73 65 66 74 71 62 62 63 62 63 63 63 61 61 57 58 61 63 62 57 53 50 49 48 47 46 47 44 45 45 45 45 47 46 46 45 47 47 50 50 51 50 50 50 52 52 48 47 47 46 45 44 43 43 44 44 44 44 44 44 44 44 50 47 45 46 47 47 43 39 43 40 36 40 41 32 40 69 86 82 71 58 51 46 45 46 41 42 46 47 50 49 48 48 52 51 51 50 49 47 46 46 43 44 44 46 49 52 54 56 56 52 46 39 37 36 38 39 39 56 80 100 110 105 88 69 65 64 63 63 64 65 66 66 67 71 73 72 74 75 72 73 68 60 48 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 85 86 86 87 87 93 111 143 172 194 216 239 254 255 255 255 252 250 245 241 237 234 232 228 225 217 210 197 173 153 129 98 66 53 55 57 57 56 88 122 159 181 193 205 221 233 239 233 226 227 234 219 162 99 64 68 78 82 73 61 59 64 61 62 63 64 63 63 63 61 59 60 64 64 62 57 53 51 49 50 49 48 49 46 47 47 47 47 47 46 48 47 47 47 51 51 51 50 52 51 51 51 48 48 47 47 46 45 45 45 46 46 46 46 46 46 46 46 50 47 45 46 48 48 45 42 43 43 40 40 40 33 45 76 82 72 56 46 44 45 46 49 45 46 47 48 48 47 45 46 48 50 49 47 47 47 46 44 43 43 44 45 46 50 53 55 56 53 47 40 37 36 37 36 37 59 87 107 114 103 81 61 62 62 62 62 62 62 64 64 68 72 74 74 76 76 71 69 63 57 46 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 86 86 87 88 88 93 109 133 160 183 208 232 249 255 253 252 250 249 243 237 232 227 234 232 229 223 219 205 185 165 146 114 79 59 58 61 66 71 115 148 184 204 211 219 233 244 235 244 246 241 234 229 218 199 127 81 58 70 74 60 55 68 62 63 63 64 62 62 62 61 60 63 65 63 61 56 53 52 51 50 51 50 49 48 49 47 47 47 47 46 48 47 47 47 51 50 50 49 51 50 49 49 48 47 47 47 46 46 45 45 45 45 45 45 45 45 45 45 48 47 46 46 47 48 47 46 42 46 41 39 43 44 52 74 64 54 47 44 47 47 44 43 46 47 47 46 46 45 44 43 44 44 46 44 46 44 44 44 43 43 43 44 43 46 49 50 53 50 47 45 41 39 37 37 37 62 92 109 108 95 75 57 60 59 61 61 59 59 60 62 67 71 74 75 76 76 67 66 56 51 42 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 84 84 85 85 85 85 85 86 86 87 88 89 94 107 122 148 177 205 226 242 252 251 249 247 246 242 236 231 231 234 235 232 230 226 214 195 175 154 125 91 70 67 75 90 100 141 168 198 217 227 235 244 249 251 248 243 237 237 240 241 234 203 144 89 68 69 70 65 65 63 63 64 64 62 61 60 60 63 64 65 61 57 53 53 54 51 52 53 52 51 48 49 49 47 47 47 46 48 47 47 47 50 50 51 50 49 48 48 47 48 47 47 47 47 46 46 46 45 45 45 45 45 45 45 45 47 48 49 49 48 49 51 53 48 52 45 44 58 67 64 68 48 46 47 49 50 46 43 44 45 45 44 43 43 43 41 41 40 41 43 41 43 41 41 41 42 41 43 42 43 44 46 45 49 48 48 49 46 42 38 36 39 63 91 103 98 84 69 56 59 59 61 61 59 59 60 62 68 72 74 76 77 75 64 59 52 47 38 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 85 86 86 87 85 85 85 85 86 87 90 92 94 101 114 122 144 179 209 225 241 254 250 249 247 244 242 241 238 240 239 241 239 237 233 223 203 183 155 129 98 78 76 87 110 125 162 181 207 226 238 244 247 245 247 247 247 249 244 238 238 239 225 224 184 113 71 72 74 59 64 64 62 62 61 60 59 59 62 62 62 59 53 50 51 54 53 52 53 52 51 48 49 49 47 47 49 48 48 47 47 47 49 49 50 49 48 47 47 46 48 48 47 47 47 47 47 46 45 45 45 45 45 45 45 45 46 49 52 51 50 48 52 56 53 59 50 50 74 90 77 65 49 49 50 53 48 43 44 51 43 42 41 40 40 42 43 44 41 41 42 42 42 42 42 42 44 43 45 44 44 44 45 43 48 49 52 52 51 46 39 36 42 66 91 97 88 75 65 58 59 60 63 63 60 57 61 61 69 72 75 76 78 77 65 59 52 47 37 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 88 89 90 90 88 86 78 82 88 93 92 97 114 134 146 160 181 202 223 238 248 249 253 252 250 246 242 241 242 243 242 242 237 235 231 222 202 182 155 124 89 77 88 108 130 144 178 199 222 235 242 246 248 247 252 252 252 250 250 250 250 250 248 248 246 223 159 88 61 66 69 61 57 59 63 64 64 61 56 56 56 56 53 52 53 53 53 54 52 51 50 49 49 49 49 49 49 48 47 47 46 45 46 46 47 47 46 45 43 43 47 49 49 48 48 47 47 47 46 47 48 49 48 47 45 44 45 47 48 48 48 46 48 51 50 58 58 79 92 106 111 61 46 48 48 47 47 47 46 46 45 45 45 44 44 43 43 43 45 45 45 45 45 45 45 45 46 45 45 44 44 45 45 46 50 50 53 55 54 52 48 45 46 61 78 81 72 60 56 54 62 62 61 61 60 58 62 63 71 75 79 80 82 78 63 54 42 46 44 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 81 83 87 91 95 108 132 154 180 195 216 233 244 253 255 255 251 250 250 249 244 242 242 243 241 239 237 233 229 218 195 175 151 118 85 73 85 111 138 156 188 209 229 241 245 249 250 249 252 252 252 252 252 252 252 254 255 252 248 247 230 185 119 70 65 63 63 61 56 52 54 58 55 55 58 55 54 50 54 55 55 56 55 53 52 51 49 51 50 50 49 49 48 47 46 46 45 46 46 46 46 44 42 43 47 49 49 48 48 48 47 47 44 44 46 47 49 49 49 50 48 49 48 49 47 49 48 50 54 61 65 83 101 115 114 60 46 47 47 47 46 46 46 45 45 45 45 44 44 43 43 43 46 46 46 46 46 46 46 46 47 46 45 45 45 45 46 47 48 50 51 54 54 54 52 49 49 62 73 73 64 54 55 58 64 63 64 62 60 58 59 60 69 75 81 84 84 79 62 53 45 48 46 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 85 84 87 91 99 119 151 178 203 221 243 254 255 255 255 254 251 250 250 248 243 239 235 235 236 235 234 229 225 212 191 171 146 121 96 90 105 129 156 173 202 220 237 246 249 252 252 251 252 252 252 252 252 252 252 254 253 255 254 246 244 235 193 143 60 65 58 49 59 77 73 51 55 58 61 59 55 51 55 59 57 57 56 54 53 52 52 52 52 52 51 51 50 49 49 49 48 48 48 48 47 46 44 43 47 49 49 49 48 48 48 47 46 46 46 47 48 49 51 51 52 51 48 49 50 52 50 50 55 65 71 86 109 123 109 54 45 46 46 46 45 45 45 44 45 45 45 44 44 43 43 43 46 46 46 46 46 46 46 46 46 46 45 44 44 45 46 46 45 46 47 49 50 52 52 51 51 58 62 58 50 45 51 57 64 64 66 63 61 57 56 57 68 76 83 86 84 75 56 46 45 48 46 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 86 85 87 93 105 129 166 196 208 230 252 255 254 254 252 248 252 251 249 244 238 230 227 223 226 229 227 223 220 208 188 171 149 137 125 128 145 162 180 191 218 231 244 249 251 253 253 251 252 252 252 252 252 252 252 254 253 255 255 237 230 240 236 222 173 110 63 64 75 64 56 58 54 59 63 61 57 52 54 60 59 60 58 59 57 57 56 56 52 52 52 51 51 50 50 49 48 48 48 47 46 45 45 46 50 50 49 49 49 48 48 48 51 50 48 47 47 47 49 49 54 52 49 50 51 53 51 50 54 64 73 86 111 122 95 44 44 46 45 45 45 44 44 44 45 45 45 44 44 43 43 43 45 45 45 45 45 45 45 45 45 45 44 44 44 44 45 45 44 44 44 45 46 49 50 51 50 53 55 49 43 41 47 52 60 61 65 64 63 59 58 58 69 78 86 88 83 73 52 40 44 46 44 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 84 84 89 96 109 134 172 202 218 241 255 255 253 255 254 250 253 251 248 240 232 223 218 213 218 219 219 217 214 208 191 177 167 160 157 167 181 195 206 215 230 240 248 250 251 253 253 250 252 252 252 252 252 252 252 252 254 250 245 243 248 248 244 234 236 200 137 80 59 60 64 60 55 59 63 61 59 55 56 59 59 60 61 61 60 59 59 59 54 54 54 53 53 53 53 52 52 51 50 49 49 48 48 48 50 50 50 49 49 49 48 48 52 51 49 48 48 48 49 50 54 53 52 53 53 54 51 50 54 63 77 87 111 114 76 40 44 46 45 45 45 44 44 44 45 45 45 44 44 43 43 43 45 45 45 45 45 45 45 45 44 44 43 43 43 43 44 44 46 45 43 43 44 45 45 47 45 47 48 45 41 41 45 47 53 56 61 64 63 61 62 63 71 81 90 90 83 71 52 37 42 44 42 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 84 85 89 97 109 132 168 199 227 248 255 255 255 255 255 250 251 250 244 234 226 217 213 209 211 213 214 212 211 207 196 184 186 182 184 193 206 216 229 237 240 247 251 251 251 253 252 250 252 252 252 252 252 252 252 252 253 247 248 253 253 250 243 239 226 237 217 147 87 70 69 59 58 60 62 63 62 58 57 57 60 61 61 59 60 59 59 59 56 54 54 54 54 53 53 53 54 53 52 50 49 49 49 50 51 50 50 50 49 49 49 49 48 48 48 49 50 52 53 54 52 56 58 59 56 54 51 52 57 63 82 91 110 101 58 42 45 46 46 46 45 45 45 44 45 45 45 44 44 43 43 43 44 44 44 44 44 44 44 44 44 43 42 42 42 42 43 44 46 46 43 43 43 44 44 43 42 43 47 47 46 43 45 44 47 51 56 58 60 63 66 68 74 83 90 90 82 69 49 37 42 44 42 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 86 86 88 93 104 125 160 190 223 247 255 255 253 255 255 246 251 248 241 232 222 216 214 211 210 211 211 209 208 206 199 190 195 198 203 216 227 234 244 251 247 252 253 251 251 253 253 250 252 252 252 252 252 252 252 252 249 250 253 253 252 245 248 253 250 231 234 232 185 98 58 73 62 61 62 64 64 62 58 55 57 58 57 58 58 58 58 60 56 56 56 56 56 56 56 56 58 57 55 53 52 53 53 54 51 51 50 50 50 49 49 49 47 48 49 51 52 53 53 53 52 60 66 67 60 56 53 55 60 62 85 94 107 85 40 46 46 47 47 47 46 46 46 45 45 45 45 44 44 43 43 43 44 44 44 44 44 44 44 44 43 43 42 41 41 42 43 43 45 45 44 44 44 44 43 44 43 44 47 49 50 49 48 46 45 46 51 53 56 58 63 66 73 84 90 88 80 65 48 37 44 44 42 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 89 90 92 91 90 86 89 87 87 90 98 120 154 184 215 240 255 254 254 255 255 244 250 245 238 229 221 216 216 214 210 210 210 206 207 207 200 195 196 204 219 235 246 249 251 252 253 253 253 252 252 253 253 251 252 252 252 252 252 252 252 250 247 247 248 250 254 255 255 250 248 250 241 226 219 203 150 91 68 64 62 65 66 64 60 53 55 54 56 55 55 54 56 56 56 56 56 56 56 56 56 56 59 58 56 54 53 53 54 55 51 51 51 50 50 49 49 49 50 51 52 53 53 51 50 49 52 62 71 72 63 57 55 58 59 59 85 94 102 73 28 48 46 48 48 47 47 47 46 46 45 45 45 44 44 43 43 43 44 44 44 44 44 44 44 44 43 42 42 41 41 42 42 43 43 43 44 45 44 45 46 44 43 45 49 51 54 52 52 49 43 45 48 50 53 55 61 63 73 84 90 87 77 64 47 35 44 44 44 86 86 86 86 86 86 86 86 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 91 87 89 96 103 118 147 176 201 222 243 254 255 255 255 249 250 246 240 235 232 227 223 216 218 212 209 210 209 201 200 202 205 216 227 237 243 250 255 255 254 252 252 252 252 252 252 252 252 252 252 252 252 252 252 250 250 251 253 255 255 255 255 255 255 251 243 238 233 226 217 207 105 75 58 64 71 65 58 61 50 50 51 47 46 45 49 52 53 55 56 56 58 58 57 56 58 57 57 57 56 55 55 55 50 50 51 52 52 51 51 50 51 49 57 57 45 40 39 30 59 55 48 50 62 74 68 55 60 67 90 102 85 49 35 42 47 49 48 48 48 47 47 47 47 47 47 46 45 45 45 44 48 48 47 47 46 46 46 46 43 43 43 43 43 43 42 42 46 45 45 44 45 44 45 45 42 44 47 50 54 56 60 60 50 47 45 41 42 47 56 63 71 78 87 84 73 59 46 42 44 43 44 86 86 86 86 86 86 86 86 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 90 86 89 96 105 120 150 180 204 224 244 255 255 255 252 249 250 244 239 235 230 225 221 214 209 203 202 204 204 201 202 206 215 222 233 242 247 250 253 254 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 249 249 252 255 255 255 255 255 255 253 246 242 239 234 226 215 206 149 91 67 66 68 67 64 51 52 51 51 51 49 49 49 56 56 57 58 57 54 55 58 56 56 56 55 55 54 54 54 52 53 54 54 54 54 53 53 57 50 55 56 43 36 37 33 52 50 44 42 49 63 67 66 61 74 94 95 73 44 37 47 49 50 50 50 49 49 49 49 49 49 49 48 48 47 47 47 49 49 49 48 48 48 47 47 45 45 44 44 43 43 42 42 42 42 41 41 41 42 42 43 45 44 45 47 51 54 62 63 56 53 49 46 43 46 50 54 68 75 84 82 75 60 50 44 44 45 44 86 86 86 86 86 86 86 86 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 88 86 89 97 105 121 153 184 208 226 246 255 255 254 252 248 247 243 237 233 228 222 216 209 201 194 193 198 200 203 207 215 225 234 241 247 250 251 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 250 250 253 253 254 255 255 254 255 252 247 245 246 242 236 227 214 219 208 166 105 66 60 71 72 62 50 42 42 45 51 54 52 51 52 57 56 53 55 62 52 52 52 52 51 51 51 51 53 54 54 55 55 54 53 53 59 49 55 64 51 38 40 43 44 46 42 37 37 50 65 75 69 84 97 83 57 37 40 51 50 52 52 52 51 51 51 50 52 52 51 51 51 50 50 50 52 51 51 51 50 50 50 49 47 47 46 45 44 43 42 42 40 40 40 40 40 41 42 43 48 46 43 43 46 52 60 64 61 58 55 51 45 43 42 44 61 68 77 77 72 60 52 47 46 46 45 85 85 86 86 86 86 87 87 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 88 86 89 96 104 119 152 185 208 227 246 255 255 254 253 249 246 241 237 231 226 220 213 206 192 187 188 194 199 205 217 224 239 245 250 253 252 250 250 251 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 253 253 253 253 253 254 253 250 251 250 248 249 248 248 244 238 237 228 219 219 217 188 121 60 54 53 53 57 59 54 45 38 64 58 56 58 56 48 45 49 51 51 51 51 50 50 50 50 52 53 53 53 53 52 52 51 54 47 63 83 72 52 48 51 42 45 42 38 35 44 58 70 81 92 94 70 46 37 43 49 51 53 53 52 52 51 51 51 53 52 52 52 52 52 52 52 54 54 54 53 53 53 52 52 50 50 48 47 46 44 43 43 42 42 41 41 42 43 44 44 47 45 42 42 46 49 57 58 61 59 59 54 49 44 40 39 53 59 67 69 66 59 52 48 47 47 46 85 85 85 86 86 87 87 87 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 88 87 90 95 101 116 149 183 206 226 245 253 255 254 253 250 248 243 241 235 229 222 214 204 191 185 185 190 200 209 223 237 248 251 255 255 254 251 249 249 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 254 255 255 255 255 254 251 250 248 246 247 247 249 251 251 250 248 234 243 244 241 235 228 210 188 163 135 97 67 53 53 57 60 55 51 50 53 57 58 59 59 49 49 49 49 49 49 49 51 54 54 54 54 54 53 52 51 51 50 77 102 90 64 52 51 42 43 43 43 40 42 47 54 91 94 86 61 46 44 46 45 51 53 53 52 52 51 51 51 52 52 52 52 52 52 52 52 56 56 56 55 55 55 54 54 53 52 51 50 49 47 46 46 46 46 45 44 44 45 46 46 45 45 45 45 49 49 54 52 57 57 60 58 54 47 44 42 46 52 60 63 62 55 50 45 46 45 44 84 84 85 86 86 87 88 88 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 88 87 90 95 99 114 148 183 209 228 246 254 255 254 253 250 248 244 243 239 232 224 213 204 189 181 180 186 197 209 227 243 253 255 255 255 252 249 248 249 250 252 252 252 252 252 252 252 252 252 252 252 252 252 252 254 255 255 255 255 253 250 248 245 241 244 248 250 253 254 255 255 252 254 250 241 240 244 241 237 230 220 208 189 167 141 115 99 75 76 67 50 40 42 44 42 50 50 50 50 51 51 51 51 55 58 58 57 57 56 54 54 53 57 83 103 88 63 50 44 43 43 43 46 44 42 42 46 92 87 77 59 54 54 51 45 52 53 53 53 52 52 52 52 51 51 52 52 52 52 53 53 57 57 57 57 56 56 56 55 55 55 54 53 52 51 50 50 48 47 46 45 44 44 44 44 44 45 48 49 50 50 50 45 49 51 55 58 55 52 49 48 45 48 54 58 57 54 50 45 45 45 44 84 84 85 86 86 87 88 88 87 87 87 87 87 87 87 87 87 87 90 91 93 92 91 87 87 86 90 95 100 115 151 187 216 234 251 255 255 254 253 249 245 242 240 236 230 221 208 199 185 179 176 180 191 207 227 242 254 255 255 255 252 249 247 248 250 252 252 252 252 252 252 252 252 252 252 252 252 252 252 254 255 255 255 254 250 248 243 240 238 242 246 250 254 255 255 255 255 255 255 255 255 249 240 233 241 239 237 237 234 229 223 218 209 208 180 120 71 56 53 48 50 50 50 51 51 52 52 54 56 58 58 58 57 56 55 54 55 59 76 84 67 52 48 43 46 46 47 50 47 44 49 58 82 75 70 64 65 62 57 51 53 55 55 55 54 54 54 53 52 52 52 53 53 54 54 54 58 58 58 57 57 56 56 56 57 57 56 56 55 55 54 54 53 51 50 48 46 45 46 46 47 47 48 49 51 51 50 45 42 45 50 55 55 52 50 50 47 49 54 58 57 55 51 46 46 45 44 82 82 83 84 86 87 88 88 87 87 87 87 87 87 87 87 87 87 89 91 93 92 91 87 86 87 90 96 103 117 157 194 222 239 255 255 255 254 250 246 238 237 233 229 225 215 202 195 184 177 172 177 188 204 224 242 254 255 255 255 251 249 249 250 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 254 255 255 255 253 251 247 244 241 240 242 246 250 251 252 255 255 255 255 255 255 255 252 251 250 240 238 236 234 231 231 234 234 219 228 197 119 55 41 47 47 51 51 52 52 53 53 54 56 55 57 57 56 55 54 53 52 53 56 65 60 44 40 46 42 46 47 50 50 48 46 59 78 73 69 67 70 71 66 59 56 52 53 53 54 54 54 55 55 53 53 53 54 54 55 55 55 57 57 58 56 57 55 56 55 58 57 58 57 57 56 57 57 56 57 52 50 48 46 47 47 49 49 46 46 43 42 41 37 30 33 43 49 54 53 53 53 50 51 53 54 56 53 48 45 45 46 45 78 79 80 81 85 86 87 88 85 85 86 86 86 87 89 88 87 88 91 93 94 91 88 85 85 86 90 93 103 127 172 208 228 240 253 255 251 251 248 243 235 235 230 221 217 214 201 189 189 175 164 169 180 196 215 231 251 255 255 255 255 253 250 251 254 254 254 254 254 254 252 252 253 253 251 250 250 249 249 249 255 254 253 253 255 253 252 248 250 246 247 250 248 244 243 249 255 255 255 255 255 252 252 253 255 255 253 249 242 237 234 232 223 230 202 114 53 51 47 45 49 49 49 49 50 50 52 52 50 53 53 54 55 54 54 53 54 52 45 39 38 42 43 41 48 47 41 40 52 67 68 62 63 66 68 70 69 66 62 59 51 49 48 48 49 50 53 54 54 54 54 54 52 52 52 52 55 54 56 53 55 54 56 55 57 55 56 55 58 57 60 61 58 57 56 52 48 46 46 48 48 49 47 45 41 38 39 39 43 44 49 52 56 57 59 57 54 55 60 59 60 59 52 44 44 43 40 77 78 80 81 83 84 88 88 86 86 87 87 87 88 90 89 88 88 91 93 94 91 90 86 87 86 93 98 110 136 178 209 227 238 253 255 253 249 245 239 236 231 226 216 211 206 196 184 175 166 160 166 181 196 214 228 254 255 255 255 255 255 253 253 254 254 254 254 254 254 252 252 253 253 250 250 250 249 248 248 253 252 253 253 255 255 254 253 253 251 249 241 229 219 222 234 253 255 254 253 251 250 254 255 255 255 255 252 244 236 231 229 223 231 202 112 51 50 46 45 47 47 49 49 50 50 52 52 50 50 53 54 55 54 54 53 53 49 45 39 40 43 44 43 43 42 51 60 64 60 58 57 61 62 65 66 66 65 61 60 54 52 51 48 49 50 52 54 54 54 54 54 52 52 50 50 55 54 54 53 53 54 54 55 55 55 55 55 56 57 58 59 63 62 59 55 53 51 51 54 55 54 52 45 41 42 47 49 59 59 61 62 63 61 58 56 57 60 65 65 67 64 57 48 42 42 39 77 78 80 82 83 85 88 89 88 88 89 89 88 89 91 90 88 89 91 92 94 91 90 86 87 84 90 99 115 142 179 205 223 235 252 255 253 248 242 235 231 224 216 204 198 192 183 173 164 161 163 173 191 206 222 234 254 255 255 255 255 255 253 254 254 254 254 254 254 254 252 252 253 252 250 250 249 249 248 248 253 251 252 253 254 255 254 253 253 251 250 236 216 204 212 230 253 255 254 253 251 250 254 255 255 255 255 252 244 236 231 229 224 231 201 109 48 48 46 46 46 47 49 50 51 50 52 51 50 50 53 53 55 54 55 54 54 49 47 42 44 46 49 50 48 52 73 90 83 61 51 52 56 57 59 60 61 62 62 63 61 58 57 53 53 53 53 54 54 54 54 54 52 52 50 50 55 55 54 54 54 54 55 55 55 55 55 55 56 57 59 59 66 65 63 59 58 56 57 60 62 59 55 49 47 51 61 66 74 74 72 69 64 58 53 50 56 61 68 71 74 70 62 53 46 46 43 77 78 80 82 84 86 89 90 90 90 91 90 90 90 92 91 89 89 91 92 93 91 90 87 85 80 85 96 116 142 173 194 218 231 250 255 252 245 237 228 221 211 201 190 184 178 170 163 168 171 179 192 211 225 239 248 255 255 255 255 255 254 253 254 254 254 254 254 254 254 252 252 252 252 250 249 249 249 247 247 252 250 251 252 254 255 254 253 251 251 250 237 218 208 217 235 253 255 254 253 251 250 254 255 255 255 255 252 244 236 230 228 227 233 201 108 48 48 48 48 46 47 50 50 51 50 51 50 50 50 52 52 54 54 56 55 56 51 50 48 50 51 55 60 71 82 105 116 106 83 65 57 55 54 55 54 56 59 60 62 62 60 60 56 56 56 55 56 54 54 54 54 52 52 50 50 56 55 54 54 54 54 55 56 56 55 55 56 56 58 59 60 63 62 61 57 57 56 57 61 61 59 55 49 47 53 63 69 69 70 69 65 59 52 47 44 50 56 66 71 75 71 62 51 48 47 44 77 78 80 82 84 86 90 91 92 91 92 91 90 90 93 91 89 89 90 91 92 90 90 87 86 80 84 96 116 140 167 184 213 228 247 253 249 242 233 223 214 201 191 182 177 171 165 161 174 182 194 208 225 239 251 255 255 255 255 255 255 254 253 255 254 254 254 254 254 254 252 252 252 252 249 249 249 248 247 247 251 249 251 252 254 255 254 253 251 249 249 241 229 220 225 238 253 255 254 253 251 250 254 255 255 255 255 252 245 236 230 227 229 235 202 109 49 50 50 51 46 47 51 51 52 50 50 49 50 50 52 52 54 54 56 57 58 53 54 54 55 55 61 68 98 115 131 129 121 111 90 65 56 54 53 51 52 55 57 59 60 58 59 56 58 58 57 58 54 54 54 54 52 52 50 50 56 56 55 54 54 55 56 56 56 56 56 56 57 58 59 60 61 60 59 55 55 54 56 59 58 57 54 49 47 51 59 63 63 64 64 61 54 47 43 42 45 52 64 69 74 70 60 49 42 42 39 libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_vs.h0000644000000000000000000000336212421456623016111 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef REPACK_VS_H_ #define REPACK_VS_H_ #include "hrepack.h" #include "hrepack_lsttable.h" #ifdef __cplusplus extern "C" { #endif int copy_vdata_attribute(int32 in, int32 out, int32 findex, intn attrindex); int copy_vs( int32 infile_id, int32 outfile_id, int32 tag, int32 ref, /* ref of input VS */ int32 vgroup_id_out_par, /* output parent group ID */ char*path_name, /* absolute path for input group name */ options_t *options, list_table_t *list_tbl, int is_lone); int copy_vgroup_attrs(int32 vg_in, int32 vg_out, char *path, options_t *options); #ifdef __cplusplus } #endif #endif /* REPACK_VS_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hrepack/hrepack_parse.c0000644000000000000000000003614512421456623016573 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include /*isdigit*/ #include "hrepack.h" #include "hrepack_parse.h" #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif /*------------------------------------------------------------------------- * Function: parse_comp * * Purpose: read compression info * * Return: a list of names, the number of names and its compression type * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 15, 2003 * *------------------------------------------------------------------------- */ obj_list_t* parse_comp(const char *str, int *n_objs, comp_info_t *comp) { unsigned i, u; char c; size_t len=strlen(str); int j, m, n, k, end_obj=-1, no_param=0, l; char obj[H4_MAX_NC_NAME]; char scomp[10]; char stype[5]; char smask[3]; obj_list_t* obj_list=NULL; /* check for the end of object list and number of objects */ for ( i=0, n=0; i\n",str); return NULL; } /*------------------------------------------------------------------------- * allocate the object list of names *------------------------------------------------------------------------- */ n++; obj_list=HDmalloc(n*sizeof(obj_list_t)); *n_objs=n; /* get object list */ for ( j=0, k=0, n=0; j\n",str); goto out; } /*------------------------------------------------------------------------- * get compression type *------------------------------------------------------------------------- */ m=0; for ( i=end_obj+1, k=0; i\n",str); goto out; } if (l==-1) stype[m]=c; else { smask[l]=c; l++; if (l==2) { smask[l]='\0'; i=len-1; /* end */ (*n_objs)--; /* we counted an extra ',' */ if (strcmp(smask,"NN")==0) comp->szip_mode=NN_MODE; else if (strcmp(smask,"EC")==0) comp->szip_mode=EC_MODE; else { printf("Input Error: szip mask must be 'NN' or 'EC' \n"); goto out; } } } } /* u */ } /* SZIP */ else { /* here we could have 1, 2 or 3 digits (2 and 3 in the JPEG case) */ for ( m=0,u=i+1; u\n",str); goto out; } stype[m]=c; } /* m */ } /* else , no SZIP */ /* set return value of the compression parameter */ stype[m]='\0'; comp->info=atoi(stype); i+=m; /* jump */ } /* if c==' ' */ else if (i==len-1) { /*no more parameters */ scomp[k+1]='\0'; no_param=1; } if (HDstrcmp(scomp,"NONE")==0) comp->type=COMP_CODE_NONE; else if (HDstrcmp(scomp,"RLE")==0) { comp->type=COMP_CODE_RLE; if (m>0){ /*RLE does not have parameter */ printf("Input Error: Extra compression parameter in RLE <%s>\n",str); goto out; } } else if (HDstrcmp(scomp,"HUFF")==0) { comp->type=COMP_CODE_SKPHUFF; if (no_param) { /*no more parameters, HUFF must have parameter */ printf("Input Error: Missing compression parameter in <%s>\n",str); goto out; } } else if (HDstrcmp(scomp,"GZIP")==0) { comp->type=COMP_CODE_DEFLATE; if (no_param) { /*no more parameters, GZIP must have parameter */ printf("Input Error: Missing compression parameter in <%s>\n",str); goto out; } } else if (HDstrcmp(scomp,"JPEG")==0) { comp->type=COMP_CODE_JPEG; if (no_param) { /*no more parameters, JPEG must have parameter */ printf("Input Error: Missing compression parameter in <%s>\n",str); goto out; } } else if (HDstrcmp(scomp,"SZIP")==0) { #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { comp->type=COMP_CODE_SZIP; if (no_param) { /*no more parameters, SZIP must have parameter */ printf("Input Error: Missing compression parameter in <%s>\n",str); goto out; } if (comp->szip_mode==FAIL) { printf("Input Error: SZIP compression mode must be NN_MODE or EC_MODE"); goto out; } } else { printf("Input Error: SZIP encoder is not available\n"); goto out; } #else printf("Input Error: SZIP compression is not available\n"); goto out; #endif } else { printf("Input Error: Invalid compression type in <%s>\n",str); goto out; } } } /*i*/ /*------------------------------------------------------------------------- * check valid parameters *------------------------------------------------------------------------- */ switch (comp->type) { default: break; case COMP_CODE_RLE: break; case COMP_CODE_SKPHUFF: if (comp->info<=0 ){ printf("Input Error: Invalid compression parameter in <%s>\n",str); goto out; } break; case COMP_CODE_DEFLATE: if (comp->info<0 || comp->info>9 ){ printf("Input Error: Invalid compression parameter in <%s>\n",str); goto out; } break; case COMP_CODE_JPEG: if (comp->info<0 || comp->info>100 ){ printf("Input Error: Invalid compression parameter in <%s>\n",str); goto out; } break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ if ( (comp->info<=1 || comp->info > SZ_MAX_PIXELS_PER_BLOCK) || (comp->info%2!=0) ){ printf("Input Error: Invalid compression parameter in <%s>. \ Pixels per block must be an even number < %d\n",str,SZ_MAX_PIXELS_PER_BLOCK); goto out; } #else printf("Input Error: Invalid compression method in <%s>. SZIP is not available\n", str); goto out; #endif break; }; return obj_list; out: if (obj_list) HDfree(obj_list); return NULL; } /*------------------------------------------------------------------------- * Function: parse_chunk * * Purpose: read chunk info * * Return: a list of names, the number of names and its chunking info * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 17, 2003 * *------------------------------------------------------------------------- */ obj_list_t* parse_chunk(const char *str, int *n_objs, int32 *chunk_lengths, int *chunk_rank) { obj_list_t* obj_list=NULL; unsigned i; char c; size_t len=strlen(str); int j, n, k, end_obj=-1, c_index; char obj[H4_MAX_NC_NAME]; char sdim[10]; /* check for the end of object list and number of objects */ for ( i=0, n=0; i\n",str); return NULL; } /*------------------------------------------------------------------------- * allocate the object list of names *------------------------------------------------------------------------- */ n++; obj_list=HDmalloc(n*sizeof(obj_list_t)); *n_objs=n; /* get object list */ for ( j=0, k=0, n=0; j\n",str); goto out; } /* get chunk info */ k=0; for ( i=end_obj+1, c_index=0; i\n",str); goto out; } if ( c=='x' || i==len-1) { if ( c=='x') { sdim[k-1]='\0'; k=0; chunk_lengths[c_index]=atoi(sdim); if (chunk_lengths[c_index]==0) { printf("Input Error: Invalid chunking in <%s>\n",str); goto out; } c_index++; } else if (i==len-1) { /*no more parameters */ sdim[k]='\0'; k=0; if (strcmp(sdim,"NONE")==0) { *chunk_rank=-2; } else { chunk_lengths[c_index]=atoi(sdim); if (chunk_lengths[c_index]==0){ printf("Input Error: Invalid chunking in <%s>\n",str); goto out; } *chunk_rank=c_index+1; } } /*if */ } /*if c=='x' || i==len-1 */ } /*i*/ return obj_list; out: if (obj_list) HDfree(obj_list); return NULL; } /*------------------------------------------------------------------------- * Function: parse_number * * Purpose: read a number from command line argument * * Return: number, -1 for FAIL * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 31, 2003 * *------------------------------------------------------------------------- */ int parse_number(char *str) { unsigned i; int n; char c; size_t len=strlen(str); for ( i=0; i) ADD_TEST (NAME test_hrepack COMMAND $) SET_TESTS_PROPERTIES (test_hrepack PROPERTIES DEPENDS hrepack-clearall-objects LABELS ${PROJECT_NAME}) libhdf4-4.2.10/HDF_ALT/mfhdf/Makefile.in0000644000000000000000000004644412421456623014253 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am THANKS subdir = mfhdf ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-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 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=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags 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@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog @HDF_BUILD_XDR_FALSE@XDR_DIR = @HDF_BUILD_XDR_TRUE@XDR_DIR = xdr @HDF_BUILD_FORTRAN_FALSE@FORTRAN_DIR = @HDF_BUILD_FORTRAN_TRUE@FORTRAN_DIR = fortran # src folder in root Makefile, build other folders now SUBDIRS = $(XDR_DIR) libsrc $(FORTRAN_DIR) test ncdump ncgen dumper hdfimport hdiff hrepack nctest DIST_SUBDIRS = xdr libsrc fortran test ncdump ncgen dumper hdfimport hdiff hrepack nctest examples all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 mfhdf/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): 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. $(RECURSIVE_TARGETS) $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ 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" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done cscopelist-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) 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; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @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 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 Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: 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: installcheck-local maintainer-clean: maintainer-clean-recursive -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: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \ cscopelist-recursive ctags-recursive install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ cscopelist cscopelist-recursive ctags ctags-recursive \ distclean distclean-generic distclean-libtool distclean-tags \ distdir dvi dvi-am 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 installcheck-local \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples $(FORTRAN_DIR); do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/Makefile.am0000644000000000000000000000161412421456623014230 0ustar include $(top_srcdir)/config/commence.am if HDF_BUILD_XDR XDR_DIR = xdr else XDR_DIR = endif if HDF_BUILD_FORTRAN FORTRAN_DIR = fortran else FORTRAN_DIR = endif # src folder in root Makefile, build other folders now SUBDIRS = $(XDR_DIR) libsrc $(FORTRAN_DIR) test ncdump ncgen dumper hdfimport hdiff hrepack nctest DIST_SUBDIRS = xdr libsrc fortran test ncdump ncgen dumper hdfimport hdiff hrepack nctest examples installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples $(FORTRAN_DIR); do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done libhdf4-4.2.10/HDF_ALT/mfhdf/COPYRIGHT0000644000000000000000000000353512421456623013473 0ustar Copyright 1993 University Corporation for Atmospheric Research/Unidata Portions of this software were developed by the Unidata Program at the University Corporation for Atmospheric Research. Access and use of this software shall impose the following obligations and understandings on the user. The user is granted the right, without any fee or cost, to use, copy, modify, alter, enhance and distribute this software, and any derivative works thereof, and its supporting documentation for any purpose whatsoever, provided that this entire notice appears in all copies of the software, derivative works and supporting documentation. Further, UCAR requests that the user credit UCAR/Unidata in any publications that result from the use of this software or in any product that includes this software, although this is not an obligation. The names UCAR and/or Unidata, however, may not be used in any advertising or publicity to endorse or promote any products or commercial entity unless specific written permission is obtained from UCAR/Unidata. The user also understands that UCAR/Unidata is not obligated to provide the user with any support, consulting, training or assistance of any kind with regard to the use, operation and performance of this software nor to provide the user with any updates, revisions, new versions or "bug fixes." THIS SOFTWARE IS PROVIDED BY UCAR/UNIDATA "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL UCAR/UNIDATA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE ACCESS, USE OR PERFORMANCE OF THIS SOFTWARE. libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/0000755000000000000000000000000012421456623012767 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/win32xdr.mak0000644000000000000000000001116112421456623015141 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Static Library" 0x0104 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "win32xdr.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Static Library") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Static Library") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project CPP=cl.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\win32xdr.lib .\win32xdr.bsc # ADD BASE CPP /nologo /ML /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /FR /c # ADD CPP /nologo /ML /W3 /GX /O2 /D "NDEBUG" /D "WIN32" /D "_WINDOWS" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /O2 /D "NDEBUG" /D "WIN32" /D "_WINDOWS"\ /Fo$(INTDIR)/ /c CPP_OBJS= BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"win32xdr.bsc" .\win32xdr.bsc : $(OUTDIR) $(BSC32_SBRS) LIB32=lib.exe DEF_FLAGS= DEF_FILE= LIB32_OBJS= \ .\xdrstdio.obj \ .\xdrarray.obj \ .\xdrfloat.obj \ .\xdr.obj \ .\byteordr.obj # ADD BASE LIB32 /NOLOGO # ADD LIB32 /NOLOGO LIB32_FLAGS=/NOLOGO /OUT:$(OUTDIR)\"win32xdr.lib" .\win32xdr.lib : $(OUTDIR) $(DEF_FILE) $(LIB32_OBJS) $(LIB32) @<< $(LIB32_FLAGS) $(DEF_FLAGS) $(LIB32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\win32xdr.lib .\win32xdr.bsc # ADD BASE CPP /nologo /ML /W3 /GX /Z7 /YX /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /FR /c # ADD CPP /nologo /ML /W3 /GX /Z7 /Od /D "_DEBUG" /D "WIN32" /D "_WINDOWS" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /Z7 /Od /D "_DEBUG" /D "WIN32" /D "_WINDOWS"\ /Fo$(INTDIR)/ /c CPP_OBJS= BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"win32xdr.bsc" .\win32xdr.bsc : $(OUTDIR) $(BSC32_SBRS) LIB32=lib.exe DEF_FLAGS= DEF_FILE= LIB32_OBJS= \ .\xdrstdio.obj \ .\xdrarray.obj \ .\xdrfloat.obj \ .\xdr.obj \ .\byteordr.obj # ADD BASE LIB32 /NOLOGO # ADD LIB32 /NOLOGO LIB32_FLAGS=/NOLOGO /OUT:$(OUTDIR)\"win32xdr.lib" .\win32xdr.lib : $(OUTDIR) $(DEF_FILE) $(LIB32_OBJS) $(LIB32) @<< $(LIB32_FLAGS) $(DEF_FLAGS) $(LIB32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\xdrstdio.c .\xdrstdio.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\xdrarray.c .\xdrarray.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\xdrfloat.c .\xdrfloat.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\types.h # End Source File ################################################################################ # Begin Source File SOURCE=.\xdr.c .\xdr.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\xdr.h # End Source File ################################################################################ # Begin Source File SOURCE=.\byteordr.c .\byteordr.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/CMakeLists.txt0000644000000000000000000000342012421456623015526 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_XDR C CXX) SET (HDF4_MFHDF_XDR_SRCS ${HDF4_MFHDF_XDR_SOURCE_DIR}/xdr.c ${HDF4_MFHDF_XDR_SOURCE_DIR}/xdrfloat.c ${HDF4_MFHDF_XDR_SOURCE_DIR}/xdrstdio.c ${HDF4_MFHDF_XDR_SOURCE_DIR}/xdrarray.c ) SET (HDF4_MFHDF_XDR_HDRS ${HDF4_MFHDF_XDR_SOURCE_DIR}/xdr.h ${HDF4_MFHDF_XDR_SOURCE_DIR}/types.h ) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS -DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) IF (MSVC) ADD_LIBRARY (${HDF4_MF_XDR_LIB_TARGET} ${LIB_TYPE} ${HDF4_MFHDF_XDR_SRCS} ${HDF4_MFHDF_XDR_HDRS}) TARGET_LINK_LIBRARIES (${HDF4_MF_XDR_LIB_TARGET} "ws2_32.lib") ELSE (MSVC) ADD_LIBRARY (${HDF4_MF_XDR_LIB_TARGET} ${LIB_TYPE} ${HDF4_MFHDF_XDR_SRCS} ${HDF4_MFHDF_XDR_HDRS} ) ENDIF (MSVC) TARGET_C_PROPERTIES (${HDF4_MF_XDR_LIB_TARGET} " " " ") SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_MF_XDR_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_MF_XDR_LIB_TARGET} ${HDF4_MF_XDR_LIB_NAME} ${LIB_TYPE}) #----------------------------------------------------------------------------- # Add library to CMake Install : Installs lib and cmake config info #----------------------------------------------------------------------------- IF (BUILD_SHARED_LIBS) INSTALL_TARGET_PDB (${HDF4_MF_XDR_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} libraries) ENDIF (BUILD_SHARED_LIBS) INSTALL ( TARGETS ${HDF4_MF_XDR_LIB_TARGET} EXPORT ${HDF4_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries ARCHIVE DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries RUNTIME DESTINATION ${HDF4_INSTALL_BIN_DIR} COMPONENT libraries ) libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/depend0000644000000000000000000000272312421456623014155 0ustar byteordr.o: byteordr.c xdr.o: xdr.c xdr.o: types.h xdr.o: xdr.h xdr.o: ../../hdf/src//hdf.h xdr.o: ../../hdf/src//hdfi.h xdr.o: ../../hdf/src//hlimits.h xdr.o: ../../hdf/src//hntdefs.h xdr.o: ../../hdf/src//htags.h xdr.o: ../../hdf/src//hbitio.h xdr.o: ../../hdf/src//hcomp.h xdr.o: ../../hdf/src//herr.h xdr.o: ../../hdf/src//hproto.h xdrarray.o: xdrarray.c xdrarray.o: types.h xdrarray.o: xdr.h xdrarray.o: ../../hdf/src//hdf.h xdrarray.o: ../../hdf/src//hdfi.h xdrarray.o: ../../hdf/src//hlimits.h xdrarray.o: ../../hdf/src//hntdefs.h xdrarray.o: ../../hdf/src//htags.h xdrarray.o: ../../hdf/src//hbitio.h xdrarray.o: ../../hdf/src//hcomp.h xdrarray.o: ../../hdf/src//herr.h xdrarray.o: ../../hdf/src//hproto.h xdrfloat.o: xdrfloat.c xdrfloat.o: types.h xdrfloat.o: xdr.h xdrfloat.o: ../../hdf/src//hdf.h xdrfloat.o: ../../hdf/src//hdfi.h xdrfloat.o: ../../hdf/src//hlimits.h xdrfloat.o: ../../hdf/src//hntdefs.h xdrfloat.o: ../../hdf/src//htags.h xdrfloat.o: ../../hdf/src//hbitio.h xdrfloat.o: ../../hdf/src//hcomp.h xdrfloat.o: ../../hdf/src//herr.h xdrfloat.o: ../../hdf/src//hproto.h xdrstdio.o: xdrstdio.c xdrstdio.o: types.h xdrstdio.o: xdr.h xdrstdio.o: ../../hdf/src//hdf.h xdrstdio.o: ../../hdf/src//hdfi.h xdrstdio.o: ../../hdf/src//hlimits.h xdrstdio.o: ../../hdf/src//hntdefs.h xdrstdio.o: ../../hdf/src//htags.h xdrstdio.o: ../../hdf/src//hbitio.h xdrstdio.o: ../../hdf/src//hcomp.h xdrstdio.o: ../../hdf/src//herr.h xdrstdio.o: ../../hdf/src//hproto.h xdrtest.o: xdrtest.c libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/Makefile.in0000644000000000000000000006716112421456623015047 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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@ # # XDR Library Makefile(.in) # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(include_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am check_PROGRAMS = xdrtest$(EXEEXT) TESTS = $(am__EXEEXT_1) subdir = mfhdf/xdr ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.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)$(includedir)" LTLIBRARIES = $(lib_LTLIBRARIES) libxdr_la_LIBADD = am_libxdr_la_OBJECTS = xdr.lo xdrfloat.lo xdrstdio.lo xdrarray.lo libxdr_la_OBJECTS = $(am_libxdr_la_OBJECTS) am_xdrtest_OBJECTS = xdrtest.$(OBJEXT) xdrtest_OBJECTS = $(am_xdrtest_OBJECTS) xdrtest_LDADD = $(LDADD) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libxdr_la_SOURCES) $(xdrtest_SOURCES) DIST_SOURCES = $(libxdr_la_SOURCES) $(xdrtest_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac HEADERS = $(include_HEADERS) ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = xdrtest$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog INCLUDES = -I$(top_srcdir)/hdf/src # XDR Library lib_LTLIBRARIES = libxdr.la libxdr_la_SOURCES = xdr.c xdrfloat.c xdrstdio.c xdrarray.c include_HEADERS = xdr.h types.h TEST_PROG = xdrtest xdrtest_SOURCES = xdrtest.c # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/xdr/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/xdr/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } libxdr.la: $(libxdr_la_OBJECTS) $(libxdr_la_DEPENDENCIES) $(EXTRA_libxdr_la_DEPENDENCIES) $(LINK) -rpath $(libdir) $(libxdr_la_OBJECTS) $(libxdr_la_LIBADD) $(LIBS) 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 xdrtest$(EXEEXT): $(xdrtest_OBJECTS) $(xdrtest_DEPENDENCIES) $(EXTRA_xdrtest_DEPENDENCIES) @rm -f xdrtest$(EXEEXT) $(LINK) $(xdrtest_OBJECTS) $(xdrtest_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdrarray.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdrfloat.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdrstdio.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdrtest.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs 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) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) all-local installdirs: for dir in "$(DESTDIR)$(libdir)" "$(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: 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-libLTLIBRARIES \ clean-libtool mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-includeHEADERS 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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-includeHEADERS uninstall-libLTLIBRARIES .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-checkPROGRAMS clean-generic clean-libLTLIBRARIES \ clean-libtool cscopelist ctags distclean distclean-compile \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am 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-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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-includeHEADERS uninstall-libLTLIBRARIES # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdr.h0000644000000000000000000002134612421456623013743 0ustar /* @(#)xdr.h 1.1 87/11/04 3.9 RPCSRC */ /* @(#)xdr.h 1.19 87/04/22 SMI */ /* * xdr.h, External Data Representation Serialization Routines. * * Copyright (C) 1984, Sun Microsystems, Inc. */ #ifndef __XDR_HEADER__ #define __XDR_HEADER__ #include "H4api_adpt.h" /* * XDR provides a conventional way for converting between C data * types and an external bit-string representation. Library supplied * routines provide for the conversion on built-in C data types. These * routines and utility routines defined here are used to help implement * a type encode/decode routine for each user-defined type. * * Each data type provides a single procedure which takes two arguments: * * bool_t * xdrproc(xdrs, argresp) * XDR *xdrs; * *argresp; * * xdrs is an instance of a XDR handle, to which or from which the data * type is to be converted. argresp is a pointer to the structure to be * converted. The XDR handle contains an operation field which indicates * which of the operations (ENCODE, DECODE * or FREE) is to be performed. * * XDR_DECODE may allocate space if the pointer argresp is null. This * data can be freed with the XDR_FREE operation. * * We write only one procedure per data type to make it easy * to keep the encode and decode procedures for a data type consistent. * In many cases the same code performs all operations on a user defined type, * because all the hard work is done in the component type routines. * decode as a series of calls on the nested data types. */ /* * Xdr operations. XDR_ENCODE causes the type to be encoded into the * stream. XDR_DECODE causes the type to be extracted from the stream. * XDR_FREE can be used to release the space allocated by an XDR_DECODE * request. */ enum xdr_op { XDR_ENCODE=0, XDR_DECODE=1, XDR_FREE=2 }; /* * This is the number of bytes per unit of external data. */ #define BYTES_PER_XDR_UNIT (4) #define RNDUP(x) ((((x) + BYTES_PER_XDR_UNIT - 1) / BYTES_PER_XDR_UNIT) \ * BYTES_PER_XDR_UNIT) /* * A xdrproc_t exists for each data type which is to be encoded or decoded. * * The second argument to the xdrproc_t is a pointer to an opaque pointer. * The opaque pointer generally points to a structure of the data type * to be decoded. If this pointer is 0, then the type routines should * allocate dynamic storage of the appropriate size and return it. * bool_t (*xdrproc_t)(XDR *, caddr_t *); */ typedef bool_t (*xdrproc_t)(); /* * The XDR handle. * Contains operation which is being applied to the stream, * an operations vector for the paticular implementation (e.g. see xdr_mem.c), * and two private fields for the use of the particular impelementation. */ typedef struct { enum xdr_op x_op; /* operation; fast additional param */ struct xdr_ops { bool_t (*x_getlong)(); /* get a long from underlying stream */ bool_t (*x_putlong)(); /* put a long to " */ bool_t (*x_getbytes)();/* get some bytes from " */ bool_t (*x_putbytes)();/* put some bytes to " */ u_long (*x_getpostn)();/* returns bytes off from beginning */ bool_t (*x_setpostn)();/* lets you reposition the stream */ long * (*x_inline)(); /* buf quick ptr to buffered data */ void (*x_destroy)(); /* free privates of this xdr_stream */ } *x_ops; caddr_t x_public; /* users' data */ caddr_t x_private; /* pointer to private data */ caddr_t x_base; /* private used for position info */ int x_handy; /* extra private word */ } XDR; /* * Operations defined on a XDR handle * * XDR *xdrs; * long *longp; * caddr_t addr; * u_int len; * u_int pos; */ #define XDR_GETLONG(xdrs, longp) \ (*(xdrs)->x_ops->x_getlong)(xdrs, longp) #define xdr_getlong(xdrs, longp) \ (*(xdrs)->x_ops->x_getlong)(xdrs, longp) #define XDR_PUTLONG(xdrs, longp) \ (*(xdrs)->x_ops->x_putlong)(xdrs, longp) #define xdr_putlong(xdrs, longp) \ (*(xdrs)->x_ops->x_putlong)(xdrs, longp) #define XDR_GETBYTES(xdrs, addr, len) \ (*(xdrs)->x_ops->x_getbytes)(xdrs, addr, len) #define xdr_getbytes(xdrs, addr, len) \ (*(xdrs)->x_ops->x_getbytes)(xdrs, addr, len) #define XDR_PUTBYTES(xdrs, addr, len) \ (*(xdrs)->x_ops->x_putbytes)(xdrs, addr, len) #define xdr_putbytes(xdrs, addr, len) \ (*(xdrs)->x_ops->x_putbytes)(xdrs, addr, len) #define XDR_GETPOS(xdrs) \ (*(xdrs)->x_ops->x_getpostn)(xdrs) #define xdr_getpos(xdrs) \ (*(xdrs)->x_ops->x_getpostn)(xdrs) #define XDR_SETPOS(xdrs, pos) \ (*(xdrs)->x_ops->x_setpostn)(xdrs, pos) #define xdr_setpos(xdrs, pos) \ (*(xdrs)->x_ops->x_setpostn)(xdrs, pos) #define XDR_INLINE(xdrs, len) \ (*(xdrs)->x_ops->x_inline)(xdrs, len) #define xdr_inline(xdrs, len) \ (*(xdrs)->x_ops->x_inline)(xdrs, len) #define XDR_DESTROY(xdrs) \ if ((xdrs)->x_ops->x_destroy) \ (*(xdrs)->x_ops->x_destroy)(xdrs) #define xdr_destroy(xdrs) \ if ((xdrs)->x_ops->x_destroy) \ (*(xdrs)->x_ops->x_destroy)(xdrs) /* * Support struct for discriminated unions. * You create an array of xdrdiscrim structures, terminated with * a entry with a null procedure pointer. The xdr_union routine gets * the discriminant value and then searches the array of structures * for a matching value. If a match is found the associated xdr routine * is called to handle that part of the union. If there is * no match, then a default routine may be called. * If there is no match and no default routine it is an error. */ #define NULL_xdrproc_t ((xdrproc_t)0) struct xdr_discrim { int value; xdrproc_t proc; }; /* * In-line routines for fast encode/decode of primitve data types. * Caveat emptor: these use single memory cycles to get the * data from the underlying buffer, and will fail to operate * properly if the data is not aligned. The standard way to use these * is to say: * if ((buf = XDR_INLINE(xdrs, count)) == NULL) * return (FALSE); * <<< macro calls >>> * where ``count'' is the number of bytes of data occupied * by the primitive data types. * * N.B. and frozen for all time: each data type here uses 4 bytes * of external representation. */ #define IXDR_GET_LONG(buf) ((long)ntohl((u_long)*(buf)++)) #define IXDR_PUT_LONG(buf, v) (*(buf)++ = (long)htonl((u_long)v)) #define IXDR_GET_BOOL(buf) ((bool_t)IXDR_GET_LONG(buf)) #define IXDR_GET_ENUM(buf, t) ((t)IXDR_GET_LONG(buf)) #define IXDR_GET_U_LONG(buf) ((u_long)IXDR_GET_LONG(buf)) #define IXDR_GET_SHORT(buf) ((short)IXDR_GET_LONG(buf)) #define IXDR_GET_U_SHORT(buf) ((u_short)IXDR_GET_LONG(buf)) #define IXDR_PUT_BOOL(buf, v) IXDR_PUT_LONG((buf), ((long)(v))) #define IXDR_PUT_ENUM(buf, v) IXDR_PUT_LONG((buf), ((long)(v))) #define IXDR_PUT_U_LONG(buf, v) IXDR_PUT_LONG((buf), ((long)(v))) #define IXDR_PUT_SHORT(buf, v) IXDR_PUT_LONG((buf), ((long)(v))) #define IXDR_PUT_U_SHORT(buf, v) IXDR_PUT_LONG((buf), ((long)(v))) #ifdef __cplusplus extern "C" { #endif /* * These are the "generic" xdr routines. */ XDRLIBAPI void xdr_free(xdrproc_t , char *); XDRLIBAPI bool_t xdr_void(void); XDRLIBAPI bool_t xdr_int(XDR *, int *); XDRLIBAPI bool_t xdr_u_int(XDR *, u_int *); XDRLIBAPI bool_t xdr_long(XDR *, long *); XDRLIBAPI bool_t xdr_u_long(XDR *, u_long *); XDRLIBAPI bool_t xdr_short(XDR *, short *); XDRLIBAPI bool_t xdr_u_short(XDR *, u_short *); XDRLIBAPI bool_t xdr_bool(XDR *, bool_t *); XDRLIBAPI bool_t xdr_enum(XDR *, enum_t *); XDRLIBAPI bool_t xdr_array(XDR *, caddr_t *, u_int *, u_int, u_int, xdrproc_t ); XDRLIBAPI bool_t xdr_bytes(XDR *, char **, u_int *, u_int); XDRLIBAPI bool_t xdr_opaque(XDR *, caddr_t , u_int ); XDRLIBAPI bool_t xdr_string(XDR *, char **, u_int); XDRLIBAPI bool_t xdr_union(XDR *, enum_t *, char *, struct xdr_discrim *, xdrproc_t ); XDRLIBAPI bool_t xdr_char(XDR *, char *); XDRLIBAPI bool_t xdr_u_char(XDR *, char *); XDRLIBAPI bool_t xdr_vector(XDR *, char *, u_int, u_int, xdrproc_t ); XDRLIBAPI bool_t xdr_float(XDR *, float *); XDRLIBAPI bool_t xdr_double(XDR *, double *); XDRLIBAPI bool_t xdr_reference(); XDRLIBAPI bool_t xdr_pointer(); XDRLIBAPI bool_t xdr_wrapstring(XDR *, char **); /* * Common opaque bytes objects used by many rpc protocols; * declared here due to commonality. */ #define MAX_NETOBJ_SZ 1024 struct netobj { u_int n_len; char *n_bytes; }; typedef struct netobj netobj; XDRLIBAPI bool_t xdr_netobj(XDR *,struct netobj *); /* * These are the public routines for the various implementations of * xdr streams. */ XDRLIBAPI void xdrmem_create(); /* XDR using memory buffers */ XDRLIBAPI void xdrstdio_create(XDR *, FILE *, enum xdr_op ); /* XDR using stdio library */ XDRLIBAPI void xdrrec_create(); /* XDR pseudo records for tcp */ XDRLIBAPI bool_t xdrrec_endofrecord(); /* make end of xdr record */ XDRLIBAPI bool_t xdrrec_skiprecord(); /* move to beginning of next record */ XDRLIBAPI bool_t xdrrec_eof(); /* true if no more input */ #ifdef __cplusplus } #endif #ifdef HDF #include "hdf.h" #endif /* HDF */ #endif /* !__XDR_HEADER__ */ libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/Makefile.am0000644000000000000000000000102712421456623015023 0ustar ## Makefile.am ## Run automake to generate a Makefile.in from this file. # # XDR Library Makefile(.in) # include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src # XDR Library lib_LTLIBRARIES = libxdr.la libxdr_la_SOURCES = xdr.c xdrfloat.c xdrstdio.c xdrarray.c include_HEADERS = xdr.h types.h # Test program. Link using libxdr.la check_PROGRAMS = xdrtest TEST_PROG = xdrtest xdrtest_SOURCES = xdrtest.c include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.c0000644000000000000000000002163012421456623014632 0ustar /* * Copyright 1988, University Corporation for Atmospheric Research * Not for Resale. All copies to include this notice. */ /* * This program tests only the xdr library functionality required by netCDF. * 'xdr_vector' is not used by the netCDF, it is used here for convenience. */ #include #include /* for on some systems */ #if !defined MSDOS & !defined _WIN32 #include /* for htonl() */ #endif /* * The following is necessary because the assert() macro *must* be defined * for the proper operation of this program. */ #undef NDEBUG #if 0 #define NDEBUG # ifndef NDEBUG # define _assert(ex) {if (!(ex)){(void)fprintf(stderr,"Assertion failed: file \"%s\", line %d\n", __FILE__, __LINE__);exit(1);}} # define assert(ex) _assert(ex) # else # define _assert(ex) ex # define assert(ex) ex # endif #else #include #endif #include #ifndef NO_SYS_XDR_INC #include #else #include "xdr.h" #endif #define TESTFILE "test.xdr" /* if this is NOT defined, then the program just reads the file */ #define CREATE #ifdef __FreeBSD__ #define EPSILON .005 #else /* __FreeBSD__ */ #define EPSILON .0005 #endif /* __FreeBSD__ */ int main(ac,av) int ac ; char *av[] ; { int ii ; const char *fname ; FILE *F ; XDR xdrs[1] ; u_int count ; u_int szof ; /* some random numbers, divisible by 4 and less than 32k */ static u_int seeks[] = { 16828 , 8448 , 20632 , 8124 , 16764 , 17232 , 3476 , 28168 , /* +(5 * sizeof(double) + (5 * sizeof(enum) */ /* */ 28108 , 16796 , 10968 , 24104 , 30560 , 16880 , 17260 , 12556 , } ; u_int poses[9] ; int jj = 0 ; static char text[32] ={ "Hiya sailor. New in town?" }; char got_s[32] ; static unsigned char bytes[8] = { 254, 255, 0, 1, 2} ; unsigned char *bp , got_ab[8] ; static int ints[5] = { 5, 6, 7, 8, 9} ; int *ip , got_ip[5] ; static unsigned int u_ints[5] = { ((unsigned)65535), ((unsigned)65534), ((unsigned)0), ((unsigned)1), ((unsigned)2) } ; int *uip , got_uip[5] ; long lnum = 82555 ; static long longs[5] = { -4, -3, -2, -1, 0} ; long *lp , got_al[5] ; static unsigned long u_longs[5] = { ((unsigned)65535), ((unsigned)65534), ((unsigned)0), ((unsigned)1), ((unsigned)2) } ; long *ulp , got_aul[5] ; static float floats[5] = { 100.125, 100.25, 100.375, 100.5, 100.625 } ; float *fp , got_af[5] ; /* These all require 25 bits: 2^(25-i)+1/2^i, i = 2, 3, ..., 6 */ static double doubles[5] = { 8388608.25, 4194304.125, 2097152.0625, 1048576.03125, 524288.015625 } ; double *dp , got_ad[5] ; typedef enum {ZERO_E, ONE_E, TWO_E, THREE_E, FOUR_E} encount ; static encount encounts[5] = {ZERO_E, ONE_E, TWO_E, THREE_E, FOUR_E} ; encount *ep , got_ep[5] ; #ifdef MDEBUG malloc_debug(2) ; #endif fname = TESTFILE ; if(ac > 1) { fname = av[1] ; } #ifdef CREATE /* Create */ #ifdef __STDC__ F = fopen(fname,"wb") ; #else F = fopen(fname,"w") ; #endif if( F == NULL) { perror("fopen failed") ; exit(-1) ; } /* fill the file so seeks will work even on non-virtual machines */ for(ii=0 ; ii< 28227 ; ii++) { assert( putc(0, F) != EOF ) ; } xdrstdio_create(xdrs, F, XDR_ENCODE) ; assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_opaque(xdrs, text, sizeof(text))) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_opaque(xdrs, (caddr_t)bytes, sizeof(bytes))) ; /* no setpos, just for variety */ szof = sizeof(int) ; count = sizeof(ints)/sizeof(int) ; assert( xdr_vector(xdrs, (char *)ints, count, szof, xdr_int)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(unsigned int) ; count = sizeof(u_ints)/sizeof(unsigned int) ; assert( xdr_vector(xdrs, (char *)u_ints, count, szof, xdr_u_int)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_long(xdrs, &lnum)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(long) ; count = sizeof(longs)/sizeof(long) ; assert( xdr_vector(xdrs, (char *)longs, count, szof, xdr_long)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(unsigned long) ; count = sizeof(u_longs)/sizeof(unsigned long) ; assert( xdr_vector(xdrs, (char *)u_longs, count, szof, xdr_u_long)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(float) ; count = sizeof(floats)/sizeof(float) ; assert( xdr_vector(xdrs, (char *)floats, count, szof, xdr_float)) ; poses[jj++] = xdr_getpos(xdrs) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(double) ; count = sizeof(doubles)/sizeof(double) ; assert( xdr_vector(xdrs, (char *)doubles, count, szof, xdr_double)) ; poses[jj++] = xdr_getpos(xdrs) ; /* again no setpos */ szof = sizeof(encount) ; count = sizeof(encounts)/sizeof(encount) ; assert( xdr_vector(xdrs, (char *)encounts, count, szof, xdr_enum)) ; poses[jj++] = xdr_getpos(xdrs) ; #if 0 /* stdio performance check */ count = 8192 ; for( lnum = 0 ; lnum < count ; lnum++) { assert( xdr_long(xdrs, &lnum) ) ; } #endif /* flush, rewind and reopen */ assert(fflush((FILE *)xdrs->x_private) != EOF) ; /* xdr_destroy(xdrs) */ assert(fclose(F) != EOF) ; #endif /* CREATE */ #ifdef __STDC__ F = fopen(fname,"rb") ; #else F = fopen(fname,"r") ; #endif if( F == NULL) { perror("fopen failed") ; exit(-1) ; } xdrstdio_create(xdrs, F, XDR_DECODE) ; jj = 0 ; /* check contents */ assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_opaque(xdrs, got_s, sizeof(text))) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("string: %s\n", got_s) ; assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_opaque(xdrs, (caddr_t)got_ab, sizeof(bytes))) ; printf("unsigned bytes: "); for(ii = 0, bp = got_ab ; ii < sizeof(bytes) ; ii++, bp++) { printf("%u ", *bp) ; assert( *bp == bytes[ii] ) ; } putchar('\n') ; szof = sizeof(int) ; count = sizeof(ints)/sizeof(int) ; assert( xdr_vector(xdrs, (char *)got_ip, count, szof, xdr_int)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("ints: "); for(ii = 0, ip = got_ip ; ii < (int)count ; ii++, ip++) { printf("%d ", *ip) ; assert( *ip == ints[ii] ) ; } putchar('\n') ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(unsigned int) ; count = sizeof(u_ints)/sizeof(unsigned int) ; assert( xdr_vector(xdrs, (char *)got_uip, count, szof, xdr_u_int)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("unsigned ints: "); for(ii = 0, uip = got_uip ; ii < (int)count ; ii++, uip++) { printf("%u ", *uip) ; assert( *uip == u_ints[ii] ) ; } putchar('\n') ; assert( xdr_setpos(xdrs, seeks[jj])) ; assert( xdr_long(xdrs, got_al)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("LONG: %ld\n", *got_al) ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(long) ; count = sizeof(longs)/sizeof(long) ; assert( xdr_vector(xdrs, (char *)got_al, count, szof, xdr_long)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("longs: "); for(ii = 0, lp = got_al ; ii < (int)count ; ii++, lp++) { printf("%ld ", got_al[ii]) ; assert( got_al[ii] == longs[ii] ) ; } putchar('\n') ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(unsigned long) ; count = sizeof(u_longs)/sizeof(unsigned long) ; assert( xdr_vector(xdrs, (char *)got_aul, count, szof, xdr_u_long)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("unsigned longs: "); for(ii = 0, ulp = got_aul ; ii < (int)count ; ii++, ulp++) { printf("%lu ", *ulp) ; assert( *ulp == u_longs[ii] ) ; } putchar('\n') ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(float) ; count = sizeof(floats)/sizeof(float) ; assert( xdr_vector(xdrs, (char *)got_af, count, szof, xdr_float)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("floats:\n"); for(ii = 0, fp = got_af ; ii < (int)count ; ii++, fp++) { printf("\t% .6e\n", *fp) ; assert( *fp < floats[ii] + EPSILON && *fp > floats[ii] - EPSILON ) ; } putchar('\n') ; assert( xdr_setpos(xdrs, seeks[jj])) ; szof = sizeof(double) ; count = sizeof(doubles)/sizeof(double) ; assert( xdr_vector(xdrs, (char *)got_ad, count, szof, xdr_double)) ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; printf("doubles:\n"); for(ii = 0, dp = got_ad ; ii < (int)count ; ii++, dp++) { printf("\t% .12e\n", *dp) ; assert( (*dp < doubles[ii] + EPSILON) && (*dp > doubles[ii] - EPSILON )) ; } putchar('\n') ; szof = sizeof(encount) ; count = sizeof(encounts)/sizeof(encount) ; assert( xdr_vector(xdrs, (char *)got_ep, count, szof, xdr_enum)) ; printf("enums: "); for(ii = 0, ep = got_ep ; ii < (int)count ; ii++, ep++) { printf("%d ", (int)*ep) ; assert( *ep == encounts[ii] ) ; } putchar('\n') ; assert( poses[jj++] = xdr_getpos(xdrs) ) ; #if 0 /* stdio performance check */ count = 8192 ; for( ii = 0 ; ii < count ; ii++) { assert( xdr_long(xdrs, got_al) ) ; assert( *got_al == ii ) ; } #endif exit(0) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.cyg0000644000000000000000000000063012421456623015167 0ustar string: Hiya sailor. New in town? unsigned bytes: 254 255 0 1 2 0 0 0 ints: 5 6 7 8 9 unsigned ints: 65535 65534 0 1 2 LONG: 82555 longs: -4 -3 -2 -1 0 unsigned longs: 65535 65534 0 1 2 floats: 1.001250e+02 1.002500e+02 1.003750e+02 1.005000e+02 1.006250e+02 doubles: 8.388608250000e+06 4.194304125000e+06 2.097152062500e+06 1.048576031250e+06 5.242880156250e+05 enums: 0 1 2 3 4 libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrstdio.c0000644000000000000000000001015312421456623014773 0ustar /* @(#)xdr_stdio.c 1.1 87/11/04 3.9 RPCSRC */ #if !defined(lint) && defined(SCCSIDS) static char sccsid[] = "@(#)xdr_stdio.c 1.16 87/08/11 Copyr 1984 Sun Micro"; #endif /* * xdr_stdio.c, XDR implementation on standard i/o file. * * Copyright (C) 1984, Sun Microsystems, Inc. * * This set of routines implements a XDR on a stdio stream. * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes * from the stream. */ #include #include "types.h" #if !(defined MSDOS || defined WINNT || defined _WIN32) # include /* for htonl() */ #else # if !(defined WINNT) & !defined _WIN32 extern long ntohl(long i_in); extern long htonl(long i_in); extern short ntohs(short i_in); extern short htons(short i_in); # else # include # endif /* WINNT */ #endif #include "xdr.h" static bool_t xdrstdio_getlong(XDR *, long *); static bool_t xdrstdio_putlong(XDR *, long *); static bool_t xdrstdio_getbytes(XDR *, caddr_t, u_int ); static bool_t xdrstdio_putbytes(XDR *, caddr_t, u_int ); static u_long xdrstdio_getpos(XDR *); static bool_t xdrstdio_setpos(XDR *, u_long); static long * xdrstdio_inline(XDR *, u_int); static void xdrstdio_destroy(XDR *); /* * Ops vector for stdio type XDR */ static struct xdr_ops xdrstdio_ops = { xdrstdio_getlong, /* deseraialize a long int */ xdrstdio_putlong, /* seraialize a long int */ xdrstdio_getbytes, /* deserialize counted bytes */ xdrstdio_putbytes, /* serialize counted bytes */ xdrstdio_getpos, /* get offset in the stream */ xdrstdio_setpos, /* set offset in the stream */ xdrstdio_inline, /* prime stream for inline macros */ xdrstdio_destroy /* destroy stream */ }; /* * Initialize a stdio xdr stream. * Sets the xdr stream handle xdrs for use on the stream file. * Operation flag is set to op. */ void xdrstdio_create(xdrs, file, op) register XDR *xdrs; FILE *file; enum xdr_op op; { xdrs->x_op = op; xdrs->x_ops = &xdrstdio_ops; xdrs->x_private = (caddr_t)file; xdrs->x_handy = 0; xdrs->x_base = 0; } /* * Destroy a stdio xdr stream. * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create. */ static void xdrstdio_destroy(xdrs) register XDR *xdrs; { (void)fflush((FILE *)xdrs->x_private); /* xx should we close the file ?? */ } static bool_t xdrstdio_getlong(xdrs, lp) XDR *xdrs; register long *lp; { if (fread((caddr_t)lp, sizeof(long), 1, (FILE *)xdrs->x_private) != 1) return (FALSE); #ifndef mc68000 *lp = ntohl(*lp); #endif return (TRUE); } static bool_t xdrstdio_putlong(xdrs, lp) XDR *xdrs; long *lp; { #ifndef mc68000 long mycopy = htonl(*lp); lp = &mycopy; #endif if (fwrite((caddr_t)lp, sizeof(long), 1, (FILE *)xdrs->x_private) != 1) return (FALSE); return (TRUE); } static bool_t xdrstdio_getbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; u_int len; { if ((len != 0) && (fread(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1)) return (FALSE); return (TRUE); } static bool_t xdrstdio_putbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; u_int len; { if ((len != 0) && (fwrite(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1)) return (FALSE); return (TRUE); } static u_long xdrstdio_getpos(xdrs) XDR *xdrs; { return ((u_long)ftell((FILE *)xdrs->x_private)); } static bool_t xdrstdio_setpos(xdrs, pos) XDR *xdrs; u_long pos; { return ((fseek((FILE *)xdrs->x_private,(long)pos, 0) < 0) ? FALSE : TRUE); } /*ARGSUSED*/ static long * xdrstdio_inline(xdrs, len) XDR *xdrs; u_int len; { /* * Must do some work to implement this: must insure * enough data in the underlying stdio buffer, * that the buffer is aligned so that we can indirect through a * long *, and stuff this pointer in xdrs->x_buf. Doing * a fread or fwrite to a scratch buffer would defeat * most of the gains to be had here and require storage * management on this buffer, so we don't do this. */ return (NULL); } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/README0000644000000000000000000000544212421456623013654 0ustar $Id: README 468 1993-04-21 21:54:36Z chouck $ Mon Apr 17 18:40:07 MDT 1989 This directory contains materials copyrighted by Sun Microsystems, Inc. Please read "NOTICE.h" This is the minimum subset of RPCSRC 3.9 needed to build the netcdf library. It is included here for those systems which lack xdr support. If your system already has these xdr routines, by all means use them. Unix systems which suport the Network File System (NFS) usually have these routines in the 'c' library, /usr/lib/libc.a, so you don't need to link in any additional libraries. Another candididate is librpclib.a in /usr/lib or /usr/local/lib. The complete RPCSRC distribution may be obtained from Sun or from the sun-spots archive at rice.edu. If you must build this portion of the system, make xdrtest. Running it should produce output like the contents of testout.sav on standard output. N.B **** For the double precision numbers, the last three decimal digits will vary between vaxes and ieee machines. ***** Running xdrtest will also produce the file "test.xdr". Once standard out looks good, then do a binary comparison of the files "test.xdr" and "test_xdr.sav". (On unix you enter, 'cmp test.xdr test_xdr.sav'). If the files are byte for byte identical, you are okay. On VAX/VMS, you WILL probably have to build this directory. The following files are only used on vms: descrip.mms - The immoral equivalent of a Makefile htonl.mar - 'Host To Network Long', in VAX Macro ntohl.mar - 'Network To Host Long', in VAX Macro Because the stdio implementation in vax C runtime library is so poor, this code runs 3 times slower on vms than under Ultrix on the same Microvax. If someone were very civic minded they would rewrite the file xdrstdio.c as xdr_qio.c. (This is not as bad as it sounds, the similar thing has already been done for MacOS Toolbox calls.) The file netcdf/src/file.c would also need to be changed ... Otherwise, hammer on DEC to get there C language support together. Notes: Fri Sep 23 10:11:14 MDT 1988 The return value of xdr_getpos and the corresponding argument to xdr_setpos changed from 'u_int' to 'u_long' (fpos_t??) in anticipation of problems on micros where sizeof(int) < sizeof(long). OK with Steve Nahm at sun. Thu Mar 9 22:23:00 MDT 1989 Added support for architectures where sizeof(enum) == sizeof(char) in xdr.c:xdr_enum. Note that, as written this is a runtime !?! check... Mon Apr 17 15:08:05 MDT 1989 The Iris computers seem to put the xdr routines in /usr/lib/libsun.a. EG, you don't need to build the ones here. You may have to muck around to get the include files right on an iris. Also may need libbsd.a. Wed Apr 26 19:48:46 MDT 1989 Fix to xdr_float.c:xdr_float:"#ifdef vax" to handle values less than 2^^-127 properly. May 1989 Added MIPSEL #ifdef for ieee, byte swapped machines like DECstations. libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrfloat.c0000644000000000000000000001476612421456623014774 0ustar /* @(#)xdr_float.c 1.1 87/11/04 3.9 RPCSRC */ #if !defined(lint) && defined(SCCSIDS) static char sccsid[] = "@(#)xdr_float.c 1.12 87/08/11 Copyr 1984 Sun Micro"; #endif /* * xdr_float.c, Generic XDR routines impelmentation. * * Copyright (C) 1984, Sun Microsystems, Inc. * * These are the "floating point" xdr routines used to (de)serialize * most common data items. See xdr.h for more info on the interface to * xdr. */ #include #include "types.h" #include "xdr.h" #if defined(i386) | defined(__i386) #define SWAP_DOUBLES #endif #ifdef MIPSEL #define SWAP_DOUBLES #endif #ifdef MSDOS #define SWAP_DOUBLES #endif #ifdef __FreeBSD__ #define SWAP_DOUBLES #endif #if defined _WIN32 | defined WINNT #define SWAP_DOUBLES #endif /* * NB: Not portable. * Only two cases handled here: * IEEE floating point and Vaxen */ #ifdef vax /* What IEEE single precision floating point looks like on a Vax */ struct ieee_single { unsigned int mantissa: 23; unsigned int exp : 8; unsigned int sign : 1; }; /* Vax single precision floating point */ struct vax_single { unsigned int mantissa1 : 7; unsigned int exp : 8; unsigned int sign : 1; unsigned int mantissa2 : 16; }; #define VAX_SNG_BIAS 0x81 #define IEEE_SNG_BIAS 0x7f static struct sgl_limits { struct vax_single s; struct ieee_single ieee; } max = { { 0x7f, 0xff, 0x0, 0xffff }, /* Max Vax */ { 0x0, 0xff, 0x0 } /* Max IEEE */ }; static struct sgl_limits min = { { 0x0, 0x0, 0x0, 0x0 }, /* Min Vax */ { 0x0, 0x0, 0x0 } /* Min IEEE */ } ; #endif /* vax */ bool_t xdr_float(xdrs, fp) register XDR *xdrs; register float *fp; { #ifdef vax struct ieee_single is; struct vax_single vs, *vsp; struct sgl_limits *lim; int i; #endif switch (xdrs->x_op) { case XDR_ENCODE: #ifndef vax return (XDR_PUTLONG(xdrs, (long *)fp)); #else vs = *((struct vax_single *)fp); switch(vs.exp){ case 0 : /* all vax float with zero exponent map to zero */ is = min.ieee ; break ; case 2 : case 1 : /* These will map to subnormals */ is.exp = 0 ; is.mantissa = (vs.mantissa1 << 16) | vs.mantissa2; /* lose some precision */ is.mantissa >>= 3 - vs.exp ; is.mantissa += (1 << (20 + vs.exp)) ; break ; case 0xff : /* max.s.exp */ if( vs.mantissa2 == max.s.mantissa2 && vs.mantissa1 == max.s.mantissa1) { /* map largest vax float to ieee infinity */ is = max.ieee ; break ; } /* else, fall thru */ default : is.exp = vs.exp - VAX_SNG_BIAS + IEEE_SNG_BIAS; is.mantissa = (vs.mantissa1 << 16) | vs.mantissa2; } is.sign = vs.sign; return (XDR_PUTLONG(xdrs, (long *)&is)); #endif case XDR_DECODE: #ifndef vax return (XDR_GETLONG(xdrs, (long *)fp)); #else vsp = (struct vax_single *)fp; if (!XDR_GETLONG(xdrs, (long *)&is)) return (FALSE); switch(is.exp) { case 0 : if(is.mantissa == min.ieee.mantissa) { *vsp = min.s ; } else { unsigned tmp = is.mantissa >> 20 ; if(tmp >= 4) { vsp->exp = 2 ; } else if (tmp >= 2) { vsp->exp = 1 ; } else { *vsp = min.s ; break ; } /* else */ tmp = is.mantissa - (1 << (20 + vsp->exp )) ; tmp <<= 3 - vsp->exp ; vsp->mantissa2 = tmp ; vsp->mantissa1 = (tmp >> 16); } break ; case 0xfe : case 0xff : *vsp = max.s ; break ; default : vsp->exp = is.exp - IEEE_SNG_BIAS + VAX_SNG_BIAS; vsp->mantissa2 = is.mantissa; vsp->mantissa1 = (is.mantissa >> 16); } vsp->sign = is.sign; return (TRUE); #endif case XDR_FREE: return (TRUE); } return (FALSE); } /* * This routine works on Suns (Sky / 68000's) and Vaxen. */ #ifdef vax /* What IEEE double precision floating point looks like on a Vax */ struct ieee_double { unsigned int mantissa1 : 20; unsigned int exp : 11; unsigned int sign : 1; unsigned int mantissa2 : 32; }; /* Vax double precision floating point */ struct vax_double { unsigned int mantissa1 : 7; unsigned int exp : 8; unsigned int sign : 1; unsigned int mantissa2 : 16; unsigned int mantissa3 : 16; unsigned int mantissa4 : 16; }; #define VAX_DBL_BIAS 0x81 #define IEEE_DBL_BIAS 0x3ff #define MASK(nbits) ((1 << nbits) - 1) static struct dbl_limits { struct vax_double d; struct ieee_double ieee; } dbl_limits[2] = { {{ 0x7f, 0xff, 0x0, 0xffff, 0xffff, 0xffff }, /* Max Vax */ { 0x0, 0x7ff, 0x0, 0x0 }}, /* Max IEEE */ {{ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0}, /* Min Vax */ { 0x0, 0x0, 0x0, 0x0 }} /* Min IEEE */ }; #endif /* vax */ bool_t xdr_double(xdrs, dp) register XDR *xdrs; double *dp; { register long *lp; #ifdef vax struct ieee_double id; struct vax_double vd; register struct dbl_limits *lim; int i; #endif switch (xdrs->x_op) { case XDR_ENCODE: #ifndef vax lp = (long *)dp; #else vd = *((struct vax_double *)dp); for (i = 0, lim = dbl_limits; i < sizeof(dbl_limits)/sizeof(struct dbl_limits); i++, lim++) { if ((vd.mantissa4 == lim->d.mantissa4) && (vd.mantissa3 == lim->d.mantissa3) && (vd.mantissa2 == lim->d.mantissa2) && (vd.mantissa1 == lim->d.mantissa1) && (vd.exp == lim->d.exp)) { id = lim->ieee; goto shipit; } } id.exp = vd.exp - VAX_DBL_BIAS + IEEE_DBL_BIAS; id.mantissa1 = (vd.mantissa1 << 13) | (vd.mantissa2 >> 3); id.mantissa2 = ((vd.mantissa2 & MASK(3)) << 29) | (vd.mantissa3 << 13) | ((vd.mantissa4 >> 3) & MASK(13)); shipit: id.sign = vd.sign; lp = (long *)&id; #endif #ifndef SWAP_DOUBLES return (XDR_PUTLONG(xdrs, lp++) && XDR_PUTLONG(xdrs, lp)); #else /* SWAP_DOUBLES */ return (XDR_PUTLONG(xdrs, lp+1) && XDR_PUTLONG(xdrs, lp)); #endif /* SWAP_DOUBLES */ case XDR_DECODE: #ifndef vax lp = (long *)dp; #ifndef SWAP_DOUBLES return (XDR_GETLONG(xdrs, lp++) && XDR_GETLONG(xdrs, lp)); #else /* SWAP_DOUBLES */ return (XDR_GETLONG(xdrs, lp+1) && XDR_GETLONG(xdrs, lp)); #endif /* SWAP_DOUBLES */ #else lp = (long *)&id; if (!XDR_GETLONG(xdrs, lp++) || !XDR_GETLONG(xdrs, lp)) return (FALSE); for (i = 0, lim = dbl_limits; i < sizeof(dbl_limits)/sizeof(struct dbl_limits); i++, lim++) { if ((id.mantissa2 == lim->ieee.mantissa2) && (id.mantissa1 == lim->ieee.mantissa1) && (id.exp == lim->ieee.exp)) { vd = lim->d; goto doneit; } } vd.exp = id.exp - IEEE_DBL_BIAS + VAX_DBL_BIAS; vd.mantissa1 = (id.mantissa1 >> 13); vd.mantissa2 = ((id.mantissa1 & MASK(13)) << 3) | (id.mantissa2 >> 29); vd.mantissa3 = (id.mantissa2 >> 13); vd.mantissa4 = (id.mantissa2 << 3); doneit: vd.sign = id.sign; *dp = *((double *)&vd); return (TRUE); #endif case XDR_FREE: return (TRUE); } return (FALSE); } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdr.c0000644000000000000000000002330212421456623013730 0ustar /* @(#)xdr.c 1.1 87/11/04 3.9 RPCSRC */ #if !defined(lint) && defined(SCCSIDS) static char sccsid[] = "@(#)xdr.c 1.35 87/08/12"; #endif /* * xdr.c, Generic XDR routines implementation. * * Copyright (C) 1986, Sun Microsystems, Inc. * * These are the "generic" xdr routines used to serialize and de-serialize * most common data items. See xdr.h for more info on the interface to * xdr. */ #include #include #include "types.h" #include "xdr.h" /* * constants specific to the xdr "protocol" */ #define XDR_FALSE ((long) 0) #define XDR_TRUE ((long) 1) #define LASTUNSIGNED ((u_int) 0-1) /* * for unit alignment */ static char xdr_zero[BYTES_PER_XDR_UNIT] = { 0, 0, 0, 0 }; /* * Free a data structure using XDR * Not a filter, but a convenient utility nonetheless */ void xdr_free(proc, objp) xdrproc_t proc; char *objp; { XDR x; x.x_op = XDR_FREE; (*proc)(&x, objp); } /* * XDR nothing */ bool_t xdr_void(void /* xdrs, addr */) /* XDR *xdrs; */ /* caddr_t addr; */ { return (TRUE); } /* * XDR integers */ bool_t xdr_int(xdrs, ip) XDR *xdrs; int *ip; { #ifdef lint (void) (xdr_short(xdrs, (short *)ip)); return (xdr_long(xdrs, (long *)ip)); #else if (sizeof (int) == sizeof (long)) { return (xdr_long(xdrs, (long *)ip)); } else { return (xdr_short(xdrs, (short *)ip)); } #endif } /* * XDR unsigned integers */ bool_t xdr_u_int(xdrs, up) XDR *xdrs; u_int *up; { #ifdef lint (void) (xdr_u_short(xdrs, (u_short *)up)); return (xdr_u_long(xdrs, (u_long *)up)); #else if (sizeof (u_int) == sizeof (u_long)) { return (xdr_u_long(xdrs, (u_long *)up)); } else { return (xdr_u_short(xdrs, (u_short *)up)); } #endif } /* * XDR long integers * same as xdr_u_long - open coded to save a proc call! */ bool_t xdr_long(xdrs, lp) register XDR *xdrs; long *lp; { if (xdrs->x_op == XDR_ENCODE) return (XDR_PUTLONG(xdrs, lp)); if (xdrs->x_op == XDR_DECODE) return (XDR_GETLONG(xdrs, lp)); if (xdrs->x_op == XDR_FREE) return (TRUE); return (FALSE); } /* * XDR unsigned long integers * same as xdr_long - open coded to save a proc call! */ bool_t xdr_u_long(xdrs, ulp) register XDR *xdrs; u_long *ulp; { if (xdrs->x_op == XDR_DECODE) return (XDR_GETLONG(xdrs, (long *)ulp)); if (xdrs->x_op == XDR_ENCODE) return (XDR_PUTLONG(xdrs, (long *)ulp)); if (xdrs->x_op == XDR_FREE) return (TRUE); return (FALSE); } /* * XDR short integers */ bool_t xdr_short(xdrs, sp) register XDR *xdrs; short *sp; { long l; switch (xdrs->x_op) { case XDR_ENCODE: l = (long) *sp; return (XDR_PUTLONG(xdrs, &l)); case XDR_DECODE: if (!XDR_GETLONG(xdrs, &l)) { return (FALSE); } *sp = (short) l; return (TRUE); case XDR_FREE: return (TRUE); } return (FALSE); } /* * XDR unsigned short integers */ bool_t xdr_u_short(xdrs, usp) register XDR *xdrs; u_short *usp; { u_long l; switch (xdrs->x_op) { case XDR_ENCODE: l = (u_long) *usp; return (XDR_PUTLONG(xdrs, &l)); case XDR_DECODE: if (!XDR_GETLONG(xdrs, &l)) { return (FALSE); } *usp = (u_short) l; return (TRUE); case XDR_FREE: return (TRUE); } return (FALSE); } /* * XDR a char */ bool_t xdr_char(xdrs, cp) XDR *xdrs; char *cp; { int i; i = (*cp); if (!xdr_int(xdrs, &i)) { return (FALSE); } *cp = i; return (TRUE); } /* * XDR an unsigned char */ bool_t xdr_u_char(xdrs, cp) XDR *xdrs; char *cp; { u_int u; u = (*cp); if (!xdr_u_int(xdrs, &u)) { return (FALSE); } *cp = u; return (TRUE); } /* * XDR booleans */ bool_t xdr_bool(xdrs, bp) register XDR *xdrs; bool_t *bp; { long lb; switch (xdrs->x_op) { case XDR_ENCODE: lb = *bp ? XDR_TRUE : XDR_FALSE; return (XDR_PUTLONG(xdrs, &lb)); case XDR_DECODE: if (!XDR_GETLONG(xdrs, &lb)) { return (FALSE); } *bp = (lb == XDR_FALSE) ? FALSE : TRUE; return (TRUE); case XDR_FREE: return (TRUE); } return (FALSE); } /* * XDR enumerations */ bool_t xdr_enum(xdrs, ep) XDR *xdrs; enum_t *ep; { #ifndef lint enum sizecheck { SIZEVAL }; /* used to find the size of an enum */ /* * enums are treated as ints */ if (sizeof (enum sizecheck) == sizeof (long)) { return (xdr_long(xdrs, (long *)ep)); } else if (sizeof (enum sizecheck) == sizeof (short)) { return (xdr_short(xdrs, (short *)ep)); } else if (sizeof (enum sizecheck) == sizeof (char)) { return (xdr_char(xdrs, (char *)ep)); } else { return (FALSE); } #else (void) (xdr_char(xdrs, (char *)ep)); (void) (xdr_short(xdrs, (short *)ep)); return (xdr_long(xdrs, (long *)ep)); #endif } /* * XDR opaque data * Allows the specification of a fixed size sequence of opaque bytes. * cp points to the opaque object and cnt gives the byte length. */ bool_t xdr_opaque(xdrs, cp, cnt) register XDR *xdrs; caddr_t cp; register u_int cnt; { register u_int rndup; static crud[BYTES_PER_XDR_UNIT]; /* * if no data we are done */ if (cnt == 0) return (TRUE); /* * round byte count to full xdr units */ rndup = cnt % BYTES_PER_XDR_UNIT; if (rndup > 0) rndup = BYTES_PER_XDR_UNIT - rndup; if (xdrs->x_op == XDR_DECODE) { if (!XDR_GETBYTES(xdrs, cp, cnt)) { return (FALSE); } if (rndup == 0) return (TRUE); return (XDR_GETBYTES(xdrs, crud, rndup)); } if (xdrs->x_op == XDR_ENCODE) { if (!XDR_PUTBYTES(xdrs, cp, cnt)) { return (FALSE); } if (rndup == 0) return (TRUE); return (XDR_PUTBYTES(xdrs, xdr_zero, rndup)); } if (xdrs->x_op == XDR_FREE) { return (TRUE); } return (FALSE); } /* * XDR counted bytes * *cpp is a pointer to the bytes, *sizep is the count. * If *cpp is NULL maxsize bytes are allocated */ bool_t xdr_bytes(xdrs, cpp, sizep, maxsize) register XDR *xdrs; char **cpp; register u_int *sizep; u_int maxsize; { register char *sp = *cpp; /* sp is the actual string pointer */ register u_int nodesize; /* * first deal with the length since xdr bytes are counted */ if (! xdr_u_int(xdrs, sizep)) { return (FALSE); } nodesize = *sizep; if ((nodesize > maxsize) && (xdrs->x_op != XDR_FREE)) { return (FALSE); } /* * now deal with the actual bytes */ switch (xdrs->x_op) { case XDR_DECODE: if (nodesize == 0) { return (TRUE); } if (sp == NULL) { *cpp = sp = (char *)mem_alloc(nodesize); } if (sp == NULL) { (void) fprintf(stderr, "xdr_bytes: out of memory\n"); return (FALSE); } /* fall into ... */ case XDR_ENCODE: return (xdr_opaque(xdrs, sp, nodesize)); case XDR_FREE: if (sp != NULL) { mem_free(sp, nodesize); *cpp = NULL; } return (TRUE); } return (FALSE); } /* * Implemented here due to commonality of the object. */ bool_t xdr_netobj(xdrs, np) XDR *xdrs; struct netobj *np; { return (xdr_bytes(xdrs, &np->n_bytes, &np->n_len, MAX_NETOBJ_SZ)); } /* * XDR a descriminated union * Support routine for discriminated unions. * You create an array of xdrdiscrim structures, terminated with * an entry with a null procedure pointer. The routine gets * the discriminant value and then searches the array of xdrdiscrims * looking for that value. It calls the procedure given in the xdrdiscrim * to handle the discriminant. If there is no specific routine a default * routine may be called. * If there is no specific or default routine an error is returned. */ bool_t xdr_union(xdrs, dscmp, unp, choices, dfault) register XDR *xdrs; enum_t *dscmp; /* enum to decide which arm to work on */ char *unp; /* the union itself */ struct xdr_discrim *choices; /* [value, xdr proc] for each arm */ xdrproc_t dfault; /* default xdr routine */ { register enum_t dscm; /* * we deal with the discriminator; it's an enum */ if (! xdr_enum(xdrs, dscmp)) { return (FALSE); } dscm = *dscmp; /* * search choices for a value that matches the discriminator. * if we find one, execute the xdr routine for that value. */ for (; choices->proc != NULL_xdrproc_t; choices++) { if (choices->value == dscm) return ((*(choices->proc))(xdrs, unp, LASTUNSIGNED)); } /* * no match - execute the default xdr routine if there is one */ return ((dfault == NULL_xdrproc_t) ? FALSE : (*dfault)(xdrs, unp, LASTUNSIGNED)); } /* * Non-portable xdr primitives. * Care should be taken when moving these routines to new architectures. */ /* * XDR null terminated ASCII strings * xdr_string deals with "C strings" - arrays of bytes that are * terminated by a NULL character. The parameter cpp references a * pointer to storage; If the pointer is null, then the necessary * storage is allocated. The last parameter is the max allowed length * of the string as specified by a protocol. */ bool_t xdr_string(xdrs, cpp, maxsize) register XDR *xdrs; char **cpp; u_int maxsize; { register char *sp = *cpp; /* sp is the actual string pointer */ u_int size; u_int nodesize; /* * first deal with the length since xdr strings are counted-strings */ switch (xdrs->x_op) { case XDR_FREE: if (sp == NULL) { return(TRUE); /* already free */ } /* fall through... */ case XDR_ENCODE: size = strlen(sp); break; } if (! xdr_u_int(xdrs, &size)) { return (FALSE); } if (size > maxsize) { return (FALSE); } nodesize = size + 1; /* * now deal with the actual bytes */ switch (xdrs->x_op) { case XDR_DECODE: if (nodesize == 0) { return (TRUE); } if (sp == NULL) *cpp = sp = (char *)mem_alloc(nodesize); if (sp == NULL) { (void) fprintf(stderr, "xdr_string: out of memory\n"); return (FALSE); } sp[size] = 0; /* fall into ... */ case XDR_ENCODE: return (xdr_opaque(xdrs, sp, size)); case XDR_FREE: mem_free(sp, nodesize); *cpp = NULL; return (TRUE); } return (FALSE); } /* * Wrapper for xdr_string that can be called directly from * routines like clnt_call */ bool_t xdr_wrapstring(xdrs, cpp) XDR *xdrs; char **cpp; { if (xdr_string(xdrs, cpp, LASTUNSIGNED)) { return (TRUE); } return (FALSE); } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdr.def0000644000000000000000000000041312421456623014242 0ustar LIBRARY XDR EXPORTS xdr_free xdr_void xdr_int xdr_u_int xdr_long xdr_u_long xdr_short xdr_u_short xdr_char xdr_u_char xdr_bool xdr_enum xdr_opaque xdr_bytes xdr_netobj xdr_union xdr_string xdr_wrapstring xdr_array xdr_vector xdr_float xdr_doublelibhdf4-4.2.10/HDF_ALT/mfhdf/xdr/msoft.mk0000644000000000000000000000264412421456623014456 0ustar # Copyright 1989, University Corporation for Atmospheric Research # # PC Makefile for eXternal Data Representation library routines # used by the netCDF. # # NOTE: Set the definition of the OS2 macro to match OS as follows: # OS2 = 0 -> DOS # OS2 = 1 -> OS/2 !INCLUDE ..\macros.mk AR = LIB ARFLAGS = LINK = link LFLAGS = /nod INCDIR = . INCLUDES = /I$(INCDIR) /I\hdf\hdf\include LIBDIR = $(DESTDIR)\lib XDRLIB = xdr.lib !IF $(OS2) OS2LIB = os2.lib !ELSE OS2LIB = !ENDIF LIBS = $(XDRLIB) llibe7.lib $(OS2LIB) XDROBJS = xdr.obj xdrarray.obj xdrfloat.obj xdrstdio.obj byteordr.obj XDRLOBJS = -+xdr -+xdrarray -+xdrfloat -+xdrstdio -+byteordr all: $(XDRLIB) $(XDRLIB): $(XDROBJS) $(AR) $@ $(ARFLAGS) $(XDRLOBJS),LIB.LST; test: xdrtest.exe FORCE xdrtest FORCE: xdrtest.exe: xdrtest.obj $(XDROBJS) $(LINK) $(LFLAGS) xdrtest.obj,,,$(LIBS); install: copy $(XDRLIB) $(LIBDIR) clean: rm -f *.obj *.map *.lst *.bak xdr.lib xdrtest.exe test.xdr xdr.obj: xdr.c types.h xdr.h $(CC) $(CFLAGS) $(INCLUDES) xdr.c xdrfloat.obj: xdrfloat.c types.h xdr.h $(CC) $(CFLAGS) $(INCLUDES) xdrfloat.c xdrstdio.obj: xdrstdio.c types.h xdr.h $(CC) $(CFLAGS) $(INCLUDES) xdrstdio.c xdrarray.obj: xdrarray.c types.h xdr.h $(CC) $(CFLAGS) $(INCLUDES) xdrarray.c xdrtest.obj: xdrtest.c types.h xdr.h $(CC) $(CFLAGS) $(INCLUDES) xdrtest.c byteordr.obj: byteordr.c $(CC) $(CFLAGS) byteordr.c libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.out0000644000000000000000000000064212421456623015217 0ustar string: Hiya sailor. New in town? unsigned bytes: 254 255 0 1 2 0 0 0 ints: 5 6 7 8 9 unsigned ints: 65535 65534 0 1 2 LONG: 82555 longs: -4 -3 -2 -1 0 unsigned longs: 65535 65534 0 1 2 floats: 1.001250e+002 1.002500e+002 1.003750e+002 1.005000e+002 1.006250e+002 doubles: 8.388608250000e+006 4.194304125000e+006 2.097152062500e+006 1.048576031250e+006 5.242880156250e+005 enums: 0 1 2 3 4 libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.opt0000644000000000000000000000003612421456623015207 0ustar sys$library:vaxcrtl.exe/share libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/byteordr.c0000644000000000000000000000240312421456623014764 0ustar /* * Example: Use the standard library version instead, if you have one. */ /* switch the order of the bytes in a long integer */ long ntohl(i_in) long i_in; { long i_out; register unsigned char *inptr, *outptr; inptr = (unsigned char *) &i_in; outptr = (unsigned char *) &i_out; outptr[3] = inptr[0]; outptr[2] = inptr[1]; outptr[1] = inptr[2]; outptr[0] = inptr[3]; return(i_out); } /* switch the order of the bytes in a long integer */ long htonl(i_in) long i_in; { long i_out; register unsigned char *inptr, *outptr; inptr = (unsigned char *) &i_in; outptr = (unsigned char *) &i_out; outptr[3] = inptr[0]; outptr[2] = inptr[1]; outptr[1] = inptr[2]; outptr[0] = inptr[3]; return(i_out); } /* switch the order of the bytes in a short integer */ short ntohs(i_in) short i_in; { short i_out; register unsigned char *inptr, *outptr; inptr = (unsigned char *) &i_in; outptr = (unsigned char *) &i_out; outptr[1] = inptr[0]; outptr[0] = inptr[1]; return(i_out); } /* switch the order of the bytes in a short integer */ short htons(i_in) short i_in; { short i_out; register unsigned char *inptr, *outptr; inptr = (unsigned char *) &i_in; outptr = (unsigned char *) &i_out; outptr[1] = inptr[0]; outptr[0] = inptr[1]; return(i_out); } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/test_xdr.sav0000644000000000000000000006710412421456623015346 0ustar BÈ@BÈ€BÈÀBÉBÉ@B{þÿ ÿÿÿüÿÿÿýÿÿÿþÿÿÿÿHiya sailor. New in town?ÿÿÿþÿÿÿþA`APA@A0A libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrlib.project.hqx0000644000000000000000000037761112421456623016461 0ustar (This file must be converted with BinHex 4.0) :$RKNFQaTBLj`FQpUC@0d!%e08(*$9dP&!!!!!APK!!!!!)T,Bfp[E!!!!!)!!!! S!!&VJ`!"DkX!!!ff!!!!K`%!!!!!!!!!!!!!!!!&!3$rr`!!!!!!!!!!rrm"!3% "!3!!!!!H!3%!!!!!!!!!!*QC!!!rrcrr2rm!!3!*"Ne[EQ&ME`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!%!#J!#J(#!S!!+!!+!F)#J!!!!!!!!!!!!!!!!!! !!!!"!!!"!*8"EJ(#!Zi!!`!$X+N!!2i%!!!!)J!!!*X!!!#F!!!!R3!!!*i!!!# A!!!!QJ!!!*m!!!#J!!!!S3!!!*B!!!#C!!!!SJ!!!+-!!!#N!!!!T3!!!+B!!!# R!!!!U!!!!+N!!!#U!!!!U`!!!+`!!!#B!!!!XJ!!!,-!!!#d!!!!Y3!!!+i!!!# a!!!!YJ!!!,F!!!#i!!!!V3!!!,!!!!#j!!!!ZJ!!!,X!!!#m!!!![3!!!,i!!!# r!!!!`!!!!-%!!!$#!!!!``!!!+m!!!$*!!!!bJ!!!-X!!!$-!!!!a3!!!-J!!!$ 0!!!!cJ!!!-m!!!$%!!!!a`!!!0!!!!$4!!!!dJ!!!0-!!!$8!!!!e3!!!0B!!!$ A!!!!f!!!!0N!!!$D!!!!aJ!!!1!!!!$K!!!!iJ!!!1-!!!$F!!!!h`!!!13!!!$ P!!!!jJ!!!0X!!!$H!!!!j`!!!1J!!!$T!!!!kJ!!!1X!!!$X!!!!l3!!!1i!!!$ [!!!!m!!!!2%!!!$G!!!!9J!!!&F!!!"B!!!!@3!!!&)!!!"9!!!!@J!!!&X!!!" F!!!!83!!!&3!!!"G!!!!AJ!!!&m!!!"J!!!!B3!!!')!!!"M!!!!C!!!!'8!!!" Q!!!!C`!!!&-!!!!r!!!!3!!!!%%!!!"#!!!!1`!!!$i!!!"$!!!!4!!!!%8!!!! k!!!!23!!!%B!!!"(!!!!5!!!!%N!!!"+!!!!5`!!!%`!!!"0!!!!6J!!!%m!!!" 3!!!!2!!!!#J!!!!T!!!!+J!!!#X!!!!N!!!!*`!!!#`!!!!Y!!!!,J!!!#-!!!! Q!!!!,`!!!$!!!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!!h!!!!1!!!!$N!!!! P!!!!E3!!!'i!!!"[!!!!F!!!!'N!!!"X!!!!F3!!!()!!!"c!!!!D!!!!'X!!!" d!!!!G3!!!(B!!!"h!!!!H!!!!(N!!!"k!!!!H`!!!(`!!!"p!!!!IJ!!!'S!!!# %!!!!K3!!!)B!!!#(!!!!J!!!!)-!!!#)!!!!L3!!!)S!!!"r!!!!JJ!!!)X!!!# -!!!!M3!!!)i!!!#2!!!!N!!!!!#4!!!!NJ!!!*-!!!#8!!!!P3!!!)%!!!!'!!! !"`!!!!J!!!!*!!!!"!!!!!8!!!!+!!!!#`!!!!`!!!!$!!!!!!!!!#%!!!!"!!! !$3!!!!i!!!!2!!!!%!!!!"%!!!!5!!!!%`!!!"3!!!!9!!!!&J!!!"F!!!!B!!! !'3!!!!)!!!!D!!!!'`!!!#!!!!!F!!!!(3!!!"i!!!!I!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$b!!! "!!!!'fm!!"`!!!!!mJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"m!!!!(!!! !%`!!!!S!!!!#!!!!#!!!!"3!!!!*!!!!#`!!!"8!!!!-!!!!&J!!!!i!!!!C!!! !&`!!!!d!!!!"!!!!'!!!!"`!!!!E!!!!(J!!!"d!!!!%!!!!!`!!!!8!!!!!!!! !$`!!!"%!!!!3!!!!%J!!!"S!!!!'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!9*26e3!!!!!!!!!!!!!!!!"4e*98!!!!!!!!!!""e0[GA*MCA-!!!! &4NP-433!!!&'58a&"!!!!NC*6%8%!!!$4NP-433!!!4'58a&"!!!"3!!!#%!!!" !!!!"bJ!!"!!!!!!K!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm!!!! !Irm!!!!!Irm!!!!#!3!!"J)!!!!!!!%"!3%"!!!"!3!!!!%!!!!!!3%!!!%"!!% !!!F"!!!"!!%!!!!!!3!!#3!"!!!!!3%-6@&M5'9KC'9bFbjS!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!$!3%"!3%"!3!"!!!"!3%!!!!!!!!!!!! "!3%!!!%"!!%!!`!!Irm!!!!!Irm!!!!!Irm!!!!!Irm!!!!#!3!!"J)!!!!!!!% "!3%"!!!"!3!!!!%!!!!!!3%!!!%"!!%!!!F"!!!"!!%!!!!!!3!!#!!$&(KNFMB iDbj'BA)S0'NiC#NZE'PLBQ*L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!$mr2cmr2cmr!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`! !!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!N !!3!!!!%"$%eKBdKPB@4PFR-ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!! !!!!!!!!!!`%"!3%"!3%!!3!!$J!!!!!!!!!!!!!!!!T98%NZF(*PCQPi!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!3!#!!!!!!!!!!!!!!!!!J%!!!%"!!! "!3!"!!!#!3!!!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!%"!3!!!3%!!3%!!`% !!3%!!!!!!!!!!!!!!!!!!!!$!!"rr`!!!!"rr`!!!!"rr`!!!!"rr`!!!!%!!!! #!!!!+!!!!!!!!!!!!!!!!!!!!J!!!3!!!!-#!!!!!!!!!3!"!3!!!!!!!!!!!!! !!!$rk`!!!!!!!!)!!!)!!!!%!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!!rqX!!!! !!!!#!!!$!!!!"3)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!2rV!!!!!!!!!J!!"!! !!!B#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!$rk`!!!!!!!!)!!!8!!!!(!J!!!!! !!!%!!3%!!!!!!!!!!!!!!!!!rqX!!!!!!!!!!!!!!!!!!3!!!!)!!!!$!!!!"!! !!!8!!!!&!J!#!!!&!J!!!3)!!!)#!!!$!J!!"!)!!!8!"J)!!!%"!3%"!3%"!!! "!3!!!!%!!!!!"`%"!!%!!3!!!!!"!!!$!3%"!3%"!3!"!!!"!3%"!3%"!3%"!!! #!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#3! "!!!!!3%-6@&M5'9KC'9bFbjS!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!! !!!!!!!!1!!!!!!!!!!!!!!!!#P9355j`FQ9QDAJ!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!"!!)!!!!!!!!!!!!!!!!"!3!!!3%!!3!"!!%!!3!!!!8!!!T iC(*XD@)ZHQP`,A"bEfTPBh3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"D59!J5N&@38T"9N%26@9dFQphCA*VFb"+BACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!$&,F!#J!!!!!!!!! +"h"KBfYKCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,F'&MDf&RC5jcH@d!!!! !!!!!!!!!!!!!!!!!!!!!!!e6HA0dC@e$E'&cFf9c!!!!!!!!!!!!!!!!!!!!!!! !"N*eEQ4XC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!! !!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!`%!!3%!!!%"!`%!!!!!!!!!!!! )!!-9H'4b0MKV,NCKFLJdD5miC#NZE'PLBQ)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!2cmr2cmr2cm!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!r2cmr!!!!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!! !!!!!!!!!!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@4 3FQpU9e033`!$!3!"!3!!!!!!!!!!!!!!!!!!!!%"!3!!!3%!!3!#!!!!!J!#!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm !!!!!Irm!!!!!Irm!!!!'!J!!!!!!!3%"!3%!!!%"!!!!!3!!!!!(!3!!!3!"!!! !!!%!!!J!!a4iC()f1'XZ4Q&b+$4T1'3T,QaTBQ*LBJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr2cmr2`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!$mr2cm!!!!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!$!3%"!3%"!3!"!!!!!!!!!!!"!!!"!!!!!J!!!#J!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!!!J!!!!-!!!!%!!!!"3!!!!8%!!3!!!8%!!!""!! !!J3!!!-%!!!%"!!!"3!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!-"!!%"!!!!!!! !!!!!!!!!!!!!Irm!!!!!!!%N,`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-"!!!$!3!"!3!!!!!!!!!!!!3!!3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%%e KBb"28b"38%-J3bp$+bXZY3!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!! !"!"9!C!!!3N#H`!!!!!!!!!!!!!%!!!"!!!!!`)!!!!!!!!"!!%"!!!!!!!!!!! !!!!!!2rV!!!!!!!!"!!!!J!!!!3#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!$rk`! !!!!!!!3!!!-!!!!&!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!!rqX!!!!!!!!%!!! %!!!!"J)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!2rV!!!!!!!!"!!!"3!!!!F#!!! !!!!!!3!"!3!!!!!!!!!!!!!!!!$rk`!!!!!!!!!!!!-!!!!'!!!!!`!!!!D`kSR IrrrbN3!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0 VD@43FQpU9e033`!1!!!!!!!!!!!!!!!!#P9355j`FQ9QDAJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!"!!N!!3!!!!%"$%eKBdKPB@4PFR-ZD#jS!!!!!!! !!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!$J!!!!!!!!!!!!!!!!T98%NZF(* PCQPi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!3!!!3!!!3!!!!-#!!! !!!!!!3!"!3!!!!!!!!!!!!!!!!(rk`!!!!!!!!%!!!)!!!!%!J!!!!!!!!%!!3% !!!!!!!!!!!!!!!!"rqX!!!!!!!!"!!!$!!!!"3)!!!!!!!!"!!%"!!!!!!!!!!! !!!!!!IrV!!!!!!!!!3!!"!!!!!B#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!(rk`! !!!!!!!%!!!8!!!!(!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"rqX!!!!!!!!!!!! &!!!!"3%!!3!!"3!'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AepcG'&bG!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!!$#hKNFLj38%-ZE'PL!!!!!!!!!!!!!!!!!!!!!!! !!!!r2cmr2cmr2`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!!!!!!!93'3!!%*!RX !!!!!!!!!!!!!!!%!!!P0CA*RC5"2GA3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr39"36!!"!3!!"%4-4eK MDfPN8(*[DPG68%-!!3%"!!!"!3!"!!!!!!!!!3!!!!!!!!!!!!!!!!!!!3%"!!! "!3!"!!!!"3!!!!8$!!-!!!8!!!!!!!!!!!!!!!%!!!!#!!!!!`!!!!4iC(*XD@) !8fpeFQ0PF`"LHA4PEh*NFLjM!(KNFQ&bFQ&j,Q-!H'4b,Q-!H'4bCQa[BA3ZB`" iC(*cG'4TEbjM!$TiC()f1'XZ4Q&b+$4T1'3T,QaTBJ"-D@)J5@e`Eh*d)$Bi5`" 08&FJ5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0 KE#!f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!(KNFQaTBLke,MBi5`"iC(*XD@)ZY5i f1%XJ8Q9XC@&cC3"iC(*XD@)ZY5if1%XJ4'9LG@F!H'4bE'PL,V8Z8&"$)%4PBR9 R!$TiC(*38%-ZE'PL!%aTBL"*EA"[FR3J8&"$!%eA)%-[3bXV)&"33`"09b"3BA0 MB@`J8&"$!&"33d&cE3"B3dp'4L"*EA"[FR3J8&"$!&"&4L"*EA"[FR3J8&"$!(K NFQaTBLke,P"33b"5C@aPBA0P!(KNFL"-D@)J0MK,)%4PBR9R!(KNFL"-D@)J0MK ,!(KNFL"-D@)J8&"$)%4PBR9R!(KNFL"-D@)J8&"$!$TiC()f1'XZ4Q&b+$4T,cK N+5jXD@)!1RKNFLj38%-ZE'PL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!J!!a9iC()f1'XZ4Q&b+$4T,cKN+5jXD@*LBJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr2cmr2`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!$mr2cm!!!!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!!!!!!!"!!!*6@9bCf8J6h9d!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!3% !!!4%6%GBBfYTC&"bEfTA8e"$!!E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!"X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&pIFh4KFR3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!!!!"!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!! (!!!!!J!!!!!!!!!2!!!!!`!!!!!!!!!D!!!!"!!!!!!!!!!P!!!!"3!!!!!!!!! V!!!!"J!!!!!!!!!f!!!!"`!!!!!!!!""!!!!#!!!!!!!!!"A!!!!#3!!!!!!!!" Q!!!!#J!!!!!!!!"e!!!!#`!!!!!!!!##!!!!$!!!!!!!!!#2!!!!$3!!!!!!!!# G!!!!$J!!!!!!!!#K!!!!$`!!!!!!!!#`!!!!%!!!!!!!!!#p!!!!%3!!!!!!!!$ 5!!!!%J!!!!!!!!$P!!!!%`!!!!!!!!$i!!!!&!!!!!!!!!%%!!!!&3!!!!!!!!% 6!!!!&J!!!!!!!!%J!!!!&`!!!!!!!!%Z!!!!'!!!!!!!!!%e!!!!'3!!!!!!!!& '!!!!'J!!!!!!!!&9!!!!'`!!!!!!!!&U!!!!(!!!!!!!!!&m!!!!(3!!!!!!!!' )!!!!(J!!!!!!!!'D!!!!(`!!!!!!!!'Q!!!!)!!!!!!!!!'p!!!!)3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!! !!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!a"0B@028b"38%-J6'PZDf9b!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,H'4 b)%aTBL"38%0$)&*PE'9KFf8!!!!!!!!!!!!!!!!"1J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!!$#hKNFLj38%-ZE'PL!!!!!!!!!!!!!!!!!!!!!!! !!!!r2cmr2cmr2`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!!!!!!!93'3!!%*!RX !!!!!!!!!!!!!!!)!8!!"!!%!!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3R3dp%45FJ*d4 "9%%R)#G35808*`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!"!!$#hKNFLj38%-ZE'PL!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr2cm r2`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!! !!!!!"%4-4eKMDfPN8(*[DPG68%-!!J!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!3! !!!)!!!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!)!!!!$!!!!"!!$%%eKBdp 6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!YiC()J6'PL)$Bi5dXJ8Q9XC@&cC3!!!!!!!!!!!!!!!!%k!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$!!!"!`!!!J-!!!-$!!! %!`!!"3!!!!!!!3!!!!)!!!!S!!!!!!!!!!!!!!!!!!!!"X!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!%!!!%"!!! #!3!!!`%!!!3"!!!&H'4bE'PL1N9NDA4[FJ"iC(*XD@)k4QpZG!"iC(*XD@)k8(* [DQ9MG#"&H(4bBA-!H'4bE'PL1N0eFh4[E5",CAPhEh*NF`"iC(*XD@)k3@0MCA0 c)&"KG'Kc!(KNFQaTBMT#G@PXC#"&H(4bBA-!H'4bE'PL1MBi5b"$Ef4P4f9Z!(K NFQaTBMSf1%XJ4'PcBA0cC@eLE'9b!(KNFQaTBMSf1%XJ6'PZDf9b!(KNFQaTBMS f1%XJ8(*[DQ9MG!"iC(*XD@)k3bp$+bXJ3fpYF'PXCA)!H'4bE'PL1N-[3bXV)&G KFQjTEQGc!(KNFQaTBMT$4Ndf1%X!H'4bE'PL1NP5)%p`G'PYDATPFJ"iC(*XD@) k5Q&fB5"3FQpUC@0d!(KNFQaTBMT0B@GTBb"$BA!J3faKFh-J3fpYF'PXCA)!H'4 bE'PL1NeKCfPM)%0KF#"-D@jVCA)!H'4bE'PL1NeKCfPM)%0KF#"3FQpUC@0d!(K NFQaTBMT3BA0MB@`J3fpYF'PXCA)!H'4bE'PL1P"KFf0KE#"ABA*ZD@jRF`"iC(* XD@)k8&"$)%0[C'9(C@i!H'4bE'PL1P"33b"%DA0KFh0PE@*XCA)!H'4bE'PL1P" 33b"-D@jVCA)!H'4bE'PL1P"33b"348B!H'4bE'PL1P"33b"3FQpUC@0d!(KNFQa TBMT38%0"FfdJ8'&ZC@`!H'4bE'PL1P*PHL"$Efe`D@aPFJ"iC(*XD@)k8fpeFQ0 P8f&QC5"3FQ9Q!(KNFQaTBMTAD@j53b"$Efe`D@aPFJ"iC(*XD@)kH$Jf)%0[C'9 (C@i!H'4bE'PL1RJi0L"-D@jVCA)!H'4bE'PL1RJi0L"3FQpUC@0d!(KNFQaTBMT 8BA*RCA3J8f9dG'PZCh-!H'4bE'PL1NCTE'8J6@&`F'PZCh-!8(*[DQ9MG#"'D@a P)%aTFh3!H'4bE'PL,V8Z0MK,1N0eFh4[E5",CAPhEh*NF`"iC(*XD@)ZY5if1%X k3@0MCA0c)&"KG'Kc!(KNFQaTBLke,MBi5cT8BA*RCA3J8f9dG'PZCh-!H'4bE'P L,V8Z0MK,1NCTE'8J6@&`F'PZCh-!H'4bE'PL,V8Z0MK,1N*eD@aN)%9iG(*KF`" iC(*XD@)ZY5if1%Xk0MK,)%0[C'9(C@i!H'4bE'PL,V8Z0MK,1MBi5b"%DA0KFh0 PE@*XCA)!H'4bE'PL,V8Z0MK,1MBi5b"-D@jVCA)!H'4bE'PL,V8Z0MK,1MBi5b" 3FQpUC@0d!(KNFQaTBLke,MBi5cT$,d-V+b"$Efe`D@aPFJ"iC(*XD@)ZY5if1%X k3bp$+bXJ9f&bEQPZCh-!H'4bE'PL,V8Z0MK,1N0'66Bi5`"iC(*XD@)ZY5if1%X k59)J6h"dD@eTHQ9b!(KNFQaTBLke,MBi5cT0B@028b"0CA*RC5"3B@jPE!"iC(* XD@)ZY5if1%Xk8'&cBf&X)%0[EA"TE'9b!(KNFQaTBLke,MBi5cT3BA0MB@`J9f& bEQPZCh-!H'4bE'PL,V8Z0MK,1P"33b"$Ef4P4f9Z!(KNFQaTBLke,MBi5cT38%- J4'PcBA0cC@eLE'9b!(KNFQaTBLke,MBi5cT38%-J6'PZDf9b!(KNFQaTBLke,MB i5cT38%-J8%9'!(KNFQaTBLke,MBi5cT38%-J8(*[DQ9MG!"iC(*XD@)ZY5if1%X k8&"$3A0Y)&"KEQ9X!(KNFQaTBLke,MBi5cT5CASJ3fpYF'PXCA)!H'4bE'PL,V8 Z0MK,)&*PE'9KFf8k3h9cG'pY)%YPHAG[FQ4c!(KNFQaTBLke,MBi5b"5C@aPBA0 P1N&MBf9cFb"3BA4SF`"iC(*XD@)ZY5if1%XJ8Q9XC@&cC6T8BA*RCA3J8f9dG'P ZCh-!H'4bE'PL,V8Z0MK,)&*PE'9KFf8k4QPXC5"0BA"`D@jRF`"iC(*XD@)ZY5i f1%XJ8Q9XC@&cC6T#G@PXC#"&H(4bBA-!H'4bE'PL,V8Z0MK,)&*PE'9KFf8k0MK ,)%0[C'9(C@i!H'4bE'PL,V8Z0MK,)&*PE'9KFf8k0MK,)%4TFf&cFf9YBQaPFJ" iC(*XD@)ZY5if1%XJ8Q9XC@&cC6Sf1%XJ6'PZDf9b!(KNFQaTBLke,MBi5b"5C@a PBA0P1MBi5b"3FQpUC@0d!(KNFQaTBLke,MBi5b"5C@aPBA0P1N-[3bXV)%0[EA" TE'9b!(KNFQaTBLke,MBi5b"5C@aPBA0P1N-[3bXV)&GKFQjTEQGc!(KNFQaTBLk e,MBi5b"5C@aPBA0P1N0'66Bi5`"iC(*XD@)ZY5if1%XJ8Q9XC@&cC6T*8L"2F(4 TE@PkCA)!H'4bE'PL,V8Z0MK,)&*PE'9KFf8k6@&M6e-J6@9bCf8J8'&ZC@`!H'4 bE'PL,V8Z0MK,)&*PE'9KFf8k8'&cBf&X)%0[EA"TE'9b!(KNFQaTBLke,MBi5b" 5C@aPBA0P1P"KFf0KE#"ABA*ZD@jRF`"iC(*XD@)ZY5if1%XJ8Q9XC@&cC6T38%- J3fpNC8GPEJ"iC(*XD@)ZY5if1%XJ8Q9XC@&cC6T38%-J4'PcBA0cC@eLE'9b!(K NFQaTBLke,MBi5b"5C@aPBA0P1P"33b"-D@jVCA)!H'4bE'PL,V8Z0MK,)&*PE'9 KFf8k8&"$)&"&4J"iC(*XD@)ZY5if1%XJ8Q9XC@&cC6T38%-J8(*[DQ9MG!"iC(* XD@)ZY5if1%XJ8Q9XC@&cC6T38%0"FfdJ8'&ZC@`!H'4bE'PL,V8Z0MK,)&*PE'9 KFf8k8Q9k)%0[EA"TE'9b!(KNFQaTBLke,MBi5b"%C@*eCcT$GA0dEfdJ5f9jGfp bC(-!H'4bE'PL,V8Z0MK,)%4PBR9R1N&MBf9cFb"3BA4SF`"iC(*XD@)ZY5if1%X J4'9LG@Fk9'&bCf9d)&0PG(4TEQGc!(KNFQaTBLke,MBi5b"%C@*eCcT'D@aP)%e KF("TEQGc!(KNFQaTBLke,MBi5b"%C@*eCcT#G@PXC#"&H(4bBA-!H'4bE'PL,V8 Z0MK,)%4PBR9R1MBi5b"$Ef4P4f9Z!(KNFQaTBLke,MBi5b"%C@*eCcSf1%XJ4'P cBA0cC@eLE'9b!(KNFQaTBLke,MBi5b"%C@*eCcSf1%XJ6'PZDf9b!(KNFQaTBLk e,MBi5b"%C@*eCcSf1%XJ8(*[DQ9MG!"iC(*XD@)ZY5if1%XJ4'9LG@Fk3bp$+bX J3fpYF'PXCA)!H'4bE'PL,V8Z0MK,)%4PBR9R1N-[3bXV)&GKFQjTEQGc!(KNFQa TBLke,MBi5b"%C@*eCcT$4Ndf1%X!H'4bE'PL,V8Z0MK,)%4PBR9R1NP5)%p`G'P YDATPFJ"iC(*XD@)ZY5if1%XJ4'9LG@Fk6@&M6e-J6@9bCf8J8'&ZC@`!H'4bE'P L,V8Z0MK,)%4PBR9R1P"KFf0KE#"$Efe`D@aPFJ"iC(*XD@)ZY5if1%XJ4'9LG@F k8'&cBf&X)&GKFQjTEQGc!(KNFQaTBLke,MBi5b"%C@*eCcT38%-J3fpNC8GPEJ" iC(*XD@)ZY5if1%XJ4'9LG@Fk8&"$)%4TFf&cFf9YBQaPFJ"iC(*XD@)ZY5if1%X J4'9LG@Fk8&"$)%aTEQYPFJ"iC(*XD@)ZY5if1%XJ4'9LG@Fk8&"$)&"&4J"iC(* XD@)ZY5if1%XJ4'9LG@Fk8&"$)&"bEfTPBh3!H'4bE'PL,V8Z0MK,)%4PBR9R1P" 33d&cE5"3B@jPE!"iC(*XD@)ZY5if1%XJ4'9LG@Fk8Q9k)%0[EA"TE'9b!(KNFQa TBLke,P"33b"%C@*eCcT$GA0dEfdJ5f9jGfpbC(-!H'4bE'PL,V8Z8&"$)%4PBR9 R1N&MBf9cFb"3BA4SF`"iC(*XD@)ZY5j38%-J4'9LG@Fk9'&bCf9d)&0PG(4TEQG c!(KNFQaTBLke,P"33b"%C@*eCcT'D@aP)%eKF("TEQGc!(KNFQaTBLke,P"33b" %C@*eCcT#G@PXC#"&H(4bBA-!H'4bE'PL,V8Z8&"$)%4PBR9R1MBi5b"$Ef4P4f9 Z!(KNFQaTBLke,P"33b"%C@*eCcSf1%XJ4'PcBA0cC@eLE'9b!(KNFQaTBLke,P" 33b"%C@*eCcSf1%XJ6'PZDf9b!(KNFQaTBLke,P"33b"%C@*eCcSf1%XJ8(*[DQ9 MG!"iC(*XD@)ZY5j38%-J4'9LG@Fk3bp$+bXJ3fpYF'PXCA)!H'4bE'PL,V8Z8&" $)%4PBR9R1N-[3bXV)&GKFQjTEQGc!(KNFQaTBLke,P"33b"%C@*eCcT$4Ndf1%X !H'4bE'PL,V8Z8&"$)%4PBR9R1NP5)%p`G'PYDATPFJ"iC(*XD@)ZY5j38%-J4'9 LG@Fk6@&M6e-J6@9bCf8J8'&ZC@`!H'4bE'PL,V8Z8&"$)%4PBR9R1P"KFf0KE#" $Efe`D@aPFJ"iC(*XD@)ZY5j38%-J4'9LG@Fk8'&cBf&X)&GKFQjTEQGc!(KNFQa TBLke,P"33b"%C@*eCcT38%-J3fpNC8GPEJ"iC(*XD@)ZY5j38%-J4'9LG@Fk8&" $)%4TFf&cFf9YBQaPFJ"iC(*XD@)ZY5j38%-J4'9LG@Fk8&"$)%aTEQYPFJ"iC(* XD@)ZY5j38%-J4'9LG@Fk8&"$)&"&4J"iC(*XD@)ZY5j38%-J4'9LG@Fk8&"$)&" bEfTPBh3!H'4bE'PL,V8Z8&"$)%4PBR9R1P"33d&cE5"3B@jPE!"iC(*XD@)ZY5j 38%-J4'9LG@Fk8Q9k)%0[EA"TE'9b!(KNFQaTBLke,P"33b"5C@aPBA0P1N0eFh4 [E5",CAPhEh*NF`"iC(*XD@)ZY5j38%-J8Q9XC@&cC6T"Bf0PFh-J8'&dD(-!H'4 bE'PL,V8Z8&"$)&*PE'9KFf8k9'&bCf9d)&0PG(4TEQGc!(KNFQaTBLke,P"33b" 5C@aPBA0P1NCTE'8J6@&`F'PZCh-!H'4bE'PL,V8Z8&"$)&*PE'9KFf8k3R9TE'3 J4AKdFQ&c!(KNFQaTBLke,P"33b"5C@aPBA0P1MBi5b"$Ef4P4f9Z!(KNFQaTBLk e,P"33b"5C@aPBA0P1MBi5b"%DA0KFh0PE@*XCA)!H'4bE'PL,V8Z8&"$)&*PE'9 KFf8k0MK,)%aTEQYPFJ"iC(*XD@)ZY5j38%-J8Q9XC@&cC6Sf1%XJ8(*[DQ9MG!" iC(*XD@)ZY5j38%-J8Q9XC@&cC6T$,d-V+b"$Efe`D@aPFJ"iC(*XD@)ZY5j38%- J8Q9XC@&cC6T$,d-V+b"ABA*ZD@jRF`"iC(*XD@)ZY5j38%-J8Q9XC@&cC6T$4Nd f1%X!H'4bE'PL,V8Z8&"$)&*PE'9KFf8k59)J6h"dD@eTHQ9b!(KNFQaTBLke,P" 33b"5C@aPBA0P1NeKBdp6)%ePFQGP)&"KEQ9X!(KNFQaTBLke,P"33b"5C@aPBA0 P1P"KFf0KE#"$Efe`D@aPFJ"iC(*XD@)ZY5j38%-J8Q9XC@&cC6T3BA0MB@`J9f& bEQPZCh-!H'4bE'PL,V8Z8&"$)&*PE'9KFf8k8&"$)%0[C'9(C@i!H'4bE'PL,V8 Z8&"$)&*PE'9KFf8k8&"$)%4TFf&cFf9YBQaPFJ"iC(*XD@)ZY5j38%-J8Q9XC@& cC6T38%-J6'PZDf9b!(KNFQaTBLke,P"33b"5C@aPBA0P1P"33b"348B!H'4bE'P L,V8Z8&"$)&*PE'9KFf8k8&"$)&"bEfTPBh3!H'4bE'PL,V8Z8&"$)&*PE'9KFf8 k8&"$3A0Y)&"KEQ9X!(KNFQaTBLke,P"33b"5C@aPBA0P1P*PHL"$Efe`D@aPFJ" iC()J6'PL)$Bi5b"%C@*eCcT$GA0dEfdJ5f9jGfpbC(-!H'4b)%aTBL!f1%XJ4'9 LG@Fk3@0MCA0c)&"KG'Kc!(KNFL"-D@)J0MK,)%4PBR9R1P4KFQGPG#"6CA4dD@j RF`"iC()J6'PL)$Bi5b"%C@*eCcT'D@aP)%eKF("TEQGc!(KNFL"-D@)J0MK,)%4 PBR9R1N*eD@aN)%9iG(*KF`"iC()J6'PL)$Bi5b"%C@*eCcSf1%XJ3fpNC8GPEJ" iC()J6'PL)$Bi5b"%C@*eCcSf1%XJ4'PcBA0cC@eLE'9b!(KNFL"-D@)J0MK,)%4 PBR9R1MBi5b"-D@jVCA)!H'4b)%aTBL!f1%XJ4'9LG@Fk0MK,)&"bEfTPBh3!H'4 b)%aTBL!f1%XJ4'9LG@Fk3bp$+bXJ3fpYF'PXCA)!H'4b)%aTBL!f1%XJ4'9LG@F k3bp$+bXJ9f&bEQPZCh-!H'4b)%aTBL!f1%XJ4'9LG@Fk3dC00MK,!(KNFL"-D@) J0MK,)%4PBR9R1NP5)%p`G'PYDATPFJ"iC()J6'PL)$Bi5b"%C@*eCcT0B@028b" 0CA*RC5"3B@jPE!"iC()J6'PL)$Bi5b"%C@*eCcT3BA0MB@`J3fpYF'PXCA)!H'4 b)%aTBL!f1%XJ4'9LG@Fk8'&cBf&X)&GKFQjTEQGc!(KNFL"-D@)J0MK,)%4PBR9 R1P"33b"$Ef4P4f9Z!(KNFL"-D@)J0MK,)%4PBR9R1P"33b"%DA0KFh0PE@*XCA) !H'4b)%aTBL!f1%XJ4'9LG@Fk8&"$)%aTEQYPFJ"iC()J6'PL)$Bi5b"%C@*eCcT 38%-J8%9'!(KNFL"-D@)J0MK,)%4PBR9R1P"33b"3FQpUC@0d!(KNFL"-D@)J0MK ,)%4PBR9R1P"33d&cE5"3B@jPE!"iC()J6'PL)$Bi5b"%C@*eCcT5CASJ3fpYF'P XCA)!H'4b)%aTBL!f1%Xk3h9cG'pY)%YPHAG[FQ4c!(KNFL"-D@)J0MK,1N&MBf9 cFb"3BA4SF`"iC()J6'PL)$Bi5cT8BA*RCA3J8f9dG'PZCh-!H'4b)%aTBL!f1%X k4QPXC5"0BA"`D@jRF`"iC()J6'PL)$Bi5cT#G@PXC#"&H(4bBA-!H'4b)%aTBL! f1%Xk0MK,)%0[C'9(C@i!H'4b)%aTBL!f1%Xk0MK,)%4TFf&cFf9YBQaPFJ"iC() J6'PL)$Bi5cSf1%XJ6'PZDf9b!(KNFL"-D@)J0MK,1MBi5b"3FQpUC@0d!(KNFL" -D@)J0MK,1N-[3bXV)%0[EA"TE'9b!(KNFL"-D@)J0MK,1N-[3bXV)&GKFQjTEQG c!(KNFL"-D@)J0MK,1N0'66Bi5`"iC()J6'PL)$Bi5cT*8L"2F(4TE@PkCA)!H'4 b)%aTBL!f1%Xk6@&M6e-J6@9bCf8J8'&ZC@`!H'4b)%aTBL!f1%Xk8'&cBf&X)%0 [EA"TE'9b!(KNFL"-D@)J0MK,1P"KFf0KE#"ABA*ZD@jRF`"iC()J6'PL)$Bi5cT 38%-J3fpNC8GPEJ"iC()J6'PL)$Bi5cT38%-J4'PcBA0cC@eLE'9b!(KNFL"-D@) J0MK,1P"33b"-D@jVCA)!H'4b)%aTBL!f1%Xk8&"$)&"&4J"iC()J6'PL)$Bi5cT 38%-J8(*[DQ9MG!"iC()J6'PL)$Bi5cT38%0"FfdJ8'&ZC@`!H'4b)%aTBL!f1%X k8Q9k)%0[EA"TE'9b!(KNFL"-D@)J8&"$)%4PBR9R1N0eFh4[E5",CAPhEh*NF`" iC()J6'PL)&"33b"%C@*eCcT"Bf0PFh-J8'&dD(-!H'4b)%aTBL"38%-J4'9LG@F k9'&bCf9d)&0PG(4TEQGc!(KNFL"-D@)J8&"$)%4PBR9R1NCTE'8J6@&`F'PZCh- !H'4b)%aTBL"38%-J4'9LG@Fk3R9TE'3J4AKdFQ&c!(KNFL"-D@)J8&"$)%4PBR9 R1MBi5b"$Ef4P4f9Z!(KNFL"-D@)J8&"$)%4PBR9R1MBi5b"%DA0KFh0PE@*XCA) !H'4b)%aTBL"38%-J4'9LG@Fk0MK,)%aTEQYPFJ"iC()J6'PL)&"33b"%C@*eCcS f1%XJ8(*[DQ9MG!"iC()J6'PL)&"33b"%C@*eCcT$,d-V+b"$Efe`D@aPFJ"iC() J6'PL)&"33b"%C@*eCcT$,d-V+b"ABA*ZD@jRF`"iC()J6'PL)&"33b"%C@*eCcT $4Ndf1%X!H'4b)%aTBL"38%-J4'9LG@Fk59)J6h"dD@eTHQ9b!(KNFL"-D@)J8&" $)%4PBR9R1NeKBdp6)%ePFQGP)&"KEQ9X!(KNFL"-D@)J8&"$)%4PBR9R1P"KFf0 KE#"$Efe`D@aPFJ"iC()J6'PL)&"33b"%C@*eCcT3BA0MB@`J9f&bEQPZCh-!H'4 b)%aTBL"38%-J4'9LG@Fk8&"$)%0[C'9(C@i!H'4b)%aTBL"38%-J4'9LG@Fk8&" $)%4TFf&cFf9YBQaPFJ"iC()J6'PL)&"33b"%C@*eCcT38%-J6'PZDf9b!(KNFL" -D@)J8&"$)%4PBR9R1P"33b"348B!H'4b)%aTBL"38%-J4'9LG@Fk8&"$)&"bEfT PBh3!H'4b)%aTBL"38%-J4'9LG@Fk8&"$3A0Y)&"KEQ9X!(KNFL"-D@)J8&"$)%4 PBR9R1P*PHL"$Efe`D@aPFJ"iC()J6'PL)&"33cT$GA0dEfdJ5f9jGfpbC(-!H'4 b)%aTBL"38%-k3@0MCA0c)&"KG'Kc!(KNFL"-D@)J8&"$1P4KFQGPG#"6CA4dD@j RF`"iC()J6'PL)&"33cT'D@aP)%eKF("TEQGc!(KNFL"-D@)J8&"$1N*eD@aN)%9 iG(*KF`"iC()J6'PL)&"33cSf1%XJ3fpNC8GPEJ"iC()J6'PL)&"33cSf1%XJ4'P cBA0cC@eLE'9b!(KNFL"-D@)J8&"$1MBi5b"-D@jVCA)!H'4b)%aTBL"38%-k0MK ,)&"bEfTPBh3!H'4b)%aTBL"38%-k3bp$+bXJ3fpYF'PXCA)!H'4b)%aTBL"38%- k3bp$+bXJ9f&bEQPZCh-!H'4b)%aTBL"38%-k3dC00MK,!(KNFL"-D@)J8&"$1NP 5)%p`G'PYDATPFJ"iC()J6'PL)&"33cT0B@028b"0CA*RC5"3B@jPE!"iC()J6'P L)&"33cT3BA0MB@`J3fpYF'PXCA)!H'4b)%aTBL"38%-k8'&cBf&X)&GKFQjTEQG c!(KNFL"-D@)J8&"$1P"33b"$Ef4P4f9Z!(KNFL"-D@)J8&"$1P"33b"%DA0KFh0 PE@*XCA)!H'4b)%aTBL"38%-k8&"$)%aTEQYPFJ"iC()J6'PL)&"33cT38%-J8%9 '!(KNFL"-D@)J8&"$1P"33b"3FQpUC@0d!(KNFL"-D@)J8&"$1P"33d&cE5"3B@j PE!"iC()J6'PL)&"33cT5CASJ3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!F!3!!!3!!!!!!!!! !"!!!!!!JX1U*Z!!!Gq%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G!J!!!3! !!!!!!!!!"!!!!!!JX1U*`J!!1'J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! H!`!!!3!!!!!!!!!!"!!!!!!KX1U*d3!!6Fm!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!I"!!!!3!!!!!!!!!!"!!!!!!KX1U*fJ!!3d%!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!a"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!4H'4b)%aTBL"38%-J4'9LG@GR!!! !!!!!!!!!!!!!!!!"1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J! !!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!-,H'4b,P"33bj XD@)!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cmr2cmr!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!! "!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!"J!!!!)!"3!!!!B%!!!'!!%k!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%#!!!!!3!"1MSkD'4Q1R0bBcS!5%4 '1NK%4M3Z-A)a1QKNCMTcFQ-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!J!!!!8!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%a TBR*KFRNk690-)%-k690-)%0[E@e[EMT3G@*XD@-J5@jME(9NCA-k!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3*!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne 66#"$1Ne66#"0B@-k8(9LE'PM)%PZBfaeC'9c1J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!'p3!!!!J!#1NeKBdp6)&0eF("[FR3k6@&M5'9KC'9bFcS!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"[8!!!!- !!MT0B@028b"6GA"`Eh*d1NaTBR*KFQPPFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ee!!!!%!!)k6@&M6e- J8h9`F'pbG$S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!!!"3!#!!N36@&M6e-J8&"$)%a TEQYPFJ!!!!!!!!!!!!!!!!!!!!!D39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A" `E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69" -4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P0 53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!"MFh1`!!(Ta!!9UR3!!!!!!!! !!!!,c*3!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!9%9 B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9 B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jc!'KMFh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!8&"$3A0Y!'iJ5'9X!!! !!!!!!!!"phA`!!!!!!*!QI!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'p MG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfK XBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"3!!!!%%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!! !!!!!!!!!'N&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p#5L!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!Bh0cX!!"kF3 !&DTd!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!! #3*R`!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZFf9R!(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!"5CAT +BACK)%KPE!!!!!!!!!!!!IGem!!!!!!#3+Kd!!!!!'4[Bh8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8!!!!""AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!Y849K8,Q- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R* M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"AD@j53`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R*PF`!V+i`!!hDi!!!!!!'e*CJ"Y593!!M Ui!!PK@aAD@j5CA-J5@e`Eh*d!!!!*3)"Y3'e*B!!&Je!!@j*l!!!!!!!!!!!,Q4 [B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QaTBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Qp LDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2BQSJ5@e`Eh*d)(Ji0J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!*68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!63da98`!ZC'9QE!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X!!!!!!'e*@! !&Je!!!!!!#8#!E8"Y5@!!"B03!&Z@G"!!!!!68e$5!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!68e-3J!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X6'PL)%PYF'p bG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!69"-4J!ZC'pME!'-!!0fZ!!!!!! "Y5@B!E8P8!!)kZ!!*B9X6'PL)%PYF'pbG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H` !!!!!6d*+)!!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69"A)%PYF'p bG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!68-J3bp$+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jM+bX!E!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bX J0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jMB`!VE!'-!!0fZ!!!!!! "Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H` !!!!!9%9B9#jME(-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!68-J3faKFh- J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jMF!!VE!'-!!0fZ!!!!!! "Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H` !!!!!9%9B9#jMF(!!E!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bX J0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jNC@B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 3!!!!9%9B9#j`!'0S+bZ-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ8'&cBf& X)$Bi5`!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j`BA-!+bZ-!!0fZ!!!!!! "Y5@B!E8P8!!)kZ!!*B9X69FJ8'&cBf&X)$Bi5`!!!#8#!E8"Y5@!!"B03!&Z5H` !!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!68-J3bp$+bX !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`#-!!0fZ!!!!!! "Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5Hb !!!!!9%9B9#jdF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#dTKGQ%J6'PZDf9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!%%&38%`!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!%&`F'`!`b&H!IG eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IG em!!!!!!#3+KdB!!!!%02M'X!,Q0XBA0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!%0XFh-!,Q0XBA0 cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IG em!!!!!!#3*R`!!!!!%eA3d3!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!&*68N-!`b&H!IG eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IG em!!!!!!#3+KdB!!!!&4&@&3ZBQJ!E@aeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!&4&@&3ZD(4YE!" eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IG em!!!!!!#3+Kd!!!!!&4&@&3ZDQ&fB3"eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!&4&@&3ZFJ"TF(0 cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!&*PHJ"+BACK)%KPE!!!!!!!!!!!!IG em!!!!!!#3*R`!!!!!&T*8#!!,RTTF(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`3!!!!&TTF%B!,RTTF(0 cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IG em!!!!!!#3*R`!!!!!'4[Bh8!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!(*cFQ-!`b&H!IG eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IG em!!!!!!#3+KdB!!!!!!!!!!ZBfaKFh-!X!!"kF3!&DTd!!!!!!!!!!!!#mb8!!! !!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!!!!!!!ZHQP`!(0 cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IG em!!!!!!#3*R`!!!!!%j[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"0B@028b!f1%XJ6'PZDf9b!!!!!!!!!!! !!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'P L)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!6d*+)!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9 k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jcC@F!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9 ')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!6@&M6e-J6@9bCf8!!!! !!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'` !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3 ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(*cFQ- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eKBdp 6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e `Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0 MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!! !!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp'4L" *EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e `Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!a"0B@028b!f1%XJ6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!4H'4b)%aTBL!f1%XJ4'9LG@GR!!!!!!!!!!!!!!! !!!!"1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!&!!!3!"!!%!!3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&#G$6d4&*b! R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!'!!!!!J!&!!!!"J3!!!B!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3)!!!!"!!%k1MTSC'BkFh*M1J")4%Bk5%4'0#iaFM%kD'4Q1R0 bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%#!!!!"3!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cT08d` J3fpYE@pZ1P"eBQaTBb"*EQ0XG@4PFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!N!!!!% !!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k690-)%eKBcT3G@* XD@-J5@jME(9NCA-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ee!!!!#!!)k6@&M6e- J8h9`F'pbG$T0B@0)C@&NCA*c1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!!!!`!#1NeKBdp6)&0eF("[FR3 k6'PLFQ&bD@9c1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"[8!!!!3!!MT0B@028b"6GA"`Eh*d1J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!Ee!!!!&!!)!8!!"!!%!!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3R3dp %45FJ*d4"9%%R)#G35808*`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!!!"A"[FR3J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!"!!!*6@9bCf8J6h9d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$!!)!!!!!!!!!!!!!!!! $!3!"!3!!!!!!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!$!!"rr`!!!!"rr`!!!!"rr`!!!!"rr`!!!!B#!!! !!!!"!3%"!3!!!3%!!!!"!!!!!!F"!!!"!!%!!!!!!3!!!`!!!!!!!!!!!!!!!3% "!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$!!!"!!!!!`)!!!! !!!!"!!%"!!!!!!!!!!!!!!!!!IrV!!!!!!!!!`!!!J!!!!3#!!!!!!!!!3!"!3! !!!!!!!!!!!!!!!(rk`!!!!!!!!-!!!-!!!!&!J!!!!!!!!%!!3%!!!!!!!!!!!! !!!!"rqX!!!!!!!!$!!!%!!!!"J)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!IrV!!! !!!!!!`!!"3!!!!F#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!(rk`!!!!!!!!!!!!! !!!!"!!!!!!!!!!i!!!!#!!!!!!!!!"S!!!!$!!!!!!!!!$!!!!!%!!!!!!!!!%F !!!!&!!!!!!!!!&X!!!!'!!!!!!!!!'m!!!!(!!!!!!!!!))!!!!)!!!!!!!!!*S !!!!*!!!!!!!!!+`!!!!+!!!!!!!!!,m!!!!,!!!!!!!!!08!!!!-!!!!!!!!!1X !!!!0!!!!!!!!!2N!!!!1!!!!!!!!!3d!!!!2!!!!!!!!!5%!!!!3!!!!!!!!!8% !!!!4!!!!!!!!!9N!!!!5!!!!!!!!!A)!!!!6!!!!!!!!!BN!!!!8!!!!!!!!!D! !!!!9!!!!!!!!!E-!!!!@!!!!!!!!!FX!!!!A!!!!!!!!!Gd!!!!B!!!!!!!!!H` !!!!C!!!!!!!!!Im!!!!D!!!!!!!!!K-!!!!E!!!!!!!!!LF!!!!F!!!!!!!!!Mi !!!!G!!!!!!!!!P3!!!!H!!!!!!!!!QF!!!!I!!!!!!!!!RN!!!!J!!!!!!!!!S` !!!!K!!!!!!!!!U-!!!!L!!!!!!!!!VJ!!!!M!!!!!!!!!XS!!!!N!!!!!!!!!ZF !!!!P!!!!!!!!!`%!!!!Q!!!!!!!!!ai!!!!R!!!!!!!!!cN!!!!S!!!!!!!!!e- !!!!T!!!!!!!!!f`!!!!U!!!!!!!!!iS!!!!V!!!!!!!!!k)!!!!X!!!!!!!!!lX !!!!Y!!!!!!!!!pF!!!!Z!!!!!!!!!r-!!!![!!!!!!!!"!F!!!!`!!!!!!!!"#% !!!!a!!!!!!!!"%!!!!!b!!!!!!!!"&d!!!!c!!!!!!!!"(S!!!!d!!!!!!!!"*- !!!!e!!!!!!!!",%!!!!f!!!!!!!!"-N!!!!h!!!!!!!!"0i!!!!i!!!!!!!!"2F !!!!j!!!!!!!!"4%!!!!k!!!!!!!!"5X!!!!l!!!!!!!!"9!!!!!m!!!!!!!!"A) !!!!p!!!!!!!!"CF!!!!q!!!!!!!!"ES!!!!r!!!!!!!!"G`!!!"!!!!!!!!!"Id !!!""!!!!!!!!"L-!!!"#!!!!!!!!"N-!!!"$!!!!!!!!"Q3!!!"%!!!!!!!!"SJ !!!"&!!!!!!!!"U`!!!"'!!!!!!!!"XJ!!!"(!!!!!!!!"ZS!!!")!!!!!!!!"a% !!!"*!!!!!!!!"cB!!!"+!!!!!!!!"eX!!!",!!!!!!!!"h`!!!"-!!!!!!!!"k) !!!"0!!!!!!!!"m)!!!"1!!!!!!!!"pm!!!"2!!!!!!!!#!!!!!"3!!!!!!!!##) !!!"4!!!!!!!!#%3!!!"5!!!!!!!!#'F!!!"6!!!!!!!!#)F!!!"8!!!!!!!!#+S !!!"9!!!!!!!!#-X!!!"@!!!!!!!!#1X!!!"A!!!!!!!!#3S!!!"B!!!!!!!!#5i !!!"C!!!!!!!!#8`!!!"D!!!!!!!!#@X!!!"E!!!!!!!!#Bd!!!"F!!!!!!!!#Dm !!!"G!!!!!!!!#FN!!!"H!!!!!!!!#HN!!!"I!!!!!!!!#Ji!!!"J!!!!!!!!#M% !!!"K!!!!!!!!#P3!!!"L!!!!!!!!#R-!!!"M!!!!!!!!#TF!!!"N!!!!!!!!#V8 !!!"P!!!!!!!!#Y!!!!"Q!!!!!!!!#Zm!!!"R!!!!!!!!#`m!!!"S!!!!!!!!#bm !!!"T!!!!!!!!#e)!!!"U!!!!!!!!#h)!!!"V!!!!!!!!#j8!!!"X!!!!!!!!#lB !!!"Y!!!!!!!!#pB!!!"Z!!!!!!!!#r8!!!"[!!!!!!!!$"N!!!"`!!!!!!!!$$F !!!"a!!!!!!!!$&B!!!"b!!!!!!!!$(J!!!"c!!!!!!!!$*S!!!"d!!!!!!!!$,3 !!!"e!!!!!!!!$03!!!"f!!!!!!!!$2N!!!"h!!!!!!!!$4`!!!"i!!!!!!!!$6m !!!"j!!!!!!!!$9i!!!"k!!!!!!!!$B)!!!"l!!!!!!!!$D!!!!"m!!!!!!!!$EX !!!"p!!!!!!!!$GS!!!"q!!!!!!!!$IS!!!"r!!!!!!!!$KS!!!#!!!!!!!!!$Mm !!!#"!!!!!!!!$Q%!!!##!!!!!!!!$SB!!!#$!!!!!!!!$UN!!!#%!!!!!!!!$XX !!!#&!!!!!!!!$Z`!!!#'!!!!!!!!$a)!!!#(!!!!!!!!$c)!!!#)!!!!!!!!$e- !!!#*!!!!!!!!$hF!!!#+!!!!!!!!$jX!!!#,!!!!!!!!$lF!!!#-!!!!!!!!$pN !!!#0!!!!!!!!%!!!!!#1!!!!!!!!%#8!!!#2!!!!!!!!%%S!!!#3!!!!!!!!!"" V!!!!N3!!!!!!!"#4!!!!NJ!!!!!!!"#a!!!!N`!!!!!!!"$1!!!!P!!!!!!!!"$ [!!!!P3!!!!!!!"%4!!!!PJ!!!!!!!"%c!!!!P`!!!!!!!"&9!!!!Q!!!!!!!!"& d!!!!Q3!!!!!!!"'@!!!!QJ!!!!!!!"'f!!!!Q`!!!!!!!"(9!!!!R!!!!!!!!"( c!!!!R3!!!!!!!")@!!!!RJ!!!!!!!")c!!!!R`!!!!!!!"*4!!!!S!!!!!!!!"* b!!!!S3!!!!!!!"+6!!!!SJ!!!!!!!"+X!!!!S`!!!!!!!",,!!!!T!!!!!!!!", [!!!!T3!!!!!!!"-4!!!!TJ!!!!!!!"-c!!!!T`!!!!!!!"04!!!!U!!!!!!!!"0 d!!!!U3!!!!!!!"14!!!!UJ!!!!!!!"1V!!!!U`!!!!!!!"2*!!!!V!!!!!!!!"2 S!!!!V3!!!!!!!"3(!!!!VJ!!!!!!!"3M!!!!V`!!!!!!!"3m!!!!X!!!!!!!!"4 B!!!!X3!!!!!!!"4b!!!!XJ!!!!!!!"5,!!!!X`!!!!!!!"5M!!!!Y!!!!!!!!"6 !!!!!Y3!!!!!!!"6A!!!!YJ!!!!!!!"6[!!!!Y`!!!!!!!"8+!!!!Z!!!!!!!!"8 P!!!!Z3!!!!!!!"8i!!!!ZJ!!!!!!!"94!!!!Z`!!!!!!!"9[!!!![!!!!!!!!"@ ,!!!![3!!!!!!!"@R!!!![J!!!!!!!"@r!!!![`!!!!!!!"AF!!!!`!!!!!!!!"A c!!!!`3!!!!!!!"B(!!!!`J!!!!!!!"BI!!!!``!!!!!!!"Bi!!!!a!!!!!!!!"C 4!!!!a3!!!!!!!"Cc!!!!aJ!!!!!!!"D5!!!!a`!!!!!!!"Dd!!!!b!!!!!!!!"E 8!!!!b3!!!!!!!"Ec!!!!bJ!!!!!!!"F4!!!!b`!!!!!!!"Fd!!!!c!!!!!!!!"G 4!!!!c3!!!!!!!"G[!!!!cJ!!!!!!!"H3!!!!!-m!!!!!!!!AX3!!!0!!!!!!!!! AbJ!!!0%!!!!!!!!Ak3!!!0)!!!!!!!!B$3!!!0-!!!!!!!!B,`!!!03!!!!!!!! B83!!!08!!!!!!!!BE`!!!0B!!!!!!!!BNJ!!!0F!!!!!!!!BV`!!!0J!!!!!!!! Bb3!!!0N!!!!!!!!Bj`!!!0S!!!!!!!!C"J!!!0X!!!!!!!!C*3!!!0`!!!!!!!! C33!!!0d!!!!!!!!C@J!!!0i!!!!!!!!CGJ!!!0m!!!!!!!!CN!!!!!$J!!!!!!! !'DN!!!$K!!!!!!!!'F%!!!$L!!!!!!!!'Gi!!!$M!!!!!!!!'I8!!!$N!!!!!!! !'Jd!!!$P!!!!!!!!'LJ!!!$Q!!!!!!!!'N-!!!$R!!!!!!!!'PB!!!$S!!!!!!! !'Qm!!!$T!!!!!!!!'Sd!!!$U!!!!!!!!'UN!!!$V!!!!!!!!'X8!!!$X!!!!!!! !'Yd!!!$Y!!!!!!!!'[S!!!$Z!!!!!!!!'a%!!!$[!!!!!!!!'b8!!!$`!!!!!!! !'cd!!!$a!!!!!!!!'eB!!!$b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! #!!N36@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!D39"36!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!"MFh1 `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!"phA `!!!!!!*!QI!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!! !!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jc!'KMFh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !8&"$3A0Y!'iJ5'9X!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!@%024J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!! !!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!%%eKBdp6)$Bi5b" -D@jVCA)!!!!!!!!!!!!!!!!!!!!!'N&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%& `F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e 36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p #5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4 &@&3ZBQJ!Bh0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!! !!!!!!!!!!IGem!!!!!!#3*R`!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4 &@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4 &@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFf9R!(0cX!!"kF3!&DTd!!!!!!! !!!!!#mb8!!!!!!"5CAT+BACK)%KPE!!!!!!!!!!!!IGem!!!!!!#3+Kd!!!!!'4 [Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0 SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!8!!!!""AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!! !!!!!!!!!!!Y849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!! !!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R*PF`!V+i`!!hD i!!!!!!'e*CJ"Y593!!MUi!!PK@aAD@j5CA-J5@e`Eh*d!!!!*3)"Y3'e*B!!&Je !!@j*l!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QaTBJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2BQS J5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*68-J6'PZDf9b!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!63da98`!ZC'9QE!'-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X!!!!!!'e*@!!&Je!!!!!!#8#!E8"Y5@!!"B03!&Z@G"!!!!!68e$5!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!68e-3J!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X6'PL)%PYF'pbG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!69"-4J! ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X6'PL)%PYF'pbG#!f1%X!!#8 #!E8"Y5@!!"B03!&Z5H`!!!!!6d*+)!!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X69"A)%PYF'pbG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!68-J3bp$+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!E!'-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j MB`!VE!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8 #!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jME(-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!68-J3faKFh-J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j MF!!VE!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8 #!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jMF(!!E!'-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j NC@B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!'0S+bZ-!!0fZ!!!!!!"Y5@B!E8P8!! )kZ!!*B9X69FJ8'&cBf&X)$Bi5`!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j `BA-!+bZ-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ8'&cBf&X)$Bi5`!!!#8 #!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!68-J3bp$+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j `BfJV+`#-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8 #!E8"Y5@!!"B03!&Z5Hb!!!!!9%9B9#jdF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#dTKGQ% J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!%%&38%`!`b&H!IGeX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+K dB!!!!%&`F'`!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!%02M'X!,Q0XBA0cX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R `!!!!!%0XFh-!,Q0XBA0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ% !)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!%eA3d3!`b&H!IGeX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+K dB!!!!&*68N-!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!&4&@&3ZBQJ!E@aeX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!!#3*R `!!!!!&4&@&3ZD(4YE!"eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!IGem!!!!!!#3+Kd!!!!!&4&@&3ZDQ&fB3"eX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R `!!!!!&4&@&3ZFJ"TF(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!&*PHJ"+BAC K)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!&T*8#!!,RTTF(0cX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R `3!!!!&TTF%B!,RTTF(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ% !)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!'4[Bh8!`b&H!IGeX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+K dB!!!!(*cFQ-!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!!!!!!!ZBfaKFh-!X!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R `!!!!!!!!!!!ZHQP`!(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ% !)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!%j[EQ8!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!&069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"0B@028b!f1%X J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !6d*+)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!! !9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!! !9%9B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jcC@F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!! !6@&M6e-J6@9bCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%* KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eKBdp6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&" -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0 %!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K 8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K 8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K 8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"B3dp'4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0 e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'a L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&!!!!!!"J!!!!)!"3!!!!B%!!!'!!%k!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%#!!!!!3!"1MSkD'4Q1R0bBcS!5%4'1NK %4M3Z-A)a1QKNCMTcFQ-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!J!!!!8!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR* KFRNk690-)%-k690-)%0[E@e[EMT3G@*XD@-J5@jME(9NCA-k!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3*!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#" $1Ne66#"0B@-k8(9LE'PM)%PZBfaeC'9c1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' p3!!!!J!#1NeKBdp6)&0eF("[FR3k6@&M5'9KC'9bFcS!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"[8!!!!-!!MT 0B@028b"6GA"`Eh*d1NaTBR*KFQPPFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ee!!!!%!!)k6@&M6e-J8h9 `F'pbG$S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!!!"3!#!!N36@&M6e-J8&"$)%aTEQY PFJ!!!!!!!!!!!!!!!!!!!!!D39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!"MFh1`!!(Ta!!9UR3!!!!!!!!!!!! ,c*3!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!9%9B9#j M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j MB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j MF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j `BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j `BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j c!'KMFh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!8&"$3A0Y!'iJ5'9X!!!!!!! !!!!"phA`!!!!!!*!QI!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j NEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"3!!!!%%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!! !!!!!'N&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p#5L!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!Bh0cX!!"kF3!&DT d!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!!#3*R `!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZFf9R!(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!"5CAT+BAC K)%KPE!!!!!!!!!!!!IGem!!!!!!#3+Kd!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8!!!!""AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!Y849K8,Q-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R*M!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"AD@j53`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,R*PF`!V+i`!!hDi!!!!!!'e*CJ"Y593!!MUi!! PK@aAD@j5CA-J5@e`Eh*d!!!!*3)"Y3'e*B!!&Je!!@j*l!!!!!!!!!!!,Q4[B`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!,QaTBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QpLDJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!*68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 63da98`!ZC'9QE!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X!!!!!!'e*@!!&Je !!!!!!#8#!E8"Y5@!!"B03!&Z@G"!!!!!68e$5!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !68e-3J!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X6'PL)%PYF'pbG#! f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!69"-4J!ZC'pME!'-!!0fZ!!!!!!"Y5@ B!E8P8!!)kZ!!*B9X6'PL)%PYF'pbG#!f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!! !6d*+)!!ZC'pME!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69"A)%PYF'pbG#! f1%X!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!68-J3bp$+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jM+bX!E!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK ,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jMB`!VE!'-!!0fZ!!!!!!"Y5@ B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!! !9%9B9#jME(-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!68-J3faKFh-J3fp YF'PXCA)!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jMF!!VE!'-!!0fZ!!!!!!"Y5@ B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!! !9%9B9#jMF(!!E!'-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK ,!!!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#jNC@B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!! !9%9B9#j`!'0S+bZ-!!0fZ!!!!!!"Y5@B!E8P8!!)kZ!!*B9X69FJ8'&cBf&X)$B i5`!!!#8#!E8"Y5@!!"B03!&Z5H`!!!!!9%9B9#j`BA-!+bZ-!!0fZ!!!!!!"Y5@ B!E8P8!!)kZ!!*B9X69FJ8'&cBf&X)$Bi5`!!!#8#!E8"Y5@!!"B03!&Z5H`!!!! !9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!68-J3bp$+bX!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`#-!!0fZ!!!!!!"Y5@ B!E8P8!!)kZ!!*B9X69FJ3bp$+bXJ0MK,!!!!!#8#!E8"Y5@!!"B03!&Z5Hb!!!! !9%9B9#jdF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#dTKGQ%J6'PZDf9b!!!!!!!!!!!!!!! !!!!!!!!!!!!!%%&38%`!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!%&`F'`!`b&H!IGeX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!! !!!!#3+KdB!!!!%02M'X!,Q0XBA0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%e A)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!%0XFh-!,Q0XBA0cX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!! !!!!#3*R`!!!!!%eA3d3!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!&*68N-!`b&H!IGeX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!! !!!!#3+KdB!!!!&4&@&3ZBQJ!E@aeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%* KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!&4&@&3ZD(4YE!"eX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!! !!!!#3+Kd!!!!!&4&@&3ZDQ&fB3"eX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%e A)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!&4&@&3ZFJ"TF(0cX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!&*PHJ"+BACK)%KPE!!!!!!!!!!!!IGem!! !!!!#3*R`!!!!!&T*8#!!,RTTF(0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%e A)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`3!!!!&TTF%B!,RTTF(0cX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!! !!!!#3*R`!!!!!'4[Bh8!`b&H!IGeX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!IGem!!!!!!#3+KdB!!!!(*cFQ-!`b&H!IGeX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!IGem!! !!!!#3+KdB!!!!!!!!!!ZBfaKFh-!X!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%e A)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!!!!!!#3*R`!!!!!!!!!!!ZHQP`!(0cX!! "kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%eA)%TKGQ%!)%KPE!!!!!!!!!!!!IGem!! !!!!#3*R`!!!!!%j[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&069" b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%!!!!"0B@028b!f1%XJ6'PZDf9b!!!!!!!!!!!!!!! !!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!6d*+)!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'& cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jcC@F!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!6@&M6e-J6@9bCf8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(*cFQ-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eKBdp6)&" 33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh* d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@` J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)! !!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!)! !!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp'4L"*EA" [FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh* d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&"33d&cE3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K $6dB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dC')%PYF'pbG#" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(* cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0 dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!! '!!!!!J!&!!!!"`3!!!B!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!!!!&!!%k1MTSC'BkFh*M1J")4%Bk5%4'0#iaFM%kD'4Q1R0bBcS!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%#!!!!"J! #1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cT08d`J3fpYE@pZ1P" eBQaTBb"*EQ0XG@4PFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!N!!!!%!!MT0CA4bEhG PFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k690-)%eKBcT3G@*XD@-J5@jME(9 NCA-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ee!!!!#!!)k6@&M6e-J8h9`F'pbG$T 0B@0)C@&NCA*c1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!'p3!!!!`!#1NeKBdp6)&0eF("[FR3k6'PLFQ&bD@9 c1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"[8!!!!3!!MT0B@028b"6GA"`Eh*d1J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!Ee!!!!&!!)!#4"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!"T"8&" -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0 %!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K 8,Q*S!'0cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"#B@aXEfpZ)%KPE(!!!!! !!!!!!!(hGI!!!!!!!N#Cm!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K 8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K 8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R-!D'0cFl!!!HR%!"@UG!!!!!!!!!! !!![-P!!!!!"38%0"Ffd!EL")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"B3dp '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp'4L"*EA"[FR3J8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"bFh* M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"cG(9 L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!36@& M6e-J0MK,)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!D39"36!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!6d*+)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!9%9B9#jLD!"MFh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!3Q&XE'p [EL")C@a`!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!9%9B9#jM!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'& cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jcC@F!Fh1`!!(Ta!! 9UR3!!!!!!!!!!!!,c*3!!!!!!&*PHNTKGQ%J5'9X!!!!!!!!!!!"phA`!!!!!!* !U(3!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!%>EM-b)(Ji0L"-D@jVCA) !!!!!!!!!!!!!!!!!!!!!#e4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbX V!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh" `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0 S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)>EP*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFQ9 c!#XVM!!$GVJ!!!!!!E8PQ!'e*9!!#1VJ!#@&E>EP*PFb"*EA"[FR3!!!!P!J' e!E8PJ!!@$8!"ENRX!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZE'P L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!ZEf*U!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%pLDL"*EA"[FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!P03b"-D@j VCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0$6&96!#jNC@CX!B`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@`!!!!!!E8PB!!@$8!!!!!!*3)"Y3'e*B!!&Je!!@jCd%! !!!"0680)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"068a#!#jNEf0X!B`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@a-D@)J5@e`Eh*d)$Bi5`!!*3)"Y3'e*B!!&Je!!@j*l!! !!!"08%a'!#jNEf0X!B`!!hDi!!!!!!'e*CJ"Y593!!MUi!!PK@a-D@)J5@e`Eh* d)$Bi5`!!*3)"Y3'e*B!!&Je!!@j*l!!!!!"23NSJ!#jNEf0X!B`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@a08&FJ5@e`Eh*d)$Bi5`!!*3)"Y3'e*B!!&Je!!@j*l!! !!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"03b"$,d-V+`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`"X!B`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@a09b"$,d-V+b!f1%X!!!!!*3)"Y3'e*B!!&Je!!@j*l!! !!!"849K8,Q0M!#YX!B`!!hDi!!!!!!'e*CJ"Y593!!MUi!!PK@a09b"$,d-V+b! f1%X!!!!!*3)"Y3'e*B!!&Je!!@j*l!!!!!"849K8,Q0XF`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"03b"$E'&cFb"$Efe`D@aPFJ!!!!!!!!!!!!!!!!!!!)! !!!"849K8,Q0`!#YX!B`!!hDi!!!!!!'e*CJ"Y593!!MUi!!PK@a09b"$,d-V+b! f1%X!!!!!*3)"Y3'e*B!!&Je!!@j*l!!!!!"849K8,Q0`F!"X!B`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@a09b"$,d-V+b!f1%X!!!!!*3)"Y3'e*B!!&Je!!@j*l!! !!!"849K8,Q4PCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q4[B`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"! !!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!BfJV+i`!!hDi!!!!!!' e*CJ"Y593!!MUi!!PK@a09b"3BA0MB@`J0MK,!!!!*3)"Y3'e*B!!&Je!!@j*l!! !!!"849K8,R"KF`!V+i`!!hDi!!!!!!'e*CJ"Y593!!MUi!!PK@a09b"3BA0MB@` J0MK,!!!!*3)"Y3'e*B!!&Je!!@j*l!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"03b"$,d-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)! !!!"849K8,R"MD#XV!)`!!hDi!!!!!!'e*CJ"Y593!!MUi!!PK@a09b"$,d-V+b! f1%X!!!!!*3)"Y3'e*B!!&Je!!@j*l)!!!!"849K8,R4c!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!,5Q&fB5"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!339"36!$$)9i"ph@ `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA `!!!!!!*!U(4J!!!!3A"`E!$$)9i"ph@`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA`!!!!!!*!U(4J!!!!3dq-D`!ZBfaKFh1 `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA `!!!!!!*!QI!!!!!!3facF`!ZBfaKFh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!69G$4!$$)9i"ph@ `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA `!!!!!!*!U(4J!!!!8P053`$$)9i"ph@`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA`!!!!!!*!U(4J!!!!9%9B9#jLD!"YE(@ `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!"phA `!!!!!!*!QI!!!!!!9%9B9#jSG'eX!(@`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA`!!!!!!*!U(3!!!!!9%9B9#jUBACK!(@ `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA `!!!!!!*!QI!!!!!!9%9B9#jb!'P`Fh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !8Q9k!%TKGQ%J5'9X!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!@NP3)!!ZHQP`Fh1 `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA `!!!!!!*!QI"!!!!!@QP`4J!ZHQP`Fh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!C'pMG3$$)9i"ph@ `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA `!!!!!!*!U(4J!!!!FR0bB`$$)9i"ph@`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!"phA`!!!!!!*!U(4J!!!!!!!!!#jME'&cF`# `!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!!!69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA `!!!!!!*!QI!!!!!!!!!!!#jkDA!!Fh1`!!(Ta!!9UR3!!!!!!!!!!!!,c*3!!!! !69FJ5Q&fB3!J5'9X!!!!!!!!!!!"phA`!!!!!!*!QI!!!!!!6QpZC3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8e08()!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e KBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@) J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08&F J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"58e*$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@a XEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" 3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" 3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,R0PC`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348B J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&!!!!"0B@028b"0CA*RC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(39"36!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!! !!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA" [FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[Efi J5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !%!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"33d&cE3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dB!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&K$6dC')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA" [FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!,m9,3!!$([!!!F!'ecG()!!!! !!!!!!!!!![a8Z!!!YQd!!!`!EA0dE!!!!!!!!!!!!!!#r&5m!!!!Y!!!"!"YFh4 Z!!!!!!!!!!!!!!!!!!!!!!5d!!!!+'ecG'N!!!!!!!!!!!!!![a8b!!!'em!!!3 !EA0dFJ!!!qJ!!!!!!!!#r&6-!!!MC3!!!`"YFh4X!!!$k!!!!!!!!!,m90!!!!6 F!!!"!'ecG'i!!!2S!!!!!!!!!!!!!!!!!#J!!!!ZF(*PCJ$pPfJ!!!!"!!!!!!! !!!!!9J!!!%T`FQ9Q!2f3!,)!!!!#!!!!!!!!!!!!S!!!!"4`FQ9Q!2d#Q`!!!!- !!!!!!!!!!!X8!!!"G("bC@B!r5Te!!!!$`!!!!!!!!!!$)J!!!!%F(*PCJ$pM3N !!!!3!!!!!!!!!!!-M!!!!!4`FQ9Q!2f1f3!!!"%!!!!!!!!!!!b3!!!!!)T`FQ9 Q!2f@d`!!!")!!!!!!!!!!"*(!!!"!R"bC@B!r21B!!!!(!!!!!!!!!!!%dN!!!! NF(*PCJ$pc8S!!!!G!!!!!!!!!!!6E3!!!"*`FQ9Q!2cbb3!!!"i!!!!!!!!!!"0 r!!!!NR"bC@B!rETE!!!!(`!!!!!!!!!!&"%!!!"+F(*PCJ$p#P3!!!!J!!!#r&6 N!!!`q`!!!"KYG(0X!!!!!3!!!!!!!!,m90`!!"KE!!!!b'edF'`!!!!"!!!!!!! !![a8k!!!-GX!!!!8EA4XE`!!!!%!!!!!!!!!!!!!!!!C)`!!!!jYG("T!!!!!3! !!!!!!!,m8fJ!!%h[!!!)A'edCf`!!!2S!!!!!!!!![a6E!!!&5-!!!)XEA"cD3! !!qJ!!!!!!!!#r&0J!!!&h!!!!&G36(0d!2e%03!!!#-!!!!!!!!!!!Bc!!!!+'e cG'N!!!2S!!!!!!!!![a8i!!!'dX!!!!8EA4`F`!!!!%!!!!!!!!#r&3S!!!*"!! !!"KYG(0X!!!!!J!!!!!!!!,m9#!!!!NF!!!!b'edF'`!!!!#!!!!!!!!![a8*!! !#H3!!!!8EA4`F`!!!!)!!!!!!!!!!!!!!!!*q!!!!!jYG("T!!!!!J!!!!!!!!, m9#`!!!S'!!!!&'edE'm!!!!#!!!!!!!!![a6Y!!!,Nm!!!!BEA4cE!!!!!-!!!! !!!!#r&1X!!#eT3!!!-KYG("X!!!!!`!!!!!!!!,m8l!!!#jR!!!!&'edF(-!!!! $!!!!!!!!!!!!!!!!'cN!!!!1EA4`D3!!!!-!!!!!!!!#r&1i!!!`i`!!!"4YG'a [!!!!!`!!!!!!!!,m8d!!!"'A!!!!''edFf`!!!!%!!!!!!!!![a61!!!&&X!!!$ )EA4`E!!!!!3!!!!!!!!#r&-m!!!4V`!!!"4YG("c!!!!"!!!!!!!!!!!!!!!!"( $!!!!$QedF'N!!!!%!!!!!!!!![a64!!!%G%!!!!8EA4XE`!!!!3!!!!!!!!!!!! !!!!'@`!!!"T`FQ9Q!"1cR3!!!*F!!!!!!!!!!5mY!!!15("bC@B!%h9V!!!!Q!! !!!!!!!!!QV%!!!*NF(*PCJ!6Ef%!!!#C!!!!!!!!!!%pG3!!,MC`FQ9Q!"0bp3! !!*S!!!!!!!!!!!Ce!!!!"("bC@B!%i&e!!!!Q`!!!!!!!!!!"RN!!!!BF(*PCJ! 6IAm!!!#F!!!!!!!!!!!'N3!!!!T`FQ9Q!"0E'J!!!*d!!!!!!!!!!!DE!!!!$R" bC@B!&$VA!!!!RJ!!!!!!!!!!(em!!!$'F(*PCJ!80FN!!!#I!!!!!!!!!!!'U3! !!$K`FQ9Q!"1&j`!!!+!!!!!!!!!!!!EK!!!!$("bC@B!%e24!!!!S3!!!!!!!!! !@Rm!!!(DF(*PCJ!8%Lm!!!#L!!!!!!!!!!!'l3!!!!a`FQ9Q!"3K[!!!!+-!!!! !!!!!!#!P!!!!BR"bC@B!&!*P!!!!T!!!!!!!!!!!#&X!!!!iF(*PCJ!68jN!!!# P!!!!!!!!!!!)N`!!!!e`FQ9Q!"06,J!!!+B!!!!!!!!!!!M@!!!!&("bC@B!&!C !!!!!T`!!!!!!!!!!"[N!!!!+F(*PCJ!6F1`!!!#S!!!!!!!!!!!JK`!!!-4`FQ9 Q!"10H3!!!+N!!!!!!!!!!*d9!!!"&R"bC@B!!!!!!UJ!!!!!!!!!!,@N!!!# kF(*PCJ!8'P8!!!#V!!!!!!!!!!!+@!!!!#j`FQ9Q!"2RF!!!!+`!!!!!!!!!!*i V!!!#$("bC@B!%hb2!!!!V3!!!!!!!!!!#1S!!!!DF(*PCJ!64RS!!!#Z!!!!!!! !!!"F@3!!$NK`FQ9Q!"3N)J!!!+m!!!!!!!!!!#jl!!!#C("bC@B!%e!q!!!!X!! !!!!!!!!!DU%!!#ifF(*PCJ!8$C%!!!#a!!!!!!!!!!!)S!!!!!4`FQ9Q!"1QL!! !!,)!!!!!!!!!!!SD!!!!'("bC@B!&#(#!!!!X`!!!!!!!!!!#+3!!!!+F(*PCJ! 8+d!!!!#d!!!!!!!!!!!+-J!!!!j`FQ9Q!"1$DJ!!!,8!!!!!!!!!!!m)!!!!aR" bC@B!%kq3!!!!!,B!!!!!!!!!!!U'!!!!1("bC@B!&!LR!!!!Y`!!!!!!!!!!#N! !!!!-F(*PCJ!6rJ8!!!#i!!!!!!!!!!#Be`!!!GT`FQ9Q!"2Y8`!!!,N!!!!!!!! !!!T-!!!!$("bC@B!%qcI!!!!ZJ!!!!!!!!!!$mi!!!"LF(*PCJ!6bi3!!!#l!!! !!!!!!!!+[J!!!$K`FQ9Q!"3Ap`!!!,`!!!!!!!!!!!Vf!!!!$A"bC@B!%rdL!!! ![3!!!!!!!!!!%$!!!!!8F(*PCJ!6FTF!!!#q!!!!!!!!!!!34!!!!!T`FQ9Q!"2 #a!!!!,m!!!!!!!!!!"Na!!!!a("bC@B!%hdZ!!!!`!!!!!!!!!!!S$F!!!%@F(* PCJ!8*Nd!!!$"!!!!!!!!!!!Cp3!!!,T`FQ9Q!"4!%`!!!-)!!!!!!!!!!""1!!! !,R"bC@B!%fUU!!!!``!!!!!!!!!!S8d!!!)-F(*PCJ!6FZ)!!!$%!!!!!!!!!!! 3I!!!!"T`FQ9Q!"2Q$`!!!-8!!!!!!!!!!+0C!!!15("bC@B!%iaF!!!!aJ!!!!! !!!!!9NX!!!*NF(*PCJ!6BlB!!!$(!!!!!!!!!!$#E3!!,MC`FQ9Q!"1f5J!!!-J !!!!!!!!!!!LZ!!!!"("bC@B!%eTN!!!!b3!!!!!!!!!!%*B!!!!BF(*PCJ!6rBi !!!$+!!!!!!!!!!!,!`!!!!T`FQ9Q!"3193!!!-X!!!!!!!!!!"#Z!!!!$R"bC@B !%hZ[!!!!c!!!!!!!!!!!%,`!!!$'F(*PCJ!68A)!!!$0!!!!!!!!!!!Ak3!!!$K `FQ9Q!"0cTJ!!!-i!!!!!!!!!!"'#!!!!$("bC@B!%mTE!!!!c`!!!!!!!!!!*Q8 !!!(DF(*PCJ!6JE!!!!$3!!!!!!!!!!!5%`!!!!a`FQ9Q!"1-2`!!!0%!!!!!!!! !!"U[!!!!BR"bC@B!%m*D!!!!dJ!!!!!!!!!!'#%!!!!iF(*PCJ!6mJm!!!$6!!! !!!!!!!!5(`!!!!e`FQ9Q!"2aZ3!!!03!!!!!!!!!!")X!!!!&("bC@B!&!YD!!! !e3!!!!!!!!!!'a%!!!!+F(*PCJ!6Sd`!!!$@!!!!!!!!!!!a%`!!!-4`FQ9Q!"3 jG3!!!0F!!!!!!!!!!&L[!!!"&R"bC@B!&#YU!!!!f!!!!!!!!!!!@F8!!!#kF(* PCJ!65mS!!!$C!!!!!!!!!!!K5`!!!#j`FQ9Q!"2#G3!!!0S!!!!!!!!!!,'K!!! #$("bC@B!%kV[!!!!f`!!!!!!!!!!"`-!!!!DF(*PCJ!6J6)!!!$F!!!!!!!!!!$ `S`!!$NK`FQ9Q!"0bX`!!!0d!!!!!!!!!!#Jr!!!#C("bC@B!%pjr!!!!hJ!!!!! !!!!!rZX!!#ifF(*PCJ!6m`N!!!$I!!!!!!!!!!!((3!!!!4`FQ9Q!"051`!!!1! !!!!!!!!!!!FK!!!!'("bC@B!%q*3!!!!i3!!!!!!!!!!"cN!!!!+F(*PCJ!81l! !!!$L!!!!!!!!!!!(3`!!!!j`FQ9Q!"2p&`!!!1-!!!!!!!!!!!G4!!!!aR"bC@B !%e81!!!!j!!!!!!!!!!!#"F!!!!iF(*PCJ!6EhS!!!$P!!!!!!!!!!!)6`!!!!a `FQ9Q!"3B'3!!!1B!!!!!!!!!!!dD!!!"fR"bC@B!&$am!!!!j`!!!!!!!!!!#,) !!!!-F(*PCJ!81kS!!!$S!!!!!!!!!!!A6`!!!'*`FQ9Q!"0*I!!!!1N!!!!!!!! !!"Ha!!!!1("bC@B!%kC"!!!!kJ!!!!!!!!!!#,i!!!!0F(*PCJ!82-m!!!$V!!! !!!!!!!!1p!!!!"4`FQ9Q!"0-[3!!!1`!!!!!!!!!!!M,!!!!#R"bC@B!&!b2!!! !l3!!!!!!!!!!)AN!!!$%F(*PCJ!6N!#3!!!!!1i!!!!!!!!!!#)p!!!"&R"bC@B !%r$4!!!!l`!!!!!!!!!!+U-!!!#kF(*PCJ!82Bd!!!$`!!!!!!!!!!!4j3!!!#j `FQ9Q!"2iZ3!!!2%!!!!!!!!!!#YG!!!#$("bC@B!&$eG!!!!mJ!!+8i!!!: libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/ntohl.mar0000644000000000000000000000014312421456623014612 0ustar .TITLE ntohl .entry ntohl,^m<> rotl #-8,4(ap),r0 insv r0,#16,#8,r0 movb 7(ap),r0 ret .end libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.project.hqx0000644000000000000000000010112012421456623016646 0ustar (This file must be converted with BinHex 4.0) :$hKNFR4PFh3ZF(*[DQ9MG!"069"b3eG*43!!!!"IjJ!!!!","Q0[Ef`!!!!#!!! !+!!!@T!!!!"DZ!!!"5i!!!!c!3!!!!!!!!!!!!!!!!)!!!!$&,F!!J!!!!!!!!! #"h"KBfYKCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,F'&MDf&RC5jcH@d!!!! !!!!!!!!!!!!!!!!!!!!!!!e6HA0dC@e$E'&cFf9c!!!!!!!!!!!!!!!!!!!!!!! !!!8"!2rr!!!!!!!!!!$rr`%"!3%"!!!!!"i"!3!!!!!!!!!!QCN!!$rr2rmrr`! "!!N'6@pZB@0[!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!+!!+!F)#J!! S!!S"`J+!!!!!!!!!!!!!!!!!!!!!!!%!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!)"!!!$!!-!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J!$!!S!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!""0B@-J6e-J8&"$)%-[3bXV,V8!!!!!!!! !!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93'3!!%*!RX!!!!!!!!!!!!!!!% !A3#N!Bd#*!$#!!#Pc!!!`TjiC(*dCA0d1NeKCfPM)%0KF#"$E'&cFb"$Efe`D@a PFJ"iC(*dCA0d1NeKCfPM)%0KF#"-D@jVCA)!H'4bG'9cG$T0B@GTBb"$BA!J8(* [DQ9MG!"iC(*dCA0d1N9NDA4[FJ"iC(*dCA0d1NC[ER3!H'4bG'9cG$TAD@j53b" $Efe`D@aPFJ"iC(*dCA0d1RJi0L"$Ef4P4f9Z!(KNFR4PFh3kH$Jf)%aTEQYPFJ" iC(*dCA0d1RJi0L"3FQpUC@0d!(KNFR4PFh3k8(*[DQ9MG#"&H(4bBA-!H'4bG'9 cG$T$GA0dEfdJ5f9jGfpbC(-!H'4bG'9cG$T"Bf0PFh-J8'&dD(-!H'4bG'9cG$T #G@PXC#"&H(4bBA-!H'4bG'9cG$Sf1%XJ3fpNC8GPEJ"iC(*dCA0d1MBi5b"%DA0 KFh0PE@*XCA)!H'4bG'9cG$Sf1%XJ6'PZDf9b!(KNFR4PFh3k0MK,)&"bEfTPBh3 !H'4bG'9cG$T$,d-V+b"$Efe`D@aPFJ"iC(*dCA0d1N-[3bXV)&GKFQjTEQGc!(K NFR4PFh3k3dC00MK,!(KNFR4PFh3k5Q&fB5"3FQpUC@0d!(KNFR4PFh3k8'&cBf& X)%0[EA"TE'9b!(KNFR4PFh3k8'&cBf&X)&GKFQjTEQGc!(KNFR4PFh3k8&"$)%0 [C'9(C@i!H'4bG'9cG$T38%-J4'PcBA0cC@eLE'9b!(KNFR4PFh3k8&"$)%aTEQY PFJ"iC(*dCA0d1P"33b"348B!H'4bG'9cG$T38%-J8(*[DQ9MG!"iC(*dCA0d1P" 33d&cE5"3B@jPE!"iC(*dCA0d1P*PHL"$Efe`D@aPFJ"iC(*dCA0d1P4KFQGPG#" 6CA4dD@jRF`"iC(*dCA0d1NCTE'8J6@&`F'PZCh-!8(*[DQ9MG#"'D@aP)%aTFh3 !H'4bG'9cG$T*8L"2F(4TE@PkCA)!H'4bG'9cG$T0B@028b"0CA*RC5"3B@jPE!" iC(*dCA0d)&"33b"%C@*eCcT$GA0dEfdJ5f9jGfpbC(-!H'4bG'9cG#"38%-J4'9 LG@Fk3@0MCA0c)&"KG'Kc!(KNFR4PFh3J8&"$)%4PBR9R1P4KFQGPG#"6CA4dD@j RF`"iC(*dCA0d)&"33b"%C@*eCcT'D@aP)%eKF("TEQGc!(KNFR4PFh3J8&"$)%4 PBR9R1N*eD@aN)%9iG(*KF`"iC(*dCA0d)&"33b"%C@*eCcSf1%XJ3fpNC8GPEJ" iC(*dCA0d)&"33b"%C@*eCcSf1%XJ4'PcBA0cC@eLE'9b!(KNFR4PFh3J8&"$)%4 PBR9R1MBi5b"-D@jVCA)!H'4bG'9cG#"38%-J4'9LG@Fk0MK,)&"bEfTPBh3!H'4 bG'9cG#"38%-J4'9LG@Fk3bp$+bXJ3fpYF'PXCA)!H'4bG'9cG#"38%-J4'9LG@F k3bp$+bXJ9f&bEQPZCh-!H'4bG'9cG#"38%-J4'9LG@Fk3dC00MK,!(KNFR4PFh3 J8&"$)%4PBR9R1NP5)%p`G'PYDATPFJ"iC(*dCA0d)&"33b"%C@*eCcT0B@028b" 0CA*RC5"3B@jPE!"iC(*dCA0d)&"33b"%C@*eCcT3BA0MB@`J3fpYF'PXCA)!H'4 bG'9cG#"38%-J4'9LG@Fk8'&cBf&X)&GKFQjTEQGc!(KNFR4PFh3J8&"$)%4PBR9 R1P"33b"$Ef4P4f9Z!(KNFR4PFh3J8&"$)%4PBR9R1P"33b"%DA0KFh0PE@*XCA) !H'4bG'9cG#"38%-J4'9LG@Fk8&"$)%aTEQYPFJ"iC(*dCA0d)&"33b"%C@*eCcT 38%-J8%9'!(KNFR4PFh3J8&"$)%4PBR9R1P"33b"3FQpUC@0d!(KNFR4PFh3J8&" $)%4PBR9R1P"33d&cE5"3B@jPE!"iC(*dCA0d)&"33b"%C@*eCcT5CASJ3fpYF'P XCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!!!!!!#%!!!!#!!!!!!!!!$S!!!!$!!!!!!!!!&3!!!!%!!! !!!!!!'-!!!!&!!!!!!!!!(!!!!!'!!!!!!!!!)F!!!!(!!!!!!!!!*X!!!!)!!! !!!!!!+i!!!!*!!!!!!!!!-)!!!!+!!!!!!!!!0N!!!!,!!!!!!!!!2%!!!!-!!! !!!!!!3B!!!!0!!!!!!!!!4X!!!!1!!!!!!!!!5m!!!!2!!!!!!!!!8J!!!!3!!! !!!!!!9X!!!!4!!!!!!!!!@m!!!!5!!!!!!!!!BB!!!!6!!!!!!!!!Cd!!!!8!!! !!!!!!D`!!!!9!!!!!!!!!F%!!!!@!!!!!!!!!GN!!!!A!!!!!!!!!I%!!!!B!!! !!!!!!J8!!!!C!!!!!!!!!Ki!!!!D!!!!!!!!!M%!!!!E!!!!!!!!!N%!!!!F!!! !!!!!!P8!!!!G!!!!!!!!!QS!!!!H!!!!!!!!!Rm!!!!I!!!!!!!!!TF!!!!J!!! !!!!!!Ud!!!!K!!!!!!!!!Vm!!!!L!!!!!!!!!Y3!!!!M!!!!!!!!!Zi!!!!N!!! !!!!!!a!!!!!P!!!!!!!!!bm!!!!Q!!!!!!!!!e%!!!!R!!!!!!!!!h%!!!!S!!! !!!!!!j!!!!!!+3!!!!!!!!1Z!!!!+J!!!!!!!!24!!!!+`!!!!!!!!2Z!!!!,!! !!!!!!!3-!!!!,3!!!!!!!!3Y!!!!,J!!!!!!!!41!!!!,`!!!!!!!!4R!!!!-!! !!!!!!!5'!!!!-3!!!!!!!!5U!!!!-J!!!!!!!!6-!!!!-`!!!!!!!!6Z!!!!0!! !!!!!!!8-!!!!03!!!!!!!!8[!!!!0J!!!!!!!!9-!!!!0`!!!!!!!!9Q!!!!1!! !!!!!!!@%!!!!13!!!!!!!!@M!!!!1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!k!!!!3!!!"F)!!!J!!!!!1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(J! !!#!!!!'5!!!%!!!!!"i!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!3!!!!!!!!%!"J! !"#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&T*8#"+39C"5N&@33p0CA4bEhGPFQYc)%TKGQ%!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!S!!!!+3! !!#S!!!!V!!!!*!!!!#F!!!!X!!!!,3!!!#i!!!!M!!!!*J!!!#m!!!!`!!!!-3! !!$)!!!!c!!!!0!!!!$8!!!!f!!!!0`!!!$J!!!!j!!!!*3!!!!d!!!!1!!!!$`! !!"!!!!!,!!!!$!!!!"%!!!!5!!!!%`!!!!S!!!!$!!!!(`!!!!3!!!!K!!!!&!! !!#)!!!!!!!!!!3!!!!)!!!!9!!!!&J!!!"F!!!!B!!!!'3!!!"S!!!!E!!!!(!! !!!N!!!!G!!!!(J!!!!8!!!!'!!!!"`!!!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"iC(*dCA0d!&0[GA*MCA-!4h*[GA!J-J""6P0*)%aTBR*KFQPPF`"0B@-J6'P LFQ&bD@9c!(KNFR4PFh3ZB`"iC()Z8&"$,QaTBJ"08d`J3bj38%-Z6'PL!%PZG'9 bCQ&MC8aTBJ"0BA4S6'PL!%eA3e*eER4TE@8Z6'PL!$TiC(*dCA0d,9"33`"-D@) J5@e`Eh*d)&"33`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ8&"$!%eA)&"KFf0KE#" 38%-!8Q9k!&"33d&cE3"B3dp'4L"*EA"[FR3J8&"$!&"&4L"*EA"[FR3J8&"$!(K NFQaTBLj`FQpUC@0d!(KNFL"-D@)J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4T,cK N+5jXD@)!H'4b)%aTBL!f1%X!H'4b)%aTBL"38%-J4'9LG@F!1RKNFLj38%-ZE'P L!(KNFL"-D@)J8&"$!%e66#"5G@jdD@eP8&"$,NaTBJ"08d`J8dP299JZ8&"$,Na TBJ"iC(*dCA0d)&"33b"%C@*eC`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!#!!!!!)!!!!!!!!!%!! !!!-!!!!!!!!!'!!!!!3!!!!!!!!!*`!!!!8!!!!!!!!!03!!!!B!!!!!!!!!2`! !!!F!!!!!!!!!5`!!!!J!!!!!!!!!@3!!!!N!!!!!!!!!CJ!!!!S!!!!!!!!!EJ! !!!X!!!!!!!!!I3!!!!`!!!!!!!!!LJ!!!!d!!!!!!!!!Q3!!!!i!!!!!!!!!TJ! !!!m!!!!!!!!!X`!!!"!!!!!!!!!!`3!!!"%!!!!!!!!!a3!!!")!!!!!!!!!c!! !!"-!!!!!!!!!h3!!!"3!!!!!!!!!l!!!!"8!!!!!!!!!q`!!!"B!!!!!!!!"$3! !!"F!!!!!!!!"*!!!!"J!!!!!!!!"-!!!!"N!!!!!!!!"3J!!!"S!!!!!!!!"6`! !!"X!!!!!!!!"@`!!!"`!!!!!!!!"EJ!!!"d!!!!!!!!"J!!!!"i!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!'3!!!"B!!!!,!!!!!`!!!!d!!!!#!!!!#!! !!!`!!!!%!!!!#3!!!!F!!!!E!!!!(!!!!!i!!!!2!!!!#J!!!"-!!!!4!!!!%!! !!!%!!!!5!!!!&`!!!"8!!!!D!!!!'!!!!!B!!!!8!!!!!!!!!"d!!!!&!!!!!!! !!!!!!!!)!!!!*3%!!3!!$J!!!!%!!!!H!3!!"!!!!!!!!!!!"!!!!!!-X4G4(Ir riF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!B!!!!$!!!!!3! !!!F!!!!#!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`!!!!B!!!!$!!!!"V& +SDX!!##d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!*(8P93!!!!!!!!!!B$8&"$!!!!"%C*6%8"!!!)4NP-43% !!!P'58a&!3!!#NC*6%8"!!!,4NP-43%!!!`!!`!!Irm!!!!!Irm!!!!!Irm!!!! !Irm!!!!'!!!!!J!'!!!!"!3!!!J!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3%!!!!"!!%k1MTSC'BkFh*M1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% #!!!!!J!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cT08d`J3fp YE@pZ1P"eBQaTBb"*EQ0XG@4PFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"Hd!!!!%!!MT 0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k690-)%eKBcT3G@*XD@- J5@jME(9NCA-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8T!!!!#!!)k6@9dFQphCA* VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$1N*TEMS!C'9ABA*bD@pb1NePG(*[Gf9 bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cT#D@ik!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!"!!!"`!#1NeKBdp6)&0eF("[FR3k6@& M5'9KC'9bFcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"[8!!!!-!!MT0B@028b"6GA"`Eh*d1NaTBR*KFQPPFcS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!Ee!!!!%!!)k6@&M6e-J8h9`F'pbG$S!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!( r3!!!"3!'!3!!!!!!!!!"!!!!!!!!!!!!!3!!!!!"!3!!!3%!!3!!"`%!!3%!!3% !!!!"!!!)!!!36@&M)%p6)&"33b"$,d-V+bke!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!!'!@)!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!r2cmr!!!!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!!!!!'!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!1!3!!!3%!!!J"!!!*!3!!#J%!!!X"!!!-!!! !#!!!!#8"!!%!!!i!#3!"!!!!!3%-6@&M5'9KC'9bFbjS!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!$!3%"!3%"!3!"!!!"!3%!!!!!!!!!!!!#!!! !!!!!!!!!!!!!!`)!!3%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!"J! !!!-!!!!"!!!!"`!!!!)!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3%"!!!"!3! "!!!!"J!!!"3!!!!!!!!!"3!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!#!!!!+!! !!!!!!!!!!!!!!!!!!!-36@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%AKNFR4PFh3J8&"$)%4PBR9 R!!!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!!3!!!!B#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!!F!!!! 9!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!)!!!!(!)!!!!!!!! "!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#3!!!!S#!!!!!!!!!3!"!`!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!!!S!!!!G!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!,!!!!#!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!$!!!!!N#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!i!!!! D"3!!!!%!!!F!!3-!!!!!!!!!!!!!!!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!! !!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&p IFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!"!!!*6@9bCf8J6h9 d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$!!i!!!!!!!!!!3! !!!!+99"*,R"bC@CTH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!"X! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!B!!!!!!!!!!!!!!!!!!!!!!!$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!#hKNFR4 PFh3Y8&"$,d-V+`!!!!!!!!!!!!!!!!!!!!"13e0"39"36!!!!B!!!!'!!!!!3!! !!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!6mr2cm!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#%C*6%8"!!!*4NP-43% !!!T'58a&!3!!#dC*6%8"!!!-!!!!!3%!!!F!!!!%!!!!!"B!!!!A!!!!!!8!!!! !!!!!'!!!!"F!!!!!"3!!!!!!!!!C!!!!'J%!!!i&!3%!!!!!!"X!!!!D!!!!!!8 !!!!!!J!(6@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ !Bh0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!! !!IGem!!!!!!#3*R`!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbX V!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0 S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!! !!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF(" e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!! !!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF`" SBh0cX!!"kF3!&DTd!!!!!!!!!!!!#mb8!!!!!&"33d&cE3"Z)%KPE!!!!!!!!!! !!IGem!!!!!!#3*R`!!!!!&K$6dB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&K$6dC')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'p M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8!!!!%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!! !!"Y"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"068a#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh* d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09d0%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!'0cFl!!!HR%!"@UG!! !!!!!!!!!!![-P!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!(hGI!!!!!!!N#Cm!! !!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@` J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)! !!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!)! !!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R0PC`"cFl!!!HR%!"@UG!! !!!!!!!!!!![-P!!!!!!!8Q9k5Q&fB5")C@`!!!!!!!!!!!(hGI!!!!!!!N#SG!! !!!"NEf0e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"cD'aL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh* d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!"AD@ic-L"i1$BJ6'PZDf9b!!!!!!! !!!!!!!!!!!!!!!!+9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!! !!!!!!!!!!!#!!!!!9%9B9#jbB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ9fPZ8N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!#jXD@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !6'PL)%PYF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j[BQS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6f*U)%PYF'pbG#"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#%e 03dJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%e$)%-[3bXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZBfac!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA" TE'9b!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4 &@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%-[3bXV!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%T KGQ%J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""8&"-!--KAJ(hGE!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!! !!N#SG'!!!!""F("X!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!"$6iaV!#jME'&cFl!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!! !!N#Cm!!!!!"$E(0c!#jME'&cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b" +BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"09d0%!--KAJ(hGE!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!! !!N#SG'!!!!"58e*$!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!"849K8,Q*S!'eXGE!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!(hGI!!!!! !!N#Cm!!!!!"849K8,QKdE@`!GE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG!!!!!"849K8,QTKGQ%!GE!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!! !!N#Cm!!!!!"849K8,R)!DA"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"5CAS !5Q&fB5")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"D59!J!#jkDA"cFl!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!! !!N#Cm%!!!!"DDA"'!#jkDA"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b" +BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"NEf0e!--KAJ(hGE!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!! !!N#SG'!!!!"bFh*M!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!!!!!!!,Q0XBA0c!,!!!HR %!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!! !!N#Cm!!!!!!!!!!!,RTTF!"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b" +BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"1EfjP!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"68e3FJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!6@&M6e- J6@9bCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[Efi J5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!#!&!!!3!"!!%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b! R8%P$9#F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!!!!)8Np29!!!!!!!!!!!!!!!!!0(8P93!!!!!!!!!!%(8fpeFQ0PF`!!!!& '58a&!3!!!8G599!!!!!!!!!!!JK)4%BJ6'PLF`!!!!0'58a&!3!!"dG599!!!!! !!!!!#!-f1%X!!!!!4e*98!!!!!!!!!!(!e"33`!!!!&'58a&!3!!$NG599!!!!! !!!!!"3e0B@-J6'PLFQ&bD@9c!!!!!NG599!!!!!!!!!!"J038%-!!!!%4NP-43% !!!K'58a&!3!!#8C*6%8"!!!+4NP-43%!!!Y'58a&!3!!$!*`Yj!!!!!#+J!!#!" YFh4b!!!!!!!!!!!!!!*`YY3!!!SU!!!$!'ecG'`!!!!!!!!!!!!!!R#k*!!!$[S !!!%!EA0dEJ!!!!!!!!!!!!!!!!!!!!!0+J!!!#KYFh4T!!!!!!!!!!!!!!*`Y63 !!!rk!!!%!'ecG()!!!2S!!!!!!!!!R#e*!!!%rS!!!'!EA0dE!!!!qJ!!!!!!!! #F,P-!!!9HJ!!!)"YFh4Z!!!$k!!!!!!!!!!!!!!!!!!S!!!!"("bC@B!"%"X!!! !!3!!!!!!!!!!!#`!!!!%F(*PCJ!%1EB!!!!#!!!!!!!!!!!!-!!!!'T`FQ9Q!!1 VRJ!!!!-!!!!!!!!!!!#D!!!!,R"bC@B!"!V[!!!!"!!!!!!!!!!!!-J!!!"+F(* PCJ!$YNF!!!!&!!!!!!!!!!!"%J!!!#4`FQ9Q!!2CM3!!!!B!!!!!!!!!!!%f!!! !"R"bC@B!!ifG!!!!"`!!!!!!!!!!!6`!!!#3!("bC@B!"!M$!!!!#!!!!!!!!!! !!F`!!!"+F(*PCJ!%,JJ!!!!*!!!!!!!!!!!#&J!!!"4`FQ9Q!!3$%J!!!!S!!!! !!!!!!!f%!!!"GR"bC@B!"#ce!!!!&3!!!R#jb!!!,HX!!!!BEA4cE!!!!!%!!!! !!!!#F,88!!!`C`!!"FKYG("X!!!!!3!!!!!!!!*`ZM`!!#b)!!!!('edE'm!!!! "!!!!!!!!!!!!!!!!&IS!!!!1EA4`D3!!!!%!!!!!!!!#F,Rm!!!@#!!!!KTYG'G X!!!$k!!!!!!!!!*`Y`!!!"Lf!!!#,'e`FfN!!!2S!!!!!!!!!R#fr!!!@GB!!!$ L8%acG!!%$Kd!!!!K!!!!!!!!!!!08J!!!#KYFh4T!!!$k!!!!!!!!!*`Y4J!!"J L!!!!P'edF(-!!!!"!!!!!!!!!!!!!!!!1iJ!!!"3EA0`D3!!!!%!!!!!!!!!!!! !!!!E)J!!!"T`FQ9Q!!2QJJ!!!#3!!!!!!!!!!"Xm!!!38("bC@B!!r9&!!!!*3! !!!!!!!!!,J-!!!*NF(*PCJ!%$Y-!!!!Q!!!!!!!!!!!lf!!!'r*`FQ9Q!!2"D`! !!#F!!!!!!!!!!!ek!!!!"("bC@B!!mBV!!!!+!!!!!!!!!!!+i`!!!!BF(*PCJ! $Z'-!!!!T!!!!!!!!!!!VT!!!!!T`FQ9Q!!2V&3!!!#S!!!!!!!!!!#ZZ!!!!$R" bC@B!"%rY!!!!+`!!!!!!!!!!+l`!!!$'F(*PCJ!$c%F!!!!X!!!!!!!!!!!XXJ! !!$K`FQ9Q!!23Y3!!!#d!!!!!!!!!!#cU!!!!$("bC@B!!l-F!!!!,J!!!!!!!!! !0Lm!!!(DF(*PCJ!%HR8!!!![!!!!!!!!!!!XpJ!!!!a`FQ9Q!!2h5!!!!$!!!!! !!!!!!$J*!!!!BR"bC@B!!pd3!!!!-3!!!!!!!!!!1'X!!!!iF(*PCJ!%Fp-!!!! b!!!!!!!!!!!Y!J!!!!e`FQ9Q!!4lPJ!!!$-!!!!!!!!!!#d2!!!!&("bC@B!"!P 3!!!!0!!!!!!!!!!!,Ed!!!!+F(*PCJ!%Sl`!!!!e!!!!!!!!!!!iS`!!!-4`FQ9 Q!!2VeJ!!!$B!!!!!!!!!!$PR!!!"&R"bC@B!"(Yr!!!!0`!!!!!!!!!!1Rd!!!# kF(*PCJ!%,[8!!!!i!!!!!!!!!!!l0`!!!#j`FQ9Q!!3mI!!!!$N!!!!!!!!!!&I +!!!#$("bC@B!"$b8!!!!1J!!jTN!!!: libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrarray.c0000644000000000000000000000566012421456623014776 0ustar /* @(#)xdr_array.c 1.1 87/11/04 3.9 RPCSRC */ #if !defined(lint) && defined(SCCSIDS) static char sccsid[] = "@(#)xdr_array.c 1.10 87/08/11 Copyr 1984 Sun Micro"; #endif /* * xdr_array.c, Generic XDR routines impelmentation. * * Copyright (C) 1984, Sun Microsystems, Inc. * * These are the "non-trivial" xdr primitives used to serialize and de-serialize * arrays. See xdr.h for more info on the interface to xdr. */ #include #include /* for memset() */ #include "types.h" #include "xdr.h" #define LASTUNSIGNED ((u_int)0-1) /* * XDR an array of arbitrary elements * *addrp is a pointer to the array, *sizep is the number of elements. * If addrp is NULL (*sizep * elsize) bytes are allocated. * elsize is the size (in bytes) of each element, and elproc is the * xdr procedure to call to handle each element of the array. */ bool_t xdr_array(xdrs, addrp, sizep, maxsize, elsize, elproc) register XDR *xdrs; caddr_t *addrp; /* array pointer */ u_int *sizep; /* number of elements */ u_int maxsize; /* max numberof elements */ u_int elsize; /* size in bytes of each element */ xdrproc_t elproc; /* xdr routine to handle each element */ { register u_int i; register caddr_t target = *addrp; register u_int c; /* the actual element count */ register bool_t stat = TRUE; register u_int nodesize; /* like strings, arrays are really counted arrays */ if (! xdr_u_int(xdrs, sizep)) { return (FALSE); } c = *sizep; if ((c > maxsize) && (xdrs->x_op != XDR_FREE)) { return (FALSE); } nodesize = c * elsize; /* * if we are deserializing, we may need to allocate an array. * We also save time by checking for a null array if we are freeing. */ if (target == NULL) switch (xdrs->x_op) { case XDR_DECODE: if (c == 0) return (TRUE); *addrp = target = mem_alloc(nodesize); if (target == NULL) { (void) fprintf(stderr, "xdr_array: out of memory\n"); return (FALSE); } (void)memset(target, 0, nodesize); break; case XDR_FREE: return (TRUE); } /* * now we xdr each element of array */ for (i = 0; (i < c) && stat; i++) { stat = (*elproc)(xdrs, target); target += elsize; } /* * the array may need freeing */ if (xdrs->x_op == XDR_FREE) { mem_free(*addrp, nodesize); *addrp = NULL; } return (stat); } /* * xdr_vector(): * * XDR a fixed length array. Unlike variable-length arrays, * the storage of fixed length arrays is static and unfreeable. * > basep: base of the array * > size: size of the array * > elemsize: size of each element * > xdr_elem: routine to XDR each element */ bool_t xdr_vector(xdrs, basep, nelem, elemsize, xdr_elem) register XDR *xdrs; register char *basep; register u_int nelem; register u_int elemsize; register xdrproc_t xdr_elem; { register u_int i; register char *elptr; elptr = basep; for (i = 0; i < nelem; i++) { if (! (*xdr_elem)(xdrs, elptr)) { return(FALSE); } elptr += elemsize; } return(TRUE); } libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/xdrtest.mak0000644000000000000000000001172712421456623015166 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "xdrtest.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Console Application") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Console Application") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project CPP=cl.exe RSC=rc.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/xdrtest.exe $(OUTDIR)/xdrtest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /O2 /I "." /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /O2 /I "." /D "WIN32" /D "NDEBUG" /D "_CONSOLE"\ /Fo$(INTDIR)/ /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"xdrtest.bsc" $(OUTDIR)/xdrtest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ $(INTDIR)/xdrtest.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib win32xdr.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib win32xdr.lib /NOLOGO /SUBSYSTEM:console /INCREMENTAL:no\ /PDB:$(OUTDIR)/"xdrtest.pdb" /MACHINE:I386 /OUT:$(OUTDIR)/"xdrtest.exe" $(OUTDIR)/xdrtest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/xdrtest.exe $(OUTDIR)/xdrtest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /Zi /YX /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /Zi /Od /I "." /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /Zi /Od /I "." /D "WIN32" /D "_DEBUG" /D\ "_CONSOLE" /Fo$(INTDIR)/ /Fd$(OUTDIR)/"xdrtest.pdb" /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"xdrtest.bsc" $(OUTDIR)/xdrtest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ $(INTDIR)/xdrtest.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib win32xdr.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib win32xdr.lib /NOLOGO /SUBSYSTEM:console /INCREMENTAL:yes\ /PDB:$(OUTDIR)/"xdrtest.pdb" /DEBUG /MACHINE:I386 /OUT:$(OUTDIR)/"xdrtest.exe" $(OUTDIR)/xdrtest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\xdrtest.c $(INTDIR)/xdrtest.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/NOTICE.h0000644000000000000000000000236512421456623014127 0ustar /* * Sun RPC is a product of Sun Microsystems, Inc. and is provided for * unrestricted use provided that this legend is included on all tape * media and as a part of the software program in whole or part. Users * may copy or modify Sun RPC without charge, but are not authorized * to license or distribute it to anyone else except as part of a product or * program developed by the user. * * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE. * * Sun RPC is provided with no support and without any obligation on the * part of Sun Microsystems, Inc. to assist in its use, correction, * modification or enhancement. * * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC * OR ANY PART THEREOF. * * In no event will Sun Microsystems, Inc. be liable for any lost revenue * or profits or other special, indirect and consequential damages, even if * Sun has been advised of the possibility of such damages. * * Sun Microsystems, Inc. * 2550 Garcia Avenue * Mountain View, California 94043 */ libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/htonl.mar0000644000000000000000000000014312421456623014612 0ustar .TITLE htonl .entry htonl,^m<> rotl #-8,4(ap),r0 insv r0,#16,#8,r0 movb 7(ap),r0 ret .end libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/testout.sav0000644000000000000000000000063012421456623015210 0ustar string: Hiya sailor. New in town? unsigned bytes: 254 255 0 1 2 0 0 0 ints: 5 6 7 8 9 unsigned ints: 65535 65534 0 1 2 LONG: 82555 longs: -4 -3 -2 -1 0 unsigned longs: 65535 65534 0 1 2 floats: 1.001250e+02 1.002500e+02 1.003750e+02 1.005000e+02 1.006250e+02 doubles: 8.388608250000e+06 4.194304125000e+06 2.097152062500e+06 1.048576031250e+06 5.242880156250e+05 enums: 0 1 2 3 4 libhdf4-4.2.10/HDF_ALT/mfhdf/xdr/types.h0000644000000000000000000000203712421456623014306 0ustar /* @(#)types.h 1.2 87/11/07 3.9 RPCSRC */ /* @(#)types.h 1.18 87/07/24 SMI */ /* * Rpc additions to */ #ifndef __TYPES_RPC_HEADER__ #define __TYPES_RPC_HEADER__ #define bool_t int #define enum_t int #ifdef FALSE #undef FALSE #endif /* FALSE */ #define FALSE (0) #ifdef TRUE #undef TRUE #endif /* TRUE */ #define TRUE (1) #define __dontcare__ -1 #ifndef NULL # define NULL 0 #endif #if defined __STDC__ || defined PC || defined _WINDOWS || defined _WIN32 #define STDC_INCLUDES #endif #ifdef STDC_INCLUDES #include #include #else extern char *malloc(); #endif #define mem_alloc(bsize) malloc(bsize) #define mem_free(ptr, bsize) free(ptr) #if defined unix | defined __unix #ifndef makedev /* ie, we haven't already included it */ #include #endif #else /* !unix */ typedef unsigned char u_char; typedef unsigned short u_short; typedef unsigned int u_int; typedef unsigned long u_long; typedef char * caddr_t; #endif /* !unix */ #endif /* !__TYPES_RPC_HEADER__ */ libhdf4-4.2.10/HDF_ALT/mfhdf/THANKS0000644000000000000000000001017112421456623013105 0ustar This THANKS file is from Unidata netCDF Version 2.3.2. (No attempt has been made to update contact information.) ------------------------------------------------------------------------ The NASA CDF data model, to which netCDF owes much, was developed by Michael Gough and Lloyd Treinish. Joe Fahle designed a C version for a CDF-like interface and discussions with Joe provided much of the inspiration for the original netCDF C interface. The netCDF C library was written by Glenn Davis. The nctest test suite, ncdump, ncgen, and C++ interface were written by Russ Rew. The XDR library is from Sun Microsystems. The FORTRAN jackets and FORTRAN test code were written by Cathy Cormack. The port library, configure-based installation system, and generalized hyperslab access implementation and test code are by Steve Emmerson. The following people have contributed bug reports, fixes, good suggestions, descriptions of use, and other kinds of useful support: Ethan Alpert ethan@niwot.scd.ucar.EDU Dr. Kenneth P. Bowman bowman@csrp.tamu.edu Bill Boyd boyd@mmm.ucar.edu Mark Bradford mark@typhoon.ofps.ucar.edu Morrell Chance chance@theory.pppl.gov Carlie J. Coats, Jr. coats@ncsc.org Jon Corbet corbet@stout.atd.ucar.EDU Harvey Davies hld@atmos.dar.csiro.au Charles R. Denham cdenham@nobska.er.usgs.gov Steve Diggs sdiggs@ucsd.edu Harry Edmon harry@atmos.washington.edu Joe Fahle jhf@loreto.seaspace.com Gabor Fichtinger gabor@chpc.utexas.edu Glenn Flierl glenn@mead.mit.edu Mike Folk mfolk@ncsa.uiuc.edu David W. Forslund dwf@lanl.gov Ben Foster foster@ncar.ucar.edu Gary Granger granger@stout.atd.ucar.edu Steve Hankin hankin@noaapmel.gov Bill Hart hart@ocean.ml.csiro.au Edward J. Hartnett ejh@khonshu.colorado.edu Donn Hines donn@lanl.gov Tim Holt holtt@oce.orst.edu Chris Houck chouck@ncsa.uiuc.edu Harry Jenter hjenter@stress.er.usgs.gov Susan Jesuroga jesuroga@comet.ucar.edu Tomas Johannesson tj@os.is John Kemp kemp@uiatma.atmos.uiuc.edu Bruce Langdon langdon@laura.llnl.gov Angel Li angel@miami.rsmas.miami.edu Brian Lincoln blincoln@SESSCO.com Jeffery W. Long jwlong@llnl.gov Dave Lucas dave@nwra.com Lawrence Lyjak lvl@acd.ucar.EDU Rich Lysakowski lysakowski@duggan.enet.dec.com Marinna Martini mmartini@nobska.er.usgs.gov Ron Melton rb_melton@pnl.gov Roy Mendelssohn mendelssohn@ssurf.ucsd.edu Barb Mihalas bmihalas@ncsa.uiuc.edu Rakesh Mithal rakesh@lamont.ldgo.columbia.edu Skip Montanaro montanaro@crd.ge.com Peter Neelin neelin@pet.mni.mcgill.ca Dan Packman pack@ncar.ucar.edu Dr. Louise Perkins perkins@pimms.mit.edu Ron Pfaff rtp@woodsy.lanl.gov Ken Prada kegp@isdl.whoi.edu Mark Rivers rivers@bnlx26.nsls.bnl.gov Randolph Roesler rdr@mda.ca Larry A. Schoof laschoo@sass577.endo.sandia.gov Rich Schramm scri@mbari.org William J. Schroeder schroeder@crd.ge.com Keith Searight keith@uiatma.atmos.uiuc.edu Richard P. Signell rsignell@crusty.er.usgs.gov Nancy Soreide nns@noaapmel.gov Lloyd Treinish lloydt@watson.ibm.com Tom Umeda TUmeda@baaqmd.gov Stephen Walker walker@ml.csiro.au Chris Webster chris@chinook.atd.ucar.EDU Paul Wessel wessel@kiawe.soest.hawaii.edu David Wojtowicz davidw@uiatma.atmos.uiuc.edu libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/0000755000000000000000000000000012474643755014202 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport.c0000644000000000000000000032627112474643755016355 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * Name: * hdfimport (previously fp2hdf) * * Purpose: * To convert floating point and/or integer data to HDF Scientific Data Set (SDS) * and/or 8-bit Raster Image Set (RIS8) format, storing the results * in an HDF file. The image data can be scaled about the mean value. * * ------------- * floating point data | | ----------> RIS8 * (SDS, ASCII text, or ---> | hdfimport | and/or * native floating point) | | ----------> SDS * ------------- * AND / OR * --------------- * integer data | | * (ASCII text, or ---> | hdfimport | ----------> SDS * binary integer) | | * -------------- * Synopsis: * hdfimport -h[elp], OR * hdfimport [ [-t[ype] | -n] [ [-t[ype] | -n ]]...] * -o[utfile] [-r[aster] [ras_opts ...]] [-f[loat]] * * -h[elp]: * Print this summary of usage, and exit. * * : * Name of the input file(s), containing a single * two-dimensional or three-dimensional floating point array * in either ASCII text, native floating point, native integer * or HDF SDS format. If an HDF file is used for input, it * must contain an SDS. The SDS need only contain a dimension * record and the data, but if it also contains maximum and * minimum values and/or scales for each axis, these will * be used. If the input format is ASCII text or native * floating point or native integer, see "Notes" below on * how it must be organized. * * -t[ype] : * Optionally used for every input ASCII file to specify the * data type of the data-set to be written. If not specified * default data type is 32-bit floating point. * can be any of the following: FP32 (default), FP64, INT32 * INT16, INT8. It can be used only with ASCII files. * * -n: * This option is to be used only if the binary input file * contains 64-bit floating point data and the default * behaviour (default behaviour is to write it to a 32-bit * floating point data-set) should be overridden to write * it to a 64-bit floating point data-set. * * -o[utfile] : * Data from one or more input files are stored as one or * more data sets and/or images in one HDF output file, * "outfile". * * -r[aster]: * Store output as a raster image set in the output file. * * -f[loat]: * Store output as a scientific data set in the output file. * This is the default if the "-r" option is not specified. * * ras_opts ... * * -e[xpand] []: * Expand float data via pixel replication to produce the * image(s). "horiz" and "vert" give the horizontal and * vertical resolution of the image(s) to be produced; and * optionally, "depth" gives the number of images or depth * planes (for 3D input data). * * -i[nterp] []: * Apply bilinear, or trilinear, interpolation to the float * data to produce the image(s). "horiz", "vert", and "depth" * must be greater than or equal to the dimensions of the * original dataset. * If max and min are supplied in input file, this option clips * values that are greater than max or less then min, setting * them to the max and min, respectively. * * -p[alfile] : * Store the palette with the image. Get the palette from * "palfile"; which may be an HDF file containing a palette, * or a file containing a raw palette. * * -m[ean] : * If a floating point mean value is given, the image will be * scaled about the mean. The new extremes (newmax and newmin), * as given by: * * newmax = mean + max(abs(max-mean), abs(mean-min)) * newmin = mean - max(abs(max-mean), abs(mean-min)) * * will be equidistant from the mean value. If no mean value * is given, then the mean will be: 0.5 * (max + min) * * Notes: * If the input file format is ASCII text or native floating point or native integer(32-bit, * 16-bit, 8-bit), it * must have the following input fields: * * format * nplanes * nrows * ncols * max_value * min_value * [plane1 plane2 plane3 ...] * row1 row2 row3 ... * col1 col2 col3 ... * data1 data2 data3 ... * ... * * Where: * format: * Format designator ("TEXT", "FP32", "FP64", "IN32", "IN16", "IN08"). * nplanes, nrows, ncols: * Dimensions are specified in the order slowest changing dimension first. * ncols is dimension of the fastest changing dimension. (horizontal axis * or X-axis in a 3D scale) * nrows corresponds to dimension of the vertical axis or Y-axis in a 3D * scale. * nplanes corresponds to the slowest changing dimension i.e. dimension of * the depth axis or the Z-axis in a 3D scale ("1" for 2D input). * max_value: * Maximum data value. * min_value: * Minimum data value. * plane1, plane2, plane3, ...: * Scales for depth axis. * row1, row2, row3, ...: * Scales for the vertical axis. * col1, col2, col3, ...: * Scales for the horizontal axis. * data1, data2, data3, ...: * The data ordered by rows, left to right and top * to bottom; then optionally, ordered by planes, * front to back. * * For FP32 and FP64 input format, "format", "nplanes", "nrows", "ncols", * and "nplanes" are native integers; where "format" is the integer * representation of the appropriate 4-character string (0x46503332 for * "FP32" and 0x46503634 for "FP64"). The remaining input fields are * composed of native 32-bit floating point values for FP32 input format, * or native 64-bit floating point values for FP64 input format. * * For IN32, IN16 and IN08 input format, "format", "nplanes", "nrows", "ncols", * and "nplanes" are native integers; where "format" is the integer * representation of the appropriate 4-character string. The remaining input * fields are composed of native 32-bit integer values for IN32 input format, * or native 16-bit integer values for IN16 input format or native 8-bit * integer values for IN08 input format. * * Source Availability: * This program is in the public domain, and was developed and made * available by the National Center for Supercomputing Applications, * University of Illinois, Urbana-Champaign (ftp.ncsa.uiuc.edu). * * History: * Beta version: 17-May-89 * (by Mike Folk mfolk@ncsa.uiuc.edu) * Revision to put in the mean option: 15-Sep-89 * (by Glen Mortensen gam@inel.gov) * Officially released: 01-Dec-89 * (by NCSA ftp.ncsa.uiuc.edu) * Revision to fix some bugs: 16-Mar-90 * (by Mike Folk mfolk@ncsa.uiuc.edu) * Revision to support 3D and native fp input: 15-May-90 * (by Bob Weaver baw@inel.gov) * Revision to fix bug in interp() : 17-Oct-90 * (by Fred Walsteijn nwalstyn@fys.ruu.n) * Revision to fix bug in interp() : 23-Nov-90 * Now it clips values outside of max and min. * (by Fred Walsteijn nwalstyn@fys.ruu.n) * Revision to start to use HDF 3.2 (and 3.3) library: 22-Jun-93 * Still lots to do to support other number types. * (by Chris Houck chouck@ncsa.uiuc.edu) * Revision to incorporate 32-bit integer, 16-bit integer, 08-Jan-02 * 8-bit integer data types and converting 64-bit * input data to 64-bit output data. * (by Pankaj Kamat pkamat@uiuc.edu) */ #include "hdf.h" #include "hfile.h" #include #ifndef MIPSEL #include #endif /* MIPSEL */ #include #include #include #ifdef _WIN32 #include #include #endif /* * global macros */ #define EXPAND 1 /* -e: expand image with pixel replication */ #define INTERP 2 /* -i: expand image with interpolation */ #define NAME_LEN 255 /* * structure definition to associate input files with the output data types */ struct infilesformat { char filename[NAME_LEN]; int outtype; /* if the value is "" output type will be FP32. Applicable only to TEXT Files*/ int32 handle; /* added to facilitate the use of SD interface -BMR 2006/08/18 */ }; /* * structure definition for command line options */ struct Options { struct infilesformat infiles[30]; /* structure to hold the list of input file names. Limited to 30*/ char outfile[32]; /* output file name */ char palfile[32]; /* palette file name, if any */ int fcount; /* number of input files */ int to_float; /* float output is desired */ int to_image; /* image output is desired */ int to_int; int pal; /* output palette with image */ int ctm; /* color transform method: EXPAND or INTERP */ int exh; /* horizontal expansion factor */ int exv; /* vertical expansion factor */ int exd; /* depth expansion factor */ int hres; /* horizontal resolution of output image */ int vres; /* vertical resolution of output image */ int dres; /* depth resolution of output image */ int mean; /* scale image around a mean */ float32 meanval; /* mean value to scale the image around */ }; /* Additional Structures to handle different data types */ struct int16set /* variables for an INT 16 data set */ { int16 max; int16 min; int16 *hscale; int16 *vscale; int16 *dscale; }; struct int32set /* variables for an INT 32 data set */ { int32 max; int32 min; int32 *hscale; int32 *vscale; int32 *dscale; }; struct fp64set /* variables for a FLOAT 64 data set */ { float64 max; float64 min; float64 *hscale; float64 *vscale; float64 *dscale; }; struct int8set /* variables for an INT 8 data set */ { int8 max; int8 min; int8 *hscale; int8 *vscale; int8 *dscale; }; /* * structure definition for the input data */ struct Input { int is_hdf; /* HDF file format flag */ int is_text; /* ASCII text format flag */ int is_fp32; /* 32-bit native floating point format flag */ int is_fp64; /* 64-bit native floating point format flag */ int is_int32; /* 32-bit int */ int is_int16; /* 16-bit int */ int32 rank; /* number of input data dimensions */ int32 dims[3]; /* input dimensions - ncols, nrows, nplanes */ int is_vscale; /* vertical axis scales in the input */ int is_hscale; /* horizontal axis scales in the input */ int is_dscale; /* depth axis scales in the input */ float32 max; /* maximum value of the data */ float32 min; /* minimum value of the data */ float32 *hscale; /* horizontal scales for fp32*/ float32 *vscale; /* vertical scales for fp32*/ float32 *dscale; /* depth scales for fp32*/ struct int32set in32s; struct int16set in16s; struct int8set in8s; struct fp64set fp64s; VOIDP data; /* input data */ int outtype; }; /* * structure definition for the output raster images */ struct Raster { int hres; /* horizontal resolution of the image */ int vres; /* vertical resolution of the image */ int dres; /* depth resolution of the image */ unsigned char *image; }; /* * constants to represent data types */ #define FP_32 0 #define FP_64 1 #define INT_32 2 #define INT_16 3 #define INT_8 4 #define NO_NE 5 /* * state table tokens */ #define FILNAME 0 /* filename */ #define OPT_o 1 /* output filename */ #define OPT_r 2 /* convert to image */ #define OPT_e 3 /* expand image via pixel replication */ #define OPT_i 4 /* make interpolated image */ #define NUMBR 5 /* resolution of enlarged image */ #define OPT_p 6 /* palette filename */ #define OPT_f 7 /* convert to float (default) */ #define OPT_h 8 /* request for explanation */ #define OPT_m 9 /* mean to scale around */ #define OPT_t 10 /* datatype of the SDS to be written */ #define OPT_n 11 /* for a FLOAT 64 binary input file to be accepted as FLOAT 64 SDS (default behaviour is writing it as FLOAT 32 SDS */ #define ERR 20 /* invalid token */ /* * state table for parsing the command line. */ static int state_table[19][12] = { /* token ordering: FILNAME OPT_o OPT_r OPT_e OPT_i NUMBR OPT_p OPT_f OPT_h OPT_m OPT_z */ /* state 0: start */ {1, ERR, ERR, ERR, ERR, ERR, ERR, ERR, 14, ERR, ERR, ERR}, /* state 1: input files */ {1, 2, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, 17, 18}, /* state 2: -o[utfile] */ {3, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 3: outfile */ {ERR, ERR, 4, ERR, ERR, ERR, ERR, 13, ERR, ERR, ERR, ERR}, /* state 4: -r[aster] */ {ERR, ERR, ERR, 5, 9, ERR, 10, 12, ERR, 15, ERR, ERR}, /* state 5: -e[xpand] */ {ERR, ERR, ERR, ERR, ERR, 6, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 6: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, 7, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 7: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, 8, 10, 12, ERR, 15, ERR, ERR}, /* state 8: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, ERR, 10, 12, ERR, 15, ERR, ERR}, /* state 9: -i[nterp] */ {ERR, ERR, ERR, ERR, ERR, 6, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 10: -p[alfile] */ {11, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 11: palfile */ {ERR, ERR, ERR, 5, 9, ERR, ERR, 12, ERR, 15, ERR, ERR}, /* state 12: -f[loat] (after -r[aster]) */ {ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 13: -f[loat] */ {ERR, ERR, 4, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 14: -h[elp] */ {ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 15: -m[ean] */ {ERR, ERR, ERR, ERR, ERR, 16, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 16: mean */ {ERR, ERR, ERR, 5, 9, ERR, 10, 12, ERR, ERR, ERR, ERR}, /* state 17: output type for data set */ {1, 2, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 18: override default behaviour for FP 64 */ {1, 2, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR} }; /* static local functions */ static int gtoken(char *s); static int process(struct Options *opt); static int gfloat(char *infile, FILE * strm, float32 *fp32, struct Input *in); static int gint(char *infile, FILE * strm, int32 *ival, struct Input *in); static int isnum(char *s); static int gdata(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_maxmin); static int gdimen(struct infilesformat infile_info, struct Input *in, FILE *strm); static int gmaxmin(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_maxmin); static int gscale(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_scale); static int gtype(char *infile, struct Input *in, FILE **strm); static int indexes(float32 *scale, int dim, int *idx, int res); static int interp(struct Input *in, struct Raster *im); static int palette(char *palfile); static int pixrep(struct Input *in, struct Raster *im); /* * functions with non-integer return types */ void help(char *); void mean(struct Input *, struct Options *); void usage(char *); /* * Additional functions defined to incorporate the revisions (pkamat) */ static int gfloat64(char *infile, FILE * strm, float64 *fp64, struct Input *in); static int gint32(char *infile, FILE * strm, int32 *ival, struct Input *in); static int gint16(char *infile, FILE * strm, int16 *ival, struct Input *in); static int gint8(char *infile, FILE * strm, int8 *ival, struct Input *in); static int init_scales(struct Input * in); void fpdeallocate(struct Input *in, struct Raster *im, struct Options *opt); /* * Name: * main * * Purpose: * The driver for "hdfimport". * * Revision (pkamat): * Changes to the state table to handle -t option and the -n option. * Also, a different structure used for holding input files. */ int main(int argc, char *argv[]) { struct Options opt; int i,k; int outfile_named = FALSE; int token; int state = 0; int flag = 0; char types [5][6] = { "FP32", "FP64", "INT32", "INT16", "INT8" }; const char *err1 = "Invalid number of arguments: %d.\n"; const char *err2 = "Error in state table.\n"; const char *err3 = "No output file given.\n"; const char *err4 = "Program aborted.\n"; /* const char *err5 = "Cannot allooacte memory.\n"; */ /* * set 'stdout' and 'stderr' to line-buffering mode */ (void) HDsetvbuf(stderr, (char *) NULL, _IOLBF, 0); (void) HDsetvbuf(stdout, (char *) NULL, _IOLBF, 0); /* * validate the number of command line arguments */ if (argc < 2) { (void) fprintf(stderr, err1, argc); usage(argv[0]); goto err; } opt.to_image = FALSE; /* default: no image */ opt.to_float = FALSE; /* default: make float if no image */ /* Set FALSE here. Will be set TRUE */ /* after confirming image option is not set. */ opt.ctm = EXPAND; /* default: pixel replication */ opt.hres = 0; /* default: no expansion values */ opt.vres = 0; opt.dres = 0; opt.pal = FALSE; /* default: no palette */ opt.mean = FALSE; /* default: no mean given */ opt.fcount = 0; /* to count number of input files */ /* * parse the command line */ for (i = 1; i < argc; i++) { if (strcmp(argv[i], "-V") == 0) { printf("%s, %s\n\n", argv[0], LIBVER_STRING ); exit(0); } if ((token = gtoken(argv[i])) == ERR) { usage(argv[0]); goto err; } state = state_table[state][token]; switch (state) { case 1: /* counting input files */ (void) HDstrcpy(opt.infiles[opt.fcount].filename, argv[i]); opt.infiles[opt.fcount].outtype = NO_NE; opt.fcount++; break; case 2: /* -o found; look for outfile */ break; case 3: /* get outfile name */ (void) HDstrcpy(opt.outfile, argv[i]); outfile_named = TRUE; break; case 4: /* -r found */ opt.to_image = TRUE; break; case 5: /* -e found */ opt.ctm = EXPAND; break; case 6: /* horizontal resolution */ opt.hres = atoi(argv[i]); break; case 7: /* vertical resolution */ opt.vres = atoi(argv[i]); break; case 8: /* depth resolution */ opt.dres = atoi(argv[i]); break; case 9: /* -i found */ opt.ctm = INTERP; break; case 10: /* -p found */ opt.pal = TRUE; break; case 11: /* get pal filename */ (void) HDstrcpy(opt.palfile, argv[i]); break; case 12: /* -f found (after a -r) */ case 13: /* -f found (no -r yet) */ opt.to_float = TRUE; break; case 14: /* -h found; help, then exit */ help(argv[0]); exit(0); case 15: /* -m found */ opt.mean = TRUE; break; case 16: /* mean value */ opt.meanval = (float32)atof(argv[i]); break; case 17: /* -t found */ i++; flag = 0; for (k=0; ((k<=4) && (!flag)); k++) if (!strcmp(argv[i], types[k])) flag = 1; if (flag) opt.infiles[opt.fcount-1].outtype = k-1; else { usage(argv[0]); goto err; } break; case 18: /* -n found */ opt.infiles[opt.fcount-1].outtype = FP_64; break; case ERR: /* command syntax error */ default: (void) fputs(err2,stderr); usage(argv[0]); goto err; } } /* * make sure an output file was specified */ if (!outfile_named) { (void) fputs(err3,stderr); usage(argv[0]); goto err; } if (!opt.to_image) opt.to_float = TRUE; /* * process the input files */ if (process(&opt)) goto err; return(0); err: (void) fputs(err4,stderr); return(1); } /* * Name: * gdata * * Purpose: * Get the input data. * * Revision(pkamat): * Modified to read in data of type INT 32, INT 16, INT 8 * in addition to FP 32 and FP 64. * Revision: (bmribler - 2006/8/18) * Replaced first parameter with 'struct infilesformat' to use both * the file name and the SD identifier (handle.) */ static int gdata(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_maxmin) { int32 i, j, k; float32 *fp32; int32 *in32; int16 *in16; float64 *fp64; int8 *in8; int32 hdfdims[3], start[3]; /* order: ZYX or YX */ int32 sd_id, sds_id, sd_index, dim_id; int32 len = in->dims[0] * in->dims[1] * in->dims[2]; char infile[NAME_LEN]; intn status; const char *err1 = "Unable to get input data from file: %s.\n"; /* * extract the input data from the input file */ if (in->is_hdf == TRUE) { sd_id = infile_info.handle; strcpy(infile, infile_info.filename); sd_index = 0; sds_id = SDselect (sd_id, sd_index); /* * hdfdims is ordered: ZYX or YX * in->dims is ordered: XYZ */ if (in->rank == 2) { hdfdims[0] = in->dims[1]; hdfdims[1] = in->dims[0]; start[0] = start[1] = 0; } else { hdfdims[0] = in->dims[2]; hdfdims[1] = in->dims[1]; hdfdims[2] = in->dims[0]; start[0] = start[1] = start[2] = 0; } status = SDreaddata (sds_id, start, NULL, hdfdims, in->data); if (status == FAIL) { (void) fprintf(stderr, err1, infile); goto err; } } else { if (in->outtype == FP_32) { for (k = 0, fp32 = (float32 *) in->data; k < in->dims[2]; k++) { for (j = 0; j < in->dims[1]; j++) { for (i = 0; i < in->dims[0]; i++, fp32++) { if (gfloat(infile, strm, fp32, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } if (*is_maxmin == FALSE) { in->min = in->max = *(float32*) in->data; for (i = 1; i< len; i++) { if (((float32 *) in->data)[i] > in->max) in->max = ((float32 *) in->data)[i]; if (((float32*) in->data)[i] < in->min) in->min = ((float32*) in->data)[i]; } *is_maxmin = TRUE; } } if (in->outtype == INT_32) { for (k = 0, in32 = (int32 *) in->data; k < in->dims[2] ; k++) { for (j= 0; j < in->dims[1]; j++) { for (i =0; i < in->dims[0]; i++, in32++) { if (gint32(infile, strm, in32, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } if (*is_maxmin == FALSE) { in->in32s.min = in->in32s.max = *(int32 *) in->data; for (i = 1; idata)[i] > in->in32s.max) in->in32s.max = ((int32 *) in->data)[i]; if (((int32 *) in->data)[i] < in->in32s.min) in->in32s.min = ((int32 *) in->data)[i]; } *is_maxmin = TRUE; } } if (in->outtype == INT_16) { for (k = 0, in16 = (int16 *) in->data; k < in->dims[2] ; k++) { for (j= 0; j < in->dims[1]; j++) { for (i =0; i < in->dims[0]; i++, in16++) { if (gint16(infile, strm, in16, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } if (*is_maxmin == FALSE) { in->in16s.min = in->in16s.max = *(int16 *) in->data; for (i = 1; idata)[i] > in->in16s.max) in->in16s.max = ((int16 *) in->data)[i]; if (((int16 *) in->data)[i] < in->in16s.min) in->in16s.min = ((int16 *) in->data)[i]; } *is_maxmin = TRUE; } } if (in->outtype == INT_8) { for (k = 0, in8 = (int8 *) in->data; k < in->dims[2] ; k++) { for (j= 0; j < in->dims[1]; j++) { for (i =0; i < in->dims[0]; i++, in8++) { if (gint8(infile, strm, in8, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } if (*is_maxmin == FALSE) { in->in8s.min = in->in8s.max = *(int8 *) in->data; for (i = 1; idata)[i] > in->in8s.max) in->in8s.max = ((int8 *) in->data)[i]; if (((int8 *) in->data)[i] < in->in8s.min) in->in8s.min = ((int8 *) in->data)[i]; } *is_maxmin = TRUE; } } if (in->outtype == FP_64) { for (k = 0, fp64 = (float64 *) in->data; k < in->dims[2]; k++) { for (j = 0; j < in->dims[1]; j++) { for (i = 0; i < in->dims[0]; i++, fp64++) { if (gfloat64(infile, strm, fp64, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } if (*is_maxmin == FALSE) { in->fp64s.min = in->fp64s.max = *(float64*) in->data; for (i = 1; i< len; i++) { if (((float64 *) in->data)[i] > in->fp64s.max) in->fp64s.max = ((float64*) in->data)[i]; if (((float64*) in->data)[i] < in->fp64s.min) in->fp64s.min = ((float64*) in->data)[i]; } *is_maxmin = TRUE; } } /* } */ (void) fclose(strm); } #ifdef DEBUG (void) printf("\tdata:"); for (k = 0, fp32 = in->data; k < in->dims[2]; k++) { (void) printf("\n"); for (j = 0; j < in->dims[1]; j++) { (void) printf("\n\t"); for (i = 0; i < in->dims[0]; i++, fp32++) (void) printf("%E ", *fp32); } } (void) printf("\n\n\n"); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gdimen * * Purpose: * Determine the input data dimensions. * Revision: (bmribler - 2006/8/18) * Used the SD interface instead of DFSD. * Replaced first parameter with 'struct infilesformat' to use both * the file name and the SD identifier (handle.) */ static int gdimen(struct infilesformat infile_info, struct Input *in, FILE *strm) { int32 hdfdims[3]; /* order: ZYX or YX */ intn status; /* returned value from APIs */ char infile[NAME_LEN]; char *sds_name=NULL; int32 rank, nattrs, dtype; /* rank, num of attrs, data type */ const char *err1 = "Unable to get data dimensions from file: %s.\n"; const char *err2 = "Invalid data rank of %d in file: %s.\n"; const char *err3 = "Dimension(s) is less than '2' in file: %s.\n"; const char *err4 = "Unexpected number type from file: %s.\n"; const char *err5 = "Unable to get the length of the SDS' name: index %d.\n"; const char *err6 = "Unable to allocate dynamic memory.\n"; const char *err7 = "Failed to open the SDS.\n"; /* * extract the rank and dimensions of the HDF input file */ if (in->is_hdf == TRUE) { int32 sds_id, sd_index; int32 sd_id = infile_info.handle; /* shortcut for handle from SDstart */ char *infile = infile_info.filename; /* shortcut for input filename */ uint16 name_len = 0; intn status = FAIL; /* get the dimension information of the only SDS in the file */ sd_index = 0; sds_id = SDselect (sd_id, sd_index); if (sds_id == FAIL) { (void) fprintf(stderr, err7, infile); goto err; } /* get the SDS name's length and allocate sufficient space for the name's buffer */ status = SDgetnamelen(sds_id, &name_len); if (status == FAIL) { (void) fprintf(stderr, err5, sd_index); goto err; } sds_name = (char *)HDmalloc(name_len+1); if (sds_name == NULL) { (void) fputs(err6,stderr); goto err; } /* obtain the SDS' information */ status = SDgetinfo(sds_id, sds_name, &rank, hdfdims, &dtype, &nattrs); if (status == FAIL) { (void) fprintf(stderr, err1, infile); goto err; } in->rank = (int)rank; /* don't know how to deal with other numbers yet */ if (dtype != DFNT_FLOAT32) { (void) fprintf(stderr, err4, infile); goto err; } /* * hdfdims is ordered: ZYX or YX * in->dims is ordered: XYZ */ if (in->rank == 2) { in->dims[0] = hdfdims[1]; in->dims[1] = hdfdims[0]; in->dims[2] = 1; } else if (in->rank == 3) { in->dims[0] = hdfdims[2]; in->dims[1] = hdfdims[1]; in->dims[2] = hdfdims[0]; } else { (void) fprintf(stderr, err2, in->rank, infile); goto err; } /* * get the rank and dimensions from files of other input formats * */ } else { if (gint(infile, strm, &in->dims[2], in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->dims[2] > 1) in->rank = 3; else in->rank = 2; if (gint(infile, strm, &in->dims[1], in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gint(infile, strm, &in->dims[0], in)) { (void) fprintf(stderr, err1, infile); goto err; } } /* * validate dimension sizes */ if ((in->dims[0] < 2) || (in->dims[1] < 2)) { (void) fprintf(stderr, err3, infile); goto err; } #ifdef DEBUG (void) printf("\nInput Information ...\n\n"); (void) printf("\trank:\n\n\t%d\n\n", in->rank); (void) printf("\tdimensions (nplanes,nrows,ncols):\n\n"); (void) printf("\t%d %d %d\n\n", in->dims[2], in->dims[1], in->dims[0]); #endif /* DEBUG */ if (sds_name != NULL) HDfree(sds_name); return (0); err: if (sds_name != NULL) HDfree(sds_name); return (1); } /* * Name: * gfloat * * Purpose: * Read in a single floating point value from the input stream. The * input format may either be ASCII text , 32-bit native floating point, * or 64-bit native floating point. */ static int gfloat(char *infile, FILE * strm, float32 *fp32, struct Input *in) { float64 fp64=0.0; const char *err1 = "Unable to get 'float' value from file: %s.\n"; if (in->is_text == TRUE) { if (fscanf(strm, "%e", fp32) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else if (in->is_fp32 == TRUE) { if (fread((char *) fp32, sizeof(float32), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else { if (fread((char *) &fp64, sizeof(float64), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } *fp32 = (float32) fp64; } return (0); err: return (1); } /* * Name: (pkamat - New function) * gfloat64 * * Purpose: * Read in a double floating point value from the input stream. The * input format may either be ASCII text , * or 64-bit native floating point. */ static int gfloat64(char *infile, FILE * strm, float64 *fp64, struct Input *in) { const char *err1 = "Unable to get 'float' value from file: %s.\n"; if (in->is_text == TRUE) { if (fscanf(strm, "%le", fp64) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else { if (fread((char *) fp64, sizeof(float64), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: * gint * * Purpose: * Read in a single integer value from the input stream. The input * format may either be ASCII text or a native BCD of type integer. */ static int gint(char *infile, FILE * strm, int32 *ival, struct Input *in) { const char *err1 = "Unable to get 'int' value from file: %s.\n"; /* * process TEXT-formatted input */ if (in->is_text == TRUE) { if (fscanf(strm, "%d", ival) != 1) { (void) fprintf(stderr, err1, infile); goto err; } /* * process BCD-formatted input */ } else { if (fread((char *) ival, sizeof(int), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: (pkamat - New function) * gint32 * * Purpose: * Read in a single 32-bit integer value from the input stream. The input * format may either be ASCII text or a native BCD of type integer. */ static int gint32(char *infile, FILE * strm, int32 *ival, struct Input *in) { const char *err1 = "Unable to get 'int' value from file: %s.\n"; /* * process TEXT-formatted input */ if (in->is_text == TRUE) { if (fscanf(strm, "%d", ival) != 1) { (void) fprintf(stderr, err1, infile); goto err; } /* * process BCD-formatted input */ } else { if (fread((char *) ival, sizeof(int32), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: (pkamat - New function) * gint16 * * Purpose: * Read in a single 16-bit integer value from the input stream. The input * format may either be ASCII text or a native BCD of type 16-bit integer. */ static int gint16(char *infile, FILE * strm, int16 *ival, struct Input *in) { const char *err1 = "Unable to get 'int' value from file: %s.\n"; if (in->is_text == TRUE) { if (fscanf(strm, "%hd", ival) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else { if (fread((char *) ival, sizeof(int16), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: (pkamat - New function) * gint8 * * Purpose: * Read in a single 8-bit integer value from the input stream. The input * format may either be ASCII text or a native BCD of type 8-bit integer. */ static int gint8(char *infile, FILE * strm, int8 *ival, struct Input *in) { const char *err1 = "Unable to get 'int' 8 value from file: %s.\n"; int16 temp; if (in->is_text == TRUE) { if (fscanf(strm, "%hd", &temp) != 1) { (void) fprintf(stderr, err1, infile); goto err; } *ival = (int8) temp; } else { if (fread((char *) ival, sizeof(int8), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: * gmaxmin * * Purpose: * Extract the maximum and minimum data values from the input file. * Supports 32-bit integer, 16-bit integer, 8-bit integer, 32-bit float, 64-bit float * Revision: (pvn) March 14, 2006 * Used the SD interface instead of DFSD * Revision: (bmribler - 2006/8/18) * Removed SDstart call here, used passed-in SD id from process() instead. * Replaced first parameter with 'struct infilesformat' to use both * the file name and the SD identifier (handle.) */ static int gmaxmin(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_maxmin) { const char *err1 = "Unable to get max/min values from file: %s.\n"; /* * extract the max/min values from the input file */ if (in->is_hdf == TRUE) { int32 sds_id, sd_index = 0; intn status; sds_id = SDselect(infile_info.handle, sd_index); status = SDgetrange(sds_id, &in->max, &in->min); if (status != FAIL) { if (in->max > in->min) *is_maxmin = TRUE; } /* terminate access to the array. */ if (SDendaccess(sds_id)==FAIL) goto err; } else /* input file is not an HDF file */ { char *infile = infile_info.filename; if (in->outtype == FP_32) { if (gfloat(infile, strm, &in->max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gfloat(infile, strm, &in->min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->max > in->min) *is_maxmin = TRUE; } if (in->outtype == FP_64) { if (gfloat64(infile, strm, &in->fp64s.max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gfloat64(infile, strm, &in->fp64s.min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->fp64s.max > in->fp64s.min) *is_maxmin = TRUE; } if (in->outtype == INT_32) { if (gint32(infile, strm, &in->in32s.max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gint32(infile, strm, &in->in32s.min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->in32s.max > in->in32s.min) *is_maxmin = TRUE; } if (in->outtype == INT_16) { if (gint16(infile, strm, &in->in16s.max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gint16(infile, strm, &in->in16s.min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->in16s.max > in->in16s.min) *is_maxmin = TRUE; } if (in->outtype == INT_8) { if (gint8(infile, strm, &in->in8s.max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gint8(infile, strm, &in->in8s.min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->in8s.max > in->in8s.min) *is_maxmin = TRUE; } } #ifdef DEBUG (void) printf("\tinput maximum/minimum values:\n\n"); (void) printf("\t%E %E\n\n", in->max, in->min); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gscale * * Purpose: * Determine the scale for each axis. * * Revision: (pkamat) * Modified to support 32-bit integer, 16-bit integer, 8-bit integer in * addition to 32-bit float and 64-bit float * Revision: (pvn) March 14, 2006 * Used the SD interface instead of DFSD * Revision: (bmribler - 2006/8/18) * Removed SDstart call here, used passed-in SD id from process() instead. * Replaced first parameter with 'struct infilesformat' to use both * the file name and the SD identifier (handle.) */ static int gscale(struct infilesformat infile_info, struct Input *in, FILE *strm, int *is_scale) { int i; int32 hdfdims[3]; /* order: ZYX or YX */ const char *err1 = "Unable to get axis scale from file: %s.\n"; *is_scale = TRUE; /* * hdfdims is ordered: ZYX or YX * in->dims is ordered: XYZ */ if (in->rank == 2) { hdfdims[0] = in->dims[1]; hdfdims[1] = in->dims[0]; } else { hdfdims[0] = in->dims[2]; hdfdims[1] = in->dims[1]; hdfdims[2] = in->dims[0]; } /* * extract the scale values from the input file */ if (in->is_hdf == TRUE) { int32 sds_id, dim_id, sd_index = 0; int32 sd_id = infile_info.handle; /* shortcut for handle from SDstart */ /* select the SDS */ sds_id = SDselect (sd_id, sd_index); /* if the SDS is two-dimensional... */ if (in->rank == 2) { /* select the dimension */ dim_id = SDgetdimid (sds_id, 0); if (SDgetdimscale (dim_id, in->vscale)==FAIL) goto err; dim_id = SDgetdimid (sds_id, 1); if (SDgetdimscale (dim_id, in->hscale)==FAIL) goto err; } else /* ...three-dimensional... */ { dim_id = SDgetdimid (sds_id, 0); if (SDgetdimscale (dim_id, in->dscale)==FAIL) goto err; dim_id = SDgetdimid (sds_id, 1); if (SDgetdimscale (dim_id, in->vscale)==FAIL) goto err; dim_id = SDgetdimid (sds_id, 2); if (SDgetdimscale (dim_id, in->hscale)==FAIL) goto err; } /* terminate access to the array. */ if (SDendaccess(sds_id)==FAIL) goto err; } else /* input file is not an HDF file */ { char infile[NAME_LEN]; strcpy(infile, infile_info.filename); switch(in->outtype) { case 0: /* 32-bit float */ if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gfloat(infile, strm, &in->vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->vscale[i] = in->vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat(infile, strm, &in->hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->hscale[i] = in->hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gfloat(infile, strm, &in->dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->dscale[i] = in->dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat(infile, strm, &in->vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->vscale[i] = in->vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gfloat(infile, strm, &in->hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->hscale[i] = in->hscale[i - 1]; } break; case 1: /* 64-bit float */ if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gfloat64(infile, strm, &in->fp64s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->fp64s.vscale[i] = in->fp64s.vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat64(infile, strm, &in->fp64s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->fp64s.hscale[i] = in->fp64s.hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gfloat64(infile, strm, &in->fp64s.dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->fp64s.dscale[i] = in->fp64s.dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat64(infile, strm, &in->fp64s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->fp64s.vscale[i] = in->fp64s.vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gfloat64(infile, strm, &in->fp64s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->fp64s.hscale[i] = in->fp64s.hscale[i - 1]; } break; case 2: /* 32-bit integer */ if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gint32(infile, strm, &in->in32s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in32s.vscale[i] = in->in32s.vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint32(infile, strm, &in->in32s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in32s.hscale[i] = in->in32s.hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gint32(infile, strm, &in->in32s.dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in32s.dscale[i] = in->in32s.dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint32(infile, strm, &in->in32s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in32s.vscale[i] = in->in32s.vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gint32(infile, strm, &in->in32s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in32s.hscale[i] = in->in32s.hscale[i - 1]; } break; case 3: /* 16-bit integer */ if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gint16(infile, strm, &in->in16s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in16s.vscale[i] = in->in16s.vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint16(infile, strm, &in->in16s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in16s.hscale[i] = in->in16s.hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gint16(infile, strm, &in->in16s.dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in16s.dscale[i] = in->in16s.dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint16(infile, strm, &in->in16s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in16s.vscale[i] = in->in16s.vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gint16(infile, strm, &in->in16s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in16s.hscale[i] = in->in16s.hscale[i - 1]; } break; case 4: /* 8-bit integer */ if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gint8(infile, strm, &in->in8s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in8s.vscale[i] = in->in8s.vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint8(infile, strm, &in->in8s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in8s.hscale[i] = in->in8s.hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gint8(infile, strm, &in->in8s.dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in8s.dscale[i] = in->in8s.dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gint8(infile, strm, &in->in8s.vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in8s.vscale[i] = in->in8s.vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gint8(infile, strm, &in->in8s.hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->in8s.hscale[i] = in->in8s.hscale[i - 1]; } break; } } #ifdef DEBUG if (in->rank == 2) { (void) printf("\tscales of the axes (vert,horiz):\n\n\t"); for (i = 0; i < hdfdims[0]; i++) (void) printf("%E ", in->vscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[1]; i++) (void) printf("%E ", in->hscale[i]); } else { (void) printf("\tscales of the axes (depth,vert,horiz):\n\n\t"); for (i = 0; i < hdfdims[0]; i++) (void) printf("%E ", in->dscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[1]; i++) (void) printf("%E ", in->vscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[2]; i++) (void) printf("%E ", in->hscale[i]); } (void) printf("\n\n\n"); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gtoken * * Purpose: * Return the token identifier associated with the command line * argument. */ static int gtoken(char *s) { size_t len; int token; const char *err1 = "Illegal argument: %s.\n"; /* * identify the token type */ if (s[0] == '-') { /* option name (or negative number) */ token = ERR; len = HDstrlen(&s[1]); switch (s[1]) { case 'o': if (!HDstrncmp("outfile", &s[1], len)) token = OPT_o; break; case 'r': if (!HDstrncmp("raster", &s[1], len)) token = OPT_r; break; case 'e': if (!HDstrncmp("expand", &s[1], len)) token = OPT_e; break; case 'i': if (!HDstrncmp("interp", &s[1], len)) token = OPT_i; break; case 'p': if (!HDstrncmp("palfile", &s[1], len)) token = OPT_p; break; case 'f': if (!HDstrncmp("float", &s[1], len)) token = OPT_f; break; case 'h': if (!HDstrncmp("help", &s[1], len)) token = OPT_h; break; case 'm': if (!HDstrncmp("mean", &s[1], len)) token = OPT_m; break; case 'n': token = OPT_n; break; case 't': token = OPT_t; break; default: if (isnum(s)) /* negative number? */ token = NUMBR; } if (token == ERR) (void) fprintf(stderr, err1, s); } else if (isnum(s)) /* positive number */ token = NUMBR; else /* filename */ token = FILNAME; return (token); } /* * Name: * gtype * * Purpose: * Determine the type of the input file (HDF, TEXT, FP32, FP64) * * Revision: (pkamat) * Modified to support INT32, INT16, INT8 formats. * Also determines and validates the outtype type of the data-set */ static int gtype(char *infile, struct Input *in, FILE **strm) { char buf[8]; const char *err1 = "Unable to open file: %s.\n"; const char *err2 = "Unable to get format tag from file: %s.\n"; const char *err3 = "Invalid file format in file: %s.\n"; const char *err4 = "Invalid use of -t or -n options. Can be used only for TEXT files or for FP64 binary files\n"; /* * determine the input file format */ if (Hishdf(infile)) in->is_hdf = TRUE; else { if ((*strm = fopen(infile, "r")) == NULL) { (void) fprintf(stderr, err1, infile); goto err; } if (fread(buf, 4, 1, *strm) != 1) { (void) fprintf(stderr, err2, infile); goto err; } if (!HDmemcmp("TEXT", buf, 4) || !HDmemcmp("text", buf, 4)) { in->is_text = TRUE; if (in->outtype == NO_NE) in->outtype = FP_32; } else { if (!HDmemcmp("FP64", buf, 4) || !HDmemcmp("fp64", buf, 4)) { in->is_fp64 = TRUE; if (in->outtype != FP_64) if (in->outtype != NO_NE) { (void) fprintf(stderr, err4, infile); goto err; } else in->outtype = FP_32; } else { if (in->outtype != NO_NE) { (void) fprintf(stderr, err4, infile); goto err; } if (!HDmemcmp("FP32", buf, 4) || !HDmemcmp("fp32", buf, 4)) { in->is_fp32 = TRUE; in->outtype = FP_32; } else if (!HDmemcmp("IN32", buf, 4) || !HDmemcmp("in32", buf, 4)) in->outtype = INT_32; else if (!HDmemcmp("IN16", buf, 4) || !HDmemcmp("in16", buf, 4)) in->outtype = INT_16; else if (!HDmemcmp("IN08", buf, 4) || !HDmemcmp("in08", buf, 4)) in->outtype = INT_8; else { (void) fprintf(stderr, err3, infile); goto err; } if (in->outtype == NO_NE) { (void) fprintf(stderr, err4, infile); goto err; } } } } return (0); err: return (1); } /* * Name: * help * * Purpose: * Print a helpful summary of command usage and features. */ void help(char *name) { (void) printf("Name:\n"); (void) printf("\t%s (previously fp2hdf)\n\n", name); (void) printf("Purpose:\n"); (void) printf("\tTo convert floating point data to HDF Scientific "); (void) printf("Data Set (SDS)\n"); (void) printf("\tand/or 8-bit Raster Image Set (RIS8) format, "); (void) printf("storing the results\n"); (void) printf("\tin an HDF file. The image data can be scaled "); (void) printf("about a mean value.\n\n"); (void) fprintf (stderr, "Synopsis:"); (void) fprintf (stderr, "\n\t%s -h[elp]", name); (void) fprintf (stderr, "\n\t\tPrint this summary of usage and exit."); (void) fprintf (stderr, "\n\t\t"); (void) fprintf (stderr, "\n\t%s -V", name); (void) fprintf (stderr, "\n\t\tPrint version of the HDF4 library and exit."); (void) fprintf (stderr, "\n\t\t"); (void) fprintf (stderr, "\n\t%s [ [-t[ype] | -n] [ [-t[ype] | -n]...]", name); (void) fprintf (stderr, "\n\t\t\t\t\t-o[utfile] [-r[aster] [ras_opts ...]] [-f[loat]]"); (void) fprintf (stderr, "\n\n\t:"); (void) fprintf (stderr, "\n\t\tName of the input file(s), containing a single "); (void) fprintf (stderr, "\n\t\ttwo-dimensional or three-dimensional floating point array "); (void) fprintf (stderr, "\n\t\tin either ASCII text, native floating point, native integer "); (void) fprintf (stderr, "\n\t\tor HDF SDS format. If an HDF file is used for input, it "); (void) fprintf (stderr, "\n\t\tmust contain an SDS. The SDS need only contain a dimension "); (void) fprintf (stderr, "\n\t\trecord and the data, but if it also contains maximum and "); (void) fprintf (stderr, "\n\t\tminimum values and/or scales for each axis, these will "); (void) fprintf (stderr, "\n\t\tbe used. If the input format is ASCII text or native "); (void) fprintf (stderr, "\n\t\tfloating point or native integer, see \"Notes\" below on "); (void) fprintf (stderr, "\n\t\thow it must be organized."); (void) fprintf (stderr, "\n\n\t-t[ype] : "); (void) fprintf (stderr, "\n\t\tOptionally used for every input ASCII file to specify the "); (void) fprintf (stderr, "\n\t\tdata type of the data-set to be written. If not specified "); (void) fprintf (stderr, "\n\t\tdefault data type is 32-bit floating point. "); (void) fprintf (stderr, "\n\t\tcan be any of the following: FP32 (default), FP64, INT32"); (void) fprintf (stderr, "\n\t\tINT16, INT8. It can be used only with ASCII files."); (void) fprintf (stderr, "\n\n\t-n: "); (void) fprintf (stderr, "\n\t\tThis option is to be used only if the binary input file "); (void) fprintf (stderr, "\n\t\tcontains 64-bit floating point data and the default"); (void) fprintf (stderr, "\n\t\tbehaviour (default behaviour is to write it to a 32-bit"); (void) fprintf (stderr, "\n\t\tfloating point data-set) should be overridden to write "); (void) fprintf (stderr, "\n\t\tit to a 64-bit floating point data-set."); (void) fprintf (stderr, "\n\n\t-o[utfile] :"); (void) fprintf (stderr, "\n\t\tData from one or more input files are stored as one or"); (void) fprintf (stderr, "\n\t\tmore data sets and/or images in one HDF output file,"); (void) fprintf (stderr, "\n\t\t\"outfile\"."); (void) fprintf (stderr, "\n\n\t-r[aster]:"); (void) fprintf (stderr, "\n\t\tStore output as a raster image set in the output file."); (void) fprintf (stderr, "\n\n\t-f[loat]:"); (void) fprintf (stderr, "\n\tStore output as a scientific data set in the output file."); (void) fprintf (stderr, "\n\tThis is the default if the \"-r\" option is not specified."); (void) fprintf (stderr, "\n\n\tras_opts ..."); (void) fprintf (stderr, "\n\n\t-e[xpand] []:"); (void) fprintf (stderr, "\n\tExpand float data via pixel replication to produce the"); (void) fprintf (stderr, "\n\timage(s). \"horiz\" and \"vert\" give the horizontal and"); (void) fprintf (stderr, "\n\tvertical resolution of the image(s) to be produced; and"); (void) fprintf (stderr, "\n\toptionally, \"depth\" gives the number of images or depth"); (void) fprintf (stderr, "\n\tplanes (for 3D input data)."); (void) fprintf (stderr, "\n\n\t-i[nterp] []:"); (void) fprintf (stderr, "\n\t\tApply bilinear, or trilinear, interpolation to the float"); (void) fprintf (stderr, "\n\t\tdata to produce the image(s). \"horiz\", \"vert\", and \"depth\""); (void) fprintf (stderr, "\n\t\tmust be greater than or equal to the dimensions of the"); (void) fprintf (stderr, "\n\t\toriginal dataset."); (void) fprintf (stderr, "\n\t\tIf max and min are supplied in input file, this option clips"); (void) fprintf (stderr, "\n\t\tvalues that are greater than max or less then min, setting"); (void) fprintf (stderr, "\n\t\tthem to the max and min, respectively."); (void) fprintf (stderr, "\n\n\t-p[alfile] :"); (void) fprintf (stderr, "\n\t\tStore the palette with the image. Get the palette from"); (void) fprintf (stderr, "\n\t\t\"palfile\"; which may be an HDF file containing a palette,"); (void) fprintf (stderr, "\n\t\tor a file containing a raw palette."); (void) fprintf (stderr, "\n\n\t-m[ean] :"); (void) fprintf (stderr, "\n\t\tIf a floating point mean value is given, the image will be"); (void) fprintf (stderr, "\n\t\tscaled about the mean. The new extremes (newmax and newmin),"); (void) fprintf (stderr, "\n\t\tas given by:"); (void) fprintf (stderr, "\n\n\t\t\tnewmax = mean + max(abs(max-mean), abs(mean-min))"); (void) fprintf (stderr, "\n\t\t\tnewmin = mean - max(abs(max-mean), abs(mean-min))"); (void) fprintf (stderr, "\n\n\t\twill be equidistant from the mean value. If no mean value"); (void) fprintf (stderr, "\n\t\tis given, then the mean will be: 0.5 (max + min)"); (void) fprintf (stderr, "\n\n\tNotes:"); (void) fprintf (stderr, "\n\t\tIf the input file format is ASCII text or native floating point or native integer(32-bit,"); (void) fprintf (stderr, "\n\t\t16-bit, 8-bit), it"); (void) fprintf (stderr, "\n\t\tmust have the following input fields:"); (void) fprintf (stderr, "\n\t\tformat"); (void) fprintf (stderr, "\n\t\tnplanes"); (void) fprintf (stderr, "\n\t\tnrows"); (void) fprintf (stderr, "\n\t\tcols"); (void) fprintf (stderr, "\n\t\tmax_value"); (void) fprintf (stderr, "\n\t\tmin_value"); (void) fprintf (stderr, "\n\t\t[plane1 plane2 plane3 ...]"); (void) fprintf (stderr, "\n\t\trow1 row2 row3 ..."); (void) fprintf (stderr, "\n\t\tcol1 col2 col3 ..."); (void) fprintf (stderr, "\n\t\tdata1 data2 data3 ..."); (void) fprintf (stderr, "\n\n\t\tWhere:"); (void) fprintf (stderr, "\n\n\t\tformat:"); (void) fprintf (stderr, "\n\t\t\tFormat designator (\"TEXT\", \"FP32\", \"FP64\", \"IN32\", \"IN16\", \"IN08\")."); (void) fprintf (stderr, "\n\t\t\tnplanes, nrows, ncols:"); (void) fprintf (stderr, "\n\t\t\tDimensions are specified in the order slowest changing dimension first."); (void) fprintf (stderr, "\n\t\t\tncols is dimension of the fastest changing dimension. (horizontal axis"); (void) fprintf (stderr, "\n\t\t\tor X-axis in a 3D scale)"); (void) fprintf (stderr, "\n\t\t\tnrows corresponds to dimension of the vertical axis or Y-axis in a 3D "); (void) fprintf (stderr, "\n\t\t\tscale."); (void) fprintf (stderr, "\n\t\t\tnplanes corresponds to the slowest changing dimension i.e. dimension of "); (void) fprintf (stderr, "\n\t\t\tthe depth axis or the Z-axis in a 3D scale (\"1\" for 2D input)."); (void) fprintf (stderr, "\n\t\tmax_value:"); (void) fprintf (stderr, "\n\t\t\tMaximum data value."); (void) fprintf (stderr, "\n\t\tmin_value:"); (void) fprintf (stderr, "\n\t\t\tMinimum data value."); (void) fprintf (stderr, "\n\t\tplane1, plane2, plane3, ...:"); (void) fprintf (stderr, "\n\t\t\tScales for depth axis."); (void) fprintf (stderr, "\n\t\trow1, row2, row3, ...:"); (void) fprintf (stderr, "\n\t\t\tScales for the vertical axis."); (void) fprintf (stderr, "\n\t\tcol1, col2, col3, ...:"); (void) fprintf (stderr, "\n\t\t\tScales for the horizontal axis."); (void) fprintf (stderr, "\n\t\tdata1, data2, data3, ...:"); (void) fprintf (stderr, "\n\t\t\tThe data ordered by rows, left to right and top"); (void) fprintf (stderr, "\n\t\t\tto bottom; then optionally, ordered by planes,"); (void) fprintf (stderr, "\n\t\t\tfront to back."); (void) fprintf (stderr, "\n\n\t\tFor FP32 and FP64 input format, \"format\", \"nplanes\", \"nrows\", \"ncols\","); (void) fprintf (stderr, "\n\t\tand \"nplanes\" are native integers; where \"format\" is the integer"); (void) fprintf (stderr, "\n\t\trepresentation of the appropriate 4-character string (0x46503332 for"); (void) fprintf (stderr, "\n\t\t\"FP32\" and 0x46503634 for \"FP64\"). The remaining input fields are"); (void) fprintf (stderr, "\n\t\tcomposed of native 32-bit floating point values for FP32 input format,"); (void) fprintf (stderr, "\n\t\tor native 64-bit floating point values for FP64 input format."); (void) fprintf (stderr, "\n\n\tFor IN32, IN16 and IN08 input format, \"format\", \"nplanes\", \"nrows\", \"ncols\","); (void) fprintf (stderr, "\n\t\tand \"nplanes\" are native integers; where \"format\" is the integer"); (void) fprintf (stderr, "\n\t\trepresentation of the appropriate 4-character string. The remaining input "); (void) fprintf (stderr, "\n\t\tfields are composed of native 32-bit integer values for IN32 input format,"); (void) fprintf (stderr, "\n\t\tor native 16-bit integer values for IN16 input format or native 8-bit "); (void) fprintf (stderr, "\n\t\tinteger values for IN08 input format."); (void) printf("\nExamples:\n"); (void) printf("\tConvert floating point data in \"f1.txt\" to SDS "); (void) printf("format, and store it\n"); (void) printf("\tas an SDS in HDF file \"o1\":\n\n"); (void) printf("\t\t%s f1.txt -o o1\n\n", name); (void) printf("\tConvert floating point data in \"f2.hdf\" to "); (void) printf("8-bit raster format, and\n"); (void) printf("\tstore it as an RIS8 in HDF file \"o2\":\n\n"); (void) printf("\t\t%s f2.hdf -o o2 -r\n\n", name); (void) printf("\tConvert floating point data in \"f3.bin\" to "); (void) printf("8-bit raster format and\n"); (void) printf("\tSDS format, and store both the RIS8 and the SDS "); (void) printf("in HDF file \"o3\":\n\n"); (void) printf("\t\t%s f3.bin -o o3 -r -f\n\n", name); (void) printf("\tConvert floating point data in \"f4\" to a "); (void) printf("500x600 raster image, and\n"); (void) printf("\tstore the RIS8 in HDF file \"o4\". Also store a "); (void) printf("palette from \"palfile\"\n"); (void) printf("\twith the image:\n\n"); (void) printf("\t\t%s f4 -o o4 -r -e 500 600 -p palfile\n\n", name); (void) printf("\tConvert floating point data in \"f5\" to 200 "); (void) printf("planes of 500x600 raster\n"); (void) printf("\timages, and store the RIS8 in HDF file \"o5\". "); (void) printf("Also scale the image\n"); (void) printf("\tdata so that it is centered about a mean value "); (void) printf("of 10.0:\n\n"); (void) printf("\t\t%s f5 -o o5 -r -i 500 600 200 -m 10.0\n", name); return; } /* * Name: * indexes * * Purpose: * For each pixel location along an axis, determine the nearest * scale value neighbor. Return a list of indexes into the scale * array. */ static int indexes(float32 *scale, int dim, int *idx, int res) { int i, j; float32 *midpt; float32 loc; float32 delta; const char *err1 = "Unable to allocate dynamic memory.\n"; /* * determine the midpoints between scale values */ if ((midpt = (float32 *) HDmalloc((size_t) dim * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } for (i = 0; i < dim - 1; i++) midpt[i] = (scale[i] + scale[i + 1]) * (float32)0.5; midpt[dim - 1] = scale[dim - 1] + (scale[dim - 1] - midpt[dim - 2]); /* * determine the distance between pixel locations */ delta = (scale[dim - 1] - scale[0]) / (float32)(res - 1); /* * compute indexes, keeping the index the same until the location * extends beyond the midpoint */ for (i = 1, j = 0, idx[0] = 0, loc = scale[0]; i < res; i++) { loc += delta; idx[i] = idx[i - 1]; while (loc >= midpt[j]) { idx[i] += 1; j += 1; } } /* * free dynamically allocated memory */ HDfree((char *) midpt); return (0); err: return (1); } /* * Name: * interp * * Purpose: * Use a bilinear, or trilinear, interpolation scheme to construct * the raster image(s). * * Bug revision: the line that previously read: * * hratio[i] = ((hrange > 0) ? 1.0 : -1.0) * (in->hscale[j+1] - * loc) / (in->hscale[j+1] - in->hscale[j]); * has been changed to read: * hratio[i] = (in->hscale[j+1] - loc) / (in->hscale[j+1] - in->hscale[j]); * * Similar changes were made to the corresponding lines for * computing vratio and dratio. * * Bug revision: If values occur that are outside the ranges of the * max and min values provided, these values are now "clipped" to * be the same as the max and min, respectively. */ static int interp(struct Input *in, struct Raster *im) { int i, j, k, m; int *hinc, *voff, *doff = NULL; float32 pix; float32 loc; float32 range; float32 ratio; float32 hrange, vrange, drange = (float32)0.0; float32 hdelta, vdelta, ddelta = (float32)0.0; float32 t1, t2, t3, t4, t5, t6; float32 *hratio, *vratio, *dratio = NULL; float32 *pt[8]; unsigned char *ip = im->image; const char *err1 = "Unable to allocate dynamic memory.\n"; /* * determine the range of pixel locations */ range = in->max - in->min; ratio = (float32)237.9 / range; hrange = in->hscale[in->dims[0] - 1] - in->hscale[0]; vrange = in->vscale[in->dims[1] - 1] - in->vscale[0]; if (in->rank == 3) drange = in->dscale[in->dims[2] - 1] - in->dscale[0]; /* * determine the distance between pixel locations */ hdelta = hrange / (float32)(im->hres - 1); vdelta = vrange / (float32)(im->vres - 1); if (in->rank == 3) ddelta = drange / (float32)(im->dres - 1); /* * allocate dynamic memory for the interpolation ratio buffers */ if ((hratio = (float32 *) HDmalloc((size_t) im->hres * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((vratio = (float32 *) HDmalloc((unsigned int) im->vres * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((dratio = (float32 *) HDmalloc((unsigned int) im->dres * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } } /* * allocate dynamic memory for the pixel location offset/increment * buffers */ if ((hinc = (int *) HDmalloc((unsigned int) im->hres * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((voff = (int *) HDmalloc((unsigned int) (im->vres + 1) * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((doff = (int *) HDmalloc((unsigned int) (im->dres + 1) * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } } /* * compute the interpolation ratios and pixel location * offsets/increments for each axis */ for (i = 0, j = 0; i < im->hres; i++) { loc = hdelta * (float) i + in->hscale[0]; hinc[i] = 0; while ((j < (in->dims[0] - 2)) && ((hrange > (float32)0.0) ? (in->hscale[j + 1] < loc) : (in->hscale[j + 1] > loc))) { hinc[i] += 1; j += 1; } hratio[i] = (in->hscale[j + 1] - loc) / (in->hscale[j + 1] - in->hscale[j]); } for (i = 0, j = 0, voff[0] = 0; i < im->vres; i++) { loc = vdelta * (float) i + in->vscale[0]; while ((j < (in->dims[1] - 2)) && ((vrange > (float32)0.0) ? (in->vscale[j + 1] < loc) : (in->vscale[j + 1] > loc))) { voff[i] += 1; j += 1; } vratio[i] = (in->vscale[j + 1] - loc) / (in->vscale[j + 1] - in->vscale[j]); voff[i + 1] = voff[i]; } if (in->rank == 3) { for (i = 0, j = 0, doff[0] = 0; i < im->dres; i++) { loc = ddelta * (float) i + in->dscale[0]; while ((j < (in->dims[2] - 2)) && ((drange > (float32)0.0) ? (in->dscale[j + 1] < loc) : (in->dscale[j + 1] > loc))) { doff[i] += 1; j += 1; } dratio[i] = (in->dscale[j + 1] - loc) / (in->dscale[j + 1] - in->dscale[j]); doff[i + 1] = doff[i]; } } /* * do the interpolation for each point in the target image, taking * advantage of the fact that the target is evenly spaced along each * axis */ if (in->rank == 2) { for (i = 0; i < im->vres; i++) { pt[0] = (float32 *) in->data + (in->dims[0] * voff[i]); pt[1] = pt[0] + 1; pt[2] = pt[0] + in->dims[0]; pt[3] = pt[2] + 1; for (j = 0; j < im->hres; j++) { for (m = 0; m < 4; m++) pt[m] += hinc[j]; t1 = *pt[2] - ((*pt[2] - *pt[0]) * vratio[i]); t2 = *pt[3] - ((*pt[3] - *pt[1]) * vratio[i]); pix = t2 - ((t2 - t1) * hratio[j]); if (pix > in->max) pix = in->max; /* clip (bug fix) */ if (pix < in->min) pix = in->min; /* ditto */ *ip++ = (unsigned char)((ratio * (pix - in->min)) + (float32)1.5); } } } else { /* rank == 3 */ for (i = 0; i < im->dres; i++) { for (j = 0; j < im->vres; j++) { pt[0] = (float32 *) in->data + (in->dims[0] * voff[j]) + (in->dims[0] * in->dims[1] * doff[i]); pt[1] = pt[0] + 1; pt[2] = pt[0] + in->dims[0]; pt[3] = pt[2] + 1; pt[4] = pt[0] + (in->dims[0] * in->dims[1]); pt[5] = pt[4] + 1; pt[6] = pt[4] + in->dims[0]; pt[7] = pt[6] + 1; for (k = 0; k < im->hres; k++) { for (m = 0; m < 8; m++) pt[m] += hinc[k]; t1 = *pt[4] - ((*pt[4] - *pt[0]) * dratio[i]); t2 = *pt[6] - ((*pt[6] - *pt[2]) * dratio[i]); t3 = *pt[5] - ((*pt[5] - *pt[1]) * dratio[i]); t4 = *pt[7] - ((*pt[7] - *pt[3]) * dratio[i]); t5 = t2 - ((t2 - t1) * vratio[j]); t6 = t4 - ((t4 - t3) * vratio[j]); pix = t6 - ((t6 - t5) * hratio[k]); if (pix > in->max) pix = in->max; /* clip (bug fix) */ if (pix < in->min) pix = in->min; /* ditto */ *ip++ = (unsigned char)((ratio * (pix - in->min)) + (float32)1.5); } } } } /* * free dynamically allocated memory */ HDfree((char *) hratio); HDfree((char *) vratio); if (in->rank == 3) HDfree((char *) dratio); HDfree((char *) hinc); HDfree((char *) voff); if (in->rank == 3) HDfree((char *) doff); return (0); err: return (1); } /* * Name: * isnum * * Purpose: * Determine whether or not the string is representative of an * integer or floating point number. If it is, a non-zero value * is returned. A leading (-) to denote sign is acceptable. */ static int isnum(char *s) { char *cp; int rval = FALSE; /* * check to see if its a floating point number */ cp = s; (void) strtod(s, &cp); if ((*cp == '\0') && (cp != s)) rval = TRUE; /* * check to see if its an integer number (radix 8, 10, or 16) */ else { cp = s; (void) strtol(s, &cp, 0); if ((*cp == '\0') && (cp != s)) rval = TRUE; } return (rval); } /* * Name: * mean * * Purpose: * Reset the maximum and minimum data values to be symmetric about * the user-specified mean value. */ void mean(struct Input *in,struct Options * opt) { float32 delta, delta_max, delta_min; delta_max = (float32)fabs((double)(in->max - opt->meanval)); delta_min = (float32)fabs((double)(opt->meanval - in->min)); delta = (delta_max > delta_min) ? delta_max : delta_min; in->max = opt->meanval + delta; in->min = opt->meanval - delta; return; } /* * Name: * palette * * Purpose: * Process the (user specified) palette input file. */ static int palette(char *palfile) { unsigned char *color; unsigned char pal[1024], red[256], green[256], blue[256]; FILE *strm; int i; const char *err1 = "Unable to get palette from file: %s.\n"; const char *err2 = "Unable to open palette file: %s.\n"; const char *err3 = "Unable to set default palette.\n"; /* * extract a palette from an HDF file */ if (Hishdf(palfile)) { if (DFPgetpal(palfile, pal)) { (void) fprintf(stderr, err1, palfile); goto err; } /* * read in a raw palette file */ } else { if ((strm = fopen(palfile, "r")) == NULL) { (void) fprintf(stderr, err2, palfile); goto err; } if (fread((char *) red, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } else if (fread((char *) green, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } else if (fread((char *) blue, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } (void) fclose(strm); /* * interleave the R,G,B values */ color = pal; for (i = 0; i < 256; i++) { *color++ = red[i]; *color++ = green[i]; *color++ = blue[i]; } } /* * set up the palette as the default for subsequent images */ if (DFR8setpalette(pal)) { (void) fputs(err3, stderr); goto err; } return (0); err: return (1); } /* * Name: * pixrep * * Purpose: * Expand the image(s) to the desired resolution using pixel * replication. */ static int pixrep(struct Input *in, struct Raster *im) { int *hidx, *vidx, *didx; int ovidx, odidx; int dummy; int32 i, j, k; float32 *dp; float32 range; float32 ratio; unsigned char *ip, *plane, *row, *pix; const char *err1 = "Unable to dynamically allocate memory.\n"; dp = (float32 *) in->data; ip = im->image; range = in->max - in->min; ratio = (float32)237.9 / range; /* * determine the scale indexes of the horizontal pixel locations */ if ((hidx = (int *) HDmalloc((unsigned int) (im->hres + 1) * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } if (indexes(in->hscale, in->dims[0], hidx, im->hres)) goto err; /* * determine the scale indexes of the vertical pixel locations */ if ((vidx = (int *) HDmalloc((unsigned int) (im->vres + 1) * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } if (indexes(in->vscale, in->dims[1], vidx, im->vres)) goto err; /* * determine the scale indexes of the depth plane locations */ dummy = 0; didx = &dummy; if (in->rank == 3) { if ((didx = (int *) HDmalloc((unsigned int) (im->dres + 1) * sizeof(int))) == NULL) { (void) fputs(err1, stderr); goto err; } if (indexes(in->dscale, in->dims[2], didx, im->dres)) goto err; } /* * compute the expanded image */ if ((pix = (unsigned char *) HDmalloc((unsigned int) (in->dims[0] + 1))) == NULL) { (void) fputs(err1, stderr); goto err; } for (k = 0, odidx = didx[0] - 1; k < im->dres; k++) { /* * construct a new depth plane */ if (didx[k] > odidx) { for (j = 0, ovidx = vidx[0] - 1; j < im->vres; j++) { /* * construct a new row */ if (vidx[j] > ovidx) { for (i = 0; i < in->dims[0]; i++) pix[i] = (unsigned char )((ratio * (*dp++ - in->min)) + (float32)1.5); for (i = 0; i < im->hres; i++) *ip++ = pix[hidx[i]]; /* * repeat the previous row */ } else { row = ip - im->hres; for (i = 0; i < im->hres; i++) *ip++ = *row++; } ovidx = vidx[j]; } /* * repeat the previous depth plane */ } else { plane = ip - (im->hres * im->vres); for (j = 0; j < im->vres; j++) for (i = 0; i < im->hres; i++) *ip++ = plane[(j * im->hres) + i]; } odidx = didx[k]; } /* * free dynamically allocated space */ HDfree((char *) hidx); HDfree((char *) vidx); if (in->rank == 3) HDfree((char *) didx); HDfree((char *) pix); return (0); err: return (1); } /* * Name: * create_SDS * * Purpose: * This function contains common code that creates a two- or * three-dimensional dataset, used in function 'process.' It * was factored out to reduce the length of 'process.' * Returns the new SDS identifier, if success, and FAIL, * otherwise. (bmribler - 2006/8/18) */ static int32 create_SDS(int32 sd_id, int32 nt, struct Input *in) { int32 sds_id; if (in->rank == 2) { int32 edges[2]; edges[0] = in->dims[1]; edges[1] = in->dims[0]; sds_id = SDcreate (sd_id, NULL, nt, in->rank, edges); } else { int32 edges[3]; edges[0] = in->dims[2]; edges[1] = in->dims[1]; edges[2] = in->dims[0]; sds_id = SDcreate (sd_id, NULL, nt, in->rank, edges); } return(sds_id); } /* * Name: * alloc_data * * Purpose: * This function contains common code that allocates memory for * the data buffer to hold different types of data. It * was factored out to reduce the length of 'process.' * Returns SUCCEED or FAIL. (bmribler - 2006/8/18) */ static intn alloc_data(VOIDP *data, int32 len, int outtype) { const char *alloc_err = "Unable to dynamically allocate memory.\n"; switch(outtype) { case 0: /* 32-bit float */ case 5: /* NO_NE */ if ((*data = (VOIDP) HDmalloc((size_t) len * sizeof(float32))) == NULL) { (void) fputs(alloc_err, stderr); return FAIL; } break; case 1: /* 64-bit float */ if ((*data = (VOIDP) HDmalloc((size_t) len * sizeof(float64))) == NULL) { (void) fputs(alloc_err, stderr); return FAIL; } break; case 2: /* 32-bit integer */ if ((*data = (VOIDP) HDmalloc((size_t) len * sizeof(int32))) == NULL) { (void) fputs(alloc_err, stderr); return FAIL; } break; case 3: /* 16-bit integer */ if ((*data = (VOIDP) HDmalloc((size_t) len * sizeof(int16))) == NULL) { (void) fputs(alloc_err, stderr); return FAIL; return FAIL; } break; case 4: /* 8-bit integer */ if ((*data = (VOIDP) HDmalloc((size_t) len * sizeof(int8))) == NULL) { (void) fputs(alloc_err, stderr); return FAIL; } break; } /* end switch */ return SUCCEED; } /* alloc_data */ /* * Name: * write_SDS * * Purpose: * This function contains common code, that writes a two- or * three-dimensional dataset, used in function 'process.' It * was factored out to reduce the length of 'process.' * Returns SUCCEED or FAIL. (bmribler - 2006/8/18) */ static intn write_SDS(int32 sds_id, struct Input *in) { const char *write_err = "Unable to write an SDS to the HDF output file\n"; if (in->rank == 2) { int32 edges[2], start[2]; edges[0] = in->dims[1]; edges[1] = in->dims[0]; start[0] = 0; start[1] = 0; if (SDwritedata(sds_id, start, NULL, edges, (VOIDP)in->data) != 0) { (void) fputs(write_err, stderr); return FAIL; } } else { int32 edges[3], start[3]; edges[0] = in->dims[2]; edges[1] = in->dims[1]; edges[2] = in->dims[0]; start[0] = 0; start[1] = 0; start[2] = 0; if (SDwritedata(sds_id, start, NULL, edges, (VOIDP)in->data) != 0) { (void) fputs(write_err, stderr); return FAIL; } } return SUCCEED; } /* write_SDS */ /* * Name: * set_dimensions * * Purpose: * This function contains the common code, that sets dimension scale * for a two- or three-dimensional dataset, used in function 'process.' * It was factored out to reduce the length of 'process.' * Returns SUCCEED or FAIL. (bmribler - 2006/8/18) */ static intn set_dimensions(int32 sds_id, struct Input *in, int32 nt, VOIDP dscale, VOIDP vscale, VOIDP hscale) { int32 dim_id, dim_index; const char *dim_err = "Unable to set dimension scales\n"; if (in->rank == 2) { int32 edges[2]; intn status; edges[0] = in->dims[1]; edges[1] = in->dims[0]; dim_index = 0; dim_id = SDgetdimid (sds_id, dim_index); if (SDsetdimscale(dim_id, edges[0], nt, (VOIDP)vscale) == FAIL) { (void) fprintf(stderr, "%s, dim index %d\n", dim_err, dim_index); return FAIL; } dim_index = 1; dim_id = SDgetdimid (sds_id, dim_index); if (SDsetdimscale(dim_id, edges[1], nt, hscale)!=0) { (void) fprintf(stderr, "%s, dim index %d\n", dim_err, dim_index); return FAIL; } } else { int32 edges[3]; edges[0] = in->dims[2]; edges[1] = in->dims[1]; edges[2] = in->dims[0]; dim_index = 0; dim_id = SDgetdimid (sds_id, dim_index); if (SDsetdimscale(dim_id, edges[0], nt, dscale)!=0) { (void) fprintf(stderr, "%s, dim index %d\n", dim_err, dim_index); return FAIL; } dim_index = 1; dim_id = SDgetdimid (sds_id, dim_index); if (SDsetdimscale(dim_id, edges[1], nt, vscale)!=0) { (void) fprintf(stderr, "%s, dim index %d\n", dim_err, dim_index); return FAIL; } dim_index = 2; dim_id = SDgetdimid (sds_id, dim_index); if (SDsetdimscale(dim_id, edges[2], nt, hscale)!=0) { (void) fprintf(stderr, "%s, dim index %d\n", dim_err, dim_index); return FAIL; } } return SUCCEED; } /* set_dimensions */ /* * Name: * process * * Purpose: * Process each input file. * * Revision: (pkamat) * Modified to support the writing of the data set in any of the * following types: INT32, INT16, INT8 and FP64 * Modification: pvn: March, 3, 2006 * handled the case of in->outtype == 5 (NO_NE), for hdf input type * current version assumes that datum is DFNT_FLOAT32 for this case * Revision: (bmribler - 2006/8/18) * - Modified to store the input SD identifier in 'struct infilesformat' * so the id can be passed into various functions, instead of * repeatedly calling SDstart in these functions. * - Factored out common codes to make this ~900-line function become * more readable and maintainable. */ static int process(struct Options *opt) { struct Input in; struct Raster im; unsigned char *ip; int i, j; int is_maxmin; int is_scale; int32 len; FILE *strm; int32 hdf; int32 sd_id, sds_id; int32 start3[3], edges3[3], start2[2], edges2[2]; int32 dim_index = 0, dim_id; #ifdef DEBUG int h, v, d; #endif /* DEBUG */ const char *err1 = "Error creating HDF output file: %s.\n"; const char *err1a = "Error opening the created HDF output file for writing.\n"; const char *err2 = "Unable to dynamically allocate memory.\n"; const char *err3a = "Warning: cannot make image smaller using -e "; const char *err3b = "option.\n\t %s resolution will be made the "; const char *err3c = "same as %s dimension of the\n\t dataset, "; const char *err3d = "which is: %d.\n\n"; const char *err4 = "Unable to write an RIS8 to the HDF output file\n"; const char *err5 = "err5 - Unable to write an SDS to the HDF output file\n"; const char *err5a = "err5aaaa - Unable to write an SDS to the HDF output file\n"; const char *err6a = "Unable to close the SDS\n"; const char *err6 = "Unable to close the HDF output file\n"; /* * process the palette file (if one was specified) */ if (opt->pal == TRUE) if (palette(opt->palfile)) goto err; /* * create the HDF output file */ if ((hdf = Hopen(opt->outfile, DFACC_CREATE, 0)) == FAIL) { (void) fprintf(stderr, err1, opt->outfile); goto err; } (void) Hclose(hdf); /* new interface */ if ((sd_id = SDstart(opt->outfile, DFACC_WRITE)) == FAIL) { (void) fprintf(stderr, err1a, opt->outfile); goto err; } /* * main loop: process input files, one per pass */ for (i = 0; i < opt->fcount; i++) { /* * initialize key parameters */ in.is_hdf = FALSE; in.is_text = FALSE; in.is_fp32 = FALSE; in.is_fp64 = FALSE; is_maxmin = FALSE; is_scale = FALSE; in.outtype = opt->infiles[i].outtype; if (Hishdf(opt->infiles[i].filename)) { in.is_hdf = TRUE; opt->infiles[i].handle = SDstart(opt->infiles[i].filename, DFACC_RDONLY); if (opt->infiles[i].handle == FAIL) { (void) fprintf(stderr, err1a, opt->infiles[i].filename); goto err; } } /* * get the file type, input data dimensions, and input data * max/min values */ if (gtype(opt->infiles[i].filename, &in, &strm)) goto err; if (gdimen(opt->infiles[i], &in, strm)) goto err; if (gmaxmin(opt->infiles[i], &in, strm, &is_maxmin)) goto err; /* * initialise the scale variables according to the output type * of data set */ if (init_scales(&in)) goto err; /* * get the scale for each axis */ if (gscale(opt->infiles[i], &in, strm, &is_scale)) goto err; /* * get the input data */ len = in.dims[0] * in.dims[1] * in.dims[2]; /* allocate memory for in.data depending on in.outtype value */ if (alloc_data(&(in.data), len, in.outtype) == FAIL) goto err; if (gdata(opt->infiles[i], &in, strm, &is_maxmin)) goto err; /* * put the input data in the HDF output file, in SDS format */ if (opt->to_float == TRUE) { intn status; switch(in.outtype) { case 0: /* 32-bit float */ case 5: /* NO_NE */ /* create data-set */ sds_id = create_SDS(sd_id, DFNT_FLOAT32, &in); if (sds_id == FAIL) goto err; if (is_scale == TRUE) { /* set range */ if (SDsetrange(sds_id, &in.max, &in.min)!=0) { (void) fputs(err5a, stderr); goto err; } /* set dimension scale */ status = set_dimensions(sds_id, &in, DFNT_FLOAT32, (VOIDP)in.dscale, (VOIDP)in.vscale, (VOIDP)in.hscale); if (status == FAIL) goto err; } /* write data to the data set */ if (write_SDS(sds_id, &in) == FAIL) goto err; break; case 1:/* 64-bit float */ /* create data-set */ sds_id = create_SDS(sd_id, DFNT_FLOAT64, &in); if (sds_id == FAIL) goto err; if (is_scale == TRUE) { /* set range */ if (SDsetrange(sds_id, &in.fp64s.max, &in.fp64s.min)!=0) { (void) fputs(err5a, stderr); goto err; } /* set dimension scale */ status = set_dimensions(sds_id, &in, DFNT_FLOAT64, (VOIDP)in.fp64s.dscale, (VOIDP)in.fp64s.vscale, (VOIDP)in.fp64s.hscale); if (status == FAIL) goto err; } /* write data to the data set */ if (write_SDS(sds_id, &in) == FAIL) goto err; break; case 2: /* 32-bit integer */ /* create data-set */ sds_id = create_SDS(sd_id, DFNT_INT32, &in); if (sds_id == FAIL) goto err; if (is_scale == TRUE) { /* set range */ if (SDsetrange(sds_id, &in.in32s.max, &in.in32s.min)!=0) { (void) fputs(err5a, stderr); goto err; } /* set dimension scale */ status = set_dimensions(sds_id, &in, DFNT_INT32, (VOIDP)in.in32s.dscale, (VOIDP)in.in32s.vscale, (VOIDP)in.in32s.hscale); if (status == FAIL) goto err; } /* write data to the data set */ if (write_SDS(sds_id, &in) == FAIL) goto err; break; case 3: /* 16-bit integer */ /* create data-set */ sds_id = create_SDS(sd_id, DFNT_INT16, &in); if (sds_id == FAIL) goto err; if (is_scale == TRUE) { /* set range */ if (SDsetrange(sds_id, &in.in16s.max, &in.in16s.min)!=0) { (void) fputs(err5a, stderr); goto err; } /* set dimension scale */ status = set_dimensions(sds_id, &in, DFNT_INT16, (VOIDP)in.in16s.dscale, (VOIDP)in.in16s.vscale, (VOIDP)in.in16s.hscale); if (status == FAIL) goto err; } /* write data to the data set */ if (write_SDS(sds_id, &in) == FAIL) goto err; break; case 4: /* 8-bit integer */ /* create data-set */ sds_id = create_SDS(sd_id, DFNT_INT8, &in); if (sds_id == FAIL) goto err; if (is_scale == TRUE) { /* set range */ if (SDsetrange(sds_id, &in.in8s.max, &in.in8s.min)!=0) { (void) fputs(err5a, stderr); goto err; } /* set dimension scale */ status = set_dimensions(sds_id, &in, DFNT_INT8, (VOIDP)in.in8s.dscale, (VOIDP)in.in8s.vscale, (VOIDP)in.in8s.hscale); if (status == FAIL) goto err; } /* write data to the data set */ if (write_SDS(sds_id, &in) == FAIL) goto err; break; } /* close data set */ if (SDendaccess(sds_id) == FAIL ) { (void) fputs(err6a, stderr); goto err; } /* close the input file */ if (in.is_hdf == TRUE) { if (SDend(opt->infiles[i].handle) == FAIL) { (void) fprintf(stderr, "SDend handle"); goto err; } } } /* if opt->to_float == TRUE */ /* * put the input data in the HDF output file, in RIS8 format */ if (opt->to_image == TRUE) { /* * allocate a buffer for the output image */ im.hres = (opt->hres == 0) ? in.dims[0] : opt->hres; if ((im.hres < in.dims[0]) && (opt->ctm == EXPAND)) { (void) fputs(err3a, stderr); (void) fprintf(stderr, err3b, "Horiz."); (void) fprintf(stderr, err3c, "horiz."); (void) fprintf(stderr, err3d, in.dims[0]); im.hres = in.dims[0]; opt->hres = in.dims[0]; } im.vres = (opt->vres == 0) ? in.dims[1] : opt->vres; if ((im.vres < in.dims[1]) && (opt->ctm == EXPAND)) { (void) fputs(err3a, stderr); (void) fprintf(stderr, err3b, "Vert."); (void) fprintf(stderr, err3c, "vert."); (void) fprintf(stderr, err3d, in.dims[1]); im.vres = in.dims[1]; opt->vres = in.dims[1]; } im.dres = 1; if (in.rank == 3) { im.dres = (opt->dres == 0) ? in.dims[2] : opt->dres; if ((im.dres < in.dims[2]) && (opt->ctm == EXPAND)) { (void) fputs(err3a, stderr); (void) fprintf(stderr, err3b, "Depth"); (void) fprintf(stderr, err3c, "depth"); (void) fprintf(stderr, err3d, in.dims[2]); im.dres = in.dims[2]; opt->dres = in.dims[2]; } } len = im.hres * im.vres * im.dres; if ((im.image = (unsigned char *) HDmalloc((unsigned int) len)) == NULL) { (void) fputs(err2, stderr); goto err; } /* * reset max/min symmetrically about the mean value */ if (opt->mean == TRUE) mean(&in, opt); /* * perform pixel replication or interpolation */ if (opt->ctm == EXPAND) { if (pixrep(&in, &im)) goto err; } else { /* INTERP */ if (interp(&in, &im)) goto err; } len = im.hres * im.vres; for (j = 0, ip = im.image; j < im.dres; j++, ip += len) { if (DFR8addimage(opt->outfile, ip, im.hres, im.vres, DFTAG_RLE)) { (void) fputs(err4, stderr); goto err; } } #ifdef DEBUG (void) printf("Output Raster Information ...\n\n"); (void) printf("\tresolution (horiz,vert,[depth]):\n\n"); if (in.rank == 2) (void) printf("\t%d %d\n\n", im.hres, im.vres); else (void) printf("\t%d %d %d\n\n", im.hres, im.vres, im.dres); if (opt->mean == TRUE) { (void) printf("\tadjusted max/min values:\n\n"); (void) printf("\t%f %f\n\n", in.max, in.min); } (void) printf("\tcolor index values:"); for (d = 0, ip = im.image; d < im.dres; d++) { (void) printf("\n"); for (v = 0; v < im.vres; v++) { (void) printf("\n"); for (h = 0; h < im.hres; h++, ip++) (void) printf("\t%d", *ip); } } (void) printf("\n"); #endif /* DEBUG */ } /* * free dynamically allocated space */ fpdeallocate(&in,&im,opt); } /* end of for loop */ /* close the output file */ if (SDend (sd_id) != 0) { (void) fputs(err6, stderr); goto err; } return (0); err: return (1); } /* * Name: (pkamat - New function) * fpdeallocate * * Purpose: * Deallocate memory of all data structures */ void fpdeallocate(struct Input *in, struct Raster *im, struct Options *opt) { switch(in->outtype) { case 0 : HDfree((char *) in->hscale); HDfree((char *) in->vscale); if (in->rank == 3) HDfree((char *) in->dscale); if (opt->to_image == TRUE) HDfree((char *) im->image); break; case 1 : HDfree((char *) in->fp64s.hscale); HDfree((char *) in->fp64s.vscale); if (in->rank == 3) HDfree((char *) in->fp64s.dscale); if (opt->to_image == TRUE) HDfree((char *) im->image); break; case 2 : HDfree((char *) in->in32s.hscale); HDfree((char *) in->in32s.vscale); if (in->rank == 3) HDfree((char *) in->in32s.dscale); break; case 3 : HDfree((char *) in->in16s.hscale); HDfree((char *) in->in16s.vscale); if (in->rank == 3) HDfree((char *) in->in16s.dscale); break; case 4 : HDfree((char *) in->in8s.hscale); HDfree((char *) in->in8s.vscale); if (in->rank == 3) HDfree((char *) in->in8s.dscale); break; } HDfree((char *) in->data); } /* * Name: (pkamat - New function) * init_scales * * Purpose: * Initialise the data-structures to hold scale information * Modification: pvn: March, 3, 2006 * handled the case of in->outtype == 5 (NO_NE), for hdf input type * current version assumes that datum is DFNT_FLOAT32 for this case */ static int init_scales(struct Input * in) { const char *err1 = "Unable to dynamically allocate memory.\n"; switch(in->outtype) { case 0: /* 32-bit float */ case 5: /* NO_NE */ if ((in->hscale = (float32 *) HDmalloc((size_t) (in->dims[0] + 1) * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((in->vscale = (float32 *) HDmalloc((size_t) (in->dims[1] + 1) * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((in->dscale = (float32 *) HDmalloc((size_t) (in->dims[2] + 1) * sizeof(float32))) == NULL) { (void) fputs(err1, stderr); goto err; } } break; case 1: /* 64-bit float */ if ((in->fp64s.hscale = (float64 *) HDmalloc((size_t) (in->dims[0] + 1) * sizeof(float64))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((in->fp64s.vscale = (float64 *) HDmalloc((size_t) (in->dims[1] + 1) * sizeof(float64))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((in->fp64s.dscale = (float64 *) HDmalloc((size_t) (in->dims[2] + 1) * sizeof(float64))) == NULL) { (void) fputs(err1, stderr); goto err; } } break; case 2: /* 32-bit integer */ if ((in->in32s.hscale = (int32 *) HDmalloc((size_t) (in->dims[0] + 1) * sizeof(int32))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((in->in32s.vscale = (int32 *) HDmalloc((size_t) (in->dims[1] + 1) * sizeof(int32))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((in->in32s.dscale = (int32 *) HDmalloc((size_t) (in->dims[2] + 1) * sizeof(int32))) == NULL) { (void) fputs(err1, stderr); goto err; } } break; case 3: /* 16-bit integer */ if ((in->in16s.hscale = (int16 *) HDmalloc((size_t) (in->dims[0] + 1) * sizeof(int16))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((in->in16s.vscale = (int16 *) HDmalloc((size_t) (in->dims[1] + 1) * sizeof(int16))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((in->in16s.dscale = (int16 *) HDmalloc((size_t) (in->dims[2] + 1) * sizeof(int16))) == NULL) { (void) fputs(err1, stderr); goto err; } } break; case 4: /* 8-bit integer */ if ((in->in8s.hscale = (int8 *) HDmalloc((size_t) (in->dims[0] + 1) * sizeof(int8))) == NULL) { (void) fputs(err1, stderr); goto err; } if ((in->in8s.vscale = (int8 *) HDmalloc((size_t) (in->dims[1] + 1) * sizeof(int8))) == NULL) { (void) fputs(err1, stderr); goto err; } if (in->rank == 3) { if ((in->in8s.dscale = (int8 *) HDmalloc((size_t) (in->dims[2] + 1) * sizeof(int8))) == NULL) { (void) fputs(err1, stderr); goto err; } } break; } return (0); err: return (1); } /* * Name: * usage * * Purpose: * Print a summary of command usage. */ void usage(char *name) { (void) fprintf(stderr, "\nUsage:\t%s -h[elp], OR\n", name); (void) fprintf(stderr, "\t%s -V, OR\n", name); (void) fprintf(stderr, "\t%s [ [-t[ype] | -n] ", name); (void) fprintf(stderr, "[ [-t[ype] | -n ]]...]\n"); (void) fprintf(stderr, "\t\t\t\t\t-o[utfile] [options..]\n"); (void) fprintf(stderr, "\n\t-t[ype] "); (void) fprintf(stderr, "\n\t\tOptionally used for every input ASCII file to specify the"); (void) fprintf(stderr, "\n\t\tdata type of the data-set to be written. If not specified"); (void) fprintf(stderr, "\n\t\tdefault data type is 32-bit floating point. "); (void) fprintf(stderr, "\n\t\tcan be any of the following: FP32 (default), FP64, INT32"); (void) fprintf(stderr, "\n\t\tINT16, INT8. It can be used only with ASCII files."); (void) fprintf(stderr, "\n\t-n"); (void) fprintf(stderr, "\n\t\tThis option is to be used only if the binary input file "); (void) fprintf(stderr, "\n\t\tcontains 64-bit floating point data and the default"); (void) fprintf(stderr, "\n\t\tbehaviour (default behaviour is to write it to a 32-bit"); (void) fprintf(stderr, "\n\t\tfloating point data-set) should be overridden to write "); (void) fprintf(stderr, "\n\t\tit to a 64-bit floating point data-set."); (void) fprintf(stderr, "\n\n\toptions...\n"); (void) fprintf(stderr, "\n\t-r[aster]:\n"); (void) fprintf(stderr, "\t\tproduce an image. Could be "); (void) fprintf(stderr, "followed by:\n"); (void) fprintf(stderr, "\t\t-e[xpand] "); (void) fprintf(stderr, "[]:\n"); (void) fprintf(stderr, "\t\t\t resolution with pixel "); (void) fprintf(stderr, "replication\n"); (void) fprintf(stderr, "\t\t-i[nterp] "); (void) fprintf(stderr, "[]:\n"); (void) fprintf(stderr, "\t\t\tresolution with interpolation\n"); (void) fprintf(stderr, "\t\t-p[alfile] :\n"); (void) fprintf(stderr, "\t\t\tinclude palette from palfile\n"); (void) fprintf(stderr, "\t\t-m[ean] :\n"); (void) fprintf(stderr, "\t\t\tmean value to scale image "); (void) fprintf(stderr, "around\n"); (void) fprintf(stderr, "\t-f[loat]:\n"); (void) fprintf(stderr, "\t\tproduce floating point data\n\n"); return; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testutil.sh.in0000755000000000000000000001544212421456623017015 0ustar #!/bin/sh # HDF Utilities Test script # Usage: testutil.sh [machine-type] srcdir=@srcdir@ machinetype="$1" # Check if target machine supports 32 bits datatype. # "true" is TRUE; "" means FALSE. case $machinetype in *unicos*) has32="";; *) has32="true";; esac # initialize errors variable errors=0 haserr=0 # setup hdfed command which is used often HDFED='../../hdf/util/hdfed' HDFLS="${TESTS_ENVIRONMENT} ../../hdf/util/hdfls" HDFEDCMD="${TESTS_ENVIRONMENT} $HDFED -batch" # use -batch mode for no prompt SED="sed -e /library/,/String/d" # filter out the library version TESTCMD="${TESTS_ENVIRONMENT} ./hdfimport" # The test command echo "" echo "==============================" echo "HDFIMPORT tests started" echo "==============================" if [ -f hdfimport -a -f hdfimporttest ]; then echo "** Testing hdfimport ***" # use [!S] to prevent SDSfloat2.hdf and SDSfloat3.hdf from being deleted; # please replace with better solution, one is if available. - BMR (2006/9/23) /bin/rm -f ctxt* cb* [!S]*.hdf *.out hdfls.tmp5 hdfed.tmp6 hdffiles.tmp ${TESTS_ENVIRONMENT} ./hdfimporttest echo "Testing for 32-bit floating point ASCII (2D data)" $TESTCMD ctxtr2 -o ctxtr2.hdf echo "Testing for 32-bit floating point ASCII (3D data)" $TESTCMD ctxtr3 -o ctxtr3.hdf echo "Testing for 32-bit integer binary (2D data)" $TESTCMD cb32i2 -o cb32i2.hdf echo "Testing for 32-bit integer binary (3D data)" $TESTCMD cb32i3 -o cb32i3.hdf echo "Testing for 16-bit integer binary (2D data)" $TESTCMD cb16i2 -o cb16i2.hdf echo "Testing for 16-bit integer (3D data)" $TESTCMD cb16i3 -o cb16i3.hdf echo "Testing for 32-bit floating point binary (2D data)" $TESTCMD cb32r2 -o cb32r2.hdf echo "Testing for 32-bit floating point binary (3D data)" $TESTCMD cb32r3 -o cb32r3.hdf echo "Testing for 64-bit floating point binary (2D data) - Default Behaviour (Conversion to 32 bit FP SDS)" $TESTCMD cb64r2 -o cb64r2.hdf echo "Testing for 64-bit floating point binary (3D data) - Default Behaviour (Conversion to 32-bit FP SDS)" $TESTCMD cb64r3 -o cb64r3.hdf echo "Testing for 64-bit floating point binary (2D data) - Conversion to 64-bit FP SDS" $TESTCMD cb64r2 -n -o cb64r2-n.hdf echo "Testing for 64-bit floating point binary (3D data) - Conversion to 64-bit FP SDS" $TESTCMD cb64r3 -n -o cb64r3-n.hdf echo "Testing for raster options" $TESTCMD ctxtr2 -o ctxtr2_ris.hdf -raster -e 50 50 $TESTCMD cb64r2 -o cb64r2_ris.hdf -raster -i 50 50 -f # test with hdf files echo "Testing for reading from hdf files" $TESTCMD $srcdir/SDSfloat2.hdf -o SDSfloat2.out $TESTCMD $srcdir/SDSfloat3.hdf -o SDSfloat3.out ($HDFLS -l ctxtr2.hdf | $SED) > hdfls.tmp5 2>&1 ($HDFLS -l ctxtr3.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb32i2.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb32i3.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb16i2.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb16i3.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb32r2.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb32r3.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb64r2.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb64r3.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb64r2-n.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb64r3-n.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l ctxtr2_ris.hdf | $SED) >> hdfls.tmp5 2>&1 ($HDFLS -l cb64r2_ris.hdf | $SED) >> hdfls.tmp5 2>&1 # run hdfls on SDSfloat*.out, and remove the library version from the # output for later checking agains original output - BMR (2006/9/7) ($HDFLS SDSfloat2.out | $SED) >> hdffiles.tmp 2>&1 ($HDFLS SDSfloat3.out | $SED) >> hdffiles.tmp 2>&1 diff hdfls.tmp5 $srcdir/hdfimport.out1 || errors=1 $HDFEDCMD < $srcdir/hdfimport.input1 > hdfed.tmp6 2>&1 diff hdfed.tmp6 $srcdir/hdfimport.out2 || errors=1 # hdfimport.out3 contains output that hdfls previously generated # from SDSfloat*.out with the library version removed - BMR (2006/9/7) diff hdffiles.tmp $srcdir/hdfimport.out3 || errors=1 # use [!S] to prevent SDSfloat2.hdf and SDSfloat3.hdf from being deleted; # please replace with a better solution, if one is available. - BMR (2006/9/23) /bin/rm -f ctxt* cb* [!S]*.hdf *.out hdfls.tmp5 hdfed.tmp6 hdffiles.tmp #/bin/rm -f ctxt* cb* *.hdf else haserr=1 echo "** hdfimport or hdfimporttest not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " hdfimport might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo " /bin/rm -f ctxtr* cb* *.hdf hdfls.tmp5 hdfed.tmp6" echo " ${TESTS_ENVIRONMENT} ./hdfimporttest " echo " $TESTCMD ctxtr2 -o ctxtr2.hdf " echo " $TESTCMD ctxtr3 -o ctxtr3.hdf " echo " $TESTCMD cb32i2 -o cb32i2.hdf " echo " $TESTCMD cb32i3 -o cb32i3.hdf " echo " $TESTCMD cb16i2 -o cb16i2.hdf " echo " $TESTCMD cb16i3 -o cb16i3.hdf " echo " $TESTCMD cb32r2 -o cb32r2.hdf " echo " $TESTCMD cb32r3 -o cb32r3.hdf " echo " $TESTCMD cb64r2 -o cb64r2.hdf " echo " $TESTCMD cb64r3 -o cb64r3.hdf " echo " $TESTCMD cb64r2 -n -o cb64r2-n.hdf " echo " $TESTCMD cb64r3 -n -o cb64r3-n.hdf " echo " $TESTCMD ctxtr2 -o ctxtr2_ris.hdf -raster -e 50 50 " echo " $TESTCMD cb64r2 -o cb64r2_ris.hdf -raster -i 50 50 -f " echo " $TESTCMD SDSfloat2.hdf -o SDSfloat2.out " echo " $TESTCMD SDSfloat3.hdf -o SDSfloat3.out " echo "($HDFLS -l ctxtr2.hdf | $SED) >& hdfls.tmp5 " echo "($HDFLS -l ctxtr3.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb32i2.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l cb32i3.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l cb16i2.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l cb16i3.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l cb32r2.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb32r3.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb64r2.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb64r3.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb64r2-n.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l cb64r3-n.hdf | $SED) >> hdfls.tmp5 2>&1 " echo "($HDFLS -l ctxtr2_ris.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS -l cb64r2_ris.hdf | $SED) >>& hdfls.tmp5 " echo "($HDFLS SDSfloat2.out | $SED) >> hdffiles.tmp 2>&1 " echo "($HDFLS SDSfloat3.out | $SED) >> hdffiles.tmp 2>&1 " echo " diff hdfls.tmp5 hdfimport.out1 " echo " $HDFEDCMD < hdfimport.input1 >& hdfed.tmp6 " echo " diff hdfed.tmp6 hdfimport.out2 " echo " diff hdffiles.tmp hdfimport.out3 || errors=1 " echo " ******* END NOTE *************" echo "" errors=0 fi # # Check errors result if [ $haserr -eq 0 ]; then echo "=================================" echo "HDFIMPORT Utilities tests passed." echo "=================================" else echo "*********************************************" echo "HDFIMPORT Utilities tests encountered errors" echo "*********************************************" fi echo "" exit $haserr libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/SDSfloat2.hdf0000644000000000000000000000605412421456623016417 0ustar È j\¾ ÆØ« žª ¢<­ Þ!« ÿª <­ ?!«ÿÿÿÿÿÿÿÿª `7j —½ ›Ð ±­ Á<­ ý.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006BÈBÈCHCHC–CÈBÈBÈCHCHC–CÈBÈBÈCHCHC–CÈC–C–CÈC–CÈC–C–CÈC–CÈC–C–CÈC–CÈDDC–CÈCúCúDDC–CÈDDC–CÈ ValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0 SDS variableSDSVar  j j j ¾j ½ Ñ ­­ª¾j½Ð  SDStemplateVar0.0­­­ SDSfloat2.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/CMakeLists.txt0000644000000000000000000000374312421456623016735 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_HDFIMPORT) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) IF (WIN32 AND NOT CYGWIN) SET (CMAKE_EXE_LINKER_FLAGS_DEBUG "${CMAKE_EXE_LINKER_FLAGS_DEBUG} /NODEFAULTLIB:LIBCMT") ENDIF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (hdfimport_SRCS ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/hdfimport.c ) ADD_EXECUTABLE (hdfimport ${hdfimport_SRCS}) TARGET_C_PROPERTIES (hdfimport " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfimport ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfimport ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (hdfimport ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Rules for Installation of tools using make Install target #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (hdfimport ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS hdfimport RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/Makefile.in0000644000000000000000000006667712421456623016261 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testutil.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = hdfimport$(EXEEXT) check_PROGRAMS = hdfimporttest$(EXEEXT) gen_sds_floats$(EXEEXT) TESTS = $(am__EXEEXT_1) $(TEST_SCRIPT) subdir = mfhdf/hdfimport ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testutil.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) gen_sds_floats_SOURCES = gen_sds_floats.c gen_sds_floats_OBJECTS = gen_sds_floats.$(OBJEXT) gen_sds_floats_LDADD = $(LDADD) gen_sds_floats_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) hdfimport_SOURCES = hdfimport.c hdfimport_OBJECTS = hdfimport.$(OBJEXT) hdfimport_LDADD = $(LDADD) hdfimport_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) hdfimport_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(hdfimport_LDFLAGS) $(LDFLAGS) -o $@ hdfimporttest_SOURCES = hdfimporttest.c hdfimporttest_OBJECTS = hdfimporttest.$(OBJEXT) hdfimporttest_LDADD = $(LDADD) hdfimporttest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = gen_sds_floats.c hdfimport.c hdfimporttest.c DIST_SOURCES = gen_sds_floats.c hdfimport.c hdfimporttest.c am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = hdfimporttest$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) hdfimport_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ############################################################################# LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ ############################################################################# ############################################################################# TEST_PROG = hdfimporttest TEST_SCRIPT = testutil.sh check_SCRIPTS = testutil.sh # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/hdfimport/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/hdfimport/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testutil.sh: $(top_builddir)/config.status $(srcdir)/testutil.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 gen_sds_floats$(EXEEXT): $(gen_sds_floats_OBJECTS) $(gen_sds_floats_DEPENDENCIES) $(EXTRA_gen_sds_floats_DEPENDENCIES) @rm -f gen_sds_floats$(EXEEXT) $(LINK) $(gen_sds_floats_OBJECTS) $(gen_sds_floats_LDADD) $(LIBS) hdfimport$(EXEEXT): $(hdfimport_OBJECTS) $(hdfimport_DEPENDENCIES) $(EXTRA_hdfimport_DEPENDENCIES) @rm -f hdfimport$(EXEEXT) $(hdfimport_LINK) $(hdfimport_OBJECTS) $(hdfimport_LDADD) $(LIBS) hdfimporttest$(EXEEXT): $(hdfimporttest_OBJECTS) $(hdfimporttest_DEPENDENCIES) $(EXTRA_hdfimporttest_DEPENDENCIES) @rm -f hdfimporttest$(EXEEXT) $(LINK) $(hdfimporttest_OBJECTS) $(hdfimporttest_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gen_sds_floats.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfimport.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfimporttest.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) all-local 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 mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-checkPROGRAMS clean-generic \ clean-libtool cscopelist ctags distclean distclean-compile \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-binPROGRAMS install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-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 \ mostlyclean-local pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-binPROGRAMS # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport.input10000644000000000000000000000105412421456623017324 0ustar open cb32r2.hdf prev tag = 30 next tag = 702 info dump -float close open cb32r3.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r2.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r3.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr3.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r2_ris.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2_ris.hdf prev tag = 30 next tag = 303 info dump -byte close quit libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/Makefile.am0000644000000000000000000000303112421456623016217 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add hdfimport specific linker flags here hdfimport_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Libraries to link against ## ############################################################################# LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = hdfimport ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# TEST_PROG = hdfimporttest TEST_SCRIPT = testutil.sh check_PROGRAMS = hdfimporttest gen_sds_floats check_SCRIPTS = testutil.sh include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/SDSfloat3.hdf0000644000000000000000000000657312421456623016426 0ustar È j\¾ Æ°« vª z<­ ¶!« ת Û<­ !« 8ª <<­ x!« ÿÿÿÿÿÿÿÿª ™7j н ÔÐ ò­ F­ H2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006BÈBÈCHCHC–CÈBÈBÈCHCHC–CÈBÈBÈCHCHC–CÈC–C–CÈC–CÈC–C–CÈC–CÈC–C–CÈC–CÈDDC–CÈCúCúDDC–CÈDDC–CÈ?€?€@@@@@€?€?€@@@@@€?€?€@@@@@€@@@@@€@@@€@@@@@€@@@€@@@@@€@@@€@À@À@@@€@ @ @À@À@@@€@À@À@@@€ValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0 ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªfakeDim2Dim0.0 SDS variableSDSVar  j j j j ¾j ½ Ñ ­­­ª¾j½Ð  SDStemplate againVar0.0­­­­ SDSfloat3.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimporttest.c0000644000000000000000000004206212421456623017232 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" /* * Name: * hdfimporttest * * Description: * This program creates binary and text input files that can be * used to test the hdfimport program. * * June 1, 1990 * Bob Weaver, baw@inel.gov * * Last Revision: December 10, 2001 * Pankaj Kamat, pkamat@uiuc.edu * * row values start at 11 and increment by 1 => 11, 12, 13 * column values start at 21 and increment by 2 => 21, 23, 25, 27 * plane values start at 51 and increment by 5 => 51, 56, 61, 66, 71 * * data element value = row value + column value [+ plane value, if rank=3] */ int main(int argc, char * argv[] ) { int nrow = 3, ncol = 4, npln = 5, ione = 1; int i, j, k; FILE *sp; float32 b32r2[3][4], b32r3[5][3][4]; float32 row4[3], col4[4], pln4[5]; float32 rowo4 = (float32)11.0e0, colo4 = (float32)21.0e0, plno4 = (float32)51.0e0; float32 rowi4 = (float32)1.0e0, coli4 = (float32)2.0e0, plni4 = (float32)5.0e0; float32 ezero = (float32)0.0e0; int32 b32i2[3][4], b32i3[5][3][4]; int32 row4i[3], col4i[4], pln4i[5]; int32 rowo4i = (int32)11 , colo4i = (int32)21 , plno4i = (int32)51 ; int32 rowi4i = (int32)1 , coli4i = (int32)2 , plni4i = (int32)5 ; int32 ezeroi = (int32)0; int16 b16i2[3][4], b16i3[5][3][4]; int16 row4i16[3], col4i16[4], pln4i16[5]; int16 rowo4i16 = (int16)11 , colo4i16 = (int16)21 , plno4i16 = (int16)51 ; int16 rowi4i16 = (int16)1 , coli4i16 = (int16)2 , plni4i16 = (int16)5 ; int16 ezeroi16 = (int16)0; int8 b8i2[3][4], b8i3[5][3][4]; int8 row4i8[3], col4i8[4], pln4i8[5]; int8 rowo4i8 = (int8)11 , colo4i8 = (int8)21 , plno4i8 = (int8)51 ; int8 rowi4i8 = (int8)1 , coli4i8 = (int8)2 , plni4i8 = (int8)5 ; int8 ezeroi8 = (int8)0; float64 b64r2[3][4], b64r3[5][3][4]; float64 row8[3], col8[4], pln8[5]; float64 rowo8 = 11.0e0, colo8 = 21.0e0, plno8 = 51.0e0; float64 rowi8 = 1.0e0, coli8 = 2.0e0, plni8 = 5.0e0; float64 dzero = 0.0e0; const char *text = "TEXT"; const char *fp32 = "FP32"; const char *fp64 = "FP64"; const char *in32 = "IN32"; const char *in16 = "IN16"; const char *in8 = "IN08"; /* shut compiler up */ argv=argv; argc=argc; /* * initialize the row, column, and plane vectors * * row values start at 11 and increment by 1 => 11, 12, 13 * column values start at 21 and increment by 2 => 21, 23, 25, 27 * plane values start at 51 and increment by 5 => 51, 56, 61, 66, 71 */ row4[0] = rowo4; col4[0] = colo4; pln4[0] = plno4; row8[0] = rowo8; col8[0] = colo8; pln8[0] = plno8; row4i[0] = rowo4i; col4i[0] = colo4i; pln4i[0] = plno4i; row4i16[0] = rowo4i16; col4i16[0] = colo4i16; pln4i16[0] = plno4i16; row4i8[0] = rowo4i8; col4i8[0] = colo4i8; pln4i8[0] = plno4i8; for (i = 1; i < nrow; i++) { row4[i] = row4[i - 1] + rowi4; row8[i] = row8[i - 1] + rowi8; row4i[i] = row4i[i - 1] + rowi4i; row4i16[i] = row4i16[i - 1] + rowi4i16; row4i8[i] = row4i8[i - 1] + rowi4i8; } for (j = 1; j < ncol; j++) { col4[j] = col4[j - 1] + coli4; col8[j] = col8[j - 1] + coli8; col4i[j] = col4i[j - 1] + coli4i; col4i16[j] = col4i16[j - 1] + coli4i16; col4i8[j] = col4i8[j - 1] + coli4i8; } for (k = 1; k < npln; k++) { pln4[k] = pln4[k - 1] + plni4; pln8[k] = pln8[k - 1] + plni8; pln4i[k] = pln4i[k - 1] + plni4i; pln4i16[k] = pln4i16[k - 1] + plni4i16; pln4i8[k] = pln4i8[k - 1] + plni4i8; } /* * build array elements - rank 2 * * element value = sum of row value and col values */ for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) { b32r2[i][j] = row4[i] + col4[j]; b64r2[i][j] = row8[i] + col8[j]; b32i2[i][j] = row4i[i] + col4i[j]; b16i2[i][j] = row4i16[i] + col4i16[j]; b8i2[i][j] = row4i8[i] + col4i8[j]; } } /* * build array elements - rank 3 * * element value = sum of row value, col, and plane values */ for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) { for (k = 0; k < npln; k++) { b32r3[k][i][j] = row4[i] + col4[j] + pln4[k]; b64r3[k][i][j] = row8[i] + col8[j] + pln8[k]; b32i3[k][i][j] = row4i[i] + col4i[j] + pln4i[k]; b16i3[k][i][j] = row4i16[i] + col4i16[j] + pln4i16[k]; b8i3[k][i][j] = row4i8[i] + col4i8[j] + pln4i8[k]; } } } /* * text file - rank 2 & 3 */ sp = fopen("ctxtr2", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", ione, nrow, ncol); (void) fprintf(sp, "%14.6E%14.6E\n", ezero, ezero); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%14.6E", row4[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", col4[j]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", b32r2[i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); sp = fopen("ctxti2", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", ione, nrow, ncol); (void) fprintf(sp, "%10d%10d\n", ezeroi, ezeroi); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%10d", row4i[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10d", col4i[j]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10d", b32i2[i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); sp = fopen("ctxti162", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", ione, nrow, ncol); (void) fprintf(sp, "%10u%10u\n", ezeroi16, ezeroi16); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%10u", row4i16[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10u", col4i16[j]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10u", b16i2[i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); sp = fopen("ctxti82", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", ione, nrow, ncol); (void) fprintf(sp, "%10c%10c\n", ezeroi8, ezeroi8); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%10c", row4i8[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10c", col4i8[j]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%10c", b8i2[i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); sp = fopen("ctxtr3", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", npln, nrow, ncol); (void) fprintf(sp, "%14.6E%14.6E\n", ezero, ezero); for (k = 0; k < npln; k++) (void) fprintf(sp, "%14.6E", pln4[k]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%14.6E", row4[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", col4[j]); (void) fprintf(sp, "\n"); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", b32r3[k][i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); /* * binary 32-bit file - rank 2 & 3 */ sp = fopen("cb32r2", "w"); (void) fwrite(fp32, strlen(fp32), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4[i], sizeof(float32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4[j], sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32r2[i][j], sizeof(float32), 1, sp); (void) fclose(sp); sp = fopen("cb32i2", "w"); (void) fwrite(in32, strlen(in32), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi, sizeof(int32), 1, sp); (void) fwrite((char *) &ezeroi, sizeof(int32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i[i], sizeof(int32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i[j], sizeof(int32), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32i2[i][j], sizeof(int32), 1, sp); (void) fclose(sp); sp = fopen("cb16i2", "w"); (void) fwrite(in16, strlen(in16), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi16, sizeof(int16), 1, sp); (void) fwrite((char *) &ezeroi, sizeof(int16), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i16[i], sizeof(int16), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i16[j], sizeof(int16), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b16i2[i][j], sizeof(int16), 1, sp); (void) fclose(sp); sp = fopen("cb8i2", "w"); (void) fwrite(in8, strlen(in8), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi8, sizeof(int8), 1, sp); (void) fwrite((char *) &ezeroi8, sizeof(int8), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i8[i], sizeof(int8), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i8[j], sizeof(int8), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b8i2[i][j], sizeof(int8), 1, sp); (void) fclose(sp); sp = fopen("cb32r3", "w"); (void) fwrite(fp32, strlen(fp32), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln4[k], sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4[i], sizeof(float32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4[j], sizeof(float32), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32r3[k][i][j], sizeof(float32), 1, sp); (void) fclose(sp); sp = fopen("cb32i3", "w"); (void) fwrite(in32, strlen(in32), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi, sizeof(int32), 1, sp); (void) fwrite((char *) &ezeroi, sizeof(int32), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln4i[k], sizeof(int32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i[i], sizeof(int32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i[j], sizeof(int32), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32i3[k][i][j], sizeof(int32), 1, sp); (void) fclose(sp); sp = fopen("cb16i3", "w"); (void) fwrite(in16, strlen(in16), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi16, sizeof(int16), 1, sp); (void) fwrite((char *) &ezeroi16, sizeof(int16), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln4i16[k], sizeof(int16), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i16[i], sizeof(int16), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i16[j], sizeof(int16), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b16i3[k][i][j], sizeof(int16), 1, sp); (void) fclose(sp); sp = fopen("cb8i3", "w"); (void) fwrite(in8, strlen(in8), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezeroi8, sizeof(int8), 1, sp); (void) fwrite((char *) &ezeroi8, sizeof(int8), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln4i8[k], sizeof(int8), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4i8[i], sizeof(int8), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4i8[j], sizeof(int8), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b8i3[k][i][j], sizeof(int8), 1, sp); (void) fclose(sp); /* * binary 64-bit file - rank 2 & 3 */ sp = fopen("cb64r2", "w"); (void) fwrite(fp64, strlen(fp64), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row8[i], sizeof(float64), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col8[j], sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b64r2[i][j], sizeof(float64), 1, sp); (void) fclose(sp); sp = fopen("cb64r3", "w"); (void) fwrite(fp64, strlen(fp64), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln8[k], sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row8[i], sizeof(float64), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col8[j], sizeof(float64), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b64r3[k][i][j], sizeof(float64), 1, sp); (void) fclose(sp); return (0); } libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport.out10000644000000000000000000004603712421456623017006 0ustar ctxtr2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes ctxtr3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes cb32i2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes cb32i3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes cb16i2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 6 bytes Ref no 6 8 bytes Ref no 7 24 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 4 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes cb16i3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 10 bytes Ref no 6 6 bytes Ref no 8 8 bytes Ref no 9 120 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 4 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes cb32r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes cb32r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes cb64r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes cb64r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes cb64r2-n.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 24 bytes Ref no 6 32 bytes Ref no 7 96 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 16 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 53 bytes cb64r3-n.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 40 bytes Ref no 6 24 bytes Ref no 8 32 bytes Ref no 9 480 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 16 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 61 bytes ctxtr2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 400 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Compressed Image : (tag 303) Ref no 2 400 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes cb64r2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 8 4 bytes Ref no 15 4 bytes Ref no 18 4 bytes Ref no 21 4 bytes Image Dimensions-8 : (tag 200) Ref no 8 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 8 2550 bytes Image Dimensions : (tag 300) Ref no 8 20 bytes Compressed Image : (tag 303) Ref no 8 2550 bytes Raster Image Group : (tag 306) Ref no 8 8 bytes SciData dimension record : (tag 701) Ref no 15 22 bytes Ref no 18 14 bytes Ref no 21 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 9 60 bytes Ref no 11 60 bytes Ref no 13 61 bytes Ref no 14 55 bytes Ref no 17 64 bytes Ref no 20 64 bytes Vdata Storage : (tag 1963) Ref no 9 4 bytes Ref no 11 4 bytes Ref no 13 8 bytes Ref no 14 -1 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Vgroup : (tag 1965) Ref no 10 33 bytes Ref no 12 33 bytes Ref no 16 60 bytes Ref no 19 53 bytes Ref no 22 53 bytes Ref no 23 55 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport.out30000644000000000000000000000205112421456623016774 0ustar SDSfloat2.out: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 14 17 20 SciData dimension record : (tag 701) Ref nos: 14 17 20 Scientific Data : (tag 702) Ref nos: 4 6 7 Numeric Data Group : (tag 720) Ref nos: 2 3 5 Vdata : (tag 1962) Ref nos: 8 10 12 13 16 19 Vdata Storage : (tag 1963) Ref nos: 8 10 12 13 16 19 Vgroup : (tag 1965) Ref nos: 9 11 15 18 21 22 SDSfloat3.out: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 18 21 24 27 SciData dimension record : (tag 701) Ref nos: 18 21 24 27 Scientific Data : (tag 702) Ref nos: 4 6 8 9 Numeric Data Group : (tag 720) Ref nos: 2 3 5 7 Vdata : (tag 1962) Ref nos: 10 12 14 16 17 20 23 26 Vdata Storage : (tag 1963) Ref nos: 10 12 14 16 17 20 23 26 Vgroup : (tag 1965) Ref nos: 11 13 15 19 22 25 28 29 libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/0000755000000000000000000000000012421456623016170 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb64r3-n.tst0000644000000000000000000000306712421456623020170 0ustar cb64r3-n.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 40 bytes Ref no 6 24 bytes Ref no 8 32 bytes Ref no 9 480 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 16 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 61 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb32i2.tst0000644000000000000000000000241112421456623017706 0ustar cb32i2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/SDSfloat2.tst0000644000000000000000000000100512421456623020461 0ustar SDSfloat2.out: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 14 17 20 SciData dimension record : (tag 701) Ref nos: 14 17 20 Scientific Data : (tag 702) Ref nos: 4 6 7 Numeric Data Group : (tag 720) Ref nos: 2 3 5 Vdata : (tag 1962) Ref nos: 8 10 12 13 16 19 Vdata Storage : (tag 1963) Ref nos: 8 10 12 13 16 19 Vgroup : (tag 1965) Ref nos: 9 11 15 18 21 22 libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb32i3.tst0000644000000000000000000000306512421456623017715 0ustar cb32i3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/SDSfloat3.tst0000644000000000000000000000104412421456623020465 0ustar SDSfloat3.out: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 18 21 24 27 SciData dimension record : (tag 701) Ref nos: 18 21 24 27 Scientific Data : (tag 702) Ref nos: 4 6 8 9 Numeric Data Group : (tag 720) Ref nos: 2 3 5 7 Vdata : (tag 1962) Ref nos: 10 12 14 16 17 20 23 26 Vdata Storage : (tag 1963) Ref nos: 10 12 14 16 17 20 23 26 Vgroup : (tag 1965) Ref nos: 11 13 15 19 22 25 28 29 libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb64r2_ris.tst0000644000000000000000000000323012421456623020601 0ustar cb64r2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 8 4 bytes Ref no 15 4 bytes Ref no 18 4 bytes Ref no 21 4 bytes Image Dimensions-8 : (tag 200) Ref no 8 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 8 2550 bytes Image Dimensions : (tag 300) Ref no 8 20 bytes Compressed Image : (tag 303) Ref no 8 2550 bytes Raster Image Group : (tag 306) Ref no 8 8 bytes SciData dimension record : (tag 701) Ref no 15 22 bytes Ref no 18 14 bytes Ref no 21 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 9 60 bytes Ref no 11 60 bytes Ref no 13 61 bytes Ref no 14 55 bytes Ref no 17 64 bytes Ref no 20 64 bytes Vdata Storage : (tag 1963) Ref no 9 4 bytes Ref no 11 4 bytes Ref no 13 8 bytes Ref no 14 -1 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Vgroup : (tag 1965) Ref no 10 33 bytes Ref no 12 33 bytes Ref no 16 60 bytes Ref no 19 53 bytes Ref no 22 53 bytes Ref no 23 55 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/ctxtr2_ris.tst0000644000000000000000000000101712421456623021026 0ustar ctxtr2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 400 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Compressed Image : (tag 303) Ref no 2 400 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb64r2-n.tst0000644000000000000000000000241312421456623020161 0ustar cb64r2-n.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 24 bytes Ref no 6 32 bytes Ref no 7 96 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 16 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 53 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb64r2.tst0000644000000000000000000000241112421456623017724 0ustar cb64r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb32r2.tst0000644000000000000000000000241112421456623017717 0ustar cb32r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb16i3.tst0000644000000000000000000000306512421456623017717 0ustar cb16i3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 10 bytes Ref no 6 6 bytes Ref no 8 8 bytes Ref no 9 120 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 4 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb32r3.tst0000644000000000000000000000306512421456623017726 0ustar cb32r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb16i2.tst0000644000000000000000000000241112421456623017710 0ustar cb16i2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 6 bytes Ref no 6 8 bytes Ref no 7 24 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 4 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/cb64r3.tst0000644000000000000000000000306512421456623017733 0ustar cb64r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/ctxtr2.tst0000644000000000000000000000241112421456623020150 0ustar ctxtr2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 14 4 bytes Ref no 17 4 bytes Ref no 20 4 bytes SciData dimension record : (tag 701) Ref no 14 22 bytes Ref no 17 14 bytes Ref no 20 14 bytes Scientific Data : (tag 702) Ref no 4 12 bytes Ref no 6 16 bytes Ref no 7 48 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Vdata : (tag 1962) Ref no 8 60 bytes Ref no 10 60 bytes Ref no 12 61 bytes Ref no 13 55 bytes Ref no 16 64 bytes Ref no 19 64 bytes Vdata Storage : (tag 1963) Ref no 8 4 bytes Ref no 10 4 bytes Ref no 12 8 bytes Ref no 13 -1 bytes Ref no 16 -1 bytes Ref no 19 -1 bytes Vgroup : (tag 1965) Ref no 9 33 bytes Ref no 11 33 bytes Ref no 15 60 bytes Ref no 18 53 bytes Ref no 21 53 bytes Ref no 22 51 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/testfiles/ctxtr3.tst0000644000000000000000000000306512421456623020157 0ustar ctxtr3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 18 4 bytes Ref no 21 4 bytes Ref no 24 4 bytes Ref no 27 4 bytes SciData dimension record : (tag 701) Ref no 18 30 bytes Ref no 21 14 bytes Ref no 24 14 bytes Ref no 27 14 bytes Scientific Data : (tag 702) Ref no 4 20 bytes Ref no 6 12 bytes Ref no 8 16 bytes Ref no 9 240 bytes Numeric Data Group : (tag 720) Ref no 2 16 bytes Ref no 3 16 bytes Ref no 5 16 bytes Ref no 7 16 bytes Vdata : (tag 1962) Ref no 10 60 bytes Ref no 12 60 bytes Ref no 14 60 bytes Ref no 16 61 bytes Ref no 17 55 bytes Ref no 20 64 bytes Ref no 23 64 bytes Ref no 26 64 bytes Vdata Storage : (tag 1963) Ref no 10 4 bytes Ref no 12 4 bytes Ref no 14 4 bytes Ref no 16 8 bytes Ref no 17 -1 bytes Ref no 20 -1 bytes Ref no 23 -1 bytes Ref no 26 -1 bytes Vgroup : (tag 1965) Ref no 11 33 bytes Ref no 13 33 bytes Ref no 15 33 bytes Ref no 19 64 bytes Ref no 22 53 bytes Ref no 25 53 bytes Ref no 28 53 bytes Ref no 29 59 bytes libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport.out20000644000000000000000000001032412421456623016775 0ustar (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+01 1.200000e+01 1.300000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+01 5.600000e+01 6.100000e+01 6.600000e+01 16: 7.100000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+01 1.200000e+01 1.300000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+01 5.600000e+01 6.100000e+01 6.600000e+01 16: 7.100000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+01 1.200000e+01 1.300000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+01 5.600000e+01 6.100000e+01 6.600000e+01 16: 7.100000e+01 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+01 1.200000e+01 1.300000e+01 (2) Compressed Image : (Tag 303) Ref 2 0: 137 1 144 60 144 120 137 179 8: 137 1 144 60 144 120 137 179 16: 137 1 144 60 144 120 137 179 24: 137 1 144 60 144 120 137 179 32: 137 1 144 60 144 120 137 179 40: 137 1 144 60 144 120 137 179 48: 137 1 144 60 144 120 137 179 56: 137 1 144 60 144 120 137 179 64: 137 1 144 60 144 120 137 179 72: 137 1 144 60 144 120 137 179 80: 137 1 144 60 144 120 137 179 88: 137 1 144 60 144 120 137 179 96: 137 1 144 60 144 120 137 179 104: 137 31 144 90 144 150 137 209 112: 137 31 144 90 144 150 137 209 120: 137 31 144 90 144 150 137 209 128: 137 31 144 90 144 150 137 209 136: 137 31 144 90 144 150 137 209 144: 137 31 144 90 144 150 137 209 152: 137 31 144 90 144 150 137 209 160: 137 31 144 90 144 150 137 209 168: 137 31 144 90 144 150 137 209 176: 137 31 144 90 144 150 137 209 184: 137 31 144 90 144 150 137 209 192: 137 31 144 90 144 150 137 209 200: 137 31 144 90 144 150 137 209 208: 137 31 144 90 144 150 137 209 216: 137 31 144 90 144 150 137 209 224: 137 31 144 90 144 150 137 209 232: 137 31 144 90 144 150 137 209 240: 137 31 144 90 144 150 137 209 248: 137 31 144 90 144 150 137 209 256: 137 31 144 90 144 150 137 209 264: 137 31 144 90 144 150 137 209 272: 137 31 144 90 144 150 137 209 280: 137 31 144 90 144 150 137 209 288: 137 31 144 90 144 150 137 209 296: 137 60 144 120 144 179 137 239 304: 137 60 144 120 144 179 137 239 312: 137 60 144 120 144 179 137 239 320: 137 60 144 120 144 179 137 239 328: 137 60 144 120 144 179 137 239 336: 137 60 144 120 144 179 137 239 344: 137 60 144 120 144 179 137 239 352: 137 60 144 120 144 179 137 239 360: 137 60 144 120 144 179 137 239 368: 137 60 144 120 144 179 137 239 376: 137 60 144 120 144 179 137 239 384: 137 60 144 120 144 179 137 239 392: 137 60 144 120 144 179 137 239 400: libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/gen_sds_floats.c0000644000000000000000000001202312421456623017322 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group (THG). * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the COPYING file and in the print documentation copyright notice. * * COPYING can be found at the root of the source code distribution tree; * * the copyright notice in printed HDF documentation can be found on the * * back of the title page. If you do not have access to either version, * * you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #define FILE2_NAME "SDSfloat2.hdf" #define FILE3_NAME "SDSfloat3.hdf" #define SDS1_NAME "SDStemplate" #define SDS2_NAME "SDStemplate again" #define X_LENGTH 6 #define Y_LENGTH 9 #define Z_LENGTH 2 #define RANK2 2 /* Number of dimensions of the SDS */ #define RANK3 3 /* Number of dimensions of the SDS */ main() { /************************* Variable declaration ************************/ int32 sd2_id, sd3_id, sds1_id, sds2_id; int32 dim2_sizes[2]; /* sizes of the 2-dim SDS dimensions */ int32 dim3_sizes[3]; /* sizes of the 3-dim SDS dimensions */ int32 start2[2], start3[3]; /* start arrays for both SDSs */ intn status; int32 dim_id, dim_index, /* dimension id and index */ size, data_type, /* dimension's size and data type */ nattrs; /* number of attributes */ char dim_name[20]; float32 in2_data[X_LENGTH][Y_LENGTH]={ /* input for 2-dim SDS */ 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 500.0,500.0,600.0,600.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0}; float32 in3_data[X_LENGTH][Y_LENGTH][Z_LENGTH]={ /* input for 3-dim SDS */ 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 500.0,500.0,600.0,600.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 1.0,1.0,2.0,2.0,3.0,4.0, 1.0,1.0,2.0,2.0,3.0,4.0, 1.0,1.0,2.0,2.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 0.0, 0.0,6.0,6.0,3.0,4.0, 5.0,5.0,6.0,6.0,3.0,4.0, 0.0, 0.0,6.0,6.0,3.0,4.0, }; /********************* End of variable declaration ***********************/ /* * Create the files and initialize the SD interface. */ sd2_id = SDstart (FILE2_NAME, DFACC_CREATE); sd3_id = SDstart (FILE3_NAME, DFACC_CREATE); /* * Define the dimensions/origins of the two SDSs to be created. */ dim2_sizes[0] = Y_LENGTH; dim2_sizes[1] = X_LENGTH; dim3_sizes[0] = Z_LENGTH; dim3_sizes[1] = Y_LENGTH; dim3_sizes[2] = X_LENGTH; start2[0] = start2[1] = 0; start3[0] = start3[1] = start3[2] = 0; /* * Create two data sets, SDS1_NAME and SDS2_NAME, with type DFNT_FLOAT32 * in the two files, FILE2_NAME and FILE3_NAME. */ sds1_id = SDcreate (sd2_id, SDS1_NAME, DFNT_FLOAT32, RANK2, dim2_sizes); sds2_id = SDcreate (sd3_id, SDS2_NAME, DFNT_FLOAT32, RANK3, dim3_sizes); /* Write data to the SDSs */ status = SDwritedata(sds1_id, start2, NULL, dim2_sizes, (VOIDP)in2_data); status = SDwritedata(sds2_id, start3, NULL, dim3_sizes, (VOIDP)in3_data); /* * Terminate access to the data sets. */ status = SDendaccess (sds1_id); status = SDendaccess (sds2_id); /* * Terminate access to the SD interface and close the files. */ status = SDend (sd2_id); status = SDend (sd3_id); } libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/CMakeTests.cmake0000644000000000000000000003105412421456623017176 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES hdfimport.input1 hdfimport.out1 # hdfimport.out2 hdfimport.out3 SDSfloat2.hdf SDSfloat3.hdf ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfimport POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) IF (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdfimport POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/hdfimport-w.out2 ${PROJECT_BINARY_DIR}/hdfimport.out2 ) ELSE (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdfimport POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/hdfimport.out2 ${PROJECT_BINARY_DIR}/hdfimport.out2 ) ENDIF (WIN32 AND NOT CYGWIN) #-- Copy all the hdfls tst files from the test directory into the source directory SET (HDF4_LS_TEST_FILES ctxtr2.tst ctxtr3.tst cb32i2.tst cb32i3.tst cb16i2.tst cb16i3.tst cb32r2.tst cb32r3.tst cb64r2.tst cb64r3.tst cb64r2-n.tst cb64r3-n.tst ctxtr2_ris.tst cb64r2_ris.tst SDSfloat2.tst SDSfloat3.tst ) FOREACH (ls_file ${HDF4_LS_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${ls_file}") #MESSAGE (STATUS " Copying ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/${ls_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfimport POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/testfiles/${ls_file} ${dest} ) ENDFOREACH (ls_file ${HDF4_LS_TEST_FILES}) #-- hdfimporttest SET (hdfimporttest_SRCS ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/hdfimporttest.c ) ADD_EXECUTABLE (hdfimporttest ${hdfimporttest_SRCS}) TARGET_C_PROPERTIES (hdfimporttest " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfimporttest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfimporttest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (hdfimporttest ${LIB_TYPE}) #-- gen_sds_floats SET (gen_sds_floats_SRCS ${HDF4_MFHDF_HDFIMPORT_SOURCE_DIR}/gen_sds_floats.c ) ADD_EXECUTABLE (gen_sds_floats ${gen_sds_floats_SRCS}) TARGET_C_PROPERTIES (gen_sds_floats " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (gen_sds_floats ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (gen_sds_floats ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (gen_sds_floats ${LIB_TYPE}) ############################################################################## ############################################################################## ### T H E T E S T S M A C R O S ### ############################################################################## ############################################################################## MACRO (ADD_H4_TEST resultfile resultcode testtfile testtype) IF ( NOT ${testtype} STREQUAL "") IF (${testtype} STREQUAL "N") ADD_TEST (NAME HIMPORT-${testtfile} COMMAND $ ${resultfile} -n -o ${testtfile}.hdf) ENDIF (${testtype} STREQUAL "N") IF (${testtype} STREQUAL "R") ADD_TEST (NAME HIMPORT-${testtfile} COMMAND $ ${resultfile} -o ${testtfile}.hdf -raster ${ARGN}) ENDIF (${testtype} STREQUAL "R") ELSE ( NOT ${testtype} STREQUAL "") ADD_TEST (NAME HIMPORT-${testtfile} COMMAND $ ${resultfile} -o ${testtfile}.hdf) ENDIF ( NOT ${testtype} STREQUAL "") IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-${testtfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-${testtfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HIMPORTLS-${testtfile} COMMAND $ -l ${testtfile}.hdf) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HIMPORTLS-${testtfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-l;${testtfile}.hdf" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=${testtfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_FILTER:STRING=(File library|String)[^\n]+\n" -D "TEST_REFERENCE=${testtfile}.tst" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) SET_TESTS_PROPERTIES (HIMPORTLS-${testtfile} PROPERTIES DEPENDS HIMPORT-${testtfile} LABELS ${PROJECT_NAME}) SET (last_test "HIMPORTLS-${testtfile}") ENDMACRO (ADD_H4_TEST) MACRO (ADD_H4_TEST_OUT resultfile resultcode) ADD_TEST (NAME HIMPORT-OUT-${resultfile} COMMAND $ ${resultfile}.hdf -o ${resultfile}.out) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-OUT-${resultfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-OUT-${resultfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HIMPORTLS-OUT-${resultfile} COMMAND $ ${resultfile}.out) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HIMPORTLS-OUT-${resultfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${resultfile}.out" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=${resultfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_FILTER:STRING=(File library|String)[^\n]+\n" -D "TEST_REFERENCE=${resultfile}.tst" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) SET_TESTS_PROPERTIES (HIMPORTLS-OUT-${resultfile} PROPERTIES DEPENDS HIMPORT-OUT-${resultfile} LABELS ${PROJECT_NAME}) SET (last_test "HIMPORTLS-OUT-${resultfile}") ENDMACRO (ADD_H4_TEST_OUT) MACRO (ADD_H4_TEST_ED testfile resultfile resultcode) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HIMPORT-EDIT COMMAND $ -batch) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HIMPORT-EDIT COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-batch" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_INPUT=${testfile}" -D "TEST_OUTPUT=${testfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_REFERENCE=${resultfile}" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-EDIT PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORT-EDIT PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HIMPORT-EDIT") ENDMACRO (ADD_H4_TEST_ED) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME hdfimport-clear-refs COMMAND ${CMAKE_COMMAND} -E remove ctxtr2 ctxtr3 cb32i2 cb32i3 cb16i2 cb16i3 cb32r2 cb32r3 cb64r2 cb64r3 cb64r2-n cb64r3-n ctxtr2_ris cb64r2_ris ctxtr2.hdf ctxtr3.hdf cb32i2.hdf cb32i3.hdf cb16i2.hdf cb16i3.hdf cb32r2.hdf cb32r3.hdf cb64r2.hdf cb64r3.hdf cb64r2-n.hdf cb64r3-n.hdf ctxtr2_ris.hdf cb64r2_ris.hdf ctxtr2.tmp ctxtr3.tmp cb32i2.tmp cb32i3.tmp cb16i2.tmp cb16i3.tmp cb32r2.tmp cb32r3.tmp cb64r2.tmp cb64r3.tmp cb64r2-n.tmp cb64r3-n.tmp ctxtr2_ris.tmp cb64r2_ris.tmp SDSfloat2.tmp SDSfloat3.tmp ctxtr2.tmp.err ctxtr3.tmp.err cb32i2.tmp.err cb32i3.tmp.err cb16i2.tmp.err cb16i3.tmp.err cb32r2.tmp.err cb32r3.tmp.err cb64r2.tmp.err cb64r3.tmp.err cb64r2-n.tmp.err cb64r3-n.tmp.err ctxtr2_ris.tmp.err cb64r2_ris.tmp.err SDSfloat2.tmp.err SDSfloat3.tmp.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfimport-clear-refs PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfimport-clear-refs PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdfimport-clear-refs") ADD_TEST (NAME HIMPORTtest COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORTtest PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HIMPORTtest PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HIMPORTtest") # "Testing for 32-bit floating point ASCII (2D data)" ADD_H4_TEST (ctxtr2 0 ctxtr2 "") # "Testing for 32-bit floating point ASCII (3D data)" ADD_H4_TEST (ctxtr3 0 ctxtr3 "") # "Testing for 32-bit integer binary (2D data)" ADD_H4_TEST (cb32i2 0 cb32i2 "") # "Testing for 32-bit integer binary (3D data)" ADD_H4_TEST (cb32i3 0 cb32i3 "") # "Testing for 16-bit integer binary (2D data)" ADD_H4_TEST (cb16i2 0 cb16i2 "") # "Testing for 16-bit integer (3D data)" ADD_H4_TEST (cb16i3 0 cb16i3 "") # "Testing for 32-bit floating point binary (2D data)" ADD_H4_TEST (cb32r2 0 cb32r2 "") # "Testing for 32-bit floating point binary (3D data)" ADD_H4_TEST (cb32r3 0 cb32r3 "") # "Testing for 64-bit floating point binary (2D data) - Default Behaviour (Conversion to 32 bit FP SDS)" ADD_H4_TEST (cb64r2 0 cb64r2 "") # "Testing for 64-bit floating point binary (3D data) - Default Behaviour (Conversion to 32-bit FP SDS)" ADD_H4_TEST (cb64r3 0 cb64r3 "") # "Testing for 64-bit floating point binary (2D data) - Conversion to 64-bit FP SDS" ADD_H4_TEST (cb64r2 0 cb64r2-n "N") # "Testing for 64-bit floating point binary (3D data) - Conversion to 64-bit FP SDS" ADD_H4_TEST (cb64r3 0 cb64r3-n "N") # "Testing for raster options" ADD_H4_TEST (ctxtr2 0 ctxtr2_ris "R" -e 50 50) ADD_H4_TEST (cb64r2 0 cb64r2_ris "R" -i 50 50 -f) # # test with hdf files # "Testing for reading from hdf files" ADD_H4_TEST_OUT (SDSfloat2 0) ADD_H4_TEST_OUT (SDSfloat3 0) ADD_H4_TEST_ED (hdfimport.input1 hdfimport.out2 0) libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/hdfimport-w.out20000644000000000000000000001032412421456623017241 0ustar (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+001 1.200000e+001 1.300000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+001 5.600000e+001 6.100000e+001 6.600000e+001 16: 7.100000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+001 1.200000e+001 1.300000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+001 5.600000e+001 6.100000e+001 6.600000e+001 16: 7.100000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+001 1.200000e+001 1.300000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 5.100000e+001 5.600000e+001 6.100000e+001 6.600000e+001 16: 7.100000e+001 (2) Scientific Data : (Tag 702) Ref 4 0: 1.100000e+001 1.200000e+001 1.300000e+001 (2) Compressed Image : (Tag 303) Ref 2 0: 137 1 144 60 144 120 137 179 8: 137 1 144 60 144 120 137 179 16: 137 1 144 60 144 120 137 179 24: 137 1 144 60 144 120 137 179 32: 137 1 144 60 144 120 137 179 40: 137 1 144 60 144 120 137 179 48: 137 1 144 60 144 120 137 179 56: 137 1 144 60 144 120 137 179 64: 137 1 144 60 144 120 137 179 72: 137 1 144 60 144 120 137 179 80: 137 1 144 60 144 120 137 179 88: 137 1 144 60 144 120 137 179 96: 137 1 144 60 144 120 137 179 104: 137 31 144 90 144 150 137 209 112: 137 31 144 90 144 150 137 209 120: 137 31 144 90 144 150 137 209 128: 137 31 144 90 144 150 137 209 136: 137 31 144 90 144 150 137 209 144: 137 31 144 90 144 150 137 209 152: 137 31 144 90 144 150 137 209 160: 137 31 144 90 144 150 137 209 168: 137 31 144 90 144 150 137 209 176: 137 31 144 90 144 150 137 209 184: 137 31 144 90 144 150 137 209 192: 137 31 144 90 144 150 137 209 200: 137 31 144 90 144 150 137 209 208: 137 31 144 90 144 150 137 209 216: 137 31 144 90 144 150 137 209 224: 137 31 144 90 144 150 137 209 232: 137 31 144 90 144 150 137 209 240: 137 31 144 90 144 150 137 209 248: 137 31 144 90 144 150 137 209 256: 137 31 144 90 144 150 137 209 264: 137 31 144 90 144 150 137 209 272: 137 31 144 90 144 150 137 209 280: 137 31 144 90 144 150 137 209 288: 137 31 144 90 144 150 137 209 296: 137 60 144 120 144 179 137 239 304: 137 60 144 120 144 179 137 239 312: 137 60 144 120 144 179 137 239 320: 137 60 144 120 144 179 137 239 328: 137 60 144 120 144 179 137 239 336: 137 60 144 120 144 179 137 239 344: 137 60 144 120 144 179 137 239 352: 137 60 144 120 144 179 137 239 360: 137 60 144 120 144 179 137 239 368: 137 60 144 120 144 179 137 239 376: 137 60 144 120 144 179 137 239 384: 137 60 144 120 144 179 137 239 392: 137 60 144 120 144 179 137 239 400: libhdf4-4.2.10/HDF_ALT/mfhdf/hdfimport/crtSDSfloats.c0000644000000000000000000001202312421456623016703 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group (THG). * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the COPYING file and in the print documentation copyright notice. * * COPYING can be found at the root of the source code distribution tree; * * the copyright notice in printed HDF documentation can be found on the * * back of the title page. If you do not have access to either version, * * you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #define FILE2_NAME "SDSfloat2.hdf" #define FILE3_NAME "SDSfloat3.hdf" #define SDS1_NAME "SDStemplate" #define SDS2_NAME "SDStemplate again" #define X_LENGTH 6 #define Y_LENGTH 9 #define Z_LENGTH 2 #define RANK2 2 /* Number of dimensions of the SDS */ #define RANK3 3 /* Number of dimensions of the SDS */ main() { /************************* Variable declaration ************************/ int32 sd2_id, sd3_id, sds1_id, sds2_id; int32 dim2_sizes[2]; /* sizes of the 2-dim SDS dimensions */ int32 dim3_sizes[3]; /* sizes of the 3-dim SDS dimensions */ int32 start2[2], start3[3]; /* start arrays for both SDSs */ intn status; int32 dim_id, dim_index, /* dimension id and index */ size, data_type, /* dimension's size and data type */ nattrs; /* number of attributes */ char dim_name[20]; float32 in2_data[X_LENGTH][Y_LENGTH]={ /* input for 2-dim SDS */ 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 500.0,500.0,600.0,600.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0}; float32 in3_data[X_LENGTH][Y_LENGTH][Z_LENGTH]={ /* input for 3-dim SDS */ 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 100.0,100.0,200.0,200.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 300.0,300.0, 0.0,400.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 500.0,500.0,600.0,600.0,300.0,400.0, 0.0, 0.0,600.0,600.0,300.0,400.0, 1.0,1.0,2.0,2.0,3.0,4.0, 1.0,1.0,2.0,2.0,3.0,4.0, 1.0,1.0,2.0,2.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 3.0,3.0, 0.0,4.0,3.0,4.0, 0.0, 0.0,6.0,6.0,3.0,4.0, 5.0,5.0,6.0,6.0,3.0,4.0, 0.0, 0.0,6.0,6.0,3.0,4.0, }; /********************* End of variable declaration ***********************/ /* * Create the files and initialize the SD interface. */ sd2_id = SDstart (FILE2_NAME, DFACC_CREATE); sd3_id = SDstart (FILE3_NAME, DFACC_CREATE); /* * Define the dimensions/origins of the two SDSs to be created. */ dim2_sizes[0] = Y_LENGTH; dim2_sizes[1] = X_LENGTH; dim3_sizes[0] = Z_LENGTH; dim3_sizes[1] = Y_LENGTH; dim3_sizes[2] = X_LENGTH; start2[0] = start2[1] = 0; start3[0] = start3[1] = start3[2] = 0; /* * Create two data sets, SDS1_NAME and SDS2_NAME, with type DFNT_FLOAT32 * in the two files, FILE2_NAME and FILE3_NAME. */ sds1_id = SDcreate (sd2_id, SDS1_NAME, DFNT_FLOAT32, RANK2, dim2_sizes); sds2_id = SDcreate (sd3_id, SDS2_NAME, DFNT_FLOAT32, RANK3, dim3_sizes); /* Write data to the SDSs */ status = SDwritedata(sds1_id, start2, NULL, dim2_sizes, (VOIDP)in2_data); status = SDwritedata(sds2_id, start3, NULL, dim3_sizes, (VOIDP)in3_data); /* * Terminate access to the data sets. */ status = SDendaccess (sds1_id); status = SDendaccess (sds2_id); /* * Terminate access to the SD interface and close the files. */ status = SDend (sd2_id); status = SDend (sd3_id); } libhdf4-4.2.10/HDF_ALT/mfhdf/FAQ0000644000000000000000000007176512421456623012544 0ustar From: General Support Subject: netCDF FAQ Frequently Asked Questions About netCDF This article contains answers to some of the most frequently asked netCDF questions on the netcdfgroup mailing list and in the email sent to support@unidata.ucar.edu. The list is archived in pub/netcdf/FAQ on unidata.ucar.edu, and is currently maintained by Russ Rew (russ@unidata.ucar.edu). List of Questions: 1: What Is netCDF? 2: How do I get the netCDF software package? 3: What does netCDF run on? 4: When will the next version be available? What changes are included? 5: What is the connection between netCDF and CDF? 6: What is the connection between netCDF and HDF? 7: Is netCDF available for the Apple Macintosh? 8: What are some references to netCDF? 9: What are the files in pub/netcdf/ on unidata.ucar.edu? 10: Why do I get XDR error messages when trying to write data? 11: What is the best way to represent [some particular data] using netCDF? 12: Are there plans to add facilities for data compression to netCDF? 13: What utilities are available for netCDF? 14: What is the status of implementing additional netCDF operators? 15: Is there a mailing list for netCDF discussions and questions? 16: How do I make a bug report? 17: Is there any WAIS or gopher access to netCDF information? 18: How widely is netCDF used? 1: What Is netCDF? A: NetCDF (network Common Data Form) is an interface for scientific data access and a freely-distributed software library that provides an implementation of the interface. It was developed by Glenn Davis, Russ Rew, and Steve Emmerson at the Unidata Program Center in Boulder, Colorado. The netCDF library also defines a machine-independent format for representing scientific data. Together, the interface, library, and format support the creation, access, and sharing of scientific data. netCDF data is: - Self-Describing. A netCDF file includes information about the data it contains. - Network-transparent. A netCDF file is represented in a form that can be accessed by computers with different ways of storing integers, characters, and floating-point numbers. - Direct-access. A small subset of a large dataset may be accessed efficiently, without first reading through all the preceding data. - Appendable. Data can be appended to a netCDF dataset along one dimension without copying the dataset or redefining its structure. The structure of a netCDF dataset can be changed, though this sometimes causes the dataset to be copied. - Sharable. One writer and multiple readers may simultaneously access the same netCDF file. 2: How do I get the netCDF software package? A: Via anonymous FTP from host: unidata.ucar.edu [128.117.140.3] file: pub/netcdf/netcdf.tar.Z Make sure the file is transmitted in BINARY mode. This is version 2.3.2, last updated in June 1993. 3: What does netCDF run on? A: Version 2.3.2 of netCDF has been tested on the following platforms: CRAY Y-MP UNICOS 6.1.6 DEC Alpha OSF/1 1.2 DEC VAX VMS 5.5-2 DEC VAX Ultrix 4.3 DECstation 3000 Ultrix 4.3 HP-9000/7xx HPUX 9.0 IBM PS/2 MSDOS 5.0 IBM PS/2 OS/2 1.2 IBM RS-6000 AIX 3.2 NeXT NeXTOS 3.0 SGI Iris IRIX 4.0.5F SPARCstation Solaris 2.1 SPARCstation SunOS 4.1.3 The experience of outside developers indicates that netCDF is relatively easy to port to any system that has a C compiler and an XDR library (eXternal Data Representation, used for NFS and usually supplied by vendors). 4: What has changed since the netCDF 2.2 release in December 1991? A: NetCDF 2.3, made available in April 1993, contains bug fixes, portability enhancements, performance enhancements, and a few new capabilities. Some new optimizations for the library result in significant speedups for accessing cross-sections involving non-contiguous data. New capabilities include some additional interfaces that provide a more general form of hyperslab access. This supports sub-sampling along specified dimensions and a mapping between the points of the hyperslab and the memory locations of the corresponding values. In a generalized hyperslab, an index mapping vector is used to define the mapping between points in the generalized hyperslab and the memory locations of the corresponding values, so data values that are written or read need no longer be contiguous in memory. There are also some new interfaces that can be used to write, read, and inquire about records, where a record may contain multiple variables of different types and shapes. Where before you had to access a record's worth of data using multiple calls, now you will be able to use a single call. The ncdump utility supports several new command-line options including the ability to specify for which variables data values will be output, to provide brief annotations in the form of CDL comments to identify data values for large multidimensional variables, or to provide full annotations in the form of trailing CDL comments for every data value. The current release also includes a prototype implementation of a C++ interface for the netCDF data access library. It provides all the functionality of the previous C interface, improves type safety by eliminating use of void* pointers, and is somewhat simpler to use than the C interface. With the C++ interface, no IDs are needed for netCDF components, there is no need to specify types when creating attributes, and less indirection is required for dealing with dimensions. However, since this is a prototype interface and implementation, it may be changed before a supported version is released. 5: What is the connection between netCDF and CDF? A: CDF was developed at the NASA Space Science Data Center at Goddard, and is freely available. It was originally a VMS FORTRAN interface for scientific data access. Unidata reimplemented the library from scratch to use XDR for a machine-independent representation, designed the CDL text representation for netCDF data, wrote a User's Guide and made other additions including aggregate data access, single-file implementation, named dimensions, and variable-specific attributes. NetCDF and CDF have evolved independently. CDF now supports many of the same features as netCDF (aggregate data access, XDR representation, single-file representation, variable-specific attributes), but some differences remain (netCDF doesn't support native-mode representation, CDF doesn't support named dimensions). There is no compatibility between data in CDF and netCDF form, and as yet no translation software exists to convert data in one form to data in the other form. 6: What is the connection between netCDF and HDF? A: The National Center for Supercomputing Applications (NCSA) developed the HDF software and makes it freely available. HDF is an extensible data format for self-describing files that was developed independently of netCDF. Applications and utilities based on HDF are available that support raster-image manipulation and display and browsing through multidimensional scientific data. The HDF software includes a package of routines for accessing each HDF data type, as well as a lower-level interface for building packages to support new types. HDF supports both C and Fortran interfaces, and it has been successfully ported to a wide variety of machine architectures and operating systems. HDF emphasizes a single common format for data, on which many interfaces can be built. NCSA has implemented software that provides a netCDF interface to HDF. With this software, it is possible to use the netCDF calling interface to place data into an HDF file. The netCDF calling interface has not changed and netCDF files stored in XDR format are readable, so existing programs and data will still be usable (although programs will need to be relinked to the new library). There is currently no support for the mixing of HDF and netCDF structures. For example, a raster image can exist in the same file as a netCDF object, but you have to use the Raster Image interface to read the image and the netCDF interface to read the netCDF object. The other HDF interfaces are currently being modified to allow multi-file access, closer integration with the netCDF interface will probably be delayed until the end of that project. Eventually, it may be possible to integrate netCDF objects with the rest of the HDF tool suite. Such an integration will then allow tools written for netCDF and tools written for HDF to both interact intelligently with the new data files. 7: Is netCDF available for the Apple Macintosh? A: Unidata doesn't test or maintain a version of netCDF for Macintoshes, but see the files in the directory pub/netcdf/mac/ on unidata.ucar.edu for notes and Macintosh MPW makefiles for porting netCDF to an Apple Macintosh. These were contributed by Chuck Denham, U.S. Geological Survey. 8: What are some references to netCDF? A: Hard-copies of some of these are available from the Unidata Program Center, P.O. Box 3000, Boulder, CO 80307-3000: Rew, R. K., G. P. Davis, and S. Emmerson, NetCDF User's Guide, An Interface for Data Access, Version 2.3, April 1993. (Available from Unidata or by anonymous FTP from unidata.ucar.edu in the file pub/netcdf/guide.ps.Z) Rew, R. K. and G. P. Davis, "NetCDF: An Interface for Scientific Data Access," IEEE Computer Graphics and Applications, Vol. 10, No. 4, pp. 76-82, July 1990. Rew, R. K. and G. P. Davis, "The Unidata netCDF: Software for Scientific Data Access," Sixth International Conference on Interactive Information and Processing Systems for Meteorology, Oceanography, and Hydrology, Anaheim, California, American Meteorology Society, February 1990. Jenter, H. L. and R. P. Signell, 1992. "NetCDF: A Freely-Available Software-Solution to Data-Access Problems for Numerical Modelers". Proceedings of the American Society of Civil Engineers Conference on Estuarine and Coastal Modeling. Tampa, Florida. (Also available via anonymous FTP from sparky.er.usgs.gov in the file pub/netcdf.asce.ps) Fulker, D. W., "Unidata Strawman for Storing Earth-Referencing Data," Seventh International Conference on Interactive Information and Processing Systems for Meteorology, Oceanography, and Hydrology, New Orleans, La., American Meteorology Society, January 1991. Brown, S. A, M. Folk, G. Goucher, and R. Rew, "Software for Portable Scientific Data Management," Computers in Physics, American Institute of Physics, Vol. 7, No. 3, May/June 1993, pp. 304-308. 9: What are the files in pub/netcdf/ on unidata.ucar.edu? A: File Purpose README general information about netCDF FAQ this file of frequently asked questions utilities.txt a list of software packages currently available or under development for manipulating and displaying netCDF data guide.ps.Z a compressed PostScript file of the NetCDF User's Guide. This is included in the netcdf.tar.Z distribution, so you don't need both. ncprogs.ps a draft PostScript document describing an initial set of netCDF operator and utility programs under development ncprogs.txt an ASCII version of ncprogs.ps conventions.txt a draft document of some proposed netCDF conventions cdl/ a directory containing some examples of CDL files (an ASCII representation for netCDF files). msdos/ a directory containing executables and binaries for netCDF under MSDOS 5.0. These can also be built from the sources in netcdf.tar.Z, if you have the necessary Microsoft compilers. mac/ a directory containing notes and Macintosh MPW makefiles for porting netCDF to an Apple Macintosh. These were contributed by Chuck Denham, U.S. Geological Survey. 10: Why do I get XDR error messages when trying to write data? A: Probably due to a write error, perhaps because of exceeding disk quotas, a full device, or permission problems. The netCDF library is usually built on a vendor-supplied XDR library layer. Sometimes errors occur in the XDR layer rather than the netCDF layer, and in this case the error messages from the XDR layer can be cryptic. For example, if the user is writing data and exceeds a disk space quota, this might be detected first in the XDR layer. Although we try to catch and elaborate on errors that occur in the XDR layer, sometimes there is not enough information passed up to calling routines from the XDR layer to make construction of a meaningful error message possible. 11: What is the best way to represent [some particular data] using netCDF? A: There are many ways to represent the same information in any general-purpose data model. Choices left up to the user in the case of netCDF include which information to represent as variables or as variable attributes; what names to choose for variables, dimensions, and attributes; what order to use for the dimensions of multidimensional variables; what variables to include in the same netCDF file; and how to use variable attributes to capture the structure and meaning of data. We provide some guidelines in the NetCDF User's Guide (e.g Section 2.3.2, ``Differences between Attributes and Variables''), but we've found that a little experience helps. Occasionally we have decided it was useful to change the structure of netCDF files after experience with how the data is used. 12: Are there plans to add facilities for data compression to netCDF? A: We have no plans to add data compression to netCDF (although we do hope to eventually add a form of transparent data packing on write and unpacking on read whenever the reserved attributes "_Nbits", "_Scale", and "_Offset" are defined). Hyperslab access and direct access to individual array values conflict with most simple compression schemes. With netCDF, the elements of an array variable can be filled in any order or as cross-sections in any direction. NetCDF permits writing elements in one order and reading them later in different orders. Some compression methods require that all the data to be compressed are known before starting the compression. Techniques like run-length encoding or anything that depends on exploiting similarities in nearby values can't be used if nearby values aren't all known at the time some of the data are to be written. An alternative that can be implemented above the netCDF library is to adopt a convention for compressed data that uses a "compression" attribute to encode the method of compression, e.g. x:compression = "rle" ; for run-length encoding of the data in a variable x. Then when you write the data, compress them into a bland array of bytes and write all the bytes. Note that it would be difficult to define the size of such a variable in advance, since its compressed size depends on its values. You would also have to give up on hyperslab access for such variables, but instead read the compressed array in all at once and uncompress it before using it. 13: What utilities are available for netCDF? A: The only utilities available in the current netCDF distribution from Unidata are ncdump and ncgen, for converting netCDF files to an ASCII human-readable form and for converting from the ASCII human-readable form back to a binary netCDF file or a C or FORTRAN program for generating the netCDF file. In addition, the first release of the netcdf operators package, containing three general-purpose netCDF operators, is available from unidata.ucar.edu in the file ncopers.tar.Z. See the description of the file utilities.txt in the answer to the question above on important files in /pub/netcdf on unidata.ucar.edu for more information. 14: What is the status of implementing additional netCDF operators? A: Work on additional netCDF operators has been suspended until we can get more programmer resources, due to a higher priority recently placed on development of an event-driven network data distribution system. Volunteers to implement one or more of the netCDF operators are hereby solicited. We will coordinate community efforts to avoid duplication of effort, so before you volunteer to work on one of the planned netCDF operators, please contact support@unidata.ucar.edu to find out if someone else is already working on it. 15: Is there a mailing list for netCDF discussions and questions? A: Yes - there are two. The mailing list netcdfgroup@unidata.ucar.edu has over two hundred readers and gateways; you can subscribe or unsubscribe to the mailing list by sending mail to netcdfgroup-adm@unidata.ucar.edu If you would prefer to get only a single daily digest of the postings to the netcdfgroup mailing list, subscribe instead to the netcdfdigest mailing list by sending a request to netcdfdigest-adm@unidata.ucar.edu All the postings to the netcdfgroup mailing list are archived in the file mail-archives/netcdfgroup available via anonymous FTP from unidata.ucar.edu. 16: How do I make a bug report? A: If you find a bug, send a description to support@unidata.ucar.edu This is also a better address to use for questions or discussions about netCDF that you think are not appropriate for the entire netcdfgroup mailing list. 17: Is there any WAIS or gopher access to netCDF information? A: Yes, `netcdf-group.src' is a WAIS source that provides a full-text search of the netcdfgroup mailing list archive and is registered with think.com for general use. Another WAIS source, `unidata-support-netcdf.src', provides a full-text search of the support questions and answers about netCDF provided by Unidata support staff. Both of these WAIS servers and access to other information about Unidata can be accessed most easily through the Unidata gopher server at gopher.unidata.ucar.edu. 18: How widely is netCDF used? A: The netcdfgroup and netcdfdigest mailing lists have 290 addresses (some of which are aliases to more addresses) in fifteen countries. Several groups have adopted netCDF as a standard way to represent some forms of scientific data. The global ocean modeling effort at Los Alamos National Laboratory (LANL), as part of the DOE CHAMMP effort and one of the DOE Grand Challenges, has selected netCDF as the archival format for its computational data. An effort to bring netCDF up on the parallel disks on the CM-5 is planned to begin shortly. The National Center for Supercomputing Applications has incorporated the netCDF 2.3 interfaces into the latest release of their HDF software, permitting HDF tools that use this interface to be applied to netCDF datasets that are either XDR- or HDF-encoded. The Computer Planning Committee of NOAA's Pacific Marine Environmental Laboratory (PMEL) endorsed netCDF as the preferred data format for the Laboratory in early 1993. PMEL has developed the EPIC system for management, display and analysis of oceanographic time series and hydrographic data. EPIC utilizes netCDF as its primary data format. EPIC toolkits for netCDF include a data file I/O library, which is layered on top of the netCDF library, a netCDF calculator (nccalc) linked with a scientific graphics package (PPLUS), and a suite of display and analysis programs for oceanographic data. Lamont-Doherty Earth Observatory of Columbia University has converted all Marine Geophysics data (gravity, magnetics and bathymetry) acquired in the past 40 years by scientists at L-DEO as well as at other institutions to netCDF. A package of programs to access, maintain and display those files has also been completed. The software package is available via FTP (pub/cdf/MGG_CDF.tar.Z on lamont.ldeo.columbia.edu) The Generic Mapping Tools (GMT), a Unix-based set of tools for data manipulation and display using PostScript, make use of netCDF for storage of 2-D gridded data sets. GMT is used worldwide by about 3000 scientists, according to the developers. The Models-3 Project, being cooperatively pursued by the EPA's Atmospheric Research Laboratory and by North Carolina Supercomputing Center, is using an environmental-modeling-specific applications programming interface on top of UCAR's netCDF as the means for persistent storage of both observational and model-output data, as well as for storing sets of data-file-structure definitions and (prototype, so far) data-dependency graphs for scheduling the sets of programs which constitute their environmental models. A group in the Atmospheric Chemistry Division at NCAR that deals with UARS (Upper Atmospheric Research Satellite) data uses netCDF for their binary data format. Output from NCAR's High Altitude Observatory Division Thermospheric General Circulation Model (TGCM) and related models are converted to netCDF files for post-model visualization and diagnostic codes. NCAR's Research Aviation Facility will use netCDF to distribute all aircraft data, if performance tests on writing high rate data are satisfactory. NCAR's Research Data Program uses netCDF as the primary file format for data archived and used in the "zeb" display and analysis system. Quick look data from various projects is distributed by RDP in netCDF. NetCDF is also the file format used by the (zeb-based) Integrated Sounding System. PolyPaint is an interactive 3D visualization package from NCAR. PolyPaint V 3.4 uses netCDF for data sets, and storage of geometry information. PolyPaint+ alpha-version, being developed jointly by NCAR/MMM and LASP with funding from AISRP/NASA uses netCDF and DataHub from JPL. DataHub from JPL, with funding from AISRP/NASA identifies and converts between a variety of data format, CDF, HDF, MMM/netCDF, FITS, PDS, ... Work is under way to support conversion from a variety of NASA data formats to netCDF used by the PolyPaint+ visualization system from NCAR's MMM division. (JPL Contact for DataHub: Tom Handley, thandley@spacemouse.jpl.nasa.gov) A major component of the US Climate and Global Change program is the TOGA-TAO Array in the tropical Pacific, which proposes to maintain approximately 70 moored ATLAS wind and thermistor chain and current meter buoys, spanning the Pacific ocean from 95W to 137E in the equatorial wave guide. The TAO Project Office, at PMEL, has developed distribution and display software for the real-time data from the TAO buoys, in a point-and-click UNIX workstation environment. This software is distributed nationally and internationally. All data is stored and distributed in netCDF format. All graphics displays and animations are produced with the EPIC tools for working with netCDF data files. The US Geological Survey's Branch of Atlantic Marine Geology uses netCDF to access a variety of scientific data sets, including output from circulation and sediment tranport models, sonar imagery, digital elevation models, and environmental sensor data. It is currently investigating the utility of using netCDF for data distribution on CDROM. At the Woods Hole Oceanographic Institution, netCDF is used in several areas. Ships in the UNOLS fleet are recording measurements from the IMET systems in netCDF form. These data include wind, barometer, humidity, air and sea temperature, precipitation, short wave radiation, and GPS navigation. Data sets from these systems taken during the WOCE experiments in the Pacific have been archived recently at NCAR. Also, measurements from a diverse set of instruments deployed on buoys for the Subduction, TOGA/COARE, and several other experiments are translated into netCDF form for processing and archival. Reports that describe the software systems used for these processing activities are available from WHOI. Scripps Institution of Oceanography (SIO) and the University Corporation for Atmospheric Research (UCAR) conducted a multi-platform climate field project during March of this year based in Nadi, Fiji. All data from this experiment will be archived using Unidata's netCDF before release to the scientific community. The Oregon State University Oceanographic research vessel WECOMA uses the netCDF library for primary scientific data logging. This includes navigational, meteorological, and other miscellaneous data. This logging is part of a client/server system for data distribution, display, and management known as XMIDAS. More details of the system are available from oce.orst.edu in the directory /pub/Wecoma, including a sample netCDF created data file from a Wecoma cruise. NOAA's Forecast System Laboratories have adopted netCDF as a data access interface for some of their systems and applications. A researcher at CSIRO Division of Oceanography in Australia is using netCDF for input and output files for a three dimensional coastal and estuarine hydrodynamic model. A general purpose finite element data model (referred to as EXODUS II) utilizing netCDF has been developed at Sandia National Laboratories. It consists of a C and FORTRAN application programming interface (API) to read and write geometry and results (including time varying data) for finite element analyses. For more information, contact Larry Schoof (laschoo@somnet.sandia.gov). NetCDF is the defacto standard for Analytical Data Interchange and Storage Standards (ADISS) for chromatography and mass spectrometry. NetCDF has been adopted by the Analytical Instrument Association (AIA), which includes all major analytical laboratory instrument vendors worldwide. ADISS supplies the Analytical Information Model on which the information content of these standards is based. The main uses of ADISS/netCDF by end users have been data communications and archival. The AIA Standards Committee is currently developing an ADISS Data Dictionary for infrared spectroscopy. The AIA expects to use netCDF for implementing data interchange. Another committee is developing an ADISS Data Dictionary for nuclear magnetic resonance and magnetic resonance imaging spectroscopy. After sufficient performance testing is completed, netCDF may be used for native storage for NMR, as well as data communications. Testing is expected to be completed at the end of summer 1993. Several commercial analysis and data visualization packages have been adapted to access netCDF data, including Spyglass Dicer, IBM Visualization Data Explorer, Research Systems' IDL, and Wavefront's Data Visualizer. SuperComputer Systems Engineering and Services Company (SSESCO) decided that for all future releases of their scientific visualization software, savi3D, netCDF will be the `native' format. SSESCO has implemented a meta-file layer on top of the netCDF library, called MRAF. It handles multiple netCDF files as well as automatic max-min calculations, time-varying gridded, particle, and discrete data, logical groupings for discrete data, and an overall simplified and flexible interface for storing scientific data. MRAF is being used by the DOE at the Hanford-Meterological Site for observational data and will be used for their weather-modelling. SSESCO is also working with meterologists around the US and France who will be moving to netCDF before the end of the year (mostly users of savi3D). The VISAGE visualization system, developed at the General Electric Corporate Research and Development, (Schroeder, WJ et al, "VISAGE: An Object-Oriented Scientific Visualization System", Proceedings of Visualization `92 Conference) uses netCDF as the preferred format. VISAGE is used at GE Corporate R&D, GE Aircraft Engine, GE Canada, GE Power Generation, as well as ETH Zurich, Switzerland, MQS In Chieti, Italy, and Rensselaer Polytechnic Institute in Troy, New York. GE has another application called "Decimate" that does polygon reduction/decimation (Schroeder,WJ et al, "Decimation of Triangle Meshes", Proceedings of SIGGRAPH `92). Again, this application uses netCDF as a preferred format. Decimate is currently licensed to Cyberware, Inc., makers of 3D laser digitizing hardware. Decimate is currently bundled with the scanners, and will soon be available as a commercial product. libhdf4-4.2.10/HDF_ALT/mfhdf/README0000644000000000000000000001307512421456623013060 0ustar Unidata netCDF was integrated with HDF early in HDF's history. The COPYRIGHT file in this directory is the Unidata netCDF copyright and license file from Version 2.3.2, in 1993. For those interested, the Unidata netCDF README from the same release appears below. Unidata netCDF Version 2.3.2 is the version integrated with this version of HDF. -------------------------------------------------------------------------- Unidata netCDF README -------------------------------------------------------------------------- Unidata netCDF Version 2.3.2 June 1993 The Unidata network Common Data Form (netCDF) is an interface for scientific data access and a freely-distributed software library that provides an implementation of the interface. The netCDF library also defines a machine-independent format for representing scientific data. Together, the interface, library, and format support the creation, access, and sharing of scientific data. The current netCDF software provides common C and FORTRAN interfaces for applications and data. It has been tested on various common platforms, including several versions of UNIX, VMS, MSDOS, and OS/2. NetCDF files are self-describing, network-transparent, directly accessible, and extendible. `Self-describing' means that a netCDF file includes information about the data it contains. `Network-transparent' means that a netCDF file is represented in a form that can be accessed by computers with different ways of storing integers, characters, and floating-point numbers. `Direct-access' means that a small subset of a large dataset may be accessed efficiently, without first reading through all the preceding data. `Extendible' means that data can be appended to a netCDF dataset without copying it or redefining its structure. NetCDF is useful for supporting access to diverse kinds of scientific data in heterogeneous networking environments and for writing application software that does not depend on application-specific formats. A variety of analysis and display packages have been developed to analyze and display data in netCDF form. You can obtain a copy of the latest version of netCDF software using anonymous FTP from host: unidata.ucar.edu file: pub/netcdf/netcdf.tar.Z Included in this distribution are: the C source for the netCDF data access library, sources for the FORTRAN jacket library for various systems, documentation for the netCDF library and utilities in the form of a netCDF User's Guide, source for the netCDF utilities ncdump and ncgen, a directory of test programs to verify the correct implementation of the netCDF library in new environments, and a directory of XDR (eXternal Data Representation) source code for environments that do not support XDR. Other files available for anonymous FTP from the pub/netcdf/ directory of unidata.ucar.edu include README general information about netCDF FAQ Frequently Asked Questions (with answers) about netCDF. utilities.txt a list of software packages currently available or under development for manipulating and displaying netCDF data guide.ps.Z a compressed PostScript file of the NetCDF User's Guide. This is included in the netcdf.tar.Z distribution, so you don't need both. ncprogs.ps a draft PostScript document describing an initial set of netCDF operator and utility programs under development ncprogs.txt an ASCII version of ncprogs.ps conventions.info a draft document of some proposed netCDF conventions cdl/ a directory containing some examples of CDL files (an ASCII representation for netCDF files). msdos/ a directory containing executables and binaries for netCDF under MSDOS 5.0. These can also be built from the sources in netcdf.tar.Z, if you have the necessary Microsoft compilers. mac/ a directory containing notes and Macintosh MPW makefiles for porting netCDF to an Apple Macintosh. These were contributed by Chuck Denham, U.S. Geological Survey. Current netCDF plans include the design and implementation of a C++ interface, implementation of netCDF operator and utility programs, and transparent support for packed netCDF data. A mailing list, netcdfgroup@unidata.ucar.edu, exists for discussion of the netCDF interface and announcements about netCDF bugs, fixes, and enhancements. To subscribe, send a request to netcdfgroup-adm@unidata.ucar.edu An archive of past postings to the netcdfgroup mailing list is available for anonymous FTP from the file mail-archives/netcdfgroup of unidata.ucar.edu. A recent paper that provides a good introduction to the use of netCDF appeared in Jenter, H. L. and R. P. Signell, 1992. "NetCDF: A Freely-Available Software-Solution to Data-Access Problems for Numerical Modelers". Proceedings of the American Society of Civil Engineers Conference on Estuarine and Coastal Modeling. Tampa, Florida. This paper is available via anonymous FTP from host: crusty.er.usgs.gov file: pub/netcdf.asce.ps Specific questions about netCDF that are not of interest to the netcdfgroup mailing list may be sent to support@unidata.ucar.edu. libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/0000755000000000000000000000000012421456623013466 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/CMakeLists.txt0000644000000000000000000000417412421456623016234 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_DUMPER) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) ADD_DEFINITIONS (-DHDF) SET (hdp_SRCS ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_dump.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_gr.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_list.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_rig.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_sds.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_util.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_vd.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/hdp_vg.c ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/show.c ) ADD_EXECUTABLE (hdp ${hdp_SRCS}) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) TARGET_LINK_LIBRARIES (hdp ${HDF4_MF_XDR_LIB_TARGET}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_C_PROPERTIES (hdp " " " ") TARGET_LINK_LIBRARIES (hdp ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) TARGET_NAMING (hdp ${LIB_TYPE}) IF (WIN32) SET_TARGET_PROPERTIES (hdp PROPERTIES LINK_FLAGS "/STACK:10000000") ENDIF (WIN32) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Rules for Installation of tools using make Install target #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (hdp ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS hdp RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_sds.c0000644000000000000000000014556112421456623015272 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)Revision"; #endif /* $Id: hdp_sds.c 5886 2012-10-06 04:23:07Z bmribler $ */ #include #include "mfhdf.h" #include "hdp.h" #ifndef MIPSEL #include #endif /* MIPSEL */ #ifdef H4_HAVE_LIBSZ #include "szlib.h" intn have_szip = 1; #else intn have_szip = 0; #endif #include "cszip.h" #include "local_nc.h" /* to use some definitions */ void dumpsds_usage(intn argc, char *argv[]) { printf("Usage:\n"); printf("%s dumpsds [-k][-a|-i |-r |-n ] [-cdhvs] [-o ] [-bx] \n", argv[0]); printf("\t-k\tDump SDSs in the given order, must be specified before -i/-r/-n\n"); printf("\t-a\tDump all SDSs in the file (default)\n"); printf("\t-i \tDump the SDSs at positions listed in \n"); printf("\t-r \tDump the SDSs with reference number listed in \n"); printf("\t-n \tDump the SDSs with name listed in \n"); printf("\t-d\tDump data only, no tag/ref, formatted to input to hp2hdf\n"); printf("\t-h\tDump header only, no annotation for elements nor data\n"); printf("\t-v\tDump everything including all annotations (default)\n"); printf("\t-c\tPrint space characters as they are, not \\digit\n"); printf("\t-g\tDo not print data of file (global) attributes\n"); printf("\t-l\tDo not print data of local attributes\n"); printf("\t-s\tDo not add carriage return to a long line - dump it as a stream\n"); printf("\t-o \tOutput to file \n"); printf("\t-b\tBinary format of output\n"); printf("\t-x\tAscii text format of output (default)\n"); printf("\t\tList of hdf file names, separated by spaces\n"); } /* end list_usage() */ intn parse_dumpsds_opts(dump_info_t *dumpsds_opts, intn *curr_arg, intn argc, char *argv[]) { intn ret_value = SUCCEED; /* traverse the command and process each option */ #if defined(WIN386) || defined(DOS386) while ((*curr_arg < argc) && ((argv[*curr_arg][0] == '-') || (argv[*curr_arg][0] == '/'))) #else while ((*curr_arg < argc) && (argv[*curr_arg][0] == '-')) #endif /* for the use of / as option on PC */ { switch (argv[*curr_arg][1]) { case 'k': /* dump SDSs in the order they were given */ /* need to document that this option must be provided before any -i, -r, -n */ dumpsds_opts->keep_order = TRUE; (*curr_arg)++; break; case 'a': /* dump all, default */ dumpsds_opts->filter = DALL; /* indicate that no specific SDS requested, will dump all */ dumpsds_opts->num_chosen = NO_SPECIFIC; (*curr_arg)++; break; case 'i': /* dump by index */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given indices in structure all_types */ parse_value_opts(argv, curr_arg, &dumpsds_opts, IS_INDEX); (*curr_arg)++; break; case 'r': /* dump by reference */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given ref numbers in structure all_types */ parse_value_opts(argv, curr_arg, &dumpsds_opts, IS_REFNUM); (*curr_arg)++; break; case 'n': /* dump by names */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given names in structure all_types */ parse_value_opts(argv, curr_arg, &dumpsds_opts, IS_NAME); (*curr_arg)++; break; case 'd': /* dump data only */ dumpsds_opts->contents = DDATA; (*curr_arg)++; break; case 'h': /* no annotations nor data */ dumpsds_opts->contents = DHEADER; (*curr_arg)++; break; case 'v': /* dump all info */ dumpsds_opts->contents = DVERBOSE; (*curr_arg)++; break; case 's': /* do not add carriage returns to output data lines */ dumpsds_opts->as_stream = TRUE; (*curr_arg)++; break; case 'c': /* print space characters as they are, not \digit */ dumpsds_opts->clean_output = TRUE; (*curr_arg)++; break; case 'g': /* suppress file (global) attr data, print its header */ dumpsds_opts->no_gattr_data = TRUE; (*curr_arg)++; break; case 'l': /* suppress local attr data, only print its header */ dumpsds_opts->no_lattr_data = TRUE; (*curr_arg)++; break; case 'o': /* specify output file */ dumpsds_opts->dump_to_file = TRUE; /* Get file name */ HDstrcpy(dumpsds_opts->file_name, argv[++(*curr_arg)]); (*curr_arg)++; break; case 'b': /* dump data in binary */ dumpsds_opts->file_format = DBINARY; (*curr_arg)++; break; case 'x': /* dump data in ascii, also default */ dumpsds_opts->file_format = DASCII; (*curr_arg)++; break; default: /* invalid dumpsds option */ printf("HDP ERROR>>> Invalid dumpsds option %s\n", argv[*curr_arg]); HGOTO_DONE(FAIL); } /* end switch */ } /* end while */ done: if (ret_value == FAIL) { /* Failure cleanup */ /* free the list if it had been allocated */ free_obj_chosen_t_list(&dumpsds_opts->all_types, dumpsds_opts->num_chosen); } /* Normal cleanup */ return (ret_value); } /* end parse_dumpsds_opts */ /* sdsdumpfull prints a single SDS */ int32 sdsdumpfull( int32 sds_id, dump_info_t *dumpsds_opts, int32 rank, int32 dimsizes[], int32 nt, FILE *fp) { /* "rank" is the number of dimensions and "dimsizes[i]" is size of dimension "i". */ int32 j, i; VOIDP buf = NULL; /* holds one row of data */ int32 numtype; int32 eltsz; int32 read_nelts; /* number of elements in one row */ int32 done; /* number of rows we have done */ int32 *left = NULL; int32 *start = NULL; int32 *edge = NULL; intn emptySDS = TRUE; file_format_t ff; intn status = FAIL; int32 status32 = FAIL; int32 ret_value = SUCCEED; /* temp. names for ease of use */ ff = dumpsds_opts->file_format; /* Compute the number of the bytes for each value. */ numtype = nt & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); read_nelts = dimsizes[rank - 1]; /* make sure we are not allocating 0 elements */ CHECK_POS( read_nelts, "read_nelts", "sdsdumpfull" ); CHECK_POS( eltsz, "eltsz", "sdsdumpfull" ); CHECK_POS( rank, "rank", "sdsdumpfull" ); buf = (VOIDP) HDmalloc(read_nelts * eltsz); CHECK_ALLOC( buf, "buf", "sdsdumpfull" ); left = (int32 *) HDmalloc(rank * sizeof(int32)); CHECK_ALLOC( left, "left", "sdsdumpfull" ); start = (int32 *) HDmalloc(rank * sizeof(int32)); CHECK_ALLOC( start, "start", "sdsdumpfull" ); edge = (int32 *) HDmalloc(rank * sizeof(int32)); CHECK_ALLOC( edge, "edge", "sdsdumpfull" ); /* BMR - how come this doesn't have stride as for GR? */ for (i = 0; i < rank; i++) { start[i] = 0; /* Starting location to read the data. */ left[i] = dimsizes[i]; edge[i] = 1; /* Number of values to read in each dimension. */ } /* so that the last edge has many elements as the last dimension??? */ edge[rank - 1] = dimsizes[rank - 1]; /* check if the SDS has data before proceeding if the file is HDF file */ /* see bug HDFFR- regarding non-HDF files */ if (dumpsds_opts->file_type == HDF_FILE) { status32 = SDcheckempty( sds_id, &emptySDS ); if( status32 == FAIL ) ERROR_GOTO_2( "in %s: SDcheckempty failed for sds_id(%d)", "sdsdumpfull", (int) sds_id ); if( emptySDS ) { if( ff == DASCII ) /* what about binary??? - BMR */ fprintf( fp, " No data written.\n" ); HGOTO_DONE( SUCCEED ); /* because the dump for this SDS is */ /* successful although it's empty -> next SDS */ } } /* file is HDF */ /* Should handle the case of rank==0 here. -BMR */ if (rank == 1) { /* If there is only one dimension, then dump the data and the job is done. */ if (FAIL == SDreaddata(sds_id, start, NULL, edge, buf)) { /* If the data set has external element, get the external file name to provide information */ intn extfile_namelen = SDgetexternalfile(sds_id, 0, NULL, NULL); if (extfile_namelen > 0) { char *extfile_name = NULL; extfile_name = (char *)HDmalloc(sizeof(char *)*(extfile_namelen+1)); CHECK_ALLOC(extfile_name, "extfile_name", "sdsdumpfull" ); /* Get the external file information, we don't need offset here */ extfile_namelen = SDgetexternalfile(sds_id, extfile_namelen, extfile_name, NULL); ERROR_GOTO_3( "in %s: SDreaddata failed for sds_id(%d) with external file %s. Please verify the file exists in the same directory.", "sdsdumpfull", (int)sds_id, extfile_name); } else ERROR_GOTO_2( "in %s: SDreaddata failed for sds_id(%d)", "sdsdumpfull", (int)sds_id ); } /* if printing data only, print with no indentation */ if( dumpsds_opts->contents == DDATA ) status = dumpfull(numtype, dumpsds_opts, read_nelts, buf, fp, 0, 0 ); else status = dumpfull(numtype, dumpsds_opts, read_nelts, buf, fp, DATA_INDENT, DATA_CONT_INDENT ); if( FAIL == status ) ERROR_GOTO_2( "in %s: dumpfull failed for sds_id(%d)", "sdsdumpfull", (int)sds_id ); } else if (rank > 1) { done = 0; /* In each iteration, a row in dumped and "left[]" is modified accordingly(?) */ while (!done) { if (FAIL == SDreaddata(sds_id, start, NULL, edge, buf)) { /* If the data set has external element, get the external file name to provide information */ intn extfile_namelen = SDgetexternalfile(sds_id, 0, NULL, NULL); if (extfile_namelen > 0) { char *extfile_name = NULL; extfile_name = (char *)HDmalloc(sizeof(char *)*(extfile_namelen+1)); CHECK_ALLOC(extfile_name, "extfile_name", "sdsdumpfull" ); /* Get the external file information, we don't need offset here */ extfile_namelen = SDgetexternalfile(sds_id, extfile_namelen, extfile_name, NULL); ERROR_GOTO_3( "in %s: SDreaddata failed for sds_id(%d) with external file %s. Please verify the file exists in the same directory.", "sdsdumpfull", (int)sds_id, extfile_name); } else ERROR_GOTO_2( "in %s: SDreaddata failed for sds_id(%d)", "sdsdumpfull", (int)sds_id ); } /* if printing data only, print with no indentation */ if( dumpsds_opts->contents == DDATA ) status = dumpfull(numtype, dumpsds_opts, read_nelts, buf, fp, 0, 0 ); else status = dumpfull(numtype, dumpsds_opts, read_nelts, buf, fp, DATA_INDENT, DATA_CONT_INDENT ); if( FAIL == status ) ERROR_GOTO_2( "in %s: dumpfull failed for sds_id(%d)", "sdsdumpfull", (int)sds_id ); /* Modify the values for "start[]" and "left[]" that are to be used for dumping the next row. */ /* The following index variable "j" starts from "rank-2" because: (1) the range is from 0 to rank-1 (2) each element in dimension rank-1 is just an element in a row which is read in each time, and so we don't have to compute the "start" of it. */ for (j = rank - 2; j >= 0; j--) { /* Examine each dimension. */ if (--left[j] > 0) { /* Proceed in the same dimension; as long as there are elements in this dimension, this loop breaks here after the last element in the current dimension has been subtracted, we substract one for the next lower dimension and reset "left[j]" to be the size of dimension j. */ start[j]++; break; } else { /* Nothing left in the current dimension. So, subtract one from the (j-1)th dimension and reset the value of "left[j]". */ left[j] = dimsizes[j]; start[j] = 0; if (j == 0) done = 1; /* someone added an extra line b/w two dims of data for nice format; this causes 1 extra line at the end of the output but I still don't understand the logic here so I left it alone; just removed the spaces attempting to line up the data. BMR 7/13/00 */ /*if( ff==DASCII && !dumpsds_opts->as_stream )*/ if( ff==DASCII ) if (j == rank - 2) fprintf(fp, "\n"); } } /* for j */ } /* while */ } /* else */ /* add an extra line between two datasets for pretty format this also causes 1 extra line at the end of the output! */ /*if (ff == DASCII && !dumpsds_opts->as_stream )*/ if (ff == DASCII ) fprintf(fp, "\n"); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (edge != NULL) HDfree((VOIDP) edge); if (start != NULL) HDfree((VOIDP) start); if (left != NULL) HDfree((VOIDP) left); if (buf != NULL) HDfree((VOIDP) buf); return ret_value; } /* sdsdumpfull */ /* compose the list of indices of the requested SDSs although some SDSs are requested by ref# or name. The routine returns: - the number of SDSs to be processed, or - NO_SPECIFIC if all SDSs are to be processed, or - 0 if none. If any failure occurs, the parameter index_error will be set to TRUE */ intn get_SDSindex_list( int32 sd_id, dump_info_t *dumpsds_opts, int32 **sds_chosen,/* array of indices of SDSs to be processed */ intn *index_error ) { intn ii; int32 sds_index, /* index of an SDS */ sds_count = 0, /* number of SDSs to be processed */ num_sds_chosen = dumpsds_opts->num_chosen; intn ret_value = 0; /* assume that no SDS will be processed */ /* if no specific datasets are requested, return the SDS count as NO_SPECIFIC (-1) to indicate that all datasets are to be dumped */ if (dumpsds_opts->num_chosen == NO_SPECIFIC) HGOTO_DONE( NO_SPECIFIC ); /* if specific datasets were requested, allocate space for the array of indices */ if (num_sds_chosen > 0) alloc_index_list( sds_chosen, num_sds_chosen ); /* else, no chosen SDSs but filter is not DALL, it shouldn't be this combination, return SDS count as NO_SPECIFIC to dump all */ else HGOTO_DONE( NO_SPECIFIC ); for (ii = 0; ii < num_sds_chosen; ii++) { int jj; /* if the current chosen SDS was requested by its index, store the index in the array sds_chosen */ switch (dumpsds_opts->all_types[ii].type_of_info) { case IS_INDEX: (*sds_chosen)[ii] = dumpsds_opts->all_types[ii].index; sds_count++; break; /* if the current chosen SDS was requested by its ref#, convert the ref# to index and store the index in the array sds_chosen */ case IS_REFNUM: sds_index = SDreftoindex(sd_id, dumpsds_opts->all_types[ii].refnum); if (sds_index == FAIL) { printf( "SDS with reference number %d: not found\n", (int)dumpsds_opts->all_types[ii].refnum); *index_error = TRUE; /* error */ } else { (*sds_chosen)[sds_count] = sds_index; sds_count++; } break; /* if the current chosen SDS was requested by its name, convert the name to index and store the index in the array sds_chosen */ case IS_NAME: sds_index = SDnametoindex(sd_id, dumpsds_opts->all_types[ii].name); /* NOTE: should handle the case of more than one var of the same name too */ if (sds_index == FAIL) { printf( "SDS with name '%s': not found\n", dumpsds_opts->all_types[ii].name); *index_error = TRUE; /* error */ } else { (*sds_chosen)[sds_count] = sds_index; sds_count++; } break; default: fprintf(stderr, "in get_SDSindex_list: Info should only be an index, ref number, or name of an SDS\n"); *index_error = TRUE; /* error */ } /* end switch */ } /* end for loop */ ret_value = sds_count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end of get_SDSindex_list */ /* Displays all SD file attributes */ intn print_SDattrs( int32 sd_id, FILE *fp, int32 n_file_attrs, dump_info_t* dumpsds_opts ) { int32 attr_index, attr_count, attr_nt, attr_buf_size; char attr_name[MAXNAMELEN], *attr_nt_desc = NULL; VOIDP attr_buf=NULL; intn printed = FALSE; /* whether file attr title has been printed */ intn status = FAIL, /* status from a called routine */ ret_value = SUCCEED; /* for each file attribute, print its info and values */ for (attr_index = 0; attr_index < n_file_attrs; attr_index++) { /* get the current attr's name, number type, and number of values */ status = SDattrinfo(sd_id, attr_index, attr_name, &attr_nt, &attr_count); if( status == FAIL ) ERROR_CONT_2( "in %s: SDattrinfo failed for %d'th attribute", "print_SDattrs", (int)attr_index ); /* get number type description of the attribute */ attr_nt_desc = HDgetNTdesc(attr_nt); if (attr_nt_desc == NULL) ERROR_CONT_2( "in %s: HDgetNTdesc failed for %d'th attribute", "print_SDattrs", (int)attr_index ); /* print a title line for file attributes if it's not printed yet and set flag so it won't be printed again */ if( !printed ) { fprintf( fp, "\nFile attributes:\n" ); printed = TRUE; } /* display the attribute's information */ fprintf(fp,"\t Attr%i: Name = %s\n", (int) attr_index, attr_name); fprintf(fp,"\t\t Type = %s \n\t\t Count= %i\n", attr_nt_desc, (int) attr_count); resetBuff((VOIDP) &attr_nt_desc); /* display the attribute's values unless user chose to suppress them or there are no values stored */ if (dumpsds_opts->no_gattr_data == FALSE && attr_count != 0) { /* to be sure that attr_buf is free before reuse since sometimes we have to break the current loop and continue to the next item */ resetBuff( &attr_buf ); /* calculate the buffer size of the attribute using the number of values in the attribute and its value size */ attr_buf_size = DFKNTsize(attr_nt) * attr_count; /* make sure we are not allocating 0 elements */ CHECK_POS( attr_buf_size, "attr_buf_size", "print_SDattrs" ); /* allocate space for the attribute's values */ attr_buf = (VOIDP) HDmalloc(attr_buf_size); /* if allocation fails, handle the failure */ CHECK_ALLOC( attr_buf, "attr_buf", "print_SDattrs" ); /* read the values of the attribute into the buffer attr_buf */ status = SDreadattr(sd_id, attr_index, attr_buf); if( status == FAIL ) ERROR_CONT_2( "in %s: SDreadattr failed for %d'th attribute", "print_SDattrs", (int)attr_index ); fprintf( fp,"\t\t Value = "); /* if the user wishes to have clean output, i.e. option -c is selected - Note that this option is only applicable to DFNT_CHAR type, the option will be ignored for other types */ if( dumpsds_opts->clean_output && attr_nt == DFNT_CHAR ) { status = dumpclean(attr_nt, dumpsds_opts, attr_count, attr_buf, fp); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpclean failed for %d'th attribute", "print_SDattrs", (int)attr_index ); } else /* show tab, lf, null char... in octal as \011, \012, \000... */ { status = dumpfull(attr_nt, dumpsds_opts, attr_count, attr_buf, fp, ATTR_INDENT, ATTR_CONT_INDENT ); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpfull failed for %d'th attribute", "print_SDattrs", (int)attr_index ); } } /* end of if no file attributes */ } /* for each file attribute */ return( ret_value ); } /* end of print_SDattrs */ intn print_SDSattrs( int32 sds_id, int32 nattrs, FILE *fp, dump_info_t *dumpsds_opts) { int32 attr_index, attr_count, attr_nt, attr_buf_size; char attr_name[MAXNAMELEN], *attr_nt_desc = NULL; VOIDP attr_buf=NULL; intn status = FAIL, /* status returned from a called routine */ ret_value = SUCCEED; /* returned value of print_SDSattrs */ /* for each attribute, display its info and data */ for (attr_index = 0; attr_index < nattrs; attr_index++) { /* get the current attr's name, number type, and number of values */ status = SDattrinfo(sds_id, attr_index, attr_name, &attr_nt, &attr_count); if (status == FAIL) ERROR_CONT_2( "in %s: SDattrinfo failed for %d'th attribute", "print_SDSattrs", (int)attr_index ); /* calculate the buffer size of the attribute using the number of values in the attribute and its value size */ attr_buf_size = DFKNTsize(attr_nt|DFNT_NATIVE) * attr_count; /* make sure we are not allocating 0 elements */ CHECK_POS( attr_buf_size, "attr_buf_size", "print_SDSattrs" ); /* get number type description of the attribute */ attr_nt_desc = HDgetNTdesc(attr_nt); if (attr_nt_desc == NULL) ERROR_CONT_2( "in %s: HDgetNTdesc failed for %d'th attribute", "print_SDSattrs", (int)attr_index ); /* display the attribute's information */ fprintf(fp, "\t Attr%d: Name = %s\n", (int) attr_index, attr_name); fprintf(fp, "\t\t Type = %s \n\t\t Count= %d\n", attr_nt_desc, (int) attr_count); /* free buffer and reset it to NULL */ resetBuff((VOIDP) &attr_nt_desc); /* display the attribute's values unless user chose to suppress them or there are no values stored */ if (dumpsds_opts->no_lattr_data == FALSE && attr_count != 0) { /* to be sure that attr_buf is free before reuse since sometimes we have to break the current loop and continue to the next item */ resetBuff( &attr_buf ); /* allocate space for attribute's values */ attr_buf = (VOIDP) HDmalloc(attr_buf_size); CHECK_ALLOC( attr_buf, "attr_buf", "print_SDSattrs" ); /* read the values of the attribute into buffer attr_buf */ status = SDreadattr(sds_id, attr_index, attr_buf); if (status == FAIL) ERROR_CONT_2( "in %s: SDreadattr failed for %d'th attribute", "print_SDSattrs", (int)attr_index ); fprintf(fp, "\t\t Value = "); /* if the user wishes to have clean output, i.e. option -c is selected - Note that this option is only applicable to DFNT_CHAR type, the option will be ignored for other types */ if( dumpsds_opts->clean_output && attr_nt == DFNT_CHAR ) { status = dumpclean(attr_nt, dumpsds_opts, attr_count, attr_buf, fp); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpclean failed for %d'th attribute", "print_SDSattrs", (int)attr_index ); } else /* show tab, lf, null char... in octal as \011, \012, \000... */ { status = dumpfull(attr_nt, dumpsds_opts, attr_count, attr_buf, fp, ATTR_INDENT, ATTR_CONT_INDENT ); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpfull failed for %d'th attribute", "print_SDSattrs", (int)attr_index ); } } /* end of if no local attributes */ } /* for each attribute */ return( ret_value ); } /* end of print_SDSattrs */ void resetSDS( int32 *sds_id, int32 sds_index, char *curr_file_name ) { if( *sds_id != FAIL ) { if( FAIL == SDendaccess( *sds_id )) fprintf(stderr,"SDendaccess failed for %d'th SDS in file %s\n", (int)sds_index, curr_file_name ); *sds_id = FAIL; } } /* end of resetSDS */ /* * Forms a string containing all the szip encoding schemes and other options * that are set in the parameter options_mask. BMR - bugzilla 1202 - Jul, 2008 */ intn option_mask_string(int32 options_mask, char* opt_mask_strg) { intn ret_value = SUCCEED; char numval[10]; strcpy(opt_mask_strg, ""); /* init string to empty string */ /* just in case options_mask is invalid */ if (options_mask == 0) ret_value = FAIL; /* mask options_mask with each szip encoding schemes and options to form the associate option mask string */ if ((options_mask & H4_SZ_ALLOW_K13_OPTION_MASK) != 0) strcpy(opt_mask_strg, "H4_SZ_ALLOW_K13_OPTION_MASK"); if ((options_mask & H4_SZ_CHIP_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_CHIP_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_CHIP_OPTION_MASK"); } if ((options_mask & H4_SZ_EC_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_EC_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_EC_OPTION_MASK"); } if ((options_mask & H4_SZ_LSB_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_LSB_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_LSB_OPTION_MASK"); } if ((options_mask & H4_SZ_MSB_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_MSB_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_MSB_OPTION_MASK"); } if ((options_mask & H4_SZ_NN_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_NN_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_NN_OPTION_MASK"); } if ((options_mask & H4_SZ_RAW_OPTION_MASK) != 0) { if (strlen(opt_mask_strg) > 0) { strcat(opt_mask_strg, "|"); strcat(opt_mask_strg, "H4_SZ_RAW_OPTION_MASK"); } else strcpy(opt_mask_strg, "H4_SZ_RAW_OPTION_MASK"); } /* also print the numerical value of the options mask */ sprintf(numval, " (%d)", options_mask); strcat (opt_mask_strg, numval); return(ret_value); } /* option_mask_string */ /* #endif */ /* * Prints compression method and compression information of a data set. * BMR - bugzilla 1202 - Jul, 2008 */ intn print_comp_info( FILE *fp, int32 sds_id, comp_coder_t *comp_type) { comp_info c_info; /* Compression structure */ int32 comp_size=0, orig_size=0; /* compressed and original sizes */ intn status = FAIL; /* returned status from a called function */ /* get compression info */ HDmemset(&c_info, 0, sizeof(c_info)); status = SDgetcompinfo(sds_id, comp_type, &c_info); /* if getting comp info succeeds, proceed to print out appropriate compression information */ if (status != FAIL) { /* print compression method or "NONE" */ fprintf(fp, "\t Compression method = %s\n", comp_method_txt(*comp_type)); switch (*comp_type) { case COMP_CODE_SKPHUFF: fprintf(fp, "\t\t Skipping unit size = %d\n", c_info.skphuff.skp_size); break; case COMP_CODE_DEFLATE: fprintf(fp, "\t\t Deflate level = %d\n", c_info.deflate.level); break; case COMP_CODE_SZIP: { char mask_strg[160]; /* 160 is to cover all options and number val*/ if (option_mask_string(c_info.szip.options_mask, mask_strg) != FAIL) fprintf(fp, "\t\t Option mask = %s\n", mask_strg); else fprintf(fp, "\t\t Option mask might be invalid = %d\n", (int)c_info.szip.options_mask); fprintf(fp, "\t\t Pixels per block = %d\n", (int)c_info.szip.pixels_per_block); fprintf(fp, "\t\t Pixels per scanline = %d\n", (int)c_info.szip.pixels_per_scanline); fprintf(fp, "\t\t Bits per pixel = %d\n", (int)c_info.szip.bits_per_pixel); fprintf(fp, "\t\t Pixels = %d\n", (int)c_info.szip.pixels); break; } default: /* nothing */ break; } /* switch */ } else fprintf(fp, "\t Compression method = \n"); /* print compression ratio */ if (*comp_type != COMP_CODE_NONE) { status = SDgetdatasize(sds_id, &comp_size, &orig_size); if (status != FAIL) { /* calculate and print compression ratio */ if (comp_size > 0 && orig_size > 0) { double orig=orig_size, comp=comp_size, ratio = 0.00; ratio = orig/comp; fprintf(fp, "\t Compression ratio (original:compressed) = %.2f:1\n", ratio); } else if (comp_size == 0 && orig_size == 0) { fprintf(fp, "\t Compression ratio = \n"); } return(status); } /* print_comp_info */ /* printSDS_ASCII prints all of the requested SDSs in the file */ intn printSDS_ASCII( int32 sd_id, dump_info_t *dumpsds_opts, int32 sds_index, /* index of the SDS */ FILE *fp ) { int32 sds_id = FAIL, /* SDS id, always reset to FAIL when not used */ sds_ref, /* ref# of an SDS */ dim_id = FAIL, /* id of an SDS dimension */ rank, /* number of dimensions of an SDS */ nt, /* number type of an SDS */ nattrs, /* # of attributes assigned to an SDS */ dimsizes[MAXRANK], /* SDS dimensions */ dimNT[MAXRANK], /* number type of dimension */ dimnattr[MAXRANK]; /* # of attributes of a dim */ char dim_nm[MAXNAMELEN], /* dimension name */ *sdsname = NULL, /* SDS name */ *nt_desc = NULL, /* SDS's or dim's num type description */ *attr_nt_desc = NULL, /* attr's nt description */ curr_file_name[MAXFNLEN]; /* curr hdf file name */ uint16 name_len=0; comp_coder_t comp_type = COMP_CODE_NONE; intn isdimvar, /* TRUE if curr SDS is used for a dim */ j, status = FAIL, /* status returned from a routine */ ret_value = SUCCEED; /* returned value of printSDS_ASCII */ /* Reset variables. */ HDmemset(dimsizes, 0, sizeof(int32) * MAXRANK); HDmemset(dimNT, 0, sizeof(int32) * MAXRANK); HDmemset(dimnattr, 0, sizeof(int32) * MAXRANK); /* get access to the current dataset */ sds_id = SDselect(sd_id, sds_index); if (sds_id == FAIL) ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDselect", (int)sds_index ); status = SDgetnamelen(sds_id, &name_len); if( FAIL == status ) { ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDgetnamelen", (int)sds_index ); } /* allocate space for sds name */ sdsname = (char *) HDmalloc(name_len+1); CHECK_ALLOC( sdsname, "sdsname", "printSDS_ASCII" ); /* get dataset's information */ status = SDgetinfo(sds_id, sdsname, &rank, dimsizes, &nt, &nattrs); if( status == FAIL ) { ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDgetinfo", (int)sds_index ); } /* BMR: it seems like this whole block of code is to get number type of dim0, all the other info will be discarded */ isdimvar = (SDiscoordvar(sds_id)) ? TRUE : FALSE; if (isdimvar) { /* use dim0 nt instead of dimvar nt, because when no dim values dimvar nt was set to float32 by default */ int32 size, num_attrs; /* get dimension id for accessing */ dim_id = SDgetdimid(sds_id, 0); if( dim_id == FAIL ) { ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDgetdimid", (int)sds_index ); } /* get information of current dimension */ if( SDdiminfo(dim_id, NULL, &size, &nt, &num_attrs) == FAIL ) { ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDdiminfo", (int)sds_index ); } } /* print the current SDS's as specified by user's options */ switch (dumpsds_opts->contents) { case DVERBOSE: case DHEADER: nt_desc = HDgetNTdesc(nt); if (nt_desc == NULL) { ERROR_BREAK_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "HDgetNTdesc", (int)sds_index, FAIL ); /* did this one fail on allocation and need exit(1)? */ } /* Note: a variable can be used to hold an SDS or a dimension. */ /* display dimension info if the variable is used to contain a dimension */ if (isdimvar) { fprintf(fp, "\nDimension Variable Name = %s\n\t ", sdsname); fprintf(fp, "Index = %d\n\t Scale Type= %s\n", (int)sds_index, nt_desc); } /* display the SDS info, otherwise */ else { fprintf(fp, "\nVariable Name = %s\n\t Index = ", sdsname); fprintf(fp, "%d\n\t Type= %s\n", (int)sds_index, nt_desc); } resetBuff((VOIDP) &nt_desc ); /* done with nt_desc */ /* If the current file is not a netCDF, print the SDS' ref# and compression information */ if(dumpsds_opts->file_type == HDF_FILE) { /* get SDS's ref# from its id */ sds_ref = SDidtoref(sds_id); if (sds_ref == FAIL) ERROR_BREAK_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDidtoref", (int)sds_index, FAIL ); fprintf(fp, "\t Ref. = %d\n", (int) sds_ref); /* print compression method and info or "NONE" */ status = print_comp_info(fp, sds_id, &comp_type); if (status == FAIL) { ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "print_comp_info", (int)sds_index ); } } fprintf(fp, "\t Rank = %d\n\t Number of attributes = %d\n", (int) rank, (int) nattrs); /* print each dimension of the current SDS */ for (j = 0; j < rank; j++) { int32 size; /* size of the current dimension */ /* get current dimension id for access */ if (FAIL == (dim_id = SDgetdimid(sds_id, j))) ERROR_BREAK_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "SDgetdimid", (int)sds_index, FAIL ); /* get information of current dimension */ ret_value = SDdiminfo(dim_id,dim_nm,&size,&(dimNT[j]),&(dimnattr[j])); if (FAIL == ret_value ) ERROR_BREAK_4( "in %s: %s failed for %d'th dimension of %d'th SDS", "printSDS_ASCII", "SDdiminfo", j, (int)sds_index, FAIL ); fprintf(fp, "\t Dim%d: Name=%s\n", (int) j, dim_nm); if (size == 0) { fprintf(fp, "\t\t Size = UNLIMITED "); fprintf(fp, "(currently %d)\n", (int) dimsizes[j]); } else fprintf(fp, "\t\t Size = %d\n", (int) dimsizes[j]); /* don't print type and # of attrs for dim var */ if (isdimvar == 0) { attr_nt_desc = HDgetNTdesc(dimNT[j]); if (attr_nt_desc == NULL) ERROR_BREAK_4( "in %s: %s failed for %d'th dimension of %d'th SDS", "printSDS_ASCII", "HDgetNTdesc", j, (int)sds_index, FAIL); fprintf(fp, "\t\t Scale Type = %s\n", attr_nt_desc); fprintf(fp, "\t\t Number of attributes = %d\n", (int) dimnattr[j]); resetBuff((VOIDP) &attr_nt_desc); } } /* end each for dimension */ /* print dataset's attributes */ status = print_SDSattrs(sds_id, nattrs, fp, dumpsds_opts); if( status == FAIL ) ERROR_BREAK_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "print_SDSattrs", (int)sds_index, FAIL ); /* header only, don't go into case DDATA */ if (dumpsds_opts->contents == DHEADER) break; /* case DDATA doesn't need this */ fprintf(fp, "\t Data : \n"); case DDATA: if (comp_type == COMP_CODE_SZIP && have_szip == 0) { fprintf(fp, "\t\t \n"); fprintf(fp, "\t\t \n"); } else { if (rank > 0 && dimsizes[0] != 0) { if (!isdimvar || nt != 0) { /* no dump if dimvar w/o scale values */ status = sdsdumpfull( sds_id, dumpsds_opts, rank, dimsizes, nt, fp); if( FAIL == status ) ERROR_BREAK_3( "in %s: %s failed for %d'th SDS", "printSDS_ASCII", "sdsdumpfull", (int)sds_index, FAIL ); } } } break; default: printf("Output format must be either -d, -h, or -v only.\n"); } /* switch */ resetSDS( &sds_id, sds_index, curr_file_name ); /* end access to current SDS */ SAFE_FREE(sdsname); done: if (ret_value == FAIL) { /* Failure cleanup */ if (sds_id != FAIL) SDendaccess(sds_id); SAFE_FREE(sdsname); } /* Normal cleanup */ return ret_value; } /* end of printSDS_ASCII() */ intn printSDS_BINARY( int32 sd_id, dump_info_t *dumpsds_opts, int32 sds_index, /* index of the SDS */ FILE *fp ) { int32 sds_id=FAIL, dimsizes[MAXRANK], rank, nt, nattrs; char curr_file_name[MAXFNLEN]; comp_coder_t comp_type=COMP_CODE_NONE; intn status=FAIL, ret_value=SUCCEED; /* temp. names for file type and curr input file name for ease of use */ HDstrcpy( curr_file_name, dumpsds_opts->ifile_name ); /* Reset variable */ HDmemset(dimsizes, 0, sizeof(int32) * MAXRANK); sds_id = SDselect(sd_id, sds_index); if (sds_id == FAIL) ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_BINARY", "SDselect", (int)sds_index ); status = SDgetinfo(sds_id, NULL, &rank, dimsizes, &nt, &nattrs); if( FAIL == status ) { resetSDS( &sds_id, sds_index, curr_file_name ); ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_BINARY", "SDgetinfo", (int)sds_index ); } /* get compression method and if szipped compressed data is being read, make sure that szip library is available before reading */ status = SDgetcomptype(sds_id, &comp_type); if (comp_type == COMP_CODE_SZIP && have_szip == 0) { fprintf(fp, "\t\t \n"); fprintf(fp, "\t\t \n"); } else { /* can output data to binary file */ if (rank > 0 && dimsizes[0] != 0) { status = sdsdumpfull(sds_id, dumpsds_opts, rank, dimsizes, nt, fp); if( FAIL == status ) ERROR_GOTO_3( "in %s: %s failed for %d'th SDS", "printSDS_BINARY", "sdsdumpfull", (int)sds_index ); } } /* can output data */ resetSDS( &sds_id, sds_index, curr_file_name ); done: if (ret_value == FAIL) { /* Failure cleanup */ if (sds_id != FAIL) SDendaccess(sds_id); } /* Normal cleanup */ return ret_value; } /* end of printSDS_BINARY */ intn dsd(dump_info_t *dumpsds_opts, intn curr_arg, intn argc, char *argv[]) { int32 sd_id=FAIL, *sds_chosen=NULL, num_sds_chosen, ndsets, n_file_attrs; char file_name[MAXFNLEN]; FILE *fp=NULL; file_format_t ff = dumpsds_opts->file_format; intn index_error=0, ii, status=FAIL, ret_value=SUCCEED; /* check for missing input file name */ if( curr_arg >= argc ) { fprintf( stderr, "Missing input file name. Please try again.\n"); return( FAIL ); /* nothing to be cleaned up at this point */ } /* going through each input file, open the file, try to compose the list of indices of the SDSs in the file that are requested, then read and display information and data of each SDS in the specified manner */ while (curr_arg < argc) { HDstrcpy(file_name, argv[curr_arg]); /* get current file name */ HDstrcpy( dumpsds_opts->ifile_name, file_name ); /* record file name */ curr_arg++; /* move argument pointer forward */ if (HDisnetcdf(file_name)) /* record if file is netCDF */ dumpsds_opts->file_type = netCDF_FILE; else if (Hishdf(file_name)) /* record if file is HDF */ dumpsds_opts->file_type = HDF_FILE; else { /* if there are no more files to be processed, print informative message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dsd: %s is not an HDF or netCDF file", file_name);} else /* print message, then continue processing the next file */ {ERROR_CONT_1( "in dsd: %s is not an HDF or netCDF file", file_name);} } /* open current hdf file with error check, if fail, go to next file */ sd_id = SDstart(file_name, DFACC_RDONLY); if (sd_id == FAIL) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dsd: Failure in opening file %s", file_name);} else /* print message, then continue processing the next file */ ERROR_CONT_1( "in dsd: Failure in opening file %s", file_name ); } /* compose the list of indices of SDSs to be processed in the current file: sds_chosen is the list and return value is the number of items in the list */ num_sds_chosen = get_SDSindex_list( sd_id, dumpsds_opts, &sds_chosen, &index_error ); /* if there are errors with the given indices, ref#s, or names of the requested datasets, and so the input yields no valid datasets, then close the interface and the input file, and move on to the next file */ if (index_error && num_sds_chosen == 0) { if(sds_chosen!=NULL) { HDfree(sds_chosen); sds_chosen=NULL; } /* end if */ if( FAIL == SDend(sd_id)) fprintf( stderr, "in dsd: SDend failed in closing file %s\n", file_name ); continue; /* to the next file */ } /* end if */ /* obtain number of datasets in the file and number of file attributes, ndsets will be used to process the datasets, n_file_attrs will be used to print file attributes */ status = SDfileinfo(sd_id, &ndsets, &n_file_attrs); if (status == FAIL) ERROR_GOTO_2( "in dsd: %s failed for file %s", "SDfileinfo", file_name); fp = stdout; /* assume no output file given */ /* ASCII or binary dump? */ switch( ff ) { case DASCII: /* ASCII file */ /* open output file for ASCII or direct to standard output */ if (dumpsds_opts->dump_to_file) fp = fopen(dumpsds_opts->file_name, "w"); /* display the name and global attributes of the current file if data only option is not selected */ if (dumpsds_opts->contents != DDATA) { fprintf(fp, "File name: %s \n", file_name); /* print SD file attributes */ status = print_SDattrs( sd_id, fp, n_file_attrs, dumpsds_opts ); if( status == FAIL ) ERROR_CONT_2( "in dsd: %s failed for file %s", file_name, "print_SDattrs" ); } /* If the user requests to dump the SDSs in the order they were given, -k given */ if (dumpsds_opts->keep_order) { for (ii = 0; ii < num_sds_chosen; ii++) { /* Print the current SDS in ASCII format */ status = printSDS_ASCII(sd_id, dumpsds_opts, sds_chosen[ii], fp); if( status == FAIL ) fprintf( stderr, "HDP ERROR>>> in dsd: %s failed for file %s\n", "printSDS_ASCII", file_name ); } } /* if: -k given */ else /* no -k */ { int32 sds_count, sds_index; intn dumpall = FALSE; /* if only specific datasets were requested, sort the list to dump them in index order */ if (num_sds_chosen == NO_SPECIFIC ) dumpall = TRUE; else sort(sds_chosen, num_sds_chosen); sds_count = 0; /* no SDS has been processed yet */ /* For each index, if the user requests to dump all SDSs or if there are more requested SDSs, process the curr SDS */ for (sds_index = 0; sds_index < ndsets /* validate index */ && (dumpall /* either all datasets are dumped or */ || sds_count < num_sds_chosen);/* or more requested SDSs */ sds_index++) { /* If the user neither requests dump all nor the current SDS */ if ((!dumpall) && (sds_index != sds_chosen[sds_count])) continue; /* skip */ /* Count the # of datasets being processed */ sds_count++; /* Print the current SDS in ASCII format */ status = printSDS_ASCII(sd_id, dumpsds_opts, sds_index, fp); if( status == FAIL ) fprintf(stderr, "HDP ERROR>>> in dsd: %s failed for file %s\n", "printSDS_ASCII", file_name ); } } /* else: no -k */ /* Close output file only if option -o is given */ if (dumpsds_opts->dump_to_file) fclose(fp); break; case DBINARY: /* binary file */ /* Get output file name */ if (dumpsds_opts->dump_to_file) fp = fopen(dumpsds_opts->file_name, "wb"); /* If the user requests to dump the SDSs in the order they were given, -k given */ if (dumpsds_opts->keep_order) { for (ii = 0; ii < num_sds_chosen; ii++) { /* Print the current SDS in BINARY format */ status = printSDS_BINARY(sd_id, dumpsds_opts, sds_chosen[ii], fp); if( status == FAIL ) fprintf( stderr, "HDP ERROR>>> in dsd: %s failed for file %s\n", "printSDS_BINARY", file_name ); } } /* if: -k given */ else /* no -k */ { int32 sds_count, sds_index; intn dumpall = FALSE; /* if only specific datasets were requested, sort the list to dump them in index order */ if (num_sds_chosen == NO_SPECIFIC ) dumpall = TRUE; else sort(sds_chosen, num_sds_chosen); sds_count = 0; /* no SDS has been processed yet */ /* For each index, if the user requests to dump all SDSs or if there are more requested SDSs, process the curr SDS */ for (sds_index = 0; sds_index < ndsets /* validate index */ && (dumpall /* either all datasets are dumped or */ || sds_count < num_sds_chosen);/* or more requested SDSs */ sds_index++) { /* If the user neither requests dump all nor the current SDS */ if ((!dumpall) && (sds_index != sds_chosen[sds_count])) continue; /* skip */ /* Count the # of datasets being processed */ sds_count++; /* Print the current SDS in BINARY format */ status = printSDS_BINARY(sd_id, dumpsds_opts, sds_index, fp); if( status == FAIL ) fprintf(stderr, "HDP ERROR>>> in dsd: %s failed for file %s\n", "printSDS_BINARY", file_name ); } } /* else: no -k */ /* Close output file only if option -o is given */ if (dumpsds_opts->dump_to_file) fclose(fp); break; default: printf("Output file type must be either ascii or binary only\n"); } /* switch for output file */ if (sds_chosen != NULL) { HDfree(sds_chosen); sds_chosen = NULL; } /* end if */ if (FAIL == SDend(sd_id)) ERROR_CONT_1( "in dsd: SDend failed for file %s", file_name ); sd_id = FAIL; /* reset */ } /* while processing files */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (sd_id != FAIL) SDend(sd_id); if (fp != NULL && fp != stdout) fclose(fp); SAFE_FREE(sds_chosen); } /* Normal cleanup */ return ret_value; } /* dsd */ /* Exported */ intn do_dumpsds(intn curr_arg, intn argc, char *argv[], intn help ) { dump_info_t dumpsds_opts; /* dumpsds options */ intn status=FAIL, ret_value=SUCCEED; /* initialize the structure that holds user's options and inputs */ init_dump_opts(&dumpsds_opts); /* command line: hdp help */ if (help == TRUE) { dumpsds_usage(argc, argv); goto done; } /* end if */ /* incomplete command */ if( curr_arg >= argc ) { dumpsds_usage(argc, argv); ERROR_GOTO_0( "in do_dumpsds: command is incomplete"); } /* end if */ /* parse the user's command and store the inputs in dumpsds_opts */ status = parse_dumpsds_opts( &dumpsds_opts, &curr_arg, argc, argv ); if( status == FAIL ) { dumpsds_usage(argc, argv); ret_value = FAIL; /* so caller can be traced in debugging */ goto done; /* skip dsd */ } /* display data and information as specified in dumpsds_opts */ status = dsd( &dumpsds_opts, curr_arg, argc, argv ); if( status == FAIL ) ERROR_GOTO_0( "in do_dumpsds: dsd failed" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free the list of structs containg info of selected SDSs */ free_obj_chosen_t_list(&dumpsds_opts.all_types, dumpsds_opts.num_chosen); return ret_value; } /* end do_dumpsds() */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp.h0000644000000000000000000005644412421456623014427 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5706 $"; #endif /* $Id: hdp.h 5706 2011-11-01 18:23:02Z bmribler $ */ #ifndef __HDP_H #define __HDP_H #include "hdf.h" #include "hfile.h" /* Global Variables (ick) */ #ifndef HDP_MASTER extern #endif /* !HDP_MASTER */ intn vinit_done #ifdef HDP_MASTER = FALSE /* indicates Vsets have been init'ed for the current file */ #endif /* HDP_MASTER */ ; /* Global Definitions */ #define MAXCHOICES 50 #ifndef MAXNAMELEN #define MAXNAMELEN 100 #endif /* !MAXNAMELEN */ #define MAXCLASSLEN 100 #define MAXPERLINE 65 /* max # of chars per line in the output */ #define MAXRANK 100 #define MAXFNLEN 256 #define CONDENSE 1 #define NO_SPECIFIC -1 /* no specific datasets are requested */ #define ATTR_INDENT 0 /* # of spaces in front of attribute data */ #define ATTR_CONT_INDENT 25 /* # of spaces in front of attribute data on a continuous line */ #define DATA_INDENT 16 /* # of spaces in front of dataset data */ #define DATA_CONT_INDENT 16 /* # of spaces in front of dataset data on a continuous line */ /* Free a char pointer if it's not NULL, then set it to NULL */ #define SAFE_FREE(ptr) { \ if (ptr != NULL) \ { HDfree((VOIDP)ptr); \ ptr = NULL; }} /* ERROR_GOTO_n macros are used to facilitate error printing. Each macro prints the given message to the stderr, then uses the HDF library macro HGOTO_DONE to set the variable ret_value to FAIL and jump to label "done" ERROR_GOTO_0 is used for fprintf with no parameters. ERROR_GOTO_1 is used for fprintf with 1 parameter. ERROR_GOTO_2 is used for fprintf with 2 parameters. ERROR_GOTO_3 is used for fprintf with 3 parameters. ERROR_GOTO_4 is used for fprintf with 4 parameters. ERROR_GOTO_5 is used for fprintf with 5 parameters. ERROR_GOTO_6 is used for fprintf with 6 parameters. */ #define ERROR_GOTO_0(txt) { \ fprintf(stderr, "\nHDP ERROR>>> %s", txt); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_1(txt, par1 ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1 ); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_2(txt, par1, par2) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_3(txt, par1, par2, par3) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_4(txt, par1, par2, par3, par4) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3, par4); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_5(txt, par1, par2, par3, par4, par5) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3, par4, par5); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } #define ERROR_GOTO_6(txt, par1, par2, par3, par4, par5, par6) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3, par4, par5, par6); \ fprintf(stderr, ".\n"); \ HGOTO_DONE( FAIL ); } /* ERROR_CONT_n macros are used to facilitate error printing. Each macro prints the given message to the stderr, then "continue"s. Note: at this time, set ret_value to FAIL, but if it turns out that there are cases where ret_value should be SUCCEED, then add another argument 'ret' (=FAIL/SUCCEED) to set ret_value to appropriate value. Note: having extra \n after Continued. separates the following output from the error messages. ERROR_CONT_0 is used for fprintf with no parameters. ERROR_CONT_1 is used for fprintf with 1 parameter. ERROR_CONT_2 is used for fprintf with 2 parameters. ERROR_CONT_3 is used for fprintf with 3 parameters. ERROR_CONT_4 is used for fprintf with 4 parameters. ERROR_CONT_5 is used for fprintf with 5 parameters. ERROR_CONT_6 is used for fprintf with 6 parameters. */ #define ERROR_CONT_0(txt) { \ fprintf(stderr, "\nHDP ERROR>>> ", txt ); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ continue; } #define ERROR_CONT_1(txt, par1 ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1 ); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ continue; } #define ERROR_CONT_2(txt, par1, par2 ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ continue; } #define ERROR_CONT_3(txt, par1, par2, par3 ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ continue; } #define ERROR_CONT_4(txt, par1, par2, par3, par4 ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3, par4); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ continue; } /* ERROR_CONT_END is used to facilitate error handling when an error occurs on a vdata. It prints the provided error message to the stderr, end access to the vdata, then continue */ #define ERROR_CONT_END(txt, par1, par2, vd_id ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2 ); \ fprintf(stderr, ". Continued.\n\n"); \ ret_value = FAIL; \ VSdetach(vd_id); \ vd_id = FAIL; /* reset */ \ continue; } /* ERROR_BREAK_n macros are used to facilitate error printing. Each macro prints the given message to the stderr, then sets the variable ret_value to the given value and "break"s. ERROR_BREAK_0 is used for fprintf with no parameters. ERROR_BREAK_1 is used for fprintf with 1 parameter. ERROR_BREAK_2 is used for fprintf with 2 parameters. ERROR_BREAK_3 is used for fprintf with 3 parameters. ERROR_BREAK_4 is used for fprintf with 4 parameters. ERROR_BREAK_5 is used for fprintf with 5 parameters. ERROR_BREAK_6 is used for fprintf with 6 parameters. */ #define ERROR_BREAK_0(txt, ret) { \ fprintf(stderr, "\nHDP ERROR>>> %s", txt); \ fprintf(stderr, ".\n"); \ ret_value = ret; \ break; } #define ERROR_BREAK_1(txt, par1, ret ) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1 ); \ fprintf(stderr, ".\n"); \ ret_value = ret; \ break; } #define ERROR_BREAK_2(txt, par1, par2, ret) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2); \ fprintf(stderr, ".\n"); \ ret_value = ret; \ break; } #define ERROR_BREAK_3(txt, par1, par2, par3, ret) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3 ); \ fprintf(stderr, ".\n"); \ ret_value = ret; \ break; } #define ERROR_BREAK_4(txt, par1, par2, par3, par4, ret) { \ fprintf(stderr, "\nHDP ERROR>>> "); \ fprintf(stderr, txt, par1, par2, par3, par4 ); \ fprintf(stderr, ".\n"); \ ret_value = ret; \ break; } /* ERROR_NOTIFY macros are used to display a failure but does not do anything else except setting ret_value to FAIL so that the failure can be traced back to the caller. */ #define ERROR_NOTIFY_2(txt, par1, par2) { \ fprintf(stderr, "\nHDP ERROR>>> " ); \ fprintf(stderr, txt, par1, par2 ); \ fprintf(stderr, ".\n"); \ ret_value = FAIL; } #define ERROR_NOTIFY_3(txt, par1, par2, par3) { \ fprintf(stderr, "\nHDP ERROR>>> " ); \ fprintf(stderr, txt, par1, par2, par3 ); \ fprintf(stderr, ".\n"); \ ret_value = FAIL; } /* CHECK_POS makes sure that number is > 0 so we are not going to allocate 0 elements. Macro is used here instead of function call so if we decide to change exit(1) to goto done and return FAIL, it will be possible */ #define CHECK_POS( number, buf_size_name, func_name ) { \ if( number <= 0 ) { \ fprintf(stderr, "in %s: Attempting to allocate 0 items using '%s'!\n",\ func_name, buf_size_name ); \ exit(1); } \ } /* CHECK_ALLOC macro validates that 'buffer' has been successfully allocated; if the allocation fails, exit the application after displaying an appropriate message. Macro is used here to simplify the validation and to facilitate maintenance, i.e., if decide to change from exit(1) to goto "done" and return with FAIL in all allocation failure cases, it will be possible. */ #define CHECK_ALLOC(buffer, buf_name, func_name ) { \ if (buffer == NULL) {\ fprintf(stderr,"in %s: space allocation for %s failed. Terminated!\n",\ func_name, buf_name ); \ exit(1); } \ } /* Add enum and string for new commands to both of the variables below. */ /* Preserve the correct/corresponding ordering */ typedef enum { HELP, LIST, DUMPSDS, DUMPRIG, DUMPVG, DUMPVD, DUMPGR, NONE } command_t; #ifndef HDP_MASTER extern #endif /* !HDP_MASTER */ const char *commands[] #ifdef HDP_MASTER = { "help", "list", "dumpsds", "dumprig", "dumpvg", "dumpvd", "dumpgr" } #endif /* HDP_MASTER */ ; /* Global options structure */ typedef struct { intn help; /* Print help on this command */ } dump_opt_t; typedef enum { OTAG, OFILE, OGROUP, ONAME } sort_t; /* The order tag/refs are sorted */ /* 'list' command option structure */ typedef struct { sort_t order; /* The sort order tag/refs are printed in */ enum { VSHORT, VLONG, VDEBUG } verbosity; /* verbosity level of list */ enum { LNONE, LTAGNUM, LTAGNAME, LGROUP } limit; /* How to limit tag/refs */ intn class; /* Whether to dump class information */ intn name; /* Whether to dump name information */ intn desc; /* Whether to dump description information */ intn spec; /* Whether to dump special element information */ intn group; /* Whether to dump group information */ uint16 limit_tag; /* tag # to limit search to */ char *limit_name; /* tag name to limit search to */ } list_info_t; /* Which dataset to dump */ /* BMR: added defined values to fix exclusive problem - 1/23/99 */ typedef enum { DALL=0, DINDEX=1, DREFNUM=2, DNAME=4, DCLASS=8, DFIELDS=16 } filter_t; /* What type of information being stored */ typedef enum { INVALID=0, IS_INDEX, IS_REFNUM, IS_NAME, IS_CLASS, IS_FIELD } info_type_t; /* Which contents to dump */ typedef enum { DVERBOSE, DHEADER, DDATA } content_t; /* What kind of data to dump to file */ typedef enum { DASCII, DBINARY } file_format_t; /* BMR: numerical filter structure; used to hold a list of indices or reference numbers and the number of indices or reference numbers given - 1/23/99 */ typedef struct { int32 *num_list; int32 num_items; } number_filter_t; /* BMR: character filter structure; used to hold a list of names or class names and the number of names or class names given - 1/23/99 */ typedef struct { char **str_list; int32 num_items; } char_filter_t; typedef struct { int index; int refnum; char *name; char *classname; info_type_t type_of_info; } obj_chosen_t; /* 'dumpsds' command option structure */ /* BMR: added fields to hold indices, reference numbers, names, and classes separately - 1/23/99 */ typedef struct { filter_t filter; /* which data object to dump */ intn *filter_num; /* ref #'s or indices to use as filter */ char **filter_str; /* names or classes to use as filter */ number_filter_t by_index; /* data objects requested by index */ number_filter_t by_ref; /* data objects requested by reference number */ char_filter_t by_name; /* data objects requested by name */ char_filter_t by_class; /* data objects requested by class name */ char_filter_t by_field; /* data objects requested by field - only VD */ obj_chosen_t *all_types; /* list of all datasets chosen and in the order specified by the user */ int32 num_chosen; /* number of items specified at command line, which can be different from the number of objects being printed due to multiple objects of the same name or class name (-1==NO_SPECIFIC) */ content_t contents; /* what contents to dump */ intn keep_order; /* whether to dump the datasets in the same order as specified by the user */ intn dump_to_file; /* whether to dump to a file */ file_format_t file_format; /* Is data written in ASCII or binary */ intn as_stream; /* whether carriage return added to output data lines */ intn clean_output; /* whether to print space characters as they are or to print in \digit format */ intn firstln_indent; /* col# where data starts on the first line*/ intn contln_indent; /* col# where data continues on the next line*/ char file_name[MAXFNLEN];/* Name of file to dump into */ char ifile_name[MAXFNLEN];/* Name of input file being processed */ intn print_pal; /* for GR only: TRUE if option -p selected */ gr_interlace_t interlace; /* user's choice of interlace mode to print data in */ intn no_lattr_data; /* GR & SD only: TRUE if option -l selected */ intn no_gattr_data; /* GR & SD only: TRUE if option -g selected */ intn file_type; /* netCDF, HDF, or other, which hdp doesn't process */ } dump_info_t; /* Filename list structure */ typedef struct { intn max_files; /* the number of files in the file list */ intn curr_file; /* the current file */ char **file_arr; /* pointer to the filename information */ } filelist_t; /* Group info structure */ typedef struct { intn max_dds; /* the number of DDs in the group */ intn curr_dd; /* The current DD */ DFdi *dd_arr; /* array to hold the DDs in the group */ } groupinfo_t; /* DD info structure */ typedef struct { uint16 tag, ref; /* tag and ref of object */ int32 offset, length; /* offset and length of object in file */ int32 index; /* index of the object in the file */ uintn is_group:1, /* flag to indicate item is a group */ is_special:1, /* flag to indicate item is a special element */ has_label:1, /* flag to indicate item has a label */ has_desc:1; /* flag to indicate item has a desc. */ intn no_element; /* TRUE if group_info is NULL */ groupinfo_t *group_info;/* pointer to group information */ sp_info_block_t *spec_info;/* pointer to special element information */ } objinfo_t; #define CHECK_SPECIAL 0x0001 /* Look for spec. elem. when building dd list */ #define CHECK_GROUP 0x0002 /* Look for groups when building dd list */ #define CHECK_LABEL 0x0004 /* Look for anno. labels when building dd list */ #define CHECK_DESC 0x0008 /* Look for anno. desc. when building dd list */ /* DD list structure */ typedef struct { intn max_obj; /* the number of dds in the obj list */ intn curr_obj; /* the current obj */ uint32 options; /* storage for options used to build the dd list */ objinfo_t **srt_obj_arr; /* the sorted dd/object information array */ objinfo_t *raw_obj_arr; /* the raw dd/object information array */ } objlist_t; /* hdp_vd.c */ /* Vdata information: used to hold various information of a vdata to facilitate parameter passing */ typedef struct { int32 index; /* vdata index */ int32 nvf; /* number of records in the vdata */ int32 interlace; /* interlace mode of the vdata */ int32 vsize; /* record size of the vdata */ int32 ref; /* vdata ref# */ int32 tag; /* vdata tag */ char clss[VSNAMELENMAX+1]; /* vdata class */ char name[VSNAMELENMAX+1]; /* vdata name */ } vd_info_t; /* hdp_vg.c */ #define NUM_VGS 20; typedef struct { int32 index; int32 displayed; int32 treedisplayed; /* BMR: added to do the loop - 01/16/99 */ char *vg_name; /* vgroup name, variable length - 10/26/06 */ int32 n_entries; /* added for convenience - 10/26/06 */ char **children; char **type; } vg_info_t; /* hdp.c */ extern int32 VShdfsize(int32 vkey, char *fields); extern intn VSattrhdfsize(int32 vsid, int32 findex, intn attrindex,int32 *size); extern intn Vattrhdfsize(int32 vsid, intn attrindex, int32 *size); /* hdp_list.c */ /*extern intn print_data_annotations(const char *fname, int32 an_id, ann_type annot_type, uint16 tag, uint16 ref);*/ extern intn print_all_data_labels(const char *fname, int32 an_id); extern intn print_all_data_descs(const char *fname, int32 an_id); extern intn do_list(intn curr_arg, intn argc, char *argv[], int help); extern intn print_all_file_labels(const char *fname, int32 an_id); extern intn print_file_descs(const char *f_name, int32 an_id ); /*intn print_annots_by_object( const char *fname, int32 an_id, ann_type annot_type, uint16 tag, uint16 ref); intn print_annots_in_file( int32 an_id, char* fname, int32 n_annotations, ann_type annot_type ); */ intn print_all_file_descs(const char *fname, list_info_t* list_opts, /* for print_SDattrs */ int32 an_id); intn print_data_labels( const char *fname, int32 an_id, uint16 tag, uint16 ref); intn print_data_descs( const char *fname, int32 an_id, uint16 tag, uint16 ref); /* hdp_sds.c */ void dumpsds_usage(intn argc, char *argv[]); intn parse_dumpsds_opts(dump_info_t *dumpsds_opts, intn *curr_arg, intn argc, char *argv[]); intn do_dumpsds(intn curr_arg, intn argc, char *argv[], intn help); intn dsd(dump_info_t *dumpsds_opts, intn curr_arg, intn argc, char *argv[]); int32 sdsdumpfull(int32 sds_id, dump_info_t *dumpsds_opts, int32 rank, int32 dimsizes[], int32 nt, FILE *fp); intn printSDS_ASCII(int32 sd_id, dump_info_t *dumpsds_opts, int32 sds_index, FILE *fp); intn printSDS_BINARY(int32 sd_id, dump_info_t *dumpsds_opts, int32 sds_index, FILE *fp); intn get_SDSindex_list(int32 sd_id, dump_info_t *dumpsds_opts, int32 **sds_chosen, intn *index_error); char *comp_method_txt(comp_coder_t comp_type); intn option_mask_string(int32 options_mask, char* opt_mask_strg); intn print_comp_info(FILE *fp, int32 sds_id, comp_coder_t *comp_type); void resetSDS(int32 *sds_id, int32 sds_index, char *curr_file_name); /* hdp_rig.c */ extern intn do_dumprig(intn curr_arg, intn argc, char *argv[], intn help); /* hdp_vg.c */ extern intn do_dumpvg(intn curr_arg, intn argc, char *argv[], intn help); extern intn print_data_annots(int32 file_id, const char *file_name, int32 tag, int32 ref); extern intn print_file_annotations( int32 file_id, const char *file_name ); void print_fields( char *fields, char *field_title, FILE *fp ); /* hdp_vd.c */ intn do_dumpvd(intn curr_arg, intn argc, char *argv[], intn help); intn parse_dumpvd_opts(dump_info_t * dumpvd_opts, intn *curr_arg, intn argc, char *argv[], char *flds_chosen[MAXCHOICES], int *dumpallfields); /* hdp_gr.c */ intn do_dumpgr(intn curr_arg, intn argc, char *argv[], intn help); intn parse_dumpgr_opts(dump_info_t *dumpgr_opts, intn *curr_arg, intn argc, char *argv[]); /* hdp_dump.c */ extern intn fmtchar(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtuchar8(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtbyte(unsigned char *x, file_format_t ft, FILE * ofp); extern intn fmtint(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtshort(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtint8(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtuint8(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtint16(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtuint16(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtint32(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtuint32(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtfloat32(VOIDP x, file_format_t ft, FILE * ofp); extern intn fmtfloat64(VOIDP x, file_format_t ft, FILE * ofp); extern intn dumpfull(int32 nt, dump_info_t * dump_opts, int32 cnt, VOIDP databuf, FILE * ofp, intn indent, intn cont_indent ); extern intn dumpclean(int32 nt, dump_info_t * dump_opts, int32 cnt, VOIDP databuf, FILE * ofp ); extern int32 dumpGR_SDattr(int32 nt, dump_info_t * dump_opts, int32 cnt, VOIDP databuf, FILE * ofp); /* show.c */ extern int32 dumpvd(int32 vd, file_format_t ft, int data_only, FILE *fp, char separater[2],int32 flds_indices[VSFIELDMAX], int dumpallfields); extern intn dumpattr(int32 vid, int32 findex, intn isvs, file_format_t ft, FILE *fp); /* hdp_util.c */ /* misc. functions */ void init_dump_opts(dump_info_t *dump_opts); void parse_number_opts( char *argv[], int *curr_arg, number_filter_t *filter); void parse_string_opts( char *argv[], int *curr_arg, char_filter_t *filter); void parse_value_opts( char *argv[], int *curr_arg, dump_info_t **dump_opts, info_type_t info_type); extern char *tagnum_to_name(intn num); extern intn tagname_to_num(const char *name); extern void sort(int32 *chosen, int32 choices); int sort_obj_list_by_tag(const void *, const void *); int int32_compare(const void *, const void *); /* filename list functions */ extern filelist_t *make_file_list(intn curr_arg, intn argc, char *argv[]); extern char *get_next_file(filelist_t * f_list, intn advance); /* memory management functions */ extern int32* free_num_list(int32 *num_list); extern char** free_str_list(char **str_list, int32 num_items); extern vg_info_t** free_vginfo_list(vg_info_t** list, int32 num_items); extern vg_info_t* free_node_vg_info_t(vg_info_t* aNode); void free_obj_chosen_t_list(obj_chosen_t **nodelist, int32 num_items); extern void free_file_list(filelist_t * f_list); /* group list functions */ extern groupinfo_t *make_group_list(int32 fid, uint16 tag, uint16 ref); extern DFdi *get_next_group(groupinfo_t * g_list, intn advance); extern int32 get_group_max(groupinfo_t * g_list); extern void free_group_list(groupinfo_t * g_list); /* object list functions */ extern objlist_t *make_obj_list(int32 fid, uint32 options); extern objinfo_t *get_next_obj(objlist_t * o_list, intn advance); extern objinfo_t *goto_nth_obj(objlist_t * o_list, intn n); extern void reset_obj_list(objlist_t * o_list); extern void resetBuff(VOIDP *buf); extern void free_obj_list(objlist_t * o_list); extern void sort_obj_list(objlist_t * o_list, sort_t sort_type); extern intn print_SDattrs( int32 sd_id, FILE *fp, int32 n_file_attrs, dump_info_t *dumpsds_opts ); extern intn print_SDSattrs( int32 sds_id, int32 nattrs, FILE *fp, dump_info_t *dumpsds_opts); extern intn print_GRattrs( int32 gr_id, int32 n_file_attrs, FILE *fp, dump_info_t *dumpgr_opts ); extern intn print_RIattrs( int32 ri_id, intn ri_index, int32 nattrs, FILE *fp, dump_info_t *dumpgr_opts); extern void alloc_index_list( int32 **index_list, int32 num_chosen ); #define PPSTR( name, str) { \ printf( " %s: %s\n", name, str ); } #define PPNUM( name, num) { \ printf(" %s: %d\n", name, num ); } #define PSTR( name, str) { \ fprintf(stderr, " %s: %s\n", name, str ); } #define PNUM( name, num) { \ fprintf(stderr, " %s: %d\n", name, num ); } /***************** end remove when done ******************/ #endif /* __HDP_H */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/Makefile.in0000644000000000000000000006520712421456623015545 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testhdp.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = hdp$(EXEEXT) TESTS = $(TEST_SCRIPT) subdir = mfhdf/dumper ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testhdp.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) am_hdp_OBJECTS = hdp.$(OBJEXT) hdp_dump.$(OBJEXT) hdp_gr.$(OBJEXT) \ hdp_list.$(OBJEXT) hdp_rig.$(OBJEXT) hdp_sds.$(OBJEXT) \ hdp_util.$(OBJEXT) hdp_vd.$(OBJEXT) hdp_vg.$(OBJEXT) \ show.$(OBJEXT) hdp_OBJECTS = $(am_hdp_OBJECTS) hdp_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdp_LDFLAGS) \ $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(hdp_SOURCES) DIST_SOURCES = $(hdp_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) hdp_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdp_SOURCES = hdp.c hdp_dump.c hdp_gr.c hdp_list.c hdp_rig.c hdp_sds.c \ hdp_util.c hdp_vd.c hdp_vg.c show.c hdp_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdp_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ############################################################################# TEST_SCRIPT = testhdp.sh check_SCRIPTS = testhdp.sh # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/dumper/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/dumper/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testhdp.sh: $(top_builddir)/config.status $(srcdir)/testhdp.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 hdp$(EXEEXT): $(hdp_OBJECTS) $(hdp_DEPENDENCIES) $(EXTRA_hdp_DEPENDENCIES) @rm -f hdp$(EXEEXT) $(hdp_LINK) $(hdp_OBJECTS) $(hdp_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_dump.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_gr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_list.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_rig.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_sds.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_util.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_vd.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdp_vg.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/show.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) all-local 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-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-generic clean-libtool cscopelist \ ctags distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-binPROGRAMS \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/Makefile.am0000644000000000000000000000255212421456623015526 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add hdp specific linker flags here hdp_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = hdp ## Information for building the "hdp" program hdp_SOURCES = hdp.c hdp_dump.c hdp_gr.c hdp_list.c hdp_rig.c hdp_sds.c \ hdp_util.c hdp_vd.c hdp_vg.c show.c hdp_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdp_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# TEST_SCRIPT = testhdp.sh check_SCRIPTS = testhdp.sh include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/TEST0000644000000000000000000000415412421456623014174 0ustar The following commands can be used for testing. (1) hdp list tdata.hdf hdp list -l tdata.hdf hdp list -d tdata.hdf hdp list -e tdata.hdf hdp list -t 720 tdata.hdf hdp list -d -t "Numeric Data Group" tdata.hdf hdp list -g tdata.hdf hdp list -a tdata.hdf hdp list -a Example6.hdf hdp list -n Example6.hdf (2) hdp dumpsds swf32.hdf hdp dumpsds -i 2 swf32.hdf hdp dumpsds -i 1,3 swf32.hdf hdp dumpsds -n Time swf32.hdf /* This command should fail with error message: "SD with name Time: not found" */ hdp dumpsds -n fakeDim0,Data-Set-2 swf32.hdf hdp dumpsds -r 3,2 swf32.hdf hdp dumpsds -r 3,2 -d swf32.hdf (3) hdp dumprig tdf24.hdf hdp dumprig -i 1,2 tdf24.hdf hdp dumprig -i 1,3 tdf24.hdf /* '-i 3' is invalid */ hdp dumprig -m 24 tdf24.hdf hdp dumprig -r 3,4 tdf24.hdf hdp dumprig -r 3,4 -d tdf24.hdf (4) hdp dumpvd tvset.hdf hdp dumpvd -i 1,3,5 tvset.hdf hdp dumpvd -r 1238,1239,1251,1252 tvset.hdf hdp dumpvd -n "Multi-Order Vdata" tvset.hdf hdp dumpvd -n "Mixed Vdata","Integer Vdata" tvset.hdf hdp dumpvd -c "Test object","No class specified" tvset.hdf hdp dumpvd -f B tvset.hdf hdp dumpvd -f "STATION_NAME","FLOATS" tvset.hdf hdp dumpvd -f "STATION_NAME","FLOATS" -d tvset.hdf (5) hdp dumpvg tvset.hdf hdp dumpvg -i 0,1 tvset.hdf hdp dumpvg -r 3 tvset.hdf hdp dumpvg -n "Simple Vgroup" tvset.hdf hdp dumpvg -c "Test object" tvset.hdf hdp dumpvg -i 1,3,5 tdata.hdf hdp dumpvg -r 32,39 tdata.hdf hdp dumpvg -n nsamp,tdata.hdf tdata.hdf hdp dumpvg -c CDF0.0 tdata.hdf hdp dumpvg -c Dim0.0,Var0.0 tdata.hdf hdp dumpvg -c Dim0.0,Var0.0 -d tdata.hdf (6) hdp dumpgr grtdfui82.hdf hdp dumpgr -i 0,1,3 grtdfui82.hdf hdp dumpgr -i 0 grtdfui82.hdf hdp dumpgr -n Image_array_5 grtdfui82.hdf hdp dumpgr -r 6,2,3 grtdfui82.hdf hdp dumpgr -r 6 -d grtdfui82.hdf hdp dumpgr -o my.dat grtdfui82.hdf hdp dumpgr -o mybin.dat -b grtdfui82.hdf hdp dumpgr grtdfui83.hdf hdp dumpgr grtdfui84.hdf hdp dumpgr grtdfui162.hdf hdp dumpgr grtdfi322.hdf libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/README0000644000000000000000000000133512421456623014350 0ustar README for the HDF dumper directory This directory contains source and data files for hdp, an HDF dumper. File hdp.txt explains hdp commands and command options. Hdp will be automatically compiled and installed when you run 'make' and 'make install' from the top level. A file named testhdf.sh and a group of .hdf files are included for testing. Run the test with the command "make test". Please send your bug reports, comments and suggestions to hdfhelp@hdfgroup.org ----------------- History of data files ------------------ Below is a list describing how some of the hdf files in this directory were generated. sds_compressed.hdf: by test_various_comps() in mfhdf/libsrc/tcomp.c sds_szipped.hdf: by gen_sds_szipped.c libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/show.c0000644000000000000000000005545412421456623014627 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* Modified from vshow.c by Eric Tsui, 12/25/1994. */ #ifdef RCSID static char *RcsId[] = "@(#)$Revision: 6043 $"; #endif #define VSET_INTERFACE #include "hdp.h" #define BUFFER 1000000 /* ------------------------------------------------ */ int32 dumpvd(int32 vd, file_format_t ff, int data_only, FILE *fp, char separater[2], int32 flds_indices[VSFIELDMAX], int dumpallfields) { char vdname[VSNAMELENMAX+1]; int32 j, i, t, interlace, nv, vsize; uint8 *bb = NULL; uint8 *b = NULL; DYN_VWRITELIST *w = NULL; intn (*vfmtfn[VSFIELDMAX]) (VOIDP , file_format_t ff, FILE *); int32 off[VSFIELDMAX]; int32 order[VSFIELDMAX]; int32 nattrs[VSFIELDMAX]; int32 bufsize; /* size of the buffer we are using */ int32 chunk; /* number of rows that will fit in the buffer */ int32 done; /* number of rows we have done */ int32 count; /* number of rows to do this time through the loop */ int32 nf; /* number of fields in this Vdata */ int32 x, display; int32 temp; int32 addr_width = 0; int32 num_digits; int32 address = 0; int32 nfields; int32 cnt1, cnt2; int32 cn = 0; int32 ret_value = SUCCEED; char fields[VSFIELDMAX*FIELDNAMELENMAX]; char flds[VSFIELDMAX*FIELDNAMELENMAX]; /* inquire about vdata */ if (FAIL == VSinquire(vd, &nv, &interlace, fields, &vsize, vdname)) { ret_value = FAIL; goto done; } if (nv * vsize > BUFFER) /* If the number of records in the vdata is bigger than the buffer size, then divide the records into chunks. */ { bufsize = BUFFER; chunk = BUFFER / vsize; } else /* Otherwise, all the records will be read in at one time. */ { bufsize = nv * vsize; chunk = nv; } done = 0; /* Allocate space for the buffer and terminate hdp if allocation fails. */ bb = (uint8 *) HDmalloc(bufsize); CHECK_ALLOC( fields, "fields", "dumpvd" ); if (FAIL == VSsetfields(vd, fields)) { fprintf(stderr,"dumpvd: VSsetfields failed for vd = %d \n",(int)vd); ret_value = FAIL; goto done; } w = vswritelist(vd); nf = w->n; x = 0; /* Used for accessing the array storing the indices of the selected fields. */ for (i = 0; i < nf; i++) /* Read in data of all the fields. */ { order[i] = w->order[i]; /* Set offset for the next element. */ off[i] = DFKNTsize(w->type[i] | DFNT_NATIVE); nattrs[i] = VSfnattrs(vd, i); if (FAIL == nattrs[i]) { fprintf(stderr,"dumpvd: VSfnattrs failed for vd = %d \n",(int)vd); ret_value = FAIL; goto done; } /* Display the header of a vdata if the user didn't specify the data-only option. */ if (!data_only) { if(ff==DASCII) { if ((dumpallfields) || (flds_indices[x] == i)) { fprintf(fp, "- field index %d: [%s], type=%d, order=%d\n", (int) i, w->name[i], w->type[i], w->order[i]); x++; } } /* display attributes - BMR moved this block inside if(!data_only) to keep the attributes from being printed - bug #231*/ if (FAIL == dumpattr(vd, i, 1, ff, fp)) { fprintf(stderr,"dumpvd: dumpattr() failed for vd = %d \n",(int)vd); ret_value = FAIL; goto done; } } /* if !data_only */ /* Choose a function for displaying a piece of data of a particular type. */ switch (w->type[i] & 0xff) { case DFNT_CHAR: case DFNT_UCHAR: vfmtfn[i] = fmtchar; break; case DFNT_UINT8: vfmtfn[i] = fmtuint8; break; case DFNT_INT8: vfmtfn[i] = fmtint8; break; case DFNT_UINT16: vfmtfn[i] = fmtuint16; break; case DFNT_INT16: vfmtfn[i] = fmtint16; break; case DFNT_UINT32: vfmtfn[i] = fmtuint32; break; case DFNT_INT32: vfmtfn[i] = fmtint32; break; case DFNT_FLOAT32: vfmtfn[i] = fmtfloat32; break; case DFNT_FLOAT64: vfmtfn[i] = fmtfloat64; break; default: fprintf(stderr, "sorry, type [%d] not supported\n", (int) w->type[i]); ret_value = FAIL; goto done; } /* switch */ } /* for */ cn = 0; done = count = 0; if(ff==DASCII) { /* If not just the data will be dumped out, then put an address-type column on the left so that the user can recognize which record he/she is looking at. */ if (!data_only) { temp = nv / 10; address = 0; addr_width = num_digits = 1; while (temp != 0) { if (temp != 1) addr_width++; temp = temp / 10; } fprintf(fp, "Loc."); for (j = 0; j < addr_width - 3; j++) fprintf(fp, " "); fprintf(fp, " Data\n"); /* The address of the first record is 0. Also, fill in the extra space on the left with 0's. */ while (num_digits <= addr_width) { fprintf(fp, "0"); num_digits++; cn++; } fprintf(fp, " "); cn += 6; if (addr_width == 2) { fprintf(fp, " "); cn++; } else if (addr_width == 1) { fprintf(fp, " "); cn += 2; } } /* while */ nfields = VSgetfields(vd, flds); if (FAIL == nfields ) { fprintf(stderr,"dumpvd: VSgetfields failed for vd = %d \n",(int)vd); ret_value = FAIL; goto done; } cnt1 = 0; cnt2 = 0; while (done != nv) { /* Determine the amount of data to be read this time. */ if ((nv - done) > chunk) count = chunk; else count = nv - done; /* read and update bookkeeping */ if (FAIL == VSread(vd, bb, count, interlace)) { /* If the data set has external element, get the external file name to provide information */ intn extfile_namelen = VSgetexternalfile(vd, 0, NULL, NULL); if (extfile_namelen > 0) { char *extfile_name = NULL; extfile_name = (char *)HDmalloc(sizeof(char *)*(extfile_namelen+1)); CHECK_ALLOC(extfile_name, "extfile_name", "dumpvd" ); /* Get the external file info, we don't need offset here */ extfile_namelen = VSgetexternalfile(vd, extfile_namelen+1, extfile_name, NULL); ERROR_GOTO_3( "in %s: VSread failed for vd(%d) with external file %s. Please verify the file exists in the same directory.", "dumpvd", (int)vd, extfile_name); } else ERROR_GOTO_2( "in %s: VSread failed for vd(%d)", "dumpvd", (int)vd ); } done += count; b = bb; /* Display the data. */ for (j = 0; j < count; j++) /* each iteration causes one record to be printed */ { cnt1++; x = 0; for (i = 0; i < nf; i++) /* display all fields in one record */ { if ((!dumpallfields) && (flds_indices[x] != i)) display = 0; else { display = 1; x++; } for (t = 0; t < order[i]; t++) { if(display) cn+=(vfmtfn[i]) (b, ff, fp); b += off[i]; if (display) { fprintf(fp, " "); cn++; cnt2++; } } if (display) { fprintf(fp, " "); cn++; cnt2++; } } /* for i to nf-1 */ if (cnt2 > 0) { address++; /* "separator" is the symbol used for separating different records. */ fprintf(fp, "%s ", separater); } if (!data_only) { if ((cnt1 * cnt2) > 30) { cnt1 = 0; cnt2 = 0; fprintf(fp, "\n"); cn = 0; /* As long as there is data to be displayed, fill in the extra space with 0's on the left of each address. */ if (j < (count - 1)) { temp = address; num_digits = 1; while ((temp = temp / 10) != 0) num_digits++; while (num_digits < addr_width) { fprintf(fp, "0"); num_digits++; cn++; } fprintf(fp, "%d ", (int)address); cn += 6 + num_digits; if (addr_width == 2) { fprintf(fp, " "); cn++; } else if (addr_width == 1) { fprintf(fp, " "); cn += 2; } } /* if (!data_only) */ } } else fprintf(fp, "\n"); } /* for (j=0; j chunk) count = chunk; else count = nv - done; /* read and update bookkeeping */ if (FAIL == VSread(vd, bb, count, interlace)) { /* If the data set has external element, get the external file name to provide information */ intn extfile_namelen = VSgetexternalfile(vd, 0, NULL, NULL); if (extfile_namelen > 0) { char *extfile_name = NULL; extfile_name = (char *)HDmalloc(sizeof(char *)*(extfile_namelen+1)); CHECK_ALLOC(extfile_name, "extfile_name", "dumpvd" ); /* Get the external file info, we don't need offset here */ extfile_namelen = VSgetexternalfile(vd, extfile_namelen+1, extfile_name, NULL); ERROR_GOTO_3( "in %s: VSread failed for vd(%d) with external file %s. Please verify the file exists in the same directory", "dumpvd", (int)vd, extfile_name); } else ERROR_GOTO_2( "in %s: VSread failed for vd(%d)", "dumpvd", (int)vd ); } done += count; b = bb; /* Display the data. */ for (j = 0; j < count; j++) /* each iteration causes one record to be printed */ { cnt1++; x = 0; for (i = 0; i < nf; i++) /* display all fields in one record */ { if ((!dumpallfields) && (flds_indices[x] != i)) display = 0; else { display = 1; x++; } for (t = 0; t < order[i]; t++) { if(display) cn+=(vfmtfn[i]) (b, ff, fp); b += off[i]; if (display) { cn++; cnt2++; } } if (display) { cn++; cnt2++; } } /* for i to nf-1 */ if (cnt2 > 0) { address++; /* "separator" is the symbol used for separating different records. */ } } /* for (j=0; j>>dumpattr: Failed to get number of attributes for vid %d \n",(int)vid); ret_value = FAIL; goto done; } fprintf(fp, " number of attributes = %d \n", nattrs); /* loop for number of attributes to process */ for (i = 0; i < nattrs; i++) { /* get attribute infor of vdata/vgroup */ if (isvs) status = VSattrinfo(vid, findex, i, name, &i_type, &i_count, &e_size); else /* Changed to use updated func of Vattrinfo - BMR, 1/7/2013 */ status = Vattrinfo2(vid, i, name, &i_type,&i_count, &e_size, NULL, NULL); if (status == FAIL) { fprintf(stderr,">>>dumpattr: failed in getting %d'th attr info.\n",i); ret_value = FAIL; goto done; } /* get attribute hdfsize of vdata/vgroup */ if (isvs) status = VSattrhdfsize(vid, findex, i, &i_size); else status = Vattrhdfsize(vid, i, &i_size); if (status == FAIL) { fprintf(stderr,">>>dumpattr: failed in getting %d'th attr hdfsize.\n",i); ret_value = FAIL; goto done; } fprintf(fp," attr%d: name=%s type=%d count=%d size=%d\n", i, name, (int)i_type, (int)i_count, (int)i_size); /* we have two buffer sizes? */ if (e_size > BUFFER) { if (NULL == (buf = HDmalloc(e_size))) { fprintf(stderr,">>>dumpattr:can't allocate buf for %d'th attribute.\n",i); ret_value = FAIL; goto done; /* do we want exit here? */ } alloc_flag = 1; /* get attribute itself */ if (isvs) status = VSgetattr(vid, findex, i, (VOIDP)buf); else /* Changed to use updated func of Vgetattr - BMR, 1/7/2013 */ status = Vgetattr2(vid, i, (VOIDP)buf); if (status == FAIL) { fprintf(stderr,">>>dympattr: failed in getting %d'th attr .\n",i); ret_value = FAIL; goto done; } } else { /* get attribute itself */ if (isvs) status = VSgetattr(vid, findex, i, (VOIDP)attrbuf); else /* Changed to use updated func of Vgetattr - BMR, 1/7/2013 */ status = Vgetattr2(vid, i, (VOIDP)attrbuf); if (status == FAIL) { fprintf(stderr,">>>dympattr: failed in getting %d'th attr.\n",i); ret_value = FAIL; goto done; } } /* format output */ switch (i_type & 0xff) { case DFNT_CHAR: case DFNT_UCHAR: vfmtfn = fmtchar; break; case DFNT_UINT8: vfmtfn = fmtuint8; break; case DFNT_INT8: vfmtfn = fmtint8; break; case DFNT_UINT16: vfmtfn = fmtuint16; break; case DFNT_INT16: vfmtfn = fmtint16; break; case DFNT_UINT32: vfmtfn = fmtuint32; break; case DFNT_INT32: vfmtfn = fmtint32; break; case DFNT_FLOAT32: vfmtfn = fmtfloat32; break; case DFNT_FLOAT64: vfmtfn = fmtfloat64; break; default: fprintf(stderr,">>>dumpattr: sorry, type [%d] not supported\n", (int) i_type); ret_value = FAIL; goto done; } /* find offset */ off = DFKNTsize(i_type | DFNT_NATIVE); /* which buffer are we using? */ ptr = (alloc_flag) ? buf : attrbuf; putchar('\t'); cn = 0; for (k = 0; k < i_count; k++) { cn += vfmtfn((uint8 *)ptr, ff, fp); ptr += off; putchar(' '); cn++; if (cn > 55) { putchar('\n'); putchar('\t'); cn = 0; } } if (cn) putchar('\n'); /* free allocated space if any */ if (alloc_flag) { if ( buf != NULL) HDfree(buf); alloc_flag = 0; buf = NULL; } } /* for i */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (buf != NULL) HDfree(buf); } /* Normal cleanup */ return ret_value; } libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_vd.c0000644000000000000000000011436312421456623015106 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hdp_vd.c 6043 2014-01-21 21:09:03Z acheng $ */ #include "hdp.h" #ifndef MIPSEL #include #endif /* MIPSEL */ void dumpvd_usage(intn argc, char *argv[]) { printf("Usage:\n"); printf("%s dumpvd [-a|-i |-r |-n |-c |-f ] [-dhv] [-o ] [-bx] \n", argv[0]); printf("\t-a\tDump all VDs in the file (default)\n"); printf("\t-i \tDump the VDs at positions listed in \n"); printf("\t-r \tDump the VDs with reference number listed in \n"); printf("\t-n \tDump the VDs with name listed in \n"); printf("\t-c \tDump the VDs with class listed in \n"); printf("\t-f \tDump based on fields in vdata header\n"); printf("\t-d\tDump data only, no tag/ref, formatted to input to hp2hdf\n"); printf("\t-h\tDump header only, no annotation for elements nor data\n"); printf("\t-v\tDump everything including all annotations (default)\n"); printf("\t-o \tOutput to file \n"); printf("\t-b\tBinary format of output\n"); printf("\t-x\tAscii text format of output (default)\n"); printf("\t\tList of hdf file names, separated by spaces\n"); } /* end dumpvd_usage() */ intn parse_dumpvd_opts(dump_info_t *dumpvd_opts, intn *curr_arg, intn argc, char *argv[], char *flds_chosen[MAXCHOICES], int *dumpallfields) { int32 i, lastItem; char *tempPtr, *ptr; /* traverse the command and process each option */ #if defined(WIN386) || defined(DOS386) while ((*curr_arg < argc) && ((argv[*curr_arg][0] == '-') || (argv[*curr_arg][0] == '/'))) #else while ((*curr_arg < argc) && (argv[*curr_arg][0] == '-')) #endif /* for the use of / as option on PC */ { switch (argv[*curr_arg][1]) { case 'a': /* dump all, default */ dumpvd_opts->filter = DALL; /* indicate that no specific vdata requested, will dump all */ dumpvd_opts->num_chosen = NO_SPECIFIC; (*curr_arg)++; break; case 'i': /* dump by index */ dumpvd_opts->filter |= DINDEX; /* set bit DINDEX */ (*curr_arg)++; /* parse and store the given indices in structure by_index */ parse_number_opts( argv, curr_arg, &dumpvd_opts->by_index); (*curr_arg)++; break; case 'r': /* dump by reference */ dumpvd_opts->filter |= DREFNUM; /* set bit DREFNUM */ (*curr_arg)++; /* parse and store the given ref numbers in structure by_ref */ parse_number_opts( argv, curr_arg, &dumpvd_opts->by_ref); (*curr_arg)++; break; case 'n': /* dump by names */ dumpvd_opts->filter |= DNAME; /* set bit DNAME */ (*curr_arg)++; /* parse and store the given names in structure by_name */ parse_string_opts( argv, curr_arg, &dumpvd_opts->by_name); (*curr_arg)++; break; case 'c': /* dump by class */ dumpvd_opts->filter |= DCLASS; /* set bit DCLASS */ (*curr_arg)++; /* parse and store the given classes in structure by_class */ parse_string_opts( argv, curr_arg, &dumpvd_opts->by_class); (*curr_arg)++; break; case 'f': /* dump a subset of the fields */ if (dumpvd_opts->filter == DALL) /* not necessary to set this */ dumpvd_opts->filter = DFIELDS;/* leave it here anyway */ *dumpallfields = 0; /*???*/ (*curr_arg)++; lastItem = 0; ptr = argv[*curr_arg]; for (i = 0; !lastItem; i++) { tempPtr = HDstrchr(ptr, ','); if (tempPtr == NULL) lastItem = 1; else *tempPtr = '\0'; flds_chosen[i] = (char *) HDmalloc(sizeof(char) * (HDstrlen(ptr)+1)); CHECK_ALLOC( flds_chosen[i], "flds_chosen[i]", "parse_dumpvd_opts" ); /* if (flds_chosen[i] == NULL) { fprintf(stderr,"Failure in parse_dumpvd_opts: Not enough memory!\n"); exit(1); } */ HDstrcpy(flds_chosen[i], ptr); ptr = tempPtr + 1; } flds_chosen[i] = NULL; (*curr_arg)++; break; case 'd': /* dump data only */ dumpvd_opts->contents = DDATA; (*curr_arg)++; break; case 'h': /* no annotations nor data */ dumpvd_opts->contents = DHEADER; (*curr_arg)++; break; case 'v': /* dump all info */ dumpvd_opts->contents = DVERBOSE; (*curr_arg)++; break; case 'o': /* specify output file */ dumpvd_opts->dump_to_file = TRUE; /* Get file name */ HDstrcpy(dumpvd_opts->file_name, argv[++(*curr_arg)]); (*curr_arg)++; break; case 'b': /* dump data in binary */ dumpvd_opts->file_format = DBINARY; (*curr_arg)++; break; case 'x': /* dump data in ascii, also default */ dumpvd_opts->file_format = DASCII; (*curr_arg)++; break; default: /* invalid dumpvd option */ printf("Warning: Invalid dumpvd option %s\n", argv[*curr_arg]); return (FAIL); } /* end switch */ } /* end while */ /* add the number of vdatas requested by index, by ref#, and by name to have a total number of requested vdatas */ dumpvd_opts->num_chosen = dumpvd_opts->by_index.num_items + dumpvd_opts->by_ref.num_items + dumpvd_opts->by_name.num_items + dumpvd_opts->by_class.num_items; return (SUCCEED); } /* end parse_dumpvd_opts */ /* VSref_index returns the index of a vdata given the vdata's ref# or returns FAIL, if the ref# is not found */ int32 VSref_index(int32 file_id, int32 vd_ref) { int32 find_ref = -1; int index = 0; /* index is zero based? */ int32 ret_value = FAIL; while ((find_ref = VSgetid(file_id, find_ref)) != FAIL) { if (find_ref == vd_ref) { ret_value = index; goto done; /* found, done */ } index++; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* VSref_index */ /* VSstr_index returns the index of a vdata given the vdata's name or class, if the name is not found, and returns FAIL, otherwise. */ int32 VSstr_index(int32 file_id, char *filter_str, /* searched vd's name or class */ int is_name, /* TRUE if searching for name, FALSE if class */ int32 *find_ref, /* current ref#, will return next found */ int32 *index) /* index of the vdata w/ref# *find_ref */ { int32 vdata_id = FAIL; char vdata_name[MAXNAMELEN]; int32 ret_value = SUCCEED; /* starting from the ref# *find_ref, search for the vdata having a name or class the same as the given string filter_str; when no more vdata to search, return FAIL */ while ((*find_ref = VSgetid(file_id, *find_ref)) != FAIL) { /* printf("VSstr_index: *find_ref = %d\n", *find_ref); */ vdata_id = VSattach(file_id, *find_ref, "r"); if (FAIL == vdata_id) ERROR_GOTO_2( "in %s: VSattach failed for vdata with ref#=%d", "VSstr_index", (int)*find_ref ); /* if the string searched is a vdata's name */ if (is_name) { if (FAIL == VSgetname(vdata_id, vdata_name)) ERROR_GOTO_2( "in %s: VSgetname failed for vdata with ref#=%d", "VSstr_index", (int)*find_ref ); } /* or the string searched is a vdata's class */ else { if (FAIL == VSgetclass(vdata_id, vdata_name)) ERROR_GOTO_2( "in %s: VSgetclass failed for vdata with ref#=%d", "VSstr_index", (int)*find_ref ); } if (FAIL == VSdetach(vdata_id)) ERROR_GOTO_2( "in %s: VSdetach failed for vdata with ref#=%d", "VSstr_index", (int)*find_ref ); /* if the vd's name or vd's class is the given string, return the index of the vdata found */ if (HDstrcmp(vdata_name, filter_str) == 0) { /* store the current index to return first */ ret_value = (*index); /* then increment index for next vdata - same class vdatas*/ (*index)++; goto done; /* succeeded */ } else ret_value = FAIL; /* Note: in either case, increment the index for the next vdata */ (*index)++; } /* end while getting vdatas */ /* when VSgetid returned FAIL in while above, search should stop */ ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* VSstr_index() */ /* compose the list of indices of the requested vdatas although some vdatas are requested by ref# or name. The routine returns: - the number of vdatas to be processed, or - NO_SPECIFIC if all vdatas are to be processed, or - 0 if none. If there are any errors, the parameter index_error will return TRUE */ int32 choose_vd(dump_info_t * dumpvd_opts, int32 **vd_chosen, int32 file_id, int *index_error) { int32 i, index, find_ref, number, num_vd_chosen = dumpvd_opts->num_chosen, vd_count = 0; filter_t filter = dumpvd_opts->filter; /* temporary name */ intn ret_value = 0; /* if no specific vdatas are requested, return vdata count as NO_SPECIFIC (-1) */ if( filter == DALL ) HGOTO_DONE( NO_SPECIFIC ); /* if specific vdatas were requested, allocate space for the array of indices */ if (num_vd_chosen > 0) alloc_index_list( vd_chosen, num_vd_chosen ); /* else, no chosen vdatas but filter is not DALL, it shouldn't be this combination, return vdata count as NO_SPECIFIC to dump all */ else HGOTO_DONE( NO_SPECIFIC ); /* if there are some vdatas requested by index, store the indices in the array provided by the caller */ if( filter & DINDEX ) for (i = 0; iby_index.num_items; i++) { (*vd_chosen)[vd_count] = dumpvd_opts->by_index.num_list[i]; vd_count++; } /* if there are some vdatas requested by ref#, store the indices in the array provided by the caller */ if( filter & DREFNUM ) for (i = 0; iby_ref.num_items; i++) { index = VSref_index(file_id, dumpvd_opts->by_ref.num_list[i]); if (index == FAIL) { printf("Vdata with reference number %d: not found\n", (int)dumpvd_opts->by_ref.num_list[i]); *index_error = TRUE; /* index error */ } else { (*vd_chosen)[vd_count] = index; vd_count++; } } /* for */ /* if there are some vdatas requested by name, store the indices in the array provided by the caller */ if( filter & DNAME ) for (i = 0; iby_name.num_items; i++) { find_ref = -1; number = 0; index = VSstr_index(file_id, dumpvd_opts->by_name.str_list[i], 1, &find_ref, &number); if (index == FAIL) { printf("Vdata with name '%s': not found\n", dumpvd_opts->by_name.str_list[i]); *index_error = TRUE; } else { (*vd_chosen)[vd_count] = index; vd_count++; } } /* for */ /* if there are some vdatas requested by class, store the indices in the array provided by the caller */ if( filter & DCLASS ) for (i = 0; i < dumpvd_opts->by_class.num_items; i++) { int32 found = FALSE; find_ref = -1; number = 0; while ((index = VSstr_index(file_id, dumpvd_opts->by_class.str_list[i], 0, &find_ref, &number)) != FAIL) { if (vd_count < num_vd_chosen) (*vd_chosen)[vd_count] = index; else { *vd_chosen = (int32 *) HDrealloc(*vd_chosen,sizeof(int32) * (num_vd_chosen+1)); if (*vd_chosen == NULL) { fprintf(stderr,"Failure in choose_vd: Memory re-allocation error\n"); exit(1); } /* end if */ (*vd_chosen)[vd_count] = index; num_vd_chosen++; } vd_count++; found = TRUE; } if (!found) { printf("Vdata with class %s: not found\n", dumpvd_opts->by_class.str_list[i]); *index_error = TRUE; /* index error */ } } /* for */ if( filter == DFIELDS ) /* Don't have to worry about which chosen fields yet. */ {} ret_value = vd_count; /* actual number of vdatas to be processed; might be different from dumpvd_opts->num_chosen because of the non-unique class name */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* choose_vd */ void printHeader( FILE* fp, char* fldstring, char* fields, vd_info_t* curr_vd ) { fprintf(fp, "Vdata: %d\n", (int) curr_vd->index ); if( curr_vd->tag == FAIL ) /* print vdata tag */ fprintf(fp, " tag = ; "); else fprintf(fp, " tag = %d; ", (int) curr_vd->tag); /* print reference number without checking because it's from VSgetid and has been checked by the calling routine */ fprintf(fp, "reference = %d;\n", (int) curr_vd->ref); if( curr_vd->nvf == FAIL ) /* print number of records in the vdata */ fprintf(fp, " number of records = ; "); else fprintf(fp, " number of records = %d;", (int) curr_vd->nvf); if( curr_vd->interlace == FAIL ) /* print interlace mode */ fprintf(fp, " interlace = ;\n"); else if( curr_vd->interlace == 0 ) fprintf(fp, " interlace = FULL_INTERLACE (0);\n"); else if( curr_vd->interlace == 1 ) fprintf(fp, " interlace = NO_INTERLACE;\n"); else fprintf(fp, " interlace = ;\n", (int) curr_vd->interlace); /* print the list of field names of the vdata if it's available */ /* The list of field names can be very long and would look very messy when being displayed if it were to be dumped out at once. print_fields displays a list in a nice way even if the list is long. The second parameter specifies how the field name list begins; it's needed because dumpvg also uses this routine and has different indentation format than dumpvd */ print_fields( fields, " fields = ", fp ); fprintf(fp, " record size (in bytes) = %d;\n", (int)curr_vd->vsize); if( curr_vd->name[0] == '\0' ) /* print vdata name */ fprintf(fp, " name = ; "); else fprintf(fp, " name = %s;", curr_vd->name); /* print class name - Note that vdclass can be NULL */ if( curr_vd->clss[0] == '\0' || curr_vd->clss == NULL ) fprintf(fp, " class = ;\n"); else fprintf(fp, " class = %s;\n", curr_vd->clss); } /* end of printHeader */ intn getFieldIndices( char* fields, char *flds_chosen[MAXCHOICES], int32* flds_indices ) { int32 lastItem = 0; /* whether the last field in the list 'fields' is reached */ int32 fld_name_idx; /* index for the list of field names */ int32 idx = 0; /* index for the array of field indices */ char *tempPtr = NULL; /* temp ptr to mark the end of a field name in the list */ char *ptr = NULL; /* used to forward to next field name in the field name list */ char fldstring[MAXNAMELEN]; /* holds a field name extracted from field name list */ int32 i; intn flds_match = 0; intn ret_value = SUCCEED; char tempflds[VSFIELDMAX*FIELDNAMELENMAX]; /* make copy of the field name list retrieved by VSinquire to use in processing the field names */ HDstrcpy(tempflds, fields); ptr = tempflds; /* used to forward the field names */ i = (-1); /* dummy? */ HDmemfill(flds_indices, &i, sizeof(int32), MAXCHOICES); /* Extract each field name from the list of fields of the current record. */ for (fld_name_idx = 0; !lastItem; fld_name_idx++) { /* look for a comma in the fields */ tempPtr = HDstrchr(ptr, ','); /* if no comma is found, that means the last field name is reached */ if (tempPtr == NULL) lastItem = 1; /* set flag */ /* otherwise, add null to end the extracted field name */ else *tempPtr = '\0'; /* extract that field into fldstring */ HDstrcpy(fldstring, ptr); /* forward the pointer to the next field name in the list */ ptr = tempPtr + 1; /* Compare the extracted field name with each of the names of the fields having been chosen. */ for( i = 0; flds_chosen[i] != NULL; i++) { if (!HDstrcmp(flds_chosen[i], fldstring)) { flds_indices[idx] = fld_name_idx; idx++; flds_match = 1; } } /* for (i...) */ } /* for (fld_name_idx...) */ /* return the flag indicating whether any given fields exist */ ret_value = flds_match; return ret_value; } /* end of getFieldIndices */ intn dumpvd_ascii(dump_info_t * dumpvd_opts, int32 file_id, const char *file_name, FILE* fp, int32 num_vd_chosen, char *flds_chosen[MAXCHOICES], int32 *vd_chosen, int dumpallfields) { int32 flds_indices[MAXCHOICES]; int32 i; int32 vd_chosen_idx; /* index for vd_chosen array */ int32 nvf; int32 interlace; int32 vsize; int32 vdata_ref = -1; int32 vdata_tag; char vdclass[VSNAMELENMAX+1]; char vdname[VSNAMELENMAX+1]; char fldstring[MAXNAMELEN]; intn dumpall = 0; file_format_t ff = DASCII; vd_info_t curr_vd; int32 vd_id = FAIL; int32 an_handle = FAIL; intn status = SUCCEED, ret_value = SUCCEED; char fields[VSFIELDMAX*FIELDNAMELENMAX]; if (dumpvd_opts->contents != DDATA) { fprintf(fp, "File name: %s \n\n", file_name); /* print file annotations */ status = print_file_annotations( file_id, file_name ); if( status == FAIL ) ERROR_GOTO_2( "in %s: Failure in printing file annotations for file %s", "dumpvd_ascii", file_name ); } vd_chosen_idx = 0; /* start at the beginning of vd_chosen */ /* Determine if all VDs are to be dumped out. */ if (num_vd_chosen <= 0) /* If so, set the corresponding flag. */ dumpall = 1; else /* Otherwise, sort the indices of the chosen VDs in increasing order so that they will be dumped out in such order */ sort(vd_chosen,num_vd_chosen); /* Examine each VD, which is identified by its ref# returned by VSgetid */ for (i = 0; (vdata_ref = VSgetid(file_id, vdata_ref)) != FAIL && (dumpall!=0 || vd_chosen_idx < num_vd_chosen); i++) { intn data_only; /* indicates whether to print data only */ intn flds_match = 0; /* indicates whether any requested fields exist, or if no field requested, set to 1 means dump all fields */ char sep[2]; /* the character that is used to separate 2 fields */ /* Only dump the info of the chosen VDs or all of the VDs if none has been selected. */ if ((!dumpall) && (i != vd_chosen[vd_chosen_idx])) continue; /* skip */ vd_chosen_idx++; /* One vdata has been located; so go to the next one in the array. */ vd_id = VSattach(file_id, vdata_ref, "r"); if (vd_id == FAIL) /* continue to the next vdata */ ERROR_CONT_2( "in %s: VSattach failed for vdata_ref#=%d", "dumpvd_ascii", (int) vdata_ref ); /* Note: each of the parameters retuned by a query routine below must be checked before being used */ /* Retrieves general information about the vdata. Note that NULL is passed in for vdata's record size because it is not needed and attempting to retrieve it causes failure when the vdata doesn't have any fields defined. (bug #626) - BMR Mar 12, 02 */ if (FAIL == VSinquire( vd_id, &nvf, &interlace, fields, NULL, vdname )) ERROR_CONT_END( "in %s: VSinquire failed for vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref, vd_id ); /* Get the HDF size of the specified fields of the vdata; VShdfsize returns 0 if there are no fields previously defined */ vsize = VShdfsize( vd_id, fields ); if (vsize == FAIL) ERROR_CONT_END( "in %s: VShdfsize failed for vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref, vd_id ); if (FAIL == (vdata_tag = VSQuerytag(vd_id))) ERROR_CONT_END( "in %s: VSQuerytag failed for vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref, vd_id ); if (FAIL == VSgetclass(vd_id, vdclass)) ERROR_CONT_END( "in %s: VSgetclass failed for vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref, vd_id ); /* If one or more fields were specified by the user, then find out what they were, determine their corresponding indices in "fields", and store these indices in the array "flds_indices" so that they can be used to determine whether a field should be dumped later on. */ if (flds_chosen[0] != NULL) flds_match = getFieldIndices( fields, flds_chosen, flds_indices ); /* If no fields were chosen, all fields are to be dumped out, and so all fields match. */ else /* if (flds_chosen[0] == NULL) */ flds_match = 1; if (flds_match) { switch (dumpvd_opts->contents) { case DVERBOSE: /* dump all information */ case DHEADER: /* header only, no attributes, annotations or data */ /* store the vdata info into the vd_info_t struct for convenience */ curr_vd.index = i; /* vdata index */ curr_vd.nvf = nvf; /* number of records in the vdata */ curr_vd.interlace = interlace; /* interlace mode of the vdata */ curr_vd.vsize = vsize; /* record size of the vdata */ curr_vd.ref = vdata_ref; /* vdata ref# */ curr_vd.tag = vdata_tag; /* vdata tag */ HDstrcpy( curr_vd.clss, vdclass ); /* vdata class */ HDstrcpy( curr_vd.name, vdname ); /* vdata name */ printHeader( fp, fldstring, fields, &curr_vd ); /* proceed to printing data if not printing header only */ if (dumpvd_opts->contents != DHEADER) { /* dump vdata attributes */ status = dumpattr(vd_id, _HDF_VDATA, 1, ff, fp); if( FAIL == status ) ERROR_BREAK_3( "in %s: %s failed for attributes of vdata with ref#=%d", "dumpvd_ascii", "dumpattr", (int) vdata_ref, FAIL ); /* dump all the annotations for this vdata */ status = print_data_annots( file_id, file_name, vdata_tag, vdata_ref ); if( FAIL == status ) ERROR_BREAK_3( "in %s: %s failed for attributes of vdata with ref#=%d", "dumpvd_ascii", "print_data_annots", (int) vdata_ref, FAIL ); /* BMR - 6/30/98 to fix bug #236: if no fields are defined or no data is written, break out and don't fall through */ if ( fields[0] == '\0' || nvf == 0 ) { fprintf(fp, " No data written\n\n"); break; } } else /* only header, no attributes, annotations or data */ break; /* break out and don't fall through */ /* note that we fall through if not printing header only */ case DDATA: /* data only */ if (dumpvd_opts->contents == DDATA) { data_only = 1; HDstrcpy(sep, ""); } else { data_only = 0; HDstrcpy(sep, ";"); } /* Only the chosen or all fields will be dumped out. */ status = dumpvd(vd_id, ff, data_only, fp, sep, flds_indices, dumpallfields); if( FAIL == status ) ERROR_BREAK_2( "in %s: dumpvd failed for vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref, FAIL ); break; /* out of DDATA */ default: printf("dumping vdata in file %s, unknown option %d\n", file_name, dumpvd_opts->contents); } /* switch */ } if (FAIL == VSdetach(vd_id)) fprintf(stderr,"in %s: VSdetach failed on vdata with ref#=%d", "dumpvd_ascii", (int) vdata_ref ); /* just simply goes to the next vdata */ vd_id = FAIL; /* reset */ } /* for each vdata */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (an_handle != FAIL) ANend(an_handle); if (vd_id != FAIL) VSdetach(vd_id); } /* Normal cleanup */ return ret_value; } /* dumpvd_ascii() */ intn dumpvd_binary(dump_info_t * dumpvd_opts, int32 file_id, const char *file_name, FILE* fp, int32 num_vd_chosen, char *flds_chosen[MAXCHOICES], int32 *vd_chosen, int dumpallfields) { int32 flds_indices[MAXCHOICES]; int32 i, vd_chosen_idx; int32 nvf; int32 interlace; int32 vdata_ref = -1; char vdname[VSNAMELENMAX+1]; intn dumpall = 0; file_format_t ff = DBINARY; int32 vd_id = FAIL; intn status; intn ret_value = SUCCEED; char fields[VSFIELDMAX*FIELDNAMELENMAX]; vd_chosen_idx = 0; /* "vd_chosen_idx" is used to index the array of "vd_chosen". */ /* Determine if all VDs are to be dumped out. */ if (num_vd_chosen <= 0) /* If so, set the corresponding flag. */ dumpall = 1; else { /* Otherwise, sort the indices of the chosen VDs in increasing order so that they will be dumped out in such order. */ sort(vd_chosen,num_vd_chosen); } /* Examine each VD. */ for (i = 0; (vdata_ref = VSgetid(file_id, vdata_ref)) != -1 && (dumpall != 0 || vd_chosen_idx < num_vd_chosen); i++) { int data_only, flds_match = 0; char sep[2]; /* character used to separate fields */ /* Only dump the info of the chosen VDs or all of the VDs if none has been selected. */ if ((!dumpall) && (i != vd_chosen[vd_chosen_idx])) continue; /* skip */ vd_chosen_idx++; /* One vdata has been located; so go to the next one in the array. ???*/ /* Select the next vdata for processing */ vd_id = VSattach(file_id, vdata_ref, "r"); if (vd_id == FAIL) /* continue to the next vdata */ ERROR_CONT_2( "in %s: VSattach failed for vdata with ref#=%d", "dumpvd_binary", (int) vdata_ref ); status = VSinquire(vd_id, &nvf, &interlace, fields, NULL, vdname); if( FAIL == status ) /* end access to vd_id and cont. to next vdata */ ERROR_CONT_END( "in %s: VSinquire failed for vdata with ref#=%d", "dumpvd_binary", (int) vdata_ref, vd_id ); /* BMR - 7/1/98 realized while fixing bug #236. Skip binary printing if the vdata is empty */ if (fields[0] == '\0' || nvf == 0 ) fprintf(stderr,"in %s: Vdata with ref#=%d is empty.\n", "dumpvd_binary", (int) vdata_ref ); else /* vdata is not empty */ { /* removed calls to VSQuerytag and VSgetclass - not useful in dumping by binary - BMR 8/23/00) */ /* If one or more fields were specified by the user, then find out what they were, determine their corresponding indices in "fields", and store these indices in the array "flds_indices" so that they can be used to determine whether a field should be dumped later on. */ if (flds_chosen[0] != NULL) flds_match = getFieldIndices( fields, flds_chosen, flds_indices ); /* If no fields were chosen, all fields are to be dumped out, and so all fields match. */ else /* if (flds_chosen[0] == NULL) */ flds_match = 1; if (flds_match) { /* BMR: removed the if statement to determine if data_only should be set; set data_only in either case */ data_only = 1; HDstrcpy(sep, ""); /* Only the chosen or all fields will be dumped out. */ if (FAIL == dumpvd(vd_id, ff, data_only, fp, sep, flds_indices, dumpallfields)) ERROR_CONT_END( "in %s: Failure in dumping data for vdata with ref#=%d", "dumpvd_binary", (int) vdata_ref, vd_id ); } } /* end of if (fields[0] == '\0' || nvf == 0 ) */ if (FAIL == VSdetach(vd_id)) fprintf(stderr,"in %s: VSdetach failed on vdata with ref#=%d", "dumpvd_binary", (int) vdata_ref ); vd_id = FAIL; /* reset */ } /* for each vdata */ /* Normal cleanup */ return( ret_value ); } /* dumpvd_binary */ /* closeVD combines the processes of Vend, Hclose, freeing the list of numbers, and resetting all ids, after validating the ids first. When either Vend or Hclose fails, closeVD prints an informative message then resetting the ids as normal since these failures are highly unlikely and since the files are opened as read-only, it's safe to go on. */ void closeVD( int32 *file_id, /* will be returned as a FAIL */ int32 **vd_chosen, /* will be returned as a NULL */ const char *curr_file_name ) { if( *file_id != FAIL ) { if (FAIL == Vend(*file_id)) fprintf(stderr,"Failure in closeVD: Vend failed for file %s\n", curr_file_name ); if (FAIL == Hclose(*file_id)) fprintf(stderr,"Failure in closeVD: Hclose failed for file %s\n", curr_file_name ); *file_id = FAIL; /* reset */ } if( *vd_chosen != NULL ) { HDfree( *vd_chosen ); *vd_chosen = NULL; } /* end if */ } /* end of closeVD */ intn dvd(dump_info_t * dumpvd_opts, intn curr_arg, intn argc, char *argv[], char *flds_chosen[MAXCHOICES], int dumpallfields) { int32 file_id = FAIL; char file_name[MAXFNLEN]; int32 *vd_chosen = NULL; FILE *fp = NULL; int32 num_vd_chosen; intn index_error = 0; file_format_t ff; intn status; intn ret_value = SUCCEED; /* check for missing input file name */ if( curr_arg >= argc ) /* goto done with FAIL */ ERROR_GOTO_0( "Missing input file name. Please try again.\n" ); while (curr_arg < argc) { /* Loop until all specified files have been processed */ intn isHDF = TRUE; /* FALSE, if current file is not HDF file */ /* get file name */ HDstrcpy(file_name, argv[curr_arg]); /* record for later use */ HDstrcpy( dumpvd_opts->ifile_name, file_name ); curr_arg++; closeVD( &file_id, &vd_chosen, file_name ); /* Print an informative message and skip this file if it is not an HDF file */ isHDF = Hishdf(file_name); if (isHDF == FALSE) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dvd: %s is not an HDF file", file_name);} else /* print message, then continue processing the next file */ {ERROR_CONT_1( "in dvd: %s is not an HDF file", file_name);} } /* open current hdf file with error check, if fail, go to next file */ file_id = Hopen(file_name, DFACC_READ, 0); if (file_id == FAIL) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dvd: Failure in opening file %s", file_name);} /* otherwise, print message, then continue processing the next file */ else ERROR_CONT_1( "in dvd: Failure in opening file %s", file_name ); } /* initiate VG interface; if fail, probably something fatal, returns with FAIL */ if (FAIL == Vstart(file_id)) ERROR_GOTO_1( "in dvd: Vstart failed for file %s\n", file_name); /* Find out which VDs have been chosen. */ num_vd_chosen = choose_vd(dumpvd_opts, &vd_chosen, file_id, &index_error); /* if there are no valid indices, move on to the next file */ if (index_error && num_vd_chosen == 0) continue; /* to the next file, closeVG before opening next file takes care of Vend, Hclose, and free vg_chosen */ ff = dumpvd_opts->file_format; fp = stdout; /* default file pointer to the standard output */ switch(ff) { case DASCII: /* ASCII file */ /* set output file */ if (dumpvd_opts->dump_to_file) fp = fopen(dumpvd_opts->file_name, "w"); status = dumpvd_ascii(dumpvd_opts, file_id, file_name, fp, num_vd_chosen, flds_chosen, vd_chosen, dumpallfields); if( FAIL == status ) ERROR_BREAK_0( "in dvd: dumpvd_ascii returned failure", FAIL ); break; case DBINARY: /* binary file, not fully tested yet */ /* Get output file name. */ if (dumpvd_opts->dump_to_file) fp = fopen(dumpvd_opts->file_name, "wb"); status = dumpvd_binary(dumpvd_opts, file_id, file_name, fp, num_vd_chosen, flds_chosen, vd_chosen, dumpallfields); if( FAIL == status ) ERROR_BREAK_0( "in dvd: dumpvd_binary returned failure", FAIL ); break; default: printf("dumping vdata, unknown ouput file option \n"); ret_value = FAIL; } /* switch for output file */ if(vd_chosen != NULL) { HDfree(vd_chosen); vd_chosen = NULL; } if (dumpvd_opts->dump_to_file) fclose(fp); if (FAIL == Vend(file_id)) ERROR_CONT_1( "in dvd: Vend failed on file %s\n", file_name); if (FAIL == Hclose(file_id)) ERROR_CONT_1( "in dvd: Hclose failed on file %s\n", file_name); file_id = FAIL; /* reset */ } /* while processing files */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (file_id != FAIL) { Vend(file_id); Hclose(file_id); } if(vd_chosen != NULL) { HDfree(vd_chosen); vd_chosen = NULL; } } /* Normal cleanup */ return ret_value; } /* dvd */ /* exported */ intn do_dumpvd(intn curr_arg, intn argc, char *argv[], intn help) { dump_info_t dumpvd_opts; /* dumpvd options */ char *flds_chosen[MAXCHOICES]; int dumpallfields; intn status, ret_value = SUCCEED; flds_chosen[0] = NULL; dumpallfields = 1; /* initialize the structure that holds user's options and inputs */ init_dump_opts(&dumpvd_opts); if (help == TRUE) { dumpvd_usage(argc, argv); goto done; } /* incomplete command */ if( curr_arg >= argc ) { dumpvd_usage(argc, argv); ERROR_GOTO_0( "in do_dumpvd: command is incomplete"); } /* end if */ /* parse the user's command and store the inputs in dumpvd_opts */ status = parse_dumpvd_opts(&dumpvd_opts, &curr_arg, argc, argv, flds_chosen, &dumpallfields); if( status == FAIL ) { dumpvd_usage(argc, argv); ret_value = FAIL; /* return status to caller */ goto done; /* skip dvd */ } /* display data and information as specified in dumpvd_opts */ status = dvd(&dumpvd_opts, curr_arg, argc, argv, flds_chosen, dumpallfields); if( status == FAIL ) ERROR_GOTO_0( "in do_dumpvd: dvd failed" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free the lists for given indices, ref#s, names, and classes if they had been allocated */ free_num_list(dumpvd_opts.by_index.num_list ); free_num_list(dumpvd_opts.by_ref.num_list ); free_str_list(dumpvd_opts.by_name.str_list, dumpvd_opts.by_name.num_items); free_str_list(dumpvd_opts.by_class.str_list, dumpvd_opts.by_class.num_items); return ret_value; } /* end do_dumpvd() */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_vg.c0000644000000000000000000016020112421456623015101 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hdp_vg.c 6043 2014-01-21 21:09:03Z acheng $ */ #include "hdp.h" #ifndef MIPSEL #include #endif /* MIPSEL */ #include "vg.h" #define NONAME_LEN 12 void dumpvg_usage(intn argc, char *argv[]); int32 Vref_index(int32 file_id, int32 vg_ref); int32 Vname_ref(int32 file_id, char *searched_name, int32 *find_ref, int32 *index); int32 Vstr_ref(int32 file_id, char *searched_str, int is_name, int32 *find_ref, int32 *index); int32 Vindex_ref(int32 file_id, int32 sear_index); void resetVG(int32 *vg_id, const char *curr_file_name); void display(vg_info_t *ptr, int32 level, vg_info_t **list, int32 num_nodes, int32 root_index, int32 firstchild, FILE *fp); intn get_VGandInfo(int32 *vg_id, int32 file_id, int32 vg_ref, const char *file_name, int32 *n_entries, char **vgname, char **vgclass); char **alloc_list_of_strings(int32 num_entries); char *alloc_strg_of_chars(char *strg); int32 get_VGindex_list(int32 file_id, dump_info_t *dumpvg_opts, int32 **vg_chosen, intn *index_error); void closeVG(int32 *file_id, int32 **vg_chosen, const char *curr_file_name); intn vgBuildGraph(int32 vg_id, int32 file_id, int32 num_entries, const char* file_name, vg_info_t *aNode, intn *skipfile); intn dvg(dump_info_t *dumpvg_opts, intn curr_arg, intn argc, char *argv[]); intn vgdumpfull(int32 vg_id, dump_info_t *dumpvg_opts, int32 file_id, int32 num_entries, FILE *fp, vg_info_t *aNode, intn *skipfile); /* display the usage of command dumpvg */ void dumpvg_usage(intn argc, char *argv[]) { printf("Usage:\n"); printf("%s dumpvg [-a|-i |-r |-n |-c ] [-hv] [-o ] \n", argv[0]); printf("\t-a\tDump all VGs in the file (default)\n"); printf("\t-i \tDump the VGs at position listed in \n"); printf("\t-r \tDump the VGs with reference number listed in \n"); printf("\t-n \tDump the VGs with name listed in \n"); printf("\t-c \tDump the VGs with class listed in \n"); /* printf("\t-d\tDump data only, no tag/ref, formatted to input to hp2hdf\n"); */ printf("\t-h\tDump header only, no annotation for elements nor data\n"); printf("\t-v\tDump everything including all annotations (default)\n"); printf("\t-o \tOutput to file \n"); /* printf("\t-x\tAscii text format of output (default)\n"); */ printf("\t\tList of hdf file names, separated by spaces\n"); } /* end dumpvg_usage() */ intn parse_dumpvg_opts(dump_info_t *dumpvg_opts, intn *curr_arg, intn argc, char *argv[]) { intn ret_value = SUCCEED; /* traverse the command and process each option */ #if defined(WIN386) || defined(DOS386) while ((*curr_arg < argc) && ((argv[*curr_arg][0] == '-') || (argv[*curr_arg][0] == '/'))) #else while ((*curr_arg < argc) && (argv[*curr_arg][0] == '-')) #endif /* for the use of / as option on PC */ { switch (argv[*curr_arg][1]) { case 'a': /* dump all, default */ dumpvg_opts->filter = DALL; /* indicate that no specific images requested, will dump all */ dumpvg_opts->num_chosen = NO_SPECIFIC; (*curr_arg)++; break; case 'i': /* dump by index */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given indices in structure all_types */ parse_value_opts(argv, curr_arg, &dumpvg_opts, IS_INDEX); (*curr_arg)++; break; case 'r': /* dump by reference */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given ref numbers in structure all_types */ parse_value_opts(argv, curr_arg, &dumpvg_opts, IS_REFNUM); (*curr_arg)++; break; case 'n': /* dump by names */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given names in structure all_types */ parse_value_opts(argv, curr_arg, &dumpvg_opts, IS_NAME); (*curr_arg)++; break; case 'c': /* dump by class */ (*curr_arg)++; /* go to the parameters for this flag */ /* Parse and store the given classnames in structure all_types */ parse_value_opts(argv, curr_arg, &dumpvg_opts, IS_CLASS); (*curr_arg)++; break; case 'd': /* dump data only */ dumpvg_opts->contents = DDATA; (*curr_arg)++; printf("Warning>>> option -d is being removed from dumpvg.\n"); printf("Please contact hdfhelp@ncsa.uiuc.edu if you would like to keep it.\n\n"); exit(1); case 'h': /* no annotations nor data */ dumpvg_opts->contents = DHEADER; (*curr_arg)++; break; case 'v': /* dump all info */ dumpvg_opts->contents = DVERBOSE; (*curr_arg)++; break; case 'o': /* specify output file */ dumpvg_opts->dump_to_file = TRUE; /* Get file name */ HDstrcpy(dumpvg_opts->file_name, argv[++(*curr_arg)]); (*curr_arg)++; break; case 'b': /* dump data in binary - should be removed */ printf("Warning>>> option -b has been removed from dumpvg.\n"); printf("Please contact hdfhelp@ncsa.uiuc.edu for further assistance.\n"); exit(1); case 'x': /* dump data in ascii, also default */ dumpvg_opts->file_format = DASCII; (*curr_arg)++; break; default: /* invalid dumpvg option */ printf("HDP ERROR>>> Invalid dumpvg option %s\n", argv[*curr_arg]); HGOTO_DONE(FAIL); } /* end switch */ } /* end while */ done: if (ret_value == FAIL) { /* Failure cleanup */ /* free the list if it had been allocated */ free_obj_chosen_t_list(&dumpvg_opts->all_types, dumpvg_opts->num_chosen); } /* Normal cleanup */ return (ret_value); } /* end parse_dumpvg_opts */ /* Given an index, Vindex_ref returns the vgroup's reference number or FAIL */ int32 Vindex_ref(int32 file_id, int32 sear_index) { int32 find_ref = -1; int index = 0; intn found = FALSE; int32 ret_value = FAIL; while (!found && index != -1) { find_ref = Vgetid(file_id, find_ref); /* Searched ref# doesn't exist */ if (find_ref == FAIL) index = -1; /* Valid ref# returned and its index is the searched one */ else if (index == sear_index) { /* Make sure the ref# is not invalid */ if (find_ref != -1) { found = TRUE; ret_value = find_ref; } else printf("Warning>>> vgroup at index %d has an invalid ref# %d.\n" , sear_index, find_ref); } /* Valid ref# returned but its index is not the searched one, go to next vgroup */ else index++; } return ret_value; } /* Vindex_ref */ /* Given a ref#, Vref_index searches for the vgroup that has this ref# and returns the vgroup's index or FAIL */ int32 Vref_index(int32 file_id, int32 vg_ref) { int32 find_ref = -1; int index = 0; int32 ret_value = FAIL; while ((find_ref = Vgetid(file_id, find_ref)) != FAIL) { if (find_ref == vg_ref) { ret_value = index; goto done; /* found , done */ } index++; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* Vref_index */ int32 Vstr_ref(int32 file_id, char *searched_str, /* vg's class name */ int is_name, int32 *find_ref, int32 *index) /* index of the vgroup w/ref# *find_ref */ { int32 vg_id = FAIL; char *name = NULL; uint16 name_len = 0; int32 status_32 = FAIL; int32 ret_value = FAIL; /* starting from the ref# *find_ref, search for the vgroup having a name or class the same as the given string searched_name; when no more vgroups to search, return FAIL */ while ((*find_ref = Vgetid(file_id, *find_ref)) != FAIL) { vg_id = Vattach(file_id, *find_ref, "r"); if (FAIL == vg_id) ERROR_GOTO_2( "in %s: Vattach failed for vgroup with ref#(%d)", "Vstr_ref", (int)*find_ref ); /* get the length of the vgname to allocate enough space */ if (is_name) status_32 = Vgetnamelen(vg_id, &name_len); else status_32 = Vgetclassnamelen(vg_id, &name_len); if (FAIL == status_32) /* go to done and return a FAIL */ { ERROR_GOTO_2( "in %s: Vgetclassnamelen failed for vg ref=%d", "Vstr_ref", (int)*find_ref ); } name = (char *) HDmalloc(sizeof(char) * (name_len+1)); /* If allocation fails, Vstr_ref simply terminates hdp. */ CHECK_ALLOC(name, "vgroup classname", "Vstr_ref"); if (name_len > 0) { if (is_name) { if (FAIL == Vgetname(vg_id, name)) ERROR_GOTO_2("in %s: Vgetclass failed for vgroup with ref#(%d)", "Vstr_ref", (int)*find_ref); } else { if (FAIL == Vgetclass(vg_id, name)) ERROR_GOTO_2("in %s: Vgetclass failed for vgroup with ref#(%d)", "Vstr_ref", (int)*find_ref); } if (FAIL == Vdetach(vg_id)) ERROR_GOTO_2("in %s: Vdetach failed for vgroup with ref#(%d)", "Vstr_ref", (int)*find_ref); /* if the vg's name or vg's class is the given string, return the index of the vgroup found */ if (HDstrcmp(name, searched_str) == 0) { /* return the current ref# */ ret_value = *find_ref; /* increment index for next vgroup - same class vgroups*/ (*index)++; goto done; } (*index)++; } /* name_len > 0 */ SAFE_FREE(name); /* free name and set it to NULL */ } /* end while getting vgroups */ /* when VSgetid returned FAIL in while above, search should stop */ ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ SAFE_FREE(name); /* free name and set it to NULL */ } /* Normal cleanup */ return ret_value; } /* Vstr_ref() */ /* resetVG calls Vdetach to end access to a vgroup with error checking and resets the vgroup id to FAIL. If failure occurs, resetVG print an error message in the stderr to help debugging */ void resetVG( int32 *vg_id, const char *curr_file_name ) { if( *vg_id != FAIL ) { if( FAIL == Vdetach( *vg_id )) fprintf(stderr,"in resetVG: Vdetach failed for vg_id(%d) in file %s\n", (int)*vg_id, curr_file_name ); *vg_id = FAIL; } } /* end of resetVG */ /* recursively display a vgroup with subtrees. The parameter root_index is the index of the node of which the initial display is called. The recursion is continued until this node is visited again; this way, infinite loop will be eliminated; or until all of its children are displayed */ void display(vg_info_t *ptr, int32 level, /* level of decendants - for indentation */ vg_info_t **list, int32 num_nodes, int32 root_index, /* index of the node starting the tree */ int32 firstchild, FILE *fp ) { char *name = NULL; int i, k, x, z; int num = 1; level++; if (!firstchild) /* take care of the indentations */ { for (k = 0; k < level; k++) { for (z = 0; z < num; z++) fprintf( fp, "\t"); } } else for (z = 0; z < num; z++) fprintf( fp, "\t"); if (level > 0) /* only print -- on subtrees */ fprintf( fp, "-- "); /* every vg is printed here, except the one that indicates a loop */ fprintf( fp, "vg%d ", (int)ptr->index); /* if this vgroup does not have any element, go to next line */ if (ptr->children == NULL) fprintf( fp, "\n"); else { /* if this vgroup has not been displayed before, print it and its subtree */ if (!ptr->displayed) { ptr->displayed = TRUE; /* so this item will not be printed again */ for (i = 0; i < ptr->n_entries && ptr->children[i] != NULL; i++) { if (i == 0) firstchild = TRUE; else firstchild = FALSE; name = ptr->children[i]; if ((HDstrcmp(ptr->type[i], "vd")) && (HDstrcmp(ptr->children[i], "***"))) { x = 0; while (HDstrcmp(name, list[x]->vg_name)) { x++; } /* BMR: stop when the current node is the same as the one that starts this whole graph, i.e, loop starts */ if( list[x]->index != root_index ) display(list[x], level, list, num_nodes, root_index,firstchild,fp); /* BMR: if the loop has started, only print the node's name and an '*' to indicate a loop */ else { if( i > 0) { for (k = 0; k < level+1; k++) { for (z = 0; z < num; z++) fprintf( fp, "\t"); } fprintf( fp, "-- vg%d (*)\n", (int)list[x]->index); } else fprintf( fp, " -- vg%d (*)\n", (int)list[x]->index); } } else /* this node is a vdata */ { if (i > 0) { for (k = 0; k < level + 1; k++) { for (z = 0; z < num; z++) fprintf( fp, "\t"); } } if (firstchild) { for (z = 0; z < num; z++) fprintf( fp, "\t"); } fprintf( fp, "-- "); /* fprintf( fp, "%s%d ", ptr->type[i], i); */ fprintf( fp, "%s \n", ptr->type[i]); } } /* for (i...) */ } /* if (!ptr->displayed) */ else fprintf( fp, "\n"); } /* has subnodes */ /* Reset for the next node in the list - BMR, 01/16/99 */ ptr->displayed = FALSE; } /* display */ /* get_VGandInfo attaches to vgroup with ref# vg_ref, and retrieves the vgroup's id. If attaching successful, the routine reads the vgroup's tag, name, class, and number of entries; otherwise, it will set the vgroup's id to FAIL and returns to the caller with status FAIL. If any other failure occurs, get_VGandInfo will return the status as FAIL after completing its processing. */ intn get_VGandInfo( int32 *vg_id, int32 file_id, int32 vg_ref, const char *file_name, int32 *n_entries, char **vgname, char **vgclass ) { intn status, ret_value = SUCCEED; int32 status_32; uint16 name_len = 0; /* detach the current vgroup if it's attached to cover the case where a library routine fails and must continue to the next vgroup without detaching the failed vgroup */ resetVG( vg_id, file_name ); *vg_id = Vattach(file_id, vg_ref, "r"); if( *vg_id == FAIL) /* go to done and return a FAIL */ ERROR_GOTO_2( "in %s: Vattach failed for vgroup ref=%d", "get_VGandInfo", (int) vg_ref ); /* get the length of the vgname to allocate enough space */ status_32 = Vgetnamelen(*vg_id, &name_len); if (FAIL == status_32) /* go to done and return a FAIL */ { ERROR_GOTO_2( "in %s: Vgetnamelen failed for vg ref=%d", "get_VGandInfo", (int) vg_ref ); } if (name_len > 0) { *vgname = (char *) HDmalloc(sizeof(char) * (name_len+1)); /* If allocation fails, get_VGandInfo simply terminates hdp. */ CHECK_ALLOC(*vgname, "*vgname", "get_VGandInfo" ); status = Vinquire(*vg_id, n_entries, *vgname); if (FAIL == status) /* go to done and return a FAIL */ { *n_entries = -1; ERROR_GOTO_2( "in %s: Vinquire failed for vg ref=%d", "get_VGandInfo", (int) vg_ref ); } } else { *vgname = (char *) HDmalloc(sizeof(char) * (NONAME_LEN)); HDstrcpy( *vgname, "" ); status = Vinquire(*vg_id, n_entries, NULL); if (FAIL == status) /* go to done and return a FAIL */ { *n_entries = -1; ERROR_GOTO_2( "in %s: Vinquire failed for vg ref=%d", "get_VGandInfo", (int) vg_ref ); } } /* get the length of the vgclass to allocate enough space */ status_32 = Vgetclassnamelen(*vg_id, &name_len); if (FAIL == status_32) /* go to done and return a FAIL */ { ERROR_GOTO_2( "in %s: Vgetclassnamelen failed for vg ref=%d", "get_VGandInfo", (int) vg_ref ); } if (name_len > 0) { *vgclass = (char *) HDmalloc(sizeof(char) * (name_len+1)); /* If allocation fails, get_VGandInfo simply terminates hdp. */ CHECK_ALLOC(*vgclass, "*vgclass", "get_VGandInfo" ); status_32 = Vgetclass(*vg_id, *vgclass); if( FAIL == status_32 ) /* go to done and return a FAIL */ { ERROR_GOTO_2( "in %s: Vgetclass failed for vgroup ref#=%d", "get_VGandInfo", (int) vg_ref ); } } else { *vgclass = (char *) HDmalloc(sizeof(char) * (NONAME_LEN)); HDstrcpy( *vgclass, "" ); } done: if( ret_value == FAIL ) { if (*vgname != NULL) { HDfree((VOIDP)*vgname); /* free temp memory */ *vgname = NULL; } if (*vgclass != NULL) { HDfree((VOIDP)*vgclass); /* free temp memory */ *vgclass = NULL; } } /* Normal cleanup */ return( ret_value ); } /* end of get_VGandInfo */ intn print_data_annots( int32 file_id, const char *file_name, int32 tag, int32 ref ) { int32 an_id = FAIL; intn ret_value = SUCCEED; if ((an_id = ANstart(file_id)) == FAIL) ERROR_GOTO_2( "in %s: ANstart failed for file %s\n", "print_data_annots", file_name); /* print labels of vgroup if any */ if (FAIL == print_data_labels(file_name, an_id, (uint16)tag, (uint16)ref)) ERROR_GOTO_3( "in %s: print_data_labels failed for vg_ref(%d) in file %s\n", "print_data_annots", (int) ref, file_name); /* print descriptions of vgroup if any */ if (FAIL == print_data_descs(file_name, an_id, (uint16)tag, (uint16)ref)) ERROR_GOTO_3( "in %s: print_data_descs failed for vg-ref(%d) in file %s\n", "print_data_annots", (int) ref, file_name); /* close annotation interface */ if (FAIL == ANend(an_id)) ERROR_GOTO_2( "in %s: ANend failed for file %s\n", "print_data_annots", file_name); done: if( ret_value == FAIL ) { if (an_id != FAIL) ANend(an_id); } /* Normal cleanup */ return( ret_value ); } /* end of print_data_annots */ /* alloc_list_of_strings allocates a list of num_entries char pointers and initializes the pointers to NULL. If allocation fails, alloc_list_of_strings simply terminates hdp. */ char **alloc_list_of_strings( int32 num_entries) { char **ptr=NULL; intn i; /* I don't know why +1 here and only i;\n", field_title ); else { /* there are fields to print */ fprintf(fp, "%s[", field_title ); HDstrcpy(tempflds, fields); /* tempflds can be manipulated */ ptr = tempflds; /* traverse tempflds with ptr */ /* traverse the temporary fieldname list to obtain and print each * field name; use ',' to locate individual field names, and each * line should not exceed 50 characters beside the alignment */ for (i = 0; !lastItem; i++) { tempPtr = HDstrchr(ptr, ','); /* locate next separator */ if (tempPtr == NULL) lastItem = 1; /* set flag for end of list */ else *tempPtr = '\0'; /* change ',' to null to obtain field name */ HDstrcpy(fldname, ptr); /* obtain current field name */ count += HDstrlen(fldname); /* increment current # of chars on line */ if (count > 50) { /* print alignment for the subsequent lines */ fprintf(fp, "\n\t "); /* include the skipped field from previous line */ count = HDstrlen(fldname); } fprintf(fp, "%s", fldname); /* print the current field name */ if (!lastItem) fprintf(fp, ", "); /* print a comma if it's not the last field name */ ptr = tempPtr + 1; /* move ptr beyond last field name */ } /* end of for loop */ fprintf(fp, "];\n"); } /* there are fields to print */ } /* end of print_fields */ /* compose the list of indices of the requested vgroups although some vgroups are requested by ref# or name. The routine returns: - the number of vgroups to be processed, or - NO_SPECIFIC if all vgroups are to be processed, or - 0 if none. If there are any errors, the parameter index_error will return TRUE */ int32 get_VGindex_list( int32 file_id, dump_info_t *dumpvg_opts, int32 **vg_chosen, intn *index_error ) { intn ii, jj; int32 index, find_ref, vg_count = 0, num_vg_chosen = dumpvg_opts->num_chosen, found = FALSE, ref_num; intn ret_value = 0; /* if no specific vgroups are requested, return vgroup count as NO_SPECIFIC (-1) */ if (num_vg_chosen == NO_SPECIFIC) { HGOTO_DONE(NO_SPECIFIC); } /* if specific vgroups were requested, allocate space for the array of indices */ else alloc_index_list(vg_chosen, num_vg_chosen); /* Go through the list of all info given by flags -i, -r, -n, and -c, and convert the info to reference numbers and store them in vg_chosen */ for (ii = 0; ii < dumpvg_opts->num_chosen; ii++) { switch (dumpvg_opts->all_types[ii].type_of_info) { /* if the current chosen VG was requested by its index, store the index in the array vg_chosen */ case IS_INDEX: ref_num = Vindex_ref(file_id, dumpvg_opts->all_types[ii].index); (*vg_chosen)[ii] = ref_num; /* Vindex_ref verified ref_num */ vg_count++; break; /* if the current chosen VG was requested by its ref#, convert the ref# to index and store the index in the array vg_chosen */ case IS_REFNUM: (*vg_chosen)[ii] = dumpvg_opts->all_types[ii].refnum; vg_count++; break; /* if the current chosen VG was requested by its name, find all vgroups in the file with the same name and store their refs in *vg_chosen */ case IS_NAME: index = 0; /* Find first vgroup of name all_types[ii].name */ find_ref = Vfind(file_id, dumpvg_opts->all_types[ii].name); /* Then find all vgroups of the same name */ while (find_ref != 0 && find_ref != -1) { if (vg_count < num_vg_chosen) (*vg_chosen)[vg_count] = find_ref; else { /* reallocate the array vg_chosen to hold multiple vgroups since name is not unique b/w vgroups */ *vg_chosen = (int32 *)HDrealloc(*vg_chosen, sizeof(int32)*(num_vg_chosen+1)); if( *vg_chosen == NULL) { fprintf(stderr,"Failure in get_VGindex_list: Not enough memory!\n"); exit(1); } /* end if */ (*vg_chosen)[vg_count] = find_ref; num_vg_chosen++; } found = TRUE; vg_count++; find_ref = Vstr_ref(file_id, dumpvg_opts->all_types[ii].name, 1, &find_ref, &index); } if (!found) { printf( "Vgroup with name '%s': not found\n", dumpvg_opts->all_types[ii].name); *index_error = 1; /* error */ goto done; } break; /* if the current chosen VG was requested by its class, convert the class to index and store the index in the array vg_chosen */ case IS_CLASS: index = 0; /* Find the first class with the all_type[ii].classname */ find_ref = Vfindclass(file_id, dumpvg_opts->all_types[ii].classname); /* Then look for all the vgroups of the same class */ while (find_ref != 0 && find_ref != -1) { if (vg_count < num_vg_chosen) (*vg_chosen)[vg_count] = find_ref; else { /* reallocate the array vg_chosen to hold multiple vgroups since class name is not unique b/w vgroups */ *vg_chosen = (int32 *)HDrealloc(*vg_chosen, sizeof(int32)*(num_vg_chosen+1)); if( *vg_chosen == NULL) { fprintf(stderr,"Failure in get_VGindex_list: Not enough memory!\n"); exit(1); } /* end if */ (*vg_chosen)[vg_count] = find_ref; num_vg_chosen++; } found = TRUE; vg_count++; find_ref = Vstr_ref(file_id, dumpvg_opts->all_types[ii].classname, 0, &find_ref, &index); } if (!found) { printf( "Vgroup with class '%s': not found\n", dumpvg_opts->all_types[ii].classname); *index_error = 1; /* error */ goto done; } break; default: fprintf(stderr, "in get_VGindex_list: Info should only be an index, ref number, name, or class of a Vgroup\n"); *index_error = TRUE; /* error */ } /* end switch */ } /* end for loop */ ret_value = vg_count; /* actual number of vgroups to be processed; might be different from dumpvg_opts->num_chosen because of the non-unique class name */ done: if (ret_value == FAIL) { /* Failure cleanup */ /* need to free vg_chosen here */ } /* Normal cleanup */ return ret_value; } /* end of get_VGindex_list */ /* print_file_annotations manage the AN interface and simply calls the two routines print_all_file_labels and print_file_descs defined in hdp_list.c to display the file annotations of the current file */ intn print_file_annotations( int32 file_id, const char* file_name ) { int32 an_id = FAIL; intn status = SUCCEED, ret_value = SUCCEED; /* initiate the annotation interface */ an_id = ANstart(file_id); if (FAIL == an_id) ERROR_GOTO_0( "in print_file_annotations: ANstart failed"); /* print file labels if any */ status = print_all_file_labels( file_name, an_id ); if( status == FAIL ) ERROR_GOTO_0( "in print_file_annotations: print_all_file_labels failed"); /* print file descriptions if any */ status = print_file_descs( file_name, an_id ); if( status == FAIL ) ERROR_GOTO_0( "in print_file_annotations: print_file_descs failed"); /* close annotation interface */ if (FAIL == ANend( an_id )) ERROR_GOTO_0( "in print_file_annotations: ANend failed" ); done: if( ret_value == FAIL ) { if (an_id != FAIL) if (FAIL == ANend( an_id )) fprintf(stderr,"ANend failed for an_id(%d) for file %s\n", (int)an_id, file_name); } /* Normal cleanup */ return( ret_value ); } /* end of print_file_annotations */ /* closeVG combines the processes of Vend, Hclose, freeing the list of numbers, and resetting all ids, after validating the ids first. When either Vend or Hclose fails, closeVG prints an informative message then resetting the ids as normal since these failures are highly unlikely and since the files are opened as read-only, it's safe to go on. */ void closeVG( int32 *file_id, /* will be returned as a FAIL */ int32 **vg_chosen, /* will be returned as a NULL */ const char *curr_file_name ) { if( *file_id != FAIL ) { if (FAIL == Vend(*file_id)) fprintf(stderr,"Failure in closeVG: Vend failed for file %s\n", curr_file_name ); if (FAIL == Hclose(*file_id)) fprintf(stderr,"Failure in closeVG: Hclose failed for file %s\n", curr_file_name ); *file_id = FAIL; /* reset */ } SAFE_FREE(*vg_chosen); /* safely free vg_chosen list and set it to NULL */ } /* end of closeVG */ intn vgBuildGraph(int32 vg_id, int32 file_id, int32 num_entries, const char* file_name, vg_info_t *aNode, intn *skipfile) { int32 vs; char vsname[MAXNAMELEN]; char *vgname = NULL; char *vgclass = NULL; char *name = NULL; int32 vgt = FAIL; int32 entry_num; int32 elem_ref = FAIL; int32 elem_n_entries; int32 elem_tag; int32 vg_ref; intn status, ret_value = SUCCEED; aNode->n_entries = num_entries; if (num_entries != 0) { /* allocate and init memory for storing children's and type's info */ aNode->children = alloc_list_of_strings(num_entries); aNode->type = alloc_list_of_strings(num_entries); /* get the current vgroup's ref# for error message */ vg_ref = VQueryref( vg_id ); if( vg_ref == FAIL ) ERROR_GOTO_2( "in %s: VQueryref failed for vgroup with id=%d", "vgBuildGraph", (int) vg_id ); for (entry_num = 0; entry_num < num_entries; entry_num++) { status = Vgettagref(vg_id, entry_num, &elem_tag, &elem_ref); if( FAIL == status ) ERROR_CONT_2( "in %s: Vgettagref failed for the %d'th entry", "vgBuildGraph", (int) entry_num ); if( elem_ref == 0 ) /* taken care of ref=0 in tdfr8f and tdf24 for now */ { /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars("***"); aNode->type[entry_num] = alloc_strg_of_chars(""); } else if (elem_tag == DFTAG_VG) { /* vgroup */ /* get the current vgroup and its information */ status = get_VGandInfo( &vgt, file_id, elem_ref, file_name, &elem_n_entries, &vgname, &vgclass ); if( status == FAIL ) ERROR_NOTIFY_3( "in %s: %s failed in getting vgroup with ref#=%d", "vgBuildGraph", "get_VGandInfo", (int)vg_ref ); /* although get_VGandInfo failed to get a valid id for this vgroup, the node for the vgroup is not affected, so build it anyway */ if( vgt == FAIL ) { *skipfile = TRUE; /* severe failure, skip this file */ ERROR_NOTIFY_3( "in %s: %s failed to return a valid vgroup id for the %d'th entry", "vgBuildGraph", "get_VGandInfo", (int) entry_num ); } /* vgroup has no name */ if (HDstrlen(vgname) == 0 || vgname == NULL) { vgname = (char *) HDmalloc(sizeof(char) * (NONAME_LEN)); HDstrcat(vgname, ""); } resetVG( &vgt, file_name ); /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( vgname ); aNode->type[entry_num] = alloc_strg_of_chars( "vg" ); } /* if current element is vgroup */ else if (elem_tag == VSDESCTAG) { /* vdata */ /* add type of this element to the current graph */ aNode->type[entry_num] = alloc_strg_of_chars( "vd" ); vs = VSattach(file_id, elem_ref, "r"); if (vs == FAIL) { /* add Invalid for the name of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( "" ); ERROR_CONT_2( "in %s: VSattach failed for vdata with ref#=%d", "vgBuildGraph", (int) elem_ref ); } else /* VSattach didn't fail */ { /* get vdata's name for graphical rep. preparation only */ if (FAIL == VSgetname(vs, vsname)) { ERROR_NOTIFY_2( "in %s: VSgetname failed for vdata with ref#=%d", "vgBuildGraph", (int) elem_ref ); /* set vdata's name to undefined */ HDstrcpy( vsname, "" ); } if (FAIL == VSdetach(vs)) ERROR_NOTIFY_2( "in %s: VSdetach failed for vdata with ref#=%d", "vgBuildGraph", (int) elem_ref ); } /* if VSattach doesn't fail */ /* vdata has no name */ if (HDstrlen(vsname) == 0) HDstrcat(vsname, ""); /* add the name of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( vsname ); } /* if current element is a vdata */ else /* else something else */ { name = HDgettagsname((uint16) elem_tag); if (!name) name = HDstrdup("Unknown Tag"); /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( "***" ); if (!strcmp(name, "Unknown Tag")) { aNode->type[entry_num] = alloc_strg_of_chars( "Unknown Object"); } else aNode->type[entry_num] = name; } /* something else */ } /* for */ } done: if (ret_value == FAIL) { /* Failure cleanup */ aNode = free_node_vg_info_t(aNode); } /* Normal cleanup */ SAFE_FREE(vgname); /* free vg name and set it to NULL */ SAFE_FREE(vgclass); /* free vg class name and set it to NULL */ return ret_value; } /* vgBuildGraph */ intn vgdumpfull(int32 vg_id, dump_info_t *dumpvg_opts, int32 file_id, int32 num_entries, FILE *fp, vg_info_t *aNode, intn *skipfile) { int32 vgt = FAIL; int32 vg_ref; int32 entry_num; int32 elem_tag; int32 elem_ref = FAIL; int32 elem_n_entries; int found = 0; int32 vs; int32 nv; int32 interlace; int32 vsize; char vsname[MAXNAMELEN]; char vsclass[VSNAMELENMAX+1]; char *vgname = NULL; char *vgclass = NULL; char *name = NULL; char *file_name = dumpvg_opts->ifile_name; intn status, ret_value = SUCCEED; char fields[VSFIELDMAX*FIELDNAMELENMAX]; aNode->n_entries = num_entries; if (num_entries != 0) { /* allocate and init memory for storing children's and type's info */ aNode->children = alloc_list_of_strings( num_entries ); aNode->type = alloc_list_of_strings( num_entries ); /* get the current vgroup's ref# for error message */ vg_ref = VQueryref( vg_id ); if( vg_ref == FAIL ) ERROR_GOTO_2( "in %s: VQueryref failed for vgroup with id=%d", "vgdumpfull", (int) vg_id ); for (entry_num = 0; entry_num < num_entries; entry_num++) { status = Vgettagref(vg_id, entry_num, &elem_tag, &elem_ref); if( FAIL == status ) ERROR_CONT_2( "in %s: Vgettagref failed for the %d'th entry", "vgdumpfull", (int) entry_num ); found = 1; if( elem_ref == 0 ) /* taken care of ref=0 in tdfr8f and tdf24 for now */ { fprintf(fp, " #%d (Vgroup)\n", (int) entry_num ); fprintf(fp, "\ttag = %d;", (int) elem_tag); fprintf(fp, "reference = %d;\n", (int) elem_ref ); /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars("***"); aNode->type[entry_num] = alloc_strg_of_chars(""); } else if (elem_tag == DFTAG_VG) { /* vgroup */ /* get the current vgroup and its information */ status = get_VGandInfo( &vgt, file_id, elem_ref, file_name, &elem_n_entries, &vgname, &vgclass ); if( status == FAIL ) ERROR_GOTO_3( "in %s: %s failed in getting vgroup with ref#=%d", "vgdumpfull", "get_VGandInfo", (int) vg_ref ); /* since the succeeding processing depends on this vg id, we decided to just skip the current file. Note that elem_n_entries is not checked here since it does not effect the following processing as in the case of the parent's vgroup */ if( vgt == FAIL ) { /* return to caller to go to next file */ *skipfile = TRUE; ERROR_GOTO_3( "in %s: %s failed to return a valid vgroup id for the %d'th entry", "vgdumpfull", "get_VGandInfo", (int) entry_num ); } /* vgroup has no name */ if (HDstrlen(vgname) == 0 || vgname == NULL) { vgname = (char *) HDmalloc(sizeof(char) * (NONAME_LEN)); HDstrcat(vgname, ""); } /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( vgname ); aNode->type[entry_num] = alloc_strg_of_chars( "vg" ); /* print the entry's info */ fprintf(fp, " #%d (Vgroup)\n", (int) entry_num ); fprintf(fp, "\ttag = %d; ", (int) elem_tag); fprintf(fp, "reference = %d;\n", (int) elem_ref ); fprintf(fp, "\tnumber of entries = %d;\n", (int) elem_n_entries); fprintf(fp, "\tname = %s; class = %s\n", vgname, vgclass); /* dump attributes for vgroup */ status = dumpattr(vgt, 0, 0, dumpvg_opts->file_format, fp); if( FAIL == status ) ERROR_CONT_3( "in %s: %s failed to dump attributes for vgroup with ref#=%d", "vgdumpfull", "dumpattr", (int) elem_ref ); /* dump all of the annotations for this vgroup */ status = print_data_annots( file_id, file_name, elem_tag, elem_ref ); if( FAIL == status ) ERROR_CONT_3( "in %s: %s failed to dump annotations for vgroup with ref#=%d", "vgdumpfull", "print_data_annots", (int) elem_ref ); resetVG( &vgt, file_name ); } /* if current element is vgroup */ else if (elem_tag == VSDESCTAG) { /* vdata */ vs = VSattach(file_id, elem_ref, "r"); if (vs == FAIL) ERROR_CONT_2( "in %s: VSattach failed for vdata with ref#=%d", "vgdumpfull", (int) elem_ref ); /* get and print vdata's information */ status = VSinquire(vs, &nv, &interlace, fields, &vsize, vsname); if( FAIL == status ) ERROR_CONT_2( "in %s: VSinquire failed for vdata with ref#=%d", "vgdumpfull", (int) elem_ref ); vsize = VShdfsize(vs, fields); if (vsize == FAIL) ERROR_CONT_2( "in %s: VShdfsize failed for vdata with ref#=%d", "vgdumpfull", (int) elem_ref ); /* vdata has no name */ if (HDstrlen(vsname) == 0) HDstrcat(vsname, ""); if (FAIL == VSgetclass(vs, vsclass)) ERROR_CONT_2( "in %s: VSgetclass failed for vdata with ref#=%d", "vgdumpfull", (int) elem_ref ); /* vdata has no class */ if (HDstrlen(vsclass) == 0) HDstrcpy( vsclass, "" ); fprintf(fp, " #%d (Vdata)\n", (int) entry_num); fprintf(fp, "\ttag = %d; ", (int) elem_tag); fprintf(fp, "reference = %d; \n", (int) elem_ref); fprintf(fp, "\tnumber of records = %d; ", (int) nv); fprintf(fp, "interlace = %d;\n", (int) interlace); /* The list of field names can be very long and would look very messy when being displayed if it were to be dumped out at once. print_fields displays a list in a nice way even if the list is long. The second parameter specifies how the field name list begins; it's needed because dumpvd also uses this routine and has different indentation format than dumpvg */ print_fields( fields, "\tfields = ", fp ); fprintf(fp, "\trecord size (in bytes) = %d;\n", (int)vsize); fprintf(fp, "\tname = %s; class = %s;\n", vsname, vsclass); fprintf(fp, "\ttotal number of attributes = %d.\n", VSnattrs(vs)); if (FAIL == VSdetach(vs)) ERROR_CONT_2( "in %s: VSdetach failed for vdata with ref#=%d", "vgdumpfull", (int) elem_ref ); /* vdata has no name */ if (HDstrlen(vsname) == 0) HDstrcat(vsname, ""); /* add the name and type of this element to the list node */ aNode->children[entry_num] = alloc_strg_of_chars( vsname ); aNode->type[entry_num] = alloc_strg_of_chars( "vd" ); } /* if current element is a vdata */ else /* else something else */ { name = HDgettagsname((uint16) elem_tag); if (!name) name = HDstrdup("Unknown Tag"); fprintf(fp, " #%d (%s)\n", (int) entry_num, name); fprintf(fp, "\ttag = %d; reference = %d;\n", (int) elem_tag, (int) elem_ref); /* add the name and type of this element to the current graph */ aNode->children[entry_num] = alloc_strg_of_chars( "***" ); if (!strcmp(name, "Unknown Tag")) aNode->type[entry_num] = alloc_strg_of_chars( "Unknown Object"); else aNode->type[entry_num] = name; } /* something else */ } /* for */ } if( !found ) printf(" None.\n"); done: if (ret_value == FAIL) { /* Failure cleanup */ aNode = free_node_vg_info_t(aNode); } /* Normal cleanup */ SAFE_FREE(vgname); /* free vg name and set it to NULL */ SAFE_FREE(vgclass); /* free vg class name and set it to NULL */ return ret_value; } /* vgdumpfull */ intn dvg(dump_info_t *dumpvg_opts, intn curr_arg, intn argc, char *argv[]) { int32 file_id = FAIL; int32 vg_id = FAIL; int32 *vg_chosen = NULL; int32 vg_count; int32 num_vg_chosen; int32 j; int32 vg_ref = -1; int32 vg_tag; int32 n_entries; int32 level; int32 curr_vg=0; int32 max_vgs=0; int32 num_nodes = 0; int index_error = 0; int dumpall = 0; char file_name[MAXFNLEN]; char *vgclass = NULL; char *vgname = NULL; FILE *fp = NULL; vg_info_t **list = NULL; vg_info_t *ptr = NULL; intn status, ret_value = SUCCEED; /* check for missing input file name */ if( curr_arg >= argc ) { fprintf( stderr, "Missing input file name. Please try again.\n"); return( FAIL ); /* nothing to be cleaned up at this point */ } /* going through each input file, look for the requested vgroups and display them */ while (curr_arg < argc) { intn isHDF = TRUE; /* FALSE, if current file is not HDF file */ intn skipfile = FALSE; /* skip the current file when some severe */ /* failure occurs; otherwise, the list of nodes is not */ /* completely prepared and will cause a crash in display */ HDstrcpy(file_name, argv[curr_arg]); /* get current input file name */ HDstrcpy( dumpvg_opts->ifile_name, file_name ); /* record for later use */ curr_arg++; /* forward the current argument pointer */ /* there are times a failure causes continuation without proper cleanup, so closeVG ensures of that */ closeVG( &file_id, &vg_chosen, file_name ); /* Print an informative message and skip this file if it is not an HDF file */ isHDF = Hishdf(file_name); if (isHDF == FALSE) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dvg: %s is not an HDF file", file_name);} else /* print message, then continue processing the next file */ {ERROR_CONT_1( "in dvg: %s is not an HDF file", file_name);} } /* open current hdf file with error check, if fail, go to next file */ file_id = Hopen(file_name, DFACC_READ, 0); if (file_id == FAIL) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dvg: Failure in opening file %s", file_name);} /* otherwise, print message, then continue processing the next file */ else ERROR_CONT_1( "in dvg: Failure in opening file %s", file_name ); } /* initiate VG interface; if fail, probably something fatal, returns with FAIL */ if (FAIL == Vstart(file_id)) ERROR_GOTO_1( "in dvg: Vstart failed for file %s\n", file_name); /* compose the list of indices of vgroups to be processed in the current file and return the number of items in the list */ num_vg_chosen = get_VGindex_list( file_id, dumpvg_opts, &vg_chosen, &index_error); /* if there are no valid indices, move on to the next file */ if (index_error && num_vg_chosen == 0) /* to the next file */ { closeVG( &file_id, &vg_chosen, file_name ); ERROR_CONT_1( "in dvg: Invalid vgroups given for file %s", file_name ); } /* open output file for ASCII or direct to standard output */ if (dumpvg_opts->dump_to_file) fp = fopen(dumpvg_opts->file_name, "w"); else fp = stdout; /* print input file name and file annotations */ fprintf(fp, "File name: %s \n", file_name); status = print_file_annotations( file_id, file_name ); if( status == FAIL ) ERROR_CONT_1( "in dvg: print_file_annotations failed for file %s", file_name ); /* when no vgroups specified, dump all vgroups */ if (num_vg_chosen == NO_SPECIFIC) dumpall = TRUE; /* otherwise, sort the list of reference numbers */ else sort(vg_chosen, num_vg_chosen); /* allocate space for the list of nodes to be printed in the Graphical Representation part */ max_vgs = NUM_VGS; list = (vg_info_t **) HDmalloc(sizeof(vg_info_t *) * max_vgs); CHECK_ALLOC( list, "list", "dvg" ); for (j = 0; j < max_vgs; j++) /* init that list */ list[j] = NULL; /* init number of nodes for the graphical representation of the current file */ num_nodes = 0; vg_count = 0; /* no vgroups processed yet */ vg_ref = Vgetid(file_id, -1); curr_vg = 0; while ((vg_ref != FAIL) && (dumpall || vg_count < num_vg_chosen)) { int32 skipvg = FALSE; intn isvdata; /* TRUE if a vdata being processed, FALSE if vg */ /* if not to dump all vgroups but the current vgroup is not one of the selected ones */ if ((!dumpall) && (vg_ref != vg_chosen[vg_count])) skipvg = TRUE; /* skip printing this vg's info and data but include it in the graphical representation */ /* attaches the current vgroup and gets its tag, name, and class */ status = get_VGandInfo( &vg_id, file_id, vg_ref, file_name, &n_entries, &vgname, &vgclass ); if( status == FAIL ) ERROR_CONT_2( "in dvg: %s failed in getting vgroup with ref#=%d", "get_VGandInfo", (int)vg_ref ); /* since the succeeding processing depends heavily on these we decided to just skip the current file */ if( vg_id == FAIL || n_entries == -1 ) { skipfile = TRUE; /* so Graphical Rep won't be printed */ break; /* to get out of this current file */ } if (!skipvg) vg_count++; num_nodes++; /* one more node to the list */ /* if more vgs to be printed than originally allocated space for, reallocate the list of nodes to the proper amount */ if (num_nodes > max_vgs) { max_vgs += NUM_VGS; list = HDrealloc(list, (uint32) sizeof(vg_info_t*) * max_vgs); CHECK_ALLOC( list, "list", "dvg" ); } list[curr_vg] = (vg_info_t *) HDmalloc(sizeof(vg_info_t)); CHECK_ALLOC( list[curr_vg], "list[curr_vg]", "dvg" ); list[curr_vg]->children = NULL; list[curr_vg]->type = NULL; /* if this vgroup is to be skipped, do not print the info here; go to the data part to add the vgroup to the node list for the graphical rep. */ if( !skipvg ) { if (FAIL == (vg_tag = VQuerytag(vg_id))) ERROR_NOTIFY_3("in dvg: %s failed on vgroup with ref=%d in file %s", "VQuerytag", (int) vg_ref, file_name); fprintf(fp, "\n"); fprintf(fp, "\nVgroup:%d\n", (int) curr_vg); if( vg_tag == DFTAG_VG ) /* when have time, change to this one, not now because it takes time to fix the testfiles */ /* fprintf(fp, " tag = DFTAG_VG(%d);", ); */ fprintf(fp, " tag = %d;", (int) vg_tag ); else fprintf(fp, " tag = Invalid tag (%d);", (int) vg_tag ); fprintf(fp, " reference = %d;\n", (int) vg_ref); fprintf(fp, " name = %s; class = %s;\n", vgname, vgclass); fprintf(fp, " number of entries = %d;\n", (int) n_entries); /* dump attributes of vgroup; the second argument is ignored in this call, it's there as an index when dumping attributes of a vdata field */ isvdata = FALSE; status = dumpattr(vg_id, 0, isvdata, dumpvg_opts->file_format, fp); if (FAIL == status ) ERROR_NOTIFY_3("in dvg: %s failed on vgroup with ref=%d in file %s", "dumpattr", (int) vg_ref, file_name); /* Read in all of the annotations. */ /* Re-vamped annotation handling to use new ANxxx interface * -georgev 6/11/97 */ status = print_data_annots( file_id, file_name, vg_tag, vg_ref ); if (FAIL == status ) ERROR_NOTIFY_3("in dvg: %s failed on vgroup with ref=%d in file %s", "dumpattr", (int) vg_ref, file_name); } /* not skipped */ if( skipvg || dumpvg_opts->contents == DHEADER ) { status = vgBuildGraph(vg_id, file_id, n_entries, file_name, list[curr_vg], &skipfile ); if( status == FAIL ) ERROR_NOTIFY_3( "in dvg: %s failed for vgroup with ref#=%d in file %s", "vgBuildGraph", (int) vg_ref, file_name ); } else { fprintf(fp, "Entries:-\n"); status = vgdumpfull(vg_id, dumpvg_opts, file_id, n_entries, fp, list[curr_vg], &skipfile ); if( FAIL == status ) { ERROR_NOTIFY_3( "in dvg: %s failed for vgroup with ref#=%d in file %s", "vgdumpfull", (int) vg_ref, file_name); /* do not continue so list[curr_vg] can be set */ } } /* neither skipped nor header only */ /* if the current file is to be skipped due to some severe error, break out of for loop and the partial list is freed */ if( skipfile ) ERROR_BREAK_1( "in dvg: Severe failure in file %s. Go to next file", file_name, FAIL ); /* done using this vgroup id, reset it */ resetVG( &vg_id, file_name ); /* fill the graph. rep. node for this vgroup */ list[curr_vg]->index = Vref_index(file_id, vg_ref); list[curr_vg]->vg_name = (char *) HDmalloc(sizeof(char) * (HDstrlen(vgname)+1)); HDstrcpy(list[curr_vg]->vg_name, vgname); list[curr_vg]->displayed = FALSE; list[curr_vg]->treedisplayed = FALSE; /* BMR - 01/16/99 */ vg_ref = Vgetid(file_id, vg_ref); if (vg_ref != FAIL) curr_vg++; } /* while more vgroups in the file */ /* print the graphical representation part */ if( !skipfile ) { int32 node_num; fprintf( fp, "\n\nGraphical representation of the file:-\n"); fprintf( fp, "(vg#: vgroup; vd: vdata)\n\n"); for (node_num = 0; node_num < num_nodes; node_num++) { int32 firstchild = FALSE; level = -1; ptr = list[node_num]; fprintf( fp, " "); /* print tree */ display(ptr, level, list, num_nodes, ptr->index, firstchild, fp); ptr->treedisplayed = TRUE; /* so this tree won't be shown again */ fprintf( fp, "\n"); } /* for */ } /* if the file is not to be skipped */ /* free allocated resources */ list = free_vginfo_list( list, curr_vg ); /* free vg_chosen, and terminate access to and close the input file */ closeVG( &file_id, &vg_chosen, file_name ); /* close the output file if there is one */ if (dumpvg_opts->dump_to_file) fclose(fp); } /* while (more file to process) */ done: if (ret_value == FAIL) { /* Failure cleanup */ resetVG( &vg_id, file_name ); closeVG( &file_id, &vg_chosen, file_name ); list = free_vginfo_list(list, curr_vg); SAFE_FREE(vgname); /* free vg name and set it to NULL */ SAFE_FREE(vgclass); /* free vg class name and set it to NULL */ } /* Normal cleanup */ return ret_value; } /* dvg */ /* main routine in hdp_vg.c; called by hdp.c/main to process the command hdp dumpvg... */ intn do_dumpvg(intn curr_arg, intn argc, char *argv[], intn help ) { dump_info_t dumpvg_opts; /* dumpvg options */ intn status, ret_value = SUCCEED; /* initialize the structure that holds user's options and inputs */ init_dump_opts(&dumpvg_opts); if (help == TRUE) { dumpvg_usage(argc, argv); goto done; } /* incomplete command */ if( curr_arg >= argc ) { dumpvg_usage(argc, argv); ERROR_GOTO_0( "in do_dumpvg: command is incomplete"); } /* end if */ /* parse the user's command and store the inputs in dumpvg_opts */ status = parse_dumpvg_opts(&dumpvg_opts, &curr_arg, argc, argv ); if( status == FAIL ) { dumpvg_usage(argc, argv); ERROR_GOTO_0( "in do_dumpvg: parse_dumpvg_opts is unable to parse command"); } /* display data and information as specified in dumpvg_opts */ status = dvg(&dumpvg_opts, curr_arg, argc, argv); if( status == FAIL ) ERROR_GOTO_0( "in do_dumpvg: dvg failed"); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free the list of structs containg info of selected Vgroups */ free_obj_chosen_t_list(&dumpvg_opts.all_types, dumpvg_opts.num_chosen); return ret_value; } /* end do_dumpvg() */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_rig.c0000644000000000000000000006772012421456623015262 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5706 $"; #endif /* $Id: hdp_rig.c 5706 2011-11-01 18:23:02Z bmribler $ */ #include #include "mfhdf.h" #include "hdp.h" #ifndef MIPSEL #include #endif /* MIPSEL */ #define IMAGE 1 static void dumprig_usage(intn argc, char *argv[]) { printf("Usage:\n"); #ifdef LATER printf("%s dumprig [-a|-i |-n |-r ] [-dhvc] [-o [-bx]] \n", argv[0]); #endif printf("%s dumprig [-a|-i |-m |-r ] [-dhv] [-o [-bx]] \n", argv[0]); printf("\t-a\tDump all RIGs in the file (default)\n"); printf("\t-i \tDump the RIGs at positions listed in \n"); #ifdef LATER printf("\t-n \tDump the RIGs with name listed in \n"); #endif printf("\t-m \tDump the 8- or 24-bit RIGs only, may be 8 or 24 \n"); printf("\t-r \tDump the RIGs with reference number listed in \n"); printf("\t-d\tDump data only, no tag/ref, formatted to input to hp2hdf\n"); printf("\t-h\tDump header only, no annotation for elements nor data\n"); printf("\t-v\tDump everything including all annotations (default)\n"); printf("\t-c\tDo not add a carriage return to a long data line\n"); printf("\t-o \tOutput to file \n"); printf("\t-b\tBinary format of output\n"); printf("\t-x\tAscii text format of output (default)\n"); printf("\t\tList of hdf file names, separated by spaces\n"); } /* end list_usage() */ static void init_dumprig_opts(dump_info_t * dumprig_opts) { dumprig_opts->filter = DALL; /* default dump all RIGs */ dumprig_opts->filter_num = NULL; /* not by reference nor by index */ dumprig_opts->filter_str = NULL; /* no strings */ dumprig_opts->num_chosen = (-1); /* default dump all items */ dumprig_opts->contents = DVERBOSE; /* default dump all information */ dumprig_opts->dump_to_file = FALSE; /* don't dump to output file */ dumprig_opts->file_format = DASCII; /* default output is ASCII file */ dumprig_opts->as_stream = FALSE; /* print output aligned, using carriage returns */ dumprig_opts->print_pal = FALSE; /* GR only, don't print palette */ /* print output aligned, using carriage returns */ dumprig_opts->as_stream = FALSE; /* print space characters (LF, FF, CR, space, tabs...) in \digit format */ dumprig_opts->clean_output = FALSE; /* print data starting at column 5 unless reset otherwise */ dumprig_opts->firstln_indent = 5; /* Note: only for dump_rig, so testfiles won't need to be changed */ /* print data on a continuous line starting at column 5 unless reset otherwise */ dumprig_opts->contln_indent = 5; /* Note: only for dump_rig, so testfiles won't need to be changed */ /* GR only, print data using interlace at creation */ dumprig_opts->interlace = NO_SPECIFIC; /* GR & SD only, print data of global attributes unless -g is given */ dumprig_opts->no_gattr_data = FALSE; /* GR & SD only, print data of local attributes unless -l is given */ dumprig_opts->no_lattr_data = FALSE; HDstrcpy(dumprig_opts->file_name, "\0"); } /* end init_list_opts() */ static intn parse_dumprig_opts(dump_info_t *dumprig_opts, intn *curr_arg, intn argc, char *argv[], int *model) { int32 i; int32 numItems; char *tempPtr = NULL; char *ptr = NULL; if (*curr_arg >= argc) return (FAIL); while ((*curr_arg < argc) && (argv[*curr_arg][0] == '-')) { switch (argv[*curr_arg][1]) { case 'a': /* dump all, default */ dumprig_opts->filter = DALL; (*curr_arg)++; break; case 'm': /* dump the rigs with model specified as 8-bit or 24-bit */ (*curr_arg)++; *model = atoi(argv[*curr_arg]); if (((*model) != 8) && ((*model) != 24)) { printf("%s-bit raster model: not available.\n", argv[*curr_arg]); exit(1); } (*curr_arg)++; break; case 'i': /* dump by index */ case 'r': /* dump by reference */ if ((argv[*curr_arg][1]) == 'i') dumprig_opts->filter = DINDEX; else dumprig_opts->filter = DREFNUM; (*curr_arg)++; ptr = argv[*curr_arg]; /* check if it's the end of the command */ if( ptr == NULL ) { printf("Missing values for option\n"); exit(1); } numItems = 0; while ((tempPtr = HDstrchr(ptr, ',')) != NULL) { numItems++; ptr=tempPtr+1; } /* end while */ if (*ptr != '\0') /* count the last item */ numItems++; dumprig_opts->filter_num = (intn *) HDmalloc(sizeof(intn) * numItems); if (dumprig_opts->filter_num == NULL) { printf("Not enough memory!\n"); exit(-1); } ptr = argv[*curr_arg]; i = 0; while ((tempPtr = HDstrchr(ptr, ',')) != NULL) { *tempPtr = '\0'; dumprig_opts->filter_num[i] = atoi(ptr); ptr = tempPtr + 1; i++; } dumprig_opts->filter_num[i] = atoi(ptr); /* get the last item */ dumprig_opts->num_chosen = numItems; /* save the number of items */ (*curr_arg)++; break; case 'd': /* dump data only */ dumprig_opts->contents = DDATA; (*curr_arg)++; break; case 'h': /* no annotations nor data */ dumprig_opts->contents = DHEADER; (*curr_arg)++; break; case 'v': /* dump all info */ dumprig_opts->contents = DVERBOSE; (*curr_arg)++; break; case 'c': /* do not add carriage returns to output data lines */ dumprig_opts->as_stream = TRUE; (*curr_arg)++; break; case 'o': /* specify output file */ dumprig_opts->dump_to_file = TRUE; /* Get file name */ HDstrcpy(dumprig_opts->file_name, argv[++(*curr_arg)]); (*curr_arg)++; break; case 'b': /* dump data in binary */ dumprig_opts->file_format = DBINARY; (*curr_arg)++; break; case 'x': /* dump data in ascii, also default */ dumprig_opts->file_format = DASCII; (*curr_arg)++; break; default: /* invalid dumprig option */ printf("Warning: Invalid dumprig option %s\n", argv[*curr_arg]); return (FAIL); } /* end switch */ } /* end while */ return (SUCCEED); } /* end parse_dumprig_opts */ static intn drig(dump_info_t *dumprig_opts, intn curr_arg, intn argc, char *argv[], int model) { int32 *rig_chosen = NULL; int32 num_rig_chosen; int32 width, height; int32 ndsets; int32 temp; intn i, k, x; char file_name[MAXFNLEN]; FILE *fp = NULL; VOIDP image = NULL; int dumpall = 0; int ncomps; int il; file_format_t ff; intn ret_value = SUCCEED; while (curr_arg < argc) { /* Examine all files. */ HDstrcpy(file_name, argv[curr_arg]); curr_arg++; num_rig_chosen = dumprig_opts->num_chosen; if (num_rig_chosen > 0) { if ((rig_chosen = (int32 *) HDmalloc(sizeof(int32) * num_rig_chosen)) == NULL) { fprintf(stderr,"Memory allocation error\n"); ret_value = FAIL; goto done; } /* end if */ k = (-1); HDmemfill(rig_chosen, &k, sizeof(int32), num_rig_chosen); } /* end if */ /* Determine which RIGs are to be displayed. */ if (dumprig_opts->filter == DINDEX) { for (i = 0; i < dumprig_opts->num_chosen; i++) rig_chosen[i] = dumprig_opts->filter_num[i]; sort(rig_chosen, num_rig_chosen); /* DREFNUM doesn't need this */ } /* end if */ /* ASCII or Binary? */ ff = dumprig_opts->file_format; switch(ff) { case DASCII: /* ASCII file */ /* Get the name of the output file. */ if (dumprig_opts->dump_to_file) fp = fopen(dumprig_opts->file_name, "w"); else fp = stdout; if (dumprig_opts->contents != DDATA) fprintf(fp, "File name: %s \n\n", file_name); /* Determine the number of images in a file. */ if (model == 8) { /* raster 8 */ if ((ndsets = DFR8nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } } else if (model == 24) { /* raster 24 */ if ((ndsets = DF24nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } } else /* try both 8 and 24 */ { if ((temp = DFR8nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } if ((ndsets = DF24nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } ndsets += temp; } if (num_rig_chosen == -1)/* If all RIGs will be dumped, set the flag. */ dumpall = 1; x = 0; /* Used as the index of the array of "rig_chosen[x]". */ /* can only check index range here */ for(i=0; i < dumprig_opts->num_chosen && dumprig_opts->filter == DINDEX; i++) { if((dumprig_opts->filter_num[i] > ndsets) ||(dumprig_opts->filter_num[i] < 0)) { fprintf(stderr,"\nThe index number %d is out of range\n", dumprig_opts->filter_num[i]); ret_value = FAIL; goto done; } } for (i = 0; i < ndsets && (dumpall!=0 || x < dumprig_opts->num_chosen); i++) { /* Examine all RIGs. */ int compressed; int has_pal; int32 eltsz; int32 read_nelts; uint16 rig_ref; uint16 compr_type; /* get dimensions of ri */ if (FAIL == DFGRgetimdims(file_name, &width, &height, &ncomps, &il)) { ret_value = FAIL; goto done; } /* Determine the size of each element; "ncomps" is 1 for an 8-bit image or 3 for a 24-bit image. */ eltsz = DFKNTsize(DFNT_UINT8 | DFNT_NATIVE) * ncomps; read_nelts = width * height; /* Number of elements to be read in. */ if ((image = (VOIDP) HDmalloc(read_nelts * eltsz)) == NULL) { fprintf(stderr,"Not enough memory!\n"); ret_value = FAIL; goto done; } /*DFGRreqimil( 1 );*/ if (DFGRIgetimlut((const char *) file_name, image, width, height, IMAGE, 0, &compressed, &compr_type, &has_pal) == -1) { fprintf(stderr,"DFGRIgetimlut: Read error for file %s\n",file_name); ret_value = FAIL; goto done; } rig_ref = DFGRIlastref(); /* Determine the reference of the image just read. */ /* If the user has specificed the reference option, then something has to be done. Note: the reason why the following part was not done inside the above "switch" statement is that the reference number of a raster image cannot be appropriately retrieved before actually reading in a raster image. */ if (dumprig_opts->filter == DREFNUM) { int ref_found = 0, m; /* Determine if the image just read has the reference specified by the user. */ for (m = 0; m < dumprig_opts->num_chosen; m++) { if (dumprig_opts->filter_num[m] == rig_ref) ref_found = 1; /* found image */ } if (!ref_found) { /* If no match, then the current image is not what the user wants and so skip it. */ HDfree((VOIDP) image); image = NULL; /* reset */ continue; } } /* If not all images are to be dumped out and the current image is not what the user wants or if the user has specified a model and the model of the current image is not that one, then skip the current image. */ if (((dumprig_opts->filter == DINDEX) && (i != rig_chosen[x])) || (((ncomps * 8) != model) && (model != 0))) { HDfree((VOIDP) image); image = NULL; /* reset */ continue; } /* Determine what to be dumped out. */ switch (dumprig_opts->contents) { case DVERBOSE: case DHEADER: fprintf(fp, "Data model: %d-bit raster image ", ncomps * 8); /* 24-bit images do not have palette */ if ((ncomps != 3) && has_pal) fprintf(fp, "with palette.\n"); else fprintf(fp, "without palette.\n"); fprintf(fp, "\twidth=%d; height=%d\n", (int) width, (int) height); fprintf(fp, "\treference=%d\n", (int) rig_ref); /* check compression if any */ if (compressed) { fprintf(fp, "\t*data is compressed with "); switch (compr_type) { case DFTAG_RLE: fprintf(fp, "RLE compression scheme.\n"); break; case DFTAG_IMCOMP: fprintf(fp, "IMCOMP conmpression scheme.\n"); break; case DFTAG_JPEG: case DFTAG_JPEG5: fprintf(fp, "JPEG conmpression scheme (24-bit data.)\n"); break; case DFTAG_GREYJPEG: case DFTAG_GREYJPEG5: fprintf(fp, "JPEG conmpression scheme (8-bit data.)\n"); break; default: fprintf(fp, "unknown scheme."); break; } /* switch */ fprintf(fp, "\n"); } /* if (compressed) */ else fprintf(fp, "\t*data is not compressed.\n"); if (dumprig_opts->contents == DHEADER) break; case DDATA: if (dumprig_opts->contents != DDATA) fprintf(fp, "\tData : \n"); if (FAIL == dumpfull(DFNT_UINT8, dumprig_opts, read_nelts*eltsz, image, fp, 5, 5)) { fprintf(stderr,"dumpfull: failed to dump %d'th image data for file %s", i,file_name); ret_value = FAIL; goto done; } HDfree((VOIDP) image); image = NULL; /* reset */ break; default: printf("dumping RIG, unknown option \n"); ret_value = FAIL; goto done; } /* switch */ if(dumpall!=1 && i == rig_chosen[x]) x++; } /* for every image in file */ break; /* ASCII */ case DBINARY: /* binary file */ /* Get the name of the output file. */ if (dumprig_opts->dump_to_file) fp = fopen(dumprig_opts->file_name, "wb"); else fp = stdout; /* Determine the number of images in a file. */ if (model == 8) { /* raster 8 */ if ((ndsets = DFR8nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } } else if (model == 24) { /* raster 24 */ if ((ndsets = DF24nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } } else /* try both 8 and 24 */ { if ((temp = DFR8nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } if ((ndsets = DF24nimages(file_name)) == FAIL) { ret_value = FAIL; goto done; } ndsets += temp; } /* If all RIGs will be dumped, set the flag. */ if (num_rig_chosen == -1) dumpall = 1; x = 0; /* Used as the index of the array of "rig_chosen[x]". */ /* can only check index range here */ for(i=0; i < dumprig_opts->num_chosen && dumprig_opts->filter == DINDEX; i++) { if((rig_chosen[i] > ndsets)||(rig_chosen[i]<0)) { fprintf(stderr,"\nThe index %d is out of range\n",(int)rig_chosen[i]); ret_value = FAIL; goto done; } } for (i = 0; i < ndsets && (dumpall!=0 || xnum_chosen); i++) { /* Examine all RIGs. */ int compressed; int has_pal; int32 eltsz; int32 read_nelts; uint16 rig_ref; uint16 compr_type; if (FAIL == DFGRgetimdims(file_name, &width, &height, &ncomps, &il)) { ret_value = FAIL; goto done; } /* Determine the size of each element; "ncomps" is 1 for an 8-bit image or 3 for a 24-bit image. */ eltsz = DFKNTsize(DFNT_UINT8 | DFNT_NATIVE) * ncomps; read_nelts = width * height; /* Number of elements to be read in. */ if ((image = (VOIDP) HDmalloc(read_nelts * eltsz)) == NULL) { fprintf(stderr,"Not enough memory!\n"); ret_value = FAIL; goto done; } if (DFGRIgetimlut((const char *) file_name, image, width, height, IMAGE, 0, &compressed, &compr_type, &has_pal) == -1) { fprintf(stderr,"DFGRIgetimlut: Read error for file %s\n",file_name); ret_value = FAIL; goto done; } rig_ref = DFGRIlastref(); /* Determine the reference of the image just read. */ /* If the user has specificed the reference option, then something has to be done. Note: the reason why the following part was not done inside the above "switch" statement is that the reference number of a raster image cannot be appropriately retrieved before actually reading in a raster image. */ if (dumprig_opts->filter == DREFNUM) { int ref_found = 0, m; /* Determine if the image just read has the reference specified by the user. */ for (m = 0; m < dumprig_opts->num_chosen; m++) { if (dumprig_opts->filter_num[m] == rig_ref) ref_found = 1; /* found it */ } if (!ref_found) { /* If no match, then the current image is not what the user wants and so skip it. */ HDfree((VOIDP) image); image = NULL; /* reset */ continue; } } /* If not all images are to be dumped out and the current image is not what the user wants or if the user has specified a model and the model of the current image is not that one, then skip the current image. */ if (((dumprig_opts->filter == DINDEX) && (i != rig_chosen[x])) || (((ncomps * 8) != model) && (model != 0))) { HDfree((VOIDP) image); image = NULL; /* reset */ continue; } if (FAIL == dumpfull(DFNT_UINT8, dumprig_opts, read_nelts*ncomps, image, fp, 5, 5)) { fprintf(stderr,"dumpfull: failed to dump %d'th image data for file %s", i,file_name); ret_value = FAIL; goto done; } HDfree((VOIDP) image); image = NULL; /* reset */ if(dumpall!=1 && i == rig_chosen[x]) x++; } /* for every image in file */ break; /* BINARY */ default: printf("dumping RIG, unknown output file option \n"); ret_value = FAIL; goto done; } /* switch for output file */ if (rig_chosen != NULL) { HDfree(rig_chosen); rig_chosen = NULL; } /* end if */ if (dumprig_opts->dump_to_file) fclose(fp); } /* while processing files */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (image != NULL) HDfree(image); if (rig_chosen != NULL) HDfree(rig_chosen); } /* Normal cleanup */ return ret_value; } /* drig */ intn do_dumprig(intn curr_arg, intn argc, char *argv[], intn help) { dump_info_t dumprig_opts; /* dumprig options */ int model = 0; intn ret_value = SUCCEED; if (help == TRUE) { dumprig_usage(argc, argv); goto done; } /* end if */ /* initialize the structure that holds user's options and inputs */ init_dumprig_opts(&dumprig_opts); if (parse_dumprig_opts(&dumprig_opts, &curr_arg, argc, argv, &model) == FAIL) { dumprig_usage(argc, argv); ret_value = FAIL; goto done; } /* end if */ if (drig(&dumprig_opts, curr_arg, argc, argv, model) == FAIL) { fprintf(stderr,"Failure in drig.\n"); ret_value = FAIL; goto done; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if(dumprig_opts.filter_num != NULL) HDfree(dumprig_opts.filter_num); return ret_value; } /* end do_dumprig() */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/0000755000000000000000000000000012421456623015470 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-4.out0000644000000000000000000001231712421456623020035 0ustar File name: tdf24.hdf Data model: 24-bit raster image without palette. width=13; height=15 reference=2 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Data model: 24-bit raster image without palette. width=13; height=15 reference=3 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 Data model: 24-bit raster image without palette. width=13; height=15 reference=4 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 4 4 4 7 7 7 6 6 6 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 7 7 7 4 4 4 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 6 6 6 5 5 5 4 4 4 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 1 1 1 2 2 2 3 3 3 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 0 0 0 3 3 3 2 2 2 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 3 3 3 0 0 0 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 15 15 15 14 14 14 13 13 13 12 12 12 11 11 11 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 12 12 12 15 15 15 14 14 14 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 15 15 15 12 12 12 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 14 14 14 13 13 13 12 12 12 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 8 8 8 11 11 11 10 10 10 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 11 11 11 8 8 8 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-16.out0000644000000000000000000001532412421456623020131 0ustar File name: sds_empty_many.hdf File attributes: Attr0: Name = file_contents Type = 8-bit signed char Count= 116 Value = This file was generated by the program ma nySDSs.c in hdf4/mfhdf/dumper/testfiles t o test the flag -k in hdp dumpsds\000 Variable Name = data1 Index = 0 Type= 16-bit signed integer Ref. = 2 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim0 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim1 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data2 Index = 1 Type= 16-bit signed integer Ref. = 3 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim2 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim3 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data3 Index = 2 Type= 16-bit signed integer Ref. = 4 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim4 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim5 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data4 Index = 3 Type= 16-bit signed integer Ref. = 5 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim6 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim7 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data6 Index = 5 Type= 16-bit signed integer Ref. = 7 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim10 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim11 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data9 Index = 8 Type= 16-bit signed integer Ref. = 10 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim16 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim17 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data14 Index = 13 Type= 16-bit signed integer Ref. = 15 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim26 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim27 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data15 Index = 14 Type= 16-bit signed integer Ref. = 16 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim28 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim29 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data16 Index = 15 Type= 16-bit signed integer Ref. = 17 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim30 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim31 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data22 Index = 21 Type= 16-bit signed integer Ref. = 23 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim42 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim43 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data23 Index = 22 Type= 16-bit signed integer Ref. = 24 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim44 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim45 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data24 Index = 23 Type= 16-bit signed integer Ref. = 25 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim46 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim47 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data27 Index = 26 Type= 16-bit signed integer Ref. = 28 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim52 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim53 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data34 Index = 33 Type= 16-bit signed integer Ref. = 35 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim66 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim67 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data35 Index = 34 Type= 16-bit signed integer Ref. = 36 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim68 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim69 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data36 Index = 35 Type= 16-bit signed integer Ref. = 37 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim70 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim71 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data37 Index = 36 Type= 16-bit signed integer Ref. = 38 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim72 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim73 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data40 Index = 39 Type= 16-bit signed integer Ref. = 41 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim78 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim79 Size = 10 Scale Type = number-type not set Number of attributes = 0 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-19.out0000644000000000000000000000547612421456623017762 0ustar File name: grtdfi322.hdf File attributes: Attr0: Name = File contents Type = 8-bit signed char Count= 16 Image Name = Raster Image #0 Index = 0 Type= 8-bit unsigned char width=5; height=6 Ref. = 7 ncomps = 1 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 1 Attr0: Name = Value range Type = 32-bit signed integer Count= 2 Data : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Image Name = Image_array_5 Index = 1 Type= 32-bit signed integer width=10; height=5 Ref. = 5 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 5 0 5 1 6 1 6 2 7 2 7 3 8 3 8 4 9 4 9 10 15 10 15 11 16 11 16 12 17 12 17 13 18 13 18 14 19 14 19 20 25 20 25 21 26 21 26 22 27 22 27 23 28 23 28 24 29 24 29 30 35 30 35 31 36 31 36 32 37 32 37 33 38 33 38 34 39 34 39 40 45 40 45 41 46 41 46 42 47 42 47 43 48 43 48 44 49 44 49 Image Name = Raster Image #3 Index = 2 Type= 8-bit unsigned char width=5; height=6 Ref. = 1 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 Image Name = Raster Image #4 Index = 3 Type= 8-bit unsigned char width=5; height=6 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 Image Name = Raster Image #5 Index = 4 Type= 8-bit unsigned char width=5; height=6 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-7.out0000644000000000000000000000042712421456623020047 0ustar 0.000000 100.000000 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-16.out0000644000000000000000000000143512421456623017752 0ustar File name: grtdfi322.hdf Vgroup:0 tag = 1965; reference = 5; name = Image_array_5; class = RI0.0; number of entries = 2; number of attributes = 0 Vgroup:1 tag = 1965; reference = 6; name = RIG0.0; class = ; number of entries = 4; number of attributes = 0 Vgroup:2 tag = 1965; reference = 7; name = Raster Image #0; class = RI0.0; number of entries = 3; number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- Image Dimensions -- Raster Image Data vg1 -- vg2 -- Image Dimensions -- Raster Image Data -- vd -- -- vg0 -- Image Dimensions -- Raster Image Data -- vd vg2 -- Image Dimensions -- Raster Image Data -- vd libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-20.out0000644000000000000000000000112512421456623017735 0ustar File name: IMCOMP.hdf Image Name = Raster Image #0 Index = 0 Type= 8-bit unsigned char width=4; height=4 Ref. = 2 ncomps = 1 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 10 11 12 13 20 21 22 23 30 31 32 33 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=4; height=4 Ref. = 3 ncomps = 1 Interlace mode= PIXEL Palette: 3 components; 256 entries Compression method = IMCOMP Number of attributes = 0 Data : 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-9.out0000644000000000000000000000552612421456623020056 0ustar File name: swf32_fileattr.hdf File attributes: Attr0: Name = File purpose Type = 8-bit signed char Count= 37 Value = For testing dumpsds SD file attribute Attr1: Name = File contents Type = 8-bit signed char Count= 14 Value = Some data sets Attr2: Name = Test clean format Type = 8-bit signed char Count= 65 Value = A tab < >, a CR < >, several nulls < ... >, and one more tab < > Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 100.000000 Dimension Variable Name = fakeDim1 Index = 1 Scale Type= 32-bit floating point Ref. = 4 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim1 Size = 3 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Line Attr1: Name = units Type = 8-bit signed char Count= 4 Value = Inch Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int16 Data : 0.000000 10.000000 20.000000 Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Value = Column Attr1: Name = units Type = 8-bit signed char Count= 2 Value = Cm Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 1.000000 2.000000 3.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-6.out0000644000000000000000000000414312421456623017670 0ustar File name: tdata.hdf Vgroup:1 tag = 1965; reference = 30; name = bands; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 29; number of records = 3; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = bands; class = DimVal0.0; total number of attributes = 0. Vgroup:3 tag = 1965; reference = 34; name = a; class = Var0.0; number of entries = 7; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 32; number of entries = 1; name = rec; class = UDim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 28; number of entries = 1; name = nsamp; class = Dim0.0 number of attributes = 0 #2 (Vgroup) tag = 1965; reference = 30; number of entries = 1; name = bands; class = Dim0.0 number of attributes = 0 #3 (Scientific Data) tag = 702; reference = 18; #4 (Number type) tag = 106; reference = 33; #5 (SciData dimension record) tag = 701; reference = 33; #6 (Numeric Data Group) tag = 720; reference = 2; Vgroup:5 tag = 1965; reference = 38; name = c; class = Var0.0; number of entries = 5; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 32; number of entries = 1; name = rec; class = UDim0.0 number of attributes = 0 #1 (Scientific Data) tag = 702; reference = 24; #2 (Number type) tag = 106; reference = 37; #3 (SciData dimension record) tag = 701; reference = 37; #4 (Numeric Data Group) tag = 720; reference = 4; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vd vg2 -- vd vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/swf32.hdf0000644000000000000000000000107512421456623017122 0ustar Ê\¾&`j†½ŠÀ¨ÁºÂÊ¿Ý'ÃÜ ÆÐ$¼$NCSA HDF Version 4.0 Release 0, ?month? ?year??€@@@A A0A@APA A¨A°A¸BÈBÊBÌBÎBÜBÞBàBâBðBòBôBö jjjjTimeLineColumnSecondInchCmInt32Int16Int32BÈA A ?€@@@Bö¿€?€Ð¼¾½ÀÁ¿ÃÜÆlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-5.out0000644000000000000000000000274312421456623020050 0ustar File name: swf32.hdf Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 100.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-10.out0000644000000000000000000001442612421456623017745 0ustar File name: tvattr.hdf Vdata: 0 tag = 1962; reference = 4; number of records = 3; interlace = FULL_INTERLACE (0); fields = [fldname1, fldname2]; record size (in bytes) = 2; name = vsname1; class = ; number of attributes = 2 attr0: name=attname3 type=4 count=3 size=3 m N p attr1: name=attname4 type=5 count=1 size=4 32.000999 - field index 0: [fldname1], type=4, order=1 number of attributes = 3 attr0: name=attname4 type=5 count=1 size=4 32.000999 attr1: name=attname5 type=6 count=1 size=8 -64.123450 attr2: name=vsname1 type=6 count=1 size=8 64.123450 - field index 1: [fldname2], type=4, order=1 number of attributes = 1 attr0: name=attname5 type=5 count=1 size=4 32.000999 Loc. Data 0 A B ; C D ; E F ; Vdata: 1 tag = 1962; reference = 5; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 8; name = attname1; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=25, order=2 number of attributes = 0 Loc. Data 0 10032 10064 ; Vdata: 2 tag = 1962; reference = 6; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname2; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=23, order=2 number of attributes = 0 Loc. Data 0 16 32 ; Vdata: 3 tag = 1962; reference = 7; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 3; name = attname3; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=4, order=3 number of attributes = 0 Loc. Data 0 m N p ; Vdata: 4 tag = 1962; reference = 8; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname4; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 32.000999 ; Vdata: 5 tag = 1962; reference = 9; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname5; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 32.000999 ; Vdata: 6 tag = 1962; reference = 10; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname4; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 32.000999 ; Vdata: 7 tag = 1962; reference = 11; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 8; name = attname5; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=6, order=1 number of attributes = 0 Loc. Data 0 -64.123450 ; Vdata: 8 tag = 1962; reference = 12; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 8; name = vsname1; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=6, order=1 number of attributes = 0 Loc. Data 0 64.123450 ; Vdata: 9 tag = 1962; reference = 13; number of records = 3; interlace = FULL_INTERLACE (0); fields = [fldname0, fldname1]; record size (in bytes) = 8; name = vsname0; class = vsclass0; number of attributes = 1 attr0: name=attname7 type=4 count=3 size=3 m N p - field index 0: [fldname0], type=24, order=1 number of attributes = 3 attr0: name=attname6 type=5 count=1 size=4 32.000999 attr1: name=attname8 type=5 count=1 size=4 32.000999 attr2: name=attname9 type=4 count=5 size=5 m N p S t - field index 1: [fldname1], type=24, order=1 number of attributes = 1 attr0: name=attname8 type=5 count=1 size=4 -34.001999 Loc. Data 0 0 -1 ; 10 11 ; 20 21 ; Vdata: 10 tag = 1962; reference = 14; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname6; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 32.000999 ; Vdata: 11 tag = 1962; reference = 15; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 3; name = attname7; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=4, order=3 number of attributes = 0 Loc. Data 0 m N p ; Vdata: 12 tag = 1962; reference = 16; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname8; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 32.000999 ; Vdata: 13 tag = 1962; reference = 17; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname8; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=5, order=1 number of attributes = 0 Loc. Data 0 -34.001999 ; Vdata: 14 tag = 1962; reference = 18; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 5; name = attname9; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=4, order=5 number of attributes = 0 Loc. Data 0 m N p S t ; Vdata: 15 tag = 1962; reference = 20; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname9; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=25, order=1 number of attributes = 0 Loc. Data 0 100 ; Vdata: 16 tag = 1962; reference = 21; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 4; name = attname10; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=23, order=2 number of attributes = 0 Loc. Data 0 16 32 ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-1.out0000644000000000000000000000133512421456623017663 0ustar File name: tvset.hdf Vgroup:0 tag = 1965; reference = 2; name = Simple Vgroup; class = Test object; number of entries = 0; number of attributes = 0 Entries:- None. Vgroup:1 tag = 1965; reference = 3; name = Second Vgroup; class = Test object; number of entries = 3; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 2; number of entries = 0; name = Simple Vgroup; class = Test object number of attributes = 0 #1 (Unknown Tag) tag = 1000; reference = 12345; #2 (Unknown Tag) tag = 123; reference = 1234; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 vg1 -- vg0 -- Unknown Object -- Unknown Object libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/grtdfui83.hdf0000644000000000000000000000505312421456623017775 0ustar  GÊ\.&Ijo,s2‡.I,Ø2ì.ôI,=2Q­ ).h–jþ, 2 NCSA HDF Version 4.0 Release 0, ?month? ?year?               j,.                                                                j,.                                                                               j,.  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111 j,.,. Image_array_5RI0.0­ ­­RIG0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/tvattr.hdf0000644000000000000000000000432012421456623017476 0ustar Ê\­"&«<ªˆ~­ˆ«¢ªª:«äªè:«HªK:«…ª‰:« ê Ç:« NCSA HDF post Version 4.0 Release 2, July 23, 1996vgname0ABCDEFfldname1fldname2vsname1ªvgname1'0'PVALUESattname1Attr0.0 VALUESattname2Attr0.0vgname0ªªmNpVALUESattname3Attr0.0BVALUESattname4Attr0.0BVALUESattname5Attr0.0B€ª Ë:« ª  :« Gª O9« «ª":«\ª_:«™ª:ª €~«=ªA:«{VALUESattname4Attr0.0ÀPæšÔ,=VALUESattname5Attr0.0@PæšÔ,=VALUESvsname1Attr0.0fldname1fldname2vsname1ÿÿÿÿªªª ÿÿÿÿª ª ª ÿÿÿÿ BVALUESattname6Attr0.0mNpVALUESattname7Attr0.0BVALUESattname8Attr0.0fldname0fldname1vsname0ªÿÿÿÿªªÂ VALUESattname8Attr0.0mNpStªF:­2« ª$:«^ªb;VALUESattname9Attr0.0fldname0fldname1vsname0vsclass0ªÿÿÿÿªªªªª vgname2vgclass2dVALUESattname9Attr0.0 VALUES attname10Attr0.0ª vgname2vgclass2ªªlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-10.out0000644000000000000000000000532612421456623017420 0ustar File: Example6.hdf Last modified with NCSA HDF Version 4.0 Release 1, Jan. 19, 1996 File Label #0: This is a file label for AN File Label #1: This is a file label for AN no tagname tag ref index_by_tag 0 Version Descriptor 30 1 0 1 File Identifier 100 1 0 2 File Identifier 100 2 1 3 File Description 101 1 0 4 File Description 101 2 1 5 Data Id Label 104 1 0 6 Data Id Label 104 2 1 7 Data Id Label 104 3 2 8 Data Id Label 104 4 3 9 Data Id Label 104 5 4 10 Data Id Label 104 6 5 11 Data Id Annotation 105 1 0 12 Data Id Annotation 105 2 1 13 Data Id Annotation 105 3 2 14 Data Id Annotation 105 4 3 15 Number type 106 25 0 16 Number type 106 27 1 17SciData dimension record 701 25 0 18SciData dimension record 701 27 1 19 Numeric Data Group 720 2 0 Name/Label=Data label for AN 20 Numeric Data Group 720 12 1 Name/Label=Data label for AN 21 Vdata 1962 13 0 Name/Label=This is a data label for Vdata 22 Vdata 1962 14 1 23 Vdata 1962 16 2 24 Vdata 1962 17 3 25 Vdata 1962 19 4 26 Vdata 1962 20 5 27 Vdata 1962 22 6 28 Vdata 1962 23 7 29 Vdata Storage 1963 13 0 30 Vdata Storage 1963 14 1 31 Vdata Storage 1963 16 2 32 Vdata Storage 1963 17 3 33 Vdata Storage 1963 19 4 34 Vdata Storage 1963 20 5 35 Vdata Storage 1963 22 6 36 Vdata Storage 1963 23 7 37 Vgroup 1965 15 0 Name/Label=This is a data label for Vgroup 38 Vgroup 1965 18 1 39 Vgroup 1965 21 2 40 Vgroup 1965 24 3 41 Vgroup 1965 26 4 42 Vgroup 1965 28 5 43 Vgroup 1965 29 6 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-7.out0000644000000000000000000000227112421456623017666 0ustar File name: tvset.hdf Vdata: 2 tag = 1962; reference = 1237; number of records = 100; interlace = FULL_INTERLACE (0); fields = [A, B]; record size (in bytes) = 8; name = Mixed Vdata; class = No class specified; number of attributes = 0 number of attributes = 0 - field index 1: [B], type=24, order=1 number of attributes = 0 Loc. Data 00 0 ; 1 ; 2 ; 3 ; 04 4 ; 5 ; 6 ; 7 ; 08 8 ; 9 ; 10 ; 11 ; 12 12 ; 13 ; 14 ; 15 ; 16 16 ; 17 ; 18 ; 19 ; 20 20 ; 21 ; 22 ; 23 ; 24 24 ; 25 ; 26 ; 27 ; 28 28 ; 29 ; 30 ; 31 ; 32 32 ; 33 ; 34 ; 35 ; 36 36 ; 37 ; 38 ; 39 ; 40 40 ; 41 ; 42 ; 43 ; 44 44 ; 45 ; 46 ; 47 ; 48 48 ; 49 ; 50 ; 51 ; 52 52 ; 53 ; 54 ; 55 ; 56 56 ; 57 ; 58 ; 59 ; 60 60 ; 61 ; 62 ; 63 ; 64 64 ; 65 ; 66 ; 67 ; 68 68 ; 69 ; 70 ; 71 ; 72 72 ; 73 ; 74 ; 75 ; 76 76 ; 77 ; 78 ; 79 ; 80 80 ; 81 ; 82 ; 83 ; 84 84 ; 85 ; 86 ; 87 ; 88 88 ; 89 ; 90 ; 91 ; 92 92 ; 93 ; 94 ; 95 ; 96 96 ; 97 ; 98 ; 99 ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-1.out0000644000000000000000000001231712421456623020032 0ustar File name: tdf24.hdf Data model: 24-bit raster image without palette. width=13; height=15 reference=2 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Data model: 24-bit raster image without palette. width=13; height=15 reference=3 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 Data model: 24-bit raster image without palette. width=13; height=15 reference=4 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 4 4 4 7 7 7 6 6 6 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 7 7 7 4 4 4 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 6 6 6 5 5 5 4 4 4 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 1 1 1 2 2 2 3 3 3 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 0 0 0 3 3 3 2 2 2 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 3 3 3 0 0 0 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 15 15 15 14 14 14 13 13 13 12 12 12 11 11 11 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 12 12 12 15 15 15 14 14 14 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 15 15 15 12 12 12 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 14 14 14 13 13 13 12 12 12 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 8 8 8 11 11 11 10 10 10 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 11 11 11 8 8 8 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-15.out0000644000000000000000000000466512421456623020136 0ustar File name: sds_compressed.hdf Variable Name = SDSgzip Index = 0 Type= 32-bit signed integer Ref. = 2 Compression method = DEFLATE Deflate level = 6 Compression ratio (original:compressed) = 5.42:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim0 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim1 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 8 9 10 11 12 9 10 11 12 13 10 11 12 13 14 11 12 13 14 15 12 13 14 15 16 13 14 15 16 17 14 15 16 17 18 15 16 17 18 19 16 17 18 19 20 Variable Name = SDSskiphuff Index = 1 Type= 32-bit signed integer Ref. = 4 Compression method = SKPHUFF Skipping unit size = 4 Compression ratio (original:compressed) = 4.16:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim2 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim3 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 8 9 10 11 12 9 10 11 12 13 10 11 12 13 14 11 12 13 14 15 12 13 14 15 16 13 14 15 16 17 14 15 16 17 18 15 16 17 18 19 16 17 18 19 20 Variable Name = SDSszip Index = 2 Type= 32-bit signed integer Ref. = 6 Compression method = SZIP Option mask = H4_SZ_EC_OPTION_MASK|H4_SZ_RAW_OPTION_MASK (65668) Pixels per block = 2 Pixels per scanline = 5 Bits per pixel = 32 Pixels = 80 Compression ratio (original:compressed) = 2.67:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim4 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim5 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-6.out0000644000000000000000000001515412421456623017671 0ustar File name: tvset.hdf Vdata: 0 tag = 1962; reference = 1235; number of records = 100; interlace = FULL_INTERLACE (0); fields = [FIELD_name_HERE]; record size (in bytes) = 4; name = Float Vdata; class = Test object; number of attributes = 0 - field index 0: [FIELD_name_HERE], type=5, order=1 number of attributes = 0 Loc. Data 00 0.000000 ; 1.000000 ; 2.000000 ; 3.000000 ; 04 4.000000 ; 5.000000 ; 6.000000 ; 7.000000 ; 08 8.000000 ; 9.000000 ; 10.000000 ; 11.000000 ; 12 12.000000 ; 13.000000 ; 14.000000 ; 15.000000 ; 16 16.000000 ; 17.000000 ; 18.000000 ; 19.000000 ; 20 20.000000 ; 21.000000 ; 22.000000 ; 23.000000 ; 24 24.000000 ; 25.000000 ; 26.000000 ; 27.000000 ; 28 28.000000 ; 29.000000 ; 30.000000 ; 31.000000 ; 32 32.000000 ; 33.000000 ; 34.000000 ; 35.000000 ; 36 36.000000 ; 37.000000 ; 38.000000 ; 39.000000 ; 40 40.000000 ; 41.000000 ; 42.000000 ; 43.000000 ; 44 44.000000 ; 45.000000 ; 46.000000 ; 47.000000 ; 48 48.000000 ; 49.000000 ; 50.000000 ; 51.000000 ; 52 52.000000 ; 53.000000 ; 54.000000 ; 55.000000 ; 56 56.000000 ; 57.000000 ; 58.000000 ; 59.000000 ; 60 60.000000 ; 61.000000 ; 62.000000 ; 63.000000 ; 64 64.000000 ; 65.000000 ; 66.000000 ; 67.000000 ; 68 68.000000 ; 69.000000 ; 70.000000 ; 71.000000 ; 72 72.000000 ; 73.000000 ; 74.000000 ; 75.000000 ; 76 76.000000 ; 77.000000 ; 78.000000 ; 79.000000 ; 80 80.000000 ; 81.000000 ; 82.000000 ; 83.000000 ; 84 84.000000 ; 85.000000 ; 86.000000 ; 87.000000 ; 88 88.000000 ; 89.000000 ; 90.000000 ; 91.000000 ; 92 92.000000 ; 93.000000 ; 94.000000 ; 95.000000 ; 96 96.000000 ; 97.000000 ; 98.000000 ; 99.000000 ; Vdata: 1 tag = 1962; reference = 1236; number of records = 100; interlace = FULL_INTERLACE (0); fields = [DIFFERENT_FIELD_NAME]; record size (in bytes) = 8; name = Integer Vdata; class = Test object; number of attributes = 0 - field index 0: [DIFFERENT_FIELD_NAME], type=24, order=2 number of attributes = 0 Loc. Data 00 0 1 ; 2 3 ; 4 5 ; 6 7 ; 04 8 9 ; 10 11 ; 12 13 ; 14 15 ; 08 16 17 ; 18 19 ; 20 21 ; 22 23 ; 12 24 25 ; 26 27 ; 28 29 ; 30 31 ; 16 32 33 ; 34 35 ; 36 37 ; 38 39 ; 20 40 41 ; 42 43 ; 44 45 ; 46 47 ; 24 48 49 ; 50 51 ; 52 53 ; 54 55 ; 28 56 57 ; 58 59 ; 60 61 ; 62 63 ; 32 64 65 ; 66 67 ; 68 69 ; 70 71 ; 36 72 73 ; 74 75 ; 76 77 ; 78 79 ; 40 80 81 ; 82 83 ; 84 85 ; 86 87 ; 44 88 89 ; 90 91 ; 92 93 ; 94 95 ; 48 96 97 ; 98 99 ; 100 101 ; 102 103 ; 52 104 105 ; 106 107 ; 108 109 ; 110 111 ; 56 112 113 ; 114 115 ; 116 117 ; 118 119 ; 60 120 121 ; 122 123 ; 124 125 ; 126 127 ; 64 128 129 ; 130 131 ; 132 133 ; 134 135 ; 68 136 137 ; 138 139 ; 140 141 ; 142 143 ; 72 144 145 ; 146 147 ; 148 149 ; 150 151 ; 76 152 153 ; 154 155 ; 156 157 ; 158 159 ; 80 160 161 ; 162 163 ; 164 165 ; 166 167 ; 84 168 169 ; 170 171 ; 172 173 ; 174 175 ; 88 176 177 ; 178 179 ; 180 181 ; 182 183 ; 92 184 185 ; 186 187 ; 188 189 ; 190 191 ; 96 192 193 ; 194 195 ; 196 197 ; 198 199 ; Vdata: 2 tag = 1962; reference = 1237; number of records = 100; interlace = FULL_INTERLACE (0); fields = [A, B]; record size (in bytes) = 8; name = Mixed Vdata; class = No class specified; number of attributes = 0 - field index 0: [A], type=5, order=1 number of attributes = 0 - field index 1: [B], type=24, order=1 number of attributes = 0 Loc. Data 00 0.000000 0 ; 2.000000 1 ; 4.000000 2 ; 03 6.000000 3 ; 8.000000 4 ; 10.000000 5 ; 06 12.000000 6 ; 14.000000 7 ; 16.000000 8 ; 09 18.000000 9 ; 20.000000 10 ; 22.000000 11 ; 12 24.000000 12 ; 26.000000 13 ; 28.000000 14 ; 15 30.000000 15 ; 32.000000 16 ; 34.000000 17 ; 18 36.000000 18 ; 38.000000 19 ; 40.000000 20 ; 21 42.000000 21 ; 44.000000 22 ; 46.000000 23 ; 24 48.000000 24 ; 50.000000 25 ; 52.000000 26 ; 27 54.000000 27 ; 56.000000 28 ; 58.000000 29 ; 30 60.000000 30 ; 62.000000 31 ; 64.000000 32 ; 33 66.000000 33 ; 68.000000 34 ; 70.000000 35 ; 36 72.000000 36 ; 74.000000 37 ; 76.000000 38 ; 39 78.000000 39 ; 80.000000 40 ; 82.000000 41 ; 42 84.000000 42 ; 86.000000 43 ; 88.000000 44 ; 45 90.000000 45 ; 92.000000 46 ; 94.000000 47 ; 48 96.000000 48 ; 98.000000 49 ; 100.000000 50 ; 51 102.000000 51 ; 104.000000 52 ; 106.000000 53 ; 54 108.000000 54 ; 110.000000 55 ; 112.000000 56 ; 57 114.000000 57 ; 116.000000 58 ; 118.000000 59 ; 60 120.000000 60 ; 122.000000 61 ; 124.000000 62 ; 63 126.000000 63 ; 128.000000 64 ; 130.000000 65 ; 66 132.000000 66 ; 134.000000 67 ; 136.000000 68 ; 69 138.000000 69 ; 140.000000 70 ; 142.000000 71 ; 72 144.000000 72 ; 146.000000 73 ; 148.000000 74 ; 75 150.000000 75 ; 152.000000 76 ; 154.000000 77 ; 78 156.000000 78 ; 158.000000 79 ; 160.000000 80 ; 81 162.000000 81 ; 164.000000 82 ; 166.000000 83 ; 84 168.000000 84 ; 170.000000 85 ; 172.000000 86 ; 87 174.000000 87 ; 176.000000 88 ; 178.000000 89 ; 90 180.000000 90 ; 182.000000 91 ; 184.000000 92 ; 93 186.000000 93 ; 188.000000 94 ; 190.000000 95 ; 96 192.000000 96 ; 194.000000 97 ; 196.000000 98 ; 99 198.000000 99 ; Vdata: 3 tag = 1962; reference = 1238; number of records = 10; interlace = FULL_INTERLACE (0); fields = [STATION_NAME, VALUES, FLOATS]; record size (in bytes) = 18; name = Multi-Order Vdata; class = No class specified; number of attributes = 0 - field index 0: [STATION_NAME], type=4, order=2 number of attributes = 0 - field index 1: [VALUES], type=24, order=3 number of attributes = 0 - field index 2: [FLOATS], type=5, order=1 number of attributes = 0 Loc. Data 0 a b 0 1 2 15.500000 ; c d 3 4 5 16.000000 ; 2 e f 6 7 8 16.500000 ; g h 9 10 11 17.000000 ; 4 i j 12 13 14 17.500000 ; k l 15 16 17 18.000000 ; 6 m n 18 19 20 18.500000 ; o p 21 22 23 19.000000 ; 8 q r 24 25 26 19.500000 ; s t 27 28 29 20.000000 ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-11.out0000644000000000000000000000043112421456623017735 0ustar File name: sds1_dim1_samename.hdf Vdata: 2 tag = 1962; reference = 7; number of records = 0; interlace = FULL_INTERLACE (0); fields = [SDS variable]; record size (in bytes) = 4; name = ; class = SDSVar; number of attributes = 0 No data written libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-13.out0000644000000000000000000000136012421456623020121 0ustar File name: sds1_dim1_samename.hdf Variable Name = Variable 1 Index = 0 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 1 Number of attributes = 1 Dim0: Name=Variable 1 Size = 5 Scale Type = number-type not set Number of attributes = 1 Attr0: Name = Attribute SDS 1 Type = 8-bit signed char Count= 23 Value = This is not a coord var Data : No data written. Dimension Variable Name = Variable 1 Index = 1 Scale Type= number-type not set Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 1 Dim0: Name=Variable 1 Size = 5 Attr0: Name = Attribute Dimension 1 Type = 8-bit signed char Count= 19 Value = This is a coord var Data : libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-8.out0000644000000000000000000000403312421456623017341 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 no tagname tag ref index_by_tag 0Linked Blocks Indicator 20 18 0 1Linked Blocks Indicator 20 19 1 2Linked Blocks Indicator 20 20 2 3Linked Blocks Indicator 20 21 3 4Linked Blocks Indicator 20 22 4 5Linked Blocks Indicator 20 23 5 6Linked Blocks Indicator 20 24 6 7Linked Blocks Indicator 20 25 7 8Linked Blocks Indicator 20 26 8 9 Version Descriptor 30 1 0 10 Number type 106 33 0 11 Number type 106 35 1 12 Number type 106 37 2 13SciData dimension record 701 33 0 14SciData dimension record 701 35 1 15SciData dimension record 701 37 2 16 Numeric Data Group 720 2 0 17 Numeric Data Group 720 3 1 18 Numeric Data Group 720 4 2 19 Vdata 1962 27 0 20 Vdata 1962 29 1 21 Vdata 1962 31 2 22 Vdata Storage 1963 27 0 23 Vdata Storage 1963 29 1 24 Vdata Storage 1963 31 2 25 Vgroup 1965 28 0 26 Vgroup 1965 30 1 27 Vgroup 1965 32 2 28 Vgroup 1965 34 3 29 Vgroup 1965 36 4 30 Vgroup 1965 38 5 31 Vgroup 1965 39 6 32Special Scientific Data 17086 18 0 33Special Scientific Data 17086 21 1 34Special Scientific Data 17086 24 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/tdfr8f.hdf0000644000000000000000000020304712421456623017356 0ustar ÚÉÊ\.&'Ê&'-(6É(6j+6,+:È+N2+R /+^Œ|Ë+^Œ|É(6,·ÚÈ·î2·ò /·þ"ËNCSA HDF Version 4.0 Release 0, ?month? ?year?  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefg  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghij  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklm  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnop !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopq !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvw !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwx !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{| !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|} !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹Œ*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹Œ+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š89:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œ:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œ;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œž<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨FGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ªHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«IJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬JKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­KLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®LMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³QRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´RSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶TUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·UVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹WXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹ºXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼Z[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿À^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂ`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃabcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄbcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿddj dd,/-y  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñOòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@yÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðOñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?yþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvywxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïOðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>yýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuyvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîOïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=yüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstyuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíOîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsytuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìOíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;yúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrystuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëOìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:yùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqyrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêOëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789yøùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopyqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéOêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012345678y÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoypqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèOéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01234567yö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnyopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçOèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456yõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmynopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæOçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012345yôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklymnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåOæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01234yóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkylmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäOåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123yòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijyklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãOäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012yñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiyjklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâOãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01yðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghyijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáOâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0yïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgyhijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàOáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./yîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefyghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßOàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-.yíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeyfghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞOßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-yìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdyefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝOÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,yëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcydefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜOÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+yêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abycdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛOÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*yéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aybcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚOÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()yèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`yabcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙOÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'(yçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_y`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØOÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'yæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^y_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×OØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&yåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]y^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖO×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%yäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\y]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕOÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$yãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[y\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔOÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#yâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZy[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓOÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"yáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYyZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒOÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !yàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXyYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑOÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  yßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWyXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐOÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVyWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏOÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUyVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎOÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTyUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍOÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSyTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌOÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRySTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËOÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQyRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊOËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPyQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉOÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOyPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈOÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNyOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇOÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMyNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆOÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLyMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅOÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKyLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄOÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJyKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃOÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIyJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂOÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHyIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁOÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGyHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀOÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFyGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿OÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEyFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾O¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDyEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½O¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCyDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼O½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@AByCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»O¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@AyBCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹ºO»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ yÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@yABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹Oº»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?y@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸O¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>y?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·O¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=y>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶O·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µO¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;y<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´Oµ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:y;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³O´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789y:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²O³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿyÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012345678y9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±O²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿy¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01234567y89:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°O±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿy¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456y789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯O°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþy½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012345y6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®O¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýy¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01234y56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­O®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüy»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123y456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬O­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûyº»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./012y3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«O¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúy¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./01y23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ªO«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùy¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0y123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©Oª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øy·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./y0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨O©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷y¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-.y/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§O¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöyµ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-y./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦O§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõy´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,y-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥O¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôy³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+y,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤O¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóy²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*y+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£O¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòy±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()y*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢O£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñy°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'(y)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡O¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðy¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'y()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ O¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïy®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&y'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸO ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîy­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%y&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžOŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíy¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$y%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œOžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìy«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#y$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œOžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëyª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"y#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›OœžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêy©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !y"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™šO›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéy¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  y!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™Oš›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèy§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜O™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçy¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—O˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæy¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–O—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåy¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•O–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäy£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”O•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãy¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“O”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáây¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’O“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáy ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘O’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàyŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽO‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßyžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽO‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞyžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽO‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝyœžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒOŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜy›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒOŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛyš›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹OŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚy™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰ŠO‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙy˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰OŠ‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×Øy—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆO‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×y–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡Oˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖy•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†O‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕy”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…O†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔy“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„O…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓy’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ y  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒO„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒAoj Ao,/-Î÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s ssssssssç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s ssssssss(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssss&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s ssssss$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssss"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s ssss 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sss6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s ss5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1ss0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎs -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=Cs ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;s*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:ss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2s3s4s5s6s 7s"8s$9s&:s(;ç1=CÎ÷1÷1sss s s sssssssss s!"s#$s%&s'(Œï)÷1ss*+s,s-s. s/ s0 s1s2s3s4s5s6s7s8s9s:!s;#s<%Îÿ=>Œ?@sABss*s ,s -s.÷1 s0s1s2Ì·þ"Ë-ÛÉÛ,ÞÈÞ£2Þ§ /Þ³'tËÞ³'tøøx((( 008((0@@@888HHP@@HXXXPPP``hXX`ppphhhxx€ppxˆˆˆ€€€˜ˆˆ   ˜˜˜¨¨°  ¨¸¸¸°°°ÀÀȸ¸ÀÐÐÐÈÈÈØØàÐÐØèèèàààððøèèðøøø ( 00088@HHHPPX```hhpxxx€€ˆ˜˜ ¨¨¨°°¸ÀÀÀÈÈÐØØØààèððððøø¨øPPððÈ÷€)@÷~„TÀ`÷€(ÀÀcÐ÷€)@÷q“$÷r\÷€(À÷q“$÷ÿòÐ÷k;˜%&¯Š;P÷~Š€÷k÷r\÷rœ÷ya?ÿÿ7Ð÷t÷ÿóp÷k:Ø÷ÿóL÷€(À÷ÿód÷€)@÷ÿót÷€(À÷€)@ÿÿÿø'H€?ø7àø'H÷rœ ž`÷k:x÷k8, sX÷rœ‚ ž`÷ÿóø÷k8$÷ÿóü÷€`ø7ßXS÷rœ žs÷k9Ð÷w½ ÷rœ ÷rœ÷€8 ž`÷w½$Aoj Ao,/-d  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcded  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghid  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkld  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnd  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnod  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstud !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzd !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚d !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒd!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„d"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…d#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†d$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡d%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆd&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰d'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Šd()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹d)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹Œd*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹Œd+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽd,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽd-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽd./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘d/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’d0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“d123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”d23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•d3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–d456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—d56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜d6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™d789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™šd89:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›d9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œd:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œd;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžd<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸd=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ d>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡d?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢d@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£dABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤dBCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥dCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦dDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§dEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨dFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©dGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ªdHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«dIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬dJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­dKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®dLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯dMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°dNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±dOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²dPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³dQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´dRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µdSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶dTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·dUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸dVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹dWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹ºdXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»dYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼dZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½d[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾d\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿d]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿Àd^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁd_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂd`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃdabcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄdbcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅdcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆddefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-5.out0000644000000000000000000000660612421456623020042 0ustar File name: tdf24.hdf Data model: 24-bit raster image without palette. width=13; height=15 reference=3 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 Data model: 24-bit raster image without palette. width=13; height=15 reference=4 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 4 4 4 7 7 7 6 6 6 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 7 7 7 4 4 4 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 6 6 6 5 5 5 4 4 4 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 1 1 1 2 2 2 3 3 3 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 0 0 0 3 3 3 2 2 2 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 3 3 3 0 0 0 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 15 15 15 14 14 14 13 13 13 12 12 12 11 11 11 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 12 12 12 15 15 15 14 14 14 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 15 15 15 12 12 12 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 14 14 14 13 13 13 12 12 12 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 8 8 8 11 11 11 10 10 10 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 11 11 11 8 8 8 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-1.out0000644000000000000000000001624012421456623017660 0ustar File name: grtdfui82.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 6 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #2 Index = 2 Type= 8-bit unsigned char width=13; height=15 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 Image Name = Raster Image #3 Index = 3 Type= 8-bit unsigned char width=13; height=15 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-11.out0000644000000000000000000000534312421456623020124 0ustar File name: swf32_fileattr.hdf File attributes: Attr0: Name = File purpose Type = 8-bit signed char Count= 37 Value = For testing dumpsds SD file attribute Attr1: Name = File contents Type = 8-bit signed char Count= 14 Value = Some data sets Attr2: Name = Test clean format Type = 8-bit signed char Count= 65 Value = A tab <\011>, a CR <\012>, several nulls <\000\000\000\000\000\000>, and one more tab <\011> Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Attr1: Name = units Type = 8-bit signed char Count= 6 Attr2: Name = format Type = 8-bit signed char Count= 5 Data : 0.000000 100.000000 Dimension Variable Name = fakeDim1 Index = 1 Scale Type= 32-bit floating point Ref. = 4 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim1 Size = 3 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Attr1: Name = units Type = 8-bit signed char Count= 4 Attr2: Name = format Type = 8-bit signed char Count= 5 Data : 0.000000 10.000000 20.000000 Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Attr1: Name = units Type = 8-bit signed char Count= 2 Attr2: Name = format Type = 8-bit signed char Count= 5 Data : 0.000000 1.000000 2.000000 3.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-2.out0000644000000000000000000000527612421456623017671 0ustar File name: tvset.hdf Vdata: 1 tag = 1962; reference = 1236; number of records = 100; interlace = FULL_INTERLACE (0); fields = [DIFFERENT_FIELD_NAME]; record size (in bytes) = 8; name = Integer Vdata; class = Test object; number of attributes = 0 - field index 0: [DIFFERENT_FIELD_NAME], type=24, order=2 number of attributes = 0 Loc. Data 00 0 1 ; 2 3 ; 4 5 ; 6 7 ; 04 8 9 ; 10 11 ; 12 13 ; 14 15 ; 08 16 17 ; 18 19 ; 20 21 ; 22 23 ; 12 24 25 ; 26 27 ; 28 29 ; 30 31 ; 16 32 33 ; 34 35 ; 36 37 ; 38 39 ; 20 40 41 ; 42 43 ; 44 45 ; 46 47 ; 24 48 49 ; 50 51 ; 52 53 ; 54 55 ; 28 56 57 ; 58 59 ; 60 61 ; 62 63 ; 32 64 65 ; 66 67 ; 68 69 ; 70 71 ; 36 72 73 ; 74 75 ; 76 77 ; 78 79 ; 40 80 81 ; 82 83 ; 84 85 ; 86 87 ; 44 88 89 ; 90 91 ; 92 93 ; 94 95 ; 48 96 97 ; 98 99 ; 100 101 ; 102 103 ; 52 104 105 ; 106 107 ; 108 109 ; 110 111 ; 56 112 113 ; 114 115 ; 116 117 ; 118 119 ; 60 120 121 ; 122 123 ; 124 125 ; 126 127 ; 64 128 129 ; 130 131 ; 132 133 ; 134 135 ; 68 136 137 ; 138 139 ; 140 141 ; 142 143 ; 72 144 145 ; 146 147 ; 148 149 ; 150 151 ; 76 152 153 ; 154 155 ; 156 157 ; 158 159 ; 80 160 161 ; 162 163 ; 164 165 ; 166 167 ; 84 168 169 ; 170 171 ; 172 173 ; 174 175 ; 88 176 177 ; 178 179 ; 180 181 ; 182 183 ; 92 184 185 ; 186 187 ; 188 189 ; 190 191 ; 96 192 193 ; 194 195 ; 196 197 ; 198 199 ; Vdata: 3 tag = 1962; reference = 1238; number of records = 10; interlace = FULL_INTERLACE (0); fields = [STATION_NAME, VALUES, FLOATS]; record size (in bytes) = 18; name = Multi-Order Vdata; class = No class specified; number of attributes = 0 - field index 0: [STATION_NAME], type=4, order=2 number of attributes = 0 - field index 1: [VALUES], type=24, order=3 number of attributes = 0 - field index 2: [FLOATS], type=5, order=1 number of attributes = 0 Loc. Data 0 a b 0 1 2 15.500000 ; c d 3 4 5 16.000000 ; 2 e f 6 7 8 16.500000 ; g h 9 10 11 17.000000 ; 4 i j 12 13 14 17.500000 ; k l 15 16 17 18.000000 ; 6 m n 18 19 20 18.500000 ; o p 21 22 23 19.000000 ; 8 q r 24 25 26 19.500000 ; s t 27 28 29 20.000000 ; Vdata: 5 tag = 1962; reference = 1240; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-1; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-9.out0000644000000000000000000000364312421456623017677 0ustar File name: tdata.hdf Vgroup:6 tag = 1965; reference = 39; name = tdata.hdf; class = CDF0.0; number of entries = 6; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 28; number of entries = 1; name = nsamp; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 30; number of entries = 1; name = bands; class = Dim0.0 number of attributes = 0 #2 (Vgroup) tag = 1965; reference = 32; number of entries = 1; name = rec; class = UDim0.0 number of attributes = 0 #3 (Vgroup) tag = 1965; reference = 34; number of entries = 7; name = a; class = Var0.0 number of attributes = 0 #4 (Vgroup) tag = 1965; reference = 36; number of entries = 6; name = b; class = Var0.0 number of attributes = 0 #5 (Vgroup) tag = 1965; reference = 38; number of entries = 5; name = c; class = Var0.0 number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vd vg2 -- vd vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg6 -- vg0 -- vd -- vg1 -- vd -- vg2 -- vd -- vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group -- vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group -- vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-17.out0000644000000000000000000000116512421456623017747 0ustar File name: grtdfui82.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 6 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 40 41 42 43 44 45 46 47 48 49 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-4.out0000644000000000000000000000151512421456623017663 0ustar File name: tvset.hdf Vdata: 3 tag = 1962; reference = 1238; number of records = 10; interlace = FULL_INTERLACE (0); fields = [STATION_NAME, VALUES, FLOATS]; record size (in bytes) = 18; name = Multi-Order Vdata; class = No class specified; number of attributes = 0 - field index 0: [STATION_NAME], type=4, order=2 number of attributes = 0 - field index 1: [VALUES], type=24, order=3 number of attributes = 0 - field index 2: [FLOATS], type=5, order=1 number of attributes = 0 Loc. Data 0 a b 0 1 2 15.500000 ; c d 3 4 5 16.000000 ; 2 e f 6 7 8 16.500000 ; g h 9 10 11 17.000000 ; 4 i j 12 13 14 17.500000 ; k l 15 16 17 18.000000 ; 6 m n 18 19 20 18.500000 ; o p 21 22 23 19.000000 ; 8 q r 24 25 26 19.500000 ; s t 27 28 29 20.000000 ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-8.out0000644000000000000000000000127412421456623017671 0ustar File name: tvset.hdf Vdata: 3 tag = 1962; reference = 1238; number of records = 10; interlace = FULL_INTERLACE (0); fields = [STATION_NAME, VALUES, FLOATS]; record size (in bytes) = 18; name = Multi-Order Vdata; class = No class specified; number of attributes = 0 - field index 0: [STATION_NAME], type=4, order=2 number of attributes = 0 number of attributes = 0 - field index 2: [FLOATS], type=5, order=1 number of attributes = 0 Loc. Data 0 a b 15.500000 ; c d 16.000000 ; e f 16.500000 ; 3 g h 17.000000 ; i j 17.500000 ; k l 18.000000 ; 6 m n 18.500000 ; o p 19.000000 ; q r 19.500000 ; 9 s t 20.000000 ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/test.hdf0000644000000000000000000000204612421456623017134 0ustar Ê\É&-&NCSA HDF Version 3.3 Release 3, February 1994ÿÿ ÿÿÿÿÿ#ÿ'ÿ+ÿ/ÿ7ÿ;ÿ?ÿCÿGÿKÿOÿSÿ[ÿ_ÿcÿgÿkÿoÿsÿ{ÿÿƒÿ‡ÿ‹ÿÿ“ÿ—ÿŸÿ£ÿ§ÿ«ÿ¯ÿ³ÿ·ÿ¿ÿÃÿÇÿËÿÏÿÓÿ×ÿÛÿãÿçÿëÿïÿóÿ÷ÿûÿÿÿÿûÿ÷ ÿóÿïÿëÿçÿã#ÿÛ'ÿ×+ÿÓ/ÿÏ3ÿË7ÿÇ;ÿÃCÿ»Gÿ·Kÿ³Oÿ¯Sÿ«Wÿ§[ÿ£cÿ›gÿ—kÿ“oÿsÿ‹wÿ‡{ÿƒÿ‡ÿw‹ÿsÿo“ÿk—ÿg›ÿcŸÿ_§ÿW«ÿS¯ÿO³ÿK·ÿG»ÿC¿ÿ?Ãÿ;Ëÿ3Ïÿ/Óÿ+×ÿ'Ûÿ#ßÿãÿëÿïÿóÿ ÷ÿûÿÿÿÿûÿ÷ÿïÿëÿçÿãÿßÿÛÿ×ÿÏÿËÿÇÿÃÿ¿ÿ»ÿ·ÿ³ÿ«ÿ§ÿ£ÿŸÿ›ÿ—ÿ“ÿ‹ÿ‡ÿƒÿÿ{ÿwÿsÿkÿgÿcÿ_ÿ[ÿWÿSÿOÿGÿCÿ?ÿ;ÿ7ÿ3ÿ/ÿ'ÿ#ÿÿÿÿÿÿ ÿÿúöñíéàÛ×ÓÎÊÅÁ¸´¯«§¢ž•‘Œˆƒƒƒƒƒƒ‡‹“—›Ÿ£§«¯·»¿ÃÇËÏ×Ûßãçëïóûÿÿlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-15szip.out0000644000000000000000000000551012421456623021032 0ustar File name: sds_compressed.hdf Variable Name = SDSgzip Index = 0 Type= 32-bit signed integer Ref. = 2 Compression method = DEFLATE Deflate level = 6 Compression ratio (original:compressed) = 5.42:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim0 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim1 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 8 9 10 11 12 9 10 11 12 13 10 11 12 13 14 11 12 13 14 15 12 13 14 15 16 13 14 15 16 17 14 15 16 17 18 15 16 17 18 19 16 17 18 19 20 Variable Name = SDSskiphuff Index = 1 Type= 32-bit signed integer Ref. = 4 Compression method = SKPHUFF Skipping unit size = 4 Compression ratio (original:compressed) = 4.16:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim2 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim3 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 8 9 10 11 12 9 10 11 12 13 10 11 12 13 14 11 12 13 14 15 12 13 14 15 16 13 14 15 16 17 14 15 16 17 18 15 16 17 18 19 16 17 18 19 20 Variable Name = SDSszip Index = 2 Type= 32-bit signed integer Ref. = 6 Compression method = SZIP Option mask = H4_SZ_EC_OPTION_MASK|H4_SZ_RAW_OPTION_MASK (65668) Pixels per block = 2 Pixels per scanline = 5 Bits per pixel = 32 Pixels = 80 Compression ratio (original:compressed) = 2.67:1 Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim4 Size = 16 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim5 Size = 5 Scale Type = number-type not set Number of attributes = 0 Data : 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 8 9 10 11 12 9 10 11 12 13 10 11 12 13 14 11 12 13 14 15 12 13 14 15 16 13 14 15 16 17 14 15 16 17 18 15 16 17 18 19 16 17 18 19 20 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-2.out0000644000000000000000000001171712421456623017665 0ustar File name: grtdfui82.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 6 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #3 Index = 3 Type= 8-bit unsigned char width=13; height=15 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-2.out0000644000000000000000000000133512421456623017664 0ustar File name: tvset.hdf Vgroup:0 tag = 1965; reference = 2; name = Simple Vgroup; class = Test object; number of entries = 0; number of attributes = 0 Entries:- None. Vgroup:1 tag = 1965; reference = 3; name = Second Vgroup; class = Test object; number of entries = 3; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 2; number of entries = 0; name = Simple Vgroup; class = Test object number of attributes = 0 #1 (Unknown Tag) tag = 1000; reference = 12345; #2 (Unknown Tag) tag = 123; reference = 1234; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 vg1 -- vg0 -- Unknown Object -- Unknown Object libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-15.out0000644000000000000000000000366012421456623017747 0ustar 0 0 8 1 0 8 2 0 8 3 0 8 4 0 8 5 0 8 6 0 8 7 0 8 8 0 8 9 0 8 10 0 8 11 0 8 12 0 8 13 0 8 14 0 8 15 0 8 16 0 8 17 0 8 18 0 8 19 0 8 20 0 8 21 0 8 22 0 8 23 0 8 24 0 8 25 0 8 26 0 8 27 0 8 28 0 8 29 0 8 30 0 8 31 0 8 32 0 8 33 0 8 34 0 8 35 0 8 36 0 8 37 0 8 38 0 8 39 0 8 40 0 8 41 0 8 42 0 8 43 0 8 44 0 8 45 0 8 46 0 8 47 0 8 48 0 8 49 0 8 50 0 8 51 0 8 52 0 8 53 0 8 54 0 8 55 0 8 56 0 8 57 0 8 58 0 8 59 0 8 60 0 8 61 0 8 62 0 8 63 0 8 64 0 8 65 0 8 66 0 8 67 0 8 68 0 8 69 0 8 70 0 8 71 0 8 72 0 8 73 0 8 74 0 8 75 0 8 76 0 8 77 0 8 78 0 8 79 0 8 80 0 8 81 0 8 82 0 8 83 0 8 84 0 8 85 0 8 86 0 8 87 0 8 88 0 8 89 0 8 90 0 8 91 0 8 92 0 8 93 0 8 94 0 8 95 0 8 96 0 8 97 0 8 98 0 8 99 0 8 100 0 8 101 0 8 102 0 8 103 0 8 104 0 8 105 0 8 106 0 8 107 0 8 108 0 8 109 0 8 110 0 8 111 0 8 112 0 8 113 0 8 114 0 8 115 0 8 116 0 8 117 0 8 118 0 8 119 0 8 120 0 8 121 0 8 122 0 8 123 0 8 124 0 8 125 0 8 126 0 8 127 0 8 128 0 8 129 0 8 130 0 8 131 0 8 132 0 8 133 0 8 134 0 8 135 0 8 136 0 8 137 0 8 138 0 8 139 0 8 140 0 8 141 0 8 142 0 8 143 0 8 144 0 8 145 0 8 146 0 8 147 0 8 148 0 8 149 0 8 150 0 8 151 0 8 152 0 8 153 0 8 154 0 8 155 0 8 156 0 8 157 0 8 158 0 8 159 0 8 160 0 8 161 0 8 162 0 8 163 0 8 164 0 8 165 0 8 166 0 8 167 0 8 168 0 8 169 0 8 170 0 8 171 0 8 172 0 8 173 0 8 174 0 8 175 0 8 176 0 8 177 0 8 178 0 8 179 0 8 180 0 8 181 0 8 182 0 8 183 0 8 184 0 8 185 0 8 186 0 8 187 0 8 188 0 8 189 0 8 190 0 8 191 0 8 192 0 8 193 0 8 194 0 8 195 0 8 196 0 8 197 0 8 198 0 8 199 0 8 200 0 8 201 0 8 202 0 8 203 0 8 204 0 8 205 0 8 206 0 8 207 0 8 208 0 8 209 0 8 210 0 8 211 0 8 212 0 8 213 0 8 214 0 8 215 0 8 216 0 8 217 0 8 218 0 8 219 0 8 220 0 8 221 0 8 222 0 8 223 0 8 224 0 8 225 0 8 226 0 8 227 0 8 228 0 8 229 0 8 230 0 8 231 0 8 232 0 8 233 0 8 234 0 8 235 0 8 236 0 8 237 0 8 238 0 8 239 0 8 240 0 8 241 0 8 242 0 8 243 0 8 244 0 8 245 0 8 246 0 8 247 0 8 248 0 8 249 0 8 250 0 8 251 0 8 252 0 8 253 0 8 254 0 8 255 0 8 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-3.out0000644000000000000000000000341312421456623017661 0ustar File name: tvset.hdf Vdata: 3 tag = 1962; reference = 1238; number of records = 10; interlace = FULL_INTERLACE (0); fields = [STATION_NAME, VALUES, FLOATS]; record size (in bytes) = 18; name = Multi-Order Vdata; class = No class specified; number of attributes = 0 - field index 0: [STATION_NAME], type=4, order=2 number of attributes = 0 - field index 1: [VALUES], type=24, order=3 number of attributes = 0 - field index 2: [FLOATS], type=5, order=1 number of attributes = 0 Loc. Data 0 a b 0 1 2 15.500000 ; c d 3 4 5 16.000000 ; 2 e f 6 7 8 16.500000 ; g h 9 10 11 17.000000 ; 4 i j 12 13 14 17.500000 ; k l 15 16 17 18.000000 ; 6 m n 18 19 20 18.500000 ; o p 21 22 23 19.000000 ; 8 q r 24 25 26 19.500000 ; s t 27 28 29 20.000000 ; Vdata: 4 tag = 1962; reference = 1239; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-0; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 16 tag = 1962; reference = 1251; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-12; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 17 tag = 1962; reference = 1252; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-13; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-15.out0000644000000000000000000001161212421456623017747 0ustar File name: sds2_dim1_samename.hdf Vgroup:0 tag = 1965; reference = 8; name = Variable 2; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 7; number of records = 1; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = Variable 2; class = DimVal0.1; total number of attributes = 0. Vgroup:1 tag = 1965; reference = 10; name = fakeDim1; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 9; number of records = 1; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = fakeDim1; class = DimVal0.1; total number of attributes = 0. Vgroup:2 tag = 1965; reference = 12; name = fakeDim2; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 11; number of records = 1; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = fakeDim2; class = DimVal0.1; total number of attributes = 0. Vgroup:3 tag = 1965; reference = 15; name = Variable 1; class = Var0.0; number of entries = 5; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 8; number of entries = 1; name = Variable 2; class = Dim0.0 number of attributes = 0 #1 (Vdata) tag = 1962; reference = 13; number of records = 0; interlace = 0; fields = [SDS variable]; record size (in bytes) = 4; name = ; class = SDSVar; total number of attributes = 0. #2 (Number type) tag = 106; reference = 14; #3 (SciData dimension record) tag = 701; reference = 14; #4 (Numeric Data Group) tag = 720; reference = 2; Vgroup:4 tag = 1965; reference = 18; name = Variable 2; class = Var0.0; number of entries = 7; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 10; number of entries = 1; name = fakeDim1; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 12; number of entries = 1; name = fakeDim2; class = Dim0.0 number of attributes = 0 #2 (Vdata) tag = 1962; reference = 16; number of records = 0; interlace = 0; fields = [SDS variable]; record size (in bytes) = 4; name = ; class = SDSVar; total number of attributes = 0. #3 (Scientific Data) tag = 702; reference = 4; #4 (Number type) tag = 106; reference = 17; #5 (SciData dimension record) tag = 701; reference = 17; #6 (Numeric Data Group) tag = 720; reference = 3; Vgroup:5 tag = 1965; reference = 21; name = Variable 2; class = Var0.0; number of entries = 6; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 8; number of entries = 1; name = Variable 2; class = Dim0.0 number of attributes = 0 #1 (Vdata) tag = 1962; reference = 19; number of records = 0; interlace = 0; fields = [Coordinate variable]; record size (in bytes) = 4; name = ; class = CoordVar; total number of attributes = 0. #2 (Scientific Data) tag = 702; reference = 6; #3 (Number type) tag = 106; reference = 20; #4 (SciData dimension record) tag = 701; reference = 20; #5 (Numeric Data Group) tag = 720; reference = 5; Vgroup:6 tag = 1965; reference = 22; name = sds2_dim1_samename.hdf; class = CDF0.0; number of entries = 6; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 8; number of entries = 1; name = Variable 2; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 10; number of entries = 1; name = fakeDim1; class = Dim0.0 number of attributes = 0 #2 (Vgroup) tag = 1965; reference = 12; number of entries = 1; name = fakeDim2; class = Dim0.0 number of attributes = 0 #3 (Vgroup) tag = 1965; reference = 15; number of entries = 5; name = Variable 1; class = Var0.0 number of attributes = 0 #4 (Vgroup) tag = 1965; reference = 18; number of entries = 7; name = Variable 2; class = Var0.0 number of attributes = 0 #5 (Vgroup) tag = 1965; reference = 21; number of entries = 6; name = Variable 2; class = Var0.0 number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vd vg2 -- vd vg3 -- vg0 -- vd -- vd -- Number type -- SciData dimension record -- Numeric Data Group vg4 -- vg1 -- vd -- vg2 -- vd -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg5 -- vg0 -- vd -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg6 -- vg0 -- vd -- vg1 -- vd -- vg2 -- vd -- vg3 -- vg0 -- vd -- vd -- Number type -- SciData dimension record -- Numeric Data Group -- vg0 -- vd -- vg0 -- vd libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/ctxtr2r.hdf0000644000000000000000000000066212421456623017567 0ustar Ê\¾&0jV½Z¿pÎƖО¼žNCSA HDF Version 4.0 Release 0, ?month? ?year?BBBBBB BBBBBB  jjjA0A@APA¨A¸AÈAØB Bм¾½¿ÃÆlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-12.out0000644000000000000000000000044312421456623017741 0ustar File name: sds1_dim1_samename.hdf Vdata: 4 tag = 1962; reference = 11; number of records = 0; interlace = FULL_INTERLACE (0); fields = [Coordinate variable]; record size (in bytes) = 4; name = ; class = CoordVar; number of attributes = 0 No data written libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-2.out0000644000000000000000000000403312421456623017333 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 no tagname tag ref index_by_tag 0Linked Blocks Indicator 20 18 0 1Linked Blocks Indicator 20 19 1 2Linked Blocks Indicator 20 20 2 3Linked Blocks Indicator 20 21 3 4Linked Blocks Indicator 20 22 4 5Linked Blocks Indicator 20 23 5 6Linked Blocks Indicator 20 24 6 7Linked Blocks Indicator 20 25 7 8Linked Blocks Indicator 20 26 8 9 Version Descriptor 30 1 0 10 Number type 106 33 0 11 Number type 106 35 1 12 Number type 106 37 2 13SciData dimension record 701 33 0 14SciData dimension record 701 35 1 15SciData dimension record 701 37 2 16 Numeric Data Group 720 2 0 17 Numeric Data Group 720 3 1 18 Numeric Data Group 720 4 2 19 Vdata 1962 27 0 20 Vdata 1962 29 1 21 Vdata 1962 31 2 22 Vdata Storage 1963 27 0 23 Vdata Storage 1963 29 1 24 Vdata Storage 1963 31 2 25 Vgroup 1965 28 0 26 Vgroup 1965 30 1 27 Vgroup 1965 32 2 28 Vgroup 1965 34 3 29 Vgroup 1965 36 4 30 Vgroup 1965 38 5 31 Vgroup 1965 39 6 32Special Scientific Data 17086 18 0 33Special Scientific Data 17086 21 1 34Special Scientific Data 17086 24 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/VGlongname.hdf0000644000000000000000000000136112421456623020211 0ustar Ê\«&ª*<­f!j‡½‹Ð™ ­¥Ÿ­D+­oÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006 ValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0 jjj½Ñ­j½ÐzSDS belongs to VG_LONGNAME, which has a very long name that is used to test the new feature of variable length vgroup nameVar0.0­­VGlongname.hdfCDF0.0Ð`SD Vgroup - this vgroup has an sds as a member and it is actually meant to test long vgroup nameCommon Vgroupslibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-4.out0000644000000000000000000000041512421456623017664 0ustar File name: tvset.hdf Vgroup:0 tag = 1965; reference = 2; name = Simple Vgroup; class = Test object; number of entries = 0; number of attributes = 0 Entries:- None. Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-5.out0000644000000000000000000001217112421456623017663 0ustar File name: grtdfui82.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 6 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #2 Index = 2 Type= 8-bit unsigned char width=13; height=15 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/manySDSs.c0000644000000000000000000000447412421456623017346 0ustar #include "mfhdf.h" #define X_LENGTH 10 #define Y_LENGTH 10 #define NUM_DSETS 40 main( ) { int32 sd_id, sds_id, istat, sds_idx; int32 sds_list[NUM_DSETS]; int32 dims[2], start[2], edges[2], rank, num_datasets=0, num_attrs=0; intn i, j, k, index; intn num_errs = 0; char file_attr[116] = "This file was generated by the program manySDSs.c in hdf4/mfhdf/dumper/testfiles to test the flag -k in hdp dumpsds"; char names[NUM_DSETS][8] = {{"data1"},{"data2"},{"data3"},{"data4"}, {"data5"},{"data6"},{"data7"},{"data8"},{"data9"},{"data10"}, {"data11"},{"data12"},{"data13"},{"data14"},{"data15"},{"data16"}, {"data17"},{"data18"},{"data19"},{"data20"},{"data21"},{"data22"}, {"data23"},{"data24"},{"data25"},{"data26"},{"data27"},{"data28"}, {"data29"},{"data30"},{"data31"},{"data32"},{"data33"},{"data34"}, {"data35"},{"data36"},{"data37"},{"data38"},{"data39"},{"data40"}}; /* Create and open the file and initiate the SD interface. */ sd_id = SDstart("sds_empty_many.hdf", DFACC_CREATE); if (sd_id == FAIL) { fprintf(stderr, "manySDSs: SDstart returns sd_id: %d\n", sd_id); exit(-1); } /* Add file attribute to note about the file's history */ istat = SDsetattr(sd_id, "file_contents", DFNT_CHAR8, 116, (VOIDP)file_attr); if (istat == FAIL) { fprintf(stderr, "manySDSs: SDsetattr returns status: %d\n", istat); exit(-1); } /* Define the rank and dimensions of the data set to be created. */ rank = 2; dims[0] = SD_UNLIMITED; dims[1] = X_LENGTH; /* Define the location, pattern, and size of the data set */ for (i = 0; i < rank; i++) start[i] = 0; for (index = 0; index < NUM_DSETS; index++) { /* Create each data set. */ sds_list[index] = SDcreate(sd_id, names[index], DFNT_INT16, rank, dims); if (sds_list[index] == FAIL) { fprintf(stderr, "manySDSs: SDcreate returns sds_list[%d]: %d\n", index, sds_list[index]); exit(-1); } /* Terminate access to each data set. */ istat = SDendaccess(sds_list[index]); if (istat == FAIL) { fprintf(stderr, "manySDSs: SDendaccess returns status: %d\n", istat); exit(-1); } } /* Terminate access to the SD interface and close the file. */ istat = SDend(sd_id); if (istat == FAIL) { fprintf(stderr, "manySDSs: SDend returns: %d\n", istat); exit(-1); } } libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/Example6.hdf0000644000000000000000000000506712421456623017644 0ustar ùÊ\d&eB#« ª  8«BªV8­Ž%«³ª·8«ï(ª8­O%«tªx8«°NCSA HDF Version 4.0 Release 1, Jan. 19, 1996This is a file label for AN This is a file describation for AN ValuesfakeDim0 DimVal0.1ValuesfakeDim0 DimVal0.0ªªfakeDim0Dim0.0 ValuesfakeDim1 DimVal0.1 ValuesfakeDim1 DimVal0.0ªªfakeDim1Dim0.0  j j j j ½ Ñ üªÄ8­ü%hh0"iR)h{#iž)dÇeã#«!ª%8«](ª…8­½%jâ½æ­­j½Ð mysdsVar0.0­­­ Example6.hdfCDF0.0ÐData label for AN ªThis is a data label for VdataªThis is a data describation for Vdata­This is a data label for VgroupThis is a data describation for AN This is a file label for AN This is a file describation for AN ValuesfakeDim0 DimVal0.1ValuesfakeDim0 DimVal0.0ªª fakeDim0Dim0.0 ValuesfakeDim1 DimVal0.1 ValuesfakeDim1 DimVal0.0ªªfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ValuesfakeDim2 DimVal0.0ªªfakeDim2Dim0.0 ValuesfakeDim3 DimVal0.1 ValuesfakeDim3 DimVal0.0ªªfakeDim3Dim0.0  jjjР­Î.jü½ Ð  ­ ".­ P9h ‰h Ÿ"i Á)h ê#i )j½Ñ­­j½ÐmysdsVar0.0  jjjj½Ñ­­j½Ð mysdsVar0.0­­­­­­ Example6.hdfCDF0.0Ð Data label for AN ª This is a data label for Vdataª This is a data describation for Vdata­This is a data label for VgroupThis is a data describation for AN libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/LongDataset.hdf0000644000000000000000000000674312421456623020372 0ustar È j\¾ ÆX« ª "<­ ^!« ª ƒ<­ ¿!« ઠä<­ !j A½ EÐ c­ s;­ ®4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.1 Release 4 - Pre1  !"#$%&'()*+,-./012  !"#$%&'()*+,-./0123  !"#$%&'()*+,-./01234  !"#$%&'()*+,-./012  !"#$%&'()*+,-./0123  !"#$%&'()*+,-./01234ValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.02ValuesfakeDim2 DimVal0.1ªfakeDim2Dim0.02j j j j ¾j ½ Ñ ­­­¾j½Ð   Ex_array_3Var0.0­­­­ LongDataset.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-1.out0000644000000000000000000000471012421456623020040 0ustar File name: swf32.hdf Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 100.000000 Dimension Variable Name = fakeDim1 Index = 1 Scale Type= 32-bit floating point Ref. = 4 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim1 Size = 3 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Line Attr1: Name = units Type = 8-bit signed char Count= 4 Value = Inch Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int16 Data : 0.000000 10.000000 20.000000 Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Value = Column Attr1: Name = units Type = 8-bit signed char Count= 2 Value = Cm Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 1.000000 2.000000 3.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-6.out0000644000000000000000000000061312421456623017337 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 no tagname tag ref index_by_tag offset length 16 Numeric Data Group 720 2 0 6918 12 17 Numeric Data Group 720 3 1 7006 12 18 Numeric Data Group 720 4 2 7082 12 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-14.out0000644000000000000000000000665412421456623017760 0ustar File name: sds1_dim1_samename.hdf Vgroup:0 tag = 1965; reference = 5; name = Variable 1; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 4; number of records = 1; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = Variable 1; class = DimVal0.1; total number of attributes = 0. Vgroup:1 tag = 1965; reference = 9; name = Variable 1; class = Var0.0; number of entries = 6; number of attributes = 1 attr0: name=Attribute SDS 1 type=4 count=23 size=23 T h i s i s n o t a c o o r d v a r Entries:- #0 (Vgroup) tag = 1965; reference = 5; number of entries = 1; name = Variable 1; class = Dim0.0 number of attributes = 0 #1 (Vdata) tag = 1962; reference = 6; number of records = 1; interlace = 0; fields = [VALUES]; record size (in bytes) = 23; name = Attribute SDS 1; class = Attr0.0; total number of attributes = 0. #2 (Vdata) tag = 1962; reference = 7; number of records = 0; interlace = 0; fields = [SDS variable]; record size (in bytes) = 4; name = ; class = SDSVar; total number of attributes = 0. #3 (Number type) tag = 106; reference = 8; #4 (SciData dimension record) tag = 701; reference = 8; #5 (Numeric Data Group) tag = 720; reference = 2; Vgroup:2 tag = 1965; reference = 13; name = Variable 1; class = Var0.0; number of entries = 6; number of attributes = 1 attr0: name=Attribute Dimension 1 type=4 count=19 size=19 T h i s i s a c o o r d v a r Entries:- #0 (Vgroup) tag = 1965; reference = 5; number of entries = 1; name = Variable 1; class = Dim0.0 number of attributes = 0 #1 (Vdata) tag = 1962; reference = 10; number of records = 1; interlace = 0; fields = [VALUES]; record size (in bytes) = 19; name = Attribute Dimension 1; class = Attr0.0; total number of attributes = 0. #2 (Vdata) tag = 1962; reference = 11; number of records = 0; interlace = 0; fields = [Coordinate variable]; record size (in bytes) = 4; name = ; class = CoordVar; total number of attributes = 0. #3 (Number type) tag = 106; reference = 12; #4 (SciData dimension record) tag = 701; reference = 12; #5 (Numeric Data Group) tag = 720; reference = 3; Vgroup:3 tag = 1965; reference = 14; name = sds1_dim1_samename.hdf; class = CDF0.0; number of entries = 3; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 5; number of entries = 1; name = Variable 1; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 9; number of entries = 6; name = Variable 1; class = Var0.0 number of attributes = 1 attr0: name=Attribute SDS 1 type=4 count=23 size=23 T h i s i s n o t a c o o r d v a r #2 (Vgroup) tag = 1965; reference = 13; number of entries = 6; name = Variable 1; class = Var0.0 number of attributes = 1 attr0: name=Attribute Dimension 1 type=4 count=19 size=19 T h i s i s a c o o r d v a r Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vg0 -- vd -- vd -- vd -- Number type -- SciData dimension record -- Numeric Data Group vg2 -- vg0 -- vd -- vd -- vd -- Number type -- SciData dimension record -- Numeric Data Group vg3 -- vg0 -- vd -- vg0 -- vd -- vg0 -- vd libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/tdata.hdf0000644000000000000000000001602612421456623017255 0ustar È j\«ÖªÞ5­«1 ª=5­r«ª”3­ Çj!ä½!èÐ ­"2j#D½#HÐ^ ­$j.j%˜½%œÐª ­&¶*­'à6 îB¾   JJ B¾Vf––B¾šªÖNCSA HDF Version 3.3 Release 4, October 1994Valuesnsamp DimVal0.0ªnsampDim0.0Valuesbands DimVal0.0ªbandsDim0.0Valuesrec DimVal0.0ª recUDim0.0 j j j j j ½ ­­­j½Ð  aVar0.0 j j j j ½ ­­j½Ð  bVar0.0 jjj½­j½Ð cVar0.0­­­­­­  tdata.hdfCDF0.0x€­­­j½Ð¾  aVar0.0  !"#$)*+,-.<€­­j½Ð¾  bVar0.0 €­j½Ð¾ cVar0.0Valuesnsamp DimVal0.0ªnsampDim0.0Valuesbands DimVal0.0ªbandsDim0.0Valuesrec DimVal0.0ªrecUDim0.0 j!j!j!j!¾j!½!­­­¾j½Ð !!aVar0.0 j#j#j#¾j#½#­­¾j½Ð ##bVar0.0 j%j%¾j%½%­¾j½Ð %%cVar0.0­­­­­­ "$& tdata.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-8.out0000644000000000000000000000000012421456623017652 0ustar libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/sds_compressed.hdf0000644000000000000000000000755112421456623021200 0ustar È j\B¾ Æ( Ö;B¾ ( 'MB¾ t( x« ª <­ H!« iª m<­ ©!« ʪ Î<­ !« +ª /<­ k!« Œª <­ Ì!« íª ñ<­ -!«ÿÿÿÿÿÿÿÿª N7j …½ ‰Ð Ÿ­ ¯8«ÿÿÿÿÿÿÿÿª ç7j½"Ð8­H<«ÿÿÿÿÿÿÿÿª„7j»½¿ÐÕ­å8­KÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿHDF Version 4.2 Release 3-snap0, January 31, 2008@xœmÇÉ€ ÁäTÑüceèG=J’“äM0—‰ðÏð¯ð¿á¼Ã|Âü…oøÿƒ·I@€@ ÿþ¤“þ èüQ„ ` h€á£@8 P‚0ãFã0Ð † "€?† CH€(‰@P„ s @ @ @ @ @ @)I‘ÉTJ†$ÍYD­m5fœAÍm’,á§,Ï"ɶ0d´WÑ“qecˆ®E¹"ËvEº'†EÞ "x„”ÃÈH0”áÀValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª fakeDim2Dim0.0ValuesfakeDim3 DimVal0.1ªfakeDim3Dim0.0ValuesfakeDim4 DimVal0.1ªfakeDim4Dim0.0ValuesfakeDim5 DimVal0.1ªfakeDim5Dim0.0 SDS variableSDSVar jjj¾j½Ñ­­ª¾j½Ð SDSgzipVar0.0 SDS variableSDSVar jjj¾j½Ñ­­ª¾j½Ð  SDSskiphuffVar0.0 SDS variableSDSVar jjj¾j½Ñ­­ª¾j½ÐSDSszipVar0.0 ­­­­­­­­­ sds_compressed.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/Image_with_Palette.hdf0000644000000000000000000000475112421456623021715 0ustar kÊ\­6.52-g­ E6.v2-¨­ “..·2jéjí3ñ,jOjS3WNCSA HDF Version 4.1 Release 3, May 1999        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ    jj,.3-Image with PaletteRI0.0j, 1j {, ­ Á'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿj,.3-Second Image w/palRI0.0j,.Last Image: no palRI0.0­­­RIG0.0RIG0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/Tables_External_File0000644000000000000000000000011312421456623021421 0ustar AB ×#<ÍÌÌ=aBC ×£<ÍÌL>bCDÂõ<š™™>cDE ×#=ÍÌÌ>dEFÍÌL=?elibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-4.out0000644000000000000000000000004012421456623020033 0ustar SDS with name 'Time': not found libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/sds_empty_many.hdf0000644000000000000000000005231412421456623021213 0ustar È#] j\«* ƪ* Ê<­+ "«, (ª, ,<­- h!«. ‰ª. <­/ É"«0 ëª0 ï<­1 +!«2 Lª2 P<­3 Œ"«4 ®ª4 ²<­5 î!«6 ª6 <­7 O"«8 qª8 u<­9 ±!«: Òª: Ö<­; "«< 4ª< 8<­= t!«> •ª> ™=­? Ö#«@ ùª@ ý=­A:"«B\ªB`=­C#«DÀªDÄ=­E"«F#ªF'=­Gd#«H‡ªH‹=­IÈ"«JêªJî=­K+#«LNªLR=­M"«N±ªNµ=­Oò#«PªP=­QV"«RxªR|=­S¹#«TܪTà=­U"«V?ªVC=­W€#«X£ªX§=­Yä"«ZªZ =­[G#«\jª\n=­]«"«^ͪ^Ñ=­_#«`1ª`5=­ar"«b”ªb˜=­cÕ#«døªdü=­e9"«f[ªf_=­gœ#«h¿ªhÃ=­i"«j"ªj&=­kc#«l†ªlŠ=­mÇ"«néªní=­o*#«pMªpQ=­qŽ"«r°ªr´=­sñ#«tªt=­uU"«vwªv{=­w¸#«xÛªxß=­y"«z>ªzB=­{#«|¢ª|¦=­}ã"«~ª~ =­F#«€iª€m=­ª"«‚̪‚Ð=­ƒ #«„0ª„4=­…q"«†“ª†—=­‡Ô#«ˆ÷ªˆû=­‰8"«ŠZªŠ^=­‹›#«Œ¾ªŒÂ=­ÿ"«Ž!ªŽ%=­b#«…ª‰=­‘Æ"«’誒ì=­“)#«”Lª”P=­•"«–¯ª–³=­—ð#«˜ª˜=­™T"«švªšz=­›·#«œÚªœÞ=­ "«ž =ªž A=­Ÿ ~#«  ¡ª  ¥=­¡ â"«¢!ª¢!=­£!E#«¤!hª¤!l=­¥!©"«¦!˪¦!Ï=­§" #«¨"/ª¨"3=­©"p"«ª"’ªª"–=­«"Ó#«¬"öª¬"ú=­­#7"«®#YHDF Version 4.2 Release 4-snap4, October 25, 2009ValuesfakeDim0 DimVal0.1ª*fakeDim0UDim0.0 ValuesfakeDim1 DimVal0.1ª,fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª.fakeDim2UDim0.0 ValuesfakeDim3 DimVal0.1ª0fakeDim3Dim0.0ValuesfakeDim4 DimVal0.1ª2fakeDim4UDim0.0 ValuesfakeDim5 DimVal0.1ª4fakeDim5Dim0.0ValuesfakeDim6 DimVal0.1ª6fakeDim6UDim0.0 ValuesfakeDim7 DimVal0.1ª8fakeDim7Dim0.0ValuesfakeDim8 DimVal0.1ª:fakeDim8UDim0.0 ValuesfakeDim9 DimVal0.1ª<fakeDim9Dim0.0Values fakeDim10 DimVal0.1ª> fakeDim10UDim0.0 Values fakeDim11 DimVal0.1ª@ fakeDim11Dim0.0Values fakeDim12 DimVal0.1ªB fakeDim12UDim0.0 Values fakeDim13 DimVal0.1ªD fakeDim13Dim0.0Values fakeDim14 DimVal0.1ªF fakeDim14UDim0.0 Values fakeDim15 DimVal0.1ªH fakeDim15Dim0.0Values fakeDim16 DimVal0.1ªJ fakeDim16UDim0.0 Values fakeDim17 DimVal0.1ªL fakeDim17Dim0.0Values fakeDim18 DimVal0.1ªN fakeDim18UDim0.0 Values fakeDim19 DimVal0.1ªP fakeDim19Dim0.0Values fakeDim20 DimVal0.1ªR fakeDim20UDim0.0 Values fakeDim21 DimVal0.1ªT fakeDim21Dim0.0Values fakeDim22 DimVal0.1ªV fakeDim22UDim0.0 Values fakeDim23 DimVal0.1ªX fakeDim23Dim0.0Values fakeDim24 DimVal0.1ªZ fakeDim24UDim0.0 Values fakeDim25 DimVal0.1ª\ fakeDim25Dim0.0Values fakeDim26 DimVal0.1ª^ fakeDim26UDim0.0 Values fakeDim27 DimVal0.1ª` fakeDim27Dim0.0Values fakeDim28 DimVal0.1ªb fakeDim28UDim0.0 Values fakeDim29 DimVal0.1ªd fakeDim29Dim0.0Values fakeDim30 DimVal0.1ªf fakeDim30UDim0.0 Values fakeDim31 DimVal0.1ªh fakeDim31Dim0.0Values fakeDim32 DimVal0.1ªj fakeDim32UDim0.0 Values fakeDim33 DimVal0.1ªl fakeDim33Dim0.0Values fakeDim34 DimVal0.1ªn fakeDim34UDim0.0 Values fakeDim35 DimVal0.1ªp fakeDim35Dim0.0Values fakeDim36 DimVal0.1ªr fakeDim36UDim0.0 Values fakeDim37 DimVal0.1ªt fakeDim37Dim0.0Values fakeDim38 DimVal0.1ªv fakeDim38UDim0.0 Values fakeDim39 DimVal0.1ªx fakeDim39Dim0.0Values fakeDim40 DimVal0.1ªz fakeDim40UDim0.0 Values fakeDim41 DimVal0.1ª| fakeDim41Dim0.0Values fakeDim42 DimVal0.1ª~ fakeDim42UDim0.0 Values fakeDim43 DimVal0.1ª€ fakeDim43Dim0.0Values fakeDim44 DimVal0.1ª‚ fakeDim44UDim0.0 Values fakeDim45 DimVal0.1ª„ fakeDim45Dim0.0Values fakeDim46 DimVal0.1ª† fakeDim46UDim0.0 Values fakeDim47 DimVal0.1ªˆ fakeDim47Dim0.0Values fakeDim48 DimVal0.1ªŠ fakeDim48UDim0.0 Values fakeDim49 DimVal0.1ªŒ fakeDim49Dim0.0Values fakeDim50 DimVal0.1ªŽ fakeDim50UDim0.0 Values fakeDim51 DimVal0.1ª fakeDim51Dim0.0Values fakeDim52 DimVal0.1ª’ fakeDim52UDim0.0 Values fakeDim53 DimVal0.1ª” fakeDim53Dim0.0Values fakeDim54 DimVal0.1ª– fakeDim54UDim0.0 Values fakeDim55 DimVal0.1ª˜ fakeDim55Dim0.0Values fakeDim56 DimVal0.1ªš fakeDim56UDim0.0 Values fakeDim57 DimVal0.1ªœ fakeDim57Dim0.0Values fakeDim58 DimVal0.1ªž fakeDim58UDim0.0 Values fakeDim59 DimVal0.1ª  fakeDim59Dim0.0Values fakeDim60 DimVal0.1ª¢ fakeDim60UDim0.0 Values fakeDim61 DimVal0.1ª¤ fakeDim61Dim0.0Values fakeDim62 DimVal0.1ª¦ fakeDim62UDim0.0 Values fakeDim63 DimVal0.1ª¨ fakeDim63Dim0.0Values fakeDim64 DimVal0.1ªª fakeDim64UDim0.0 Values fakeDim65 DimVal0.1ª¬ fakeDim65Dim0.0ÈAª®,Ã=­¯-#«°-#ª°-'=­±-d"«²-†ª²-Š=­³-Ç#«´-ꪴ-î=­µ.+"«¶.Mª¶.Q=­·.Ž#«¸.±ª¸.µ=­¹.ò"«º/ªº/=­»/U#«¼/xª¼/|=­½/¹"«¾/Ûª¾/ß=­¿0#«À0?ªÀ0C=­Á0€"«Â0¢ªÂ0¦=­Ã0ã#«Ä1ªÄ1 =­Å1G"«Æ1iªÆ1m=­Ç1ª#«È1ͪÈ1Ñ=­É2"«ÊÿÿÿÿÿÿÿÿªÊ207jË2g½Ë2kÐ2 ­Ì22«ÍÿÿÿÿÿÿÿÿªÍ2¿7jÎ2ö½Î2úÐ3 ­Ï32«ÐÿÿÿÿÿÿÿÿªÐ3N7jÑ3…½Ñ3‰Ð3Ÿ ­Ò3«2«ÓÿÿÿÿÿÿÿÿªÓ3Ý7jÔ4½Ô4Ð4. ­Õ4:2«ÖÿÿÿÿÿÿÿÿªÖ4l7j×4£½×4§Ð4½ ­Ø4É2«ÙÿÿÿÿÿÿÿÿªÙ4û7jÚ52½Ú56Ð5L ­Û5X2«ÜÿÿÿÿÿÿÿÿªÜ5Š7jÝ5Á½Ý5ÅÐ5Û ­Þ5ç2«ßÿÿÿÿÿÿÿÿªß67jà6P½à6TÐ 6j ­á6v2«âÿÿÿÿÿÿÿÿªâ6¨7jã6ß½ã6ãÐ 6ù ­ä72«åÿÿÿÿÿÿÿÿªå777jæ7n½æ7rÐ 7ˆ ­ç7”3«èÿÿÿÿÿÿÿÿªè7Ç7jé7þ½é8Ð 8 ­ê8$3«ëÿÿÿÿÿÿÿÿªë8W7jì8Ž½ì8’Ð 8¨ ­í8´3«îÿÿÿÿÿÿÿÿªî8ç7jï9½ï9"Ð98 ­ð9D3«ñÿÿÿÿÿÿÿÿªñ9w7jò9®½ò9²Ð9È ­ó9Ô3«ôÿÿÿÿÿÿÿÿªô:7jõ:>½õ:BÐ:X ­ö:d3«÷ÿÿÿÿÿÿÿÿª÷:—7jø:νø:ÒÐ:è ­ù:ô3«úÿÿÿÿÿÿÿÿªú;'7jû;^½û;bÐ;x ­ü;„3«ýÿÿÿÿÿÿÿÿªý;·7jþ;î½þ;òÐ< ­ÿ<3«ÿÿÿÿÿÿÿÿª.½ >2Ð>H ­ >T3« ÿÿÿÿÿÿÿÿª >‡7j >¾½ >ÂÐ>Ø ­>ä3«ÿÿÿÿÿÿÿÿª?7j?N½?RÐ?h ­?t3«ÿÿÿÿÿÿÿÿª?§7j?Þ½?âÐ?ø ­@3«ÿÿÿÿÿÿÿÿª@77j@n½@rÐ@ˆ ­@”3«ÿÿÿÿÿÿÿÿª@Ç7j@þValues fakeDim66 DimVal0.1ª® fakeDim66UDim0.0 Values fakeDim67 DimVal0.1ª° fakeDim67Dim0.0Values fakeDim68 DimVal0.1ª² fakeDim68UDim0.0 Values fakeDim69 DimVal0.1ª´ fakeDim69Dim0.0Values fakeDim70 DimVal0.1ª¶ fakeDim70UDim0.0 Values fakeDim71 DimVal0.1ª¸ fakeDim71Dim0.0Values fakeDim72 DimVal0.1ªº fakeDim72UDim0.0 Values fakeDim73 DimVal0.1ª¼ fakeDim73Dim0.0Values fakeDim74 DimVal0.1ª¾ fakeDim74UDim0.0 Values fakeDim75 DimVal0.1ªÀ fakeDim75Dim0.0Values fakeDim76 DimVal0.1ªÂ fakeDim76UDim0.0 Values fakeDim77 DimVal0.1ªÄ fakeDim77Dim0.0Values fakeDim78 DimVal0.1ªÆ fakeDim78UDim0.0 Values fakeDim79 DimVal0.1ªÈ fakeDim79Dim0.0 SDS variableSDSVar jËjËjËj˽ËÑË­­ªj½Ð+-ÊËËdata1Var0.0 SDS variableSDSVar jÎjÎjÎjνÎÑέ­ªj½Ð/1ÍÎÎdata2Var0.0 SDS variableSDSVar jÑjÑjÑjѽÑÑÑ­­ªj½Ð35ÐÑÑdata3Var0.0 SDS variableSDSVar jÔjÔjÔjÔ½ÔÑÔ­­ªj½Ð79ÓÔÔdata4Var0.0 SDS variableSDSVar j×j×j×j×½×Ñ×­­ªj½Ð;=Ö××data5Var0.0 SDS variableSDSVar jÚjÚjÚjÚ½ÚÑÚ­­ªj½Ð?AÙÚÚdata6Var0.0 SDS variableSDSVar jÝjÝjÝjݽÝÑÝ­­ªj½ÐCEÜÝÝdata7Var0.0 SDS variableSDSVar jàjàjàjà½àÑà­­ªj½ÐGIßàà data8Var0.0 SDS variableSDSVar jãjãjãjã½ãÑã­­ªj½ÐKMâãã data9Var0.0 SDS variableSDSVar jæjæjæjæ½æÑæ­­ªj½ÐOQåææ data10Var0.0 SDS variableSDSVar jéjéjéjé½éÑé­­ªj½ÐSUèéé data11Var0.0 SDS variableSDSVar jìjìjìjì½ìÑì­­ªj½ÐWYëìì data12Var0.0 SDS variableSDSVar jïjïjïjï½ïÑï­­ªj½Ð[]îïïdata13Var0.0 SDS variableSDSVar jòjòjòjò½òÑò­­ªj½Ð_añòòdata14Var0.0 SDS variableSDSVar jõjõjõjõ½õÑõ­­ªj½Ðceôõõdata15Var0.0 SDS variableSDSVar jøjøjøjø½øÑø­­ªj½Ðgi÷øødata16Var0.0 SDS variableSDSVar jûjûjûjû½ûÑû­­ªj½Ðkmúûûdata17Var0.0 SDS variableSDSVar jþjþjþjþ½þÑþ­­ªj½Ðoqýþþdata18Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Ðsudata19Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Ðwydata20Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Ð{}data21Var0.0 SDS variableSDSVar j j j j ½ Ñ ­­ªj½Ð   data22Var0.0 SDS variableSDSVar j j j j ½ Ñ ­­ªj½Ѓ…   data23Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Ї‰data24Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Ћdata25Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Бdata26Var0.0 SDS variableSDSVarȽJhÐJ~ ­JŠ3«ÿÿÿÿÿÿÿÿªJ½7jJô½JøÐK ­K3«ÿÿÿÿÿÿÿÿªKM7jK„½KˆÐKž ­ Kª3«!ÿÿÿÿÿÿÿÿª!KÝ7j"L½"LÐL. ­#L:3«$ÿÿÿÿÿÿÿÿª$Lm7j%L¤½%L¨Ð L¾ ­&LÊ3«'ÿÿÿÿÿÿÿÿª'Lý7j(M4½(M8Ð!MN ­)MZ3«*ÿÿÿÿÿÿÿÿª*M7j+MĽ+MÈÐ"MÞ ­,Mê3«-ÿÿÿÿÿÿÿÿª-N7j.NT½.NXÐ#Nn ­/Nz3«0ÿÿÿÿÿÿÿÿª0N­7j1Nä½1NèÐ$Nþ ­2O 3«3ÿÿÿÿÿÿÿÿª3O=7j4Ot½4OxÐ%OŽ ­5Oš3«6ÿÿÿÿÿÿÿÿª6OÍ7j7P½7PÐ&P ­8P*3«9ÿÿÿÿÿÿÿÿª9P]7j:P”½:P˜Ð'P® ­;Pº3«<ÿÿÿÿÿÿÿÿª<Pí7j=Q$½=Q(Ð(Q> ­>QJ3«?ÿÿÿÿÿÿÿÿª?Q}7j@Q´½@Q¸Ð)QÎ ­AQÚ3«BR tªBR?­CRÀ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jjjj½Ñ­­ªj½Г•data27Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½З™data28Var0.0 SDS variableSDSVar jjjj½Ñ­­ªj½Лdata29Var0.0 SDS variableSDSVar j"j"j"j"½"Ñ"­­ªj½П¡!""data30Var0.0 SDS variableSDSVar j%j%j%j%½%Ñ%­­ªj½У¥$%% data31Var0.0 SDS variableSDSVar j(j(j(j(½(Ñ(­­ªj½Ч©'((!data32Var0.0 SDS variableSDSVar j+j+j+j+½+Ñ+­­ªj½Ы­*++"data33Var0.0 SDS variableSDSVar j.j.j.j.½.Ñ.­­ªj½Я±-..#data34Var0.0 SDS variableSDSVar j1j1j1j1½1Ñ1­­ªj½гµ011$data35Var0.0 SDS variableSDSVar j4j4j4j4½4Ñ4­­ªj½з¹344%data36Var0.0 SDS variableSDSVar j7j7j7j7½7Ñ7­­ªj½л½677&data37Var0.0 SDS variableSDSVar j:j:j:j:½:Ñ:­­ªj½пÁ9::'data38Var0.0 SDS variableSDSVar j=j=j=j=½=Ñ=­­ªj½ÐÃÅ<==(data39Var0.0 SDS variableSDSVar j@j@j@j@½@Ñ@­­ªj½ÐÇÉ?@@)data40Var0.0This file was generated by the program manySDSs.c in hdf4/mfhdf/dumper/testfiles to test the flag -k in hdp dumpsdstttVALUES file_contentsAttr0.0y­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ª+-/13579;=?ACEGIKMOQSUWY[]_acegikmoqsuwy{}ƒ…‡‰‹‘“•—™›Ÿ¡£¥§©«­¯±³µ·¹»½¿ÁÃÅÇÉÌÏÒÕØÛÞáäçêíðóöùüÿ  #&),/258;>ABsds_empty_many.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-3.out0000644000000000000000000000557312421456623017346 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 no tagname tag ref index_by_tag offset length 0Linked Blocks Indicator 20 18 0 3054 24 1Linked Blocks Indicator 20 19 1 3094 258 2Linked Blocks Indicator 20 20 2 3402 1536 3Linked Blocks Indicator 20 21 3 4938 12 4Linked Blocks Indicator 20 22 4 4966 258 5Linked Blocks Indicator 20 23 5 5270 768 6Linked Blocks Indicator 20 24 6 6038 4 7Linked Blocks Indicator 20 25 7 6058 258 8Linked Blocks Indicator 20 26 8 6358 256 9 Version Descriptor 30 1 0 2410 92 10 Number type 106 33 0 6884 4 11 Number type 106 35 1 6980 4 12 Number type 106 37 2 7064 4 13SciData dimension record 701 33 0 6888 30 14SciData dimension record 701 35 1 6984 22 15SciData dimension record 701 37 2 7068 14 16 Numeric Data Group 720 2 0 6918 12 17 Numeric Data Group 720 3 1 7006 12 18 Numeric Data Group 720 4 2 7082 12 19 Vdata 1962 27 0 6622 53 20 Vdata 1962 29 1 6717 53 21 Vdata 1962 31 2 6804 51 22 Vdata Storage 1963 27 0 6614 8 23 Vdata Storage 1963 29 1 6705 12 24 Vdata Storage 1963 31 2 6800 4 25 Vgroup 1965 28 0 6675 30 26 Vgroup 1965 30 1 6770 30 27 Vgroup 1965 32 2 6855 29 28 Vgroup 1965 34 3 6930 50 29 Vgroup 1965 36 4 7018 46 30 Vgroup 1965 38 5 7094 42 31 Vgroup 1965 39 6 7136 54 32Special Scientific Data 17086 18 0 0 120 33Special Scientific Data 17086 21 1 0 60 34Special Scientific Data 17086 24 2 0 20 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/sds2_dim1_samename.hdf0000644000000000000000000000643212421456623021613 0ustar È j\¾ ƾ Þ« òª ö>­ 4#« Wª [<­ —!« ¸ª ¼<­ ø!« ÿÿÿÿÿÿÿÿª 7j P½ TÐ b ­ n3«ÿÿÿÿÿÿÿÿª ¡7j ؽ ÜÐ ò­ ;«ÿÿÿÿÿÿÿÿª =@j }½ Ð ­ Ÿ7­ ÖCÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006=ÌÌÍ@33@@@ÖffAffefghiValues Variable 2 DimVal0.1ª Variable 2Dim0.0ValuesfakeDim1 DimVal0.1ª fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª fakeDim2Dim0.0 SDS variableSDSVar jjj½Ñ­ªj½Ð  Variable 1Var0.0 SDS variableSDSVar jjj¾j½Ñ­­ª¾j½Ð  Variable 2Var0.0Coordinate variableCoordVar jj¾j½Ñ­ª¾j½Ð Variable 2Var0.0­­­­­­ sds2_dim1_samename.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-3.out0000644000000000000000000000343312421456623020033 0ustar File name: tdf24.hdf Data model: 24-bit raster image without palette. width=13; height=15 reference=3 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-16.out0000644000000000000000000000043112421456623017741 0ustar 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-5.out0000644000000000000000000000133512421456623017667 0ustar File name: tvset.hdf Vgroup:0 tag = 1965; reference = 2; name = Simple Vgroup; class = Test object; number of entries = 0; number of attributes = 0 Entries:- None. Vgroup:1 tag = 1965; reference = 3; name = Second Vgroup; class = Test object; number of entries = 3; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 2; number of entries = 0; name = Simple Vgroup; class = Test object number of attributes = 0 #1 (Unknown Tag) tag = 1000; reference = 12345; #2 (Unknown Tag) tag = 123; reference = 1234; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 vg1 -- vg0 -- Unknown Object -- Unknown Object libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-6.out0000644000000000000000000000274312421456623020051 0ustar File name: swf32.hdf Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 100.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-1.out0000644000000000000000000000110612421456623017330 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 Linked Blocks Indicator: (tag 20) Ref nos: 18 19 20 21 22 23 24 25 26 Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 33 35 37 SciData dimension record: (tag 701) Ref nos: 33 35 37 Numeric Data Group : (tag 720) Ref nos: 2 3 4 Vdata : (tag 1962) Ref nos: 27 29 31 Vdata Storage : (tag 1963) Ref nos: 27 29 31 Vgroup : (tag 1965) Ref nos: 28 30 32 34 36 38 39 Special Scientific Data: (tag 17086) Ref nos: 18 21 24 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/grtdfui162.hdf0000644000000000000000000000461712421456623020060 0ustar Ê\.&Ijo,s2‡.I,Ø2ì.ôI,=2Q­ H).hÈj 0, 4­ qNCSA HDF Version 4.0 Release 0, ?month? ?year?               j,.                                                                j,.                                                                               j,.  !!""##$$%%&&''(())**++,,--..//0011 j,. Image_array_5RI0.0­­RIG0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-9.out0000644000000000000000000001653712421456623017701 0ustar File name: grtdfui83.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 5 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 27 27 27 28 28 28 29 29 29 30 30 30 31 31 31 32 32 32 33 33 33 34 34 34 35 35 35 36 36 36 37 37 37 38 38 38 39 39 39 40 40 40 41 41 41 42 42 42 43 43 43 44 44 44 45 45 45 46 46 46 47 47 47 48 48 48 49 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #2 Index = 2 Type= 8-bit unsigned char width=13; height=15 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 Image Name = Raster Image #3 Index = 3 Type= 8-bit unsigned char width=13; height=15 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-11.out0000644000000000000000000000235312421456623017745 0ustar File name: tvattr.hdf Vgroup:0 tag = 1965; reference = 2; name = vgname0; class = ; number of entries = 0; number of attributes = 2 attr0: name=attname1 type=25 count=2 size=8 10032 10064 attr1: name=attname2 type=23 count=2 size=4 16 32 Entries:- None. Vgroup:1 tag = 1965; reference = 3; name = vgname1; class = ; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 4; number of records = 3; interlace = 0; fields = [fldname1, fldname2]; record size (in bytes) = 2; name = vsname1; class = ; total number of attributes = 6. Vgroup:2 tag = 1965; reference = 19; name = vgname2; class = vgclass2; number of entries = 1; number of attributes = 2 attr0: name=attname9 type=25 count=1 size=4 100 attr1: name=attname10 type=23 count=2 size=4 16 32 Entries:- #0 (Vdata) tag = 1962; reference = 13; number of records = 3; interlace = 0; fields = [fldname0, fldname1]; record size (in bytes) = 8; name = vsname0; class = vsclass0; total number of attributes = 5. Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 vg1 -- vd vg2 -- vd libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/sds1_dim1_samename.hdf0000644000000000000000000000606612421456623021615 0ustar È j\« ƪ Ê>­ #« +ª BA«ÿÿÿÿÿÿÿÿª ƒ7j º½ ¾Ð Ì ­ Ø7« ª "G« ÿÿÿÿÿÿÿÿª i@j ©½ ­Ð » ­ Ç7­ þ7ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006Values Variable 1 DimVal0.1ª Variable 1Dim0.0This is not a coord varVALUESAttribute SDS 1Attr0.0 SDS variableSDSVar jjj½Ñ­ªªj½Ð Variable 1Var0.0This is a coord varVALUESAttribute Dimension 1Attr0.0Coordinate variableCoordVar j j j ½ Ñ ­ªªj½Ð  Variable 1Var0.0­­­ sds1_dim1_samename.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-7.out0000644000000000000000000001022612421456623017341 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 no tagname tag ref index_by_tag 0Linked Blocks Indicator 20 18 0 1Linked Blocks Indicator 20 19 1 2Linked Blocks Indicator 20 20 2 3Linked Blocks Indicator 20 21 3 4Linked Blocks Indicator 20 22 4 5Linked Blocks Indicator 20 23 5 6Linked Blocks Indicator 20 24 6 7Linked Blocks Indicator 20 25 7 8Linked Blocks Indicator 20 26 8 9 Version Descriptor 30 1 0 10 Number type 106 33 0 11 Number type 106 35 1 12 Number type 106 37 2 13SciData dimension record 701 33 0 14SciData dimension record 701 35 1 15SciData dimension record 701 37 2 16 Numeric Data Group 720 2 0 Contents: (3 objects) Scientific Data : (tag= 702) ref=18 Number type : (tag= 106) ref=33 SciData dimension record : (tag= 701) ref=33 17 Numeric Data Group 720 3 1 Contents: (3 objects) Scientific Data : (tag= 702) ref=21 Number type : (tag= 106) ref=35 SciData dimension record : (tag= 701) ref=35 18 Numeric Data Group 720 4 2 Contents: (3 objects) Scientific Data : (tag= 702) ref=24 Number type : (tag= 106) ref=37 SciData dimension record : (tag= 701) ref=37 19 Vdata 1962 27 0 20 Vdata 1962 29 1 21 Vdata 1962 31 2 22 Vdata Storage 1963 27 0 23 Vdata Storage 1963 29 1 24 Vdata Storage 1963 31 2 25 Vgroup 1965 28 0 Contents: (1 objects) Vdata : (tag= 1962) ref=27 26 Vgroup 1965 30 1 Contents: (1 objects) Vdata : (tag= 1962) ref=29 27 Vgroup 1965 32 2 Contents: (1 objects) Vdata : (tag= 1962) ref=31 28 Vgroup 1965 34 3 Contents: (7 objects) Vgroup : (tag= 1965) ref=32 Vgroup : (tag= 1965) ref=28 Vgroup : (tag= 1965) ref=30 Scientific Data : (tag= 702) ref=18 Number type : (tag= 106) ref=33 SciData dimension record : (tag= 701) ref=33 Numeric Data Group : (tag= 720) ref=2 29 Vgroup 1965 36 4 Contents: (6 objects) Vgroup : (tag= 1965) ref=32 Vgroup : (tag= 1965) ref=30 Scientific Data : (tag= 702) ref=21 Number type : (tag= 106) ref=35 SciData dimension record : (tag= 701) ref=35 Numeric Data Group : (tag= 720) ref=3 30 Vgroup 1965 38 5 Contents: (5 objects) Vgroup : (tag= 1965) ref=32 Scientific Data : (tag= 702) ref=24 Number type : (tag= 106) ref=37 SciData dimension record : (tag= 701) ref=37 Numeric Data Group : (tag= 720) ref=4 31 Vgroup 1965 39 6 Contents: (6 objects) Vgroup : (tag= 1965) ref=28 Vgroup : (tag= 1965) ref=30 Vgroup : (tag= 1965) ref=32 Vgroup : (tag= 1965) ref=34 Vgroup : (tag= 1965) ref=36 Vgroup : (tag= 1965) ref=38 32Special Scientific Data 17086 18 0 33Special Scientific Data 17086 21 1 34Special Scientific Data 17086 24 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-8.out0000644000000000000000000000437612421456623017702 0ustar File name: tdata.hdf Vgroup:0 tag = 1965; reference = 28; name = nsamp; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 27; number of records = 2; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = nsamp; class = DimVal0.0; total number of attributes = 0. Vgroup:6 tag = 1965; reference = 39; name = tdata.hdf; class = CDF0.0; number of entries = 6; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 28; number of entries = 1; name = nsamp; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 30; number of entries = 1; name = bands; class = Dim0.0 number of attributes = 0 #2 (Vgroup) tag = 1965; reference = 32; number of entries = 1; name = rec; class = UDim0.0 number of attributes = 0 #3 (Vgroup) tag = 1965; reference = 34; number of entries = 7; name = a; class = Var0.0 number of attributes = 0 #4 (Vgroup) tag = 1965; reference = 36; number of entries = 6; name = b; class = Var0.0 number of attributes = 0 #5 (Vgroup) tag = 1965; reference = 38; number of entries = 5; name = c; class = Var0.0 number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vd vg2 -- vd vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg6 -- vg0 -- vd -- vg1 -- vd -- vg2 -- vd -- vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group -- vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group -- vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-6.out0000644000000000000000000000620112421456623020032 0ustar 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 4 4 4 7 7 7 6 6 6 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 7 7 7 4 4 4 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 6 6 6 5 5 5 4 4 4 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 1 1 1 2 2 2 3 3 3 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 0 0 0 3 3 3 2 2 2 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 3 3 3 0 0 0 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 15 15 15 14 14 14 13 13 13 12 12 12 11 11 11 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 12 12 12 15 15 15 14 14 14 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 15 15 15 12 12 12 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 14 14 14 13 13 13 12 12 12 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 8 8 8 11 11 11 10 10 10 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 11 11 11 8 8 8 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-3.out0000644000000000000000000000106412421456623017664 0ustar File name: tvset.hdf Vgroup:1 tag = 1965; reference = 3; name = Second Vgroup; class = Test object; number of entries = 3; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 2; number of entries = 0; name = Simple Vgroup; class = Test object number of attributes = 0 #1 (Unknown Tag) tag = 1000; reference = 12345; #2 (Unknown Tag) tag = 123; reference = 1234; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 vg1 -- vg0 -- Unknown Object -- Unknown Object libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-10.out0000644000000000000000000001701512421456623017741 0ustar File name: grtdfui84.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 5 ncomps = 4 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 5 5 6 6 6 6 7 7 7 7 8 8 8 8 9 9 9 9 10 10 10 10 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15 15 15 16 16 16 16 17 17 17 17 18 18 18 18 19 19 19 19 20 20 20 20 21 21 21 21 22 22 22 22 23 23 23 23 24 24 24 24 25 25 25 25 26 26 26 26 27 27 27 27 28 28 28 28 29 29 29 29 30 30 30 30 31 31 31 31 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 35 36 36 36 36 37 37 37 37 38 38 38 38 39 39 39 39 40 40 40 40 41 41 41 41 42 42 42 42 43 43 43 43 44 44 44 44 45 45 45 45 46 46 46 46 47 47 47 47 48 48 48 48 49 49 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #2 Index = 2 Type= 8-bit unsigned char width=13; height=15 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 Image Name = Raster Image #3 Index = 3 Type= 8-bit unsigned char width=13; height=15 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/grtdfi322.hdf0000644000000000000000000000321612421456623017663 0ustar ÆÊ\.&Ê&jD,HÈ\2`.hZjÂ,Æ2Ú.âZ,<2P.XZ,²NCSA HDF Version 4.0 Release 1, Jan. 19, 1996 j,.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZj,.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZj,.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZj2Œ­í).£­¦/«^ªf@jÕ,Ù« ª &B­h%,.         ##$$ % %!&!&"'"'(-(-).).*/*/+0+0,1,1,.Raster Image #0RI0.0< Value range RIATTR0.0N RIATTR0.0C,.ªRaster Image #0RI0.0 j,. Image_array_5RI0.0 image data  File contents RIATTR0.0N RIATTR0.0C­­­ª RIG0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-17.out0000644000000000000000000000337212421456623017755 0ustar File name: grtdfi322.hdf Vgroup:0 tag = 1965; reference = 5; name = Image_array_5; class = RI0.0; number of entries = 2; number of attributes = 0 Entries:- #0 (Image Dimensions) tag = 300; reference = 5; #1 (Raster Image Data) tag = 302; reference = 5; Vgroup:1 tag = 1965; reference = 6; name = RIG0.0; class = ; number of entries = 4; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 7; number of entries = 3; name = Raster Image #0; class = RI0.0 number of attributes = 0 #1 (Vgroup) tag = 1965;reference = 0; #2 (Vgroup) tag = 1965; reference = 5; number of entries = 2; name = Image_array_5; class = RI0.0 number of attributes = 0 #3 (Vdata) tag = 1962; reference = 9; number of records = 16; interlace = 0; fields = [File contents]; record size (in bytes) = 1; name = RIATTR0.0N; class = RIATTR0.0C; total number of attributes = 0. Vgroup:2 tag = 1965; reference = 7; name = Raster Image #0; class = RI0.0; number of entries = 3; number of attributes = 0 Entries:- #0 (Image Dimensions) tag = 300; reference = 2; #1 (Raster Image Data) tag = 302; reference = 2; #2 (Vdata) tag = 1962; reference = 8; number of records = 2; interlace = 0; fields = [Value range]; record size (in bytes) = 4; name = RIATTR0.0N; class = RIATTR0.0C; total number of attributes = 0. Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- Image Dimensions -- Raster Image Data vg1 -- vg2 -- Image Dimensions -- Raster Image Data -- vd -- -- vg0 -- Image Dimensions -- Raster Image Data -- vd vg2 -- Image Dimensions -- Raster Image Data -- vd libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumprig-2.out0000644000000000000000000000660612421456623020037 0ustar File name: tdf24.hdf Data model: 24-bit raster image without palette. width=13; height=15 reference=3 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 5 5 7 7 7 7 7 7 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 2 2 2 3 3 3 2 2 2 3 3 3 6 6 6 7 7 7 6 6 6 7 7 7 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 3 3 3 3 3 3 3 3 3 3 3 3 7 7 7 7 7 7 7 7 7 7 7 7 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 4 4 4 5 5 5 6 6 6 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 5 5 5 5 5 5 7 7 7 7 7 7 5 5 5 5 5 5 7 7 7 7 7 7 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 6 6 6 7 7 7 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 13 13 13 15 15 15 15 15 15 9 9 9 9 9 9 11 11 11 11 11 11 13 13 13 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 15 15 15 14 14 14 15 15 15 10 10 10 11 11 11 10 10 10 11 11 11 14 14 14 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 15 15 15 15 15 15 15 15 15 11 11 11 11 11 11 11 11 11 11 11 11 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 14 14 14 15 15 15 12 12 12 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 13 13 13 15 15 15 15 15 15 13 13 13 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 15 15 15 14 14 14 Data model: 24-bit raster image without palette. width=13; height=15 reference=4 *data is not compressed. Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 4 4 4 7 7 7 6 6 6 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 7 7 7 4 4 4 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 6 6 6 5 5 5 4 4 4 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 1 1 1 2 2 2 3 3 3 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 0 0 0 3 3 3 2 2 2 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 3 3 3 0 0 0 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3 2 2 2 1 1 1 0 0 0 15 15 15 14 14 14 13 13 13 12 12 12 11 11 11 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 9 9 9 8 8 8 11 11 11 10 10 10 13 13 13 12 12 12 15 15 15 14 14 14 1 1 1 0 0 0 3 3 3 2 2 2 5 5 5 10 10 10 11 11 11 8 8 8 9 9 9 14 14 14 15 15 15 12 12 12 13 13 13 2 2 2 3 3 3 0 0 0 1 1 1 6 6 6 11 11 11 10 10 10 9 9 9 8 8 8 15 15 15 14 14 14 13 13 13 12 12 12 3 3 3 2 2 2 1 1 1 0 0 0 7 7 7 12 12 12 13 13 13 14 14 14 15 15 15 8 8 8 9 9 9 10 10 10 11 11 11 4 4 4 5 5 5 6 6 6 7 7 7 0 0 0 13 13 13 12 12 12 15 15 15 14 14 14 9 9 9 8 8 8 11 11 11 10 10 10 5 5 5 4 4 4 7 7 7 6 6 6 1 1 1 14 14 14 15 15 15 12 12 12 13 13 13 10 10 10 11 11 11 8 8 8 9 9 9 6 6 6 7 7 7 4 4 4 5 5 5 2 2 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/vslongname.hdf0000644000000000000000000000117712421456623020332 0ustar Ê\«ÿÿÿÿÿÿÿÿ«ÿÿÿÿÿÿÿÿª&¬ªÒ¬ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿHDF Version 4.2 Release 5-post0, February 25, 2010field 1@Vdata 1 91123456789212345678931234567894123456789512345678961234@Long Name Vdatas789212345678931234567894123456789512345678961234field 1@Vdata 2 91123456789212345678931234567894123456789512345678961234@Long Name Vdatas789212345678931234567894123456789512345678961234libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvd-14.out0000644000000000000000000000322512421456623017744 0ustar File name: Tables.hdf Vdata: 0 tag = 1962; reference = 2; number of records = 5; interlace = FULL_INTERLACE (0); fields = [Column A, Column B, Column C, Column D]; record size (in bytes) = 13; name = Table AR with Attributes in External File; class = Multi-Type, Multi-Entries per Cell, Store By Row in External Fil; number of attributes = 1 attr0: name=HDF4 Attribute Table Eight type=4 count=2 size=2 h i - field index 0: [Column A], type=4, order=2 number of attributes = 0 - field index 1: [Column B], type=23, order=1 number of attributes = 0 - field index 2: [Column C], type=16389, order=2 number of attributes = 1 attr0: name=HDF4 Attribute Column C type=4 count=3 size=3 b y e - field index 3: [Column D], type=4, order=1 number of attributes = 0 Loc. Data 0 A B 1 0.010000 0.100000 a ; B C 2 0.020000 0.200000 b ; 2 C D 3 0.030000 0.300000 c ; D E 4 0.040000 0.400000 d ; 4 E F 5 0.050000 0.500000 e ; Vdata: 1 tag = 1962; reference = 3; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 2; name = HDF4 Attribute Table Eight; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=4, order=2 number of attributes = 0 Loc. Data 0 h i ; Vdata: 2 tag = 1962; reference = 4; number of records = 1; interlace = FULL_INTERLACE (0); fields = [VALUES]; record size (in bytes) = 3; name = HDF4 Attribute Column C; class = Attr0.0; number of attributes = 0 - field index 0: [VALUES], type=4, order=3 number of attributes = 0 Loc. Data 0 b y e ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-17.out0000644000000000000000000001532412421456623020132 0ustar File name: sds_empty_many.hdf File attributes: Attr0: Name = file_contents Type = 8-bit signed char Count= 116 Value = This file was generated by the program ma nySDSs.c in hdf4/mfhdf/dumper/testfiles t o test the flag -k in hdp dumpsds\000 Variable Name = data40 Index = 39 Type= 16-bit signed integer Ref. = 41 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim78 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim79 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data37 Index = 36 Type= 16-bit signed integer Ref. = 38 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim72 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim73 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data34 Index = 33 Type= 16-bit signed integer Ref. = 35 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim66 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim67 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data27 Index = 26 Type= 16-bit signed integer Ref. = 28 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim52 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim53 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data35 Index = 34 Type= 16-bit signed integer Ref. = 36 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim68 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim69 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data36 Index = 35 Type= 16-bit signed integer Ref. = 37 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim70 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim71 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data1 Index = 0 Type= 16-bit signed integer Ref. = 2 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim0 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim1 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data2 Index = 1 Type= 16-bit signed integer Ref. = 3 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim2 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim3 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data6 Index = 5 Type= 16-bit signed integer Ref. = 7 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim10 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim11 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data9 Index = 8 Type= 16-bit signed integer Ref. = 10 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim16 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim17 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data4 Index = 3 Type= 16-bit signed integer Ref. = 5 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim6 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim7 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data3 Index = 2 Type= 16-bit signed integer Ref. = 4 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim4 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim5 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data15 Index = 14 Type= 16-bit signed integer Ref. = 16 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim28 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim29 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data16 Index = 15 Type= 16-bit signed integer Ref. = 17 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim30 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim31 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data14 Index = 13 Type= 16-bit signed integer Ref. = 15 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim26 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim27 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data24 Index = 23 Type= 16-bit signed integer Ref. = 25 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim46 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim47 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data23 Index = 22 Type= 16-bit signed integer Ref. = 24 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim44 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim45 Size = 10 Scale Type = number-type not set Number of attributes = 0 Variable Name = data22 Index = 21 Type= 16-bit signed integer Ref. = 23 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim42 Size = UNLIMITED (currently 0) Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim43 Size = 10 Scale Type = number-type not set Number of attributes = 0 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-10.out0000644000000000000000000000231012421456623017735 0ustar File name: tdata.hdf Vgroup:0 tag = 1965; reference = 28; name = nsamp; class = Dim0.0; number of entries = 1; number of attributes = 0 Vgroup:1 tag = 1965; reference = 30; name = bands; class = Dim0.0; number of entries = 1; number of attributes = 0 Vgroup:3 tag = 1965; reference = 34; name = a; class = Var0.0; number of entries = 7; number of attributes = 0 Vgroup:4 tag = 1965; reference = 36; name = b; class = Var0.0; number of entries = 6; number of attributes = 0 Vgroup:5 tag = 1965; reference = 38; name = c; class = Var0.0; number of entries = 5; number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- vd vg1 -- vd vg2 -- vd vg3 -- vg2 -- vd -- vg0 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg4 -- vg2 -- vd -- vg1 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group vg5 -- vg2 -- vd -- Scientific Data -- Number type -- SciData dimension record -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-2.out0000644000000000000000000000101412421456623020033 0ustar File name: swf32.hdf Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Value = Column Attr1: Name = units Type = 8-bit signed char Count= 2 Value = Cm Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 1.000000 2.000000 3.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-13.out0000644000000000000000000001144412421456623017744 0ustar File name: Image_with_Palette.hdf Raster Image Ref. = 2 Palette: 3 components; 256 entries Palette Data: 0 0 8 1 0 8 2 0 8 3 0 8 4 0 8 5 0 8 6 0 8 7 0 8 8 0 8 9 0 8 10 0 8 11 0 8 12 0 8 13 0 8 14 0 8 15 0 8 16 0 8 17 0 8 18 0 8 19 0 8 20 0 8 21 0 8 22 0 8 23 0 8 24 0 8 25 0 8 26 0 8 27 0 8 28 0 8 29 0 8 30 0 8 31 0 8 32 0 8 33 0 8 34 0 8 35 0 8 36 0 8 37 0 8 38 0 8 39 0 8 40 0 8 41 0 8 42 0 8 43 0 8 44 0 8 45 0 8 46 0 8 47 0 8 48 0 8 49 0 8 50 0 8 51 0 8 52 0 8 53 0 8 54 0 8 55 0 8 56 0 8 57 0 8 58 0 8 59 0 8 60 0 8 61 0 8 62 0 8 63 0 8 64 0 8 65 0 8 66 0 8 67 0 8 68 0 8 69 0 8 70 0 8 71 0 8 72 0 8 73 0 8 74 0 8 75 0 8 76 0 8 77 0 8 78 0 8 79 0 8 80 0 8 81 0 8 82 0 8 83 0 8 84 0 8 85 0 8 86 0 8 87 0 8 88 0 8 89 0 8 90 0 8 91 0 8 92 0 8 93 0 8 94 0 8 95 0 8 96 0 8 97 0 8 98 0 8 99 0 8 100 0 8 101 0 8 102 0 8 103 0 8 104 0 8 105 0 8 106 0 8 107 0 8 108 0 8 109 0 8 110 0 8 111 0 8 112 0 8 113 0 8 114 0 8 115 0 8 116 0 8 117 0 8 118 0 8 119 0 8 120 0 8 121 0 8 122 0 8 123 0 8 124 0 8 125 0 8 126 0 8 127 0 8 128 0 8 129 0 8 130 0 8 131 0 8 132 0 8 133 0 8 134 0 8 135 0 8 136 0 8 137 0 8 138 0 8 139 0 8 140 0 8 141 0 8 142 0 8 143 0 8 144 0 8 145 0 8 146 0 8 147 0 8 148 0 8 149 0 8 150 0 8 151 0 8 152 0 8 153 0 8 154 0 8 155 0 8 156 0 8 157 0 8 158 0 8 159 0 8 160 0 8 161 0 8 162 0 8 163 0 8 164 0 8 165 0 8 166 0 8 167 0 8 168 0 8 169 0 8 170 0 8 171 0 8 172 0 8 173 0 8 174 0 8 175 0 8 176 0 8 177 0 8 178 0 8 179 0 8 180 0 8 181 0 8 182 0 8 183 0 8 184 0 8 185 0 8 186 0 8 187 0 8 188 0 8 189 0 8 190 0 8 191 0 8 192 0 8 193 0 8 194 0 8 195 0 8 196 0 8 197 0 8 198 0 8 199 0 8 200 0 8 201 0 8 202 0 8 203 0 8 204 0 8 205 0 8 206 0 8 207 0 8 208 0 8 209 0 8 210 0 8 211 0 8 212 0 8 213 0 8 214 0 8 215 0 8 216 0 8 217 0 8 218 0 8 219 0 8 220 0 8 221 0 8 222 0 8 223 0 8 224 0 8 225 0 8 226 0 8 227 0 8 228 0 8 229 0 8 230 0 8 231 0 8 232 0 8 233 0 8 234 0 8 235 0 8 236 0 8 237 0 8 238 0 8 239 0 8 240 0 8 241 0 8 242 0 8 243 0 8 244 0 8 245 0 8 246 0 8 247 0 8 248 0 8 249 0 8 250 0 8 251 0 8 252 0 8 253 0 8 254 0 8 255 0 8 Raster Image Ref. = 3 Palette: 3 components; 256 entries Palette Data: 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 2 4 8 Raster Image Ref. = 4 No palette data libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-13.out0000644000000000000000000000065512421456623017752 0ustar File name: VGlongname.hdf Vgroup:0 tag = 1965; reference = 3; name = SD Vgroup - this vgroup has an sds as a member and it is actually meant to test long vgroup name; class = Common Vgroups; number of entries = 1; number of attributes = 0 Entries:- #0 (Numeric Data Group) tag = 720; reference = 2; Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-10.out0000644000000000000000000000527612421456623020130 0ustar File name: swf32_fileattr.hdf File attributes: Attr0: Name = File purpose Type = 8-bit signed char Count= 37 Attr1: Name = File contents Type = 8-bit signed char Count= 14 Attr2: Name = Test clean format Type = 8-bit signed char Count= 65 Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 100.000000 Dimension Variable Name = fakeDim1 Index = 1 Scale Type= 32-bit floating point Ref. = 4 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim1 Size = 3 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Line Attr1: Name = units Type = 8-bit signed char Count= 4 Value = Inch Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int16 Data : 0.000000 10.000000 20.000000 Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Value = Column Attr1: Name = units Type = 8-bit signed char Count= 2 Value = Cm Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Data : 0.000000 1.000000 2.000000 3.000000 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 Data : 0.000000 1.000000 2.000000 3.000000 10.000000 11.000000 12.000000 13.000000 20.000000 21.000000 22.000000 23.000000 100.000000 101.000000 102.000000 103.000000 110.000000 111.000000 112.000000 113.000000 120.000000 121.000000 122.000000 123.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpvg-12.out0000644000000000000000000000410112421456623017737 0ustar File name: VGlongname.hdf Vgroup:0 tag = 1965; reference = 3; name = SD Vgroup - this vgroup has an sds as a member and it is actually meant to test long vgroup name; class = Common Vgroups; number of entries = 1; number of attributes = 0 Entries:- #0 (Numeric Data Group) tag = 720; reference = 2; Vgroup:1 tag = 1965; reference = 5; name = fakeDim0; class = Dim0.0; number of entries = 1; number of attributes = 0 Entries:- #0 (Vdata) tag = 1962; reference = 4; number of records = 1; interlace = 0; fields = [Values]; record size (in bytes) = 4; name = fakeDim0; class = DimVal0.1; total number of attributes = 0. Vgroup:2 tag = 1965; reference = 7; name = SDS belongs to VG_LONGNAME, which has a very long name that is used to test the new feature of variable length vgroup name; class = Var0.0; number of entries = 4; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 5; number of entries = 1; name = fakeDim0; class = Dim0.0 number of attributes = 0 #1 (Number type) tag = 106; reference = 6; #2 (SciData dimension record) tag = 701; reference = 6; #3 (Numeric Data Group) tag = 720; reference = 2; Vgroup:3 tag = 1965; reference = 8; name = VGlongname.hdf; class = CDF0.0; number of entries = 2; number of attributes = 0 Entries:- #0 (Vgroup) tag = 1965; reference = 5; number of entries = 1; name = fakeDim0; class = Dim0.0 number of attributes = 0 #1 (Vgroup) tag = 1965; reference = 7; number of entries = 4; name = SDS belongs to VG_LONGNAME, which has a very long name that is used to test the new feature of variable length vgroup name; class = Var0.0 number of attributes = 0 Graphical representation of the file:- (vg#: vgroup; vd: vdata) vg0 -- Numeric Data Group vg1 -- vd vg2 -- vg1 -- vd -- Number type -- SciData dimension record -- Numeric Data Group vg3 -- vg1 -- vd -- vg2 -- vg1 -- vd -- Number type -- SciData dimension record -- Numeric Data Group libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-7.out0000644000000000000000000000000012421456623017651 0ustar libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/grtdfui84.hdf0000644000000000000000000000461712421456623020003 0ustar Ê\.&Ijo,s2‡.I,Ø2ì.ôI,=2Q­ H).hÈj 0, 4­ qNCSA HDF Version 4.0 Release 0, ?month? ?year?               j,.                                                                j,.                                                                               j,.  !!!!""""####$$$$%%%%&&&&''''(((())))****++++,,,,----....////00001111 j,. Image_array_5RI0.0­­RIG0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/swi16.hdf0000644000000000000000000000075012421456623017126 0ustar Ê\¾&0jV½ZÀxÁŠÂš¿­ÃÂÜÆÐÈ NCSA HDF Version 4.0 Release 0, ?month? ?year? defgnopqxyz{jjjjTimeLineColumnSecondInchCmInt32Int16Int32d {ÿÿ¾½ÀÁ¿ÃÜlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/tvset.hdf0000644000000000000000000022422512421456623017327 0ustar dUº\{Ò ­ '­G3«ÓzªÓ F«ÔP ªÔ pM«Õ ½ ªÕ ÝJ«Ö'´ªÖÛp«×Kª×L-«ØyªØz-«Ù§ªÙ¨-«ÚÕªÚÖ-«ÛªÛ-«Ü1ªÜ2-«Ý_ªÝ`-«ÞªÞŽ-«ß»ªß¼-«àéªàê-«áªá.«âFªâG.«ãuªãv.«ä¤ªä¥.«åÓªåÔ.«æªæ.«ç1ªç2.«è`ªèa.«éªé.«ê¾ªê¿.«ëíªëî.«ìªì.«íKªíL.«îzªî{.«ï©ªïª.«ðتðÙ.«ñªñ.«ò6ªò7.«óeªóf.«ô”ªô•.«õêõÄ.«öòªöó.«÷!ª÷".«øPªøQ.«ùªù€.«ú®ªú¯.«ûݪûÞ.«ü ªü .«ý;ªý<.«þjªþk.«ÿ™ªÿš.«ÈªÉ.«÷ªø.«&ª'.NCSA HDF Version 4.0 Release 0, ?month? ?year? Simple Vgroup Test object«­è{09Ò Second Vgroup Test objectz?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”B–B˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆdFIELD_name_HERE Float Vdata Test objectÞ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇdDIFFERENT_FIELD_NAME Integer Vdata Test object@@€@ÀAA A@A`A€A A  A° AÀ AÐ AàAðBBBBB B(B0B8B@BHBPBXB`BhBpBxB€ B„!Bˆ"BŒ#B$B”%B˜&Bœ'B (B¤)B¨*B¬+B°,B´-B¸.B¼/BÀ0BÄ1BÈ2BÌ3BÐ4BÔ5BØ6BÜ7Bà8Bä9Bè:Bì;BðBü?C@CACBCCCDC EC FCGCHCICJCKCLCMCNCOC PC"QC$RC&SC(TC*UC,VC.WC0XC2YC4ZC6[C8\C:]C<^C>_C@`CBaCDbCFcdAB Mixed VdataNo class specifiedabAxcdA€efA„gh Aˆij AŒklAmnA”opA˜qrAœstA    STATION_NAMEVALUESFLOATSMulti-Order VdataNo class specified¼VA VdataLoop-0NVA VdataLoop-1NVA VdataLoop-2NVA VdataLoop-3NVA VdataLoop-4NVA VdataLoop-5êVA VdataLoop-6VA VdataLoop-7VA VdataLoop-8üVA VdataLoop-9VA VdataLoop-10\VA VdataLoop-11ÂVA VdataLoop-12ËVA VdataLoop-13úVA VdataLoop-14*VA VdataLoop-15YVA VdataLoop-16ˆVA VdataLoop-17·VA VdataLoop-18æVA VdataLoop-19VA VdataLoop-20DVA VdataLoop-21sVA VdataLoop-22…VA VdataLoop-23´VA VdataLoop-24ãVA VdataLoop-25VA VdataLoop-26BVA VdataLoop-27qVA VdataLoop-28 VA VdataLoop-29ÏVA VdataLoop-30þVA VdataLoop-31-VA VdataLoop-32ÚVA VdataLoop-33tVA VdataLoop-34>VA VdataLoop-35¸VA VdataLoop-36bVA VdataLoop-37¼VA VdataLoop-38FVA VdataLoop-39€VA VdataLoop-40êVA VdataLoop-41VA VdataLoop-42NVA VdataLoop-43Hd%9« ª .«:ª;.«iªj.«˜ª™.«ÇªÈ.«öª÷.« %ª &.« Tª U.« ƒª „.« ²ª ³.« ᪠â.«ª.«?ª@.«nªo.«ªž.«ÌªÍ.«ûªü.«*ª+.«YªZ.«ˆª‰.«·ª¸.«æªç.« ª .« Dª E.« sª t.« ¢ª £.« Ѫ Ò.«!ª!.«!/ª!0.« !^ª !_.«!!ª!!Ž.«"!¼ª"!½.«#!ëª#!ì.«$"ª$".«%"Iª%"J.«&"xª&"y.«'"§ª'"¨.«("Öª("×.«)#ª)#.«*#4ª*#5.«+#cª+#d.«,#’ª,#“.«-#Áª-#Â.«.#ðª.#ñ.«/$ª/$ .«0$Nª0$O.«1$}ª1$~.«2$¬ª2$­.«3$Ûª3$Ü.«4% ª4% .VA VdataLoop-44üVA VdataLoop-45ŠVA VdataLoop-46HVA VdataLoop-47rVA VdataLoop-48LVA VdataLoop-49VVA VdataLoop-50VA VdataLoop-51úVA VdataLoop-52”VA VdataLoop-53^VA VdataLoop-54ØVA VdataLoop-55‚VA VdataLoop-56ÜVA VdataLoop-57fVA VdataLoop-58 VA VdataLoop-59 VA VdataLoop-60$VA VdataLoop-61nVA VdataLoop-62hVA VdataLoop-63’VA VdataLoop-64lVA VdataLoop-65vVA VdataLoop-660VA VdataLoop-67VA VdataLoop-68´VA VdataLoop-69~VA VdataLoop-70øVA VdataLoop-71¢VA VdataLoop-72üVA VdataLoop-73†VA VdataLoop-74ÀVA VdataLoop-75*VA VdataLoop-76DVA VdataLoop-77ŽVA VdataLoop-78ˆVA VdataLoop-79²VA VdataLoop-80ŒVA VdataLoop-81–VA VdataLoop-82PVA VdataLoop-83:VA VdataLoop-84ÔVA VdataLoop-85žVA VdataLoop-86VA VdataLoop-87ÂVA VdataLoop-88VA VdataLoop-89¦VA VdataLoop-90àVA VdataLoop-91JVA VdataLoop-92dVA VdataLoop-93®d3I«5)ïª5)ð.«6*ª6*.«7*Mª7*N.«8*|ª8*}.«9*«ª9*¬.«:*Úª:*Û.«;+ ª;+ /«<+9ª<+:/«=+iª=+j/«>+™ª>+š/«?+ɪ?+Ê/«@+ùª@+ú/«A,)ªA,*/«B,YªB,Z/«C,‰ªC,Š/«D,¹ªD,º/«E,éªE,ê/«F-ªF-/«G-IªG-J/«H-yªH-z/«I-©ªI-ª/«J-ÙªJ-Ú/«K. ªK. /«L.9ªL.:/«M.iªM.j/«N.™ªN.š/«O.ɪO.Ê/«P.ùªP.ú/«Q/)ªQ/*/«R/YªR/Z/«S/‰ªS/Š/«T/¹ªT/º/«U/éªU/ê/«V0ªV0/«W0IªW0J/«X0yªX0z/«Y0©ªY0ª/«Z0ÙªZ0Ú/«[1 ª[1 /«\19ª\1:/«]1iª]1j/«^1™ª^1š/«_1ɪ_1Ê/«`1ùª`1ú/«a2)ªa2*/«b2Yªb2Z/«c2‰ªc2Š/«d2¹ªd2º/«e2éªe2ê/«f3ªf3/VA VdataLoop-94VA VdataLoop-95\VA VdataLoop-96æVA VdataLoop-97 VA VdataLoop-98ŠVA VdataLoop-99¤VA VdataLoop-100®VA VdataLoop-101fVA VdataLoop-102}VA VdataLoop-103®VA VdataLoop-104®VA VdataLoop-105®VA VdataLoop-106®VA VdataLoop-107®VA VdataLoop-108®VA VdataLoop-109®VA VdataLoop-110®VA VdataLoop-111®VA VdataLoop-112®VA VdataLoop-113®VA VdataLoop-114®VA VdataLoop-115®VA VdataLoop-116®VA VdataLoop-117®VA VdataLoop-118®VA VdataLoop-119®VA VdataLoop-120®VA VdataLoop-121®VA VdataLoop-122®VA VdataLoop-123®VA VdataLoop-124®VA VdataLoop-125®VA VdataLoop-126®VA VdataLoop-127®VA VdataLoop-128®VA VdataLoop-129®VA VdataLoop-130®VA VdataLoop-131®VA VdataLoop-132®VA VdataLoop-133®VA VdataLoop-134®VA VdataLoop-135®VA VdataLoop-136®VA VdataLoop-137®VA VdataLoop-138®VA VdataLoop-139®VA VdataLoop-140®VA VdataLoop-141®VA VdataLoop-142®VA VdataLoop-143®dA_«g7ÿªg8/«h8/ªh80/«i8_ªi8`/«j8ªj8/«k8¿ªk8À/«l8ïªl8ð/«m9ªm9 /«n9Oªn9P/«o9ªo9€/«p9¯ªp9°/«q9ߪq9à/«r:ªr:/«s:?ªs:@/«t:oªt:p/«u:Ÿªu: /«v:Ϫv:Ð/«w:ÿªw;/«x;/ªx;0/«y;_ªy;`/«z;ªz;/«{;¿ª{;À/«|;ïª|;ð/«}<ª}< /«~/«ˆ>/ªˆ>0/«‰>_ª‰>`/«Š>ªŠ>/«‹>¿ª‹>À/«Œ>戴>ð/«?ª? /«Ž?OªŽ?P/«?ª?€/«?¯ª?°/«‘?ߪ‘?à/«’@ª’@/«“@?ª“@@/«”@oª”@p/«•@Ÿª•@ /«–@Ϫ–@Ð/«—@ÿª—A/«˜A/ª˜A0/VA VdataLoop-144»VA VdataLoop-145®VA VdataLoop-146JVA VdataLoop-147®VA VdataLoop-148|VA VdataLoop-149®VA VdataLoop-150hVA VdataLoop-151®VA VdataLoop-152:VA VdataLoop-153®VA VdataLoop-154¤VA VdataLoop-155®VA VdataLoop-156®VA VdataLoop-157®VA VdataLoop-158mVA VdataLoop-159®VA VdataLoop-160VA VdataLoop-161®VA VdataLoop-162)VA VdataLoop-163®VA VdataLoop-164vVA VdataLoop-165®VA VdataLoop-166ÅVA VdataLoop-167®VA VdataLoop-168 VA VdataLoop-169®VA VdataLoop-170ÌVA VdataLoop-171®VA VdataLoop-172‘VA VdataLoop-173®VA VdataLoop-174RVA VdataLoop-175®VA VdataLoop-176­VA VdataLoop-177®VA VdataLoop-178qVA VdataLoop-179®VA VdataLoop-180VA VdataLoop-181®VA VdataLoop-182VA VdataLoop-183®VA VdataLoop-184÷VA VdataLoop-185®VA VdataLoop-186`VA VdataLoop-187®VA VdataLoop-188VA VdataLoop-189®VA VdataLoop-190„VA VdataLoop-191®VA VdataLoop-192‚VA VdataLoop-193®dOu«™Fª™F/«šFEªšFF/«›Fuª›Fv/«œF¥ªœF¦/«FÕªFÖ/«žGªžG/«ŸG5ªŸG6/« Geª Gf/«¡G•ª¡G–/«¢GŪ¢GÆ/«£Gõª£Gö/«¤H%ª¤H&/«¥HUª¥HV/«¦H…ª¦H†/«§Hµª§H¶/«¨H媨Hæ/«©Iª©I/«ªIEªªIF/««Iuª«Iv/«¬I¥ª¬I¦/«­IÕª­IÖ/«®Jª®J/«¯J5ª¯J6/«°Jeª°Jf/«±J•ª±J–/«²JŪ²JÆ/«³Jõª³Jö/«´K%ª´K&/«µKUªµKV/«¶K…ª¶K†/«·Kµª·K¶/«¸K媸Kæ/«¹Lª¹L/«ºLEªºLF/«»Luª»Lv/«¼L¥ª¼L¦/«½LÕª½LÖ/«¾Mª¾M/«¿M5ª¿M6/«ÀMeªÀMf/«ÁM•ªÁM–/«ÂMŪÂMÆ/«ÃMõªÃMö/«ÄN%ªÄN&/«ÅNUªÅNV/«ÆN…ªÆN†/«ÇNµªÇN¶/«ÈNåªÈNæ/«ÉOªÉO/«ÊOEªÊOF/VA VdataLoop-194®VA VdataLoop-195VA VdataLoop-196®VA VdataLoop-197ÍVA VdataLoop-198®VA VdataLoop-199âVA VdataLoop-200®VA VdataLoop-201mVA VdataLoop-202®VA VdataLoop-203†VA VdataLoop-204®VA VdataLoop-205þVA VdataLoop-206®VA VdataLoop-207ÁVA VdataLoop-208®VA VdataLoop-209¡VA VdataLoop-210®VA VdataLoop-211ÓVA VdataLoop-212®VA VdataLoop-2132VA VdataLoop-214®VA VdataLoop-215|VA VdataLoop-216®VA VdataLoop-217'VA VdataLoop-218®VA VdataLoop-219lVA VdataLoop-220®VA VdataLoop-221~VA VdataLoop-222®VA VdataLoop-223&VA VdataLoop-224®VA VdataLoop-225ÚVA VdataLoop-226®VA VdataLoop-227ÁVA VdataLoop-228®VA VdataLoop-229ÝVA VdataLoop-230®VA VdataLoop-231@VA VdataLoop-232®VA VdataLoop-233VA VdataLoop-234®VA VdataLoop-235‘VA VdataLoop-236®VA VdataLoop-237’VA VdataLoop-238®VA VdataLoop-239ÁVA VdataLoop-240®VA VdataLoop-241‘VA VdataLoop-242®VA VdataLoop-243êd]‹«ËT+ªËT,/«ÌT[ªÌT\/«ÍT‹ªÍTŒ/«ÎT»ªÎT¼/«ÏTëªÏTì/«ÐUªÐU/«ÑUKªÑUL/«ÒU{ªÒU|/«ÓU«ªÓU¬/«ÔUÛªÔUÜ/«ÕV ªÕV /«ÖV;ªÖV</«×Vkª×Vl/«ØV›ªØVœ/«ÙV˪ÙVÌ/«ÚVûªÚVü/«ÛW+ªÛW,/«ÜW[ªÜW\/«ÝW‹ªÝWŒ/«ÞW»ªÞW¼/«ßWëªßWì/«àXªàX/«áXKªáXL/«âX{ªâX|/«ãX«ªãX¬/«äXÛªäXÜ/«åY ªåY /«æY;ªæY</«çYkªçYl/«èY›ªèYœ/«éY˪éYÌ/«êYûªêYü/«ëZ+ªëZ,/«ìZ[ªìZ\/«íZ‹ªíZŒ/«îZ»ªîZ¼/«ïZëªïZì/«ð[ªð[/«ñ[Kªñ[L/«ò[{ªò[|/«ó[«ªó[¬/«ô[Ûªô[Ü/«õ\ ªõ\ /«ö\;ªö\</«÷\kª÷\l/«ø\›ªø\œ/«ù\˪ù\Ì/«ú\ûªú\ü/«û]+ªû],/«ü][ªü]\/VA VdataLoop-244ÖVA VdataLoop-245®VA VdataLoop-246°VA VdataLoop-247®VA VdataLoop-248ßVA VdataLoop-249®VA VdataLoop-250AVA VdataLoop-251®VA VdataLoop-252¸VA VdataLoop-253®VA VdataLoop-2547VA VdataLoop-255®VA VdataLoop-256ÙVA VdataLoop-257®VA VdataLoop-258VA VdataLoop-259®VA VdataLoop-260ªVA VdataLoop-261®VA VdataLoop-262ZVA VdataLoop-263®VA VdataLoop-264DVA VdataLoop-265®VA VdataLoop-266‘VA VdataLoop-267®VA VdataLoop-268VA VdataLoop-269®VA VdataLoop-270“VA VdataLoop-271®VA VdataLoop-272rVA VdataLoop-273®VA VdataLoop-274³VA VdataLoop-275®VA VdataLoop-276wVA VdataLoop-277®VA VdataLoop-278èVA VdataLoop-279®VA VdataLoop-280VA VdataLoop-281®VA VdataLoop-282ZVA VdataLoop-283®VA VdataLoop-284pVA VdataLoop-285®VA VdataLoop-286{VA VdataLoop-287®VA VdataLoop-288õVA VdataLoop-289®VA VdataLoop-290»VA VdataLoop-291®VA VdataLoop-292ÔVA VdataLoop-293®dk¡«ýbAªýbB/«þbqªþbr/«ÿb¡ªÿb¢/«bѪbÒ/«cªc/«c1ªc2/«caªcb/«c‘ªc’/«cÁªcÂ/«cñªcò/«d!ªd"/«dQªdR/« dª d‚/« d±ª d²/« d᪠dâ/« eª e/« eAª eB/«eqªer/«e¡ªe¢/«eѪeÒ/«fªf/«f1ªf2/«faªfb/«f‘ªf’/«fÁªfÂ/«fñªfò/«g!ªg"/«gQªgR/«gªg‚/«g±ªg²/«gáªgâ/«hªh/«hAªhB/«hqªhr/«h¡ªh¢/« hѪ hÒ/«!iª!i/«"i1ª"i2/«#iaª#ib/«$i‘ª$i’/«%iÁª%iÂ/«&iñª&iò/«'j!ª'j"/«(jQª(jR/«)jª)j‚/«*j±ª*j²/«+jáª+jâ/«,kª,k/«-kAª-kB/«.kqª.kr/VA VdataLoop-294®VA VdataLoop-295ÔVA VdataLoop-296®VA VdataLoop-297ÍVA VdataLoop-298®VA VdataLoop-2999VA VdataLoop-300®VA VdataLoop-301VA VdataLoop-302®VA VdataLoop-303üVA VdataLoop-304®VA VdataLoop-305VA VdataLoop-306®VA VdataLoop-307#VA VdataLoop-308®VA VdataLoop-309™VA VdataLoop-310®VA VdataLoop-311DVA VdataLoop-312®VA VdataLoop-313#VA VdataLoop-314®VA VdataLoop-315‰VA VdataLoop-316®VA VdataLoop-317uVA VdataLoop-318®VA VdataLoop-319½VA VdataLoop-320®VA VdataLoop-321VA VdataLoop-322®VA VdataLoop-323ŠVA VdataLoop-324®VA VdataLoop-325«VA VdataLoop-326®VA VdataLoop-327VA VdataLoop-328®VA VdataLoop-329ÓVA VdataLoop-330®VA VdataLoop-331KVA VdataLoop-332®VA VdataLoop-333×VA VdataLoop-334®VA VdataLoop-335×VA VdataLoop-336®VA VdataLoop-337HVA VdataLoop-338®VA VdataLoop-339ÄVA VdataLoop-340®VA VdataLoop-341$VA VdataLoop-342®VA VdataLoop-343¡dy·«/pWª/pX/«0p‡ª0pˆ/«1p·ª1p¸/«2pçª2pè/«3qª3q/«4qGª4qH/«5qwª5qx/«6q§ª6q¨/«7qת7qØ/«8rª8r/«9r7ª9r8/«:rgª:rh/«;r—ª;r˜/«<rǪ<rÈ/«=r÷ª=rø/«>s'ª>s(/«?sWª?sX/«@s‡ª@sˆ/«As·ªAs¸/«BsçªBsè/«CtªCt/«DtGªDtH/«EtwªEtx/«Ft§ªFt¨/«GtתGtØ/«HuªHu/«Iu7ªIu8/«JugªJuh/«Ku—ªKu˜/«LuǪLuÈ/«Mu÷ªMuø/«Nv'ªNv(/«OvWªOvX/«Pv‡ªPvˆ/«Qv·ªQv¸/«RvçªRvè/«SwªSw/«TwGªTwH/«UwwªUwx/«Vw§ªVw¨/«WwתWwØ/«XxªXx/«Yx7ªYx8/«ZxgªZxh/«[x—ª[x˜/«\xǪ\xÈ/«]x÷ª]xø/«^y'ª^y(/«_yWª_yX/«`y‡ª`yˆ/VA VdataLoop-344/«qmªqn/«rªrž/«sͪsÎ/«týªtþ/«u‚-ªu‚./«v‚]ªv‚^/«w‚ªw‚Ž/«x‚½ªx‚¾/«y‚íªy‚î/«zƒªzƒ/«{ƒMª{ƒN/«|ƒ}ª|ƒ~/«}ƒ­ª}ƒ®/«~ƒÝª~ƒÞ/«„ ª„/«€„=ª€„>/«„mª„n/«‚„ª‚„ž/«ƒ„ͪƒ„Î/«„„ýª„„þ/«……-ª……./«†…]ª†…^/«‡…ª‡…Ž/«ˆ…½ªˆ…¾/«‰…íª‰…î/«Š†ªŠ†/«‹†Mª‹†N/«Œ†}ªŒ†~/«†­ª†®/«Ž†ÝªŽ†Þ/«‡ ª‡/«‡=ª‡>/«‘‡mª‘‡n/«’‡ª’‡ž/VA VdataLoop-394®VA VdataLoop-395¤VA VdataLoop-396®VA VdataLoop-3976VA VdataLoop-398®VA VdataLoop-399ÏVA VdataLoop-400®VA VdataLoop-401DVA VdataLoop-402®VA VdataLoop-403tVA VdataLoop-404®VA VdataLoop-405©VA VdataLoop-406®VA VdataLoop-407VA VdataLoop-408®VA VdataLoop-4095VA VdataLoop-410®VA VdataLoop-411âVA VdataLoop-412®VA VdataLoop-413–VA VdataLoop-414®VA VdataLoop-415‰VA VdataLoop-416®VA VdataLoop-417VA VdataLoop-418®VA VdataLoop-419)VA VdataLoop-420®VA VdataLoop-421áVA VdataLoop-422®VA VdataLoop-423 VA VdataLoop-424®VA VdataLoop-425VA VdataLoop-426®VA VdataLoop-427œVA VdataLoop-428®VA VdataLoop-429WVA VdataLoop-430®VA VdataLoop-431iVA VdataLoop-432®VA VdataLoop-433^VA VdataLoop-434®VA VdataLoop-435sVA VdataLoop-436®VA VdataLoop-437¹VA VdataLoop-438®VA VdataLoop-439ðVA VdataLoop-440®VA VdataLoop-441“VA VdataLoop-442®VA VdataLoop-443d•ã«“Œƒª“Œ„/«”Œ³ª”Œ´/«•Œãª•Œä/«–ª–/«—Cª—D/«˜sª˜t/«™£ª™¤/«šÓªšÔ/«›Žª›Ž/«œŽ3ªœŽ4/«ŽcªŽd/«žŽ“ªžŽ”/«ŸŽÃªŸŽÄ/« Žóª Žô/«¡#ª¡$/«¢Sª¢T/«£ƒª£„/«¤³ª¤´/«¥ãª¥ä/«¦ª¦/«§Cª§D/«¨sª¨t/«©£ª©¤/«ªÓªªÔ/««‘ª«‘/«¬‘3ª¬‘4/«­‘cª­‘d/«®‘“ª®‘”/«¯‘ꯑÄ/«°‘óª°‘ô/«±’#ª±’$/«²’Sª²’T/«³’ƒª³’„/«´’³ª´’´/«µ’㪵’ä/«¶“ª¶“/«·“Cª·“D/«¸“sª¸“t/«¹“£ª¹“¤/«º“Óªº“Ô/«»”ª»”/«¼”3ª¼”4/«½”cª½”d/«¾”“ª¾””/«¿”ê¿”Ä/«À”óªÀ”ô/«Á•#ªÁ•$/«•Sª•T/«ÕƒªÕ„/«Ä•³ªÄ•´/VA VdataLoop-444oVA VdataLoop-445®VA VdataLoop-446ØVA VdataLoop-447®VA VdataLoop-448þVA VdataLoop-449®VA VdataLoop-450VA VdataLoop-451®VA VdataLoop-452rVA VdataLoop-453®VA VdataLoop-454‚VA VdataLoop-455®VA VdataLoop-456\VA VdataLoop-457®VA VdataLoop-458ÂVA VdataLoop-459®VA VdataLoop-460¬VA VdataLoop-461®VA VdataLoop-462•VA VdataLoop-463®VA VdataLoop-464VA VdataLoop-465®VA VdataLoop-466VA VdataLoop-467®VA VdataLoop-468iVA VdataLoop-469®VA VdataLoop-470jVA VdataLoop-471®VA VdataLoop-472‹VA VdataLoop-473®VA VdataLoop-474wVA VdataLoop-475®VA VdataLoop-476tVA VdataLoop-477®VA VdataLoop-4785VA VdataLoop-479®VA VdataLoop-480ÛVA VdataLoop-481®VA VdataLoop-482äVA VdataLoop-483®VA VdataLoop-484ñVA VdataLoop-485®VA VdataLoop-486'VA VdataLoop-487®VA VdataLoop-4888VA VdataLoop-489®VA VdataLoop-490ÂVA VdataLoop-491®VA VdataLoop-492õVA VdataLoop-493®d£ù«Åš™ªÅšš/«ÆšÉªÆšÊ/«ÇšùªÇšú/«È›)ªÈ›*/«É›YªÉ›Z/«Ê›‰ªÊ›Š/«Ë›¹ªË›º/«Ì›éªÌ›ê/«ÍœªÍœ/«ÎœIªÎœJ/«ÏœyªÏœz/«Ðœ©ªÐœª/«ÑœÙªÑœÚ/«Ò ªÒ /«Ó9ªÓ:/«ÔiªÔj/«Õ™ªÕš/«ÖɪÖÊ/«×ùª×ú/«Øž)ªØž*/«ÙžYªÙžZ/«Úž‰ªÚžŠ/«Ûž¹ªÛžº/«ÜžéªÜžê/«ÝŸªÝŸ/«ÞŸIªÞŸJ/«ߟyªߟz/«àŸ©ªàŸª/«áŸÙªáŸÚ/«â  ªâ  /«ã 9ªã :/«ä iªä j/«å ™ªå š/«æ Éªæ Ê/«ç ùªç ú/«è¡)ªè¡*/«é¡Yªé¡Z/«ꡉªê¡Š/«롹ª롺/«ì¡éªì¡ê/«í¢ªí¢/«î¢Iªî¢J/«ï¢yªï¢z/«ð¢©ªð¢ª/«ñ¢Ùªñ¢Ú/«ò£ ªò£ /«ó£9ªó£:/«ô£iªô£j/«õ£™ªõ£š/«ö£Éªö£Ê/VA VdataLoop-494®VA VdataLoop-495AVA VdataLoop-496®VA VdataLoop-497áVA VdataLoop-498®VA VdataLoop-499ÿVA VdataLoop-500®VA VdataLoop-501VA VdataLoop-502®VA VdataLoop-503ÆVA VdataLoop-504®VA VdataLoop-505œVA VdataLoop-506®VA VdataLoop-507VA VdataLoop-508®VA VdataLoop-509ªVA VdataLoop-510®VA VdataLoop-511ñVA VdataLoop-512®VA VdataLoop-513¹VA VdataLoop-514®VA VdataLoop-515VA VdataLoop-516®VA VdataLoop-5170VA VdataLoop-518®VA VdataLoop-519VA VdataLoop-520®VA VdataLoop-521aVA VdataLoop-522®VA VdataLoop-523VA VdataLoop-524®VA VdataLoop-525öVA VdataLoop-526®VA VdataLoop-527VA VdataLoop-528®VA VdataLoop-529sVA VdataLoop-530®VA VdataLoop-531[VA VdataLoop-532®VA VdataLoop-533¡VA VdataLoop-534®VA VdataLoop-535rVA VdataLoop-536®VA VdataLoop-5372VA VdataLoop-538®VA VdataLoop-539ÂVA VdataLoop-540®VA VdataLoop-541ËVA VdataLoop-542®VA VdataLoop-543Gd²«÷¨¯ª÷¨°/«ø¨ßªø¨à/«ù©ªù©/«ú©?ªú©@/«û©oªû©p/«ü©Ÿªü© /«ý©Ïªý©Ð/«þ©ÿªþª/«ÿª/ªÿª0/«ª_ªª`/«ªªª/«ª¿ªªÀ/«ªïªªð/««ª« /««Oª«P/««ª«€/««¯ª«°/««ßª«à/« ¬ª ¬/« ¬?ª ¬@/« ¬oª ¬p/« ¬Ÿª ¬ /« ¬Ïª ¬Ð/«¬ÿª­/«­/ª­0/«­_ª­`/«­ª­/«­¿ª­À/«­ïª­ð/«®ª® /«®Oª®P/«®ª®€/«®¯ª®°/«®ßª®à/«¯ª¯/«¯?ª¯@/«¯oª¯p/«¯Ÿª¯ /«¯Ïª¯Ð/«¯ÿª°/«°/ª°0/« °_ª °`/«!°ª!°/«"°¿ª"°À/«#°ïª#°ð/«$±ª$± /«%±Oª%±P/«&±ª&±€/«'±¯ª'±°/«(±ßª(±à/VA VdataLoop-544³VA VdataLoop-545®VA VdataLoop-546ùVA VdataLoop-547®VA VdataLoop-548ŽVA VdataLoop-549®VA VdataLoop-550LVA VdataLoop-551®VA VdataLoop-552ÒVA VdataLoop-553®VA VdataLoop-554BVA VdataLoop-555®VA VdataLoop-556BVA VdataLoop-557®VA VdataLoop-558oVA VdataLoop-559®VA VdataLoop-560§VA VdataLoop-561®VA VdataLoop-562DVA VdataLoop-563®VA VdataLoop-564¯VA VdataLoop-565®VA VdataLoop-566›VA VdataLoop-567®VA VdataLoop-568÷VA VdataLoop-569®VA VdataLoop-570WVA VdataLoop-571®VA VdataLoop-572 VA VdataLoop-573®VA VdataLoop-574VA VdataLoop-575®VA VdataLoop-576¢VA VdataLoop-577®VA VdataLoop-578dVA VdataLoop-579®VA VdataLoop-580 VA VdataLoop-581®VA VdataLoop-582ÀVA VdataLoop-583®VA VdataLoop-584ÉVA VdataLoop-585®VA VdataLoop-586@VA VdataLoop-587®VA VdataLoop-588ÀVA VdataLoop-589®VA VdataLoop-590°VA VdataLoop-591®VA VdataLoop-592¹VA VdataLoop-593®dÀ%«)¶Åª)¶Æ/«*¶õª*¶ö/«+·%ª+·&/«,·Uª,·V/«-·…ª-·†/«.·µª.·¶/«/·åª/·æ/«0¸ª0¸/«1¸Eª1¸F/«2¸uª2¸v/«3¸¥ª3¸¦/«4¸Õª4¸Ö/«5¹ª5¹/«6¹5ª6¹6/«7¹eª7¹f/«8¹•ª8¹–/«9¹Åª9¹Æ/«:¹õª:¹ö/«;º%ª;º&/«<ºUª<ºV/«=º…ª=º†/«>ºµª>º¶/«?ºåª?ºæ/«@»ª@»/«A»EªA»F/«B»uªB»v/«C»¥ªC»¦/«D»ÕªD»Ö/«E¼ªE¼/«F¼5ªF¼6/«G¼eªG¼f/«H¼•ªH¼–/«I¼ÅªI¼Æ/«J¼õªJ¼ö/«K½%ªK½&/«L½UªL½V/«M½…ªM½†/«N½µªN½¶/«O½åªO½æ/«P¾ªP¾/«Q¾EªQ¾F/«R¾uªR¾v/«S¾¥ªS¾¦/«T¾ÕªT¾Ö/«U¿ªU¿/«V¿5ªV¿6/«W¿eªW¿f/«X¿•ªX¿–/«Y¿ÅªY¿Æ/«Z¿õªZ¿ö/VA VdataLoop-594®VA VdataLoop-595MVA VdataLoop-596®VA VdataLoop-597PVA VdataLoop-598®VA VdataLoop-599VA VdataLoop-600®VA VdataLoop-601>VA VdataLoop-602®VA VdataLoop-603¥VA VdataLoop-604®VA VdataLoop-605nVA VdataLoop-606®VA VdataLoop-607kVA VdataLoop-608®VA VdataLoop-609ûVA VdataLoop-610®VA VdataLoop-611âVA VdataLoop-612®VA VdataLoop-613CVA VdataLoop-614®VA VdataLoop-615”VA VdataLoop-616®VA VdataLoop-617ÌVA VdataLoop-618®VA VdataLoop-619VA VdataLoop-620®VA VdataLoop-621ÓVA VdataLoop-622®VA VdataLoop-623&VA VdataLoop-624®VA VdataLoop-625»VA VdataLoop-626®VA VdataLoop-627™VA VdataLoop-628®VA VdataLoop-629dVA VdataLoop-630®VA VdataLoop-631vVA VdataLoop-632®VA VdataLoop-633µVA VdataLoop-634®VA VdataLoop-635ôVA VdataLoop-636®VA VdataLoop-637 VA VdataLoop-638®VA VdataLoop-639‰VA VdataLoop-640®VA VdataLoop-641ÒVA VdataLoop-642®VA VdataLoop-643ÙdÎ;«[ÄÛª[ÄÜ/«\Å ª\Å /«]Å;ª]Å</«^Åkª^Ål/«_Å›ª_Åœ/«`Å˪`ÅÌ/«aÅûªaÅü/«bÆ+ªbÆ,/«cÆ[ªcÆ\/«dÆ‹ªdÆŒ/«eÆ»ªeƼ/«fÆëªfÆì/«gǪgÇ/«hÇKªhÇL/«iÇ{ªiÇ|/«jÇ«ªjǬ/«kÇÛªkÇÜ/«lÈ ªlÈ /«mÈ;ªmÈ</«nÈkªnÈl/«oÈ›ªoÈœ/«pÈ˪pÈÌ/«qÈûªqÈü/«rÉ+ªrÉ,/«sÉ[ªsÉ\/«tÉ‹ªtÉŒ/«uÉ»ªuɼ/«vÉëªvÉì/«wʪwÊ/«xÊKªxÊL/«yÊ{ªyÊ|/«zÊ«ªzʬ/«{ÊÛª{ÊÜ/«|Ë ª|Ë /«}Ë;ª}Ë</«~Ëkª~Ël/«Ë›ªËœ/«€Ë˪€ËÌ/«ËûªËü/«‚Ì+ª‚Ì,/«ƒÌ[ªƒÌ\/«„Ì‹ª„ÌŒ/«…Ì»ª…̼/«†Ì몆Ìì/«‡Íª‡Í/«ˆÍKªˆÍL/«‰Í{ª‰Í|/«ŠÍ«ªŠÍ¬/«‹ÍÛª‹ÍÜ/«ŒÎ ªŒÎ /VA VdataLoop-644±VA VdataLoop-645®VA VdataLoop-646(VA VdataLoop-647®VA VdataLoop-648ìVA VdataLoop-649®VA VdataLoop-650ÇVA VdataLoop-651®VA VdataLoop-652VA VdataLoop-653®VA VdataLoop-654ƒVA VdataLoop-655®VA VdataLoop-656´VA VdataLoop-657®VA VdataLoop-658VA VdataLoop-659®VA VdataLoop-660éVA VdataLoop-661®VA VdataLoop-662ëVA VdataLoop-663®VA VdataLoop-664¾VA VdataLoop-665®VA VdataLoop-666ýVA VdataLoop-667®VA VdataLoop-668áVA VdataLoop-669®VA VdataLoop-670VA VdataLoop-671®VA VdataLoop-672 VA VdataLoop-673®VA VdataLoop-674OVA VdataLoop-675®VA VdataLoop-676?VA VdataLoop-677®VA VdataLoop-678£VA VdataLoop-679®VA VdataLoop-680}VA VdataLoop-681®VA VdataLoop-682€VA VdataLoop-683®VA VdataLoop-684—VA VdataLoop-685®VA VdataLoop-686ÄVA VdataLoop-687®VA VdataLoop-688ÊVA VdataLoop-689®VA VdataLoop-690µVA VdataLoop-691®VA VdataLoop-692VA VdataLoop-693®dÜQ«ÒñªÒò/«ŽÓ!ªŽÓ"/«ÓQªÓR/«ÓªÓ‚/«‘Ó±ª‘Ó²/«’Ó᪒Óâ/«“Ôª“Ô/«”ÔAª”ÔB/«•Ôqª•Ôr/«–Ô¡ª–Ô¢/«—ÔѪ—ÔÒ/«˜Õª˜Õ/«™Õ1ª™Õ2/«šÕaªšÕb/«›Õ‘ª›Õ’/«œÕÁªœÕÂ/«ÕñªÕò/«žÖ!ªžÖ"/«ŸÖQªŸÖR/« Öª Ö‚/«¡Ö±ª¡Ö²/«¢Ö᪢Öâ/«£×ª£×/«¤×Aª¤×B/«¥×qª¥×r/«¦×¡ª¦×¢/«§×Ѫ§×Ò/«¨Øª¨Ø/«©Ø1ª©Ø2/«ªØaªªØb/««Ø‘ª«Ø’/«¬ØÁª¬ØÂ/«­Øñª­Øò/«®Ù!ª®Ù"/«¯ÙQª¯ÙR/«°Ùª°Ù‚/«±Ù±ª±Ù²/«²Ù᪲Ùâ/«³Úª³Ú/«´ÚAª´ÚB/«µÚqªµÚr/«¶Ú¡ª¶Ú¢/«·ÚѪ·ÚÒ/«¸Ûª¸Û/«¹Û1ª¹Û2/«ºÛaªºÛb/«»Û‘ª»Û’/«¼ÛÁª¼ÛÂ/«½Ûñª½Ûò/«¾Ü!ª¾Ü"/VA VdataLoop-694®VA VdataLoop-695¶VA VdataLoop-696®VA VdataLoop-697VA VdataLoop-698®VA VdataLoop-699²VA VdataLoop-700®VA VdataLoop-701dVA VdataLoop-702®VA VdataLoop-703úVA VdataLoop-704®VA VdataLoop-705•VA VdataLoop-706®VA VdataLoop-707oVA VdataLoop-708®VA VdataLoop-709"VA VdataLoop-710®VA VdataLoop-711ÞVA VdataLoop-712®VA VdataLoop-713eVA VdataLoop-714®VA VdataLoop-715ËVA VdataLoop-716®VA VdataLoop-717oVA VdataLoop-718®VA VdataLoop-719ÇVA VdataLoop-720®VA VdataLoop-721%VA VdataLoop-722®VA VdataLoop-7230VA VdataLoop-724®VA VdataLoop-725>VA VdataLoop-726®VA VdataLoop-727‘VA VdataLoop-728®VA VdataLoop-729hVA VdataLoop-730®VA VdataLoop-731\VA VdataLoop-732®VA VdataLoop-7338VA VdataLoop-734®VA VdataLoop-735ÖVA VdataLoop-736®VA VdataLoop-737âVA VdataLoop-738®VA VdataLoop-739üVA VdataLoop-740®VA VdataLoop-741-VA VdataLoop-742®VA VdataLoop-743Ddêg«¿áª¿á/«Àá7ªÀá8/«ÁágªÁáh/«Âá—ªÂá˜/«ÃáǪÃáÈ/«Äá÷ªÄáø/«Åâ'ªÅâ(/«ÆâWªÆâX/«Ç⇪Çâˆ/«Èâ·ªÈâ¸/«ÉâçªÉâè/«ÊãªÊã/«ËãGªËãH/«ÌãwªÌãx/«Í㧪Íã¨/«ÎãתÎãØ/«ÏäªÏä/«Ðä7ªÐä8/«ÑägªÑäh/«Òä—ªÒä˜/«ÓäǪÓäÈ/«Ôä÷ªÔäø/«Õå'ªÕå(/«ÖåWªÖåX/«×凪×åˆ/«Øå·ªØå¸/«ÙåçªÙåè/«ÚæªÚæ/«ÛæGªÛæH/«ÜæwªÜæx/«Ý槪Ýæ¨/«ÞæתÞæØ/«ßçªßç/«àç7ªàç8/«áçgªáçh/«âç—ªâç˜/«ãçǪãçÈ/«äç÷ªäçø/«åè'ªåè(/«æèWªæèX/«ç自çèˆ/«èè·ªèè¸/«éèçªéèè/«êéªêé/«ëéGªëéH/«ìéwªìéx/«í駪íé¨/«îéתîéØ/«ïêªïê/«ðê7ªðê8/VA VdataLoop-744’VA VdataLoop-745®VA VdataLoop-746öVA VdataLoop-747®VA VdataLoop-7486VA VdataLoop-749®VA VdataLoop-750nVA VdataLoop-751®VA VdataLoop-752oVA VdataLoop-753®VA VdataLoop-754ÑVA VdataLoop-755®VA VdataLoop-756[VA VdataLoop-757®VA VdataLoop-758OVA VdataLoop-759®VA VdataLoop-760´VA VdataLoop-761®VA VdataLoop-762óVA VdataLoop-763®VA VdataLoop-764:VA VdataLoop-765®VA VdataLoop-766ƒVA VdataLoop-767®VA VdataLoop-768VA VdataLoop-769®VA VdataLoop-770ïVA VdataLoop-771®VA VdataLoop-772±VA VdataLoop-773®VA VdataLoop-774øVA VdataLoop-775®VA VdataLoop-776§VA VdataLoop-777®VA VdataLoop-778ÞVA VdataLoop-779®VA VdataLoop-780MVA VdataLoop-781®VA VdataLoop-782üVA VdataLoop-783®VA VdataLoop-784øVA VdataLoop-785®VA VdataLoop-786ÛVA VdataLoop-787®VA VdataLoop-788&VA VdataLoop-789®VA VdataLoop-790RVA VdataLoop-791®VA VdataLoop-792ìVA VdataLoop-793®dø}«ñïªñï/«òïMªòïN/«óï}ªóï~/«ôï­ªôï®/«õïݪõïÞ/«öð ªöð/«÷ð=ª÷ð>/«øðmªøðn/«ùðªùðž/«úðͪúðÎ/«ûðýªûðþ/«üñ-ªüñ./«ýñ]ªýñ^/«þñªþñŽ/«ÿñ½ªÿñ¾/«ñíªñî/«òªò/«òMªòN/«ò}ªò~/«ò­ªò®/«òݪòÞ/«ó ªó/«ó=ªó>/«ómªón/« óª óž/« óͪ óÎ/« óýª óþ/« ô-ª ô./« ô]ª ô^/«ôªôŽ/«ô½ªô¾/«ôíªôî/«õªõ/«õMªõN/«õ}ªõ~/«õ­ªõ®/«õݪõÞ/«ö ªö/«ö=ªö>/«ömªön/«öªöž/«öͪöÎ/«öýªöþ/«÷-ª÷./«÷]ª÷^/«÷ª÷Ž/«÷½ª÷¾/« ÷íª ÷î/«!øª!ø/«"øMª"øN/VA VdataLoop-794®VA VdataLoop-795“VA VdataLoop-796®VA VdataLoop-797ÊVA VdataLoop-798®VA VdataLoop-799ÉVA VdataLoop-800®VA VdataLoop-801:VA VdataLoop-802®VA VdataLoop-803|VA VdataLoop-804®VA VdataLoop-805¦VA VdataLoop-806®VA VdataLoop-807yVA VdataLoop-808®VA VdataLoop-809cVA VdataLoop-810®VA VdataLoop-811µVA VdataLoop-812®VA VdataLoop-813¡VA VdataLoop-814®VA VdataLoop-815ïVA VdataLoop-816®VA VdataLoop-817.VA VdataLoop-818®VA VdataLoop-819ÑVA VdataLoop-820®VA VdataLoop-821kVA VdataLoop-822®VA VdataLoop-823²VA VdataLoop-824®VA VdataLoop-825ÙVA VdataLoop-826®VA VdataLoop-827LVA VdataLoop-828®VA VdataLoop-8294VA VdataLoop-830®VA VdataLoop-831VA VdataLoop-832®VA VdataLoop-833˜VA VdataLoop-834®VA VdataLoop-835_VA VdataLoop-836®VA VdataLoop-837VA VdataLoop-838®VA VdataLoop-8394VA VdataLoop-840®VA VdataLoop-841{VA VdataLoop-842®VA VdataLoop-843#d“«#ý3ª#ý4/«$ýcª$ýd/«%ý“ª%ý”/«&ýê&ýÄ/«'ýóª'ýô/«(þ#ª(þ$/«)þSª)þT/«*þƒª*þ„/«+þ³ª+þ´/«,þãª,þä/«-ÿª-ÿ/«.ÿCª.ÿD/«/ÿsª/ÿt/«0ÿ£ª0ÿ¤/«1ÿÓª1ÿÔ/«2ª2/«33ª34/«4cª4d/«5“ª5”/«6ê6Ä/«7óª7ô/«8#ª8$/«9Sª9T/«:ƒª:„/«;³ª;´/«<ãª<ä/«=ª=/«>Cª>D/«?sª?t/«@£ª@¤/«AÓªAÔ/«BªB/«C3ªC4/«DcªDd/«E“ªE”/«FêFÄ/«GóªGô/«H#ªH$/«ISªIT/«JƒªJ„/«K³ªK´/«LãªLä/«MªM/«NCªND/«OsªOt/«P£ªP¤/«QÓªQÔ/«RªR/«S3ªS4/«TcªTd/VA VdataLoop-844VA VdataLoop-845®VA VdataLoop-846#VA VdataLoop-847®VA VdataLoop-848”VA VdataLoop-849®VA VdataLoop-850?VA VdataLoop-851®VA VdataLoop-852“VA VdataLoop-853®VA VdataLoop-854VA VdataLoop-855®VA VdataLoop-856ÀVA VdataLoop-857®VA VdataLoop-858ÊVA VdataLoop-859®VA VdataLoop-860DVA VdataLoop-861®VA VdataLoop-862ÛVA VdataLoop-863®VA VdataLoop-864|VA VdataLoop-865®VA VdataLoop-866ÄVA VdataLoop-867®VA VdataLoop-868|VA VdataLoop-869®VA VdataLoop-870ìVA VdataLoop-871®VA VdataLoop-872ÄVA VdataLoop-873®VA VdataLoop-874!VA VdataLoop-875®VA VdataLoop-876ÏVA VdataLoop-877®VA VdataLoop-878ÝVA VdataLoop-879®VA VdataLoop-880aVA VdataLoop-881®VA VdataLoop-882ÜVA VdataLoop-883®VA VdataLoop-884WVA VdataLoop-885®VA VdataLoop-886mVA VdataLoop-887®VA VdataLoop-888çVA VdataLoop-889®VA VdataLoop-890QVA VdataLoop-891®VA VdataLoop-892©VA VdataLoop-893®d©«U IªU J/«V yªV z/«W ©ªW ª/«X ÙªX Ú/«Y ªY /«Z 9ªZ :/«[ iª[ j/«\ ™ª\ š/«] ɪ] Ê/«^ ùª^ ú/«_ )ª_ */«` Yª` Z/«a ‰ªa Š/«b ¹ªb º/«c éªc ê/«dªd/«eIªeJ/«fyªfz/«g©ªgª/«hÙªhÚ/«i ªi /«j9ªj:/«kiªkj/«l™ªlš/«mɪmÊ/«nùªnú/«o)ªo*/«pYªpZ/«q‰ªqŠ/«r¹ªrº/«séªsê/«tªt/«uIªuJ/«vyªvz/«w©ªwª/«xÙªxÚ/«y ªy /«z9ªz:/«{iª{j/«|™ª|š/«}ɪ}Ê/«~ùª~ú/«)ª*/«€Yª€Z/«‰ªŠ/«‚¹ª‚º/«ƒéªƒê/«„ª„/«…Iª…J/«†yª†z/VA VdataLoop-894®VA VdataLoop-895ÜVA VdataLoop-896®VA VdataLoop-897ËVA VdataLoop-898®VA VdataLoop-899ãVA VdataLoop-900®VA VdataLoop-901VA VdataLoop-902®VA VdataLoop-903cVA VdataLoop-904®VA VdataLoop-905œVA VdataLoop-906®VA VdataLoop-907†VA VdataLoop-908®VA VdataLoop-909VA VdataLoop-910®VA VdataLoop-911‡VA VdataLoop-912®VA VdataLoop-913'VA VdataLoop-914®VA VdataLoop-915sVA VdataLoop-916®VA VdataLoop-917ÇVA VdataLoop-918®VA VdataLoop-919±VA VdataLoop-920®VA VdataLoop-921TVA VdataLoop-922®VA VdataLoop-923 VA VdataLoop-924®VA VdataLoop-925ÞVA VdataLoop-926®VA VdataLoop-927NVA VdataLoop-928®VA VdataLoop-929–VA VdataLoop-930®VA VdataLoop-931ÝVA VdataLoop-932®VA VdataLoop-933WVA VdataLoop-934®VA VdataLoop-935÷VA VdataLoop-936®VA VdataLoop-937ÉVA VdataLoop-938®VA VdataLoop-939DVA VdataLoop-940®VA VdataLoop-941€VA VdataLoop-942®VA VdataLoop-943:d"¿«‡_ª‡`/«ˆªˆ/«‰¿ª‰À/«ŠïªŠð/«‹ª‹ /«ŒOªŒP/«ª€/«Ž¯ªŽ°/«ßªà/«ª/«‘?ª‘@/«’oª’p/«“Ÿª“ /«”Ϫ”Ð/«•ÿª•/«–/ª–0/«—_ª—`/«˜ª˜/«™¿ª™À/«šïªšð/«›ª› /«œOªœP/«ª€/«ž¯ªž°/«ŸßªŸà/« ª /«¡?ª¡@/«¢oª¢p/«£Ÿª£ /«¤Ïª¤Ð/«¥ÿª¥/«¦/ª¦0/«§_ª§`/«¨ª¨/«©¿ª©À/«ªïªªð/«« ª« /«¬ Oª¬ P/«­ ª­ €/«® ¯ª® °/«¯ ߪ¯ à/«°!ª°!/«±!?ª±!@/«²!oª²!p/«³!Ÿª³! /«´!Ϫ´!Ð/«µ!ÿªµ"/«¶"/ª¶"0/«·"_ª·"`/«¸"ª¸"/VA VdataLoop-944>FFFNNUUUXXXXUUUNNFFF>>77722...##  !!,,///22777>@@HHQQQWWYYYYWWQQQHH@@>77722///,,!!  !!,,,//33399@@@HHQQQWWYYYYWWQQQHH@@@99333//,,,!!  **...//335;;BBBKKSSSXXZZZZXXSSSKKBBB;;533//...**  **---00555;;BBBKKUUUXXYYYYXXUUUKKBBB;;55500---**  ((-----01666==DDDMMUUUXXYYYYXXUUUMMDDD==66610-----((  ((+++..11166=>EEENNUUUXXUUUUXXUUUNNEEE>=66111..+++((  %%%,,+++//22288>>>EENNUUUXXRRRRXXUUUNNEE>>>88222//+++,,%%%  %++++,,//22299???FFPPUUUVVRRRRVVUUUPPFF???99222//,,++++%  """+++++--///3399???GGPPUUUTTPPPPTTUUUPPGG???9933///--+++++"""  ""*****--//055:::@@GGPPUUUTTPPPPTTUUUPPGG@@:::550//--*****""  ))***++---0055:;;AAGGPPPUUSSPPPPSSUUPPPGGAA;;:5500---++***))  *****++---1166;;;AAGGPPPTTSSQQQQSSTTPPPGGAA;;;6611---++*****  ''*****,,,--1177<<>AAIIIPPSSTTUUUUTTSSPPIIIAA>>99333//,,+++**))**%  ###**))***++--0005599>>AAJJJPPSSTTVVVVTTSSPPJJJAA>>9955000--++***))**###   #)**))***++--00166::>>AAAJJPPRRTTWWWWTTRRPPJJAAA>>::66100--++***))**)#     !!))*******,,...1166::>>BBBJJPPRRTTWWWWTTRRPPJJBBB>>::6611...,,*******))!!    !'+++****++,,.//2266::>>BBBJJPPRRTTXXXXTTRRPPJJBBB>>::6622//.,,++****+++'!    ''++*****++,,,//2377;;;>>BBJJPPRRTTYYYYTTRRPPJJBB>>;;;7732//,,,++*****++''      ,,,*******++--003377;<>AAHHNNRSRRVVVVVVRRSRNNHHAA>><<::7633000.-,,----//00---$  $$$000000..-.---..014477::<<>>CCIIOOSSRRVVVVVVRRSSOOIICC>><<::774410..---.-..000000$$$  ++0111000//..-.//114688;;<<>>EEJJQQSSSSVVTTVVSSSSQQJJEE>><<;;886411//.-..//0001110++   &%%+01112200//..../0336688<<==??EEJJQRTTTTVVRRVVTTTTRQJJEE??==<<8866330/....//00221110+%%&    """ *&&///00222200//.///004477::<<>>@@GGKKRRTTTTVVRRVVTTTTRRKKGG@@>><<::774400///.//00222200///&&* """   ##**&&--**211/633242201000/11222468;;;<>>@BHHLLSSTTUUVVPPVVUUTTSSLLHHB@>><;;;86422211/000102242336/112**--&&**##  $$#+**///22226666777443311111111446688;<==>BBHHLLTTUUVVUUOOUUVVUUTTLLHHBB>==<;88664411111111334477766662222///**+#$$  $$$*++////2224446688796634111122224488::<<=>@@EEINNTTUUVVUUOOUUVVUUTTNNIEE@@>=<<::8844222211114366978866444222////++*$$$  $$$$**+--/022333446688998844222223445588;;==>>@@GGJPPUUVVWWTTMMTTWWVVUUPPJGG@@>>==;;885544322222448899886644333220/--+**$$$$  $$$$)))++-..00224444668:;;;994422333366779;;>>??AAGGJJRVVVVWWSSLLSSWWVVVVRJJGGAA??>>;;977663333224499;;;:86644442200..-++)))$$$$  #$$(((**+,,./00222455588::==99553334556679;;<>>@@CCHHLLRVVVWXXRRLLRRXXWVVVRLLHHCC@@>><;;97665543335599==::88555422200/.,,+**((($$#  ##%&&))*++,-//11123446688<<=?;;553344668899<<==??@CFIIMMSSWWWXXRRLLRRXXWWWSSMMIIFC@??==<<998866443355;;?=<<88664432111//-,++*))&&%##   %%(((**+,--/0012335557999==??<<6655556::;;<???ACCHHKOOUUZZYWWRRNNRRWWYZZUUOOKHHCCA???>==<:88665577<<@@?=::77664422000//,,,,))(''%#    %%'(()+,,../000122446788:;;?AAA=786666::<<=???@AACFIILQQVVZZYWWRRNNRRWWYZZVVQQLIIFCAA@???=<<::666687=AAA?;;:887644221000/..,,+)(('%%    $%%(((++---//0111333557799;=AAAB==88777:;>>???AAABFFIINSSXXZZZWWRROORRWWZZZXXSSNIIFFBAAA???>>;:77788==BAAA=;9977553331110//---++(((%%$   $$$''***,,///0012224455779::=BBBB>>::7999;=@AAAAABDDHJJNNUYY[[ZWWSSQQSSWWZ[[YYUNNJJHDDBAAAAA@=;9997::>>BBBB=::9775544222100///,,***''$$$  !!!''))),,,..000022333566688:;>>DDCC>;;99;;==@@BBBBBDFIKKOOUYY[[ZWWTTSSTTWWZ[[YYUOOKKIFDBBBBB@@==;;99;;>CCDD>>;:886665333220000..,,,)))''!!!   %%%))+++...0002223334557789;;??DDCC>><<::;??BBBDDDDFFIMMQQVVZ\\ZZWTTSSTTWZZ\\ZVVQQMMIFFDDDDBBB??;::<<>>CCDD??;;9877554333222000...+++))%%%    $$%((+++--//0111333444555779:<>AAFFFFFFJJLLNSSXX\]][[YWWWWWWY[[]]\XXSSNLLJJFFFFFFAA>>=<=@@DDEEAA==::876655544422211///---++(''$#   ! ##&''*+---//111223344456667789::>BBEFDD@A>>=@@CCFFHHHHHJMMPPUYY\]][[ZYYYYYYZ[[]]\YYUPPMMJHHHHHFFCC@@=>>A@DDFEBB>::987766654443322111//---+*''&## !  !!###&&**---///1122233444555667899;;>>CCFFDDA@@??@EEHHHKJJJLMMRRW[[]]^\\ZYYYYYYZ\\^]][[WRRMMLJJJKHHHEE@??@@ADDFFCC>>;;9987665554443322211///---**&&###!!    ""##%%%))---//11122333444556667788::>ABFGGFFDDEDDGGJNNPSSQQQSSY]]`aaa``________``aaa`]]YSSQQQSSPNNJGGDDEDDFFGGFBA>>;;:988777666555443332221100,,**(((&&%%##!"   ""$#&&''((***+,.011222333445556677788899::<>>BBGGGGFEEFFFGGLLPSSUSSRUUY]_bccbbaaaaaaaaaabbccb_]YUURSSUSSPLLGGFFFEEFGGGGBB>><::998887776655544333222110.,+***((''&&#$""    !! ##$$&&(())***++..01222334445555666778999::;<<>?CCGGGFGFFFHHILMRRUUSUTTW[[_bbeddccccddccccddebb_[[WTTUSUURRMLIHHFFFGFGGGCC?><<;::99987766655554443322210..++***))((&&$$## !!    !$$#%%&&(())**+++--002233344444556667788899::;;==?DDGHHGGGGHHJJJMRSWWWUTVY]]addeddceeffffeecddedda]]YVTUWWWSRMJJJHHGGGGHHGDD?==;;::998887766655444443332200--+++**))((&&%%#$$!   !"" ""$&&%''(())**+++,,..1133333445556666778899:::<<=>@@EEHHHGGHJJJLLOSSXXXWVVY__bffgfffeeffffeefffgffb__YVVWXXXSSOLLJJJHGGHHHEE@@>=<<:::9988776666555443333311..,,+++**))((''%&&$"" ""!  !!"##"$$&'''(())**++++,-.//223334444556667788899::;;<<>AAEFHHIHHHKKLLNPPTXXYXXX[[adggihhhhhhhhhhhhhhiggda[[XXXYXXTPPNLLKKHHHIHHFEAA><<;;::998887766655444433322//.-,++++**))(('''&$$"##"!!    !!###%%$&&'((())**+++++,../113333444445566778899:::;;<=??BBFIIIIIJJKNNNPQUUXYYYZ]]addijjjjjjjkkjjjjjjjidda]]ZYYYXUUQPNNNKJJIIIIIFBB??=<;;:::998877665544444333311/..,+++++**))((('&&$%%###!!    """"$#$$%&&&''()))**++++++,,..1113333444556667788999::;<<=@@BCGGJJIIKKMMPOOQUUXYYY[^^cffijjmlllmmmmlllmjjiffc^^[YYYXUUQOOPMMKKIIJJGGCB@@=<<;::9998877666554443333111..,,++++++**)))(''&&&%$$#$""""   """"##$$%$%%&&''(())****++++++--//12233334455666778999::;;;==>@@CHHJKJJJLLOPQQRUUXXYY[[`eehkllmlllmmmmlllmllkhee`[[YYXXUURQQPOLLJJJKJHHC@@>==;;;::99987766655443333221//--++++++****))((''&&%%$%$$##""""    """"####$$%%&&&&''(())******++++++--/02233333445566778899:;;<<=>??ADDJJKKKKLNQRRSSSUXXYZ\\`ggkmnnonoooooooononnmkgg`\\ZYXXUSSSRRQNLKKKKJJDDA??>=<<;;:99887766554433333220/--++++++******))((''&&&&%%$$####""""   !!""""###$$%%&&&&''(((())******++++,,..0122333445555677899::;;<==>@@ACFJKLLMMMQTTUSVTUXXYZZ]aggmoppqqqqrqqrqqqqppomgga]ZZYXXUTVSUTTQMMMLLKJFCA@@>==<;;::9987765555443332210..,,++++******))((((''&&&&%%$$###""""!!   !!""""####$$%%%&&''(((())))******++,,,,//222333444556678899:;;<==>>>@@DGGKMMMPPQTWYYVVVVXY[[^ccjmoossssstsstsssssoomjcc^[[YXVVVVYYWTQPPMMMKGGD@@>>>==<;;:998876655444333222//,,,,++******))))((((''&&%%%$$####""""!!    !!"######$$%%%%&&'''((()(())******++,,-/002233344455666788::;<<==>>?@ADDIMMOOORRTW]][VZWYZZ[_eelprrsssuvwuuwvusssrrplee_[ZZYWZV[]]WTRROOOMMIDDA@?>>==<<;::887666554443332200/-,,++******))(()((('''&&%%%%$$######"!!    !!"""####$$$$%%&&&&'''(((((())****++++--00223344444556678899;;===>>?@@ACEJJNOQQRTV[[a``Z[[[\]__gnrruuuuuvwuuwvuuuuurrng__]\[[[Z``a[[VTRQQONJJECA@@?>>===;;99887665544444332200--++++****))(((((('''&&&&%%$$$$####"""!!    !!""""###$$$$%%%&&&'''(((())))**++++,,..223344445555677889:;<====>>?AADGGLLPRSSTXX]aeea[[`_`aagquuwxwwwxyxxyxwwwxwuuqgaa`_`[[aeea]XXTSSRPLLGGDAA?>>====<;:988776555544443322..,,++++**))))(((('''&&&%%%$$$$###""""!!    !!!""""####$$$%%%%&&'''(((())**++++,,..0033445555556667799;;<==>>>??ABDFHLNQRRUVXZ^ddjicc`eddejquxzzyyyz{zz{zyyyzzxuqjedde`ccijdd^ZXVURRQNLHFDBA??>>>==<;;9977666555555443300..,,++++**))(((('''&&%%%%$$$####""""!!!   !!!""""####$$$%%&&&&''((())***+++--..//22446565666677788::<<>>>>>?@@DDFJJNSSTVVXZ``ejoolheljjmttxz|{{{}~||~}{{{|zxttmjjlehlooje``ZXVVTSSNJJFDD@@?>>>>><<::88777666656564422//..--+++***))(((''&&&&%%$$$####""""!!!  !!!!"""####$%%&&&&'''((()**+++,..//001144667676667778899<<==>>>???BBFGGMPPUVVXZ]]cgllrrpploorrw{||{{~€~~€~{{||{wrroolpprrllgc]]ZXVVUPPMGGFBB???>>>==<<998877766676766441100//..,+++**)((('''&&&&%%$####"""!!!!  !!!!"""##$$%%%&&''''(())*,,--,.22333344777997867777899;<==>>>??@@BDFJJMSSUWWX]]`fjjnruuuroovv|~~~~}~€~~€~}~~~~|vvooruuurnjjf`]]XWWUSSMJJFDB@@??>>>==<;99877776879977744333322.,--,,*))((''''&&%%%$$##"""!!!!   !!!!""###$$%%&&'''(())++,//002277777788999::9988888::===>>??@@AABFFHLLOUUVY[[`cfflptuwwusssy€‚€€€‚‚‚‚€€€‚€ysssuwwutplffc`[[YVUUOLLHFFBAA@@??>>===::8888899::999887777772200//,++))(('''&&%%$$###""!!!!    !!"""##$$%%%&&&'(())++--/335577;;;;;;;;<<:;;9999899<<>>??@@@AACDDIJJORUWXY\^dffipssuwwwwvvyƒ…„„‚‚ƒ…„ƒƒ„…ƒ‚‚„„…ƒyvvwwwwusspiffd^\YXWUROJJIDDCAA@@@??>><<9989999;;:<<;;;;;;;;775533/--++))(('&&&%%%$$##"""!!    !!!""##$$$%%&&'((**++--00588::;;>>>>>>??>>?<<::999::==??AA@AABCCGILMSSUYYZ_aadjmpptvwwwyyy|ƒ…„‡…„‡ˆ‡††‡ˆ‡„…‡„…ƒ|yyywwwvtppmjdaa_ZYYUSSMLIGCCBAA@AA??==::999::<>??>>>>>>;;::88500--++**(('&&%%$$$##""!!!    !""####$%%&&''(***+..115::<<:=?>@@@@@@AA?@@<<:::::<?=:<<::511..+***(''&&%%$####""!    !!"""##$$%%&&'))**,+.2266:==>>=?@@AAAABBBBC@@<<;;;;;>>AACCCBCCGGINNOTVZZ\``cillorstvxxyz}~‚‚‰Œ‹ˆˆ‹Œ‹‹Œ‹ˆˆ‹Œ‰‚‚~}zyxxvtsrollic``\ZZVTONNIGGCCBCCCAA>>;;;;;<<@@CBBBBAAAA@@?=>>==:6622.+,**))'&&%%$$##"""!!    !!!""##$%%&&(()**,,..277;;=??@@@@AABBBBCCCCC@@<;;;<=>ACCDDDDCFFKMNRRWWY]]^dgimoqsstuwy{|}~†ŒŽŒŒŽ‹‹ŽŒŒŽŒ†~}|{ywutssqomigd^]]YWWRRNMKFFCDDDDCCA>=<;;;<@@CCCCCBBBBAA@@@@??=;;772..,,**)((&&%%$##""!!!    !!"##$%%%&(()**,,/.337;;==?@@AABABBBBCCEECC@?<<;;>>@CCEEEEEEEJOOQUUVZ\\`bhhkmqrsstvwz||}~‰’’‘’’ŽŽ’’‘’’‰~}||zwvtssrqmkhhb`\\ZVUUQOOJEEEEEEECC@>>;;<><<==BBCGGFFFEHHNNTUUYYZ^_ddelnpqqrsuwyz|}€„‰“––•––•“’’“•––•––“‰„€}|zywusrqqpnledd_^ZYYUUTNNHHEFFFGGCBB==<<>>BCEEEDCCBCBBBAAA@@?==;8844/,,,*))(('%%$$#"""!    !""##$%%''(()**,,/4488;==>>@@@BBBBCCCCCDEFDDAA==<<@@GGGHHGFHKLLRRTX\\]aabgjlpppqrtvxxz|ƒ‡“–™™›š™—••—™š›™™–“‡ƒ|zxxvtrqpppljgbaa]\\XTRRLLKHFGHHGGG@@<<==AADDFEDCCCCCBBBB@@@>>==;8844/,,**)((''%%$##""!   !""##$$%%'(())*,,//448;;===??@AABBCCDCDCDFEEBB??<<>>FFMMKIIIKKKPPVX\\```efkmmopqqssuvz|}ƒ†‹’—™™ž Ÿš™™šŸ ž™™—’‹†ƒ}|zvussqqpommkfe```\\XVPPKKKIIIKMMFF>><>@@@ABBCDDDDDDEEDDAA====CCLLPLJJKKNNOTZZ[__cdijjkopqqqrtvx|}ƒŠŠ–š›œž¤£¡ŸŸ¡£¤žœ›š–ŠŠƒ}|xvtrqqqpokjjidc__[ZZTONNKKJJLPLLCC====AADDEEDDDDDDCBBA@@@>>=<<::844/,,,*))(''%%$##""    !!##$&&''(()**,,/4488:;;===??@@BBCDDEDDDCCDDBB>><<@@KKSRRMOLNNQRXX]]^bchhimnqqqrrsvxz|€€‚„†–›žžŸ¢¤£¡ŸŸ¡£¤¢Ÿžž›–†„‚€€|zxvsrrqqqnmihhcb^]]XXRQNNLOMRRSKK@@<<>>BBDDCCDDDEDDCBB@@??===;;:8844/,,**)((''&&$##!!    !!#$$&&'(())*,,//447::;<<=>>?@ABCCDEEEDCCCCBB@@==>>GGSVVSSOQOQUUV[[_aeefjlooprrrssvzz|~ƒ…‡‹œŸ ¡£§¨§¥££¥§¨§£¡ Ÿœ‹‡…ƒ~|zzvssrrrpooljfeea_[[VUUQOQOSSVVSGG>>==@@BBCCCCDEEEDCCBA@?>>=<<;::744//,,*))(('&&$$#!!    !##$&&''(()*,,,/33799;<<==>>?AABBDDEEECCBBBB@@====CCPPWXXUUTTUUYYY]bbcgillnqqssssuvx|~ƒŠ‘–œ¢£¥¨ª««©§§©««ª¨¥£¢œ–‘Šƒ~|xvussssqqnlligcbb]YYYUUTTUUXXWPPCC====@@BBBBCCEEEDDBBAA?>>==<<;99733/,,,*)((''&&$##!    !!#$$&&'(()++,,.23669::<<<=>??ABBDDEFFEEBBBA@@>>==AALLWZZZZXXXUYY]]aaeefjkopsssuuuxyz€€…ˆ‘•™ ¢§ª¬®®®­««­®®®¬ª§¢ ™•‘ˆ…€€zyxuuussspokjfeeaa]]YYUXXXZZZZWLLAA==>>@@ABBBEEFFEDDBBA??>=<<<::96632.,,++)(('&&$$#!!    !##$&&''(**++,..225889;;<<=??@@BCCEEFFFCCAAA@>>==@@IIUZZ[[\\\]]Z]]aaeeiimmnqruuuwwz{|~ˆŠš ¤¦§®°±±±°¯¯°±±±°®§¦¤ šŠˆ~|{zwwuuurqnmmiieeaa]]Z]]\\\[[ZZUII@@==>>@AAACCFFFEECCB@@??=<<;;988522..,++**(''&&$##!   !!#%%&&'))*++,,.0057799:;<==?@@AABEEFGGFFBBB@??>>??FFORYZ[\\^``aa_bffeimmmqquuuxwwzz{…ˆ”–˜š¤¦§©¬®³´´´´²²´´´´³®¬©§¦¤š˜–”ˆ…{zzwwxuuuqqmmmieffb_aa``^\\[ZYROFF??>>??@BBBFFGGFEEBAA@@?==<;:9977500.,,++*))'&&%%#!!  !##%%&(()**++,--033779::<<=>>@AABDDFFHHHEEBAA?>>??BDLVVZZ[\]^`bbddggjjmmqqttuwxzzz~~‹‹’Ÿ ¢¤«¬­¯±³´··¶µµ¶··´³±¯­¬«¤¢ Ÿ’‹‹~~zzzxwuttqqmmjjggddbb`^]\[ZZVVLDB??>>?AABEEHHHFFDDBAA@>>=<<::977330--,++**)((&%%##!  ""#%%'(())**+,,-//26689:;;=>>@@ABBCFFHIIHHDDD@@???BJJTTYZZ\\]^bbddggkjnmqqttvwyyz}}}‚„‡˜šœ§§©ª°±²´µµ¶··¶¸¸¶··¶µµ´²±°ª©§§œš˜‡„‚}}}zyywvttqqmnjkggddbb^]\\ZZYTTJJB???@@DDDHHIIHFFCBBA@@>>=;;:98662//-,,+**))(('%%#""  ""##%%'((***++,--/2256899;==>@@ABBCEEHHIJJHHHCC@@?BHHRRXXZ[[]]`bdegkkkoqqqtvvvxx{|}€Œ”£¤¥¦­®®°¶¶··¸¹¹¹¹¸¸¹¹¹¹¸··¶¶°®®­¦¥¤£”Œ€}|{xxvvvtqqqokkkgedb`]][[ZXXRRHHB?@@CCHHHJJIHHEECBBA@@>==;9986522/--,++***(('%%##""   ""##%''(**+,+,,-//145779;;<>>@AABCCEGGIKKKKLHHCC@@CHPPWWZZ[]]``chhhlpptruuxwxxyy}}~‡‡‰œŸ¡¬¬­²³³´µ¹¹ºº»»»»ºº»»»»ºº¹¹µ´³³²­¬¬¡Ÿœ‰‡‡~}}yyxxwxuurtpplhhhc``]][ZZWWPPHC@@CCHHLKKKKIGGECCBAA@>><;;977541//-,,+,+**(''%##""   !!"$$&&'))*++,,,--/004469::<>>@@AABCCEGGIKLLLMMIICCEHHPVVYY[\\__chhnnsruuwwyxzyyxz{‚„…•˜œ©ª«±±²··¸¸¹¼¼¼½½½½¼¼½½½½¼¼¼¹¸¸··²±±«ª©œ˜•…„‚{zxyyzxywwuursnnhhc__\\[YYVVPHHECCIIMMLLLKIGGECCBAA@@>><::964400/--,,,++*))'&&$$"!!   !##%$&((*)*++,,,-..033688:<<=>@AABDDEEGIIKMLNONNIIJJJPUUYYZ[\^^bchootswvxyyyzyyzz€€‘¢¤¦®®°´µµ¶¹º»»»¾¾¾¿¿¿¾¾¿¿¿¾¾¾»»»º¹¶µµ´°®®¦¤¢‘€€zzyyzyyyxvwstoohcb^^\[ZYYUUPJJJIINNONLMKIIGEEDDBAA@>=<<:886330..-,,,++*)*((&$%##!    "##%'')**++,,--.-.0035578:;<=??ACCDEEGIIKKMOOQQOOPNNQQVXXZ\\^aaggnovuyyyyyyyzzzzŽŸ¡¢«¬­²³³·¸¹¼¼½½½¾ÀÀÀÁÁÀÀÁÁÀÀÀ¾½½½¼¼¹¸·³³²­¬«¢¡ŸŽzzzzyyyyyyyuvonggaa^\\ZXXVQQNNPOOQQOOMKKIIGEEDCCA??=<;:8755300.-.--,,++**)''%##"   ! ""#%%'))+,+,----.//0224579;;==?AACDDEGGIKKMOOQRRRPSSSSVVYZ\\^^aeemmvv|}zyyyyzzz~~~‹Œž¨©ª¯±µ¶¶ºº»¼¾¾¿¿¿ÂÂÂÂÂÁÁ¿¿¿¾¾¼»ºº¶¶µ±¯ª©¨žŒ‹~~~zzzyyyyz}|vvmmeea^^\\ZYVVSSSSPRRRQOOMKKIGGEDDCAA?==;;9754220//.----,+,+))'%%#"" !  !!"$#%((*++,,----../00124668;;?ACCEGGIJJLLLNPQSUWWXZZZZ\\\\^^`beekuu€‚‡ƒ~{{zz}}‡——¡¢¨¨¯¯µµ··¹»»¾¾ÀÀÀÁÃÃÄÄÄÅÆÆÅÅÆÆÅÄÄÄÃÃÁÀÀÀ¾¾»»¹··µµ¯¯¨¨¢¡——‡}}zz{{~ƒ‡‚€uukeeb`^^\\\\ZZZZXWWUSQPNLLLJJIGGECCA?><::8863110//...---,,+**(&&$%#!!    !!#%%')(*++,---..../00135578:<<>AACEEHILLLNNNPPSSUWYZZ[[\]]]^^`beeiiq||†††|}z~†‡•–Ÿ¡¦¨­®³µ´µ¶²·¶»¿ÁÁÂÂÄÅÅÆÆÆÆÇÆÆÇÆÆÆÆÅÅÄÂÂÁÁ¿»¶·²¶µ´µ³®­¨¦¡Ÿ–•‡†~z}|†††||qiieeb`^^]]]\[[ZZYWUSSPPNNNLLLIHEECAA><<:87553100/....---,++*()'%%#!!    !##%%'))*++,---...//011355799<>>ACEEHJJMNNOOOPRRTWWYZZ[\]]^^_`bbehhnnx„„Šƒƒ€€‡‡“”ž¤¥«¬²²²²°°±±²´´¼ÁÂÃÃÅÅÆÆÇÇÈÈÆÆÈÈÇÇÆÆÅÅÃÃÂÁ¼´´²±±°°²²²²¬«¥¤ž”“‡‡€€ƒƒŠ„„xnnhhebb`_^^]]\[ZZYWWTRRPOOONNMJJHEECA>><997553110//...---,++*))'%%##!    !!#%%'')**+,,---.../001235779<<>AACFEHKJMNNPPRPRSVVYZZ\\]^^^`aabeehllq|€‰Šˆ…‚‚ˆ‡’“£¤©ª°±²²®¯°°²²³´¶¿ÂÄÄÅÇÇÈÈÈÉÉÈÈÉÉÈÈÈÇÇÅÄÄ¿¶´³²²°°¯®²²±°ª©¤£“’‡ˆ‚‚…ˆŠ‰€|qllheebaa`^^^]\\ZZYVVSRPRPPNNMJKHEFCAA><<977532100/...---,,+**)''%%#!!    !!#%%'))*++,---...//011225799<>>ACCFIILMMOPQQRSSSUVXZ\\^___aaaccfillqyy†Š††Š‰’œœ¢¢§©®²²®®®¯¯³²µ´¶¶ºÂÄÅÆÈÈÉÉÊÊÊÉÉÊÊÊÉÉÈÈÆÅ嶶´µ²³¯¯®®®²²®©§¢¢œœ’‰Š††Š†yyqllifccaaa___^\\ZXVUSSSRQQPOMMLIIFCCA>><997522110//...---,++*))'%%#!!   !##%'')**+,,---...//01135779<<>AACGGJLNNOPPQRRSTTUVVX\]__``bbddgjmmqqw‚‚Œ‰‹‹““›¢¢¦¬¬²²¯®­®²³¹¸¼º¶¸º¿ÅÆÇÈÉÊÊËËËÊÊËËËÊÊÉÈÇÆÅ¿º¸¶º¼¸¹³²®­®¯²²¬¬¦¢¢›““‹‹‰Œ‚‚wqqmmjgddbb``__]\XVVUTTSRRQPPONNLJGGCAA><<97753110//...---,,+**)''%##!  !!##%'')**+,,---.../001335779<<>ACCGJJLNNOPQQRSUTUVVWZZ\_aabddeikknrrww‰•“’Œ‘šš¡¡¦««±±±­¬°±¸¹½½¼¾¼»¹ÀÄÇÈÉÊËÌÌÌÌËËÌÌÌÌËÊÉÈÇÄÀ¹»¼¾¼½½¹¸±°¬­±±±««¦¡¡šš‘Œ’“•‰wwrrnkkieddbaa_\ZZWVVUTUSRQQPONNLJJGCCA><<977533100/...---,,+**)''%##!!  "!#%%'))*++,,,--.../0113557::<>>ADCGJLLNOOPQRRSUUVVWWY[^^`bbdgfjmppux~~†““—––ž ¥©ª®³²­­¯¯·¼½½ÀÀÂÀ¾¾»ÆÈÉÊËÌÍÍÍÍÌÌÍÍÍÍÌËÊÉÈÆ»¾¾ÀÂÀÀ½½¼·¯¯­­²³®ª©¥ ž––—““†~~xuppmjfgdbb`^^[YWWVVUUSRRQPOONLLJGCDA>><::7553110/...--,,,++*))'%%#!"  ""#%''))*++,,,-...//0244588:<<>AADGKKMNNOPQQRSSUVWWWYY[\``beehkoosvzz~……Ž˜™›”‘“›¢¢§¨­³³¯®®³µ»¼¿ÀÂÂÄÃÁ¾¿ÉÊËËÍÎÎÎÏÍÍÏÎÎÎÍËËÊÉ¿¾ÂÁÃÄÂÂÀ¿¼»µ³®®¯³³­¨§¢¢›“‘”›™˜Ž……~zzvsookheeb``\[YYWWWVUSSRQQPONNMKKGDAA><<:8854420//...-,,,++*))''%#""  "##%'')**+,,,--.../00246688:<<>ADHHKMMNOOPQQRSTUVWXXYZZ\_addhllptww{ƒ€ˆŽ––›šš”–˜£¥ª°²²±®±²¹¾¾¿ÁÂÄÄÅÅÆÁ¿ÄËÌÍÎÏÏÏÐÎÎÐÏÏÏÎÍÌËÄ¿ÁÆÅÅÄÄÂÁ¿¾¾¹²±®±²²°ª¥£˜–”šš›––Žˆ€ƒ{wwtpllhdda_\ZZYXXWVUTSRQQPOONMMKHHDA><<:88664200/...--,,,+**)''%##"  ""$&&'')*++,,,-../000224778::@ACEHHLPSSVXZZZZZZZZ[Z\]^^^`cgglqxƒƒ…‡ŠŒŽ‹ˆ‡ˆ‹””ž ¡£¦²¶¶¶·¼½½ÂÄÇÉËÌÍÌÌËËÌÍÍÈÉÓÔÖ×ÖÌÌÖ×ÖÔÓÉÈÍÍÌËËÌÌÍÌËÉÇĽ½¼·¶¶¶²¦£¡ ž””‹ˆ‡ˆ‹ŽŒŠ‡…ƒƒxqlggc`^^^]\Z[ZZZZZZZZXVSSPLHHECA@><<;977544211/.--,+++**)''&$$"!! !""$$&'))*++++,-../112445799:<<>@BBEGKLOSVVYZZZZZZZZ\]]^__aacglqvv}ƒ……‡ŠŽŽŽ‹‰Š‹’˜› ¡¢ª®´··»¼¼ÀÄÅÇÊËÍÍÍÌËÊËÌÍÅÈÔÕ××ÓÏÏÓ××ÕÔÈÅÍÌËÊËÌÍÍÍËÊÇÅÄÀ¼¼»··´®ª¢¡ ›˜’‹Š‰‹ŽŽŽŠ‡……ƒ}vvqlgcaa__^]]\ZZZZZZZZYVVSOLKGEBB@><<:997544211/..-,++++*))'&$$""!  ""#%%'))*++,--.///122455789:<>>@BEEGKKNRVYYZ[[[Z[[[]^_^``adihmrvv{‚…ˆˆŠŽŠŠ“–›¡¢¢¤®¶¸¸¹¼½¾ÂÆÉÊÌÎÎÎÍËÉÊÌÌÇÊÔÖ×ÖÑÑÑÑÖ×ÖÔÊÇÌÌÊÉËÍÎÎÎÌÊÉƾ½¼¹¸¸¶®¤¢¢¡›–“ŠŠŽŠˆˆ…‚{vvrmhida``^_^][[[Z[[[ZYYVRNKKGEEB@>><:987554221///.--,++*))'%%#""    ""#%%'((*++,--./0012245578::<>>@BEGGJMMRVYY[\[[[[\]]_`aaabeiinsv{…ˆ‹ŽŽŽ‹ŠŠŒ“–šŸ ¢£§ªµ¸¹»¼½¿ÄÇÈÊÍÎÏÏÍËÉÉËËÆÍÕ×ÖÓÑÓÓÑÓÖ×ÕÍÆËËÉÉËÍÏÏÎÍÊÈÇÄ¿½¼»¹¸µª§£¢ Ÿš–“ŒŠŠ‹ŽŽŽ‹ˆ…{vsniiebaaa`_]]\[[[[\[YYVRMMJGGEB@>><::8755422100/.--,++*(('%%#""    !!#$$&((*+,,-../0012245668::<>@@BDGGIMQQUY[[\\\\\\^``aaaacgkpttw{„„ˆ‹ŽŽ‹Š‘“–šž£¤¤¦«µºº»¼½ÁÄÆÉËÌÎÏÏÎÉÈÈËÉÇÑÖ×ÔÑÔÔÔÔÑÔ×ÖÑÇÉËÈÈÉÎÏÏÎÌËÉÆÄÁ½¼»ººµ«¦¤¤£žš–“‘Š‹ŽŽ‹ˆ„„{wttpkgcaaaa``^\\\\\\[[YUQQMIGGDB@@><::8665422100/..-,,+*((&$$#!!    !##$&&())+,,-../0112445668:<<>@BBEGIILOQSX[]]]]]\]_accbceiimqtww{~ƒ‡‰‹‹‹ŒŠ‹‹’•–™™ž¢¥¦¨©²¸»¼¾½¿ÃÇÊËÍÏÏÐÏËÇÈÊÈÉÓÖÖÒÔÖÕÕÖÔÒÖÖÓÉÈÊÈÇËÏÐÏÏÍËÊÇÿ½¾¼»¸²©¨¦¥¢ž™™–•’‹‹ŠŒ‹‹‹‰‡ƒ~{wwtqmiiecbcca_]\]]]]][XSQOLIIGEBB@><<:8665442110/..-,,+))(&&$##!    !""$%%())+,,-../0112445688:<<>@BBEGIILNRSX[]]^_]^^_bcddeginnqtwzz}‚…†‰‰ˆ‰Š‹Ž”“–˜™ž£¢¦§©«³º»½¾¿ÀÄÅÈËÎÐÐÐÎÊÆÇÈÉËÕÖÕÒÕ×ÖÖ×ÕÒÕÖÕËÉÈÇÆÊÎÐÐÐÎËÈÅÄÀ¿¾½»º³«©§¦¢£ž™˜–“”Ž‹Š‰ˆ‰‰†…‚}zzwtqnnigeddcb_^^]_^]][XSRNLIIGEBB@><<:8865442110/..-,,+))(%%$""!    !""$%%'((*+--.//0113445688:<>>@CCEHJLLNRRV[^_^___``bdffhjlorrtvx{}}ƒ„‡ˆˆ‰‹•š˜š››£¨ª¨ª«¯·¼¾¿¿ÀÂÆÉÍÎÐÑÑÏÊÆÆÇÈÐÕÔÒÔÖ××××ÖÔÒÔÕÐÈÇÆÆÊÏÑÑÐÎÍÉÆÂÀ¿¿¾¼·¯«ª¨ª¨£››š˜š•‹‰ˆˆ‡„ƒ}}{xvtrroljhffdb``___^_^[VRRNLLJHECC@>><:8865443110//.--+*(('%%$""!    ""#$''(**+--.//011345568::<>>ADGGHJLLNQTTY^__```acbehjllnprttuwz}€€‚„†‡‰‰‹‘—œžœž§«­­¯²´º¿ÀÀÁÃÅÈËÏÑÑÒÏÉÆÆÈËÓÓÑÑÕÖØØØØÖÕÑÑÓÓËÈÆÆÉÏÒÑÑÏËÈÅÃÁÀÀ¿º´²¯­­«§žœžœ—‘‹‰‰‡†„‚€€}zwuttrpnlljhebca```__^YTTQNLLJHGGDA>><::865543110//.--+**(''$#""    "##$&&'))*,,-//013345568::<@DADGJJKMLNPTYY]`aabbaccfhkmooqrtuuwz}ƒ…‡‰Œ‘‘™ž¡¡ŸŸ¡¥ª®¯°²¶½ÀÀÁÂÃÆÉÎÎÑÓÓÏÊÆÇÍÐÓÓÐÓÕÖØØØØÖÕÓÐÓÓÐÍÇÆÊÏÓÓÑÎÎÉÆÃÂÁÀÀ½¶²°¯®ª¥¡ŸŸ¡¡ž™‘‘Œ‰‡…ƒ}zwuutrqoomkhfccabbaa`]YYTPNLMKJJGDAD@<::865543310//-,,*))'&&$##"    !##$%&'))*,,-//023345578::<@DDHLNNOOPNPSWW\`bddbbcffikmppqstuxx{}ƒ„„†‰Œ’š¡ ¢¢¢ £¥ª°°±³µº¿ÂÃÄÃÆÉÍÐÒÔÔÑÌÇÌÍÓÒÐÓÕÖÖ×ØØ×ÖÖÕÓÐÒÓÍÌÇÌÑÔÔÒÐÍÉÆÃÄÿºµ³±°°ª¥£ ¢¢¢ ¡š’Œ‰†„„ƒ}{xxutsqppmkiffcbbddb`\WWSPNPOONNLHDD@<::875543320//-,,*))'&%$##!    !##$%%'((*+--/0023345778::>CIINQRNOOPPQRUYY^bddddeffiknpqqstvx{{}~€‚ƒ……ˆŒ’›¢¤££¢£¤§¨¬±³µµ¸½ÂÄÅÆÈÌÏÒÒÔÕÔÏÎÌÓÓÑÑÖÖÖÕ×ÙÙ×ÕÖÖÖÑÑÓÓÌÎÏÔÕÔÒÒÏÌÈÆÅĽ¸µµ³±¬¨§¤£¢££¤¢›’Œˆ……ƒ‚€~}{{xvtsqqpnkiffeddddb^YYURQPPOONRQNIIC>::8775433200/--+*(('%%$##!    !""#%%'((*+--/0023346779>GPTTVXYYZZ[[\]__`bceegikllnpruwwy{|}{{|}~€‚„‡‰Œ ®³µµ··¸º»½¿ÁÁÃÅÇÊÌÏÑÒÔÖ×ÙÚÚÛÜÚÚÙÝÝÝÝÛÛÛÛÛÛÛÛÝÝÝÝÙÚÚÜÛÚÚÙ×ÖÔÒÑÏÌÊÇÅÃÁÁ¿½»º¸··µµ³® Œ‰‡„‚€~}|{{}|{ywwurpnllkigeecb`__]\[[ZZYYXVTTPG>>9755311/-++)''&%%$##"!!    !!"##$%%&'')++-/1135579>>GPTTVXYYZZ[[\]__`bceegikllnpruwwy{|}€‚ƒ„††‡ˆŠŒž®´¶¶¸º¼¾¿ÁÃÄÆÈÉËÌÎÏÑÓÔÖ×ÙÚÛÛÜÜÝÚÞÞÞßßÞÞßßÞÞßßÞÞÞÚÝÜÜÛÛÚÙ×ÖÔÓÑÏÎÌËÉÈÆÄÃÁ¿¾¼º¸¶¶´®žŒŠˆ‡††„ƒ‚€}|{ywwurpnllkigeecb`__]\[[ZZYYXVTTPG>>9755311/-++)''&%%$##"!!    !!"##$%%&'')++-/1135579>>GPTTVXYYZZ[[\]__`bceegikllnpruwwy{|}€‚ƒ„††‡ˆŠŒž®´¶¶¸º¼¾¿ÁÃÄÆÈÉËÌÎÏÑÓÔÖ×ÙÚÛÛÜÜÝÚÞÞÞßßÞÞßßÞÞßßÞÞÞÚÝÜÜÛÛÚÙ×ÖÔÓÑÏÎÌËÉÈÆÄÃÁ¿¾¼º¸¶¶´®žŒŠˆ‡††„ƒ‚€}|{ywwurpnllkigeecb`__]\[[ZZYYXVTTPG>>9755311/-++)''&%%$##"!!    !!"##$%%&'')++-/1135579>>GPTTVXYYZZ[[\]__`bceegikllnpruwwy{|}{{|}~€‚„‡‰Œ ®³µµ··¸º»½¿ÁÁÃÅÇÊÌÏÑÒÔÖ×ÙÚÚÛÜÚÚÙÝÝÝÝÛÛÛÛÛÛÛÛÝÝÝÝÙÚÚÜÛÚÚÙ×ÖÔÒÑÏÌÊÇÅÃÁÁ¿½»º¸··µµ³® Œ‰‡„‚€~}|{{}|{ywwurpnllkigeecb`__]\[[ZZYYXVTTPG>>9755311/-++)''&%%$##"!!    !!"##$%%&(()++-/1135569==EOTTVWWWVVWWWXZZ[]_bbehjmmoqtvvxz|{{yy{|~€€€‚ƒ†‰Œ“¤¯²°¯¯°³µ¸º½¿ÁÃÅÇÉËÍÐÒÔÖ×ÙÙÚÛØÙÜÝÝÝÝÝÛÛÛÚÚÛÛÛÝÝÝÝÝÜÙØÛÚÙÙ×ÖÔÒÐÍËÉÇÅÃÁ¿½º¸µ³°¯¯°²¯¤“Œ‰†ƒ‚€€€~|{yy{{|zxvvtqommjhebb_][ZZXWWWVVWWWVTTOE==9655311/-++)((&%%$##"!!    !!!"##$%%&(()++-/1135569==EOTTVWWWUUUUVVWWXZ\__beillorsuuxzvuwzz|}~‚ƒ†‰ª­­­­­¯²µ¸º½¿ÁÃÅÇÉËÍÏÒÔÖ×ØÙÚÙÙÜÜÝÝÝÝÝÜÚÙÛÛÙÚÜÝÝÝÝÝÜÜÙÙÚÙØ×ÖÔÒÏÍËÉÇÅÃÁ¿½º¸µ²¯­­­­­ª‰†ƒ‚~}|zzwuvzxuusrollieb__\ZXWWVVUUUUWWWVTTOE==9655311/-++)((&%%$##"!!!    !!!"##$&&'((*,,./1135568<CIINQRNOOPPQRUYY^bddddeffiknpqqstvx{{}~€‚ƒ……ˆŒ’›¢¤££¢£¤§¨¬±³µµ¸½ÂÄÅÆÈÌÏÒÒÔÕÔÏÎÌÓÓÑÑÖÖÖÕ×ÙÙ×ÕÖÖÖÑÑÓÓÌÎÏÔÕÔÒÒÏÌÈÆÅĽ¸µµ³±¬¨§¤£¢££¤¢›’Œˆ……ƒ‚€~}{{xvtsqqpnkiffeddddb^YYURQPPOONRQNIIC>::8775433200/--+*(('%%$##!    !##$%&'))*,,-//023345578::<@DDHLNNOOPNPSWW\`bddbbcffikmppqstuxx{}ƒ„„†‰Œ’š¡ ¢¢¢ £¥ª°°±³µº¿ÂÃÄÃÆÉÍÐÒÔÔÑÌÇÌÍÓÒÐÓÕÖÖ×ØØ×ÖÖÕÓÐÒÓÍÌÇÌÑÔÔÒÐÍÉÆÃÄÿºµ³±°°ª¥£ ¢¢¢ ¡š’Œ‰†„„ƒ}{xxutsqppmkiffcbbddb`\WWSPNPOONNLHDD@<::875543320//-,,*))'&%$##!    "##$&&'))*,,-//013345568::<@DADGJJKMLNPTYY]`aabbaccfhkmooqrtuuwz}ƒ…‡‰Œ‘‘™ž¡¡ŸŸ¡¥ª®¯°²¶½ÀÀÁÂÃÆÉÎÎÑÓÓÏÊÆÇÍÐÓÓÐÓÕÖØØØØÖÕÓÐÓÓÐÍÇÆÊÏÓÓÑÎÎÉÆÃÂÁÀÀ½¶²°¯®ª¥¡ŸŸ¡¡ž™‘‘Œ‰‡…ƒ}zwuutrqoomkhfccabbaa`]YYTPNLMKJJGDAD@<::865543310//-,,*))'&&$##"    ""#$''(**+--.//011345568::<>>ADGGHJLLNQTTY^__```acbehjllnprttuwz}€€‚„†‡‰‰‹‘—œžœž§«­­¯²´º¿ÀÀÁÃÅÈËÏÑÑÒÏÉÆÆÈËÓÓÑÑÕÖØØØØÖÕÑÑÓÓËÈÆÆÉÏÒÑÑÏËÈÅÃÁÀÀ¿º´²¯­­«§žœžœ—‘‹‰‰‡†„‚€€}zwuttrpnlljhebca```__^YTTQNLLJHGGDA>><::865543110//.--+**(''$#""    !""$%%'((*+--.//0113445688:<>>@CCEHJLLNRRV[^_^___``bdffhjlorrtvx{}}ƒ„‡ˆˆ‰‹•š˜š››£¨ª¨ª«¯·¼¾¿¿ÀÂÆÉÍÎÐÑÑÏÊÆÆÇÈÐÕÔÒÔÖ××××ÖÔÒÔÕÐÈÇÆÆÊÏÑÑÐÎÍÉÆÂÀ¿¿¾¼·¯«ª¨ª¨£››š˜š•‹‰ˆˆ‡„ƒ}}{xvtrroljhffdb``___^_^[VRRNLLJHECC@>><:8865443110//.--+*(('%%$""!    !""$%%())+,,-../0112445688:<<>@BBEGIILNRSX[]]^_]^^_bcddeginnqtwzz}‚…†‰‰ˆ‰Š‹Ž”“–˜™ž£¢¦§©«³º»½¾¿ÀÄÅÈËÎÐÐÐÎÊÆÇÈÉËÕÖÕÒÕ×ÖÖ×ÕÒÕÖÕËÉÈÇÆÊÎÐÐÐÎËÈÅÄÀ¿¾½»º³«©§¦¢£ž™˜–“”Ž‹Š‰ˆ‰‰†…‚}zzwtqnnigeddcb_^^]_^]][XSRNLIIGEBB@><<:8865442110/..-,,+))(%%$""!    !##$&&())+,,-../0112445668:<<>@BBEGIILOQSX[]]]]]\]_accbceiimqtww{~ƒ‡‰‹‹‹ŒŠ‹‹’•–™™ž¢¥¦¨©²¸»¼¾½¿ÃÇÊËÍÏÏÐÏËÇÈÊÈÉÓÖÖÒÔÖÕÕÖÔÒÖÖÓÉÈÊÈÇËÏÐÏÏÍËÊÇÿ½¾¼»¸²©¨¦¥¢ž™™–•’‹‹ŠŒ‹‹‹‰‡ƒ~{wwtqmiiecbcca_]\]]]]][XSQOLIIGEBB@><<:8665442110/..-,,+))(&&$##!    !!#$$&((*+,,-../0012245668::<>@@BDGGIMQQUY[[\\\\\\^``aaaacgkpttw{„„ˆ‹ŽŽ‹Š‘“–šž£¤¤¦«µºº»¼½ÁÄÆÉËÌÎÏÏÎÉÈÈËÉÇÑÖ×ÔÑÔÔÔÔÑÔ×ÖÑÇÉËÈÈÉÎÏÏÎÌËÉÆÄÁ½¼»ººµ«¦¤¤£žš–“‘Š‹ŽŽ‹ˆ„„{wttpkgcaaaa``^\\\\\\[[YUQQMIGGDB@@><::8665422100/..-,,+*((&$$#!!    ""#%%'((*++,--./0012245578::<>>@BEGGJMMRVYY[\[[[[\]]_`aaabeiinsv{…ˆ‹ŽŽŽ‹ŠŠŒ“–šŸ ¢£§ªµ¸¹»¼½¿ÄÇÈÊÍÎÏÏÍËÉÉËËÆÍÕ×ÖÓÑÓÓÑÓÖ×ÕÍÆËËÉÉËÍÏÏÎÍÊÈÇÄ¿½¼»¹¸µª§£¢ Ÿš–“ŒŠŠ‹ŽŽŽ‹ˆ…{vsniiebaaa`_]]\[[[[\[YYVRMMJGGEB@>><::8755422100/.--,++*(('%%#""    ""#%%'))*++,--.///122455789:<>>@BEEGKKNRVYYZ[[[Z[[[]^_^``adihmrvv{‚…ˆˆŠŽŠŠ“–›¡¢¢¤®¶¸¸¹¼½¾ÂÆÉÊÌÎÎÎÍËÉÊÌÌÇÊÔÖ×ÖÑÑÑÑÖ×ÖÔÊÇÌÌÊÉËÍÎÎÎÌÊÉƾ½¼¹¸¸¶®¤¢¢¡›–“ŠŠŽŠˆˆ…‚{vvrmhida``^_^][[[Z[[[ZYYVRNKKGEEB@>><:987554221///.--,++*))'%%#""  !""$$&'))*++++,-../112445799:<<>@BBEGKLOSVVYZZZZZZZZ\]]^__aacglqvv}ƒ……‡ŠŽŽŽ‹‰Š‹’˜› ¡¢ª®´··»¼¼ÀÄÅÇÊËÍÍÍÌËÊËÌÍÅÈÔÕ××ÓÏÏÓ××ÕÔÈÅÍÌËÊËÌÍÍÍËÊÇÅÄÀ¼¼»··´®ª¢¡ ›˜’‹Š‰‹ŽŽŽŠ‡……ƒ}vvqlgcaa__^]]\ZZZZZZZZYVVSOLKGEBB@><<:997544211/..-,++++*))'&$$""! !!"$$&'')**+++,--./112445779;<<>@ACEHHLPSSVXZZZZZZZZ[Z\]^^^`cgglqxƒƒ…‡ŠŒŽ‹ˆ‡ˆ‹””ž ¡£¦²¶¶¶·¼½½ÂÄÇÉËÌÍÌÌËËÌÍÍÈÉÓÔÖ×ÖÌÌÖ×ÖÔÓÉÈÍÍÌËËÌÌÍÌËÉÇĽ½¼·¶¶¶²¦£¡ ž””‹ˆ‡ˆ‹ŽŒŠ‡…ƒƒxqlggc`^^^]\Z[ZZZZZZZZXVSSPLHHECA@><<;977544211/.--,+++**)''&$$"!!   !!"$$&(()**+++,--.//12246779;;=?AACFIIMPPSVXXYYYYYZZZZ\\\]^_cchmssy€ƒ„„‰Œ‰‰‡ˆ‹™   ¡ª´µµ¶¶»½¿ÀÅÆÉËËÌËËÌÌÍÍÍÈËÓÔÕÖÖÍÍÖÖÕÔÓËÈÍÍÍÌÌËËÌËËÉÆÅÀ¿½»¶¶µµ´ª¡   ™‹ˆ‡‰‰Œ‰„„ƒ€yssmhcc_^]\\\ZZZZYYYYYXXVSPPMIIFCAA?=;;97764221//.--,+++**)((&$$"!!    !!""$&&())*+++,--.//122466799;=??ACFFIMPPSVUWXYXYYYYYZ[\[\]``cinsu{ƒƒƒ…ŠŒŒ‹‡‡‰‰‹Ž—  Ÿ ¦²µµ´¶½½½ÁÂÆÇÉËËËËÌÌÍÍÌÆÏÓÓÕÕÕÏÏÕÕÕÓÓÏÆÌÍÍÌÌËËËËÉÇÆÂÁ½½½¶´µµ²¦ Ÿ  —Ž‹‰‰‡‡‹ŒŒŠ…ƒƒƒ{usnic``]\[\[ZYYYYYXYXWUVSPPMIFFCA??=;997664221//.--,+++*))(&&$""!!    !""$&&())*+++,,-../002446799;==?ADDGJKMPRRUVXXXYYYYYZZZZ[[]`djjov}ƒ„ƒ…Š‰Š‡††‡‰ŒŒ—ŸŸŸž£¯²µ´´´¹¼¾¿ÁÄÇÈÊÊËËÌÌÌÌÊÃÎÒÔÔÔÕÒÒÕÔÔÔÒÎÃÊÌÌÌÌËËÊÊÈÇÄÁ¿¾¼¹´´´µ²¯£žŸŸŸ—ŒŒ‰‡††‡Š‰Š…ƒ„ƒ}vojjd`][[ZZZZYYYYYXXXVURRPMKJGDDA?==;997644200/..-,,+++*))(&&$""!    !""$$&(()*++++,-../002435779;==?AADGKKMPRRTVUWXXXXYYYYZZ[[]aaekpvv}„ƒ„…‡ˆ‡‡‡ˆˆŠ‘  žŸ¢§´´´³³¸½¾¾ÁÂÆÆÈÊÊËËËÌËÇÆÐÑÓÓÔÔÓÓÔÔÓÓÑÐÆÇËÌËËËÊÊÈÆÆÂÁ¾¾½¸³³´´´§¢Ÿž  ‘Šˆˆ‡‡‡ˆ‡…„ƒ„}vvpkeaa][[ZZYYYYXXXXWUVTRRPMKKGDAA?==;977534200/..-,++++*)((&$$""!    !!"$$&(()**+,,,--.//02335579;;=?AADGGKMMORSUUWWXXXXXYXYYZ\^^bfkkqw~}„……††‡‡‡‡‹–ŸŸŸž¥©²´³²´µ»¾¿ÀÃÄÇÇÉÉÊÊÊËÈÆÆÐÑÒÓÓÓÓÓÓÓÓÒÑÐÆÆÈËÊÊÊÉÉÇÇÄÃÀ¿¾»µ´²³´²©¥žŸŸŸ–‹‡‡‡‡††……„}~wqkkfb^^\ZYYXYXXXXXWWUUSROMMKGGDAA?=;;97553320//.--,,,+**)((&$$"!!   !!""$&(()**++,,,-.//022355799;=??ADHHKMMOQPSTVVWVUWWXXXYZ]]_bbglqvv{„††…†‡‡‰’’“ œ¤¤¬¯´²±²¶½½¿ÀÂÃÅÆÈÈÉÉÊÉÆÁÎÐÐÑÒÒÒÒÒÒÒÒÑÐÐÎÁÆÉÊÉÉÈÈÆÅÃÂÀ¿½½¶²±²´¯¬¤¤œ “’’‰‡‡†…††„{vvqlgbb_]]ZYXXXWWUVWVVTSPQOMMKHHDA??=;997553220//.-,,,++**)((&$""!! !""$&&())*++,,,-../011324799;<ADHHKMMNOOPQQRSTUVWXXYZZ\_addhllptww{ƒ€ˆŽ––›šš”–˜£¥ª°²²±®±²¹¾¾¿ÁÂÄÄÅÅÆÁ¿ÄËÌÍÎÏÏÏÐÎÎÐÏÏÏÎÍÌËÄ¿ÁÆÅÅÄÄÂÁ¿¾¾¹²±®±²²°ª¥£˜–”šš›––Žˆ€ƒ{wwtpllhdda_\ZZYXXWVUTSRQQPOONMMKHHDA><<:88664200/...--,,,+**)''%##"  ""#%''))*++,,,-...//0244588:<<>AADGKKMNNOPQQRSSUVWWWYY[\``beehkoosvzz~……Ž˜™›”‘“›¢¢§¨­³³¯®®³µ»¼¿ÀÂÂÄÃÁ¾¿ÉÊËËÍÎÎÎÏÍÍÏÎÎÎÍËËÊÉ¿¾ÂÁÃÄÂÂÀ¿¼»µ³®®¯³³­¨§¢¢›“‘”›™˜Ž……~zzvsookheeb``\[YYWWWVUSSRQQPONNMKKGDAA><<:8854420//...-,,,++*))''%#""  "!#%%'))*++,,,--.../0113557::<>>ADCGJLLNOOPQRRSUUVVWWY[^^`bbdgfjmppux~~†““—––ž ¥©ª®³²­­¯¯·¼½½ÀÀÂÀ¾¾»ÆÈÉÊËÌÍÍÍÍÌÌÍÍÍÍÌËÊÉÈÆ»¾¾ÀÂÀÀ½½¼·¯¯­­²³®ª©¥ ž––—““†~~xuppmjfgdbb`^^[YWWVVUUSRRQPOONLLJGCDA>><::7553110/...--,,,++*))'%%#!"  !!##%'')**+,,---.../001335779<<>ACCGJJLNNOPQQRSUTUVVWZZ\_aabddeikknrrww‰•“’Œ‘šš¡¡¦««±±±­¬°±¸¹½½¼¾¼»¹ÀÄÇÈÉÊËÌÌÌÌËËÌÌÌÌËÊÉÈÇÄÀ¹»¼¾¼½½¹¸±°¬­±±±««¦¡¡šš‘Œ’“•‰wwrrnkkieddbaa_\ZZWVVUTUSRQQPONNLJJGCCA><<977533100/...---,,+**)''%##!!  !##%'')**+,,---...//01135779<<>AACGGJLNNOPPQRRSTTUVVX\]__``bbddgjmmqqw‚‚Œ‰‹‹““›¢¢¦¬¬²²¯®­®²³¹¸¼º¶¸º¿ÅÆÇÈÉÊÊËËËÊÊËËËÊÊÉÈÇÆÅ¿º¸¶º¼¸¹³²®­®¯²²¬¬¦¢¢›““‹‹‰Œ‚‚wqqmmjgddbb``__]\XVVUTTSRRQPPONNLJGGCAA><<97753110//...---,,+**)''%##!   !!#%%'))*++,---...//011225799<>>ACCFIILMMOPQQRSSSUVXZ\\^___aaaccfillqyy†Š††Š‰’œœ¢¢§©®²²®®®¯¯³²µ´¶¶ºÂÄÅÆÈÈÉÉÊÊÊÉÉÊÊÊÉÉÈÈÆÅ嶶´µ²³¯¯®®®²²®©§¢¢œœ’‰Š††Š†yyqllifccaaa___^\\ZXVUSSSRQQPOMMLIIFCCA>><997522110//...---,++*))'%%#!!    !!#%%'')**+,,---.../001235779<<>AACFEHKJMNNPPRPRSVVYZZ\\]^^^`aabeehllq|€‰Šˆ…‚‚ˆ‡’“£¤©ª°±²²®¯°°²²³´¶¿ÂÄÄÅÇÇÈÈÈÉÉÈÈÉÉÈÈÈÇÇÅÄÄ¿¶´³²²°°¯®²²±°ª©¤£“’‡ˆ‚‚…ˆŠ‰€|qllheebaa`^^^]\\ZZYVVSRPRPPNNMJKHEFCAA><<977532100/...---,,+**)''%%#!!    !##%%'))*++,---...//011355799<>>ACEEHJJMNNOOOPRRTWWYZZ[\]]^^_`bbehhnnx„„Šƒƒ€€‡‡“”ž¤¥«¬²²²²°°±±²´´¼ÁÂÃÃÅÅÆÆÇÇÈÈÆÆÈÈÇÇÆÆÅÅÃÃÂÁ¼´´²±±°°²²²²¬«¥¤ž”“‡‡€€ƒƒŠ„„xnnhhebb`_^^]]\[ZZYWWTRRPOOONNMJJHEECA>><997553110//...---,++*))'%%##!    !!#%%')(*++,---..../00135578:<<>AACEEHILLLNNNPPSSUWYZZ[[\]]]^^`beeiiq||†††|}z~†‡•–Ÿ¡¦¨­®³µ´µ¶²·¶»¿ÁÁÂÂÄÅÅÆÆÆÆÇÆÆÇÆÆÆÆÅÅÄÂÂÁÁ¿»¶·²¶µ´µ³®­¨¦¡Ÿ–•‡†~z}|†††||qiieeb`^^]]]\[[ZZYWUSSPPNNNLLLIHEECAA><<:87553100/....---,++*()'%%#!!    !!#%$&&(**+,,---...//0113688::<>?ACCEGGIJJLLLNPQSUWWXZZZZ\\\\^^`beekuu€‚‡ƒ~{{zz}}‡——¡¢¨¨¯¯µµ··¹»»¾¾ÀÀÀÁÃÃÄÄÄÅÆÆÅÅÆÆÅÄÄÄÃÃÁÀÀÀ¾¾»»¹··µµ¯¯¨¨¢¡——‡}}zz{{~ƒ‡‚€uukeeb`^^\\\\ZZZZXWWUSQPNLLLJJIGGECCA?><::8863110//...---,,+**(&&$%#!!    !""$$&((*++,---...//0013368::@AABDDEEGIIKMLNONNIIJJJPUUYYZ[\^^bchootswvxyyyzyyzz€€‘¢¤¦®®°´µµ¶¹º»»»¾¾¾¿¿¿¾¾¿¿¿¾¾¾»»»º¹¶µµ´°®®¦¤¢‘€€zzyyzyyyxvwstoohcb^^\[ZYYUUPJJJIINNONLMKIIGEEDDBAA@>=<<:886330..-,,,++*)*((&$%##!   !!"$$&&'))*++,,,--/004469::<>>@@AABCCEGGIKLLLMMIICCEHHPVVYY[\\__chhnnsruuwwyxzyyxz{‚„…•˜œ©ª«±±²··¸¸¹¼¼¼½½½½¼¼½½½½¼¼¼¹¸¸··²±±«ª©œ˜•…„‚{zxyyzxywwuursnnhhc__\\[YYVVPHHECCIIMMLLLKIGGECCBAA@@>><::964400/--,,,++*))'&&$$"!!   ""##%''(**+,+,,-//145779;;<>>@AABCCEGGIKKKKLHHCC@@CHPPWWZZ[]]``chhhlpptruuxwxxyy}}~‡‡‰œŸ¡¬¬­²³³´µ¹¹ºº»»»»ºº»»»»ºº¹¹µ´³³²­¬¬¡Ÿœ‰‡‡~}}yyxxwxuurtpplhhhc``]][ZZWWPPHC@@CCHHLKKKKIGGECCBAA@>><;;977541//-,,+,+**(''%##""   ""##%%'((***++,--/2256899;==>@@ABBCEEHHIJJHHHCC@@?BHHRRXXZ[[]]`bdegkkkoqqqtvvvxx{|}€Œ”£¤¥¦­®®°¶¶··¸¹¹¹¹¸¸¹¹¹¹¸··¶¶°®®­¦¥¤£”Œ€}|{xxvvvtqqqokkkgedb`]][[ZXXRRHHB?@@CCHHHJJIHHEECBBA@@>==;9986522/--,++***(('%%##""  ""#%%'(())**+,,-//26689:;;=>>@@ABBCFFHIIHHDDD@@???BJJTTYZZ\\]^bbddggkjnmqqttvwyyz}}}‚„‡˜šœ§§©ª°±²´µµ¶··¶¸¸¶··¶µµ´²±°ª©§§œš˜‡„‚}}}zyywvttqqmnjkggddbb^]\\ZZYTTJJB???@@DDDHHIIHFFCBBA@@>>=;;:98662//-,,+**))(('%%#""  !##%%&(()**++,--033779::<<=>>@AABDDFFHHHEEBAA?>>??BDLVVZZ[\]^`bbddggjjmmqqttuwxzzz~~‹‹’Ÿ ¢¤«¬­¯±³´··¶µµ¶··´³±¯­¬«¤¢ Ÿ’‹‹~~zzzxwuttqqmmjjggddbb`^]\[ZZVVLDB??>>?AABEEHHHFFDDBAA@>>=<<::977330--,++**)((&%%##!  !!#%%&&'))*++,,.0057799:;<==?@@AABEEFGGFFBBB@??>>??FFORYZ[\\^``aa_bffeimmmqquuuxwwzz{…ˆ”–˜š¤¦§©¬®³´´´´²²´´´´³®¬©§¦¤š˜–”ˆ…{zzwwxuuuqqmmmieffb_aa``^\\[ZYROFF??>>??@BBBFFGGFEEBAA@@?==<;:9977500.,,++*))'&&%%#!!   !##$&&''(**++,..225889;;<<=??@@BCCEEFFFCCAAA@>>==@@IIUZZ[[\\\]]Z]]aaeeiimmnqruuuwwz{|~ˆŠš ¤¦§®°±±±°¯¯°±±±°®§¦¤ šŠˆ~|{zwwuuurqnmmiieeaa]]Z]]\\\[[ZZUII@@==>>@AAACCFFFEECCB@@??=<<;;988522..,++**(''&&$##!    !!#$$&&'(()++,,.23669::<<<=>??ABBDDEFFEEBBBA@@>>==AALLWZZZZXXXUYY]]aaeefjkopsssuuuxyz€€…ˆ‘•™ ¢§ª¬®®®­««­®®®¬ª§¢ ™•‘ˆ…€€zyxuuussspokjfeeaa]]YYUXXXZZZZWLLAA==>>@@ABBBEEFFEDDBBA??>=<<<::96632.,,++)(('&&$$#!!    !##$&&''(()*,,,/33799;<<==>>?AABBDDEEECCBBBB@@====CCPPWXXUUTTUUYYY]bbcgillnqqssssuvx|~ƒŠ‘–œ¢£¥¨ª««©§§©««ª¨¥£¢œ–‘Šƒ~|xvussssqqnlligcbb]YYYUUTTUUXXWPPCC====@@BBBBCCEEEDDBBAA?>>==<<;99733/,,,*)((''&&$##!    !!#$$&&'(())*,,//447::;<<=>>?@ABCCDEEEDCCCCBB@@==>>GGSVVSSOQOQUUV[[_aeefjlooprrrssvzz|~ƒ…‡‹œŸ ¡£§¨§¥££¥§¨§£¡ Ÿœ‹‡…ƒ~|zzvssrrrpooljfeea_[[VUUQOQOSSVVSGG>>==@@BBCCCCDEEEDCCBA@?>>=<<;::744//,,*))(('&&$$#!!    !!##$&&''(()**,,/4488:;;===??@@BBCDDEDDDCCDDBB>><<@@KKSRRMOLNNQRXX]]^bchhimnqqqrrsvxz|€€‚„†–›žžŸ¢¤£¡ŸŸ¡£¤¢Ÿžž›–†„‚€€|zxvsrrqqqnmihhcb^]]XXRQNNLOMRRSKK@@<<>>BBDDCCDDDEDDCBB@@??===;;:8844/,,**)((''&&$##!!    ""##$%%''())*,,,/448::<<=>>@@@ABBCDDDDDDEEDDAA====CCLLPLJJKKNNOTZZ[__cdijjkopqqqrtvx|}ƒŠŠ–š›œž¤£¡ŸŸ¡£¤žœ›š–ŠŠƒ}|xvtrqqqpokjjidc__[ZZTONNKKJJLPLLCC====AADDEEDDDDDDCBBA@@@>>=<<::844/,,,*))(''%%$##""   !""##$$%%'(())*,,//448;;===??@AABBCCDCDCDFEEBB??<<>>FFMMKIIIKKKPPVX\\```efkmmopqqssuvz|}ƒ†‹’—™™ž Ÿš™™šŸ ž™™—’‹†ƒ}|zvussqqpommkfe```\\XVPPKKKIIIKMMFF>><>@@@BBBBCCCCCDEFDDAA==<<@@GGGHHGFHKLLRRTX\\]aabgjlpppqrtvxxz|ƒ‡“–™™›š™—••—™š›™™–“‡ƒ|zxxvtrqpppljgbaa]\\XTRRLLKHFGHHGGG@@<<==AADDFEDCCCCCBBBB@@@>>==;8844/,,**)((''%%$##""!    !"""#$$%%'(())*,,,/4488;==?@@AAABBBCBCCDEEECB>><<==BBCGGFFFEHHNNTUUYYZ^_ddelnpqqrsuwyz|}€„‰“––•––•“’’“•––•––“‰„€}|zywusrqqpnledd_^ZYYUUTNNHHEFFFGGCBB==<<>>BCEEEDCCBCBBBAAA@@?==;8844/,,,*))(('%%$$#"""!    !!"##$%%%&(()**,,/.337;;==?@@AABABBBBCCEECC@?<<;;>>@CCEEEEEEEJOOQUUVZ\\`bhhkmqrsstvwz||}~‰’’‘’’ŽŽ’’‘’’‰~}||zwvtssrqmkhhb`\\ZVUUQOOJEEEEEEECC@>>;;<ACCDDDDCFFKMNRRWWY]]^dgimoqsstuwy{|}~†ŒŽŒŒŽ‹‹ŽŒŒŽŒ†~}|{ywutssqomigd^]]YWWRRNMKFFCDDDDCCA>=<;;;<@@CCCCCBBBBAA@@@@??=;;772..,,**)((&&%%$##""!!!    !!"""##$$%%&&'))**,+.2266:==>>=?@@AAAABBBBC@@<<;;;;;>>AACCCBCCGGINNOTVZZ\``cillorstvxxyz}~‚‚‰Œ‹ˆˆ‹Œ‹‹Œ‹ˆˆ‹Œ‰‚‚~}zyxxvtsrollic``\ZZVTONNIGGCCBCCCAA>>;;;;;<<@@CBBBBAAAA@@?=>>==:6622.+,**))'&&%%$$##"""!!    !""####$%%&&''(***+..115::<<:=?>@@@@@@AA?@@<<:::::<?=:<<::511..+***(''&&%%$####""!    !!!""##$$$%%&&'((**++--00588::;;>>>>>>??>>?<<::999::==??AA@AABCCGILMSSUYYZ_aadjmpptvwwwyyy|ƒ…„‡…„‡ˆ‡††‡ˆ‡„…‡„…ƒ|yyywwwvtppmjdaa_ZYYUSSMLIGCCBAA@AA??==::999::<>??>>>>>>;;::88500--++**(('&&%%$$$##""!!!    !!"""##$$%%%&&&'(())++--/335577;;;;;;;;<<:;;9999899<<>>??@@@AACDDIJJORUWXY\^dffipssuwwwwvvyƒ…„„‚‚ƒ…„ƒƒ„…ƒ‚‚„„…ƒyvvwwwwusspiffd^\YXWUROJJIDDCAA@@@??>><<9989999;;:<<;;;;;;;;775533/--++))(('&&&%%%$$##"""!!    !!!!""###$$%%&&'''(())++,//002277777788999::9988888::===>>??@@AABFFHLLOUUVY[[`cfflptuwwusssy€‚€€€‚‚‚‚€€€‚€ysssuwwutplffc`[[YVUUOLLHFFBAA@@??>>===::8888899::999887777772200//,++))(('''&&%%$$###""!!!!   !!!!"""##$$%%%&&''''(())*,,--,.22333344777997867777899;<==>>>??@@BDFJJMSSUWWX]]`fjjnruuuroovv|~~~~}~€~~€~}~~~~|vvooruuurnjjf`]]XWWUSSMJJFDB@@??>>>==<;99877776879977744333322.,--,,*))((''''&&%%%$$##"""!!!!  !!!!"""####$%%&&&&'''((()**+++,..//001144667676667778899<<==>>>???BBFGGMPPUVVXZ]]cgllrrpploorrw{||{{~€~~€~{{||{wrroolpprrllgc]]ZXVVUPPMGGFBB???>>>==<<998877766676766441100//..,+++**)((('''&&&&%%$####"""!!!!  !!!""""####$$$%%&&&&''((())***+++--..//22446565666677788::<<>>>>>?@@DDFJJNSSTVVXZ``ejoolheljjmttxz|{{{}~||~}{{{|zxttmjjlehlooje``ZXVVTSSNJJFDD@@?>>>>><<::88777666656564422//..--+++***))(((''&&&&%%$$$####""""!!!   !!!""""####$$$%%%%&&'''(((())**++++,,..0033445555556667799;;<==>>>??ABDFHLNQRRUVXZ^ddjicc`eddejquxzzyyyz{zz{zyyyzzxuqjedde`ccijdd^ZXVURRQNLHFDBA??>>>==<;;9977666555555443300..,,++++**))(((('''&&%%%%$$$####""""!!!    !!""""###$$$$%%%&&&'''(((())))**++++,,..223344445555677889:;<====>>?AADGGLLPRSSTXX]aeea[[`_`aagquuwxwwwxyxxyxwwwxwuuqgaa`_`[[aeea]XXTSSRPLLGGDAA?>>====<;:988776555544443322..,,++++**))))(((('''&&&%%%$$$$###""""!!    !!"""####$$$$%%&&&&'''(((((())****++++--00223344444556678899;;===>>?@@ACEJJNOQQRTV[[a``Z[[[\]__gnrruuuuuvwuuwvuuuuurrng__]\[[[Z``a[[VTRQQONJJECA@@?>>===;;99887665544444332200--++++****))(((((('''&&&&%%$$$$####"""!!    !!"######$$%%%%&&'''((()(())******++,,-/002233344455666788::;<<==>>?@ADDIMMOOORRTW]][VZWYZZ[_eelprrsssuvwuuwvusssrrplee_[ZZYWZV[]]WTRROOOMMIDDA@?>>==<<;::887666554443332200/-,,++******))(()((('''&&%%%%$$######"!!    !!""""####$$%%%&&''(((())))******++,,,,//222333444556678899:;;<==>>>@@DGGKMMMPPQTWYYVVVVXY[[^ccjmoossssstsstsssssoomjcc^[[YXVVVVYYWTQPPMMMKGGD@@>>>==<;;:998876655444333222//,,,,++******))))((((''&&%%%$$####""""!!   !!""""###$$%%&&&&''(((())******++++,,..0122333445555677899::;;<==>@@ACFJKLLMMMQTTUSVTUXXYZZ]aggmoppqqqqrqqrqqqqppomgga]ZZYXXUTVSUTTQMMMLLKJFCA@@>==<;;::9987765555443332210..,,++++******))((((''&&&&%%$$###""""!!   """"####$$%%&&&&''(())******++++++--/02233333445566778899:;;<<=>??ADDJJKKKKLNQRRSSSUXXYZ\\`ggkmnnonoooooooononnmkgg`\\ZYXXUSSSRRQNLKKKKJJDDA??>=<<;;:99887766554433333220/--++++++******))((''&&&&%%$$####""""    """"##$$%$%%&&''(())****++++++--//12233334455666778999::;;;==>@@CHHJKJJJLLOPQQRUUXXYY[[`eehkllmlllmmmmlllmllkhee`[[YYXXUURQQPOLLJJJKJHHC@@>==;;;::99987766655443333221//--++++++****))((''&&%%$%$$##""""   """"$#$$%&&&''()))**++++++,,..1113333444556667788999::;<<=@@BCGGJJIIKKMMPOOQUUXYYY[^^cffijjmlllmmmmlllmjjiffc^^[YYYXUUQOOPMMKKIIJJGGCB@@=<<;::9998877666554443333111..,,++++++**)))(''&&&%$$#$""""    !!###%%$&&'((())**+++++,../113333444445566778899:::;;<=??BBFIIIIIJJKNNNPQUUXYYYZ]]addijjjjjjjkkjjjjjjjidda]]ZYYYXUUQPNNNKJJIIIIIFBB??=<;;:::998877665544444333311/..,+++++**))((('&&$%%###!!    !!"##"$$&'''(())**++++,-.//223334444556667788899::;;<<>AAEFHHIHHHKKLLNPPTXXYXXX[[adggihhhhhhhhhhhhhhiggda[[XXXYXXTPPNLLKKHHHIHHFEAA><<;;::998887766655444433322//.-,++++**))(('''&$$"##"!!  !"" ""$&&%''(())**+++,,..1133333445556666778899:::<<=>@@EEHHHGGHJJJLLOSSXXXWVVY__bffgfffeeffffeefffgffb__YVVWXXXSSOLLJJJHGGHHHEE@@>=<<:::9988776666555443333311..,,+++**))((''%&&$"" ""!   !$$#%%&&(())**+++--002233344444556667788899::;;==?DDGHHGGGGHHJJJMRSWWWUTVY]]addeddceeffffeecddedda]]YVTUWWWSRMJJJHHGGGGHHGDD?==;;::998887766655444443332200--+++**))((&&%%#$$!    !! ##$$&&(())***++..01222334445555666778999::;<<>?CCGGGFGFFFHHILMRRUUSUTTW[[_bbeddccccddccccddebb_[[WTTUSUURRMLIHHFFFGFGGGCC?><<;::99987766655554443322210..++***))((&&$$## !!    ""$#&&''((***+,.011222333445556677788899::<>>BBGGGGFEEFFFGGLLPSSUSSRUUY]_bccbbaaaaaaaaaabbccb_]YUURSSUSSPLLGGFFFEEFGGGGBB>><::998887776655544333222110.,+***((''&&#$""   "!##%%&&(((**,,001122233344555666777889:;;>>ABFGGFFDDEDDGGJNNPSSQQQSSY]]`aaa``________``aaa`]]YSSQQQSSPNNJGGDDEDDFFGGFBA>>;;:988777666555443332221100,,**(((&&%%##!" !!""$$&&(((**../00223333344566666778899;==@AEEFGEEDCCBDFIILNPPPOOOSSW[[^___^^________^^___^[[WSSOOOPPPNLIIFDBCCDEEGFEEA@==;99887766666544333332200/..**(((&&$$""!!  ""$$&&%((,,///002223344455666677888::<<@@EEFFECCAABBDGGLLMMMMOOQQUYY\^__^^]]]]]]]]^^__^\YYUQQOOMMMMLLGGDBBAACCEFFEE@@<<::888776666554443322200///,,((%&&$$""     ""##%%%))---//11122333444556667788::>CCFFDDA@@??@EEHHHKJJJLMMRRW[[]]^\\ZYYYYYYZ\\^]][[WRRMMLJJJKHHHEE@??@@ADDFFCC>>;;9987665554443322211///---**&&###!!  ! ##&''*+---//111223344456667789::>BBEFDD@A>>=@@CCFFHHHHHJMMPPUYY\]][[ZYYYYYYZ[[]]\YYUPPMMJHHHHHFFCC@@=>>A@DDFEBB>::987766654443322111//---+*''&## !   #$''(++---///112224445556678::==AAEEDD@@=<=>>AAFFFFFFJJLLNSSXX\]][[YWWWWWWY[[]]\XXSSNLLJJFFFFFFAA>>=<=@@DDEEAA==::876655544422211///---++(''$#    $$%((+++--//0111333444555779:<><<::;??BBBDDDDFFIMMQQVVZ\\ZZWTTSSTTWZZ\\ZVVQQMMIFFDDDDBBB??;::<<>>CCDD??;;9877554333222000...+++))%%%   !!!''))),,,..000022333566688:;>>DDCC>;;99;;==@@BBBBBDFIKKOOUYY[[ZWWTTSSTTWWZ[[YYUOOKKIFDBBBBB@@==;;99;;>CCDD>>;:886665333220000..,,,)))''!!!  $$$''***,,///0012224455779::=BBBB>>::7999;=@AAAAABDDHJJNNUYY[[ZWWSSQQSSWWZ[[YYUNNJJHDDBAAAAA@=;9997::>>BBBB=::9775544222100///,,***''$$$   $%%(((++---//0111333557799;=AAAB==88777:;>>???AAABFFIINSSXXZZZWWRROORRWWZZZXXSSNIIFFBAAA???>>;:77788==BAAA=;9977553331110//---++(((%%$    %%'(()+,,../000122446788:;;?AAA=786666::<<=???@AACFIILQQVVZZYWWRRNNRRWWYZZVVQQLIIFCAA@???=<<::666687=AAA?;;:887644221000/..,,+)(('%%    #%''()),,,,//00022446677::=?@@<<77556688:<==>???ACCHHKOOUUZZYWWRRNNRRWWYZZUUOOKHHCCA???>==<:88665577<<@@?=::77664422000//,,,,))(''%#    %%(((**+,--/0012335557999==??<<6655556::;;<>@@CCHHLLRVVVWXXRRLLRRXXWVVVRLLHHCC@@>><;;97665543335599==::88555422200/.,,+**((($$#  $$$$)))++-..00224444668:;;;994422333366779;;>>??AAGGJJRVVVVWWSSLLSSWWVVVVRJJGGAA??>>;;977663333224499;;;:86644442200..-++)))$$$$  $$$$**+--/022333446688998844222223445588;;==>>@@GGJPPUUVVWWTTMMTTWWVVUUPPJGG@@>>==;;885544322222448899886644333220/--+**$$$$  $$$*++////2224446688796634111122224488::<<=>@@EEINNTTUUVVUUOOUUVVUUTTNNIEE@@>=<<::8844222211114366978866444222////++*$$$  $$#+**///22226666777443311111111446688;<==>BBHHLLTTUUVVUUOOUUVVUUTTLLHHBB>==<;88664411111111334477766662222///**+#$$  ##**&&--**211/633242201000/11222468;;;<>>@BHHLLSSTTUUVVPPVVUUTTSSLLHHB@>><;;;86422211/000102242336/112**--&&**##   """ *&&///00222200//.///004477::<<>>@@GGKKRRTTTTVVRRVVTTTTRRKKGG@@>><<::774400///.//00222200///&&* """    &%%+01112200//..../0336688<<==??EEJJQRTTTTVVRRVVTTTTRQJJEE??==<<8866330/....//00221110+%%&   ++0111000//..-.//114688;;<<>>EEJJQQSSSSVVTTVVSSSSQQJJEE>><<;;886411//.-..//0001110++  $$$000000..-.---..014477::<<>>CCIIOOSSRRVVVVVVRRSSOOIICC>><<::774410..---.-..000000$$$  $---00//----,,-.0003367::<<>>AAHHNNRSRRVVVVVVRRSRNNHHAA>><<::7633000.-,,----//00---$  ''000//--,,,,--//116699;;==@AAHNNRRRQQVVWWVVQQRRRNNHAA@==;;996611//--,,,,--//000''  !'//./---,,,,,,..115588;;==@@GGLLRRQQUUXXXXUUQQRRLLGG@@==;;885511..,,,,,,---/.//'!  !!!**..--,,+++++..003378;;==@@FFKKQQQQUUXXXXUUQQQQKKFF@@==;;873300..+++++,,--..**!!!  **...,-++++++---//3377::==@@FFKKQQQQUUXXXXUUQQQQKKFF@@==::7733//---++++++-,...**  $$,.,,,++++++,,//2226699==@@EEJJQQQQUUYYYYUUQQQQJJEE@@==9966222//,,++++++,,,.,$$  ,,,,++*****,,..1155699<>BBJJPPRRTTYYYYTTRRPPJJBB>>;;;7732//,,,++*****++''    !'+++****++,,.//2266::>>BBBJJPPRRTTXXXXTTRRPPJJBBB>>::6622//.,,++****+++'!    !!))*******,,...1166::>>BBBJJPPRRTTWWWWTTRRPPJJBBB>>::6611...,,*******))!!     #)**))***++--00166::>>AAAJJPPRRTTWWWWTTRRPPJJAAA>>::66100--++***))**)#   ###**))***++--0005599>>AAJJJPPSSTTVVVVTTSSPPJJJAA>>9955000--++***))**###  %**))**+++,,//33399>>AAIIIPPSSTTUUUUTTSSPPIIIAA>>99333//,,+++**))**%  %%%****+++,,./33888==BBHHPPPSSTTUUUUTTSSPPPHHBB==88833/.,,+++****%%%  ***))**,,,..22777<=BBHHPPPSSTTSSSSTTSSPPPHHBB=<77722..,,,**))***  ''*****,,,--1177<<>>EENNUUUXXRRRRXXUUUNNEE>>>88222//+++,,%%%  ((+++..11166=>EEENNUUUXXUUUUXXUUUNNEEE>=66111..+++((  ((-----01666==DDDMMUUUXXYYYYXXUUUMMDDD==66610-----((  **---00555;;BBBKKUUUXXYYYYXXUUUKKBBB;;55500---**  **...//335;;BBBKKSSSXXZZZZXXSSSKKBBB;;533//...**  !!,,,//33399@@@HHQQQWWYYYYWWQQQHH@@@99333//,,,!!  !!,,///22777>@@HHQQQWWYYYYWWQQQHH@@>77722///,,!!  ##...22777>>FFFNNUUUXXXXUUUNNFFF>>77722...##  ##...22555<VALUESunitsAttr0.0Int32VALUESformatAttr0.0 jj¾j½Ñ­ªªª¾j½Ð fakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jjjj ­­­ªª¾j½Ð  Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0«˜c£ª˜c±?«™cðAª™d1C­šdtOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSome data setsVALUES File contentsAttr0.0 ­­­­­­­ªª  swf32.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª"fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª$fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª&fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j+j+¾j+½+Ñ+­ªªª¾j½Ð#()*++fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 j0j0¾j0½0Ñ0­ªªª¾j½Ð%-./00fakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j5j5¾j5½5Ñ5­ªªª¾j½Ð'23455fakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j9j9j9j9¾j9½9Ñ9 ­­­ªª¾j½Ð#%'7899 Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.Test BBBVALUESTest clean formatAttr0.0 ­­­­­­­ªªª#%',16:;<=swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª?fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªAfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªCfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jHjH¾jH½HÑH­ªªª¾j½Ð@EFGHHfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jMjM¾jM½MÑM­ªªª¾j½ÐBJKLMMfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jRjR¾jR½RÑR­ªªª¾j½ÐDOPQRRfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jVjVjVjV¾jV½VÑV ­­­ªª¾j½Ð@BDTUVV Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.<<<VALUESTest clean formatAttr0.0 ­­­­­­­ªªª@BDINSWXYZswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª\fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª^fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª`fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jeje¾je½eÑe­ªªª¾j½Ð]bcdeefakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jjjj¾jj½jÑj­ªªª¾j½Ð_ghijjfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jojo¾jo½oÑo­ªªª¾j½ÐalmnoofakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jsjsjsjs¾js½sÑs ­­­ªª¾j½Ð]_aqrss Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end<<<VALUESTest clean formatAttr0.0 ­­­­­­­ªªª]_afkptuvwswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ªyfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª{fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª}fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j‚j‚¾j‚½‚Ñ‚­ªªª¾j½Ðz€‚‚fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 j‡j‡¾j‡½‡ч­ªªª¾j½Ð|„…†‡‡fakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jŒjŒ¾jŒ½ŒÑŒ­ªªª¾j½Ð~‰Š‹ŒŒfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jjjj¾j½Ñ ­­­ªª¾j½Ðz|~Ž Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.<<<VALUESTest clean formatAttr0.0 ­­­­­­­ªªªz|~ƒˆ‘’“”swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª–fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª˜fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªšfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jŸjŸ¾jŸ½ŸÑŸ­ªªª¾j½ЗœžŸŸfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 j¤j¤¾j¤½¤Ѥ­ªªª¾j½Й¡¢£¤¤fakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j©j©¾j©½©Ñ©­ªªª¾j½Л¦§¨©©fakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j­j­j­j­¾j­½­Ñ­ ­­­ªª¾j½З™›«¬­­ Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.<<<VALUESTest clean formatAttr0.0 ­­­­­­­ªªª—™› ¥ª®¯°±swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª³fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªµfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª·fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j¼j¼¾j¼½¼Ѽ­ªªª¾j½д¹º»¼¼fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jÁjÁ¾jÁ½ÁÑÁ­ªªª¾j½ж¾¿ÀÁÁfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jÆjƾjƽÆÑÆ­ªªª¾j½иÃÄÅÆÆfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jÊjÊjÊjʾjʽÊÑÊ ­­­ªª¾j½д¶¸ÈÉÊÊ Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.<<<VALUESTest clean formatAttr0.0 ­­­­­­­ªªª´¶¸½ÂÇËÌÍÎswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ªÐfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªÒfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªÔfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jÙjÙ¾jÙ½ÙÑÙ­ªªª¾j½ÐÑÖ×ØÙÙfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jÞjÞ¾jÞ½ÞÑÞ­ªªª¾j½ÐÓÛÜÝÞÞfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jãjã¾jã½ãÑã­ªªª¾j½ÐÕàáâããfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jçjçjçjç¾jç½çÑç ­­­ªª¾j½ÐÑÓÕåæçç Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.>>>VALUESTest clean formatAttr0.0 ­­­­­­­ªªªÑÓÕÚßäèéêëswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ªífakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªïfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªñfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jöjö¾jö½öÑö­ªªª¾j½ÐîóôõööfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jûjû¾jû½ûÑû­ªªª¾j½ÐðøùúûûfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jj¾j½Ñ­ªªª¾j½ÐòýþÿfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jjjj¾j½Ñ ­­­ªª¾j½Ðîðò Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the e666VALUESTest clean formatAttr0.0 ­­­­­­­ªªªîðò÷üswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jj¾j½Ñ­ªªª¾j½Ð fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jj¾j½Ñ­ªªª¾j½Ð fakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jj¾j½Ñ­ªªª¾j½ÐfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j!j!j!j!¾j!½!Ñ! ­­­ªª¾j½Ð   !! Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end888VALUESTest clean formatAttr0.0 ­­­­­­­ªªª  "#$%swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª'fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª)fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª+fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j0j0¾j0½0Ñ0­ªªª¾j½Ð(-./00fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 j5j5¾j5½5Ñ5­ªªª¾j½Ð*23455fakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j:j:¾j:½:Ñ:­ªªª¾j½Ð,789::fakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j>j>j>j>¾j>½>Ñ> ­­­ªª¾j½Ð(*,<=>> Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end.999VALUESTest clean formatAttr0.0 ­­­­­­­ªªª(*,16;?@ABswf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ªDfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªFfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªHfakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jMjM¾jM½MÑM­ªªª¾j½ÐEJKLMMfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jRjR¾jR½RÑR­ªªª¾j½ÐGOPQRRfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jWjW¾jW½WÑW­ªªª¾j½ÐITUVWWfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j[j[j[j[¾j[½[Ñ[ ­­­ªª¾j½ÐEGIYZ[[ Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and the end of this attribute.KKKVALUESTest clean formatAttr0.0 ­­­­­­­ªªªEGINSX\]^_swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ªafakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ªcfakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ªefakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jjjj¾jj½jÑj­ªªª¾j½ÐbghijjfakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jojo¾jo½oÑo­ªªª¾j½ÐdlmnoofakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 jtjt¾jt½tÑt­ªªª¾j½ÐfqrsttfakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 jxjxjxjx¾jx½xÑx ­­­ªª¾j½Ðbdfvwxx Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and another tab < >.TeDDDVALUESTest clean formatAttr0.0 ­­­­­­­ªªªbdfkpuyz{|swf32_fileattr.hdfCDF0.0ValuesfakeDim0 DimVal0.1ª~fakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª€fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª‚fakeDim2Dim0.0TimeVALUES long_nameAttr0.0SecondVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j‡j‡¾j‡½‡Ñ‡­ªªª¾j½Ð„…†‡‡fakeDim0Var0.0LineVALUES long_nameAttr0.0InchVALUESunitsAttr0.0Int16VALUESformatAttr0.0 jŒjŒ¾jŒ½ŒÑŒ­ªªª¾j½Ð‰Š‹ŒŒfakeDim1Var0.0ColumnVALUES long_nameAttr0.0CmVALUESunitsAttr0.0Int32VALUESformatAttr0.0 j‘j‘¾j‘½‘Ñ‘­ªªª¾j½ÐƒŽ‘‘fakeDim2Var0.0BöVALUES valid_maxAttr0.0¿€VALUES valid_minAttr0.0 j•j•j•j•¾j•½•Ñ• ­­­ªª¾j½Ðƒ“”•• Data-Set-2Var0.0For testing dumpsds SD file attribute%%%VALUES File purposeAttr0.0Some data setsVALUES File contentsAttr0.0A tab < >, a CR < >, several nulls <>, and one more tab < >AAAVALUESTest clean formatAttr0.0 ­­­­­­­ªªªƒˆ’–—˜™swf32_fileattr.hdfCDF0.0libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-11.out0000644000000000000000000001624212421456623017743 0ustar File name: grtdfui162.hdf Image Name = Image_array_5 Index = 0 Type= 16-bit unsigned integer width=10; height=5 Ref. = 5 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 Image Name = Raster Image #1 Index = 1 Type= 8-bit unsigned char width=13; height=15 Ref. = 2 ncomps = 3 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 6 6 6 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 7 7 7 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 8 8 8 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 9 9 9 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 10 10 10 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 11 11 11 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 12 12 12 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 13 13 13 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 14 14 14 15 15 15 16 16 16 17 17 17 18 18 18 19 19 19 20 20 20 21 21 21 22 22 22 23 23 23 24 24 24 25 25 25 26 26 26 Image Name = Raster Image #2 Index = 2 Type= 8-bit unsigned char width=13; height=15 Ref. = 3 ncomps = 3 Interlace mode= LINE No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 0 1 2 3 4 5 6 7 8 9 10 11 12 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 1 1 3 3 5 5 7 7 9 9 11 11 13 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 2 3 2 3 6 7 6 7 10 11 10 11 14 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 3 3 3 3 7 7 7 7 11 11 11 11 15 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 4 5 6 7 4 5 6 7 12 13 14 15 12 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 5 5 7 7 5 5 7 7 13 13 15 15 13 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 6 7 6 7 6 7 6 7 14 15 14 15 14 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 7 7 7 7 7 7 7 7 15 15 15 15 15 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 8 9 10 11 12 13 14 15 8 9 10 11 12 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 9 9 11 11 13 13 15 15 9 9 11 11 13 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 10 11 10 11 14 15 14 15 10 11 10 11 14 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 11 11 11 11 15 15 15 15 11 11 11 11 15 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 12 13 14 15 12 13 14 15 12 13 14 15 12 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 13 13 15 15 13 13 15 15 13 13 15 15 13 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 14 15 14 15 14 15 14 15 14 15 14 15 14 Image Name = Raster Image #3 Index = 3 Type= 8-bit unsigned char width=13; height=15 Ref. = 4 ncomps = 3 Interlace mode= COMPONENT No palette Compression method = NONE Number of attributes = 0 Data : 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 0 1 2 3 4 5 6 7 8 9 10 11 12 1 0 3 2 5 4 7 6 9 8 11 10 13 2 3 0 1 6 7 4 5 10 11 8 9 14 3 2 1 0 7 6 5 4 11 10 9 8 15 4 5 6 7 0 1 2 3 12 13 14 15 8 5 4 7 6 1 0 3 2 13 12 15 14 9 6 7 4 5 2 3 0 1 14 15 12 13 10 7 6 5 4 3 2 1 0 15 14 13 12 11 8 9 10 11 12 13 14 15 0 1 2 3 4 9 8 11 10 13 12 15 14 1 0 3 2 5 10 11 8 9 14 15 12 13 2 3 0 1 6 11 10 9 8 15 14 13 12 3 2 1 0 7 12 13 14 15 8 9 10 11 4 5 6 7 0 13 12 15 14 9 8 11 10 5 4 7 6 1 14 15 12 13 10 11 8 9 6 7 4 5 2 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/Roy.nc0000644000000000000000000000766412421456623016600 0ustar CDF0 lonlatref_time sourceCOADS CMR5 DATASET DATA_TYPE MONTHLY MEANS COORD_SYSTEM GEOGRAPHICALCOMMENTQmonth since 1980-1-1 00:00:00, Latitudes: 32.0, 36.0 Longitudes: -140.0,-136.0Platform_Types All Platforms lon  long_name longitudeFORTRAN_formatf6.1units degrees_eastälat  long_namelatitudeFORTRAN_formatf6.1units degrees_northìref_time  long_namereference timeFORTRAN_formati10unitsmonthsôSST  long_nameMean Sea Surface Temperature _FillValueÆ?öunits degrees CtrimmingALL instrumentunknown bucket implied bucket øSST_obs  long_name1Number of Observations of Sea Surface Temperature _FillValueÆ?öunits number_of_obstrimmingALL instrumentunknown bucket implied bucket SST_var  long_name0Variance of Sea Surface Temperature Observations _FillValueÆ?öunitsvariancetrimmingALL instrumentunknown bucket implied bucket à à BBA„•sA† xADDAu*BB$B@BlB£æBh5xBâ—æCFø?€A¡ÌAÛ$A‰çGAŽS3AÈAÈAèBA×ê²B#7BQ•BQwý@AwSˆApâ[A…òßAˆ(BBBB8B¢´C%éýB‰éjBT‡‚@@Az¾,Az¦ÄAˆHIA‰äÔB(B BBDBºJ¡Bô—BŠ C¢A@€A}Y™A†|ŠAŠ»AŒ’HBBAøB(B—Ó CK´CSBìÏÅ@ A5åA‘|A“¥äAffA˜A AÈB0AŠˆåAeÙBË4 B£ž¼@ÀA•„ A–[ŸAŸwwAœØ~A˜A˜AB B‚úBTÿvAìQíB›Ö}@àAœó3A™çŸAŸPuA¢rÏA€A¨A`BApµÅB(w@ܵWBÊÌ/AA ²`A¢'bA«34A£NÆAøAÐBBPB(8+Bv(Bÿ(úB—áAA¥¸A ÌÌA¦ðÇA£¤B AðBB<Bt¼BÁÌÍBˆC˜¢A A•§÷A—E~AŸ°ßA³¿BdB`B0B<CgäBµœrBµ qC>éŽA0A‘©üA“PuA™¬ÎA–ºnAÈAàBBB¹(#Cþ†BƒÚ·C8Ë[A@AŠ66A†S2A“šA“dBBAÀBBšö]CKw”B«ÅÁBÆƼAPAsh¡Aw+A€QíAŽÔA¸AÈAÈBCØšBÖ–C°¸WCßA`Atd7Ax ¡AƒÕ€AƒxB<BLBTBlC êBñR¸Bù§ŸBëbkApA{¤úAt""AóƒA€µLBAÀB$BtCbé…BC—åCD½²C$A€A‚ézA‡ˆA•bûAëNAÈAˆAðB<By«“Aö^BoQC+³AˆAž¤uA—m·AdÂA£ícBA¨AøBB…kfB—I&CÒž¡B¨"lAA èA„ A ÌÌAœ2A¸A˜A˜BBÜVÑBýeOB× CÁC{A˜A¤P#AŸsA¦ÌÍA¦Ž A¸B A AøBLaCƇAm…#Bµ7€A A´ZA­¶ÛA³‘A¨^†AÈA¨AÀAÐB% ÞA–ÄB)[ºCÛlA¨A©JRA¨¢¥Aª»%A«ñAøBAèBBKOCE`.B¹žæBÎÑ‹A°Aš€A˜PõA¡k‡A¢'¶B B,B BDCUŸ·BŒ>ÌBäðŒCiA¸A‡m¶A‰ÈÜA’5äA–=qB BBB Bž2B„æCYBB«›ªAÀAu°\A\ÂAŠRçA‹… AAA¨AÈC®³ÄD.]A´lBÿùAÈAsÂAtNÆAA‰½8A APAˆA¸B4æîADšdB Ž*B@“AÐA}×ðAvffA~A+A…ÌÍA¸AÐA°BB¶$ñBfõÀC€ŒCλAØAmå AffgA€(öA{Z6A˜A¸ApA¨Aó‡CB±=oB(“BEE¹AàA|ÁA½AŒ5æAƒDDBB$A˜AÀC„ºBäl£BÕ'WBK¬bAèAŒÛlA“ ÷A•>“AäpBŒA0AAÐC îA¸ÅZAóà1BÉ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 5 tag = 1962; reference = 1240; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-1; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 6 tag = 1962; reference = 1241; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-2; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 7 tag = 1962; reference = 1242; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-3; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 8 tag = 1962; reference = 1243; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-4; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 9 tag = 1962; reference = 1244; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-5; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 10 tag = 1962; reference = 1245; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-6; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 11 tag = 1962; reference = 1246; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-7; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 12 tag = 1962; reference = 1247; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-8; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 13 tag = 1962; reference = 1248; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-9; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 14 tag = 1962; reference = 1249; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-10; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 15 tag = 1962; reference = 1250; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-11; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 16 tag = 1962; reference = 1251; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-12; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 17 tag = 1962; reference = 1252; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-13; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 18 tag = 1962; reference = 1253; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-14; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 19 tag = 1962; reference = 1254; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-15; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 20 tag = 1962; reference = 1255; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-16; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 21 tag = 1962; reference = 1256; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-17; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 22 tag = 1962; reference = 1257; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-18; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 23 tag = 1962; reference = 1258; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-19; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 24 tag = 1962; reference = 1259; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-20; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 25 tag = 1962; reference = 1260; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-21; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 26 tag = 1962; reference = 1261; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-22; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 27 tag = 1962; reference = 1262; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-23; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 28 tag = 1962; reference = 1263; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-24; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 29 tag = 1962; reference = 1264; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-25; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 30 tag = 1962; reference = 1265; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-26; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 31 tag = 1962; reference = 1266; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-27; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 32 tag = 1962; reference = 1267; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-28; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 33 tag = 1962; reference = 1268; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-29; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 34 tag = 1962; reference = 1269; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-30; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 35 tag = 1962; reference = 1270; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-31; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 36 tag = 1962; reference = 1271; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-32; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 37 tag = 1962; reference = 1272; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-33; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 38 tag = 1962; reference = 1273; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-34; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 39 tag = 1962; reference = 1274; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-35; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 40 tag = 1962; reference = 1275; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-36; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 41 tag = 1962; reference = 1276; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-37; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 42 tag = 1962; reference = 1277; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-38; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 43 tag = 1962; reference = 1278; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-39; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 44 tag = 1962; reference = 1279; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-40; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 45 tag = 1962; reference = 1280; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-41; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 46 tag = 1962; reference = 1281; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-42; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 47 tag = 1962; reference = 1282; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-43; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 48 tag = 1962; reference = 1283; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-44; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 49 tag = 1962; reference = 1284; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-45; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 50 tag = 1962; reference = 1285; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-46; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 51 tag = 1962; reference = 1286; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-47; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 52 tag = 1962; reference = 1287; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-48; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 53 tag = 1962; reference = 1288; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-49; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 54 tag = 1962; reference = 1289; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-50; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 55 tag = 1962; reference = 1290; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-51; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 56 tag = 1962; reference = 1291; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-52; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 57 tag = 1962; reference = 1292; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-53; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 58 tag = 1962; reference = 1293; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-54; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 59 tag = 1962; reference = 1294; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-55; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 60 tag = 1962; reference = 1295; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-56; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 61 tag = 1962; reference = 1296; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-57; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 62 tag = 1962; reference = 1297; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-58; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 63 tag = 1962; reference = 1298; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-59; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 64 tag = 1962; reference = 1299; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-60; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 65 tag = 1962; reference = 1300; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-61; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 66 tag = 1962; reference = 1301; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-62; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 67 tag = 1962; reference = 1302; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-63; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 68 tag = 1962; reference = 1303; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-64; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 69 tag = 1962; reference = 1304; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-65; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 70 tag = 1962; reference = 1305; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-66; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 71 tag = 1962; reference = 1306; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-67; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 72 tag = 1962; reference = 1307; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-68; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 73 tag = 1962; reference = 1308; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-69; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 74 tag = 1962; reference = 1309; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-70; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 75 tag = 1962; reference = 1310; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-71; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 76 tag = 1962; reference = 1311; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-72; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 77 tag = 1962; reference = 1312; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-73; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 78 tag = 1962; reference = 1313; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-74; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 79 tag = 1962; reference = 1314; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-75; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 80 tag = 1962; reference = 1315; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-76; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 81 tag = 1962; reference = 1316; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-77; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 82 tag = 1962; reference = 1317; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-78; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 83 tag = 1962; reference = 1318; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-79; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 84 tag = 1962; reference = 1319; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-80; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 85 tag = 1962; reference = 1320; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-81; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 86 tag = 1962; reference = 1321; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-82; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 87 tag = 1962; reference = 1322; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-83; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 88 tag = 1962; reference = 1323; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-84; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 89 tag = 1962; reference = 1324; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-85; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 90 tag = 1962; reference = 1325; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-86; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 91 tag = 1962; reference = 1326; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-87; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 92 tag = 1962; reference = 1327; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-88; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 93 tag = 1962; reference = 1328; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-89; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 94 tag = 1962; reference = 1329; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-90; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 95 tag = 1962; reference = 1330; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-91; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 96 tag = 1962; reference = 1331; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-92; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 97 tag = 1962; reference = 1332; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-93; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 98 tag = 1962; reference = 1333; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-94; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 99 tag = 1962; reference = 1334; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-95; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 100 tag = 1962; reference = 1335; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-96; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 101 tag = 1962; reference = 1336; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-97; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 102 tag = 1962; reference = 1337; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-98; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 103 tag = 1962; reference = 1338; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-99; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 104 tag = 1962; reference = 1339; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-100; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 105 tag = 1962; reference = 1340; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-101; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 106 tag = 1962; reference = 1341; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-102; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 107 tag = 1962; reference = 1342; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-103; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 108 tag = 1962; reference = 1343; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-104; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 109 tag = 1962; reference = 1344; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-105; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 110 tag = 1962; reference = 1345; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-106; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 111 tag = 1962; reference = 1346; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-107; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 112 tag = 1962; reference = 1347; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-108; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 113 tag = 1962; reference = 1348; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-109; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 114 tag = 1962; reference = 1349; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-110; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 115 tag = 1962; reference = 1350; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-111; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 116 tag = 1962; reference = 1351; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-112; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 117 tag = 1962; reference = 1352; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-113; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 118 tag = 1962; reference = 1353; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-114; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 119 tag = 1962; reference = 1354; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-115; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 120 tag = 1962; reference = 1355; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-116; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 121 tag = 1962; reference = 1356; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-117; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 122 tag = 1962; reference = 1357; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-118; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 123 tag = 1962; reference = 1358; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-119; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 124 tag = 1962; reference = 1359; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-120; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 125 tag = 1962; reference = 1360; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-121; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 126 tag = 1962; reference = 1361; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-122; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 127 tag = 1962; reference = 1362; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-123; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 128 tag = 1962; reference = 1363; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-124; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 129 tag = 1962; reference = 1364; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-125; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 130 tag = 1962; reference = 1365; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-126; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 131 tag = 1962; reference = 1366; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-127; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 132 tag = 1962; reference = 1367; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-128; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 133 tag = 1962; reference = 1368; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-129; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 134 tag = 1962; reference = 1369; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-130; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 135 tag = 1962; reference = 1370; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-131; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 136 tag = 1962; reference = 1371; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-132; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 137 tag = 1962; reference = 1372; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-133; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 138 tag = 1962; reference = 1373; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-134; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 139 tag = 1962; reference = 1374; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-135; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 140 tag = 1962; reference = 1375; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-136; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 141 tag = 1962; reference = 1376; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-137; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 142 tag = 1962; reference = 1377; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-138; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 143 tag = 1962; reference = 1378; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-139; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 144 tag = 1962; reference = 1379; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-140; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 145 tag = 1962; reference = 1380; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-141; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 146 tag = 1962; reference = 1381; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-142; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 147 tag = 1962; reference = 1382; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-143; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 148 tag = 1962; reference = 1383; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-144; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 149 tag = 1962; reference = 1384; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-145; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 150 tag = 1962; reference = 1385; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-146; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 151 tag = 1962; reference = 1386; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-147; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 152 tag = 1962; reference = 1387; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-148; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 153 tag = 1962; reference = 1388; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-149; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 154 tag = 1962; reference = 1389; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-150; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 155 tag = 1962; reference = 1390; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-151; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 156 tag = 1962; reference = 1391; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-152; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 157 tag = 1962; reference = 1392; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-153; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 158 tag = 1962; reference = 1393; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-154; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 159 tag = 1962; reference = 1394; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-155; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 160 tag = 1962; reference = 1395; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-156; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 161 tag = 1962; reference = 1396; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-157; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 162 tag = 1962; reference = 1397; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-158; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 163 tag = 1962; reference = 1398; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-159; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 164 tag = 1962; reference = 1399; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-160; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 165 tag = 1962; reference = 1400; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-161; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 166 tag = 1962; reference = 1401; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-162; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 167 tag = 1962; reference = 1402; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-163; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 168 tag = 1962; reference = 1403; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-164; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 169 tag = 1962; reference = 1404; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-165; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 170 tag = 1962; reference = 1405; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-166; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 171 tag = 1962; reference = 1406; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-167; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 172 tag = 1962; reference = 1407; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-168; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 173 tag = 1962; reference = 1408; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-169; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 174 tag = 1962; reference = 1409; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-170; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 175 tag = 1962; reference = 1410; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-171; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 176 tag = 1962; reference = 1411; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-172; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 177 tag = 1962; reference = 1412; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-173; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 178 tag = 1962; reference = 1413; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-174; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 179 tag = 1962; reference = 1414; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-175; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 180 tag = 1962; reference = 1415; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-176; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 181 tag = 1962; reference = 1416; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-177; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 182 tag = 1962; reference = 1417; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-178; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 183 tag = 1962; reference = 1418; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-179; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 184 tag = 1962; reference = 1419; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-180; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 185 tag = 1962; reference = 1420; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-181; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 186 tag = 1962; reference = 1421; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-182; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 187 tag = 1962; reference = 1422; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-183; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 188 tag = 1962; reference = 1423; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-184; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 189 tag = 1962; reference = 1424; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-185; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 190 tag = 1962; reference = 1425; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-186; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 191 tag = 1962; reference = 1426; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-187; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 192 tag = 1962; reference = 1427; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-188; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 193 tag = 1962; reference = 1428; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-189; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 194 tag = 1962; reference = 1429; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-190; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 195 tag = 1962; reference = 1430; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-191; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 196 tag = 1962; reference = 1431; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-192; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 197 tag = 1962; reference = 1432; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-193; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 198 tag = 1962; reference = 1433; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-194; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 199 tag = 1962; reference = 1434; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-195; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 200 tag = 1962; reference = 1435; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-196; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 201 tag = 1962; reference = 1436; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-197; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 202 tag = 1962; reference = 1437; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-198; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 203 tag = 1962; reference = 1438; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-199; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 204 tag = 1962; reference = 1439; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-200; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 205 tag = 1962; reference = 1440; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-201; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 206 tag = 1962; reference = 1441; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-202; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 207 tag = 1962; reference = 1442; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-203; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 208 tag = 1962; reference = 1443; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-204; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 209 tag = 1962; reference = 1444; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-205; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 210 tag = 1962; reference = 1445; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-206; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 211 tag = 1962; reference = 1446; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-207; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 212 tag = 1962; reference = 1447; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-208; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 213 tag = 1962; reference = 1448; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-209; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 214 tag = 1962; reference = 1449; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-210; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 215 tag = 1962; reference = 1450; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-211; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 216 tag = 1962; reference = 1451; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-212; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 217 tag = 1962; reference = 1452; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-213; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 218 tag = 1962; reference = 1453; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-214; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 219 tag = 1962; reference = 1454; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-215; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 220 tag = 1962; reference = 1455; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-216; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 221 tag = 1962; reference = 1456; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-217; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 222 tag = 1962; reference = 1457; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-218; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 223 tag = 1962; reference = 1458; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-219; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 224 tag = 1962; reference = 1459; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-220; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 225 tag = 1962; reference = 1460; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-221; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 226 tag = 1962; reference = 1461; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-222; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 227 tag = 1962; reference = 1462; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-223; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 228 tag = 1962; reference = 1463; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-224; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 229 tag = 1962; reference = 1464; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-225; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 230 tag = 1962; reference = 1465; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-226; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 231 tag = 1962; reference = 1466; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-227; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 232 tag = 1962; reference = 1467; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-228; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 233 tag = 1962; reference = 1468; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-229; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 234 tag = 1962; reference = 1469; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-230; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 235 tag = 1962; reference = 1470; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-231; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 236 tag = 1962; reference = 1471; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-232; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 237 tag = 1962; reference = 1472; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-233; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 238 tag = 1962; reference = 1473; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-234; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 239 tag = 1962; reference = 1474; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-235; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 240 tag = 1962; reference = 1475; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-236; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 241 tag = 1962; reference = 1476; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-237; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 242 tag = 1962; reference = 1477; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-238; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 243 tag = 1962; reference = 1478; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-239; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 244 tag = 1962; reference = 1479; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-240; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 245 tag = 1962; reference = 1480; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-241; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 246 tag = 1962; reference = 1481; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-242; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 247 tag = 1962; reference = 1482; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-243; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 248 tag = 1962; reference = 1483; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-244; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 249 tag = 1962; reference = 1484; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-245; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 250 tag = 1962; reference = 1485; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-246; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 251 tag = 1962; reference = 1486; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-247; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 252 tag = 1962; reference = 1487; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-248; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 253 tag = 1962; reference = 1488; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-249; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 254 tag = 1962; reference = 1489; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-250; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 255 tag = 1962; reference = 1490; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-251; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 256 tag = 1962; reference = 1491; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-252; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 257 tag = 1962; reference = 1492; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-253; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 258 tag = 1962; reference = 1493; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-254; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 259 tag = 1962; reference = 1494; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-255; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 260 tag = 1962; reference = 1495; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-256; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 261 tag = 1962; reference = 1496; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-257; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 262 tag = 1962; reference = 1497; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-258; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 263 tag = 1962; reference = 1498; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-259; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 264 tag = 1962; reference = 1499; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-260; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 265 tag = 1962; reference = 1500; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-261; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 266 tag = 1962; reference = 1501; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-262; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 267 tag = 1962; reference = 1502; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-263; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 268 tag = 1962; reference = 1503; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-264; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 269 tag = 1962; reference = 1504; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-265; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 270 tag = 1962; reference = 1505; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-266; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 271 tag = 1962; reference = 1506; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-267; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 272 tag = 1962; reference = 1507; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-268; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 273 tag = 1962; reference = 1508; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-269; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 274 tag = 1962; reference = 1509; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-270; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 275 tag = 1962; reference = 1510; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-271; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 276 tag = 1962; reference = 1511; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-272; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 277 tag = 1962; reference = 1512; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-273; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 278 tag = 1962; reference = 1513; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-274; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 279 tag = 1962; reference = 1514; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-275; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 280 tag = 1962; reference = 1515; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-276; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 281 tag = 1962; reference = 1516; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-277; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 282 tag = 1962; reference = 1517; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-278; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 283 tag = 1962; reference = 1518; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-279; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 284 tag = 1962; reference = 1519; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-280; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 285 tag = 1962; reference = 1520; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-281; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 286 tag = 1962; reference = 1521; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-282; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 287 tag = 1962; reference = 1522; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-283; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 288 tag = 1962; reference = 1523; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-284; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 289 tag = 1962; reference = 1524; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-285; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 290 tag = 1962; reference = 1525; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-286; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 291 tag = 1962; reference = 1526; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-287; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 292 tag = 1962; reference = 1527; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-288; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 293 tag = 1962; reference = 1528; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-289; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 294 tag = 1962; reference = 1529; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-290; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 295 tag = 1962; reference = 1530; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-291; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 296 tag = 1962; reference = 1531; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-292; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 297 tag = 1962; reference = 1532; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-293; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 298 tag = 1962; reference = 1533; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-294; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 299 tag = 1962; reference = 1534; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-295; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 300 tag = 1962; reference = 1535; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-296; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 301 tag = 1962; reference = 1536; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-297; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 302 tag = 1962; reference = 1537; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-298; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 303 tag = 1962; reference = 1538; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-299; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 304 tag = 1962; reference = 1539; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-300; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 305 tag = 1962; reference = 1540; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-301; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 306 tag = 1962; reference = 1541; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-302; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 307 tag = 1962; reference = 1542; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-303; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 308 tag = 1962; reference = 1543; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-304; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 309 tag = 1962; reference = 1544; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-305; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 310 tag = 1962; reference = 1545; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-306; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 311 tag = 1962; reference = 1546; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-307; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 312 tag = 1962; reference = 1547; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-308; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 313 tag = 1962; reference = 1548; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-309; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 314 tag = 1962; reference = 1549; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-310; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 315 tag = 1962; reference = 1550; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-311; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 316 tag = 1962; reference = 1551; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-312; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 317 tag = 1962; reference = 1552; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-313; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 318 tag = 1962; reference = 1553; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-314; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 319 tag = 1962; reference = 1554; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-315; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 320 tag = 1962; reference = 1555; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-316; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 321 tag = 1962; reference = 1556; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-317; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 322 tag = 1962; reference = 1557; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-318; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 323 tag = 1962; reference = 1558; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-319; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 324 tag = 1962; reference = 1559; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-320; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 325 tag = 1962; reference = 1560; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-321; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 326 tag = 1962; reference = 1561; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-322; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 327 tag = 1962; reference = 1562; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-323; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 328 tag = 1962; reference = 1563; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-324; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 329 tag = 1962; reference = 1564; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-325; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 330 tag = 1962; reference = 1565; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-326; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 331 tag = 1962; reference = 1566; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-327; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 332 tag = 1962; reference = 1567; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-328; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 333 tag = 1962; reference = 1568; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-329; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 334 tag = 1962; reference = 1569; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-330; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 335 tag = 1962; reference = 1570; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-331; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 336 tag = 1962; reference = 1571; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-332; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 337 tag = 1962; reference = 1572; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-333; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 338 tag = 1962; reference = 1573; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-334; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 339 tag = 1962; reference = 1574; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-335; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 340 tag = 1962; reference = 1575; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-336; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 341 tag = 1962; reference = 1576; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-337; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 342 tag = 1962; reference = 1577; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-338; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 343 tag = 1962; reference = 1578; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-339; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 344 tag = 1962; reference = 1579; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-340; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 345 tag = 1962; reference = 1580; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-341; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 346 tag = 1962; reference = 1581; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-342; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 347 tag = 1962; reference = 1582; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-343; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 348 tag = 1962; reference = 1583; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-344; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 349 tag = 1962; reference = 1584; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-345; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 350 tag = 1962; reference = 1585; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-346; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 351 tag = 1962; reference = 1586; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-347; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 352 tag = 1962; reference = 1587; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-348; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 353 tag = 1962; reference = 1588; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-349; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 354 tag = 1962; reference = 1589; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-350; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 355 tag = 1962; reference = 1590; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-351; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 356 tag = 1962; reference = 1591; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-352; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 357 tag = 1962; reference = 1592; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-353; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 358 tag = 1962; reference = 1593; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-354; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 359 tag = 1962; reference = 1594; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-355; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 360 tag = 1962; reference = 1595; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-356; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 361 tag = 1962; reference = 1596; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-357; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 362 tag = 1962; reference = 1597; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-358; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 363 tag = 1962; reference = 1598; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-359; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 364 tag = 1962; reference = 1599; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-360; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 365 tag = 1962; reference = 1600; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-361; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 366 tag = 1962; reference = 1601; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-362; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 367 tag = 1962; reference = 1602; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-363; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 368 tag = 1962; reference = 1603; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-364; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 369 tag = 1962; reference = 1604; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-365; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 370 tag = 1962; reference = 1605; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-366; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 371 tag = 1962; reference = 1606; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-367; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 372 tag = 1962; reference = 1607; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-368; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 373 tag = 1962; reference = 1608; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-369; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 374 tag = 1962; reference = 1609; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-370; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 375 tag = 1962; reference = 1610; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-371; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 376 tag = 1962; reference = 1611; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-372; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 377 tag = 1962; reference = 1612; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-373; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 378 tag = 1962; reference = 1613; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-374; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 379 tag = 1962; reference = 1614; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-375; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 380 tag = 1962; reference = 1615; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-376; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 381 tag = 1962; reference = 1616; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-377; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 382 tag = 1962; reference = 1617; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-378; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 383 tag = 1962; reference = 1618; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-379; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 384 tag = 1962; reference = 1619; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-380; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 385 tag = 1962; reference = 1620; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-381; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 386 tag = 1962; reference = 1621; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-382; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 387 tag = 1962; reference = 1622; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-383; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 388 tag = 1962; reference = 1623; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-384; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 389 tag = 1962; reference = 1624; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-385; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 390 tag = 1962; reference = 1625; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-386; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 391 tag = 1962; reference = 1626; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-387; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 392 tag = 1962; reference = 1627; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-388; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 393 tag = 1962; reference = 1628; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-389; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 394 tag = 1962; reference = 1629; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-390; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 395 tag = 1962; reference = 1630; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-391; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 396 tag = 1962; reference = 1631; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-392; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 397 tag = 1962; reference = 1632; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-393; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 398 tag = 1962; reference = 1633; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-394; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 399 tag = 1962; reference = 1634; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-395; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 400 tag = 1962; reference = 1635; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-396; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 401 tag = 1962; reference = 1636; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-397; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 402 tag = 1962; reference = 1637; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-398; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 403 tag = 1962; reference = 1638; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-399; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 404 tag = 1962; reference = 1639; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-400; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 405 tag = 1962; reference = 1640; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-401; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 406 tag = 1962; reference = 1641; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-402; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 407 tag = 1962; reference = 1642; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-403; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 408 tag = 1962; reference = 1643; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-404; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 409 tag = 1962; reference = 1644; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-405; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 410 tag = 1962; reference = 1645; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-406; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 411 tag = 1962; reference = 1646; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-407; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 412 tag = 1962; reference = 1647; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-408; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 413 tag = 1962; reference = 1648; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-409; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 414 tag = 1962; reference = 1649; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-410; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 415 tag = 1962; reference = 1650; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-411; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 416 tag = 1962; reference = 1651; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-412; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 417 tag = 1962; reference = 1652; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-413; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 418 tag = 1962; reference = 1653; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-414; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 419 tag = 1962; reference = 1654; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-415; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 420 tag = 1962; reference = 1655; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-416; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 421 tag = 1962; reference = 1656; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-417; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 422 tag = 1962; reference = 1657; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-418; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 423 tag = 1962; reference = 1658; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-419; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 424 tag = 1962; reference = 1659; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-420; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 425 tag = 1962; reference = 1660; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-421; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 426 tag = 1962; reference = 1661; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-422; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 427 tag = 1962; reference = 1662; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-423; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 428 tag = 1962; reference = 1663; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-424; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 429 tag = 1962; reference = 1664; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-425; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 430 tag = 1962; reference = 1665; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-426; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 431 tag = 1962; reference = 1666; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-427; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 432 tag = 1962; reference = 1667; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-428; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 433 tag = 1962; reference = 1668; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-429; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 434 tag = 1962; reference = 1669; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-430; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 435 tag = 1962; reference = 1670; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-431; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 436 tag = 1962; reference = 1671; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-432; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 437 tag = 1962; reference = 1672; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-433; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 438 tag = 1962; reference = 1673; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-434; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 439 tag = 1962; reference = 1674; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-435; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 440 tag = 1962; reference = 1675; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-436; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 441 tag = 1962; reference = 1676; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-437; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 442 tag = 1962; reference = 1677; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-438; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 443 tag = 1962; reference = 1678; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-439; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 444 tag = 1962; reference = 1679; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-440; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 445 tag = 1962; reference = 1680; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-441; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 446 tag = 1962; reference = 1681; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-442; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 447 tag = 1962; reference = 1682; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-443; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 448 tag = 1962; reference = 1683; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-444; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 449 tag = 1962; reference = 1684; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-445; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 450 tag = 1962; reference = 1685; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-446; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 451 tag = 1962; reference = 1686; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-447; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 452 tag = 1962; reference = 1687; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-448; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 453 tag = 1962; reference = 1688; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-449; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 454 tag = 1962; reference = 1689; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-450; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 455 tag = 1962; reference = 1690; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-451; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 456 tag = 1962; reference = 1691; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-452; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 457 tag = 1962; reference = 1692; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-453; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 458 tag = 1962; reference = 1693; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-454; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 459 tag = 1962; reference = 1694; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-455; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 460 tag = 1962; reference = 1695; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-456; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 461 tag = 1962; reference = 1696; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-457; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 462 tag = 1962; reference = 1697; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-458; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 463 tag = 1962; reference = 1698; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-459; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 464 tag = 1962; reference = 1699; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-460; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 465 tag = 1962; reference = 1700; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-461; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 466 tag = 1962; reference = 1701; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-462; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 467 tag = 1962; reference = 1702; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-463; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 468 tag = 1962; reference = 1703; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-464; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 469 tag = 1962; reference = 1704; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-465; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 470 tag = 1962; reference = 1705; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-466; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 471 tag = 1962; reference = 1706; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-467; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 472 tag = 1962; reference = 1707; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-468; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 473 tag = 1962; reference = 1708; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-469; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 474 tag = 1962; reference = 1709; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-470; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 475 tag = 1962; reference = 1710; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-471; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 476 tag = 1962; reference = 1711; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-472; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 477 tag = 1962; reference = 1712; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-473; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 478 tag = 1962; reference = 1713; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-474; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 479 tag = 1962; reference = 1714; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-475; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 480 tag = 1962; reference = 1715; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-476; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 481 tag = 1962; reference = 1716; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-477; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 482 tag = 1962; reference = 1717; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-478; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 483 tag = 1962; reference = 1718; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-479; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 484 tag = 1962; reference = 1719; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-480; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 485 tag = 1962; reference = 1720; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-481; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 486 tag = 1962; reference = 1721; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-482; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 487 tag = 1962; reference = 1722; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-483; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 488 tag = 1962; reference = 1723; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-484; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 489 tag = 1962; reference = 1724; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-485; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 490 tag = 1962; reference = 1725; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-486; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 491 tag = 1962; reference = 1726; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-487; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 492 tag = 1962; reference = 1727; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-488; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 493 tag = 1962; reference = 1728; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-489; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 494 tag = 1962; reference = 1729; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-490; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 495 tag = 1962; reference = 1730; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-491; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 496 tag = 1962; reference = 1731; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-492; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 497 tag = 1962; reference = 1732; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-493; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 498 tag = 1962; reference = 1733; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-494; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 499 tag = 1962; reference = 1734; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-495; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 500 tag = 1962; reference = 1735; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-496; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 501 tag = 1962; reference = 1736; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-497; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 502 tag = 1962; reference = 1737; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-498; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 503 tag = 1962; reference = 1738; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-499; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 504 tag = 1962; reference = 1739; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-500; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 505 tag = 1962; reference = 1740; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-501; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 506 tag = 1962; reference = 1741; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-502; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 507 tag = 1962; reference = 1742; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-503; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 508 tag = 1962; reference = 1743; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-504; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 509 tag = 1962; reference = 1744; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-505; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 510 tag = 1962; reference = 1745; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-506; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 511 tag = 1962; reference = 1746; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-507; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 512 tag = 1962; reference = 1747; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-508; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 513 tag = 1962; reference = 1748; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-509; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 514 tag = 1962; reference = 1749; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-510; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 515 tag = 1962; reference = 1750; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-511; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 516 tag = 1962; reference = 1751; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-512; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 517 tag = 1962; reference = 1752; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-513; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 518 tag = 1962; reference = 1753; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-514; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 519 tag = 1962; reference = 1754; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-515; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 520 tag = 1962; reference = 1755; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-516; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 521 tag = 1962; reference = 1756; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-517; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 522 tag = 1962; reference = 1757; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-518; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 523 tag = 1962; reference = 1758; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-519; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 524 tag = 1962; reference = 1759; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-520; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 525 tag = 1962; reference = 1760; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-521; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 526 tag = 1962; reference = 1761; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-522; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 527 tag = 1962; reference = 1762; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-523; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 528 tag = 1962; reference = 1763; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-524; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 529 tag = 1962; reference = 1764; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-525; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 530 tag = 1962; reference = 1765; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-526; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 531 tag = 1962; reference = 1766; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-527; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 532 tag = 1962; reference = 1767; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-528; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 533 tag = 1962; reference = 1768; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-529; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 534 tag = 1962; reference = 1769; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-530; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 535 tag = 1962; reference = 1770; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-531; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 536 tag = 1962; reference = 1771; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-532; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 537 tag = 1962; reference = 1772; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-533; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 538 tag = 1962; reference = 1773; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-534; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 539 tag = 1962; reference = 1774; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-535; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 540 tag = 1962; reference = 1775; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-536; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 541 tag = 1962; reference = 1776; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-537; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 542 tag = 1962; reference = 1777; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-538; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 543 tag = 1962; reference = 1778; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-539; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 544 tag = 1962; reference = 1779; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-540; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 545 tag = 1962; reference = 1780; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-541; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 546 tag = 1962; reference = 1781; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-542; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 547 tag = 1962; reference = 1782; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-543; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 548 tag = 1962; reference = 1783; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-544; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 549 tag = 1962; reference = 1784; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-545; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 550 tag = 1962; reference = 1785; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-546; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 551 tag = 1962; reference = 1786; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-547; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 552 tag = 1962; reference = 1787; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-548; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 553 tag = 1962; reference = 1788; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-549; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 554 tag = 1962; reference = 1789; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-550; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 555 tag = 1962; reference = 1790; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-551; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 556 tag = 1962; reference = 1791; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-552; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 557 tag = 1962; reference = 1792; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-553; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 558 tag = 1962; reference = 1793; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-554; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 559 tag = 1962; reference = 1794; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-555; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 560 tag = 1962; reference = 1795; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-556; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 561 tag = 1962; reference = 1796; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-557; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 562 tag = 1962; reference = 1797; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-558; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 563 tag = 1962; reference = 1798; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-559; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 564 tag = 1962; reference = 1799; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-560; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 565 tag = 1962; reference = 1800; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-561; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 566 tag = 1962; reference = 1801; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-562; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 567 tag = 1962; reference = 1802; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-563; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 568 tag = 1962; reference = 1803; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-564; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 569 tag = 1962; reference = 1804; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-565; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 570 tag = 1962; reference = 1805; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-566; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 571 tag = 1962; reference = 1806; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-567; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 572 tag = 1962; reference = 1807; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-568; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 573 tag = 1962; reference = 1808; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-569; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 574 tag = 1962; reference = 1809; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-570; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 575 tag = 1962; reference = 1810; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-571; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 576 tag = 1962; reference = 1811; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-572; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 577 tag = 1962; reference = 1812; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-573; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 578 tag = 1962; reference = 1813; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-574; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 579 tag = 1962; reference = 1814; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-575; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 580 tag = 1962; reference = 1815; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-576; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 581 tag = 1962; reference = 1816; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-577; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 582 tag = 1962; reference = 1817; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-578; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 583 tag = 1962; reference = 1818; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-579; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 584 tag = 1962; reference = 1819; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-580; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 585 tag = 1962; reference = 1820; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-581; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 586 tag = 1962; reference = 1821; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-582; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 587 tag = 1962; reference = 1822; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-583; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 588 tag = 1962; reference = 1823; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-584; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 589 tag = 1962; reference = 1824; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-585; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 590 tag = 1962; reference = 1825; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-586; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 591 tag = 1962; reference = 1826; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-587; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 592 tag = 1962; reference = 1827; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-588; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 593 tag = 1962; reference = 1828; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-589; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 594 tag = 1962; reference = 1829; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-590; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 595 tag = 1962; reference = 1830; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-591; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 596 tag = 1962; reference = 1831; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-592; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 597 tag = 1962; reference = 1832; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-593; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 598 tag = 1962; reference = 1833; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-594; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 599 tag = 1962; reference = 1834; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-595; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 600 tag = 1962; reference = 1835; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-596; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 601 tag = 1962; reference = 1836; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-597; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 602 tag = 1962; reference = 1837; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-598; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 603 tag = 1962; reference = 1838; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-599; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 604 tag = 1962; reference = 1839; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-600; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 605 tag = 1962; reference = 1840; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-601; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 606 tag = 1962; reference = 1841; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-602; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 607 tag = 1962; reference = 1842; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-603; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 608 tag = 1962; reference = 1843; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-604; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 609 tag = 1962; reference = 1844; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-605; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 610 tag = 1962; reference = 1845; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-606; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 611 tag = 1962; reference = 1846; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-607; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 612 tag = 1962; reference = 1847; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-608; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 613 tag = 1962; reference = 1848; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-609; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 614 tag = 1962; reference = 1849; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-610; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 615 tag = 1962; reference = 1850; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-611; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 616 tag = 1962; reference = 1851; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-612; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 617 tag = 1962; reference = 1852; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-613; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 618 tag = 1962; reference = 1853; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-614; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 619 tag = 1962; reference = 1854; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-615; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 620 tag = 1962; reference = 1855; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-616; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 621 tag = 1962; reference = 1856; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-617; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 622 tag = 1962; reference = 1857; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-618; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 623 tag = 1962; reference = 1858; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-619; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 624 tag = 1962; reference = 1859; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-620; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 625 tag = 1962; reference = 1860; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-621; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 626 tag = 1962; reference = 1861; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-622; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 627 tag = 1962; reference = 1862; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-623; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 628 tag = 1962; reference = 1863; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-624; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 629 tag = 1962; reference = 1864; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-625; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 630 tag = 1962; reference = 1865; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-626; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 631 tag = 1962; reference = 1866; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-627; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 632 tag = 1962; reference = 1867; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-628; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 633 tag = 1962; reference = 1868; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-629; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 634 tag = 1962; reference = 1869; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-630; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 635 tag = 1962; reference = 1870; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-631; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 636 tag = 1962; reference = 1871; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-632; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 637 tag = 1962; reference = 1872; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-633; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 638 tag = 1962; reference = 1873; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-634; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 639 tag = 1962; reference = 1874; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-635; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 640 tag = 1962; reference = 1875; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-636; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 641 tag = 1962; reference = 1876; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-637; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 642 tag = 1962; reference = 1877; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-638; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 643 tag = 1962; reference = 1878; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-639; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 644 tag = 1962; reference = 1879; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-640; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 645 tag = 1962; reference = 1880; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-641; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 646 tag = 1962; reference = 1881; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-642; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 647 tag = 1962; reference = 1882; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-643; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 648 tag = 1962; reference = 1883; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-644; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 649 tag = 1962; reference = 1884; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-645; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 650 tag = 1962; reference = 1885; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-646; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 651 tag = 1962; reference = 1886; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-647; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 652 tag = 1962; reference = 1887; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-648; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 653 tag = 1962; reference = 1888; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-649; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 654 tag = 1962; reference = 1889; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-650; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 655 tag = 1962; reference = 1890; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-651; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 656 tag = 1962; reference = 1891; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-652; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 657 tag = 1962; reference = 1892; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-653; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 658 tag = 1962; reference = 1893; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-654; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 659 tag = 1962; reference = 1894; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-655; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 660 tag = 1962; reference = 1895; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-656; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 661 tag = 1962; reference = 1896; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-657; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 662 tag = 1962; reference = 1897; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-658; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 663 tag = 1962; reference = 1898; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-659; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 664 tag = 1962; reference = 1899; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-660; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 665 tag = 1962; reference = 1900; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-661; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 666 tag = 1962; reference = 1901; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-662; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 667 tag = 1962; reference = 1902; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-663; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 668 tag = 1962; reference = 1903; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-664; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 669 tag = 1962; reference = 1904; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-665; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 670 tag = 1962; reference = 1905; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-666; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 671 tag = 1962; reference = 1906; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-667; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 672 tag = 1962; reference = 1907; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-668; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 673 tag = 1962; reference = 1908; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-669; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 674 tag = 1962; reference = 1909; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-670; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 675 tag = 1962; reference = 1910; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-671; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 676 tag = 1962; reference = 1911; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-672; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 677 tag = 1962; reference = 1912; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-673; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 678 tag = 1962; reference = 1913; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-674; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 679 tag = 1962; reference = 1914; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-675; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 680 tag = 1962; reference = 1915; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-676; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 681 tag = 1962; reference = 1916; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-677; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 682 tag = 1962; reference = 1917; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-678; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 683 tag = 1962; reference = 1918; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-679; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 684 tag = 1962; reference = 1919; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-680; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 685 tag = 1962; reference = 1920; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-681; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 686 tag = 1962; reference = 1921; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-682; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 687 tag = 1962; reference = 1922; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-683; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 688 tag = 1962; reference = 1923; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-684; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 689 tag = 1962; reference = 1924; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-685; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 690 tag = 1962; reference = 1925; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-686; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 691 tag = 1962; reference = 1926; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-687; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 692 tag = 1962; reference = 1927; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-688; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 693 tag = 1962; reference = 1928; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-689; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 694 tag = 1962; reference = 1929; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-690; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 695 tag = 1962; reference = 1930; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-691; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 696 tag = 1962; reference = 1931; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-692; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 697 tag = 1962; reference = 1932; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-693; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 698 tag = 1962; reference = 1933; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-694; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 699 tag = 1962; reference = 1934; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-695; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 700 tag = 1962; reference = 1935; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-696; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 701 tag = 1962; reference = 1936; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-697; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 702 tag = 1962; reference = 1937; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-698; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 703 tag = 1962; reference = 1938; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-699; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 704 tag = 1962; reference = 1939; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-700; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 705 tag = 1962; reference = 1940; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-701; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 706 tag = 1962; reference = 1941; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-702; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 707 tag = 1962; reference = 1942; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-703; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 708 tag = 1962; reference = 1943; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-704; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 709 tag = 1962; reference = 1944; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-705; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 710 tag = 1962; reference = 1945; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-706; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 711 tag = 1962; reference = 1946; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-707; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 712 tag = 1962; reference = 1947; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-708; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 713 tag = 1962; reference = 1948; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-709; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 714 tag = 1962; reference = 1949; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-710; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 715 tag = 1962; reference = 1950; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-711; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 716 tag = 1962; reference = 1951; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-712; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 717 tag = 1962; reference = 1952; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-713; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 718 tag = 1962; reference = 1953; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-714; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 719 tag = 1962; reference = 1954; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-715; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 720 tag = 1962; reference = 1955; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-716; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 721 tag = 1962; reference = 1956; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-717; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 722 tag = 1962; reference = 1957; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-718; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 723 tag = 1962; reference = 1958; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-719; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 724 tag = 1962; reference = 1959; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-720; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 725 tag = 1962; reference = 1960; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-721; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 726 tag = 1962; reference = 1961; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-722; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 727 tag = 1962; reference = 1962; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-723; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 728 tag = 1962; reference = 1963; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-724; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 729 tag = 1962; reference = 1964; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-725; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 730 tag = 1962; reference = 1965; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-726; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 731 tag = 1962; reference = 1966; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-727; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 732 tag = 1962; reference = 1967; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-728; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 733 tag = 1962; reference = 1968; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-729; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 734 tag = 1962; reference = 1969; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-730; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 735 tag = 1962; reference = 1970; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-731; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 736 tag = 1962; reference = 1971; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-732; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 737 tag = 1962; reference = 1972; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-733; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 738 tag = 1962; reference = 1973; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-734; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 739 tag = 1962; reference = 1974; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-735; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 740 tag = 1962; reference = 1975; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-736; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 741 tag = 1962; reference = 1976; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-737; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 742 tag = 1962; reference = 1977; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-738; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 743 tag = 1962; reference = 1978; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-739; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 744 tag = 1962; reference = 1979; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-740; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 745 tag = 1962; reference = 1980; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-741; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 746 tag = 1962; reference = 1981; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-742; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 747 tag = 1962; reference = 1982; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-743; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 748 tag = 1962; reference = 1983; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-744; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 749 tag = 1962; reference = 1984; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-745; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 750 tag = 1962; reference = 1985; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-746; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 751 tag = 1962; reference = 1986; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-747; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 752 tag = 1962; reference = 1987; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-748; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 753 tag = 1962; reference = 1988; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-749; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 754 tag = 1962; reference = 1989; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-750; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 755 tag = 1962; reference = 1990; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-751; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 756 tag = 1962; reference = 1991; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-752; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 757 tag = 1962; reference = 1992; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-753; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 758 tag = 1962; reference = 1993; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-754; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 759 tag = 1962; reference = 1994; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-755; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 760 tag = 1962; reference = 1995; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-756; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 761 tag = 1962; reference = 1996; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-757; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 762 tag = 1962; reference = 1997; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-758; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 763 tag = 1962; reference = 1998; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-759; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 764 tag = 1962; reference = 1999; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-760; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 765 tag = 1962; reference = 2000; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-761; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 766 tag = 1962; reference = 2001; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-762; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 767 tag = 1962; reference = 2002; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-763; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 768 tag = 1962; reference = 2003; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-764; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 769 tag = 1962; reference = 2004; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-765; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 770 tag = 1962; reference = 2005; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-766; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 771 tag = 1962; reference = 2006; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-767; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 772 tag = 1962; reference = 2007; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-768; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 773 tag = 1962; reference = 2008; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-769; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 774 tag = 1962; reference = 2009; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-770; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 775 tag = 1962; reference = 2010; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-771; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 776 tag = 1962; reference = 2011; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-772; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 777 tag = 1962; reference = 2012; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-773; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 778 tag = 1962; reference = 2013; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-774; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 779 tag = 1962; reference = 2014; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-775; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 780 tag = 1962; reference = 2015; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-776; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 781 tag = 1962; reference = 2016; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-777; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 782 tag = 1962; reference = 2017; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-778; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 783 tag = 1962; reference = 2018; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-779; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 784 tag = 1962; reference = 2019; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-780; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 785 tag = 1962; reference = 2020; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-781; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 786 tag = 1962; reference = 2021; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-782; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 787 tag = 1962; reference = 2022; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-783; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 788 tag = 1962; reference = 2023; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-784; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 789 tag = 1962; reference = 2024; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-785; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 790 tag = 1962; reference = 2025; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-786; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 791 tag = 1962; reference = 2026; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-787; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 792 tag = 1962; reference = 2027; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-788; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 793 tag = 1962; reference = 2028; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-789; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 794 tag = 1962; reference = 2029; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-790; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 795 tag = 1962; reference = 2030; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-791; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 796 tag = 1962; reference = 2031; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-792; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 797 tag = 1962; reference = 2032; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-793; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 798 tag = 1962; reference = 2033; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-794; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 799 tag = 1962; reference = 2034; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-795; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 800 tag = 1962; reference = 2035; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-796; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 801 tag = 1962; reference = 2036; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-797; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 802 tag = 1962; reference = 2037; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-798; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 803 tag = 1962; reference = 2038; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-799; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 804 tag = 1962; reference = 2039; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-800; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 805 tag = 1962; reference = 2040; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-801; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 806 tag = 1962; reference = 2041; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-802; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 807 tag = 1962; reference = 2042; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-803; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 808 tag = 1962; reference = 2043; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-804; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 809 tag = 1962; reference = 2044; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-805; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 810 tag = 1962; reference = 2045; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-806; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 811 tag = 1962; reference = 2046; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-807; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 812 tag = 1962; reference = 2047; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-808; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 813 tag = 1962; reference = 2048; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-809; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 814 tag = 1962; reference = 2049; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-810; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 815 tag = 1962; reference = 2050; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-811; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 816 tag = 1962; reference = 2051; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-812; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 817 tag = 1962; reference = 2052; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-813; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 818 tag = 1962; reference = 2053; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-814; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 819 tag = 1962; reference = 2054; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-815; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 820 tag = 1962; reference = 2055; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-816; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 821 tag = 1962; reference = 2056; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-817; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 822 tag = 1962; reference = 2057; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-818; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 823 tag = 1962; reference = 2058; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-819; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 824 tag = 1962; reference = 2059; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-820; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 825 tag = 1962; reference = 2060; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-821; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 826 tag = 1962; reference = 2061; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-822; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 827 tag = 1962; reference = 2062; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-823; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 828 tag = 1962; reference = 2063; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-824; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 829 tag = 1962; reference = 2064; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-825; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 830 tag = 1962; reference = 2065; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-826; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 831 tag = 1962; reference = 2066; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-827; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 832 tag = 1962; reference = 2067; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-828; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 833 tag = 1962; reference = 2068; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-829; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 834 tag = 1962; reference = 2069; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-830; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 835 tag = 1962; reference = 2070; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-831; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 836 tag = 1962; reference = 2071; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-832; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 837 tag = 1962; reference = 2072; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-833; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 838 tag = 1962; reference = 2073; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-834; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 839 tag = 1962; reference = 2074; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-835; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 840 tag = 1962; reference = 2075; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-836; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 841 tag = 1962; reference = 2076; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-837; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 842 tag = 1962; reference = 2077; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-838; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 843 tag = 1962; reference = 2078; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-839; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 844 tag = 1962; reference = 2079; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-840; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 845 tag = 1962; reference = 2080; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-841; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 846 tag = 1962; reference = 2081; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-842; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 847 tag = 1962; reference = 2082; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-843; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 848 tag = 1962; reference = 2083; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-844; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 849 tag = 1962; reference = 2084; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-845; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 850 tag = 1962; reference = 2085; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-846; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 851 tag = 1962; reference = 2086; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-847; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 852 tag = 1962; reference = 2087; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-848; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 853 tag = 1962; reference = 2088; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-849; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 854 tag = 1962; reference = 2089; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-850; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 855 tag = 1962; reference = 2090; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-851; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 856 tag = 1962; reference = 2091; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-852; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 857 tag = 1962; reference = 2092; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-853; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 858 tag = 1962; reference = 2093; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-854; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 859 tag = 1962; reference = 2094; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-855; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 860 tag = 1962; reference = 2095; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-856; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 861 tag = 1962; reference = 2096; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-857; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 862 tag = 1962; reference = 2097; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-858; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 863 tag = 1962; reference = 2098; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-859; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 864 tag = 1962; reference = 2099; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-860; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 865 tag = 1962; reference = 2100; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-861; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 866 tag = 1962; reference = 2101; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-862; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 867 tag = 1962; reference = 2102; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-863; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 868 tag = 1962; reference = 2103; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-864; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 869 tag = 1962; reference = 2104; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-865; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 870 tag = 1962; reference = 2105; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-866; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 871 tag = 1962; reference = 2106; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-867; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 872 tag = 1962; reference = 2107; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-868; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 873 tag = 1962; reference = 2108; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-869; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 874 tag = 1962; reference = 2109; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-870; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 875 tag = 1962; reference = 2110; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-871; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 876 tag = 1962; reference = 2111; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-872; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 877 tag = 1962; reference = 2112; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-873; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 878 tag = 1962; reference = 2113; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-874; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 879 tag = 1962; reference = 2114; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-875; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 880 tag = 1962; reference = 2115; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-876; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 881 tag = 1962; reference = 2116; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-877; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 882 tag = 1962; reference = 2117; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-878; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 883 tag = 1962; reference = 2118; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-879; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 884 tag = 1962; reference = 2119; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-880; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 885 tag = 1962; reference = 2120; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-881; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 886 tag = 1962; reference = 2121; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-882; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 887 tag = 1962; reference = 2122; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-883; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 888 tag = 1962; reference = 2123; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-884; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 889 tag = 1962; reference = 2124; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-885; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 890 tag = 1962; reference = 2125; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-886; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 891 tag = 1962; reference = 2126; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-887; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 892 tag = 1962; reference = 2127; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-888; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 893 tag = 1962; reference = 2128; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-889; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 894 tag = 1962; reference = 2129; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-890; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 895 tag = 1962; reference = 2130; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-891; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 896 tag = 1962; reference = 2131; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-892; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 897 tag = 1962; reference = 2132; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-893; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 898 tag = 1962; reference = 2133; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-894; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 899 tag = 1962; reference = 2134; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-895; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 900 tag = 1962; reference = 2135; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-896; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 901 tag = 1962; reference = 2136; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-897; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 902 tag = 1962; reference = 2137; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-898; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 903 tag = 1962; reference = 2138; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-899; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 904 tag = 1962; reference = 2139; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-900; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 905 tag = 1962; reference = 2140; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-901; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 906 tag = 1962; reference = 2141; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-902; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 907 tag = 1962; reference = 2142; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-903; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 908 tag = 1962; reference = 2143; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-904; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 909 tag = 1962; reference = 2144; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-905; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 910 tag = 1962; reference = 2145; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-906; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 911 tag = 1962; reference = 2146; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-907; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 912 tag = 1962; reference = 2147; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-908; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 913 tag = 1962; reference = 2148; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-909; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 914 tag = 1962; reference = 2149; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-910; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 915 tag = 1962; reference = 2150; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-911; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 916 tag = 1962; reference = 2151; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-912; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 917 tag = 1962; reference = 2152; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-913; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 918 tag = 1962; reference = 2153; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-914; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 919 tag = 1962; reference = 2154; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-915; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 920 tag = 1962; reference = 2155; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-916; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 921 tag = 1962; reference = 2156; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-917; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 922 tag = 1962; reference = 2157; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-918; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 923 tag = 1962; reference = 2158; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-919; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 924 tag = 1962; reference = 2159; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-920; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 925 tag = 1962; reference = 2160; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-921; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 926 tag = 1962; reference = 2161; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-922; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 927 tag = 1962; reference = 2162; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-923; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 928 tag = 1962; reference = 2163; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-924; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 929 tag = 1962; reference = 2164; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-925; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 930 tag = 1962; reference = 2165; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-926; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 931 tag = 1962; reference = 2166; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-927; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 932 tag = 1962; reference = 2167; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-928; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 933 tag = 1962; reference = 2168; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-929; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 934 tag = 1962; reference = 2169; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-930; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 935 tag = 1962; reference = 2170; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-931; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 936 tag = 1962; reference = 2171; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-932; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 937 tag = 1962; reference = 2172; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-933; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 938 tag = 1962; reference = 2173; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-934; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 939 tag = 1962; reference = 2174; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-935; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 940 tag = 1962; reference = 2175; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-936; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 941 tag = 1962; reference = 2176; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-937; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 942 tag = 1962; reference = 2177; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-938; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 943 tag = 1962; reference = 2178; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-939; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 944 tag = 1962; reference = 2179; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-940; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 945 tag = 1962; reference = 2180; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-941; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 946 tag = 1962; reference = 2181; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-942; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 947 tag = 1962; reference = 2182; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-943; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 948 tag = 1962; reference = 2183; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-944; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 949 tag = 1962; reference = 2184; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-945; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 950 tag = 1962; reference = 2185; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-946; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 951 tag = 1962; reference = 2186; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-947; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 952 tag = 1962; reference = 2187; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-948; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 953 tag = 1962; reference = 2188; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-949; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 954 tag = 1962; reference = 2189; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-950; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 955 tag = 1962; reference = 2190; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-951; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 956 tag = 1962; reference = 2191; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-952; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 957 tag = 1962; reference = 2192; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-953; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 958 tag = 1962; reference = 2193; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-954; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 959 tag = 1962; reference = 2194; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-955; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 960 tag = 1962; reference = 2195; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-956; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 961 tag = 1962; reference = 2196; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-957; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 962 tag = 1962; reference = 2197; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-958; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 963 tag = 1962; reference = 2198; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-959; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 964 tag = 1962; reference = 2199; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-960; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 965 tag = 1962; reference = 2200; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-961; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 966 tag = 1962; reference = 2201; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-962; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 967 tag = 1962; reference = 2202; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-963; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 968 tag = 1962; reference = 2203; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-964; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 969 tag = 1962; reference = 2204; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-965; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 970 tag = 1962; reference = 2205; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-966; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 971 tag = 1962; reference = 2206; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-967; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 972 tag = 1962; reference = 2207; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-968; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 973 tag = 1962; reference = 2208; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-969; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 974 tag = 1962; reference = 2209; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-970; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 975 tag = 1962; reference = 2210; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-971; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 976 tag = 1962; reference = 2211; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-972; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 977 tag = 1962; reference = 2212; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-973; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 978 tag = 1962; reference = 2213; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-974; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 979 tag = 1962; reference = 2214; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-975; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 980 tag = 1962; reference = 2215; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-976; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 981 tag = 1962; reference = 2216; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-977; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 982 tag = 1962; reference = 2217; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-978; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 983 tag = 1962; reference = 2218; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-979; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 984 tag = 1962; reference = 2219; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-980; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 985 tag = 1962; reference = 2220; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-981; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 986 tag = 1962; reference = 2221; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-982; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 987 tag = 1962; reference = 2222; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-983; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 988 tag = 1962; reference = 2223; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-984; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 989 tag = 1962; reference = 2224; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-985; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 990 tag = 1962; reference = 2225; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-986; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 991 tag = 1962; reference = 2226; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-987; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 992 tag = 1962; reference = 2227; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-988; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 993 tag = 1962; reference = 2228; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-989; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 994 tag = 1962; reference = 2229; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-990; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 995 tag = 1962; reference = 2230; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-991; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 996 tag = 1962; reference = 2231; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-992; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 997 tag = 1962; reference = 2232; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-993; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 998 tag = 1962; reference = 2233; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-994; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 999 tag = 1962; reference = 2234; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-995; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 1000 tag = 1962; reference = 2235; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-996; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 1001 tag = 1962; reference = 2236; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-997; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 1002 tag = 1962; reference = 2237; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-998; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; Vdata: 1003 tag = 1962; reference = 2238; number of records = 1; interlace = FULL_INTERLACE (0); fields = [A]; record size (in bytes) = 1; name = VdataLoop-999; class = ; number of attributes = 0 - field index 0: [A], type=4, order=1 number of attributes = 0 Loc. Data 0 V ; libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/swi8.hdf0000644000000000000000000000070412421456623017046 0ustar Ê\¾&j>½BÀ`Ár‚¿• áܣФ NCSA HDF Version 4.0 Release 0, ?month? ?year? defgnopqxyz{jjjjTimeLineColumnSecondInchCmInt32Int16Int32d {ÿ¾½ÀÁ¿ÃÜlibhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-12.out0000644000000000000000000000071012421456623020116 0ustar File name: SDSlongname.hdf Variable Name = The name of this dataset is long and it is used to test the new variable length name feature. Index = 0 Type= 32-bit signed integer Ref. = 2 Compression method = NONE Rank = 2 Number of attributes = 0 Dim0: Name=fakeDim0 Size = 10 Scale Type = number-type not set Number of attributes = 0 Dim1: Name=fakeDim1 Size = 10 Scale Type = number-type not set Number of attributes = 0 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpsds-8.out0000644000000000000000000000462112421456623020050 0ustar File name: swf32_fileattr.hdf File attributes: Attr0: Name = File purpose Type = 8-bit signed char Count= 37 Value = For testing dumpsds SD file attribute Attr1: Name = File contents Type = 8-bit signed char Count= 14 Value = Some data sets Attr2: Name = Test clean format Type = 8-bit signed char Count= 65 Value = A tab <\011>, a CR <\012>, several nulls <\000\000\000\000\000\000>, and one more tab <\011> Dimension Variable Name = fakeDim0 Index = 0 Scale Type= 32-bit floating point Ref. = 3 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim0 Size = 2 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Time Attr1: Name = units Type = 8-bit signed char Count= 6 Value = Second Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Dimension Variable Name = fakeDim1 Index = 1 Scale Type= 32-bit floating point Ref. = 4 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim1 Size = 3 Attr0: Name = long_name Type = 8-bit signed char Count= 4 Value = Line Attr1: Name = units Type = 8-bit signed char Count= 4 Value = Inch Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int16 Dimension Variable Name = fakeDim2 Index = 2 Scale Type= 32-bit floating point Ref. = 5 Compression method = NONE Rank = 1 Number of attributes = 3 Dim0: Name=fakeDim2 Size = 4 Attr0: Name = long_name Type = 8-bit signed char Count= 6 Value = Column Attr1: Name = units Type = 8-bit signed char Count= 2 Value = Cm Attr2: Name = format Type = 8-bit signed char Count= 5 Value = Int32 Variable Name = Data-Set-2 Index = 3 Type= 32-bit floating point Ref. = 2 Compression method = NONE Rank = 3 Number of attributes = 2 Dim0: Name=fakeDim0 Size = 2 Scale Type = 32-bit floating point Number of attributes = 3 Dim1: Name=fakeDim1 Size = 3 Scale Type = 32-bit floating point Number of attributes = 3 Dim2: Name=fakeDim2 Size = 4 Scale Type = 32-bit floating point Number of attributes = 3 Attr0: Name = valid_max Type = 32-bit floating point Count= 1 Value = 123.000000 Attr1: Name = valid_min Type = 32-bit floating point Count= 1 Value = -1.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/dumpgr-4.out0000644000000000000000000000116512421456623017663 0ustar File name: grtdfui82.hdf Image Name = Image_array_5 Index = 0 Type= 8-bit unsigned integer width=10; height=5 Ref. = 6 ncomps = 2 Interlace mode= PIXEL No palette Compression method = NONE Number of attributes = 0 Data : 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testfiles/list-5.out0000644000000000000000000000020212421456623017330 0ustar File: tdata.hdf Last modified with NCSA HDF Version 3.3 Release 4, October 1994 Numeric Data Group : (tag 720) Ref nos: 2 3 4 libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp.txt0000644000000000000000000002147512421456623015013 0ustar hdp -- HDF dumper NAME hdp - HDF dumper SYNOPSIS hdp [hdp options] hdp command [command options] DESCRIPTION hdp is a command line utility designed for quick display of contents and data of HDF3.3 objects. It can list the contents of hdf files at various levels with different details. It can also dump the data of one or more specific objects in the file. HDP OPTIONS Currently, there is only one option. -H Display usage information about the specified command. If no command is specified, -H lists all available commands. HDP COMMANDS hdp currently has two types of commands: list and dump. Other types of commands such as those for editing may be added in the future. hdp list lists contents of files in hdp dumpsds displays data of NDGs and SDGs in the listed files. hdp dumpvd displays data of vdatas in the listed files. hdp dumpvg displays data of objects in vgroups in the listed files. hdp dumprig displays data of RIGs in the listed files. hdp dumpgr displays data of general RIGs in the listed files. HDP COMMAND OPTIONS (Note: options preceeded by an * have not yet been implemented.) hdp list [format options] [content ops] [filter ops] [order ops] -------------------------------------------------------------------------- Format options decide how the info of objects will be presented on the screen. -s (short format) under each tag #, all ref's of that tag are listed in one or more lines, same as the output of hdfls. (default) -l (long format) one object per line. Each line contains tag-name, tag/ref and the index of this tag in the file.(e.g., the ith NDG in the file). -d debug format, one object per line. Each line contains tag_name, tag/ref, index, offset, and length, same as the output of hdfls -d. no tagname tag ref index/tag offset length -- ------- --- --- --------- ------ ------ 1 DFTAG_NT 106 2 1 2 DFTAG_SD 701 3 1 ... Content options allow contents be displayed. -n display the name or label of the object, if there is any. -n puts you in -l format automatically. -c display the class of the object, if there is any. -l format. -a display description of the object, if there is any. -l format. Filter options select certain type of objects to display, default is all. -g display groups only. Objects which do not belong to any group will not be displayed. Nested groups will be displayed in tree format. -t display objects with specified tag number . e.g. 720 for NDG. -t display objects with specified tag name. Order options sort the output list in different orders. -ot by tag # (default) -of by the order in file DDlist. -og by group -on by name(label) hdp dumpsds [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which SDS to dump. -i dump SDS's with indices specified in ; indices correspond to the order of the SDS in the file -r dump SDS's with reference numbers specified in -n dump SDS's with names specified in -a dump all SDS's in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref Output options -o specify fn as output file name * -b binary file -t ascii text file (default) Note: any combination of an option from each of the three categories can be used; but no more than one option from one category is allowed. hdp dumpvd [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which vdata to dump. -i dump vdatas with indices in ; indices correspond to the order of the vdatas in the files -r dump vdatas with reference numbers specified in -n dump vdatas with names specified in -c dump vdatas with classes specified in -a dump all vdatas in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref -f dump data of specified fields Output options -o specify fn as output file name * -b binary file -t text ascii file (default) hdp dumpvg [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which vgroups to dump. -i dump vgroups with indices specified in ; indices correspond to the order of the vgroups specified in the files -r dump vgroups with reference numbers specified in -n dump vgroups with names specified in -c dump vgroups with classes specified in -a dump all vgroups in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only Output options -o specify fn as output file name * -b binary file -t text ascii file (default) Note: Unless the "-d" option is specified, a graphical representation of the file will be given after the data has been displayed. hdp dumprig [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which RIG to dump. -i dump RIGs with indices specified in ; indices correspond to the order of the RIGs specified in the files -r dump RIGs with reference numbers specified in -a dump all RIGs in the file. (default) -m 8|24 dump the RIGs of 8-bit or 24-bit. By default all RIGs in the file will be dumped Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only Output options -o specify fn as output file name -b binary file -t text ascii file (default) hdp dumpgr [filter ops] [contents ops] [output ops] -------------------------------------------------------------------- Filter options specify which general RIGs to dump. -i dump general RIG's with indices specified in ; indices correspond to the order of the RIG in the file -r dump general RIG's with reference numbers specified in -n dump general RIG's with names specified in -a dump all general RIG's in the file. (default) Content options -v display everything including all annotations (default) -h header only, no annotation for elements or data -d data only, no tag/ref Output options -o specify fn as output file name -b binary file -t ascii text file (default) Note: any combination of an option from each of the three categories can be used; but no more than one option from one category is allowed. libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp.c0000644000000000000000000003631612421456623014416 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdp.c 6013 2014-01-10 21:19:02Z acheng $ */ #define HDP_MASTER #define VSET_INTERFACE #include "hdp.h" #include "local_nc.h" /* to use some definitions */ /* Print the usage message about this utility */ static void usage(intn argc, char *argv[]) { printf("%s, %s\n\n", argv[0], LIBVER_STRING ); printf("Usage: hdp [-H] command [command options] \n"); printf("\t -H Display usage information about the specified command.\n"); printf("\t If no command is specified, -H lists all commands.\n"); printf("\t Commands:\n"); printf("\t list \tlists contents of files in \n"); printf("\t dumpsds\tdisplays data of SDSs in \n"); printf("\t dumpvd\tdisplays data of vdatas in . \n"); printf("\t dumpvg\tdisplays data of vgroups in . \n"); printf("\t dumprig\tdisplays data of RIs (DFR8 and DFR24) in . \n"); printf("\t dumpgr\tdisplays data of RIs in . \n"); printf("\t \tlist of hdf file names, separated by spaces.\n"); } void init_dump_opts(dump_info_t * dump_opts) { dump_opts->filter = DALL; /* default dump all GRs */ dump_opts->by_index.num_list = NULL; /* no index given */ dump_opts->by_index.num_items = 0; dump_opts->by_ref.num_list = NULL; /* no ref# given */ dump_opts->by_ref.num_items = 0; dump_opts->by_name.str_list = NULL; /* no name given */ dump_opts->by_name.num_items = 0; dump_opts->by_class.str_list = NULL; /* no class given */ dump_opts->by_class.num_items = 0; dump_opts->contents = DVERBOSE; /* default dump all information */ dump_opts->dump_to_file = FALSE; /* don't dump to output file */ dump_opts->file_format = DASCII; /* default output is ASCII file */ dump_opts->file_type = HDF_FILE; /* assuming an HDF file is provided */ dump_opts->print_pal = FALSE; /* GR only, don't print palette */ dump_opts->keep_order = FALSE; dump_opts->all_types = NULL; /* no specific dataset requested, default to dump all datasets */ dump_opts->num_chosen = NO_SPECIFIC; /* print output aligned, using carriage returns */ dump_opts->as_stream = FALSE; /* print space characters (LF, FF, CR, space, tabs...) in \digit format */ dump_opts->clean_output = FALSE; /* print data starting at column 16 unless reset otherwise */ dump_opts->firstln_indent = 16; /* print data on a continuous line starting at column 16 unless reset otherwise */ dump_opts->contln_indent = 16; /* GR only, print data using interlace at creation */ dump_opts->interlace = NO_SPECIFIC; /* GR & SD only, print data of global attributes unless -g is given */ dump_opts->no_gattr_data = FALSE; /* GR & SD only, print data of local attributes unless -l is given */ dump_opts->no_lattr_data = FALSE; HDstrcpy(dump_opts->file_name, "\0"); } /* end init_dump_opts() */ int main(int argc, char *argv[]) { command_t cmd; /* command to perform */ intn curr_arg; /* current cmd line argument */ dump_opt_t glob_opts; /* global options for all commands */ intn j; /* local counting variables */ HDmemset(&glob_opts, 0, sizeof(dump_opt_t)); if (argc < 2) { usage(argc, argv); exit(1); } /* end if */ curr_arg = 1; /* printf("Argument 0: %s\n",argv[0]); printf("Argument 1: %s\n",argv[1]); */ while (curr_arg < argc && (argv[curr_arg][0] == '-')) { /* while(curr_arg>> Please make a note that dumprig is no longer available.\n"); fprintf( stderr, " The command dumpgr is and should be used in its place.\n" ); if (FAIL == do_dumpgr(curr_arg, argc, argv, glob_opts.help)) */ exit(1); break; case DUMPVG: if (FAIL == do_dumpvg(curr_arg, argc, argv, glob_opts.help)) exit(1); break; case DUMPVD: if (FAIL == do_dumpvd(curr_arg, argc, argv, glob_opts.help)) exit(1); break; case DUMPGR: if (FAIL == do_dumpgr(curr_arg, argc, argv, glob_opts.help)) exit(1); break; case HELP: case NONE: usage(argc, argv); break; default: printf("Invalid command!, cmd=%d\n", (int) cmd); exit(1); break; } /* end switch */ return (0); } /* ----------------------------------------------------------------- NAME VShdfsize - computes the byte size of the field(s) of a vdata. DESCRIPTION The size is the byte size of the fields of a vdata in a hdf file. This routine is very similar to the HDF API routine VSsizeof except it uses (struct vdata_desc).wlist.isize to compute the field size instead of (struct vdata_desc).wlist.esize as VSsizeof. RETURNS The byte size of the field(s), positive integer, on success; otherwise, returns FAIL. ----------------------------------------------------------------- */ int32 VShdfsize(int32 vkey, /* IN vdata key */ char *fields /* IN: Name(s) of the fields to check size of */ ) { int32 totalsize; int32 i, j; int32 found; int32 ac; char **av = NULL; vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VShdfsize"); /* check key is valid vdata */ if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); totalsize = 0; if (fields == NULL) /* default case? */ { /* count all field sizes in vdata */ for (j = 0; j < vs->wlist.n; j++) totalsize += vs->wlist.isize[j]; } else if (fields[0] != '\0') /* implies: return 0 for empty 'fields' */ { /* parse field string */ if ((scanattrs(fields, &ac, &av) < 0) || (ac < 1)) HGOTO_ERROR(DFE_ARGS, FAIL); for (i = 0; i < ac; i++) { /* check fields in vs */ for (found = 0, j = 0; j < vs->wlist.n; j++) if (!HDstrcmp(av[i], vs->wlist.name[j])) { totalsize += vs->wlist.isize[j]; found = 1; break; } if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); } /* end for */ } /* end else */ /* return total size of vdata fields specified */ ret_value = totalsize; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VShdfsize */ /* ------------- VSattrhdfsize -------------------------- NAME VSattrhdfsize -- get hdfsize of a vdata attribute USAGE intn VSattrhdfsize(int32 vsid, int32 findex, intn attrindex, int32 *size); int32 vsid; IN: vdata id int32 findex; IN: field index. _HDF_VDATA (-1) for the vdata intn attrindex; IN: which attr of the field/vdata attrindex is 0-based int32 *size; OUT: size of the attr values in hdf files. RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION size can be NULL if which is not interested. --------------------------------------------------- */ intn VSattrhdfsize(int32 vsid, int32 findex, intn attrindex, int32 *size) { CONSTR(FUNC, "VSattrhdfsize"); VDATA *vs, *attr_vs; vs_attr_t *vs_alist; vsinstance_t *vs_inst, *attr_inst; int32 attr_vsid; int32 ret_value = SUCCEED; intn i, nattrs, a_index, found; DYN_VWRITELIST *w; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex >= vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); nattrs = vs->nattrs; if (attrindex <0 || attrindex >= nattrs) HGOTO_ERROR(DFE_ARGS, FAIL); vs_alist = vs->alist; if (nattrs == 0 || vs_alist == NULL) /* no attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); found = 0; a_index = -1; for (i=0; ifindex == findex) { a_index++; if (a_index == attrindex) { found = 1; break; } } vs_alist++; } if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); /* found. get attr info */ if (FAIL == (attr_vsid = VSattach(vs->f, (int32)vs_alist->aref, "r"))) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (NULL == (attr_inst = (vsinstance_t *)HAatom_object(attr_vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (attr_vs = attr_inst->vs) || HDstrcmp(attr_vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); w = &(attr_vs->wlist); /* this vdata has 1 field */ if (w->n != 1 || HDstrcmp(w->name[0], ATTR_FIELD_NAME)) HGOTO_ERROR(DFE_BADATTR, FAIL); if (size) *size = w->order[0] * (DFKNTsize(w->type[0])); if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSattrhdfsize */ /* ---------- Vattrhdfsize ---------------------- NAME Vattrhdfsize -- get hdfsize of a vgroup attribute USAGE intn Vattrhdfsize(int32 vgid, intn attrindex, int32 *size) int32 vgid; IN: vgroup id intn attrindex; IN: which attr's info we want attrindex is 0-based int32 *size; OUT: size of the attr values in hdf files. RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION size can be NULL if which is not interested. --------------------------------------------------- */ intn Vattrhdfsize(int32 vgid, intn attrindex, int32 *size) { CONSTR(FUNC, "Vattrhdfsize"); VGROUP *vg; VDATA *vs; DYN_VWRITELIST *w; vginstance_t *v; vsinstance_t *vs_inst; vg_attr_t *vg_alist=NULL; intn adjusted_index; int32 fid, vsid; int32 ret_value = SUCCEED; HEclear(); if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; fid = vg->f; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS, FAIL); /* Validate arguments */ /* Check given index */ if (attrindex < 0) HGOTO_ERROR(DFE_BADATTR, FAIL); /* invalid attribute index given */ /* Check attribute list; it's complicated here to work around the old/new-style attribute issue, see headers of Vnattrs2, Vattrinfo2 in src for details */ adjusted_index = attrindex; if (adjusted_index < vg->noldattrs) /* index of old-style attribute */ vg_alist = vg->old_alist; /* use old-attr list */ else if (adjusted_index >= vg->noldattrs && adjusted_index < (vg->nattrs+vg->noldattrs)) /* index of new-style attributes */ { /* Adjust the index to accommodate for the old-style attributes preceding the new-style attribute list */ adjusted_index = adjusted_index - vg->noldattrs; vg_alist = vg->alist; /* use new-attr list */ } else /* not that many attrs */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (vg_alist == NULL) /* Bad attr list */ HGOTO_ERROR(DFE_BADATTR, FAIL); /* Get access to the vdata storing the attr, and obtain requested info */ if ((vsid = VSattach(fid, (int32)vg_alist[attrindex].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); w = &(vs->wlist); /* this vdata has 1 field */ if (w->n != 1 || HDstrcmp(w->name[0], ATTR_FIELD_NAME)) /* if (w->n != 1 ) */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (size) *size = w->order[0] * (DFKNTsize(w->type[0])); if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vattrhdfsize */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_dump.c0000644000000000000000000004113512421456623015436 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 5706 $"; #endif /* $Id: hdp_dump.c 5706 2011-11-01 18:23:02Z bmribler $ */ #include #include "mfhdf.h" #include "hdp.h" #include #ifndef MIPSEL #include #endif /* MIPSEL */ #define CARRIAGE_RETURN 13 #define LINE_FEED 10 #define HORIZONTAL_TAB 9 typedef intn (*fmtfunct_t) (VOIDP, file_format_t, FILE *); fmtfunct_t select_func(int32 nt); /* * printing functions copied from vshow.c and used by sdsdumpfull(). * * Please pay attention to the data types used in the print/output routines. * Make sure the data type being dumped matches arguments in 'fwrite()' .etc. * */ intn fmtbyte(unsigned char *x, /* assumption: byte is the same as unsigned char */ file_format_t ff, FILE *ofp) { unsigned char s; if(ff == DASCII) return (fprintf(ofp, "%02x ", (unsigned) *x)); else { s = (unsigned char) *x; return(fwrite(&s, sizeof(unsigned char),1,ofp)); } } intn fmtint8(VOIDP x, /* assumption: int8 is same as signed char */ file_format_t ff, FILE *ofp) { int8 s; if(ff == DASCII) return (fprintf(ofp, "%d", (int) *((signed char *) x))); else { s = (int8) *((signed char *) x); return(fwrite(&s, sizeof(int8), 1, ofp)); } } intn fmtuint8(VOIDP x, /* assumption: uint8 is same as unsigned char */ file_format_t ff, FILE *ofp) { uint8 s; if(ff == DASCII) return (fprintf(ofp, "%u", (unsigned) *((unsigned char *) x))); else { s = (uint8) *((unsigned char *) x); return(fwrite(&s, sizeof(uint8), 1, ofp)); } } intn fmtint16(VOIDP x, file_format_t ff, FILE *ofp) { int16 s; HDmemcpy(&s, x, sizeof(int16)); if(ff == DASCII) return (fprintf(ofp, "%d", (int) s)); else return(fwrite(&s, sizeof(int16), 1, ofp)); } intn fmtuint16(VOIDP x, file_format_t ff, FILE *ofp) { uint16 s; HDmemcpy(&s, x, sizeof(uint16)); if(ff == DASCII) return (fprintf(ofp, "%u", (unsigned) s)); else return(fwrite(&s, sizeof(uint16), 1, ofp)); } intn fmtchar(VOIDP x, file_format_t ff, FILE *ofp) { if (isprint(*(unsigned char *) x)) { putc(*((char *) x), ofp); return (1); } else { putc('\\', ofp); return (1 + fprintf(ofp, "%03o", *((uchar8 *) x))); } } intn fmtuchar8(VOIDP x, /* assumption: uchar8 is same as unsigned char */ file_format_t ff, FILE *ofp) { uchar8 s; if(ff == DASCII) /* replace %o with %d by Elena's suggestion: it doesn't make sense to print in octal - BMR 06/23/00 */ return (fprintf(ofp, "%d", *((uchar8 *) x))); else { s = (uchar8) *((unsigned char *)x); return(fwrite(&s, sizeof(uchar8),1, ofp)); } } intn fmtint(VOIDP x, /* assumption: int is same as 'intn' */ file_format_t ff, FILE *ofp) { intn i; HDmemcpy(&i, x, sizeof(intn)); if(ff == DASCII) return (fprintf(ofp, "%d", (int) i)); else return(fwrite(&i, sizeof(intn), 1, ofp)); } #define FLOAT32_EPSILON ((float32)1.0e-20) intn fmtfloat32(VOIDP x, file_format_t ff, FILE *ofp) { float32 fdata; HDmemcpy(&fdata, x, sizeof(float32)); if(ff == DASCII) { if (fabs(fdata - FILL_FLOAT) <= FLOAT32_EPSILON) return (fprintf(ofp, "FloatInf")); else return (fprintf(ofp, "%f", fdata)); } else { return(fwrite(&fdata, sizeof(float32), 1, ofp)); } } intn fmtint32(VOIDP x, file_format_t ff, FILE *ofp) { int32 l; HDmemcpy(&l, x, sizeof(int32)); if(ff == DASCII) return (fprintf(ofp, "%ld", (long) l)); else return(fwrite(&l, sizeof(int32), 1, ofp)); } intn fmtuint32(VOIDP x, file_format_t ff, FILE *ofp) { uint32 l; HDmemcpy(&l, x, sizeof(uint32)); if(ff == DASCII) return (fprintf(ofp, "%lu", (unsigned long) l)); else return(fwrite(&l, sizeof(uint32), 1, ofp)); } intn fmtshort(VOIDP x, file_format_t ff, FILE *ofp) { short s; HDmemcpy(&s, x, sizeof(short)); if(ff == DASCII) return (fprintf(ofp, "%d", (int) s)); else return(fwrite(&s, sizeof(short), 1, ofp)); } #define FLOAT64_EPSILON ((float64)1.0e-20) intn fmtfloat64(VOIDP x, file_format_t ff, FILE *ofp) { float64 d; HDmemcpy(&d, x, sizeof(float64)); if(ff == DASCII) { if (fabs(d - FILL_DOUBLE) <= FLOAT64_EPSILON) return (fprintf(ofp, "DoubleInf")); else return (fprintf(ofp, "%f", d)); } else { return(fwrite(&d, sizeof(float64), 1, ofp)); } } fmtfunct_t select_func( int32 nt) { switch (nt & 0xff ) { case DFNT_CHAR: return( fmtchar ); break; case DFNT_UCHAR: return( fmtuchar8 ); break; case DFNT_UINT8: return( fmtuint8 ); break; case DFNT_INT8: return( fmtint8 ); break; case DFNT_UINT16: return( fmtuint16 ); break; case DFNT_INT16: return( fmtint16 ); break; case DFNT_UINT32: return( fmtuint32 ); break; case DFNT_INT32: return( fmtint32 ); break; case DFNT_FLOAT32: return( fmtfloat32 ); break; case DFNT_FLOAT64: return( fmtfloat64 ); break; default: fprintf(stderr, "HDP does not support type [%d]. Use signed character printing function.\n", (int) nt); return( fmtchar ); } /* end switch */ } /* select_func */ intn dumpfull(int32 nt, dump_info_t* dump_opts, int32 cnt, /* number of items in 'databuf' ? */ VOIDP databuf, FILE *ofp, intn indent, /* indentation on the first line */ intn cont_indent ) /* indentation on the continuous lines */ { intn i; VOIDP bufptr = NULL; fmtfunct_t fmtfunct = NULL; int32 off; intn cn; file_format_t ff = dump_opts->file_format; intn ret_value = SUCCEED; /* check inputs */ if( NULL == databuf ) ERROR_GOTO_1( "in %s: Data buffer to be dumped is NULL", "dumpfull" ); if( NULL == ofp ) ERROR_GOTO_1( "in %s: Output file pointer is NULL", "dumpfull" ); /* select the appropriate function to print data elements depending on the data number type */ fmtfunct = select_func( nt ); /* assign to variables used in loop below (?)*/ bufptr = databuf; off = DFKNTsize(nt | DFNT_NATIVE); /* what is offset for data type */ if (off == FAIL) ERROR_GOTO_2("in %s: Failed to find native size of type [%d]", "dumpfull", (int)nt ); cn = cont_indent; /* current column number, cont_indent because that's where the data actually starts */ /* check if we're dumping data in ASCII or Binary mode. */ if(ff == DASCII) { /* print spaces in front of data on the first line */ for (i = 0; i < indent; i++) putc(' ', ofp); if (nt != DFNT_CHAR) { for (i = 0; i < cnt && bufptr != NULL; i++) { cn += fmtfunct(bufptr, ff, ofp); /* dump item to file */ bufptr = (char *) bufptr + off; putc(' ', ofp); cn++; /* temporary fix bad alignment algo in dumpfull by adding i < cnt-1 to remove extra line - BMR 4/10/99 */ if( !dump_opts->as_stream ) /* add \n after MAXPERLINE chars */ if (cn > MAXPERLINE && i < cnt-1 ) { putc('\n', ofp); /* print spaces in front of data on the continuous line */ for (cn = 0; cn < cont_indent; cn++) putc(' ', ofp); } /* end if */ } /* end for every item in buffer */ } else /* DFNT_CHAR */ { for (i = 0; i < cnt && bufptr != NULL; i++) { cn += fmtfunct(bufptr, ff, ofp); /* dump item to file */ bufptr = (char *) bufptr + off; if( !dump_opts->as_stream ) /* add \n after MAXPERLINE chars */ if (cn > MAXPERLINE ) { putc('\n', ofp); /* print spaces in front of data on the continuous line */ for (cn = 0; cn < cont_indent; cn++) putc(' ', ofp); } /* end if */ } /* end for every item in buffer */ } /* end else DFNT_CHAR */ putc('\n', ofp); /* newline after a dataset or attribute */ } /* end DASCII */ else /* Binary */ { for (i = 0; i < cnt && bufptr != NULL; i++) { cn += fmtfunct(bufptr, ff, ofp); /* dump item to file */ bufptr = (char *) bufptr + off; /* increment by offset? */ /* cn++; I don't see any reason of this increment being here 9/4/00*/ } /* end for all items in buffer */ } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* dumpfull */ intn dumpclean(int32 nt, dump_info_t* dump_opts, int32 cnt, /* number of items in 'databuf' ? */ VOIDP databuf, FILE *ofp) { intn i; VOIDP bufptr = NULL; int32 off; intn cn; /* # of characters being printed on a line */ intn small_attr = TRUE; /* data buffer of the attribute is small */ intn is_null; /* TRUE if current character is a null */ char* tempptr; /* used in finding CR or LF in data buffer */ intn ret_value = SUCCEED; /* check inputs */ if( NULL == databuf ) ERROR_GOTO_1( "in %s: Data buffer to be dumped is NULL", "dumpclean" ); if( NULL == ofp ) ERROR_GOTO_1( "in %s: Output file pointer is NULL", "dumpclean" ); /* assign to variables used in loop below (?)*/ bufptr = databuf; off = DFKNTsize(nt | DFNT_NATIVE); /* what is offset for data type */ if (off == FAIL) ERROR_GOTO_2("in %s: Failed to find native size of type [%d]", "dumpclean", (int)nt ); /* set char counter to the col. #, where the first attr value will be printed in the case it is printed on the same line with "Value =" */ cn = ATTR_CONT_INDENT; /* this is the default */ is_null = FALSE; /* no null character is reached yet */ /*********************************************************************** * Requirement for printing attribute data (BMR - Oct 5, 2000): * if the attribute is large, print all data at the left most column; * otherwise (small attribute), print the first line of the data * next to the title, i.e. "Value = ", and indent the succeeding lines * ATTR_CONT_INDENT spaces. * Large attribute: buffer size is >= MAXPERLINE and the buffer * contains at least one \n (LF) or \r (CR). * Small attribute: buffer size is < MAXPERLINE or the buffer doesn't * contain any \n (LF) or \r (CR) among the data. ***********************************************************************/ /* Setting variables to prepare for the printing */ /* check the size of the buffer first, if it's shorter than MAXPERLINE then set flag small_attr. If the buffer size is larger, then proceed to the next segment which determines whether the attribute is small or large using the space char. criteria. */ if( cnt < MAXPERLINE ) small_attr = TRUE; /* if the buffer contains at least one \n (LF) or \r (CR), reset flag small_attr to indicate the attribute is considred large. */ else /* space char. criteria */ { tempptr = strchr( (char *) bufptr, '\n'); /* find the first linefeed */ if( tempptr != NULL) /* if an LF is found within the data buffer */ { putc('\n', ofp); /* start first line of data on the next line */ small_attr = FALSE; /* indicate data buffer contains CRs or LFs */ } else /* no LF, maybe CR is there */ { tempptr = strchr( (char *) bufptr, '\r'); if( tempptr != NULL) /* if a CR is found within the data buffer */ { putc('\n', ofp); /* start first line of data on the next line */ small_attr = FALSE; /* indicate data buffer contains CRs or LFs */ } } } /* space char. criteria */ /* for each character in the buffer, print it accordingly */ for (i = 0; i < cnt; i++) { /* if number of characters printed on the current line reaches the max defined and the data buffer doesn't contain any LF or CR, print a new line and indent appropriately. Note: this statement is at the top here is to prevent the extra line and indentation when the last line of the attribute data just reached MAXPERLINE */ if (cn >= MAXPERLINE && small_attr ) { putc('\n', ofp); for (cn = 0; cn < ATTR_CONT_INDENT; cn++) putc(' ', ofp); } /* end if */ /* if the current character is printable */ if (isprint(*(unsigned char *) bufptr)) { /* if there has been null characters before this non-null char, print "..." */ if( is_null ) { cn = cn + fprintf( ofp, " ... " ); is_null = FALSE; /* reset flag */ } /* then print the current non-null character */ putc(*((char *) bufptr), ofp); cn++; /* increment character count */ } /* when a \0 is reached, do not print it, set flag for its existence, so when a non-null char is reached, "..." can be printed */ else if( *(unsigned char *) bufptr == '\0') is_null = TRUE; /* when a space character, such as LF, CR, or tab, is reached, print it and increment the character counter accordingly */ else if( isspace(*(unsigned char *) bufptr)) { /* when either LF or CR exists in the data buffer, character counter, cn, is no longer needed since we don't need to keep track of the number of chars being printed on a line anymore. Yet, for logical purpose, reset it here just as a new line of data starts */ if( *(unsigned char *) bufptr == CARRIAGE_RETURN || *(unsigned char *) bufptr == LINE_FEED ) { putc('\n', ofp); /* print \n for both CR and LF, otherwise, CR=^M*/ cn = 0; /* indicating that next data element will be printed at column 1 */ } else if( *(unsigned char *) bufptr == HORIZONTAL_TAB ) { putc(*((char *) bufptr), ofp); cn = cn + 8; /* compensate for the tab, at most 8 chars */ } /* keep this else here to take care of other isspace cases, fill in more cases as need; if all cases are taken care of, remove else */ else { putc('\\', ofp); cn = cn + fprintf(ofp, "%03o", *((uchar8 *) bufptr)); } } else { /* this should be printed as binary intstead of \digits */ putc('\\', ofp); cn = cn + fprintf(ofp, "%03o", *((uchar8 *) bufptr)); } /* advance the buffer pointer */ bufptr = (char *) bufptr + off; /* Move here to avoid internal compiler error on Cray J90 -QAK */ if(bufptr==NULL) break; } /* end for every item in buffer */ putc('\n', ofp); /* newline */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* dumpclean */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/testhdp.sh.in0000755000000000000000000002731512421456623016115 0ustar #! /bin/sh # $Id: testhdp.sh.in 6027 2014-01-16 19:28:25Z byrn $ # Test scripts for hdp (dumper). # See the USAGE function for command usage. srcdir=@srcdir@ currentdir=`pwd` # Determine whether the szip library is available USE_COMP_SZIP="@USE_COMP_SZIP@" # Definitions of commands and variables HDP='./hdp' # The tool name HDP_BIN="${TESTS_ENVIRONMENT} "`pwd`/$HDP # The path of the tool binary RM='rm -f' DIFF=diff CMP='cmp -s' nerrors=0 # number of errors (0) quitonerr=0 # quit on error (not) noclean=0 # no cleaning temp. files (yes) only="" # dumper sub-command to test only except="" # dumper sub-command to test not # Definitions of functions/shorthands # # Print Usage of the command USAGE() { echo "Usage: $0 [-help] [-noclean] [-quit] [-except ] [-only ]" echo " -help: display help information" echo " -noclean: do not clean away temporary files" echo " -quit: quit immediately if any test fails" echo " -except: skip one specific command" echo " -only: test one specific command" echo " can be one of {list, dumpsds, dumprig, dumpvd, dumpvg, dumpgr}" } # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Run the test to produce an output file which is then # compared with the expected ($1) output. # Note that this can be used to produce the expected # output files by replace "$output" with "$expected" # in the run-the-test commands. TEST() { # parse the arguments output=tmp.out expected="$srcdir/testfiles/$1" shift # run the test ( cd $srcdir/testfiles $HDP_BIN "$@" ) > $output $CMP $expected $output if [ $? -ne 0 ]; then echo $DIFF $expected $output $DIFF $expected $output echo " <<< FAILED >>>" nerrors=`expr $nerrors + 1` if [ $quitonerr -gt 0 ]; then FINISH fi fi if [ $noclean -eq 0 ]; then $RM -f $output fi } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All hdp tests passed" else MESG 0 "hdp tests failed: $nerrors" fi exit $nerrors } #=============== # Main Body #=============== # parse arguments while [ $# -gt 0 ] do case "$1" in "-quit") quitonerr=1 ;; "-noclean") noclean=1 ;; "-help") USAGE exit 0 ;; "-only") shift case "$1" in "list"|"dumpsds"|"dumprig"|"dumpvd"|"dumpvg"|"dumpgr") only="$1" ;; *) echo "Unknown command: $1" USAGE exit 1 ;; esac ;; "-except") shift case "$1" in "list"|"dumpsds"|"dumprig"|"dumpvd"|"dumpvg"|"dumpgr") except="$1" ;; *) echo "Unknown command: $1" USAGE exit 1 ;; esac ;; * ) echo "Unknow option: $1" USAGE exit 1 ;; esac shift done # Print a beginning banner MESG 0 "Running hdp tests" # Test command list TestCmd=list TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" TEST list-1.out list tdata.hdf TEST list-2.out list -l tdata.hdf TEST list-3.out list -d tdata.hdf TEST list-4.out list -e tdata.hdf TEST list-5.out list -t 720 tdata.hdf TEST list-6.out list -d -t "Numeric Data Group" tdata.hdf TEST list-7.out list -g tdata.hdf TEST list-8.out list -a tdata.hdf TEST list-9.out list -a Example6.hdf TEST list-10.out list -n Example6.hdf else MESG 3 "$TestName <<>>" fi # Test command dumpsds TestCmd=dumpsds TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" # Test 1 prints all datasets TEST dumpsds-1.out dumpsds swf32.hdf # Tests 2 and 3 print datasets given their indices TEST dumpsds-2.out dumpsds -i 2 swf32.hdf TEST dumpsds-3.out dumpsds -i 1,3 swf32.hdf # Test 4 should fail with error message: "SD with name Time: not found" TEST dumpsds-4.out dumpsds -n Time swf32.hdf # Test 5 prints datasets given their names TEST dumpsds-5.out dumpsds -n fakeDim0,Data-Set-2 swf32.hdf # Test 6 prints datasets given their ref numbers TEST dumpsds-6.out dumpsds -r 3,2 swf32.hdf # Test 7 prints only data of the datasets selected by their ref numbers TEST dumpsds-7.out dumpsds -r 3,2 -d swf32.hdf # Test 8 prints only header information TEST dumpsds-8.out dumpsds -h swf32_fileattr.hdf # Test 9 prints data in clean format, no \digit's TEST dumpsds-9.out dumpsds -c swf32_fileattr.hdf # Test 10 prints contents of file without file attribute's data TEST dumpsds-10.out dumpsds -g swf32_fileattr.hdf # Test 11 prints contents of file without local attribute's data TEST dumpsds-11.out dumpsds -l swf32_fileattr.hdf # Test 12 prints a dataset by name and the name is very long TEST dumpsds-12.out dumpsds -h -n "The name of this dataset is long and it is used to test the new variable length name feature." SDSlongname.hdf # Test 13 prints contents of file when a dimension has the same name as its SDS TEST dumpsds-13.out dumpsds sds1_dim1_samename.hdf # Test 14 prints contents of file when a dimension has the same name as # that of another SDS TEST dumpsds-14.out dumpsds sds2_dim1_samename.hdf # Test 15 prints headers of all data sets with various compression method to # test displaying compression information if test $USE_COMP_SZIP != "yes"; then TEST dumpsds-15.out dumpsds sds_compressed.hdf else TEST dumpsds-15szip.out dumpsds sds_compressed.hdf fi # Test 16 prints SDSs in index order, by default TEST dumpsds-16.out dumpsds -h -i 39,36 -n data34,data27 -r 36,37 -i 0,1 -n data6,data9,data4,data3 -r 16,17,15 -i 23,22,21 sds_empty_many.hdf # Test 17 prints SDSs in the order they were specified, when flag -k is present # as a request to 'k'eep the specified order TEST dumpsds-17.out dumpsds -k -h -i 39,36 -n data34,data27 -r 36,37 -i 0,1 -n data6,data9,data4,data3 -r 16,17,15 -i 23,22,21 sds_empty_many.hdf # Test 18 reads a few small datasets in a netCDF file TEST dumpsds-18.out dumpsds -i 0,1,2 Roy.nc else MESG 3 "$TestName <<>>" fi # Test command dumprig TestCmd=dumprig TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" TEST dumprig-1.out dumprig tdf24.hdf TEST dumprig-2.out dumprig -i 1,2 tdf24.hdf TEST dumprig-3.out dumprig -i 1,3 tdf24.hdf # '-i 3' is invalid TEST dumprig-4.out dumprig -m 24 tdf24.hdf TEST dumprig-5.out dumprig -r 3,4 tdf24.hdf TEST dumprig-6.out dumprig -r 3,4 -d tdf24.hdf else MESG 3 "$TestName <<>>" fi # Test command dumpvd TestCmd=dumpvd TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" TEST dumpvd-1.out dumpvd tvset.hdf TEST dumpvd-2.out dumpvd -i 1,3,5 tvset.hdf TEST dumpvd-3.out dumpvd -r 1238,1239,1251,1252 tvset.hdf TEST dumpvd-4.out dumpvd -n "Multi-Order Vdata" tvset.hdf TEST dumpvd-5.out dumpvd -n "Mixed Vdata","Integer Vdata" tvset.hdf TEST dumpvd-6.out dumpvd -c "Test object","No class specified" tvset.hdf TEST dumpvd-7.out dumpvd -f B tvset.hdf TEST dumpvd-8.out dumpvd -f "STATION_NAME","FLOATS" tvset.hdf TEST dumpvd-9.out dumpvd -f "STATION_NAME","FLOATS" -d tvset.hdf TEST dumpvd-10.out dumpvd tvattr.hdf # Tests 11 and 12 print out the vdatas of classes "SDSVar" and "CoordVar" # to test the fix of bugzilla 624 (these are new classes used to distinguish # between SDS and coordinate variables) TEST dumpvd-11.out dumpvd -c "SDSVar" sds1_dim1_samename.hdf TEST dumpvd-12.out dumpvd -c "CoordVar" sds1_dim1_samename.hdf # Added test #13 to test long vdata's name and class, HDFFR-1267 - BMR 5/15/11 TEST dumpvd-13.out dumpvd vslongname.hdf # Added test #14 to test the detection of external file, HDFFR-1266. The # external file is Tables_External_File and when the file is removed from the # current directory, the test will fail with the name of the file displayed in # the error message. - BMR 6/10/11 TEST dumpvd-14.out dumpvd Tables.hdf else MESG 3 "$TestName <<>>" fi # Test command dumpvg TestCmd=dumpvg TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" TEST dumpvg-1.out dumpvg tvset.hdf TEST dumpvg-2.out dumpvg -i 0,1 tvset.hdf TEST dumpvg-3.out dumpvg -r 3 tvset.hdf TEST dumpvg-4.out dumpvg -n "Simple Vgroup" tvset.hdf TEST dumpvg-5.out dumpvg -c "Test object" tvset.hdf TEST dumpvg-6.out dumpvg -i 1,3,5 tdata.hdf TEST dumpvg-7.out dumpvg -r 32,39 tdata.hdf TEST dumpvg-8.out dumpvg -n nsamp,tdata.hdf tdata.hdf TEST dumpvg-9.out dumpvg -c CDF0.0 tdata.hdf # Added option -h to the following test; this option has always # failed; just fixed it - BMR 8/1/00 TEST dumpvg-10.out dumpvg -h -c Dim0.0,Var0.0 tdata.hdf # this following test is removed since option -d is removed #TEST dumpvg-11.out dumpvg -c Dim0.0,Var0.0 -d tdata.hdf # moved test #12 up to #11, consequently - BMR 7/25/00 TEST dumpvg-11.out dumpvg tvattr.hdf # Added these two tests for the new feature: vgroup has variable length # name - BMR 10/27/06 # Note that the dumpvg-13 test searches for an SDS also TEST dumpvg-12.out dumpvg VGlongname.hdf TEST dumpvg-13.out dumpvg -n "SD Vgroup - this vgroup has an sds as a member and it is actually meant to test long vgroup name" VGlongname.hdf # Prints contents of file when a dimension has the same name as its SDS TEST dumpvg-14.out dumpvg sds1_dim1_samename.hdf # Prints contents of file when a dimension has the same name as that # of another SDS TEST dumpvg-15.out dumpvg sds2_dim1_samename.hdf # Verify the fix for bug HDFFR-197 and a vgroup with ref=0 (some old RI stuff) TEST dumpvg-16.out dumpvg -h grtdfi322.hdf TEST dumpvg-17.out dumpvg grtdfi322.hdf else MESG 3 "$TestName <<>>" fi # Test command dumpgr TestCmd=dumpgr TestName="Test command $TestCmd" if [ "$except" != $TestCmd -a \( -z "$only" -o "$only" = $TestCmd \) ] then MESG 3 "$TestName" TEST dumpgr-1.out dumpgr grtdfui82.hdf TEST dumpgr-2.out dumpgr -i 0,1,3 grtdfui82.hdf TEST dumpgr-3.out dumpgr -i 0 grtdfui82.hdf TEST dumpgr-4.out dumpgr -n Image_array_5 grtdfui82.hdf TEST dumpgr-5.out dumpgr -r 6,2,3 grtdfui82.hdf TEST dumpgr-6.out dumpgr -r 6 -d grtdfui82.hdf TEST dumpgr-7.out dumpgr -o $currentdir/my.dat grtdfui82.hdf $RM my.dat TEST dumpgr-8.out dumpgr -o $currentdir/mybin.dat -b grtdfui82.hdf $RM mybin.dat TEST dumpgr-9.out dumpgr grtdfui83.hdf TEST dumpgr-10.out dumpgr grtdfui84.hdf TEST dumpgr-11.out dumpgr grtdfui162.hdf # Test 12 shows that file attribute is printed TEST dumpgr-12.out dumpgr grtdfi322.hdf # Tests 13, 14, and 15 test option -h, which was not included in any # of the previous tests, and the new options -p and -pd, printing palette # with or without palette information TEST dumpgr-13.out dumpgr -p Image_with_Palette.hdf TEST dumpgr-14.out dumpgr -h Image_with_Palette.hdf TEST dumpgr-15.out dumpgr -r 2,4 -pd Image_with_Palette.hdf # Test 16: to test new option -s, printing data as stream TEST dumpgr-16.out dumpgr -r 6 -d -s grtdfui82.hdf # Test 17: to test new option -m (interlace mode = LINE) TEST dumpgr-17.out dumpgr -r 6 -m 1 grtdfui82.hdf # Test 18: to test new option -c (printing attribute data in clean format) TEST dumpgr-18.out dumpgr -c grtdfi322.hdf # Test 19: to test new options -g and -l (suppress all attribute data) TEST dumpgr-19.out dumpgr -g -l grtdfi322.hdf # Test 20: to test dumpgr successfully detect IMCOMP compression type TEST dumpgr-20.out dumpgr IMCOMP.hdf else MESG 3 "$TestName <<>>" fi # End of test FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/CMakeTests.cmake0000644000000000000000000003561312421456623016503 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## #-- Copy all the data files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES ctxtr2r.hdf Example6.hdf grtdfi322.hdf grtdfui162.hdf grtdfui82.hdf grtdfui83.hdf grtdfui84.hdf Image_with_Palette.hdf IMCOMP.hdf LongDataset.hdf sds_compressed.hdf sds_empty_many.hdf sds1_dim1_samename.hdf sds2_dim1_samename.hdf SDSlongname.hdf star.hdf swf32_fileattr.hdf swf32.hdf swi16.hdf swi8.hdf Tables.hdf Tables_External_File tdata.hdf tdf24.hdf tdfr8f.hdf test.hdf tvattr.hdf tvset.hdf VGlongname.hdf vslongname.hdf Roy.nc ) SET (HDF4_REFERENCE_FILES dumpgr-1.out dumpgr-10.out dumpgr-11.out dumpgr-12.out dumpgr-13.out dumpgr-14.out dumpgr-15.out dumpgr-16.out dumpgr-17.out dumpgr-18.out dumpgr-19.out dumpgr-2.out dumpgr-20.out dumpgr-3.out dumpgr-4.out dumpgr-5.out dumpgr-6.out dumpgr-7.out dumpgr-8.out dumpgr-9.out dumprig-1.out dumprig-2.out dumprig-3.out dumprig-4.out dumprig-5.out dumprig-6.out dumpsds-1.out dumpsds-10.out dumpsds-11.out dumpsds-12.out dumpsds-13.out dumpsds-14.out dumpsds-15.out dumpsds-15szip.out dumpsds-16.out dumpsds-17.out dumpsds-18.out dumpsds-2.out dumpsds-3.out dumpsds-4.out dumpsds-5.out dumpsds-6.out dumpsds-7.out dumpsds-8.out dumpsds-9.out dumpvd-1.out dumpvd-10.out dumpvd-11.out dumpvd-12.out dumpvd-13.out dumpvd-14.out dumpvd-2.out dumpvd-3.out dumpvd-4.out dumpvd-5.out dumpvd-6.out dumpvd-7.out dumpvd-8.out dumpvd-9.out dumpvg-1.out dumpvg-10.out dumpvg-11.out dumpvg-12.out dumpvg-13.out dumpvg-14.out dumpvg-15.out dumpvg-16.out dumpvg-17.out dumpvg-2.out dumpvg-3.out dumpvg-4.out dumpvg-5.out dumpvg-6.out dumpvg-7.out dumpvg-8.out dumpvg-9.out list-1.out list-10.out list-2.out list-3.out list-4.out list-5.out list-6.out list-7.out list-8.out list-9.out ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdp POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) FOREACH (out_file ${HDF4_REFERENCE_FILES}) SET (outdest "${PROJECT_BINARY_DIR}/${out_file}") #MESSAGE (STATUS " Translating ${out_file}") ADD_CUSTOM_COMMAND ( TARGET hdp POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_DUMPER_SOURCE_DIR}/testfiles/${out_file} ${outdest} ) ENDFOREACH (out_file ${HDF4_REFERENCE_FILES}) ############################################################################## ############################################################################## ### T H E T E S T S M A C R O S ### ############################################################################## ############################################################################## MACRO (ADD_H4_TEST resultfile resultcode) # Remove any output file left over from previous test run ADD_TEST ( NAME HDP-${resultfile}-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove ${resultfile}.tst ${resultfile}.tst.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-${resultfile}-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-${resultfile}-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HDP-${resultfile} COMMAND $ ${ARGN}) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HDP-${resultfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=${resultfile}.tst" -D "TEST_EXPECT=${resultcode}" -D "TEST_REFERENCE=${resultfile}.out" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) SET_TESTS_PROPERTIES (HDP-${resultfile} PROPERTIES DEPENDS HDP-${resultfile}-clearall-objects LABELS ${PROJECT_NAME}) SET (last_test "HDP-${resultfile}") ENDMACRO (ADD_H4_TEST file) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## ADD_H4_TEST (list-1 0 list tdata.hdf) ADD_H4_TEST (list-2 0 list -l tdata.hdf) ADD_H4_TEST (list-3 0 list -d tdata.hdf) ADD_H4_TEST (list-4 0 list -e tdata.hdf) ADD_H4_TEST (list-5 0 list -t 720 tdata.hdf) ADD_H4_TEST (list-6 0 list -d -t "Numeric Data Group" tdata.hdf) ADD_H4_TEST (list-7 0 list -g tdata.hdf) ADD_H4_TEST (list-8 0 list -a tdata.hdf) ADD_H4_TEST (list-9 0 list -a Example6.hdf) ADD_H4_TEST (list-10 0 list -n Example6.hdf) # Test 1 prints all datasets ADD_H4_TEST (dumpsds-1 0 dumpsds swf32.hdf) # Tests 2 and 3 print datasets given their indices ADD_H4_TEST (dumpsds-2 0 dumpsds -i 2 swf32.hdf) ADD_H4_TEST (dumpsds-3 0 dumpsds -i 1,3 swf32.hdf) # Test 4 should fail with error message: "SD with name Time: not found" ADD_H4_TEST (dumpsds-4 0 dumpsds -n Time swf32.hdf) # Test 5 prints datasets given their names ADD_H4_TEST (dumpsds-5 0 dumpsds -n fakeDim0,Data-Set-2 swf32.hdf) # Test 6 prints datasets given their ref numbers ADD_H4_TEST (dumpsds-6 0 dumpsds -r 3,2 swf32.hdf) # Test 7 prints only data of the datasets selected by their ref numbers ADD_H4_TEST (dumpsds-7 0 dumpsds -r 3,2 -d swf32.hdf) # Test 8 prints only header information ADD_H4_TEST (dumpsds-8 0 dumpsds -h swf32_fileattr.hdf) # Test 9 prints data in clean format, no \digit's ADD_H4_TEST (dumpsds-9 0 dumpsds -c swf32_fileattr.hdf) # Test 10 prints contents of file without file attribute's data ADD_H4_TEST (dumpsds-10 0 dumpsds -g swf32_fileattr.hdf) # Test 11 prints contents of file without local attribute's data ADD_H4_TEST (dumpsds-11 0 dumpsds -l swf32_fileattr.hdf) # Test 12 prints a dataset by name and the name is very long ADD_H4_TEST (dumpsds-12 0 dumpsds -h -n "The name of this dataset is long and it is used to test the new variable length name feature." SDSlongname.hdf) # Test 13 prints contents of file when a dimension has the same name as its SDS ADD_H4_TEST (dumpsds-13 0 dumpsds sds1_dim1_samename.hdf) # Test 14 prints contents of file when a dimension has the same name as # that of another SDS ADD_H4_TEST (dumpsds-14 0 dumpsds sds2_dim1_samename.hdf) # Test 15 prints headers of all data sets with various compression method to # test displaying compression information IF (HDF4_ENABLE_SZIP_SUPPORT) ADD_H4_TEST (dumpsds-15szip 0 dumpsds sds_compressed.hdf) ELSE (HDF4_ENABLE_SZIP_SUPPORT) ADD_H4_TEST (dumpsds-15 0 dumpsds sds_compressed.hdf) ENDIF (HDF4_ENABLE_SZIP_SUPPORT) # Test 16 prints SDSs in index order, by default ADD_H4_TEST (dumpsds-16 0 dumpsds -h -i 39,36 -n data34,data27 -r 36,37 -i 0,1 -n data6,data9,data4,data3 -r 16,17,15 -i 23,22,21 sds_empty_many.hdf) # Test 17 prints SDSs in the order they were specified, when flag -k is present # as a request to 'k'eep the specified order ADD_H4_TEST (dumpsds-17 0 dumpsds -k -h -i 39,36 -n data34,data27 -r 36,37 -i 0,1 -n data6,data9,data4,data3 -r 16,17,15 -i 23,22,21 sds_empty_many.hdf) # Test 18 reads a few small datasets in a netCDF file ADD_H4_TEST (dumpsds-18 0 dumpsds -i 0,1,2 Roy.nc) ADD_H4_TEST (dumprig-1 0 dumprig tdf24.hdf) ADD_H4_TEST (dumprig-2 0 dumprig -i 1,2 tdf24.hdf) ADD_H4_TEST (dumprig-3 0 dumprig -i 1,3 tdf24.hdf) # '-i 3' is invalid ADD_H4_TEST (dumprig-4 0 dumprig -m 24 tdf24.hdf) ADD_H4_TEST (dumprig-5 0 dumprig -r 3,4 tdf24.hdf) ADD_H4_TEST (dumprig-6 0 dumprig -r 3,4 -d tdf24.hdf) # Test command dumpvd ADD_H4_TEST (dumpvd-1 0 dumpvd tvset.hdf) ADD_H4_TEST (dumpvd-2 0 dumpvd -i 1,3,5 tvset.hdf) ADD_H4_TEST (dumpvd-3 0 dumpvd -r 1238,1239,1251,1252 tvset.hdf) ADD_H4_TEST (dumpvd-4 0 dumpvd -n "Multi-Order Vdata" tvset.hdf) ADD_H4_TEST (dumpvd-5 0 dumpvd -n "Mixed Vdata,Integer Vdata" tvset.hdf) ADD_H4_TEST (dumpvd-6 0 dumpvd -c "Test object,No class specified" tvset.hdf) ADD_H4_TEST (dumpvd-7 0 dumpvd -f B tvset.hdf) ADD_H4_TEST (dumpvd-8 0 dumpvd -f "STATION_NAME,FLOATS" tvset.hdf) ADD_H4_TEST (dumpvd-9 0 dumpvd -f "STATION_NAME,FLOATS" -d tvset.hdf) ADD_H4_TEST (dumpvd-10 0 dumpvd tvattr.hdf) # Tests 11 and 12 print out the vdatas of classes "SDSVar" and "CoordVar" # to test the fix of bugzilla 624 (these are new classes used to distinguish # between SDS and coordinate variables) ADD_H4_TEST (dumpvd-11 0 dumpvd -c "SDSVar" sds1_dim1_samename.hdf) ADD_H4_TEST (dumpvd-12 0 dumpvd -c "CoordVar" sds1_dim1_samename.hdf) # Added test #13 to test long vdata's name and class, HDFFR-1267 - BMR 5/15/11 ADD_H4_TEST (dumpvd-13 0 dumpvd vslongname.hdf) # Added test #14 to test the detection of external file, HDFFR-1266. The # external file is Tables_External_File and when the file is removed from the # current directory, the test will fail with the name of the file displayed in # the error message. - BMR 6/10/11 ADD_H4_TEST (dumpvd-14 0 dumpvd Tables.hdf) # Test command dumpvg ADD_H4_TEST (dumpvg-1 0 dumpvg tvset.hdf) ADD_H4_TEST (dumpvg-2 0 dumpvg -i 0,1 tvset.hdf) ADD_H4_TEST (dumpvg-3 0 dumpvg -r 3 tvset.hdf) ADD_H4_TEST (dumpvg-4 0 dumpvg -n "Simple Vgroup" tvset.hdf) ADD_H4_TEST (dumpvg-5 0 dumpvg -c "Test object" tvset.hdf) ADD_H4_TEST (dumpvg-6 0 dumpvg -i 1,3,5 tdata.hdf) ADD_H4_TEST (dumpvg-7 0 dumpvg -r 32,39 tdata.hdf) ADD_H4_TEST (dumpvg-8 0 dumpvg -n nsamp,tdata.hdf tdata.hdf) ADD_H4_TEST (dumpvg-9 0 dumpvg -c CDF0.0 tdata.hdf) # Added option -h to the following test; this option has always # failed; just fixed it - BMR 8/1/00 ADD_H4_TEST (dumpvg-10 0 dumpvg -h -c Dim0.0,Var0.0 tdata.hdf) # this following test is removed since option -d is removed # ADD_H4_TEST (dumpvg-11 0 dumpvg -c Dim0.0,Var0.0 -d tdata.hdf) # moved test #12 up to #11, consequently - BMR 7/25/00 ADD_H4_TEST (dumpvg-11 0 dumpvg tvattr.hdf) # Added these two tests for the new feature: vgroup has variable length # name - BMR 10/27/06 # Note that the dumpvg-13 test searches for an SDS also ADD_H4_TEST (dumpvg-12 0 dumpvg VGlongname.hdf) ADD_H4_TEST (dumpvg-13 0 dumpvg -n "SD Vgroup - this vgroup has an sds as a member and it is actually meant to test long vgroup name" VGlongname.hdf) # Prints contents of file when a dimension has the same name as its SDS ADD_H4_TEST (dumpvg-14 0 dumpvg sds1_dim1_samename.hdf) # Prints contents of file when a dimension has the same name as that # of another SDS ADD_H4_TEST (dumpvg-15 0 dumpvg sds2_dim1_samename.hdf) # Verify the fix for bug HDFFR-197 and a vgroup with ref=0 (some old RI stuff) ADD_H4_TEST (dumpvg-16 0 dumpvg -h grtdfi322.hdf) ADD_H4_TEST (dumpvg-17 0 dumpvg grtdfi322.hdf) # Test command dumpgr ADD_H4_TEST (dumpgr-1 0 dumpgr grtdfui82.hdf) ADD_H4_TEST (dumpgr-2 0 dumpgr -i 0,1,3 grtdfui82.hdf) ADD_H4_TEST (dumpgr-3 0 dumpgr -i 0 grtdfui82.hdf) ADD_H4_TEST (dumpgr-4 0 dumpgr -n Image_array_5 grtdfui82.hdf) ADD_H4_TEST (dumpgr-5 0 dumpgr -r 6,2,3 grtdfui82.hdf) ADD_H4_TEST (dumpgr-6 0 dumpgr -r 6 -d grtdfui82.hdf) ADD_H4_TEST (dumpgr-7 0 dumpgr -o my.dat grtdfui82.hdf) ADD_TEST ( NAME HDP-clear-my.dat COMMAND ${CMAKE_COMMAND} -E remove my.dat ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-clear-my.dat PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-clear-my.dat PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDP-clear-my.dat") ADD_H4_TEST (dumpgr-8 0 dumpgr -o mybin.dat -b grtdfui82.hdf) ADD_TEST ( NAME HDP-clear-mybin.dat COMMAND ${CMAKE_COMMAND} -E remove mybin.dat ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-clear-mybin.dat PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDP-clear-mybin.dat PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDP-clear-mybin.dat") ADD_H4_TEST (dumpgr-9 0 dumpgr grtdfui83.hdf) ADD_H4_TEST (dumpgr-10 0 dumpgr grtdfui84.hdf) ADD_H4_TEST (dumpgr-11 0 dumpgr grtdfui162.hdf) # Test 12 shows that file attribute is printed ADD_H4_TEST (dumpgr-12 0 dumpgr grtdfi322.hdf) # Tests 13, 14, and 15 test option -h, which was not included in any # of the previous tests, and the new options -p and -pd, printing palette # with or without palette information ADD_H4_TEST (dumpgr-13 0 dumpgr -p Image_with_Palette.hdf) ADD_H4_TEST (dumpgr-14 0 dumpgr -h Image_with_Palette.hdf) ADD_H4_TEST (dumpgr-15 0 dumpgr -r 2,4 -pd Image_with_Palette.hdf) # Test 16: to test new option -s, printing data as stream ADD_H4_TEST (dumpgr-16 0 dumpgr -r 6 -d -s grtdfui82.hdf) # Test 17: to test new option -m (interlace mode = LINE) ADD_H4_TEST (dumpgr-17 0 dumpgr -r 6 -m 1 grtdfui82.hdf) # Test 18: to test new option -c (printing attribute data in clean format) ADD_H4_TEST (dumpgr-18 0 dumpgr -c grtdfi322.hdf) # Test 19: to test new options -g and -l (suppress all attribute data) ADD_H4_TEST (dumpgr-19 0 dumpgr -g -l grtdfi322.hdf) # Test 20: to test dumpgr successfully detect IMCOMP compression type ADD_H4_TEST (dumpgr-20 0 dumpgr IMCOMP.hdf) libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_list.c0000644000000000000000000012314612421456623015447 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5706 $"; #endif /* $Id: hdp_list.c 5706 2011-11-01 18:23:02Z bmribler $ */ #include "mfhdf.h" #include "hdp.h" #include #define NUM_FIELD_WIDTH 5 #define TAGNAME_FIELD_WIDTH 20 #define TAG_FIELD_WIDTH 8 #define REF_FIELD_WIDTH 8 #define INDEX_FIELD_WIDTH 12 #define OFFSET_FIELD_WIDTH 12 #define LENGTH_FIELD_WIDTH 12 #define LABEL_FIELD_WIDTH 15 #define DESC_FIELD_WIDTH 15 static intn parse_list_opts(list_info_t * list_opts, intn curr_arg, intn argc, char *argv[]); intn print_annots_by_object(const char *fname, int32 an_id, ann_type annot_type, uint16 tag, uint16 ref); intn print_annots_in_file(int32 an_id, const char* fname, int32 n_annotations, ann_type annot_type); static void list_usage(intn argc, char *argv[]) { printf("Usage:\n"); printf("%s list [-acensldg] [-o] [-t tag] \n", argv[0]); printf("\t-a\tPrint annotations of items (sets long output)\n"); printf("\t-c\tPrint classes of items (sets long output)\n"); printf("\t-n\tPrint names or labels of items (sets long output)\n"); printf("\t-e\tPrint special element information of items (sets long output)\n"); printf("\t-s\tShort output (default)\n"); printf("\t-l\tLong output\n"); printf("\t-d\tDebugging output\n"); printf("\t-g\tPrint groups only\n"); printf("\t-t \tPrint items of with a given tag number\n"); printf("\t-t \tPrint items of with a given tag name\n"); printf("\t-of\tPrint items in the order found in the file\n"); printf("\t-og\tPrint items in group order\n"); printf("\t-ot\tPrint items in tag order (default)\n"); #if 0 /* No longer possible since objects can have more than one label * -GV 6/12/97 */ printf("\t-on\tPrint items in name or label order\n"); #endif printf("\t\tList of hdf file names, separated by spaces\n"); } /* end list_usage() */ static void init_list_opts(list_info_t * list_opts) { list_opts->order = OTAG; /* default ordering is by tag */ list_opts->verbosity = VSHORT; /* default verbosity is a short list */ list_opts->limit = LNONE; /* default is all the tag/refs */ list_opts->class = FALSE; /* don't dump class information */ list_opts->name = FALSE; /* don't dump name information */ list_opts->desc = FALSE; /* don't dump annotation information */ list_opts->spec = FALSE; /* don't dump special element information */ list_opts->group = FALSE; /* don't dump group information */ list_opts->limit_tag = 0; /* initialize... */ } /* end init_list_opts() */ static intn parse_list_opts(list_info_t * list_opts, intn curr_arg, intn argc, char *argv[]) { intn ret = SUCCEED; for (; curr_arg < argc; curr_arg++) { #if defined(WIN386) || defined(DOS386) if (argv[curr_arg][0] == '-' || argv[curr_arg][0] == '/') #else if (argv[curr_arg][0] == '-' ) #endif /* for DOS/WINDOWS */ { ret++; switch (argv[curr_arg][1]) { case 'a': /* print annotations */ list_opts->desc = TRUE; /* dump description information */ if (list_opts->verbosity == VSHORT) list_opts->verbosity = VLONG; /* verbosity is a long list */ break; case 'c': /* print classes */ list_opts->class = TRUE; /* dump class information */ if (list_opts->verbosity == VSHORT) list_opts->verbosity = VLONG; /* verbosity is a long list */ break; case 'n': /* print names */ list_opts->name = TRUE; /* dump name/label information */ if (list_opts->verbosity == VSHORT) list_opts->verbosity = VLONG; /* verbosity is a long list */ break; case 'e': /* print special element info */ list_opts->spec = TRUE; /* dump special element information */ if (list_opts->verbosity == VSHORT) list_opts->verbosity = VLONG; /* verbosity is a long list */ break; case 's': /* short output */ list_opts->verbosity = VSHORT; /* verbosity is short */ break; case 'l': /* long output */ list_opts->verbosity = VLONG; /* verbosity is long */ break; case 'd': /* debugging output */ list_opts->verbosity = VDEBUG; /* verbosity is debug */ break; case 'g': /* print only groups */ #ifdef LATER list_opts->limit = LGROUP; /* limit to group output */ #endif list_opts->group = TRUE; /* dump group info */ if (list_opts->verbosity == VSHORT) list_opts->verbosity = VLONG; /* verbosity is long */ break; case 't': /* print only items of one tag */ curr_arg++; ret++; if (isdigit(argv[curr_arg][0])) { list_opts->limit = LTAGNUM; /* limit to tag name output */ list_opts->limit_tag = atoi(argv[curr_arg]); list_opts->limit_name = tagnum_to_name(list_opts->limit_tag); } /* end if */ else { /* must be a tag name */ list_opts->limit = LTAGNAME; /* limit to tag name output */ list_opts->limit_name = HDstrdup(argv[curr_arg]); list_opts->limit_tag = tagname_to_num(list_opts->limit_name); if (list_opts->limit_tag == DFTAG_NULL) { printf("ERROR: invalid tag name: %s\n", list_opts->limit_name); return (FAIL); } /* end if */ } /* end else */ break; case 'o': /* order the items in some way */ switch (argv[curr_arg][2]) { case 'g': list_opts->order = OGROUP; /* ordering is by group */ break; case 't': list_opts->order = OTAG; /* ordering is by tag */ break; case 'f': list_opts->order = OFILE; /* ordering is by file */ break; #if 0 /* No longer possible since objects can have more than one label * -GV 6/12/97 */ case 'n': list_opts->order = ONAME; /* ordering is by name */ break; #endif default: printf("ERROR: Invalid list ordering!\n"); return (FAIL); } /* end switch */ break; default: /* invalid list option */ printf("ERROR: Invalid list option!\n"); return (FAIL); } /* end switch */ } /* end if */ } /* end for */ return (ret); } /* end parse_list_opts */ static void print_list_header(list_info_t * list_opts) { switch (list_opts->verbosity) { case VSHORT: /* short output */ /* no header */ break; case VLONG: /* long output */ printf("%*s%*s%*s%*s%*s\n", NUM_FIELD_WIDTH, "no", TAGNAME_FIELD_WIDTH, "tagname", TAG_FIELD_WIDTH, "tag", REF_FIELD_WIDTH, "ref", INDEX_FIELD_WIDTH, " index_by_tag"); break; case VDEBUG: /* debugging output */ printf("%*s%*s%*s%*s%*s%*s%*s\n", NUM_FIELD_WIDTH, "no", TAGNAME_FIELD_WIDTH, "tagname", TAG_FIELD_WIDTH, "tag", REF_FIELD_WIDTH, "ref", INDEX_FIELD_WIDTH, " index_by_tag", OFFSET_FIELD_WIDTH, "offset", LENGTH_FIELD_WIDTH, "length"); break; } /* end switch() */ } /* end print_list_header() */ /* Exported * print all data annotations, which are either data labels or data descriptions, for object with tag/ref This routine is used by print_data_labels and print_data_descs for common code */ intn print_annots_by_object(const char *fname, int32 an_id, ann_type annot_type, uint16 tag, uint16 ref) { intn i; char *buf = NULL; int32 ann_num; int32 ann_length; int32 ann_id = FAIL; int32 *ann_list = NULL; char *annot_type_text = "invalid"; /* "label" or "description" */ char *func_name = "print_annots_by_object"; /* used to print error msg */ char error_item[256]; /* holds tag, ref, and fname for error msg */ intn ret_value = SUCCEED; /* stores the current values tag, ref, and file name in error_item, just to simplify the error printing statement */ sprintf( error_item, "object tag=%d, ref=%d, in file %s", tag, ref, fname ); /* validate annotation type before processing */ if( annot_type == AN_DATA_LABEL ) annot_type_text = "label"; else if( annot_type == AN_DATA_DESC ) annot_type_text = "description"; else ERROR_GOTO_2("%s: invalid annotation type for\n %s\n", func_name, error_item ); /* find number of labels for object with tag/ref */ ann_num = ANnumann(an_id, annot_type, tag, ref); if (FAIL == ann_num) ERROR_GOTO_2("%s: ANnumann failed for object %s\n", func_name, error_item ); if (ann_num > 0 ) { /* print data annotation */ /* allocate space for all label/description id's for data object */ ann_list = HDmalloc(ann_num*sizeof(int32)); CHECK_ALLOC( ann_list, "ann_list", func_name ); /* retrieve all the data objects label/description handles and store them in the buffer ann_list */ if (FAIL == ANannlist( an_id, annot_type, tag, ref, ann_list )) ERROR_GOTO_2("%s: ANannlist failed for %s\n", func_name, error_item ); /* for every data label/description */ for(i = 0; i < ann_num; i++) { ann_id = ann_list[i]; /* get next annotation id */ ann_length = ANannlen(ann_id); /* get annotation length */ if (FAIL == ann_length) ERROR_GOTO_4( "%s: ANannlen failed for\n %d'th data %s for %s\n", func_name, i, annot_type_text, error_item ); /* allocate space for the data annotation */ buf = HDcalloc((ann_length+1) * sizeof(char),1); CHECK_ALLOC( buf, "buf", func_name ); buf[ann_length] = '\0'; /* read annotation data */ if (FAIL == ANreadann(ann_id, buf, ann_length+1)) ERROR_GOTO_4( "%s: ANreadann failed on the %d'th data %s for\n %s\n", func_name, i, annot_type_text, error_item ); /* print the annotation with title depending on annotation type */ if( annot_type == AN_DATA_LABEL ) printf("%*s%s\n", LABEL_FIELD_WIDTH, " Name/Label=", buf); else /* annot_type == AN_DATA_DESC -already checked for else */ printf("%*s%s\n", LABEL_FIELD_WIDTH, " Description=", buf); /* end access */ if (FAIL == ANendaccess(ann_id)) ERROR_GOTO_4( "%s: ANendaccess failed on the %d'th data %s \n for %s\n", func_name, i, annot_type_text, error_item ); /* reset id and free space for data label/description */ ann_id = FAIL; HDfree(buf); buf = NULL; } /* end for every data label/description */ /* cleanup */ HDfree(ann_list); ann_list = NULL; } /* end if num_ann > 0 */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (buf != NULL) HDfree(buf); } /* Normal cleanup */ return ret_value; } /* print_annots_by_object() */ /* print all data labels for object with tag/ref */ intn print_data_labels(const char *fname, int32 an_id, uint16 tag, uint16 ref) { intn ret_value = SUCCEED; ret_value = print_annots_by_object(fname, an_id, AN_DATA_LABEL, tag, ref); if( ret_value == FAIL ) ERROR_GOTO_0( "in print_data_labels\n" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end print_data_labels */ /* print all data descriptions for object with tag/ref */ intn print_data_descs(const char *fname, int32 an_id, uint16 tag, uint16 ref) { intn ret_value = SUCCEED; ret_value = print_annots_by_object(fname, an_id, AN_DATA_DESC, tag, ref); if( ret_value == FAIL ) ERROR_GOTO_0( "in print_data_descs\n" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end print_data_descs */ /* Prints all annotations in the file. This routine is used by print_all_data_labels, print_all_data_descs, print_all_file_labels, and print_all_file_descs for the common code. */ intn print_annots_in_file(int32 an_id, const char* fname, int32 n_annotations, ann_type annot_type) { intn i; int32 len; char* annotation = NULL; char* func_name = "print_annots_in_file"; int32 ann_id = FAIL; char *annot_type_text = "invalid"; /* "label" or "description" */ intn ret_value = SUCCEED; /* validate annotation type before processing */ if( annot_type == AN_DATA_LABEL ) annot_type_text = "Data Label"; else if( annot_type == AN_DATA_DESC ) annot_type_text = "Data Description"; else if( annot_type == AN_FILE_LABEL ) annot_type_text = "File Label"; else if( annot_type == AN_FILE_DESC ) annot_type_text = "File Description"; else ERROR_GOTO_2("%s: invalid annotation type for file %s\n", func_name, fname ); /* for all annot_type annotations in the file */ for(i = 0; i< n_annotations; i++) { /* select i'th annotation */ ann_id = ANselect(an_id, i, annot_type ); if (FAIL == ann_id) ERROR_GOTO_4("%s: ANselect failed on the %d'th %s for file %s\n", func_name, i, annot_type_text, fname); /* get length of i'th annotation */ len = ANannlen(ann_id); if (FAIL == len) ERROR_GOTO_4("%s: ANannlen failed on the %d'th %s for file %s\n", func_name, i, annot_type_text, fname); /* allocate space for an annotation */ annotation = (char *) HDcalloc(len + 1,1); CHECK_ALLOC( annotation, "annotation", func_name ); /* read in annotation and print it */ if(ANreadann(ann_id, annotation, len+1)!= FAIL) printf("%s #%ld: %s\n", annot_type_text, (long)i, annotation); else ERROR_GOTO_4("%s: ANreadann failed on the %d'th %s for file %s\n", func_name, i, annot_type_text, fname); /* end access */ if (FAIL == ANendaccess(ann_id)) ERROR_GOTO_4("%s: ANendaccess failed on the %d'th %s for file %s\n", func_name, i, annot_type_text, fname); /* reset id and free space for annotation */ ann_id = FAIL; HDfree(annotation); annotation = NULL; } /* end for every annotation in file */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (annotation != NULL) HDfree(annotation); } /* Normal cleanup */ return ret_value; } /* end print_annots_in_file */ /* Exported * Prints all data labels in file */ intn print_all_data_labels(const char *fname, int32 an_id) { int32 n_file_label; int32 n_data_label; int32 n_file_desc; int32 n_data_desc; intn ret_value = SUCCEED; /* find out how many file labels/descs and data labels/descs in file */ if (FAIL == ANfileinfo(an_id, &n_file_label, &n_file_desc, &n_data_label, &n_data_desc)) ERROR_GOTO_1("print_all_data_labels: ANfileinfo failed for file %s\n", fname); /* prints all the data labels in the file */ ret_value = print_annots_in_file( an_id, fname, n_data_label, AN_DATA_LABEL ); if( ret_value == FAIL ) ERROR_GOTO_0("in print_all_data_labels\n" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* print_all_data_labels() */ /* Exported * Prints all data descriptions in file */ intn print_all_data_descs(const char *fname, int32 an_id) { int32 len; char *desc = NULL; int32 ann_id = FAIL; intn i; int32 n_file_label; int32 n_file_desc; int32 n_data_label; int32 n_data_desc; intn ret_value = SUCCEED; /* find out how many file labels/descs and data labels/descs in file */ if (FAIL == ANfileinfo(an_id, &n_file_label, &n_file_desc, &n_data_label, &n_data_desc)) { fprintf(stderr,"ANfileinfo failed for file %s\n", fname); ret_value = FAIL; goto done; } /* for all data descs */ for(i = 0; i< n_data_desc; i++) { /* select i'th data desc */ ann_id = ANselect(an_id, i, AN_DATA_DESC); if (FAIL == ann_id) { fprintf(stderr,"ANselect failed for %d'th data description in file %s\n", i, fname); ret_value = FAIL; goto done; } /* get length of i'th data desc */ len = ANannlen(ann_id); if (FAIL == len) { fprintf(stderr,"ANannlen failed for %d'th data description in file %s\n", i, fname); ret_value = FAIL; goto done; } /* allocate room for a data desc */ desc = (char *) HDcalloc(len + 1,1); CHECK_ALLOC( desc, "desc", "print_all_data_descs" ); /* read in data desc and print it */ if(ANreadann(ann_id, desc, len+1)!= FAIL) printf("Data ID Annotation #%ld: %s\n", (long)i, desc); else { fprintf(stderr,"ANreadann failed for %d'th data description in file %s\n",i, fname); ret_value = FAIL; goto done; } /* end access */ if (FAIL == ANendaccess(ann_id)) { fprintf(stderr,"ANendaccess failed for %d'th data description in file %s\n",i, fname); ret_value = FAIL; goto done; } /* reset id and free space for desc */ ann_id = FAIL; HDfree(desc); desc = NULL; } /* end for every data desc */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (desc != NULL) HDfree(desc); return ret_value; } /* print_all_data_descs() */ intn print_all_file_labels(const char *fname, int32 an_id) { int32 len; char *label = NULL; intn i; int32 ann_id = FAIL; int32 n_file_label; int32 n_file_desc; int32 n_data_label; int32 n_data_desc; intn ret_value = SUCCEED; /* find out how many file labels/descs and data labels/descs in file */ if (FAIL == ANfileinfo(an_id, &n_file_label, &n_file_desc, &n_data_label, &n_data_desc)) { fprintf(stderr,"ANfileinfo failed for file %s\n", fname); ret_value = FAIL; goto done; } /* for all file labels */ for(i = 0; i< n_file_label; i++) { /* select i'th file label */ ann_id = ANselect(an_id, i, AN_FILE_LABEL); if (FAIL == ann_id) { fprintf(stderr,"ANselect failed for %d'th label for file %s\n", i, fname); ret_value = FAIL; goto done; } /* get length of i'th file label */ len = ANannlen(ann_id); if (FAIL == len) { fprintf(stderr,"ANannlen failed for %d'th label for file %s\n",i, fname); ret_value = FAIL; goto done; } /* allocate room for the file label */ label = (char *) HDcalloc(len + 1,1); CHECK_ALLOC( label, "label", "print_all_data_labels" ); /* read in file label and print it */ if(ANreadann(ann_id, label, len+1)!= FAIL) printf("File Label #%ld: %s\n", (long)i, label); else { fprintf(stderr,"ANreadann failed for %d'th label for file %s\n", i, fname); ret_value = FAIL; goto done; } /* end access */ if (FAIL == ANendaccess(ann_id)) { fprintf(stderr,"ANendaccess failed for %d'th label for file %s\n",i, fname); ret_value = FAIL; goto done; } /* reset id and free space for label */ ann_id = FAIL; HDfree(label); label = NULL; } /* end for every file label */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (label != NULL) HDfree(label); return ret_value; } /* end print_all_file_labels() */ intn print_all_file_descs(const char *fname, list_info_t* list_opts, /* for print_SDattrs */ int32 an_id) { /* file desc */ int32 len; char *desc = NULL; int32 ann_id = FAIL; intn i; int32 n_file_label; int32 n_file_desc; int32 n_data_label; int32 n_data_desc; /* SDS */ int32 sd_fid = FAIL; int32 ndsets, nattrs; char *attr_nt_desc = NULL; VOIDP attr_buf = NULL; intn ret_value = SUCCEED; /* find out how many file labels/descs and data labels/descs in file */ if (FAIL == ANfileinfo(an_id, &n_file_label, &n_file_desc, &n_data_label, &n_data_desc)) { fprintf(stderr,"ANfileinfo failed for file %s \n",fname); ret_value = FAIL; goto done; } /* for all file descs */ for(i = 0; i< n_file_desc; i++) { /* select i'th file desc */ ann_id = ANselect(an_id, i, AN_FILE_DESC); if (FAIL == ann_id) { fprintf(stderr,"ANselect failed for %d'th desc for file %s \n",i, fname); ret_value = FAIL; goto done; } /* get length of i'th file desc */ len = ANannlen(ann_id); if (FAIL == len) { fprintf(stderr,"ANannlen failed for %d'th desc for file %s \n",i,fname); ret_value = FAIL; goto done; } /* allocate room for the file desc */ desc = (char *) HDcalloc(len + 1,1); CHECK_ALLOC( desc, "desc", "print_all_file_descs" ); /* read in file desc and print it */ if(ANreadann(ann_id, desc, len+1)!= FAIL) printf("File description #%ld: %s\n", (long)i, desc); else { fprintf(stderr,"ANreadann failed for %d'th desc for file %s \n",i,fname); ret_value = FAIL; goto done; } /* end access */ if (FAIL == ANendaccess(ann_id)) { fprintf(stderr,"ANendaccess failed for %d'th desc for file %s \n",i,fname); ret_value = FAIL; goto done; } /* reset id and free space for label */ ann_id = FAIL; HDfree(desc); desc = NULL; } /* end for every file desc */ /* all SDS global attributes are considered file descriptions */ if ((sd_fid = SDstart(fname, DFACC_READ)) != FAIL) { /* SD global attributes */ dump_info_t dump_opts; init_dump_opts( &dump_opts ); if (SDfileinfo(sd_fid, &ndsets, &nattrs) != FAIL) { /* BMR: installed input file name to opts for dumpfull in print_SDattrs to use - 6/16/2000 */ print_SDattrs( sd_fid, stdout, nattrs, &dump_opts ); /* temporary use stdout until fixing hdp_list to print to a FILE *fp */ } else { fprintf(stderr,"Failure in SDfileinfo for file %s\n", fname); ret_value = FAIL; goto done; } if (FAIL == SDend(sd_fid)) fprintf(stderr, "SDend failed for the current file\n" ); sd_fid = FAIL; /* reset */ } /* end if SDstart */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (desc != NULL) HDfree(desc); if (attr_nt_desc != NULL) HDfree(attr_nt_desc); if (attr_buf != NULL) HDfree((VOIDP) attr_buf); } /* Normal cleanup */ return ret_value; } /* end print_all_file_descs() */ /* BMR: use part of print_all_file_descs for this routine to just print the file annotations because print_all_file_descs also prints SD file attributes. Probably will separate SD file attributes when adding GR file attributes */ intn print_file_descs(const char *f_name, int32 an_id ) { /* file desc */ int32 len; char *desc = NULL; int32 ann_id = FAIL; intn i; int32 n_file_label; int32 n_file_desc; int32 n_data_label; int32 n_data_desc; intn ret_value = SUCCEED; /* find out how many file labels/descs and data labels/descs in file */ if (FAIL == ANfileinfo(an_id, &n_file_label, &n_file_desc, &n_data_label, &n_data_desc)) { fprintf(stderr,"ANfileinfo failed for file %s \n",f_name); ret_value = FAIL; goto done; } /* for all file descs */ for(i = 0; i< n_file_desc; i++) { /* select i'th file desc */ ann_id = ANselect(an_id, i, AN_FILE_DESC); if (FAIL == ann_id) { fprintf(stderr,"ANselect failed for %d'th desc for file %s \n",i, f_name); ret_value = FAIL; goto done; } /* get length of i'th file desc */ len = ANannlen(ann_id); if (FAIL == len) { fprintf(stderr,"ANannlen failed for %d'th desc for file %s \n",i,f_name); ret_value = FAIL; goto done; } /* allocate room for the file desc */ desc = (char *) HDcalloc(len + 1,1); CHECK_ALLOC( desc, "desc", "print_file_descs" ); /* read in file desc and print it */ if(ANreadann(ann_id, desc, len+1)!= FAIL) printf("File description #%ld: %s\n", (long)i, desc); else { fprintf(stderr,"ANreadann failed for %d'th desc for file %s \n",i,f_name); ret_value = FAIL; goto done; } /* end access */ if (FAIL == ANendaccess(ann_id)) { fprintf(stderr,"ANendaccess failed for %d'th desc for file %s \n",i,f_name); ret_value = FAIL; goto done; } /* reset id and free space for label */ ann_id = FAIL; HDfree(desc); desc = NULL; } /* end for every file desc */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (ann_id != FAIL) ANendaccess(ann_id); if (desc != NULL) HDfree(desc); } /* Normal cleanup */ return ret_value; } /* end print_all_file_descs() */ /* prints all relevant information that an HDF object can have including annotations */ static intn print_list_obj(const char *fname, list_info_t *l_opts, objinfo_t * o_info, intn o_num, int32 an_id) { int32 i; char *s = NULL; char *buf = NULL; intn ret_value = SUCCEED; switch (l_opts->verbosity) { case VSHORT: /* short output */ /* handled elsewhere */ break; case VLONG: /* long output */ printf("%*d%*s%*d%*d%*ld\n", NUM_FIELD_WIDTH, o_num, TAGNAME_FIELD_WIDTH, ((s = HDgettagsname(o_info->tag)) == NULL ? HDstrdup("Unknown") : s), TAG_FIELD_WIDTH, o_info->tag, REF_FIELD_WIDTH, o_info->ref, INDEX_FIELD_WIDTH, (long) o_info->index); HDfree(s); /* free tagname string */ s = NULL; break; case VDEBUG: /* debugging output */ printf("%*d%*s%*d%*d%*ld%*ld%*ld\n", NUM_FIELD_WIDTH, o_num, TAGNAME_FIELD_WIDTH, ((s = HDgettagsname(o_info->tag)) == NULL ? HDstrdup("Unknown") : s), TAG_FIELD_WIDTH, o_info->tag, REF_FIELD_WIDTH, o_info->ref, INDEX_FIELD_WIDTH, (long) o_info->index, OFFSET_FIELD_WIDTH, (long) o_info->offset, LENGTH_FIELD_WIDTH, (long) o_info->length); HDfree(s); /* free tagname string */ s = NULL; break; } /* end switch */ /* find data labels for object if any */ if (l_opts->name == TRUE) if (FAIL == print_data_labels(fname, an_id, o_info->tag, o_info->ref)) ERROR_GOTO_0("in print_list_obj\n"); if (l_opts->class == TRUE) { } /* end if */ /* find data descs for object if any */ if (l_opts->desc == TRUE ) if (FAIL == print_data_descs(fname, an_id, o_info->tag, o_info->ref)) ERROR_GOTO_0("in print_list_obj\n"); if (l_opts->spec == TRUE && o_info->is_special) { switch (o_info->spec_info->key) { case SPECIAL_LINKED: printf("\tLinked Block: first %ld standard %ld per unit %ld\n", (long) o_info->spec_info->first_len, (long) o_info->spec_info->block_len, (long) o_info->spec_info->nblocks); break; case SPECIAL_EXT: printf("\tExternal File: path %s offset %ld\n", o_info->spec_info->path, (long) o_info->spec_info->offset); break; case SPECIAL_COMP: printf("\tCompressed Element: compression type: %s modeling type %s\n", (o_info->spec_info->comp_type == COMP_CODE_NONE ? "None" : (o_info->spec_info->comp_type == COMP_CODE_RLE ? "Run-Length" : (o_info->spec_info->comp_type == COMP_CODE_NBIT ? "N-Bit" : "Unknown"))), (o_info->spec_info->model_type == COMP_MODEL_STDIO ? "Standard" : "Unknown")); break; case SPECIAL_CHUNKED: printf("\tChunked element: chunk size %d, ndims %d, [", (intn)o_info->spec_info->chunk_size, (intn)o_info->spec_info->ndims); for (i = 0; i < o_info->spec_info->ndims; i++) { printf("%d",(intn)o_info->spec_info->cdims[i]); if(i != (o_info->spec_info->ndims -1 )) printf(","); } printf("]\n"); break; default: printf("\t Do not understand special element type %d \n", o_info->spec_info->key); break; } /* end switch */ } /* end if */ /* BMR 8/1/00: added no_element test to make sure group_info is not NULL */ /* if (l_opts->group == TRUE && o_info->is_group && o_info->no_element != FALSE) */ if (l_opts->group == TRUE && o_info->is_group ) { DFdi *g_obj = NULL; int32 num; if ((num = get_group_max(o_info->group_info)) != FAIL) { printf("\tContents: (%ld objects)\n", (long) num); g_obj = get_next_group(o_info->group_info, 0); while (g_obj != NULL) { printf("\t\t%-30s: (tag=%6d) ref=%d\n", ((s = HDgettagsname(g_obj->tag)) == NULL ? HDstrdup("Unknown") : s), g_obj->tag, g_obj->ref); HDfree(s); /* free tagname string */ s = NULL; g_obj = get_next_group(o_info->group_info, 1); } /* end while */ } /* end if */ } /* end if */ done: if (ret_value == FAIL) { /* Failure cleanup */ if (s != NULL) HDfree(s); if (buf != NULL) HDfree(buf); } /* Normal cleanup */ return ret_value; }/* print_list_obj() */ /* print the library version of the file */ static void printfilever(int32 file_id) { uint32 major, minor, release; char string[LIBVSTR_LEN+1]; if (Hgetfileversion(file_id, &major, &minor, &release, string) == SUCCEED) { string[LIBVSTR_LEN] = '\0'; /* make it a null terminated string */ printf("Last modified with %s\n\n", string); } else printf("(Has no library version information)\n\n"); } /* low level object listing routine for HDF file */ intn do_list(intn curr_arg, intn argc, char *argv[], intn help ) { list_info_t list_opts; /* list options */ filelist_t *f_list = NULL; /* list of files to dump */ objlist_t *o_list = NULL; /* list of DD objects in a file */ objinfo_t *o_info = NULL; /* pointer to a DD object */ char *f_name = NULL; /* current file name to list */ int32 fid = FAIL; /* HDF file ID */ intn obj_num; /* number of the object we are displaying */ intn status; /* status from various function calls */ char *s = NULL; /* temporary character pointer */ int32 an_id = FAIL; /* annotation interface handle */ intn ret_value = SUCCEED; if (help == TRUE ) { list_usage(argc, argv); goto done; } /* end if */ /* incomplete command */ if( curr_arg >= argc ) { list_usage(argc, argv); ret_value = FAIL; /* so caller can be traced in debugging */ goto done; } init_list_opts(&list_opts); if ((status = parse_list_opts(&list_opts, curr_arg, argc, argv)) == FAIL) { list_usage(argc, argv); ret_value = FAIL; goto done; } /* end if */ curr_arg += status; if (curr_arg >= argc || (f_list = make_file_list(curr_arg, argc, argv)) == NULL) { fprintf(stderr,"ERROR: No files to dump!\n"); list_usage(argc, argv); ret_value = FAIL; goto done; } /* end if */ /* process each file */ f_name = get_next_file(f_list, 0); while (f_name != NULL) { int label_flag, desc_flag; vinit_done = FALSE; /* reset global Vset variable */ obj_num = 0; /* number of the object we are displaying */ fid = FAIL; an_id = FAIL; if ((fid = Hopen(f_name, DFACC_READ, 0)) != FAIL) { an_id = ANstart(fid); if (FAIL == an_id) ERROR_GOTO_1( "do_list: ANstart failed for file %s \n", f_name ); label_flag = desc_flag = 0; if( list_opts.name == TRUE ) label_flag = CHECK_LABEL; if( list_opts.desc == TRUE ) desc_flag = CHECK_DESC; /* make list of all objects in file */ o_list = make_obj_list(fid, label_flag | desc_flag | CHECK_GROUP | CHECK_SPECIAL); /* if there are any object in the file, print annotations if requested, then the object information as requested */ if (o_list != NULL) { /* print out filename, etc. */ printf("File: %s\n", f_name); printfilever(fid); /* print file labels if requested */ if (list_opts.name == TRUE) if (FAIL == print_all_file_labels(f_name, an_id)) ERROR_GOTO_0( "in do_list\n" ); /* print file descriptions if requested */ if (list_opts.desc == TRUE) if (FAIL == print_all_file_descs(f_name, &list_opts, an_id)) ERROR_GOTO_0( "in do_list\n" ); /* sort list of objects in requested order */ sort_obj_list(o_list, list_opts.order); /* print out list header according to options */ print_list_header(&list_opts); /* Special case for short output */ if (list_opts.verbosity == VSHORT) { uint16 last_tag = 0; o_info = get_next_obj(o_list, 0); /* get first DD object */ while (o_info != NULL) { if( (list_opts.limit == LGROUP || list_opts.limit == LNONE) || list_opts.limit_tag == o_info->tag) { if (o_info->tag != last_tag) { s = HDgettagsname(o_info->tag); if( s == NULL ) s = HDstrdup("Unknown"); printf("%s%-*s: (tag %d)\n", (last_tag == 0 ? "" : "\n"), TAGNAME_FIELD_WIDTH, s, o_info->tag); last_tag = o_info->tag; printf("\tRef nos: "); HDfree(s); /* free tagname string */ s = NULL; /* reset */ } /* end if */ printf("%d ", o_info->ref); } /* end if */ /* advance to the next DD object */ o_info = get_next_obj(o_list, 1); } /* end while o_info */ printf("\n"); } /* end if verbosity */ else /* must be verbose output */ { /* Loop through all the objects in the file */ o_info = get_next_obj(o_list, 0); /* get first DD object */ while (o_info != NULL) { switch (list_opts.limit) { default: case LNONE: case LGROUP: if (FAIL == print_list_obj(f_name, &list_opts, o_info, obj_num,an_id)) ERROR_GOTO_0("in do_list\n"); break; case LTAGNUM: case LTAGNAME: if (list_opts.limit_tag == o_info->tag) if (FAIL == print_list_obj(f_name, &list_opts, o_info, obj_num, an_id)) ERROR_GOTO_0("in do_list\n"); break; } /* end switch */ obj_num++; o_info = get_next_obj(o_list, 1); /* advance to next DD object */ } /*end while */ } /* end else */ /* free the object list */ free_obj_list(o_list); o_list = NULL; } /* end if o_list */ /* cleanup section */ if (vinit_done == TRUE) if (FAIL == Vfinish(fid)) ERROR_GOTO_1("do_list: Vfinish failed for file %s\n", f_name); if (FAIL == ANend(an_id)) ERROR_GOTO_1("do_list: ANend failed for file %s\n", f_name); an_id = FAIL; /* reset */ if (Hclose(fid) == FAIL) ERROR_GOTO_1("do_list: Hclose failed for file %s\n", f_name); fid = FAIL; /* reset */ } /* end if */ else ERROR_GOTO_1("in do_list: Hopen failed - possible invalid file name: %s", f_name); /* next file processing */ /* get next file to process */ f_name = get_next_file(f_list, 1); } /* end while processing files*/ done: if (ret_value == FAIL) { /* Failure cleanup */ if (fid != FAIL) /* check if file open still */ { Hclose(fid); fid = FAIL; } if (an_id != FAIL) /* check if annotation handle still open */ { ANend(an_id); an_id = FAIL; } if (s != NULL) HDfree(s); if (o_list != NULL) free_obj_list(o_list); } /* Normal cleanup */ if (f_list != NULL) free_file_list(f_list); return ret_value; } /* end do_list() */ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp.mak0000644000000000000000000001644712421456623014747 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "hdp.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Console Application") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Console Application") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project # PROP Target_Last_Scanned "Win32 Debug" CPP=cl.exe RSC=rc.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\hdp.exe .\hdp.bsc # ADD BASE CPP /nologo /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /W3 /GX /O2 /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "HDF" /D "NO_SYS_XDR_INC" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /W3 /GX /O2 /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src" /I\ "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "HDF" /D\ "NO_SYS_XDR_INC" /Fo$(INTDIR)/ /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"hdp.bsc" .\hdp.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ .\hdp_sds.obj \ .\hdp_list.obj \ .\hdp.obj \ .\hdp_util.obj \ .\hdp_vg.obj \ .\show.obj \ .\hdp_vd.obj \ .\hdp_rig.obj \ .\hdp_dump.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib\ ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO\ /SUBSYSTEM:console /INCREMENTAL:no /PDB:$(OUTDIR)/"hdp.pdb" /MACHINE:I386\ /OUT:$(OUTDIR)/"hdp.exe" .\hdp.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\hdp.exe .\hdp.bsc # ADD BASE CPP /nologo /W3 /GX /Zi /YX /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /W3 /GX /Zi /Od /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "HDF" /D "NO_SYS_XDR_INC" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /W3 /GX /Zi /Od /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src"\ /I "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "HDF" /D\ "NO_SYS_XDR_INC" /Fo$(INTDIR)/ /Fd$(OUTDIR)/"hdp.pdb" /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"hdp.bsc" .\hdp.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ .\hdp_sds.obj \ .\hdp_list.obj \ .\hdp.obj \ .\hdp_util.obj \ .\hdp_vg.obj \ .\show.obj \ .\hdp_vd.obj \ .\hdp_rig.obj \ .\hdp_dump.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib\ ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO\ /SUBSYSTEM:console /INCREMENTAL:yes /PDB:$(OUTDIR)/"hdp.pdb" /DEBUG\ /MACHINE:I386 /OUT:$(OUTDIR)/"hdp.exe" .\hdp.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\hdp_sds.c .\hdp_sds.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_list.c .\hdp_list.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp.c .\hdp.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp.h # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_util.c .\hdp_util.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_vg.c .\hdp_vg.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\show.c .\show.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_vd.c .\hdp_vd.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_rig.c .\hdp_rig.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\hdp_dump.c .\hdp_dump.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_util.c0000644000000000000000000007546312421456623015461 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)1.1"; #endif /* hdp_util.c,v 1.1 1994/04/18 15:49:18 georgev Exp */ #include "hdp.h" const char *unknown_tag = "Unknown Tag"; char * tagnum_to_name(intn num) { char *ret; if (num < 0) ret = NULL; else ret = HDgettagsname((uint16)num); if (ret == NULL) ret = HDstrdup(unknown_tag); return (ret); } /* end tagnum_to_name() */ intn tagname_to_num(const char *name) { return (HDgettagnum(name)); } /* end tagname_to_num() */ /* * Routines to create a list of file names from the command line */ /* assumes that curr_arg is pointing to the first file name */ filelist_t * make_file_list(intn curr_arg, intn argc, char *argv[]) { intn i; filelist_t *ret; if (curr_arg > argc) /* consistency check */ return (NULL); ret = (filelist_t *) HDmalloc(sizeof(filelist_t)); if (ret == NULL) { fprintf(stderr, "make_file_list: space allocation failed\n"); return (NULL); } ret->file_arr = (char **) HDmalloc(sizeof(char *) * ((argc - curr_arg) + 1)); if (ret->file_arr == NULL) { fprintf(stderr, "make_file_list: space allocation failed\n"); HDfree(ret); return (NULL); } /* end if */ ret->max_files = (argc - curr_arg); ret->curr_file = 0; for (i = 0; curr_arg < argc; i++, curr_arg++) ret->file_arr[i] = HDstrdup(argv[curr_arg]); return (ret); } /* end make_file_list() */ char * get_next_file(filelist_t * f_list, intn advance) { if (advance) f_list->curr_file++; if (f_list->curr_file >= f_list->max_files) return (NULL); return (f_list->file_arr[f_list->curr_file]); } /* end get_next_file() */ /* free_node_vg_info_t frees a node of vgroup info */ vg_info_t* free_node_vg_info_t( vg_info_t* aNode) { intn i; if( aNode != NULL ) { if (aNode->children != NULL) { for (i = 0; i < aNode->n_entries; i++) if (aNode->children[i] != NULL) { HDfree(aNode->children[i]); aNode->children[i] = NULL; } HDfree( aNode->children ); aNode->children = NULL; } if (aNode->type != NULL) { for (i = 0; i < aNode->n_entries; i++) if (aNode->type[i] != NULL) { HDfree(aNode->type[i]); aNode->type[i] = NULL; } HDfree( aNode->type ); aNode->type = NULL; } if (aNode->vg_name != NULL) { HDfree(aNode->vg_name); aNode->vg_name = NULL; } HDfree(aNode); aNode = NULL; } return(NULL); } /* end of free_node_vg_info_t */ /* free_struct_list use HDfree to free the list of vgroup info structs */ vg_info_t ** free_vginfo_list( vg_info_t **nodelist, int32 num_items ) { intn i; /* if the list is not NULL, free each node then reset the list to NULL */ if (nodelist != NULL) { for (i = 0; i < num_items; i++) if (nodelist[i] != NULL) nodelist[i] = free_node_vg_info_t(nodelist[i]); HDfree(nodelist); } return( NULL ); } /* end of free_vginfo_list */ /* free_struct_list use HDfree to free the list of vgroup info structs */ obj_chosen_t ** free_node_obj_chosen_t( obj_chosen_t *aNode) { if( aNode != NULL ) { if (aNode->name != NULL) { fprintf(stderr, " namd = %s \n", aNode->name); HDfree( aNode->name ); } if (aNode->classname != NULL) { HDfree( aNode->classname ); } HDfree(aNode); } return(NULL); } /* end of free_vginfo_list */ /* free_struct_list use HDfree to free the list of vgroup info structs */ void free_obj_chosen_t_list( obj_chosen_t **nodelist, int32 num_items ) { intn i; /* if the list is not NULL, free each node then reset the list to NULL */ if ((*nodelist) != NULL) { for (i = 0; i < num_items; i++) { if ((*nodelist)[i].name != NULL) { HDfree((*nodelist)[i].name); } if ((*nodelist)[i].classname != NULL) { HDfree((*nodelist)[i].classname); } } HDfree((*nodelist)); (*nodelist) = NULL; } } /* end of free_vginfo_list */ /* free_str_list use HDfree to free the list of strings of characters */ char** free_str_list( char **str_list, int32 num_items ) { intn i; if( str_list != NULL) { for( i = 0; i < num_items; i++ ) if (str_list[i] != NULL) HDfree(str_list[i]); HDfree( str_list ); } return( NULL ); } /* end of free_str_list */ /* free_num_list use HDfree to free the list of integers; this routine is short but can be used in many different places and very convenient */ int32* free_num_list( int32 *num_list ) { if( num_list != NULL) HDfree( num_list ); return( NULL ); } /* end of free_num_list */ void free_file_list(filelist_t * f_list) { intn i; for (i = 0; i < f_list->max_files; i++) HDfree(f_list->file_arr[i]); HDfree(f_list->file_arr); HDfree(f_list); } /* end free_file_list() */ /* * Routines to manipulate group lists */ groupinfo_t * make_group_list(int32 fid, uint16 tag, uint16 ref) { intn nobj; intn i; groupinfo_t *ret; int32 gid; if (tag == DFTAG_RIG || tag == DFTAG_SDG || tag == DFTAG_NDG) { if ((gid = DFdiread(fid, tag, ref)) == FAIL) return (NULL); if ((nobj = DFdinobj(gid)) == FAIL) return (NULL); if ((ret = (groupinfo_t *) HDmalloc(sizeof(groupinfo_t))) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); return (NULL); } ret->max_dds = nobj; ret->curr_dd = 0; if (nobj > 0) { if ((ret->dd_arr = (DFdi *) HDmalloc(sizeof(DFdi) * nobj)) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); HDfree(ret); return (NULL); } /* end if */ for (i = 0; i < nobj; i++) { if (DFdiget(gid, &ret->dd_arr[i].tag, &ret->dd_arr[i].ref) == FAIL) { HDfree(ret->dd_arr); HDfree(ret); return (NULL); } /* end if */ } /* end for */ } /* end if */ else { /* paranoia sets in... */ ret->max_dds = ret->curr_dd = 0; ret->dd_arr = NULL; } /* end else */ } /* end if */ else { /* check for Vgroup? */ int32 vkey; /* Yes, I know this wastes time, but at least it allows uniform access */ /* to both types of groups in HDF files... */ if (vinit_done == FALSE) { /* check whether we've already init'ed Vsets */ vinit_done = TRUE; Vinitialize(fid); } /* end if */ if ((vkey = Vattach(fid, ref, "r")) != FAIL) { if ((nobj = Vntagrefs(vkey)) != FAIL) { if( nobj > 0 ) { /* Albert fixed */ int32 *temp_tag; int32 *temp_ref; if ((temp_tag = (int32 *) HDmalloc(sizeof(int32) * nobj)) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); Vdetach(vkey); return (NULL); } /* end if */ if ((temp_ref = (int32 *) HDmalloc(sizeof(int32) * nobj)) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); Vdetach(vkey); HDfree(temp_tag); return (NULL); } /* end if */ if (Vgettagrefs(vkey, temp_tag, temp_ref, nobj) == FAIL) { Vdetach(vkey); HDfree(temp_tag); HDfree(temp_ref); return (NULL); } /* end if */ if ((ret = (groupinfo_t *) HDmalloc(sizeof(groupinfo_t))) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); Vdetach(vkey); HDfree(temp_tag); HDfree(temp_ref); return (NULL); } /* end if */ ret->max_dds = nobj; ret->curr_dd = 0; if ((ret->dd_arr = (DFdi *) HDmalloc(sizeof(DFdi) * nobj)) == NULL) { fprintf(stderr, "make_group_list: space allocation failed\n"); Vdetach(vkey); HDfree(temp_tag); HDfree(temp_ref); HDfree(ret); return (NULL); } /* end if */ for (i = 0; i < nobj; i++) { ret->dd_arr[i].tag = (uint16) temp_tag[i]; ret->dd_arr[i].ref = (uint16) temp_ref[i]; } /* end for */ HDfree(temp_tag); HDfree(temp_ref); } /* if nobj > 0 */ /* BMR: 7/28/00 must add this one, otherwise, HDfree fails later */ else /* nobj <= 0 */ return( NULL ); } /* end if */ else /* bad vkey? */ return (NULL); Vdetach(vkey); /* release the Vgroup */ } /* end if */ else /* failed to attach */ return (NULL); } /* end else */ return (ret); } /* end make_group_list() */ DFdi * get_next_group(groupinfo_t * g_list, intn advance) { if (advance) g_list->curr_dd++; if (g_list->curr_dd >= g_list->max_dds) return (NULL); return (&g_list->dd_arr[g_list->curr_dd]); } /* end get_next_group() */ int32 get_group_max(groupinfo_t * g_list) { if (g_list != NULL) return (g_list->max_dds); return (FAIL); } /* end get_group_max() */ void free_group_list(groupinfo_t * g_list) { if( g_list != NULL ) { if( g_list->dd_arr != NULL ) HDfree(g_list->dd_arr); HDfree(g_list); } } /* end free_group_list() */ /* * Routines to manipulate tag/ref lists */ objlist_t * make_obj_list(int32 fid, uint32 options) { intn nobj; /* number of DDs in the file */ int32 status; /* status of various HDF calls */ int32 aid; /* temporary AID to use while getting DD info */ int16 tmp_spec; /* temporary storage for special status */ objlist_t *obj_ret; /* pointer to the dd list to return */ objinfo_t *obj_ptr; /* temporary pointer to a working DD object */ sp_info_block_t info; /* temp. storage for special elem. info */ intn n, m; /* local counting variable */ /* get the number of all objects in the file */ nobj = Hnumber(fid, DFTAG_WILDCARD); if (nobj == FAIL || nobj <= 0 ) /* BMR: added check for nobj<=0 */ return (NULL); /* allocate space for the object list - exit at failure??? */ if ((obj_ret = (objlist_t *) HDmalloc(sizeof(objlist_t))) == NULL) { fprintf(stderr, "make_obj_list: space allocation failed\n"); return (NULL); } obj_ret->max_obj = nobj; /* set the number of objects */ obj_ret->curr_obj = 0; obj_ret->raw_obj_arr = (objinfo_t *) HDmalloc(sizeof(objinfo_t) * nobj); /* should it exit on failure ??? */ if( obj_ret->raw_obj_arr == NULL) { fprintf(stderr, "make_obj_list: space allocation failed\n"); HDfree(obj_ret); return (NULL); } /* end if */ /* Clear array of dd/object information */ HDmemset(obj_ret->raw_obj_arr, 0, sizeof(objinfo_t) * nobj); /* * Read all the tag/ref's in the file into an array */ /* start the reading of an access element */ aid = Hstartread(fid, DFTAG_WILDCARD, DFREF_WILDCARD); if (aid == FAIL) { HEprint(stderr, 0); HDfree(obj_ret->raw_obj_arr); HDfree(obj_ret); return (NULL); } /* end if */ /* for each element */ for (n = 0, status = SUCCEED; (n < nobj) && (status != FAIL); n++) { Hinquire(aid, NULL, &(obj_ret->raw_obj_arr[n].tag), &(obj_ret->raw_obj_arr[n].ref), &(obj_ret->raw_obj_arr[n].length), &(obj_ret->raw_obj_arr[n].offset), NULL, NULL, &tmp_spec); if (options & CHECK_SPECIAL) { /* are we looking for spec. elem. ? */ obj_ret->raw_obj_arr[n].is_special = (tmp_spec != 0); if (obj_ret->raw_obj_arr[n].is_special) { /* get the special info. */ if ((status = HDget_special_info(aid, &info)) == FAIL) { obj_ret->raw_obj_arr[n].is_special = 0; } /* end if */ else { /* copy over special information we found */ obj_ret->raw_obj_arr[n].spec_info = (sp_info_block_t *) HDmalloc(sizeof(sp_info_block_t)); if( obj_ret->raw_obj_arr[n].spec_info == NULL) { fprintf(stderr, "make_obj_list: space allocation failed\n"); obj_ret->raw_obj_arr[n].is_special = 0; } else HDmemcpy(obj_ret->raw_obj_arr[n].spec_info, &info, sizeof(sp_info_block_t)); } /* end else */ } /* end if */ } /* end if */ status = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); } /* end for */ if (Hendaccess(aid) == FAIL) { HEprint(stderr, 0); HDfree(obj_ret->raw_obj_arr); HDfree(obj_ret); return (NULL); } /* end if */ /* Post-process the list of dd/objects, adding more information */ /* Also set up the pointers for the sorted list to be manipulated later */ obj_ret->srt_obj_arr = (objinfo_t **) HDmalloc(sizeof(objinfo_t *) * nobj); if( obj_ret->srt_obj_arr == NULL ) { fprintf(stderr, "make_obj_list: space allocation failed\n"); HDfree(obj_ret->raw_obj_arr); HDfree(obj_ret); return (NULL); } /* end if */ /* Loop for more information */ for (n = 0; n < nobj; n++) { obj_ptr = obj_ret->srt_obj_arr[n] = &obj_ret->raw_obj_arr[n]; /* set the index value to a flag for later */ obj_ptr->index = (-1); /* check for a group */ if (options & CHECK_GROUP) { /* are we looking for groups ? */ if (obj_ptr->tag == DFTAG_RIG || obj_ptr->tag == DFTAG_SDG || obj_ptr->tag == DFTAG_NDG || obj_ptr->tag == DFTAG_VG) { obj_ptr->is_group = TRUE; obj_ptr->group_info = make_group_list(fid, obj_ptr->tag, obj_ptr->ref); if( obj_ptr->group_info == NULL ) { /* do not free these because even this element has no group list, it still can be displayd */ /* HDfree(obj_ret->raw_obj_arr); HDfree(obj_ret); return (NULL); */ } /* end if */ } /* end if */ } /* end if */ } /* end for */ /* Loop once more to figure out the index information */ for (n = 0, obj_ptr = &obj_ret->raw_obj_arr[0]; n < nobj; n++, obj_ptr++) { if (obj_ptr->index == (-1)) { /* first object of this type in the file */ int32 temp_index = 0; objinfo_t *temp_ptr; /* temporary pointer to a working DD object */ /* the object gets index of 0 */ obj_ptr->index = 0; /* look for other objects of this tag */ for (m = n, temp_ptr = obj_ptr + 1; m+1 < nobj; m++, temp_ptr++) { if (temp_ptr->tag == obj_ptr->tag) temp_ptr->index = ++temp_index; /* set next index */ } /* end for */ } /* end if */ } /* end for */ obj_ret->options = options; return (obj_ret); } /* end make_dd_list() */ objinfo_t* get_next_obj( objlist_t * o_list, intn advance ) { if( advance ) o_list->curr_obj++; if( o_list->curr_obj >= o_list->max_obj ) return (NULL); return( o_list->srt_obj_arr[o_list->curr_obj] ); } /* end get_next_obj() */ objinfo_t* goto_nth_obj( objlist_t * o_list, intn n ) { if( n >= 0 && n < o_list->max_obj ) o_list->curr_obj = n; return( o_list->srt_obj_arr[o_list->curr_obj] ); } /* end goto_nth_obj() */ void reset_obj_list( objlist_t * o_list ) { if( o_list != NULL ) o_list->curr_obj = 0; } /* end reset_obj_list() */ void free_obj_list( objlist_t * o_list ) { intn i; /* local counting variable */ objinfo_t *obj_ptr; /* temporary pointer to a working DD object */ /* BMR: verify that o_list is not nil before accessing */ if( o_list != NULL ) { for (i = 0, obj_ptr = o_list->raw_obj_arr; i < o_list->max_obj; i++, obj_ptr++) { /* group_info can be NULL while is_group is set, how to handle this one??? BMR 8/1/2000 if( obj_ptr->is_group && obj_ptr->group_info != NULL ) */ if( obj_ptr->is_group ) free_group_list( obj_ptr->group_info ); if( obj_ptr->is_special ) HDfree( obj_ptr->spec_info ); } /* end for */ HDfree(o_list->srt_obj_arr); HDfree(o_list->raw_obj_arr); HDfree(o_list); } else fprintf(stderr, ">>>free_obj_list failed - attempting to free a NULL list \n"); } /* end free_obj_list() */ int sort_obj_list_by_tag(const void *p1, const void *p2) { const objinfo_t *a = (const objinfo_t *) *((const void **) p1); const objinfo_t *b = (const objinfo_t *) *((const void **) p2); if (a->tag > b->tag) return (1); if (a->tag < b->tag) return (-1); if (a->ref > b->ref) return (1); if (a->ref < b->ref) return (-1); return (0); } /* end sort_obj_info_by_tag() */ #if 0 /* No longer possible since objects can have more than one label * -GV 6/12/97 */ int sort_obj_list_by_name(const void *p1, const void *p2) { const objinfo_t *a = (const objinfo_t *) *((void **) p1); const objinfo_t *b = (const objinfo_t *) *((void **) p2); /* Any label has priority over no label, else sort alphabetically */ if (a->has_label) { if (b->has_label) return (HDstrcmp(a->lab_info, b->lab_info)); else return (1); } /* end if */ else { if (b->has_label) return (-1); else return (0); } /* end else */ } /* end sort_obj_info_by_tag() */ #endif void sort_obj_list(objlist_t * o_list, sort_t sort_type) { switch (sort_type) { #if 0 /* No longer possible since objects can have more than one label * -GV 6/12/97 */ case ONAME: /* sort by name order */ qsort(o_list->srt_obj_arr, o_list->max_obj, sizeof(objinfo_t *), sort_obj_list_by_name); break; #endif case OGROUP: /* sort by group order */ break; /* not currently implemented */ case OTAG: /* sort by tag order */ qsort(o_list->srt_obj_arr, o_list->max_obj, sizeof(objinfo_t *), sort_obj_list_by_tag); break; case OFILE: /* sort by file order */ default: break; } /* end switch() */ } /* end sort_obj_list() */ /* Misc. utility functions */ int int32_compare(const void *a, const void *b) { if (*(const int32 *) a > *(const int32 *) b) return (1); else if (*(const int32 *) a < *(const int32 *) b) return (-1); else return (0); } /* end int32_compare() */ void sort(int32 *chosen, int32 choices) { qsort((void *) chosen, choices, sizeof(int32), int32_compare); } /* resetBuff frees the passed-in pointer and resets it to NULL, if it is not NULL. Its purpose is to make cleaning up simpler throughout the entire dumper */ void resetBuff( VOIDP *ptr ) { if( *ptr != NULL ) { HDfree(*ptr); *ptr = NULL; } } /* parse_number_opts take a list of numbers separated by commas then retrieves the numbers and stores them in the structure provided by the caller. This routine is used by all the routines parse_dumpxx_opts to parse the index or ref list that accompanies option -i or -r */ void parse_number_opts( char *argv[], int *curr_arg, number_filter_t *filter) { int32 numItems = 0, i; char *tempPtr = NULL; char *ptr = NULL; int32 *newlist; /* put a temp ptr at the beginning of the given list of numbers, separated by commas, for example, 1,2,3 */ ptr = argv[*curr_arg]; /* check if it's the end of the command */ if( ptr == NULL ) { printf("Missing values for option\n"); exit(1); } /* then traverse the list and count the number of items in it */ while ((tempPtr = HDstrchr(ptr, ',')) != NULL) { numItems++; /* count number of items in the list */ ptr = tempPtr + 1;/* forward pointer to next item, after a comma */ } /* end while */ if (*ptr != '\0') /* count the last item */ numItems++; if (filter->num_list != NULL) { /* Update number of items that will be in the list */ numItems = numItems + filter->num_items; /* Allocate a new list */ newlist = (int32 *) HDmalloc(sizeof(intn) * numItems); CHECK_ALLOC(newlist, "newlist", "parse_number_opts" ); /* If filter->num_list is already allocated, transfer pointers over to the new list and deallocate the old list of pointers */ if (filter->num_list != NULL) { for (i=0; i < filter->num_items; i++) newlist[i] = filter->num_list[i]; HDfree(filter->num_list); } /* Set _cdfs to the new list */ filter->num_list = newlist; newlist = NULL; } else { /* allocate space to hold all the items in the list */ filter->num_list = (int32 *) HDmalloc(sizeof(intn) * numItems); CHECK_ALLOC(filter->num_list, "filter->num_list", "parse_number_opts" ); } /* go back to the beginning of the list and read in the numbers */ ptr = argv[*curr_arg]; i = 0; /* index of the list */ while ( i < numItems ) { tempPtr = HDstrchr(ptr, ','); if( tempPtr != NULL ) *tempPtr = '\0'; /* end the string of digits */ filter->num_list[i] = atoi(ptr); /* convert string to digits */ ptr = tempPtr + 1; i++; } filter->num_items = numItems; /* save the number of items */ } /* parse_number_opts */ /* parse_string_opts take a list of strings separated by commas then retrieves the strings and stores them in the structure provided by the caller. This routine is used by all the routines parse_dumpxx_opts to parse the name or class list that accompanies option -n or -c */ void parse_string_opts( char *argv[], int *curr_arg, char_filter_t *filter) { int32 numItems = 0, i; char *tempPtr = NULL; char *ptr = NULL; /* put a temp pointer at the beginning of the list of strings, separated by commas */ ptr = argv[*curr_arg]; /* check if it's the end of the command */ if( ptr == NULL ) { printf("Missing values for option\n"); exit(1); } /* then traverse the list and count the number of strings in it */ while ((tempPtr = HDstrchr(ptr, ',')) != NULL) { numItems++; ptr=tempPtr+1; } /* end while */ if (*ptr != '\0') /* count the last item */ numItems++; /* allocate space to hold pointers that will point to the given strings */ filter->str_list = (char **) HDmalloc(sizeof(char *) * numItems); CHECK_ALLOC( filter->str_list, "filter->str_list", "parse_string_opts" ); /* go back to the beginning of the list and read in the given strings */ ptr = argv[*curr_arg]; i = 0; /* init the index of the list */ while ( i < numItems ) { tempPtr = HDstrchr(ptr, ','); /* find the end of a string */ if( tempPtr != NULL ) *tempPtr = '\0'; /* end the string with a NULL char */ /* allocate space for each string */ filter->str_list[i] = (char *)HDmalloc(sizeof(char) * (HDstrlen(ptr)+1)); CHECK_ALLOC( filter->str_list[i], "filter->str_list[i]", "parse_string_opts" ); HDstrcpy(filter->str_list[i], ptr); /* get the current string */ ptr = tempPtr + 1; /* move pointer to next item or end of list */ i++; } /* end while */ filter->num_items = numItems; /* save the number of items */ } /* parse_string_opts */ void init_obj_chosen_node(obj_chosen_t *aNode) { aNode->index = -1; aNode->refnum = -1; aNode->name = NULL; aNode->classname = NULL; aNode->type_of_info = INVALID; } void parse_value_opts( char *argv[], int *curr_arg, dump_info_t **dump_opts, info_type_t info_type) { int32 numItems = 0, i; char *tempPtr = NULL; char *ptr = NULL; obj_chosen_t *newlist; /* put a temp ptr at the beginning of the given list of numbers, separated by commas, for example, 1,2,3 */ ptr = argv[*curr_arg]; /* check if it's the end of the command */ if( ptr == NULL ) { printf("Missing values for option\n"); exit(1); } /* then traverse the list and count the number of items in it */ while ((tempPtr = HDstrchr(ptr, ',')) != NULL) { numItems++; /* count number of items in the list */ ptr = tempPtr + 1;/* forward pointer to next item, after a comma */ } /* end while */ if (*ptr != '\0') /* count the last item */ numItems++; if ((*dump_opts)->all_types != NULL) { /* Update number of chosen SDSs so far */ numItems = numItems + (*dump_opts)->num_chosen; /* Allocate a new list */ newlist = (obj_chosen_t *) HDmalloc(sizeof(obj_chosen_t) * numItems); CHECK_ALLOC(newlist, "newlist", "parse_value_opts" ); /* transfer pointers from (*dump_opts)->all_types over to the new list and deallocate the old list of pointers */ for (i=0; i < (*dump_opts)->num_chosen; i++) newlist[i] = (*dump_opts)->all_types[i]; for (i=(*dump_opts)->num_chosen; i < numItems; i++) init_obj_chosen_node(&newlist[i]); /* Set (*dump_opts)->all_types to the new list */ (*dump_opts)->all_types = newlist; newlist = NULL; } else { /* allocate space to hold all the items in the list */ (*dump_opts)->all_types = (obj_chosen_t *) HDmalloc(sizeof(obj_chosen_t) * numItems); CHECK_ALLOC((*dump_opts)->all_types, "filter", "parse_value_opts" ); /* Initialize all nodes */ for (i=0; i < numItems; i++) init_obj_chosen_node(&(*dump_opts)->all_types[i]); } /* go back to the beginning of the list and read in the numbers */ ptr = argv[*curr_arg]; /* index of the list, it should start at 0 or at the number of SDSs chosen so far */ i = (*dump_opts)->num_chosen != NO_SPECIFIC ? (*dump_opts)->num_chosen : 0; while ( i < numItems ) { tempPtr = HDstrchr(ptr, ','); if (tempPtr != NULL) *tempPtr = '\0'; /* end the string of digits */ switch (info_type) { case IS_INDEX: /* convert the string of characters to digits and store for refnum */ (*dump_opts)->all_types[i].index = atoi(ptr); break; case IS_REFNUM: /* convert the string of characters to digits and store for refnum */ (*dump_opts)->all_types[i].refnum = atoi(ptr); break; case IS_NAME: /* get the current string of characters for name */ (*dump_opts)->all_types[i].name = (char *)HDmalloc(sizeof(char) * (HDstrlen(ptr)+1)); CHECK_ALLOC((*dump_opts)->all_types[i].name, "(*dump_opts)->all_types[i].name", "parse_string_opts" ); HDstrcpy((*dump_opts)->all_types[i].name, ptr); break; case IS_CLASS: /* get the current string of characters for class name */ (*dump_opts)->all_types[i].classname = (char *)HDmalloc(sizeof(char) * (HDstrlen(ptr)+1)); CHECK_ALLOC((*dump_opts)->all_types[i].classname, "(*dump_opts)->all_types[i].classname", "parse_string_opts" ); HDstrcpy((*dump_opts)->all_types[i].classname, ptr); break; default: /* shouldn't be anything else */ fprintf(stderr, "Calling function passed in incorrect info_type_t: %%d\n", info_type); exit(1); break; } /* end of switch */ (*dump_opts)->all_types[i].type_of_info = info_type; ptr = tempPtr + 1; i++; } (*dump_opts)->num_chosen = numItems; /* save the number of chosen SDSs so far */ } /* parse_value_opts */ /* validate_pos makes sure that number is > 0 so we are not going to allocate 0 elements This routine is replaced by the macro called CHECK_POS just because the error checkings are being done that way! 7/27/00 */ /* if there are any specific datasets requested, alloc_index_list allocates space for the list of indices of these requested items */ void alloc_index_list( int32 **index_list, int32 num_chosen ) { int32 i = -1; /* used to pass into HDmemfill as dummmy? */ *index_list = (int32 *) HDmalloc(sizeof(int32) * num_chosen); CHECK_ALLOC( *index_list, "index_list", "alloc_index_list" ); i = (-1); HDmemfill(*index_list, &i, sizeof(int32), num_chosen); } /* end of alloc_index_list */ /* Given a compression type code, returns a character string that indicates that compression method. */ char *comp_method_txt(comp_coder_t comp_type) { switch (comp_type) { case COMP_CODE_NONE: return ("NONE"); case COMP_CODE_RLE: return ("RLE"); case COMP_CODE_NBIT: return ("NBIT"); case COMP_CODE_SKPHUFF: return ("SKPHUFF"); case COMP_CODE_DEFLATE: return ("DEFLATE"); case COMP_CODE_SZIP: return ("SZIP"); case COMP_CODE_JPEG: return ("JPEG"); case COMP_CODE_IMCOMP: return ("IMCOMP"); default: return ("INVALID"); } } libhdf4-4.2.10/HDF_ALT/mfhdf/dumper/hdp_gr.c0000644000000000000000000015053212421456623015103 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)Revision"; #endif /* $Id: hdp_gr.c 5831 2012-07-20 07:03:42Z bmribler $ */ #include #include "mfhdf.h" #include "mfgr.h" #include "hdp.h" #ifndef MIPSEL #include #endif /* MIPSEL */ #define N_ENTRIES 256 /* number of elements of each color */ void dumpgr_usage(intn argc, char *argv[]); int32 get_RIindex_list(int32 gr_id, dump_info_t *dumpgr_opts, int32 **gr_chosen, intn *index_error); intn print_PaletteInfo(int32 ri_id, int32 num_pals, FILE *fp); intn print_Palette(int32 ri_id, int32 num_pals, FILE *fp, dump_info_t *dumpgr_opts); intn printGR_ASCII(int32 gr_id, dump_info_t *dumpgr_opts, int32 ndsets, int32 *gr_chosen, int32 num_ri_chosen, FILE *fp); intn printGR_BINARY(int32 gr_id, dump_info_t *dumpgr_opts, int32 num_ri_chosen, int32 ndsets, int32 *gr_chosen, FILE *fp); const char* Il_mode_text(gr_interlace_t interlace_mode); intn grdumpfull(int32 ri_id, dump_info_t *dumpgr_opts, int32 ncomps, int32 dimsizes[], int32 nt, FILE *fp); void closeGR(int32 *file_id, int32 *gr_id, int32 **gr_chosen); intn dgr(dump_info_t *dumpgr_opts, intn curr_arg, intn argc, char *argv[]); void dumpgr_usage(intn argc, char *argv[]) { printf("Usage:\n"); printf("%s dumpgr [-a|-i |-r |-n ] [-m ] [-dhvcs] [-p|-pd] [-o ] [-bx] \n", argv[0]); printf("\t-a\tDump all RIs in the file (default)\n"); printf("\t-i \tDump the th RIs in the file \n"); printf("\t-r \tDump the RIs with reference number \n"); printf("\t-n \tDump the RIs with name \n"); printf("\t-m \tDump data in interlace mode \n"); printf("\t-d\tDump data only, no tag/ref, formatted to input to hp2hdf\n"); printf("\t-h\tDump header only, no data - exclusive with -p and -pd\n"); printf("\t-v\tDump everything including all annotations (default)\n"); printf("\t-c\tPrint space characters as they are, not \\digit\n"); printf("\t-g\tDo not print data of file (global) attributes\n"); printf("\t-l\tDo not print data of local attributes\n"); printf("\t-s\tDo not add carriage return to a long line - dump it as a stream\n"); printf("\t-p\tDump palette's information and data - exclusive with -h\n"); printf("\t-pd\tDump palette's data only - exclusive with -h\n"); printf("\t-o \tOutput to file \n"); printf("\t-b\tBinary format of output\n"); printf("\t-x\tAscii text format of output (default)\n"); printf("\t\tList of hdf file names, separated by spaces\n"); } /* end list_usage() */ intn parse_dumpgr_opts(dump_info_t *dumpgr_opts, intn *curr_arg, intn argc, char *argv[] ) { gr_interlace_t user_interlace; /* temporary store user's interlace mode */ intn ret_value = SUCCEED; /* traverse the command and process each option */ #if defined(WIN386) || defined(DOS386) while ((*curr_arg < argc) && ((argv[*curr_arg][0] == '-') || (argv[*curr_arg][0] == '/'))) #else while ((*curr_arg < argc) && (argv[*curr_arg][0] == '-')) #endif /* for the use of / as option on PC */ { switch (argv[*curr_arg][1]) { case 'a': /* dump all, default */ dumpgr_opts->filter = DALL; /* indicate that no specific images requested, will dump all */ dumpgr_opts->num_chosen = NO_SPECIFIC; (*curr_arg)++; break; case 'i': /* dump by index */ dumpgr_opts->filter |= DINDEX; /* set bit DINDEX */ (*curr_arg)++; /* parse and store the given indices in structure by_index */ parse_number_opts( argv, curr_arg, &dumpgr_opts->by_index); (*curr_arg)++; break; case 'r': /* dump by reference */ dumpgr_opts->filter |= DREFNUM; /* set bit DREFNUM */ (*curr_arg)++; /* parse and store the given ref numbers in structure by_ref */ parse_number_opts( argv, curr_arg, &dumpgr_opts->by_ref); (*curr_arg)++; break; case 'n': /* dump by names */ dumpgr_opts->filter |= DNAME; /* set bit DNAME */ (*curr_arg)++; /* parse and store the given names in structure by_name */ parse_string_opts( argv, curr_arg, &dumpgr_opts->by_name); (*curr_arg)++; break; case 'm': /* dump data in different interlace than at creation */ (*curr_arg)++; /* move forward to interlace option input */ user_interlace = atoi( argv[*curr_arg] ); if( user_interlace == MFGR_INTERLACE_PIXEL || user_interlace == MFGR_INTERLACE_LINE || user_interlace == MFGR_INTERLACE_COMPONENT ) dumpgr_opts->interlace = user_interlace; /* store interlace */ else { printf("Invalid input for interlace option %s\n", argv[*curr_arg]); HGOTO_DONE( FAIL ); } (*curr_arg)++; /* move forward to next option */ break; case 'd': /* dump data only */ dumpgr_opts->contents = DDATA; (*curr_arg)++; break; case 'h': /* no annotations nor data */ /* make sure -p is not also given */ if( dumpgr_opts->print_pal ) ERROR_GOTO_0( "Option -h must not be used together with either -p or -pd" ); dumpgr_opts->contents = DHEADER; (*curr_arg)++; break; case 'v': /* dump all info, default */ dumpgr_opts->contents = DVERBOSE; (*curr_arg)++; break; case 's': /* do not add carriage returns to output data lines */ dumpgr_opts->as_stream = TRUE; (*curr_arg)++; break; case 'c': /* print space characters as they are, not \\digit */ dumpgr_opts->clean_output = TRUE; (*curr_arg)++; break; case 'g': /* suppress file (global) attr data, print its header */ dumpgr_opts->no_gattr_data = TRUE; (*curr_arg)++; break; case 'l': /* suppress local attr data, only print its header */ dumpgr_opts->no_lattr_data = TRUE; (*curr_arg)++; break; case 'o': /* specify output file */ dumpgr_opts->dump_to_file = TRUE; /* Get file name */ HDstrcpy(dumpgr_opts->file_name, argv[++(*curr_arg)]); (*curr_arg)++; break; case 'b': /* dump data in binary */ dumpgr_opts->file_format = DBINARY; (*curr_arg)++; break; case 'x': /* dump data in ascii, also default */ dumpgr_opts->file_format = DASCII; (*curr_arg)++; break; case 'p': /* dump palette data */ /* make sure -h is not also given */ if( dumpgr_opts->contents == DHEADER ) ERROR_GOTO_0( "Option -h must not be used together with either -p or -pd" ); dumpgr_opts->print_pal = TRUE; /* if the current option is -pd, then pal data only is requested */ if( argv[*curr_arg][2] == 'd' ) /* \0 if only -p */ { dumpgr_opts->contents = DDATA; } (*curr_arg)++; break; default: /* invalid dumpgr option */ printf("HDP ERROR>>> Invalid dumpgr option %s\n", argv[*curr_arg]); HGOTO_DONE( FAIL ); } /* end switch */ } /* end while */ /* add the number of images requested by index, by ref#, and by name to have a total number of requested images */ dumpgr_opts->num_chosen = dumpgr_opts->by_index.num_items + dumpgr_opts->by_ref.num_items + dumpgr_opts->by_name.num_items; done: if (ret_value == FAIL) { /* Failure cleanup */ /* free the lists for given indices, ref#s, and names if they had been allocated */ free_num_list(dumpgr_opts->by_index.num_list ); free_num_list(dumpgr_opts->by_ref.num_list ); free_str_list(dumpgr_opts->by_name.str_list, dumpgr_opts->by_name.num_items); } /* Normal cleanup */ return ret_value; } /* end parse_dumpgr_opts */ intn grdumpfull(int32 ri_id, dump_info_t *dumpgr_opts, int32 ncomps, /* "ncomps" is the number of components in each element of the data set */ int32 dimsizes[], /* size of dimension "i". */ int32 nt, FILE *fp) { VOIDP buf = NULL; int32 numtype, eltsz, read_nelts, *start = NULL, /* starting location to be read */ *edge = NULL, /* # of values to be read in each dim */ *stride = NULL; /* # of values to be skipped b/w readings */ intn status, ret_value = SUCCEED; /* Compute the number of the bytes for each value. */ numtype = nt & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE)*ncomps; read_nelts = dimsizes[0]*dimsizes[1]; /* make sure we are not allocating 0 elements, ie. number of elements is positive */ CHECK_POS( read_nelts, "read_nelts", "grdumpfull" ); CHECK_POS( eltsz, "eltsz", "grdumpfull" ); CHECK_POS( ncomps, "ncomps", "grdumpfull" ); buf = (VOIDP) HDmalloc(read_nelts * eltsz); CHECK_ALLOC( buf, "buf", "grdumpfull" ); start = (int32 *) HDmalloc(2 * sizeof(int32)); CHECK_ALLOC( start, "start", "grdumpfull" ); edge = (int32 *) HDmalloc(2 * sizeof(int32)); CHECK_ALLOC( edge, "edge", "grdumpfull" ); stride = (int32 *) HDmalloc(2 * sizeof(int32)); CHECK_ALLOC( stride, "stride", "grdumpfull" ); start[0]=start[1]=0; edge[0]=dimsizes[0]; edge[1]=dimsizes[1]; stride[0]=1; stride[1]=1; /* if the user requests that the data is printed in a different interlace mode from that at the creation of the image, set the interlace mode of the image to be stored in memory when read */ if( dumpgr_opts->interlace != NO_SPECIFIC ) { status = GRreqimageil( ri_id, dumpgr_opts->interlace ); if( status == FAIL ) ERROR_GOTO_2( "in %s: GRreqimageil failed for ri_id(%d)", "grdumpfull", (int)ri_id ); } status = GRreadimage(ri_id, start, stride, edge, buf); if ( status == FAIL ) ERROR_GOTO_2( "in %s: GRreadimage failed for ri_id(%d)", "grdumpfull", (int)ri_id ); /* if printing data only, print with no indentation */ if( dumpgr_opts->contents == DDATA ) status = dumpfull( nt, dumpgr_opts, read_nelts*ncomps, buf, fp, 0, 0); else status = dumpfull( nt, dumpgr_opts, read_nelts*ncomps, buf, fp, DATA_INDENT, DATA_CONT_INDENT ); if( status == FAIL ) ERROR_GOTO_2( "in %s: dumpfull failed for ri_id(%d)", "grdumpfull", (int)ri_id ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (edge != NULL) HDfree((VOIDP) edge); if (start != NULL) HDfree((VOIDP) start); if (stride != NULL) HDfree((VOIDP) stride); if (buf != NULL) HDfree((VOIDP) buf); return ret_value; } /* grdumpfull */ /* compose the list of indices of the requested vgroups although some vgroups are requested by ref# or name. The routine returns: - the number of vgroups to be processed, or - NO_SPECIFIC if all vgroups are to be processed, or - 0 if none. If there are any errors, the parameter index_error will return TRUE */ int32 get_RIindex_list( int32 gr_id, dump_info_t *dumpgr_opts, int32 **gr_chosen,/* array of indices of RIs to be processed */ intn *index_error ) { int32 index, /* index of an image */ ri_count = 0; /* number of RIs to be processed */ filter_t filter = dumpgr_opts->filter; /* temporary name */ int32 num_ri_chosen = dumpgr_opts->num_chosen; intn i, ret_value = 0; /* if no specific images are requested, return the image count as NO_SPECIFIC (-1) to indicate that all images are to be dumped */ if( filter == DALL ) HGOTO_DONE( NO_SPECIFIC ); /* if specific images were requested, allocate space for the array of indices */ if (num_ri_chosen > 0) alloc_index_list( gr_chosen, num_ri_chosen ); /* else, no chosen images but filter is not DALL, it shouldn't be this combination, return image count as NO_SPECIFIC to dumpall */ else HGOTO_DONE( NO_SPECIFIC ); /* if there are some images requested by index, store the indices in the array gr_chosen */ if( filter & DINDEX ) for (i = 0; i < dumpgr_opts->by_index.num_items; i++) { /* Note: Don't replace this with HDmemcpy unless you change the sizes of the objects correctly -QAK */ (*gr_chosen)[ri_count] = dumpgr_opts->by_index.num_list[i]; ri_count++; } /* if there are some images requested by ref#, convert the ref#s to indices and store them in the array gr_chosen */ if( filter & DREFNUM ) for (i = 0; i < dumpgr_opts->by_ref.num_items; i++) { index = GRreftoindex(gr_id, (uint16)dumpgr_opts->by_ref.num_list[i]); if (index == FAIL) { printf("Image with reference number %d: not found\n", (int)dumpgr_opts->by_ref.num_list[i]); *index_error = TRUE; } else { (*gr_chosen)[ri_count] = index; ri_count++; } } /* if there are some images requested by name, convert the names to indices and store them in the array gr_chosen */ if( filter & DNAME ) for (i = 0; i < dumpgr_opts->by_name.num_items; i++) { index = GRnametoindex(gr_id, dumpgr_opts->by_name.str_list[i]); if (index == FAIL) { printf("Image with name '%s': not found\n", dumpgr_opts->by_name.str_list[i]); *index_error = TRUE; } else { (*gr_chosen)[ri_count] = index; ri_count++; } } ret_value = ri_count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end of get_RIindex_list */ /* prints all GR file attributes in the current file */ intn print_GRattrs( int32 gr_id, int32 n_file_attrs, FILE *fp, dump_info_t *dumpgr_opts ) { int32 attr_index, attr_count, attr_nt, attr_buf_size; char attr_name[MAXNAMELEN], *attr_nt_desc = NULL; VOIDP attr_buf = NULL; intn printed = FALSE; /* whether file attr title has been printed */ intn status, /* status from called routine */ ret_value = SUCCEED; /* for each file attribute, print its info and values */ for (attr_index = 0; attr_index < n_file_attrs; attr_index++) { /* get the current attr's name, number type, and number of values */ status = GRattrinfo(gr_id, attr_index, attr_name, &attr_nt, &attr_count); if (FAIL == status ) /* to the next attribute */ ERROR_CONT_2( "in %s: GRattrinfo failed for %d'th attribute", "print_GRattrs", (int)attr_index ); /* get number type description of the attribute */ attr_nt_desc = HDgetNTdesc(attr_nt); if (NULL == attr_nt_desc) ERROR_CONT_2( "in %s: HDgetNTdesc failed for %d'th attribute", "print_GRattr", (int)attr_index ); /* print a title line for file attributes if it's not printed yet and set flag so it won't be printed again */ if( !printed ) { fprintf(fp, "\n File attributes:\n"); printed = TRUE; } /* display the attribute's information then free buffer */ fprintf(fp, "\t Attr%d: Name = %s\n", (int) attr_index, attr_name); fprintf(fp, "\t\t Type = %s \n\t\t Count= %d\n", attr_nt_desc, (int) attr_count); resetBuff(( VOIDP *) &attr_nt_desc ); /* display the attribute's values unless user chose to suppress them */ if( dumpgr_opts->no_gattr_data == FALSE ) { /* to be sure that attr_buf is free before reuse since sometimes we have to break the current loop and continue to the next item */ resetBuff( &attr_buf ); /* calculate the buffer size of the attribute using the number of values in the attribute and its value size */ attr_buf_size = DFKNTsize(attr_nt) * attr_count; /* make sure we are not allocating 0 elements */ CHECK_POS( attr_buf_size, "attr_buf_size", "print_GRattrs" ); /* allocate space for the attribute's values */ attr_buf = (VOIDP) HDmalloc(attr_buf_size); CHECK_ALLOC( attr_buf, "attr_buf", "print_GRattrs" ); /* read the values of the attribute into the buffer */ status = GRgetattr( gr_id, attr_index, attr_buf ); if (status == FAIL) ERROR_CONT_2( "in %s: GRgetattr failed for %d'th attribute", "print_GRattr", (int)attr_index ); /* display the attribute's values */ fprintf(fp, "\t\t Value = "); /* if the user wishes to have clean output, i.e. option -c is selected - Note that this option is only applicable to DFNT_CHAR type, the option will be ignored for other types */ if( dumpgr_opts->clean_output && attr_nt == DFNT_CHAR ) { status = dumpclean(attr_nt, dumpgr_opts, attr_count, attr_buf, fp); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpclean failed for %d'th attribute", "print_GRattr", (int)attr_index ); } else /* show tab, lf, null char... in octal as \011, \012, \000... */ { status = dumpfull(attr_nt, dumpgr_opts, attr_count, attr_buf, fp, ATTR_INDENT, ATTR_CONT_INDENT ); if( status == FAIL ) ERROR_CONT_2( "in %s: dumpfull failed for %d'th attribute", "print_GRattr", (int)attr_index ); } /* free buffer and reset it to NULL */ } /* end of if no file attributes */ } /* for all attributes of GR */ return ret_value; } /* end of print_GRattrs */ intn print_RIattrs( int32 ri_id, intn ri_index, int32 nattrs, FILE *fp, dump_info_t* dumpgr_opts ) { int32 attr_index, attr_count, attr_nt, attr_buf_size; char attr_name[MAXNAMELEN], *attr_nt_desc = NULL; VOIDP attr_buf=NULL; intn status, /* status returned from a called routine */ ret_value = SUCCEED; /* returned value of print_RIattrs */ /* for each attribute, display its info and data */ for (attr_index = 0; attr_index < nattrs; attr_index++) { /* get the current attr's name, number type, and number of values */ status = GRattrinfo(ri_id, attr_index, attr_name, &attr_nt, &attr_count); if (FAIL == status) /* go to next attribute */ ERROR_CONT_3( "in %s: GRattrinfo failed for %d'th attribute of %d'th RI", "print_RIattrs", (int)attr_index, (int)ri_index ); /* get number type description of the attribute */ attr_nt_desc = HDgetNTdesc(attr_nt); if (NULL == attr_nt_desc) /* go to the next attribute */ ERROR_CONT_3( "in %s: HDgetNTdesc failed for %d'th attribute of %d'th RI", "print_RIattrs", (int)attr_index, (int)ri_index ); /* display the attribute's information then free buffer */ fprintf(fp, "\t Attr%d: Name = %s\n", (int) attr_index, attr_name); fprintf(fp, "\t\t Type = %s \n\t\t Count= %d\n", attr_nt_desc, (int) attr_count); /* free buffer and reset it to NULL */ resetBuff((VOIDP *) &attr_nt_desc ); /* display the attribute's values unless user chose to suppress them */ if( dumpgr_opts->no_lattr_data == FALSE ) { /* to be sure that attr_buf is free before reuse since sometimes we have to break the current loop and continue to the next item */ resetBuff( &attr_buf ); /* calculate the buffer size of the attribute using the number of values in the attribute and its value size */ attr_buf_size = DFKNTsize(attr_nt) * attr_count; /* make sure we are not allocating 0 elements */ CHECK_POS( attr_buf_size, "attr_buf_size", "print_RIattrs" ); /* allocate space for attribute's values */ attr_buf = (VOIDP) HDmalloc(attr_buf_size); CHECK_ALLOC( attr_buf, "attr_buf", "print_RIattrs" ); /* read the values of the attribute into buffer attr_buf */ status = GRgetattr( ri_id, attr_index, attr_buf ); if (status == FAIL) /* go to the next attribute */ ERROR_CONT_3( "in %s: GRgetattr failed for %d'th attribute of %d'th RI", "print_RIattrs", (int)attr_index, (int)ri_index ); /* display the attribute's values then free buffer */ fprintf(fp, "\t\t Value = "); /* if the user wishes to have clean output, i.e. option -c is selected */ /* Note that this option is only applicable to DFNT_CHAR type, the option will be ignored for other types */ if( dumpgr_opts->clean_output && attr_nt == DFNT_CHAR ) { status = dumpclean(attr_nt, dumpgr_opts, attr_count, attr_buf, fp); if( status == FAIL ) ERROR_CONT_3( "in %s: dumpclean failed for %d'th attribute of %d'th RI", "print_RIattrs", (int)attr_index, (int)ri_index ); } else /* show tab, lf, null char... in octal as \011, \012, \000... */ { status = dumpfull(attr_nt, dumpgr_opts, attr_count, attr_buf, fp, ATTR_INDENT, ATTR_CONT_INDENT ); if( status == FAIL ) ERROR_CONT_3( "in %s: dumpfull failed for %d'th attribute of %d'th RI", "print_RIattrs", (int)attr_index, (int)ri_index ); } } /* end of if no local attributes */ } /* for all attributes of an RI */ return ret_value; } /* end of print_RIattrs */ /* Displays the palette information only. Note that HDF supports only 256 colors. Each color is defined by its 3 components. Therefore, verifying the value of n_entries and n_comps is not necessary and the buffer to hold the palette data can be static. However, if more values or colors are added to the model, these parameters must be checked to allocate sufficient space when reading a palette and the palette number should be printed */ intn print_PaletteInfo( int32 ri_id, int32 num_pals, /* number of palettes, currently only 1 */ FILE *fp ) { int32 pal_id = FAIL, pal_index, data_type, n_comps, n_entries, interlace_mode; intn status, ret_value = SUCCEED; /* Check the number of palettes */ if((num_pals=GRgetnluts(ri_id))<0) ERROR_GOTO_2( "in %s: GRgetnluts failed for raster image ID #%d", "print_PaletteInfo", (int)ri_id); /* if there are no palette data, print message for both cases: header-only and verbose (data+header) */ if(num_pals==0) { fprintf( fp, "\t No palette\n"); } /* end if */ else { /* display each palette of an RI */ for( pal_index = 0; pal_index < num_pals; pal_index++ ) { /* Get the identifier of the palette attached to the image. */ pal_id = GRgetlutid (ri_id, pal_index); if( pal_id == FAIL ) /* continue to the next palette */ ERROR_CONT_2( "in %s: GRgetlutid failed for palette #%d", "print_PaletteInfo", (int)pal_index); /* Obtain and display information about the palette. */ status = GRgetlutinfo (pal_id, &n_comps, &data_type, &interlace_mode, &n_entries); if( status == FAIL ) /* continue to the next palette */ ERROR_CONT_2( "in %s: GRgetlutinfo failed for palette #%d", "print_PaletteInfo", (int)pal_index); /* if there are palette data, print header info */ fprintf (fp, "\t Palette: %d components; %d entries\n", (int)n_comps, (int)n_entries); } /* end of for each palette */ } /* end else */ done: if (ret_value == FAIL) { /* Failure cleanup */ } return( ret_value ); } /* end of print_PaletteInfo */ /* Displays the palette data. Note that HDF supports only 256 colors. Each color is defined by its 3 components. Therefore, verifying the value of n_entries and n_comps is not necessary and the buffer to hold the palette data can be static. However, if more values or colors are added to the model, these parameters must be checked to allocate sufficient space when reading a palette */ intn print_Palette( int32 ri_id, int32 num_pals, /* number of palettes, currently only 1 */ FILE *fp, dump_info_t *dumpgr_opts ) { int32 pal_id = FAIL, pal_index, data_type, n_comps, n_entries, interlace_mode; uint8 palette_data[N_ENTRIES][3]; /* static because of fixed size */ uint16 ri_ref; intn status, ret_value = SUCCEED; /* Get the ref# of the image, for displaying output */ ri_ref = GRidtoref(ri_id); /* Check the number of palettes */ if((num_pals=GRgetnluts(ri_id))<0) ERROR_GOTO_2( "in %s: GRgetnluts failed for raster image with ref#=%d", "print_Palette", (int)ri_ref); /* if there are no palette data, print message for both cases: header-only and verbose (data+header) */ if(num_pals==0) { if( dumpgr_opts->contents != DDATA ) fprintf( fp, "\n\t Raster Image Ref. = %d\n\t No palette data\n", (int)ri_ref); } /* end if */ else { /* display each palette of an RI */ for( pal_index = 0; pal_index < num_pals; pal_index++ ) { /* Get the identifier of the palette attached to the image. */ pal_id = GRgetlutid (ri_id, pal_index); if( pal_id == FAIL ) /* continue to the next palette */ ERROR_CONT_2( "in %s: GRgetlutid failed for palette #%d", "print_Palette", (int)pal_index); /* Read the palette data. */ status = GRreadlut (pal_id, (VOIDP)palette_data); if( status == FAIL ) { /* continue to the next palette */ ERROR_CONT_2( "in %s: GRreadlut failed for palette #%d", "print_Palette", (int)pal_index); } /* Obtain and display information about the palette. */ status = GRgetlutinfo (pal_id, &n_comps, &data_type, &interlace_mode, &n_entries); if( status == FAIL ) /* continue to the next palette */ ERROR_CONT_2( "in %s: GRgetlutinfo failed for palette #%d", "print_Palette", (int)pal_index); /* if there are palette data, print header info when not data-only and print palette data when not header-only */ switch (dumpgr_opts->contents) { /* Note that case DHEADER is not presented because option -h is not allowed with -p or -pd */ case DVERBOSE: fprintf (fp, "\n\t Raster Image Ref. = %d\n", (int)ri_ref); fprintf (fp, "\t Palette: %d components; %d entries\n", (int)n_comps, (int)n_entries); /* display the palette data with the title line and indent the data with DATA_INDENT and DATA_CONT_INDENT */ fprintf (fp, "\t Palette Data: \n"); status = dumpfull(data_type, dumpgr_opts, n_entries*n_comps, palette_data, fp, DATA_INDENT, DATA_CONT_INDENT ); if( status == FAIL ) ERROR_GOTO_2( "in %s: dumpfull failed for palette #%d", "print_Palette", (int)pal_index); break; case DDATA: /* print palette data with no title and indentation */ status = dumpfull(data_type, dumpgr_opts, n_entries*n_comps, palette_data, fp, 0, 0 ); if( status == FAIL ) ERROR_GOTO_2( "in %s: dumpfull failed for palette #%d", "print_Palette", (int)pal_index ); break; default: printf("Unknown output type option \n" ); } /* end switch */ } /* end for each palette */ } /* end else */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end of print_Palette */ const char* Il_mode_text( gr_interlace_t interlace_mode ) { switch( interlace_mode ) { case MFGR_INTERLACE_PIXEL: return("PIXEL"); case MFGR_INTERLACE_LINE: return("LINE"); case MFGR_INTERLACE_COMPONENT: return("COMPONENT"); default: return("INVALID"); } /* end switch */ } /* * Prints compression method and compression information of an image. * Once, adding the compression information part, combine this and the SD * version, print_comp_info. * BMR - Jul, 2012 */ intn print_grcomp_info( FILE *fp, int32 ri_id) { comp_info c_info; /* Compression structure */ comp_coder_t comp_type = COMP_CODE_NONE; int32 comp_size=0, orig_size=0; /* compressed and original sizes */ intn status = FAIL; /* returned status from a called function */ /* Get compression info */ HDmemset(&c_info, 0, sizeof(c_info)); status = GRgetcompinfo(ri_id, &comp_type, &c_info); /* if getting comp info succeeds, proceed to print out appropriate compression information */ if (status != FAIL) { /* print compression method or "NONE" */ fprintf(fp, "\t Compression method = %s\n", comp_method_txt(comp_type)); #if 0 /* need to fix output of tests after 4.2.8 to display comp info */ switch (comp_type) { case COMP_CODE_NONE: case COMP_CODE_JPEG: case COMP_CODE_RLE: case COMP_CODE_IMCOMP: break; case COMP_CODE_SKPHUFF: fprintf(fp, "\t\t Skipping unit size = %d\n", c_info.skphuff.skp_size); break; case COMP_CODE_DEFLATE: fprintf(fp, "\t\t Deflate level = %d\n", c_info.deflate.level); break; case COMP_CODE_SZIP: { char mask_strg[160]; /* 160 is to cover all options and number val*/ if (option_mask_string(c_info.szip.options_mask, mask_strg) != FAIL) fprintf(fp, "\t\t Option mask = %s\n", mask_strg); else fprintf(fp, "\t\t Option mask might be invalid = %d\n", (int)c_info.szip.options_mask); fprintf(fp, "\t\t Pixels per block = %d\n", (int)c_info.szip.pixels_per_block); fprintf(fp, "\t\t Pixels per scanline = %d\n", (int)c_info.szip.pixels_per_scanline); fprintf(fp, "\t\t Bits per pixel = %d\n", (int)c_info.szip.bits_per_pixel); fprintf(fp, "\t\t Pixels = %d\n", (int)c_info.szip.pixels); break; } default: /* nothing */ break; } /* switch */ #endif } else fprintf(fp, "\t Compression method = \n"); return(status); } /* print_grcomp_info */ intn printGR_ASCII( int32 gr_id, dump_info_t *dumpgr_opts, int32 ndsets, /* number of images in the file */ int32 *gr_chosen, /* list of images' indices */ int32 num_ri_chosen, /* number of indices in gr_chosen */ FILE *fp ) { int32 ri_id = FAIL, /* image id, always reset to FAIL when not used */ ri_ref, /* ref# of an image */ ri_index, /* index of images in the file */ ri_count, /* count of images being printed */ nt, /* number type of an image */ il, /* interlace mode of an image */ ncomps, /* number of components in an image */ dimsizes[MAXRANK], /* dimension sizes of an image */ nattrs; /* number of attributes assigned to an image */ char name[MAXNAMELEN], /* name of an image */ curr_file_name[MAXFNLEN], /* current input (hdf) file's name */ *nt_desc = NULL; /* ??? */ intn dumpall = FALSE, /* TRUE when no specific images requested */ status, /* status returned from a routine */ ret_value = SUCCEED;/* returned value of printGR_ASCII */ /* temp. name for curr input file name for ease of use */ HDstrcpy( curr_file_name, dumpgr_opts->ifile_name ); /* when there are no images specified, dumper dumps all images */ if (num_ri_chosen == NO_SPECIFIC) /* NO_SPECIFIC = -1 */ dumpall = TRUE; else sort(gr_chosen, num_ri_chosen); /* otherwise, sort the list */ /* for each valid index, if the user requests to dump all images or if there are more requested images to be processed, process the indexed image */ ri_count = 0; /* no images has been processed yet */ for (ri_index = 0; ri_index < ndsets /* validate index */ && (dumpall /* either all images are dumped */ || ri_count < num_ri_chosen); /* or more requested images */ ri_index++) { /* if the user neither requests dump all nor the current image */ if ((!dumpall) && (ri_index != gr_chosen[ri_count])) continue; /* go to the next image in the file */ ri_count++; /* count the # of images being processed */ /* Reset variables. */ HDmemset(dimsizes, 0, sizeof(int32) * MAXRANK); /* get access to the current image */ ri_id = GRselect(gr_id, ri_index); if (ri_id == FAIL) /* to the next image */ ERROR_CONT_2( "in %s: GRselect failed for %d'th RI", "printGR_ASCII", (int)ri_index ); /* get image's information */ status = GRgetiminfo(ri_id, name, &ncomps, &nt, &il, dimsizes, &nattrs); if( FAIL == status ) { fprintf(stderr,"in %s: GRgetiminfo failed for %d'th RI", "printGR_ASCII", (int)ri_index ); /* end access to the current image before going on to the next */ if (FAIL == GRendaccess(ri_id)) fprintf( stderr,"in %s: GRendaccess failed for %d'th RI", "printGR_ASCII", (int)ri_index ); ri_id = FAIL; /* reset image id */ continue; /* to the next image */ } /* print image palette's info and data or data only depending on the content's option (-pd or -p, taken care by print_Palette) */ if( dumpgr_opts->print_pal ) /* set when -p or -pd is given */ { /* Note: currently only 1 pal assigned to an image, 2nd arg. */ status = print_Palette( ri_id, 1, fp, dumpgr_opts ); if( status == FAIL ) ERROR_BREAK_2("in %s: Printing image's palette failed for RI #%d", "printGR_ASCII", (int)ri_index, FAIL ); } else /* only happen when neither -p nor -pd were given */ { /* print the current image as specified by user's options */ switch (dumpgr_opts->contents) { case DVERBOSE: case DHEADER: nt_desc = HDgetNTdesc(nt); if (NULL == nt_desc) ERROR_BREAK_2( "in %s: HDgetNTdesc failed for %d'th RI", "printGR_ASCII", (int)ri_index, FAIL ); /* display image's info then free the buffer no longer needed */ fprintf(fp, "\n\t Image Name = %s\n\t Index = ", name); fprintf(fp, "%d\n\t Type= %s\n", (int)ri_index, nt_desc); resetBuff(( VOIDP *) &nt_desc ); /* get the image's ref# from its id */ if ((ri_ref = GRidtoref(ri_id)) == FAIL) ERROR_BREAK_2( "in %s: GRidtoref failed for %d'th RI", "printGR_ASCII", (int)ri_index, FAIL ); /* print more image's info */ fprintf(fp, "\t width=%d; height=%d\n", (int) dimsizes[0], (int) dimsizes[1]); fprintf(fp, "\t Ref. = %d\n", (int) ri_ref); fprintf(fp, "\t ncomps = %d\n\t Interlace mode= %s\n", (int) ncomps, Il_mode_text((gr_interlace_t)il) ); /* print the palette info now so it won't be lost after the image data; currently, only 1 palette per image (2nd arg.) */ status = print_PaletteInfo( ri_id, 1, fp ); if( status == FAIL ) ERROR_BREAK_2( "in %s: Printing image's palette information failed for %d'th RI", "printGR_ASCII", (int)ri_index, FAIL ); /* Print compression method or "NONE" */ status = print_grcomp_info(fp, ri_id); /* Print image attributes */ fprintf(fp, "\t Number of attributes = %d\n", (int) nattrs ); status = print_RIattrs(ri_id, ri_index, nattrs, fp, dumpgr_opts ); if( status == FAIL ) ERROR_BREAK_2( "in %s: Printing image's attributes failed for %d'th RI", "printGR_ASCII", (int)ri_index, FAIL ); if (dumpgr_opts->contents == DHEADER) break; /* break out for header only */ case DDATA: if (dumpgr_opts->contents != DDATA) fprintf(fp, "\t Data : \n"); if (ncomps > 0 && dimsizes[0] != 0) { /* print the current image's data */ status = grdumpfull( ri_id, dumpgr_opts, ncomps, dimsizes, nt, fp); if ( status == FAIL ) ERROR_BREAK_2( "in %s: Printing image's data failed for %d'th RI", "printGR_ASCII", (int)ri_index, FAIL ); } else { fprintf(fp, "\t\t No data written.\n"); } break; /* data section */ default: printf("Unknown output type option \n" ); } /* switch on contents */ } /* end if when neither -p nor -pd given */ /* end access to the current image */ if (FAIL == GRendaccess(ri_id)) fprintf(stderr,"in %s: GRendaccess failed for %d'th RI", "printGR_ASCII", (int)ri_index ); ri_id = FAIL; /* reset image id */ } /* for ndsets */ /* Normal cleanup */ resetBuff(( VOIDP *) &nt_desc ); return ret_value; /* status of calls */ } /* end of printGR_ASCII */ intn printGR_BINARY( int32 gr_id, dump_info_t *dumpgr_opts, int32 num_ri_chosen, /* # of indices in gr_chosen */ int32 ndsets, /* # of images in the file */ int32 *gr_chosen, /* list of images' indices */ FILE *fp ) { intn dumpall = FALSE; /* TRUE when no specific images requested */ int32 ri_index, /* index of images in the file */ ri_count, /* count of images being printed */ nt, /* number type of an image */ il, /* interlace mode of an image */ ncomps, /* number of components in an image */ dimsizes[MAXRANK], /* dimension sizes of an image */ ri_id = FAIL, /* image id, always reset to FAIL when not used */ nattrs; /* number of attributes assigned to an image */ char name[MAXNAMELEN], /* name of an image */ curr_file_name[MAXFNLEN]; /* current input (hdf) file's name */ intn status, /* status returned from a routine */ ret_value = SUCCEED;/* return value of printGR_ASCII */ /* temp. name for curr input file name for ease of use */ HDstrcpy( curr_file_name, dumpgr_opts->ifile_name ); /* default content option to DDATA when output is binary because no header info will be printed in binary format */ dumpgr_opts->contents = DDATA; /* when there are no images specified, dumper dumps all images */ if (num_ri_chosen == (NO_SPECIFIC)) dumpall = TRUE; else sort(gr_chosen, num_ri_chosen); /* otherwise, sort the list */ /* for each valid index, display the image's data if the user request to dump all images or if there are more requested images to be processed */ ri_count = 0; /* no requested image has been processed yet */ for (ri_index = 0; ri_index < ndsets /* validate index */ && ( dumpall /* either all images are dumped */ || ri_count < num_ri_chosen); /* or more requested images */ ri_index++) { /* if the user neither requests dump all nor the current images */ if ((!dumpall) && (ri_index != gr_chosen[ri_count])) continue; /* go to the next image in the file */ ri_count++; /* count the # of images being processed */ /* Reset variables. */ HDmemset(dimsizes, 0, sizeof(int32) * MAXRANK); /* get access to the current image */ ri_id = GRselect(gr_id, ri_index); if (ri_id == FAIL) /* to the next image */ ERROR_CONT_2( "in %s: GRselect failed for %d'th RI", "printGR_BINARY", (int)ri_index ); /* get image's information */ status = GRgetiminfo(ri_id, name, &ncomps, &nt, &il, dimsizes, &nattrs); if( status == FAIL ) { fprintf( stderr, "in %s: GRgetiminfo failed for %d'th RI", "printGR_BINARY", (int)ri_index ); /* end access to the current image before going to the next one */ if( GRendaccess(ri_id) == FAIL ) fprintf( stderr, "in %s: GRendaccess failed for %d'th RI", "printGR_BINARY", (int)ri_index ); ri_id = FAIL; /* reset image id */ continue; /* to the next image */ } /* print image palette's data */ if( dumpgr_opts->print_pal ) { /* Note: currently only 1 pal assigned to an image, 2nd arg. */ status = print_Palette( ri_id, 1, fp, dumpgr_opts ); if ( status == FAIL ) ERROR_BREAK_2( "in %s: Printing image's palette failed for %d'th RI", "printGR_BINARY", (int)ri_index, FAIL ); } /* output data in binary format if palette printing is not requested */ else if (ncomps > 0 && dimsizes[0] != 0) { /* print the current image's data */ status = grdumpfull(ri_id, dumpgr_opts, ncomps, dimsizes, nt, fp); if ( status == FAIL ) ERROR_BREAK_2( "in %s: Printing image's data failed for %d'th RI", "printGR_BINARY", (int)ri_index, FAIL ); } /* end access to the current image */ if (FAIL == GRendaccess(ri_id)) fprintf(stderr,"in %s: GRendaccess failed for %d'th RI", "printGR_BINARY", (int)ri_index ); ri_id = FAIL; /* reset image id */ } /* for ndsets */ return ret_value; } /* end of printGR_BINARY */ /* closeGR combines the processes of GRend, Hclose, freeing the list of numbers, and resetting all ids after validating the ids first. When either GRend or Hclose fails, closeGR prints an informative message then resetting the ids as normal since these failures are highly unlikely and since the files are opened as read-only, it's safe to go on. */ void closeGR(int32 *file_id, /* will be returned as a FAIL */ int32 *gr_id, /* will be returned as a FAIL */ int32 **gr_chosen ) /* will be returned as a NULL */ { if( *gr_id != FAIL ) { if (FAIL == GRend(*gr_id)) fprintf(stderr,"in closeGR: GRend failed for the current file\n" ); *gr_id = FAIL; /* reset */ } if( *file_id != FAIL ) { if (FAIL == Hclose(*file_id)) fprintf(stderr,"in closeGR: Hclose failed for the current file\n" ); *file_id = FAIL; /* reset */ } if( *gr_chosen != NULL ) { HDfree( *gr_chosen ); *gr_chosen = NULL; } /* end if */ } /* end of closeGR */ intn dgr(dump_info_t *dumpgr_opts, intn curr_arg, intn argc, char *argv[] ) { int32 file_id = FAIL, /* current hdf file id */ gr_id = FAIL, /* interface id */ *gr_chosen = NULL, /* index list of requested images */ num_ri_chosen, /* # of requested images */ nglb_attrs, /* # of file attributes */ ndsets; /* # of images in the file */ FILE *fp = NULL; /* output file pointer */ char file_name[MAXFNLEN]; /* current hdf file name */ intn index_error=FALSE, /* indicate an error in getting index list */ status, /* status returned from a called routine */ ret_value = SUCCEED; /* returned value of dgr */ /* check for missing input file name */ if( curr_arg >= argc ) ERROR_GOTO_0( "Missing input file name. Please try again" ); /* going through each input file, open the file, try to compose the list of indices of the images in the file that are requested, then read and display information and data of each image in the specified manner */ while (curr_arg < argc) { intn isHDF = TRUE; /* FALSE, if current file is not HDF file */ HDstrcpy(file_name, argv[curr_arg]); /* get file name */ HDstrcpy( dumpgr_opts->ifile_name, file_name ); /* record file name */ curr_arg++; /* forward the pointer to the current argument */ /* ensure that file_id, gr_id, and gr_chosen are all reset before using because sometimes we have to break out a cycle; this'll help avoiding the chore at every one of those instances */ closeGR( &file_id, &gr_id, &gr_chosen ); /* Print an informative message and skip this file if it is not an HDF file */ isHDF = Hishdf(file_name); if (isHDF == FALSE) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dgr: %s is not an HDF file", file_name);} else /* print message, then continue processing the next file */ {ERROR_CONT_1( "in dgr: %s is not an HDF file", file_name);} } /* open current hdf file for processing */ file_id = Hopen(file_name, DFACC_RDONLY, 0); if (file_id == FAIL) { /* if there are no more files to be processed, print error message, then returns with FAIL */ if( curr_arg == argc ) {ERROR_GOTO_1( "in dgr: Failure in opening file %s", file_name);} else /* print message, then continue processing the next file */ ERROR_CONT_1( "in dgr: Failure in opening file %s", file_name ); } /* initiate GR interface, if fail, probably something fatal, returns with FAIL */ gr_id = GRstart(file_id); if (FAIL == gr_id) ERROR_GOTO_1( "in dgr: GRstart failed for file %s", file_name); /* BMR: compose the list of indices of RIs to be processed in the current file: gr_chosen is the list and return the number of items in it */ num_ri_chosen = get_RIindex_list(gr_id, dumpgr_opts, &gr_chosen, &index_error); /* if there are errors with the given indices, ref#s, or names of the requested images, and yields no valid images, then close the interface and the input file, and move on to the next file */ if (index_error && num_ri_chosen==0) continue; /* to the next file */ /* obtain number of images in the file and number of file attributes, ndsets will be used to process the images, nglb_attrs will be used to print file attributes */ status = GRfileinfo(gr_id, &ndsets, &nglb_attrs); if (status == FAIL) /* to the next file */ ERROR_CONT_1( "in dgr: GRfileinfo failed for file %s", file_name); fp = stdout; /* assume that output option is not given */ /* display images in requested format for the current file */ switch(dumpgr_opts->file_format) { case DASCII: /* ASCII file */ /* open output file for ASCII or direct to standard output */ if (dumpgr_opts->dump_to_file) { fp = fopen( dumpgr_opts->file_name, "w"); if( fp == NULL ) { fprintf( stderr, "Unable to open output file %s\n", dumpgr_opts->file_name ); exit(1); /* terminate hdp */ } } /* display the name and global attributes of the current file if data only option is not selected */ if (dumpgr_opts->contents != DDATA) { fprintf(fp, "File name: %s \n", file_name ); /* print GR file attributes */ if( nglb_attrs > 0 ) /* save overhead */ { status = print_GRattrs( gr_id, nglb_attrs, fp, dumpgr_opts ); if( status == FAIL ) ERROR_BREAK_1( "in dgr: print_GRattrs failed for file %s", file_name, FAIL ); } } /* print RIs'data and information as requested */ if( ndsets > 0 ) { status = printGR_ASCII( gr_id, dumpgr_opts, ndsets, gr_chosen, num_ri_chosen, fp ); if( status == FAIL ) /* to the next file */ ERROR_BREAK_1( "in dgr: printGR_ASCII failed for file %s", file_name, FAIL ); } else if( dumpgr_opts->contents != DDATA ) fprintf( stderr, "File %s has no images\n", file_name ); break; /* ASCII */ case DBINARY: /* binary file */ /* open output file for ASCII or print to screen */ if (dumpgr_opts->dump_to_file) { fp = fopen(dumpgr_opts->file_name, "wb"); if( fp == NULL ) { fprintf( stderr, "Unable to open output file %s\n", dumpgr_opts->file_name ); exit(1); /* terminate hdp */ } } status = printGR_BINARY( gr_id, dumpgr_opts, num_ri_chosen, ndsets, gr_chosen, fp ); if( status == FAIL ) ERROR_BREAK_1( "in dgr: printGR_BINARY failed for file %s", file_name, FAIL ); break; /* BINARY */ default: printf("Output file type must be either ascii or binary only\n" ); } /* switch for output format */ /* cleaning up before going on to the next file */ closeGR( &file_id, &gr_id, &gr_chosen ); } /* while more files to process */ /* close output file only if option -o is given */ if (fp != NULL && dumpgr_opts->dump_to_file) fclose(fp); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ closeGR( &file_id, &gr_id, &gr_chosen ); return ret_value; } /* dgr */ intn do_dumpgr(intn curr_arg, intn argc, char *argv[], intn help) { dump_info_t dumpgr_opts; /* dumpgr options */ intn status, ret_value = SUCCEED; /* initialize the structure that holds user's options and inputs */ init_dump_opts(&dumpgr_opts); /* command line: hdp help */ if( help == TRUE ) { dumpgr_usage(argc, argv); goto done; } /* end if */ /* incomplete command */ if( curr_arg >= argc ) { dumpgr_usage(argc, argv); ERROR_GOTO_0( "in do_dumpgr: command is incomplete"); } /* end if */ /* parse the user's command and store the inputs in dumpgr_opts */ status = parse_dumpgr_opts( &dumpgr_opts, &curr_arg, argc, argv ); if( status == FAIL ) { dumpgr_usage(argc, argv); ERROR_GOTO_0( "in do_dumpgr: parse_dumpgr_opts is unable to parse command"); } /* display data and information as specified in dumpgr_opts */ status = dgr( &dumpgr_opts, curr_arg, argc, argv ); if( status == FAIL ) ERROR_GOTO_0( "in do_dumpgr: dgr failed" ); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free the lists for given indices, ref#s, and names if they had been allocated */ free_num_list(dumpgr_opts.by_index.num_list ); free_num_list(dumpgr_opts.by_ref.num_list ); free_str_list(dumpgr_opts.by_name.str_list, dumpgr_opts.by_name.num_items); return ret_value; } /* end do_dumpgr() */ libhdf4-4.2.10/HDF_ALT/mfhdf/build.bat0000644000000000000000000000007112421456623013757 0ustar nmake /f msoft.mk xdr libsrc nctest fortran ncgen ncdump libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/0000755000000000000000000000000012421456623013460 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/vardata.c0000644000000000000000000003321012421456623015245 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vardata.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include #else #include #endif #include "ncdump.h" #include "dumplib.h" #include "vardata.h" /* * Function from ncdump.c. "Fixes" variable names to remove spaces and other * "illegal" characters. */ extern char *fixstr(char *str, bool fix_str); static void annotate PROTO((struct ncvar *vp,struct fspec *fsp,long cor[], long iel)); #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) /* * Print a row of variable values. Makes sure output lines aren't too long * by judiciously inserting newlines. */ static void pr_vals(vp, len, fmt, more, lastrow, vals) struct ncvar *vp; /* variable */ long len; /* number of values to print */ char *fmt; /* * printf format used for each value. If * nc_type is NC_CHAR and this is NULL, * character arrays will be printed as strings * enclosed in quotes. */ bool more; /* * true if more data will follow, so add * trailing comma */ bool lastrow; /* * true if this is the last row for this * variable, so terminate with ";" instead of * "," */ void *vals; /* pointer to block of values */ { long iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp; char *sp; unsigned char uc; float fill_float; double fill_double; char sout[100]; /* temporary string for each encoded output */ fill_float = FILL_FLOAT; /* static initialization hits ultrix cc bug */ fill_double = FILL_DOUBLE; switch (vp->type) { case NC_BYTE: gp.cp = (char *) vals; for (iel = 0; iel < len-1; iel++) { (void) sprintf(sout, fmt, *gp.cp++); (void) strcat(sout, ", "); lput(sout); } (void) sprintf(sout, fmt, *gp.cp++); lput(sout); break; case NC_CHAR: gp.cp = (char *) vals; if (fmt == 0 || STREQ(fmt,"%s") || STREQ(fmt,"")) { /* as string */ Printf("\""); /* adjust len so trailing nulls don't get printed */ sp = gp.cp + len; while (len > 0 && *--sp == '\0') len--; for (iel = 0; iel < len; iel++) switch (uc = *gp.cp++ & 0377) { case '\b': Printf("\\b"); break; case '\f': Printf("\\f"); break; case '\n': /* generate linebreaks after new-lines */ Printf("\\n\",\n \""); break; case '\r': Printf("\\r"); break; case '\t': Printf("\\t"); break; case '\v': Printf("\\v"); break; case '\\': Printf("\\\\"); break; case '\'': Printf("\\\'"); break; case '\"': Printf("\\\""); break; default: if (isprint(uc)) Printf("%c",uc); else Printf("\\%.3o",uc); break; } Printf("\""); } else { /* use format from C_format attribute */ for (iel = 0; iel < len-1; iel++) { (void) sprintf(sout, fmt, *gp.cp++); (void) strcat(sout, ", "); lput(sout); } (void) sprintf(sout, fmt, *gp.cp++); lput(sout); } break; case NC_SHORT: gp.sp = (short *) vals; for (iel = 0; iel < len-1; iel++) { (void) sprintf(sout, fmt, *gp.sp++); (void) strcat(sout, ", "); lput(sout); } (void) sprintf(sout, fmt, *gp.sp++); lput(sout); break; case NC_LONG: gp.lp = (nclong *) vals; for (iel = 0; iel < len-1; iel++) { (void) sprintf(sout, fmt, *gp.lp++); (void) strcat(sout, ", "); lput(sout); } (void) sprintf(sout, fmt, *gp.lp++); lput(sout); break; case NC_FLOAT: gp.fp = (float *) vals; for (iel = 0; iel < len-1; iel++) { if (*gp.fp >= fill_float) (void) sprintf(sout, "FloatInf, "); else { (void) sprintf(sout, fmt, *gp.fp); (void) strcat(sout, ", "); } lput(sout); gp.fp++; } if (*gp.fp >= fill_float) (void) sprintf(sout, "FloatInf"); else (void) sprintf(sout, fmt, *gp.fp); lput(sout); gp.fp++; break; case NC_DOUBLE: gp.dp = (double *) vals; for (iel = 0; iel < len-1; iel++) { if (*gp.dp >= fill_double) (void) sprintf(sout, "DoubleInf, "); else { (void) sprintf(sout, fmt, *gp.dp); (void) strcat(sout, ", "); } lput(sout); gp.dp++; } if (*gp.dp >= fill_double) (void) sprintf(sout, "DoubleInf"); else (void) sprintf(sout, fmt, *gp.dp); lput(sout); gp.dp++; break; default: error("pr_vals: bad type"); } if (more) { lput(", "); } else { if(lastrow) { lput(" ;"); lput("\n"); } else { lput(",\n"); lput(" "); } } } /* * print last delimiter in each line before annotation (, or ;) */ static void lastdelim (more, lastrow) bool more; bool lastrow; { if (more) { Printf(", "); } else { if(lastrow) { Printf(";"); } else { Printf(","); } } } /* * Annotates a value in data section with var name and indices in comment */ static void annotate(vp, fsp, cor, iel) struct ncvar *vp; /* variable */ struct fspec* fsp; /* formatting specs */ long cor[]; /* corner coordinates */ long iel; /* which element in current row */ { int vrank = vp->ndims; int id; /* print indices according to data_lang */ (void) printf(" // %s(", vp->name); switch (fsp->data_lang) { case LANG_C: /* C variable indices */ for (id = 0; id < vrank-1; id++) Printf("%d,", (int)cor[id]); Printf("%d", (int)(cor[id] + iel)); break; case LANG_F: /* Fortran variable indices */ Printf("%d", (int)(cor[vrank-1] + iel + 1)); for (id = vrank-2; id >=0 ; id--) { Printf(",%d", (int)(1 + cor[id])); } break; } Printf(")\n "); } /* * Print a number of commented variable values, where the comments for each * value identify the variable, and each dimension index. */ static void pr_cvals(vp, len, fmt, more, lastrow, vals, fsp, cor) struct ncvar *vp; /* variable */ long len; /* number of values to print */ char *fmt; /* * printf format used for each value. If * nc_type is NC_CHAR and this is NULL, * character arrays will be printed as strings * enclosed in quotes. */ bool more; /* * true if more data for this row will follow, * so add trailing comma */ bool lastrow; /* * true if this is the last row for this * variable, so terminate with ";" instead of * "," */ void *vals; /* pointer to block of values */ struct fspec* fsp; /* formatting specs */ long cor[]; /* corner coordinates */ { long iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp; char *sp; unsigned char uc; float fill_float; double fill_double; fill_float = FILL_FLOAT; /* static initialization hits ultrix cc bug */ fill_double = FILL_DOUBLE; switch (vp->type) { case NC_BYTE: gp.cp = (char *) vals; for (iel = 0; iel < len-1; iel++) { Printf(fmt, *gp.cp++); Printf(", "); annotate (vp, fsp, cor, iel); } Printf(fmt, *gp.cp++); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); break; case NC_CHAR: gp.cp = (char *) vals; if (fmt == 0 || STREQ(fmt,"%s") || STREQ(fmt,"")) { /* as string */ Printf("\""); /* adjust len so trailing nulls don't get printed */ sp = gp.cp + len; while (len > 0 && *--sp == '\0') len--; for (iel = 0; iel < len; iel++) switch (uc = *gp.cp++ & 0377) { case '\b': Printf("\\b"); break; case '\f': Printf("\\f"); break; case '\n': /* generate linebreaks after new-lines */ Printf("\\n\",\n \""); break; case '\r': Printf("\\r"); break; case '\t': Printf("\\t"); break; case '\v': Printf("\\v"); break; case '\\': Printf("\\\\"); break; case '\'': Printf("\\\'"); break; case '\"': Printf("\\\""); break; default: if (isprint(uc)) Printf("%c",uc); else Printf("\\%.3o",uc); break; } Printf("\""); annotate (vp, fsp, cor, 0); } else { /* use format from C_format attribute */ for (iel = 0; iel < len-1; iel++) { Printf(fmt, *gp.cp++); Printf(", "); annotate (vp, fsp, cor, iel); } Printf(fmt, *gp.cp++); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); } break; case NC_SHORT: gp.sp = (short *) vals; for (iel = 0; iel < len-1; iel++) { Printf(fmt, *gp.sp++); Printf(", "); annotate (vp, fsp, cor, iel); } Printf(fmt, *gp.sp++); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); break; case NC_LONG: gp.lp = (nclong *) vals; for (iel = 0; iel < len-1; iel++) { Printf(fmt, *gp.lp++); Printf(", "); annotate (vp, fsp, cor, iel); } Printf(fmt, *gp.lp++); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); break; case NC_FLOAT: gp.fp = (float *) vals; for (iel = 0; iel < len-1; iel++) { if (*gp.fp >= fill_float) Printf("FloatInf"); else Printf(fmt, *gp.fp); Printf(","); annotate (vp, fsp, cor, iel); gp.fp++; } if (*gp.fp >= fill_float) Printf("FloatInf"); else Printf(fmt, *gp.fp); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); gp.fp++; break; case NC_DOUBLE: gp.dp = (double *) vals; for (iel = 0; iel < len-1; iel++) { if (*gp.dp >= fill_double) Printf("DoubleInf"); else { Printf(fmt, *gp.dp); } Printf(","); annotate (vp, fsp, cor, iel); gp.dp++; } if (*gp.dp >= fill_double) Printf("DoubleInf"); else Printf(fmt, *gp.dp); lastdelim (more, lastrow); annotate (vp, fsp, cor, iel); gp.dp++; break; default: error("pr_vals: bad type"); } } /* * Updates a vector of ints, odometer style. Returns 0 if odometer * overflowed, else 1. */ static int upcorner(dims,ndims,odom,add) long *dims; /* The "odometer" limits for each dimension */ int ndims; /* Number of dimensions */ long* odom; /* The "odometer" vector to be updated */ long* add; /* A vector to "add" to odom on each update */ { int id; int ret = 1; for (id = ndims-1; id > 0; id--) { odom[id] += add[id]; if(odom[id] >= dims[id]) { odom[id-1]++; odom[id] -= dims[id]; } } odom[0] += add[0]; if (odom[0] >= dims[0]) ret = 0; return ret; } int vardata(vp, vdims, ncid, varid, fsp) struct ncvar *vp; /* variable */ long vdims[]; /* variable dimension sizes */ int ncid; /* netcdf id */ int varid; /* variable id */ struct fspec* fsp; /* formatting specs */ { long cor[H4_MAX_VAR_DIMS]; /* corner coordinates */ long edg[H4_MAX_VAR_DIMS]; /* edges of hypercube */ long add[H4_MAX_VAR_DIMS]; /* "odometer" increment to next "row" */ #define VALBUFSIZ 8192 double vals[VALBUFSIZ/sizeof(double)] ; /* aligned buffer */ int gulp = VALBUFSIZ/nctypelen(vp->type); int id; int ir; long nels; long ncols; long nrows; int vrank = vp->ndims; char *fixed_var; /* printf format used to print each value */ const char *fmt = get_fmt(ncid, varid, vp->type); nels = 1; for (id = 0; id < vrank; id++) { cor[id] = 0; edg[id] = 1; nels *= vdims[id]; /* total number of values for variable */ } fixed_var = fixstr(vp->name, fsp->fix_str); if (vrank <= 1) { Printf("\n %s = ", fixed_var); set_indent (strlen(fixed_var) + 4); } else { Printf("\n %s =\n ", fixed_var); set_indent (2); } if (vrank < 1) { ncols = 1; } else { ncols = vdims[vrank-1]; /* size of "row" along last dimension */ edg[vrank-1] = vdims[vrank-1]; for (id = 0; id < vrank; id++) add[id] = 0; if (vrank > 1) add[vrank-2] = 1; } nrows = nels/ncols; /* number of "rows" */ for (ir = 0; ir < nrows; ir++) { /* * rather than just printing a whole row at once (which might exceed * the capacity of MSDOS platforms, for example), we break each row * into smaller chunks, if necessary. */ long corsav=0; long left = ncols; bool lastrow; if (vrank > 0) { corsav = cor[vrank-1]; if (fsp->brief_data_cmnts != false && vrank > 1 && left > 0) { /* print brief comment with indices range */ Printf("// %s(",fixed_var); switch (fsp->data_lang) { case LANG_C: /* print brief comment with C variable indices */ for (id = 0; id < vrank-1; id++) Printf("%d,", (int)cor[id]); if (vdims[vrank-1] == 1) Printf("0"); else Printf(" 0-%d", (int)vdims[vrank-1]-1); break; case LANG_F: /* print brief comment with Fortran variable indices */ if (vdims[vrank-1] == 1) Printf("1"); else Printf("1-%d ",(int)vdims[vrank-1]); for (id = vrank-2; id >=0 ; id--) { Printf(",%d", (int)(1 + cor[id])); } break; } Printf(")\n "); set_indent(4); } } lastrow = (ir == nrows-1) ? true:false; while (left > 0) { long toget = left < gulp ? left : gulp; if (vrank > 0) edg[vrank-1] = toget; (void) ncvarget (ncid, varid, cor, edg, (void *) vals); if (fsp->full_data_cmnts) pr_cvals(vp, toget, fmt, left > toget, lastrow, (void *) vals, fsp, cor); else pr_vals(vp, toget, fmt, left > toget, lastrow, (void *) vals); left -= toget; if (vrank > 0) cor[vrank-1] += toget; } if (vrank > 0) cor[vrank-1] = corsav; if (ir < nrows-1) if (!upcorner(vdims,vp->ndims,cor,add)) error("vardata: odometer overflowed!"); set_indent(2); } free(fixed_var); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/dumplib.c0000644000000000000000000001036112421456623015261 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/README file for copying and redistribution conditions. * $Id: dumplib.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include #ifndef NO_STDARG #include #else #include #endif #include"h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "dumplib.h" /* * Print error message to stderr, don't exit */ #ifndef NO_STDARG void error(const char *fmt, ...) #else /*VARARGS1*/ void error(fmt, va_alist) const char *fmt ; va_dcl #endif { va_list args ; (void) fprintf(stderr,"*** %s: ", progname); #ifndef NO_STDARG va_start(args, fmt) ; #else va_start(args) ; #endif (void) vfprintf(stderr,fmt,args) ; va_end(args) ; (void) fprintf(stderr, "\n") ; (void) fflush(stderr); /* to ensure log files are current */ } #define LINEPIND " " /* indent of continued lines */ static int linep; static int max_line_len; void set_indent(in) int in; { linep = in; } void set_max_len(len) int len; { max_line_len = len-2; } void lput(cp) const char *cp; { int nn = strlen(cp); if (nn+linep > max_line_len && nn > 2) { (void) fputs("\n", stdout); (void) fputs(LINEPIND, stdout); linep = strlen(LINEPIND); } (void) fputs(cp,stdout); linep += nn; } static char *formats[] = { "%d", /* bytes, shorts */ "%s", /* char arrays as strings */ "%ld", /* longs */ "%.7g ", /* floats */ "%.15g" /* doubles */ }; /* In case different formats specified with -d option, set them here. */ void set_formats(flt, dbl) char *flt; char *dbl; { strcpy(formats[3], flt); strcpy(formats[4], dbl); } static char * has_c_format_att(ncid, varid) int ncid; /* netcdf id */ int varid; /* variable id */ { nc_type cfmt_type; int cfmt_len; int savopts; #define C_FMT_NAME "C_format" /* name of C format attribute */ #define MAX_CFMT_LEN 100 /* max length of C format attribute */ static char cfmt[MAX_CFMT_LEN]; /* * turn off error handling, we expect ncattinq to fail if there is no * C_format attribute */ savopts = ncopts; ncopts = 0; if (ncattinq(ncid, varid, "C_format", &cfmt_type, &cfmt_len) != -1) { ncopts = savopts; /* restore error handling */ if (cfmt_type == NC_CHAR && cfmt_len > 0 && cfmt_len < MAX_CFMT_LEN) { if (ncattget(ncid, varid, "C_format", (void *)cfmt) != -1) return &cfmt[0]; } } ncopts = savopts; /* restore error handling */ return 0; } /* * Determine print format to use for each value for this variable. Use value * of attribute C_format if it exists, otherwise a sensible default. */ const char * get_fmt(ncid, varid, type) int ncid; /* netcdf id */ int varid; /* variable id */ nc_type type; /* netCDF data type */ { char *c_format_att = has_c_format_att(ncid, varid); /* If C_format attribute exists, return it */ if (c_format_att) return c_format_att; /* Otherwise return sensible default. */ switch (type) { case NC_BYTE: return formats[0]; case NC_CHAR: return formats[1]; case NC_SHORT: return formats[0]; case NC_LONG: return formats[2]; case NC_FLOAT: return formats[3]; case NC_DOUBLE: return formats[4]; default: error("pr_vals: bad type"); return NULL; } } static vnode* newvnode() { vnode *newvp = (vnode*) malloc(sizeof(vnode)); if (!newvp) { error("out of memory!"); exit(EXIT_FAILURE); } return newvp; } vnode* newvlist() { vnode *vp = newvnode(); vp -> next = 0; vp -> id = -1; /* bad id */ return vp; } void varadd(vlist, varid) vnode* vlist; int varid; { vnode *newvp = newvnode(); newvp -> next = vlist -> next; newvp -> id = varid; vlist -> next = newvp; } int varmember(vlist, varid) vnode* vlist; int varid; { vnode *vp = vlist -> next; for (; vp ; vp = vp->next) if (vp->id == varid) return 1; return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/CMakeLists.txt0000644000000000000000000000363012421456623016222 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_NCDUMP) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (ncdump_SRCS ${HDF4_MFHDF_NCDUMP_SOURCE_DIR}/dumplib.c ${HDF4_MFHDF_NCDUMP_SOURCE_DIR}/ncdump.c ${HDF4_MFHDF_NCDUMP_SOURCE_DIR}/vardata.c ${HDF4_SOURCE_DIR}/mfhdf/util/getopt.c ) ADD_EXECUTABLE (ncdump ${ncdump_SRCS}) TARGET_C_PROPERTIES (ncdump " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ncdump ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET} ) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ncdump ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (ncdump ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (ncdump ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS ncdump RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/depend0000644000000000000000000000147112421456623014645 0ustar dumplib.o: dumplib.c dumplib.o: ../../mfhdf/libsrc/netcdf.h dumplib.o: ../../hdf/src//hlimits.h dumplib.o: dumplib.h ncdump.o: ncdump.c ncdump.o: ../../mfhdf/libsrc/local_nc.h ncdump.o: ../../mfhdf/libsrc/netcdf.h ncdump.o: ../../hdf/src//hlimits.h ncdump.o: ../../hdf/src//hdf.h ncdump.o: ../../hdf/src//hdfi.h ncdump.o: ../../hdf/src//hntdefs.h ncdump.o: ../../hdf/src//htags.h ncdump.o: ../../hdf/src//hbitio.h ncdump.o: ../../hdf/src//hcomp.h ncdump.o: ../../hdf/src//herr.h ncdump.o: ../../hdf/src//hproto.h ncdump.o: ../../hdf/src//vg.h ncdump.o: ../../hdf/src//hfile.h ncdump.o: ../../hdf/src//tbbt.h ncdump.o: ncdump.h ncdump.o: dumplib.h ncdump.o: vardata.h vardata.o: vardata.c vardata.o: ../../mfhdf/libsrc/netcdf.h vardata.o: ../../hdf/src//hlimits.h vardata.o: ncdump.h vardata.o: dumplib.h vardata.o: vardata.h libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/testncdump.sh.in0000755000000000000000000000511412421456623016613 0ustar #! /bin/sh # Tests for the ncdump tool srcdir=@srcdir@ currentdir=`pwd` # Definitions of commands and variables NCDUMP='ncdump' # The tool name NCDUMP_BIN="${TESTS_ENVIRONMENT} "`pwd`/$NCDUMP # The path of the tool binary RM='rm -f' CMP='cmp -s' DIFF='diff -c' CP='cp' nerrors=0 verbose=yes $CP $srcdir/test0.cdl ./nctest0.cdl # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All ncdump tests passed" else MESG 0 "ncdump tests failed: $nerrors" fi exit $nerrors } # Print a line-line message left justified in a field of 70 characters # beginning with the word "Testing". # TESTING() { SPACES=" " echo "Testing $* $SPACES" | cut -c1-70 | tr -d '\012' } # Run a test and print PASS or *FAIL*. If a test fails then increment # the `nerrors' global variable # RUN() { # Run test. ${TESTS_ENVIRONMENT} ../ncgen/ncgen -o test0.nc -n nctest0.cdl RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi ${TESTS_ENVIRONMENT} $NCDUMP_BIN test0.nc > test1.cdl RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi ${TESTS_ENVIRONMENT} ../ncgen/ncgen -o test1.nc -n test1.cdl RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi ${TESTS_ENVIRONMENT} $NCDUMP_BIN -n test0 test1.nc > test2.cdl RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi $CMP test1.cdl test2.cdl cmpval=$? if [ "$cmpval" = 0 ] ; then echo " PASSED" else echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi $RM -f test1.nc test1.cdl test2.cdl } ############################################################################## ### T H E T E S T S ### ############################################################################## # Print a beginning banner MESG 0 "Running ncdump tests" # compare output RUN # End of test, return exit code FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/test0.cdl0000644000000000000000000000160412421456623015204 0ustar netcdf test0 { dimensions: i = 2; j = 3; k = unlimited; l = 3 ; variables: char broiled(i,j,l); broiled:acc = 'a'; broiled:act = "text string\n\t123"; broiled:acb = '\n'; broiled:acs = -40s ; broiled:acl = 17000 ; broiled:acf = -2.0f, 1.f, 0.0f ; broiled:acd = -1.0, 2.7182818284590455; byte the_bullet(i,j); short order(i,j); long shot(i,j); float a_loan(i,j); double entendre(i,j); char cscalar; double dscalar; char cnodata(k); byte bnodata(i); short snodata(i); long lnodata(i); float fnodata(i); double dnodata(k,i,j); int i(i); float j(j); byte l(l); :glob = "Global attribute" ; data: broiled = "indistinguishable" ; the_bullet = -127,0,127,128,255; order = 1s, 2s, 3s, 4s, 5s, 6s; shot = 2, 3, 4, 5, 6, 7 ; a_loan = 3.f, 4.f, 5.f, 6.f, 7.f, 1.0e12f ; entendre = '\4', 5s, 6, 7.0f, 8.0, 1.0e30 ; i = 10, 20; j = 2, 4, 6; l = 10, 9, 8; } libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/Makefile.in0000644000000000000000000007356412421456623015544 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testncdump.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = ncdump$(EXEEXT) TESTS = $(TEST_SCRIPT) subdir = mfhdf/ncdump ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testncdump.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)" PROGRAMS = $(bin_PROGRAMS) am_ncdump_OBJECTS = dumplib.$(OBJEXT) ncdump.$(OBJEXT) \ vardata.$(OBJEXT) ncdump_OBJECTS = $(am_ncdump_OBJECTS) ncdump_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(ncdump_LDFLAGS) \ $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(ncdump_SOURCES) DIST_SOURCES = $(ncdump_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac 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; }; \ } man1dir = $(mandir)/man1 NROFF = nroff MANS = $(man1_MANS) ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog test0.nc nctest0.cdl INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ncdump_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ############################################################################# TEST_SCRIPT = testncdump.sh check_SCRIPTS = testncdump.sh man1_MANS = ncdump.1 ncdump_SOURCES = dumplib.c ncdump.c vardata.c ncdump_LDADD = $(LIBMFHDF) $(LIBHDF) ncdump_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/ncdump/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/ncdump/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testncdump.sh: $(top_builddir)/config.status $(srcdir)/testncdump.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 ncdump$(EXEEXT): $(ncdump_OBJECTS) $(ncdump_DEPENDENCIES) $(EXTRA_ncdump_DEPENDENCIES) @rm -f ncdump$(EXEEXT) $(ncdump_LINK) $(ncdump_OBJECTS) $(ncdump_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dumplib.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ncdump.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vardata.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-man1: $(man1_MANS) @$(NORMAL_INSTALL) @list1='$(man1_MANS)'; \ list2=''; \ test -n "$(man1dir)" \ && test -n "`echo $$list1$$list2`" \ || exit 0; \ echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \ $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \ { for i in $$list1; do echo "$$i"; done; \ if test -n "$$list2"; then \ for i in $$list2; do echo "$$i"; done \ | sed -n '/\.1[a-z]*$$/p'; \ fi; \ } | while read p; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; echo "$$p"; \ done | \ sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \ sed 'N;N;s,\n, ,g' | { \ list=; while read file base inst; do \ if test "$$base" = "$$inst"; then list="$$list $$file"; else \ echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \ fi; \ done; \ for i in $$list; do echo "$$i"; done | $(am__base_list) | \ while read files; do \ test -z "$$files" || { \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \ done; } uninstall-man1: @$(NORMAL_UNINSTALL) @list='$(man1_MANS)'; test -n "$(man1dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @list='$(MANS)'; if test -n "$$list"; then \ list=`for p in $$list; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; else :; fi; done`; \ if test -n "$$list" && \ grep 'ab help2man is required to generate this page' $$list >/dev/null; then \ echo "error: found man pages containing the 'missing help2man' replacement text:" >&2; \ grep -l 'ab help2man is required to generate this page' $$list | sed 's/^/ /' >&2; \ echo " to fix them, install help2man, remove and regenerate the man pages;" >&2; \ echo " typically 'make maintainer-clean' will remove them" >&2; \ exit 1; \ else :; fi; \ else :; fi @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_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) $(MANS) all-local installdirs: for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-man install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binPROGRAMS install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-man1 install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS uninstall-man uninstall-man: uninstall-man1 .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-generic clean-libtool cscopelist \ ctags distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-binPROGRAMS \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-man1 \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ mostlyclean-local pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-binPROGRAMS uninstall-man \ uninstall-man1 # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/Makefile.am0000644000000000000000000000267412421456623015525 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add ncdump specific linker flags here ncdump_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Programs to build ## ############################################################################# TEST_SCRIPT = testncdump.sh check_SCRIPTS = testncdump.sh bin_PROGRAMS = ncdump man1_MANS = ncdump.1 ## Information for building the "ncdump" program ncdump_SOURCES = dumplib.c ncdump.c vardata.c ncdump_LDADD = $(LIBMFHDF) $(LIBHDF) ncdump_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += test0.nc nctest0.cdl DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/vardata.h0000644000000000000000000000154712421456623015262 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vardata.h 2364 1996-03-26 22:34:11Z georgev $ *********************************************************************/ extern char *progname; /* for error messages */ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif /* Output the data for a single variable, in CDL syntax. */ extern int vardata PROTO(( struct ncvar*, /* variable */ long [], /* variable dimension sizes */ int, /* netcdf id */ int, /* variable id */ struct fspec* /* formatting specs */ )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/ncdump.10000644000000000000000000001745112421456623015040 0ustar .\" $Id: ncdump.1 2364 1996-03-26 22:34:11Z georgev $ .TH NCDUMP 1 "$Date: 1996-03-26 16:34:11 -0600 (Tue, 26 Mar 1996) $" "Printed: \n(yr-\n(mo-\n(dy" "UNIDATA UTILITIES" .SH NAME ncdump \- Convert netCDF files to ASCII form (CDL) .SH SYNOPSIS .ft B .HP ncdump .nh \%[-c] \%[-h] \%[-v \fIvar1,...\fP] \%[-b \fIlang\fP] \%[-f \fIlang\fP] \%[-l \fIlen\fP] \%[-n \fIname\fP] \%[-d \fIf_digits[,d_digits]\fP] \%\fIfile\fP .hy .ft .SH DESCRIPTION \fBncdump\fP generates an ASCII representation of a specified netCDF file on standard output. The ASCII representation is in a form called CDL (``network Common Data form Language'') that can be viewed, edited, or serve as input to \fBncgen\fP. \fBncgen\fP is a companion program that can generate a binary netCDF file from a CDL file. Hence \fBncgen\fP and \fBncdump\fP can be used as inverses to transform the data representation between binary and ASCII representations. See \fBncgen\fP for a description of CDL and netCDF representations. .LP \fBncdump\fP defines a default format used for each type of netCDF data, but this can be changed if a `C_format' attribute is defined for a netCDF variable. In this case, \fBncdump\fP will use the `C_format' attribute to format each value. For example, if floating-point data for the netCDF variable `Z' is known to be accurate to only three significant digits, it would be appropriate to use the variable attribute .RS .HP Z:C_format = "%.3g" .RE .LP \fBncdump\fP may also be used as a simple browser for netCDF data files, to display the dimension names and sizes; variable names, types, and shapes; attribute names and values; and optionally, the values of data for all variables or selected variables in a netCDF file. .SH OPTIONS .IP "\fB-c\fP" Show the values of \fIcoordinate\fP variables (variables that are also dimensions) as well as the declarations of all dimensions, variables, and attribute values. Data values of non-coordinate variables are not included in the output. This is the most suitable option to use for a brief look at the structure and contents of a netCDF file. .IP "\fB-h\fP" Show only the \fIheader\fP information in the output, that is the declarations of dimensions, variables, and attributes but no data values for any variables. The output is identical to using the \fB-c\fP option except that the values of coordinate variables are not included. (At most one of \fB-c\fP or \fB-h\fP options may be present.) .IP "\fB-v\fP \fIvar1,...,varn\fP" The output will include data values for the specified variables, in addition to the declarations of all dimensions, variables, and attributes. One or more variables must be specified by name in the comma-delimited list following this option. The list must be a single argument to the command, hence cannot contain blanks or other white space characters. The named variables must be valid netCDF variables in the input-file. The default, without this option and in the absence of the \fB-c\fP or \fB-h\fP options, is to include data values for \fIall\fP variables in the output. .IP "\fB-b\fP \fIlang\fP" A brief annotation in the form of a CDL comment (text beginning with the characters ``//'') will be included in the data section of the output for each `row' of data, to help identify data values for multidimensional variables. If \fIlang\fP begins with `C' or `c', then C language conventions will be used (zero-based indices, last dimension varying fastest). If \fIlang\fP begins with `F' or `f', then Fortran language conventions will be used (one-based indices, first dimension varying fastest). In either case, the data will be presented in the same order; only the annotations will differ. This option is useful for browsing through large volumes of multidimensional data. .IP "\fB-f\fP \fIlang\fP" Full annotations in the form of trailing CDL comments (text beginning with the characters ``//'') for every data value (except individual characters in character arrays) will be included in the data section. If \fIlang\fP begins with `C' or `c', then C language conventions will be used (zero-based indices, last dimension varying fastest). If \fIlang\fP begins with `F' or `f', then Fortran language conventions will be used (one-based indices, first dimension varying fastest). In either case, the data will be presented in the same order; only the annotations will differ. This option may be useful for piping data into other filters, since each data value appears on a separate line, fully identified. .IP "\fB-l\fP \fIlen\fP" Changes the default maximum line length (80) used in formatting lists of non-character data values. .IP "\fB-n\fP \fIname\fP" CDL requires a name for a netCDF data set, for use by \fBncgen -b\fP in generating a default netCDF file name. By default, \fIncdump\fP constructs this name from the last component of the pathname of the input netCDF file by stripping off any extension it has. Use the \fB-n\fP option to specify a different name. Although the output file name used by \fBncgen -b\fP can be specified, it may be wise to have \fIncdump\fP change the default name to avoid inadvertantly overwriting a valuable netCDF file when using \fBncdump\fP, editing the resulting CDL file, and using \fBncgen -b\fP to generate a new netCDF file from the edited CDL file. .IP "\fB-d\fP \fIfloat_digits[,double_digits]\fP" Specifies default number of significant digits to use in displaying floating-point or double precision data values for variables that don't have a `C_format' attribute. Floating-point data will be displayed with \fIfloat_digits\fP significant digits. If \fIdouble_digits\fP is also specified, double-precision values will be displayed with that many significant digits. If a variable has a `C_format' attribute, that overrides any specified floating-point default. In the absence of any \fB-d\fP specifications, floating-point and double-precision data are displayed with 7 and 15 significant digits respectively. CDL files can be made smaller if less precision is required. If both floating-point and double-presision precisions are specified, the two values must appear separated by a comma (no blanks) as a single argument to the command. If you really want every last bit of precision from the netCDF file represented in the CDL file for all possible floating-point values, you will have to specify this with \fB-d 9,17\fP (according to Theorem 15 of the paper listed under REFERENCES). .SH EXAMPLES .LP Look at the structure of the data in the netCDF file `\fBfoo.nc\fP': .RS .HP ncdump -c foo.nc .RE .LP Produce an annotated CDL version of the structure and data in the netCDF file `\fBfoo.nc\fP', using C-style indexing for the annotations: .RS .HP ncdump -b c foo.nc > foo.cdl .RE .LP Output data for only the variables `uwind' and `vwind' from the netCDF file `\fBfoo.nc\fP', and show the floating-point data with only three significant digits of precision: .RS .HP ncdump -v uwind,vwind -d 3 foo.nc .RE .LP Produce a fully-annotated (one data value per line) listing of the data for the variable `omega', using Fortran conventions for indices, and changing the netCDF dataset name in the resulting CDL file to `omega': .RS .HP ncdump -v omega -f fortran -n omega foo.nc > Z.cdl .RE .SH REFERENCES \fIWhat Every Computer Scientist should Know About Floating-Point Arithmetic\fP, D. Goldberg, \fBACM Computing Surveys, Vol. 23, No. 1\fP, March 1991, pp. 5-48. .SH "SEE ALSO" .LP .BR ncgen (1), .BR netcdf (3) .SH BUGS .LP Character arrays that contain a null-byte are treated like C strings, so no characters after the null byte appear in the output. Multidimensional character string arrays are not handled well, since the CDL syntax for breaking a long character string into several shorter lines is weak. There should be a way to specify that the data should be displayed in `record' order, that is with the all the values for `record' variables together that have the same value of the record dimension. libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/CMakeTests.cmake0000644000000000000000000000550412421456623016471 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME NCDUMP-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove test0.nc test1.nc test1.cdl test2.cdl ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (NCDUMP-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (NCDUMP-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "NCDUMP-clearall-objects") #-- Copy all the data files from the test directory into the source directory #MESSAGE (STATUS " Copying ${HDF4_MFHDF_NCDUMP_SOURCE_DIR}/test0.cdl to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET ncdump POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_NCDUMP_SOURCE_DIR}/test0.cdl ${PROJECT_BINARY_DIR}/test0.cdl ) IF (NCGEN_UTILITY) ADD_TEST ( NAME NCDUMP-test0.nc COMMAND $ -o test0.nc -n test0.cdl ) SET_TESTS_PROPERTIES (NCDUMP-test0.nc PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCDUMP-test0.nc") ADD_TEST ( NAME NCDUMP-test1.cdl COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=test0.nc" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test1.cdl" -D "TEST_EXPECT=0" -D "TEST_SKIP_COMPARE=TRUE" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCDUMP-test1.cdl PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCDUMP-test1.cdl") ADD_TEST ( NAME NCDUMP-test1.nc COMMAND $ -o test1.nc -n test1.cdl ) SET_TESTS_PROPERTIES (NCDUMP-test1.nc PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCDUMP-test1.nc") ADD_TEST ( NAME NCDUMP-test2.cdl COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-n;test0;test1.nc" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=test2.cdl" -D "TEST_EXPECT=0" -D "TEST_REFERENCE=test1.cdl" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (NCDUMP-test2.cdl PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "NCDUMP-test2.cdl") ENDIF (NCGEN_UTILITY) libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/dumplib.h0000644000000000000000000000404212421456623015265 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: dumplib.h 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ extern char *progname; /* for error messages */ #ifndef EXIT_FAILURE #define EXIT_SUCCESS 0 #define EXIT_FAILURE 1 #endif #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif /* Print error message to stderr, don't exit */ #ifndef MIPSEL /* punt */ #ifndef NO_STDARG extern void error(const char *fmt, ...); #else extern void error(); #endif #endif /* extern void error PROTO(( char *fmt, ... )); */ /* set position in line before lput() calls */ extern void set_indent PROTO(( int indent )); /* set maximum line length */ extern void set_max_len PROTO(( int len )); /* splits lines to keep them short */ extern void lput PROTO(( const char *string )); /* In case different formats specified with -d option, set them here. */ extern void set_formats PROTO(( char *flt_fmt, char *dbl_fmt )); /* Determine print format to use for each value for this variable. */ const char * get_fmt PROTO(( int ncid, int varid, nc_type type )); /* structure for list of variables specified with -v option */ struct vnode { struct vnode* next; int id; }; typedef struct vnode vnode; /* Get new variable list */ extern vnode* newvlist PROTO(( void )); /* Add a variable id to variable list */ extern void varadd PROTO(( vnode* vlist, int varid )); /* Test if a variable id is in variable list */ extern int varmember PROTO(( vnode* vlist, int varid )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/ncdump.h0000644000000000000000000000454212421456623015124 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: ncdump.h 4928 2007-09-06 21:48:49Z epourmal $ *********************************************************************/ #define Printf (void) printf typedef enum {false=0, true=1} bool; struct ncdim { /* dimension */ char name[H4_MAX_NC_NAME]; long size; }; struct ncvar { /* variable */ char name[H4_MAX_NC_NAME]; nc_type type; int ndims; int dims[H4_MAX_VAR_DIMS]; int natts; }; struct ncatt { /* attribute */ int var; char name[H4_MAX_NC_NAME]; nc_type type; int len; void *val; }; typedef enum {LANG_NONE, LANG_C, LANG_F} Nclang; struct fspec { /* specification for how to format dump */ char *name; /* * name specified with -n or derived from file * name */ bool header_only; /* * if true, don't print any variable data */ bool coord_vals; /* * if true, print header and coordinate * dimension values (values of variables that * are also dimensions), but no other variable * data */ bool brief_data_cmnts; /* * if true, put // comments in data section * identifying variable and indices, useful for * navigating through large multi-dimensional * data lists. */ bool full_data_cmnts; /* * if true, put // comments in data section * identifying every value, useful for * navigating through large multi-dimensional * data lists. */ bool fix_str; /* * if true, replace nonalpha-numeric * characters in a name with underscores */ Nclang data_lang; /* * Specifies index conventions used in data * comments, either LANG_C (C, 0-based, column * major) or LANG_F (Fortran, 1-based, row * major) */ int nlvars; /* * Number of variables specified with -v option * on command line */ char** lvars; /* * list of variable names specified with -v * option on command line */ }; #ifdef OLD_WAY extern int getopt PROTO(( int argc, char **argv, char *opts )); #endif /* HP9000 */ libhdf4-4.2.10/HDF_ALT/mfhdf/ncdump/ncdump.c0000644000000000000000000004265412421456623015125 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/README file for copying and redistribution conditions. * $Id: ncdump.c 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #include #include #include #include #include #include "local_nc.h" #include "ncdump.h" #include "dumplib.h" #include "vardata.h" static const char * type_name(nc_type type); char *progname; struct ncdim dims[H4_MAX_NC_DIMS]; /* dimensions */ long vdims[H4_MAX_NC_DIMS]; /* dimension sizes for a single variable */ static void usage() { #define USAGE "\ [-V] Display version of the HDF4 library and exit\n\ [-c] Coordinate variable data and header information\n\ [-h] Header information only, no data\n\ [-u] Replace nonalpha-numerics in names with underscores\n\ [-v var1[,...]] Data for variable(s) ,... only\n\ [-b [c|f]] Brief annotations for C or Fortran indices in data\n\ [-f [c|f]] Full annotations for C or Fortran indices in data\n\ [-l len] Line length maximum in data section (default 80)\n\ [-n name] Name for netCDF (default derived from file name)\n\ [-d n[,n]] Approximate floating-point values with less precision\n\ file File name of input netCDF file\n" (void) fprintf(stderr, "%s [-V|-c|-h|-u] [-v ...] [[-b|-f] [c|f]] [-l len] [-n name] [-d n[,n]] file\n%s", progname, USAGE); exit(EXIT_FAILURE); } /* * convert pathname of netcdf file into name for cdl unit, by taking * last component of path and stripping off any extension. */ static char * name_path(path) char *path; { char *cp, *new; #ifdef MSDOS #define FILE_DELIMITER '\\' #endif #ifndef FILE_DELIMITER /* default to unix */ #define FILE_DELIMITER '/' #endif cp = strrchr(path, FILE_DELIMITER); if (cp == 0) /* no delimiter */ cp = path; else /* skip delimeter */ cp++; new = (char *) malloc((unsigned) (strlen(cp)+1)); if (new == 0) { error("out of memory!"); exit(EXIT_FAILURE); } (void) strcpy(new, cp); /* copy last component of path */ if ((cp = strrchr(new, '.')) != NULL) *cp = '\0'; /* strip off any extension */ return new; } static const char * type_name(type) nc_type type; { switch (type) { case NC_BYTE: return "byte"; case NC_CHAR: return "char"; case NC_SHORT: return "short"; case NC_LONG: return "long"; case NC_FLOAT: return "float"; case NC_DOUBLE: return "double"; default: error("type_name: bad type %d", type); return "bogus"; } } /* * Remove trailing zeros (after decimal point) but not trailing decimal * point from ss, a string representation of a floating-point number that * might include an exponent part. */ static void tztrim(ss) char *ss; /* returned string representing dd */ { char *cp, *ep; cp = ss; if (*cp == '-') cp++; while(isdigit((int)*cp) || *cp == '.') cp++; if (*--cp == '.') return; ep = cp+1; while (*cp == '0') cp--; cp++; if (cp == ep) return; while (*ep) *cp++ = *ep++; *cp = '\0'; return; } /* * Print list of attribute values. Attribute values must be printed with * explicit type tags, because their types are not declared. */ static void pr_att_vals(type, len, vals) nc_type type; int len; void *vals; { int iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp; char *sp; unsigned char uc; char gps[30]; /* for ascii of a float or double precision */ char *f_fmt = "%#.8g"; char *d_fmt = "%#.16g"; switch (type) { case NC_BYTE: gp.cp = (char *) vals; for (iel = 0; iel < len; iel++) if (isprint(uc = *gp.cp++ & 0377)) Printf ("'%c'%s", uc, iel 0) len--; for (iel = 0; iel < len; iel++) switch (uc = *gp.cp++ & 0377) { case '\b': Printf ("\\b"); break; case '\f': Printf ("\\f"); break; case '\n': /* generate linebreaks after new-lines */ Printf ("\\n\",\n \""); break; case '\r': Printf ("\\r"); break; case '\t': Printf ("\\t"); break; case '\v': Printf ("\\v"); break; case '\\': Printf ("\\\\"); break; case '\'': Printf ("\\'"); break; case '\"': Printf ("\\\""); break; default: Printf ("%c",uc); break; } Printf ("\""); break; case NC_SHORT: gp.sp = (short *) vals; for (iel = 0; iel < len; iel++) Printf ("%ds%s",*gp.sp++,ielnlvars; iv++) { varid = ncvarid(ncid, specp->lvars[iv]); varadd(vlist, varid); } /* if name not specified, derive it from path */ if (specp->name == NULL) specp->name = name_path (path); Printf ("netcdf %s {\n", specp->name); /* * get number of dimensions, number of variables, number of global * atts, and dimension id of unlimited dimension, if any */ (void)ncinquire(ncid, &ndims, &nvars, &ngatts, &xdimid); /* get dimension info */ if (ndims > 0) { Printf ("dimensions:\n"); for (dimid = 0; dimid < ndims; dimid++) { char *fixed_str; (void)ncdiminq(ncid, dimid, dims[dimid].name, &dims[dimid].size); fixed_str = fixstr(dims[dimid].name, specp->fix_str); if (!fixed_str && dims[dimid].name) { /* strdup(3) failed */ (void) ncclose(ncid); return; } if (dimid == xdimid) Printf ("\t%s = %s ; // (%d currently)\n", fixed_str, "UNLIMITED", (int)dims[dimid].size); else Printf ("\t%s = %ld ;\n", fixed_str, dims[dimid].size); free(fixed_str); } } Printf ("\nvariables:\n"); /* get variable info, with variable attributes */ for (varid = 0; varid < nvars; varid++) { char *fixed_var; (void) ncvarinq(ncid, varid, var.name, &var.type, &var.ndims, var.dims, &var.natts); fixed_var = fixstr(var.name, specp->fix_str); if (!fixed_var && var.name) { /* strdup(3) failed */ (void) ncclose(ncid); return; } Printf ("\t%s %s", type_name(var.type), fixed_var); if (var.ndims > 0) Printf ("("); for (id = 0; id < var.ndims; id++) { char *fixed_dim = fixstr(dims[var.dims[id]].name, specp->fix_str); if (!fixed_dim && dims[var.dims[id]].name) { /* strdup(3) failed */ (void) ncclose(ncid); free(fixed_var); return; } Printf ("%s%s", fixed_dim, id < var.ndims - 1 ? ", " : ")"); free(fixed_dim); } Printf (" ;\n"); /* get variable attributes */ for (ia = 0; ia < var.natts; ia++) { char *fixed_att; (void) ncattname(ncid, varid, ia, att.name); fixed_att = fixstr(att.name, specp->fix_str); if (!fixed_att) { (void) ncclose(ncid); free(fixed_var); return; } Printf ("\t\t%s:%s = ", fixed_var, fixed_att); (void) ncattinq(ncid, varid, att.name, &att.type, &att.len); att.val = (void *) malloc((unsigned)att.len * nctypelen(att.type)); if (!att.val) { error("Out of memory!"); (void) ncclose(ncid); free(fixed_att); free(fixed_var); return; } (void) ncattget(ncid, varid, att.name, att.val); pr_att_vals(att.type, att.len, att.val); Printf (" ;\n"); free(att.val); free(fixed_att); } free(fixed_var); } /* get global attributes */ if (ngatts > 0) Printf ("\n// global attributes:\n"); for (ia = 0; ia < ngatts; ia++) { char *fixed_att; (void) ncattname(ncid, NC_GLOBAL, ia, att.name); fixed_att = fixstr(att.name, specp->fix_str); if (!fixed_att) { (void) ncclose(ncid); return; } Printf ("\t\t:%s = ", fixed_att); (void) ncattinq(ncid, NC_GLOBAL, att.name, &att.type, &att.len); att.val = malloc((unsigned)(att.len * nctypelen(att.type))); if (!att.val) { error("Out of memory!"); (void) ncclose(ncid); free(fixed_att); return; } (void) ncattget(ncid, NC_GLOBAL, att.name, att.val); pr_att_vals(att.type, att.len, att.val); Printf (" ;\n"); free(att.val); free(fixed_att); } if (! specp->header_only) { if (nvars > 0) Printf ("\ndata:\n"); /* output variable data */ for (varid = 0; varid < nvars; varid++) { /* if var list specified, test for membership */ if (specp->nlvars > 0 && ! varmember(vlist, varid)) continue; (void) ncvarinq(ncid, varid, var.name, &var.type, &var.ndims, var.dims, &var.natts); if (specp->coord_vals) { /* Find out if this is a coordinate variable */ is_coord = 0; for (dimid = 0; dimid < ndims; dimid++) { if (strcmp(dims[dimid].name, var.name) == 0 && var.ndims == 1) { is_coord = 1; break; } } if (! is_coord) /* don't get data for non-coordinate vars */ continue; } /* * Only get data for variable if it is not a record variable, * or if it is a record variable and at least one record has * been written. */ #ifdef HDF /* skip the dimension vars which have dim strings only. */ { NC *handle ; NC_var *vp; #ifdef OLD_WAY NC_var *NC_hlookupvar() ; #endif /* OLD_WAY */ isempty = 0; handle = NC_check_id(ncid); if (handle->file_type == HDF_FILE) { vp = NC_hlookupvar(handle, varid) ; /* This is set up to take care of * cases where an array has been * defined but no data */ /* has yet been added. */ if ((vp->data_tag == DFTAG_SDS || vp->data_tag == DFTAG_SD) && (vp->data_ref == 0)) isempty = 1; } } #endif /* HDF */ if (isempty) continue; if (var.ndims == 0 || var.dims[0] != xdimid || dims[xdimid].size != 0) { /* Collect variable's dim sizes */ for (id = 0; id < var.ndims; id++) vdims[id] = dims[var.dims[id]].size; if (vardata(&var, vdims, ncid, varid, specp) == -1) { error("can't output data for variable %s", var.name); (void) ncclose(ncid); return; } } } } Printf ("}\n"); (void) ncclose(ncid); } static void make_lvars(optarg, fspecp) char *optarg; struct fspec* fspecp; { char *cp = optarg; int nvars = 1; char ** cpp; /* compute number of variable names in comma-delimited list */ fspecp->nlvars = 1; while (*cp++) if (*cp == ',') nvars++; fspecp->lvars = (char **) malloc(nvars * sizeof(char*)); if (!fspecp->lvars) { error("out of memory"); exit(EXIT_FAILURE); } cpp = fspecp->lvars; /* copy variable names into list */ for (cp = strtok(optarg, ","); cp != NULL; cp = strtok((char *) NULL, ",")) { *cpp = (char *) malloc(strlen(cp) + 1); if (!*cpp) { error("out of memory"); exit(EXIT_FAILURE); } strcpy(*cpp, cp); cpp++; } fspecp->nlvars = nvars; } /* * Extract the significant-digits specifiers from the -d argument on the * command-line and update the default data formats appropriately. */ static void set_sigdigs(optarg) char *optarg; { char *ptr = optarg; char *ptr2 = 0; long flt_digits = 7; /* default floating-point digits */ long dbl_digits = 15; /* default double-precision digits */ char flt_fmt[6]; char dbl_fmt[6]; if (optarg != 0 && strlen(optarg) > 0 && optarg[0] != ',') flt_digits=strtol(optarg, &ptr, 10); if (flt_digits < 1 || flt_digits > 10) { error("unreasonable value for float significant digits: %d", flt_digits); exit(EXIT_FAILURE); } if (*ptr == ',') dbl_digits = strtol(ptr+1, &ptr2, 10); if (ptr2 == ptr+1 || dbl_digits < 1 || dbl_digits > 20) { error("unreasonable value for double significant digits: %d", dbl_digits); exit(EXIT_FAILURE); } (void) sprintf(flt_fmt, "%%.%dg", (int)flt_digits); (void) sprintf(dbl_fmt, "%%.%dg", (int)dbl_digits); set_formats(flt_fmt, dbl_fmt); } int main(argc, argv) int argc; char *argv[]; { extern int optind; extern int opterr; extern char *optarg; static struct fspec fspec = /* defaults, overridden on command line */ { 0, /* construct netcdf name from file name */ false, /* print header info only, no data? */ false, /* just print coord vars? */ false, /* brief comments in data section? */ false, /* full annotations in data section? */ false, /* replace nonalpha-numeric with underscore? */ LANG_NONE, /* language conventions for indices */ 0, /* if -v specified, number of variables */ 0 /* if -v specified, list of variable names */ }; int c; int i; int max_len = 80; /* default maximum line length */ opterr = 1; progname = argv[0]; if (1 == argc) /* if no arguments given, print help and exit */ usage(); while ((c = getopt(argc, argv, "b:cf:hul:n:v:d:V")) != EOF) switch(c) { case 'V': /* display version of the library */ printf("%s, %s\n\n", argv[0], LIBVER_STRING ); exit(EXIT_SUCCESS); case 'h': /* dump header only, no data */ fspec.header_only = true; break; case 'c': /* header, data only for coordinate dims */ fspec.coord_vals = true; break; case 'n': /* * provide different name than derived from * file name */ fspec.name = optarg; break; case 'u': /* replace nonalpha-numerics with underscores */ fspec.fix_str = true; break; case 'b': /* brief comments in data section */ fspec.brief_data_cmnts = true; switch (tolower(optarg[0])) { case 'c': fspec.data_lang = LANG_C; break; case 'f': fspec.data_lang = LANG_F; break; default: error("invalid value for -b option: %s", optarg); exit(EXIT_FAILURE); } break; case 'f': /* full comments in data section */ fspec.full_data_cmnts = true; switch (tolower(optarg[0])) { case 'c': fspec.data_lang = LANG_C; break; case 'f': fspec.data_lang = LANG_F; break; default: error("invalid value for -b option: %s", optarg); exit(EXIT_FAILURE); } break; case 'l': /* maximum line length */ max_len = strtol(optarg, 0, 0); if (max_len < 10) { error("unreasonably small line length specified: %d", max_len); exit(EXIT_FAILURE); } break; case 'v': /* variable names */ /* make list of names of variables specified */ make_lvars (optarg, &fspec); break; case 'd': /* specify precision for floats */ #ifdef OLD_WAY set_sigdigs(optarg, &fspec); #else /* OLD_WAY */ set_sigdigs(optarg); #endif /* OLD_WAY */ break; case '?': usage(); break; } set_max_len(max_len); argc -= optind; argv += optind; i = 0; do { if (argc > 0) do_ncdump(argv[i], &fspec); } while (++i < argc); return EXIT_SUCCESS; } libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/0000755000000000000000000000000012421456623013645 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/ftest.f.in0000644000000000000000000012425412421456623015556 0ustar c******************************************************************** c Copyright 1993, UCAR/Unidata c See netcdf/COPYRIGHT file for copying and redistribution conditions. c $Id: ftest-linux.f 5345 2010-01-29 20:55:24Z epourmal $ c********************************************************************/ c c program to test the Sun Fortran jacket interface to the netCDF c program ftest include 'netcdf.inc' c name of first test cdf character*31 name c name of second test cdf character*31 name2 c Returned error code. integer iret c netCDF ID integer ncid c ID of dimension lat integer latdim c ID of dimension lon integer londim c ID of dimension level integer leveldim c ID of dimension time integer timedim c ID of dimension len integer lendim c variable used to control error-handling behavior integer ncopts integer dimsiz(MAXNCDIM) C allowable roundoff real epsilon common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz data name/'test.nc'/ data name2/'copy.nc'/ data epsilon /.000001/ 100 format('*** Testing ', a, ' ...') c set error-handling to verbose and non-fatal ncopts = NCVERBOS call ncpopt(ncopts) c create a netCDF named 'test.nc' write(*,100) 'nccre' ncid = nccre(name, NCCLOB, iret) c test ncddef write(*,100) 'ncddef' call tncddef(ncid) c test ncvdef write(*,100) 'ncvdef' call tncvdef(ncid) c test ncapt write(*, 100) 'ncapt, ncaptc' call tncapt(ncid) c close 'test.nc' write(*, 100) 'ncclos' call ncclos(ncid, iret) c test ncvpt1 write(*, 100) 'ncvpt1' call tncvpt1(name) c test ncvgt1 write(*, 100) 'ncvgt1' call tncvgt1(name) c test ncvpt write(*, 100) 'ncvpt' call tncvpt(name) c test ncinq write(*, 100) 'ncopn, ncinq, ncdinq, ncvinq, ncanam, ncainq' call tncinq(name) c test ncvgt write(*, 100) 'ncvgt, ncvgtc' call tncvgt(name) c test ncagt write(*, 100) 'ncagt, ncagtc' call tncagt(name) c test ncredf write(*, 100) 'ncredf, ncdren, ncvren, ncaren, ncendf' call tncredf(name) call tncinq(name) c test ncacpy write(*, 100) 'ncacpy' call tncacpy(name, name2) c test ncadel write(*, 100) 'ncadel' call tncadel(name2) c test reading from NetCDF file write(*, 100) 'NetCDF read' call tread_netcdf() end c c subroutine to test ncacpy c subroutine tncacpy(iname, oname) character*31 iname, oname include 'netcdf.inc' integer ndims, nvars, natts, recdim, iret character*31 vname, attnam integer attype, attlen integer vartyp, nvdims, vdims(MAXVDIMS), nvatts integer lenstr c existing netCDF id integer incdf c netCDF id of the output netCDF file to which the attribute c will be copied integer outcdf integer mattlen parameter (mattlen = 80) character*80 charval double precision doubval(2) real flval(2) integer lngval(2) integer*2 shval(2) integer i, j, k character*31 varnam, attname(2,7), gattnam(2) byte bytval(2) common /atts/attname, gattnam integer*2 svalidrg(2) real rvalidrg(2) integer lvalidrg(2) double precision dvalidrg(2) byte bvalidrg(2) character*31 gavalue(2), cavalue(2) real epsilon data bvalidrg/1,110/ data svalidrg/-100,100/ data lvalidrg/0,360/ data rvalidrg/0.0, 5000.0/ data dvalidrg/0D0,500D0/ data gavalue/'NWS', '88/10/25 12:00:00'/ data cavalue/'test string', 'a'/ data lenstr/80/ data epsilon /.000001/ incdf = ncopn(iname, NCNOWRIT, iret) outcdf = nccre(oname, NCCLOB, iret) call tncddef(outcdf) call tncvdef(outcdf) call ncinq (incdf, ndims, nvars, natts, recdim, iret) do 5 j = 1, natts call ncanam (incdf, NCGLOBAL, j, attnam, iret) call ncacpy (incdf, NCGLOBAL, attnam, outcdf, NCGLOBAL, iret) 5 continue do 10 i = 1, nvars call ncvinq (incdf, i, vname, vartyp, nvdims, + vdims, nvatts, iret) do 20 k = 1, nvatts call ncanam (incdf, i, k, attnam, iret) call ncacpy (incdf, i, attnam, outcdf, i, iret) 20 continue 10 continue c c get global attributes first c do 100 i = 1, natts call ncanam (outcdf, NCGLOBAL, i, attnam, iret) call ncainq (outcdf, NCGLOBAL, attnam, attype, attlen, + iret) if (attlen .gt. mattlen) then write (*,*) 'global attribute too big!', attlen, mattlen stop 'Stopped' else if (attype .eq. NCBYTE) then call ncagt (outcdf, NCBYTE, attnam, bytval, iret) else if (attype .eq. NCCHAR) then call ncagtc (outcdf, NCGLOBAL, attnam, charval, + lenstr, iret) if (attnam .ne. gattnam(i)) write(*,*) 'error in ncagt G' if (charval .ne. gavalue(i)) + write(*,*) 'error in ncagt G2', lenstr, charval, gavalue(i) charval = ' ' else if (attype .eq. NCSHORT) then call ncagt (outcdf, NCGLOBAL, attnam, shval, iret) else if (attype .eq. NCLONG) then call ncagt (outcdf, NCGLOBAL, attnam, lngval, iret) else if (attype .eq. NCFLOAT) then call ncagt (outcdf, NCGLOBAL, attnam, flval, iret) else call ncagt (outcdf, NCGLOBAL, attnam, doubval,iret) end if 100 continue c c get variable attributes c do 200 i = 1, nvars call ncvinq (outcdf, i, varnam, vartyp, nvdims, vdims, + nvatts, iret) do 250 j = 1, nvatts call ncanam (outcdf, i, j, attnam, iret) call ncainq (outcdf, i, attnam, attype, attlen, + iret) if (attlen .gt. mattlen) then write (*,*) 'variable ', i, 'attribute too big !' stop 'Stopped' else if (attype .eq. NCBYTE) then call ncagt (outcdf, i, attnam, bytval, + iret) if (attnam .ne. attname(j,i)) + write(*,*) 'error in ncagt BYTE N' if (bytval(j) .ne. bvalidrg(j)) write(*,*) + 'ncacpy: byte ', bytval(j), ' .ne. ', bvalidrg(j) else if (attype .eq. NCCHAR) then call ncagtc (outcdf, i, attnam, charval, + lenstr, iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt CHAR N' if (charval .ne. cavalue(j)) write(*,*) + 'error in ncagt' charval = ' ' else if (attype .eq. NCSHORT) then call ncagt (outcdf, i, attnam, shval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt SHORT N' if (shval(j) .ne. svalidrg(j)) then write(*,*) 'error in ncagt SHORT' end if else if (attype .eq. NCLONG) then call ncagt (outcdf, i, attnam, lngval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt LONG N' if (lngval(j) .ne. lvalidrg(j)) write(*,*) + 'error in ncagt LONG' else if (attype .eq. NCFLOAT) then call ncagt (outcdf, i, attnam, flval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt FLOAT N' if (flval(j) .ne. rvalidrg(j)) write(*,*) + 'error in ncagt FLOAT' else if (attype .eq. NCDOUBLE) then call ncagt (outcdf, i, attnam, doubval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt DOUBLE N' if ( abs(doubval(j) - dvalidrg(j)) .gt. epsilon) + write(*,*) 'error in ncagt DOUBLE' end if end if 250 continue 200 continue call ncclos(incdf, iret) call ncclos(outcdf, iret) return end c c subroutine to test ncadel c subroutine tncadel (cdfname) character*31 cdfname include 'netcdf.inc' integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid integer ncid, iret, i, j integer ndims, nvars, natts, recdim integer vartyp, nvdims, vdims(MAXVDIMS), nvatts character*31 varnam, attnam ncid = ncopn(cdfname, NCWRITE, iret) c put cdf in define mode call ncredf (ncid,iret) c get number of global attributes call ncinq (ncid, ndims, nvars, natts, recdim, iret) do 10 i = natts, 1, -1 c get name of global attribute call ncanam (ncid, NCGLOBAL, i, attnam, iret) c delete global attribute call ncadel (ncid, NCGLOBAL, attnam, iret) 10 continue do 100 i = 1, nvars c get number of variable attributes call ncvinq (ncid, i, varnam, vartyp, nvdims, vdims, + nvatts, iret) do 200 j = nvatts, 1, -1 call ncanam (ncid, i, j, attnam, iret) call ncadel (ncid, i, attnam, iret) 200 continue 100 continue call ncinq (ncid, ndims, nvars, natts, recdim, iret) if (natts .ne. 0) write(*,*) 'error in ncadel' c put netCDF into data mode call ncendf (ncid, iret) call ncclos (ncid, iret) return end c c subroutine to test ncagt and ncagtc subroutine tncagt(cdfname) include 'netcdf.inc' character*31 cdfname c maximum length of an attribute integer mattlen parameter (mattlen = 80) integer ncid, ndims, nvars, natts, recdim integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid integer i, j integer attype, attlen, lenstr, iret character*31 attnam character*80 charval double precision doubval(2) real flval(2) integer lngval(2) integer*2 shval(2) byte bytval(2) integer vartyp, nvdims, vdims(MAXVDIMS), nvatts character*31 varnam, attname(2,7), gattnam(2) common /atts/attname, gattnam integer*2 svalidrg(2) real rvalidrg(2) integer lvalidrg(2) double precision dvalidrg(2) byte bvalidrg(2) character*31 gavalue(2), cavalue(2) real epsilon data bvalidrg/1,110/ data svalidrg/-100,100/ data lvalidrg/0,360/ data rvalidrg/0.0, 5000.0/ data dvalidrg/0D0,500D0/ data gavalue/'NWS', '88/10/25 12:00:00'/ data cavalue/'test string', 'a'/ data lenstr/80/ data epsilon /.000001/ ncid = ncopn (cdfname, NCNOWRIT, iret) call ncinq (ncid, ndims, nvars, natts, recdim, iret) c c get global attributes first c do 10 i = 1, natts c get name of attribute call ncanam (ncid, NCGLOBAL, i, attnam, iret) c get attribute type and length call ncainq (ncid, NCGLOBAL, attnam, attype, attlen, + iret) if (attlen .gt. mattlen) then write (*,*) 'global attribute too big!' stop 'Stopped' else if (attype .eq. NCBYTE) then call ncagt (ncid, NCBYTE, attnam, bytval, iret) else if (attype .eq. NCCHAR) then call ncagtc (ncid, NCGLOBAL, attnam, charval, + lenstr, iret) if (attnam .ne. gattnam(i)) write(*,*) 'error in ncagt' if (charval .ne. gavalue(i)) write(*,*) 'error in ncagt' charval = ' ' else if (attype .eq. NCSHORT) then call ncagt (ncid, NCGLOBAL, attnam, shval, iret) else if (attype .eq. NCLONG) then call ncagt (ncid, NCGLOBAL, attnam, lngval, iret) else if (attype .eq. NCFLOAT) then call ncagt (ncid, NCGLOBAL, attnam, flval, iret) else call ncagt (ncid, NCGLOBAL, attnam, doubval,iret) end if 10 continue c c get variable attributes c do 20 i = 1, nvars call ncvinq (ncid, i, varnam, vartyp, nvdims, vdims, + nvatts, iret) do 25 j = 1, nvatts call ncanam (ncid, i, j, attnam, iret) call ncainq (ncid, i, attnam, attype, attlen, + iret) if (attlen .gt. mattlen) then write (*,*) 'variable ', i, 'attribute too big !' stop 'Stopped' else if (attype .eq. NCBYTE) then call ncagt (ncid, i, attnam, bytval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt BYTE name' if (bytval(j) .ne. bvalidrg(j)) write(*,*) + 'ncacpy: byte ', bytval(j), ' .ne. ', bvalidrg(j) else if (attype .eq. NCCHAR) then call ncagtc (ncid, i, attnam, charval, + lenstr, iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt CHAR name' if (charval .ne. cavalue(j)) write(*,*) + 'error in ncagt CHAR name' charval = ' ' else if (attype .eq. NCSHORT) then call ncagt (ncid, i, attnam, shval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt SHORT name' if (shval(j) .ne. svalidrg(j)) then write(*,*) 'error in ncagt SHORT' end if else if (attype .eq. NCLONG) then call ncagt (ncid, i, attnam, lngval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt LONG name' if (lngval(j) .ne. lvalidrg(j)) write(*,*) + 'error in ncagt LONG' else if (attype .eq. NCFLOAT) then call ncagt (ncid, i, attnam, flval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt FLOAT name' if (flval(j) .ne. rvalidrg(j)) write(*,*) + 'error in ncagt FLOAT' else if (attype .eq. NCDOUBLE) then call ncagt (ncid, i, attnam, doubval, + iret) if (attnam .ne. attname(j,i)) write(*,*) + 'error in ncagt DOUBLE name' if ( abs(doubval(j) - dvalidrg(j)) .gt. epsilon) + write(*,*) 'error in ncagt DOUBLE' end if end if 25 continue 20 continue call ncclos(ncid, iret) return end c c subroutine to test ncapt c subroutine tncapt (ncid) include 'netcdf.inc' integer ncid, iret c attribute vectors integer*2 svalidrg(2) real rvalidrg(2) integer lvalidrg(2) double precision dvalidrg(2) byte bvalidrg(2) c variable ids integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid c assign attributes c c byte c bvalidrg(1) = 1 bvalidrg(2) = 127 call ncapt (ncid, bid, 'valid range', NCBYTE, 2, +bvalidrg, iret) c c short c svalidrg(1) = -100 svalidrg(2) = 100 call ncapt (ncid, sid, 'valid range', NCSHORT, 2, +svalidrg, iret) c c long c lvalidrg(1) = 0 lvalidrg(2) = 360 call ncapt (ncid, lid, 'valid range', NCLONG, 2, +lvalidrg, iret) c c float c rvalidrg(1) = 0.0 rvalidrg(2) = 5000.0 call ncapt (ncid, fid, 'valid range', NCFLOAT, 2, +rvalidrg, iret) c c double c dvalidrg(1) = 0D0 dvalidrg(2) = 500D0 call ncapt (ncid, did, 'valid range', NCDOUBLE, 2, +dvalidrg, iret) c c global c call ncaptc (ncid, NCGLOBAL, 'source', NCCHAR, 3, +'NWS', iret) call ncaptc (ncid, NCGLOBAL, 'basetime', NCCHAR, 17, +'88/10/25 12:00:00', iret) c c char c call ncaptc (ncid, chid, 'longname', NCCHAR, 11, +'test string', iret) call ncaptc (ncid, chid, 'id', NCCHAR, 1, +'a', iret) return end c c initialize variables in labelled common blocks c block data common /cdims/ dimnam common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz common /varn/varnam common /atts/attname, gattnam integer latdim, londim, leveldim, timedim, lendim c should include 'netcdf.inc' for MAXNCDIM, but it has EXTERNAL c declaration, which is not permitted in a BLOCK DATA unit. c integer dimsiz(MAXNCDIM) integer dimsiz(32) c character*31 dimnam(MAXNCDIM) character*31 dimnam(32) character*31 varnam(7) character*31 attname(2,7) character*31 gattnam(2) data dimnam /'time', 'lat', 'lon', 'level', + 'length', 27*'0'/ data dimsiz /4, 5, 5, 4, 80, 27*0/ data varnam/'bytev', 'short v', 'longv', 'floatv', 'doublev', + 'chv', 'cv'/ data attname/'valid range', '0', 'valid range', + '0', 'valid range', + '0', 'valid range', '0', 'valid range', '0', 'longname', 'id', + '0', '0'/ data gattnam/'source','basetime'/ end c c subroutine to test ncddef c subroutine tncddef(ncid) include 'netcdf.inc' integer ncid c sizes of dimensions of 'test.nc' and 'copy.nc' integer ndims parameter(ndims=5) c dimension ids integer latdim, londim, leveldim, timedim, lendim integer iret c function to define a netCDF dimension integer dimsiz(MAXNCDIM) character*31 dimnam(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz common /cdims/ dimnam c define dimensions timedim = ncddef(ncid, dimnam(1), NCUNLIM, iret) latdim = ncddef(ncid, dimnam(2), dimsiz(2), iret) londim = ncddef(ncid, dimnam(3), dimsiz(3), iret) leveldim = ncddef(ncid, dimnam(4), dimsiz(4), iret) lendim = ncddef(ncid, dimnam(5), dimsiz(5), iret) return end c c subroutine to test ncinq, ncdinq, ncdid, ncvinq, ncanam c and ncainq c subroutine tncinq(cdfname) include 'netcdf.inc' character*31 cdfname c netCDF id integer ncid c returned number of dimensions integer ndims c returned number of variables integer nvars c returned number of global attributes integer natts c returned id of the unlimited dimension integer recdim c returned error code integer iret c returned name of record dimension character*31 recnam c returned size of record dimension integer recsiz c loop control variables integer i, j, k c returned size of dimension integer dsize c returned dimension ID integer dimid c returned dimension name character*31 dname c returned variable name character*31 vname c returned attribute name character*31 attnam c returned netCDF datatype of variable integer vartyp c returned number of variable dimensions integer nvdims c returned number of variable attributes integer nvatts c returned vector of nvdims dimension IDS corresponding to the c variable dimensions integer vdims(MAXNCDIM) c returned attribute length integer attlen c returned attribute type integer attype character*31 dimnam(MAXNCDIM) character*31 varnam(7) character*31 attname(2,7) character*31 gattnam(2) integer vdlist(5,7), vtyp(7), vndims(7), vnatts(7) integer attyp(2,7),atlen(2,7),gattyp(2),gatlen(2) integer timedim,latdim,londim,leveldim,lendim integer dimsiz(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz common /varn/varnam common /atts/attname, gattnam common /cdims/ dimnam data vdlist/1,0,0,0,0,1,0,0,0,0,2,0,0,0,0,4,3,2,1,0,4,3,2,1,0, + 5,1,0,0,0,1,0,0,0,0/ data vtyp/NCBYTE, NCSHORT, NCLONG, NCFLOAT, NCDOUBLE, NCCHAR, + NCCHAR/ data vndims/1,1,1,4,4,2,1/ data vnatts/1,1,1,1,1,2,0/ data attyp/NCBYTE, 0, NCSHORT, 0, NCLONG, 0, NCFLOAT, 0, + NCDOUBLE, 0, NCCHAR, NCCHAR, 0, 0/ data atlen/2,0,2,0,2,0,2,0,2,0,11,1, 0, 0/ data gattyp/NCCHAR,NCCHAR/ data gatlen/3,17/ ncid = ncopn (cdfname, NCNOWRIT, iret) call ncinq (ncid, ndims, nvars, natts, recdim, iret) if (ndims .ne. 5) write(*,*) 'error in ncinq or ncddef' if (nvars .ne. 7) write(*,*) 'error in ncinq or ncvdef' if (natts .ne. 2) write(*,*) 'error in ncinq or ncapt' call ncdinq (ncid, recdim, recnam, recsiz, iret) if (recnam .ne. 'time') write(*,*) 'error: bad recdim from ncinq' c c dimensions c do 10 i = 1, ndims call ncdinq (ncid, i, dname, dsize, iret) if (dname .ne. dimnam(i)) write(*,*) + 'error in ncdinq or ncddef, dname=', dname if (dsize .ne. dimsiz(i)) write(*,*) + 'error in ncdinq or ncddef, dsize=',dsize dimid = ncdid (ncid, dname, iret) if (dimid .ne. i) write(*,*) + 'error in ncdinq or ncddef, dimid=', dimid 10 continue c c variables c do 30 i = 1, nvars call ncvinq (ncid, i, vname, vartyp, nvdims, + vdims, nvatts, iret) if (vname .ne. varnam(i)) write(*,*) + 'error: from ncvinq, wrong name returned: ', vname, + ' .ne. ', varnam(i) if (vartyp .ne. vtyp(i)) write(*,*) + 'error: from ncvinq, wrong type returned: ', vartyp, + ' .ne. ', vtyp(i) if (nvdims .ne. vndims(i)) write(*,*) + 'error: from ncvinq, wrong num dims returned: ', vdims, + ' .ne. ', vndims(i) do 35 j = 1, nvdims if (vdims(j) .ne. vdlist(j,i)) write(*,*) + 'error: from ncvinq wrong dimids: ', vdims(j), + ' .ne. ', vdlist(j,i) 35 continue if (nvatts .ne. vnatts(i)) write(*,*) + 'error in ncvinq or ncvdef' c c attributes c do 45 k = 1, nvatts call ncanam (ncid, i, k, attnam, iret) call ncainq (ncid, i, attnam, attype, attlen, iret) if (attnam .ne. attname(k,i)) write(*,*) + 'error in ncanam or ncapt' if (attype .ne. attyp(k,i)) write(*,*) + 'error in ncainq or ncapt' if (attlen .ne. atlen(k,i)) write(*,*) + 'error in ncainq or ncapt' 45 continue 30 continue do 40 i = 1, natts call ncanam (ncid, NCGLOBAL, i, attnam, iret) call ncainq (ncid, NCGLOBAL, attnam, attype, attlen, iret) if (attnam .ne. gattnam(i)) write(*,*) + 'error in ncanam or ncapt' if (attype .ne. gattyp(i)) write(*,*) + 'error in ncainq or ncapt' if (attlen .ne. gatlen(i)) write(*,*) + 'error in ncainq or ncapt' 40 continue call ncclos(ncid, iret) return end c subroutine to test ncredf, ncdren, ncvren, ncaren, and c ncendf subroutine tncredf(cdfname) include 'netcdf.inc' character*31 cdfname character*31 attname(2,7) character*31 gattnam(2) common /atts/attname, gattnam common /cdims/ dimnam character*31 dimnam(MAXNCDIM) character*31 varnam(7) common /varn/varnam integer ncid, iret, latid, varid dimnam(2) = 'latitude' varnam(4) = 'realv' attname(1,6) = 'stringname' gattnam(1) = 'agency' ncid = ncopn(cdfname, NCWRITE, iret) call ncredf(ncid, iret) latid = ncdid(ncid, 'lat', iret) call ncdren(ncid, latid, 'latitude', iret) varid = ncvid(ncid, 'floatv', iret) call ncvren(ncid, varid, 'realv', iret) varid = ncvid(ncid, 'chv', iret) call ncaren(ncid, varid, 'longname', 'stringname', iret) call ncaren(ncid, NCGLOBAL, 'source', 'agency', iret) call ncendf(ncid, iret) call ncclos(ncid, iret) return end c c subroutine to test ncvdef c subroutine tncvdef(ncid) include 'netcdf.inc' integer ncid c function to define a netCDF variable integer dimsiz(MAXNCDIM) integer latdim, londim, leveldim, timedim, lendim common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz c variable ids integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid c variable shapes integer bdims(1), fdims(4), ddims(4), ldims(1), sdims(1) integer chdims(2), cdims(1) integer iret c c define variables c c byte c bdims(1) = timedim bid = ncvdef(ncid, 'bytev', NCBYTE, 1, bdims, iret) c c short c sdims(1) = timedim sid = ncvdef (ncid, 'short v', NCSHORT, 1, sdims, iret) c c long c ldims(1) = latdim lid = ncvdef (ncid, 'longv', NCLONG, 1, ldims, iret) c c float c fdims(4) = timedim fdims(1) = leveldim fdims(2) = londim fdims(3) = latdim fid = ncvdef (ncid, 'floatv', NCFLOAT, 4, fdims, iret) c c double c ddims(4) = timedim ddims(1) = leveldim ddims(2) = londim ddims(3) = latdim did = ncvdef (ncid, 'doublev', NCDOUBLE, 4, ddims, iret) c c char c chdims(2) = timedim chdims(1) = lendim chid = ncvdef (ncid, 'chv', NCCHAR, 2, chdims, iret) cdims(1) = timedim cid = ncvdef (ncid, 'cv', NCCHAR, 1, cdims, iret) return end c c subroutine to test ncvgt and ncvgtc c subroutine tncvgt(cdfname) include 'netcdf.inc' character*31 cdfname integer ndims, times, lats, lons, levels, lenstr parameter (times=4, lats=5, lons=5, levels=4) integer start(MAXNCDIM), count(MAXNCDIM) integer ncid, iret, i, m integer latdim, londim, leveldim, timedim, lendim integer dimsiz(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid integer itime, ilev, ilat, ilon c arrays of data values to be read byte barray(times), byval(times) integer*2 sarray(times), shval(times) integer larray(lats) real farray(levels, lats, lons, times) double precision darray(levels, lats, lons, times) c character array of data values to be read character*31 string character*31 varnam integer nvars, natts, recdim integer vartyp, nvdims, vdims(MAXVDIMS), nvatts data start/1,1,1,1, 28*0/, count/levels, lats, lons, times, 28*0/ data byval /97, 98, 99, 100/ data shval /10, 11, 12, 13/ ncid = ncopn (cdfname, NCWRITE, iret) c get number of variables in netCDF call ncinq (ncid, ndims, nvars, natts, recdim, iret) do 5 m = 1, nvars-1 c get variable name, datatype, number of dimensions c vector of dimension ids, and number of variable attributes call ncvinq (ncid, m, varnam, vartyp, nvdims, vdims, + nvatts, iret) if (vartyp .eq. NCBYTE) then c c byte c count(1) = times call ncvgt (ncid, m, start, count, barray, iret) do 10 i = 1, times if (barray(i) .ne. byval(i)) then write(*,*) 'ncvgt of bytes, got ', barray(i), ' .ne. ' + , byval(i) end if 10 continue else if (vartyp .eq. NCSHORT) then c c short c count(1) = times call ncvgt (ncid, m, start, count, sarray, iret) do 20 i = 1, times if (sarray(i) .ne. shval(i)) then write(*,*) 'ncvgt of short, got ', sarray(i), ' .ne. ' + , shval(i) end if 20 continue else if (vartyp .eq. NCLONG) then c c long c count(1) = lats call ncvgt (ncid, m, start, count, larray, iret) do 30 i = 1, lats if (larray(i) .ne. 1000) then write(*,*) 'long error in ncvgt' end if 30 continue else if (vartyp .eq. NCFLOAT) then c c float c count(1) = levels call ncvgt (ncid, m, start, count, farray, iret) i = 0 do 40 itime = 1,times do 40 ilon = 1, lons do 40 ilat = 1, lats do 40 ilev = 1, levels i = i + 1 if (farray(ilev, ilat, ilon, itime) .ne. + real(i)) then write (*,*) 'float error in ncvgt' end if 40 continue else if (vartyp .eq. NCDOUBLE) then c c double c count(1) = levels call ncvgt (ncid, m, start, count, darray, iret) i = 0 do 50 itime = 1, times do 50 ilon = 1, lons do 50 ilat = 1, lats do 50 ilev = 1, levels i = i + 1 if (darray(ilev, ilat, ilon, itime) .ne. + real(i)) then write(*,*) 'double error in ncvgt:', i, + darray(ilev, ilat, ilon, itime), '.ne.', real(i) end if 50 continue else c c char c count(1) = 3 count(2) = 4 lenstr = 31 call ncvgtc (ncid, m, start, count, string, lenstr, iret) if (string .ne. 'testhikin of') then write(*,*) 'error in ncvgt, returned string =', string end if end if 5 continue call ncclos(ncid, iret) return end subroutine tncvgt1(cdfname) include 'netcdf.inc' character*31 cdfname integer ncid, iret integer latdim, londim, leveldim, timedim, lendim integer dimsiz(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz integer bindx, sindx, lindx, findx(4), dindx(4), cindx integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid byte bvalue integer*2 svalue integer lvalue real fvalue double precision dvalue character*1 c real epsilon double precision onethird data epsilon /.000001/ data lindx/1/, bindx/1/, sindx/1/, findx/1,1,1,1/ +dindx/1,1,1,1/, cindx/1/ data onethird/0.3333333333D0/ ncid = ncopn (cdfname, NCNOWRIT, iret) c c test ncvgt1 for byte c call ncvgt1 (ncid, bid, bindx, bvalue, iret) if (bvalue .ne. ichar('z')) write(*,*) 'error in ncvgt1 byte:', + bvalue, ' .ne.', ichar('z') c c test ncvgt1 for short c call ncvgt1 (ncid, sid, sindx, svalue, iret) if (svalue .ne. 10) write(*,*) 'error in ncvgt1 short:', + svalue, ' .ne.', 10 c c test ncvgt1 for long c call ncvgt1 (ncid, lid, lindx, lvalue, iret) if (lvalue .ne. 1000) write(*,*) 'error in ncvgt1 long:', + lvalue, ' .ne.', 1000 c c test ncvgt1 for float c call ncvgt1 (ncid, fid, findx, fvalue, iret) if (abs(fvalue - 3.14159) .gt. epsilon) write(*,*) + 'error in ncvgt1 float:', fvalue, ' not close to', 3.14159 c c test ncvgt1 for double c call ncvgt1 (ncid, did, dindx, dvalue, iret) if (abs(dvalue - onethird) .gt. epsilon) write(*,*) + 'error in ncvgt1 double:', dvalue, ' not close to', + onethird c c test ncvg1c for char c call ncvg1c (ncid, cid, cindx, c, iret) if (c .ne. 'a') write(*,*) 'error in ncvg1c' call ncclos(ncid, iret) return end c c subroutine to test ncvpt and ncvptc c subroutine tncvpt(cdfname) include 'netcdf.inc' character*31 cdfname c size of dimensions integer times, lats, lons, levels parameter (times=4, lats=5, lons=5, levels=4) integer ncid, iret c loop control variables integer itime, ilev, ilon, ilat, i integer latdim, londim, leveldim, timedim, lendim integer dimsiz(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz integer lenstr integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid c vector of integers specifying the corner of the hypercube c where the first of the data values will be written integer start(MAXNCDIM) c vector of integers specifying the edge lengths from the c corner of the hypercube where the first of the data values c will be written integer count(MAXNCDIM) c arrays of data values to be written byte barray(times) integer*2 sarray(times) integer larray(lats) real farray(levels, lats, lons, times) double precision darray(levels, lats, lons, times) character*31 string data start/1,1,1,1, 28*0/, count/levels, lats, lons, times, 28*0/ data barray /97, 98, 99, 100/ data sarray /10, 11, 12, 13/ ncid = ncopn (cdfname, NCWRITE, iret) c c byte c count(1) = times call ncvpt (ncid, bid, start, count, barray, iret) c c short c count(1) = times call ncvpt (ncid, sid, start, count, sarray, iret) c c long c do 30 i = 1,lats larray(i) = 1000 30 continue count(1) = lats call ncvpt (ncid, lid, start, count, larray, iret) c c float c i = 0 do 40 itime = 1,times do 40 ilon = 1, lons do 40 ilat = 1, lats do 40 ilev = 1, levels i = i + 1 farray(ilev, ilat, ilon, itime) = real(i) 40 continue count(1) = levels call ncvpt (ncid, fid, start, count, farray, iret) c c double c i = 0 do 50 itime = 1, times do 50 ilon = 1, lons do 50 ilat = 1, lats do 50 ilev = 1, levels i = i + 1 darray(ilev, ilat, ilon, itime) = real(i) 50 continue count(1) = levels call ncvpt (ncid, did, start, count, darray, iret) c c char c start(1) = 1 start(2) = 1 count(1) = 4 count(2) = 4 lenstr = 31 string = 'testthiskind of ' call ncvptc (ncid, chid,start, count, string, lenstr, iret) call ncclos(ncid, iret) return end subroutine tncvpt1(cdfname) include 'netcdf.inc' character*31 cdfname integer iret, ncid integer latdim, londim, leveldim, timedim, lendim integer dimsiz(MAXNCDIM) common /dims/timedim, latdim, londim, leveldim, lendim, + dimsiz integer bindx, sindx, lindx, findx(4), dindx(4), cindx integer lvalue integer*2 svalue byte bvalue double precision onethird integer bid, sid, lid, fid, did, cid, chid common /vars/bid, sid, lid, fid, did, cid, chid data lindx/1/, bindx/1/, sindx/1/, findx/1,1,1,1/ +dindx/1,1,1,1/, cindx/1/ data lvalue /1000/ data svalue/10/ data onethird/0.3333333333D0/ bvalue = ichar('z') ncid = ncopn (cdfname, NCWRITE, iret) c c test ncvpt1 for byte c call ncvpt1 (ncid, bid, bindx, bvalue, iret) c c test ncvpt1 for short c call ncvpt1 (ncid, sid, sindx, svalue, iret) c c test ncvpt1 for long c call ncvpt1 (ncid, lid, lindx, lvalue, iret) c c test ncvpt1 for float c call ncvpt1 (ncid, fid, findx, 3.14159, iret) c c test ncvpt1 for double c call ncvpt1 (ncid, did, dindx, onethird, iret) c c test ncvp1c for char c call ncvp1c (ncid, cid, cindx, 'a', iret) call ncclos (ncid, iret) return end C This routine reads varaibales and global attributes from C the REAL NetCDF file test_nc.nc. The file was created by NetCDF v3.5 C from the file test_nc.cdl that can be found in the mfhdf/fortran C directory. Please do not generate test_nc.nc file from the test_nc.cdl C using HDF4 ncgen. HDF4 ncgen generated HDF4 file! subroutine tread_netcdf() include 'netcdf.inc' C Variables declarations character*10 FILENAME character*1024 new_filename integer filename_len integer status, ncid, var_id integer time(12), date(12), start(3), count(3), int_attr(5) real a(3,2), float_attr(3) double precision c(3), double_attr(3) integer*2 b(2,3,12), short_attr(2) integer i, j, k, dlen character*10 description C Arrays to read data to. integer time_val(12), date_val(12), int_attr_val(5) integer*2 b_val(2,3,12), short_attr_val(2) real a_val(3,2), float_attr_val(3) double precision c_val(3), double_attr_val(3) real epsilon double precision depsilon C Arrays initialization DATA time_val /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12/ DATA date_val /840116, 840214, 840316, 840415, 840516, 840615, + 840716, 840816, 840915, 841016, 841115, 841216/ DATA a_val /1.0, 2.0, 3.0, 4.0, 5.0, 6.0/ DATA b_val /1, 1, 2, 2, 3, 3, + 4, 4, 5, 5, 6, 6, + 7, 7, 8, 8, 9, 9, + 10, 10, 11, 11, 12, 12, + 13, 13, 14, 14, 15, 15, + 16, 16, 17, 17, 18, 18, + 19, 19, 20, 20, 21, 22, + 23, 23, 24, 24, 25, 25, + 26, 26, 27, 27, 28, 28, + 29, 29, 30, 30, 31, 31, + 32, 32, 33, 33, 34, 34, + 35, 35, 36, 36, 37, 37/ DATA c_val /2.0, 3.0, 100/ DATA int_attr_val /-100, 200, -300, 400, -500/ DATA float_attr_val /1.0, 2.0, 3.0/ DATA short_attr_val /0, 1/ DATA double_attr_val /-1.0, 2.0, -7.0/ DATA epsilon /1.E-6/ DATA depsilon /1.E-12/ C Modify filename to accomodate SRCDIR configure option FILENAME = 'test_nc.nc' filename_len = len(new_filename) call fixname(FILENAME, new_filename, filename_len) dlen = 10 ncid = ncopn(new_filename(1:filename_len), NCNOWRIT, status) if (status .ne.0) then write(*,*) 'ncopn failed' goto 1000 endif var_id = ncvid(ncid, 'time', status) start(1) = 1 count(1) = 12 call ncvgt(ncid, var_id, start, count, time, status) if (status .ne. 0) write(*,*) + 'ncvgt failed for 32-bit integer variable time' do i = 1, 12 if( time(i) .ne. time_val(i) ) + write(*,*) 'Wrong time value at index ', i enddo var_id = ncvid(ncid, 'c', status) start(1) = 1 count(1) = 3 call ncvgt(ncid, var_id, start, count, c, status) if (status .ne. 0) write(*,*) + 'ncvgt failed for 64-bit float variable c' do i = 1, 3 if( abs(c(i) - c_val(i)) .gt. depsilon ) + write(*,*) 'Wrong c value at index ', i enddo var_id = ncvid(ncid, 'date', status) start(1) = 1 count(1) = 12 call ncvgt(ncid, var_id, start, count, date, status) if (status .ne. 0) write(*,*) + 'ncvgt failed for 32-bit integer variable date' do i = 1, 12 if( date(i) .ne. date_val(i) ) + write(*,*) 'Wrong date value at index ', i enddo var_id = ncvid(ncid, 'a', status) start(1) = 1 start(2) = 1 count(1) = 3 count(2) = 2 call ncvgt(ncid, var_id, start, count, a, status) if (status .ne. 0) write(*,*) + 'ncvgt failed for 32-bit real variable a' do i = 1, 2 do j = 1, 3 if( abs(a(j,i) - a_val(j,i)) .gt. epsilon ) + write(*,*) 'Wrong a value at indecies ', j, ',', i enddo enddo var_id = ncvid(ncid, 'b', status) start(1) = 1 start(2) = 1 start(3) = 1 count(1) = 2 count(2) = 3 count(3) = 12 call ncvgt(ncid, var_id, start, count, b, status) if (status .ne. 0) write(*,*) + 'ncvgt failed for 16-bit integer variable b' do i = 1, 12 do j = 1, 3 do k = 1, 2 if( b(k,j,i) .ne. b_val(k,j,i)) + write(*,*) + 'Wrong b value at indecies ', k, ',', j, ',', i enddo enddo enddo C read global attributes call ncagt(ncid, NCGLOBAL, 'int_attr', int_attr, status) if (status .ne. 0) + write(*,*) 'ncagt failed for 32-bit integer attribute int_attr' do i = 1, 5 if( int_attr(i) .ne. int_attr_val(i) ) + write(*,*) 'Wrong int_attr value at index ', i enddo call ncagt(ncid, NCGLOBAL, 'float_attr', float_attr, status) if (status .ne. 0) + write(*,*) 'ncagt failed for 32-bit float attribute float_attr' do i = 1, 3 if( abs(float_attr(i) - float_attr_val(i)) .gt. epsilon ) + write(*,*) 'Wrong float_attr value at index ', i enddo call ncagt(ncid, NCGLOBAL, 'double_attr', double_attr, status) if (status .ne. 0) + write(*,*) + 'ncagt failed for 64-bit float attribute double_attr' do i = 1, 3 if( abs(double_attr(i) - double_attr_val(i)) .gt. depsilon ) + write(*,*) 'Wrong double_attr value at index ', i enddo call ncagt(ncid, NCGLOBAL, 'short_attr', short_attr, status) if (status .ne. 0) + write(*,*) + 'ncagt failed for 16-bit integer attribute double_attr' do i = 1, 2 if( short_attr(i) .ne. short_attr_val(i) ) + write(*,*) 'Wrong short_attr value at index ', i enddo call ncagtc(ncid, NCGLOBAL, 'Description', description, + dlen, status) if (status .ne. 0) + write(*,*) + 'ncagt failed for character attribute Description' if (description .ne. 'Attributes') + write(*,*) 'Wrong values of the character attribute' 1000 continue return end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/hdftest1.f0000644000000000000000000003166212421456623015546 0ustar C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C Copyright by The HDF Group. * C Copyright by the Board of Trustees of the University of Illinois. * C All rights reserved. * C * C This file is part of HDF. The full HDF copyright notice, including * C terms governing use, modification, and redistribution, is contained in * C the files COPYING and Copyright.html. COPYING can be found at the root * C of the source code distribution tree; Copyright.html can be found at * C http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C access to either file, you may request a copy from help@hdfgroup.org. * C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C C This is a test driver for new SD Fortran functions C program test_new_functions implicit none integer err1, err2 err1=0 err2=0 call test_file(err1) if (err1 .ne. 0) then print*, 'test_file failed with ', err1, ' errors' endif if (err1 .eq. 0) then print*, 'test_file.................. PASSED' endif call test_vars(err2) if (err2 .ne. 0) then print*, 'test_vars failed with ', err2, ' errors' endif if (err2 .eq. 0) then print*, 'test_vars.................. PASSED' print*,' ' endif end C============================================================= C C This new subroutine tests the following SD Fortran functions C sfgetname C sfgetnamelen C sfgmaxopenf C sfgnumopenf C sfrmaxopenf C C============================================================= subroutine test_file(err) implicit none include 'mffunc.inc' integer DFACC_CREATE parameter (DFACC_CREATE = 4) integer err,status integer sd_id character*20 file character*20 file_out integer flen integer curr_max, sys_limit integer NUM_FILES_LOW parameter (NUM_FILES_LOW=35) integer fids(NUM_FILES_LOW) integer H4_MAX_NC_OPEN parameter (H4_MAX_NC_OPEN=32) integer flen_out character*2 ichr2 integer i, curr_opened C--------------------End of declarations------------------------------ file = 'test_file.hdf' C Get the current max and system limit status = sfgmaxopenf(curr_max, sys_limit) if( status .ne. 0 ) then print*,'sfgmaxopenf failed' err = err + 1 endif if(curr_max .ne. H4_MAX_NC_OPEN)THEN print*,'sfgmaxopenf failed: Incorrect max number of open files' err = err + 1 endif C Reset current max to an arbitrary number and check curr_max = sfrmaxopenf(40) if( status .ne. 0 ) then print*,'sfrmaxopenf failed' err = err + 1 endif if( curr_max .ne. 40 ) then print*,'sfrmaxopenf failed: Current max number of open files' err = err + 1 endif C Try to create more files than the default max (currently, 32) and C all should succeed do i = 1, NUM_FILES_LOW write(ichr2,'(I2.2)') i fids(i) = sfstart ('test_file'//ichr2//'.hdf', DFACC_CREATE) if( fids(i) .le. 0 ) then print*, 'sfstart failed' err = err + 1 endif enddo C verify that NUM_FILES_LOW files are opened status = sfgnumopenf(curr_opened) if( curr_opened .ne. NUM_FILES_LOW ) then print*, 'sfgnumopenf failed: Incorrect number of open files' err = err + 1 endif C Close all the files do i = 1, NUM_FILES_LOW status = sfend(fids(i)) if( status .ne. 0 ) then print*, 'sfend failed' err = err + 1 endif enddo C C Initialize SD interfaces C sd_id = sfstart (file, DFACC_CREATE) if( sd_id .le. 0 ) then print*, 'sfstart failed' err = err + 1 goto 1000 endif status = sfgetnamelen(sd_id, flen) if( status .ne. 0 .or. flen .ne. 13) then print*, 'sfgetnamelen failed' err = err + 1 endif flen_out = sfgetfname(sd_id, file_out) if( flen_out .ne. 13 ) then print*, 'sfgetfname failed: wrong length' err = err + 1 endif if( file_out(1:13) .ne. file(1:13) ) then print*, 'sfgetfname failed: wrong name' err = err + 1 endif status = sfend(sd_id) if( status .ne. 0 ) then print*, 'sfend failed' err = err + 1 endif 1000 return end C============================================================= C This new subroutine tests the following SD Fortran functions C sfidtype C sfgnvars_byname C sfn2indices C C============================================================= subroutine test_vars(err) implicit none include 'mffunc.inc' integer dset1, dset2, dim_id integer err,status integer sd_id, id_type character*12 file integer DFACC_CREATE parameter (DFACC_CREATE = 4) integer DFACC_READ parameter (DFACC_READ = 1) integer RANK parameter (RANK=2) integer X_LENGTH,Y_LENGTH parameter (X_LENGTH=5) parameter (Y_LENGTH=5) integer dimsize(RANK) character*9 VAR1_NAME integer var_list(3), type_list(3) character*21 ATTR1_NAME character*15 ATTR2_NAME character*19 ATTR1_VAL character*23 ATTR2_VAL integer ATTR1_LEN integer ATTR2_LEN real sds1_data(X_LENGTH,Y_LENGTH) integer start(2) integer stride(2) C C Data type parameters C C integer DFNT_CHAR, . DFNT_INT16, . DFNT_INT32, . DFNT_FLOAT32, . DFNT_FLOAT64 parameter (DFNT_CHAR = 4, . DFNT_INT16 = 22, . DFNT_INT32 = 24, . DFNT_FLOAT32 = 5, . DFNT_FLOAT64 = 6) integer i,j integer n_vars C--------------------End of declarations------------------------------ file = 'test_var.hdf' VAR1_NAME = "DataSet_1" ATTR1_NAME = "Attribute Dimension 1" ATTR2_NAME = "Attribute SDS 1" ATTR1_VAL = "This is a coord var" ATTR2_VAL = "This is not a coord var" ATTR1_LEN = 21 ATTR2_LEN = 15 start(1) = 0 start(2) = 0 stride(1) = 1 stride(2) = 1 do i = 1, X_LENGTH do j = 1, Y_LENGTH sds1_data(j,i) = j*i enddo enddo C C Initialize SD interfaces C sd_id = sfstart (file, DFACC_CREATE) if( sd_id .le. 0 ) then print*, 'sfstart failed' err = err + 1 goto 1000 endif C Create an X_LENGTH by Y_LENGTH dataset, called DataSet_1 dimsize(1) = X_LENGTH dimsize(2) = Y_LENGTH dset1 = sfcreate(sd_id,VAR1_NAME,DFNT_FLOAT64,RANK,dimsize) if(dset1.eq.-1) then print*, 'sfcreate returned bad ID', dset1 err = err + 1 endif C Set the dimension name to be the same as its dataset. dim_id = sfdimid(dset1, 0) if(dim_id.eq.-1)then print*,'sfgetdimid returned error code', status err = err + 1 endif status = sfsdmname(dim_id, VAR1_NAME) if(status.eq.-1)then print*,'sfsdmname returned error code', status err = err + 1 endif C Set an attribute to dimension VAR1_NAME. status=sfsnatt(dim_id,ATTR1_NAME,DFNT_CHAR,ATTR1_LEN,ATTR1_VAL) if(status.eq.-1)then print*,'sfsnatt returned error code', status err = err + 1 endif C Set an attribute to dataset VAR1_NAME. status=sfsnatt(sd_id,ATTR2_NAME,DFNT_CHAR,ATTR2_LEN,ATTR2_VAL) if(status.eq.-1)then print*,'sfsnatt returned error code', status err = err + 1 endif C Create another X_LENGTH by Y_LENGTH dataset, called DataSet_2 dset2 = sfcreate(sd_id,VAR1_NAME,DFNT_FLOAT64,RANK,dimsize) if(dset2.eq.-1) then print*, 'sfcreate returned bad ID', dset2 err = err + 1 endif C Test SDidtype on the second dataset */ status = sfidtype(dset2,id_type) if(status.eq.-1)then print*, 'sfidtype returned error code', status err = err + 1 else if(id_type.ne.1) then print*, 'sfidtype returned bad object type', id_type err = err + 1 endif C Write data to the SDS status = sfwdata(dset1, start, stride, dimsize, sds1_data) if( status .ne. 0 ) then print*, 'sfwdata failed for', 1, ' -th dataset' err = err + 1 endif C Close the datasets status = sfendacc(dset1) if(status.eq.-1)then print*, 'sfendacc returned error code', status err = err + 1 end if status = sfendacc(dset2) if(status.eq.-1)then print*, 'sfendacc returned error code', status err = err + 1 end if C Close the file status = sfend(sd_id) if( status .ne. 0 ) then print*, 'sfend failed ', status err = err + 1 endif C Re-open the file to test SDidtype more */ sd_id = sfstart (file, DFACC_READ) if( sd_id .le. 0 ) then print*, 'sfstart failed' err = err + 1 goto 1000 endif C Check variable type and attributes of each element in the file C Get the number of variables of name VAR1_NAME status = sfgnvars_byname(sd_id, VAR1_NAME, n_vars) if( status .eq. -1)then print*, 'sfgnvars_byname failed' err = err + 1 endif if(n_vars.eq. 1)then C Get index of dataset VAR1_NAME status = sfn2index(sd_id, VAR1_NAME) if( status .lt. 0)then print*, 'sfn2index failed' err = err + 1 endif else C Get the list of all variables of named VAR1_NAME status=sfn2indices(sd_id,VAR1_NAME,var_list,type_list, + n_vars) if( status .lt. 0)then print*, 'sfn2indices failed' err = err + 1 endif C In this case, the first and third variable is a dataset do i = 1, n_vars if (type_list(i) .eq. 0)then if( var_list(i) .ne. i-1)then print*, 'sfn2indices failed in indices' err = err + 1 endif endif enddo endif C Test SDidtype on the SD id status = sfidtype(sd_id,id_type) if(status.eq.-1)then print*, 'sfidtype returned error code', status err = err + 1 else if(id_type.ne.0) then print*, 'sfidtype returned bad object type', id_type err = err + 1 endif C Get access to the first dataset and test SDidtype on the SDS id dset1 = sfselect(sd_id, 0); if( dset1 .eq. -1 ) then print*, 'sfselect failed for', 0, ' -th dataset' err = err + 1 endif status = sfidtype(dset1,id_type) if(status.eq.-1)then print*, 'sfidtype returned error code', status err = err + 1 else if(id_type.ne.1) then print*, 'sfidtype returned bad object type', id_type err = err + 1 endif C Get access to the second dataset and test SDidtype on the SDS id dset2 = sfselect(sd_id, 1); if( dset2 .eq. -1 ) then print*, 'sfselect failed for', 1, ' -th dataset' err = err + 1 endif status = sfidtype(dset2,id_type) if(status.eq.-1)then print*,'sfidtype returned error code', status err = err + 1 else if(id_type.ne.1) then print*,'sfidtype returned bad object type', id_type err = err + 1 endif C Get dimension handle for first dimension of DataSet_1 and test C SDidtype on the dimension id dim_id = sfdimid(dset1, 0) if(dim_id.eq.-1)then print*,'sfgetdimid returned error code', status err = err + 1 endif status = sfidtype(dim_id,id_type) if(status.eq.-1)then print*,'sfidtype returned error code', status err = err + 1 else if(id_type.ne.2) then print*,'sfidtype returned bad object type', id_type err = err + 1 endif C Close the datasets status = sfendacc(dset1) if(status.eq.-1)then print*, 'sfendacc returned error code', status err = err + 1 end if status = sfendacc(dset2) if(status.eq.-1)then print*, 'sfendacc returned error code', status err = err + 1 end if C Close the file status = sfend(sd_id) if( status .ne. 0 ) then print*, 'sfend failed' err = err + 1 endif 1000 return end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/CMakeLists.txt0000644000000000000000000001151712421456623016412 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_FORTRAN C CXX Fortran) INCLUDE_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${HDF4_MFHDF_FORTRAN_BINARY_DIR} ${HDF4_HDFSOURCE_DIR} ${HDF4_MFHDFSOURCE_DIR} ${HDF4_HDF_TESTSOURCE_DIR} ) ADD_DEFINITIONS (-DHDF) IF (HDF4_ENABLE_NETCDF) CONFIGURE_FILE (${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/ftest.f.in ${HDF4_BINARY_DIR}/ftest.f) CONFIGURE_FILE (${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/jackets.c.in ${HDF4_BINARY_DIR}/jackets.c) ENDIF (HDF4_ENABLE_NETCDF) CONFIGURE_FILE (${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/netcdf.inc.in ${HDF4_BINARY_DIR}/netcdf.inc) SET (HDF4_MFHDF_FORTRAN_XFHDRS ${HDF4_BINARY_DIR}/netcdf.inc ${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/mffunc.inc) IF (HDF4_ENABLE_NETCDF) SET (HDF4_MFHDF_LIBSRC_CSTUB_FSRCS ${HDF4_BINARY_DIR}/jackets.c ${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/mfsdf.c) ELSE (HDF4_ENABLE_NETCDF) SET (HDF4_MFHDF_LIBSRC_CSTUB_FSRCS ${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/mfsdf.c) ENDIF (HDF4_ENABLE_NETCDF) SET (HDF4_MFHDF_LIBSRC_CSTUB_FHDRS ${HDF4_MFHDFSOURCE_DIR}/hdf2netcdf.h ${HDF4_MFHDFSOURCE_DIR}/mfhdf.h ${HDF4_MFHDFSOURCE_DIR}/mfhdfi.h ) IF (HDF4_ENABLE_NETCDF) # SET (HDF4_MFHDF_LIBSRC_CSTUB_FSRCS ${HDF4_MFHDF_LIBSRC_CSTUB_FSRCS} ${HDF4_BINARY_DIR}/jackets.c) SET (HDF4_MFHDF_LIBSRC_CSTUB_FHDRS ${HDF4_MFHDF_LIBSRC_CSTUB_FHDRS} ${HDF4_BINARY_DIR}/netcdf.h) ELSE (HDF4_ENABLE_NETCDF) SET (HDF4_MFHDF_LIBSRC_CSTUB_FHDRS ${HDF4_MFHDF_LIBSRC_CSTUB_FHDRS} ${HDF4_BINARY_DIR}/hdf4_netcdf.h) ENDIF (HDF4_ENABLE_NETCDF) SET (FORTRAN_SRC_DIR ${CMAKE_CURRENT_SOURCE_DIR}) #----------------------------------------------------------------------------- # Add Main fortran library #----------------------------------------------------------------------------- ADD_LIBRARY (${HDF4_MF_FCSTUB_LIB_TARGET} ${LIB_TYPE} ${HDF4_MFHDF_LIBSRC_CSTUB_FSRCS} ${HDF4_MFHDF_LIBSRC_CSTUB_FHDRS} ${HDF4_HDF_SRC_CHDRS} ${HDF4_HDFSOURCE_DIR}/hproto_fortran.h) SET_TARGET_PROPERTIES (${HDF4_MF_FCSTUB_LIB_TARGET} PROPERTIES LINKER_LANGUAGE C) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) TARGET_LINK_LIBRARIES (${HDF4_MF_FCSTUB_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_C_PROPERTIES (${HDF4_MF_FCSTUB_LIB_TARGET} " " " ") TARGET_LINK_LIBRARIES (${HDF4_MF_FCSTUB_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_MF_FCSTUB_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_MF_FCSTUB_LIB_TARGET} ${HDF4_MF_FCSTUB_LIB_NAME} ${LIB_TYPE}) SET (HDF4_MF_FORTRAN_SRCS ${HDF4_MFHDF_FORTRAN_DIR}/mfsdff.f ) #----------------------------------------------------------------------------- ADD_LIBRARY (${HDF4_MF_FORTRAN_LIB_TARGET} ${LIB_TYPE} ${HDF4_MF_FORTRAN_SRCS}) SET (SHARED_LINK_FLAGS " ") IF (WIN32) IF (${LIB_TYPE} MATCHES "SHARED") IF (MSVC) SET (SHARED_LINK_FLAGS "/DLL /DEF:${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/mfhdf_fortrandll.def") ENDIF (MSVC) ENDIF (${LIB_TYPE} MATCHES "SHARED") ENDIF (WIN32) TARGET_FORTRAN_PROPERTIES (${HDF4_MF_FORTRAN_LIB_TARGET} " " ${SHARED_LINK_FLAGS}) SET_TARGET_PROPERTIES (${HDF4_MF_FORTRAN_LIB_TARGET} PROPERTIES LINKER_LANGUAGE Fortran) TARGET_LINK_LIBRARIES (${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_FCSTUB_LIB_TARGET} ${LINK_LIBS}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_MF_FORTRAN_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_FORTRAN_LIB_NAME} ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL ( FILES ${HDF4_MFHDF_FORTRAN_XFHDRS} DESTINATION ${HDF4_INSTALL_INCLUDE_DIR} COMPONENT headers ) #----------------------------------------------------------------------------- # Add library to CMake Install : Installs lib and cmake config info #----------------------------------------------------------------------------- IF (BUILD_SHARED_LIBS) INSTALL_TARGET_PDB (${HDF4_MF_FCSTUB_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} fortlibraries) INSTALL_TARGET_PDB (${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} fortlibraries) ENDIF (BUILD_SHARED_LIBS) INSTALL ( TARGETS ${HDF4_MF_FCSTUB_LIB_TARGET} ${HDF4_MF_FORTRAN_LIB_TARGET} EXPORT ${HDF4_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT fortlibraries ARCHIVE DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT fortlibraries RUNTIME DESTINATION ${HDF4_INSTALL_BIN_DIR} COMPONENT fortlibraries ) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/depend0000644000000000000000000000177212421456623015036 0ustar jackets.o: jackets.c jackets.o: ../../mfhdf/libsrc/local_nc.h jackets.o: ../../mfhdf/libsrc/netcdf.h jackets.o: ../../hdf/src//hlimits.h jackets.o: ../../hdf/src//hdf.h jackets.o: ../../hdf/src//hdfi.h jackets.o: ../../hdf/src//hntdefs.h jackets.o: ../../hdf/src//htags.h jackets.o: ../../hdf/src//hbitio.h jackets.o: ../../hdf/src//hcomp.h jackets.o: ../../hdf/src//herr.h jackets.o: ../../hdf/src//hproto.h jackets.o: ../../hdf/src//vg.h jackets.o: ../../hdf/src//hfile.h jackets.o: ../../hdf/src//tbbt.h mfsdf.o: mfsdf.c mfsdf.o: ../../mfhdf/libsrc/mfhdf.h mfsdf.o: ../../mfhdf/libsrc/local_nc.h mfsdf.o: ../../mfhdf/libsrc/netcdf.h mfsdf.o: ../../hdf/src//hlimits.h mfsdf.o: ../../hdf/src//hdf.h mfsdf.o: ../../hdf/src//hdfi.h mfsdf.o: ../../hdf/src//hntdefs.h mfsdf.o: ../../hdf/src//htags.h mfsdf.o: ../../hdf/src//hbitio.h mfsdf.o: ../../hdf/src//hcomp.h mfsdf.o: ../../hdf/src//herr.h mfsdf.o: ../../hdf/src//hproto.h mfsdf.o: ../../hdf/src//vg.h mfsdf.o: ../../hdf/src//hfile.h mfsdf.o: ../../hdf/src//tbbt.h libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/test_nc.nc0000644000000000000000000000134012421456623015624 0ustar CDF xytime  Description Attributesint_attrÿÿÿœÈÿÿþÔÿÿþ float_attr?€@@@ short_attr double_attr¿ð@À aÀdateðtimeôb øcØ?€@@@@€@ @À@@@Y Ñ´ Ò Ò| Òß ÓD  Ó§ Ô  Ôp ÔÓ  Õ8  Õ› !!"" Ö ##$$%%libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/Makefile.in0000644000000000000000000010232312421456623015713 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(am__include_HEADERS_DIST) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/ftest.f.in \ $(srcdir)/jackets.c.in $(srcdir)/netcdf.inc.in \ $(srcdir)/testfortran.sh.in $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am @HDF_BUILD_NETCDF_FALSE@check_PROGRAMS = hdftest$(EXEEXT) \ @HDF_BUILD_NETCDF_FALSE@ tszip$(EXEEXT) hdftest1$(EXEEXT) @HDF_BUILD_NETCDF_TRUE@check_PROGRAMS = ftest$(EXEEXT) \ @HDF_BUILD_NETCDF_TRUE@ hdftest$(EXEEXT) tszip$(EXEEXT) \ @HDF_BUILD_NETCDF_TRUE@ hdftest1$(EXEEXT) TESTS = $(TEST_SCRIPT) subdir = mfhdf/fortran SUBDIRS = ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = ftest.f jackets.c netcdf.inc testfortran.sh CONFIG_CLEAN_VPATH_FILES = am__ftest_SOURCES_DIST = ftest.f @HDF_BUILD_NETCDF_TRUE@am_ftest_OBJECTS = ftest.$(OBJEXT) ftest_OBJECTS = $(am_ftest_OBJECTS) am_hdftest_OBJECTS = hdftest.$(OBJEXT) hdftest_OBJECTS = $(am_hdftest_OBJECTS) am_hdftest1_OBJECTS = hdftest1.$(OBJEXT) hdftest1_OBJECTS = $(am_hdftest1_OBJECTS) am_tszip_OBJECTS = tszip.$(OBJEXT) tszip_OBJECTS = $(am_tszip_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(ftest_SOURCES) $(hdftest_SOURCES) $(hdftest1_SOURCES) \ $(tszip_SOURCES) DIST_SOURCES = $(am__ftest_SOURCES_DIST) $(hdftest_SOURCES) \ $(hdftest1_SOURCES) $(tszip_SOURCES) RECURSIVE_TARGETS = all-recursive check-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 uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__include_HEADERS_DIST = mffunc.inc mffunc.f90 netcdf.inc netcdf.f90 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)$(includedir)" HEADERS = $(include_HEADERS) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) 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@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog test.nc copy.nc *.hdf \ testdir/testext.hdf INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/hdf/test \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) DIST_SUBDIRS = examples @HDF_BUILD_NETCDF_FALSE@include_HEADERS = mffunc.inc mffunc.f90 ############################################################################# ############################################################################# @HDF_BUILD_NETCDF_TRUE@include_HEADERS = netcdf.inc netcdf.f90 mffunc.inc mffunc.f90 TEST_SCRIPT = testfortran.sh check_SCRIPTS = testfortran.sh @HDF_BUILD_NETCDF_TRUE@ftest_SOURCES = ftest.f @HDF_BUILD_NETCDF_TRUE@ftest_LDADD = $(top_builddir)/hdf/test/forsupff.o $(top_builddir)/hdf/test/forsupf.o \ @HDF_BUILD_NETCDF_TRUE@ $(LIBMFHDF) $(LIBHDF) @LIBS@ @HDF_BUILD_NETCDF_TRUE@ftest_DEPENDENCIES = $(top_builddir)/hdf/test/forsupff.o $(top_builddir)/hdf/test/forsupf.o \ @HDF_BUILD_NETCDF_TRUE@ $(LIBMFHDF) $(LIBHDF) hdftest_SOURCES = hdftest.f hdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdftest_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) hdftest1_SOURCES = hdftest1.f hdftest1_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdftest1_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) tszip_SOURCES = tszip.f tszip_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ tszip_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) SUFFIXES = .inc .f90 DISTCLEANFILES = ftest.f jackets.c netcdf.inc mffunc.f90 netcdf.f90 # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-recursive .SUFFIXES: .SUFFIXES: .inc .f90 .f .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/fortran/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/fortran/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): ftest.f: $(top_builddir)/config.status $(srcdir)/ftest.f.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ jackets.c: $(top_builddir)/config.status $(srcdir)/jackets.c.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ netcdf.inc: $(top_builddir)/config.status $(srcdir)/netcdf.inc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ testfortran.sh: $(top_builddir)/config.status $(srcdir)/testfortran.sh.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 ftest$(EXEEXT): $(ftest_OBJECTS) $(ftest_DEPENDENCIES) $(EXTRA_ftest_DEPENDENCIES) @rm -f ftest$(EXEEXT) $(F77LINK) $(ftest_OBJECTS) $(ftest_LDADD) $(LIBS) hdftest$(EXEEXT): $(hdftest_OBJECTS) $(hdftest_DEPENDENCIES) $(EXTRA_hdftest_DEPENDENCIES) @rm -f hdftest$(EXEEXT) $(F77LINK) $(hdftest_OBJECTS) $(hdftest_LDADD) $(LIBS) hdftest1$(EXEEXT): $(hdftest1_OBJECTS) $(hdftest1_DEPENDENCIES) $(EXTRA_hdftest1_DEPENDENCIES) @rm -f hdftest1$(EXEEXT) $(F77LINK) $(hdftest1_OBJECTS) $(hdftest1_LDADD) $(LIBS) tszip$(EXEEXT): $(tszip_OBJECTS) $(tszip_DEPENDENCIES) $(EXTRA_tszip_DEPENDENCIES) @rm -f tszip$(EXEEXT) $(F77LINK) $(tszip_OBJECTS) $(tszip_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c .f.o: $(F77COMPILE) -c -o $@ $< .f.obj: $(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .f.lo: $(LTF77COMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs 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) # 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. $(RECURSIVE_TARGETS) $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ 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" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done cscopelist-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) 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; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @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_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-recursive all-am: Makefile $(HEADERS) all-local installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(includedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 \ mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-local distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-includeHEADERS 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: installcheck-local maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-includeHEADERS .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) check-am \ cscopelist-recursive ctags-recursive install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am all-local check check-TESTS check-am clean \ clean-checkPROGRAMS clean-generic clean-libtool cscopelist \ cscopelist-recursive ctags ctags-recursive distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-local distclean-tags distdir dvi dvi-am 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-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installcheck-local installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf pdf-am ps ps-am tags \ tags-recursive uninstall uninstall-am uninstall-includeHEADERS testdir: -mkdir testdir .inc.f90: sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $< > $*.f90 # Recurse into examples directory for examples tests. installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done # Automake's distclean won't remove directories, so we can add an additional # hook target which will do so during 'make distclean'. distclean-local: -rm -rf testdir # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/hdftest.f0000644000000000000000000022464412421456623015471 0ustar C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C Copyright by The HDF Group. * C Copyright by the Board of Trustees of the University of Illinois. * C All rights reserved. * C * C This file is part of HDF. The full HDF copyright notice, including * C terms governing use, modification, and redistribution, is contained in * C the files COPYING and Copyright.html. COPYING can be found at the root * C of the source code distribution tree; Copyright.html can be found at * C http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C access to either file, you may request a copy from help@hdfgroup.org. * C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C Testing the Fortran interface for the multiple SD routines C program hdftest implicit none include 'mffunc.inc' integer hxsdir, hxscdir external hxsdir, hxscdir integer fid1, fid2 integer fid_empty integer sds1, sds2, sds3, sds4 integer sds_empty, index_empty, flag_empty integer dim1, dim2 integer access, nt, rank, stat, i, err integer err_chunk, err_char_chunk, err_compress integer*4 ival, ivals(1000) integer dims(10), start(10), end(10), stride(10), count, nattr integer idims(10) integer num, ref, j real*4 fval real*8 cal, cale, ioff, ioffe real*8 eps character*50 name, l, u, f, c character cdata(6,4), icdata(6,4), cfill, icfill character catt(2), icatt(2) integer*4 i32(2), ii32(2), max32, min32 integer*4 natt(2), inatt(2) integer SD_UNLIMITED, SD_DIMVAL_BW_INCOMP, DFNT_INT32 integer DFNT_FLOAT32, DFNT_CHAR8 integer SD_DIMVAL_BW_COMP, SD_FILL, SD_NOFILL parameter (SD_UNLIMITED = 0, + SD_DIMVAL_BW_INCOMP = 0, + SD_DIMVAL_BW_COMP = 1, + DFNT_INT32 = 24, + DFNT_FLOAT32 = 5, + DFNT_CHAR8 = 4, + SD_FILL = 0, + SD_NOFILL = 256) DATA cfill/'@'/, icfill/' '/ DATA catt/'U','S'/, icatt/' ',' '/ DATA natt/10,20/, inatt/0,0/ DATA i32/15,25/, ii32/0,0/ err=0 C C--- Create a file with an empty SDS C fid_empty = sfstart('test_empty.hdf', 4) if(fid_empty.eq.-1) then print *, 'sfstart returned bad ID' err = err + 1 endif C C--- Create an empty SDS C dims(1) = 4 dims(2) = 9 nt = DFNT_INT32 rank = 2 sds_empty = sfcreate(fid_empty, 'Empty_SDS', nt, rank, dims) if(sds_empty.eq.-1) then print *, 'SDcreate Empty returned bad ID', sds_empty err = err + 1 endif stat = sfendacc(sds_empty) if(stat.ne.0) then print *, 'SDendaccess returned', stat err = err + 1 endif stat = sfend(fid_empty) if(stat.ne.0) then print *, 'SDend returned', stat err = err + 1 endif C create a new file err = 0 eps = 0.0001 access = 4 fid1 = sfstart('test1.hdf', access) if(fid1.eq.-1) then print *, 'sfstart returned bad ID' err = err + 1 endif dims(1) = 4 dims(2) = 9 nt = DFNT_INT32 rank = 2 sds1 = sfcreate(fid1, 'Alpha', nt, rank, dims) if(sds1.eq.-1) then print *, 'SDcreate #1 returned bad ID', sds1 err = err + 1 endif dims(1) = 2 dims(2) = 5 dims(3) = 15 nt = DFNT_FLOAT32 rank = 3 sds2 = sfcreate(fid1, 'Beta[float32]', nt, rank, dims) if(sds2.eq.-1) then print *, 'SDcreate #2 returned bad ID', sds2 err = err + 1 endif ival = 14 stat = sfsfill(sds1, ival) if(stat.ne.0) then print *, 'Set fill returned', stat err = err + 1 endif max32 = 10 min32 = 1 stat = sfsrange(sds1, max32, min32) if(stat.ne.0) then print *, 'Set range returned', stat err = err + 1 endif max32 = 0 min32 = 0 do 100 i = 1, 10 ivals(i) = i 100 continue start(1) = 0 start(2) = 0 stride(1) = 1 stride(2) = 1 end(1) = 3 end(2) = 3 stat = sfwdata(sds1, start, stride, end, ivals) if(stat.ne.0) then print *, 'Write data returned', stat err = err + 1 endif fval = -14.25 stat = sfsfill(sds2, fval) if(stat.ne.0) then print *, 'Set fill returned', stat err = err + 1 endif start(1) = 1 start(2) = 1 stride(1) = 1 stride(2) = 1 end(1) = 3 end(2) = 3 stat = sfrdata(sds1, start, stride, end, ivals) if(stat.ne.0) then print *, 'Read data returned', stat err = err + 1 endif if (ivals(1).ne.5) then err = err + 1 print *, 'was expecting 5 got', ivals(1) endif if(err.ne.0) print *, 'Before ReadVerify err = ', err if (ivals(2).ne.6) then err = err + 1 print *, 'was expecting 6 got', ivals(2) endif if (ivals(3).ne.14) then err = err + 1 print *, 'was expecting 14 got', ivals(3) endif if (ivals(4).ne.8) then err = err + 1 print *, 'was expecting 8 got', ivals(4) endif if (ivals(5).ne.9) then err = err + 1 print *, 'was expecting 9 got', ivals(5) endif if (ivals(6).ne.14) then err = err + 1 print *, 'was expecting 14 got', ivals(6) endif if (ivals(7).ne.14) then err = err + 1 print *, 'was expecting 14 got', ivals(7) endif if (ivals(8).ne.14) then err = err + 1 print *, 'was expecting 14 got', ivals(8) endif if (ivals(9).ne.14) then err = err + 1 print *, 'was expecting 14 got', ivals(9) endif if(err.ne.0) print *, 'After ReadVerify err = ', err nt = DFNT_INT32 stat = sfsnatt(sds2, 'TestAttr', nt, 3, ivals) if(stat.ne.0) then print *, 'Set numeric attr returned', stat err = err + 1 endif dim1 = sfdimid(sds2, 1) if(dim1.ne.327683) then print *, 'Dim id returned', dim1 err = err + 1 endif stat = sfsdmname(dim1, 'TestDim') if(stat.ne.0) then print *, 'Set dim name returned', stat err = err + 1 endif stat = sfsdmstr(dim1, 'dA', 'dBB', 'dCCC') if(stat.ne.0) then print *, 'Set dim strs returned', stat err = err + 1 endif do 110 i = 1, 10 ivals(i) = 10 * i + i 110 continue nt = DFNT_INT32 count = 5 stat = sfsdscale(dim1, count, nt, ivals) if(stat.ne.0) then print *, 'Set dims scales returned', stat err = err + 1 endif stat = sfsdtstr(sds1, 'lxxx', 'uyyy', 'fzzz', 'caaa') if(stat.ne.0) then print *, 'Set data strings returned', stat err = err + 1 endif stat = sffinfo(fid1, num, nattr) if(stat.ne.0.or.num.ne.3) then print *, 'File info returned wrong values', stat, num err = err + 1 endif cal = 10.1 cale = 20.1 ioff = 40.1 ioffe = 50.1 C why 16? 16 is not a legal HDF NType value. nt = 16 stat = sfscal(sds2, cal, cale, ioff, ioffe, nt) if(stat.ne.0) then print *, 'Set calibration returned', stat err = err + 1 endif stat = sfn2index(fid1, 'Alpha') if(stat.ne.0) then print *, 'Index of Alpha data set is wrong', stat err = err + 1 endif ref = sfid2ref(sds1) if(ref.eq.0) then print *, 'sfidtoref failed' err = err + 1 endif stat = sfref2index(fid1, ref) if(stat.ne.0) then print *, 'mapping from ref to index failed', stat err = err + 1 endif stat = sfn2index(fid1, 'Bogus') if(stat.ne.(-1)) then print *, 'Found a bogus data set with index', stat err = err + 1 endif nt = DFNT_CHAR8 stat = sfscatt(fid1, 'Globulator', nt, 12, 'Howdy Sailor') if(stat.ne.0) then print *, 'Set attr returned', stat err = err + 1 endif nt = DFNT_INT32 stat = sfsnatt(fid1, 'Numeric', nt, 2, i32) if(stat.ne.0) then print *, 'Set attr returned', stat err = err + 1 endif stat = sfendacc(sds1) if(stat.ne.0) then print *, 'SDendaccess returned', stat err = err + 1 endif stat = sfend(fid1) if(stat.ne.0) then print *, 'SDend returned', stat err = err + 1 endif C C OK, let's open it back up and take a look at what we've done C fid_empty = sfstart('test_empty.hdf', 3) if(fid_empty.eq.-1) then print *, 'Reopen returned', fid_empty err = err + 1 endif index_empty = sfn2index(fid_empty,'Empty_SDS') sds_empty= sfselect(fid_empty, index_empty) if(sds_empty.eq. -1) then print *, 'Select returned', sds_empty err = err + 1 endif stat = sfchempty(sds_empty, flag_empty) if(stat.ne. 0 .or. flag_empty. ne. 1) then print*, 'sfchempty returned wrong flag, should be 1)' err = err +1 endif stat = sfendacc(sds_empty) if(stat.ne.0) then print *, 'SDendaccess returned', stat err = err + 1 endif stat = sfend(fid_empty) if(stat.ne.0) then print *, 'SDend returned', stat err = err + 1 endif fid2 = sfstart('test1.hdf', 3) if(fid2.eq.-1) then print *, 'Reopen returned', fid2 err = err + 1 endif sds3 = sfselect(fid2, 0) if(sds3.eq. -1) then print *, 'Select returned', sds3 err = err + 1 endif stat = sfchempty(sds3, flag_empty) if(stat.ne. 0 .or. flag_empty. ne. 0) then print*, 'sfchempty returned wrong flag, should be 0)' err = err +1 endif stat = sfginfo(sds3, name, rank, idims, nt, nattr) if(stat.ne.0) then print *, 'Get info returned ', stat err = err + 1 endif if(nt.ne.DFNT_INT32) then print *, 'Incorrect number type ', nt err = err + 1 endif if(rank.ne.2) then print *, 'Incorrect rank ', rank err = err + 1 endif if(idims(1).ne.4) then print *, 'Incorrect Dim(1) = ', idims(1) err = err + 1 endif if(idims(2).ne.9) then print *, 'Incorrect Dim(2) = ', idims(2) err = err + 1 endif if(nattr.ne.6) then print *, 'Wrong number of attributes returned', nattr err = err + 1 endif print *, 'name = ', name stat = sfgrange(sds3, max32, min32) if(stat.ne.0) then print *, 'Get range returned', stat err = err + 1 endif if(max32.ne.10) then print *, 'Max from GetRange ', max32 err = err + 1 endif if(min32.ne.1) then print *, 'Min from GetRange ', min32 err = err + 1 endif if(err.ne.0) print *, 'Current error count ', err stat = sfgfill(sds3, max32) if(stat.ne.0) then print *, 'Get fillvalue returned', stat err = err + 1 endif if(max32.ne.14) then print *, 'Incorrect FillValue ', max32 err = err + 1 endif sds4 = sfselect(fid2, 1) if(sds4.eq. -1) then print *, 'Select #4 returned', sds4 err = err + 1 endif dim2 = sfdimid(sds4, 1) if(dim2.eq. -1) then print *, 'Get dim id #2 returned', dim2 err = err + 1 endif stat = sfgdinfo(dim2, name, rank, nt, nattr) if(stat.ne.0) then print *, 'Get dim info returned', stat err = err + 1 endif if(nt.ne.DFNT_INT32) err = err + 1 if(rank.ne.5) err = err + 1 print *, 'name = ', name stat = sfgainfo(fid2, 0, name, nt, rank) if(stat.ne.0) then print *, 'Attr info returned', stat err = err + 1 endif if(nt.ne.4) err = err + 1 if(rank.ne.12) err = err + 1 print *, 'name = ', name cal = 0 cale = 0 ioff = 0 ioffe = 0 nt = 0 stat = sfgcal(sds4, cal, cale, ioff, ioffe, nt) if(stat.ne.0) then print *, 'Get cal returned', stat err = err + 1 endif if(abs(cal - 10.1) .gt. eps) err = err + 1 if(abs(cale - 20.1) .gt. eps) err = err + 1 if(abs(ioff - 40.1) .gt. eps) err = err + 1 if(abs(ioffe - 50.1) .gt. eps) err = err + 1 if(nt.ne.16) err = err + 1 do 120 i = 1, 10 ivals(i) = 0 120 continue stat = sfgdscale(dim2, ivals) if(stat.ne.0) then print *, 'Get scales returned', stat err = err + 1 endif if (ivals(1).ne.11) err = err + 1 if (ivals(2).ne.22) err = err + 1 if (ivals(3).ne.33) err = err + 1 if (ivals(4).ne.44) err = err + 1 if (ivals(5).ne.55) err = err + 1 stat = sfgdtstr(sds3, l, u, f, c, 50) if(stat.ne.0) then print *, 'Get data strs returned', stat err = err + 1 endif print *, 'label = ', l print *, 'unit = ', u print *, 'format = ', f print *, 'coordsys = ', c stat = sfgdmstr(dim2, l, u, f, 50) if(stat.ne.0) then print *, 'Get dim strs returned', stat err = err + 1 endif print *, 'label = ', l print *, 'unit = ', u print *, 'format = ', f stat = sfrcatt(fid2, 0, name) if(stat.ne.0) then print *, 'Attr read returned', stat err = err + 1 endif print *, 'values = ', name stat = sfrnatt(fid2, 1, ii32) if(stat.ne.0) then print *, 'Attr read returned', stat err = err + 1 endif if ((ii32(1) .ne. 15) .or. (ii32(2) .ne. 25)) then print *, 'Numeirc attr read erro: ' print *, ' should be 15 25, get ',ii32(1), ii32(2) err = err + 1 endif C C Testing External Element functions: sfsextf, hxsdir, hxscdir. C First set the external create directory to "testdir". C Set dataset sds3 to store in external file. C Try read it back (should fail the first time). C Set locating directory to "nosuch:testdir". C Read again. Should succeed this time. C stat = hxscdir('testdir') if(stat.ne.0) then print *, 'HX set create dir (hxscdir) returned', stat err = err + 1 endif stat = sfsextf(sds3, 'testext.hdf', 0) if(stat.ne.0) then print *, 'set external file (sfsextf) returned', stat err = err + 1 endif C C Close and reopen sds3 so that data is flushed to the ext. file C stat = sfendacc(sds3) if(stat.ne.0) then print *, 'sfendacc returned', stat err = err + 1 endif sds3 = sfselect(fid2, 0) if(sds3.eq.-1) then print *, 'Select returned', sds3 err = err + 1 endif start(1) = 1 start(2) = 1 stride(1) = 1 stride(2) = 1 end(1) = 3 end(2) = 3 stat = sfrdata(sds3, start, stride, end, ivals) C C Should fail first time. C if(stat.ne.-1) then print *, 'Read data (sfrdata) returned', stat err = err + 1 endif stat = hxsdir('nosuch|testdir') if(stat.ne.0) then print *, 'HX set dir (hxscdir) returned', stat err = err + 1 endif stat = sfrdata(sds3, start, stride, end, ivals) C C Should succeed this time. C if(stat.ne.0) then print *, 'Read data (sfrdata) returned', stat err = err + 1 endif if (ivals(1).ne.5) then err = err + 1 print *, 'was expecting 5 got', ivals(1) endif stat = sfendacc(sds3) if(stat.ne.0) then print *, 'sfendacc returned', stat err = err + 1 endif stat = sfendacc(sds4) if(stat.ne.0) then print *, 'sfendacc returned', stat err = err + 1 endif stat = sfend(fid2) if(stat.ne.0) then print *, 'SDend returned', stat err = err + 1 endif C test sfsdmvc and sfisdmvc -- dimval backward compatible fid1 = sfstart('test2.hdf', 4) if(fid1 .lt. 1) then print *, 'sfstart returned', fid1 err = err + 1 endif dims(1) = 6 dims(2) = 0 nt = DFNT_INT32 rank = 2 sds1 = sfcreate(fid1, 'ncomp', nt, rank, dims) if (sds1 .eq. -1) then print *, 'sfcreate returned', sds1 err = err + 1 endif dim1 = sfdimid(sds1, 0) if (dim1 .eq. -1) then print *, 'sfdimid returned', dim1 err = err + 1 endif stat = sfsdmvc(dim1, 0) if(stat .ne. 0) then print *, 'sfsdmvc returned', stat err = err + 1 endif dim2 = sfdimid(sds1, 1) stat = sfsdmvc(dim2, 0) if(stat .ne. 0) then print *, 'sfsdmvc returned', stat err = err + 1 endif do 140 i=1, 6 ivals(i) = i*5 140 continue stat = sfsdscale(dim1, 6, DFNT_INT32, ivals) if(stat .ne. 0) then print *, 'sfsdscale returned', stat err = err + 1 endif start(1)=0 start(2)=0 stride(1) = 1 stride(2) = 1 end(1)=6 end(2)=4 do 160 i=1, 24 ivals(i) = i 160 continue stat = sfwdata(sds1, start, stride, end, ivals) if (stat .ne. 0) then print *, 'sfwdata returned', stat err = err + 1 endif stat = sfendacc(sds1) if(stat .ne. 0) then print *, 'sfendacc returned', stat err = err + 1 endif stat = sfend(fid1) if(stat .ne. 0) then print *, 'SDend returned', stat err = err + 1 endif C let's open it back up and take a look at what we've done C fid2 = sfstart('test2.hdf', 3) if(fid2 .lt. 0) then print *, 'Reopen returned', fid2 err = err + 1 endif stat = sfn2index(fid2, 'ncomp') if (stat .lt. 0) then print *, 'sfn2index returned', stat err = err + 1 endif sds3 = sfselect(fid2, stat) if (sds3 .eq. -1) then print *, 'sfselect returned', sds3 err = err + 1 endif stat = sfginfo(sds3, name, rank, idims, nt, nattr) if (stat .ne. 0) then print *, 'sfginfo returned', stat err = err + 1 endif if ((rank .ne. 2) .or. (idims(1) .ne. 6) .or. + (idims(2) .ne. 4) .or. (nt .ne. DFNT_INT32)) then print *, 'error in sfginfo' err = err + 1 endif dim2=sfdimid(sds3,1) stat = sfgdinfo(dim2, name, dims(2), nt, nattr) if ((dims(2) .ne. SD_UNLIMITED) .or. (nt .ne. 0 )) then print *, '1st sfgdinfo error', stat, dims(2), nt err = err + 1 endif dim1=sfdimid(sds3,0) stat = sfgdinfo(dim1, name, dims(1), nt, nattr) if ((dims(1) .ne. 6) .or. (nt .ne. DFNT_INT32 )) then print *, '2nd sfgdinfo error', stat, dims(1), nt err = err + 1 endif stat = sfrdata(sds3, start, stride, end, ivals) if (stat .ne. 0) then print *, 'sfrdata returned', stat err = err + 1 endif do 180 i=1, 24 if (ivals(i) .ne. i) then print *, 'wrong value: should be ',i,' got ',ivals(i) err = err + 1 endif 180 continue stat = sfisdmvc(dim1) if (stat .ne. 0) then print *, 'sfisdmvc returned', stat err = err + 1 endif stat = sfsdmvc(dim1, 1) stat = sfendacc(sds3) if (stat .ne. 0) then print *, 'sfendacc returned', stat err = err + 1 endif stat = sfend(fid2) if (stat .ne. 0) then print *, 'sfend returned', stat err = err + 1 endif C open one last time to check that NDG ref has been constant C check SDsetdimval_compat fid1 = sfstart('test2.hdf', 3) if (fid1 .eq. -1) then print *, 'sfstart returned', stat err = err + 1 endif C read back dimval_non_compat stat = sfn2index(fid1, 'ncomp') if (stat .lt. 0) then print *, 'sfn2index returned', stat err = err + 1 endif sds2 = sfselect(fid1, stat) if (sds2 .eq. -1) then print *, 'sfselect returned', sds2 err = err + 1 endif stat = sfginfo(sds2, name, rank, idims, nt, nattr) if (stat .ne. 0) then print *, 'sfginfo returned', stat err = err + 1 endif if ((rank .ne. 2) .or. (idims(2) .ne. 4) .or. + (idims(1) .ne. 6) .or. (nt .ne. DFNT_INT32)) then print *, 'error in sfginfo' err = err + 1 endif dim1=sfdimid(sds2,0) stat = sfgdinfo(dim1, name, dims(1), nt, nattr) if ((dims(1) .ne. 6) .or. (nt .ne. DFNT_INT32 )) then print *, '3rd sfgdinfo error', stat, dims(1), nt err = err + 1 endif stat = sfisdmvc(dim1) if (stat .ne. 1) then print *, 'sfisdmvc returned', stat err = err + 1 endif stat = sfendacc(sds2) if (stat .lt. 0) then print *, 'sfendacc returned', stat err = err + 1 endif stat = sfend(fid1) if (stat .lt. 0) then print *, 'sfend returned', stat err = err + 1 endif C Test char attr, char fill value and char data routines C sfscatt,sfrnatt,sfsnatt, sfrnatt,sfwcdata,sfrcdata C sfscfill, sfgcfill fid1 = sfstart('test2.hdf', 4) if(fid1 .lt. 1) then print *, 'sfstart returned', fid1 err = err + 1 endif dims(1) = 6 dims(2) = 0 nt = DFNT_CHAR8 rank = 2 sds1 = sfcreate(fid1, 'char_type', nt, rank, dims) if (sds1 .eq. -1) then print *, 'sfcreate returned', sds1 err = err + 1 endif C Set char fill value stat = sfscfill(sds1, cfill) if (stat .ne. 0) then print *, 'sfscfill returned', stat err = err + 1 endif start(1) = 0 start(2) = 1 stride(1) = 1 stride(2) = 1 end(1) = 6 end(2) = 2 C create the char data do 195 i=1,4 do 190 j=1,6 cdata(j,i) = 'C' icdata(j,i) = ' ' 190 continue 195 continue C Write a slab of char data stat = sfwcdata(sds1, start, stride, end, cdata) if (stat .ne. 0) then print *, 'sfwdata returned', stat err = err + 1 endif C Set char attr stat = sfscatt(sds1, 'CharAttr',nt, 2, catt) if(stat.ne.0) then print *, 'sfscatt returned', stat err = err + 1 endif C Set numeric attr nt = DFNT_INT32 stat = sfsnatt(sds1, 'NumericAttr',nt, 2, natt) if(stat.ne.0) then print *, 'sfsnatt returned', stat err = err + 1 endif stat = sfendacc(sds1) if(stat .ne. 0) then print *, 'sfendacc returned', stat err = err + 1 endif C Close file stat = sfend(fid1) if(stat .ne. 0) then print *, 'SDend returned', stat err = err + 1 endif C read back fid1 = sfstart('test2.hdf', 3) if(fid1 .lt. 1) then print *, 'sfstart returned', fid1 err = err + 1 endif stat = sfn2index(fid1, 'char_type') if (stat .lt. 0) then print *, 'sfn2index returned', stat err = err + 1 endif sds2 = sfselect(fid1, stat) if (sds2 .eq. -1) then print *, 'sfselect returned', sds2 err = err + 1 endif stat = sfginfo(sds2, name, rank, idims, nt, nattr) if (stat .ne. 0) then print *, 'sfginfo returned', stat err = err + 1 endif start(1) = 0 start(2) = 0 stride(1) = 1 stride(2) = 1 end(1) = 6 end(2) = 3 C read char data and char fill stat = sfrcdata(sds2, start, stride, end, icdata) do 200 i=1,6 if (icdata(i,1) .ne. cfill) then print *, 'error in read c_fill' err = err + 1 endif 200 continue do 250 i=2,3 do 230 j=1,6 if (icdata(j,i) .ne. 'C') then print *, 'error in sfrcdata' err = err + 1 endif 230 continue 250 continue C read char fillvalue stat = sfgcfill(sds2, icfill) if ((stat .eq. -1) .or. (icfill .ne. cfill)) then print *, 'sfgcfill returned', sds2 err = err + 1 endif C read char attr stat = sffattr(sds2, 'CharAttr') if (stat .eq. -1) then print *, 'sffattr returned', sds2 err = err + 1 endif stat = sfrcatt(sds2, stat, icatt) if ((icatt(1) .ne. catt(1)) .or. (icatt(2) .ne. catt(2))) then print *, 'sfrcatt returned', sds2 err = err + 1 endif C read numeric attr stat = sffattr(sds2, 'NumericAttr') if (stat .eq. -1) then print *, 'sffattr returned', sds2 err = err + 1 endif stat = sfrnatt(sds2, stat, inatt) if ((inatt(1) .ne. natt(1)) .or. (inatt(2) .ne. natt(2))) then print *, 'sfrnatt returned', inatt(1), inatt(2) err = err + 1 endif stat = sfendacc(sds2) if(stat .ne. 0) then print *, 'sfendacc returned', stat err = err + 1 endif C Close file stat = sfend(fid1) if(stat .ne. 0) then print *, 'SDend returned', stat err = err + 1 endif C Test set fill mode fid1 = sfstart('test1.hdf', 3) nt = DFNT_INT32 rank = 2 dims(1) = 6 dims(2) = 5 sds1 = sfcreate(fid1, 'FIXED1', nt,rank,dims) ival = -300 do 400 i = 1, 30 ivals(i) = i + 100 400 continue stat = sfsfill(sds1, ival) if(stat .ne. 0) then print *, 'sfsnatt returned', stat err = err + 1 endif stat = sfsflmd(fid1, SD_NOFILL) if(stat .ne. SD_FILL) then print *, 'sfsflmd returned', stat err = err + 1 endif stat = sfendacc(sds1) if(stat .ne. 0) then print *, 'sfendacc returned', stat err = err + 1 endif i = sfn2index(fid1,'FIXED1') sds1 = sfselect(fid1, i) if(sds1 .lt. 0) then print *, 'sfselect returned', sds1 err = err + 1 endif start(1) = 0 start(2) = 2 stride(1) = 1 stride(2) = 1 end(1) = 6 end(2) = 1 stat = sfsflmd(fid1, SD_FILL) if (stat .ne. SD_NOFILL) then print *, 'sfsflmd returned', stat err = err + 1 endif stat = sfwdata(sds1,start, stride, end, ivals) if (stat .eq. -1) then print *, 'sfwdata returned', stat err = err + 1 endif stat = sfendacc(sds1) C create a new fixed size SDS, srite the 3rd rec NOFILL. C then set to SD_FILL and write the 5th rec. sds1 = sfcreate(fid1, 'FIXED_SDS', nt,rank,dims) stat = sfsfill(sds1, ival) stat = sfsflmd(fid1, SD_NOFILL) if(stat .ne. SD_FILL) then print *, 'sfsflmd returned', stat err = err + 1 endif stat = sfwdata(sds1,start, stride, end, ivals) if (stat .eq. -1) then print *, 'sfwdata returned', stat err = err + 1 endif stat = sfendacc(sds1) stat = sfend(fid1) C open again, change fillmode and write the 5th rec fid1 = sfstart('test1.hdf', 3) i = sfn2index(fid1, 'FIXED_SDS') sds1 = sfselect(fid1, i) stat = sfsflmd(fid1, SD_FILL) start(2) = 4 stat = sfwdata(sds1,start,stride,end,ivals) stat = sfendacc(sds1) stat = sfend(fid1) C read back FIXED_SDS fid1 = sfstart('test1.hdf', 3) i = sfn2index(fid1, 'FIXED_SDS') sds1 = sfselect(fid1, i) start(1) = 0 start(2) = 0 end(1) = 6 end(2) = 5 stat = sfrdata(sds1,start,stride,end,ivals) stat = sfendacc(sds1) do 450 i=13,18 if (ivals(i) .ne. (100+(i-12))) then print *,'wrong value: should be ', 100+(i-12) print *,' get ', ivals(i) err = err+1 endif if (ivals(i+12) .ne. (100+(i-12))) then print *,'wrong value: should be ', 100+(i-12) print *,' get ', ivals(i+12) err = err+1 endif 450 continue do 500 i=19,24 if (ivals(i) .eq. ival) then print *,'Should not be ',ival, ' got ', ivals(i) err = err+1 endif 500 continue C read FIXED1 i = sfn2index(fid1, 'FIXED1') sds1 = sfselect(fid1, i) stat = sfrdata(sds1,start,stride,end,ivals) stat = sfendacc(sds1) do 510 i=13,18 if (ivals(i) .ne. (100+(i-12))) then print *,'wrong value: should be ', 100+(i-12) print *,' get ', ivals(i) err = err+1 endif 510 continue do 520 i=19,24 if (ivals(i) .ne. ival) then print *,'Should be ',ival, ' got ', ivals(i) err = err+1 endif 520 continue stat = sfend(fid1) C test unlimited sds fid1 = sfstart('test1.hdf', 3) if (fid1 .eq. -1) then print *,'Open test1.hdf failed.' err = err+1 endif dims(1) = 6 dims(2) = SD_UNLIMITED sds1=sfcreate(fid1,'UNLIMITED_SDS',DFNT_INT32,rank,dims) if (sds1 .eq. -1) then print *,'create UNLIMITED_SDS failed. ' err = err+1 endif ival = -300 do 550 i=1,24 ivals(i) = i 550 continue stat = sfsfill(sds1, ival) stat = sfsflmd(fid1, SD_NOFILL) if (stat .ne. SD_FILL) then print *,'Should be ',SD_FILL, ' got ', stat err = err+1 endif start(1) = 0 start(2) = 2 end(1) = 6 end(2) = 1 stat = sfwdata(sds1,start, stride, end, ivals) if (stat .eq. -1) then print *,'write UNLIMITED_SDS failed. ' err = err+1 endif stat = sfendacc(sds1) stat = sfend(fid1) C open again, write the 5th rec fid1 = sfstart('test1.hdf', 3) i = sfn2index(fid1, 'UNLIMITED_SDS') sds1 = sfselect(fid1, i) stat = sfsflmd(fid1, SD_FILL) start(2) = 4 stat = sfwdata(sds1,start,stride,end, ivals) stat = sfendacc(sds1) stat = sfend(fid1) C read back fid1 = sfstart('test1.hdf', 3) i = sfn2index(fid1, 'UNLIMITED_SDS') sds1 = sfselect(fid1, i) start(1) = 0 start(2) = 0 end(1) = 6 end(2) = 5 stat = sfrdata(sds1,start,stride,end,ivals) stat = sfendacc(sds1) do 600 i=13,18 if (ivals(i) .ne. (i-12)) then print *,'wrong value: should be ', (i-12) print *,' get ', ivals(i) err = err+1 endif if (ivals(i+12) .ne. (i-12)) then print *,'wrong value: should be ', (i-12) print *,' get ', ivals(i+12) err = err+1 endif 600 continue do 650 i=19,24 if (ivals(i) .ne. ival) then print *,'Should be ',ival, ' got ', ivals(i) err = err+1 endif 650 continue stat = sfend(fid1) C C C Call three subroutines: C C test_chunk (err_chunk) - tests fortran chunking functions C test_char_chunk (err_char_chunk) - tests fortran char chunking C functions C test_compress(err_compress) - tests compression function with C different compression types C C EIP 1/6/98 C C err_chunk = 0 call test_chunk ( err_chunk ) err = err + err_chunk C err_char_chunk = 0 call test_char_chunk( err_char_chunk ) err = err + err_char_chunk C err_compress = 0 call test_compress( err_compress ) C err = err + err_compress print *, 'Total errors : ', err end subroutine test_chunk( err_chunk ) implicit none C C------- Begin Variables declarations ----------------------------------- C integer N_COMP_TYPES, N_COMP_ARG parameter (N_COMP_TYPES = 5, N_COMP_ARG = 4) integer sd_id(N_COMP_TYPES), . sds_id(N_COMP_TYPES), . sds_index(N_COMP_TYPES) integer RANK, comp_type, c_out integer comp_arg(N_COMP_ARG) integer comp_prm_out(N_COMP_ARG) integer comp_type_out(N_COMP_TYPES) integer comp_typesd integer d_dims(2) integer ch_dims(2),ch_dims_out(2), start_dims(2) integer start(2), stride(2), edges(2) integer status, fill_value integer maxcache, flags integer err_chunk integer n,m, n_part, m_part integer n_start, m_start, n_stride, m_stride integer nc, mc, n_nc, n_mc integer i, j, k, l, lb, kb, kl, kj integer i_comp integer mod1, mod2 character*12 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) C C SDS functions declarations C C integer sfstart, sfcreate, sfendacc, sfend, C . sfn2index, sfselect, sfgcompress, C . sfsfill, sfschnk, sfscchnk, sfwchnk, C . sfgichnk, sfrchnk, sfwdata, sfrdata include 'mffunc.inc' C C Initial data declarations( change if you which to test larger arrays ) C C Data array dimensions n and m and RANK C parameter (n = 9, m = 4, RANK = 2) C C Part data dimensions n_part, m_part C parameter (n_part = 5, m_part = 2) C C Start coordinates of part_data C parameter (n_start = 2, m_start = 1) C C Stride in each dimension C parameter (n_stride = 1, m_stride = 1) C C Chunk dimensions nc and mc C parameter (nc = 3, mc = 2) C C Dimensions of "chunk matrix" n_nc and n_mc. C Note if n is multiple of nc or m is multiple C of mc we need smaller dimensions ( by one) parameter (n_nc = n/nc + 1, n_mc = m/mc + 1) C C Actual size of chunk matrix ( will be calculated latera ) C integer n_nc_a, n_mc_a C C Data declaration C integer*4 data(n,m), . chunk(nc,mc), . chunk_out(nc,mc), . chunk_data(nc,mc,n_nc,n_mc) C C Buffers to hold part of the data when we read data back C integer*4 part_data(n_part,m_part) C C HDF parameters initialization C C C Read/Write parameters C integer DFACC_CREATE, . DFACC_WRITE, . DFACC_READ parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) C C Data type parameters C C integer DATA_TYPE integer DFNT_CHAR, . DFNT_INT16, . DFNT_INT32, . DFNT_FLOAT32, . DFNT_FLOAT64 parameter (DFNT_CHAR = 4, . DFNT_INT16 = 22, . DFNT_INT32 = 24, . DFNT_FLOAT32 = 5, . DFNT_FLOAT64 = 6) C C Compression parametes C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_NBIT, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE parameter (COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_NBIT = 2, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) C C Compression arguments ( defined for clarity, actual values C will be passed to SFSCHUNK function via comp_arg parameter) C integer deflate_level, . skphuff_skp_size, . nbit_sign_ext, . nbit_fill_one, . nbit_start_bit, . nbit_bit_len parameter ( deflate_level = 6, . skphuff_skp_size = 2, . nbit_sign_ext = 0, . nbit_fill_one = 0, . nbit_start_bit = 6, . nbit_bit_len = 7 ) C C--------------------End of declarations------------------------------ C C C We will write to five different files corresponding to the C different compression types C C NO compression C file(1) = 'chunk_no.hdf' name(1) = 'Nocomp_data' comp_type_out(1) = 0 C C RLE compression C file(2) = 'chunk_rl.hdf' name(2) = 'Rlcomp_data' comp_type_out(2) = 1 C C Nbit compression C file(3) = 'chunk_nb.hdf' name(3) = 'Nbcomp_data' comp_type_out(3) = 2 C C Addaptive Huffman compression C file(4) = 'chunk_sk.hdf' name(4) = 'Hucomp_data' comp_type_out(4) = 1 C C Gzip compression C file(5) = 'chunk_gz.hdf' name(5) = 'Gzcomp_data' comp_type_out(5) = 1 C C Dimension sizes array initialization C d_dims(1) = n d_dims(2) = m C C Chunk dimension sizes array initialization C ch_dims(1) = nc ch_dims(2) = mc C C Find actual size of chunk matrix C mod1 = mod (n,nc) mod2 = mod (m,mc) if (mod1 .eq. 0) n_nc_a = n_nc - 1 if (mod2 .eq. 0) n_mc_a = n_mc - 1 C C Initilize original array C do 20 j = 1, m do 10 i = 1, n data(i,j) = 10*j + i 10 continue 20 continue C C Initialize chunks C lb = mc kb = nc do 60 j = 1, n_mc_a do 50 i = 1, n_nc_a do 40 l = 1, lb do 30 k = 1, kb chunk_data(k,l,i,j) = 0. 30 continue 40 continue 50 continue 60 continue C C Assign actual data to the chunks C do 100 j = 1, n_mc_a do 90 i = 1, n_nc_a if (j .eq. n_mc_a .and. mod2 .ne. 0 ) lb = mod(m, mc) if (i .eq. n_nc_a .and. mod1 .ne. 0 ) kb = mod(n, nc) do 80 l = 1, lb do 70 k = 1, kb chunk_data(k,l,i,j) = data ((i-1)*nc +k, (j-1)*mc +l) 70 continue 80 continue 90 continue 100 continue C C Initialize SD interfaces C do 101 i = 1, N_COMP_TYPES sd_id(i) = sfstart (file(i), DFACC_CREATE) 101 continue C C Main loop through different compression types C do 1000 i_comp = 1, N_COMP_TYPES C C Create the data set C sds_id(i_comp) = sfcreate(sd_id(i_comp), name(i_comp), . DFNT_INT32, RANK, d_dims) if( sds_id(i_comp) .eq. -1 ) then print *, 'sfcreate failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif C C Fill the data set with fill_value C fill_value = 0 status = sfsfill (sds_id(i_comp), fill_value) if( status .ne. 0 ) then print *, 'sfsfill failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif C C Set compression type and compression arguments C comp_type = i_comp - 1 C C Initialize compression arguments array C do 1 i = 1, n_comp_arg comp_arg(i) = 0 1 continue if( comp_type .eq. COMP_CODE_NBIT) then comp_arg(1) = nbit_sign_ext comp_arg(2) = nbit_fill_one comp_arg(3) = nbit_start_bit comp_arg(4) = nbit_bit_len endif if( comp_type .eq. COMP_CODE_SKPHUFF ) then comp_arg(1) = skphuff_skp_size endif if (comp_type .eq. COMP_CODE_DEFLATE ) then comp_arg(1) = deflate_level endif C C Create chunked SDS C status = sfschnk (sds_id(i_comp), ch_dims, comp_type, . comp_arg) if( status .ne. 0 ) then print *, 'sfschnk failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif C C Set chunk cache to hold maximum of nc chunks C maxcache = n_nc_a flags = 0 status = sfscchnk (sds_id(i_comp), maxcache, flags) if( status .ne. maxcache ) then print *, 'sfscchnk failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif C C Write the data chunks. First chunk is written by sfwdata function C do 150 j = 1, n_mc_a do 140 i = 1, n_nc_a start_dims(1) = i start_dims(2) = j do 130 l = 1, mc do 120 k = 1, nc chunk(k,l) = chunk_data(k,l,i,j) 120 continue 130 continue if (i .eq. 1 .and. j .eq. 1) then start(1) = 0 start(2) = 0 stride(1) = 1 stride(2) = 1 edges(1) = nc edges(2) = mc status = sfwdata(sds_id(i_comp), start, stride, . edges, chunk) if( status .ne. 0 ) then print *, 'sfwdata failed for', i_comp, ' -th dataset' print *, ' first chunk' err_chunk = err_chunk + 1 endif else status = sfwchnk(sds_id(i_comp), start_dims, chunk) if( status .ne. 0 ) then print *, 'sfwchnk failed for', i_comp, ' -th dataset' print *, i,'-th',j,'-th', 'chunk' err_chunk = err_chunk + 1 endif endif 140 continue 150 continue status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif status = sfend (sd_id(i_comp)) if( status .ne. 0 ) then print *, 'sfend failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif 1000 continue C C Let's check what we have written C We will skip NBIT until things are clarified with QAK. C C Open files and restart SD interfaces C do 200 i = 1, N_COMP_TYPES C sd_id(i) = sfstart (file(i), DFACC_READ) if( sd_id(i) .eq. -1 ) then print *, 'sfstart failed for', i, ' -th dataset' err_chunk = err_chunk + 1 endif 200 continue C C Find written dataset in each file using its name and index C do 201 i = 1, N_COMP_TYPES C sds_index(i) = sfn2index (sd_id(i), name(i)) if( sds_index(i) .eq. -1 ) then print *, 'sfn2index failed for', i, ' -th dataset' err_chunk = err_chunk + 1 endif sds_id(i) = sfselect (sd_id(i), sds_index(i)) if( sds_id(i) .eq. -1 ) then print *, 'sfselect failed for', i, ' -th dataset' err_chunk = err_chunk + 1 endif C C Find out type of compression used and compression parameters. C status = sfgcompress(sds_id(i), comp_typesd, comp_prm_out) if (status .eq. -1) then print *, 'sfgcompress failed for', i, ' -th dataset' err_chunk = err_chunk + 1 endif if (name(i) .eq. 'Nocomp_data') then if (comp_typesd .ne. COMP_CODE_NONE) then print *, 'wrong compression type for Nocomp_data dataset' err_chunk = err_chunk + 1 endif endif if (name(i) .eq. 'Rlcomp_data') then if (comp_typesd .ne. COMP_CODE_RLE) then print *, 'wrong compression type for Rlcomp_data dataset' err_chunk = err_chunk + 1 endif endif if (name(i) .eq. 'Hucomp_data') then if (comp_typesd .ne. COMP_CODE_SKPHUFF) then print *, 'wrong compression type for Hucomp_data dataset' err_chunk = err_chunk + 1 endif if (comp_prm_out(1). ne. skphuff_skp_size) then print *, 'wrong compression parameter for Hucomp_data dataset' err_chunk = err_chunk + 1 endif endif if (name(i) .eq. 'Gzcomp_data') then if (comp_typesd .ne. COMP_CODE_DEFLATE) then print *, 'wrong compression type for Gzcomp_data dataset' endif if (comp_prm_out(1). ne. deflate_level) then print *, 'wrong compression parameter for Gzcomp_data dataset' err_chunk = err_chunk + 1 endif endif if (name(i) .eq. 'Nbcomp_data') then if (comp_typesd .ne. COMP_CODE_NBIT) then print *, 'wrong compression type for Nbcomp_data dataset' endif if ((comp_prm_out(1) .ne. nbit_sign_ext) .or. . (comp_prm_out(2) .ne. nbit_fill_one) .or. . (comp_prm_out(3) .ne. nbit_start_bit) .or. . (comp_prm_out(4) .ne. nbit_bit_len)) then print *, 'wrong compression parameter for Nbcomp_data dataset' err_chunk = err_chunk + 1 endif endif 201 continue C C Get and check chunking and compression information about each dataset C do 202 i = 1, N_COMP_TYPES C status = sfgichnk(sds_id(i),ch_dims_out,c_out) if( status .ne. 0 ) then print *, 'sfgichnk failed for', i, ' -th dataset' err_chunk = err_chunk + 1 endif if( c_out .ne. comp_type_out(i)) then print *, 'sfgichnk returned incorrect comptype info' err_chunk = err_chunk + 1 endif if ( (ch_dims(1) .ne. ch_dims_out(1)) .or. . (ch_dims(2) .ne. ch_dims_out(2)) ) then print *, 'sfgichnk returned incorrect chunk dimensions' err_chunk = err_chunk + 1 endif 202 continue C C Read part of the data back using sfrdata function C start(1) = n_start start(2) = m_start edges(1) = n_part edges(2) = m_part stride(1) = n_stride stride(2) = m_stride do 205 i = 1, N_COMP_TYPES C C Skip NBIT until we know how to read nbit data back C if (i .eq. 3) goto 205 status = sfrdata (sds_id(i), start, stride, edges, . part_data) if (status .ne. 0) then print *, 'sfrdata failed for reading part data for ', . i, '-th dataset' err_chunk = err_chunk + 1 endif C C Compare output with aqtual data C do 204 j = 1, m_part do 203 l = 1, n_part kl = n_start + 1 + (l-1)*n_stride kj = m_start + 1 + (j-1)*m_stride if (data(kl, kj) .ne. part_data(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_chunk = err_chunk +1 endif 203 continue 204 continue 205 continue C C Read chunks back and compare with the actual data for each compression C type C do 2000 i_comp = 1, N_COMP_TYPES C C Skip NBIT C if(i_comp. eq. 3) goto 2000 comp_type = i_comp - 1 do 250 j = 1, n_mc_a do 240 i = 1, n_nc_a start_dims(1) = i start_dims(2) = j status = sfrchnk(sds_id(i_comp), start_dims, chunk_out) if (status .ne. 0) then print *, 'sfrchnk failed for ', i, ',', j, . '-th chunk, compression type is ', comp_type err_chunk = err_chunk + 1 endif C C Compare with actual data C lb = mc kb = nc if (j .eq. n_mc_a .and. mod2 .ne. 0 ) lb = mod(m, mc) if (i .eq. n_nc_a .and. mod1 .ne. 0 ) kb = mod(n, nc) do 280 l = 1, lb do 270 k = 1, kb if(chunk_out(k,l) .ne. data ((i-1)*nc +k, (j-1)*mc +l)) . then print *, 'Data is incorrest' err_chunk = err_chunk + 1 endif 270 continue 280 continue 240 continue 250 continue C C Terminate access to SDS, shutdown interfaces and close the files C status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif status = sfend(sd_id(i_comp)) if( status .ne. 0 ) then print *, 'sfend failed for', i_comp, ' -th dataset' err_chunk = err_chunk + 1 endif 2000 continue return end subroutine test_char_chunk( err_char_chunk ) implicit none C C------- Begin Variables declarations ----------------------------------- C integer N_COMP_TYPES, N_COMP_ARG parameter (N_COMP_TYPES = 5, N_COMP_ARG = 4) integer sd_id(N_COMP_TYPES), . sds_id(N_COMP_TYPES), . sds_index(N_COMP_TYPES) integer RANK, comp_type, c_out integer comp_arg(N_COMP_ARG) integer comp_type_out(N_COMP_TYPES) integer d_dims(2) integer ch_dims(2),ch_dims_out(2), start_dims(2) integer start(2), stride(2), edges(2) integer status, fill_value integer maxcache, flags integer err_char_chunk integer n,m, n_part, m_part integer n_start, m_start, n_stride, m_stride integer nc, mc, n_nc, n_mc integer i, j, k, l, lb, kb, kl, kj integer i_comp integer mod1, mod2 character*13 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) C C SDS functions declarations C C integer sfstart, sfcreate, sfendacc, sfend, C . sfn2index, sfselect, C . sfsfill, sfschnk, sfscchnk, sfwcchnk, C . sfgichnk, sfrcchnk, sfwcdata, sfrcdata include 'mffunc.inc' C C Initial data declarations( change if you which to test larger arrays ) C C Data array dimensions n and m and RANK C parameter (n = 9, m = 4, RANK = 2) C C Part data dimensions n_part, m_part C parameter (n_part = 5, m_part = 2) C C Start coordinates of part_data C parameter (n_start = 2, m_start = 1) C C Stride in each dimension C parameter (n_stride = 1, m_stride = 1) C C Chunk dimensions nc and mc C parameter (nc = 3, mc = 2) C C Dimensions of "chunk matrix" n_nc and n_mc. C Note if n is multiple of nc or m is multiple C of mc we need smaller dimensions ( by one) parameter (n_nc = n/nc + 1, n_mc = m/mc + 1) C C Actual size of chunk matrix ( will be calculated latera ) C integer n_nc_a, n_mc_a C C Data declaration C character data(n,m), . chunk(nc,mc), . chunk_out(nc,mc), . chunk_data(nc,mc,n_nc,n_mc) C C Buffers to hold part of the data when we read data back C character part_data(n_part,m_part) C C HDF parameters initialization C C C Read/Write parameters C integer DFACC_CREATE, . DFACC_WRITE, . DFACC_READ parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) C C Data type parameters C C integer DATA_TYPE integer DFNT_CHAR, . DFNT_INT16, . DFNT_INT32, . DFNT_FLOAT32, . DFNT_FLOAT64 parameter (DFNT_CHAR = 4, . DFNT_INT16 = 22, . DFNT_INT32 = 24, . DFNT_FLOAT32 = 5, . DFNT_FLOAT64 = 6) C C Compression parametes C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_NBIT, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE parameter (COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_NBIT = 2, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) C C Compression arguments ( defined for clarity, actual values C will be passed to SFSCHUNK function via comp_arg parameter) C integer deflate_level, . skphuff_skp_size, . nbit_sign_ext, . nbit_fill_one, . nbit_start_bit, . nbit_bit_len parameter ( deflate_level = 6, . skphuff_skp_size = 2, . nbit_sign_ext = 0, . nbit_fill_one = 0, . nbit_start_bit = 6, . nbit_bit_len = 7 ) C C--------------------End of declarations------------------------------ C C C We will write to five different files corresponding to the C different compression types C C NO compression C file(1) = 'cchunk_no.hdf' name(1) = 'Nocomp_data' comp_type_out(1) = 0 C C RLE compression C file(2) = 'cchunk_rl.hdf' name(2) = 'Rlcomp_data' comp_type_out(2) = 1 C C Nbit compression C file(3) = 'cchunk_nb.hdf' name(3) = 'Nbcomp_data' comp_type_out(3) = 2 C C Addaptive Huffman compression C file(4) = 'cchunk_sk.hdf' name(4) = 'Hucomp_data' comp_type_out(4) = 1 C C Gzip compression C file(5) = 'cchunk_gz.hdf' name(5) = 'Gzcomp_data' comp_type_out(5) = 1 C C Dimension sizes array initialization C d_dims(1) = n d_dims(2) = m C C Chunk dimension sizes array initialization C ch_dims(1) = nc ch_dims(2) = mc C C Find actual size of chunk matrix C mod1 = mod (n,nc) mod2 = mod (m,mc) if (mod1 .eq. 0) n_nc_a = n_nc - 1 if (mod2 .eq. 0) n_mc_a = n_mc - 1 C C Initilize original array C do 20 j = 1, m do 10 i = 1, n data(i,j) = char(10*j + i) 10 continue 20 continue C C Initialize chunks C lb = mc kb = nc do 60 j = 1, n_mc_a do 50 i = 1, n_nc_a do 40 l = 1, lb do 30 k = 1, kb chunk_data(k,l,i,j) = char(32) 30 continue 40 continue 50 continue 60 continue C C Assign actual data to the chunks C do 100 j = 1, n_mc_a do 90 i = 1, n_nc_a if (j .eq. n_mc_a .and. mod2 .ne. 0 ) lb = mod(m, mc) if (i .eq. n_nc_a .and. mod1 .ne. 0 ) kb = mod(n, nc) do 80 l = 1, lb do 70 k = 1, kb chunk_data(k,l,i,j) = data ((i-1)*nc +k, (j-1)*mc +l) 70 continue 80 continue 90 continue 100 continue C C Initialize SD interfaces C do 101 i = 1, N_COMP_TYPES sd_id(i) = sfstart (file(i), DFACC_CREATE) 101 continue C C Main loop through different compression types C do 1000 i_comp = 1, N_COMP_TYPES C C Create the data set C sds_id(i_comp) = sfcreate(sd_id(i_comp), name(i_comp), . DFNT_CHAR, RANK, d_dims) if( sds_id(i_comp) .eq. -1 ) then print *, 'sfcreate failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif C C Fill the data set with fill_value C fill_value = 0 status = sfsfill (sds_id(i_comp), fill_value) if( status .ne. 0 ) then print *, 'sfsfill failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif C C Set compression type and compression arguments C comp_type = i_comp - 1 C C Initialize compression arguments array C do 1 i = 1, n_comp_arg comp_arg(i) = 0 1 continue if( comp_type .eq. COMP_CODE_NBIT) then comp_arg(1) = nbit_sign_ext comp_arg(2) = nbit_fill_one comp_arg(3) = nbit_start_bit comp_arg(4) = nbit_bit_len endif if( comp_type .eq. COMP_CODE_SKPHUFF ) then comp_arg(1) = skphuff_skp_size endif if (comp_type .eq. COMP_CODE_DEFLATE ) then comp_arg(1) = deflate_level endif C C Create chunked SDS C status = sfschnk (sds_id(i_comp), ch_dims, comp_type, . comp_arg) if( status .ne. 0 ) then print *, 'sfschnk failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif C C Set chunk cache to hold maximum of nc chunks C maxcache = n_nc_a flags = 0 status = sfscchnk (sds_id(i_comp), maxcache, flags) if( status .ne. maxcache ) then print *, 'sfscchnk failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif C C Write the data chunks. First chunk is written by sfwdata function C do 150 j = 1, n_mc_a do 140 i = 1, n_nc_a start_dims(1) = i start_dims(2) = j do 130 l = 1, mc do 120 k = 1, nc chunk(k,l) = chunk_data(k,l,i,j) 120 continue 130 continue if (i .eq. 1 .and. j .eq. 1) then start(1) = 0 start(2) = 0 stride(1) = 1 stride(2) = 1 edges(1) = nc edges(2) = mc status = sfwcdata(sds_id(i_comp), start, stride, . edges, chunk) if( status .ne. 0 ) then print *, 'sfwdata failed for', i_comp, ' -th dataset' print *, ' first chunk' err_char_chunk = err_char_chunk + 1 endif else status = sfwcchnk(sds_id(i_comp), start_dims, chunk) if( status .ne. 0 ) then print *, 'sfwcchnk failed for', i_comp, ' -th dataset' print *, i,'-th',j,'-th', 'chunk' err_char_chunk = err_char_chunk + 1 endif endif 140 continue 150 continue status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif status = sfend (sd_id(i_comp)) if( status .ne. 0 ) then print *, 'sfend failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif 1000 continue C C Let's check what we have written C We will skip NBIT until things are clarified with QAK. C C Open files and restart SD interfaces C do 200 i = 1, N_COMP_TYPES C sd_id(i) = sfstart (file(i), DFACC_READ) if( sd_id(i) .eq. -1 ) then print *, 'sfstart failed for', i, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif 200 continue C C Find written dataset in each file using its name and index C do 201 i = 1, N_COMP_TYPES C sds_index(i) = sfn2index (sd_id(i), name(i)) if( sds_index(i) .eq. -1 ) then print *, 'sfn2index failed for', i, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif sds_id(i) = sfselect (sd_id(i), sds_index(i)) if( sds_id(i) .eq. -1 ) then print *, 'sfselect failed for', i, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif 201 continue C C Get and check chunking and compression information about each dataset C do 202 i = 1, N_COMP_TYPES C status = sfgichnk(sds_id(i),ch_dims_out,c_out) if( status .ne. 0 ) then print *, 'sfgichnk failed for', i, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif if( c_out .ne. comp_type_out(i)) then print *, 'sfgichnk returned incorrect comptype info' err_char_chunk = err_char_chunk + 1 endif if ( (ch_dims(1) .ne. ch_dims_out(1)) .or. . (ch_dims(2) .ne. ch_dims_out(2)) ) then print *, 'sfgichnk returned incorrect chunk dimensions' err_char_chunk = err_char_chunk + 1 endif 202 continue C C Read part of the data back using sfrdata function C start(1) = n_start start(2) = m_start edges(1) = n_part edges(2) = m_part stride(1) = n_stride stride(2) = m_stride do 205 i = 1, N_COMP_TYPES C C Skip NBIT C if (i .eq. 3) goto 205 status = sfrcdata (sds_id(i), start, stride, edges, . part_data) if (status .ne. 0) then print *, 'sfrdata failed for reading part data for ', . i, '-th dataset' err_char_chunk = err_char_chunk + 1 endif C C Compare output with aqtual data C do 204 j = 1, m_part do 203 l = 1, n_part kl = n_start + 1 + (l-1)*n_stride kj = m_start + 1 + (j-1)*m_stride if (data(kl, kj) .ne. part_data(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_char_chunk = err_char_chunk +1 endif 203 continue 204 continue 205 continue C C Read chunks back and compare with the actual data for each compression C type C do 2000 i_comp = 1, N_COMP_TYPES C C Skip NBIT C if(i_comp .eq. 3) goto 2000 comp_type = i_comp - 1 do 250 j = 1, n_mc_a do 240 i = 1, n_nc_a start_dims(1) = i start_dims(2) = j status = sfrcchnk(sds_id(i_comp), start_dims, chunk_out) if (status .ne. 0) then print *, 'sfrcchnk failed for ', i, ',', j, . '-th chunk, compression type is ', comp_type err_char_chunk = err_char_chunk + 1 endif C C Compare with actual data C lb = mc kb = nc if (j .eq. n_mc_a .and. mod2 .ne. 0 ) lb = mod(m, mc) if (i .eq. n_nc_a .and. mod1 .ne. 0 ) kb = mod(n, nc) do 280 l = 1, lb do 270 k = 1, kb if(chunk_out(k,l) .ne. data ((i-1)*nc +k, (j-1)*mc +l)) . then print *, 'Data is incorrest' err_char_chunk = err_char_chunk + 1 endif 270 continue 280 continue 240 continue 250 continue C C Terminate access to SDS, shutdown interfaces and close the files C status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif status = sfend(sd_id(i_comp)) if( status .ne. 0 ) then print *, 'sfend failed for', i_comp, ' -th dataset' err_char_chunk = err_char_chunk + 1 endif 2000 continue return end subroutine test_compress( err_compress ) implicit none C C------- Begin Variables declarations ----------------------------------- C integer N_COMP_TYPES, N_COMP_ARG parameter (N_COMP_TYPES = 4, N_COMP_ARG = 1) integer sd_id(N_COMP_TYPES), . sds_id(N_COMP_TYPES), . sds_index(N_COMP_TYPES) integer RANK, comp_type, comp_type_out integer comp_arg(N_COMP_ARG), comp_prm_out(N_COMP_ARG) integer d_dims(2) integer start(2), stride(2), edges(2) integer status, fill_value integer err_compress character*12 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) integer n, m, n_part, m_part integer n_part_stride, m_part_stride integer n_part_start, m_part_start integer n_stride, m_stride integer n_start, m_start integer n_edges, m_edges integer i, j, l, kl, kj, i_comp C C SDS functions declarations C C integer sfstart, sfcreate, sfendacc, sfend, C . sfn2index, sfselect, C . sfsfill, sfrdata, C . sfwdata, sfscompress, sfgcompress include 'mffunc.inc' C C Initial data declarations( change if you which to test larger arrays ) C C Data array dimensions n and m and RANK C parameter (n = 9, m = 4, RANK = 2) C C Part data dimensions n_part, m_part C parameter (n_part = 5, m_part = 2) C C Stride and start coordinates of part_data C parameter (n_part_stride = 1, m_part_stride = 1) parameter (n_part_start = 2, m_part_start = 1) C C Sart, stride and edges parameters in each dimension C parameter (n_start = 0, m_start = 0) parameter (n_stride = 1, m_stride = 1) parameter (n_edges = n, m_edges = m) C C Data declaration C integer*4 data(n,m) C C Buffer to hold part of the data when we read data back C integer*4 part_data(n_part,m_part) C C HDF parameters initialization C C C Read/Write parameters C integer DFACC_CREATE, . DFACC_WRITE, . DFACC_READ parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) C C Data type parameters C C integer DATA_TYPE integer DFNT_CHAR, . DFNT_INT16, . DFNT_INT32, . DFNT_FLOAT32, . DFNT_FLOAT64 parameter (DFNT_CHAR = 4, . DFNT_INT16 = 22, . DFNT_INT32 = 24, . DFNT_FLOAT32 = 5, . DFNT_FLOAT64 = 6) C C Compression parametes C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE parameter (COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) C C Compression arguments ( defined for clarity, actual values C will be passed to SFSCHUNK function via comp_arg parameter) C integer deflate_level, . skphuff_skp_size parameter ( deflate_level = 6, . skphuff_skp_size = 2 ) C C--------------------End of declarations------------------------------ C C C We will write to five different files corresponding to the C different compression types C C NO compression C file(1) = 'comp_no.hdf' name(1) = 'Nocomp_data' C C RLE compression C file(2) = 'comp_rl.hdf' name(2) = 'Rlcomp_data' C C Addaptive Huffman compression C file(3) = 'comp_sk.hdf' name(3) = 'Hucomp_data' C C Gzip compression C file(4) = 'comp_gz.hdf' name(4) = 'Gzcomp_data' C C Dimension sizes array initialization C d_dims(1) = n d_dims(2) = m C C Initilize original array C do 20 j = 1, m do 10 i = 1, n data(i,j) = 10*j + i 10 continue 20 continue C C Initialize SD interfaces C do 101 i = 1, N_COMP_TYPES sd_id(i) = sfstart (file(i), DFACC_CREATE) 101 continue C C Main loop through different compression types C do 1000 i_comp = 1, N_COMP_TYPES C C Create the data set C sds_id(i_comp) = sfcreate(sd_id(i_comp), name(i_comp), . DFNT_INT32, RANK, d_dims) if( sds_id(i_comp) .eq. -1 ) then print *, 'sfcreate failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif C C Fill the data set with fill_value C fill_value = 0 status = sfsfill (sds_id(i_comp), fill_value) if( status .ne. 0 ) then print *, 'sfsfill failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif C C Set compression type and compression arguments C C C Initialize compression arguments array C do 1 i = 1, n_comp_arg comp_arg(i) = 0 1 continue if( i_comp .eq. 1 ) then comp_type = COMP_CODE_ NONE endif if( i_comp .eq. 2 ) then comp_type = COMP_CODE_ RLE endif if( i_comp .eq. 3 ) then comp_type = COMP_CODE_SKPHUFF comp_arg(1) = skphuff_skp_size endif if( i_comp .eq. 4 ) then comp_type = COMP_CODE_DEFLATE comp_arg(1) = deflate_level endif status = sfscompress(sds_id(i_comp), comp_type, comp_arg) if( status .ne. 0 ) then print *, 'sfscompress failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif C C Write data to the file C start(1) = n_start start(2) = m_start stride(1) = n_stride stride(2) = m_stride edges(1) = n_edges edges(2) = m_edges status = sfwdata(sds_id(i_comp), start, stride, . edges, data) if( status .ne. 0 ) then print *, 'sfwdata failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif status = sfend (sd_id(i_comp)) if( status .ne. 0 ) then print *, 'sfend failed for', i_comp, ' -th dataset' err_compress = err_compress + 1 endif 1000 continue C C Let's check what we have written C C Open files and restart SD interfaces C do 2000 i = 1, N_COMP_TYPES C sd_id(i) = sfstart (file(i), DFACC_READ) if( sd_id(i) .eq. -1 ) then print *, 'sfstart failed for', i, ' -th dataset' err_compress = err_compress + 1 endif C C Find written dataset in each file using its name and index C sds_index(i) = sfn2index (sd_id(i), name(i)) if( sds_index(i) .eq. -1 ) then print *, 'sfn2index failed for', i, ' -th dataset' err_compress = err_compress + 1 endif sds_id(i) = sfselect (sd_id(i), sds_index(i)) if( sds_id(i) .eq. -1 ) then print *, 'sfselect failed for', i, ' -th dataset' err_compress = err_compress + 1 endif C C Find out type of compression used and compression parameters. C status = sfgcompress(sds_id(i), comp_type_out, comp_prm_out) if (status .eq. -1) then print *, 'sfgcompress failed for', i, ' -th dataset' err_compress = err_compress + 1 endif if (name(i) .eq. 'Nocomp_data') then if (comp_type_out .ne. COMP_CODE_NONE) then print *, 'wrong compression type for Nocomp_data dataset' err_compress = err_compress + 1 endif endif if (name(i) .eq. 'Rlcomp_data') then if (comp_type_out .ne. COMP_CODE_RLE) then print *, 'wrong compression type for Rlcomp_data dataset' err_compress = err_compress + 1 endif endif if (name(i) .eq. 'Hucomp_data') then if (comp_type_out .ne. COMP_CODE_SKPHUFF) then print *, 'wrong compression type for Hucomp_data dataset' err_compress = err_compress + 1 endif if (comp_prm_out(1). ne. skphuff_skp_size) then print *, 'wrong compression parameter for Hucomp_data dataset' err_compress = err_compress + 1 endif endif if (name(i) .eq. 'Gzcomp_data') then if (comp_type_out .ne. COMP_CODE_DEFLATE) then print *, 'wrong compression type for Gzcomp_data dataset' endif if (comp_prm_out(1). ne. deflate_level) then print *, 'wrong compression parameter for Gzcomp_data dataset' err_compress = err_compress + 1 endif endif C C Read part of the data back using sfrdata function C start(1) = n_part_start start(2) = m_part_start edges(1) = n_part edges(2) = m_part stride(1) = n_part_stride stride(2) = m_part_stride status = sfrdata (sds_id(i), start, stride, edges, . part_data) if (status .ne. 0) then print *, 'sfrdata failed for reading part data for ', . i, '-th dataset' err_compress = err_compress + 1 endif C C Compare output with aqtual data C do 204 j = 1, m_part do 203 l = 1, n_part kl = n_part_start + 1 + (l-1)*n_part_stride kj = m_part_start + 1 + (j-1)*m_part_stride if (data(kl, kj) .ne. part_data(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_compress = err_compress +1 endif 203 continue 204 continue C C Terminate access to SDS, shutdown interfaces and close the files C status = sfendacc(sds_id(i)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i, ' -th dataset' err_compress = err_compress + 1 endif status = sfend(sd_id(i)) if( status .ne. 0 ) then print *, 'sfend failed for', i, ' -th dataset' err_compress = err_compress + 1 endif 2000 continue return end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/Makefile.am0000644000000000000000000000562512421456623015711 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/hdf/test \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) DIST_SUBDIRS = examples ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# if HDF_BUILD_NETCDF include_HEADERS = netcdf.inc netcdf.f90 mffunc.inc mffunc.f90 check_PROGRAMS = ftest hdftest tszip hdftest1 else include_HEADERS = mffunc.inc mffunc.f90 check_PROGRAMS = hdftest tszip hdftest1 endif TEST_SCRIPT = testfortran.sh check_SCRIPTS = testfortran.sh if HDF_BUILD_NETCDF ftest_SOURCES = ftest.f ftest_LDADD = $(top_builddir)/hdf/test/forsupff.o $(top_builddir)/hdf/test/forsupf.o \ $(LIBMFHDF) $(LIBHDF) @LIBS@ ftest_DEPENDENCIES = $(top_builddir)/hdf/test/forsupff.o $(top_builddir)/hdf/test/forsupf.o \ $(LIBMFHDF) $(LIBHDF) endif hdftest_SOURCES = hdftest.f hdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdftest_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) hdftest1_SOURCES = hdftest1.f hdftest1_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ hdftest1_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) tszip_SOURCES = tszip.f tszip_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ tszip_DEPENDENCIES = testdir $(LIBMFHDF) $(LIBHDF) testdir: -mkdir testdir SUFFIXES = .inc .f90 .inc.f90: sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $< > $*.f90 # Recurse into examples directory for examples tests. installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += test.nc copy.nc *.hdf testdir/testext.hdf # Automake's distclean won't remove directories, so we can add an additional # hook target which will do so during 'make distclean'. distclean-local: -rm -rf testdir DISTCLEANFILES = ftest.f jackets.c netcdf.inc mffunc.f90 netcdf.f90 include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/netcdf.inc.in0000644000000000000000000001033412421456623016211 0ustar c c Functions in the FORTRAN interface integer nccre, ncopn, ncddef, ncdid, ncvdef, ncvid, nctlen integer ncsfil external nccre, ncopn, ncddef, ncdid, ncvdef, ncvid, nctlen external ncsfil integer NCRDWR,NCCREAT,NCEXCL,NCINDEF,NCNSYNC,NCHSYNC integer NCNDIRTY,NCHDIRTY,NCLINK,NCNOWRIT,NCWRITE integer NCCLOB,NCNOCLOB,NCGLOBAL,NCFILL,NCNOFILL integer MAXNCOP,MAXNCDIM,MAXNCATT,MAXNCVAR integer MAXNCNAM,MAXVDIMS,NCNOERR,NCEBADID integer NCENFILE,NCEEXIST,NCEINVAL,NCEPERM,NCENOTIN integer NCEINDEF,NCECOORD,NCEMAXDS,NCENAME integer NCENOATT,NCEMAXAT,NCEBADTY,NCEBADD, NCESTS integer NCEUNLIM,NCEMAXVS,NCENOTVR,NCEGLOB,NCENOTNC integer NCFOOBAR,NCSYSERR,NCFATAL,NCVERBOS, NCENTOOL integer NCBYTE,NCCHAR,NCSHORT,NCLONG,NCFLOAT,NCDOUBLE parameter(NCBYTE = 1) parameter(NCCHAR = 2) parameter(NCSHORT = 3) parameter(NCLONG = 4) parameter(NCFLOAT = 5) parameter(NCDOUBLE = 6) c c masks for the struct NC flag field; passed in as 'mode' arg to c nccreate and ncopen. c c read/write, 0 => readonly parameter(NCRDWR = 1) c in create phase, cleared by ncendef parameter(NCCREAT = 2) c on create destroy existing file parameter(NCEXCL = 4) c in define mode, cleared by ncendef parameter(NCINDEF = 8) c synchronise numrecs on change (X'10') parameter(NCNSYNC = 16) c synchronise whole header on change (X'20') parameter(NCHSYNC = 32) c numrecs has changed (X'40') parameter(NCNDIRTY = 64) c header info has changed (X'80') parameter(NCHDIRTY = 128) c prefill vars on endef and increase of record, the default behavior parameter(NCFILL = 0) c don't fill vars on endef and increase of record (X'100') parameter(NCNOFILL = 256) c isa link (X'8000') parameter(NCLINK = 32768) c c 'mode' arguments for nccreate and ncopen c parameter(NCNOWRIT = 0) parameter(NCWRITE = NCRDWR) parameter(NCCLOB = 11) parameter(NCNOCLOB = 15) c c 'size' argument to ncdimdef for an unlimited dimension c integer NCUNLIM parameter(NCUNLIM = 0) c c attribute id to put/get a global attribute c parameter(NCGLOBAL = 0) c c Advisory Maximums c parameter(MAXNCOP = 32) parameter(MAXNCDIM = 32) parameter(MAXNCATT = 512) parameter(MAXNCVAR = 512) c Not enforced parameter(MAXNCNAM = 128) parameter(MAXVDIMS = MAXNCDIM) c c The netcdf data types c c c Global netcdf error status variable c Initialized in error.c c c No Error parameter(NCNOERR = 0) c Not a netcdf id parameter(NCEBADID = 1) c Too many netcdfs open parameter(NCENFILE = 2) c netcdf file exists && NCNOCLOB parameter(NCEEXIST = 3) c Invalid Argument parameter(NCEINVAL = 4) c Write to read only parameter(NCEPERM = 5) c Operation not allowed in data mode parameter(NCENOTIN = 6) c Operation not allowed in define mode parameter(NCEINDEF = 7) c Coordinates out of Domain parameter(NCECOORD = 8) c MAXNCDIMS exceeded parameter(NCEMAXDS = 9) c String match to name in use parameter(NCENAME = 10) c Attribute not found parameter(NCENOATT = 11) c MAXNCATTRS exceeded parameter(NCEMAXAT = 12) c Not a netcdf data type parameter(NCEBADTY = 13) c Invalid dimension id parameter(NCEBADD = 14) c NCUNLIMITED in the wrong index parameter(NCEUNLIM = 15) c MAXNCVARS exceeded parameter(NCEMAXVS = 16) c Variable not found parameter(NCENOTVR = 17) c Action prohibited on NCGLOBAL varid parameter(NCEGLOB = 18) c Not a netcdf file parameter(NCENOTNC = 19) parameter(NCESTS = 20) parameter (NCENTOOL = 21) parameter(NCFOOBAR = 32) parameter(NCSYSERR = -1) c c Global options variable. Used to determine behavior of error handler. c Initialized in lerror.c c parameter(NCFATAL = 1) parameter(NCVERBOS = 2) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/jackets.c.in0000644000000000000000000015045412421456623016053 0ustar /* * Copyright 1990, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. */ /* $Id: jackets-linux.c 4772 2006-11-01 16:53:11Z epourmal $ */ /* * OVERVIEW * * This file contains jacket routines written in C for interfacing Fortran * netCDF function calls to the actual C binding for the NetCDF. This code * is written explicitly for Sun. In general, these functions handle * character-string parameter conventions, convert between * column-major-order arrays and row-major-order arrays, and map between * array indices beginning at one and array indices beginning at zero. * */ /* LINTLIBRARY */ #include #include #include #include #ifdef HDF #include "local_nc.h" #else /* HDF */ #include "netcdf.h" #endif /* HDF */ #if !NC_OLD_FILLVALUES struct ncfils { /* This will be a common block from Fortran */ double dd; #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ int ll; #else long ll; #endif float ff; short ss; char cc; char bb; } ncfils_ = { FILL_DOUBLE, FILL_LONG, FILL_FLOAT, FILL_SHORT, FILL_CHAR, FILL_BYTE }; #else /* NC_OLD_FILLVALUES below */ /* * This section is provided for backward compatibility only. Using * XDR infinities for floating-point fill values has caused more problems * than it has solved. We encourage you to define your own data-specific * fill values rather than use default ones. * If, however, you *must* use default fill values, then you should use * the above fill values rather than the ones in this section. */ struct ncfils { /* This will be a common block from Fortran */ double dd; #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ int ll; #else long ll; #endif float ff; short ss; char cc; char bb; } ncfils_ = { XDR_D_INFINITY, /* You may have to insert a constant here */ FILL_LONG, XDR_F_INFINITY, /* You may have to insert a constant here */ FILL_SHORT, FILL_CHAR, FILL_BYTE }; #endif /* NC_OLD_FILLVALUES above */ /* blank fill C string to make FORTRAN string */ static void fcdcpy (fstring, fslen, sstring) char *fstring; /* output string to be blank-filled */ int fslen; /* length of output string */ char *sstring; /* input string, null-terminated */ { int i, len = strlen(sstring); for (i = 0; i < len; i++) *(fstring + i) = *(sstring + i); for (i = len; i < fslen; i++) *(fstring + i) = ' '; } static void reverse (array, length) int array[]; /* array to be reversed */ int length; /* length of array */ { int temp, i, j; for (i = 0, j = length - 1; i < j; i++, j--) { temp = array[i]; array[i] = array[j]; array[j] = temp; } } static void revlongs (array, length) long array[]; /* array to be reversed */ int length; /* length of array */ { int i, j; long temp; for (i = 0, j = length - 1; i < j; i++, j--) { temp = array[i]; array[i] = array[j]; array[j] = temp; } } /* error handling function */ static void handle_err (pname, rcode) char *pname; /* procedure name */ int rcode; /* error return */ { cdf_routine_name = pname; NCadvise(rcode, "string won't fit in CHARACTER variable provided"); } /* copy function used to copy strings with embedded blanks */ static void fstrncpy (target, source, maxlen) char *target; /* space to be copied into */ char *source; /* string to be copied */ int maxlen; /* maximum length of *source */ { while (maxlen-- && *source != '\0') *target++ = *source++; *target = '\0'; } #ifdef WE_COULDNT_READ_NAMES_WITH_SPACES /* copy function used to copy strings terminated with blanks */ static void nstrncpy (target, source, maxlen) char *target; /* space to be copied into */ char *source; /* string to be copied */ int maxlen; /* maximum length of *source */ { while (maxlen-- && *source != ' ') *target++ = *source++; *target = '\0'; } #endif /* copy function used to copy strings with embeded blanks and terminated with blanks */ static void nstrncpy (target, source, maxlen) char *target; /* space to be copied into */ char *source; /* string to be copied */ int maxlen; /* maximum length of *source */ { /* Copy all string */ while (maxlen--) *target++ = *source++; *target -- = '\0'; /* Disregard all trailing spaces */ while (*target == ' ') *target-- = '\0'; } /* * Compute product of dimensions. */ static long dimprod (dims, ndims) long *dims; /* list of dimensions */ int ndims; /* number of dimensions in list */ { long *ip; long prod = 1; for (ip = dims; ip < &dims[ndims]; ip++) prod *= *ip; return prod; } #ifdef FORTRAN_HAS_NO_BYTE /* * Convert multi-dimensional array of bytes stored in ints to packed array of * bytes, in malloc'ed space. Returns pointer to bytes or NULL if malloc * failed. */ static char * itob(ints, dims, ndims) int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); /* product of dimensions */ char *bytes = (char *) malloc (iocount * sizeof (char)); int *ip; char *bp = bytes; if (bytes != NULL) for (ip = ints; iocount > 0; iocount--) *bp++ = (char) *ip++; return bytes; } /* * Convert a generalized multi-dimensional array of bytes stored in ints to * packed array of bytes, in malloc'ed space. Returns pointer to bytes or * NULL if malloc failed. */ static char * itobg(ints, dims, basis, ndims) int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *basis; /* memory access basis vector */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); /* product of dimensions */ char *bytes = (char *) malloc (iocount * sizeof (char)); if (bytes != NULL && iocount > 0) { int idim; char *bp = bytes; char *ip = (char*)ints; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*basis[idim]; coords[idim] = 0; } for (;;) { *bp++ = (char)*(int*)ip; idim = ndims - 1; carry: ip += basis[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } return bytes; } /* * Convert a packed array of bytes into a generalized multi-dimensional array * of ints. */ static void btoig(bytes, ints, dims, basis, ndims) char *bytes; /* packed array of bytes */ int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *basis; /* memory access basis vector */ int ndims; /* number of dimensions in list */ { if (dimprod (dims, ndims) > 0) { int idim; char *bp = bytes; char *ip = (char*)ints; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*basis[idim]; coords[idim] = 0; } for (;;) { *(int*)ip = *bp++; idim = ndims - 1; carry: ip += basis[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } } #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT /* * Convert multi-dimensional array of shorts stored in ints to packed array of * shorts, in malloc'ed space. Returns pointer to shorts or NULL if malloc * failed. */ static short * itos(ints, dims, ndims) int *ints; /* multi-dimensional array of ints */ long *dims; /* list of dimensions */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); /* product of dimensions */ short *shorts = (short *) malloc (iocount * sizeof (short)); int *ip; short *sp = shorts; if (shorts != NULL) for (ip = ints; iocount > 0; iocount--) *sp++ = (short) *ip++; return shorts; } /* * Convert a generalized multi-dimensional array of shorts stored in ints to * packed array of shorts, in malloc'ed space. Returns pointer to shorts or * NULL if malloc failed. */ static short * itosg(ints, dims, basis, ndims) int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *basis; /* memory access basis vector */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); /* product of dimensions */ short *shorts = (short *) malloc (iocount * sizeof (short)); if (shorts != NULL && iocount > 0) { int idim; char *ip = (char*)ints; short *sp = shorts; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*basis[idim]; coords[idim] = 0; } for (;;) { *sp++ = (short)*(int*)ip; idim = ndims - 1; carry: ip += basis[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } return shorts; } /* * Convert a packed array of shorts into a generalized multi-dimensional array * of ints. */ static void stoig(shorts, ints, dims, basis, ndims) short *shorts; /* packed array of shorts */ int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *basis; /* memory access basis vector */ int ndims; /* number of dimensions in list */ { if (dimprod (dims, ndims) > 0) { int idim; short *sp = shorts; char *ip = (char*)ints; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*basis[idim]; coords[idim] = 0; } for (;;) { *(int*)ip = *sp++; idim = ndims - 1; carry: ip += basis[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } } #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ /* * Convert multi-dimensional array of NCLONGs stored in ints to packed * array of longs, in malloc'ed space. Returns pointer to longs or NULL * if malloc failed. */ static long * itol(ints, dims, ndims) int *ints; /* multi-dimensional array of ints */ long *dims; /* list of dimensions */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); long *longs = (long *) malloc (iocount * sizeof (long)); int *ip; long *lp = longs; if (longs != NULL) for (ip = ints; iocount > 0; iocount--) *lp++ = (long) *ip++; return longs; } /* * Convert a generalized multi-dimensional array of longs stored in ints to * packed array of longs, in malloc'ed space. Returns pointer to longs or * NULL if malloc failed. */ static long * itolg(ints, dims, imap, ndims) int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *imap; /* memory access index mapping vector */ int ndims; /* number of dimensions in list */ { long iocount = dimprod (dims, ndims); long *longs = (long *) malloc (iocount * sizeof (long)); if (longs != NULL && iocount > 0) { int idim; char *ip = (char*)ints; long *lp = longs; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*imap[idim]; coords[idim] = 0; } for (;;) { *lp++ = (long)*(int*)ip; idim = ndims - 1; carry: ip += imap[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } return longs; } /* * Convert a packed array of longs into a generalized multi-dimensional array * of ints. */ static void ltoig(longs, ints, dims, imap, ndims) long *longs; /* packed array of longs */ int *ints; /* multi-dimensional array of integers */ long *dims; /* list of dimensions */ long *imap; /* memory access index mapping vector */ int ndims; /* number of dimensions in list */ { if (dimprod (dims, ndims) > 0) { int idim; long *lp = longs; char *ip = (char*)ints; long length[MAX_NC_DIMS]; long coords[MAX_NC_DIMS]; for (idim = 0; idim < ndims; ++idim) { length[idim] = dims[idim]*imap[idim]; coords[idim] = 0; } for (;;) { *(int*)ip = *lp++; idim = ndims - 1; carry: ip += imap[idim]; if (++coords[idim] >= dims[idim]) { coords[idim] = 0; ip -= length[idim]; if (--idim < 0) break; goto carry; } } } } #endif /* Alpha platform above */ /* ------------ Linux FORTRAN jackets for netCDF Functions ------------ */ /* used to set the C global variable ncopts from Fortran */ void nncpopt(val) int *val; { ncopts = *val; } /* used to get the C global variable ncopts from Fortran */ void nncgopt(val) int *val; { *val = ncopts; } /* * creates a new netCDF file, returning a netCDF ID. New netCDF * file is placed in define mode. */ int nnccre(pathname, clobmode, rcode, pathnamelen) char *pathname; int pathnamelen; int *clobmode; int *rcode; { char name[MAX_NC_NAME + 1]; int cdfid; nstrncpy (name, pathname, pathnamelen); if ((cdfid = nccreate (name, *clobmode)) != -1) { *rcode = 0; return (cdfid); } *rcode = ncerr; return (-1); } /* opens an existing netCDF file for access */ int nncopn(pathname, rwmode, rcode, pathnamelen) char *pathname; int pathnamelen; int *rwmode; int *rcode; { char name[MAX_NC_NAME + 1]; int cdfid; nstrncpy (name, pathname, pathnamelen); if ((cdfid = ncopen (name, *rwmode)) != -1) { *rcode = 0; return (cdfid); } *rcode = ncerr; return (-1); } /* adds a new dimension to an open netCDF file in define mode */ int nncddef(cdfid, dimname, dimlen, rcode, dimnamelen) int *cdfid; char *dimname; int dimnamelen; int *dimlen; int *rcode; { char name[MAX_NC_NAME + 1]; int dimid; nstrncpy (name, dimname, dimnamelen); if ((dimid = ncdimdef (*cdfid, name, (long)*dimlen)) != -1) { *rcode = 0; return (dimid + 1); } *rcode = ncerr; return (-1); } /* * returns the ID of a netCDF dimension, given the name of the * dimension */ int nncdid(cdfid, dimname, rcode, dimnamelen) int *cdfid; char *dimname; int dimnamelen; int *rcode; { char name[MAX_NC_NAME + 1]; int dimid; nstrncpy (name, dimname, dimnamelen); if ((dimid = ncdimid (*cdfid, name)) != -1) { *rcode = 0; return (dimid + 1); } *rcode = ncerr; return (-1); } /* adds a new variable to an open netCDF file in define mode */ int nncvdef(cdfid, varname, datatype, ndims, dimarray, rcode, varnamelen) int *cdfid; char *varname; int varnamelen; int *datatype; int *ndims; int *dimarray; int *rcode; { int varid, i, dimid[MAX_VAR_DIMS]; char name[MAX_NC_NAME + 1]; nstrncpy (name, varname, varnamelen); for (i = 0; i < *ndims; i++) dimid[i] = dimarray[i] - 1; reverse (dimid, *ndims); if ((varid = ncvardef (*cdfid, name, (nc_type) *datatype, *ndims, dimid)) != -1) { *rcode = 0; return (varid + 1); } *rcode = ncerr; return (-1); } /* returns the ID of a netCDF variable given its name */ int nncvid(cdfid, varname, rcode, varnamelen) int *cdfid; char *varname; int varnamelen; int *rcode; { int varid; char name[MAX_NC_NAME + 1]; nstrncpy (name, varname, varnamelen); if ((varid = ncvarid (*cdfid, name)) != -1) { *rcode = 0; return (varid + 1); } *rcode = ncerr; return (-1); } /* returns number of bytes per netCDF data type */ int nnctlen(datatype, rcode) int *datatype; int *rcode; { int itype; if ((itype = nctypelen ((nc_type) *datatype)) != -1) { *rcode = 0; return (itype); } *rcode = ncerr; return (-1); } /* closes an open netCDF file */ void nncclos(cdfid, rcode) int *cdfid; int *rcode; { *rcode = 0; if (ncclose (*cdfid) == -1) *rcode = ncerr; } /* puts an open netCDF into define mode */ void nncredf(cdfid, rcode) int *cdfid; int *rcode; { *rcode = 0; if (ncredef (*cdfid) == -1) *rcode = ncerr; } /* takes an open netCDF out of define mode */ void nncendf(cdfid, rcode) int *cdfid; int *rcode; { *rcode = 0; if (ncendef (*cdfid) == -1) *rcode = ncerr; } /* returns information about an open netCDF file given its netCDF ID */ void nncinq(cdfid, ndims, nvars, natts, recdim, rcode) int *cdfid; int *ndims; int *nvars; int *natts; int *recdim; int *rcode; { *rcode = 0; if (ncinquire (*cdfid, ndims, nvars, natts, recdim) == -1) { *rcode = ncerr; return; } if (*recdim != -1) (*recdim)++; } /* * makes sure that the disk copy of a netCDF file open for writing * is current */ void nncsnc(cdfid, rcode) int *cdfid; int *rcode; { *rcode = 0; if (ncsync (*cdfid) == -1) *rcode = ncerr; } /* * restores the netCDF to a known consistent state in case anything * goes wrong during the definition of new dimensions, variables * or attributes */ void nncabor(cdfid, rcode) int *cdfid; int *rcode; { *rcode = 0; if (ncabort (*cdfid) == -1) *rcode = ncerr; } /* returns the name and size of a dimension, given its ID */ void nncdinq(cdfid, dimid, dimname, size, rcode, dimnamelen) int *cdfid; int *dimid; char *dimname; int dimnamelen; int *size; int *rcode; { long siz; char name[MAX_NC_NAME + 1]; *rcode = 0; if (ncdiminq (*cdfid, *dimid - 1, name, &siz) == -1) { *rcode = ncerr; return; } *size = siz; if (strlen (name) > dimnamelen) { *rcode = NC_ESTS; handle_err ("NCDINQ", *rcode); return; } /* blank fill the input character string */ fcdcpy (dimname, dimnamelen, name); } /* renames an existing dimension in a netCDF open for writing */ void nncdren(cdfid, dimid, dimname, rcode, dimnamelen) int *cdfid; int *dimid; char *dimname; int dimnamelen; int *rcode; { char name[MAX_NC_NAME + 1]; nstrncpy (name, dimname, dimnamelen); *rcode = 0; if (ncdimrename (*cdfid, *dimid - 1, name) == -1) *rcode = ncerr; } /* returns information about a netCDF variable, given its ID */ void nncvinq(cdfid, varid, varname, datatype, ndims, dimarray, natts, rcode, varnamelen) int *cdfid; int *varid; char *varname; int varnamelen; int *datatype; int *ndims; int *dimarray; int *natts; int *rcode; { char name[MAX_NC_NAME + 1]; int dimid[MAX_VAR_DIMS], i; *rcode = 0; if (ncvarinq (*cdfid, *varid - 1, name, (nc_type *) datatype, ndims, dimid, natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < *ndims; i++) dimarray[i] = dimid[i] + 1; reverse (dimarray, *ndims); if (strlen (name) > varnamelen) { *rcode = NC_ESTS; handle_err ("NCVINQ", *rcode); return; } fcdcpy (varname, varnamelen, name); } /* puts a single numeric data value into a variable of an open netCDF */ void nncvpt1(cdfid, varid, indices, value, rcode) int *cdfid; int *varid; int *indices; void *value; int *rcode; { int datatype, ndims, natts, i; long nindices[MAX_VAR_DIMS]; int dimid[MAX_VAR_DIMS]; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimid, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) nindices[i] = indices[i] - 1; revlongs (nindices, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { /* pack ints into bytes */ char bytes = *(int *) value; if (ncvarput1(*cdfid, *varid - 1, nindices, (ncvoid *) &bytes) == -1) { *rcode = ncerr; } return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { /* pack ints into shorts */ short shorts = *(int *)value; if (ncvarput1(*cdfid, *varid - 1, nindices, (ncvoid *) &shorts) == -1) { *rcode = ncerr; } return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long longs = *(int *)value; if (ncvarput1(*cdfid, *varid - 1, nindices, (ncvoid *) &longs) == -1) { *rcode = ncerr; } return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long longs = *(int *)value; if (ncvarput1(*cdfid, *varid - 1, nindices, (ncvoid *) &longs) == -1) { *rcode = ncerr; } return; } /* else */ #endif /* HDF */ #endif if (ncvarput1 (*cdfid, *varid - 1, nindices, value) == -1) { *rcode = ncerr; } } /* puts a single character into an open netCDF file */ void nncvp1c(cdfid, varid, indices, chval, rcode, chvallen) int *cdfid; int *varid; int *indices; char *chval; int chvallen; int *rcode; { int datatype, ndims, natts, i; long nindices[MAX_VAR_DIMS]; int dimid[MAX_VAR_DIMS]; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimid, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) nindices[i] = indices[i] - 1; revlongs (nindices, ndims); *rcode = 0; if (ncvarput1 (*cdfid, *varid - 1, nindices, (ncvoid *) chval) == -1) { *rcode = ncerr; } } /* * writes a hypercube of numeric values into a netCDF variable of an open * netCDF file */ void nncvpt(cdfid, varid, start, count, value, rcode) int *cdfid; int *varid; int *start; int *count; void *value; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS], i; int ndims, datatype, dimarray[MAX_VAR_DIMS], natts; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; } revlongs (ncount, ndims); revlongs (nstart, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { /* pack ints into bytes */ char *bytes = itob (value, ncount, ndims); if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncvarput (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) bytes) == -1) { *rcode = ncerr; } free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { /* pack ints into shorts */ short *shorts = itos (value, ncount, ndims); if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncvarput (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) shorts) == -1) { *rcode = ncerr; } free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long *longs = itol (value, ncount, ndims); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarput (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long *longs = itol (value, ncount, ndims); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarput (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncvarput (*cdfid, *varid - 1, nstart, ncount, value) == -1) { *rcode = ncerr; } } /* writes a hypercube of character values into an open netCDF file */ void nncvptc(cdfid, varid, start, count, string, lenstr, rcode, stringlen) int *cdfid; int *varid; int *start; int *count; char *string; int stringlen; int *lenstr; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS], i; int ndims, datatype, dimarray[MAX_VAR_DIMS], natts; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; } revlongs (ncount, ndims); revlongs (nstart, ndims); if (dimprod(ncount,ndims) > *lenstr) { *rcode = NC_ESTS; handle_err ("NCVPTC", *rcode); return; } *rcode = 0; if (ncvarput (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) string) == -1) { *rcode = ncerr; } } /* * writes a generalized hypercube of numeric values into a netCDF variable of * an open netCDF file */ void nncvptg(cdfid, varid, start, count, stride, basis, value, rcode) int *cdfid; int *varid; int *start; int *count; int *stride; int *basis; void *value; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS], i; long nstride[MAX_VAR_DIMS], nbasis[MAX_VAR_DIMS]; long tmpbasis; int ndims, datatype, dimarray[MAX_VAR_DIMS], natts; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } #ifdef FORTRAN_HAS_NO_BYTE if (datatype == NC_CHAR || datatype == NC_BYTE) tmpbasis = nctypelen(NC_LONG); else #endif #ifdef FORTRAN_HAS_NO_SHORT if (datatype == NC_SHORT) tmpbasis = nctypelen(NC_LONG); else #endif #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ if (datatype == NC_LONG) tmpbasis = sizeof(int); else #endif tmpbasis = nctypelen(datatype); for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; nstride[i] = stride[0] == 0 ? 1 : stride[i]; nbasis[i] = basis[0] == 0 ? tmpbasis : basis[i]; tmpbasis *= count[i]; } revlongs (ncount, ndims); revlongs (nstart, ndims); revlongs (nstride, ndims); revlongs (nbasis, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { /* pack ints into bytes */ /* * Release 2.3.1 had a bug in the following line: it used count * rather than ncount. */ char *bytes = itobg (value, ncount, nbasis, ndims); if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) bytes) == -1) { *rcode = ncerr; } free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { /* pack ints into shorts */ /* * Release 2.3.1 had a bug in the following line: it used count * rather than ncount. */ short *shorts = itosg (value, ncount, nbasis, ndims); if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) shorts) == -1) { *rcode = ncerr; } free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long *longs = itolg (value, ncount, nbasis, ndims); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long *longs = itolg (value, ncount, nbasis, ndims); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, nbasis, value) == -1) { *rcode = ncerr; } } /* * writes a generalized hypercube of character values into a netCDF variable of * an open netCDF file */ void nncvpgc(cdfid, varid, start, count, stride, basis, string, rcode, stringlen) int *cdfid; int *varid; int *start; int *count; int *stride; int *basis; char *string; int stringlen; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS], i; long nstride[MAX_VAR_DIMS], nbasis[MAX_VAR_DIMS]; long tmpbasis; int ndims, datatype, dimarray[MAX_VAR_DIMS], natts; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } tmpbasis = nctypelen(datatype); for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; nstride[i] = stride[0] == 0 ? 1 : stride[i]; nbasis[i] = basis[0] == 0 ? tmpbasis : basis[i]; tmpbasis *= count[i]; } revlongs (ncount, ndims); revlongs (nstart, ndims); revlongs (nstride, ndims); revlongs (nbasis, ndims); *rcode = 0; if (ncvarputg (*cdfid, *varid - 1, nstart, ncount, nstride, nbasis, (ncvoid*)string) == -1) { *rcode = ncerr; } } /* gets a single numeric value from a variable of an open netCDF file */ void nncvgt1(cdfid, varid, indices, value, rcode) int *cdfid; int *varid; int *indices; void *value; int *rcode; { long nindices[MAX_VAR_DIMS], i; int datatype, ndims, dimarray[MAX_VAR_DIMS], natts; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { nindices[i] = indices[i] - 1; } revlongs (nindices, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { char bytes; int *ip = (int *) value; char *bp = &bytes; if (ncvarget1(*cdfid, *varid - 1, nindices, (ncvoid *) &bytes) == -1) { *rcode = ncerr; return; } *ip = *bp; return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { short shorts; int *ip = (int *) value; short *sp = &shorts; if (ncvarget1(*cdfid, *varid - 1, nindices, (ncvoid *) &shorts) == -1) { *rcode = ncerr; return; } *ip = *sp; return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long longs; int *ip = (int *) value; if (ncvarget1(*cdfid, *varid - 1, nindices, (ncvoid *) &longs) == -1) { *rcode = ncerr; return; } *ip = longs; return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long longs; int *ip = (int *) value; if (ncvarget1(*cdfid, *varid - 1, nindices, (ncvoid *) &longs) == -1) { *rcode = ncerr; return; } *ip = longs; return; } /* else */ #endif /* HDF */ #endif if (ncvarget1 (*cdfid, *varid - 1, nindices, value) == -1) { *rcode = ncerr; } } /* * gets a single character data value from a variable of an open * netCDF file */ void nncvg1c(cdfid, varid, indices, chval, rcode, chvallen) int *cdfid; int *varid; int *indices; char *chval; int chvallen; int *rcode; { long nindices[MAX_VAR_DIMS]; int i, datatype, ndims, dimarray[MAX_VAR_DIMS], natts; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { nindices[i] = indices[i] - 1; } revlongs (nindices, ndims); *rcode = 0; if (ncvarget1 (*cdfid, *varid - 1, nindices, (ncvoid *) chval) == -1) { *rcode = ncerr; } } /* * reads a hypercube of numeric values from a netCDF variable of an open * netCDF file */ void nncvgt(cdfid, varid, start, count, value, rcode) int *cdfid; int *varid; int *start; int *count; void *value; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS]; int i, ndims, datatype, dimarray[MAX_VAR_DIMS], natts; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; } revlongs (ncount, ndims); revlongs (nstart, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ char *bytes = (char *) malloc (iocount * sizeof (char)); int *ip; char *bp = bytes; if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncvarget (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) bytes) == -1) { *rcode = ncerr; free (bytes); return; } for (ip = (int *) value; iocount > 0; iocount--) *ip++ = *bp++; free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ short *shorts = (short *) malloc (iocount * sizeof (short)); int *ip; short *sp = shorts; if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncvarget (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) shorts) == -1) { *rcode = ncerr; free (shorts); return; } for (ip = (int *) value; iocount > 0; iocount--) *ip++ = *sp++; free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ /* EIP We need int buffer to read data in on the platforms where long is 8 bytes long *longs = (long *) malloc (iocount * sizeof (long)); int *ip; long *lp = longs; */ int *longs = (int *) malloc (iocount * sizeof (int)); int *ip; int *lp = longs; if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarget (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } for (ip = (int *) value; iocount > 0; iocount--) *ip++ = *lp++; free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ long *longs = (long *) malloc (iocount * sizeof (long)); int *ip; long *lp = longs; if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvarget (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } for (ip = (int *) value; iocount > 0; iocount--) *ip++ = *lp++; free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncvarget (*cdfid, *varid - 1, nstart, ncount, value) == -1) { *rcode = ncerr; } } /* reads a hypercube of character values from a netCDF variable */ void nncvgtc(cdfid, varid, start, count, string, lenstr, rcode, stringlen) int *cdfid; int *varid; int *start; int *count; char *string; int stringlen; int *lenstr; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS]; int i, ndims, datatype, dimarray[MAX_VAR_DIMS], natts; int prod = 1; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; prod *= count[i]; } if (prod > *lenstr) { *rcode = NC_ESTS; handle_err ("NCVGTC", *rcode); return; } revlongs (ncount, ndims); revlongs (nstart, ndims); *rcode = 0; if (ncvarget (*cdfid, *varid - 1, nstart, ncount, (ncvoid *) string) == -1) { *rcode = ncerr; return; } for (i = prod; i < *lenstr; i++) string[i] = ' '; } /* * reads a generalized hypercube of numeric values from a netCDF variable of an * open netCDF file */ void nncvgtg(cdfid, varid, start, count, stride, basis, value, rcode) int *cdfid; int *varid; int *start; int *count; int *stride; int *basis; void *value; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS]; long nstride[MAX_VAR_DIMS], nbasis[MAX_VAR_DIMS]; long tmpbasis; int i, ndims, datatype, dimarray[MAX_VAR_DIMS], natts; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } #ifdef FORTRAN_HAS_NO_BYTE if (datatype == NC_CHAR || datatype == NC_BYTE) tmpbasis = nctypelen(NC_LONG); else #endif #ifdef FORTRAN_HAS_NO_SHORT if (datatype == NC_SHORT) tmpbasis = nctypelen(NC_LONG); else #endif #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ if (datatype == NC_LONG) tmpbasis = sizeof(int); else #endif tmpbasis = nctypelen(datatype); for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; nstride[i] = stride[0] == 0 ? 1 : stride[i]; nbasis[i] = basis[0] == 0 ? tmpbasis : basis[i]; tmpbasis *= count[i]; } revlongs (ncount, ndims); revlongs (nstart, ndims); revlongs (nstride, ndims); revlongs (nbasis, ndims); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ char *bytes = (char *) malloc (iocount * sizeof (char)); int *ip; char *bp = bytes; if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) bytes) == -1) { *rcode = ncerr; free (bytes); return; } /* * Release 2.3.1 had a bug in the following line: it used basis * rather than nbasis. */ btoig(bytes, (int*)value, ncount, nbasis, ndims); free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ short *shorts = (short *) malloc (iocount * sizeof (short)); int *ip; short *sp = shorts; if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) shorts) == -1) { *rcode = ncerr; free (shorts); return; } /* * Release 2.3.1 had a bug in the following line: it used basis * rather than nbasis. */ stoig(shorts, (int*)value, ncount, nbasis, ndims); free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ long *longs = (long *) malloc (iocount * sizeof (long)); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } ltoig(longs, (int*)value, ncount, nbasis, ndims); free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long iocount = dimprod (ncount, ndims); /* product of dimensions */ long *longs = (long *) malloc (iocount * sizeof (long)); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, (long*)NULL, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } ltoig(longs, (int*)value, ncount, nbasis, ndims); free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, nbasis, value) == -1) { *rcode = ncerr; } } /* * reads a generalized hypercube of character values from a netCDF variable * of an open netCDF file */ void nncvggc(cdfid, varid, start, count, stride, basis, string, rcode, stringlen) int *cdfid; int *varid; int *start; int *count; int *stride; int *basis; char *string; int stringlen; int *rcode; { long ncount[MAX_VAR_DIMS], nstart[MAX_VAR_DIMS]; long nstride[MAX_VAR_DIMS], nbasis[MAX_VAR_DIMS]; long tmpbasis; int i, ndims, datatype, dimarray[MAX_VAR_DIMS], natts; if (ncvarinq (*cdfid, *varid - 1, (char *) 0, (nc_type *) & datatype, &ndims, dimarray, &natts) == -1) { *rcode = ncerr; return; } tmpbasis = nctypelen(datatype); for (i = 0; i < ndims; i++) { ncount[i] = count[i]; nstart[i] = start[i] - 1; nstride[i] = stride[0] == 0 ? 1 : stride[i]; nbasis[i] = basis[0] == 0 ? tmpbasis : basis[i]; tmpbasis *= count[i]; } revlongs (ncount, ndims); revlongs (nstart, ndims); revlongs (nstride, ndims); revlongs (nbasis, ndims); *rcode = 0; if (ncvargetg (*cdfid, *varid - 1, nstart, ncount, nstride, nbasis, (ncvoid*)string) == -1) { *rcode = ncerr; } } /* changes the name of a netCDF variable in an open netCDF file */ void nncvren(cdfid, varid, varname, rcode, varnamelen) int *cdfid; int *varid; char *varname; int varnamelen; int *rcode; { char name[MAX_NC_NAME + 1]; nstrncpy (name, varname, varnamelen); *rcode = 0; if (ncvarrename (*cdfid, *varid - 1, name) == -1) { *rcode = ncerr; } } /* * adds or changes a numeric variable or global attribute of an open * netCDF file */ void nncapt(cdfid, varid, attname, datatype, attlen, value, rcode, attnamelen) int *cdfid; int *varid; char *attname; int attnamelen; int *datatype; int *attlen; void *value; int *rcode; { char name[MAX_NC_NAME + 1]; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ nstrncpy (name, attname, attnamelen); *rcode = 0; #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) *datatype == NC_BYTE) { /* pack ints into bytes */ char *bytes = itob (value, attlen, 1); if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *attlen, (ncvoid *) bytes) == -1) { *rcode = ncerr; } free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) *datatype == NC_SHORT) { /* pack ints into shorts */ short *shorts = itos (value, attlen, 1); if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *attlen, (ncvoid *) shorts) == -1) { *rcode = ncerr; } free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) { long *longs = itol (value, attlen, 1); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *attlen, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) *datatype == NC_LONG) { long *longs = itol (value, attlen, 1); if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *attlen, (ncvoid *) longs) == -1) { *rcode = ncerr; } free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *attlen, value) == -1) { *rcode = ncerr; } } /* * adds or changes a character variable or global attribute * of an open netCDF file */ void nncaptc(cdfid, varid, attname, datatype, lenstr, string, rcode, attnamelen, stringlen) int *cdfid; int *varid; char *attname; int attnamelen; int *datatype; int *lenstr; char *string; int stringlen; int *rcode; { char name[MAX_NC_NAME + 1]; char *value; nstrncpy (name, attname, attnamelen); if (((value = malloc ((unsigned) *lenstr + 1)) == NULL) || (*lenstr == 0)) { *rcode = NC_ESTS; handle_err ("NCAPTC", *rcode); return; } (void) fstrncpy (value, string, *lenstr); *rcode = 0; if (ncattput (*cdfid, *varid - 1, name, (nc_type) *datatype, *lenstr, (ncvoid *) value) == -1) { *rcode = ncerr; } free (value); } /* * returns information about a netCDF attribute given its variable * ID and name */ void nncainq(cdfid, varid, attname, datatype, attlen, rcode, attnamelen) int *cdfid; int *varid; char *attname; int attnamelen; int *datatype; int *attlen; int *rcode; { char name[MAX_NC_NAME + 1]; nstrncpy (name, attname, attnamelen); *rcode = 0; if (ncattinq (*cdfid, *varid - 1, name, (nc_type *) datatype, attlen) == -1) { *rcode = ncerr; } } /* * gets the value of a netCDF attribute given its variable ID * and name */ void nncagt(cdfid, varid, attname, value, rcode, attnamelen) int *cdfid; int *varid; char *attname; int attnamelen; void *value; int *rcode; { char name[MAX_NC_NAME + 1]; int datatype; int attlen; #ifdef HDF NC *handle=NC_check_id(*cdfid); #endif /* HDF */ nstrncpy (name, attname, attnamelen); *rcode = 0; if (ncattinq (*cdfid, *varid - 1, name, (nc_type *) &datatype, &attlen) == -1) { *rcode = ncerr; return; } #ifdef FORTRAN_HAS_NO_BYTE if ((nc_type) datatype == NC_BYTE) { char *bytes = (char *) malloc (attlen); int *ip; char *bp = bytes; if (bytes == NULL) { *rcode = NC_SYSERR; return; } if (ncattget (*cdfid, *varid - 1, name, (ncvoid *) bytes) == -1) { *rcode = ncerr; free (bytes); return; } for (ip = (int *) value; attlen > 0; attlen--) *ip++ = *bp++; free (bytes); return; } /* else */ #endif /* FORTRAN_HAS_NO_BYTE */ #ifdef FORTRAN_HAS_NO_SHORT if ((nc_type) datatype == NC_SHORT) { short *shorts = (short *) malloc (attlen * sizeof (short)); int *ip; short *sp = shorts; if (shorts == NULL) { *rcode = NC_SYSERR; return; } if (ncattget (*cdfid, *varid - 1, name, (ncvoid *) shorts) == -1) { *rcode = ncerr; free (shorts); return; } for (ip = (int *) value; attlen > 0; attlen--) *ip++ = *sp++; free (shorts); return; } /* else */ #endif /* FORTRAN_HAS_NO_SHORT */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ #ifdef HDF if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) { /* EIP We need to use int buffer to read data in on the platforms where long is 8 bytes long *longs = (long *) malloc (attlen * sizeof (long)); int *ip; long *lp = longs; */ int *longs = (int *) malloc (attlen * sizeof (int)); int *ip; int *lp = longs; if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncattget (*cdfid, *varid - 1, name, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } for (ip = (int *) value; attlen > 0; attlen--) *ip++ = *lp++; free (longs); return; } /* else */ #else /* HDF */ if ((nc_type) datatype == NC_LONG) { long *longs = (long *) malloc (attlen * sizeof (long)); int *ip; long *lp = longs; if (longs == NULL) { *rcode = NC_SYSERR; return; } if (ncattget (*cdfid, *varid - 1, name, (ncvoid *) longs) == -1) { *rcode = ncerr; free (longs); return; } for (ip = (int *) value; attlen > 0; attlen--) *ip++ = *lp++; free (longs); return; } /* else */ #endif /* HDF */ #endif if (ncattget (*cdfid, *varid - 1, name, value) == -1) { *rcode = ncerr; } } /* * gets the value of a netCDF character attribute given its variable * ID and name */ void nncagtc(cdfid, varid, attname, string, lenstr, rcode, attnamelen, stringlen) int *cdfid; int *varid; char *attname; int attnamelen; char *string; int stringlen; int *lenstr; int *rcode; { char name[MAX_NC_NAME + 1]; int datatype; int attlen; int i; nstrncpy (name, attname, attnamelen); *rcode = 0; if (ncattinq (*cdfid, *varid - 1, name, (nc_type *) &datatype, &attlen) == -1) { *rcode = ncerr; return; } if (attlen > *lenstr) { *rcode = NC_ESTS; handle_err ("NCAGTC", *rcode); return; } if (ncattget (*cdfid, *varid - 1, name, (ncvoid *) string) == -1) { *rcode = ncerr; return; } for (i = attlen; i < *lenstr; i++) string[i] = ' '; } /* copies an attribute from one open netCDF file to another */ void nncacpy(incdfid, invarid, attname, outcdfid, outvarid, rcode, attnamelen) int *incdfid; int *invarid; char *attname; int attnamelen; int *outcdfid; int *outvarid; int *rcode; { char name[MAX_NC_NAME + 1]; nstrncpy (name, attname, attnamelen); *rcode = 0; if (ncattcopy (*incdfid, *invarid - 1, name, *outcdfid, *outvarid - 1) == -1) { *rcode = ncerr; } } /* * gets the name of an attribute given its variable ID and number * as an attribute of that variable */ void nncanam(cdfid, varid, attnum, attname, rcode, attnamelen) int *cdfid; int *varid; int *attnum; char *attname; int attnamelen; int *rcode; { char name[MAX_NC_NAME + 1]; *rcode = 0; if (ncattname (*cdfid, *varid - 1, *attnum - 1, name) == -1) { *rcode = ncerr; return; } if (strlen (name) > attnamelen) { *rcode = NC_ESTS; handle_err ("NCANAM", *rcode); return; } fcdcpy (attname, attnamelen, name); } /* renames an attribute in an open netCDF file */ void nncaren(cdfid, varid, attname, newname, rcode, attnamelen, newnamelen) int *cdfid; int *varid; char *attname; int attnamelen; char *newname; int newnamelen; int *rcode; { char name[MAX_NC_NAME + 1], nname[MAX_NC_NAME + 1]; nstrncpy (name, attname, attnamelen); nstrncpy (nname, newname, newnamelen); *rcode = 0; if (ncattrename (*cdfid, *varid - 1, name, nname) == -1) { *rcode = ncerr; } } /* * deletes an attribute from an open netCDF file given the attribute * name */ void nncadel(cdfid, varid, attname, rcode, attnamelen) int *cdfid; int *varid; char *attname; int attnamelen; int *rcode; { char name[MAX_NC_NAME + 1]; nstrncpy (name, attname, attnamelen); *rcode = 0; if (ncattdel (*cdfid, *varid - 1, name) == -1) { *rcode = ncerr; } } /* * sets the fill mode of a netCDF file open for writing */ int nncsfil(cdfid, fillmode, rcode) int *cdfid; int *fillmode; int *rcode; { int retval; if ((retval = ncsetfill (*cdfid, *fillmode)) != -1) { *rcode = 0; return retval; } *rcode = ncerr; return (-1); } libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/mfsdf.h0000644000000000000000000002471512421456623015126 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef _MFSDF_H_ #define _MFSDF_H_ #include "H4api_adpt.h" #include "mfhdf.h" #ifdef __cplusplus extern "C" { #endif /* Define the FORTRAN names */ # define nscstart H4_F77_FUNC(scstart, SCSTART) # define nsfend H4_F77_FUNC(sfend, SFEND) # define nsfendacc H4_F77_FUNC(sfendacc, SFENDACC) # define nsffinfo H4_F77_FUNC(sffinfo, SFFINFO) # define nsfselect H4_F77_FUNC(sfselect, SFSELECT) # define nscginfo H4_F77_FUNC(scginfo, SCGINFO) # define nscgainfo H4_F77_FUNC(scgainfo, SCGAINFO) # define nscgdinfo H4_F77_FUNC(scgdinfo, SCGDINFO) # define nsfgcal H4_F77_FUNC(sfgcal, SFGCAL) # define nsfscal H4_F77_FUNC(sfscal, SFSCAL) # define nsfgdscale H4_F77_FUNC(sfgdscale, SFGDSCALE) # define nsfsdscale H4_F77_FUNC(sfsdscale, SFSDSCALE) # define nsfgcfill H4_F77_FUNC(sfgcfill, SFGCFILL) # define nsfgfill H4_F77_FUNC(sfgfill, SFGFILL) # define nsfscfill H4_F77_FUNC(sfscfill, SFSCFILL) # define nsfsfill H4_F77_FUNC(sfsfill, SFSFILL) # define nsfsflmd H4_F77_FUNC(sfsflmd, SFSFLMD) # define nsfgrange H4_F77_FUNC(sfgrange, SFGRANGE) # define nsfsrange H4_F77_FUNC(sfsrange, SFSRANGE) # define nscn2index H4_F77_FUNC(scn2index, SCN2INDEX) # define nsccreate H4_F77_FUNC(sccreate, SCCREATE) # define nscsdimstr H4_F77_FUNC(scsdimstr, SCSDIMSTR) # define nscsdimname H4_F77_FUNC(scsdimname, SCSDIMNAME) # define nscsdatstr H4_F77_FUNC(scsdatstr, SCSDATSTR) # define nsfdimid H4_F77_FUNC(sfdimid, SFDIMID) # define nsfrcatt H4_F77_FUNC(sfrcatt, SFRCATT) # define nsfrnatt H4_F77_FUNC(sfrnatt, SFRNATT) # define nsfrattr H4_F77_FUNC(sfrattr, SFRATTR) # define nsfrcdata H4_F77_FUNC(sfrcdata, SFRCDATA) # define nsfrdata H4_F77_FUNC(sfrdata, SFRDATA) # define nsfwcdata H4_F77_FUNC(sfwcdata, SFWCDATA) # define nsfwdata H4_F77_FUNC(sfwdata, SFWDATA) # define nscgdatstrs H4_F77_FUNC(scgdatstrs, SCGDATSTRS) # define nscgdimstrs H4_F77_FUNC(scgdimstrs, SCGDIMSTRS) # define nscscatt H4_F77_FUNC(scscatt, SCSCATT) # define nscsnatt H4_F77_FUNC(scsnatt, SCSNATT) # define nscsattr H4_F77_FUNC(scsattr, SCSATTR) # define nscfattr H4_F77_FUNC(scfattr, SCFATTR) # define nsfid2ref H4_F77_FUNC(sfid2ref, SFID2REF) # define nsfref2index H4_F77_FUNC(sfref2index, SFREF2INDEX) # define nsfiscvar H4_F77_FUNC(sfiscvar, SFISCVAR) # define nscsextf H4_F77_FUNC(scsextf, SCSEXTF) # define nsfsacct H4_F77_FUNC(sfsacct, SFSACCT) # define nsfsdmvc H4_F77_FUNC(sfsdmvc, SFSDMVC) # define nsfisdmvc H4_F77_FUNC(sfisdmvc, SFISDMVC) # define nsfisrcrd H4_F77_FUNC(sfisrcrd, SFISRCRD) # define nscgichnk H4_F77_FUNC(scgichnk, SCGICHNK) # define nscrcchnk H4_F77_FUNC(scrcchnk, SCRCCHNK) # define nscrchnk H4_F77_FUNC(scrchnk, SCRCHNK) # define nscscchnk H4_F77_FUNC(scscchnk, SCSCCHNK) # define nscschnk H4_F77_FUNC(scschnk, SCSCHNK) # define nscwcchnk H4_F77_FUNC(scwcchnk, SCWCCHNK) # define nscwchnk H4_F77_FUNC(scwchnk, SCWCHNK) # define nscscompress H4_F77_FUNC(scscompress, SCSCOMPRESS) # define nscgcompress H4_F77_FUNC(scgcompress, SCGCOMPRESS) # define nsfsnbit H4_F77_FUNC(sfsnbit, SFSNBIT) # define nsfsblsz H4_F77_FUNC(sfsblsz, SFSBLSZ) # define nscchempty H4_F77_FUNC(scchempty, SCCHEMPTY) # define nscgetfname H4_F77_FUNC(scgetfname,SCGETFNAME) # define nscgetnamelen H4_F77_FUNC(scgetnamelen,SCGETNAMELEN) # define nscidtype H4_F77_FUNC(scidtype,SCIDTYPE) # define nscgnvars_byname H4_F77_FUNC(scgnvars_byname,SCGNVARS_BYNAME) # define nscn2indices H4_F77_FUNC(scn2indices,SCN2INDICES) # define nscgmaxopenf H4_F77_FUNC(scgmaxopenf,SCGMAXOPENF) # define nscgnumopenf H4_F77_FUNC(scgnumopenf,SCGNUMOPENF) # define nscrmaxopenf H4_F77_FUNC(scrmaxopenf,SCRMAXOPENF) HDFFCLIBAPI FRETVAL(intf) nscstart(_fcd name, intf *access, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nscginfo(intf *id, _fcd name, intf *rank, intf *dimsizes, intf *nt, intf *nattr, intf *len); HDFFCLIBAPI FRETVAL(intf) nscn2index(intf *id, _fcd name, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nsccreate(intf *id, _fcd name, intf *nt, intf *rank, intf *dims, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nscsdimstr(intf *id, _fcd l, _fcd u, _fcd f, intf *ll, intf *ul, intf *fl); HDFFCLIBAPI FRETVAL(intf) nscsdimname(intf *id, _fcd name, intf *len); HDFFCLIBAPI FRETVAL(intf) nscsdatstr(intf *id, _fcd l, _fcd u, _fcd f, _fcd c, intf *ll, intf *ul, intf *fl, intf *cl); HDFFCLIBAPI FRETVAL(intf) nscgdimstrs(intf *dim, _fcd label, _fcd unit, _fcd format,intf *llabel,intf *lunit, intf *lformat, intf *mlen); HDFFCLIBAPI FRETVAL(intf) nscgdatstrs(intf *id, _fcd label, _fcd unit, _fcd format, _fcd coord, intf *llabel, intf *lunit, intf *lformat, intf *lcoord, intf *len); HDFFCLIBAPI FRETVAL(intf) nscgainfo(intf *id, intf *number, _fcd name, intf *nt, intf *count, intf *len); HDFFCLIBAPI FRETVAL(intf) nscgdinfo(intf *id, _fcd name, intf *sz, intf *nt, intf *nattr, intf *len); HDFFCLIBAPI FRETVAL(intf) nscscatt(intf *id, _fcd name, intf *nt, intf *count, _fcd data, intf *len); HDFFCLIBAPI FRETVAL(intf) nscsnatt(intf *id, _fcd name, intf *nt, intf *count, VOIDP data, intf *len); HDFFCLIBAPI FRETVAL(intf) nscsattr(intf *id, _fcd name, intf *nt, intf *count, VOIDP data, intf *len); HDFFCLIBAPI FRETVAL(intf) nscsextf(intf *id, _fcd name, intf *offset, intf *namelen); HDFFCLIBAPI FRETVAL (intf) nscgichnk(intf *id, intf *dim_length, intf *flags); HDFFCLIBAPI FRETVAL (intf) nscrcchnk(intf *id, intf *start, _fcd char_data); HDFFCLIBAPI FRETVAL (intf) nscrchnk(intf *id, intf *start, VOIDP num_data); HDFFCLIBAPI FRETVAL (intf) nscscchnk(intf *id, intf *maxcache, intf *flags); HDFFCLIBAPI FRETVAL (intf) nscschnk(intf *id, intf *dim_length, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL (intf) nscwcchnk(intf *id, intf *start, _fcd char_data); HDFFCLIBAPI FRETVAL (intf) nscwchnk(intf *id, intf *start, VOIDP num_data); HDFFCLIBAPI FRETVAL (intf) nscscompress(intf *id, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL(intf) nscgcompress(intf *id, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL(intf) nscfattr(intf *id, _fcd name, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nscchempty(intf *id, intf *flag); HDFFCLIBAPI FRETVAL(intf) nscgnvars_byname(intf *sd_id, _fcd name, intf *namelen, intf *n_vars); HDFFCLIBAPI FRETVAL(intf) nscn2indices(intf *sd_id, _fcd name, intf *namelen, intf *var_list, intf *type_list, intf *n_vars); HDFFCLIBAPI FRETVAL(intf) nscgnumopenf(intf *cur_num); HDFFCLIBAPI FRETVAL(intf) nscgmaxopenf(intf *cur_max, intf *sys_limit); HDFFCLIBAPI FRETVAL(intf) nscrmaxopenf(intf *req_max); HDFFCLIBAPI FRETVAL(intf) nscidtype(intf *obj_id, intf *obj_type); HDFFCLIBAPI FRETVAL(intf) nscgetnamelen(intf *obj_id, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nscgetfname(intf *file_id, _fcd name, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nsfend(intf *file_id); HDFFCLIBAPI FRETVAL(intf) nsfendacc(intf *id); HDFFCLIBAPI FRETVAL(intf) nsffinfo(intf *file_id, intf *datasets, intf *gattr); HDFFCLIBAPI FRETVAL(intf) nsfselect(intf *file_id, intf *index); HDFFCLIBAPI FRETVAL(intf) nsfdimid(intf *id, intf *index); HDFFCLIBAPI FRETVAL(intf) nsfgcal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt); HDFFCLIBAPI FRETVAL(intf) nsfscal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt); HDFFCLIBAPI FRETVAL(intf) nsfsdscale(intf *id, intf *count, intf *nt, VOIDP values); HDFFCLIBAPI FRETVAL(intf) nsfgdscale(intf *id, VOIDP values); HDFFCLIBAPI FRETVAL(intf) nsfscfill(intf *id, _fcd val); HDFFCLIBAPI FRETVAL(intf) nsfgcfill(intf *id, _fcd val); HDFFCLIBAPI FRETVAL(intf) nsfsfill(intf *id, VOIDP val); HDFFCLIBAPI FRETVAL(intf) nsfgfill(intf *id, VOIDP val); HDFFCLIBAPI FRETVAL(intf) nsfgrange(intf *id, VOIDP max, VOIDP min); HDFFCLIBAPI FRETVAL(intf) nsfsrange(intf *id, VOIDP max, VOIDP min); HDFFCLIBAPI FRETVAL(intf) nsfrcatt(intf *id, intf *index, _fcd buf); HDFFCLIBAPI FRETVAL(intf) nsfrnatt(intf *id, intf *index, VOIDP buf); HDFFCLIBAPI FRETVAL(intf) nsfrattr(intf *id, intf *index, VOIDP buf); HDFFCLIBAPI FRETVAL(intf) nsfrdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values); HDFFCLIBAPI FRETVAL(intf) nsfwdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values); HDFFCLIBAPI FRETVAL(intf) nsfrcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values); HDFFCLIBAPI FRETVAL(intf) nsfwcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values); HDFFCLIBAPI FRETVAL(intf) nsfid2ref(intf *id); HDFFCLIBAPI FRETVAL(intf) nsfref2index(intf *id, intf *ref); HDFFCLIBAPI FRETVAL(intf) nsfiscvar(intf *id); HDFFCLIBAPI FRETVAL(intf) nsfsnbit(intf *id, intf *start_bit, intf *bit_len, intf *sign_ext, intf *fill_one); HDFFCLIBAPI FRETVAL(intf) nsfsacct(intf *id, intf *type); HDFFCLIBAPI FRETVAL(intf) nsfsdmvc(intf *id, intf *compmode); HDFFCLIBAPI FRETVAL(intf) nsfisdmvc(intf *id); HDFFCLIBAPI FRETVAL(intf) nsfsflmd(intf *id, intf *fillmode); HDFFCLIBAPI FRETVAL(intf) nsfisrcrd(intf *id); HDFFCLIBAPI FRETVAL(intf) nsfsblsz(intf *id, intf *block_size); #ifdef __cplusplus } #endif #endif /* _MFSDF_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/mfsdf.c0000644000000000000000000026162512421456623015124 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* $Id: mfsdf.c 6036 2014-01-20 17:28:01Z acheng $ */ /* This file contains the HDF-style C stubs for the multi-file SDS interface. The basic routines called by fortran will be of the form sfxxxx If only a C stub is needed it will be named nsfxxxx have the FNAME() function applied to it. If a Fortran stub is also required the fortran stub will be called sfxxxx and the one in here will be nscxxx and again be FNAME()ed */ #include "mfsdf.h" #ifdef HDF #ifdef PROTOTYPE FRETVAL(intf) nsfscfill(intf *id, _fcd val); FRETVAL(intf) nsfsfill(intf *id, VOIDP val); FRETVAL(intf) nsfgfill(intf *id, VOIDP val); FRETVAL(intf) nsfrnatt(intf *id, intf *index, VOIDP buf); FRETVAL(intf) nscsnatt(intf *id, _fcd name, intf *nt, intf *count, VOIDP data, intf *len); FRETVAL(intf) nsfsflmd(intf *id, intf *fillmode); #else FRETVAL(intf) nsfscfill(); FRETVAL(intf) nsfsfill(); FRETVAL(intf) nsfgfill(); FRETVAL(intf) nsfrnatt(); FRETVAL(intf) nscsnatt(); FRETVAL(intf) nsfsflmd(); #endif /* PROTOTYPE */ #if defined _WIN32 && !defined CMAKE_INTDIR /*----------------------------------------------------------------------------- * Name: scend * Purpose: Call SDend close to close HDF file * Inputs: file_id: handle to HDF file to close * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscend(intf *file_id) #else nscend(file_id) intf *file_id; #endif /* PROTOTYPE */ { return(SDend(*file_id)); } /*----------------------------------------------------------------------------- * Name: scendacc * Purpose: Call SDendaccess close to end access on a dataset * Inputs: id: id of the data set * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscendacc(intf *id) #else nscendacc(id) intf *id; #endif /* PROTOTYPE */ { return(SDendaccess(*id)); } /*----------------------------------------------------------------------------- * Name: scfinfo * Purpose: Call SDfileinfo to get number of datasets and global attrs in the file * Inputs: file_id: handle to HDF file * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscfinfo(intf *file_id, intf *datasets, intf *gattr) #else nscfinfo(file_id, datasets, gattr) intf *file_id; intf *datasets; intf *gattr; #endif /* PROTOTYPE */ { int32 dset, nattr, status; status = SDfileinfo((int32) *file_id, &dset, &nattr); *datasets = (intf) dset; *gattr = (intf) nattr; return (status); } /*----------------------------------------------------------------------------- * Name: scselct * Purpose: Call SDselect to return a handle to a data set in the given file * Inputs: file_id: handle to HDF file * index: number of data set to chose * Returns: sdsid on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscselct(intf *file_id, intf *index) #else nscselct(file_id, index) intf *file_id; intf *index; #endif /* PROTOTYPE */ { return(SDselect(*file_id, *index)); } /*----------------------------------------------------------------------------- * Name: scdimid * Purpose: Get an id for a dimension of a given data set * Inputs: id: handle to a data set * index: number of dimension to chose * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscdimid(intf *id, intf *index) #else nscdimid(id, index) intf *id; intf *index; #endif /* PROTOTYPE */ { int32 rank, nt, dims[100], status, cdim, nattrs; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; cdim = rank - (*index) -1; return(SDgetdimid(*id, cdim)); } /*----------------------------------------------------------------------------- * Name: scgcal * Purpose: Call SDgetcal to get the calibration information * Inputs: id: handle to a data set * Outputs: cal, cale, ioff, ioffe : calibration factors and error * nt: number type of data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgcal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt) #else nscgcal(id, cal, cale, ioff, ioffe, nt) intf *id; float64 *cal, *cale, *ioff, *ioffe; intf *nt; #endif /* PROTOTYPE */ { int32 nt32, status; status = SDgetcal((int32) *id, cal, cale, ioff, ioffe, &nt32); *nt = (intf) nt32; return (status); } /*----------------------------------------------------------------------------- * Name: scscal * Purpose: Call SDsetcal to set the calibration information * Inputs: id: handle to a data set * cal, cale, ioff, ioffe : calibration factors and error * nt: number type of data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscscal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt) #else nscscal(id, cal, cale, ioff, ioffe, nt) intf *id; float64 *cal, *cale, *ioff, *ioffe; intf *nt; #endif /* PROTOTYPE */ { return(SDsetcal(*id, *cal, *cale, *ioff, *ioffe, *nt)); } /*----------------------------------------------------------------------------- * Name: scsdscale * Purpose: Call SDsetdimscale to set the values for a dimension * Inputs: id: handle to a dimension * count: size of the dimension * nt: number type of data * values: data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsdscale(intf *id, intf *count, intf *nt, VOIDP values) #else nscsdscale(id, count, nt, values) intf *id; intf *count, *nt; VOIDP values; #endif /* PROTOTYPE */ { return(SDsetdimscale(*id, *count, *nt, values)); } /*----------------------------------------------------------------------------- * Name: scgdscale * Purpose: Call SDgetdimscale to get the values for a dimension * Inputs: id: handle to a dimension * Output values: data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgdscale(intf *id, VOIDP values) #else nscgdscale(id, values) intf *id; VOIDP values; #endif /* PROTOTYPE */ { return(SDgetdimscale(*id, values)); } /*---------------------------------------------------------- * Name: scscfill * Purpose: Call nsfsnfill to set the char fill value * Inputs: id: handle to a dimension * val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscscfill(intf *id, _fcd val) #else nscscfill(id, val) intf *id; _fcd val; #endif /* PROTOTYPE */ { return(nscsfill(id, (VOIDP) _fcdtocp(val))); } /*------------------------------------------------------------ * Name: scgcfill * Purpose: Call sfgfill to get the char fill value * Inputs: id: handle to a dimension * Output: val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *-----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgcfill(intf *id, _fcd val) #else nscgcfill(id, val) intf *id; _fcd val; #endif /* PROTOTYPE */ { return(nscgfill(id, (VOIDP) _fcdtocp(val))); } /*--------------------------------------------------------- * Name: scsfill * Purpose: Call SDsetfillvalue to set the numeric fill value * Inputs: id: handle to a dimension * val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsfill(intf *id, VOIDP val) #else nscsfill(id, val) intf *id; VOIDP val; #endif /* PROTOTYPE */ { return(SDsetfillvalue(*id, val)); } /*---------------------------------------------------------- * Name: scgfill * Purpose: Call SDgetfillvalue to get the fill value. * Inputs: id: handle to a dimension * Output: val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgfill(intf *id, VOIDP val) #else nscgfill(id, val) intf *id; VOIDP val; #endif /* PROTOTYPE */ { return(SDgetfillvalue(*id, val)); } /*------------------------------------------------------------ * Name: scgrange * Purpose: Call SDgetrange to get the valid range info * Inputs: id: handle to a dataset * Output: min: the min * max: the max * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgrange(intf *id, VOIDP max, VOIDP min) #else nscgrange(id, max, min) intf *id; VOIDP max; VOIDP min; #endif /* PROTOTYPE */ { return(SDgetrange(*id, max, min)); } /*----------------------------------------------------------------------------- * Name: scsrange * Purpose: Call SDsetrange to set the valid range info * Inputs: id: handle to a dataset * min: the min * max: the max * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsrange(intf *id, VOIDP max, VOIDP min) #else nscsrange(id, max, min) intf *id; VOIDP max; VOIDP min; #endif /* PROTOTYPE */ { return(SDsetrange(*id, max, min)); } /*----------------------------------------------------------------------------- * Name: scrcatt * Purpose: Call sfrnatt to get the contents of a char attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrcatt(intf *id, intf *index, _fcd buf) #else nscrcatt(id, index, buf) intf *id; intf *index; _fcd buf; #endif /* PROTOTYPE */ { return(nscrnatt(id, index, (VOIDP) _fcdtocp(buf))); } /*----------------------------------------------------------------------------- * Name: scrnatt * Purpose: Call SDreadattr to get the contents of a numeric attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrnatt(intf *id, intf *index, VOIDP buf) #else nscrnatt(id, index, buf) intf *id; intf *index; VOIDP buf; #endif /* PROTOTYPE */ { return(SDreadattr(*id, *index, buf)); } /*----------------------------------------------------------------------------- * Name: scrattr * Purpose: Call SDreadattr to get the contents of an attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrattr(intf *id, intf *index, VOIDP buf) #else nscrattr(id, index, buf) intf *id; intf *index; VOIDP buf; #endif /* PROTOTYPE */ { return(nscrnatt(id, index, buf)); } /*------------------------------------------------------------ * Name: scrdata * Purpose: read a section of numeric data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values) #else nscrdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; VOIDP values; #endif /* PROTOTYPE */ { intf ret; int32 i, rank, dims[100], nt, nattrs, status; int32 cstart[100], cstride[100], cend[100]; int nostride; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; nostride = TRUE; for(i = 0; i < rank; i++) { cstart[i] = start[rank - i - 1]; cend[i] = end[rank - i - 1]; if((cstride[i] = stride[rank - i - 1]) != 1) nostride = FALSE; } ret = (intf) SDreaddata(*id, cstart, (nostride? NULL : cstride), cend, values); return(ret); } /*----------------------------------------------------------------------------- * Name: scwdata * Purpose: write a section of data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to write * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscwdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values) #else nscwdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; VOIDP values; #endif /* PROTOTYPE */ { intf ret; int32 i, rank, dims[100], nt, nattrs, status; int32 cstart[100], cstride[100], cend[100]; intn nostride; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; nostride = TRUE; for(i = 0; i < rank; i++) { cstart[i] = start[rank - i - 1]; cend[i] = end[rank - i - 1]; if((cstride[i] = stride[rank - i - 1]) != 1) nostride = FALSE; } ret = (intf) SDwritedata(*id, cstart, (nostride? NULL : cstride), cend, values); return(ret); } /*-------------------------------------------------------- * Name: scrcdata * Purpose: read a section of char data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values) #else nscrcdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; _fcd values; #endif /* PROTOTYPE */ { return(nscrdata(id, start, stride, end, (VOIDP) _fcdtocp(values))); } /*-------------------------------------------------------- * Name: scwcdata * Purpose: write a section of char data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscwcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values) #else nscwcdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; _fcd values; #endif /* PROTOTYPE */ { return(nscwdata(id, start, stride, end, (VOIDP) _fcdtocp(values))); } /*----------------------------------------------------------------------------- * Name: scid2ref * Purpose: call SDidtoref to map an id to ref * Inputs: id: variable id * Returns: reference number of a NDG representing this dataset *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscid2ref(intf *id) #else nscid2ref(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDidtoref(*id)); } /*----------------------------------------------------------------------------- * Name: scfr2idx * Purpose: call SDreftoindex to map a reference number to an index of a * dataset * Inputs: id: file id * ref: reference number to look up * Returns: index of a NDG representing this dataset *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscr2idx(intf *id, intf *ref) #else nscr2idx(id, ref) intf *id; intf *ref; #endif /* PROTOTYPE */ { return((intf) SDreftoindex(*id, (int32) *ref)); } /*----------------------------------------------------------------------------- * Name: sciscvar * Purpose: call SDiscoordvar to see if a dataset is a coordinate variable * dataset * Inputs: id: sds id * Returns: TRUE/FALSE *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsciscvar(intf *id) #else nsciscvar(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDiscoordvar(*id)); } /*----------------------------------------------------------------------------- * Name: scsnbit * Purpose: store data in n-bit data element * Inputs: id: sds id * start_bit: starting bit offset * bit_len: # of bits to write * sign_ext: whether to use the top bit as a sign extender * fill_one: whether to fill the "background bits" with ones * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsnbit(intf *id, intf *start_bit, intf *bit_len, intf *sign_ext, intf *fill_one) #else nscsnbit(id, start_bit, bit_len, sign_ext, fill_one) intf *id; intf *start_bit; intf *bit_len; intf *sign_ext; intf *fill_one; #endif /* PROTOTYPE */ { return((intf)SDsetnbitdataset((int32)*id,(intn)*start_bit,(intn)*bit_len, (intn)*sign_ext,(intn)*fill_one)); } /*----------------------------------------------------------------------------- * Name: scsacct * Purpose: Call SDsetaccesstype to set the access type * Inputs: id: sds id * type: the access type * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsacct(intf *id, intf *type) #else nscsacct(id, type) intf *id; intf *type; #endif /* PROTOTYPE */ { return((intf) SDsetaccesstype(*id, *type)); } /*----------------------------------------------------------------------------- * Name: scsdmvc * Purpose: Call SDsetdimval_comp to set the dim value backward * compatibility type * Inputs: id: dim id * compmode: backward compatibility: * SD_DIMVAL_BW_COMP -- compatible (in mfhdf.h) * SD_DIMVAL_BW_INCOMP -- incompatible. * * Returns: SUCCESS on success, FAIL on failure * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsdmvc(intf *id, intf *compmode) #else nscsdmvc(id, compmode) intf *id; intf *compmode; #endif /* PROTOTYPE */ { return((intf) SDsetdimval_comp(*id, *compmode)); } /*----------------------------------------------------------------------------- * Name: scisdmvc * Purpose: Call SDisdimval_bwcomp to get the dim value backward * compatibility * Inputs: id: dim id * * Returns: SD_DIMVAL_BW_COMP (1) if dimval is backward compatible; SD_DIMVAL_BW_INCOMP (0) for not compatible; (in mfhdf.h) FAIL (-1) for error. * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscisdmvc(intf *id) #else nscisdmvc(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDisdimval_bwcomp(*id)); } /*----------------------------------------------------------------------------- * Name: scsflmd * Purpose: Call SDsetfillmode to set for the file fill mode * as fill or nofill * Inputs: id: file id * fillmode: Desired fill mode for the file, * either SD_FILL or SD_NOFILL. * SD_FILL is the default mode. * * Returns: The current (before the new mode is set) fill mode; * FAIL (-1) for error. * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsflmd(intf *id, intf *fillmode) #else nscsflmd(id, fillmode) intf *id, *fillmode; #endif /* PROTOTYPE */ { return((intf) SDsetfillmode(*id, *fillmode)); } /*----------------------------------------------------------------------------- * Name: scisrcrd * Purpose: call SDisrecord to see if a dataset is a record variable * Inputs: id: sds id * Returns: TRUE/FALSE (1/0)) *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfisrcrd(intf *id) #else nscisrcrd(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDisrecord(*id)); } /*----------------------------------------------------------------------------- * Name: scsblsz * Purpose: call SDsetblocksize * Inputs: id: sd id block_size: block size in bytes * Returns: SUCCEED/FAIL (0/-1) *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsblsz(intf *id, intf *block_size) #else nscsblsz(id, block_size) intf *id; intf *block_size; #endif /* PROTOTYPE */ { return((intf) SDsetblocksize(*id, *block_size)); } #endif /* _WIN32 && !CMAKE_INTDIR */ /*----------------------------------------------------------------------------- * Name: scstart * Purpose: call SDstart to open HDF file * Inputs: name: name of file to open * access: access mode - integer with value DFACC_READ etc. * namelen: length of name * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscstart(_fcd name, intf *access, intf *namelen) #else nscstart(name, access, namelen) _fcd name; intf *access; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intf ret; fn = HDf2cstring(name, *namelen); ret = (intf) SDstart(fn, *access); HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: sdfend * Purpose: Call SDend close to close HDF file * Inputs: file_id: handle to HDF file to close * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfend(intf *file_id) #else nsfend(file_id) intf *file_id; #endif /* PROTOTYPE */ { return(SDend(*file_id)); } /*----------------------------------------------------------------------------- * Name: sdfendacc * Purpose: Call SDendaccess close to end access on a dataset * Inputs: id: id of the data set * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfendacc(intf *id) #else nsfendacc(id) intf *id; #endif /* PROTOTYPE */ { return(SDendaccess(*id)); } /*----------------------------------------------------------------------------- * Name: sdffinfo * Purpose: Call SDfileinfo to get number of datasets and global attrs in the file * Inputs: file_id: handle to HDF file * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsffinfo(intf *file_id, intf *datasets, intf *gattr) #else nsffinfo(file_id, datasets, gattr) intf *file_id; intf *datasets; intf *gattr; #endif /* PROTOTYPE */ { int32 dset, nattr, status; status = SDfileinfo((int32) *file_id, &dset, &nattr); *datasets = (intf) dset; *gattr = (intf) nattr; return (status); } /*----------------------------------------------------------------------------- * Name: sfselect * Purpose: Call SDselect to return a handle to a data set in the given file * Inputs: file_id: handle to HDF file * index: number of data set to chose * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfselect(intf *file_id, intf *index) #else nsfselect(file_id, index) intf *file_id; intf *index; #endif /* PROTOTYPE */ { return(SDselect(*file_id, *index)); } /*----------------------------------------------------------------------------- * Name: sdfdimid * Purpose: Get an id for a dimension of a given data set * Inputs: id: handle to a data set * index: number of dimension to chose * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfdimid(intf *id, intf *index) #else nsfdimid(id, index) intf *id; intf *index; #endif /* PROTOTYPE */ { int32 rank, nt, dims[100], status, cdim, nattrs; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; cdim = rank - (*index) -1; return(SDgetdimid(*id, cdim)); } /*----------------------------------------------------------------------------- * Name: sdcginfo * Purpose: Call SDgetinfo to get the basic information about a data set * Inputs: id: handle to a data set * Outputs: name: the name of the data set * rank: the rank * dimsizes: sizes of the dimensions * nt: number type * nattr: number of attributes for this data set * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscginfo(intf *id, _fcd name, intf *rank, intf *dimsizes, intf *nt, intf *nattr, intf *len) #else nscginfo(id, name, rank, dimsizes, nt, nattr, len) intf *id; _fcd name; intf *rank, *dimsizes, *nt, *nattr, *len; #endif /* PROTOTYPE */ { char *iname; int32 status; int32 cdims[100], i; int32 rank32, nt32, nattr32; iname = NULL; if(*len) iname = (char *) HDmalloc((uint32)*len + 1); status = SDgetinfo((int32) *id, iname, &rank32, cdims, &nt32, &nattr32); for(i = 0; i < rank32; i++) dimsizes[i] = cdims[rank32 - i - 1]; HDpackFstring(iname, _fcdtocp(name), *len); if(iname) HDfree((VOIDP)iname); *rank = (intf) rank32; *nt = (intf) nt32; *nattr = (intf) nattr32; return(status); } /*----------------------------------------------------------------------------- * Name: sdfgcal * Purpose: Call SDgetcal to get the calibration information * Inputs: id: handle to a data set * Outputs: cal, cale, ioff, ioffe : calibration factors and error * nt: number type of data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfgcal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt) #else nsfgcal(id, cal, cale, ioff, ioffe, nt) intf *id; float64 *cal, *cale, *ioff, *ioffe; intf *nt; #endif /* PROTOTYPE */ { int32 nt32, status; status = SDgetcal((int32) *id, cal, cale, ioff, ioffe, &nt32); *nt = (intf) nt32; return (status); } /*----------------------------------------------------------------------------- * Name: sdfscal * Purpose: Call SDsetcal to set the calibration information * Inputs: id: handle to a data set * cal, cale, ioff, ioffe : calibration factors and error * nt: number type of data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfscal(intf *id, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, intf *nt) #else nsfscal(id, cal, cale, ioff, ioffe, nt) intf *id; float64 *cal, *cale, *ioff, *ioffe; intf *nt; #endif /* PROTOTYPE */ { return(SDsetcal(*id, *cal, *cale, *ioff, *ioffe, *nt)); } /*----------------------------------------------------------------------------- * Name: sdfsdscale * Purpose: Call SDsetdimscale to set the values for a dimension * Inputs: id: handle to a dimension * count: size of the dimension * nt: number type of data * values: data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsdscale(intf *id, intf *count, intf *nt, VOIDP values) #else nsfsdscale(id, count, nt, values) intf *id; intf *count, *nt; VOIDP values; #endif /* PROTOTYPE */ { return(SDsetdimscale(*id, *count, *nt, values)); } /*----------------------------------------------------------------------------- * Name: sdfgdscale * Purpose: Call SDgetdimscale to get the values for a dimension * Inputs: id: handle to a dimension * Output values: data * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfgdscale(intf *id, VOIDP values) #else nsfgdscale(id, values) intf *id; VOIDP values; #endif /* PROTOTYPE */ { return(SDgetdimscale(*id, values)); } /*---------------------------------------------------------- * Name: sdfscfill * Purpose: Call nsfsnfill to set the char fill value * Inputs: id: handle to a dimension * val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfscfill(intf *id, _fcd val) #else nsfscfill(id, val) intf *id; _fcd val; #endif /* PROTOTYPE */ { return(nsfsfill(id, (VOIDP) _fcdtocp(val))); } /*------------------------------------------------------------ * Name: sdfgcfill * Purpose: Call sfgfill to get the char fill value * Inputs: id: handle to a dimension * Output: val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *-----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfgcfill(intf *id, _fcd val) #else nsfgcfill(id, val) intf *id; _fcd val; #endif /* PROTOTYPE */ { return(nsfgfill(id, (VOIDP) _fcdtocp(val))); } /*--------------------------------------------------------- * Name: sdfsfill * Purpose: Call SDsetfillvalue to set the numeric fill value * Inputs: id: handle to a dimension * val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsfill(intf *id, VOIDP val) #else nsfsfill(id, val) intf *id; VOIDP val; #endif /* PROTOTYPE */ { return(SDsetfillvalue(*id, val)); } /*---------------------------------------------------------- * Name: sdfgfill * Purpose: Call SDgetfillvalue to get the fill value. * Inputs: id: handle to a dimension * Output: val: the fill value * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfgfill(intf *id, VOIDP val) #else nsfgfill(id, val) intf *id; VOIDP val; #endif /* PROTOTYPE */ { return(SDgetfillvalue(*id, val)); } /*------------------------------------------------------------ * Name: sdfgrange * Purpose: Call SDgetrange to get the valid range info * Inputs: id: handle to a dimension * Output: min: the min * max: the max * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfgrange(intf *id, VOIDP max, VOIDP min) #else nsfgrange(id, max, min) intf *id; VOIDP max; VOIDP min; #endif /* PROTOTYPE */ { return(SDgetrange(*id, max, min)); } /*----------------------------------------------------------------------------- * Name: sdfsrange * Purpose: Call SDsetrange to set the valid range info * Inputs: id: handle to a dimension * min: the min * max: the max * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsrange(intf *id, VOIDP max, VOIDP min) #else nsfsrange(id, max, min) intf *id; VOIDP max; VOIDP min; #endif /* PROTOTYPE */ { return(SDsetrange(*id, max, min)); } /*----------------------------------------------------------------------------- * Name: sdcn2index * Purpose: return the index of a data set with the given name * Inputs: id: file id * name: name to look for * namelen: length of name * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscn2index(intf *id, _fcd name, intf *namelen) #else nscn2index(id, name, namelen) intf *id; _fcd name; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intf ret; fn = HDf2cstring(name, *namelen); ret = (intf) SDnametoindex(*id, fn); HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: sdccreate * Purpose: create a new data set and return its id * Inputs: id: file id * name: name of data set * nt: number type * rank: rank * dims: dimension sizes * namelen: length of name * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsccreate(intf *id, _fcd name, intf *nt, intf *rank, intf *dims, intf *namelen) #else nsccreate(id, name, nt, rank, dims, namelen) intf *id; _fcd name; intf *nt, *rank; intf *dims; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intf ret; int32 * cdims, i; fn = HDf2cstring(name, *namelen); cdims = (int32 *) HDmalloc(sizeof(int32) * (*rank)); if(!cdims) return FAIL; for(i = 0; i < *rank; i++) cdims[i] = dims[*rank - i - 1]; ret = (intf) SDcreate(*id, fn, *nt, *rank, cdims); HDfree((VOIDP)fn); HDfree((VOIDP)cdims); return(ret); } /*----------------------------------------------------------------------------- * Name: scsdimstr * Purpose: set the strings for this dimension * Inputs: id: dim id * label, unit and format strings and their lengths * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsdimstr(intf *id, _fcd l, _fcd u, _fcd f, intf *ll, intf *ul, intf *fl) #else nscsdimstr(id, l, u, f, ll, ul, fl) intf *id; _fcd l; _fcd u; _fcd f; intf *ll, *ul, *fl; #endif /* PROTOTYPE */ { char *lstr; char *ustr; char *fstr; intf ret; if(ll) lstr = HDf2cstring(l, *ll); else lstr = NULL; if(ul) ustr = HDf2cstring(u, *ul); else ustr = NULL; if(fl) fstr = HDf2cstring(f, *fl); else fstr = NULL; ret = (intf) SDsetdimstrs(*id, lstr, ustr, fstr); if(ll) HDfree((VOIDP)lstr); if(ul) HDfree((VOIDP)ustr); if(fl) HDfree((VOIDP)fstr); return(ret); } /*----------------------------------------------------------------------------- * Name: scsdimname * Purpose: set the name of this dimension * Inputs: id: dim id * name and its length * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsdimname(intf *id, _fcd name, intf *len) #else nscsdimname(id, name, len) intf *id; _fcd name; intf *len; #endif /* PROTOTYPE */ { char *nstr; intf ret; if(len) nstr = HDf2cstring(name, *len); else nstr = NULL; ret = (intf) SDsetdimname(*id, nstr); if(len) HDfree((VOIDP)nstr); return(ret); } /*----------------------------------------------------------------------------- * Name: scsdatstr * Purpose: set the strings for this dimension * Inputs: id: dim id * label, unit and format strings and their lengths * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsdatstr(intf *id, _fcd l, _fcd u, _fcd f, _fcd c, intf *ll, intf *ul, intf *fl, intf *cl) #else nscsdatstr(id, l, u, f, c, ll, ul, fl, cl) intf *id; _fcd l; _fcd u; _fcd f; _fcd c; intf *ll, *ul, *fl, *cl; #endif /* PROTOTYPE */ { char *lstr; char *ustr; char *fstr; char *cstr; intf ret; if(ll) lstr = HDf2cstring(l, *ll); else lstr = NULL; if(ul) ustr = HDf2cstring(u, *ul); else ustr = NULL; if(fl) fstr = HDf2cstring(f, *fl); else fstr = NULL; if(cl) cstr = HDf2cstring(c, *cl); else cstr = NULL; ret = (intf) SDsetdatastrs(*id, lstr, ustr, fstr, cstr); if(ll) HDfree((VOIDP)lstr); if(ul) HDfree((VOIDP)ustr); if(fl) HDfree((VOIDP)fstr); if(cl) HDfree((VOIDP)cstr); return(ret); } /*----------------------------------------------------------------------------- * Name: sfrcatt * Purpose: Call sfrnatt to get the contents of a char attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfrcatt(intf *id, intf *index, _fcd buf) #else nsfrcatt(id, index, buf) intf *id; intf *index; _fcd buf; #endif /* PROTOTYPE */ { return(nsfrnatt(id, index, (VOIDP) _fcdtocp(buf))); } /*----------------------------------------------------------------------------- * Name: sfrnatt * Purpose: Call SDreadattr to get the contents of a numeric attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfrnatt(intf *id, intf *index, VOIDP buf) #else nsfrnatt(id, index, buf) intf *id; intf *index; VOIDP buf; #endif /* PROTOTYPE */ { return(SDreadattr(*id, *index, buf)); } /*----------------------------------------------------------------------------- * Name: sfrattr * Purpose: Call SDreadattr to get the contents of an attribute * Inputs: id: handle to a dataset * index: index of the attribute to read * buf: space to hold info * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfrattr(intf *id, intf *index, VOIDP buf) #else nsfrattr(id, index, buf) intf *id; intf *index; VOIDP buf; #endif /* PROTOTYPE */ { return(nsfrnatt(id, index, buf)); } /*------------------------------------------------------------ * Name: sfrdata * Purpose: read a section of numeric data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfrdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values) #else nsfrdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; VOIDP values; #endif /* PROTOTYPE */ { intf ret; int32 i, rank, dims[100], nt, nattrs, status; int32 cstart[100], cstride[100], cend[100]; int nostride; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; nostride = TRUE; for(i = 0; i < rank; i++) { cstart[i] = start[rank - i - 1]; cend[i] = end[rank - i - 1]; if((cstride[i] = stride[rank - i - 1]) != 1) nostride = FALSE; } ret = (intf) SDreaddata(*id, cstart, (nostride? NULL : cstride), cend, values); return(ret); } /*----------------------------------------------------------------------------- * Name: sfwdata * Purpose: write a section of data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to write * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfwdata(intf *id, intf *start, intf *stride, intf *end, VOIDP values) #else nsfwdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; VOIDP values; #endif /* PROTOTYPE */ { intf ret; int32 i, rank, dims[100], nt, nattrs, status; int32 cstart[100], cstride[100], cend[100]; intn nostride; status = SDgetinfo(*id, NULL, &rank, dims, &nt, &nattrs); if(status == FAIL) return FAIL; nostride = TRUE; for(i = 0; i < rank; i++) { cstart[i] = start[rank - i - 1]; cend[i] = end[rank - i - 1]; if((cstride[i] = stride[rank - i - 1]) != 1) nostride = FALSE; } ret = (intf) SDwritedata(*id, cstart, (nostride? NULL : cstride), cend, values); return(ret); } /*----------------------------------------------------------------------------- * Name: scgdmstrs * Purpose: Return the "dimension strings" * Inputs: label, unit, format: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgdimstrs(intf *dim, _fcd label, _fcd unit, _fcd format, intf *llabel, intf *lunit, intf *lformat, intf *mlen) #else nscgdimstrs(dim, label, unit, format, llabel, lunit, lformat, mlen) intf *dim; _fcd label, unit, format; intf *llabel, *lunit, *lformat; intf *mlen; #endif /* PROTOTYPE */ { char *ilabel, *iunit, *iformat; intf ret; iunit = ilabel = iformat = NULL; if(*llabel) ilabel = (char *) HDmalloc((uint32)*llabel + 1); if(*lunit) iunit = (char *) HDmalloc((uint32)*lunit + 1); if(*lformat) iformat = (char *) HDmalloc((uint32)*lformat + 1); ret = (intf)SDgetdimstrs(*dim, ilabel, iunit, iformat, *mlen); HDpackFstring(ilabel, _fcdtocp(label), *llabel); HDpackFstring(iunit, _fcdtocp(unit), *lunit); HDpackFstring(iformat, _fcdtocp(format), *lformat); if(ilabel) HDfree((VOIDP)ilabel); if(iunit) HDfree((VOIDP)iunit); if(iformat) HDfree((VOIDP)iformat); return ret; } /*-------------------------------------------------------- * Name: sfrcdata * Purpose: read a section of char data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfrcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values) #else nsfrcdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; _fcd values; #endif /* PROTOTYPE */ { return(nsfrdata(id, start, stride, end, (VOIDP) _fcdtocp(values))); } /*-------------------------------------------------------- * Name: sfwcdata * Purpose: write a section of char data * Inputs: id: dataset id * start: start location * stride: stride along each dimension * end: number of values along each dim to read * values: data * Remarks: need to flip the dimensions to account for array ordering * differences * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfwcdata(intf *id, intf *start, intf *stride, intf *end, _fcd values) #else nsfwcdata(id, start, stride, end, values) intf *id; intf *start, *stride, *end; _fcd values; #endif /* PROTOTYPE */ { return(nsfwdata(id, start, stride, end, (VOIDP) _fcdtocp(values))); } /*----------------------------------------------------------------------------- * Name: scgdtstrs * Purpose: Return the "data strings" * Inputs: label, unit, format coord: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgdatstrs(intf *id, _fcd label, _fcd unit, _fcd format, _fcd coord, intf *llabel, intf *lunit, intf *lformat, intf *lcoord, intf *len) #else nscgdatstrs(id, label, unit, format, coord, llabel, lunit, lformat, lcoord, len) intf *id; _fcd label, unit, format, coord; intf *llabel, *lunit, *lformat, *lcoord; intf *len; #endif /* PROTOTYPE */ { char *ilabel, *iunit, *iformat, *icoord=NULL; intf ret; iunit = ilabel = iformat = NULL; if(*llabel) ilabel = (char *) HDmalloc((uint32)*llabel + 1); if(*lunit) iunit = (char *) HDmalloc((uint32)*lunit + 1); if(*lformat) iformat = (char *) HDmalloc((uint32)*lformat + 1); if(*lcoord) icoord = (char *) HDmalloc((uint32)*lcoord + 1); ret = (intf)SDgetdatastrs(*id, ilabel, iunit, iformat, icoord, *len); HDpackFstring(ilabel, _fcdtocp(label), *llabel); HDpackFstring(iunit, _fcdtocp(unit), *lunit); HDpackFstring(iformat, _fcdtocp(format), *lformat); HDpackFstring(icoord, _fcdtocp(coord), *lcoord); if(ilabel) HDfree((VOIDP)ilabel); if(iunit) HDfree((VOIDP)iunit); if(iformat) HDfree((VOIDP)iformat); if(icoord) HDfree((VOIDP)icoord); return ret; } /*----------------------------------------------------------------------------- * Name: sfgainfo * Purpose: Call SDattrinfo to get the basic information about an attribute * Inputs: id: handle to a data set * Outputs: name: the name of the data set * count: the size * nt: number type * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgainfo(intf *id, intf *number, _fcd name, intf *nt, intf *count, intf *len) #else nscgainfo(id, number, name, nt, count, len) intf *id, *number; _fcd name; intf *count, *len, *nt; #endif /* PROTOTYPE */ { char * iname; intn status; int32 nt32; int32 cnt32; iname = NULL; if(*len) iname = (char *) HDmalloc((uint32)*len + 1); status = SDattrinfo(*id, *number, iname, &nt32, &cnt32); HDpackFstring(iname, _fcdtocp(name), *len); if(iname) HDfree((VOIDP)iname); *nt = (intf) nt32; *count = (intf) cnt32; return((intf)status); } /*----------------------------------------------------------------------------- * Name: scgdinfo * Purpose: Call SDdiminfo to get the basic information about a dimension * Inputs: id: handle to a dimension * Outputs: name: the name of the dimension * count: the size * nt: number type * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgdinfo(intf *id, _fcd name, intf *sz, intf *nt, intf *nattr, intf *len) #else nscgdinfo(id, name, sz, nt, nattr, len) intf *id; _fcd name; intf *sz, *nattr, *len, *nt; #endif /* PROTOTYPE */ { char *iname; int32 status; int32 sz32, nt32, nattr32; iname = NULL; if(*len) iname = (char *) HDmalloc((uint32)*len + 1); status = SDdiminfo(*id, iname, &sz32, &nt32, &nattr32); HDpackFstring(iname, _fcdtocp(name), *len); if(iname) HDfree((VOIDP)iname); *nt = (intf) nt32; *sz = (intf) sz32; *nattr = (intf) nattr32; return(status); } /*----------------------------------------------------------------------------- * Name: scscatt * Purpose: calls scsnatt to create a new char attribute (or modify an existing one) * Inputs: id: id (file or data set) * name: name of attribute * nt: number type * count: number of values * data: where the values are * len: length of name * Remarks: * Returns: 0 on success, -1 on failure with error set *--------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscscatt(intf *id, _fcd name, intf *nt, intf *count, _fcd data, intf *len) #else nscscatt(id, name, nt, count, data, len) intf *id; _fcd name; intf *nt, *count; _fcd data; intf *len; #endif /* PROTOTYPE */ { return(nscsnatt(id, name, nt, count, (VOIDP) _fcdtocp(data), len)); } /*------------------------------------------------------------- * Name: scsnatt * Purpose: create a new numeric attribute (or modify an existing one) * Inputs: id: id (file or data set) * name: name of attribute * nt: number type * count: number of values * data: where the values are * len: length of name * Remarks: This routine and scscattr are used to replace scsattr * Returns: 0 on success, -1 on failure with error set *--------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsnatt(intf *id, _fcd name, intf *nt, intf *count, VOIDP data, intf *len) #else nscsnatt(id, name, nt, count, data, len) intf *id; _fcd name; intf *nt, *count; VOIDP data; intf *len; #endif /* PROTOTYPE */ { char *an; intf ret; an = HDf2cstring(name, *len); ret = (intf) SDsetattr(*id, an, *nt, *count, data); HDfree((VOIDP)an); return(ret); } /*----------------------------------------------------------------------------- * Name: scsattr * Purpose: for backward compatibility. Calls SDsetattr to create * or modify an existing attribute * Inputs: id: id (file or data set) * name: name of attribute * nt: number type * count: number of values * data: where the values are * namelen: length of name * Returns: 0 on success, -1 on failure with error set * Remarks: This routine and sfsattr should be phased out. * sfsattr declairs data as char *, scscatt assumes * data as VOIDP. *--------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsattr(intf *id, _fcd name, intf *nt, intf *count, VOIDP data, intf *len) #else nscsattr(id, name, nt, count, data, len) intf *id; _fcd name; intf *nt, *count; VOIDP data; intf *len; #endif /* PROTOTYPE */ { char *an; intf ret; an = HDf2cstring(name, *len); ret = (intf) SDsetattr(*id, an, *nt, *count, data); HDfree((VOIDP)an); return(ret); } /*--------------------------------------------------------------------- * Name: scfattr * Purpose: call SDfindattr to find an attribute * Inputs: id: object to look at * name: name of attribute to find * Returns: attribute id on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscfattr(intf *id, _fcd name, intf *namelen) #else nscfattr(id, name, namelen) _fcd name; intf *id; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intf ret; fn = HDf2cstring(name, *namelen); ret = (intf) SDfindattr(*id, fn); HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: sfid2ref * Purpose: call SDidtoref to map an idfindattr to find an attribute * Inputs: id: variable id * Returns: reference number of a NDG representing this dataset *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfid2ref(intf *id) #else nsfid2ref(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDidtoref(*id)); } /*----------------------------------------------------------------------------- * Name: sfref2index * Purpose: call SDreftoindex to map a reference number to an index of a * dataset * Inputs: id: file id * ref: reference number to look up * Returns: reference number of a NDG representing this dataset *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfref2index(intf *id, intf *ref) #else nsfref2index(id, ref) intf *id; intf *ref; #endif /* PROTOTYPE */ { return((intf) SDreftoindex(*id, (int32) *ref)); } /*----------------------------------------------------------------------------- * Name: sfiscvar * Purpose: call SDiscoordvar to see if a dataset is a coordinate variable * dataset * Inputs: id: sds id * Returns: TRUE/FALSE *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfiscvar(intf *id) #else nsfiscvar(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDiscoordvar(*id)); } /*----------------------------------------------------------------------------- * Name: scsextf * Purpose: store data in an external file * Inputs: id: sds id * name: name of external file * offset: Number of bytes from the beginning of the * external file to where the data starts * namelen: length of name * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscsextf(intf *id, _fcd name, intf *offset, intf *namelen) #else nscsextf(id, name, offset, namelen) intf *id; _fcd name; intf *offset; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intf ret; fn = HDf2cstring(name, *namelen); if (!fn) return(FAIL); ret = (intf) SDsetexternalfile(*id, fn, *offset); HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: sfsnbit * Purpose: store data in n-bit data element * Inputs: id: sds id * start_bit: starting bit offset * bit_len: # of bits to write * sign_ext: whether to use the top bit as a sign extender * fill_one: whether to fill the "background bits" with ones * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsnbit(intf *id, intf *start_bit, intf *bit_len, intf *sign_ext, intf *fill_one) #else nsfsnbit(id, start_bit, bit_len, sign_ext, fill_one) intf *id; intf *start_bit; intf *bit_len; intf *sign_ext; intf *fill_one; #endif /* PROTOTYPE */ { return((intf)SDsetnbitdataset((int32)*id,(intn)*start_bit,(intn)*bit_len, (intn)*sign_ext,(intn)*fill_one)); } /*----------------------------------------------------------------------------- * Name: sdfsacct * Purpose: Call SDsetaccesstype to set the access type * Inputs: id: sds id * type: the access type * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsacct(intf *id, intf *type) #else nsfsacct(id, type) intf *id; intf *type; #endif /* PROTOTYPE */ { return((intf) SDsetaccesstype(*id, *type)); } /*----------------------------------------------------------------------------- * Name: sfsdmvc * Purpose: Call SDsetdimval_comp to set the dim value backward * compatibility type * Inputs: id: dim id * compmode: backward compatibility: * SD_DIMVAL_BW_COMP -- compatible (in mfhdf.h) * SD_DIMVAL_BW_INCOMP -- incompatible. * * Returns: SUCCESS on success, FAIL on failure * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsdmvc(intf *id, intf *compmode) #else nsfsdmvc(id, compmode) intf *id; intf *compmode; #endif /* PROTOTYPE */ { return((intf) SDsetdimval_comp(*id, *compmode)); } /*----------------------------------------------------------------------------- * Name: sfisdmvc * Purpose: Call SDisdimval_bwcomp to get the dim value backward * compatibility * Inputs: id: dim id * * Returns: SD_DIMVAL_BW_COMP (1) if dimval is backward compatible; SD_DIMVAL_BW_INCOMP (0) for not compatible; (in mfhdf.h) FAIL (-1) for error. * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfisdmvc(intf *id) #else nsfisdmvc(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDisdimval_bwcomp(*id)); } /*----------------------------------------------------------------------------- * Name: sfsflmd * Purpose: Call SDsetfillmode to set for the file fill mode * as fill or nofill * Inputs: id: file id * fillmode: Desired fill mode for the file, * either SD_FILL or SD_NOFILL. * SD_FILL is the default mode. * * Returns: The current (before the new mode is set) fill mode; * FAIL (-1) for error. * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsflmd(intf *id, intf *fillmode) #else nsfsflmd(id, fillmode) intf *id, *fillmode; #endif /* PROTOTYPE */ { return((intf) SDsetfillmode(*id, *fillmode)); } #endif /* HDF */ /*------------------------------------------------------------------------- * Name: scgichnk * Puporse: Call SDgetchunkinfo * Inputs: id: SDS access id * Outputs: dim_length: chunk dimensions * flags: -1 - SDS is nonchunked * 0 - SDS is chunked, no compression * 1 - SDS is chunked and compressed * with RLE, SKPHUFF and GZIP * 2 - SDS is chunked and compressed with NBIT * Actual parameters are not returned. Will be fixed after HDF41r.2 * comp_prm[0] = nbit_sign_ext, * comp_prm[1] = nbit_fill_one, * comp_prm[2] = nbit_start_bit, * comp_prm[3] = nbit_bit_len: NBIT compression parametes * * comp_prm[0] = skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0] = deflate_level: GZIP compression parameter * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscgichnk(intf *id, intf *dim_length, intf *flags) #else nscgichnk( id, dim_length, flags) intf *id; intf *dim_length; intf *flags; #endif /* PROTOTYPE */ { HDF_CHUNK_DEF chunk_def; /* Chunk definition set */ int32 sdsid; /* SDS id */ int i; int32 rank, status, cflags; intf ret; int32 cdims[100], nt32, nattr32; sdsid = *id; /* Get SDS rank */ status = SDgetinfo(sdsid, NULL, &rank, cdims, &nt32, &nattr32 ); if(status == FAIL) return FAIL; /* Get SDS info */ status = SDgetchunkinfo(sdsid, &chunk_def, &cflags); if(status == FAIL) return FAIL; switch (cflags) { case HDF_NONE: /* Non-chunked SDS */ *flags = -1; ret = 0; return(ret); case HDF_CHUNK: /* Chunked, noncompressed SDS */ *flags = 0; for (i=0; i < rank; i++) dim_length[rank-i-1] = chunk_def.chunk_lengths[i]; ret = 0; return(ret); case (HDF_CHUNK | HDF_COMP): /* Chunked and compressed SDS RLE, SKPHUFF or GZIP only */ *flags = 1; for (i=0; i < rank; i++) dim_length[rank-i-1] = chunk_def.comp.chunk_lengths[i]; ret = 0; return(ret); case (HDF_CHUNK | HDF_NBIT): /* Chunked and NBIT compressed SDS */ *flags = 2; for (i=0; i < rank; i++) dim_length[rank-i-1] = chunk_def.nbit.chunk_lengths[i]; ret = 0; return(ret); default: return FAIL; } } /*----------------------------------------------------------------------------- * Name: scrchnk * Purpose: read the specified chunk of NUMERIC data to the buffer * Inputs: id - data set ID * start - origin of chunk to read * Outputs: num_data - buffer the data will be read into * Calls: SDreadchunk * Remarks: need to flip the dimensions to account for array ordering * differencies (start --> cstart) * If performance becomes an issue, use static cstart * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscrchnk(intf *id, intf *start, VOIDP num_data) #else nscrchnk(id, start, num_data) intf *id; intf *start; VOIDP num_data; #endif /* PROTOTYPE */ { intf ret; int32 rank, status, i; int32 *cstart; int32 cdims[100], nt32, nattr32; /* Get rank of SDS */ status = SDgetinfo(*id, NULL, &rank, cdims, &nt32, &nattr32); if(status == FAIL) return FAIL; /* Allocate memory for cstart array; use static array, if performance becomes an issue */ cstart = (int32 *) HDmalloc(sizeof(int32) * rank); if(!cstart) return FAIL; /* Flip an array to account for array odering in Fortran and C */ for ( i=0; i < rank; i++) cstart[i] = start[rank-i-1] - 1; /* Call SDreadChunk function to read the data */ ret = SDreadchunk(*id, cstart, num_data); /* Free memory */ HDfree((VOIDP)cstart); return(ret); } /*----------------------------------------------------------------------------- * Name: scrcchnk * Purpose: read the specified chunk of CHARACTER data to the buffer * Inputs: id - data set ID * start - origin of chunk to read * Outputs: char_data - buffer the data will be read into * Calls: scrchnk * Reamrks: dimensions will be flipped in scrchnk function * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscrcchnk(intf *id, intf *start, _fcd char_data) #else nscrcchnk(id, start, char_data) intf *id; intf *start; _fcd char_data; #endif /* PROTOTYPE */ { intf ret; ret = nscrchnk(id, start, (VOIDP) _fcdtocp(char_data)); return(ret); } /*----------------------------------------------------------------------------- * Name: scscchnk * Purpose: set the maximum number of chunks to cache * Inputs: id - data set ID * maxcache - max number of chunks to cache * flags - flags= 0, HDF_CACHEALL * Currently only 0 can be passed * Calls: SDsetchunkcache * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscscchnk(intf *id, intf *maxcache, intf *flags) #else nscscchnk(id, maxcache, flags) intf *id; intf *maxcache; intf *flags; #endif /* PROTOTYPE */ { intf ret; ret = SDsetchunkcache(*id, *maxcache, *flags); return(ret); } /*------------------------------------------------------------------------- * Name: scschnk * Puporse: Call SDsetchunk * Inputs: id: SDS access id * dim_length: chunk dimensions * comp_type: type of compression * COMP_CODE_NONE (0) * COMP_CODE_RLE (1) * COMP_CODE_NBIT (2) * COMP_CODE_SKPHUFF (3) * COMP_CODE_DEFLATE (4) * COMP_CODE_INVALID (5) * comp_prm[0] = nbit_sign_ext, * comp_prm[1] = nbit_fill_one, * comp_prm[2] = nbit_start_bit, * comp_prm[3] = nbit_bit_len: NBIT compression parametes * * comp_prm[0] = skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0] = deflate_level: GZIP compression parameter * comp_prm[0] = option_mask: SZIP option mask parameter * comp_prm[1] = pixels_per_block SZIP parameter * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscschnk(intf *id, intf *dim_length, intf *comp_type, intf *comp_prm) #else nscschnk( id, dim_length, comp_type, comp_prm) intf *id; intf *dim_length; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { HDF_CHUNK_DEF chunk_def; /* Chunk definition set */ int32 sdsid; /* SDS id */ int32 cflags; /* chunk flags */ int i, CASE; int32 rank, status; intf ret; int32 cdims[100], nt32, nattr32; /* Get rank of SDS */ status = SDgetinfo((int32) *id, NULL , &rank, cdims, &nt32, &nattr32); if(status == FAIL) return FAIL; CASE = *comp_type; sdsid = *id; cflags = HDF_CHUNK | HDF_COMP; switch (CASE) { case 0: /* No compression */ cflags = HDF_CHUNK; for (i=0; i < rank; i++) chunk_def.chunk_lengths[i] = dim_length[rank-i-1]; break; case 1: /* RLE compression */ cflags = HDF_CHUNK | HDF_COMP; for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_RLE; break; case 2: /* N-bit encoding */ cflags = HDF_CHUNK | HDF_NBIT; for (i=0; i < rank; i++) chunk_def.nbit.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.nbit.sign_ext = comp_prm[0]; chunk_def.nbit.fill_one = comp_prm[1]; chunk_def.nbit.start_bit = comp_prm[2]; chunk_def.nbit.bit_len = comp_prm[3]; break; case 3: /* Skipping Huffman encoding */ cflags = HDF_CHUNK | HDF_COMP; for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff.skp_size = comp_prm[0]; break; case 4: /* GZIP compression */ cflags = HDF_CHUNK | HDF_COMP; for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate.level = comp_prm[0]; break; case 5: /* SZIP compression */ cflags = HDF_CHUNK | HDF_COMP; for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_SZIP; chunk_def.comp.cinfo.szip.options_mask = comp_prm[0]; chunk_def.comp.cinfo.szip.pixels_per_block = comp_prm[1]; break; default: return FAIL; } ret = SDsetchunk(sdsid, chunk_def, cflags); return(ret); } /*----------------------------------------------------------------------------- * Name: scwchnk * Purpose: write the specified chunk of NUMERIC data to the SDS * Inputs: id - data set ID * start - origin of chunk to write * num_data - buffer for data * Calls: SDwritechunk * Remarks: need to flip the dimensions to account for array ordering * differencies (start --> cstart) * If performance becomes an issue, use static cstart * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscwchnk(intf *id, intf *start, VOIDP num_data) #else nscwchnk(id, start, num_data) intf *id; intf *start; VOIDP num_data; #endif /* PROTOTYPE */ { intf ret; int32 rank, status, i; int32 *cstart; int32 cdims[100], nt32, nattr32; /* Get rank of SDS */ status = SDgetinfo(*id, NULL, &rank, cdims, &nt32, &nattr32); if(status == FAIL) return FAIL; /* Allocate memory for cstart array; use static array, if performance becomes an issue */ cstart = (int32 *) HDmalloc(sizeof(int32) * rank); if(!cstart) return FAIL; /* Flip an array */ for ( i=0; i < rank; i++) cstart[i] = start[rank-i-1] - 1; /* Call SDwriteChunk function to write the data */ ret = SDwritechunk(*id, cstart, num_data); /* Free memory */ HDfree((VOIDP)cstart); return(ret); } /*----------------------------------------------------------------------------- * Name: scwcchnk * Purpose: write the specified chunk of CHARACTER data to the SDS * Inputs: id - data set ID * start - origin of chunk to read * Outputs: char_data - buffer the data will be read into * Calls: scwchnk * Reamrks: dimensions will be flipped in scrchnk function * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscwcchnk(intf *id, intf *start, _fcd char_data) #else nscwcchnk(id, start, char_data) intf *id; intf *start; _fcd char_data; #endif /* PROTOTYPE */ { intf ret; ret = nscwchnk(id, start, (VOIDP) _fcdtocp(char_data)); return(ret); } /*------------------------------------------------------------------------- * Name: scscompress * Puporse: Call SDsetcompress * Inputs: id: SDS access id * comp_type: type of compression * COMP_CODE_NONE = 0 * COMP_CODE_RLE = 1 * COMP_CODE_SKPHUFF = 3 * COMP_CODE_DEFLATE = 4 * COMP_CODE_SZIP = 5 * comp_prm[0] = skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0] = deflate_level: GZIP compression parameter * SZIP: * comp_prm[0] = options_mask * comp_prm[1] = pixels_per_block * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscscompress(intf *id, intf *comp_type, intf *comp_prm) #else nscscompress( id, comp_type, comp_prm) intf *id; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { int32 sdsid; /* SDS id */ comp_info c_info; /* compression info */ comp_coder_t c_type; /* compression type definition */ int CASE; intf ret; CASE = *comp_type; sdsid = *id; switch (CASE) { case COMP_CODE_NONE: /* No compression */ c_type = COMP_CODE_NONE; break; case COMP_CODE_RLE: /* RLE compression */ c_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ c_type = COMP_CODE_SKPHUFF; c_info.skphuff.skp_size = comp_prm[0]; break; case COMP_CODE_DEFLATE: /* GZIP compression */ c_type = COMP_CODE_DEFLATE; c_info.deflate.level = comp_prm[0]; break; case COMP_CODE_SZIP: /* SZIP compression */ c_type = COMP_CODE_SZIP; c_info.szip.options_mask = comp_prm[0]; c_info.szip.pixels_per_block = comp_prm[1]; break; default: return FAIL; } ret = SDsetcompress(sdsid, c_type, &c_info); return(ret); } /*------------------------------------------------------------------------- * Name: scgcompress * Puporse: Call SDgetcompress * Inputs: id: SDS access id * Outputs: comp_type: type of compression * COMP_CODE_NONE = 0 * COMP_CODE_RLE = 1 * COMP_CODE_NBIT = 2 * COMP_CODE_SKPHUFF = 3 * COMP_CODE_DEFLATE = 4 * COMP_CODE_SZIP = 5 * SKPHUFF: * comp_prm[0] = skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * GZIP: * comp_prm[0] = deflate_level: GZIP compression parameter * NBIT: * comp_prm[0] = nbit_sign_ext * comp_prm[1] = nbit_fill_one * comp_prm[2] = nbit_start_bit * comp_prm[3] = nbit_bit_len * SZIP: * comp_prm[0] = options_mask IN * comp_prm[1] = pixels_per_block IN * comp_prm[2] = pixels_per_scanline OUT * comp_prm[3] = bits_per_pixel OUT * comp_prm[4] = pixels OUT * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nscgcompress(intf *id, intf *comp_type, intf *comp_prm) #else nscgcompress( id, comp_type, comp_prm) intf *id; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { comp_info c_info; /* compression info */ comp_coder_t c_type; /* compression type definition */ int CASE; intn c_ret; intf ret = -1; c_ret = SDgetcompinfo(*id, &c_type, &c_info); if (c_ret == 0) { CASE = (int)c_type; switch (CASE) { case COMP_CODE_NONE: /* No compression */ *comp_type = 0; ret = 0; break; case COMP_CODE_RLE: /* RLE compression */ *comp_type = 1; ret = 0; break; case COMP_CODE_NBIT: /* NBIT encoding */ *comp_type = 2; comp_prm[0] = (intf)c_info.nbit.sign_ext; comp_prm[1] = (intf)c_info.nbit.fill_one; comp_prm[2] = (intf)c_info.nbit.start_bit; comp_prm[3] = (intf)c_info.nbit.bit_len; ret = 0; break; case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ *comp_type = 3; comp_prm[0] = (intf)c_info.skphuff.skp_size; ret = 0; break; case COMP_CODE_DEFLATE: /* GZIP compression */ *comp_type = 4; comp_prm[0] = (intf)c_info.deflate.level; ret = 0; break; case COMP_CODE_SZIP: /* SZIP encoding */ *comp_type = 5; comp_prm[0] = (intf)c_info.szip.options_mask; comp_prm[1] = (intf)c_info.szip.pixels_per_block; comp_prm[2] = (intf)c_info.szip.pixels_per_scanline; comp_prm[3] = (intf)c_info.szip.bits_per_pixel; comp_prm[4] = (intf)c_info.szip.pixels; ret = 0; break; default: return FAIL; } /*end CASE */ } /* end if */ return(ret); } /*----------------------------------------------------------------------------- * Name: sfisrcrd * Purpose: call SDisrecord to see if a dataset is a record variable * Inputs: id: sds id * Returns: TRUE/FALSE (1/0)) *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfisrcrd(intf *id) #else nsfisrcrd(id) intf *id; #endif /* PROTOTYPE */ { return((intf) SDisrecord(*id)); } /*----------------------------------------------------------------------------- * Name: sfsblsz * Purpose: call SDsetblocksize * Inputs: id: sd id block_size: block size in bytes * Returns: SUCCEED/FAIL (0/-1) *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nsfsblsz(intf *id, intf *block_size) #else nsfsblsz(id, block_size) intf *id; intf *block_size; #endif /* PROTOTYPE */ { return((intf) SDsetblocksize(*id, *block_size)); } /*----------------------------------------------------------------------------- * Name: scchempty * Purpose: call SDcheckempty * Inputs: id: sd id flag: TRUE/FALSE flag * Returns: SUCCEED/FAIL (0/-1) *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscchempty(intf *id, intf *flag) #else nscchempty(id, flag) intf *id; intf *flag; #endif /* PROTOTYPE */ { intn flag_c; intf status; status = SDcheckempty(*id, &flag_c); *flag = flag_c; return(status); } /*----------------------------------------------------------------------------- * Name: scgetfname * Purpose: Retrieves the name of the file given file identifier * Inputs: file_id: file identifier * Outputs: file_name: file name * namelen: length of file name * Returns: real length on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgetfname(intf *file_id, _fcd name, intf *namelen) #else nscgetfname(file_id, name, namelen) intf *file_id; _fcd name; intf *namelen; #endif /* PROTOTYPE */ { char *fn; intn ret; fn = NULL; if(*namelen) fn = (char *)HDmalloc((uint32)*namelen + 1); ret = (intn) SDgetfilename(*file_id, fn); HDpackFstring(fn, _fcdtocp(name), *namelen); if(fn) HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: scgetnamelen * Purpose: Retrieves the length of the object name * Inputs: obj_id: object identifier * Outputs: namelen: name length * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgetnamelen(intf *obj_id, intf *namelen) #else nscgetnamelen(obj_id, namelen) intf *obj_id; intf *namelen; #endif /* PROTOTYPE */ { intn ret; uint16 c_namelen; ret = (intn) SDgetnamelen(*obj_id, &c_namelen); *namelen = (intf)c_namelen; return(ret); } /*----------------------------------------------------------------------------- * Name: scidtype * Purpose: Retrieves type pf the object give an identifier * Inputs: obj_id: object identifier * Outputs: obj_type: object type -1 for invalide * 0 for file * 1 for data set * 2 for dimension scale * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscidtype(intf *obj_id, intf *obj_type) #else nscidtype(obj_id, obj_type) intf *obj_id; intf *obj_type; #endif /* PROTOTYPE */ { intn ret = -1; hdf_idtype_t c_obj_type;; c_obj_type = SDidtype(*obj_id); *obj_type = (intf)c_obj_type; if (c_obj_type >= 0) ret = 0; return(ret); } /*----------------------------------------------------------------------------- * Name: scrmaxopenf * Purpose: Resets the max numebr of files can be opened at the same time * Inputs: req_max: requested max number of files * Returns: current max number of opened files on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscrmaxopenf(intf *req_max) #else nscrmaxopenf(req_max) intf *req_max; #endif /* PROTOTYPE */ { intf cur_max; cur_max = (intf) SDreset_maxopenfiles(*req_max); return(cur_max); } /*----------------------------------------------------------------------------- * Name: scgmaxopenf * Purpose: Retrieves current and maximum number of open files. * Outputs: cat_max: current max of opened files * sys_limit: system limit on open files * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgmaxopenf(intf *cur_max, intf *sys_limit) #else nscgmaxopenf(cur_max, sys_limit) intf *cur_max; intf *sys_limit; #endif /* PROTOTYPE */ { intf ret = 0; intn c_cur_max, c_sys_limit; ret = (intf) SDget_maxopenfiles(&c_cur_max, &c_sys_limit); if (ret < 0) return(FAIL); *cur_max = (intf)c_cur_max; *sys_limit = (intf)c_sys_limit; return(ret); } /*----------------------------------------------------------------------------- * Name: scgnumopenf * Purpose: Returns the number of files currently being opened * Outputs: cur_num: number of files currently being opened * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgnumopenf(intf *cur_num) #else nscgnumopenf(cur_num) intf *cur_num; #endif /* PROTOTYPE */ { intf ret = 0; intn c_cur_num; c_cur_num = SDget_numopenfiles(); if (c_cur_num < 1) ret = -1; *cur_num = (intf)c_cur_num; return(ret); } /*----------------------------------------------------------------------------- * Name: scn2indices * Purpose: Retrieves indices of all variables with the same name. * Inputs: sd_id: SD interface identifier * sds_name: data set name * namelen: length of the name * n_vars: number of variables (sizes of var_list and type_list * arrays) * Outputs: var_list: list of indices * type_list: list of types * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscn2indices(intf *sd_id, _fcd name, intf *namelen, intf *var_list, intf *type_list, intf *n_vars) #else nscn2indices(sd_id, name, namelen, var_list, type_list, n_vars) intf *sd_id; _fcd name; intf *namelen; intf *var_list; intf *type_list; intf *n_vars; #endif /* PROTOTYPE */ { char *fn; intn ret; hdf_varlist_t *c_var_list; int idx; fn = HDf2cstring(name, *namelen); if (!fn) return(FAIL); c_var_list = (hdf_varlist_t *)HDmalloc(*n_vars * sizeof(hdf_varlist_t)); if (!c_var_list) return(FAIL); ret = (intn) SDnametoindices(*sd_id, fn, c_var_list); if (ret == 0) { for (idx = 0; idx < *n_vars; idx++) { var_list[idx] = (intf)c_var_list[idx].var_index; type_list[idx] = (intf)c_var_list[idx].var_type; } } /*endif*/ HDfree(c_var_list); HDfree((VOIDP)fn); return(ret); } /*----------------------------------------------------------------------------- * Name: scgnvars_byname * Purpose: Gets the number of data sets having the same name * Inputs: sd_id: SD interface identifier * sds_name: data set name * namelen: length of the name * Outputs: n_vars: number of data sets * Returns: 0 on success, -1 on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nscgnvars_byname(intf *sd_id, _fcd name, intf *namelen, intf *n_vars) #else nscgnvars_byname(sd_id, name, namelen, n_vars) intf *sd_id; _fcd name; intf *namelen; intf *n_vars; #endif /* PROTOTYPE */ { char *fn; int32 c_n_vars; intn ret; fn = HDf2cstring(name, *namelen); if (!fn) return(FAIL); ret = (intn) SDgetnumvars_byname(*sd_id, fn, &c_n_vars); HDfree((VOIDP)fn); if(ret == FAIL) return FAIL; *n_vars = (intf)c_n_vars; return(ret); } libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/test_nc.cdl0000644000000000000000000000167012421456623015774 0ustar netcdf new { dimensions: x = 2; y = 3; time = UNLIMITED ; // (12 currently) variables: float a(x,y); int date(time) ; int time(time) ; short b(time, y, x); double c(y); // global attributes: :Description = "Attributes"; :int_attr = -100, 200, -300, 400, -500; :float_attr = 1.f, 2.f, 3.f; :short_attr = 0s, 1s; :double_attr = -1.d, 2.d, -7.d; data: a = 1.0, 2.0, 3.0, 4.0, 5.0, 6.0; date = 840116, 840214, 840316, 840415, 840516, 840615, 840716, 840816, 840915, 841016, 841115, 841216 ; time = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ; b = 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 17, 17, 18, 18, 19, 19, 20, 20, 21, 22, 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 30, 31, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, 36, 37, 37 ; c = 2.d, 3.d, 100.d; } libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/mffunc.inc0000644000000000000000000000621712421456623015624 0ustar C C Decls of SFxxx functions for Fortran multi-file interface C integer sfstart external sfstart integer sfn2index external sfn2index integer sfcreate external sfcreate integer sfsdmstr external sfsdmstr integer sfsdmname external sfsdmname integer sfsdtstr external sfsdtstr integer sfgdtstr external sfgdtstr integer sfgdmstr external sfgdmstr integer sfginfo external sfginfo integer sfgainfo external sfgainfo integer sfgdinfo external sfgdinfo integer sfsattr external sfsattr integer sfsnatt external sfscatt integer sfscatt integer sffattr external sffattr integer sfend external sfend integer sfendacc external sfendacc integer sffinfo external sffinfo integer sfselect external sfselect integer sfdimid external sfdimid integer sfgcal external sfgcal integer sfscal external sfscal integer sfsdscale external sfsdscale integer sfgdscale external sfgdscale integer sfsfill external sfsfill integer sfgfill external sfgfill integer sfgrange external sfgrange integer sfsrange external sfsrange integer sfrattr external sfrattr integer sfrnatt external sfrcatt integer sfrcatt integer sfrdata external sfrdata integer sfwdata external sfwdata integer sfsextf external sfsextf integer sfsnbit external sfsnbit integer sfsacct external sfsacct integer sfid2ref external sfid2ref integer sfiscvar external sfiscvar integer sfref2index external sfref2index integer sfsdmvc external sfsdmvc integer sfisdmvc external sfisdmvc integer sfgichnk external sfgichnk integer sfrcchnk external sfrcchnk integer sfrchnk external sfrchnk integer sfwcchnk external sfwcchnk integer sfwchnk external sfwchnk integer sfscchnk external sfscchnk integer sfschnk external sfschnk integer sfscompress external sfscompress integer sfgcompress external sfgcompress integer sfisrcrd external sfisrcrd integer sfsblsz external sfsblsz integer sfchempty external sfchempty integer sfwcdata external sfwcdata integer sfrcdata external sfrcdata integer sfgcfill external sfgcfill integer sfscfill external sfscfill integer sfsflmd external sfsflmd integer sfgetfname external sfgetfname integer sfgetnamelen external sfgetnamelen integer sfidtype external sfidtype integer sfgnvars_byname external sfgnvars_byname integer sfn2indices external sfn2indices integer sfgmaxopenf external sfgmaxopenf integer sfgnumopenf external sfgnumopenf integer sfrmaxopenf external sfrmaxopenf libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/testfortran.sh.in0000755000000000000000000000464212421456623017172 0ustar #! /bin/sh # Tests for the Fortran interfaces srcdir=@srcdir@ TEST_FORTRAN_NETCDF="@TEST_FORTRAN_NETCDF@" CMP='cmp -s' DIFF='diff -c' nerrors=0 verbose=yes # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All Fortran interfaces tests passed" else MESG 0 "Fortran interfaces tests failed: $nerrors" fi exit $nerrors } # Print a line-line message left justified in a field of 70 characters # beginning with the word "Testing". # TESTING() { SPACES=" " echo "Testing $* $SPACES" | cut -c1-70 | tr -d '\012' } # Run a test and print PASS or *FAIL*. If a test fails then increment # the `nerrors' global variable # RUN() { # Run test. MESG 0 "HDF-SD Fortran interfaces tests" ${TESTS_ENVIRONMENT} ./hdftest RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi ${TESTS_ENVIRONMENT} ./hdftest1 RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi if test $TEST_FORTRAN_NETCDF = "yes"; then MESG 0 "HDF-NetCDF Fortran interfaces tests" ${TESTS_ENVIRONMENT} ./ftest RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi else MESG 0 "HDF-NetCDF Fortran interfaces are disabled when library is built with --disable-netcdf" fi MESG 0 "SZIP Fortran interfaces tests" ${TESTS_ENVIRONMENT} ./tszip RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi } ############################################################################## ### T H E T E S T S ### ############################################################################## # Print a beginning banner MESG 0 "Running Fortran interfaces tests" # compare output RUN # End of test, return exit code FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/mfsdff.f0000644000000000000000000007000512421456623015263 0ustar C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C Copyright by The HDF Group. * C Copyright by the Board of Trustees of the University of Illinois. * C All rights reserved. * C * C This file is part of HDF. The full HDF copyright notice, including * C terms governing use, modification, and redistribution, is contained in * C the files COPYING and Copyright.html. COPYING can be found at the root * C of the source code distribution tree; Copyright.html can be found at * C http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C access to either file, you may request a copy from help@hdfgroup.org. * C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C C $Id: mfsdff.f 5167 2009-01-26 01:55:18Z epourmal $ C C---------------------------------------------------------------------- C Name: sdfstart C Purpose: call scstart, open file C Inputs: path: Name of file to be opened C access: DFACC_READ, DFACC_WRITE, DFACC_CREATE, C or any bitwise-or of the above. C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfstart(filename, access) character*(*) filename integer access, scstart sfstart = scstart(filename, access, len(filename)) return end C---------------------------------------------------------------------- C Name: sdfn2index C Purpose: call scn2index to return an index C Inputs: id: file C name: name of data set C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfn2index(id, name) character*(*) name integer id, scn2index sfn2index = scn2index(id, name, len(name)) return end C---------------------------------------------------------------------- C Name: sfcreate C Purpose: call sccreate to create a new dataset C Inputs: id: file C name: name of data set C nt: number type C rank: rank C dims: sizes of dimensions C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfcreate(id, name, nt, rank, dims) character*(*) name integer id, nt, rank, sccreate integer dims(*) sfcreate = sccreate(id, name, nt, rank, dims, len(name)) return end C---------------------------------------------------------------------- C Name: sfsdmstr C Purpose: set strings for this dimension C Inputs: id: dimension id C label,unit,format: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfsdmstr(id, label, unit, format) character*(*) label, unit, format integer len, id integer scsdimstr sfsdmstr = scsdimstr(id, label, unit, format, + len(label), len(unit), len(format)) return end C---------------------------------------------------------------------- C Name: sfsdmname C Purpose: set name of this dimension C Inputs: id: dimension id C name: the name C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfsdmname(id, name) character*(*) name integer len, id integer scsdimname sfsdmname = scsdimname(id, name, len(name)) return end C---------------------------------------------------------------------- C Name: sfsdtstr C Purpose: set strings for this data set C Inputs: id: dimension id C label,unit,format,coordsys: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfsdtstr(id, l, u, f, c) character*(*) l, u, f, c integer len, id integer scsdatstr sfsdtstr = scsdatstr(id, l, u, f, c, + len(l), len(u), len(f), len(c)) return end C---------------------------------------------------------------------- C Name: sfgdtstr C Purpose: get strings for this data set C Inputs: id: dimension id C Outputs: label,unit,format,coordsys: strings to be gotten C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfgdtstr(id, label, unit, format, coord, mlen) character*(*) label, unit, format, coord integer len, id, mlen integer scgdatstrs sfgdtstr = scgdatstrs(id, label, unit, format, coord, + len(label), len(unit), len(format), len(coord), mlen) return end C---------------------------------------------------------------------- C Name: sfgdmstr C Purpose: get strings for this dimension C Inputs: id: dimension id C Outputs: label,unit,format: strings to be gotten C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfgdmstr(id, label, unit, format, mlen) character*(*) label, unit, format integer len, id integer scgdimstrs sfgdmstr = scgdimstrs(id, label, unit, format, + len(label), len(unit), len(format), mlen) return end C---------------------------------------------------------------------- C Name: sfginfo C Purpose: get basic info about this data set C Inputs: id: dataset id C Outputs: name, rank, nt, dims, nattrs C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfginfo(id, name, rank, dims, nt, nattr) character*(*) name integer rank, nt, nattr integer dims(*) integer scginfo, len sfginfo = scginfo(id, name, rank, dims, nt, nattr, len(name)) return end C---------------------------------------------------------------------- C Name: sfgainfo C Purpose: get basic info about an attribute C Inputs: id: dataset id C number: attribute number C Outputs: name, nt, count C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfgainfo(id, number, name, nt, count) character*(*) name integer nt, number integer scgainfo, len sfgainfo = scgainfo(id, number, name, nt, count, len(name)) return end C---------------------------------------------------------------------- C Name: sfgdinfo C Purpose: get basic info about a dimension C Inputs: id: dim id C Outputs: name, nt, sz, nattr C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfgdinfo(id, name, sz, nt, nattr) character*(*) name integer sz, nt, nattr integer scgdinfo, len sfgdinfo = scgdinfo(id, name, sz, nt, nattr, len(name)) return end C---------------------------------------------------------------------- C Name: sfscatt C Purpose: create (or modify an existing) char attribute C Inputs: id: id of object to attribute-ize C Outputs: name, nt, count, data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfscatt(id,name,nt,count,data) character*(*) name, data integer nt integer scscatt, len sfscatt = scscatt(id,name,nt,count,data,len(name)) return end C---------------------------------------------------------------------- C Name: sfsnatt C Purpose: create (or modify an existing) numeric attribute C Inputs: id: id of object to attribute-ize C Outputs: name, nt, count, data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C---------------------------------------------------------------------- integer function sfsnatt(id, name, nt, count, data) character*(*) name integer nt, data integer scsnatt, len sfsnatt = scsnatt(id, name, nt, count, data, len(name)) return end C---------------------------------------------------------------------- C Name: sfsattr C Purpose: for backward compatability. Calls scsattr to C create (or modify an existing) attribute C Inputs: id: id of object to attribute-ize C Outputs: name, nt, count, data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Remarks: This function should be phased out in the future. C---------------------------------------------------------------------- integer function sfsattr(id, name, nt, count, data) character*(*) name, data integer nt integer scsattr, len sfsattr = scsattr(id, name, nt, count, data, len(name)) return end C---------------------------------------------------------------------- C Name: sffattr C Purpose: call scfattr, find an attribute C Inputs: id: Object to look at C name: name of attribute C Returns: attribute number on success, FAIL on failure with error set C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sffattr(id, name) character*(*) name integer id, scfattr sffattr = scfattr(id, name, len(name)) return end C---------------------------------------------------------------------- C Name: sfsextf C Purpose: call scsextf to store data in an external file C Inputs: id: sds id C fname: name of external file C offset: Number of bytes from the beginning of the C external file to where the data starts C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfsextf(id, fname, offset) character*(*) fname integer id, offset, scsextf sfsextf = scsextf(id, fname, offset, len(fname)) return end C------------------------------------------------------------------------- C Name: sfgichnk C Purpose: get Info on SDS C Inputs: id - data set ID C Outputs: dim_length - chunk dimensions (if any) C comp_flag: C -1 - SDS is non-chunked C 0 - SDS is chunked without compression C 1 - SDS is chunked and compressed with C RLE, GZIP, SZIP or SKPHUFF C 2 - SDS is chunked and compressed with C NBIT C Returns: 0 on success, -1 on failure C Calls: scgichnk (C stub for SDgetchunkinfo function) C------------------------------------------------------------------------- integer function sfgichnk(id, dim_length, comp_flag) integer id, dim_length(*), comp_flag integer scgichnk sfgichnk = scgichnk(id, dim_length, comp_flag) return end C------------------------------------------------------------------------- C Name: sfrcchnk C Purpose: read the specified chunk of CHARACTER data to the SDS C Inputs: id - data set ID C start - chunk coordinates C char_data - buffer the data will be read into C Returns: 0 on success, -1 on failure C Calls: scrcchnk (C stub for SDreadchunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfrcchnk(id, start, char_data) C integer id, start(*) character*(*) char_data(*) integer scrcchnk C sfrcchnk = scrcchnk(id, start, char_data) C return end C------------------------------------------------------------------------- C Name: sfrchnk C Purpose: read the specified chunk of NUMERIC data to the SDS C Inputs: id - data set ID C start - chunk coordinates C num_data - buffer the numeric data will be read into C Returns: 0 on success, -1 on failure C Calls: scrchnk (C stub for SDreadchunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfrchnk(id, start, num_data) C integer id, start(*), num_data(*) integer scrchnk C sfrchnk = scrchnk(id, start, num_data) C return end C------------------------------------------------------------------------- C Name: sfscchnk C Purpose: set the maximum number of chunks to cache C Inputs: id - data set ID C maxcache - max number of chunks to cache C flags - flags =0, HDF_CACHEALL C Currently only 0 can be passed. C Returns: 0 on success, -1 on failure C Calls: scscchnk (C stub for SDsetchunkcache function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfscchnk(id, maxcache, flags) C integer id, maxcache, flags integer scscchnk C sfscchnk = scscchnk(id, maxcache, flags) C return end C------------------------------------------------------------------------- C Name: sfschnk C Purpose: make the SDS a chunked SDS C Inputs: id - data set ID C dim_length - chunk dimensions C comp_type - type of compression C supports the following compression types: C ( see hcomp.h file) C COMP_CODE_NONE = 0 C COMP_CODE_RLE = 1 C COMP_CODE_NBIT = 2 C COMP_CODE_SKPHUFF = 3 C COMP_CODE_DEFLATE = 4 C COMP_CODE_SZIP = 5 C comp_prm - compression parameters array C For C Adaptive Huffman C comp_prm(1) = skphuff_skp_size C GZIP C comp_prm(1) = deflate_level C NBIT C comp_prm(1) = nbit_sign_ext C comp_prm(2) = nbit_fill_one C comp_prm(3) = nbit_start_bit C comp_prm(4) = nbit_bit_len C C SZIP C comp_prm(1) = options_mask C comp_prm(2) = pixels_per_block C NOTE: IT IS USER's responsibility to pass correct compression C parameters for each type of compression C C C Returns: 0 on success, -1 on failure C Calls: scschnk (C stub for SDsetchunk function) C------------------------------------------------------------------------- integer function sfschnk(id, dim_length, comp_type,comp_prm) integer id, dim_length(*), comp_type, comp_prm(*) integer scschnk sfschnk = scschnk(id, dim_length, comp_type, comp_prm) return end C------------------------------------------------------------------------- C Name: sfwcchnk C Purpose: write the specified chunk of CHARACTER data to the SDS C Inputs: id - data set ID C start - chunk coordinates C char_data - buffer containing data to be written C Returns: 0 on success, -1 on failure C Calls: scwcchnk (C stub for SDwritechunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfwcchnk(id, start, char_data) C integer id, start(*) character*(*) char_data(*) integer scwcchnk C sfwcchnk = scwcchnk(id, start, char_data) C return end C------------------------------------------------------------------------- C Name: sfwchnk C Purpose: write the specified chunk of NUMERIC data to the SDS C Inputs: id - data set ID C start - chunk coordinates C num_data - buffer containing data to be written C Returns: 0 on success, -1 on failure C Calls: scwchnk (C stub for SDwritechunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfwchnk(id, start, num_data) C integer id, start(*), num_data(*) integer scwchnk C sfwchnk = scwchnk(id, start, num_data) C return end C------------------------------------------------------------------------- C Name: sfscompress C Purpose: compress SDS C Inputs: id - data set ID C comp_type - type of compression C supports the following compression types: C ( see hcomp.h file) C COMP_CODE_NONE = 0 C COMP_CODE_RLE =1 C COMP_CODE_SKPHUFF = 3 C COMP_CODE_DEFLATE = 4 C COMP_CODE_SZIP = 5 C comp_prm - compression parameter array: C comp_prm(1) = deflate_level for GZIP C comp_prm(1) = skphuff_skp_size for ADAPTIVE HUFFMAN C comp_prm(1) = options_mask for SZIP C comp_prm(2) = bits_per_block for SZIP C NOTE: IT IS USER's responsibility to pass correct compression C parameters for each type of compression C C Returns: 0 on success, -1 on failure C Calls: scscompress (C stub for SDsetcompress function) C------------------------------------------------------------------------- integer function sfscompress(id, comp_type,comp_prm) integer id, comp_type, comp_prm(*) integer scscompress sfscompress = scscompress(id, comp_type, comp_prm) return end C------------------------------------------------------------------------- C Name: sfgcompress C Purpose: get compression information about SDS C Inputs: id - data set ID C Output: comp_type - type of compression C supports the following compression types: C ( see hcomp.h file) C COMP_CODE_NONE = 0 C COMP_CODE_RLE =1 C COMP_CODE_SKPHUFF = 3 C COMP_CODE_DEFLATE = 4 C COMP_CODE_SZIP = 5 C comp_prm - compression parameter array: C comp_prm(1) = deflate_level for GZIP C comp_prm(1) = skphuff_skp_size for ADAPTIVE HUFFMAN C comp_prm(1) = options_mask for SZIP C comp_prm(2) = bits_per_block for SZIP C comp_prm(3) = pixels_per_scanline for SZIP C comp_prm(4) = bits_per_pixel for SZIP C comp_prm(5) = pixels for SZIP C NOTE: IT IS USER's responsibility to pass correct compression C parameters for each type of compression C C Returns: 0 on success, -1 on failure C Calls: scgcompress (C stub for SDsetcompress function) C------------------------------------------------------------------------- integer function sfgcompress(id, comp_type,comp_prm) integer id, comp_type, comp_prm(*) integer scgcompress sfgcompress = scgcompress(id, comp_type, comp_prm) return end C------------------------------------------------------------------------- C Name: sfchempty C Purpose: checks whether an SDS is empty ( data has not been written) C Inputs: id - data set ID C Outputs: flag - 1 if SDS is empty, 0 otherwise C Returns: 0 on success, -1 on failure C Calls: scchempty (C stub for SDcheckempty function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- integer function sfchempty(id, flag) C integer id, flag integer scchempty C sfchempty = scchempty(id, flag) C return end C---------------------------------------------------------------------- C Name: sfgetfname C Purpose: Retrieves the name of the file given file identifier C Inputs: file_id: file identifier C Input/Outputs: filename: character variable to hold C the name of the file C Returns: the length of the name if successfull, -1 if fails C Calls: scgetfname C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfgetfname(file_id, filename) character*(*) filename integer file_id integer scgetfname sfgetfname = scgetfname(file_id, filename, len(filename)) return end C------------------------------------------------------------------------- C Name: sfgetnamelen C Purpose: Retrieves the length of the name of C a file, a dataset, or a dimension. C Inputs: obj_id - object identifier C Outputs: length - length of the object's name C Returns: 0 on success, -1 on failure C Calls: scgetnamelen C Users: Fortran stub routine C------------------------------------------------------------------------- integer function sfgetnamelen(obj_id, length) C integer obj_id, length integer scgetnamelen C sfgetnamelen = scgetnamelen(obj_id, length) C return end C------------------------------------------------------------------------- C Name: sfidtype C Purpose: Returns the type of object C Inputs: obj_id - object identifier C Outputs: obj_type - type of the object C Can be one of the following C -1 - if obj_id is not valid SD type C 0 - SD (file) C 1 - SDS (data set) C 2 - DIM_ID (dimension scale) C see mfhdf.h file for definition of hdf_idtype_t C Returns: 0 on success, -1 on failure C Calls: scidtype C Users: Fortran stub routine C------------------------------------------------------------------------- integer function sfidtype(obj_id, obj_type) C integer obj_id, obj_type integer scidtype C sfidtype = scidtype(obj_id, obj_type) C return end C---------------------------------------------------------------------- C Name: sfgnvars_byname C Purpose: Gets the number of data sets having the same name C Inputs: sd_id: SD interface identifier C sds_name: name of a data set C Output: n_vars: number of data sets with name "name" C Returns: 0 on success, -1 on failure C Calls: scgnvars_byname C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfgnvars_byname(sd_id, sds_name, n_vars) character*(*) sds_name integer sd_id, n_vars integer scgnvars_byname sfgnvars_byname = scgnvars_byname(sd_id, sds_name, + len(sds_name), + n_vars) return end C---------------------------------------------------------------------- C Name: sfn2indices C Purpose: Retrieves indices and types of all variables with C the same name C Inputs: sd_id: SD interface identifier C sds_name: name of a data set C Input/Output: var_list: array to store indices C type_list: array to store variable type C elements may have values C 0 - for data set, C 1 - for dimension scale C 2 - unknown type C Returns: 0 on success, -1 on failure C Calls: scn2indices C Users: Fortran stub routine C---------------------------------------------------------------------- integer function sfn2indices(sd_id, sds_name, var_list, + type_list, n_vars) character*(*) sds_name integer sd_id integer var_list(*), type_list(*) integer n_vars integer scn2indices sfn2indices = scn2indices(sd_id, sds_name, len(sds_name), + var_list, type_list, n_vars) return end C------------------------------------------------------------------------- C Name: sfgmaxopenf C Purpose: Retrieves current and maximum number of open files C Outputs: cur_max: current number of open files C sys_limit: maximum number of open files C Returns: 0 on success, -1 on failure C Calls: scgmaxopenf C Users: Fortran stub routine C------------------------------------------------------------------------- integer function sfgmaxopenf(cur_max, sys_limit) C integer cur_max, sys_limit integer scgmaxopenf C sfgmaxopenf = scgmaxopenf(cur_max, sys_limit) C return end C------------------------------------------------------------------------- C Name: sfgnumopenf C Purpose: Returns the number of files currently being opened C Outputs: cur_num: current number of open files C Returns: 0 on success, -1 on failure C Calls: scgnumopenf C Users: Fortran stub routine C------------------------------------------------------------------------- integer function sfgnumopenf(cur_num) C integer cur_num integer scgnumopenf C sfgnumopenf = scgnumopenf(cur_num) C return end C------------------------------------------------------------------------- C Name: sfrmaxopenf C Purpose: Resets the maximum number of files can be opened C at the same time C Outputs: req_max: requested maximum number of opened files allowed C Returns: 0 on success, -1 on failure C Calls: scrmaxopenf C Users: Fortran stub routine C------------------------------------------------------------------------- integer function sfrmaxopenf(req_max) C integer req_max integer scrmaxopenf C sfrmaxopenf = scrmaxopenf(req_max) C return end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/common.inc0000644000000000000000000001034412421456623015632 0ustar c c Functions in the FORTRAN interface integer nccre, ncopn, ncddef, ncdid, ncvdef, ncvid, nctlen integer ncsfil external nccre, ncopn, ncddef, ncdid, ncvdef, ncvid, nctlen external ncsfil integer NCRDWR,NCCREAT,NCEXCL,NCINDEF,NCNSYNC,NCHSYNC integer NCNDIRTY,NCHDIRTY,NCLINK,NCNOWRIT,NCWRITE integer NCCLOB,NCNOCLOB,NCGLOBAL,NCFILL,NCNOFILL integer MAXNCOP,MAXNCDIM,MAXNCATT,MAXNCVAR integer MAXNCNAM,MAXVDIMS,NCNOERR,NCEBADID integer NCENFILE,NCEEXIST,NCEINVAL,NCEPERM,NCENOTIN integer NCEINDEF,NCECOORD,NCEMAXDS,NCENAME integer NCENOATT,NCEMAXAT,NCEBADTY,NCEBADD, NCESTS integer NCEUNLIM,NCEMAXVS,NCENOTVR,NCEGLOB,NCENOTNC integer NCFOOBAR,NCSYSERR,NCFATAL,NCVERBOS, NCENTOOL integer NCBYTE,NCCHAR,NCSHORT,NCLONG,NCFLOAT,NCDOUBLE parameter(NCBYTE = 1) parameter(NCCHAR = 2) parameter(NCSHORT = 3) parameter(NCLONG = 4) parameter(NCFLOAT = 5) parameter(NCDOUBLE = 6) c c masks for the struct NC flag field; passed in as 'mode' arg to c nccreate and ncopen. c c read/write, 0 => readonly parameter(NCRDWR = 1) c in create phase, cleared by ncendef parameter(NCCREAT = 2) c on create destroy existing file parameter(NCEXCL = 4) c in define mode, cleared by ncendef parameter(NCINDEF = 8) c synchronise numrecs on change (X'10') parameter(NCNSYNC = 16) c synchronise whole header on change (X'20') parameter(NCHSYNC = 32) c numrecs has changed (X'40') parameter(NCNDIRTY = 64) c header info has changed (X'80') parameter(NCHDIRTY = 128) c prefill vars on endef and increase of record, the default behavior parameter(NCFILL = 0) c don't fill vars on endef and increase of record (X'100') parameter(NCNOFILL = 256) c isa link (X'8000') parameter(NCLINK = 32768) c c 'mode' arguments for nccreate and ncopen c parameter(NCNOWRIT = 0) parameter(NCWRITE = NCRDWR) parameter(NCCLOB = 11) parameter(NCNOCLOB = 15) c c 'size' argument to ncdimdef for an unlimited dimension c LONG_INT NCUNLIM parameter(NCUNLIM = 0) c c attribute id to put/get a global attribute c parameter(NCGLOBAL = 0) c c Advisory Maximums c parameter(MAXNCOP = 32) parameter(MAXNCDIM = 32) parameter(MAXNCATT = 512) parameter(MAXNCVAR = 512) c Not enforced parameter(MAXNCNAM = 128) parameter(MAXVDIMS = MAXNCDIM) c c The netcdf data types c c c Global netcdf error status variable c Initialized in error.c c c No Error parameter(NCNOERR = 0) c Not a netcdf id parameter(NCEBADID = 1) c Too many netcdfs open parameter(NCENFILE = 2) c netcdf file exists && NCNOCLOB parameter(NCEEXIST = 3) c Invalid Argument parameter(NCEINVAL = 4) c Write to read only parameter(NCEPERM = 5) c Operation not allowed in data mode parameter(NCENOTIN = 6) c Operation not allowed in define mode parameter(NCEINDEF = 7) c Coordinates out of Domain parameter(NCECOORD = 8) c MAXNCDIMS exceeded parameter(NCEMAXDS = 9) c String match to name in use parameter(NCENAME = 10) c Attribute not found parameter(NCENOATT = 11) c MAXNCATTRS exceeded parameter(NCEMAXAT = 12) c Not a netcdf data type parameter(NCEBADTY = 13) c Invalid dimension id parameter(NCEBADD = 14) c NCUNLIMITED in the wrong index parameter(NCEUNLIM = 15) c MAXNCVARS exceeded parameter(NCEMAXVS = 16) c Variable not found parameter(NCENOTVR = 17) c Action prohibited on NCGLOBAL varid parameter(NCEGLOB = 18) c Not a netcdf file parameter(NCENOTNC = 19) parameter(NCESTS = 20) parameter (NCENTOOL = 21) parameter(NCFOOBAR = 32) parameter(NCSYSERR = -1) c c Global options variable. Used to determine behavior of error handler. c Initialized in lerror.c c parameter(NCFATAL = 1) parameter(NCVERBOS = 2) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/CMakeTests.cmake0000644000000000000000000001546312421456623016663 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## FILE (MAKE_DIRECTORY ${PROJECT_BINARY_DIR}/testdir) #----------------------------------------------------------------------------- # test programs #----------------------------------------------------------------------------- IF (HDF4_ENABLE_NETCDF) #-- Adding test for ftest ADD_EXECUTABLE (ftest ${HDF4_BINARY_DIR}/ftest.f ${HDF4_HDF_TESTSOURCE_DIR}/forsupff.f ${HDF4_BINARY_DIR}/netcdf.inc) TARGET_NAMING (ftest ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (ftest " " " ") SET_TARGET_PROPERTIES (ftest PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ftest ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET} ${LINK_LIBS}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (ftest ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES test_nc.cdl test_nc.nc ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET ftest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_FORTRAN_SOURCE_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) ADD_TEST (NAME ftest COMMAND $) ENDIF (HDF4_ENABLE_NETCDF) #-- Adding test for f_hdftest ADD_EXECUTABLE (f_hdftest hdftest.f) TARGET_NAMING (f_hdftest ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_hdftest " " " ") SET_TARGET_PROPERTIES (f_hdftest PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_hdftest ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET} ${LINK_LIBS}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_hdftest ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) #-- Adding test for f_hdftest1 ADD_EXECUTABLE (f_hdftest1 hdftest1.f) TARGET_NAMING (f_hdftest1 ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_hdftest1 " " " ") SET_TARGET_PROPERTIES (f_hdftest1 PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_hdftest1 ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET} ${LINK_LIBS}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_hdftest1 ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) #-- Adding test for f_tszip ADD_EXECUTABLE (f_tszip tszip.f) TARGET_NAMING (f_tszip ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_tszip " " " ") SET_TARGET_PROPERTIES (f_tszip PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_tszip ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET} ${LINK_LIBS}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_tszip ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME MFHDF_FORTRAN-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove cchunk_gz.hdf cchunk_nb.hdf cchunk_no.hdf cchunk_rl.hdf cchunk_sk.hdf chunk_gz.hdf chunk_nb.hdf chunk_no.hdf chunk_rl.hdf chunk_sk.hdf comp_gz.hdf comp_no.hdf comp_rl.hdf comp_sk.hdf comp_szip.hdf copy.nc test.nc test1.hdf test2.hdf test_empty.hdf test_var.hdf test_file.hdf test_file01.hdf test_file02.hdf test_file03.hdf test_file04.hdf test_file05.hdf test_file06.hdf test_file07.hdf test_file08.hdf test_file09.hdf test_file10.hdf test_file11.hdf test_file12.hdf test_file13.hdf test_file14.hdf test_file15.hdf test_file16.hdf test_file17.hdf test_file18.hdf test_file19.hdf test_file20.hdf test_file21.hdf test_file22.hdf test_file23.hdf test_file24.hdf test_file25.hdf test_file26.hdf test_file27.hdf test_file28.hdf test_file29.hdf test_file30.hdf test_file31.hdf test_file32.hdf test_file33.hdf test_file34.hdf test_file35.hdf ) IF (HDF4_ENABLE_NETCDF) SET_TESTS_PROPERTIES (MFHDF_FORTRAN-clearall-objects PROPERTIES DEPENDS ftest LABELS ${PROJECT_NAME}) ENDIF (HDF4_ENABLE_NETCDF) ADD_TEST (NAME f_hdftest COMMAND $) SET (passRegex "Total errors : [ ]+0") SET_PROPERTY (TEST f_hdftest PROPERTY PASS_REGULAR_EXPRESSION "${passRegex}") SET_TESTS_PROPERTIES (f_hdftest PROPERTIES DEPENDS MFHDF_FORTRAN-clearall-objects LABELS ${PROJECT_NAME}) ADD_TEST (NAME f_hdftest1 COMMAND $) SET (failRegex "failed" "errors") SET_PROPERTY (TEST f_hdftest1 PROPERTY FAIL_REGULAR_EXPRESSION "${failRegex}") SET_TESTS_PROPERTIES (f_hdftest1 PROPERTIES DEPENDS f_hdftest LABELS ${PROJECT_NAME}) ADD_TEST (NAME f_tszip COMMAND $) SET (failRegex "failed" "errors") SET_PROPERTY (TEST f_tszip PROPERTY FAIL_REGULAR_EXPRESSION "${failRegex}") SET_TESTS_PROPERTIES (f_tszip PROPERTIES DEPENDS f_hdftest1 LABELS ${PROJECT_NAME}) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/tszip.f0000644000000000000000000003233512421456623015173 0ustar C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ C Copyright by The HDF Group. * C Copyright by the Board of Trustees of the University of Illinois. * C All rights reserved. * C * C This file is part of HDF. The full HDF copyright notice, including * C terms governing use, modification, and redistribution, is contained in * C the files COPYING and Copyright.html. COPYING can be found at the root * C of the source code distribution tree; Copyright.html can be found at * C http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C access to either file, you may request a copy from help@hdfgroup.org. * C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ program test_szip implicit none C C------- Begin Variables declarations ----------------------------------- C integer N_COMP_ARG, N_TYPES parameter (N_COMP_ARG = 5, N_TYPES = 4) integer sd_id, sds_id(N_TYPES), sds_index(N_TYPES) integer type(N_TYPES) integer RANK, comp_type, comp_type_out integer comp_arg(N_COMP_ARG), comp_prm_out(5) integer d_dims(2) integer start(2), stride(2), edges(2) integer status integer err_szip character*14 file character*17 name(4) integer n, m, n_part, m_part integer n_part_stride, m_part_stride integer n_part_start, m_part_start integer n_stride, m_stride integer n_start, m_start integer n_edges, m_edges integer i, j, l, kl, kj, i_comp C C SDS functions declarations include 'mffunc.inc' external hconfinf integer hconfinf C C Initial data declarations( change if you which to test larger arrays ) C C Data array dimensions n and m and RANK C parameter (n = 12, m = 4, RANK = 2) C C Part data dimensions n_part, m_part C parameter (n_part = 5, m_part = 2) C C Stride and start coordinates of part_data C parameter (n_part_stride = 1, m_part_stride = 1) parameter (n_part_start = 2, m_part_start = 1) C C Sart, stride and edges parameters in each dimension C parameter (n_start = 0, m_start = 0) parameter (n_stride = 1, m_stride = 1) parameter (n_edges = n, m_edges = m) C C Data declaration C integer*2 data2(n,m), data2_out(n_part,m_part) integer*4 data4(n,m), data4_out(n_part,m_part) real*4 rdata4(n,m), rdata4_out(n_part,m_part) real*8 rdata8(n,m), rdata8_out(n_part,m_part) C C HDF parameters initialization C C C Read/Write parameters C integer DFACC_CREATE, . DFACC_WRITE, . DFACC_READ parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) C C Data type parameters C integer DFNT_INT16, . DFNT_INT32, . DFNT_FLOAT32, . DFNT_FLOAT64 parameter (DFNT_INT16 = 22, . DFNT_INT32 = 24, . DFNT_FLOAT32 = 5, . DFNT_FLOAT64 = 6) C C Compression parametes C integer COMP_CODE_SZIP, . SZ_EC_OPTION_MASK, . SZ_NN_OPTION_MASK parameter (COMP_CODE_SZIP = 5, . SZ_EC_OPTION_MASK = 4, . SZ_NN_OPTION_MASK = 32) C C Compression arguments ( defined for clarity, actual values C will be passed to SFSCHUNK function via comp_arg parameter) C integer pixels_per_block parameter (pixels_per_block = 12) C--------------------End of declarations------------------------------ C C-------------------IS SZIP compression present with encoder?-------- integer info err_szip = 0 comp_type = COMP_CODE_SZIP status = hconfinf(comp_type, info) if(status .LT. 0) then err_szip = err_szip + 1 goto 1111 endif if(info .EQ. 0 ) then print *,'Skipping test_szip: compression is not available' print *,' ' goto 3333 endif if(info .EQ. 1) then print *,'Skipping test_szip: szip encoding is not available' print *,' ' goto 3333 endif C C C We will write to five different files corresponding to the C different compression types C C NO compression C file = 'comp_szip.hdf' name(1) = 'szip_data_int16' name(2) = 'szip_data_int32' name(3) = 'szip_data_float32' name(4) = 'szip_data_float64' type(1) = DFNT_INT16 type(2) = DFNT_INT32 type(3) = DFNT_FLOAT32 type(4) = DFNT_FLOAT64 C C Dimension sizes array initialization C d_dims(1) = n d_dims(2) = m C C Initilize original array C do 20 j = 1, m do 10 i = 1, n data2(i,j) = 10*j + i data4(i,j) = 10*j + i rdata4(i,j) = 10*j + i rdata8(i,j) = 10*j + i 10 continue 20 continue C C Initialize SD interfaces C sd_id = sfstart (file, DFACC_CREATE) C C Set compression type and compression arguments C C C Initialize compression arguments array C comp_type = COMP_CODE_SZIP comp_arg(1) = SZ_NN_OPTION_MASK comp_arg(2) = pixels_per_block C C Main loop through different compression types C do 1000 i_comp = 1, N_TYPES C C Create the data set C sds_id(i_comp) = sfcreate(sd_id, name(i_comp), . type(i_comp), RANK, d_dims) if( sds_id(i_comp) .eq. -1 ) then print *, 'sfcreate failed for', i_comp, ' -th dataset' err_szip = err_szip + 1 endif status = sfscompress(sds_id(i_comp), comp_type, comp_arg) if( status .ne. 0 ) then print *, 'sfscompress failed for', i_comp, ' -th dataset' err_szip = err_szip + 1 endif C C Write data to the file C start(1) = n_start start(2) = m_start stride(1) = n_stride stride(2) = m_stride edges(1) = n_edges edges(2) = m_edges if (i_comp .eq. 1) then status = sfwdata(sds_id(i_comp), start, stride, . edges, data2) endif if (i_comp .eq. 2) then status = sfwdata(sds_id(i_comp), start, stride, . edges, data4) endif if (i_comp .eq. 3) then status = sfwdata(sds_id(i_comp), start, stride, . edges, rdata4) endif if (i_comp .eq. 4) then status = sfwdata(sds_id(i_comp), start, stride, . edges, rdata8) endif if( status .ne. 0 ) then print *, 'sfwdata failed for', i_comp, ' -th dataset' err_szip = err_szip + 1 endif status = sfendacc(sds_id(i_comp)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i_comp, ' -th dataset' err_szip = err_szip + 1 endif 1000 continue status = sfend (sd_id) if( status .ne. 0 ) then print *, 'sfend failed' err_szip = err_szip + 1 endif C C Let's check what we have written C C Open files and restart SD interfaces C sd_id = sfstart (file, DFACC_READ) if( sd_id .eq. -1 ) then print *, 'sfstart failed' err_szip = err_szip + 1 endif do 2000 i = 1, N_TYPES C C Find written dataset in each file using its name and index C sds_index(i) = sfn2index (sd_id, name(i)) if( sds_index(i) .eq. -1 ) then print *, 'sfn2index failed for', i, ' -th dataset' err_szip = err_szip + 1 endif sds_id(i) = sfselect (sd_id, sds_index(i)) if( sds_id(i) .eq. -1 ) then print *, 'sfselect failed for', i, ' -th dataset' err_szip = err_szip + 1 endif C C Find out type of compression used and compression parameters. C status = sfgcompress(sds_id(i), comp_type_out, comp_prm_out) if (status .eq. -1) then print *, 'sfgcompress failed for', i, ' -th dataset' err_szip = err_szip + 1 endif if (comp_type_out .ne. COMP_CODE_SZIP) then print *, 'wrong compression type for szip . compressed dataset' err_szip = err_szip + 1 endif C write(*,*) comp_arg(1), comp_prm_out(1) C write(*,*) comp_arg(2), comp_prm_out(2) C write(*,*) comp_prm_out(3) C write(*,*) comp_prm_out(4) C write(*,*) comp_prm_out(5) C if ((comp_arg(1) .ne. comp_prm_out(1)) .or. C . (comp_arg(2) .ne. comp_prm_out(2))) then C print *, 'wrong compression parameter' C err_szip = err_szip + 1 C endif C C Read part of the data back using sfrdata function C start(1) = n_part_start start(2) = m_part_start edges(1) = n_part edges(2) = m_part stride(1) = n_part_stride stride(2) = m_part_stride if (i .eq. 1) then status = sfrdata(sds_id(i), start, stride, . edges, data2_out) endif if (i .eq. 2) then status = sfrdata(sds_id(i), start, stride, . edges, data4_out) endif if (i .eq. 3) then status = sfrdata(sds_id(i), start, stride, . edges, rdata4_out) endif if (i .eq. 4) then status = sfrdata(sds_id(i), start, stride, . edges, rdata8_out) endif if (status .ne. 0) then print *, 'sfrdata failed for reading part data for ', . i, '-th dataset' err_szip = err_szip + 1 endif C C Compare output with actual data C if (i .eq. 1) then do 204 j = 1, m_part do 203 l = 1, n_part kl = n_part_start + 1 + (l-1)*n_part_stride kj = m_part_start + 1 + (j-1)*m_part_stride if (data2(kl, kj) .ne. data2_out(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_szip = err_szip +1 endif 203 continue 204 continue endif if (i .eq. 2) then do 206 j = 1, m_part do 205 l = 1, n_part kl = n_part_start + 1 + (l-1)*n_part_stride kj = m_part_start + 1 + (j-1)*m_part_stride if (data4(kl, kj) .ne. data4_out(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_szip = err_szip +1 endif 205 continue 206 continue endif if (i .eq. 3) then do 208 j = 1, m_part do 207 l = 1, n_part kl = n_part_start + 1 + (l-1)*n_part_stride kj = m_part_start + 1 + (j-1)*m_part_stride if (rdata4(kl, kj) .ne. rdata4_out(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_szip = err_szip +1 endif 207 continue 208 continue endif if (i .eq. 4) then do 210 j = 1, m_part do 209 l = 1, n_part kl = n_part_start + 1 + (l-1)*n_part_stride kj = m_part_start + 1 + (j-1)*m_part_stride if (rdata8(kl, kj) .ne. rdata8_out(l,j)) then print *, 'sfrdata read wrong data for ', . i ,'-th dataset' err_szip = err_szip +1 endif 209 continue 210 continue endif C C Terminate access to SDS, shutdown interfaces and close the files C status = sfendacc(sds_id(i)) if( status .ne. 0 ) then print *, 'sfendacc failed for', i, '-th dataset' err_szip = err_szip + 1 endif 2000 continue status = sfend(sd_id) if( status .ne. 0 ) then print *, 'sfend failed' err_szip = err_szip + 1 endif 1111 continue if (err_szip .ne. 0) then print *, 'test_szip failed with ', err_szip, ' errors' print *,' ' endif if (err_szip .eq. 0) then print *, 'test_szip.................. PASSED' print *,' ' endif 3333 continue end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/mfhdf_fortrandll.def0000644000000000000000000000125512421456623017643 0ustar EXPORTS ; MFSDFF SFRMAXOPENF SFGNUMOPENF SFGMAXOPENF SFN2INDICES SFGNVARS_BYNAME SFIDTYPE SFGETNAMELEN SFGETFNAME SFCHEMPTY SFGCOMPRESS SFSCOMPRESS SFWCHNK SFWCCHNK SFSCHNK SFSCCHNK SFRCHNK SFRCCHNK SFGICHNK SFSEXTF SFFATTR SFSATTR SFSNATT SFSCATT SFGDINFO SFGAINFO SFGINFO SFGDMSTR SFGDTSTR SFSDTSTR SFSDMNAME SFSDMSTR SFCREATE SFN2INDEX SFSTART SCRMAXOPENF SCGNUMOPENF SCGMAXOPENF SCN2INDICES SCGNVARS_BYNAME SCIDTYPE SCGETNAMELEN SCGETFNAME SCCHEMPTY SCGCOMPRESS SCSCOMPRESS SCWCHNK SCWCCHNK SCSCHNK SCSCCHNK SCRCHNK SCRCCHNK SCGICHNK SCSEXTF SCFATTR SCSATTR SCSNATT SCSCATT SCGDINFO SCGAINFO SCGINFO SCGDIMSTRS SCGDATSTRS SCSDATSTR SCSDIMNAME SCSDIMSTR SCCREATE SCN2INDEX SCSTART libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/hdftst.sav0000644000000000000000000000130412421456623015652 0ustar name = Alpha name = TestDim name = Globulator label = lxxx unit = uyyy format = fzzz coordsys = caaa label = dA unit = dBB format = dCCC values = Howdy Sailor Total errors : 0 libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/0000755000000000000000000000000012474643755015477 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/Makefile.in0000644000000000000000000006021012474643755017543 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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@ ############################################################################# ############################################################################# # We can't tell automake about example programs, because they need to be # built using h4cc (or h4fc, etc.) instead of the standard compilers. # This creates some extra work for us. VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am \ $(top_srcdir)/config/examples.am TESTS = $(TEST_PROG) subdir = mfhdf/fortran/examples ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog ExternalSDS *.hdf DEFINES = -DNDEBUG -DHDF ############################################################################# ############################################################################# # These are the Fortran test programs to build. EXAMPLE_PROG = SD_create_sds SD_write_to_sds SD_write_slab SD_alter_sds_values SD_unlimited_sds \ SD_mv_sds_to_external SD_read_from_sds SD_read_subsets SD_get_info \ SD_find_sds_by_name SD_set_get_dim_info SD_dimscale_vs_sds SD_set_attr \ SD_get_attr SD_compress_sds SD_chunking_example TEST_PROG = $(EXAMPLE_PROG) # These are the Fortran example files to be installed INSTALL_FILES = SD_create_sds.f SD_write_to_sds.f SD_write_slab.f SD_alter_sds_values.f \ SD_unlimited_sds.f SD_mv_sds_to_external.f SD_read_from_sds.f SD_read_subsets.f \ SD_get_info.f SD_find_sds_by_name.f SD_set_get_dim_info.f SD_dimscale_vs_sds.f \ SD_set_attr.f SD_get_attr.f SD_compress_sds.f SD_chunking_example.f # Where to install example files EXAMPLEDIR = $(prefix)/examples/fortran DISTCLEANFILES = *.chkexe *.chklog @BUILD_SHARED_SZIP_CONDITIONAL_TRUE@LD_LIBRARY_PATH = $(LL_PATH) # Assume that all tests in this directory are examples, and tell # conclude.am when to build them. EXTRA_PROG = $(EXAMPLE_PROG) # We need to tell automake what to clean MOSTLYCLEANFILES = *.o $(EXAMPLE_PROG) CLEANFILES = $(EXAMPLE_PROG) # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.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 mfhdf/fortran/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/fortran/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.am: $(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): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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 "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-data-local 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: installcheck-local maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool \ mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-local .MAKE: check-am install-am install-strip .PHONY: all all-am all-local check check-TESTS check-am clean \ clean-generic clean-libtool distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am \ install-data-local 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 installcheck-local installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am uninstall uninstall-am uninstall-local # How to build Fortran programs using h4fc $(EXTRA_PROG): $(H4FC) $(H4FC) $(H4FCFLAGS) $(FCFLAGS) -o $@ $(srcdir)/$@.f; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal Fortran compiler, not h4fc. SD_create_sds: $(srcdir)/SD_create_sds.f SD_write_to_sds: $(srcdir)/SD_write_to_sds.f SD_write_slab: $(srcdir)/SD_write_slab.f SD_alter_sds_values: $(srcdir)/SD_alter_sds_values.f SD_unlimited_sds: $(srcdir)/SD_unlimited_sds.f SD_mv_sds_to_external: $(srcdir)/SD_mv_sds_to_external.f SD_read_from_sds: $(srcdir)/SD_read_from_sds.f SD_read_subsets: $(srcdir)/SD_read_subsets.f SD_get_info: $(srcdir)/SD_get_info.f SD_find_sds_by_name: $(srcdir)/SD_find_sds_by_name.f SD_set_get_dim_info: $(srcdir)/SD_set_get_dim_info.f SD_dimscale_vs_sds: $(srcdir)/SD_dimscale_vs_sds.f SD_set_attr: $(srcdir)/SD_set_attr.f SD_get_attr: $(srcdir)/SD_get_attr.f SD_compress_sds: $(srcdir)/SD_compress_sds.f SD_chunking_example: $(srcdir)/SD_chunking_example.f # How to create EXAMPLEDIR if it doesn't already exist $(DESTDIR)$(EXAMPLEDIR): mkdir -p $@ # Install and uninstall rules. We install the source files, not the # example programs themselves. install-data-local: @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-local: @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples install-examples: $(DESTDIR)$(EXAMPLEDIR) @for f in X $(INSTALL_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLEDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ fi; \ done @for f in X $(INSTALL_TOP_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLETOPDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_TOP_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ fi; \ done uninstall-examples: @if test -n "$(INSTALL_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_FILES); \ fi @if test -n "$(INSTALL_SCRIPT_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_SCRIPT_FILES); \ fi @if test -n "$(INSTALL_TOP_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_FILES); \ fi @if test -n "$(INSTALL_TOP_SCRIPT_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_SCRIPT_FILES); \ fi installcheck-local: @if test "$(STATIC_SHARED)" = "static, shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ $(MAKE) $(AM_MAKEFLAGS) clean; \ H5CCFLAGS="" $(MAKE) $(AM_MAKEFLAGS) check; \ elif test "$(STATIC_SHARED)" = "shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ else \ $(MAKE) $(AM_MAKEFLAGS) check; \ fi # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/CMakeLists.txt0000644000000000000000000000560012421456623020224 0ustar cmake_minimum_required (VERSION 2.8.10) # -------------------------------------------------------------------- # Notes: When creating examples they should be prefixed # with "f_ex_". This allows for easier filtering of the examples. # -------------------------------------------------------------------- PROJECT (HDF4_MFHDF_FORTRAN_EXAMPLES C CXX Fortran) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- INCLUDE_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${HDF4_HDFSOURCE_DIR} ) LINK_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_MFHDF_BINARY_DIR} ${HDF4_HDF_BINARY_DIR} ${CMAKE_LIBRARY_OUTPUT_DIRECTORY} ) #----------------------------------------------------------------------------- # Define Sources #----------------------------------------------------------------------------- SET (examples SD_create_sds SD_write_to_sds SD_write_slab SD_alter_sds_values SD_unlimited_sds SD_mv_sds_to_external SD_read_from_sds SD_read_subsets #SD_get_info SD_find_sds_by_name SD_set_get_dim_info #SD_dimscale_vs_sds SD_set_attr #SD_get_attr SD_compress_sds SD_chunking_example ) SET (skip_examples SD_get_info SD_dimscale_vs_sds SD_get_attr ) FOREACH (example ${examples}) ADD_EXECUTABLE (f_exmf_${example} ${HDF4_MFHDF_FORTRAN_EXAMPLES_SOURCE_DIR}/${example}.f) TARGET_NAMING (f_exmf_${example} ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_exmf_${example} " " " ") SET_TARGET_PROPERTIES (f_exmf_${example} PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_exmf_${example} ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_exmf_${example} ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) ENDFOREACH (example ${examples}) FOREACH (example ${skip_examples}) ADD_EXECUTABLE (f_exmf_${example} ${HDF4_MFHDF_FORTRAN_EXAMPLES_SOURCE_DIR}/${example}.f) TARGET_NAMING (f_exmf_${example} ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_exmf_${example} " " " ") SET_TARGET_PROPERTIES (f_exmf_${example} PROPERTIES LINKER_LANGUAGE Fortran) IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_exmf_${example} ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (f_exmf_${example} ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) ENDFOREACH (example ${skip_examples}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_find_sds_by_name.f0000644000000000000000000000443612421456623021512 0ustar program locate_by_name implicit none C C Parameter declaration. C character*7 FILE_NAME character*11 SDS_NAME character*9 WRONG_NAME integer X_LENGTH, Y_LENGTH parameter (FILE_NAME = 'SDS.hdf', + SDS_NAME = 'SDStemplate', + WRONG_NAME = 'WrongName', + X_LENGTH = 5, + Y_LENGTH = 16) integer DFACC_READ, DFNT_INT32 parameter (DFACC_READ = 1, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfn2index, sfselect, sfrdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer start(2), edges(2), stride(2) integer data(X_LENGTH, Y_LENGTH) integer j C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Find index of the data set with the name specified in WRONG_NAME. C Error condition occurs, since a data set with this name C does not exist in the file. C sds_index = sfn2index(sd_id, WRONG_NAME) if (sds_index .eq. -1) then write(*,*) "Data set with the name ", WRONG_NAME, + " does not exist" endif C C Find index of the data set with the name specified in SDS_NAME C and use the index to attach to the data set. C sds_index = sfn2index(sd_id, SDS_NAME) sds_id = sfselect(sd_id, sds_index) C C Set elements of start array to 0, elements of edges array C to SDS dimensions, and elements of stride array to 1 to read entire data. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Read entire data into array named data. C status = sfrdata(sds_id, start, stride, edges, data) C C Print 10th column; the following numbers should be displayed: C C 10 1000 12 13 14 C write(*,*) (data(j,10), j = 1, X_LENGTH) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/Makefile.am0000644000000000000000000000512112421456623017516 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am DEFINES=-DNDEBUG -DHDF ############################################################################# ## Programs to build ## ############################################################################# # These are the Fortran test programs to build. EXAMPLE_PROG=SD_create_sds SD_write_to_sds SD_write_slab SD_alter_sds_values SD_unlimited_sds \ SD_mv_sds_to_external SD_read_from_sds SD_read_subsets SD_get_info \ SD_find_sds_by_name SD_set_get_dim_info SD_dimscale_vs_sds SD_set_attr \ SD_get_attr SD_compress_sds SD_chunking_example TEST_PROG = $(EXAMPLE_PROG) # These are the Fortran example files to be installed INSTALL_FILES=SD_create_sds.f SD_write_to_sds.f SD_write_slab.f SD_alter_sds_values.f \ SD_unlimited_sds.f SD_mv_sds_to_external.f SD_read_from_sds.f SD_read_subsets.f \ SD_get_info.f SD_find_sds_by_name.f SD_set_get_dim_info.f SD_dimscale_vs_sds.f \ SD_set_attr.f SD_get_attr.f SD_compress_sds.f SD_chunking_example.f # Where to install example files EXAMPLEDIR=$(prefix)/examples/fortran # How to build Fortran programs using h4fc $(EXTRA_PROG): $(H4FC) $(H4FC) $(H4FCFLAGS) $(FCFLAGS) -o $@ $(srcdir)/$@.f; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal Fortran compiler, not h4fc. SD_create_sds: $(srcdir)/SD_create_sds.f SD_write_to_sds: $(srcdir)/SD_write_to_sds.f SD_write_slab: $(srcdir)/SD_write_slab.f SD_alter_sds_values: $(srcdir)/SD_alter_sds_values.f SD_unlimited_sds: $(srcdir)/SD_unlimited_sds.f SD_mv_sds_to_external: $(srcdir)/SD_mv_sds_to_external.f SD_read_from_sds: $(srcdir)/SD_read_from_sds.f SD_read_subsets: $(srcdir)/SD_read_subsets.f SD_get_info: $(srcdir)/SD_get_info.f SD_find_sds_by_name: $(srcdir)/SD_find_sds_by_name.f SD_set_get_dim_info: $(srcdir)/SD_set_get_dim_info.f SD_dimscale_vs_sds: $(srcdir)/SD_dimscale_vs_sds.f SD_set_attr: $(srcdir)/SD_set_attr.f SD_get_attr: $(srcdir)/SD_get_attr.f SD_compress_sds: $(srcdir)/SD_compress_sds.f SD_chunking_example: $(srcdir)/SD_chunking_example.f CHECK_CLEANFILES += ExternalSDS DISTCLEANFILES = *.chkexe *.chklog if BUILD_SHARED_SZIP_CONDITIONAL LD_LIBRARY_PATH=$(LL_PATH) endif include $(top_srcdir)/config/examples.am include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_write_slab.f0000644000000000000000000000534512421456623020362 0ustar program write_slab implicit none C C Parameter declaration. C character*9 FILE_NAME character*13 SDS_NAME integer X_LENGTH, Y_LENGTH, Z_LENGTH, RANK parameter (FILE_NAME = 'SLABS.hdf', + SDS_NAME = 'FilledBySlabs', + X_LENGTH = 4, + Y_LENGTH = 5, + Z_LENGTH = 6, + RANK = 3) integer DFACC_CREATE, DFNT_INT32 parameter (DFACC_CREATE = 4, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfcreate, sfwdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id integer dim_sizes(3), start(3), edges(3), stride(3) integer i, j, k, status integer data(X_LENGTH, Y_LENGTH, Z_LENGTH) integer xz_data(X_LENGTH, Z_LENGTH) C C**** End of variable declaration ************************************ C C C Data initialization. C do 30 k = 1, Z_LENGTH do 20 j = 1, Y_LENGTH do 10 i = 1, X_LENGTH data(i, j, k) = i + j + k 10 continue 20 continue 30 continue C C Create the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_CREATE) C C Define dimensions of the array to be created. C dim_sizes(1) = X_LENGTH dim_sizes(2) = Y_LENGTH dim_sizes(3) = Z_LENGTH C C Create the data set with the name defined in SDS_NAME. C sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT32, RANK, . dim_sizes) C C Set the parameters start and edges to write C a 4x6 element slab of data to the data set; C note that edges(2) is set to 1 to define a 2 dimensional slab C parallel to the XZ plane; C start(2) (slab position in the array) is initialized inside the C for loop. C edges(1) = X_LENGTH edges(2) = 1 edges(3) = Z_LENGTH start(1) = 0 start(3) = 0 stride(1) = 1 stride(2) = 1 stride(3) = 1 do 60 j = 1, Y_LENGTH start(2) = j - 1 C C Initialize the buffer xz_data (data slab). C do 50 k = 1, Z_LENGTH do 40 i = 1, X_LENGTH xz_data(i, k) = data(i, j, k) 40 continue 50 continue C C Write the data slab into SDS array defined in SDS_NAME. C Note that the elements of array stride are set to 1 to C specify that the consecutive slabs in the Y direction are written. C status = sfwdata(sds_id, start, stride, edges, xz_data) 60 continue C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_mv_sds_to_external.f0000644000000000000000000000233712421456623022124 0ustar program write_extfile implicit none C C Parameter declaration. C character*7 FILE_NAME character*11 EXT_FILE_NAME integer OFFSET integer DFACC_WRITE parameter (FILE_NAME = 'SDS.hdf', + EXT_FILE_NAME = 'ExternalSDS', + OFFSET = 24, + DFACC_WRITE = 2) C C Function declaration. C integer sfstart, sfselect, sfsextf, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index integer status C C**** End of variable declaration ************************************ C C C Open the HDF file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Select the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Create a file with the name EXT_FILE_NAME and move the data set C into it, starting at byte location OFFSET. C status = sfsextf(sds_id, EXT_FILE_NAME, OFFSET) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_compress_sds.f0000644000000000000000000000527212421456623020732 0ustar program write_compressed_data implicit none C C Parameter declaration. C character*17 FILE_NAME character*7 SDS_NAME integer X_LENGTH, Y_LENGTH, RANK parameter (FILE_NAME = 'SDScompressed.hdf', + SDS_NAME = 'SDSgzip', + X_LENGTH = 5, + Y_LENGTH = 16, + RANK = 2) integer DFACC_CREATE, DFNT_INT32 parameter (DFACC_CREATE = 4, + DFNT_INT32 = 24) integer COMP_CODE_DEFLATE parameter (COMP_CODE_DEFLATE = 4) integer DEFLATE_LEVEL parameter (DEFLATE_LEVEL = 6) C To use Skipping Huffman compression method, declare C integer COMP_CODE_SKPHUFF C parameter(COMP_CODE_SKPHUFF = 3) C To use RLE compression method, declare C integer COMP_CODE_RLE C parameter(COMP_CODE_RLE = 1) C C C Function declaration. C integer sfstart, sfcreate, sfwdata, sfendacc, sfend, + sfscompress C C**** Variable declaration ******************************************* C integer sd_id, sds_id, status integer start(2), edges(2), stride(2), dim_sizes(2) integer comp_type integer comp_prm(1) integer data(X_LENGTH, Y_LENGTH) integer i, j C C**** End of variable declaration ************************************ C C C Buffer array data and define array dimensions. C do 20 j = 1, Y_LENGTH do 10 i = 1, X_LENGTH data(i, j) = i + j - 1 10 continue 20 continue dim_sizes(1) = X_LENGTH dim_sizes(2) = Y_LENGTH C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_CREATE) C C Create the data set with the name SDS_NAME. C sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT32, RANK, dim_sizes) C C Initialize compression parameter (deflate level) C and call sfscompress function C For Skipping Huffman compression, comp_prm(1) should be set C to skipping sizes value (skp_size). C comp_type = COMP_CODE_DEFLATE comp_prm(1) = deflate_level status = sfscompress(sds_id, comp_type, comp_prm(1)) C C Define the location and size of the data that will be written to C the data set. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Write the stored data to the data set. C status = sfwdata(sds_id, start, stride, edges, data) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_chunking_example.f0000644000000000000000000001635712421456623021555 0ustar program chunk_examples implicit none C C Parameter declaration. C character*14 FILE_NAME character*11 SDS_NAME integer RANK parameter (FILE_NAME = 'SDSchunked.hdf', + SDS_NAME = 'ChunkedData', + RANK = 2) integer DFACC_CREATE, DFACC_READ, DFNT_INT16 parameter (DFACC_CREATE = 4, + DFACC_READ = 1, + DFNT_INT16 = 22) integer COMP_CODE_NONE parameter (COMP_CODE_NONE = 0) C C This example does not use compression. C C To use RLE compression, declare: C C integer COMP_CODE_RLE C parameter (COMP_CODE_RLE = 1) C C To use NBIT compression, declare: C C integer COMP_CODE_NBIT C parameter (COMP_CODE_NBIT = 2) C C To use Skipping Huffman compression, declare: C C integer COMP_CODE_SKPHUFF C parameter (COMP_CODE_SKPHUFF = 3) C C To use GZIP compression, declare: C C integer COMP_CODE_DEFLATE C parameter (COMP_CODE_DEFLATE = 4) C C C Function declaration. C integer sfstart, sfcreate, sfendacc, sfend, + sfselect, sfsfill, sfschnk, sfwchnk, + sfrchnk, sfgichnk, sfwdata, sfrdata, + sfscchnk C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer dim_sizes(2), origin(2) integer fill_value, maxcache, new_maxcache, flag integer start(2), edges(2), stride(2) integer*2 all_data(4,9) integer*2 row(3), column(2) integer*2 chunk_out(2,3) integer*2 chunk1(2,3), + chunk2(2,3), + chunk3(2,3), + chunk6(2,3) integer i, j C C Compression flag and parameters. C integer comp_type, comp_flag, comp_prm(4) C C Chunk's dimensions. C integer dim_length(2), dim_length_out(2) C C Initialize four chunks C data chunk1 /6*1/ data chunk2 /6*2/ data chunk3 /6*3/ data chunk6 /6*6/ C C Initialize row and column arrays. C data row /3*4/ data column /2*5/ C C**** End of variable declaration ************************************ C C C Define chunk's dimensions. C dim_length(1) = 2 dim_length(2) = 3 C C Create the file and initialize SD interface. C sd_id = sfstart(FILE_NAME, DFACC_CREATE) C C Create 4x9 SDS C dim_sizes(1) = 4 dim_sizes(2) = 9 sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT16, + RANK, dim_sizes) C C Fill SDS array with the fill value. C fill_value = 0 status = sfsfill( sds_id, fill_value) C C Create chunked SDS. C C In this example we do not use compression. C C To use RLE compression, initialize comp_type parameter C before the call to sfschnk function. C comp_type = COMP_CODE_RLE C C To use NBIT, Skipping Huffman, or GZIP compression, C initialize comp_prm array and comp type parameter C before call to sfschnk function C C NBIT: C comp_prm(1) = value_of(sign_ext) C comp_prm(2) = value_of(fill_one) C comp_prm(3) = value_of(start_bit) C comp_prm(4) = value_of(bit_len) C comp_type = COMP_CODE_NBIT C C Skipping Huffman: C comp_prm(1) = value_of(skp_size) C comp_type = COMP_CODE_SKPHUFF C C GZIP: C comp_prm(1) = value_of(deflate_level) C comp_type = COMP_CODE_DEFLATE C C comp_type = COMP_CODE_NONE status = sfschnk(sds_id, dim_length, comp_type, comp_prm) C C Set chunk cache to hold maximum 2 chunks. C flag = 0 maxcache = 2 new_maxcache = sfscchnk(sds_id, maxcache, flag) C C Write chunks using SDwritechunk function. C Chunks can be written in any order. C C Write chunk with the coordinates (1,1). C origin(1) = 1 origin(2) = 1 status = sfwchnk(sds_id, origin, chunk1) C C Write chunk with the coordinates (1,2). C origin(1) = 1 origin(2) = 2 status = sfwchnk(sds_id, origin, chunk3) C C Write chunk with the coordinates (2,1). C origin(1) = 2 origin(2) = 1 status = sfwchnk(sds_id, origin, chunk2) C C Write chunk with the coordinates (2,3). C origin(1) = 2 origin(2) = 3 status = sfwchnk(sds_id, origin, chunk6) C C Fill second row in the chunk with the coordinates (2,2). C start(1) = 3 start(2) = 3 edges(1) = 1 edges(2) = 3 stride(1) = 1 stride(2) = 1 status = sfwdata(sds_id, start, stride, edges, row) C C Fill second column in the chunk with the coordinates (1,3). C start(1) = 0 start(2) = 7 edges(1) = 2 edges(2) = 1 stride(1) = 1 stride(2) = 1 status = sfwdata(sds_id, start, stride, edges, column) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) C C Reopen the file and access the first data set. C sd_id = sfstart(FILE_NAME, DFACC_READ) sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Get information about the SDS. C status = sfgichnk(sds_id, dim_length_out, comp_flag) if (comp_flag .eq. 0) then write(*,*) 'SDS is chunked' endif if (comp_flag .eq. 1) then write(*,*) 'SDS is chunked and compressed' endif if (comp_flag .eq. 2) then write(*,*) 'SDS is chunked and NBIT compressed' endif write(*,*) 'Chunks dimensions are ', dim_length_out(1), + ' x' ,dim_length_out(2) C C Read the whole SDS using sfrdata function and display C what we have read. The following information will be displayed: C C C SDS is chunked C Chunks dimensions are 2 x 3 C C 1 1 1 3 3 3 0 5 0 C 1 1 1 3 3 3 0 5 0 C 2 2 2 0 0 0 6 6 6 C 2 2 2 4 4 4 6 6 6 C start(1) = 0 start(2) = 0 edges(1) = 4 edges(2) = 9 stride(1) = 1 stride(2) = 1 status = sfrdata(sds_id, start, stride, edges, all_data) C C Display the SDS. C write(*,*) do 10 i = 1,4 write(*,*) (all_data(i,j), j=1,9) 10 continue C C Read chunks with the coordinates (2,2) and (1,3) and display. C The following information will be shown: C C Chunk (2,2) C C 0 0 0 C 4 4 4 C C Chunk (1,3) C C 0 5 0 C 0 5 0 C origin(1) = 2 origin(2) = 2 status = sfrchnk(sds_id, origin, chunk_out) write(*,*) write(*,*) 'Chunk (2,2)' write(*,*) do 20 i = 1,2 write(*,*) (chunk_out(i,j), j=1,3) 20 continue C origin(1) = 1 origin(2) = 3 status = sfrchnk(sds_id, origin, chunk_out) write(*,*) write(*,*) 'Chunk (1,3)' write(*,*) do 30 i = 1,2 write(*,*) (chunk_out(i,j), j=1,3) 30 continue C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_alter_sds_values.f0000644000000000000000000000301212421456623021553 0ustar program alter_data implicit none C C Parameter declaration. C character*7 FILE_NAME integer DFACC_WRITE parameter (FILE_NAME = 'SDS.hdf', + DFACC_WRITE = 2) C C Function declaration. C integer sfstart, sfselect, sfwdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index integer start(2), edges(2), stride(2) integer status integer new_data(2) C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Select the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Initialize the start, edge, and stride parameters to write C two elements into 2nd row, 10th column and 11th column places. C C Specify 2nd row. C start(1) = 1 C C Specify 10th column. C start(2) = 9 edges(1) = 1 C C Two elements are written along 2nd row. C edges(2) = 2 stride(1) = 1 stride(2) = 1 C C Initialize the new values to be written. C new_data(1) = 1000 new_data(2) = 1000 C C Write the new values. C status = sfwdata(sds_id, start, stride, edges, new_data) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_create_sds.f0000644000000000000000000000271412421456623020340 0ustar program create_SDS implicit none C C Parameter declaration. C character*7 FILE_NAME character*11 SDS_NAME integer X_LENGTH, Y_LENGTH, RANK parameter (FILE_NAME = 'SDS.hdf', + SDS_NAME = 'SDStemplate', + X_LENGTH = 5, + Y_LENGTH = 16, + RANK = 2) integer DFACC_CREATE, DFNT_INT32 parameter (DFACC_CREATE = 4, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfcreate, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, dim_sizes(2) integer status C C**** End of variable declaration ************************************ C C C Create the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_CREATE) C C Define dimensions of the array to be created. C dim_sizes(1) = X_LENGTH dim_sizes(2) = Y_LENGTH C C Create the array with the name defined in SDS_NAME. C Note that DFNT_INT32 indicates that the SDS data is of type C integer. Refer to Tables 2E and 2I for the definition of other types. C sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT32, RANK, . dim_sizes) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_set_get_dim_info.f0000644000000000000000000001136212421456623021521 0ustar program dimension_info implicit none C C Parameter declaration. C character*7 FILE_NAME character*11 SDS_NAME character*6 DIM_NAME_X character*6 DIM_NAME_Y integer X_LENGTH, Y_LENGTH, RANK parameter (FILE_NAME = 'SDS.hdf', + SDS_NAME = 'SDStemplate', + DIM_NAME_X = 'X_Axis', + DIM_NAME_Y = 'Y_Axis', + X_LENGTH = 5, + Y_LENGTH = 16, + RANK = 2) integer DFACC_WRITE, DFNT_INT16, DFNT_FLOAT64 parameter (DFACC_WRITE = 2, + DFNT_INT16 = 22, + DFNT_FLOAT64 = 6) C C Function declaration. C integer sfstart, sfn2index, sfdimid, sfgdinfo integer sfsdscale, sfgdscale, sfsdmname, sfendacc integer sfend, sfselect C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer dim_index, dim_id integer n_values, n_attrs, data_type integer*2 data_X(X_LENGTH) integer*2 data_X_out(X_LENGTH) real*8 data_Y(Y_LENGTH) real*8 data_Y_out(Y_LENGTH) character*6 dim_name integer i C C**** End of variable declaration ************************************ C C C Initialize dimension scales. C do 10 i = 1, X_LENGTH data_X(i) = i - 1 10 continue do 20 i = 1, Y_LENGTH data_Y(i) = 0.1 * (i - 1) 20 continue C C Open the file and initialize SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Get the index of the data set with the name specified in SDS_NAME. C sds_index = sfn2index(sd_id, SDS_NAME) C C Select the data set corresponding to the returned index. C sds_id = sfselect(sd_id, sds_index) C C For each dimension of the data set, C get its dimension identifier and set dimension name C and dimension scales. Note that data type of dimension scale can C be different between dimensions and can be different from SDS data type. C do 30 dim_index = 0, RANK - 1 C C Select the dimension at position dim_index. C dim_id = sfdimid(sds_id, dim_index) C C Assign name and dimension scale to the dimension. C if (dim_index .eq. 0) then status = sfsdmname(dim_id, DIM_NAME_X) n_values = X_LENGTH status = sfsdscale(dim_id, n_values, DFNT_INT16, data_X) end if if (dim_index .eq. 1) then status = sfsdmname(dim_id, DIM_NAME_Y) n_values = Y_LENGTH status = sfsdscale(dim_id, n_values, DFNT_FLOAT64, data_Y) end if C C Get and display information about dimension and its scale values. C The following information is displayed: C C Information about 1 dimension : C dimension name is X_Axis C number of scale values is 5 C dimension scale data type is int16 C C number of dimension attributes is 0 C Scale values are: C 0 1 2 3 4 C C Information about 2 dimension : C dimension name is Y_Axis C number of scale values is 16 C dimension scale data type is float64 C number of dimension attributes is 0 C C Scale values are: C 0.000 0.100 0.200 0.300 C 0.400 0.500 0.600 0.700 C 0.800 0.900 1.000 1.100 C 1.200 1.300 1.400 1.500 C status = sfgdinfo(dim_id, dim_name, n_values, data_type, n_attrs) C write(*,*) "Information about ", dim_index+1," dimension :" write(*,*) "dimension name is ", dim_name write(*,*) "number of scale values is", n_values if (data_type. eq. 22) then write(*,*) "dimension scale data type is int16" endif if (data_type. eq. 6) then write(*,*) "dimension scale data type is float64" endif write(*,*) "number of dimension attributes is ", n_attrs C write(*,*) "Scale values are:" if (dim_index .eq. 0) then status = sfgdscale(dim_id, data_X_out) write(*,*) (data_X_out(i), i= 1, X_LENGTH) endif if (dim_index .eq. 1) then status = sfgdscale(dim_id, data_Y_out) write(*,100) (data_Y_out(i), i= 1, Y_LENGTH) 100 format(4(1x,f10.3)/) endif 30 continue C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_get_info.f0000644000000000000000000000416712421456623020022 0ustar program get_data_set_info implicit none C C Parameter declaration. C character*7 FILE_NAME parameter (FILE_NAME = 'SDS.hdf') integer DFACC_READ, DFNT_INT32 parameter (DFACC_READ = 1, + DFNT_INT32 = 24) integer MAX_NC_NAME, MAX_VAR_DIMS parameter (MAX_NC_NAME = 256, + MAX_VAR_DIMS = 32) C C Function declaration. C integer sfstart, sffinfo, sfselect, sfginfo integer sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id integer n_datasets, n_file_attrs, index integer status, n_attrs integer rank, data_type integer dim_sizes(MAX_VAR_DIMS) character name *(MAX_NC_NAME) integer i C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Determine the number of data sets in the file and the number of C file attributes. C status = sffinfo(sd_id, n_datasets, n_file_attrs) C C Access every data set in the file and print its name, rank, C dimension sizes, data type, and number of attributes. C The following information should be displayed: C C name = SDStemplate C rank = 2 C dimension sizes are : 5 16 C data type is 24 C number of attributes is 0 C do 10 index = 0, n_datasets - 1 sds_id = sfselect(sd_id, index) status = sfginfo(sds_id, name, rank, dim_sizes, data_type, . n_attrs) write(*,*) "name = ", name(1:15) write(*,*) "rank = ", rank write(*,*) "dimension sizes are : ", (dim_sizes(i), i=1, rank) write(*,*) "data type is ", data_type write(*,*) "number of attributes is ", n_attrs C C Terminate access to the current data set. C status = sfendacc(sds_id) 10 continue C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_read_from_sds.f0000644000000000000000000000333412421456623021032 0ustar program read_data implicit none C C Parameter declaration. C character*7 FILE_NAME integer X_LENGTH, Y_LENGTH parameter (FILE_NAME = 'SDS.hdf', + X_LENGTH = 5, + Y_LENGTH = 16) integer DFACC_READ, DFNT_INT32 parameter (DFACC_READ = 1, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfselect, sfrdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer start(2), edges(2), stride(2) integer data(X_LENGTH, Y_LENGTH) integer j C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Select the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Set elements of the array start to 0, elements of the array edges to C SDS dimensions, and elements of the array stride to 1 to read the C entire data. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Read entire data into data array. Note that sfrdata is used C to read the numeric data. C status = sfrdata(sds_id, start, stride, edges, data) C C Print 10th column; the following numbers are displayed: C C 10 1000 12 13 14 C write(*,*) (data(j,10), j = 1, X_LENGTH) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_read_subsets.f0000644000000000000000000000625212421456623020710 0ustar program read_subsets implicit none C C Parameter declaration. C character*7 FILE_NAME parameter (FILE_NAME = 'SDS.hdf') integer DFACC_READ, DFNT_INT32 parameter (DFACC_READ = 1, + DFNT_INT32 = 24) integer SUB1_LENGTH, SUB2_LENGTH, SUB3_LENGTH1, + SUB3_LENGTH2 parameter (SUB1_LENGTH = 5, + SUB2_LENGTH = 4, + SUB3_LENGTH1 = 2, + SUB3_LENGTH2 = 3) C C Function declaration. C integer sfstart, sfselect, sfrdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer start(2), edges(2), stride(2) integer sub1_data(SUB1_LENGTH) integer sub2_data(SUB2_LENGTH) integer sub3_data(SUB3_LENGTH1,SUB3_LENGTH2) integer i, j C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Select the first data set. C sds_index = 0 sds_id =sfselect(sd_id, sds_index) C C Reading the first subset. C C Set elements of start, stride, and edges arrays to read C every 3d element in in the 2nd row starting in the 4th column. C start(1) = 1 start(2) = 3 edges(1) = 1 edges(2) = SUB1_LENGTH stride(1) = 1 stride(2) = 3 C C Read the data from sub1_data array. C status = sfrdata(sds_id, start, stride, edges, sub1_data) C C Print what we have just read, the following numbers should be displayed: C C 5 8 1000 14 17 C write(*,*) (sub1_data(j), j = 1, SUB1_LENGTH) C C Reading the second subset. C C Set elements of start, stride, and edges arrays to read C first 4 elements of 10th column. C start(1) = 0 start(2) = 9 edges(1) = SUB2_LENGTH edges(2) = 1 stride(1) = 1 stride(2) = 1 C C Read the data into sub2_data array. C status = sfrdata(sds_id, start, stride, edges, sub2_data) C C Print what we have just read; the following numbers should be displayed: C C 10 1000 12 13 C write(*,*) (sub2_data(j), j = 1, SUB2_LENGTH) C C Reading the third subset. C C Set elements of start, stride and edges arrays to read C every 6th element in the row and every 4th element in the column C starting at 1st row, 3rd column. C start(1) = 0 start(2) = 2 edges(1) = SUB3_LENGTH1 edges(2) = SUB3_LENGTH2 stride(1) = 4 stride(2) = 6 C C Read the data from the file into sub3_data array. C status = sfrdata(sds_id, start, stride, edges, sub3_data) C C Print what we have just read; the following numbers should be displayed: C C 3 9 15 C 7 13 19 C do 50 i = 1, SUB3_LENGTH1 write(*,*) (sub3_data(i,j), j = 1, SUB3_LENGTH2) 50 continue C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_write_to_sds.f0000644000000000000000000000366512421456623020737 0ustar program write_data implicit none C C Parameter declaration. C character*7 FILE_NAME character*11 SDS_NAME integer X_LENGTH, Y_LENGTH, RANK parameter (FILE_NAME = 'SDS.hdf', + SDS_NAME = 'SDStemplate', + X_LENGTH = 5, + Y_LENGTH = 16, + RANK = 2) integer DFACC_WRITE, DFNT_INT32 parameter (DFACC_WRITE = 2, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfselect, sfwdata, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer start(2), edges(2), stride(2) integer i, j integer data(X_LENGTH, Y_LENGTH) C C**** End of variable declaration ************************************ C C C Data set data initialization. C do 20 j = 1, Y_LENGTH do 10 i = 1, X_LENGTH data(i, j) = i + j - 1 10 continue 20 continue C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Attach to the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Define the location and size of the data to be written C to the data set. Note that setting values of the array stride to 1 C specifies the contiguous writing of data. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Write the stored data to the data set named in SDS_NAME. C Note that the routine sfwdata is used instead of sfwcdata C to write the numeric data. C status = sfwdata(sds_id, start, stride, edges, data) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_dimscale_vs_sds.f0000644000000000000000000000375112421456623021370 0ustar program sds_vrs_coordvar implicit none C C Parameter declaration. C character*7 FILE_NAME parameter (FILE_NAME = 'SDS.hdf') integer DFACC_READ, DFNT_INT32 parameter (DFACC_READ = 1, + DFNT_INT32 = 24) integer MAX_VAR_DIMS parameter (MAX_VAR_DIMS = 32) C C Function declaration. C integer sfstart, sfselect, sfiscvar, sffinfo, sfginfo integer sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer rank, data_type integer n_datasets, n_file_attrs, n_attrs integer dim_sizes(MAX_VAR_DIMS) character*256 sds_name C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Obtain information about the file. C status = sffinfo(sd_id, n_datasets, n_file_attrs) C C Get information about each SDS in the file. C Check whether it is a coordinate variable, then display retrieved C information. C Output displayed: C C SDS array with the name SDStemplate C Coordinate variable with the name X_Axis C Coordinate variable with the name Y_Axis C do 10 sds_index = 0, n_datasets-1 sds_id = sfselect(sd_id, sds_index) status = sfginfo(sds_id, sds_name, rank, dim_sizes, + data_type, n_attrs) status = sfiscvar(sds_id) if (status .eq. 1) then write(*,*) "Coordinate variable with the name ", + sds_name(1:6) else write(*,*) "SDS array with the name ", + sds_name(1:11) endif C C Terminate access to the data set. C status = sfendacc(sds_id) 10 continue C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_unlimited_sds.f0000644000000000000000000000603312421456623021065 0ustar program append_sds implicit none C C Parameter declaration. C character*16 FILE_NAME character*14 SDS_NAME integer X_LENGTH, Y_LENGTH, RANK parameter (FILE_NAME = 'SDSUNLIMITED.hdf', + SDS_NAME = 'AppendableData', + X_LENGTH = 10, + Y_LENGTH = 10, + RANK = 2) integer DFACC_CREATE, DFACC_WRITE, SD_UNLIMITED, + DFNT_INT32 parameter (DFACC_CREATE = 4, + DFACC_WRITE = 2, + SD_UNLIMITED = 0, + DFNT_INT32 = 24) C C Function declaration. C integer sfstart, sfcreate, sfwdata, sfselect integer sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer dim_sizes(2) integer start(2), edges(2), stride(2) integer i, j integer data (X_LENGTH, Y_LENGTH), append_data(X_LENGTH) C C**** End of variable declaration ************************************ C C C Data initialization. C do 20 j = 1, Y_LENGTH do 10 i = 1, X_LENGTH data(i, j) = i + j 10 continue 20 continue C C Create the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_CREATE) C C Define dimensions of the array. Make the C last dimension appendable by defining its length as unlimited. C dim_sizes(1) = X_LENGTH dim_sizes(2) = SD_UNLIMITED C Create the array data set. sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT32, RANK, . dim_sizes) C C Define the location and the size of the data to be written C to the data set. Note that the elements of array stride are C set to 1 for contiguous writing. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Write the data. C status = sfwdata(sds_id, start, stride, edges, data) C C Terminate access to the data set, terminate access C to the SD interface, and close the file. C status = sfendacc(sds_id) status = sfend(sd_id) C C Store the array values to be appended to the data set. C do 30 i = 1, X_LENGTH append_data(i) = 1000 + i - 1 30 continue C C Reopen the file and initialize the SD. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Select the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Define the location of the append to start at the 11th C column of the 1st row and to stop at the end of the 10th row. C start(1) = 0 start(2) = Y_LENGTH edges(1) = X_LENGTH edges(2) = 1 C C Append the data to the data set. C status = sfwdata(sds_id, start, stride, edges, append_data) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_set_attr.f0000644000000000000000000000441112421456623020045 0ustar program set_attribs implicit none C C Parameter declaration. C character*7 FILE_NAME character*13 FILE_ATTR_NAME character*11 SDS_ATTR_NAME character*10 DIM_ATTR_NAME parameter (FILE_NAME = 'SDS.hdf', + FILE_ATTR_NAME = 'File_contents', + SDS_ATTR_NAME = 'Valid_range', + DIM_ATTR_NAME = 'Dim_metric') integer DFACC_WRITE, DFNT_CHAR8, DFNT_FLOAT32 parameter (DFACC_WRITE = 2, + DFNT_CHAR8 = 4, + DFNT_FLOAT32 = 5) C C Function declaration. C integer sfstart, sfscatt, sfsnatt, sfselect, sfdimid integer sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, sds_index, status integer dim_id, dim_index integer n_values character*16 file_values real sds_values(2) character*7 dim_values file_values = 'Storm_track_data' sds_values(1) = 2. sds_values(2) = 10. dim_values = 'Seconds' C C**** End of variable declaration ************************************ C C C Open the file and initialize the SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Set an attribute that describes the file contents. C n_values = 16 status = sfscatt(sd_id, FILE_ATTR_NAME, DFNT_CHAR8, n_values, + file_values) C C Select the first data set. C sds_index = 0 sds_id = sfselect(sd_id, sds_index) C C Assign attribute to the first SDS. Note that attribute values C may have different data type than SDS data. C n_values = 2 status = sfsnatt(sds_id, SDS_ATTR_NAME, DFNT_FLOAT32, n_values, + sds_values) C C Get the identifier for the first dimension. C dim_index = 0 dim_id = sfdimid(sds_id, dim_index) C C Set an attribute to the dimension that specifies the C dimension metric. C n_values = 7 status = sfscatt(dim_id, DIM_ATTR_NAME, DFNT_CHAR8, n_values, + dim_values) C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) end libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/CMakeTests.cmake0000644000000000000000000000273412421456623020476 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME MFHDF_FORTRAN_EXAMPLES-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove SDS.hdf SDSchunked.hdf SDScompressed.hdf SDSUNLIMITED.hdf SLABS.hdf ) SET_TESTS_PROPERTIES (MFHDF_FORTRAN_EXAMPLES-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) SET (last_test "MFHDF_FORTRAN_EXAMPLES-clearall-objects") FOREACH (example ${examples}) ADD_TEST (NAME f_exmftest_${example} COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_exmftest_${example} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_exmftest_${example} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "f_exmftest_${example}") ENDFOREACH (example ${examples}) FOREACH (example ${skip_examples}) ADD_TEST (NAME f_exmftest_${example} COMMAND ${CMAKE_COMMAND} -E echo "SKIP f_exmftest_${example}") ENDFOREACH (example ${skip_examples}) libhdf4-4.2.10/HDF_ALT/mfhdf/fortran/examples/SD_get_attr.f0000644000000000000000000000665712421456623020047 0ustar program attr_info implicit none C C Parameter declaration. C character*7 FILE_NAME character*13 FILE_ATTR_NAME character*11 SDS_ATTR_NAME character*10 DIM_ATTR_NAME parameter (FILE_NAME = 'SDS.hdf', + FILE_ATTR_NAME = 'File_contents', + SDS_ATTR_NAME = 'Valid_range', + DIM_ATTR_NAME = 'Dim_metric') integer DFACC_READ, DFNT_FLOAT32 parameter (DFACC_READ = 1, + DFNT_FLOAT32 = 5) C C Function declaration. C integer sfstart, sffattr, sfgainfo, sfrattr, sfselect integer sfdimid, sfendacc, sfend C C**** Variable declaration ******************************************* C integer sd_id, sds_id, dim_id integer attr_index, data_type, n_values, status real sds_data(2) character*20 attr_name character*16 file_data character*7 dim_data integer i C C**** End of variable declaration ************************************ C C C Open the file and initialize SD interface. C sd_id = sfstart(FILE_NAME, DFACC_READ) C C Find the file attribute defined by FILE_ATTR_NAME. C Note that the first parameter is an SD interface identifier. C attr_index = sffattr(sd_id, FILE_ATTR_NAME) C C Get information about the file attribute. C status = sfgainfo(sd_id, attr_index, attr_name, data_type, + n_values) C C Read the file attribute data. C status = sfrattr(sd_id, attr_index, file_data) C C Print file attribute value. C write(*,*) "File attribute value is : ", file_data C C Select the first data set. C sds_id = sfselect(sd_id, 0) C C Find the data set attribute defined by SDS_ATTR_NAME. C Note that the first parameter is a data set identifier. C attr_index = sffattr(sds_id, SDS_ATTR_NAME) C C Get information about the data set attribute. C status = sfgainfo(sds_id, attr_index, attr_name, data_type, + n_values) C C Read the SDS attribute data. C status = sfrattr(sds_id, attr_index, sds_data) C C Print SDS attribute data type and values. C if (data_type .eq. DFNT_FLOAT32) then write(*,*) "SDS attribute data type is : float32 " endif write(*,*) "SDS attribute values are : " write(*,*) (sds_data(i), i=1, n_values) C C Get the identifier for the first dimension of the SDS. C dim_id = sfdimid(sds_id, 0) C C Find the dimensional attribute defined by DIM_ATTR_NAME. C Note that the first parameter is a dimension identifier. C attr_index = sffattr(dim_id, DIM_ATTR_NAME) C C Get information about dimension attribute. C status = sfgainfo(dim_id, attr_index, attr_name, data_type, + n_values) C C Read the dimension attribute data. C status = sfrattr(dim_id, attr_index, dim_data) C C Print dimension attribute value. C write(*,*) "Dimensional attribute value is : ", dim_data C C Terminate access to the data set. C status = sfendacc(sds_id) C C Terminate access to the SD interface and close the file. C status = sfend(sd_id) C C Output of this program is : C C C File attribute value is : Storm_track_data C SDS attribute data type is : float32 C SDS attribute values are : C 2.00000 10.00000 C Dimensional attribute value is : Seconds C end libhdf4-4.2.10/HDF_ALT/mfhdf/test/0000755000000000000000000000000012421456623013151 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/test/tunlim.c0000644000000000000000000006333012421456623014632 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tunlim.c - tests reading/writing variables with unlimited dimension using * SD API. The tests here are added to test the behavior of the * library when dealing with unlimited dimensions with nc API. The * tests show that the data is correctly written when: * + data added immediately after last record * + data added skipping one or more records * + data overridden existing data * + data read pass the end of that variable but not the max in * all the variables in the file * * Structure of the file: * test_unlim - test driver * test_1dim_singlevar - tests on a single variable with only 1 dimension * test_1dim_multivars - tests on multiple variables with only 1 dimension * test_multidim_singlevar - tests on single variable with multiple * dimensions * test_1dim_multivars_addon - tests multiple 1-dim variables that were * added on to existing file * * BMR - Dec 30, 2008 ****************************************************************************/ #include "mfhdf.h" #include "hdftest.h" #define DIM0 20 /******************************************************************** Name: verify_info_data() - utility function that verifies the unlimited dimension's size and the variable's data. Description: This utility function carries out the following tasks: - SDgetinfo to get the size of the unlimited dimension - SDreaddata to read the variable up to the unlimited dimension's size, that is the max number of records in the file - HDmemcmp to verify that the read buffer is as expected It is used by only test_1dim_singlevar, test_1dim_multivars, and test_1dim_multivars_addon because it only handles 1-dim dataset and number type int16. It can be revised for multi-dim datasets or any number types, if desired. Return value: The number of errors occurred in this routine. BMR - Dec 30, 2008 Note: This function will be moved to tutils.c; must decide what to do about the data type and sizes, so that the approach will be consistent within the test suite. Right now, test tncvargetfill.c is using it from here. BMR - Sep 4, 2013 *********************************************************************/ int verify_info_data( int32 sds_id, int32 expected_dimsize, int16 *result) { int32 dimsizes[1]; /* dimension size buffer */ int32 start[1], /* where to start reading */ edges[1]; /* length of data to be read/written */ char info[40]; /* holds brief info where failure occurs */ int16 outdata[DIM0]; /* data read back */ char ds_name[20]; /* dataset name */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors */ /* Get information of the first dataset, and verify its dimension */ status = SDgetinfo(sds_id, ds_name, NULL, dimsizes, NULL, NULL); sprintf(info, "%s on <%s>", "SDgetinfo", ds_name); CHECK(status, FAIL, info); VERIFY(dimsizes[0], expected_dimsize, info); /* Read back data and verify */ start[0] = 0; edges[0] = dimsizes[0]; status = SDreaddata(sds_id, start, NULL, edges, (VOIDP) outdata); sprintf(info, "%s on <%s>", "SDreaddata", ds_name); CHECK(status, FAIL, info); /* Verify read data by comparing the output buffer against expected data */ status = HDmemcmp(outdata, result, edges[0] * SIZE_INT16); if (status != 0) fprintf(stderr,"%s: Read data doesn't match input\n"); /* Return the number of errors occurred here */ return(num_errs); } /******************************************************************** Name: test_1dim_singlevar() - tests on a single variable with only 1 dimension Description: The main contents include: - write 4 elements starting at index 0 - try reading 2 elements pass the end, should fail - append 2 elements starting at index 6, that is indices 4 and 5 will be written with fill value - append 3 elements immediately at the end of the data - overwrite indices 0 and 1 Return value: The number of errors occurred in this routine. BMR - Dec 30, 2008 *********************************************************************/ #define FILENAME1 "onedimonevar.nc" static int test_1dim_singlevar() { int32 fid; /* file id */ int32 dset1; /* dataset ids */ int32 dimsizes[1]; /* dimension size buffer */ int32 start[1], /* where to start writing */ edges[1]; /* length of data to be read/written */ int16 fillval = 99; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data; the first two elements will be changed to "1,2" later for the last test. */ int16 result[] = {300,301,302,303,99,99,30,31,801,802,803}; /* enter define mode */ fid = SDstart(FILENAME1, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Define dimension of the data set to be created. */ dimsizes[0] = SD_UNLIMITED; /* Create an array data sets. */ dset1 = SDcreate(fid, "Variable 1", DFNT_INT16, 1, dimsizes); CHECK(dset1, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset1, (VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); { /* Add data */ int16 data[] = {300, 301, 302, 303}; /* Write 4 elements starting at index 0 */ start[0] = 0; edges[0] = 4; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its data and dim size */ num_errs = num_errs + verify_info_data(dset1, 4, result); { /* Append data to dataset pass the end */ int16 data[] = {30, 31}; /* Write 2 values starting at index 6 */ start[0] = 6; edges[0] = 2; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ num_errs = num_errs + verify_info_data(dset1, 8, result); { /* Append data to dataset at the end */ int16 data[] = {801,802,803}; /* Write 3 values starting at index 8, at the end */ start[0] = 8; edges[0] = 3; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ num_errs = num_errs + verify_info_data(dset1, 11, result); { /* Override the first 2 elements */ int16 data[] = {1,2}; /* Write 2 values starting at 0 */ start[0] = 0; edges[0] = 2; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Modify the first 2 elements of the result buffer appropriately */ result[0] = 1; result[1] = 2; /* Get information of the dataset, and verify its dimension */ num_errs = num_errs + verify_info_data(dset1, 11, result); /* Close the dataset */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); return 0; } /******************************************************************** Name: test_1dim_multivars() - tests reading/writing on multiple variables, each has 1 dimension Description: The main contents include: - write 4 elements starting at index 0 to variable #1 - write 2 elements starting at index 0 to variable #2 - close file and reopen for read/write - append 2 elements to variable #1, immediately after last written record - write 3 elements to variable #2, starting at index 4 - append 3 elements to variable #1, skipping 5 records after the last written record Return value: The number of errors occurred in this routine. BMR - Dec 22, 2008 *********************************************************************/ #define FILENAME2 "onedimmultivars.nc" static int test_1dim_multivars() { int32 fid; /* file id */ int32 dset1, dset2; /* dataset ids */ int32 dimsizes[1]; /* dimension size buffer */ int32 start[1], /* where to start writing */ edges[1]; /* length of data to be read/written */ int16 outdata[DIM0]; /* data read back */ int16 fillval1 = -1; /* fill value for the variable */ int16 fillval2 = -2; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data */ int16 result1[] = {300,301,302,303,-1,-1,400,401,500,501,502}; int16 result2[] = {102,104,-2,-2,-2,-2,-2,-2,200,201,202,800,801,802,803}; /* enter define mode */ fid = SDstart(FILENAME2, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Define dimension of the data set to be created. */ dimsizes[0] = SD_UNLIMITED; /* Create two array data sets. */ dset1 = SDcreate(fid, "Variable 1", DFNT_INT16, 1, dimsizes); CHECK(dset1, FAIL, "SDcreate"); dset2 = SDcreate(fid, "Variable 2", DFNT_INT16, 1, dimsizes); CHECK(dset2, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset1, (VOIDP)&fillval1); CHECK(status, FAIL, "SDsetfillvalue"); status = SDsetfillvalue(dset2, (VOIDP)&fillval2); CHECK(status, FAIL, "SDsetfillvalue"); { /* Add data */ int16 data[] = {300, 301, 302, 303}; int16 data2[] = {102, 104}; /* Write 4 elements to first dataset starting at index 0 */ start[0] = 0; edges[0] = 4; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Write 2 elements to second dataset starting at index 0 */ edges[0] = 2; status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data2); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the first dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset1, 4, result1); /* Get information of the second dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset2, 2, result2); /* Try reading pass the end, should fail */ edges[0] = 6; status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata); VERIFY(status, FAIL, "SDreaddata"); { /* Append data to first dataset pass the end */ int16 data[] = {400, 401}; /* Write 2 values starting at index 6 */ start[0] = 6; edges[0] = 2; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the first dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset1, 8, result1); /* Get information of the second dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset2, 2, result2); { /* Append data to first dataset at the end */ int16 data[] = {500,501,502}; /* Write 3 values starting at index 8 */ start[0] = 8; edges[0] = 3; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the first dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset1, 11, result1); { /* Append data to second dataset pass its end */ int16 data[] = {200, 201, 202}; /* Write 2 values starting at index 8 */ start[0] = 8; edges[0] = 3; status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the second dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset2, 11, result2); { /* Append data to second dataset at its end */ int16 data[] = {800, 801, 802, 803}; /* Write 2 values starting at index 11 */ start[0] = 11; edges[0] = 4; status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the first dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset1, 11, result1); /* Get information of the second dataset, and verify its data and dimsize */ num_errs = num_errs + verify_info_data(dset2, 15, result2); /* Close the dataset */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); return 0; } /******************************************************************** Name: test_multidim_singlevar() - tests on a single variable with more than one dimension Description: The main contents include: - create a 3-D variable with 1 unlimited dimension and the others 3x2 - write 4x1x1 elements starting at index {0,0,0} - append 2x1x1 elements along the unlimited dimension starting at index 6, that is slabs at indices 4 and 5 will be written with fill value - append 1x3x2 elements immediately at the end of the data Return value: The number of errors occurred in this routine. BMR - Dec 22, 2008 *********************************************************************/ #define DIM00 10 #define DIM1 3 #define DIM2 2 #define FILENAME3 "multidimvar.nc" static int test_multidim_singlevar() { int32 fid; /* file id */ int32 dset1; /* dataset id */ int32 dset_index; /* dataset index */ int32 dimsizes[3]; /* dimension size buffer */ int32 start[3], /* where to start reading */ edges[3]; /* length of data to be read */ int16 outdata[DIM0][DIM1][DIM2]; /* data read back */ int16 fillval = -3; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data */ int16 result[DIM00][DIM1][DIM2] = {300,-3,-3,-3,-3,-3,301,-3,-3,-3,-3,-3,302,-3,-3,-3,-3,-3,303,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,400,-3,-3,-3,-3,-3,401,-3,-3,-3,-3,-3,800,801,802,803,804,805}; /* result data to compare against read data; the first two elements will be changed to "1,2" later for the last test. */ /* enter define mode */ fid = SDstart(FILENAME3, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Define dimension of the data set to be created. */ dimsizes[0] = SD_UNLIMITED; dimsizes[1] = DIM1; dimsizes[2] = DIM2; /* Create an array data sets. */ dset1 = SDcreate(fid, "Variable 3D", DFNT_INT16, 3, dimsizes); CHECK(dset1, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset1, (VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); { /* Add data */ int16 data[] = {300, 301, 302, 303}; int32 startw[3], edgesw[3]; /* Write 4 elements starting at index 0 */ startw[0] = startw[1] = startw[2] = 0; /* starting writing at {0,0,0} */ edgesw[0] = 4; /* 4x1x1 slab */ edgesw[1] = 1; edgesw[2] = 1; status = SDwritedata(dset1, startw, NULL, edgesw, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ status = SDgetinfo(dset1, NULL, NULL, dimsizes, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(dimsizes[0], 4, "SDgetinfo"); /* Read and verify data of the dataset */ start[0] = start[1] = start[2] = 0; edges[0] = dimsizes[0]; edges[1] = DIM1; edges[2] = DIM2; status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata, result, edges[0]*DIM1*DIM2*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* Close the dataset */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Reopen file and dataset */ fid = SDstart(FILENAME3, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); dset_index = SDnametoindex(fid, "Variable 3D"); CHECK(dset_index, FAIL, "SDnametoindex"); dset1 = SDselect(fid, dset_index); CHECK(dset1, FAIL, "SDselect"); { /* Append data to the dataset pass the end */ int16 data[] = {400, 401}; int32 startw[3], edgesw[3]; startw[0] = 6; /* the end is at 3 */ startw[1] = startw[2] = 0; /* writing at {6,0,0} */ edgesw[0] = 2; /* two slabs */ edgesw[1] = edgesw[2] = 1; /* Write 2 slabs starting at index 6 */ status = SDwritedata(dset1, startw, NULL, edgesw, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ status = SDgetinfo(dset1, NULL, NULL, dimsizes, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(dimsizes[0], 8, "SDgetinfo"); /* Read and verify data of the dataset */ /* start[], edges[1], and edges[2] same as last reading */ edges[0] = dimsizes[0]; status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata, result, edges[0]*DIM1*DIM2*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); { /* Append data to the dataset at the end */ int16 data[] = {800,801,802,803,804,805}; int32 startw[3], edgesw[3]; startw[0] = dimsizes[0]; /* writing at the end */ startw[1] = startw[2] = 0; /* writing at {8,0,0} */ edgesw[0] = 1; /* 1 slab */ edgesw[1] = DIM1; edgesw[2] = DIM2; /* Write 2 slabs starting at index 8 */ status = SDwritedata(dset1, startw, NULL, edgesw, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ status = SDgetinfo(dset1, NULL, NULL, dimsizes, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(dimsizes[0], 9, "SDgetinfo"); /* Read and verify data of the dataset */ /* start[], edges[1], and edges[2] same as last reading */ edges[0] = dimsizes[0]; status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata, result, edges[0]*DIM1*DIM2*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* data should be 300 -3 301 -3 302 -3 303 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... ... -3 -3 -3 -3 400 -3 401 -3 800 801 ... -3 -3 -3 -3 -3 -3 -3 -3 802 803 ... -3 -3 -3 -3 -3 -3 -3 -3 804 805 unlimited dimension ----> (-3 is fill value) */ /* Close the dataset */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); return 0; } /******************************************************************** Name: test_1dim_multivars_addon() - tests adding unlimited dimension dataset to an existing file Description: The main contents include: - open FILENAME2 - create a 1-dim unlimited dimension dataset - close the file, then reopen it - open the previous dataset and create another one - write 4 elements to first and 3 to second, starting at index 0 - append 2 elements to first dataset, starting at index 6, that is passed the end - append 3 elements to first dataset, immediately at the end of the data - append 3 elements to second dataset, skipping 5 elements - verify data in various places Return value: The number of errors occurred in this routine. BMR - Dec 30, 2008 *********************************************************************/ static int test_1dim_multivars_addon() { int32 fid; /* file id */ int32 dset1, dset2; /* dataset ids */ int32 dset_index; /* dataset index */ int32 dimsizes[1]; /* dimension size buffer */ int32 start[1], /* where to start writing */ edges[1]; /* length of data to be read/written */ int16 fillval = -3; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data */ int16 result3[] = {300,301,302,303,-3,-3,30,31,801,802,803}; int16 result4[] = {300,301,302,-3,-3,-3,-3,-3,801,802,803}; /* enter define mode */ fid = SDstart(FILENAME2, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); /* Define dimension of the data set to be created. */ dimsizes[0] = SD_UNLIMITED; /* Create an array data sets. */ dset1 = SDcreate(fid, "Variable 3", DFNT_INT16, 1, dimsizes); CHECK(dset1, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset1, (VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); /* Close dataset and file */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Reopen file and dataset */ fid = SDstart(FILENAME2, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); dset_index = SDnametoindex(fid, "Variable 3"); CHECK(dset_index, FAIL, "SDnametoindex"); dset1 = SDselect(fid, dset_index); CHECK(dset1, FAIL, "SDselect"); /* Create another dataset */ dset2 = SDcreate(fid, "Variable 4", DFNT_INT16, 1, dimsizes); CHECK(dset2, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset2, (VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); { /* Add data */ int16 data[] = {300, 301, 302, 303}; /* Write 4 elements to "Variable 3" starting at index 0 */ start[0] = 0; edges[0] = 4; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Write 3 elements to "Variable 4" starting at index 0 */ edges[0] = 3; status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the datasets, and verify their data and dim sizes */ num_errs = num_errs + verify_info_data(dset1, 4, result3); num_errs = num_errs + verify_info_data(dset2, 3, result4); { /* Append data to "Variable 3" pass the end */ int16 data[] = {30, 31}; /* Write 2 values starting at index 6, skipping indices 4 and 5 */ start[0] = 6; edges[0] = 2; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its data and dim size */ num_errs = num_errs + verify_info_data(dset1, 8, result3); { /* Append data to "Variable 3" again, but right at the end */ int16 data[] = {801,802,803}; /* Write 3 values starting at index 8, at the end */ start[0] = 8; edges[0] = 3; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of "Variable 3", and verify its dimension */ num_errs = num_errs + verify_info_data(dset1, 11, result3); { /* Append data to "Variable 4" at an arbitrary index, skipping a few */ int16 data[] = {801,802,803}; /* Write 3 values starting at index 8, at the end */ start[0] = 8; edges[0] = 3; status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the "Variable 4" and verify its data and dim size */ num_errs = num_errs + verify_info_data(dset2, 11, result4); { /* Read and verify data from dataset "Variable 2" that was created in test_1dim_multivars */ int32 dset; int16 result2[] = {102,104,-2,-2,-2,-2,-2,-2,200,201,202,800,801,802,803}; /* Get access to dataset "Variable 2" */ dset_index = SDnametoindex(fid, "Variable 2"); CHECK(dset_index, FAIL, "SDnametoindex"); dset = SDselect(fid, dset_index); CHECK(dset, FAIL, "SDselect"); /* Get its information and verify its data and dimension size */ num_errs = num_errs + verify_info_data(dset, 15, result2); /* Close "Variable 2" */ status = SDendaccess(dset); CHECK(status, FAIL, "SDendaccess"); } /* end reading "Variable 2" */ /* Close all datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); return 0; } /* test_1dim_multivars_addon */ /* Test driver for testing reading/writing variables with unlimited dimension using SD API. */ extern int test_unlim() { int num_errs = 0; /* Output message about test being performed */ TESTING("read/write datasets with unlimited dims via SD API (tunlim.c)"); /* Test single variable with 1 unlimited dimension */ num_errs = num_errs + test_1dim_singlevar(); /* Test multiple variables with 1 unlimited dimension */ num_errs = num_errs + test_1dim_multivars(); /* Test multiple variables with multiple dimensions */ num_errs = num_errs + test_multidim_singlevar(); /* Test multiple variables created at different time */ num_errs = num_errs + test_1dim_multivars_addon(); if (num_errs == 0) PASSED(); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/tszip.c0000644000000000000000000014221212421456623014470 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #include "hdftest.h" #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #define FILE_NAME8 "SDS_8_sziped.hdf" #define FILE_NAME16 "SDS_16_sziped.hdf" #define FILE_NAME32 "SDS_32_sziped.hdf" #define FILE_NAMEfl32 "SDS_fl32_sziped.hdf" #define FILE_NAMEfl64 "SDS_fl64_sziped.hdf" #define SDS_NAME "SzipedData" #define RANK 2 #define WIDTH 6 #define LENGTH 9 #ifdef H4_HAVE_SZIP_ENCODER /* only compile all these test functions when encoder is available */ static intn test_szip_SDS8bit() { /************************* Variable declaration **************************/ int32 sd_id, sds_id; intn status; int32 dim_sizes[2], array_rank, num_type, attributes; char name[H4_MAX_NC_NAME]; comp_info c_info; int32 start[2], edges[2]; int8 fill_value = 0; /* Fill value */ int i,j; int num_errs = 0; /* number of errors so far */ comp_coder_t comp_type; /* to retrieve compression type into */ comp_info cinfo; /* compression information structure */ int8 out_data[LENGTH][WIDTH]; int8 in_data[LENGTH][WIDTH]={ 1,1,2,2,3,4, 1,1,2,2,3,4, 1,1,2,2,3,4, 3,3,0,4,3,4, 3,3,0,4,3,4, 3,3,0,4,3,4, 0,0,6,6,3,4, 5,5,6,6,3,4, 0,0,6,6,3,4}; /********************* End of variable declaration ***********************/ /* Create the file and initialize SD interface */ sd_id = SDstart (FILE_NAME8, DFACC_CREATE); CHECK(sd_id, FAIL, "SDstart"); /* Create the SDS */ dim_sizes[0] = LENGTH; dim_sizes[1] = WIDTH; sds_id = SDcreate (sd_id, SDS_NAME, DFNT_INT8, RANK, dim_sizes); CHECK(sds_id, FAIL, "SDcreate:Failed to create a data set for szip compression testing"); /* Define the location, pattern, and size of the data set */ for (i = 0; i < RANK; i++) { start[i] = 0; edges[i] = dim_sizes[i]; } /* Fill the SDS array with the fill value */ status = SDsetfillvalue (sds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "SDsetfillvalue"); /* Initialization for SZIP */ c_info.szip.pixels_per_block = 2; c_info.szip.options_mask = SZ_EC_OPTION_MASK; c_info.szip.options_mask |= SZ_RAW_OPTION_MASK; c_info.szip.bits_per_pixel = 0; c_info.szip.pixels = 0; c_info.szip.pixels_per_scanline = 0; /* Set the compression */ status = SDsetcompress (sds_id, COMP_CODE_SZIP, &c_info); CHECK(status, FAIL, "SDsetcompress"); /* Write data to the SDS */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)in_data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the data set */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); /* Terminate access to the SD interface and close the file to flush the compressed info to the file */ status = SDend (sd_id); CHECK(status, FAIL, "SDend"); /* * Verify the compressed data */ /* Reopen the file and select the first SDS */ sd_id = SDstart (FILE_NAME8, DFACC_READ); CHECK(sd_id, FAIL, "SDstart"); sds_id = SDselect (sd_id, 0); CHECK(sds_id, FAIL, "SDselect:Failed to select a data set for szip compression testing"); /* Retrieve information of the data set */ status = SDgetinfo(sds_id, name, &array_rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "SDgetinfo"); /* Retrieve compression informayion about the dataset */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&c_info, 0, sizeof(c_info)) ; status = SDgetcompinfo(sds_id, &comp_type, &c_info); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_SZIP, "SDgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the data set */ start[0] = 0; start[1] = 0; edges[0] = LENGTH; edges[1] = WIDTH; status = SDreaddata (sds_id, start, NULL, edges, (VOIDP)out_data); CHECK(status, FAIL, "SDreaddata"); /* Compare read data against input data */ for (j=0; j= uncomp_size) { printf("*** Routine test_getszipinfo: FAILED at line %d ***\n", __LINE__); printf(" In this test, compressed data size (%d) should be smaller than non-compressed data size (%d)\n", comp_size, uncomp_size); num_errs++; } /* Terminate access to the data set */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); /* Terminate access to the SD interface and close the file */ status = SDend (sd_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_getszipinfo */ /******************************************************************** Name: test_getszipdata() - verifies that SZIP compressed data can be read when either SZIP library encoder or only decoder is present Description: This test function opens the existing file "sds_szipped.dat" that contains a dataset with SZIP compression and verifies that the SZIP compressed data can be read with or without the encoder as long as the szlib is available. The input file, sds_szipped.dat, is generated by the program mfhdf/libsrc/gen_sds_szipped.c Return value: The number of errors occurred in this routine. BMR - Oct 10, 2008 *********************************************************************/ #ifdef H4_HAVE_LIBSZ /* needed to read data, either decoder or encoder */ static intn test_getszipdata() { /************************* Variable declaration **************************/ int32 sd_id, sds_id; intn status; int32 dim_sizes[2], array_rank, num_type, attributes; char name[H4_MAX_NC_NAME]; comp_info c_info; int32 start[2], edges[2]; int16 fill_value = 0; /* Fill value */ int i,j; int num_errs = 0; /* number of errors so far */ int32 out_data[SZ_LENGTH][SZ_WIDTH]; char testfile[512] = ""; char *basename = "sds_szipped.dat"; /* data to compare against read data from sds_szipped.dat */ int32 in_data[SZ_LENGTH][SZ_WIDTH]={ 100,100,200,200,300, 0, 0, 0, 0, 0, 100,100,200,200,300, 400,300,200,100,0, 300,300, 0,400,300, 300,300, 0,400,300, 300,300, 0,400,300, 0, 0,600,600,300, 500,500,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 500,500,600,600,300, 500,500,600,600,300, 500,500,600,600,300 }; /********************* End of variable declaration ***********************/ /* Make the name for the test file */ make_datafilename(basename, testfile, sizeof(testfile)); /* Open the file */ sd_id = SDstart (testfile, DFACC_READ); CHECK(sd_id, FAIL, "SDstart"); /* Get the first SDS */ sds_id = SDselect (sd_id, 0); CHECK(sds_id, FAIL, "SDselect:Failed to select a data set for szip compression testing"); /* Retrieve information of the data set */ status = SDgetinfo(sds_id, name, &array_rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "SDgetinfo"); /* Prepare for reading */ start[0] = 0; start[1] = 0; edges[0] = dim_sizes[0]; edges[1] = dim_sizes[1]; /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the data set */ status = SDreaddata (sds_id, start, NULL, edges, (VOIDP)out_data); CHECK(status, FAIL, "SDreaddata"); /* Compare read data against input data */ for (j=0; j 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds1_info.n_values; ii++) { if (readibuf_swapped[ii] != data1[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data1[ii], readibuf_swapped[ii]); } } /* Forward to the position of the data of SDS at index 2 */ if (lseek(fd, (off_t)sds2_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_attrs: unable to seek offset %d\n", (int)sds2_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readfbuf = (float32 *) HDmalloc(sds2_info.n_values * sizeof(float32)); readfbuf_swapped = (float32 *) HDmalloc(sds2_info.n_values * sizeof(float32)); /* Read in this block of data */ readlen = read(fd, (VOIDP)readfbuf, (size_t)sds2_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readfbuf, readfbuf_swapped, sds2_info.numtype, (uint32)sds2_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); /* Compare data read without SD API against the original buffer */ kk = 0; for (jj = 0; jj < sds2_info.dimsizes[0]; jj++) for (ii = 0; ii < sds2_info.dimsizes[1]; ii++) { /* Flag if the two numbers are not close enough */ if (fabs(readfbuf_swapped[kk] - data2[jj][ii]) > 0.00001) fprintf(stderr, "At value# %d: written = %f read = %f\n", ii, data2[jj][ii], readfbuf_swapped[kk]); if (kk < sds2_info.n_values) kk++; } /* Forward to the position of the data of SDS at index 3 */ if (lseek(fd, (off_t)sds3_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_attrs: unable to seek offset %d\n", (int)sds3_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP)readibuf, (size_t)sds3_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds3_info.numtype, (uint32)sds3_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds3_info.n_values; ii++) { if (readibuf_swapped[ii] != data3[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data3[ii], readibuf_swapped[ii]); } } if (close(fd) == -1) { fprintf(stderr, "test_attrs: unable to close file %s", ATTR_FILE); num_errs++; return num_errs; } } free_info(&sds1_info); free_info(&sds2_info); free_info(&sds3_info); #endif /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_attrs */ /*************************************************************************** Test getting data info of annotations from DFAN There are several utility functions to help generating and verifying the data. The actual test function is test_dfannots() that follows those. ***************************************************************************/ #define DFAN_NDG_FILE "tdfanndg.hdf" #define DFAN_SDG_FILE "tdfansdg.hdf" /* only for SDG annotation tests */ #define MAXLEN_LAB 50 #define MAXLEN_DESC 200 #define ROWS 10 #define COLS 10 #define REPS 2 /* Utility functions: */ /* to generate data set's data */ static VOID gen2Dfloat (int height, int width, float *data); /* to verify data of labels and descriptions */ static intn check_lab_desc (char* fname, uint16 tag, uint16 ref, char *label, char *desc); /**************************************************************** ** ** gen2Dfloat: generate 2-D data array ** ****************************************************************/ static VOID gen2Dfloat(int height, int width, float *data) { int i, j; float *pdata; /* store one value per row, increasing by one for each row */ pdata = data; for (i = 0; i < height; i++) for (j = 0; j < width; j++) *pdata++ = (float) (i + 1); } /**************************************************************** ** ** check_lab_desc: read and compare label and description ** with expected ones ** ****************************************************************/ static intn check_lab_desc(char* fname, uint16 tag, uint16 ref, char *label, char *desc) { int32 inlablen, indesclen, ret; char inlabel[MAXLEN_LAB], *indesc; intn num_errs=0; inlablen = DFANgetlablen(fname, tag, ref); CHECK(inlablen, FAIL, "check_lab_desc: DFANgetlablen"); ret = DFANgetlabel(fname, tag, ref, inlabel, MAXLEN_LAB); CHECK(ret, FAIL, "check_lab_desc: DFANgetlabel"); VERIFY_CHAR(inlabel, label, "check_lab_desc: DFANgetlabel"); indesclen = DFANgetdesclen(fname, tag, ref); CHECK(indesclen, FAIL, "check_lab_desc: DFANgetdesclen"); if (indesclen >= 0) { indesc = (char *) HDmalloc(indesclen + 1); ret = DFANgetdesc(fname, tag, ref, indesc, MAXLEN_DESC); CHECK(ret, FAIL, "check_lab_desc: DFANgetdesc"); indesc[indesclen] = '\0'; VERIFY_CHAR(indesc, desc, "check_lab_desc: DFANgetdesc"); HDfree((VOIDP) indesc); } return(num_errs); } /**************************************************************** ** ** add_sdfile_annotations: Adds file labels and descriptions with ** DFAN API, then reads them back and verifies that they are ** written correctly. This function also creates the file. ** ****************************************************************/ intn add_sdfile_annotations() { int32 file_id; char labels[2][MAXLEN_LAB], descs[2][MAXLEN_DESC], tempstr[MAXLEN_DESC]; intn ret; intn num_errs=0; /* set up file labels and descriptions */ HDstrcpy(labels[0], "File Label #1"); HDstrcpy(labels[1], "File Label #2"); HDstrcpy(descs[0], "File Descr #1: This is a file label, added\n"); HDstrcat(descs[0], " by the DFAN interface...**END SDS 1 DESCR**\n"); HDstrcpy(descs[1], "File Descr #2: This is another file label added\n"); HDstrcat(descs[1], " by the DFAN API as well.**END SDS 2 DESCR**\n"); /******** Write file labels and descriptions *********/ file_id = Hopen(DFAN_NDG_FILE, DFACC_CREATE, 0); if (file_id == FAIL) printf("\nUnable to open file %s for writing.\n\n", DFAN_NDG_FILE); ret = DFANaddfid(file_id, labels[0]); CHECK(ret, FAIL, "DFANaddfid"); ret = DFANaddfid(file_id, labels[1]); CHECK(ret, FAIL, "DFANaddfid"); ret = DFANaddfds(file_id, descs[0], (int32)HDstrlen(descs[0])); CHECK(ret, FAIL, "DFANaddfds"); ret = DFANaddfds(file_id, descs[1], (int32)HDstrlen(descs[1])); CHECK(ret, FAIL, "DFANaddfds"); if (FAIL == Hclose(file_id)) printf("\nUnable to close file %s after writing.\n\n", DFAN_NDG_FILE); /******** Read file labels *********/ file_id = Hopen(DFAN_NDG_FILE, DFACC_READ, 0); if (file_id == FAIL) printf("\n\nUnable to open file %s for reading.\n\n", DFAN_NDG_FILE); ret = DFANgetfidlen(file_id, ISFIRST); CHECK(ret, FAIL, "DFANgetfidlen"); VERIFY(ret, strlen(labels[0]), "DFANgetfidlen first file label"); ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, ISFIRST); CHECK(ret, FAIL, "DFANgetfid"); VERIFY_CHAR(labels[0], tempstr, "DFANgetfid first file label"); ret = DFANgetfidlen(file_id, NOTFIRST); CHECK(ret, FAIL, "DFANgetfidlen"); VERIFY(ret, strlen(labels[1]), "DFANgetfidlen second file label"); ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, NOTFIRST); CHECK(ret, FAIL, "DFANgetfid"); VERIFY_CHAR(labels[1], tempstr, "DFANgetfid second file label"); /******** Read file descriptions *********/ ret = DFANgetfdslen(file_id, ISFIRST); CHECK(ret, FAIL, "DFANgetfdslen"); VERIFY(ret, strlen(descs[0]), "DFANgetfdslen first file description"); ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, ISFIRST); CHECK(ret, FAIL, "DFANgetfds"); VERIFY_CHAR(tempstr, descs[0], "DFANgetfds first file description"); ret = DFANgetfdslen(file_id, NOTFIRST); CHECK(ret, FAIL, "DFANgetfdslen"); VERIFY(ret, strlen(descs[1]), "DFANgetfdslen second file description"); ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, NOTFIRST); CHECK(ret, FAIL, "DFANgetfds"); VERIFY_CHAR(tempstr, descs[1], "DFANgetfds second file description"); if (FAIL == Hclose(file_id)) printf("\n\nUnable to close file %s after reading.\n\n", DFAN_NDG_FILE); return (num_errs); } /* add_sdfile_annotations */ /**************************************************************** ** ** add_sdsNDG_annotations: Adds data labels and descriptions with ** DFAN API, then reads them back and verifies that they are ** written correctly. The data object in this function is ** DFTAG_NDG. ** ****************************************************************/ intn add_sdsNDG_annotations() { char labels[2][MAXLEN_LAB], descs[2][MAXLEN_DESC]; uint16 refnum; int32 ret; intn rank; int jj; int32 dimsizes[2]; float *data; intn num_errs=0; /* set up object labels and descriptions */ HDstrcpy(labels[0], "Object label #1: sds"); HDstrcpy(labels[1], "Object label #2: sds"); HDstrcpy(descs[0], "Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 \n"); HDstrcat(descs[0], " 13 14 15 16 17 18 19 20 **END SDS 1 DESCR**\n"); HDstrcpy(descs[1], "Object Descr #2: a b c d e f g h i j k l m n o p \n"); HDstrcat(descs[1], " q r s t u v w x y z ??? **END SDS 2 DESCR**\n"); /***** generate float array *****/ data = (float *) HDmalloc(ROWS * COLS * sizeof(float)); dimsizes[0] = ROWS; dimsizes[1] = COLS; /* Generate data for data sets */ gen2Dfloat(ROWS, COLS, data); /* Set rank and dimension sizes for subsequent SDSs */ ret = DFSDsetdims(2, dimsizes); /******** Write labels and descriptions *********/ /* Write REPS data sets and add a label and a description to each data set */ for (jj = 0; jj < REPS; jj++) { /* write out scientific data set */ ret = DFSDadddata(DFAN_NDG_FILE, 2, dimsizes, (VOIDP) data); CHECK(ret, FAIL, "add_sdsNDG_annotations: DFSDadddata"); refnum = DFSDlastref(); /* Add label and description to this data set */ ret = DFANputlabel(DFAN_NDG_FILE, DFTAG_NDG, refnum, labels[jj]); CHECK(ret, FAIL, "add_sdsNDG_annotations: DFANputlabel"); ret = DFANputdesc(DFAN_NDG_FILE, DFTAG_NDG, refnum, descs[jj], (int32)HDstrlen(descs[jj])); CHECK(ret, FAIL, "add_sdsNDG_annotations: DFANputdesc"); } /******** Read labels and descriptions *********/ for (jj = 0; jj < REPS; jj++) { ret = DFSDgetdims(DFAN_NDG_FILE, &rank, dimsizes, 3); CHECK(ret, FAIL, "add_sdsNDG_annotations: DFSDgetdims"); refnum = DFSDlastref(); /* Verify data of labels and descriptions */ num_errs = check_lab_desc(DFAN_NDG_FILE, DFTAG_NDG, refnum, labels[jj], descs[jj]); } HDfree((VOIDP) data); return (num_errs); } /* add_sdsNDG_annotations */ /**************************************************************** ** ** add_sdsSDG_annotations: Adds data labels and descriptions with ** DFAN API, then reads them back and verifies that they are ** written correctly. The data object in this function is ** DFTAG_SDG. ** ****************************************************************/ intn add_sdsSDG_annotations() { char labsds[MAXLEN_LAB], labris[MAXLEN_LAB], descsds[MAXLEN_DESC], descris[MAXLEN_DESC]; uint8 pal[768]; uint16 refnum; int32 ret; intn rank; int j; int32 dimsizes[2]; float *data; intn num_errs=0; /* set up object labels and descriptions */ HDstrcpy(labsds, "sdsSDG label #1: sds"); HDstrcpy(descsds, "sdsSDG Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 \n"); HDstrcat(descsds, " 13 14 15 16 17 18 19 20 **END SDS DESCR**\n"); HDstrcpy(descris, "sdsSDG Descr #2: A B C D E F G H I J K L \n"); HDstrcat(descris, " M N O **END IMAGE DESCR **\n"); /***** generate float array and image *****/ data = (float *) HDmalloc(ROWS * COLS * sizeof(float)); dimsizes[0] = ROWS; dimsizes[1] = COLS; gen2Dfloat(ROWS, COLS, data); ret = DFSDsetdims(2, dimsizes); /******** Write labels and descriptions *********/ for (j = 0; j < REPS; j++) { /* write out scientific data set */ ret = DFSDadddata(DFAN_SDG_FILE, 2, dimsizes, (VOIDP) data); { /* write out annotations for 2 out of every 3 */ refnum = DFSDlastref(); ret = DFANputlabel(DFAN_SDG_FILE, DFTAG_SDG, refnum, labsds); ret = DFANputdesc(DFAN_SDG_FILE, DFTAG_SDG, refnum, descsds, (int32)HDstrlen(descsds)); } } /******** Read labels and descriptions *********/ for (j = 0; j < REPS; j++) { ret = DFSDgetdims(DFAN_SDG_FILE, &rank, dimsizes, 3); refnum = DFSDlastref(); if ((j % 3) != 0) /* read in annotations for 2 out of every 3 */ num_errs = check_lab_desc(DFAN_SDG_FILE, DFTAG_SDG, refnum, labsds, descsds); } HDfree((VOIDP) data); return 0; } /**************************************************************** ** ** get_ann_datainfo: Gets data info of annotations and verifies ** against the provided offsets/lengths. ** ****************************************************************/ intn get_ann_datainfo( int32 id, ann_type annot_type, int32 *chk_offsets, int32 *chk_lengths) { int32 *offsetarray=NULL, *lengtharray=NULL; int32 num_annots; intn ii, num_errs = 0; num_annots = SDgetanndatainfo(id, annot_type, 0, NULL, NULL); CHECK(num_annots, FAIL, "get_ann_datainfo: SDgetanndatainfo annot_type with NULL buffers"); if (num_annots > 0) { offsetarray = (int32 *)HDmalloc(num_annots * sizeof(int32)); if (offsetarray == NULL) exit(-1); lengtharray = (int32 *)HDmalloc(num_annots * sizeof(int32)); if (lengtharray == NULL) exit(-1); num_annots = SDgetanndatainfo(id, annot_type, num_annots, offsetarray, lengtharray); CHECK(num_annots, FAIL, "get_ann_datainfo: SDgetanndatainfo"); /* Verify offsets and lengths of annotations */ for (ii = 0; ii < num_annots; ii++) { VERIFY(offsetarray[ii], chk_offsets[ii], "get_ann_datainfo: SDgetanndatainfo"); VERIFY(lengtharray[ii], chk_lengths[ii], "get_ann_datainfo: SDgetanndatainfo"); } HDfree(offsetarray); HDfree(lengtharray); } return(num_errs); } /*************************************************************************** Name: test_dfannots() - tests getting data info of annotations from DFAN Description: This routine uses several utility routines to - create various file's and data's annotations - retrieve and verify the offsets/lengths of these annotations BMR - Feb 2011 ***************************************************************************/ static int test_dfannots(void) { int32 sd_id, sds_id, sds_index; intn ii, status, num_annots; int32 n_datasets, n_file_attr, n_attrs; int32 *offsetarray=NULL, *lengtharray=NULL; int32 chk_offsets[10], chk_lengths[10]; int32 num_labels = 0, /* number of file or object labels */ num_descs = 0; /* number of file or object descriptions */ intn num_errs = 0; /* Add file annotations */ status = add_sdfile_annotations(); if (status > 0) fprintf(stderr, "test_dfannots: errors while adding file annotations\n"); /* Add SDS annotations via NDG */ status = add_sdsNDG_annotations(); if (status > 0) fprintf(stderr, "test_dfannots: errors while adding NDG annotations\n"); /* Add SDS annotations via SDG in a separate file */ status = add_sdsSDG_annotations(); if (status > 0) fprintf(stderr, "test_dfannots: errors while adding SDG annotations\n"); /********************************************************************** * Using SD API to get offset/length of data from file annotations * * and data set annotations in file DFAN_NDG_FILE to test NDG annots * **********************************************************************/ /* Open the file and initialize the SD interface. */ sd_id = SDstart(DFAN_NDG_FILE, DFACC_READ); CHECK(sd_id, FAIL, "test_dfannots: SDstart"); /* BMR: need better checking algorithm here! */ /* Get data info of file labels and verify them against chk_offsets and chk_lengths */ chk_offsets[0] = 307; chk_offsets[1] = 294; /* verified with UNIX command */ chk_lengths[0] = 13; chk_lengths[1] = 13; /* "od --format=a" */ status = get_ann_datainfo(sd_id, AN_FILE_LABEL, chk_offsets, chk_lengths); if (status > 0) fprintf(stderr, "test_dfannots: errors while verifying annotations\n"); /* Get data info of file descs and verify them against chk_offsets and chk_lengths */ chk_offsets[0] = 414; chk_offsets[1] = 320; /* verified with UNIX command */ chk_lengths[0] = 99; chk_lengths[1] = 94; /* "od --format=a" */ status = get_ann_datainfo(sd_id, AN_FILE_DESC, chk_offsets, chk_lengths); if (status > 0) fprintf(stderr, "test_dfannots: errors while verifying annotations\n"); /* Obtain information about the file. */ status = SDfileinfo(sd_id, &n_datasets, &n_file_attr); CHECK(status, FAIL, "test_dfannots: SDfileinfo"); /* Get annotation information of each SDS in the file. */ for (sds_index=0; sds_index< n_datasets; sds_index++) { sds_id = SDselect (sd_id, sds_index); CHECK(sds_id, FAIL, "test_dfannots: SDselect"); /* Only data sets have annotations */ if (!SDiscoordvar(sds_id)) { /* Get data info of object descs and verify them against chk_offsets and chk_lengths */ if (sds_index == 2) /* first data set, not dimension var */ { chk_offsets[0] = 987; /* verified with UNIX */ chk_lengths[0] = 96; /* command "od --format=a" */ } else if (sds_index == 5) /* second data set, not dimension var */ { chk_offsets[0] = 1729; /* verified with UNIX */ chk_lengths[0] = 101; /* command "od --format=a" */ } status = get_ann_datainfo(sds_id, AN_DATA_DESC, chk_offsets, chk_lengths); if (status > 0) fprintf(stderr, "test_dfannots: errors while verifying annotations\n"); /* Get data info of object labels and verify them against chk_offsets and chk_lengths */ if (sds_index == 2) /* first data set */ { chk_offsets[0] = 963; /* verified with UNIX */ chk_lengths[0] = 20; /* command "od --format=a" */ } else if (sds_index == 5) /* second data set */ { chk_offsets[0] = 1705; /* verified with UNIX */ chk_lengths[0] = 20; /* command "od --format=a" */ } status = get_ann_datainfo(sds_id, AN_DATA_LABEL, chk_offsets, chk_lengths); if (status > 0) fprintf(stderr, "test_dfannots: errors while verifying annotations\n"); } /* SDS is not coordinate var */ /* Terminate access to the selected data set. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_dfannots: SDendaccess"); } /* for each data set */ /* Terminate access to the SD interface and close the file. */ status = SDend(sd_id); CHECK(status, FAIL, "test_dfannots: SDend"); /********************************************************************** * Using SD API to get offset/length of data from file annotations * * and data set annotations in file DFAN_NDG_FILE to test NDG annots * * -Not doing now because there are no such data in NASA files and we * * are running out of time. * **********************************************************************/ /* Return the number of errors that's been kept track of so far */ return num_errs; } /*************************************************************************** Name: test_dfsdattrs() - tests getting data info of attributes from DFSD Description: This routine creates and writes a dataset and several attributes with the DFSD API to test the API function SDgetoldattdatainfo. In the DFSD API, an SDS attribute is stored using tag/ref approach, unlike the newer attributes which were introduced in Apr, 1993 and are stored in Vdatas. The dimension attributes are stored following the SDS attribute. All attributes are separated by null characters. In this test, SDgetoldattdatainfo will retrieve the offsets and lengths of several attributes. Then the data will be read back from the file at the retrieved offsets/lengths, without the use of the HDF4 library, and will be verified against the original data buffers. BMR - Mar 2011 ***************************************************************************/ #define OLDATTFILE "tdfsdatts.hdf" #define XX 6 #define YY 6 /* Compares a string against the original buffer, returns 0 if equals, or -1 */ intn compare(const char *outstring, const char *instring); static intn test_dfsdattrs() { int i, j, ret; intn rank; int32 dims[2], num_datasets; float32 f32[XX][YY], tf32[XX][YY]; intn info_count=0; int32 offset=0, length=0; int32 fid=-1, sdsid=-1, dimid=-1; intn status=0; intn num_errs = 0; /* number of errors so far */ const char *datalabel = "Datalabel", *dataunit = "Dataunit", *datafmt = "Datafmt", *coordsys = "coordsys"; char in_datalabel[256], in_dataunit[256], in_datafmt[256], in_coordsys[256]; const char *dimlabels[2], *dimunits[2], *dimfmts[2]; char in_dimlabels[2][256], in_dimunits[2][256], in_dimfmts[2][256]; /* float32 scplnf32[XX] = {(float32) 0.0, (float32) 100.0, (float32) 0.1, (float32) 101.0, (float32) 0.2, (float32) 102.0}; float32 scrowf32[YY] = {(float32) 0.0, (float32) 10.0, (float32) 20.0, (float32) 1.0, (float32) 11.0, (float32) 21.0}; uncomment these when the calls to DFSDsetdimscale are uncommented. */ rank = 2; dims[0] = XX; dims[1] = YY; dimlabels[0] = ""; dimunits[0] = "c_dim1_unit"; dimfmts[0] = "c_dim1_fmt"; dimlabels[1] = "c_dim2_label"; dimunits[1] = "c_dim2_unit"; dimfmts[1] = "c_dim2_fmt"; for (i = 0; i < XX; i++) { for (j = 0; j < YY; j++) { f32[i][j] = (float32)((i * XX) + j); /* range: 0 ~ 4-billion */ } } ret = DFSDsetdims(rank, dims); CHECK(ret, FAIL, "DFSDsetdims"); /* individual files */ ret = DFSDsetNT(DFNT_NFLOAT32); CHECK(ret, FAIL, "DFSDsetNT"); ret = DFSDsetdims(rank, dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set attributes to the dataset and its dimensions */ ret = DFSDsetdatastrs(datalabel, dataunit, datafmt, coordsys); CHECK(ret, FAIL, "DFSDsetdatastrs"); ret = DFSDsetdimstrs(1, dimlabels[0], dimunits[0], dimfmts[0]); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, dimlabels[1], dimunits[1], dimfmts[1]); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Note: Setting attribute to a dimension with DFSD API doesn't make the dimension become a coordinate variable, only setting dimension scale does. Thus, when no setting scale is done, the dumper will not show the dimension variables. However, the dimension attributes are there and SDgetoldattdatainfo will still find them. For a demo, the two calls to DFSDsetdimscale can be uncommented, then dumper will show the dimension variables and their attributes. -BMR, Mar 13, 2011 */ /* Set dimension scales */ /* ret = DFSDsetdimscale(1, dims[0], (VOIDP) scplnf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, dims[1], (VOIDP) scrowf32); CHECK(ret, FAIL, "DFSDsetdimscale"); */ /* Write/Read data to/from SDS */ ret = DFSDputdata(OLDATTFILE, rank, dims, (VOIDP) f32); CHECK(ret, FAIL, "DFSDputdata"); ret = DFSDgetdata(OLDATTFILE, rank, dims, (VOIDP) tf32); CHECK(ret, FAIL, "DFSDgetdata"); /* Read attributes from the dataset and its dimensions */ ret = DFSDgetdatastrs(in_datalabel, in_dataunit, in_datafmt, in_coordsys); CHECK(ret, FAIL, "DFSDgetdatastrs"); ret = DFSDgetdimstrs(1, in_dimlabels[0], in_dimunits[0], in_dimfmts[0]); CHECK(ret, FAIL, "DFSDgetdimstrs"); ret = DFSDgetdimstrs(2, in_dimlabels[1], in_dimunits[1], in_dimfmts[1]); CHECK(ret, FAIL, "DFSDgetdimstrs"); /* Verify a few */ ret = compare(in_datalabel, datalabel); /* SDS' label */ CHECK(ret, FAIL, "compare"); ret = compare(in_dimunits[0], dimunits[0]); /* first dim's units */ CHECK(ret, FAIL, "compare"); ret = compare(in_dimlabels[1], dimlabels[1]); /* first dim's label */ CHECK(ret, FAIL, "compare"); /* Using SD API to get the offsets and lengths of various attributes, then read them from the file without the use of HDF4 library and verify them against the original buffers */ /* Open the file with SD API */ fid = SDstart(OLDATTFILE, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); /* Get the first dataset (and only one) */ sdsid = SDselect(fid, 0); CHECK(sdsid, FAIL, "SDselect"); /* Test SDgetoldattdatainfo with dataset's attribute string _HDF_LongName */ info_count = SDgetoldattdatainfo(0, sdsid, _HDF_LongName, &offset, &length); CHECK(info_count, FAIL, "SDgetoldattdatainfo"); status = readnoHDF_char(OLDATTFILE, offset, length, datalabel); CHECK(status, FAIL, "readnoHDF_char"); /* Test with attribute string _HDF_LongName of dataset's first dimension */ dimid = SDgetdimid(sdsid, 0); CHECK(dimid, FAIL, "SDgetdimid"); info_count = SDgetoldattdatainfo(dimid, sdsid, _HDF_LongName, &offset, &length); CHECK(info_count, FAIL, "SDgetoldattdatainfo"); /* This dimension doesn't have an _HDF_LongName attribute, so length must be 0, and readnoHDF_char will not be needed to verify the attribute values */ VERIFY(length, 0, "SDgetoldattdatainfo"); /* Test with attribute string _HDF_Format of dataset's second dimension */ dimid = SDgetdimid(sdsid, 1); CHECK(dimid, FAIL, "SDgetdimid"); info_count = SDgetoldattdatainfo(dimid, sdsid, _HDF_Format, &offset, &length); CHECK(info_count, FAIL, "SDgetoldattdatainfo"); status = readnoHDF_char(OLDATTFILE, offset, length, dimfmts[1]); CHECK(status, FAIL, "readnoHDF_char"); /* Test with dataset's attribute string _HDF_CoordSys */ info_count = SDgetoldattdatainfo(0, sdsid, _HDF_CoordSys, &offset, &length); CHECK(info_count, FAIL, "SDgetoldattdatainfo"); status = readnoHDF_char(OLDATTFILE, offset, length, coordsys); CHECK(status, FAIL, "readnoHDF_char"); /* Note: coordsys' length has 1 more than the number of actual chars. We'll need to study that to document better. */ /* Terminate access to the dataset and close the file */ status = SDendaccess(sdsid); CHECK(status, FAIL, "SDendaccess"); status = SDend(fid); CHECK(status, FAIL, "SDend"); return(num_errs); } intn compare(const char *outstring, const char *instring) { intn status = 0; if (HDstrcmp(outstring, instring) != 0) { fprintf(stderr, ">>> Test failed for %s\n", outstring); fprintf(stderr, " Input string = %s\n", instring); status = -1; } return(status); } /******************************************************************* Name: readnoHDF_char - utility routine to read and verify character data without HDF4 library Description: readnoHDF_char opens the file and reads in data at the specified offset. The read data is compared against the original data passed by caller. If any mis-match occurs, an error message will be displayed but the process will continue. Parameters: char *filename IN: name of the file int32 offset IN: where to start read data int32 length IN: how long to read the data char *orig_buf IN: original data buffer to compare against Return value: SUCCEED/FAIL BMR - Jul 2010 ********************************************************************/ intn readnoHDF_char(const char *filename, const int32 offset, const int32 length, const char *orig_buf) { FILE *fd; /* file descriptor */ size_t readlen=0; /* number of bytes actually read */ char *readcbuf; intn ret_value = SUCCEED; /* Open the file for reading without SD API */ fd = fopen(filename, "r"); if (fd == NULL) { fprintf(stderr, "readnoHDF_char: unable to open file %s", filename); exit(1); } /* Forward to the position of the first block of data */ if (fseek(fd, (off_t)offset, SEEK_SET) == -1) { fprintf(stderr, "readnoHDF_char: unable to seek offset %d\n", (int)offset); exit(1); } /* Allocate buffers for SDS' data */ readcbuf = (char *) HDmalloc(length * sizeof(char)); CHECK_ALLOC(readcbuf, "readcbuf", "readnoHDF_char" ); /* Read in this block of data */ readlen = fread((void*)readcbuf, 1, length, fd); if (readlen > 0) { /* Compare data read without HDF4 lib against the original buffer */ if (HDstrncmp(readcbuf, orig_buf, readlen) != 0) fprintf(stderr, "Failure: non-HDF reading got different values than written values\n >>> written = %s\n >>> read = %s\n", orig_buf, readcbuf); } HDfree(readcbuf); /* Close the file */ if (fclose(fd) == -1) { fprintf(stderr, "readnoHDF_char: unable to close file %s", filename); exit(1); } return ret_value; } /* Test driver for testing the public functions SDgetattdatainfo(), SDgetoldattdatainfo(), and SDgetanndatainfo() */ extern int test_att_ann_datainfo() { intn status; int num_errs = 0; /* Output message about test being performed */ TESTING("getting location info of attr and annot data (tattdatainfo.c)"); /* Test getting data info of attributes for SDSs */ num_errs = num_errs + test_attrs(); /* Test getting data info of annotations added by DFAN API */ num_errs = num_errs + test_dfannots(); /* Test getting data info of annotations added by AN API */ /* num_errs = num_errs + test_mfannots(); not needed right now */ /* Test getting data info of old attributes added by DFSD API */ num_errs += test_dfsdattrs(); if (num_errs == 0) PASSED(); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/tfile.c0000644000000000000000000003474012421456623014430 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5218 $"; #endif /* $Id: tfile.c 5218 2009-08-29 04:21:49Z bmribler $ */ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" /******************************************************************** Name: test_file_inuse() - tests preventing of an in-use file being removed at cleanup time. Description: Sometime, when an error occurs, the cleanup process attempts to remove a file, which might still be in use (part of bugzilla #376.) The routine test_file_inuse is to test the fix that provides the underlaying call to HPisfile_in_use, which should successfully determines whether a file is still in use before an attempt to remove. The main contents include: - a loop that repeatedly calls SDstart/DFACC_CREATE; only the first SDstart succeeds, the subsequent ones should fail. - SDcreate, SDwritedata, SDendaccess follow - outside of that loop is another loop to call SDend corresponding to the previous SDstart's - then, at the end, the file will be reopened; if the file doesn't exist and causes SDstart to fail, the test will fail. Before the fix, when the 2nd SDstart/DFACC_CREATE was called and failed because the file was being in use from the first call to SDstart/DFACC_CREATE, the cleaning process removed the file. Return value: The number of errors occurred in this routine. BMR - Jun 22, 2005 *********************************************************************/ #define FILE_NAME "bug376.hdf" /* data file to test */ #define DIM0 10 static intn test_file_inuse() { int32 file_id, sd_id[5], sds_id[5]; intn statusn; int32 dims[1], start[1], edges[1], rank; int16 array_data[DIM0]; char* names[5] = {"data1", "data2", "data3", "data4", "data5"}; intn i, j; intn num_errs = 0; /* number of errors so far */ for (i=0; i<5; i++) { /* Create and open the file and initiate the SD interface. */ sd_id[i] = SDstart(FILE_NAME, DFACC_CREATE); if (i == 0) { CHECK(sd_id[i], FAIL, "SDstart"); } /* 1st SDstart must pass */ else { VERIFY(sd_id[i], FAIL, "SDstart"); } /* subsequent SDstart should fail, which causes the following calls to fail as well */ /* Define the rank and dimensions of the data sets to be created. */ rank = 1; dims[0] = DIM0; start[0] = 0; edges[0] = DIM0; /* Create the array data set. */ sds_id[i] = SDcreate(sd_id[i], names[i], DFNT_INT16, rank, dims); if (i == 0) { CHECK(sds_id[i], FAIL, "SDcreate"); } /* 1st SDcreate must pass */ else VERIFY(sds_id[i], FAIL, "SDcreate"); /* Fill the stored-data array with values. */ for (j = 0; j < DIM0; j++) { array_data[j] = (i + 1)*(j + 1); } /* Write data to the data set */ statusn = SDwritedata(sds_id[i], start, NULL, edges, (VOIDP)array_data); if (i == 0) { CHECK(statusn, FAIL, "SDwritedata"); } /* 1st SDwritedata must pass */ else VERIFY(statusn, FAIL, "SDwritedata"); /* Terminate access to the data sets. */ statusn = SDendaccess(sds_id[i]); if (i == 0) { CHECK(statusn, FAIL, "SDendaccess"); } /* 1st SDendaccess must pass */ else VERIFY(statusn, FAIL, "SDendaccess"); } /* for i */ for (i=0; i<5; i++) { /* Terminate access to the SD interface and close the file. */ statusn = SDend (sd_id[i]); if (i == 0) { CHECK(statusn, FAIL, "SDend"); } /* 1st SDend must pass */ else VERIFY(statusn, FAIL, "SDend"); } /* Try to open the file, which should exist */ file_id = SDstart(FILE_NAME, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); statusn = SDend (file_id); CHECK(statusn, FAIL, "SDend"); return num_errs; } /* test_file_inuse */ /******************************************************************** Name: test_max_open_files() - tests the new API SDreset_maxopenfiles, SDget_maxopenfiles, SDget_numopenfiles, and SDgetfilename. Description: There were multiple requests from the users to increase the maximum number of opened files allowed. SDreset_maxopenfiles is added to allow the user to reset that value. The current default value is 32. This API can be called anytime to increase it. This test routine will carry out the following tests: - Get the current max, should be the default (32,) and the system limit - Reset current max to an arbitrary number that is larger than the default and verify - Try to create more files than the current max and all should succeed, because NC_open resets the current max to system limit automatically, when the number of opened files exceeds the current max - Get the current max and system limit and verify, current max should be the system limit - Get the current max another way, it should be the system limit again - Get the current number of files being opened - Reset current max to a value that is smaller than the current number of opened files; it shouldn't reset - Reset current max again to a value that is smaller than the current max but larger than the current number of opened files, that should work for there is no information loss - Try to create more files up to the system limit or NUM_FILES_HI, because the arrays have max NUM_FILES_HI elements in this test - Close all the files, then try opening all again to verify their names, this is to test bugzilla 440 Return value: The number of errors occurred in this routine. BMR - Oct 14, 2005 *********************************************************************/ #define NUM_FILES_LOW 35 #define NUM_FILES_HI 1024 static int test_max_open_files() { int32 fids[NUM_FILES_HI]; /* holds IDs of opened files */ char filename[NUM_FILES_HI][10]; /* holds generated file names */ char readfname[H4_MAX_NC_NAME]; /* file name retrieved from file id */ intn index, status, curr_max, /* curr maximum number of open files allowed in HDF */ sys_limit, /* maximum number of open files allowed by system */ curr_max_bk, /* back up of curr_max */ curr_opened, /* number of files currently being opened */ temp_limit, /* temp var - num of files to be opened in this test */ num_errs = 0; /* number of errors so far */ /* Get the current max and system limit */ status = SDget_maxopenfiles(&curr_max, &sys_limit); CHECK(status, FAIL, "test_maxopenfiles: SDget_maxopenfiles"); VERIFY(curr_max, H4_MAX_NC_OPEN, "test_maxopenfiles: SDreset_maxopenfiles"); /* Reset current max to an arbitrary number and check */ curr_max = SDreset_maxopenfiles(33); CHECK(status, FAIL, "test_maxopenfiles: SDreset_maxopenfiles"); VERIFY(curr_max, 33, "test_maxopenfiles: SDreset_maxopenfiles"); /* Try to create more files than the default max (currently, 32) and all should succeed */ for (index=0; index < NUM_FILES_LOW; index++) { /* Create a file */ sprintf(filename[index], "file%i", index); fids[index] = SDstart(filename[index], DFACC_CREATE); CHECK(fids[index], FAIL, "test_maxopenfiles: SDstart"); } /* Verify that NUM_FILES_LOW files are opened */ curr_opened = SDget_numopenfiles(); VERIFY(curr_opened, NUM_FILES_LOW, "test_maxopenfiles: SDget_numopenfiles"); /* Now randomly close 3 files and check number of opened files */ status = SDend(fids[5]); CHECK(status, FAIL, "test_maxopenfiles: SDend"); status = SDend(fids[15]); CHECK(status, FAIL, "test_maxopenfiles: SDend"); status = SDend(fids[25]); CHECK(status, FAIL, "test_maxopenfiles: SDend"); curr_opened = SDget_numopenfiles(); VERIFY(curr_opened, NUM_FILES_LOW-3, "test_maxopenfiles: SDget_numopenfiles"); /* Get the current max and system limit */ status = SDget_maxopenfiles(&curr_max, &sys_limit); CHECK(status, FAIL, "test_maxopenfiles: SDget_maxopenfiles"); VERIFY(curr_max, sys_limit, "test_maxopenfiles: SDreset_maxopenfiles"); /* Get the current max another way, it should be the system limit */ curr_max = SDreset_maxopenfiles(0); VERIFY(curr_max, sys_limit, "test_maxopenfiles: SDreset_maxopenfiles"); /* Reopen the 3 files above, and check the number of opened files again */ fids[5] = SDstart(filename[5], DFACC_RDWR); CHECK(fids[5], FAIL, "test_maxopenfiles: SDstart"); fids[15] = SDstart(filename[15], DFACC_RDWR); CHECK(fids[15], FAIL, "test_maxopenfiles: SDstart"); fids[25] = SDstart(filename[25], DFACC_RDWR); CHECK(fids[25], FAIL, "test_maxopenfiles: SDstart"); curr_opened = SDget_numopenfiles(); VERIFY(curr_opened, NUM_FILES_LOW, "test_maxopenfiles: SDget_numopenfiles"); /* Reset current max to a value that is smaller than the current number of opened files; it shouldn't reset */ curr_max_bk = curr_max; curr_max = SDreset_maxopenfiles(curr_opened-1); VERIFY(curr_max, curr_max_bk, "test_maxopenfiles: SDreset_maxopenfiles"); /* Reset current max again to a value that is smaller than the current max but larger than the current number of opened files, that should work for there is no information loss */ curr_max = SDreset_maxopenfiles(curr_opened+3); VERIFY(curr_max, curr_opened+3, "test_maxopenfiles: SDreset_maxopenfiles"); /* Try to create more files up to the system limit or NUM_FILES_HI, because the arrays have max NUM_FILES_HI elements in this test */ temp_limit = sys_limit / 2; temp_limit = temp_limit > NUM_FILES_HI ? NUM_FILES_HI : temp_limit; for (index=NUM_FILES_LOW; index < temp_limit; index++) { /* Create a file */ sprintf(filename[index], "file%i", index); fids[index] = SDstart(filename[index], DFACC_CREATE); /* if SDstart fails due to "too many open files," then adjust temp_limit so that further failure can be prevented, i.e. following SDend and SDstart */ if ((fids[index] == FAIL) && (HEvalue(1) == DFE_TOOMANY)) temp_limit = index; /* only CHECK returned value from SDstart if the failure wasn't because of "too many open files" -BMR 2006/11/01 */ else CHECK(fids[index], FAIL, "test_maxopenfiles: SDstart"); } /* Close all the files, then try opening all again to verify their names, this is to test bugzilla 440 */ for (index=0; index < temp_limit; index++) { status = SDend(fids[index]); CHECK(status, FAIL, "test_maxopenfiles: SDend"); fids[index] = SDstart(filename[index], DFACC_RDWR); CHECK(fids[index], FAIL, "test_maxopenfiles: SDstart"); } /* Verify their names */ for (index=0; index < temp_limit; index++) { status = SDgetfilename(fids[index], readfname); CHECK(status, FAIL, "test_maxopenfiles: SDgetfilename"); /* Verify the file name retrieved against the original */ if (HDstrcmp(readfname, filename[index])) { fprintf(stderr, "SDgetfilename: incorrect file being opened - expected <%s>, retrieved <%s>\n", filename[index], readfname); } } /* Close then remove all the files */ for (index=0; index < temp_limit; index++) { status = SDend(fids[index]); CHECK(status, FAIL, "test_maxopenfiles: SDend"); remove(filename[index]); } return num_errs; } /******************************************************************** Name: test_longfilename() - tests that the library can handle a very long file name (bugzilla 1331.) Description: The main contents include: - create a file with very long name - create a dataset and close it (this is to activate the failure) - SDend to close the file, and it would cause segfault before the fix was applied. Return value: The number of errors occurred in this routine. BMR - Jan 16, 2009 *********************************************************************/ #define NX 2 #define NY 3 static int test_longfilename() { int32 fid; /* file id */ int32 dset1; /* dataset ids */ int32 dims[2]; /* variable shapes */ int ii; char dsname[10]; char filename[256]; intn status = 0; /* status returned by called functions */ intn num_errs = 0; /* number of errors so far */ strcpy(dsname, "dataset 1"); strcpy(filename, "This file name has quite a few characters because it is used to test the fix of bugzilla 1331. It has to be at least this long to see."); /* enter define mode */ fid = SDstart(filename, DFACC_CREATE); CHECK(fid, FAIL, "test_longfilename: SDstart"); /* Define dimension of the data set to be created. */ dims[0] = NX; dims[1] = NY; /* Create a dataset to reproduce the problem before the fix */ dset1 = SDcreate(fid, dsname, DFNT_FLOAT32, 2, dims); CHECK(dset1, FAIL, "test_longfilename: SDcreate"); status = SDendaccess(dset1); CHECK(status, FAIL, "test_longfilename: SDendaccess"); status = SDend(fid); CHECK(fid, FAIL, "test_longfilename: SDend"); return num_errs; } /* Test driver for testing miscellaneous file related APIs. */ extern int test_files() { intn num_errs = 0; /* number of errors */ /* Output message about test being performed */ TESTING("miscellaneous file related functions (tfile.c)"); /* test that an in-use file is not removed in certain failure cleanup. 06/21/05 - bugzilla 376 - BMR */ num_errs = num_errs + test_file_inuse(); /* test APIs that were added for fixing bugzilla 396 and 440. 09/07/05 - BMR */ num_errs = num_errs + test_max_open_files(); /* test the fix of bugzzila 1331. 01/16/09 - BMR */ num_errs = num_errs + test_longfilename(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/CMakeLists.txt0000644000000000000000000000762612421456623015724 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_TEST) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (hdftest_SRCS ${HDF4_MFHDF_TEST_SOURCE_DIR}/hdftest.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tchunk.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tcomp.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tcoordvar.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tdim.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/temptySDSs.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tattributes.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tfile.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tmixed_apis.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tnetcdf.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/trank0.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tsd.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tsdsprops.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tszip.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tattdatainfo.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tdatainfo.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tdatasizes.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tutils.c ) #-- Adding test for hdftest ADD_EXECUTABLE (hdftest ${hdftest_SRCS}) TARGET_NAMING (hdftest ${LIB_TYPE}) TARGET_C_PROPERTIES (hdftest " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdftest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET} ${LINK_LIBS}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdftest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES sds_szipped.dat smallslice.0000.nc test1.nc ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE(STATUS " Copying ${HDF4_MFHDF_TEST_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdftest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_TEST_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) #-- Adding test for cdftest ADD_EXECUTABLE (cdftest ${HDF4_MFHDF_TEST_SOURCE_DIR}/cdftest.c) TARGET_NAMING (cdftest ${LIB_TYPE}) TARGET_C_PROPERTIES (cdftest " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (cdftest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (cdftest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE2_TEST_FILES testout.sav ) FOREACH (h4_file ${HDF4_REFERENCE2_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE(STATUS " Copying ${HDF4_MFHDF_TEST_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET cdftest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_TEST_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE2_TEST_FILES}) #-- Adding test for hdfnctest SET (hdfnctest_SRCS ${HDF4_MFHDF_TEST_SOURCE_DIR}/hdfnctest.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tunlim.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tncunlim.c ${HDF4_MFHDF_TEST_SOURCE_DIR}/tncvargetfill.c ) ADD_EXECUTABLE (hdfnctest ${hdfnctest_SRCS}) TARGET_NAMING (hdfnctest ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfnctest " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfnctest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdfnctest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) INCLUDE (CMakeTests.cmake) libhdf4-4.2.10/HDF_ALT/mfhdf/test/gen_sds_szipped.c0000644000000000000000000001061312421456623016476 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * This program generates the data file "sds_szipped.dat" which contains * some szipped compressed SDSs. (currently only one dataset but more can be * added for future tests.) This data file is used by the following test * files: * tcomp.c: to test getting compression information with only decoder * tdatasizes.c: to test getting compressed data size with only decoder * * This program must be compiled with an h4cc version that was built with * szip encoder enabled. (2008-10-09 - BMR) * ****************************************************************************/ #include "mfhdf.h" #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #ifdef HDF #include "hdftest.h" #define FILE_NAME "sds_szipped.dat" #define SDS1_NAME "TwoDimsInt32" #define X_LENGTH 5 #define Y_LENGTH 16 #define RANK 2 /* * Generate szipped data to test reading szipped data and compression info. */ intn main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int32 start[2], edges[2], dim_sizes[2]; int32 pixels_per_scanline; intn num_errs = 0; /* number of errors in compression test so far */ int i, j; int32 data[Y_LENGTH][X_LENGTH]={ 100,100,200,200,300, 0, 0, 0, 0, 0, 100,100,200,200,300, 400,300,200,100,0, 300,300, 0,400,300, 300,300, 0,400,300, 300,300, 0,400,300, 0, 0,600,600,300, 500,500,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 0, 0,600,600,300, 500,500,600,600,300, 500,500,600,600,300, 500,500,600,600,300 }; /********************* End of variable declaration ***********************/ dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /* Create the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_CREATE); CHECK(sd_id, FAIL, "SDstart"); /* Define the location and size of the data set to be written to the file. */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Create 3rd data set for SZIP compression. */ sds_id = SDcreate (sd_id, SDS1_NAME, DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "SDcreate"); /* Set data set SDS1_NAME to use SZIP compression. */ comp_type = COMP_CODE_SZIP; pixels_per_scanline = dim_sizes[1]; c_info.szip.pixels = dim_sizes[0]*dim_sizes[1];; c_info.szip.pixels_per_block = 2; if(pixels_per_scanline >=2048) c_info.szip.pixels_per_scanline = 512; else c_info.szip.pixels_per_scanline = dim_sizes[1]; c_info.szip.options_mask = SZ_EC_OPTION_MASK; c_info.szip.options_mask |= SZ_RAW_OPTION_MASK; c_info.szip.bits_per_pixel = 64; status = SDsetcompress (sds_id, comp_type, &c_info); CHECK(status, FAIL, "SDsetcompress"); /* Write the stored data to the 3rd data set. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the 3rd data set. */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); /* Terminate access to the SD interface and close the file. */ status = SDend (sd_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* main */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tmixed_apis.c0000644000000000000000000004550612421456623015635 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tmixed_apis.c - tests the API functions: * SDidtype * Vgetvgroups * VSgetvdatas * Vgisinternal * Structure of the file: * test_mixed_apis - test driver * test_SDAPI_ids - tests SDidtype on SD API ids: sd, sds, dim ids * test_nonSDAPI_ids - tests SDidtype on non SD API ids and invalid id * test_vdatavgroups - tests Vgetvgroups and VSgetvdatas * test_vgisinternal - tests Vgisinternal ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define IDTYPE_FILE "idtypes.hdf" /* data file to test ID types */ #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 /* Tests SDidtype on SD API ids: sd, sds, dim ids */ static intn test_SDAPI_ids() { int32 fid, dset1, dset2, dim_id; int32 dimsize[RANK]; hdf_idtype_t id_type; intn status; intn num_errs = 0; /* number of errors so far */ /* Create a file */ fid = SDstart(IDTYPE_FILE, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Create an X_LENGTH by Y_LENGTH dataset, called DataSet_1 */ dimsize[0] = X_LENGTH; dimsize[1] = Y_LENGTH; dset1 = SDcreate(fid, "DataSet_1", DFNT_INT32, RANK, dimsize); CHECK(dset1, FAIL, "SDcreate"); /* Create another X_LENGTH by Y_LENGTH dataset, called DataSet_2 */ dset2 = SDcreate(fid, "DataSet_2", DFNT_FLOAT64, RANK, dimsize); CHECK(dset2, FAIL, "SDcreate"); /* Test SDidtype on the second dataset */ id_type = SDidtype(dset2); VERIFY(id_type, SDS_ID, "SDidtype: id_type"); /* Close the datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Re-open the file to test SDidtype more */ fid = SDstart(IDTYPE_FILE, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); /* Test SDidtype on the SD id */ id_type = SDidtype(fid); VERIFY(id_type, SD_ID, "SDidtype: id_type"); /* Get access to the first dataset and test SDidtype on the SDS id */ dset1 = SDselect(fid, 0); CHECK(dset1, FAIL, "SDselect"); id_type = SDidtype(dset1); VERIFY(id_type, SDS_ID, "SDidtype: id_type"); /* Get access to the second dataset and test SDidtype on the SDS id */ dset2 = SDselect(fid, 1); CHECK(dset2, FAIL, "SDselect"); id_type = SDidtype(dset2); VERIFY(id_type, SDS_ID, "SDidtype: id_type"); /* Get dimension handle for first dimension of DataSet_1 and test SDidtype on the dimension id */ dim_id = SDgetdimid(dset1, 0); CHECK(dim_id, FAIL, "SDgetdimid"); id_type = SDidtype(dim_id); VERIFY(id_type, DIM_ID, "SDidtype dim_id"); /* Close the datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_SDAPI_ids */ /* Tests SDidtype on non SD API ids and invalid id. */ static intn test_nonSDAPI_ids () { int32 fid, gr_id, vdata_id, ri_id; int32 vdata_ref; intn status; int32 dims[2]={4,5}; /* dimensions for the empty image */ hdf_idtype_t id_type; intn num_errs = 0; /* number of errors so far */ /* Open the HDF file */ fid = Hopen(IDTYPE_FILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen: tidtype.hdf"); /* Initialize HDF for subsequent vdata access */ status = Vstart(fid); CHECK(status, FAIL, "Vstart"); /* Create a new vdata and give it a name */ vdata_id = VSattach(fid, -1, "w"); CHECK(vdata_id, FAIL, "VSattach"); status = VSsetname(vdata_id, "Vdata_1"); CHECK(status, FAIL, "VSsetname"); /* Terminate access to the vdata */ status = VSdetach(vdata_id); CHECK(status, FAIL, "VSdetach"); /* Terminate access to the Vxxx interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Open the HDF file again to test SDidtype */ fid = Hopen(IDTYPE_FILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen: tidtype.hdf"); /* Initialize HDF for subsequent vdata accesses */ status = Vstart(fid); CHECK(status, FAIL, "Vstart"); /* Get access to the vdata "Vdata_1" via its reference number */ vdata_ref = VSfind(fid, "Vdata_1"); CHECK(vdata_ref, FAIL, "VSfind"); vdata_id = VSattach(fid, vdata_ref, "w"); CHECK(vdata_id, FAIL, "VSattach"); /* Test SDidtype on the vdata id */ id_type = SDidtype(vdata_id); VERIFY(id_type, NOT_SDAPI_ID, "SDidtype: id_type"); /* Terminate access to the vdata */ status = VSdetach(vdata_id); CHECK(status, FAIL, "VSdetach"); /* Terminate access to the Vxxx interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Test SDidtype on a GR raster image */ /* Open file and initialize the GR interface */ fid = Hopen(IDTYPE_FILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen: tidtype.hdf"); gr_id = GRstart(fid); CHECK(gr_id, FAIL, "GRstart"); /* Create an empty image with default fill value */ ri_id = GRcreate(gr_id, "Empty Image", 3, DFNT_FLOAT32, MFGR_INTERLACE_PIXEL, dims); CHECK(ri_id, FAIL, "GRcreate"); /* Test SDidtype on the GR raster image id */ id_type = SDidtype(ri_id); VERIFY(id_type, NOT_SDAPI_ID, "SDidtype: id_type"); /* Close the image */ status = GRendaccess(ri_id); CHECK(status, FAIL, "GRendaccess"); /* Shut down the GR interface and close the file */ status = GRend(gr_id); CHECK(status, FAIL, "GRend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_nonSDAPI_ids */ /**************************************************************************** * test_vdatavgroups - tests the API functions Vgetvgroups and VSgetvdatas. * - Create an SD file and several datasets * - Set attributes to some dimensions to promote them to coordinate * variables, which will be represented by internally created vgroups. * The datasets are also represented by internally created vgroups * - Close the file then re-open it with V API * - Create several vgroups and vdatas then close the file * - The file now contains beside the vgroups and vdatas previously created * by the application. * + a vgroup of class CDF0.0 to represent the SD file * + various vgroups of class "Var0.0" for SDSs and coordinate variables * + various vdatas of class "Dim0.0" for dimensions * + various vdatas of class "Attr0.0" for attributes * + and more * - Reopen the file using V API * - Verify that Vgetvgroups and VSgetvdatas return only the vgroups and * vdatas that were created by the application. * Mar 4, 2011 -BMR ****************************************************************************/ /* data file to test getting vgs/vds from an SD file */ #define VVS_FILE "tvdatasvgroups_SD.hdf" #define ATTR1_NAME "Valid_range 1" #define ATTR2_NAME "Unit" #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 #define NUM_VGS 3 #define NUM_VDS 1 static intn test_vdatavgroups() { int32 fid, dset1, dset2, dset3, dimid, vgroup_id, vdata_id; int32 num_allvgroups, num_allvdatas; intn num_vgroups, num_vdatas; int32 dimsize[RANK]; float32 att1_values[2] = {2., 10.}; char8 att2_values[] = "Seconds"; uint16 *refarray=NULL; uint16 name_len=0; intn ii, status; char *vg_name=NULL, vd_name[10]; const char *check_vg_names[3] = {"Vgroup_1", "Vgroup_2", "Vgroup_3"}; const char *check_vd_names[1] = {"Vdata_1"}; intn num_errs = 0; /* number of errors so far */ /* Create a file */ fid = SDstart(VVS_FILE, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Create an X_LENGTH by Y_LENGTH dataset, called DataSet_1 */ dimsize[0] = X_LENGTH; dimsize[1] = Y_LENGTH; dset1 = SDcreate(fid, "DataSet_1", DFNT_INT32, RANK, dimsize); CHECK(dset1, FAIL, "SDcreate"); /* Set attribute to first dimension of first data set */ dimid = SDgetdimid (dset1, 0); CHECK(dimid, FAIL, "SDgetdimid"); status = SDsetattr (dimid, ATTR1_NAME, DFNT_FLOAT32, 2, (VOIDP)att1_values); CHECK(status, FAIL, "SDsetattr"); /* Create another X_LENGTH by Y_LENGTH dataset, called DataSet_2 */ dset2 = SDcreate(fid, "DataSet_2", DFNT_FLOAT64, RANK, dimsize); CHECK(dset2, FAIL, "SDcreate"); /* Set attribute to second dimension of second data set */ dimid = SDgetdimid (dset2, 1); CHECK(dimid, FAIL, "SDgetdimid"); status = SDsetattr (dimid, ATTR2_NAME, DFNT_CHAR, 7, (VOIDP)att2_values); CHECK(status, FAIL, "SDsetattr"); /* Create another X_LENGTH by Y_LENGTH dataset, called DataSet_2 */ dset3 = SDcreate(fid, "DataSet_3", DFNT_FLOAT64, RANK, dimsize); CHECK(dset3, FAIL, "SDcreate"); /* Close the datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset3); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Open the HDF file and initialize the V interface */ fid = Hopen(VVS_FILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen: tidtype.hdf"); status = Vstart(fid); CHECK(status, FAIL, "Vstart"); /* num_allvgroups = Hnumber(fid, DFTAG_VG); CHECK(num_allvgroups, FAIL, "Hnumber"); keep for debugging only */ /* Get the number of user-created vgroups */ num_vgroups = Vgetvgroups(fid, 0, 0, NULL); CHECK(num_vgroups, FAIL, "Vgetvgroups"); VERIFY(num_vgroups, 0, "Vgetvgroups"); /* There are internally created vds because of attributes and dimensions */ num_allvdatas = Hnumber(fid, DFTAG_VH); CHECK(num_allvdatas, FAIL, "Hnumber"); CHECK(num_allvdatas, 0, "Hnumber"); /* so num_allvdatas shouldn't be 0 */ /* Get the number of user-created vdatas */ num_vdatas = VSgetvdatas(fid, 0, 0, NULL); CHECK(num_vdatas, FAIL, "VSgetvdatas"); VERIFY(num_vdatas, 0, "VSgetvdatas"); /* Create several vgroups and vdatas and give them a name */ vgroup_id = Vattach(fid, -1, "w"); CHECK(vgroup_id, FAIL, "Vattach"); status = Vsetname(vgroup_id, "Vgroup_1"); CHECK(status, FAIL, "Vsetname"); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); vgroup_id = Vattach(fid, -1, "w"); CHECK(vgroup_id, FAIL, "Vattach"); status = Vsetname(vgroup_id, "Vgroup_2"); CHECK(status, FAIL, "Vsetname"); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); vgroup_id = Vattach(fid, -1, "w"); CHECK(vgroup_id, FAIL, "Vattach"); status = Vsetname(vgroup_id, "Vgroup_3"); CHECK(status, FAIL, "Vsetname"); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); vdata_id = VSattach(fid, -1, "w"); CHECK(vdata_id, FAIL, "VSattach"); status = VSsetname(vdata_id, "Vdata_1"); CHECK(status, FAIL, "VSsetname"); status = VSdetach(vdata_id); CHECK(status, FAIL, "VSdetach"); /* Terminate access to the Vxxx interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Open the HDF file again to test Vgetvgroups */ fid = Hopen(VVS_FILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen: tidtype.hdf"); status = Vstart(fid); CHECK(status, FAIL, "Vstart"); /* Get the number of user-created vgroups */ num_vgroups = Vgetvgroups(fid, 0, 0, NULL); CHECK(num_vgroups, FAIL, "Vgetvgroups"); VERIFY(num_vgroups, NUM_VGS, "Vgetvgroups"); /* Allocate sufficient memory to hold the list of user-created vg refs */ refarray = (uint16 *)HDmalloc(sizeof(uint16) * num_vgroups); CHECK(refarray, NULL, "HDmalloc: no space"); /* Now, get the user-created vgroup refs */ status = Vgetvgroups(fid, 0, num_vgroups, refarray); CHECK(status, FAIL, "Vgetvgroups"); VERIFY(status, num_vgroups, "Vgetvgroups"); /* Verify the name of these user-created vgroups */ for (ii = 0; ii < num_vgroups; ii++) { vgroup_id = Vattach(fid, refarray[ii], "r"); CHECK(vgroup_id, FAIL, "Vattach"); status = Vgetnamelen(vgroup_id, &name_len); CHECK(status, FAIL, "Vgetnamelen"); vg_name = (char *)HDmalloc((sizeof(char) * name_len) + 1); CHECK(vg_name, NULL, "HDmalloc: no space"); status = Vgetname(vgroup_id, vg_name); CHECK(status, FAIL, "Vgetname"); VERIFY_CHAR(vg_name, check_vg_names[ii], ""); if (strncmp(vg_name, check_vg_names[ii], name_len) != 0) fprintf(stderr, "vg %d: name is %s, should be %s\n", ii, vg_name, check_vg_names[ii]); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); } /* Get the number of user-created vdatas */ num_vdatas = VSgetvdatas(fid, 0, 0, NULL); CHECK(num_vdatas, FAIL, "VSgetvdatas"); VERIFY(num_vdatas, NUM_VDS, "VSgetvdatas"); /* Allocate sufficient memory to hold the list of user-created vd refs */ refarray = (uint16 *)HDmalloc(sizeof(uint16) * num_vdatas); CHECK(refarray, NULL, "HDmalloc: no space"); /* Now, get the user-created vdata refs */ status = VSgetvdatas(fid, 0, num_vdatas, refarray); CHECK(num_vdatas, FAIL, "VSgetvdatas"); VERIFY(status, num_vdatas, "VSgetvdatas"); /* Verify the name of these user-created vdatas */ for (ii = 0; ii < num_vdatas; ii++) { vdata_id = VSattach(fid, refarray[ii], "r"); CHECK(vdata_id, FAIL, "VSattach"); status = VSgetname(vdata_id, vd_name); CHECK(status, FAIL, "VSgetname"); VERIFY_CHAR(vd_name, check_vd_names[ii], ""); if (strncmp(vd_name, check_vd_names[ii], name_len) != 0) fprintf(stderr, "vd %d: name is %s, should be %s\n", ii, vd_name, check_vd_names[ii]); status = VSdetach(vdata_id); CHECK(status, FAIL, "VSdetach"); } /* Terminate access to the Vxxx interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_vdatavgroups */ /**************************************************************************** * test_vgisinternal - tests the API function Vgisinternal * - Use the existing files created by test_vdatavgroups * - Get the number of vgroups in the file * - For each vgroup, verify that it is internal or not * Jan 6, 2012 -BMR ****************************************************************************/ #define VVS_FILE "tvdatasvgroups_SD.hdf" #define GR_FILE "grtdfui83.hdf" static intn test_vgisinternal() { int32 fid, vgroup_id; intn is_internal = FALSE; int32 vref = -1; intn ii, status; char internal_array1[20] = {TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE}; char internal_array2[9] = {TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE}; intn num_errs = 0; /* number of errors so far */ /* Open the HDF file and initialize the V interface */ fid = Hopen(VVS_FILE, DFACC_READ, 0); CHECK(fid, FAIL, "Hopen: tvdatasvgroups_SD.hdf"); status = Vstart(fid); CHECK(status, FAIL, "Vstart"); ii = 0; while ((vref = Vgetid(fid, vref)) != FAIL) { /* until no more vgroups */ vgroup_id = Vattach(fid, vref, "r"); /* attach to vgroup */ /* Test that the current vgroup is or is not internal as specified in the array */ is_internal = Vgisinternal(vgroup_id); CHECK(is_internal, FAIL, "Vgisinternal"); VERIFY(is_internal, internal_array1[ii], "Vgisinternal"); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); ii++; } /* Terminate access to the V interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Use a GR file to test Vgisinternal on internal vgroups */ /* Open the old HDF file and initialize the V interface */ fid = Hopen(IDTYPE_FILE, DFACC_READ, 0); CHECK(fid, FAIL, "Hopen: idtypes.hdf"); status = Vstart(fid); CHECK(status, FAIL, "Vstart"); ii = 0; while ((vref = Vgetid(fid, vref)) != FAIL) { /* until no more vgroups */ vgroup_id = Vattach(fid, vref, "r"); /* attach to vgroup */ /* Test that the current vgroup is or is not internal as specified in the array */ is_internal = Vgisinternal(vgroup_id); CHECK(is_internal, FAIL, "Vgisinternal"); VERIFY(is_internal, internal_array2[ii], "Vgisinternal"); status = Vdetach(vgroup_id); CHECK(status, FAIL, "Vdetach"); ii++; /* increment vgroup index */ } /* Terminate access to the V interface and close the file */ status = Vend(fid); CHECK(status, FAIL, "Vend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_vgisinternal */ /* Test driver for testing the API functions SDidtype, Vgetvgroups, VSgetvdatas, and Vgisinternal. */ extern int test_mixed_apis() { intn num_errs = 0; /* number of errors */ /* Output message about test being performed */ TESTING("a mix of SD, V, and VS functions (tmixed_apis.c)"); num_errs = num_errs + test_SDAPI_ids(); num_errs = num_errs + test_nonSDAPI_ids(); /* Test Vgetvgroups and VSgetvdatas */ num_errs = num_errs + test_vdatavgroups(); /* Test Vgisinternal */ num_errs = num_errs + test_vgisinternal(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/Makefile.in0000644000000000000000000006646712421456623015241 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testmfhdf.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am check_PROGRAMS = cdftest$(EXEEXT) hdfnctest$(EXEEXT) hdftest$(EXEEXT) TESTS = $(am__EXEEXT_1) $(TEST_SCRIPT) subdir = mfhdf/test ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testmfhdf.sh CONFIG_CLEAN_VPATH_FILES = am_cdftest_OBJECTS = cdftest.$(OBJEXT) cdftest_OBJECTS = $(am_cdftest_OBJECTS) cdftest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) am_hdfnctest_OBJECTS = hdfnctest.$(OBJEXT) tutils.$(OBJEXT) \ tncvargetfill.$(OBJEXT) tunlim.$(OBJEXT) tncunlim.$(OBJEXT) hdfnctest_OBJECTS = $(am_hdfnctest_OBJECTS) hdfnctest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) am_hdftest_OBJECTS = hdftest.$(OBJEXT) tutils.$(OBJEXT) \ tchunk.$(OBJEXT) tcomp.$(OBJEXT) tcoordvar.$(OBJEXT) \ tdim.$(OBJEXT) temptySDSs.$(OBJEXT) tattributes.$(OBJEXT) \ tfile.$(OBJEXT) tmixed_apis.$(OBJEXT) tnetcdf.$(OBJEXT) \ trank0.$(OBJEXT) tsd.$(OBJEXT) tsdsprops.$(OBJEXT) \ tszip.$(OBJEXT) tattdatainfo.$(OBJEXT) tdatainfo.$(OBJEXT) \ tdatasizes.$(OBJEXT) hdftest_OBJECTS = $(am_hdftest_OBJECTS) hdftest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(cdftest_SOURCES) $(hdfnctest_SOURCES) $(hdftest_SOURCES) DIST_SOURCES = $(cdftest_SOURCES) $(hdfnctest_SOURCES) \ $(hdftest_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = cdftest$(EXEEXT) hdfnctest$(EXEEXT) hdftest$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog *.new *.hdf *.cdf *.cdl netcdf.h \ This* onedimmultivars.nc onedimonevar.nc multidimvar.nc \ SD_externals INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ############################################################################# ############################################################################# TEST_PROG = cdftest hdfnctest hdftest TEST_SCRIPT = testmfhdf.sh check_SCRIPTS = testmfhdf.sh cdftest_SOURCES = cdftest.c cdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) hdfnctest_SOURCES = hdfnctest.c tutils.c tncvargetfill.c tunlim.c \ tncunlim.c hdfnctest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) hdftest_SOURCES = hdftest.c tutils.c tchunk.c tcomp.c tcoordvar.c \ tdim.c temptySDSs.c tattributes.c tfile.c \ tmixed_apis.c tnetcdf.c trank0.c tsd.c tsdsprops.c \ tszip.c tattdatainfo.c tdatainfo.c tdatasizes.c hdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/test/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/test/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testmfhdf.sh: $(top_builddir)/config.status $(srcdir)/testmfhdf.sh.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 cdftest$(EXEEXT): $(cdftest_OBJECTS) $(cdftest_DEPENDENCIES) $(EXTRA_cdftest_DEPENDENCIES) @rm -f cdftest$(EXEEXT) $(LINK) $(cdftest_OBJECTS) $(cdftest_LDADD) $(LIBS) hdfnctest$(EXEEXT): $(hdfnctest_OBJECTS) $(hdfnctest_DEPENDENCIES) $(EXTRA_hdfnctest_DEPENDENCIES) @rm -f hdfnctest$(EXEEXT) $(LINK) $(hdfnctest_OBJECTS) $(hdfnctest_LDADD) $(LIBS) hdftest$(EXEEXT): $(hdftest_OBJECTS) $(hdftest_DEPENDENCIES) $(EXTRA_hdftest_DEPENDENCIES) @rm -f hdftest$(EXEEXT) $(LINK) $(hdftest_OBJECTS) $(hdftest_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdftest.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfnctest.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdftest.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tattdatainfo.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tattributes.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tchunk.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tcomp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tcoordvar.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdatainfo.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdatasizes.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/temptySDSs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tfile.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tmixed_apis.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tncunlim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tncvargetfill.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tnetcdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/trank0.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tsd.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tsdsprops.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tszip.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tunlim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tutils.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-checkPROGRAMS clean-generic clean-libtool \ cscopelist ctags distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am 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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/test/Makefile.am0000644000000000000000000000345212421456623015211 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ############################################################################# ## Testing ## ############################################################################# TEST_PROG = cdftest hdfnctest hdftest TEST_SCRIPT = testmfhdf.sh check_PROGRAMS = cdftest hdfnctest hdftest check_SCRIPTS = testmfhdf.sh cdftest_SOURCES = cdftest.c cdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) hdfnctest_SOURCES = hdfnctest.c tutils.c tncvargetfill.c tunlim.c \ tncunlim.c hdfnctest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) hdftest_SOURCES = hdftest.c tutils.c tchunk.c tcomp.c tcoordvar.c \ tdim.c temptySDSs.c tattributes.c tfile.c \ tmixed_apis.c tnetcdf.c trank0.c tsd.c tsdsprops.c \ tszip.c tattdatainfo.c tdatainfo.c tdatasizes.c hdftest_LDADD = $(LIBMFHDF) $(LIBHDF) @LIBS@ $(XDRLIB) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += *.new *.hdf *.cdf *.cdl netcdf.h This* onedimmultivars.nc \ onedimonevar.nc multidimvar.nc SD_externals DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/test/tattributes.c0000644000000000000000000002473012421456623015675 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tattributes.c - tests attribute features * (currently only SDsetattr with count = 0) * Structure of the file: * test_attributes - test driver * test_count - tests that SDsetattr fails when the parameter * "count" is set to 0. (HDFFD-989 and 227: SDsetattr didn't * fail but, eventually, SDend did) * ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" /******************************************************************** Name: test_count() - tests that SDsetattr fails when the parameter "count" is passed into SDsetattr as 0 and the requested attribute is not created. Description: In the past, when the parameter "count" was set to 0, SDsetattr didn't fail but, eventually, SDend failed when the vdata storing the attribute was being created. With the knowledge that existing applications would have failed eventually at SDend if such calls existed, and if SDend failure is not detected, the file will be corrupted, we decided to change so that SDsetattr now fails when "count" is 0. The main contents of the test are listed below. - create a one-dim SDS, named VAR1_NAME - name its dimension VAR1_NAME - get file information and verify that there is only 1 variable, dataset VAR1_NAME - set attribute to dimension "Variable 1" (SDsetattr) - set attribute to SDS "Variable 1" (SDsetattr) - get file information and verify that there are 2 variable, dataset VAR1_NAME and coordinate variable VAR1_NAME - write data to the SDS - close all and reopen the file - open dataset "Variable 1" (SDnametoindex) - verify that this variable is not a coordinate variable (SDiscoordvar) - read and verify its attribute information and values - get access to the dataset's first dimension - read and verify its attribute information and values - read data and verify that the data is not corrupted Return value: The number of errors occurred in this routine. BMR - May 18, 2007 *********************************************************************/ #define FILE_SATTR "tattributes.hdf" #define VAR1_NAME "Variable 1" #define DIM1_NAME "Dimension 1" #define ATTR1_NAME "Attribute Dimension 1" #define ATTR2_NAME "Attribute SDS 1" #define ATTR3_NAME "Attribute Zero" #define ATTR1_VAL "This is a good attr" #define ATTR2_VAL "This is a another attr" #define ATTR1_LEN 20 #define ATTR2_LEN 23 #define ATTR3_LEN 5 #define ATTR_ZERO "ZERO" #define ATTR_LEN_ZERO 0 static intn test_count(void) { char sds_name[20], dim_name[20]; float32 sds1_data[] = {0.1, 2.3, 4.5, 6.7, 8.9}; float32 out_data[5]; int32 dimsize[1], size; int32 sds_id, file_id, dim_id, index; int32 start=0, stride=1; int32 attr_data [5] = {101,102,103,104,105}, scale1_out[5]; int32 ntype, rank, count; int32 n_datasets=0, n_file_attrs=0, nattrs=0; intn status =0; hdf_varlist_t* var_list; intn is_coord = FALSE; char attr_name[H4_MAX_NC_NAME], attr_values[80]; intn num_errs = 0; /* number of errors so far */ file_id = SDstart(FILE_SATTR, DFACC_CREATE); CHECK(file_id, FAIL, "SDstart"); /* Create a one-dim dataset named VAR1_NAME, of type DFNT_FLOAT32. */ dimsize[0] = 5; sds_id = SDcreate(file_id, VAR1_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds_id, FAIL, "SDcreate"); /* Set the dimension name. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); status = SDsetdimname(dim_id, DIM1_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Attempt to set a string attr to dim passing in count=0, should fail. */ status = SDsetattr(dim_id, ATTR_ZERO, DFNT_CHAR8, ATTR_LEN_ZERO, ATTR1_VAL); VERIFY(status, FAIL, "SDsetattr"); /* To verify that this attribute is not created, SDend must be called and the file is opened again. */ /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Open the file again to check attributes */ file_id = SDstart(FILE_SATTR, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); /* Get index of dataset VAR1_NAME */ index = SDnametoindex(file_id, VAR1_NAME); CHECK(index, FAIL, "SDnametoindex"); sds_id = SDselect(file_id, index); CHECK(sds_id, FAIL, "SDselect"); /* Get access to the SDS' first dimension. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); /* Get dimension information to verify there are no attrs set */ status = SDdiminfo (dim_id, dim_name, &size, &ntype, &nattrs ); VERIFY(nattrs, 0, "SDdiminfo"); /* Set an attribute to dimension DIM1_NAME. */ status = SDsetattr(dim_id, ATTR1_NAME, DFNT_CHAR8, ATTR1_LEN, ATTR1_VAL); CHECK(status, FAIL, "SDsetattr"); /* Attempt to set a string attr to SDS passing in count=0, should fail. */ status = SDsetattr(sds_id, ATTR_ZERO, DFNT_CHAR8, ATTR_LEN_ZERO, ATTR2_VAL); VERIFY(status, FAIL, "SDsetattr"); /* Attempt to set a float attr to SDS passing in count=0, should fail. */ status = SDsetattr(sds_id, ATTR_ZERO, DFNT_FLOAT32, ATTR_LEN_ZERO, ATTR2_VAL); VERIFY(status, FAIL, "SDsetattr"); /* Close the file and reopen it to verify the number of attributes for SDS and for the dimension. */ /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Open the file again to check attributes */ file_id = SDstart(FILE_SATTR, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); /* Get index of dataset VAR1_NAME */ index = SDnametoindex(file_id, VAR1_NAME); CHECK(index, FAIL, "SDnametoindex"); sds_id = SDselect(file_id, index); CHECK(sds_id, FAIL, "SDselect"); /* Get access to the SDS' first dimension. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); /* Get dimension information to verify there is one attribute set */ status = SDdiminfo (dim_id, dim_name, &size, &ntype, &nattrs ); VERIFY(nattrs, 1, "SDdiminfo"); /* Get SDS info to verify there is no SDS attribute yet. */ status = SDgetinfo(sds_id, sds_name, &rank, dimsize, &ntype, &nattrs); VERIFY(nattrs, 0, "SDsetattr"); /* Set an attribute to dataset VAR1_NAME. */ status = SDsetattr(sds_id, ATTR2_NAME, DFNT_CHAR8, ATTR2_LEN, ATTR2_VAL); CHECK(status, FAIL, "SDsetattr"); /* Write data to the SDS */ status = SDwritedata(sds_id, &start, &stride, dimsize, (VOIDP)sds1_data); CHECK(status, FAIL, "SDwritedata"); /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Open the file again to check attributes */ file_id = SDstart(FILE_SATTR, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); /* Get index of dataset VAR1_NAME */ index = SDnametoindex(file_id, VAR1_NAME); CHECK(index, FAIL, "SDnametoindex"); sds_id = SDselect(file_id, index); CHECK(sds_id, FAIL, "SDselect"); /* Get dataset information to verify that there is one attribute set. */ status = SDgetinfo(sds_id, sds_name, &rank, dimsize, &ntype, &nattrs); VERIFY(nattrs, 1, "SDsetattr"); /* Read and verify the information of the SDS' first attribute. */ status = SDattrinfo(sds_id, 0, attr_name, &ntype, &count); CHECK(status, FAIL, "SDattrinfo"); VERIFY(count, ATTR2_LEN, "SDattrinfo"); VERIFY(HDstrncmp(attr_name, ATTR2_NAME, 14), 0, "SDattrinfo"); /* Read and verify the values of the SDS' first attribute. */ status = SDreadattr(sds_id, 0, attr_values); CHECK(status, FAIL, "SDreadattr"); if (HDstrncmp(attr_values, ATTR2_VAL, ATTR2_LEN) != 0) { fprintf(stderr, "Unmatched attribute values for SDS %s: is <%s>, should be <%s>\n", VAR1_NAME, attr_values, ATTR2_VAL); num_errs++; } /* Get access to the SDS' first dimension. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); /* Get dimension information to verify number of attrs */ status = SDdiminfo (dim_id, dim_name, &size, &ntype, &nattrs ); VERIFY(nattrs, 1, "SDattrinfo"); /* Read and verify the information of the dimension's first attribute. */ status = SDattrinfo(dim_id, 0, attr_name, &ntype, &count); CHECK(status, FAIL, "SDattrinfo"); VERIFY(count, ATTR1_LEN, "SDattrinfo"); VERIFY(HDstrncmp(attr_name, ATTR1_NAME, ATTR1_LEN), 0, "SDattrinfo"); /* Read and verify the values of the dimension's first attribute. */ status = SDreadattr(dim_id, 0, attr_values); CHECK(status, FAIL, "SDreadattr"); if (HDstrncmp(attr_values, ATTR1_VAL, ATTR1_LEN) != 0) { fprintf(stderr, "Unmatched attribute values for dimension %s: is <%s>, should be <%s>\n", VAR1_NAME, attr_values, ATTR1_VAL); num_errs++; } /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_count */ /* Test driver for testing SD attributes. */ extern int test_attributes() { intn num_errs = 0; /* number of errors */ /* Output message about test being performed */ TESTING("various setting attribute features (tattributes.c)"); /* test when count is passed into SDsetattr as 0 */ num_errs = num_errs + test_count(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/cdftest.mak0000644000000000000000000001305712421456623015305 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "cdftest.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Console Application") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Console Application") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project CPP=cl.exe RSC=rc.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/cdftest.exe $(OUTDIR)/cdftest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /O2 /I "..\xdr" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D "HDF" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /O2 /I "..\xdr" /I "..\..\hdf\src" /I\ "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D\ "HDF" /Fo$(INTDIR)/ /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"cdftest.bsc" $(OUTDIR)/cdftest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ $(INTDIR)/cdftest.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib win32cdf.lib ..\..\hdf\src\win32hdf.lib\ ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /INCREMENTAL:no\ /PDB:$(OUTDIR)/"cdftest.pdb" /MACHINE:I386 /OUT:$(OUTDIR)/"cdftest.exe" $(OUTDIR)/cdftest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/cdftest.exe $(OUTDIR)/cdftest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /Zi /YX /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /Zi /Od /I "..\xdr" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D "HDF" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /Zi /Od /I "..\xdr" /I "..\..\hdf\src" /I\ "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D\ "HDF" /Fo$(INTDIR)/ /Fd$(OUTDIR)/"cdftest.pdb" /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"cdftest.bsc" $(OUTDIR)/cdftest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE= LINK32_OBJS= \ $(INTDIR)/cdftest.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib win32cdf.lib ..\..\hdf\src\win32hdf.lib\ ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /INCREMENTAL:yes\ /PDB:$(OUTDIR)/"cdftest.pdb" /DEBUG /MACHINE:I386 /OUT:$(OUTDIR)/"cdftest.exe" $(OUTDIR)/cdftest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\cdftest.c $(INTDIR)/cdftest.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tnetcdf.c0000644000000000000000000002266112421456623014753 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define NETCDF_READ_TEST #ifdef NETCDF_READ_TEST /* Get the srcdir string to locate the input files */ #define srcdir getenv("srcdir") /******************************************************************** Name: test_read_dim() - tests reading a dimension scale in a netCDF file. Description: The fix to detect a dimension scale/coordinate variable in HDF file caused incorrect result when attempting to retrieve the dimension scale's number type from a netCDF file (bugzilla #1644.) This test verifies that the number type of dimension scale is retrieved correctly after the fix. Return value: The number of errors occurred in this routine. BMR - Sep 23, 2009 *********************************************************************/ /* Note: This file was generated by the netCDF ncgen tool from a CDL file. The CDL file was first generated by the netCDF ncdump tool from the netCDF file slice.0000.nc in bugzilla 1644 report; then it was edited to change the dimensions to much smaller values. */ #define NC_FILE "smallslice.0000.nc" static intn test_read_dim() { int32 fid, sds_id, status, dim1_id; int32 dim_sizes[H4_MAX_VAR_DIMS]; /* read dimensions */ intn ii; int32 array_rank, num_type, attributes; char dim_name[H4_MAX_NC_NAME], name[H4_MAX_NC_NAME]; int32 size, dim_data_type, dim_num_attrs; char testfile[512] = ""; intn num_errs = 0; /* number of errors so far */ /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(NC_FILE) + 1) < sizeof(testfile))) { strcpy(testfile, srcdir); strcat(testfile, "/"); } /* Windows doesn't set srcdir, and generates files in a different relative path, so we need to special case here. It is best to look for the testfile in the same path, and the Windows test script will make sure to put it there first. - SJW 2007/09/19 */ #ifndef _WIN32 /* This is to get to the file when the library was built without srcdir option and the test is ran by ./hdftest in the src directory hdf4/mfhdf/libsrc instead of by make check. - BMR 2007/08/09 */ if (srcdir == NULL) strcpy(testfile, "./"); #endif /* _WIN32 */ strcat(testfile, NC_FILE); /* Create the file defined by BASIC_FILE and initiate the SD interface. */ fid = SDstart(testfile, DFACC_READ); CHECK(fid, FAIL, "SDstart"); /* Access first dataset to see what it is */ sds_id = SDselect(fid, 0); CHECK(sds_id, FAIL, "SDselect"); /* Get info of the dataset and verify them: it is a LENGTH0 x LENGTH1 array of type DFNT_INT16 and is named by DS0_NAME */ status = SDgetinfo(sds_id, name, &array_rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "SDgetinfo"); /* Get the first dimension id */ dim1_id = SDgetdimid(sds_id, 0); CHECK(dim1_id, FAIL, "SDgetdimid"); /* Read the dimension information */ status = SDdiminfo(dim1_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY_CHAR(dim_name, "LON", "SDdiminfo"); VERIFY(dim_data_type, 6, "SDdiminfo"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "test_dimensions: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_read_dim */ static int16 netcdf_u16[2][3] = {{1, 2, 3}, {4, 5, 6}}; /* Tests reading of netCDF file 'test1.nc' using the SDxxx inteface. Note not all features of reading SDS from netCDF files are tested here. Hopefully more tests will be added over time as needed/required. */ extern intn test_netcdf_reading() { int32 sd_id; int32 sds_id; int32 n_datasets; int32 n_file_attrs; int32 index; int32 rank; int32 num_type; int32 attributes; int32 dim_sizes[H4_MAX_VAR_DIMS]; int32 start[H4_MAX_VAR_DIMS]; int32 edges[H4_MAX_VAR_DIMS]; int16 array_data[2][3]; char name[H4_MAX_NC_NAME]; int32 status; intn i, j; intn num_errs = 0; /* number of errors so far */ const char *basename = "test1.nc"; char testfile[512] = ""; /* Output message about test being performed */ TESTING("reading of netCDF file using the SDxxx inteface (tnetcdf.c)"); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(basename) + 1) < sizeof(testfile))) { strcpy(testfile, srcdir); strcat(testfile, "/"); } /* Windows doesn't set srcdir, and generates files in a different relative path, so we need to special case here. It is best to look for the testfile in the same path, and the Windows test script will make sure to put it there first. - SJW 2007/09/19 */ #ifndef _WIN32 /* This is to get to the file 'test1.nc' when the library was built without srcdir option and the test is ran by ./hdftest in the src directory hdf4/mfhdf/libsrc instead of by make check. - BMR 2007/08/09 */ if (srcdir == NULL) strcpy(testfile, "./"); #endif /* _WIN32 */ strcat(testfile, basename); /* Open the file 'test1.nc' and initialize the SD interface. */ sd_id = SDstart(testfile, DFACC_RDONLY); CHECK(sd_id, FAIL, "netCDF Read Test 1. SDstart failed on file test1.nc"); /* Determine the contents of the file. */ status = SDfileinfo(sd_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "netCDF Read Test 1. SDfileinfo failed on file test1.nc"); /* There should be 8 datasets in the file and 1 file level attribute */ if (n_datasets != 8 ) { fprintf(stderr,"netCDF Read Test 1: SDfileinfo returned wrong number of datasets in file test1.nc \n"); num_errs++; } if (n_file_attrs != 1 ) { fprintf(stderr,"netCDF Read Test 1: SDfileinfo returned wrong number of file attributes in file test1.nc \n"); num_errs++; } /* Access and find the 2-dim dataset of data-type shorts(DFNT_INT16). in the file while querying every data set in the file. There should only be one dataset that matches and is named 'order'.*/ for (index = 0; index < n_datasets; index++) { sds_id = SDselect(sd_id, index); CHECK(sds_id, FAIL, "netCDF Read Test 1. SDselect failed for dataset in file test1.nc"); status = SDgetinfo(sds_id, name, &rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "netCDF Read Test 1. SDgetinfo failed for dataset in file test1.nc"); /* look for the dataset 'order' based on rank and number type */ if (rank == 2 && num_type == (int32)DFNT_INT16) { /* should only be one of these */ start[0] = start[1] = 0; edges [0] = dim_sizes[0]; edges [1] = dim_sizes[1]; status = SDreaddata (sds_id, start, NULL, edges, (VOIDP) array_data); CHECK(status, FAIL, "netCDF Read Test 1. SDreaddata failed for dataset in file test1.nc"); /* check the data against our buffer 'netcdf_u16[][]' */ for (j = 0; j < dim_sizes[0]; j++ ) { for (i = 0; i < dim_sizes[1]; i++) { if (array_data[j][i] != netcdf_u16[j][i]) { fprintf(stderr,"netCDF Read Test 1: bogus val read: wanted netcdf[%d][%d]=%d, read array[%d][%d]=%d \n", j,i,netcdf_u16[j][i], j,i, array_data[j][i] ); } } /* end for inner */ } /* end for outer */ } /* end access to this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "netCDF Read Test 1. SDendaccess failed for dataset in file test1.nc"); } /* end querying every dataset in file */ /* Terminate access to the SD interface and close the file. */ status = SDend(sd_id); CHECK(status, FAIL, "netCDF Read Test 1. SDend failed for file test1.nc"); /* Test reading dimension scale - bugzilla 1644 */ num_errs = num_errs + test_read_dim(); if (num_errs == 0) PASSED(); return num_errs; } /* test_netcdf_reading() */ #endif /* NETCDF_READ_TEST */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/cdftest.c0000644000000000000000000004113212421456623014752 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1988, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ static char mrcsid[] = "Id: cdftest.c,v 1.11 1994/01/10 23:07:27 chouck Exp "; /* * Program to create a cdf, exercise all cdf functions. * Creates cdf, stuff it full of numbers, closes it. Then * reopens it, and checks for consistancy. * Leaves the file around afterwards. * * Based on a program to test the nasa look-alike program, * so not the most appropropriate test. See ../nctest for a * complete spec test. */ #define REDEF /* #define SYNCDEBUG */ /* #define NOBUF */ #include #include "h4config.h" #include "H4api_adpt.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #ifdef HDF #include "hdf.h" #endif # define assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__, __LINE__);exit(1);}} #define CDFMAXSHORT 32767 #define CDFMAXLONG 2147483647 #define CDFMAXBYTE 127 #include #if defined ERRNO_MISSING extern int errno; #endif #define FILENAME "test.cdf" #define NUM_DIMS 3 #define DONT_CARE -1 /* make these numbers big when you want to give this a real workout */ #define NUM_RECS 8 #define SIZE_1 7 #define SIZE_2 8 struct { int num_dims ; int num_vars ; int num_attrs ; int xtendim ; } cdesc[1] ; struct { char mnem[H4_MAX_NC_NAME] ; nc_type type ; int ndims ; int dims[H4_MAX_VAR_DIMS] ; int num_attrs ; } vdesc[1] ; struct { char mnem[H4_MAX_NC_NAME] ; nc_type type ; int len ; } adesc[1] ; union getret { char by[8] ; short sh[4] ; nclong lng[2] ; float fl[2] ; double dbl; } ; static void chkgot(type, got, check) nc_type type ; union getret got ; double check ; { switch(type){ case NC_BYTE : assert( (char)check == got.by[0] ) ; break ; case NC_SHORT : assert( (short)check == got.sh[0] ) ; break ; case NC_LONG : assert( (nclong)check == got.lng[0] ) ; break ; case NC_FLOAT : assert( (float)check == got.fl[0] ) ; break ; case NC_DOUBLE : assert( check == got.dbl ) ; break ; } } const char *fname = FILENAME ; int num_dims = NUM_DIMS ; long sizes[] = { NC_UNLIMITED, SIZE_1 , SIZE_2 } ; const char *dim_names[] = { "record", "ixx", "iyy"} ; static void createtestdims(cdfid, num_dims, sizes, dim_names) int cdfid ; int num_dims ; long *sizes ; const char *dim_names[] ; { while(num_dims--) { assert( ncdimdef(cdfid, *dim_names++, *sizes) >= 0) ; sizes++ ; } } static void testdims(cdfid, num_dims, sizes, dim_names) int cdfid ; int num_dims ; long *sizes ; const char *dim_names[] ; { int ii ; long size ; char cp[H4_MAX_NC_NAME] ; for(ii=0 ; ii < num_dims ; ii++, sizes++) { assert( ncdiminq(cdfid, ii, cp, &size) >= 0) ; if( size != *sizes) fprintf(stderr, "%d: %ld != %ld\n", (int)ii, (long)size, (long)*sizes) ; assert( size == *sizes) ; assert( strcmp(cp, *dim_names++) == 0) ; } } const char *reqattr[] = { "UNITS", "VALIDMIN", "VALIDMAX", "SCALEMIN", "SCALEMAX", "FIELDNAM", _FillValue } ; #define NUM_RATTRS 6 struct tcdfvar { const char *mnem; nc_type type; const char *fieldnam; double validmin; double validmax; double scalemin; double scalemax; const char *units; int ndims ; int dims[NUM_DIMS]; } testvars[] = { #define Byte_id 0 { "Byte", NC_BYTE, "Byte sized integer variable", -CDFMAXBYTE, CDFMAXBYTE, -CDFMAXBYTE, CDFMAXBYTE , "ones", 2, {0,1,DONT_CARE} }, #define Short_id 1 { "Short", NC_SHORT, "Short variable", -CDFMAXSHORT, CDFMAXSHORT, -CDFMAXSHORT, CDFMAXSHORT , "ones", 2, {0, 2, DONT_CARE }}, #define Long_id 2 { "Long", NC_LONG, "Long Integer variable", -CDFMAXLONG, CDFMAXLONG, -CDFMAXLONG, CDFMAXLONG, "ones", 2, {1, 2, DONT_CARE}}, #define Float_id 3 { "Float", NC_FLOAT, "Single Precision Floating Point variable", -CDFMAXLONG, CDFMAXLONG, -CDFMAXLONG, CDFMAXLONG, "flots", 3, {0, 1, 2 }}, #define Double_id 4 { "Double", NC_DOUBLE, "Double Precision Floating Point variable", -CDFMAXLONG, CDFMAXLONG, -CDFMAXLONG, CDFMAXLONG, "dflots", 3, {0, 1, 2 }}, } ; #define NUM_TESTVARS 5 static void createtestvars(id, testvars, count ) int id ; struct tcdfvar *testvars ; int count ; { int ii ; struct tcdfvar *vp = testvars ; for(ii = 0 ; ii < count ; ii++, vp++ ) { assert(ncvardef(id, vp->mnem, vp->type, vp->ndims, vp->dims) == ii ) ; assert( ncattput(id,ii,reqattr[0],NC_CHAR,strlen(vp->units), vp->units) == 0) ; assert( ncattput(id,ii,reqattr[1],NC_DOUBLE,1, (ncvoid*)&(vp->validmin)) == 1) ; assert( ncattput(id,ii,reqattr[2],NC_DOUBLE,1, (ncvoid*)&(vp->validmax)) == 2) ; assert( ncattput(id,ii,reqattr[3],NC_DOUBLE,1, (ncvoid*)&(vp->scalemin)) == 3) ; assert( ncattput(id,ii,reqattr[4],NC_DOUBLE,1, (ncvoid*)&(vp->scalemax)) == 4) ; assert( ncattput(id,ii,reqattr[5],NC_CHAR,strlen(vp->fieldnam), vp->fieldnam) == 5) ; } } static void parray(label, count, array) char *label ; unsigned count ; long array[] ; { fprintf(stdout, "%s", label) ; fputc('\t',stdout) ; for(; count > 0 ; count--, array++) fprintf(stdout," %d", (int)*array) ; } static void fill_seq(id) int id ; { long vindices[NUM_DIMS]; long *cc, *mm ; float val ; int ii = 0 ; sizes[0] = NUM_RECS ; /* zero the indices */ cc = vindices; while (cc <= &vindices[num_dims-1]) *cc++ = 0; /* ripple counter */ cc = vindices; mm = sizes; while (*vindices < *sizes) { while (*cc < *mm) { if (mm == &sizes[num_dims - 1]) { val = ii ; #ifdef VDEBUG parray("indices", NUM_DIMS, vindices) ; printf("\t val %f\n", val) ; #endif assert( ncvarput1(id, Float_id, vindices, (ncvoid*)&val) != -1) ; (*cc)++; ii++ ; continue; } cc++; mm++; } if(cc == vindices) break ; *cc = 0; cc--; mm--; (*cc)++; } } static void check_fill_seq(id) int id ; { long vindices[NUM_DIMS]; long *cc, *mm ; union getret got ; int ii = 0; float val ; sizes[0] = NUM_RECS ; cc = vindices; while (cc <= &vindices[num_dims-1]) *cc++ = 0; /* ripple counter */ cc = vindices; mm = sizes; while (*vindices < *sizes) { while (*cc < *mm) { if (mm == &sizes[num_dims - 1]) { if(ncvarget1(id, Float_id, vindices, (ncvoid*)&got) == -1) goto bad_ret ; val = ii ; if(val != got.fl[0]) { parray("indices", (unsigned)NUM_DIMS, vindices) ; printf("\t%f != %f\n", val, got.fl[0]) ; } (*cc)++; ii++ ; continue; } cc++; mm++; } if(cc == vindices) break ; *cc = 0; cc--; mm--; (*cc)++; } return ; bad_ret : printf("couldn't get a var in check_fill_seq() %d\n", (int)ii) ; return ; } long indices[][3] = { {0, 1, 3}, {0, 3, 0}, {1, 2, 3}, {3, 2, 1}, {2, 1, 3}, {1, 0, 0}, {0, 0, 0}, } ; char chs[] = {'A','B', ((char)0xff) } ; long s_start[] = {0,1}; long s_edges[] = {NUM_RECS, SIZE_1 - 1}; char sentence[NUM_RECS* SIZE_1 -1] = "The red death had long devastated the country." ; short shs[] = {97, 99} ; nclong birthday = 82555 ; #define M_E 2.7182818284590452354 float e = (float)M_E ; double pinot = 3.25 ; double zed = 0.0 ; #if defined TEST_PC || defined TEST_WIN #include FILE *dbg_file; #endif #ifdef PROTOTYPE int main(int argc, char *argv[]) #else int main(argc, argv) int argc; char *argv[]; #endif { int ret ; int id ; char new[256]; #ifdef SYNCDEBUG char *str = "one" ; #endif int ii ; long iilong ; struct tcdfvar *tvp = testvars ; union getret got ; #if defined TEST_PC || defined TEST_WIN dbg_file=fopen("test.dbg","w+"); #endif #ifdef MDEBUG malloc_debug(2) ; #endif /* MDEBUG */ ncopts = NC_VERBOSE ; /* errors non fatal */ id = nccreate(fname,NC_NOCLOBBER) ; if( id == -1 ) { fprintf(stderr, "trying again\n") ; id = nccreate(fname,NC_CLOBBER) ; } if( id == -1 ) exit(errno) ; #ifdef NOBUF assert( ncnobuf(id) != 1 ) ; #endif /* NOBUF */ assert( ncattput(id, NC_GLOBAL, "TITLE", NC_CHAR, 12, "another name") != -1) ; assert( ncattget(id, NC_GLOBAL, "TITLE", (ncvoid*)new) != -1) ; /* printf("title 1 \"%s\"\n", new) ; */ assert( ncattput(id, NC_GLOBAL, "TITLE", NC_CHAR, strlen(fname), fname) != -1) ; assert( ncattget(id, NC_GLOBAL, "TITLE", (ncvoid*)new) != -1) ; new[strlen(fname)] = 0 ; /* printf("title 2 \"%s\"\n", new) ; */ assert( strcmp(fname, new) == 0) ; assert( ncattput(id, NC_GLOBAL, "RCSID", NC_CHAR, strlen(mrcsid), (ncvoid*)mrcsid) != -1) ; createtestdims(id, NUM_DIMS, sizes, dim_names) ; testdims(id, NUM_DIMS, sizes, dim_names) ; createtestvars(id, testvars, NUM_TESTVARS) ; { long lfill = -1 ; double dfill = -9999 ; assert( ncattput(id, Long_id, _FillValue, NC_LONG, 1, (ncvoid*)&lfill) != -1) ; assert( ncattput(id, Double_id, _FillValue, NC_DOUBLE, 1, (ncvoid*)&dfill ) != -1) ; } #ifdef REDEF assert( ncendef(id) != -1 ) ; assert( ncvarput1(id, Long_id, indices[3], (ncvoid *)&birthday) != -1 ) ; fill_seq(id) ; assert( ncredef(id) != -1 ) ; #endif assert( ncdimrename(id,1, "IXX") >= 0) ; assert( ncdiminq(id, 1, new, &iilong) >= 0) ; printf("dimrename: %s\n", new) ; assert( ncdimrename(id,1, dim_names[1]) >= 0) ; #ifdef ATTRX assert( ncattrename(id, 1, "UNITS", "units") != -1) ; assert( ncattdel(id, 4, "FIELDNAM") != -1) ; assert( ncattdel(id, 2, "SCALEMIN") != -1) ; assert( ncattdel(id, 2, "SCALEMAX") != -1) ; #endif /* ATTRX */ assert( ncendef(id) != -1 ) ; #ifndef REDEF fill_seq(id) ; assert( ncvarput1(id, Long_id, indices[3],(char *)&birthday) != -1 ) ; #endif assert( ncvarput(id, Byte_id, s_start, s_edges, (ncvoid*)sentence) != -1 ) ; assert( ncvarput1(id, Byte_id, indices[6], (ncvoid*)(chs+1)) != -1 ) ; assert( ncvarput1(id, Byte_id, indices[5], (ncvoid*)chs) != -1 ) ; assert( ncvarput1(id, Short_id, indices[4],(ncvoid *)shs) != -1 ) ; assert( ncvarput1(id, Float_id, indices[2],(ncvoid *)&e) != -1 ) ; assert( ncvarput1(id, Double_id, indices[1],(ncvoid *)&zed) != -1 ) ; assert( ncvarput1(id, Double_id, indices[0], (ncvoid *)&pinot) != -1 ); #ifdef SYNCDEBUG printf("Hit Return to sync\n"); gets(str); ncsync(id,0) ; printf("Sync done. Hit Return to continue\n"); gets(str); #endif /* SYNCDEBUG */ ret = ncclose(id) ; printf("ncclose ret = %d\n\n", (int)ret) ; /* * read it */ id = ncopen(fname,NC_NOWRITE) ; if( id == -1 ) { printf("Could not open %s\n", fname ); exit(1) ; } printf("reopen id = %d for filename %s\n", (int)id, fname) ; #ifdef NOBUF assert( ncnobuf(id) != 1 ) ; #endif /* NOBUF */ /* NC */ printf("NC ") ; assert( ncinquire(id, &(cdesc->num_dims), &(cdesc->num_vars), &(cdesc->num_attrs), &(cdesc->xtendim) ) == id) ; if(cdesc->num_dims != num_dims ) { printf(" num_dims : %d != %d\n", (int)cdesc->num_dims, (int)num_dims ) ; exit(1) ; } assert(cdesc->num_vars == NUM_TESTVARS) ; printf("done\n") ; /* GATTR */ printf("GATTR ") ; assert(cdesc->num_attrs == 2) ; assert( ncattname(id, NC_GLOBAL, 0, adesc->mnem) == 0) ; assert(strcmp("TITLE",adesc->mnem) == 0) ; assert( ncattinq(id, NC_GLOBAL, adesc->mnem, &(adesc->type), &(adesc->len)) != -1) ; assert( adesc->type == NC_CHAR ) ; assert( adesc->len == strlen(fname) ) ; assert( ncattget(id, NC_GLOBAL, "TITLE", (ncvoid *)new) != -1) ; new[adesc->len] = 0 ; assert( strcmp(fname, new) == 0) ; /* printf("Global %s %s\n", adesc->mnem, new) ; */ assert( ncattname(id, NC_GLOBAL, 1, adesc->mnem) == 1) ; assert(strcmp("RCSID",adesc->mnem) == 0) ; assert( ncattinq(id, NC_GLOBAL, adesc->mnem, &(adesc->type), &(adesc->len)) != -1) ; assert( adesc->type == NC_CHAR ) ; assert( adesc->len == strlen(mrcsid) ) ; assert( ncattget(id, NC_GLOBAL, "RCSID", (ncvoid *)new) != -1) ; new[adesc->len] = 0 ; assert( strcmp(mrcsid, new) == 0) ; /* printf("Global %s %s\n", adesc->mnem, new) ; */ /* VAR */ printf("VAR ") ; assert( cdesc->num_vars == NUM_TESTVARS ) ; for(ii = 0 ; ii < cdesc->num_vars ; ii++, tvp++ ) { int jj ; assert( ncvarinq(id, ii, vdesc->mnem, &(vdesc->type), &(vdesc->ndims), vdesc->dims, &(vdesc->num_attrs)) == ii) ; if(strcmp(tvp->mnem , vdesc->mnem) != 0) { printf("attr %d mnem mismatch %s, %s\n", (int)ii, tvp->mnem, vdesc->mnem) ; continue ; } if(tvp->type != vdesc->type) { printf("attr %d type mismatch %d, %d\n", (int)ii, tvp->type, (int)vdesc->type) ; continue ; } for(jj = 0 ; jj < vdesc->ndims ; jj++ ) { if(tvp->dims[jj] != vdesc->dims[jj] ) { printf( "inconsistant dim[%d] for variable %d: %d != %d\n", (int)jj, (int)ii, (int)tvp->dims[jj], (int)vdesc->dims[jj] ) ; continue ; } } /* VATTR */ printf("VATTR\n") ; for(jj=0 ; jjnum_attrs ; jj++ ) { assert( ncattname(id, ii, jj, adesc->mnem) == jj) ; if( strcmp(adesc->mnem, reqattr[jj]) != 0 ) { printf("var %d attr %d mismatch %s != %s\n", (int)ii, (int)jj, adesc->mnem, reqattr[jj] ) ; break ; } } if( ncattinq(id, ii, reqattr[0], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_CHAR ) ; assert( adesc->len == strlen(tvp->units) ) ; assert( ncattget(id,ii,reqattr[0],(ncvoid *)new) != -1) ; new[adesc->len] = 0 ; assert( strcmp(tvp->units, new) == 0) ; } if( ncattinq(id, ii, reqattr[1], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_DOUBLE ) ; assert( adesc->len == 1 ) ; assert( ncattget(id,ii,reqattr[1],(ncvoid *)&got) != -1) ; chkgot(adesc->type, got, tvp->validmin) ; } if( ncattinq(id, ii, reqattr[2], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_DOUBLE ) ; assert( adesc->len == 1 ) ; assert( ncattget(id,ii,reqattr[2],(ncvoid *)&got) != -1) ; chkgot(adesc->type, got, tvp->validmax) ; } if( ncattinq(id, ii, reqattr[3], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_DOUBLE ) ; assert( adesc->len ==1 ) ; assert( ncattget(id,ii,reqattr[3],(ncvoid *)&got) != -1) ; chkgot(adesc->type, got, tvp->scalemin) ; } if( ncattinq(id, ii, reqattr[4], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_DOUBLE ) ; assert( adesc->len == 1 ) ; assert( ncattget(id,ii,reqattr[4],(ncvoid *)&got) != -1) ; chkgot(adesc->type, got, tvp->scalemax) ; } if( ncattinq(id, ii, reqattr[5], &(adesc->type), &(adesc->len)) != -1) { assert( adesc->type == NC_CHAR ) ; assert( adesc->len == strlen(tvp->fieldnam) ) ; assert( ncattget(id,ii,reqattr[5],(ncvoid *)new) != -1) ; new[adesc->len] = 0 ; assert( strcmp(tvp->fieldnam, new) == 0) ; } } printf("fill_seq ") ; check_fill_seq(id) ; printf("Done\n") ; assert( ncvarget1(id, Double_id, indices[0], (ncvoid *)&got) != -1) ; printf("got val = %f\n", got.dbl ) ; assert( ncvarget1(id, Double_id, indices[1], (ncvoid *)&got) != -1) ; printf("got val = %f\n", got.dbl ) ; assert( ncvarget1(id, Float_id, indices[2], (ncvoid *)&got) != -1) ; printf("got val = %f\n", got.fl[0] ) ; assert( ncvarget1(id, Long_id, indices[3], (ncvoid *)&got) != -1) ; printf("got val = %ld\n", (long)got.lng[0] ) ; assert( ncvarget1(id, Short_id, indices[4], (ncvoid *)&got) != -1) ; printf("got val = %d\n", (int)got.sh[0] ) ; assert( ncvarget1(id, Byte_id, indices[5], (ncvoid *)&got) != -1) ; printf("got val = %c (0x%02x) \n", got.by[0] , got.by[0]) ; assert( ncvarget1(id, Byte_id, indices[6], (ncvoid *)&got) != -1) ; printf("got val = %c (0x%02x) \n", got.by[0], got.by[0] ) ; /* (void)memset(new,0,256) ; */ { char *cp = new; for(; cp < &new[sizeof(new)-1] ; *cp++ = 0) ; } assert( ncvarget(id, Byte_id, s_start, s_edges, (ncvoid *)new) != -1 ) ; printf("got val = \"%s\"\n", new) ; ret = ncclose(id) ; printf("re ncclose ret = %d\n", (int)ret) ; #if defined TEST_PC || defined TEST_WIN fclose(dbg_file); #endif return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/hdfnctest.c0000644000000000000000000000400512421456623015276 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5109 $"; #endif #include "mfhdf.h" #include "hdftest.h" /* all test functions to be called in main */ extern int test_unlim(); extern int test_ncunlim(); extern int test_ncvargetfill(); int main(int argc, char *argv[]) { intn status; /* status flag */ int num_errs = 0; /* number of errors so far */ /* Tests reading/writing datasets with unlimited dimension via HDF API (bugzilla 1378) -BMR, Jan 07, 2009 */ status = test_unlim(); /* in tunlim.c */ num_errs = num_errs + status; /* Tests reading/writing variables with unlimited dimension via nc API (bugzilla 1378) -BMR, Jan 07, 2009 */ status = test_ncunlim(); /* in tncunlim.c */ num_errs = num_errs + status; /* Tests ncvarget in filling fill-values where appropriate (HDFFR-1390) -BMR, Sep 05, 2013 */ status = test_ncvargetfill(); /* in tncvargetfill.c */ num_errs = num_errs + status; if (num_errs == 0) printf("*** HDF-nc test passes ***\n"); else \ printf("*** HDF-nc test fails ***\n"); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/test1.nc0000644000000000000000000000152412421456623014535 0ustar CDF ijkl historyˆThis is an example of a multi-line global attribute. It could be used for representing the processing history of the data, for example. bears acttext string 123acsÿØaclBhacfÀ?€acd¿ð?è¸order ÌshotØaloanðcross0i8j @lLindistinguishable@@@€@ @À@àShÔ¥@@?0@@ B _ @@€@À €libhdf4-4.2.10/HDF_ALT/mfhdf/test/tdatasizes.c0000644000000000000000000006040512421456623015475 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tdatasizes.c - tests the API SDgetdatasize. * Structure of the file: * test_datasizes - test driver * test_nonspecial_SDSs - tests nonspecial SDSs * test_compressed_SDSs - tests compressed SDSs without closing file * test_empty_SDSs - tests on empty chunked and chunked/comp SDSs * test_chunked_partial - tests on chunked and partially written SDS * test_chkcmp_SDSs - tests chunked/compressed SDSs * test_extend_SDSs - tests SDSs with unlimited dimensions * check_datasizes - utility routine that calls SDgetdatasize and verifies * the retrieved data sizes. * NOTE: At this time, SDgetdatasize will not return the correct compressed * size unless SDreaddata or SDendaccess is called between SDwritedata * and SDgetdatasize. ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define FILE_NAME "datasizes.hdf" /* data file to test empty SDSs */ #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 /* Utility routine that selects that named SDS, then calls SDgetdatasize * and verifies the returned values. */ static void check_datasizes( int32 fid, /* file id */ char* sds_name, /* name of the inquired SDS */ int32 comp_size_check, /* expected compressed data size */ int32 uncomp_size_check,/* expected non-compressed data size */ int* ret_num_errs /* current number of errors */ ) { int32 sds_id, sds_index; intn status; int num_errs = 0; char mesg[80]; int32 uncomp_size=0, comp_size=0; /* Get index of dataset using its name */ sds_index = SDnametoindex(fid, sds_name); sprintf(mesg, "check_datasizes: SDnametoindex (%s)", sds_name); CHECK(sds_index, FAIL, mesg); /* Select the dataset */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "check_datasizes: SDselect"); /* The retrieved values from SDgetdatasize are verified against 'comp_size_check' and 'uncomp_size_check' */ status = SDgetdatasize(sds_id, &comp_size, &uncomp_size); sprintf(mesg, "SDgetdatasize: SDS named (%s)", sds_name); CHECK(status, FAIL, mesg); VERIFY(comp_size, comp_size_check, mesg); VERIFY(uncomp_size, uncomp_size_check, mesg); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "check_datasizes: SDendaccess"); *ret_num_errs = num_errs; } /* check_datasizes */ /* Test non-special SDSs. This routine creates non-special SDSs, writes * data to one of the SDSs, and checks the sizes returned by SDgetdatasize */ static intn test_nonspecial_SDSs(int32 fid) { int32 sds_id; int32 dimsize[2], start[2], edges[2]; int32 data[Y_LENGTH][X_LENGTH]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Initialize data for the dataset */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } /* Create a 2x2 dataset called "EmptyDataset" */ dimsize[0] = Y_LENGTH; dimsize[1] = X_LENGTH; sds_id = SDcreate(fid, "EmptyDataset", DFNT_FLOAT32, 2, dimsize); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate 'EmptyDataset'"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* Check that this SDS is empty */ check_datasizes(fid, "EmptyDataset", 0, 0, &num_errs); /* Create another 2x2 dataset called "WrittenDataset" */ sds_id = SDcreate(fid, "WrittenDataset", DFNT_INT32, 2, dimsize); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate 'WrittenDataset'"); /* Define the location and size of the data to be written to the dataset */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Write the stored data to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDwritedata"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* Check the size of the data of this SDS */ check_datasizes(fid, "WrittenDataset", Y_LENGTH*X_LENGTH*SIZE_INT32, Y_LENGTH*X_LENGTH*SIZE_INT32, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_nonspecial_SDSs */ /* Test compressed SDSs. This routine creates "Compressed-No-Data" and creates * and writes to "CompressedData" and "Non-CompressedData" SDSs. It will then * check the sizes returned from SDgetdatasize calls. */ static intn test_compressed_SDSs(int32 fid) { int32 sds_id, esds_id, usds_id; int32 start[2], edges[2], dim_sizes[2]; comp_coder_t comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int32 data[Y_LENGTH][X_LENGTH]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Buffer array data and define array dimensions */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /* Create datasets, one to be written with data, the other not */ sds_id = SDcreate(fid, "CompressedData", DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'CompressedData'"); esds_id = SDcreate(fid, "Compressed-No-Data", DFNT_INT32, RANK, dim_sizes); CHECK(esds_id, FAIL, "test_compressed_SDSs: SDcreate 'Compressed-No-Data'"); usds_id = SDcreate(fid, "Non-CompressedData", DFNT_INT32, RANK, dim_sizes); CHECK(usds_id, FAIL, "test_compressed_SDSs: SDcreate 'Non-CompressedData'"); comp_type = COMP_CODE_DEFLATE; c_info.deflate.level = 6; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "test_compressed_SDSs: SDsetcompress 'CompressedData'"); status = SDsetcompress(esds_id, comp_type, &c_info); CHECK(status, FAIL, "test_compressed_SDSs: SDsetcompress 'Compressed-No-Data'"); /* Define the location and size of the dataset to be written to the file */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Write the stored data to the compressed dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata"); /* Write the stored data to the dataset non-compressed dataset */ status = SDwritedata(usds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata"); /* Close the SDSs */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'CompressedData'"); status = SDendaccess(esds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'Compressed-No-Data'"); status = SDendaccess(usds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'Non-CompressedData'"); /* Check the size of the data of this SDS - 59 is from examining previously */ check_datasizes(fid, "CompressedData", 59, Y_LENGTH*X_LENGTH*SIZE_INT32, &num_errs); /* Check the size of the data of this SDS */ check_datasizes(fid, "Compressed-No-Data", 0, 0, &num_errs); /* Check the size of the data of this SDS */ check_datasizes(fid, "Non-CompressedData", Y_LENGTH*X_LENGTH*SIZE_INT32, Y_LENGTH*X_LENGTH*SIZE_INT32, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_compressed_SDSs */ /* Test with empty SDSs. This routine creates a "Chunked Empty" SDS and a * "Chunked Compressed Empty" SDS then uses SDgetdatasize to verify that they * don't have data. */ #define X_LENGTH2 4 #define Y_LENGTH2 9 #define CHK_X 3 #define CHK_Y 2 static intn test_empty_SDSs(int32 fid) { int32 ch_sds_id, chcp_sds_id; int32 dim_sizes[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 flag; intn status; int num_errs = 0; /* number of errors so far */ c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; /* Create Y_LENGTH2 x X_LENGTH2 empty chunked and chunked/compressed SDSs */ dim_sizes[0] = Y_LENGTH2; dim_sizes[1] = X_LENGTH2; ch_sds_id = SDcreate(fid, "Chunked Empty", DFNT_INT16, RANK, dim_sizes); CHECK(ch_sds_id, FAIL, "test_empty_SDSs: SDcreate 'Chunked Empty'"); chcp_sds_id = SDcreate(fid, "Chunked Compressed Empty", DFNT_INT16, RANK, dim_sizes); CHECK(chcp_sds_id, FAIL, "test_empty_SDSs: SDcreate 'Chunked Compressed Empty'"); /* Set info for chunking */ flag = HDF_CHUNK; status = SDsetchunk(ch_sds_id, c_def, flag); CHECK(status, FAIL, "test_empty_SDSs: SDsetchunk"); /* Set info for chunking and compression */ flag = HDF_CHUNK | HDF_COMP; c_def.comp.comp_type = COMP_CODE_DEFLATE; c_def.comp.cinfo.deflate.level = 6; status = SDsetchunk(chcp_sds_id, c_def, flag); CHECK(status, FAIL, "test_empty_SDSs: SDsetchunk"); /* Terminate access to the datasets */ status = SDendaccess(ch_sds_id); CHECK(status, FAIL, "test_empty_SDSs: SDendaccess 'Chunked Empty'"); status = SDendaccess(chcp_sds_id); CHECK(status, FAIL, "test_empty_SDSs: SDendaccess 'Chunked Compressed Empty'"); /* Check the size of the data of 'Chunked Empty' */ check_datasizes(fid, "Chunked Empty", 0, 0, &num_errs); /* Check the size of the data of 'Chunked Compressed Empty' */ check_datasizes(fid, "Chunked Compressed Empty", 0, 0, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_empty_SDSs */ /* Test with chunked and partially written SDS. This routine creates a * "Chunked Not Empty" SDS and writes some chunks but not all to it. It will * then call SDgetdatasize to verify the sizes. */ static intn test_chunked_partial(int32 fid) { int32 sds_id, sds_index; int32 dim_sizes[RANK], origin[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 flag; /* Chunking flag */ int16 fill_value = 0; /* Fill value */ intn status; int num_errs = 0; /* number of errors so far */ /* Declare chunks data type and initialize some of them. */ int16 chunk1[CHK_X][CHK_Y] = { {1, 1}, {1, 1}, {1, 1} }; int16 chunk3[CHK_X][CHK_Y] = { {3, 3}, {3, 3}, {3, 3} }; /* Initialize chunk size */ HDmemset(&c_def, 0, sizeof(c_def)) ; c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; /* Create Y_LENGTH2 x X_LENGTH2 SDS */ dim_sizes[0] = X_LENGTH2; dim_sizes[1] = Y_LENGTH2; sds_id = SDcreate(fid, "Chunked Not Empty", DFNT_INT16, RANK, dim_sizes); CHECK(sds_id, FAIL, "test_chunked_partial: SDcreate 'Chunked Not Empty'"); /* Fill the SDS array with the fill value */ status = SDsetfillvalue(sds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "test_chunked_partial: SDsetfillvalue"); /* Set info for chunking */ flag = HDF_CHUNK; status = SDsetchunk(sds_id, c_def, flag); CHECK(status, FAIL, "test_chunked_partial: SDsetchunk"); /* Write partially to 'Chunked Not Empty' and check the sizes */ /* Write the chunk with the coordinates (0,0) */ origin[0] = 0; origin[1] = 0; status = SDwritechunk(sds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "test_chunked_partial: SDwritechunk"); /* Write the chunk with the coordinates (1,0) */ origin[0] = 1; origin[1] = 0; status = SDwritechunk(sds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "test_chunked_partial: SDwritechunk"); /* Terminate access to the "Chunked Not Empty" dataset */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chunked_partial: SDendaccess 'Chunked Not Empty'"); /* Check the size of the data of this SDS - only chunked, not compressed, so both values should be the same; there are two chunks of size CHK_X*CHK_Y in type int16 written */ check_datasizes(fid, "Chunked Not Empty", CHK_X*CHK_Y*SIZE_INT16*2, CHK_X*CHK_Y*SIZE_INT16*2, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_chunked_partial */ /* Test with chunked and compressed SDS. This routine creates * "ChunkedDeflateData" and "ChunkedNoDeflateData" SDSs and writes the same * data to both. It will then use SDgetdatasize to verify the sizes. */ static intn test_chkcmp_SDSs(int32 fid) { int32 sds_id, sds_index; int32 cmpsds_id, cmpsds_index; int32 flag, maxcache, new_maxcache; int32 dim_sizes[RANK], origin[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 fill_value = 0; /* Fill value */ int32 comp_size1=0, uncomp_size1=0; int32 comp_size2=0, uncomp_size2=0; intn status; int num_errs = 0; /* number of errors so far */ /* Declare chunks data type and initialize some of them. */ int16 chunk1[CHK_X][CHK_Y] = { {1, 1}, {1, 1}, {1, 1} }; int16 chunk3[CHK_X][CHK_Y] = { {3, 3}, {3, 3}, {3, 3} }; int32 chunk2[CHK_X][CHK_Y] = { {2, 2}, {2, 2}, {2, 2} }; /* Initialize chunk size */ HDmemset(&c_def, 0, sizeof(c_def)) ; c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; /* Create Y_LENGTH2 x X_LENGTH2 SDS */ dim_sizes[0] = Y_LENGTH2; dim_sizes[1] = X_LENGTH2; cmpsds_id = SDcreate(fid, "ChunkedDeflateData", DFNT_INT32, RANK, dim_sizes); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDcreate 'ChunkedDeflateData'"); sds_id = SDcreate(fid, "ChunkedNoDeflateData", DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDcreate 'ChunkedNoDeflateData'"); /* Fill the SDS array with the fill value */ status = SDsetfillvalue(cmpsds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetfillvalue 'ChunkedDeflateData'"); status = SDsetfillvalue(sds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetfillvalue 'ChunkedNoDeflateData'"); /* Set info for chunking and compression */ flag = HDF_CHUNK | HDF_COMP; c_def.comp.comp_type = COMP_CODE_DEFLATE; c_def.comp.cinfo.deflate.level = 6; status = SDsetchunk(cmpsds_id, c_def, flag); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetchunk 'ChunkedDeflateData'"); /* Set info for chunking and compression */ HDmemset(&c_def, 0, sizeof(c_def)) ; c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; flag = HDF_CHUNK; status = SDsetchunk(sds_id, c_def, flag); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetchunk 'ChunkedNoDeflateData'"); /* Set chunk cache to hold maximum of 3 chunks */ maxcache = 3; flag = 0; new_maxcache = SDsetchunkcache(cmpsds_id, maxcache, flag); CHECK(new_maxcache, FAIL, "test_chkcmp_SDSs: SDsetchunkcache 'ChunkedDeflateData'"); new_maxcache = SDsetchunkcache(sds_id, maxcache, flag); CHECK(new_maxcache, FAIL, "test_chkcmp_SDSs: SDsetchunkcache 'ChunkedNoDeflateData'"); /* Terminate access to the dataset before writing data to it. */ status = SDendaccess(cmpsds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedDeflateData'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedNoDeflateData'"); /* Check that this SDS is still empty after the call to SDsetchunk */ check_datasizes(fid, "ChunkedDeflateData", 0, 0, &num_errs); check_datasizes(fid, "ChunkedNoDeflateData", 0, 0, &num_errs); /* Re-select the datasets, write chunks using SDwritechunk function, then check their data sizes */ /* Get index of dataset using its name */ cmpsds_index = SDnametoindex(fid, "ChunkedDeflateData"); CHECK(cmpsds_index, FAIL, "test_chkcmp_SDSs: SDnametoindex 'ChunkedDeflateData'"); sds_index = SDnametoindex(fid, "ChunkedNoDeflateData"); CHECK(sds_index, FAIL, "test_chkcmp_SDSs: SDnametoindex 'ChunkedNoDeflateData'"); /* Select the datasets for access */ cmpsds_id = SDselect(fid, cmpsds_index); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDselect 'ChunkedDeflateData'"); sds_id = SDselect(fid, sds_index); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDselect 'ChunkedNoDeflateData'"); /* Write the chunk with the coordinates (0,0) */ origin[0] = 0; origin[1] = 0; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedDeflateData'"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedNoDeflateData'"); /* Write the chunk with the coordinates (1,0) */ origin[0] = 1; origin[1] = 0; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedDeflateData'"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedNoDeflateData'"); /* Write the chunk with the coordinates (0,1) */ origin[0] = 0; origin[1] = 1; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk2); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedDeflateData'"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk2); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk 'ChunkedNoDeflateData'"); /* Terminate access to the datasets */ status = SDendaccess(cmpsds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedDeflateData'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedNoDeflateData'"); /* Verify the compressed and non-compressed data sizes of the datasets */ /* Open dataset 'ChunkedDeflateData' */ cmpsds_id = SDselect(fid, cmpsds_index); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDselect 'ChunkedDeflateData'"); /* Get the data sizes */ status = SDgetdatasize(cmpsds_id, &comp_size1, &uncomp_size1); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetdatasize 'ChunkedDeflateData'"); /* Open dataset 'ChunkedNoDeflateData' */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDselect 'ChunkedNoDeflateData'"); /* Get the data sizes */ status = SDgetdatasize(sds_id, &comp_size2, &uncomp_size2); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetdatasize 'ChunkedNoDeflateData'"); /* Non-compressed data sizes of the two datasets should be the same */ VERIFY(uncomp_size1, uncomp_size2, "test_chkcmp_SDSs: non-compressed data sizes might be incorrect"); /* In this test, compressed data size should be smaller than non-compressed data size */ if (comp_size1 >= uncomp_size1) { printf("*** Routine test_chkcmp_SDSs: FAILED at line %d ***\n", __LINE__); printf(" In this test, compressed data size (%d) should be smaller than non-compressed data size (%d)\n", comp_size1, uncomp_size1); num_errs++; } /* Terminate access to the data sets. */ status = SDendaccess(sds_id); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedNoDeflateData'"); status = SDendaccess(cmpsds_id); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDendaccess 'ChunkedDeflateData'"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_chkcmp_SDSs */ /* Test SDSs with unlimited dimensions. This routine creates SDSs with unlimited dimensions, writes data to it, and checks the sizes returned by SDgetdatasize */ static intn test_extend_SDSs(int32 fid) { int32 sds_id, sds_index; int32 dimsize[2], start[2], edges[2]; int32 dimsize1[1], start1[1], edges1[1]; int32 data[Y_LENGTH][X_LENGTH]; float fdata[Y_LENGTH]; int32 output[Y_LENGTH][X_LENGTH]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Initialize data for the dataset */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } /* Create a 2x2 dataset called "EmptyDataset" */ dimsize[0] = SD_UNLIMITED; dimsize[1] = X_LENGTH; sds_id = SDcreate(fid, "AppendableDataset 1", DFNT_INT32, 2, dimsize); CHECK(sds_id, FAIL, "test_extend_SDSs: SDcreate 'AppendableDataset 1'"); /* Write the stored data to the dataset */ start[0] = start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(sds_id, FAIL, "test_extend_SDSs: SDwritedata"); /* Check data. */ HDmemset(&output, 0, sizeof(output)); status = SDreaddata(sds_id, start, NULL, edges, (VOIDP)output); CHECK(sds_id, FAIL, "test_extend_SDSs: SDreaddata"); /* Initialize data for the dataset */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) if (output[j][i] != data[j][i]) fprintf(stderr, "Read value (%d) differs from written (%d) at [%d,%d]\n", output[j][i], data[j][i], j, i); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Check that this SDS is empty */ check_datasizes(fid, "AppendableDataset 1", Y_LENGTH*X_LENGTH*SIZE_INT32, Y_LENGTH*X_LENGTH*SIZE_INT32, &num_errs); /* Create another dataset with 1 unlimited dimension */ sds_id = SDcreate(fid, "AppendableDataset 2", DFNT_FLOAT64, 1, dimsize); CHECK(sds_id, FAIL, "test_extend_SDSs: SDcreate 'AppendableDataset 2'"); /* Define the location and size of the data to be written to the dataset */ start1[0] = 0; edges1[0] = Y_LENGTH; /* Write the stored data to the dataset */ status = SDwritedata(sds_id, start1, NULL, edges1, (VOIDP)fdata); CHECK(sds_id, FAIL, "test_extend_SDSs: SDwritedata"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Check the size of the data of this SDS */ check_datasizes(fid, "AppendableDataset 2", Y_LENGTH*SIZE_FLOAT64, Y_LENGTH*SIZE_FLOAT64, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_extend_SDSs */ /* Test driver for testing the API SDgetdatasize. */ extern int test_datasizes() { int32 fid; intn status; int num_errs = 0; /* Output message about test being performed */ TESTING("getting data size of special data (tdatasizes.c)"); /* Open the file and initialize the SD interface */ fid = SDstart(FILE_NAME, DFACC_CREATE); CHECK(fid, FAIL, "test_datasizes: SDstart"); /* Test nonspecial SDSs */ num_errs = num_errs + test_nonspecial_SDSs(fid); /* Test compressed SDSs */ num_errs = num_errs + test_compressed_SDSs(fid); /* Test chunked empty SDSs */ num_errs = num_errs + test_empty_SDSs(fid); /* Test chunked_partial SDSs */ num_errs = num_errs + test_chunked_partial(fid); /* Test chunked SDSs */ num_errs = num_errs + test_chkcmp_SDSs(fid); /* Test extendable SDSs */ num_errs = num_errs + test_extend_SDSs(fid); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "test_datasizes: SDend"); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tcomp.c0000644000000000000000000006574612421456623014461 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tcomp.c - tests various compression functionality * Structure of the file: * test_compression - test driver * test_various_comps - creates several data sets with different * compression methods. * ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" /******************************************************************** Name: test_various_comps() - creates several data sets with different compression methods. Description: This function creates and writes data to 3 data sets using three compression methods, deflate, skipping huffman, and szip, in that order. The output file can be used to test display tools like hdp. Return value: The number of errors occurred in this routine. BMR - May 18, 2007 *********************************************************************/ #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #define FILE_NAME "sds_compressed.hdf" #define SDS1_NAME "SDSgzip" #define SDS2_NAME "SDSskiphuff" #define SDS3_NAME "SDSszip" #define X_LENGTH 5 #define Y_LENGTH 16 #define RANK 2 static intn test_various_comps() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int32 start[2], edges[2], dim_sizes[2]; int32 data[Y_LENGTH][X_LENGTH]; int32 pixels_per_scanline; intn num_errs = 0; /* number of errors in compression test so far */ int i, j; /********************* End of variable declaration ***********************/ /* Buffer array data and define array dimensions. */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /* Create the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_CREATE); CHECK(sd_id, FAIL, "SDstart"); /* Define the location and size of the data set to be written to the file. */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Create 1st data set for GZIP compression. */ sds_id = SDcreate (sd_id, SDS1_NAME, DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "SDcreate"); /* Set data set SDS1_NAME to use GZIP compression. */ HDmemset(&c_info, 0, sizeof(c_info)); comp_type = COMP_CODE_DEFLATE; c_info.deflate.level = 6; status = SDsetcompress (sds_id, comp_type, &c_info); CHECK(status, FAIL, "SDsetcompress"); /* Write the stored data to the 1st data set. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the 1st data set. */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); /* Create 2nd data set for Skipping Huffman compression. */ sds_id = SDcreate (sd_id, SDS2_NAME, DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "SDcreate"); /* Set data set SDS2_NAME to use Skipping Huffman compression. */ HDmemset(&c_info, 0, sizeof(c_info)); comp_type = COMP_CODE_SKPHUFF; c_info.skphuff.skp_size = 4; status = SDsetcompress (sds_id, comp_type, &c_info); CHECK(status, FAIL, "SDsetcompress"); /* Write the stored data to the 2nd data set. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the 2nd data set. */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); #ifdef H4_HAVE_SZIP_ENCODER /* we have szip library with encoder */ /* Create 3rd data set for SZIP compression. */ sds_id = SDcreate (sd_id, SDS3_NAME, DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "SDcreate"); /* Set data set SDS3_NAME to use SZIP compression. */ comp_type = COMP_CODE_SZIP; pixels_per_scanline = dim_sizes[1]; c_info.szip.pixels = dim_sizes[0]*dim_sizes[1];; c_info.szip.pixels_per_block = 2; if(pixels_per_scanline >=2048) c_info.szip.pixels_per_scanline = 512; else c_info.szip.pixels_per_scanline = dim_sizes[1]; c_info.szip.options_mask = SZ_EC_OPTION_MASK; c_info.szip.options_mask |= SZ_RAW_OPTION_MASK; c_info.szip.bits_per_pixel = 64; status = SDsetcompress (sds_id, comp_type, &c_info); CHECK(status, FAIL, "SDsetcompress"); /* Write the stored data to the 3rd data set. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the 3rd data set. */ status = SDendaccess (sds_id); CHECK(status, FAIL, "SDendaccess"); #endif /* Terminate access to the SD interface and close the file. */ status = SDend (sd_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_various_comps */ #define COMPFILE1 "comptst1.hdf" #define COMPFILE2 "comptst2.hdf" #define COMPFILE3 "comptst3.hdf" #define COMPFILE4 "comptst4.hdf" #define COMPFILE5 "comptst5.hdf" #define COMPFILE6 "comptst6.hdf" #define COMPFILE7 "comptst7.hdf" static int test_compressed_data() { int32 fcomp; /* File handle */ int32 index; /* Index of a dataset */ int32 nt; /* Number type */ int32 dimsize[10]; /* dimension sizes */ int32 newsds, newsds2; /* SDS handles */ comp_coder_t comp_type; /* to retrieve compression type into */ comp_info cinfo; /* compression information structure */ int32 idata[100]; int32 rdata[100]; int32 fillval; intn i; intn num_errs = 0; /* number of errors in compression test so far */ intn status; /* status flag */ int32 start[10], end[10]; /* start and end arrays */ /* * Writing 1st compressed dataset, basic skipping huffman. */ fcomp = SDstart(COMPFILE1, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet1", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } for(i = 0; i < 25; i++) idata[i] = i*10; /* Set the dataset to be compressed with skipping huffman */ cinfo.skphuff.skp_size=4; status = SDsetcompress(newsds,COMP_CODE_SKPHUFF,&cinfo); CHECK(status, FAIL, "SDcompress"); /* Test get compression info when the data set is empty but set to be compressed */ status = SDgetcompinfo(newsds, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "SDgetcompinfo"); /* Only get the compression method and verify it */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds, &comp_type); CHECK(status, FAIL, "SDgetcomptype"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "SDgetcomptype"); /* Write data to the dataset */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); /* End access to the dataset */ status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read and verify the compressed data and information */ fcomp = SDstart(COMPFILE1, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } /* * Retrieve and verify the compression info - bug# 307, 9/7/01 - BMR */ #ifndef H4_NO_DEPRECATED_SYMBOLS /* Jan 9, 2013 */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompress(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompress"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "SDgetcompress"); VERIFY(cinfo.skphuff.skp_size, 4, "SDgetcompress"); #endif /* H4_NO_DEPRECATED_SYMBOLS */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "SDgetcompinfo"); VERIFY(cinfo.skphuff.skp_size, 4, "SDgetcompinfo"); /* Only get the compression method and verify it */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds2, &comp_type); CHECK(status, FAIL, "SDgetcomptype"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "SDgetcomptype"); /* Read and verify the compressed data */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"thisone: Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } /* End access to the dataset and the file */ status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Writing 2nd compressed dataset, partially filled & skipping huffman */ fcomp = SDstart(COMPFILE2, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet2", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } /* Set fill value */ fillval=43; status = SDsetfillvalue(newsds,(VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); /* Set the dataset to be compressed with skipping huffman */ cinfo.skphuff.skp_size=4; status = SDsetcompress(newsds,COMP_CODE_SKPHUFF,&cinfo); CHECK(status, FAIL, "SDsetcompress"); /* fill the array with the standard info */ for(i = 0; i < 25; i++) idata[i] = i*10; /* overwrite selected portions with the fill value */ for(i = 0; i < 5; i++) idata[i] = fillval; for(i = 20; i < 25; i++) idata[i] = fillval; /* Write to the dataset */ start[0] = 1; start[1] = 0; end[0] = 3; end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) &idata[5]); CHECK(status, FAIL, "SDwritedata"); /* End access to the datase */ status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read and verify the compressed data and information */ fcomp = SDstart(COMPFILE2, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); /* Get the dataset by its name */ index = SDnametoindex(fcomp, "CompDataSet2"); CHECK(index, FAIL, "SDnametoindex"); newsds2 = SDselect(fcomp, index); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Creating 3rd compressed dataset, compressed template & skipping huffman */ fcomp = SDstart(COMPFILE3, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet3", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } fillval=56; status = SDsetfillvalue(newsds,(VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); cinfo.skphuff.skp_size=4; status = SDsetcompress(newsds,COMP_CODE_SKPHUFF,&cinfo); CHECK(status, FAIL, "SDsetcompress"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read the compressed data back in */ fcomp = SDstart(COMPFILE3, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(fillval != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Creating 4th compressed dataset, compressed template read, then * partial write & skipping huffman */ fcomp = SDstart(COMPFILE4, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet4", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } fillval=67; status = SDsetfillvalue(newsds,(VOIDP)&fillval); CHECK(status, FAIL, "SDsetfillvalue"); cinfo.skphuff.skp_size=4; status = SDsetcompress(newsds,COMP_CODE_SKPHUFF,&cinfo); CHECK(status, FAIL, "SDsetcompress"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read the compressed data back in */ fcomp = SDstart(COMPFILE4, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(fillval != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Modifying first compressed dataset. */ fcomp = SDstart(COMPFILE4, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } /* fill the array with the standard info */ for(i = 0; i < 25; i++) idata[i] = i*10; /* overwrite selected portions with the fill value */ for(i = 0; i < 10; i++) idata[i] = fillval; for(i = 20; i < 25; i++) idata[i] = fillval; start[0] = 2; start[1] = 0; end[0] = 2; end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) &idata[10]); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); fcomp = SDstart(COMPFILE4, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Writing 5th compressed dataset, basic RLE. */ fcomp = SDstart(COMPFILE5, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet5", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } for(i = 0; i < 25; i++) idata[i] = i*10; status = SDsetcompress(newsds,COMP_CODE_RLE,&cinfo); CHECK(status, FAIL, "SDcompress"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read the compressed data back in. */ fcomp = SDstart(COMPFILE5, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } /* * Retrieve and verify the compression info - bug# 307, 9/7/01 - BMR */ #ifndef H4_NO_DEPRECATED_SYMBOLS /* Jan 9, 2013 */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompress(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompress"); VERIFY(comp_type, COMP_CODE_RLE, "SDgetcompress"); #endif /* H4_NO_DEPRECATED_SYMBOLS */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_RLE, "SDgetcompinfo"); /* Only get the compression method and verify it */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds2, &comp_type); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_RLE, "SDgetcompinfo"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Writing 6th compressed dataset, no encoding */ fcomp = SDstart(COMPFILE6, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet6", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } for(i = 0; i < 25; i++) idata[i] = i*10; status = SDsetcompress(newsds,COMP_CODE_NONE,&cinfo); CHECK(status, FAIL, "SDcompress"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read the compressed data back in. */ fcomp = SDstart(COMPFILE6, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } /* * Retrieve and verify the compression info - bug# 307, 9/7/01 - BMR */ #ifndef H4_NO_DEPRECATED_SYMBOLS /* Jan 9, 2013 */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompress(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompress"); VERIFY(comp_type, COMP_CODE_NONE, "SDgetcompress"); #endif /* H4_NO_DEPRECATED_SYMBOLS */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_NONE, "SDgetcompinfo"); /* Only get the compression method and verify it */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds2, &comp_type); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_NONE, "SDgetcompinfo"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Writing 7th compressed dataset, deflate encoding. */ fcomp = SDstart(COMPFILE7, DFACC_CREATE); CHECK(fcomp, FAIL, "SDstart"); nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fcomp, "CompDataSet7", nt, 2, dimsize); if(newsds == FAIL) { fprintf(stderr, "Failed to create a new data set for compression testing\n"); num_errs++; } for(i = 0; i < 25; i++) idata[i] = i*10; cinfo.deflate.level=6; status = SDsetcompress(newsds,COMP_CODE_DEFLATE,&cinfo); CHECK(status, FAIL, "SDcompress"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush compressed info to file */ status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* * Read the compressed data back in. */ fcomp = SDstart(COMPFILE7, DFACC_RDWR); CHECK(fcomp, FAIL, "SDstart (again)"); newsds2 = SDselect(fcomp, 0); if(newsds == FAIL) { fprintf(stderr, "Failed to select a data set for compressed access\n"); num_errs++; } /* * Retrieve and verify the compression info - bug# 307, 9/7/01 - BMR */ #ifndef H4_NO_DEPRECATED_SYMBOLS /* Jan 9, 2013 */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompress(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompress"); VERIFY(comp_type, COMP_CODE_DEFLATE, "SDgetcompress"); VERIFY(cinfo.deflate.level, 6, "SDgetcompress"); #endif /* H4_NO_DEPRECATED_SYMBOLS */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds2, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_DEFLATE, "SDgetcompinfo"); VERIFY(cinfo.deflate.level, 6, "SDgetcompinfo"); /* Only get the compression method and verify it */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds2, &comp_type); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_DEFLATE, "SDgetcompinfo"); start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); for(i = 0; i < 25; i++) if(idata[i] != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in compressed dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); status = SDend(fcomp); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* end test_compressed_data */ extern int test_compression() { intn num_errs = 0; /* number of errors */ /* Output message about test being performed */ TESTING("create/read/write compressed datasets (tcomp.c)"); /* create various data sets with different compression methods */ num_errs = num_errs + test_various_comps(); /* test writing and reading data sets with compression */ num_errs = num_errs + test_compressed_data(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tdatainfo.c0000644000000000000000000021001612421456623015266 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tdatainfo.c - tests the function SDgetdatainfo. * Structure of the file: * test_datainfo - test driver * test_nonspecial_SDSs - tests nonspecial SDSs * test_compressed_SDSs - tests compressed SDSs without closing file * test_empty_SDSs - tests on empty chunked and chunked/comp SDSs * test_chunked_partial - tests on chunked and partially written SDS * test_chkcmp_SDSs - tests chunked/compressed SDSs * test_extend_SDSs - tests SDSs with unlimited dimensions * -BMR, Jul 2010 ****************************************************************************/ #include "mfhdf.h" #ifdef H4_HAVE_SYS_TYPES_H #include #endif #ifdef H4_HAVE_SYS_STAT_H #include #endif #include #include #ifdef H4_HAVE_UNISTD_H #include #endif #if WIN32 #define snprintf sprintf_s #define ssize_t int32 #endif #ifndef DATAINFO_TESTER #define DATAINFO_TESTER /* to include mfdatainfo.h */ #endif #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #include "hdftest.h" static intn test_nonspecial_SDSs(); static intn test_compressed_SDSs(); static intn test_empty_SDSs(); static intn test_chunked_partial(); static intn test_chkcmp_SDSs(); static intn test_extend_SDSs(); #define SIMPLE_FILE "datainfo_simple.hdf" /* data file */ #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 typedef struct { int32 numtype; /* number type of the SDS' data */ int32 n_values; /* number of values the SDS can hold */ int32* offsets; /* offset(s) of data block(s) */ int32* lengths; /* length(s) of data block(s) */ int32* dimsizes;/* sizes of dimensions */ } t_hdf_datainfo_t; /* alloc_info is a utility function that allocates hdf_datainfo_t's members*/ intn alloc_info(t_hdf_datainfo_t *info, uintn info_count, int32 n_dims) { HDmemset(info, 0, sizeof(info)); info->offsets = (int32 *) HDmalloc(info_count * sizeof(int32)); if (info->offsets == NULL) return -1; info->lengths = (int32 *) HDmalloc(info_count * sizeof(int32)); if (info->lengths == NULL) return -1; info->dimsizes = (int32 *) HDmalloc(n_dims * sizeof(int32)); if (info->dimsizes == NULL) return -1; return 0; } void free_info(t_hdf_datainfo_t *info) { if (info != NULL) { if (info->offsets != NULL) HDfree(info->offsets); if (info->lengths != NULL) HDfree(info->lengths); if (info->dimsizes != NULL) HDfree(info->dimsizes); } } /* This is used to temporarily verify results. Will remove when finallized. */ static void print_info(char* name, uintn info_count, t_hdf_datainfo_t data_info) { int ii; fprintf(stderr, "offset/length of '%s'\n", name); for (ii = 0; ii < info_count; ii++) fprintf(stderr, "%d: %d %d\n", ii, data_info.offsets[ii], data_info.lengths[ii]); } /* Calculates the number of values in an SDS using the dimensions and rank */ static int32 comp_n_values(int32 rank, int32 *dimsizes) { int ii; int32 n_values = 1; for (ii = 0; ii < rank; ii++) n_values = n_values * dimsizes[ii]; return (n_values); } /**************************************************************************** Name: test_nonspecial_SDSs() - tests non-special SDSs Description: This routine creates and writes data to non-special SDSs and verifies data and data information with SDgetdatainfo. The tests include the following SDSs: - a 2-dim 5x8 element SDS, float32, with no data - a 1-dim 10-element SDS, int32, with 10 values - a 2-dim 5x8 element SDS, float32, with 5x8 values - a 1-dim 20-element SDS, char, with 20 values SDgetdatainfo will retrieve the number of blocks in the datasets and the offsets and lengths of the blocks. Then the data will be read back from the file at the previously retrieved offsets/lengths, without the use of the HDF4 library, and will be verified against the original data buffers. BMR - Jul 2010 ****************************************************************************/ #define SDS1_NAME "Simple_data_1dim_int32" #define SDS2_NAME "Simple_data_2dims_float32" #define SDS3_NAME "Simple_data_1dim_char" #define RANK1 1 #define RANK2 2 #define LENGTH1_X 10 #define LENGTH2_X 5 #define LENGTH2_Y 8 #define LENGTH3_X 21 static intn test_nonspecial_SDSs() { int32 sd_id, sds_id; int32 dimsizes[2], starts[2], edges[2], rank = 0; int32 data1[LENGTH1_X]; float data2[LENGTH2_X][LENGTH2_Y]; char data3[LENGTH3_X], outdata3[LENGTH3_X]; int32 offset1, length1, offset2, length2, offset3, length3; t_hdf_datainfo_t sds1_info, sds2_info, sds3_info; uintn info_count = 0; intn status; int ii, jj; intn num_errs = 0; /* number of errors so far */ /* Create the file and initialize the SD interface */ sd_id = SDstart(SIMPLE_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_nonspecial_SDSs: SDstart"); /*************************************************************** Create and write non-special SDSs ***************************************************************/ /* Create a 2x2 dataset called "EmptyDataset" */ dimsizes[0] = LENGTH2_X; dimsizes[1] = LENGTH2_Y; sds_id = SDcreate(sd_id, "EmptyDataset", DFNT_FLOAT32, 2, dimsizes); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* Open that first dataset and verify that number of data block is 0 */ sds_id = SDselect(sd_id, 0); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDselect"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); VERIFY(info_count, 0, "test_nonspecial_SDSs: SDgetdatainfo"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* * Create a 1-dim 10-element SDS, type int32, then write 10 values * to it */ dimsizes[0] = LENGTH1_X; sds_id = SDcreate(sd_id, SDS1_NAME, DFNT_INT32, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate"); for (ii = 0; ii < LENGTH1_X; ii++) data1[ii] = 1000 * ii; starts[0] = 0; edges[0] = LENGTH1_X; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data1); CHECK(status, FAIL, "test_nonspecial_SDSs: SDwritedata"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* * Create a 2-dim 5x8 element SDS, type float32, then write 5x8 values * to it */ dimsizes[0] = LENGTH2_X; dimsizes[1] = LENGTH2_Y; sds_id = SDcreate(sd_id, SDS2_NAME, DFNT_FLOAT32, RANK2, dimsizes); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate"); for (ii = 0; ii < LENGTH2_X; ii++) for (jj = 0; jj < LENGTH2_Y; jj++) data2[ii][jj] = 500.50 * (ii + jj); starts[0] = 0; starts[1] = 0; edges[0] = LENGTH2_X; edges[1] = LENGTH2_Y; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data2); CHECK(status, FAIL, "test_nonspecial_SDSs: SDwritedata"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* * Create a 1-dim 20-element SDS, type char, then write 20 values * to it */ dimsizes[0] = LENGTH3_X; sds_id = SDcreate(sd_id, SDS3_NAME, DFNT_CHAR, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDcreate"); strcpy(data3, "The data of 3rd SDS."); starts[0] = 0; edges[0] = LENGTH3_X; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data3); CHECK(status, FAIL, "test_nonspecial_SDSs: SDwritedata"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /*********************************************************************** Read data info for later accessing data without the use of HDF4 library ***********************************************************************/ /* Open the second dataset, verify that number of data block is 1, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 1); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDselect SDS index 1"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_nonspecial_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 1"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds1_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, &rank, sds1_info.dimsizes, &(sds1_info.numtype), NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 1"); /* Record number of values the SDS can have */ sds1_info.n_values = comp_n_values(rank, sds1_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds1_info.offsets, sds1_info.lengths); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* Open the third dataset, verify that number of data block is 1, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 2); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDselect SDS index 2"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_nonspecial_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 1"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds2_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds2_info.dimsizes, &(sds2_info.numtype), NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 2"); /* Record number of values the SDS can have */ sds2_info.n_values = comp_n_values(rank, sds2_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds2_info.offsets, sds2_info.lengths); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); /* Close SDS index 2 */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); /* Open the last dataset, verify that number of data block is 1, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 3); CHECK(sds_id, FAIL, "test_nonspecial_SDSs: SDselect SDS index 3"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_nonspecial_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 1"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds3_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds3_info.dimsizes, &(sds3_info.numtype), NULL); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetinfo SDS index 3"); /* Record number of values the SDS can have */ sds3_info.n_values = comp_n_values(rank, sds3_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds3_info.offsets, sds3_info.lengths); CHECK(status, FAIL, "test_nonspecial_SDSs: SDgetdatainfo"); /* Close SDS index 3 */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_nonspecial_SDSs: SDend"); /****************************************************************** Read data using previously obtained data info without HDF4 library ******************************************************************/ /* Open file and read in data without using SD API */ { int fd; /* for open */ int32 ret32; /* for DFKconvert */ int ret; /* for fabs */ ssize_t readlen = 0; /* for read */ int32 *readibuf, *readibuf_swapped; float *readfbuf, *readfbuf_swapped; char *readcbuf, *readcbuf_swapped; char readfbuf_str[12], data2_str[12]; /* for comparing readfbuf values */ uint32 n_values; int ii, jj, kk; /* Open the file for reading without SD API */ fd = open(SIMPLE_FILE, O_RDONLY); if (fd == -1) { fprintf(stderr, "test_nonspecial_SDSs: unable to open file %s", SIMPLE_FILE); num_errs++; return num_errs; } /* Forward to the position of the data of SDS at index 1 */ if (lseek(fd, (off_t) sds1_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_nonspecial_SDSs: unable to seek offset %d\n", (int) sds1_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds1_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds1_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP) readibuf, (size_t) sds1_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds1_info.numtype, (uint32) sds1_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds1_info.n_values; ii++) { if (readibuf_swapped[ii] != data1[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data1[ii], readibuf_swapped[ii]); } } HDfree (readibuf_swapped); HDfree (readibuf); /* Forward to the position of the data of SDS at index 2 */ if (lseek(fd, (off_t) sds2_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_nonspecial_SDSs: unable to seek offset %d\n", (int) sds2_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readfbuf = (float32 *) HDmalloc(sds2_info.n_values * sizeof(float32)); readfbuf_swapped = (float32 *) HDmalloc(sds2_info.n_values * sizeof(float32)); /* Read in this block of data */ readlen = read(fd, (VOIDP) readfbuf, (size_t) sds2_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readfbuf, readfbuf_swapped, sds2_info.numtype, (uint32) sds2_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); /* Compare data read without SD API against the original buffer */ kk = 0; for (jj = 0; jj < sds2_info.dimsizes[0]; jj++) for (ii = 0; ii < sds2_info.dimsizes[1]; ii++) { /* Flag if the two numbers are not close enough */ if (fabs(readfbuf_swapped[kk] - data2[jj][ii]) > 0.00001) fprintf(stderr, "At value# %d: written = %f read = %f\n", ii, data2[jj][ii], readfbuf_swapped[kk]); if (kk < sds2_info.n_values) kk++; } HDfree (readfbuf_swapped); HDfree (readfbuf); /* Forward to the position of the data of SDS at index 3 */ if (lseek(fd, (off_t) sds3_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_nonspecial_SDSs: unable to seek offset %d\n", (int) sds3_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP) readibuf, (size_t) sds3_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds3_info.numtype, (uint32) sds3_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds3_info.n_values; ii++) { if (readibuf_swapped[ii] != data3[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data3[ii], readibuf_swapped[ii]); } } HDfree (readibuf_swapped); HDfree (readibuf); if (close(fd) == -1) { fprintf(stderr, "test_nonspecial_SDSs: unable to close file %s", SIMPLE_FILE); num_errs++; return num_errs; } } free_info(&sds1_info); free_info(&sds2_info); free_info(&sds3_info); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_nonspecial_SDSs */ /**************************************************************************** Name: test_compressed_SDSs() - tests compressed SDSs Description: This routine creates and writes data to compressed SDSs and verifies data and data information with SDgetdatainfo. The tests include the following SDSs: - a 2-dim 5x8 element SDS, float32, NBIT compression, no data - a 1-dim 10-element SDS, int32, Deflate compression, with 10 values - a 2-dim 5x8 element SDS, float32, SZIP compression, with 5x8 values - a 1-dim 20-element SDS, char, Skipping Huffman compression, with 20 values SDgetdatainfo will retrieve the number of blocks in the datasets and the offsets and lengths of the blocks. Then the data will be read back from the file at the previously retrieved offsets/lengths, without the use of the HDF4 library, and will be verified against the original data buffers. BMR - Jul 2010 ****************************************************************************/ #define COMP_FILE "datainfo_cmp.hdf" /* data file */ static intn test_compressed_SDSs() { int32 sd_id, sds_id, esds_id, usds_id; int32 starts[2], edges[2], dimsizes[2], rank = 0; comp_coder_t comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int8 data[Y_LENGTH][X_LENGTH]; int32 data1[LENGTH1_X]; float data2[LENGTH2_X][LENGTH2_Y]; char data3[LENGTH3_X]; t_hdf_datainfo_t sds1_info, sds2_info, sds3_info; int32 offset = 0, length = 0; int32 pixels_per_scanline; uintn info_count = 0; intn status; int ii, jj; int num_errs = 0; /* number of errors so far */ /* Create the file and initialize the SD interface */ sd_id = SDstart(COMP_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_compressed_SDSs: SDstart"); /*************************************************************** Create and write compressed SDSs ***************************************************************/ /* Create data set 'NBit-No-Data' */ dimsizes[0] = LENGTH2_X; dimsizes[1] = LENGTH2_Y; sds_id = SDcreate(sd_id, "NBit-No-Data", DFNT_INT32, 2, dimsizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'NBit-No-Data'"); /* Promote the data set 'NBit-No-Data' to an NBIT data set */ status = SDsetnbitdataset(sds_id, 6, 7, FALSE, FALSE); CHECK(status, FAIL, "test_compressed_SDSs: SDsetnbitdataset"); /* End access to 'NBit-No-Data' */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess"); /* * Create a 1-dim 10-element SDS, type int32, set Deflate compression, * then write 10 values to it */ dimsizes[0] = LENGTH1_X; sds_id = SDcreate(sd_id, "Deflate-Data", DFNT_INT32, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'Deflate-Data'"); comp_type = COMP_CODE_DEFLATE; HDmemset(&c_info, 0, sizeof(c_info)); c_info.deflate.level = 6; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "test_compressed_SDSs: SDsetcompress 'Deflate-Data'"); for (ii = 0; ii < LENGTH1_X; ii++) data1[ii] = 1000 * ii; starts[0] = 0; edges[0] = LENGTH1_X; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data1); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata 'Deflate-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'Deflate-Data'"); for (ii = 0; ii < LENGTH2_X; ii++) for (jj = 0; jj < LENGTH2_Y; jj++) data2[ii][jj] = 500.50 * (ii + jj); #ifdef H4_HAVE_SZIP_ENCODER /* * Create a 2-dim 5x8 element SDS, type float32, set SZIP compression, * then write 5x8 values to it */ dimsizes[0] = LENGTH2_X; dimsizes[1] = LENGTH2_Y; sds_id = SDcreate(sd_id, "SZIP-Data", DFNT_FLOAT32, RANK2, dimsizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'SZIP-Data'"); comp_type = COMP_CODE_SZIP; HDmemset(&c_info, 0, sizeof(c_info)); pixels_per_scanline = dimsizes[1]; c_info.szip.pixels = dimsizes[0] * dimsizes[1]; ; c_info.szip.pixels_per_block = 2; if (pixels_per_scanline >= 2048) c_info.szip.pixels_per_scanline = 512; else c_info.szip.pixels_per_scanline = dimsizes[1]; c_info.szip.options_mask = SZ_EC_OPTION_MASK; c_info.szip.options_mask |= SZ_RAW_OPTION_MASK; c_info.szip.bits_per_pixel = 64; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "test_compressed_SDSs: SDsetcompress 'SZIP-Data'"); starts[0] = starts[1] = 0; edges[0] = LENGTH2_X; edges[1] = LENGTH2_Y; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data2); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata 'SZIP-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'SZIP-Data'"); #else /* SZIP lib not available */ /* * Create a 2-dim 5x8 element SDS, type float32, set SZIP compression, * then write 5x8 values to it */ dimsizes[0] = LENGTH2_X; dimsizes[1] = LENGTH2_Y; sds_id = SDcreate (sd_id, "NBIT-Data", DFNT_FLOAT32, RANK2, dimsizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'NBIT-Data'"); /* Promote the data set 'NBit-No-Data' to an NBIT data set */ status = SDsetnbitdataset(sds_id, 6, 7, FALSE, FALSE); CHECK(status, FAIL, "test_compressed_SDSs: SDsetnbitdataset"); /* Initialize data to write out */ /* for(ii = 0; ii < LENGTH2_X*LENGTH2_Y; ii++) idata[ii] = ii*10; */ /* Write data to the NBIT data set 'NBitDataSet' */ starts[0] = starts[1] = 0; edges[0] = LENGTH2_X; edges[1] = LENGTH2_Y; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP)data2); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'SZIP-Data'"); #endif /* SZIP lib available */ /* * Create a 1-dim 20-element SDS, type char, set Skipping Huffman * compression, then write 20 values to it */ dimsizes[0] = LENGTH3_X; sds_id = SDcreate(sd_id, "SKPHUFF-Data", DFNT_CHAR, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDcreate 'SKPHUFF-Data'"); HDmemset(&c_info, 0, sizeof(c_info)); comp_type = COMP_CODE_SKPHUFF; c_info.skphuff.skp_size = 4; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "test_compressed_SDSs: SDsetcompress 'SKPHUFF-Data'"); strcpy(data3, "The data of 3rd SDS."); starts[0] = 0; edges[0] = LENGTH3_X; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data3); CHECK(status, FAIL, "test_compressed_SDSs: SDwritedata 'SKPHUFF-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess 'SKPHUFF-Data'"); status = SDend(sd_id); CHECK(status, FAIL, "test_compressed_SDSs: SDend COMP_FILE"); /*********************************************************************** Read data info for later accessing data without the use of HDF4 library ***********************************************************************/ /* Open the file to get data info of the SDSs */ sd_id = SDstart(COMP_FILE, DFACC_RDONLY); CHECK(sd_id, FAIL, "test_compressed_SDSs: SDstart COMP_FILE"); /* Open the first dataset, verify that number of data block is 0, then verify its compression type is NBIT */ sds_id = SDselect(sd_id, 0); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDselect SDS index 0"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_compressed_SDSs: SDgetdatainfo"); VERIFY(info_count, 0, "test_compressed_SDSs: SDgetdatainfo"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(sds_id, &comp_type); CHECK(status, FAIL, "test_compressed_SDSs: SDgetcomptype"); VERIFY(comp_type, COMP_CODE_NBIT, "test_compressed_SDSs: SDgetcomptype"); /* Open the second dataset, verify that number of data block is 1, verify its comp type is Deflate, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 1); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDselect SDS index 1"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_compressed_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_compressed_SDSs: SDgetdatainfo"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(sds_id, &comp_type); CHECK(status, FAIL, "test_compressed_SDSs: SDgetcomptype"); VERIFY(comp_type, COMP_CODE_DEFLATE, "test_compressed_SDSs: SDgetcomptype"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 1"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds1_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds1_info.dimsizes, &(sds1_info.numtype), NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 1"); /* Record number of values the SDS can have */ sds1_info.n_values = comp_n_values(rank, sds1_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds1_info.offsets, sds1_info.lengths); CHECK(status, FAIL, "test_compressed_SDSs: SDgetdatainfo"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess"); /* Open the third dataset, verify that number of data block is 1, verify its comp type is SZIP or NBIT, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 2); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDselect SDS index 2"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_compressed_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_compressed_SDSs: SDgetdatainfo"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(sds_id, &comp_type); CHECK(status, FAIL, "test_compressed_SDSs: SDgetcomptype"); #ifdef H4_HAVE_SZIP_ENCODER VERIFY(comp_type, COMP_CODE_SZIP, "test_compressed_SDSs: SDgetcomptype"); #else VERIFY(comp_type, COMP_CODE_NBIT, "test_compressed_SDSs: SDgetcomptype"); #endif /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 2"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds2_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds2_info.dimsizes, &(sds2_info.numtype), NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 2"); /* Record number of values the SDS can have */ sds2_info.n_values = comp_n_values(rank, sds2_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds2_info.offsets, sds2_info.lengths); CHECK(status, FAIL, "test_compressed_SDSs: SDgetdatainfo"); /* Close SDS index 2 */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess"); /* Open the third dataset, verify that number of data block is 1, verify its comp type is Skipping Huffman, then retrieve and record the offset/length */ sds_id = SDselect(sd_id, 3); CHECK(sds_id, FAIL, "test_compressed_SDSs: SDselect SDS index 3"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_compressed_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_compressed_SDSs: SDgetdatainfo"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(sds_id, &comp_type); CHECK(status, FAIL, "test_compressed_SDSs: SDgetcomptype"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "test_compressed_SDSs: SDgetcomptype"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 3"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds3_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds3_info.dimsizes, &(sds3_info.numtype), NULL); CHECK(status, FAIL, "test_compressed_SDSs: SDgetinfo SDS index 3"); /* Record number of values the SDS can have */ sds3_info.n_values = comp_n_values(rank, sds3_info.dimsizes); /* Retrieve the offset and length of the data block */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds3_info.offsets, sds3_info.lengths); CHECK(status, FAIL, "test_compressed_SDSs: SDgetdatainfo"); /* Close SDS index 3 */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_compressed_SDSs: SDendaccess"); /* Close the file */ status = SDend(sd_id); CHECK(status, FAIL, "test_compressed_SDSs: SDend"); /****************************************************************** Read data using previously obtained data info without HDF4 library ******************************************************************/ #if 0 /* Open file and read in data without using SD API */ { int fd; /* for open */ off_t ret; /* for lseek */ int32 ret32; /* for DFKconvert */ ssize_t readlen=0; /* for read */ int32 *readibuf, *readibuf_swapped; float *readfbuf, *readfbuf_swapped; char *readcbuf, *readcbuf_swapped; uint32 n_values; int ii, jj, kk; /* Open the file for reading without SD API */ fd = open(SIMPLE_FILE, O_RDONLY); if (fd == -1) { fprintf(stderr, "test_compressed_SDSs: unable to open file %s", SIMPLE_FILE); num_errs++; return num_errs; } /* Forward to the position of the data of SDS at index 1 */ if (lseek(fd, (off_t)sds1_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_compressed_SDSs: unable to seek offset %d\n", (int)sds1_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds1_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds1_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP)readibuf, (size_t)sds1_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds1_info.numtype, (uint32)sds1_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds1_info.n_values; ii++) { if (readibuf_swapped[ii] != data1[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data1[ii], readibuf_swapped[ii]); } } /* Forward to the position of the data of SDS at index 2 */ if (lseek(fd, (off_t)sds2_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_compressed_SDSs: unable to seek offset %d\n", (int)sds2_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds2_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds2_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP)readibuf, (size_t)sds2_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds2_info.numtype, (uint32)sds2_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds2_info.n_values; ii++) { if (readibuf_swapped[ii] != data2[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data2[ii], readibuf_swapped[ii]); } } /* Forward to the position of the data of SDS at index 3 */ if (lseek(fd, (off_t)sds3_info.offsets[0], SEEK_SET) == -1) { fprintf(stderr, "test_compressed_SDSs: unable to seek offset %d\n", (int)sds3_info.offsets[0]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds3_info.n_values * sizeof(int32)); /* Read in this block of data */ readlen = read(fd, (VOIDP)readibuf, (size_t)sds3_info.lengths[0]); CHECK(readlen, FAIL, "DFKconvert"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds3_info.numtype, (uint32)sds3_info.n_values, DFACC_WRITE, 0, 0); CHECK(ret32, FAIL, "DFKconvert"); if (ret32 > 0) { /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds3_info.n_values; ii++) { if (readibuf_swapped[ii] != data3[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, data3[ii], readibuf_swapped[ii]); } } if (close(fd) == -1) { fprintf(stderr, "test_compressed_SDSs: unable to close file %s", SIMPLE_FILE); num_errs++; return num_errs; } } #endif free_info(&sds1_info); free_info(&sds2_info); free_info(&sds3_info); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_compressed_SDSs */ /* * Test with empty SDSs. This routine creates a "Chunked Empty" SDS and a * "Chunked Compressed Empty" SDS then uses SDgetdatainfo to get the * number of blocks for data, which should be 0. */ /**************************************************************************** Name: test_empty_SDSs() - tests special but empty SDSs Description: This routine creates special SDSs but does not write data to any of the SDSs, then uses SDgetdatainfo to verify that the number of data blocks of each SDS is 0. BMR - Jul 2010 ****************************************************************************/ #define X_LENGTH2 4 #define Y_LENGTH2 9 #define CHK_X 3 #define CHK_Y 2 #define NUM_SDS 3 #define NODATA_FILE "datainfo_nodata.hdf" /* data file */ static intn test_empty_SDSs() { int32 sd_id, sds_id, sds_index; int32 dimsizes[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 flag; uintn info_count = 0; comp_coder_t comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int ii, jj; intn status; int num_errs = 0; /* number of errors so far */ /* Use the same file as in test_compressed_SDSs */ sd_id = SDstart(NODATA_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_empty_SDSs: SDstart"); /* * Create compressed, chunked, chunked/compressed, and expandible SDSs * without writing data to any of them */ dimsizes[0] = Y_LENGTH2; dimsizes[1] = X_LENGTH2; /* Contiguous-No-Data */ sds_id = SDcreate(sd_id, "Contiguous-No-Data", DFNT_INT16, RANK, dimsizes); CHECK(sds_id, FAIL, "test_empty_SDSs: SDcreate 'Contiguous-No-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_empty_SDSs: SDendaccess 'Contiguous-No-Data'"); /* Compressed-No-Data */ sds_id = SDcreate(sd_id, "Compressed-No-Data", DFNT_INT16, RANK, dimsizes); CHECK(sds_id, FAIL, "test_empty_SDSs: SDcreate 'Compressed-No-Data'"); HDmemset(&c_info, 0, sizeof(c_info)); comp_type = COMP_CODE_SKPHUFF; c_info.skphuff.skp_size = 4; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "test_empty_SDSs: SDsetcompress 'Compressed-No-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_empty_SDSs: SDendaccess 'Compressed-No-Data'"); /* Extend-No-Data */ dimsizes[0] = SD_UNLIMITED; sds_id = SDcreate(sd_id, "Extend-No-Data", DFNT_INT16, RANK, dimsizes); CHECK(sds_id, FAIL, "test_empty_SDSs: SDcreate 'Extend-No-Data'"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_empty_SDSs: SDendaccess 'Extend-No-Data'"); /* Verify that the number of data block is 0 for all data sets */ for (ii = 0; ii < NUM_SDS; ii++) { sds_id = SDselect(sd_id, ii); CHECK_IND(sds_id, FAIL, "test_empty_SDSs: SDselect", ii); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK_IND(info_count, FAIL, "test_empty_SDSs: SDgetdatainfo", ii); VERIFY(info_count, 0, "test_empty_SDSs: SDgetdatainfo"); status = SDendaccess(sds_id); CHECK_IND(status, FAIL, "test_empty_SDSs: SDendaccess", ii); } /* Close the file */ status = SDend(sd_id); CHECK(status, FAIL, "test_empty_SDSs: SDend"); /* Reopen the file and check again to make sure that it is still correct after flushing the metadata */ sd_id = SDstart(NODATA_FILE, DFACC_READ); CHECK(sd_id, FAIL, "test_empty_SDSs: SDstart"); /* Verify that the number of data block is 0 for all data sets */ for (ii = 0; ii < NUM_SDS; ii++) { sds_id = SDselect(sd_id, ii); CHECK_IND(sds_id, FAIL, "test_empty_SDSs: SDselect", ii); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK_IND(info_count, FAIL, "test_empty_SDSs: SDgetdatainfo", ii); VERIFY(info_count, 0, "test_empty_SDSs: SDgetdatainfo"); status = SDendaccess(sds_id); CHECK_IND(status, FAIL, "test_empty_SDSs: SDendaccess", ii); } /* Close the file */ status = SDend(sd_id); CHECK(status, FAIL, "test_empty_SDSs: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_empty_SDSs */ /**************************************************************************** Name: test_chunked_partial() - tests writing partially to chunked SDSs Description: This routine creates and writes data to compressed SDSs and verifies data and data information with SDgetdatainfo. The tests include the following SDSs: - a 2-dim 5x8 element SDS, float32, NBIT compression, no data - a 1-dim 10-element SDS, int32, Deflate compression, with 10 values - a 2-dim 5x8 element SDS, float32, SZIP compression, with 5x8 values - a 1-dim 20-element SDS, char, Skipping Huffman compression, with 20 values SDgetdatainfo will retrieve the number of blocks in the datasets and the offsets and lengths of the blocks. Then the data will be read back from the file at the previously retrieved offsets/lengths, without the use of the HDF4 library, and will be verified against the original data buffers. BMR - Jul 2010 ****************************************************************************/ #define CHK_FILE "datainfo_chk.hdf" /* data file */ static intn test_chunked_partial() { int32 sd_id, sds_id, sds_index; int32 dimsizes[RANK], origin[RANK], starts[RANK], rank = 0, edges[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 flag; /* Chunking flag */ int32 fill_value = -2; /* Fill value */ uintn info_count = 0; t_hdf_datainfo_t sds_info; int32 *offarray = NULL, *lenarray = NULL; int32 data[Y_LENGTH][X_LENGTH]; int fd; /* for open */ int ii, jj, chk_num; int num_errs = 0; /* number of errors so far */ intn status; /* Declare chunks data type and initialize some of them. */ int32 chunk1[CHK_X][CHK_Y] = { { 4, 4 }, { 4, 4 }, { 4, 4 } }; int32 chunk3[CHK_X][CHK_Y] = { { 3, 3 }, { 3, 3 }, { 3, 3 } }; int32 chunk_1dim[10] = { 10, 11, 12, 13, 14, 15, 16, 17, 18, 19 }; /* Create the file and initialize the SD interface */ sd_id = SDstart(CHK_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_chunked_partial: SDstart"); /* Initialize chunk size */ HDmemset(&c_def, 0, sizeof(c_def)); c_def.chunk_lengths[0] = 10; /* - Create a 1-dim 100-element SDS with chunk size 10, write 2 chunks, first and last, close it - Create a 2-dim (5x5)-element non-special SDS, write all the data, close it - Call SDgetdatainfo on the first dataset to locate the data written (what about fill values?) - Open first SDS then write 1 more chunk after the first chunk - Call SDgetdatainfo (investigate!) */ /* Create a one-dim chunked SDS to be written partially */ dimsizes[0] = 100; sds_id = SDcreate(sd_id, "Chunked-Partial-Data", DFNT_INT32, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_chunked_partial: SDcreate"); /* Fill the SDS array with fill value */ /* status = SDsetfillvalue(sds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "test_chunked_partial: SDsetfillvalue"); */ /* Set info for chunking */ status = SDsetchunk(sds_id, c_def, HDF_CHUNK); CHECK(status, FAIL, "test_chunked_partial: SDsetchunk"); /* Write partially to 'Chunked-Partial-Data' and check the sizes */ /* Write the chunk with the coordinates (0) */ origin[0] = 0; status = SDwritechunk(sds_id, origin, (VOIDP) chunk_1dim); CHECK(status, FAIL, "test_chunked_partial: SDwritechunk"); /* Write the chunk with the coordinates (4) */ origin[0] = 4; status = SDwritechunk(sds_id, origin, (VOIDP) chunk_1dim); CHECK(status, FAIL, "test_chunked_partial: SDwritechunk"); /* Terminate access to 'Chunked-Partial-Data' */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chunked_partial: SDendaccess"); /* Create a 2x2 dataset called 'Non-Special-Data 1' */ dimsizes[0] = Y_LENGTH; dimsizes[1] = X_LENGTH; sds_id = SDcreate(sd_id, "Non-Special-Data 1", DFNT_INT32, 2, dimsizes); CHECK(sds_id, FAIL, "test_chunked_partial: SDcreate"); /* Initialize data for the dataset */ for (jj = 0; jj < Y_LENGTH; jj++) { for (ii = 0; ii < X_LENGTH; ii++) data[jj][ii] = (ii + jj) + 1; } /* Write the stored data to the dataset */ starts[0] = starts[1] = 0; edges[0] = dimsizes[0]; edges[1] = dimsizes[1]; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data); CHECK(status, FAIL, "test_chunked_partial: SDwritedata"); /* Get access to the chunked SDS that was written partially earlier */ sds_index = SDnametoindex(sd_id, "Chunked-Partial-Data"); CHECK(sds_index, FAIL, "test_chunked_partial: SDnametoindex"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_chunked_partial: SDselect 'Chunked-Partial-Data'"); /* Verify that only two chunks had been written */ #if 0 /* need to figure out how to test this feature */ info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_chunked_partial: SDgetdatainfo"); VERIFY(info_count, 2, "test_chunked_partial: SDgetdatainfo"); #endif /* Write another chunk at the coordinate (6) */ origin[0] = 6; status = SDwritechunk(sds_id, origin, (VOIDP) chunk_1dim); CHECK(status, FAIL, "test_chunked_partial: SDwritechunk"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chunked_partial: SDendaccess"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_chunked_partial: SDselect 'Chunked-Partial-Data'"); /* Verify new number of chunks written */ #if 0 /* need to figure out how to test this feature */ info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_chunked_partial: SDgetdatainfo"); VERIFY(info_count, 3, "test_chunked_partial: SDgetdatainfo"); #endif /* Retrieve the offset and length of the chunks */ /* Get SDS' rank to know how much to allocate space for sds_info */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_chunked_partial: SDgetinfo"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds_info.dimsizes, &(sds_info.numtype), NULL); CHECK(status, FAIL, "test_chunked_partial: SDgetinfo"); /* Record number of values the SDS can have */ sds_info.n_values = 1 * 10; /* chunk has 1 dim of size 10 */ #if 0 /* need to figure out how to test this feature */ status = SDgetdatainfo(sds_id, NULL, 0, info_count, sds_info.offsets, sds_info.lengths); CHECK(status, FAIL, "test_chunked_partial: SDgetdatainfo"); #endif status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chunked_partial: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_chunked_partial: SDend"); /* Open file and read in data without using SD API */ fd = open(CHK_FILE, O_RDONLY); if (fd == -1) { fprintf(stderr, "test_chunked_partial: unable to open file %s", CHK_FILE); num_errs++; return num_errs; } /* Read each chunk and compare values */ for (chk_num = 0; chk_num < info_count; chk_num++) { off_t ret; /* for lseek */ int32 ret32; /* for DFKconvert */ ssize_t readlen = 0; /* for read */ int32 *readibuf, *readibuf_swapped; float *readfbuf, *readfbuf_swapped; char *readcbuf, *readcbuf_swapped; uint32 n_values; int ii, jj, kk; /* Forward to the position of the data of the SDS */ if (lseek(fd, (off_t) sds_info.offsets[chk_num], SEEK_SET) == -1) { fprintf(stderr, "test_chunked_partial: unable to seek offset %d\n", (int) sds_info.offsets[chk_num]); num_errs++; return num_errs; } /* Allocate buffers for SDS' data */ readibuf = (int32 *) HDmalloc(sds_info.lengths[chk_num]); readibuf_swapped = (int32 *) HDmalloc(sds_info.lengths[chk_num]); /* readibuf = (int32 *) HDmalloc(sds_info.n_values * sizeof(int32)); readibuf_swapped = (int32 *) HDmalloc(sds_info.n_values * sizeof(int32)); */ /* Read in this block of data */ readlen = read(fd, (VOIDP) readibuf, (size_t) sds_info.lengths[chk_num]); CHECK(readlen, FAIL, "test_chunked_partial: read"); ret32 = DFKconvert(readibuf, readibuf_swapped, sds_info.numtype, 10, DFACC_WRITE, 0, 0); /* (uint32)sds_info.n_values, DFACC_WRITE, 0, 0); */ CHECK(ret32, FAIL, "test_chunked_partial: DFKconvert"); /* Compare data read without SD API against the original buffer */ for (ii = 0; ii < sds_info.n_values; ii++) { if (readibuf_swapped[ii] != chunk_1dim[ii]) fprintf(stderr, "At value# %d: written = %d read = %d\n", ii, chunk_1dim[ii], readibuf_swapped[ii]); } HDfree (readibuf_swapped); HDfree (readibuf); } free_info(&sds_info); if (close(fd) == -1) { fprintf(stderr, "test_chunked_partial: unable to close file %s", CHK_FILE); num_errs++; return num_errs; } /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_chunked_partial */ /* * Test with chunked and compressed SDS. This routine creates * "Chunked-Deflate-Data" and "Chunked-NoDeflate-Data" SDSs and writes the same * data to both. It will then use SDgetdatainfo to verify the number of * data blocks. */ #define CHKCMP_FILE "datainfo_chkcmp.hdf" /* data file */ static intn test_chkcmp_SDSs() { int32 sd_id, sds_id, sds_index; int32 cmpsds_id, cmpsds_index; int32 flag, maxcache, new_maxcache; int32 dimsizes[RANK], origin[RANK], rank = 0; HDF_CHUNK_DEF c_def; /* Chunking definitions */ t_hdf_datainfo_t sds_info, cmpsds_info; int32 fill_value = 0; /* Fill value */ int32 comp_size1 = 0, uncomp_size1 = 0; int32 comp_size2 = 0, uncomp_size2 = 0; int32 chk_coord[2]; uintn info_count = 0; intn status; int num_errs = 0; /* number of errors so far */ /* Declare chunks data type and initialize some of them. */ int16 chunk1[CHK_X][CHK_Y] = { { 1, 1 }, { 1, 1 }, { 1, 1 } }; int16 chunk3[CHK_X][CHK_Y] = { { 3, 3 }, { 3, 3 }, { 3, 3 } }; int32 chunk2[CHK_X][CHK_Y] = { { 2, 2 }, { 2, 2 }, { 2, 2 } }; /* Initialize chunk size */ HDmemset(&c_def, 0, sizeof(c_def)); c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; /* Create the file and initialize the SD interface */ sd_id = SDstart(CHKCMP_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_chkcmp_SDSs: SDstart"); /* Create Y_LENGTH2 x X_LENGTH2 SDS */ dimsizes[0] = Y_LENGTH2; dimsizes[1] = X_LENGTH2; cmpsds_id = SDcreate(sd_id, "Chunked-Deflate-Data", DFNT_INT32, RANK, dimsizes); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDcreate"); sds_id = SDcreate(sd_id, "Chunked-NoDeflate-Data", DFNT_INT32, RANK, dimsizes); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDcreate"); /* Fill the SDS array with the fill value */ status = SDsetfillvalue(cmpsds_id, (VOIDP) &fill_value); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetfillvalue"); status = SDsetfillvalue(sds_id, (VOIDP) &fill_value); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetfillvalue"); /* Set info for chunking and compression */ HDmemset(&c_def, 0, sizeof(c_def)); c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; flag = HDF_CHUNK | HDF_COMP; c_def.comp.comp_type = COMP_CODE_DEFLATE; c_def.comp.cinfo.deflate.level = 6; status = SDsetchunk(cmpsds_id, c_def, flag); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetchunk"); HDmemset(&c_def, 0, sizeof(c_def)); c_def.chunk_lengths[0] = CHK_X; c_def.chunk_lengths[1] = CHK_Y; flag = HDF_CHUNK; status = SDsetchunk(sds_id, c_def, flag); CHECK(status, FAIL, "test_chkcmp_SDSs: SDsetchunk"); /* Set chunk cache to hold maximum of 3 chunks maxcache = 1; new_maxcache = SDsetchunkcache(cmpsds_id, maxcache, 0); CHECK(new_maxcache, FAIL, "test_chkcmp_SDSs: SDsetchunkcache"); new_maxcache = SDsetchunkcache(sds_id, maxcache, 0); CHECK(new_maxcache, FAIL, "test_chkcmp_SDSs: SDsetchunkcache"); */ /* Terminate access to the dataset before writing data to it. */ status = SDendaccess(cmpsds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); /* Re-select the datasets, write chunks using SDwritechunk function, then check their data sizes */ /* Get index of dataset using its name */ cmpsds_index = SDnametoindex(sd_id, "Chunked-Deflate-Data"); CHECK(cmpsds_index, FAIL, "test_chkcmp_SDSs: SDnametoindex"); sds_index = SDnametoindex(sd_id, "Chunked-NoDeflate-Data"); CHECK(sds_index, FAIL, "test_chkcmp_SDSs: SDnametoindex"); /* Select the datasets for access */ cmpsds_id = SDselect(sd_id, cmpsds_index); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDselect"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDselect"); /* Write the chunk with the coordinates (0,0) */ origin[0] = 0; origin[1] = 0; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); /* Write the chunk with the coordinates (1,0) */ origin[0] = 1; origin[1] = 0; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); /* Write the chunk with the coordinates (0,1) */ origin[0] = 0; origin[1] = 1; status = SDwritechunk(cmpsds_id, origin, (VOIDP) chunk2); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); status = SDwritechunk(sds_id, origin, (VOIDP) chunk2); CHECK(status, FAIL, "test_chkcmp_SDSs: SDwritechunk"); /* Terminate access to the datasets */ status = SDendaccess(cmpsds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDend"); /* Retrieve the offset and length of the chunks of both SDSs */ /* Create the file and initialize the SD interface */ sd_id = SDstart(CHKCMP_FILE, DFACC_RDWR); CHECK(sd_id, FAIL, "test_chkcmp_SDSs: SDstart"); /* Open dataset 'Chunked-Deflate-Data' */ cmpsds_id = SDselect(sd_id, cmpsds_index); CHECK(cmpsds_id, FAIL, "test_chkcmp_SDSs: SDselect"); /* Open dataset 'Chunked-NoDeflate-Data' */ sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_chkcmp_SDSs: SDselect"); /* * "Chunked-NoDeflate-Data" */ chk_coord[0] = chk_coord[1] = 0; info_count = SDgetdatainfo(sds_id, chk_coord, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_chkcmp_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_chkcmp_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetinfo SDS index 3"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds_info.dimsizes, &(sds_info.numtype), NULL); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetinfo"); /* Record number of values the SDS can have */ sds_info.n_values = comp_n_values(rank, sds_info.dimsizes); status = SDgetdatainfo(sds_id, chk_coord, 0, info_count, sds_info.offsets, sds_info.lengths); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetdatainfo"); free_info(&sds_info); status = SDendaccess(sds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); /* * "Chunked-Deflate-Data" */ chk_coord[0] = 0; chk_coord[1] = 1; info_count = SDgetdatainfo(cmpsds_id, chk_coord, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_chkcmp_SDSs: SDgetdatainfo"); VERIFY(info_count, 1, "test_chkcmp_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(cmpsds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetinfo"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&cmpsds_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(cmpsds_id, NULL, NULL, cmpsds_info.dimsizes, &(cmpsds_info.numtype), NULL); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetinfo"); /* Record number of values the SDS can have */ cmpsds_info.n_values = comp_n_values(rank, cmpsds_info.dimsizes); status = SDgetdatainfo(cmpsds_id, chk_coord, 0, info_count, cmpsds_info.offsets, cmpsds_info.lengths); CHECK(status, FAIL, "test_chkcmp_SDSs: SDgetdatainfo"); free_info(&cmpsds_info); status = SDendaccess(cmpsds_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_chkcmp_SDSs: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_chkcmp_SDSs */ /* * Test SDSs with unlimited dimensions. This routine creates SDSs with * unlimited dimensions, writes data to them, and use SDgetdatainfo to * verify the number of data blocks. */ #define EXTEND_FILE "datainfo_extend.hdf" /* data file */ #define BLOCK_SIZE 400 static intn test_extend_SDSs() { int32 sd_id, sds_id, sds_index; int32 dimsizes[2], starts[2], edges[2], rank = 0; int32 dimsize1[1], start1[1], edges1[1]; int32 data1[Y_LENGTH][X_LENGTH]; int32 data2[Y_LENGTH][X_LENGTH]; int32 data3[Y_LENGTH][X_LENGTH]; float fdata[Y_LENGTH]; int32 output[Y_LENGTH * 3][X_LENGTH]; uintn info_count = 0; t_hdf_datainfo_t sds_info; int32 *offarray = NULL, *lenarray = NULL; int32 block_size = 0; intn status; int i, j, kk; int num_errs = 0; /* number of errors so far */ /* Initialize data for the dataset */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) data1[j][i] = (i + j) + 1; /* Create the file and initialize the SD interface */ sd_id = SDstart(EXTEND_FILE, DFACC_CREATE); CHECK(sd_id, FAIL, "test_extend_SDSs: SDstart"); /* Create a 2x2 dataset called "Extend-Data 1" */ dimsizes[0] = SD_UNLIMITED; dimsizes[1] = X_LENGTH; sds_id = SDcreate(sd_id, "Extend-Data 1", DFNT_INT32, RANK2, dimsizes); CHECK(sds_id, FAIL, "test_extend_SDSs: SDcreate"); status = SDsetblocksize(sds_id, BLOCK_SIZE); /* to force linked blocks */ CHECK(status, FAIL, "test_extend_SDSs: SDsetblocksize"); /* Write the first batch of data to the dataset */ starts[0] = starts[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data1); CHECK(status, FAIL, "test_extend_SDSs: SDwritedata"); /* Get the block size of "Extend-Data 1" right after writing data */ status = SDgetblocksize(sds_id, &block_size); CHECK(status, FAIL, "test_extend_SDSs: SDgetblocksize"); VERIFY(block_size, BLOCK_SIZE, "SDgetblocksize"); /* Check data. */ HDmemset(&output, 0, sizeof(output)); status = SDreaddata(sds_id, starts, NULL, edges, (VOIDP) output); CHECK(status, FAIL, "test_extend_SDSs: SDreaddata"); /* Verify first batch of data in the unlimited dimension SDS */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) if (output[j][i] != data1[j][i]) fprintf(stderr, "Read value (%d) differs from written (%d) at [%d,%d]\n", output[j][i], data1[j][i], j, i); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Create another dataset with 1 unlimited dimension */ sds_id = SDcreate(sd_id, "Extend-Data 2", DFNT_FLOAT64, RANK1, dimsizes); CHECK(sds_id, FAIL, "test_extend_SDSs: SDcreate"); /* Define the location and size of the data to be written to the dataset */ start1[0] = 0; edges1[0] = Y_LENGTH; /* Write the stored data to 'Extend-Data 2' */ status = SDwritedata(sds_id, start1, NULL, edges1, (VOIDP) fdata); CHECK(status, FAIL, "test_extend_SDSs: SDwritedata"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Select the dataset "Extend-Data 1", then write more data to it */ sds_index = SDnametoindex(sd_id, "Extend-Data 1"); CHECK(sds_index, FAIL, "test_extend_SDSs: SDnametoindex"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_extend_SDSs: SDselect"); /* Get the block size of "Extend-Data 1" */ status = SDgetblocksize(sds_id, &block_size); CHECK(status, FAIL, "test_extend_SDSs: SDgetblocksize"); VERIFY(block_size, BLOCK_SIZE, "SDgetblocksize"); /* Initialize second batch of data for the extendable dataset */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) data2[j][i] = (i + j) + 10; /* Append the stored data to dataset "Extend-Data 1" */ starts[0] = Y_LENGTH; starts[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data2); CHECK(status, FAIL, "test_extend_SDSs: SDwritedata"); /* Initialize third batch of data for the extendable dataset */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) data3[j][i] = (i + j) + 100; starts[0] = Y_LENGTH + Y_LENGTH; starts[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; status = SDwritedata(sds_id, starts, NULL, edges, (VOIDP) data3); CHECK(status, FAIL, "test_extend_SDSs: SDwritedata"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Open "Extend-Data 1" again and check data. */ sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_extend_SDSs: SDselect"); starts[0] = 0; starts[1] = 0; edges[0] = Y_LENGTH + Y_LENGTH + Y_LENGTH; edges[1] = X_LENGTH; HDmemset(&output, 0, sizeof(output)); status = SDreaddata(sds_id, starts, NULL, edges, (VOIDP) output); CHECK(status, FAIL, "test_extend_SDSs: SDreaddata"); /* Check data against first batch */ for (j = 0; j < Y_LENGTH; j++) for (i = 0; i < X_LENGTH; i++) if (output[j][i] != data1[j][i]) fprintf(stderr, "Read value (%d) differs from written (%d) at [%d,%d]\n", output[j][i], data1[j][i], j, i); /* Check against second batch */ kk = Y_LENGTH; for (j = 0; j < Y_LENGTH; j++, kk++) for (i = 0; i < X_LENGTH; i++) if (output[kk][i] != data2[j][i]) fprintf(stderr, "Read value (%d) differs from written (%d) at [%d,%d]\n", output[kk][i], data2[j][i], kk, i); /* Check against third batch */ kk = Y_LENGTH+Y_LENGTH; for (j = 0; j < Y_LENGTH; j++, kk++) for (i = 0; i < X_LENGTH; i++) if (output[kk][i] != data3[j][i]) fprintf(stderr, "Read value (%d) differs from written (%d) at [%d,%d]\n", output[kk][i], data3[j][i], kk, i); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); /* Select the dataset "Extend-Data 1", then get offsets and lengths of its data blocks */ sds_index = SDnametoindex(sd_id, "Extend-Data 1"); CHECK(sds_index, FAIL, "test_extend_SDSs: SDnametoindex"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_extend_SDSs: SDselect"); info_count = SDgetdatainfo(sds_id, NULL, 0, 0, NULL, NULL); CHECK(info_count, FAIL, "test_extend_SDSs: SDgetdatainfo"); VERIFY(info_count, 3, "test_extend_SDSs: SDgetdatainfo"); /* Get SDS' rank */ status = SDgetinfo(sds_id, NULL, &rank, NULL, NULL, NULL); CHECK(status, FAIL, "test_extend_SDSs: SDgetinfo"); /* Allocate space to record the SDS' data info for later use */ alloc_info(&sds_info, info_count, rank); /* Get SDS' information */ status = SDgetinfo(sds_id, NULL, NULL, sds_info.dimsizes, &(sds_info.numtype), NULL); CHECK(status, FAIL, "test_extend_SDSs: SDgetinfo"); /* Record number of values the SDS can have */ sds_info.n_values = comp_n_values(rank, sds_info.dimsizes); /* Get offsets and lengths of the data */ info_count = SDgetdatainfo(sds_id, NULL, 0, info_count, sds_info.offsets, sds_info.lengths); { /* Verify the offsets and lengths returned by SDgetdatainfo */ /* NOTE: if "datainfo_extend.hdf" is changed, the following initialization of the offsets must be updated accordingly. -BMR */ int32 check_offsets[3] = {2776, 3962, 4362}; int32 check_lengths[3] = {400, 400, 400}; VERIFY(info_count, 3, "test_extend_SDSs: SDgetdatainfo"); for (kk = 0; kk < info_count; kk++) { if (sds_info.offsets[kk] != check_offsets[kk]) fprintf(stderr, "test_extend_SDSs: incorrect offset %d for block #%d\n", sds_info.offsets[kk], kk); if (sds_info.lengths[kk] != check_lengths[kk]) fprintf(stderr, "test_extend_SDSs: incorrect length %d for block #%d\n", sds_info.lengths[kk], kk); } } /* done verifying offsets and lengths */ /* Release memory */ free_info(&sds_info); /* Close this SDS and the SD interface */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_extend_SDSs: SDend"); /* * Reopen the file and verify that "Extend-Data 1" has the correct * block size that was set earlier. */ /* Create the file and initialize the SD interface */ sd_id = SDstart(EXTEND_FILE, DFACC_RDONLY); CHECK(sd_id, FAIL, "test_extend_SDSs: SDstart"); /* Select the dataset "Extend-Data 1" */ sds_index = SDnametoindex(sd_id, "Extend-Data 1"); CHECK(sds_index, FAIL, "test_extend_SDSs: SDnametoindex"); sds_id = SDselect(sd_id, sds_index); CHECK(sds_id, FAIL, "test_extend_SDSs: SDselect"); /* Verify that the block size is still as set earlier */ status = SDgetblocksize(sds_id, &block_size); CHECK(status, FAIL, "test_extend_SDSs: SDgetblocksize"); VERIFY(block_size, BLOCK_SIZE, "SDgetblocksize"); /* Close this SDS and the SD interface */ status = SDendaccess(sds_id); CHECK(status, FAIL, "test_extend_SDSs: SDendaccess"); status = SDend(sd_id); CHECK(status, FAIL, "test_extend_SDSs: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_extend_SDSs */ /* Test driver for testing the public function SDgetdatainfo. */ extern int test_datainfo() { intn status; int num_errs = 0; /* Output message about test being performed */ TESTING("getting location info of data (tdatainfo.c)"); /* Test nonspecial SDSs */ num_errs = num_errs + test_nonspecial_SDSs(); /* Test compressed SDSs */ num_errs = num_errs + test_compressed_SDSs(); /* Test chunked empty SDSs */ num_errs = num_errs + test_empty_SDSs(); /* Test chunked_partial SDSs */ num_errs = num_errs + test_chunked_partial(); /* Test chunked SDSs */ num_errs = num_errs + test_chkcmp_SDSs(); /* Test extendable SDSs */ num_errs = num_errs + test_extend_SDSs(); if (num_errs == 0) PASSED(); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/testmfhdf.sh.in0000755000000000000000000000477712421456623016120 0ustar #! /bin/sh # Tests for the hdiff tool srcdir=@srcdir@ CMP='cmp -s' DIFF='diff -c' nerrors=0 verbose=yes # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All mfhdf tests passed" else MESG 0 "mfhdf tests failed: $nerrors" fi exit $nerrors } # Print a line-line message left justified in a field of 70 characters # beginning with the word "Testing". # TESTING() { SPACES=" " echo "Testing $* $SPACES" | cut -c1-70 | tr -d '\012' } # Run a test and print PASS or *FAIL*. If a test fails then increment # the `nerrors' global variable # RUN() { # Run test. # Tflops interprets "$@" as "" when no parameter is given (e.g., the # case of missing file name). Changed it to use $@ till Tflops fixes it. MESG 0 "HDF-SD C interface tests" ${TESTS_ENVIRONMENT} ./hdftest RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi MESG 0 "HDF-nc C interface tests" ${TESTS_ENVIRONMENT} ./hdfnctest RET=$? if [ $RET -eq 1 ]; then echo "*FAILED*" nerrors="`expr $nerrors + 1`" fi MESG 0 "netCDF formatted tests" ${TESTS_ENVIRONMENT} ./cdftest > cdfout.new cmd="$DIFF cdfout.new $srcdir/testout.sav"; \ echo $cmd; \ if $cmd; then \ echo "*** netCDF passes formatted test ***"; \ else \ echo "*** netCDF fails formatted test ***"; \ echo "The above differences are OK if small" fi } ############################################################################## ### T H E T E S T S ### ############################################################################## # Print a beginning banner MESG 0 "Running mfhdf tests" # compare output RUN # End of test, return exit code FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/test/hdftest.c0000644000000000000000000015216212421456623014765 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5218 $"; #endif /* $Id: hdftest.c 5218 2009-08-29 04:21:49Z bmribler $ */ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define UFOFILE "file.UFO" /* non-existing file */ #define FILE1 "test1.hdf" #define FILE2 "test2.hdf" #define EXTTST "exttst.hdf" /* main file for external file test */ #define EXTFILE "SD_externals" /* external file created in test */ #define NBITFILE "nbit.hdf" #define COMPFILE1 "comptst1.hdf" #define COMPFILE2 "comptst2.hdf" #define COMPFILE3 "comptst3.hdf" #define COMPFILE4 "comptst4.hdf" #define COMPFILE5 "comptst5.hdf" #define COMPFILE6 "comptst6.hdf" #define COMPFILE7 "comptst7.hdf" #define CHKFILE "chktst.hdf" /* Chunking test file */ #define CNBITFILE "chknbit.hdf" /* Chunking w/ NBIT compression */ /* Which tests to run? */ #define EXTERNAL_TEST #define NBIT_TEST #define COMP_TEST #define CHUNK_TEST /* commented out for now because of 'long' handling on 64-bit machines by this version of the netCDF library is broken. The new version of the netCDF library(2.4.3?) has fixed this I think. To fix it here requires merging in those fixes.*/ #define NETCDF_READ_TEST /* all test functions to be called in main */ extern int test_netcdf_reading(); extern int test_szip_compression(); extern int test_checkempty(); extern int test_idtest(); /* extern int test_sd(); - removed temporarily, see note in main(...) */ extern int test_mixed_apis(); extern int test_files(); extern int test_SDSprops(); extern int test_coordvar(); extern int test_chunk(); extern int test_compression(); extern int test_dimension(); extern int test_attributes(); extern int test_datasizes(); extern int test_datainfo(); extern int test_att_ann_datainfo(); int main(int argc, char *argv[]) { int32 f1, f2, fext, fnbit; /* File handles */ int32 nt; /* Number type */ int32 dimsize[10]; /* dimension sizes */ int32 newsds, newsds2, newsds3; /* SDS handles */ int32 sdsid; /* SDS handle */ int32 noextsds; /* no external SDS id */ int32 dimid, dimid1, dimid2; /* Dimension handles */ int32 num_sds; /* number of SDS in file */ int32 num_gattr; /* Number of global attributes */ int32 offset; /* offset for ? */ int32 index; /* Index of dataset in file */ int32 ival; int32 sdid; /* another SDS handle */ int32 rank; /* rank of SDS */ intn status; /* status flag */ intn i; /* loop variables */ intn nattrs; /* Number of attributes again? */ char name[90]; char text[256]; int32 start[10], end[10], stride[10]; /* start, end, stride arrays */ int32 scale[10]; char l[80], u[80], fmt[80], c[80]; int32 count; int32 fillval, readval; int32 idata[100]; int32 rdata[100]; int16 sdata[100], outdata[100]; int32 ndg_saved_ref; /* used to save a ref of an SDS in one of the test */ uint8 iuval; float32 data[1000], max, min, imax, imin; float64 cal, cale, ioff, ioffe; int num_errs = 0; /* number of errors so far */ ncopts = NC_VERBOSE; /* Testing SDstart */ /* Try start non-existing file with RDONLY and RDWR. Both should fail. */ f1 = SDstart(UFOFILE, DFACC_RDONLY); if (f1 != FAIL) { fprintf(stderr, "SDstart(..., RDONLY) should fail\n"); num_errs++; SDend(f1); } f1 = SDstart(UFOFILE, DFACC_RDWR); if (f1 != FAIL) { fprintf(stderr, "SDstart(..., RDWR) should fail\n"); num_errs++; SDend(f1); } /* -------hmm what are testing here?----------------- */ /* Create two files */ f1 = SDstart(FILE1, DFACC_CREATE); CHECK(f1, FAIL, "SDstart"); f2 = SDstart(FILE2, DFACC_CREATE); CHECK(f2, FAIL, "SDstart"); /* whats in these empty files */ status = SDfileinfo(f1, &num_sds, &num_gattr); CHECK(status, FAIL, "SDfileinfo"); if(num_gattr != 0) { fprintf(stderr, "File %s still has stuff in it\n", FILE1); num_errs++; } /* create a 4 by 8 dataset called DataSetAlpha in file test1.hdf */ dimsize[0] = 4; dimsize[1] = 8; newsds = SDcreate(f1, "DataSetAlpha", DFNT_FLOAT32, 2, dimsize); CHECK(newsds, FAIL, "SDcreate: Failed to create a new data set DataSetAlpha "); /* save the ref number for the first dataset --- will check at very end */ ndg_saved_ref = SDidtoref(newsds); CHECK(ndg_saved_ref, 0, "SDidtoref: Failed to get NDG ref for DataSetAlpha "); /* create datatset DataSetGamma in file test1.hdf */ newsds3 = SDcreate(f1, "DataSetGamma", DFNT_FLOAT64, 1, dimsize); CHECK(newsds3, FAIL, "SDcreate:Failed to create a new data set gamma"); /* get info on number of datasets and global attributes in file */ status = SDfileinfo(f1, &num_sds, &num_gattr); CHECK(status, FAIL, "SDfileinfo"); if(num_sds != 2) { fprintf(stderr, "Wrong number of datasets in file 1\n"); num_errs++; } /* get dimension handle for first dimension? of DataSetGamma */ dimid = SDgetdimid(newsds3, 0); CHECK(dimid, FAIL, "SDgetdimid:Failed to get dimension id"); /* reset the dimension name to Mydim? */ status = SDsetdimname(dimid, "MyDim"); CHECK(status, FAIL, "SDsetdimname: Failed to set dimension name to 'MyDim'"); /* Set dimension attribute to 'TRUE' */ status = SDsetattr(dimid, "DimensionAttribute", DFNT_CHAR8, 4, "TRUE"); CHECK(status, FAIL, "SDsetattr: Failed to set Dimension attribute"); /* hmm. look it back up again. */ status = SDfindattr(dimid, "DimensionAttribute"); if(status != 0) { fprintf(stderr, "SDfindattr: Bad index for finding 'DimensionAttribute' %d\n", status); num_errs++; } /* Find out info about first atribute for dimension */ status = SDattrinfo(dimid, (int32) 0, name, &nt, &count); CHECK(status, FAIL, "SDattrinfo"); /* read first attribute in, assume CHAR here. */ status = SDreadattr(dimid, 0, text); CHECK(status, FAIL, "SDreadattr"); /* Compare value reterieved to what was written */ if(HDstrncmp(text, "TRUE", count)) { fprintf(stderr, "SDreadattr: Invalid dimension attribute read <%s>\n", text); num_errs++; } /* get First dimension of dataset 'DataSetAlpha' */ dimid = SDgetdimid(newsds, 0); CHECK(dimid, FAIL, "SDgetdimid: Failed to get dimension id"); /* Set this name of this dimension to 'Mydim' */ status = SDsetdimname(dimid, "MyDim"); CHECK(status, FAIL, "SDsetdimname"); /* Set the scales for this dimension also */ scale[0] = 1; scale[1] = 5; scale[2] = 7; scale[3] = 24; status = SDsetdimscale(dimid, 4, DFNT_INT32, (VOIDP) scale); CHECK(status, FAIL, "SDsetdimscale"); /* Set the dimension strings for the dimension also */ status = SDsetdimstrs(dimid, "DimLabel", NULL, "TheFormat"); CHECK(status, FAIL, "SDsetdimstrs"); /* verify that we can read the dimensions values with SDreaddata */ start[0] = 0; end[0] = 4; status = SDreaddata(dimid, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDreaddata"); /* compare retrieved values for scale */ for(i = 0; i < 4; i++) { if(idata[i] != scale[i]) { fprintf(stderr, "SDreaddata() returned %ld not %ld in location %d\n", (long)idata[i], (long)scale[i], i); num_errs++; } } /* hmm...lets store an attribute here for the dimension */ max = (float32)3.1415; status = SDsetattr(dimid, "DimAttr", DFNT_FLOAT32, 1, (VOIDP) &max); CHECK(status, FAIL, "SDsetattr"); /* lets make sure we can read it too */ status = SDattrinfo(dimid, 3, name, &nt, &count); CHECK(status, FAIL, "SDattrinfo"); if(nt != DFNT_FLOAT32) { fprintf(stderr, "Wrong number type for SDattrinfo(dim)\n"); num_errs++; } if(count != 1) { fprintf(stderr, "Wrong count for SDattrinfo(dim)\n"); num_errs++; } if(strcmp(name, "DimAttr")) { fprintf(stderr, "Wrong name for SDattrinfo(dim)\n"); num_errs++; } /* get second dimension of data set 'DataSetAlpha' */ dimid2 = SDgetdimid(newsds, 1); CHECK(dimid2, FAIL, "SDgetdimid: Failed to get second dimension id"); /* lets store an attribute for the dimension without explicitly creating the coord var first */ ival = -256; status = SDsetattr(dimid2, "Integer", DFNT_INT32, 1, (VOIDP) &ival); CHECK(status, FAIL, "SDsetattr"); /* lets make sure we can read it too */ status = SDattrinfo(dimid2, 0, name, &nt, &count); CHECK(status, FAIL, "SDattrinfo"); if(nt != DFNT_INT32) { fprintf(stderr, "Wrong number type for SDattrinfo(dim)\n"); num_errs++; } if(count != 1) { fprintf(stderr, "Wrong count for SDattrinfo(dim)\n"); num_errs++; } if(strcmp(name, "Integer")) { fprintf(stderr, "Wrong name for SDattrinfo(dim)\n"); num_errs++; } /* read dimension attribute back in */ ival = 0; status = SDreadattr(dimid2, 0, (VOIDP) &ival); CHECK(status, FAIL, "SDreatattr"); if(ival != -256) { fprintf(stderr, "Wrong value for SDreadattr(dim)\n"); num_errs++; } /* add an unsigned integer as an dimension attribute */ iuval = 253; status = SDsetattr(dimid2, "UnsignedInteger", DFNT_UINT8, 1, (VOIDP) &iuval); CHECK(status, FAIL, "SDsetattr"); /* lets make sure we can read it too */ status = SDattrinfo(dimid2, 1, name, &nt, &count); CHECK(status, FAIL, "SDattrinfo"); if(nt != DFNT_UINT8) { fprintf(stderr, "Wrong number type for SDattrinfo(dim)\n"); num_errs++; } if(count != 1) { fprintf(stderr, "Wrong count for SDattrinfo(dim)\n"); num_errs++; } if(strcmp(name, "UnsignedInteger")) { fprintf(stderr, "Wrong name for SDattrinfo(dim)\n"); num_errs++; } /* read second dimension attribute back in */ iuval = 0; status = SDreadattr(dimid2, 1, (VOIDP) &iuval); CHECK(status, FAIL, "SDreatattr"); if(iuval != 253) { fprintf(stderr, "Wrong value for SDreadattr(dim)\n"); num_errs++; } /* Find index of data set 'DataSetAlpha' in file test1.hdf */ status = SDnametoindex(f1, "DataSetAlpha"); if(status != 0) { fprintf(stderr, "Couldn't find data set in file 1\n"); num_errs++; } /* Try finding data set in test2.hdf, should fail? */ status = SDnametoindex(f2, "DataSetAlpha"); if(status != FAIL) { fprintf(stderr, "Found data set in wrong file 2\n"); num_errs++; } /* Try finding non-existent dataset in file, should fail */ status = SDnametoindex(f1, "BogusDataSet"); if(status != FAIL) { fprintf(stderr, "Found bogus data set in file 1\n"); num_errs++; } /* Set fill value for data set 'DataSetAlpha' assume we still have valid handle at this point...*/ max = -17.5; status = SDsetfillvalue(newsds, (VOIDP) &max); CHECK(status, FAIL, "SDsetfillvalue"); /* initialize array to write out */ for(i = 0; i < 10; i++) data[i] = (float32) i; /* write out (1,1)->(3,3) array out */ start[0] = start[1] = 1; end[0] = end[1] = 3; status = SDwritedata(newsds, start, NULL, end, (VOIDP) data); CHECK(status, FAIL, "SDwritedata"); /* set the range for data set 'DataSetAlpha' */ max = (float32)10.0; min = (float32)4.6; status = SDsetrange(newsds, (VOIDP) &max, (VOIDP) &min); CHECK(status, FAIL, "SDsetrange"); /* Brillant...., retrieve it right back....*/ status = SDgetrange(newsds, (VOIDP) &imax, (VOIDP) &imin); CHECK(status, FAIL, "SDsetrange"); /* set a character attribute for data set 'DataSetAlpha' */ status = SDsetattr(newsds, "spam", DFNT_CHAR8, 6, "Hi mom"); CHECK(status, FAIL, "SDsetattr"); /* Set the data strings for data set 'DataSetAlpha' */ status = SDsetdatastrs(newsds, "TheLabel", "TheUnits", NULL, "TheCordsys"); CHECK(status, FAIL, "SDsetdatastrs"); /* Brilliant.....retrieve them right back */ status = SDgetdatastrs(newsds, l, u, fmt, c, 80); CHECK(status, FAIL, "SDgetdatastrs"); if(HDstrcmp(l, "TheLabel")) { fprintf(stderr, "Bogus label returned (%s)\n", l); num_errs++; } if(HDstrcmp(u, "TheUnits")) { fprintf(stderr, "Bogus units returned (%s)\n", u); num_errs++; } if(HDstrcmp(fmt, "")) { fprintf(stderr, "Bogus format returned\n"); num_errs++; } if(HDstrcmp(c, "TheCordsys")) { fprintf(stderr, "Bogus cordsys returned\n"); num_errs++; } /* retrieve CHAR attribute for 'DataSetAlpha' */ status = SDfindattr(newsds, "spam"); if(status != 2) { fprintf(stderr, "Bad index for SDfindattr\n"); num_errs++; } /* retrieve non-existent CHAR attribute for 'DataSetAlpha'. Should fail. */ status = SDfindattr(newsds, "blarf"); if(status != FAIL) { fprintf(stderr, "SDfindattr found non-existant attribute\n"); num_errs++; } /* hmm....set global attributes for File 'test1.hdf' */ status = SDsetattr(f1, "F-attr", DFNT_CHAR8, 10, "globulator"); CHECK(status, FAIL, "SDsetattr"); /* get info about the global attribute just created....*/ status = SDattrinfo(f1, (int32) 0, name, &nt, &count); CHECK(status, FAIL, "SDattrinfo"); /* read this global attribute back in ....*/ status = SDreadattr(f1, 0, text); CHECK(status, FAIL, "SDreadattr"); if(HDstrncmp(text, "globulator", count)) { fprintf(stderr, "Invalid global attribute read <%s>\n", text); num_errs++; } /* Get number of SDS and global attributes in file 'test2.hdf'. It should be empty...*/ status = SDfileinfo(f2, &num_sds, &num_gattr); if(num_sds != 0) { fprintf(stderr, "File2 still has stuff in it\n"); num_errs++; } /* Set calibration info for dataset 'DataSetGamma' in file 'test1.hdf' */ cal = 1.0; cale = 5.0; ioff = 3.0; ioffe = 2.5; nt = DFNT_INT8; status = SDsetcal(newsds3, cal, cale, ioff, ioffe, nt); CHECK(status, FAIL, "SDsetcal"); /* create a record variable in file 'test2.hdf' */ dimsize[0] = SD_UNLIMITED; dimsize[1] = 6; newsds2 = SDcreate(f2, "DataSetBeta", DFNT_INT16, 2, dimsize); CHECK(newsds2, FAIL, "SDcreate: Failed to create new data set 'DataSetBeta'"); /* get info on number of SDSs and global attributes in file 'test2.hdf' There should be only 1 SDS */ status = SDfileinfo(f2, &num_sds, &num_gattr); if(num_sds != 1) { fprintf(stderr, "Wrong number of datasets in file 2\n"); num_errs++; } for(i = 0; i < 50; i++) sdata[i] = i; /* Write data to dataset 'DataSetBeta' in file 'test2.hdf' */ start[0] = start[1] = 0; end[0] = 8; end[1] = 6; status = SDwritedata(newsds2, start, NULL, end, (VOIDP) sdata); CHECK(status, FAIL, "SDwritedata"); /* Now read part of an earlier dataset,'DataSetAlpha', back in from file 'test1.hdf' */ start[0] = start[1] = 0; end[0] = end[1] = 3; status = SDreaddata(newsds, start, NULL, end, (VOIDP) data); CHECK(status, FAIL, "SDreaddata"); /* verify the data values retrieved from 'DataSetAlpha' */ if(data[0] != -17.5) { fprintf(stderr, "Wrong value returned loc 0: %f\n",(float)data[0]); num_errs++; } if(data[3] != -17.5) { fprintf(stderr, "Wrong value returned loc 3: %f\n",(float)data[3]); num_errs++; } if(data[5] != 1.0) { fprintf(stderr, "Wrong value returned loc 5: %f\n",(float)data[5]); num_errs++; } if(data[6] != -17.5) { fprintf(stderr, "Wrong value returned loc 6: %f\n",(float)data[6]); num_errs++; } if(data[8] != 4.0) { fprintf(stderr, "Wrong value returned loc 8: %f\n",(float)data[8]); num_errs++; } for(i = 0; i < 50; i++) outdata[i] = 0; /* read data back in from 'DataSetBeta' from file 'test2.hdf' */ start[0] = start[1] = 1; end[0] = 3; end[1] = 3; stride[0] = 2; stride[1] = 2; status = SDreaddata(newsds2, start, stride, end, (VOIDP) outdata); CHECK(status, FAIL, "SDreaddata"); { /* verify read values; should be 7 9 11 19 21 23 31 33 35 */ int i,j; /* indexing the two dimensions */ int k,l; /* counters = number of elements read on each dimension */ int m=0; /* indexing the outdata array */ for(i = 1,l=0; l<3; i=i+2,l++) for (j =(i*6)+1,k=0; k<3; j=j+2,k++,m++) { if (m < 10) /* number of elements read is 9 */ if (outdata[m] != sdata[j]) { fprintf(stderr, "line %d, wrong value: should be %d, got %d\n", __LINE__, sdata[j], outdata[m]); num_errs++; } } } /* why do we set calibration info and then use SDgetcal() on dataset 'DataSetGamma' ? */ cal = 1.0; cale = 5.0; ioff = 3.0; ioffe = 2.5; nt = DFNT_INT8; status = SDgetcal(newsds3, &cal, &cale, &ioff, &ioffe, &nt); CHECK(status, FAIL, "SDgetcal"); /* Verify calibration data for data set 'DataSetGamma' */ if(cal != 1.0) { fprintf(stderr, "Wrong calibration info\n"); num_errs++; } if(cale != 5.0) { fprintf(stderr, "Wrong calibration info\n"); num_errs++; } if(ioff != 3.0) { fprintf(stderr, "Wrong calibration info\n"); num_errs++; } if(ioffe != 2.5) { fprintf(stderr, "Wrong calibration info\n"); num_errs++; } if(nt != DFNT_INT8) { fprintf(stderr, "Wrong calibration info\n"); num_errs++; } /* end access to data set 'DataSetAlpha' */ status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* end access to data set 'DataSetBeta' */ status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); /* end access to data set 'DataSetGamma' */ status = SDendaccess(newsds3); CHECK(status, FAIL, "SDendaccess"); /* Close access to file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* Close access to file 'test2.hdf' */ status = SDend(f2); CHECK(status, FAIL, "SDend"); /* * New set of tests?..... */ /* test SDsetfillmode */ /* test fixed size SDS */ /* create an empty SDS, set SD_NOFILL. Change the fill mode to SD_FILL, and write a slab of data */ /* open file 'test1.hdf' */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart (again)"); /* Set fill mode on file to not write out fill values */ status = SDsetfillmode(f1, SD_NOFILL); CHECK(status, FAIL, "SDsetfillmode: (SD_NOFILL)"); /* Create data set 'FIXED1' in file test1.hdf */ dimsize[0]=5; dimsize[1]=6; sdid = SDcreate(f1, "FIXED1", DFNT_INT32, 2, dimsize); CHECK(sdid, FAIL, "SDcreate:Fail to create data set 'FIXED1' in 'test1.hdf'"); for (i=0; i<30; i++) idata[i] = i+100; /* Set fill value attribute for data set 'FIXED1' using SDsetattr(). Same affect as using SDsetfillvalue(). */ fillval = -300; status = SDsetattr(sdid, "_FillValue", DFNT_INT32, 1, (VOIDP) &fillval); /* can use SDsetfillvalue */ CHECK(status, FAIL, "SDsetattr"); /* Test get compression info when the data set is empty and not set to be compressed */ { comp_coder_t comp_type; /* type of compression */ comp_info cinfo; /* compression information */ status = SDgetcompinfo(sdid, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_NONE, "SDgetcompinfo"); } /* end access to data set 'FIXED1' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* get index of dataset in file 'test1.hdf' called 'FIXED1' */ index = SDnametoindex(f1, "FIXED1"); CHECK(index, FAIL, "SDnametoindex"); /* Select data set 'FIXED1' based on it's index */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect"); /* change the fill mode for the file back to writing out the fill values. */ status = SDsetfillmode(f1, SD_FILL); CHECK(status, FAIL, "SDsetfillmode"); /* Write data to data set 'FIXED1'. Note that SD_FILL mode is on. */ start[0]=2; start[1]=0; end[0]=1; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata: (SD_FILL)"); /* Test get compression info when the data set is not empty and compressed */ { comp_coder_t comp_type; /* type of compression */ comp_info cinfo; /* compression information */ status = SDgetcompinfo(sdid, &comp_type, &cinfo); CHECK(status, FAIL, "SDgetcompinfo"); VERIFY(comp_type, COMP_CODE_NONE, "SDgetcompinfo"); } /* end access to data set 'FIXED1' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* set the fill mode for 'test1.hdf' to no-fill */ status = SDsetfillmode(f1, SD_NOFILL); CHECK(status, FAIL, "SDsetfillmode (SD_NOFILL)"); /* create a data set 'FIXED' in file 'test1.hdf' */ sdid = SDcreate(f1, "FIXED", DFNT_INT32, 2, dimsize); CHECK(sdid,FAIL,"SDcreate:Failed to create data set 'FIXED' in file 'test1.hdf'"); for (i=0; i<30; i++) idata[i] = i+100; /* Set fill value for data set 'FIXED' using SDsetfillvalue() */ fillval = -300; status = SDsetfillvalue(sdid, (VOIDP) &fillval); CHECK(status, FAIL, "SDsetfillvalue"); /* write out the first 2 records to data set 'FIXED' with SD_NOFILL mode */ start[0]=2; start[1]=0; end[0]=1; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata: (SD_NOFILL)"); /* end access to data set 'FIXED' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* open again, write record 4 with SD_FILL mode */ /* fill values already written out in the first SDwritedata, fillmode changes should not affect the fill values */ /* open file 'test1.hdf' */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart: test1.hdf"); /* Set fill mode to SD_FILL */ status = SDsetfillmode(f1, SD_FILL); CHECK(status, FAIL, "SDsetfillmode: (SD_FILL)"); /* get index of data set 'FIXED' */ index = SDnametoindex(f1, "FIXED"); CHECK(index, FAIL, "SDnametoindex: (FIXED)"); /* Select the data set 'FIXED' based on its index */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect: (FIXED)"); /* Get its fill value */ status = SDgetfillvalue(sdid, &readval); CHECK(status, FAIL, "SDgetfillvalue: (FIXED)"); VERIFY(readval, -300, "SDgetfillvalue"); /* Write record 4 */ start[0]=4; start[1]=0; end[0]=1; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata (SD_FILL)"); /* end access to data set 'FIXED' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* read back and check fill values */ /* open file 'test1.hdf' back up */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart: test1.hdf"); /* get index of data set 'FIXED' */ index = SDnametoindex(f1, "FIXED"); CHECK(index, FAIL, "SDnametoindex (FIXED)"); /* Select the data set 'FIXED' based on its index */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect (FIXED)"); /* read data back in from data set 'FIXED' */ start[0]=0; start[1]=0; end[0]=5; end[1]=6; status = SDreaddata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDreaddata(FIXED)"); /* verify the data */ for (i=12; i<18; i++) { if ((idata[i] != 100 + (i-12)) || (idata[i+12] != 100 + (i-12))) { fprintf(stderr, "line %d, wrong value: should be %d, got %d %d\n", __LINE__,100 + i-12, (int)idata[i], (int)idata[i+12]); num_errs++; } } for (i=18; i<24; i++) { if (idata[i] ==fillval) { fprintf(stderr, "line %d, wrong value: should not be %d, got %d\n", __LINE__,(int)fillval, (int)idata[i]); num_errs++; } } /* end access to data set 'FIXED' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* read back in data set 'FIXED1' , with fill values */ /* get index of data set 'FIXED1' from file 'test1.hdf' */ index = SDnametoindex(f1, "FIXED1"); CHECK(index, FAIL, "SDnametoindex (FIXED1)"); /* select dataset 'FIXED1' based on its index in the file */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect (FIXED1)"); /* read data from data set 'FIXED1' */ start[0]=0; start[1]=0; end[0]=5; end[1]=6; status = SDreaddata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDreaddata(FIXED)"); /* verify the data */ for (i=12; i<18; i++) { if (idata[i] != (100 + (i-12))) { fprintf(stderr, "line %d, wrong value: should be %d, got %d \n", __LINE__, 100 + i-12, (int)idata[i]); num_errs++; } } for (i=18; i<24; i++) { if (idata[i] != fillval) { fprintf(stderr, "line %d, wrong value: should be %d, got %d\n", __LINE__, (int)fillval, (int)idata[i]); num_errs++; } } /* end access to data set 'FIXED1' in file 'test1.hdf' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* * test UNLIMITED size SDS */ /* open file 'test1.hdf' */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart (file1)"); /* set fill mode to no-fill */ status = SDsetfillmode(f1, SD_NOFILL); CHECK(status, FAIL, "SDsetfillmode (SD_NOFILL)"); /* Set first dimension to UNLIMITED. Create data set 'UNLIMITED_SDS' in file 'test1.hdf' */ dimsize[0]=SD_UNLIMITED; dimsize[1]=6; sdid = SDcreate(f1, "UNLIMITED_SDS", DFNT_INT32, 2, dimsize); CHECK(sdid, FAIL, "SDcreate:Failed to create data set 'UNLIMITED_SDS' in file 'test1.hdf'"); for (i=0; i<24; i++) idata[i] = i; /* Set fill value for data set 'UNLIMITED_SDS' */ fillval = -300; status = SDsetfillvalue(sdid, (VOIDP) &fillval); CHECK(status, FAIL, "SDsetfillvalue"); /* write out the third record with SD_NOFILL mode on */ start[0]=2; start[1]=0; end[0]=1; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata: (SD_NOFILL, UNLIMITED)"); /* end access to data set 'UNLIMITED_SDS' in file 'test1.hdf' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* Close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* open again, write record 4 with SD_FILL mode */ /* open file 'test1.hdf' again */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart: test1.hdf"); /* set fill mode to SD_FILL */ status = SDsetfillmode(f1, SD_FILL); CHECK(status, FAIL, "SDsetfillmode: (SD_FILL)"); /* get index of data set 'UNLIMITED_SDS' */ index = SDnametoindex(f1, "UNLIMITED_SDS"); CHECK(index, FAIL, "SDnametoindex: (UNLIMITED)"); /* select data set 'UNLIMITED_SDS' based on its index in the file */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect: (UNLIMITED)"); /* write 4?th record to data set */ start[0]=4; start[1]=0; end[0]=1; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata: (SD_FILL)"); /* end access to data set 'UNLIMITED_SDS' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* read back and check fill values */ /* open file 'test1.hdf' again */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart: (test1.hdf)"); /* get index of data set 'UNLIMITED_SDS' */ index = SDnametoindex(f1, "UNLIMITED_SDS"); CHECK(index, FAIL, "SDnametoindex: (UNLIMITED_SDS)"); /* select data set 'UNLIMITED_SDS' based on it's index in the file */ sdid = SDselect(f1, index); CHECK(sdid, FAIL, "SDselect: (UNLIMITED_SDS)"); /* read data from data set 'UNLIMITED_SDS' */ start[0]=0; start[1]=0; end[0]=5; end[1]=6; status = SDreaddata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata(NO_FILL)"); /* verify the data */ for (i=12; i<18; i++) { if ((idata[i] != (i-12)) || (idata[i+12] != (i-12))) { fprintf(stderr, "line %d, wrong value for %d: should be %d, got %d\n", __LINE__, i-12, (int)idata[i], (int)idata[i+12]); num_errs++; } } for (i=18; i<24; i++) { if (idata[i] !=fillval) { fprintf(stderr, "line %d, wrong value: should be %d, got %d\n", __LINE__, (int)fillval, (int)idata[i]); num_errs++; } } /* end access to data set 'UNLIMITED_SDS' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* * test SDsetdimval_incomp() */ /* open file 'test1.hdf' */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart (file1)"); /* set first dimension to be UNLIMITED. Create data set 'dimval_1_compat' */ dimsize[0]=SD_UNLIMITED; dimsize[1]=6; sdid = SDcreate(f1, "dimval_1_compat", DFNT_INT32, 2, dimsize); CHECK(sdid,FAIL,"SDcreate:Failed to create data set 'dimval_1_compat' in file 'test1.hdf'"); /* get handle for first dimension of data set 'dimval_1_compat' */ dimid=SDgetdimid(sdid, 0); CHECK(dimid, FAIL, "SDgetdimid"); /* get handle for second dimension of data set 'dimval_1_compat' */ dimid1=SDgetdimid(sdid, 1); CHECK(dimid1, FAIL, "SDgetdimid"); /* set second dimension as being backward compatible, default is non-compatible */ status = SDsetdimval_comp(dimid1, SD_DIMVAL_BW_COMP); CHECK(status, FAIL, "SDsetdimval_comp"); for (i=0; i<6; i++) scale[i]=i*5; /* set the scale for the second dimension */ status = SDsetdimscale(dimid1, 6, DFNT_INT32, scale); CHECK(status, FAIL, "SDsetdimscale"); for (i=0; i<24; i++) idata[i] = i; /* write data to data set 'dimval_1_compat' in file 'test1.hdf' */ start[0]=0; start[1]=0; end[0]=4; end[1]=6; status = SDwritedata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata"); /* end access to data set 'dimval_1_compat' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* read back and change dimval compatibility */ /* open file 'test1.hdf' again */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart: (again2)"); /* get index of data set 'dimval_1_compat' in file 'test1.hdf' */ index = SDnametoindex(f1, "dimval_1_compat"); CHECK(index,FAIL,"SDnametoindex: failed to get index for data set 'dimval_non_compat' in file 'test1.hdf'"); /* select data set 'dimval_1_compat' based on it's index in file */ sdid = SDselect(f1, index); CHECK(sdid,FAIL,"SDselect:Failed to select data set 'dimval_1_compat' in file 'test1.hdf'"); /* info on data set 'dimval_1_compat' */ status = SDgetinfo(sdid, name, (int32 *)&rank, dimsize, &nt, (int32 *)&nattrs); CHECK(status, FAIL, "SDgetinfo"); /* verify correctness of information */ if (rank!=2 || dimsize[0]!=4 || dimsize[1]!=6 || nt!=DFNT_INT32) { fprintf(stderr, "SDgetinfo returned wrong values\n"); num_errs++; } /* get handle for first dimension of data set 'dimval_1_compat' */ dimid=SDgetdimid(sdid,0); CHECK(dimid, FAIL, "SDgetdimid"); /* get dimension info for first dimension */ status = SDdiminfo(dimid, name, (int32 *)&dimsize[0], &nt, (int32 *)&nattrs); CHECK(status, FAIL, "SDdiminfo"); /* verify correctness of information */ if (dimsize[0]!=SD_UNLIMITED || nt!= 0 ) { fprintf(stderr, "SDdiminfo returned wrong values\n"); num_errs++; } /* is it backward non-compatible? */ status = SDisdimval_bwcomp(dimid); if (status != SD_DIMVAL_BW_INCOMP) { fprintf(stderr, "SDisdimvalcomp returned wrong value for dimension.\n"); num_errs++; } /* re-set first dimension as backward compatible */ status = SDsetdimval_comp(dimid, SD_DIMVAL_BW_COMP); CHECK(status, FAIL, "SDsetdimval_comp"); /* get handle for second dimension of data set 'dimval_1_compat' */ dimid1=SDgetdimid(sdid,1); CHECK(dimid1, FAIL, "SDgetdimid"); /* get dimension info for second dimension */ status = SDdiminfo(dimid1, name, (int32 *)&dimsize[1], &nt, (int32 *)&nattrs); CHECK(status, FAIL, "SDdiminfo"); /* verify correctness of information */ if (dimsize[1]!=6 || nt!= DFNT_INT32 ) { fprintf(stderr, "Failed on SDgetinfo call\n"); num_errs++; } /* read data back from data set 'dimval_1_compat' */ status = SDreaddata(sdid, start, NULL, end, (VOIDP)idata); CHECK(status, FAIL, "SDwritedata"); /* verify data */ for (i=0; i<24; i++) { if (idata[i] != i) { fprintf(stderr, "line %d, wrong value: should be %d, got %d\n", __LINE__, i, (int)idata[i]); num_errs++; } } /* see if second dimension is backward compatible. should be compatible */ status = SDisdimval_bwcomp(dimid1); if (status != SD_DIMVAL_BW_COMP) { fprintf(stderr, "SDisdimvalcomp returned wrong value for dimension\n"); num_errs++; } /* re-set second dimension as backward non-compatible */ status = SDsetdimval_comp(dimid1, SD_DIMVAL_BW_INCOMP); CHECK(status, FAIL, "SDsetdimval_comp"); /* end access to data set 'dimval_1_compat' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* open one last time to check that NDG ref has been constant */ /* check SDsetdimval_compat */ /* open file 'test1.hdf' again */ f1 = SDstart(FILE1, DFACC_RDWR); CHECK(f1, FAIL, "SDstart (again3)"); /* get index of data set 'dimval_1_compat' in file 'test1.hdf' */ index = SDnametoindex(f1, "dimval_1_compat"); CHECK(index,FAIL,"SDnametoindex: failed to get index for data set 'dimval_1_compat' in file 'test1.hdf'"); /* select data set 'dimval_1_compat' based on it's index in file */ sdid = SDselect(f1, index); CHECK(sdid,FAIL,"SDselect:Failed to select data set 'dimval_1_compat' in file 'test1.hdf'"); /* info on data set 'dimval_1_compat' */ status = SDgetinfo(sdid, name, (int32 *)&rank, dimsize, &nt, (int32 *)&nattrs); CHECK(status, FAIL, "SDgetinfo"); /* verify correctness of information */ if (rank!=2 || dimsize[0]!=4 || dimsize[1]!=6 || nt!=DFNT_INT32) { fprintf(stderr, "SDgetinfo returned wrong values\n"); num_errs++; } /* get handle for second dimension of data set 'dimval_1_compat' */ dimid1=SDgetdimid(sdid,1); CHECK(dimid1, FAIL, "SDgetdimid"); /* get dimension info for second dimension */ status = SDdiminfo(dimid1, name, (int32 *)&dimsize[1], &nt, (int32 *)&nattrs); CHECK(status, FAIL, "SDdiminfo"); /* verify correctness of information */ if (dimsize[1]!=6 || nt!= DFNT_INT32 ) { fprintf(stderr, "Failed on SDgetinfo call\n"); num_errs++; } /* see if second dimensionis backward compatible. should be backward non-compatible */ status = SDisdimval_bwcomp(dimid1); if (status != SD_DIMVAL_BW_INCOMP) { fprintf(stderr, "SDisdimvalcomp returned wrong value\n"); num_errs++; } /* re-set second dimension as backward compatible */ status = SDsetdimval_comp(dimid1, SD_DIMVAL_BW_COMP); CHECK(status, FAIL, "SDsetdimval_comp"); /* end access to data set 'dimval_1_compat' */ status = SDendaccess(sdid); CHECK(status, FAIL, "SDendaccess"); /* * used saved ref at the begining to retrieve the data set */ /* get the index of the data set to which this 'ref' belongs to */ index = SDreftoindex(f1, ndg_saved_ref); CHECK(index,FAIL,"SDreftoindex: failed to get index for 'ndg_saved_ref'"); /* get handle for this data set (DataSetAlpha) */ sdsid = SDselect(f1, index); CHECK(sdsid,FAIL,"SDselect: Failed to get handle for data set 'DataSetAlpha' "); /* check if ref of this is the same as the one saved earlier */ if(ndg_saved_ref != SDidtoref(sdsid)) { fprintf(stderr, "Saved NDG ref != to SDindextoref of same\n"); num_errs++; } /* end access to data set 'DataSetAlpha' in file 'test1.hdf' */ status = SDendaccess(sdsid); CHECK(status, FAIL, "SDendaccess"); /* close file 'test1.hdf' */ status = SDend(f1); CHECK(status, FAIL, "SDend"); /* * Test the External File storage stuff */ /* Create file 'exttst.hdf' */ fext = SDstart(EXTTST, DFACC_CREATE); CHECK(fext, FAIL, "SDstart"); /* Create data set 'ExteneralDataSet' in file 'exttst.hdf' */ nt = DFNT_INT32 | DFNT_NATIVE; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fext, "ExternalDataSet", nt, 2, dimsize); CHECK(newsds, FAIL, "SDcreate: Failed to create a new data set 'ExternalDataSet' for external promotion"); /* initialize data to write out */ for(i = 0; i < 25; i++) idata[i] = i; /* Write data to all of data set 'ExternalDataSet' in file 'exttst.hdf' */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); /* Now promote data set 'ExternalDataSet' to an external data set in the file 'extfile.hdf' */ status = SDsetexternalfile(newsds, EXTFILE, 0); CHECK(status, FAIL, "SDsetexternalfile"); for(i = 0; i < 10; i++) idata[i] = i * 10; /* Now write data to part of newly promoted data set 'ExternalDataSet' which is now an external data set */ start[0] = start[1] = 0; end[0] = 2; end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); /* end access to data set 'ExternalDataSet' */ status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush external info to file 'exttst.hdf' */ status = SDend(fext); CHECK(status, FAIL, "SDend"); /* Open file 'exttst.hdf' again */ fext = SDstart(EXTTST, DFACC_RDWR); CHECK(fext, FAIL, "SDstart (again)"); /* Create a "wrapper" data set in file 'exttst.hdf'. i.e. a data set that will point to data in an already existing external file */ dimsize[0] = 3; dimsize[1] = 3; newsds2 = SDcreate(fext, "WrapperDataSet", nt, 2, dimsize); CHECK(newsds2, FAIL, "SDcreate:Failed to create a new data set('WrapperDataSet') for external wrapping"); /* Promote the regular data set to a "wrapper" one by making it point to where the real data is in the external file 'extfile.hdf'. Note that only a subset of the real data('ExternalDataSet') is pointed to by the "wrapper" data set. */ offset = DFKNTsize(nt) * 2; status = SDsetexternalfile(newsds2, EXTFILE, offset); CHECK(status, FAIL, "SDsetexternalfile"); /* now read data back from this "wrapper" data set */ start[0] = start[1] = 0; end[0] = end[1] = 3; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDreaddata"); /* verify data read back in */ for(i = 0; i < 8; i++) { if(idata[i] != (i + 2) * 10) { fprintf(stderr, "Bogus val in loc %d in wrapper dset want %d got %ld\n", i, (i + 2) * 10, (long)idata[i]); num_errs++; } } if(idata[8] != 10) { fprintf(stderr, "Bogus val in last loc in wrapper dset want 10 got %ld\n", (long)idata[8]); num_errs++; } /* End access to data set "WrapperDataSet" */ status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); /* Create data set 'NoExteneralDataSet' in file 'exttst.hdf' */ nt = DFNT_INT32 | DFNT_NATIVE; dimsize[0] = 5; dimsize[1] = 5; noextsds = SDcreate(fext, "NoExternalDataSet", nt, 2, dimsize); CHECK(noextsds, FAIL, "SDcreate: Failed to create a new data set 'NoExternalDataSet' for testing SDSgetexternalfile on a non-external element"); /* initialize data to write out */ for(i = 0; i < 25; i++) idata[i] = i; /* Write data to all of data set 'NoExternalDataSet' in file 'exttst.hdf' */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(noextsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(noextsds); CHECK(status, FAIL, "SDendaccess"); /* Close file 'exttst.hdf' */ status = SDend(fext); CHECK(status, FAIL, "SDend"); /* Test getting external file info on data set "ExternalDataSet" and test not able to get external file info on data set "NoExternalDataSet" */ { intn name_len=0; char *extfile_name; int32 offset=0, length=0; int32 sds_id, sds_index; /* Open file 'exttst.hdf' again */ fext = SDstart(EXTTST, DFACC_RDWR); CHECK(fext, FAIL, "SDstart (again)"); /* Get index of "ExternalDataSet" and get access to it */ sds_index = SDnametoindex(fext, "ExternalDataSet"); CHECK(sds_index, FAIL, "SDnametoindex"); sds_id = SDselect(fext, sds_index); CHECK(sds_id, FAIL, "SDselect"); /* Call SDgetexternalfile the first time passing in 0 for external file name length to get the actual length - SDgetexternalfile is deprecated as of 4.2.7 */ name_len = SDgetexternalfile(sds_id, 0, NULL, NULL); VERIFY(name_len, (intn)HDstrlen(EXTFILE), "SDgetexternalfile"); extfile_name = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(extfile_name, "extfile_name", "SDgetexternalfile"); HDmemset(extfile_name, '\0', name_len+1); /* Call SDgetexternalfile again and get the external file info */ name_len = SDgetexternalfile(sds_id, name_len+1, extfile_name, &offset); VERIFY(name_len, (intn)HDstrlen(EXTFILE), "SDgetexternalfile"); VERIFY_CHAR(EXTFILE, extfile_name, "SDgetexternalfile"); /* Call SDgetexternalinfo the first time passing in 0 for external file name length to get the actual length */ name_len = SDgetexternalinfo(sds_id, 0, NULL, NULL, NULL); VERIFY(name_len, (intn)HDstrlen(EXTFILE), "SDgetexternalinfo"); /* Test passing in NULL pointer for external file name buffer, should fail gracefully */ { char *null_buffer=NULL; intn ret_code=0; ret_code = SDgetexternalinfo(sds_id, name_len+1, null_buffer, &offset, &length); VERIFY(ret_code, FAIL, "SDgetexternalinfo"); } extfile_name = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(extfile_name, "extfile_name", "SDgetexternalinfo"); HDmemset(extfile_name, '\0', name_len+1); /* Call SDgetexternalinfo again and get the external file info */ name_len = SDgetexternalinfo(sds_id, name_len+1, extfile_name, &offset, &length); VERIFY(name_len, (intn)HDstrlen(EXTFILE), "SDgetexternalinfo"); VERIFY_CHAR(EXTFILE, extfile_name, "SDgetexternalinfo"); /* Test passing in smaller buffer for external file name than actual; name should be truncated */ { char *short_name = (char *) HDmalloc(sizeof(char *) * (name_len)); HDmemset(short_name, '\0', name_len); HDstrncpy(short_name, EXTFILE, name_len-2); HDmemset(extfile_name, '\0', name_len); /* Call SDgetexternalinfo again with smaller buffer size and verify that SDgetexternalinfo reads the name truncated to the given buffer size*/ name_len = SDgetexternalinfo(sds_id, name_len-2, extfile_name, &offset, &length); VERIFY(name_len, (intn)HDstrlen(extfile_name), "SDgetexternalinfo"); VERIFY_CHAR(short_name, extfile_name, "SDgetexternalinfo"); HDfree(short_name); } status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Get index of "NoExternalDataSet" and get access to it */ sds_index = SDnametoindex(fext, "NoExternalDataSet"); CHECK(sds_index, FAIL, "SDnametoindex"); sds_id = SDselect(fext, sds_index); CHECK(sds_id, FAIL, "SDselect"); /* Call SDgetexternalfile on the SDS that doesn't have external element, should fail - SDgetexternalfile is deprecated as of 4.2.7 */ name_len = SDgetexternalfile(sds_id, 0, NULL, NULL); VERIFY(name_len, FAIL, "SDgetexternalfile"); /* Call SDgetexternalinfo on the SDS that doesn't have external element, should return 0 for length of external file name */ name_len = SDgetexternalinfo(sds_id, 0, NULL, NULL, NULL); VERIFY(name_len, 0, "SDgetexternalinfo"); status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Close file 'exttst.hdf' */ status = SDend(fext); CHECK(status, FAIL, "SDend"); } #ifdef NBIT_TEST /* * Test the N-Bit storage stuff */ /* Create file 'nbit.hdf' */ fnbit = SDstart(NBITFILE, DFACC_CREATE); CHECK(fnbit, FAIL, "SDstart"); /* Create data set 'NBitDataSet' in file 'nbit.hdf' */ nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds = SDcreate(fnbit, "NBitDataSet", nt, 2, dimsize); CHECK(newsds,FAIL,"SDcreate:Failed to create a new data set('NBitDataSet') for n-bit testing"); /* Initialize data to write out */ for(i = 0; i < 25; i++) idata[i] = i*10; /* Promote the data set 'NBitDataSet' to an NBIT data set */ status = SDsetnbitdataset(newsds,6,7,FALSE,FALSE); CHECK(status, FAIL, "SDsetnbitdataset"); /* Write data to the NBIT data set 'NBitDataSet' */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "SDwritedata"); /* end access to NBIT data set 'NBitDataSet' */ status = SDendaccess(newsds); CHECK(status, FAIL, "SDendaccess"); /* need to close to flush n-bit info to file. hmm... */ status = SDend(fnbit); CHECK(status, FAIL, "SDend"); /* read the n-bit data back in */ fnbit = SDstart(NBITFILE, DFACC_RDWR); CHECK(fnbit, FAIL, "SDstart (again)"); /* Select the NBIT data set back in, assume it is the first one */ newsds2 = SDselect(fnbit, 0); CHECK(newsds2, FAIL,"SDselect:Failed to select a data set for n-bit access"); /* read data back in from the NBIT data set */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds2, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "SDreaddata"); /* verify the data */ for(i = 0; i < 25; i++) { if((idata[i]&0x7f) != rdata[i]) { fprintf(stderr,"Bogus val in loc %d in n-bit dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } } /* end access to NBIT data set */ status = SDendaccess(newsds2); CHECK(status, FAIL, "SDendaccess"); /* close file 'nbit.hdf' */ status = SDend(fnbit); CHECK(status, FAIL, "SDend"); #endif /* NBIT_TEST */ #ifdef COMP_TEST /* * Test the compressed storage routines */ status = test_compression(); CHECK(status, FAIL, "test_compression"); num_errs = num_errs + status; #endif /* COMP_TEST */ #ifdef CHUNK_TEST status = test_chunk(); CHECK(status, FAIL, "test_chunk"); num_errs = num_errs + status; #endif /* CHUNK_TEST */ #ifdef NETCDF_READ_TEST status = test_netcdf_reading(); CHECK(status, FAIL, "test_netcdf_reading"); num_errs = num_errs + status; #endif /* NETCDF_READ_TEST */ /* BMR: Added a test routine dedicated for testing dimensions. A test on SDsetdimscale for an unsigned type was added while I was fixing bug #172. I didn't want to add this test into the already very long main program so, instead, I added this routine, which can be appended with other dimension tests in the future. Also, some day, the main program can be shortened and some of its dimension-related tests can be moved into this test routine (in tdims.c) - 04/18/01 */ status = test_dimensions(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing SDcheckempty. 09/17/04 */ status = test_checkempty(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing attributes (currently only SDsetattr with count=0, more will be moved here eventually (in tattributes.c) - 05/31/11 */ status = test_attributes(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing SDgetdatasize (in tdatasizes.c) - 09/17/08 */ status = test_datasizes(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing SDgetdatainfo (in tdatainfo.c) - 03/20/10 */ status = test_datainfo(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing SDgetattdatainfo and SDgetanndatainto (in tattdatainfo.c) - 1/7/10 */ status = test_att_ann_datainfo(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing SDidtype (in tidtypes.c) -01/21/05. Changed file name to tmixed_apis.c and added tests for Vgetvgroups, VSgetvdatas, and Vgisinternal -2011 & 01/2012 */ status = test_mixed_apis(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing miscellaneous file-related APIs (in tfiles.c) - 10/12/05 */ status = test_files(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing the behavior of * several functions when the SDS has rank=0. (in trank0.c) - 02/4/05 */ /* BMR: SDcreate fails on Copper when rank=0. EP decided to remove * this test until further study can be made on this feature. status = test_rank0(); num_errs = num_errs + status; */ /* BMR: Added a test routine dedicated for testing functionality related to SDS' properties (in tsdsprops.c) - 09/12/06 */ status = test_SDSprops(); num_errs = num_errs + status; /* BMR: Added a test routine dedicated for testing functionality related to coordinate variables (in tcoordvar.c) - 05/21/07 */ status = test_coordvar(); num_errs = num_errs + status; /* BMR: Verifies that some functions will not fail even though SZIP library is not present or only decoder is available. */ status = test_szip_compression(); /* in tszip.c */ num_errs = num_errs + status; /* BMR: This test fails on some systems when the user are logged in * as root. We decided to comment it out until further work can be * attempted. (in tsd.c) 11/04/05 */ /* status = test_sd(); */ /* num_errs = num_errs + status; */ if (num_errs == 0) printf("*** HDF-SD test passes ***\n"); else \ printf("*** HDF-SD test fails ***\n"); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tsd.c0000644000000000000000000000471412421456623014115 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tsd.c - tests SDstart for file with no write permission ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #include "hfile.h" #define FILE_NAME "sdtest.hdf" /* data file to test ID types */ extern int test_sd() { int32 fid; intn status; #ifdef _WIN32 int mode; #else mode_t mode; #endif FILE *ff; intn num_errs = 0; /* number of errors so far */ /* Output message about test being performed */ TESTING("SDstart for file with no write permission (tsd.c)"); /* delete the file just to be sure */ unlink(FILE_NAME); /* Create a file */ fid = SDstart(FILE_NAME, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); #ifdef _WIN32 mode = _S_IREAD; #else mode = S_IRUSR; #endif status = chmod(FILE_NAME, mode); CHECK(status, FAIL, "chmod"); /* Create a protected file */ fid = SDstart(FILE_NAME, DFACC_CREATE); VERIFY(fid, FAIL, "second SDstart"); ff = HI_OPEN(FILE_NAME, DFACC_READ); CHECK(ff, NULL, "fopen"); if (ff != NULL) { HI_CLOSE(ff); } #ifdef _WIN32 mode = _S_IWRITE; #else mode = S_IWUSR; #endif status = chmod(FILE_NAME, mode); CHECK(status, FAIL, "chmod"); if (num_errs == 0) PASSED(); return num_errs; } /* test_SDAPI_ids */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tchunk.c0000644000000000000000000015024112421456623014614 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define CHKFILE "chktst.hdf" /* Chunking test file */ #define CNBITFILE "chknbit.hdf" /* Chunking w/ NBIT compression */ /* Dimensions of slab */ static int32 edge_dims[3] = {2, 3, 4}; /* size of slab dims */ static int32 start_dims[3] = {0, 0, 0}; /* starting dims */ static int32 d_dims[3] = {2, 3, 4}; static int32 cdims[3] = {1, 2, 3}; /* chunk lengths */ /* Chunk teseting - arrays for chunk writes */ /* float32 arrays */ #ifdef NOT_USED static float32 chunk1_f32[4] = {(float32) 0.0, (float32) 1.0, (float32) 2.0, (float32) 3.0}; static float32 chunk2_f32[4] = {(float32) 10.0, (float32) 11.0, (float32) 12.0, (float32) 13.0}; static float32 chunk3_f32[4] = {(float32) 20.0, (float32) 21.0, (float32) 22.0, (float32) 23.0}; static float32 chunk4_f32[4] = {(float32) 100.0, (float32) 101.0, (float32) 102.0, (float32) 103.0}; static float32 chunk5_f32[4] = {(float32) 110.0, (float32) 111.0, (float32) 112.0, (float32) 113.0}; static float32 chunk6_f32[4] = {(float32) 120.0, (float32) 121.0, (float32) 122.0, (float32) 123.0}; /* uint16 arrays */ static uint16 chunk1_u16[4] = { 0, 1, 2, 3}; static uint16 chunk2_u16[4] = { 10, 11, 12, 13}; static uint16 chunk3_u16[4] = { 20, 21, 22, 23}; static uint16 chunk4_u16[4] = { 100, 101, 102, 103}; static uint16 chunk5_u16[4] = { 110, 111, 112, 113}; static uint16 chunk6_u16[4] = { 120, 121, 122, 123}; #endif /* NOT_USED */ /* uint16 chunk arrays used in example 1 */ static uint16 chunk1_2u16[6] = {11, 21, 12, 22, 13, 23}; static uint16 chunk2_2u16[6] = {31, 41, 32, 42, 33, 43}; static uint16 chunk3_2u16[6] = {14, 24, 15, 25, 16, 26}; static uint16 chunk4_2u16[6] = {34, 44, 35, 45, 36, 46}; static uint16 chunk5_2u16[6] = {17, 27, 18, 28, 19, 29}; static uint16 chunk6_2u16[6] = {37, 47, 38, 48, 39, 49}; /* for visual layout in Example 1*/ static uint16 u16_2data[9][4] = { {11, 21, 31, 41}, {12, 22, 32, 42}, {13, 23, 33, 43}, {14, 24, 34, 44}, {15, 25, 35, 45}, {16, 26, 36, 46}, {17, 27, 37, 47}, {18, 28, 38, 48}, {19, 29, 39, 49}, }; /* for comparison in example 1 */ static uint16 u16_2cdata[5][2] = { {23, 33}, {24, 34}, {25, 35}, {26, 36}, {27, 37} }; /* uint8 arrays */ static uint8 chunk1_u8[4] = { 0, 1, 2, 3}; static uint8 chunk2_u8[4] = { 10, 11, 12, 13}; static uint8 chunk3_u8[4] = { 20, 21, 22, 23}; static uint8 chunk4_u8[4] = { 100, 101, 102, 103}; static uint8 chunk5_u8[4] = { 110, 111, 112, 113}; static uint8 chunk6_u8[4] = { 120, 121, 122, 123}; /* data arrays layed out in memory */ /* for comparison */ static float32 f32_data[2][3][4] = { { {(float32) 0.0, (float32) 1.0, (float32) 2.0, (float32) 3.0}, {(float32) 10.0, (float32) 11.0, (float32) 12.0, (float32) 13.0}, {(float32) 20.0, (float32) 21.0, (float32) 22.0, (float32) 23.0}}, { {(float32) 100.0, (float32) 101.0, (float32) 102.0, (float32) 103.0}, {(float32) 110.0, (float32) 111.0, (float32) 112.0, (float32) 113.0}, {(float32) 120.0, (float32) 121.0, (float32) 122.0, (float32) 123.0}}}; static uint16 u16_data[2][3][4] = { { { 0, 1, 2, 3}, { 10, 11, 12, 13}, { 20, 21, 22, 23}}, { { 100, 101, 102, 103}, { 110, 111, 112, 113}, { 120, 121, 122, 123}}}; static uint8 u8_data[2][3][4] = { { { 0, 1, 2, 3}, { 10, 11, 12, 13}, { 20, 21, 22, 23}}, { { 100, 101, 102, 103}, { 110, 111, 112, 113}, { 120, 121, 122, 123}}}; extern int test_chunk() { int32 fchk; /* File handles */ int32 nt; /* Number type */ int32 dimsize[10]; /* dimension sizes */ int32 newsds1, newsds2, newsds3, newsds4, newsds5, newsds6, newsds7, newsds8; /* Chunked SDS ids */ float32 inbuf_f32[2][3][4]; /* float32 Data array read from from file */ uint16 inbuf_u16[2][3][4]; /* uint16 Data array read from from file */ uint16 inbuf1_2u16[9][4]; /* Data array read for Example 1 */ uint16 inbuf_2u16[5][2]; /* Data array read for Example 1 */ uint8 inbuf_u8[2][3][4]; /* uint8 Data array read from from file */ uint8 ru8_data[4]; /* chunk input buffer */ int32 *rcdims; /* for SDgetchunkinfo() */ uint16 fill_u16 = 0; /* fill value */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF chunk_def_out; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ comp_coder_t comp_type; /* to retrieve compression type into */ comp_info cinfo; /* compression information structure */ int32 cflags; /* chunk flags */ int32 c_flags; /* chunk flags to set */ int32 c_flags_out; /* chunk flags retrieved */ int32 index; /* Index of dataset in file */ intn status; /* status flag */ intn i,j,k; /* loop variables */ int32 start[10], end[10]; /* start, end, stride arrays */ int32 idata[100]; int32 rdata[100]; float32 max; int num_errs = 0; /* number of errors so far */ /* Output message about test being performed */ TESTING("create/read/write chunked datasets (tchunk.c)"); /* Create file 'chktst.hdf' */ fchk = SDstart(CHKFILE, DFACC_CREATE); CHECK(fchk, FAIL, "SDstart"); /* * Test 1. Create a 9x4 SDS of uint16 in file 1 * With chunks of 3x2, will create 6 chunks. */ d_dims[0] = 9; d_dims[1] = 4; newsds1 = SDcreate(fchk, "DataSetChunked_2D_1", DFNT_UINT16, 2, d_dims); if(newsds1 == FAIL) { fprintf(stderr, "Chunk Test 1. Failed to create a new data set \n"); num_errs++; goto test2; } /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(newsds1, (VOIDP) &fill_u16); CHECK(status, FAIL, "Chunk Test 1. SDsetfillvalue"); /* Added to verify that the problem reported in bug HDFFR-5 is gone. The fix was actually done for and documented in bug HDFFR-171. It is verified here that SDsetchunk works properly after SDgetchunkinfo being called on an empty SDS prior to SDsetchunk. -BMR, 2011/10/25 */ c_flags_out = 0; status = SDgetchunkinfo(newsds1, NULL, &c_flags_out); CHECK(status, FAIL, "Chunk Test 1. SDgetchunkinfo on empty SDS"); VERIFY(c_flags_out, (HDF_NONE), "Chunk Test 1. SDgetchunkinfo on empty SDS"); /* Create chunked SDS chunk is 3x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 3; cdims[1] = chunk_def.chunk_lengths[1] = 2; status = SDsetchunk(newsds1, chunk_def, HDF_CHUNK); if(status == FAIL) { fprintf(stderr, "Chunk Test 1. Failed to create new chunked data set\n"); num_errs++; goto test2; } /* Check getting chunked/compressed flag only with SDgetchunkinfo */ c_flags_out = 0; status = SDgetchunkinfo(newsds1, NULL, &c_flags_out); CHECK(status, FAIL, "Chunk Test 1. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK), "Chunk Test 1. SDgetchunkinfo"); /* Check getting compression info with SDgetchunkinfo */ HDmemset(&chunk_def_out, 0, sizeof(HDF_CHUNK_DEF)); c_flags_out = 0; status = SDgetchunkinfo(newsds1, &chunk_def_out, &c_flags_out); CHECK(status, FAIL, "Chunk Test 1. SDgetchunkinfo"); VERIFY(chunk_def_out.chunk_lengths[0], chunk_def.chunk_lengths[0], "SDgetchunkinfo"); VERIFY(chunk_def_out.chunk_lengths[1], chunk_def.chunk_lengths[1], "SDgetchunkinfo"); /* Set Chunk cache to hold 2 chunks */ status = SDsetchunkcache(newsds1, 2, 0); if(status == FAIL) { fprintf(stderr, "Chunk Test 1. SDsetchunkcache failed\n"); num_errs++; goto test2; } /* Write data */ start_dims[0] = 0; start_dims[1] = 0; edge_dims[0] = 9; edge_dims[1] = 4; status = SDwritedata(newsds1, start_dims, NULL, edge_dims, (VOIDP) u16_2data); if(status == FAIL) { fprintf(stderr, "Chunk Test 1. Failed to write u16_2data to new chunked data set\n"); num_errs++; goto test2; } /* read a portion of data back in using SDreaddata*/ start_dims[0] = 0; start_dims[1] = 0; edge_dims[0] = 9; edge_dims[1] = 4; status = SDreaddata(newsds1, start_dims, NULL, edge_dims, (VOIDP) inbuf1_2u16); CHECK(status, FAIL, "Chunk Test 1. SDreaddata"); for (i = 0; i < 9; i++) { for (j = 0; j < 4; j++) { if (inbuf1_2u16[i][j] != u16_2data[i][j]) { fprintf(stderr,"Chunk Test 1. inbuf1_2u16[%d][%d]=%d,", i,j,inbuf1_2u16[i][j]); fprintf(stderr,"u16_cdata[%d][%d]=%d,", i,j,u16_2data[i][j]); fprintf(stderr,"\n"); num_errs++; } } } /* Get chunk lengths */ status = SDgetchunkinfo(newsds1, &rchunk_def, &cflags); if(status == FAIL) { fprintf(stderr, "Chunk Test 1. SDgetchunkinfo failed \n"); num_errs++; goto test2; } rcdims = rchunk_def.chunk_lengths; /* check chunk lengths and to see if SDS is chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test 1. SDgetchunkinfo returned wrong values\n"); num_errs++; goto test2; } /* Close down this SDS*/ status = SDendaccess(newsds1); CHECK(status, FAIL, "Chunk Test 1. SDendaccess"); /* Test 2. 2-D 9x4 SDS of uint16 with 3x2 chunks Write data using SDwritechunk(). Read data using SDreaddata(). */ test2: /* create a 9x4 SDS of uint16 in file 1 */ d_dims[0] = 9; d_dims[1] = 4; newsds2 = SDcreate(fchk, "DataSetChunked_2D_2", DFNT_UINT16, 2, d_dims); if(newsds2 == FAIL) { fprintf(stderr, "Chunk Test 2. Failed to create a new data set \n"); num_errs++; goto test3; } /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(newsds2, (VOIDP) &fill_u16); CHECK(status, FAIL, "Chunk Test 2. SDsetfillvalue"); /* Create chunked SDS chunk is 3x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 3; cdims[1] = chunk_def.chunk_lengths[1] = 2; status = SDsetchunk(newsds2, chunk_def, HDF_CHUNK); if(status == FAIL) { fprintf(stderr, "Chunk Test 2. Failed to create new chunked data set\n"); num_errs++; goto test3; } /* Set Chunk cache to hold 2 chunks */ status = SDsetchunkcache(newsds2, 2, 0); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDsetchunkcache failed\n"); num_errs++; goto test3; } /* Write data use SDwriteChunk */ /* Write chunk 1 */ start_dims[0] = 0; start_dims[1] = 0; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk1_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 1\n"); num_errs++; goto test3; } /* Write chunk 4 */ start_dims[0] = 1; start_dims[1] = 1; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk4_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 4\n"); num_errs++; goto test3; } /* Write chunk 2 */ start_dims[0] = 0; start_dims[1] = 1; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk2_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 2\n"); num_errs++; goto test3; } /* Write chunk 5 */ start_dims[0] = 2; start_dims[1] = 0; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk5_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 5\n"); num_errs++; goto test3; } /* Write chunk 3 */ start_dims[0] = 1; start_dims[1] = 0; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk3_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 3\n"); num_errs++; goto test3; } /* Write chunk 6 */ start_dims[0] = 2; start_dims[1] = 1; status = SDwritechunk(newsds2, start_dims, (VOIDP) chunk6_2u16); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDwritechunk failed to write chunk 6\n"); num_errs++; goto test3; } /* read a portion of data back in using SDreaddata i.e 5x2 subset of the whole array */ start_dims[0] = 2; start_dims[1] = 1; edge_dims[0] = 5; edge_dims[1] = 2; status = SDreaddata(newsds2, start_dims, NULL, edge_dims, (VOIDP) inbuf_2u16); CHECK(status, FAIL, "Chunk Test 2. SDreaddata"); /* This 5x2 array should look somethink like this {{23, 24, 25, 26, 27}, {33, 34, 35, 36, 37}} */ for (i = 0; i < 5; i++) { for (j = 0; j < 2; j++) { if (inbuf_2u16[i][j] != u16_2cdata[i][j]) { fprintf(stderr,"Chunk Test 2. inbuf_2u16[%d][%d]=%d,", i,j,inbuf_2u16[i][j]); fprintf(stderr,"u16_2cdata[%d][%d]=%d,", i,j,u16_2cdata[i][j]); fprintf(stderr,"\n"); num_errs++; } } } /* Get chunk lengths */ status = SDgetchunkinfo(newsds2, &rchunk_def, &cflags); if(status == FAIL) { fprintf(stderr, "Chunk Test 2.SDgetchunkinfo failed \n"); num_errs++; goto test3; } rcdims = rchunk_def.chunk_lengths; /* check chunk lengths and see if SDS is chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test 2.SDgetchunkinfo returned wrong values\n"); num_errs++; goto test3; } /* Close down this SDS*/ status = SDendaccess(newsds2); CHECK(status, FAIL, "Chunk Test 2. SDendaccess"); /* * Next 3 differnet number types are tested with 3-D arrays */ test3: /* * Test 3. create a new chunked SDS of float32 in file 1 */ d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; newsds3 = SDcreate(fchk, "DataSetChunked_3D_1", DFNT_FLOAT32, 3, d_dims); if(newsds3 == FAIL) { fprintf(stderr, "Chunk Test 3. Failed to create a new 3D float32 data set \n"); num_errs++; goto test4; } max = 0.0; status = SDsetfillvalue(newsds3, (VOIDP) &max); CHECK(status, FAIL, "Chunk Test 3. SDsetfillvalue"); /* Set chunking */ cdims[0] = chunk_def.chunk_lengths[0] = 1; cdims[1] = chunk_def.chunk_lengths[1] = 2; cdims[2] = chunk_def.chunk_lengths[2] = 3; status = SDsetchunk(newsds3, chunk_def, HDF_CHUNK); if(status == FAIL) { fprintf(stderr, "Chunk Test 3. Failed to create new chunked data set\n"); num_errs++; goto test4; } /* Write data out */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDwritedata(newsds3, start_dims, NULL, edge_dims, (VOIDP) f32_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 3. Failed to write f32_data to new chunked data set\n"); num_errs++; goto test4; } /* read data back in */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(newsds3, start_dims, NULL, edge_dims, (VOIDP) inbuf_f32); CHECK(status, FAIL, "Chunk Test 3. SDreaddata"); for (i = 0; i < d_dims[0]; i++) { for (j = 0; j < d_dims[1]; j++) { for (k = 0; k < d_dims[2]; k++) { if (inbuf_f32[i][j][k] != f32_data[i][j][k]) { fprintf(stderr,"Chunk Test 3. inbuf_f32[%d][%d][%d]=%f,", i,j,k,inbuf_f32[i][j][k]); fprintf(stderr,"f32_data[%d][%d][%d]=%f,", i,j,k,f32_data[i][j][k]); fprintf(stderr,"\n"); num_errs++; } } } } /* Close down SDS*/ status = SDendaccess(newsds3); CHECK(status, FAIL, "Chunk Test 3. SDendaccess"); /* * Test 4. Create a new chunked SDS of uint16 in file 1 */ test4: d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; newsds4 = SDcreate(fchk, "DataSetChunked_3D_2", DFNT_UINT16, 3, d_dims); if(newsds4 == FAIL) { fprintf(stderr, "Chunk Test 4. Failed to set a new uint16 3D data set chunked\n"); num_errs++; goto test5; } /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(newsds4, (VOIDP) &fill_u16); CHECK(status, FAIL, "Chunk Test 4. SDsetfillvalue"); /* Set chunking, chunk is 1x2x3 */ cdims[0] = chunk_def.chunk_lengths[0] = 1; cdims[1] = chunk_def.chunk_lengths[1] = 2; cdims[2] = chunk_def.chunk_lengths[2] = 3; status = SDsetchunk(newsds4, chunk_def, HDF_CHUNK); if(status == FAIL) { fprintf(stderr, "Chunk Test 4. Failed to create new chunked data set\n"); num_errs++; goto test5; } /* Set Chunk cache */ status = SDsetchunkcache(newsds4, 4, 0); if(status == FAIL) { fprintf(stderr, "Chunk Test 4. SDsetchunkcache failed\n"); num_errs++; goto test5; } /* Write data */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDwritedata(newsds4, start_dims, NULL, edge_dims, (VOIDP) u16_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 4. Failed to write u16_data to new chunked data set\n"); num_errs++; goto test5; } /* read data back in */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(newsds4, start_dims, NULL, edge_dims, (VOIDP) inbuf_u16); CHECK(status, FAIL, "Chunk Test 4. SDreaddata"); for (i = 0; i < d_dims[0]; i++) { for (j = 0; j < d_dims[1]; j++) { for (k = 0; k < d_dims[2]; k++) { if (inbuf_u16[i][j][k] != u16_data[i][j][k]) { fprintf(stderr,"Chunk Test 4. inbuf_u16[%d][%d][%d]=%d,", i,j,k,inbuf_u16[i][j][k]); fprintf(stderr,"u16_data[%d][%d][%d]=%d,", i,j,k,u16_data[i][j][k]); fprintf(stderr,"\n"); num_errs++; } } } } /* Check getting chunked flag */ status = SDgetchunkinfo(newsds4, NULL, &cflags); CHECK(status, FAIL, "Chunk Test 4. SDgetchunkinfo"); VERIFY(cflags, HDF_CHUNK, "Chunk Test 4. SDgetchunkinfo"); /* Check chunk info */ status = SDgetchunkinfo(newsds4, &rchunk_def, &cflags); if(status == FAIL) { fprintf(stderr, "Chunk Test 4. SDgetchunkinfo failed \n"); num_errs++; goto test5; } rcdims = rchunk_def.chunk_lengths; if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cdims[2] != rcdims[2] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test 4. SDgetchunkinfo returned wrong values\n"); num_errs++; goto test5; } /* Close down SDS*/ status = SDendaccess(newsds4); CHECK(status, FAIL, "Chunk Test 4. SDendaccess"); /* * Test 5. Create a new chunked SDS of uint8 in file 1 */ test5: d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; newsds5 = SDcreate(fchk, "DataSetChunked_3D_3", DFNT_UINT8, 3, d_dims); if(newsds5 == FAIL) { fprintf(stderr, "Chunk Test 5. Failed to set a new uint8 3D data set chunked\n"); num_errs++; goto test6; } /* Set chunking, chunk is 1x1x4 */ cdims[0] = chunk_def.chunk_lengths[0] = 1; cdims[1] = chunk_def.chunk_lengths[1] = 1; cdims[2] = chunk_def.chunk_lengths[2] = 4; status = SDsetchunk(newsds5, chunk_def, HDF_CHUNK); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. Failed to create new chunked data set\n"); num_errs++; goto test6; } #if 0 /* Write data using SDwritedata() */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDwritedata(newsds5, start_dims, NULL, edge_dims, (VOIDP) wu8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. Failed to write wu8_data to new chunked data set\n"); num_errs++; goto test6; } #endif /* Write data use SDwriteChunk */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk1_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 1\n"); num_errs++; goto test6; } start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk4_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 4\n"); num_errs++; goto test6; } start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk2_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 2\n"); num_errs++; goto test6; } start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk5_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 5\n"); num_errs++; goto test6; } start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk3_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 3\n"); num_errs++; goto test6; } start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(newsds5, start_dims, (VOIDP) chunk6_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDwritechunk failed to write chunk 6\n"); num_errs++; goto test6; } /* read data back in */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(newsds5, start_dims, NULL, edge_dims, (VOIDP) inbuf_u8); CHECK(status, FAIL, "Chunk Test 5. SDreaddata"); for (i = 0; i < d_dims[0]; i++) { for (j = 0; j < d_dims[1]; j++) { for (k = 0; k < d_dims[2]; k++) { if (inbuf_u8[i][j][k] != u8_data[i][j][k]) { fprintf(stderr,"Chunk Test 5. inbuf_u8[%d][%d][%d]=%d,", i,j,k,inbuf_u8[i][j][k]); fprintf(stderr,"u8_data[%d][%d][%d]=%d,", i,j,k,u8_data[i][j][k]); fprintf(stderr,"\n"); num_errs++; } } } } start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 1\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk1_u8[i]) { printf("Chunk Test 5. chunk1_u8: Wrong data at %d, out %d in %d\n", i, chunk1_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 2\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk2_u8[i]) { printf("Chunk Test 5. chunk2_u8: Wrong data at %d, out %d in %d\n", i, chunk2_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 3\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk3_u8[i]) { printf("Chunk Test 5. chunk3_u8: Wrong data at %d, out %d in %d\n", i, chunk3_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 4\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk4_u8[i]) { printf("Chunk Test 5. chunk4_u8: Wrong data at %d, out %d in %d\n", i, chunk4_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 5\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk5_u8[i]) { printf("Chunk Test 5. chunk5_u8: Wrong data at %d, out %d in %d\n", i, chunk5_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(newsds5, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 5. SDreadchunk failed to read chunk 6\n"); num_errs++; goto test6; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk6_u8[i]) { printf("Chunk Test 5. chunk6_u8: Wrong data at %d, out %d in %d\n", i, chunk6_u8[i], ru8_data[i]); num_errs++; } } /* Close down SDS*/ status = SDendaccess(newsds5); CHECK(status, FAIL, "Chunk Test 5. SDendaccess"); /* --------------------------------------------------------------- * Chunking with Compression ----------------------------------------------------------------*/ /* * Test 6. Create a new chunked SDS of uint8 in file 1 * Compress using Skipping Huffman. Write using SDwriteChunk * Read back in using SDreaddata and SDreadChunk. * Retrieve and verify the compression information. * Use Skipping Huffman compression * Note: a template is created first then the SDS * is re-slected for writing/reading. */ test6: d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; newsds6 = SDcreate(fchk, "DataSetChunked_3D_SKIP_HUF_2", DFNT_UINT8, 3, d_dims); if(newsds6 == FAIL) { fprintf(stderr, "Chunk Test 6. Failed to set a new uint8 3D data set chunked\n"); num_errs++; goto test7; } /* Set chunking, chunk is 1x1x4 */ cdims[0] = chunk_def.comp.chunk_lengths[0] = 1; cdims[1] = chunk_def.comp.chunk_lengths[1] = 1; cdims[2] = chunk_def.comp.chunk_lengths[2] = 4; #if 0 chunk_def.comp.comp_type = COMP_CODE_RLE; #endif chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; /* Skipping Huffman */ chunk_def.comp.cinfo.skphuff.skp_size = sizeof(uint16); status = SDsetchunk(newsds6, chunk_def, HDF_CHUNK | HDF_COMP); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. Failed to create new chunked, Skipping Huffman compressed data set\n"); num_errs++; goto test7; } /* Close down SDS ie. template creation*/ status = SDendaccess(newsds6); CHECK(status, FAIL, "Chunk Test 6. SDendaccess"); newsds6 = FAIL; /* Select same SDS again, first get index */ if ((index = SDnametoindex(fchk,"DataSetChunked_3D_SKIP_HUF_2")) == FAIL) { fprintf(stderr, "Chunk Test 6. SDnametoindex Failed for Skipping Huffman compressed data set\n"); num_errs++; goto test7; } if ((newsds6 = SDselect(fchk,index)) == FAIL) { fprintf(stderr, "Chunk Test 6. SDselect Failed to re-select new chunked, Skipping Huffman compressed data set\n"); num_errs++; goto test7; } /* * Retrieve and verify the compression type */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds6, &comp_type); CHECK(status, FAIL, "Chunk Test 6. SDgetcomptype"); VERIFY(comp_type, chunk_def.comp.comp_type, "Chunk Test 6. SDgetcomptype"); /* * Retrieve and verify the compression info - bug# 307, 10/10/01 - BMR * Updated: SDgetcompress replaced by SDgetcompinfo - bugzilla# 130, * 4/17/05 -BMR */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds6, &comp_type, &cinfo); CHECK(status, FAIL, "Chunk Test 6. SDgetcompinfo"); VERIFY(comp_type, chunk_def.comp.comp_type, "Chunk Test 6. SDgetcompinfo"); VERIFY(cinfo.skphuff.skp_size, chunk_def.comp.cinfo.skphuff.skp_size, "Chunk Test 6. SDgetcompinfo"); /* Write data use SDwriteChunk */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk1_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 1\n"); num_errs++; goto test7; } start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk4_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 4\n"); num_errs++; goto test7; } start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk2_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 2\n"); num_errs++; goto test7; } start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk5_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 5\n"); num_errs++; goto test7; } start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk3_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 3\n"); num_errs++; goto test7; } start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDwritechunk(newsds6, start_dims, (VOIDP) chunk6_u8); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDwritechunk failed to write chunk 6\n"); num_errs++; goto test7; } /* read data back in */ start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; edge_dims[0] = 2; edge_dims[1] = 3; edge_dims[2] = 4; status = SDreaddata(newsds6, start_dims, NULL, edge_dims, (VOIDP) inbuf_u8); CHECK(status, FAIL, "Chunk Test 6. SDreaddata"); for (i = 0; i < d_dims[0]; i++) { for (j = 0; j < d_dims[1]; j++) { for (k = 0; k < d_dims[2]; k++) { if (inbuf_u8[i][j][k] != u8_data[i][j][k]) { fprintf(stderr,"Chunk Test 6. inbuf_u8[%d][%d][%d]=%d,", i,j,k,inbuf_u8[i][j][k]); fprintf(stderr,"u8_data[%d][%d][%d]=%d,", i,j,k,u8_data[i][j][k]); fprintf(stderr,"\n"); num_errs++; } } } } start_dims[0] = 0; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDreadchunk failed to read chunk 1\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk1_u8[i]) { printf("Chunk Test 6. chunk1_u8: Wrong data at %d, out %d in %d\n", i, chunk1_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 0; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDreadchunk failed to read chunk 2\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk2_u8[i]) { printf("Chunk Test 6. chunk2_u8: Wrong data at %d, out %d in %d\n", i, chunk2_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 0; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDreadchunk failed to read chunk 3\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk3_u8[i]) { printf("Chunk Test 6. chunk3_u8: Wrong data at %d, out %d in %d\n", i, chunk3_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 0; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "SDreadchunk failed to read chunk 4\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk4_u8[i]) { printf("Chunk Test 6. chunk4_u8: Wrong data at %d, out %d in %d\n", i, chunk4_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDreadchunk failed to read chunk 5\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk5_u8[i]) { printf("Chunk Test 6. chunk5_u8: Wrong data at %d, out %d in %d\n", i, chunk5_u8[i], ru8_data[i]); num_errs++; } } start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 0; status = SDreadchunk(newsds6, start_dims, (VOIDP) ru8_data); if(status == FAIL) { fprintf(stderr, "Chunk Test 6. SDreadchunk failed to read chunk 6\n"); num_errs++; goto test7; } /* Verify chunk */ for (i = 0; i < 4; i++) { if (ru8_data[i] != chunk6_u8[i]) { printf("Chunk Test 6. chunk6_u8: Wrong data at %d, out %d in %d\n", i, chunk6_u8[i], ru8_data[i]); num_errs++; } } /* Check getting chunked/compressed flag only with SDgetchunkinfo */ c_flags_out = 0; status = SDgetchunkinfo(newsds6, NULL, &c_flags_out); CHECK(status, FAIL, "Chunk Test 6. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_COMP), "Chunk Test 6. SDgetchunkinfo"); /* Check getting compression info with SDgetchunkinfo */ HDmemset(&chunk_def_out, 0, sizeof(HDF_CHUNK_DEF)); c_flags_out = 0; status = SDgetchunkinfo(newsds6, &chunk_def_out, &c_flags_out); CHECK(status, FAIL, "Chunk Test 6. SDgetchunkinfo"); VERIFY(chunk_def_out.comp.comp_type, comp_type, "Chunk Test 6. SDgetchunkinfo"); VERIFY(chunk_def_out.comp.cinfo.skphuff.skp_size, chunk_def.comp.cinfo.skphuff.skp_size, "Chunk Test 6. chunkinfo_new"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_COMP), "Chunk Test 6. SDgetchunkinfo"); /* Close down SDS*/ status = SDendaccess(newsds6); CHECK(status, FAIL, "Chunk Test 6. SDendaccess"); newsds6 = FAIL; /* Select same SDS again, first get index */ if ((index = SDnametoindex(fchk,"DataSetChunked_3D_SKIP_HUF_2")) == FAIL) { fprintf(stderr, "Chunk Test 6. SDnametoindex Failed for Skipping Huffman compressed data set\n"); num_errs++; goto test7; } if ((newsds6 = SDselect(fchk,index)) == FAIL) { fprintf(stderr, "Chunk Test 6. SDselect Failed to re-select new chunked, Skipping Huffman compressed data set\n"); num_errs++; goto test7; } /* * Retrieve and verify the compression type */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds6, &comp_type); CHECK(status, FAIL, "Chunk Test 6. SDgetcomptype"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "Chunk Test 6. SDgetcomptype"); /* Close down SDS*/ status = SDendaccess(newsds6); CHECK(status, FAIL, "Chunk Test 6. SDendaccess"); /* * Test 7. Create a 9x4 SDS of uint16 in file 1 * Write using SDwritedata, read back in using SDreaddata * Use GZIP compression. */ test7: d_dims[0] = 9; d_dims[1] = 4; newsds7 = SDcreate(fchk, "DataSetChunked_2D_GZIP_1", DFNT_UINT16, 2, d_dims); if(newsds7 == FAIL) { fprintf(stderr, "Chunk Test 7. Failed to create a new 2D uint16 data set \n"); num_errs++; goto test8; } /* set fill value */ fill_u16 = 0; status = SDsetfillvalue(newsds7, (VOIDP) &fill_u16); CHECK(status, FAIL, "Chunk Test 7. SDsetfillvalue"); /* Create chunked SDS chunk is 3x2 which will create 6 chunks. Use GZIP compression */ cdims[0] = chunk_def.comp.chunk_lengths[0] = 3; cdims[1] = chunk_def.comp.chunk_lengths[1] = 2; #if 0 chunk_def.comp.comp_type = COMP_CODE_RLE; /* RLE */ chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; /* Skipping Huffman */ chunk_def.comp.cinfo.skphuff.skp_size = sizeof(uint16); #endif chunk_def.comp.comp_type = COMP_CODE_DEFLATE; /* GZIP */ chunk_def.comp.cinfo.deflate.level = 6; status = SDsetchunk(newsds7, chunk_def, HDF_CHUNK | HDF_COMP); if(status == FAIL) { fprintf(stderr, "Chunk Test 7. Failed to create new chunked, GZIP Compressed data set\n"); num_errs++; goto test8; } /* Set Chunk cache to hold 2 chunks */ status = SDsetchunkcache(newsds7, 2, 0); if(status == FAIL) { fprintf(stderr, "Chunk Test 7. SDsetchunkcache failed\n"); num_errs++; goto test8; } /* Check getting chunked/compressed flag only with SDgetchunkinfo */ c_flags_out = 0; status = SDgetchunkinfo(newsds7, NULL, &c_flags_out); CHECK(status, FAIL, "Chunk Test 7. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_COMP), "Chunk Test 7. SDgetchunkinfo"); HDmemset(&chunk_def_out, 0, sizeof(HDF_CHUNK_DEF)); c_flags_out = 0; status = SDgetchunkinfo(newsds7, &chunk_def_out, &c_flags_out); CHECK(status, FAIL, "Chunk Test 7. SDgetchunkinfo"); VERIFY(chunk_def_out.comp.cinfo.deflate.level, chunk_def.comp.cinfo.deflate.level, "Chunk Test 7. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_COMP), "Chunk Test 7. SDgetchunkinfo"); /* Write data */ start_dims[0] = 0; start_dims[1] = 0; edge_dims[0] = 9; edge_dims[1] = 4; status = SDwritedata(newsds7, start_dims, NULL, edge_dims, (VOIDP) u16_2data); if(status == FAIL) { fprintf(stderr, "Chunk Test 7. Failed to write u16_2data to new chunked data set\n"); num_errs++; goto test8; } /* read a portion of data back in using SDreaddata*/ start_dims[0] = 0; start_dims[1] = 0; edge_dims[0] = 9; edge_dims[1] = 4; status = SDreaddata(newsds7, start_dims, NULL, edge_dims, (VOIDP) inbuf1_2u16); CHECK(status, FAIL, "Chunk Test 7. SDreaddata"); for (i = 0; i < 9; i++) { for (j = 0; j < 4; j++) { if (inbuf1_2u16[i][j] != u16_2data[i][j]) { fprintf(stderr,"Chunk Test 7. inbuf1_2u16[%d][%d]=%d,", i,j,inbuf1_2u16[i][j]); fprintf(stderr,"u16_cdata[%d][%d]=%d,", i,j,u16_2data[i][j]); fprintf(stderr,"\n"); num_errs++; } } } /* Get chunk lengths */ status = SDgetchunkinfo(newsds7, &rchunk_def, &cflags); if(status == FAIL) { fprintf(stderr, "Chunk Test 7. SDgetchunkinfo failed \n"); num_errs++; goto test8; } rcdims = rchunk_def.comp.chunk_lengths; /* check chunk lengths and see if SDS is compressed and chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != (HDF_CHUNK | HDF_COMP)) { fprintf(stderr, "Chunk Test 7. SDgetchunkinfo returned wrong values\n"); num_errs++; goto test8; } /* Close down this SDS*/ status = SDendaccess(newsds7); CHECK(status, FAIL, "Chunk Test 7. SDendaccess"); /* * Added to test getting compression information for chunked SDS - * bug# 307, 10/10/01 - BMR */ /* Select same SDS again, first get index */ if ((index = SDnametoindex(fchk,"DataSetChunked_2D_GZIP_1")) == FAIL) { fprintf(stderr, "Chunk Test 7. SDnametoindex Failed for GZIP compressed data set\n"); num_errs++; goto test8; } if ((newsds7 = SDselect(fchk,index)) == FAIL) { fprintf(stderr, "Chunk Test 7. SDselect Failed to re-select new chunked, GZIP compressed data set\n"); num_errs++; goto test8; } /* * Retrieve and verify the compression info - bug# 307, 10/10/01 - BMR * Updated: SDgetcompress replaced by SDgetcompinfo - bugzilla# 130, * 4/17/05 -BMR */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds7, &comp_type, &cinfo); CHECK(status, FAIL, "Chunk Test 6. SDgetcompinfo"); VERIFY(comp_type, chunk_def.comp.comp_type, "Chunk Test 6. SDgetcompinfo"); VERIFY(cinfo.deflate.level, chunk_def.comp.cinfo.deflate.level, "Chunk Test 6. SDgetcompinfo"); /* * Retrieve and verify the compression type */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds7, &comp_type); CHECK(status, FAIL, "Chunk Test 7. SDgetcomptype"); VERIFY(comp_type, chunk_def.comp.comp_type, "Chunk Test 7. SDgetcomptype"); /* Close down SDS*/ status = SDendaccess(newsds7); CHECK(status, FAIL, "Chunk Test 7. SDendaccess"); /* Close down file 'chktst.hdf' */ status = SDend(fchk); CHECK(status, FAIL, "SDend"); /* --------------------------------------------------------------- * Chunking with NBIT Compression ----------------------------------------------------------------*/ /* * Chunking with NBIT */ test8: /* Create file */ fchk = SDstart(CNBITFILE, DFACC_CREATE); CHECK(fchk, FAIL, "Chunk Test 8. SDstart"); /* Create dataset */ nt = DFNT_INT32; dimsize[0] = 5; dimsize[1] = 5; newsds8 = SDcreate(fchk, "Chunked_NBitDataSet", nt, 2, dimsize); if(newsds8 == FAIL) { fprintf(stderr, "Chunk Test 8. SDcreate Failed to create a new chunked, nbit data set \n"); num_errs++; goto done; } for(i = 0; i < 25; i++) idata[i] = i*10; /* Create chunked SDS with NBIT compression. chunk is 2x2 which will create 9 chunks.*/ cdims[0] = chunk_def.nbit.chunk_lengths[0] = 2; cdims[1] = chunk_def.nbit.chunk_lengths[1] = 2; chunk_def.nbit.start_bit = 6; chunk_def.nbit.bit_len = 7; chunk_def.nbit.sign_ext = FALSE; chunk_def.nbit.fill_one = FALSE; c_flags = HDF_CHUNK | HDF_NBIT; status = SDsetchunk(newsds8, chunk_def, c_flags); if(status == FAIL) { fprintf(stderr, "Chunk Test 8. SDsetchunk Failed to create new chunked, NBIT data set\n"); num_errs++; goto done; } /* write out the data */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDwritedata(newsds8, start, NULL, end, (VOIDP) idata); CHECK(status, FAIL, "Chunk Test 8. SDwritedata"); /* Check getting chunked/compressed flag only with SDgetchunkinfo */ c_flags_out = 0; status = SDgetchunkinfo(newsds8, NULL, &c_flags_out); CHECK(status, FAIL, "Chunk Test 8. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_NBIT), "Chunk Test 8. SDgetchunkinfo"); /* Check getting compression info with SDgetchunkinfo */ c_flags_out = 0; HDmemset(&chunk_def_out, 0, sizeof(HDF_CHUNK_DEF)); status = SDgetchunkinfo(newsds8, &chunk_def_out, &c_flags_out); CHECK(status, FAIL, "Chunk Test 8. SDgetchunkinfo"); VERIFY(c_flags_out, (HDF_CHUNK | HDF_NBIT), "Chunk Test 8. SDgetchunkinfo"); VERIFY(chunk_def_out.nbit.start_bit, chunk_def.nbit.start_bit, "Chunk Test 8. SDgetchunkinfo"); VERIFY(chunk_def_out.nbit.bit_len, chunk_def.nbit.bit_len, "Chunk Test 8. SDgetchunkinfo"); VERIFY(chunk_def_out.nbit.sign_ext, chunk_def.nbit.sign_ext, "Chunk Test 8. SDgetchunkinfo"); VERIFY(chunk_def_out.nbit.fill_one, chunk_def.nbit.fill_one, "Chunk Test 8. SDgetchunkinfo"); /* end access to SDS */ status = SDendaccess(newsds8); CHECK(status, FAIL, "Chunk Test 8. SDendaccess"); /* need to close to flush n-bit info to file */ status = SDend(fchk); CHECK(status, FAIL, "Chunk Test 8. SDend"); /* open file again */ fchk = SDstart(CNBITFILE, DFACC_RDWR); CHECK(fchk, FAIL, "Chunk Test 8. SDstart (again)"); /* Select SDS */ newsds8 = SDselect(fchk, 0); if(newsds8 == FAIL) { fprintf(stderr, "Chunk Test 8. Failed to select a data set for n-bit access\n"); num_errs++; goto done; } /* read the n-bit data back in */ start[0] = start[1] = 0; end[0] = end[1] = 5; status = SDreaddata(newsds8, start, NULL, end, (VOIDP) rdata); CHECK(status, FAIL, "Chunk Test 8. SDreaddata"); /* Verify the data */ for(i = 0; i < 25; i++) { if((idata[i]&0x7f) != rdata[i]) { fprintf(stderr,"Chunk Test 8. Bogus val in loc %d in n-bit dset want %ld got %ld\n", i, (long)idata[i], (long)rdata[i]); num_errs++; } } /* Get chunk lengths */ status = SDgetchunkinfo(newsds8, &rchunk_def, &cflags); if(status == FAIL) { fprintf(stderr, "Chunk Test 8. SDgetchunkinfo failed \n"); num_errs++; goto done; } rcdims = rchunk_def.nbit.chunk_lengths; /* check chunk lengths and see if SDS is nbit-compressed and chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != (HDF_CHUNK | HDF_NBIT)) { fprintf(stderr, "Chunk Test 8. SDgetchunkinfo returned wrong values\n"); fprintf(stderr, "Chunk Test 8. cflags =%d \n",(int)cflags); fprintf(stderr, "Chunk Test 8. cdims[%d] =%d \n", 0, (int)cdims[0]); fprintf(stderr, "Chunk Test 8. cdims[%d] =%d \n", 1, (int)cdims[1]); fprintf(stderr, "Chunk Test 8. rcdims[%d] =%d \n", 0, (int)rcdims[0]); fprintf(stderr, "Chunk Test 8. rcdims[%d] =%d \n", 1, (int)cdims[1]); num_errs++; goto done; } /* * Retrieve and verify the compression type */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ status = SDgetcomptype(newsds8, &comp_type); CHECK(status, FAIL, "Chunk Test 8. SDgetcomptype"); VERIFY(comp_type, COMP_CODE_NBIT, "Chunk Test 8. SDgetcomptype"); /* * Retrieve and verify the compression info - bug# 307, 10/10/01 - BMR * Updated: SDgetcompress replaced by SDgetcompinfo - bugzilla# 130, * 4/17/05 -BMR */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = SDgetcompinfo(newsds8, &comp_type, &cinfo); CHECK(status, FAIL, "Chunk Test 8. SDgetcompinfo"); /* Note: the struct nbit in the union HDF_CHUNK_DEF seems like an extra thing since comp_info also has nbit, but the HDF_CHUNK_DEF.nbit was used to set the compression info so it's also used here to verify */ VERIFY(comp_type, COMP_CODE_NBIT, "Chunk Test 8. SDgetcompinfo"); VERIFY(cinfo.nbit.sign_ext, chunk_def.nbit.sign_ext, "Chunk Test 8. SDgetcompinfo"); VERIFY(cinfo.nbit.fill_one, chunk_def.nbit.fill_one, "Chunk Test 8. SDgetcompinfo"); VERIFY(cinfo.nbit.start_bit, chunk_def.nbit.start_bit, "Chunk Test 8. SDgetcompinfo"); VERIFY(cinfo.nbit.bit_len, chunk_def.nbit.bit_len, "Chunk Test 8. SDgetcompinfo"); /* end of test for bug# 307 and bugzilla# 130 */ /* end access to SDS */ status = SDendaccess(newsds8); CHECK(status, FAIL, "Chunk Test 8. SDendaccess"); /* close file */ status = SDend(fchk); CHECK(status, FAIL, "Chunk Test 8. SDend"); if (num_errs == 0) PASSED(); done: return num_errs; } /* test_chunk() */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/sds_szipped.dat0000644000000000000000000000602212421456623016172 0ustar È j\B¾ Æ( ⟫ ª …<­ Á!« ⪠æ<­ "!«ÿÿÿÿÿÿÿÿª C7j z½ ~Ð ”­ ¤=­ á0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿHDF Version 4.2 Release 3-snap0, January 31, 2008@P„ š @ @ @ @P ŠT¦ŠTÑJš(I"•$ŠH¡$ŠH¡$ŠT’)RH¥I"öFO‘‘Oddùð 12 became the new max number of records in the file - close and reopen the file in nc API - read and verify VAR3D, its buffer should have fill-values between elements 9-12 - read and verify VAR1D, its buffer should have fill-values after the 6th element - read and verify VAREMPTY, its buffer should contain all 12 fill-values Return value: The number of errors occurred in this routine. BMR - Sep 4, 2013 *********************************************************************/ #define DIM00 10 #define DIM1 3 #define DIM2 2 #define RANK3 3 #define RANK1 1 #define MAX_NUMRECS 12 #define FILENAME2 "multidimmixed.hdf" #define VAR3D "Variable 3D" #define VAR1D "Variable 1D" #define VAREMPTY "Variable EMPTY" #define VARDOZEN "Variable Dozen Records" static int test_multidims() { int32 fid; /* file id */ int32 dset1, dset2, dset3; /* dataset ids */ int32 dset_index; /* dataset index */ int32 dimsizes3D[3]; /* dimension size buffer for first SDS */ int32 dimsize1D[1]; /* dimension size buffer for second SDS */ int32 start[3], /* where to start reading */ edges[3]; /* length of data to be read */ int16 outdata3D[DIM0][DIM1][DIM2]; /* 3-D data read back */ int16 outdata1D[DIM0]; /* 1-D data read back */ int16 *outdata3; /* for dynamically allocated buffer */ int16 fillval1 = -3; /* fill value for the 3-D variable */ int16 fillval2 = -1; /* fill value for the 1-D variable */ int16 fillval3 = -10; /* fill value for the 1-D variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data */ int16 result3D[DIM00][DIM1][DIM2] = {300,-3,-3,-3,-3,-3,301,-3,-3,-3,-3,-3,302,-3,-3,-3,-3,-3,303,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,800,801,802,803,804,805}; int16 ncresult1D[] = {-1,-1,300,301,302,303,-1,-1,-1}; int16 sdresult1D[] = {-1,-1,300,301,302,303}; /* Create a new file */ fid = SDstart(FILENAME2, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* Define dimensions of the data sets to be created */ dimsizes3D[0] = SD_UNLIMITED; dimsizes3D[1] = DIM1; dimsizes3D[2] = DIM2; dimsize1D[0] = SD_UNLIMITED; /* Create array data sets */ dset1 = SDcreate(fid, VAR3D, DFNT_INT16, RANK3, dimsizes3D); /* 3-D */ CHECK(dset1, FAIL, "SDcreate"); dset2 = SDcreate(fid, VAR1D, DFNT_INT16, RANK1, dimsize1D); /* 1-D */ CHECK(dset2, FAIL, "SDcreate"); dset3 = SDcreate(fid, VAREMPTY, DFNT_INT16, RANK1, dimsize1D); /* 1-D */ CHECK(dset3, FAIL, "SDcreate"); /* Datasets will be filled with fill values when data is missing */ status = SDsetfillvalue(dset1, (VOIDP)&fillval1); CHECK(status, FAIL, "SDsetfillvalue"); status = SDsetfillvalue(dset2, (VOIDP)&fillval2); CHECK(status, FAIL, "SDsetfillvalue"); status = SDsetfillvalue(dset3, (VOIDP)&fillval3); CHECK(status, FAIL, "SDsetfillvalue"); { /* Add data to first data set */ int16 data[] = {300, 301, 302, 303}; /* Write 4 elements starting at index 0 */ start[0] = start[1] = start[2] = 0; /* starting writing at {0,0,0} */ edges[0] = 4; /* 4x1x1 slab */ edges[1] = 1; edges[2] = 1; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Get information of the dataset, and verify its dimension */ status = SDgetinfo(dset1, NULL, NULL, dimsizes3D, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(dimsizes3D[0], 4, "SDgetinfo"); /* Read and verify data of the dataset */ start[0] = start[1] = start[2] = 0; edges[0] = dimsizes3D[0]; edges[1] = dimsizes3D[1]; edges[2] = dimsizes3D[2]; outdata3 = (int16 *)HDmalloc(edges[0]*edges[1]*edges[2]*sizeof(int16)); status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata3); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata3, result3D, edges[0]*edges[1]*edges[2]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); { /* Add data to second data set, i.e. 1-D var */ int16 data[] = {300, 301, 302, 303}; /* Write 4 elements starting at index 2 */ start[0] = 2; /* skip first two elements */ edges[0] = 4; /* write 4 elements */ status = SDwritedata(dset2, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Close the data sets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset3); CHECK(status, FAIL, "SDendaccess"); status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Reopen file and data set VAR3D */ fid = SDstart(FILENAME2, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); dset_index = SDnametoindex(fid, VAR3D); CHECK(dset_index, FAIL, "SDnametoindex"); dset1 = SDselect(fid, dset_index); CHECK(dset1, FAIL, "SDselect"); { /* Append data to the dataset pass the end */ int16 data[] = {800,801,802,803,804,805}; start[0] = 7; start[1] = start[2] = 0; /* writing at {7,0,0} */ edges[0] = 1; edges[1] = DIM1; edges[2] = DIM2; /* Write 1 slab starting at index 7 */ status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* VAR3D now has 8 (D1_NUMRECS) records */ /* Get information of the dataset, and verify its dimension */ status = SDgetinfo(dset1, NULL, NULL, dimsizes3D, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(dimsizes3D[0], D1_NUMRECS, "SDgetinfo"); /* Read and verify data of the dataset */ start[0] = start[1] = start[2] = 0; edges[0] = dimsizes3D[0]; edges[1] = dimsizes3D[1]; edges[2] = dimsizes3D[2]; status = SDreaddata(dset1, start, NULL, edges, (VOIDP) outdata3D); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata3D, result3D, edges[0]*edges[1]*edges[2]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* Data should be 300 -3 301 -3 302 -3 303 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... ... -3 -3 -3 -3 -3 -3 800 801 ... -3 -3 -3 -3 -3 -3 802 803 ... -3 -3 -3 -3 -3 -3 804 805 unlimited dimension ----> (-3 is fill value) */ /* Reopen the 1-D dataset VAR1D */ dset_index = SDnametoindex(fid, VAR1D); CHECK(dset_index, FAIL, "SDnametoindex"); dset2 = SDselect(fid, dset_index); CHECK(dset2, FAIL, "SDselect"); /* Read and verify data of the dataset. Data should be: -1 -1 300 301 302 303 */ start[0] = 0; edges[0] = dimsize1D[0]; status = SDreaddata(dset2, start, NULL, edges, (VOIDP) outdata1D); CHECK(status, FAIL, "SDreaddata"); status = HDmemcmp(outdata1D, sdresult1D, edges[0]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* Close the datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(dset2); CHECK(status, FAIL, "SDendaccess"); /* Create the fourth data set, named VARDOZEN and with unlimited dimension. This data set will have more records than the current number of records in the file. */ dimsize1D[0] = SD_UNLIMITED; dset1 = SDcreate(fid, VARDOZEN, DFNT_INT16, RANK1, dimsize1D); CHECK(dset3, FAIL, "SDcreate"); { /* Write data to the fourth dataset, exceeding the current number of records in the file */ int16 data[] = {1,2,3,4,5,6,7,8,9,10,11,12}; /* Write 12 elements starting at index 0 */ start[0] = 0; edges[0] = 12; status = SDwritedata(dset1, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "SDwritedata"); } /* Close the datasets */ status = SDendaccess(dset1); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /***************************************************** * Read and verify data of the variables with nc API * *****************************************************/ { long start[3]; long edges[3]; int ncid; /* file id */ int var1id, var2id, var3id; /* variable ids */ long dims[3]; /* dimension size buffer */ int rh_ndims; /* number of dims */ int rh_dims[H4_MAX_VAR_DIMS]; /* variable shape */ char varname[H4_MAX_NC_NAME]; /* variable name */ int ii; /* After the fourth data set (VARDOZEN) was added, the maximum number of records became 12. Thus, the results must be changed to reflect the behavior in nc API. */ int16 result3D[DIM0][DIM1][DIM2] = {300,-3,-3,-3,-3,-3,301,-3,-3,-3,-3,-3,302,-3,-3,-3,-3,-3,303,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,800,801,802,803,804,805, -3,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3}; int16 ncresult1D[] = {-1,-1,300,301,302,303,-1,-1,-1,-1,-1,-1}; int16 ncresult1Ddozen[] = {-10,-10,-10,-10,-10,-10,-10,-10,-10,-10,-10,-10}; int16 sdresult1D[] = {-1,-1,300,301,302,303}; /* Open the file with nc API */ ncid = ncopen(FILENAME2, NC_RDWR); CHECK(ncid, -1, "ncopen"); /* Verify variable info and data of first data set */ /* Get access to the variable VAR3D */ var1id = ncvarid(ncid, VAR3D); CHECK(var1id, -1, "ncvarid"); /* Get variable info */ status = ncvarinq(ncid, var1id, varname, NULL, &rh_ndims, rh_dims, NULL); CHECK(status, -1, "ncvarinq"); VERIFY(rh_ndims, RANK3, "ncvarinq"); for (ii = 0; ii < rh_ndims; ii++) { status = ncdiminq(ncid, rh_dims[ii], NULL, &dims[ii]); CHECK(status, -1, "ncdiminq"); /* Initialize parameters for reading data */ edges[ii] = dims[ii]; start[ii] = 0; } /* Get data */ HDmemset(outdata3D, 0, edges[0]*edges[1]*edges[2]*sizeof(int16)); status = ncvarget(ncid, var1id, start, edges, outdata3D); CHECK(status, -1, "ncvarget"); /* Verify data */ status = HDmemcmp(outdata3D, result3D, edges[0]*edges[1]*edges[2]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* Verify variable info and data of second data set */ /* Get access to the second variable VAR1D */ var2id = ncvarid(ncid, VAR1D); CHECK(var2id, -1, "ncvarid"); /* Get and verify variable info */ status = ncvarinq(ncid, var2id, varname, NULL, &rh_ndims, rh_dims, NULL); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], NULL, &dims[0]); CHECK(status, -1, "ncdiminq"); VERIFY(dims[0], MAX_NUMRECS, "ncdiminq"); /* Note: only written up to 6th element, but netCDF uses the max number of records in the file, which is currently 12, due to data set VARDOZEN */ /* Get data */ edges[0] = dims[0]; HDmemset(outdata1D, 0, edges[0]*sizeof(int16)); status = ncvarget(ncid, var2id, start, edges, outdata1D); CHECK(status, -1, "ncvarget"); /* Verify data, should be "-1,-1,300,301,302,303,-1,-1,-1,-1,-1,-1". The first two -1s are due to the skipped elements by SDwritedata. The last six -1s are added by nc API to match the max numrecs in the file. */ for (ii = 0; ii < dims[0]; ii++) { if (outdata1D[ii] != ncresult1D[ii]) fprintf(stderr,"test_1dims: at line %d- Read data %d doesn't match input %d at index %d\n", __LINE__, outdata1D[ii], ncresult1D[ii], ii); } /* Get access to the second variable */ var3id = ncvarid(ncid, VAREMPTY); CHECK(var3id, -1, "ncvarid"); /* Get and verify variable info */ status = ncvarinq(ncid, var3id, varname, NULL, &rh_ndims, rh_dims, NULL); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], NULL, &dims[0]); CHECK(status, -1, "ncdiminq"); VERIFY(dims[0], MAX_NUMRECS, "ncdiminq"); /* Note: no data written, but netCDF uses the max number of records in the file for all unlim dims in the file */ /* Get data */ start[0] = 0; edges[0] = dims[0]; HDmemset(outdata1D, 0, edges[0]*sizeof(int16)); status = ncvarget(ncid, var3id, start, edges, outdata1D); CHECK(status, -1, "ncvarget"); /* Verify data */ status = HDmemcmp(outdata1D, ncresult1Ddozen, edges[0]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); } /* end read data with nc API */ return 0; } /*************************************************************************** Name: test_readings() - tests reading passed actually written data and then passed the maximum number of records in the file with nc API. Description: - open the file and data sets using nc API - read VAR3D passing actually written data, then verify that data is read and fill-values are filled correctly - read VAR3D passing the max number of records, and function will fail - do the same for VAR1D Return value: The number of errors occurred in this test. BMR - Sep 4, 2013 *********************************************************************/ static int test_readings(long max_numrecs) { int ncid; /* file id */ int var1id, var2id, var3id; /* variable ids */ long start[3]; long edges[3]; long dims[3]; /* dimension size buffer */ int rh_ndims; /* number of dims */ int rh_dims[H4_MAX_VAR_DIMS]; /* variable shape */ char varname[H4_MAX_NC_NAME]; /* variable name */ int ii, jj, kk; int16 outdata3D[DIM0][DIM1][DIM2]; /* 3-D data read back */ int16 outdata1D[DIM0]; /* 1-D data read back */ int32 dimsizes3D[3]; /* dimension size buffer for first SDS */ int32 dimsize1D[1]; /* dimension size buffer for second SDS */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data */ /* data resulted from reading at start=[4,0,0] for edges=[6,1,1] */ int16 result3D_start400_edge611[DIM0][DIM1][DIM2] = {-3,-3,-3,800,-3,-3}; /* data resulted from reading at start=[4] for edges=[6] */ int16 result1D_start4_edge6[] = {302,303,-1,-1,-1,-1}; /* Open the file for reading and writing with nc API */ ncid = ncopen(FILENAME2, NC_RDWR); CHECK(ncid, -1, "ncopen"); /* Verify variable info and data of first data set */ /* Get access to the variable VAR3D */ var1id = ncvarid(ncid, VAR3D); CHECK(var1id, -1, "ncvarid"); /* Initialize dimensions to compare */ dimsizes3D[0] = max_numrecs; dimsizes3D[1] = DIM1; dimsizes3D[2] = DIM2; /* Get variable dimensions */ status = ncvarinq(ncid, var1id, varname, NULL, &rh_ndims, rh_dims, NULL); CHECK(status, -1, "ncvarinq"); VERIFY(rh_ndims, RANK3, "ncvarinq"); for (ii = 0; ii < rh_ndims; ii++) { status = ncdiminq(ncid, rh_dims[ii], NULL, &dims[ii]); CHECK(status, -1, "ncdiminq"); VERIFY(dims[ii], dimsizes3D[ii], "ncdiminq"); /* Initialize parameters for reading data */ edges[ii] = dims[ii]; start[ii] = 0; } /* Data written by SD API: {300,-3,-3,-3,-3,-3, 301,-3,-3,-3,-3,-3, 302,-3,-3,-3,-3,-3, 303,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3, -3,-3,-3,-3,-3,-3, 800,801,802,803,804,805} */ /* Read data pass the written data, but before max numrecs in the file */ start[0] = 4; start[1] = start[2] = 0; edges[0] = 6; edges[1] = 1; edges[2] = 1; HDmemset(outdata3D, 0, edges[0]*edges[1]*edges[2]*sizeof(int16)); status = ncvarget(ncid, var1id, start, edges, outdata3D); CHECK(status, -1, "ncvarget"); /* Verify data, should be "-3,-3,-3,800,-3,-3". The first four values are the actual values from the variable. The last two -3s are added by nc API to fill up to the provided buffer. Note that the first three -3s were filled at the writing time due to skipping during writing */ /* Verify data */ status = HDmemcmp(outdata3D, result3D_start400_edge611, edges[0]*edges[1]*edges[2]*sizeof(int16)); VERIFY(status, 0, "HDmemcmp"); /* Read data pass the max numrecs in the file, ncvarget should fail */ start[0] = 4; start[1] = start[2] = 0; edges[0] = 10; edges[1] = edges[2] = 1; HDmemset(outdata3D, 0, edges[0]*edges[1]*edges[2]*sizeof(int16)); status = ncvarget(ncid, var1id, start, edges, outdata3D); VERIFY(status, -1, "ncvarget"); /* Read 2nd variable passing its written data and then passing the file's max numrecs */ /* Get access to the second variable */ var2id = ncvarid(ncid, VAR1D); CHECK(var2id, -1, "ncvarid"); /* Get and verify variable info */ status = ncvarinq(ncid, var2id, varname, NULL, &rh_ndims, rh_dims, NULL); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], NULL, &dims[0]); CHECK(status, -1, "ncdiminq"); VERIFY(dims[0], MAX_NUMRECS, "ncdiminq"); /* Note: only written up to 6th element, but netCDF uses the max number of records in the file, which is 12 currently */ /* Data written by SD API: {-1,-1,300,301,302,303} */ /* Read data pass the written data, but before max numrecs in the file */ start[0] = 4; edges[0] = 6; HDmemset(outdata1D, 0, edges[0]*sizeof(int16)); status = ncvarget(ncid, var2id, start, edges, outdata1D); CHECK(status, -1, "ncvarget"); /* Verify data, should be "302,303,-1,-1,-1,-1". The first two values are the actual values from the variable. The last four -1s are added by nc API to fill up to the provided buffer. */ /* Read data pass the max numrecs in the file, ncvarget should fail */ start[0] = 4; edges[0] = 10; HDmemset(outdata1D, 0, edges[0]*sizeof(int16)); status = ncvarget(ncid, var2id, start, edges, outdata1D); VERIFY(status, -1, "ncvarget"); return 0; } /* Test driver for testing ncvarget in filling fill-values where appropriate */ extern int test_ncvargetfill() { int num_errs = 0; /* Output message about test being performed */ TESTING("ncvarget fills buffer when reading UDim HDF data sets (tncvarget.c)"); /* Test multiple variables with 1 unlimited dimension */ num_errs = num_errs + test_1dim_multivars(); /* Test multiple variables with multiple dimensions */ num_errs = num_errs + test_multidims(); /* Test reading passed written data and maximum numrecs in the file */ /* Note: MAX_NUMRECS is the number of records written to data set VARDOZEN in test_multidims; it is the maximum number of records in FILENAME2 that is going to be read by this test_readings */ num_errs = num_errs + test_readings(MAX_NUMRECS); if (num_errs == 0) PASSED(); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/CMakeTests.cmake0000644000000000000000000001124412421456623016160 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME MFHDF_TEST-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove b150.hdf bug376.hdf cdfout.new cdfout.new.err chkbit.hdf chktst.hdf comptst1.hdf comptst2.hdf comptst3.hdf comptst4.hdf comptst5.hdf comptst6.hdf comptst7.hdf datainfo_chk.hdf datainfo_chkcmp.hdf datainfo_cmp.hdf datainfo_extend.hdf datainfo_nodata.hdf datainfo_simple.hdf datasizes.hdf dim.hdf emptySDSs.hdf extfile.hdf exttst.hdf idtypes.hdf multidimvar.nc nbit.hdf onedimmultivars.nc onedimonevar.nc scaletst.hdf sds1_dim1_samename.hdf sds2_dim1_samename.hdf SDS_8_sziped.hdf SDS_16_sziped.hdf SDS_32_sziped.hdf sds_compressed.hdf SD_externals SDS_fl32_sziped.hdf SDS_fl64_sziped.hdf sds_szipped.hdf SDSchunkedsziped.hdf SDSchunkedsziped3d.hdf SDSlongname.hdf SDSunlimitedsziped.hdf test.cdf test1.hdf test2.hdf test_arguments.hdf 'This file name has quite a few characters because it is used to test the fix of bugzilla 1331. It has to be at least this long to see.' Unlim_dim.hdf Unlim_inloop.hdf vars_samename.hdf tdfanndg.hdf tdfansdg.hdf ) ADD_TEST (NAME hdftest COMMAND $) SET (passRegex "HDF-SD test passes") SET_PROPERTY (TEST hdftest PROPERTY PASS_REGULAR_EXPRESSION "${passRegex}") SET_TESTS_PROPERTIES (hdftest PROPERTIES DEPENDS MFHDF_TEST-clearall-objects LABELS ${PROJECT_NAME}) ADD_TEST (NAME cdftest COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=cdfout.new" -D "TEST_EXPECT=0" -D "TEST_REFERENCE=testout.sav" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) SET_TESTS_PROPERTIES (cdftest PROPERTIES DEPENDS hdftest LABELS ${PROJECT_NAME}) ADD_TEST (NAME hdfnctest COMMAND $) SET (NCpassRegex "HDF-nc test passes") SET_PROPERTY (TEST hdfnctest PROPERTY PASS_REGULAR_EXPRESSION "${NCpassRegex}") SET_TESTS_PROPERTIES (hdfnctest PROPERTIES DEPENDS cdftest LABELS ${PROJECT_NAME}) #-- Adding test for xdrtest IF (HDF4_BUILD_XDR_LIB) ADD_EXECUTABLE (xdrtest ${HDF4_MFHDF_XDR_DIR}/xdrtest.c) TARGET_NAMING (xdrtest ${LIB_TYPE}) TARGET_C_PROPERTIES (xdrtest " " " ") TARGET_LINK_LIBRARIES (xdrtest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) IF (CYGWIN) ADD_CUSTOM_COMMAND ( TARGET xdrtest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_XDR_DIR}/xdrtest.cyg ${PROJECT_BINARY_DIR}/xdrtest.out ) ELSE (CYGWIN) ADD_CUSTOM_COMMAND ( TARGET xdrtest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_XDR_DIR}/xdrtest.out ${PROJECT_BINARY_DIR}/xdrtest.out ) ENDIF (CYGWIN) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME xdrtest COMMAND $) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME xdrtest COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=xdrtest.tst" -D "TEST_EXPECT=0" -D "TEST_REFERENCE=xdrtest.out" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) SET_TESTS_PROPERTIES (xdrtest PROPERTIES DEPENDS hdfnctest LABELS ${PROJECT_NAME}) ENDIF (HDF4_BUILD_XDR_LIB) libhdf4-4.2.10/HDF_ALT/mfhdf/test/tncunlim.c0000644000000000000000000007764512421456623015171 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tncunlim.c - tests reading/writing variables with unlimited dimension using * nc API. The tests here are added to test the behavior of the * library when dealing with unlimited dimensions via nc API. The * tests show that the data is correctly written/read when: * + data added immediately after last record * + data added skipping one or more records * + data overridden existing data * + data read pass the end of that variable but not the max in * all the variables in the file (on going) * * Structure of the file: * test_ncunlim - test driver * test_1dim_singlevar - tests on a single variable with only 1 dimension * test_1dim_multivars - tests on multiple variables with only 1 dimension * test_multidim_singlevar - tests on single variable with multiple dimensions * BMR - Dec 22, 2008 ****************************************************************************/ #include "mfhdf.h" #include "hdftest.h" /******************************************************************** Name: test_1dim_singlevar() - tests on a single variable with only 1 dimension Description: The main contents include: - write 4 elements starting at index 0 - append 2 elements starting at index 6, that is indices 4 and 5 will be written with fill value - append 3 elements immediately at the end of the data - overwrite indices 0 and 1 Return value: The number of errors occurred in this routine. BMR - Dec 22, 2008 *********************************************************************/ #define DIM0 20 #define FILENAME1 "onedimonevar.nc" static int test_1dim_singlevar() { int ncid; /* file id */ int varid; /* variable id */ int time_dim; /* unlimited dimension */ int dims[1]; /* variable shapes */ long dimsize = 0; /* dimension size buffer */ short outdata[DIM0]; /* data read back */ char varname[11]; /* variable name */ nc_type rh_type; /* variable type */ int rh_ndims; /* number of dims */ int rh_dims[H4_MAX_VAR_DIMS]; /* variable shape */ int rh_natts; /* number of attributes */ int ii; short fillval = 99; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data; the first two elements will be changed to "1,2" later for the last test. */ short result[] = {320,301,301,302,99,99,30,31,801,802,803}; /* Enter define mode */ ncid = nccreate(FILENAME1, NC_CLOBBER); CHECK(ncid, -1, "nccreate"); /* Variables will be filled with fill values when data is missing */ status = ncsetfill(ncid, NC_FILL); CHECK(status, -1, "ncsetfill"); /* Define the unlimited dimension */ time_dim = ncdimdef(ncid, "time", NC_UNLIMITED); CHECK(status, -1, "ncdimdef"); /* Define the variable */ dims[0] = time_dim; varid = ncvardef (ncid, "Variable 1", NC_SHORT, 1, dims); CHECK(varid, -1, "ncvardef"); /* write the fill value attribute */ status = ncattput(ncid, varid, "_FillValue", NC_SHORT, 1, &fillval ); CHECK(status, -1, "ncattput"); /* leave define mode */ status = ncendef (ncid); CHECK(status, -1, "ncendef"); { /* write data the first time */ long rh_start[] = {0}; /* starting writing at beginning, index 0 */ long rh_edges[] = {4}; /* four elements */ short data[] = { 320,301,301,302}; /* write 4 elements starting at index 0 */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get variable information and size of the unlimited dimension */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); /* Close file */ status = ncclose (ncid); CHECK(status, -1, "ncclose"); /* Open file for reading and writing */ ncid = ncopen(FILENAME1, NC_RDWR); CHECK(ncid, -1, "ncopen"); /* Get access to the variable */ varid = ncvarid(ncid, "Variable 1"); CHECK(varid, -1, "ncvarid"); /* Get and verify variable info and size of the unlimited dimension again */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); { /* read and verify data of the variable */ long start[] = {0}; long edges[1]; edges[0] = dimsize; HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be "320 301 301 302" */ for (ii = 0; ii < dimsize; ii++) { if (outdata[ii] != result[ii]) fprintf(stderr,"test_1dim_singlevar: Read data %d doesn't match input %d at index %d\n", outdata[ii], result[ii], ii); } } /* end read data */ { /* Append data to variable pass the end */ long rh_start[] = {6}; /* the end is 3 */ long rh_edges[] = {2}; /* two elements */ short data[] = { 30,31}; /* write 2 values starting at index 6 */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get and verify variable info and size of the unlimited dimension again */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 8, "ncdiminq"); { /* read variable after appending with gap */ long start[] = {0}; long edges[1]; edges[0] = dimsize; HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be "320,301,301,302,99,99,30,31" where 99 is fillvalue */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result[ii]) fprintf(stderr,"test_1dim_singlevar: Read data %d doesn't match input %d at index %d\n", outdata[ii], result[ii], ii); } } /* end read data */ { /* write variable immediately pass the end */ long rh_start[] = {0}; long rh_edges[] = {3}; short data[] = { 801,802,803}; rh_start[0] = dimsize; /* starting immediatly pass dimension size */ /* write 3 elements to the variable starting at 'dimsize' */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get and verify variable info and size of the unlimited dimension */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 11, "ncdiminq"); { /* read variable */ long start[] = {0}; long edges[1]; edges[0] = dimsize; HDmemset(outdata, 0, DIM0+2); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be "320,301,301,302,99,99,30,31,801,802,803" where 99 is fill value */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result[ii]) fprintf(stderr,"test_1dim_singlevar: Read data %d doesn't match input %d at index %d\n", outdata[ii], result[ii], ii); } } /* end read data */ { /* write variable to override current values */ long rh_start[] = {0}; /* starting at the beginning */ long rh_edges[] = {2}; /* two values */ short data[] = { 1,2}; /* write 2 elements overriding the first two values */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); /* change expected data too */ result[0] = 1; result[1] = 2; } /* Get and verify variable info and size of the unlimited dimension */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 11, "ncdiminq"); { /* read and verify data */ long start[] = {0}; long edges[1]; edges[0] = dimsize; HDmemset(outdata, 0, DIM0+2); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be "1,2,301,302,99,99,30,31,801,802,803" where 99 is fill value, and first and second values are new */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result[ii]) fprintf(stderr,"test_1dim_singlevar: Read data %d doesn't match input %d at index %d\n", outdata[ii], result[ii], ii); } } /* end read data */ /* Close file */ status = ncclose(ncid); CHECK(status, -1, "ncclose"); return 0; } /* test_1dim_singlevar */ /******************************************************************** Name: test_1dim_multivars() - tests reading/writing on multiple variables, each has 1 dimension Description: The main contents include: - write 4 elements starting at index 0 to variable #1 - write 2 elements starting at index 0 to variable #2 - close file and reopen for read/write - append 2 elements to variable #1, immediately after last written record - write 3 elements to variable #2, starting at index 4 - append 3 elements to variable #1, skipping 5 records after the last written record Return value: The number of errors occurred in this routine. BMR - Dec 22, 2008 *********************************************************************/ #define FILENAME2 "onedimmultivars.nc" static int test_1dim_multivars() { int ncid; /* file id */ int varid1, varid2; /* variable id */ int time_dim; /* unlimited dimension */ int dims[1]; /* variable shapes */ long dimsize = 0; /* dimension size buffer */ short outdata[DIM0]; /* data read back */ char varname[11]; /* variable name */ nc_type rh_type; /* variable type */ int rh_ndims; /* number of dims */ int rh_dims[H4_MAX_VAR_DIMS]; /* variable shape */ int rh_natts; /* number of attributes */ int ii; short var1_fillval=-1; /* fill value for the variable */ short var2_fillval=-2; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data; the first two elements will be changed to "1,2" later for the last test. */ short result1[] = {300,301,302,303,400,401,-1,-1,-1,-1,-1,-1,500,501,502}; short result2[] = {102,104,-2,-2,200,201,202,-2,-2,-2,-2,-2,-2,-2,-2}; /* Enter define mode */ ncid = nccreate(FILENAME2, NC_CLOBBER); CHECK(ncid, -1, "nccreate"); /* Variables will be filled with fill values when data is missing */ status = ncsetfill(ncid, NC_FILL); CHECK(status, -1, "ncsetfill"); /* Define the unlimited dimension */ time_dim = ncdimdef(ncid, "time", NC_UNLIMITED); CHECK(time_dim, -1, "ncdimdef"); /* Define two 1-dim variables, named "Variable 1" and "Variable 2" */ dims[0] = time_dim; varid1 = ncvardef (ncid, "Variable 1", NC_SHORT, 1, dims); CHECK(varid1, -1, "ncvardef"); varid2 = ncvardef (ncid, "Variable 2", NC_SHORT, 1, dims); CHECK(varid2, -1, "ncvardef"); /* write the fill value attribute of the two variables */ status = ncattput(ncid, varid1, "_FillValue", NC_SHORT, 1, &var1_fillval); CHECK(status, -1, "ncattput"); status = ncattput(ncid, varid2, "_FillValue", NC_SHORT, 1, &var2_fillval); CHECK(status, -1, "ncattput"); /* leave define mode */ status = ncendef (ncid); CHECK(status, -1, "ncendef"); { /* Write data to both variables */ long rh_start[] = {0}; long rh_edges[] = {4}; short data1[] = { 300,301,302,303}; short data2[] = { 102, 104}; /* write 4 elements to Variable 1 starting at index 0 */ status = ncvarput(ncid, varid1, rh_start, rh_edges, (void *)data1); CHECK(status, -1, "ncvarput"); /* write 2 elements to Variable 2 starting at index 0 */ rh_edges[0] = 2; status = ncvarput(ncid, varid2, rh_start, rh_edges, (void *)data2); CHECK(status, -1, "ncvarput"); } /* Get Variable 1's information and size of the unlimited dimension */ status = ncvarinq (ncid, varid1, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); /* Get Variable 2's information and size of the unlimited dimension */ status = ncvarinq (ncid, varid2, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); /* Close file */ status = ncclose (ncid); CHECK(status, -1, "ncclose"); /* Open file for reading and writing */ ncid = ncopen(FILENAME2, NC_RDWR); CHECK(ncid, -1, "ncopen"); /* Get access to the two variables */ varid1 = ncvarid(ncid, "Variable 1"); CHECK(varid1, -1, "ncvarid"); varid2 = ncvarid(ncid, "Variable 2"); CHECK(varid2, -1, "ncvarid"); /* Get Variable 1's information and size of the unlimited dimension */ status = ncvarinq (ncid, varid1, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); /* Get Variable 2's information and size of the unlimited dimension */ status = ncvarinq (ncid, varid2, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); { /* Read data of the variables */ long start[] = {0}; long edges[1]; edges[0] = dimsize; HDmemset(outdata, 0, DIM0); /* Read and verify data of Variable 1 */ status = ncvarget(ncid, varid1, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* Verify data of Variable 1, should be "320 301 301 302" */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result1[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 1\n", outdata[ii], result1[ii], ii); } /* Read and verify data of Variable 2 */ edges[0] = 2; /* only reading what written to this variable so far */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* Verify data of Variable 2, should be "102 104" */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result2[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 2\n", outdata[ii], result2[ii], ii); } /* Try to read again but up to the max number of records, 4 in this case because the other variable in the file has 4 elements written */ edges[0] = dimsize; HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* Verify data of Variable 2, should be "102 104 -2 -2" */ for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result2[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 2\n", outdata[ii], result2[ii], ii); } } /* end read data */ { /* Write to variable immediately after last written record */ long rh_start[] = {0}; long rh_edges[] = {2}; short data2[] = {400, 401}; /* Write 2 elements to Variable 1 at index 'dimsize' */ rh_start[0] = dimsize; status = ncvarput(ncid, varid1, rh_start, rh_edges, (void *)data2); CHECK(status, -1, "ncvarput"); } /* Get information of Variable 1 and size of the unlimited dimension */ status = ncvarinq (ncid, varid1, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 6, "ncdiminq"); { /* Read variables */ long start[] = {0}; long edges[] = {0}; /* Current data of Variable 2 should look like this, because of the extension with fill value to match the max number of records in the file */ short tempresult[] = {102,104,-2,-2,-2,-2}; /* Read up to max number of records in the file */ edges[0] = dimsize; /* Read and verify data of Variable 1 */ /* read data should be: 300 301 302 303 400 401 */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid1, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result1[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 1\n", outdata[ii], result1[ii], ii); } /* Read and verify data of Variable 2 */ /* read data should be: 102 104 -2 -2 -2 -2 */ edges[0] = 2; HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != tempresult[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 2\n", outdata[ii], result2[ii], ii); } } /* end read data */ { /* Append to variable with gap */ long rh_start[] = {4}; long rh_edges[] = {3}; short data2[] = {200, 201, 202}; /* Write 3 elements to Variable 2 at index 4 */ status = ncvarput(ncid, varid2, rh_start, rh_edges, (void *)data2); CHECK(status, -1, "ncvarget"); } /* Get variable information and size of the unlimited dimension */ status = ncvarinq (ncid, varid2, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 7, "ncdiminq"); { /* Read both variables */ long start[] = {0}; long edges[1]; edges[0] = dimsize-1; /* Read and verify data of Variable 1 */ /* read data should be: 300 301 302 303 400 401 -1 */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid1, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result1[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 1\n", outdata[ii], result1[ii], ii); } /* Read and verify data of Variable 1 */ /* read data should be: 102 104 -2 -2 200 201 202 */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result2[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 2\n", outdata[ii], result2[ii], ii); } } /* end read data */ { /* Append to a variable, with gap */ long rh_start[] = {0}; long rh_edges[] = {3}; short data2[] = {500, 501, 502}; rh_start[0] = dimsize+5; /* Write 3 elements to Variable 1 at index 'dimsize+5', leaving a gap of 5 records that will be filled with fill value */ status = ncvarput(ncid, varid1, rh_start, rh_edges, (void *)data2); CHECK(status, -1, "ncvarput"); /* data now: 300 301 302 303 400 401 -1 -1 -1 -1 -1 -1 500 501 502 */ } /* Get variable information and size of the unlimited dimension */ status = ncvarinq (ncid, varid2, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 15, "ncdiminq"); { /* Read both variables */ long start[] = {0}; long edges[1]; edges[0] = dimsize; /* Read and verify data of Variable 1; read data should be: */ /* 300 301 302 303 400 401 -1 -1 -1 -1 -1 -1 500 501 502 */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid1, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result1[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 1\n", outdata[ii], result1[ii], ii); } /* Read and verify data of Variable 2; read data should be: */ /* 102 104 -2 -2 200 201 202 -2 -2 -2 -2 -2 -2 -2 -2 */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); CHECK(status, -1, "ncvarget"); for (ii = 0; ii < edges[0]; ii++) { if (outdata[ii] != result2[ii]) fprintf(stderr,"test_1dim_multivars: Read data %d doesn't match input %d at index %d in Variable 2\n", outdata[ii], result2[ii], ii); } } /* end read data */ #if NOTRUN /* The following test is to verify that attempting to read pass the maximum number of records in the file will fail. However, because ncvarget leads to the internal function NCcoordck which uses NCadvise to display the error and exit() so the test is disabled but the code should remain here for future testing. -BMR, Dec 30, 2008 */ { /* Read both variables pass the end by 2 records, should fail */ long start[] = {0}; long edges[1]; edges[0] = dimsize+2; /* read data of Variable 1; should fail */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid1, start, edges, outdata); VERIFY(status, -1, "ncvarget"); /* read data of Variable 1; should fail */ HDmemset(outdata, 0, DIM0); status = ncvarget(ncid, varid2, start, edges, outdata); VERIFY(status, -1, "ncvarget"); } /* end read data */ #endif /* Close file */ status = ncclose(ncid); CHECK(status, -1, "ncclose"); return num_errs; } /* test_1dim_multivars */ /******************************************************************** Name: test_multidim_singlevar() - tests on a single variable with more than one dimension Description: The main contents include: - create a 3-D variable with 1 unlimited dimension and the others 3x2 - write 4x1x1 elements starting at index {0,0,0} - append 2x1x1 elements along the unlimited dimension starting at index 6, that is slabs at indices 4 and 5 will be written with fill value - append 1x3x2 elements immediately at the end of the data Return value: The number of errors occurred in this routine. BMR - Dec 22, 2008 *********************************************************************/ #define DIM1 3 #define DIM2 2 #define FILENAME3 "multidimvar.nc" static int test_multidim_singlevar() { int ncid; /* file id */ int varid; /* variable id */ int time_dim; /* unlimited dimension */ int dim1, dim2; /* other dimension ids */ int dims[3]; /* variable shapes */ long dimsize = 0, /* unlimited dimension size */ dimsize1 = 0, dimsize2 = 0; /* other dimension sizes */ short outdata[DIM0][DIM1][DIM2]; /* data read back */ char varname[12]; /* variable name */ nc_type rh_type; /* variable type */ int rh_ndims; /* number of dims */ int rh_dims[H4_MAX_VAR_DIMS]; /* variable shape */ int rh_natts; /* number of attributes */ int ii, jj, kk; short fillval = -3; /* fill value for the variable */ intn status = 0; /* returned by called functions */ intn num_errs = 0; /* number of errors so far */ /* result data to compare against read data; the first two elements will be changed to "1,2" later for the last test. */ short result[DIM0][DIM1][DIM2] = {300,-3,-3,-3,-3,-3,301,-3,-3,-3,-3,-3,302,-3,-3,-3,-3,-3,303,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3,400,-3,-3,-3,-3,-3,401,-3,-3,-3,-3,-3,800,801,802,803,804,805}; /* Enter define mode */ ncid = nccreate(FILENAME3, NC_CLOBBER); CHECK(ncid, -1, "nccreate"); /* variables will be filled with fill values when data is missing */ status = ncsetfill(ncid, NC_FILL); CHECK(status, -1, "ncsetfill"); /* Define the unlimited dimension */ time_dim = ncdimdef(ncid, "time", NC_UNLIMITED); CHECK(status, -1, "ncdimdef"); dim1 = ncdimdef(ncid, "dimension 1", 3L); CHECK(dim1, -1, "ncdimdef"); dim2 = ncdimdef(ncid, "dimension 2", 2L); CHECK(dim2, -1, "ncdimdef"); /* Define the variable */ dims[0] = time_dim; dims[1] = dim1; dims[2] = dim2; varid = ncvardef (ncid, "Variable 3D", NC_SHORT, 3, dims); CHECK(varid, -1, "ncvardef"); /* Write the fill value attribute */ status = ncattput(ncid, varid, "_FillValue", NC_SHORT, 1, &fillval); CHECK(status, -1, "ncattput"); /* Leave define mode */ status = ncendef (ncid); CHECK(status, -1, "ncendef"); { /* Write data the first time */ long rh_start[] = {0,0,0}; /* starting writing at beginning */ long rh_edges[] = {4,1,1}; /* 4x1x1 slab */ short data[] = {300,301,302,303}; /* Write 4 elements starting at index 0 */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get variable information and size of the unlimited dimension */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); /* Close file */ status = ncclose (ncid); CHECK(status, -1, "ncclose"); /* Open file for reading and writing */ ncid = ncopen(FILENAME3, NC_RDWR); CHECK(ncid, -1, "ncopen"); /* Get access to the variable */ varid = ncvarid(ncid, "Variable 3D"); CHECK(varid, -1, "ncvarid"); /* Get and verify variable info and size of the unlimited dimension again */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 4, "ncdiminq"); status = ncdiminq(ncid, rh_dims[1], 0, &dimsize1); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize1, DIM1, "ncdiminq"); status = ncdiminq(ncid, rh_dims[2], 0, &dimsize2); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize2, DIM2, "ncdiminq"); { /* Read and verify data of the variable */ long start[] = {0,0,0}; long edges[] = {0,DIM1,DIM2}; edges[0] = dimsize; HDmemset(outdata, 0, DIM0*DIM1*DIM2); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* Verify data, should be: 300 -3 301 -3 302 -3 303 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 unlimited dimension ----> (-3 is fill value) */ for (ii = 0; ii < edges[0]; ii++) for (jj = 0; jj < DIM1; jj++) for (kk = 0; kk < DIM2; kk++) if (outdata[ii][jj][kk] != result[ii][jj][kk]) fprintf(stderr,"test_multidim_singlevar: Read data %d doesn't match input %d at indices %d,%d,%d\n", outdata[ii][jj][kk], result[ii][jj][kk], ii,jj,kk); } /* end read data */ { /* Append data to variable pass the end */ long rh_start[] = {6,0,0}; /* the end is 3 */ long rh_edges[] = {2,1,1}; /* two slabs */ short data[] = { 400,401}; /* Write 2 values starting at index 6 */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get and verify variable info and size of the unlimited dimension again */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 8, "ncdiminq"); { /* Read variable after appending with gap */ long start[] = {0,0,0}; long edges[] = {0,DIM1,DIM2}; edges[0] = dimsize; HDmemset(outdata, 0, DIM0*DIM1*DIM2); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be 300 -3 301 -3 302 -3 303 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... ... -3 -3 -3 -3 400 -3 401 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 unlimited dimension ----> (-3 is fill value) */ for (ii = 0; ii < edges[0]; ii++) for (jj = 0; jj < DIM1; jj++) for (kk = 0; kk < DIM2; kk++) if (outdata[ii][jj][kk] != result[ii][jj][kk]) fprintf(stderr,"test_multidim_singlevar: Read data %d doesn't match input %d at indices %d,%d,%d\n", outdata[ii][jj][kk], result[ii][jj][kk], ii,jj,kk); } /* end read data */ { /* Write variable immediately pass the end */ long rh_start[] = {0,0,0}; /* the end is 3 */ long rh_edges[] = {1,3,2}; /* two elements */ short data[] = {800,801,802,803,804,805}; rh_start[0] = dimsize; /* starting immediatly pass dimension size */ /* Write 3 elements to the variable starting at 'dimsize' */ status = ncvarput(ncid, varid, rh_start, rh_edges, (void *)data); CHECK(status, -1, "ncvarput"); } /* Get and verify variable info and size of the unlimited dimension */ status = ncvarinq (ncid, varid, varname, &rh_type, &rh_ndims, rh_dims, &rh_natts); CHECK(status, -1, "ncvarinq"); status = ncdiminq(ncid, rh_dims[0], 0, &dimsize); CHECK(status, -1, "ncdiminq"); VERIFY(dimsize, 9, "ncdiminq"); { /* read variable */ long start[] = {0,0,0}; long edges[] = {0,DIM1,DIM2}; edges[0] = dimsize; HDmemset(outdata, 0, DIM0*DIM1*DIM2); status = ncvarget(ncid, varid, start, edges, outdata); CHECK(status, -1, "ncvarget"); /* verify data, should be 300 -3 301 -3 302 -3 303 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... -3 -3 -3 -3 -3 -3 -3 -3 ... ... -3 -3 -3 -3 400 -3 401 -3 800 801 ... -3 -3 -3 -3 -3 -3 -3 -3 802 803 ... -3 -3 -3 -3 -3 -3 -3 -3 804 805 unlimited dimension ----> (-3 is fill value) */ for (ii = 0; ii < edges[0]; ii++) for (jj = 0; jj < DIM1; jj++) for (kk = 0; kk < DIM2; kk++) if (outdata[ii][jj][kk] != result[ii][jj][kk]) fprintf(stderr,"test_multidim_singlevar: Read data %d doesn't match input %d at indices %d,%d,%d\n", outdata[ii][jj][kk], result[ii][jj][kk], ii,jj,kk); } /* end read data */ /* Close file */ status = ncclose(ncid); CHECK(status, -1, "ncclose"); return 0; } /* Test driver for testing reading/writing variables with unlimited dimension using nc API. */ extern int test_ncunlim() { int num_errs = 0; /* Output message about test being performed */ TESTING("read/write variables with unlimited dims via nc API (tncunlim.c)"); /* Test single variable with 1 unlimited dimension */ num_errs = num_errs + test_1dim_singlevar(); /* Test multiple variables with 1 unlimited dimension */ num_errs = num_errs + test_1dim_multivars(); /* Test multiple variables with multiple dimensions */ num_errs = num_errs + test_multidim_singlevar(); if (num_errs == 0) PASSED(); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/testout.sav0000644000000000000000000000056312421456623015377 0ustar dimrename: IXX ncclose ret = 0 reopen id = 0 for filename test.cdf NC done GATTR VAR VATTR VATTR VATTR VATTR VATTR fill_seq indices 1 2 3 75.000000 != 2.718282 Done got val = 3.250000 got val = 0.000000 got val = 2.718282 got val = 82555 got val = 97 got val = A (0x41) got val = B (0x42) got val = "The red death had long devastated the country." re ncclose ret = 0 libhdf4-4.2.10/HDF_ALT/mfhdf/test/hdftest.h0000644000000000000000000000570212421456623014767 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * The name of the test is printed by saying TESTING("something") which will * result in the string `Testing something' being flushed to standard output. * If a test passes, fails, or is skipped then the PASSED(), H4_FAILED(), or * SKIPPED() macro should be called. After H4_FAILED(), the caller * should print additional information to stdout indented by at least four * spaces. */ #define TESTING(WHAT) {printf("Testing %-62s",WHAT); fflush(stdout);} #define PASSED() {puts(" PASSED");fflush(stdout);} #define H4_FAILED() {puts("*FAILED*");fflush(stdout);} #define H4_WARNING() {puts("*WARNING*");fflush(stdout);} #define SKIPPED() {puts(" -SKIP-");fflush(stdout);} /* Check status value and print error message */ #define CHECK(status, fail_value, name) {if(status == fail_value) { \ fprintf(stderr, "*** Routine %s FAILED at line %d ***\n", name, __LINE__); num_errs++;}} /* Check status value and print error message, including index */ #define CHECK_IND(status, fail_value, name, index) {if(status == fail_value) { \ fprintf(stderr, "*** Routine %s FAILED at line %d for SDS index %d ***\n", name, __LINE__, index); num_errs++;}} /* Verify that a value is as expected and, if not, print error message */ #define VERIFY(item, value, test_name) {if(item != value) { \ fprintf(stderr, "*** UNEXPECTED VALUE from %s is %ld at line %4d in %s\n", test_name, (long)item,(int)__LINE__,__FILE__); num_errs++;}} /* Verify that a value of type char* is as expected and, if not, print error message */ #define VERIFY_CHAR(item, value, test_name) {if(HDstrcmp(item, value) != 0) { \ fprintf(stderr, "*** UNEXPECTED VALUE from %s is <%s> at line %4d in %s\n", test_name, item,(int)__LINE__,__FILE__); num_errs++;}} /* Used to validate that 'buffer' has been successfully allocated */ #define CHECK_ALLOC(buffer, buf_name, func_name ) { \ if (buffer == NULL) {\ fprintf(stderr,"in %s: space allocation for %s failed. Terminated!\n",\ func_name, buf_name ); \ exit(1); } \ } libhdf4-4.2.10/HDF_ALT/mfhdf/test/tutils.c0000644000000000000000000000465112421456623014647 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "mfhdf.h" #include "hdftest.h" /* Generate the correct name for the test file, by prepending the source path if it exists, otherwise, assume it is the local directory */ /* NOTE: should move all utilities into mfutil.c or something like that */ intn make_datafilename(char* basename, char* testfile, unsigned int size) { char *srcdir = getenv("srcdir"); char *tempfile = NULL; tempfile = (char *) HDmalloc(sizeof(char *) * (size+1)); HDmemset(tempfile, '\0', size+1); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(basename) + 1) < size)) { strcpy(tempfile, srcdir); strcat(tempfile, "/"); } /* Windows doesn't set srcdir, and generates files in a different relative path, so we need to special case here. It is best to look for the testfile in the same path, and the Windows test script will make sure to put it there first. - SJW 2007/09/19 (from tnetcdf.c) */ #ifndef _WIN32 /* This is to get to the file when the library was built without srcdir option and the test is ran by ./hdftest in the test src directory instead of by make check. - BMR 2007/08/09 */ if (srcdir == NULL) strcpy(tempfile, "./"); #endif /* _WIN32 */ /* Name of data file */ strcat(tempfile, basename); /* Verify that file name is not NULL */ if (tempfile == NULL || tempfile[0] == '\0') return FAIL; /* File name is generated, return it */ HDstrcpy(testfile, tempfile); return SUCCEED; } libhdf4-4.2.10/HDF_ALT/mfhdf/test/smallslice.0000.nc0000644000000000000000000000215012421456623016177 0ustar CDF LONLATZVAL1_26 history Sep 22, 09: This file was generated by the netCDF ncgen tool from a CDL file. The CDL file was first generated by the netCDF ncdump tool from the netCDF file slice.0000.nc in bugzilla 1644 report; then it was edited to change the dimensions to much smaller values. ConventionsCF-1.0 LON  long_name longitudeunits degrees_eastmodulo@v€ point_spacingevenaxisX0LAT  long_namelatitudeunits degrees_north point_spacingunevenaxisYboundsLAT_bnds@ZVAL1_26 unitsM point_spacingunevenaxisZbounds ZVAL1_26_bndsXTIME1 unitsday since 1978-01-01 00:00:00 time_origin01-Jan-1978 00:00:00axisT`?ØÀVm¥¿ÿÿýÀVUß ÀV=õ€@?ò¿ÿÿú?¡N@vI³Ulibhdf4-4.2.10/HDF_ALT/mfhdf/test/temptySDSs.c0000644000000000000000000005175612421456623015412 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * temptySDS.c - tests the API SDcheckempty. * Structure of the file: * test_checkempty - test driver * test_nonspecial_SDSs - tests nonspecial SDSs without closing file * test_compressed_SDSs - tests compressed SDSs without closing file * test_chunked_SDSs - tests chunked SDSs without closing file * test_unlimited_SDSs - tests unlimited dim SDSs without closing file * test_with_existing_file - tests all SDSs in file after closing the * file and reopening it * check_empty_SDS - utility routine that calls SDcheckempty and verifies * values * check_getchunkinfo - utility routine that calls SDgetchunkinfo and * verifies that function did not fail on empty SDS and the file * is opened as read-only. (bug HDFFR-171, -BMR 2011/10/23) ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define FILE_NAME "emptySDSs.hdf" /* data file to test empty SDSs */ #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 /* Utility routine that selects that named SDS, then calls SDcheckempty * and verifies the returned values. */ static void check_empty_SDS( int32 fid, /* file id */ char* sds_name, /* name of the inquired SDS */ int32 verify_value, /* expected value of 'emptySDS' from SDcheckempty */ int* ret_num_errs /* current number of errors */ ) { int32 sds_id, sds_index, status_32; intn status, emptySDS; int num_errs = 0; char mesg[80]; /* Get index of dataset using its name */ sds_index = SDnametoindex(fid, sds_name); sprintf(mesg, "In check_empty_SDS: SDnametoindex (%s)", sds_name); CHECK(sds_index, FAIL, mesg); /* Select the dataset */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "In check_empty_SDS: SDselect"); /* The returned value from SDcheckempty is CHECKed for FAIL and 'emptySDS' is verified to be verify_value, which can be TRUE or FALSE. */ status_32 = SDcheckempty( sds_id, &emptySDS); CHECK(status_32, FAIL, "SDcheckempty"); VERIFY(emptySDS, verify_value, "SDcheckempty"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In check_empty_SDS: SDendaccess"); *ret_num_errs = num_errs; } /* check_empty_SDS */ /* Utility routine that selects that named SDS, then calls SDgetchunkinfo and * verify the returned values. The routine also verifies that SDgetchunkinfo * did not fail when the file is opened as read-only (bug HDFFR-171) */ static void check_getchunkinfo( int32 fid, /* file id */ char* sds_name, /* name of the inquired SDS */ int32 verify_value, /* expected value of 'flags' from SDgetchunkinfo */ int* ret_num_errs /* current number of errors */ ) { int32 sds_id, sds_index; HDF_CHUNK_DEF c_def_out; /* Chunking definitions */ int32 comp_flag, c_flags; intn status; int num_errs = 0; char mesg[80]; /* Get index of dataset using its name */ sds_index = SDnametoindex(fid, sds_name); sprintf(mesg, "In check_getchunkinfo: SDnametoindex (%s)", sds_name); CHECK(sds_index, FAIL, mesg); /* Select the dataset */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "In check_getchunkinfo: SDselect"); /* The returned value from SDgetchunkinfo is CHECKed for FAIL and 'c_flags' is VERIFied to be verify_value, which can be HDF_NONE, HDF_CHUNK, or HDF_CHUNK | HDF_COMP. */ status = SDgetchunkinfo (sds_id, &c_def_out, &c_flags); CHECK(status, FAIL, "SDgetchunkinfo"); VERIFY(c_flags, verify_value, "SDgetchunkinfo"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In check_getchunkinfo: SDendaccess"); *ret_num_errs = num_errs; } /* check_getchunkinfo */ /* Test non-special SDSs. This routine creates non-special SDSs, writes * data to one of the SDSs, and checks for emptiness on each without closing * the file. */ static intn test_nonspecial_SDSs(int32 fid) { int32 sds_id; int32 dimsize[2], start[2], edges[2]; int32 data[Y_LENGTH][X_LENGTH]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Initialize data for the dataset */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } /* Create a 2x2 dataset called "EmptyDataset" */ dimsize[0] = Y_LENGTH; dimsize[1] = X_LENGTH; sds_id = SDcreate(fid, "EmptyDataset", DFNT_FLOAT32, 2, dimsize); CHECK(sds_id, FAIL, "In test_nonspecial_SDSs: SDcreate 'EmptyDataset'"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_nonspecial_SDSs: SDendaccess"); /* Check that this SDS is empty */ check_empty_SDS(fid, "EmptyDataset", TRUE, &num_errs); /* Create another 2x2 dataset called "WrittenDataset" */ sds_id = SDcreate(fid, "WrittenDataset", DFNT_INT32, 2, dimsize); CHECK(sds_id, FAIL, "In test_nonspecial_SDSs: SDcreate 'WrittenDataset'"); /* Define the location and size of the data to be written to the dataset */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Write the stored data to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(sds_id, FAIL, "In test_nonspecial_SDSs: SDwritedata"); /* Close this SDS */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_nonspecial_SDSs: SDendaccess"); /* Check that this SDS is NOT empty */ check_empty_SDS(fid, "WrittenDataset", FALSE, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_nonspecial_SDSs */ /* Test compressed SDSs. This routine creates compressed SDSs, writes * data to one of the SDSs, and checks for emptiness on each without closing * the file. */ static intn test_compressed_SDSs(int32 fid) { int32 sds_id, esds_id; int32 start[2], edges[2], dim_sizes[2]; int32 comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int32 data[Y_LENGTH][X_LENGTH]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Buffer array data and define array dimensions */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /* Create datasets, one to be written with data, the other not */ sds_id = SDcreate(fid, "CompressedData", DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "In test_compressed_SDSs: SDcreate 'CompressedData'"); esds_id = SDcreate(fid, "Compressed-No-Data", DFNT_INT32, RANK, dim_sizes); CHECK(esds_id, FAIL, "In test_compressed_SDSs: SDcreate 'Compressed-No-Data'"); comp_type = COMP_CODE_DEFLATE; c_info.deflate.level = 6; status = SDsetcompress(sds_id, comp_type, &c_info); CHECK(status, FAIL, "In test_compressed_SDSs: SDsetcompress 'CompressedData'"); status = SDsetcompress(esds_id, comp_type, &c_info); CHECK(status, FAIL, "In test_compressed_SDSs: SDsetcompress 'Compressed-No-Data'"); /* Define the location and size of the dataset to be written to the file */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Write the stored data to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "In test_compressed_SDSs: SDwritedata"); /* Close the SDSs */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_compressed_SDSs: SDendaccess 'CompressedData'"); status = SDendaccess(esds_id); CHECK(status, FAIL, "In test_compressed_SDSs: SDendaccess 'Compressed-No-Data'"); /* Check that this SDS is NOT empty */ check_empty_SDS(fid, "CompressedData", FALSE, &num_errs); /* Check that this SDS is empty */ check_empty_SDS(fid, "Compressed-No-Data", TRUE, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_compressed_SDSs */ /* Test chunked SDSs. This routine creates chunked SDSs, writes data * to one of the SDSs, and checks for emptiness on each without closing * the file. */ #define X_CHUNKED_LENGTH 4 #define Y_CHUNKED_LENGTH 9 static intn test_chunked_SDSs(int32 fid) { int32 sds_id, esds_id, sds_index; int32 flag, maxcache, new_maxcache; int32 dim_sizes[RANK], origin[RANK]; HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 comp_flag; int16 fill_value = 0; /* Fill value */ intn status; int num_errs = 0; /* number of errors so far */ /* Declare chunks data type and initialize some of them. */ int16 chunk1[3][2] = { 1, 1, 1, 1, 1, 1 }; int16 chunk2[3][2] = { 2, 2, 2, 2, 2, 2 }; int16 chunk3[3][2] = { 3, 3, 3, 3, 3, 3 }; int16 chunk6[3][2] = { 6, 6, 6, 6, 6, 6 }; c_def.chunk_lengths[0] = 3; c_def.chunk_lengths[1] = 2; /* Create Y_CHUNKED_LENGTH x X_CHUNKED_LENGTH SDS */ dim_sizes[0] = Y_CHUNKED_LENGTH; dim_sizes[1] = X_CHUNKED_LENGTH; esds_id = SDcreate(fid, "Chunked-No-Data", DFNT_INT16, RANK, dim_sizes); CHECK(esds_id, FAIL, "In test_chunked_SDSs: SDcreate 'Chunked-No-Data'"); /* Set info for chunking */ comp_flag = HDF_CHUNK; status = SDsetchunk(esds_id, c_def, comp_flag); CHECK(status, FAIL, "In test_chunked_SDSs: SDsetchunk"); /* Terminate access to the "Chunked-No-Data" dataset */ status = SDendaccess(esds_id); CHECK(status, FAIL, "In test_chunked_SDSs: SDendaccess 'Chunked-No-Data'"); /* Check that this SDS is empty */ check_empty_SDS(fid, "Chunked-No-Data", TRUE, &num_errs); /* Create another Y_CHUNKED_LENGTH x X_CHUNKED_LENGTH SDS but this one will be written with chunks */ sds_id = SDcreate(fid, "ChunkedData", DFNT_INT16, RANK, dim_sizes); CHECK(sds_id, FAIL, "In test_chunked_SDSs: SDcreate 'ChunkedData'"); /* Fill the SDS array with the fill value */ status = SDsetfillvalue(sds_id, (VOIDP)&fill_value); CHECK(status, FAIL, "In test_chunked_SDSs: SDsetfillvalue"); /* Set info for chunking */ comp_flag = HDF_CHUNK; status = SDsetchunk(sds_id, c_def, comp_flag); CHECK(status, FAIL, "In test_chunked_SDSs: SDsetchunk"); /* Set chunk cache to hold maximum of 3 chunks */ maxcache = 3; flag = 0; new_maxcache = SDsetchunkcache(sds_id, maxcache, flag); CHECK(new_maxcache, FAIL, "In test_chunked_SDSs: SDsetchunkcache"); /* Terminate access to the dataset then check if it's empty - and it should be, before writing data to it. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_chunked_SDSs: SDendaccess"); /* Check that this SDS is still empty after the call to SDsetchunk */ check_empty_SDS(fid, "ChunkedData", TRUE, &num_errs); /* Re-select the "ChunkedData" SDS, then write chunks using SDwritechunk function */ /* Get index of dataset using its name */ sds_index = SDnametoindex(fid, "ChunkedData"); CHECK(sds_index, FAIL, "In test_chunked_SDSs: SDnametoindex"); /* Select the dataset */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "In test_chunked_SDSs: SDselect"); /* Write the chunk with the coordinates (0,0) */ origin[0] = 0; origin[1] = 0; status = SDwritechunk(sds_id, origin, (VOIDP) chunk1); CHECK(status, FAIL, "In test_chunked_SDSs: SDwritechunk"); /* Write the chunk with the coordinates (1,0) */ origin[0] = 1; origin[1] = 0; status = SDwritechunk(sds_id, origin, (VOIDP) chunk3); CHECK(status, FAIL, "In test_chunked_SDSs: SDwritechunk"); /* Write the chunk with the coordinates (0,1) */ origin[0] = 0; origin[1] = 1; status = SDwritechunk(sds_id, origin, (VOIDP) chunk2); CHECK(status, FAIL, "In test_chunked_SDSs: SDwritechunk"); /* Terminate access to the dataset */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_chunked_SDSs: SDendaccess"); /* Check that this SDS is NOT empty */ check_empty_SDS(fid, "ChunkedData", FALSE, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_chunked_SDSs */ /* Test unlimited dimension SDSs. This routine creates unlimited * dimension SDSs, writes data to one of the SDSs, and checks for * emptiness on each without closing the file. */ static intn test_unlimited_SDSs(int32 fid) { int32 sds_id, esds_id, sds_index; int32 dim_sizes[2]; int32 data[Y_LENGTH][X_LENGTH], append_data[X_LENGTH]; int32 start[2], edges[2]; intn status; int i, j; int num_errs = 0; /* number of errors so far */ /* Data initialization */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + 1) + (j + 1); } /* Define dimensions of the array. Make the first dimension appendable by defining its length to be unlimited */ dim_sizes[0] = SD_UNLIMITED; dim_sizes[1] = X_LENGTH; /* Create the array datasets */ esds_id = SDcreate(fid, "Appendable-No-Data", DFNT_INT32, RANK, dim_sizes); CHECK(esds_id, FAIL, "In test_unlimited_SDSs: SDcreate 'Appendable-No-Data'"); sds_id = SDcreate(fid, "AppendableData", DFNT_INT32, RANK, dim_sizes); CHECK(sds_id, FAIL, "In test_unlimited_SDSs: SDcreate 'AppendableData'"); /* Terminate access to the dataset "Appendable-No-Data" */ status = SDendaccess(esds_id); /* Define the location and the size of the data to be written to the second dataset */ start[0] = start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Write the data */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)data); CHECK(status, FAIL, "In test_unlimited_SDSs: SDwritedata"); /* Terminate access to the unlimited dataset */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_unlimited_SDSs: SDendaccess"); /* Check that this SDS is NOT empty */ check_empty_SDS(fid, "AppendableData", FALSE, &num_errs); /* Store the array values to be appended to the dataset */ for (i = 0; i < X_LENGTH; i++) append_data[i] = 1000 + i; /* Get index of the dataset using its name */ sds_index = SDnametoindex(fid, "AppendableData"); CHECK(sds_index, FAIL, "In test_unlimited_SDSs: SDnametoindex"); /* Select the "AppendableData" dataset */ sds_id = SDselect(fid, sds_index); CHECK(sds_id, FAIL, "In test_unlimited_SDSs: SDselect 'AppendableData'"); /* Check if selected SDS is unlimited. If it is not, then terminate access to the SDS */ if (SDisrecord(sds_id)) { /* Define the location of the append to start at the first column * of the 11th row of the dataset and to stop at the end of the * eleventh row. */ start[0] = Y_LENGTH; start[1] = 0; edges[0] = 1; edges[1] = X_LENGTH; /* Append data to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)append_data); CHECK(status, FAIL, "In test_unlimited_SDSs: SDwritedata"); } /* Terminate access to the dataset */ status = SDendaccess(sds_id); CHECK(status, FAIL, "In test_unlimited_SDSs: SDendaccess"); /* Check that this SDS is NOT empty */ check_empty_SDS(fid, "AppendableData", FALSE, &num_errs); /* Check that this SDS is empty */ check_empty_SDS(fid, "Appendable-No-Data", TRUE, &num_errs); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_unlimited_SDSs */ /* This function checks which of the SDSs in the file are empty/written, * just as in the previous individual tests. The difference is these * SDSs are read back in after the file is closed and reopened. */ static intn test_with_existing_file() { int32 fid; intn status; int num_errs = 0; /* number of errors so far */ /* Open the file and initialize the SD interface */ fid = SDstart(FILE_NAME, DFACC_READ); CHECK(fid, FAIL, "In test_with_existing_file: SDstart"); /* Check that SDS named "EmptyDataset" is empty */ check_empty_SDS(fid, "EmptyDataset", TRUE, &num_errs); /* Check that SDS named "AppendableData" is NOT empty */ check_empty_SDS(fid, "AppendableData", FALSE, &num_errs); /* Check that SDS named "Appendable-No-Data" is empty */ check_empty_SDS(fid, "Appendable-No-Data", TRUE, &num_errs); /* Check that SDS named "CompressedData" is NOT empty */ check_empty_SDS(fid, "CompressedData", FALSE, &num_errs); /* Check that SDS named "Compressed-No-Data" is empty */ check_empty_SDS(fid, "Compressed-No-Data", TRUE, &num_errs); /* Check that SDS named "ChunkedData" is NOT empty */ check_empty_SDS(fid, "ChunkedData", FALSE, &num_errs); /* Check that SDS named "Chunked-No-Data" is empty */ check_empty_SDS(fid, "Chunked-No-Data", TRUE, &num_errs); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "In test_with_existing_file: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_with_existing_file */ /* This function verifies that the bug HDFFR-171 is fixed. It opens the file as read-only, then calls SDgetchunkinfo on some empty SDS's. SDgetchunkinfo should not fail and should return HDF_NONE for the flag. -BMR 2011/10/20. */ static intn test_getchunkinfo() { int32 fid; intn status; int num_errs = 0; /* number of errors so far */ /* Open the file and initialize the SD interface */ fid = SDstart(FILE_NAME, DFACC_RDONLY); CHECK(fid, FAIL, "In check_getchunkinfo: SDstart"); /* Check that SDS named "EmptyDataset" is empty */ check_getchunkinfo(fid, "EmptyDataset", HDF_NONE, &num_errs); /* Check that SDS named "AppendableData" is NOT empty */ check_getchunkinfo(fid, "AppendableData", HDF_NONE, &num_errs); /* Check that SDS named "Appendable-No-Data" is empty */ check_getchunkinfo(fid, "Appendable-No-Data", HDF_NONE, &num_errs); /* Check that SDS named "CompressedData" is NOT empty */ check_getchunkinfo(fid, "CompressedData", HDF_NONE, &num_errs); /* Check that SDS named "Compressed-No-Data" is empty */ check_getchunkinfo(fid, "Compressed-No-Data", HDF_NONE, &num_errs); /* Check that SDS named "ChunkedData" is NOT empty */ check_getchunkinfo(fid, "ChunkedData", HDF_CHUNK, &num_errs); /* Check that SDS named "Chunked-No-Data" is empty */ check_getchunkinfo(fid, "Chunked-No-Data", HDF_CHUNK, &num_errs); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "In check_getchunkinfo: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_getchunkinfo */ /* Test drive for testing the API SDcheckempty. */ extern int test_checkempty() { int32 fid; intn status; int num_errs = 0; /* Output message about test being performed */ TESTING("functions involving empty data sets (temptySDSs.c)"); /* Open the file and initialize the SD interface */ fid = SDstart(FILE_NAME, DFACC_CREATE); CHECK(fid, FAIL, "In test_checkempty: SDstart"); num_errs = num_errs + test_nonspecial_SDSs(fid); num_errs = num_errs + test_compressed_SDSs(fid); num_errs = num_errs + test_chunked_SDSs(fid); num_errs = num_errs + test_unlimited_SDSs(fid); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "In test_checkempty: SDend"); /* This function will reopen the file and check the SDSs in it */ num_errs = num_errs + test_with_existing_file(); /* This function will reopen the file as read-only to test SDgetchunkinfo on empty SDS's */ num_errs = num_errs + test_getchunkinfo(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/trank0.c0000644000000000000000000001350012421456623014513 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * trank0.c - tests that several APIs behave "correctly" when an SDS has * rank = 0. * Structure of the file: * test_rank0 - test routine, called in hdftest.c ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" #define FILE_NAME "trank0.hdf" /* data file to test for rank=0 */ #define X_LENGTH 3 #define Y_LENGTH 3 #define RANK 0 /* Test routine for testing the several APIs with SDS having rank = 0. */ extern int test_rank0() { int32 fid, sds1_id, sds2_id, sds_id; int32 dim_sizes[2], array_rank, num_type, attributes; int32 start[2], edges[2]; comp_coder_t comp_type; /* to retrieve compression type into */ comp_info c_info; /* compression information structure */ int32 comp_flag; /* compression flag */ HDF_CHUNK_DEF c_def; /* Chunking definitions */ int32 buf[Y_LENGTH][X_LENGTH], buf_dup[Y_LENGTH][X_LENGTH]; intn i, j, status; int32 status_32; intn num_errs = 0; /* number of errors so far */ /* Output message about test being performed */ TESTING("several APIs with SDS having rank = 0 (trank0.c)"); /* Create a file */ fid = SDstart(FILE_NAME, DFACC_CREATE); CHECK(fid, FAIL, "test_rank0: SDstart"); /**** Verify that SDsetcompress fails when dataset has rank 0 ****/ /* Create an X_LENGTH by Y_LENGTH dataset, called DataSet_1 */ dim_sizes[0] = X_LENGTH; dim_sizes[1] = Y_LENGTH; sds1_id = SDcreate(fid, "DataSet_1", DFNT_INT32, RANK, dim_sizes); CHECK(sds1_id, FAIL, "test_rank0: SDcreate"); /* Attempt to set compress but should fail */ comp_type = COMP_CODE_DEFLATE; c_info.deflate.level = 6; status = SDsetcompress(sds1_id, comp_type, &c_info); VERIFY(status, FAIL, "test_rank0: SDsetcompress"); /**** Verify that SDsetchunk fails when dataset has rank 0 ****/ /* Create an X_LENGTH by Y_LENGTH dataset, called DataSet_2 */ sds2_id = SDcreate(fid, "DataSet_2", DFNT_INT32, RANK, dim_sizes); CHECK(sds2_id, FAIL, "test_rank0: SDcreate"); /* Attempt to set chunk but should fail */ HDmemset(&c_def, 0, sizeof(HDF_CHUNK_DEF)); comp_flag = HDF_CHUNK; status = SDsetchunk(sds_id, c_def, comp_flag); VERIFY(status, FAIL, "test_rank0: SDsetchunk"); /* Close the SDSs */ status = SDendaccess(sds1_id); CHECK(status, FAIL, "test_rank0: SDendaccess"); status = SDendaccess(sds2_id); CHECK(status, FAIL, "test_rank0: SDendaccess"); /**** Verify that SDwritedata fails when dataset has rank 0 ****/ /* Initialize buffer and its copy, so later can verify that the buffer is not corrupted */ for (j=0; j type is then set to DFNT_FLOAT32 + called with an unsigned number type + called with the dataset's number type + called before writing data to dataset + called after closing dataset and file, and then reopening Return value: The number of errors occurred in this routine. *********************************************************************/ #define SCALES_FILE "scaletst.hdf" /* file to test dimension scales */ static intn test_dim_scales() { int32 fid, sds_id, status, dim0_id, dim1_id, sds_idx; int32 dims[2], start[2], edges[2], rank; int16 array1_data[LENGTH0][LENGTH1]; /* data for first SDS */ uint32 array2_data[LENGTH2][LENGTH3]; /* data for second SDS */ int32 dim_sizes[H4_MAX_VAR_DIMS]; /* read dimensions */ intn i, j; int32 array_rank, num_type, attributes; char dim_name[H4_MAX_NC_NAME], name[H4_MAX_NC_NAME]; uint8 scale0 [] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,255}; int16 scale1 [] = {0,1,2,3,4,5,6,7,8,9}; char8 scale2 [] = {'d','i','m','2'}, scale2_out[4]; float32 scalef[] = {1., 2., 3., 4.}; int32 size, dim_data_type, dim_num_attrs; int num_errs = 0; /* number of errors so far */ /* Create the file defined by SCALES_FILE and initiate the SD interface. */ fid = SDstart(SCALES_FILE, DFACC_CREATE); CHECK(fid, FAIL, "SDstart"); /* * Add a LENGTH0 x LENGTH1 array, which is named by DS0_NAME and of * type 16-bit signed integer, to the file... */ /* Define the rank and dimensions of the data set. */ rank = RANK2; dims[0] = LENGTH0; dims[1] = LENGTH1; /* Create the array data set. */ sds_id = SDcreate(fid, DS0_NAME, DFNT_INT16, rank, dims); CHECK(sds_id, FAIL, "SDcreate"); /* Get the first dimension id */ dim0_id = SDgetdimid(sds_id, 0); CHECK(dim0_id, FAIL, "SDgetdimid"); /* Set the first dimension name to DIM0_NAME */ status = SDsetdimname(dim0_id, DIM0_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Set scale of type unsigned int-8 for the first dimension */ status = SDsetdimscale(dim0_id, dims[0], DFNT_UINT8, scale0); CHECK(status, FAIL, "SDsetdimscale"); /* * Write the data to the dataset... */ /* Fill the buffer with values. */ for (j = 0; j < LENGTH0; j++) { for (i = 0; i < LENGTH1; i++) array1_data[j][i] = (i + j) + 1; } /* Define the area for writing to the dataset */ for (i = 0; i < rank; i++) { start[i] = 0; edges[i] = dims[i]; } status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)array1_data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Terminate access to the SD interface and close the file. */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Re-open SCALES_FILE in W mode */ fid = SDstart(SCALES_FILE, DFACC_WRITE); CHECK(fid, FAIL, "SDstart"); /* Look for DS0_NAME dataset */ sds_idx = SDnametoindex(fid, DS0_NAME); CHECK(sds_idx, FAIL, "SDnametoindex"); /* Select that dataset */ sds_id = SDselect(fid, sds_idx); CHECK(sds_id, FAIL, "SDselect"); /* Get info of the dataset and verify its dimensions */ status = SDgetinfo(sds_id, NULL, &array_rank, dim_sizes, &num_type, NULL); CHECK(status, FAIL, "SDgetinfo"); VERIFY(array_rank, rank, "SDgetinfo"); VERIFY(num_type, DFNT_INT16, "SDgetinfo"); VERIFY(dim_sizes[0], LENGTH0, "SDgetinfo"); VERIFY(dim_sizes[1], LENGTH1, "SDgetinfo"); /* * Check dimension's number type before setting scales */ /* Get the second dimension id */ dim1_id = SDgetdimid(sds_id, 1); CHECK(dim1_id, FAIL, "SDgetdimid"); /* Set the second dimension name to DIM1_NAME */ status = SDsetdimname(dim1_id, DIM1_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Read the second dimension and verify its information; since the scale of this dimension is not set yet, the number type should be 0 */ status = SDdiminfo(dim1_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY(dim_data_type, 0, "SDdiminfo"); /* Set dimension scale for the second dimension; its type will be the same as that of the dataset */ status = SDsetdimscale(dim1_id, dim_sizes[1], num_type, scale1); CHECK(status, FAIL, "SDsetdimscale"); /* Read the second dimension and verify its number type; since the scale of this dimension is now set, the number type should be the same as its dataset, i.e. num_type above */ status = SDdiminfo(dim1_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY(dim_data_type, num_type, "SDdiminfo"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* * Add another dataset to the file; this dataset is a LENGTH2 x LENGTH3 * array, named by DS1_NAME and of type 32-bit unsigned integer... */ /* Define the rank and dimensions of the data set */ rank = RANK2; dims[0] = LENGTH2; dims[1] = LENGTH3; for (i = 0; i < rank; i++) edges[i] = dims[i]; /* Create the data set */ sds_id = SDcreate(fid, DS1_NAME, DFNT_UINT32, rank, dims); CHECK(sds_id, FAIL, "SDcreate"); /* Fill the stored-data array with values. */ for (j = 0; j < LENGTH2; j++) { for (i = 0; i < LENGTH3; i++) array2_data[j][i] = 10 * (j + i); } /* Write the data stored in the array 'array2_data' to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)array2_data); CHECK(status, FAIL, "SDwritedata"); /* Get info of the dataset and verify its type */ status = SDgetinfo(sds_id, name, &array_rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "SDgetinfo"); VERIFY(strcmp(name, DS1_NAME), 0, "SDgetinfo"); VERIFY(array_rank, rank, "SDgetinfo"); VERIFY(num_type, DFNT_UINT32, "SDgetinfo"); VERIFY(dim_sizes[0], LENGTH2, "SDgetinfo"); VERIFY(dim_sizes[1], LENGTH3, "SDgetinfo"); /* * Verify that when 0 is passed into SDsetdimscale for number type, then * the number type of the dimension scale will be set to DFNT_FLOAT32. */ /* Get the first dimension id */ dim0_id = SDgetdimid(sds_id, 0); CHECK(dim0_id, FAIL, "SDgetdimid"); /* Set the first dimension name to DIM2_NAME */ status = SDsetdimname(dim0_id, DIM2_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Pass 0 into SDsetdimscale for number type */ status = SDsetdimscale(dim0_id, dims[0], 0, scalef); CHECK(status, FAIL, "SDsetdimscale"); status = SDdiminfo(dim0_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY(strcmp(dim_name, DIM2_NAME), 0, "SDdiminfo"); VERIFY(dim_data_type, DFNT_FLOAT32, "SDdiminfo"); /* * Now, set dimension scale for that first dimension again, but this * time, to 8-bit signed char; then verify the type and the scale values */ /* Set scale of type 8-bit signed char for this dimension */ status = SDsetdimscale(dim0_id, dims[0], DFNT_CHAR, scale2); CHECK(status, FAIL, "SDsetdimscale"); /* Read the info of this dimension and verify its new number type */ status = SDdiminfo(dim0_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY(dim_data_type, DFNT_CHAR, "SDdiminfo"); /* Read dimension scale values and verify them */ status = SDgetdimscale(dim0_id, (VOIDP)scale2_out); CHECK(status, FAIL, "SDgetdimscale"); for(i=0; i < LENGTH2; i++) VERIFY(scale2_out[i], scale2[i], "SDgetdimscale"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "test_dimensions: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_dim_scales */ /******************************************************************** Name: test_dim_strs() Description: This test routine is used to test SDsetdimstrs and SDgetdimstrs.i It uses BASIC_FILE. The main contents include: - creates SDS #3 of size LENGTH0xLENGTH1 and named DS2_NAME - then sets/gets all predefined attributes to/from first dimension - tries to get predefined attributes from second dimension, should get '\0' as first character in the parameters - now sets just 1 predefined attribute to second dimension then tries to call SDgetdimstrs again - creates SDS #4 of size LENGTH4 x LENGTH5 and named DS3_NAME - set dim scales to the first dimension, named DIM3_NAME - now, test that SDgetdimstrs returns strings containing '\0' for this coordinate variable because SDsetdimstrs had not been called on it. Return value: The number of errors occurred in this routine. *********************************************************************/ #define LENGTH4 4 #define LENGTH5 5 #define RANK4 4 #define DS2_NAME "HDF Data 2" /* SDS #3 name */ #define DS3_NAME "HDF Data 3" /* SDS #4 name */ #define LABEL "DimLabel" #define UNITS "Units" #define FORMAT "TheFormat" #define DIMSTRS_LEN 20 /* length of the dimension string buffers */ static intn test_dim_strs() { int32 fid, sds_id, status, dim0_id, dim1_id, sds_idx, coord_var_id; int32 dims[2], start[2], edges[2], rank; int16 array1_data[LENGTH0][LENGTH1]; /* data for first SDS */ uint32 array2_data[LENGTH2][LENGTH3]; /* data for second SDS */ int32 dim_sizes[H4_MAX_VAR_DIMS]; /* read dimensions */ intn i, j; int32 array_rank, num_type, attributes; char dim_name[H4_MAX_NC_NAME], name[H4_MAX_NC_NAME]; uint8 scale0 [] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,255}; int16 scale1 [] = {0,1,2,3,4,5,6,7,8,9}; char8 scale2 [] = {'d','i','m','2'}, scale2_out[4]; float32 scalef[] = {1., 2., 3., 4.}; int32 size, dim_data_type, dim_num_attrs; char label[DIMSTRS_LEN], unit[DIMSTRS_LEN], format[DIMSTRS_LEN]; int num_errs = 0; /* number of errors so far */ /* Open the file defined by BASIC_FILE and initiate the SD interface. */ fid = SDstart(BASIC_FILE, DFACC_RDWR); CHECK(fid, FAIL, "SDstart"); /* * Add a LENGTH0 x LENGTH1 array, which is named by DS2_NAME and of * type 16-bit signed integer, to the file... */ /* Define the rank and dimensions of the data set. */ rank = RANK2; dims[0] = LENGTH0; dims[1] = LENGTH1; /* Create the array data set. */ sds_id = SDcreate(fid, DS2_NAME, DFNT_INT16, rank, dims); CHECK(sds_id, FAIL, "SDcreate"); /* * Settings predefined attributes for the first dimension. */ /* Get the first dimension id */ dim0_id = SDgetdimid(sds_id, 0); CHECK(dim0_id, FAIL, "SDgetdimid"); /* Set the dimension strings for the dimension */ status = SDsetdimstrs(dim0_id, LABEL, UNITS, FORMAT); CHECK(status, FAIL, "SDsetdimstrs"); /* Read the first dimension and verify its information */ status = SDdiminfo(dim0_id, dim_name, &size, &dim_data_type, &dim_num_attrs); CHECK(status, FAIL, "SDdiminfo"); VERIFY(size, dims[0], "SDdiminfo"); VERIFY(dim_data_type, DFNT_NONE, "SDdiminfo"); /* number type not set */ VERIFY(dim_num_attrs, 3, "SDdiminfo"); /* * Write the data stored in the array 'array1_data' to the dataset... */ /* Fill the buffer with values. */ for (j = 0; j < LENGTH0; j++) { for (i = 0; i < LENGTH1; i++) array1_data[j][i] = (i + j) + 1; } /* Define the area for writing to the dataset */ for (i = 0; i < rank; i++) { start[i] = 0; edges[i] = dims[i]; } status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)array1_data); CHECK(status, FAIL, "SDwritedata"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* Terminate access to the SD interface and close the file. */ status = SDend(fid); CHECK(status, FAIL, "SDend"); /* Re-open BASIC_FILE in W mode and select the dataset named by DS0_NAME */ fid = SDstart(BASIC_FILE, DFACC_WRITE); CHECK(fid, FAIL, "SDstart"); /* Look for DS0_NAME dataset */ sds_idx = SDnametoindex(fid, DS2_NAME); CHECK(sds_idx, FAIL, "SDnametoindex"); /* Select that dataset */ sds_id = SDselect(fid, sds_idx); CHECK(sds_id, FAIL, "SDselect"); /* * Verify predefined attributes of the first dimension of this dataset. * They were set previously. */ /* Get the first dimension id */ dim0_id = SDgetdimid(sds_id, 0); CHECK(dim0_id, FAIL, "SDgetdimid"); /* Get and verify the predefined attributes label, unit, and format */ status = SDgetdimstrs(dim0_id, label, unit, format, DIMSTRS_LEN); CHECK(status, FAIL, "SDgetdimstrs"); VERIFY_CHAR(label, LABEL, "SDgetdimstrs"); VERIFY_CHAR(unit, UNITS, "SDgetdimstrs"); VERIFY_CHAR(format, FORMAT, "SDgetdimstrs"); /* * Verify that the second dimension of SDS DS2_NAME does not have * predefined attributes */ /* Get the second dimension id */ dim1_id = SDgetdimid(sds_id, 1); CHECK(dim1_id, FAIL, "SDgetdimid"); /* Get and verify that predefined attributes label, unit, and format are not assigned to this dimension */ HDmemset(label, 0, DIMSTRS_LEN); HDmemset(unit, 0, DIMSTRS_LEN); HDmemset(format, 0, DIMSTRS_LEN); status = SDgetdimstrs(dim1_id, label, unit, format, DIMSTRS_LEN); CHECK(status, FAIL, "SDgetdimstrs"); VERIFY(label[0], '\0', "SDgetdimstrs"); VERIFY(unit[0], '\0', "SDgetdimstrs"); VERIFY(format[0], '\0', "SDgetdimstrs"); /* Assign predefined attribute UNITS to this dimension and check again. */ status = SDsetdimstrs(dim1_id, NULL, UNITS, NULL); CHECK(status, FAIL, "SDsetdimstrs"); /* Get and verify that only the predefined attributes unit is assigned to this dimension */ status = SDgetdimstrs(dim1_id, label, unit, format, DIMSTRS_LEN); CHECK(status, FAIL, "SDgetdimstrs"); VERIFY(label[0], '\0', "SDgetdimstrs"); VERIFY_CHAR(unit, UNITS, "SDgetdimstrs"); VERIFY(format[0], '\0', "SDgetdimstrs"); /* Terminate access to the array. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); /* * Test that a dimension is a coordinate variable but does not have * predefined attributes Label, Unit, or Format assigned to it. */ /* * Add another dataset to the file; this dataset is a LENGTH4 x LENGTH5 * array, named by DS3_NAME and of type 32-bit unsigned integer... */ /* Define the rank and dimensions of the data set */ rank = RANK2; dims[0] = LENGTH4; dims[1] = LENGTH5; for (i = 0; i < rank; i++) edges[i] = dims[i]; /* Create the data set */ sds_id = SDcreate(fid, DS3_NAME, DFNT_UINT32, rank, dims); CHECK(sds_id, FAIL, "SDcreate"); /* Fill the stored-data array with values. */ for (j = 0; j < LENGTH2; j++) { for (i = 0; i < LENGTH3; i++) array2_data[j][i] = 10 * (j + i); } /* Write the data stored in the array 'array2_data' to the dataset */ status = SDwritedata(sds_id, start, NULL, edges, (VOIDP)array2_data); CHECK(status, FAIL, "SDwritedata"); /* Get the first dimension id */ dim0_id = SDgetdimid(sds_id, 0); CHECK(dim0_id, FAIL, "SDgetdimid"); /* Set the first dimension name to the name defined by DIM3_NAME */ status = SDsetdimname(dim0_id, DIM3_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Set dimension scale for that first dimension. It is now should be a coordinate variable. */ status = SDsetdimscale(dim0_id, dims[0], DFNT_CHAR, scale2); CHECK(status, FAIL, "SDsetdimscale"); /* * Get access to that coordinate variable and verify its information */ /* Look for DIM3_NAME dataset */ sds_idx = SDnametoindex(fid, DIM3_NAME); CHECK(sds_idx, FAIL, "SDnametoindex"); /* Select that coordinate variable */ coord_var_id = SDselect(fid, sds_idx); CHECK(coord_var_id, FAIL, "SDselect"); /* Get info of the coord var and verify them: it is a LENGTH4 x LENGTH5 array of type DFNT_CHAR and is named by DIM3_NAME */ status = SDgetinfo(coord_var_id, name, &array_rank, dim_sizes, &num_type, &attributes); CHECK(status, FAIL, "SDgetinfo"); VERIFY(strcmp(name, DIM3_NAME), 0, "SDgetinfo"); VERIFY(array_rank, 1, "SDgetinfo"); VERIFY(num_type, DFNT_CHAR, "SDgetinfo"); VERIFY(dim_sizes[0], dims[0], "SDgetinfo"); /* Terminate access to the array. */ status = SDendaccess(coord_var_id); CHECK(status, FAIL, "SDendaccess"); /* Get and verify that predefined attributes label, unit, and format are not assigned to this dimension */ HDmemset(label, 0, DIMSTRS_LEN); HDmemset(unit, 0, DIMSTRS_LEN); HDmemset(format, 0, DIMSTRS_LEN); status = SDgetdimstrs(dim0_id, label, unit, format, DIMSTRS_LEN); CHECK(status, FAIL, "SDgetdimstrs"); VERIFY(label[0], '\0', "SDgetdimstrs"); VERIFY(unit[0], '\0', "SDgetdimstrs"); VERIFY(format[0], '\0', "SDgetdimstrs"); /* Close the file */ status = SDend(fid); CHECK(status, FAIL, "test_dimensions: SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_dim_strs */ /* Test driver for testing dimension functionality */ extern int test_dimensions() { int num_errs = 0; /* Output message about test being performed */ TESTING("functionality of dimensions (tdim.c)"); /* Test basic dimension functionality */ num_errs = num_errs + test_basic_dim(); /* Test dimension scale functionality */ num_errs = num_errs + test_dim_scales(); /* Test SD[set/get]dimstrs */ num_errs = num_errs + test_dim_strs(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/test/tcoordvar.c0000644000000000000000000006024112421456623015323 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tcoordvar.c - tests some aspects of coordinate variables * Structure of the file: * test_coordvar - test driver * test_dim1_SDS1 - tests that data is not corrupted when the * dimension of SDS #1 is named the same as that of SDS #1. * (previous bug: writing to the dimension would corrupt the SDS) * * test_dim1_SDS2 - tests that data is not corrupted when the * dimension of SDS #1 is named the same as that of SDS #2. * (previous bug: writing to the SDS #2 would corrupt the * dimension) * * test_named_vars - tests that all variables of a given name are * account for. * (problem: SDnametoindex only returns the first SDS of the * inquired name. Two new APIs provide number of all variables * of the same name and retrieve a list of indices of the * named variables.) ****************************************************************************/ #include "mfhdf.h" #ifdef HDF #include "hdftest.h" /******************************************************************** Name: test_dim1_SDS1() - tests that data is not corrupted when a dimension is named the same as its SDS. Description: In the past, naming a dimension the same as its SD and writing dimension scale to it will corrupt the SDS' data. This routine tests the provided fix (bugzilla 624) for this situation. The main contents are listed below. Note that when a function name appears in the parentheses, it indicates that the associate step specificly tests the changes made to that function. - create a one-dim SDS, named VAR1_NAME - name its dimension VAR1_NAME - get file information and verify that there is only 1 variable, dataset VAR1_NAME - set attribute to dimension "Variable 1" (SDsetattr) - set attribute to SDS "Variable 1" (SDsetattr) - get file information and verify that there are 2 variable, dataset VAR1_NAME and coordinate variable VAR1_NAME - write data to the SDS - close all and reopen the file - open dataset "Variable 1" (SDnametoindex) - verify that this variable is not a coordinate variable (SDiscoordvar) - read and verify its attribute information and values - get access to the dataset's first dimension - read and verify its attribute information and values - read data and verify that the data is not corrupted Return value: The number of errors occurred in this routine. BMR - May 18, 2007 *********************************************************************/ #define VAR1_NAME "Variable 1" #define ATTR1_NAME "Attribute Dimension 1" #define ATTR2_NAME "Attribute SDS 1" #define ATTR1_VAL "This is a coord var" #define ATTR2_VAL "This is not a coord var" #define ATTR1_LEN 19 #define ATTR2_LEN 23 #define FILE1 "sds1_dim1_samename.hdf" static intn test_dim1_SDS1(void) { char sds_name[20]; float32 sds1_data[] = {0.1, 2.3, 4.5, 6.7, 8.9}; float32 out_data[5]; int32 dimsize[1]; int32 sds_id, file_id, dim_id, index; int32 start=0, stride=1; int32 scale1 [5] = {101,102,103,104,105}, scale1_out[5]; int32 num_type, array_rank, count; int32 n_datasets, n_file_attrs, n_local_attrs, n_vars = 0; intn datanum, ranknum, status =0, i, idx, idx1, idx2; hdf_varlist_t* var_list; intn is_coord = FALSE; char attr_name[H4_MAX_NC_NAME], attr_values[80]; intn num_errs = 0; /* number of errors so far */ file_id = SDstart(FILE1, DFACC_CREATE); CHECK(file_id, FAIL, "SDstart"); /* Create a one-dim dataset named VAR1_NAME, of type DFNT_FLOAT32. */ dimsize[0] = 5; sds_id = SDcreate(file_id, VAR1_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds_id, FAIL, "SDcreate"); /* Set the dimension name to be the same as its dataset. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); status = SDsetdimname(dim_id, VAR1_NAME); /* status = SDsetdimname(dim_id, VAR1_NAME); */ CHECK(status, FAIL, "SDsetdimname"); /* Get file info and verify that there is 1 dataset in the file. */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 1, "SDfileinfo"); /* Set an attribute to dimension VAR1_NAME. */ status = SDsetattr(dim_id, ATTR1_NAME, DFNT_CHAR8, ATTR1_LEN, ATTR1_VAL); CHECK(status, FAIL, "SDsetattr"); /* Set an attribute to dataset VAR1_NAME. */ status = SDsetattr(sds_id, ATTR2_NAME, DFNT_CHAR8, ATTR2_LEN, ATTR2_VAL); CHECK(status, FAIL, "SDsetattr"); /* Get file info and verify that there are 2 datasets in the file: 1 SDS and 1 coordinate variable (because of SDsetattr dim) */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 2, "SDfileinfo"); /* Write data to the SDS */ status = SDwritedata(sds_id, &start, &stride, dimsize, (VOIDP)sds1_data); CHECK(status, FAIL, "SDwritedata"); /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Open the file again to check its data */ file_id = SDstart(FILE1, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); /* Check variable type and attributes of each element in the file */ /* Get the number of variables of name VAR1_NAME */ status = SDgetnumvars_byname(file_id, VAR1_NAME, &n_vars); if (n_vars == 1) { /* Get index of dataset VAR1_NAME */ index = SDnametoindex(file_id, VAR1_NAME); CHECK(index, FAIL, "SDnametoindex"); } else { /* Get the list of all variables of named VAR1_NAME */ var_list = (hdf_varlist_t *)HDmalloc(n_vars * sizeof(hdf_varlist_t)); status = SDnametoindices(file_id, VAR1_NAME, var_list); /* In this case, the first variable is a dataset */ for (idx = 0; idx < n_vars; idx++) { if (var_list[idx].var_type == IS_SDSVAR) { index = var_list[idx].var_index; VERIFY(index, 0, "SDnametoindices"); } } } sds_id = SDselect(file_id, index); CHECK(sds_id, FAIL, "SDselect"); /* Verify that this variable is a dataset. */ is_coord = SDiscoordvar(sds_id); VERIFY(is_coord, FALSE, "SDiscoordvar"); /* Read and verify the information of the SDS' first attribute. */ status = SDattrinfo(sds_id, 0, attr_name, &num_type, &count); CHECK(status, FAIL, "SDattrinfo"); VERIFY(count, ATTR2_LEN, "SDattrinfo"); VERIFY(HDstrncmp(attr_name, ATTR2_NAME, 14), 0, "SDattrinfo"); /* Read and verify the values of the SDS' first attribute. */ status = SDreadattr(sds_id, 0, attr_values); CHECK(status, FAIL, "SDreadattr"); if (HDstrncmp(attr_values, ATTR2_VAL, ATTR2_LEN) != 0) { fprintf(stderr, "Unmatched attribute values for SDS %s: is <%s>, should be <%s>\n", VAR1_NAME, attr_values, ATTR2_VAL); num_errs++; } /* Get access to the SDS' first dimension. */ dim_id = SDgetdimid(sds_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); /* Read and verify the information of the dimension's first attribute. */ status = SDattrinfo(dim_id, 0, attr_name, &num_type, &count); CHECK(status, FAIL, "SDattrinfo"); VERIFY(count, 19, "SDattrinfo"); VERIFY(HDstrncmp(attr_name, ATTR1_NAME, 21), 0, "SDattrinfo"); /* Read and verify the values of the dimension's first attribute. */ status = SDreadattr(dim_id, 0, attr_values); CHECK(status, FAIL, "SDreadattr"); if (HDstrncmp(attr_values, ATTR1_VAL, ATTR1_LEN) != 0) { fprintf(stderr, "Unmatched attribute values for dimension %s: is <%s>, should be <%s>\n", VAR1_NAME, attr_values, ATTR1_VAL); num_errs++; } /* Verify again that the number of datasets in the file is 2, 1 SDS and 1 coordinate variable */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 2, "SDfileinfo"); VERIFY(n_file_attrs, 0, "SDfileinfo"); /* Read and verify the dataset's data */ status = SDreaddata (sds_id, &start, NULL, dimsize, &out_data); CHECK(status, FAIL, "SDreaddata"); for (idx1 = 0; idx1 < dimsize[0]; idx1++) if (out_data[idx1] != sds1_data[idx1]) { fprintf(stderr, "Read value (%f) differs from written (%f) at [%d]\n", out_data[idx1], idx1); num_errs++; } /* Close dataset and file. */ status = SDendaccess(sds_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_dim1_SDS1 */ /******************************************************************** Name: test_dim1_SDS2() - tests that data is not corrupted when a dimension is named the same as that of another SDS. Description: In the past, naming a dimension the same as an SDS and writing dimension scale to it will corrupt the SDS' data. This routine tests the provided fix (bugzilla 624) for this situation. The main contents are listed below. Note that when a function name appears in the parentheses, it indicates that the associate step specificly tests the changes made to that function. - create a one-dim SDS, named "Variable 1" - name its dimension "Variable 2" - create a two-dim SDS, named "Variable 2", and write data to it - set dimension scale to dimension "Variable 2" (SDsetdimscale) - write data to dataset "Variable 1" - close all and reopen the file - open dataset "Variable 1" (SDnametoindex) - get/verify the first dimension's scales of SDS (SDgetdimscale) - open dataset "Variable 2" (SDnametoindex) - read data and verify that the data is not corrupted Return value: The number of errors occurred in this routine. BMR - May 18, 2007 *********************************************************************/ #define VAR1_NAME "Variable 1" #define VAR2_NAME "Variable 2" #define FILE2 "sds2_dim1_samename.hdf" static intn test_dim1_SDS2(void) { char sds_name[20]; float32 sds1_data[] = {0.1, 2.3, 4.5, 6.7, 8.9}; float32 sds2_data[2][3] = {{0.1, 2.3, 4.5}, {4.5, 6.7, 8.9}}; int32 dimsize[1], dimsize2[2]; int32 sds1_id, sds2_id, file_id, dim_id, index; int32 start=0, stride=1, stat; int32 start2[2]={0,0}, stride2[2]={1,1}; int32 scale1 [5] = {101,102,103,104,105}, scale1_out[5]; int32 num_type, array_rank, attributes; int32 n_datasets, n_file_attrs, n_local_attrs; float32 out_data2[2][3]; intn datanum, ranknum, status =0, i, idx, idx1, idx2; intn num_errs = 0; /* number of errors so far */ file_id = SDstart(FILE2, DFACC_CREATE); CHECK(file_id, FAIL, "SDstart"); dimsize[0] = 5; dimsize2[0] = 2; dimsize2[1] = 3; sds1_id = SDcreate(file_id, VAR1_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds1_id, FAIL, "SDcreate"); /* Set the dimension name to be the same as the next dataset (not created yet) */ dim_id = SDgetdimid(sds1_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); status = SDsetdimname(dim_id, VAR2_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Get file info and verify that there is 1 dataset in the file */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 1, "SDfileinfo"); /* Create and write data to the second dataset VAR2_NAME */ sds2_id = SDcreate(file_id, VAR2_NAME, DFNT_FLOAT32, 2, dimsize2); CHECK(sds2_id, FAIL, "SDcreate"); stat = SDwritedata(sds2_id, start2, stride2, dimsize2, sds2_data); CHECK(status, FAIL, "SDwritedata"); status = SDendaccess(sds2_id); CHECK(status, FAIL, "SDendaccess"); /* Get file info and verify that there are 2 datasets in the file. */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 2, "SDfileinfo"); /* Write values to the dimension VAR2_NAME (same name as VAR2_NAME) */ status = SDsetdimscale (dim_id, dimsize[0], DFNT_INT32, scale1); CHECK(status, FAIL, "SDsetdimscale"); /* Get file info and verify that there are 3 datasets in the file: 2 SDS and 1 coordinate variable */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 3, "SDfileinfo"); /* Close dataset and file */ status = SDendaccess(sds1_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Open the file again to check its data */ file_id = SDstart(FILE2, DFACC_RDWR); CHECK(file_id, FAIL, "SDstart"); /* Verify dimension scale of the first dimension of SDS VAR1_NAME */ /* Get access to dataset VAR1_NAME */ index = SDnametoindex(file_id, VAR1_NAME); CHECK(index, FAIL, "SDnametoindex"); sds1_id = SDselect(file_id, index); CHECK(sds1_id, FAIL, "SDselect"); /* Get access to its first dimension */ dim_id = SDgetdimid(sds1_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); /* Get dimension scale and verify the values */ status = SDgetdimscale (dim_id, scale1_out); CHECK(status, FAIL, "SDgetdimscale"); for (idx = 0; idx < dimsize[0]; idx++) if (scale1_out[idx] != scale1[idx]) { fprintf(stderr, "Read value (%d) differs from written (%d) at [%d]\n", scale1_out[idx], scale1[idx], idx); num_errs++; } /* End verifying dimension scale */ /* Verify dimension scale of the first dimension of SDS VAR1_NAME */ /* Get access to dataset VAR2_NAME */ index = SDnametoindex(file_id, VAR2_NAME); CHECK(index, FAIL, "SDnametoindex"); sds2_id = SDselect(file_id, index); CHECK(sds2_id, FAIL, "SDselect"); /* Get dataset's info and verify them */ status = SDgetinfo(sds2_id, sds_name, &array_rank, dimsize2, &num_type, &n_local_attrs); CHECK(status, FAIL, "SDgetinfo"); VERIFY(array_rank, 2, "SDfileinfo"); VERIFY(num_type, DFNT_FLOAT32, "SDfileinfo"); VERIFY(n_local_attrs, 0, "SDfileinfo"); /* Read and verify the dataset's data */ status = SDreaddata (sds2_id, start2, NULL, dimsize2, &out_data2); CHECK(status, FAIL, "SDreaddata"); for (idx1 = 0; idx1 < dimsize2[0]; idx1++) for (idx2 = 0; idx2 < dimsize2[1]; idx2++) { if (out_data2[idx1][idx2] != sds2_data[idx1][idx2]) { fprintf(stderr, "Read value (%f) differs from written (%f) at [%d][%d]\n", out_data2[idx1][idx2], sds2_data[idx1][idx2], idx1, idx2); num_errs++; } } /* Verify again that the number of datasets in the file is 3, 2 SDSs and 1 coordinate variable */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 3, "SDfileinfo"); status = SDendaccess(sds1_id); CHECK(status, FAIL, "SDendaccess"); status = SDendaccess(sds2_id); CHECK(status, FAIL, "SDendaccess"); status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_dim1_SDS2 */ /******************************************************************** Name: test_named_vars() - tests that data is not corrupted when a dimension is named the same as that of another SDS. Description: In the past, SDnametoindex returns the index of the first variable of the inquired name although there might be more than one variable having such name. After the fix of bugzilla 624, SDnametoindex was modified to return the first SDS variable of the given name if the name is not unique. Two new APIs, SDgetnumvars_byname and SDnametoindices, will provide the number of variables of a given name, and a list of indices for those variables. This test will concentrate on these new APIs. The main contents are listed below: - create two two-dim SDS, named "Common Name" <- 2 "Common Name"s - create a one-dim SDS, named "One Dimension" <- 1 "One Dimension" - name its dimension "Common Name" <- still 2 "Common Name"s - set dimension scale to dimension "Common Name" <- 3 "Common Name"s - create a one-dim SDS, named "One Dimension" <- 2 "One Dimension"s - name its dimension "Another Name" - create a one-dim SDS, named "Another Name" <- still 1 "Another Name"s - set attribute to dimension "Another Name" <- 2 "Another Name"s - close all and reopen the file - open dataset "Common Name" (SDnametoindex) - this will have two dimensions - get number of variables of name "Common Name" and verify that it's 3 - get the list of indices of "Common Name" and it should be [0, IS_SDSVAR], [1, IS_SDSVAR], [3, IS_CRDVAR] - get number of variables of name "Another Name" and verify that it's 2 - get the list of indices of "Another Name" and it should be [5, IS_SDSVAR], [6, IS_CRDVAR] - get/verify the dimension scales of dimension "Common Name" - get/verify the attribute value of dimension "Another Name" The file contains these items: Index Var Type Name Dimensions 0 SDS "Common Name" 2-dim 1 SDS "Common Name" 2-dim 2 SDS "One Dimension" 1-dim 3 Coordinate "Common Name" 1-dim 4 SDS "One Dimension" 1-dim 5 SDS "Another Name" 1-dim 6 Coordinate "Another Name" 1-dim If someone changes the file contents in this test, please update this table appropriately. Return value: The number of errors occurred in this routine. BMR - Dec 30, 2007 *********************************************************************/ #define COMMON_NAME "Common Name" #define ONEDIM_NAME "One Dimension" #define ANOTHER_NAME "Another Name" #define FILE3 "vars_samename.hdf" static intn test_named_vars(void) { char sds_name[20]; float32 sds1_data[] = {0.1, 2.3, 4.5, 6.7, 8.9}; float32 sds2_data[2][3] = {{0.1, 2.3, 4.5}, {4.5, 6.7, 8.9}}; int32 dimsize[1], dimsize2[2]; int32 sds_id, sds1_id, sds2_id, sds3_id, sds4_id, sds5_id; int32 file_id, dim_id, index; int32 start=0, stride=1, stat; int32 start2[2]={0,0}, stride2[2]={1,1}; int32 scale1 [5] = {101,102,103,104,105}, scale1_out[5]; int32 array_rank; int32 n_datasets, n_file_attrs, n_local_attrs, n_vars=0; float32 out_data2[2][3]; intn datanum, ranknum, status =0, idx, idx1, idx2; intn is_coordvar=FALSE; hdf_varlist_t *allvars, *varlistp; intn num_errs = 0; /* number of errors so far */ char line[40]; char contents[7][40]={ "#0 SDS 2-dim 'Common Name'", "#1 SDS 2-dim 'Common Name'", "#2 SDS 1-dim 'One Dimension'", "#3 Coordinate 1-dim 'Common Name'", "#4 SDS 1-dim 'One Dimension'", "#5 SDS 1-dim 'Another Name'", "#6 Coordinate 1-dim 'Another Name'"}; file_id = SDstart(FILE3, DFACC_CREATE); CHECK(file_id, FAIL, "SDstart"); dimsize2[0] = 2; dimsize2[1] = 3; /* Create first COMMON_NAME data set. */ sds1_id = SDcreate(file_id, COMMON_NAME, DFNT_FLOAT32, 2, dimsize2); CHECK(sds1_id, FAIL, "SDcreate"); status = SDendaccess(sds1_id); CHECK(status, FAIL, "SDendaccess"); /* Create second COMMON_NAME data set. */ sds2_id = SDcreate(file_id, COMMON_NAME, DFNT_FLOAT32, 2, dimsize2); CHECK(sds2_id, FAIL, "SDcreate"); status = SDendaccess(sds2_id); CHECK(status, FAIL, "SDendaccess"); dimsize[0] = 5; sds3_id = SDcreate(file_id, ONEDIM_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds3_id, FAIL, "SDcreate"); /* Set the dimension name to be the same as the previous 2 datasets */ dim_id = SDgetdimid(sds3_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); status = SDsetdimname(dim_id, COMMON_NAME); CHECK(status, FAIL, "SDsetdimname"); /* Get file info and verify that there are 3 datasets in the file */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 3, "SDfileinfo"); /* Write values to the dimension COMMON_NAME (same name as first 2 datasets) */ status = SDsetdimscale (dim_id, dimsize[0], DFNT_INT32, scale1); CHECK(status, FAIL, "SDsetdimscale"); /* Get file info and verify that there are 4 datasets in the file */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 4, "SDfileinfo"); dimsize[0] = 8; sds4_id = SDcreate(file_id, ONEDIM_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds4_id, FAIL, "SDcreate"); /* Set the dimension name to be the same as the previous 2 datasets */ dim_id = SDgetdimid(sds4_id, 0); CHECK(dim_id, FAIL, "SDgetdimid"); status = SDsetdimname(dim_id, ANOTHER_NAME); CHECK(status, FAIL, "SDsetdimname"); sds5_id = SDcreate(file_id, ANOTHER_NAME, DFNT_FLOAT32, 1, dimsize); CHECK(sds5_id, FAIL, "SDcreate"); /* Get file info and verify that there are 6 datasets in the file */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 6, "SDfileinfo"); status = SDsetattr(dim_id, ATTR1_NAME, DFNT_CHAR8, ATTR1_LEN, ATTR1_VAL); CHECK(status, FAIL, "SDsetattr"); /* Get file info and verify that there are 7 datasets in the file */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 7, "SDfileinfo"); /* Verify again that the number of datasets in the file is 7 */ status = SDfileinfo(file_id, &n_datasets, &n_file_attrs); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_datasets, 7, "SDfileinfo"); /* There are 3 variables of name COMMON_NAME */ status = SDgetnumvars_byname(file_id, COMMON_NAME, &n_vars); CHECK(status, FAIL, "SDfileinfo"); VERIFY(n_vars, 3, "SDfileinfo"); allvars = (hdf_varlist_t *)HDmalloc(n_vars * sizeof(hdf_varlist_t)); status = SDnametoindices(file_id, COMMON_NAME, allvars); CHECK(status, FAIL, "SDfileinfo"); /* Compare file contents with predefined text to verify */ for (idx = 0; idx < n_datasets; idx++) { sds_id = SDselect(file_id, idx); CHECK(sds_id, FAIL, "SDselect"); status = SDgetinfo(sds_id, sds_name, &array_rank, NULL, NULL, NULL); CHECK(status, FAIL, "SDgetinfo"); is_coordvar = SDiscoordvar(sds_id); if (is_coordvar) sprintf(line,"#%d Coordinate %d-dim '%s'\n", idx, array_rank, sds_name); else sprintf(line,"#%d SDS %d-dim '%s'\n", idx, array_rank, sds_name); if (strncmp(contents[idx], line, strlen(contents[idx])) != 0) { fprintf(stderr, "File contents are incorrect in testing variable types at variable of index %d\n", idx); } } status = SDend(file_id); CHECK(status, FAIL, "SDend"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* test_named_vars */ /* Test driver for testing various coordinate variable features. */ extern int test_coordvar() { intn num_errs = 0; /* number of errors */ /* Output message about test being performed */ TESTING("various coordinate variable features (tcoordvar.c)"); /* test when a dimension being named the same as an SDS */ num_errs = num_errs + test_dim1_SDS1(); num_errs = num_errs + test_dim1_SDS2(); num_errs = num_errs + test_named_vars(); if (num_errs == 0) PASSED(); return num_errs; } #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/util/0000755000000000000000000000000012421456623013147 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/util/getopt.c0000644000000000000000000000311712421456623014617 0ustar /*LINTLIBRARY*/ #define NULL 0 #define EOF (-1) #ifdef HDF #define ERR(s, c) if(opterr){\ char errbuf[2];\ errbuf[0] = c; errbuf[1] = '\n';\ (void) write(2, argv[0], strlen(argv[0]));\ (void) write(2, s, strlen(s));\ (void) write(2, errbuf, 2);} #include #else #define ERR(s, c) if(opterr){\ extern int strlen(), write();\ char errbuf[2];\ errbuf[0] = c; errbuf[1] = '\n';\ (void) write(2, argv[0], strlen(argv[0]));\ (void) write(2, s, strlen(s));\ (void) write(2, errbuf, 2);} extern int strcmp(); extern char *strchr(); #endif int opterr = 1; int optind = 1; int optopt; char *optarg; int getopt(argc, argv, opts) int argc; char **argv, *opts; { static int sp = 1; register int c; register char *cp; if (sp == 1) if (optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0') return (EOF); else if (strcmp(argv[optind], "--") == NULL) { optind++; return (EOF); } optopt = c = argv[optind][sp]; if (c == ':' || (cp = strchr(opts, c)) == NULL) { ERR(": unknown option, -", c); if (argv[optind][++sp] == '\0') { optind++; sp = 1; } return ('?'); } if (*++cp == ':') { if (argv[optind][sp + 1] != '\0') optarg = &argv[optind++][sp + 1]; else if (++optind >= argc) { ERR(": argument missing for -", c); sp = 1; return ('?'); } else optarg = argv[optind++]; sp = 1; } else { if (argv[optind][++sp] == '\0') { sp = 1; optind++; } optarg = NULL; } return (c); } libhdf4-4.2.10/HDF_ALT/mfhdf/util/msoft.mk0000644000000000000000000000045412421456623014633 0ustar # Copyright 1989, University Corporation for Atmospheric Research # # DOS and OS/2 makefile for utility routine used by the netCDF # CC = cl CFLAGS = /c /AL /Za OBJS = getopt.obj all: getopt.obj getopt.obj: getopt.c $(CC) $(CFLAGS) getopt.c test: install: clean: rm -f *.bak getopt.obj libhdf4-4.2.10/HDF_ALT/mfhdf/util/win32utl.mak0000644000000000000000000000711112421456623015330 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Static Library" 0x0104 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "util.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Static Library") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Static Library") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project CPP=cl.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\util.lib .\util.bsc # ADD BASE CPP /nologo /ML /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /FR /c # ADD CPP /nologo /ML /W3 /GX /O2 /D "NDEBUG" /D "WIN32" /D "_WINDOWS" /D "HDF" /D "NO_SYS_XDR_INC" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /O2 /D "NDEBUG" /D "WIN32" /D "_WINDOWS" /D "HDF"\ /D "NO_SYS_XDR_INC" /Fo$(INTDIR)/ /c CPP_OBJS= BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"util.bsc" .\util.bsc : $(OUTDIR) $(BSC32_SBRS) LIB32=lib.exe DEF_FLAGS= DEF_FILE= LIB32_OBJS= \ .\getopt.obj # ADD BASE LIB32 /NOLOGO # ADD LIB32 /NOLOGO LIB32_FLAGS=/NOLOGO /OUT:$(OUTDIR)\"util.lib" .\util.lib : $(OUTDIR) $(DEF_FILE) $(LIB32_OBJS) $(LIB32) @<< $(LIB32_FLAGS) $(DEF_FLAGS) $(LIB32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : .\util.lib .\util.bsc # ADD BASE CPP /nologo /ML /W3 /GX /Z7 /YX /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /FR /c # ADD CPP /nologo /ML /W3 /GX /Z7 /Od /D "_DEBUG" /D "WIN32" /D "_WINDOWS" /D "HDF" /D "NO_SYS_XDR_INC" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /Z7 /Od /D "_DEBUG" /D "WIN32" /D "_WINDOWS" /D\ "HDF" /D "NO_SYS_XDR_INC" /Fo$(INTDIR)/ /c CPP_OBJS= BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"util.bsc" .\util.bsc : $(OUTDIR) $(BSC32_SBRS) LIB32=lib.exe DEF_FLAGS= DEF_FILE= LIB32_OBJS= \ .\getopt.obj # ADD BASE LIB32 /NOLOGO # ADD LIB32 /NOLOGO LIB32_FLAGS=/NOLOGO /OUT:$(OUTDIR)\"util.lib" .\util.lib : $(OUTDIR) $(DEF_FILE) $(LIB32_OBJS) $(LIB32) @<< $(LIB32_FLAGS) $(DEF_FLAGS) $(LIB32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\getopt.c .\getopt.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/0000755000000000000000000000000012421456623013252 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/CMakeLists.txt0000644000000000000000000000457412421456623016024 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_HDIFF) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) IF (WIN32 AND NOT CYGWIN) SET (CMAKE_EXE_LINKER_FLAGS_DEBUG "${CMAKE_EXE_LINKER_FLAGS_DEBUG} /NODEFAULTLIB:LIBCMT") ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (hdiff_SRCS ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_array.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_gr.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_list.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_main.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_mattbl.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_gattr.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_misc.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_sds.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_table.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_vs.c ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdiff_dim.c ${HDF4_SOURCE_DIR}/mfhdf/util/getopt.c ) ADD_EXECUTABLE(hdiff ${hdiff_SRCS}) TARGET_C_PROPERTIES (hdiff " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES(hdiff ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES(hdiff ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (hdiff ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Rules for Installation of tools using make Install target #----------------------------------------------------------------------------- INSTALL_PROGRAM_PDB (hdiff ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS hdiff RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff.c0000644000000000000000000003215512421456623014504 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdiff.h" #include "hdiff_list.h" #include "hdiff_mattbl.h" /*------------------------------------------------------------------------- * Function: hdiff * * Purpose: find differences between two HDF files * * Return: number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 22, 2003 * *------------------------------------------------------------------------- */ uint32 hdiff(const char *fname1, const char *fname2, diff_opt_t *opt) { int32 sd1_id=-1, sd2_id=-1, gr1_id=-1, gr2_id=-1, file1_id=-1, file2_id=-1; uint32 nobjects1; uint32 nobjects2; uint32 nfound=0; int err; dtable_t *list1=NULL; dtable_t *list2=NULL; /* file 1 */ diff_dim_table_t *td1_1=NULL; diff_dim_table_t *td1_2=NULL; /* file 2 */ diff_dim_table_t *td2_1=NULL; diff_dim_table_t *td2_2=NULL; /* initialize tables */ dtable_init(&list1); dtable_init(&list2); diff_dim_table_init(&td1_1); diff_dim_table_init(&td1_2); diff_dim_table_init(&td2_1); diff_dim_table_init(&td2_2); /*------------------------------------------------------------------------- * get a list of objects for both files *------------------------------------------------------------------------- */ nobjects1=hdiff_list(fname1, list1, td1_1, td1_2, &err); if (err) goto out; nobjects2=hdiff_list(fname2, list2, td2_1, td2_2, &err); if (err) goto out; if (opt->verbose) { dtable_print(list1, "file 1"); dtable_print(list2, "file 2"); } /*------------------------------------------------------------------------- * open file IDs *------------------------------------------------------------------------- */ if ((file1_id = Hopen(fname1, DFACC_READ, (int16)0))==FAIL) { printf("Exiting: Hopen failed on <%s>", fname1); goto out; } if ((file2_id = Hopen(fname2, DFACC_READ, (int16)0))==FAIL) { printf("Exiting: Hopen failed on <%s>", fname2); goto out; } /*------------------------------------------------------------------------- * SD interface *------------------------------------------------------------------------- */ if ((sd1_id = SDstart(fname1, DFACC_RDONLY))==FAIL) { printf("SDstart failed on <%s>", fname1); goto out; } if ((sd2_id = SDstart(fname2, DFACC_RDONLY))==FAIL) { printf("SDstart failed on <%s>", fname2); goto out; } /*------------------------------------------------------------------------- * GR interface *------------------------------------------------------------------------- */ if ((gr1_id = GRstart(file1_id))==FAIL) { printf("GRstart failed on <%s>", fname1); goto out; } if ((gr2_id = GRstart(file2_id))==FAIL) { printf("GRstart failed on <%s>", fname2); goto out; } /*------------------------------------------------------------------------- * find common objects *------------------------------------------------------------------------- */ nfound=match(nobjects1, list1, nobjects2, list2, sd1_id, gr1_id, file1_id, sd2_id, gr2_id, file2_id, opt); nfound+=diff_match_dim(sd1_id, sd2_id, td1_1, td1_2, td2_1, td2_2, opt ); /*------------------------------------------------------------------------- * global attributes *------------------------------------------------------------------------- */ if (opt->ga == 1) nfound+=gattr_diff(sd1_id, sd2_id, opt); /*------------------------------------------------------------------------- * close *------------------------------------------------------------------------- */ if ( SDend(sd1_id)==FAIL) { printf("Error: SDend failed on <%s>", fname1); goto out; } if (SDend(sd2_id)==FAIL) { printf("Error: SDend failed on <%s>", fname2); goto out; } if (GRend(gr1_id)==FAIL) { printf("Error: GRend failed on <%s>", fname1); goto out; } if (GRend(gr2_id)==FAIL) { printf("Error: GRend failed on <%s>", fname2); goto out; } if (Hclose(file1_id)==FAIL) { printf("Error: Hclose failed on <%s>", fname1); goto out; } if (Hclose(file2_id)==FAIL) { printf("Error: Hclose failed on <%s>", fname2); goto out; } /* free tables */ dtable_free(list1); dtable_free(list2); diff_dim_table_free(td1_1); diff_dim_table_free(td1_2); diff_dim_table_free(td2_1); diff_dim_table_free(td2_2); return nfound; out: opt->err_stat = 1; /* free tables */ dtable_free(list1); dtable_free(list2); diff_dim_table_free(td1_1); diff_dim_table_free(td1_2); diff_dim_table_free(td2_1); diff_dim_table_free(td2_2); if (sd1_id!=-1) SDend(sd1_id); if (sd2_id!=-1) SDend(sd2_id); if (gr1_id!=-1) GRend(gr1_id); if (gr2_id!=-1) GRend(gr2_id); if (file1_id!=-1) Hclose(file1_id); if (file2_id!=-1) Hclose(file2_id); return 0; } /*------------------------------------------------------------------------- * Function: match * * Purpose: Find common objects; the algorithm used for this search is the * cosequential match algorithm and is described in * Folk, Michael; Zoellick, Bill. (1992). File Structures. Addison-Wesley. * * Return: Number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 22, 2003 * *------------------------------------------------------------------------- */ uint32 match( uint32 nobjects1, dtable_t *list1, uint32 nobjects2, dtable_t *list2, int32 sd1_id, int32 gr1_id, int32 file1_id, int32 sd2_id, int32 gr2_id, int32 file2_id, diff_opt_t *opt ) { int cmp; int more_names_exist = (nobjects1>0 && nobjects2>0) ? 1 : 0; uint32 curr1=0; uint32 curr2=0; uint32 nfound=0; match_table_t *mattbl=NULL; unsigned infile[2]; char c1, c2; uint32 i; /*------------------------------------------------------------------------- * build the list *------------------------------------------------------------------------- */ match_table_init( &mattbl ); while ( more_names_exist ) { cmp = strcmp( list1->objs[curr1].obj_name, list2->objs[curr2].obj_name ); if ( cmp == 0 ) { infile[0]=1; infile[1]=1; match_table_add(mattbl,infile, list1->objs[curr1].obj_name, list1->objs[curr1].tag, list1->objs[curr1].ref, list2->objs[curr2].tag, list2->objs[curr2].ref); curr1++; curr2++; } else if ( cmp < 0 ) { infile[0]=1; infile[1]=0; match_table_add(mattbl,infile, list1->objs[curr1].obj_name, list1->objs[curr1].tag, list1->objs[curr1].ref, -1, -1); curr1++; } else { infile[0]=0; infile[1]=1; match_table_add(mattbl,infile, list2->objs[curr2].obj_name, -1, -1, list2->objs[curr2].tag, list2->objs[curr2].ref); curr2++; } more_names_exist = (curr1objs[curr1].obj_name, list1->objs[curr1].tag, list1->objs[curr1].ref, -1, -1); curr1++; } } /* list2 did not end */ if (curr2objs[curr2].obj_name, -1, -1, list2->objs[curr2].tag, list2->objs[curr2].ref); curr2++; } } /*------------------------------------------------------------------------- * print the list *------------------------------------------------------------------------- */ if (opt->verbose) { printf("---------------------------------------\n"); printf("file1 file2\n"); printf("---------------------------------------\n"); for (i = 0; i < mattbl->nobjs; i++) { c1 = (char)((mattbl->objs[i].flags[0]) ? 'x' : ' '); c2 = (char)((mattbl->objs[i].flags[1]) ? 'x' : ' '); printf("%5c %6c %-15s\n", c1, c2, mattbl->objs[i].obj_name); } printf("\n"); } /*------------------------------------------------------------------------- * do the diff for objects *------------------------------------------------------------------------- */ for (i = 0; i < mattbl->nobjs; i++) { if ( mattbl->objs[i].flags[0] && mattbl->objs[i].flags[1] ) { nfound += diff(file1_id, file2_id, sd1_id, sd2_id, gr1_id, gr2_id, mattbl->objs[i].obj_name, mattbl->objs[i].obj_name, mattbl->objs[i].tag1, mattbl->objs[i].ref1, mattbl->objs[i].tag2, mattbl->objs[i].ref2, opt ); } } /* free table */ match_table_free(mattbl); return nfound; } /*------------------------------------------------------------------------- * Function: diff * * Purpose: switch between types and choose the diff function * * Return: Number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 25, 2003 * *------------------------------------------------------------------------- */ uint32 diff( int32 file1_id, int32 file2_id, int32 sd1_id, int32 sd2_id, int32 gr1_id, int32 gr2_id, char *obj1_name, char *obj2_name, int32 tag1, int32 ref1, int32 tag2, int32 ref2, diff_opt_t *opt ) { uint32 nfound=0; switch ( tag1 ) { case DFTAG_SD: /* Scientific Data */ case DFTAG_SDG: /* Scientific Data Group */ case DFTAG_NDG: /* Numeric Data Group */ nfound=diff_sds(sd1_id,sd2_id,ref1,ref2,opt); break; case DFTAG_VG: break; case DFTAG_RI: /* Raster Image */ case DFTAG_CI: /* Compressed Image */ case DFTAG_RIG: /* Raster Image Group */ case DFTAG_RI8: /* Raster-8 image */ case DFTAG_CI8: /* RLE compressed 8-bit image */ case DFTAG_II8: /* IMCOMP compressed 8-bit image */ if (opt->gr == 1) nfound=diff_gr(gr1_id,gr2_id,ref1,ref2,opt); break; case DFTAG_VH: if (opt->vd == 1) nfound=diff_vs(file1_id,file2_id,ref1,ref2,opt); break; default: printf("Tag <%ld> and Tag <%ld>: Comparison not supported for <%s> and <%s> \n", tag1, tag2, obj1_name, obj2_name); break; } return nfound; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_table.c0000644000000000000000000001036612421456623015653 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include "hdiff_table.h" /*------------------------------------------------------------------------- * Function: dtable_search * * Purpose: search the table for tag and ref * * Return: index on success, -1 on failure * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ int dtable_search(dtable_t *table, int32 tag, int32 ref ) { uint32 i; for (i = 0; i < table->nobjs; i++) if (table->objs[i].tag == tag && table->objs[i].ref == ref) return i; return -1; } /*------------------------------------------------------------------------- * Function: dtable_add * * Purpose: add pair tag/ref and object path to table * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void dtable_add(dtable_t *table, int32 tag, int32 ref, char* path) { uint32 i; if (table->nobjs == table->size) { table->size *= 2; table->objs = (dobj_info_t*)realloc(table->objs, table->size * sizeof(dobj_info_t)); for (i = table->nobjs; i < table->size; i++) { table->objs[i].tag = table->objs[i].ref = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } } i = table->nobjs++; table->objs[i].tag = tag; table->objs[i].ref = ref; strcpy(table->objs[i].obj_name,path); table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } /*------------------------------------------------------------------------- * Function: dtable_init * * Purpose: initialize table * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void dtable_init( dtable_t **tbl ) { uint32 i; dtable_t* table = (dtable_t*) malloc(sizeof(dtable_t)); table->size = 20; table->nobjs = 0; table->objs = (dobj_info_t*) malloc(table->size * sizeof(dobj_info_t)); for (i = 0; i < table->size; i++) { table->objs[i].tag = table->objs[i].ref = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } *tbl = table; } /*------------------------------------------------------------------------- * Function: dtable_free * * Purpose: free table memory * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void dtable_free( dtable_t *table ) { free(table->objs); free(table); } /*------------------------------------------------------------------------- * Function: dtable_print * * Purpose: print object list * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 25, 2003 * *------------------------------------------------------------------------- */ void dtable_print(dtable_t *table, char* header) { uint32 i; if ( ! table->nobjs ) /* nothing to do */ return; printf("---------------------------------------\n"); printf("%s %5s %6s %-15s\n", header, "Tag", "Ref", "Name"); printf("---------------------------------------\n"); for (i = 0; i < table->nobjs; i++) { printf(" %5ld %6ld %-15s\n", table->objs[i].tag, table->objs[i].ref, table->objs[i].obj_name); } } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/Makefile.in0000644000000000000000000007037112421456623015327 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testhdiff.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = hdiff$(EXEEXT) noinst_PROGRAMS = hdifftst$(EXEEXT) TESTS = $(am__EXEEXT_1) $(TEST_SCRIPT) subdir = mfhdf/hdiff ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testhdiff.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS) am_hdiff_OBJECTS = hdiff.$(OBJEXT) hdiff_array.$(OBJEXT) \ hdiff_gr.$(OBJEXT) hdiff_list.$(OBJEXT) hdiff_main.$(OBJEXT) \ hdiff_mattbl.$(OBJEXT) hdiff_gattr.$(OBJEXT) \ hdiff_misc.$(OBJEXT) hdiff_sds.$(OBJEXT) hdiff_table.$(OBJEXT) \ hdiff_vs.$(OBJEXT) hdiff_dim.$(OBJEXT) hdiff_OBJECTS = $(am_hdiff_OBJECTS) hdiff_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdiff_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdifftst_OBJECTS = hdifftst.$(OBJEXT) hdifftst_OBJECTS = $(am_hdifftst_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(hdiff_SOURCES) $(hdifftst_SOURCES) DIST_SOURCES = $(hdiff_SOURCES) $(hdifftst_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = hdifftst$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog hdifftst1.hdf hdifftst2.hdf \ hdifftst3.hdf hdifftst4.hdf hdifftst5.hdf hdifftst6.hdf \ hdifftst7.hdf INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) hdiff_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdiff_SOURCES = hdiff.c hdiff_array.c hdiff_gr.c hdiff_list.c hdiff_main.c \ hdiff_mattbl.c hdiff_gattr.c hdiff_misc.c hdiff_sds.c \ hdiff_table.c hdiff_vs.c hdiff_dim.c hdiff_LDADD = $(LIBMFHDF) $(LIBHDF) -lm hdiff_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ############################################################################# TEST_PROG = hdifftst TEST_SCRIPT = testhdiff.sh check_SCRIPTS = testhdiff.sh hdifftst_SOURCES = hdifftst.c hdifftst_LDADD = $(LIBMFHDF) $(LIBHDF) hdifftst_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/hdiff/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/hdiff/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): testhdiff.sh: $(top_builddir)/config.status $(srcdir)/testhdiff.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ fi; \ for p in $$list; do echo "$$p $$p"; done | \ sed 's/$(EXEEXT)$$//' | \ while read p p1; do if test -f $$p || test -f $$p1; \ then echo "$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n;h' -e 's|.*|.|' \ -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ sed 'N;N;N;s,\n, ,g' | \ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ if ($$2 == $$4) files[d] = files[d] " " $$1; \ else { print "f", $$3 "/" $$4, $$1; } } \ END { for (d in files) print "f", d, files[d] }' | \ while read type dir files; do \ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ test -z "$$files" || { \ echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ -e 's/$$/$(EXEEXT)/' `; \ test -n "$$list" || exit 0; \ echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ cd "$(DESTDIR)$(bindir)" && rm -f $$files clean-binPROGRAMS: @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list clean-noinstPROGRAMS: @list='$(noinst_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list hdiff$(EXEEXT): $(hdiff_OBJECTS) $(hdiff_DEPENDENCIES) $(EXTRA_hdiff_DEPENDENCIES) @rm -f hdiff$(EXEEXT) $(hdiff_LINK) $(hdiff_OBJECTS) $(hdiff_LDADD) $(LIBS) hdifftst$(EXEEXT): $(hdifftst_OBJECTS) $(hdifftst_DEPENDENCIES) $(EXTRA_hdifftst_DEPENDENCIES) @rm -f hdifftst$(EXEEXT) $(LINK) $(hdifftst_OBJECTS) $(hdifftst_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_array.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_dim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_gattr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_gr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_list.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_main.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_mattbl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_misc.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_sds.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_table.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdiff_vs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdifftst.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) all-local 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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-generic clean-libtool \ clean-noinstPROGRAMS mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-generic clean-libtool \ clean-noinstPROGRAMS cscopelist ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-binPROGRAMS install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/Makefile.am0000644000000000000000000000404412421456623015310 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ## Add hdiff specific linker flags here hdiff_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = hdiff ## Information for building the "hdiff" program hdiff_SOURCES = hdiff.c hdiff_array.c hdiff_gr.c hdiff_list.c hdiff_main.c \ hdiff_mattbl.c hdiff_gattr.c hdiff_misc.c hdiff_sds.c \ hdiff_table.c hdiff_vs.c hdiff_dim.c hdiff_LDADD = $(LIBMFHDF) $(LIBHDF) -lm hdiff_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## Testing ## ############################################################################# TEST_PROG = hdifftst TEST_SCRIPT = testhdiff.sh check_SCRIPTS = testhdiff.sh noinst_PROGRAMS = hdifftst hdifftst_SOURCES = hdifftst.c hdifftst_LDADD = $(LIBMFHDF) $(LIBHDF) hdifftst_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += hdifftst1.hdf hdifftst2.hdf hdifftst3.hdf hdifftst4.hdf hdifftst5.hdf hdifftst6.hdf hdifftst7.hdf DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdifftst.c0000644000000000000000000005137512421456623015244 0ustar #include "mfhdf.h" #define FILE1_NAME "hdifftst1.hdf" #define FILE2_NAME "hdifftst2.hdf" /* big file for hyperslab I/O */ #define FILE3_NAME "hdifftst3.hdf" #define FILE4_NAME "hdifftst4.hdf" /* lones */ #define FILE5_NAME "hdifftst5.hdf" #define FILE6_NAME "hdifftst6.hdf" /* groups */ #define FILE7_NAME "hdifftst7.hdf" #define X_LENGTH 2 #define Y_LENGTH 3 #define RANK 2 #define FILE_ATTR_NAME "File_contents" #define SDS_ATTR_NAME "Valid_range" #define CLASS1_NAME "5x1 Array" #define CLASS2_NAME "6x4 Array" #define VDATA1_NAME "vdata1" #define VDATA2_NAME "vdata2" #define FIELD1_NAME "Single-component Field" #define FIELD2_NAME "Multi-component Field" #define N_RECORDS_1 5 /* number of records the first vdata contains */ #define N_RECORDS_2 2 /* number of records the second vdata contains */ #define ORDER_2 4 /* order of the field in the second vdata */ #define CLASS3_NAME "Particle Data" #define VDATA3_NAME "vdata3" #define FIELD3_NAME1 "Position" #define FIELD3_NAME2 "Mass" #define FIELD3_NAME3 "Temperature" #define FIELDNAME3_LIST "Position,Mass,Temperature" /* No spaces b/w names */ #define ORDER3_1 3 /* order of first field */ #define ORDER3_2 1 /* order of second field */ #define ORDER3_3 2 /* order of third field */ #define N_VALS_PER_REC (ORDER3_1 + ORDER3_2 + ORDER3_3) /* number of values per record */ /*------------------------------------------------------------------------- * local prototypes *------------------------------------------------------------------------- */ static int do_big_file(void); static int do_groups(void); /*------------------------------------------------------------------------- * main *------------------------------------------------------------------------- */ int main(void) { int32 sd1_id; /* SD interface identifier */ int32 sd2_id; /* SD interface identifier */ int32 sds1_id; /* SDS identifier */ int32 sds2_id; /* SDS identifier */ int32 dim_sizes[2]; /* sizes of the SDS dimensions */ int32 start[2]; /* start location to write */ int32 edges[2]; /* number of elements to write */ int32 n_values; int32 buf1a[Y_LENGTH][X_LENGTH] = {{1,1},{1,1},{5,6}}; int32 buf1b[Y_LENGTH][X_LENGTH] = {{1,2},{3,4},{5,6}}; /* percent test: compare divide by zero, both zero */ int32 buf2a[Y_LENGTH][X_LENGTH] = {{100,100},{100,0},{0,100}}; int32 buf2b[Y_LENGTH][X_LENGTH] = {{120,80},{0,100},{0,50}}; /* global attributes */ char8 bufga1[] = "Storm_track_data1"; char8 bufga2[] = "Storm_track_data2"; float32 bufa1[2] = {1., 1.}; float32 bufa2[2] = {1., 2.}; /*vdata*/ int32 file1_id; int32 file2_id; int32 vdata1_id; int32 vdata2_id; char8 vdata1_buf1 [N_RECORDS_1] = {'V', 'D', 'A', 'T', 'A'}; char8 vdata1_buf2 [N_RECORDS_1] = {'X', 'D', 'A', 'T', 'A'}; int32 vdata2_buf1 [N_RECORDS_2][ORDER_2] = {{1, 2, 3, 4}, {5, 6, 7, 8}}; int32 vdata2_buf2 [N_RECORDS_2][ORDER_2] = {{1, 1, 1, 1}, {5, 6, 7, 8}}; float32 vdata3_buf1[N_RECORDS_2][N_VALS_PER_REC]={{1,2,3,4,5,6},{7,8,9,10,11,12}}; float32 vdata3_buf2[N_RECORDS_2][N_VALS_PER_REC]={{1,1,1,1,1,1},{7,8,9,10,11,12}}; /* Define the location and size of the data to be written to the data set*/ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* Define the dimensions of the array to be created */ dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /*------------------------------------------------------------------------- * SD data *------------------------------------------------------------------------- */ /* Create the files and initialize the SD interface */ if ((sd1_id = SDstart (FILE1_NAME, DFACC_CREATE))==FAIL) goto error; if ((sd2_id = SDstart (FILE2_NAME, DFACC_CREATE))==FAIL) goto error; /* Set a global attribute */ n_values = sizeof(bufga1); if ( SDsetattr (sd1_id, FILE_ATTR_NAME, DFNT_CHAR8, n_values, (VOIDP)bufga1)==FAIL) goto error; if ( SDsetattr (sd2_id, FILE_ATTR_NAME, DFNT_CHAR8, n_values, (VOIDP)bufga2)==FAIL) goto error; /* Create the data sets */ if ((sds1_id = SDcreate (sd1_id, "dset1", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; if ((sds2_id = SDcreate (sd2_id, "dset1", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; /* Assign attribute */ n_values = 2; if ( SDsetattr (sds1_id, SDS_ATTR_NAME, DFNT_FLOAT32, n_values, (VOIDP)bufa1)==FAIL) goto error; if ( SDsetattr (sds2_id, SDS_ATTR_NAME, DFNT_FLOAT32, n_values, (VOIDP)bufa2)==FAIL) goto error; /* Write the stored data to the data set */ if ( SDwritedata (sds1_id, start, NULL, edges, (VOIDP)buf1a)==FAIL) goto error; if ( SDwritedata (sds2_id, start, NULL, edges, (VOIDP)buf1b)==FAIL) goto error; /* Terminate access to the data set */ if ( SDendaccess (sds1_id)==FAIL) goto error; if ( SDendaccess (sds2_id)==FAIL) goto error; /* Create another data set */ if (( sds1_id = SDcreate (sd1_id, "dset2", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; if (( sds2_id = SDcreate (sd2_id, "dset2", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; if ( SDwritedata (sds1_id, start, NULL, edges, (VOIDP)buf1a)==FAIL) goto error; if ( SDwritedata (sds2_id, start, NULL, edges, (VOIDP)buf1b)==FAIL) goto error; if ( SDendaccess (sds1_id)==FAIL) goto error; if ( SDendaccess (sds2_id)==FAIL) goto error; /* data sets for -p test */ if (( sds1_id = SDcreate (sd1_id, "dset3", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; if (( sds2_id = SDcreate (sd2_id, "dset3", DFNT_INT32, RANK, dim_sizes))==FAIL) goto error; if ( SDwritedata (sds1_id, start, NULL, edges, (VOIDP)buf2a)==FAIL) goto error; if ( SDwritedata (sds2_id, start, NULL, edges, (VOIDP)buf2b)==FAIL) goto error; if ( SDendaccess (sds1_id)==FAIL) goto error; if ( SDendaccess (sds2_id)==FAIL) goto error; /*------------------------------------------------------------------------- * end SD *------------------------------------------------------------------------- */ /* Terminate access to the SD interface and close the file */ if ( SDend (sd1_id)==FAIL) goto error; if ( SDend (sd2_id)==FAIL) goto error; /*------------------------------------------------------------------------- * VD data *------------------------------------------------------------------------- */ /* Open the HDF file for writing */ if ((file1_id = Hopen (FILE1_NAME, DFACC_WRITE, 0))==FAIL) goto error; if ((file2_id = Hopen (FILE2_NAME, DFACC_WRITE, 0))==FAIL) goto error; /* Initialize the VS interface */ if ( Vstart (file1_id)==FAIL) goto error; if ( Vstart (file2_id)==FAIL) goto error; /*------------------------------------------------------------------------- * VD data one field *------------------------------------------------------------------------- */ /* Create the first vdata and populate it with data from vdata1_buf */ if (VHstoredata (file1_id, FIELD1_NAME, (uint8 *)vdata1_buf1, N_RECORDS_1, DFNT_CHAR8, VDATA1_NAME, CLASS1_NAME)==FAIL) goto error; if (VHstoredata (file2_id, FIELD1_NAME, (uint8 *)vdata1_buf2, N_RECORDS_1, DFNT_CHAR8, VDATA1_NAME, CLASS1_NAME)==FAIL) goto error; /*------------------------------------------------------------------------- * VD data one field, order 4 *------------------------------------------------------------------------- */ /* Create the second vdata and populate it with data from vdata2_buf */ if ( VHstoredatam (file1_id, FIELD2_NAME, (uint8 *)vdata2_buf1, N_RECORDS_2, DFNT_INT32, VDATA2_NAME, CLASS2_NAME, ORDER_2)==FAIL) goto error; if ( VHstoredatam (file2_id, FIELD2_NAME, (uint8 *)vdata2_buf2, N_RECORDS_2, DFNT_INT32, VDATA2_NAME, CLASS2_NAME, ORDER_2)==FAIL) goto error; /*------------------------------------------------------------------------- * VD data several fields *------------------------------------------------------------------------- */ /* Create a new vdata */ if ((vdata1_id = VSattach (file1_id, -1, "w"))==FAIL) goto error; if ((vdata2_id = VSattach (file2_id, -1, "w"))==FAIL) goto error; /* Set name and class name of the vdata */ if ( VSsetname (vdata1_id, VDATA3_NAME)==FAIL) goto error; if ( VSsetclass (vdata1_id, CLASS3_NAME)==FAIL) goto error; if ( VSsetname (vdata2_id, VDATA3_NAME)==FAIL) goto error; if ( VSsetclass (vdata2_id, CLASS3_NAME)==FAIL) goto error; /* Define fields */ if ( VSfdefine (vdata1_id, FIELD3_NAME1, DFNT_FLOAT32, ORDER3_1 )==FAIL) goto error; if ( VSfdefine (vdata1_id, FIELD3_NAME2, DFNT_FLOAT32, ORDER3_2 )==FAIL) goto error; if ( VSfdefine (vdata1_id, FIELD3_NAME3, DFNT_FLOAT32, ORDER3_3 )==FAIL) goto error; if ( VSsetfields (vdata1_id, FIELDNAME3_LIST )==FAIL) goto error; if ( VSfdefine (vdata2_id, FIELD3_NAME1, DFNT_FLOAT32, ORDER3_1 )==FAIL) goto error; if ( VSfdefine (vdata2_id, FIELD3_NAME2, DFNT_FLOAT32, ORDER3_2 )==FAIL) goto error; if ( VSfdefine (vdata2_id, FIELD3_NAME3, DFNT_FLOAT32, ORDER3_3 )==FAIL) goto error; if ( VSsetfields (vdata2_id, FIELDNAME3_LIST)==FAIL) goto error; /* Write the data with full interlacing mode */ if ( VSwrite (vdata1_id, (uint8 *)vdata3_buf1, N_RECORDS_2, FULL_INTERLACE)==FAIL) goto error; if ( VSwrite (vdata2_id, (uint8 *)vdata3_buf2, N_RECORDS_2, FULL_INTERLACE)==FAIL) goto error; if ( VSdetach (vdata1_id)==FAIL) goto error; if ( VSdetach (vdata2_id)==FAIL) goto error; /*------------------------------------------------------------------------- * end VD data *------------------------------------------------------------------------- */ /* Terminate access to the VS interface and close the HDF file */ if ( Vend (file1_id)==FAIL) goto error; if ( Vend (file2_id)==FAIL) goto error; if ( Hclose (file1_id)==FAIL) goto error; if ( Hclose (file2_id)==FAIL) goto error; /*------------------------------------------------------------------------- * write 2 big files for hyperslab reading *------------------------------------------------------------------------- */ if (do_big_file()==FAIL) goto error; /*------------------------------------------------------------------------- * groups *------------------------------------------------------------------------- */ if (do_groups()==FAIL) goto error; return 0; error: printf("Error...Exiting...\n"); return 1; } #define DIM0 10 #define DIM1 10 #define ADD_ROWS ( 1024 * 1024 - 10 ) / 10 /*------------------------------------------------------------------------- * write 2 big files for hyperslab reading *------------------------------------------------------------------------- */ static int do_big_file(void) { int32 sd1_id; /* SD interface identifier */ int32 sd2_id; /* SD interface identifier */ int32 sds1_id; /* SDS identifier */ int32 sds2_id; /* SDS identifier */ int32 dims[2]; /* sizes of the SDS dimensions */ int32 start[2]; /* start location to write */ int32 edges[2]; /* number of elements to write */ int32 sds1_idx; int32 sds2_idx; int32 rank; uint8 array_data[DIM0][DIM1]; uint8 append_data1[DIM1]; uint8 append_data2[DIM1]; intn i, j, n; /* Create 2 files and initiate the SD interface. */ if ((sd1_id = SDstart(FILE3_NAME, DFACC_CREATE))==FAIL) goto error; if ((sd2_id = SDstart(FILE4_NAME, DFACC_CREATE))==FAIL) goto error; /* Define the rank and dimensions of the data set to be created. */ rank = 2; dims[0] = SD_UNLIMITED; dims[1] = DIM1; /* Create 2 data sets */ if ((sds1_id = SDcreate(sd1_id, "data1", DFNT_UINT8, rank, dims))==FAIL) goto error; if ((sds2_id = SDcreate(sd2_id, "data1", DFNT_UINT8, rank, dims))==FAIL) goto error; /* initial values */ for (j = 0; j < DIM0; j++) { for (i = 0; i < DIM1; i++) array_data[j][i] = (i + j) + 1; } /* define the location, pattern, and size of the data set */ for (i = 0; i < rank; i++) { start[i] = 0; } edges[0] = DIM0; /* 10 */ edges[1] = DIM1; /* 5 */ if ( SDwritedata(sds1_id, start, NULL, edges, (VOIDP)array_data)==FAIL) goto error; if ( SDwritedata(sds2_id, start, NULL, edges, (VOIDP)array_data)==FAIL) goto error; /* terminate access to the datasets and SD interface */ if ( SDendaccess(sds1_id)==FAIL) goto error; if ( SDendaccess(sds2_id)==FAIL) goto error; if ( SDend(sd1_id)==FAIL) goto error; if ( SDend(sd2_id)==FAIL) goto error; /* append data */ if (( sd1_id = SDstart(FILE3_NAME, DFACC_WRITE))==FAIL) goto error; if (( sd2_id = SDstart(FILE4_NAME, DFACC_WRITE))==FAIL) goto error; if ((sds1_idx = SDnametoindex (sd1_id, "data1"))==FAIL) goto error; if ((sds2_idx = SDnametoindex (sd2_id, "data1"))==FAIL) goto error; if ((sds1_id = SDselect (sd1_id, sds1_idx))==FAIL) goto error; if ((sds2_id = SDselect (sd2_id, sds2_idx))==FAIL) goto error; /* define the location of the append */ for (n = 0; n < ADD_ROWS; n++) { start[0] = DIM0 + n; /* 10 */ start[1] = 0; edges[0] = 1; /* 1 row at a time */ edges[1] = DIM1; /* 5 elements */ /* store array values to be appended */ for (i = 0; i < DIM1; i++) append_data1[i] = i + 1; for (i = 0; i < DIM1; i++) append_data2[i] = i + 1; if (n == 20 || n == ADD_ROWS / 2 || n == ADD_ROWS - 10 ) { /* change a few values at 3 places evenly divided */ for (i = 0; i < DIM1; i++) append_data2[i] = 100; /* append data to file */ if ( SDwritedata (sds1_id, start, NULL, edges, (VOIDP) append_data1)==FAIL) goto error; if ( SDwritedata (sds2_id, start, NULL, edges, (VOIDP) append_data2)==FAIL) goto error; } } /* terminate access */ if ( SDendaccess (sds1_id)==FAIL) goto error; if ( SDendaccess (sds2_id)==FAIL) goto error; if ( SDend (sd1_id)==FAIL) goto error; if ( SDend (sd2_id)==FAIL) goto error; return SUCCEED; error: printf("Error...Exiting...\n"); return FAIL; } #define FILE_LABEL_TXT "created with HDF 4.2 Release 1" /*------------------------------------------------------------------------- * do_lone *------------------------------------------------------------------------- */ int do_lone(char* file_name, int do_diffs) { char sds_name[] = "lone"; int32 rank = 1; int32 dim_sds[1] = {5}; /* dimension of the data set */ int32 data[5] = {1, 2, 3, 4, 5}; int32 start[1]; /* start position to write for each dimension */ int32 edges[1]; /* number of elements to be written along each dimension */ int32 sds_id; int32 dim_id; int32 sd_id; if ( do_diffs ) { data[1] = data[2] = 0; } sd_id = SDstart(file_name, DFACC_CREATE); /* create the SDS */ if ((sds_id = SDcreate (sd_id, sds_name, DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n",sds_name); goto fail; } dim_id = SDgetdimid(sds_id, 0); SDsetdimname(dim_id, sds_name); /* define the location and size of the data to be written to the data set */ start[0] = 0; edges[0] = 5; /* write the stored data to the data set */ if (SDwritedata (sds_id, start, NULL, edges, (VOIDP)data)==FAIL) { printf( "Failed to set write for SDS <%s>\n", sds_name); goto fail; } SDendaccess(sds_id); /* create the SDS */ if ((sds_id = SDcreate (sd_id, "sds", DFNT_INT32, rank, dim_sds))<0) { printf( "Could not create SDS <%s>\n"); goto fail; } if (SDwritedata (sds_id, start, NULL, edges, (VOIDP)data)==FAIL) { printf( "Failed to set write for SDS <%s>\n"); goto fail; } SDendaccess(sds_id); SDend(sd_id); { int32 file1_id; /* HDF file identifier */ int32 an_id; /* AN interface identifier */ int32 file_label_id; /* file label identifier */ /* open file */ if ((file1_id = Hopen (file_name, DFACC_WRITE, (int16)0))<0) { printf("Error: Could not open file <%s>\n",file_name); return FAIL; } /* Initialize the AN interface */ an_id = ANstart (file1_id); /* Create the file label */ file_label_id = ANcreatef (an_id, AN_FILE_LABEL); /* Write the annotations to the file label */ if (ANwriteann (file_label_id,FILE_LABEL_TXT,strlen (FILE_LABEL_TXT))==FAIL) { printf( "Could not write AN\n"); return FAIL; } /* Terminate access to annotation */ if (ANendaccess (file_label_id)==FAIL) { printf( "Could not end AN\n"); return FAIL; } /* Terminate access to the AN interface */ if (ANend (an_id)==FAIL) { printf( "Could not end AN\n"); return FAIL; } /* close the HDF file */ if (Hclose (file1_id)==FAIL) { printf( "Could not close file\n"); return FAIL; } } return SUCCEED; fail: SDend(sd_id); return FAIL; } /*------------------------------------------------------------------------- * write groups * a circular reference * * g0 -----> g1 * | | ^ * | | | * | \/ | * |-----> g1.1 * *------------------------------------------------------------------------- */ static int do_groups(void) { int32 vg0_id, /* vgroup identifier */ vg1_id, /* vgroup identifier */ vg2_id, /* vgroup identifier */ file1_id; /* HDF file identifier */ /* create a HDF file */ if ((file1_id = Hopen (FILE7_NAME, DFACC_CREATE, (int16)0))<0) { printf("Error: Could not create file <%s>\n",FILE7_NAME); return FAIL; } /* initialize the V interface */ if (Vstart (file1_id)==FAIL) { printf( "Could not start VG\n"); return FAIL; } /* create a vgroup */ vg0_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg0_id, "g0")==FAIL) { printf( "Could not name group\n"); goto out; } /* create the second vgroup */ vg1_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg1_id, "g1")==FAIL) { printf( "Could not name group\n"); goto out; } /* create the third vgroup */ vg2_id = Vattach (file1_id, -1, "w"); if (Vsetname (vg2_id, "g1.1")==FAIL) { printf( "Could not name group\n"); goto out; } if (Vinsert (vg0_id, vg1_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg0_id, vg2_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg1_id, vg2_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } if (Vinsert (vg2_id, vg1_id)==FAIL) { printf( "Could not insert VG\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg0_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg1_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the vgroup */ if (Vdetach (vg2_id)==FAIL) { printf( "Could not close group\n"); goto out; } /* terminate access to the V interface */ if (Vend (file1_id)==FAIL) { printf( "Could not end VG\n"); goto out; } /* close the HDF file */ if (Hclose (file1_id)==FAIL) { printf( "Could not close file\n"); return FAIL; } return SUCCEED; out: printf("Error...Exiting...\n"); return FAIL; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_dim.h0000644000000000000000000000340312421456623015334 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef HDIFF_DIM_H_ #define HDIFF_DIM_H_ #include "hdiff.h" /* dimension SDS */ typedef struct diff_dim_name_t { int32 ref; /* reference */ char dim_name[H4_MAX_NC_NAME]; /* name */ } diff_dim_name_t; /* table for diff_dim_name_t */ typedef struct diff_dim_table_t { int size; int nobjs; diff_dim_name_t *objs; } diff_dim_table_t; #ifdef __cplusplus extern "C" { #endif void diff_dim_table_add(diff_dim_table_t *table, int ref, char* name); void diff_dim_table_init( diff_dim_table_t **tbl ); void diff_dim_table_free( diff_dim_table_t *table ); uint32 diff_match_dim(int32 sd1_id, int32 sd2_id, diff_dim_table_t *td1_1, diff_dim_table_t *td1_2, diff_dim_table_t *td2_1, diff_dim_table_t *td2_2, diff_opt_t * opt); #ifdef __cplusplus } #endif #endif /* HDIFF_DIM_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff.h0000644000000000000000000001111512421456623014502 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * /hdf/src/master/mfhdf/ncdump/ncdump.h,v 1.1 1993/04/21 21:51:19 chouck Exp *********************************************************************/ #ifndef HDIFF_H__ #define HDIFF_H__ #include "hdf.h" #include "mfhdf.h" #include "hdiff_table.h" #define Printf (void) printf /* Maximum value for max_err_cnt */ #define MAX_DIFF 0x7FFFFFFF struct ncdim { /* dimension */ char name[H4_MAX_NC_NAME]; int32 size; }; struct ncvar { /* variable */ char name[H4_MAX_NC_NAME]; int32 type; int32 ndims; int32 dims[H4_MAX_VAR_DIMS]; int32 natts; }; struct ncatt { /* attribute */ int32 var; char name[H4_MAX_NC_NAME]; int32 type; int32 len; void *val; }; typedef enum {LANG_NONE, LANG_C, LANG_F} Nclang; typedef struct { /* selection for comparison */ int verbose; /* * if true, print cuurent interface comparison */ int ga; /* * if true, compare global attributes only */ int sa; /* * if true, compare SD local attributes only */ int sd; /* * if true, compare SD data only */ int gr; /* * if true, compare GR data only */ int vd; /* * if true, compare Vdata only */ uint32 max_err_cnt; /* * max. no of difference to be printed */ float32 err_limit; /* * limit of difference for the comparison */ int nlvars; /* * Number of variables specified with -v option * on command line */ char** lvars; /* * list of variable names specified with -v * option on command line */ int nuvars; /* * Number of variables specified with -u option * on command line */ char** uvars; /* * list of variable names specified with -u * option on command line */ int statistics; float32 err_rel; /* * relative diff for the comparison */ int err_stat; /* an error ocurred (1, error, 0, no error) */ } diff_opt_t; /*------------------------------------------------------------------------- * public functions *------------------------------------------------------------------------- */ #ifdef __cplusplus extern "C" { #endif uint32 hdiff(const char *fname1, const char *fname2, diff_opt_t *opt); #ifdef __cplusplus } #endif /*------------------------------------------------------------------------- * private functions *------------------------------------------------------------------------- */ uint32 gattr_diff(int32 sdid1, int32 sdid2, diff_opt_t *opt); void pr_att_vals(nc_type type, int len, void *vals); void make_vars(char *optarg, diff_opt_t *opt, int option); uint32 array_diff(void *buf1, void *buf2, uint32 tot_cnt, const char *name1, const char *name2, int rank, int32 *dims, int32 type, float32 err_limit, float32 err_rel, uint32 max_err_cnt, int32 statistics, void *fill1, void *fill2); uint32 match( uint32 nobjects1, dtable_t *list1, uint32 nobjects2, dtable_t *list2, int32 sd1_id, int32 gr1_id, int32 file1_id, int32 sd2_id, int32 gr2_id, int32 file2_id, diff_opt_t *opt ); uint32 diff( int32 file1_id, int32 file2_id, int32 sd1_id, int32 sd2_id, int32 gr1_id, int32 gr2_id, char *obj1_name, char *obj2_name, int32 tag1, int32 ref1, int32 tag2, int32 ref2, diff_opt_t *opt ); void print_dims( int r, int32 *d ); uint32 diff_vs( int32 file1_id, int32 file2_id, int32 ref1, int32 ref2, diff_opt_t * opt); uint32 diff_gr( int32 gr1_id, int32 gr2_id, int32 ref1, int32 ref2, diff_opt_t * opt); uint32 diff_sds(int32 sd1_id, int32 sd2_id, int32 ref1, int32 ref2, diff_opt_t *opt); #endif libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_mattbl.h0000644000000000000000000000353512421456623016054 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef HDF_HDIFF_MATCH_TABLE__ #define HDF_HDIFF_MATCH_TABLE__ #include "hdf.h" #include "mfhdf.h" #ifdef __cplusplus extern "C" { #endif /* match objects in 2 HDF files */ typedef struct match_info_t { int32 tag1; int32 ref1; int32 tag2; int32 ref2; char obj_name[H4_MAX_NC_NAME]; /* same name for file1 and 2 */ int flags[2]; /* object exists in file=1, no=0 */ } match_info_t; /* table to store the match info */ typedef struct match_table_t { uint32 size; uint32 nobjs; match_info_t *objs; } match_table_t; /* table methods */ void match_table_init(match_table_t **table); void match_table_free(match_table_t *table); void match_table_add (match_table_t *table, unsigned *flags, char* path, int32 tag1, int32 ref1, int32 tag2, int32 ref2 ); #ifdef __cplusplus } #endif #endif /* HDF_HDIFF_MATCH_TABLE__ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_mattbl.c0000644000000000000000000000722012421456623016042 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include "hdiff_mattbl.h" /*------------------------------------------------------------------------- * Function: match_table_add * * Purpose: mark object is in file; * flag[0] = file1 * flag[1] = file2 * object exists in file = flag = 1 * does not exist = flag = 0 * the key is * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 25, 2003 * *------------------------------------------------------------------------- */ void match_table_add (match_table_t *table, unsigned *flags, char* path, int32 tag1, int32 ref1, int32 tag2, int32 ref2 ) { uint32 i; if (table->nobjs == table->size) { table->size *= 2; table->objs = (match_info_t*)realloc(table->objs, table->size * sizeof(match_info_t)); for (i = table->nobjs; i < table->size; i++) { table->objs[i].tag1 = table->objs[i].ref1 = -1; table->objs[i].tag2 = table->objs[i].ref2 = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } } i = table->nobjs++; table->objs[i].tag1 = tag1; table->objs[i].ref1 = ref1; table->objs[i].tag2 = tag2; table->objs[i].ref2 = ref2; strcpy(table->objs[i].obj_name,path); table->objs[i].flags[0] = flags[0]; table->objs[i].flags[1] = flags[1]; } /*------------------------------------------------------------------------- * Function: match_table_init * * Purpose: initialize table * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void match_table_init( match_table_t **tbl ) { uint32 i; match_table_t* table = (match_table_t*) malloc(sizeof(match_table_t)); table->size = 20; table->nobjs = 0; table->objs = (match_info_t*) malloc(table->size * sizeof(match_info_t)); for (i = 0; i < table->size; i++) { table->objs[i].tag1 = table->objs[i].ref1 = -1; table->objs[i].tag2 = table->objs[i].ref2 = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } *tbl = table; } /*------------------------------------------------------------------------- * Function: match_table_free * * Purpose: free table memory * * Return: void * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: July 3, 2003 * *------------------------------------------------------------------------- */ void match_table_free( match_table_t *table ) { free(table->objs); free(table); } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_list.h0000644000000000000000000001065112421456623015541 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef HDF_HDIFF_LIST__ #define HDF_HDIFF_LIST__ #ifdef __cplusplus extern "C" { #endif #include "hdiff_table.h" #include "hdiff_dim.h" /* get the list of HDF objects in the file */ uint32 hdiff_list (const char* fname, dtable_t *table, diff_dim_table_t *td1, diff_dim_table_t *td2, int *err); int hdiff_list_vg(const char* fname, int32 file_id, int32 sd_id, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */; int hdiff_list_gr (int32 file_id,int32 gr_id,dtable_t *table); int hdiff_list_sds(int32 file_id, int32 sd_id, /* SD interface identifier */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */; int hdiff_list_vs (int32 file_id,dtable_t *table); int hdiff_list_glb(int32 sd_id,int32 gr_id); int hdiff_list_an (int32 file_id); int insert_vg_attrs(int32 vgroup_id,char *path); int insert_vg_an(int32 file_id,int32 vgroup_id,char *path); int insert_vg(const char* fname, int32 file_id, int32 sd_id, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ char*path_name, /* absolute path for input group name */ int32* in_tags, /* tag list for parent group */ int32* in_refs, /* ref list for parent group */ int npairs, /* number tag/ref pairs for parent group */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */; int insert_sds(int32 file_id, int32 sd_id, int32 tag, /* tag of input SDS */ int32 ref, /* ref of input SDS */ char *path_name, /* absolute path for input group name */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */; int insert_gr(int32 file_id, int32 gr_in, int32 tag, /* tag of input GR */ int32 ref, /* ref of input GR */ char*path_name, /* absolute path for input group name */ dtable_t *table); int insert_vs( int32 file_id, int32 ref, /* ref of input VS */ char*path_name, /* absolute path for input group name */ dtable_t *table, int is_lone); int insert_sds_attrs(int32 sds_id, int32 nattrs); int insert_gr_attrs(int32 ri_id, int32 nattrs); int insert_an(int32 file_id, int32 ref_in, int32 tag_in, char *path); int insert_vs_an(int32 file_id, int32 vdata_id, char *path); int insert_vs_attrs(int32 in, int32 findex, intn attrindex); #ifdef __cplusplus } #endif #endif /* HDF_HDIFF_LIST__ */ libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_gr.c0000644000000000000000000002226312421456623015173 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdiff.h" #include "hdiff_list.h" #include "hdiff_mattbl.h" /*------------------------------------------------------------------------- * Function: diff_gr * * Purpose: diff for GR * * Return: Number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 27, 2003 * *------------------------------------------------------------------------- */ uint32 diff_gr( int32 gr1_id, int32 gr2_id, int32 ref1, int32 ref2, diff_opt_t *opt) { int32 ri1_id=-1, /* data set identifier */ ri1_index, /* index number of the data set */ dtype1, /* GR data type */ dimsizes1[H4_MAX_VAR_DIMS],/* dimensional size */ nattrs1, /* number of attributes */ ncomps1, /* number of components */ interlace_mode1, /* interlace mode of an image */ ri2_id=-1, /* data set identifier */ ri2_index, /* index number of the data set */ dtype2, /* GR data type */ dimsizes2[H4_MAX_VAR_DIMS],/* dimensional size */ nattrs2, /* number of attributes */ ncomps2, /* number of components */ interlace_mode2, /* interlace mode of an image */ start[H4_MAX_VAR_DIMS], /* read start */ edges[H4_MAX_VAR_DIMS], /* read edges */ numtype, /* number type */ eltsz, /* element size */ data_size; uint32 nelms; /* number of elements */ char gr1_name[H4_MAX_NC_NAME]; char gr2_name[H4_MAX_NC_NAME]; int dim_diff=0; /* dimensions are different */ VOIDP buf1=NULL; VOIDP buf2=NULL; uint32 max_err_cnt; int i, cmp; uint32 nfound=0; int compare = 1; /*------------------------------------------------------------------------- * object 1 *------------------------------------------------------------------------- */ ri1_index = GRreftoindex(gr1_id,(uint16)ref1); ri1_id = GRselect(gr1_id,ri1_index); /*obtain name,rank,dimsizes,datatype and num of attributes of gr */ if (GRgetiminfo(ri1_id,gr1_name,&ncomps1,&dtype1,&interlace_mode1,dimsizes1,&nattrs1)==FAIL) { printf( "Failed to get info for SDS ref <%ld>\n",ref1); goto out; } /*------------------------------------------------------------------------- * object 2 *------------------------------------------------------------------------- */ ri2_index = GRreftoindex(gr2_id,(uint16)ref2); ri2_id = GRselect(gr2_id,ri2_index); /*obtain name,rank,dimsizes,datatype and num of attributes of gr */ if (GRgetiminfo(ri2_id,gr2_name,&ncomps2,&dtype2,&interlace_mode2,dimsizes2,&nattrs2)==FAIL) { printf( "Failed to get info for SDS ref <%ld>\n",ref2); goto out; } if (opt->verbose) printf("Comparing <%s>\n",gr1_name); /*------------------------------------------------------------------------- * check for different type *------------------------------------------------------------------------- */ if (dtype1 != dtype2) { printf("Comparison not supported\n"); printf("<%s> has datatype %ld, <%s> has datatype %ld ",gr1_name,dtype1,gr2_name,dtype2); compare = 0; } /*------------------------------------------------------------------------- * check for the same rank *------------------------------------------------------------------------- */ if ( ncomps1 != ncomps2 ) { printf("Comparison not supported\n"); printf("<%s> has %ld components\n", gr1_name, ncomps1); printf("\n" ); printf("<%s> has %ld components\n", gr2_name, ncomps2); compare = 0; } /*------------------------------------------------------------------------- * check for different dimensions *------------------------------------------------------------------------- */ for ( i=0; i<2; i++) { if ( dimsizes1[i] != dimsizes2[i] ) dim_diff=1; } /*------------------------------------------------------------------------- * dimensions *------------------------------------------------------------------------- */ if (dim_diff==1) { printf("Comparison not supported\n"); printf("<%s> has dimensions ", gr1_name); print_dims(2,dimsizes1); printf("\n" ); printf("<%s> has dimensions ", gr2_name); print_dims(2,dimsizes2); compare = 0; } /*------------------------------------------------------------------------- * match interlace * NOTE: GR images are always stored as pixel_interlace (0) on disk * that does not happen with images saved with the * DF24 - Single-file 24-Bit Raster Image Interface, * where the interlace mode on disk can be 0, 1 or 2 *------------------------------------------------------------------------- */ if ( interlace_mode1 != interlace_mode2 ) { if (opt->verbose) printf("Warning: different interlace mode: <%ld> and <%ld>\n", interlace_mode1,interlace_mode2); interlace_mode1=interlace_mode2; } /*------------------------------------------------------------------------- * get size *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value. */ numtype = dtype1 & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /* set edges of SDS */ nelms=1; for (i = 0; i < 2; i++) { nelms *= dimsizes1[i]; edges[i] = dimsizes1[i]; start[i] = 0; } data_size = dimsizes1[0]*dimsizes1[1]*ncomps1*eltsz; if (compare) { /*------------------------------------------------------------------------- * read image 1 *------------------------------------------------------------------------- */ /* alloc */ if ((buf1 = (VOIDP) HDmalloc(data_size)) == NULL) { printf( "Failed to allocate %lu elements of size %ld\n", nelms, eltsz); goto out; } /* set the interlace for reading */ if ( GRreqimageil(ri1_id, interlace_mode1) == FAIL ){ printf( "Could not set interlace for GR <%s>\n", gr1_name); goto out; } /* read data */ if (GRreadimage (ri1_id, start, NULL, edges, buf1) == FAIL) { printf( "Could not read GR <%s>\n", gr1_name); goto out; } /*------------------------------------------------------------------------- * read image 2 *------------------------------------------------------------------------- */ /* alloc */ if ((buf2 = (VOIDP) HDmalloc(data_size)) == NULL) { printf( "Failed to allocate %lu elements of size %ld\n", nelms, eltsz); goto out; } /* set the interlace for reading */ if ( GRreqimageil(ri2_id, interlace_mode2) == FAIL ){ printf( "Could not set interlace for GR <%s>\n", gr2_name); goto out; } /* read data */ if (GRreadimage (ri2_id, start, NULL, edges, buf2) == FAIL) { printf( "Could not read GR <%s>\n", gr2_name); goto out; } /*------------------------------------------------------------------------- * comparing *------------------------------------------------------------------------- */ cmp = HDmemcmp(buf1,buf2,data_size); if (cmp!=0) { /* if the given max_err_cnt is set (i.e. not its default MAX_DIFF), use it, otherwise, use the total number of elements in the dataset */ max_err_cnt = (opt->max_err_cnt != MAX_DIFF) ? opt->max_err_cnt : nelms; nfound=array_diff( buf1, buf2, nelms, gr1_name, gr2_name, 2, dimsizes1, dtype1, opt->err_limit, opt->err_rel, max_err_cnt, opt->statistics, 0, 0); } } /* compare */ /*------------------------------------------------------------------------- * close *------------------------------------------------------------------------- */ GRendaccess(ri1_id); GRendaccess(ri2_id); if (buf1) free(buf1); if (buf2) free(buf2); return nfound; out: opt->err_stat = 1; if (ri1_id!=-1) GRendaccess(ri1_id); if (ri2_id!=-1) GRendaccess(ri2_id); if (buf1) free(buf1); if (buf2) free(buf2); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_main.c0000644000000000000000000001440212421456623015503 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include #include #include #include "hdf.h" #include "hfile.h" #include "mfhdf.h" #include "hdiff.h" /*------------------------------------------------------------------------- * Function: main * * Purpose: hdiff main program * * Programmer: Pedro Vicente Nunes, pvn@ncsa.uiuc.edu * * Date: August 27, 2003 * Modifications: * March 8, 2006. Added percent (relative) option * * Comments: * *------------------------------------------------------------------------- */ char *progname; static void usage() { (void) fprintf(stdout, "hdiff [-V] [-b] [-g] [-s] [-d] [-D] [-S] [-v var1[,...]] [-u var1[,...]] [-e count] [-t limit] [-p relative] file1 file2\n"); fprintf(stdout," [-V] Display version of the HDF4 library and exit\n"); fprintf(stdout," [-b] Verbose mode\n"); fprintf(stdout," [-g] Compare global attributes only\n"); fprintf(stdout," [-s] Compare SD local attributes only\n"); fprintf(stdout," [-d] Compare SD data only\n"); fprintf(stdout," [-D] Compare Vdata data only\n"); fprintf(stdout," [-S] Print statistics\n"); fprintf(stdout," [-v var1[,...]] Compare SD data on variable(s) ,... only\n"); fprintf(stdout," [-u var1[,...]] Compare vdata on variable(s) ,... only\n"); fprintf(stdout," [-e count] Print difference up to count number for each variable\n"); fprintf(stdout," [-t limit] Print difference when it is greater than limit\n"); fprintf(stdout," [-p relative] Print difference when it is greater than a relative limit\n"); fprintf(stdout," file1 File name of the first HDF file\n"); fprintf(stdout," file2 File name of the second HDF file\n"); fprintf(stdout,"\n"); fprintf(stdout,"The 'count' value must be a positive integer\n"); fprintf(stdout,"The 'limit' and 'relative' values must be positive numbers\n"); fprintf(stdout,"The -t compare criteria is |a - b| > limit\n"); fprintf(stdout,"The -p compare criteria is |(b-a)/a| > relative\n"); fprintf(stdout,"Return codes: 0 (no differences found), 1 (differences found)\n"); exit(EXIT_FAILURE); } int main(int argc, char *argv[]) { extern int optind; extern int opterr; extern char *optarg; static diff_opt_t opt = /* defaults, overridden on command line */ { 0, /* verbose mode */ 1, /* compare global attributes */ 1, /* compare SD local attributes */ 1, /* compare SD data */ 1, /* compare GR data */ 1, /* compare Vdata */ MAX_DIFF, /* no limit on the difference to be printed */ 0.0, /* exact equal */ 0, /* if -v specified, number of variables */ 0, /* if -v specified, list of variable names */ 0, /* if -u specified, number of variables */ 0, /* if -u specified, list of variable names */ 0, /* if -S specified print statistics */ 0, /* -p err_rel */ 0, /* error status */ }; int c; uint32 nfound; int ret; opterr = 1; progname = argv[0]; if (argc < 2) usage(); while ((c = getopt(argc, argv, "VbgsdSDe:t:v:u:p:")) != EOF) { switch(c) { case 'V': /* display version of the library */ printf("%s, %s\n\n", argv[0], LIBVER_STRING ); exit(0); case 'b': /* verbose mode */ opt.verbose =1; break; case 'g': /* global attributes only */ opt.ga = 1; opt.sa = 0; opt.sd = 0; opt.vd = 0; break; case 's': /* SD local attributes only */ opt.ga = 0; opt.sa = 1; opt.sd = 0; opt.vd = 0; break; case 'd': /* SD data only */ opt.ga = 0; opt.sa = 0; opt.sd = 1; opt.vd = 0; break; case 'D': /* SD data only */ opt.ga = 0; opt.sa = 0; opt.sd = 0; opt.vd = 1; break; case 'e': /* max no. of difference to be printed */ opt.max_err_cnt = atoi(optarg); break; case 't': /* range of difference to be printed */ opt.err_limit = (float32)atof(optarg); break; case 'v': /* variable names */ /* make list of names of variables specified */ make_vars (optarg, &opt, 1); break; case 'u': /* variable names */ /* make list of names of variables specified */ make_vars (optarg, &opt, 2); break; case 'S': opt.statistics = 1; break; case 'p': opt.err_rel = (float32)atof(optarg); break; } } argv = argv + optind; nfound = hdiff(argv[0],argv[1],&opt); /*------------------------------------------------------------------------- * exit code * >0 if differences, 0 if no differences, <0 if error *------------------------------------------------------------------------- */ ret= (nfound==0 ? 0 : 1 ); if (opt.err_stat) ret=-1; return ret; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_gattr.c0000644000000000000000000000724612421456623015710 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include #include #include #include "hdf.h" #include "mfhdf.h" #include "vg.h" #include "hdiff.h" /*------------------------------------------------------------------------- * Function: gattr_diff * * Purpose: compare global SDS attributes * *------------------------------------------------------------------------- */ uint32 gattr_diff(int32 sdid1, int32 sdid2, diff_opt_t *opt) { int32 nvars1, nvars2; /* number of variables */ int32 ngatts1, ngatts2; /* number of global attributes */ struct ncatt att1, att2; /* attribute */ int ia, ib; /* attribute number */ int iret2; uint32 nfound=0; SDfileinfo(sdid1, &nvars1, &ngatts1); /* get global attributes */ for (ia = 0; ia < ngatts1; ia++) { SDattrinfo(sdid1, ia, att1.name, &att1.type, &att1.len); ib = SDfindattr(sdid2, att1.name); if (ib == -1) /* attribute doesn't exist in file2 */ { printf("\n---------------------------\n"); printf("< %s\n", att1.name); printf("> '%s' does not exist in file2\n", att1.name); nfound ++; continue; } iret2 = SDattrinfo(sdid2, ib, att2.name, &att2.type, &att2.len); att1.val = (void *) malloc((unsigned) (att1.len*DFKNTsize(att1.type | DFNT_NATIVE))); if (!att1.val) { fprintf(stderr,"Out of memory!\n"); goto out; } att2.val = (void *) malloc((unsigned) (att2.len*DFKNTsize(att2.type | DFNT_NATIVE))); if (!att2.val) { fprintf(stderr,"Out of memory!\n"); goto out; } SDreadattr(sdid1, ia, att1.val); iret2 = SDreadattr(sdid2, ib, att2.val); iret2 = 0; if (att1.type != att2.type || att1.len != att2.len) iret2 = 1; if (iret2 == 0) /* compare the data */ iret2 = memcmp((void *) att1.val, att2.val, att1.len*DFKNTsize(att1.type | DFNT_NATIVE)); if (iret2 != 0) { printf("\n---------------------------\n"); printf("Attr Name: %s\n", att1.name); printf("< "); pr_att_vals((nc_type)att1.type, att1.len, att1.val); printf("\n> "); pr_att_vals((nc_type)att2.type, att2.len, att2.val); printf("\n"); nfound ++; } free ((char *) att1.val); free ((char *) att2.val); } /* check any global attributes in file2 but not in file1 */ iret2 = SDfileinfo(sdid2, &nvars2, &ngatts2); for (ib = 0; ib < ngatts2; ib++) { iret2 = SDattrinfo(sdid2, ib, att2.name, &att2.type, &att2.len); ia = SDfindattr(sdid1, att2.name); if (ia == -1) /* attribute doesn't exist in file2 */ { printf("\n---------------------------\n"); printf("< '%s' does not exist in file1\n", att2.name); printf("> %s\n", att2.name); nfound ++; } } return nfound; out: opt->err_stat = 1; return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/0000755000000000000000000000000012421456623015254 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst2.hdf0000644000000000000000000000763012421456623017642 0ustar È j\¾ ƾ Þ¾ ö« ª <­ N!« oª s<­ ¯!« Ъ Ô<­ !« 1ª 5<­ q!« ’ª –<­ Ò!« óª ÷<­ 3!« Tª \=j ™½ Ð ³­ Ã6j ù½ ýÐ ­ #2j U½ YÐ o­ 2« ±ª Ã?­J«LªQJ«› ª»I«0ª4cÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006xPd2ValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª fakeDim2Dim0.0ValuesfakeDim3 DimVal0.1ªfakeDim3Dim0.0ValuesfakeDim4 DimVal0.1ªfakeDim4Dim0.0ValuesfakeDim5 DimVal0.1ªfakeDim5Dim0.0?€@VALUES Valid_rangeAttr0.0 jjj¾j½Ñ­­ª¾j½Ð dset1Var0.0 jjj¾j½Ñ­­¾j½Ð dset2Var0.0 jjj¾j½Ñ­­¾j½Ðdset3Var0.0Storm_track_data2VALUES File_contentsAttr0.0 ­­­­­­­­­ª  hdifftst2.hdfCDF0.0XDATASingle-component Fieldvdata1 5x1 ArrayMulti-component Fieldvdata2 6x4 Array?€?€?€?€?€?€@àAAA A0A@  PositionMass Temperaturevdata3 Particle Datalibhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_15.txt0000644000000000000000000000123112421456623017377 0ustar --------------------------------------- file 1 Tag Ref Name --------------------------------------- 1965 2 g0 1965 3 g0/g1 1965 4 g0/g1/g1.1 --------------------------------------- file 2 Tag Ref Name --------------------------------------- 1965 2 g0 1965 3 g0/g1 1965 4 g0/g1/g1.1 --------------------------------------- file1 file2 --------------------------------------- x x g0 x x g0/g1 x x g0/g1/g1.1 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_11.txt0000644000000000000000000000320212421456623017373 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 --------------------------- dset1:Valid_range = <<<< 1.f, 1.f ; >>>> 1.f, 2.f ; position dset2 dset2 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 [ 1 0 ] 100 0 100 [ 1 1 ] 0 100 100 [ 2 1 ] 100 50 50 --------------------------- Vdata Name: vdata1 (Data record comparison) > 0: V < 0: X --------------------------- Vdata Name: vdata2 (Data record comparison) > 0: 1 2 3 4 < 0: 1 1 1 1 --------------------------- Vdata Name: vdata3 (Data record comparison) > 0: 1.000000 2.000000 3.000000 4.000000 5.000000 6.000000 < 0: 1.000000 1.000000 1.000000 1.000000 1.000000 1.000000 --------------------------- Attr Name: File_contents < "Storm_track_data1" > "Storm_track_data2" libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_05.txt0000644000000000000000000000057512421456623017410 0ustar --------------------------- Vdata Name: vdata1 (Data record comparison) > 0: V < 0: X --------------------------- Vdata Name: vdata2 (Data record comparison) > 0: 1 2 3 4 < 0: 1 1 1 1 --------------------------- Vdata Name: vdata3 (Data record comparison) > 0: 1.000000 2.000000 3.000000 4.000000 5.000000 6.000000 < 0: 1.000000 1.000000 1.000000 1.000000 1.000000 1.000000 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_02.txt0000644000000000000000000000014212421456623017373 0ustar --------------------------- Attr Name: File_contents < "Storm_track_data1" > "Storm_track_data2" libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_07.txt0000644000000000000000000000050512421456623017403 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_06.txt0000644000000000000000000000323512421456623017405 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 Type: Integer4 Npts: 6 Ndiff: 3 (50.000000%) Avg Diff: 1.000000e+00 Max. Diff: 3 Range File1: 1/6 File2: 1/6 Regression N: 6 Slope: 6.727273e-01 Intercept: 1.818182e+00 R: 8.433083e-01 position dset2 dset2 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 Type: Integer4 Npts: 6 Ndiff: 3 (50.000000%) Avg Diff: 1.000000e+00 Max. Diff: 3 Range File1: 1/6 File2: 1/6 Regression N: 6 Slope: 6.727273e-01 Intercept: 1.818182e+00 R: 8.433083e-01 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 [ 1 0 ] 100 0 100 [ 1 1 ] 0 100 100 [ 2 1 ] 100 50 50 Type: Integer4 Npts: 6 Ndiff: 5 (83.333333%) Avg Diff: 4.833333e+01 Max. Diff: 100 Range File1: 0/100 File2: 0/120 Regression N: 6 Slope: 1.250000e-01 Intercept: 5.000000e+01 R: 1.271643e-01 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_04.txt0000644000000000000000000000212112421456623017374 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 position dset2 dset2 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 [ 1 0 ] 100 0 100 [ 1 1 ] 0 100 100 [ 2 1 ] 100 50 50 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst4.hdf0000644000000000000000000406235612421456623017656 0ustar ÈÛ§ j\B¾ Æ Ö Ø€« Xª \<­ ˜"« ºª ¾<­ ú!j½Ð5­ E2­ w.¥€%€¥€%€¥€%€ ¥€ %€ "¥€ %%€ '¥€*%€,¥€/%€1¥€4%€6¥€9%€;¥€>%€@¥€C%€E¥€H%€J¥€M%€O¥€R%€T¥€ W%€!Y¥€"\%€#^¥€$a%€%c¥€&f%€'h¥€(k%€)m¥€*p%€+r¥€,u%€-w¥€.z%€/|¥€0%€1¥€2„%€3†¥€4‰%€5‹¥€6Ž%€7¥€8“%€9•¥€:˜%€;š¥€<%€=Ÿ¥€>¢%€?¤¥€@§%€A©¥€B¬%€C®¥€D±%€E³¥€F¶%€G¸¥€H»%€I½¥€JÀ%€KÂ¥€LÅ%€MÇ¥€NÊ%€OÌ¥€PÏ%€QÑ¥€RÔ%€SÖ¥€TÙ%€UÛ¥€VÞ%€WीXã%€Y奀Zè%€[ꥀ\í%€]鹿^ò%€_ô¥€`÷%€aù¥€bü%€cþ¥€d%€e¥€f%€g¥€h %€i ¥€j%€k¥€l%€m¥€n%€o¥€p%€q!¥€r$%€s&¥€t)%€u+¥€v.%€w0¥€x3%€y5¥€z8%€{:¥€|=%€}?¥€~B%€D¥€€G%€I¥€‚L%ƒM'€„O§€…R'€†T§€‡W'€ˆY§€‰\'€Š^§€‹a'€Œc§€f'€Žh§€k'€m§€‘p'€’r§€“u'€”w§€•z'€–|§€—'€˜§€™„'€š†§€›‰'€œ‹§€Ž'€ž§€Ÿ“'€ •§€¡˜'€¢š§€£'€¤Ÿ§€¥¢'€¦¤§€§§'€¨©§€©¬'€ª®§€«±'€¬³§€­¶'€®¸§€¯»'€°½§€±À'€²§€³Å'€´ǧ€µÊ'€¶̧€·Ï'€¸ѧ€¹Ô'€ºÖ§€»Ù'€NCSA HDF Version 4.2 Release 1-post3, January 27, 2006T€€‚  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€                                                               ™¢ValuesfakeDim0 DimVal0.1ªfakeDim0UDim0.0 ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0 jjj¾j½Ñ­­¾j½Ðdata1Var0.0­­­ hdifftst4.hdfCDF0.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È×¼å €½ç€¾ê €¿ì€Àï €Áñ€Âô €Ãö€Äù €Åû€Æþ €Ç€È €É€Ê €Ë €Ì €Í€Î €Ï€Ð €Ñ€Ò €Ó€Ô! €Õ#€Ö& €×(€Ø+ €Ù-€Ú0 €Û2€Ü5 €Ý7€Þ: €ß<€à? €áA€âD €ãF€äI €åK€æN €çP€èS €éU€êX €ëZ€ì] €í_€îb €ïd€ðg €ñi€òl €ón€ôq €õs€öv €÷x€ø{ €ù}€ú€ €û‚€ü… €ý‡€þŠ €ÿŒ€ €‘€” €–—€š€œ€Ÿ€¡€ ¤€ ¦€ ©€ «€ ®€°€³€µ€¸€º€½€¿€Â€Ä€Ç€É€Ì€Î€Ñ€Ó€Ö€Ø€Û€ Ý€!à€"â€#å€$ç€%ê€&ì€'ï€(ñ€)ô€*ö€+ù€,û€-þ€.€/€0€1€2 €3 €4€5€6€7€8€9€:€;!€<#€=&€>(€?+€@-€A0€B2€C5€D7€E:€F<€G?€HA€ID€JF€KI€LK€MN€NP€OS€PU€QX€RZ€S]€T_€Ub€Vd€Wg€Xi€Yl€Zn€[q€\s€]v€^x€_{€`}€a€€b‚€c…€d‡€eŠ€fŒ€g€h‘€i”€j–€k™€l›€mž€n €o£€p¥€q¨€rª€s­€t¯€u²€v´€w·€x¹€y¼€z¾€{Á€|À}Æ€~Ȁˀ€Í€Ð€‚Ò€ƒÕ€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                „      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ÈÑù„àõ…á÷€†äw€‡æ÷€ˆéw€‰ë÷€Šîw€‹ð÷€Œów€õ÷€Žøw€ú÷€ýw€‘ÿ÷€’w€“÷€”w€• ÷€– w€—÷€˜w€™÷€šw€›÷€œw€÷€ž w€Ÿ"÷€ %w€¡'÷€¢*w€£,÷€¤/w€¥1÷€¦4w€§6÷€¨9w€©;÷€ª>w€«@÷€¬Cw€­E÷€®Hw€¯J÷€°Mw€±O÷€²Rw€³T÷€´Ww€µY÷€¶\w€·^÷€¸aw€¹c÷€ºfw€»h÷€¼kw€½m÷€¾pw€¿r÷€Àuw€Áw÷€Âzw€Ã|÷€Äw€Å÷€Æ„w€Ç†÷€È‰w€É‹÷€ÊŽw€Ë÷€Ì“w€Í•÷€Î˜w€Ïš÷€Ðw€ÑŸ÷€Ò¢w€Ó¤÷€Ô§w€Õ©÷€Ö¬w€×®÷€Ø±w€Ù³÷€Ú¶w€Û¸÷€Ü»w€Ý½÷€ÞÀw€ßÂ÷€àÅw€áÇ÷€âÊw€ãÌ÷€äÏw€åÑ÷€æÔw€çÖ÷€èÙw€éÛ÷€êÞw€ëà÷€ìãw€íå÷€îèw€ïê÷€ðíw€ñï÷€òòw€óô÷€ô÷w€õù÷€öüw€÷þ÷€øw€ù÷€úw€û÷€ü w€ý ÷€þw€ÿ÷€w€÷€w€÷€w€!÷"ù€%y€'ù€ *y€ ,ù€ /y€ 1ù€ 4y€6ù€9y€;ù€>y€@ù€Cy€Eù€Hy€Jù€My€Où€Ry€Tù€Wy€Yù€\y€^ù€ay€ cù€!fy€"hù€#ky€$mù€%py€&rù€'uy€(wù€)zy€*|ù€+y€,ù€-„y€.†ù€/‰y€0‹ù€1Žy€2ù€3“y€4•ù€5˜y€6šù€7y€8Ÿù€9¢y€:¤ù€;§y€<©ù€=¬y€>®ù€?±y€@³ù€A¶y€B¸ù€C»y€D½ù€EÀy€FÂù€GÅy€HÇù€IÊy€JÌù€KÏy€…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                †      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ÈÌcLÛ_€MÝ߀Nà_€Oâ߀På_€Qç߀Rê_€Sì߀Tï_€Uñ߀Vô_€Wö߀Xù_€Yû߀Zþ_€[߀\_€]߀^_€_ ߀` _€a߀b_€c߀d_€e߀f_€g߀h!_€i#߀j&_€k(߀l+_€m-߀n0_€o2߀p5_€q7߀r:_€s<߀t?_€uA߀vD_€wF߀xI_€yK߀zN_€{P߀|S_€}U߀~X_€Z߀€]_€_߀‚b_€ƒd߀„g_€…i߀†l_‡ma€ˆoဉra€Štဋwa€Œyá€|a€Ž~á€a€ƒá€‘†a€’ˆá€“‹a€”ပa€–’ဗ•a€˜—မša€šœá€›Ÿa€œ¡á€¤a€ž¦á€Ÿ©a€ «á€¡®a€¢°á€£³a€¤µá€¥¸a€¦ºá€§½a€¨¿á€©Âa€ªÄါÇa€¬ÉိÌa€®ÎုÑa€°ÓေÖa€²ØဳÛa€´Ýဵàa€¶â့åa€¸ç္êa€ºìျïa€¼ñွôa€¾öဿùa€Àûá€Áþa€Âá€Ãa€Äá€Åa€Æ á€Ç a€Èá€Éa€Êá€Ëa€Ìá€Ía€Îá€Ï!a€Ð#á€Ñ&a€Ò(á€Ó+a€Ô-á€Õ0a€Ö2á€×5a€Ø7á€Ù:a€Ú<á€Û?a€ÜAá€ÝDa€ÞFá€ßIa€àKá€áNa€âPá€ãSa€äUá€åXa€æZá€ç]a€è_á€éba€êdá€ëga€ìiá€íla€îná€ïqa€ðsá€ñva€òxá€ó{a€ô}á€õ€a€ö‚á€÷…a€ø‡á€ùŠa€úŒá€ûa€ü‘á€ý”a€þ–á€ÿ™a€›á€ža€ á€£a€¥á€¨a€ªá€­a®c€ °ã€ ³c€ µã€ ¸c€ ºã€½c€¿ã€Âc€Äã€Çc€É〠                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ˆ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È ÈKÕÉ€ØI€ÚÉ€ÝI€ßÉ€âI€äÉ€çI€éÉ€ìI€îÉ€ñI€ óÉ€!öI€"øÉ€#ûI€$ýÉ€%I€&É€'I€(É€) I€* É€+I€,É€-I€.É€/I€0É€1I€2 É€3#I€4%É€5(I€6*É€7-I€8/É€92I€:4É€;7I€<9É€=>É€?AI€@CÉ€AFI€BHÉ€CKI€DMÉ€EPI€FRÉ€GUI€HWÉ€IZI€J\É€K_I€LaÉ€MdI€NfÉ€OiI€PkÉ€QnI€RpÉ€SsI€TuÉ€UxI€VzÉ€W}I€XÉ€Y‚I€Z„É€[‡I€\‰É€]ŒI€^ŽÉ€_‘I€`“É€a–I€b˜É€c›I€dÉ€e I€f¢É€g¥I€h§É€iªI€j¬É€k¯I€l±É€m´I€n¶É€o¹I€p»É€q¾I€rÀÉ€sÃI€tÅÉ€uÈI€vÊÉ€wÍI€xÏÉ€yÒI€zÔÉ€{×I€|ÙÉ€}ÜI€~ÞÉ€áI€€ãÉ€æI€‚èÉ€ƒëI€„íÉ€…ðI€†òÉ€‡õI€ˆ÷ɉøË€ŠûK€‹ýË€Œ K€ Ë€Ž K€ Ë€ K€‘ Ë€’ K€“ Ë€” K€• Ë€– K€— Ë€˜ K€™ Ë€š #K€› %Ë€œ (K€ *Ë€ž -K€Ÿ /Ë€  2K€¡ 4Ë€¢ 7K€£ 9Ë€¤ Ë€¦ AK€§ CË€¨ FK€© HË€ª KK€« MË€¬ PK€­ RË€® UK€¯ WË€° ZK€± \Ë€² _K€³ aË€´ dK€µ fË€¶ iK€· kË€¸ nK€¹ pË€º sK€» uË€¼ xK€½ zË€¾ }K€¿ Ë€À ‚K€Á „Ë€ ‡K€à ‰Ë€Ä ŒK€Å ŽË€Æ ‘K€Ç “Ë€È –K€É ˜Ë€Ê ›K€Ë Ë€Ì  K€Í ¢Ë€Î ¥K€Ï §Ë€Ð ªK€Ñ ¬Ë€Ò ¯K€Ó ±Ë€Ô ´K€Õ ¶Ë€Ö ¹K€× »Ë€Ø ¾K€Ù ÀË€Ú ÃK€Û ÅË€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È ÂµÜ Ñ±€Ý Ô1€Þ Ö±€ß Ù1€à Û±€á Þ1€â à±€ã ã1€ä å±€å è1€æ ê±€ç í1€è ï±€é ò1€ê ô±€ë ÷1€ì ù±€í ü1€î þ±€ï 1€ð ±€ñ 1€ò ±€ó 1€ô ±€õ 1€ö ±€÷ 1€ø ±€ù 1€ú ±€û 1€ü !±€ý $1€þ &±€ÿ )1€ +±€ .1€ 0±€ 31€ 5±€ 81€ :±€ =1€ ?±€ B1 C3€ E³€ H3€ J³€ M3€ O³€ R3€ T³€ W3€ Y³€ \3€ ^³€ a3€ c³€ f3€ h³€ k3€ m³€ p3€ r³€ u3€ w³€ z3€! |³€" 3€# ³€$ „3€% †³€& ‰3€' ‹³€( Ž3€) ³€* “3€+ •³€, ˜3€- š³€. 3€/ Ÿ³€0 ¢3€1 ¤³€2 §3€3 ©³€4 ¬3€5 ®³€6 ±3€7 ³³€8 ¶3€9 ¸³€: »3€; ½³€< À3€= ³€> Å3€? dz€@ Ê3€A ̳€B Ï3€C ѳ€D Ô3€E Ö³€F Ù3€G Û³€H Þ3€I à³€J ã3€K å³€L è3€M ê³€N í3€O ï³€P ò3€Q ô³€R ÷3€S ù³€T ü3€U þ³€V 3€W ³€X 3€Y ³€Z 3€[ ³€\ 3€] ³€^ 3€_ ³€` 3€a ³€b 3€c !³€d $3€e &³€f )3€g +³€h .3€i 0³€j 33€k 5³€l 83€m :³€n =3€o ?³€p B3€q D³€r G3€s I³€t L3€u N³€v Q3€w S³€x V3€y X³€z [3€{ ]³€| `3€} b³€~ e3€ g³€€ j3€ l³€‚ o3€ƒ q³€„ t3€… v³€† y3€‡ {³€ˆ ~3€‰ €³€Š ƒ3‹ „5€Œ †µ€ ‰5€Ž ‹µ€ Ž5€ µ€‘ “5€’ •µ€“ ˜5€” šµ€• 5€– Ÿµ€— ¢5€˜ ¤µ€™ §5€š ©µ€› ¬5€œ ®µ€ ±5€ž ³µ€Ÿ ¶5€  ¸µ€¡ »5€¢ ½µ€£ À5€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Š     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  È ¾¤ Ì€¥ Λ€¦ Ñ€§ Ó›€¨ Ö€© Ø›€ª Û€« Ý›€¬ à€­ ⛀® 倯 盀° ꀱ 움²  ñ›€´ ô€µ ö›€¶ ù€· û›€¸ þ€¹ ›€º €» ›€¼ €½ ›€¾ €¿ ›€À €Á ›€ €à ›€Ä €Å ›€Æ !€Ç #›€È &€É (›€Ê +€Ë -›€Ì 0€Í 2›€Î 5€Ï 7›€Ð :€Ñ <›€Ò ?€Ó A›€Ô D€Õ F›€Ö I€× K›€Ø N€Ù P›€Ú S€Û U›€Ü X€Ý Z›€Þ ]€ß _›€à b€á d›€â g€ã i›€ä l€å n›€æ q€ç s›€è v€é x›€ê {€ë }›€ì €€í ‚›€î …€ï ‡›€ð Š€ñ Œ›€ò €ó ‘›€ô ”€õ –›€ö ™€÷ ››€ø ž€ù  ›€ú £€û ¥›€ü ¨€ý ª›€þ ­€ÿ ¯›€ ²€ ´›€ ·€ ¹›€ ¼€ ¾›€ Á€ Û€ Æ€ È›€ Ë€ Í› ΀ Ñ€ Ó€ Ö€ Ø€ Û€ Ý€ à€ â€ å€ ç€ ê€ ì€ ï€ ñ€ ô€ ö€ ù€ û€ þ€ €! €" €# €$ €% €& €' €( €) €* €+ €, €- !€. #€/ &€0 (€1 +€2 -€3 0€4 2€5 5€6 7€7 :€8 <€9 ?€: A€; D€< F€= I€> K€? N€@ P€A S€B U€C X€D Z€E ]€F _€G b€H d€I g€J i€K l€L n€M q€N s€O v€P x€Q {€R }€S €€T ‚€U …€V ‡€W Š€X Œ€Y €Z ‘€[ ”€\ –€] ™€^ ›€_ ž€`  €a £€b ¥€c ¨€d ª€e ­€f ¯€g ²€h ´€i ·€j ¹€k ¼€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Œ   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ȹl È€m ʃ€n Í€o σ€p Ò€q Ôƒ€r ×€s Ùƒ€t Ü€u Þƒ€v á€w ダx æ€y 胀z ë€{ 타| ð€} òƒ€~ õ€ ÷ƒ€€ ú€ üƒ€‚ ÿ€ƒƒ€„€…ƒ€† €‡ ƒ€ˆ€‰ƒ€Š€‹ƒ€Œ€Ž…€€ …€‘#€’%…€“(€”*…€•-€–/…€—2€˜4…€™7€š9…€›<€œ>…€A€žC…€ŸF€ H…€¡K€¢M…€£P€¤R…€¥U€¦W…€§Z€¨\…€©_€ªa…€«d€¬f…€­i€®k…€¯n€°p…€±s€²u…€³x€´z…€µ}€¶…€·‚€¸„…€¹‡€º‰…€»Œ€¼Ž…€½‘€¾“…€¿–€À˜…€Á›€Â…€Ã €Ä¢…€Å¥€Æ§…€Çª€È¬…€É¯€Ê±…€Ë´€Ì¶…€Í¹€Î»…€Ï¾€ÐÀ…€ÑÀÒÅ…€ÓÈ€ÔÊ…€ÕÍ€ÖÏ…€×Ò€ØÔ…€Ù×€ÚÙ…€ÛÜ€ÜÞ…€Ýá€Þã…€ßæ€àè…€áë€âí…€ãð€äò…€åõ€æ÷…€çú€èü…€éÿ€ê…€ë€ì…€í €î …€ï€ð…€ñ€ò…€ó€ô…€õ€ö…€÷"€ø$…€ù'€ú)…€û,€ü.…€ý1€þ3…€ÿ6€8…€;€=…€@€B…€E€G…€J€L…€ O€ Q…€ T€ V…€ YZ€\‡€_€a‡€d€f‡€i€k‡€n€p‡€s€u‡€x€z‡€}€‡€‚€„‡€ ‡€!‰‡€"Œ€#Ž‡€$‘€%“‡€&–€'˜‡€(›€)‡€* €+¢‡€,¥€-§‡€.ª€/¬‡€0¯€1±‡€2´€3¶‡€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ž‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È4Âm€5Äí€6Çm€7Éí€8Ìm€9Îí€:Ñm€;Óí€<Öm€=Øí€>Ûm€?Ýí€@àm€Aâí€Båm€Cçí€Dêm€Eìí€Fïm€Gñí€Hôm€Iöí€Jùm€Kûí€Lþm€Mí€Nm€Oí€Pm€Q í€R m€Sí€Tm€Uí€Vm€Wí€Xm€Yí€Z!m€[#í€\&m€](í€^+m€_-í€`0m€a2í€b5m€c7í€d:m€e<í€f?m€gAí€hDm€iFí€jIm€kKí€lNm€mPí€nSm€oUí€pXm€qZí€r]m€s_í€tbm€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst5.hdf0000644000000000000000000000562612421456623017650 0ustar È j\¾ ƾ Ú« îª ò8­ *« Gª K<­ ‡!j ¨½ ¬Ð º­ Ê-j ÷½ ûÐ ­ ,­ E2d wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1, February 17, 2005Valueslone DimVal0.1ªloneDim0.0ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0 j j ¾j ½ Ñ ­¾j½Ð loneVar0.0 j j ¾j ½ Ñ ­¾j½Ð  sdsVar0.0­­­­ hdifftst5.hdfCDF0.0created with HDF 4.2 Release 1libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst6.hdf0000644000000000000000000000562612421456623017651 0ustar È j\¾ ƾ Ú« îª ò8­ *« Gª K<­ ‡!j ¨½ ¬Ð º­ Ê-j ÷½ ûÐ ­ ,­ E2d wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1, February 17, 2005Valueslone DimVal0.1ªloneDim0.0ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0 j j ¾j ½ Ñ ­¾j½Ð loneVar0.0 j j ¾j ½ Ñ ­¾j½Ð  sdsVar0.0­­­­ hdifftst6.hdfCDF0.0created with HDF 4.2 Release 1libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst3.hdf0000644000000000000000000406235612421456623017655 0ustar ÈÛ§ j\B¾ Æ Ö Ø€« Xª \<­ ˜"« ºª ¾<­ ú!j½Ð5­ E2­ w.¥€%€¥€%€¥€%€ ¥€ %€ "¥€ %%€ '¥€*%€,¥€/%€1¥€4%€6¥€9%€;¥€>%€@¥€C%€E¥€H%€J¥€M%€O¥€R%€T¥€ W%€!Y¥€"\%€#^¥€$a%€%c¥€&f%€'h¥€(k%€)m¥€*p%€+r¥€,u%€-w¥€.z%€/|¥€0%€1¥€2„%€3†¥€4‰%€5‹¥€6Ž%€7¥€8“%€9•¥€:˜%€;š¥€<%€=Ÿ¥€>¢%€?¤¥€@§%€A©¥€B¬%€C®¥€D±%€E³¥€F¶%€G¸¥€H»%€I½¥€JÀ%€KÂ¥€LÅ%€MÇ¥€NÊ%€OÌ¥€PÏ%€QÑ¥€RÔ%€SÖ¥€TÙ%€UÛ¥€VÞ%€WीXã%€Y奀Zè%€[ꥀ\í%€]鹿^ò%€_ô¥€`÷%€aù¥€bü%€cþ¥€d%€e¥€f%€g¥€h %€i ¥€j%€k¥€l%€m¥€n%€o¥€p%€q!¥€r$%€s&¥€t)%€u+¥€v.%€w0¥€x3%€y5¥€z8%€{:¥€|=%€}?¥€~B%€D¥€€G%€I¥€‚L%ƒM'€„O§€…R'€†T§€‡W'€ˆY§€‰\'€Š^§€‹a'€Œc§€f'€Žh§€k'€m§€‘p'€’r§€“u'€”w§€•z'€–|§€—'€˜§€™„'€š†§€›‰'€œ‹§€Ž'€ž§€Ÿ“'€ •§€¡˜'€¢š§€£'€¤Ÿ§€¥¢'€¦¤§€§§'€¨©§€©¬'€ª®§€«±'€¬³§€­¶'€®¸§€¯»'€°½§€±À'€²§€³Å'€´ǧ€µÊ'€¶̧€·Ï'€¸ѧ€¹Ô'€ºÖ§€»Ù'€NCSA HDF Version 4.2 Release 1-post3, January 27, 2006T€€‚  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€                                                                ™¢ValuesfakeDim0 DimVal0.1ªfakeDim0UDim0.0 ValuesfakeDim1 DimVal0.1ªfakeDim1Dim0.0 jjj¾j½Ñ­­¾j½Ðdata1Var0.0­­­ hdifftst3.hdfCDF0.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È×¼å €½ç€¾ê €¿ì€Àï €Áñ€Âô €Ãö€Äù €Åû€Æþ €Ç€È €É€Ê €Ë €Ì €Í€Î €Ï€Ð €Ñ€Ò €Ó€Ô! €Õ#€Ö& €×(€Ø+ €Ù-€Ú0 €Û2€Ü5 €Ý7€Þ: €ß<€à? €áA€âD €ãF€äI €åK€æN €çP€èS €éU€êX €ëZ€ì] €í_€îb €ïd€ðg €ñi€òl €ón€ôq €õs€öv €÷x€ø{ €ù}€ú€ €û‚€ü… €ý‡€þŠ €ÿŒ€ €‘€” €–—€š€œ€Ÿ€¡€ ¤€ ¦€ ©€ «€ ®€°€³€µ€¸€º€½€¿€Â€Ä€Ç€É€Ì€Î€Ñ€Ó€Ö€Ø€Û€ Ý€!à€"â€#å€$ç€%ê€&ì€'ï€(ñ€)ô€*ö€+ù€,û€-þ€.€/€0€1€2 €3 €4€5€6€7€8€9€:€;!€<#€=&€>(€?+€@-€A0€B2€C5€D7€E:€F<€G?€HA€ID€JF€KI€LK€MN€NP€OS€PU€QX€RZ€S]€T_€Ub€Vd€Wg€Xi€Yl€Zn€[q€\s€]v€^x€_{€`}€a€€b‚€c…€d‡€eŠ€fŒ€g€h‘€i”€j–€k™€l›€mž€n €o£€p¥€q¨€rª€s­€t¯€u²€v´€w·€x¹€y¼€z¾€{Á€|À}Æ€~Ȁˀ€Í€Ð€‚Ò€ƒÕ€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                „      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ÈÑù„àõ…á÷€†äw€‡æ÷€ˆéw€‰ë÷€Šîw€‹ð÷€Œów€õ÷€Žøw€ú÷€ýw€‘ÿ÷€’w€“÷€”w€• ÷€– w€—÷€˜w€™÷€šw€›÷€œw€÷€ž w€Ÿ"÷€ %w€¡'÷€¢*w€£,÷€¤/w€¥1÷€¦4w€§6÷€¨9w€©;÷€ª>w€«@÷€¬Cw€­E÷€®Hw€¯J÷€°Mw€±O÷€²Rw€³T÷€´Ww€µY÷€¶\w€·^÷€¸aw€¹c÷€ºfw€»h÷€¼kw€½m÷€¾pw€¿r÷€Àuw€Áw÷€Âzw€Ã|÷€Äw€Å÷€Æ„w€Ç†÷€È‰w€É‹÷€ÊŽw€Ë÷€Ì“w€Í•÷€Î˜w€Ïš÷€Ðw€ÑŸ÷€Ò¢w€Ó¤÷€Ô§w€Õ©÷€Ö¬w€×®÷€Ø±w€Ù³÷€Ú¶w€Û¸÷€Ü»w€Ý½÷€ÞÀw€ßÂ÷€àÅw€áÇ÷€âÊw€ãÌ÷€äÏw€åÑ÷€æÔw€çÖ÷€èÙw€éÛ÷€êÞw€ëà÷€ìãw€íå÷€îèw€ïê÷€ðíw€ñï÷€òòw€óô÷€ô÷w€õù÷€öüw€÷þ÷€øw€ù÷€úw€û÷€ü w€ý ÷€þw€ÿ÷€w€÷€w€÷€w€!÷"ù€%y€'ù€ *y€ ,ù€ /y€ 1ù€ 4y€6ù€9y€;ù€>y€@ù€Cy€Eù€Hy€Jù€My€Où€Ry€Tù€Wy€Yù€\y€^ù€ay€ cù€!fy€"hù€#ky€$mù€%py€&rù€'uy€(wù€)zy€*|ù€+y€,ù€-„y€.†ù€/‰y€0‹ù€1Žy€2ù€3“y€4•ù€5˜y€6šù€7y€8Ÿù€9¢y€:¤ù€;§y€<©ù€=¬y€>®ù€?±y€@³ù€A¶y€B¸ù€C»y€D½ù€EÀy€FÂù€GÅy€HÇù€IÊy€JÌù€KÏy€…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                †      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ÈÌcLÛ_€MÝ߀Nà_€Oâ߀På_€Qç߀Rê_€Sì߀Tï_€Uñ߀Vô_€Wö߀Xù_€Yû߀Zþ_€[߀\_€]߀^_€_ ߀` _€a߀b_€c߀d_€e߀f_€g߀h!_€i#߀j&_€k(߀l+_€m-߀n0_€o2߀p5_€q7߀r:_€s<߀t?_€uA߀vD_€wF߀xI_€yK߀zN_€{P߀|S_€}U߀~X_€Z߀€]_€_߀‚b_€ƒd߀„g_€…i߀†l_‡ma€ˆoဉra€Štဋwa€Œyá€|a€Ž~á€a€ƒá€‘†a€’ˆá€“‹a€”ပa€–’ဗ•a€˜—မša€šœá€›Ÿa€œ¡á€¤a€ž¦á€Ÿ©a€ «á€¡®a€¢°á€£³a€¤µá€¥¸a€¦ºá€§½a€¨¿á€©Âa€ªÄါÇa€¬ÉိÌa€®ÎုÑa€°ÓေÖa€²ØဳÛa€´Ýဵàa€¶â့åa€¸ç္êa€ºìျïa€¼ñွôa€¾öဿùa€Àûá€Áþa€Âá€Ãa€Äá€Åa€Æ á€Ç a€Èá€Éa€Êá€Ëa€Ìá€Ía€Îá€Ï!a€Ð#á€Ñ&a€Ò(á€Ó+a€Ô-á€Õ0a€Ö2á€×5a€Ø7á€Ù:a€Ú<á€Û?a€ÜAá€ÝDa€ÞFá€ßIa€àKá€áNa€âPá€ãSa€äUá€åXa€æZá€ç]a€è_á€éba€êdá€ëga€ìiá€íla€îná€ïqa€ðsá€ñva€òxá€ó{a€ô}á€õ€a€ö‚á€÷…a€ø‡á€ùŠa€úŒá€ûa€ü‘á€ý”a€þ–á€ÿ™a€›á€ža€ á€£a€¥á€¨a€ªá€­a®c€ °ã€ ³c€ µã€ ¸c€ ºã€½c€¿ã€Âc€Äã€Çc€É〠                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ˆ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È ÈKÕÉ€ØI€ÚÉ€ÝI€ßÉ€âI€äÉ€çI€éÉ€ìI€îÉ€ñI€ óÉ€!öI€"øÉ€#ûI€$ýÉ€%I€&É€'I€(É€) I€* É€+I€,É€-I€.É€/I€0É€1I€2 É€3#I€4%É€5(I€6*É€7-I€8/É€92I€:4É€;7I€<9É€=>É€?AI€@CÉ€AFI€BHÉ€CKI€DMÉ€EPI€FRÉ€GUI€HWÉ€IZI€J\É€K_I€LaÉ€MdI€NfÉ€OiI€PkÉ€QnI€RpÉ€SsI€TuÉ€UxI€VzÉ€W}I€XÉ€Y‚I€Z„É€[‡I€\‰É€]ŒI€^ŽÉ€_‘I€`“É€a–I€b˜É€c›I€dÉ€e I€f¢É€g¥I€h§É€iªI€j¬É€k¯I€l±É€m´I€n¶É€o¹I€p»É€q¾I€rÀÉ€sÃI€tÅÉ€uÈI€vÊÉ€wÍI€xÏÉ€yÒI€zÔÉ€{×I€|ÙÉ€}ÜI€~ÞÉ€áI€€ãÉ€æI€‚èÉ€ƒëI€„íÉ€…ðI€†òÉ€‡õI€ˆ÷ɉøË€ŠûK€‹ýË€Œ K€ Ë€Ž K€ Ë€ K€‘ Ë€’ K€“ Ë€” K€• Ë€– K€— Ë€˜ K€™ Ë€š #K€› %Ë€œ (K€ *Ë€ž -K€Ÿ /Ë€  2K€¡ 4Ë€¢ 7K€£ 9Ë€¤ Ë€¦ AK€§ CË€¨ FK€© HË€ª KK€« MË€¬ PK€­ RË€® UK€¯ WË€° ZK€± \Ë€² _K€³ aË€´ dK€µ fË€¶ iK€· kË€¸ nK€¹ pË€º sK€» uË€¼ xK€½ zË€¾ }K€¿ Ë€À ‚K€Á „Ë€ ‡K€à ‰Ë€Ä ŒK€Å ŽË€Æ ‘K€Ç “Ë€È –K€É ˜Ë€Ê ›K€Ë Ë€Ì  K€Í ¢Ë€Î ¥K€Ï §Ë€Ð ªK€Ñ ¬Ë€Ò ¯K€Ó ±Ë€Ô ´K€Õ ¶Ë€Ö ¹K€× »Ë€Ø ¾K€Ù ÀË€Ú ÃK€Û ÅË€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È ÂµÜ Ñ±€Ý Ô1€Þ Ö±€ß Ù1€à Û±€á Þ1€â à±€ã ã1€ä å±€å è1€æ ê±€ç í1€è ï±€é ò1€ê ô±€ë ÷1€ì ù±€í ü1€î þ±€ï 1€ð ±€ñ 1€ò ±€ó 1€ô ±€õ 1€ö ±€÷ 1€ø ±€ù 1€ú ±€û 1€ü !±€ý $1€þ &±€ÿ )1€ +±€ .1€ 0±€ 31€ 5±€ 81€ :±€ =1€ ?±€ B1 C3€ E³€ H3€ J³€ M3€ O³€ R3€ T³€ W3€ Y³€ \3€ ^³€ a3€ c³€ f3€ h³€ k3€ m³€ p3€ r³€ u3€ w³€ z3€! |³€" 3€# ³€$ „3€% †³€& ‰3€' ‹³€( Ž3€) ³€* “3€+ •³€, ˜3€- š³€. 3€/ Ÿ³€0 ¢3€1 ¤³€2 §3€3 ©³€4 ¬3€5 ®³€6 ±3€7 ³³€8 ¶3€9 ¸³€: »3€; ½³€< À3€= ³€> Å3€? dz€@ Ê3€A ̳€B Ï3€C ѳ€D Ô3€E Ö³€F Ù3€G Û³€H Þ3€I à³€J ã3€K å³€L è3€M ê³€N í3€O ï³€P ò3€Q ô³€R ÷3€S ù³€T ü3€U þ³€V 3€W ³€X 3€Y ³€Z 3€[ ³€\ 3€] ³€^ 3€_ ³€` 3€a ³€b 3€c !³€d $3€e &³€f )3€g +³€h .3€i 0³€j 33€k 5³€l 83€m :³€n =3€o ?³€p B3€q D³€r G3€s I³€t L3€u N³€v Q3€w S³€x V3€y X³€z [3€{ ]³€| `3€} b³€~ e3€ g³€€ j3€ l³€‚ o3€ƒ q³€„ t3€… v³€† y3€‡ {³€ˆ ~3€‰ €³€Š ƒ3‹ „5€Œ †µ€ ‰5€Ž ‹µ€ Ž5€ µ€‘ “5€’ •µ€“ ˜5€” šµ€• 5€– Ÿµ€— ¢5€˜ ¤µ€™ §5€š ©µ€› ¬5€œ ®µ€ ±5€ž ³µ€Ÿ ¶5€  ¸µ€¡ »5€¢ ½µ€£ À5€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Š     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  È ¾¤ Ì€¥ Λ€¦ Ñ€§ Ó›€¨ Ö€© Ø›€ª Û€« Ý›€¬ à€­ ⛀® 倯 盀° ꀱ 움²  ñ›€´ ô€µ ö›€¶ ù€· û›€¸ þ€¹ ›€º €» ›€¼ €½ ›€¾ €¿ ›€À €Á ›€ €à ›€Ä €Å ›€Æ !€Ç #›€È &€É (›€Ê +€Ë -›€Ì 0€Í 2›€Î 5€Ï 7›€Ð :€Ñ <›€Ò ?€Ó A›€Ô D€Õ F›€Ö I€× K›€Ø N€Ù P›€Ú S€Û U›€Ü X€Ý Z›€Þ ]€ß _›€à b€á d›€â g€ã i›€ä l€å n›€æ q€ç s›€è v€é x›€ê {€ë }›€ì €€í ‚›€î …€ï ‡›€ð Š€ñ Œ›€ò €ó ‘›€ô ”€õ –›€ö ™€÷ ››€ø ž€ù  ›€ú £€û ¥›€ü ¨€ý ª›€þ ­€ÿ ¯›€ ²€ ´›€ ·€ ¹›€ ¼€ ¾›€ Á€ Û€ Æ€ È›€ Ë€ Í› ΀ Ñ€ Ó€ Ö€ Ø€ Û€ Ý€ à€ â€ å€ ç€ ê€ ì€ ï€ ñ€ ô€ ö€ ù€ û€ þ€ €! €" €# €$ €% €& €' €( €) €* €+ €, €- !€. #€/ &€0 (€1 +€2 -€3 0€4 2€5 5€6 7€7 :€8 <€9 ?€: A€; D€< F€= I€> K€? N€@ P€A S€B U€C X€D Z€E ]€F _€G b€H d€I g€J i€K l€L n€M q€N s€O v€P x€Q {€R }€S €€T ‚€U …€V ‡€W Š€X Œ€Y €Z ‘€[ ”€\ –€] ™€^ ›€_ ž€`  €a £€b ¥€c ¨€d ª€e ­€f ¯€g ²€h ´€i ·€j ¹€k ¼€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Œ   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ȹl È€m ʃ€n Í€o σ€p Ò€q Ôƒ€r ×€s Ùƒ€t Ü€u Þƒ€v á€w ダx æ€y 胀z ë€{ 타| ð€} òƒ€~ õ€ ÷ƒ€€ ú€ üƒ€‚ ÿ€ƒƒ€„€…ƒ€† €‡ ƒ€ˆ€‰ƒ€Š€‹ƒ€Œ€Ž…€€ …€‘#€’%…€“(€”*…€•-€–/…€—2€˜4…€™7€š9…€›<€œ>…€A€žC…€ŸF€ H…€¡K€¢M…€£P€¤R…€¥U€¦W…€§Z€¨\…€©_€ªa…€«d€¬f…€­i€®k…€¯n€°p…€±s€²u…€³x€´z…€µ}€¶…€·‚€¸„…€¹‡€º‰…€»Œ€¼Ž…€½‘€¾“…€¿–€À˜…€Á›€Â…€Ã €Ä¢…€Å¥€Æ§…€Çª€È¬…€É¯€Ê±…€Ë´€Ì¶…€Í¹€Î»…€Ï¾€ÐÀ…€ÑÀÒÅ…€ÓÈ€ÔÊ…€ÕÍ€ÖÏ…€×Ò€ØÔ…€Ù×€ÚÙ…€ÛÜ€ÜÞ…€Ýá€Þã…€ßæ€àè…€áë€âí…€ãð€äò…€åõ€æ÷…€çú€èü…€éÿ€ê…€ë€ì…€í €î …€ï€ð…€ñ€ò…€ó€ô…€õ€ö…€÷"€ø$…€ù'€ú)…€û,€ü.…€ý1€þ3…€ÿ6€8…€;€=…€@€B…€E€G…€J€L…€ O€ Q…€ T€ V…€ YZ€\‡€_€a‡€d€f‡€i€k‡€n€p‡€s€u‡€x€z‡€}€‡€‚€„‡€ ‡€!‰‡€"Œ€#Ž‡€$‘€%“‡€&–€'˜‡€(›€)‡€* €+¢‡€,¥€-§‡€.ª€/¬‡€0¯€1±‡€2´€3¶‡€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ž‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                È4Âm€5Äí€6Çm€7Éí€8Ìm€9Îí€:Ñm€;Óí€<Öm€=Øí€>Ûm€?Ýí€@àm€Aâí€Båm€Cçí€Dêm€Eìí€Fïm€Gñí€Hôm€Iöí€Jùm€Kûí€Lþm€Mí€Nm€Oí€Pm€Q í€R m€Sí€Tm€Uí€Vm€Wí€Xm€Yí€Z!m€[#í€\&m€](í€^+m€_-í€`0m€a2í€b5m€c7í€d:m€e<í€f?m€gAí€hDm€iFí€jIm€kKí€lNm€mPí€nSm€oUí€pXm€qZí€r]m€s_í€tbm€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_06w.txt0000644000000000000000000000325112421456623017572 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 Type: Integer4 Npts: 6 Ndiff: 3 (50.000000%) Avg Diff: 1.000000e+000 Max. Diff: 3 Range File1: 1/6 File2: 1/6 Regression N: 6 Slope: 6.727273e-001 Intercept: 1.818182e+000 R: 8.433083e-001 position dset2 dset2 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 [ 1 1 ] 1 4 3 Type: Integer4 Npts: 6 Ndiff: 3 (50.000000%) Avg Diff: 1.000000e+000 Max. Diff: 3 Range File1: 1/6 File2: 1/6 Regression N: 6 Slope: 6.727273e-001 Intercept: 1.818182e+000 R: 8.433083e-001 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 [ 1 0 ] 100 0 100 [ 1 1 ] 0 100 100 [ 2 1 ] 100 50 50 Type: Integer4 Npts: 6 Ndiff: 5 (83.333333%) Avg Diff: 4.833333e+001 Max. Diff: 100 Range File1: 0/100 File2: 0/120 Regression N: 6 Slope: 1.250000e-001 Intercept: 5.000000e+001 R: 1.271643e-001 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst1.hdf0000644000000000000000000000763012421456623017641 0ustar È j\¾ ƾ Þ¾ ö« ª <­ N!« oª s<­ ¯!« Ъ Ô<­ !« 1ª 5<­ q!« ’ª –<­ Ò!« óª ÷<­ 3!« Tª \=j ™½ Ð ³­ Ã6j ù½ ýÐ ­ #2j U½ YÐ o­ 2« ±ª Ã?­J«LªQJ«› ª»I«0ª4cÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006ddddValuesfakeDim0 DimVal0.1ªfakeDim0Dim0.0ValuesfakeDim1 DimVal0.1ª fakeDim1Dim0.0ValuesfakeDim2 DimVal0.1ª fakeDim2Dim0.0ValuesfakeDim3 DimVal0.1ªfakeDim3Dim0.0ValuesfakeDim4 DimVal0.1ªfakeDim4Dim0.0ValuesfakeDim5 DimVal0.1ªfakeDim5Dim0.0?€?€VALUES Valid_rangeAttr0.0 jjj¾j½Ñ­­ª¾j½Ð dset1Var0.0 jjj¾j½Ñ­­¾j½Ð dset2Var0.0 jjj¾j½Ñ­­¾j½Ðdset3Var0.0Storm_track_data1VALUES File_contentsAttr0.0 ­­­­­­­­­ª  hdifftst1.hdfCDF0.0VDATASingle-component Fieldvdata1 5x1 ArrayMulti-component Fieldvdata2 6x4 Array?€@@@@€@ @À@àAAA A0A@  PositionMass Temperaturevdata3 Particle Datalibhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_12.txt0000644000000000000000000000062712421456623017404 0ustar position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20% [ 0 1 ] 100 80 20% [ 1 0 ] 100 0 100% [ 1 1 ] 0 100 not comparable [ 2 1 ] 100 50 50% libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_09.txt0000644000000000000000000000141412421456623017405 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 position dset2 dset2 difference ------------------------------------------------------------ [ 0 1 ] 1 2 1 [ 1 0 ] 1 3 2 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdifftst7.hdf0000644000000000000000000000055412421456623017645 0ustar Ê\­&­?­TÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF Version 4.2 Release 1-post3, January 27, 2006­­g0­g1­g1.1libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_08.txt0000644000000000000000000000012712421456623017404 0ustar --------------------------- Vdata Name: vdata1 (Data record comparison) > 0: V < 0: X libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_10.txt0000644000000000000000000000151512421456623017377 0ustar position dset1 dset1 difference ------------------------------------------------------------ [ 1 1 ] 1 4 3 position dset2 dset2 difference ------------------------------------------------------------ [ 1 1 ] 1 4 3 position dset3 dset3 difference ------------------------------------------------------------ [ 0 0 ] 100 120 20 [ 0 1 ] 100 80 20 [ 1 0 ] 100 0 100 [ 1 1 ] 0 100 100 [ 2 1 ] 100 50 50 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_01.txt0000644000000000000000000000220712421456623017376 0ustar hdiff [-V] [-b] [-g] [-s] [-d] [-D] [-S] [-v var1[,...]] [-u var1[,...]] [-e count] [-t limit] [-p relative] file1 file2 [-V] Display version of the HDF4 library and exit [-b] Verbose mode [-g] Compare global attributes only [-s] Compare SD local attributes only [-d] Compare SD data only [-D] Compare Vdata data only [-S] Print statistics [-v var1[,...]] Compare SD data on variable(s) ,... only [-u var1[,...]] Compare vdata on variable(s) ,... only [-e count] Print difference up to count number for each variable [-t limit] Print difference when it is greater than limit [-p relative] Print difference when it is greater than a relative limit file1 File name of the first HDF file file2 File name of the second HDF file The 'count' value must be a positive integer The 'limit' and 'relative' values must be positive numbers The -t compare criteria is |a - b| > limit The -p compare criteria is |(b-a)/a| > relative Return codes: 0 (no differences found), 1 (differences found) libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_03.txt0000644000000000000000000000012212421456623017372 0ustar --------------------------- dset1:Valid_range = <<<< 1.f, 1.f ; >>>> 1.f, 2.f ; libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_13.txt0000644000000000000000000000420412421456623017400 0ustar position data1 data1 difference ------------------------------------------------------------ [ 30 0 ] 1 0 1 [ 30 1 ] 2 0 2 [ 30 2 ] 3 0 3 [ 30 3 ] 4 0 4 [ 30 4 ] 5 0 5 [ 30 5 ] 6 0 6 [ 30 6 ] 7 0 7 [ 30 7 ] 8 0 8 [ 30 8 ] 9 0 9 [ 30 9 ] 10 0 10 [ 52438 0 ] 1 0 1 [ 52438 1 ] 2 0 2 [ 52438 2 ] 3 0 3 [ 52438 3 ] 4 0 4 [ 52438 4 ] 5 0 5 [ 52438 5 ] 6 0 6 [ 52438 6 ] 7 0 7 [ 52438 7 ] 8 0 8 [ 52438 8 ] 9 0 9 [ 52438 9 ] 10 0 10 [ 104856 0 ] 1 0 1 [ 104856 1 ] 2 0 2 [ 104856 2 ] 3 0 3 [ 104856 3 ] 4 0 4 [ 104856 4 ] 5 0 5 [ 104856 5 ] 6 0 6 [ 104856 6 ] 7 0 7 [ 104856 7 ] 8 0 8 [ 104856 8 ] 9 0 9 [ 104856 9 ] 10 0 10 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testfiles/hdiff_14.txt0000644000000000000000000000100012421456623017370 0ustar position sds sds difference ------------------------------------------------------------ [ 1 ] 2 0 2 [ 2 ] 3 0 3 position lone lone difference ------------------------------------------------------------ [ 1 ] 2 0 2 [ 2 ] 3 0 3 libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_list.c0000644000000000000000000013140012421456623015530 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #include "mfhdf.h" #include "hdiff_list.h" static int is_reserved(char*vg_class); static char *get_path(char*path_name, char*obj_name); static int insert_an_data(int32 file_id, int32 ref_in, int32 tag_in, ann_type type, char *path); /*------------------------------------------------------------------------- * Function: hdiff_list * * Purpose: locate all HDF objects in the file and return a list of them * * Return: number of objects in the file * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 21, 2003 * * Description: * * A main loop is used to locate all the objects in the file. This loop preserves the * hierarchy of the file. The algorithm used is * 1) Obtain the number of lone VGroups in the HDF file. * 2) Do a loop for each one of these groups. In each iteration a table is updated * with the tag/reference pair of an object. * 2.1) Obtain the pairs of tag/references for the group * 2.2) Switch between the tag of the current object. Four cases are possible: * 1) Object is a group: recursively repeat the process (obtain the pairs of * tag/references for this group and do another tag switch). * Add the object to the table. * 2) Object is a dataset: Add the object to the table. * 3) Object is an image: Add the object to the table. * 4) Object is a vdata: Add the object to the table. * 3) Read all the HDF interfaces (SDS, GR and VS), checking for objects that are * already in the table (meaning they belong to a previous inspected group, * and should not be added). These objects belong to a root group. * 4) Read all global attributes and annotations. * *------------------------------------------------------------------------- */ uint32 hdiff_list (const char* fname, dtable_t *table, diff_dim_table_t *td1, diff_dim_table_t *td2, int *err) { int32 file_id=-1, sd_id=-1, gr_id=-1; /* open the file for read */ if ((file_id = Hopen (fname,DFACC_READ,(int16)0))==FAIL) { printf("Cannot open file <%s>\n",fname); goto out; } /* initialize the SD interface */ if ((sd_id = SDstart (fname, DFACC_READ))==FAIL) { printf( "Could not start SD for <%s>\n",fname); goto out; } /* initialize the GR interface */ if ((gr_id = GRstart (file_id))==FAIL) { printf( "Could not start GR for <%s>\n",fname); goto out; } /* iterate tru HDF interfaces */ if ( hdiff_list_vg (fname,file_id,sd_id,gr_id,table,td1,td2) < 0) goto out; if ( hdiff_list_gr (file_id,gr_id,table) < 0) goto out; if ( hdiff_list_sds(file_id,sd_id,table,td1,td2) < 0) goto out; if ( hdiff_list_vs (file_id,table) < 0) goto out; if ( hdiff_list_glb(sd_id,gr_id) < 0) goto out; if ( hdiff_list_an (file_id) < 0) goto out; /* close */ if (GRend (gr_id)==FAIL) { printf( "Failed to close GR interface <%s>\n", fname); goto out; } if (SDend (sd_id)==FAIL) { printf( "Failed to close SD interface <%s>\n", fname); goto out; } if (Hclose (file_id) == FAIL ) { printf( "Failed to close file <%s>\n", fname); goto out; } *err=0; return table->nobjs; out: if (sd_id!=-1) SDend(sd_id); if (gr_id!=-1) GRend(gr_id); if (file_id!=-1) Hclose(file_id); *err=1; return 0; } /*------------------------------------------------------------------------- * Function: hdiff_list_vg * * Purpose: locate all lone Vgroups in the file * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int hdiff_list_vg(const char* fname, int32 file_id, int32 sd_id, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */ { int32 vg_id; /* vgroup identifier */ int32 nlones = 0; /* number of lone vgroups */ int32 ntagrefs; /* number of tag/ref pairs in a vgroup */ int32 *ref_array=NULL;/* buffer to hold the ref numbers of lone vgroups */ int32 *tags=NULL; /* buffer to hold the tag numbers of vgroups */ int32 *refs=NULL; /* buffer to hold the ref numbers of vgroups */ int32 tag_vg; int32 ref_vg; char *vg_name; char *vg_class; uint16 name_len; int32 i; /* initialize the V interface */ if (Vstart (file_id)==FAIL) { printf("Error: Could not start group interface in <%s>\n", fname); return FAIL; } /* * get the names and class names of all the lone vgroups. * first, call Vlone with nlones set to 0 to get the number of * lone vgroups in the file, but not to get their reference numbers. */ nlones = Vlone (file_id, NULL, nlones ); if (nlones > 0) { /* * use the nlones returned to allocate sufficient space for the * buffer ref_array to hold the reference numbers of all lone vgroups, */ ref_array = (int32 *) malloc(sizeof(int32) * nlones); /* * and call Vlone again to retrieve the reference numbers into * the buffer ref_array. */ nlones = Vlone (file_id, ref_array, nlones); /* * iterate tru each lone vgroup. */ for (i = 0; i < nlones; i++) { int32 ref = ref_array[i]; /* * attach to the current vgroup then get its * name and class. note: the current vgroup must be detached before * moving to the next. */ if ((vg_id = Vattach (file_id, ref, "r"))==FAIL) { printf("Error: Could not attach group with ref <%ld>\n", ref); goto out; } if (Vgetnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name length for group with ref <%ld>\n", ref); goto out; } vg_name = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetname (vg_id, vg_name)==FAIL) { printf("Error: Could not get name for group with ref <%ld>\n", ref); goto out; } if (Vgetclassnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get classname length for group with ref <%ld>\n", ref); goto out; } vg_class = (char *) HDmalloc(sizeof(char) * (name_len+1)); if (Vgetclass (vg_id, vg_class)==FAIL) { printf("Error: Could not get class for group with ref <%ld>\n", ref); goto out; } /* ignore reserved HDF groups/vdatas */ if( is_reserved(vg_class)) { if (Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_class); goto out; } continue; } if(strcmp(vg_name,GR_NAME)==0) { if (Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_class); goto out; } continue; } /* get ref and tag */ if ((ref_vg = VQueryref(vg_id))==FAIL) { printf( "Failed to get ref for <%s>\n", vg_name); goto out; } if ((tag_vg = VQuerytag(vg_id))==FAIL) { printf( "Failed to get tag for <%s>\n", vg_name); goto out; } assert(tag_vg==DFTAG_VG); /* add object to table */ dtable_add(table,tag_vg,ref_vg,vg_name); insert_vg_attrs(vg_id,vg_name); insert_vg_an(file_id,vg_id,vg_name); /* insert objects for this group */ ntagrefs = Vntagrefs(vg_id); if ( ntagrefs > 0 ) { tags = (int32 *) malloc(sizeof(int32) * ntagrefs); refs = (int32 *) malloc(sizeof(int32) * ntagrefs); Vgettagrefs(vg_id, tags, refs, ntagrefs); insert_vg(fname, file_id, sd_id, gr_id, vg_name, tags, refs, ntagrefs, table, td1, td2); if (tags ) free (tags); if (refs) free (refs); } if(Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); goto out; } free (vg_name); } /* for */ /* free the space allocated */ if (ref_array) free (ref_array); } /* if */ /* terminate access to the V interface */ if (Vend (file_id)==FAIL) { printf("Error: Could not end group interface\n"); } return 0; out: Vend (file_id); if (ref_array) free (ref_array); return FAIL; } /*------------------------------------------------------------------------- * Function: insert_vg * * Purpose: recursive function to locate objects in Vgroups * *------------------------------------------------------------------------- */ int insert_vg(const char* fname, int32 file_id, int32 sd_id, /* SD interface identifier */ int32 gr_id, /* GR interface identifier */ char*path_name, /* absolute path for input group name */ int32* in_tags, /* tag list for parent group */ int32* in_refs, /* ref list for parent group */ int npairs, /* number tag/ref pairs for parent group */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */ { int32 vg_id, /* vgroup identifier */ ntagrefs, /* number of tag/ref pairs in a vgroup */ tag, /* temporary tag */ ref, /* temporary ref */ *tags, /* buffer to hold the tag numbers of vgroups */ *refs; /* buffer to hold the ref numbers of vgroups */ char *vg_name, *vg_class; char *path=NULL; int i; uint16 name_len; for ( i = 0; i < npairs; i++ ) { tag = in_tags[i]; ref = in_refs[i]; switch(tag) { /*------------------------------------------------------------------------- * VG *------------------------------------------------------------------------- */ case DFTAG_VG: /* check if already inserted */ if ( dtable_search(table,DFTAG_VG,ref)>=0 ) { break; } vg_id = Vattach (file_id, ref, "r"); if (Vgetnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get name length for group with ref <%ld>\n", ref); break; } vg_name = (char *) HDmalloc(sizeof(char) * (name_len+1)); Vgetname (vg_id, vg_name); if (Vgetclassnamelen(vg_id, &name_len)==FAIL) { printf("Error: Could not get classname length for group with ref <%ld>\n", ref); break; } vg_class = (char *) HDmalloc(sizeof(char) * (name_len+1)); Vgetclass (vg_id, vg_class); /* ignore reserved HDF groups/vdatas */ if( is_reserved(vg_class)) { Vdetach (vg_id); break; } if(strcmp(vg_name,GR_NAME)==0) { Vdetach (vg_id); break; } /* initialize path */ path=get_path(path_name,vg_name); /* add object to table */ dtable_add(table,tag,ref,path); insert_vg_attrs(vg_id,path); insert_vg_an(file_id,vg_id,path); /* get objects for this group */ ntagrefs = Vntagrefs(vg_id); if ( ntagrefs > 0 ) { tags = (int32 *) malloc(sizeof(int32) * ntagrefs); refs = (int32 *) malloc(sizeof(int32) * ntagrefs); Vgettagrefs(vg_id, tags, refs, ntagrefs); /* recurse */ insert_vg(fname, file_id, sd_id, gr_id, path, tags, refs, ntagrefs, table, td1, td2); free (tags); free (refs); } if(Vdetach (vg_id)==FAIL) { printf("Error: Could not detach group <%s>\n", vg_name); } if (path) free(path); break; /*------------------------------------------------------------------------- * SDS *------------------------------------------------------------------------- */ case DFTAG_SD: /* Scientific Data */ case DFTAG_SDG: /* Scientific Data Group */ case DFTAG_NDG: /* Numeric Data Group */ insert_sds(file_id, sd_id, tag, ref, path_name, table, td1, td2); break; /*------------------------------------------------------------------------- * Image *------------------------------------------------------------------------- */ case DFTAG_RI: /* Raster Image */ case DFTAG_CI: /* Compressed Image */ case DFTAG_RIG: /* Raster Image Group */ case DFTAG_RI8: /* Raster-8 image */ case DFTAG_CI8: /* RLE compressed 8-bit image */ case DFTAG_II8: /* IMCOMP compressed 8-bit image */ insert_gr(file_id,gr_id,tag,ref,path_name,table); break; /*------------------------------------------------------------------------- * Vdata *------------------------------------------------------------------------- */ case DFTAG_VH: /* Vdata Header */ insert_vs(file_id,ref,path_name,table,0); break; } } return 0; } /*------------------------------------------------------------------------- * Function: hdiff_list_gr * * Purpose: get top level GR images * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int hdiff_list_gr(int32 file_id, int32 gr_id, /* GR interface identifier */ dtable_t *table) { int32 ri_id, /* raster image identifier */ n_rimages, /* number of raster images in the file */ n_file_attrs, /* number of file attributes */ ri_index, /* index of a image */ gr_ref, /* reference number of the GR image */ dim_sizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode, /* interlace mode of an image */ data_type, /* number type of an image */ n_attrs; /* number of attributes belong to an image */ char name[H4_MAX_GR_NAME]; /* name of an image */ /* determine the contents of the file */ if (GRfileinfo (gr_id, &n_rimages, &n_file_attrs)<0) { return FAIL; } for (ri_index = 0; ri_index < n_rimages; ri_index++) { ri_id = GRselect (gr_id, ri_index); GRgetiminfo (ri_id, name, &n_comps, &data_type, &interlace_mode, dim_sizes, &n_attrs); gr_ref = GRidtoref(ri_id); /* check if already inserted in Vgroup; search all image tags */ if ( dtable_search(table,DFTAG_RI,gr_ref)>=0 || dtable_search(table,DFTAG_CI,gr_ref)>=0 || dtable_search(table,DFTAG_RIG,gr_ref)>=0 || dtable_search(table,DFTAG_RI8,gr_ref)>=0 || dtable_search(table,DFTAG_CI8,gr_ref)>=0 || dtable_search(table,DFTAG_II8,gr_ref)>=0 ) { GRendaccess (ri_id); continue; } /* insert GR */ insert_gr(file_id,gr_id,DFTAG_RI,gr_ref,0,table); /* terminate access to the current raster image */ GRendaccess (ri_id); } return SUCCEED; } /*------------------------------------------------------------------------- * Function: hdiff_list_sds * * Purpose: get top level SDS * * Return: SUCCEED, FAIL * *------------------------------------------------------------------------- */ int hdiff_list_sds(int32 file_id, int32 sd_id, /* SD interface identifier */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */ { int32 sds_id, /* dataset identifier */ n_datasets, /* number of datasets in the file */ n_file_attrs, /* number of file attributes */ index, /* index of a dataset */ sds_ref, /* reference number */ dim_sizes[H4_MAX_VAR_DIMS],/* dimensions of an image */ data_type, /* number type */ rank, /* rank */ n_attrs; /* number of attributes */ char name[H4_MAX_GR_NAME]; /* name of dataset */ /* determine the number of data sets in the file and the number of file attributes */ if (SDfileinfo (sd_id, &n_datasets, &n_file_attrs)<0) { return FAIL; } for (index = 0; index < n_datasets; index++) { sds_id = SDselect (sd_id, index); SDgetinfo(sds_id, name, &rank, dim_sizes, &data_type, &n_attrs); sds_ref = SDidtoref(sds_id); /* check if already inserted in Vgroup; search all SDS tags */ if ( dtable_search(table,DFTAG_SD,sds_ref)>=0 || dtable_search(table,DFTAG_SDG,sds_ref)>=0 || dtable_search(table,DFTAG_NDG,sds_ref)>=0 ) { SDendaccess (sds_id); continue; } /* insert SDS */ insert_sds(file_id, sd_id, DFTAG_NDG, sds_ref, 0, table, td1, td2); /* terminate access to the current dataset */ SDendaccess (sds_id); } return 0; } /*------------------------------------------------------------------------- * Function: hdiff_list_vs * * Purpose: get top level VS * *------------------------------------------------------------------------- */ int hdiff_list_vs(int32 file_id, dtable_t *table) { int32 nlones = 0, /* number of lone vdatas */ *ref_array, /* buffer to hold the ref numbers of lone vdatas */ ref; /* temporary ref number */ int i; /* initialize the VS interface */ Vstart (file_id); /* * get and print the names and class names of all the lone vdatas. * first, call Vlone with nlones set to 0 to get the number of * lone vdatas in the file, but not to get their reference numbers. */ nlones = VSlone (file_id, NULL, nlones ); if (nlones > 0) { /* * use the nlones returned to allocate sufficient space for the * buffer ref_array to hold the reference numbers of all lone vgroups, */ ref_array = (int32 *) malloc(sizeof(int32) * nlones); /* * and call VSlone again to retrieve the reference numbers into * the buffer ref_array. */ nlones = VSlone (file_id, ref_array, nlones); /* * iterate tru each lone vdata. */ for (i = 0; i < nlones; i++) { /* * attach to the current vdata then get its * name and class. note: the current vdata must be detached before * moving to the next. */ ref = ref_array[i]; /* check if already inserted in Vgroup*/ if ( dtable_search(table,DFTAG_VH,ref)>=0 ) { continue; } /* insert VS */ insert_vs(file_id,ref,0,table,1); } /* for */ /* free the space allocated */ if (ref_array) free (ref_array); } /* if */ /* terminate access to the VS interface */ Vend (file_id); return 0; } /*------------------------------------------------------------------------- * Function: insert_vg_attrs * * Purpose: insert VG attributes * *------------------------------------------------------------------------- */ int insert_vg_attrs(int32 vg_in, char *path) { int n_attrs; int32 data_type, size, n_values; char attr_name[H4_MAX_NC_NAME]; int i; /* Get the number of attributes attached to this vgroup. */ if((n_attrs = Vnattrs2 (vg_in))==FAIL) { printf( "Failed to get attributes for <%s>\n", path); return -1; } for (i = 0; i < n_attrs; i++) { if((Vattrinfo2 (vg_in, i, attr_name, &data_type, &n_values, &size, NULL, NULL))==FAIL) { printf( "Failed to get attribute %d of <%s>\n", i, path); continue; } } return 0; } /*------------------------------------------------------------------------- * Function: hdiff_list_glb * * Purpose: list/insert global SDS attributes, global GR atrributes * *------------------------------------------------------------------------- */ int hdiff_list_glb(int32 sd_id, /* SD interface identifier */ int32 gr_id) /* GR interface identifier */ { int32 n_datasets, /* number of datasets in the file */ n_file_attrs; /* number of file attributes */ /*------------------------------------------------------------------------- * insert SDS global attributes *------------------------------------------------------------------------- */ /* determine the number of data sets in the file and the number of file attributes */ SDfileinfo (sd_id, &n_datasets, &n_file_attrs); insert_sds_attrs(sd_id,n_file_attrs); /*------------------------------------------------------------------------- * insert GR global attributes *------------------------------------------------------------------------- */ /* determine the number of data sets in the file and the number of file attributes */ GRfileinfo (gr_id, &n_datasets, &n_file_attrs); insert_gr_attrs(gr_id,n_file_attrs); return 0; } /*------------------------------------------------------------------------- * Function: hdiff_list_an * * Purpose: list/insert AN FILE objects * *------------------------------------------------------------------------- */ int hdiff_list_an(int32 file_id) { int32 an_id, /* AN interface identifier */ ann_id, /* an annotation identifier */ i, /* position of an annotation in all of the same type*/ n_file_labels, n_file_descs, n_data_labels, n_data_descs; /* Initialize the AN interface */ an_id = ANstart (file_id); /* * Get the annotation information, e.g., the numbers of file labels, file * descriptions, data labels, and data descriptions. */ ANfileinfo (an_id, &n_file_labels, &n_file_descs, &n_data_labels, &n_data_descs); /*------------------------------------------------------------------------- * AN_FILE_LABEL *------------------------------------------------------------------------- */ for (i = 0; i < n_file_labels; i++) { /* Get the identifier of the current data label */ ann_id = ANselect (an_id, i, AN_FILE_LABEL); /* Terminate access to the current data label */ ANendaccess (ann_id); } /*------------------------------------------------------------------------- * AN_FILE_DESC *------------------------------------------------------------------------- */ for (i = 0; i < n_file_descs; i++) { /* Get the identifier of the current data label */ ann_id = ANselect (an_id, i, AN_FILE_DESC); /* Terminate access to the current data label */ ANendaccess (ann_id); } /* Terminate access to the AN interface */ ANend (an_id); return 0; } /*------------------------------------------------------------------------- * Function: insert_vg_an * * Purpose: insert Vgroup ANs * *------------------------------------------------------------------------- */ int insert_vg_an(int32 file_id, int32 vg_id, char *path) { int32 ref_in, tag_in; if ((ref_in = VQueryref(vg_id))==FAIL) { printf( "Failed to get ref for <%s>\n", path); return -1; } if ((tag_in = VQuerytag(vg_id))==FAIL){ printf( "Failed to get tag for <%s>\n", path); return -1; } insert_an(file_id,ref_in,tag_in,path); return 0; } /*------------------------------------------------------------------------- * Function: insert_vs_an * * Purpose: insert Vdata ANs * *------------------------------------------------------------------------- */ int insert_vs_an(int32 file_id, int32 vdata_id, char *path) { int32 ref_in, tag_in; if ((ref_in = VSQueryref(vdata_id))==FAIL) { printf( "Failed to get ref for <%s>\n", path); return-1; } if ((tag_in = VSQuerytag(vdata_id))==FAIL) { printf( "Failed to get tag for <%s>\n", path); return-1; } insert_an(file_id,ref_in,tag_in,path); return 1; } /*------------------------------------------------------------------------- * Function: insert_an_data * * Purpose: insert DATA ANs * *------------------------------------------------------------------------- */ static int insert_an_data(int32 file_id, int32 ref_in, int32 tag_in, ann_type type, char *path) { int32 an_id, /* AN interface identifier */ ann_id, /* an annotation identifier */ i, /* position of an annotation */ n_anno; /* Initialize the AN interface */ an_id = ANstart (file_id); /* Get the number of ANs in this object */ if((n_anno = ANnumann(an_id,type,(uint16)tag_in,(uint16)ref_in))==FAIL) { printf( "Failed to get annotations for <%s>\n", path); return -1; } for (i = 0; i < n_anno; i++) { if((ann_id = ANselect(an_id,i,type))==FAIL) { printf( "Failed to select AN %ld of <%s>\n", i, path); continue; } if(ANendaccess(ann_id)==FAIL) { printf( "Failed to end AN %ld of <%s>\n", i, path); continue; } } /* Terminate access to the AN interface */ ANend (an_id); return 0; } /*------------------------------------------------------------------------- * Function: insert_an * * Purpose: insert DATA ANs (AN_DATA_LABEL and AN_DATA_DESC) * *------------------------------------------------------------------------- */ int insert_an(int32 file_id, int32 ref_in, int32 tag_in, char *path) { insert_an_data(file_id,ref_in,tag_in,AN_DATA_LABEL,path); insert_an_data(file_id,ref_in,tag_in,AN_DATA_DESC,path); return 0; } /*------------------------------------------------------------------------- * Function: insert_sds * * Purpose: insert an SDS into file object list * * Return: 0, -1 for error * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 22, 2003 * * Modifications: pvn. July the 13 (Friday), 2007 * Add support for lone dimensions * *------------------------------------------------------------------------- */ int insert_sds(int32 file_id, int32 sd_id, int32 tag, /* tag of input SDS */ int32 ref, /* ref of input SDS */ char *path_name, /* absolute path for input group name */ dtable_t *table, /* all objects table */ diff_dim_table_t *td1, /* dimension table 1 */ diff_dim_table_t *td2) /* dimension table 2 */ { int32 sds_id, /* data set identifier */ sds_index, /* index number of the data set */ dtype, /* SDS data type */ dimsizes[H4_MAX_VAR_DIMS],/* dimensional size of SDS */ nattrs, /* number of SDS attributes */ rank, /* rank of SDS */ dim_size, /* dimension size */ dim_id; /* dimension ID */ char sds_name[H4_MAX_NC_NAME]; char dim_name[H4_MAX_NC_NAME]; char *path=NULL; int i; sds_index = SDreftoindex(sd_id,ref); sds_id = SDselect(sd_id,sds_index); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ SDgetinfo(sds_id,sds_name,&rank,dimsizes,&dtype,&nattrs); /* check if the given SDS is a dimension scale, return 0 for no table add */ if ( SDiscoordvar(sds_id) ) { /* add SDS coordinate variable to dimension table 1 */ diff_dim_table_add(td1,ref,sds_name); SDendaccess(sds_id); return 0; } /* initialize path */ path=get_path(path_name,sds_name); /* add object to table */ dtable_add(table,tag,ref,path); /*------------------------------------------------------------------------- * insert attributes *------------------------------------------------------------------------- */ insert_sds_attrs(sds_id,nattrs); /*------------------------------------------------------------------------- * dimension scales *------------------------------------------------------------------------- */ /* loop through each dimension up to rank of SDS */ for (i = 0; i < rank; i++) { /* get dimension handle for input dimension */ if ((dim_id = SDgetdimid(sds_id, i)) == FAIL) { printf( "Failed to get dimension %d of SDS <%s>\n", i, path); continue; } /* get dimension information for input dimension */ if (SDdiminfo(dim_id, dim_name, &dim_size, &dtype, &nattrs) == FAIL) { printf( "Failed to get info for dimension %d of SDS <%s>\n", i, path); continue; } /* attributes */ if (nattrs && insert_sds_attrs(dim_id, nattrs) == FAIL) { printf( "Failed to copy attributes for dimension %d of of SDS <%s>\n", i, path); continue; } /* add dimension name to dimension scales table 2 */ diff_dim_table_add(td2,-1,dim_name); } /*------------------------------------------------------------------------- * insert ANs *------------------------------------------------------------------------- */ insert_an(file_id,ref,tag,path); /*------------------------------------------------------------------------- * terminate access to the SDSs *------------------------------------------------------------------------- */ SDendaccess(sds_id); if (path) free(path); return 0; } /*------------------------------------------------------------------------- * Function: insert_sds_attrs * * Purpose: insert SDS attributes * used for global, dataset and dimension attributes * *------------------------------------------------------------------------- */ int insert_sds_attrs(int32 id_in, int32 nattrs) { int32 dtype, /* SDS data type */ nelms; /* number of elements */ char attr_name[H4_MAX_NC_NAME]; int i; /* loop through attributes in input SDS */ for (i = 0; i < nattrs; i++) { if (SDattrinfo (id_in, i, attr_name, &dtype, &nelms) == FAIL) { printf( "Cannot get info for attribute number %d\n", i); continue; } } return 0; } /*------------------------------------------------------------------------- * Function: insert_gr_attrs * * Purpose: insert GR attributes * *------------------------------------------------------------------------- */ int insert_gr_attrs(int32 ri_id, int32 nattrs) { int32 dtype, /* SDS data type */ nelms; /* number of elements */ char attr_name[H4_MAX_NC_NAME]; int i; /* loop through attributes in input GR */ for (i = 0; i < nattrs; i++) { if (GRattrinfo (ri_id, i, attr_name, &dtype, &nelms) == FAIL) { printf( "Cannot get info for attribute number %d\n", i); continue; } } return 0; } /*------------------------------------------------------------------------- * Function: insert_vs_attrs * * Purpose: insert VS attributes * *------------------------------------------------------------------------- */ int insert_vs_attrs(int32 in, int32 findex, intn attrindex) { char attr_name[H4_MAX_NC_NAME]; int32 n_values, attr_size, attr_type; /* Get attribute information */ VSattrinfo(in, findex, attrindex, attr_name, &attr_type, &n_values, &attr_size); return 0; } /*------------------------------------------------------------------------- * Function: insert_gr * * Purpose: insert a GR * *------------------------------------------------------------------------- */ int insert_gr(int32 file_id, int32 gr_in, int32 tag, /* tag of input GR */ int32 ref, /* ref of input GR */ char*path_name, /* absolute path for input group name */ dtable_t *table) { int32 ri_id, /* raster image identifier */ ri_index, /* index of a image */ dimsizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode,/* interlace mode of an image */ dtype, /* number type of an image */ n_attrs; /* number of attributes belong to an image */ int32 pal_id, /* palette identifier */ r_num_entries, r_data_type, r_ncomp, r_interlace_mode; char gr_name[H4_MAX_GR_NAME]; char *path=NULL; int has_pal = 0; ri_index = GRreftoindex(gr_in,(uint16)ref); ri_id = GRselect(gr_in,ri_index); GRgetiminfo(ri_id,gr_name,&n_comps,&dtype,&interlace_mode,dimsizes,&n_attrs); /* initialize path */ path=get_path(path_name,gr_name); /* add object to table */ dtable_add(table,tag,ref,path); /*------------------------------------------------------------------------- * insert attributes *------------------------------------------------------------------------- */ insert_gr_attrs(ri_id,n_attrs); /*------------------------------------------------------------------------- * check for palette *------------------------------------------------------------------------- */ pal_id = GRgetlutid(ri_id, 0); GRgetlutinfo(pal_id,&r_ncomp,&r_data_type,&r_interlace_mode,&r_num_entries); /*check if there is palette data */ has_pal=((r_ncomp == 0) || (r_interlace_mode < 0) || (r_num_entries == 0))?0:1; if ( has_pal==1 ) { } /* has_pal==1 */ /*------------------------------------------------------------------------- * insert ANs *------------------------------------------------------------------------- */ insert_an(file_id,ref,DFTAG_RIG,path); insert_an(file_id,ref,DFTAG_RI,path); /*------------------------------------------------------------------------- * terminate access to the GR *------------------------------------------------------------------------- */ /* terminate access to the GRs */ GRendaccess(ri_id); if (path) free(path); return 0; } /*------------------------------------------------------------------------- * Function: insert_vs * * Purpose: insert a VS * *------------------------------------------------------------------------- */ int insert_vs( int32 file_id, int32 ref, /* ref of input VS */ char*path_name, /* absolute path for input group name */ dtable_t *table, int is_lone) { int32 vdata_id, /* vdata identifier */ tag_vs, ref_vs; int n_fields, n_attrs; char vdata_name [VSNAMELENMAX], vdata_class[VSNAMELENMAX]; char *path=NULL; int i, j, ret=1; /*------------------------------------------------------------------------- * attach the vdata, gets its name and class *------------------------------------------------------------------------- */ if ((vdata_id = VSattach (file_id, ref, "r")) == FAIL ) { printf( "Failed to attach vdata ref %ld\n", ref); return-1; } if (VSgetname (vdata_id, vdata_name) == FAIL ) { printf( "Failed to name for vdata ref %ld\n", ref); return-1; } if (VSgetclass (vdata_id, vdata_class) == FAIL ) { printf( "Failed to name for vdata ref %ld\n", ref); return-1; } /* ignore reserved HDF groups/vdatas; they are lone ones */ if( is_lone==1 && vdata_class != NULL) { if( is_reserved(vdata_class)) { if (VSdetach (vdata_id) == FAIL ) printf( "Failed to detach vdata <%s>\n", path_name); return 0; } } if ((ref_vs = VSQueryref(vdata_id))==FAIL) { printf( "Failed to get ref for <%s>\n", vdata_name); } if ((tag_vs = VSQuerytag(vdata_id))==FAIL) { printf( "Failed to get tag for <%s>\n", vdata_name); } /* initialize path */ path=get_path(path_name,vdata_name); /* add object to table */ dtable_add(table,tag_vs,ref_vs,path); /*------------------------------------------------------------------------- * fields *------------------------------------------------------------------------- */ if ((n_fields = VFnfields(vdata_id)) == FAIL ) { printf( "Failed getting fields for VS <%s>\n", path); ret=-1; goto out; } /*------------------------------------------------------------------------- * insert attributes *------------------------------------------------------------------------- */ if ((n_attrs = VSfnattrs( vdata_id, -1 )) == FAIL ) { printf( "Failed getting attributes for VS <%s>\n", path); ret=-1; goto out; } for (i = 0; i < n_attrs; i++) { insert_vs_attrs(vdata_id, -1, i); } /*------------------------------------------------------------------------- * insert field attributes *------------------------------------------------------------------------- */ for (i = 0; i < n_fields; i++) { if ((n_attrs = VSfnattrs(vdata_id, i)) == FAIL ) { printf( "Failed getting fields for VS <%s>\n", path); ret=-1; goto out; } for (j = 0; j < n_attrs; j++) { insert_vs_attrs(vdata_id, i, j); } } /*------------------------------------------------------------------------- * insert ANs *------------------------------------------------------------------------- */ insert_vs_an(file_id,vdata_id,path); /*------------------------------------------------------------------------- * terminate access to the VSs *------------------------------------------------------------------------- */ out: VSdetach (vdata_id); if (path) free(path); return ret; } /*------------------------------------------------------------------------- * Function: is_reserved * * Purpose: check for reserved Vgroup/Vdata class/names * * Return: 1 if reserved, 0 if not * *------------------------------------------------------------------------- */ static int is_reserved(char*vg_class) { int ret=0; /* ignore reserved HDF groups/vdatas */ if(vg_class != NULL) { if( (strcmp(vg_class,_HDF_ATTRIBUTE)==0) || (strcmp(vg_class,_HDF_VARIABLE) ==0) || (strcmp(vg_class,_HDF_DIMENSION)==0) || (strcmp(vg_class,_HDF_UDIMENSION)==0) || (strcmp(vg_class,DIM_VALS)==0) || (strcmp(vg_class,DIM_VALS01)==0) || (strcmp(vg_class,_HDF_CDF)==0) || (strcmp(vg_class,GR_NAME)==0) || (strcmp(vg_class,RI_NAME)==0) || (strcmp(vg_class,RIGATTRNAME)==0) || (strcmp(vg_class,RIGATTRCLASS)==0) ){ ret=1; } /* class and name(partial) for chunk table i.e. Vdata */ if( (strncmp(vg_class,"_HDF_CHK_TBL_",13)==0)) { ret=1; } } return ret; } /*------------------------------------------------------------------------- * Function: get_path * * Purpose: return absolute path for an object * * Return: path * *------------------------------------------------------------------------- */ static char *get_path(char*path_name, char*obj_name) { char *path=NULL; /* initialize path */ if (path_name!=NULL) { path = (char*) malloc(strlen(path_name) + strlen(obj_name) + 2); strcpy( path, path_name ); strcat( path, "/" ); strcat( path, obj_name ); } else { path = (char*) malloc(strlen(obj_name) + 1); strcpy( path, obj_name ); } return path; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/testhdiff.sh.in0000755000000000000000000001034612421456623016202 0ustar #! /bin/sh # Tests for the hdiff tool srcdir=@srcdir@ HDIFF=hdiff # The tool name HDIFF_BIN=`pwd`/$HDIFF # The path of the tool binary CMP='cmp -s' DIFF='diff -c' nerrors=0 verbose=yes test -d testfiles || mkdir testfiles # Print message with formats according to message level ($1) MESG() { level=$1 shift case $level in 0) echo '=============================' echo $* echo '=============================' ;; 3) echo '-----------------------------' echo $* echo '-----------------------------' ;; 6) echo "*** $* ***" ;; *) echo "MESG(): Unknown level ($level)" exit 1 ;; esac } # Report the result and exit FINISH() { if [ $nerrors -eq 0 ] then MESG 0 "All hdiff tests passed" else MESG 0 "hdiff tests failed: $nerrors" fi exit $nerrors } # Print a line-line message left justified in a field of 70 characters # beginning with the word "Testing". # TESTING() { SPACES=" " echo "Testing $* $SPACES" | cut -c1-70 | tr -d '\012' } # Run a test and print PASS or *FAIL*. If a test fails then increment # the `nerrors' global variable and (if $verbose is set) display the # difference between the actual output and the expected output. The # expected output is given as the first argument to this function and # the actual output file is calculated by replacing the `.ddl' with # `.out'. The actual output is not removed if $HDF5_NOCLEANUP has a # non-zero value. # TOOLTEST() { expect="$srcdir/testfiles/$1" actual="testfiles/`basename $1 .txt`.out" actual_err="testfiles/`basename $1 .txt`.err" shift # Run test. # Tflops interprets "$@" as "" when no parameter is given (e.g., the # case of missing file name). Changed it to use $@ till Tflops fixes it. TESTING $HDIFF $@ ( cd $srcdir/testfiles if [ "`uname -s`" = "TFLOPS O/S" ]; then ${TESTS_ENVIRONMENT} $HDIFF_BIN $@ else ${TESTS_ENVIRONMENT} $HDIFF_BIN "$@" fi ) >$actual 2>$actual_err cat $actual_err >> $actual # Used only to create the output file; uncomment to create if [ ! -f $expect ]; then # Create the expected file if it doesn't yet exist. echo " CREATED" cp $actual $expect # elif elif $CMP $expect $actual; then echo " PASSED" else echo "*FAILED*" echo " Expected result (*.txt) differs from actual result (*.out)" nerrors="`expr $nerrors + 1`" test yes = "$verbose" && $DIFF $expect $actual |sed 's/^/ /' fi # Clean up output file if test -z "$HDF4_NOCLEANUP"; then rm -f $actual $actual_err fi } RUN() { # help message TOOLTEST hdiff_01.txt # Compare global attributes only TOOLTEST hdiff_02.txt -g hdifftst1.hdf hdifftst2.hdf # Compare SD local attributes only TOOLTEST hdiff_03.txt -s hdifftst1.hdf hdifftst2.hdf # Compare SD data only TOOLTEST hdiff_04.txt -d hdifftst1.hdf hdifftst2.hdf # Compare Vdata data only TOOLTEST hdiff_05.txt -D hdifftst1.hdf hdifftst2.hdf # Print statistics TOOLTEST hdiff_06.txt -d -S hdifftst1.hdf hdifftst2.hdf # Compare SD data on variable(s) TOOLTEST hdiff_07.txt -d -v dset1 hdifftst1.hdf hdifftst2.hdf # Compare vdata on variable(s) TOOLTEST hdiff_08.txt -D -u vdata1 hdifftst1.hdf hdifftst2.hdf # Print difference up to count number TOOLTEST hdiff_09.txt -d -e 2 hdifftst1.hdf hdifftst2.hdf # Print difference when it is greater than limit TOOLTEST hdiff_10.txt -d -t 2 hdifftst1.hdf hdifftst2.hdf # no options TOOLTEST hdiff_11.txt hdifftst1.hdf hdifftst2.hdf # percent (relative) TOOLTEST hdiff_12.txt -d -p 0.05 -v dset3 hdifftst1.hdf hdifftst2.hdf # hyperslab reading TOOLTEST hdiff_13.txt hdifftst3.hdf hdifftst4.hdf # lone dim TOOLTEST hdiff_14.txt hdifftst5.hdf hdifftst6.hdf # group loop TOOLTEST hdiff_15.txt -b hdifftst7.hdf hdifftst7.hdf } ############################################################################## ### T H E T E S T S ### ############################################################################## # Print a beginning banner MESG 0 "Running hdiff tests" # compare output RUN # End of test, return exit code FINISH libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/CMakeTests.cmake0000644000000000000000000002030212421456623016254 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # -------------------------------------------------------------------- # This executable is used to generate test files for the hdiff tests. # It should only be run during development when new test files are needed # -------------------------------------------------------------------- IF (HDF4_BUILD_GENERATORS AND NOT BUILD_SHARED_LIBS) SET (hdifftst_SRCS ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/hdifftst.c ) ADD_EXECUTABLE (hdifftst ${hdifftst_SRCS}) TARGET_C_PROPERTIES (hdifftst " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdifftst ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (hdifftst ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (hdifftst ${LIB_TYPE}) # Remove any output file left over from previous test run ADD_TEST ( NAME HDIFF-GEN-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove hdifftst1.hdf hdifftst2.hdf hdifftst3.hdf hdifftst4.hdf hdifftst5.hdf hdifftst6.hdf hdifftst7.hdf ) SET (last_test "HDIFF-GEN-clearall-objects") ADD_TEST (NAME hdifftst COMMAND $) SET_TESTS_PROPERTIES (hdifftst PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) SET (last_test "hdifftst") ENDIF (HDF4_BUILD_GENERATORS AND NOT BUILD_SHARED_LIBS) MACRO (ADD_H4_TEST resultfile resultcode) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HDIFF-${resultfile} COMMAND $ ${ARGN}) IF (NOT ${resultcode} STREQUAL "0") SET_TESTS_PROPERTIES (HDIFF-${resultfile} PROPERTIES LABELS ${PROJECT_NAME} WILL_FAIL "true") ELSE (NOT ${resultcode} STREQUAL "0") SET_TESTS_PROPERTIES (HDIFF-${resultfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT ${resultcode} STREQUAL "0") ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HDIFF-${resultfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}/testfiles" -D "TEST_OUTPUT=${resultfile}.out" -D "TEST_EXPECT=${resultcode}" -D "TEST_REFERENCE=${resultfile}.txt" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDIFF-${resultfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDIFF-${resultfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDIFF-${resultfile}") ENDMACRO (ADD_H4_TEST file) #-- Copy all the data files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES hdifftst1.hdf hdifftst2.hdf hdifftst3.hdf hdifftst4.hdf hdifftst5.hdf hdifftst6.hdf hdifftst7.hdf ) SET (HDF4_REFERENCE_FILES hdiff_01.txt hdiff_02.txt hdiff_03.txt hdiff_04.txt hdiff_05.txt # hdiff_06.txt hdiff_07.txt hdiff_08.txt hdiff_09.txt hdiff_10.txt hdiff_11.txt hdiff_12.txt hdiff_13.txt hdiff_14.txt hdiff_15.txt ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/testfiles/${h4_file}") #MESSAGE(STATUS " Copying ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/testfiles/") ADD_CUSTOM_COMMAND ( TARGET hdiff POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) FOREACH (out_file ${HDF4_REFERENCE_FILES}) SET (outdest "${PROJECT_BINARY_DIR}/testfiles/${out_file}") #MESSAGE (STATUS " Translating ${out_file}") ADD_CUSTOM_COMMAND ( TARGET hdiff POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/testfiles/${out_file} ${outdest} ) ENDFOREACH (out_file ${HDF4_REFERENCE_FILES}) IF (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdiff POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/testfiles/hdiff_06w.txt ${PROJECT_BINARY_DIR}/testfiles/hdiff_06.txt ) ELSE (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdiff POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_HDIFF_SOURCE_DIR}/testfiles/hdiff_06.txt ${PROJECT_BINARY_DIR}/testfiles/hdiff_06.txt ) ENDIF (WIN32 AND NOT CYGWIN) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME HDIFF-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove hdiff_01.out hdiff_02.out hdiff_03.out hdiff_04.out hdiff_05.out hdiff_06.out hdiff_07.out hdiff_08.out hdiff_09.out hdiff_10.out hdiff_11.out hdiff_12.out hdiff_13.out hdiff_14.out hdiff_15.out hdiff_01.out.err hdiff_02.out.err hdiff_03.out.err hdiff_04.out.err hdiff_05.out.err hdiff_06.out.err hdiff_07.out.err hdiff_08.out.err hdiff_09.out.err hdiff_10.out.err hdiff_11.out.err hdiff_12.out.err hdiff_13.out.err hdiff_14.out.err hdiff_15.out.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDIFF-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDIFF-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDIFF-clearall-objects") # help message ADD_H4_TEST (hdiff_01 1) # Compare global attributes only ADD_H4_TEST (hdiff_02 1 -g hdifftst1.hdf hdifftst2.hdf) # Compare SD local attributes only ADD_H4_TEST (hdiff_03 1 -s hdifftst1.hdf hdifftst2.hdf) # Compare SD data only ADD_H4_TEST (hdiff_04 1 -d hdifftst1.hdf hdifftst2.hdf) # Compare Vdata data only ADD_H4_TEST (hdiff_05 1 -D hdifftst1.hdf hdifftst2.hdf) # Print statistics ADD_H4_TEST (hdiff_06 1 -d -S hdifftst1.hdf hdifftst2.hdf) # Compare SD data on variable(s) ADD_H4_TEST (hdiff_07 1 -d -v dset1 hdifftst1.hdf hdifftst2.hdf) # Compare vdata on variable(s) ADD_H4_TEST (hdiff_08 1 -D -u vdata1 hdifftst1.hdf hdifftst2.hdf) # Print difference up to count number ADD_H4_TEST (hdiff_09 1 -d -e 2 hdifftst1.hdf hdifftst2.hdf) # Print difference when it is greater than limit ADD_H4_TEST (hdiff_10 1 -d -t 2 hdifftst1.hdf hdifftst2.hdf) # no options ADD_H4_TEST (hdiff_11 1 hdifftst1.hdf hdifftst2.hdf) # percent (relative) ADD_H4_TEST (hdiff_12 1 -d -p 0.05 -v dset3 hdifftst1.hdf hdifftst2.hdf) # hyperslab reading ADD_H4_TEST (hdiff_13 0 hdifftst3.hdf hdifftst4.hdf) # lone dim ADD_H4_TEST (hdiff_14 1 hdifftst5.hdf hdifftst6.hdf) # group loop ADD_H4_TEST (hdiff_15 0 -b hdifftst7.hdf hdifftst7.hdf) libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_vs.c0000644000000000000000000002466112421456623015217 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdiff.h" #include "hdiff_list.h" #include "hdiff_mattbl.h" #include "hdf.h" #include "mfhdf.h" #include "hdiff.h" #include "vgint.h" static void fmt_print(uint8 *x, int32 type); static uint32 vdata_cmp(int32 vs1, int32 vs2, char *gname, char *cname, diff_opt_t * opt); /*------------------------------------------------------------------------- * Function: diff_vs * * Purpose: diff for VS * * Return: Number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 26, 2003 * *------------------------------------------------------------------------- */ uint32 diff_vs( int32 file1_id, int32 file2_id, int32 ref1, int32 ref2, diff_opt_t * opt) { int32 vdata1_id, /* vdata identifier */ n_records1, /* number of records */ vdata1_size, interlace1_mode, vdata2_id=-1, /* vdata identifier */ n_records2, /* number of records */ vdata2_size, interlace2_mode; char vdata1_name [VSNAMELENMAX]; char vdata1_class[VSNAMELENMAX]; char fieldname1_list[VSFIELDMAX*FIELDNAMELENMAX]; char vdata2_name [VSNAMELENMAX]; char vdata2_class[VSNAMELENMAX]; char fieldname2_list[VSFIELDMAX*FIELDNAMELENMAX]; uint32 nfound=0; /*------------------------------------------------------------------------- * object 1 *------------------------------------------------------------------------- */ if (Vstart (file1_id)==FAIL) { printf("Error: Could not start VS interface in VS ref %ld\n", ref1); goto out; } if ((vdata1_id = VSattach (file1_id, ref1, "r")) == FAIL ){ printf( "Failed to attach VS ref %ld\n", ref1); goto out; } if (VSgetname (vdata1_id, vdata1_name) == FAIL ){ printf( "Failed to name for VS ref %ld\n", ref1); goto out; } if (VSgetclass (vdata1_id, vdata1_class) == FAIL ){ printf( "Failed to name for VS ref %ld\n", ref1); goto out; } if (VSinquire(vdata1_id, &n_records1, &interlace1_mode, fieldname1_list, &vdata1_size, vdata1_name) == FAIL) { printf( "Failed to get info for VS ref %ld\n", ref1); goto out; } if (VFnfields(vdata1_id)== FAIL ){ printf( "Failed getting fields forVS ref %ld\n", ref1); goto out; } /*------------------------------------------------------------------------- * object 2 *------------------------------------------------------------------------- */ if (Vstart (file2_id)==FAIL) { printf("Error: Could not start VS interface in VS ref %ld\n", ref1); goto out; } if ((vdata2_id = VSattach (file2_id, ref2, "r")) == FAIL ){ printf( "Failed to attach VS ref %ld\n", ref2); goto out; } if (VSgetname (vdata2_id, vdata2_name) == FAIL ){ printf( "Failed to name for VS ref %ld\n", ref2); goto out; } if (VSgetclass (vdata2_id, vdata2_class) == FAIL ){ printf( "Failed to name for VS ref %ld\n", ref2); goto out; } if (VSinquire(vdata2_id, &n_records2, &interlace2_mode, fieldname2_list, &vdata2_size, vdata2_name) == FAIL) { printf( "Failed to get info for VS ref %ld\n", ref2); goto out; } if (VFnfields(vdata2_id)== FAIL ){ printf( "Failed getting fields forVS ref %ld\n", ref2); goto out; } /*------------------------------------------------------------------------- * check for input VSs *------------------------------------------------------------------------- */ if (opt->nuvars > 0) /* if specified vdata is selected */ { int imatch = 0, j; for (j = 0; j < opt->nuvars; j++) { if (strcmp(vdata1_name, opt->uvars[j]) == 0) { imatch = 1; break; } } if (imatch == 0) { goto do_nothing; } } /*------------------------------------------------------------------------- * Comparing *------------------------------------------------------------------------- */ if (opt->verbose) printf("Comparing <%s>\n",vdata1_name); nfound=vdata_cmp(vdata1_id,vdata2_id,vdata1_name,vdata1_class,opt); do_nothing: /* terminate access to the VSs */ if (VSdetach (vdata1_id)==FAIL) { printf( "Failed to dettach VS ref %ld\n", ref1); goto out; } if (vdata2_id!=-1) { if (VSdetach (vdata2_id)==FAIL) { printf( "Failed to dettach VS ref %ld\n", ref2); goto out; } } return nfound; out: opt->err_stat = 1; return 0; } /*------------------------------------------------------------------------- * Function: vdata_cmp * * Purpose: compare vdata * *------------------------------------------------------------------------- */ static uint32 vdata_cmp(int32 vs1, int32 vs2, char *gname, char *cname, diff_opt_t * opt) { int32 i, j, k, iflag; uint32 err_cnt; int32 nv1, interlace1, vsize1; int32 vsotag1; char fields1[VSFIELDMAX*FIELDNAMELENMAX]; char vsclass1[VSNAMELENMAX], vsname1[VSNAMELENMAX]; int32 nv2, interlace2, vsize2; int32 vsotag2; char fields2[VSFIELDMAX*FIELDNAMELENMAX]; char vsclass2[VSNAMELENMAX], vsname2[VSNAMELENMAX]; uint8 *buf1, *buf2, *b1, *b2; int32 off1[60], off2[60]; DYN_VWRITELIST *w1, *w2; uint32 nfound=0; uint32 max_err_cnt = opt->max_err_cnt; VSinquire(vs1, &nv1, &interlace1, fields1, &vsize1, vsname1); VSinquire(vs2, &nv2, &interlace2, fields2, &vsize2, vsname2); vsotag1 = VSQuerytag(vs1); VSgetclass(vs1,vsclass1); vsotag2 = VSQuerytag(vs2); VSgetclass(vs2,vsclass2); if (vsotag1 != vsotag2 || nv1 != nv2 || interlace1 != interlace2 || strcmp(fields1, fields2) != 0 || strcmp(vsclass1, vsclass2) != 0 || (strcmp(vsclass1, "Attr0.0") != 0 && vsize1 != vsize2)) { printf("\n---------------------------\n"); printf("Vdata Name: %s <%s/%s> (Different attributes)\n", vsname1, gname, cname); printf("> <%ld> nrec=%ld interlace=%ld fld=[%s] vsize=%ld class={%s})\n", vsotag1, nv1, interlace1, fields1, vsize1, vsclass1); printf("< <%ld> nrec=%ld interlace=%ld fld=[%s] vsize=%ld class={%s})\n", vsotag2, nv2, interlace2, fields2, vsize2, vsclass2); return 0; } /* compare the data */ buf1 = (uint8 *) malloc((unsigned) (nv1 * vsize1)); buf2 = (uint8 *) malloc((unsigned) (nv2 * vsize2)); if (!buf1 || !buf2) { printf("Out of memory!"); opt->err_stat = 1; return 0; } VSsetfields(vs1, fields1); VSread(vs1, buf1, nv1, interlace1); w1 = (DYN_VWRITELIST*) vswritelist(vs1); VSsetfields(vs2, fields2); VSread(vs2, buf2, nv2, interlace2); w2 = (DYN_VWRITELIST*) vswritelist(vs2); b1 = buf1; b2 = buf2; for (j=0; j < w1->n; j++) off1[j] = DFKNTsize(w1->type[j] | DFNT_NATIVE); for (j=0; j < w2->n; j++) off2[j] = DFKNTsize(w2->type[j] | DFNT_NATIVE); iflag = 0; err_cnt = 0; if (vsize1 == vsize2) { for (i=0; i %ld: ", i); for (j=0; jn; j++) { for (k=0; korder[j]; k++) { fmt_print(b1, w1->type[j]); b1 += off1[j]; if (w1->type[j] != DFNT_CHAR) putchar(' '); } } putchar('\n'); printf("< %ld: ", i); for (j=0; jn; j++) { for (k=0; korder[j]; k++) { fmt_print(b2, w2->type[j]); b2 += off2[j]; if (w2->type[j] != DFNT_CHAR) putchar(' '); } } putchar('\n'); if (max_err_cnt > 0) { err_cnt++; if (err_cnt >= max_err_cnt) break; } } } else { printf("****....\n"); for (i=0; i %ld: ", i); for (j=0; jn; j++) { for (k=0; korder[j]; k++) { fmt_print(b1, w1->type[j]); b1 += off1[j]; if (w1->type[j] != DFNT_CHAR) putchar(' '); } } putchar('\n'); printf("< %ld: ", i); for (j=0; jn; j++) { for (k=0; korder[j]; k++) { fmt_print(b2, w2->type[j]); b1 += off2[j]; if (w2->type[j] != DFNT_CHAR) putchar(' '); } } putchar('\n'); if (max_err_cnt > 0) { err_cnt++; if (err_cnt >= max_err_cnt) break; } } } if (buf1)free((char *) buf1); if (buf2)free((char *) buf2); return nfound; } /*------------------------------------------------------------------------- * Function: fmt_print * * Purpose: print HDF types * *------------------------------------------------------------------------- */ void fmt_print(uint8 *x, int32 type) { int16 s = 0; int32 l = 0; float32 f = 0; float64 d = 0; switch(type) { case DFNT_CHAR: putchar(*x); break; case DFNT_UINT8: case DFNT_INT8: printf("%02x ", *x); break; case DFNT_UINT16: case DFNT_INT16: HDmemcpy(&s, x, sizeof(int16)); printf("%d", s); break; case DFNT_UINT32: HDmemcpy(&l, x, sizeof(int32)); printf("%lu", l); break; case DFNT_INT32: HDmemcpy(&l, x, sizeof(int32)); printf("%ld", l); break; case DFNT_FLOAT32: HDmemcpy(&f, x, sizeof(float32)); printf("%f", f); break; case DFNT_FLOAT64: HDmemcpy(&d, x, sizeof(float64)); printf("%f", d); break; default: fprintf(stderr,"sorry, type [%ld] not supported\n", type); break; } } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_array.c0000644000000000000000000005010212421456623015672 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include #include #include #include #include #include #include #include "hdf.h" #include "mfhdf.h" #include "hdiff.h" #include "vgint.h" #ifndef ABS # define ABS(a) (((a)>=0) ? (a) : -(a)) #endif #define MYMAX(A,B) (((A) > (B)) ? (A) : (B)) #define MYMIN(A,B) (((A) < (B)) ? (A) : (B)) #define PRINT_FSTATS(T) {\ printf("Type: %s Npts: %lu Ndiff: %lu (%f%%)\n", \ T, tot_cnt, n_diff, 100.*(float64)n_diff/(float64)tot_cnt); \ printf("Avg Diff: %.3e Max Diff: %.3e\n", \ d_avg_diff/n_stats, d_max_diff); \ printf("Range File1: %f/%f File2: %f/%f\n", \ d_min_val1, d_max_val1, d_min_val2, d_max_val2); } #define PRINT_ISTATS(T) {\ printf("Type: %s Npts: %lu Ndiff: %lu (%f%%)\n", \ T, tot_cnt,n_diff, 100.*(float64)n_diff/(float64)tot_cnt); \ printf("Avg Diff: %e Max. Diff: %ld\n", \ (d_avg_diff / n_stats), i4_max_diff); \ printf("Range File1: %ld/%ld File2: %ld/%ld\n", \ i4_min_val1, i4_max_val1, i4_min_val2, i4_max_val2); } /*------------------------------------------------------------------------- * printf formatting *------------------------------------------------------------------------- */ #define SPACES " " #define FFORMAT "%-15f %-15f %-15f\n" #define FFORMATP "%-15f %-15f %.0f%%\n" #define I8FORMAT "%-15d %-15d %-15d\n" #define I8FORMATP "%-15d %-15d %.0f%%\n" #define I16FORMAT "%-15d %-15d %-15d\n" #define I16FORMATP "%-15d %-15d %.0f%%\n" #define IFORMAT "%-15ld %-15ld %-15ld\n" #define IFORMATP "%-15ld %-15ld %.0f%%\n" #define CFORMAT "%-16c %-17c\n" #define SFORMAT "%-16s %-17s\n" #define UIFORMAT "%-15lu %-15lu %-15lu\n" #define LIFORMAT "%-15ld %-15ld %-15ld\n" #define ULIFORMAT "%-15lu %-15lu %-15lu\n" #define I16FORMATP_NOTCOMP "%-15d %-15d not comparable\n" #define I8FORMATP_NOTCOMP "%-15d %-15d not comparable\n" #define IFORMATP_NOTCOMP "%-15ld %-15ld not comparable\n" #define FFORMATP_NOTCOMP "%-15f %-15f not comparable\n" /*------------------------------------------------------------------------- * relative error *------------------------------------------------------------------------- */ #define PER(A,B) { per=-1; \ not_comparable=0; \ both_zero=0; \ if (A==0 && B==0) \ both_zero=1; \ if (A!=0) \ per = (double)ABS( ( double)(B-A) / (double)A ); \ else \ not_comparable=1; \ } /*------------------------------------------------------------------------- * local prototypes *------------------------------------------------------------------------- */ static void print_pos( int *ph, uint32 curr_pos, int32 *acc, int32 *pos, int rank, const char *obj1, const char *obj2 ); /*------------------------------------------------------------------------- * Function: array_diff * * Purpose: compare the 2 buffers BUF1 and BUF2 * *------------------------------------------------------------------------- */ uint32 array_diff(void *buf1, void *buf2, uint32 tot_cnt, const char *name1, const char *name2, int rank, int32 *dims, int32 type, float32 err_limit, float32 err_rel, uint32 max_err_cnt, int32 statistics, void *fill1, void *fill2) { uint32 i; int8 *i1ptr1, *i1ptr2; int16 *i2ptr1, *i2ptr2; int32 *i4ptr1, *i4ptr2; float32 *fptr1, *fptr2; float64 *dptr1, *dptr2; float64 d_diff, d_avg_diff = 0., d_max_diff = 0.; float64 d_max_val1=0, d_min_val1=0, d_max_val2=0, d_min_val2=0; float64 d_val1, d_val2; float64 d_sumx = 0., d_sumy = 0., d_sumx2 = 0., d_sumy2 = 0., d_sumxy=0.; float64 slope, intercept, correlation; float32 f_diff; int32 i4_diff, i4_max_diff = 0; int32 i4_max_val1=0, i4_min_val1=0, i4_max_val2=0, i4_min_val2=0; int16 i2_diff; int8 c_diff; int is_fill1, is_fill2; int n_stats = 0; char *debug; FILE *fp=NULL; int32 acc[H4_MAX_VAR_DIMS]; /* accumulator position */ int32 pos[H4_MAX_VAR_DIMS]; /* matrix position */ int ph=1; /* print header */ int j; double per; int both_zero; int not_comparable; uint32 n_diff = 0; acc[rank-1]=1; for(j=(rank-2); j>=0; j--) { acc[j]=acc[j+1]*(int)dims[j+1]; } for ( j = 0; j < rank; j++) pos[j]=0; debug = getenv("DEBUG"); if (debug) { fp = fopen("hdiff.debug", "w"); } switch(type) { case DFNT_INT8: case DFNT_CHAR8: i4_max_val1 = SCHAR_MIN; i4_min_val1 = SCHAR_MAX; i4_max_val2 = SCHAR_MIN; i4_min_val2 = SCHAR_MAX; break; case DFNT_UINT8: case DFNT_UCHAR8: i4_max_val1 = -UCHAR_MAX -1; i4_min_val1 = UCHAR_MAX; i4_max_val2 = -UCHAR_MAX -1; i4_min_val2 = UCHAR_MAX; break; case DFNT_INT16: i4_max_val1 = SHRT_MIN; i4_min_val1 = SHRT_MAX; i4_max_val2 = SHRT_MIN; i4_min_val2 = SHRT_MAX; break; case DFNT_UINT16: i4_max_val1 = -USHRT_MAX -1; i4_min_val1 = USHRT_MAX; i4_max_val2 = -USHRT_MAX -1; i4_min_val2 = USHRT_MAX; break; case DFNT_INT32: i4_max_val1 = INT_MIN; i4_min_val1 = INT_MAX; i4_max_val2 = INT_MIN; i4_min_val2 = INT_MAX; break; case DFNT_UINT32: i4_max_val1 = INT_MIN; i4_min_val1 = INT_MAX; i4_max_val2 = INT_MIN; i4_min_val2 = INT_MAX; break; case DFNT_FLOAT: d_max_val1 = -FLT_MAX; d_min_val1 = FLT_MAX; d_max_val2 = -FLT_MAX; d_min_val2 = FLT_MAX; break; case DFNT_DOUBLE: d_max_val1 = -DBL_MAX; d_min_val1 = DBL_MAX; d_max_val2 = -DBL_MAX; d_min_val2 = DBL_MAX; break; default: printf(" bad type - %ld\n", type); } switch(type) { /*------------------------------------------------------------------------- * DFNT_INT8, DFNT_UINT8, DFNT_UCHAR8, DFNT_CHAR8 *------------------------------------------------------------------------- */ case DFNT_INT8: case DFNT_UINT8: case DFNT_UCHAR8: case DFNT_CHAR8: i1ptr1 = (int8 *) buf1; i1ptr2 = (int8 *) buf2; for (i=0; i err_rel) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(I8FORMATP,*i1ptr1,*i1ptr2,per*100); } } } else if (c_diff > (int32) err_limit) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(I8FORMAT,*i1ptr1,*i1ptr2,abs(*i1ptr1-*i1ptr2)); } } i1ptr1++; i1ptr2++; } if (statistics) { PRINT_ISTATS("Byte"); } break; /*------------------------------------------------------------------------- * DFNT_INT16, DFNT_UINT16 *------------------------------------------------------------------------- */ case DFNT_INT16: case DFNT_UINT16: i2ptr1 = (int16 *) buf1; i2ptr2 = (int16 *) buf2; for (i=0; i err_rel) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(I16FORMATP,*i2ptr1,*i2ptr2,per*100); } } } else if (i2_diff > (int) err_limit) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(I16FORMAT,*i2ptr1,*i2ptr2,abs(*i2ptr1-*i2ptr2)); } } i2ptr1++; i2ptr2++; } if (statistics) { PRINT_ISTATS("Integer2"); } break; /*------------------------------------------------------------------------- * DFNT_INT32, DFNT_UINT32 *------------------------------------------------------------------------- */ case DFNT_INT32: case DFNT_UINT32: i4ptr1 = (int32 *) buf1; i4ptr2 = (int32 *) buf2; for (i=0; i err_rel) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(IFORMATP,*i4ptr1,*i4ptr2,per*100); } } } else if (i4_diff > (int32) err_limit) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(IFORMAT,*i4ptr1,*i4ptr2,i4_diff); } } i4ptr1++; i4ptr2++; } if (statistics) { PRINT_ISTATS("Integer4"); } break; /*------------------------------------------------------------------------- * DFNT_FLOAT *------------------------------------------------------------------------- */ case DFNT_FLOAT: fptr1 = (float32 *) buf1; fptr2 = (float32 *) buf2; for (i=0; i err_rel) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(FFORMATP,*fptr1,*fptr2,per*100); } } } else if (f_diff > err_limit) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(FFORMAT,*fptr1,*fptr2,fabs(*fptr1-*fptr2)); } } fptr1++; fptr2++; } if (statistics) { PRINT_FSTATS("Float"); } break; /*------------------------------------------------------------------------- * DFNT_DOUBLE *------------------------------------------------------------------------- */ case DFNT_DOUBLE: dptr1 = (float64 *) buf1; dptr2 = (float64 *) buf2; for (i=0; i err_rel) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(FFORMATP,*dptr1,*dptr2,per*100); } } } else if (d_diff > (float64) err_limit) { n_diff++; if (n_diff <= max_err_cnt) { print_pos(&ph,i,acc,pos,rank,name1,name2); printf(SPACES); printf(FFORMAT,*dptr1,*dptr2,fabs(*dptr1-*dptr2)); } } dptr1++; dptr2++; } if (statistics) { PRINT_FSTATS("Double"); } break; default: printf(" bad type - %ld\n", type); } if (statistics) { float64 sqrt_arg; if ((float64)n_stats * d_sumx2 - d_sumx * d_sumx != 0.0) { slope = ((float64)n_stats * d_sumxy - d_sumx * d_sumy) / ((float64)n_stats * d_sumx2 - d_sumx * d_sumx); intercept = (d_sumy - slope * d_sumx) / (float64)n_stats; sqrt_arg = ((float64)n_stats*d_sumx2 - d_sumx*d_sumx) / ((float64)n_stats * d_sumy2 - d_sumy * d_sumy); correlation = slope * sqrt(sqrt_arg); printf("Regression N: %d Slope: %e Intercept: %e R: %e\n", n_stats, slope, intercept, correlation); } else { printf("Regression Slope: NaN Intercept: NaN R: NaN\n"); } } if (debug) { fclose(fp); } return n_diff; } /*------------------------------------------------------------------------- * Function: print_pos * * Purpose: convert an array index position to matrix notation * * Return: pos matrix array * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: May 9, 2003 * *------------------------------------------------------------------------- */ static void print_pos( int *ph, uint32 curr_pos, int32 *acc, int32 *pos, int rank, const char *obj1, const char *obj2 ) { int i; /* print header */ if ( *ph==1 ) { *ph=0; printf("%-15s %-15s %-15s %-20s\n", "position", (obj1!=NULL) ? obj1 : " ", (obj2!=NULL) ? obj2 : " ", "difference"); printf("------------------------------------------------------------\n"); } for ( i = 0; i < rank; i++) { pos[i] = curr_pos/acc[i]; curr_pos -= acc[i]*pos[i]; } assert( curr_pos == 0 ); printf("[ " ); for ( i = 0; i < rank; i++) { fprintf(stdout,"%ld ", pos[i] ); } printf("]" ); } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_sds.c0000644000000000000000000004201212421456623015346 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdiff.h" #include "hdiff_list.h" #include "hdiff_mattbl.h" #define H4TOOLS_BUFSIZE (1024 * 1024) #define H4TOOLS_MALLOCSIZE (1024 * 1024) static uint32 diff_sds_attrs(int32 sds1_id, int32 nattrs1, int32 sds2_id, int32 nattrs2, char* sds1_name, diff_opt_t * opt); /*------------------------------------------------------------------------- * Function: diff_sds * * Purpose: diff for SDS * * Return: Number of differences found * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: August 25, 2003 * *------------------------------------------------------------------------- */ uint32 diff_sds(int32 sd1_id, int32 sd2_id, int32 ref1, int32 ref2, diff_opt_t * opt) { int32 sds1_id=-1, /* data set identifier */ sds1_index, /* index number of the data set */ dtype1, /* SDS data type */ dimsizes1[H4_MAX_VAR_DIMS],/* dimensional size of SDS */ nattrs1, /* number of SDS attributes */ rank1, /* rank of SDS */ sds2_id=-1, /* data set identifier */ sds2_index, /* index number of the data set */ dtype2, /* SDS data type */ dimsizes2[H4_MAX_VAR_DIMS],/* dimensional size of SDS */ nattrs2, /* number of SDS attributes */ rank2, /* rank of SDS */ start[H4_MAX_VAR_DIMS], /* read start */ edges[H4_MAX_VAR_DIMS], /* read edges */ numtype, /* number type */ eltsz; /* element size */ uint32 nelms; /* number of elements */ size_t need; /* read size needed */ char sds1_name[H4_MAX_NC_NAME]; char sds2_name[H4_MAX_NC_NAME]; int dim_diff=0; /* dimensions are different */ intn empty1_sds; intn empty2_sds; VOIDP buf1=NULL; VOIDP buf2=NULL; uint32 max_err_cnt; int i; VOIDP fill1=NULL; VOIDP fill2=NULL; uint32 nfound=0; void *sm_buf1=NULL; void *sm_buf2=NULL; /*------------------------------------------------------------------------- * object 1 *------------------------------------------------------------------------- */ sds1_index = SDreftoindex(sd1_id,ref1); sds1_id = SDselect(sd1_id,sds1_index); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ if (SDgetinfo(sds1_id,sds1_name,&rank1,dimsizes1,&dtype1,&nattrs1)==FAIL) { printf( "Failed to get info for SDS ref <%ld>\n",ref1); goto out; } /*------------------------------------------------------------------------- * object 2 *------------------------------------------------------------------------- */ sds2_index = SDreftoindex(sd2_id,ref2); sds2_id = SDselect(sd2_id,sds2_index); /*obtain name,rank,dimsizes,datatype and num of attributes of sds */ if (SDgetinfo(sds2_id,sds2_name,&rank2,dimsizes2,&dtype2,&nattrs2)==FAIL) { printf( "Failed to get info for SDS ref <%ld>\n",ref2); goto out; } /* flag to compare SDSs */ if (opt->sd == 1) { /*------------------------------------------------------------------------- * check for input SDs *------------------------------------------------------------------------- */ if (opt->nlvars > 0) /* if specified vdata is selected */ { int imatch = 0, j; for (j = 0; j < opt->nlvars; j++) { if (strcmp(sds1_name, opt->lvars[j]) == 0) { imatch = 1; break; } } if (imatch == 0) { goto do_nothing; } } /*------------------------------------------------------------------------- * check for different type *------------------------------------------------------------------------- */ if (dtype1 != dtype2) { printf("Comparison not supported\n"); printf("<%s> has datatype %ld, <%s> has datatype %ld ",sds1_name,dtype1,sds2_name,dtype2); goto do_nothing; } /*------------------------------------------------------------------------- * check for the same rank *------------------------------------------------------------------------- */ if ( rank1 != rank2 ) { printf("Comparison not supported\n"); printf("<%s> has rank %ld, dimensions ", sds1_name, rank1); print_dims(rank1,dimsizes1); printf("\n" ); printf("<%s> has rank %ld, dimensions ", sds2_name, rank2); print_dims(rank2,dimsizes2); goto do_nothing; } /*------------------------------------------------------------------------- * check for different dimensions *------------------------------------------------------------------------- */ for ( i=0; i has rank %ld, dimensions ", sds1_name, rank1); print_dims(rank1,dimsizes1); printf("\n" ); printf("<%s> has rank %ld, dimensions ", sds2_name, rank2); print_dims(rank2,dimsizes2); goto do_nothing; } /*------------------------------------------------------------------------- * check if the input SDSs are empty. if so , return *------------------------------------------------------------------------- */ if (SDcheckempty( sds1_id, &empty1_sds ) == FAIL) { printf( "Failed to check empty SDS <%s>\n", sds1_name); goto out; } if (empty1_sds==1) { if (opt->verbose) printf( "Empty SDS <%s>\n", sds1_name); goto do_nothing; } if (SDcheckempty( sds2_id, &empty2_sds ) == FAIL) { printf( "Failed to check empty SDS <%s>\n", sds2_name); goto out; } if (empty2_sds==1 ) { if (opt->verbose) printf( "Empty SDS <%s>\n", sds2_name); goto do_nothing; } /*------------------------------------------------------------------------- * get size *------------------------------------------------------------------------- */ /* compute the number of the bytes for each value. */ numtype = dtype1 & DFNT_MASK; eltsz = DFKNTsize(numtype | DFNT_NATIVE); /*------------------------------------------------------------------------- * get fill values *------------------------------------------------------------------------- */ fill1 = (VOIDP) HDmalloc(eltsz); fill2 = (VOIDP) HDmalloc(eltsz); if (fill1!=NULL && SDgetfillvalue(sds1_id,fill1)<0) { HDfree(fill1); fill1 = NULL; } if (fill2!=NULL && SDgetfillvalue(sds2_id,fill2)<0) { HDfree(fill2); fill2 = NULL; } /*------------------------------------------------------------------------- * read *------------------------------------------------------------------------- */ nelms = 1; for (i = 0; i < rank1; i++) { nelms *= dimsizes1[i]; } need = (size_t)(nelms * eltsz); /* bytes needed */ if ( need < H4TOOLS_MALLOCSIZE) { buf1 = (VOIDP)HDmalloc(need); buf2 = (VOIDP)HDmalloc(need); } /*------------------------------------------------------------------------- * read all *------------------------------------------------------------------------- */ if ( buf1!=NULL && buf2!=NULL) { /* select all */ for (i = 0; i < rank1; i++) { edges[i] = dimsizes1[i]; start[i] = 0; } /* read */ if (SDreaddata (sds1_id, start, NULL, edges, buf1) == FAIL) { printf( "Could not read SDS <%s>\n", sds1_name); goto out; } /* read */ if (SDreaddata (sds2_id, start, NULL, edges, buf2) == FAIL) { printf( "Could not read SDS <%s>\n", sds2_name); goto out; } /*------------------------------------------------------------------------- * comparing *------------------------------------------------------------------------- */ if (opt->verbose) printf("Comparing <%s>\n",sds1_name); /* if the given max_err_cnt is set (i.e. not its default MAX_DIFF), use it, otherwise, use the total number of elements in the dataset */ max_err_cnt = (opt->max_err_cnt != MAX_DIFF) ? opt->max_err_cnt : nelms; nfound=array_diff(buf1, buf2, nelms, sds1_name, sds2_name, rank1, dimsizes1, dtype1, opt->err_limit, opt->err_rel, max_err_cnt, opt->statistics, fill1, fill2); } else /* possibly not enough memory, read/compare by hyperslabs */ { size_t p_type_nbytes = eltsz; /*size of type */ uint32 p_nelmts = nelms; /*total selected elmts */ uint32 elmtno; /*counter */ int carry; /*counter carry value */ /* stripmine info */ int32 sm_size[H4_MAX_VAR_DIMS]; /*stripmine size */ int32 sm_nbytes; /*bytes per stripmine */ int32 sm_nelmts; /*elements per stripmine*/ /* hyperslab info */ int32 hs_offset[H4_MAX_VAR_DIMS]; /*starting offset */ int32 hs_size[H4_MAX_VAR_DIMS]; /*size this pass */ int32 hs_nelmts; /*elements in request */ /* * determine the strip mine size and allocate a buffer. The strip mine is * a hyperslab whose size is manageable. */ sm_nbytes = p_type_nbytes; for (i = rank1; i > 0; --i) { sm_size[i - 1] = MIN(dimsizes1[i - 1], H4TOOLS_BUFSIZE / sm_nbytes); sm_nbytes *= sm_size[i - 1]; assert(sm_nbytes > 0); } sm_buf1 = HDmalloc((size_t)sm_nbytes); sm_buf2 = HDmalloc((size_t)sm_nbytes); sm_nelmts = sm_nbytes / p_type_nbytes; /* the stripmine loop */ memset(hs_offset, 0, sizeof hs_offset); for (elmtno = 0; elmtno < p_nelmts; elmtno += hs_nelmts) { /* calculate the hyperslab size */ if (rank1 > 0) { for (i = 0, hs_nelmts = 1; i < rank1; i++) { hs_size[i] = MIN(dimsizes1[i] - hs_offset[i], sm_size[i]); hs_nelmts *= hs_size[i]; } } else { hs_nelmts = 1; } /* rank */ /* read */ if (SDreaddata (sds1_id, hs_offset, NULL, hs_size, sm_buf1) == FAIL) { printf( "Could not read SDS <%s>\n", sds1_name); goto out; } /* read */ if (SDreaddata (sds2_id, hs_offset, NULL, hs_size, sm_buf2) == FAIL) { printf( "Could not read SDS <%s>\n", sds2_name); goto out; } /*------------------------------------------------------------------------- * comparing *------------------------------------------------------------------------- */ if (opt->verbose) printf("Comparing <%s>\n",sds1_name); /* if the given max_err_cnt is set (i.e. not its default MAX_DIFF), use it, otherwise, use the total number of elements in the dataset */ max_err_cnt = (opt->max_err_cnt != MAX_DIFF) ? opt->max_err_cnt : nelms; /* get array differences. in the case of hyperslab read, increment the number of differences found in each hyperslab and pass the position at the beggining for printing */ nfound=array_diff(sm_buf1, sm_buf2, hs_nelmts, sds1_name, sds2_name, rank1, dimsizes1, dtype1, opt->err_limit, opt->err_rel, max_err_cnt, opt->statistics, fill1, fill2); /* calculate the next hyperslab offset */ for (i = rank1, carry = 1; i > 0 && carry; --i) { hs_offset[i - 1] += hs_size[i - 1]; if (hs_offset[i - 1] == dimsizes1[i - 1]) hs_offset[i - 1] = 0; else carry = 0; } /* i */ } /* elmtno */ /* free */ if (sm_buf1!=NULL) { free(sm_buf1); sm_buf1=NULL; } if (sm_buf2!=NULL) { free(sm_buf2); sm_buf2=NULL; } } /* hyperslab read */ } /* flag to compare SDSs */ /* flag to compare SDSs local attributes */ if (opt->sa == 1) { nfound += diff_sds_attrs(sds1_id,nattrs1,sds2_id,nattrs2,sds1_name,opt); } /*------------------------------------------------------------------------- * close *------------------------------------------------------------------------- */ do_nothing: SDendaccess(sds1_id); SDendaccess(sds2_id); if (buf1) HDfree(buf1); if (buf2) HDfree(buf2); if (fill1) HDfree(fill1); if (fill2) HDfree(fill2); return nfound; out: opt->err_stat = 1; if (sds1_id!=-1) SDendaccess(sds1_id); if (sds2_id!=-1) SDendaccess(sds2_id); if (buf1) HDfree(buf1); if (buf2) HDfree(buf2); if (fill1) HDfree(fill1); if (fill2) HDfree(fill2); return 0; } /*------------------------------------------------------------------------- * Function: diff_sds_attrs * * Purpose: compare SDS attributes * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: September 2, 2003 * *------------------------------------------------------------------------- */ static uint32 diff_sds_attrs(int32 sds1_id, int32 nattrs1, int32 sds2_id, int32 nattrs2, char* sds1_name, diff_opt_t * opt) { int32 dtype1, /* SDS data type */ nelms1, /* number of elements */ dtype2, /* SDS data type */ nelms2; /* number of elements */ char attr1_name[H4_MAX_NC_NAME]; char attr2_name[H4_MAX_NC_NAME]; VOIDP attr1_buf=NULL; VOIDP attr2_buf=NULL; int i, cmp; uint32 nfound=0; if ( nattrs1!=nattrs2) { printf( "Different number of atrributes\n"); return 0; } /* loop through attributes */ for (i = 0; i < nattrs1; i++) { if (SDattrinfo (sds1_id, i, attr1_name, &dtype1, &nelms1) == FAIL) { printf( "Cannot get info for attribute number %d\n", i); goto out; } if (SDattrinfo (sds2_id, i, attr2_name, &dtype2, &nelms2) == FAIL) { printf( "Cannot get info for attribute number %d\n", i); goto out; } if (dtype1 != dtype2 || nelms1 != nelms2 || (strcmp(attr1_name,attr2_name)!=0)) { printf( "Different information for attribute <%d>\n", i); continue; } attr1_buf = (void *) malloc((unsigned)nelms1*DFKNTsize(dtype1 | DFNT_NATIVE)); if (!attr1_buf) { printf("Out of memory!"); goto out;; } attr2_buf = (void *) malloc((unsigned)nelms2*DFKNTsize(dtype2 | DFNT_NATIVE)); if (!attr2_buf) { printf("Out of memory!"); goto out; } if (SDreadattr(sds1_id, i, attr1_buf)==FAIL ) { printf( "Could not read attribute number %d\n", i); goto out; } if (SDreadattr(sds2_id, i, attr2_buf)==FAIL ) { printf( "Could not read attribute number %d\n", i); goto out; } cmp = HDmemcmp(attr1_buf,attr2_buf,nelms1*DFKNTsize(dtype1 | DFNT_NATIVE)); if (cmp!=0) { printf("\n---------------------------\n"); printf ("%s:%s = \n",sds1_name,attr1_name); printf("<<<<\n"); pr_att_vals((nc_type)dtype1, nelms1, attr1_buf); printf (" ;\n"); printf(">>>>\n"); pr_att_vals((nc_type)dtype2, nelms2, attr2_buf); printf (" ;\n"); nfound++; } if (attr1_buf) free(attr1_buf); if (attr2_buf) free(attr2_buf); } return nfound; out: if (attr1_buf) free(attr1_buf); if (attr2_buf) free(attr2_buf); opt->err_stat = 1; return 0; } /*------------------------------------------------------------------------- * Function: print_dims * * Purpose: print dimensions * * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu * * Date: May 9, 2003 * * Comments: * *------------------------------------------------------------------------- */ void print_dims( int r, int32 *d ) { int i; printf("[ " ); for ( i=0; i #include "hdf.h" #include "mfhdf.h" #include "hdiff_dim.h" /* match name between 2 diff_dim_table_t type lists */ typedef struct diff_match_dim_name_t { int32 ref; /* reference */ char dim_name[H4_MAX_NC_NAME]; /* name */ int flags[2]; /* name exists 1, no 0 */ } diff_match_dim_name_t; /* table for diff_match_dim_name_t */ typedef struct diff_match_dim_table_t { int size; int nobjs; diff_match_dim_name_t *objs; } diff_match_dim_table_t; /*------------------------------------------------------------------------- * local prototypes *------------------------------------------------------------------------- */ /* methods for diff_match_dim_table_t */ static void diff_match_dim_table_free( diff_match_dim_table_t *table ); static void diff_match_dim_table_init( diff_match_dim_table_t **tbl ); static void diff_match_dim_table_add ( diff_match_dim_table_t *table, unsigned *flags, char* dim_name, int32 ref); /*------------------------------------------------------------------------- * Function: diff_match_dim * * Purpose: diff "lone" dimensions. * Find common dimension names; the algorithm used for this search is the * cosequential match algorithm and is described in * Folk, Michael; Zoellick, Bill. (1992). File Structures. Addison-Wesley. * * Return: void * * Programmer: Pedro Vicente Nunes, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ uint32 diff_match_dim(int32 sd1_id, int32 sd2_id, diff_dim_table_t *td1_1, diff_dim_table_t *td1_2, diff_dim_table_t *td2_1, diff_dim_table_t *td2_2, diff_opt_t * opt) { int cmp; int more_names_exist; int curr1; int curr2; diff_match_dim_table_t *mattbl_file1=NULL; diff_match_dim_table_t *mattbl_file2=NULL; unsigned inlist[2]; int i; uint32 nfound = 0; #if defined (HDIFF_DEBUG) for (i = 0; i < td1_1->nobjs; i++) { printf("%s\n", td1_1->objs[i].dim_name); } for (i = 0; i < td1_2->nobjs; i++) { printf("%s\n", td1_2->objs[i].dim_name); } #endif /*------------------------------------------------------------------------- * build the list for file 1 *------------------------------------------------------------------------- */ more_names_exist = (td1_1->nobjs>0 && td1_2->nobjs>0) ? 1 : 0; curr1=0; curr2=0; diff_match_dim_table_init( &mattbl_file1 ); while ( more_names_exist ) { cmp = strcmp( td1_1->objs[curr1].dim_name, td1_2->objs[curr2].dim_name ); if ( cmp == 0 ) { inlist[0]=1; inlist[1]=1; diff_match_dim_table_add(mattbl_file1,inlist, td1_1->objs[curr1].dim_name, td1_1->objs[curr1].ref); curr1++; curr2++; } else if ( cmp < 0 ) { inlist[0]=1; inlist[1]=0; diff_match_dim_table_add(mattbl_file1,inlist, td1_1->objs[curr1].dim_name, td1_1->objs[curr1].ref); curr1++; } else { inlist[0]=0; inlist[1]=1; diff_match_dim_table_add(mattbl_file1,inlist, td1_2->objs[curr2].dim_name, td1_2->objs[curr2].ref); curr2++; } more_names_exist = (curr1nobjs && curr2nobjs) ? 1 : 0; } /* end while */ /* td1_1 did not end */ if (curr1nobjs) { while ( curr1nobjs ) { inlist[0]=1; inlist[1]=0; diff_match_dim_table_add(mattbl_file1,inlist, td1_1->objs[curr1].dim_name, td1_1->objs[curr1].ref); curr1++; } } /* td1_2 did not end */ if (curr2nobjs) { while ( curr2nobjs ) { inlist[0]=0; inlist[1]=1; diff_match_dim_table_add(mattbl_file1,inlist, td1_2->objs[curr2].dim_name, td1_2->objs[curr2].ref); curr2++; } } /*------------------------------------------------------------------------- * print the list *------------------------------------------------------------------------- */ #if defined (HDIFF_DEBUG) { char c1, c2; printf("---------------------------------------\n"); printf("list1 list2\n"); printf("---------------------------------------\n"); for (i = 0; i < mattbl_file1->nobjs; i++) { c1 = (char)((mattbl_file1->objs[i].flags[0]) ? 'x' : ' '); c2 = (char)((mattbl_file1->objs[i].flags[1]) ? 'x' : ' '); printf("%5c %6c %-15s\n", c1, c2, mattbl_file1->objs[i].dim_name); } printf("\n"); } #endif /*------------------------------------------------------------------------- * build the list for file 2 *------------------------------------------------------------------------- */ more_names_exist = (td2_1->nobjs>0 && td2_2->nobjs>0) ? 1 : 0; curr1=0; curr2=0; diff_match_dim_table_init( &mattbl_file2 ); while ( more_names_exist ) { cmp = strcmp( td2_1->objs[curr1].dim_name, td2_2->objs[curr2].dim_name ); if ( cmp == 0 ) { inlist[0]=1; inlist[1]=1; diff_match_dim_table_add(mattbl_file2,inlist, td2_1->objs[curr1].dim_name, td2_1->objs[curr1].ref); curr1++; curr2++; } else if ( cmp < 0 ) { inlist[0]=1; inlist[1]=0; diff_match_dim_table_add(mattbl_file2,inlist, td2_1->objs[curr1].dim_name, td2_1->objs[curr1].ref); curr1++; } else { inlist[0]=0; inlist[1]=1; diff_match_dim_table_add(mattbl_file2,inlist, td2_2->objs[curr2].dim_name, td2_2->objs[curr2].ref); curr2++; } more_names_exist = (curr1nobjs && curr2nobjs) ? 1 : 0; } /* end while */ /* td2_1 did not end */ if (curr1nobjs) { while ( curr1nobjs ) { inlist[0]=1; inlist[1]=0; diff_match_dim_table_add(mattbl_file2,inlist, td2_1->objs[curr1].dim_name, td2_1->objs[curr1].ref); curr1++; } } /* td2_2 did not end */ if (curr2nobjs) { while ( curr2nobjs ) { inlist[0]=0; inlist[1]=1; diff_match_dim_table_add(mattbl_file2,inlist, td2_2->objs[curr2].dim_name, td2_2->objs[curr2].ref); curr2++; } } /*------------------------------------------------------------------------- * print the list *------------------------------------------------------------------------- */ #if defined (HDIFF_DEBUG) { char c1, c2; printf("---------------------------------------\n"); printf("list1 list2\n"); printf("---------------------------------------\n"); for (i = 0; i < mattbl_file2->nobjs; i++) { c1 = (char)((mattbl_file2->objs[i].flags[0]) ? 'x' : ' '); c2 = (char)((mattbl_file2->objs[i].flags[1]) ? 'x' : ' '); printf("%5c %6c %-15s\n", c1, c2, mattbl_file2->objs[i].dim_name); } printf("\n"); } #endif /*------------------------------------------------------------------------- * get objects from list1 not in list2 *------------------------------------------------------------------------- */ for (i = 0; i < mattbl_file1->nobjs; i++) { if ( mattbl_file1->objs[i].flags[0] && ( ! mattbl_file1->objs[i].flags[1] ) ) { int j; /* search in file 2 for this dimension */ for (j = 0; j < mattbl_file2->nobjs; j++) { /* same name */ if ( strcmp( mattbl_file1->objs[i].dim_name, mattbl_file2->objs[j].dim_name ) == 0 ) { /* and also a lone dim in file 2 */ if ( mattbl_file2->objs[j].flags[0] && ( ! mattbl_file2->objs[j].flags[1] ) ) { int32 ref1 = mattbl_file1->objs[i].ref; int32 ref2 = mattbl_file2->objs[j].ref; nfound+=diff_sds(sd1_id, sd2_id, ref1, ref2, opt); } } } } } /* free tables */ diff_match_dim_table_free(mattbl_file1); diff_match_dim_table_free(mattbl_file2); return nfound; } /*------------------------------------------------------------------------- * Function: diff_match_dim_table_add * * Purpose: add an entry from a list of dimension names into the match table * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ static void diff_match_dim_table_add (diff_match_dim_table_t *table, unsigned *flags, char* dim_name, int32 ref) { int i; /* check if name already on match table */ for (i = 0; i < table->nobjs; i++) { /* insert information at position i */ if ( strcmp(dim_name, table->objs[i].dim_name)==0 ) { if (table->objs[i].flags[0] == 0) table->objs[i].flags[0] = flags[0]; if (table->objs[i].flags[1] == 0) table->objs[i].flags[1] = flags[1]; return; } } if (table->nobjs == table->size) { table->size *= 2; table->objs = (diff_match_dim_name_t*)realloc(table->objs, table->size * sizeof(diff_match_dim_name_t)); for (i = table->nobjs; i < table->size; i++) { table->objs[i].ref = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } } i = table->nobjs++; table->objs[i].ref = ref; strcpy(table->objs[i].dim_name,dim_name); table->objs[i].flags[0] = flags[0]; table->objs[i].flags[1] = flags[1]; } /*------------------------------------------------------------------------- * Function: diff_match_dim_table_init * * Purpose: initialize match table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ static void diff_match_dim_table_init( diff_match_dim_table_t **tbl ) { int i; diff_match_dim_table_t *table = (diff_match_dim_table_t*) malloc(sizeof(diff_match_dim_table_t)); table->size = 20; table->nobjs = 0; table->objs = (diff_match_dim_name_t*) malloc(table->size * sizeof(diff_match_dim_name_t)); for (i = 0; i < table->size; i++) { table->objs[i].ref = -1; table->objs[i].flags[0] = table->objs[i].flags[1] = -1; } *tbl = table; } /*------------------------------------------------------------------------- * Function: diff_match_dim_table_free * * Purpose: free match table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ static void diff_match_dim_table_free( diff_match_dim_table_t *table ) { free(table->objs); free(table); } /*------------------------------------------------------------------------- * Function: diff_dim_table_add * * Purpose: add an entry of pair REF/NAME into a dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ void diff_dim_table_add(diff_dim_table_t *table, int ref, char* name) { int i; assert(table); if (table->nobjs == table->size) { table->size *= 2; table->objs = (diff_dim_name_t*)realloc(table->objs, table->size * sizeof(diff_dim_name_t)); for (i = table->nobjs; i < table->size; i++) { table->objs[i].ref = -1; } } i = table->nobjs++; table->objs[i].ref = ref; strcpy(table->objs[i].dim_name,name); } /*------------------------------------------------------------------------- * Function: diff_dim_table_init * * Purpose: initialize dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ void diff_dim_table_init( diff_dim_table_t **tbl ) { int i; diff_dim_table_t* table = (diff_dim_table_t*) malloc(sizeof(diff_dim_table_t)); table->size = 20; table->nobjs = 0; table->objs = (diff_dim_name_t*) malloc(table->size * sizeof(diff_dim_name_t)); for (i = 0; i < table->size; i++) { table->objs[i].ref = -1; } *tbl = table; } /*------------------------------------------------------------------------- * Function: diff_dim_table_free * * Purpose: free dimension table * * Return: void * * Programmer: Pedro Vicente, pvn@hdfgroup.org * * Date: July 16, 2007 * *------------------------------------------------------------------------- */ void diff_dim_table_free( diff_dim_table_t *table ) { free(table->objs); free(table); } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_misc.c0000644000000000000000000001372612421456623015522 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include #include #include #include "hdf.h" #include "mfhdf.h" #include "hdiff.h" /* * convert pathname of netcdf file into name for cdl unit, by taking * last component of path and stripping off any extension. */ char * name_path(char *path) { char *cp, *newc; #ifdef MSDOS #define FILE_DELIMITER '\\' #endif #ifndef FILE_DELIMITER /* default to unix */ #define FILE_DELIMITER '/' #endif cp = strrchr(path, FILE_DELIMITER); if (cp == 0) /* no delimiter */ cp = path; else /* skip delimeter */ cp++; newc = (char *) malloc((unsigned) (strlen(cp)+1)); if (newc == 0) { fprintf(stderr,"Out of memory!\n"); exit(EXIT_FAILURE); } (void) strcpy(newc, cp); /* copy last component of path */ if ((cp = strrchr(newc, '.')) != NULL) *cp = '\0'; /* strip off any extension */ return newc; } const char * type_name(nc_type type) { switch (type) { case DFNT_INT8: return "byte"; case DFNT_CHAR: return "char"; case DFNT_INT16: return "short"; case DFNT_INT32: return "long"; case DFNT_FLOAT: return "float"; case DFNT_DOUBLE: return "double"; default: fprintf(stderr,"type_name: bad type %d", type); return "bogus"; } } /* * Remove trailing zeros (after decimal point) but not trailing decimal * point from ss, a string representation of a floating-point number that * might include an exponent part. */ void tztrim(char *ss) /* returned string representing dd */ { char *cp, *ep; cp = ss; if (*cp == '-') cp++; while(isdigit((int)*cp) || *cp == '.') cp++; if (*--cp == '.') return; ep = cp+1; while (*cp == '0') cp--; cp++; if (cp == ep) return; while (*ep) *cp++ = *ep++; *cp = '\0'; return; } /* * Print list of attribute values. Attribute values must be printed with * explicit type tags, because their types are not declared. */ void pr_att_vals(nc_type type, int len, void *vals) { int iel; union { char *cp; int16 *sp; int32 *lp; float32 *fp; float64 *dp; } gp; char *sp; unsigned char uc; char gps[30]; /* for ascii of a float or double precision */ char *f_fmt = "%#.8g"; char *d_fmt = "%#.16g"; switch (type) { case DFNT_INT8: gp.cp = (char *) vals; for (iel = 0; iel < len; iel++) if (isprint(uc = *gp.cp++ & 0377)) Printf ("'%c'%s", uc, iel 0) len--; for (iel = 0; iel < len; iel++) switch (uc = *gp.cp++ & 0377) { case '\b': Printf ("\\b"); break; case '\f': Printf ("\\f"); break; case '\n': /* generate linebreaks after new-lines */ Printf ("\\n\",\n \""); break; case '\r': Printf ("\\r"); break; case '\t': Printf ("\\t"); break; case '\v': Printf ("\\v"); break; case '\\': Printf ("\\\\"); break; case '\'': Printf ("\\'"); break; case '\"': Printf ("\\\""); break; default: Printf ("%c",uc); break; } Printf ("\""); break; case DFNT_INT16: gp.sp = (int16 *) vals; for (iel = 0; iel < len; iel++) Printf ("%ds%s",*gp.sp++,ielnlvars = 1; else opt->nuvars = 1; while (*cp++) if (*cp == ',') nvars++; if (option == 1) { opt->lvars = (char **) malloc(nvars * sizeof(char*)); if (!opt->lvars) { fprintf(stderr,"Out of memory!\n"); exit(EXIT_FAILURE); } cpp = opt->lvars; } else { opt->uvars = (char **) malloc(nvars * sizeof(char*)); if (!opt->uvars) { fprintf(stderr,"Out of memory!\n"); exit(EXIT_FAILURE); } cpp = opt->uvars; } /* copy variable names into list */ for (cp = strtok(optarg, ","); cp != NULL; cp = strtok((char *) NULL, ",")) { *cpp = (char *) malloc(strlen(cp) + 1); if (!*cpp) { fprintf(stderr,"Out of memory!\n"); exit(EXIT_FAILURE); } strcpy(*cpp, cp); cpp++; } if (option == 1) opt->nlvars = nvars; else opt->nuvars = nvars; } libhdf4-4.2.10/HDF_ALT/mfhdf/hdiff/hdiff_table.h0000644000000000000000000000345612421456623015662 0ustar /**************************************************************************** * NCSA HDF * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * * * For conditions of distribution and use, see the accompanying * * hdf/COPYING file. * * * ****************************************************************************/ #ifndef HDIFF_TABLE_H__ #define HDIFF_TABLE_H__ #include "hdf.h" #include "mfhdf.h" #ifdef __cplusplus extern "C" { #endif /*struct to store the tag/ref and path of an object the pair tag/ref uniquely identifies an HDF object */ typedef struct dobj_info_t { int32 tag; int32 ref; char obj_name[H4_MAX_NC_NAME]; int flags[2]; /*flags that store matching object information between the 2 files object exists in file = 1 does not exist = 0 */ } dobj_info_t; /*struct that stores all objects */ typedef struct dtable_t { uint32 size; uint32 nobjs; dobj_info_t *objs; } dtable_t; /* table methods */ void dtable_init(dtable_t **table); void dtable_free(dtable_t *table); int dtable_search(dtable_t *table, int32 tag, int32 ref ); void dtable_add(dtable_t *table, int32 tag, int32 ref, char* obj_name); void dtable_print(dtable_t *table, char* header); #ifdef __cplusplus } #endif #endif /* HDIFF_TABLE_H__ */ libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/0000755000000000000000000000000012474643755013506 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/driver.c0000644000000000000000000000607312474643755015153 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: driver.c 6043 2014-01-21 21:09:03Z acheng $ *********************************************************************/ #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "tests.h" /* #define MDEBUG 1 */ /* * Test driver for netCDF implementation. This program performs * tests against the netCDF specification for all user-level * functions in an implementation of the netCDF library. Must be * invoked from a directory in which the invoker has write * permission. */ #if defined TEST_PC || defined TEST_WIN #include FILE *dbg_file; #endif #include #include #ifdef PROTOTYPE int main(int argc, char *argv[]) #else int main(argc, argv) int argc; char *argv[]; #endif { static char testfile[] = "test.nc"; static char unlim_testfile_name[] = "test_unlim.nc"; char *unlim_testfile; int name_size; char *srcdir; #if defined TEST_PC || defined TEST_WIN dbg_file=fopen("test.dbg","w+"); #endif #ifdef MDEBUG malloc_debug(2); #endif /* MDEBUG */ ncopts &= ~NC_FATAL; /* make errors nonfatal */ ncopts &= ~NC_VERBOSE; /* turn off error messages */ ncopts |= NC_VERBOSE; /* turn error messages on--AKC */ ncopts &= ~NC_VERBOSE; /* turn off error messages */ test_nccreate(testfile); test_ncopen(testfile); test_ncredef(testfile); test_ncendef(testfile); test_ncclose(testfile); test_ncinquire(testfile); #if (!defined _MSC_VER) || (_MSC_VER < 1400) test_ncsync(testfile); #endif test_ncabort(testfile); test_ncdimdef(testfile); test_ncdimid(testfile); test_ncdiminq(testfile); test_ncdimrename(testfile); test_ncvardef(testfile); test_ncvarid(testfile); test_ncvarinq(testfile); test_ncvarput1(testfile); test_ncvarget1(testfile); test_ncvarput(testfile); test_ncvarget(testfile); name_size = strlen(unlim_testfile_name) + 1; srcdir = getenv("srcdir"); if (srcdir) name_size += strlen(srcdir) + 1; unlim_testfile = calloc(name_size, 1); if (srcdir) { strcpy(unlim_testfile, srcdir); if (srcdir[strlen(srcdir) - 1] != '/') strcat(unlim_testfile, "/"); } strcat(unlim_testfile, unlim_testfile_name); test_ncvarget_unlim(unlim_testfile); free(unlim_testfile); test_ncvarputg(testfile); test_ncvargetg(testfile); test_ncrecinq(testfile); test_ncrecput(testfile); test_ncrecget(testfile); test_ncvarrename(testfile); test_ncattput(testfile); test_ncattinq(testfile); test_ncattget(testfile); test_ncattcopy(testfile, "test2.nc"); test_ncattname(testfile); test_ncattrename(testfile); test_ncattdel(testfile); test_nctypelen(); #if defined TEST_PC || defined TEST_WIN fclose(dbg_file); #endif #define EXIT_SUCCESS 0 return EXIT_SUCCESS; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/varget_unlim.c0000644000000000000000000001106712421456623016337 0ustar /* * This tests uses HDF NetCDF APIs to read the NetCDF file test_unlim.nc * generated with the NetCDF Library v3.5 from test_unlim.cdl */ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif float a_val[2][3] = { {1.0, 2.0, 3.0}, {4.0, 5.0, 6.0} }; int date_val[12] = {840116, 840214, 840316, 840415, 840516, 840615, 840716, 840816, 840915, 841016, 841115, 841216 }; int time_val[12] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }; short b_val[][3][2] = { {{1, 1}, {2, 2}, {3, 3}}, {{4, 4}, {5, 5}, {6, 6}}, {{7, 7}, {8, 8}, {9, 9}}, {{10, 10}, {11, 11}, {12, 12}}, {{13, 13}, {14, 14}, {15, 15}}, {{16, 16}, {17, 17}, {18, 18}}, {{19, 19}, {20, 20}, {21, 22}}, {{23, 23}, {24, 24}, {25, 25}}, {{26, 26}, {27, 27}, {28, 28}}, {{29, 29}, {30, 30}, {31, 31}}, {{32, 32}, {33, 33}, {34, 34}}, {{35, 35}, {36, 36}, {37, 37}} }; /* * Test ncvarget for variables with unlimited dimensions (bug #897) */ void test_ncvarget_unlim(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarget_unlim"; int status; int ncid; int var_id; float a[2][3]; int date[12]; int time[12]; short val[12][3][2]; long start[3], count[3]; int i, j, n; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((ncid = ncopen(path, NC_NOWRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* Reading 3D array with unlimited dimension */ var_id = ncvarid( ncid, "b"); start[0] = 0; start[1] = 0; start[2] = 0; count[0] = 12; count[1] = 3; count[2] = 2; if(status = ncvarget (ncid, var_id, start, count, val) == -1) { error("%s: ncvarget failed for variable b in ", pname); ncclose(ncid); return; } for (n=0; n <12 ; n++) { for (i=0; i <3; i++) { for (j=0; j<2 ; j++) { if (val[n][i][j] != b_val[n][i][j]) { nerrs++; printf(" Wrong value of variable b at index %d,%d,%d\n", n,i,j); } } } } /* Reading 2D array */ var_id = ncvarid( ncid, "a"); start[0] = 0; start[1] = 0; count[0] = 2; count[1] = 3; if(status = ncvarget (ncid, var_id, start, count, a) == -1) { error("%s: ncvarget failed for variable a in ", pname); ncclose(ncid); return; } for (i=0; i <2; i++) { for (j=0; j<3 ; j++) { if (a[i][j] != a_val[i][j]) { nerrs++; printf(" Wrong value of variable a at index %d,%d\n", i,j); } } } /* Reading 1D array with unlimited dimension */ var_id = ncvarid( ncid, "date"); start[0] = 0; count[0] = 12; if(status = ncvarget (ncid, var_id, start, count, date) == -1) { error("%s: ncvarget failed for variable date in ", pname); ncclose(ncid); return; } for (n=0; n <12 ; n++) { if (date[n] != date_val[n]) { nerrs++; printf(" Wrong value of variable date at index %d\n", n); } } /* Reading 1D array with unlimited dimension */ var_id = ncvarid( ncid, "time"); start[0] = 0; count[0] = 12; if(status = ncvarget (ncid, var_id, start, count, time) == -1) { error("%s: ncvarget failed varaible time in ", pname); ncclose(ncid); return; } for (n=0; n <12 ; n++) { if (time[n] != time_val[n]) { nerrs++; printf(" Wrong value of variable time at index %d\n", n); } } status = ncclose(ncid); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/nctest.project.hqx0000644000000000000000000012207312421456623017166 0ustar (This file must be converted with BinHex 4.0) :$QjMG'9cG#j`FQpUC@0d!%e08(*$9dP&!!!!!(Mf!!!!!2EjBfp[E!!!!!)!!!! S!!"cS!!!FmJ!!!8Z!!!!-`%!!!!!!!!!!!!!!!!#!!!!!a5h!!)!!!!!!!!!!JG `B@0VB@GP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#h"KBfYKCf8ZFhPY!!!!!!! !!!!!!!!!!!!!!!!!!!!08hPcG'9Y3faKFh0PF`!!!!!!!!!!!!!!!!!!!!!!!!! &!3$rr`!!!!!!!!!!rrm"!3%"!3!!!!!H!3%!!!!!!!!!!*QC!!!rrcrr2rm!!3! *"Ne[EQ&ME`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!#J!#J(#!S!!+!! +!F)#J!!!!!!!!!!!!!!!!!!!!!!"!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!#!3!!!`!$!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!`!+!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!"!!!36@&M)%p6)&"33b"$,d-V+bke!!!!!!!!!!! !!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!!"#3*l!!!!!!!!!!!!!!!"!&N !2`)P!Em!`J!!TF`!!-*8EQ0dCA0d1NeKCfPM)%0KF#"$E'&cFb"$Efe`D@aPFJ" ZBh4PFh3k6@&RD@-J3f&`)%aTEQYPFJ"ZBh4PFh3k6@&RD@-J3f&`)&"bEfTPBh3 !EQ0dCA0d1N9NDA4[FJ"ZBh4PFh3k4QpZG!"ZBh4PFh3k9fPZ8N-J3fpYF'PXCA) !EQ0dCA0d1RJi0L"$Ef4P4f9Z!'jMG'9cG$Ti1$BJ6'PZDf9b!'jMG'9cG$Ti1$B J8(*[DQ9MG!"ZBh4PFh3k8(*[DQ9MG#"&H(4bBA-!EQ0dCA0d1N0eFh4[E5",CAP hEh*NF`"ZBh4PFh3k3@0MCA0c)&"KG'Kc!'jMG'9cG$T#G@PXC#"&H(4bBA-!EQ0 dCA0d1MBi5b"$Ef4P4f9Z!'jMG'9cG$Sf1%XJ4'PcBA0cC@eLE'9b!'jMG'9cG$S f1%XJ6'PZDf9b!'jMG'9cG$Sf1%XJ8(*[DQ9MG!"ZBh4PFh3k3bp$+bXJ3fpYF'P XCA)!EQ0dCA0d1N-[3bXV)&GKFQjTEQGc!'jMG'9cG$T$4Ndf1%X!EQ0dCA0d1NT KGQ%J8(*[DQ9MG!"ZBh4PFh3k8'&cBf&X)%0[EA"TE'9b!'jMG'9cG$T3BA0MB@` J9f&bEQPZCh-!EQ0dCA0d1P"33b"$Ef4P4f9Z!'jMG'9cG$T38%-J4'PcBA0cC@e LE'9b!'jMG'9cG$T38%-J6'PZDf9b!'jMG'9cG$T38%-J8%9'!'jMG'9cG$T38%- J8(*[DQ9MG!"ZBh4PFh3k8&"$3A0Y)&"KEQ9X!'jMG'9cG$T5CASJ3fpYF'PXCA) !EQ0dCA0d1P4KFQGPG#"6CA4dD@jRF`"ZBh4PFh3k4QPXC5"0BA"`D@jRF`"3FQp UC@0d)%CTE'8J6'PcG!"ZBh4PFh3k59)J6h"dD@eTHQ9b!'jMG'9cG$T0B@028b" 0CA*RC5"3B@jPE!"ZBh4PFh3J8&"$)%4PBR9R1N0eFh4[E5",CAPhEh*NF`"ZBh4 PFh3J8&"$)%4PBR9R1N&MBf9cFb"3BA4SF`"ZBh4PFh3J8&"$)%4PBR9R1P4KFQG PG#"6CA4dD@jRF`"ZBh4PFh3J8&"$)%4PBR9R1NCTE'8J6@&`F'PZCh-!EQ0dCA0 d)&"33b"%C@*eCcT#G@PXC#"&H(4bBA-!EQ0dCA0d)&"33b"%C@*eCcSf1%XJ3fp NC8GPEJ"ZBh4PFh3J8&"$)%4PBR9R1MBi5b"%DA0KFh0PE@*XCA)!EQ0dCA0d)&" 33b"%C@*eCcSf1%XJ6'PZDf9b!'jMG'9cG#"38%-J4'9LG@Fk0MK,)&"bEfTPBh3 !EQ0dCA0d)&"33b"%C@*eCcT$,d-V+b"$Efe`D@aPFJ"ZBh4PFh3J8&"$)%4PBR9 R1N-[3bXV)&GKFQjTEQGc!'jMG'9cG#"38%-J4'9LG@Fk3dC00MK,!'jMG'9cG#" 38%-J4'9LG@Fk59)J6h"dD@eTHQ9b!'jMG'9cG#"38%-J4'9LG@Fk6@&M6e-J6@9 bCf8J8'&ZC@`!EQ0dCA0d)&"33b"%C@*eCcT3BA0MB@`J3fpYF'PXCA)!EQ0dCA0 d)&"33b"%C@*eCcT3BA0MB@`J9f&bEQPZCh-!EQ0dCA0d)&"33b"%C@*eCcT38%- J3fpNC8GPEJ"ZBh4PFh3J8&"$)%4PBR9R1P"33b"%DA0KFh0PE@*XCA)!EQ0dCA0 d)&"33b"%C@*eCcT38%-J6'PZDf9b!'jMG'9cG#"38%-J4'9LG@Fk8&"$)&"&4J" ZBh4PFh3J8&"$)%4PBR9R1P"33b"3FQpUC@0d!'jMG'9cG#"38%-J4'9LG@Fk8&" $3A0Y)&"KEQ9X!'jMG'9cG#"38%-J4'9LG@Fk8Q9k)%0[EA"TE'9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!!!J!!!!!J!!!!!!!!!i!!!!!`!!!!!!!!"4!!!!"!!!!!! !!!"I!!!!"3!!!!!!!!"V!!!!"J!!!!!!!!#"!!!!"`!!!!!!!!#8!!!!#!!!!!! !!!#Q!!!!#3!!!!!!!!#j!!!!#J!!!!!!!!$2!!!!#`!!!!!!!!$Q!!!!$!!!!!! !!!$k!!!!$3!!!!!!!!%1!!!!$J!!!!!!!!%K!!!!$`!!!!!!!!%j!!!!%!!!!!! !!!&,!!!!%3!!!!!!!!&H!!!!%J!!!!!!!!&d!!!!%`!!!!!!!!'+!!!!&!!!!!! !!!'B!!!!&3!!!!!!!!'X!!!!&J!!!!!!!!($!!!!&`!!!!!!!!(D!!!!'!!!!!! !!!(Y!!!!'3!!!!!!!!)&!!!!'J!!!!!!!!)A!!!!'`!!!!!!!!)Q!!!!(!!!!!! !!!)j!!!!(3!!!!!!!!*0!!!!(J!!!!!!!!*K!!!!(`!!!!!!!!*i!!!!)!!!!!! !!!+0!!!!)3!!!!!!!!+I!!!!)J!!!!!!!!+c!!!!)`!!!!!!!!,-!!!!*!!!!!! !!!,Y!!!!*3!!!!!!!!-,!!!!*J!!!!!!!!-X!!!!*`!!!!!!!!0,!!!!+!!!!!! !!!0T!!!!+3!!!!!!!!1'!!!!+J!!!!!!!!1S!!!!+`!!!!!!!!2%!!!!,!!!!!! !!!2K!!!!,3!!!!!!!!3"!!!!,J!!!!!!!!3K!!!!,`!!!!!!!!3j!!!!-!!!!!! !!!4A!!!!-3!!!!!!!!4k!!!!-J!!!!!!!!5E!!!!-`!!!!!!!!5m!!!!0!!!!!! !!!6C!!!!03!!!!!!!!6l!!!!0J!!!!!!!!8A!!!!0`!!!!!!!!8`!!!!1!!!!!! !!!90!!!!13!!!!!!!!9V!!!!1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!S!!!!+3!!!#S!!!!V!!!!*!!!!#F!!!!X!!!!,3!!!#i!!!!M!!!!*J!!!#m !!!!`!!!!-3!!!$)!!!!c!!!!0!!!!$8!!!!f!!!!0`!!!$J!!!!j!!!!*3!!!!d !!!!1!!!!$`!!!"!!!!!,!!!!$!!!!"%!!!!5!!!!%`!!!!S!!!!$!!!!(`!!!!3 !!!!K!!!!&!!!!#)!!!!!!!!!!3!!!!)!!!!9!!!!&J!!!"F!!!!B!!!!'3!!!"S !!!!E!!!!(!!!!!N!!!!G!!!!(J!!!!8!!!!'!!!!"`!!!!J!!!!J!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!1J!!!%!!!!@*!!!)!!!!!$S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!$N!!!!m!!!!5!!!!%8!!!!e!!!!-`!!!#%!!!"#!!!!2`!!!%i !!!",!!!!"3!!!!-!!!!'!!!!)`!!!!F!!!!)!!!!#3!!!!S!!!!,!!!!!J!!!$S !!!!i!!!!23!!!$X!!!!B!!!!,`!!!#X!!!!H!!!!4J!!!%3!!!"*!!!!4`!!!"N !!!!Y!!!!)J!!!!3!!!!I!!!!0!!!!$B!!!!b!!!!0`!!!"S!!!!U!!!!$!!!!"d !!!!`!!!!-3!!!#3!!!!P!!!!)!!!!!!!!!"3!!!!+3!!!#F!!!!0!!!!*J!!!!i !!!!"!!!!$`!!!"!!!!!4!!!!%J!!!"-!!!!8!!!!&3!!!"B!!!!A!!!!+!!!!%! !!!!q!!!!3`!!!%%!!!!E!!!!,!!!!"`!!!"-!!!!5J!!!%m!!!"0!!!!,J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!#)!!!!m!3!"!!!X!!!!83!!!'!!!!3h!!!)!!!!!&%!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!#`"!!!"!3!!!J%!!!-"!!!%!3!!"3%!!!B"!!!(!3! !#!%!!!N"!!!+!3!!#`%!!!`"!!!0!3!!$J%!!!m"!!!3!3!!%3%!!")"!!!6!3! !)`%!!#3"!!!P!3!!*J%!!#F"!!!S!3!!+3%!!#S"!!!V!!!!&J!!!"F!!!!C!!! !(3!!!"m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!$!!"rr`!!!!"rr`!!!!"rr`!!!!"rr`!!!!)"!!!'!J! !!!!!!!!"!!!!!!%!!!!!!3!!!!!"!3!!!3%!!3!!"`%!!3%!!3%!!!!"!!!*!!% !!!!"!3a0B@0)C@&NCA*c,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!-"!3%"!3%"!!%!!!%"!3!!!3%!!3!'!!!%,RTTF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N&+39C"$de PG(*[Gf9bDh-J5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!EQ0dCA0d!&0[GA*MCA-!4h*[GA!J-J""6P0*)%aTBR* KFQPPF`"0B@-J6'PLFQ&bD@9c!'&NC#jM!'&dG(4PFh4c,Q-!Bf4QG'9cG(-ZB`" ND@edCA0dFbjM!'4bDACPFLjM!'9YB@aXEf-ZB`"PFR*[FLjM!'eTFf0dCA0d,Q- !FQ9M,Q-!FfaKBR-ZB`"fB@`ZB`"fBA*NC@BZB`"fBA*RCA3ZB`"fBA*RCA4R,Q- !GQ&bF(9d,Q-!GQ&bF(9dCbjM!(CKFR4PFh4c,Q-!GR"eG'GPG#jM!(C`GA4RCA4 R,Q-!D'4Q,P"33bjXD@)!DR"PCbj38%-ZE'PL!'eQD'4Q,P"33bjXD@)!H'4b,P" 33bjXD@)!HLj38%-ZE'PL!%e66#"$,P"33bj-D@)!5@jdCA*QB@0P6'PL!%eKG'K -D@)!69G$8R9ZG'PYC5j-D@)!1QjMG'9cG#e38%-!6'PL)%PYF'pbG#"38%-!3Q& XE'p[EL")C@a`!%eA)%-[3bXV)&"33`"09b"3BA0MB@`J8&"$!&*PHJ"38%0"Ffd !@%024NBJ5@e`Eh*d)&"33`"348BJ5@e`Eh*d)&"33`"YCQKNCQaTBLj`FQpUC@0 d!'KNCQaTBLj`FQpUC@0d!(KNFQaTBLj`FQpUC@0d!'T`C@GXD@)ZF(*[DQ9MG!" kE'PL,R"bEfTPBh3!D'4QE'PL,P"33bjXD@)!690-)&*eER4TE@938%-Z6'PL!%e 66#"658p9@#j38%-Z6'PL!'eQD'4Q)%aTBL!f1%XJ4'9LG@F!1QeQD'4Q0MKV,NC KFLJdD5miC#NZE'PL!'eND'4Q)%aTBL"38%-J4'9LG@F!1QeQD'4Q,P"33bjXD@) !E@CSC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&"$!'KNCL"-D@)J0MK,)%4PBR9R!$T SC'Bf1'XZ4Q&b+$4T,cKN+5jXD@)!D'4Q)%aTBL!f1%X!D'4Q)%aTBL"38%-J4'9 LG@F!1QKNCQaTBLj38%-ZE'PL!'KNCL"-D@)J8&"$!(KNFL"-D@)J0MK,)%4PBR9 R!$TiC()f1'XZ4Q&b+$4T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4b)%aTBL"38%- J4'9LG@F!1RKNFLj38%-ZE'PL!(KNFL"-D@)J8&"$!'T`C@FJ6'PL)$Bi5b"%C@* eC`!kDR"PCcBiDbj'BA)S0'N[1'3T,QaTBJ"UF'9R)%aTBL!f1%X!DR"PCb"-D@) J8&"$)%4PBR9R!$TUF'9R,P"33bjXD@)!DR"PCb"-D@)J8&"$!(TXD@)J0MK,)%4 PBR9R!$Tk0MKV,NCKFLJdD5miC#NZE'PL!(TXD@)J0MK,!(TXD@)J8&"$)%4PBR9 R!$Tk,P"33bjXD@)!HQaTBL"38%-!EQ0dCA0d)&"33b"%C@*eC`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!!!(!!!!!J!!!!!!!!!2!!!!!`!!!!!!!!!A!!!!"!!!!!! !!!!Q!!!!"3!!!!!!!!!d!!!!"J!!!!!!!!!k!!!!"`!!!!!!!!"&!!!!#!!!!!! !!!"3!!!!#3!!!!!!!!"E!!!!#J!!!!!!!!"N!!!!#`!!!!!!!!"Z!!!!$!!!!!! !!!"f!!!!$3!!!!!!!!#"!!!!$J!!!!!!!!#(!!!!$`!!!!!!!!#2!!!!%!!!!!! !!!#9!!!!%3!!!!!!!!#H!!!!%J!!!!!!!!#R!!!!%`!!!!!!!!#a!!!!&!!!!!! !!!#k!!!!&3!!!!!!!!$%!!!!&J!!!!!!!!$2!!!!&`!!!!!!!!$C!!!!'!!!!!! !!!$N!!!!'3!!!!!!!!$`!!!!'J!!!!!!!!$p!!!!'`!!!!!!!!%,!!!!(!!!!!! !!!%A!!!!(3!!!!!!!!%K!!!!(J!!!!!!!!%[!!!!(`!!!!!!!!%m!!!!)!!!!!! !!!&%!!!!)3!!!!!!!!&6!!!!)J!!!!!!!!&I!!!!)`!!!!!!!!&Z!!!!*!!!!!! !!!&l!!!!*3!!!!!!!!')!!!!*J!!!!!!!!'@!!!!*`!!!!!!!!'D!!!!+!!!!!! !!!'K!!!!+3!!!!!!!!'b!!!!+J!!!!!!!!("!!!!+`!!!!!!!!(5!!!!,!!!!!! !!!(K!!!!,3!!!!!!!!(`!!!!,J!!!!!!!!)!!!!!,`!!!!!!!!)0!!!!-!!!!!! !!!)F!!!!-3!!!!!!!!)[!!!!-J!!!!!!!!*"!!!!-`!!!!!!!!*9!!!!0!!!!!! !!!*Z!!!!03!!!!!!!!+#!!!!0J!!!!!!!!+4!!!!0`!!!!!!!!+I!!!!1!!!!!! !!!+Y!!!!13!!!!!!!!+r!!!!1J!!!!!!!!,@!!!!1`!!!!!!!!,L!!!!2!!!!!! !!!,d!!!!23!!!!!!!!-%!!!!2J!!!!!!!!-3!!!!2`!!!!!!!!-L!!!!3!!!!!! !!!-j!!!!33!!!!!!!!0&!!!!3J!!!!!!!!0A!!!!3`!!!!!!!!0N!!!!4!!!!!! !!!0`!!!!43!!!!!!!!1$!!!!4J!!!!!!!!1E!!!!4`!!!!!!!!1S!!!!5!!!!!! !!!1l!!!!53!!!!!!!!2*!!!!5J!!!!!!!!2@!!!!5`!!!!!!!!2P!!!!6!!!!!! !!!2k!!!!63!!!!!!!!3$!!!!6J!!!!!!!!35!!!!6`!!!!!!!!3G!!!!8!!!!!! !!!3Q!!!!83!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!"!!!!"J)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3!!!J!!!!F #!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!!-!!!!)!J!!!!!!!!% !!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!"!!!%!!!!#3)!!!!!!!!"!!%"!!!!!!! !!!!!!!!!!3!!!!!!!!!!!3!!"3!!!!S#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!% !!!!!!!!!!!%!!!B!!!!,!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!! "!!!(!!!!$!)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3!!#!!!!!d #!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!!N!!!!1!J!!!!!!!!% !!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!"!!!+!!!!$`)!!!!!!!!"!!%"!!!!!!! !!!!!!!!!!3!!!!!!!!!!!3!!#`!!!"!#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!% !!!!!!!!!!!%!!!`!!!!4!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!! "!!!0!!!!%J)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3!!$J!!!"- #!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!!m!!!!8!J!!!!!!!!% !!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!"!!!3!!!!&3)!!!!!!!!"!!%"!!!!!!! !!!!!!!!!!3!!!!!!!!!!!3!!%3!!!"B#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!% !!!!!!!!!!!%!!")!!!!A!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!! "!!!6!!!!'!)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3!!(3!!!#X #!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"i!!!!X!J!!!!!!!!% !!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!I!!!!,3)!!!!!!!!"!!%#!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!)!!!!#i#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!! !!!!!!!!!!!%!!#%!!!![!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!M!!!!-!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!J!!!!!!!!!!!!3!!*!!!!"` #!!!!!!!!!3!"!`!!!!!!!!!!!!!!!)!!!!!!!!!!!!%!!#8!!!!D!J!!!!!!!!% !!3-!!!!!!!!!!!!!!!#!!!!!!!!!!!!"!!!Q!!!!(3)!!!!!!!!"!!%$!!!!!!! !!!!!!!!!J!!!!!!!!!!!!3!!*`!!!$%#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!! !!!!!!!!!!!%!!#J!!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!T!!!!-J)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!+J!!!"i #!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!#X!!!!I!J!!!!!!!!% !!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!X!!!!0J8!!!!"!!!G!!%!!!!!!!! !!!!!!!!!J3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!83%!!!3!!!!!!!!!!!3!!!!!)V&&1`$rrr[q!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!`!!!!B!!!!$!!!!"V&+SFF!!$bT!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!#P*26e3 !!!!!!!!!!!!!!!!%4e*98!!!!!!!!!!""e0[GA*MCA-!!!!64NP-43%!!!&'58a &!3!!!NC*6%8"!!!$4NP-43%!!!4'58a&!3!!"8C*6%8"!!!'4NP-43%!!!G'58a &!3!!#%C*6%8"!!!*4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4NP-43%!!!e'58a &!3!!$NC*6%8"!!!24NP-43%!!""'58a&!3!!%8C*6%8"!!!54NP-43%!!"0(8P9 3!!!!!!!!!!8-8h9L,9"bEfTPBh4c!!!!"8C*6%8"!!!G4NP-43%!!"j'58a&!3! !(dC*6%8"!!!J4NP-43%!!#&(8P93!!!!!!!!!!N06@&M)%aTBR*KFQPPF`!!!!* (8P93!!!!!!!!!!S$8&"$!!!!"%C*6%8"!!!R4NP-43%!!#K'58a&!3!!+8C*6%8 "!!!U4NP-43%!!#Y(8P93!!!!!!!!!!B)5%4')%aTBR-!!!!#4e*98!!!!!!!!!! (#&"33b"-D@*c!!!!"%C*6%8"!!!M4NP-43%!!#4'58a&!3!!*8C*6%8"!!!Q4e* 98!!!!!!!!!!)#$Bi5b"-D@*c!!!!!!!!!!!!!!!"!!!!!J!!!!-!!!!%!!!!"3! !!!B!!!!(!!!!#!!!!!N!!!!+!!!!#`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3! !!")!!!!D!!!!'3!!!"X!!!!I!!!!)!!!!"d!!!!6!!!!&!!!!"8!!!!@!!!!&`! !!"J!!!!F!!!!(J!!!#%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%8!!!"'!!!!!!8!!!! !!!!!4`!!!%B!!!!!"3!!!!!!!!")!!!!53%!!#8&!!%!!!!!!%S!!!"*!!!!!!8 !!!!"!!!K!!!!"!!!!!",!!!!6!!!!!!&!!!!!!!!!%d!!!"-!!!!!!8!!!!!!!! !6J!!!%m"!!!Q"3!"!!!!!!"3!!!!6`!!!!!&!!!!!!-36@&M6e-J8&"$)%aTEQY PFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !%'jMG'9cG#"38%-J4'9LG@F!!!!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!J!!""0B@-J6e-J8&"$)%-[3bXV,V8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr39"36!! !!B"BJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cm!!!!!!!!!!!"9!C!!!3N#H`!!!!! !!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!!"!3%!!!!!!!!!!!!"!!!*6@9bCf8 J6h9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$!!i!!!!!!!! !!3!!!!!+99"*,R"bC@CTH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!J!!!!!!!!!!!!!!!!-#!!%"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!3%!!!)"!!!$!3!!"!%!!!8"!!!'!3!!"`%!!!J "!!!*!3!!#J%!!!X"!!!-!3!!$3%!!!i"!!!2!3!!%!%!!"%"!!!5!3!!%`%!!#) "!!!M!3!!*!%!!#8"!!!Q!3!!*`%!!#J"!!!T!3!!+J%!!#X!!J!!!!)!!J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!3%!!!!!!!! !!!!!!#)!!!!m!3!"!!!V!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!J!!!#J!!!!!!!!!!!!!!!!!!!!'!!!!"J!'!!!!#!3!!!N!!6S!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3%!!!!"!!%k1RKNFMS!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%"!!!!!J!"1MSkD'4Q1QT`C@Fk!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!3!!!!-!!6Sk1QKNCMTcFQ-k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3)!!!!%!!%k1MTSC'BkHQaTBMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%#!!! !"3!"1MTXD@*cFQ-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!MT0CA4 bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k690-)%0[E@e[EMT3G@*XD@- J5@jME(9NCA-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!"!!)k6@9dFQphCA*VFb" 6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$1Ne66#"0B@-k8(9LE'PM)%PZBfaeC'9c1J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!!!!J!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3 J6'PLFQ&bH6T08d`J3cT#D@ik!'9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne 66#"$1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"[33!!!F!!MT0B@028b"6GA"`Eh*d1NeKBdKPB@4PFR-k!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!AY!!!!$!!)k6@&M6e-J8h9`F'pbG$T-D@*bBA*TCA-k!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'p3!! !"!!#1NeKBdp6)&0eF("[FR3k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"[8!!!!8!!J!(6@& M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!Bh0cX!!"kF3 !&DTd!!!!!!!!!!!!#mb8!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!IGem!!!!!! #3*R`!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF`"SBh0cX!!"kF3 !&DTd!!!!!!!!!!!!#mb8!!!!!&"33d&cE3"Z)%KPE!!!!!!!!!!!!IGem!!!!!! #3*R`!!!!!&K$6dB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dC ')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L" *EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8!!!!%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"58e*$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!'0cFl!!!HR%!"@UG!!!!!!!!!!!!![ -P!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"849K8,Q- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R0PC`"cFl!!!HR%!"@UG!!!!!!!!!!!!![ -P!!!!!!!8Q9k5Q&fB5")C@`!!!!!!!!!!!(hGI!!!!!!!N#SG!!!!!"NEf0e!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4 [B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&!!!!"AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!!!!!!!!!! !!!!+9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#jbB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ9fPZ8N- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!#jXD@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'p bG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j[BQS!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6f*U)%PYF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!! !!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#%e03dJ!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e$)%-[3bXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF'0S!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%-[3bXV!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%TKGQ%J6'PZDf9 b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""8&"-!--KAJ(hGE!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!" "F("X!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!"$6iaV!#jME'&cFl!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!" $E(0c!#jME'&cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@` !!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"09d0%!--KAJ(hGE!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!" 58e*$!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!"849K8,Q*S!'eXGE!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!" 849K8,QKdE@`!GE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!(hGI!!!!!!!N#SG!!!!!"849K8,QTKGQ%!GE!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!" 849K8,R)!DA"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"5CAS!5Q&fB5")C@` !!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"D59!J!#jkDA"cFl!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm%!!!!" DDA"'!#jkDA"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@` !!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"NEf0e!--KAJ(hGE!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!" bFh*M!--KAJ(hGE!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!(hGI!!!!!!!N#SG'!!!!!!!!!!,Q0XBA0c!,!!!HR%!"@UG!!!!!! !!!!!!![-P!!!!!"09b"+BACK!#")C@`!!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!! !!!!!,RTTF!"cFl!!!HR%!"@UG!!!!!!!!!!!!![-P!!!!!"09b"+BACK!#")C@` !!!!!!!!!!!(hGI!!!!!!!N#Cm!!!!!"1EfjP!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"68e3FJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!6@&M6e-J6@9bCf8!!!! !!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'` !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3 ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(*cFQ- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!! !!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!'`!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!AepcG'&bG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!! !!!!!!!!!!!!!!!!!!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!+EQ0dCA0d,9"33d- [3bXV!!!!!!!!!!!!!!!!!!!!!%j$8d&"8&"-!!!(d!!!"p!!!!"!!!!!J!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cm r2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8"!!!G!!!!"!!!!!!c!!!!0!!!!!! &!!!!!!!!!$8!!!!f!3!!,!8!!3!!!!!!0`!!!$3!!!!!"3!!!!!!!!!i!!!!0J! !!!!&!!!!!3!!(J!!!!3!!!!!13!!!$S!!!!!"3!!!!!!!!!l!!!!1J!!!!!&!!! !!!!!!$`!!!!p!3!!)`8!!3!!!!!!2J!!!$d!!!!!"3!!!!%!!"m!!!!%!!!!!$m !!!"!!!!!!!8!!!!!!!!!33!!!%!!!!!!"3!!!!!!!!"#!!!!3`%!!#3&!!%!!!! !!%3!!!"$!!!!!!8!!!!"!!!J!!!!"!!!!!"&!!!!4J!!!!!&!!!!!!!!!%F!!!" '!!!!!!8!!!!!!!!!5!!!!%N"!!!P"3!"!!!!!!"+!!!!53!!!!!&!!!!!3!!)3! !!!3!!!!!5`!!!%`!!!!!"3!!!!!!!!"0!!!!6!!!!!!&!!!!!!!!!%i!!!"2!3! !*J8!!3!!!!!!8!!!!%m!!!!!"3!!!!!"!!!!#P*26e3!!!!!!!!!!!!!!!!%4e* 98!!!!!!!!!!""e0[GA*MCA-!!!!64NP-43%!!!&'58a&!3!!!NC*6%8"!!!$4NP -43%!!!4'58a&!3!!"8C*6%8"!!!'4NP-43%!!!G'58a&!3!!#%C*6%8"!!!*4NP -43%!!!T'58a&!3!!#dC*6%8"!!!-4NP-43%!!!e'58a&!3!!$NC*6%8"!!!24NP -43%!!""'58a&!3!!%8C*6%8"!!!54NP-43%!!"0(8P93!!!!!!!!!!8-8h9L,9" bEfTPBh4c!!!!"8C*6%8"!!!G4NP-43%!!"j'58a&!3!!(dC*6%8"!!!J4NP-43% !!#&(8P93!!!!!!!!!!N06@&M)%aTBR*KFQPPF`!!!!*(8P93!!!!!!!!!!S$8&" $!!!!"%C*6%8"!!!R4NP-43%!!#K'58a&!3!!+8C*6%8"!!!U4NP-43%!!#Y(8P9 3!!!!!!!!!!B)5%4')%aTBR-!!!!#4e*98!!!!!!!!!!(#&"33b"-D@*c!!!!"8C *6%8"!!!X4NP-43%!!#0'58a&!3!!*%C*6%8"!!!P4NP-43%!!#C(8P93!!!!!!! !!!J)0MK,)%aTBR-!!!!!!R#j`!!!!LS!!!J!EA0dFJ!!!!!!!!!!!!!#F,Q!!!! ++J!!!`"YFh4X!!!!!!!!!!!!!!*`Yb!!!!dU!!!"!'ecG'i!!!!!!!!!!!!!!!! !!!!!$LS!!!!SEA0dD3!!!!!!!!!!!!!#F,D`!!!6#J!!#!"YFh4b!!!$k!!!!!! !!!*`ZL3!!"X+!!!%J'ecG'`!!!2S!!!!!!!!!R#fe!!!$P)!!!'!EA0dEJ!!!qJ !!!!!!!!!!!!!!!!!+!!!!!4`FQ9Q!!b,!J!!!!%!!!!!!!!!!!!X!!!!"("bC@B !$)4-!!!!!J!!!!!!!!!!!$!!!!"UF(*PCJ!,pM3!!!!$!!!!!!!!!!!!QJ!!!#j `FQ9Q!!a9K3!!!!3!!!!!!!!!!!$)!!!!5R"bC@B!$!$G!!!!"3!!!!!!!!!!!4) !!!!NF(*PCJ!-*#-!!!!'!!!!!!!!!!!"0J!!!!C`FQ9Q!![B-`!!!!F!!!!!!!! !!!%m!!!!N!"`FQ9Q!!a6@3!!!!J!!!!!!!!!!!(-!!!!5R"bC@B!$(LH!!!!#3! !!!!!!!!!!KB!!!!8F(*PCJ!-6DJ!!!!+!!!!!!!!!!!4P!!!!AC`FQ9Q!!ahLJ! !!"8!!!*`Y[3!!$9l!!!!''edFf`!!!!"!!!!!!!!!R#k2!!!(iS!!!PJEA4`E!! !!!%!!!!!!!!#F,R`!!!3#!!!!(4YG'a[!!!!!3!!!!!!!!!!!!!!!!r5!!!!$Qe dF'N!!!!"!!!!!!!!!R#e'!!!+1S!!!)DEA4RE!!!!qJ!!!!!!!!#F,I8!!!V"!! !!LaYF(0T!!!$k!!!!!!!!!*`ZJJ!!(([!!!"f9"-Fh3!$&Ld!!!!)3!!!!!!!!! !$q!!!!!SEA0dD3!!!qJ!!!!!!!!#F,P-!!![!3!!!2"YG("c!!!!!3!!!!!!!!! !!!!!!("[!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!%2J!!!!DF(*PCJ!-`j-!!!! N!!!!!!!!!!!eN`!!'("`FQ9Q!!bEM`!!!#8!!!!!!!!!!$#*!!!#C("bC@B!$*P *!!!!*J!!!!!!!!!!6J-!!"[bF(*PCJ!-9`F!!!!R!!!!!!!!!!!4%J!!!!4`FQ9 Q!!`N%`!!!#J!!!!!!!!!!"%@!!!!'("bC@B!$!&R!!!!+3!!!!!!!!!!%5i!!!! +F(*PCJ!-Uem!!!!U!!!!!!!!!!!41!!!!!j`FQ9Q!!bdhJ!!!#X!!!!!!!!!!$, Y!!!!aR"bC@B!$"'k!!!!,!!!!!!!!!!!%8B!!!!iF(*PCJ!-6Ci!!!!Y!!!!!!! !!!!4IJ!!!!a`FQ9Q!!a(C!!!!#i!!!!!!!!!!'Re!!!"fR"bC@B!$'9G!!!!,`! !!!!!!!!!-l-!!!!-F(*PCJ!-%P8!!!!`!!!!!!!!!!!c[`!!!'*`FQ9Q!!cI5J! !!$%!!!!!!!!!!$3K!!!!1("bC@B!#qZK!!!!-J!!!!!!!!!!0&N!!!!0F(*PCJ! -(XF!!!!c!!!!!!!!!!!dCJ!!!"4`FQ9Q!![YG`!!!$3!!!!!!!!!!"'+!!!!#R" bC@B!$'rU!!!!03!!!!!!!!!!Dmm!!!$%F(*PCJ!-kBF!!!!f!!!!!!!!!!"XN`! !!4C`FQ9Q!!`G%J!!!$F!!!!!!!!!!'fT!!!!ZR"bC@B!$18J!!!!1!!!!!!!!!! !03d!!!!ZF(*PCJ!,pUd!!!!j!!!!!!!!!!"ZB`!!!Ja`FQ9Q!!a@6!!!!$S!!24 C!!!: libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/test_unlim.nc0000644000000000000000000000075012421456623016201 0ustar CDF xytime aàdateøtimeüb ?€@@@@€@ @À Ñ´ Ò Ò| Òß ÓD  Ó§ Ô  Ôp ÔÓ  Õ8  Õ› !!"" Ö ##$$%%libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/CMakeLists.txt0000644000000000000000000000453612421456623016242 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_NCTEST) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) ENDIF (HDF4_BUILD_XDR_LIB) SET (nctest_SRCS ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/add.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/atttests.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/cdftests.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/dimtests.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/driver.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/emalloc.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/error.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/misctest.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/rec.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/slabs.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/val.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/varget_unlim.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/varget.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/vargetg.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/varput.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/varputg.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/vardef.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/vartests.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/vputget.c ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/vputgetg.c ) ADD_EXECUTABLE (nctest ${nctest_SRCS}) TARGET_C_PROPERTIES (nctest " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (nctest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET} ) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (nctest ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_NAMING (nctest ${LIB_TYPE}) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_NC_TEST_FILES test_unlim.cdl test_unlim.nc ) FOREACH (h4_file ${HDF4_NC_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET nctest POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_MFHDF_NCTEST_SOURCE_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_NC_TEST_FILES}) INCLUDE (CMakeTests.cmake) libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/nctest.mak0000644000000000000000000002541312421456623015471 0ustar # Microsoft Visual C++ Generated NMAKE File, Format Version 2.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 !IF "$(CFG)" == "" CFG=Win32 Debug !MESSAGE No configuration specified. Defaulting to Win32 Debug. !ENDIF !IF "$(CFG)" != "Win32 Release" && "$(CFG)" != "Win32 Debug" !MESSAGE Invalid configuration "$(CFG)" specified. !MESSAGE You can specify a configuration when running NMAKE on this makefile !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "nctest.mak" CFG="Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "Win32 Release" (based on "Win32 (x86) Console Application") !MESSAGE "Win32 Debug" (based on "Win32 (x86) Console Application") !MESSAGE !ERROR An invalid configuration is specified. !ENDIF ################################################################################ # Begin Project CPP=cl.exe RSC=rc.exe !IF "$(CFG)" == "Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "WinRel" # PROP BASE Intermediate_Dir "WinRel" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/nctest.exe $(OUTDIR)/nctest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /YX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /O2 /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D "HDF" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /O2 /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src"\ /I "..\..\hdf\jpeg" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D\ "HDF" /Fo$(INTDIR)/ /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"nctest.bsc" $(OUTDIR)/nctest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE=$(INTDIR)/nctest.def LINK32_OBJS= \ $(INTDIR)/varput.obj \ $(INTDIR)/emalloc.obj \ $(INTDIR)/vargetg.obj \ $(INTDIR)/vartests.obj \ $(INTDIR)/vardef.obj \ $(INTDIR)/vputget.obj \ $(INTDIR)/misctest.obj \ $(INTDIR)/slabs.obj \ $(INTDIR)/varget.obj \ $(INTDIR)/vputgetg.obj \ $(INTDIR)/driver.obj \ $(INTDIR)/add.obj \ $(INTDIR)/rec.obj \ $(INTDIR)/dimtests.obj \ $(INTDIR)/cdftests.obj \ $(INTDIR)/val.obj \ $(INTDIR)/error.obj \ $(INTDIR)/varputg.obj \ $(INTDIR)/atttests.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib\ ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO\ /SUBSYSTEM:console /INCREMENTAL:no /PDB:$(OUTDIR)/"nctest.pdb" /MACHINE:I386\ /DEF:".\nctest.def" /OUT:$(OUTDIR)/"nctest.exe" $(OUTDIR)/nctest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ELSEIF "$(CFG)" == "Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "WinDebug" # PROP BASE Intermediate_Dir "WinDebug" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "" # PROP Intermediate_Dir "" OUTDIR=. INTDIR=. ALL : $(OUTDIR)/nctest.exe $(OUTDIR)/nctest.bsc # ADD BASE CPP /nologo /ML /W3 /GX /Zi /YX /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /FR /c # ADD CPP /nologo /ML /W3 /GX /Zi /Od /I "..\xdr" /I "..\libsrc" /I "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "NO_SYS_XDR_INC" /D "HDF" /c # SUBTRACT CPP /YX /Fr CPP_PROJ=/nologo /ML /W3 /GX /Zi /Od /I "..\xdr" /I "..\libsrc" /I\ "..\..\hdf\src" /I "..\..\hdf\jpeg" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D\ "NO_SYS_XDR_INC" /D "HDF" /Fo$(INTDIR)/ /Fd$(OUTDIR)/"nctest.pdb" /c CPP_OBJS= # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe BSC32_SBRS= \ # ADD BASE BSC32 /nologo # ADD BSC32 /nologo BSC32_FLAGS=/nologo /o$(OUTDIR)/"nctest.bsc" $(OUTDIR)/nctest.bsc : $(OUTDIR) $(BSC32_SBRS) LINK32=link.exe DEF_FILE=$(INTDIR)/nctest.def LINK32_OBJS= \ $(INTDIR)/varput.obj \ $(INTDIR)/emalloc.obj \ $(INTDIR)/vargetg.obj \ $(INTDIR)/vartests.obj \ $(INTDIR)/vardef.obj \ $(INTDIR)/vputget.obj \ $(INTDIR)/misctest.obj \ $(INTDIR)/slabs.obj \ $(INTDIR)/varget.obj \ $(INTDIR)/vputgetg.obj \ $(INTDIR)/driver.obj \ $(INTDIR)/add.obj \ $(INTDIR)/rec.obj \ $(INTDIR)/dimtests.obj \ $(INTDIR)/cdftests.obj \ $(INTDIR)/val.obj \ $(INTDIR)/error.obj \ $(INTDIR)/varputg.obj \ $(INTDIR)/atttests.obj # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO /SUBSYSTEM:console /DEBUG /MACHINE:I386 LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib\ advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ odbccp32.lib ..\xdr\win32xdr.lib ..\libsrc\win32cdf.lib\ ..\..\hdf\src\win32hdf.lib ..\..\hdf\jpeg\win32jpg.lib /NOLOGO\ /SUBSYSTEM:console /INCREMENTAL:yes /PDB:$(OUTDIR)/"nctest.pdb" /DEBUG\ /MACHINE:I386 /DEF:".\nctest.def" /OUT:$(OUTDIR)/"nctest.exe" $(OUTDIR)/nctest.exe : $(OUTDIR) $(DEF_FILE) $(LINK32_OBJS) $(LINK32) @<< $(LINK32_FLAGS) $(LINK32_OBJS) << !ENDIF .c{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cpp{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< .cxx{$(CPP_OBJS)}.obj: $(CPP) $(CPP_PROJ) $< ################################################################################ # Begin Group "Source Files" ################################################################################ # Begin Source File SOURCE=.\varput.c $(INTDIR)/varput.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\nctest.def # End Source File ################################################################################ # Begin Source File SOURCE=.\tests.h # End Source File ################################################################################ # Begin Source File SOURCE=.\emalloc.c $(INTDIR)/emalloc.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\vargetg.c $(INTDIR)/vargetg.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\emalloc.h # End Source File ################################################################################ # Begin Source File SOURCE=.\vartests.c $(INTDIR)/vartests.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\vardef.c $(INTDIR)/vardef.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\vputget.c $(INTDIR)/vputget.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\misctest.c $(INTDIR)/misctest.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\slabs.c $(INTDIR)/slabs.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\varget.c $(INTDIR)/varget.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\testcdf.h # End Source File ################################################################################ # Begin Source File SOURCE=.\vputgetg.c $(INTDIR)/vputgetg.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\driver.c $(INTDIR)/driver.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\add.c $(INTDIR)/add.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\add.h # End Source File ################################################################################ # Begin Source File SOURCE=.\rec.c $(INTDIR)/rec.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\dimtests.c $(INTDIR)/dimtests.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\cdftests.c $(INTDIR)/cdftests.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\val.c $(INTDIR)/val.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\val.h # End Source File ################################################################################ # Begin Source File SOURCE=.\error.c $(INTDIR)/error.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\error.h # End Source File ################################################################################ # Begin Source File SOURCE=.\varputg.c $(INTDIR)/varputg.obj : $(SOURCE) $(INTDIR) # End Source File ################################################################################ # Begin Source File SOURCE=.\atttests.c $(INTDIR)/atttests.obj : $(SOURCE) $(INTDIR) # End Source File # End Group # End Project ################################################################################ libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/varput.c0000644000000000000000000001116212421456623015160 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: varput.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "val.h" #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif /* * Test ncvarput * check that proper call worked with ncvarget * try with negative coords, edges, check error * try with too-large coords, edges, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvarput(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarput"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc; /* test hypercube */ int tmp; int id; /* dimension id */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); /* handle case where struct netcdf test is uninitialised */ hc.cor[0] = 0 ; hc.edg[0] = 1 ; hc.vals = 0 ; if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting hypercubes of each type */ nerrs += test_varputget (cdfid); /* prints messages for discrepencies */ /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is first varid of var with dimensions */ /* set coords */ for (id = 0; id < test.vars[iv].ndims; id++) { hc.cor[id] = 0; hc.edg[id] = 1; } /* fill in vals with value of appropriate type */ hc.vals = emalloc(nctypelen(test.vars[iv].type)); val_fill(test.vars[iv].type, 1, hc.vals); id = test.vars[iv].ndims - 1; tmp = hc.cor[id]; hc.cor[id] = -1; /* try negative coordinate, should fail */ if(ncvarput (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail for negative corner", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = -1; /* try negative edge, should fail */ if(ncvarput (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail for negative edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; { long mqv = test.vars[iv].ndims -1 ; int dim = test.vars[iv].dims[mqv] ; tmp = hc.cor[mqv]; hc.cor[mqv] = test.dims[dim].size; /* try big coordinate, should fail */ if(ncvarput (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail for too-high coordinate", pname); ncclose(cdfid); return; } hc.cor[mqv] = tmp; tmp = hc.edg[mqv]; hc.edg[mqv] = test.dims[dim].size + 1; /* try big edge, should fail */ if(ncvarput (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail for too-high edge", pname); ncclose(cdfid); return; } hc.edg[mqv] = tmp; } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if(ncvarput (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } } else error("\"struct netcdf test\" uninitialized, no tests performed") ; /* try with bad variable handle, should fail */ if(ncvarput (cdfid, -1, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if(ncvarput (cdfid, 0, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarput failed to report bad netcdf handle", pname); nerrs++; } if(hc.vals) Free ((char *)hc.vals); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/add.c0000644000000000000000000001315212421456623014370 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: add.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ /* * utility functions to update in-memory netcdf by adding new * dimensions, variables, and attributes. */ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" #include "add.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif struct netcdf test; /* * in-memory netcdf structure, kept in sync * with disk netcdf */ void add_dim (test, idim) /* add the dimension idim to the netcdf test */ struct netcdf *test; struct cdfdim *idim; { static char pname[] = "add_dim"; if (test->ndims >= H4_MAX_NC_DIMS) { (void)fprintf(stderr, "%s: too many dimensions (%d)", pname, test->ndims); return; } test->dims[test->ndims].size = idim->size; test->dims[test->ndims].name = (char *) emalloc(strlen(idim->name) + 1); (void) strcpy(test->dims[test->ndims].name, idim->name); if (idim->size == NC_UNLIMITED) test->xdimid = test->ndims; test->ndims++; } void add_var (test, ivar) /* add the variable ivar to the netcdf test */ struct netcdf *test; struct cdfvar *ivar; { static char pname[] = "add_var"; int i; if (test->nvars >= H4_MAX_NC_VARS) { (void)fprintf(stderr, "%s: too many variables (%d)", pname, test->nvars); return; } test->vars[test->nvars].name = (char *) emalloc(strlen(ivar->name) + 1); (void) strcpy(test->vars[test->nvars].name, ivar->name); test->vars[test->nvars].type = ivar->type; test->vars[test->nvars].ndims = ivar->ndims; test->vars[test->nvars].dims = (int *) emalloc(sizeof(int)*ivar->ndims); for (i = 0; i < ivar->ndims; i++) test->vars[test->nvars].dims[i] = ivar->dims[i]; test->vars[test->nvars].natts = 0; test->nvars++; } void add_att (test, varid, iatt) /* add attribute iatt to the netcdf test */ struct netcdf *test; int varid; /* variable id */ struct cdfatt *iatt; { static char pname[] = "add_att"; int ia; /* attribute number */ if (test->natts >= MAX_TEST_ATTS) { (void)fprintf(stderr, "%s: too many attributes (%d)", pname, test->natts); return; } /* if already defined, change existing attribute and return */ for (ia = 0; ia < test->natts ; ia++) { if (test->atts[ia].var == varid && strcmp(test->atts[ia].name, iatt->name) == 0) { test->atts[ia].type = iatt->type; test->atts[ia].len = iatt->len; test->atts[ia].val = iatt->val; return; } } /* otherwise, add new attribute to list */ test->atts[test->natts].var = varid; test->atts[test->natts].name = (char *) emalloc(strlen(iatt->name) + 1); (void) strcpy(test->atts[test->natts].name, iatt->name); test->atts[test->natts].type = iatt->type; test->atts[test->natts].len = iatt->len; test->atts[test->natts].val = iatt->val; test->natts++; if (varid == NC_GLOBAL) test->ngatts++; else test->vars[varid].natts++; } void add_reset(test) /* reset in-memory netcdf test to empty */ struct netcdf *test; { test->ndims = 0; test->nvars = 0; test->natts = 0; test->ngatts = 0; test->xdimid = -1; /* no unlimited dimension */ } void del_att (test, varid, iatt) /* delete attribute iatt in the netcdf test */ struct netcdf *test; int varid; /* variable id */ struct cdfatt *iatt; { static char pname[] = "del_att"; int ia, ib; /* attribute number */ for (ia = 0; ia < test->natts ; ia++) { /* find attribute to delete */ if (test->atts[ia].var == varid && strcmp(test->atts[ia].name, iatt->name) == 0) { Free(test->atts[ia].name); for (ib = ia+1; ib < test->natts; ib++) { /* move down */ test->atts[ib-1].var = test->atts[ib].var; test->atts[ib-1].name = test->atts[ib].name; test->atts[ib-1].type = test->atts[ib].type; test->atts[ib-1].len = test->atts[ib].len; test->atts[ib-1].val = test->atts[ib].val; } test->natts--; if (varid == NC_GLOBAL) test->ngatts--; else test->vars[varid].natts--; return; } } /* not found */ (void) fprintf(stderr, "%s: no such attribute as (%s, %s)", pname, test->vars[varid].name, iatt->name); } void add_data(test, varid, start, edges) /* keep max record written updated */ struct netcdf *test; int varid; long start[]; long edges[]; { if (varid != test->xdimid) /* not a record variable */ return; if (start[0] + edges[0] > test->dims[test->xdimid].size) test->dims[test->xdimid].size = start[0] + edges[0]; } void errvar(cdfp, varp) struct netcdf *cdfp; struct cdfvar *varp; { const char *types; int id; switch (varp->type) { case NC_BYTE: types = "NC_BYTE"; break; case NC_CHAR: types = "NC_CHAR"; break; case NC_SHORT: types = "NC_SHORT"; break; case NC_LONG: types = "NC_LONG"; break; case NC_FLOAT: types = "NC_FLOAT"; break; case NC_DOUBLE: types = "NC_DOUBLE "; break; default: types = "UNKNOWN"; break; } (void) fprintf(stderr," name=%s type=%s dims=(", varp->name, types); for (id = 0; id < varp->ndims; id++) (void) fprintf(stderr, "%d%s", (int)cdfp->dims[varp->dims[id]].size, id < varp->ndims - 1 ? ", " : ""); (void) fprintf(stderr, ")\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/depend0000644000000000000000000002052512421456623014660 0ustar add.o: add.c add.o: ../../mfhdf/libsrc/netcdf.h add.o: ../../hdf/src//hlimits.h add.o: testcdf.h add.o: ../../hdf/src//hdf.h add.o: ../../hdf/src//hdfi.h add.o: ../../hdf/src//hntdefs.h add.o: ../../hdf/src//htags.h add.o: ../../hdf/src//hbitio.h add.o: ../../hdf/src//hcomp.h add.o: ../../hdf/src//herr.h add.o: ../../hdf/src//hproto.h add.o: add.h add.o: ../../mfhdf/libsrc/alloc.h add.o: emalloc.h atttests.o: atttests.c atttests.o: ../../mfhdf/libsrc/netcdf.h atttests.o: ../../hdf/src//hlimits.h atttests.o: testcdf.h atttests.o: ../../hdf/src//hdf.h atttests.o: ../../hdf/src//hdfi.h atttests.o: ../../hdf/src//hntdefs.h atttests.o: ../../hdf/src//htags.h atttests.o: ../../hdf/src//hbitio.h atttests.o: ../../hdf/src//hcomp.h atttests.o: ../../hdf/src//herr.h atttests.o: ../../hdf/src//hproto.h atttests.o: add.h atttests.o: error.h atttests.o: ../../mfhdf/libsrc/alloc.h atttests.o: emalloc.h atttests.o: tests.h atttests.o: val.h cdftests.o: cdftests.c cdftests.o: ../../mfhdf/libsrc/netcdf.h cdftests.o: ../../hdf/src//hlimits.h cdftests.o: testcdf.h cdftests.o: ../../hdf/src//hdf.h cdftests.o: ../../hdf/src//hdfi.h cdftests.o: ../../hdf/src//hntdefs.h cdftests.o: ../../hdf/src//htags.h cdftests.o: ../../hdf/src//hbitio.h cdftests.o: ../../hdf/src//hcomp.h cdftests.o: ../../hdf/src//herr.h cdftests.o: ../../hdf/src//hproto.h cdftests.o: add.h cdftests.o: error.h cdftests.o: tests.h cdftests.o: ../../mfhdf/libsrc/alloc.h cdftests.o: emalloc.h dimtests.o: dimtests.c dimtests.o: ../../mfhdf/libsrc/netcdf.h dimtests.o: ../../hdf/src//hlimits.h dimtests.o: testcdf.h dimtests.o: ../../hdf/src//hdf.h dimtests.o: ../../hdf/src//hdfi.h dimtests.o: ../../hdf/src//hntdefs.h dimtests.o: ../../hdf/src//htags.h dimtests.o: ../../hdf/src//hbitio.h dimtests.o: ../../hdf/src//hcomp.h dimtests.o: ../../hdf/src//herr.h dimtests.o: ../../hdf/src//hproto.h dimtests.o: add.h dimtests.o: error.h dimtests.o: tests.h dimtests.o: ../../mfhdf/libsrc/alloc.h dimtests.o: emalloc.h driver.o: driver.c driver.o: ../../mfhdf/libsrc/netcdf.h driver.o: ../../hdf/src//hlimits.h driver.o: tests.h emalloc.o: emalloc.c emalloc.o: error.h emalloc.o: ../../hdf/src//hdf.h emalloc.o: ../../hdf/src//hdfi.h emalloc.o: ../../hdf/src//hlimits.h emalloc.o: ../../hdf/src//hntdefs.h emalloc.o: ../../hdf/src//htags.h emalloc.o: ../../hdf/src//hbitio.h emalloc.o: ../../hdf/src//hcomp.h emalloc.o: ../../hdf/src//herr.h emalloc.o: ../../hdf/src//hproto.h emalloc.o: emalloc.h error.o: error.c error.o: ../../mfhdf/libsrc/netcdf.h error.o: ../../hdf/src//hlimits.h error.o: error.h error.o: ../../hdf/src//hdf.h error.o: ../../hdf/src//hdfi.h error.o: ../../hdf/src//hntdefs.h error.o: ../../hdf/src//htags.h error.o: ../../hdf/src//hbitio.h error.o: ../../hdf/src//hcomp.h error.o: ../../hdf/src//herr.h error.o: ../../hdf/src//hproto.h misctest.o: misctest.c misctest.o: ../../mfhdf/libsrc/netcdf.h misctest.o: ../../hdf/src//hlimits.h misctest.o: testcdf.h misctest.o: ../../hdf/src//hdf.h misctest.o: ../../hdf/src//hdfi.h misctest.o: ../../hdf/src//hntdefs.h misctest.o: ../../hdf/src//htags.h misctest.o: ../../hdf/src//hbitio.h misctest.o: ../../hdf/src//hcomp.h misctest.o: ../../hdf/src//herr.h misctest.o: ../../hdf/src//hproto.h misctest.o: add.h misctest.o: error.h rec.o: rec.c rec.o: ../../mfhdf/libsrc/netcdf.h rec.o: ../../hdf/src//hlimits.h rec.o: testcdf.h rec.o: ../../hdf/src//hdf.h rec.o: ../../hdf/src//hdfi.h rec.o: ../../hdf/src//hntdefs.h rec.o: ../../hdf/src//htags.h rec.o: ../../hdf/src//hbitio.h rec.o: ../../hdf/src//hcomp.h rec.o: ../../hdf/src//herr.h rec.o: ../../hdf/src//hproto.h rec.o: val.h rec.o: error.h rec.o: tests.h rec.o: ../../mfhdf/libsrc/alloc.h rec.o: emalloc.h slabs.o: slabs.c slabs.o: ../../mfhdf/libsrc/netcdf.h slabs.o: ../../hdf/src//hlimits.h slabs.o: testcdf.h slabs.o: ../../hdf/src//hdf.h slabs.o: ../../hdf/src//hdfi.h slabs.o: ../../hdf/src//hntdefs.h slabs.o: ../../hdf/src//htags.h slabs.o: ../../hdf/src//hbitio.h slabs.o: ../../hdf/src//hcomp.h slabs.o: ../../hdf/src//herr.h slabs.o: ../../hdf/src//hproto.h slabs.o: add.h slabs.o: error.h slabs.o: tests.h slabs.o: ../../mfhdf/libsrc/alloc.h slabs.o: emalloc.h val.o: val.c val.o: ../../mfhdf/libsrc/netcdf.h val.o: ../../hdf/src//hlimits.h val.o: testcdf.h val.o: ../../hdf/src//hdf.h val.o: ../../hdf/src//hdfi.h val.o: ../../hdf/src//hntdefs.h val.o: ../../hdf/src//htags.h val.o: ../../hdf/src//hbitio.h val.o: ../../hdf/src//hcomp.h val.o: ../../hdf/src//herr.h val.o: ../../hdf/src//hproto.h val.o: val.h val.o: error.h vardef.o: vardef.c vardef.o: ../../mfhdf/libsrc/netcdf.h vardef.o: ../../hdf/src//hlimits.h vardef.o: testcdf.h vardef.o: ../../hdf/src//hdf.h vardef.o: ../../hdf/src//hdfi.h vardef.o: ../../hdf/src//hntdefs.h vardef.o: ../../hdf/src//htags.h vardef.o: ../../hdf/src//hbitio.h vardef.o: ../../hdf/src//hcomp.h vardef.o: ../../hdf/src//herr.h vardef.o: ../../hdf/src//hproto.h vardef.o: add.h vardef.o: error.h vardef.o: tests.h vardef.o: ../../mfhdf/libsrc/alloc.h vardef.o: emalloc.h varget.o: varget.c varget.o: ../../mfhdf/libsrc/netcdf.h varget.o: ../../hdf/src//hlimits.h varget.o: testcdf.h varget.o: ../../hdf/src//hdf.h varget.o: ../../hdf/src//hdfi.h varget.o: ../../hdf/src//hntdefs.h varget.o: ../../hdf/src//htags.h varget.o: ../../hdf/src//hbitio.h varget.o: ../../hdf/src//hcomp.h varget.o: ../../hdf/src//herr.h varget.o: ../../hdf/src//hproto.h varget.o: error.h varget.o: tests.h varget.o: ../../mfhdf/libsrc/alloc.h varget.o: emalloc.h vargetg.o: vargetg.c vargetg.o: ../../mfhdf/libsrc/netcdf.h vargetg.o: ../../hdf/src//hlimits.h vargetg.o: testcdf.h vargetg.o: ../../hdf/src//hdf.h vargetg.o: ../../hdf/src//hdfi.h vargetg.o: ../../hdf/src//hntdefs.h vargetg.o: ../../hdf/src//htags.h vargetg.o: ../../hdf/src//hbitio.h vargetg.o: ../../hdf/src//hcomp.h vargetg.o: ../../hdf/src//herr.h vargetg.o: ../../hdf/src//hproto.h vargetg.o: error.h vargetg.o: tests.h vargetg.o: ../../mfhdf/libsrc/alloc.h vargetg.o: emalloc.h varput.o: varput.c varput.o: ../../mfhdf/libsrc/netcdf.h varput.o: ../../hdf/src//hlimits.h varput.o: testcdf.h varput.o: ../../hdf/src//hdf.h varput.o: ../../hdf/src//hdfi.h varput.o: ../../hdf/src//hntdefs.h varput.o: ../../hdf/src//htags.h varput.o: ../../hdf/src//hbitio.h varput.o: ../../hdf/src//hcomp.h varput.o: ../../hdf/src//herr.h varput.o: ../../hdf/src//hproto.h varput.o: val.h varput.o: error.h varput.o: tests.h varput.o: ../../mfhdf/libsrc/alloc.h varput.o: emalloc.h varputg.o: varputg.c varputg.o: ../../mfhdf/libsrc/netcdf.h varputg.o: ../../hdf/src//hlimits.h varputg.o: testcdf.h varputg.o: ../../hdf/src//hdf.h varputg.o: ../../hdf/src//hdfi.h varputg.o: ../../hdf/src//hntdefs.h varputg.o: ../../hdf/src//htags.h varputg.o: ../../hdf/src//hbitio.h varputg.o: ../../hdf/src//hcomp.h varputg.o: ../../hdf/src//herr.h varputg.o: ../../hdf/src//hproto.h varputg.o: val.h varputg.o: error.h varputg.o: tests.h varputg.o: ../../mfhdf/libsrc/alloc.h varputg.o: emalloc.h vartests.o: vartests.c vartests.o: ../../mfhdf/libsrc/netcdf.h vartests.o: ../../hdf/src//hlimits.h vartests.o: testcdf.h vartests.o: ../../hdf/src//hdf.h vartests.o: ../../hdf/src//hdfi.h vartests.o: ../../hdf/src//hntdefs.h vartests.o: ../../hdf/src//htags.h vartests.o: ../../hdf/src//hbitio.h vartests.o: ../../hdf/src//hcomp.h vartests.o: ../../hdf/src//herr.h vartests.o: ../../hdf/src//hproto.h vartests.o: add.h vartests.o: error.h vartests.o: tests.h vartests.o: ../../mfhdf/libsrc/alloc.h vartests.o: emalloc.h vputget.o: vputget.c vputget.o: ../../mfhdf/libsrc/netcdf.h vputget.o: ../../hdf/src//hlimits.h vputget.o: testcdf.h vputget.o: ../../hdf/src//hdf.h vputget.o: ../../hdf/src//hdfi.h vputget.o: ../../hdf/src//hntdefs.h vputget.o: ../../hdf/src//htags.h vputget.o: ../../hdf/src//hbitio.h vputget.o: ../../hdf/src//hcomp.h vputget.o: ../../hdf/src//herr.h vputget.o: ../../hdf/src//hproto.h vputget.o: add.h vputget.o: val.h vputget.o: error.h vputget.o: tests.h vputget.o: ../../mfhdf/libsrc/alloc.h vputget.o: emalloc.h vputgetg.o: vputgetg.c vputgetg.o: ../../mfhdf/libsrc/netcdf.h vputgetg.o: ../../hdf/src//hlimits.h vputgetg.o: testcdf.h vputgetg.o: ../../hdf/src//hdf.h vputgetg.o: ../../hdf/src//hdfi.h vputgetg.o: ../../hdf/src//hntdefs.h vputgetg.o: ../../hdf/src//htags.h vputgetg.o: ../../hdf/src//hbitio.h vputgetg.o: ../../hdf/src//hcomp.h vputgetg.o: ../../hdf/src//herr.h vputgetg.o: ../../hdf/src//hproto.h vputgetg.o: add.h vputgetg.o: val.h vputgetg.o: error.h vputgetg.o: tests.h vputgetg.o: ../../mfhdf/libsrc/alloc.h vputgetg.o: emalloc.h libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/add.h0000644000000000000000000000305612421456623014377 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: add.h 2365 1996-03-26 22:43:35Z georgev $ *********************************************************************/ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif /* add a dimension to an in-memory netcdf structure */ extern void add_dim PROTO(( struct netcdf *, struct cdfdim * )); /* add a variable var to an in-memory netcdf structure */ extern void add_var PROTO(( struct netcdf *, struct cdfvar * )); /* add an attribute att to an in-memory netcdf structure */ extern void add_att PROTO(( struct netcdf *, int, struct cdfatt * )); /* reset in-memory netcdf structure to empty */ extern void add_reset PROTO(( struct netcdf * )); /* delete an attribute att from an in-memory netcdf structure */ extern void del_att PROTO(( struct netcdf *, int, struct cdfatt * )); /* keep max record written updated */ extern void add_data PROTO(( struct netcdf *, int, long [], long [] )); /* display info about variable, for error messages */ extern void errvar PROTO(( struct netcdf *, struct cdfvar * )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/rec.c0000644000000000000000000004022212421456623014407 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: rec.c 5207 2009-08-05 04:18:22Z bmribler $ *********************************************************************/ #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "val.h" #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define VARS 100 /* * Returns number of record variables in an open netCDF file, and an array of * the record variable ids, if the array parameter is non-null. Returns -1 on * error. */ static int numrecvars(ncid, recvarids) int ncid; int *recvarids; { int ndims, iv, nvars; int nrecvars; int recdimid; int dimids[H4_MAX_VAR_DIMS]; if (ncinquire(ncid, NULL, &nvars, NULL, &recdimid) == -1) return -1; if (recdimid == -1) return 0; nrecvars = 0; for (iv = 0; iv < nvars; iv++) { if (ncvarinq(ncid, iv, NULL, NULL, &ndims, dimids, NULL) == -1) return -1; if (ndims > 0 && dimids[0] == recdimid) { if (recvarids) recvarids[nrecvars] = iv; nrecvars++; } } return nrecvars; } /* * Returns record size (in bytes) of the record variable with a specified * variable id. Returns 0 if not a record variable. Returns -1 on error. */ static long ncrecsize(ncid,vid) int ncid; int vid; { int recdimid; nc_type type; int ndims; int dimids[H4_MAX_VAR_DIMS]; int id; long size; if (ncinquire(ncid, NULL, NULL, NULL, &recdimid) == -1) return -1; if (ncvarinq(ncid, vid, 0, &type, &ndims, dimids, NULL) == -1) return -1; if (ndims == 0 || dimids[0] != recdimid) return 0; size = nctypelen(type); for (id = 1; id < ndims; id++) { long len; (void) ncdiminq(ncid, dimids[id], 0, &len); size *= len; } return size; } /* * Retrieves the number of record variables, the record variable ids, and the * record size of each record variable. If any pointer to info to be returned * is null, the associated information is not returned. Returns -1 on error. * This is the same as the ncrecinq() in the library, except that can handle * errors better. */ static int recinq(ncid, nrecvars, recvarids, recsizes) int ncid; int *nrecvars; int *recvarids; long *recsizes; { int iv; int rvarids[VARS]; int nrvars = numrecvars(ncid, rvarids); if (nrvars == -1) return -1; if (nrecvars) *nrecvars = nrvars; if (recvarids) for (iv = 0; iv < nrvars; iv++) recvarids[iv] = rvarids[iv]; if (recsizes) for (iv = 0; iv < nrvars; iv++) recsizes[iv] = ncrecsize(ncid, rvarids[iv]); return 0; } /* * Test ncrecinq * try in both data and define modes * check returned values against independently computed values * try with bad netCDF handle, check error */ void test_ncrecinq(path) char *path; /* name of netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncrecinq"; int ncid; int nrvars; /* number of record variables */ int rvarids[VARS]; /* id of each record variable */ long rvarsizes[VARS]; /* record size of each record variable */ int tnrvars; /* true number of record variables */ int trvarids[VARS]; /* true id of each record variable */ long trvarsizes[VARS]; /* true rec size of each record variable */ int iv; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((ncid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* First compute independently what ncrecinq should return */ if (recinq(ncid, &tnrvars, trvarids, trvarsizes) == -1) { error("%s: recinq failed", pname); ncclose(ncid); return; } /* check that ncrecinq() returns correct information in data mode */ if (ncrecinq(ncid, &nrvars, rvarids, rvarsizes) == -1) { error("%s: ncrecinq failed", pname); ncclose(ncid); return; } if (nrvars != tnrvars) { error("ncrecinq returned wrong number of rec vars, %d != %d", nrvars, tnrvars); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (rvarids[iv] != trvarids[iv]) { error("ncrecinq returned wrong record id for var %d", trvarids[iv]); nerrs++; } if (rvarsizes[iv] != trvarsizes[iv]) { error("ncrecinq returned wrong record size for var %d", trvarids[iv]); nerrs++; } } if (ncredef(ncid) == -1) { error("%s: ncredef failed", pname); ncclose(ncid); return; } /* check that ncrecinq() returns correct information in define mode too */ if (ncrecinq(ncid, &nrvars, rvarids, rvarsizes) == -1) { error("%s: ncrecinq failed in define mode", pname); ncclose(ncid); return; } if (nrvars != tnrvars) { error("define mode, ncrecinq returned wrong num of rec vars, %d != %d", nrvars, tnrvars); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (rvarids[iv] != trvarids[iv]) { error("define mode, ncrecinq returned wrong record id for var %d", trvarids[iv]); nerrs++; } if (rvarsizes[iv] != trvarsizes[iv]) { error("define mode, ncrecinq returned wrong rec size for var %d", trvarids[iv]); nerrs++; } } if (ncclose (ncid) == -1) { error("%s: ncclose failed", pname); return; } if (ncrecinq(ncid, &nrvars, rvarids, rvarsizes) != -1) { error("%s: ncrecinq failed to report bad handle", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Retrieves the dimension sizes of a variable with a specified variable id in * an open netCDF file. Returns -1 on error. */ static int dimsizes(ncid, varid, sizes) int ncid; int varid; long *sizes; { int ndims; int id; int dimids[H4_MAX_VAR_DIMS]; if (ncvarinq(ncid, varid, 0, NULL, &ndims, dimids, NULL) == -1) return -1; if (ndims == 0 || sizes == 0) return 0; for (id = 0; id < ndims; id++) (void) ncdiminq(ncid, dimids[id], 0, &sizes[id]); return 0; } /* * Write one record's worth of data, except don't write to variables for which * the address of the data to be written is NULL. Return -1 on error. This is * the same as the ncrecput() in the library, except that can handle errors * better. */ static int recput(ncid, recnum, datap) int ncid; long recnum; void **datap; { int iv; int rvids[VARS]; int nrvars = numrecvars(ncid, rvids); long start[H4_MAX_VAR_DIMS]; long edges[H4_MAX_VAR_DIMS]; if (nrvars == -1) return -1; start[0] = recnum; for (iv = 1; iv < nrvars; iv++) start[iv] = 0; for (iv = 0; iv < nrvars; iv++) { if (datap[iv] != 0) { (void) dimsizes(ncid, rvids[iv], edges); edges[0] = 1; /* only 1 record's worth */ if (ncvarput(ncid, rvids[iv], start, edges, datap[iv]) == -1) return -1; } } return 0; } /* * Read one record's worth of data, except don't read from variables for which * the address of the data to be read is null. Return -1 on error. This is * the same as the ncrecget() in the library, except that can handle errors * better. */ static int recget(ncid, recnum, datap) int ncid; long recnum; void **datap; { int iv; int rvids[VARS]; int nrvars = numrecvars(ncid, rvids); long start[H4_MAX_VAR_DIMS]; long edges[H4_MAX_VAR_DIMS]; if (nrvars == -1) return -1; start[0] = recnum; for (iv = 1; iv < nrvars; iv++) start[iv] = 0; for (iv = 0; iv < nrvars; iv++) { if (datap[iv] != 0) { (void) dimsizes(ncid, rvids[iv], edges); edges[0] = 1; /* only 1 record's worth */ if (ncvarget(ncid, rvids[iv], start, edges, datap[iv]) == -1) return -1; } } return 0; } /* * Test ncrecput * check that proper call works putting all recoerd variables * try putting only a proper subset of variables * try putting the empty subset of variables * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncrecput(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncrecput"; int nrvars; /* number of record variables */ int rvarids[VARS]; /* id of each record variable */ long rvarsizes[VARS]; /* record size of each record variable */ int ncid; /* netcdf id */ void *datap[VARS]; /* array of address pointers for rec vars */ void *datar[VARS]; /* pointers for comparison data */ long recnum = 1; /* we'll write the second record */ int iv; long recsize[VARS]; /* record size in data elements */ nc_type vartype[VARS]; void *zeros[VARS]; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((ncid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } if (ncrecinq(ncid, &nrvars, rvarids, rvarsizes) == -1) { error("%s: ncrecinq failed", pname); ncclose(ncid); return; } /* get a block of data of the right type for each record variable */ for (iv = 0; iv < nrvars; iv++) { datap[iv] = emalloc(rvarsizes[iv]); datar[iv] = emalloc(rvarsizes[iv]); /* for comparison values */ if (ncvarinq(ncid, rvarids[iv], 0, &vartype[iv], NULL, NULL, NULL) == -1) { error("%s: ncvarinq failed", pname); ncclose(ncid); return; } recsize[iv] = rvarsizes[iv]/nctypelen(vartype[iv]); /* Fill data blocks with 0,1,2,3,... */ val_fill(vartype[iv], recsize[iv], datap[iv]); /* Zero out comparison data */ val_fill_zero(vartype[iv], recsize[iv], datar[iv]); } /* Zero data in recnum record, before trying to put non-zero data */ if (recput(ncid, recnum, datar) == -1) { error("%s: recput failed", pname); ncclose(ncid); return; } /* opened in data mode, try putting a complete record */ if (ncrecput(ncid, recnum, datap) == -1) { error("%s: ncrecput failed on complete record", pname); nerrs++; } /* Check that right values were put */ if (recget(ncid, recnum, datar) == -1) { error("%s: recget failed", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (val_cmp(vartype[iv], recsize[iv], datap[iv], datar[iv]) != 0) { error("%s: bad values written by recput", pname); nerrs++; } val_fill_zero(vartype[iv], recsize[iv], datap[iv]); val_fill_zero(vartype[iv], recsize[iv], datar[iv]); zeros[iv] = 0; } if (nrvars > 0) { void *datap0 = datap[0]; /* put a partial record, everything but first record variable */ datap[0] = 0; val_fill(vartype[0], recsize[0], datar[0]); if (ncrecput(ncid, recnum, datap) == -1) { error("%s: ncrecput failed on partial record", pname); nerrs++; } /* Check right values were put, first record variable undisturbed */ datap[0] = datap0; if (recget(ncid, recnum, datap) == -1) { error("%s: recget failed after partial record put", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (val_cmp(vartype[iv], recsize[iv], datap[iv], datar[iv]) != 0) { error("%s: bad values written by partial recput", pname); nerrs++; } } } /* Put an empty record, check that values remain undisturbed */ if (ncrecput(ncid, recnum, zeros) == -1) { error("%s: ncrecput failed on empty record", pname); nerrs++; } if (recget(ncid, recnum, datap) == -1) { error("%s: recget failed after empty record put", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (val_cmp(vartype[iv], recsize[iv], datap[iv], datar[iv]) != 0) { error("%s: bad values written by empty recput", pname); nerrs++; } } /* try in define mode, check error */ if (ncredef(ncid) == -1) { error("%s: ncredef failed", pname); ncclose(ncid); return; } if (ncrecput(ncid, recnum, datap) != -1) { error("%s: ncrecput should fail in define mode", pname); nerrs++; } /* try with bad netCDF handle, check error */ if (ncclose (ncid) == -1) { error("%s: ncclose failed", pname); return; } if (ncrecput(ncid, recnum, datap) != -1) { error("%s: ncrecput failed to report bad handle", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { Free(datap[iv]); Free(datar[iv]); } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncrecget * check that proper call works getting all record variables * try getting only a proper subset of variables * try getting the empty subset of variables * try with bad netCDF handle, check error */ void test_ncrecget(path) char *path; /* name of netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncrecget"; int nrvars; /* number of record variables */ int rvarids[VARS]; /* id of each record variable */ long rvarsizes[VARS]; /* record size of each record variable */ int ncid; /* netcdf id */ void *datap[VARS]; /* array of address pointers for rec vars */ void *datar[VARS]; /* pointers for comparison data */ long recnum = 1; /* we'll write the second record */ int iv; long recsize[VARS]; /* record size in data elements */ nc_type vartype[VARS]; void *zeros[VARS]; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((ncid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } if (ncrecinq(ncid, &nrvars, rvarids, rvarsizes) == -1) { error("%s: ncrecinq failed", pname); ncclose(ncid); return; } /* get a block of data of the right type for each record variable */ for (iv = 0; iv < nrvars; iv++) { datap[iv] = emalloc(rvarsizes[iv]); datar[iv] = emalloc(rvarsizes[iv]); /* for comparison values */ if (ncvarinq(ncid, rvarids[iv], 0, &vartype[iv], NULL, NULL, NULL) == -1) { error("%s: ncvarinq failed", pname); ncclose(ncid); return; } recsize[iv] = rvarsizes[iv]/nctypelen(vartype[iv]); /* Fill data blocks with 0,1,2,3,... */ val_fill(vartype[iv], recsize[iv], datap[iv]); /* Zero out comparison data */ val_fill_zero(vartype[iv], recsize[iv], datar[iv]); } if (recput(ncid, recnum, datap) == -1) { error("%s: recput failed", pname); ncclose(ncid); return; } /* opened in data mode, try getting a complete record */ if (recget(ncid, recnum, datap) == -1) { error("%s: recget failed on complete record", pname); nerrs++; } if (ncrecget(ncid, recnum, datar) == -1) { error("%s: ncrecget failed on complete record", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { if (val_cmp(vartype[iv], recsize[iv], datap[iv], datar[iv]) != 0) { error("%s: bad values written by recget", pname); nerrs++; } val_fill_zero(vartype[iv], recsize[iv], datap[iv]); val_fill_zero(vartype[iv], recsize[iv], datar[iv]); zeros[iv] = 0; } if (nrvars > 0) { void *datap0 = datap[0]; void *datar0 = datar[0]; /* get a partial record, everything but first record variable */ datap[0] = 0; if (ncrecget(ncid, recnum, datap) == -1) { error("%s: ncrecget failed on partial record", pname); nerrs++; } datar[0] = 0; if (recget(ncid, recnum, datar) == -1) { error("%s: recget failed on partial record", pname); nerrs++; } /* Check right values were got, first record variable undisturbed */ datap[0] = datap0; datar[0] = datar0; for (iv = 0; iv < nrvars; iv++) { if (val_cmp(vartype[iv], recsize[iv], datap[iv], datar[iv]) != 0) { error("%s: bad values read by partial recget", pname); nerrs++; } } } /* Get an empty record */ if (ncrecget(ncid, recnum, zeros) == -1) { error("%s: ncrecget failed on empty record", pname); nerrs++; } /* try with bad netCDF handle, check error */ if (ncclose (ncid) == -1) { error("%s: ncclose failed", pname); return; } if (ncrecget(ncid, recnum, datap) != -1) { error("%s: ncrecget failed to report bad handle", pname); nerrs++; } for (iv = 0; iv < nrvars; iv++) { Free(datap[iv]); Free(datar[iv]); } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/nctest.lnk0000644000000000000000000000025412421456623015501 0ustar driver vartests cdftests dimtests atttests misctest nctest /noi nctest nctest.lib ..\libsrc\netcdf.lib ..\xdr\xdr.lib \hdf\hdf\lib\df.lib /NOD:llibce llibcewq libw nctest libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/Makefile.in0000644000000000000000000006341112421456623015544 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/depcomp $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am check_PROGRAMS = nctest$(EXEEXT) TESTS = $(am__EXEEXT_1) subdir = mfhdf/nctest ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am_nctest_OBJECTS = add.$(OBJEXT) atttests.$(OBJEXT) \ cdftests.$(OBJEXT) dimtests.$(OBJEXT) driver.$(OBJEXT) \ emalloc.$(OBJEXT) error.$(OBJEXT) misctest.$(OBJEXT) \ rec.$(OBJEXT) slabs.$(OBJEXT) val.$(OBJEXT) \ varget_unlim.$(OBJEXT) varget.$(OBJEXT) vargetg.$(OBJEXT) \ varput.$(OBJEXT) varputg.$(OBJEXT) vardef.$(OBJEXT) \ vartests.$(OBJEXT) vputget.$(OBJEXT) vputgetg.$(OBJEXT) nctest_OBJECTS = $(am_nctest_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(nctest_SOURCES) DIST_SOURCES = $(nctest_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) am__EXEEXT_1 = nctest$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog test2.nc test.nc INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ############################################################################# ############################################################################# TEST_PROG = nctest # Information for building the "ncgen" program nctest_SOURCES = add.c atttests.c cdftests.c dimtests.c driver.c emalloc.c \ error.c misctest.c rec.c slabs.c val.c varget_unlim.c \ varget.c vargetg.c varput.c varputg.c vardef.c vartests.c \ vputget.c vputgetg.c nctest_LDADD = $(LIBMFHDF) $(LIBHDF) nctest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 mfhdf/nctest/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/nctest/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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 nctest$(EXEEXT): $(nctest_OBJECTS) $(nctest_DEPENDENCIES) $(EXTRA_nctest_DEPENDENCIES) @rm -f nctest$(EXEEXT) $(LINK) $(nctest_OBJECTS) $(nctest_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/add.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/atttests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdftests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dimtests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/driver.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/emalloc.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/error.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/misctest.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rec.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/slabs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/val.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vardef.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/varget.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/varget_unlim.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vargetg.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/varput.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/varputg.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vartests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vputget.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vputgetg.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-checkPROGRAMS clean-generic clean-libtool \ cscopelist ctags distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am 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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/atttests.c0000644000000000000000000014026412421456623015520 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: atttests.c 6043 2014-01-21 21:09:03Z acheng $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "alloc.h" #include "emalloc.h" #include "tests.h" #include "val.h" #ifdef HDF #include "hdf.h" #endif #define LEN_OF(array) ((sizeof array) / (sizeof array[0])) /* * Test ncattput * check that new attribute put works in define mode * check that NC_GLOBAL variable id works * check that changing type of existing attribute works in define mode * check that increasing length of attribute works in define mode * check that changing value of existing attribute works in define mode * try with bad datatype, should fail * try with negative length, should fail * try increasing length of attribute in data mode, should fail * try putting new attribute in data mode, should fail * check that changing type of existing attribute works in data mode * check that decreasing length of attribute works in data mode * check that changing value of existing attribute works in data mode * try with bad variable handle, should fail * try with bad netCDF handle, check error */ void test_ncattput(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncattput"; int cdfid; /* netcdf id */ int ndims; /* number of dimensions */ int nvars; /* number of variables */ int ngatts_prev, ngatts; /* number of global attributes */ int xdimid; /* id of unlimited dimension */ int ia, id; static char byte_vals[] = {'a', 'b'}; static char char_vals[] = "chars"; static short short_vals[] = {-999, 0, 999}; static nclong long_vals[] = {10, 20}; static float float_vals[] = {1.5, 2.5, 3.5 }; static double double_vals[] = {4.5, 5.5, 6.5, 7.5}; /* * test attributes; it is important for this test that the size * required for the attribute values increases monotonically. */ static struct cdfatt atts[] = { {___, "att0", NC_BYTE, LEN_OF(byte_vals), (void *) byte_vals}, {___, "att1", NC_CHAR, LEN_OF(char_vals), (void *) char_vals}, {___, "att2", NC_SHORT, LEN_OF(short_vals), (void *) short_vals}, {___, "att3", NC_LONG, LEN_OF(long_vals), (void *) long_vals}, {___, "att4", NC_FLOAT, LEN_OF(float_vals), (void *) float_vals}, {___, "att5", NC_DOUBLE, LEN_OF(double_vals), (void *) double_vals} }; int na = LEN_OF(atts); /* number of test attributes */ int ww_id; /* variable id */ static struct cdfvar ww = /* new variable */ {"ww", NC_LONG, 1, ___, 0}; static struct cdfatt tmp; /* attribute */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* get count of global attributes */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts, &xdimid) == -1) { error("%s: ncinquire failed", pname); ncclose(cdfid); return; } ngatts_prev = ngatts; /* in define mode, add global attributes of every type */ for (ia = 0; ia < na; ia++) { if (ncattput(cdfid, NC_GLOBAL, atts[ia].name, atts[ia].type, atts[ia].len, atts[ia].val) == -1) { error("%s: ncattput of NC_GLOBAL attribute failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &atts[ia]); /* keep in-memory netcdf updated */ } /* make sure count of global attributes has been updated */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts, &xdimid) == -1) { error("%s: ncinquire failed", pname); ncclose(cdfid); return; } if (ngatts != ngatts_prev + na) { error("%s: number of global = %d, expected %d", pname, ngatts, ngatts_prev + na); nerrs++; } /* check with ncattinq and ncattget that NC_GLOBAL attributes put OK */ for (ia = 0; ia < na; ia++) { if (ncattinq(cdfid, NC_GLOBAL, atts[ia].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of global attribute failed", pname); ncclose(cdfid); return; } if (atts[ia].type != tmp.type || atts[ia].len != tmp.len) { error("%s: NC_GLOBAL ncattinq got unexpected type or len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(atts[ia].len * nctypelen(atts[ia].type)); if (ncattget(cdfid, NC_GLOBAL, atts[ia].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atts[ia].val) != 0) { error("%s: ncattget got bad values after put of NC_GLOBAL attrs", pname); nerrs++; } Free ((char *) tmp.val); } /* add a variable, then variable attributes of every type */ ww.dims = (int *) emalloc(sizeof(int) * ww.ndims); for (id = 0; id < ww.ndims; id++) ww.dims[id] = id; if ((ww_id = ncvardef(cdfid, ww.name, ww.type, ww.ndims, ww.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &ww); /* keep in-memory netcdf in sync */ for (ia = 0; ia < na; ia++) { if (ncattput(cdfid, ww_id, atts[ia].name, atts[ia].type, atts[ia].len, atts[ia].val) == -1) { error("%s: ncattput of variable attribute failed", pname); ncclose(cdfid); return; } add_att(&test, ww_id, &atts[ia]); /* keep in-memory netcdf updated */ } /* check with ncattinq and ncattget that variable attributes put OK */ for (ia = 0; ia < na; ia++) { if (ncattinq(cdfid, ww_id, atts[ia].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of variable attribute failed", pname); ncclose(cdfid); return; } if (atts[ia].type != tmp.type || atts[ia].len != tmp.len) { error("%s: ncattinq for new attribute got bad type or len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(atts[ia].len * nctypelen(atts[ia].type)); if (ncattget(cdfid, ww_id, atts[ia].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atts[ia].val) != 0) { error("%s: ncattget got bad values after put of variable attrs", pname); nerrs++; } Free ((char *)tmp.val); } /* * check that changing type of existing attribute, increasing * length of attribute, and changing value of existing attribute * work OK in define mode. */ tmp.name = (char *) emalloc(H4_MAX_NC_NAME); for (ia = 1; ia < na; ia++) { if (ncattput(cdfid, ww_id, atts[ia-1].name, atts[ia].type, atts[ia].len, atts[ia].val) == -1) { error("%s: ncattput of larger attribute failed", pname); ncclose(cdfid); return; } tmp.var = atts[ia].var; (void) strcpy (tmp.name, atts[ia-1].name); tmp.type = atts[ia].type; tmp.len = atts[ia].len; tmp.val = atts[ia].val; add_att(&test, ww_id, &tmp); /* keep in-memory netcdf updated */ } /* check with ncattinq and ncattget that variable attributes put OK */ for (ia = 1; ia < na; ia++) { if (ncattinq(cdfid, ww_id, atts[ia-1].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of larger attribute failed", pname); ncclose(cdfid); return; } if (atts[ia].type != tmp.type || atts[ia].len != tmp.len) { error("%s: ncattinq for larger attribute got bad type or len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(atts[ia].len * nctypelen(atts[ia].type)); if (ncattget(cdfid, ww_id, atts[ia-1].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atts[ia].val) != 0) { error("%s: ncattget got bad values after put of larger attrs", pname); nerrs++; } Free ((char *) tmp.val); } /* try with bad datatype, should fail */ if (ncattput(cdfid, ww_id, "bogus_att1", BAD_TYPE, atts[0].len, atts[0].val) != -1) { error("%s: ncattput should fail with bad type", pname); nerrs++; } /* try with negative length, should fail */ if (ncattput(cdfid, ww_id, "bogus_att2", atts[0].type, -1, atts[0].val) != -1) { error("%s: ncattput should fail with bad length", pname); nerrs++; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode try increasing length of attribute, should fail */ if (ncattput(cdfid, ww_id, atts[0].name, atts[0].type, atts[0].len + 10, atts[0].val) != -1) { error("%s: ncattput should fail with increased length in data mode", pname); nerrs++; /* reset to correct length for later tests */ if (ncattput(cdfid, ww_id, atts[0].name, atts[0].type, atts[0].len, atts[0].val) != -1) { error("%s: ncattput failed to reset length in data mode", pname); nerrs++; } } /* try creating new attribute in data mode, should fail */ if (ncattput(cdfid, ww_id, "new_name", atts[0].type, atts[0].len, atts[0].val) != -1) { error("%s: ncattput of new attribute in data mode should fail", pname); ncclose(cdfid); return; } /* * check that changing type of existing attribute, decreasing * length of attribute, and changing value of existing attribute * work OK in data mode */ for (ia = 0; ia < na - 1; ia++) { if (ncattput(cdfid, ww_id, atts[ia+1].name, atts[ia].type, atts[ia].len, atts[ia].val) == -1) { error("%s: ncattput of smaller attribute failed in data mode", pname); ncclose(cdfid); return; } tmp.var = atts[ia].var; (void) strcpy (tmp.name, atts[ia+1].name); tmp.type = atts[ia].type; tmp.len = atts[ia].len; tmp.val = atts[ia].val; add_att(&test, ww_id, &tmp); /* keep in-memory netcdf updated */ } /* check with ncattinq and ncattget that variable attributes put OK */ for (ia = 0; ia < na - 1; ia++) { if (ncattinq(cdfid, ww_id, atts[ia+1].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of variable attribute failed in data mode", pname); ncclose(cdfid); return; } if (atts[ia].type != tmp.type || atts[ia].len != tmp.len) { error("%s: VARIABLE ncattinq got bad type or len in data mode", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(atts[ia].len * nctypelen(atts[ia].type)); if (ncattget(cdfid, ww_id, atts[ia+1].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed in data mode", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atts[ia].val) != 0) { error("%s: ncattget got bad values in data mode", pname); nerrs++; } Free ((char *)tmp.val); } /* try with bad variable handle, should fail */ if (ncattput(cdfid, test.nvars, atts[0].name, atts[0].type, atts[0].len, atts[0].val) != -1) { error("%s: ncattput should fail with bad variable handle", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netcdf handle, should fail */ if (ncattput(cdfid, ww_id, atts[0].name, atts[0].type, atts[0].len, atts[0].val) != -1) { error("%s: ncattput should fail with bad netcdf handle", pname); ncclose(cdfid); return; } Free(tmp.name); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattinq * check returned values of properly created attributes * try with nonexisting attribute, check error * try with bad variable handle, check error * try with bad netCDF handle, check error */ void test_ncattinq(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncattinq"; int cdfid; /* netcdf id */ int ia, id; /* attribute number */ nc_type type; int len; int vv_id; /* variable id */ static struct cdfvar vv = /* new variable */ {"vv", NC_SHORT, 2, ___, 0}; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* in data mode, check all attributes against test netcdf */ for (ia = 0; ia < test.natts; ia++) { if (ncattinq(cdfid, test.atts[ia].var, test.atts[ia].name, &type, &len) == -1) { error("%s: ncattinq failed", pname); ncclose(cdfid); return; } if (type != test.atts[ia].type) { error("%s: ncattinq returned wrong type", pname); ncclose(cdfid); return; } if (len != test.atts[ia].len) { error("%s: ncattinq returned wrong len", pname); ncclose(cdfid); return; } } /* enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode, add a variable */ vv.dims = (int *) emalloc(sizeof(int) * vv.ndims); for (id = 0; id < vv.ndims; id++) vv.dims[id] = id; /* assumes vv.ndims <= test.ndims */ if ((vv_id = ncvardef(cdfid, vv.name, vv.type, vv.ndims, vv.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &vv); /* keep in-memory netcdf in sync */ /* try with nonexisting attribute, should fail */ if (ncattinq(cdfid, vv_id, "nonesuch", &type, &len) != -1) { error("%s: ncattinq should fail with nonexisting attribute", pname); ncclose(cdfid); return; } /* try with bad variable handle, should fail */ if (ncattinq(cdfid, test.nvars, test.atts[0].name, &type, &len) != -1) { error("%s: ncattinq should fail with bad variable id", pname); ncclose(cdfid); return; } /* in define mode check all attributes against test netcdf */ for (ia = 0; ia < test.natts; ia++) { if (ncattinq(cdfid, test.atts[ia].var, test.atts[ia].name, &type, &len) == -1) { error("%s: ncattinq in define mode failed", pname); ncclose(cdfid); return; } if (type != test.atts[ia].type) { error("%s: ncattinq in define mode returned wrong type", pname); ncclose(cdfid); return; } if (len != test.atts[ia].len) { error("%s: ncattinq in define mode returned wrong len", pname); ncclose(cdfid); return; } } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } if (ncattinq(cdfid, NC_GLOBAL, test.atts[0].name, &type, &len) != -1) { error("%s: ncattinq should fail with bad cdfid", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattget * check that NC_GLOBAL variable id works * check in both modes * check that proper call worked after ncattput * try with bad variable handle, check error * try with nonexisting attribute, check error * try with bad netCDF handle, check error */ void test_ncattget(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; int cdfid; /* netcdf id */ int ia, id; static struct cdfatt tmp; /* attribute */ int uu_id; /* variable id */ static struct cdfvar uu = /* variable */ {"uu", NC_LONG, 2, ___, 0}; static nclong uumax = 1000; /* attribute value */ static struct cdfatt vmax = /* attribute */ {___, "valid_max", NC_LONG, 1, (void *) &uumax}; static char pname[] = "test_ncattget"; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* add a variable */ uu.dims = (int *) emalloc(sizeof(int) * uu.ndims); for (id = 0; id < uu.ndims; id++) uu.dims[id] = id; if ((uu_id = ncvardef(cdfid, uu.name, uu.type, uu.ndims, uu.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &uu); /* keep in-memory netcdf in sync */ /* add an attribute */ if (ncattput(cdfid, uu_id, vmax.name, vmax.type, vmax.len, vmax.val) == -1) { error("%s: ncattput of variable attribute failed", pname); ncclose(cdfid); return; } add_att(&test, uu_id, &vmax); /* keep in-memory netcdf updated */ /* in define mode, check all attributes values against test netcdf */ for (ia = 0; ia < test.natts; ia++) { if (ncattinq(cdfid, test.atts[ia].var, test.atts[ia].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq in define mode failed", pname); ncclose(cdfid); return; } if (tmp.type != test.atts[ia].type) { error("%s: ncattinq in define mode returned wrong type", pname); ncclose(cdfid); return; } if (tmp.len != test.atts[ia].len) { error("%s: ncattinq in define mode returned wrong len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(tmp.len * nctypelen(tmp.type)); if (ncattget(cdfid, test.atts[ia].var, test.atts[ia].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed in define mode", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, test.atts[ia].val) != 0) { error("%s: ncattget got bad values in define mode", pname); error(" cdfid=%d, varname=%s, attname=%s, type=%d, len=%d", cdfid, test.vars[test.atts[ia].var].name, test.atts[ia].name, test.atts[ia].type, test.atts[ia].len); (void)fprintf(stderr,"should have got:"); val_out(test.atts[ia].type, test.atts[ia].len, test.atts[ia].val); (void)fprintf(stderr," instead got:"); val_out(tmp.type, tmp.len, tmp.val); nerrs++; } Free ((char *)tmp.val); } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode, check all attributes values against test netcdf */ for (ia = 0; ia < test.natts; ia++) { if (ncattinq(cdfid, test.atts[ia].var, test.atts[ia].name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq failed", pname); ncclose(cdfid); return; } if (tmp.type != test.atts[ia].type) { error("%s: ncattinq returned wrong type", pname); ncclose(cdfid); return; } if (tmp.len != test.atts[ia].len) { error("%s: ncattinq returned wrong len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(tmp.len * nctypelen(tmp.type)); if (ncattget(cdfid, test.atts[ia].var, test.atts[ia].name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed in data mode", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, test.atts[ia].val) != 0) { error("%s: ncattget got bad values in data mode", pname); error(" cdfid=%d, varname=%s, attname=%s, type=%d, len=%d", cdfid, test.vars[test.atts[ia].var].name, test.atts[ia].name, test.atts[ia].type, test.atts[ia].len); (void)fprintf(stderr,"should have got:"); val_out(test.atts[ia].type, test.atts[ia].len, test.atts[ia].val); (void)fprintf(stderr," instead got:"); val_out(tmp.type, tmp.len, tmp.val); nerrs++; } Free ((char *)tmp.val); } /* try with bad variable handle, should fail */ if (ncattget(cdfid, test.nvars, vmax.name, vmax.val) != -1) { error("%s: ncattget should fail with bad variable handle", pname); ncclose(cdfid); return; } /* try getting non-existent attribute, should fail */ if (ncattget(cdfid, uu_id, "nonesuch", vmax.val) != -1) { error("%s: ncattget should fail with nonexistant attribute", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netcdf handle, should fail */ if (ncattget(cdfid, uu_id, vmax.name, vmax.val) != -1) { error("%s: ncattput should fail with bad netcdf handle", pname); ncclose(cdfid); return; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattcopy * check that NC_GLOBAL variable for source or target works * check that new attribute put works with target in define mode * check that old attribute put works with target in data mode * check that changing type and length of an attribute work OK * try with same cdfid for source and target, different variables * try with same cdfid for source and target, same variable * try with nonexisting attribute, check error * try with bad source or target netCDF handles, check error * try with bad source or target variable handle, check error */ void test_ncattcopy(path1, path2) char *path1; /* name of input netcdf file to open */ char *path2; /* name of output netcdf file to create */ { int nerrs = 0; static char pname[] = "test_ncattcopy"; int cdfid, cdfid2; /* netcdf id */ int id; /* dimension id */ int tt_id; /* variable id */ static struct cdfvar tt = /* new variable for source netcdf */ {"tt", NC_LONG, 1, ___, 0}; int tu_id, tu2_id; /* variable ids */ static struct cdfvar tu = /* new variable for target netcdf */ {"tu", NC_DOUBLE, 2, ___, 0}; static double double_vals[] = {-1., -2.}; static float float_vals[] = {-1., -2.}; static struct cdfatt att = /* attribute */ {___, "att", NC_DOUBLE, LEN_OF(double_vals), (void *) double_vals}; static struct cdfatt att2 = /* attribute */ {___, "att", NC_FLOAT, LEN_OF(float_vals), (void *) float_vals}; static struct cdfatt tmp; /* attribute */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path1, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened OK, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed on source", pname); ncclose(cdfid); return; } /* in define mode, add a global attribute, a variable and an attribute */ if (ncattput(cdfid, NC_GLOBAL, att.name, att.type, att.len, att.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &att); /* keep in-memory netcdf consistent */ tt.dims = (int *) emalloc(sizeof(int) * tt.ndims); for (id=0; id < tt.ndims; id++) tt.dims[0] = id; if ((tt_id=ncvardef(cdfid, tt.name, tt.type, tt.ndims, tt.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &tt); /* keep in-memory netcdf consistent */ if (ncattput(cdfid, tt_id, att.name, att.type, att.len, att.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, tt_id, &att); /* keep in-memory netcdf consistent */ tu.dims = (int *) emalloc(sizeof(int) * tu.ndims); for (id = 0; id < tu.ndims; id++) tu.dims[id] = id; if ((tu_id=ncvardef(cdfid, tu.name, tu.type, tu.ndims, tu.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &tu); /* keep in-memory netcdf consistent */ if (ncattput(cdfid, tu_id, att.name, att.type, att.len, att.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, tu_id, &att); /* keep in-memory netcdf consistent */ if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* first (source) netcdf is in data mode */ /* create second netCDF to copy attributes to */ if ((cdfid2 = nccreate(path2, NC_CLOBBER)) == -1) { error("%s: nccreate failed", pname); return; } /* create dimensions and variable in second netcdf */ for (id = 0; id < tu.ndims; id++) { /* copy dimensions from source */ if ((tu.dims[id] =ncdimdef(cdfid2, test.dims[id].name, test.dims[id].size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } } if ((tu2_id=ncvardef(cdfid2, tu.name, tu.type, tu.ndims, tu.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* try copying NC_GLOBAL attribute from source to target */ if (ncattcopy(cdfid, NC_GLOBAL, att.name, cdfid2, NC_GLOBAL) == -1) { error("%s: ncattcopy on NC_GLOBAL attribute '%s' failed", pname, att.name); ncclose(cdfid); ncclose(cdfid2); return; } /* check that copy worked with ncattinq and ncattget */ if (ncattinq(cdfid2, NC_GLOBAL, att.name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of NC_GLOBAL attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (att.type != tmp.type || att.len != tmp.len) { error("%s: NC_GLOBAL ncattinq got unexpected type or len", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(att.len * nctypelen(att.type)); if (ncattget(cdfid2, NC_GLOBAL, att.name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, att.val) != 0) { error("%s: ncattget got bad values after put of NC_GLOBAL attrs", pname); nerrs++; } Free ((char *) tmp.val); /* try copying variable attribute from source to target */ if (ncattcopy(cdfid, tt_id, att.name, cdfid2, tu2_id) == -1) { error("%s: ncattcopy failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* check that copy worked with ncattinq and ncattget */ if (ncattinq(cdfid2, tu2_id, att.name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (att.type != tmp.type || att.len != tmp.len) { error("%s: variable ncattinq got unexpected type or len", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(att.len * nctypelen(att.type)); if (ncattget(cdfid2, tu2_id, att.name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, att.val) != 0) { error("%s: ncattget got bad values after copy of variable attrs", pname); nerrs++; } Free ((char *) tmp.val); /* * check that old attribute put works with target in data mode, * also checks that changing type and length of an attribute works OK */ if (ncendef (cdfid2) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* change attribute to shorter attribute */ if (ncattput(cdfid, NC_GLOBAL, att2.name, att2.type, att2.len, att2.val) == -1) { error("%s: ncattput of shorter NC_GLOBAL attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } add_att(&test, NC_GLOBAL, &att2); /* keep in-memory netcdf consistent */ /* copy shorter attribute on existing attribute */ if (ncattcopy(cdfid, NC_GLOBAL, att2.name, cdfid2, tu2_id) == -1) { error("%s: ncattcopy of shorter attribute on old attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* check that copy worked with ncattinq and ncattget */ if (ncattinq(cdfid2, tu2_id, att2.name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (att2.type != tmp.type || att2.len != tmp.len) { error("%s: variable ncattinq got unexpected type or len", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(att2.len * nctypelen(att2.type)); if (ncattget(cdfid2, tu2_id, att2.name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, att2.val) != 0) { error("%s: ncattget got bad values after copy of variable attrs", pname); nerrs++; } Free ((char *) tmp.val); /* try copying with same source and target netcdf, different variables */ /* copy shorter attribute on existing attribute */ if (ncattcopy(cdfid, NC_GLOBAL, att2.name, cdfid, tu_id) == -1) { error("%s: ncattcopy of shorter NC_GLOBAL attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } add_att(&test, tu_id, &att2); /* keep in-memory netcdf consistent */ /* check that copy worked with ncattinq and ncattget */ if (ncattinq(cdfid, tu_id, att2.name, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (att2.type != tmp.type || att2.len != tmp.len) { error("%s: variable ncattinq got unexpected type or len", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(att2.len * nctypelen(att2.type)); if (ncattget(cdfid, tu_id, att2.name, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, att2.val) != 0) { error("%s: ncattget got bad values after copy of variable attrs", pname); nerrs++; } Free ((char *) tmp.val); /* try with same cdfid for source and target, same variable */ if (ncattcopy(cdfid, tu_id, att.name, cdfid, tu_id) == -1) { error("%s: ncattcopy failed with identical source and target", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* try with nonexisting attribute, check error */ if (ncattcopy(cdfid, tt_id, "nonesuch", cdfid, tu_id) != -1) { error("%s: ncattcopy should fail with bad attribute name", pname); ncclose(cdfid); ncclose(cdfid2); return; } /* try with bad source or target variable handle, check error */ if (ncattcopy(cdfid, test.nvars, att.name, cdfid, tu_id) != -1) { error("%s: ncattcopy should fail with bad source variable id", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (ncattcopy(cdfid, tt_id, att.name, cdfid, 2) != -1) { error("%s: ncattcopy should fail with bad target variable id", pname); ncclose(cdfid); ncclose(cdfid2); return; } if (ncclose (cdfid2) == -1) { error("%s: ncclose failed", pname); ncclose(cdfid); return; } /* try with bad source or target netCDF handles, check error */ if (ncattcopy(cdfid, tt_id, att.name, cdfid2, tu_id) != -1) { error("%s: ncattcopy should fail with bad target netcdf id", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } if (ncattcopy(cdfid, tt_id, att.name, cdfid2, tu_id) != -1) { error("%s: ncattcopy should fail with bad netcdf id", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattname * check that NC_GLOBAL variable id works * check in both modes * check that proper call worked after ncattput * try with bad netCDF handle, check error * try with bad variable handle, check error * try with bad attribute number, check error */ void test_ncattname(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncattname"; int cdfid; /* netcdf id */ struct cdfatt tmp; /* attributes */ int ia, ib; /* attribute numbers */ int iv; /* variable id */ static short short_vals[] = {3, 4, 5}; static struct cdfatt att = /* attribute */ {___, ___, NC_SHORT, LEN_OF(short_vals), (void *) short_vals}; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened OK, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* for each NC_GLOBAL attribute, get name and compare with expected name */ att.name = (char *) emalloc(H4_MAX_NC_NAME); ib = 0; for (ia = 0; ia < test.ngatts; ia++) { if (ncattname(cdfid, NC_GLOBAL, ia, att.name) == -1) { error("%s: ncattname failed on global attribute", pname); ncclose(cdfid); return; } /* find number of next global attribute */ while (ib < test.natts && test.atts[ib].var != NC_GLOBAL) ib++; if (ib >= test.natts) { error("%s: test problem, expected global attribute not found", pname); ncclose(cdfid); return; } if (strcmp(att.name, test.atts[ib].name) != 0) { error("%s: NC_GLOBAL attribute name `%s' instead of expected `%s'", pname, att.name, test.atts[ib].name); nerrs++; } ib++; } /* for each variable attribute, get name and compare with expected name */ for (iv = 0; iv < test.nvars; iv++) { ib = 0; for (ia = 0; ia < test.vars[iv].natts; ia++) { if (ncattname(cdfid, iv, ia, att.name) == -1) { error("%s: ncattname failed on variable attribute", pname); ncclose(cdfid); return; } /* find number of next attribute */ while (ib < test.natts && test.atts[ib].var != iv) ib++; if (ib >= test.natts) { error("%s: problem in test, expected attribute not found", pname); ncclose(cdfid); return; } if (strcmp(att.name, test.atts[ib].name) != 0) { error("%s: variable '%s' name `%s' instead of expected `%s'", pname, test.vars[iv].name, att.name, test.atts[ib].name); nerrs++; } ib++; } } /* in define mode, add a global attribute */ (void) strcpy(att.name,"attx"); if (ncattput(cdfid, NC_GLOBAL, att.name, att.type, att.len, att.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &att); /* keep in-memory netcdf consistent */ /* test that ncattname works immediately after ncattput */ tmp.name = (char *) emalloc(H4_MAX_NC_NAME); if (ncattname(cdfid, NC_GLOBAL, test.ngatts-1, tmp.name) == -1) { error("%s: ncattname failed on variable attribute", pname); ncclose(cdfid); return; } if (strcmp(att.name, tmp.name) != 0) { error("%s: immediate NC_GLOBAL name `%s' instead of expected `%s'", pname, tmp.name, att.name); nerrs++; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode */ /* for each NC_GLOBAL attribute, get name and compare with expected name */ ib = 0; for (ia = 0; ia < test.ngatts; ia++) { if (ncattname(cdfid, NC_GLOBAL, ia, att.name) == -1) { error("%s: ncattname failed on global attribute", pname); ncclose(cdfid); return; } /* find number of next global attribute */ while (ib < test.natts && test.atts[ib].var != NC_GLOBAL) ib++; if (ib >= test.natts) { error("%s: test problem, expected global attribute not found", pname); ncclose(cdfid); return; } if (strcmp(att.name, test.atts[ib].name) != 0) { error("%s: NC_GLOBAL attribute name `%s' instead of expected `%s'", pname, att.name, test.atts[ib].name); nerrs++; } ib++; } /* for each variable attribute, get name and compare with expected name */ for (iv = 0; iv < test.nvars; iv++) { ib = 0; for (ia = 0; ia < test.vars[iv].natts; ia++) { if (ncattname(cdfid, iv, ia, att.name) == -1) { error("%s: ncattname failed on variable attribute", pname); ncclose(cdfid); return; } /* find number of next attribute */ while (ib < test.natts && test.atts[ib].var != iv) ib++; if (ib >= test.natts) { error("%s: problem in test, expected attribute not found", pname); ncclose(cdfid); return; } if (strcmp(att.name, test.atts[ib].name) != 0) { error("%s: variable '%s' name `%s' instead of expected `%s'", pname, test.vars[iv].name, att.name, test.atts[ib].name); nerrs++; } ib++; } } /* try with bad variable handle, check error */ if (ncattname(cdfid, test.nvars, 0, att.name) != -1) { error("%s: ncattname should fail with bad variable handle", pname); ncclose(cdfid); return; } /* try with bad attribute number, check error */ if (ncattname(cdfid, NC_GLOBAL, -1, att.name) != -1) { error("%s: ncattname should fail with negative number", pname); ncclose(cdfid); return; } if (ncattname(cdfid, NC_GLOBAL, test.ngatts, att.name) != -1) { error("%s: ncattname should fail with too-high number", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); nerrs++; return; } /* try with bad netCDF handle, check error */ if (ncattname(cdfid, NC_GLOBAL, 0, att.name) != -1) { error("%s: ncattname shoul fail with bad cdfid", pname); nerrs++; } Free (tmp.name); Free (att.name); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattrename * check that proper rename worked with ncattinq, ncattget * try renaming to existing attribute name, check error * try with nonexisting attribute, check error * try with bad variable handle, check error * try in data mode, check error * try with bad netCDF handle, check error */ void test_ncattrename(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncattrename"; int cdfid; /* netcdf id */ static char newname[] = "shorter"; static char longername[] = "longer_name"; struct cdfatt tmp; /* attributes */ static short short_vals[] = {3, 4, 5}; static struct cdfatt atty = /* attribute */ {___, "long_name", NC_SHORT, LEN_OF(short_vals), (void *) short_vals}; static struct cdfatt attz = /* attribute */ {___, "arggh", NC_SHORT, LEN_OF(short_vals), (void *) short_vals}; int ynum; /* attribute number */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened OK, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode, add two attributes */ if (ncattput(cdfid, NC_GLOBAL, atty.name, atty.type, atty.len, atty.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &atty); /* keep in-memory netcdf in sync */ ynum = test.natts-1; /* number of attribute just put */ if (ncattput(cdfid, NC_GLOBAL, attz.name, attz.type, attz.len, attz.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &attz); /* keep in-memory netcdf in sync */ /* rename first attribute to shorter name */ if (ncattrename(cdfid, NC_GLOBAL, atty.name, newname) == -1) { error("%s: ncattrename failed", pname); ncclose(cdfid); return; } (void) strcpy(test.atts[ynum].name, newname); /* keep test consistent */ /* check new name with ncattinq */ if (ncattinq(cdfid, NC_GLOBAL, newname, &tmp.type, &tmp.len) == -1) { error("%s: ncattinq of renamed attribute failed", pname); ncclose(cdfid); return; } if (atty.type != tmp.type || atty.len != tmp.len) { error("%s: NC_GLOBAL ncattinq got unexpected type or len", pname); ncclose(cdfid); return; } /* allocate space to hold the attribute value to be retrieved */ tmp.val = emalloc(atty.len * nctypelen(atty.type)); if (ncattget(cdfid, NC_GLOBAL, newname, tmp.val) == -1) { error("%s: ncattget of variable attribute failed", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atty.val) != 0) { error("%s: ncattget got bad values after rename attrs", pname); nerrs++; } if (ncattinq(cdfid, NC_GLOBAL, atty.name, &tmp.type, &tmp.len) != -1) { error("%s: ncattrename left attribute with old name", pname); ncclose(cdfid); return; } /* try to rename second attribute same as first, should fail */ if (ncattrename(cdfid, NC_GLOBAL, attz.name, newname) != -1) { error("%s: ncattrename should have failed with used name", pname); ncclose(cdfid); return; } /* try to rename second attribute with a longer name */ if (ncattrename(cdfid, NC_GLOBAL, attz.name, longername) == -1) { error("%s: ncattrename failed with longer name", pname); ncclose(cdfid); return; } /* try with bad variable handle, check for failure */ if (ncattrename(cdfid, test.nvars, newname, atty.name) != -1) { error("%s: ncattrename should have failed on bad variable id", pname); ncclose(cdfid); return; } /* try with bad attribute name, check for failure */ if (ncattrename(cdfid, NC_GLOBAL, "nonesuch", newname) != -1) { error("%s: ncattrename should have failed on bad attribute name", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode change name to even shorter and check value */ if (ncattrename(cdfid, NC_GLOBAL, newname, "short") == -1) { error("%s: ncattrename to shorter name failed in data mode", pname); ncclose(cdfid); return; } if (ncattrename(cdfid, NC_GLOBAL, "short", "plugh") == -1) { error("%s: ncattrename to same length failed in data mode", pname); ncclose(cdfid); return; } if (ncattget(cdfid, NC_GLOBAL, "plugh", tmp.val) == -1) { error("%s: ncgetatt of renamed attribute failed in data mode", pname); ncclose(cdfid); return; } if (val_cmp(tmp.type, tmp.len, tmp.val, atty.val) != 0) { error("%s: ncattget got bad values after data mode rename", pname); nerrs++; } Free ((char *) tmp.val); if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (ncattrename(cdfid, NC_GLOBAL, newname, atty.name) != -1) { error("%s: ncattrename should fail with bad cdfid", pname); ncclose(cdfid); return; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncattdel * check that proper delete worked * try with bad netCDF handle, check error * try with bad variable handle, check error * try with nonexisting attribute, check error * try in data mode, check error */ void test_ncattdel(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncattdel"; int cdfid; /* netcdf id */ static short short_vals[] = {-1, -2, -3 }; static struct cdfatt yaa = /* attribute */ {___, "yet_another_attribute", NC_SHORT, LEN_OF(short_vals), (void *) short_vals}; int id; /* dimension id */ int yav_id; /* variable id */ static struct cdfvar yav = /* new variable for target netcdf */ {"yet_another_variable", NC_DOUBLE, 2, ___, 0}; struct cdfvar vtmp; /* variable */ struct cdfatt atmp; /* attribute */ int ndims; /* number of dimensions */ int nvars; /* number of variables */ int ngatts1, ngatts2; /* number of global attributes */ int natts; /* number of variable attributes */ int xdimid; /* id of unlimited dimension */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened OK, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode, add global attribute, variable, variable attribute */ if (ncattput(cdfid, NC_GLOBAL, yaa.name, yaa.type, yaa.len, yaa.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &yaa); /* keep in-memory netcdf in sync */ yav.dims = (int *) emalloc(sizeof(int) * yav.ndims); for (id = 0; id < yav.ndims; id++) yav.dims[id] = id; if ((yav_id=ncvardef(cdfid, yav.name, yav.type, yav.ndims, yav.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &yav); /* keep in-memory netcdf consistent */ if (ncattput(cdfid, yav_id, yaa.name, yaa.type, yaa.len, yaa.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, yav_id, &yaa); /* keep in-memory netcdf consistent */ /* get number of global attributes, number of attributes for variable */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts1, &xdimid) == -1) { error("%s: ncinquire in data mode failed", pname); ncclose(cdfid); return; } vtmp.dims = (int *) emalloc(sizeof(int) * H4_MAX_VAR_DIMS); vtmp.name = (char *) emalloc(H4_MAX_NC_NAME); if (ncvarinq(cdfid, yav_id, vtmp.name, &vtmp.type, &vtmp.ndims, vtmp.dims, &natts) == -1) { error("%s: ncvarinq failed", pname); ncclose(cdfid); return; } /* delete global attribute and check that it's gone */ if (ncattdel(cdfid, NC_GLOBAL, yaa.name) == -1) { error("%s: ncattdel failed", pname); ncclose(cdfid); return; } del_att(&test, NC_GLOBAL, &yaa); /* keep in-memory netcdf consistent */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts2, &xdimid) == -1) { error("%s: ncinquire failed", pname); ncclose(cdfid); return; } if (ngatts2 != ngatts1 - 1) { error("%s: NC_GLOBAL attribute deleted, but ngatts did not decrement", pname); ncclose(cdfid); return; } if (ncattinq(cdfid, NC_GLOBAL, yaa.name, &atmp.type, &atmp.len) != -1) { error("%s: ncattinq on deleted NC_GLOBAL attribute should fail", pname); ncclose(cdfid); return; } /* delete variable attribute and check that it's gone */ if (ncattdel(cdfid, yav_id, yaa.name) == -1) { error("%s: ncattdel failed", pname); ncclose(cdfid); return; } del_att(&test, yav_id, &yaa); /* keep in-memory netcdf consistent */ if (ncvarinq(cdfid, yav_id, vtmp.name, &vtmp.type, &vtmp.ndims, vtmp.dims, &vtmp.natts) == -1) { error("%s: ncvarinq failed", pname); ncclose(cdfid); return; } if (vtmp.natts != natts - 1) { error("%s: NC_GLOBAL attribute deleted, but ngatts did not decrement", pname); ncclose(cdfid); return; } if (ncattinq(cdfid, yav_id, yaa.name, &atmp.type, &atmp.len) != -1) { error("%s: ncattinq on deleted variable attribute should fail", pname); ncclose(cdfid); return; } /* re-add global attribute, variable, variable attribute */ if (ncattput(cdfid, NC_GLOBAL, yaa.name, yaa.type, yaa.len, yaa.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, NC_GLOBAL, &yaa); /* keep in-memory netcdf in sync */ if (ncattput(cdfid, yav_id, yaa.name, yaa.type, yaa.len, yaa.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, yav_id, &yaa); /* keep in-memory netcdf consistent */ /* try on nonexistent attribute, should fail */ if (ncattdel(cdfid, yav_id, "nonesuch") != -1) { error("%s: ncattdel should fail on bogus attribute", pname); ncclose(cdfid); return; } /* try on bad variable id, should fail */ if (ncattdel(cdfid, test.nvars, yaa.name) != -1) { error("%s: ncattdel should fail on bad variable id", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode, should fail */ if (ncattdel(cdfid, NC_GLOBAL, yaa.name) != -1) { error("%s: ncattdel in data mode should fail", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try on bad netcdf handle, should fail */ if (ncattdel(cdfid, yav_id, yaa.name) != -1) { error("%s: ncattdel should fail on bad netcdf id", pname); nerrs++; } Free((char *)vtmp.dims); Free(vtmp.name); Free((char *)yav.dims); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/Makefile.am0000644000000000000000000000300312421456623015522 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES=-I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc \ -I$(top_builddir)/mfhdf/libsrc DEFINES=-DNDEBUG -DHDF AM_CPPFLAGS=$(INCLUDES) $(DEFINES) ############################################################################# ## Programs to build ## ############################################################################# TEST_PROG = nctest check_PROGRAMS = nctest # Information for building the "ncgen" program nctest_SOURCES = add.c atttests.c cdftests.c dimtests.c driver.c emalloc.c \ error.c misctest.c rec.c slabs.c val.c varget_unlim.c \ varget.c vargetg.c varput.c varputg.c vardef.c vartests.c \ vputget.c vputgetg.c nctest_LDADD = $(LIBMFHDF) $(LIBHDF) nctest_DEPENDENCIES = $(LIBMFHDF) $(LIBHDF) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += test2.nc test.nc DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/nctest.def0000644000000000000000000000324312421456623015454 0ustar ; ; CL.DEF - Default .def file for C Windows applications ; ; Copyright (C) Microsoft Corp 1991. All rights reserved. ; NAME WINDOWAPI ; ; The NAME statement tells the linker that a Windows application is being ; built. The linker supplies the actual name of the application from the ; base name of the executable file. ; EXETYPE WINDOWS 3.0 ; ; The EXETYPE statement tells the linker to build a Windows 3.0 executable ; file. This statement should be used in all applications built with ; C 7.0 for Windows 3.0. ; PROTMODE ; ; The PROTMODE statement tells the linker to mark the application for execution ; in Windows standard or enhanced mode. ; CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE ; ; The CODE and DATA statements set the attributes of the applications CODE and ; DATA segments. ; HEAPSIZE 1024 STACKSIZE 8096 ; ; The HEAPSIZE and STACKSIZE statements set the applications near heap and ; stack sizes. The values specified are recomended for QuickWin applications. ; ; ; Uncomment these lines for DLL module definition file model. ; ;EXPORTS ; WEP @1 RESIDENTNAME ; ;SEGMENTS 'WEP_TEXT' FIXED PRELOAD ; ; ; The above section should be uncommented if this .DEF file is to be used as ; a model for a C 7.0 dynamic-link library (DLL) .DEF file. The WEP ; routine is included in the C 7.0 startup code, but the symbol must ; be explicitly exported. If a DLL already has a user-defined WEP routine, ; the routine should be renamed _WEP. The startup code will call _WEP, ; if present, during DLL termination. For additional information concerning ; the WEP function, see the C 7.0 and Windows 3.0 SDK documentation. ; libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/varputg.c0000644000000000000000000001107412421456623015331 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: varputg.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "val.h" #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif /* * Test ncvarputg * check that proper call worked with ncvargetg * try with negative coords, edges, check error * try with too-large coords, edges, check error * try with non-positive strides, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvarputg(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarputg"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc; /* test hypercube */ long tmp; int id; /* dimension id */ long strides[H4_MAX_VAR_DIMS]; /* external, I/O strides */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting hypercubes of each type. * prints out messages for discrepencies */ nerrs += test_varputgetg (cdfid); /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is first varid of var with dimensions */ /* set coords and strides */ for (id = 0; id < test.vars[iv].ndims; id++) { hc.cor[id] = 0; hc.edg[id] = 1; strides[id] = 1; } /* fill in vals with value of appropriate type */ hc.vals = emalloc(nctypelen(test.vars[iv].type)); val_fill(test.vars[iv].type, 1, hc.vals); # define TEST_FAILS(varid) \ (ncvarputg(cdfid, varid, hc.cor, hc.edg, \ strides, (long*)NULL, hc.vals) != -1) id = test.vars[iv].ndims - 1; tmp = hc.cor[id]; hc.cor[id] = -1; /* try negative coordinate, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail for negative corner", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = -1; /* try negative edge, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail for negative edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; tmp = hc.cor[id]; hc.cor[id] = test.dims[id].size; /* try big coordinate, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail for too-high coordinate", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = test.dims[id].size + 1; /* try big edge, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail for too-high edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; tmp = strides[id]; strides[id] = -1; /* try non-positive stride, * should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail for non-positive stride", pname); ncclose(cdfid); return; } strides[id] = tmp; if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvarputg should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } } /* try with bad variable handle, should fail */ if (TEST_FAILS(-1)) { error("%s: ncvarputg should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if (TEST_FAILS(0)) { error("%s: ncvarputg failed to report bad netcdf handle", pname); nerrs++; } Free ((char *)hc.vals); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/val.h0000644000000000000000000000227112421456623014427 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: val.h 2365 1996-03-26 22:43:35Z georgev $ *********************************************************************/ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif /* fill typed value block with values of specified type */ extern void val_fill PROTO(( nc_type , long, void * )); /* fill typed value block with zeros of specified type */ extern void val_fill_zero PROTO(( nc_type , long, void * )); /* * compare two typed value blocks, return 0 if equal, 1+n otherwise, * where n is the index of the first differing element. */ extern int val_cmp PROTO(( nc_type , long, void *, void * )); /* print typed value block with values of specified type */ extern void val_out PROTO(( nc_type , long, void * )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/varget.c0000644000000000000000000001060712421456623015132 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: varget.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif /* * Test ncvarget * check that proper call worked after ncvarput * try with negative coords, edges, check error * try with too-large coords, edges, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvarget(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarget"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc; /* test hypercube */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting hypercubes of each type */ nerrs += test_varputget (cdfid); /* try putting hypercube and getting various interior slabs */ nerrs += test_slabs (cdfid); /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is varid of variable with dimensions */ int tmp; /* set coords */ int id; /* dimension id */ for (id = 0; id < test.vars[iv].ndims; id++) { hc.cor[id] = 0; hc.edg[id] = 1; } /* get space for vals */ hc.vals = emalloc(nctypelen(test.vars[iv].type) + 8); id = test.vars[iv].ndims - 1; tmp = hc.cor[id]; hc.cor[id] = -1; /* try negative coordinate, should fail */ if(ncvarget (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail for negative corner", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = -1; /* try negative edge, should fail */ if(ncvarget (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail for negative edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; { long mqv = test.vars[iv].ndims -1 ; int dim = test.vars[iv].dims[mqv] ; tmp = hc.cor[mqv]; hc.cor[mqv] = test.dims[dim].size; /* try big coordinate, should fail */ if(ncvarget (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail for too-high coordinate", pname); ncclose(cdfid); return; } hc.cor[mqv] = tmp; tmp = hc.edg[mqv]; hc.edg[mqv] = test.dims[dim].size + 1; /* try big edge, should fail */ if(ncvarget (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail for too-high edge", pname); ncclose(cdfid); return; } hc.edg[mqv] = tmp; } /* mqv block */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if(ncvarget (cdfid, iv, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } } /* try with bad variable handle, should fail */ if(ncvarget (cdfid, -1, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if(ncvarget (cdfid, 0, hc.cor, hc.edg, hc.vals) != -1) { error("%s: ncvarget failed to report bad netcdf handle", pname); nerrs++; } Free ((char *)hc.vals); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/README0000644000000000000000000000210312421456623014346 0ustar This directory contains source code for nctest, an extensive test program for the entire netCDF library. Before compiling the sources in this directory, you must have already made the netCDF library from the ../src directory. For UNIX, just type "make". Then, when "nctest" is successfully made, invoke it with "nctest". Output from the test program should look like the following: --- Testing nccreate ... --- Testing ncopen ... --- Testing ncredef ... --- Testing ncendef ... --- Testing ncclose ... --- Testing ncinquire ... --- Testing ncsync ... --- Testing ncabort ... --- Testing ncdimdef ... --- Testing ncdimid ... --- Testing ncdiminq ... --- Testing ncdimrename ... --- Testing ncvardef ... --- Testing ncvarid ... --- Testing ncvarinq ... --- Testing ncvarput1 ... --- Testing ncvarget1 ... --- Testing ncvarput ... --- Testing ncvarget ... --- Testing ncvarrename ... --- Testing ncattput ... --- Testing ncattinq ... --- Testing ncattget ... --- Testing ncattcopy ... --- Testing ncattname ... --- Testing ncattrename ... --- Testing ncattdel ... --- Testing nctypelen ... libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/vargetg.c0000644000000000000000000001067012421456623015301 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vargetg.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif /* * Test ncvargetg * check that proper call worked after ncvarputg * try with negative coords, edges, check error * try with non-positive strides, check error * try with too-large coords, edges, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvargetg(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvargetg"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc; /* test hypercube */ long strides[H4_MAX_VAR_DIMS]; /* external, I/O strides */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting hypercubes of each type */ nerrs += test_varputgetg (cdfid); /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is varid of variable with dimensions */ long tmp; int id; /* dimension id */ /* set coords and strides */ for (id = 0; id < test.vars[iv].ndims; id++) { hc.cor[id] = 0; hc.edg[id] = 1; strides[id] = 1; } /* get space for vals */ hc.vals = emalloc(nctypelen(test.vars[iv].type) + 8); # define TEST_FAILS(varid) \ (ncvarputg(cdfid, varid, hc.cor, hc.edg, \ strides, (long*)NULL, hc.vals) != -1) id = test.vars[iv].ndims - 1; tmp = hc.cor[id]; hc.cor[id] = -1; /* try negative coordinate, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail for negative corner", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = -1; /* try negative edge, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail for negative edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; tmp = hc.cor[id]; hc.cor[id] = test.dims[id].size; /* try big coordinate, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail for too-high coordinate", pname); ncclose(cdfid); return; } hc.cor[id] = tmp; tmp = hc.edg[id]; hc.edg[id] = test.dims[id].size + 1; /* try big edge, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail for too-high edge", pname); ncclose(cdfid); return; } hc.edg[id] = tmp; tmp = strides[id]; strides[id] = -1; /* try non-positive stride, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail for non-positive stride", pname); ncclose(cdfid); return; } strides[id] = tmp; if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if (TEST_FAILS(iv)) { error("%s: ncvargetg should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } } /* try with bad variable handle, should fail */ if (TEST_FAILS(-1)) { error("%s: ncvargetg should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if (TEST_FAILS(0)) { error("%s: ncvargetg failed to report bad netcdf handle", pname); nerrs++; } Free ((char *)hc.vals); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/test_unlim.cdl0000644000000000000000000000130712421456623016342 0ustar netcdf new { dimensions: x = 2; y = 3; time = UNLIMITED ; // (12 currently) variables: float a(x,y); int date(time) ; int time(time) ; short b(time, y, x); data: a = 1.0, 2.0, 3.0, 4.0, 5.0, 6.0; date = 840116, 840214, 840316, 840415, 840516, 840615, 840716, 840816, 840915, 841016, 841115, 841216 ; time = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ; b = 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 17, 17, 18, 18, 19, 19, 20, 20, 21, 22, 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 30, 31, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, 36, 37, 37 ; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/misctest.c0000644000000000000000000000324312421456623015473 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: misctest.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "tests.h" /* * Test nctypelen * try with bad datatype, check error * check returned values for each proper datatype */ void test_nctypelen() { int nerrs = 0; static char pname[] = "test_nctypelen"; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if (nctypelen(NC_BYTE) != sizeof(char)) { error("%s: nctypelen failed for NC_BYTE", pname); nerrs++; } if (nctypelen(NC_CHAR) != sizeof(char)) { error("%s: nctypelen failed for NC_CHAR", pname); nerrs++; } if (nctypelen(NC_SHORT) != sizeof(short)) { error("%s: nctypelen failed for NC_SHORT", pname); nerrs++; } if (nctypelen(NC_LONG) != sizeof(nclong)) { error("%s: nctypelen failed for NC_LONG", pname); nerrs++; } if (nctypelen(NC_FLOAT) != sizeof(float)) { error("%s: nctypelen failed for NC_FLOAT", pname); nerrs++; } if (nctypelen(NC_DOUBLE) != sizeof(double)) { error("%s: nctypelen failed for NC_DOUBLE", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/msoft.mk0000644000000000000000000001145312421456623015157 0ustar # Copyright 1993, UCAR/Unidata # # DOS and OS/2 Makefile for netcdf exhaustive test on PS/2 # # NOTE: Set the definition of the OS2 macro to match OS as follows: # OS2 = 0 -> DOS # OS2 = 1 -> OS/2 !INCLUDE ..\macros.mk AR = LIB ARFLAGS = LINK = link LFLAGS = /st:10000 /SEG:256 /nod INCDIR = ..\libsrc HDFINCDIR = \hdf\hdf\include INCLUDES = /I$(INCDIR) /I$(HDFINCDIR) BINDIR = $(DESTDIR)\bin LIBDIR = $(DESTDIR)\lib NCTESTLIB = nctest.lib NETCDFLIB = ..\libsrc\netcdf.lib CLIB = llibc7.lib oldnames.lib !IF $(OS2) OS2LIB = os2.lib !ELSE OS2LIB = !ENDIF XDRLIB = ..\xdr\xdr.lib HDFLIB = \hdf\hdf\lib\df.lib LIBS = $(NCTESTLIB) $(NETCDFLIB) $(XDRLIB) $(OS2LIB) $(HDFLIB) $(CLIB) .c.obj: $(CC) $(CFLAGS) $(CPPFLAGS) $(INCLUDES) $< GOAL = nctest.exe SRCS = varget.c vargetg.c varput.c varputg.c vardef.c vartests.c \ vputget.c vputgetg.c driver.c cdftests.c dimtests.c rec.c \ atttests.c misctest.c add.c error.c emalloc.c val.c slabs.c MAIN = driver.obj OBJS = varget.obj vargetg.obj varput.obj varputg.obj vardef.obj vartests.obj \ vputget.obj vputgetg.obj cdftests.obj dimtests.obj rec.obj \ atttests.obj misctest.obj add.obj error.obj emalloc.obj val.obj \ slabs.obj LOBJS1 = -+varget.obj -+vargetg.obj -+varput.obj -+varputg.obj -+vardef.obj \ -+vartests.obj -+vputget.obj LOBJS2 = -+vputgetg.obj -+cdftests.obj -+dimtests.obj -+rec.obj \ -+atttests.obj -+misctest.obj LOBJS3 = -+add.obj -+error.obj -+emalloc.obj -+val.obj -+slabs.obj all: $(GOAL) test: $(GOAL) FORCE $(GOAL) FORCE: $(GOAL): $(MAIN) $(NCTESTLIB) $(NETCDFLIB) $(XDRLIB) $(LINK) $(LFLAGS) @nctest.lnk # $(LINK) $(LFLAGS) $(MAIN)+(vartests+cdftests+dimtests+atttests+misctest),$(GOAL),,@nctest.lnk; # $(LINK) $(LFLAGS) $(MAIN),$(GOAL),,@nctest.lnk; $(NCTESTLIB): $(OBJS) $(AR) $@ $(ARFLAGS) $(LOBJS1),LIB.LST; $(AR) $@ $(ARFLAGS) $(LOBJS2),LIB.LST; $(AR) $@ $(ARFLAGS) $(LOBJS3),LIB.LST; install: clean: rm -f *.obj *.lst *.map *.bak nctest.lib nctest.exe *.cdf # DO NOT DELETE THIS LINE -- make depend depends on it. add.obj: add.c add.obj: ../libsrc/netcdf.h add.obj: ./testcdf.h add.obj: ./add.h add.obj: ./emalloc.h atttests.obj: atttests.c atttests.obj: ../libsrc/netcdf.h atttests.obj: ./testcdf.h atttests.obj: ./add.h atttests.obj: ./error.h atttests.obj: ./emalloc.h atttests.obj: ./tests.h atttests.obj: ./val.h bug.obj: bug.c bug.obj: ../libsrc/netcdf.h cdftests.obj: cdftests.c cdftests.obj: ../libsrc/netcdf.h cdftests.obj: ./testcdf.h cdftests.obj: ./add.h cdftests.obj: ./error.h cdftests.obj: ./tests.h dimtests.obj: dimtests.c dimtests.obj: ../libsrc/netcdf.h dimtests.obj: ./testcdf.h dimtests.obj: ./add.h dimtests.obj: ./error.h dimtests.obj: ./tests.h driver.obj: driver.c driver.obj: ../libsrc/netcdf.h driver.obj: ./tests.h emalloc.obj: emalloc.c emalloc.obj: ./error.h emalloc.obj: ./emalloc.h error.obj: error.c error.obj: ../libsrc/netcdf.h error.obj: ./error.h fixed1.obj: fixed1.c fixed1.obj: ../libsrc/netcdf.h fixed2.obj: fixed2.c fixed2.obj: ../libsrc/netcdf.h misctest.obj: misctest.c misctest.obj: ../libsrc/netcdf.h misctest.obj: ./testcdf.h misctest.obj: ./add.h misctest.obj: ./error.h nctime.obj: nctime.c nctime.obj: ../libsrc/netcdf.h nctime0.obj: nctime0.c nctime0.obj: ../libsrc/netcdf.h rec.obj: rec.c rec.obj: ../libsrc/netcdf.h rec.obj: ./testcdf.h rec.obj: ./val.h rec.obj: ./error.h rec.obj: ./tests.h slabs.obj: slabs.c slabs.obj: ../libsrc/netcdf.h slabs.obj: ./testcdf.h slabs.obj: ./add.h slabs.obj: ./error.h slabs.obj: ./tests.h val.obj: val.c val.obj: ../libsrc/netcdf.h val.obj: ./testcdf.h val.obj: ./val.h val.obj: ./error.h vardef.obj: vardef.c vardef.obj: ../libsrc/netcdf.h vardef.obj: ./testcdf.h vardef.obj: ./add.h vardef.obj: ./error.h vardef.obj: ./tests.h varget.obj: varget.c varget.obj: ../libsrc/netcdf.h varget.obj: ./testcdf.h varget.obj: ./error.h varget.obj: ./tests.h vargetg.obj: vargetg.c vargetg.obj: ../libsrc/netcdf.h vargetg.obj: ./testcdf.h vargetg.obj: ./error.h vargetg.obj: ./tests.h varput.obj: varput.c varput.obj: ../libsrc/netcdf.h varput.obj: ./testcdf.h varput.obj: ./val.h varput.obj: ./error.h varput.obj: ./tests.h varputg.obj: varputg.c varputg.obj: ../libsrc/netcdf.h varputg.obj: ./testcdf.h varputg.obj: ./val.h varputg.obj: ./error.h varputg.obj: ./tests.h vartests.obj: vartests.c vartests.obj: ../libsrc/netcdf.h vartests.obj: ./testcdf.h vartests.obj: ./add.h vartests.obj: ./error.h vartests.obj: ./tests.h vputget.obj: vputget.c vputget.obj: ../libsrc/netcdf.h vputget.obj: ./testcdf.h vputget.obj: ./add.h vputget.obj: ./val.h vputget.obj: ./error.h vputget.obj: ./tests.h vputget.obj: ./emalloc.h vputgetg.obj: vputgetg.c vputgetg.obj: ../libsrc/netcdf.h vputgetg.obj: ./testcdf.h vputgetg.obj: ./add.h vputgetg.obj: ./val.h vputgetg.obj: ./error.h vputgetg.obj: ./tests.h vputgetg.obj: ./emalloc.h libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/vardef.c0000644000000000000000000002214512421456623015111 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vardef.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define LEN_OF(array) ((sizeof array) / (sizeof array[0])) #ifdef HDF #define EPS64 ((float64)1.0E-14) #define EPS32 ((float32)1.0E-7) #endif /* * Test ncvardef * check that proper define worked with ncvarinq * check that returned id is one more than previous id * try redefining an existing variable, check error * try adding scalar variable (no dimensions) * try with bad datatype, check error * try with bad number of dimensions, check error * try with bad dimension ids, check error * try in data mode, check error */ void test_ncvardef(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; int cdfid; /* netcdf id */ static char pname[] = "test_ncvardef"; int id, iv; static struct cdfvar va[] = { /* variables of all shapes and sizes */ {"bytev", NC_BYTE, 6, ___, 0}, {"charv", NC_CHAR, 5, ___, 0}, {"shortv", NC_SHORT, 4, ___, 0}, {"longv", NC_LONG, 3, ___, 0}, {"floatv", NC_FLOAT, 2, ___, 0}, {"doublev", NC_DOUBLE, 1, ___, 0}, {"scalarv", NC_DOUBLE, 0, ___, 0} }; int nv = LEN_OF(va); /* number of variables to define */ int va_id[LEN_OF(va)]; /* variable ids */ static struct cdfvar tmp = /* variable for testing bad types, etc. */ {"tmpv", NC_DOUBLE, 1, ___, 0}; /* if d5 >= 91 in following, problem on machines with 16-bit ints ??? */ static struct cdfdim di[] = { /* a bunch of dimensions */ {"d0", 2}, {"d1",3}, {"d2",5}, {"d3", 6}, {"d4", 4}, {"d5", 31}}; int nd = LEN_OF(di); /* number of dimensions */ int di_id[LEN_OF(di)]; /* dimension ids */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, defining a variable should fail in data mode */ if (ncvardef(cdfid, va[0].name, va[0].type, va[0].ndims, va[0].dims) != -1) { error("%s: ncvardef should have failed in data mode", pname); ncclose(cdfid); return; } /* enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* Add nd more dimensions */ for (id = 0; id < nd; id++) { if ((di_id[id] = ncdimdef(cdfid, di[id].name, di[id].size)) == -1) { error("%s: ncdimdef failed for %s, size %d", pname, di[id].name, di[id].size); ncclose(cdfid); return; } add_dim(&test, &di[id]); /* keep in-memory netcdf in sync */ } tmp.dims = (int *) emalloc(sizeof(int) * H4_MAX_VAR_DIMS); tmp.name = (char *) emalloc(H4_MAX_NC_NAME); /* in define mode, add variables of each type with various shapes */ for (iv = 0; iv < nv; iv++) { /* set shape to use subset of dimensions previously defined */ va[iv].dims = (int *) emalloc(sizeof(int) * va[iv].ndims); for (id = 0; id < va[iv].ndims; id++) va[iv].dims[id] = di_id[id]; if ((va_id[iv] = ncvardef(cdfid, va[iv].name, va[iv].type, va[iv].ndims, va[iv].dims)) == -1) { error("%s: ncvardef failed", pname); errvar(&test,&va[iv]); /* prints details about variable */ ncclose(cdfid); return; } add_var(&test, &va[iv]); /* keep in-memory netcdf in sync */ /* check that var id returned is one more than previous var id */ if (va_id[iv] != test.nvars - 1) { error("%s: ncvardef returned %d for var id, expected %d", pname, va_id[iv], test.nvars-1); ncclose(cdfid); return; } /* use ncvarinq to get values just set and compare values */ if (ncvarinq(cdfid, va_id[iv], tmp.name, &tmp.type, &tmp.ndims, tmp.dims, &tmp.natts) == -1) { error("%s: ncvarinq failed", pname); errvar(&test,&va[iv]); /* prints details about variable */ ncclose(cdfid); return; } if (strcmp(tmp.name, va[iv].name) != 0 || tmp.type != va[iv].type || tmp.ndims != va[iv].ndims || tmp.natts != va[iv].natts) { error("%s: ncvardef and ncvarinq don't agree for %s", pname, va[iv].name); nerrs++; errvar(&test,&va[iv]); errvar(&test,&tmp); } for (id = 0; id < va[iv].ndims; id++) { if (tmp.dims[id] != va[iv].dims[id]) { error("%s: ncvardef and ncvarinq don't agree on shape of %s", pname, va[iv].name); nerrs++; errvar(&test,&va[iv]); errvar(&test,&tmp); } } } /* try adding same variable again, this should fail */ if (ncvardef(cdfid, va[0].name, va[0].type, va[0].ndims, va[0].dims) != -1) { error("%s: ncvardef should not allow redefinition", pname); ncclose(cdfid); return; } /* try bad type, should fail */ if (ncvardef(cdfid, "badtype", BAD_TYPE, va[0].ndims, va[0].dims) != -1) { error("%s: ncvardef should have failed on bad type", pname); ncclose(cdfid); return; } /* try bad ndims, should fail */ if (ncvardef(cdfid, "badndims", va[0].type, -1, va[0].dims) != -1) { error("%s: ncvardef should have failed on bad ndims", pname); ncclose(cdfid); return; } /* try bad ids in dims vector, should fail */ id = va[0].dims[0]; va[0].dims[va[0].ndims-1] = -1; if (ncvardef(cdfid, "baddims", va[0].type, va[0].ndims, va[0].dims) != -1) { error("%s: ncvardef should have failed on negative dim id in dims", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* try reading a value of each type, should get appropriate fill value */ for (iv = 0; iv < nv; iv++) { static long where[] = {0,0,0,0,0,0}; switch(va[iv].type) { case NC_BYTE: { char val, fillval = FILL_BYTE; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { if (val != fillval) { error("%s: unwritten byte not FILL_BYTE", pname); nerrs++; } } else { error("%s: ncvarget1 failure for byte", pname); nerrs++; } } break; case NC_CHAR: { char val, fillval = FILL_CHAR; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { if (val != fillval) { error("%s: unwritten char not FILL_CHAR", pname); nerrs++; } } else { error("%s: ncvarget1 failure for char", pname); nerrs++; } } break; case NC_SHORT: { short val, fillval = FILL_SHORT; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { if (val != fillval) { error("%s: unwritten short not FILL_SHORT", pname); nerrs++; } } else { error("%s: ncvarget1 failure for short", pname); nerrs++; } } break; case NC_LONG: { nclong val, fillval; val = 0; fillval = 0; fillval = FILL_LONG; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { if ((nclong) val != (nclong) fillval) { nclong a, b; printf("\n\n Was expecting %d instead got a %d\n", (int)fillval, (int)val); a = (nclong) val; b = (nclong) fillval; printf("\n\n After cast %d %d\n", (int)a, (int)b); error("%s: unwritten long not FILL_LONG", pname); nerrs++; } } else { error("%s: ncvarget1 failure for long", pname); nerrs++; } } break; case NC_FLOAT: { float val, fillval = FILL_FLOAT; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { #ifdef HDF if (fabs((double)(val - fillval)) > fabs((double)(fillval*EPS32))) #else /*!HDF */ if (val != fillval) #endif { error("%s: unwritten float not FILL_FLOAT", pname); nerrs++; } } else { error("%s: ncvarget1 failure for float", pname); nerrs++; } } break; case NC_DOUBLE: { double val, fillval = FILL_DOUBLE; if (ncvarget1(cdfid, va_id[iv], where, (void *) &val) != -1) { #ifdef HDF if (fabs((double)(val - fillval)) > fabs((double)(fillval*EPS64))) #else /* !HDF */ if (val != fillval) #endif /* !HDF */ { error("%s: unwritten double not FILL_DOUBLE", pname); nerrs++; } } else { error("%s: ncvarget1 failure for double", pname); nerrs++; } } break; default: break; } } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } Free ((char *) tmp.dims); Free (tmp.name); for (iv = 0; iv < nv; iv++) if (va[iv].dims) Free((char *) va[iv].dims); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/val.c0000644000000000000000000001313212421456623014420 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: val.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" #include "val.h" #include "error.h" /* fill typed value block with values of specified type */ void val_fill(type, len, vals) nc_type type; /* netcdf type, NC_BYTE, ..., NC_DOUBLE */ long len; /* number of elements to fill with */ void *vals; /* start of first block of values */ { static char pname[] = "val_fill"; int iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp; switch (type) { case NC_BYTE: case NC_CHAR: gp.cp = (char *) vals; for (iel = 0; iel < len; iel++) *gp.cp++ = (char) iel; break; case NC_SHORT: gp.sp = (short *) vals; for (iel = 0; iel < len; iel++) *gp.sp++ = (short) (iel - len/2); /* negative and positive values */ break; case NC_LONG: gp.lp = (nclong *) vals; for (iel = 0; iel < len; iel++) *gp.lp++ = (nclong) (iel - len/2); break; case NC_FLOAT: gp.fp = (float *) vals; for (iel = 0; iel < len; iel++) *gp.fp++ = (float) (iel+1); break; case NC_DOUBLE: gp.dp = (double *) vals; for (iel = 0; iel < len; iel++) *gp.dp++ = (double) (iel - len/2); break; default: error("%s: bad type, test program error", pname); } } /* fill typed value block with zeros of specified type */ void val_fill_zero(type, len, vals) nc_type type; /* netcdf type, NC_BYTE, ..., NC_DOUBLE */ long len; /* number of elements to fill with */ void *vals; /* start of first block of values */ { static char pname[] = "val_fill_zero"; int iel; union { char *cp; short *sp; long *lp; float *fp; double *dp; } gp; switch (type) { case NC_BYTE: case NC_CHAR: gp.cp = (char *) vals; for (iel = 0; iel < len; iel++) *gp.cp++ = (char) 0; break; case NC_SHORT: gp.sp = (short *) vals; for (iel = 0; iel < len; iel++) *gp.sp++ = (short) 0; break; case NC_LONG: gp.lp = (long *) vals; for (iel = 0; iel < len; iel++) *gp.lp++ = (long) 0; break; case NC_FLOAT: gp.fp = (float *) vals; for (iel = 0; iel < len; iel++) *gp.fp++ = (float) 0; break; case NC_DOUBLE: gp.dp = (double *) vals; for (iel = 0; iel < len; iel++) *gp.dp++ = (double) 0; break; default: error("%s: bad type, test program error", pname); } } /* * compare two typed value blocks, return 0 if equal, 1+n otherwise, * where n is the index of the first differing element. */ int val_cmp (type, len, v1, v2) nc_type type; /* netcdf type, NC_BYTE, ..., NC_DOUBLE */ long len; /* number of elements of type to compare */ void *v1; /* start of first block of values */ void *v2; /* start of second block of values */ { static char pname[] = "val_cmp"; int iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp, hp; switch (type) { case NC_CHAR: case NC_BYTE: gp.cp = (char *) v1; hp.cp = (char *) v2; for (iel = 0; iel < len; iel++) { if (*gp.cp != *hp.cp) return (iel + 1); gp.cp++; hp.cp++; } break; case NC_SHORT: gp.sp = (short *) v1; hp.sp = (short *) v2; for (iel = 0; iel < len; iel++) { if (*gp.sp != *hp.sp) return (iel + 1); gp.sp++; hp.sp++; } break; case NC_LONG: gp.lp = (nclong *) v1; hp.lp = (nclong *) v2; for (iel = 0; iel < len; iel++) { if (*gp.lp != *hp.lp) return (iel + 1); gp.lp++; hp.lp++; } break; case NC_FLOAT: gp.fp = (float *) v1; hp.fp = (float *) v2; for (iel = 0; iel < len; iel++) { if (*gp.fp != *hp.fp) return (iel + 1); gp.fp++; hp.fp++; } break; case NC_DOUBLE: gp.dp = (double *) v1; hp.dp = (double *) v2; for (iel = 0; iel < len; iel++) { if (*gp.dp != *hp.dp) return (iel + 1); gp.dp++; hp.dp++; } break; default: error("%s: bad type, test program error", pname); } return 0; /* all values agree */ } /* print typed value block with values of specified type */ void val_out(type, len, vals) nc_type type; /* netcdf type, NC_BYTE, ..., NC_DOUBLE */ long len; /* number of elements to fill with */ void *vals; /* start of first block of values */ { static char pname[] = "val_oout"; int iel; union { char *cp; short *sp; nclong *lp; float *fp; double *dp; } gp; (void) fprintf(stderr," "); switch (type) { case NC_BYTE: case NC_CHAR: gp.cp = (char *) vals; for (iel = 0; iel < len; iel++) (void)fprintf(stderr,"%d%s",*gp.cp++,ielcp[ii] = (char) val; break; case NC_SHORT: gp->sp[ii] = (short)val; break; case NC_LONG: gp->lp[ii] = (nclong)val; break; case NC_FLOAT: gp->fp[ii] = (float)val; break; case NC_DOUBLE: gp->dp[ii] = val; break; default: error("%s: bad type, test program error", pname); #endif /*WRONG_for_PGCC*/ switch (type) { case NC_BYTE: case NC_CHAR: ((char *)v)[ii] = (char) val; break; case NC_SHORT: ((short *)v)[ii] = (short)val; break; case NC_LONG: ((nclong *)v)[ii] = (nclong)val; break; case NC_FLOAT: ((float *)v)[ii] = (float)val; break; case NC_DOUBLE: ((double *)v)[ii] = (double)val; break; default: error("%s: bad type, test program error", pname); } } /* * Compare typed array element with specified value, that is return * * (v[ii] != val) * * returns 0 if equal, 1 if not equal */ static int val_diff(type, v, ii, val) /* v[ii] != val */ nc_type type; /* netcdf type of v, NC_BYTE, ..., NC_DOUBLE */ void *v; /* array of specified type */ int ii; /* it's v[ii] we want to compare */ long val; /* value to compare with */ { static char pname[] = "val_diff"; #ifdef WRONG_for_PGCC /* This way caused a lot of problems for PGI CC compiler EIP 2004/12/15 */ union gp { char cp[1]; short sp[1]; nclong lp[1]; float fp[1]; double dp[1]; } *gp; gp = (union gp *) v; switch (type) { case NC_BYTE: case NC_CHAR: return (gp->cp[ii] != (char) val); case NC_SHORT: return (gp->sp[ii] != (short) val); case NC_LONG: return (gp->lp[ii] != (nclong) val); case NC_FLOAT: return (gp->fp[ii] != (float) val); case NC_DOUBLE: return (gp->dp[ii] != (double) val); default: error("%s: bad type, test program error", pname); return (-1); #endif /*WRONG_for_PGCC*/ switch (type) { case NC_BYTE: case NC_CHAR: return (((char*)v)[ii] != (char) val); case NC_SHORT: return (((short*)v)[ii] != (short) val); case NC_LONG: return (((nclong*)v)[ii] != (nclong) val); case NC_FLOAT: return (((float*)v)[ii] != (float) val); case NC_DOUBLE: return (((double*)v)[ii] != (double) val); default: error("%s: bad type, test program error", pname); return (-1); } } /* * For each type of variable, put a four-dimensional hypercube of values * with a single call to ncvarput. Then use ncvarget to retrieve a single * interior value, an interior vector of values along each of the four * dimensions, an interior plane of values along each of the six pairs of * dimensions, and an interior cube of values along each of the four * triples of dimensions. In each case, compare the retrieved values with * the written values. */ int test_slabs(cdfid) int cdfid; /* handle of netcdf open and in data mode */ { int nerrs = 0; static char pname[] = "test_slabs"; static struct cdfdim dims[NDIMS] = { {"w", WSIZE}, {"x", XSIZE}, {"y", YSIZE}, {"z", ZSIZE} }; int dimids[NDIMS]; /* dimension ids */ long corner[NDIMS], edge[NDIMS], point[NDIMS]; static struct cdfvar va[NVARS] = { /* variables of all types */ {"bytevar", NC_BYTE, NDIMS, ___, 0}, {"charvar", NC_CHAR, NDIMS, ___, 0}, {"shortvar", NC_SHORT, NDIMS, ___, 0}, {"longvar", NC_LONG, NDIMS, ___, 0}, {"floatvar", NC_FLOAT, NDIMS, ___, 0}, {"doublevar", NC_DOUBLE, NDIMS, ___, 0}, }; void *v; int varid[NVARS], iv; /* variable id */ int idim, jdim, kdim, ldim; int iw, ix, iy, iz, ii, jj, kk; if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return 1; } /* back in define mode OK, now add dimensions */ for (idim = 0; idim < NDIMS; idim++) { dimids[idim] = ncdimdef(cdfid, dims[idim].name, dims[idim].size); if (dimids[idim] == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return 1; } add_dim(&test, &dims[idim]); } /* define a multi-dimensional variable of each type */ for (iv = 0; iv < NVARS; iv++) { va[iv].dims = (int *) emalloc(sizeof(int) * va[iv].ndims); for (idim = 0; idim < va[iv].ndims; idim++) va[iv].dims[idim] = dimids[idim]; varid[iv] = ncvardef(cdfid, va[iv].name, va[iv].type, va[iv].ndims, va[iv].dims); if (varid[iv] == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return 1; } add_var(&test, &va[iv]); /* keep in-memory netcdf in sync */ } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return 1; } for (iv = 0; iv < NVARS; iv++) { /* test each type of variable */ v = emalloc(WSIZE*XSIZE*YSIZE*ZSIZE * nctypelen(va[iv].type)); /* fill it with values using a function of dimension indices */ ii = 0; for (iw=0; iw < WSIZE; iw++) { corner[0] = iw; for (ix=0; ix < XSIZE; ix++) { corner[1] = ix; for (iy=0; iy < YSIZE; iy++) { corner[2] = iy; for (iz=0; iz < ZSIZE; iz++) { corner[3] = iz; /* v[ii++] = VF(corner); */ if (va[iv].type == NC_BYTE || va[iv].type == NC_CHAR) val_stuff(va[iv].type, v, ii, VFC(corner)); else val_stuff(va[iv].type, v, ii, VF(corner)); ii++; } } } } for (idim = 0; idim < NDIMS; idim++) { corner[idim] = 0; edge[idim] = dims[idim].size; } /* ncvarput the whole variable */ if (ncvarput(cdfid, varid[iv], corner, edge, (void *) v) == -1) { error("%s: ncvarput failed", pname); nerrs++; } add_data(&test, varid[iv], corner, edge); /* keep test in sync */ /* * For several combinations of fixed dimensions, get a slab and compare * values to function values. */ /* get an interior point */ for (idim=0; idim < NDIMS; idim++) { corner[idim] = dims[idim].size/2; edge[idim] = 1; point[idim] = corner[idim]; } if (ncvarget(cdfid, varid[iv], corner, edge, (void *) v) == -1) { error("%s: ncvarget of one point failed", pname); nerrs++; } /* if (v[0] != VF(point)) */ if (va[iv].type == NC_BYTE || va[iv].type == NC_CHAR) { if (val_diff(va[iv].type, v, 0, VFC(point))) { error("%s: ncvarget got wrong value for point", pname); nerrs++; } } else { if (val_diff(va[iv].type, v, 0, VF(point))) { error("%s: ncvarget got wrong value for point", pname); nerrs++; } } /*endif NC_BYTE || NC_CHAR */ /* get an interior vector in each direction */ for (idim=0; idim < NDIMS; idim++) { for (jdim=0; jdim < NDIMS; jdim++) { corner[jdim] = dims[jdim].size/2; edge[jdim] = 1; point[jdim] = corner[jdim]; } corner[idim] = 1; /* get vector along dimension idim */ edge[idim] = dims[idim].size - 2; if (ncvarget(cdfid, varid[iv], corner, edge, (void *) v) == -1) { error("%s: ncvarget of vector failed", pname); nerrs++; } for (ii=corner[idim]; ii <= edge[idim]; ii++) { point[idim] = ii; /* if (v[ii-1] != VF(point)) */ if (va[iv].type == NC_BYTE || va[iv].type == NC_CHAR){ if (val_diff(va[iv].type, v, ii-1, VFC(point))) { error("%s: ncvarget got wrong value for vector", pname); nerrs++; } } else { if (val_diff(va[iv].type, v, ii-1, VF(point))) { error("%s: ncvarget got wrong value for vector", pname); nerrs++; } } } } /* get an interior plane in each direction */ for (idim=0; idim < NDIMS; idim++) { for (jdim=idim+1; jdim < NDIMS; jdim++) { for (kdim=0; kdim < NDIMS; kdim++) { /* reset corners and edges */ corner[kdim] = dims[kdim].size/2; edge[kdim] = 1; point[kdim] = corner[kdim]; } corner[idim] = 1; /* interior plane along dimensions idim jdim */ corner[jdim] = 1; edge[idim] = dims[idim].size - 2; edge[jdim] = dims[jdim].size - 2; if (ncvarget(cdfid, varid[iv], corner, edge, (void *) v) == -1) { error("%s: ncvarget of plane failed", pname); nerrs++; } for (ii=corner[idim]; ii <= edge[idim]; ii++) { for (jj=corner[jdim]; jj <= edge[jdim]; jj++) { point[idim] = ii; point[jdim] = jj; /* if (v[(ii-1)*edge[jdim]+jj-1] != VF(point)) { */ if (va[iv].type == NC_BYTE || va[iv].type == NC_CHAR) { if (val_diff(va[iv].type, v, (ii-1)*(int)edge[jdim]+jj-1, VFC(point))) { error("%s: ncvarget got wrong value in plane", pname); error("idim=%d,jdim=%d,ii=%d,jj=%d", idim, jdim, ii, jj); nerrs++; } } else { if (val_diff(va[iv].type, v, (ii-1)*(int)edge[jdim]+jj-1, VF(point))) { error("%s: ncvarget got wrong value in plane", pname); error("idim=%d,jdim=%d,ii=%d,jj=%d", idim, jdim, ii, jj); nerrs++; } } } } } } /* get an interior cube in each direction */ for (idim=0; idim < NDIMS; idim++) { for (jdim=idim+1; jdim < NDIMS; jdim++) { for (kdim=jdim+1; kdim < NDIMS; kdim++) { for (ldim=0; ldim < NDIMS; ldim++) { /* reset corners, edges */ corner[ldim] = dims[ldim].size/2; edge[ldim] = 1; point[ldim] = corner[ldim]; } corner[idim] = 1; /* intr. cube along idim jdim kdim */ corner[jdim] = 1; corner[kdim] = 1; edge[idim] = dims[idim].size - 2; edge[jdim] = dims[jdim].size - 2; edge[kdim] = dims[kdim].size - 2; if (ncvarget(cdfid, varid[iv], corner, edge, (void *) v) == -1) { error("%s: ncvarget of cube failed", pname); nerrs++; } for (ii=corner[idim]; ii <= edge[idim]; ii++) { for (jj=corner[jdim]; jj <= edge[jdim]; jj++) { for (kk=corner[kdim]; kk <= edge[kdim]; kk++) { point[idim] = ii; point[jdim] = jj; point[kdim] = kk; /* if (v[((ii-1)*edge[jdim]+jj-1)* edge[kdim]+kk-1] != VF(point)) { */ if (va[iv].type == NC_BYTE || va[iv].type == NC_CHAR) { if (val_diff(va[iv].type,v, ((ii-1)*(int)edge[jdim]+jj-1)* (int)edge[kdim]+kk-1,VFC(point))) { error("%s: ncvarget got wrong value in cube", pname); error("idim=%d,jdim=%d,kdim=%d,ii=%d,jj=%d,kk=%d", idim, jdim, kdim, ii, jj, kk); nerrs++; } } else { if (val_diff(va[iv].type,v, ((ii-1)*(int)edge[jdim]+jj-1)* (int)edge[kdim]+kk-1,VF(point))) { error("%s: ncvarget got wrong value in cube", pname); error("idim=%d,jdim=%d,kdim=%d,ii=%d,jj=%d,kk=%d", idim, jdim, kdim, ii, jj, kk); nerrs++; } } } } } } } } Free((char *)v); } return nerrs; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/dimtests.c0000644000000000000000000003207212421456623015476 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: dimtests.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif /* * Test ncdimdef * try in data mode, check error * check that returned id is one more than previous id * try adding same dimension twice, check error * try with illegal sizes, check error * make sure unlimited size works, shows up in ncinquire(...,*xtendim) * try to define a second unlimited dimension, check error */ void test_ncdimdef(path) char *path; /* name of writable netcdf to open */ { int nerrs = 0; static char pname[] = "test_ncdimdef"; int cdfid; /* netcdf id */ static struct cdfdim mm = /* dimension */ {"mm", 1}; /* 1 should be a valid dimension size */ static struct cdfdim nn = /* dimension */ {"bogus", ___}; /* used for testing invalid dimension sizes */ static struct cdfdim rec = /* dimension */ {"rec", NC_UNLIMITED}; int ndims; /* number of dimensions */ int nvars; /* number of variables */ int natts; /* number of attributes */ int xdimid; /* id of unlimited dimension, or -1 if none */ int dimid; /* dimension id */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, defining a dimension should fail in data mode */ if (ncdimdef(cdfid, mm.name, mm.size) != -1) { error("%s: ncdimdef should have failed in data mode", pname); ncclose(cdfid); return; } /* enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode OK, add a dimension */ if ((dimid = ncdimdef(cdfid, mm.name, mm.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &mm); /* keep in-memory netcdf in sync */ /* check that dim id returned is one more than previous dim id */ if (dimid != test.ndims - 1) { error("%s: ncdimdef returned %d for dim id, expected %d", pname, dimid, test.ndims-1); ncclose(cdfid); return; } /* try adding same dimension again, this should fail */ if (ncdimdef(cdfid, mm.name, mm.size) != -1) { error("%s: ncdimdef should not have allowed redefinition", pname); ncclose(cdfid); return; } /* try adding dimension with negative size, this should fail */ if (ncdimdef(cdfid, nn.name, (long) -10) != -1) { error("%s: ncdimdef should not allow negative size dimension", pname); ncclose(cdfid); return; } /* if there is not already an unlimited size dimension, try adding one */ if (ncinquire(cdfid, &ndims, &nvars, &natts, &xdimid) == -1) { error("%s: ncinquire failed", pname); ncclose(cdfid); return; } if (xdimid == -1) { if (ncdimdef(cdfid, rec.name, rec.size) == -1) { error("%s: ncdimdef failed on NC_UNLIMITED dimension", pname); ncclose(cdfid); return; } add_dim(&test, &rec); } /* try adding another unlimited dimension, which should fail */ if (ncdimdef(cdfid, "rec2", rec.size) != -1) { error("%s: ncdimdef should not allow second NC_UNLIMITED dimension", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } if (ncdimdef(cdfid, "rec2", rec.size) != -1) { error("%s: ncdimdef should fail on bad netCDF id", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncdimid * check return with defined dimension in both modes * try with undefined dimension, check error * check return with unlimited size dimension * try with bad handle, check error */ void test_ncdimid(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncdimid"; int cdfid; /* netcdf id */ int nn_dim; /* dimension id */ static struct cdfdim nn = /* dimension */ {"nn", 1}; /* 1 should be a valid dimension size */ (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode OK, add a dimension */ if ((nn_dim = ncdimdef(cdfid, nn.name, nn.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &nn); /* keep in-memory netcdf in sync */ /* check id returned for name matches id returned from definition */ if (ncdimid(cdfid, nn.name) != nn_dim) { error("%s: ncdimid returned wrong value in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode, check returned id for dimension just added */ if (ncdimid(cdfid, nn.name) != nn_dim) { error("%s: ncdimid returned wrong value in data mode", pname); ncclose(cdfid); return; } /* try with undefined dimension, should fail */ if (ncdimid(cdfid, "easter-bunny") != -1) { error("%s: ncdimid with bogus name should have failed ", pname); ncclose(cdfid); return; } /* try with unlimited dimension, assumed to be "rec" from earlier calls */ if (ncdimid(cdfid, "rec") != test.xdimid) { error("%s: ncdimid returned bad value for record dimension", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try on bad handle, should fail */ if (ncdimid(cdfid, nn.name) != -1) { error("%s: ncdimid failed to report bad netcdf handle", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncdiminq * try in both modes * check returned name and size against defined name and size * try with bad dimension handle, check error * try with bad netCDF handle, check error */ void test_ncdiminq(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncdiminq"; int cdfid; /* netcdf id */ int dimid; /* dimension id */ struct cdfdim dim; /* dimension */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, in data mode */ dim.name = (char *) emalloc(H4_MAX_NC_NAME); for (dimid = 0 ; dimid < test.ndims; dimid++) { /* loop on all dim ids */ if (ncdiminq(cdfid, dimid, dim.name, &dim.size) == -1) { error("%s: ncdiminq in data mode failed on dim id %d", pname, dimid); ncclose(cdfid); return; } /* compare returned with expected values */ if (strcmp(dim.name, test.dims[dimid].name) != 0) { error("%s: ncdiminq (data mode), name %s, expected %s for id = %d", pname, dim.name, test.dims[dimid].name, dimid); nerrs++; } if (dim.size != test.dims[dimid].size) { error("%s: ncdiminq (data mode), size %d, expected %d for id = %d", pname, dim.size, test.dims[dimid].size, dimid); nerrs++; } } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, compare returned with expected values again */ for (dimid = 0 ; dimid < test.ndims; dimid++) { /* loop on all dim ids */ if (ncdiminq(cdfid, dimid, dim.name, &dim.size) == -1) { error("%s: ncdiminq in define mode failed on dim id %d", pname, dimid); ncclose(cdfid); return; } /* compare returned with expected values */ if (strcmp(dim.name, test.dims[dimid].name) != 0) { error("%s: ncdiminq (define), name %s, expected %s for id = %d", pname, dim.name, test.dims[dimid].name, dimid); nerrs++; } if (dim.size != test.dims[dimid].size) { error("%s: ncdiminq (define), size %d, expected %d for id = %d", pname, dim.size, test.dims[dimid].size, dimid); nerrs++; } } /* try with bad dimension handles, check for failure */ if (ncdiminq(cdfid, -1, dim.name, &dim.size) != -1 || ncdiminq(cdfid, test.ndims, dim.name, &dim.size) != -1) { error("%s: ncdiminq should have failed on bad dimension ids", pname, dimid); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (test.ndims >= 1) { /* if any dimensions have been defined */ if (ncdiminq (cdfid, 0, dim.name, &dim.size) != -1) { error("%s: ncdiminq failed to report bad netcdf handle ", pname); nerrs++; } } Free(dim.name); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncdimrename * check that proper rename worked with ncdiminq * try renaming to existing dimension name, check error * try with bad dimension handle, check error * try with bad netCDF handle, check error */ void test_ncdimrename(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncdimrename"; int cdfid; /* netcdf id */ int pp_dim; /* dimension id */ static struct cdfdim pp = /* dimension */ {"pp", 7}; static char newname[H4_MAX_NC_NAME] = /* dimension name */ "new_name"; struct cdfdim dim; /* dimension */ static struct cdfdim qq = /* dimension */ {"qq", 10}; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, add two dimensions */ if ((pp_dim = ncdimdef(cdfid, pp.name, pp.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &pp); /* keep in-memory netcdf in sync */ if (ncdimdef(cdfid, qq.name, qq.size) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &qq); /* keep in-memory netcdf in sync */ /* rename first dimension */ if (ncdimrename(cdfid, pp_dim, newname) == -1) { error("%s: ncdimrename failed", pname); ncclose(cdfid); return; } /* check new name with ncdiminq */ dim.name = (char *) emalloc(H4_MAX_NC_NAME); if (ncdiminq(cdfid, pp_dim, dim.name, &dim.size) == -1) { error("%s: ncdiminq failed", pname); ncclose(cdfid); return; } if (strcmp(dim.name,pp.name) == 0) { error("%s: ncdimrename failed to change name", pname); ncclose(cdfid); return; } if (strcmp(dim.name,newname) != 0) { error("%s: ncdimrename changed name to %s instead of %s", pname, dim.name, newname); ncclose(cdfid); return; } test.dims[pp_dim].name = (char *) erealloc((void *)test.dims[pp_dim].name, strlen(newname)+1); (void) strcpy(test.dims[pp_dim].name, newname); /* keep test consistent */ /* try to rename second dimension same as first, should fail */ if (ncdimrename(cdfid, pp_dim, qq.name) != -1) { error("%s: ncdimrename should have failed with used name", pname); ncclose(cdfid); return; } /* try with bad dimension handles, check for failure */ if (ncdimrename(cdfid, -1, dim.name) != -1 || ncdimrename(cdfid, test.ndims, dim.name) != -1) { error("%s: ncdimrename should have failed on bad dimension ids", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode, restore old name */ if (ncdimrename(cdfid, pp_dim, pp.name) == -1) { error("%s: ncdimrename failed in data mode", pname); ncclose(cdfid); return; } test.dims[pp_dim].name = (char *) erealloc((void *)test.dims[pp_dim].name, strlen(pp.name)+1); (void) strcpy(test.dims[pp_dim].name, pp.name); /* keep test consistent */ if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (ncdimrename (cdfid, 0, dim.name) != -1) { error("%s: ncdimrename failed to report bad netcdf handle ", pname); nerrs++; } Free (dim.name); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/vartests.c0000644000000000000000000005147612421456623015526 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vartests.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define LEN_OF(array) ((sizeof array) / (sizeof array[0])) #define min(A, B) ((A) < (B) ? (A) : (B)) #define max(A, B) ((A) > (B) ? (A) : (B)) /* * Test ncvarid * check that proper variable handle returned in both modes * try with undefined name, check error * try with bad handle, check error */ void test_ncvarid(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarid"; int cdfid; /* netcdf id */ int id; int varid; /* variable id */ static struct cdfvar xx = /* variable */ {"xx", NC_FLOAT, 1, ___, 0}; (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode, add a variable */ xx.dims = (int *) emalloc(sizeof(int) * xx.ndims); for (id = 0; id < xx.ndims; id++) xx.dims[id] = id; if ((varid = ncvardef(cdfid, xx.name, xx.type, xx.ndims, xx.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &xx); /* keep in-memory netcdf in sync */ /* check id returned for name matches id returned from definition */ if (ncvarid(cdfid, xx.name) != varid) { error("%s: ncvarid returned wrong value in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode, check returned id for variable just added */ if (ncvarid(cdfid, xx.name) != varid) { error("%s: ncvarid returned wrong value in data mode", pname); ncclose(cdfid); return; } /* try with undefined variable, should fail */ if (ncvarid(cdfid, "santa-claus") != -1) { error("%s: ncvarid with bogus name should have failed ", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try on bad handle, should fail */ if (ncvarid(cdfid, xx.name) != -1) { error("%s: ncvarid failed to report bad netcdf handle", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncvarinq * try in both modes * check returned values against defined values * try with bad variable handle, check error * try with bad netCDF handle, check error */ void test_ncvarinq(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarinq"; int cdfid; /* netcdf id */ int varid; /* variable id */ struct cdfvar var; /* variable */ int idim; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, in data mode */ var.dims = (int *) emalloc(sizeof(int) * H4_MAX_VAR_DIMS); var.name = (char *) emalloc(H4_MAX_NC_NAME); for (varid = 0 ; varid < test.nvars; varid++) { /* loop on all var ids */ if (ncvarinq(cdfid, varid, var.name, &var.type, &var.ndims, var.dims, &var.natts) == -1) { error("%s: ncvarinq in data mode failed on var id %d", pname, varid); ncclose(cdfid); return; } /* compare returned with expected values */ if (strcmp(var.name, test.vars[varid].name) != 0) { error("%s: ncvarinq (data mode), name %s, expected %s for id = %d", pname, var.name, test.vars[varid].name, varid); nerrs++; } if (var.type != test.vars[varid].type) { error("%s: ncvarinq (data mode), type %d, expected %d for id = %d", pname, var.type, test.vars[varid].type, varid); nerrs++; } if (var.ndims != test.vars[varid].ndims) { error("%s: ncvarinq (data mode), ndims %d, expected %d for id = %d", pname, var.ndims, test.vars[varid].ndims, varid); nerrs++; } else { /* if ndims OK, compare dims */ for (idim = 0; idim < var.ndims; idim++) if (var.dims[idim] != test.vars[varid].dims[idim]) { error("%s: ncvarinq (data mode), dims[%d]=%d, expected %d", pname, idim, var.dims[idim], test.vars[varid].dims[idim]); nerrs++; } } } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, compare returned with expected values again */ for (varid = 0 ; varid < test.nvars; varid++) { /* loop on all var ids */ if (ncvarinq(cdfid, varid, var.name, &var.type, &var.ndims, var.dims, &var.natts) == -1) { error("%s: ncvarinq in data mode failed on var id %d", pname, varid); ncclose(cdfid); return; } if (strcmp(var.name, test.vars[varid].name) != 0) { error("%s: ncvarinq (define mode), name %s, expected %s for id = %d", pname, var.name, test.vars[varid].name, varid); nerrs++; } if (var.type != test.vars[varid].type) { error("%s: ncvarinq (define mode), type %d, expected %d for id = %d", pname, var.type, test.vars[varid].type, varid); nerrs++; } if (var.ndims != test.vars[varid].ndims) { error("%s: ncvarinq (define mode), ndims %d, expected %d for id = %d", pname, var.ndims, test.vars[varid].ndims, varid); nerrs++; } else { /* if ndims OK, compare dims */ for (idim = 0; idim < var.ndims; idim++) if (var.dims[idim] != test.vars[varid].dims[idim]) { error("%s: ncvarinq (define mode), dims[%d]=%d, expected %d", pname, idim, var.dims[idim], test.vars[varid].dims[idim]); nerrs++; } } } /* try with bad variable handles, check for failure */ if (ncvarinq(cdfid, -1, var.name, &var.type, &var.ndims, var.dims, &var.natts) != -1 || ncvarinq(cdfid, test.nvars, var.name, &var.type, &var.ndims, var.dims, &var.natts) != -1) { error("%s: ncvarinq should have failed on bad variable ids", pname, varid); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (test.nvars >= 1) { /* if any variables have been defined */ if (ncvarinq(cdfid, varid, var.name, &var.type, &var.ndims, var.dims, &var.natts) != -1) { error("%s: ncvarinq failed to report bad netcdf handle ", pname); nerrs++; } } Free((char *) var.dims); Free(var.name); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } struct cdfelm { /* coordinates and generic value */ long coords[H4_MAX_VAR_DIMS]; union generic { char by; char ch; short sh; nclong lo; float fl; double db; } val; }; /* * Test both ncvarput1 and ncvarget1 with all types of data * use points in "lower-left", "middle", and "upper-right" * for each existing variable, put values of its type at each point * get values and compare with put values */ static int test_varputget1(cdfid) int cdfid; /* handle of netcdf open and in data mode */ { int nerrs = 0; static char pname[] = "test_varputget1"; int id, ie, iv; int ne = 3; /* number of test points */ struct cdfelm elm[3]; /* coordinates and values of test points */ static long edges[] = {1}; void *voidp=NULL; void *tmpp=NULL; char chval; short shval; nclong loval; float flval; double dbval; for (iv = 0; iv < test.nvars; iv++) { /* for each var in netcdf */ for (id = 0; id < test.vars[iv].ndims; id++) { /* set corners */ int dsize; /* max dimension size, used for u-r corner */ /* "lower-left" corner */ elm[0].coords[id] = 0; /* if unlimited dimension, choose record 3 for max, arbitrarily */ dsize = test.dims[test.vars[iv].dims[id]].size; if (dsize == NC_UNLIMITED) dsize = 3; /* middle */ elm[1].coords[id] = dsize / 2; /* "upper-right" corner */ elm[2].coords[id] = dsize - 1; } for (ie = 0; ie < ne; ie++) { /* for each of ne points */ switch (test.vars[iv].type) { /* get values of right type to put */ case NC_BYTE: case NC_CHAR: elm[ie].val.by = (char) (ie+1); voidp = (void *) &elm[ie].val.by; tmpp = (void *) &chval; break; case NC_SHORT: elm[ie].val.sh = (short) (ie-1); voidp = (void *) &elm[ie].val.sh; tmpp = (void *) &shval; break; case NC_LONG: elm[ie].val.lo = (nclong) (ie-3); voidp = (void *) &elm[ie].val.lo; tmpp = (void *) &loval; break; case NC_FLOAT: elm[ie].val.fl = (float) (ie+1); voidp = (void *) &elm[ie].val.fl; tmpp = (void *) &flval; break; case NC_DOUBLE: elm[ie].val.db = (double) (ie-1); voidp = (void *) &elm[ie].val.db; tmpp = (void *) &dbval; break; default: error("%s: bad type, test program error", pname); } if(ncvarput1 (cdfid, iv, elm[ie].coords, voidp) == -1) { error("%s: ncvarput1 failed for point %d, variable %s", pname, ie, test.vars[iv].name); ncclose(cdfid); return 1; } add_data(&test, iv, elm[ie].coords, edges); /* keep test in sync */ if(ncvarget1 (cdfid, iv, elm[ie].coords, tmpp) == -1) { error("%s: ncvarget1 failed for point %d, variable %s", pname, ie, test.vars[iv].name); ncclose(cdfid); return 1; } switch (test.vars[iv].type) { /* compare values of right type */ case NC_BYTE: case NC_CHAR: if (elm[ie].val.by != chval) { error("%s: ncvarget1 returned char %d, expected %d", pname, chval, elm[ie].val.by); nerrs++; } break; case NC_SHORT: if (elm[ie].val.sh != shval) { error("%s: ncvarget1 returned short %d, expected %d", pname, shval, elm[ie].val.sh); nerrs++; } break; case NC_LONG: if (elm[ie].val.lo != loval) { error("%s: ncvarget1 returned long %ld, expected %d", pname, loval, elm[ie].val.lo); nerrs++; } break; case NC_FLOAT: if (elm[ie].val.fl != flval) { error("%s: ncvarget1 returned float %g, expected %g", pname, flval, elm[ie].val.fl); nerrs++; } break; case NC_DOUBLE: if (elm[ie].val.db != dbval) { error("%s: ncvarget1 returned double %g, expected %g", pname, dbval, elm[ie].val.db); nerrs++; } break; default: error("%s: bad type, test program error", pname); } } } return nerrs; } /* * Test ncvarput1 * check that proper call worked with ncvarget1 * try with negative coords, check error * try with too-large coords, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvarput1(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarput1"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfelm elm; /* coordinates and value of test point */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting values of each type */ nerrs += test_varputget1 (cdfid); /* tests ncvarput1 and ncvarget1 */ /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is varid of variable with dimensions */ /* set coords */ int id; /* dimension id */ for (id = 0; id < test.vars[iv].ndims; id++) elm.coords[id] = 0; /* try invalid coordinates, should fail */ elm.coords[test.vars[iv].ndims/2] = -1; if(ncvarput1 (cdfid, iv, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarput1 should fail for negative coordinate", pname); ncclose(cdfid); return; } elm.coords[test.vars[iv].ndims/2] = test.dims[test.vars[iv].dims[test.vars[iv].ndims/2]].size; if(ncvarput1 (cdfid, iv, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarput1 should fail for too-high coordinate", pname); ncclose(cdfid); return; } } /* try with bad variable handle, should fail */ if(ncvarput1 (cdfid, -1, elm.coords, (void *) &elm.val) != -1 || ncvarput1 (cdfid, test.nvars, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarput1 should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if (test.nvars > 0) if(ncvarput1 (cdfid, 0, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarput1 should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if(ncvarput1 (cdfid, 0, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarput1 failed to report bad netcdf handle", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncvarget1 * check that proper call worked after ncvarput1 * try with negative coords, check error * try with too-large coords, check error * try with bad variable handle, check error * try in define mode, check error * try with bad netCDF handle, check error */ void test_ncvarget1(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarget1"; int cdfid; /* netcdf id */ int iv; /* variable id */ struct cdfelm elm; /* coordinates and value of test point */ (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened in data mode, try putting and getting values of each type */ nerrs += test_varputget1 (cdfid); /* tests ncvarput1 and ncvarget1 */ /* find a variable with at least one dimension */ iv = 0; while (test.vars[iv].ndims <= 0 && iv < test.nvars) iv++; if (iv < test.nvars) { /* iv is varid of variable with dimensions */ /* set coords */ int id; /* dimension id */ for (id = 0; id < test.vars[iv].ndims; id++) elm.coords[id] = 0; /* try invalid coordinates, should fail */ elm.coords[test.vars[iv].ndims/2] = -1; if(ncvarget1 (cdfid, iv, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarget1 should fail for negative coordinate", pname); ncclose(cdfid); return; } elm.coords[test.vars[iv].ndims/2] = test.dims[test.vars[iv].dims[test.vars[iv].ndims/2]].size; if(ncvarget1 (cdfid, iv, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarget1 should fail for too-high coordinate", pname); ncclose(cdfid); return; } } /* try with bad variable handle, should fail */ if(ncvarget1 (cdfid, -1, elm.coords, (void *) &elm.val) != -1 || ncvarget1 (cdfid, test.nvars, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarget1 should fail for bad variable handle", pname); ncclose(cdfid); return; } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* try in define mode, should fail */ if (test.nvars > 0) if(ncvarget1 (cdfid, 0, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarget1 should fail in define mode", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* try with bad netCDF handle, should fail */ if(ncvarget1 (cdfid, 0, elm.coords, (void *) &elm.val) != -1) { error("%s: ncvarget1 failed to report bad netcdf handle", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncvarrename * check that proper rename worked with ncvarinq * try with bad netCDF handle, check error * try in data mode, check error * try with bad variable handle, check error * try renaming to existing variable name, check error */ void test_ncvarrename(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncvarrename"; int cdfid; /* netcdf id */ int id; /* dimension id */ int yy_id; /* variable id */ static struct cdfvar yy = /* variable */ {"old_name", NC_SHORT, 1, ___, 0}; static char newname[] = "yyy"; /* variable name */ static char shortname[] = "yy"; /* variable name */ struct cdfvar var; /* variable */ static struct cdfvar zz = /* variable */ {"zz", NC_BYTE, 2, ___, 0}; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, add two variables */ yy.dims = (int *) emalloc(sizeof(int) * yy.ndims); for (id = 0; id < yy.ndims; id++) yy.dims[id] = id; if ((yy_id = ncvardef(cdfid, yy.name, yy.type, yy.ndims, yy.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &yy); /* keep in-memory netcdf in sync */ zz.dims = (int *) emalloc(sizeof(int) * zz.ndims); for (id = 0; id < zz.ndims; id++) zz.dims[id] = id; if (ncvardef(cdfid, zz.name, zz.type, zz.ndims, zz.dims) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &zz); /* keep in-memory netcdf in sync */ /* rename first variable */ if (ncvarrename(cdfid, yy_id, newname) == -1) { error("%s: ncvarrename failed", pname); ncclose(cdfid); return; } /* check new name with ncvarid, ncvarinq */ if (yy_id != ncvarid(cdfid, newname)) { error("%s: lookup by name failed after ncvarrename", pname); } var.dims = (int *) emalloc(sizeof(int) * H4_MAX_VAR_DIMS); var.name = (char *) emalloc(H4_MAX_NC_NAME); if (ncvarinq(cdfid, yy_id, var.name, &var.type, &var.ndims, var.dims, &var.natts) == -1) { error("%s: ncvarinq failed", pname); ncclose(cdfid); return; } if (strcmp(var.name,yy.name) == 0) { error("%s: ncvarrename failed to change name", pname); ncclose(cdfid); return; } if (strcmp(var.name,newname) != 0) { error("%s: ncvarrename changed name to %s instead of %s", pname, var.name, newname); ncclose(cdfid); return; } (void) strcpy(test.vars[yy_id].name, newname); /* keep test consistent */ /* try to rename second variable same as first, should fail */ if (ncvarrename(cdfid, yy_id, zz.name) != -1) { error("%s: ncvarrename should have failed with used name", pname); ncclose(cdfid); return; } /* try with bad variable handles, check for failure */ if (ncvarrename(cdfid, -1, var.name) != -1 || ncvarrename(cdfid, test.nvars, var.name) != -1) { error("%s: ncvarrename should have failed on bad variable ids", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode */ if (ncvarrename(cdfid, yy_id, "a_longer_name") != -1) { error("%s: ncvarrename to longer should fail in data mode", pname); ncclose(cdfid); return; } if (ncvarrename(cdfid, yy_id, shortname) == -1) { error("%s: ncvarrename to shorter should succeed in data mode", pname); ncclose(cdfid); return; } (void) strcpy(test.vars[yy_id].name, shortname); /* keep test consistent */ if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (ncvarrename (cdfid, 0, var.name) != -1) { error("%s: ncvarrename failed to report bad netcdf handle ", pname); nerrs++; } Free(var.name); Free((char *)var.dims); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/vputget.c0000644000000000000000000001064712421456623015344 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vputget.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "val.h" #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define max(A, B) ((A) > (B) ? (A) : (B)) /* * For every variable in open netcdf, puts and gets three hypercubes * of data of the appropriate type, comparing values from get to * values put to check that both ncvarput and ncvarget worked. The * three hypercubes are * - a large hypercube from (0, 0, ...) to the far corner (diagonally * opposite (0, 0, ...), * - a size 1 hypercube from the far corner with edge lengths of 1 * in every direction, and * - a hypercube starting about 1/3 of the way along the diagonal * from (0,0,...) extending 1/3 of the way in every direction * toward the far corner. */ int test_varputget(cdfid) int cdfid; /* handle of netcdf open and in data mode */ { int nerrs = 0; static char pname[] = "test_varputget"; int id, ie, iv; /* loop indices */ int ne = 3; /* number of test hypercubes for each var */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc[3], tmp; /* test hypercubes */ int nel[3]; /* number of elements in hypercube */ for (iv = 0; iv < test.nvars; iv++) { /* for each var in netcdf */ for (ie = 0; ie < ne; ie++) nel[ie] = 1; /* to compute space for hypercube values */ for (id = 0; id < test.vars[iv].ndims; id++) { /* set cubes */ /* max dimension size, 5 for records */ int dsize = test.dims[test.vars[iv].dims[id]].size; if (dsize == NC_UNLIMITED) dsize = 5; /* start at "lower-left" corner, do whole variable */ hc[0].cor[id] = 0; hc[0].edg[id] = dsize; nel[0] *= hc[0].edg[id]; /* start at "upper-right" corner, do one point */ hc[1].cor[id] = dsize - 1; hc[1].edg[id] = 1; nel[1] *= hc[1].edg[id]; /* start about 1/3 way along diagonal, do 1/3 in each direction */ hc[2].cor[id] = dsize/3; hc[2].edg[id] = max (dsize/3, 1); nel[2] *= hc[2].edg[id]; } for (ie = 0; ie < ne; ie++) { /* for each of ne points */ /* allocate space for the cube of values */ hc[ie].vals = emalloc(nel[ie]*nctypelen(test.vars[iv].type) + 8); tmp.vals = emalloc(nel[ie]*nctypelen(test.vars[iv].type) + 8); /* fill allocated space with different values of right type */ val_fill(test.vars[iv].type, nel[ie], hc[ie].vals); if(ncvarput (cdfid, iv, hc[ie].cor, hc[ie].edg, hc[ie].vals) == -1) { error("%s: ncvarput failed for point %d, variable %s", pname, ie, test.vars[iv].name); nerrs++; errvar(&test, &test.vars[iv]); (void)fprintf(stderr," corner = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)hc[ie].cor[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); (void)fprintf(stderr," edge = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)hc[ie].edg[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); } else { add_data(&test, iv, hc[ie].cor, hc[ie].edg); /* keep test in sync */ if(ncvarget (cdfid, iv, hc[ie].cor, hc[ie].edg, tmp.vals) == -1) { error("%s: ncvarget failed for point %d, variable %s", pname, ie, test.vars[iv].name); nerrs++; } else { if (val_cmp(test.vars[iv].type, nel[ie], hc[ie].vals, tmp.vals) != 0) { error("%s: bad values returned from ncvarget", pname); nerrs++; errvar(&test, &test.vars[iv]); /* describe var */ } } } Free ((char *) hc[ie].vals); Free ((char *) tmp.vals); } } return nerrs; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/emalloc.c0000644000000000000000000000232712421456623015256 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: emalloc.c 2365 1996-03-26 22:43:35Z georgev $ *********************************************************************/ /*LINTLIBRARY*/ #include #include #include "error.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif void * emalloc (size) /* check return from malloc */ int size; { void *p; if (size < 0) { error ("negative arg to emalloc: %d", size); return 0; } if (size == 0) return 0; #ifdef HDF p = (void *) HDmalloc((uint32)size); #else p = (void *) malloc ((unsigned) size); #endif if (p == 0) { error ("out of memory\n"); exit (1); } return p; } void * erealloc (ptr,size) /* check return from realloc */ void *ptr; int size; { void *p; if (size < 0) { error ("negative arg to realloc"); return 0; } #ifdef HDF p = (void *) HDrealloc((VOIDP) ptr, (uint32) size); #else p = (void *) realloc ((char *) ptr, (unsigned) size); #endif if (p == 0) { error ("out of memory"); exit(1); } return p; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/error.c0000644000000000000000000000276712421456623015003 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: error.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #ifndef NO_STDARG #include #else #include #endif #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "error.h" int error_count = 0; /* * Use for logging error conditions. */ #ifndef NO_STDARG void error(const char *fmt, ...) #else /*VARARGS1*/ void error(fmt, va_alist) const char *fmt ; va_dcl #endif { va_list args ; (void) fprintf(stderr,"*** "); #ifndef NO_STDARG va_start(args, fmt) ; #else va_start(args) ; #endif (void) vfprintf(stderr,fmt,args) ; va_end(args) ; (void) fprintf(stderr, "\n") ; error_count++; } /* * Turn off netCDF library handling of errors. Caller must check all error * returns after calling this, until on_errs() is called. */ void off_errs() { ncopts &= ~NC_FATAL; /* make errors nonfatal */ ncopts &= ~NC_VERBOSE; /* turn off error messages */ } /* * Let netCDF library handle subsequent errors. Callers don't need to check * error returns after this. (This is the initial default.) */ void on_errs() { ncopts |= NC_FATAL; /* make errors fatal */ ncopts |= NC_VERBOSE; /* library prints error messages */ } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/vputgetg.c0000644000000000000000000001365112421456623015511 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: vputgetg.c 4998 2007-11-16 03:14:03Z epourmal $ *********************************************************************/ #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test cdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "val.h" #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define max(A, B) ((A) > (B) ? (A) : (B)) /* * For every variable in open netcdf, puts and gets three hypercubes * of data of the appropriate type, comparing values from get to * values put to check that both ncvarputg and ncvargetg worked. The * three hypercubes are * - a large hypercube from (0, 0, ...) to the far corner (diagonally * opposite (0, 0, ...), * - a size 1 hypercube from the far corner with edge lengths of 1 * in every direction, and * - a hypercube starting about 1/3 of the way along the diagonal * from (0,0,...) extending 1/3 of the way in every direction * toward the far corner. */ int test_varputgetg(cdfid) int cdfid; /* handle of netcdf open and in data mode */ { int nerrs = 0; static char pname[] = "test_varputgetg"; int id, ie, iv; /* loop indices */ int ne = 3; /* number of test hypercubes for each var */ struct cdfhc { /* a hypercube with generic values */ long cor[H4_MAX_VAR_DIMS]; /* netcdf coordinates for lower corner */ long edg[H4_MAX_VAR_DIMS]; /* netcdf edge lengths to upper corner */ void *vals; /* pointer to block of values */ } hc[3], tmp; /* test hypercubes */ long nel[3]; /* number of elements in hypercube */ long strides[H4_MAX_VAR_DIMS]; /* external strides */ long basis[H4_MAX_VAR_DIMS]; /* internal array, element-access basis vector */ for (iv = 0; iv < test.nvars; iv++) { /* for each var in netcdf */ long tmpbasis; for (ie = 0; ie < ne; ie++) nel[ie] = 1; /* to compute space for hypercube values */ /* * The following macro returns the size of a dimension for a * variable with a maximum dimension size of 5 for the record * dimension. */ # define EXTNPTS(varid, idim) \ (test.dims[test.vars[varid].dims[id]].size == NC_UNLIMITED \ ? 5 \ : test.dims[test.vars[varid].dims[id]].size) # define STRIDE(idim) (idim + 2) # define INTNPTS(extnpts, idim) (1 + (extnpts - 1) / STRIDE(idim)) for (id = 0; id < test.vars[iv].ndims; id++) { /* set cubes */ strides[id] = STRIDE(id); /* start at "lower-left" corner, do whole variable */ hc[0].cor[id] = 0; hc[0].edg[id] = INTNPTS(EXTNPTS(iv, id), id); nel[0] *= hc[0].edg[id]; /* start at "upper-right" corner, do one point */ hc[1].cor[id] = EXTNPTS(iv, id) - 1; hc[1].edg[id] = 1; nel[1] *= hc[1].edg[id]; /* start about 1/3 way along diagonal, do 1/3 in each direction */ hc[2].cor[id] = EXTNPTS(iv, id)/3; hc[2].edg[id] = INTNPTS(max(EXTNPTS(iv, id)/3, 1), id); nel[2] *= hc[2].edg[id]; } for (ie = 0; ie < ne; ie++) { /* for each of ne points */ int nelms = nel[ie]*nctypelen(test.vars[iv].type) + 8; /* allocate space for the cube of values */ hc[ie].vals = emalloc(nelms); tmp.vals = emalloc(nelms); /* fill allocated space with different values of right type */ val_fill(test.vars[iv].type, nel[ie], hc[ie].vals); /* * Set internal-array element-access basis vector to be negative * of natural storage so as to access the elements of the array * backwards. */ tmpbasis = nctypelen(test.vars[iv].type); for (id = test.vars[iv].ndims-1; id >= 0; --id) { basis[id] = -tmpbasis; tmpbasis *= hc[ie].edg[id]; } if(ncvarputg (cdfid, iv, hc[ie].cor, hc[ie].edg, strides, basis, (char*)hc[ie].vals+(nel[ie]-1)* nctypelen(test.vars[iv].type)) == -1) { error("%s: ncvarputg failed for point %d, variable %s", pname, ie, test.vars[iv].name); nerrs++; errvar(&test, &test.vars[iv]); (void)fprintf(stderr," corner = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)hc[ie].cor[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); (void)fprintf(stderr," edge = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)hc[ie].edg[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); (void)fprintf(stderr," external strides = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)strides[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); (void)fprintf(stderr," internal basis vector = ("); for (id = 0 ; id < test.vars[iv].ndims; id++) (void)fprintf(stderr,"%d%s",(int)basis[id], (id < test.vars[iv].ndims-1) ? ", " : ""); (void)fprintf(stderr,")\n"); } else { long dsize[H4_MAX_VAR_DIMS]; for (id = 0; id < test.vars[iv].ndims; id++) dsize[id] = EXTNPTS(iv, id); add_data(&test, iv, hc[ie].cor, dsize); /* keep test in sync */ if(ncvargetg (cdfid, iv, hc[ie].cor, hc[ie].edg, strides, basis, (char*)tmp.vals+(nel[ie]-1)* nctypelen(test.vars[iv].type)) == -1) { error("%s: ncvargetg failed for point %d, variable %s", pname, ie, test.vars[iv].name); nerrs++; } else { if (val_cmp(test.vars[iv].type, nel[ie], hc[ie].vals, tmp.vals) != 0) { error("%s: bad values returned from ncvargetg", pname); nerrs++; errvar(&test, &test.vars[iv]); /* describe var */ } } } Free ((char *) hc[ie].vals); Free ((char *) tmp.vals); } } return nerrs; } libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/error.h0000644000000000000000000000260512421456623014777 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: error.h 3226 1997-11-05 19:41:13Z koziol $ *********************************************************************/ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef HDF #include "hdf.h" #endif #ifdef __cplusplus extern "C" { #endif /* Print error message to stderr, don't exit */ #ifndef NO_STRARG extern void derror(const char *fmt, ...); #else extern void derror(); #endif #ifndef NO_STDARG extern void error PROTO(( const char *fmt, ... )); #else /* VARARGS1 */ extern void error PROTO(( const char *fmt, va_dcl )); #endif /* * Turn off netCDF library handling of errors. Caller must check all error * returns after calling this, until on_errs() is called. */ extern void off_errs PROTO(( void )); /* * Let netCDF library handle subsequent errors. Callers don't need to check * error returns after this. (This is the initial default.) */ extern void on_errs PROTO(( void )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/CMakeTests.cmake0000644000000000000000000000141412421456623016477 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME NC_TEST-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove test.nc test2.nc ) #-- Adding test for nctest ADD_TEST (NAME NC_TEST-nctest COMMAND $) SET_TESTS_PROPERTIES (NC_TEST-nctest PROPERTIES DEPENDS NC_TEST-clearall-objects LABELS ${PROJECT_NAME}) libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/emalloc.h0000644000000000000000000000123112421456623015254 0ustar /********************************************************************* * Copyright 1993, University Corporation for Atmospheric Research * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: emalloc.h 2365 1996-03-26 22:43:35Z georgev $ *********************************************************************/ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif extern void *emalloc PROTO(( int size )); extern void *erealloc PROTO(( void *ptr, int size )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/testcdf.h0000644000000000000000000000332612421456623015303 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: testcdf.h 4997 2007-11-15 18:12:15Z epourmal $ *********************************************************************/ /* * In-memory structure holding netcdf structure for comparing with * on-disk netcdf. Whenever a disk netcdf is updated in the test * package, this structure should be updated at the same time, to keep * them in sync. */ #include #ifdef HDF #include "mfhdf.h" #endif #define ___ 0 /* marker for structure place-holder */ #define BAD_TYPE NC_UNSPECIFIED /* must be distinct from valid types */ #ifdef DELETE_CHUNK void *emalloc(); void *erealloc(); #endif struct cdfdim { /* dimension */ char *name; long size; }; struct cdfvar { /* variable */ char *name; nc_type type; int ndims; int *dims; int natts; }; struct cdfatt { /* attribute */ int var; char *name; nc_type type; int len; void *val; }; #define MAX_TEST_DIMS 32 #define MAX_TEST_VARS 32 #define MAX_TEST_ATTS 32 struct netcdf { int ndims; /* number of dimensions declared for netcdf */ int nvars; /* number of variables declared for netcdf */ int natts; /* number of attributes */ int ngatts; /* number of global attributes */ int xdimid; /* number of the unlimited dimension, if any */ struct cdfdim dims[MAX_TEST_DIMS]; /* dimensions */ struct cdfvar vars[MAX_TEST_VARS]; /* variables */ struct cdfatt atts[MAX_TEST_ATTS]; /* attributes */ }; extern struct netcdf test; /* * in-memory netcdf structure, kept in sync * with disk netcdf */ libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/tests.h0000644000000000000000000000561612421456623015015 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: tests.h 4445 2003-12-10 21:15:54Z epourmal $ *********************************************************************/ #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif extern void test_nccreate PROTO(( char* )); extern void test_ncopen PROTO(( char* )); extern void test_ncredef PROTO(( char* )); extern void test_ncendef PROTO(( char* )); extern void test_ncclose PROTO(( char* )); extern void test_ncinquire PROTO(( char* )); extern void test_ncsync PROTO(( char* )); extern void test_ncabort PROTO(( char* )); extern void test_ncdimdef PROTO(( char* )); extern void test_ncdimid PROTO(( char* )); extern void test_ncdiminq PROTO(( char* )); extern void test_ncdimrename PROTO(( char* )); extern void test_ncvardef PROTO(( char* )); extern void test_ncvarid PROTO(( char* )); extern void test_ncvarinq PROTO(( char* )); extern void test_ncvarput1 PROTO(( char* )); extern void test_ncvarget1 PROTO(( char* )); extern void test_ncvarput PROTO(( char* )); extern void test_ncvarget PROTO(( char* )); extern void test_ncvarputg PROTO(( char* )); extern void test_ncvargetg PROTO(( char* )); extern void test_ncvarget_unlim PROTO(( char* )); extern void test_ncrecinq PROTO(( char* )); extern void test_ncrecput PROTO(( char* )); extern void test_ncrecget PROTO(( char* )); extern void test_ncvarrename PROTO(( char* )); extern void test_ncattput PROTO(( char* )); extern void test_ncattinq PROTO(( char* )); extern void test_ncattget PROTO(( char* )); extern void test_ncattcopy PROTO(( char*, char* )); extern void test_ncattname PROTO(( char* )); extern void test_ncattrename PROTO(( char* )); extern void test_ncattdel PROTO(( char* )); extern void test_nctypelen PROTO(( )); extern int test_varputget PROTO(( int )); extern int test_varputgetg PROTO(( int )); extern int test_slabs PROTO(( int )); #ifdef __cplusplus } #endif libhdf4-4.2.10/HDF_ALT/mfhdf/nctest/cdftests.c0000644000000000000000000005455712421456623015475 0ustar /********************************************************************* * Copyright 1993, UCAR/Unidata * See netcdf/COPYRIGHT file for copying and redistribution conditions. * $Id: cdftests.c 6036 2014-01-20 17:28:01Z acheng $ *********************************************************************/ #include #include #include #include "h4config.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #include "testcdf.h" /* defines in-memory test netcdf structure */ #include "add.h" /* functions to update in-memory netcdf */ #include "error.h" #include "tests.h" #include "alloc.h" #include "emalloc.h" #ifdef HDF #include "hdf.h" #endif #define LEN_OF(array) ((sizeof array) / (sizeof array[0])) /* * Test nccreate * create a netcdf with no data, close it, test that it can be opened * try again with NC_CLOBBER mode, check that no errors occurred * try again with NC_NOCLOBBER mode, check error return * On exit, netcdf files are closed. * Uses: nccreate, ncendef, ncclose, ncopen. */ void test_nccreate(path) char *path; /* name of cdf file to create */ { int nerrs = 0; static char pname[] = "test_nccreate"; int cdfid; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = nccreate(path, NC_CLOBBER)) == -1) { error("%s: nccreate failed to NC_CLOBBER", pname); return; } /* created OK */ if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); nerrs++; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); nerrs++; } if ((cdfid = ncopen(path, NC_NOWRITE)) == -1) { error("%s: ncopen of newly created netcdf failed", pname); return; } /* opened OK */ if (ncclose (cdfid) == -1) { error("%s: second ncclose failed", pname); nerrs++; } /* this call should fail, since we're using NC_NOCLOBBER mode */ if ((cdfid = nccreate(path, NC_NOCLOBBER)) != -1) { error("%s: nccreate failed to honor NC_NOCLOBBER mode", pname); nerrs++; } /* Initialize in-memory netcdf to empty */ add_reset(&test); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncopen * try to open a non-existent netCDF, check error return * open a netCDF with NC_WRITE mode, write something, close it * open a netCDF with NC_NOWRITE mode, write something and check error * try to open a netcdf twice, check whether returned cdf ids different * On exit, netcdf files are closed. * Uses: ncopen, ncredef, ncattput, ncendef, ncclose. */ void test_ncopen(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncopen"; int cdfid0, cdfid1; static char title_val[] = "test netcdf"; static char xpath[] = "tooth-fairy.cdf"; /* must not exist */ static struct cdfatt title = /* attribute */ {NC_GLOBAL, "title", NC_CHAR, LEN_OF (title_val), (void *) title_val}; (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if((cdfid0 = ncopen(xpath, NC_NOWRITE)) != -1) { error("%s: ncopen should fail opening nonexistent file", pname); return; } if((cdfid0 = ncopen(xpath, NC_WRITE)) != -1) { error("%s: ncopen should fail writing nonexistent file", pname); return; } if ((cdfid0 = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed with NC_WRITE mode", pname); return; } /* opened */ if (ncredef(cdfid0) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid0); return; } /* in define mode */ if (ncattput(cdfid0, NC_GLOBAL, "title", NC_CHAR, title.len, title.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid0); return; } add_att(&test, NC_GLOBAL, &title); /* keep in-memory netcdf updated */ if (ncendef (cdfid0) == -1) { error("%s: ncendef failed after ncattput", pname); ncclose(cdfid0); return; } if (ncclose (cdfid0) == -1) { error("%s: ncclose failed in NC_WRITE mode", pname); return; } if ((cdfid0 = ncopen(path, NC_NOWRITE)) == -1) { error("%s: ncopen failed with NC_NOWRITE mode", pname); return; } /* opened */ /* this should fail, since in NC_NOWRITE mode */ if (ncredef(cdfid0) != -1) { error("%s: cdredef should fail after NC_NOWRITE open", pname); ncclose(cdfid0); return; } if ((cdfid1 = ncopen(path, NC_WRITE)) == -1) { error("%s: second ncopen failed", pname); nerrs++; } else { /* second open OK */ if (cdfid0 == cdfid1) { error("%s: ncopen should return new cdfid on second open", pname); nerrs++; } if (ncclose (cdfid1) == -1) { error("%s: ncclose failed to close after second open", pname); nerrs++; } } if (ncclose (cdfid0) == -1) { error("%s: ncclose failed in NC_NOWRITE mode", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncredef * open a netCDF, enter define mode, add dimension, variable, attribute * try ncredef from within define mode, check error * leave define mode and close, releasing netcdf handle * try ncredef with old handle, check error * On exit netcdf files are closed. * Uses: ncopen, ncredef, ncdimdef, ncvardef, ncattput, ncclose */ void test_ncredef(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncredef"; int cdfid; /* netcdf id */ int ii_dim; /* dimension id */ static struct cdfdim ii = /* dimension */ {"ii", 4}; int aa_id; /* variable id */ static struct cdfvar aa = /* variable */ {"aa", NC_LONG, 1, ___, 0}; static char units_val[] = "furlongs"; static struct cdfatt aa_units = /* attribute */ {___, "units", NC_CHAR, LEN_OF(units_val), (void *)units_val}; (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened OK, enter define mode */ if (ncredef(cdfid) == -1) { error("%s: cdredef failed", pname); ncclose(cdfid); return; } /* in define mode OK, add a dimension */ if ((ii_dim = ncdimdef(cdfid, ii.name, ii.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &ii); /* keep in-memory netcdf in sync */ /* dimension added OK, add a variable */ aa.dims = (int *)emalloc(sizeof(int) * aa.ndims); aa.dims[0] = ii_dim; if ((aa_id = ncvardef(cdfid, aa.name, aa.type, aa.ndims, aa.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &aa); /* keep in-memory netcdf in sync */ /* variable added OK, add a variable attribute */ aa_units.var = aa_id; if (ncattput(cdfid, aa_units.var, aa_units.name, aa_units.type, aa_units.len, (void *) aa_units.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, aa_id, &aa_units); /* keep in-memory netcdf in sync */ if (ncredef(cdfid) != -1) { error("%s: cdredef in define mode should have failed", pname); ncclose(cdfid); return; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } if (ncredef(cdfid) != -1) { error("%s: ncredef failed to report bad cdf handle", pname); nerrs++; } Free ((char *)aa.dims); if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncendef * check return from proper cdfendif after define mode * try ncendef when in data mode, check error * try ncendef with bad handle, check error * On exit netcdf files are closed. * Uses: ncopen, ncredef, ncdimdef, ncvardef, ncattput, ncendef, ncclose */ void test_ncendef(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncendef"; int cdfid; /* netcdf id */ int jj_dim, kk_dim; /* dimension ids */ int bb_id; /* variable id */ static struct cdfdim kk = /* dimension */ {"kk", 3}; static struct cdfdim jj = /* dimension */ {"jj", 3}; static struct cdfvar bb = /* variable */ {"bb", NC_LONG, 2, ___, 0}; static float bb_rangev[2] = {0., 100.}; /* attribute vector */ static struct cdfatt bb_range = /* attribute */ {___, "valid_range", NC_FLOAT, LEN_OF(bb_rangev), (void *)bb_rangev}; (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, add dimensions */ if ((jj_dim = ncdimdef(cdfid, jj.name, jj.size)) == -1 || (kk_dim = ncdimdef(cdfid, kk.name, kk.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid); return; } add_dim(&test, &jj); /* keep in-memory netcdf in sync */ add_dim(&test, &kk); /* keep in-memory netcdf in sync */ /* dimensions added OK, add a variable */ bb.dims = (int *) emalloc(sizeof(int) * bb.ndims); bb.dims[0] = kk_dim; bb.dims[1] = jj_dim; if ((bb_id = ncvardef(cdfid, bb.name, bb.type, bb.ndims, bb.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &bb); /* keep in-memory netcdf in sync */ /* variable added OK, add a variable attribute */ if (ncattput(cdfid, bb_id, bb_range.name, bb_range.type, bb_range.len, (void *) bb_range.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, bb_id, &bb_range); /* keep in-memory netcdf in sync */ if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } /* in data mode */ if (ncendef (cdfid) != -1) { /* should fail in data mode */ error("%s: ncendef in data mode should have failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail on a bad handle */ if (ncendef (cdfid) != -1) { error("ncendef failed to report bad netcdf handle"); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncclose * try on open netCDF * try in define mode and data mode * try with bad handle, check error * On exit netcdf files are closed. */ void test_ncclose(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncclose"; int cdfid; /* netcdf id */ (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode */ if (ncclose (cdfid) == -1) { error("%s: ncclose in define mode failed", pname); nerrs++; } if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* in data mode */ if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); nerrs++; } if (ncclose (cdfid) != -1) { /* should fail, since cdfid is a bad handle */ error("%s: ncclose failed to report bad cdf handle ", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncinquire * try in data mode, check returned values * try in define mode, after adding an unlimited dimension, variable * try with bad handle, check error * On exit netcdf files are closed. */ void test_ncinquire(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncinquire"; int cdfid; /* netcdf id */ int ndims; /* number of dimensions */ int nvars; /* number of variables */ int ngatts; /* number of global attributes */ int xdimid; /* id of unlimited dimension */ int rec_dim; /* dimension id */ static struct cdfdim rec = /* dimension */ {"rec", NC_UNLIMITED}; static struct cdfdim dims[] = { /* dimensions */ {"i1", 5},{"i2", 3},{"i3", 7} }; int id, nd = LEN_OF(dims); /* number of dimensions */ int dimids[LEN_OF(dims)]; int cc_id; /* variable id */ static struct cdfvar cc[] = { /* record variables of various sizes */ {"cc", NC_LONG, 1, ___, 0}, {"cd", NC_SHORT, 2, ___, 0}, {"ce", NC_FLOAT, 3, ___, 0} }; int iv; int nv = LEN_OF(cc); /* number of record variables */ static char units_val[] = "moles"; static struct cdfatt cc_units = /* attribute */ {___, "units", NC_CHAR, LEN_OF(units_val), (void *)units_val}; (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened, in data mode */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts, &xdimid) == -1) { error("%s: ncinquire in data mode failed", pname); ncclose(cdfid); return; } /* compare returned with expected values */ if (ndims != test.ndims) { error("%s: ndims returned as %d, expected %d", pname, ndims, test.ndims); nerrs++; } if (nvars != test.nvars) { error("%s: nvars returned as %d, expected %d", pname, nvars, test.nvars); nerrs++; } if (ngatts != test.ngatts) { error("%s: ngatts returned as %d, expected %d", pname, ngatts, test.ngatts); nerrs++; } if (xdimid != test.xdimid) { error("%s: xdimid returned as %d, expected %d", pname, xdimid, test.xdimid); nerrs++; } if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* add dimensions */ for (id = 0; id < nd; id++) { if ((dimids[id] = ncdimdef(cdfid, dims[id].name, dims[id].size)) == -1) { error("%s: ncdimdef failed on normal dimension", pname); ncclose(cdfid); return; } add_dim(&test, &dims[id]); } /* add an unlimited dimension */ if ((rec_dim = ncdimdef(cdfid, rec.name, rec.size)) == -1) { error("%s: ncdimdef failed on NC_UNLIMITED dimension", pname); ncclose(cdfid); return; } add_dim(&test, &rec); /* add some record variables */ for (iv = 0; iv < nv; iv++) { cc[iv].dims = (int *) emalloc(sizeof(int) * cc[iv].ndims); cc[iv].dims[0] = rec_dim; /* first dimension unlimited */ for (id = 1; id < cc[iv].ndims; id++) cc[iv].dims[id] = dimids[id]; if ((cc_id = ncvardef(cdfid, cc[iv].name, cc[iv].type, cc[iv].ndims, cc[iv].dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid); return; } add_var(&test, &cc[iv]); /* add a variable attribute */ if (ncattput(cdfid, cc_id, cc_units.name, cc_units.type, cc_units.len, (void *) cc_units.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } add_att(&test, cc_id, &cc_units); } /* try calling from define mode, compare returned values to expected */ if (ncinquire(cdfid, &ndims, &nvars, &ngatts, &xdimid) == -1) { error("%s: ncinquire in define mode failed", pname); ncclose(cdfid); return; } /* compare returned with expected values */ if (ndims != test.ndims) { error("%s: ndims returned as %d, expected %d", pname, ndims, test.ndims); nerrs++; } if (nvars != test.nvars) { error("%s: nvars returned as %d, expected %d", pname, nvars, test.nvars); nerrs++; } if (ngatts != test.ngatts) { error("%s: ngatts returned as %d, expected %d", pname, ngatts, test.ngatts); nerrs++; } if (xdimid != test.xdimid) { error("%s: xdimid returned as %d, expected %d", pname, xdimid, test.xdimid); nerrs++; } if (ncendef (cdfid) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid); return; } if (ncclose (cdfid) == -1) { error("%s: ncclose failed", pname); return; } /* should fail, since bad handle */ if (ncinquire (cdfid, &ndims, &nvars, &ngatts, &xdimid) != -1) { error("%s: ncinquire failed to report bad netcdf handle ", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncsync * try in define mode, check error * try writing with one handle, reading with another on same netCDF * try with bad handle, check error * On exit netcdf files are closed. */ void test_ncsync(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncsync"; int cdfid0, cdfid1; /* netcdf ids */ int ll_dim; /* dimension id */ static struct cdfdim ll = /* dimension */ {"ll", 3}; int dd_id; /* variable id */ static struct cdfvar dd = /* variable */ {"dd", NC_SHORT, 1, ___, 0}; static short dd_fill_valv[] = {-999}; static struct cdfatt dd_fill_val = /* attribute */ {___, "fill_value", NC_SHORT, LEN_OF(dd_fill_valv), (void *) dd_fill_valv}; (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid0 = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen in NC_WRITE mode failed", pname); return; } /* opened */ if (ncredef(cdfid0) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid0); return; } /* in define mode, add a dimension, variable, and attribute */ if ((ll_dim = ncdimdef(cdfid0, ll.name, ll.size)) == -1) { error("%s: ncdimdef failed", pname); ncclose(cdfid0); return; } add_dim(&test, &ll); dd.dims = (int *) emalloc(sizeof(int) * dd.ndims); dd.dims[0] = ll_dim; if ((dd_id=ncvardef(cdfid0, dd.name, dd.type, dd.ndims, dd.dims)) == -1) { error("%s: ncvardef failed", pname); ncclose(cdfid0); return; } add_var(&test, &dd); if (ncattput(cdfid0, dd_id, dd_fill_val.name, dd_fill_val.type, dd_fill_val.len, (void *) dd_fill_val.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid0); return; } add_att(&test, dd_id, &dd_fill_val); if (ncsync (cdfid0) != -1) { error("%s: ncsync in define mode should fail", pname); nerrs++; } if (ncendef (cdfid0) == -1) { error("%s: ncendef failed", pname); ncclose(cdfid0); return; } /* in data mode */ if (ncsync (cdfid0) == -1) { error("%s: ncsync in data mode failed", pname); nerrs++; } /* put some data into a variable */ { static long dd_start[] = {0}; static long dd_edges[] = {2}; static short dd_vals[] = {1, 2}; short got_vals[2]; if (ncvarput(cdfid0,dd_id,dd_start,dd_edges,(void *)dd_vals) == -1) { error("%s: ncvarput failed", pname); ncclose(cdfid0); return; } add_data(&test,dd_id,dd_start,dd_edges); /* keep test in sync */ if (ncsync (cdfid0) == -1) { error("%s: ncsync after putting data failed", pname); nerrs++; } if ((cdfid1 = ncopen(path, NC_NOWRITE)) == -1) { error("%s: second ncopen failed", pname); nerrs++; } else { if (cdfid0 == cdfid1) { error("%s: second ncopen should return distinct handle", pname); nerrs++; } /* read data just put after a sync, should succeed */ if (ncvarget(cdfid1,dd_id,dd_start,dd_edges,(void *)got_vals) == -1) { error("%s: ncvarget failed", pname); nerrs++; } if (dd_vals[0] != got_vals[0] || dd_vals[1] != got_vals[1]) { error("%s: ncvarget succeeded but data values wrong", pname); } if (ncclose (cdfid1) == -1) { error("%s: ncclose failed", pname); nerrs++; } } } if (ncclose (cdfid0) == -1) { error("%s: ncclose failed", pname); nerrs++; } if (ncsync (cdfid0) != -1) { /* should fail, since cdfid0 is bad handle */ error("%s: ncsync failed to report bad cdf handle ", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } /* * Test ncabort * try in define mode, check that file was deleted * try after writing variable * try with bad handle, check error * On exit netcdf files are closed. */ void test_ncabort(path) char *path; /* name of writable netcdf file to open */ { int nerrs = 0; static char pname[] = "test_ncabort"; static char fpath[] = "ufo.cdf"; static short attv[] = {3}; static struct cdfatt att = /* attribute */ {___, "temp", NC_SHORT, LEN_OF(attv), (void *) attv}; int cdfid; /* netcdf id */ (void) fprintf(stderr, "*** Testing %s ...\t\t", &pname[5]); if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen failed", pname); return; } /* opened */ if (ncredef(cdfid) == -1) { error("%s: ncredef failed", pname); ncclose(cdfid); return; } /* in define mode, add a new global attribute */ if (ncattput(cdfid, NC_GLOBAL, att.name, att.type, att.len, att.val) == -1) { error("%s: ncattput failed", pname); ncclose(cdfid); return; } /* abort in define mode, should restore to state before define mode */ if (ncabort(cdfid) == -1) { error("%s: ncabort in define mode failed", pname); ncclose(cdfid); return; } if ((cdfid = ncopen(path, NC_WRITE)) == -1) { error("%s: ncopen after ncabort failed", pname); return; } /* check that new global attribute was not added */ if (ncattinq(cdfid, NC_GLOBAL, att.name, &att.type, &att.len) != -1) { error("%s: ncabort should have restored state before ncredef", pname); ncclose(cdfid); return; } /* in data mode not being created, should just close */ if (ncabort(cdfid) == -1) { error("%s: ncabort in define mode failed", pname); return; } if ((cdfid = nccreate(fpath, NC_CLOBBER)) == -1) { error("%s: nccreate failed to NC_CLOBBER", pname); return; } /* in define mode being created, should delete */ if (ncabort(cdfid) == -1) { error("%s: ncabort after nccreate failed", pname); return; } /* check with ncopen that file doesn't exist */ if (ncopen(fpath, NC_NOWRITE) != -1) { error("%s: ncabort deleted file, but ncopen found it", pname); return; } if (ncabort(cdfid) != -1) { /* should fail, cdfid is bad handle */ error("%s: ncclose failed to report bad cdf handle ", pname); nerrs++; } if (nerrs > 0) (void) fprintf(stderr,"FAILED! ***\n"); else (void) fprintf(stderr,"ok ***\n"); } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/0000755000000000000000000000000012474643755013464 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/xdrposix.c0000644000000000000000000003632512474643755015521 0ustar /* * XDR implementation on POSIX file interface, with buffering * * Copyright (C) 1992, University Corp for Atmospheric Research * * This set of routines implements a XDR on a POSIX file descriptor. * XDR_ENCODE serializes onto the descriptor, XDR_DECODE de-serializes * from the descriptor. As in stdio, we buffer i/o. This XDR is most * useful when the descriptor actually represents a file. It * corrects some performance problems with xdrstdio_getpos() and * xdrstdio_getpos() in the xdr_stdio implementation. * * -glenn */ /* $Id: xdrposix.c 6043 2014-01-21 21:09:03Z acheng $ */ /* * 32-bit integer on the host architecture (on the CRAY, this is actually 64 * bits; however, a pointer to this type is still passed to the XDR functions * x_getlong() and x_putlong(), so, on that platform, it doesn't matter if * the following isn't 32-bits): */ #ifndef NETLONG # define NETLONG long #endif typedef NETLONG netlong; #undef NETLONG # if defined MSDOS || defined WINNT || defined _WIN32 # include # else # include # endif # include #include #include #include "local_nc.h" /* prototypes for NCadvis, nc_error */ /* also obtains , , & * */ /*EIP #include "netcdf.h" */ #include "mfhdf.h" #if !(defined DOS_FS) typedef u_int ncpos_t ; /* all unicies */ #else typedef off_t ncpos_t ; #endif typedef struct { int fd; /* the file descriptor */ int mode; /* file access mode, O_RDONLY, etc */ int isdirty ; off_t page ; int nread ; /* number of bytes succesfully read */ int nwrote ; /* number of bytes last write */ int cnt ; /* number of valid bytes in buffer */ unsigned char *ptr; /* next byte */ #ifdef DOS_FS #define BIOBUFSIZ 512 #else #define BIOBUFSIZ 8192 #endif unsigned char base[BIOBUFSIZ]; /* the data buffer */ } biobuf; static void free_biobuf(abuf) biobuf *abuf; { if(abuf != NULL) HDfree((VOIDP)abuf) ; } static biobuf * new_biobuf(fd, fmode) int fd; int fmode; { biobuf *biop ; biop = (biobuf *)HDmalloc(sizeof(biobuf)) ; if(biop == NULL) return NULL ; biop->fd = fd ; biop->mode = fmode ; biop->isdirty = 0 ; biop->page = 0 ; biop->nread = 0 ; biop->nwrote = 0 ; biop->cnt = 0 ; memset(biop->base, 0, ((size_t)(BIOBUFSIZ))) ; biop->ptr = biop->base ; return biop ; } static int rdbuf(biop) biobuf *biop; { memset(biop->base, 0, ((size_t)(BIOBUFSIZ))) ; if(biop->mode & O_WRONLY) { biop->cnt = 0 ; } else { if(biop->nwrote != BIOBUFSIZ) { /* last write wasn't a full block, adjust position ahead */ if(lseek(biop->fd, biop->page * BIOBUFSIZ, SEEK_SET) == ((off_t)-1)) return -1 ; } biop->nread = biop->cnt = read(biop->fd, (VOIDP)biop->base, BIOBUFSIZ) ; } biop->ptr = biop->base ; return biop->cnt ; } static int wrbuf(biop) biobuf *biop; { if(!((biop->mode & O_WRONLY) || (biop->mode & O_RDWR)) || biop->cnt == 0) { biop->nwrote = 0 ; } else { if(biop->nread != 0) { /* if we read something, we have to adjust position back */ if(lseek(biop->fd, biop->page * BIOBUFSIZ, SEEK_SET) == ((off_t)-1)) return -1 ; } biop->nwrote = write(biop->fd, (VOIDP)biop->base, biop->cnt) ; } biop->isdirty = 0 ; return biop->nwrote ; } static int nextbuf(biop) biobuf *biop; { if(biop->isdirty) { if(wrbuf(biop) < 0) return -1 ; } biop->page++ ; /* read it in */ if(rdbuf(biop) < 0 ) return -1 ; return biop->cnt ; } #define CNT(p) ((p)->ptr - (p)->base) /* # of unread bytes in buffer */ #define REM(p) ((p)->cnt - CNT(p)) /* available space for write in buffer */ #define BREM(p) (BIOBUFSIZ - CNT(p)) static int bioread(biop, ptr, nbytes) biobuf *biop; unsigned char *ptr; int nbytes; { int ngot = 0 ; size_t rem ; if(nbytes == 0) return 0 ; while(nbytes > (rem = REM(biop))) { if(rem > 0) { (void) memcpy(ptr, biop->ptr, rem) ; ptr += rem ; nbytes -= rem ; ngot += rem ; } if(nextbuf(biop) <= 0) return ngot ; } /* we know nbytes <= REM at this point */ (void) memcpy(ptr, biop->ptr, (size_t)nbytes) ; biop->ptr += nbytes ; ngot += nbytes ; return ngot ; } static int biowrite(biop, ptr, nbytes) biobuf *biop; unsigned char *ptr; int nbytes; { size_t rem ; int nwrote = 0 ; int cnt ; if(!((biop->mode & O_WRONLY) || (biop->mode & O_RDWR))) return -1 ; while(nbytes > (rem = BREM(biop))) { if(rem > 0) { (void) memcpy(biop->ptr, ptr, rem) ; biop->isdirty = !0 ; biop->cnt = BIOBUFSIZ ; ptr += rem ; nbytes -= rem ; nwrote += rem ; } if(nextbuf(biop) < 0) return nwrote ; } /* we know nbytes <= BREM at this point */ (void) memcpy(biop->ptr, ptr, (size_t)nbytes) ; biop->isdirty = !0 ; biop->ptr += nbytes ; if((cnt = CNT(biop)) > biop->cnt) biop->cnt = cnt ; nwrote += nbytes ; return nwrote ; } static bool_t xdrposix_getlong(); static bool_t xdrposix_putlong(); #if (_MIPS_SZLONG == 64) || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ static bool_t xdrposix_getint(); static bool_t xdrposix_putint(); #endif static bool_t xdrposix_getbytes(); static bool_t xdrposix_putbytes(); static ncpos_t xdrposix_getpos(); static bool_t xdrposix_setpos(); #if (_MIPS_SZLONG == 64) static long * xdrposix_inline(); #else #if (defined __sun && defined _LP64) static rpc_inline_t * xdrposix_inline(); #else #if ((defined __x86_64__ ) && !(defined __sun && defined _LP64)) || defined __powerpc64__ static int32_t * xdrposix_inline(); #else #if (defined __alpha ) static int * xdrposix_inline(); #else static netlong * xdrposix_inline(); #endif #endif #endif #endif static void xdrposix_destroy(); /* * Ops vector for posix type XDR */ static struct xdr_ops xdrposix_ops = { xdrposix_getlong, /* deserialize a 32-bit int */ xdrposix_putlong, /* serialize a 32-bit int */ #if (_MIPS_SZLONG == 64) /* IRIX64 has 64 bits long and 32 bits int. */ /* It defines two extra entries for get/put int. */ xdrposix_getint, /* deserialize a 32-bit int */ xdrposix_putint, /* serialize a 32-bit int */ #endif xdrposix_getbytes, /* deserialize counted bytes */ xdrposix_putbytes, /* serialize counted bytes */ xdrposix_getpos, /* get offset in the stream */ xdrposix_setpos, /* set offset in the stream */ xdrposix_inline, /* prime stream for inline macros */ #if (defined __sun && defined _LP64) || defined __x86_64__ || defined __powerpc64__ xdrposix_destroy, /* destroy stream */ #if !(defined __x86_64__) && !(defined __powerpc64__) || (defined __sun && defined _LP64) /* i.e. we are on SUN/Intel in 64-bit mode */ NULL, /* no xdr_control function defined */ #endif /* Solaris 64-bit (arch=v9 and arch=amd64) has 64 bits long and 32 bits int. */ /* It defines the two extra entries for get/put int. here */ xdrposix_getint, /* deserialize a 32-bit int */ xdrposix_putint /* serialize a 32-bit int */ #else #ifdef AIX5L64 xdrposix_destroy, NULL, NULL, xdrposix_getint, xdrposix_putint #else /*AIX5L64 */ xdrposix_destroy /* destroy stream */ #endif /*AIX5L64 */ #endif }; /* * Fake an XDR initialization for HDF files */ void hdf_xdrfile_create(xdrs, ncop) XDR *xdrs; int ncop; { biobuf *biop = new_biobuf(-1, 0) ; if(ncop & NC_CREAT) xdrs->x_op = XDR_ENCODE; else xdrs->x_op = XDR_DECODE; xdrs->x_ops = &xdrposix_ops; xdrs->x_private = (caddr_t) biop; } /* hdf_xdrfile_create */ /* * Initialize a posix xdr stream. * Sets the xdr stream handle xdrs for use on the file descriptor fd. * Operation flag is set to op. */ static int xdrposix_create(xdrs, fd, fmode, op) XDR *xdrs; int fd; int fmode; enum xdr_op op; { biobuf *biop = new_biobuf(fd, fmode) ; #ifdef XDRDEBUG fprintf(stderr,"xdrposix_create(): xdrs=%p, fd=%d, fmode=%d, op=%d\n",xdrs,fd,fmode,(int)op); fprintf(stderr,"xdrposix_create(): after new_biobuf(), biop=%p\n",biop); #endif xdrs->x_op = op; xdrs->x_ops = &xdrposix_ops; xdrs->x_private = (caddr_t) biop ; /* unused */ xdrs->x_handy = 0; xdrs->x_base = 0; if(biop == NULL) return -1 ; /* if write only, or just created (empty), done */ if((biop->mode & O_WRONLY) || (biop->mode & O_CREAT)) return 0 ; #ifdef XDRDEBUG fprintf(stderr,"xdrposix_create(): before rdbuf()\n"); #endif /* else, read the first bufferful */ return( rdbuf(biop) ) ; } /* * "sync" a posix xdr stream. */ static int xdrposix_sync(xdrs) XDR *xdrs; { biobuf *biop = (biobuf *)xdrs->x_private ; if(biop->isdirty) { /* flush */ if(wrbuf(biop) < 0) return -1 ; } biop->nwrote = 0 ; /* force seek in rdbuf */ /* read it in */ if(rdbuf(biop) < 0 ) return -1 ; return biop->cnt ; } /* * Destroy a posix xdr stream. * Cleans up the xdr stream handle xdrs previously set up by xdrposix_create. */ static void xdrposix_destroy(xdrs) XDR *xdrs; { /* flush */ biobuf *biop = (biobuf *)xdrs->x_private ; if(biop->isdirty) { (void) wrbuf(biop) ; } if(biop->fd != -1) (void) close(biop->fd) ; free_biobuf(biop); } static bool_t xdrposix_getlong(xdrs, lp) XDR *xdrs; #if (defined __alpha) int *lp; #else long *lp; #endif { unsigned char *up = (unsigned char *)lp ; #if (defined AIX5L64 || (defined __powerpc64__ && !defined __LITTLE_ENDIAN__) || defined __s390x__ || (defined __hpux && __LP64__)) *lp = 0 ; up += (sizeof(long) - 4) ; #endif if(bioread((biobuf *)xdrs->x_private, up, 4) < 4) return (FALSE); #ifdef SWAP *lp = ntohl(*lp); #endif return (TRUE); } static bool_t xdrposix_putlong(xdrs, lp) XDR *xdrs; #if (defined __alpha) int *lp; #else long *lp; #endif { unsigned char *up = (unsigned char *)lp ; #ifdef SWAP netlong mycopy = htonl(*lp); up = (unsigned char *)&mycopy; #endif #if (defined AIX5L64 || (defined __powerpc64__ && !defined __LITTLE_ENDIAN__) || defined __s390x__ || (defined __hpux && __LP64__)) up += (sizeof(long) - 4) ; #endif if (biowrite((biobuf *)xdrs->x_private, up, 4) < 4) return (FALSE); return (TRUE); } static bool_t xdrposix_getbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; #if (defined __alpha) || (defined __hpux && defined __ia64) int len; #else u_int len; #endif { if ((len != 0) && (bioread((biobuf *)xdrs->x_private, (unsigned char *)addr, (int)len) != len)) return (FALSE); return (TRUE); } static bool_t xdrposix_putbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; #if (defined __alpha) || (defined __hpux && defined __ia64) int len; #else u_int len; #endif { if ((len != 0) && (biowrite((biobuf *)xdrs->x_private, (unsigned char *)addr, (int)len) != len)) return (FALSE); return (TRUE); } static ncpos_t xdrposix_getpos(xdrs) XDR *xdrs; { biobuf *biop = (biobuf *)xdrs->x_private ; return (BIOBUFSIZ * biop->page + CNT(biop)); } static bool_t xdrposix_setpos(xdrs, pos) XDR *xdrs; ncpos_t pos; { biobuf *biop = (biobuf *)xdrs->x_private ; off_t page ; int index ; int nread ; page = pos / BIOBUFSIZ ; index = pos % BIOBUFSIZ ; if(page != biop->page) { if(biop->isdirty) { if( wrbuf(biop) < 0) return FALSE ; } if(page != biop->page +1) biop->nwrote = 0 ; /* force seek in rdbuf */ biop->page = page ; nread = rdbuf(biop) ; if(nread < 0 || ((biop->mode & O_RDONLY) && nread < index)) return FALSE ; } biop->ptr = biop->base + index ; return TRUE ; } /*ARGSUSED*/ #if (_MIPS_SZLONG == 64) static long * #else #if (defined __sun && defined _LP64) static rpc_inline_t * #else #if (defined __alpha) static int* #else #if ((defined __x86_64__) && !(defined __sun && defined _LP64)) || defined __powerpc64__ static int32_t * #else static netlong * #endif #endif #endif #endif xdrposix_inline(xdrs, len) XDR *xdrs; #if (defined __alpha) || (defined __hpux && defined __ia64) int #else u_int #endif len; { /* * Must do some work to implement this: must insure * enough data in the underlying posix buffer, * that the buffer is aligned so that we can indirect through a * netlong *, and stuff this pointer in xdrs->x_buf. */ return (NULL); } #if (_MIPS_SZLONG == 64) || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ static bool_t xdrposix_getint(xdrs, lp) XDR *xdrs; int *lp; { unsigned char *up = (unsigned char *)lp ; if(bioread((biobuf *)xdrs->x_private, up, 4) < 4) return (FALSE); #ifdef SWAP *lp = ntohl(*lp); #endif return (TRUE); } static bool_t xdrposix_putint(xdrs, lp) XDR *xdrs; int *lp; { unsigned char *up = (unsigned char *)lp ; #ifdef SWAP netlong mycopy = htonl(*lp); up = (unsigned char *)&mycopy; #endif if (biowrite((biobuf *)xdrs->x_private, up, 4) < 4) return (FALSE); return (TRUE); } #endif /* end of xdrposix_put(get)int */ int NCxdrfile_sync(xdrs) XDR *xdrs ; { return xdrposix_sync(xdrs) ; } int NCxdrfile_create(xdrs, path, ncmode) XDR *xdrs ; const char *path ; int ncmode ; { int fmode ; int fd ; enum xdr_op op ; #ifdef XDRDEBUG fprintf(stderr,"NCxdrfile_create(): XDR=%p, path=%s, ncmode=%d\n",xdrs,path,ncmode); #endif switch(ncmode & 0x0f) { case NC_NOCLOBBER : fmode = O_RDWR | O_CREAT | O_EXCL ; break ; case NC_CLOBBER : fmode = O_RDWR | O_CREAT | O_TRUNC ; break ; case NC_WRITE : fmode = O_RDWR ; break ; case NC_NOWRITE : fmode = O_RDONLY ; break ; default: NCadvise(NC_EINVAL, "Bad flag %0x", ncmode & 0x0f) ; return(-1) ; } #ifdef DOS_FS /* * set default mode to binary to suppress the expansion of * 0x0f into CRLF */ if(_fmode != O_BINARY) _fmode = O_BINARY ; #endif fd = open(path, fmode, 0666) ; #ifdef XDRDEBUG fprintf(stderr,"NCxdrfile_create(): fmode=%d, fd=%d\n",fmode,fd); #endif if( fd == -1 ) { nc_serror("filename \"%s\"", path) ; return(-1) ; } /* else */ if( ncmode & NC_CREAT ) { op = XDR_ENCODE ; } else { op = XDR_DECODE ; } #ifdef XDRDEBUG fprintf(stderr,"NCxdrfile_create(): before xdrposix_create()\n"); #endif if(xdrposix_create(xdrs, fd, fmode, op) < 0) return -1 ; /* else */ #ifdef XDRDEBUG fprintf(stderr,"NCxdrfile_create(): after xdrposix_create()\n"); #endif return fd ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/netcdf.h.in0000644000000000000000000003643212474643754015514 0ustar /* Generated automatically from netcdf.h.in by configure. */ /* * Copyright 1993, University Corporation for Atmospheric Research * * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose without fee is hereby granted, provided * that the above copyright notice appear in all copies, that both that * copyright notice and this permission notice appear in supporting * documentation, and that the name of UCAR/Unidata not be used in * advertising or publicity pertaining to distribution of the software * without specific, written prior permission. UCAR makes no * representations about the suitability of this software for any purpose. * It is provided "as is" without express or implied warranty. It is * provided with no support and without obligation on the part of UCAR * Unidata, to assist in its use, correction, modification, or enhancement. * */ /* "$Id: netcdf.h.in 6036 2014-01-20 17:28:01Z acheng $" */ #ifndef _NETCDF_ #define _NETCDF_ #include "H4api_adpt.h" /* * The definitions ncvoid, USE_ENUM, and MAX_NC_OPEN, may need to be set * properly for your installation. */ /* * Argument type in user functions (deprecated, backward compatibility) */ #ifndef UD_NO_VOID #define ncvoid void #else /* system doesn't have void type */ #define ncvoid char #endif /* * If xdr_enum works properly on your system, you can define * USE_ENUM so that nc_type is an enum. * Otherwise, delete this definition so that the nc_type is * an int and the valid values are #defined. */ #ifndef __APPLE__ /* xdr_enum does not work properly for Mac Lion using the Apple GCC compiler i686-apple-darwin11-llvm-gcc-4.2 (GCC) 4.2.1 (Based on Apple Inc. build 5658) (LLVM build 2336.1.00) */ /* Do not use it for all Macs for now. See ticket HDFFR-1318. */ /* So define USE_ENUM only if this is not an APPLE. */ #define USE_ENUM #endif /* * The following macro is provided for backward compatibility only. If you * are a new user of netCDF, then you may safely ignore it. If, however, * you have an existing archive of netCDF files that use default * floating-point fill values, then you should know that the definition of * the default floating-point fill values changed with version 2.3 of the * netCDF package. Prior to this release, the default floating-point fill * values were not very portable: their correct behavior depended not only * upon the particular platform, but also upon the compilation * environment. This led to the definition of new, default floating-point * fill values that are portable across all platforms and compilation * environments. If you wish, however, to obtain the old, non-portable * floating-point fill values, then the following macro should have a true * value PRIOR TO BUILDING THE netCDF LIBRARY. * * Implementation details are contained in the section below on fill values. */ #define NC_OLD_FILLVALUES 0 /* * Fill values * These values are stuffed into newly allocated space as appropriate. * The hope is that one might use these to notice that a particular datum * has not been set. */ #define FILL_BYTE ((char)-127) /* Largest Negative value */ #define FILL_CHAR ((char)0) #define FILL_SHORT ((short)-32767) #define FILL_LONG ((long)-2147483647) #if !NC_OLD_FILLVALUES # define FILL_FLOAT 9.9692099683868690e+36 /* near 15 * 2^119 */ # define FILL_DOUBLE 9.9692099683868690e+36 #else /* NC_OLD_FILLVALUES below */ /* * This section is provided for backward compatibility only. Using * XDR infinities for floating-point fill values has caused more problems * than it has solved. We encourage you to define your own data-specific * fill values rather than use default ones (see `_FillValue' below). * If, however, you *must* use default fill values, then you should use * the above fill values rather than the ones in this section. */ /* * XDR_F_INFINITY is a float value whose EXTERNAL (xdr) * represention is ieee floating infinity. * XDR_D_INFINITY is a double value whose EXTERNAL (xdr) * represention is ieee double floating point infinity. * These are used as default fill values below. * * This section shows three techniques for setting these: * Direct assignment (vax, cray) - works for non IEEE machines * Doesn't work when IEEE machines don't allow * float or double constants whose values are infinity. * Use of a union (preferred portable method) - should work on * any ANSI compiler with IEEE floating point representations, * modulo byte order and sizeof() considerations. * Use of pointer puns - may work with many older compilers * which don't allow intialization of unions. * Often doesn't work with compilers which have strict * alignment rules. */ /* Direct assignment. All cases should be mutually exclusive */ #ifdef notdef /* you might want to try these, on an IEEE machine */ #define XDR_D_INFINITY 1.797693134862315900e+308 #define XDR_F_INFINITY 3.40282357e+38 #endif #ifdef __STDC__ /* Use of a union, assumes IEEE representation and 1 byte unsigned char */ #ifndef XDR_D_INFINITY #define USE_D_UNION union xdr_d_union {unsigned char bb[8]; double dd;} ; extern union xdr_d_union xdr_d_infs ; /* instantiated in array.c */ #define XDR_D_INFINITY (xdr_d_infs.dd) #endif /* !XDR_D_INFINITY */ #ifndef XDR_F_INFINITY #define USE_F_UNION union xdr_f_union {unsigned char bb[4]; float ff;} ; extern union xdr_f_union xdr_f_infs ; /* instantiated in array.c */ #define XDR_F_INFINITY (xdr_f_infs.ff) #endif /* !XDR_F_INFINITY */ #else /* __STDC__ */ /* Use of a pointer pun, assumes IEEE representation, 4 byte long */ #ifndef XDR_D_INFINITY #define USE_D_LONG_PUN extern long xdr_d_infinity[] ; /* instantiated in array.c */ #define XDR_D_INFINITY *(double *)xdr_d_infinity #endif /* !XDR_D_INFINITY */ #ifndef XDR_F_INFINITY #define USE_F_LONG_PUN extern long xdr_f_infinity ; /* instantiated in array.c */ #define XDR_F_INFINITY *((float *)&xdr_f_infinity) #endif /* !XDR_F_INFINITY */ #endif /* __STDC__ */ /* End of INFINITY section */ #define FILL_FLOAT XDR_F_INFINITY /* IEEE Infinity */ #define FILL_DOUBLE XDR_D_INFINITY #endif /* NC_OLD_FILLVALUES above */ /* * masks for the struct NC flags field; passed in as 'mode' arg to * nccreate and ncopen. * */ #define NC_RDWR 1 /* read/write, 0 => readonly */ #define NC_CREAT 2 /* in create phase, cleared by ncendef */ #define NC_EXCL 4 /* on create, don't destroy existing file */ #define NC_INDEF 8 /* in define mode, cleared by ncendef */ #define NC_NSYNC 0x10 /* synchronise numrecs on change */ #define NC_HSYNC 0x20 /* synchronise whole header on change */ #define NC_NDIRTY 0x40 /* numrecs has changed */ #define NC_HDIRTY 0x80 /* header info has changed */ #define NC_NOFILL 0x100 /* Don't fill vars on endef and increase of record */ #define NC_LINK 0x8000 /* isa link */ #define NC_FILL 0 /* argument to ncsetfill to clear NC_NOFILL */ /* * 'mode' arguments for nccreate and ncopen */ #define NC_NOWRITE 0 #define NC_WRITE NC_RDWR #define NC_CLOBBER (NC_INDEF | NC_CREAT | NC_RDWR) #define NC_NOCLOBBER (NC_INDEF | NC_EXCL | NC_CREAT | NC_RDWR) /* * 'size' argument to ncdimdef for an unlimited dimension */ #define NC_UNLIMITED 0L /* * attribute id to put/get a global attribute */ #define NC_GLOBAL -1 #ifndef HDF /* * This can be as large as the maximum number of stdio streams * you can have open on your system. */ #define MAX_NC_OPEN 32 /* * These maximums are enforced by the interface, to facilitate writing * applications and utilities. However, nothing is statically allocated to * these sizes internally. */ #define MAX_NC_DIMS 5000 /* max dimensions per file */ #define MAX_NC_ATTRS 3000 /* max global or per variable attributes */ #define MAX_NC_VARS 5000 /* max variables per file */ #define MAX_NC_NAME 256 /* max length of a name */ #define MAX_VAR_DIMS 32 /* max per variable dimensions */ /* * Added feature. * If you wish a variable to use a different value than the above * defaults, create an attribute with the same type as the variable * and the following reserved name. The value you give the attribute * will be used as the fill value for that variable. */ #define _FillValue "_FillValue" #else /* HDF */ #include "hlimits.h" /* Hard coded constants for HDF library */ #endif /* HDF */ #ifdef USE_ENUM /* * The netcdf data types */ typedef enum { NC_UNSPECIFIED, /* private */ NC_BYTE, NC_CHAR, NC_SHORT, NC_LONG, NC_FLOAT, NC_DOUBLE, /* private */ NC_BITFIELD, NC_STRING, NC_IARRAY, NC_DIMENSION, NC_VARIABLE, NC_ATTRIBUTE } nc_type ; #else typedef int nc_type ; #define NC_UNSPECIFIED 0 /* private */ #define NC_BYTE 1 #define NC_CHAR 2 #define NC_SHORT 3 #define NC_LONG 4 #define NC_FLOAT 5 #define NC_DOUBLE 6 /* private */ #define NC_BITFIELD 7 #define NC_STRING 8 #define NC_IARRAY 9 #define NC_DIMENSION 10 #define NC_VARIABLE 11 #define NC_ATTRIBUTE 12 #endif /* * C data types corresponding to netCDF data types: */ /* Don't use these or the C++ interface gets confused typedef char ncchar; typedef char ncbyte; typedef short ncshort; typedef float ncfloat; typedef double ncdouble; */ /* * Variables/attributes of type NC_LONG should use the C type 'nclong' */ #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ || (defined __sparc__ && defined __arch64__) || defined __s390x__ || defined __aarch64__ /* * LP64 (also known as 4/8/8) denotes long and pointer as 64 bit types. * http://www.unix.org/version2/whatsnew/lp64_wp.html */ typedef int nclong; #else typedef long nclong; /* default, compatible type */ #endif /* * Global netcdf error status variable * Initialized in error.c */ #define NC_NOERR 0 /* No Error */ #define NC_EBADID 1 /* Not a netcdf id */ #define NC_ENFILE 2 /* Too many netcdfs open */ #define NC_EEXIST 3 /* netcdf file exists && NC_NOCLOBBER */ #define NC_EINVAL 4 /* Invalid Argument */ #define NC_EPERM 5 /* Write to read only */ #define NC_ENOTINDEFINE 6 /* Operation not allowed in data mode */ #define NC_EINDEFINE 7 /* Operation not allowed in define mode */ #define NC_EINVALCOORDS 8 /* Coordinates out of Domain */ #define NC_EMAXDIMS 9 /* MAX_NC_DIMS exceeded */ #define NC_ENAMEINUSE 10 /* String match to name in use */ #define NC_ENOTATT 11 /* Attribute not found */ #define NC_EMAXATTS 12 /* MAX_NC_ATTRS exceeded */ #define NC_EBADTYPE 13 /* Not a netcdf data type */ #define NC_EBADDIM 14 /* Invalid dimension id */ #define NC_EUNLIMPOS 15 /* NC_UNLIMITED in the wrong index */ #define NC_EMAXVARS 16 /* MAX_NC_VARS exceeded */ #define NC_ENOTVAR 17 /* Variable not found */ #define NC_EGLOBAL 18 /* Action prohibited on NC_GLOBAL varid */ #define NC_ENOTNC 19 /* Not a netcdf file */ #define NC_ESTS 20 /* In Fortran, string too short */ #define NC_EMAXNAME 21 /* MAX_NC_NAME exceeded */ #define NC_ENTOOL NC_EMAXNAME /* Backward compatibility */ #define NC_EUNLIMIT 22 /* NC_UNLIMITED size already in use */ #define NC_EXDR 32 /* */ #define NC_SYSERR -1 #include "hdf2netcdf.h" HDFLIBAPI int ncerr ; /* * Global options variable. Used to determine behavior of error handler. * Initialized in lerror.c */ #define NC_FATAL 1 #define NC_VERBOSE 2 HDFLIBAPI int ncopts ; /* default is (NC_FATAL | NC_VERBOSE) */ #ifndef HAVE_PROTOTYPES # if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus) || defined(c_plusplus) # define HAVE_PROTOTYPES # endif #endif #undef PROTO #ifdef HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif #ifdef __cplusplus extern "C" { #endif HDFLIBAPI int nccreate PROTO(( const char* path, int cmode )); HDFLIBAPI int ncopen PROTO(( const char* path, int mode )); HDFLIBAPI int ncredef PROTO(( int cdfid )); HDFLIBAPI int ncendef PROTO(( int cdfid )); HDFLIBAPI int ncclose PROTO(( int cdfid )); HDFLIBAPI int ncinquire PROTO(( int cdfid, int* ndims, int* nvars, int* natts, int* recdim )); HDFLIBAPI int ncsync PROTO(( int cdfid )); HDFLIBAPI int ncabort PROTO(( int cdfid )); HDFLIBAPI int ncnobuf PROTO(( int cdfid )); HDFLIBAPI int ncdimdef PROTO(( int cdfid, const char* name, long length )); HDFLIBAPI int ncdimid PROTO(( int cdfid, const char* name )); HDFLIBAPI int ncdiminq PROTO(( int cdfid, int dimid, char* name, long* length )); HDFLIBAPI int ncdimrename PROTO(( int cdfid, int dimid, const char* name )); HDFLIBAPI int ncvardef PROTO(( int cdfid, const char* name, nc_type datatype, int ndims, const int* dim )); HDFLIBAPI int ncvarid PROTO(( int cdfid, const char* name )); HDFLIBAPI int ncvarinq PROTO(( int cdfid, int varid, char* name, nc_type* datatype, int* ndims, int* dim, int* natts )); HDFLIBAPI int ncvarput1 PROTO(( int cdfid, int varid, const long* coords, const void* value )); HDFLIBAPI int ncvarget1 PROTO(( int cdfid, int varid, const long* coords, void* value )); HDFLIBAPI int ncvarput PROTO(( int cdfid, int varid, const long* start, const long* count, void* value )); HDFLIBAPI int ncvarget PROTO(( int cdfid, int varid, const long* start, const long* count, void* value )); HDFLIBAPI int ncvarputs PROTO(( int cdfid, int varid, const long* start, const long* count, const long* stride, void* values )); HDFLIBAPI int ncvargets PROTO(( int cdfid, int varid, const long* start, const long* count, const long* stride, void* values )); HDFLIBAPI int ncvarputg PROTO(( int cdfid, int varid, const long* start, const long* count, const long* stride, const long* imap, void* values )); HDFLIBAPI int ncvargetg PROTO(( int cdfid, int varid, const long* start, const long* count, const long* stride, const long* imap, void* values )); HDFLIBAPI int ncvarrename PROTO(( int cdfid, int varid, const char* name )); HDFLIBAPI int ncattput PROTO(( int cdfid, int varid, const char* name, nc_type datatype, int len, const void* value )); HDFLIBAPI int ncattinq PROTO(( int cdfid, int varid, const char* name, nc_type* datatype, int* len )); HDFLIBAPI int ncattget PROTO(( int cdfid, int varid, const char* name, void* value )); HDFLIBAPI int ncattcopy PROTO(( int incdf, int invar, const char* name, int outcdf, int outvar )); HDFLIBAPI int ncattname PROTO(( int cdfid, int varid, int attnum, char* name )); HDFLIBAPI int ncattrename PROTO(( int cdfid, int varid, const char* name, const char* newname )); HDFLIBAPI int ncattdel PROTO(( int cdfid, int varid, const char* name )); HDFLIBAPI int nctypelen PROTO(( nc_type datatype )); HDFLIBAPI int ncsetfill PROTO(( int cdfid, int fillmode )); HDFLIBAPI int ncrecinq PROTO(( int cdfid, int* nrecvars, int* recvarids, long* recsizes )); HDFLIBAPI int ncrecget PROTO(( int cdfid, long recnum, void** datap )); HDFLIBAPI int ncrecput PROTO(( int cdfid, long recnum, void* * datap )); #ifdef __cplusplus } #endif #endif /* _NETCDF_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfprivate.h0000644000000000000000000000421412421456623015617 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /****************************************************************************** file - mfprivate.h This file contains prototypes of private functions that are implemented in mfsd.c. Some of them are used by new functions in mfdatainfo.c. The new file mfdatainfo.c keeps raw-data-information related functions separately from the rest of the API. These functions were introduced by the hmap project. Aug 8, 2010 -BMR ******************************************************************************/ /* Get the dimension record */ NC_dim * SDIget_dim (NC *handle, int32 id); /* Get the handle from this object */ NC * SDIhandle_from_id (int32 id, intn typ); /* Get the variable record */ NC_var *SDIget_var (NC *handle, int32 sdsid); /* Put an attribute in an attribute list */ intn SDIputattr (NC_array **ap, const char *name, int32 nt, intn count, const void * data); /* Get index of coordinate variable */ int32 SDIgetcoordvar (NC *handle, NC_dim *dim, int32 id, int32 nt); /* Free a variables AID */ int32 SDIfreevarAID (NC * handle, int32 index); /* Get the attribute list */ intn SDIapfromid (int32 id, NC ** handlep, NC_array *** app); /* Check permission on the file */ int SDI_can_clobber (const char *name); libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/CMakeLists.txt0000644000000000000000000001001212421456623016202 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_LIBSRC C CXX) #----------------------------------------------------------------------------- # Generate the netcdf.h file containing user settings needed by compilation #----------------------------------------------------------------------------- IF (WIN32 AND NOT CYGWIN) SET (H4_WINDOWS_INCLUDE_FILE "#include ") SET (NETCDF_EXTERN HDFLIBAPI) ELSE (WIN32 AND NOT CYGWIN) SET (NETCDF_EXTERN extern) ENDIF (WIN32 AND NOT CYGWIN) SET (NC_OLD_FILLVALUES 0) SET (HDF4_MFHDF_LIBSRC_CSRCS ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/array.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/attr.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/cdf.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/dim.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/file.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/hdfsds.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/iarray.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/error.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/globdef.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/mfdatainfo.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/mfsd.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/nssdc.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/putget.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/putgetg.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/sharray.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/string.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/var.c ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/xdrposix.c ) SET (HDF4_MFHDF_LIBSRC_CHDRS ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/alloc.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/error.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/local_nc.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/mfhdf.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/mfhdfi.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/mfdatainfo.h ${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/hdf2netcdf.h ) IF (HDF4_ENABLE_NETCDF) CONFIGURE_FILE (${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/netcdf.h.in ${HDF4_BINARY_DIR}/netcdf.h) SET (HDF4_MFHDF_LIBSRC_XCHDRS ${HDF4_BINARY_DIR}/netcdf.h) ELSE(HDF4_ENABLE_NETCDF) CONFIGURE_FILE (${HDF4_MFHDF_LIBSRC_SOURCE_DIR}/netcdf.h.in ${HDF4_BINARY_DIR}/hdf4_netcdf.h) SET (HDF4_MFHDF_LIBSRC_XCHDRS ${HDF4_BINARY_DIR}/hdf4_netcdf.h) ENDIF (HDF4_ENABLE_NETCDF) IF (NOT HDF4_BUILD_XDR_LIB) INCLUDE_DIRECTORIES (/usr/include/rpc) ENDIF (NOT HDF4_BUILD_XDR_LIB) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) INCLUDE_DIRECTORIES (${HDF4_MFHDFSOURCE_DIR}) ADD_DEFINITIONS (-DHDF) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS -DSWAP) ENDIF (WIN32 AND NOT CYGWIN) ADD_LIBRARY (${HDF4_MF_LIB_TARGET} ${LIB_TYPE} ${HDF4_MFHDF_LIBSRC_CSRCS} ${HDF4_MFHDF_LIBSRC_CHDRS}) IF (HDF4_BUILD_XDR_LIB) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DNO_SYS_XDR_INC) ENDIF (WIN32 AND NOT CYGWIN) INCLUDE_DIRECTORIES (${HDF4_MFHDF_XDR_DIR}) TARGET_LINK_LIBRARIES (${HDF4_MF_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET}) ENDIF (HDF4_BUILD_XDR_LIB) TARGET_C_PROPERTIES (${HDF4_MF_LIB_TARGET} " " " ") TARGET_LINK_LIBRARIES (${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_MF_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_MF_LIB_TARGET} ${HDF4_MF_LIB_NAME} ${LIB_TYPE}) #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL ( FILES ${HDF4_MFHDF_LIBSRC_CHDRS} ${HDF4_MFHDF_LIBSRC_XCHDRS} DESTINATION ${HDF4_INSTALL_INCLUDE_DIR} COMPONENT headers ) #----------------------------------------------------------------------------- # Add library to CMake Install : Installs lib and cmake config info #----------------------------------------------------------------------------- IF (BUILD_SHARED_LIBS) INSTALL_TARGET_PDB (${HDF4_MF_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} libraries) ENDIF (BUILD_SHARED_LIBS) INSTALL ( TARGETS ${HDF4_MF_LIB_TARGET} EXPORT ${HDF4_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries ARCHIVE DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries RUNTIME DESTINATION ${HDF4_INSTALL_BIN_DIR} COMPONENT libraries ) libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/hdfsds.c0000644000000000000000000022160012421456623015070 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hdfsds.c 6043 2014-01-21 21:09:03Z acheng $ */ /*************************************************************************** * * This file contains the code to read old SDS objects out of HDF files * an pretend that they are netCDF / mutli-file SDS data objects * **************************************************************************/ /*************************************************************************** General Thoughts Will need to add a 'type' field to the variable stucture so that we can how it was stored (basically will want to just store the tag of the object as well as the ref (which is already stored)). We can use the LUF record to get names of dimensions. If no info stored int the LUF then we will need to fake it. Will prolly be easiest to define a coordinate variable for every dimension even if it doesn't need any attributes or data values Scales are a problem. In HDF scales, are used to define the values for the coordinate variables. The problem is that all of the values for the scales in HDF are jammed into the same tag's storage. So, we will need to add an 'offset' field to the variable record so that we know where to start reading to get the data. If the offset == 0 then we should start reading from the beginning. If the offset == -1 then there is *NO* data (since a scale may not have data specified for it). LOCAL ROUTINES ============== hdf_query_seen_sdg hdf_register_seen_sdg hdf_read_ndgs PUBLIC ROUTINES =============== hdf_read_sds_ndgs NOTE: This file could use the current comments updated and more comments in parts of the code. I tried my best. -GV 9/10/97 **************************************************************************/ #ifdef HDF #include "local_nc.h" #define SDG_MAX_INITIAL 100 /* local variables */ PRIVATE intn sdgCurrent; PRIVATE intn sdgMax; PRIVATE uint16 *sdgTable=NULL; PRIVATE uint8 *ptbuf = NULL; /* Local routines */ PRIVATE intn hdf_query_seen_sdg (uint16 ndgRef); PRIVATE intn hdf_register_seen_sdg (uint16 ndgRef); PRIVATE intn hdf_read_ndgs (NC *handle); /****************************************************************************** NAME hdf_query_seen_sdg DESCRIPTION The SDG with the given ref number might be part of an SDG-NDG combo if so, we return TRUE else FALSE. Attempt to discover if we've seen it in the most inefficient manner possible RETURNS TRUE / FALSE ******************************************************************************/ PRIVATE intn hdf_query_seen_sdg(uint16 ndgRef) { intn i; if(!sdgTable) return FALSE; for(i = 0; i < sdgCurrent; i++) { if(sdgTable[i] == ndgRef) return TRUE; } return FALSE; } /* hdf_query_seen_sdg */ /****************************************************************************** NAME hdf_register_seen_sdg DESCRIPTION The SDG with the given ref is in an SDG-NDG combo. Add it to the seen table so we don't read it twice RETURNS SUCCEED / FAIL ******************************************************************************/ PRIVATE intn hdf_register_seen_sdg(uint16 sdgRef) { intn ret_value = SUCCEED; /* check if table is allocated */ if(!sdgTable) { sdgMax = SDG_MAX_INITIAL; sdgTable = (uint16 *) HDmalloc(sdgMax * sizeof(uint16)); if (sdgTable == NULL) { ret_value = FAIL; goto done; } sdgCurrent = 0; } /* add ref to table */ sdgTable[sdgCurrent++] = sdgRef; /* check if we need to increase size of table */ if(sdgCurrent == sdgMax) { sdgMax *= 2; sdgTable = (uint16 *) HDrealloc((VOIDP) sdgTable, sdgMax * sizeof(uint16)); if (sdgTable == NULL) { ret_value = FAIL; goto done; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_register_seen_sdg */ /****************************************************************************** NAME hdf_read_ndgs DESCRIPTION Loop through all of the NDGs in the file and create data structures for them RETURNS SUCCEED / FAIL ******************************************************************************/ PRIVATE intn hdf_read_ndgs(NC *handle) { static const char *FUNC = "hdf_read_ndg_dims"; char tmpname[80] = ""; uint8 ntstring[4] = ""; intn dimcount; intn dimattrcnt; /* info about NDG structure */ int32 GroupID; int32 aid; int32 aid1; uint16 ndgTag; uint16 ndgRef; uint16 sddRef; uint16 lRef; uint16 uRef; uint16 fRef; uint16 sRef; uint16 sdRef; uint16 tmpTag; uint16 tmpRef; int16 rank=0; nc_type type; int32 *dimsizes = NULL; int32 *scaletypes = NULL; int32 HDFtype; intn dim; intn max_thangs; intn current_dim; intn current_var; intn current_attr; intn *vardims = NULL; /* info about netCDF structures */ NC_dim **dims = NULL; /* hold list of dimensions as we create it */ NC_var **vars = NULL; /* hold variable list as we create it */ NC_attr **attrs = NULL; /* hold attribute list as we create it */ NC_attr *dimattrs[10]; /* for LUF and anno_label, anno_desc, 10 is enough */ uint8 *labelbuf = NULL; /* label should not be used as var name due to non-uniqueness */ uint8 *scalebuf = NULL; /* buffer to store scale info */ uint8 *unitbuf = NULL; /* buffer to store unit info */ uint8 *formatbuf = NULL; /* buffer to store format info */ uint8 *coordbuf = NULL; /* buffer to store coord system info */ intn new_dim; /* == new dim so create coord variable */ /* random book-keeping */ intn i; intn status; intn tag_index; uint8 *p = NULL; uint8 tBuf[128] = ""; intn scale_offset; /* current offset into the scales record for the current dimension's values */ intn ret_value = SUCCEED; /* * Allocate the array to store the dimensions */ max_thangs = 100; /* what is this limit ? */ dims = (NC_dim **) HDmalloc(sizeof(NC_dim *) * max_thangs); if(NULL == dims) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } vars = (NC_var **) HDmalloc(sizeof(NC_var *) * max_thangs); if(NULL == vars) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } attrs = (NC_attr **) HDmalloc(sizeof(NC_attr *) * max_thangs); if(NULL == attrs) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } /* Check if temproray buffer has been allocated */ if (ptbuf == NULL) { ptbuf = (uint8 *)HDmalloc(TBUF_SZ * sizeof(uint8)); if (ptbuf == NULL) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } } /* no dimensions or variables yet */ current_dim = 0; current_var = 0; dimcount = 0; for(tag_index = 0; tag_index < 2; tag_index++) { if(tag_index == 0) ndgTag = DFTAG_NDG; else ndgTag = DFTAG_SDG; /* * Start from the beginning and look though */ aid = Hstartread(handle->hdf_file, ndgTag, DFREF_WILDCARD); if(aid == FAIL) continue; /* hmm if we fail we continue the loop? */ /* * Loop through all of the NDGs in the file */ status = SUCCEED; while (status == SUCCEED) { uint16 ntTag; uint16 ntRef; if(HQuerytagref(aid, &ndgTag, &ndgRef) == FAIL) { #ifdef DEBUG fprintf(stderr, "Call to Hinquire failed\n"); #endif ret_value = FAIL; goto done; } /* Test if its an SDG-NDG which we've processed already */ if((ndgTag == DFTAG_SDG) && (hdf_query_seen_sdg(ndgRef))) { status = Hnextread(aid, ndgTag, DFREF_WILDCARD, DF_CURRENT); continue; /* go to next element */ } /* OK, now we need to get the relevant dimension structure */ #ifdef DEBUG printf("Found NDG at %d %d\n", ndgTag, ndgRef); #endif /* read the group into memory */ if ((GroupID = DFdiread(handle->hdf_file, ndgTag, ndgRef)) < 0) { ret_value = FAIL; goto done; } sddRef = lRef = uRef = fRef = sRef = sdRef = 0; /* default number type is Float32 */ type = NC_FLOAT; HDFtype = DFNT_FLOAT32; /* no attributes found yet */ current_attr = 0; /* no meta-data seen yet */ labelbuf = unitbuf = scalebuf = formatbuf = NULL; /* * Loop through the members of the group looking for stuff * * NOTE: Only generate attributes for meta-data which does * not depend on the rank of the data since we can not * be sure that we get the rank first. * If the meta-data depends on the rank, just remember the * ref number and read the element once this while loop * is finished. */ while (!DFdiget(GroupID, &tmpTag, &tmpRef)) { switch(tmpTag) { case DFTAG_SDD: aid1 = Hstartread(handle->hdf_file, tmpTag, tmpRef); if (aid1 == FAIL) { ret_value = FAIL; goto done; } /* read rank */ if (Hread(aid1, (int32) 2, ptbuf) == FAIL) { ret_value = FAIL; goto done; } p = ptbuf; INT16DECODE(p, rank); /* get space for dimensions */ dimsizes = (int32 *) HDmalloc((uint32) rank * sizeof(int32)); if (dimsizes == NULL) { ret_value = FAIL; goto done; } vardims = (intn *) HDmalloc((uint32) rank * sizeof(intn)); if (vardims == NULL) { ret_value = FAIL; goto done; } scaletypes = (int32 *) HDmalloc((uint32) rank * sizeof(int32)); if (scaletypes == NULL) { ret_value = FAIL; goto done; } /* read dimension record */ if (Hread(aid1, (int32) 4 * rank, ptbuf) == FAIL) { ret_value = FAIL; goto done; } p = ptbuf; for (i = 0; i < rank; i++) INT32DECODE(p, dimsizes[i]); /* read tag/ref of NT */ if (Hread(aid1,(int32) 4, ptbuf) == FAIL) { ret_value = FAIL; goto done; } p = ptbuf; UINT16DECODE(p, ntTag); UINT16DECODE(p, ntRef); /* read actual NT */ if (Hgetelement(handle->hdf_file, ntTag, ntRef, ntstring) == FAIL) { ret_value = FAIL; goto done; } HDFtype = ntstring[1]; if ((type = hdf_unmap_type(HDFtype)) == FAIL) { #ifdef DEBUG /* replace it with NCAdvice or HERROR? */ fprintf(stderr "hdf_read_ndgs: hdf_unmap_type failed for %d\n", HDFtype); #endif ret_value = FAIL; goto done; } /* test if data was stored in native format of different machine or in the LITEND format, and make sure the numbertype version numbers are the same */ if ((ntstring[0] != DFNT_VERSION) || ((ntstring[3] != DFNTF_NONE) && (ntstring[3] != DFNTF_IEEE))) { if (ntstring[3] == DFNTF_PC) /* Little Endian */ HDFtype |= DFNT_LITEND; else { /* same machine type? */ if (ntstring[3] == DFKgetPNSC(HDFtype, DF_MT)) HDFtype |= DFNT_NATIVE; else /* different machine */ { ret_value = FAIL; goto done; } } /* machine type */ } /* Little Endian */ /* read in scale NTs */ for(i = 0; i < rank; i++) { if (Hread(aid1,(int32) 4, ptbuf) == FAIL) { ret_value = FAIL; goto done; } p = ptbuf; UINT16DECODE(p, ntTag); UINT16DECODE(p, ntRef); /* read NT of this scale (dimension) */ if (Hgetelement(handle->hdf_file, ntTag, ntRef, ntstring) == FAIL) { ret_value = FAIL; goto done; } scaletypes[i] = ntstring[1]; /* check native format and LITEND */ if ((ntstring[0] != DFNT_VERSION) || ((ntstring[3] != DFNTF_NONE) && (ntstring[3] != DFNTF_IEEE))) { if (ntstring[3] == DFNTF_PC) /* Little Endian */ scaletypes[i] |= DFNT_LITEND; else { /* same machine type? */ if (ntstring[3] == DFKgetPNSC(HDFtype, DF_MT)) scaletypes[i] |= DFNT_NATIVE; else /* different machine */ { ret_value = FAIL; goto done; } } /* scale machine type */ } /* Little Endian */ } sddRef = tmpRef; /* prepare for a new dim var */ if (Hendaccess(aid1) == FAIL) { ret_value = FAIL; goto done; } break; case DFTAG_SDL: /* label */ lRef = tmpRef; break; case DFTAG_SDU: /* unit */ uRef = tmpRef; break; case DFTAG_SDF: /* format */ fRef = tmpRef; break; case DFTAG_SDC: /* coord */ /* * DFTAG_SDC => 'cordsys' */ { int len; len = Hlength(handle->hdf_file, DFTAG_SDC, tmpRef); if (len == FAIL) { ret_value = FAIL; goto done; } coordbuf = (uint8 *) HDmalloc((uint32) len + 1); if (NULL == coordbuf) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } if (Hgetelement(handle->hdf_file, DFTAG_SDC, tmpRef, coordbuf) == FAIL) { HDfreespace((VOIDP)coordbuf); ret_value = FAIL; goto done; } coordbuf[len] = '\0'; if (coordbuf[0] != '\0') { attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_CoordSys, NC_CHAR, HDstrlen(coordbuf), coordbuf); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; } HDfreespace((VOIDP)coordbuf); } break; case DFTAG_SDS: /* scales */ sRef = tmpRef; break; case DFTAG_SD: /* actual data */ sdRef = tmpRef; break; case DFTAG_CAL: /* calibration info */ /* * DFTAG_CAL => 'scale_factor', 'add_offset', 'scale_factor_err', * 'add_offset_err' */ if (Hgetelement(handle->hdf_file, tmpTag, tmpRef, ptbuf) == FAIL) { ret_value = FAIL; goto done; } if (Hlength(handle->hdf_file, tmpTag, tmpRef) == 36) { /* DFNT_FLOAT64 based calibration */ if (FAIL == DFKconvert((VOIDP)ptbuf, (VOIDP) tBuf, DFNT_FLOAT64, 4, DFACC_READ, 0, 0)) { ret_value = FAIL; goto done; } attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ScaleFactor, NC_DOUBLE, 1, (Void *) &(tBuf[0])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT64; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ScaleFactorErr, NC_DOUBLE, 1, (Void *) &(tBuf[8])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT64; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_AddOffset, NC_DOUBLE, 1, (Void *) &(tBuf[16])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT64; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_AddOffsetErr, NC_DOUBLE, 1, (Void *) &(tBuf[24])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT64; /* don't forget number_type */ if (FAIL == DFKconvert((VOIDP)(ptbuf + 32), (VOIDP) tBuf, DFNT_INT32, 1, DFACC_READ, 0,0)) { ret_value = FAIL; goto done; } attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_CalibratedNt, NC_LONG, 1, (Void *) &(tBuf[0])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_INT32; } else { /* DFNT_FLOAT32 based calibration */ if (FAIL == DFKconvert((VOIDP)ptbuf, (VOIDP)tBuf, DFNT_FLOAT32, 4, DFACC_READ, 0, 0)) { ret_value = FAIL; goto done; } attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ScaleFactor, NC_FLOAT, 1, (Void *) &(tBuf[0])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT32; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ScaleFactorErr, NC_FLOAT, 1, (Void *) &(tBuf[4])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT32; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_AddOffset, NC_FLOAT, 1, (Void *) &(tBuf[8])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT32; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_AddOffsetErr, NC_FLOAT, 1, (Void *) &(tBuf[12])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_FLOAT32; /* don't forget number_type */ if (FAIL == DFKconvert((VOIDP)(ptbuf + 16), (VOIDP) tBuf, DFNT_INT16, 1, DFACC_READ, 0,0)) { ret_value = FAIL; goto done; } attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_CalibratedNt, NC_SHORT, 1, (Void *) &(tBuf[0])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_INT16; } break; case DFTAG_SDM: /* valid range info */ if (Hgetelement(handle->hdf_file, tmpTag, tmpRef, ptbuf) == FAIL) { ret_value = FAIL; goto done; } if (FAIL == DFKconvert((VOIDP)ptbuf, (VOIDP)tBuf, HDFtype, 2, DFACC_READ, 0, 0)) { ret_value = FAIL; goto done; } attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ValidMax, type, 1, (Void *) tBuf); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = HDFtype; attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_ValidMin, type, 1, (Void *) &(tBuf[DFKNTsize(HDFtype|DFNT_NATIVE)])); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = HDFtype; break; case DFTAG_SDLNK: if(ndgTag == DFTAG_SDG) continue; /* continue processing? */ if (Hgetelement(handle->hdf_file, tmpTag, tmpRef, ptbuf) == FAIL) { ret_value = FAIL; goto done; } else { uint16 sdgTag, sdgRef; p = ptbuf; /* the first two are for the NDG tag/ref */ UINT16DECODE(p, sdgTag); UINT16DECODE(p, sdgRef); /* now the ones we're interested in */ UINT16DECODE(p, sdgTag); UINT16DECODE(p, sdgRef); if (hdf_register_seen_sdg(sdgRef) == FAIL) { ret_value = FAIL; goto done; } } break; default: break; } /* end switch 'tmpTag */ } /* end while 'DFdiget()'*/ if(lRef) { int len; /* * Add three NULLS to the end to account for a bug in HDF 3.2r1-3 */ len = Hlength(handle->hdf_file, DFTAG_SDL, lRef); if(len == FAIL) { ret_value = FAIL; goto done; } labelbuf = (uint8 *) HDmalloc((uint32) len + 3); if(NULL == labelbuf) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } if(Hgetelement(handle->hdf_file, DFTAG_SDL, lRef, labelbuf) == FAIL) { ret_value = FAIL; goto done; } labelbuf[len + 2] = '\0'; labelbuf[len + 1] = '\0'; labelbuf[len + 0] = '\0'; } else labelbuf = NULL; if(uRef) { int len; len = Hlength(handle->hdf_file, DFTAG_SDU, uRef); if(len == FAIL) { ret_value = FAIL; goto done; } unitbuf = (uint8 *) HDmalloc((uint32) len+3); if(NULL == unitbuf) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } if(Hgetelement(handle->hdf_file, DFTAG_SDU, uRef, unitbuf) == FAIL) { ret_value = FAIL; goto done; } unitbuf[len + 2] = '\0'; unitbuf[len + 1] = '\0'; unitbuf[len + 0] = '\0'; } else unitbuf = NULL; if(fRef) { int len; len = Hlength(handle->hdf_file, DFTAG_SDF, fRef); if(len == FAIL) { ret_value = FAIL; goto done; } formatbuf = (uint8 *) HDmalloc((uint32) len+3); if(NULL == formatbuf) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } if(Hgetelement(handle->hdf_file, DFTAG_SDF, fRef, formatbuf) == FAIL) { ret_value = FAIL; goto done; } formatbuf[len + 2] = '\0'; formatbuf[len + 1] = '\0'; formatbuf[len + 0] = '\0'; } else formatbuf = NULL; if(sRef) { int len; len = Hlength(handle->hdf_file, DFTAG_SDS, sRef); if(len == FAIL) { ret_value = FAIL; goto done; } scalebuf = (uint8 *) HDmalloc((uint32) len); if(NULL == scalebuf) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } if(Hgetelement(handle->hdf_file, DFTAG_SDS, sRef, scalebuf) == FAIL) { ret_value = FAIL; goto done; } } else scalebuf = NULL; /* skip over the garbage at the beginning */ scale_offset = rank * sizeof(uint8); for (dim = 0; dim < rank; dim++) { intn this_dim = FAIL; char *labelvalue = NULL; char *unitvalue = NULL; char *formatvalue = NULL; /* now loop though each dimension - get the size from dimsize[i] - lref will give the ref of the label descriptor to see if has a real name else fake one based on the label of the NDG - look at uref for units information and fref for formating info store both of these as attributes of the coordinate variable - Promote the dimension to a variable if any of the LUF or scales is assigned to this dimentsion. - The dimension variable name is the same as the dimension record name, fakeDim. */ new_dim = FAIL; tmpname[0] = '\0'; if(lRef) { labelvalue = (char *) labelbuf; for(i = 0; i < dim + 1; i++) labelvalue += HDstrlen(labelvalue) + 1; if (labelvalue[0] != '\0') new_dim = SUCCEED; } if(uRef) { unitvalue = (char *) unitbuf; for(i = 0; i < dim + 1; i++) unitvalue += HDstrlen(unitvalue) + 1; if (unitvalue[0] != '\0') new_dim = SUCCEED; } if(fRef) { formatvalue = (char *) formatbuf; for(i = 0; i < dim + 1; i++) formatvalue += HDstrlen(formatvalue) + 1; if (formatvalue[0] != '\0') new_dim = SUCCEED; } sprintf(tmpname, "fakeDim%d", dimcount++); this_dim = current_dim++; if(current_dim == max_thangs) { /* need to allocate more space */ max_thangs *= 2; dims = (NC_dim **) HDrealloc((VOIDP) dims, sizeof(NC_dim *) * max_thangs); if(NULL == dims) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } vars = (NC_var **) HDrealloc((VOIDP) vars, sizeof(NC_var *) * max_thangs); if(NULL == vars) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } } /* * Create a new dimension record for each dimension. * Each NC_dim takes 8 bytes in memory. */ dims[this_dim] = NC_new_dim(tmpname, dimsizes[dim]); if (NULL == dims[this_dim]) { ret_value = FAIL; goto done; } /* * It looks like were gonna have to do the variable define * here too cuz we need to remember the indicies of where * we put the dimensions */ vardims[dim] = (intn) this_dim; /* * Look at the scale NTs since the scales may have different number * types * Promote the dimension to a variable, but only if it has meta-data * stored with it. */ if(new_dim || (scalebuf && scalebuf[dim])) { nc_type stype; if ((stype = hdf_unmap_type(scaletypes[dim])) == FAIL) { #ifdef DEBUG /* replace it with NCAdvice or HERROR? */ fprintf(stderr "hdf_read_ndgs: hdf_unmap_type failed for %d\n", scaletypes[dim]); #endif ret_value = FAIL; goto done; } vars[current_var] = NC_new_var(tmpname, stype, 1, &this_dim); if (NULL == vars[current_var]) { ret_value = FAIL; goto done; } vars[current_var]->data_tag = DFTAG_SDS; /* not normal data */ vars[current_var]->data_ref = sRef; vars[current_var]->HDFtype = scaletypes[dim]; #ifdef NOT_YET vars[current_var]->ndg_ref = Htagnewref(handle->hdf_file,DFTAG_NDG); #else /* NOT_YET */ vars[current_var]->ndg_ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ /* Indicate that it is unknown whether the current variable is an SDS or a coordinate variable. bugzilla 624 - BMR - 05/16/2007 */ /* vars[current_var]->var_type = UNKNOWN; */ /* It looks like this is a dimension variable for sure! -BMR 10/26/2010 */ vars[current_var]->var_type = IS_CRDVAR; /* * See if a scales record has been stored and if there have * been scale values provided */ if((scalebuf) && (scalebuf[dim])) { vars[current_var]->numrecs = dimsizes[dim]; vars[current_var]->data_offset = scale_offset; scale_offset += dimsizes[dim] * DFKNTsize(scaletypes[dim]); } else { vars[current_var]->data_offset = -1; /* no values */ } /* * Convert dimstrs into attributes * label -- "long_name" (cuz SDsetdimstrs() assigns "long_name" to label) * unit -- "units" * format -- "format" */ /* label => "long_name" */ dimattrcnt = 0; if (labelvalue && HDstrlen((char *)labelvalue) > 0) { dimattrs[dimattrcnt] = (NC_attr *) NC_new_attr(_HDF_LongName, NC_CHAR, HDstrlen((char *)labelvalue), (Void *) labelvalue); if (NULL == dimattrs[dimattrcnt]) { ret_value = FAIL; goto done; } else dimattrs[dimattrcnt++]->HDFtype = DFNT_CHAR; } /* Units => 'units' */ if(unitvalue && HDstrlen((char *)unitvalue) > 0) { dimattrs[dimattrcnt] = (NC_attr *) NC_new_attr(_HDF_Units, NC_CHAR, HDstrlen((char *)unitvalue), (Void *) unitvalue); if (NULL == dimattrs[dimattrcnt]) { ret_value = FAIL; goto done; } else dimattrs[dimattrcnt++]->HDFtype = DFNT_CHAR; } /* Fomrat => 'format' */ if(formatvalue && HDstrlen((char *)formatvalue) > 0) { dimattrs[dimattrcnt] = (NC_attr *) NC_new_attr(_HDF_Format, NC_CHAR, HDstrlen((char *)formatvalue), (Void *) formatvalue); if (NULL == dimattrs[dimattrcnt]) { ret_value = FAIL; goto done; } else dimattrs[dimattrcnt++]->HDFtype = DFNT_CHAR; } /* * Add the attributes to the variable */ if(dimattrcnt) { vars[current_var]->attrs = NC_new_array(NC_ATTRIBUTE, dimattrcnt, (Void *) dimattrs); if (NULL == vars[current_var]->attrs) { ret_value = FAIL; goto done; } } else vars[current_var]->attrs = NULL; current_var++; if(current_var == max_thangs) { /* need to allocate more space */ max_thangs *= 2; dims = (NC_dim **) HDrealloc((VOIDP)dims, sizeof(NC_dim *) * max_thangs); if(NULL == dims) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } vars = (NC_var **) HDrealloc((VOIDP)vars, sizeof(NC_var *) * max_thangs); if(NULL == vars) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } } } /* end if 'new_dim' */ } /* end for 'dim' */ /* * Should the LUF-label be mapped as attr of "longname", to be consistent * with the dim vars? 8/18/94 * Should the annotation-label mapped to attr "anno-label", if "longname" * has been taken by LUF-label? 8/18/94. * * (If there is a data label use that as the variable name else) * Use the reference number of the NDG as part of * a made up name (Label is mapped as attr "longname" 9/2/94). * * Convert spaces in the name to underscores (yuck) otherwise * ncgen will barf on ncdumped files) */ #if 0 /* if(labelbuf && (labelbuf[0] != '\0')) { char *c; for(c = (char *)labelbuf; *c; c++) if((*c) == ' ') (*c) = '_'; vars[current_var] = NC_new_var((char *) labelbuf, type, (int) rank, vardims); } else { */ #endif sprintf(tmpname, "Data-Set-%d", ndgRef); vars[current_var] = NC_new_var(tmpname, type, (int) rank, vardims); if (NULL == vars[current_var]) { ret_value = FAIL; goto done; } #if 0 /* } */ #endif /* * Fill in extra information so it will be easier to backtrack * when the user wants to lift data out */ vars[current_var]->data_tag = DATA_TAG; vars[current_var]->data_ref = sdRef; vars[current_var]->HDFtype = HDFtype; /* Indicate that it is unknown whether the current variable is an SDS or a coordinate variable. bugzilla 624 - BMR - 05/16/2007 */ vars[current_var]->var_type = UNKNOWN; /* * NOTE: If the user changes the file and saves setting this * to ndgRef will blow away the old ndgs (but they will get * rewritten). Otherwise calls to SDidtoref() will return * bogus values */ vars[current_var]->ndg_ref = ndgRef; /* * -------------------------------------------- * Convert HDF meta-data into netCDF attributes * -------------------------------------------- */ /* * If there is an annotation put in 'remarks' */ { /* Re-vamped desc annotation handling to use new ANxxx interface * -georgev 6/11/97 */ int32 an_handle = FAIL; int32 *ddescs = NULL; char *ann_desc = NULL; int32 ann_len; intn num_ddescs; char hremark[30] = ""; /* should be big enough for new attribute */ /* start Annotation inteface */ if ((an_handle = ANstart(handle->hdf_file)) == FAIL) { ret_value = FAIL; goto done_adesc; } /* Get number of data descs with this tag/ref */ num_ddescs = ANnumann(an_handle, AN_DATA_DESC, ndgTag, ndgRef); #ifdef AN_DEBUG fprintf(stderr,"SDS has %d descs \n", num_ddescs); #endif if (num_ddescs != 0) { /* allocate space for list of desc annotation id's with this tag/ref */ if ((ddescs = (int32 *)HDmalloc(num_ddescs * sizeof(int32))) == NULL) { #ifdef AN_DEBUG fprintf(stderr,"failed to allocate space for %d descs \n", num_ddescs); #endif ret_value = FAIL; goto done_adesc; } /* get list of desc annotations id's with this tag/ref */ if (ANannlist(an_handle, AN_DATA_DESC, ndgTag, ndgRef, ddescs) != num_ddescs) { #ifdef AN_DEBUG fprintf(stderr,"failed to get %d descs list \n", num_ddescs); #endif ret_value = FAIL; goto done_adesc; } /* loop through desc list. */ for (i = 0; i < num_ddescs; i++) { if ((ann_len = ANannlen(ddescs[i])) == FAIL) { #ifdef AN_DEBUG fprintf(stderr,"failed to get %d desc length \n", i); #endif ret_value = FAIL; goto done_adesc; } /* allocate space for desc */ if (ann_desc == NULL) { if ((ann_desc = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { #ifdef AN_DEBUG fprintf(stderr,"failed to allocate space for desc %d \n", i); #endif ret_value = FAIL; goto done_adesc; } HDmemset(ann_desc,'\0', ann_len+1); } /* read desc */ if (ANreadann(ddescs[i], ann_desc, ann_len+1) == FAIL) { #ifdef AN_DEBUG fprintf(stderr,"failed to read %d desc \n", i); #endif ret_value = FAIL; goto done_adesc; } /* make unique attribute */ sprintf(hremark,"%s-%d",_HDF_Remarks,i+1); /* add it as a attribute */ attrs[current_attr] = (NC_attr *) NC_new_attr(hremark, NC_CHAR, HDstrlen(ann_desc), ann_desc); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done_adesc; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; /* end access */ ANendaccess(ddescs[i]); /* free buffer */ if(ann_desc != NULL) { HDfree(ann_desc); ann_desc = NULL; } } } /* end if descs */ done_adesc: /* GOTO Label */ /* cleanup */ if(ddescs != NULL) HDfree(ddescs); if(an_handle != FAIL) ANend(an_handle); /* check for error during ANxxx processing */ if (ret_value == FAIL) goto done; /* error so return */ } /* end annotation description conversion */ /* * If there is a label put in attr 'anno_label' (note: NOT 'long_name' 9/2/94) */ { /* Re-vamped label annotation handling to use new ANxxx interface * -georgev 6/11/97 */ int32 an_handle = FAIL; int32 *dlabels = NULL; char *ann_label = NULL; int32 ann_len; intn num_dlabels; char hlabel[30] = ""; /* should be big enough for new attribute */ /* start Annotation inteface */ if ((an_handle = ANstart(handle->hdf_file)) == FAIL) { ret_value = FAIL; goto done_alabel; } /* Get number of data labels with this tag/ref */ num_dlabels = ANnumann(an_handle, AN_DATA_LABEL, ndgTag, ndgRef); #ifdef AN_DEBUG fprintf(stderr,"SDS has %d labels \n", num_dlabels); #endif if (num_dlabels != 0) { /* allocate space for list of label annotation id's with this tag/ref */ if ((dlabels = (int32 *)HDmalloc(num_dlabels * sizeof(int32))) == NULL) { #ifdef AN_DEBUG fprintf(stderr,"failed to allocate space for %d labels \n", num_dlabels); #endif ret_value = FAIL; goto done_alabel; } /* get list of label annotations id's with this tag/ref */ if (ANannlist(an_handle, AN_DATA_LABEL, ndgTag, ndgRef, dlabels) != num_dlabels) { #ifdef AN_DEBUG fprintf(stderr,"failed to get %d label list \n", num_dlabels); #endif ret_value = FAIL; goto done_alabel; } /* loop through label list */ for (i = 0; i < num_dlabels; i++) { if ((ann_len = ANannlen(dlabels[i])) == FAIL) { #ifdef AN_DEBUG fprintf(stderr,"failed to get %d label length \n", i); #endif ret_value = FAIL; goto done_alabel; } /* allocate space for label */ if (ann_label == NULL) { if ((ann_label = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { #ifdef AN_DEBUG fprintf(stderr,"failed to allocate space for label %d \n", i); #endif ret_value = FAIL; goto done_alabel; } HDmemset(ann_label,'\0', ann_len+1); } /* read label */ if (ANreadann(dlabels[i], ann_label, ann_len+1) == FAIL) { #ifdef AN_DEBUG fprintf(stderr,"failed to read %d label \n", i); #endif ret_value = FAIL; goto done_alabel; } /* make unique attribute */ sprintf(hlabel,"%s-%d",_HDF_AnnoLabel,i+1); /* add as atriburte */ attrs[current_attr] = (NC_attr *) NC_new_attr(hlabel, NC_CHAR, HDstrlen(ann_label), ann_label); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done_alabel; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; /* end access */ ANendaccess(dlabels[i]); /* free buffer */ if(ann_label != NULL) { HDfree(ann_label); ann_label = NULL; } } } /* end if labels */ done_alabel: /* GOTO Label */ /* cleanup */ if(dlabels != NULL) HDfree(dlabels); if(an_handle != FAIL) ANend(an_handle); /* check for error during ANxxx processing */ if (ret_value == FAIL) goto done; /* error so return */ } /* end annotation label processing */ /* * Label => 'long_name' */ if(labelbuf && (labelbuf[0] != '\0')) { attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_LongName, NC_CHAR, HDstrlen((char *)labelbuf), (Void *) labelbuf); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; } /* * Units => 'units' */ if(unitbuf && (unitbuf[0] != '\0')) { attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_Units, NC_CHAR, HDstrlen((char *)unitbuf), (Void *) unitbuf); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; } /* * (Don't do format cuz HDF doesn't distinguish between C and Fortran * Actually, it seems HDF Format == netCDF Fortran Format) * Don't use 'C_format' or 'FORTRAN_format' * Format => 'format' */ if(formatbuf && (formatbuf[0] != '\0')) { attrs[current_attr] = (NC_attr *) NC_new_attr(_HDF_Format, NC_CHAR, HDstrlen((char *)formatbuf), (Void *) formatbuf); if (NULL == attrs[current_attr]) { ret_value = FAIL; goto done; } else attrs[current_attr++]->HDFtype = DFNT_CHAR; } /* * Add the attributes to the variable */ if(current_attr) { vars[current_var]->attrs = NC_new_array(NC_ATTRIBUTE, current_attr, (Void *) attrs); if (NULL == vars[current_var]->attrs) { ret_value = FAIL; goto done; } } else vars[current_var]->attrs = NULL; current_var++; if(current_var == max_thangs) { /* need to allocate more space */ max_thangs *= 2; dims = (NC_dim **) HDrealloc((VOIDP) dims, sizeof(NC_dim *) * max_thangs); if(NULL == dims) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } vars = (NC_var **) HDrealloc((VOIDP) vars, sizeof(NC_var *) * max_thangs); if(NULL == vars) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } } /* * De-allocate temporary storage */ if(labelbuf != NULL) HDfree((VOIDP)labelbuf); if(scalebuf != NULL) HDfree((VOIDP)scalebuf); if(unitbuf != NULL) HDfree((VOIDP)unitbuf); if(formatbuf != NULL) HDfree((VOIDP)formatbuf); if (dimsizes != NULL) HDfree((VOIDP)dimsizes); if (vardims != NULL) HDfree((VOIDP)vardims); if (scaletypes != NULL) HDfree((VOIDP)scaletypes); /* * Look for the next DataSet */ status = Hnextread(aid, ndgTag, DFREF_WILDCARD, DF_CURRENT); } /* while (more NDGs) */ if (Hendaccess(aid) == FAIL) { ret_value = FAIL; goto done; } /* * Set up the structures in the proper form */ if(current_dim) { handle->dims = NC_new_array(NC_DIMENSION, current_dim, (Void *) dims); if (NULL == handle->dims) { ret_value = FAIL; goto done; } } else handle->dims = NULL; if(current_var) { handle->vars = NC_new_array(NC_VARIABLE, current_var, (Void *) vars); if (NULL == handle->vars) { ret_value = FAIL; goto done; } } else handle->vars = NULL; } /* outermost for loop to loop between NDGs and SDGs */ done: if (ret_value == FAIL) { /* FAIL cleanup? */ if(labelbuf != NULL) HDfree((VOIDP)labelbuf); if(scalebuf != NULL) HDfree((VOIDP)scalebuf); if(unitbuf != NULL) HDfree((VOIDP)unitbuf); if(formatbuf != NULL) HDfree((VOIDP)formatbuf); if (dimsizes != NULL) HDfree((VOIDP)dimsizes); if (vardims != NULL) HDfree((VOIDP)vardims); if (scaletypes != NULL) HDfree((VOIDP)scaletypes); } /* Normal cleanup */ if (dims != NULL) HDfree((VOIDP)dims); if (vars != NULL) HDfree((VOIDP)vars); if (attrs != NULL) HDfree((VOIDP)attrs); return ret_value; } /* hdf_read_ndgs */ /****************************************************************************** NAME hdf_read_sds_cdf DESCRIPTION Read SDSs out of an HDF file an pretend like they are netCDF objects We can already assume that the file is open and that it is in fact an HDF file RETURNS SUCCEED / FAIL ******************************************************************************/ int hdf_read_sds_cdf(XDR *xdrs, NC **handlep) { int32 status; NC *handle = NULL; intn ret_value = SUCCEED; /* * go through and treat each SDS as a separate varibiable */ /* * should we try to create an unlimited dimension somehow ??? */ /* we haven't seen any SDG-NDG combos yet */ HDfreenclear(sdgTable); handle = (*handlep); if(NULL == handle) { ret_value = FAIL; goto done; } status = hdf_read_ndgs(handle); if(status == FAIL) { ret_value = FAIL; goto done; } /* deallocate SDG-NDG space */ if(sdgTable != NULL) HDfree((VOIDP)sdgTable); sdgTable = NULL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_read_sds_cdf */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/nssdc.c0000644000000000000000000007237212421456623014741 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "local_nc.h" #ifdef HDF #include "hfile.h" /* constants/macros pulled out of the CDF library source */ #define V2_CDR_OFFSET 8 #define VDRzVDR_RFUe_LEN 128 #define CDF_VAR_NAME_LEN 64 #define CDF_ATTR_NAME_LEN 64 #define CDF_FORMAT_BIT 1 /* format: set = single file, clear = multi file */ #define rVAR_RECVARY_BIT 0 /* record variance: set = VARY, clear = NOVARY */ #define rVAR_PADVALUE_BIT 1 /* pad value: set = specified, clear = not specified (use default) */ #define zVAR_RECVARY_BIT 0 /* record variance: set = VARY, clear = NOVARY */ #define zVAR_PADVALUE_BIT 1 /* pad value: set = specified, clear = not specified (use default) */ #define bitset(a,bit) (a & (1 << bit)) #define CDF_INT1 (long) 1 #define CDF_INT2 (long) 2 #define CDF_INT4 (long) 4 #define CDF_UINT1 (long) 11 #define CDF_UINT2 (long) 12 #define CDF_UINT4 (long) 14 #define CDF_REAL4 (long) 21 #define CDF_REAL8 (long) 22 #define CDF_EPOCH (long) 31 /* NSSDC standard */ #define CDF_BYTE (long) 41 /* same as CDF_INT1 (signed) */ #define CDF_FLOAT (long) 44 /* same as CDF_REAL4 */ #define CDF_DOUBLE (long) 45 /* same as CDF_REAL8 */ #define CDF_CHAR (long) 51 /* a "string" data type */ #define CDF_UCHAR (long) 52 /* a "string" data type */ #define NETWORK_ENCODING 1L #define SUN_ENCODING 2L #define VAX_ENCODING 3L #define DECSTATION_ENCODING 4L #define SGi_ENCODING 5L #define IBMPC_ENCODING 6L #define IBMRS_ENCODING 7L #define HOST_ENCODING 8L #define HP_ENCODING 11L #define NeXT_ENCODING 12L #define ALPHAOSF1_ENCODING 13L #define ALPHAVMSd_ENCODING 14L #define ALPHAVMSg_ENCODING 15L /* ---------------------------- cdf_unmap_type ---------------------------- */ /* UnMap a data type. I.e. go from a CDF type to an NC_ */ nc_type cdf_unmap_type(type) int type; { switch(type & 0xff) { case CDF_CHAR : case CDF_UCHAR : return NC_CHAR; case CDF_BYTE : case CDF_INT1 : case CDF_UINT1 : return NC_BYTE; case CDF_INT2 : case CDF_UINT2 : return NC_SHORT; case CDF_INT4 : case CDF_UINT4 : return NC_LONG; case CDF_REAL4 : case CDF_FLOAT : return NC_FLOAT; case CDF_REAL8 : case CDF_DOUBLE : case CDF_EPOCH : return NC_DOUBLE; default: return (nc_type) FAIL; /* need to return a better (legal) value */ } } /* cdf_unmap_type */ /* ---------------------------- nssdc_read_cdf ---------------------------- */ /* Read a NC structure out of a CDF file */ bool_t nssdc_read_cdf(xdrs, handlep) XDR * xdrs; NC ** handlep; { NC * handle; uint8 buffer[1000]; uint8 * b; int32 dummy; static const char * FUNC = "nssdc_read_cdf"; hdf_file_t fp; intn i, j; int32 rank, current_var, current_dim, hdftype; nc_type nctype; intn dims[H4_MAX_VAR_DIMS]; int32 dim_sz[H4_MAX_VAR_DIMS]; NC_dim * dim_rec[H4_MAX_VAR_DIMS]; NC_var * vars[H4_MAX_NC_VARS]; NC_var * var = NULL; /* shorthand for vars[current_var] */ vix_t * end; /* interesting stuff in CDR record */ int32 gdrOffset, vers, release, encoding, flags, inc; /* interesting stuff in GDR record */ int32 varNext, zVarNext, adrNext, numRVars, numAttrs, maxRec; int32 numDims, numZVars; /* interesting stuff in VDR record */ int32 nt, vMaxRec, vxrNext, VXRtail, vFlags, numElem, num; char name[CDF_VAR_NAME_LEN + 1]; /* interesting stuff in ADR record */ int32 scope, aedrNext, aedzNext; /* interesting stuff in AEDR record */ int32 count; #if DEBUG fprintf(stderr, "nssdc_read_cdf i've been called\n"); #endif handle = (*handlep); fp = handle->cdf_fp; current_var = 0; /* * pull in the CDR and see what we want out of it */ if (HI_SEEK(fp, V2_CDR_OFFSET) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 12 * sizeof(int32)) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, gdrOffset); /* offset of GDR record */ INT32DECODE(b, vers); /* version number */ INT32DECODE(b, release); /* release number */ INT32DECODE(b, encoding); /* type of encoding */ INT32DECODE(b, flags); /* special flags (uint32????) */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, inc); /* increment - do we care?? */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* rfuE */ /* * Only handle single file implementations for now */ if(!bitset(flags, CDF_FORMAT_BIT)) { #ifdef DEBUG fprintf(stderr, "We are only able to handle single-file CDFs. Sorry.\n"); #endif return (FALSE); } /* Check the encoding */ if((encoding != NETWORK_ENCODING) && (encoding != SUN_ENCODING) && (encoding != SGi_ENCODING) && (encoding != IBMRS_ENCODING) && (encoding != HP_ENCODING)) { #ifdef DEBUG fprintf(stderr, "We are only able to handle IEEE encoded files. Sorry.\n"); #endif return (FALSE); } /* * pull in the GDR and see what we want out of it */ if (HI_SEEK(fp, gdrOffset) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 15 * sizeof(int32)) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, varNext); /* start of next R variable */ INT32DECODE(b, zVarNext); /* start of Zvariables */ INT32DECODE(b, adrNext); /* start of attributes */ INT32DECODE(b, dummy); /* eof */ INT32DECODE(b, numRVars); /* number of R variables */ INT32DECODE(b, numAttrs); /* number of attributes */ INT32DECODE(b, maxRec); /* dunno */ INT32DECODE(b, numDims); /* number of dimensions */ INT32DECODE(b, numZVars); /* number of Z variables */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, dummy); /* rfuC */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* rfuE */ /* * dimension sizes are here */ if(numDims > H4_MAX_VAR_DIMS) return FALSE; if (HI_READ(fp, buffer, numDims * sizeof(int32)) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); #ifdef DEBUG fprintf(stderr,"File version %d.%d\n", (int)vers, (int)release); fprintf(stderr," rVars %d, Attrs %d, zVars %d\n", (int)numRVars, (int)numAttrs, (int)numZVars); fprintf(stderr," Dims %d, maxRec %d\n", (int)numDims, (int)maxRec); #endif /* * For each rVariable dimension size create a new dimension object */ b = buffer; current_dim = 0; for(i = 0; i < numDims; i++) { char tmpname[80]; INT32DECODE(b, dim_sz[i]); sprintf(tmpname, "CDFdim%d_%d", i, (int)dim_sz[i]); dim_rec[current_dim++] = NC_new_dim(tmpname, dim_sz[i]); #ifdef DEBUG fprintf(stderr,"Created dimension %s\n", tmpname); #endif } /* * Loop over Rvariables and read them in */ while(varNext != 0) { #ifdef DEBUG fprintf(stderr,"Variable %d seeking to %d\n", (int)current_var, (int)varNext); #endif if (HI_SEEK(fp, varNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, varNext); /* start of next R variable */ INT32DECODE(b, nt); /* number type */ INT32DECODE(b, vMaxRec); /* number of records for this variable */ INT32DECODE(b, vxrNext); /* start of VXR recrods */ INT32DECODE(b, VXRtail); /* ??? */ INT32DECODE(b, vFlags); /* variable flags <---- record variance in here */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, dummy); /* rfuC */ INT32DECODE(b, dummy); /* rfuF */ b += VDRzVDR_RFUe_LEN; /* reserved field */ INT32DECODE(b, numElem); /* == 1 unless string variable */ INT32DECODE(b, num); /* */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* nextEndRecs */ HDmemcpy(name, b, CDF_VAR_NAME_LEN); name[CDF_VAR_NAME_LEN] = '\0'; b += CDF_VAR_NAME_LEN; j = 0; while((name[j] != ' ') && (name[j] != '\0')) j++; name[j] = '\0'; #ifdef DEBUG fprintf(stderr,"\tName %s nt %d vMaxRec %d\n", name, (int)nt, (int)vMaxRec); fprintf(stderr,"\tNext var at %d\n", (int)varNext); #endif /* * Figure out which dimensions are meaningful * If we vary in the record dimension it is reflected in the variable's * flags * Variance in the other dimensions is specified singly as int32 * quantities in the file * Only define the variable in terms of dimensions in which it varies */ rank = 0; if(bitset(vFlags, rVAR_RECVARY_BIT)) { char dimname[1000]; sprintf(dimname, "%s_REC", name); if(numElem > 1) dim_rec[current_dim] = NC_new_dim(dimname, numElem); else if(maxRec > 0) dim_rec[current_dim] = NC_new_dim(dimname, maxRec); else dim_rec[current_dim] = NC_new_dim(dimname, NC_UNLIMITED); dims[rank++] = current_dim++; } for(j = 0; j < numDims; j++) { INT32DECODE(b, dummy); if(dummy) dims[rank++] = j; } /* map the CDF type into a netCDF type */ nctype = cdf_unmap_type(nt); /* define the variable */ var = vars[current_var] = NC_new_var((char *) name, nctype, (int) rank, dims); if(var == NULL) HRETURN_ERROR(DFE_NOSPACE, FALSE); #ifdef DEBUG fprintf(stderr,"Was able to call NC_new_var()\n"); #endif /* if it is unsigned at least set the HDFtype to reflect it */ switch(nt) { case CDF_UINT1: var->HDFtype = DFNT_UINT8; break; case CDF_UINT2: var->HDFtype = DFNT_UINT16; break; case CDF_UINT4: var->HDFtype = DFNT_UINT32; break; default: break; } /* * Read the pad value if applicable */ if(bitset(vFlags, rVAR_PADVALUE_BIT)) { /* need to pull the pad value out of the file at current location */ /* make into _Fillvalue attribute */ } /* * Mess with setting up VXR records */ var->vixHead = end = NULL; while(vxrNext != 0) { vix_t * vix; vix = (vix_t *)HDmalloc(sizeof(vix_t)); if(vix == NULL) HRETURN_ERROR(DFE_NOSPACE,FALSE); /* stick vix at the end of our list and update end pointer */ if(end == NULL) var->vixHead = end = vix; else end = end->next = vix; vix->next = NULL; #ifdef DEBUG fprintf(stderr, "Reading a VXR record at %d\n", (int)vxrNext); #endif /* * Read the next record out of the file */ if (HI_SEEK(fp, vxrNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, vxrNext); /* next VXR record */ INT32DECODE(b, vix->nEntries); /* number of entries */ INT32DECODE(b, vix->nUsed); /* number of used entries */ for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->firstRec[i]); for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->lastRec[i]); for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->offset[i]); #ifdef DEBUG for(i = 0; i < vix->nEntries; i++) fprintf(stderr, "\t%d %d %d\n", (int)vix->firstRec[i], (int)vix->lastRec[i], (int)vix->offset[i]); fprintf(stderr, "Next record at %d\n", (int)vxrNext); #endif } current_var++; } /* * Loop over Zvariables and read them in */ while(zVarNext != 0) { #ifdef DEBUG fprintf(stderr,"zVariable %d seeking to %d\n", i, (int)zVarNext); #endif if (HI_SEEK(fp, zVarNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, zVarNext); /* start of next R variable */ INT32DECODE(b, nt); /* number type */ INT32DECODE(b, vMaxRec); /* dunno */ INT32DECODE(b, vxrNext); /* start of VXR records */ INT32DECODE(b, VXRtail); /* ??? */ INT32DECODE(b, vFlags); /* variable flags <---- record variance in here */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, dummy); /* rfuC */ INT32DECODE(b, dummy); /* rfuF */ b += VDRzVDR_RFUe_LEN; /* reserved field */ INT32DECODE(b, numElem); /* */ INT32DECODE(b, num); /* */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* nextEndRecs */ HDmemcpy(name, b, CDF_VAR_NAME_LEN); name[CDF_VAR_NAME_LEN] = '\0'; b += CDF_VAR_NAME_LEN; j = 0; while((name[j] != ' ') && (name[j] != '\0')) j++; name[j] = '\0'; /* MORE STUFF */ #ifdef DEBUG fprintf(stderr,"\tName %s nt %d vMaxRec %d\n", name, (int)nt, (int)vMaxRec); #endif /* * Get the number of dimensions defined with this dataset * This is not necessarily the rank since we may not vary in * some of them. In that case, do not create dimension * objects for them. */ INT32DECODE(b, numDims); /* number of dimensions */ /* * read dimension sizes * figure out which ones are actually used * create dimension objects for the dimensions that are used */ for(j = 0; j < numDims; j++) INT32DECODE(b, dim_sz[j]); rank = 0; for(j = 0; j < numDims; j++) { INT32DECODE(b, dummy); if(dummy) { char dimname[1000]; sprintf(dimname, "%s%d_%d", name, (int)rank, (int)dim_sz[j]); dim_rec[current_dim] = NC_new_dim(dimname, dim_sz[j]); dims[rank++] = current_dim++; } } #ifdef DEBUG fprintf(stderr,"\trank %d numDims %d\n", (int)rank, (int)numDims); #endif /* map the CDF type into a netCDF type */ nctype = cdf_unmap_type(nt); /* define the variable */ var = vars[current_var] = NC_new_var((char *) name, nctype, (int) rank, dims); if(var == NULL) return (FALSE); /* if it is unsigned at least set the HDFtype to reflect it */ switch(nt) { case CDF_UINT1: var->HDFtype = DFNT_UINT8; break; case CDF_UINT2: var->HDFtype = DFNT_UINT16; break; case CDF_UINT4: var->HDFtype = DFNT_UINT32; break; default: break; } /* what's up with PadValues ??? */ /* * Mess with setting up VXR records */ var->vixHead = end = NULL; while(vxrNext != 0) { vix_t * vix; vix = (vix_t *)HDmalloc(sizeof(vix_t)); if(vix == NULL) HRETURN_ERROR(DFE_NOSPACE,FALSE); /* stick vix at the end of our list and update end pointer */ if(end == NULL) var->vixHead = end = vix; else end = end->next = vix; vix->next = NULL; #ifdef DEBUG fprintf(stderr, "Reading a VXR record at %d\n", (int)vxrNext); #endif /* * Read the next record out of the file */ if (HI_SEEK(fp, vxrNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, vxrNext); /* next VXR record */ INT32DECODE(b, vix->nEntries); /* number of entries */ INT32DECODE(b, vix->nUsed); /* number of used entries */ for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->firstRec[i]); for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->lastRec[i]); for(i = 0; i < vix->nEntries; i++) INT32DECODE(b, vix->offset[i]); #ifdef DEBUG for(i = 0; i < vix->nEntries; i++) fprintf(stderr, "\t%d %d %d\n", (int)vix->firstRec[i], (int)vix->lastRec[i], (int)vix->offset[i]); fprintf(stderr, "Next record at %d\n", (int)vxrNext); #endif } current_var++; } /* loop over zVariabes */ /* * Loop over Attributes and read them in */ for(i = 0; i < numAttrs; i++) { #ifdef DEBUG fprintf(stderr,"Attribute %d seeking to %d\n", i, (int)adrNext); #endif if (HI_SEEK(fp, adrNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, adrNext); /* start of next ADR record */ INT32DECODE(b, aedrNext); /* start of next AEDR object */ INT32DECODE(b, scope); /* scope 1==global 2==local */ INT32DECODE(b, dummy); /* num */ INT32DECODE(b, dummy); /* numR */ INT32DECODE(b, dummy); /* maxR */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, aedzNext); /* AzEDRhread */ INT32DECODE(b, dummy); /* NumZ */ INT32DECODE(b, dummy); /* MaxZ */ INT32DECODE(b, dummy); /* rfuE */ HDmemcpy(name, b, CDF_ATTR_NAME_LEN); name[CDF_ATTR_NAME_LEN] = '\0'; #ifdef DEBUG fprintf(stderr,"\tname %s (%s) data at %d\n", name, (scope == 1 ? "global" : "local"), (int)aedrNext); fprintf(stderr,"\taedrNext %d aedzNext %d\n", (int)aedrNext, (int)aedzNext); #endif /* * Read in the AEDR records now and add them to the appropriate object */ while(aedrNext != 0) { NC_array ** ap; NC_attr * attr[1]; char * tBuf; int32 bsize; if (HI_SEEK(fp, aedrNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, aedrNext); /* start of next AEDR record */ INT32DECODE(b, num); /* attr (?) number */ INT32DECODE(b, nt); /* number type */ INT32DECODE(b, num); /* var (?) number */ INT32DECODE(b, count); /* number of elements */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, dummy); /* rfuC */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* rfuE */ /* map the CDF type into a netCDF type */ nctype = cdf_unmap_type(nt); hdftype = hdf_map_type(nctype); bsize = nctypelen(nctype) * count; tBuf = (char *)HDmalloc((uint32) bsize); /* convert attrbute values and create attr object */ DFKconvert((VOIDP) b, (VOIDP) tBuf, hdftype, count, DFACC_READ, 0, 0); attr[0] = NC_new_attr(name, nctype, count, tBuf); HDfree(tBuf); /* make sure we got a vaild attribute */ if(attr[0] == NULL) return (FALSE); /* find the appropriate attribute list */ if(scope == 1) { /* global attribute */ ap = &(handle->attrs); } else { /* local --- find the appropriate variable */ ap = &(vars[num]->attrs); #ifdef DEBUG fprintf(stderr,"\tAdding %s (%s) to var %d \n", name, (scope == 1 ? "global" : "local"), (int)num); #endif } /* add the attribute to the list */ if(*ap == NULL) { /* first time */ (*ap) = NC_new_array(NC_ATTRIBUTE,(unsigned)1, (Void*)attr); if((*ap) == NULL) return (FALSE); } else { if(NC_incr_array((*ap), (Void *)attr) == NULL) return (FALSE); } } /* AEDR loop */ /* * Read in the AEDZ records now and add them to the appropriate object * It is not clear to me how these are different from aedr records * except for that they are for Zvariables rather than Rvariables. * Any other reasons????? */ while(aedzNext != 0) { NC_array ** ap; NC_attr * attr[1]; char * tBuf; int32 bsize; #ifdef DEBUG fprintf(stderr,"\tReading aedz from %d\n", (int)aedzNext); #endif if (HI_SEEK(fp, aedzNext) == FAIL) HRETURN_ERROR(DFE_SEEKERROR,FALSE); if (HI_READ(fp, buffer, 4) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record size */ dummy -= 4; if (HI_READ(fp, buffer, dummy) == FAIL) HRETURN_ERROR(DFE_READERROR,FALSE); b = buffer; INT32DECODE(b, dummy); /* record type */ INT32DECODE(b, aedzNext); /* start of next AEDR record */ INT32DECODE(b, num); /* attr (?) number */ INT32DECODE(b, nt); /* number type */ INT32DECODE(b, num); /* var (?) number */ INT32DECODE(b, count); /* number of elements */ INT32DECODE(b, dummy); /* rfuA */ INT32DECODE(b, dummy); /* rfuB */ INT32DECODE(b, dummy); /* rfuC */ INT32DECODE(b, dummy); /* rfuD */ INT32DECODE(b, dummy); /* rfuE */ /* map the CDF type into a netCDF type */ nctype = cdf_unmap_type(nt); hdftype = hdf_map_type(nctype); bsize = nctypelen(nctype) * count; tBuf = (char *)HDmalloc((uint32) bsize); /* convert attrbute values and create attr object */ DFKconvert((VOIDP) b, (VOIDP) tBuf, hdftype, count, DFACC_READ, 0, 0); attr[0] = NC_new_attr(name, nctype, count, tBuf); HDfree(tBuf); /* make sure we got a vaild attribute */ if(attr[0] == NULL) return (FALSE); /* find the appropriate attribute list */ if(scope == 1) { /* global attribute */ ap = &(handle->attrs); } else { /* local --- find the appropriate variable */ ap = &(vars[num]->attrs); #ifdef DEBUG fprintf(stderr,"\tAdding %s (%s) to Zvar %d \n", name, (scope == 1 ? "global" : "local"), (int)num); #endif } /* add the attribute to the list */ if(*ap == NULL) { /* first time */ (*ap) = NC_new_array(NC_ATTRIBUTE,(unsigned)1, (Void*)attr); if((*ap) == NULL) return (FALSE); } else { if(NC_incr_array((*ap), (Void *)attr) == NULL) return (FALSE); } } /* AEDZ loop */ } /* ADR loop */ /* * Set up the dimension list */ if(current_dim) handle->dims = NC_new_array(NC_DIMENSION, current_dim, (Void *) dim_rec); else handle->dims = NULL; /* * Set up the variable list define the variables */ if(current_var) handle->vars = NC_new_array(NC_VARIABLE, current_var, (Void *) vars); else handle->vars = NULL; return (TRUE); } /* nssdc_read_cdf */ /* ---------------------------- nssdc_write_cdf ---------------------------- */ /* Write a NC structure out to a CDF file */ bool_t nssdc_write_cdf(xdrs, handlep) XDR * xdrs; NC ** handlep; { #if DEBUG fprintf(stderr, "nssdc_write_cdf i've been called\n"); #endif #ifdef DEBUG fprintf(stderr, "We are sorry, we currently do not support writing to\n"); fprintf(stderr, "CDF files. If you would like to see this capabilities\n"); fprintf(stderr, "please contact the HDF group at NCSA.\n"); #endif return (FALSE); } /* nssdc_write_cdf */ /* ---------------------------- nssdc_xdr_cdf ----------------------------- */ /* Handle basic I/O of the NC structure. CDF analogue of hdf_xdr_cdf and NC_xdr_cdf */ bool_t nssdc_xdr_cdf(xdrs, handlep) XDR * xdrs; NC ** handlep; { int status; #if DEBUG fprintf(stderr, "nssdc_xdr_cdf i've been called op = %d \n", xdrs->x_op); #endif switch(xdrs->x_op) { case XDR_ENCODE : status = nssdc_write_cdf(xdrs, handlep); break; case XDR_DECODE : status = nssdc_read_cdf(xdrs, handlep); break; case XDR_FREE : NC_free_cdf((*handlep)); status = TRUE; break; default: status = TRUE; } return (status); } /* nssdc_xdr_cdf */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/dim.c0000644000000000000000000001747212421456623014400 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dim.c 5584 2011-04-13 18:25:06Z bmribler $ */ #include #include "local_nc.h" #include "alloc.h" NC_dim * NC_new_dim(name,size) const char *name ; long size ; { NC_dim *ret ; ret = (NC_dim *)HDmalloc(sizeof(NC_dim)) ; if( ret == NULL ) goto alloc_err ; ret->name = NC_new_string((unsigned)strlen(name),name) ; if( ret->name == NULL) goto alloc_err ; ret->size = size ; #ifdef HDF ret->vgid = 0; /* no vgroup representing this dimension yet -BMR 2010/12/29 */ ret->count = 1; /* ret->dim00_compat = (size == NC_UNLIMITED)? 0 : 1; */ ret->dim00_compat = 0; #endif /* HDF */ return(ret) ; alloc_err : nc_serror("NC_new_dim") ; return(NULL) ; } /* * Free dim * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ int NC_free_dim(dim) NC_dim *dim ; { int ret_value = SUCCEED; if(dim != NULL) { #ifdef HDF if (dim->count > 1) { dim->count -= 1; ret_value = SUCCEED; goto done; } #endif /* HDF */ if (NC_free_string(dim->name) == FAIL) { ret_value = FAIL; goto done; } Free(dim) ; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } int ncdimdef(cdfid, name, size) int cdfid ; const char *name ; long size ; { NC *handle ; NC_dim *dim[1] ; NC_dim **dp ; unsigned ii ; size_t len ; cdf_routine_name = "ncdimdef" ; if( !NC_indefine(cdfid,TRUE) ) return(-1) ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(size < 0) /* NC_UNLIMITED #define'd as 0 */ { NCadvise(NC_EINVAL, "Invalid size %d", size) ; return(-1) ; } if(handle->dims == NULL) /* first time */ { dim[0] = NC_new_dim(name, size) ; if(dim[0] == NULL) return(-1) ; handle->dims = NC_new_array(NC_DIMENSION,(unsigned)1, (Void *)dim) ; if(handle->dims == NULL) return(-1) ; } else if(handle->dims->count >= H4_MAX_NC_DIMS) { NCadvise(NC_EMAXDIMS, "maximum number of dimensions %d exceeded", handle->dims->count ) ; return(-1) ; } else { /* check for name in use */ len = strlen(name) ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(name, (*dp)->name->values, len) == 0) { NCadvise(NC_ENAMEINUSE, "dimension \"%s\" in use with index %d", (*dp)->name->values, ii) ; return(-1) ; } if((*dp)->size == NC_UNLIMITED && size == NC_UNLIMITED) { NCadvise(NC_EUNLIMIT, "NC_UNLIMITED size already in use: dimension \"%s\" (index %d)", (*dp)->name->values, ii) ; return(-1) ; } } dim[0] = NC_new_dim(name, size) ; if(dim[0] == NULL) return(-1) ; if( NC_incr_array(handle->dims, (Void *)dim) == NULL) return(-1) ; } return(handle->dims->count -1) ; } int NC_dimid( handle, name) NC *handle; char *name; { unsigned ii; size_t len; NC_dim **dp; len = strlen(name) ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(name, (*dp)->name->values, len) == 0) return(ii) ; } NCadvise(NC_EBADDIM, "dim \"%s\" not found", name) ; return(-1) ; } int ncdimid( cdfid, name) int cdfid ; const char *name ; { NC *handle ; NC_dim **dp ; unsigned ii ; size_t len ; cdf_routine_name = "ncdimid" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(handle->dims == NULL) return(-1) ; len = strlen(name) ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(name, (*dp)->name->values, len) == 0) return(ii) ; } NCadvise(NC_EBADDIM, "dim \"%s\" not found", name) ; return(-1) ; } int ncdiminq( cdfid, dimid, name, sizep) int cdfid ; int dimid ; char *name ; long *sizep ; { NC *handle ; NC_dim **dp ; cdf_routine_name = "ncdiminq" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(handle->dims == NULL) return(-1) ; if(dimid >= handle->dims->count) return(-1) ; dp = (NC_dim**)handle->dims->values ; dp += dimid ; if(name != NULL) { #ifdef HDF (void)memcpy( name, (*dp)->name->values, (size_t)(*dp)->name->len) ; #else (void)strncpy( name, (*dp)->name->values, (size_t)(*dp)->name->len) ; #endif name[(*dp)->name->len] = 0 ; } if(sizep != 0) { if((*dp)->size == NC_UNLIMITED) *sizep = handle->numrecs ; else *sizep = (*dp)->size ; } return(dimid) ; } int ncdimrename(cdfid, dimid, newname) int cdfid ; int dimid ; const char *newname ; { NC *handle ; NC_dim **dp ; NC_string *old, *new ; unsigned ii ; size_t len ; cdf_routine_name = "ncdimrename" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) return(-1) ; if(handle->dims == NULL) return(-1) ; /* check for name in use */ len = strlen(newname) ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(newname, (*dp)->name->values, len) == 0) { NCadvise(NC_ENAMEINUSE, "dimension \"%s\" in use with index %d", (*dp)->name->values, ii) ; return(-1) ; } } dp = (NC_dim**)handle->dims->values ; dp += dimid ; old = (*dp)->name ; if( NC_indefine(cdfid,FALSE) ) { new = NC_new_string((unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; (*dp)->name = new ; NC_free_string(old) ; return(dimid) ; } /* else */ new = NC_re_string(old, (unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; (*dp)->name = new ; if(handle->flags & NC_HSYNC) { handle->xdrs->x_op = XDR_ENCODE ; if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else handle->flags |= NC_HDIRTY ; return(dimid) ; } bool_t xdr_NC_dim(xdrs, dpp) XDR *xdrs; NC_dim **dpp; { if( xdrs->x_op == XDR_FREE) { NC_free_dim((*dpp)) ; return(TRUE) ; } if( xdrs->x_op == XDR_DECODE ) { *dpp = (NC_dim *)HDmalloc(sizeof(NC_dim)) ; if( *dpp == NULL ) { nc_serror("xdr_NC_dim") ; return(FALSE) ; } } #ifdef HDF /* hmm...what does this do? */ if( xdrs->x_op == XDR_DECODE ) (*dpp)->count = 0; #endif if( !xdr_NC_string(xdrs, &((*dpp)->name))) return(FALSE) ; return( xdr_long(xdrs, &((*dpp)->size)) ) ; } /* * How much space will the xdr'd dim take. */ int NC_xlen_dim(dpp) NC_dim **dpp ; { int len = 4 ; if(*dpp!=NULL) { len += NC_xlen_string((*dpp)->name) ; } return(len) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/depend0000644000000000000000000002072012421456623014633 0ustar array.o: array.c array.o: local_nc.h array.o: netcdf.h array.o: ../../hdf/src//hlimits.h array.o: ../../hdf/src//hdf.h array.o: ../../hdf/src//hdfi.h array.o: ../../hdf/src//hntdefs.h array.o: ../../hdf/src//htags.h array.o: ../../hdf/src//hbitio.h array.o: ../../hdf/src//hcomp.h array.o: ../../hdf/src//herr.h array.o: ../../hdf/src//hproto.h array.o: ../../hdf/src//vg.h array.o: ../../hdf/src//hfile.h array.o: ../../hdf/src//tbbt.h array.o: alloc.h attr.o: attr.c attr.o: local_nc.h attr.o: netcdf.h attr.o: ../../hdf/src//hlimits.h attr.o: ../../hdf/src//hdf.h attr.o: ../../hdf/src//hdfi.h attr.o: ../../hdf/src//hntdefs.h attr.o: ../../hdf/src//htags.h attr.o: ../../hdf/src//hbitio.h attr.o: ../../hdf/src//hcomp.h attr.o: ../../hdf/src//herr.h attr.o: ../../hdf/src//hproto.h attr.o: ../../hdf/src//vg.h attr.o: ../../hdf/src//hfile.h attr.o: ../../hdf/src//tbbt.h attr.o: alloc.h cdf.o: cdf.c cdf.o: local_nc.h cdf.o: netcdf.h cdf.o: ../../hdf/src//hlimits.h cdf.o: ../../hdf/src//hdf.h cdf.o: ../../hdf/src//hdfi.h cdf.o: ../../hdf/src//hntdefs.h cdf.o: ../../hdf/src//htags.h cdf.o: ../../hdf/src//hbitio.h cdf.o: ../../hdf/src//hcomp.h cdf.o: ../../hdf/src//herr.h cdf.o: ../../hdf/src//hproto.h cdf.o: ../../hdf/src//vg.h cdf.o: ../../hdf/src//hfile.h cdf.o: ../../hdf/src//tbbt.h cdf.o: alloc.h cdftest.o: cdftest.c cdftest.o: netcdf.h cdftest.o: ../../hdf/src//hlimits.h cdftest.o: ../../hdf/src//hdf.h cdftest.o: ../../hdf/src//hdfi.h cdftest.o: ../../hdf/src//hntdefs.h cdftest.o: ../../hdf/src//htags.h cdftest.o: ../../hdf/src//hbitio.h cdftest.o: ../../hdf/src//hcomp.h cdftest.o: ../../hdf/src//herr.h cdftest.o: ../../hdf/src//hproto.h dim.o: dim.c dim.o: local_nc.h dim.o: netcdf.h dim.o: ../../hdf/src//hlimits.h dim.o: ../../hdf/src//hdf.h dim.o: ../../hdf/src//hdfi.h dim.o: ../../hdf/src//hntdefs.h dim.o: ../../hdf/src//htags.h dim.o: ../../hdf/src//hbitio.h dim.o: ../../hdf/src//hcomp.h dim.o: ../../hdf/src//herr.h dim.o: ../../hdf/src//hproto.h dim.o: ../../hdf/src//vg.h dim.o: ../../hdf/src//hfile.h dim.o: ../../hdf/src//tbbt.h dim.o: alloc.h error.o: error.c error.o: local_nc.h error.o: netcdf.h error.o: ../../hdf/src//hlimits.h error.o: ../../hdf/src//hdf.h error.o: ../../hdf/src//hdfi.h error.o: ../../hdf/src//hntdefs.h error.o: ../../hdf/src//htags.h error.o: ../../hdf/src//hbitio.h error.o: ../../hdf/src//hcomp.h error.o: ../../hdf/src//herr.h error.o: ../../hdf/src//hproto.h error.o: ../../hdf/src//vg.h error.o: ../../hdf/src//hfile.h error.o: ../../hdf/src//tbbt.h file.o: file.c file.o: local_nc.h file.o: netcdf.h file.o: ../../hdf/src//hlimits.h file.o: ../../hdf/src//hdf.h file.o: ../../hdf/src//hdfi.h file.o: ../../hdf/src//hntdefs.h file.o: ../../hdf/src//htags.h file.o: ../../hdf/src//hbitio.h file.o: ../../hdf/src//hcomp.h file.o: ../../hdf/src//herr.h file.o: ../../hdf/src//hproto.h file.o: ../../hdf/src//vg.h file.o: ../../hdf/src//hfile.h file.o: ../../hdf/src//tbbt.h file.o: alloc.h globdef.o: globdef.c globdef.o: netcdf.h globdef.o: ../../hdf/src//hlimits.h hdfsds.o: hdfsds.c hdfsds.o: local_nc.h hdfsds.o: netcdf.h hdfsds.o: ../../hdf/src//hlimits.h hdfsds.o: ../../hdf/src//hdf.h hdfsds.o: ../../hdf/src//hdfi.h hdfsds.o: ../../hdf/src//hntdefs.h hdfsds.o: ../../hdf/src//htags.h hdfsds.o: ../../hdf/src//hbitio.h hdfsds.o: ../../hdf/src//hcomp.h hdfsds.o: ../../hdf/src//herr.h hdfsds.o: ../../hdf/src//hproto.h hdfsds.o: ../../hdf/src//vg.h hdfsds.o: ../../hdf/src//hfile.h hdfsds.o: ../../hdf/src//tbbt.h hdftest.o: hdftest.c hdftest.o: mfhdf.h hdftest.o: local_nc.h hdftest.o: netcdf.h hdftest.o: ../../hdf/src//hlimits.h hdftest.o: ../../hdf/src//hdf.h hdftest.o: ../../hdf/src//hdfi.h hdftest.o: ../../hdf/src//hntdefs.h hdftest.o: ../../hdf/src//htags.h hdftest.o: ../../hdf/src//hbitio.h hdftest.o: ../../hdf/src//hcomp.h hdftest.o: ../../hdf/src//herr.h hdftest.o: ../../hdf/src//hproto.h hdftest.o: ../../hdf/src//vg.h hdftest.o: ../../hdf/src//hfile.h hdftest.o: ../../hdf/src//tbbt.h iarray.o: iarray.c iarray.o: local_nc.h iarray.o: netcdf.h iarray.o: ../../hdf/src//hlimits.h iarray.o: ../../hdf/src//hdf.h iarray.o: ../../hdf/src//hdfi.h iarray.o: ../../hdf/src//hntdefs.h iarray.o: ../../hdf/src//htags.h iarray.o: ../../hdf/src//hbitio.h iarray.o: ../../hdf/src//hcomp.h iarray.o: ../../hdf/src//herr.h iarray.o: ../../hdf/src//hproto.h iarray.o: ../../hdf/src//vg.h iarray.o: ../../hdf/src//hfile.h iarray.o: ../../hdf/src//tbbt.h iarray.o: alloc.h mfsd.o: mfsd.c mfsd.o: mfhdf.h mfsd.o: local_nc.h mfsd.o: netcdf.h mfsd.o: ../../hdf/src/trace.h mfsd.o: ../../hdf/src//hlimits.h mfsd.o: ../../hdf/src//hdf.h mfsd.o: ../../hdf/src//hdfi.h mfsd.o: ../../hdf/src//hntdefs.h mfsd.o: ../../hdf/src//htags.h mfsd.o: ../../hdf/src//hbitio.h mfsd.o: ../../hdf/src//hcomp.h mfsd.o: ../../hdf/src//herr.h mfsd.o: ../../hdf/src//hproto.h mfsd.o: ../../hdf/src//vg.h mfsd.o: ../../hdf/src//hfile.h mfsd.o: ../../hdf/src//tbbt.h nssdc.o: nssdc.c nssdc.o: local_nc.h nssdc.o: netcdf.h nssdc.o: ../../hdf/src//hlimits.h nssdc.o: ../../hdf/src//hdf.h nssdc.o: ../../hdf/src//hdfi.h nssdc.o: ../../hdf/src//hntdefs.h nssdc.o: ../../hdf/src//htags.h nssdc.o: ../../hdf/src//hbitio.h nssdc.o: ../../hdf/src//hcomp.h nssdc.o: ../../hdf/src//herr.h nssdc.o: ../../hdf/src//hproto.h nssdc.o: ../../hdf/src//vg.h nssdc.o: ../../hdf/src//hfile.h nssdc.o: ../../hdf/src//tbbt.h putget.o: putget.c putget.o: local_nc.h putget.o: netcdf.h putget.o: ../../hdf/src//hlimits.h putget.o: ../../hdf/src//hdf.h putget.o: ../../hdf/src//hdfi.h putget.o: ../../hdf/src//hntdefs.h putget.o: ../../hdf/src//htags.h putget.o: ../../hdf/src//hbitio.h putget.o: ../../hdf/src//hcomp.h putget.o: ../../hdf/src//herr.h putget.o: ../../hdf/src//hproto.h putget.o: ../../hdf/src//vg.h putget.o: ../../hdf/src//hfile.h putget.o: ../../hdf/src//tbbt.h putget.o: alloc.h putgetg.o: putgetg.c putgetg.o: local_nc.h putgetg.o: netcdf.h putgetg.o: ../../hdf/src//hlimits.h putgetg.o: ../../hdf/src//hdf.h putgetg.o: ../../hdf/src//hdfi.h putgetg.o: ../../hdf/src//hntdefs.h putgetg.o: ../../hdf/src//htags.h putgetg.o: ../../hdf/src//hbitio.h putgetg.o: ../../hdf/src//hcomp.h putgetg.o: ../../hdf/src//herr.h putgetg.o: ../../hdf/src//hproto.h putgetg.o: ../../hdf/src//vg.h putgetg.o: ../../hdf/src//hfile.h putgetg.o: ../../hdf/src//tbbt.h sharray.o: sharray.c sharray.o: local_nc.h sharray.o: netcdf.h sharray.o: ../../hdf/src//hlimits.h sharray.o: ../../hdf/src//hdf.h sharray.o: ../../hdf/src//hdfi.h sharray.o: ../../hdf/src//hntdefs.h sharray.o: ../../hdf/src//htags.h sharray.o: ../../hdf/src//hbitio.h sharray.o: ../../hdf/src//hcomp.h sharray.o: ../../hdf/src//herr.h sharray.o: ../../hdf/src//hproto.h sharray.o: ../../hdf/src//vg.h sharray.o: ../../hdf/src//hfile.h sharray.o: ../../hdf/src//tbbt.h sharray.o: alloc.h string.o: string.c string.o: local_nc.h string.o: netcdf.h string.o: ../../hdf/src//hlimits.h string.o: ../../hdf/src//hdf.h string.o: ../../hdf/src//hdfi.h string.o: ../../hdf/src//hntdefs.h string.o: ../../hdf/src//htags.h string.o: ../../hdf/src//hbitio.h string.o: ../../hdf/src//hcomp.h string.o: ../../hdf/src//herr.h string.o: ../../hdf/src//hproto.h string.o: ../../hdf/src//vg.h string.o: ../../hdf/src//hfile.h string.o: ../../hdf/src//tbbt.h string.o: alloc.h var.o: var.c var.o: local_nc.h var.o: netcdf.h var.o: ../../hdf/src//hlimits.h var.o: ../../hdf/src//hdf.h var.o: ../../hdf/src//hdfi.h var.o: ../../hdf/src//hntdefs.h var.o: ../../hdf/src//htags.h var.o: ../../hdf/src//hbitio.h var.o: ../../hdf/src//hcomp.h var.o: ../../hdf/src//herr.h var.o: ../../hdf/src//hproto.h var.o: ../../hdf/src//vg.h var.o: ../../hdf/src//hfile.h var.o: ../../hdf/src//tbbt.h var.o: alloc.h xdrposix.o: xdrposix.c xdrposix.o: netcdf.h xdrposix.o: ../../hdf/src//hlimits.h xdrposix.o: local_nc.h xdrposix.o: ../../hdf/src//hdf.h xdrposix.o: ../../hdf/src//hdfi.h xdrposix.o: ../../hdf/src//hntdefs.h xdrposix.o: ../../hdf/src//htags.h xdrposix.o: ../../hdf/src//hbitio.h xdrposix.o: ../../hdf/src//hcomp.h xdrposix.o: ../../hdf/src//herr.h xdrposix.o: ../../hdf/src//hproto.h xdrposix.o: ../../hdf/src//vg.h xdrposix.o: ../../hdf/src//hfile.h xdrposix.o: ../../hdf/src//tbbt.h xdrposix.o: mfhdf.h xdrstdio.o: xdrstdio.c xdrstdio.o: local_nc.h xdrstdio.o: netcdf.h xdrstdio.o: ../../hdf/src//hlimits.h xdrstdio.o: ../../hdf/src//hdf.h xdrstdio.o: ../../hdf/src//hdfi.h xdrstdio.o: ../../hdf/src//hntdefs.h xdrstdio.o: ../../hdf/src//htags.h xdrstdio.o: ../../hdf/src//hbitio.h xdrstdio.o: ../../hdf/src//hcomp.h xdrstdio.o: ../../hdf/src//herr.h xdrstdio.o: ../../hdf/src//hproto.h xdrstdio.o: ../../hdf/src//vg.h xdrstdio.o: ../../hdf/src//hfile.h xdrstdio.o: ../../hdf/src//tbbt.h libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/iarray.c0000644000000000000000000000672012421456623015110 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: iarray.c 4963 2007-09-15 17:20:52Z bmribler $ */ #include "local_nc.h" #include "alloc.h" NC_iarray * NC_new_iarray(count, values) unsigned count ; const int *values ; /* VAX C doesn't like values[] */ { NC_iarray *ret ; int *ip ; size_t memlen ; ret = (NC_iarray *)HDmalloc(sizeof(NC_iarray)) ; if( ret == NULL ) goto alloc_err ; ret->count = count ; if(count != 0 ) /* allocate */ { memlen = count * sizeof(int) ; ret->values = (int *)HDmalloc(memlen) ; if(ret->values == NULL) goto alloc_err ; if(values != NULL) /* copy them in */ { for(ip = ret->values ; count > 0; count--) *ip++ = *values++ ; } } else { ret->values = NULL ; } return(ret) ; alloc_err : nc_serror("NC_new_iarray") ; return(NULL) ; } /* * Free iarray, and, if needed, its values. * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ int NC_free_iarray(iarray) NC_iarray *iarray ; { int ret_value = SUCCEED; if(iarray != NULL) { if(iarray->values != NULL) Free(iarray->values) ; Free(iarray) ; } return ret_value; } bool_t xdr_NC_iarray(xdrs, ipp) XDR *xdrs; NC_iarray **ipp; { int *ip ; u_long count ; bool_t stat = TRUE ; switch (xdrs->x_op) { case XDR_FREE: NC_free_iarray((*ipp)) ; return(TRUE) ; case XDR_DECODE: /* need the length to pass to new */ if (! xdr_u_long(xdrs, &count)) { return (FALSE); } (*ipp) = NC_new_iarray((unsigned)count, (int *)NULL) ; if((*ipp) == NULL) return(FALSE) ; /* then deal with the array */ for( ip = (*ipp)->values ; (count > 0 ) && stat ; count-- ) stat = xdr_int(xdrs, ip++ ) ; return(stat) ; case XDR_ENCODE: /* first deal with the length */ count = (*ipp)->count ; if (! xdr_u_long(xdrs, &count) ) { return (FALSE); } /* then deal with the array */ for(ip = (*ipp)->values ; (count > 0 ) && stat ; count--) stat = xdr_int(xdrs, ip++ ) ; return(stat) ; } return(FALSE) ; } /* * How much space will the xdr'd iarray take. */ int NC_xlen_iarray(iarray) NC_iarray *iarray ; { int len = 4 ; if(iarray!=NULL) { len += iarray->count * 4 ; } return(len) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/attr.c0000644000000000000000000002657212421456623014602 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: attr.c 4963 2007-09-15 17:20:52Z bmribler $ */ #include #include "local_nc.h" #include "alloc.h" NC_attr * NC_new_attr(name,type,count,values) const char *name ; nc_type type ; unsigned count ; const void *values ; { NC_attr *ret ; ret = (NC_attr *)HDmalloc(sizeof(NC_attr)) ; if( ret == NULL ) goto alloc_err ; ret->name = NC_new_string((unsigned)strlen(name),name) ; if( ret->name == NULL) goto alloc_err ; ret->data = NC_new_array(type, count, values) ; if( ret->data == NULL) goto alloc_err ; #ifdef HDF ret->HDFtype = hdf_map_type(type); #endif return(ret) ; alloc_err : nc_serror("NC_new_attr") ; return(NULL) ; } /* * Free attr * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ int NC_free_attr(attr) NC_attr *attr ; { int ret_value = SUCCEED; if(attr != NULL) { if (NC_free_string(attr->name) == FAIL) { ret_value = FAIL; goto done; } if (NC_free_array(attr->data) == FAIL) { ret_value = FAIL; goto done; } Free(attr) ; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* * Verify that this is a user nc_type */ bool_t NCcktype(datatype) nc_type datatype ; { switch(datatype){ case NC_BYTE : case NC_CHAR : case NC_SHORT : case NC_LONG : case NC_FLOAT : case NC_DOUBLE : return(TRUE) ; default: break; } NCadvise(NC_EBADTYPE, "Unknown type %d", datatype) ; return(FALSE) ; } /* * Given cdfid and varid, return handle to array of attributes * else NULL on error */ static NC_array ** NC_attrarray( cdfid, varid ) int cdfid ; int varid ; { NC *handle ; NC_array **ap ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(NULL) ; if(varid == NC_GLOBAL) /* Global attribute, attach to cdf */ { ap = &(handle->attrs) ; }else if(handle->vars != NULL && varid >= 0 && (unsigned)varid < handle->vars->count) { ap = (NC_array **)handle->vars->values ; ap += varid ; ap = &(((NC_var *)(*ap))->attrs) ; /* Whew! */ } else { NCadvise(NC_EINVAL, "%d is not a valid variable id", varid) ; ap = NULL ; } return(ap) ; } /* * Step thru NC_ATTRIBUTE array, seeking match on name. * return match or NULL if Not Found. */ NC_attr ** NC_findattr(ap, name) NC_array **ap ; const char *name ; { NC_attr **attr ; unsigned attrid ; size_t len ; if(*ap == NULL) return(NULL) ; attr = (NC_attr **) (*ap)->values ; len = strlen(name) ; for(attrid = 0 ; attrid < (*ap)->count ; attrid++, attr++) { if( len == (*attr)->name->len && strncmp(name, (*attr)->name->values, len) == 0) { return(attr) ; /* Normal return */ } } return(NULL) ; } /* * Look up by cdfid, varid and name, return NULL if not found */ static NC_attr ** NC_lookupattr( cdfid, varid, name, verbose) int cdfid ; int varid ; const char *name ; /* attribute name */ bool_t verbose ; { NC_array **ap ; NC_attr **attr ; ap = NC_attrarray(cdfid, varid) ; if(ap == NULL) return(NULL) ; attr = NC_findattr(ap, name ) ; if(verbose && attr == NULL) NCadvise(NC_ENOTATT, "attribute \"%s\" not found",name) ; return( attr ) ; } /* * Common code for attput and attcopy */ static int NC_aput(cdfid, ap, name, datatype, count, values) int cdfid ; NC_array **ap ; const char *name ; nc_type datatype ; unsigned count ; const void *values ; { NC *handle ; NC_attr *attr[1] ; NC_attr **atp, *old ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) return(-1) ; if(*ap == NULL ) /* first time */ { if( !NC_indefine(cdfid,TRUE) ) return(-1) ; attr[0] = NC_new_attr(name,datatype,count,values) ; if(attr[0] == NULL) return(-1) ; *ap = NC_new_array(NC_ATTRIBUTE,(unsigned)1, (Void*)attr) ; if(*ap == NULL) return(-1) ; return((*ap)->count -1) ; } /* else */ if( (atp = NC_findattr(ap, name)) != NULL) /* name in use */ { if( NC_indefine(cdfid,FALSE) ) { old = *atp ; *atp = NC_new_attr(name,datatype,count,values) ; if(*atp == NULL) { *atp = old ; return(-1) ; } NC_free_attr(old) ; return((*ap)->count -1) ; } /* else */ if( NC_re_array((*atp)->data, datatype,count,values) == NULL) { NCadvise(NC_ENOTINDEFINE, "Can't increase size unless in define mode") ; return(-1) ; } /* else */ #ifdef HDF (*atp)->HDFtype = hdf_map_type(datatype); #endif if(handle->flags & NC_HSYNC) { handle->xdrs->x_op = XDR_ENCODE ; if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else handle->flags |= NC_HDIRTY ; return((*ap)->count -1) ; } /* else */ if((*ap)->count >= H4_MAX_NC_ATTRS) { NCadvise(NC_EMAXATTS, "maximum number of attributes %d exceeded", (*ap)->count ) ; return(-1) ; } /* else */ if( NC_indefine(cdfid,TRUE) ) { attr[0] = NC_new_attr(name,datatype,count,values) ; if(attr[0] == NULL) return(-1) ; if( NC_incr_array((*ap), (Void *)attr) == NULL) return(-1) ; return((*ap)->count -1) ; } /* else */ return(-1) ; } int ncattput(cdfid, varid, name, datatype, count, values) int cdfid ; int varid ; const char *name ; nc_type datatype ; int count ; const ncvoid *values ; { NC_array **ap ; cdf_routine_name = "ncattput" ; ap = NC_attrarray(cdfid, varid) ; if(ap == NULL) return(-1) ; if(count < 0 ) { NCadvise(NC_EINVAL, "Invalid length %d", count) ; return(-1) ; } if(!NCcktype(datatype)) return(-1) ; return( NC_aput(cdfid, ap, name, datatype, (unsigned)count, values) ) ; } int ncattname( cdfid, varid, attnum, name) int cdfid ; int varid ; int attnum ; char *name ; { NC_array **ap ; NC_attr **attr ; cdf_routine_name = "ncattname" ; ap = NC_attrarray(cdfid, varid) ; if(ap == NULL || *ap == NULL) return(-1) ; if( attnum < 0 || attnum >= (*ap)->count) { NCadvise(NC_ENOTATT, "%d is not a valid attribute id", attnum) ; return(-1) ; } attr = (NC_attr **) (*ap)->values ; attr += attnum ; #ifdef HDF (void)memcpy( name, (*attr)->name->values, (*attr)->name->len) ; #else (void)strncpy( name, (*attr)->name->values, (*attr)->name->len) ; #endif name[(*attr)->name->len] = 0 ; return(attnum) ; } int ncattinq( cdfid, varid, name, datatypep, countp) int cdfid ; int varid ; const char *name ; /* input, attribute name */ nc_type *datatypep ; int *countp ; { NC_attr **attr ; cdf_routine_name = "ncattinq" ; attr = NC_lookupattr(cdfid,varid,name,TRUE) ; if(attr == NULL) return(-1) ; if(datatypep != 0) *datatypep = (*attr)->data->type ; if(countp != 0) *countp = (*attr)->data->count ; return(1) ; } int ncattrename(cdfid, varid, name, newname) int cdfid ; int varid ; const char *name ; const char *newname ; { NC *handle ; NC_attr **attr ; NC_string *new, *old ; cdf_routine_name = "cdfattrrename" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) return(-1) ; attr = NC_lookupattr(cdfid,varid,name,TRUE) ; if(attr == NULL) return(-1) ; if( NC_lookupattr(cdfid,varid,newname,FALSE) != NULL) /* name in use */ return(-1) ; old = (*attr)->name ; if( NC_indefine(cdfid,FALSE) ) { new = NC_new_string((unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; (*attr)->name = new ; NC_free_string(old) ; return(1) ; } /* else */ new = NC_re_string(old, (unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; (*attr)->name = new ; if(handle->flags & NC_HSYNC) { handle->xdrs->x_op = XDR_ENCODE ; if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else handle->flags |= NC_HDIRTY ; return(1) ; } int ncattcopy( incdf, invar, name, outcdf, outname) int incdf ; int invar ; const char *name ; int outcdf ; int outname ; { NC_attr **attr ; NC_array **ap ; cdf_routine_name = "ncattcopy" ; attr = NC_lookupattr(incdf,invar,name,TRUE) ; if(attr == NULL) return(-1) ; ap = NC_attrarray(outcdf, outname) ; if(ap == NULL) return(-1) ; return( NC_aput(outcdf, ap, name, (*attr)->data->type, (*attr)->data->count, (*attr)->data->values) ) ; } int ncattdel(cdfid, varid, name) int cdfid ; int varid ; const char *name ; { NC_array **ap ; NC_attr **attr ; NC_attr *old = NULL ; unsigned attrid ; size_t len ; cdf_routine_name = "ncattdel" ; if( !NC_indefine(cdfid,TRUE) ) return(-1) ; ap = NC_attrarray(cdfid, varid) ; if(ap == NULL || *ap == NULL) return(-1) ; attr = (NC_attr **) (*ap)->values ; len = strlen(name); for(attrid = 0 ; attrid < (*ap)->count ; attrid++, attr++) { if( len == (*attr)->name->len && strncmp(name, (*attr)->name->values, len) == 0) { old = *attr ; break ; } } if( attrid == (*ap)->count ) { NCadvise(NC_ENOTATT, "attribute \"%s\" not found",name) ; return(-1) ; } /* shuffle down */ for(attrid++ ; attrid < (*ap)->count ; attrid++) { *attr = *(attr + 1) ; attr++ ; } /* decrement count */ (*ap)->count-- ; NC_free_attr(old) ; return(1) ; } int ncattget(cdfid, varid, name, values) int cdfid ; int varid ; const char *name ; ncvoid *values ; { NC_attr **attr ; cdf_routine_name = "ncattget" ; attr = NC_lookupattr(cdfid,varid,name,TRUE) ; if(attr == NULL) return(-1) ; NC_copy_arrayvals((char *)values, (*attr)->data) ; return(1) ; } bool_t xdr_NC_attr(xdrs, app) XDR *xdrs; NC_attr **app; { bool_t ret_value; if( xdrs->x_op == XDR_FREE) { NC_free_attr((*app)) ; return(TRUE) ; } if( xdrs->x_op == XDR_DECODE ) { *app = (NC_attr *)HDmalloc(sizeof(NC_attr)) ; if( *app == NULL ) { nc_serror("xdr_NC_attr") ; return(FALSE) ; } } if( !xdr_NC_string(xdrs, &((*app)->name))) return(FALSE) ; ret_value = xdr_NC_array(xdrs, &((*app)->data)) ; #ifdef HDF (*app)->HDFtype = hdf_map_type(((*app)->data)->type); #endif return ret_value; } /* * How much space will the xdr'd attr take. */ int NC_xlen_attr(app) NC_attr **app ; { int len ; if(*app == NULL) return(4) ; len = NC_xlen_string((*app)->name) ; len += NC_xlen_array((*app)->data) ; return(len) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/Makefile.in0000644000000000000000000006566112421456623015533 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(am__include_HEADERS_DIST) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/netcdf.h.in \ $(top_srcdir)/bin/depcomp $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ subdir = mfhdf/libsrc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = netcdf.h 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)$(includedir)" LTLIBRARIES = $(lib_LTLIBRARIES) @HDF_BUILD_XDR_TRUE@libmfhdf_la_DEPENDENCIES = $(XDRLIB) am__libmfhdf_la_SOURCES_DIST = array.c attr.c cdf.c dim.c file.c \ hdfsds.c iarray.c error.c globdef.c mfsd.c mfdatainfo.c \ nssdc.c putget.c putgetg.c sharray.c string.c var.c xdrposix.c \ $(top_srcdir)/mfhdf/fortran/mfsdf.c \ $(top_srcdir)/mfhdf/fortran/mfsdff.f \ $(top_builddir)/mfhdf/fortran/jackets.c am__objects_1 = array.lo attr.lo cdf.lo dim.lo file.lo hdfsds.lo \ iarray.lo error.lo globdef.lo mfsd.lo mfdatainfo.lo nssdc.lo \ putget.lo putgetg.lo sharray.lo string.lo var.lo xdrposix.lo @HDF_BUILD_NETCDF_FALSE@am__objects_2 = mfsdf.lo mfsdff.lo @HDF_BUILD_NETCDF_TRUE@am__objects_2 = jackets.lo mfsdf.lo mfsdff.lo @HDF_BUILD_FORTRAN_FALSE@am_libmfhdf_la_OBJECTS = $(am__objects_1) @HDF_BUILD_FORTRAN_TRUE@am_libmfhdf_la_OBJECTS = $(am__objects_1) \ @HDF_BUILD_FORTRAN_TRUE@ $(am__objects_2) libmfhdf_la_OBJECTS = $(am_libmfhdf_la_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) SOURCES = $(libmfhdf_la_SOURCES) DIST_SOURCES = $(am__libmfhdf_la_SOURCES_DIST) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__include_HEADERS_DIST = hdf2netcdf.h local_nc.h mfhdf.h \ hdf4_netcdf.h mfhdfi.h mfdatainfo.h netcdf.h HEADERS = $(include_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ############################################################################# ############################################################################# lib_LTLIBRARIES = libmfhdf.la CSOURCES = array.c attr.c cdf.c dim.c file.c hdfsds.c iarray.c error.c \ globdef.c mfsd.c mfdatainfo.c nssdc.c putget.c putgetg.c \ sharray.c string.c var.c xdrposix.c @HDF_BUILD_NETCDF_FALSE@FSOURCES = $(top_srcdir)/mfhdf/fortran/mfsdf.c $(top_srcdir)/mfhdf/fortran/mfsdff.f @HDF_BUILD_NETCDF_TRUE@FSOURCES = $(top_builddir)/mfhdf/fortran/jackets.c $(top_srcdir)/mfhdf/fortran/mfsdf.c $(top_srcdir)/mfhdf/fortran/mfsdff.f @HDF_BUILD_FORTRAN_FALSE@libmfhdf_la_SOURCES = $(CSOURCES) @HDF_BUILD_FORTRAN_TRUE@libmfhdf_la_SOURCES = $(CSOURCES) $(FSOURCES) @HDF_BUILD_XDR_TRUE@XDRLIB = $(top_builddir)/mfhdf/xdr/libxdr.la @HDF_BUILD_XDR_TRUE@libmfhdf_la_LIBADD = $(XDRLIB) @HDF_BUILD_NETCDF_FALSE@include_HEADERS = hdf2netcdf.h local_nc.h mfhdf.h hdf4_netcdf.h mfhdfi.h mfdatainfo.h @HDF_BUILD_NETCDF_TRUE@include_HEADERS = hdf2netcdf.h local_nc.h mfhdf.h netcdf.h mfhdfi.h mfdatainfo.h @HDF_BUILD_FORTRAN_FALSE@F77LINK = $(LINK) ############################################################################# ############################################################################# DISTCLEANFILES = *.new *.hdf *.cdf *.cdl netcdf.h hdf4_netcdf.h This* all: all-am .SUFFIXES: .SUFFIXES: .c .f .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 mfhdf/libsrc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/libsrc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): netcdf.h: $(top_builddir)/config.status $(srcdir)/netcdf.h.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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}; \ } libmfhdf.la: $(libmfhdf_la_OBJECTS) $(libmfhdf_la_DEPENDENCIES) $(EXTRA_libmfhdf_la_DEPENDENCIES) $(F77LINK) -rpath $(libdir) $(libmfhdf_la_OBJECTS) $(libmfhdf_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/array.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/attr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dim.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/error.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/file.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/globdef.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfsds.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/iarray.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/jackets.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfdatainfo.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfsd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfsdf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/nssdc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/putget.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/putgetg.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sharray.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/string.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/var.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdrposix.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mfsdf.lo: $(top_srcdir)/mfhdf/fortran/mfsdf.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT mfsdf.lo -MD -MP -MF $(DEPDIR)/mfsdf.Tpo -c -o mfsdf.lo `test -f '$(top_srcdir)/mfhdf/fortran/mfsdf.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/fortran/mfsdf.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/mfsdf.Tpo $(DEPDIR)/mfsdf.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_srcdir)/mfhdf/fortran/mfsdf.c' object='mfsdf.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o mfsdf.lo `test -f '$(top_srcdir)/mfhdf/fortran/mfsdf.c' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/fortran/mfsdf.c jackets.lo: $(top_builddir)/mfhdf/fortran/jackets.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT jackets.lo -MD -MP -MF $(DEPDIR)/jackets.Tpo -c -o jackets.lo `test -f '$(top_builddir)/mfhdf/fortran/jackets.c' || echo '$(srcdir)/'`$(top_builddir)/mfhdf/fortran/jackets.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/jackets.Tpo $(DEPDIR)/jackets.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$(top_builddir)/mfhdf/fortran/jackets.c' object='jackets.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o jackets.lo `test -f '$(top_builddir)/mfhdf/fortran/jackets.c' || echo '$(srcdir)/'`$(top_builddir)/mfhdf/fortran/jackets.c .f.o: $(F77COMPILE) -c -o $@ $< .f.obj: $(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .f.lo: $(LTF77COMPILE) -c -o $@ $< mfsdff.lo: $(top_srcdir)/mfhdf/fortran/mfsdff.f $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o mfsdff.lo `test -f '$(top_srcdir)/mfhdf/fortran/mfsdff.f' || echo '$(srcdir)/'`$(top_srcdir)/mfhdf/fortran/mfsdff.f mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs 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) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) installdirs: for dir in "$(DESTDIR)$(libdir)" "$(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: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-includeHEADERS 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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-includeHEADERS uninstall-libLTLIBRARIES .MAKE: install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am 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-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 uninstall uninstall-am uninstall-includeHEADERS \ uninstall-libLTLIBRARIES # mfdatainfo.h should be added conditionally only; should local_nc.h even be here? -BMR # The following is a workaround. Since Fortran is included in this # Makefile.am, automake will always try to use the Fortran linker, even when # fortran has been disabled in configure. The Fortran linker gets confused # when shared libraries are enabled, so when Fortran is not enabled, # this replaces the Fortran link macro with the C link macro. @HDF_BUILD_FORTRAN_TRUE@ # do nothing # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfsd.c0000644000000000000000000065550512421456623014565 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* $Id: mfsd.c 6036 2014-01-20 17:28:01Z acheng $ */ /****************************************************************************** file - mfsd.c This file contains the HDF/netCDF based multi-file interface for SDSs All of the routines that make up this interface have names beginning with SD. Routines beginning with SDI are internal routines and should not be used outside of this module. Defining SDDEBUG will print status messages to stderr SD interface: ------------------ --- open a file --- fid = SDstart(file name, access); --- get number of data sets and number of attributes in the file --- status = SDfileinfo(fid, *n_datasets, *n_attrs); --- select a data set for access --- sdsid = SDselect(fid, i, ...); 0 <= i < n_datasets --- return the name, rank, dimsizes, #of attr, datatype --- status = SDgetinfo(sdsid, ...); status = SDreaddata(sdsid, ...); status = SDgetrange(sdsid, ...); status = SDend(fid); status = SDisdimval_bwcomp(dimid); --- check whether a data set is empty status = SDcheckempty(sdsid, ...); --- retrieve the compression information of an SDS status = SDgetcompinfo(sdsid, ...); --- retrieve the compression method of an SDS status = SDgetcomptype(sdsid, ...); --- retrieve the compressed and uncompressed sizes of an SDS' data status = SDgetdatasize(sdsid, ...); --- take an id and determine if it is an SD id, SDS id, dim id, --- --- or none of the above --- id_type = SDidtype(an_id); --- reset the maximum number of files can be opened at a time. max_files = SDreset_maxopenfiles(req_max); --- retrieve the current number of opened files allowed in HDF and --- the maximum number of opened files allowed on a system. status = SDget_maxopenfiles(&curr_max, &sys_limit); --- return the number of files currently being opened. num_files = SDget_numopenfiles(); --- get the number of variables in the file having the given name. status = SDgetnumvars_byname(fid,...); --- map a dataset name to an index. index = SDnametoindex(int32 fid,...); --- retrieve a list of variables having the given name. status = SDnametoindices(fid,...); NOTE: This file needs to have the comments cleaned up for most of the functions here. -GV 9/10/97 ******************************************************************************/ #include "local_nc.h" #ifdef HDF #include "mfhdf.h" #include "hfile.h" #ifdef H4_HAVE_LIBSZ /* we have the szip library */ #include "szlib.h" #ifndef MIN #define MIN(a,b) (((a)<(b)) ? (a) : (b)) #endif #endif /* for Chunk debugging */ /* #define CHK_DEBUG */ #ifndef MFSD_INTERNAL #define MFSD_INTERNAL #endif #ifdef MFSD_INTERNAL /* Private function prototypes */ #include "mfprivate.h" #endif /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDIhandle_from_id -- get the handle from this object DESCRIPTION Map an ID to the handle for this file RETURNS NULL or the handle ******************************************************************************/ NC * SDIhandle_from_id(int32 id, /* IN: an object (file, dim, dataset) ID */ intn typ /* IN: IN: the type of ID this is */) { int32 tmp; NC *ret_value = NULL; /* check that it is the proper type of id */ tmp = (id >> 16) & 0x0f; if(tmp != typ) { ret_value = NULL; goto done; } /* get the file from top 12 bits*/ tmp = (id >> 20) & 0xfff; ret_value = NC_check_id((int)tmp); done: if (ret_value == NULL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIhandle_from_id */ /****************************************************************************** NAME SDIget_var -- get the variable record DESCRIPTION Map an ID and a handle to the NC_var object for this dataset RETURNS NULL or the variable object ******************************************************************************/ NC_var * SDIget_var(NC *handle, /* IN: the handle for this file */ int32 sdsid /* IN: a dataset ID */) { int32 varid; NC_array **ap = NULL; NC_var *ret_value = NULL; /* varid is low 16bits of sdsid */ varid = sdsid & 0xffff; if(handle->vars != NULL && varid >= 0 && varid < handle->vars->count) { ap = (NC_array **)handle->vars->values; ap += varid; } else { ret_value = NULL; goto done; } ret_value = ((NC_var *)*ap); done: if (ret_value == NULL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIget_var */ /****************************************************************************** NAME SDIget_dim -- get the dimension record DESCRIPTION Map an ID and a handle to the NC_dim object for this dimension RETURNS NULL or the variable object ******************************************************************************/ NC_dim * SDIget_dim(NC *handle,/* IN: the handle for this file */ int32 id /* IN: a dimension ID */) { int32 dimindex; NC_array **ap = NULL; NC_dim *ret_value = NULL; /* dimindex is low 16bits of id */ dimindex = id & 0xffff; if(handle->dims != NULL && dimindex >= 0 && dimindex < handle->dims->count) { ap = (NC_array **)handle->dims->values; ap += dimindex; } else { ret_value = NULL; goto done; } ret_value = ((NC_dim *)*ap); done: if (ret_value == NULL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIget_dim */ #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDIstart -- initialize the SD interface DESCRIPTION Register the atexit callback function, etc. RETURNS SUCCEED/FAIL ******************************************************************************/ static intn SDIstart(void) { CONSTR(FUNC, "SDIstart"); /* for HGOTO_ERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&SDPfreebuf) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end SDIstart() */ #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDI_can_clobber -- check permission on the file DESCRIPTION Check the file permissions. If OK to clobber the file, return 1, else return 0. Called by SDstart. RETURNS 1 if OK to clobber 0 if not OK to overwrite ******************************************************************************/ int SDI_can_clobber(const char *name) { int res; struct stat buf; FILE *ff; res = stat(name, &buf); if (res < 0) { /* no such file, OK to try to create it */ return(1); } ff = HI_OPEN(name, DFACC_RDWR); if (ff != NULL) { /* OK to open for write, so OK to clobber it */ HI_CLOSE(ff); return(1); } /* no permission to write, don't do the create */ return(0); } #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDstart -- open a file DESCRIPTION Open a file by calling ncopen() or nccreate() and return a file ID to the file. RETURNS A file ID or FAIL ******************************************************************************/ int32 SDstart(const char *name, /* IN: file name to open */ int32 HDFmode /* IN: access mode to open file with */) { CONSTR(FUNC, "SDstart"); /* for HGOTO_ERROR */ intn cdfid; int32 fid; intn NCmode; NC *handle = NULL; int32 ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDstart: I've been called\n"); #endif /* clear error stack */ HEclear(); /* turn off annoying crash on error stuff */ ncopts = 0; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(SDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* check access mode */ if(HDFmode & DFACC_WRITE) NCmode = NC_RDWR; else NCmode = NC_NOWRITE; if(HDFmode & DFACC_CREATE) { /* create file */ if(!SDI_can_clobber(name)) HGOTO_ERROR(DFE_DENIED, FAIL); cdfid = nccreate(name, NC_CLOBBER); } else { /* open the file */ cdfid = ncopen(name, NCmode); } /* check if bad create/open */ if(cdfid == -1) { /* catch what's on the stack; this is to catch specific error code, when the failure was due to "too many open files" -BMR- 2006/11/1 */ int16 err = HEvalue(1); HGOTO_ERROR(err, FAIL); } /* hmm.....*/ handle = NC_check_id(cdfid); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* set in 'define' mode? */ handle->flags &= ~(NC_INDEF); /* create file id to return */ fid = (((int32) cdfid) << 20) + (((int32) CDFTYPE) << 16) + cdfid; ret_value = fid; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDstart */ /****************************************************************************** NAME SDend -- close a file DESCRIPTION Close the file RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDend(int32 id /* IN: file ID of file to close */) { intn cdfid; NC *handle = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDend: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get id? */ cdfid = (intn)id & 0xffff; #ifndef SYNC_ON_EACC /* get the handle */ handle = SDIhandle_from_id(id, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* make sure we can write to the file */ if(handle->flags & NC_RDWR) { handle->xdrs->x_op = XDR_ENCODE; /* see if the meta-data needs to be updated */ if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle)) { ret_value = FAIL; goto done; } handle->flags &= ~(NC_NDIRTY | NC_HDIRTY); } else { /* see if the numrecs info needs updating */ if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle)) { ret_value = FAIL; goto done; } if (handle->file_type != HDF_FILE) handle->flags &= ~(NC_NDIRTY); } } } #endif /* SYNC_ON_EACC */ /* call netCDF close */ ret_value = ncclose(cdfid); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDend */ /****************************************************************************** NAME SDfileinfo -- get info about an open file DESCRIPTION Return the number of datasets and global attributes in the file. NOTE: the number of datasets includes coordinate variable datasets. The routine SDiscoordvar() should be used if the distinction is important. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDfileinfo(int32 fid, /* IN: file ID */ int32 *datasets,/* OUT: number of datasets in the file */ int32 *attrs /* OUT: number of global attributes */) { NC *handle = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDnumber: I've been called\n"); #endif /* clear error stack */ HEclear(); /* check that fid is valid and get file structure */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } #ifdef SDDEBUG fprintf(stderr, "SDnumber: looked up handle as %d\n", handle); #endif /* get number of data sets and global attributes */ *(int32 *)datasets = ((handle->vars != NULL) ? handle->vars->count : 0); *(int32 *)attrs = ((handle->attrs != NULL) ? handle->attrs->count : 0); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDfileinfo */ /****************************************************************************** NAME SDselect -- get a dataset ID DESCRIPTION Return an id for the index-th data set in the file We've got 32bits, the current ID looks like: sdsID: 32 20 16 0 ---------------------------------------- | fid | id-type| position index | ---------------------------------------- fid is the netCDF based file ID (i.e. from ncopen). ID type is SDSTYPE defined in mfhdf.h and position index is the position in the file of this dataset. The position index is zero based RETURNS An ID to a dataset else FAIL ******************************************************************************/ int32 SDselect(int32 fid, /* IN: file ID */ int32 index /* IN: index of dataset to get ID for */) { NC *handle = NULL; int32 sdsid; /* the id we're gonna build */ int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDselect: I've been called (index: %d) \n", index); #endif /* clear error stack */ HEclear(); /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* check that a data set with this index exists */ if(handle->vars == NULL) { ret_value = FAIL; goto done; } if((unsigned)index >= handle->vars->count) { ret_value = FAIL; goto done; } /* create SDS id to return */ sdsid = (((int32) fid & 0xffff) << 20) + (((int32) SDSTYPE) << 16) + index; ret_value = sdsid; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDselect */ /****************************************************************************** NAME SDgetinfo -- get info about a dataset DESCRIPTION The user is repsonsible for allocating space to hold the dataset name. It can be at most H4_MAX_NC_NAME characters in length. NULL can be passed for any of of the parameters if it is not required. dimsizes should be an array to hold the dimension sizes a dataset can have at most H4_MAX_VAR_DIMS dimensions. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetinfo(int32 sdsid, /* IN: dataset ID */ char *name, /* OUT: name of the dataset */ int32 *rank, /* OUT: rank of the dataset */ int32 *dimsizes,/* OUT: array of dimension siszes */ int32 *nt, /* OUT: number type of data */ int32 *nattrs /* OUT: the number of local attributes */) { CONSTR(FUNC, "SDgetinfo"); /* for HGOTO_ERROR */ intn i; NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetinfo: I've been called\n"); #endif /* clear error stack */ HEclear(); /* obtain the variable structure */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get sds name if it's requested */ if(name != NULL) { HDmemcpy(name, var->name->values, var->name->len); name[var->name->len] = '\0'; } /* get sds' rank if it is requested */ if(rank != NULL) *rank = var->assoc->count; /* get sds' number type if it is requested */ if(nt != NULL) { if(!var->HDFtype) *nt = hdf_map_type(var->type); else *nt = var->HDFtype; } /* get sds' number of attributes if it is requested */ if(nattrs != NULL) *nattrs = (var->attrs ? var->attrs->count : 0); /* get sds' dimension sizes if they are requested */ if(dimsizes != NULL) { for(i = 0; i < var->assoc->count; i++) dimsizes[i] = (int32) var->shape[i]; if(dimsizes[0] == NC_UNLIMITED) { if(handle->file_type == HDF_FILE) dimsizes[0] = var->numrecs; else dimsizes[0] = handle->numrecs; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetinfo */ /****************************************************************************** NAME SDreaddata -- read a hyperslab of data DESCRIPTION Read a hyperslab of data from the given variable. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDreaddata(int32 sdsid, /* IN: dataset ID */ int32 *start, /* IN: coords of starting point */ int32 *stride, /* IN: stride along each dimension */ int32 *end, /* IN: number of values to read per dimension */ void *data /* OUT: data buffer */) { CONSTR(FUNC, "SDreaddata"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_dim *dim = NULL; intn varid; int32 status; comp_coder_t comp_type=COMP_CODE_INVALID; uint32 comp_config; NC_var * var; #ifdef BIG_LONGS long Start[H4_MAX_VAR_DIMS]; long End[H4_MAX_VAR_DIMS]; long Stride[H4_MAX_VAR_DIMS]; #else long *Start = NULL; long *End = NULL; long *Stride = NULL; #endif intn ret_value = SUCCEED; /* This decides how a dataset with unlimited dimension is read along the unlimited dimension; the behavior is different between SD and nc APIs */ cdf_routine_name = "SDreaddata"; /* Clear error stack */ HEclear(); /* Validate arguments */ if((start == NULL) || (end == NULL) || (data == NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the NC_dim or NC_var depending on which id is given */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { handle = SDIhandle_from_id(sdsid, DIMTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); dim = SDIget_dim(handle, sdsid); } if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Dev note: empty SDS should have been checked here and SDreaddata would have failed, but since it wasn't, for backward compatibility, we won't do it now either. -BMR 2011 */ /* Check if compression method is enabled */ /* Make sure that the file is an HDF file before checking about compression */ if(handle->file_type == HDF_FILE) /* bug HDFFR-473 */ { status = HCPgetcomptype(handle->hdf_file, var->data_tag, var->data_ref, &comp_type); if (status != FAIL) if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_INVALID) { /* Must have decoder to read data */ HCget_config_info( comp_type , &comp_config); if ((comp_config & COMP_DECODER_ENABLED) == 0) { /* decoder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } } /* The case status=FAIL is not handled, not sure if it's intentional. -BMR */ } /* file is HDF */ /* Get ready to read */ handle->xdrs->x_op = XDR_DECODE ; /* * Figure out the index of the variable to read from, * the user might have passed us a dimension, in which * case we want to reade from its coordinate variable */ if(dim) { varid = SDIgetcoordvar(handle, dim, (int32)(sdsid & 0xffff), (int32) 0); } else { /* Derive the variable index from the SDS id, using the formula described in SDselect */ varid = (intn)sdsid & 0xffff; } /* * In general, (long) == int32 * In cases where it doesn't we need to convert */ #ifdef BIG_LONGS { int i; for(i = 0; i < var->assoc->count; i++) { Start[i] = (long) start[i]; End[i] = (long) end[i]; if(stride) Stride[i] = (long) stride[i]; } } #else Start = (long *)start; End = (long *)end; Stride = (long *)stride; #endif /* Validate stride value if given - make sure we don't try to "stride" */ /* beyond the dimension's end */ if(stride != NULL) { int i; int32 dimsize = (int32) var->shape[0]; /* Validate stride value of first dimension separately to catch */ /* unlimited dimension situation */ if (var->shape[0] == NC_UNLIMITED) { /* get the actual size */ if(handle->file_type == HDF_FILE) dimsize = var->numrecs; else dimsize = handle->numrecs; } if ((Stride[0]*(End[0]-1)) >= (dimsize-Start[0])) HGOTO_ERROR(DFE_ARGS, FAIL); /* Validate subsequent dimensions if dataset is multi-dim */ for(i = 1; i < var->assoc->count; i++) if ((Stride[i]*(End[i]-1)) >= ((int32)var->shape[i]-Start[i])) HGOTO_ERROR(DFE_ARGS, FAIL); } /* Call the readg routines if a stride is given */ if(stride == NULL) status = NCvario(handle, varid, Start, End, (Void *)data); else status = NCgenio(handle, varid, Start, End, Stride, NULL, (Void *)data); if(status == -1) ret_value = FAIL; else ret_value = SUCCEED; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDreaddata */ /****************************************************************************** NAME SDnametoindex -- map a dataset name to an index DESCRIPTION Given a data set name return the index (not ID) of the first data set whose name matches. There can be multiple data sets with the same name. In such a case, we only ever return the index of the first such dataset. Wildcards are not supported RETURNS Index of a dataset or FAIL ******************************************************************************/ int32 SDnametoindex(int32 fid, /* IN: file ID */ const char *name /* IN: name of dataset to search for */) { unsigned ii; intn len; NC *handle = NULL; NC_var **dp = NULL; int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDnametoindex: I've been called\n"); #endif /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } len = HDstrlen(name) ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if( len == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, HDstrlen(name)) == 0) { ret_value = (int32)ii; goto done; } } ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDnametoindex */ /****************************************************************************** NAME SDgetnumvars_byname -- get the number of variables in the file having the given name. DESCRIPTION Given a data set name, retrieve the number of variables in the file having the same name. Sometime, more than one SDS are named 'name' or a dimension of the SDS 'name' is also named 'name.' The user can use this function to find out how many of those having the same name. RETURNS SUCCEED / FAIL MODIFICATION ******************************************************************************/ intn SDgetnumvars_byname(int32 fid, /* IN: file ID */ const char *name, /* IN: name of dataset to search for */ int32* n_vars) { unsigned ii; intn len; int32 count = 0; NC *handle = NULL; NC_var **dp = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetnumvars_byname: I've been called\n"); #endif /* clear error stack */ HEclear(); /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } len = HDstrlen(name) ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count; ii++, dp++) { if( len == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, HDstrlen(name)) == 0) count++; } *n_vars = count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetnumvars_byname */ /****************************************************************************** NAME SDnametoindices -- retrieves a list of variables having the given name. DESCRIPTION Given a data set name, retrieve a list of structures, each of which contains the index of a variable whose name matches the given name, and the type of the variable, which is either data set (IS_SDSVAR) or coordinate variable (IS_CRDVAR,) or (UNKNOWN.) UNKNOW is for data created before the fix of a data corruption bug due to the library's inability to distinguish between those two types of variables. The fix was available starting in HDF4.2r2. This API is added to allow the user to examine all the variables having the given name and decide the correct one to gain access on. RETURNS SUCCEED / FAIL MODIFICATION ******************************************************************************/ intn SDnametoindices(int32 fid, /* IN: file ID */ const char *name, /* IN: name of dataset to search for */ hdf_varlist_t* var_list) { unsigned ii; intn len; NC *handle = NULL; NC_var **dp = NULL; hdf_varlist_t* varlistp; int32 ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDnametoindices: I've been called\n"); #endif /* clear error stack */ HEclear(); /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } len = HDstrlen(name) ; dp = (NC_var**)handle->vars->values ; varlistp = var_list; for(ii = 0 ; ii < handle->vars->count; ii++, dp++) { if( len == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, HDstrlen(name)) == 0) { varlistp->var_index = (int32)ii; varlistp->var_type = (*dp)->var_type; varlistp++; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDnametoindices */ /****************************************************************************** NAME SDgetrange -- simulate a call to DFSDgetrange DESCRIPTION If a "valid_range" attribute is provided return its values in pmax and pmin. Else if both a "valid max" AND a "vaild min" exist return their values in pmax and pmin. Arrgghh, in HDF it was assumed that the max and min values were of the same data type as the rest of the data. So the user would know the amount of storage to send to get back the max and min values. This is not the case with netCDF. This routine will only work if they are already the same number types. RETURNS On error or missing attributes return FAIL else SUCCEED. ******************************************************************************/ intn SDgetrange(int32 sdsid, /* IN: dataset ID */ void * pmax, /* OUT: valid max */ void * pmin /* OUT: valid min */) { NC *handle = NULL; NC_var *var = NULL; NC_attr **attr = NULL; NC_attr **attr1 = NULL; NC_attr **attr2 = NULL; NC_array *array = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetrange: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_ValidRange); if((attr != NULL) && ((*attr)->data->type == var->type)) { /* BUG: this may be a pointer to a pointer */ array = (NC_array *) (*attr)->data; HDmemcpy(pmin, array->values, array->szof); HDmemcpy(pmax, array->values + array->szof, array->szof); } else { attr1 = (NC_attr **) NC_findattr(&(var->attrs), "valid_max"); attr2 = (NC_attr **) NC_findattr(&(var->attrs), "valid_min"); if((attr1 == NULL) || (attr2 == NULL)) { #ifdef SDDEBUG fprintf(stderr, "No dice on range info (missing at least one)\n"); #endif ret_value = FAIL; goto done; } if(((*attr1)->HDFtype != var->HDFtype) || ((*attr2)->HDFtype != var->HDFtype)) { #ifdef SDDEBUG fprintf(stderr, "No dice on range info (wrong types)\n"); #endif ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)pmax, (*attr1)->data) ; NC_copy_arrayvals((char *)pmin, (*attr2)->data) ; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetrange */ /* -------------------------- CREATION INTERFACE -------------------------- */ /* --- create a new data set --- sdsid = SDcreate(fid, name, numbertype, rank, dimsizes); --- associate a name with a dimension. If a prev sdsid is --- --- provided then it is assumed that the current dimension is the --- --- same as the dimension with the same name of the previous sds --- status = SDsetdim(sdsid, dimnumber, dimname, [prev sdsid] ); --- note that it will be possible to store values for a --- --- dimension without having to name it --- status = SDsetdimvalues(sdsid, dimnumber, numbertype, count, data); --- set the units and format strings --- status = SDsetdimstrs(sdsid, dimnumber, unitstr, formatstr); --- we will need an SDendaccess() so that we know when it --- --- is safe to write the information out in this case --- status = SDendaccess(sdsid); --- set fill mode for a file open for write cur_mode = SDsetfillmode(fid, fillmode); --- set dimval backward compatible for write status = SDsetdimval_comp(dimid, compt_mode); */ /****************************************************************************** NAME SDcreate -- create a new dataset DESCRIPTION Simulate a call to ncvardef without having to be in define mode. name can be at most H4_MAX_NC_NAME characters. Rank can be at most H4_MAX_VAR_DIMS It looks like for the call to NC_new_var() we need to have dimension IDs already. So I guess we should just create the fake dimensions now and when optional information comes in (i.e. name, tying to other dimensions) we'll go in and modify the structure in place. This is gonna be heinous. Please do not attempt this at home See SDselect() for a discussion on how SDS IDs are set up. RETURNS An ID to the new dataset else FAIL ******************************************************************************/ int32 SDcreate(int32 fid, /* IN: file ID */ const char *name, /* IN: dataset name */ int32 nt, /* IN: dataset number type */ int32 rank, /* IN: rank of dataset */ int32 *dimsizes /* IN: array of dimension sizes */) { intn i; NC *handle = NULL; NC_var *var = NULL; NC_dim *newdim = NULL; int32 sdsid; nc_type nctype; char dimname[H4_MAX_NC_NAME]; intn num; intn *dims = NULL; intn is_ragged; int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDcreate: I've been called\n"); #endif /* clear error stack */ HEclear(); /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* fudge the name since its optional */ if((name == NULL) || (name[0] == ' ') || (name[0] == '\0')) name = "DataSet"; /* check if its a ragged array. Why is this code still here? -GV */ if((rank > 1) && dimsizes[rank - 1] == SD_RAGGED) { #ifdef DEBUG printf("YOW! We have a ragged array kids: %s\n", name); #endif rank--; is_ragged = TRUE; } else { is_ragged = FALSE; } /* make fake dimensions which may or may not be over-ridden later */ dims = (intn *) HDmalloc(rank * sizeof(intn)); if(dims == NULL) { ret_value = FAIL; goto done; } if(rank > H4_MAX_VAR_DIMS) { ret_value = FAIL; goto done; } for(i = 0; i < rank; i++) { num = (handle->dims ? handle->dims->count : 0); sprintf(dimname, "fakeDim%d", num); newdim = (NC_dim *) NC_new_dim(dimname, dimsizes[i]); if(newdim == NULL) { ret_value = FAIL; goto done; } if(handle->dims == NULL) { /* first time */ handle->dims = NC_new_array(NC_DIMENSION,(unsigned)1, (Void *)&newdim); if(handle->dims == NULL) { ret_value = FAIL; goto done; } } else { if( NC_incr_array(handle->dims, (Void *)&newdim) == NULL) { ret_value = FAIL; goto done; } } dims[i] = (intn) handle->dims->count -1; } /* end for 'i < rank' */ /* create the actual variable */ if ((nctype = hdf_unmap_type((int)nt)) == FAIL) { #ifdef SDDEBUG /* replace it with NCAdvice or HERROR? */ fprintf(stderr "SDcreate: hdf_unmap_type failed for %d\n", nt); #endif ret_value = FAIL; goto done; } var = (NC_var *) NC_new_var(name, nctype, (int)rank, dims); if(var == NULL) { ret_value = FAIL; goto done; } /* Set the "newly created" & "set length" flags for use in SDwritedata */ var->created=TRUE; var->set_length=FALSE; /* Indicate that this variable is an actual sds, not a coordinate variable (bugzilla 624) - BMR - 05/14/2007 */ var->var_type=IS_SDSVAR; /* NC_new_var strips off "nativeness" add it back in if appropriate */ var->HDFtype = nt; if (FAIL == (var->HDFsize = DFKNTsize(nt))) { ret_value = FAIL; goto done; } var->cdf = handle; /* set cdf before calling NC_var_shape */ /* get a new NDG ref for this sucker */ #ifdef NOT_YET var->ndg_ref = Htagnewref(handle->hdf_file,DFTAG_NDG); #else /* NOT_YET */ var->ndg_ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ /* set ragged status. Why is this still here -GV */ var->is_ragged = is_ragged; /* no ragged array info stored yet */ if(var->is_ragged) { var->rag_list = NULL; var->rag_fill = 0; } /* add it to the handle */ if(handle->vars == NULL) { /* first time */ handle->vars = NC_new_array(NC_VARIABLE,(unsigned)1, (Void *)&var); if(handle->vars == NULL) { ret_value = FAIL; goto done; } } else { if(handle->vars->count >= H4_MAX_NC_VARS) { ret_value = FAIL; goto done; } else { if( NC_incr_array(handle->vars, (Void *)&var) == NULL) { ret_value = FAIL; goto done; } } } /* compute all of the shape information */ if(NC_var_shape(var, handle->dims) == -1) { ret_value = FAIL; goto done; } /* create a handle we can give back to the user */ sdsid = (((int32) fid) << 20) + (((int32) SDSTYPE) << 16); sdsid += handle->vars->count -1; /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; /* free dims */ HDfree(dims); ret_value = sdsid; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDcreate */ /****************************************************************************** NAME SDgetdimid -- get a dimension ID DESCRIPTION Given an sdsid and a dimension number return a dimid. Index is a ZERO based quantity The dimID looks similar to the sdsID except DIMTYPE is substituted for SDSTYPE as the id-type: dimID: 32 20 16 0 ---------------------------------------- | fid | id-type| position index | ---------------------------------------- RETURNS An ID to the dimension else FAIL ******************************************************************************/ int32 SDgetdimid(int32 sdsid, /* IN: dataset ID */ intn number /* IN: index of dimension, in the SDS, ie. <= rank-1 */) { CONSTR(FUNC, "SDgetdimid"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; int32 id; int32 dimindex; /* index of dim in the file, ie. dims of all SDSs */ int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDgetdimid: I've been called\n"); #endif /* clear error stack */ HEclear(); /* sanity check args */ if(number < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the handle */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the variable */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* check if enough / too many dims */ if((var->assoc == NULL) || (var->assoc->count < (unsigned)number)) { ret_value = FAIL; goto done; } /* get the dim number out of the assoc array */ if (var->assoc->values == NULL) { ret_value = FAIL; goto done; } dimindex = var->assoc->values[number]; /* build the dim id */ id = (sdsid & 0xfff00000) + (((int32) DIMTYPE) << 16) + dimindex; ret_value = id; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetdimid */ /****************************************************************************** NAME SDsetdimname -- give a name to a dimension DESCRIPTION Set the name of a dimension -- at most H4_MAX_NC_NAME characters. If this name is already in use we should point to the existing dimension with that name. If the sizes are different return an error. If this dimension already has a name throw it out and use the new one. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetdimname(int32 id, /* IN: dataset ID */ const char *name /* IN: dimension name */) { NC *handle = NULL; NC_dim *dim = NULL; NC_dim **dp = NULL; NC_string *old = NULL; NC_string *new = NULL; NC_array **ap = NULL; size_t len; unsigned ii; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetdimname: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* check for name in use */ len = HDstrlen(name) ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if( len == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, HDstrlen(name)) == 0) { if(dim != (*dp)) { /* a dimension with this name already exists */ /* so change to point to it */ if(dim->size != (*dp)->size) { ret_value = FAIL; goto done; } ap = (NC_array **) handle->dims->values; ap += id & 0xffff; NC_free_dim(dim); (*dp)->count += 1; (*ap) = (NC_array *) (*dp); ret_value = SUCCEED; goto done; } } } /* throw out the old name if it exists and create a new one */ old = dim->name; new = NC_new_string((unsigned)HDstrlen(name),name); if(new == NULL) { ret_value = FAIL; goto done; } dim->name = new; NC_free_string(old); /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetdimname */ /****************************************************************************** NAME SDendaccess -- close a sds ID DESCRIPTION Close down this access ID to a data object Usually, this will do nothing. However, if the meta-data has changed and SYNC_ON_EACC is defiend flush it all out to disk. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDendaccess(int32 id /* IN: dataset ID */) { NC *handle; int32 ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDendaccess: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } #ifdef SYNC_ON_EACC /* make sure we can write to the file */ if(handle->flags & NC_RDWR) { handle->xdrs->x_op = XDR_ENCODE; /* see if the meta-data needs to be updated */ if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle) ) { ret_value = FAIL; goto done; } handle->flags &= ~(NC_NDIRTY | NC_HDIRTY); } else { /* see if the numrecs info needs updating */ if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) { ret_value = FAIL; goto done; } handle->flags &= ~(NC_NDIRTY); } } } #else /* free the AID */ ret_value = SDIfreevarAID(handle, id & 0xffff); #endif /* SYNC_ON_EACC */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDendaccess */ #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDIputattr -- put an attribute in an attribute list DESCRIPTION Common code for adding an attribute to an attribute list. The list gets created if it had previously been empty RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDIputattr(NC_array **ap, /* IN/OUT: attribute list */ const char *name, /* IN: attribute name */ int32 nt, /* IN: attribute number type */ intn count,/* IN: number of attribute values */ const void * data /* IN: attribute values */) { NC_attr *attr = NULL; NC_attr **atp = NULL; NC_attr *old = NULL; nc_type type; /* unmap -- HDF type to NC type */ intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDIputattr: I've been called\n"); #endif if ((type = hdf_unmap_type((int)nt)) == FAIL) { /* replace it with NCAdvice or HERROR? */ ret_value = FAIL; goto done; } if(*ap == NULL) { /* first time */ attr = (NC_attr *) NC_new_attr(name,type,(unsigned)count,data) ; if(attr == NULL) { ret_value = FAIL; goto done; } attr->HDFtype = nt; /* Add HDFtype */ *ap = NC_new_array(NC_ATTRIBUTE,(unsigned)1, (Void*)&attr) ; if(*ap == NULL) { ret_value = FAIL; goto done; } } else { if((atp = NC_findattr(ap, name)) != NULL) { /* name in use */ old = *atp ; *atp = (NC_attr *) NC_new_attr(name,type,(unsigned)count,data); if(*atp == NULL) { *atp = old; ret_value = FAIL; goto done; } (*atp)->HDFtype = nt; /* Add HDFtype */ NC_free_attr(old); } else { if((*ap)->count >= H4_MAX_NC_ATTRS) { /* Too many */ ret_value = FAIL; goto done; } /* just add it */ attr = (NC_attr *) NC_new_attr(name,type,(unsigned)count,data); attr->HDFtype = nt; /* Add HDFtype */ if(attr == NULL) { ret_value = FAIL; goto done; } if(NC_incr_array((*ap), (Void *)&attr) == NULL) { ret_value = FAIL; goto done; } } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIputattr */ #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDsetrange -- simulate a call to DFSDsetrange DESCRIPTION Store range info for this variable in the valid_range attribute. If that attribute already exists overwrite the current values. It is assumed that the values are the same type as the data set. It is up to the user to decide what is meant by the "valid" max and min. RETURNS On error FAIL else SUCCEED. ******************************************************************************/ intn SDsetrange(int32 sdsid, /* IN: dataset ID */ void * pmax, /* IN: valid max */ void * pmin /* IN: valid min */) { NC *handle = NULL; NC_var *var = NULL; uint8 data[80]; intn sz; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetrange: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } if((pmax == NULL) || (pmin == NULL)) { ret_value = FAIL; goto done; } /* move data values over */ if (FAIL == (sz = DFKNTsize(var->HDFtype | DFNT_NATIVE))) { ret_value = FAIL; goto done; } HDmemcpy(data, pmin, sz); HDmemcpy(data + sz, pmax, sz); /* call common code */ if(SDIputattr(&var->attrs, _HDF_ValidRange, var->HDFtype, (intn) 2, data) == FAIL) { ret_value = FAIL; goto done; } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetrange */ #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDIapfromid -- get the attribute list DESCRIPTION Given a ID figure out what the handle and attribute list pointer are for that object. RETURNS On error FAIL else SUCCEED. ******************************************************************************/ intn SDIapfromid(int32 id, /* IN: object ID */ NC **handlep, /* IN: handle for this file */ NC_array ***app /* OUT: attribute list */) { NC *handle = NULL; NC_var *var = NULL; NC_dim *dim = NULL; int32 varid; intn ret_value = SUCCEED; /* see if its a variable ID */ handle = SDIhandle_from_id(id, SDSTYPE); if(handle != NULL) { /* find the variable */ var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } (*app) = &(var->attrs); (*handlep) = handle; ret_value = SUCCEED; goto done; } /* see if its a file ID */ handle = SDIhandle_from_id(id, CDFTYPE); if(handle != NULL) { (*app) = &(handle->attrs); (*handlep) = handle; ret_value = SUCCEED; goto done; } /* see if its a dimension ID */ handle = SDIhandle_from_id(id, DIMTYPE); if(handle != NULL) { /* find the dimension */ dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* get index of coordinate variable */ varid = SDIgetcoordvar(handle, dim, (int32)(id & 0xffff), (int32) 0); /* get the variable object */ var = NC_hlookupvar(handle, varid); if(var == NULL) { ret_value = FAIL; goto done; } (*app) = &(var->attrs); (*handlep) = handle; ret_value = SUCCEED; goto done; } ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIapfromid */ #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDsetattr -- user level function to create and set an attribute DESCRIPTION Given an ID and an attribute defintion attach the atrribute to the thing represented by the ID. For starters, the valid IDs could be variable, file or dimesnion IDs RETURNS On error FAIL else SUCCEED. ******************************************************************************/ intn SDsetattr(int32 id, /* IN: object ID */ const char *name, /* IN: attribute name */ int32 nt, /* IN: attribute number type */ int32 count, /* IN: number of attribute values */ const void * data /* IN: attribute values */) { NC_array **ap = NULL; NC *handle = NULL; intn sz; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetattr: I've been called\n"); #endif /* Clear error stack */ HEclear(); /* Sanity check args */ if(name == NULL) { ret_value = FAIL; goto done; } /* This release doesn't support native number types for attr */ if (nt & DFNT_NATIVE) { ret_value = FAIL; goto done; } /* Only positive count is valid (bug HDFFR-989) -BMR */ if (count <= 0) { ret_value = FAIL; goto done; } /* Make sure that count is less than MAX_ORDER(Vdata) and total size is less than MAX_FIELD_SIZE(Vdata) */ if (FAIL == (sz = DFKNTsize(nt))) { ret_value = FAIL; goto done; } if ((count > MAX_ORDER) || ((count * sz) > MAX_FIELD_SIZE)) { ret_value = FAIL; goto done; } /* determine what type of ID we've been given */ if(SDIapfromid(id, &handle, &ap) == FAIL) { ret_value = FAIL; goto done; } /* still no handle ? */ if(handle == NULL) { ret_value = FAIL; goto done; } /* hand over to SDIputattr */ if(SDIputattr(ap, name, nt, count, data) == FAIL) { ret_value = FAIL; goto done; } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetattr */ /****************************************************************************** NAME SDattrinfo -- get info about an attribute DESCRIPTION Inquire about an attribute. Attribute indexes are zero based. Given the ID of the attribute's parent and the attribute's index return the number type, name and count of the attribute so the user knows how much space to provide to read it RETURNS On error FAIL else SUCCEED. ******************************************************************************/ intn SDattrinfo(int32 id, /* IN: object ID */ int32 index, /* IN: attribute index */ char *name, /* OUT: attribute name */ int32 *nt, /* OUT: attribute number type */ int32 *count /* OUT: number of attribute values */) { CONSTR(FUNC, "SDattrinfo"); /* for HGOTO_ERROR */ NC_array *ap = NULL; NC_array **app = NULL; NC_attr **atp = NULL; NC *handle = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDattrinfo: I've been called\n"); #endif /* clear error stack */ HEclear(); /* sanity check args */ if((name == NULL) || (nt == NULL) || (count == NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* determine what type of ID we've been given */ if(SDIapfromid(id, &handle, &app) == FAIL) { ret_value = FAIL; goto done; } ap = (*app); if((ap == NULL) || (index >= ap->count)) { ret_value = FAIL; goto done; } /* * ap is the proper attribute list now look up something with this * name */ atp = (NC_attr **) ((char *)ap->values + index * ap->szof); if(*atp == NULL) { ret_value = FAIL; goto done; } /* move the information over */ if(name != NULL) { #if 0 HDstrncpy(name, (*atp)->name->values, (*atp)->name->len); #endif HDmemcpy(name, (*atp)->name->values, (*atp)->name->len); name[(*atp)->name->len] = '\0'; } *count = (*atp)->data->count; *nt = (*atp)->HDFtype; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDattrinfo */ /****************************************************************************** NAME SDreadattr -- read an attribute's values DESCRIPTION Read the actual contents of the given attribute Assume that the user has called SDinqattr() and so has allocated sufficient space RETURNS On error FAIL else SUCCEED. ******************************************************************************/ intn SDreadattr(int32 id, /* IN: object ID */ int32 index, /* IN: attribute index */ void * buf /* OUT: data buffer */) { CONSTR(FUNC, "SDreadattr"); /* for HGOTO_ERROR */ NC_array *ap = NULL; NC_array **app = NULL; NC_attr **atp = NULL; NC *handle = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDreadattr: I've been called\n"); #endif /* clear error stack */ HEclear(); /* sanity check args */ if(buf == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* determine what type of ID we've been given */ if(SDIapfromid(id, &handle, &app) == FAIL) { ret_value = FAIL; goto done; } ap = (*app); if((ap == NULL) || (index >= ap->count)) { ret_value = FAIL; goto done; } /* * ap is the proper attribute list now look up something with this * index */ atp = (NC_attr **) ((char *)ap->values + index * ap->szof); if(*atp == NULL) { ret_value = FAIL; goto done; } /* move the information over */ HDmemcpy(buf, (*atp)->data->values, (*atp)->data->count * (*atp)->data->szof); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDreadattr */ /****************************************************************************** NAME SDwritedata -- write a hyperslab of data DESCRIPTION Write out a chunk o data. Except for the line setting the XDR op-code this is exactly the same as SDreaddata(). The two routines should really be combined at some point RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDwritedata(int32 sdsid, /* IN: dataset ID */ int32 *start, /* IN: coords of starting point */ int32 *stride, /* IN: stride along each dimension */ int32 *end, /* IN: number of values to write per dimension */ void * data /* IN: data buffer */) { CONSTR(FUNC, "SDwritedata"); /* for HGOTO_ERROR */ intn varid; int32 status; comp_coder_t comp_type; uint32 comp_config; NC_var *var; NC *handle = NULL; NC_dim *dim = NULL; #ifdef BIG_LONGS long Start[H4_MAX_VAR_DIMS]; long End[H4_MAX_VAR_DIMS]; long Stride[H4_MAX_VAR_DIMS]; #else long *Start = NULL; long *End = NULL; long *Stride = NULL; #endif intn no_strides = 0; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDwritedata: I've been called\n"); #endif /* this decides how a dataset with unlimited dimension is written along the unlimited dimension; the behavior is different between SD and nc APIs */ cdf_routine_name = "SDwritedata"; /* clear error stack */ HEclear(); if((start == NULL) || (end == NULL) || (data == NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { handle = SDIhandle_from_id(sdsid, DIMTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); dim = SDIget_dim(handle, sdsid); } if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check if compression method is enabled */ /* Make sure that the file is an HDF file before checking about compression */ if(handle->file_type == HDF_FILE) /* bug HDFFR-473 */ { status = HCPgetcomptype(handle->hdf_file, var->data_tag, var->data_ref, &comp_type); if (status != FAIL) if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_INVALID) { /* Must have encoder to write data */ HCget_config_info( comp_type , &comp_config); if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } } /* The case status=FAIL is not handled, not sure if it's intentional. -BMR */ } /* file is HDF */ /* get ready to write */ handle->xdrs->x_op = XDR_ENCODE; /* * figure out the index of the variable to write to * the user might have passed us a dimension, in which * case we want to write to its coordinate variable */ if(dim) { varid = SDIgetcoordvar(handle, dim, (int32)(sdsid & 0xffff), (int32) 0); } else { /* oops, how do we know this ? */ varid = (intn)sdsid & 0xffff; } /* Check for strides all set to '1', so it acts like NULL was passed */ if(stride!=NULL) { int i; NC_var *var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } no_strides=1; /* if the stride for any dim. is not '1', real stride processing has to occur */ for(i = 0; i < var->assoc->count; i++) { if(stride[i]!=1) no_strides=0; } } /* end if */ /* * In general, (long) == int32 * In cases where it doesn't we need to convert */ #ifdef BIG_LONGS { int i; NC_var *var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } for(i = 0; i < var->assoc->count; i++) { Start[i] = (long) start[i]; End[i] = (long) end[i]; if(stride) Stride[i] = (long) stride[i]; } } #else Start = (long *)start; End = (long *)end; Stride = (long *)stride; #endif /* Check if this data is being written out to a newly created dataset */ { NC_var *var = SDIget_var(handle, sdsid); if(var->created) { if(!IS_RECVAR(var) && (handle->flags & NC_NOFILL) ) { var->set_length=TRUE; } /* end if */ var->created=FALSE; } /* end if */ } /* call the writeg routines if a stride is given */ if(stride == NULL || no_strides==1) status = NCvario(handle, varid, Start, End, (Void *)data); else status = NCgenio(handle, varid, Start, End, Stride, NULL, data); if(status == -1) ret_value = FAIL; else ret_value = SUCCEED; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDwritedata */ /****************************************************************************** NAME SDsetdatastrs -- set "data strings" DESCRIPTION Store information about the 'label', 'units', 'format' and 'cordsys' attributes of a dataset. All of the values are optional. If no string is desired NULL should be passed in its place. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetdatastrs(int32 sdsid, /* IN: dataset ID */ const char *l, /* IN: label string ("long_name") */ const char *u, /* IN: units string ("units") */ const char *f, /* IN: format string ("format") */ const char *c /* IN: coordsys string ("coordsys") */) { NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetdatastrs: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } if(l && l[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_LongName, DFNT_CHAR, (intn) HDstrlen(l), l) == FAIL) { ret_value = FAIL; goto done; } } if(u && u[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_Units, DFNT_CHAR, (intn) HDstrlen(u), u) == FAIL) { ret_value = FAIL; goto done; } } if(f && f[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_Format, DFNT_CHAR, (intn) HDstrlen(f), f) == FAIL) { ret_value = FAIL; goto done; } } if(c && c[0] !='\0') { if(SDIputattr(&var->attrs, _HDF_CoordSys, DFNT_CHAR, (intn) HDstrlen(c), c) == FAIL) { ret_value = FAIL; goto done; } } /* make sure it gets reflected in the file */ if(l || u || f || c) handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetdatastrs */ /****************************************************************************** NAME SDsetcal -- set calibration information DESCRIPTION Store calibration information. What is the formula? Good question -GV RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetcal(int32 sdsid,/* IN: dataset ID */ float64 cal, /* IN: multiplicative factor */ float64 cale, /* IN: multiplicative factor error */ float64 ioff, /* IN: integer offset */ float64 ioffe,/* IN: integer offset error */ int32 nt /* IN: number type of uncalibrated data */) { NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetcal: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _HDF_ScaleFactor, DFNT_FLOAT64, (intn) 1, &cal) == FAIL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _HDF_ScaleFactorErr, DFNT_FLOAT64, (intn) 1, &cale) == FAIL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _HDF_AddOffset, DFNT_FLOAT64, (intn) 1, &ioff) == FAIL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _HDF_AddOffsetErr, DFNT_FLOAT64, (intn) 1, &ioffe) == FAIL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _HDF_CalibratedNt, DFNT_INT32, (intn) 1, &nt) == FAIL) { ret_value = FAIL; goto done; } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetcal */ /****************************************************************************** NAME SDsetfillvalue -- set the fill value DESCRIPTION Set the fill value for this data set. The fill value is assumed to have the same number type as the dataset RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetfillvalue(int32 sdsid, /* IN: dataset ID */ void * val /* IN: fillvalue */) { NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetfillvalue: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } if(SDIputattr(&var->attrs, _FillValue, var->HDFtype, (intn) 1, val) == FAIL) { ret_value = FAIL; goto done; } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetfillvalue */ /****************************************************************************** NAME SDgetfillvalue -- get the fill value DESCRIPTION Retreive the fill value for this data set if one has been stored. The fill value has the same number type as the dataset RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetfillvalue(int32 sdsid, /* IN: dataset ID */ void * val /* OUT: fillvalue */) { CONSTR(FUNC, "SDgetfillvalue"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; NC_attr **attr = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetfillvalue: I've been called\n"); #endif /* clear error stack */ HEclear(); /* sanity check args */ if(val == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } attr = (NC_attr **) NC_findattr(&(var->attrs), _FillValue); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)val, (*attr)->data) ; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetfillvalue */ /****************************************************************************** NAME SDgetdatastrs -- get "data strings" DESCRIPTION Read information about the 'label', 'units', 'format' and 'cordsys' attributes of a dataset. All of the values are optional. If no string is desired NULL should be passed in its place. Assume all buffers are len bytes long. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetdatastrs(int32 sdsid, /* IN: dataset ID */ char *l, /* OUT: label string ("long_name") */ char *u, /* OUT: units string ("units") */ char *f, /* OUT: format string ("format") */ char *c, /* OUT: coordsys string ("coordsys") */ intn len /* IN: buffer length */) { NC *handle = NULL; NC_var *var = NULL; NC_attr **attr = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetdatastrs: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } if(l) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_LongName); if(attr != NULL) { if((*attr)->data->count < (unsigned)len) { HDstrncpy((char *)l, (*attr)->data->values,(*attr)->data->count ); l[(*attr)->data->count] = '\0'; } else HDstrncpy((char *)l, (*attr)->data->values,len ); } else l[0] = '\0'; } if(u) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_Units); if(attr != NULL) { if((*attr)->data->count < (unsigned)len) { HDstrncpy((char *)u, (*attr)->data->values,(*attr)->data->count ); u[(*attr)->data->count] = '\0'; } else HDstrncpy((char *)u, (*attr)->data->values, len); } else u[0] = '\0'; } if(f) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_Format); if(attr != NULL) { if((*attr)->data->count < (unsigned)len) { HDstrncpy((char *)f, (*attr)->data->values, (*attr)->data->count); f[(*attr)->data->count] = '\0'; } else HDstrncpy((char *)f, (*attr)->data->values, len); } else f[0] = '\0'; } if(c) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_CoordSys); if(attr != NULL) { if((*attr)->data->count < (unsigned)len) { HDstrncpy((char *)c, (*attr)->data->values, (*attr)->data->count); c[(*attr)->data->count] = '\0'; } else HDstrncpy((char *)c, (*attr)->data->values, len); } else c[0] = '\0'; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetdatastrs */ /****************************************************************************** NAME SDgetcal -- get calibration information DESCRIPTION Retreive calibration information. What is the formula? RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetcal(int32 sdsid, /* IN: dataset ID */ float64 *cal, /* OUT: multiplicative factor */ float64 *cale, /* OUT: multiplicative factor error */ float64 *ioff, /* OUT: integer offset */ float64 *ioffe, /* OUT: integer offset error */ int32 *nt /* OUT: number type of uncalibrated data */) { NC *handle = NULL; NC_var *var = NULL; NC_attr **attr = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetcal: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_ScaleFactor); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)cal, (*attr)->data) ; attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_ScaleFactorErr); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)cale, (*attr)->data) ; attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_AddOffset); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)ioff, (*attr)->data) ; attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_AddOffsetErr); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)ioffe, (*attr)->data) ; attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_CalibratedNt); if(attr == NULL) { ret_value = FAIL; goto done; } NC_copy_arrayvals((char *)nt, (*attr)->data) ; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetcal */ #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDgetcoordvar -- get index of coordinate variable DESCRIPTION Given a dimension return the index of its coordinate variable creating one if needed. If we need to create a variable and an nt is not supplied (i.e. is equal to zero) use 32bit floats. If the variable already exists and the existing nt is different from the supplied one (and the supplied one is not zero) replace the nt by the new one. ID is needed so that we can set the dimension of the variable correctly if we need to. Yuck. RETURNS A variable index or FAIL on error ******************************************************************************/ int32 SDIgetcoordvar(NC *handle, /* IN: file handle */ NC_dim *dim, /* IN: dimension to find coord var of */ int32 id, /* IN: dimension ID */ int32 nt /* IN: number type to use if new variable*/) { unsigned ii; unsigned len; nc_type nctype; intn dimindex; NC_string *name = NULL; NC_var **dp = NULL; NC_var *var = NULL; int32 ret_value = FAIL; /* look for a variable with the same name */ name = dim->name; len = dim->name->len; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { /* eliminate vars with rank > 1, coord vars only have rank 1 */ if((*dp)->assoc->count == 1) if( len == (*dp)->name->len && HDstrncmp(name->values, (*dp)->name->values, (size_t)len) == 0) /* only proceed if the file is a netCDF file (bugz 1644) or if this variable is a coordinate var or when the status is unknown due to its being created prior to the fix of bugzilla 624 - BMR 05/14/2007 */ if ((handle->file_type != HDF_FILE) || (*dp)->var_type == IS_CRDVAR || (*dp)->var_type == UNKNOWN) { /* see if we need to change the number type */ if((nt != 0) && (nt != (*dp)->type)) { #ifdef SDDEBUG fprintf(stderr, "SDIgetcoordvar redefining type\n"); #endif if (((*dp)->type = hdf_unmap_type((int)nt)) == FAIL) { #ifdef SDDEBUG /* replace it with NCAdvice or HERROR? */ fprintf(stderr "SDIgetcoordvar: hdf_unmap_type failed for %d\n", nt); #endif ret_value = FAIL; goto done; } (*dp)->HDFtype = nt; (*dp)->cdf = handle; /* don't forget to reset the sizes */ (*dp)->szof = NC_typelen((*dp)->type); if (FAIL == ((*dp)->HDFsize = DFKNTsize(nt))) { ret_value = FAIL; goto done; } /* recompute all of the shape information */ /* BUG: this may be a memory leak ??? */ if(NC_var_shape((*dp), handle->dims) == -1) { ret_value = FAIL; goto done; } } ret_value = ii; /* found it? */ goto done; } } /* create a new var with this dim as only coord */ if(nt == 0) nt = DFNT_FLOAT32; if ((nctype = hdf_unmap_type((int)nt)) == FAIL) { /* replace it with NCAdvice or HERROR? */ ret_value = FAIL; goto done; } dimindex = (intn)id; var = (NC_var *) NC_new_var(name->values, nctype, (unsigned)1, &dimindex); if(var == NULL) { ret_value = FAIL; goto done; } /* Set flag to indicate that this variable is a coordinate variable - BMR - 05/14/2007 */ var->var_type = IS_CRDVAR; /* BMR: put back hdf type that was set wrong by NC_new_var; please refer to the cvs history of bug #172 for reason on this statement - 4/17/01*/ var->HDFtype = nt; /* get a new NDG ref for this sucker */ #ifdef NOT_YET var->ndg_ref = Htagnewref(handle->hdf_file,DFTAG_NDG); #else /* NOT_YET */ var->ndg_ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ /* add it to the handle */ if(handle->vars->count >= H4_MAX_NC_VARS) { ret_value = FAIL; goto done; } var->cdf = handle; /* set cdf before calling NC_var_shape */ /* compute all of the shape information */ if(NC_var_shape(var, handle->dims) == -1) { ret_value = FAIL; goto done; } if(NC_incr_array(handle->vars, (Void *)&var) == NULL) { ret_value = FAIL; goto done; } ret_value = handle->vars->count - 1; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIgetcoordvar */ #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDsetdimstrs -- set "dimension strings" DESCRIPTION Store information about the 'label', 'units' and 'format' attributes of a dimension. All three of the values are optional. If no string is desired NULL should be passed in its place. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetdimstrs(int32 id, /* IN: dimension ID */ const char *l, /* IN: label string ("long_name") */ const char *u, /* IN: units string ("units") */ const char *f /* IN: format string ("format") */) { intn varid; NC *handle = NULL; NC_dim *dim = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetdimstrs: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* look for a variable with the same name */ varid = (intn)SDIgetcoordvar(handle, dim, (int32)(id & 0xffff), (int32)0); if(varid == FAIL) { ret_value = FAIL; goto done; } /* get the variable object */ var = NC_hlookupvar(handle, varid); if(var == NULL) { ret_value = FAIL; goto done; } /* set the attributes */ if(l && l[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_LongName, DFNT_CHAR, (intn) HDstrlen(l), l) == FAIL) { ret_value = FAIL; goto done; } } if(u && u[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_Units, DFNT_CHAR, (intn) HDstrlen(u), u) == FAIL) { ret_value = FAIL; goto done; } } if(f && f[0] != '\0') { if(SDIputattr(&var->attrs, _HDF_Format, DFNT_CHAR, (intn) HDstrlen(f), f) == FAIL) { ret_value = FAIL; goto done; } } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetdimstrs */ #ifdef MFSD_INTERNAL /****************************************************************************** NAME SDIfreevarAID -- free a variables AID DESCRIPTION Free the AID of the variable with the given index RETURNS SUCCEED / FAIL ******************************************************************************/ int32 SDIfreevarAID(NC *handle, /* IN: file handle */ int32 index /* IN: variable index */) { NC_array **ap = NULL; NC_var *var = NULL; int32 ret_value = SUCCEED; if(handle == NULL || !handle->vars) { ret_value = FAIL; goto done; } if(index < 0 || index > handle->vars->count) { ret_value = FAIL; goto done; } ap = (NC_array **)handle->vars->values; ap += index; var = (NC_var *) *ap; if(var->aid != 0 && var->aid != FAIL) { if (Hendaccess(var->aid) == FAIL) { ret_value = FAIL; goto done; } } var->aid = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDIfreevarAID */ #endif /* MFSD_INTERNAL */ /****************************************************************************** NAME SDsetdimscale -- store scale information for the dimension DESCRIPTION Store information about the 'scales' of a dimension. Dimensions do not have to have the same number type as the dataset. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDsetdimscale(int32 id, /* IN: dimension ID */ int32 count, /* IN: number of values */ int32 nt, /* IN: number type of data */ void * data /* IN: scale values */) { NC *handle = NULL; NC_dim *dim = NULL; int32 status; intn varid; long start[1]; long end[1]; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetdimscales: I've been called\n"); #endif /* this decides how a dataset with unlimited dimension is written along the unlimited dimension; the behavior is different between SD and nc APIs */ cdf_routine_name = "SDsetdimscales"; /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* sanity check, if not SD_UNLIMITED */ if( dim->size != 0 && count != dim->size) { ret_value = FAIL; goto done; } /* look for a variable with the same name */ varid = (intn)SDIgetcoordvar(handle, dim, id & 0xffff, nt); if(varid == -1) { ret_value = FAIL; goto done; } /* store the data */ handle->xdrs->x_op = XDR_ENCODE; start[0] = 0; end[0] = count; status = NCvario(handle, varid, start, end, (Void *)data); if(status == FAIL) { ret_value = FAIL; goto done; } /* free the AID */ status = SDIfreevarAID(handle, varid); if(status == FAIL) { ret_value = FAIL; goto done; } /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetdimscale */ /****************************************************************************** NAME SDgetdimscale -- get scale information for the dimension DESCRIPTION Retreive the scale information stored with a dimension. It is assumed that the user has called SDdiminfo() and that the data array is long enough to hold the values. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetdimscale(int32 id, /* IN: dimension ID */ void * data /* OUT: scale values */) { NC *handle = NULL; NC_dim *dim = NULL; NC_var *vp = NULL; int32 status; intn varid; long start[1]; long end[1]; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetdimscale: I've been called\n"); #endif /* this decides how a dataset with unlimited dimension is read along the unlimited dimension; the behavior is different between SD and nc APIs */ cdf_routine_name = "SDgetdimscale"; /* clear error stack */ HEclear(); /* sanity check args */ if(data == NULL) { ret_value = FAIL; goto done; } /* get the handle */ handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* look for a variable with the same name */ /* assume type Float32 can be over-ridden later */ varid = (intn)SDIgetcoordvar(handle, dim, (int32)(id & 0xffff), (int32)0); if(varid == FAIL) { ret_value = FAIL; goto done; } /* store the data */ handle->xdrs->x_op = XDR_DECODE; start[0] = 0; if (dim->size != 0) end[0] = dim->size; else { if (handle->file_type != HDF_FILE) end[0] = handle->numrecs; else { vp = SDIget_var(handle, varid); if (vp == NULL) { ret_value = FAIL; goto done; } end[0] = vp->numrecs; } } status = NCvario(handle, varid, start, end, (Void *)data); if(status == FAIL) { ret_value = FAIL; goto done; } /* free the AID */ status = SDIfreevarAID(handle, varid); if(status == FAIL) { ret_value = FAIL; goto done; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetdimscale */ /****************************************************************************** NAME SDdiminfo -- get info about a dimension DESCRIPTION Return basic information about a dimension (name, sizes, number of attributes, number type, etc...) The user is repsonsible for allocating space to hold the dataset name. It can be at most H4_MAX_NC_NAME characters in length. NULL can be passed for the name if it is not required. RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDdiminfo(int32 id, /* IN: dimension ID */ char *name, /* OUT: name of the dimension */ int32 *size, /* OUT: size of the dimension */ int32 *nt, /* OUT: number type of scales */ int32 *nattr /* OUT: the number of local attributes */) { NC *handle = NULL; NC_dim *dim = NULL; NC_var *var = NULL; NC_var **dp = NULL; intn ii; intn len; int32 varid; int ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDdiminfo: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->dims == NULL) { ret_value = FAIL; goto done; } dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } if(name != NULL) { #if 0 HDstrncpy(name, dim->name->values, dim->name->len); #endif HDmemcpy(name, dim->name->values, dim->name->len); name[dim->name->len] = '\0'; } else name = dim->name->values; /* Get dimension's size, which is the one application provided at SDcreate. Application must use SDgetinfo to get current size of unlimited dim */ *size = dim->size; /* assuming no number type and no attributes */ *nt = 0; *nattr = 0; /* In HDF files, number type and attribute info are only stored in the coordinate var of the dimension; so, if there is no coord var associated with the dimension being inquired, these info will not be available. */ if(handle->vars) { len = dim->name->len; dp = (NC_var**)handle->vars->values; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { /* eliminate vars with rank > 1, coord vars only have rank 1 */ if((*dp)->assoc->count == 1) { /* check if this variable matches the searched name */ if( len == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, (*dp)->name->len) == 0) { if (handle->file_type == HDF_FILE) /* HDF file */ { /* only proceed if this variable is a coordinate var or when its status is unknown due to its being created prior to the fix of bugzilla 624 - BMR - 05/14/2007 */ if ((*dp)->var_type == IS_CRDVAR || (*dp)->var_type == UNKNOWN) { *nt = ((*dp)->numrecs ? (*dp)->HDFtype : 0); *nattr = ((*dp)->attrs ? (*dp)->attrs->count : 0); goto done; } } else /* netCDF file */ { *nt = (*dp)->HDFtype; *nattr = ((*dp)->attrs ? (*dp)->attrs->count : 0); goto done; } } /* name matched */ } /* rank = 1 */ } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDdiminfo */ /****************************************************************************** NAME SDgetdimstrs -- get "data strings" DESCRIPTION Read as many of the dimension strings as possible. Assume that if a pointer is not NULL that we have len bytes that we can use to return the values RETURNS SUCCEED / FAIL ******************************************************************************/ intn SDgetdimstrs(int32 id, /* IN: dataset ID */ char *l, /* OUT: label string ("long_name") */ char *u, /* OUT: units string ("units") */ char *f, /* OUT: format string ("format") */ intn len /* IN: buffer length */) { CONSTR(FUNC, "SDgetdimstrs"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; NC_var **dp = NULL; NC_dim *dim = NULL; NC_attr **attr = NULL; char *name = NULL; int32 ii; int32 namelen; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetdimstrs: I've been called\n"); #endif /* clear error stack */ HEclear(); /* sanity check args */ if(len < 0) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(id, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } dim = SDIget_dim(handle, id); if(dim == NULL) { ret_value = FAIL; goto done; } /* need to get a pointer to the var now */ var = NULL; if(handle->vars) { name = dim->name->values; namelen = HDstrlen(name); dp = (NC_var**)handle->vars->values; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { /* eliminate vars with rank > 1, coord vars only have rank 1 */ if((*dp)->assoc->count == 1) if( namelen == (*dp)->name->len && HDstrncmp(name, (*dp)->name->values, HDstrlen(name)) == 0) /* because a dim was given, make sure that this is a coord var */ /* if it is an SDS, the function will fail */ if ((*dp)->var_type == IS_SDSVAR) HGOTO_ERROR(DFE_ARGS, FAIL) /* only proceed if this variable is a coordinate var or when its status is unknown due to its being created prior to the fix of bugzilla 624 - BMR - 05/14/2007 */ else /* i.e., (*dp)->var_type == IS_CRDVAR || (*dp)->var_type == UNKNOWN) */ { var = (*dp); } } } if(var != NULL) { if(l) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_LongName); if(attr != NULL) { intn minlen; minlen = ((unsigned)len > (*attr)->data->count)? (*attr)->data->count: (unsigned)len; HDstrncpy((char *)l, (*attr)->data->values, minlen); if((*attr)->data->count < (unsigned)len) l[(*attr)->data->count] = '\0'; } else l[0] = '\0'; } if(u) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_Units); if(attr != NULL) { intn minlen; minlen = (len > (*attr)->data->count)? (*attr)->data->count: (unsigned)len; HDstrncpy((char *)u, (*attr)->data->values, minlen); if((*attr)->data->count < (unsigned)len) u[(*attr)->data->count] = '\0'; } else u[0] = '\0'; } if(f) { attr = (NC_attr **) NC_findattr(&(var->attrs), _HDF_Format); if(attr != NULL) { intn minlen; minlen = (len > (*attr)->data->count)? (*attr)->data->count: (unsigned)len; HDstrncpy((char *)f, (*attr)->data->values, minlen); if((*attr)->data->count < (unsigned)len) f[(*attr)->data->count] = '\0'; } else f[0] = '\0'; } } /* the given dimension is not a coordinate variable, that means it doesn't have attribute attached to it, because if it did, then it would have been promoted to be a coordinate variable. */ else { if(l) l[0] = '\0'; if(u) u[0] = '\0'; if(f) f[0] = '\0'; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetdimstrs */ /****************************************************************************** NAME SDsetexternalfile -- store info in a separate file USAGE int32 SDsetexternalfile(id, filename, offset) int32 id; const char * filename; int32 offset; DESCRIPTION Specify that the actual data for this dataset be stored in a separate file (and "external file" in HDF terms). Only the data (as in SDwritedata()) will be stored externally. Attributes and such will still be in the main file IMPORTANT: It is the user's responsibility to see that the separate files are transported when the main file is moved. IMPORTANT: This can only be called *once* for a given dataset. The HDF utility 'hdfpack' may be able to undo it. IMPORTANT: This will only work on datasets stored in HDF files. FORTRAN - sfsextf RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetexternalfile(int32 id, /* IN: dataset ID */ const char *filename, /* IN: name of external file */ int32 offset /* IN: offset in external file */) { NC *handle = NULL; NC_var *var = NULL; intn status; int ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetexternalfile: I've been called\n"); #endif /* clear error stack */ HEclear(); if(NULL == filename || offset < 0) { ret_value = FAIL; goto done; } handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } /* already exists */ if(var->data_ref) { /* no need to give a length since the element already exists */ status = (intn)HXcreate(handle->hdf_file, (uint16)DATA_TAG, (uint16) var->data_ref, filename, offset, (int32)0); } else { int32 length; /* look up the length */ length = var->len; /* element doesn't exist so we need a reference number */ #ifdef NOT_YET var->data_ref = Htagnewref(handle->hdf_file,DATA_TAG); #else /* NOT_YET */ var->data_ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ if(var->data_ref == 0) { ret_value = FAIL; goto done; } /* need to give a length since the element does not exist yet */ status = (intn)HXcreate(handle->hdf_file, (uint16)DATA_TAG, (uint16) var->data_ref, filename, offset, length); } if(status != FAIL) { if((var->aid != 0) && (var->aid != FAIL)) { if (Hendaccess(var->aid) == FAIL) { ret_value = FAIL; goto done; } } var->aid = status; ret_value = SUCCEED; } else ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetexternalfile */ /****************************************************************************** NAME SDgetexternalinfo -- retrieves external file and data information USAGE int32 SDgetexternalinfo(id, buf_size, filename, offset, length) int32 id; intn buf_size; char *ext_filename; int32 *offset; int32 *length; DESCRIPTION SDgetexternalinfo gets the external file's name and the external data's offset and length, which specify the location and size of the data in the external file. buf_size specifies the size of the buffer ext_filename. When buf_size is 0, SDgetexternalinfo will simply return the length of the external file name, and not the file name itself. When the element is not special, SDgetexternalinfo will return 0. If the element is SPECIAL_EXT, but the external file name doesn't exist, SDgetexternalinfo will return FAIL. IMPORTANT: It is the user's responsibility to see that the external files are located in the same directory with the main file. SDgetexternalinfo does not check that. RETURNS Returns length of the external file name or FAIL. If the SDS does not have external element, this length will be 0. ******************************************************************************/ intn SDgetexternalinfo(int32 id, /* IN: dataset ID */ uintn buf_size, /* IN: size of buffer for external file name */ char *ext_filename,/* IN: buffer for external file name */ int32 *offset, /* IN: offset in external file */ int32 *length /* IN: length of external data */) { CONSTR(FUNC, "SDgetexternalinfo"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; int32 aid = FAIL; intn actual_fname_len = 0; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetexternalinfo: I've been called\n"); #endif /* Clear error stack */ HEclear(); /* Get the var structure of the SDS */ handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, id); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* SDS exists */ if(var->data_ref) { int32 retcode=0; sp_info_block_t info_block; /* special info block */ HDmemset(&info_block, 0, sizeof(sp_info_block_t)); /* Get the access id and then its special info */ aid = Hstartread(handle->hdf_file, var->data_tag, var->data_ref); if (aid == FAIL) /* catch FAIL from Hstartread */ HGOTO_ERROR(DFE_ARGS, FAIL); retcode = HDget_special_info(aid, &info_block); /* When HDget_special_info returns FAIL, it could be the element is not special or some failure occur internally, info_block.key will be FAIL in the former case */ if (retcode == FAIL) { if (info_block.key == FAIL) ret_value = 0; /* not a special elem, no external file name */ /* Some failure occurred in HDget_special_info */ else HGOTO_ERROR(DFE_ARGS, FAIL) } /* If the SDS has external element, get the external info */ else if (info_block.key == SPECIAL_EXT) { /* If the file name is not available, something must be wrong, so we need to report it. */ if (info_block.path == NULL || HDstrlen(info_block.path) <= 0) ret_value = FAIL; else { intn tmp_len = info_block.length_file_name; /* If caller requests the length of the external file name only, return the length */ if (buf_size == 0) actual_fname_len = tmp_len; else { /* Caller requests file name, so buffer must not be NULL */ if (ext_filename == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Compute the length of the name to be returned: if requested buffer size is smaller, use that value for name's length, but that means file name could be truncated! */ actual_fname_len = (intn)buf_size < tmp_len ? (intn)buf_size : tmp_len; /* Get the name */ HDstrncpy(ext_filename, info_block.path, actual_fname_len); /* Get offset/length of the external data if requested */ if (offset != NULL) *offset = info_block.offset; if (length != NULL) *length = info_block.length; } /* buf_size != 0 */ ret_value = actual_fname_len ; } } /* Special but not external, so no external file name */ else ret_value = 0; /* End access to the aid */ if (Hendaccess(aid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } else /* SDS doesn't exist */ HGOTO_ERROR(DFE_ARGS, FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ /* End access to the aid if neccessary */ if (aid != FAIL) Hendaccess(aid); } /* Normal cleanup */ return ret_value; } /* SDgetexternalinfo */ /****************************************************************************** NAME SDgetexternalfile -- retrieves external file information USAGE int32 SDgetexternalfile(id, filename, offset) int32 id; intn buf_size; char *filename; int32 *offset; DESCRIPTION SDgetexternalfile uses HDget_special_info to get the external file's name and offset, which indicates where the data starts in the external file. When the element is not special, SDgetexternalfile will return 0. If the element is SPECIAL_EXT, but the external file name doesn't exist, SDgetexternalfile will fail. IMPORTANT: It is the user's responsibility to see that the separate files are transported when the main file is moved. FORTRAN N/A RETURNS Returns length of the external file name or FAIL. If the SDS does not have external element, the length will be 0. ******************************************************************************/ intn SDgetexternalfile(int32 id, /* IN: dataset ID */ intn buf_size, /* IN: name of external file */ char *ext_filename, /* IN: name of external file */ int32 *offset /* IN: offset in external file */) { CONSTR(FUNC, "SDgetexternalfile"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; intn actual_len = 0; int ret_value = 0; #ifdef SDDEBUG fprintf(stderr, "SDgetexternalfile: I've been called\n"); #endif /* Clear error stack */ HEclear(); /* Get the var structure */ handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, id); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* SDS exists */ if(var->data_ref) { int32 aid=-1; int32 retcode=0; sp_info_block_t info_block; /* special info block */ /* Get the access id and then its special info */ aid = Hstartread(handle->hdf_file, var->data_tag, var->data_ref); retcode = HDget_special_info(aid, &info_block); /* If the SDS has external element, return the external file info */ if (info_block.key == SPECIAL_EXT) { /* If the file name is not available, the file is probably corrupted, so we need to report it. */ if (info_block.path == NULL || HDstrlen(info_block.path) <= 0) ret_value = FAIL; else { size_t ext_file_len = HDstrlen(info_block.path); /* If caller requests the length of the external file name only, return the length */ if (buf_size == 0) actual_len = (intn)ext_file_len; else { /* Caller requests file name, so buffer must not be NULL */ if (ext_filename == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the name and its length */ HDstrncpy(ext_filename, info_block.path, buf_size); actual_len = buf_size < ext_file_len ? buf_size : ext_file_len; /* Get the offset in the external file if it's requested */ if (offset != NULL) *offset = info_block.offset; } /* buf_size != 0 */ ret_value = actual_len; } } /* Not external */ else ret_value = FAIL; /* End access to the aid */ if (Hendaccess(aid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetexternalfile */ /****************************************************************************** NAME SDsetnbitdataset -- Create/convert a dataset to n-bit representation DESCRIPTION Specify that the actual data for this dataset be represented as a n-bit dataset internally in the HDF file. The start_bit parameter determines the lowest bit to write out, the bit_len parameter determines how many bits to write out. The bits in the data include the lowest bit (start_bit) and count up bit_len-1 bits to write out. For example, starting at bit 2 and writing 4 bits from the following bit data, "01111011", would write out the bit data, "1110", to the dataset on disk. The sign_ext parameter determines whether the top bit (highest bit #) is used to sign extend the bits whether data is read back from the disk. The fill_one parameter is used to determine whether to fill the "background bits" (the bits not in the data written to the file) with 1's or 0's when the data is read back from the file. Only the data (as in SDwritedata()) will be stored in n-bit representation. Attributes and such will still be stored normally. IMPORTANT: This will only work on datasets stored in HDF files. NOTE: n-bit "compression" is described more fully in the cnbit.c file. RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetnbitdataset(int32 id, /* IN: dataset ID */ intn start_bit, /* IN: starting bit offset (lowest=0) */ intn bit_len, /* IN: # of bits to write */ intn sign_ext, /* IN: Whether to sign extend */ intn fill_one /* IN: Whether to fill background w/1's */) { NC *handle = NULL; NC_var *var = NULL; model_info m_info; /* modeling information for the HCcreate() call */ comp_info c_info; /* "compression" information for the HCcreate() call */ intn status; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetnbitdataset: I've been called\n"); #endif /* clear error stack */ HEclear(); if(start_bit < 0 || bit_len <= 0) { ret_value = FAIL; goto done; } handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } /* set up n-bit parameters */ c_info.nbit.nt = var->HDFtype; c_info.nbit.sign_ext = sign_ext; c_info.nbit.fill_one = fill_one; c_info.nbit.start_bit = start_bit; c_info.nbit.bit_len = bit_len; #ifdef SDDEBUG printf("SDsetnbitdata(): nt=%d, sign_ext=%d, fill_one=%d, start_bit=%d, bit_len=%d\n",(intn)c_info.nbit.nt,(intn)c_info.nbit.sign_ext,(intn)c_info.nbit.fill_one,(intn)c_info.nbit.start_bit,(intn)c_info.nbit.bit_len); #endif if(!var->data_ref) { /* doesn't exist */ #ifdef SDDEBUG printf("SDsetnbitdata(): dataset doesn't exist\n"); #endif /* element doesn't exist so we need a reference number */ #ifdef NOT_YET var->data_ref=Htagnewref(handle->hdf_file,DATA_TAG); #else /* NOT_YET */ var->data_ref=Hnewref(handle->hdf_file); #endif /* NOT_YET */ if(var->data_ref == 0) { ret_value = FAIL; goto done; } } /* end if */ status=(intn)HCcreate(handle->hdf_file,(uint16)DATA_TAG, (uint16) var->data_ref,COMP_MODEL_STDIO,&m_info, COMP_CODE_NBIT, &c_info); #ifdef SDDEBUG printf("SDsetnbitdata(): HCcreate() status=%d\n",(intn)status); #endif if(status != FAIL) { if((var->aid != 0) && (var->aid != FAIL)) { if (Hendaccess(var->aid) == FAIL) { ret_value = FAIL; goto done; } } var->aid = status; } /* end if */ ret_value = status; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetnbitdataset */ #ifdef H4_HAVE_LIBSZ /* we have the library */ /****************************************************************************** NAME SDsetup_szip_parms -- check and set parameters for szip compression int32 id; IN: the varid NC *handle; IN: the SD handle comp_info *c_info; IN/OUT: the compression settings int32 *cdims; IN: the chunk dims, NULL if not chunked DESCRIPTION Collect the parameters and call HCPcszip_setup_parms to set the computed szip paramters. RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetup_szip_parms( int32 id, NC *handle, comp_info *c_info, int32 *cdims) { NC_dim *dim; /* to check if the dimension is unlimited */ int32 dimindex;/* to obtain the NC_dim record */ NC_var *var; int32 ndims; int i; int32 xdims[H4_MAX_VAR_DIMS]; int32 nt; intn ret_value = SUCCEED; /* clear error stack */ HEclear(); if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } ndims = var->assoc->count; for (i = 0; i < ndims; i++) { dimindex = var->assoc->values[i]; dim = SDIget_dim(handle, dimindex); xdims[i] = dim->size; } nt = var->HDFtype; ret_value = HCPsetup_szip_parms( c_info, nt, 1, ndims, xdims, cdims); done: return(ret_value); } #endif /****************************************************************************** NAME SDsetcompress -- Create/convert a dataset to compressed representation DESCRIPTION Specify a compression scheme for an SD dataset. Valid compression types available for this interface are listed in hcomp.h as COMP_nnnn. IMPORTANT: This will only work on datasets stored in HDF files. RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetcompress(int32 id, /* IN: dataset ID */ comp_coder_t comp_type, /* IN: the type of compression to perform on the next image */ comp_info *c_info /* IN: ptr to compression info struct*/) { CONSTR(FUNC, "SDsetcompress"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; NC_dim *dim; /* to check if the dimension is unlimited */ int32 dimindex;/* to obtain the NC_dim record */ model_info m_info; /* modeling information for the HCcreate() call */ comp_info c_info_x; /* local copy */ uint32 comp_config; intn status = FAIL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetcompress: I've been called\n"); #endif /* SDDEBUG */ /* clear error stack */ HEclear(); if (comp_type < COMP_CODE_NONE || comp_type >= COMP_CODE_INVALID) { ret_value = FAIL; goto done; } /* Must have encoder to set compression */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_NOENCODER, FAIL); } HDmemcpy(&c_info_x,c_info,sizeof(comp_info)); handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } /* disallow setting compress for SDS with rank = 0 - BMR, bug #1045 */ if(var->shape == NULL) { ret_value = FAIL; goto done; } /* unlimited dimensions don't work with compression */ /* Get the index of the SDS' first dimension from the list of indices * branching out from NC_var. This index indicates where this dim * is in the "dims" list branching out from NC. */ dimindex = var->assoc->values[0]; /* Retrieve the NC_dim record to check for unlimited dimension */ dim = SDIget_dim(handle, dimindex); if(dim == NULL) { ret_value = FAIL; goto done; } /* If this dimension is unlimited, then return FAIL; the subsequent * writing of this SDS will write uncompressed data */ if (dim->size == SD_UNLIMITED) { ret_value = FAIL; goto done; } #ifdef H4_HAVE_LIBSZ /* we have the library */ if (comp_type == COMP_CODE_SZIP) { if (SDsetup_szip_parms( id, handle, &c_info_x, NULL) == FAIL) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } } #else /* no SZIP */ /* probably covered by test at start */ if (comp_type == COMP_CODE_SZIP) { HGOTO_ERROR(DFE_BADCODER, FAIL); } #endif /* H4_HAVE_LIBSZ */ #ifdef SDDEBUG printf("SDsetcompress(): var->data_ref=%d\n",(int)var->data_ref); #endif /* SDDEBUG */ if(!var->data_ref) { /* doesn't exist */ #ifdef SDDEBUG printf("SDsetcompress(): dataset doesn't exist\n"); #endif /* SDDEBUG */ /* element doesn't exist so we need a reference number */ #ifdef NOT_YET var->data_ref=Htagnewref(handle->hdf_file,DATA_TAG); #else /* NOT_YET */ var->data_ref=Hnewref(handle->hdf_file); #endif /* NOT_YET */ if(var->data_ref == 0) { ret_value = FAIL; goto done; } } /* end if */ status=(intn)HCcreate(handle->hdf_file,(uint16)DATA_TAG, (uint16) var->data_ref,COMP_MODEL_STDIO,&m_info, comp_type, &c_info_x); #ifdef SDDEBUG printf("SDsetcompress(): HCcreate() status=%d\n",(intn)status); if(status==FAIL) HEprint(stderr,0); #endif /* SDDEBUG */ if(status != FAIL) { if((var->aid != 0) && (var->aid != FAIL)) { if (Hendaccess(var->aid) == FAIL) { ret_value = FAIL; goto done; } } var->aid = status; } /* end if */ /* Insert data tag/ref into the variable's Vgroup */ if(var->vgid) { int32 vg; /* attach to the variable's Vgroup */ vg = Vattach(handle->hdf_file, var->vgid, "w"); if(vg == FAIL) { ret_value = FAIL; goto done; } /* add new Vdata to existing Vgroup */ if (Vaddtagref(vg, (int32) DATA_TAG, (int32) var->data_ref) == FAIL) { ret_value = FAIL; goto done; } /* detach from the variable's VGroup --- will no longer need it */ if (Vdetach(vg) == FAIL) { ret_value = FAIL; goto done; } } /* added a new object -- make sure we flush the header */ handle->flags |= NC_HDIRTY; ret_value = (status != FAIL ? SUCCEED : FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetcompress */ #ifndef H4_NO_DEPRECATED_SYMBOLS /****************************************************************************** NAME SDgetcompress -- Retrieves compression information of a dataset DESCRIPTION This routine uses HCPgetcompress to retrieve the compression type and the compression information of the identified dataset. RETURNS SUCCEED/FAIL MODIFICATION July 2001: Added to fix bug #307 - BMR Apr 2005: This function has incorrect behavior and is replaced by SDgetcompinfo. SDgetcompress will be removed in the future. ******************************************************************************/ intn SDgetcompress(int32 id, /* IN: dataset ID */ comp_coder_t* comp_type, /* OUT: the type of compression */ comp_info* c_info)/* OUT: ptr to compression information structure for storing the retrieved info */ { CONSTR(FUNC, "SDgetcompress"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; intn status = FAIL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetcompress: I've been called\n"); #endif /* SDDEBUG */ /* clear error stack */ HEclear(); if(comp_type == NULL || c_info == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, id); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef SDDEBUG printf("SDgetcompress(): var->data_ref=%d, var->aid=%d\n",(int)var->data_ref, (int)var->aid); #endif /* SDDEBUG */ if(!var->data_ref) HGOTO_ERROR(DFE_ARGS, FAIL); /* use lower-level routine to get the compression information */ status = HCPgetcompress(handle->hdf_file, var->data_tag, var->data_ref, comp_type, c_info); if(status==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetcompress */ #endif /* H4_NO_DEPRECATED_SYMBOLS */ /****************************************************************************** NAME SDgetcompinfo -- Retrieves compression information of a dataset DESCRIPTION This routine uses HCPgetcompinfo to retrieve the compression type and the compression information of the identified dataset. RETURNS SUCCEED/FAIL MODIFICATION July 2001: Added to fix bug #307 - BMR (from SDgetcompress) Apr 2005: This function was actually created at this time, but it is almost a duplicate of SDgetcompress, which is intended to be removed in the future, due to its incorrect behavior. The only difference is the call to the low-level routine, HCPgetcompinfo, instead of HCPgetcompress. ******************************************************************************/ intn SDgetcompinfo(int32 sdsid, /* IN: dataset ID */ comp_coder_t* comp_type, /* OUT: the type of compression */ comp_info* c_info)/* OUT: ptr to compression information structure for storing the retrieved info */ { CONSTR(FUNC, "SDgetcompinfo"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; intn status = FAIL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetcompinfo: I've been called\n"); #endif /* SDDEBUG */ /* clear error stack */ HEclear(); if(comp_type == NULL || c_info == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef SDDEBUG printf("SDgetcompinfo(): var->data_ref=%d, var->aid=%d\n",(int)var->data_ref, (int)var->aid); #endif /* SDDEBUG */ /* return with SUCCEED if the data set is empty and not compressed; when the data set is set compressed, the data has a valid reference number */ if(!var->data_ref) { *comp_type = COMP_CODE_NONE; HGOTO_DONE(SUCCEED); } /* use lower-level routine to get the compression information */ status = HCPgetcompinfo(handle->hdf_file, var->data_tag, var->data_ref, comp_type, c_info); if(status==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetcompinfo */ /****************************************************************************** NAME SDgetcomptype -- Retrieves compression method of a dataset DESCRIPTION This routine uses HCPgetcomptype to retrieve the compression type of the identified dataset. RETURNS SUCCEED/FAIL MODIFICATION Dec 2007: Added to work around the problem where an external library is missing, SDgetcompinfo will fail. This new API will not need to get the compression information but only the compression type, which sometime is the only thing an application needs - BMR ******************************************************************************/ intn SDgetcomptype(int32 sdsid, /* IN: dataset ID */ comp_coder_t* comp_type /* OUT: the type of compression */) { CONSTR(FUNC, "SDgetcomptype"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; intn status = FAIL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetcomptype: I've been called\n"); #endif /* SDDEBUG */ /* clear error stack */ HEclear(); if(comp_type == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* return with SUCCEED if the data set is empty and not compressed - when the data set was set to be compressed, the data would have had a valid reference number even there was no data written */ if(!var->data_ref) { *comp_type = COMP_CODE_NONE; HGOTO_DONE(SUCCEED); } /* use lower-level routine to get the compression method */ status = HCPgetcomptype(handle->hdf_file, var->data_tag, var->data_ref, comp_type); if(status==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetcomptype */ /****************************************************************************** NAME SDgetdatasize -- Retrieves the sizes of original and compressed data. DESCRIPTION This routine uses HCPgetdatasize to retrievethe original data and compressed data sizes of the identified dataset. At least of the OUT arguments must be non-null and a null argument will be unchanged. RETURNS SUCCEED/FAIL MODIFICATION ******************************************************************************/ intn SDgetdatasize(int32 sdsid, /* IN: dataset ID */ int32* comp_size, /* OUT: size of compressed data */ int32* orig_size) /* OUT: size of original data */ { CONSTR(FUNC, "SDgetdatasize"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; int32 *comp_size_tmp=NULL, *orig_size_tmp=NULL; intn status = FAIL; intn ret_value = SUCCEED; /* clear error stack */ HEclear(); /* must have at least one non-null argument */ if (comp_size == NULL && orig_size == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* allocate temporary buffers so user's arguments can be kept intact until finished */ if (comp_size != NULL) comp_size_tmp = (int32 *) HDmalloc(sizeof(int32)); if (orig_size != NULL) orig_size_tmp = (int32 *) HDmalloc(sizeof(int32)); /* get NC_var record */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if the data ref# of the SDS is 0, it indicates that the SDS has not been written with data because no storage is created for the SDS data */ if (var->data_ref == 0) { *comp_size_tmp = *orig_size_tmp = 0; } else { /* use lower-level routine to get the data sizes */ status = HCPgetdatasize(handle->hdf_file, var->data_tag, var->data_ref, comp_size_tmp, orig_size_tmp); if (status == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Return the requested sizes */ if (comp_size != NULL) *comp_size = *comp_size_tmp; if (orig_size != NULL) *orig_size = *orig_size_tmp; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (comp_size_tmp != NULL) HDfree(comp_size_tmp); if (orig_size_tmp != NULL) HDfree(orig_size_tmp); return ret_value; } /* SDgetdatasize */ /****************************************************************************** NAME SDfindattr -- find an attribute's index by name DESCRIPTION Given an ID to an object and an attribute name return the index of the attribute with that name. This does not support any form of wildcards / regular expressions RETURNS An attribute index or FAIL ******************************************************************************/ int32 SDfindattr(int32 id, /* IN: object ID */ const char *attrname /* IN: attribute name */) { NC_array *ap = NULL; NC_array **app = NULL; NC_attr **attr = NULL; NC *handle = NULL; int32 attrid; size_t len; int32 ret_value = FAIL; /* clear error stack */ HEclear(); /* determine what type of ID we've been given */ if(SDIapfromid(id, &handle, &app) == FAIL) { ret_value = FAIL; goto done; } ap = (*app); if(ap == NULL) { ret_value = FAIL; goto done; } /* * ap is the proper attribute list now look up something with this * name */ attr = (NC_attr **) ap->values; len = HDstrlen(attrname); for(attrid = 0 ; attrid < ap->count ; attrid++, attr++) { if( len == (*attr)->name->len && HDstrncmp(attrname, (*attr)->name->values, HDstrlen(attrname)) == 0) { ret_value = attrid ; /* found it */ goto done; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDfindattr */ /****************************************************************************** NAME SDidtoref -- get a unique reference number for this dataset DESCRIPTION Given an index return the ref of the associated NDG for inclusion in Vgroups and annotations RETURNS A reference number or FAIL ******************************************************************************/ int32 SDidtoref(int32 id /* IN: dataset ID */) { NC *handle = NULL; NC_var *var = NULL; int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDidtoref: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } ret_value = (int32) var->ndg_ref; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDidtoref */ /****************************************************************************** NAME SDreftoindex -- map a reference number to a dataset index DESCRIPTION Given a ref number return the index of the cooresponding dataset RETURNS A dataset index or FAIL ******************************************************************************/ int32 SDreftoindex(int32 fid, /* IN: file ID */ int32 ref /* IN: reference number */) { NC *handle = NULL; NC_var **dp = NULL; intn ii; int32 ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDreftoindex: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } dp = (NC_var**) handle->vars->values; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if((*dp)->ndg_ref == ref) { ret_value = ii; goto done; } } ret_value = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDreftoindex */ /****************************************************************************** NAME SDisrecord -- check is var is a record variable DESCRIPTION Return TRUE if the dataset in question is a record variable else FALSE RETURNS TRUE/FALSE ******************************************************************************/ int32 SDisrecord(int32 id /* IN: dataset ID */) { NC *handle; NC_var *var; int32 ret_value = TRUE; #ifdef SDDEBUG fprintf(stderr, "SDisrecord: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL) { ret_value = FALSE; goto done; } if(handle->vars == NULL) { ret_value = FALSE; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FALSE; goto done; } if(var->shape == NULL) { ret_value = TRUE; /* EP thinks it should return true - BMR, bug #1045 */ goto done; } if(var->shape[0] == SD_UNLIMITED) ret_value = TRUE; else ret_value = FALSE; done: if (ret_value == FALSE) { /* FALSE cleanup */ } /* Normal cleanup */ return ret_value; } /* SDisrecord */ /****************************************************************************** NAME SDiscoordvar -- check is var is a coord var DESCRIPTION Return TRUE if the dataset in question is a coordinate variable RETURNS TRUE/FALSE ******************************************************************************/ intn SDiscoordvar(int32 id /* IN: dataset ID */) { NC *handle = NULL; NC_var *var = NULL; NC_dim *dim = NULL; int32 dimindex; intn ret_value = TRUE; #ifdef SDDEBUG fprintf(stderr, "SDiscoordvar: I've been called\n"); #endif /* clear error stack */ HEclear(); handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL) { ret_value = FALSE; goto done; } if(handle->vars == NULL) { ret_value = FALSE; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FALSE; goto done; } /* check whether this var is an SDS or a coordinate variable, then return the appropriate value (if and else if) */ if (var->var_type == IS_SDSVAR) { ret_value = FALSE; goto done; } else if(var->var_type == IS_CRDVAR) { ret_value = TRUE; goto done; } /* whether or not this var is a coord var is unknown because the data was created by earlier version of the library which did not distinguish the two kinds of variables, SDS variable and coordinate variables. (see bugzilla 624) - BMR - 05/14/2007 */ else /* proceed exactly as before the fix of bugzilla 624 is available */ { dimindex = var->assoc->values[0]; dim = SDIget_dim(handle, dimindex); if(dim == NULL) { ret_value = FALSE; goto done; } if(var->name->len != dim->name->len) { ret_value = FALSE; goto done; } if(HDstrcmp(var->name->values, dim->name->values)) { ret_value = FALSE; goto done; } ret_value = TRUE; } done: if (ret_value == FALSE) { /* FALSE cleanup */ } /* Normal cleanup */ return ret_value; } /* SDiscoordvar */ #if 0 /* ---------------------------- RAGGED ARRAYS ----------------------------- */ /* Ragged arrays are a cross between datasets and index structures. The basic idea is that all but one of the dimensions is constant. The other dimension can vary over the course of the dataset. This is useful for storing equalarea grids and for making alogrithms much more complex. Ragged arrays can be multi-dimensional and, eventually, record variables too. A 2-dimensional ragged array would look like: ********** ******** ********* <---------- This is a line ***** *** ********* ******* The above ragged array has 7 "lines" the "line length" of the fifth line is three. It is not necessary to set all of the line lengths at the same time nor retreive them all at the same time. However, to specify the line length for line X, the length must be specified for all Y < X (is this really necessary?) Internally, the above ragged array would be stored as a one-dimensional dataset. In addition, there will be a rag_fill array that contains the line lengths. This rag_fill array will get written to a separate structure in the file (tag DFTAG_SDRAG). */ /* ------------------------------------------------------------------------ */ /****************************************************************************** Set the lengths of the lines of a ragged array. Currently, these lines must be specified in increasing order (i.e. can't use hyperslab type locations to set them). This should probably be made nicer once everything else works. ******************************************************************************/ int32 SDsetrag(int32 sdsid, int32 low, int32 count, int32 *sizes) { NC *handle = NULL; NC_var *var = NULL; int32 ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetrag: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the variable */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, sdsid); if((var == NULL) || (var->is_ragged == FALSE)) { ret_value = FAIL; goto done; } /* verify writing to a valid area */ if(var->rag_fill != low) { printf("var->rag_fill %d low %d\n", var->rag_fill, low); ret_value = FAIL; goto done; } /* allocate some space for the ragged dimension if needed */ /* BUG: will need to be changed for ragged records */ if(var->rag_list == NULL) { var->rag_list = (int32 *) HDmalloc(sizeof(int32) * var->dsizes[0]); if(var->rag_list == NULL) { ret_value = FAIL; goto done; } } /* copy over the new values */ HDmemcpy(&(var->rag_list[low]), sizes, sizeof(int32) * count); /* update count */ var->rag_fill += count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetrag */ #endif /* 0 */ /****************************************************************************** NAME SDsetaccesstype -- set the I/O access type of an SD DESCRIPTION Set the type of I/O (serial, parallel, ...) for accessing the data of the SD. Access types can be DFACC_SERIAL, DFACC_PARALLEL, DFACC_DEFAULT. RETURNS Return SUCCEED if the SD data can be accessed via accesstype. Otherwise return FAIL. ******************************************************************************/ intn SDsetaccesstype(int32 id, /* IN: dataset ID */ uintn accesstype /* IN: access type */) { NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetaccesstype: I've been called\n"); #endif /* clear error stack */ HEclear(); switch (accesstype) { case DFACC_DEFAULT: case DFACC_SERIAL: case DFACC_PARALLEL: break; default: ret_value = FAIL; goto done; } handle = SDIhandle_from_id(id, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) { ret_value = FAIL; goto done; } if(handle->vars == NULL) { ret_value = FAIL; goto done; } var = SDIget_var(handle, id); if(var == NULL) { ret_value = FAIL; goto done; } /* if aid is not valid yet, there is no access_rec setup yet. */ /* Go ahead and try set it up. */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) ret_value = FAIL; else ret_value = (intn)Hsetaccesstype(var->aid, accesstype); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetaccesstype */ /****************************************************************************** NAME SDsetblocksize -- set the size of the linked blocks created. DESCRIPTION Set the size of the blocks used for storing the data for unlimited dimension datasets. This is used when creating new datasets only, it does not have any affect on existing datasets. The block_size should probably be set to a multiple of the "slice" size. RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetblocksize(int32 sdsid, /* IN: dataset ID */ int32 block_size /* IN: size of the block in bytes */) { NC *handle = NULL; NC_var *var = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetblocksize: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the variable */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* set the block size */ var->block_size = block_size; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetblocksize */ /****************************************************************************** NAME SDgetblocksize -- get the size of the linked blocks. DESCRIPTION Get the size of the blocks to be used for storing data of unlimited dimension datasets. RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDgetblocksize(int32 sdsid, /* IN: dataset ID */ int32 *block_size /* OUT: size of the block in bytes */) { CONSTR(FUNC, "SDgetblocksize"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; int32 block_length = -1; int32 temp_aid = -1; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetblocksize: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the variable */ var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get access id using data tag/ref. Fail if data ref has not been defined; this happens when SDgetblocksize is called when no data has been written or no special element has been created. -BMR, 2013/12/17 */ temp_aid = var->aid; /* use temp to avoid messing up var->aid. -BMR */ if (temp_aid == FAIL) { if (var->data_ref == 0) /* no data means no linked-block storage */ HGOTO_ERROR(DFE_GENAPP, FAIL); /* Start read access on the element to acquire access id */ temp_aid = Hstartread(handle->hdf_file, var->data_tag, var->data_ref); if(temp_aid == FAIL) /* catch FAIL from Hstartread */ HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Use internal routine to do the actual retrieval */ if (HLgetblockinfo(temp_aid, &block_length, NULL) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (block_length > 0) *block_size = block_length; /* End access to the temp_aid only when var->aid is -1, so we won't end access var->aid if it was valid. */ if (var->aid == FAIL && temp_aid != FAIL) Hendaccess(temp_aid); done: if (ret_value == FAIL) { /* Failure cleanup */ if (var->aid == FAIL && temp_aid != FAIL) Hendaccess(temp_aid); } /* Normal cleanup */ return ret_value; } /* SDgetblocksize */ /****************************************************************************** NAME SDsetfillmode -- set fill mode as fill or nofill DESCRIPTION Calls ncsetfill(). RETURNS The current fill mode of the file, or FAIL for error. ******************************************************************************/ intn SDsetfillmode(int32 sd_id, /* IN: HDF file ID, returned from SDstart */ intn fillmode /* IN: Desired fill mode for the file, either SD_FILL or SD_NOFILL. SD_FILL is the default mode. */) { NC *handle = NULL; intn cdfid; intn ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDsetfillmode: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(sd_id, CDFTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } cdfid = (intn)sd_id & 0xffff; ret_value = ncsetfill(cdfid, fillmode); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetfillmode() */ /****************************************************************************** NAME SDsetdimval_comp -- set dimval backward compatibility DESCRIPTION RETURNS SUCCEED/FAIL ******************************************************************************/ intn SDsetdimval_comp(int32 dimid, /* IN: dimension ID, returned from SDgetdimid */ intn comp_mode /* IN: backward compatibility: SD_DIMVAL_BW_COMP -- compatible SD_DIMVAL_BW_INCOMP -- incompatible. (defined in mfhdf.h ) */) { NC *handle = NULL; NC_dim *dim = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDsetdimval_comp: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(dimid, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, dimid); if(dim == NULL) { ret_value = FAIL; goto done; } /* if (dim->size != SD_UNLIMITED && dim->dim00_compat != comp_mode ) */ if (dim->dim00_compat != comp_mode) { dim->dim00_compat = comp_mode; /* make sure it gets reflected in the file */ handle->flags |= NC_HDIRTY; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetdimval_comp */ /****************************************************************************** NAME SDisdimval_bwcomp -- get dimval backward compatibility DESCRIPTION RETURNS SD_DIMVAL_BW_COMP if dimval is backward compatible; SD_DIMVAL_BW_INCOMP for not compatible; FAIL for error. ******************************************************************************/ intn SDisdimval_bwcomp(int32 dimid /* IN: dimension ID, returned from SDgetdimid */) { NC *handle = NULL; NC_dim *dim = NULL; intn ret_value = FAIL; #ifdef SDDEBUG fprintf(stderr, "SDisdimval_bwcomp: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(dimid, DIMTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the dimension structure */ dim = SDIget_dim(handle, dimid); if(dim == NULL) { ret_value = FAIL; goto done; } /* Default is incompatible. Return dim->dim00_compat. if (dim->size == SD_UNLIMITED) ret_value = SD_DIMVAL_BW_COMP; else */ ret_value = dim->dim00_compat; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDisdimval_bwcomp */ /*====================== Chunking Routines ================================*/ /****************************************************************************** NAME SDsetchunk -- make SDS a chunked SDS DESCRIPTION This routine makes the SDS a chunked SDS according to the chunk definiton passed in. The dataset currently cannot be special already. i.e. NBIT, COMPRESSED, or EXTERNAL. This is an Error. The defintion of the HDF_CHUNK_DEF union with relvant fields is: typedef union hdf_chunk_def_u { int32 chunk_lengths[H4_MAX_VAR_DIMS]; Chunk lengths along each dimension struct { int32 chunk_lengths[H4_MAX_VAR_DIMS]; Chunk lengths along each dimension int32 comp_type; Compression type comp_info cinfo; Compression info struct }comp; } HDF_CHUNK_DEF The variable agruement 'flags' is a bit-or'd value which can currently be 'HDF_CHUNK' or 'HDF_CHUNK | HDF_COMP'. The simplist is the 'chunk_lengths' array specifiying chunk lengths for each dimension where the 'flags' argument set to 'HDF_CHUNK'; COMPRESSION is set by using the 'HDF_CHUNK_DEF' union to set the appropriate compression information along with the required chunk lengths for each dimension. The compression information is the same as that set in 'SDsetcompress()'. The bit-or'd 'flags' argument' is set to 'HDF_CHUNK | HDF_COMP'. See the example in pseudo-C below for further usage. The maximum number of Chunks in an HDF file is 65,535. The dataset currently cannot have an UNLIMITED dimension. The performance of the SDxxx interface with chunking is greatly affected by the users access pattern over the dataset and by the maximum number of chunks set in the chunk cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. See the routine SDsetchunkcache() for further info on the chunk cache and how to set the maximum number of chunks in the chunk cache. A default chunk cache is always created. The following example shows the organization of chunks for a 2D array. e.g. 4x4 array with 2x2 chunks. The array shows the layout of chunks in the chunk array. 4 --------------------- | | | Y | (0,1) | (1,1) | ^ | | | | 2 --------------------- | | | | | | (0,0) | (1,0) | | | | | | --------------------- | 0 2 4 ---------------> X --Without compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set Chunking -- SDsetchunk(sdsid, chunk_def, HDF_CHUNK); ...... } --With compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths first -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set compression -- chunk_def.comp.cinfo.deflate.level = 9; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; -- Set Chunking with Compression -- SDsetchunk(sdsid, chunk_def, HDF_CHUNK | HDF_COMP); ...... } NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn SDsetchunk(int32 sdsid, /* IN: sds access id */ HDF_CHUNK_DEF chunk_def, /* IN: chunk definition */ int32 flags /* IN: flags */) { CONSTR(FUNC, "SDsetchunk"); /* for HGOTO_ERROR */ NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ NC_attr **fill_attr = NULL; /* fill value attribute */ HCHUNK_DEF chunk[1]; /* H-level chunk defintion */ HDF_CHUNK_DEF *cdef = NULL; /* SD Chunk definition */ model_info minfo; /* dummy model info struct */ comp_info cinfo; /* compression info - NBIT */ uint32 comp_config; int32 *cdims = NULL; /* array of chunk lengths */ int32 fill_val_len = 0; /* fill value length */ void *fill_val = NULL; /* fill value */ int32 ndims = 0; /* # dimensions i.e. rank */ uint8 nlevels = 1; /* default # levels is 1 */ int8 platntsubclass; /* the machine type of the current platform */ int8 outntsubclass; /* the data's machine type */ uintn convert; /* whether to convert or not */ int32 tBuf_size = 0; /* conversion buffer size */ void *tBuf = NULL; /* buffer used for conversion */ intn i; /* loop variable */ intn ret_value = SUCCEED; /* return value */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: called \n"); #endif /* clear error stack */ HEclear(); /* make sure this is cleared */ memset(chunk,0,sizeof(chunk[0])); /* Check some args */ /* get file handle and verify it is an HDF file we only handle dealing with SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* disallow setting chunk for SDS with rank = 0 - BMR, bug #1045 */ if(var->shape == NULL) { ret_value = FAIL; goto done; } /* Decide type of defintion passed in */ switch (flags) { case HDF_CHUNK: /* case where chunk_def only has chunk lengths */ cdef = (HDF_CHUNK_DEF *)&chunk_def; cdims = cdef->chunk_lengths; chunk[0].chunk_flag = 0; /* nothing set for this now */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ chunk[0].cinfo = &cinfo; /* dummy */ chunk[0].minfo = &minfo; /* dummy */ break; case (HDF_CHUNK | HDF_COMP): /* EIP 9/11/03 * We have to take special care if SZIP library is not available; * For all other compression types do */ cdef = (HDF_CHUNK_DEF *)&chunk_def; HCget_config_info( (comp_coder_t)cdef->comp.comp_type , &comp_config); if ((comp_config & (COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED)) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_NOENCODER, FAIL); } if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } if ((comp_coder_t)cdef->comp.comp_type != COMP_CODE_SZIP) { cdims = cdef->comp.chunk_lengths; chunk[0].chunk_flag = SPECIAL_COMP; /* Compression */ chunk[0].comp_type = (comp_coder_t)cdef->comp.comp_type; chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ chunk[0].cinfo = &cdef->comp.cinfo; chunk[0].minfo = &minfo; /* dummy */ } else /* requested compression is SZIP */ #ifdef H4_HAVE_LIBSZ /* we have the library */ { cdims = cdef->comp.chunk_lengths; chunk[0].chunk_flag = SPECIAL_COMP; /* Compression */ chunk[0].comp_type = (comp_coder_t)cdef->comp.comp_type; chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ chunk[0].minfo = &minfo; /* dummy */ HDmemcpy(&cinfo,&(cdef->comp.cinfo),sizeof(comp_info)); if ( SDsetup_szip_parms( sdsid, handle, &cinfo, cdims) == FAIL ) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } chunk[0].cinfo = &cinfo; } #else /* we do not have the SZIP library */ { HGOTO_ERROR(DFE_BADCODER, FAIL); } #endif /* H4_HAVE_LIBSZ */ break; case (HDF_CHUNK | HDF_NBIT): cdef = (HDF_CHUNK_DEF *)&chunk_def; cdims = cdef->nbit.chunk_lengths; chunk[0].chunk_flag = SPECIAL_COMP; /* NBIT is a type of compression */ chunk[0].comp_type = COMP_CODE_NBIT; /* Nbit compression? */ chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ /* set up n-bit parameters */ cinfo.nbit.nt = var->HDFtype; cinfo.nbit.sign_ext = cdef->nbit.sign_ext; cinfo.nbit.fill_one = cdef->nbit.fill_one; cinfo.nbit.start_bit = cdef->nbit.start_bit; cinfo.nbit.bit_len = cdef->nbit.bit_len; chunk[0].cinfo = &cinfo; chunk[0].minfo = &minfo; /* dummy */ break; default: ret_value = FAIL; goto done; } #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: does data ref exist? \n"); #endif /* Does data exist yet */ if(!var->data_ref) { /* doesn't exist */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: data ref does not exist \n"); #endif /* element doesn't exist so we need a reference number */ var->data_ref=Hnewref(handle->hdf_file); if(var->data_ref == 0) { #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: failed to get data ref \n"); #endif ret_value = FAIL; goto done; } } else /* data ref exists, Error since can't convert existing SDS to chunked */ { ret_value = FAIL; goto done; } /* Now start setting chunk info */ ndims = var->assoc->count; /* set number of dims i.e. rank */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: got data ref, ndims =%d \n",ndims); #endif /* allocate space for chunk dimensions */ if ((chunk[0].pdims = (DIM_DEF *)HDmalloc(ndims*sizeof(DIM_DEF))) == NULL) { ret_value = FAIL; goto done; } /* initialize datset/chunk sizes using CHUNK defintion structure */ chunk[0].chunk_size = 1; chunk[0].num_dims = ndims; /* Developer's note: should move unlim check to the beginning and clean up this for loop */ for (i = 0; i < ndims; i++) { /* get dimension length from shape arrays */ /* check if dimension in unlimited since we don't handle that yet */ if (var->shape[i] != SD_UNLIMITED) chunk[0].pdims[i].dim_length = (int32) var->shape[i]; else { /* UNLIMITED dimension case */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: unlimited dimension case \n"); fflush(stderr); #endif ret_value = FAIL; goto done; } #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: (int32) var->shape[%d]=%d\n",i,(int32) var->shape[i]); fflush(stderr); #endif /* set chunk lengths */ if (cdims[i] >= 1) chunk[0].pdims[i].chunk_length = cdims[i]; else { /* chunk length is less than 1 */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: chunk length less than 1, cdims[%d]=%d \n",i,cdims[i]); fflush(stderr); #endif ret_value = FAIL; goto done; } #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: cdims[%d]=%d \n",i,cdims[i]); fflush(stderr); #endif /* Data distribution along dimensions * Check dimension length agains chunk length */ if (cdims[i] == (int32)var->shape[i]) chunk[0].pdims[i].distrib_type = 0; /* NONE */ else chunk[0].pdims[i].distrib_type = 1; /* BLOCK */ /* compute chunk size */ chunk[0].chunk_size *= cdims[i]; } /* end for ndims */ /* Set number type size i.e. size of data type */ chunk[0].nt_size = var->HDFsize; #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: var->HDFsize=%d\n",var->HDFsize); fflush(stderr); #endif /* allocate space for fill value whose number type is the same as the dataset */ fill_val_len = var->HDFsize; if ((fill_val = (void *)HDmalloc(fill_val_len)) == NULL) { ret_value = FAIL; goto done; } /* get fill value if one is set for this Dataset. The number type is the same as that for the dataset. */ fill_attr = (NC_attr **) NC_findattr(&(var->attrs), _FillValue); if(fill_attr != NULL) { NC_copy_arrayvals((char *)fill_val, (*fill_attr)->data) ; } else /* copy standard default fill value for now */ { void *p = fill_val; switch(var->HDFtype & 0xff) { case DFNT_CHAR: case DFNT_UCHAR: *((uint8 *)p) = FILL_CHAR; break; case DFNT_INT8: case DFNT_UINT8: *((int8 *)p) = FILL_BYTE; break; case DFNT_INT16: case DFNT_UINT16: *((int16 *)p) = FILL_SHORT; break; case DFNT_INT32: case DFNT_UINT32: *((int32 *)p) = FILL_LONG; break; case DFNT_FLOAT32: *((float32 *)p) = FILL_FLOAT; break; case DFNT_FLOAT64: *((float64 *)p) = FILL_DOUBLE; break; default: ret_value = FAIL; goto done; } } /* figure out if fill value has to be converted */ if (FAIL == (platntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } if (DFKisnativeNT(var->HDFtype)) { if (FAIL == (outntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } } else { outntsubclass = DFKislitendNT(var->HDFtype) ? DFNTF_PC : DFNTF_HDFDEFAULT; } convert = (uintn)(platntsubclass != outntsubclass); /* make sure our tmp buffer is big enough to hold fill value */ if(convert && tBuf_size < fill_val_len) { if(tBuf != NULL) HDfree(tBuf); tBuf_size = fill_val_len; tBuf = HDmalloc(tBuf_size); if(tBuf == NULL) { tBuf_size = 0; ret_value = FAIL; goto done; } /* end if */ } /* end if */ #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: get ready to create, convert=%d\n",convert); #endif if (convert) { /* convert fill value */ if (FAIL == DFKconvert(fill_val, tBuf, var->HDFtype, (uint32) (fill_val_len/var->HDFsize), DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } /* check to see already special. Error if already special since doubly special elements are not yet handled. HMCcreate should catch this....*/ /* Create SDS as chunked element */ ret_value = HMCcreate(handle->hdf_file, /* HDF file handle */ (uint16)DATA_TAG, /* Data tag */ (uint16) var->data_ref, /* Data ref */ nlevels, /* nlevels */ fill_val_len, /* fill value length */ tBuf, /* fill value */ (HCHUNK_DEF *)chunk /* chunk definition */); } else /* no need to convert fill value */ { /* check to see already special. Error if already special since doubly special elements are not yet handled. HMCcreate should catch this....*/ /* Create SDS as chunked element */ ret_value = HMCcreate(handle->hdf_file, /* HDF file handle */ (uint16)DATA_TAG, /* Data tag */ (uint16) var->data_ref, /* Data ref */ nlevels, /* nlevels */ fill_val_len, /* fill value length */ fill_val, /* fill value */ (HCHUNK_DEF *)chunk /* chunk definition */); } #ifdef CHK_DEBUG fprintf(stderr,"SDsetchunk: ret_value =%d \n", ret_value); #endif /* check return */ if(ret_value != FAIL) { /* close old aid and set new one ..hmm......maybe this is for the doubly specail hack since this code framework came from SDsetcompress()....*/ if((var->aid != 0) && (var->aid != FAIL)) { if (Hendaccess(var->aid) == FAIL) { ret_value = FAIL; goto done; } } var->aid = ret_value; ret_value = SUCCEED; /* re-set to successful */ } /* end if */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free fill value */ if (fill_val != NULL) HDfree(fill_val); if (tBuf != NULL) HDfree(tBuf); /* free chunk dims */ if (chunk[0].pdims != NULL) HDfree(chunk[0].pdims); return ret_value; } /* SDsetchunk */ /****************************************************************************** NAME SDgetchunkinfo_old -- get Info on SDS DESCRIPTION This routine gets any special information on the SDS. If its chunked, chunked and compressed or just a regular SDS. Currently it will only fill the array of chunk lengths for each dimension as specified in the 'HDF_CHUNK_DEF' union. It does not tell you the type of compression or the compression parameters used. You can pass in a NULL for 'chunk_def' if don't want the chunk lengths for each dimension. If successfull it will return a bit-or'd value in 'flags' indicating if the SDS is chunked(HDF_CHUNK), chunked and compressed(HDF_CHUNK | HDF_COMP) or non-chunked(HDF_NONE). e.g. 4x4 array - Pseudo-C { HDF_CHUNK_DEF rchunk_def; int32 cflags; ... SDgetchunkinfo_old(sdsid, &rchunk_def, &cflags); ... } RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn SDgetchunkinfo_old(int32 sdsid, /* IN: sds access id */ HDF_CHUNK_DEF *chunk_def, /* IN/OUT: chunk definition */ int32 *flags /* IN/OUT: flags */) { NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ sp_info_block_t info_block; /* special info block */ int16 special; /* Special code */ intn i; /* loop variable */ intn ret_value = SUCCEED; /* return value */ /* clear error stack */ HEclear(); /* Check args */ /* get file handle and verify it is an HDF file we only handle dealing with SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* Data set is empty and not special */ if(var->data_ref == 0) { *flags = HDF_NONE; /* regular SDS */ ret_value = SUCCEED; goto done; } /* Check to see if data aid exists? i.e. may need to create a ref for SDS */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) { ret_value = FAIL; goto done; } /* inquire about element */ ret_value = Hinquire(var->aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { /* make sure it is chunked element */ if (special == SPECIAL_CHUNKED) { /* get info about chunked element */ if ((ret_value = HDget_special_info(var->aid, &info_block)) != FAIL) { /* Does user want chunk lengths back? */ if (chunk_def != NULL) { /* we assume user has allocat space for chunk lengths */ /* copy chunk lengths over */ for (i = 0; i < info_block.ndims; i++) { chunk_def->chunk_lengths[i] = info_block.cdims[i]; } } /* dont forget to free up info is special info block This space was allocated by the library */ HDfree(info_block.cdims); /* Check to see if compressed. Currently we don't fill in the 'comp' structure because currently only the information about the compression type is available in get compression info code and not the parameters that went along. */ switch(info_block.comp_type) { case COMP_CODE_NONE: *flags = HDF_CHUNK; break; case COMP_CODE_NBIT: *flags = (HDF_CHUNK | HDF_NBIT); break; default: *flags = (HDF_CHUNK | HDF_COMP); break; } } } else /* not special chunked element */ { *flags = HDF_NONE; /* regular SDS */ } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetchunkinfo_old() */ /****************************************************************************** NAME SDgetchunkinfo -- get Info on SDS DESCRIPTION This routine gets any special information on the SDS. If its chunked, chunked and compressed or just a regular SDS. Currently it will only fill the array of chunk lengths for each dimension as specified in the 'HDF_CHUNK_DEF' union. It does not tell you the type of compression or the compression parameters used. You can pass in a NULL for 'chunk_def' if don't want the chunk lengths for each dimension. If successfull it will return a bit-or'd value in 'flags' indicating if the SDS is chunked(HDF_CHUNK), chunked and compressed(HDF_CHUNK | HDF_COMP) or non-chunked(HDF_NONE). e.g. 4x4 array - Pseudo-C { HDF_CHUNK_DEF rchunk_def; int32 cflags; ... SDgetchunkinfo(sdsid, &rchunk_def, &cflags); ... } RETURNS SUCCEED/FAIL AUTHOR -GeorgeV MODIFICATION Jun, 2009: Added compression type and compression parameters.- BMR ******************************************************************************/ intn SDgetchunkinfo(int32 sdsid, /* IN: sds access id */ HDF_CHUNK_DEF *chunk_def, /* IN/OUT: chunk definition */ int32 *flags /* IN/OUT: flags */) { CONSTR(FUNC, "SDgetchunkinfo"); /* for HGOTO_ERROR */ NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ sp_info_block_t info_block; /* special info block */ comp_coder_t comp_type; comp_info c_info; int16 special; /* Special code */ intn i; /* loop variable */ intn ret_value = SUCCEED; /* return value */ /* Clear error stack */ HEclear(); /* Check args */ /* Get file handle and verify it is an HDF file we only handle dealing with SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* Get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If SDsetchunk had been called for this SDS, data_ref would have been a valid one. This is the case where data set is empty and not special */ if(var->data_ref == 0) { *flags = HDF_NONE; /* regular SDS */ ret_value = SUCCEED; goto done; } #ifdef added_by_mistake /* Replaced this if statement by if (var->aid == FAIL) because it seemed that hdf_get_vp_aid was called here by mistake (perhaps, copy/paste.) For more info, see SVN log messages and bug HDFFR-171. -BMR, 2011/10 */ /* Check if data aid exists; if not, set up an access elt for reading */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) { ret_value = FAIL; goto done; } #endif /* Need to get access id for the subsequent calls */ if (var->aid == FAIL) { var->aid = Hstartread(handle->hdf_file, var->data_tag, var->data_ref); if(var->aid == FAIL) /* catch FAIL from Hstartread */ HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Inquire about element's specialness */ ret_value = Hinquire(var->aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Make sure it is chunked element */ if (special == SPECIAL_CHUNKED) { /* Get info about chunked element */ if ((ret_value = HDget_special_info(var->aid, &info_block)) != FAIL) { /* Does user want chunk/comp info back? */ /* If no compression, fill in chunk length, otherwise, fill in chunk length and compression info. */ switch(info_block.comp_type) { case COMP_CODE_NONE: *flags = HDF_CHUNK; /* if chunk info is requested */ if (chunk_def != NULL) { /* copy chunk lengths over */ for (i = 0; i < info_block.ndims; i++) chunk_def->chunk_lengths[i] = info_block.cdims[i]; } break; case COMP_CODE_NBIT: *flags = (HDF_CHUNK | HDF_NBIT); /* if chunk info is requested */ if (chunk_def != NULL) { /* copy chunk lengths over */ for (i = 0; i < info_block.ndims; i++) chunk_def->nbit.chunk_lengths[i] = info_block.cdims[i]; /* get the NBIT compression info */ ret_value = HCPgetcompinfo(handle->hdf_file, var->data_tag, var->data_ref, &comp_type, &c_info); /* For backward compatibility, it will not fail here. However, the compression information parameters will be set to -1 to indicate that there are no compression information retrieved - BMR - 2009/06 */ if (ret_value == FAIL) { chunk_def->nbit.start_bit = chunk_def->nbit.bit_len = chunk_def->nbit.sign_ext = chunk_def->nbit.fill_one = -1; } else { chunk_def->nbit.start_bit = c_info.nbit.start_bit; chunk_def->nbit.bit_len = c_info.nbit.bit_len; chunk_def->nbit.sign_ext = c_info.nbit.sign_ext; chunk_def->nbit.fill_one = c_info.nbit.fill_one; } } break; default: *flags = (HDF_CHUNK | HDF_COMP); /* if chunk info is requested */ if (chunk_def != NULL) { /* copy chunk lengths over */ for (i = 0; i < info_block.ndims; i++) { chunk_def->comp.chunk_lengths[i] = info_block.cdims[i]; } /* get the compression info */ ret_value = HCPgetcompinfo(handle->hdf_file, var->data_tag, var->data_ref, &comp_type, &c_info); /* For backward compatibility, it will not fail here. However, the compression information parameters will be set to -1 to indicate that there are no compression information retrieved - EIP/BMR - 2010/02 */ if (ret_value == FAIL) { chunk_def->comp.comp_type = info_block.comp_type; switch (info_block.comp_type) { case COMP_CODE_NBIT: chunk_def->comp.cinfo.nbit.nt = chunk_def->comp.cinfo.nbit.sign_ext = chunk_def->comp.cinfo.nbit.fill_one = chunk_def->comp.cinfo.nbit.start_bit = chunk_def->comp.cinfo.nbit.bit_len = -1; break; case COMP_CODE_SKPHUFF: chunk_def->comp.cinfo.skphuff.skp_size = -1; break; case COMP_CODE_DEFLATE: chunk_def->comp.cinfo.deflate.level = -1; break; case COMP_CODE_SZIP: chunk_def->comp.cinfo.szip.pixels = chunk_def->comp.cinfo.szip.pixels_per_scanline = chunk_def->comp.cinfo.szip.options_mask = chunk_def->comp.cinfo.szip.bits_per_pixel = chunk_def->comp.cinfo.szip.pixels_per_block = -1; break; /* What about JPEG? - BMR */ default: /* no additional info needed */ break; } /* end switch */ } else { HDmemcpy(&(chunk_def->comp.cinfo), &c_info, sizeof(comp_info)); chunk_def->comp.comp_type = (int32)comp_type; } } /* chunk_def != NULL */ break; /* default */ } /* end of switch info_block.comp_type */ /* Free up info in special info block, allocated by the library */ HDfree(info_block.cdims); } } else /* not special chunked element */ { *flags = HDF_NONE; /* regular SDS */ } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetchunkinfo() */ /****************************************************************************** NAME SDwritechunk -- write the specified chunk to the SDS DESCRIPTION This routine writes a whole chunk of data to the chunked SDS specified by chunk 'origin' for the given SDS and can be used instead of SDwritedata() when this information is known. This routine has less overhead and is much faster than using SDwritedata(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See SDsetchunk() for a description of the organization of chunks in an SDS. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn SDwritechunk(int32 sdsid, /* IN: access aid to SDS */ int32 *origin,/* IN: origin of chunk to write */ const void *datap /* IN: buffer for data */) { CONSTR(FUNC, "SDwritechunk"); /* for HGOTO_ERROR */ NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ int16 special; /* Special code */ int32 csize; /* phsical chunk size */ uint32 byte_count; /* bytes to write */ int8 platntsubclass; /* the machine type of the current platform */ int8 outntsubclass; /* the data's machine type */ uintn convert; /* whether to convert or not */ comp_coder_t comp_type; uint32 comp_config; int32 status; intn i; sp_info_block_t info_block; /* special info block */ uint32 tBuf_size = 0; /* conversion buffer size */ void *tBuf = NULL; /* buffer used for conversion */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); info_block.cdims = NULL; /* Check args */ if (origin == NULL || datap == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file handle and verify it is an HDF file we only handle writinng to SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* Check to see if data aid exists? i.e. may need to create a ref for SDS */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) { ret_value = FAIL; goto done; } /* Check compression method is enabled */ status = HCPgetcomptype(handle->hdf_file, var->data_tag, var->data_ref, &comp_type); if (status != FAIL) if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_INVALID) { /* Must have encoder to write */ HCget_config_info( comp_type , &comp_config); if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } } /* inquire about element */ ret_value = Hinquire(var->aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) { /* yes */ /* get ready to write */ handle->xdrs->x_op = XDR_ENCODE; /* get info about chunked element */ if ((ret_value = HDget_special_info(var->aid, &info_block)) != FAIL) { /* calcualte chunk size */ csize = 1; for (i = 0; i < info_block.ndims; i++) csize *= info_block.cdims[i]; /* adjust for number type size */ csize *= var->HDFsize; /* figure out if data needs to be converted */ byte_count = csize; if (FAIL == (platntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } if (DFKisnativeNT(var->HDFtype)) { if (FAIL == (outntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } } else { outntsubclass = DFKislitendNT(var->HDFtype) ? DFNTF_PC : DFNTF_HDFDEFAULT; } convert = (uintn)(platntsubclass != outntsubclass); /* make sure our tmp buffer is big enough to hold everything */ if(convert && tBuf_size < byte_count) { if(tBuf != NULL) HDfree(tBuf); tBuf_size = byte_count; tBuf = HDmalloc(tBuf_size); if(tBuf == NULL) { tBuf_size = 0; ret_value = FAIL; goto done; } /* end if */ } /* end if */ /* Write chunk out, */ if(convert) { #ifdef CHK_DEBUG fprintf(stderr,"SDwritechunk: convert, var->HDFsize=%d, var->HDFtype=%d \n", var->HDFsize, var->HDFtype); #endif /* convert it */ if (FAIL == DFKconvert((VOIDP)datap, tBuf, var->HDFtype, (byte_count/var->HDFsize), DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } /* write it out now */ if ((ret_value = HMCwriteChunk(var->aid, origin, tBuf)) != FAIL) { ret_value = SUCCEED; } goto done; /* done */ } /* end if */ else { if ((ret_value = HMCwriteChunk(var->aid, origin, datap)) != FAIL) { ret_value = SUCCEED; } goto done; /* done */ } } /* end if get special info block */ } else /* not special CHUNKED */ ret_value = FAIL; } /* end if Hinquire */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* dont forget to free up info is special info block This space was allocated by the library */ if (info_block.cdims != NULL) HDfree(info_block.cdims); if (tBuf != NULL) HDfree(tBuf); return ret_value; } /* SDwritechunk() */ /****************************************************************************** NAME SDreadchunk -- read the specified chunk to the SDS DESCRIPTION This routine reads a whole chunk of data from the chunked SDS specified by chunk 'origin' for the given SDS and can be used instead of SDreaddata() when this information is known. This routine has less overhead and is much faster than using SDreaddata(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See SDsetchunk() for a description of the organization of chunks in an SDS. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn SDreadchunk(int32 sdsid, /* IN: access aid to SDS */ int32 *origin, /* IN: origin of chunk to write */ void *datap /* IN/OUT: buffer for data */) { CONSTR(FUNC, "SDreadchunk"); /* for HGOTO_ERROR */ NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ int16 special; /* Special code */ int32 csize; /* phsical chunk size */ uint32 byte_count; /* bytes to read */ int8 platntsubclass; /* the machine type of the current platform */ int8 outntsubclass; /* the data's machine type */ uintn convert; /* whether to convert or not */ comp_coder_t comp_type; uint32 comp_config; int32 status; intn i; sp_info_block_t info_block; /* special info block */ uint32 tBuf_size = 0; /* conversion buffer size */ void *tBuf = NULL; /* buffer used for conversion */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); info_block.cdims = NULL; /* Check args */ if (origin == NULL || datap == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file handle and verify it is an HDF file we only handle reading from SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* Dev note: empty SDS should have been checked here and SDreadchunk would have failed, but since it wasn't, for backward compatibility, we won't do it now either. -BMR 2011 */ #ifdef added_by_mistake /* Replaced this if statement by if (var->aid == FAIL) because it seemed that hdf_get_vp_aid was called here by mistake (perhaps, copy/paste.) For more info, see SVN log messages and bug HDFFR-171. -BMR, 2011/10 */ /* Check to see if data aid exists? i.e. may need to create a ref for SDS */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) { ret_value = FAIL; goto done; } #endif /* Check compression method is enabled */ status = HCPgetcomptype(handle->hdf_file, var->data_tag, var->data_ref, &comp_type); if (status != FAIL) if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_INVALID) { /* Must have decoder to read data */ HCget_config_info( comp_type , &comp_config); if ((comp_config & COMP_DECODER_ENABLED) == 0) { /* decoder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } } /* Need to get access id for the following calls */ if (var->aid == FAIL) { var->aid = Hstartread(handle->hdf_file, var->data_tag, var->data_ref); if(var->aid == FAIL) /* catch FAIL from Hstartread */ HGOTO_ERROR(DFE_NOMATCH, FAIL); } /* inquire about element */ ret_value = Hinquire(var->aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) { /* yes */ /* get ready to read */ handle->xdrs->x_op = XDR_DECODE; /* get info about chunked element */ if ((ret_value = HDget_special_info(var->aid, &info_block)) != FAIL) { /* calcualte chunk size */ csize = 1; for (i = 0; i < info_block.ndims; i++) csize *= info_block.cdims[i]; /* adjust for number type size */ csize *= var->HDFsize; /* figure out if data needs to be converted */ byte_count = csize; if (FAIL == (platntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } if (DFKisnativeNT(var->HDFtype)) { if (FAIL == (outntsubclass = DFKgetPNSC(var->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } } else { outntsubclass = DFKislitendNT(var->HDFtype) ? DFNTF_PC : DFNTF_HDFDEFAULT; } convert = (uintn)(platntsubclass != outntsubclass); /* make sure our tmp buffer is big enough to hold everything */ if(convert && tBuf_size < byte_count) { if(tBuf != NULL) HDfree(tBuf); tBuf_size = byte_count; tBuf = HDmalloc(tBuf_size); if(tBuf == NULL) { tBuf_size = 0; ret_value = FAIL; goto done; } /* end if */ } /* end if */ /* read chunk in */ if(convert) { #ifdef CHK_DEBUG fprintf(stderr,"SDreadchunk: convert, var->HDFsize=%d, var->HDFtype=%d \n", var->HDFsize, var->HDFtype); #endif /* read it in */ if ((ret_value = HMCreadChunk(var->aid, origin, tBuf)) != FAIL) { /* convert chunk */ if (FAIL == DFKconvert(tBuf, datap, var->HDFtype, (byte_count/var->HDFsize), DFACC_READ, 0, 0)) { ret_value = FAIL; goto done; } ret_value = SUCCEED; } goto done; /* done */ } /* end if */ else { if ((ret_value = HMCreadChunk(var->aid, origin, datap)) != FAIL) { ret_value = SUCCEED; } goto done; /* done */ } } /* end if get special info block */ } else /* not special CHUNKED */ ret_value = FAIL; } /* end if Hinquire */ /* End access to the access id */ if(Hendaccess(var->aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); var->aid = FAIL; done: if (ret_value == FAIL) { /* Failure cleanup */ /* End access to the aid if neccessary */ if (var->aid != FAIL) { Hendaccess(var->aid); var->aid = FAIL; } } /* Normal cleanup */ /* dont forget to free up info in special info block This space was allocated by the library */ if (info_block.cdims != NULL) HDfree(info_block.cdims); if (tBuf != NULL) HDfree(tBuf); return ret_value; } /* SDreadchunk() */ /****************************************************************************** NAME SDsetchunkcache - maximum number of chunks to cache DESCRIPTION Set the maximum number of chunks to cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. This routine allows the setting of maximum number of chunks that can be cached, 'maxcache'. The performance of the SDxxx interface with chunking is greatly affected by the users access pattern over the dataset and by the maximum number of chunks set in the chunk cache. The number chunks that can be set in the cache is process memory limited. It is a good idea to always set the maximum number of chunks in the cache as the default heuristic does not take into account the memory available for the application. By default when the SDS is promoted to a chunked element the maximum number of chunks in the cache 'maxcache' is set to the number of chunks along the last dimension. The values set here affects the current SDS object's caching behaviour. If the chunk cache is full and 'maxcache' is greater then the current 'maxcache' value, then the chunk cache is reset to the new 'maxcache' value, else the chunk cache remains at the current 'maxcache' value. If the chunk cache is not full, then the chunk cache is set to the new 'maxcache' value only if the new 'maxcache' value is greater than the current number of chunks in the cache. Use flags argument of 'HDF_CACHEALL' if the whole object is to be cached in memory, otherwise pass in zero(0). Currently you can only pass in zero. See SDsetchunk() for a description of the organization of chunks in an SDS. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS Returns the 'maxcache' value for the chunk cache if successful and FAIL otherwise AUTHOR -GeorgeV ******************************************************************************/ intn SDsetchunkcache(int32 sdsid, /* IN: access aid to mess with */ int32 maxcache, /* IN: max number of chunks to cache */ int32 flags /* IN: flags = 0, HDF_CACHEALL */) { NC *handle = NULL; /* file handle */ NC_var *var = NULL; /* SDS variable */ int16 special; /* Special code */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); /* Check args */ if (maxcache < 1 ) { ret_value = FAIL; goto done; } if (flags != 0 && flags != HDF_CACHEALL) { ret_value = FAIL; goto done; } /* get file handle and verify it is an HDF file we only handle dealing with SDS only not coordinate variables */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE || handle->vars == NULL) { ret_value = FAIL; goto done; } /* get variable from id */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* Check to see if data aid exists? i.e. may need to create a ref for SDS */ if(var->aid == FAIL && hdf_get_vp_aid(handle, var) == FAIL) { ret_value = FAIL; goto done; } /* inquire about element */ ret_value = Hinquire(var->aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) ret_value = HMCsetMaxcache(var->aid, maxcache, flags); /* set cache*/ else ret_value = FAIL; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDsetchunkcache() */ /****************************************************************************** NAME SDcheckempty -- checks whether an SDS is empty DESCRIPTION Given an sdsid, set the second parameter, emptySDS, to TRUE if the SDS has not been written with data, and FALSE, otherwise. RETURNS SUCCEED/FAIL PROGRAMMER bmribler - 9-01-98 MODIFICATION bmribler - 9/29/2004 When the SDS is not a special element, we only need to check its data ref# to decide whether it has data written, but when the SDS is a special element, it still has a valid data ref# even though it doesn't have data, we'll then need to perform a more detailed check. Added more detailed checks. ******************************************************************************/ int32 SDcheckempty(int32 sdsid, /* IN: dataset ID */ intn *emptySDS /* TRUE if SDS is empty */) { CONSTR(FUNC, "SDcheckempty"); /* for HGOTO_ERROR */ NC *handle = NULL; /* file record struct */ NC_var *var = NULL; /* variable record struct */ int32 ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDcheckempty: I've been called\n"); #endif /* clear error stack */ HEclear(); /* get the handle */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) { ret_value = FAIL; goto done; } /* get the variable */ var = SDIget_var(handle, sdsid); if(var == NULL) { ret_value = FAIL; goto done; } /* assume that the SDS is not empty until proving otherwise */ *emptySDS = FALSE; /* if the data ref# of the SDS is 0, it indicates that the SDS has not been written with data because no storage is created for the SDS data */ if (var->data_ref == 0) { *emptySDS = TRUE; } else { /* data_ref is not 0, so must check on special SDSs to determine if the SDS is empty */ /* check for unlimited dimension, assuming that unlimited dimension is still not allowed with other specialness, according to GeorgeV */ if (var->shape != NULL && var->shape[0] == NC_UNLIMITED) { /* if data has been written, var->numrecs will show the size of the unlimited dimension */ if(var->numrecs <= 0) *emptySDS = TRUE; } /* handle other specialness via lower level functions */ else { ret_value = HDcheck_empty(handle->hdf_file, var->data_tag, var->data_ref, emptySDS); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* var->data_ref != 0 */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDcheckempty */ /****************************************************************************** NAME SDidtype -- returns the type of an id DESCRIPTION Given an id, return its type, which is either an SD id, an SDS id, or a dimension id, or indicate that it is not a valid SD API id. RETURNS A value of type hdf_idtype_t, which can be either of the following: SD_ID, SDS_ID, DIM_ID, NOT_SDAPI_ID. PROGRAMMER bmribler - 1-19-2005 MODIFICATION ******************************************************************************/ hdf_idtype_t SDidtype(int32 an_id) { NC *handle = NULL; /* file record struct */ hdf_idtype_t ret_value = NOT_SDAPI_ID; #ifdef SDDEBUG fprintf(stderr, "SDidtype: I've been called\n"); #endif /* clear error stack */ HEclear(); /* Assuming that the id is an SD id, get and check the handle */ handle = SDIhandle_from_id(an_id, CDFTYPE); /* If it is, indicate so */ if(handle != NULL) ret_value = SD_ID; /* otherwise, check further... */ else { /* Assuming that it is an SDS id, get and check the handle */ handle = SDIhandle_from_id(an_id, SDSTYPE); /* If it is, indicate so */ if(handle != NULL) ret_value = SDS_ID; /* otherwise, check if it is a dimension id, or just not valid */ else { handle = SDIhandle_from_id(an_id, DIMTYPE); if(handle != NULL) ret_value = DIM_ID; else ret_value = NOT_SDAPI_ID; } } return ret_value; } /* SDidtype */ /****************************************************************************** NAME SDreset_maxopenfiles -- resets the maximum number of files can be opened at a time. DESCRIPTION Uses NC local function NC_reset_maxopenfiles to change the maximum number of opened files allowed. This involves re-allocating of the internal cdf list. RETURNS The current maximum number of opened files allowed, or FAIL, if unable to reset it. PROGRAMMER bmribler - 9-06-2005 MODIFICATION ******************************************************************************/ intn SDreset_maxopenfiles(intn req_max) { CONSTR(FUNC, "SDreset_maxopenfiles"); /* for HGOTO_ERROR */ intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDreset_maxopenfiles: I've been called\n"); #endif /* clear error stack */ HEclear(); /* Reset the max NC open and re-allocate cdf list appropriately */ ret_value = NC_reset_maxopenfiles(req_max); if (ret_value == 0) /* no successful allocation */ HGOTO_ERROR(DFE_NOSPACE, FAIL); /* must change DFE_NOSPACE to something else, if the other case of returning 0 exists??? */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDreset_maxopenfiles */ /****************************************************************************** NAME SDget_maxopenfiles -- retrieves the current number of opened files allowed in HDF and the maximum number of opened files allowed on a system. DESCRIPTION Uses NC_get_maxopenfiles. RETURNS SUCCEED/FAIL PROGRAMMER bmribler - 9-06-2005 MODIFICATION ******************************************************************************/ intn SDget_maxopenfiles(intn *curr_max, /* OUT: current # of open files allowed */ intn *sys_limit) /* OUT: max # of open files allowed on a system */ { CONSTR(FUNC, "SDget_maxopenfiles"); /* for HGOTO_ERROR */ intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDget_maxopenfiles: I've been called\n"); #endif /* clear error stack */ HEclear(); /* Retrieve the current max and the system limit */ if (curr_max != NULL) { *curr_max = NC_get_maxopenfiles(); if (*curr_max == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } if (sys_limit != NULL) { *sys_limit = NC_get_systemlimit(); if (*sys_limit == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDget_maxopenfiles */ /****************************************************************************** NAME SDget_numopenfiles -- returns the number of files currently being opened. DESCRIPTION Uses NC_get_numopencdfs. RETURNS The number of files currently being opened or FAIL. PROGRAMMER bmribler - 9-06-2005 MODIFICATION ******************************************************************************/ intn SDget_numopenfiles() { intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDget_numopenfiles: I've been called\n"); #endif /* clear error stack */ HEclear(); ret_value = (intn)NC_get_numopencdfs(); return ret_value; } /* SDget_numopenfiles */ /****************************************************************************** NAME SDgetfilename -- retrieves the name of the file given its ID. DESCRIPTION Given an ID to a file, returns its name via parameter 'filename.' The user is repsonsible for allocating sufficient space to hold the file name. It can be at most H4_MAX_NC_NAME characters in length. RETURNS Length of the file name, without '\0', on success, and FAIL, otherwise. PROGRAMMER bmribler - 9-06-2005 MODIFICATION ******************************************************************************/ intn SDgetfilename(int32 fid, /* IN: file ID */ char *filename /* OUT: name of the file */) { CONSTR(FUNC, "SDgetfilename"); /* for HGOTO_ERROR */ NC *handle = NULL; intn len; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetfilename: I've been called\n"); #endif /* clear error stack */ HEclear(); /* check that fid is valid */ handle = SDIhandle_from_id(fid, CDFTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); len = HDstrlen(handle->path); if(filename != NULL) { HDmemcpy(filename, handle->path, len); filename[len] = '\0'; } ret_value = len; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetfilename */ /****************************************************************************** NAME SDgetnamelen -- retrieves the length of the name of a file, a dataset, or a dimension. DESCRIPTION Given an id, retrieves the length of its name. RETURNS SUCCEED/FAIL PROGRAMMER bmribler - 9-14-2006 MODIFICATION ******************************************************************************/ intn SDgetnamelen(int32 id, /* IN: object ID */ uint16 *name_len /* OUT: buffer for name's length */) { CONSTR(FUNC, "SDgetnamelen"); /* for HGOTO_ERROR */ NC *handle = NULL; NC_var *var = NULL; NC_dim *dim = NULL; intn ret_value = SUCCEED; #ifdef SDDEBUG fprintf(stderr, "SDgetnamelen: I've been called\n"); #endif /* clear error stack */ HEclear(); /* Assuming that the id is an SD id, get the file handle */ handle = SDIhandle_from_id(id, CDFTYPE); /* If it is, obtain the file name's length */ if(handle != NULL) *name_len = (uint16)HDstrlen(handle->path); /* otherwise, check further... */ else { /* Assuming that it is an id of an SDS, get its file handle */ handle = SDIhandle_from_id(id, SDSTYPE); /* If it is, get the NC_var record, and obtain the SDS name's length */ if(handle != NULL) { var = SDIget_var(handle, id); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); *name_len = (uint16)var->name->len; } /* otherwise, check if it is a dimension id, or just not valid */ else { handle = SDIhandle_from_id(id, DIMTYPE); if(handle != NULL) { dim = SDIget_dim(handle, id); if(dim == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); *name_len = (uint16)dim->name->len; } else /* invalid id */ HGOTO_ERROR(DFE_ARGS, FAIL); } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetnamelen */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/Makefile.am0000644000000000000000000000464212421456623015512 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. INCLUDES = -I$(top_srcdir)/hdf/src \ -I$(top_srcdir)/mfhdf/libsrc DEFINES = -DNDEBUG -DHDF AM_CPPFLAGS = $(INCLUDES) $(DEFINES) ############################################################################# ## Library to build ## ############################################################################# lib_LTLIBRARIES = libmfhdf.la ## Information for building the "libmfhdf.la" library CSOURCES = array.c attr.c cdf.c dim.c file.c hdfsds.c iarray.c error.c \ globdef.c mfsd.c mfdatainfo.c nssdc.c putget.c putgetg.c \ sharray.c string.c var.c xdrposix.c if HDF_BUILD_NETCDF FSOURCES = $(top_builddir)/mfhdf/fortran/jackets.c $(top_srcdir)/mfhdf/fortran/mfsdf.c $(top_srcdir)/mfhdf/fortran/mfsdff.f else FSOURCES = $(top_srcdir)/mfhdf/fortran/mfsdf.c $(top_srcdir)/mfhdf/fortran/mfsdff.f endif if HDF_BUILD_FORTRAN libmfhdf_la_SOURCES = $(CSOURCES) $(FSOURCES) else libmfhdf_la_SOURCES = $(CSOURCES) endif if HDF_BUILD_XDR XDRLIB = $(top_builddir)/mfhdf/xdr/libxdr.la libmfhdf_la_LIBADD = $(XDRLIB) endif if HDF_BUILD_NETCDF include_HEADERS = hdf2netcdf.h local_nc.h mfhdf.h netcdf.h mfhdfi.h mfdatainfo.h else include_HEADERS = hdf2netcdf.h local_nc.h mfhdf.h hdf4_netcdf.h mfhdfi.h mfdatainfo.h # mfdatainfo.h should be added conditionally only; should local_nc.h even be here? -BMR endif # The following is a workaround. Since Fortran is included in this # Makefile.am, automake will always try to use the Fortran linker, even when # fortran has been disabled in configure. The Fortran linker gets confused # when shared libraries are enabled, so when Fortran is not enabled, # this replaces the Fortran link macro with the C link macro. if HDF_BUILD_FORTRAN # do nothing else F77LINK = $(LINK) endif ############################################################################# ## And the cleanup ## ############################################################################# DISTCLEANFILES = *.new *.hdf *.cdf *.cdl netcdf.h hdf4_netcdf.h This* libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/putget.c0000644000000000000000000024423312421456623015134 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: putget.c 6032 2014-01-17 18:13:52Z acheng $ */ #include #include "local_nc.h" #include "alloc.h" #ifdef HDF #include "hfile.h" /* Ugh! We need the defs for HI_READ and HI_SEEK */ /* Local function prototypes */ static bool_t nssdc_xdr_NCvdata (NC *handle,NC_var *vp,u_long where,nc_type type,uint32 count, void * values); static intn hdf_xdr_NCvdata (NC *handle,NC_var *vp,u_long where,nc_type type,uint32 count, void * values); static intn hdf_xdr_NCv1data (NC *handle,NC_var *vp,u_long where,nc_type type,void * values); int32 hdf_get_vp_aid (NC *handle, NC_var *vp); static intn SDIresizebuf(void * *buf,int32 *buf_size,int32 size_wanted); #endif /* HDF */ static const long *NCvcmaxcontig(NC *, NC_var *, const long *, const long *); /* * If you use ./xdrstdio.c rather than ./xdrposix.c as * your bottom layer, the you may need to #define XDRSTDIO */ #ifndef HDF #define MIN(mm,nn) (((mm) < (nn)) ? (mm) : (nn)) #define MAX(mm,nn) (((mm) > (nn)) ? (mm) : (nn)) #endif /* HDF */ /* #define VDEBUG */ /* #define DEBUG */ /* #define CDEBUG */ #ifdef VDEBUG /* * Print the values of an array of longs */ int arrayp(label, count, array) const char *label ; unsigned count ; const long array[] ; { fprintf(stderr, "%s", label) ; fputc('\t',stderr) ; for(; count > 0 ; count--, array++) fprintf(stderr," %ld", *array) ; fputc('\n',stderr) ; } #endif /* VDEBUG */ #define xdr_NCsetpos(xdrs, pos) xdr_setpos((xdrs),(pos)) /* * Check if an ncxxx function has called the current function */ static bool_t nc_API(caller) const char *caller; { char *nc_api=NULL; nc_api = strstr(caller, "nc"); if (nc_api == caller) return TRUE; } /* * At the current position, add a record containing the fill values. */ static bool_t NCfillrecord(xdrs, vpp, numvars) XDR *xdrs ; NC_var **vpp ; unsigned numvars ; { unsigned ii ; for(ii = 0 ; ii < numvars ; ii++, vpp++) { if( !IS_RECVAR(*vpp) ) { continue ; /* skip non-record variables */ } /* compute sub size */ if( !xdr_NC_fill(xdrs, *vpp) ) return(FALSE) ; } return(TRUE) ; } /* * Check whether coords are valid for the variable. * For 'record' variables: * + if the accessing is writing, add and fill records out with * user-provided fill values or predefined fill values to the * requested recno == coords[0], as a side effect. * + if the accessing is reading, fill records with fill values up * to the requested recno when an nc API (ie. ncvarget) leads to * this, and flag as an error when an SD API (ie. SDreaddata) does. * + update NC_var.numrecs to reflect the filled records * + update NC.numrecs to NC_var.numrecs if NC_var.numrecs is larger * -BMR, 12/09/2008 */ bool_t NCcoordck(handle, vp, coords) NC *handle ; NC_var *vp ; const long *coords ; { const long *ip ; unsigned long *up ; const long *boundary ; long unfilled ; /* number of records that need to be filled */ boundary = NULL; /* assuming no boundary check is needed */ if( IS_RECVAR(vp) ) { /* For the variable with unlimited dimension we need to check that the size of the first dimension is non-negative, there is no upper bound for it; the sizes of the rest of the dimensions are checked as for the regular fixed size variable (see the "for" loop further down) EIP 01/13/09 */ /* Check that first dimension is non-negative */ if(*coords < 0) goto bad ; /* Set up boundary to check the rest of the dims if there are more than one dim */ if (vp->assoc->count > 1) boundary = coords + 1 ; } else boundary = coords ; /* no unlimited, boundary starts at first dim */ if (boundary != NULL) /* no unlimited dim or unlimited dim and more than one dim */ { up = vp->shape + vp->assoc->count - 1 ; /* pointer for dimension sizes */ ip = coords + vp->assoc->count - 1 ; /* pointer for start coords */ #ifdef CDEBUG fprintf(stderr," NCcoordck: coords %p, *coords %ld, count %ld, ip %p, boundary %p, *ip %ld\n", coords, *coords, vp->assoc->count, ip , boundary, *ip) ; #endif /* CDEBUG */ /* for each dimension, check if starting coord is within dim size */ for( ; ip >= boundary ; ip--, up--) { #ifdef CDEBUG fprintf(stderr," NCcoordck: ip %p, *ip %ld, up %p, *up %lu\n", ip, *ip, up, *up ) ; #endif /* CDEBUG */ if( *ip < 0 || *ip >= (long)*up ) goto bad ; } } /* more than one dim */ /* Reset ip to coords for subsequent use */ ip = coords; /********************************************************************/ /* The following block (#ifdef HDF) is for hdf4 API and hdf4/nc API */ /********************************************************************/ #ifdef HDF /* If file is an HDF file (ie., not netCDF, created with HDF API or HDF/nc API) and the variable has unlimited dimension */ if(handle->file_type == HDF_FILE && IS_RECVAR(vp)) { void *strg = NULL; void *strg1 = NULL; NC_attr **attr = NULL; int count, byte_count; int len; /* Determine if fill values need to be written. For example, if vp's numrecs is 5, and the accessed index is 8 (*ip), then recs #5,6,7 will be filled with fill value. Note: maybe '<' should be "<=", but adding it alone caused ill-effects so a through study is needed, plus '<' doesn't really cause problem, it just meant when unfilled = 0, we'll fill 0 record below. -BMR, 12/8/2008*/ if((unfilled = *ip - vp->numrecs) < 0) return TRUE; #ifdef CDEBUG fprintf(stderr, "NCcoordck: check 3.6, unfilled=%d\n",unfilled); #endif /* CDEBUG */ /* If we get here from an nc API, then reading beyond the end of the current variable will write fill values to the gap between the end of this variable and the max numrecs in the file. It will only fail for reading beyond the end if the calling function is from the SD API. */ /* check to see if we are trying to read beyond the end */ if(handle->xdrs->x_op != XDR_ENCODE) { if (!nc_API(cdf_routine_name)) /* from an SD API call */ goto bad ; /* cannot read beyond the end of var */ else /* from an nc API call */ if (*ip >= handle->numrecs) goto bad ; /* only fail if reading pass max numrecs in file */ } /* If NOFILL is not requested, proceed to write fill values */ if ((handle->flags & NC_NOFILL) == 0) { /* make sure we can write to this variable */ if(vp->aid == FAIL && hdf_get_vp_aid(handle, vp) == FAIL) return(FALSE); /* strg and strg1 are to hold fill value and its conversion */ len = (vp->len / vp->HDFsize) * vp->szof; strg = (Void *) HDmalloc(len); strg1 = (Void *) HDmalloc(len); if (NULL == strg || NULL == strg1) return FALSE; /* Find the attribute _FillValue to get the user's fill value */ attr = NC_findattr(&vp->attrs, _FillValue); /* If the attribute is found, fill strg with the fill value */ if(attr != NULL) HDmemfill(strg,(*attr)->data->values,vp->szof,(vp->len/vp->HDFsize)); /* otherwise, fill strg with predefined fill values such as FILL_SHORT, FILL_BYTE,... */ else NC_arrayfill(strg, len, vp->type); #ifdef DEBUG fprintf(stderr, "Going to fill in record %d for variable %s\n", *ip, vp->name->values); #endif #ifdef OLD_WAY count = vp->dsizes[0] / NC_typelen(vp->type); #endif /* * Seek to correct location */ byte_count = vp->len; count = byte_count / vp->HDFsize; if (FAIL == Hseek(vp->aid, (vp->numrecs) * byte_count, DF_START)) return FALSE; #ifdef DEBUG fprintf(stderr,"Filling %d bytes starting at %d\n", byte_count * unfilled, (vp->numrecs) * byte_count); #endif /* * Write out the values */ if (FAIL == DFKconvert(strg, strg1, vp->HDFtype, count, DFACC_WRITE, 0, 0)) return FALSE; /* Write fill value to each record for all "unfilled" records */ for(; unfilled >= 0; unfilled--, vp->numrecs++) { if (FAIL == Hwrite(vp->aid, byte_count, (uint8 *) strg1)) return FALSE; } #ifdef DEBUG fprintf(stderr, "WROTE %d values at location %d (numrecs = %d)\n", count, *ip * count, vp->numrecs); #endif HDfree(strg); HDfree(strg1); } /* !SD_NOFILL */ vp->numrecs = MAX(vp->numrecs, (*ip + 1)); /* if NOFILL */ #ifdef CDEBUG fprintf(stderr, "NCcoordck: check 10.0, vp->numrecs=%d\n",vp->numrecs); #endif /* CDEBUG */ if((*ip + 1) > (long)(handle->numrecs)) { handle->numrecs = *ip + 1; handle->flags |= NC_NDIRTY; } return (TRUE); } #endif /* HDF */ /**********************************************/ /* The following block is for netCDF API file */ /**********************************************/ if( IS_RECVAR(vp) && (unfilled = *ip - handle->numrecs) >= 0 ) { /* check to see if we are trying to read beyond the end */ if(handle->xdrs->x_op != XDR_ENCODE) goto bad ; /* else */ handle->flags |= NC_NDIRTY ; if( handle->flags & NC_NOFILL ) { /* Go directly to jail, do not pass go */ handle->numrecs = *ip + 1 ; } else { /* fill out new records */ if( !xdr_NCsetpos(handle->xdrs, handle->begin_rec + handle->recsize*handle->numrecs) ) { nc_serror("NCcoordck seek, var %s", vp->name->values) ; return(FALSE) ; } for( ; unfilled >= 0 ; unfilled--, handle->numrecs++) { if( !NCfillrecord(handle->xdrs, (NC_var **)handle->vars->values, handle->vars->count) ) { nc_serror("NCcoordck fill, var %s, rec %ld", vp->name->values, handle->numrecs) ; return(FALSE) ; } } } if(handle->flags & NC_NSYNC) /* write out header->numrecs NOW */ { if(!xdr_numrecs(handle->xdrs, handle) ) return(FALSE) ; handle->flags &= ~NC_NDIRTY ; } } return(TRUE) ; bad: #ifdef VDEBUG arrayp("\t\tcoords", vp->assoc->count, coords) ; arrayp("\t\tmax", vp->assoc->count, vp->shape) ; #endif /* VDEBUG */ NCadvise(NC_EINVALCOORDS, "%s: Invalid Coordinates", vp->name->values) ; return(FALSE) ; } /* * Translate the (variable, coords) pair into a seek index */ static u_long NC_varoffset(handle, vp, coords) NC *handle ; NC_var *vp ; const long *coords ; { u_long offset ; const long *ip ; unsigned long *up ; const long *boundary ; #ifdef HDF vix_t * vix; intn i; #endif if(vp->assoc->count == 0) /* 'scaler' variable */ return(vp->begin) ; if( IS_RECVAR(vp) ) boundary = coords + 1 ; else boundary = coords ; up = vp->dsizes + vp->assoc->count - 1 ; ip = coords + vp->assoc->count - 1 ; for(offset = 0 ; ip >= boundary ; ip--, up--) offset += *up * *ip ; if( IS_RECVAR(vp) ) { #ifdef HDF switch(handle->file_type) { case HDF_FILE: return( vp->dsizes[0] * *coords + offset) ; case netCDF_FILE: return( vp->begin + handle->recsize * *coords + offset) ; case CDF_FILE: #ifdef DEBUG fprintf(stderr, "Yow! Don't do CDF records yet\n"); #endif return (0); } #else /* !HDF */ return( vp->begin + handle->recsize * *coords + offset) ; #endif /* !HDF */ } else { #ifdef HDF switch(handle->file_type) { case HDF_FILE: return (offset); case netCDF_FILE: return (vp->begin + offset); case CDF_FILE: if((vix = vp->vixHead) == NULL) return (-1); /* * Record data is stored in chunks. the firstRec and lastRec * fields give the indicies of the first and last records * stored in a given chunk and the offset gives the offset in * the file of where that chunk starts. The local variable * 'offset' gives the offset into the entire variable space * where we want to read. To map find the correct location * we need to find the correct chunk and then get our offset * within that chunk */ while(vix) { for(i = 0; i < vix->nUsed; i++) { if((vix->firstRec[i] <= *coords) && (vix->lastRec[i] >= *coords)) { /* found the record we want */ return (offset + vix->offset[i] - vix->firstRec[i] * vp->dsizes[0] + 8); } } /* loop over user entries in current vix record */ vix = vix->next; } /* loop over all vix records */ break; } #else /* !HDF */ return (vp->begin + offset); #endif /* !HDF */ } /* should never get to here */ return (0); } /* NC_varoffset */ /* * xdr 1 - 3 bytes, leaving adjoining bytes within the word ok. * (minimum unit of io is 4 bytes) */ static bool_t xdr_NCvbyte(xdrs, rem, count, values) XDR *xdrs ; unsigned rem ; unsigned count ; char *values ; { char buf[4] ; u_long origin=0 ; enum xdr_op x_op = xdrs->x_op ; /* save state */ if(x_op == XDR_ENCODE) { /* * Since we only read/write multiples of four bytes, * We will read in the word to change one byte in it. */ origin = xdr_getpos( xdrs ) ; #ifdef XDRSTDIO /* * N.B. : "a file positioning function must be called between * a write and a read or vice versa" * - limitations of stdio, open for update */ if( !xdr_setpos(xdrs, origin) ) return(FALSE) ; #endif /* XDRSTDIO */ /* next op is a get */ xdrs->x_op = XDR_DECODE ; } if(!xdr_opaque(xdrs, buf, 4)) { /* get failed, assume we are trying to read off the end */ #ifdef XDRSTDIO /* * N.B. 2 : Violates layering, * assumes stdio under xdr. * This clause could be safely replaced with * just the 'memset' line. */ if(feof((FILE*)xdrs->x_private)) /* NC_NOFILL */ { /* failed because we tried to read * beyond EOF */ clearerr((FILE*)xdrs->x_private) ; (void)HDmemset(buf, 0, sizeof(buf)) ; } else { NCadvise(NC_EXDR, "xdr_NCvbyte") ; xdrs->x_op = x_op ; return(FALSE) ; } #else (void)HDmemset(buf, 0, sizeof(buf)) ; #endif /* XDRSTDIO */ } if(x_op == XDR_ENCODE) /* back to encode */ xdrs->x_op = x_op ; while(count-- != 0) { if(x_op == XDR_ENCODE) buf[rem] = *values ; else *values = buf[rem] ; rem++ ; values++ ; } if(x_op == XDR_ENCODE) { if( !xdr_setpos(xdrs, origin) ) return(FALSE) ; if( !xdr_opaque(xdrs, buf, 4)) return(FALSE) ; } return(TRUE) ; } /* * xdr a short leaving adjoining short within the word ok. * (minimum unit of io is 4 bytes) */ bool_t xdr_NCvshort(xdrs, which, values) XDR *xdrs ; unsigned which ; short *values ; { unsigned char buf[4] ; /* unsigned is important here */ u_long origin=0; enum xdr_op x_op = xdrs->x_op ; /* save state */ if(x_op == XDR_ENCODE) { origin = xdr_getpos( xdrs ) ; #ifdef XDRSTDIO /* See N.B. above */ if( !xdr_setpos(xdrs, origin) ) return(FALSE) ; #endif /* XDRSTDIO */ /* next op is a get */ xdrs->x_op = XDR_DECODE ; } if(!xdr_opaque(xdrs, (caddr_t)buf, 4)) { /* get failed, assume we are trying to read off the end */ #ifdef XDRSTDIO /* See N.B. 2 above */ if(feof((FILE*)xdrs->x_private)) /* NC_NOFILL */ { /* failed because we tried to read * beyond EOF */ clearerr((FILE*)xdrs->x_private) ; (void)memset(buf, 0, sizeof(buf)) ; } else { NCadvise(NC_EXDR, "xdr_NCvbyte") ; xdrs->x_op = x_op ; return(FALSE) ; } #else (void)HDmemset(buf, 0, sizeof(buf)) ; #endif /* XDRSTDIO */ } if(x_op == XDR_ENCODE) /* back to encode */ xdrs->x_op = x_op ; if(which != 0) which = 2 ; if(xdrs->x_op == XDR_ENCODE) { buf[which +1] = *values % 256 ; buf[which] = (*values >> 8) ; if( !xdr_setpos(xdrs, origin) ) return(FALSE) ; if( !xdr_opaque(xdrs, (caddr_t)buf, 4)) return(FALSE) ; } else { *values = ((buf[which] & 0x7f) << 8) + buf[which + 1] ; if(buf[which] & 0x80) { /* extern is neg */ *values -= 0x8000 ; } } return(TRUE) ; } /* * xdr a single datum of type 'type' at 'where' */ static bool_t xdr_NCv1data(xdrs, where, type, values) XDR *xdrs ; u_long where ; nc_type type ; Void *values ; { u_long rem=0 ; switch(type){ case NC_BYTE : case NC_CHAR : case NC_SHORT : rem = where%4 ; where -= rem ; /* round down to nearest word */ break ; default: break; } if( !xdr_NCsetpos(xdrs, where) ) return(FALSE) ; switch(type){ case NC_BYTE : case NC_CHAR : return( xdr_NCvbyte(xdrs, (unsigned)rem, (unsigned)1, (char *)values) ) ; case NC_SHORT : return( xdr_NCvshort(xdrs, (unsigned)rem/2, (short *)values) ) ; case NC_LONG : #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ return( xdr_int(xdrs, (nclong *)values) ) ; #else return( xdr_long(xdrs, (nclong *)values) ) ; #endif case NC_FLOAT : return( xdr_float(xdrs, (float *)values) ) ; case NC_DOUBLE : return( xdr_double(xdrs, (double *)values) ) ; default: break; } return(FALSE) ; } /***************************************************************************** * * NCSA HDF / netCDF Project * May, 1993 * * NCSA HDF / netCDF source code and documentation are in the public domain. * Specifically, we give to the public domain all rights for future * licensing of the source code, all resale rights, and all publishing rights. * * We ask, but do not require, that the following message be included in all * derived works: * * Portions developed at the National Center for Supercomputing Applications at * the University of Illinois at Urbana-Champaign. Funding for this project * has come primarily from the National Science Foundation. * * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION, * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE * ****************************************************************************** * * Please report all bugs / comments to hdfhelp@ncsa.uiuc.edu * *****************************************************************************/ #ifdef HDF PRIVATE int32 tBuf_size = 0; PRIVATE int32 tValues_size = 0; PRIVATE int8 *tBuf = NULL; PRIVATE int8 *tValues = NULL; /* ------------------------------ SDPfreebuf ------------------------------ */ /* Throw away the temporary buffer we've allocated */ intn SDPfreebuf() { int ret_value = SUCCEED; if(tBuf != NULL) { HDfree(tBuf); tBuf = NULL; tBuf_size = 0; } /* end if */ if(tValues != NULL) { HDfree(tValues); tValues = NULL; tValues_size = 0; } /* end if */ #ifdef LATER done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ #endif /* LATER */ return ret_value; } /* ------------------------------ SDIresizebuf ------------------------------ */ /* Resize a temporary buffer to the proper size */ static intn SDIresizebuf(void * *buf,int32 *buf_size,int32 size_wanted) { intn ret_value = SUCCEED; if(*buf_size < size_wanted) { if(*buf) HDfree(*buf); *buf_size = size_wanted; *buf = HDmalloc(size_wanted); if (*buf == NULL) { *buf_size=0; ret_value = FAIL; goto done; } /* end if */ } /* end if */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* end SDIresizebuf() */ #define MAX_SIZE 1000000 /* ------------------------- hdf_get_data ------------------- */ /* * Given a variable vgid return the id of a valid data storage * If no data storage is found, hdf_get_data returns DFREF_NONE(0). * OLD WAY: Create and fill in the VS as a side effect if it doesn't * exist yet <- not any more * * NEW WAY: we delay filling until data is written out -QAK * */ intn hdf_get_data(handle, vp) NC *handle; NC_var *vp; { int32 vg = FAIL; int32 vsid = DFREF_NONE; int32 tag, t, n; int ret_value = DFREF_NONE; #ifdef DEBUG fprintf(stderr, "hdf_get_data I've been called\n"); #endif if(NULL == handle) { ret_value = DFREF_NONE; goto done; } if(NULL == vp) { ret_value = DFREF_NONE; goto done; } /* * if it is stored as NDGs we can't do any better than what was * originally stored in vp->data_ref */ if(vp->data_tag == DFTAG_SDS) { ret_value = vp->data_ref; goto done; } if(vp->vgid) { /* attach to the variable's Vgroup */ vg = Vattach(handle->hdf_file, vp->vgid, "r"); if(FAIL == vg) { ret_value = DFREF_NONE; goto done; } /* loop through looking for a data storage object */ n = Vntagrefs(vg); if(FAIL == n) { ret_value = DFREF_NONE; goto done; } for(t = 0; t < n; t++) { if (FAIL == Vgettagref(vg, t, &tag, &vsid)) { ret_value = DFREF_NONE; goto done; } if(tag == DATA_TAG) { /* detach */ if (FAIL == Vdetach(vg)) { ret_value = DFREF_NONE; goto done; } ret_value = vsid; goto done; } /* end if */ } /* don't forget to let go of vgroup */ if (FAIL == Vdetach(vg)) { ret_value = DFREF_NONE; goto done; } } /* are we only in read-only mode? */ if(handle->hdf_mode == DFACC_RDONLY) { /* yes, not good */ ret_value = DFREF_NONE; goto done; } /* * create a new data storage object */ #ifdef DEBUG fprintf(stderr, "--- Creating new data storage (len = %d) --- \n", vp->len); fprintf(stderr, "shape[0]= %d shape[1]= %d\n", vp->shape[0], vp->shape[1]); fprintf(stderr, "dsize[0]= %d dsize[1]= %d\n", vp->dsizes[0], vp->dsizes[1]); #endif /* -------------------------------------- * * allocate new data storage * * -------------------------------------- */ #ifdef NOT_YET vsid = Htagnewref(handle->hdf_file,DATA_TAG); #else /* NOT_YET */ vsid = Hnewref(handle->hdf_file); #endif /* NOT_YET */ #ifdef DEBUG fprintf(stderr, "--- Allocating new data storage szof=%d, to_do=%d\n",(int)vp->szof, (int)to_do); fprintf(stderr, "byte_count=%d\n", (int)byte_count); #endif /* if it is a record var might as well make it linked blocks now */ if(IS_RECVAR(vp)) { int32 block_size; /* the size of the linked blocks to use */ /* The block size is calculated according to the following heuristic: */ /* First, the block size the user set is used, if set. */ /* Second, the block size is calculated according to the size being */ /* written times the BLOCK_MULT value, in order to make */ /* bigger blocks if the slices are very small. */ /* Third, the calculated size is check if it is bigger than the */ /* MAX_BLOCK_SIZE value so that huge empty blocks are not */ /* created. If the calculated size is greater than */ /* MAX_BLOCK_SIZE, then MAX_BLOCK_SIZE is used */ /* These are very vague heuristics, but hopefully they should avoid */ /* some of the past problems... -QAK */ if(vp->block_size != (-1)) /* use value the user provided, if available */ block_size = vp->block_size; else { /* try figuring out a good value using some heuristics */ /* User's suggested fix for bug #602 - Apr, 2005 */ /* This check avoids overflowing the int32 block_size */ /* if the user has a huge value for vp->len */ if(vp->len > MAX_BLOCK_SIZE) block_size = MAX_BLOCK_SIZE; else { block_size = vp->len*BLOCK_MULT; if (block_size > MAX_BLOCK_SIZE) block_size = MAX_BLOCK_SIZE; } } /* end else */ vp->aid = HLcreate(handle->hdf_file, DATA_TAG, vsid, block_size, BLOCK_COUNT); if(vp->aid == FAIL) { ret_value = DFREF_NONE; goto done; } if(Hendaccess(vp->aid) == FAIL) { ret_value = DFREF_NONE; goto done; } } if(vp->vgid) { /* attach to the variable's Vgroup */ vg = Vattach(handle->hdf_file, vp->vgid, "w"); if(vg == FAIL) { ret_value = DFREF_NONE; goto done; } /* add new Vdata to existing Vgroup */ if (FAIL == Vaddtagref(vg, (int32) DATA_TAG, (int32) vsid)) { ret_value = DFREF_NONE; goto done; } /* detach from the variable's VGroup --- will no longer need it */ if (FAIL == Vdetach(vg)) { ret_value = DFREF_NONE; goto done; } } #ifdef DEBUG fprintf(stderr, "Done with the DATA Vdata returning id %d\n", vsid); #endif vp->aid = FAIL; /* added a new object -- make sure we flush the header */ handle->flags |= NC_HDIRTY; ret_value = vsid; done: if (ret_value == DFREF_NONE) { /* Failure cleanup */ if (vg != FAIL) { Vdetach(vg); /* no point in catch error here if we fail */ } } /* Normal cleanup */ return ret_value; } /* hdf_get_data */ /* ---------------------------- hdf_get_vp_aid ---------------------------- */ /* Return an AID for the current variable. Return FAIL on error SUCCEED on success */ int32 hdf_get_vp_aid(handle, vp) NC * handle; NC_var * vp; { int32 ret_value = SUCCEED; /* attach to proper data storage*/ if(!vp->data_ref) vp->data_ref = hdf_get_data(handle, vp); /* * Fail if there is no data */ if(vp->data_ref == DFREF_NONE) { ret_value = FAIL; goto done; } if(handle->hdf_mode == DFACC_RDONLY) vp->aid = Hstartread(handle->hdf_file, vp->data_tag, vp->data_ref); else { #ifdef OLD_WAY vp->aid = Hstartwrite(handle->hdf_file, vp->data_tag, vp->data_ref, 0); #else /* OLD_WAY */ if(!IS_RECVAR(vp)) { vp->aid = Hstartaccess(handle->hdf_file, vp->data_tag, vp->data_ref, DFACC_WRITE); if(vp->set_length==TRUE) { Hsetlength(vp->aid,vp->len); vp->set_length=FALSE; } } else vp->aid = Hstartaccess(handle->hdf_file, vp->data_tag, vp->data_ref, DFACC_WRITE|DFACC_APPENDABLE); #endif /* OLD_WAY */ } ret_value = vp->aid; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_get_vp_aid */ /* --------------------------- hdf_xdr_NCvdata ---------------------------- */ /* * Read / write 'count' items of contiguous data of type 'type' at 'where' * * If we are not already attached to the VData representing the * data attach to it now. Since attaching / detaching is so * slow, stay attached for future reads / writes. As a result, * we must always attach with write access. * * The calling routine is responsible for calling DFKsetNT() as required. */ static intn hdf_xdr_NCvdata(NC *handle, NC_var *vp, u_long where, nc_type type, uint32 count, void * values) { NC_attr **attr = NULL; /* pointer to the fill-value attribute */ int32 status; int32 byte_count; /* total # of bytes of data to be processed */ int32 elements_left=0;/* number of elements still left to be processed */ int32 data_size; /* size of data block being processed in bytes */ int32 new_count; /* computed by dividing number of elements 'count' by 2 since 'count' is too big to allocate temporary buffer */ int32 bytes_left; int32 elem_length; /* length of the element pointed to */ int8 platntsubclass; /* the machine type of the current platform */ int8 outntsubclass; /* the data's machine type */ uintn convert; /* whether to convert or not */ uint8 *pvalues; /* pointer to traverse user's buffer "values" */ int16 isspecial; intn ret_value = SUCCEED; int32 alloc_status = FAIL; /* no successful allocation yet */ #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata I've been called : %s\n", vp->name->values); #endif #ifdef DEBUG fprintf(stderr, "Where = %d count = %d\n", where, count); #endif if(vp->aid == FAIL && hdf_get_vp_aid(handle, vp) == FAIL) { /* * Fail if there is no data *AND* we were trying to read... * Otherwise, we should fill with the fillvalue */ if(vp->data_ref == 0) { if(handle->hdf_mode == DFACC_RDONLY) { if(vp->data_tag == DATA_TAG || vp->data_tag == DFTAG_SDS) { if((attr = NC_findattr(&vp->attrs, _FillValue))!= NULL) HDmemfill(values,(*attr)->data->values,vp->szof,count); else NC_arrayfill(values, count * vp->szof, vp->type); } ret_value = SUCCEED; goto done; } else { ret_value = FAIL; goto done; } } } /* Figure out if the tag/ref is a compressed special-element with no data. This "template" tag/ref is treated as if the tag/ref doesn't exist at all: reading from it fills a memory buffer and returns it to the user and writing to it fills up the buffer around the block to write. */ if(Hinquire(vp->aid,NULL,NULL,NULL,&elem_length,NULL,NULL,NULL,&isspecial) == FAIL) { ret_value = FAIL; goto done; } #ifdef DEBUG fprintf(stderr, "vp->aid=%d, length=%ld, byte_count=%ld\n", (int)vp->aid, (long)elem_length, (long)byte_count); #endif /* Check for zero-length compressed special element, i.e. a template */ if(elem_length <= 0) { attr = NC_findattr(&vp->attrs, _FillValue); /* Check for reading from template & fill memory buffer with fill-value */ if(handle->xdrs->x_op == XDR_DECODE) { if(attr != NULL) HDmemfill(values,(*attr)->data->values,vp->szof,count); else NC_arrayfill(values, count * vp->szof, vp->type); ret_value = SUCCEED; /* we are done */ goto done; } /* end if */ } /* end if */ /* Collect all the number-type size information, etc. */ byte_count = count * vp->HDFsize; #if 0 /* old way */ platntsubclass = DFKgetPNSC(vp->HDFtype, DF_MT); outntsubclass = DFKisnativeNT(vp->HDFtype) ? DFKgetPNSC(vp->HDFtype, DF_MT) : (DFKislitendNT(vp->HDFtype) ? DFNTF_PC : DFNTF_HDFDEFAULT); #else /* new way */ if (FAIL == (platntsubclass = DFKgetPNSC(vp->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } if (DFKisnativeNT(vp->HDFtype)) { if (FAIL == (outntsubclass = DFKgetPNSC(vp->HDFtype, DF_MT))) { ret_value = FAIL; goto done; } } else { outntsubclass = DFKislitendNT(vp->HDFtype) ? DFNTF_PC : DFNTF_HDFDEFAULT; } #endif convert= (uintn)(platntsubclass!=outntsubclass); /* BMR - bug#268: removed the block here that attempted to allocation large amount of space and failed. The allocation is not incorporated in the reading values, writing values, and writing fill values parts in this routine */ #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata: tBuf_size=%d, tBuf=%p\n",(int)tBuf_size,tBuf); #endif /* * It may be the case that the current does NOT begin at the start of the * data-object which is storing it. In that case compute the correct * location. * QAK: This shouldn't be an issue for compressed template objects. */ #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata: vp->data_offset=%d, where=%d\n",(int)vp->data_offset,(int)where); #endif if(vp->data_offset > 0) { where += vp->data_offset; /* if the dataset doesn't exist yet, we need to fill in the dimension scale info */ if(elem_length <= 0 && (handle->flags & NC_NOFILL) == 0) { /* BMR: work around for the low memory problem by repeatedly processing smaller amount blocks of data */ /* compute the data block size and the # of elements*/ data_size = MAX( byte_count, where ); new_count = vp->data_offset/vp->HDFsize; /* attempt to allocate the entire amount needed first, data_size bytes */ alloc_status = SDIresizebuf((void **)&tBuf, &tBuf_size, data_size ); /* if fail to allocate, repeatedly calculate a new amount and allocate until success or until no more memory available */ while( alloc_status == FAIL ) { new_count = new_count / 2; /* try smaller number of elements */ if( new_count <= 0 ) /* unable to allocate any memory */ { ret_value = FAIL; goto done; } /* re-calculate the size of the data block using smaller # of elements */ data_size = new_count * vp->szof; alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, data_size); } /* while trying to allocate */ /* assume that all elements are to be processed */ elements_left = vp->data_offset/vp->HDFsize; /* repeatedly read, convert, and store blocks of data_size bytes of data into the user's buffer until no more elements left */ while( elements_left > 0 ) { /* Fill the temporary buffer with the fill-value */ if(attr != NULL) HDmemfill(tBuf,(*attr)->data->values,vp->szof, new_count); else NC_arrayfill(tBuf, data_size, vp->type); /* convert the fill-values, if necessary */ if(convert) { if (FAIL == DFKconvert(tBuf, tBuf, vp->HDFtype, (uint32)new_count, DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } } /* end if convert */ /* Write the fill-values out */ status = Hwrite(vp->aid, data_size, tBuf); if (data_size == status) { ret_value = FAIL; goto done; } /* compute the number of elements left to be processed */ elements_left = elements_left - new_count; /* adjust the # of elements in the final block and compute that block's size if necessary */ if( elements_left > 0 && elements_left < new_count ) { new_count = elements_left; data_size = new_count * vp->szof; } } /* while more elements left to be processed */ SDPfreebuf(); /* free tBuf and tValues if any exists */ /* end of BMR part */ } /* end if */ } /* end if */ #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata vp->aid=%d, where=%d\n", (int)vp->aid,(int)where); #endif /* if we get here and the length is 0, we need to fill in the initial set of fill-values */ if(elem_length <= 0 && where > 0) { /* fill in the lead sequence of bytes with the fill values */ if((handle->flags & NC_NOFILL)==0 || isspecial==SPECIAL_COMP) { int32 buf_size = where; int32 chunk_size; int32 tempbuf_size; /* size to allocate buffer tBuf */ uint8 *write_buf = NULL; uint32 fill_count; /* number of fill values */ /* this block is to work around the failure caused by allocating a large chunk for the temporary buffers. First, try to allocate the desired chunk for both buffers; if any allocation fails, reduce the chunk size in half and try again until both buffers are successfully allocated - BMR */ chunk_size = MIN(buf_size, MAX_SIZE); /* initial chunk size */ alloc_status = FAIL; /* while any allocation fails */ while( alloc_status == FAIL ) { /* try to allocate the buffer to hold the fill values after conversion */ alloc_status = SDIresizebuf((void * *)&tValues,&tValues_size,chunk_size); /* then, if successful, try to allocate the temporary buffer that holds the fill values before conversion */ if( alloc_status != FAIL) { /* calculate the size needed to allocate tBuf by first calculating the number of fill values that cover the chunk in buffer tValues after conversion... */ fill_count = chunk_size/vp->HDFsize; /* then use that number to compute the size of the buffer to hold fill_count fill values of type vp->szof, i.e., before conversion */ tempbuf_size = fill_count * vp->szof; alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, tempbuf_size); } /* if first allocation successes */ if( alloc_status == FAIL ) /* if any allocations fail */ chunk_size = chunk_size / 2; /* try smaller chunk size */ if( chunk_size <= 0 ) /* unable to allocate any memory */ { ret_value = FAIL; goto done; } } /* while any allocation fails */ /* Fill the temporary buffer tBuf with the fill-value specified in the attribute if one exists, otherwise, with the default value */ if(attr != NULL) HDmemfill(tBuf,(*attr)->data->values, vp->szof, fill_count); else NC_arrayfill(tBuf, tempbuf_size, vp->type); /* convert the fill-values, if necessary, and store them in the buffer tValues */ if(convert) { if (FAIL == DFKconvert(tBuf, tValues, vp->HDFtype, fill_count, DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } write_buf=(uint8 *)tValues; } /* end if */ else write_buf=(uint8 *)tBuf; do { /* Write the fill-values out */ status = Hwrite(vp->aid, chunk_size, write_buf); if (status != chunk_size) { ret_value = FAIL; goto done; } /* reduce the bytes to be written */ buf_size -= chunk_size; /* to take care of the last piece of data */ chunk_size = MIN( chunk_size, buf_size ); } while (buf_size > 0); } /* end if */ else { /* don't write fill values, just seek to the correct location */ if(Hseek(vp->aid, where, DF_START) == FAIL) { ret_value = FAIL; goto done; } } /* end else */ } /* end if */ else { /* position ourselves correctly */ #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata: Check 2.0\n"); #endif if(elem_length > 0) { if( Hseek(vp->aid, where, DF_START) == FAIL) { ret_value = FAIL; goto done; } } #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata after Hseek(), byte_count=%d\n",(int)byte_count); #endif } /* end else */ /* Read or write the data into / from values */ if(handle->xdrs->x_op == XDR_DECODE) /* the read case */ { if(convert) /* if data need to be converted for this platform */ { data_size = byte_count; /* use data_size; preserve the byte count */ new_count = count; /* use new_count; preserve the # of elements */ /* attempt to allocate the entire amount needed first */ alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, data_size ); /* if fail to allocate, repeatedly calculate a new amount and allocate until success or until no memory available */ while( alloc_status == FAIL ) { new_count = new_count / 2; /* try smaller number of elements */ if( new_count <= 0 ) /* unable to allocate any memory */ { ret_value = FAIL; goto done; } /* re-calculate the size of the data block */ data_size = new_count * vp->szof; alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, data_size); } /* repeatedly read, convert, and store blocks of data_size bytes of data into the user's buffer until no more elements left */ /* number of elements left to be processed */ elements_left = count; /* put a ptr at the beginning of the user buffer for read data */ pvalues = values; while( elements_left > 0 ) { status = Hread(vp->aid, data_size, tBuf); if(status != data_size) /* amount read != amount specified */ { ret_value = FAIL; goto done; } /* convert and store new_count elements in tBuf into the buffer values, pointed to by pvalues */ if (FAIL == DFKconvert(tBuf, pvalues, vp->HDFtype, (uint32) new_count, DFACC_READ, 0, 0)) { ret_value = FAIL; goto done; } /* compute the number of elements left to be processed */ elements_left = elements_left - new_count; /* adjust the # of elements in the final block and compute that block's size if necessary */ if( elements_left > 0 && elements_left < new_count ) { new_count = elements_left; data_size = new_count * vp->szof; } /* advance pvalues on buffer "values" for next batch of data */ pvalues = pvalues + data_size; } /* while more elements left to be processed */ SDPfreebuf(); /* free tBuf and tValues if any exist */ } /* end if convert */ else /* no convert, read directly into the user's buffer */ { status = Hread(vp->aid, byte_count, values); if(status != byte_count) { ret_value = FAIL; goto done; } } /* end else */ } /* end if XDR_DECODE */ else {/* XDR_ENCODE */ if(convert) /* if data need to be converted for this platform */ { data_size = byte_count; /* use data_size; preserve the byte count*/ new_count = count; /* use new_count; preserve the # of elements */ /* attempt to allocate the entire amount needed first */ alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, data_size); /* if fail to allocate, repeatedly calculate a new amount and allocate until success or no more memory left */ while( alloc_status == FAIL ) { new_count = new_count / 2; /* try smaller number of elements */ if( new_count <= 0 ) /* unable to allocate any memory */ { ret_value = FAIL; goto done; } /* re-calculate the size of the data block */ data_size = new_count * vp->HDFsize; alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, data_size); } /* repeatedly convert, store blocks of data_size bytes of data from the user's buffer into the temporary buffer, and write out the temporary buffer until no more bytes left */ /* number of elements left to be processed */ elements_left = count; /* put a ptr at the beginning of the user buffer for read data */ pvalues = values; while( elements_left > 0 ) { /* convert new_count elements in the user's buffer values and write them into the temporary buffer */ if (FAIL == DFKconvert(pvalues, tBuf, vp->HDFtype, (uint32) new_count, DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } status = Hwrite(vp->aid, data_size, tBuf); if(status != data_size) { ret_value = FAIL; goto done; } /* compute the number of elements left to be processed */ elements_left = elements_left - new_count; /* adjust the # of elements in the final block and compute that block's size if necessary */ if( elements_left > 0 && elements_left < new_count ) { new_count = elements_left; data_size = new_count * vp->szof; } /* advance pvalues on buffer "values" for next batch of data */ pvalues = pvalues + data_size; } /* while more elements left to be processed */ SDPfreebuf(); /* free tBuf and tValues if any exist */ } /* end if convert */ else { /* no convert, write directly from the user's buffer */ status = Hwrite(vp->aid, byte_count, values); if(status != byte_count) { ret_value = FAIL; goto done; } } /* no convert */ } /* XDR_ENCODE */ /* if we get here and the length is 0, we need to finish writing out the fill-values */ bytes_left = vp->len - (where + byte_count); #ifdef DEBUG fprintf(stderr, "hdf_xdr_NCvdata: bytes_left=%d\n",(int)bytes_left); #endif if(elem_length <= 0 && bytes_left > 0) { if((handle->flags & NC_NOFILL) == 0 || isspecial == SPECIAL_COMP) { int32 buf_size = bytes_left; int32 chunk_size; int32 tempbuf_size; /* num of bytes to allocate buffer tBuf */ uint8 *write_buf = NULL; uint32 fill_count; /* number of fill values */ /* this block is to work around the failure caused by allocating a large chunk for the temporary buffers. First, try to allocate the desired chunk for both buffers; if any allocation fails, reduce the chunk size in half and try again until both buffers are successfully allocated - BMR */ chunk_size = MIN(buf_size, MAX_SIZE); /* initial chunk size */ /* while any allocation fails */ alloc_status = FAIL; while( alloc_status == FAIL ) { /* first, try to allocate the buffer to hold the fill values after conversion */ alloc_status = SDIresizebuf((void * *)&tValues,&tValues_size,chunk_size); /* then, if successful, try to allocate the temporary buffer that holds the fill values before conversion */ if( alloc_status != FAIL) { /* calculate the size needed to allocate tBuf by first calculating the number of fill values that cover the chunk in buffer tValues after conversion...*/ fill_count = chunk_size/vp->HDFsize; /* then use that number to compute the size of the buffer to hold fill_count fill values of type vp->szof, i.e., before conversion */ tempbuf_size = fill_count * vp->szof; alloc_status = SDIresizebuf((void **)&tBuf,&tBuf_size, tempbuf_size); } /* if first allocation successes */ if( alloc_status == FAIL ) /* if any allocations fail */ chunk_size = chunk_size / 2; /* try smaller chunk size */ if( chunk_size <= 0 ) /* unable to allocate any memory */ { ret_value = FAIL; goto done; } } /* while any allocation fails */ /* Fill the temporary buffer tBuf with the fill-value specified in the attribute if one exists, otherwise, with the default value */ if(attr != NULL) HDmemfill(tBuf,(*attr)->data->values, vp->szof, fill_count); else NC_arrayfill(tBuf, tempbuf_size, vp->type); /* convert the fill-values, if necessary, and store them in the buffer tValues */ if(convert) { if (FAIL == DFKconvert(tBuf, tValues, vp->HDFtype, fill_count, DFACC_WRITE, 0, 0)) { ret_value = FAIL; goto done; } write_buf=(uint8 *)tValues; } /* end if */ else write_buf=(uint8 *)tBuf; do { /* Write the fill-values out */ status = Hwrite(vp->aid, chunk_size, write_buf); if (status != chunk_size) { ret_value = FAIL; goto done; } /* reduce the bytes still to be written */ buf_size -= chunk_size; /* to take care of the last piece of data */ chunk_size = MIN( chunk_size, buf_size ); } while (buf_size > 0); } /* end if */ } /* end if */ #ifdef DEBUG fprintf(stderr, " * * * Done with call to xdr_NCvdata * * *\n"); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_xdr_NCvdata */ /* ------------------------- hdf_xdr_NCv1data ------------------- */ /* * read / write a single datum of type 'type' at 'where' * This is designed to replace the xdr based routine of the * similar name * Return TRUE if everything worked, else FALSE */ static intn hdf_xdr_NCv1data(handle, vp, where, type, values) NC * handle; NC_var * vp; u_long where; nc_type type; void *values; { intn ret_value = SUCCEED; if (FAIL == DFKsetNT(vp->HDFtype)) { ret_value = FAIL; goto done; } ret_value = hdf_xdr_NCvdata(handle, vp, where, type, 1, values); done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_xdr_NCv1data */ /* -------------------------- nssdc_xdr_NCvdata --------------------------- */ /* * Read / write 'count' items of contiguous data of type 'type' at 'where' * out of a CDF file * * The calling routine is responsible for calling DFKsetNT() as required. * * NOTE: Do we really care about CDF anymore since we don't support * it 100 percent -GV */ static bool_t nssdc_xdr_NCvdata(NC *handle, NC_var *vp, u_long where, nc_type type, uint32 count, void * values) { int32 status; int32 byte_count; #ifdef DEBUG fprintf(stderr, "nssdc_xdr_NCvdata I've been called : %s\n", vp->name->values); fprintf(stderr, "Where = %d count = %d\n", where, count); fprintf(stderr, "nssdc_xdr_NCvdata I've been called : %s reading %d from %d\n", vp->name->values, count, where); #endif /* position ourselves correctly */ status = HI_SEEK((hdf_file_t) handle->cdf_fp, where); if(status == FAIL) return(FALSE); /* make sure our tmp buffer is big enough to hold everything */ byte_count = count * vp->HDFsize; if(SDIresizebuf((void * *)&tBuf,&tBuf_size,byte_count)==FAIL) return(FALSE); #ifdef DEBUG fprintf(stderr, "\tbyte_count %d vp->HDFsize %d\n", byte_count, vp->HDFsize); #endif #ifdef DEBUG fprintf(stderr, " * * * Done with call to nssdc_xdr_NCvdata * * *\n"); #endif return(TRUE); } /* nssdc_xdr_NCvdata */ #endif /* HDF */ static int NCvar1io(handle, varid, coords, value) NC *handle ; int varid ; const long *coords ; Void *value ; { NC_var *vp ; u_long offset ; if(handle->flags & NC_INDEF ) return(-1) ; if(handle->vars == NULL) return(-1) ; vp = NC_hlookupvar( handle, varid ) ; if(vp == NULL) return(-1) ; if(vp->assoc->count == 0) /* 'scaler' variable */ { #ifdef HDF switch(handle->file_type) { case HDF_FILE: if (FAIL == hdf_xdr_NCv1data(handle, vp, vp->begin, vp->type, value)) return -1; else return 0; case netCDF_FILE: return(xdr_NCv1data(handle->xdrs, vp->begin, vp->type, value) ? 0 : -1 ) ; } #else /* !HDF */ return( xdr_NCv1data(handle->xdrs, vp->begin, vp->type, value) ? 0 : -1 ) ; #endif /* !HDF */ } if( !NCcoordck(handle, vp, coords) ) return(-1) ; offset = NC_varoffset(handle, vp, coords) ; #ifdef VDEBUG NCadvise(NC_NOERR, "%s offset %d, numrecs %d", vp->name->values, offset, vp->numrecs) ; arrayp("shape", vp->assoc->count, vp->shape) ; arrayp("coords", vp->assoc->count, coords) ; #endif /* VDEBUG */ #ifdef HDF switch(handle->file_type) { case HDF_FILE: if(FAIL == hdf_xdr_NCv1data(handle, vp, offset, vp->type, value)) return(-1) ; break; case netCDF_FILE: if( !xdr_NCv1data(handle->xdrs, offset, vp->type, value)) return(-1) ; break; } #else /* !HDF */ if( !xdr_NCv1data(handle->xdrs, offset, vp->type, value)) return(-1) ; #endif /* !HDF */ return(0) ; } int ncvarput1(cdfid, varid, coords, value) int cdfid ; int varid ; const long *coords ; const ncvoid *value ; { NC *handle ; cdf_routine_name = "ncvarput1" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) { NCadvise(NC_EPERM, "%s: NC_NOWRITE", handle->path) ; return(-1) ; } handle->xdrs->x_op = XDR_ENCODE ; return( NCvar1io(handle, varid, coords, value) ) ; } int ncvarget1(cdfid, varid, coords, value) int cdfid ; int varid ; const long *coords ; ncvoid *value ; { NC *handle ; cdf_routine_name = "ncvarget1" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; handle->xdrs->x_op = XDR_DECODE ; return( NCvar1io(handle, varid, coords, (Void *)value) ) ; } /* * xdr 'count' items of contiguous data of type 'type' at 'where' */ static bool_t xdr_NCvdata(xdrs, where, type, count, values) XDR *xdrs ; u_long where ; nc_type type ; unsigned count ; Void *values ; { u_long rem = 0 ; bool_t (*xdr_NC_fnct)() ; bool_t stat ; size_t szof ; switch(type){ case NC_BYTE : case NC_CHAR : case NC_SHORT : rem = where%4 ; where -= rem ; /* round down to nearest word */ break ; default: break; } if( !xdr_NCsetpos(xdrs, where) ) return(FALSE) ; switch(type){ case NC_BYTE : case NC_CHAR : if(rem != 0) { unsigned vcount = MIN(count, 4 - rem) ; if(!xdr_NCvbyte(xdrs, (unsigned)rem, vcount, values) ) return(FALSE) ; values += vcount ; count -= vcount ; } rem = count%4 ; /* tail remainder */ count -= rem ; if(!xdr_opaque(xdrs, values, count)) return(FALSE) ; if(rem != 0) { values += count ; if( !xdr_NCvbyte(xdrs, (unsigned)0, (unsigned)rem , values) ) return(FALSE) ; return(TRUE) ; } /* else */ return(TRUE) ; case NC_SHORT : if(rem != 0) { if(!xdr_NCvshort(xdrs, (unsigned)1, (short *)values) ) return(FALSE) ; values += sizeof(short) ; count -= 1 ; } rem = count%2 ; /* tail remainder */ count -= rem ; if(!xdr_shorts(xdrs, (short *)values, count)) return(FALSE) ; if(rem != 0) { values += (count * sizeof(short)) ; return( xdr_NCvshort(xdrs, (unsigned)0, (short *)values) ) ; } /* else */ return(TRUE) ; case NC_LONG : #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ xdr_NC_fnct = xdr_int ; #else xdr_NC_fnct = xdr_long ; #endif szof = sizeof(nclong) ; break ; case NC_FLOAT : xdr_NC_fnct = xdr_float ; szof = sizeof(float) ; break ; case NC_DOUBLE : xdr_NC_fnct = xdr_double ; szof = sizeof(double) ; break ; default : return(FALSE) ; } for(stat = TRUE ; stat && (count > 0) ; count--) { stat = (*xdr_NC_fnct)(xdrs,values) ; values += szof ; } return(stat) ; } /* * For a "hypercube" put/get, compute the largest contiguous block */ static const long * NCvcmaxcontig(handle, vp, origin, edges) NC *handle ; NC_var *vp ; const long *origin ; const long *edges ; { const long *edp, *orp ; unsigned long *boundary, *shp ; int partial=0; if( IS_RECVAR(vp) ) { /* one dimensional && the only 'record' variable */ if(vp->assoc->count == 1 && handle->recsize <= vp->len) { return(edges) ; } /* else */ boundary = vp->shape +1 ; } else boundary = vp->shape ; /* find max contiguous */ shp = vp->shape + vp->assoc->count - 1 ; /* points to last dimension */ edp = edges + vp->assoc->count - 1 ; /* points to last edge */ orp = origin + vp->assoc->count - 1 ; /* Traverse shp back to the begining of boundary while checking that each edge is within limit between start coord and max of dimension */ for( ; shp >= boundary ; shp--,edp--,orp--) { if(*edp > *shp - *orp || *edp < 0 ) { NCadvise(NC_EINVAL, "Invalid edge length %d", *edp) ; return(NULL) ; } /* Mark that the writing is partial when any edge is smaller than the matching dimension */ if(*edp < *shp ) { partial=1; break ; /* Why do we want to break here? What if the later edge is out of limit and we break out as soon as a smaller edge is reached? -BMR */ } } /* When all dimensions have been checked and shp has passed the first element in boundary and into undefined location, so did edp in edges, move edp forward once to point to the first element in edges. -BMR, 4/15/2013 */ if(shp < boundary) /* made it all the way */ edp++ ; /* * This little check makes certain that if complete "slices" of the * regular dimensions of an unlimited dimension dataset are being written * out, it's ok to write out a "block" of all those slices at once. -QAK */ /* if( IS_RECVAR(vp) && (edp-1==edges) && !partial) edp=edges; */ /* shp, edp reference last index s.t. shape[ii] == edge[ii] */ return(edp) ; } static int NCsimplerecio(handle, vp, start, edges, values) NC *handle ; NC_var *vp ; const long *start ; const long *edges ; Void *values ; { long offset ; long newrecs ; /* 'start' should be verified as valid upon prior to entry to this * routine */ if(*edges <= 0) { NCadvise(NC_EINVALCOORDS, "%s: Invalid edge length %ld", vp->name->values, *edges) ; return -1 ; } /* check to see if we are trying to read beyond the end; Modification: (BMR - 11/10/2006) - replaced "handle->numrecs" with "vp->numrecs" to fix bug 525, ie. writing two unlimited 1D datasets without closing the file in between the two writes caused the second dataset to contain garbage. */ /* After fixing HDFFR-1385, need to reassess this issue. -BMR */ newrecs = (*start + *edges) - vp->numrecs ; if(handle->xdrs->x_op != XDR_ENCODE && newrecs > 0) { NCadvise(NC_EINVALCOORDS, "%s: Invalid Coordinates", vp->name->values) ; return -1 ; } offset = NC_varoffset(handle, vp, start) ; #ifdef VDEBUG fprintf(stderr, "\t\t %s offset %ld, *edges %lu\n", vp->name->values, offset, *edges ) ; arrayp("\t\t coords", vp->assoc->count, start) ; #endif if(newrecs > 0) handle->flags |= NC_NDIRTY ; #ifdef HDF switch(handle->file_type) { case HDF_FILE: DFKsetNT(vp->HDFtype); if(FAIL == hdf_xdr_NCvdata(handle, vp, offset, vp->type, (uint32)*edges, values)) return(-1) ; break; case CDF_FILE: DFKsetNT(vp->HDFtype); if(!nssdc_xdr_NCvdata(handle, vp, offset, vp->type, (uint32)*edges, values)) return(-1) ; break; case netCDF_FILE: if(!xdr_NCvdata(handle->xdrs, offset, vp->type, (unsigned)*edges, values)) return(-1) ; break; } #else /* !HDF */ if(!xdr_NCvdata(handle->xdrs, offset, vp->type, (unsigned)*edges, values)) return(-1) ; #endif /* !HDF */ #ifdef HDF if(newrecs > 0) { /* Update var's numrecs first and then handle->numrecs if the first exceeds the latter (part of bugzilla 1378, i.e., JIRA HDFFR-167) - BMR, 12/30/2008 */ vp->numrecs += newrecs; handle->numrecs = MAX(vp->numrecs, handle->numrecs); if(handle->flags & NC_NSYNC) /* write out header->numrecs NOW */ { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; handle->flags &= ~NC_NDIRTY ; } } #endif return(0) ; } /* * The following routine is not `static' because it is used by the `putgetg' * module for generalized hyperslab access. */ int NCvario(handle, varid, start, edges, values) NC *handle ; int varid ; const long *start ; const long *edges ; void *values ; { NC_var *vp ; const long *edp0, *edp ; unsigned long iocount ; if(handle->flags & NC_INDEF) return(-1) ; /* find the variable */ if(handle->vars == NULL) return(-1) ; vp = NC_hlookupvar( handle, varid ) ; if(vp == NULL) return(-1) ; #ifdef VDEBUG fprintf(stderr, "Entering NCvario, variable %s\n", vp->name->values ) ; arrayp("start", vp->assoc->count, start) ; arrayp("edges", vp->assoc->count, edges) ; #endif /* VDEBUG */ #ifdef HDF if(handle->file_type != netCDF_FILE) { if (FAIL == DFKsetNT(vp->HDFtype)) return -1; } #endif if(vp->assoc->count == 0) /* 'scaler' variable */ { #ifdef HDF switch(handle->file_type) { case HDF_FILE: if (FAIL == hdf_xdr_NCv1data(handle, vp, vp->begin, vp->type, values)) return -1; else return 0; case netCDF_FILE: return(xdr_NCv1data(handle->xdrs, vp->begin, vp->type, values) ? 0 : -1 ) ; } #else /* !HDF */ return(xdr_NCv1data(handle->xdrs, vp->begin, vp->type, values) ? 0 : -1 ) ; #endif /* !HDF */ } if( !NCcoordck(handle, vp, start) ) return(-1) ; if( IS_RECVAR(vp) && vp->assoc->count == 1 && handle->recsize <= vp->len) { /* one dimensional && the only 'record' variable */ return(NCsimplerecio(handle, vp, start, edges, values)) ; } /* find max contiguous, check sanity of edges */ edp0 = NCvcmaxcontig(handle, vp, start, edges) ; if(edp0 == NULL) return(-1) ; #ifdef VDEBUG fprintf(stderr, "edp0\t%ld\n", (unsigned long)edp0 - (unsigned long)edges) ; #endif /* VDEBUG */ /* now accumulate max count for a single io operation */ edp = edges + vp->assoc->count - 1 ; /* count is > 0 at this point */ iocount = 1 ; for( ; edp >= edp0 ; edp--) iocount *= *edp ; /* now edp = edp0 - 1 */ { /* inline */ long coords[H4_MAX_VAR_DIMS], upper[H4_MAX_VAR_DIMS]; long *cc ; const long *mm ; u_long offset ; size_t szof = nctypelen(vp->type) ; /* copy in starting indices */ cc = coords ; mm = start ; while(cc < &coords[vp->assoc->count] ) *cc++ = *mm++ ; #ifdef VDEBUG arrayp("coords", vp->assoc->count, coords) ; #endif /* set up in maximum indices */ cc = upper ; mm = coords ; edp = edges ; while(cc < &upper[vp->assoc->count] ) *cc++ = *mm++ + *edp++ ; #ifdef VDEBUG arrayp("upper", vp->assoc->count, upper) ; #endif /* ripple counter */ cc = coords ; mm = upper ; while(*coords < *upper) { #ifdef VDEBUG fprintf(stderr, "\t*cc %ld, *mm %ld\n", *cc, *mm) ; #endif /* VDEBUG */ while( *cc < *mm ) { #ifdef VDEBUG fprintf(stderr, "\t\tedp0 %p, edges %p, mm %p, &upper[] %p\n", edp0, edges, mm, &upper[edp0-edges-1]) ; #endif /* VDEBUG */ if(edp0 == edges || mm == &upper[edp0-edges-1]) { /* doit */ if( !NCcoordck(handle, vp, coords) ) return(-1) ; offset = NC_varoffset(handle, vp, coords) ; #ifdef VDEBUG fprintf(stderr, "\t\t %s offset %lu, iocount %lu\n", vp->name->values, offset, iocount ) ; arrayp("\t\t coords", vp->assoc->count, coords) ; #endif #ifdef HDF switch(handle->file_type) { case HDF_FILE: if(FAIL == hdf_xdr_NCvdata(handle, vp, offset, vp->type, (uint32)iocount, values)) return(-1) ; break; case CDF_FILE: if(!nssdc_xdr_NCvdata(handle, vp, offset, vp->type, (uint32)iocount, values)) return(-1) ; break; case netCDF_FILE: if(!xdr_NCvdata(handle->xdrs, offset, vp->type, (unsigned)iocount, values)) return(-1) ; break; } #else /* !HDF */ if(!xdr_NCvdata(handle->xdrs, offset, vp->type, (unsigned)iocount, values)) return(-1) ; #endif /* !HDF */ values = (void *)((const uint8 *)values + iocount * szof); (*cc) += (edp0 == edges ? iocount : 1) ; #ifdef VDEBUG fprintf(stderr, "\t\t *cc %ld, *mm %ld continue\n", *cc, *mm) ; #endif /* VDEBUG */ continue ; } cc++ ; mm++ ; #ifdef VDEBUG fprintf(stderr, "\t\t*cc %ld, *mm %ld\n", *cc, *mm) ; #endif /* VDEBUG */ } #ifdef VDEBUG fprintf(stderr, "\tcc %p, coords %p\n", cc, coords) ; #endif /* VDEBUG */ if(cc == coords) { #ifdef VDEBUG fprintf(stderr, "\t break\n") ; #endif /* VDEBUG */ break ; } *cc = start[ cc - coords ] ; cc-- ; mm-- ; (*cc)++ ; #ifdef VDEBUG fprintf(stderr, "\t*coords %ld, *upper %ld\n", *coords, *upper) ; #endif } #ifdef VDEBUG arrayp("coords", vp->assoc->count, coords) ; arrayp("upper", vp->assoc->count, upper) ; fprintf(stderr,"vp->numrecs=%d\n",vp->numrecs); fprintf(stderr,"upper[0]=%d\n",upper[0]); #endif /* * This is a kludge to work around the fact the NCcoordck() doesn't * get the upper limits on the slab to write out -QAK */ if(upper[0] > vp->numrecs) vp->numrecs=upper[0]; } /* end inline */ #ifdef NOTNOW /* Albert and I agree that this check below makes perfect sense, but it * causes the ncdiminq test to fail for unlimited length dimensions. * Perhaps someone with more time can look into this later. -QAK * Perhaps it is only true for netCDF files. -BMR (2013-06-24) */ /* HDFFR-1385: the fix for this bug may fix this problem too.-BMR */ if (handle->numrecs < vp->numrecs) handle->numrecs = vp->numrecs; #endif /* NOTNOW */ #ifdef VDEBUG fprintf(stderr, "Exiting NCvario\n") ; #endif /* VDEBUG */ return(0) ; } int ncvarput(cdfid, varid, start, edges, values) int cdfid ; int varid ; const long *start ; const long *edges ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvarput" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) { NCadvise(NC_EPERM, "%s: NC_NOWRITE", handle->path) ; return(-1) ; } handle->xdrs->x_op = XDR_ENCODE ; return( NCvario(handle, varid, start, edges, values) ) ; } /* --------------------------- NC_fill_buffer ---------------------------- */ /* * Fills the provided array with user-defined fill value _FillValue or * the default one. The buffer size to be filled is computed using the * provided parameter 'edges'. * -BMR, 2013/8/29 */ int NC_fill_buffer(handle, varid, edges, values) NC *handle; /* file structure */ int varid; /* var number in handle->vars list */ const long *edges; /* size of the array's edges */ void *values; /* buffer to be filled */ { NC_var *vp ; NC_attr **attr; unsigned long buf_size; int ii; /* Find the variable structure */ if(handle->vars == NULL) return(-1); vp = NC_hlookupvar(handle, varid); if(vp == NULL) return(-1); /* Compute the size of the buffer using the edges */ buf_size = 1; for (ii = 0; ii < vp->assoc->count; ii++) buf_size = buf_size * edges[ii]; /* Find user-defined fill-value and fill the buffer with it */ attr = NC_findattr(&vp->attrs, _FillValue); if(attr != NULL) if (HDmemfill(values,(*attr)->data->values,vp->szof,buf_size) == NULL) return(-1); /* If no user-defined fill-value, fill the buffer with default fill-value */ else NC_arrayfill(values, buf_size * vp->szof, vp->type); return 0; } /* ---------------------------- ncvarget ----------------------------- */ /* * Reads data from the variable 'varid'. The starting position and size * of the data are specified by parameters 'start' and 'edges'. * * If the requested size exceeds the boundary of the actual data, ncvarget * will fill the provided buffer with user-defined fill values or the * default fill values (via NC_fill_buffer.) * * If the requested size exceeds not only the boundary of the actual data, * but also the maximum number of records in the file, ncvarget will fail. * * -BMR, 2013/8/29 */ int ncvarget(cdfid, varid, start, edges, values) int cdfid ; int varid ; const long *start ; const long *edges ; ncvoid *values ; { NC *handle; NC_var *vp; int status = 0; cdf_routine_name = "ncvarget"; /* Get the file handle */ handle = NC_check_id(cdfid); if(handle == NULL) return(-1); /* Fill the buffer with fill-values before passing it into NCvario to read the requested data */ status = NC_fill_buffer(handle, varid, edges, values); if (status == FAIL) return(-1); handle->xdrs->x_op = XDR_DECODE ; return(NCvario(handle, varid, start, edges, (Void *)values)); } /* This is the original ncvarget. Keep for a while just in case. -BMR int ncvarget(cdfid, varid, start, edges, values) int cdfid ; int varid ; const long *start ; const long *edges ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvarget" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; handle->xdrs->x_op = XDR_DECODE ; return( NCvario(handle, varid, start, edges, (Void *)values) ) ; } */ /* Begin recio */ /* * Returns number of record variables in an open netCDF file, * Optionally fills an array of record variable handles. * Optionally fills an array of record variable ids. * Returns -1 on error. */ static int NCnumrecvars(handle, vpp, recvarids) NC *handle; NC_var **vpp; int *recvarids; { NC_var **dp ; int ii ; int nrecvars = 0; if(handle->vars == NULL) return -1 ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if(IS_RECVAR((*dp))) { if(vpp != NULL) vpp[nrecvars] = *dp ; if(recvarids != NULL) recvarids[nrecvars] = ii ; nrecvars++ ; } } return nrecvars ; } static long NCelemsPerRec(vp) NC_var *vp ; { long nelems = 1 ; int jj ; for(jj = 1 ; jj < vp->assoc->count ; jj++) nelems *= vp->shape[jj] ; return nelems ; } /* * Retrieves the number of record variables, the record variable ids, and the * record size of each record variable. If any pointer to info to be returned * is null, the associated information is not returned. Returns -1 on error. */ int ncrecinq(cdfid, nrecvars, recvarids, recsizes) int cdfid ; int *nrecvars ; int *recvarids ; long *recsizes ; { NC *handle ; int nrvars ; NC_var *rvp[H4_MAX_NC_VARS] ; cdf_routine_name = "ncrecinq" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; nrvars = NCnumrecvars(handle, rvp, recvarids) ; if(nrvars == -1) return -1 ; if(nrecvars != NULL) *nrecvars = nrvars; if(recsizes != NULL) { int ii ; for(ii = 0 ; ii < nrvars ; ii++) { recsizes[ii] = nctypelen(rvp[ii]->type) * NCelemsPerRec(rvp[ii]) ; } } return nrvars ; } static int NCrecio(handle, recnum, datap) NC *handle ; long recnum ; Void **datap ; { int nrvars ; NC_var *rvp[H4_MAX_NC_VARS] ; int ii ; long coords[H4_MAX_VAR_DIMS]; u_long offset ; unsigned iocount ; nrvars = NCnumrecvars(handle, rvp, (int*) NULL) ; if(nrvars == -1) return -1 ; /* TODO: what error message ?*/ memset(coords, 0, sizeof(coords)) ; coords[0] = recnum ; for(ii = 0 ; ii < nrvars ; ii++) { if(datap[ii] == NULL) continue ; /* else */ offset = NC_varoffset(handle, rvp[ii], coords) ; iocount = NCelemsPerRec(rvp[ii]) ; #ifdef HDF switch(handle->file_type) { case HDF_FILE: DFKsetNT(rvp[ii]->HDFtype); if(FAIL == hdf_xdr_NCvdata(handle, rvp[ii], offset, rvp[ii]->type, (uint32)iocount, datap[ii])) return(-1) ; break; case CDF_FILE: DFKsetNT(rvp[ii]->HDFtype); if(!nssdc_xdr_NCvdata(handle, rvp[ii], offset, rvp[ii]->type, (uint32)iocount, datap[ii])) return(-1) ; break; case netCDF_FILE: if(!xdr_NCvdata(handle->xdrs, offset, rvp[ii]->type, iocount, datap[ii])) return(-1) ; break; } #else /* !HDF */ if(!xdr_NCvdata(handle->xdrs, offset, rvp[ii]->type, iocount, datap[ii])) return(-1) ; #endif /* !HDF */ } return 0 ; } /* * Write one record's worth of data, except don't write to variables for which * the address of the data to be written is null. Return -1 on error. */ int ncrecput(cdfid, recnum, datap) int cdfid ; long recnum ; ncvoid * *datap ; { NC *handle ; long unfilled ; cdf_routine_name = "ncrecput" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(handle->flags & NC_INDEF ) return(-1) ; if((unfilled = recnum - handle->numrecs) >= 0) { handle->flags |= NC_NDIRTY ; if( handle->flags & NC_NOFILL ) { /* Go directly to jail, do not pass go */ handle->numrecs = recnum + 1 ; } else { /* fill out new records */ if( !xdr_NCsetpos(handle->xdrs, handle->begin_rec + handle->recsize*handle->numrecs) ) { nc_serror("seek, rec %ld", handle->numrecs) ; return(FALSE) ; } for( ; unfilled >= 0 ; unfilled--, handle->numrecs++) { if( !NCfillrecord(handle->xdrs, (NC_var **)handle->vars->values, handle->vars->count) ) { nc_serror("NCfillrec, rec %ld", handle->numrecs) ; return(FALSE) ; } } } if(handle->flags & NC_NSYNC) /* write out header->numrecs NOW */ { if(!xdr_numrecs(handle->xdrs, handle) ) return(FALSE) ; handle->flags &= ~NC_NDIRTY ; } } handle->xdrs->x_op = XDR_ENCODE ; return( NCrecio(handle, recnum, (Void **)datap) ) ; } /* * Read one record's worth of data, except don't read from variables for which * the address of the data to be read is null. Return -1 on error; */ int ncrecget(cdfid, recnum, datap) int cdfid ; long recnum ; ncvoid **datap ; { NC *handle ; cdf_routine_name = "ncrecget" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(handle->flags & NC_INDEF ) return(-1) ; handle->xdrs->x_op = XDR_DECODE ; return( NCrecio(handle, recnum, (Void **)datap) ) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/putgetg.c0000644000000000000000000001546212421456623015303 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * * This file supports netCDF variable I/O for generalized hyperslabs. * A generalized hyperslab is one in which the locations of the * memory-resident data values may be arbitrary, though they are * constrained to have a regular structure. In addition, the values * of the netCDF variable may be accessed using non-unity strides. * * $Id: putgetg.c 4963 2007-09-15 17:20:52Z bmribler $ */ #include "local_nc.h" /* * Perform I/O on a generalized hyperslab. The efficiency of this * implementation is dependent upon caching in the lower layers. */ #ifndef HDF static #endif int NCgenio(handle, varid, start, count, stride, imap, values) NC *handle; int varid; const long *start; /* NULL => first corner */ const long *count; /* NULL => everything following start[] */ const long *stride; /* NULL => unity strides */ const long *imap; /* NULL => same structure as netCDF variable */ void *values ; { int maxidim; /* maximum dimensional index */ NC_var *vp = NC_hlookupvar( handle, varid ); if (vp == NULL) return(-1) ; maxidim = vp->assoc->count - 1; if (maxidim < 0) { /* * The variable is a scalar; consequently, there's only one thing * to get and only one place to put it. (Why was I called?) */ return NCvario(handle, varid, start, count, values); } else { /* * The variable is an array. */ int idim; char *valp = values; long mycount[H4_MAX_VAR_DIMS]; long mystart[H4_MAX_VAR_DIMS]; long mystride[H4_MAX_VAR_DIMS]; long myimap[H4_MAX_VAR_DIMS]; long iocount[H4_MAX_VAR_DIMS]; /* count vector for NCvario() */ long stop[H4_MAX_VAR_DIMS]; /* stop indexes */ long length[H4_MAX_VAR_DIMS]; /* edge lengths in bytes */ /* * Verify stride argument. */ for (idim = 0; idim <= maxidim; ++idim) { if (stride != NULL && stride[idim] < 1) { NCadvise(NC_EINVAL, "Non-positive stride"); return(-1) ; } } /* * Initialize I/O parameters. */ for (idim = maxidim; idim >= 0; --idim) { mystart[idim] = start != NULL ? start[idim] : 0; mycount[idim] = count != NULL ? count[idim] : idim == 0 && IS_RECVAR(vp) ? handle->numrecs - mystart[idim] : vp->shape[idim] - mystart[idim]; mystride[idim] = stride != NULL ? stride[idim] : 1; myimap[idim] = imap != NULL ? imap[idim] : idim == maxidim ? vp->szof : myimap[idim+1] * mycount[idim+1]; iocount[idim] = 1; length[idim] = myimap[idim] * mycount[idim]; stop[idim] = mystart[idim] + mycount[idim]*mystride[idim]; } /* * As an optimization, adjust I/O parameters when the fastest * dimension has unity stride both externally and internally. * In this case, the user could have called a simpler routine * (i.e. ncvarget() or ncvarput()). */ if (mystride[maxidim] == 1 && myimap[maxidim] == vp->szof) { iocount[maxidim] = mycount[maxidim]; mystride[maxidim] = mycount[maxidim]; myimap[maxidim] = length[maxidim]; } /* * Perform I/O. Exit when done. */ for (;;) { int iostat = NCvario(handle, varid, mystart, iocount, (Void*)valp); if (iostat != 0) return iostat; /* * The following code permutes through the variable's external * start-index space and it's internal address space. At the * UPC, this algorithm is commonly called `odometer code'. */ idim = maxidim; carry: valp += myimap[idim]; mystart[idim] += mystride[idim]; if (mystart[idim] >= stop[idim]) { mystart[idim] = start[idim]; valp -= length[idim]; if (--idim < 0) return 0; goto carry; } } /* I/O loop */ } /* variable is array */ } /* * Generalized hyperslab output. */ int ncvarputg(cdfid, varid, start, count, stride, imap, values) int cdfid ; int varid ; const long *start ; const long *count ; const long *stride ; const long *imap ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvarputg" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) { NCadvise(NC_EPERM, "%s: NC_NOWRITE", handle->path) ; return(-1) ; } handle->xdrs->x_op = XDR_ENCODE ; return NCgenio(handle, varid, start, count, stride, imap, values); } /* * Generalized hyperslab input. */ int ncvargetg(cdfid, varid, start, count, stride, imap, values) int cdfid ; int varid ; const long *start ; const long *count ; const long *stride ; const long *imap ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvargetg" ; handle = NC_check_id(cdfid) ; if (handle == NULL) return(-1) ; handle->xdrs->x_op = XDR_DECODE ; return NCgenio(handle, varid, start, count, stride, imap, (Void*)values); } /* * Stride-oriented hyperslab output. */ int ncvarputs(cdfid, varid, start, count, stride, values) int cdfid ; int varid ; const long *start ; const long *count ; const long *stride ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvarputs" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) { NCadvise(NC_EPERM, "%s: NC_NOWRITE", handle->path) ; return(-1) ; } handle->xdrs->x_op = XDR_ENCODE ; return NCgenio(handle, varid, start, count, stride, NULL, values); } /* * Stride-oriented hyperslab input. */ int ncvargets(cdfid, varid, start, count, stride, values) int cdfid ; int varid ; const long *start ; const long *count ; const long *stride ; ncvoid *values ; { NC *handle ; cdf_routine_name = "ncvargets" ; handle = NC_check_id(cdfid) ; if (handle == NULL) return(-1) ; handle->xdrs->x_op = XDR_DECODE ; return NCgenio(handle, varid, start, count, stride, (long*)0, (Void*)values); } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/xdrstdio.c0000644000000000000000000001635512421456623015466 0ustar #if !defined(lint) static char rcsid[] = "$Id: xdrstdio.c 510 1993-05-03 21:27:09Z chouck $"; #endif /* * xdr_stdio.c, XDR implementation on standard i/o file. * * This set of routines implements a XDR on a stdio stream. * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes * from the stream. * * Based on Sun sources from the portable distribution: * * @(#)xdr_stdio.c 1.1 87/11/04 3.9 RPCSRC * @(#)xdr_stdio.c 1.16 87/08/11 Copyr 1984 Sun Micro * Copyright (C) 1984, Sun Microsystems, Inc. * * UCAR/Unidata modifications for netcdf: * _destroy closes the stream. * current stream position cached in x_public * (assumes caddr_t can hold a long) * last op cached in x_handy */ #include #include "local_nc.h" /* prototypes for NCadvis, nc_error */ /* also obtains , , & * */ #ifdef DOS_FS #include /* O_BINARY */ #define USE_BFLAG #endif #ifdef USE_XDRNCSTDIO #define XDRNC_LASTOP(xdrs) (*((enum xdr_op*)&((xdrs)->x_handy))) #define XDRNC_POS(xdrs) (*((long*)&((xdrs)->x_public))) static bool_t xdrNCstdio_getlong(); static bool_t xdrNCstdio_putlong(); static bool_t xdrNCstdio_getbytes(); static bool_t xdrNCstdio_putbytes(); static u_long xdrNCstdio_getpos(); static bool_t xdrNCstdio_setpos(); static long * xdrNCstdio_inline(); static void xdrNCstdio_destroy(); /* * Ops vector for stdio type XDR */ static struct xdr_ops xdrNCstdio_ops = { xdrNCstdio_getlong, /* deserialize a long int */ xdrNCstdio_putlong, /* serialize a long int */ xdrNCstdio_getbytes, /* deserialize counted bytes */ xdrNCstdio_putbytes, /* serialize counted bytes */ xdrNCstdio_getpos, /* get offset in the stream */ xdrNCstdio_setpos, /* set offset in the stream */ xdrNCstdio_inline, /* prime stream for inline macros */ xdrNCstdio_destroy /* destroy stream */ }; /* * Initialize a stdio xdr stream. * Sets the xdr stream handle xdrs for use on the stream file. * Operation flag is set to op. */ void xdrNCstdio_create(xdrs, file, op) XDR *xdrs; FILE *file; enum xdr_op op; { xdrs->x_op = op; xdrs->x_ops = &xdrNCstdio_ops; xdrs->x_private = (caddr_t)file; xdrs->x_handy = 0; xdrs->x_base = 0; XDRNC_LASTOP(xdrs) = XDR_FREE ; XDRNC_POS(xdrs) = ftell(file) ; } /* * Destroy a NCstdio xdr stream. * Cleans up the xdr stream handle xdrs previously set up by xdrNCstdio_create. * This function closes the stream. */ static void xdrNCstdio_destroy(xdrs) XDR *xdrs; { (void)fclose((FILE *)xdrs->x_private); } static bool_t xdrNCstdio_getlong(xdrs, lp) XDR *xdrs; long *lp; { if (fread((caddr_t)lp, sizeof(long), 1, (FILE *)xdrs->x_private) != 1) { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return (FALSE); } #ifdef SWAP *lp = ntohl(*lp); #endif XDRNC_POS(xdrs) += sizeof(long) ; return (TRUE); } static bool_t xdrNCstdio_putlong(xdrs, lp) XDR *xdrs; long *lp; { #ifdef SWAP long mycopy = htonl(*lp); lp = &mycopy; #endif if (fwrite((caddr_t)lp, sizeof(long), 1, (FILE *)xdrs->x_private) != 1) { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return (FALSE); } XDRNC_POS(xdrs) += sizeof(long) ; return (TRUE); } static bool_t xdrNCstdio_getbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; u_int len; { if ((len != 0) && (fread(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1)) { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return (FALSE); } XDRNC_POS(xdrs) += len ; return (TRUE); } static bool_t xdrNCstdio_putbytes(xdrs, addr, len) XDR *xdrs; caddr_t addr; u_int len; { if ((len != 0) && (fwrite(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1)) { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return (FALSE); } XDRNC_POS(xdrs) += len ; return (TRUE); } static u_long xdrNCstdio_getpos(xdrs) XDR *xdrs; { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return ((u_long)XDRNC_POS(xdrs)); } static bool_t xdrNCstdio_setpos(xdrs, pos) XDR *xdrs; u_long pos; { if(xdrs->x_op == XDRNC_LASTOP(xdrs) && pos == XDRNC_POS(xdrs)) return TRUE ; /* else */ XDRNC_LASTOP(xdrs) = xdrs->x_op ; if (fseek((FILE *)xdrs->x_private,(long)pos, 0) < 0) { XDRNC_POS(xdrs) = ftell((FILE *)xdrs->x_private); return (FALSE); } /* else */ XDRNC_POS(xdrs) = pos ; return TRUE ; } /*ARGSUSED*/ static long * xdrNCstdio_inline(xdrs, len) XDR *xdrs; u_int len; { /* * Must do some work to implement this: must insure * enough data in the underlying stdio buffer, * that the buffer is aligned so that we can indirect through a * long *, and stuff this pointer in xdrs->x_buf. Doing * a fread or fwrite to a scratch buffer would defeat * most of the gains to be had here and require storage * management on this buffer, so we don't do this. */ return (NULL); } #else /* * Destroy a stdio xdr stream. * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create. * This function closes the stream, while the default * library function, xdrstdio_destroy() which merely flushes it. */ static void xdrNCstdio_destroy(xdrs) XDR *xdrs; { (void)fclose((FILE *)xdrs->x_private); } static bool_t xdrNCstdio_setpos(xdrs, pos) XDR *xdrs; u_long pos; { static XDR *last = NULL ; static enum xdr_op lastop = XDR_FREE ; if(xdrs == last && xdrs->x_op == lastop && pos == xdr_getpos(xdrs)) return TRUE ; /* else */ last = xdrs ; lastop = xdrs->x_op ; if (fseek((FILE *)xdrs->x_private,(long)pos, 0) < 0) { return (FALSE); } /* else */ return TRUE ; } #endif /* USE_XDRNCSTDIO */ /********/ #include /* access(), F_OK */ #ifndef F_OK #define F_OK 0 #endif #include "netcdf.h" /* NC_ */ #include "local_nc.h" /* prototypes for NCadvis, nc_error */ #ifndef USE_BFLAG /* Doesn't Understand the "b" (binary flag to fopen) */ #define CREAT_FOPENFLAGS "w+" #define WRITE_FOPENFLAGS "r+" #define NOWRITE_FOPENFLAGS "r" #else #define CREAT_FOPENFLAGS "w+b" #define WRITE_FOPENFLAGS "r+b" #define NOWRITE_FOPENFLAGS "rb" #endif /* !USE_BFLAG */ /* * "sync" (flush) xdr stream. */ int NCxdrfile_sync(xdrs) XDR *xdrs; { /* assumes xdrstdio, violates layering */ FILE *fp = (FILE *)xdrs->x_private ; if(fflush(fp) == 0) return 0 ; /* success */ /* else, failure */ return -1 ; } int NCxdrfile_create(xdrs, path, ncmode) XDR *xdrs ; const char *path ; int ncmode ; { char *fmode ; FILE *fp ; enum xdr_op op ; switch(ncmode & 0x0f) { case NC_NOCLOBBER : if( access(path, F_OK) != -1 ) { NCadvise(NC_EEXIST, "\"%s\": File exists", path) ; return(-1) ; } /* fall into */ case NC_CLOBBER : fmode = CREAT_FOPENFLAGS ; break ; case NC_WRITE : fmode = WRITE_FOPENFLAGS ; break ; case NC_NOWRITE : fmode = NOWRITE_FOPENFLAGS ; break ; default: NCadvise(NC_EINVAL, "Bad flag %0x", ncmode & 0x0f) ; return(-1) ; } #ifdef DOS_FS /* * set default mode to binary to suppress the expansion of * 0x0f into CRLF */ if(_fmode != O_BINARY) _fmode = O_BINARY ; #endif fp = fopen(path, fmode) ; if( fp == NULL ) { nc_serror("filename \"%s\"", path) ; return(-1) ; } /* else */ if( ncmode & NC_CREAT ) { op = XDR_ENCODE ; } else { op = XDR_DECODE ; } #ifndef USE_XDRNCSTDIO xdrstdio_create(xdrs, fp, op) ; xdrs->x_ops->x_destroy = xdrNCstdio_destroy ; xdrs->x_ops->x_setpostn = xdrNCstdio_setpos ; #else xdrNCstdio_create(xdrs, fp, op) ; #endif return fileno(fp) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/var.c0000644000000000000000000005041112421456623014405 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: var.c 5981 2013-12-16 16:27:16Z bmribler $ */ #include #include "local_nc.h" #include "alloc.h" #ifdef NOT_USED static int ncvarcpy(int, int, int); #endif /* NOT_USED */ NC_var * NC_new_var(name,type,ndims,dims) const char *name ; nc_type type ; int ndims ; const int *dims ; { NC_var *ret ; ret = (NC_var *)HDcalloc(1,sizeof(NC_var)) ; if( ret == NULL ) goto alloc_err ; ret->name = NC_new_string((unsigned)strlen(name),name) ; if( ret->name == NULL) goto alloc_err ; ret->assoc = NC_new_iarray((unsigned)ndims, dims) ; if( ret->assoc == NULL) goto alloc_err ; ret->shape = NULL ; ret->dsizes = NULL ; ret->attrs = NULL ; ret->type = type ; ret->len = 0 ; ret->szof = NC_typelen(type) ; ret->begin = 0 ; #ifdef HDF ret->vgid = 0; ret->data_ref = 0; ret->data_tag = DATA_TAG; /* Assume normal data unless set */ ret->data_offset = 0; /* Assume data starts at beginning */ ret->block_size = -1; /* start off with no block size set */ ret->numrecs = 0; /* Only used in unlimited dimension case */ ret->aid = FAIL; ret->ndg_ref = 0; ret->var_type = UNKNOWN; /* Unknown whether this var is an SDS or a coord var */ ret->HDFtype = hdf_map_type(type); ret->HDFsize = DFKNTsize(ret->HDFtype); ret->is_ragged = FALSE; ret->created = FALSE; /* This is set in SDcreate() if it's a new SDS */ ret->set_length = FALSE; /* This is set in SDwritedata() if the data needs its length set */ #endif return(ret) ; alloc_err : nc_serror("NC_new_var") ; return(NULL) ; } /* * Free var * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ intn NC_free_var(var) NC_var *var ; { intn ret_value = SUCCEED; if(var != NULL) { if (NC_free_string(var->name) == FAIL) { ret_value = FAIL; goto done; } if (NC_free_iarray(var->assoc) == FAIL) { ret_value = FAIL; goto done; } if(var->shape != NULL) Free(var->shape) ; if(var->dsizes != NULL) Free(var->dsizes) ; if (NC_free_array(var->attrs) == FAIL) { ret_value = FAIL; goto done; } Free(var) ; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* * 'compile' the shape and len of a variable * return -1 on error */ #ifndef HDF static #endif int NC_var_shape(var, dims) NC_var *var ; NC_array *dims; { unsigned long *shape, *dsizes ; int ii ; unsigned long *shp, *dsp, *op ; int *ip ; NC_dim **dp ; size_t xszof ; #ifdef HDF xszof = var->HDFsize ; #else xszof = NC_xtypelen(var->type) ; #endif /* Fixed memory leaks reported in bug# 418. BMR - Apr 8, 01 */ /* * Allocate the shape array */ ii = var->assoc->count ; if(ii == 0) { /* scalar var, len == szof */ var->len = xszof ; goto out ; } shape = (unsigned long *)HDmalloc(ii * sizeof(unsigned long)) ; if(shape == NULL) { nc_serror("NC_var_shape") ; return(-1) ; } /* * use the user supplied dimension indices * to determine the shape */ for(ip = var->assoc->values, op = shape ; ii > 0 ; ii--) { if(*ip < 0 || *ip >= ((dims != NULL) ? dims->count : 1) ) { NCadvise(NC_EBADDIM, "Bad dimension id %d", *ip) ; Free(shape) ; return(-1) ; } dp = (NC_dim **)dims->values + *ip ; *op = (*dp)->size ; if(*op == NC_UNLIMITED && ii != var->assoc->count ) { NCadvise(NC_EUNLIMPOS, "NC_UNLIMITED size applied to index other than 0 %d", var->assoc->count - ii) ; Free(shape) ; return(-1) ; } op++ ; ip++ ; } /* Free memory if this var already has shape previously allocated */ if(var->shape != NULL) Free(var->shape); var->shape = shape ; /* * Allocate the dsizes array */ ii = var->assoc->count ; dsizes = (unsigned long *)HDmalloc(ii * sizeof(unsigned long)) ; if(dsizes == NULL) { Free(shape) ; var->shape = NULL; nc_serror("NC_var_shape") ; return(-1) ; } /* Free memory if this var already has dsizes previously allocated */ if(var->dsizes != NULL) Free(var->dsizes); var->dsizes = dsizes ; /* * Compute var->len and the dsizes */ shp = shape + var->assoc->count - 1 ; /* count is > 0 here */ dsp = dsizes + var->assoc->count - 1 ; var->len = (*shp) ? (*shp) : 1 ; /* boundary condition for rec */ var->len = var->len * xszof ; if(dsp != NULL) *dsp = xszof ; for( shp--, dsp-- ; shp >= shape ; shp--,dsp--) { *dsp = var->len ; if(shp != shape || *shp ) /* include last mult for non-rec vars */ var->len *= *shp ; } out : /* don't round-up for HDF-encoded files */ #ifdef HDF if (var->cdf->file_type != HDF_FILE) #endif switch(var->type) { case NC_BYTE : case NC_CHAR : case NC_SHORT : if( var->len%4 != 0 ) { var->len += 4 - var->len%4 ; /* round up */ /* *dsp += 4 - *dsp%4 ; */ } default: break; } #if 0 NCadvise(NC_NOERR, "%s var->len %d, var->szof %d", var->name->values, var->len, var->szof) ; arrayp("\tshape", var->assoc->count, var->shape) ; arrayp("\tdsizes", var->assoc->count, var->dsizes) ; #endif return(var->assoc->count) ; } int ncvardef(cdfid, name, type, ndims, dims) int cdfid ; const char *name ; nc_type type ; int ndims ; const int dims[] ; { NC *handle ; NC_var *var[1] ; NC_var **dp ; int ii ; int len ; cdf_routine_name = "ncvardef" ; if( !NC_indefine(cdfid,TRUE) ) return(-1) ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!NCcktype(type)) return(-1) ; if(ndims < 0) /* 0 => scalar */ { NCadvise(NC_EINVAL, "Number of dimensions %d < 0", ndims) ; return(-1) ; } if(ndims > 0 ) { if(handle->dims == NULL || ndims > handle->dims->count ) { NCadvise(NC_EINVAL, "Invalid number of dimensions %d > %d", ndims, (handle->dims != NULL) ? handle->dims->count : 0) ; return(-1) ; } } if(handle->vars == NULL) /* first time */ { var[0] = NC_new_var(name,type,ndims,dims) ; if(var[0] == NULL) return(-1) ; handle->vars = NC_new_array(NC_VARIABLE,(unsigned)1, (Void *)var) ; if(handle->vars == NULL) return(-1) ; } else if(handle->vars->count >= H4_MAX_NC_VARS) { NCadvise(NC_EMAXVARS, "maximum number of variables %d exceeded", handle->vars->count ) ; return(-1) ; } else { /* check for name in use */ len = strlen(name) ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(name, (*dp)->name->values, len) == 0) { NCadvise(NC_ENAMEINUSE, "variable \"%s\" in use with index %d", (*dp)->name->values, ii) ; return(-1) ; } } var[0] = NC_new_var(name,type,ndims,dims) ; if(var[0] == NULL) return(-1) ; if( NC_incr_array(handle->vars, (Void *)var) == NULL) return(-1) ; } #ifdef HDF (*var)->cdf = handle; /* for NC_var_shape */ #endif if( NC_var_shape(*var, handle->dims) != -1) { #ifdef HDF #ifdef NOT_YET (*var)->ndg_ref = Htagnewref(handle->hdf_file,DFTAG_NDG); #else /* NOT_YET */ (*var)->ndg_ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ #endif return(handle->vars->count -1) ; } /* unwind */ handle->vars->count-- ; NC_free_var(var[0]) ; return(-1) ; } /* * Recompute the shapes of all variables * Sets handle->begin_rec to start of first record variable * returns -1 on error */ int NC_computeshapes( handle ) NC *handle ; { NC_var **vbase, **vpp ; NC_var *first = NULL ; handle->begin_rec = 0 ; handle->recsize = 0 ; if(handle->vars == NULL) return(0) ; vbase = (NC_var **)handle->vars->values ; for( vpp = vbase ; vpp < &vbase[handle->vars->count] ; vpp ++) { #ifdef HDF (*vpp)->cdf= handle; #endif if( NC_var_shape(*vpp, handle->dims) == -1) return(-1) ; if(IS_RECVAR(*vpp)) { if(first == NULL) first = *vpp ; handle->recsize += (*vpp)->len ; } } if(first != NULL) { handle->begin_rec = first->begin ; /* * for special case of exactly one record variable, pack values */ if(handle->recsize == first->len) handle->recsize = *first->dsizes ; } return(handle->vars->count) ; } int ncvarid( cdfid, name) int cdfid ; const char *name ; { NC *handle ; NC_var **dp ; int ii ; int len ; cdf_routine_name = "ncvarid" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(handle->vars == NULL) return(-1) ; len = strlen(name) ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if( len == (*dp)->name->len && strncmp(name, (*dp)->name->values, len) == 0) { return(ii) ; } } NCadvise(NC_ENOTVAR, "variable \"%s\" not found", name) ; return(-1) ; } /* * Given valid handle and varid, return var * else NULL on error */ NC_var * NC_hlookupvar( handle, varid ) NC *handle ; int varid ; { NC_array **ap ; if(varid == NC_GLOBAL) /* Global is error in this context */ { return(NULL) ; }else if(handle->vars != NULL && varid >= 0 && varid < handle->vars->count) { ap = (NC_array **)handle->vars->values ; ap += varid ; } else { NCadvise(NC_ENOTVAR, "%d is not a valid variable id", varid) ; return( NULL ) ; } return((NC_var *)*ap) ; } /* * Given cdfid and varid, return var * else NULL on error */ static NC_var * NC_lookupvar( cdfid, varid ) int cdfid ; int varid ; { NC *handle ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(NULL) ; return(NC_hlookupvar(handle,varid)) ; } int ncvarinq( cdfid, varid, name, typep, ndimsp, dims, nattrsp) int cdfid ; int varid ; char *name ; nc_type *typep ; int *ndimsp ; int dims[] ; int *nattrsp ; { NC_var *vp ; int ii ; cdf_routine_name = "ncvarinq" ; vp = NC_lookupvar( cdfid, varid ) ; if(vp == NULL) return(-1) ; if(name != NULL) { #ifdef HDF (void)memcpy( name, vp->name->values, vp->name->len) ; #else (void)strncpy( name, vp->name->values, vp->name->len) ; #endif name[vp->name->len] = 0 ; } if(typep != NULL) *typep = vp->type ; if(ndimsp != NULL) { *ndimsp = vp->assoc->count ; } if(dims != NULL) { for(ii = 0 ; ii < vp->assoc->count ; ii++) { dims[ii] = vp->assoc->values[ii] ; } } if(nattrsp != NULL) { if( vp->attrs != NULL) { *nattrsp = vp->attrs->count ; } else { *nattrsp = 0 ; } } return(varid) ; } int ncvarrename(cdfid, varid, newname) int cdfid ; int varid ; const char *newname ; { NC *handle ; NC_var **vpp ; int ii ; int len ; NC_string *old, *new ; cdf_routine_name = "ncvarrename" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) return(-1) ; /* check for name in use */ len = strlen(newname) ; vpp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, vpp++) { if( len == (*vpp)->name->len && strncmp(newname, (*vpp)->name->values, len) == 0) { NCadvise(NC_ENAMEINUSE, "variable name \"%s\" in use with index %d", (*vpp)->name->values, ii) ; return(-1) ; } } if(varid == NC_GLOBAL) /* Global is error in this context */ { NCadvise(NC_EGLOBAL, "action prohibited on NC_GLOBAL varid") ; return(-1) ; }else if(handle->vars != NULL && varid >= 0 && varid < handle->vars->count) { vpp = (NC_var **)handle->vars->values ; vpp += varid ; } else { NCadvise(NC_ENOTVAR, "%d is not a valid variable id", varid) ; return( -1 ) ; } old = (*vpp)->name ; if( NC_indefine(cdfid,TRUE) ) { new = NC_new_string((unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; (*vpp)->name = new ; NC_free_string(old) ; return(varid) ; } /* else */ new = NC_re_string(old, (unsigned)strlen(newname),newname) ; if( new == NULL) return(-1) ; if(handle->flags & NC_HSYNC) { handle->xdrs->x_op = XDR_ENCODE ; if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else handle->flags |= NC_HDIRTY ; return(varid) ; } #ifdef NOT_USED /* * Given valid handle, name string, and length of the name, get a var. * else NULL on error */ static NC_var * NC_hvarid(handle, name, namelen) NC *handle ; const char *name ; int namelen ; { NC_var **dp ; int ii ; if(handle->vars == NULL) return NULL ; dp = (NC_var**)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, dp++) { if( namelen == (*dp)->name->len && strncmp(name, (*dp)->name->values, namelen) == 0) { return(*dp) ; /* normal exit */ } } return NULL ; /* not found */ } /* * Copy the values of a variable from an input netCDF to an output netCDF. * Input and output var assummed to have the same shape. * return -1 on error. * * This function added to support the netcdf operators. The interface * is not documented. We plan to supercede it with something more * general in a future release. */ static int ncvarcpy(incdf, varid, outcdf) int incdf; int varid; int outcdf; { NC *inhandle, *outhandle ; NC_var *invp, *outvp ; int ndims ; int ii ; cdf_routine_name = "ncvarcpy" ; inhandle = NC_check_id(incdf) ; if(inhandle == NULL) return(-1) ; if(inhandle->flags & NC_INDEF) { NCadvise(NC_EINDEFINE, "%s in define mode.", inhandle->path) ; return(-1) ; } outhandle = NC_check_id(outcdf) ; if(outhandle == NULL) return(-1) ; if(!(outhandle->flags & NC_RDWR)) { /* output file isn't writable */ NCadvise(NC_EPERM, "%s is not writable", outhandle->path) ; return -1 ; } if(outhandle->flags & NC_INDEF) { NCadvise(NC_EINDEFINE, "%s in define mode.", outhandle->path) ; return(-1) ; } /* find the variable in the input cdf */ if(inhandle->vars == NULL || (invp = NC_hlookupvar(inhandle, varid )) == NULL) { NCadvise(NC_ENOTVAR, "%s: varid %d not found", inhandle->path, varid) ; return(-1) ; } /* find the variable in the output cdf */ outvp = NC_hvarid(outhandle, invp->name->values, invp->name->len) ; if(outvp == NULL) { NCadvise(NC_ENOTVAR, "%s: variable %s not found", outhandle->path, invp->name->values) ; return(-1) ; } /* can we even attempt to copy without conversion? */ if(outvp->type != invp->type) { NCadvise(NC_EINVAL, "Input and output variables must be same type") ; return -1 ; } ndims = invp->assoc->count ; if (ndims == 0) { /* special case scalar vars */ if(outvp->assoc->count != 0) { NCadvise(NC_EINVAL, "Input and output variables must be same shape") ; return -1 ; } } else { long end[H4_MAX_VAR_DIMS] ; memcpy(end, invp->shape, ndims * sizeof(unsigned long)) ; if(IS_RECVAR(invp)) { /* assert(*end == 0) ; */ *end = inhandle->numrecs ; } for(ii = 0 ; ii < ndims ; ii++) end[ii] -- ; /* at this point, end is the largest valid coord of invp */ if( !NCcoordck(outhandle, outvp, end) ) { NCadvise(NC_EINVAL, "Input and output variables not conformable") ; return -1 ; } /* Fill is side effect of NCcoordck */ } /* four cases, really not neccessary here, left for future generalization */ if(IS_RECVAR(invp)) { if(IS_RECVAR(outvp)) { long outoff, inoff ; /* both input and output are rec vars */ /* check that input fits in output. (per record) */ if(invp->len > outvp->len) { NCadvise(NC_EINVALCOORDS, "Output var smaller than input") ; return -1 ; } /* copy the data */ outoff = outhandle->begin_rec + outvp->begin ; inoff = inhandle->begin_rec + invp->begin ; outhandle->flags |= NC_NDIRTY ; for(ii=0 ; ii < inhandle->numrecs ; ii++) { if(!xdr_setpos(outhandle->xdrs, outoff)) { NCadvise(NC_EXDR, "%s: xdr_setpos", outhandle->path) ; return -1 ; } if(!xdr_setpos(inhandle->xdrs, inoff)) { NCadvise(NC_EXDR, "%s: xdr_setpos", inhandle->path) ; return -1 ; } /* copy data */ if(!NC_dcpy(outhandle->xdrs, inhandle->xdrs, invp->len)) return(-1) ; outoff += outhandle->recsize ; inoff += inhandle->recsize ; } } else { NCadvise(NC_EINVAL, "Input and output variables must be same shape") ; return -1 ; } } else { if(IS_RECVAR(outvp)) { /* input not rec var, output is rec var */ NCadvise(NC_EINVAL, "Input and output variables must be same shape") ; return -1 ; } else { /* both input and output are not rec vars */ /* check that input fits in output. */ if(invp->len > outvp->len) { NCadvise(NC_EINVALCOORDS, "Output var smaller than input") ; return -1 ; } if(!xdr_setpos(outhandle->xdrs, outvp->begin)) { NCadvise(NC_EXDR, "%s: xdr_setpos", outhandle->path) ; return -1 ; } if(!xdr_setpos(inhandle->xdrs, invp->begin)) { NCadvise(NC_EXDR, "%s: xdr_setpos", inhandle->path) ; return -1 ; } /* copy data */ outhandle->flags |= NC_NDIRTY ; if(!NC_dcpy(outhandle->xdrs, inhandle->xdrs, invp->len)) return(-1) ; } } return 0 ; } #endif /* NOT_USED */ bool_t xdr_NC_var(xdrs, vpp) XDR *xdrs; NC_var **vpp; { u_long begin ; if( xdrs->x_op == XDR_FREE) { NC_free_var((*vpp)) ; return(TRUE) ; } if( xdrs->x_op == XDR_DECODE ) { *vpp = (NC_var *)HDcalloc(1,sizeof(NC_var)) ; if( *vpp == NULL ) { nc_serror("xdr_NC_var") ; return(FALSE) ; } } if( !xdr_NC_string(xdrs, &((*vpp)->name))) return(FALSE) ; if( !xdr_NC_iarray(xdrs, &((*vpp)->assoc))) return(FALSE) ; if( !xdr_NC_array(xdrs, &((*vpp)->attrs))) return(FALSE) ; #ifdef USE_ENUM if (! xdr_enum(xdrs, (enum_t *)&((*vpp)->type)) ) { return (FALSE); } #else if (! xdr_int(xdrs, &((*vpp)->type)) ) { return (FALSE); } #endif if (! xdr_u_long(xdrs, &((*vpp)->len)) ) { return (FALSE); } if( xdrs->x_op == XDR_DECODE ) (*vpp)->szof = NC_typelen((*vpp)->type) ; if( xdrs->x_op == XDR_ENCODE ) begin = (*vpp)->begin ; if (! xdr_u_long(xdrs, &begin)) return (FALSE); if( xdrs->x_op == XDR_DECODE ) (*vpp)->begin = begin ; #ifdef HDF if( xdrs->x_op == XDR_DECODE ) { (*vpp)->HDFtype = hdf_map_type((*vpp)->type); (*vpp)->HDFsize = DFKNTsize((*vpp)->HDFtype); (*vpp)->aid = FAIL; (*vpp)->is_ragged = FALSE; } #endif return( TRUE ) ; } /* * How much space will the xdr'd var take. * */ int NC_xlen_var(vpp) NC_var **vpp ; { int len ; if(*vpp == NULL) return(4) ; len = NC_xlen_string((*vpp)->name) ; len += NC_xlen_iarray((*vpp)->assoc) ; len += NC_xlen_array((*vpp)->attrs) ; len += 12 ; return(len) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfhdf.h0000644000000000000000000004220212421456623014705 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: mfhdf.h 6031 2014-01-17 05:54:32Z bmribler $ */ #ifndef _MFSD_H_ #define _MFSD_H_ #ifndef HDF #define HDF 1 #endif #include "H4api_adpt.h" /* change this back if it causes problems on other machines than the Alhpa-QAK */ /* Reverse back to the previous way. AKC */ #include "hdf.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #else #include "hdf4_netcdf.h" #endif #ifdef OLD_WAY #include "local_nc.h" #endif /* OLD_WAY */ #include "mfhdfi.h" #include "mfdatainfo.h" #define SD_UNLIMITED NC_UNLIMITED /* use this as marker for unlimited dimension */ #define SD_NOFILL NC_NOFILL #define SD_FILL NC_FILL #define SD_DIMVAL_BW_COMP 1 #define SD_DIMVAL_BW_INCOMP 0 #define SD_RAGGED -1 /* marker for ragged dimension */ /* used to indicate the type of the variable at an index */ typedef struct hdf_varlist { int32 var_index; /* index of the current variable */ hdf_vartype_t var_type; /* type of a variable (IS_SDSVAR, IS_CRDVAR, or UNKNOWN */ } hdf_varlist_t; /* enumerated types for various types of ids in SD interface */ typedef enum { NOT_SDAPI_ID = -1, /* not an SD API id */ SD_ID = 0, /* SD id */ SDS_ID, /* SDS id */ DIM_ID /* Dimension id */ } hdf_idtype_t; #ifdef __cplusplus extern "C" { #endif HDFLIBAPI int32 SDstart (const char *name, int32 accs); HDFLIBAPI intn SDend (int32 fid); HDFLIBAPI intn SDfileinfo (int32 fid, int32 *datasets, int32 *attrs); HDFLIBAPI int32 SDselect (int32 fid, int32 idx); HDFLIBAPI intn SDgetinfo (int32 sdsid, char *name, int32 *rank, int32 *dimsizes, int32 *nt, int32 *nattr); #ifndef __CSTAR__ HDFLIBAPI intn SDreaddata (int32 sdsid, int32 *start, int32 *stride, int32 *end, void * data); #endif HDFLIBAPI uint16 SDgerefnumber (int32 sdsid); HDFLIBAPI int32 SDnametoindex (int32 fid, const char *name); HDFLIBAPI intn SDnametoindices (int32 fid, const char *name, hdf_varlist_t *var_list); HDFLIBAPI intn SDgetnumvars_byname (int32 fid, const char *name, int32 *n_vars); HDFLIBAPI intn SDgetrange (int32 sdsid, void * pmax, void * pmin); HDFLIBAPI int32 SDcreate (int32 fid, const char *name, int32 nt, int32 rank, int32 *dimsizes); HDFLIBAPI int32 SDgetdimid (int32 sdsid, intn number); HDFLIBAPI intn SDsetdimname (int32 id, const char *name); HDFLIBAPI intn SDendaccess (int32 id); HDFLIBAPI intn SDsetrange (int32 sdsid, void * pmax, void * pmin); HDFLIBAPI intn SDsetattr (int32 id, const char *name, int32 nt, int32 count, const void * data); HDFLIBAPI intn SDattrinfo (int32 id, int32 idx, char *name, int32 *nt, int32 *count); HDFLIBAPI intn SDreadattr (int32 id, int32 idx, void * buf); #ifndef __CSTAR__ HDFLIBAPI intn SDwritedata (int32 sdsid, int32 *start, int32 *stride, int32 *end, void * data); #endif HDFLIBAPI intn SDsetdatastrs (int32 sdsid, const char *l, const char *u, const char *f, const char *c); HDFLIBAPI intn SDsetcal (int32 sdsid, float64 cal, float64 cale, float64 ioff, float64 ioffe, int32 nt); HDFLIBAPI intn SDsetfillvalue (int32 sdsid, void * val); HDFLIBAPI intn SDgetfillvalue (int32 sdsid, void * val); HDFLIBAPI intn SDsetfillmode (int32 id, intn fillmode); HDFLIBAPI intn SDgetdatastrs (int32 sdsid, char *l, char *u, char *f, char *c, intn len); HDFLIBAPI intn SDgetcal (int32 sdsid, float64 *cal, float64 *cale, float64 *ioff, float64 *ioffe, int32 *nt); HDFLIBAPI intn SDsetdimstrs (int32 id, const char *l, const char *u, const char *f); HDFLIBAPI intn SDsetdimscale (int32 id, int32 count, int32 nt, void * data); HDFLIBAPI intn SDgetdimscale (int32 id, void * data); HDFLIBAPI intn SDdiminfo (int32 id, char *name, int32 *size, int32 *nt, int32 *nattr); HDFLIBAPI intn SDgetdimstrs (int32 id, char *l, char *u, char *f, intn len); HDFLIBAPI intn SDgetexternalfile (int32 id, intn buf_size, char *ext_filename, int32 *offset); HDFLIBAPI intn SDgetexternalinfo (int32 id, uintn buf_size, char *ext_filename, int32 *offset, int32 *length); HDFLIBAPI intn SDsetexternalfile (int32 id, const char *filename, int32 offset); HDFLIBAPI intn SDsetnbitdataset (int32 id, intn start_bit, intn bit_len, intn sign_ext, intn fill_one); HDFLIBAPI intn SDsetcompress (int32 id, comp_coder_t type, comp_info *c_info); HDFLIBAPI intn SDgetcompress (int32 id, comp_coder_t* type, comp_info *c_info); HDFLIBAPI intn SDgetcompinfo (int32 id, comp_coder_t* type, comp_info *c_info); HDFLIBAPI intn SDgetcomptype (int32 id, comp_coder_t* type); HDFLIBAPI int32 SDfindattr (int32 id, const char *attrname); HDFLIBAPI int32 SDidtoref (int32 id); HDFLIBAPI int32 SDreftoindex (int32 fid, int32 ref); HDFLIBAPI int32 SDisrecord (int32 id); HDFLIBAPI intn SDiscoordvar (int32 id); HDFLIBAPI intn SDsetaccesstype (int32 id, uintn accesstype); HDFLIBAPI intn SDsetblocksize (int32 sdsid, int32 block_size); HDFLIBAPI intn SDgetblocksize (int32 sdsid, int32 *block_size); HDFLIBAPI intn SDsetdimval_comp (int32 dimid, intn compt_mode); HDFLIBAPI intn SDisdimval_bwcomp (int32 dimid); HDFLIBAPI int32 SDcheckempty (int32 sdsid, intn *emptySDS); HDFLIBAPI hdf_idtype_t SDidtype (int32 an_id); HDFLIBAPI intn SDreset_maxopenfiles (intn req_max); HDFLIBAPI intn SDget_maxopenfiles (intn *curr_max, intn *sys_limit); HDFLIBAPI intn SDget_numopenfiles (); HDFLIBAPI intn SDgetdatasize (int32 sdsid, int32 *comp_size, int32 *uncomp_size); HDFLIBAPI intn SDgetfilename (int32 fid, char *filename); HDFLIBAPI intn SDgetnamelen (int32 sdsid, uint16 *name_len); /*====================== Chunking Routines ================================*/ /* For defintion of HDF_CHUNK_DEF union see hproto.h since this defintion is also used by GRs. */ /****************************************************************************** NAME SDsetchunk -- make SDS a chunked SDS DESCRIPTION This routine makes the SDS a chunked SDS according to the chunk definition passed in. The dataset currently cannot be special already. i.e. NBIT, COMPRESSED, or EXTERNAL. This is an Error. The defintion of the HDF_CHUNK_DEF union with relvant fields is: typedef union hdf_chunk_def_u { int32 chunk_lengths[H4_MAX_VAR_DIMS]; Chunk lengths along each dimension struct { int32 chunk_lengths[H4_MAX_VAR_DIMS]; Chunk lengths along each dimension int32 comp_type; Compression type comp_info cinfo; Compression info struct }comp; } HDF_CHUNK_DEF The simplist is the 'chunk_lengths' array specifiying chunk lengths for each dimension where the 'flags' argument set to 'HDF_CHUNK'; COMPRESSION is set by using the 'HDF_CHUNK_DEF' structure to set the appropriate compression information along with the required chunk lengths for each dimension. The compression information is the same as that set in 'SDsetcompress()'. The bit-or'd'flags' argument' is set to 'HDF_CHUNK | HDF_COMP'. See the example in pseudo-C below for further usage. The maximum number of Chunks in an HDF file is 65,535. The dataset currently cannot have an UNLIMITED dimension. The performance of the SDxxx interface with chunking is greatly affected by the users access pattern over the dataset and by the maximum number of chunks set in the chunk cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. See the routine SDsetchunkcache() for further info on the chunk cache and how to set the maximum number of chunks in the chunk cache. A default chunk cache is always created. The following example shows the organization of chunks for a 2D array. e.g. 4x4 array with 2x2 chunks. The array shows the layout of chunks in the chunk array. 4 --------------------- | | | Y | (0,1) | (1,1) | ^ | | | | 2 --------------------- | | | | | | (0,0) | (1,0) | | | | | | --------------------- | 0 2 4 ---------------> X --Without compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set Chunking -- SDsetchunk(sdsid, chunk_def, HDF_CHUNK); ...... } --With compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths first -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set compression -- chunk_def.comp.cinfo.deflate.level = 9; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; -- Set Chunking with Compression -- SDsetchunk(sdsid, chunk_def, HDF_CHUNK | HDF_COMP); ...... } RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn SDsetchunk (int32 sdsid, /* IN: sds access id */ HDF_CHUNK_DEF chunk_def, /* IN: chunk definition */ int32 flags /* IN: flags */); /****************************************************************************** NAME SDgetchunkinfo -- get Info on SDS DESCRIPTION This routine gets any special information on the SDS. If its chunked, chunked and compressed or just a regular SDS. Currently it will only fill the array of chunk lengths for each dimension as specified in the 'HDF_CHUNK_DEF' union. It does not tell you the type of compression used or the compression parameters. You can pass in a NULL for 'chunk_def' if don't want the chunk lengths for each dimension. Additionaly if successfull it will return a bit-or'd value in 'flags' indicating if the SDS is: Chunked -> flags = HDF_CHUNK Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP Non-chunked -> flags = HDF_NONE e.g. 4x4 array - Pseudo-C { int32 rcdims[3]; HDF_CHUNK_DEF rchunk_def; int32 cflags; ... rchunk_def.chunk_lengths = rcdims; SDgetchunkinfo(sdsid, &rchunk_def, &cflags); ... } RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn SDgetchunkinfo (int32 sdsid, /* IN: sds access id */ HDF_CHUNK_DEF *chunk_def, /* IN/OUT: chunk definition */ int32 *flags /* IN/OUT: flags */); /****************************************************************************** NAME SDwritechunk -- write the specified chunk to the SDS DESCRIPTION This routine writes a whole chunk of data to the chunked SDS specified by chunk 'origin' for the given SDS and can be used instead of SDwritedata() when this information is known. This routine has less overhead and is much faster than using SDwritedata(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See SDsetchunk() for a description of the organization of chunks in an SDS. RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn SDwritechunk (int32 sdsid, /* IN: sds access id */ int32 *origin, /* IN: origin of chunk to write */ const void *datap /* IN: buffer for data */); /****************************************************************************** NAME SDreadchunk -- read the specified chunk to the SDS DESCRIPTION This routine reads a whole chunk of data from the chunked SDS specified by chunk 'origin' for the given SDS and can be used instead of SDreaddata() when this information is known. This routine has less overhead and is much faster than using SDreaddata(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See SDsetchunk() for a description of the organization of chunks in an SDS. RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn SDreadchunk (int32 sdsid, /* IN: sds access id */ int32 *origin, /* IN: origin of chunk to read */ void *datap /* IN/OUT: buffer for data */); /****************************************************************************** NAME SDsetchunkcache -- maximum number of chunks to cache DESCRIPTION Set the maximum number of chunks to cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. This routine allows the setting of maximum number of chunks that can be cached, 'maxcache'. The performance of the SDxxx interface with chunking is greatly affected by the users access pattern over the dataset and by the maximum number of chunks set in the chunk cache. The number chunks that can be set in the cache is process memory limited. It is a good idea to always set the maximum number of chunks in the cache as the default heuristic does not take into account the memory available for the application. By default when the SDS is promoted to a chunked element the maximum number of chunks in the cache 'maxcache' is set to the number of chunks along the last dimension. The values set here affects the current object's caching behaviour. If the chunk cache is full and 'maxcache' is greater then the current 'maxcache' value, then the chunk cache is reset to the new 'maxcache' value, else the chunk cache remains at the current 'maxcache' value. If the chunk cache is not full, then the chunk cache is set to the new 'maxcache' value only if the new 'maxcache' value is greater than the current number of chunks in the cache. Use flags argument of 'HDF_CACHEALL' if the whole object is to be cached in memory, otherwise pass in zero(0). Currently you can only pass in zero. See SDsetchunk() for a description of the organization of chunks in an SDS. RETURNS Returns the 'maxcache' value for the chunk cache if successful and FAIL otherwise ******************************************************************************/ HDFLIBAPI intn SDsetchunkcache (int32 sdsid, /* IN: sds access id */ int32 maxcache, /* IN: max number of chunks to cache */ int32 flags /* IN: flags = 0, HDF_CACHEALL */); #ifdef __cplusplus } #endif #endif /* _MFSD_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfdatainfo.h0000644000000000000000000000366612421456623015744 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifndef MFDATAINFO_H #define MFDATAINFO_H #include "H4api_adpt.h" /* Activate raw datainfo interface - added for hmap project in 2010 */ #if defined DATAINFO_MASTER || defined DATAINFO_TESTER #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* Public functions for getting raw data information */ HDFLIBAPI intn SDgetdatainfo (int32 sdsid, int32 *chk_coord, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray); HDFLIBAPI intn SDgetattdatainfo (int32 id, int32 attrindex, int32 *offset, int32 *length); HDFLIBAPI intn SDgetoldattdatainfo (int32 dimid, int32 sdsid, char *attr_name, int32 *offset, int32 *length); HDFLIBAPI intn SDgetanndatainfo (int32 sdsid, ann_type annot_type, uintn size, int32* offsetarray, int32* lengtharray); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* DATAINFO_MASTER || DATAINFO_TESTER */ #endif /* _MF_DATAINFO */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/cdf.c0000644000000000000000000032517012421456623014360 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cdf.c 6032 2014-01-17 18:13:52Z acheng $ */ #include "local_nc.h" #include "alloc.h" #ifdef HDF #include "hfile.h" extern intn hdf_xdr_cdf PROTO((XDR *xdrs, NC**handlep)); /* A couple of local prototypes to HDF section*/ intn hdf_cdf_clobber(NC *handle); intn hdf_close(NC *handle); static intn hdf_num_attrs(NC *handle,/* IN: handle to SDS */ int32 vg /* IN: ref of top Vgroup */); #endif /* HDF */ static bool_t NC_xdr_cdf(XDR *xdrs, NC **handlep); static int NC_free_xcdf(NC *); /* hmm we write the NDG out always for now */ #define WRITE_NDG 1 /* Debugging: define for each function you want debugging printfs */ /* #define HDF_READ_VARS #define HDF_READ_ATTRS #define HDF_NUM_ATTRS #define HDF_XDR_CDF #define HDF_VG_CLOBBER #define HDF_CDF_CLOBBER #define HDF_CLOSE */ /* * Free the resources that xdr_cdf allocates * * NOTE: Modified to return SUCCEED / FAIL and to catch errors * -GV 9/16/97 */ static int NC_free_xcdf(handle) NC *handle ; { int ret_value = SUCCEED; if(handle != NULL) { if (NC_free_array(handle->dims) == FAIL) { ret_value = FAIL; goto done; } if (NC_free_array(handle->attrs) == FAIL) { ret_value = FAIL; goto done; } if (NC_free_array(handle->vars) ==FAIL) { ret_value = FAIL; goto done; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* * NOTE: Modified to return SUCCEED / FAIL and to catch errors * -GV 9/16/97 */ int NC_free_cdf(handle) NC *handle ; { int ret_value = SUCCEED; if(handle != NULL) { if (NC_free_xcdf(handle) == FAIL) { ret_value = FAIL; goto done; } /* destroy xdr struct */ xdr_destroy(handle->xdrs); Free(handle->xdrs); #ifdef HDF if(handle->file_type == HDF_FILE) { if (Vend(handle->hdf_file) == FAIL) { ret_value = FAIL; goto done; } if (Hclose(handle->hdf_file) == FAIL) { ret_value = FAIL; goto done; } } #endif /* HDF */ Free(handle); } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } #ifdef HDF /******************************************************************************/ /* From NASA CDF Source */ #define V2_MAGIC_NUMBER 0x0000FFFF /* Written twice at the beginning of file */ #define V2_MAGIC_OFFSET 0 /* -------------------------------- HDiscdf -------------------------------- */ /* Return TRUE/FALSE depending on if the given file is a NASA CDF file */ intn HDiscdf(filename) const char * filename; { static const char *FUNC = "HDiscdf"; hdf_file_t fp; uint8 b[4]; uint8 * bb = NULL; int32 magic_num; intn ret_value = TRUE; fp = (hdf_file_t)HI_OPEN(filename, DFACC_READ); if (OPENERR(fp)) { ret_value = FALSE; goto done; } else { if(HI_SEEK(fp, V2_MAGIC_OFFSET) == FAIL) { HERROR(DFE_SEEKERROR); ret_value = FALSE; goto done; } if(HI_READ(fp, b, 4) == FAIL) { HERROR(DFE_READERROR); ret_value = FALSE; goto done; } bb = &b[0]; INT32DECODE(bb, magic_num); if(magic_num == V2_MAGIC_NUMBER) ret_value = TRUE; else ret_value = FALSE; HI_CLOSE(fp); } done: if (ret_value == FALSE) { /* FALSE cleanup ?*/ } /* Normal cleanup */ return ret_value; } /* Model after HDiscdf */ /* -------------------------------- HDisnetcdf -------------------------------- */ /* Return TRUE if the given file is a netCDF file, FALSE otherwise. */ intn HDisnetcdf(filename) const char * filename; { static const char *FUNC = "HDisnetcdf"; hdf_file_t fp; uint8 b[4]; uint8 * bb = NULL; int32 magic_num; intn ret_value = TRUE; fp = (hdf_file_t)HI_OPEN(filename, DFACC_READ); if (OPENERR(fp)) { ret_value = FALSE; goto done; } else { if(HI_READ(fp, b, 4) == FAIL) { HERROR(DFE_READERROR); HI_CLOSE(fp); ret_value = FALSE; goto done; } bb = &b[0]; INT32DECODE(bb, magic_num); if(magic_num == NCMAGIC) ret_value = TRUE; else ret_value = FALSE; HI_CLOSE(fp); } done: if (ret_value == FALSE) { /* FALSE cleanup? */ } /* Normal cleanup */ return ret_value; } /******************************************************************************/ #endif /* HDF */ /* * NOTE: Cleaned up to catch errors - GV 9/19/97 */ NC * NC_new_cdf(name, mode) const char *name ; int mode ; { #ifdef HDF int32 hdf_mode = DFACC_RDWR; /* default */ #endif NC *cdf = NULL; static const char *FUNC = "NC_new_cdf"; NC *ret_value = NULL; /* allocate an NC struct */ cdf = (NC *)HDcalloc(1,sizeof(NC)) ; if( cdf == NULL ) { nc_serror("NC_new_cdf") ; ret_value = NULL; goto done; } cdf->flags = mode ; cdf->xdrs = (XDR *)HDmalloc(sizeof(XDR)) ; if( cdf->xdrs == NULL) { nc_serror("NC_new_cdf: xdrs") ; ret_value = NULL; goto done; } /* else */ #ifdef HDF /* * See what type of file we are looking at. * If we are creating a new file it will be an HDF file */ if(mode & NC_CREAT) { cdf->file_type = HDF_FILE; } else { if(Hishdf(name)) cdf->file_type = HDF_FILE; else if(HDiscdf(name)) cdf->file_type = CDF_FILE; else if(HDisnetcdf(name)) cdf->file_type = netCDF_FILE; else { ret_value = NULL; goto done; } #ifdef DEBUG if(cdf->file_type == CDF_FILE) printf("Yow! found a CDF file\n"); #endif } /* * Set up the XDR functions that some of the netCDF old code uses */ switch(cdf->file_type) { case HDF_FILE: hdf_xdrfile_create(cdf->xdrs, mode); /* return type is 'void' */ break; case netCDF_FILE: if( NCxdrfile_create( cdf->xdrs, name, mode ) < 0) { ret_value = NULL; goto done; } break; case CDF_FILE: /* CDF_xdrfile_create(); */ /* try this, I bet it will be sufficient */ hdf_xdrfile_create(cdf->xdrs, mode); break; } #else /* !HDF */ if( NCxdrfile_create( cdf->xdrs, name, mode ) < 0) { ret_value = NULL; goto done; } #endif /* !HDF */ cdf->dims = NULL ; cdf->attrs = NULL ; cdf->vars = NULL ; cdf->begin_rec = 0 ; cdf->recsize = 0 ; cdf->numrecs = 0 ; cdf->redefid = -1 ; #ifdef HDF /* * determine the HDF access mode */ switch(mode) { case NC_CLOBBER : hdf_mode = DFACC_CLOBBER; break; case NC_NOCLOBBER : /* will handle below */ break; case NC_WRITE : hdf_mode = DFACC_RDWR; break; case NC_NOWRITE : hdf_mode = DFACC_RDONLY; break; default: hdf_mode = DFACC_RDWR; } /* * Do file type specific setup */ switch(cdf->file_type) { case HDF_FILE: /* HDF stuff */ /* see if the file exists */ if(mode == NC_NOCLOBBER) { if((int) Hishdf(name)) { /* Need to free allocated structures. This will happen on failure cleanup. */ xdr_destroy(cdf->xdrs) ; /* destroy xdr struct first */ ret_value = NULL; goto done; } hdf_mode = DFACC_RDWR; } /* open the file */ cdf->hdf_file = (int32) Hopen(name, hdf_mode, 200); if(cdf->hdf_file == FAIL) { ret_value = NULL; goto done; } /* start Vxx access */ if (Vstart(cdf->hdf_file) == FAIL) { ret_value = NULL; goto done; } cdf->hdf_mode = hdf_mode; cdf->vgid = 0; /* invalid ref */ /* copy filename only up to its length instead of FILENAME_MAX as used to be */ HDstrncpy(cdf->path, name, strlen(name)+1); break; case netCDF_FILE: /* Nothing */ break; case CDF_FILE: #ifdef DEBUG fprintf(stderr, "About to do CDF file set up\n"); #endif cdf->cdf_fp = (hdf_file_t) HI_OPEN(name, hdf_mode); if (OPENERR(cdf->cdf_fp)) HRETURN_ERROR(DFE_DENIED,NULL); break; } #endif /* HDF */ /* * Read in the contents */ if(cdf->xdrs->x_op == XDR_DECODE) /* Not NC_CREAT */ { if(!xdr_cdf(cdf->xdrs, &cdf) ) { /* free cdf struct. This cleanup is different than NC_free_xcdf(). */ NC_free_cdf(cdf); /* free memory, close structues,files etc*/ cdf = NULL; ret_value = NULL ; goto done; } if(NC_computeshapes(cdf) == -1) { ret_value = NULL; goto done; } } ret_value = cdf ; done: if (ret_value == NULL) { /* Failure cleanup */ if (cdf != NULL) { /* handles case other than one for NC_free_cdf(). These routines only free up allocted memory. */ NC_free_xcdf(cdf); /* no point in catching error here */ if (cdf->xdrs != NULL) Free(cdf->xdrs); Free(cdf) ; } } /* Normal cleanup */ return ret_value; } /* * Duplicate a description structure. * Can only be called for 'old' extant on disk, eg, old in DATA mode. * * NOTE: Cleaned up to catch errors - GV 9/19/97 */ NC * NC_dup_cdf(name, mode, old) const char *name ; int mode ; NC *old ; { NC *cdf = NULL; NC *ret_value = NULL; cdf = (NC *)HDmalloc(sizeof(NC)) ; if( cdf == NULL ) { nc_serror("NC_dup_cdf") ; ret_value = NULL; goto done; } cdf->flags = old->flags | NC_INDEF ; cdf->xdrs = (XDR *)HDmalloc(sizeof(XDR)) ; if( cdf->xdrs == NULL) { nc_serror("NC_dup_cdf: xdrs") ; ret_value = NULL; goto done; } cdf->dims = NULL ; cdf->attrs = NULL ; cdf->vars = NULL ; cdf->begin_rec = 0 ; cdf->recsize = 0 ; cdf->numrecs = 0 ; #ifdef HDF cdf->file_type = old->file_type; #endif if(NCxdrfile_create( cdf->xdrs, name, mode) < 0) { ret_value = NULL ; goto done; } old->xdrs->x_op = XDR_DECODE ; if(!xdr_cdf(old->xdrs, &cdf) ) { ret_value = NULL; goto done; } if( NC_computeshapes(cdf) == -1) { ret_value = NULL; goto done; } ret_value = cdf; done: if (ret_value == NULL) { /* Failure cleanup */ if (cdf != NULL) { /* free up allocated structures */ if (cdf->xdrs != NULL) Free(cdf->xdrs); NC_free_xcdf(cdf); /* don't catch error here */ Free(cdf); } } /* Normal cleanup */ return ret_value; } int ncinquire(cdfid, ndimsp, nvarsp, nattrsp, xtendimp) int cdfid ; int *ndimsp ; int *nvarsp ; int *nattrsp ; int *xtendimp ; { NC *handle ; cdf_routine_name = "ncinquire" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if(nvarsp != NULL) *nvarsp = (handle->vars != NULL) ? handle->vars->count : 0 ; if(nattrsp != NULL) *nattrsp = (handle->attrs != NULL) ? handle->attrs->count : 0 ; if(handle->dims != NULL) { NC_dim **dp ; unsigned ii ; if(ndimsp != NULL) *ndimsp = handle->dims->count ; if(xtendimp != NULL) { *xtendimp = -1 ; dp = (NC_dim**)handle->dims->values ; for(ii = 0 ; ii < handle->dims->count ; ii++, dp++) { if((*dp)->size == NC_UNLIMITED) { *xtendimp = ii ; } } } } else { if(ndimsp != NULL) *ndimsp = 0 ; if(xtendimp != NULL) *xtendimp = -1 ; } return(cdfid) ; } /* * NOTE: modfied how errors were caught and reported - GV 9/19/97 */ bool_t xdr_cdf(xdrs, handlep) XDR *xdrs; NC **handlep; { bool_t ret_value = TRUE; #ifdef HDF switch((*handlep)->file_type) { case HDF_FILE: if (hdf_xdr_cdf(xdrs, handlep) == FAIL) ret_value = FALSE; break; case netCDF_FILE: ret_value = NC_xdr_cdf(xdrs, handlep); break; case CDF_FILE: ret_value = nssdc_xdr_cdf(xdrs, handlep); break; default: ret_value = FALSE; break; } #else /* !HDF */ ret_value = NC_xdr_cdf(xdrs, handlep); #endif /* !HDF */ return ret_value; } static bool_t NC_xdr_cdf(xdrs, handlep) XDR *xdrs; NC **handlep; { u_long magic; if( xdrs->x_op == XDR_FREE) { NC_free_xcdf(*handlep) ; return(TRUE) ; } if( xdr_getpos(xdrs) != 0) { if( !xdr_setpos(xdrs, 0) ) { nc_serror("Can't set position to begin") ; return(FALSE) ; } } /* magic number */ if( !xdr_u_long(xdrs, &magic) ) { if( xdrs->x_op == XDR_DECODE) { NCadvise(NC_ENOTNC, "Not a netcdf file (Can't read magic number)") ; } else { /* write error */ nc_serror("xdr_cdf: xdr_u_long") ; } return(FALSE) ; } if( xdrs->x_op == XDR_DECODE && magic != NCMAGIC ) { if(magic == NCLINKMAGIC) { NCadvise(NC_NOERR, "link file not handled yet") ; return(FALSE) ; } /* else */ NCadvise(NC_ENOTNC, "Not a netcdf file") ; return(FALSE) ; } if( !xdr_numrecs(xdrs, *handlep)) { NCadvise(NC_EXDR, "xdr_numrecs") ; return(FALSE) ; } if( !xdr_NC_array(xdrs, &((*handlep)->dims))) { NCadvise(NC_EXDR, "xdr_cdf:dims") ; return(FALSE) ; } if( !xdr_NC_array(xdrs, &((*handlep)->attrs))) { NCadvise(NC_EXDR, "xdr_cdf:attrs") ; return(FALSE) ; } if( !xdr_NC_array(xdrs, &((*handlep)->vars))) { NCadvise(NC_EXDR, "xdr_cdf:vars") ; return(FALSE) ; } return(TRUE) ; } #ifdef HDF /***************************************************************************** * * NCSA HDF / netCDF Project * May, 1993 * * NCSA HDF / netCDF source code and documentation are in the public domain. * Specifically, we give to the public domain all rights for future * licensing of the source code, all resale rights, and all publishing rights. * * We ask, but do not require, that the following message be included in all * derived works: * * Portions developed at the National Center for Supercomputing Applications at * the University of Illinois at Urbana-Champaign. Funding for this project * has come primarily from the National Science Foundation. * * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION, * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE * ****************************************************************************** * * Please report all bugs / comments to hdfhelp@ncsa.uiuc.edu * *****************************************************************************/ /* ---------------------------------------------------------------- ** Map an NC_ to an HDF type */ int hdf_map_type(type) nc_type type; { switch(type) { case NC_UNSPECIFIED : /* be like netCDF */ case NC_CHAR : return DFNT_CHAR; case NC_BYTE : return DFNT_INT8; case NC_SHORT : return DFNT_INT16; case NC_LONG : return DFNT_INT32; case NC_FLOAT : return DFNT_FLOAT32; case NC_DOUBLE : return DFNT_FLOAT64; default: return DFNT_NONE; } } /* hdf_map_type */ /* ---------------------------------------------------------------- ** UnMap a data type. I.e. go from an HDF type to an NC_ ** The HDF type may be in DFNT_NATIVE mode, so only look at the ** bottom bits */ nc_type hdf_unmap_type(type) int type; { switch(type & 0xff) { case DFNT_CHAR : case DFNT_UCHAR : return NC_CHAR; case DFNT_INT8 : case DFNT_UINT8 : return NC_BYTE; case DFNT_INT16 : case DFNT_UINT16 : return NC_SHORT; case DFNT_INT32 : case DFNT_UINT32 : return NC_LONG; case DFNT_FLOAT32 : return NC_FLOAT; case DFNT_FLOAT64 : return NC_DOUBLE; default: return (nc_type)FAIL; /* need a better legal nc_type value */ } } /* hdf_unmap_type */ /* ----------------------------------------------------------------- ** Given a dimension id number return its hdf_ref number (Vgroup id) */ int hdf_get_ref(handle, i) NC *handle; int i; { NC_array *tmp = NULL; NC_dim **d = NULL; Void *dims = NULL; tmp = handle->dims; dims = handle->dims->values; dims += i * tmp->szof; d = (NC_dim **) dims; return (*d)->vgid; /* return ref of vgroup */ } /* get_hdf_ref */ /* ---------------------------------------------------------------- ** Given a dimension pointer return the ref of a Vdata which was ** newly created to represent the values the dimension takes on ** If there is a variable with the same name as our dimension then ** the values the variable takes on are the values for the ** 'steps' in the dimension. ** Otherwise, the dimension takes on the values 0..(size -1) ** ** NOTE: This may cause conflicts cuz we may get called before ** the variable's values are set??? ** ** NOTE2: Someone should update the comments here. They no longer ** seem valid -GV 9/19/97 */ int hdf_create_dim_vdata(xdrs, handle, dim) XDR *xdrs; NC *handle; NC_dim *dim; { #ifdef LATER CONSTR(FUNC,"hdf_create_dim_vdata"); #endif /* LATER */ int found = FALSE; int ref; int32 val; long dsize; int ret_value = FAIL; #if DEBUG fprintf(stderr, "hdf_create_dim_vdata I've been called\n"); fprintf(stderr, "handle->hdf_file = %d\n", handle->hdf_file); #endif #if 0 /* look for variable with the given name */ if(handle->vars) { dp = (NC_var **) handle->vars->values; for(ii = 0; ii < handle->vars->count; ii++, dp++) if(HDstrcmp(dim->name->values, (*dp)->name->values) == 0) { /* found it */ found = TRUE; break; } } #endif if(found) { /* load in the variable's values */ #if DEBUG fprintf(stderr, "Found real values for dimension %s\n", dim->name->values); #endif } else { dsize = 1; val = (dim->size != NC_UNLIMITED) ? dim->size : (int32)handle->numrecs; ref = VHstoredata(handle->hdf_file, "Values", (const uint8 *)&val, dsize, DFNT_INT32, dim->name->values, DIM_VALS01); if(ref == FAIL) { #ifdef DEBUG fprintf(stderr, "FAILed creating Vdata %s\n", dim->name->values); #endif ret_value = FAIL; goto done; } } #if DEBUG fprintf(stderr, "Returning vdata pointer %d\n", ref); #endif ret_value = ref; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_create_dim_vdata */ /* ---------------------------------------------------------------- ** Given a dimension pointer return the ref of an older version ** dim Vdata which was newly created to represent the values ** the dimension takes on, for backward compatibility. ** ** For DIM_VALS, the values the variable takes on are the values ** for the 'steps' in the dimension. ** */ int hdf_create_compat_dim_vdata(XDR *xdrs, NC *handle, NC_dim *dim, int32 dimval_ver) { static const char *FUNC = "hdf_create_compat_dim_vdata"; int i; int ref; long dsize; int32 *val = NULL; int ret_value = FAIL; #ifdef DEBUG fprintf(stderr, "hdf_create_compat_dim_vdata I've been called\n"); fprintf(stderr, "handle->hdf_file = %d\n", handle->hdf_file); fprintf(stderr, "dim_ver = %d\n", dim_ver); #endif if (dimval_ver != DIMVAL_VERSION00) { ret_value = FAIL; goto done; } dsize = (dim->size == NC_UNLIMITED)? 1 : dim->size; if (dsize < 0) { ret_value = FAIL; goto done; } /* create a fake one */ #ifdef DEBUG fprintf(stderr, "Creating fake dim ::::%s::: (%d)\n", dim->name->values, dsize); #endif /* allocate space */ val = (int32 *) HDmalloc(dsize * sizeof(int32)); if(!val) { HERROR(DFE_NOSPACE); ret_value = FAIL; goto done; } /* Shouldn't a check for netCDF file be here before using handle->numrecs? If the file is an HDF file, vp->numrecs should be used, right? -BMR (2013-6/24) */ if (dim->size == NC_UNLIMITED) { *val = handle->numrecs; } else { for(i = 0; i < dsize; i++) val[i] = i; } ref = VHstoredata(handle->hdf_file, "Values", (const uint8 *)val, dsize, DFNT_INT32, dim->name->values, DIM_VALS); if(ref == FAIL) { #ifdef DEBUG fprintf(stderr, "FAILed creating Vdata %s\n", dim->name->values); #endif ret_value = FAIL; goto done; } #ifdef DEBUG fprintf(stderr, "Returning vdata pointer %d\n", ref); #endif ret_value = ref; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (val != NULL) HDfree(val); return ret_value; } /* hdf_create_compat_dim_vdata */ /* ---------------------------------------------------------------- ** Write out a vdata representing an attribute */ int hdf_write_attr(xdrs, handle, attr) XDR *xdrs; NC *handle; NC_attr **attr; { char *name = NULL; Void *values = NULL; int size; int type; int order; int ret_value = SUCCEED; name = (*attr)->name->values; values = (*attr)->data->values; size = (*attr)->data->count; type = (*attr)->HDFtype; #if DEBUG fprintf(stderr, "hdf_write_attr I've been called\n"); fprintf(stderr, "The attribute is called %s\n", name); fprintf(stderr, "Type = %d (%d) size %d\n", type, (*attr)->HDFtype, size); fprintf(stderr, "Value: "); switch(type) { case DFNT_CHAR :fprintf(stderr, " (char) %s\n", (char *) values); break; case DFNT_UINT8 :fprintf(stderr, " (uint8) %d\n", (char *) values); break; case DFNT_INT8 :fprintf(stderr, " (int8) %d\n", (char *) values); break; case DFNT_UINT16 :fprintf(stderr, " (uint16) %d\n", (int *) values); break; case DFNT_INT16 :fprintf(stderr, " (int16) %d\n", (int *) values); break; case DFNT_UINT32 :fprintf(stderr, " (uint32) %d\n", (int *) values); break; case DFNT_INT32 :fprintf(stderr, " (int32) %d\n", (int *) values); break; case DFNT_FLOAT32 :fprintf(stderr, " (float32) %f\n", (float *) values); break; case DFNT_FLOAT64 :fprintf(stderr, " (float64) %f\n", (double *) values); break; default:fprintf(stderr, "???\n"); } #endif if(type == DFNT_CHAR) { order = size; size = 1; } else { order = 1; } ret_value = VHstoredatam(handle->hdf_file, ATTR_FIELD_NAME, (unsigned char *) values, size, type, name, _HDF_ATTRIBUTE, order); #if DEBUG fprintf(stderr, "hdf_write_attr returning %d\n", ret_value); #endif #ifdef LATER done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ #endif /* LATER */ return ret_value; } /* hdf_write_attr */ /* ---------------------------------------------------------------- ** Write out a group representing a dimension */ int32 hdf_write_dim(XDR *xdrs, NC *handle, NC_dim **dim, int32 cnt) { int32 tags[100]; int32 refs[100]; int32 count; const char *class = NULL; char name[H4_MAX_NC_NAME] = ""; int32 ret_value = SUCCEED; #if DEBUG fprintf(stderr, "hdf_write_dim I've been called\n"); fprintf(stderr, "The name is -- %s -- \n", (*dim)->name->values); #endif /* * Look up to see if there is a variable of the same name * giving values */ count = 0; tags[count] = DFTAG_VH; refs[count] = hdf_create_dim_vdata(xdrs, handle, (*dim)); if(refs[count] == FAIL) { ret_value = FAIL; goto done; } count++; /* do we need to create compatible dimension? */ if ((*dim)->dim00_compat) { tags[count] = DFTAG_VH; refs[count] = hdf_create_compat_dim_vdata(xdrs, handle, (*dim), DIMVAL_VERSION00); if(refs[count] == FAIL) { ret_value = FAIL; goto done; } count++; } /* check if UNLIMITED dimension */ if((*dim)->size == NC_UNLIMITED) class = _HDF_UDIMENSION; else class = _HDF_DIMENSION; if(HDstrncmp((*dim)->name->values, "fakeDim", 7) == 0) sprintf(name, "fakeDim%d", (int)cnt); else HDstrcpy(name, (*dim)->name->values); /* write out the dimension group? */ (*dim)->vgid = VHmakegroup(handle->hdf_file, tags, refs, count, name, class); ret_value = (*dim)->vgid; /* ref of vgroup of dimension */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_write_dim */ /* ---------------------------------------------------------------- ** Write out a group representing a variable ** If successfull, return the id of the created Vgroup else ** return NULL */ int32 hdf_write_var(xdrs, handle, var) XDR *xdrs; NC *handle; NC_var **var; { NC_array * attrs = NULL; NC_iarray * assoc = NULL; uint8 ntstring[4]; uint16 ref; int8 outNT; uint8 tbuf[2+((H4_MAX_VAR_DIMS+1)*8)]; /* temporary buffer */ int32 tags[H4_MAX_NC_ATTRS + H4_MAX_VAR_DIMS + 2]; int32 refs[H4_MAX_NC_ATTRS + H4_MAX_VAR_DIMS + 10]; uint16 nt_ref, rank; int32 GroupID, val, vs_id; uint8 *bufp = NULL; #ifdef LATER CONSTR(FUNC,"hdf_write_var"); #endif /* LATER */ int32 ret_value = SUCCEED; register unsigned i, count; register Void *attribute = NULL; count = 0; assoc = (*var)-> assoc; attrs = (*var)-> attrs; #if DEBUG fprintf(stderr, "hdf_write_var I've been called\n"); fprintf(stderr, "handle->hdf_file = %d\n", handle->hdf_file); fprintf(stderr, "The name is -- %s -- \n", (*var)->name->values); if(assoc && assoc->count) { fprintf(stderr, "value of assoc %d\n", assoc); fprintf(stderr, " assoc->count %d\n", assoc->count); fprintf(stderr, " asc[0] %d asc[1] %d\n", assoc->values[0], assoc->values[1]); } #endif /* * Get the dimension information */ for(i = 0; i < assoc->count; i++) { tags[count] = DIM_TAG; refs[count] = hdf_get_ref(handle, assoc->values[i]); count++; } /* * Add info for the attributes */ if(attrs) { attribute = attrs->values; for(i = 0; i < attrs->count; i++) { tags[count] = ATTR_TAG; refs[count] = hdf_write_attr(xdrs, handle, (NC_attr **)attribute); if (refs[count] == FAIL) { ret_value = FAIL; goto done; } attribute += attrs->szof; count++; } } /* * Add info about the type of this variable */ if ((*var)->var_type == IS_SDSVAR || (*var)->var_type == IS_CRDVAR) { char fields[FIELDNAMELENMAX]; char vsclass[H4_MAX_NC_NAME]; if ((*var)->var_type == IS_SDSVAR) { strncpy(fields, "SDS variable", 13); strncpy(vsclass, _HDF_SDSVAR, 7); } else if ((*var)->var_type == IS_CRDVAR) { strncpy(fields, "Coordinate variable", 20); strncpy(vsclass, _HDF_CRDVAR, 9); } if ((vs_id = VSattach(handle->hdf_file, -1, "w")) == FAIL) { ret_value = FAIL; goto done; } if(VSsetclass(vs_id, vsclass)==FAIL) { ret_value = FAIL; goto done; } if ( VSfdefine(vs_id, fields, DFNT_FLOAT32, 1) == FAIL) { ret_value = FAIL; goto done; } if ( VSsetfields(vs_id, fields) == FAIL) { ret_value = FAIL; goto done; } ref = VSQueryref(vs_id); if(VSdetach(vs_id)==FAIL) { ret_value = FAIL; goto done; } tags[count] = DFTAG_VH; refs[count] = ref; count++; } /* * If we already have data written out include that too * (this might happen after a redef() cuz we will leave * the data sitting on the disk but clear out all the * meta-data) */ if((*var)->data_ref) { tags[count] = (int32) DFTAG_SD; refs[count] = (*var)->data_ref; #if DEBUG fprintf(stderr, " ---- Carrying forward data with ref %d ---- \n", (*var)->data_ref); #endif count++; } /* * Write out a number type tag so that we can recover this * variable's type later on * * by default numbers are converted to IEEE otherwise we need to save the * machine type in the NT object */ /* somone unwrap this statement....*/ outNT = ((*var)->HDFtype & DFNT_NATIVE)? DFKgetPNSC((*var)->HDFtype, DF_MT) : ((*var)->HDFtype & DFNT_LITEND)? DFNTF_PC : DFNTF_IEEE; #ifdef NOT_YET ref = Htagnewref(handle->hdf_file,DFTAG_NT); #else /* NOT_YET */ ref = Hnewref(handle->hdf_file); #endif /* NOT_YET */ ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = (uint8)((*var)->HDFtype & 0xff); /* type */ ntstring[2] = (uint8)((*var)->HDFsize * 8); /* width (in bits) */ ntstring[3] = outNT; /* class: IEEE or machine class */ if(Hputelement(handle->hdf_file, DFTAG_NT, ref, ntstring, (int32) 4) == FAIL) { ret_value = FAIL; goto done; } tags[count] = DFTAG_NT; refs[count] = ref; nt_ref = (uint16) ref; count++; #ifdef WRITE_NDG /* prepare to start writing ndg */ if ((GroupID = DFdisetup(10)) < 0) { ret_value = FAIL; goto done; } /* write SD record */ if((*var)->data_ref) { if (DFdiput(GroupID, DFTAG_SD, (uint16) (*var)->data_ref) == FAIL) { ret_value = FAIL; goto done; } } /* write NT tag/ref */ if (DFdiput(GroupID, DFTAG_NT, (uint16) ref) == FAIL) { ret_value = FAIL; goto done; } /* put rank & dimensions in buffer */ bufp = tbuf; rank = assoc->count; UINT16ENCODE(bufp, rank); for(i = 0; i < (int)rank; i++) { val = (int32) (*var)->shape[i]; /* need to fake the size of the record dimension */ if(val == NC_UNLIMITED) { if(handle->file_type == HDF_FILE) val = (*var)->numrecs; else val = handle->numrecs; } INT32ENCODE(bufp, val); } /* "<=" used to put 1 data NT + rank scale NTs in buffer */ for (i = 0; i <= (int)rank; i++) { /* scale NTs written even if no scale!*/ UINT16ENCODE(bufp, DFTAG_NT); UINT16ENCODE(bufp, nt_ref); } /* write out SDD record */ if(Hputelement(handle->hdf_file, DFTAG_SDD, ref, tbuf, (int32) (bufp-tbuf)) == FAIL) { ret_value = FAIL; goto done; } /* write dimension record tag/ref */ if (DFdiput(GroupID, DFTAG_SDD,(uint16) ref) == FAIL) { ret_value = FAIL; goto done; } tags[count] = DFTAG_SDD; refs[count] = ref; count++; /* Add a bogus tag so we know this NDG is really a variable */ if (DFdiput(GroupID, BOGUS_TAG,(uint16) ref) == FAIL) { ret_value = FAIL; goto done; } /* write out NDG */ if (DFdiwrite(handle->hdf_file, GroupID, DFTAG_NDG, (*var)->ndg_ref) < 0) { ret_value = FAIL; goto done; } tags[count] = DFTAG_NDG; refs[count] = (*var)->ndg_ref; count++; #endif /* WRITE_NDG */ /* write the vgroup for the coordinate variable */ (*var)->vgid = VHmakegroup(handle->hdf_file, tags, refs, count, (*var)->name->values, _HDF_VARIABLE); #ifdef DEBUG if((*var)->vgid == FAIL) { fprintf(stderr, "Failed to write variable %s\n", (*var)->name->values); fprintf(stderr, "count = %d\n", count); for(i = 0; i < count; i++) fprintf(stderr, "i = %d tag = %d ref = %d\n", i, tags[i], refs[i]); HEprint(stdout, 0); } #endif ret_value = (*var)->vgid; /* ref of vgroup of variable */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_write_var */ /* ---------------------------------------------------------------- ** Write out a cdf structure */ intn hdf_write_xdr_cdf(xdrs, handlep) XDR *xdrs; NC **handlep; { int32 count; int status, done; unsigned sz, i, j; int32 *tags = NULL; int32 *refs = NULL; NC_dim **dims = NULL; NC_dim **dims1 = NULL; NC_array *tmp = NULL; long *dim_size_array = NULL; long *tsizeptr = NULL; long tsize; uint32 *dim_hash_array = NULL; uint32 *thashptr = NULL; uint32 thash; Void *vars = NULL; Void *attrs = NULL; intn ret_value = SUCCEED; #if DEBUG fprintf(stderr, "hdf_write_xdr_cdf i've been called op = %d \n", xdrs->x_op); #endif /* Convert old scales into coordinate var values before writing out any header info */ status = hdf_conv_scales(handlep); if (status == FAIL) { ret_value = FAIL; goto done; } /* count size of tag / ref arrays */ sz = 0; if((*handlep)->dims) sz += (*handlep)->dims->count; if((*handlep)->vars) sz += (*handlep)->vars->count; if((*handlep)->attrs) sz += (*handlep)->attrs->count; #if DEBUG fprintf(stderr, "sz = %d\n", sz); #endif /* allocate tag / ref arrays */ tags = (int32 *) HDmalloc(sz * sizeof(int32) + 1); refs = (int32 *) HDmalloc(sz * sizeof(int32) + 1); if(NULL == tags || NULL == refs) { #ifdef DEBUG fprintf(stderr, "Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = FAIL; goto done; } /* ** write out dimension arrays */ count = 0; if((*handlep)->dims) { tmp = (*handlep)->dims; dims = (NC_dim **) (*handlep)->dims->values; tsizeptr = dim_size_array =(long *)HDmalloc(sizeof(long)*(size_t)tmp->count); thashptr = dim_hash_array =(uint32 *)HDmalloc(sizeof(uint32)*(size_t)tmp->count); if(NULL == dim_size_array || NULL == dim_hash_array) { #ifdef DEBUG fprintf(stderr, "Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = FAIL; goto done; } for(i = 0; i < tmp->count; i++,dims++) { *tsizeptr++=(*dims)->size; *thashptr++=(*dims)->name->hash; } /* end for */ dims = (NC_dim **) (*handlep)->dims->values; for(i = 0; i < tmp->count; i++) { /* this is really ugly and should be handled another way */ /* make sure we don't duplicate dimensions */ done = FALSE; dims1 = (NC_dim **) (*handlep)->dims->values; tsize = dim_size_array[i]; thash = dim_hash_array[i]; tsizeptr = dim_size_array; thashptr = dim_hash_array; for(j = 0; j < i; j++) { /* this order on the test is faster -QAK */ if( thash == *thashptr && tsize == *tsizeptr && NC_compare_string((*dims)->name,(*dims1)->name) == 0 ) { done = TRUE; break; } tsizeptr++; thashptr++; dims1++; } if(!done) { tags[count] = (int32) DIM_TAG; refs[count] = (int32) hdf_write_dim(xdrs, (*handlep), dims, count); if(refs[count] == FAIL) { ret_value = FAIL; goto done; } count++; } dims++; } } /* end if handle->dims */ /* ** write out variable info */ if((*handlep)->vars) { tmp = (*handlep)->vars; vars = (*handlep)->vars->values; for(i = 0; i < tmp->count; i++) { tags[count] = (int32) VAR_TAG; refs[count] = (int32) hdf_write_var(xdrs, (*handlep), (NC_var **)vars); if(refs[count] == FAIL) { ret_value = FAIL; goto done; } vars += tmp->szof; count++; } } /* * write global attribute information */ if((*handlep)->attrs) { tmp = (*handlep)->attrs; attrs = (*handlep)->attrs->values; for(i = 0; i < tmp->count; i++) { tags[count] = (int32) ATTR_TAG; refs[count] = (int32) hdf_write_attr(xdrs, (*handlep), (NC_attr **)attrs); if(refs[count] == FAIL) { ret_value = FAIL; goto done; } attrs += tmp->szof; count++; } } #if DEBUG fprintf(stderr, "About to write top level VG with %d elements\n", count); { int i; for(i = 0; i < count; i++) fprintf(stderr, "%d :=> %d %d\n", i, tags[i], refs[i]); } #endif /* write out final VGroup thang */ /* set the top level CDF VGroup pointer */ (*handlep)->vgid = VHmakegroup((*handlep)->hdf_file, tags, refs, count, (*handlep)->path, _HDF_CDF); ret_value = (*handlep)->vgid; /* ref of final vgroup */ #ifdef DEBUG fprintf(stderr, "======= Have finished writing top level VGroup #%d\n", ret_value); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (dim_size_array != NULL) HDfree(dim_size_array); if (dim_hash_array != NULL) HDfree(dim_hash_array); if (tags != NULL) HDfree(tags); if (refs != NULL) HDfree(refs); return ret_value; } /* hdf_write_xdr_cdf */ /* -------------------------------------------------------------- ** hdf_conv_scales converts old scale values into coord var values. ** Searchs through var list for DFTAG_SDS, reads in the scale data, ** change the ref to ndg_ref and the tag to DATA_TAG, writes the ** data out. */ intn hdf_conv_scales(handlep) NC **handlep; { int status, scaleref, scaletag, scalelen; unsigned i; NC_var **vars = NULL; NC_array *tmp = NULL; uint8 *scalebuf = NULL; uint8 *datap = NULL; intn ret_value = SUCCEED; #ifdef LATER CONSTR(FUNC, "hdf_conv_scales"); #endif /* LATER */ if ((*handlep)->vars) { tmp = (*handlep)->vars; vars = (NC_var **)tmp->values; for (i = 0; i < tmp->count; i++) { if ( ((*vars)->data_tag == DFTAG_SDS) && ((*vars)->data_ref != (*vars)->ndg_ref)) { /* read in scale values */ scaleref = (*vars)->data_ref; scaletag = (*vars)->data_tag; scalelen = Hlength((*handlep)->hdf_file, scaletag, scaleref); if (scalelen == FAIL) { ret_value = FAIL; goto done; } if ((*vars)->data_offset == -1) { /* this dim has no scale values */ (*vars)->data_ref = 0; (*vars)->data_tag = DATA_TAG; } else { /* has scale values */ scalebuf = (uint8 *)HDmalloc((uint32)scalelen); if (scalebuf == NULL) { ret_value = FAIL; goto done; } status = Hgetelement((*handlep)->hdf_file, scaletag, scaleref, scalebuf); if (status == FAIL) { ret_value = FAIL; goto done; } (*vars)->data_tag = DATA_TAG; (*vars)->data_ref = (*vars)->ndg_ref; /* Try to stick with the current way. If this ref conflicts with existing SDS, call Hnewref to get a new one. 3/25/97 */ datap = scalebuf + (*vars)->data_offset; status = Hputelement((*handlep)->hdf_file, DATA_TAG, (*vars)->data_ref, datap, (*vars)->len); if (status == FAIL) { (*vars)->data_tag = scaletag; (*vars)->data_ref = scaleref; ret_value = FAIL; goto done; } } /* has scale values */ } /* DFTAG_SDS */ vars ++; } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ if (scalebuf != NULL) HDfree(scalebuf); return ret_value; } /* ---------------------------------------------------------------- ** Read in the dimensions out of a cdf structure ** Return FAIL if something goes wrong */ intn hdf_read_dims(XDR *xdrs, NC *handle, int32 vg) { char vgname[H4_MAX_NC_NAME] = ""; char vsclass[H4_MAX_NC_CLASS] = ""; char vgclass[H4_MAX_NC_CLASS] = ""; int id, count, i, found; int sub_id; int32 dim_size; NC_dim **dimension = NULL; int32 dim, entries; int32 vs; intn ret_value = SUCCEED; found = FALSE; count = 0; id = -1; #if DEBUG fprintf(stderr, "hdf_read_dims I've been called, handle->hdf_file = %d\n", handle->hdf_file); #endif /* * Allocate enough space in case everything is a dimension */ count = 0; dimension = (NC_dim **) HDmalloc(sizeof(NC_dim *) * Vntagrefs(vg) + 1); if(NULL == dimension) { /* replace it with NCadvice or HERROR?? */ #ifdef DEBUG fprintf(stderr, "Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = FAIL; goto done; } /* * Look through for a Vgroup of class _HDF_DIMENSION */ while((id = Vgetnext(vg, id)) != FAIL) { if(Visvg(vg, id)) { dim = Vattach(handle->hdf_file, id, "r"); if(dim == FAIL) continue; /* why do we continue? does this failure here not matter? -GV */ if (Vgetclass(dim, vgclass) == FAIL) { ret_value = FAIL; goto done; } if(!HDstrcmp(vgclass, _HDF_DIMENSION) || !HDstrcmp(vgclass, _HDF_UDIMENSION)) { int is_dimval, is_dimval01; /* init both flags to FALSE */ is_dimval = FALSE; is_dimval01 = FALSE; if (Vinquire(dim, &entries, vgname) == FAIL) { ret_value = FAIL; goto done; } /* * look through for a Vdata of class DIM_VALS01 and/or DIM_VALS * to get size */ sub_id = -1; while(((sub_id = Vgetnext(dim, sub_id)) != FAIL) ) { if(Visvs(dim, sub_id)) { vs = VSattach(handle->hdf_file, sub_id, "r"); if(vs == FAIL) { ret_value = FAIL; goto done; } if (VSgetclass(vs, vsclass) == FAIL) { ret_value = FAIL; goto done; } if(!HDstrcmp(vsclass, DIM_VALS)) { is_dimval = TRUE; if (HDstrcmp(vgclass, _HDF_UDIMENSION)) /* not unlimited di m */ { if (VSQuerycount(vs, &dim_size) == FAIL) { ret_value = FAIL; goto done; } } } if ((!HDstrcmp(vsclass, DIM_VALS01)) || (!HDstrcmp(vgclass, _HDF_UDIMENSION))) { /* DIM_VALS && _HDF_UDIMENSION */ int32 val; /* needs a temp var since handle->numrecs */ /* may not be an int32 */ /* The call to VSsetfields fails for the files created with the library version 3.3r1. This call is not necessary since handle vs is obtained by specifying class name. Elena Pourmal 2/17/99 if (VSsetfields(vs, "Values") == FAIL) { ret_value = FAIL; goto done; } */ if (VSseek(vs, 0) == FAIL) { ret_value = FAIL; goto done; } /* * This is highly dangerous since there might be multiple * unlimited dimensions */ if(VSread(vs, (uint8 *) &val, 1, FULL_INTERLACE) != 1) { ret_value = FAIL; goto done; } if (!HDstrcmp(vgclass, _HDF_UDIMENSION)) { dim_size = NC_UNLIMITED; handle->numrecs = val; } else dim_size = val; } /* */ if (!HDstrcmp(vsclass, DIM_VALS01)) /* dimval01 */ is_dimval01 = TRUE; if (VSdetach(vs) == FAIL) { ret_value = FAIL; goto done; } /* Is it the second dim vs of a compatible dim? */ found = FALSE; for (i = count-1; ((i >= 0) && (!found)); i--) { if (!HDstrcmp(vgname, dimension[i]->name->values) && (dim_size == dimension[i]->size)) { /* vgname is the dim name. vgname may be diff from vsname */ if (is_dimval01 == TRUE && is_dimval == TRUE) dimension[i]->dim00_compat = 1; found = TRUE; /* the second vs */ } } /* for */ if (!found) { dimension[count] = NC_new_dim(vgname, dim_size); if(NULL == dimension[count]) { #ifdef DEBUG /* replace it with NCadvice or HERROR?? */ fprintf(stderr, "Can't create new dimension #%d\n", count); #endif ret_value = FAIL; goto done; } /* dimension[count] */ #if DEBUG fprintf(stderr, "Dimension <%s> has size %d\n", vgname, dim_size); #endif if (!HDstrcmp(vsclass, DIM_VALS01)) /* dimvals01 only */ dimension[count]->dim00_compat = 0; /* record vgroup id here so we can use later */ /* Note: this is only for later file -BMR */ dimension[count]->vgid = id; count++; } /* found */ } /* is vs */ } /* while in dimension vg */ } /* is vg */ if (Vdetach(dim) == FAIL) { ret_value = FAIL; goto done; } } /* while */ } if(count) { handle->dims = NC_new_array(NC_DIMENSION, count, (Void *) dimension); if (handle->dims == NULL) { ret_value = FAIL; goto done; } } else handle->dims = NULL; #if DEBUG fprintf(stderr, "Created dimension array %d \n", handle->dims); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ if (handle->dims != NULL) { NC_free_array(handle->dims); handle->dims = NULL; } } /* Normal cleanup */ if (dimension != NULL) HDfree(dimension); return ret_value; } /* hdf_read_dims */ /****************************************************************************** NAME hdf_num_attrs DESCRIPTION Determine number of attributes in vgroup i.e. of the SDS RETURNS returns number of attributes in vgroup if successful and FAIL otherwise. *******************************************************************************/ static intn hdf_num_attrs(NC *handle,/* IN: handle to SDS */ int32 vg /* IN: ref of top Vgroup */) { int count = 0; int t, n; int32 vs, tag; int32 id = -1; char class[H4_MAX_NC_CLASS] = ""; intn ret_value = FAIL; #ifdef HDF_NUM_ATTRS fprintf(stderr, "hdf_num_attrs: I've been called, handle->hdf_file = %d\n", handle->hdf_file); #endif n = Vntagrefs(vg); if (n == FAIL) { #ifdef HDF_NUM_ATTRS fprintf(stderr,"hdf_read_attrs: Vntagrefs failed \n"); #endif ret_value = FAIL; goto done; } #ifdef HDF_NUM_ATTRS fprintf(stderr,"hdf_num_attrs: Vntagrefs returned =%d \n",n); #endif /* * look through for a Vdata of class _HDF_ATTRIBUTE */ for (t = 0; t < n; t++) { if (Vgettagref(vg, t, &tag, &id) == FAIL) { ret_value = FAIL; goto done; } if(tag == DFTAG_VH) { vs = VSattach(handle->hdf_file, id, "r"); if(vs == FAIL) { ret_value = FAIL; goto done; } if (VSgetclass(vs, class) == FAIL) { ret_value = FAIL; goto done; } if(!HDstrcmp(class, _HDF_ATTRIBUTE)) count++; if (VSdetach(vs) == FAIL) { ret_value = FAIL; goto done; } } } #ifdef HDF_NUM_ATTRS fprintf(stderr, "hdf_num_attrs: number of attributes is %d \n", count); #endif ret_value = count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_num_attrs */ /* ---------------------------------------------------------------- ** Read in all attributes of the current vg ** Return NULL if something goes wrong ** Return a pointer to the array of attributes if all goes well */ NC_array * hdf_read_attrs(XDR *xdrs, NC *handle, int32 vg) { int count, t, n; int32 vs, tag, id, vsize, attr_size, nt; nc_type type; char vsname[H4_MAX_NC_NAME] = ""; char fields[100] = "" ; char class[H4_MAX_NC_CLASS] = ""; char *values = NULL; NC_attr **attributes = NULL; NC_array *Array = NULL; NC_array *ret_value = NULL; count = 0; id = -1; #if DEBUG fprintf(stderr, "hdf_read_attrs I've been called, handle->hdf_file = %d\n", handle->hdf_file); #endif n = Vntagrefs(vg); if (n == FAIL) { #ifdef HDF_READ_ATTRS fprintf(stderr,"hdf_read_attrs: Vntagrefs failed \n"); #endif ret_value = NULL; goto done; } #ifdef HDF_READ_ATTRS fprintf(stderr,"hdf_read_attrs: Vntagrefs returned =%d \n",n); #endif /* * Allocate enough space in case everything is an attribute */ count = 0; attributes = (NC_attr **) HDmalloc(sizeof(NC_attr *) * n + 1); if(NULL == attributes) { /* replace it with NCAdvice or HERROR? */ #ifdef HDF_READ_ATTRS fprintf(stderr, "Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = NULL; goto done; } /* * look through for a Vdata of class _HDF_ATTRIBUTE */ for (t = 0; t < n; t++) { if (Vgettagref(vg, t, &tag, &id) == FAIL) { ret_value = NULL; goto done; } if(tag == DFTAG_VH) { vs = VSattach(handle->hdf_file, id, "r"); if(vs == FAIL) { ret_value = NULL; goto done; } if (VSgetclass(vs, class) == FAIL) { ret_value = NULL; goto done; } if(!HDstrcmp(class, _HDF_ATTRIBUTE)) { if (VSinquire(vs, &attr_size, NULL, fields, &vsize, vsname) == FAIL) { ret_value = NULL; goto done; } if ((nt = VFfieldtype(vs, 0)) == FAIL) { ret_value = NULL; goto done; } if ((type = hdf_unmap_type(nt)) == FAIL) { ret_value = NULL; goto done; } values = (char *) HDmalloc(vsize * attr_size + 1); if (NULL == values) { ret_value = NULL; goto done; } if (VSsetfields(vs, fields) == FAIL) { ret_value = NULL; goto done; } if (VSread(vs, (uint8 *) values, attr_size, FULL_INTERLACE) == FAIL) { ret_value = NULL; goto done; } if(type == NC_CHAR) { if ((attr_size = VFfieldorder(vs, 0)) == FAIL) { ret_value = NULL; goto done; } ((char *) values)[attr_size] = '\0'; } attributes[count] = (NC_attr *) NC_new_attr(vsname, type, attr_size, values); if(NULL == attributes[count]) { /* replace it with NCadvice or HERROR? */ #ifdef HDF_READ_ATTRS fprintf(stderr, "hdf_read_attrs: Can't create new attribute #%d\n", count); #endif ret_value = NULL; goto done; } attributes[count]->HDFtype = nt; #ifdef HDF_READ_ATTRS fprintf(stderr, "hdf_read_attrs: Attribute <%s> has type %d and size %d\n", vsname, type, attr_size); #endif /* free values and reset to NULL */ HDfree(values); values = NULL; count++; } /* end if attribute ? */ if (VSdetach(vs) == FAIL) { ret_value = NULL; goto done; } } /* end if DFTAG_VH */ } /* end for */ /* create array of attributes */ if(count) Array = NC_new_array(NC_ATTRIBUTE, count, (Void *) attributes); #ifdef HDF_READ_ATTRS fprintf(stderr, "hdf_read_attrs: Created attribute array %d \n", Array); #endif ret_value = Array; /* return array of attributes */ done: if (ret_value == NULL) { /* Failure cleanup */ if (Array != NULL) NC_free_array(Array); } /* Normal cleanup */ if (values != NULL) HDfree(values); if (attributes != NULL) HDfree(attributes); return ret_value; } /* hdf_read_attrs */ /* ---------------------------------------------------------------- ** Read in the variables out of a cdf structure ** Return FAIL if something goes wrong ** ** Important: We must already assume that handle->dims is set ** so that we can do a call to NC_var_shape() so that we can ** set the numrecs fields of variables (so we can fill record ** variables intelligently) */ intn hdf_read_vars(XDR *xdrs, NC *handle, int32 vg) { char vgname[H4_MAX_NC_NAME] = ""; char subname[H4_MAX_NC_NAME] = ""; char class[H4_MAX_NC_CLASS] = ""; NC_var **variables = NULL; NC_var *vp = NULL; int ndims, *dims = NULL; uint8 ntstring[4]; int data_ref, is_rec_var, vg_size, count; int32 data_count; int32 HDFtype = FAIL; int32 tag; int32 id; int32 n; int32 sub_id; int32 entries; int32 ndg_ref = 0; int32 rag_ref = 0; intn nattrs; hdf_vartype_t var_type = UNKNOWN; register int t, i; register nc_type type; register int32 var, sub; intn ret_value = SUCCEED; #ifdef LATER CONSTR(FUNC,"hdf_read_vars"); #endif /* LATER */ count = 0; id = -1; #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars: I've been called, handle->hdf_file = %d\n", handle->hdf_file); #endif /* * Allocate enough space in case everything is a variable */ count = 0; variables = (NC_var **) HDmalloc(sizeof(NC_var *) * Vntagrefs(vg) + 1); if(NULL == variables) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = FAIL; goto done; } /* * Allocate enough space in case lots of dimensions */ dims = (int *) HDmalloc(sizeof(int) * Vntagrefs(vg) + 1); if(NULL == dims) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Out of memory line %d file %s\n", __LINE__, __FILE__); #endif ret_value = FAIL; goto done; } /* * Look through for a Vgroup of class _HDF_VARIABLE */ if ((vg_size = Vntagrefs(vg)) == FAIL) { ret_value = FAIL; goto done; } for(i = 0; i < vg_size; i++) { if (Vgettagref(vg, i, &tag, &id) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vgettagref failed\n"); #endif ret_value = FAIL; goto done; } if(tag == DFTAG_VG) { var = Vattach(handle->hdf_file, id, "r"); if(var == FAIL) continue; /* isn't this bad? -GV */ if (Vgetclass(var, class) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vgetclass failed\n"); #endif ret_value = FAIL; goto done; } /* Process as below if this VGroup represents a Variable or a Coordinate Variable */ if(!HDstrcmp(class, _HDF_VARIABLE)) { /* * We have found a VGroup representing a Variable or a * a Coordinate Variable */ ndims = 0; type = NC_UNSPECIFIED; data_ref = 0; data_count = 0; rag_ref = 0; is_rec_var = FALSE; if (Vinquire(var, &n, vgname) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vinquire failed\n"); #endif ret_value = FAIL; goto done; } /* * Loop through contents looking for dimensions */ for (t = 0; t < n; t++) { char dimclass[H4_MAX_NC_CLASS] = ""; char vsclass[H4_MAX_NC_CLASS] = ""; if (Vgettagref(var, t, &tag, &sub_id) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vgettagref failed\n"); #endif ret_value = FAIL; goto done; } switch(tag) { case DFTAG_VG : /* ------ V G R O U P ---------- */ sub = Vattach(handle->hdf_file, sub_id, "r"); if (FAIL == sub) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vattach failed\n"); #endif ret_value = FAIL; goto done; } if (FAIL == Vgetclass(sub, dimclass)) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vgetclass failed\n"); #endif ret_value = FAIL; goto done; } if(!HDstrcmp(dimclass, _HDF_DIMENSION) || !HDstrcmp(dimclass, _HDF_UDIMENSION)) { if(!HDstrcmp(dimclass, _HDF_UDIMENSION)) is_rec_var = TRUE; if (FAIL == Vinquire(sub, &entries, subname)) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vinquire failed\n"); #endif ret_value = FAIL; goto done; } dims[ndims] = (int) NC_dimid( handle, subname); if (-1 == dims[ndims]) /* should change to FAIL */ { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:NC_dimid failed\n"); #endif ret_value = FAIL; goto done; } ndims++; } if (FAIL == Vdetach(sub)) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Vdetach failed\n"); #endif ret_value = FAIL; goto done; } break; case DFTAG_VH : /* ----- V D A T A ----- */ sub = VSattach(handle->hdf_file, sub_id, "r"); if (FAIL == sub) { ret_value = FAIL; goto done; } if (FAIL == VSgetclass(sub, vsclass)) { ret_value = FAIL; goto done; } if(!HDstrcmp(vsclass, _HDF_SDSVAR)) var_type = IS_SDSVAR; else if(!HDstrcmp(vsclass, _HDF_CRDVAR)) var_type = IS_CRDVAR; else var_type = UNKNOWN; if (FAIL == VSdetach(sub)) { ret_value = FAIL; goto done; } break; case DFTAG_NDG : /* ----- NDG Tag for HDF 3.2 ----- */ ndg_ref = sub_id; break; case DFTAG_SD : /* ------- Data Storage ------ */ data_ref = sub_id; /* Note: apparently Hlength will fail in certain cases, but but this okay since I believe this is because the data does not exist yet in the file? So we can't catch this error -GV*/ data_count = Hlength(handle->hdf_file, DATA_TAG, sub_id); #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Hlength returned %d\n",data_count); #endif break; case DFTAG_SDRAG : /* ----- Ragged Array index ----- */ rag_ref = sub_id; #ifdef HDF_READ_VARS printf("hdf_read_vars:Lookout! Found a ragged array element\n"); #endif break; case DFTAG_NT : /* ------- Number type ------- */ if(Hgetelement(handle->hdf_file, tag, sub_id, ntstring) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Hgetlement failed\n"); #endif ret_value = FAIL; goto done; } HDFtype = ntstring[1]; if ((type = hdf_unmap_type(HDFtype)) == FAIL) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:hdf_unmap_teyp failed\n"); #endif ret_value = FAIL; goto done; } /* * Check if data was stored in native format * And make sure the numbertype version numbers are the same */ if((ntstring[0] != DFNT_VERSION) || ((ntstring[3] != DFNTF_NONE) && (ntstring[3] != DFNTF_IEEE))) { /* check if in native mode for a different type of machine or external data file is LITEND */ if (ntstring[3] == DFNTF_PC) HDFtype |= DFNT_LITEND; else { if(ntstring[3] != (uint8)DFKgetPNSC(HDFtype, DF_MT)) { /* * OK, we have a problem here --- is in native mode * for a different machine. PUNT */ goto bad_number_type; /* GOTO */ #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars: BAD number type \n"); #endif } else { /* * Is in native mode but its OK --- same machine type */ HDFtype |= DFNT_NATIVE; } } } break; default: /* Do nothing */ break; } } variables[count] = NC_new_var(vgname, type, ndims, dims); /* BMR: put back hdf type that was set wrong by NC_new_var; please refer to the cvs history of bug #172 for reason on this statement - 4/17/2001 */ variables[count]->HDFtype = HDFtype; vp = variables[count]; if(NULL == vp) { #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:Can't read new variable %s\n", vgname); #endif ret_value = FAIL; goto done; } #ifdef HDF_READ_VARS fprintf(stderr,"hdf_read_vars:Created a variable called %s (id %d) \n", vgname, id); #endif /* Read in the attributes if any */ if ((nattrs = hdf_num_attrs(handle, var)) > 0) vp->attrs = hdf_read_attrs(xdrs, handle, var); else vp->attrs = NULL; #ifdef HDF_READ_VARS fprintf(stderr,"hdf_read_vars:read in %d attributes \n",nattrs ); #endif /* set up for easy access later */ vp->vgid = id; vp->data_ref = data_ref; vp->data_tag = DATA_TAG; vp->HDFtype = HDFtype; vp->ndg_ref = (uint16) ndg_ref; vp->cdf = handle; /* for NC_var_shape */ vp->var_type = var_type; /* need to process the ragged array info here */ /* QUESTION: Load the whole rag_fill list in now??????? */ if(rag_ref) { vp->is_ragged = TRUE; } if(vp->data_ref) { /* * We have already seen data for this variable so now * we need to worry about its numrecs field */ if(is_rec_var) { /* * Call NC_var_shape() so we can figure out how many * records have been written. This is horribly * inefficient, but the separation-of-powers gets * really mucked up if we wait till later... */ if(NC_var_shape(vp, handle->dims) == -1) { #ifdef HDF_READ_VARS fprintf(stderr,"hdf_read_vars:NC_var_shape failed \n" ); #endif ret_value = FAIL; goto done; } /* * Now figure out how many recs have been written * For a while there was a -1 at the end of this * equation. I don't remember why its there * (4-Nov-93) */ vp->numrecs = data_count / vp->dsizes[0]; #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars:I have set numrecs to %d\n", vp->numrecs); #endif /* * Deallocate the shape info as it will be recomputed * at a higher level later */ if(vp->shape != NULL) HDfree(vp->shape); if(vp->dsizes != NULL) HDfree(vp->dsizes); /* Reset these two pointers to NULL after freeing. BMR 4/11/01 */ vp->shape = NULL; vp->dsizes = NULL; } else { /* Not a rec var, don't worry about it */ vp->numrecs = 1; } } /* end vp->data_ref */ count++; } /* end if vgroup class is variable */ bad_number_type: /* ? */ if (FAIL == Vdetach(var)) { ret_value = FAIL; goto done; } } /* end if DTAG_VG */ } /* end for vg_size */ /* create array of variables */ if(count) { handle->vars = NC_new_array(NC_VARIABLE, count, (Void *) variables); if (NULL == handle->vars) { ret_value = FAIL; goto done; } } else handle->vars = NULL; #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars: Created variable array %d \n", handle->vars); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ #ifdef HDF_READ_VARS fprintf(stderr, "hdf_read_vars: failed to created variable array \n"); #endif if (handle->vars != NULL) NC_free_array(handle->vars); } /* Normal cleanup */ if (variables != NULL) HDfree(variables); if (dims != NULL) HDfree(dims); return ret_value; } /* hdf_read_vars */ /* ---------------------------------------------------------------- ** Read in a cdf structure */ intn hdf_read_xdr_cdf(xdrs, handlep) XDR *xdrs; NC **handlep; { #if DEBUG char vgname[H4_MAX_NC_NAME]; int32 entries; #endif register int32 cdf_vg = FAIL; register int vgid = 0; int status; #ifdef OLD_WAY register int found; char class[H4_MAX_NC_CLASS]; #endif /* OLD_WAY */ CONSTR(FUNC,"hdf_read_xdr_cdf"); intn ret_value = SUCCEED; #if DEBUG fprintf(stderr, "hdf_read_xdr_cdf i've been called %d\n", (*handlep)->hdf_file); #endif #ifdef OLD_WAY /* find first thing of type _HDF_CDF */ vgid = -1; found = FALSE; while(!found && ((vgid = Vgetid((*handlep)->hdf_file, vgid)) != FAIL)) { cdf_vg = Vattach((*handlep)->hdf_file, vgid, "r"); if(cdf_vg == FAIL) { HERROR(DFE_CANTATTACH); ret_value = FAIL; goto done; } if (Vgetclass(cdf_vg, class) == FAIL) { ret_value = FAIl; goto done; } if(!HDstrcmp(class, _HDF_CDF)) found = TRUE; else { if (Vdetach(cdf_vg) == FAIL) { ret_value = FAIL; goto done; } } } if(!found) { ret_value = FAIL; goto done; } #else /* new way */ if((vgid = Vfindclass((*handlep)->hdf_file,_HDF_CDF))!=FAIL) { cdf_vg = Vattach((*handlep)->hdf_file, vgid, "r"); if(cdf_vg == FAIL) { HERROR(DFE_CANTATTACH); ret_value = FAIL; goto done; } } /* end if */ else { ret_value = FAIL; goto done; } #endif /* new way */ (*handlep)->vgid = vgid; /* ref of vgroup */ #if DEBUG Vinquire(cdf_vg, &entries, vgname); fprintf(stderr, "Found _HDF_CDF : %s (%d entries)\n", vgname, entries); #endif /* read in dimensions */ status = hdf_read_dims(xdrs, (*handlep), cdf_vg); if(status == FAIL) { ret_value = FAIL; goto done; } /* read in variables */ status = hdf_read_vars(xdrs, (*handlep), cdf_vg); if(status == FAIL) { ret_value = FAIL; goto done; } /* read in attributes */ if(hdf_num_attrs((*handlep), cdf_vg) > 0 ) (*handlep)->attrs = hdf_read_attrs(xdrs, (*handlep), cdf_vg); else (*handlep)->attrs = NULL; /* deatch from cdf vgroup */ if (FAIL == Vdetach(cdf_vg)) { ret_value = FAIL; goto done; } done: if (ret_value == FAIL) { /* Failure cleanup */ if (cdf_vg != FAIL) Vdetach(cdf_vg); } /* Normal cleanup */ return ret_value; } /* hdf_read_xdr_cdf */ /* ------------------------------------------------------------------- ** Read or write a CDF structure ** ** If we are reading, first try to read the information out of netCDF ** object stored explicitly in HDF files as netCDF objects. If ** that fails try to read SDSs out of the HDF file and interpret ** them as netCDF information. */ intn hdf_xdr_cdf(xdrs, handlep) XDR *xdrs; NC **handlep; { CONSTR(FUNC,"hdf_xdr_cdf"); /* for HERROR */ intn status; intn ret_value = SUCCEED; #ifdef HDF_XDR_CDF fprintf(stderr, "hdf_xdr_cdf: i've been called op = %d \n", xdrs->x_op); #endif switch(xdrs->x_op) { case XDR_ENCODE : if((*handlep)->vgid) { if (FAIL == hdf_cdf_clobber((*handlep))) { ret_value = FAIL; goto done; } } status = hdf_write_xdr_cdf(xdrs, handlep); if (FAIL == status) { #ifdef HDF_XDR_CDF fprintf(stderr, "hdf_xdr_cdf: hdf_write_xdr_cdf failed \n"); #endif ret_value = FAIL; goto done; } break; case XDR_DECODE : if(FAIL == (status = hdf_read_xdr_cdf(xdrs, handlep))) { #ifdef HDF_XDR_CDF fprintf(stderr, "hdf_xdr_cdf: hdf_read_xdr_cdf failed \n"); fprintf(stderr," going to hdf_read_sds \n"); #endif status = hdf_read_sds_cdf(xdrs, handlep); if(FAIL == status) { #ifdef HDF_XDR_CDF fprintf(stderr, "hdf_xdr_cdf: hdf_read_sds failed \n"); #endif HERROR(DFE_BADNDG); ret_value = FAIL; goto done; } } /* end if */ break; case XDR_FREE : if (FAIL == NC_free_cdf((*handlep))) ret_value = FAIL; else ret_value = SUCCEED; break; default: ret_value = FAIL; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* hdf_xdr_cdf */ /* ---------------------- hdf_vg_clobber --------------- */ /* Delete a VGroup that is on the disk. Basically, we will want to just trash everything inside of it, making sure that any VDatas with class == DATA are saved */ intn hdf_vg_clobber(handle, id) NC *handle; int id; { int t, n; int32 vg, tag, ref; int32 status; intn ret_value = SUCCEED; #ifdef HDF_VG_CLOBBER fprintf(stderr, "hdf_vg_clobber: has been called for vgroup ref=%d\n",id); #endif /* loop through and Clobber all top level VGroups */ /* attach to top level vgroup with read access */ vg = Vattach(handle->hdf_file, id, "r"); if(FAIL == vg) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: Vattach failed for vgroup ref =%d\n",id); HEprint(stderr,0); #endif ret_value = FAIL; goto done; } /* get number of members in vgroup */ n = Vntagrefs(vg); if (FAIL == n) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: Vntagrefs failed \n"); #endif ret_value = FAIL; goto done; } /* Loop though and kill stuff */ for (t = 0; t < n; t++) { /* get tag/ref of elment in vgroup */ if (FAIL == Vgettagref(vg, t, &tag, &ref)) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: Vgettagref failed \n"); #endif ret_value = FAIL; goto done; } #ifdef HDF_VG_CLOBBER fprintf(stderr, "hdf_vg_clobber: Looking at <%d, %d> in vgroup\n", tag, ref); #endif /* switch on the type of element: vgroup, vdata, data, everyting else */ switch(tag) { case DFTAG_VG : /* recursive call */ #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: found a vgroup ref %d in vgroup %d\n",ref,id); #endif /* check if vgroup exists in file before trying to delete it's members */ if (vexistvg(handle->hdf_file, ref) != FAIL) { if (FAIL == hdf_vg_clobber(handle, ref)) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: hdf_vg_clobber failed member whose vgroup ref=%d\n",ref); #endif ret_value = FAIL; goto done; } } break; case DFTAG_VH : /* check if vdata exists in file before trying to delete it */ if (vexistvs(handle->hdf_file, ref) != FAIL) { status = VSdelete(handle->hdf_file, (int32) ref); if (FAIL == status) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: VSdelete failed for vdata ref=%d\n",ref); #endif ret_value = FAIL; goto done; } } #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: VSdelete deleted vdata ref=%d\n",ref); #endif break; case DFTAG_SD : /* * Don't delete actual numeric data * I guess this means we save it? -GV */ break; default: /* delete other objects given tag/ref in file */ if (FAIL == Hdeldd(handle->hdf_file, (uint16) tag, (uint16) ref)) { #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: Hdeldd failed \n"); #endif ret_value = FAIL; goto done; } #ifdef HDF_VG_CLOBBER fprintf(stderr,"hdf_vg_clobber: Hdeldd deleted tag/ref=%d/%d\n",tag,ref); #endif break; } } ret_value = Vdetach(vg); #ifdef HDF_VG_CLOBBER fprintf(stderr, "hdf_vg_clobber: Vdetach, ret_value=%d \n",ret_value); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ #ifdef HDF_VG_CLOBBER fprintf(stderr, "hdf_vg_clobber: failed \n"); #endif } /* Normal cleanup */ return ret_value; } /* hdf_vg_clobber */ /* --------------------------- hdf_cdf_clobber ---------------------------- */ /* Delete a netCDF structure that has been already written to disk */ intn hdf_cdf_clobber(handle) NC *handle; { int32 vg, tag, ref; int n, t, status; intn ret_value = SUCCEED; if(!handle->vgid) { /* okay right? */ ret_value = SUCCEED; /* hmm...since ref of vgroup is zero? */ goto done; } /* Close open VData pointers */ if (FAIL == hdf_close(handle)) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: hdf_close failed \n"); #endif ret_value = FAIL; goto done; } #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: closed all open vdata handles \n"); #endif /* loop through and Clobber all top level VGroups */ vg = Vattach(handle->hdf_file, handle->vgid, "r"); if(vg == FAIL) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vattach failed for vgroup ref=%d\n", handle->vgid); #endif ret_value = FAIL; goto done; } /* get number of members of Vgroup */ n = Vntagrefs(vg); if (FAIL == n) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vntagrefs failed \n"); #endif ret_value = FAIL; goto done; } /* Loop though and just kill everyone */ for (t = 0; t < n; t++) { if (FAIL == Vgettagref(vg, t, &tag, &ref)) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vgettagref failed for vgroup %d\n", handle->vgid); #endif ret_value = FAIL; goto done; } /* if this member is a vgroup destroy everything in it */ if(tag == DFTAG_VG) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: member of vgroup is a vgroup,"); fprintf(stderr,"deleteing everything in vgroup %d \n",ref); #endif /* check if vgroup exists in file */ if (vexistvg(handle->hdf_file, ref) != FAIL) { hdf_vg_clobber(handle, ref); } } switch(tag) { case DFTAG_VG: status = Vdelete(handle->hdf_file, (int32) ref); if (FAIL == status) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vdelete failed for vgroup %d\n", ref); #endif ret_value = FAIL; goto done; } #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vdelete deleted vgroup %d\n", ref); #endif break; case DFTAG_VH: status = VSdelete(handle->hdf_file, (int32) ref); if (FAIL == status) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: VSdelete failed for vdata %d\n", ref); #endif ret_value = FAIL; goto done; } #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: VSdelete deleted vdata %d\n", ref); #endif break; default: status = Hdeldd(handle->hdf_file, (uint16) tag, (uint16) ref); if (FAIL == status) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Hdeldd failed for tag/ref %d/%d\n", tag,ref); #endif ret_value = FAIL; goto done; } #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Hdeldd deleted tag/ref %d/%d\n", tag,ref); #endif break; } /* end switch tag */ }/* end for every member in vgroup */ if (FAIL == Vdetach(vg)) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vdetach failed for vgroup %d\n", handle->vgid); #endif ret_value = FAIL; goto done; } status = Vdelete(handle->hdf_file, (int32) handle->vgid); if (FAIL == status) { #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Vdelete failed for vgroup %d\n", handle->vgid); #endif ret_value = FAIL; goto done; } #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber:Clobbering VGroup %d\n\n", handle->vgid); #endif handle->vgid = 0; /* reset ref of SDS vgroup to invalid ref */ done: if(ret_value == FAIL) { /* Error condition cleanup */ #ifdef HDF_CDF_CLOBBER fprintf(stderr,"hdf_cdf_clobber: Failed to Clobber VGroup %d\n\n", handle->vgid); #endif } /* end if */ /* Normal function cleanup */ return ret_value; } /* hdf_cdf_clobber */ /* -------------------------- hdf_close --------------------- */ /* We're about to close the file, do last minute HDF cleanup Also dump the number of records currently instatiated into the unlimited dimensions. BUG: All unlimited dimensions will have the same size BMR: handle->numrecs is used to write out the dim value for all unlimited dimensions without checking for netCDF file as in other places where vp->numrecs is used for HDF file and handle->numrecs is used for netCDF file. I believe this is what the "BUG:" comment above means. 6/24/2013 */ intn hdf_close(handle) NC *handle; { NC_array *tmp = NULL; NC_var **vp = NULL; Void *vars = NULL; register int i; int id, sub_id; int32 vg, dim; int32 vs; char class[H4_MAX_NC_CLASS] = ""; intn ret_value = SUCCEED; #ifdef LATER CONSTR(FUNC,"hdf_close"); #endif /* LATER */ #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: I've been called\n"); #endif /* loop through and detach from variable data VDatas */ if(handle->vars) { tmp = handle->vars; vars = handle->vars->values; for(i = 0; i < tmp->count; i++) { vp = (NC_var **) vars; if((*vp)->aid != FAIL) { if (FAIL == Hendaccess((*vp)->aid)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: Hendaccess failed for vdata aid %d\n", (*vp)->aid); #endif ret_value = FAIL; goto done; } } (*vp)->aid = FAIL; /* reset access id */ vars += tmp->szof; } /* end for each variable */ } /* loop through top level looking for unlimited dimensions. we write them out? -GV */ if(handle->flags & NC_NDIRTY) { id = -1; vg = Vattach(handle->hdf_file, handle->vgid, "r"); if (FAIL == vg) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: Vattach failed for vgroup ref %d\n", handle->vgid); #endif ret_value = FAIL; goto done; } /* go through vgroup hierachy */ while((id = Vgetnext(vg, id)) != FAIL) { if(Visvg(vg, id)) { dim = Vattach(handle->hdf_file, id, "r"); if (FAIL == dim) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: Vattach failed for vgroup ref %d\n", id); #endif ret_value = FAIL; goto done; } if (FAIL == Vgetclass(dim, class)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: Vgetclass failed for vgroup ref %d\n", id); #endif ret_value = FAIL; goto done; } /* look for proper vgroup */ if(!HDstrcmp(class, _HDF_UDIMENSION)) { sub_id = -1; /* look for vdata in vgroup */ while((sub_id = Vgetnext(dim, sub_id)) != FAIL) { if(Visvs(dim, sub_id)) { /* yes, attach to vdata */ vs = VSattach(handle->hdf_file, sub_id, "w"); if(vs == FAIL) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSattach failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; /* HEprint(stdout, 0); */ } /* get class of vdata */ if (FAIL == VSgetclass(vs, class)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSgetclass failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; } /* are these dimension vdatas? */ if(!HDstrcmp(class, DIM_VALS) || !HDstrcmp(class, DIM_VALS01)) { /* yes */ int32 val = handle->numrecs; if (FAIL == VSsetfields(vs, "Values")) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSsetfields failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; } if (FAIL == VSseek(vs, 0)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSseek failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; } /* write out dimension vdatas? */ if(VSwrite(vs, (uint8 *)&val, 1, FULL_INTERLACE) != 1) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSwrite failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; } } /* detach from vdata */ if (FAIL == VSdetach(vs)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: VSdetach failed for vdata ref %d\n", sub_id); #endif ret_value = FAIL; goto done; } } /* end if vdata */ } /* end while looking for vdata in vgroup */ } /* end if UNLIMTED dimension vgroup */ if (FAIL == Vdetach(dim)) { fprintf(stderr,"hdf_close: Vdetach failed for vgroup ref %d\n", id); ret_value = FAIL; goto done; } }/* end if vgroup */ } /* end if looking through toplevel vgroup hierachy */ if (FAIL == Vdetach(vg)) { #ifdef HDF_CLOSE fprintf(stderr,"hdf_close: Vdetach failed for vgroup ref %d\n", handle->vgid); #endif ret_value = FAIL; goto done; } } /* end if we need to flush out unlimited dimensions? */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* hdf_close */ /*******************************************************************************/ #endif /* HDF */ /* * How much space will the xdr'd NC description take. * */ int NC_xlen_cdf(cdf) NC *cdf ; { int len = 8 ; if(cdf == NULL) return(0) ; len += NC_xlen_array(cdf->dims) ; len += NC_xlen_array(cdf->attrs) ; len += NC_xlen_array(cdf->vars) ; return(len) ; } #define RECPOS 4L /* seek index of numrecs value */ bool_t xdr_numrecs(xdrs, handle) XDR *xdrs; NC *handle; { #ifdef HDF if(handle->file_type == HDF_FILE) return TRUE; /* hmm...why? */ #endif if( (handle->flags & NC_NOFILL) && xdrs->x_op == XDR_ENCODE && handle->begin_rec > 0) { /* * we need to write something just beyond the last * record so we can successfully read back the * entire last record. */ if( !xdr_setpos(xdrs, handle->begin_rec + handle->numrecs * handle->recsize) ) { nc_serror("Can't set position to EOF") ; return(FALSE) ; } #ifdef RDEBUG fprintf(stderr,"\txdr_numrecs %ld = %d + %ld * %d\n", xdr_getpos(xdrs), handle->begin_rec, handle->numrecs, handle->recsize) ; #endif /* RDEBUG */ if( !xdr_u_long(xdrs, &(handle->numrecs)) ) return(FALSE) ; } if( !xdr_setpos(xdrs, RECPOS) ) { nc_serror("Can't set position to RECPOS") ; return(FALSE) ; } return( xdr_u_long(xdrs, &(handle->numrecs)) ) ; } static bool_t xdr_4bytes(xdrs, cp) XDR *xdrs ; char *cp ; /* at least 4 valid bytes */ { return xdr_opaque(xdrs, cp, 4) ; } static bool_t xdr_2shorts(xdrs, sp) XDR *xdrs ; short *sp ; /* at least 2 valid shorts */ { return xdr_shorts(xdrs, sp, 2) ; } bool_t xdr_NC_fill(xdrs, vp) XDR *xdrs ; NC_var *vp ; { char fillp[2*sizeof(double)] ; bool_t stat ; bool_t (*xdr_NC_fnct)() ; u_long alen = vp->len ; NC_attr **attr = NULL ; /* * set up fill value */ /* start with the default */ NC_arrayfill((Void *)fillp, (size_t)2*sizeof(double), vp->type) ; /* * if there is a valid user defined value, use it instead */ attr = NC_findattr(&vp->attrs, _FillValue) ; if( attr != NULL ) { if( (*attr)->data->type != vp->type || (*attr)->data->count != 1 ) NCadvise(NC_EBADTYPE, "var %s: _FillValue type mismatch", vp->name->values) ; else { int len = NC_typelen(vp->type) ; char *cp = fillp ; while(cp < &fillp[sizeof(fillp) -1]) { NC_copy_arrayvals(cp, (*attr)->data) ; cp += len ; } } } switch(vp->type){ case NC_BYTE : case NC_CHAR : alen /= 4 ; xdr_NC_fnct = xdr_4bytes ; break ; case NC_SHORT : alen /= 4 ; xdr_NC_fnct = xdr_2shorts ; break ; case NC_LONG : alen /= 4 ; #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ xdr_NC_fnct = xdr_int ; #else xdr_NC_fnct = xdr_long ; #endif break ; case NC_FLOAT : alen /= 4 ; xdr_NC_fnct = xdr_float ; break ; case NC_DOUBLE : alen /= 8 ; xdr_NC_fnct = xdr_double ; break ; default : NCadvise(NC_EBADTYPE, "bad type %d", vp->type) ; return(FALSE) ; } /* write out fill values */ for(stat = TRUE ; stat && (alen > 0) ; alen--) { stat = (*xdr_NC_fnct)(xdrs,fillp) ; } if(!stat) { NCadvise(NC_EXDR, "xdr_NC_fill") ; return(FALSE) ; } return(TRUE) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/hdfnctest.c0000644000000000000000000000343312421456623015601 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5109 $"; #endif #include "mfhdf.h" #include "hdftest.h" /* all test functions to be called in main */ extern int test_unlim(); extern int test_ncunlim(); int main(int argc, char *argv[]) { intn status; /* status flag */ int num_errs = 0; /* number of errors so far */ /* Tests reading/writing datasets with unlimited dimension via HDF API (bugzilla 1378) -BMR, Jan 07, 2009 */ status = test_unlim(); /* in tunlim.c */ num_errs = num_errs + status; /* Tests reading/writing variables with unlimited dimension via nc API (bugzilla 1378) -BMR, Jan 07, 2009 */ status = test_ncunlim(); /* in tncunlim.c */ num_errs = num_errs + status; if (num_errs == 0) printf("*** HDF-nc test passes ***\n"); else \ printf("*** HDF-nc test fails ***\n"); return num_errs; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfdatainfo.c0000644000000000000000000010346312421456623015733 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* NOTE: this file and other "datainfo" related files will be configured so that this feature will not be built by default. -BMR Update: THG and NASA had decided to include all features developed for the HDF Mapping Project in the library -BMR (~Jan 2011) */ /****************************************************************************** FILE mfdatainfo.c This file contains the multi-file SD interface functions that provide information about location and size of raw data. This type of information will allow applications to extract raw data from an HDF file without the use of HDF4 library. These features were developed to support the HDF4 Mapping project (2010-2011.) As with the rest of the SD API, these functions have names beginning with SD. EXPORTED ROUTINES ----------------- SDgetdatainfo -- retrieves location and size of an SDS' data SDgetattdatainfo -- retrieves location and size of an attribute's data SDgetoldattdatainfo -- retrieves location and size of an old-style attribute's data SDgetanndatainfo -- retrieves location and size of an annotation's data LOCAL ROUTINES -------------- get_attr_tag -- Convert the name of an attribute to its associated hdf tag ******************************************************************************/ #include "local_nc.h" #ifdef HDF #ifndef DATAINFO_MASTER #define DATAINFO_MASTER #endif #include "mfhdf.h" #ifdef H4_HAVE_LIBSZ /* we have the szip library */ #include "szlib.h" #endif #ifndef MFSD_INTERNAL #define MFSD_INTERNAL #endif #ifdef MFSD_INTERNAL /* Local function prototypes */ #include "mfprivate.h" #endif PRIVATE intn get_attr_tag(char *attr_name, uint16* attr_tag); /****************************************************************************** NAME SDgetdatainfo -- Retrieves location and size of data blocks. USAGE intn SDgetdatainfo(sdsid, chk_coord, start_block, info_count, offsetarray, lengtharray) int32 sdsid IN: dataset ID int32 *chk_coord IN: chunk coord array or NULL for non-chunk SDS int32 start_block IN: indicating where to start reading offsets uintn info_count IN: number of data blocks the arrays can hold int32 *offsetarray OUT: array for offsets int32 *lengtharray OUT: array for lengths RETURNS The number of data blocks retrieved if successful and FAIL, otherwise. DESCRIPTION SDgetdatainfo retrieves two lists, one containing offsets to sdsid's data blocks and the other containing the lengths of those blocks. If start_block is 0, SDgetdatainfo will start getting data info from the beginning of the data set's data. If start_block is greater than the number of blocks in the data set's data, SDgetdatainfo will return FAIL. When both offsetarray and lengtharray lists are NULL, SDgetdatainfo will call HDgetdatainfo passing in NULLs to return the actual number of blocks in the data set's data. Otherwise, it will pass in non-NULL arrays to retrieve the offset and length of data blocks in the specified data set. The non-NULL lists are assumed to be allocated sufficiently for holding info_count values. If info_count is larger than the actual number of offsets/lengths starting at start_block to the end of the data, then only the actual number offsets/lengths will be retrieved. MODIFICATION BMR - 2010/07/14: Revised to combine SDgetdatainfo and SDgetdatainfo_count ******************************************************************************/ intn SDgetdatainfo(int32 sdsid, int32 *chk_coord, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray) { CONSTR(FUNC, "SDgetdatainfo"); /* for HGOTO_ERROR */ NC *handle; NC_var *var; intn count = FAIL; /* number of data blocks */ intn ret_value = 0; /* Clear error stack */ HEclear(); /* Validate arguments */ /* Getting only offsets or lengths is not allowed */ if ((offsetarray != NULL && lengtharray == NULL) || (offsetarray == NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Just in case user forgot to allocate buffers */ if ((offsetarray == NULL && lengtharray == NULL) && (info_count > 0)) HGOTO_ERROR(DFE_NOTENOUGH, FAIL); /* Get NC_var record */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL || handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If the data ref# of the SDS is 0, there is no storage is created yet */ if (var->data_ref == 0) { count = 0; /* no blocks */ } else { /* If both arrays are NULL, get the number of data blocks and return */ if (offsetarray == NULL && lengtharray == NULL) { count = HDgetdatainfo(handle->hdf_file, var->data_tag, var->data_ref, chk_coord, start_block, info_count, NULL, NULL); if (count == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Application requests actual offsets/lengths */ else { count = HDgetdatainfo(handle->hdf_file, var->data_tag, var->data_ref, chk_coord, start_block, info_count, offsetarray, lengtharray); if (count == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* Returning number of data blocks */ ret_value = count; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* SDgetdatainfo */ /****************************************************************************** NAME SDgetattdatainfo -- Retrieves location and size of attribute's data. USAGE intn SDgetattdatainfo(id, attrindex, offset, length) int32 id IN: file ID, SDS ID, or dimension ID int32 attrindex IN: index of the attribute being inquired int32 *offset OUT: offset of attribute's data int32 *length OUT: length of attribute's data RETURNS The number of data blocks retrieved, which should be 1, if successful and FAIL, otherwise. DESCRIPTION There are attributes created by SD API functions and those created by the DFSD API functions. When the searched attribute was created by the SD API, the attribute would be stored in a vdata. Thus, SDgetattdatainfo will use VSgetdatainfo to get the location and length of the attribute's. When the searched attribute was created by the DFSD API, it would be stored with the SDS via an attribute tag/ref pair. Refer to the function header of SDgetoldattdatainfo for more details. The application will need to call SDgetoldattdatainfo to get data info for this type of attributes. Thus, SDgetattdatainfo will return to caller with error code DFE_NOVGREP so caller can call SDgetoldattdatainfo to get to its attributes directly from the file. MODIFICATION 2010/10/14: Revised to remove the parameter attrname because, for hmap project, it makes sense to just provide the attribute index. -BMR ******************************************************************************/ intn SDgetattdatainfo(int32 id, int32 attrindex, int32 *offset, int32 *length) { CONSTR(FUNC, "SDgetattdatainfo"); NC *handle; NC_var *var; NC_dim *dim; int32 vg_ref=0, /* ref# of the VG representing a file, SDS, or dim */ n_elements, /* number of elements in the file/SDS/dim vgroup */ vs_id=-1, /* VS id, needed while looking for _HDF_ATTRIBUTE */ vg_id=-1, /* id of the file/SDS/dimension vgroup */ var_idx; /* index of the variable representing the given dim */ char vsclass[H4_MAX_NC_CLASS] = "", /* vs class, is it _HDF_ATTRIBUTE? */ attrname[H4_MAX_NC_CLASS] = "",/* name of the given attribute */ vsname[H4_MAX_NC_CLASS] = ""; /* vs name to see if it's the inquired attr's name*/ int32 ntype=0, /* need these because SDattrinfo doesn't... */ count=0; /* ...take NULL pointers for not needed arguments */ int ii; intn status, /* returned value */ found, /* TRUE when attribute is found */ ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate arguments */ /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Index must be positive */ if (attrindex < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the attribute's name */ status = SDattrinfo(id, attrindex, attrname, &ntype, &count); /* Check if the id given is a file id, or SDS id, or dimension id, and get appropriate info structure */ handle = SDIhandle_from_id(id, CDFTYPE); /* not a file id */ if(handle == NULL) { /* then check if it's SDS id */ handle = SDIhandle_from_id(id, SDSTYPE); /* not an SDS id */ if(handle == NULL) { /* then check if it's a dimension id */ handle = SDIhandle_from_id(id, DIMTYPE); /* not a dimension id either, return with an error */ if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* dimension id is given, get the dimension info */ dim = SDIget_dim(handle, id); if(dim == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* look for the variable representing this dimension, ie. coordinate variable */ var_idx = SDIgetcoordvar(handle, dim, id, (int32)0); if(var_idx == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the variable object */ var = NC_hlookupvar(handle, var_idx); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the ref number of the vgroup representing this dim */ vg_ref = var->vgid; /* If this dimension is not represented by a vgroup (old dimension, HDF 3.2, released in 1993) return to caller with error code DFE_NOVGREP so caller can call SDgetoldattdatainfo to get to its attributes directly from the file */ if (vg_ref == 0) HGOTO_DONE(DFE_NOVGREP); } /* SDS id is given */ else { /* get the variable record */ if(handle->vars == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); var = SDIget_var(handle, id); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the reference number of the vgroup representing this SDS */ vg_ref = var->vgid; /* If this data set is not represented by a vgroup (old data set, HDF 3.2, released in 1993) return to caller with error code DFE_NOVGREP so caller can call SDgetoldattdatainfo to get to its attributes directly from the file */ if (vg_ref == 0) HGOTO_DONE(DFE_NOVGREP); } } /* File id is given */ else { /* make sure it is an HDF file */ if(handle->file_type != HDF_FILE) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the reference number of the vgroup representing the file */ vg_ref = handle->vgid; /* I believe file did not have the case of old pre-defined attributes, so no special handling for DFE_NOVGREP here. -BMR 2011/1/11 */ /* Validate the vgroup ref# */ if (vg_ref == 0) HGOTO_ERROR(DFE_ARGS, FAIL); } /* Get access to the vgroup and get the number of elements belong to it */ vg_id = Vattach(handle->hdf_file, vg_ref, "r"); if(vg_id == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); n_elements = Vntagrefs(vg_id); if (n_elements == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Look through the vgroup for vdatas of class _HDF_ATTRIBUTE. If one is found, check to see if its name matches the searched attribute. If it matches, use VSgetdatainfo to get offset and length of the attribute's data, then set flag to terminate the search */ found = FALSE; for (ii = 0; ii < n_elements && !found; ii++) { int32 elem_tag, elem_ref; /* get current tag/ref */ if (Vgettagref(vg_id, ii, &elem_tag, &elem_ref) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* current element is a vdata */ if(elem_tag == DFTAG_VH) { vs_id = VSattach(handle->hdf_file, elem_ref, "r"); if(vs_id == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* get the vdata's class */ if (VSgetclass(vs_id, vsclass) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* current vdata represents an attribute */ if(!HDstrcmp(vsclass, _HDF_ATTRIBUTE)) { /* get the vdata's name */ if (VSgetname(vs_id, vsname) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* the searched attribute if found */ if (!HDstrcmp(attrname, vsname)) { intn info_count=0; /* get offset/length of attribute's data */ info_count = VSgetdatainfo(vs_id, 0, 1, offset, length); /* attribute data should only be in 1 block */ if (info_count != 1) /* attribute data should only be in 1 block */ HGOTO_ERROR(DFE_INTERNAL, FAIL); /* set flag to terminate the search, and return info count*/ found = TRUE; ret_value = info_count; } } /* Close access to vdata */ if (VSdetach(vs_id) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); vs_id = -1; } } /* Close access to the vgroup */ if (Vdetach(vg_id) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Failure cleanup */ if (vs_id != -1) if (VSdetach(vs_id) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); if (vg_id != -1) if (Vdetach(vg_id) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } /* Normal cleanup */ return ret_value; } /* SDgetattdatainfo */ /****************************************************************************** NAME get_attr_tag -- Convert the name of a pre-defined attribute to its associated hdf tag (Private) USAGE intn get_attr_tag(attr_name, *attr_tag) char *attr_name IN: name of the luf attributes uint16 *attr_tag OUT: associated tag of luf RETURNS SUCCEED/FAIL DESCRIPTION In older files, when there were only pre-defined attributes, an attribute was not stored in vdata, but was located by an attribute tag/ref pair, which is an element of the group that represents the SDS. The values of the SDS's attribute are followed by the values of its dimensions' attributes, each separated by a null character. This function gives the associated tag of an attributes so that application can use tag/ref to read the attribute string. ******************************************************************************/ PRIVATE intn get_attr_tag(char *attr_name, uint16* attr_tag) { intn ret_value = SUCCEED; if (HDstrcmp(_HDF_LongName, attr_name) == 0) *attr_tag = DFTAG_SDL; else if (HDstrcmp(_HDF_Units, attr_name) == 0) *attr_tag = DFTAG_SDU; else if (HDstrcmp(_HDF_Format, attr_name) == 0) *attr_tag = DFTAG_SDF; else if (HDstrcmp(_HDF_CoordSys, attr_name) == 0) *attr_tag = DFTAG_SDC; else if ((HDstrcmp(_HDF_ValidMin, attr_name) == 0) || (HDstrcmp(_HDF_ValidMax, attr_name) == 0) || (HDstrcmp(_HDF_ValidRange, attr_name) == 0)) *attr_tag = DFTAG_SDM; else if (HDstrcmp(_FillValue, attr_name) == 0) *attr_tag = DFTAG_FV; else if ((HDstrcmp(_HDF_CalibratedNt, attr_name) == 0) || (HDstrcmp(_HDF_ScaleFactor, attr_name) == 0) || (HDstrcmp(_HDF_ScaleFactorErr, attr_name) == 0) || (HDstrcmp(_HDF_AddOffset, attr_name) == 0) || (HDstrcmp(_HDF_AddOffsetErr, attr_name) == 0)) *attr_tag = DFTAG_CAL; /* We need to decide how to handle this attribute when we see it... else case DFTAG_SDLNK: */ else { ret_value = FAIL; fprintf(stderr, "get_attr_tag: attr_name = <%s> is not recognized currently\n", attr_name); } return ret_value; } /* get_attr_tag */ /****************************************************************************** NAME SDgetoldattdatainfo -- Retrieves location and size of old predefined attribute's data. USAGE intn SDgetoldattdatainfo(id, sdsid, attr_name, offset, length) int32 dim_id IN: dimension ID int32 sdsid IN: ID of dataset the dim belongs to char *attr_name IN: name of the attribute being inquired int32 *offset OUT: buffer for offset int32 *length OUT: buffer for length RETURNS The number of data blocks retrieved, which should be 1, if successful and FAIL, otherwise. DESCRIPTION In some older files, when data sets and dimensions were not stored as vgroup yet, the pre-defined attributes that belong to the data sets and dimensions were written as followed: attr_tag/attr_ref specify offset and length of the attribute string such as: "nullnullnull..." Some examples of attr_tag are: (refer to htags.h for more) DFTAG_SDL for Labels attribute DFTAG_SDU for Units attribute ... SDgetoldattdatainfo retrieves the offset and length of the attribute that belongs to a data set or a dimension. Note that only Label, Units, and Format (LUF) are applicable to dimensions. The other attributes are only available to the data set. DESIGN NOTE: This function could be modified to return lists of offsets and lengths for attributes of data set and dimension in one call, in the case of LUF. That approach would reduce the need to go over the attribute strings multiple times for each dimension. However, it is pending on how the map writer uses the function. -BMR (2011/1/13) It seemed to suit the writer so we stay with this design at this time. -BMR (2011/3/1) MODIFICATION 2011/1/11: Revised to handle offset/length of SDS' attribute too. -BMR ******************************************************************************/ intn SDgetoldattdatainfo(int32 dim_id, int32 sdsid, char *attr_name, int32 *offset, int32 *length) { CONSTR(FUNC, "SDgetoldattdatainfo"); NC *handle; NC_var *var; int32 off, len, dim_att_len=0, sdsluf_len=0, offp = 0; char *lufbuf=NULL, *lufp=NULL; uint16 att_tag, att_ref; intn dimidx_infile=0, dimidx_invar=0; intn isdim = 0; int ii; intn status, /* returned value */ ret_value = 0; /* Clear error stack */ HEclear(); /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Attribute name must be provided */ if (attr_name == NULL || attr_name[0] == '\0') HGOTO_ERROR(DFE_ARGS, FAIL); /* Check if a dimension ID is given then set flag */ handle = SDIhandle_from_id(dim_id, DIMTYPE); if(handle != NULL) isdim = 1; /* Check if the given dataset ID really is a dataset ID; dataset ID must always be available */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the variable object of the dataset */ var = SDIget_var(handle, sdsid); if(var == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If this variable doesn't have a valid NDG ref, we cannot proceed */ if (var->ndg_ref == 0) HGOTO_ERROR(DFE_ARGS, FAIL); att_tag = 0; att_ref = var->ndg_ref; /* all elements of this var have the same ref# */ /* Convert a predefined attribute name into its corresponding HDF tag */ status = get_attr_tag(attr_name, &att_tag); if (status == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); if (att_tag != 0 && att_ref != 0) { /* Get offset/length of the attribute values. */ off = Hoffset(handle->hdf_file, att_tag, att_ref); if (off == FAIL) HGOTO_ERROR(DFE_BADOFFSET, FAIL); len = Hlength(handle->hdf_file, att_tag, att_ref); if (len == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); /* If the attribute pointed to by "off" and "len" is a LUF string, which includes LUFs of the data set and its dimensions all together, then parse the string to obtain offsets/lengths of the data set's LUF and of the dimensions' LUFs. Otherwise, return "off" and "len" for the inquired attribute. */ if (att_tag != DFTAG_SDL && att_tag != DFTAG_SDU && att_tag != DFTAG_SDF) { *offset = off; *length = len; HGOTO_DONE(1); } if (len == 0) { HGOTO_DONE(0); } /* Read the luf string */ lufbuf = (char *)HDmalloc(len+1); if (lufbuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); Hgetelement(handle->hdf_file, att_tag, att_ref, lufbuf); /* * Parse the luf string to obtain the offset/length of the requested luf */ /* Start at the beginning of the data set's luf */ lufp = lufbuf; /* Get the length of the data set's luf */ sdsluf_len = HDstrlen(lufbuf); /* If data set's attribute is being inquired, then return with offset and length of the SDS' attribute's data only */ if (!isdim) { *offset = off; *length = sdsluf_len; } /* If a dimension's attribute is being inquired, then continue parsing the attribute string to get the appropriate dimension's attribute */ else { char *dim_att=NULL; /* to hold a dimension's attribute */ /* Move cursor forward to the first dimension's attribute */ lufp += sdsluf_len + 1; /* Convert dimension id back to index */ dimidx_infile = dim_id & 0xffff; /* The dimidx_infile is the index of the dimension relative to the file. We need to find the index of dim within the variable */ dimidx_invar = -1; for (ii = 0; ii < var->assoc->count && dimidx_invar != ii; ii++) if (var->assoc->values[ii] == dimidx_infile) dimidx_invar = ii; /* Walk through each dimension to find requested luf */ offp = 0; /* offset pointer */ for (ii = 0; ii <= dimidx_invar; ii++) { /* NOTE: Should make tests for all cases to make sure all empty attributes are covered -BMR */ /* If dimension doesn't have attribute, its attr len is 0 */ if (HDstrlen(lufp) == 0) dim_att_len = 0; /* If dimension has attribute, calculate its attr length */ else { dim_att = (char *)HDmalloc(HDstrlen(lufp) + 1); if (dim_att == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Extract current dimension's attribute */ HDstrcpy(dim_att, (char *) lufp); dim_att[HDstrlen(lufp)] = 0; dim_att_len = HDstrlen(dim_att); } /* Move forward if this is not the dim we're looking for */ if (ii != dimidx_invar) { /* move cursor forward to the next dimension's attribute */ lufp += dim_att_len + 1; /* <- 1 is for the NULL */ /* add the length to the offset so far */ offp += dim_att_len + 1; } if (dim_att != NULL) { HDfree(dim_att); dim_att = NULL; } } /* Calculate offset and length of the requested dimension's luf */ /* - off: offset where luf string starts, returned by Hoffset */ /* - sdsluf_len: length of the dataset luf + 1 for the null space */ /* - offp: offset accummulated of all dimension lufs before the */ /* requested one */ *offset = off + sdsluf_len + 1 + offp; *length = dim_att_len; } ret_value = 1; } if (lufbuf) HDfree(lufbuf); done: if (ret_value == FAIL) { /* Failure cleanup */ if (lufbuf) HDfree(lufbuf); } /* Normal cleanup */ return ret_value; } /* SDgetoldattdatainfo */ /****************************************************************************** NAME SDgetanndatainfo -- Retrieves location and size of annotations' data. USAGE intn SDgetanndatainfo(sdsid, annot_type, size, offsetarray, lengtharray) int32 sdsid IN: SDS ID ann_type annot_type IN: type of annotations to retrieve data info uintn size IN: size of offsetarray and lengtharray int32 *offsetarray OUT: offsets of annotations' data int32 *lengtharray OUT: lengths of annotations' data RETURNS The number of annotation data info retrieved, if successful and FAIL, otherwise. DESCRIPTION SDgetanndatainfo retrieves the location and size specifying data of the annotations of the specified type from the dataset. There may be more than one annotations, but each annotation has only one block of data. IMPORTANT NOTE If caller provides buffers that are smaller than the number of annotations then SDgetanndatainfo only fills the buffers up to its size, and returns the number of annotations retrieved. That means, the rest of the annotations are not retrievable. However, this function is designed for hmap writer at this point, and such insufficient buffers situation is not anticipated, beside the fact that we're running out of time. In the future, or when such need arises, the function should be modified to include another parameter to allow retrieving partial annotations. -BMR 2011/1/9 ******************************************************************************/ intn SDgetanndatainfo(int32 sdsid, ann_type annot_type, uintn size, int32* offsetarray, int32* lengtharray) { CONSTR(FUNC, "SDgetanndatainfo"); int32 file_id=FAIL, /* file, AN API, annotation IDs */ an_id=FAIL, ann_id=FAIL; NC *handle = NULL; /* file structure */ NC_var *var = NULL; /* variable structure of sds, to get NDG ref */ int32 *dannots = NULL, /* list of data annotation IDs */ n_flabels = 0, /* number of file labels */ n_fdescs = 0, /* number of file descriptions */ n_dlabels = 0, /* number of object labels */ n_ddescs = 0; /* number of file descriptions */ uint16 elem_tag, elem_ref; /* tag/ref of dataset's NDG */ intn num_annots, /* number of annotation of requested type */ ii, ret_value = 0; /* Clear error stack */ HEclear(); /* Validate array size */ if (size == 0 && (offsetarray != NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Getting only offsets or lengths is not allowed */ if ((offsetarray != NULL && lengtharray == NULL) || (offsetarray == NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check if the given id is a file id */ handle = SDIhandle_from_id(sdsid, CDFTYPE); /* It is a file id, process its annotations appropriately */ if (handle != NULL) { /* Open file to start Annotation inteface */ if ((file_id = Hopen(handle->path, DFACC_READ, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if ((an_id = ANstart(file_id)) == FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Validate annotation type */ if (annot_type != AN_FILE_LABEL && annot_type != AN_FILE_DESC) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get numbers of file annotations */ ret_value = ANfileinfo(an_id, &n_flabels, &n_fdescs, &n_dlabels, &n_ddescs); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (annot_type == AN_FILE_LABEL) num_annots = n_flabels; else num_annots = n_fdescs; if (num_annots < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* If offsets and lengths are not desired, return the number of annots */ if (offsetarray == NULL || lengtharray == NULL) HGOTO_DONE(num_annots); /* If more annotations than space in user's buffers, only fill up buffers */ if ((uintn)num_annots > size) num_annots = size; /* Get offset/length of each annotation of the specified type */ for (ii = 0; ii < num_annots; ii++) { intn status; /* Get access to an annotation of the specified type */ ann_id = ANselect(an_id, ii, annot_type); if (ann_id == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Get annotation's offset and length */ ret_value = ANgetdatainfo(ann_id, &offsetarray[ii], &lengtharray[ii]); /* Close the annotation (now, just in case ANgetdatainfo failed) */ status = ANendaccess(ann_id); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (status == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } } /* Not a file ID */ else { /* Check if the given dataset ID really is a dataset ID */ handle = SDIhandle_from_id(sdsid, SDSTYPE); if(handle != NULL) { /* Validate annotation type */ if (annot_type != AN_DATA_LABEL && annot_type != AN_DATA_DESC) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the NDG ref of this dataset */ elem_ref = SDidtoref(sdsid); elem_tag = DFTAG_NDG; /* If this var doesn't have a valid NDG ref, we cannot proceed */ if (elem_ref <= 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Open file to start Annotation inteface */ if ((file_id = Hopen(handle->path, DFACC_READ, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if ((an_id = ANstart(file_id)) == FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Get number of data descs or labels with this tag/ref */ num_annots = ANnumann(an_id, annot_type, elem_tag, elem_ref); if (num_annots == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL) else if (num_annots == 0) /* then try SDG */ { elem_tag = DFTAG_SDG; num_annots = ANnumann(an_id, annot_type, elem_tag, elem_ref); /* If there are no SDG annotations either then return 0 */ if (num_annots == 0) HGOTO_DONE(0); } /* If offsets/lengths are not desired, return the number of annots */ if (offsetarray == NULL || lengtharray == NULL) HGOTO_DONE(num_annots); /* If more annotations than space in user's buffers, only fill up buffers */ if (num_annots > size) num_annots = size; /* Allocate space for list of annotation IDs on this tag/ref */ if ((dannots = (int32 *)HDmalloc(num_annots * sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Get list of annotations IDs on this tag/ref */ if (ANannlist(an_id, annot_type, elem_tag, elem_ref, dannots) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Note: these ann IDs seem to be closed by HAdestroy_group() but I'm not sure. MFAN needs to take care of them if not. -BMR */ /* Loop through the annotation list and get their offsets/lengths */ for (ii = 0; ii < num_annots; ii++) { /* Get annotation's offset and length */ ret_value = ANgetdatainfo(dannots[ii], &offsetarray[ii], &lengtharray[ii]); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* ID is an SDS */ } /* Not a file ID */ /* Return the number of annotations retrieved */ ret_value = num_annots; done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* Release allocated memory */ if (dannots) HDfree(dannots); /* Terminate access to the AN API and close the file if they are opened */ if(an_id != FAIL) ANend(an_id); if(file_id != FAIL) Hclose(file_id); return ret_value; } /* SDgetanndatainfo */ #endif /* HDF */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/sharray.c0000644000000000000000000000561112421456623015270 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: sharray.c 4963 2007-09-15 17:20:52Z bmribler $ */ #include "local_nc.h" #include "alloc.h" /* you may wish to tune this: big on a cray, small on a PC? */ #define NC_SHRT_BUFSIZ 8192 #define NC_NSHRTS_PER (NC_SHRT_BUFSIZ/2) /* number of netshorts the buffer holds */ /* * internal function, bulk xdr of an even number of shorts, less than NC_NSHRTS_PER */ static bool_t NCxdr_shortsb(xdrs, sp, nshorts) XDR *xdrs; short *sp; u_int nshorts ; { unsigned char buf[NC_SHRT_BUFSIZ] ; unsigned char *cp ; unsigned int nbytes = nshorts * 2; /* assert(nshorts <= NC_NSHRTS_PER) ; */ /* assert(nshorts > 0) ; */ if(xdrs->x_op == XDR_ENCODE) { for(cp = buf ; cp < &buf[nbytes] ; sp++, cp += 2 ) { *(cp +1) = *sp % 256 ; *cp = (*sp >> 8) ; } } if(!xdr_opaque(xdrs, (caddr_t)buf, nbytes)) return FALSE ; if(xdrs->x_op == XDR_DECODE) { for(cp = buf ; cp < &buf[nbytes] ; sp++, cp += 2 ) { *sp = ((*cp & 0x7f) << 8) + *(cp +1) ; if(*cp & 0x80) { /* extern is neg */ *sp -= 0x8000 ; } } } return TRUE ; } /* * Translate an array of cnt short integers at sp. */ bool_t xdr_shorts(xdrs, sp, cnt) XDR *xdrs; short *sp; u_int cnt ; { int odd ; /* 1 if cnt is odd, 0 otherwise */ if(cnt == 0) return TRUE ; /* ? */ odd = cnt % 2 ; if(odd) cnt-- ; /* cnt is even, odd is set if apropos */ while(cnt > NC_NSHRTS_PER) { if(!NCxdr_shortsb(xdrs, sp, NC_NSHRTS_PER)) return FALSE ; /* else */ sp += NC_NSHRTS_PER ; cnt -= NC_NSHRTS_PER ; } /* we know cnt <= NC_NSHRTS_PER at this point */ if(cnt != 0) { if(!NCxdr_shortsb(xdrs, sp, cnt)) return FALSE ; /* else */ sp += cnt ; cnt = 0 ; } if(odd) if(!xdr_NCvshort(xdrs, 0, sp)) return FALSE ; return TRUE ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/mfhdfi.h0000644000000000000000000000265712421456623015070 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: mfhdfi.h 5009 2007-12-27 16:49:20Z bmribler $ */ #ifndef _MFHDFI_H #define _MFHDFI_H /* enumerated type used to specify whether a variable is an SDS, coordinate variable, or its type is unknown because it was created before HDF4.2r2 */ typedef enum { IS_SDSVAR=0, /* variable is an actual SDS */ IS_CRDVAR=1, /* variable is a coordinate variable */ UNKNOWN=2 /* variable is created before HDF4.2r2, unknown type */ } hdf_vartype_t; #endif /* _MFHDFI_H */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/hdf2netcdf.h0000644000000000000000000000632012421456623015631 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hdf2netcdf.h 5443 2010-08-24 20:52:13Z byrn $ */ #include "h4config.h" #include "H4api_adpt.h" /* If we disable the HDF version of the netCDF API (ncxxx interface) (--disable-netcdf configure flag; the old way was to use -DHAVE_NETCDF compilation flag) ) we need to rename all the relevant function names In this version we exclude renaming the netCDF fortran API so the MFHDF side must be compilied without fortran support. */ #ifndef H4_HAVE_NETCDF #define HNAME(x) sd_##x /* pre-append 'sd_' to all netCDF fcn names */ #else /* !H4_HAVE_NETCDF i.e NOT USING HDF NETCDF */ #define HNAME(x) x #endif /* H4_HAVE_NETCDF i.e. USING HDF NETCDF */ /* If using the real netCDF library and API (use --disable-netcdf configure flag)) need to mangle the HDF versions of netCDF API function names to not conflict w/ oriinal netCDF ones */ #ifndef H4_HAVE_NETCDF #define ncerr HNAME(ncerr) #define ncopts HNAME(ncopts) #define nccreate HNAME(nccreate) #define ncopen HNAME(ncopen) #define ncredef HNAME(ncredef) #define ncendef HNAME(ncendef) #define ncclose HNAME(ncclose) #define ncinquire HNAME(ncinquire) #define ncsync HNAME(ncsync) #define ncabort HNAME(ncabort) #define ncdimdef HNAME(ncdimdef) #define ncdimid HNAME(ncdimid) #define ncdiminq HNAME(ncdiminq) #define ncdimrename HNAME(ncdimrename) #define ncvardef HNAME(ncvardef) #define ncvarid HNAME(ncvarid) #define ncvarinq HNAME(ncvarinq) #define ncvarput1 HNAME(ncvarput1) #define ncvarget1 HNAME(ncvarget1) #define ncvarput HNAME(ncvarput) #define ncvarget HNAME(ncvarget) #define ncvarputs HNAME(ncvarputs) #define ncvargets HNAME(ncvargets) #define ncvarputg HNAME(ncvarputg) #define ncvargetg HNAME(ncvargetg) #define ncvarrename HNAME(ncvarrename) #define ncattput HNAME(ncattput) #define ncattinq HNAME(ncattinq) #define ncattget HNAME(ncattget) #define ncattcopy HNAME(ncattcopy) #define ncattname HNAME(ncattname) #define ncattrename HNAME(ncattrename) #define ncattdel HNAME(ncattdel) #define nctypelen HNAME(nctypelen) #define ncsetfill HNAME(ncsetfill) #define ncrecinq HNAME(ncrecinq) #define ncrecget HNAME(ncrecget) #define ncrecput HNAME(ncrecput) #define ncnobuf HNAME(ncnobuf) /* no prototype for this one */ #endif /* !H4_HAVE_NETCDF i.e NOT USING HDF version of netCDF API */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/error.c0000644000000000000000000001126512421456623014752 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: error.c,v 1.14 90/02/23 16:08:55 davis Exp */ /* * Utility Functions to implement consistant error logging * mechanisms for netcdf */ /*LINTLIBRARY*/ #ifdef NO_STDARG /* The 4.0 release should be ANSI compliant */ #undef NO_STDARG #endif #include "local_nc.h" #include #ifndef NO_STDARG #include #else /* try varargs instead */ #include #endif /* !NO_STDARG */ #include #if defined ERRNO_MISSING extern int errno; #endif #ifndef NO_STRERROR #include /* contains prototype for ansi libc function strerror() */ #else /* provide a strerror function for older unix systems */ char * strerror(errnum) int errnum ; { extern int sys_nerr; extern const char * const sys_errlist[]; if (errnum < 0 || errnum >= sys_nerr) return NULL ; return (char *)sys_errlist[errnum] ; } #endif /* NO_STRERROR */ #ifdef USE_doprnt_FOR_vfprintf /* * kludge for ze ancienne regieme */ vfprintf(stream, fmt, va_alist) FILE *stream; char *fmt; va_dcl { return _doprnt(fmt, va_alist, stream); } #endif /* * Log SYSTEM errors * Use where you would want to call perror(3). * Calling sequence is * nc_serror(format, arg1, arg2,...) * with zero or more args of types compatible with the associated format * specifiers. For example: * nc_serror("shutting down"); * nc_serror("can't open %s", file_name); * nc_serror("process %d in state %s",pid,state); */ void #ifndef NO_STDARG nc_serror(const char *fmt, ...) #else /*VARARGS1*/ nc_serror(fmt, va_alist) const char *fmt ; va_dcl #endif /* !NO_STDARG */ { if( ncopts & NC_VERBOSE ) { va_list args ; static const char unknown[] = "Unknown Error"; int errnum = errno; /* save real errno in case we wipe it out */ const char * cp; #ifndef NO_STDARG va_start(args, fmt) ; #else va_start(args) ; #endif /* !NO_STDARG */ (void) fprintf(stderr,"%s: ", cdf_routine_name); (void) vfprintf(stderr,fmt,args) ; va_end(args) ; switch(errnum) { case 0 : ncerr = NC_NOERR ; (void) fputc('\n',stderr) ; break ; default : ncerr = NC_SYSERR ; (void) fprintf(stderr,": %s\n", (cp = strerror(errnum)) == NULL ? unknown : cp ) ; break ; } (void) fflush(stderr); /* to ensure log files are current */ errno = 0 ; /* ??? */ } /* NC_VERBOSE */ if( ncopts & NC_FATAL ) { exit(ncopts) ; } } /* * Like nc_serror above, but doesn't check for system error. * Use for logging error conditions which are not system errors. * Calling sequence is * NCadvise(ncerr, format, arg1, arg2,...) * with zero or more args of types compatible with the associated format * specifiers. For example: * NCadvise(NC_NOERR, "just advice"); * NCadvise(NC_EBADID, "%d is not a valid cdf id", cdfid); */ #ifndef NO_STDARG void NCadvise(int err, const char *fmt,...) #else /*VARARGS1*/ void NCadvise(err, fmt, va_alist) int err ; const char *fmt ; va_dcl #endif /* !NO_STDARG */ { va_list args ; ncerr = err ; if( ncopts & NC_VERBOSE ) { (void) fprintf(stderr,"%s: ", cdf_routine_name); #ifndef NO_STDARG va_start(args ,fmt) ; #else va_start(args) ; #endif /* !NO_STDARG */ (void) vfprintf(stderr,fmt,args) ; va_end(args) ; (void) fputc('\n',stderr) ; (void) fflush(stderr); /* to ensure log files are current */ } if( (ncopts & NC_FATAL) && ncerr != NC_NOERR ) { exit(ncopts) ; } } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/local_nc.h0000644000000000000000000006200712421456623015400 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: local_nc.h 6043 2014-01-21 21:09:03Z acheng $ */ #ifndef _LOCAL_NC_ #define _LOCAL_NC_ #include "H4api_adpt.h" /* * netcdf library 'private' data structures, objects and interfaces */ #include /* size_t */ #include /* FILENAME_MAX */ #ifndef FILENAME_MAX #define FILENAME_MAX 255 #endif /* Do we have systeme XDR files */ #ifndef NO_SYS_XDR_INC #include #include #else /* NO_SYS_XDR_INC */ #include /* /* */ #endif /* NO_SYSTEM_XDR_INCLUDES */ #include "H4api_adpt.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" /* needed for defs of nc_type, ncvoid, ... */ #else #include "hdf4_netcdf.h" #endif /* ptr argument type in internal functions */ #define Void char /* ** Include HDF stuff */ #ifdef HDF #include "hdf.h" #include "vg.h" #include "hfile.h" #include "mfhdfi.h" #define ATTR_TAG DFTAG_VH #define DIM_TAG DFTAG_VG #define VAR_TAG DFTAG_VG #define DATA_TAG DFTAG_SD #define BOGUS_TAG ((uint16) 721) #if 0 #define ATTRIBUTE "Attr0.0" #define VARIABLE "Var0.0" #define DIMENSION "Dim0.0" #define UDIMENSION "UDim0.0" #define DIM_VALS "DimVal0.0" #define DIM_VALS01 "DimVal0.1" #define CDF "CDF0.0" /* DATA is defined in DTM. Change DATA to DATA0 * #define DATA "Data0.0" */ #define DATA0 "Data0.0" #define ATTR_FIELD_NAME "VALUES" #endif #define DIMVAL_VERSION00 0 /* fake values */ #define DIMVAL_VERSION01 1 /* 1 elt with value of */ #define BLOCK_MULT 64 /* multiplier for bytes in linked blocks */ #define MAX_BLOCK_SIZE 65536 /* maximum size of block in linked blocks */ #define BLOCK_COUNT 128 /* size of linked block pointer objects */ #endif /* HDF */ /* from cdflib.h CDF 2.3 */ #ifndef MAX_VXR_ENTRIES #define MAX_VXR_ENTRIES 10 #endif /* MAX_VXR_ENTRIES */ #ifdef HDF /* VIX record for CDF variable data storage */ typedef struct vix_t_def { int32 nEntries; /* number of entries in this vix */ int32 nUsed; /* number of entries containing valid data */ int32 firstRec[MAX_VXR_ENTRIES]; /* number of first records */ int32 lastRec[MAX_VXR_ENTRIES]; /* number of last records */ int32 offset[MAX_VXR_ENTRIES]; /* file offset of records */ struct vix_t_def * next; /* next one in line */ } vix_t; #endif /* HDF */ /* like, a discriminated union in the sense of xdr */ typedef struct { nc_type type ; /* the discriminant */ size_t len ; /* the total length originally allocated */ size_t szof ; /* sizeof each value */ unsigned count ; /* length of the array */ Void *values ; /* the actual data */ } NC_array ; /* Counted string for names and such */ /* count is the actual size of the buffer for the string len is the length of the string in the buffer count != len when a string is resized to something smaller */ #ifdef HDF #define NC_compare_string(s1,s2) ((s1)->hash!=(s2)->hash ? 1 : HDstrcmp((s1)->values,(s2)->values)) #endif /* HDF */ typedef struct { unsigned count ; unsigned len ; #ifdef HDF uint32 hash; /* [non-perfect] hash value for faster comparisons */ #endif /* HDF */ char *values ; } NC_string ; /* Counted array of ints for assoc list */ typedef struct { unsigned count ; int *values ; } NC_iarray ; /* NC dimension stucture */ typedef struct { NC_string *name ; long size ; #ifdef HDF int32 dim00_compat; /* compatible with Dim0.0 */ int32 vgid; /* id of the Vgroup representing this dimension */ int32 count; /* Number of pointers to this dimension */ #endif } NC_dim ; /* NC attribute */ typedef struct { NC_string *name ; NC_array *data ; #ifdef HDF int32 HDFtype; /* it should be in NC_array *data. However, */ /* NC.dims and NC.vars are NC_array too. */ #endif } NC_attr ; typedef struct { char path[FILENAME_MAX + 1] ; unsigned flags ; XDR *xdrs ; long begin_rec ; /* (off_t) postion of the first 'record' */ unsigned long recsize ; /* length of 'record' */ int redefid ; /* below gets xdr'd */ unsigned long numrecs ; /* number of 'records' allocated */ NC_array *dims ; NC_array *attrs ; NC_array *vars ; #ifdef HDF int32 hdf_file; int file_type; int32 vgid; int hdf_mode; /* mode we are attached for */ hdf_file_t cdf_fp; /* file pointer used for CDF files */ #endif } NC ; /* NC variable: description and data */ typedef struct { NC_string *name ; /* name->values shows data set's name */ NC_iarray *assoc ; /* user definition */ unsigned long *shape ; /* compiled info (Each holds a dimension size. -BMR) */ unsigned long *dsizes ; /* compiled info (Each element holds the amount of space needed to hold values in that dimension, e.g., first dimension size is 10, value type is int32=4, then dsizes[0]=4*10=40. -BMR) */ NC_array *attrs; /* list of attribute structures */ nc_type type ; /* the discriminant */ unsigned long len ; /* the total length originally allocated */ size_t szof ; /* sizeof each value */ long begin ; /* seek index, often an off_t */ #ifdef HDF NC *cdf; /* handle of the file where this var belongs to */ int32 vgid; /* id of the variable's Vgroup */ uint16 data_ref;/* ref of the variable's data storage (if exists), default 0 */ uint16 data_tag;/* tag of the variable's data storage (if exists), default DATA_TAG */ uint16 ndg_ref; /* ref of ndg for this dataset */ hdf_vartype_t var_type; /* type of this variable, default UNKNOWN IS_SDSVAR == this var is an SDS variable IS_CRDVAR == this var is a coordinate variable UNKNOWN == because the var was created prior to this distinction. This is to distinguish b/w a one-dim data set and a coord var of the same name. It's less riskier than using a flag and change the file format, I think. -BMR */ intn data_offset; /* non-traditional data may not begin at 0 */ int32 block_size; /* size of the blocks for unlimited dim. datasets, default -1 */ int numrecs; /* number of records this has been filled up to, for unlimited dim */ int32 aid; /* aid for DFTAG_SD data */ int32 HDFtype; /* type of this variable as HDF thinks */ int32 HDFsize; /* size of this variable as HDF thinks */ /* These next two flags control when space in the file is allocated for a new dataset. They are used (currently) in SDwritedata() and hdf_get_vp_aid() to allocate the full length of a new fixed-size dataset which is not writing fill values, instead of letting them get created as an "appendable" dataset and probably get converted into a linked- block special element when they don't need to be one */ int32 created; /* BOOLEAN == is newly created */ int32 set_length; /* BOOLEAN == needs length set */ int32 is_ragged; /* BOOLEAN == is a ragged array */ int32 * rag_list; /* size of ragged array lines */ int32 rag_fill; /* last line in rag_list to be set */ vix_t * vixHead; /* list of VXR records for CDF data storage */ #endif } NC_var ; #define IS_RECVAR(vp) \ ((vp)->shape != NULL ? (*(vp)->shape == NC_UNLIMITED) : 0 ) #define netCDF_FILE 0 #define HDF_FILE 1 #define CDF_FILE 2 HDFLIBAPI const char *cdf_routine_name ; /* defined in lerror.c */ /* C D F 1 */ #define NCMAGIC 0x43444601 /* C D L 1 */ #define NCLINKMAGIC 0x43444c01 /* #ifndef HDF *//* HDF has already worked out if we have prototypes */ #ifdef HDF #define PROTOTYPE #endif #undef PROTO #ifndef NO_HAVE_PROTOTYPES # define PROTO(x) x #else # define PROTO(x) () #endif /* #endif */ /* HDF */ #ifdef __cplusplus extern "C" { #endif /* If using the real netCDF library and API (when --disable-netcdf configure flag is used) need to mangle the HDF versions of netCDF API function names to not conflict w/ oriinal netCDF ones */ #ifndef H4_HAVE_NETCDF #define nc_serror HNAME(nc_serror) #define NCadvise HNAME(NCadvise) #define NC_computeshapes HNAME(NC_computeshapes) #define NC_xtypelen HNAME(NC_xtypelen) #define NC_xlen_array HNAME(NC_xlen_array) #define NC_xlen_attr HNAME(NC_xlen_attr) #define NC_xlen_cdf HNAME(NC_xlen_cdf) #define NC_xlen_dim HNAME(NC_xlen_dim) #define NC_xlen_iarray HNAME(NC_xlen_iarray) #define NC_xlen_string HNAME(NC_xlen_string) #define NC_xlen_var HNAME(NC_xlen_var) #define NCmemset HNAME(NCmemset) #define NC_arrayfill HNAME(NC_arrayfill) #define NC_copy_arrayvals HNAME(NC_copy_arrayvals) #define NC_free_array HNAME(NC_free_array) #define NC_free_attr HNAME(NC_free_attr) #define NC_free_cdf HNAME(NC_free_cdf) #define NC_free_dim HNAME(NC_free_dim) #define NC_free_iarray HNAME(NC_free_iarray) #define NC_free_string HNAME(NC_free_string) #define NC_free_var HNAME(NC_free_var) #define NC_incr_array HNAME(NC_incr_array) #define NC_dimid HNAME(NC_dimid) #define NCcktype HNAME(NCcktype) #define NC_indefine HNAME(NC_indefine) #define xdr_cdf HNAME(xdr_cdf) #define xdr_numrecs HNAME(xdr_numrecs) #define xdr_shorts HNAME(xdr_shorts) #define xdr_NC_array HNAME(xdr_NC_array) #define xdr_NC_attr HNAME(xdr_NC_attr) #define xdr_NC_dim HNAME(xdr_NC_dim) #define xdr_NC_fill HNAME(xdr_NC_fill) #define xdr_NC_iarray HNAME(xdr_NC_iarray) #define xdr_NC_string HNAME(xdr_NC_string) #define xdr_NC_var HNAME(xdr_NC_var) #define NC_typelen HNAME(NC_typelen) #define NC_check_id HNAME(NC_check_id) #define NC_dup_cdf HNAME(NC_dup_cdf) #define NC_new_cdf HNAME(NC_new_cdf) #define NC_new_array HNAME(NC_new_array) #define NC_re_array HNAME(NC_re_array) #define NC_new_attr HNAME(NC_new_attr) #define NC_findattr HNAME(NC_findattr) #define NC_new_dim HNAME(NC_new_dim) #define NC_new_iarray HNAME(NC_new_iarray) #define NC_new_string HNAME(NC_new_string) #define NC_re_string HNAME(NC_re_string) #define NC_hlookupvar HNAME(NC_hlookupvar) #define NC_new_var HNAME(NC_new_var) #define NCvario HNAME(NCvario) #define NCcoordck HNAME(NCcoordck) #define xdr_NCvshort HNAME(xdr_NCvshort) #define NC_dcpy HNAME(NC_dcpy) #define NCxdrfile_sync HNAME(NCxdrfile_sync) #define NCxdrfile_create HNAME(NCxdrfile_create) #ifdef HDF #define NCgenio HNAME(NCgenio) /* from putgetg.c */ #define NC_var_shape HNAME(NC_var_shape) /* from var.c */ #endif #endif /* !H4_HAVE_NETCDF ie. NOT USING HDF version of netCDF ncxxx API */ #define nncpopt H4_F77_FUNC(ncpopt, NCPOPT) #define nncgopt H4_F77_FUNC(ncgopt, NCGOPT) #define nnccre H4_F77_FUNC(nccre, NCCRE) #define nncopn H4_F77_FUNC(ncopn, NCOPN) #define nncddef H4_F77_FUNC(ncddef, NCDDEF) #define nncdid H4_F77_FUNC(ncdid, NCDID) #define nncvdef H4_F77_FUNC(ncvdef, NCVDEF) #define nncvid H4_F77_FUNC(ncvid, NCVID) #define nnctlen H4_F77_FUNC(nctlen, NCTLEN) #define nncclos H4_F77_FUNC(ncclos, NCCLOS) #define nncredf H4_F77_FUNC(ncredf, NCREDF) #define nncendf H4_F77_FUNC(ncendf, NCENDF) #define nncinq H4_F77_FUNC(ncinq, NCINQ) #define nncsnc H4_F77_FUNC(ncsnc, NCSNC) #define nncabor H4_F77_FUNC(ncabor, NCABOR) #define nncdinq H4_F77_FUNC(ncdinq, NCDINQ) #define nncdren H4_F77_FUNC(ncdren, NCDREN) #define nncvinq H4_F77_FUNC(ncvinq, NCVINQ) #define nncvpt1 H4_F77_FUNC(ncvpt1, NCVPT1) #define nncvp1c H4_F77_FUNC(ncvp1c, NCVP1C) #define nncvpt H4_F77_FUNC(ncvpt, NCVPT) #define nncvptc H4_F77_FUNC(ncvptc, NCVPTC) #define nncvptg H4_F77_FUNC(ncvptg, NCVPTG) #define nncvpgc H4_F77_FUNC(ncvpgc, NCVPGC) #define nncvgt1 H4_F77_FUNC(ncvgt1, NCVGT1) #define nncvg1c H4_F77_FUNC(ncvg1c, NCVG1C) #define nncvgt H4_F77_FUNC(ncvgt, NCVGT) #define nncvgtc H4_F77_FUNC(ncvgtc, NCVGTC) #define nncvgtg H4_F77_FUNC(ncvgtg, NCVGTG) #define nncvggc H4_F77_FUNC(ncvggc, NCVGGC) #define nncvren H4_F77_FUNC(ncvren, NCVREN) #define nncapt H4_F77_FUNC(ncapt, NCAPT) #define nncaptc H4_F77_FUNC(ncaptc, NCAPTC) #define nncainq H4_F77_FUNC(ncainq, NCAINQ) #define nncagt H4_F77_FUNC(ncagt, NCAGT) #define nncagtc H4_F77_FUNC(ncagtc, NCAGTC) #define nncacpy H4_F77_FUNC(ncacpy, NCACPY) #define nncanam H4_F77_FUNC(ncanam, NCANAM) #define nncaren H4_F77_FUNC(ncaren, NCAREN) #define nncadel H4_F77_FUNC(ncadel, NCADEL) #define nncsfil H4_F77_FUNC(ncsfil, NCSFIL) #ifdef WIN32 HDFFCLIBAPI void nncpopt PROTO((int* val)); HDFFCLIBAPI void nncgopt PROTO((int* val)); HDFFCLIBAPI int nnccre PROTO((char* pathname, int* clobmode, int* rcode, int pathnamelen)); HDFFCLIBAPI int nncopn PROTO((char* pathname, int* rwmode, int* rcode, int pathnamelen)); HDFFCLIBAPI int nncddef PROTO((int* cdfid, char* dimname, int* dimlen, int* rcode, int dimnamelen)); HDFFCLIBAPI int nncdid PROTO((int* cdfid, char* dimname, int* rcode, int dimnamelen)); HDFFCLIBAPI int nncvdef PROTO((int* cdfid, char* varname, int* datatype, int* ndims, int* dimarray, int* rcode, int varnamelen)); HDFFCLIBAPI int nncvid PROTO((int* cdfid, char* varname, int* rcode, int varnamelen)); HDFFCLIBAPI int nnctlen PROTO((int* datatype, int* rcode)); HDFFCLIBAPI void nncclos PROTO((int* cdfid, int* rcode)); HDFFCLIBAPI void nncredf PROTO((int* cdfid, int* rcode)); HDFFCLIBAPI void nncendf PROTO((int* cdfid, int* rcode)); HDFFCLIBAPI void nncinq PROTO((int* cdfid, int* ndims, int* nvars, int* natts, int* recdim, int* rcode)); HDFFCLIBAPI void nncsnc PROTO((int* cdfid, int* rcode)); HDFFCLIBAPI void nncabor PROTO((int* cdfid, int* rcode)); HDFFCLIBAPI void nncdinq PROTO((int* cdfid, int* dimid, char* dimname, int* size, int* rcode, int dimnamelen)); HDFFCLIBAPI void nncdren PROTO((int* cdfid, int* dimid, char* dimname, int* rcode, int dimnamelen)); HDFFCLIBAPI void nncvinq PROTO((int* cdfid, int* varid, char* varname, int* datatype, int* ndims, int* dimarray, int* natts, int* rcode, int varnamelen)); HDFFCLIBAPI void nncvpt1 PROTO((int* cdfid, int* varid, int* indices, void* value, int* rcode)); HDFFCLIBAPI void nncvp1c PROTO((int* cdfid, int* varid, int* indices, char* chval, int* rcode, int chvallen)); HDFFCLIBAPI void nncvpt PROTO((int* cdfid, int* varid, int* start, int* count, void* value, int* rcode)); HDFFCLIBAPI void nncvptc PROTO((int* cdfid, int* varid, int* start, int* count, char* string, int* lenstr, int* rcode, int stringlen)); HDFFCLIBAPI void nncvptg PROTO((int* cdfid, int* varid, int* start, int* count, int* stride, int* basis, void* value, int* rcode)); HDFFCLIBAPI void nncvpgc PROTO((int* cdfid, int* varid, int* start, int* count, int* stride, int* basis, char* string, int* rcode, int stringlen)); HDFFCLIBAPI void nncvgt1 PROTO((int* cdfid, int* varid, int* indices, void* value, int* rcode)); HDFFCLIBAPI void nncvg1c PROTO((int* cdfid, int* varid, int* indices, char* chval, int* rcode, int chvallen)); HDFFCLIBAPI void nncvgt PROTO((int* cdfid, int* varid, int* start, int* count, void* value, int* rcode)); HDFFCLIBAPI void nncvgtc PROTO((int* cdfid, int* varid, int* start, int* count, char* string, int* lenstr, int* rcode, int stringlen)); HDFFCLIBAPI void nncvgtg PROTO((int* cdfid, int* varid, int* start, int* count, int* stride, int* basis, void* value, int* rcode)); HDFFCLIBAPI void nncvggc PROTO((int* cdfid, int* varid, int* start, int* count, int* stride, int* basis, char* string, int* rcode, int stringlen)); HDFFCLIBAPI void nncvren PROTO((int* cdfid, int* varid, char* varname, int* rcode, int varnamelen)); HDFFCLIBAPI void nncapt PROTO((int* cdfid, int* varid, char* attname, int* datatype, int* attlen, void* value, int* rcode, int attnamelen)); HDFFCLIBAPI void nncaptc PROTO((int* cdfid, int* varid, char* attname, int* datatype, int* lenstr, char* string, int* rcode, int attnamelen, int stringlen)); HDFFCLIBAPI void nncainq PROTO((int* cdfid, int* varid, char* attname, int* datatype, int* attlen, int* rcode, int attnamelen)); HDFFCLIBAPI void nncagt PROTO((int* cdfid, int* varid, char* attname, void* value, int* rcode, int attnamelen)); HDFFCLIBAPI void nncagtc PROTO((int* cdfid, int* varid, char* attname, char* string, int* lenstr, int* rcode, int attnamelen, int stringlen)); HDFFCLIBAPI void nncacpy PROTO((int* incdfid, int* invarid, char* attname, int* outcdfid, int* outvarid, int* rcode, int attnamelen)); HDFFCLIBAPI void nncanam PROTO((int* cdfid, int* varid, int* attnum, char* attname, int* rcode, int attnamelen)); HDFFCLIBAPI void nncaren PROTO((int* cdfid, int* varid, char* attname, char* newname, int* rcode, int attnamelen, int newnamelen)); HDFFCLIBAPI void nncadel PROTO((int* cdfid, int* varid, char* attname, int* rcode, int attnamelen)); HDFFCLIBAPI int nncsfil PROTO((int* cdfid, int* fillmode, int* rcode)); #endif HDFLIBAPI void nc_serror PROTO(( const char *fmt, ... )) ; HDFLIBAPI void NCadvise PROTO(( int err, const char *fmt, ... )) ; HDFLIBAPI int NC_computeshapes PROTO(( NC *handle )); HDFLIBAPI int NC_xtypelen PROTO(( nc_type type )); HDFLIBAPI int NC_xlen_array PROTO(( NC_array *array )); HDFLIBAPI int NC_xlen_attr PROTO(( NC_attr **app )); HDFLIBAPI int NC_xlen_cdf PROTO(( NC *cdf )); HDFLIBAPI int NC_xlen_dim PROTO(( NC_dim **dpp )); HDFLIBAPI int NC_xlen_iarray PROTO(( NC_iarray *iarray )); HDFLIBAPI int NC_xlen_string PROTO(( NC_string *cdfstr )); HDFLIBAPI int NC_xlen_var PROTO(( NC_var **vpp )); HDFLIBAPI char *NCmemset PROTO(( char *s, int c, int n )); HDFLIBAPI void NC_arrayfill PROTO(( void *lo, size_t len, nc_type type )); HDFLIBAPI void NC_copy_arrayvals PROTO(( char *target, NC_array *array )); HDFLIBAPI int NC_free_array PROTO(( NC_array *array )); HDFLIBAPI int NC_free_attr PROTO(( NC_attr *attr )); HDFLIBAPI int NC_free_cdf PROTO(( NC *handle )); HDFLIBAPI int NC_free_dim PROTO(( NC_dim *dim )); HDFLIBAPI int NC_free_iarray PROTO(( NC_iarray *iarray )); HDFLIBAPI int NC_free_string PROTO(( NC_string *cdfstr )); HDFLIBAPI int NC_free_var PROTO(( NC_var *var )); HDFLIBAPI Void *NC_incr_array PROTO(( NC_array *array, Void *tail )); HDFLIBAPI int NC_dimid PROTO(( NC *handle, char *name )); HDFLIBAPI bool_t NCcktype PROTO(( nc_type datatype )); HDFLIBAPI bool_t NC_indefine PROTO(( int cdfid, bool_t iserr )); HDFLIBAPI bool_t xdr_cdf PROTO(( XDR *xdrs, NC **handlep )); HDFLIBAPI bool_t xdr_numrecs PROTO(( XDR *xdrs, NC *handle )); HDFLIBAPI bool_t xdr_shorts PROTO(( XDR *xdrs, short *sp, u_int cnt )); HDFLIBAPI bool_t xdr_NC_array PROTO(( XDR *xdrs, NC_array **app )); HDFLIBAPI bool_t xdr_NC_attr PROTO(( XDR *xdrs, NC_attr **app )); HDFLIBAPI bool_t xdr_NC_dim PROTO(( XDR *xdrs, NC_dim **dpp )); HDFLIBAPI bool_t xdr_NC_fill PROTO(( XDR *xdrs, NC_var *vp )); HDFLIBAPI bool_t xdr_NC_iarray PROTO(( XDR *xdrs, NC_iarray **ipp )); HDFLIBAPI bool_t xdr_NC_string PROTO(( XDR *xdrs, NC_string **spp )); HDFLIBAPI bool_t xdr_NC_var PROTO(( XDR *xdrs, NC_var **vpp )); HDFLIBAPI size_t NC_typelen PROTO(( nc_type type )); HDFLIBAPI NC *NC_check_id PROTO(( int cdfid )); HDFLIBAPI NC *NC_dup_cdf PROTO(( const char *name, int mode, NC *old )); HDFLIBAPI NC *NC_new_cdf PROTO(( const char *name, int mode )); HDFLIBAPI NC_array *NC_new_array PROTO(( nc_type type, unsigned count, const void *values )); HDFLIBAPI NC_array *NC_re_array PROTO(( NC_array *old, nc_type type, unsigned count, const void *values )); HDFLIBAPI NC_attr *NC_new_attr PROTO(( const char *name, nc_type type, unsigned count , const void *values )); HDFLIBAPI NC_attr **NC_findattr PROTO(( NC_array **ap, const char *name )); HDFLIBAPI NC_dim *NC_new_dim PROTO(( const char *name, long size )); HDFLIBAPI NC_iarray *NC_new_iarray PROTO(( unsigned count, const int values[] )); HDFLIBAPI NC_string *NC_new_string PROTO(( unsigned count, const char *str )); HDFLIBAPI NC_string *NC_re_string PROTO(( NC_string *old, unsigned count, const char *str )); HDFLIBAPI NC_var *NC_hlookupvar PROTO(( NC *handle, int varid )); HDFLIBAPI NC_var *NC_new_var PROTO(( const char *name, nc_type type, int ndims, const int *dims )); HDFLIBAPI int NCvario PROTO(( NC *handle, int varid, const long *start, const long *edges, void *values )); HDFLIBAPI bool_t NCcoordck PROTO(( NC *handle, NC_var *vp, const long *coords )); HDFLIBAPI bool_t xdr_NCvshort PROTO(( XDR *xdrs, unsigned which, short *values )); HDFLIBAPI bool_t NC_dcpy PROTO(( XDR *target, XDR *source, long nbytes )); HDFLIBAPI int NCxdrfile_sync PROTO((XDR *xdrs)); HDFLIBAPI int NCxdrfile_create PROTO((XDR *xdrs,const char *path,int ncmode)); #ifdef HDF /* this routine is found in 'xdrposix.c' */ HDFLIBAPI void hdf_xdrfile_create PROTO(( XDR *xdrs, int ncop)); HDFLIBAPI intn hdf_fill_array PROTO((Void * storage,int32 len,Void * value,int32 type)); HDFLIBAPI intn hdf_get_data PROTO((NC *handle,NC_var *vp)); HDFLIBAPI int32 hdf_get_vp_aid PROTO((NC *handle, NC_var *vp)); HDFLIBAPI int hdf_map_type PROTO((nc_type )); HDFLIBAPI nc_type hdf_unmap_type PROTO((int )); HDFLIBAPI intn hdf_get_ref PROTO((NC *,int )); HDFLIBAPI intn hdf_create_dim_vdata PROTO((XDR *,NC *,NC_dim *)); HDFLIBAPI intn hdf_create_compat_dim_vdata PROTO((XDR *xdrs, NC *handle, NC_dim *dim, int32 dimval_ver)); HDFLIBAPI intn hdf_write_attr PROTO((XDR *,NC *,NC_attr **)); HDFLIBAPI int32 hdf_write_dim PROTO((XDR *,NC *,NC_dim **,int32)); HDFLIBAPI int32 hdf_write_var PROTO((XDR *,NC *,NC_var **)); HDFLIBAPI intn hdf_write_xdr_cdf PROTO((XDR *,NC **)); HDFLIBAPI intn hdf_conv_scales PROTO((NC **)); HDFLIBAPI intn hdf_read_dims PROTO((XDR *,NC *,int32 )); HDFLIBAPI NC_array *hdf_read_attrs PROTO((XDR *,NC *,int32 )); HDFLIBAPI intn hdf_read_vars PROTO((XDR *,NC *,int32 )); HDFLIBAPI intn hdf_read_xdr_cdf PROTO((XDR *,NC **)); HDFLIBAPI intn hdf_xdr_cdf PROTO((XDR *,NC **)); HDFLIBAPI intn hdf_vg_clobber PROTO((NC *,int )); HDFLIBAPI intn hdf_cdf_clobber PROTO((NC *)); HDFLIBAPI intn hdf_close PROTO((NC *)); HDFLIBAPI intn hdf_read_sds_dims PROTO((NC *)); HDFLIBAPI intn hdf_read_sds_cdf PROTO((XDR *,NC **)); HDFLIBAPI intn SDPfreebuf PROTO((void)); HDFLIBAPI intn NCgenio PROTO((NC *handle, int varid, const long *start, const long *count, const long *stride, const long *imap, void *values)); HDFLIBAPI intn NC_var_shape PROTO((NC_var *var,NC_array *dims)); HDFLIBAPI intn NC_reset_maxopenfiles PROTO((intn req_max)); HDFLIBAPI intn NC_get_maxopenfiles PROTO(()); HDFLIBAPI intn NC_get_systemlimit PROTO(()); HDFLIBAPI int NC_get_numopencdfs PROTO(()); /* CDF stuff. don't need anymore? -GV */ HDFLIBAPI nc_type cdf_unmap_type PROTO((int type)); HDFLIBAPI bool_t nssdc_read_cdf PROTO((XDR *xdrs, NC **handlep)); HDFLIBAPI bool_t nssdc_write_cdf PROTO((XDR *xdrs, NC **handlep)); HDFLIBAPI bool_t nssdc_xdr_cdf PROTO((XDR *xdrs, NC **handlep)); HDFLIBAPI intn HDiscdf (const char *filename); HDFLIBAPI intn HDisnetcdf (const char *filename); #endif /* HDF */ #ifdef __cplusplus } #endif #endif /* _LOCAL_NC_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/error.h0000644000000000000000000000300112421456623014744 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: error.h 5444 2010-08-25 16:40:05Z byrn $ */ #ifndef _NC_ERROR_ #define _NC_ERROR_ #include "H4api_adpt.h" #ifndef NO_STDARG HDFLIBAPI void nc_serror(const char *fmt, ...) ; HDFLIBAPI void NCadvise(int err, const char *fmt,...) ; #else HDFLIBAPI void nc_serror() ; HDFLIBAPI void NCadvise() ; #endif /* NO_STDARG */ #endif /* _NC_ERROR_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/globdef.c0000644000000000000000000000356612421456623015230 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * * $Id: globdef.c 5457 2010-09-07 17:21:51Z byrn $ * * This file initializes all global variables. It's a separate file in order * to allow the creation of SunOS sharable-libraries. */ #include "h4config.h" #include "H4api_adpt.h" #ifdef H4_HAVE_NETCDF #include "netcdf.h" #include "local_nc.h" #else #include "hdf4_netcdf.h" #endif int ncerr = NC_NOERR ; /* * russ's last minute whistles * The error(3) subroutines emit no messages unless NC_VERBOSE bit is on. * The error(3) subroutines call exit() when NC_FATAL bit is on. */ int ncopts = (NC_FATAL | NC_VERBOSE) ; /* * Set to the the name of the current interface routine by the * interface routine. */ const char *cdf_routine_name = "netcdf"; libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/array.c0000644000000000000000000003527212421456623014743 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: array.c 6032 2014-01-17 18:13:52Z acheng $ */ #include #include "local_nc.h" #include "alloc.h" #ifdef NO_MEM_FUNCTS /* * internal replacement for memset */ char * NCmemset (s, c, n) char *s; int c, n; { char *cp ; for (cp = s ; cp < &s[n] ; *cp++ = c ) /* nada */ ; return s ; } #endif /* * for a netcdf type * return the size of the on-disk representation */ int NC_xtypelen(type) nc_type type ; { char *nada = NULL ; switch(type){ case NC_BYTE : case NC_CHAR : return(1) ; case NC_SHORT : return(2) ; case NC_LONG : case NC_FLOAT : return(4) ; case NC_DOUBLE : return(8) ; /* private types */ case NC_UNSPECIFIED : return(0) ; case NC_STRING : return(NC_xlen_string((NC_string *)NULL)) ; case NC_DIMENSION : return(NC_xlen_dim((NC_dim **)&nada)) ; case NC_VARIABLE : return(NC_xlen_var((NC_var **)&nada)) ; case NC_ATTRIBUTE : return(NC_xlen_attr((NC_attr **)&nada)) ; default : NCadvise(NC_EBADTYPE, "NC_xtypelen: Unknown type %d", type) ; return(-1) ; } } /* * private version of nctypelen */ size_t NC_typelen(type) nc_type type ; { switch(type){ case NC_BYTE : case NC_CHAR : return(sizeof(char)) ; case NC_SHORT : return(sizeof(short)) ; case NC_LONG : return(sizeof(nclong)) ; case NC_FLOAT : return(sizeof(float)) ; case NC_DOUBLE : return(sizeof(double)) ; /* private types */ case NC_STRING : return(sizeof(NC_string *)) ; case NC_DIMENSION : return(sizeof(NC_dim *)) ; case NC_VARIABLE : return(sizeof(NC_var *)) ; case NC_ATTRIBUTE : return(sizeof(NC_attr *)) ; default : return(0) ; } } /* * external interface function * this is how much space is required by the user, as in * * vals = malloc(nel * nctypelen(var.type)); * ncvarget (cdfid, varid, cor, edg, vals); * */ int nctypelen(type) nc_type type ; { switch(type){ case NC_BYTE : case NC_CHAR : return(sizeof(char)) ; case NC_SHORT : return(sizeof(short)) ; case NC_LONG : return(sizeof(nclong)) ; case NC_FLOAT : return(sizeof(float)) ; case NC_DOUBLE : return(sizeof(double)) ; default : NCadvise(NC_EBADTYPE, "Unknown type %d", type) ; return(-1) ; } } /* See netcdf.h for explanation of these initialzations */ /* assert( !(USE_F_UNION && USE_F_LONG_PUN) ) ; */ /* assert( !(USE_D_UNION && USE_D_LONG_PUN) ) ; */ #ifdef USE_F_UNION #ifndef SWAP union xdr_f_union xdr_f_infs = {0x7f, 0x80, 0x00, 0x00} ; #else union xdr_f_union xdr_f_infs = {0x00, 0x00, 0x80, 0x7f} ; #endif /* !SWAP */ #endif /* USE_F_UNION */ #ifdef USE_D_UNION #ifndef SWAP union xdr_d_union xdr_d_infs = {0x7f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00} ; #else union xdr_d_union xdr_d_infs = {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f} ; #endif /* !SWAP */ #endif /* USE_D_UNION */ #ifdef USE_F_LONG_PUN nclong xdr_f_infinity = 0x7f800000; #endif #ifdef USE_D_LONG_PUN #ifndef SWAP nclong xdr_d_infinity[2] = {0x7ff00000,0x00000000}; #else nclong xdr_d_infinity[2] = {0x00000000,0x7ff00000}; #endif /* !SWAP */ #endif /* USE_D_LONG_PUN */ /* * Fill an array region with an appropriate special value */ void NC_arrayfill(low, len, type) void *low ; /* lower bound of area to be filled */ size_t len ; /* how many bytes */ nc_type type ; { char *hi, *lo; /* local low and hi ptr */ lo = low; hi = lo + len; switch(type) { case NC_BYTE : HDmemset(lo, FILL_BYTE, len); break ; case NC_CHAR : HDmemset(lo, FILL_CHAR, len); break ; case NC_SHORT : while(lo < hi ){ *((short *)lo) = FILL_SHORT ; lo += sizeof(short); } break ; case NC_LONG : while(lo < hi ){ *((nclong *)lo) = FILL_LONG ; lo += sizeof(nclong) ; } break ; case NC_FLOAT : while(lo < hi ){ *((float *)lo) = FILL_FLOAT ; lo += sizeof(float) ; } break ; case NC_DOUBLE : while(lo < hi ){ /*SUPPRESS 450*/ *((double *)lo) = FILL_DOUBLE ; lo += sizeof(double) ; } break ; default : HDmemset(lo,0xff,len) ; break ; } } /* * Allocate a new array, returning a handle to it, NULL on error. * If count is no-zero, allocate private space for the values, and, * if values is non-NULL, copy them in. * Else, just hook up the values passed in. */ NC_array * NC_new_array(type, count, values) nc_type type ; unsigned count ; const void *values ; { NC_array *ret ; size_t memlen ; ret = (NC_array *)HDmalloc(sizeof(NC_array)) ; if( ret == NULL ) goto alloc_err ; ret->type = type ; ret->szof = NC_typelen(type) ; #ifdef DEBUG fprintf(stderr, "NC_new_array(): type=%u, NC_typelen(type)=%u\n",(unsigned)type,(unsigned)ret->szof); #endif ret->count = count ; memlen = count * ret->szof ; ret->len = count * NC_xtypelen(type) ; #ifdef DEBUG fprintf(stderr, "NC_new_array(): count=%u, memlen=%u\n",count,memlen); #endif if( count != 0 ) { ret->values = (Void*)HDmalloc(memlen) ; #ifdef DEBUG fprintf(stderr, "NC_new_array(): ret->values=%p, values=%p\n",ret->values,values); #endif if(ret->values == NULL) goto alloc_err ; if( values == NULL ) { NC_arrayfill(ret->values, memlen, type) ; } else { /* can be dangerous */ (void)memcpy(ret->values, values, memlen) ; } } else { ret->values = NULL ; } #ifdef DEBUG fprintf(stderr, "NC_new_array(): ret=%p\n",ret); #endif return(ret) ; alloc_err : nc_serror("NC_new_array") ; return(NULL) ; } /* * Recyle a NC_array, if possible. * EG, if there is enough space, use it, else return NULL * If values is non-NULL, copy them in. */ NC_array * NC_re_array(old, type, count, values) NC_array *old ; nc_type type ; unsigned count ; const void *values ; { size_t memlen ; size_t szof ; szof = NC_typelen(type) ; memlen = count * szof ; if(memlen > old->count * old->szof ) return(NULL) ; /* punt */ old->count = count ; old->type = type ; old->szof = szof ; if(count != 0) { if( values == NULL ) { NC_arrayfill(old->values, memlen, type) ; } else { /* can be dangerous */ (void)memcpy(old->values, values, memlen) ; } } return(old) ; } /* * Free array, and, if needed, its values. * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ int NC_free_array(array) NC_array *array ; { int ret_value = SUCCEED; if( array != NULL) { if(array->values != NULL) { switch(array->type) { case NC_UNSPECIFIED : case NC_BYTE : case NC_CHAR : case NC_SHORT : case NC_LONG : case NC_FLOAT : case NC_DOUBLE : break ; case NC_STRING : { NC_string **sp ; sp = (NC_string **)array->values ; for(sp += array->count - 1 ; array->count > 0; array->count--) { if (FAIL == NC_free_string(*sp-- )) { ret_value = FAIL; goto done; } } } break ; case NC_DIMENSION : { NC_dim **dp ; dp = (NC_dim**)array->values ; for(dp += array->count - 1 ; array->count > 0; array->count--) { if (FAIL == NC_free_dim(*dp-- )) { ret_value = FAIL; goto done; } } } break ; case NC_VARIABLE : { NC_var **dp ; dp = (NC_var**)array->values ; for(dp += array->count - 1 ; array->count > 0; array->count--) { if (FAIL == NC_free_var(*dp-- )) { ret_value = FAIL; goto done; } } } break ; case NC_ATTRIBUTE : { NC_attr **dp ; dp = (NC_attr**)array->values ; for(dp += array->count - 1 ; array->count > 0; array->count--) { if (FAIL == NC_free_attr(*dp-- )) { ret_value = FAIL; goto done; } } } break ; default: NCadvise(NC_EBADTYPE, "Unknown type %d",array->type) ; break ; } Free(array->values) ; } Free(array) ; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* * How much space will the xdr'd array take. */ int NC_xlen_array(array) NC_array *array ; { int len = 8 ; int rem ; int (*xlen_funct)() =NULL; Void *vp ; unsigned ii ; if(array!=NULL) { switch(array->type){ case NC_BYTE : case NC_CHAR : len += array->count ; if( (rem = len%4) != 0) len += 4 - rem ; return(len) ; case NC_SHORT : len += array->count * 2 ; if( (rem = len%4) != 0) len += 4 - rem ; return(len) ; case NC_LONG : case NC_FLOAT : len += array->count * 4 ; return(len) ; case NC_DOUBLE : len += array->count * 8 ; return(len) ; case NC_STRING : xlen_funct = NC_xlen_string ; break ; case NC_DIMENSION : xlen_funct = NC_xlen_dim ; break ; case NC_VARIABLE : xlen_funct = NC_xlen_var ; break ; case NC_ATTRIBUTE : xlen_funct = NC_xlen_attr ; break ; default: break; } vp = array->values ; for(ii=0 ; ii < array->count ; ii++) { len += (*xlen_funct)(vp) ; vp += array->szof ; } } return(len) ; } /* * Add a new handle on the end of and array of handles */ Void * NC_incr_array(array, tail) NC_array *array ; Void *tail ; { char *ap ; if(array == NULL) { NCadvise(NC_EINVAL, "increment: NULL array") ; return(NULL) ; } array->values = (Void*)HDrealloc(array->values, (array->count +1) * array->szof) ; if(array->values == NULL) { nc_serror("extend_array") ; return(NULL) ; } ap = array->values + array->szof * array->count ; (void)memcpy(ap, tail, array->szof) ; array->count ++ ; return(array->values) ; } /* * Definitely NOT Bomb proof. */ void NC_copy_arrayvals( target, array ) char *target ; NC_array *array ; { size_t memlen ; memlen = array->szof * array->count ; (void)memcpy(target, array->values, memlen) ; } bool_t xdr_NC_array(xdrs, app) XDR *xdrs; NC_array **app; { bool_t (*xdr_NC_fnct)() ; u_long count , *countp=NULL ; nc_type type , *typep=NULL ; bool_t stat ; Void *vp ; switch (xdrs->x_op) { case XDR_FREE: NC_free_array((*app)) ; return(TRUE) ; case XDR_ENCODE: if(*app == NULL) { (*app) = NC_new_array(NC_UNSPECIFIED, (unsigned)0, (Void*)NULL) ; if(*app == NULL) { NCadvise(NC_EXDR, "xdr_NC_array:NC_new_array") ; return(FALSE) ; } } count = (*app)->count ; type = (*app)->type ; /* fall into */ case XDR_DECODE: countp = &count ; typep = &type ; break ; } #ifdef USE_ENUM if (! xdr_enum(xdrs, (enum_t *)typep)) { NCadvise(NC_EXDR, "xdr_NC_array:xdr_enum") ; return (FALSE); } #else if (! xdr_int(xdrs, typep)) { NCadvise(NC_EXDR, "xdr_NC_array:xdr_int (enum)") ; return (FALSE); } #endif if (! xdr_u_long(xdrs, countp)) { NCadvise(NC_EXDR, "xdr_NC_array:xdr_u_long") ; return (FALSE); } if( xdrs->x_op == XDR_DECODE ) { if( *typep == NC_UNSPECIFIED && *countp == 0 ) { *app = NULL ; return(TRUE) ; } /* else */ (*app) = NC_new_array(*typep, (unsigned)*countp, (Void*)NULL) ; if((*app) == NULL) { NCadvise(NC_EXDR, "xdr_NC_array:NC_new_array (second call)") ; return(FALSE) ; } } vp = (*app)->values ; switch(*typep){ case NC_UNSPECIFIED : case NC_BYTE : case NC_CHAR : xdr_NC_fnct = xdr_opaque ; goto func ; case NC_SHORT : xdr_NC_fnct = xdr_shorts ; goto func ; case NC_LONG : #if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__ xdr_NC_fnct = xdr_int ; #else xdr_NC_fnct = xdr_long ; #endif goto loop ; case NC_FLOAT : xdr_NC_fnct = xdr_float ; goto loop ; case NC_DOUBLE : xdr_NC_fnct = xdr_double ; goto loop ; /* private types */ case NC_STRING : xdr_NC_fnct = xdr_NC_string ; goto loop ; case NC_DIMENSION : xdr_NC_fnct = xdr_NC_dim ; goto loop ; case NC_VARIABLE : xdr_NC_fnct = xdr_NC_var ; goto loop ; case NC_ATTRIBUTE : xdr_NC_fnct = xdr_NC_attr ; goto loop ; default : { NCadvise(NC_EBADTYPE, "xdr_NC_array: unknown type 0x%x", (unsigned)*typep) ; return(FALSE) ; } } loop: for(stat = TRUE ; stat && (count > 0) ; count--) { stat = (*xdr_NC_fnct)(xdrs,vp) ; vp += (*app)->szof ; } if ( !stat ) NCadvise(NC_EXDR, "xdr_NC_array: loop") ; return(stat) ; func: stat = (*xdr_NC_fnct)(xdrs, vp, *countp); if ( !stat ) NCadvise(NC_EXDR, "xdr_NC_array: func") ; return( stat ); } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/alloc.h0000644000000000000000000000411512421456623014714 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: alloc.h 4933 2007-09-08 03:33:59Z bmribler $ */ #ifndef _ALLOC_H_ #define _ALLOC_H_ #ifndef NO_STDLIB #include #else extern char *malloc(); extern char *realloc(); #ifndef NULL #define NULL 0 #endif /* !NULL */ #endif /* !NO_STDLIB */ #ifdef HDF #define Alloc(theNum, theType) \ (theType *)HDmalloc(sizeof(theType) * (theNum)) #else #define Alloc(theNum, theType) \ (theType *)malloc(sizeof(theType) * (theNum)) #endif #ifndef NO_STDLIB #ifdef HDF #define Free(ptr) HDfree((VOIDP)ptr) #else #define Free(ptr) free(ptr) #define HDfree(ptr) free(ptr) #endif #else /* old style free */ #ifdef HDF #define Free(ptr) (void)HDfree((char *)ptr) #else #define Free(ptr) (void)free((char *)ptr) #define HDfree(ptr) (void)free((char *)ptr) #endif #endif /* !NO_STDLIB */ /* We need to define these to standard ones when HDF is not defined */ #ifndef HDF #define HDcalloc(nelem, elsize) calloc(nelem,elsize) #define HDmemset(dst,c,n) memset(dst,c,n) #define HDrealloc(p,s) realloc(p,s) #define HDmalloc(s) malloc(s) #endif /* HDF */ #define ARRAYLEN(arr) (sizeof(arr)/sizeof(arr[0])) #endif /* !_ALLOC_H_ */ libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/string.c0000644000000000000000000001302212421456623015120 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: string.c 4963 2007-09-15 17:20:52Z bmribler $ */ #include #include "local_nc.h" #include "alloc.h" #ifdef HDF static uint32 compute_hash(unsigned count, const char *str) { uint32 ret=0; uint32 temp; /* check if string is NULL */ if (str == NULL) return ret; while(count > sizeof(uint32)) { HDmemcpy(&temp,str,sizeof(uint32)); ret += temp; str += sizeof(uint32); count -= sizeof(uint32); } /* end while */ if(count > 0) { temp=0; HDmemcpy(&temp,str,count); ret+=temp; } /* end if */ return(ret); } /* end compute_hash() */ #endif /* HDF */ NC_string * NC_new_string(count, str) unsigned count ; const char *str ; { NC_string *ret ; size_t memlen ; if(count > H4_MAX_NC_NAME) { NCadvise(NC_EMAXNAME, "string \"%c%c%c%c%c%c ...\" length %d exceeds %d", str[0], str[1], str[2], str[3], str[4], str[5], count, H4_MAX_NC_NAME ) ; return NULL ; } ret = (NC_string *)HDmalloc(sizeof(NC_string)) ; if( ret == NULL ) goto alloc_err ; ret->count = count ; ret->len = count ; #ifdef HDF ret->hash = compute_hash(count,str); #endif /* HDF */ if(count != 0 ) /* allocate */ { memlen = count + 1 ; ret->values = (char *)HDmalloc(memlen) ; if(ret->values == NULL) goto alloc_err ; if(str != NULL) { #ifdef HDF memcpy(ret->values, str, (size_t)count) ; #else (void)strncpy(ret->values, str, count) ; #endif ret->values[count] = 0 ; } } else { /* use what what you were given */ ret->values = NULL ; } return(ret) ; alloc_err : nc_serror("NC_new_string") ; if(ret != NULL) HDfree(ret) ; return(NULL) ; } /* * Free string, and, if needed, its values. * * NOTE: Changed return value to return 'int' * If successful returns SUCCEED else FAIL -GV 9/19/97 */ int NC_free_string(cdfstr) NC_string *cdfstr ; { int ret_value = SUCCEED; if(cdfstr != NULL) { if(cdfstr->values != NULL) Free(cdfstr->values) ; Free(cdfstr) ; } #ifdef LATER done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ #endif /* LATER */ return ret_value; } NC_string * NC_re_string(old, count, str) NC_string *old ; unsigned count ; const char *str ; { if(old->count < count) /* punt */ { NCadvise(NC_ENOTINDEFINE, "Must be in define mode to increase name length %d", old->count) ; return(NULL) ; } if (str == NULL) return NULL; (void)memcpy(old->values, str, count) ; (void)memset(old->values + count, 0, (int)old->count - (int)count +1) ; /* make sure len is always == to the string length */ old->len = count ; #ifdef HDF old->hash = compute_hash(count,str); #endif /* HDF */ return(old) ; } bool_t xdr_NC_string(xdrs, spp) XDR *xdrs; NC_string **spp; { u_long count ; int status ; switch (xdrs->x_op) { case XDR_FREE: NC_free_string((*spp)) ; return(TRUE) ; case XDR_DECODE: /* need the length to pass to new */ if (! xdr_u_long(xdrs, &count)) { return (FALSE); } if( count == 0) { *spp = NULL ; return(TRUE) ; } /* else */ (*spp) = NC_new_string((unsigned)count, (const char *)NULL) ; if((*spp) == NULL) return(FALSE) ; (*spp)->values[count] = 0 ; /* then deal with the characters */ status = xdr_opaque(xdrs, (*spp)->values, (*spp)->count); /* might be padded */ (*spp)->len = strlen((*spp)->values); return(status); case XDR_ENCODE: /* first deal with the length */ if(*spp == NULL) { count = 0 ; return( xdr_u_long(xdrs, &count) ) ; } /* else */ count = (*spp)->count ; if (! xdr_u_long(xdrs, &count) ) { return (FALSE); } /* then deal with the characters */ return (xdr_opaque(xdrs, (*spp)->values, (*spp)->count)); } return(FALSE) ; } /* * How much space will the xdr'd string take. * */ int NC_xlen_string(cdfstr) NC_string *cdfstr ; { int len = 4 ; int rem ; if(cdfstr!=NULL) { len += cdfstr->count ; if( (rem = len%4) != 0) len += 4 - rem ; } return(len) ; } libhdf4-4.2.10/HDF_ALT/mfhdf/libsrc/file.c0000644000000000000000000007161112421456623014541 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright 1993, University Corporation for Atmospheric Research * * See netcdf/COPYRIGHT file for copying and redistribution conditions. * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: file.c 6036 2014-01-20 17:28:01Z acheng $ */ #ifdef DEBUG #include #endif /* DEBUG */ #include #include #include "local_nc.h" #include "alloc.h" #include "herr.h" /* obtain the maximum number of open files allowed, at the same time, on the current system */ #ifdef _WIN32 #define MAX_SYS_OPENFILES _getmaxstdio() #else #include struct rlimit rlim; #define MAX_SYS_OPENFILES ( \ getrlimit((RLIMIT_NOFILE), (&rlim)), \ rlim.rlim_cur) #endif /* Maximum number of files can be opened at one time; subtract 3 from the system allowed to account for stdin, stdout, and stderr */ /* On AIX 6.1 system the limit is 2GB-1; it caused our library to choke. For now we will use a cap H4_MAX_AVAIL_OPENFILES on the maximum number of files can be open at one time. This limit should probably be in hlimits.h file in the future. EIP 2010-02-01*/ #define H4_MAX_AVAIL_OPENFILES 20000 #define MAX_AVAIL_OPENFILES (((MAX_SYS_OPENFILES - 3) > H4_MAX_AVAIL_OPENFILES) ? H4_MAX_AVAIL_OPENFILES : (MAX_SYS_OPENFILES - 3)) static int _curr_opened = 0 ; /* the number of files currently opened */ /* NOTE: _ncdf might have been the number of files currently opened, yet it is not decremented when ANY file is closed but only when the file that has the same index as _ncdf-1 is closed. Thus, it indicates the last index in _cdfs intead of the number of files currently opened. So, I added _curr_opened to keep track of the number of files currently opened. QAK suggested to use atom as in other interfaces and that would eliminate similar issues. - BMR - 11/03/07 */ static int _ncdf = 0 ; /* high water mark on open cdf's */ static NC **_cdfs; #define HNDLE(id) (((id) >= 0 && (id) < _ncdf) ? _cdfs[(id)] : NULL) #define STASH(id) (((id) >= 0 && (id) < _ncdf) ? \ HNDLE(_cdfs[(id)]->redefid) : NULL) #ifdef NO_STDC_REMOVE /* try unix 'unlink' */ #define remove(fpath) unlink((fpath)) #endif #ifdef DOS_FS #define SEP '\\' /* this separates path components on DOS */ #endif #ifndef SEP #define SEP '/' /* default, unix */ #endif static intn max_NC_open = H4_MAX_NC_OPEN; /* current netCDF default */ /* * Resets _cdfs */ static void ncreset_cdflist() { if (_cdfs != NULL) { HDfree((VOIDP)_cdfs); _cdfs = NULL; } } /* * Allocates _cdfs and returns the allocated size if succeeds; * otherwise return FAIL(-1). */ intn NC_reset_maxopenfiles(req_max) intn req_max; /* requested max to allocate */ { intn sys_limit = MAX_AVAIL_OPENFILES; intn alloc_size; NC **newlist; intn i; int ret_value = SUCCEED; /* Verify arguments */ if (req_max < 0) { NCadvise(NC_EINVAL, "Invalid request: %d for maximum files", req_max); HGOTO_DONE(-1) ; } /* If requested max is 0, allocate _cdfs with the default, max_NC_open, if _cdfs is not yet allocated, otherwise, keep _cdfs as is and return the current max */ if (req_max == 0) { if (!_cdfs) { _cdfs = (NC **)HDmalloc(sizeof(NC *) * (max_NC_open)); /* If allocation fails, return 0 for no allocation */ if (_cdfs == NULL) { /* NC_EINVAL is Invalid Argument, but must decide if we just want to return 0 without error or not */ NCadvise(NC_EINVAL, "Unable to allocate a cdf list of %d elements", max_NC_open); HGOTO_DONE(-1) ; } else HGOTO_DONE(max_NC_open); } else /* return the current limit */ HGOTO_DONE (max_NC_open); } /* if req_max == 0 */ /* If the requested max is less than the current max but there are more than the requested max number of files opened, do not reset the current max, since this will cause information lost. */ if (req_max < max_NC_open && req_max <= _ncdf) HGOTO_DONE(max_NC_open); /* If the requested max exceeds system limit, only allocate up to system limit */ if (req_max > sys_limit) alloc_size = sys_limit; else alloc_size = req_max; /* Allocate a new list */ newlist = (NC **)HDmalloc(sizeof(NC *) * alloc_size); /* If allocation fails, return 0 for no allocation */ if (newlist == NULL) { /* NC_EINVAL is Invalid Argument, but must decide if we just want to return 0 without error or not */ NCadvise(NC_EINVAL, "Unable to allocate a cdf list of %d elements", alloc_size) ; HGOTO_DONE(-1) ; } /* If _cdfs is already allocated, transfer pointers over to the new list and deallocate the old list of pointers */ if (_cdfs != NULL) { for (i=0; i < _ncdf; i++) newlist[i] = _cdfs[i]; HDfree(_cdfs); } /* Set _cdfs to the new list */ _cdfs = newlist; newlist = NULL; /* Reset current max files opened allowed in HDF to the new max */ max_NC_open = alloc_size; HGOTO_DONE(max_NC_open); done: if (ret_value == FAIL) { /* Failure cleanup */ /* Nothing yet. */ } /* Normal cleanup */ return ret_value; } /* NC_reset_maxopenfiles */ /* * Returns the current # of open files allowed */ intn NC_get_maxopenfiles() { return(max_NC_open); } /* NC_get_maxopenfiles */ /* * Returns the maximum number of open files the system allows. */ intn NC_get_systemlimit() { return(MAX_AVAIL_OPENFILES); } /* NC_get_systemlimit */ /* * Returns the number of files currently being opened. */ int NC_get_numopencdfs() { return(_curr_opened); } /* NC_get_numopencdfs */ /* * Check validity of cdf handle, return pointer to NC struct or * NULL on error. */ NC * NC_check_id(cdfid) int cdfid ; { NC *handle ; handle = ( cdfid >= 0 && cdfid < _ncdf) ? _cdfs[cdfid] : NULL ; if(handle == NULL) { NCadvise(NC_EBADID, "%d is not a valid cdfid", cdfid) ; return(NULL) ; } return(handle) ; } /* * Check to see if in define mode. * If 'iserr' arg is true, advise. */ bool_t NC_indefine(cdfid, iserr) /* Should be a Macro ? */ int cdfid ; bool_t iserr ; { bool_t ret ; ret = (cdfid >= 0 && cdfid < _ncdf) ? (bool_t)(_cdfs[cdfid]->flags & NC_INDEF) : FALSE ; if(!ret && iserr) { if(cdfid < 0 || cdfid >= _ncdf) NCadvise(NC_EBADID, "%d is not a valid cdfid", cdfid) ; else NCadvise(NC_ENOTINDEFINE, "%s Not in define mode", _cdfs[cdfid]->path) ; } return(ret) ; } /* * Common code for ncopen and nccreate. */ static int NC_open(path, mode ) const char *path ; /* file name */ int mode ; { NC *handle ; int id; intn cdfs_size; /* Allocate _cdfs, if it is already allocated, nothing will be done */ if (_cdfs == NULL){ if (FAIL == (cdfs_size = NC_reset_maxopenfiles(0))) { NCadvise(NC_ENFILE, "Could not reset max open files limit"); return(-1); } } /* find first available id */ for(id = 0 ; id < _ncdf; id++) if( _cdfs[id] == NULL) break ; /* if application attempts to open more files than the current max allows, increase the current max to the system limit, if it's not at the system limit yet */ if(id == _ncdf && _ncdf >= max_NC_open) { /* if the current max already reaches the system limit, fail */ if (max_NC_open == MAX_AVAIL_OPENFILES) { NCadvise(NC_ENFILE, "maximum number of open cdfs allowed already reaches system limit %d", MAX_AVAIL_OPENFILES) ; return(-1); } /* otherwise, increase the current max to the system limit */ if (FAIL == NC_reset_maxopenfiles(MAX_AVAIL_OPENFILES)) { NCadvise(NC_ENFILE, "Could not reset max open files limit"); return(-1); } } handle = NC_new_cdf(path, mode) ; if( handle == NULL) { /* if the failure was due to "too many open files," simply return */ if(errno == EMFILE) { nc_serror("maximum number of open files allowed has been reached\"%s\"", path) ; return(-1); } if((mode & 0x0f) == NC_CLOBBER) { /* only attempt to remove the file if it's not currently in use - bugzilla #376 */ if(!HPisfile_in_use(path)) if( remove(path) != 0 ) nc_serror("couldn't remove filename \"%s\"", path) ; } return(-1) ; } (void) strncpy(handle->path, path, FILENAME_MAX) ; _cdfs[id] = handle ; if(id == _ncdf) _ncdf++ ; _curr_opened++; return(id) ; } int nccreate(path, cmode) const char *path ; /* file name */ int cmode ; { cdf_routine_name = "nccreate" ; if(cmode & NC_CREAT) { return(NC_open(path, cmode)) ; } NCadvise(NC_EINVAL, "Bad Flag") ; return(-1) ; } int ncopen(path,mode) const char *path ; /* file name */ int mode ; { cdf_routine_name = "ncopen" ; if(mode & NC_CREAT) { NCadvise(NC_EINVAL, "Bad Flag") ; return(-1) ; } return(NC_open(path, mode)) ; } int ncsync(id) int id ; { NC *handle ; cdf_routine_name = "ncsync" ; handle = NC_check_id(id) ; if(handle == NULL) return(-1) ; if( handle->flags & NC_INDEF ) { NCadvise(NC_EINDEFINE, "Unfinished definition") ; return(-1) ; } if(handle->flags & NC_RDWR) { handle->xdrs->x_op = XDR_ENCODE ; if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; #ifdef HDF if (handle->file_type != HDF_FILE) #endif handle->flags &= ~(NC_NDIRTY) ; } } else /* read only */ { /* assert(handle->xdrs->x_op == XDR_DECODE) ; */ /* free the stuff in handle that xdr_cdf allocates */ handle->xdrs->x_op = XDR_FREE ; (void) xdr_cdf(handle->xdrs, &handle) ; handle->xdrs->x_op = XDR_DECODE ; if(!xdr_cdf(handle->xdrs, &handle) ) { nc_serror("xdr_cdf") ; NC_free_cdf(handle) ; /* ?? what should we do now? */ #if 0 /* not sure if we need this here, will check again - 1/26/08 BMR */ /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); #endif return(-1) ; } if( NC_computeshapes(handle) == -1) return(-1) ; } (void) NCxdrfile_sync(handle->xdrs) ; return(0) ; } /* * In data mode, same as ncclose ; * In define mode, restore previous definition ; * In create, remove the file ; */ int ncabort(cdfid) int cdfid ; { NC *handle ; char path[FILENAME_MAX + 1] ; unsigned flags ; #ifdef HDF intn file_type; #endif cdf_routine_name = "ncabort" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; flags = handle->flags ; /* need to save past free_cdf */ /* NC_CREAT implies NC_INDEF, in both cases need to remove handle->path */ if(flags & (NC_INDEF | NC_CREAT)) { (void)strncpy(path, handle->path, FILENAME_MAX) ; /* stash path */ if(!(flags & NC_CREAT)) /* redef */ { NC_free_cdf(STASH(cdfid)) ; _cdfs[handle->redefid] = NULL ; if(handle->redefid == _ncdf - 1) _ncdf-- ; handle->redefid = -1 ; _curr_opened--; /* one less file currently opened */ /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); } } else if(handle->flags & NC_RDWR) { handle->xdrs->x_op = XDR_ENCODE ; if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; } else if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; } } #ifdef HDF file_type = handle->file_type; #endif NC_free_cdf(handle) ; /* calls fclose */ #ifdef HDF switch(file_type) { case netCDF_FILE: if(flags & (NC_INDEF | NC_CREAT)) { if( remove(path) != 0 ) nc_serror("couldn't remove filename \"%s\"", path) ; } break; case HDF_FILE: if(flags & NC_CREAT) { if( remove(path) != 0 ) nc_serror("couldn't remove filename \"%s\"", path) ; } break; } #else if(flags & (NC_INDEF | NC_CREAT)) { if( remove(path) != 0 ) nc_serror("couldn't remove filename \"%s\"", path) ; } #endif _cdfs[cdfid] = NULL ; /* reset pointer */ /* if current file is at the top of the list, adjust the water mark */ if(cdfid == _ncdf - 1) _ncdf-- ; _curr_opened--; /* one less file currently being opened */ /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); return(0) ; } /* ncabort */ /* * Deprecated function ; */ int ncnobuf(cdfid) int cdfid ; { NC *handle ; cdf_routine_name = "ncnobuf" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; /* NOOP */ return(0); } /* * Given the path to a file "proto", * we replace the filename component with * a name like one would get from tmpnam(3S). * (Many implementations of tmpnam insist on giving us * a directory like /usr/tmp as well. Since we are making a copy which we * will eventually rename() back to proto, we want the return of NCtempname * and proto to dwell on the same filesystem.) */ static char * NCtempname(proto) const char *proto ; { /* NO_ACCESS defined if the OS lacks the access() function */ #ifndef NO_ACCESS # define TN_NACCES 1 #else # define TN_NACCES 0 #endif /* !NO_ACCESS */ /* NO_GETPID defined if the OS lacks the getpid() function */ #ifndef NO_GETPID # define TN_NDIGITS 4 #ifdef _WIN32 typedef int pid_t; #endif pid_t getpid(void); unsigned int pid ; /* OS/2 DOS (MicroSoft Lib) allows "negative" int pids */ #else # define TN_NDIGITS 0 #endif /* !NO_GETPID */ static char seed[] = {'a','a','a', '\0'} ; #define TN_NSEED (sizeof(seed) -1) static char tnbuf[FILENAME_MAX +1] ; char *begin, *cp, *sp ; /* assert(TN_NSEED > 0) ; */ strcpy(tnbuf,proto) ; #ifdef SEP if ((begin = strrchr(tnbuf, SEP)) == NULL) begin = tnbuf ; else begin++ ; if(&tnbuf[FILENAME_MAX] - begin <= TN_NSEED + TN_NACCES + TN_NDIGITS) { /* not big enough */ tnbuf[0] = '\0' ; return tnbuf ; } #else begin = tnbuf ; #endif /* SEP */ *begin = '\0' ; (void) strcat(begin, seed) ; cp = begin + TN_NSEED + TN_NACCES + TN_NDIGITS ; #ifndef NO_GETPID *cp = '\0' ; pid = getpid() ; while(--cp >= begin + TN_NSEED + TN_NACCES) { *cp = (pid % 10) + '0' ; pid /= 10 ; } #else *cp-- = '\0' ; #endif /* !NO_GETPID */ /* update seed for next call */ sp = seed ; while(*sp == 'z') *sp++ = 'a' ; if(*sp != '\0') ++*sp ; #ifndef NO_ACCESS for(*cp = 'a' ; access(tnbuf, 0) == 0 ; ) { if(++*cp > 'z') { /* ran out of tries */ tnbuf[0] = '\0' ; return tnbuf ; } } #endif /* !NO_ACCESS */ return tnbuf ; } int ncredef(cdfid) int cdfid ; { NC *handle ; NC *new ; int id ; char *scratchfile ; cdf_routine_name = "ncredef" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if( handle->flags & NC_INDEF) /* in define mode already */ { NC *stash = STASH(cdfid) ; if(stash) NCadvise(NC_EINDEFINE, "%s: in define mode aleady", stash->path) ; return(-1) ; } if(!(handle->flags & NC_RDWR)) { NCadvise(NC_EPERM, "%s: NC_NOWRITE", handle->path) ; return(-1) ; } #ifdef HDF if(handle->file_type == HDF_FILE) { handle->flags |= NC_INDEF ; handle->redefid = TRUE; return(0); } #endif /* find first available id */ for(id = 0 ; id < _ncdf; id++) if( _cdfs[id] == NULL) break ; if(id == _ncdf && _ncdf >= max_NC_open) /* will need a new one */ { NCadvise(NC_ENFILE, "maximum number of open cdfs %d exceeded", _ncdf) ; return(-1) ; } if( ncopts & NC_NOFILL ) { /* fill last record */ handle->xdrs->x_op = XDR_ENCODE ; if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY) ; } } scratchfile = NCtempname(handle->path) ; new = NC_dup_cdf(scratchfile, NC_NOCLOBBER, handle) ; if(new == NULL) { return(-1) ; } handle->flags |= NC_INDEF ; (void) strncpy(new->path, scratchfile, FILENAME_MAX) ; /* put the old handle in the new id */ _cdfs[id] = handle ; if(id == _ncdf) _ncdf++ ; _curr_opened++; /* put the new handle in old id */ _cdfs[cdfid] = new ; new->redefid = id ; return(0) ; } /* * Compute offsets and put into the header */ static void NC_begins(handle) NC *handle ; { unsigned ii ; u_long index = 0 ; NC_var **vpp ; NC_var *last = NULL ; if(handle->vars == NULL) return ; index = NC_xlen_cdf(handle) ; /* loop thru vars, first pass is for the 'non-record' vars */ vpp = (NC_var **)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, vpp++) { if( IS_RECVAR(*vpp) ) { continue ; /* skip record variables on this pass */ } (*vpp)->begin = index ; index += (*vpp)->len ; #ifdef EDEBUG NCadvise(NC_NOERR, "%s pass 1 begin %d, length %d", (*vpp)->name->values, (*vpp)->begin, (*vpp)->len) ; #endif /* EDEBUG */ } handle->begin_rec = index ; handle->recsize = 0 ; /* loop thru vars, second pass is for the 'non-record' vars */ vpp = (NC_var **)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, vpp++) { if( !IS_RECVAR(*vpp) ) { continue ; /* skip non-record variables on this pass */ } (*vpp)->begin = index ; #ifdef EDEBUG NCadvise(NC_NOERR, "%s pass 2 begin %d, len %d, *dsizes %d", (*vpp)->name->values, (*vpp)->begin, index, (*vpp)->len, *(*vpp)->dsizes ) ; #endif /* EDEBUG */ index += (*vpp)->len ; handle->recsize += (*vpp)->len ; last = (*vpp) ; } /* * for special case of exactly one record variable, pack values */ if(last != NULL && handle->recsize == last->len) handle->recsize = *last->dsizes ; handle->numrecs = 0 ; } /* * Copy nbytes bytes from source to target. * Streams target and source should be positioned before the call. * opaque I/O, no XDR conversion performed (or needed). * The Macros XDR_GETBYTES and XDR_PUTBYTES may not be * supported on your xdr implementation. If not, calls * to xdr_opaque may be used. */ bool_t NC_dcpy( target, source, nbytes) XDR *target ; XDR *source ; long nbytes ; { /* you may wish to tune this: big on a cray, small on a PC? */ #define NC_DCP_BUFSIZE 8192 char buf[NC_DCP_BUFSIZE] ; while(nbytes > sizeof(buf)) { if(!XDR_GETBYTES(source, buf, sizeof(buf))) goto err ; if(!XDR_PUTBYTES(target, buf, sizeof(buf))) goto err ; nbytes -= sizeof(buf) ; } /* we know nbytes <= sizeof(buf) at this point */ if(!XDR_GETBYTES(source, buf, nbytes)) goto err ; if(!XDR_PUTBYTES(target, buf, nbytes)) goto err ; return(TRUE) ; err: NCadvise(NC_EXDR, "NC_dcpy") ; return(FALSE) ; } /* * XDR the data of varid in old, target is the new xdr strm */ static bool_t NC_vcpy( target, old, varid) XDR *target ; NC *old ; int varid ; { NC_var **vpp ; vpp = (NC_var **)old->vars->values ; vpp += varid ; if( !xdr_setpos(old->xdrs, (*vpp)->begin) ) { NCadvise(NC_EXDR, "NC_vcpy: xdr_setpos") ; return(FALSE) ; } return(NC_dcpy(target, old->xdrs, (*vpp)->len)) ; } /* * XDR the data of (varid, recnum) in old, target is the new xdr strm */ static bool_t NC_reccpy( target, old, varid, recnum) XDR *target ; NC *old ; int varid ; int recnum ; { NC_var **vpp ; vpp = (NC_var **)old->vars->values ; vpp += varid ; if( !xdr_setpos(old->xdrs, (*vpp)->begin + old->recsize*recnum )){ NCadvise(NC_EXDR, "NC_reccpy: xdr_setpos") ; return(FALSE) ; } return(NC_dcpy(target, old->xdrs, (*vpp)->len)) ; } /* * Common code for ncendef, ncclose(endef) */ static int NC_endef( cdfid, handle ) int cdfid ; NC *handle ; { XDR *xdrs ; unsigned ii ; unsigned jj = 0 ; NC_var **vpp ; NC *stash = STASH(cdfid) ; /* faster rvalue */ #ifdef HDF if(handle->file_type != HDF_FILE) #endif NC_begins(handle) ; xdrs = handle->xdrs ; xdrs->x_op = XDR_ENCODE ; if(!xdr_cdf(xdrs, &handle) ) { nc_serror("xdr_cdf") ; return(-1) ; } #ifdef HDF /* Get rid of the temporary buffer allocated for I/O */ SDPfreebuf(); if(handle->file_type == HDF_FILE) { handle->flags &= ~(NC_CREAT | NC_INDEF | NC_NDIRTY | NC_HDIRTY) ; return(0) ; } #endif if(handle->vars == NULL) goto done ; /* loop thru vars, first pass is for the 'non-record' vars */ vpp = (NC_var **)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, vpp++) { if( IS_RECVAR(*vpp) ) { continue ; /* skip record variables on this pass */ } #ifdef DEBUG assert( (*vpp)->begin == xdr_getpos(xdrs) ) ; #endif /* DEBUG */ if( !(handle->flags & NC_CREAT) && stash->vars != NULL && ii < stash->vars->count) { /* copy data */ if( !NC_vcpy(xdrs, stash, ii) ) return(-1) ; continue ; } /* else */ if( !(handle->flags & NC_NOFILL) ) if( !xdr_NC_fill(xdrs, *vpp) ) return(-1) ; } if(!(handle->flags & NC_CREAT)) /* after redefinition */ { for(jj = 0 ; jj < stash->numrecs ; jj++) { vpp = (NC_var **)handle->vars->values ; for(ii = 0 ; ii < handle->vars->count ; ii++, vpp++) { if( !IS_RECVAR(*vpp) ) { continue ; /* skip non-record variables on this pass */ } if( stash->vars != NULL && ii < stash->vars->count) { /* copy data */ if( !NC_reccpy(xdrs, stash, ii, jj) ) return(-1) ; continue ; } /* else */ if( !(handle->flags & NC_NOFILL) ) if( !xdr_NC_fill(xdrs, *vpp) ) return(-1) ; } } handle->numrecs = stash->numrecs ; if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; } #ifdef EDEBUG NCadvise(NC_NOERR, "begin %d, recsize %d, numrecs %d", handle->begin_rec, handle->recsize, handle->numrecs) ; #endif /* EDEBUG */ if(!(handle->flags & NC_CREAT)) /* redefine */ { char realpath[FILENAME_MAX + 1] ; strcpy(realpath, stash->path) ; /* close stash */ /* NC_free_cdf(stash) ; */ #ifdef DOS_FS xdr_destroy(handle->xdrs) ; /* close handle */ if( remove(realpath) != 0 ) nc_serror("couldn't remove filename \"%s\"", realpath) ; #endif if( rename(handle->path, realpath) != 0) { nc_serror("rename %s -> %s failed", handle->path, realpath) ; /* try to restore state prior to redef */ _cdfs[cdfid] = stash ; _cdfs[handle->redefid] = NULL ; if(handle->redefid == _ncdf - 1) _ncdf-- ; _curr_opened--; /* one less file currently opened */ NC_free_cdf(handle) ; /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); return(-1) ; } (void) strncpy(handle->path, realpath, FILENAME_MAX) ; #ifdef DOS_FS if( NCxdrfile_create( handle->xdrs, handle->path, NC_WRITE ) < 0) return -1 ; #endif NC_free_cdf(stash) ; _cdfs[handle->redefid] = NULL ; if(handle->redefid == _ncdf - 1) _ncdf-- ; _curr_opened--; /* one less file currently opened */ handle->redefid = -1 ; /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); } done: handle->flags &= ~(NC_CREAT | NC_INDEF | NC_NDIRTY | NC_HDIRTY) ; return(0) ; } int ncendef( cdfid ) int cdfid ; { NC *handle ; cdf_routine_name = "ncendef" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if( !NC_indefine(cdfid,TRUE) ) return(-1) ; return( NC_endef(cdfid, handle) ) ; } /* * This routine is called by SDend()? -GV */ int ncclose( cdfid ) int cdfid ; { NC *handle ; cdf_routine_name = "ncclose" ; handle = NC_check_id(cdfid) ; if(handle == NULL) return(-1) ; if( handle->flags & NC_INDEF) { if( NC_endef(cdfid, handle) == -1 ) { return( ncabort(cdfid) ) ; } } else if(handle->flags & NC_RDWR) { handle->xdrs->x_op = XDR_ENCODE ; if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; } else if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; } } #ifdef HDF if(handle->file_type == HDF_FILE) hdf_close(handle); #endif NC_free_cdf(handle) ; /* calls fclose */ _cdfs[cdfid] = NULL ; /* reset pointer */ if(cdfid == _ncdf - 1) _ncdf-- ; _curr_opened--; /* one less file currently opened */ /* if the _cdf list is empty, deallocate and reset it to NULL */ if (_ncdf == 0) ncreset_cdflist(); return(0) ; } int ncsetfill(id, fillmode) int id ; int fillmode ; { NC *handle ; int ret = 0 ; cdf_routine_name = "ncsetfill" ; handle = NC_check_id(id) ; if(handle == NULL) return(-1) ; if(!(handle->flags & NC_RDWR)) { /* file isn't writable */ NCadvise(NC_EPERM, "%s is not writable", handle->path) ; return -1 ; } ret = (handle->flags & NC_NOFILL) ? NC_NOFILL : NC_FILL ; if(fillmode == NC_NOFILL) handle->flags |= NC_NOFILL ; else if(fillmode == NC_FILL) { if(handle->flags & NC_NOFILL) { /* * We are changing back to fill mode * so do a sync */ #ifdef HDF /* save the original x_op */ enum xdr_op xdr_op = handle->xdrs->x_op; if (handle->flags & NC_RDWR) /* make sure we can write */ handle->xdrs->x_op = XDR_ENCODE; /* to the file */ #endif if(handle->flags & NC_HDIRTY) { if(!xdr_cdf(handle->xdrs, &handle) ) return(-1) ; handle->flags &= ~(NC_NDIRTY | NC_HDIRTY) ; } else if(handle->flags & NC_NDIRTY) { if(!xdr_numrecs(handle->xdrs, handle) ) return(-1) ; #ifdef HDF if (handle->file_type != HDF_FILE) handle->flags &= ~(NC_NDIRTY) ; #else handle->flags &= ~(NC_NDIRTY) ; #endif } handle->flags &= ~NC_NOFILL ; #ifdef HDF /* re-store the x_op */ handle->xdrs->x_op = xdr_op; #endif } } else { NCadvise(NC_EINVAL, "Bad fillmode") ; return -1 ; } return ret ; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/0000755000000000000000000000000012474643755014024 5ustar libhdf4-4.2.10/HDF_ALT/mfhdf/examples/Makefile.in0000644000000000000000000006034012474643755016074 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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@ ############################################################################# ############################################################################# # We can't tell automake about example programs, because they need to be # built using h4cc (or h4fc, etc.) instead of the standard compilers. # This creates some extra work for us. VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/testexamples.sh.in $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am \ $(top_srcdir)/config/examples.am TESTS = $(TEST_PROG) subdir = mfhdf/examples ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = testexamples.sh CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog ExternalSDS *.hdf DEFINES = -DNDEBUG -DHDF ############################################################################# ############################################################################# EXAMPLE_PROG = SD_create_sds SD_write_to_sds SD_write_slab \ SD_alter_sds_values SD_unlimited_sds SD_compress_sds \ SD_mv_sds_to_external SD_read_from_sds SD_read_subsets \ SD_get_info SD_find_sds_by_name SD_set_get_dim_info \ SD_dimscale_vs_sds SD_set_attr SD_get_attr SD_chunking_example TEST_PROG = $(EXAMPLE_PROG) INSTALL_FILES = SD_create_sds.c SD_write_to_sds.c SD_write_slab.c \ SD_alter_sds_values.c SD_unlimited_sds.c SD_compress_sds.c \ SD_mv_sds_to_external.c SD_read_from_sds.c SD_read_subsets.c \ SD_get_info.c SD_find_sds_by_name.c SD_set_get_dim_info.c \ SD_dimscale_vs_sds.c SD_set_attr.c SD_get_attr.c SD_chunking_example.c EXAMPLEDIR = $(prefix)/examples/c DISTCLEANFILES = *.chklog *.chkexe .deps @BUILD_SHARED_SZIP_CONDITIONAL_TRUE@LD_LIBRARY_PATH = $(LL_PATH) # Assume that all tests in this directory are examples, and tell # conclude.am when to build them. EXTRA_PROG = $(EXAMPLE_PROG) # We need to tell automake what to clean MOSTLYCLEANFILES = *.o $(EXAMPLE_PROG) CLEANFILES = $(EXAMPLE_PROG) # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.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 mfhdf/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign mfhdf/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.am: $(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): testexamples.sh: $(top_builddir)/config.status $(srcdir)/testexamples.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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 "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-data-local 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: installcheck-local maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool \ mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-local .MAKE: check-am install-am install-strip .PHONY: all all-am all-local check check-TESTS check-am clean \ clean-generic clean-libtool distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am \ install-data-local 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 installcheck-local installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am uninstall uninstall-am uninstall-local # How to build programs using h4cc $(EXTRA_PROG): $(H4CC) $(H4CC) $(H4CCFLAGS) $(CFLAGS) -o $@ $(srcdir)/$@.c; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal C++ compiler, not h4cc. This is # an inelegant way of solving the problem, unfortunately. create_sds: $(srcdir)/SD_create_sds.c write_to_sds: $(srcdir)/SD_write_to_sds.c write_slab: $(srcdir)/SD_write_slab.c alter_sds_values: $(srcdir)/SD_alter_sds_values.c unlimited_sds: $(srcdir)/SD_unlimited_sds.c compress_sds: $(srcdir)/SD_compress_sds.c mv_sds_to_external: $(srcdir)/SD_mv_sds_to_external.c read_from_sds: $(srcdir)/SD_read_from_sds.c read_subsets: $(srcdir)/SD_read_subsets.c get_info: $(srcdir)/SD_get_info.c find_sds_by_name: $(srcdir)/SD_find_sds_by_name.c set_get_dim_info: $(srcdir)/SD_set_get_dim_info.c dimscale_vs_sds: $(srcdir)/SD_dimscale_vs_sds.c set_attr: $(srcdir)/SD_set_attr.c get_attr: $(srcdir)/SD_get_attr.c chunking_example: $(srcdir)/SD_chunking_example.c # How to create EXAMPLEDIR if it doesn't already exist $(DESTDIR)$(EXAMPLEDIR): mkdir -p $@ # Install and uninstall rules. We install the source files, not the # example programs themselves. install-data-local: @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-local: @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples install-examples: $(DESTDIR)$(EXAMPLEDIR) @for f in X $(INSTALL_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLEDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ fi; \ done @for f in X $(INSTALL_TOP_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLETOPDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_TOP_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ fi; \ done uninstall-examples: @if test -n "$(INSTALL_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_FILES); \ fi @if test -n "$(INSTALL_SCRIPT_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_SCRIPT_FILES); \ fi @if test -n "$(INSTALL_TOP_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_FILES); \ fi @if test -n "$(INSTALL_TOP_SCRIPT_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_SCRIPT_FILES); \ fi installcheck-local: @if test "$(STATIC_SHARED)" = "static, shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ $(MAKE) $(AM_MAKEFLAGS) clean; \ H5CCFLAGS="" $(MAKE) $(AM_MAKEFLAGS) check; \ elif test "$(STATIC_SHARED)" = "shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ else \ $(MAKE) $(AM_MAKEFLAGS) check; \ fi # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/mfhdf/examples/testexamples.sh.in0000755000000000000000000000057612421456623017502 0ustar # This test script only runs all the examples right now. It needs # a lot of work. It should use h4cc to build the examples too. ./create_sds ./write_to_sds ./write_slab ./read_from_sds ./alter_sds_values ./chunking_example ./compress_sds ./dimscale_vs_sds ./find_sds_by_name ./set_attr ./get_attr ./get_info ./mv_sds_to_external ./read_subsets ./set_get_dim_info ./unlimited_sds libhdf4-4.2.10/HDF_ALT/mfhdf/examples/CMakeLists.txt0000644000000000000000000000226712421456623016557 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_MFHDF_EXAMPLES) #----------------------------------------------------------------------------- # Define Sources #----------------------------------------------------------------------------- SET (examples SD_create_sds SD_write_to_sds SD_write_slab SD_alter_sds_values SD_unlimited_sds SD_compress_sds SD_mv_sds_to_external SD_read_from_sds SD_read_subsets SD_get_info SD_find_sds_by_name SD_set_get_dim_info SD_dimscale_vs_sds SD_set_attr SD_get_attr SD_chunking_example ) FOREACH (example ${examples}) ADD_EXECUTABLE (mf_${example} ${HDF4_MFHDF_EXAMPLES_SOURCE_DIR}/${example}.c) TARGET_NAMING (mf_${example} ${LIB_TYPE}) TARGET_C_PROPERTIES (mf_${example} " " " ") IF (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (mf_${example} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ${HDF4_MF_XDR_LIB_TARGET}) ELSE (HDF4_BUILD_XDR_LIB) TARGET_LINK_LIBRARIES (mf_${example} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_XDR_LIB) ENDFOREACH (example ${examples}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_unlimited_sds.c0000644000000000000000000000517712421456623017417 0ustar #include "mfhdf.h" #define FILE_NAME "SDSUNLIMITED.hdf" #define SDS_NAME "AppendableData" #define X_LENGTH 10 #define Y_LENGTH 10 #define RANK 2 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 dim_sizes[2]; int32 data[Y_LENGTH][X_LENGTH], append_data[X_LENGTH]; int32 start[2], edges[2]; int i, j; /********************* End of variable declaration ***********************/ /* * Data initialization. */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + 1) + (j + 1); } /* * Create the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_CREATE); /* * Define dimensions of the array. Make the first dimension * appendable by defining its length to be unlimited. */ dim_sizes[0] = SD_UNLIMITED; dim_sizes[1] = X_LENGTH; /* * Create the array data set. */ sds_id = SDcreate (sd_id, SDS_NAME, DFNT_INT32, RANK, dim_sizes); /* * Define the location and the size of the data to be written * to the data set. */ start[0] = start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* * Write the data. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); /* * Terminate access to the array data set, terminate access * to the SD interface, and close the file. */ status = SDendaccess (sds_id); status = SDend (sd_id); /* * Store the array values to be appended to the data set. */ for (i = 0; i < X_LENGTH; i++) append_data[i] = 1000 + i; /* * Reopen the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Select the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Check if selected SDS is unlimited. If it is not, then terminate access * to the SD interface and close the file. */ if ( SDisrecord (sds_id) ) { /* * Define the location of the append to start at the first column * of the 11th row of the data set and to stop at the end of the * eleventh row. */ start[0] = Y_LENGTH; start[1] = 0; edges[0] = 1; edges[1] = X_LENGTH; /* * Append data to the data set. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)append_data); } /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_chunking_example.c0000644000000000000000000002011712421456623020064 0ustar #include "mfhdf.h" #define FILE_NAME "SDSchunked.hdf" #define SDS_NAME "ChunkedData" #define RANK 2 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 flag, maxcache, new_maxcache; int32 dim_sizes[2], origin[2]; HDF_CHUNK_DEF c_def, c_def_out; /* Chunking definitions */ int32 comp_flag, c_flags; int16 all_data[9][4]; int32 start[2], edges[2]; int16 chunk_out[3][2]; int16 row[2] = { 5, 5 }; int16 column[3] = { 4, 4, 4 }; int16 fill_value = 0; /* Fill value */ int i,j; /* * Declare chunks data type and initialize some of them. */ int16 chunk1[3][2] = { 1, 1, 1, 1, 1, 1 }; int16 chunk2[3][2] = { 2, 2, 2, 2, 2, 2 }; int16 chunk3[3][2] = { 3, 3, 3, 3, 3, 3 }; int16 chunk6[3][2] = { 6, 6, 6, 6, 6, 6 }; /********************* End of variable declaration ***********************/ /* * Define chunk's dimensions. * * In this example we do not use compression. * To use chunking with RLE, Skipping Huffman, and GZIP * compression, initialize * * c_def.comp.chunk_lengths[0] = 3; * c_def.comp.chunk_lengths[1] = 2; * * To use chunking with NBIT, initialize * * c_def.nbit.chunk_lengths[0] = 3; * c_def.nbit.chunk_lengths[1] = 2; * */ c_def.chunk_lengths[0] = 3; c_def.chunk_lengths[1] = 2; /* * Create the file and initialize SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_CREATE); /* * Create 9x4 SDS. */ dim_sizes[0] = 9; dim_sizes[1] = 4; sds_id = SDcreate (sd_id, SDS_NAME,DFNT_INT16, RANK, dim_sizes); /* * Fill the SDS array with the fill value. */ status = SDsetfillvalue (sds_id, (VOIDP)&fill_value); /* * Create chunked SDS. * In this example we do not use compression ( third * parameter of SDsetchunk is set to HDF_CHUNK). * * To use RLE compresssion, set compression type and flag * * c_def.comp.comp_type = COMP_CODE_RLE; * comp_flag = HDF_CHUNK | HDF_COMP; * * To use Skipping Huffman compression, set compression type, flag * and skipping size skp_size * * c_def.comp.comp_type = COMP_CODE_SKPHUFF; * c_def.comp.cinfo.skphuff.skp_size = value; * comp_flag = HDF_CHUNK | HDF_COMP; * * To use GZIP compression, set compression type, flag and * deflate level * * c_def.comp.comp_type = COMP_CODE_DEFLATE; * c_def.comp.cinfo.deflate.level = value; * comp_flag = HDF_CHUNK | HDF_COMP; * * To use NBIT compression, set compression flag and * compression parameters * * comp_flag = HDF_CHUNK | HDF_NBIT; * c_def.nbit.start_bit = value1; * c_def.nbit.bit_len = value2; * c_def.nbit.sign_ext = value3; * c_def.nbit.fill_one = value4; */ comp_flag = HDF_CHUNK; status = SDsetchunk (sds_id, c_def, comp_flag); /* * Set chunk cache to hold maximum of 3 chunks. */ maxcache = 3; flag = 0; new_maxcache = SDsetchunkcache (sds_id, maxcache, flag); /* * Write chunks using SDwritechunk function. * Chunks can be written in any order. */ /* * Write the chunk with the coordinates (0,0). */ origin[0] = 0; origin[1] = 0; status = SDwritechunk (sds_id, origin, (VOIDP) chunk1); /* * Write the chunk with the coordinates (1,0). */ origin[0] = 1; origin[1] = 0; status = SDwritechunk (sds_id, origin, (VOIDP) chunk3); /* * Write the chunk with the coordinates (0,1). */ origin[0] = 0; origin[1] = 1; status = SDwritechunk (sds_id, origin, (VOIDP) chunk2); /* * Write chunk with the coordinates (1,2) using * SDwritedata function. */ start[0] = 6; start[1] = 2; edges[0] = 3; edges[1] = 2; status = SDwritedata (sds_id, start, NULL, edges, (VOIDP) chunk6); /* * Fill second column in the chunk with the coordinates (1,1) * using SDwritedata function. */ start[0] = 3; start[1] = 3; edges[0] = 3; edges[1] = 1; status = SDwritedata (sds_id, start, NULL, edges, (VOIDP) column); /* * Fill second row in the chunk with the coordinates (0,2) * using SDwritedata function. */ start[0] = 7; start[1] = 0; edges[0] = 1; edges[1] = 2; status = SDwritedata (sds_id, start, NULL, edges, (VOIDP) row); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); /* * Reopen the file and access the first data set. */ sd_id = SDstart (FILE_NAME, DFACC_READ); sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Get information about the SDS. Only chunk lengths and compression * flag can be returned. Compression information is not available if * NBIT, Skipping Huffman, or GZIP compression is used. */ status = SDgetchunkinfo (sds_id, &c_def_out, &c_flags); if (c_flags == HDF_CHUNK ) printf(" SDS is chunked\nChunk's dimensions %dx%d\n", c_def_out.chunk_lengths[0], c_def_out.chunk_lengths[1]); else if (c_flags == (HDF_CHUNK | HDF_COMP)) printf("SDS is chunked and compressed\nChunk's dimensions %dx%d\n", c_def_out.comp.chunk_lengths[0], c_def_out.comp.chunk_lengths[1]); else if (c_flags == (HDF_CHUNK | HDF_NBIT)) printf ("SDS is chunked (NBIT)\nChunk's dimensions %dx%d\n", c_def_out.nbit.chunk_lengths[0], c_def_out.nbit.chunk_lengths[1]); /* * Read the entire data set using SDreaddata function. */ start[0] = 0; start[1] = 0; edges[0] = 9; edges[1] = 4; status = SDreaddata (sds_id, start, NULL, edges, (VOIDP)all_data); /* * Print out what we have read. * The following information should be displayed: * * SDS is chunked * Chunk's dimensions 3x2 * 1 1 2 * 1 1 2 2 * 1 1 2 2 * 3 3 0 4 * 3 3 0 4 * 3 3 0 4 * 0 0 6 6 * 5 5 6 6 * 0 0 6 6 */ for (j=0; j<9; j++) { for (i=0; i<4; i++) printf (" %d", all_data[j][i]); printf ("\n"); } /* * Read chunk with the coordinates (2,0) and display it. */ origin[0] = 2; origin[1] = 0; status = SDreadchunk (sds_id, origin, chunk_out); printf (" Chunk (2,0) \n"); for (j=0; j<3; j++) { for (i=0; i<2; i++) printf (" %d", chunk_out[j][i]); printf ("\n"); } /* * Read chunk with the coordinates (1,1) and display it. */ origin[0] = 1; origin[1] = 1; status = SDreadchunk (sds_id, origin, chunk_out); printf (" Chunk (1,1) \n"); for (j=0; j<3; j++) { for (i=0; i<2; i++) printf (" %d", chunk_out[j][i]); printf ("\n"); } /* The following information is displayed: * * Chunk (2,0) * 0 0 * 5 5 * 0 0 * Chunk (1,1) * 0 4 * 0 4 * 0 4 */ /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/Makefile.am0000644000000000000000000000502212421456623016043 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am DEFINES=-DNDEBUG -DHDF ############################################################################# ## Programs to build ## ############################################################################# EXAMPLE_PROG = SD_create_sds SD_write_to_sds SD_write_slab \ SD_alter_sds_values SD_unlimited_sds SD_compress_sds \ SD_mv_sds_to_external SD_read_from_sds SD_read_subsets \ SD_get_info SD_find_sds_by_name SD_set_get_dim_info \ SD_dimscale_vs_sds SD_set_attr SD_get_attr SD_chunking_example TEST_PROG = $(EXAMPLE_PROG) INSTALL_FILES = SD_create_sds.c SD_write_to_sds.c SD_write_slab.c \ SD_alter_sds_values.c SD_unlimited_sds.c SD_compress_sds.c \ SD_mv_sds_to_external.c SD_read_from_sds.c SD_read_subsets.c \ SD_get_info.c SD_find_sds_by_name.c SD_set_get_dim_info.c \ SD_dimscale_vs_sds.c SD_set_attr.c SD_get_attr.c SD_chunking_example.c EXAMPLEDIR=$(prefix)/examples/c # How to build programs using h4cc $(EXTRA_PROG): $(H4CC) $(H4CC) $(H4CCFLAGS) $(CFLAGS) -o $@ $(srcdir)/$@.c; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal C++ compiler, not h4cc. This is # an inelegant way of solving the problem, unfortunately. create_sds: $(srcdir)/SD_create_sds.c write_to_sds: $(srcdir)/SD_write_to_sds.c write_slab: $(srcdir)/SD_write_slab.c alter_sds_values: $(srcdir)/SD_alter_sds_values.c unlimited_sds: $(srcdir)/SD_unlimited_sds.c compress_sds: $(srcdir)/SD_compress_sds.c mv_sds_to_external: $(srcdir)/SD_mv_sds_to_external.c read_from_sds: $(srcdir)/SD_read_from_sds.c read_subsets: $(srcdir)/SD_read_subsets.c get_info: $(srcdir)/SD_get_info.c find_sds_by_name: $(srcdir)/SD_find_sds_by_name.c set_get_dim_info: $(srcdir)/SD_set_get_dim_info.c dimscale_vs_sds: $(srcdir)/SD_dimscale_vs_sds.c set_attr: $(srcdir)/SD_set_attr.c get_attr: $(srcdir)/SD_get_attr.c chunking_example: $(srcdir)/SD_chunking_example.c CHECK_CLEANFILES += ExternalSDS DISTCLEANFILES = *.chklog *.chkexe .deps if BUILD_SHARED_SZIP_CONDITIONAL LD_LIBRARY_PATH=$(LL_PATH) endif include $(top_srcdir)/config/examples.am include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_mv_sds_to_external.c0000644000000000000000000000162612421456623020446 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" #define EXT_FILE_NAME "ExternalSDS" #define OFFSET 24 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index, offset; intn status; /********************* End of variable declaration ***********************/ /* * Open the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Select the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Create a file with the name EXT_FILE_NAME and move the data set * values into it, starting at byte location OFFSET. */ status = SDsetexternalfile (sds_id, EXT_FILE_NAME, OFFSET); /* * Terminate access to the data set, SD interface, and file. */ status = SDendaccess (sds_id); status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_read_subsets.c0000644000000000000000000000703012421456623017225 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" #define SUB1_LENGTH 5 #define SUB2_LENGTH 4 #define SUB3_LENGTH1 2 #define SUB3_LENGTH2 3 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 start[2], edges[2], stride[2]; int32 sub1_data[SUB1_LENGTH]; int32 sub2_data[SUB2_LENGTH]; int32 sub3_data[SUB3_LENGTH2][SUB3_LENGTH1]; int i, j; /********************* End of variable declaration ***********************/ /* * Open the file for reading and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_READ); /* * Select the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Reading the first subset. * * Set elements of start, edges, and stride arrays to read * every 3rd element in the 2nd column starting at 4th row. */ start[0] = 3; /* 4th row */ start[1] = 1; /* 2nd column */ edges[0] = SUB1_LENGTH; /* SUB1_LENGTH elements are read along 2nd column*/ edges[1] = 1; stride[0] = 3; /* every 3rd element is read along 2nd column */ stride[1] = 1; /* * Read the data from the file into sub1_data array. */ status = SDreaddata (sds_id, start, stride, edges, (VOIDP)sub1_data); /* * Print what we have just read; the following numbers should be displayed: * * 5 8 1000 14 17 */ for (j = 0; j < SUB1_LENGTH; j++) printf ("%d ", sub1_data[j]); printf ("\n"); /* * Reading the second subset. * * Set elements of start and edges arrays to read * first 4 elements of the 10th row. */ start[0] = 9; /* 10th row */ start[1] = 0; /* 1st column */ edges[0] = 1; edges[1] = SUB2_LENGTH; /* SUB2_LENGTH elements are read along 10th row */ /* * Read data from the file into sub2_data array. Note that the third * parameter is set to NULL for contiguous reading. */ status = SDreaddata (sds_id, start, NULL, edges, (VOIDP)sub2_data); /* * Print what we have just read; the following numbers should be displayed: * * 10 1000 12 13 */ for (j = 0; j < SUB2_LENGTH; j++) printf ("%d ", sub2_data[j]); printf ("\n"); /* * Reading the third subset. * * Set elements of the arrays start, edges, and stride to read * every 6th element in the column and 4th element in the row * starting at 1st column, 3d row. */ start[0] = 2; /* 3d row */ start[1] = 0; /* 1st column */ edges[0] = SUB3_LENGTH2; /* SUB3_LENGTH2 elements are read along each column */ edges[1] = SUB3_LENGTH1; /* SUB3_LENGTH1 elements are read along each row */ stride[0] = 6; /* read every 6th element along each column */ stride[1] = 4; /* read every 4th element along each row */ /* * Read the data from the file into sub3_data array. */ status = SDreaddata (sds_id, start, stride, edges, (VOIDP)sub3_data); /* * Print what we have just read; the following numbers should be displayed: * * 3 7 * 9 13 * 15 19 */ for ( j = 0; j < SUB3_LENGTH2; j++ ) { for (i = 0; i < SUB3_LENGTH1; i++) printf ("%d ", sub3_data[j][i]); printf ("\n"); } /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_compress_sds.c0000644000000000000000000000435212421456623017252 0ustar #include "mfhdf.h" #define FILE_NAME "SDScompressed.hdf" #define SDS_NAME "SDSgzip" #define X_LENGTH 5 #define Y_LENGTH 16 #define RANK 2 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id; intn status; int32 comp_type; /* Compression flag */ comp_info c_info; /* Compression structure */ int32 start[2], edges[2], dim_sizes[2]; int32 data[Y_LENGTH][X_LENGTH]; int i, j; /********************* End of variable declaration ***********************/ /* * Buffer array data and define array dimensions. */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; /* * Create the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_CREATE); /* * Create the data set with the name defined in SDS_NAME. */ sds_id = SDcreate (sd_id, SDS_NAME, DFNT_INT32, RANK, dim_sizes); /* * Ininitialize compression structure element and compression * flag for GZIP compression and call SDsetcompress. * * To use the Skipping Huffman compression method, initialize * comp_type = COMP_CODE_SKPHUFF * c_info.skphuff.skp_size = value * * To use the RLE compression method, initialize * comp_type = COMP_CODE_RLE * No structure element needs to be initialized. */ comp_type = COMP_CODE_DEFLATE; c_info.deflate.level = 6; status = SDsetcompress (sds_id, comp_type, &c_info); /* * Define the location and size of the data set * to be written to the file. */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* * Write the stored data to the data set. The last argument * must be explicitly cast to a generic pointer since SDwritedata * is designed to write generic data. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_set_get_dim_info.c0000644000000000000000000001136212421456623020043 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" #define SDS_NAME "SDStemplate" #define DIM_NAME_X "X_Axis" #define DIM_NAME_Y "Y_Axis" #define NAME_LENGTH 6 #define X_LENGTH 5 #define Y_LENGTH 16 #define RANK 2 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 dim_index, dim_id; int32 n_values, data_type, n_attrs; int16 data_X[X_LENGTH]; /* X dimension dimension scale */ int16 data_X_out[X_LENGTH]; float64 data_Y[Y_LENGTH]; /* Y dimension dimension scale */ float64 data_Y_out[Y_LENGTH]; char dim_name[NAME_LENGTH+1]; int i, j, nrow; /********************* End of variable declaration ***********************/ /* * Initialize dimension scales. */ for (i=0; i < X_LENGTH; i++) data_X[i] = i; for (i=0; i < Y_LENGTH; i++) data_Y[i] = 0.1 * i; /* * Open the file and initialize SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Get the index of the data set specified in SDS_NAME. */ sds_index = SDnametoindex (sd_id, SDS_NAME); /* * Select the data set corresponding to the returned index. */ sds_id = SDselect (sd_id, sds_index); /* For each dimension of the data set specified in SDS_NAME, * get its dimension identifier and set dimension name * and dimension scale. Note that data type of dimension scale * can be different between dimensions and can be different from * SDS data type. */ for (dim_index = 0; dim_index < RANK; dim_index++) { /* * Select the dimension at position dim_index. */ dim_id = SDgetdimid (sds_id, dim_index); /* * Assign name and dimension scale to selected dimension. */ switch (dim_index) { case 0: status = SDsetdimname (dim_id, DIM_NAME_Y); n_values = Y_LENGTH; status = SDsetdimscale (dim_id,n_values,DFNT_FLOAT64, \ (VOIDP)data_Y); break; case 1: status = SDsetdimname (dim_id, DIM_NAME_X); n_values = X_LENGTH; status = SDsetdimscale (dim_id,n_values,DFNT_INT16, \ (VOIDP)data_X); break; default: break; } /* * Get and display info about the dimension and its scale values. * The following information is displayed: * * Information about 1 dimension: * dimension name is Y_Axis * number of scale values is 16 * dimension scale data type is float64 * number of dimension attributes is 0 * * Scale values are : * 0.000 0.100 0.200 0.300 * 0.400 0.500 0.600 0.700 * 0.800 0.900 1.000 1.100 * 1.200 1.300 1.400 1.500 * * Information about 2 dimension: * dimension name is X_Axis * number of scale values is 5 * dimension scale data type is int16 * number of dimension attributes is 0 * * Scale values are : * 0 1 2 3 4 */ status = SDdiminfo (dim_id, dim_name, &n_values, &data_type, &n_attrs); printf ("Information about %d dimension:\n", dim_index+1); printf ("dimension name is %s\n", dim_name); printf ("number of scale values is %d\n", n_values); if( data_type == DFNT_FLOAT64) printf ("dimension scale data type is float64\n"); if( data_type == DFNT_INT16) printf ("dimension scale data type is int16\n"); printf ("number of dimension attributes is %d\n", n_attrs); printf ("\n"); printf ("Scale values are :\n"); switch (dim_index) { case 0: status = SDgetdimscale (dim_id, (VOIDP)data_Y_out); nrow = 4; for (i=0; i) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (mftest_${example} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (mftest_${example} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "mftest_${example}") ENDFOREACH (example ${examples}) libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_write_to_sds.c0000644000000000000000000000272512421456623017255 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" #define X_LENGTH 5 #define Y_LENGTH 16 int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 start[2], edges[2]; int32 data[Y_LENGTH][X_LENGTH]; int i, j; /********************* End of variable declaration ***********************/ /* * Data set data initialization. */ for (j = 0; j < Y_LENGTH; j++) { for (i = 0; i < X_LENGTH; i++) data[j][i] = (i + j) + 1; } /* * Open the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Attach to the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Define the location and size of the data to be written to the data set. */ start[0] = 0; start[1] = 0; edges[0] = Y_LENGTH; edges[1] = X_LENGTH; /* * Write the stored data to the data set. The third argument is set to NULL * to specify contiguous data elements. The last argument must * be explicitly cast to a generic pointer since SDwritedata is designed * to write generic data. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)data); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_set_attr.c0000644000000000000000000000413212421456623016367 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" #define FILE_ATTR_NAME "File_contents" #define SDS_ATTR_NAME "Valid_range" #define DIM_ATTR_NAME "Dim_metric" int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 dim_id, dim_index; int32 n_values; /* number of values of the file, SDS or dimension attribute */ char8 file_values[] = "Storm_track_data"; /* values of the file attribute */ float32 sds_values[2] = {2., 10.}; /* values of the SDS attribute */ char8 dim_values[] = "Seconds"; /* values of the dimension attribute */ /********************* End of variable declaration ***********************/ /* * Open the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Set an attribute that describes the file contents. */ n_values = 16; status = SDsetattr (sd_id, FILE_ATTR_NAME, DFNT_CHAR, n_values, (VOIDP)file_values); /* * Select the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Assign attribute to the first SDS. Note that attribute values * may have different data type than SDS data. */ n_values = 2; status = SDsetattr (sds_id, SDS_ATTR_NAME, DFNT_FLOAT32, n_values, (VOIDP)sds_values); /* * Get the the second dimension identifier of the SDS. */ dim_index = 1; dim_id = SDgetdimid (sds_id, dim_index); /* * Set an attribute of the dimension that specifies the dimension metric. */ n_values = 7; status = SDsetattr (dim_id, DIM_ATTR_NAME, DFNT_CHAR, n_values, (VOIDP)dim_values); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_alter_sds_values.c0000644000000000000000000000251412421456623020103 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id, sds_index; intn status; int32 start[2], edges[2]; int32 new_data[2]; /********************* End of variable declaration ***********************/ /* * Open the file and initialize the SD interface with write access. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Select the first data set. */ sds_index = 0; sds_id = SDselect (sd_id, sds_index); /* * Set up the start and edge parameters to write new element values * into 10th row, 2nd column place, and 11th row, 2nd column place. */ start[0] = 9; /* starting at 10th row */ start[1] = 1; /* starting at 2nd column */ edges[0] = 2; /* rows 10th and 11th */ edges[1] = 1; /* column 2nd only */ /* * Initialize buffer with the new values to be written. */ new_data[0] = new_data[1] = 1000; /* * Write the new values. */ status = SDwritedata (sds_id, start, NULL, edges, (VOIDP)new_data); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/mfhdf/examples/SD_get_info.c0000644000000000000000000000343212421456623016336 0ustar #include "mfhdf.h" #define FILE_NAME "SDS.hdf" int main() { /************************* Variable declaration **************************/ int32 sd_id, sds_id; intn status; int32 n_datasets, n_file_attrs, index; int32 dim_sizes[H4_MAX_VAR_DIMS]; int32 rank, data_type, n_attrs; char name[H4_MAX_NC_NAME]; int i; /********************* End of variable declaration ***********************/ /* * Open the file and initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_READ); /* * Determine the number of data sets in the file and the number * of file attributes. */ status = SDfileinfo (sd_id, &n_datasets, &n_file_attrs); /* * Access every data set and print its name, rank, dimension sizes, * data type, and number of attributes. * The following information should be displayed: * * name = SDStemplate * rank = 2 * dimension sizes are : 16 5 * data type is 24 * number of attributes is 0 */ for (index = 0; index < n_datasets; index++) { sds_id = SDselect (sd_id, index); status = SDgetinfo (sds_id, name, &rank, dim_sizes, &data_type, &n_attrs); printf ("name = %s\n", name); printf ("rank = %d\n", rank); printf ("dimension sizes are : "); for (i=0; i< rank; i++) printf ("%d ", dim_sizes[i]); printf ("\n"); printf ("data type is %d\n", data_type); printf ("number of attributes is %d\n", n_attrs); /* * Terminate access to the data set. */ status = SDendaccess (sds_id); } /* * Terminate access to the SD interface and close the file. */ status = SDend (sd_id); return 0; } libhdf4-4.2.10/HDF_ALT/MANIFEST0000644000000000000000000007110512421456623012243 0ustar #------------------------------------------------------------------------------ # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at # http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. #------------------------------------------------------------------------------ # # This is the list of files that are part of HDF4 source distribution. # All files have a `./' prefix and appear in lexicographic order. # Lines that end with _DO_NOT_DISTRIBUTE_ will not be included in a # release. Blank lines and comments are ignored. Comments must start # in column one with a '#'. #------------------------------------------------------------------------------ ./MANIFEST ./COPYING ./Makefile.am ./Makefile.in ./Makefile.dist ./README.txt ./aclocal.m4 ./configure ./configure.ac ./libhdf4.settings.in ./move-if-change ./m4/ltsugar.m4 ./m4/libtool.m4 ./m4/ltversion.m4 ./m4/lt~obsolete.m4 ./m4/ltoptions.m4 ./bin/chkmanifest ./bin/cmakehdf4 ./bin/compile ./bin/config.guess ./bin/config.sub ./bin/depcomp ./bin/deploy ./bin/install-sh ./bin/locate_sw ./bin/ltmain.sh ./bin/missing ./bin/mkinstalldirs ./bin/newer ./bin/reconfigure ./bin/runtest ./bin/snapshot ./bin/timekeeper _DO_NOT_DISTRIBUTE_ ./bin/yodconfigure ./bin/h4vers ./bin/release ./config/BlankForm ./config/aix ./config/apple ./config/commence.am ./config/conclude.am ./config/examples.am ./config/freebsd ./config/i686-pc-cygwin ./config/linux-gnu ./config/powerpc64-linux-gnu ./config/powerpc-apple ./config/powerpc-ibm-aix5.x ./config/solaris2.x ./config/x86_64-pc-cygwin ./hdf/Makefile.am ./hdf/Makefile.in ./hdf/examples/AN_create_annotation.c ./hdf/examples/AN_get_annotation_info.c ./hdf/examples/AN_read_annotation.c ./hdf/examples/GR_create_and_write_image.c ./hdf/examples/GR_get_attribute.c ./hdf/examples/GR_image_info.c ./hdf/examples/GR_modify_image.c ./hdf/examples/GR_read_chunks.c ./hdf/examples/GR_read_image.c ./hdf/examples/GR_read_palette.c ./hdf/examples/GR_set_attribute.c ./hdf/examples/GR_write_chunks.c ./hdf/examples/GR_write_palette.c ./hdf/examples/Makefile.am ./hdf/examples/Makefile.in ./hdf/examples/README ./hdf/examples/run-all-ex.sh ./hdf/examples/run-c-ex.sh ./hdf/examples/VD_create_onefield_vdatas.c ./hdf/examples/VD_create_vdatas.c ./hdf/examples/VD_get_vdata_info.c ./hdf/examples/VD_locate_vdata.c ./hdf/examples/VD_read_from_vdata.c ./hdf/examples/VD_read_mixed_vdata.c ./hdf/examples/VD_set_get_vdata_attr.c ./hdf/examples/VD_write_mixed_vdata.c ./hdf/examples/VD_write_mixed_vdata_struct.c ./hdf/examples/VD_write_to_vdata.c ./hdf/examples/VG_add_sds_to_vgroup.c ./hdf/examples/VG_create_vgroup.c ./hdf/examples/VG_get_vgroup_info.c ./hdf/examples/VG_insert_vdatas_to_vgroup.c ./hdf/examples/VG_set_get_vgroup_attr.c ./hdf/examples/VG_vgroup_contents.c ./hdf/fortran/Makefile.am ./hdf/fortran/Makefile.in ./hdf/fortran/hdf_fortrandll.def ./hdf/fortran/examples/AN_create_annotation.f ./hdf/fortran/examples/AN_get_annotation_info.f ./hdf/fortran/examples/AN_read_annotation.f ./hdf/fortran/examples/GR_create_and_write_image.f ./hdf/fortran/examples/GR_get_attribute.f ./hdf/fortran/examples/GR_image_info.f ./hdf/fortran/examples/GR_modify_image.f ./hdf/fortran/examples/GR_read_image.f ./hdf/fortran/examples/GR_read_palette.f ./hdf/fortran/examples/GR_set_attribute.f ./hdf/fortran/examples/GR_write_palette.f ./hdf/fortran/examples/Makefile.am ./hdf/fortran/examples/Makefile.in ./hdf/fortran/examples/run-fortran-ex.sh ./hdf/fortran/examples/VD_create_onefield_vdatas.f ./hdf/fortran/examples/VD_create_vdatas.f ./hdf/fortran/examples/VD_get_vdata_info.f ./hdf/fortran/examples/VD_locate_vdata.f ./hdf/fortran/examples/VD_read_from_vdata.f ./hdf/fortran/examples/VD_read_mixed_vdata.f ./hdf/fortran/examples/VD_set_get_vdata_attr.f ./hdf/fortran/examples/VD_write_mixed_vdata.f ./hdf/fortran/examples/VD_write_to_vdata.f ./hdf/fortran/examples/VG_add_sds_to_vgroup.f ./hdf/fortran/examples/VG_create_vgroup.f ./hdf/fortran/examples/VG_get_vgroup_info.f ./hdf/fortran/examples/VG_insert_vdatas_to_vgroup.f ./hdf/fortran/examples/VG_set_get_vgroup_attr.f ./hdf/fortran/examples/VG_vgroup_contents.f ./hdf/src/Makefile.am ./hdf/src/Makefile.in ./hdf/src/atom.c ./hdf/src/atom.h ./hdf/src/bitvect.c ./hdf/src/bitvect.h ./hdf/src/cdeflate.c ./hdf/src/cdeflate.h ./hdf/src/cnbit.c ./hdf/src/cnbit.h ./hdf/src/cnone.c ./hdf/src/cnone.h ./hdf/src/crle.c ./hdf/src/crle.h ./hdf/src/cskphuff.c ./hdf/src/cskphuff.h ./hdf/src/cszip.c ./hdf/src/cszip.h ./hdf/src/df24.c ./hdf/src/df24f.c ./hdf/src/df24ff.f ./hdf/src/dfan.c ./hdf/src/dfanf.c ./hdf/src/dfanff.f ./hdf/src/dfan.h ./hdf/src/dfcomp.c ./hdf/src/dfconv.c ./hdf/src/dfconvrt.h ./hdf/src/dff.c ./hdf/src/dfff.f ./hdf/src/dffunc.inc ./hdf/src/dfgr.c ./hdf/src/dfgr.h ./hdf/src/dfgroup.c ./hdf/src/df.h ./hdf/src/dfi.h ./hdf/src/dfimcomp.c ./hdf/src/dfjpeg.c ./hdf/src/dfknat.c ./hdf/src/dfkswap.c ./hdf/src/dfp.c ./hdf/src/dfpf.c ./hdf/src/dfpff.f ./hdf/src/dfr8.c ./hdf/src/dfr8f.c ./hdf/src/dfr8ff.f ./hdf/src/dfrig.h ./hdf/src/dfrle.c ./hdf/src/dfsd.c ./hdf/src/dfsdf.c ./hdf/src/dfsdff.f ./hdf/src/dfsd.h ./hdf/src/dfstubs.c ./hdf/src/dfstubs.h ./hdf/src/dfufp2i.c ./hdf/src/dfufp2if.c ./hdf/src/dfufp2iff.f ./hdf/src/dfufp2i.h ./hdf/src/dfunjpeg.c ./hdf/src/dfutil.c ./hdf/src/dfutilf.c ./hdf/src/dynarray.c ./hdf/src/dynarray.h ./hdf/src/glist.c ./hdf/src/glist.h ./hdf/src/H4api_adpt.h ./hdf/src/h4config.h.in ./hdf/src/hbitio.c ./hdf/src/hbitio.h ./hdf/src/hblocks.c ./hdf/src/hbuffer.c ./hdf/src/hchunks.c ./hdf/src/hchunks.h ./hdf/src/hcomp.c ./hdf/src/hcomp.h ./hdf/src/hcompi.h ./hdf/src/hcompri.c ./hdf/src/hconv.h ./hdf/src/hdatainfo.c ./hdf/src/hdatainfo.h ./hdf/src/hdfalloc.c ./hdf/src/hdf.h ./hdf/src/hdfi.h ./hdf/src/hdf.inc ./hdf/src/herr.c ./hdf/src/herrf.c ./hdf/src/herr.h ./hdf/src/hextelt.c ./hdf/src/hfile.c ./hdf/src/hfiledd.c ./hdf/src/hfilef.c ./hdf/src/hfileff.f ./hdf/src/hfile.h ./hdf/src/hkit.c ./hdf/src/hkit.h ./hdf/src/hlimits.h ./hdf/src/hntdefs.h ./hdf/src/hproto.h ./hdf/src/hproto_fortran.h ./hdf/src/hqueue.h ./hdf/src/htags.h ./hdf/src/.indent.pro ./hdf/src/linklist.c ./hdf/src/linklist.h ./hdf/src/maldebug.c ./hdf/src/maldebug.h ./hdf/src/mcache.c ./hdf/src/mcache.h ./hdf/src/mfan.c ./hdf/src/mfanf.c ./hdf/src/mfan.h ./hdf/src/mfgr.c ./hdf/src/mfgrf.c ./hdf/src/mfgrff.f ./hdf/src/mfgr.h ./hdf/src/mstdio.c ./hdf/src/mstdio.h ./hdf/src/patchlevel.h ./hdf/src/src.inc ./hdf/src/tbbt.c ./hdf/src/tbbt.h ./hdf/src/trace.h ./hdf/src/vattr.c ./hdf/src/vattrf.c ./hdf/src/vattrff.f ./hdf/src/vattr.h ./hdf/src/vconv.c ./hdf/src/vg.c ./hdf/src/vgf.c ./hdf/src/vgff.f ./hdf/src/vg.h ./hdf/src/vgint.h ./hdf/src/vgp.c ./hdf/src/vhi.c ./hdf/src/vio.c ./hdf/src/vparse.c ./hdf/src/vrw.c ./hdf/src/vsfld.c ./hdf/test/Makefile.am ./hdf/test/Makefile.in ./hdf/test/README ./hdf/test/test_files/8bit.dat ./hdf/test/an.c ./hdf/test/anfile.c ./hdf/test/bitio.c ./hdf/test/test_files/bitio.dat ./hdf/test/blocks.c ./hdf/test/buffer.c ./hdf/test/chunks.c ./hdf/test/comp.c ./hdf/test/conv.c ./hdf/test/egchi.res ./hdf/test/egfhi.f ./hdf/test/egfhi.res ./hdf/test/extelt.c ./hdf/test/file1.c ./hdf/test/file.c ./hdf/test/forsupf.c ./hdf/test/forsupff.f ./hdf/test/fortest.c ./hdf/test/fortestF.f ./hdf/test/fortest.h ./hdf/test/fortest.inc ./hdf/test/fortest.sav ./hdf/test/gentest.c ./hdf/test/test_files/greyjpeg.dat ./hdf/test/test_files/gr_r24.dat ./hdf/test/test_files/jpeg.dat ./hdf/test/litend.c ./hdf/test/test_files/litend.dat ./hdf/test/macros.c ./hdf/test/man.c ./hdf/test/manf.f ./hdf/test/mgr.c ./hdf/test/mgrf.f ./hdf/test/mgrf_sunOS.f ./hdf/test/nbit.c ./hdf/test/test_files/nbit.dat ./hdf/test/rig.c ./hdf/test/sdmms.c ./hdf/test/sdnmms.c ./hdf/test/sdstr.c ./hdf/test/slab.c ./hdf/test/slabwf.f ./hdf/test/t24f.f ./hdf/test/tanf.f ./hdf/test/tanfilef.f ./hdf/test/tbv.c ./hdf/test/tdatainfo.c ./hdf/test/tdatainfo.h ./hdf/test/tattdatainfo.c ./hdf/test/tdfr8.c ./hdf/test/tdupimgs.c ./hdf/test/testhdf.c ./hdf/test/test_files/tmgr.dat ./hdf/test/tmgrattr.c ./hdf/test/tmgrcomp.c ./hdf/test/tpf.f ./hdf/test/tproto.h ./hdf/test/tr8f.f ./hdf/test/tree.c ./hdf/test/tsdmmsf.f ./hdf/test/tsdnmmsf.f ./hdf/test/tsdnntf.f ./hdf/test/tsdntf.f ./hdf/test/tsdstrf.f ./hdf/test/tstubsf.f ./hdf/test/tszip.c ./hdf/test/tusejpegfuncs.c ./hdf/test/tutils.c ./hdf/test/tutils.h ./hdf/test/tv1.res ./hdf/test/tv2.res ./hdf/test/tvattr.c ./hdf/test/test_files/README ./hdf/test/test_files/grtdfui83.hdf ./hdf/test/test_files/tvattr.dat ./hdf/test/tvattrf.f ./hdf/test/tvnameclass.c ./hdf/test/tvset.c ./hdf/test/tvsetf.f ./hdf/test/tvsfpack.c ./hdf/test/vers.c ./hdf/util/HELINK.OPT ./hdf/util/Makefile.am ./hdf/util/Makefile.in ./hdf/util/README ./hdf/util/README.fp2hdf ./hdf/util/README.fp2hdf.test ./hdf/util/README.TST ./hdf/util/decompress.c ./hdf/util/fp2hdf.c ./hdf/util/fp2hdf.input1 ./hdf/util/fp2hdf.input1-32 ./hdf/util/fp2hdf.out1 ./hdf/util/fp2hdf.out1-32 ./hdf/util/fp2hdf.out2 ./hdf/util/fp2hdf.out2-32 ./hdf/util/fp2hdf.test ./hdf/util/fp2hdf.test.result ./hdf/util/fptest.c ./hdf/util/getopt1.c ./hdf/util/getopt.c ./hdf/util/gif2hdf.c ./hdf/util/gif2mem.c ./hdf/util/gif.h ./hdf/util/gifread.c ./hdf/util/h4cc.in ./hdf/util/h4fc.in ./hdf/util/h4redeploy.in ./hdf/util/hdf24to8.c ./hdf/util/hdf2gif.c ./hdf/util/hdf2jpeg.c ./hdf/util/hdf8to24.c ./hdf/util/hdfcomp.c ./hdf/util/hdfcomp.out1 ./hdf/util/hdfcomp.out1.1 ./hdf/util/hdfcomp.out1.2 ./hdf/util/hdfed.input1 ./hdf/util/hdfed.out1 ./hdf/util/hdfed-w.out1 ./hdf/util/hdfgifwr.c ./hdf/util/hdfls.c ./hdf/util/hdfpack.c ./hdf/util/hdfpack.out1 ./hdf/util/hdfpack.out1.1 ./hdf/util/hdfpack.out1.2 ./hdf/util/hdfrseq.c ./hdf/util/hdftopal.c ./hdf/util/hdftor8.c ./hdf/util/hdftor8.out1 ./hdf/util/hdfunpac.c ./hdf/util/he_cntrl.c ./hdf/util/he_disp.c ./hdf/util/he_file.c ./hdf/util/he.h ./hdf/util/he_main.c ./hdf/util/he_proto.h ./hdf/util/jpeg2hdf.c ./hdf/util/jpeg2hdf.out1 ./hdf/util/paltohdf.c ./hdf/util/r8tohdf.c ./hdf/util/ristosds.c ./hdf/util/ristosds.input1 ./hdf/util/ristosds.out1 ./hdf/util/testutil.sh.in ./hdf/util/vcompat.c ./hdf/util/vmake.c ./hdf/util/vshow.c ./hdf/util/writehdf.c ./hdf/util/MacProjects/PalToHDF.project.hqx ./hdf/util/MacProjects/R8ToHDF.project.hqx ./hdf/util/MacProjects/RISToHDF.project.hqx ./hdf/util/MacProjects/fp2hdf.project.hqx ./hdf/util/MacProjects/hdf24to8.project.hqx ./hdf/util/MacProjects/hdfcomp.project.hqx ./hdf/util/MacProjects/hdfed.project.hqx ./hdf/util/MacProjects/hdfls.project.hqx ./hdf/util/MacProjects/hdfpack.project.hqx ./hdf/util/MacProjects/hdftopal.project.hqx ./hdf/util/MacProjects/hdftoR8.project.hqx ./hdf/util/MacProjects/vshow.project.hqx ./hdf/util/testfiles/README ./hdf/util/testfiles/SunWheel.gif ./hdf/util/testfiles/bttrfly.gif ./hdf/util/testfiles/head.r24 ./hdf/util/testfiles/head.r8 ./hdf/util/testfiles/jet2.hdf ./hdf/util/testfiles/jpeg_img.jpg ./hdf/util/testfiles/ntcheck.hdf ./hdf/util/testfiles/palette.raw ./hdf/util/testfiles/skull.hdf ./hdf/util/testfiles/storm110.hdf ./hdf/util/testfiles/storm110.raw ./hdf/util/testfiles/storm120.hdf ./hdf/util/testfiles/storm120.raw ./hdf/util/testfiles/storm130.hdf ./hdf/util/testfiles/storm130.raw ./hdf/util/testfiles/storm140.raw ./hdf/util/testfiles/test.cdf ./hdf/util/testfiles/test.hdf ./hdf/util/testfiles/tvattr.hdf ./hdf/util/testfiles/fp2hdf/h100x100 ./hdf/util/testfiles/fp2hdf/h100x100h ./hdf/util/testfiles/fp2hdf/h100x100hv ./hdf/util/testfiles/fp2hdf/h60x75 ./hdf/util/testfiles/fp2hdf/h60x75n ./hdf/util/testfiles/fp2hdf/h60x75v ./hdf/util/testfiles/fp2hdf/pal.hdf ./hdf/util/testfiles/fp2hdf/t100x100 ./man/Makefile.am ./man/Makefile.in ./man/gr_chunk.3 ./man/hdf.1 ./man/hdfunpac.1 ./mfhdf/COPYRIGHT ./mfhdf/FAQ ./mfhdf/Makefile.am ./mfhdf/Makefile.in ./mfhdf/README ./mfhdf/THANKS ./mfhdf/build.bat ./mfhdf/dumper/Makefile.am ./mfhdf/dumper/Makefile.in ./mfhdf/dumper/README ./mfhdf/dumper/TEST ./mfhdf/dumper/hdp.c ./mfhdf/dumper/hdp_dump.c ./mfhdf/dumper/hdp_gr.c ./mfhdf/dumper/hdp.h ./mfhdf/dumper/hdp_list.c ./mfhdf/dumper/hdp.mak ./mfhdf/dumper/hdp_rig.c ./mfhdf/dumper/hdp_sds.c ./mfhdf/dumper/hdp.txt ./mfhdf/dumper/hdp_util.c ./mfhdf/dumper/hdp_vd.c ./mfhdf/dumper/hdp_vg.c ./mfhdf/dumper/show.c ./mfhdf/dumper/testhdp.sh.in ./mfhdf/dumper/testfiles/Example6.hdf ./mfhdf/dumper/testfiles/Image_with_Palette.hdf ./mfhdf/dumper/testfiles/IMCOMP.hdf ./mfhdf/dumper/testfiles/LongDataset.hdf ./mfhdf/dumper/testfiles/Roy.nc ./mfhdf/dumper/testfiles/SDSlongname.hdf ./mfhdf/dumper/testfiles/Tables.hdf ./mfhdf/dumper/testfiles/Tables_External_File ./mfhdf/dumper/testfiles/VGlongname.hdf ./mfhdf/dumper/testfiles/ctxtr2r.hdf ./mfhdf/dumper/testfiles/dumpgr-10.out ./mfhdf/dumper/testfiles/dumpgr-11.out ./mfhdf/dumper/testfiles/dumpgr-12.out ./mfhdf/dumper/testfiles/dumpgr-13.out ./mfhdf/dumper/testfiles/dumpgr-14.out ./mfhdf/dumper/testfiles/dumpgr-15.out ./mfhdf/dumper/testfiles/dumpgr-16.out ./mfhdf/dumper/testfiles/dumpgr-17.out ./mfhdf/dumper/testfiles/dumpgr-18.out ./mfhdf/dumper/testfiles/dumpgr-19.out ./mfhdf/dumper/testfiles/dumpgr-20.out ./mfhdf/dumper/testfiles/dumpgr-1.out ./mfhdf/dumper/testfiles/dumpgr-2.out ./mfhdf/dumper/testfiles/dumpgr-3.out ./mfhdf/dumper/testfiles/dumpgr-4.out ./mfhdf/dumper/testfiles/dumpgr-5.out ./mfhdf/dumper/testfiles/dumpgr-6.out ./mfhdf/dumper/testfiles/dumpgr-7.out ./mfhdf/dumper/testfiles/dumpgr-8.out ./mfhdf/dumper/testfiles/dumpgr-9.out ./mfhdf/dumper/testfiles/dumprig-1.out ./mfhdf/dumper/testfiles/dumprig-2.out ./mfhdf/dumper/testfiles/dumprig-3.out ./mfhdf/dumper/testfiles/dumprig-4.out ./mfhdf/dumper/testfiles/dumprig-5.out ./mfhdf/dumper/testfiles/dumprig-6.out ./mfhdf/dumper/testfiles/dumpsds-1.out ./mfhdf/dumper/testfiles/dumpsds-2.out ./mfhdf/dumper/testfiles/dumpsds-3.out ./mfhdf/dumper/testfiles/dumpsds-4.out ./mfhdf/dumper/testfiles/dumpsds-5.out ./mfhdf/dumper/testfiles/dumpsds-6.out ./mfhdf/dumper/testfiles/dumpsds-7.out ./mfhdf/dumper/testfiles/dumpsds-8.out ./mfhdf/dumper/testfiles/dumpsds-9.out ./mfhdf/dumper/testfiles/dumpsds-10.out ./mfhdf/dumper/testfiles/dumpsds-11.out ./mfhdf/dumper/testfiles/dumpsds-12.out ./mfhdf/dumper/testfiles/dumpsds-13.out ./mfhdf/dumper/testfiles/dumpsds-14.out ./mfhdf/dumper/testfiles/dumpsds-15.out ./mfhdf/dumper/testfiles/dumpsds-15szip.out ./mfhdf/dumper/testfiles/dumpsds-16.out ./mfhdf/dumper/testfiles/dumpsds-17.out ./mfhdf/dumper/testfiles/dumpsds-18.out ./mfhdf/dumper/testfiles/dumpvd-10.out ./mfhdf/dumper/testfiles/dumpvd-11.out ./mfhdf/dumper/testfiles/dumpvd-12.out ./mfhdf/dumper/testfiles/dumpvd-13.out ./mfhdf/dumper/testfiles/dumpvd-14.out ./mfhdf/dumper/testfiles/dumpvd-1.out ./mfhdf/dumper/testfiles/dumpvd-2.out ./mfhdf/dumper/testfiles/dumpvd-3.out ./mfhdf/dumper/testfiles/dumpvd-4.out ./mfhdf/dumper/testfiles/dumpvd-5.out ./mfhdf/dumper/testfiles/dumpvd-6.out ./mfhdf/dumper/testfiles/dumpvd-7.out ./mfhdf/dumper/testfiles/dumpvd-8.out ./mfhdf/dumper/testfiles/dumpvd-9.out ./mfhdf/dumper/testfiles/dumpvg-10.out ./mfhdf/dumper/testfiles/dumpvg-11.out ./mfhdf/dumper/testfiles/dumpvg-12.out ./mfhdf/dumper/testfiles/dumpvg-13.out ./mfhdf/dumper/testfiles/dumpvg-14.out ./mfhdf/dumper/testfiles/dumpvg-15.out ./mfhdf/dumper/testfiles/dumpvg-16.out ./mfhdf/dumper/testfiles/dumpvg-17.out ./mfhdf/dumper/testfiles/dumpvg-1.out ./mfhdf/dumper/testfiles/dumpvg-2.out ./mfhdf/dumper/testfiles/dumpvg-3.out ./mfhdf/dumper/testfiles/dumpvg-4.out ./mfhdf/dumper/testfiles/dumpvg-5.out ./mfhdf/dumper/testfiles/dumpvg-6.out ./mfhdf/dumper/testfiles/dumpvg-7.out ./mfhdf/dumper/testfiles/dumpvg-8.out ./mfhdf/dumper/testfiles/dumpvg-9.out ./mfhdf/dumper/testfiles/grtdfi322.hdf ./mfhdf/dumper/testfiles/grtdfui162.hdf ./mfhdf/dumper/testfiles/grtdfui82.hdf ./mfhdf/dumper/testfiles/grtdfui83.hdf ./mfhdf/dumper/testfiles/grtdfui84.hdf ./mfhdf/dumper/testfiles/list-10.out ./mfhdf/dumper/testfiles/list-1.out ./mfhdf/dumper/testfiles/list-2.out ./mfhdf/dumper/testfiles/list-3.out ./mfhdf/dumper/testfiles/list-4.out ./mfhdf/dumper/testfiles/list-5.out ./mfhdf/dumper/testfiles/list-6.out ./mfhdf/dumper/testfiles/list-7.out ./mfhdf/dumper/testfiles/list-8.out ./mfhdf/dumper/testfiles/list-9.out ./mfhdf/dumper/testfiles/manySDSs.c ./mfhdf/dumper/testfiles/sds_compressed.hdf ./mfhdf/dumper/testfiles/sds_empty_many.hdf ./mfhdf/dumper/testfiles/sds1_dim1_samename.hdf ./mfhdf/dumper/testfiles/sds2_dim1_samename.hdf ./mfhdf/dumper/testfiles/swf32.hdf ./mfhdf/dumper/testfiles/swi16.hdf ./mfhdf/dumper/testfiles/swi8.hdf ./mfhdf/dumper/testfiles/tdf24.hdf ./mfhdf/dumper/testfiles/test.hdf ./mfhdf/dumper/testfiles/tvattr.hdf ./mfhdf/dumper/testfiles/star.hdf ./mfhdf/dumper/testfiles/swf32_fileattr.hdf ./mfhdf/dumper/testfiles/tdata.hdf ./mfhdf/dumper/testfiles/tdfr8f.hdf ./mfhdf/dumper/testfiles/tvset.hdf ./mfhdf/dumper/testfiles/vslongname.c ./mfhdf/dumper/testfiles/vslongname.hdf ./mfhdf/examples/Makefile.am ./mfhdf/examples/Makefile.in ./mfhdf/examples/SD_alter_sds_values.c ./mfhdf/examples/SD_chunking_example.c ./mfhdf/examples/SD_compress_sds.c ./mfhdf/examples/SD_create_sds.c ./mfhdf/examples/SD_dimscale_vs_sds.c ./mfhdf/examples/SD_find_sds_by_name.c ./mfhdf/examples/SD_get_attr.c ./mfhdf/examples/SD_get_info.c ./mfhdf/examples/SD_mv_sds_to_external.c ./mfhdf/examples/SD_read_from_sds.c ./mfhdf/examples/SD_read_subsets.c ./mfhdf/examples/SD_set_attr.c ./mfhdf/examples/SD_set_get_dim_info.c ./mfhdf/examples/SD_unlimited_sds.c ./mfhdf/examples/SD_write_slab.c ./mfhdf/examples/SD_write_to_sds.c ./mfhdf/examples/testexamples.sh.in ./mfhdf/fortran/Makefile.am ./mfhdf/fortran/Makefile.in ./mfhdf/fortran/mfhdf_fortrandll.def ./mfhdf/fortran/common.inc ./mfhdf/fortran/depend ./mfhdf/fortran/ftest.f.in ./mfhdf/fortran/hdftest.f ./mfhdf/fortran/hdftest1.f ./mfhdf/fortran/hdftst.sav ./mfhdf/fortran/jackets.c.in ./mfhdf/fortran/mffunc.inc ./mfhdf/fortran/mfsdf.c ./mfhdf/fortran/mfsdf.h ./mfhdf/fortran/mfsdff.f ./mfhdf/fortran/netcdf.inc.in ./mfhdf/fortran/test_nc.cdl ./mfhdf/fortran/test_nc.nc ./mfhdf/fortran/tszip.f ./mfhdf/fortran/testfortran.sh.in ./mfhdf/fortran/examples/Makefile.am ./mfhdf/fortran/examples/Makefile.in ./mfhdf/fortran/examples/SD_write_to_sds.f ./mfhdf/fortran/examples/SD_read_from_sds.f ./mfhdf/fortran/examples/SD_get_attr.f ./mfhdf/fortran/examples/SD_create_sds.f ./mfhdf/fortran/examples/SD_chunking_example.f ./mfhdf/fortran/examples/SD_read_subsets.f ./mfhdf/fortran/examples/SD_find_sds_by_name.f ./mfhdf/fortran/examples/SD_set_attr.f ./mfhdf/fortran/examples/SD_get_info.f ./mfhdf/fortran/examples/SD_write_slab.f ./mfhdf/fortran/examples/SD_set_get_dim_info.f ./mfhdf/fortran/examples/SD_mv_sds_to_external.f ./mfhdf/fortran/examples/SD_alter_sds_values.f ./mfhdf/fortran/examples/SD_dimscale_vs_sds.f ./mfhdf/fortran/examples/SD_unlimited_sds.f ./mfhdf/fortran/examples/SD_compress_sds.f ./mfhdf/hdfimport/Makefile.am ./mfhdf/hdfimport/Makefile.in ./mfhdf/hdfimport/SDSfloat2.hdf ./mfhdf/hdfimport/SDSfloat3.hdf ./mfhdf/hdfimport/crtSDSfloats.c ./mfhdf/hdfimport/hdfimport.c ./mfhdf/hdfimport/hdfimport.input1 ./mfhdf/hdfimport/hdfimport.out1 ./mfhdf/hdfimport/hdfimport.out2 ./mfhdf/hdfimport/hdfimport-w.out2 ./mfhdf/hdfimport/hdfimport.out3 ./mfhdf/hdfimport/hdfimporttest.c ./mfhdf/hdfimport/testutil.sh.in ./mfhdf/hdfimport/gen_sds_floats.c ./mfhdf/hdfimport/testfiles/cb16i2.tst ./mfhdf/hdfimport/testfiles/cb16i3.tst ./mfhdf/hdfimport/testfiles/cb32i2.tst ./mfhdf/hdfimport/testfiles/cb32i3.tst ./mfhdf/hdfimport/testfiles/cb32r2.tst ./mfhdf/hdfimport/testfiles/cb32r3.tst ./mfhdf/hdfimport/testfiles/cb64r2_ris.tst ./mfhdf/hdfimport/testfiles/cb64r2.tst ./mfhdf/hdfimport/testfiles/cb64r2-n.tst ./mfhdf/hdfimport/testfiles/cb64r3.tst ./mfhdf/hdfimport/testfiles/cb64r3-n.tst ./mfhdf/hdfimport/testfiles/ctxtr2_ris.tst ./mfhdf/hdfimport/testfiles/ctxtr2.tst ./mfhdf/hdfimport/testfiles/ctxtr3.tst ./mfhdf/hdfimport/testfiles/SDSfloat2.tst ./mfhdf/hdfimport/testfiles/SDSfloat3.tst ./mfhdf/hdiff/Makefile.am ./mfhdf/hdiff/Makefile.in ./mfhdf/hdiff/hdiff.c ./mfhdf/hdiff/hdiff.h ./mfhdf/hdiff/hdiff_array.c ./mfhdf/hdiff/hdiff_gattr.c ./mfhdf/hdiff/hdiff_gr.c ./mfhdf/hdiff/hdiff_list.c ./mfhdf/hdiff/hdiff_list.h ./mfhdf/hdiff/hdiff_main.c ./mfhdf/hdiff/hdiff_misc.c ./mfhdf/hdiff/hdiff_sds.c ./mfhdf/hdiff/hdiff_table.c ./mfhdf/hdiff/hdiff_table.h ./mfhdf/hdiff/hdiff_vs.c ./mfhdf/hdiff/hdifftst.c ./mfhdf/hdiff/testhdiff.sh.in ./mfhdf/hdiff/hdiff_mattbl.c ./mfhdf/hdiff/hdiff_mattbl.h ./mfhdf/hdiff/testfiles/hdiff_01.txt ./mfhdf/hdiff/testfiles/hdiff_02.txt ./mfhdf/hdiff/testfiles/hdiff_03.txt ./mfhdf/hdiff/testfiles/hdiff_04.txt ./mfhdf/hdiff/testfiles/hdiff_05.txt ./mfhdf/hdiff/testfiles/hdiff_06.txt ./mfhdf/hdiff/testfiles/hdiff_06w.txt ./mfhdf/hdiff/testfiles/hdiff_07.txt ./mfhdf/hdiff/testfiles/hdiff_08.txt ./mfhdf/hdiff/testfiles/hdiff_09.txt ./mfhdf/hdiff/testfiles/hdiff_10.txt ./mfhdf/hdiff/testfiles/hdiff_11.txt ./mfhdf/hdiff/testfiles/hdiff_12.txt ./mfhdf/hdiff/testfiles/hdiff_13.txt ./mfhdf/hdiff/testfiles/hdifftst1.hdf ./mfhdf/hdiff/testfiles/hdifftst2.hdf ./mfhdf/hdiff/testfiles/hdifftst3.hdf ./mfhdf/hdiff/testfiles/hdifftst4.hdf ./mfhdf/hdiff/testfiles/hdifftst5.hdf ./mfhdf/hdiff/testfiles/hdifftst6.hdf ./mfhdf/hdiff/hdiff_dim.c ./mfhdf/hdiff/hdiff_dim.h ./mfhdf/hdiff/testfiles/hdiff_14.txt ./mfhdf/hdiff/testfiles/hdifftst7.hdf ./mfhdf/hdiff/testfiles/hdiff_15.txt ./mfhdf/hrepack/Makefile.am ./mfhdf/hrepack/Makefile.in ./mfhdf/hrepack/hrepack.c ./mfhdf/hrepack/hrepack.h ./mfhdf/hrepack/hrepack_all.sh.in ./mfhdf/hrepack/hrepack_an.c ./mfhdf/hrepack/hrepack_an.h ./mfhdf/hrepack/hrepack_check.c ./mfhdf/hrepack/hrepack_gr.c ./mfhdf/hrepack/hrepack_gr.h ./mfhdf/hrepack/hrepack_list.c ./mfhdf/hrepack/hrepack_lsttable.c ./mfhdf/hrepack/hrepack_lsttable.h ./mfhdf/hrepack/hrepack_main.c ./mfhdf/hrepack/hrepack_opttable.c ./mfhdf/hrepack/hrepack_opttable.h ./mfhdf/hrepack/hrepack_parse.c ./mfhdf/hrepack/hrepack_parse.h ./mfhdf/hrepack/hrepack_sds.c ./mfhdf/hrepack/hrepack_sds.h ./mfhdf/hrepack/hrepack_utils.c ./mfhdf/hrepack/hrepack_utils.h ./mfhdf/hrepack/hrepack_vg.c ./mfhdf/hrepack/hrepack_vg.h ./mfhdf/hrepack/hrepack_vs.c ./mfhdf/hrepack/hrepack_vs.h ./mfhdf/hrepack/hrepack_dim.c ./mfhdf/hrepack/hrepack_dim.h ./mfhdf/hrepack/image24pixel.txt ./mfhdf/hrepack/image24plane.txt ./mfhdf/hrepack/image8.txt ./mfhdf/hrepack/info.txt ./mfhdf/hrepack/pal_rgb.h ./mfhdf/hrepack/hrepacktst.c ./mfhdf/libsrc/Makefile.am ./mfhdf/libsrc/Makefile.in ./mfhdf/libsrc/alloc.h ./mfhdf/libsrc/array.c ./mfhdf/libsrc/attr.c ./mfhdf/libsrc/cdf.c ./mfhdf/libsrc/depend ./mfhdf/libsrc/dim.c ./mfhdf/libsrc/error.c ./mfhdf/libsrc/error.h ./mfhdf/libsrc/file.c ./mfhdf/libsrc/globdef.c ./mfhdf/libsrc/hdf2netcdf.h ./mfhdf/libsrc/hdfnctest.c ./mfhdf/libsrc/hdfsds.c ./mfhdf/libsrc/iarray.c ./mfhdf/libsrc/local_nc.h ./mfhdf/libsrc/mfdatainfo.c ./mfhdf/libsrc/mfdatainfo.h ./mfhdf/libsrc/mfhdf.h ./mfhdf/libsrc/mfhdfi.h ./mfhdf/libsrc/mfprivate.h ./mfhdf/libsrc/mfsd.c ./mfhdf/libsrc/netcdf.h.in ./mfhdf/libsrc/nssdc.c ./mfhdf/libsrc/putget.c ./mfhdf/libsrc/putgetg.c ./mfhdf/libsrc/sharray.c ./mfhdf/libsrc/string.c ./mfhdf/libsrc/var.c ./mfhdf/libsrc/xdrposix.c ./mfhdf/libsrc/xdrstdio.c ./mfhdf/ncdump/Makefile.am ./mfhdf/ncdump/Makefile.in ./mfhdf/ncdump/depend ./mfhdf/ncdump/dumplib.c ./mfhdf/ncdump/dumplib.h ./mfhdf/ncdump/ncdump.1 ./mfhdf/ncdump/ncdump.c ./mfhdf/ncdump/ncdump.h ./mfhdf/ncdump/test0.cdl ./mfhdf/ncdump/testncdump.sh.in ./mfhdf/ncdump/vardata.c ./mfhdf/ncdump/vardata.h ./mfhdf/ncgen/Makefile.am ./mfhdf/ncgen/Makefile.in ./mfhdf/ncgen/README ./mfhdf/ncgen/close.c ./mfhdf/ncgen/depend ./mfhdf/ncgen/escapes.c ./mfhdf/ncgen/generate.c ./mfhdf/ncgen/generic.h ./mfhdf/ncgen/genlib.c ./mfhdf/ncgen/genlib.h ./mfhdf/ncgen/getfill.c ./mfhdf/ncgen/init.c ./mfhdf/ncgen/load.c ./mfhdf/ncgen/main.c ./mfhdf/ncgen/ncgenyy.c ./mfhdf/ncgen/ncgentab.c ./mfhdf/ncgen/ncgentab.h ./mfhdf/ncgen/ncgen.1 ./mfhdf/ncgen/ncgen.h ./mfhdf/ncgen/ncgen.l ./mfhdf/ncgen/ncgen.y ./mfhdf/ncgen/test0.cdl ./mfhdf/ncgen/testncgen.sh.in ./mfhdf/nctest/Makefile.am ./mfhdf/nctest/Makefile.in ./mfhdf/nctest/README ./mfhdf/nctest/add.c ./mfhdf/nctest/add.h ./mfhdf/nctest/atttests.c ./mfhdf/nctest/cdftests.c ./mfhdf/nctest/depend ./mfhdf/nctest/dimtests.c ./mfhdf/nctest/driver.c ./mfhdf/nctest/emalloc.c ./mfhdf/nctest/emalloc.h ./mfhdf/nctest/error.c ./mfhdf/nctest/error.h ./mfhdf/nctest/misctest.c ./mfhdf/nctest/msoft.mk ./mfhdf/nctest/nctest.def ./mfhdf/nctest/nctest.lnk ./mfhdf/nctest/nctest.mak ./mfhdf/nctest/nctest.project.hqx ./mfhdf/nctest/rec.c ./mfhdf/nctest/slabs.c ./mfhdf/nctest/test_unlim.cdl ./mfhdf/nctest/test_unlim.nc ./mfhdf/nctest/testcdf.h ./mfhdf/nctest/tests.h ./mfhdf/nctest/val.c ./mfhdf/nctest/val.h ./mfhdf/nctest/vardef.c ./mfhdf/nctest/varget_unlim.c ./mfhdf/nctest/varget.c ./mfhdf/nctest/vargetg.c ./mfhdf/nctest/varput.c ./mfhdf/nctest/varputg.c ./mfhdf/nctest/vartests.c ./mfhdf/nctest/vputget.c ./mfhdf/nctest/vputgetg.c ./mfhdf/test/Makefile.am ./mfhdf/test/Makefile.in ./mfhdf/test/cdftest.c ./mfhdf/test/cdftest.mak ./mfhdf/test/gen_sds_szipped.c ./mfhdf/test/hdfnctest.c ./mfhdf/test/hdftest.c ./mfhdf/test/hdftest.h ./mfhdf/test/sds_szipped.dat ./mfhdf/test/smallslice.0000.nc ./mfhdf/test/tattdatainfo.c ./mfhdf/test/tattributes.c ./mfhdf/test/tchunk.c ./mfhdf/test/tcomp.c ./mfhdf/test/tcoordvar.c ./mfhdf/test/tdatainfo.c ./mfhdf/test/tdatasizes.c ./mfhdf/test/tdim.c ./mfhdf/test/temptySDSs.c ./mfhdf/test/test1.nc ./mfhdf/test/testout.sav ./mfhdf/test/testmfhdf.sh.in ./mfhdf/test/tfile.c ./mfhdf/test/tmixed_apis.c ./mfhdf/test/tncunlim.c ./mfhdf/test/tncvargetfill.c ./mfhdf/test/tnetcdf.c ./mfhdf/test/trank0.c ./mfhdf/test/tsd.c ./mfhdf/test/tsdsprops.c ./mfhdf/test/tszip.c ./mfhdf/test/tunlim.c ./mfhdf/test/tutils.c ./mfhdf/util/getopt.c ./mfhdf/util/msoft.mk ./mfhdf/util/win32utl.mak ./mfhdf/xdr/Makefile.am ./mfhdf/xdr/Makefile.in ./mfhdf/xdr/NOTICE.h ./mfhdf/xdr/README ./mfhdf/xdr/byteordr.c ./mfhdf/xdr/depend ./mfhdf/xdr/htonl.mar ./mfhdf/xdr/msoft.mk ./mfhdf/xdr/ntohl.mar ./mfhdf/xdr/testout.sav ./mfhdf/xdr/test_xdr.sav ./mfhdf/xdr/types.h ./mfhdf/xdr/win32xdr.mak ./mfhdf/xdr/xdrarray.c ./mfhdf/xdr/xdr.c ./mfhdf/xdr/xdrfloat.c ./mfhdf/xdr/xdr.h ./mfhdf/xdr/xdrlib.project.hqx ./mfhdf/xdr/xdrstdio.c ./mfhdf/xdr/xdrtest.c ./mfhdf/xdr/xdrtest.cyg ./mfhdf/xdr/xdrtest.mak ./mfhdf/xdr/xdrtest.opt ./mfhdf/xdr/xdrtest.out ./mfhdf/xdr/xdrtest.project.hqx ./mfhdf/ncdump/CMakeLists.txt ./mfhdf/ncdump/CMakeTests.cmake ./mfhdf/hdfimport/CMakeLists.txt ./mfhdf/hdfimport/CMakeTests.cmake ./mfhdf/hdiff/CMakeLists.txt ./mfhdf/hdiff/CMakeTests.cmake ./mfhdf/hrepack/CMakeLists.txt ./mfhdf/hrepack/CMakeTests.cmake ./mfhdf/examples/CMakeLists.txt ./mfhdf/examples/CMakeTests.cmake ./mfhdf/xdr/xdr.def ./mfhdf/xdr/CMakeLists.txt ./mfhdf/libsrc/CMakeLists.txt ./mfhdf/CMakeLists.txt ./mfhdf/dumper/CMakeLists.txt ./mfhdf/dumper/CMakeTests.cmake ./mfhdf/nctest/CMakeLists.txt ./mfhdf/nctest/CMakeTests.cmake ./mfhdf/test/CMakeLists.txt ./mfhdf/test/CMakeTests.cmake ./mfhdf/ncgen/CMakeLists.txt ./mfhdf/ncgen/CMakeTests.cmake ./mfhdf/fortran/examples/CMakeLists.txt ./mfhdf/fortran/examples/CMakeTests.cmake ./mfhdf/fortran/CMakeLists.txt ./mfhdf/fortran/CMakeTests.cmake ./hdf/examples/CMakeLists.txt ./hdf/examples/CMakeTests.cmake ./hdf/CMakeLists.txt ./hdf/test/CMakeLists.txt ./hdf/test/CMakeTests.cmake ./hdf/util/CMakeLists.txt ./hdf/util/CMakeTests.cmake ./hdf/fortran/examples/CMakeLists.txt ./hdf/fortran/examples/CMakeTests.cmake ./hdf/fortran/CMakeLists.txt ./hdf/fortran/CMakeTests.cmake ./hdf/src/CMakeLists.txt ./CTestConfig.cmake ./CMakeLists.txt ./CMakeFilters.cmake ./CMakeInstallation.cmake ./UserMacros.cmake ./config/cmake/ConfigureChecks.cmake ./config/cmake/CTestCustom.cmake ./config/cmake/runTest.cmake ./config/cmake/HDFMacros.cmake ./config/cmake/HDFLibMacros.cmake ./config/cmake/CheckTypeSize.cmake ./config/cmake/h4config.h.in ./config/cmake/HDFTests.c ./config/cmake/FindHDF4.cmake.in ./config/cmake/FindSZIP.cmake ./config/cmake/FindMPI.cmake ./config/cmake/cacheinit.cmake ./config/cmake/mccacheinit.cmake ./config/cmake/HDF4Macros.cmake ./config/cmake/HDF4UseFortran.cmake ./config/cmake/HDF4_Examples.cmake.in ./config/cmake/hdf4-config.cmake.build.in ./config/cmake/hdf4-config.cmake.install.in ./config/cmake/hdf4-config-version.cmake.in ./config/cmake/CPack.Info.plist.in ./config/cmake/hdf.gif ./config/cmake/libhdf4.settings.cmake.in ./config/cmake/NSIS.template.in ./config/cmake/NSIS.InstallOptions.ini.in # CMake-specific User Files ./config/cmake/UserMacros/Windows_MT.cmake ./release_notes/HISTORY.txt ./release_notes/RELEASE.txt ./release_notes/INSTALL ./release_notes/INSTALL_CYGWIN.txt ./release_notes/INSTALL_WINDOWS.txt ./release_notes/bugs_fixed.txt ./release_notes/misc_docs.txt ./release_notes/INSTALL_CMake.txt ./release_notes/USING_HDF4_VS.txt ./release_notes/USING_HDF4_CMake.txt ./release_notes/USING_CMake_Examples.txt libhdf4-4.2.10/HDF_ALT/man/0000755000000000000000000000000012474643754011674 5ustar libhdf4-4.2.10/HDF_ALT/man/hdf.10000644000000000000000000001400112474643754012513 0ustar .\" $Id: hdf.1 6079 2014-02-08 00:29:03Z bmribler $ .TH HDF 1 "February 2014" "THG HDF 4.2.10" .SH NAME hdf \- Hierarchical Data Format library .SH SYNOPSIS .ft B -lmfhdf -ldf -ljpeg -lz [ -lsz ] .sp 0 /usr/lib/libmfhdf.a /usr/lib/libdf.a /usr/lib/libjpeg.a /usr/lib/libz.a /usr/lib/libsz.a .SH DESCRIPTION HDF is a multi-object file format that facilitates the transfer of various types of scientific data between machines and operating systems. See http://www.hdfgroup.org/release4/platforms.html for a list of platforms currently supported. HDF allows self-definitions of data content and easy extensibility for future enhancements or compatibility with other standard formats. HDF includes Fortran and C calling interfaces, and utilities for manipulating, viewing, and analyzing data in HDF files. The HDF library contains interfaces for storing and retrieving compressed or uncompressed 8-bit and 24-bit raster images with palettes, n-Dimensional scientific datasets and binary tables. An interface is also included that allows arbitrary grouping of other HDF objects. .SS "HDF Raster Images" HDF supports the storing of both 8-bit and 24-bit raster images. Beside storing information about the dimensions and palette of a raster image, HDF supports raster image compression. In previous versions of HDF (DF interfaces,) Run-length encoding and Imcomp compression were both supported. The currently supported compression methods include simple RLE, N-bit, Skipping huffman, Gzip, Szip, and JPEG. Although no longer support Imcomp compression, the library can read images with Imcomp compression. .SS "HDF Scientific Data Sets" Scientific Data Sets (SDSs) are useful for storing n-Dimensional gridded data. The actual data in the dataset can be of any of the "standard" number types: 8, 16 and 32bit signed and unsigned integers and 32 and 64bit floating point values. In addition, a certain amount of meta-data can be stored with an SDS including: .nf o The coordinate system to use when interpreting or displaying the data. o Scales to be used for each dimension. o Labels for each dimension and the dataset as a whole. o Units for each dimension and the data. o The valid max and min values for the data. o Calibration information for the data. o Fill or missing value information. o Ability of having more than one file open at a time. o A more general framework for meta-data within the SDS data-model (allowing 'name = value' style meta-data.) o Support for an "unlimited dimension" in the SDS data-model, making it possible to append planes to an array along one dimension. .fi .SS "HDF Annotations" Any object in an HDF file can have annotations associated with it. There are a number of types of annotations: .nf o Labels are assumed to be short strings giving the "name" of a data object. o Descriptions are longer text segments that are useful for giving more indepth information about a data object o File annotations are assumed to apply to all of the objects in a single file. .fi .SS "HDF Vset Interfaces" The Vset module provides interfaces to two basic HDF building blocks. Vgroups are generic grouping elements allowing a user to associate related objects within an HDF file. As Vgroups can contain other Vgroups, it is possible to build a hierarchical file. Vdatas are data structures made up of fields and records. Data is organized into "fields" within each Vdata. Each field is identified by a unique "fieldname". The type of each field may be any of the basic number types that HDF supports. Fields of different types may exist within the same Vdata. By combining Vdatas in Vgroups it is possible to represent higher level data constructs: mesh data, multi-variate datasets, sparse matrices, finite-element data, spreadsheets, splines, non-Cartesian coordinate data, etc. .SS "HDF and netCDF" Starting with HDF version 3.3, netCDF v.2.3.2 of Unidata is supported with the SD multifile interface. SD and netCDF interfaces can read both netCDF files and multi-dimensional arrays (SDS) stored in the HDF4 files transparently. For more information, see Chapter 3, "Scientific Data Sets", of the HDF User's Guide. To disable netCDF interfaces in the HDF library, configure the library using --disable-netcdf flag and rebuild it. .SS "EXAMPLES" All HDF routines require the header "hdf.h" to be included in the C source file, unless if the SD routines are used, then the header "mfhdf.h" should be included instead. Fortran programs should use "dffunc.inc" for all interfaces, "mffunc.inc" for the SD interfaces, and "hdf.inc" for non-SD interfaces. To compile a program that makes HDF calls on most Unix platforms. (FORTRAN): .na {HDFLIBDIR}/bin/h4fc myprog.f (C): .na {HDFLIBDIR}/bin/h4cc myprog.c .fi .SH DOCUMENTATION The HDF web site is located at http://www.hdfgroup.org/. For the vast majority of users, the "HDF User's Guide" and "HDF Reference Manual" should be sufficient. These documents can be viewed or downloaded at .sp 0 http://www.hdfgroup.org/products/hdf4/. .SH VENDOR The HDF Group .sp 0 1800 South Oak Street, Suite 203 .sp 0 Champaign, IL 61820 .sp 0 USA .sp 0 www.hdfgroup.org .SH VERSION 4.2.10 .SH LICENSE & SOURCE AVAILABILITY Copyright by The HDF Group. .sp 0 Copyright by the Board of Trustees of the University of Illinois. All rights reserved. This file is part of HDF. The full HDF copyright notice, including terms governing use, modification, and redistribution, is contained in the files COPYING and Copyright.html. COPYING can be found at the root of the source code distribution tree; Copyright.html can be found at .sp 0 http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have access to either file, you may request a copy from .sp 0 help@hdfgroup.org. .SH CONTACT & HELP The HDF Group .sp 0 Email: help@hdfgroup.org .SH FILES .PD 0 .TP 30 .B /usr/lib/{libmfhdf,libdf,libjpeg,libz,libsz}.{a,so} hdf libraries .TP 30 .B /usr/bin Location of most hdf utilities .TP 30 .B /usr/include/hdf Location of include file hdf.h, mfhdf.h, and others .PD libhdf4-4.2.10/HDF_ALT/man/Makefile.in0000644000000000000000000003625212421456623013736 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am subdir = man ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac 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; }; \ } man1dir = $(mandir)/man1 am__installdirs = "$(DESTDIR)$(man1dir)" NROFF = nroff MANS = $(man1_MANS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog man1_MANS = hdf.1 all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 man/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign man/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-man1: $(man1_MANS) @$(NORMAL_INSTALL) @list1='$(man1_MANS)'; \ list2=''; \ test -n "$(man1dir)" \ && test -n "`echo $$list1$$list2`" \ || exit 0; \ echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \ $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \ { for i in $$list1; do echo "$$i"; done; \ if test -n "$$list2"; then \ for i in $$list2; do echo "$$i"; done \ | sed -n '/\.1[a-z]*$$/p'; \ fi; \ } | while read p; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; echo "$$p"; \ done | \ sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \ sed 'N;N;s,\n, ,g' | { \ list=; while read file base inst; do \ if test "$$base" = "$$inst"; then list="$$list $$file"; else \ echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \ fi; \ done; \ for i in $$list; do echo "$$i"; done | $(am__base_list) | \ while read files; do \ test -z "$$files" || { \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \ done; } uninstall-man1: @$(NORMAL_UNINSTALL) @list='$(man1_MANS)'; test -n "$(man1dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: cscope cscopelist: distdir: $(DISTFILES) @list='$(MANS)'; if test -n "$$list"; then \ list=`for p in $$list; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; else :; fi; done`; \ if test -n "$$list" && \ grep 'ab help2man is required to generate this page' $$list >/dev/null; then \ echo "error: found man pages containing the 'missing help2man' replacement text:" >&2; \ grep -l 'ab help2man is required to generate this page' $$list | sed 's/^/ /' >&2; \ echo " to fix them, install help2man, remove and regenerate the man pages;" >&2; \ echo " typically 'make maintainer-clean' will remove them" >&2; \ exit 1; \ else :; fi; \ else :; fi @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 $(MANS) installdirs: for dir in "$(DESTDIR)$(man1dir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: 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 mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-man install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-man1 install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-man uninstall-man: uninstall-man1 .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am 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-man1 \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-man uninstall-man1 # 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: libhdf4-4.2.10/HDF_ALT/man/Makefile.am0000644000000000000000000000007512421456623013717 0ustar include $(top_srcdir)/config/commence.am man1_MANS = hdf.1 libhdf4-4.2.10/HDF_ALT/man/hdfunpac.10000644000000000000000000000076112421456623013537 0ustar .\" $Id: hdfunpac.1 1802 1995-07-25 01:53:23Z sxu $ .TH HDFUNPAC 1 "July 1995" "NCSA HDF 4.0" .SH NAME hdfunpac \- Unpack an HDF file .SH SYNOPSIS .B hdfunpac [ .B \-d .I datafile ] .I hdffile .SH DESCRIPTION .B hdfunpac unpacks an HDF file by exporting the scientific data elements (DFTAG_SD) to external object elements. The external file is .B DataFile by default. .SH OPTIONS .TP .BI \-d " datafile" Use .I datafile as the external file name. Default is .B DataFile. .SH SEE ALSO .BR hdf (1) libhdf4-4.2.10/HDF_ALT/man/gr_chunk.30000644000000000000000000001464012421456623013552 0ustar .\" WARNING! THIS FILE WAS GENERATED AUTOMATICALLY BY c2man! .\" DO NOT EDIT! CHANGES MADE TO THIS FILE WILL BE LOST! .TH "mfhdf" 3 "16 October 1997" "c2man hproto.h" .SH "NAME" GRsetchunk, GRgetchunkinfo, GRetchunkcache \- GR Chunking Routines .SH "SYNOPSIS" .ft B #include .sp extern intn GRsetchunk .br ( .br int32 riid, .br HDF_CHUNK_DEF chunk_def, .br int32 flags .br ); .sp extern intn GRgetchunkinfo .br ( .br int32 riid, .br HDF_CHUNK_DEF *chunk_def, .br int32 *flags .br ); .sp extern intn GRsetchunkcache .br ( .br int32 riid, .br int32 maxcache, .br int32 flags .br ); .ft R .SH "PARAMETERS" .TP .B "int32 riid" IN: raseter access id. .TP .B "HDF_CHUNK_DEF chunk_def" IN: chunk definition. .TP .BR "int32 flags" " (GRsetchunk)" IN: flags. .TP .B "HDF_CHUNK_DEF *chunk_def" IN/OUT: chunk definition. .TP .B "int32 *flags" IN/OUT: flags. .TP .B "int32 maxcache" IN: max number of chunks to cache. .TP .BR "int32 flags" " (GRsetchunkcache)" IN: flags = 0, HDF_CACHEALL. .SH "DESCRIPTION" .SS "GRsetchunk" This routine makes the GR a chunked GR according to the chunk definition passed in. The dataset currently cannot be special already i.e. NBIT, COMPRESSED, or EXTERNAL. This is an Error. The defintion of the "HDF_CHUNK_DEF" union with relvant fields is: .nf typedef union hdf_chunk_def_u { int32 chunk_lengths[2]; Chunk lengths along each dimension. { int32 chunk_lengths[2]; Chunk lengths along each dimension. int32 comp_type; Compression type comp_info cinfo; Compression info struct }comp; } HDF_CHUNK_DEF .fi The variable agruement 'flags' is a bit-or'd value which can currently be 'HDF_CHUNK' or 'HDF_CHUNK | HDF_COMP'. The simplist is the 'chunk_lengths' array specifiying chunk lengths for each dimension where the 'flags' argument set to 'HDF_CHUNK'; COMPRESSION is set by using the 'HDF_CHUNK_DEF' union to set the appropriate compression information along with the required chunk lengths for each dimension. The compression information is the same as that set in 'GRsetcompress()'. The bit-or'd 'flags' argument' is set to 'HDF_CHUNK | HDF_COMP'. See the example in pseudo-C below for further usage. The maximum number of Chunks in an HDF file is 65,535. The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the image and by the maximum number of chunks set in the chunk cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. See the routine GRsetchunkcache() for further info on the chunk cache and how to set the maximum number of chunks in the chunk cache. A default chunk cache is always created. The following example shows the organization of chunks for a 2D array. e.g. 4x4 array with 2x2 chunks. The array shows the layout of chunks in the chunk array. .nf 4 --------------------- | | | Y | (0,1) | (1,1) | ^ | | | | 2 --------------------- | | | | | | (0,0) | (1,0) | | | | | | --------------------- | 0 2 4 ---------------> X --Without compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set Chunking -- GRsetchunk(riid, chunk_def, HDF_CHUNK); ...... } --With compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths first -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set compression -- chunk_def.comp.cinfo.deflate.level = 9; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; -- Set Chunking with Compression -- GRsetchunk(riid, chunk_def, HDF_CHUNK | HDF_COMP); ...... }. .fi .SS "GRgetchunkinfo" This routine gets any special information on the GR. If its chunked, chunked and compressed or just a regular GR. Currently it will only fill the array of chunk lengths for each dimension as specified in the "HDF_CHUNK_DEF" union. It does not tell you the type of compression or the compression parameters used. You can pass in a NULL for "chunk_def" if don't want the chunk lengths for each dimension. Additionaly if successfull it will return a bit-or'd value in "flags" indicating if the GR is: .nf Chunked -> flags = HDF_CHUNK Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP Non-chunked -> flags = HDF_NONE e.g. 4x4 array - Pseudo-C { int32 rcdims[3]; HDF_CHUNK_DEF rchunk_def; int32 cflags; ... rchunk_def.chunk_lengths = rcdims; GRgetchunkinfo(sdsid, &rchunk_def, &cflags); ... }. .fi .SS "GRsetchunkcache" Set the maximum number of chunks to cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. This routine allows the setting of maximum number of chunks that can be cached, "maxcache". The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the dataset and by the maximum number of chunks set in the chunk cache. The number chunks that can be set in the cache is process memory limited. It is a good idea to always set the maximum number of chunks in the cache as the default heuristic does not take into account the memory available for the application. By default when the GR is created as a chunked element the maximum number of chunks in the cache "maxcache" is set to the number of chunks along the last dimension. The values set here affects the current object's caching behaviour. If the chunk cache is full and "maxcache" is greater then the current "maxcache" value, then the chunk cache is reset to the new "maxcache" value, else the chunk cache remains at the current "maxcache" value. If the chunk cache is not full, then the chunk cache is set to the new "maxcache" value only if the new "maxcache" value is greater than the current number of chunks in the cache. Use flags argument of "HDF_CACHEALL" if the whole object is to be cached in memory, otherwise pass in zero(0). Currently you can only pass in zero. See GRsetchunk() for a description of the organization of chunks in a GR . .SH "RETURNS" .SS "GRsetchunk" SUCCEED/FAIL. .SS "GRgetchunkinfo" SUCCEED/FAIL. .SS "GRsetchunkcache" Returns the 'maxcache' value for the chunk cache if successful and FAIL otherwise. .SH "NAME" .SS "GRsetchunk" GRsetchunk -- make GR a chunked GR. .SS "GRgetchunkinfo" GRgetchunkinfo -- get Info on GR. .SS "GRsetchunkcache" GRsetchunkcache -- maximum number of chunks to cache. libhdf4-4.2.10/HDF_ALT/Makefile.in0000644000000000000000000006734612421456623013173 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(am__configure_deps) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/libhdf4.settings.in \ $(top_srcdir)/bin/config.guess $(top_srcdir)/bin/config.sub \ $(top_srcdir)/bin/install-sh $(top_srcdir)/bin/ltmain.sh \ $(top_srcdir)/bin/missing $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am $(top_srcdir)/configure \ COPYING bin/compile bin/config.guess bin/config.sub \ bin/depcomp bin/install-sh bin/ltmain.sh bin/missing \ bin/mkinstalldirs subdir = . ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = libhdf4.settings CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-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 uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac 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)$(settingsdir)" DATA = $(settings_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ cscope distdir dist dist-all distcheck ETAGS = etags CTAGS = ctags CSCOPE = cscope DIST_SUBDIRS = $(SUBDIRS) 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 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@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog SUBDIRS = hdf mfhdf man # install libhdf4.settings in lib directory settingsdir = $(libdir) settings_DATA = libhdf4.settings all: all-recursive .SUFFIXES: am--refresh: Makefile @: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 .PRECIOUS: 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__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): libhdf4.settings: $(top_builddir)/config.status $(srcdir)/libhdf4.settings.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 install-settingsDATA: $(settings_DATA) @$(NORMAL_INSTALL) @list='$(settings_DATA)'; test -n "$(settingsdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(settingsdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(settingsdir)" || 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)$(settingsdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(settingsdir)" || exit $$?; \ done uninstall-settingsDATA: @$(NORMAL_UNINSTALL) @list='$(settings_DATA)'; test -n "$(settingsdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(settingsdir)'; $(am__uninstall_files_from_dir) # 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. $(RECURSIVE_TARGETS) $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ 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" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done cscopelist-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) 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; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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-recursive cscopelist cscopelist: cscopelist-recursive $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ 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: $(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) | GZIP=$(GZIP_ENV) gzip -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-tarZ: distdir tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__post_remove_distdir) dist-shar: distdir shar $(distdir) | GZIP=$(GZIP_ENV) gzip -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*) \ GZIP=$(GZIP_ENV) gzip -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*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir) chmod u+w $(distdir) mkdir $(distdir)/_build $(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 \ && ../configure --srcdir=.. --prefix="$$dc_install_base" \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(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 $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(settingsdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install-exec: install-exec-recursive install-data: install-data-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: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-settingsDATA 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: uninstall-settingsDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \ cscopelist-recursive ctags-recursive install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am am--refresh check check-am clean clean-cscope \ clean-generic clean-libtool cscope cscopelist \ cscopelist-recursive ctags ctags-recursive dist dist-all \ dist-bzip2 dist-gzip dist-lzip dist-shar dist-tarZ dist-xz \ dist-zip distcheck distclean distclean-generic \ distclean-libtool distclean-tags distcleancheck distdir \ distuninstallcheck dvi dvi-am 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-settingsDATA 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-recursive \ uninstall uninstall-am uninstall-settingsDATA # 'make install' will now install examples, the same as 'make install-all'. # 'make-install-all' will be redundant but will still work. install: install-recursive install-examples uninstall: uninstall-recursive uninstall-examples # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in hdf mfhdf; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done # 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: libhdf4-4.2.10/HDF_ALT/Makefile.dist0000644000000000000000000000226212421456623013512 0ustar # Top-level distributed Makefile -*- makefile -*- # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at # http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # This Makefile is a stub (copied from Makefile.dist) which will run # configure and then invoke the same target in the new Makefile created # by configure. # Uncomment this variable if your make(1) doesn't set it automatically. # #MAKE=make SHELL=/bin/sh all lib progs check test _test install uninstall dep depend: _config $(MAKE) $@ clean mostlyclean distclean maintainer-clean TAGS: _config $(MAKE) $@ _config: sh configure .PHONY: all lib progs test install uninstall dep depend clean mostlyclean \ distclean maintainer-clean _config libhdf4-4.2.10/HDF_ALT/Makefile.am0000644000000000000000000000200712421456623013141 0ustar ############################################################################# ## Subdirectories to build in ## ############################################################################# include $(top_srcdir)/config/commence.am SUBDIRS = hdf mfhdf man # install libhdf4.settings in lib directory settingsdir = $(libdir) settings_DATA = libhdf4.settings # 'make install' will now install examples, the same as 'make install-all'. # 'make-install-all' will be redundant but will still work. install: install-recursive install-examples uninstall: uninstall-recursive uninstall-examples # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in hdf mfhdf; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done libhdf4-4.2.10/HDF_ALT/Makefile0000644000000000000000000000226212421456623012550 0ustar # Top-level distributed Makefile -*- makefile -*- # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at # http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # This Makefile is a stub (copied from Makefile.dist) which will run # configure and then invoke the same target in the new Makefile created # by configure. # Uncomment this variable if your make(1) doesn't set it automatically. # #MAKE=make SHELL=/bin/sh all lib progs check test _test install uninstall dep depend: _config $(MAKE) $@ clean mostlyclean distclean maintainer-clean TAGS: _config $(MAKE) $@ _config: sh configure .PHONY: all lib progs test install uninstall dep depend clean mostlyclean \ distclean maintainer-clean _config libhdf4-4.2.10/HDF_ALT/m4/0000755000000000000000000000000012474643755011442 5ustar libhdf4-4.2.10/HDF_ALT/m4/libtool.m40000644000000000000000000105733512474643755013366 0ustar # libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 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) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 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.58])dnl We use AC_INCLUDES_DEFAULT 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_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _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 _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which 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 "X${COLLECT_NAMES+set}" != Xset; 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: # # ='`$ECHO "$" | $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\\"\\\`\\\\\\"" ;; *) 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\\"\\\`\\\\\\"" ;; *) 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 $lt_write_fail = 0 && 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 ." 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 "$silent" = yes && 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 which 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 # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $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. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _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 "X${COLLECT_NAMES+set}" != Xset; 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) _LT_PROG_REPLACE_SHELLFNS 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' TIMESTAMP='$TIMESTAMP' 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 $_lt_result -eq 0; 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 $_lt_result -eq 0 && $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 "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; 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 "$lt_cv_ld_force_load" = "no"; 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 "$lt_cv_ld_force_load" = "yes"; 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*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; 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 "$lt_cv_apple_cc_single_mod" != "yes"; 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 "${lt_cv_aix_libpath+set}" = 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 which will find a shell with a builtin # printf (which 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], [ --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 "$GCC" = yes; 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 in which 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 "x$enable_libtool_lock" != xno && 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 which ABI we are using. 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 which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; 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* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. 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*) LD="${LD-ld} -m elf_i386" ;; powerpc64le-*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*) 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-*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*) 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 x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. 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*) 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 "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; 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 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" # 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 x"[$]$2" = xyes; 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 x"[$]$2" = xyes; 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; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # 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"; 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 $i != 17 # 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 "$cross_compiling" = yes; 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 #endif #include #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 -fvisbility=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 "x$enable_dlopen" != xyes; 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 ]) ;; *) 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 "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && 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 "x$lt_cv_dlopen_self" = xyes; 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 "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; 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 "$hard_links" = no; 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 in which 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 "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # 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 "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; 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 "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; 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_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 AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; 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` 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" else 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 "$host_cpu" = ia64; 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 # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.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}' else # 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' fi 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%'\''`; test $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} $libname${shared_ext}' 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 ;; 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' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; 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=yes 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 "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; 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 "$lt_cv_prog_gnu_ld" = yes; 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 ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-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 # Append ld.so.conf contents 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*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac 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 if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; 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 "$with_gnu_ld" = yes; 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=freebsd-elf 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 "$with_gnu_ld" = yes; 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 "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _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], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which 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 which 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 "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test "$GCC" = yes; 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 "$with_gnu_ld" = yes; 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 &1 /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 ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; 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) 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*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 ;; 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 case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) 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 "$lt_cv_path_NM" != "no"; 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 /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) 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 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 "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # 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 "$GCC" = yes; 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 "$host_cpu" = ia64; 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 # 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 -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$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 -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/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 # and D for any global 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};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print 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 con'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* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$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 "$pipe_works" = yes; 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_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_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 "$GXX" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; 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']) ;; 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 "$host_cpu" = ia64; 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 "$host_cpu" != ia64; 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) 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 "$GCC" = yes; 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 "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; 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']) ;; 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 "$host_cpu" = ia64; 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 ;; 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']) ;; 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) 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' ;; 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 which 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) 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 "$with_gnu_ld" = yes; 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 "$lt_use_gnu_ld_interface" = yes; 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 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 "$host_cpu" != ia64; 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 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 (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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 ;; 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 "$host_os" = linux-dietlibc; 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 "$tmp_diet" = no 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' ;; 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 "x$supports_anon_versioning" = xyes; 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 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 "x$supports_anon_versioning" = xyes; 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 can not *** 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no; 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 "$GCC" = yes && 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 "$host_cpu" = ia64; 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 AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". 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) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | 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 # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; 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,' if test "$GCC" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' 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~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 "$GCC" = yes; 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 $output_objdir/$soname = $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 $output_objdir/$soname = $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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes && test "$with_gnu_ld" = no; 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 "$with_gnu_ld" = no; 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 "$GCC" = yes; 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 "$lt_cv_irix_exported_symbol" = yes; 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 ;; 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*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _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' ;; esac 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 _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "$GCC" = yes; 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 "x$host_vendor" = xsequent; 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 "$GCC" = yes; 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 can NOT 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 "$GCC" = yes; 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 x$host_vendor = xsni; 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no && 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 "$enable_shared" = yes && test "$GCC" = yes; 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 which 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; 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 "$_lt_caught_CXX_error" != yes; 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 "$GXX" = yes; 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 "$GXX" = yes; 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 "$with_gnu_ld" = yes; 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 "$host_cpu" = ia64; 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 # need to do runtime linking. 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 ;; 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,' if test "$GXX" = yes; 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 "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; 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 "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi 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_use_runtimelinking" = yes; 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 "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; 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 "$with_gnu_ld" = yes; 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 # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach 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~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $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 (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; 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) ;; 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 ;; gnu*) ;; 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 $output_objdir/$soname = $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 "$GXX" = yes; 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 $output_objdir/$soname = $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 $with_gnu_ld = no; 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 "$GXX" = yes; then if test $with_gnu_ld = no; 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 "$GXX" = yes; then if test "$with_gnu_ld" = no; 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) 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 "x$supports_anon_versioning" = xyes; 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 ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) 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__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 "$GXX" = yes && test "$with_gnu_ld" = no; 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 $LDFLAGS $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 -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 $LDFLAGS $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 -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 can NOT 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 "$_LT_TAGVAR(ld_shlibs, $1)" = no && 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 "$_lt_caught_CXX_error" != yes 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 ${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 ])# _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 $p = "-L" || test $p = "-R"; 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 "$pre_test_object_deps_done" = no; 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 "$pre_test_object_deps_done" = no; 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)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; 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 "X$F77" = "Xno"; 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 "$_lt_disable_F77" != yes; 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "$_lt_disable_F77" != yes 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 "X$FC" = "Xno"; 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 "$_lt_disable_FC" != yes; 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 "$can_build_shared" = "no" && 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 "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no 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 "$enable_shared" = yes || 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 "$_lt_disable_FC" != yes 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 "x${GCJFLAGS+set}" = xset || 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 $lt_ac_count -gt 10 && 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], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) 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_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which 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 libhdf4-4.2.10/HDF_ALT/m4/ltsugar.m40000644000000000000000000001042412421456623013352 0ustar # ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 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 ]) libhdf4-4.2.10/HDF_ALT/m4/ltversion.m40000644000000000000000000000126212421456623013716 0ustar # ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 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 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) libhdf4-4.2.10/HDF_ALT/m4/ltoptions.m40000644000000000000000000003007312421456623013726 0ustar # Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 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 7 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_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_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=default]) test -z "$pic_mode" && 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])]) libhdf4-4.2.10/HDF_ALT/m4/lt~obsolete.m40000644000000000000000000001375612421456623014256 0ustar # lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 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])]) libhdf4-4.2.10/HDF_ALT/libhdf4.settings.in0000644000000000000000000000231212421456623014607 0ustar SUMMARY OF THE HDF4 CONFIGURATION ================================= General Information: ------------------- HDF4 Version: @H4_VERSION@ Configured on: @CONFIG_DATE@ Configured by: @CONFIG_USER@ Configure mode: @CONFIG_MODE@ Host system: @host_cpu@-@host_vendor@-@host_os@ Uname information: @UNAME_INFO@ Libraries: @STATIC_SHARED@ Installation point: @prefix@ Compiling Options: ------------------ Compilation Mode: @CONFIG_MODE@ C compiler: @CC_VERSION@ CFLAGS: @CFLAGS@ CPPFLAGS: @CPPFLAGS@ Shared Libraries: @enable_shared@ Static Libraries: @enable_static@ Statically Linked Executables: @STATIC_EXEC@ LDFLAGS: @LDFLAGS@ Extra libraries: @LIBS@ Archiver: @AR@ Ranlib: @RANLIB@ Languages: ---------- Fortran: @BUILD_FORTRAN@ @HDF_BUILD_FORTRAN_TRUE@ Fortran Compiler: @F77_VERSION@ @HDF_BUILD_FORTRAN_TRUE@ FFLAGS: @FFLAGS@ Features: --------- SZIP compression: @SZIP_INFO@ Support for netCDF API 2.3.2: @BUILD_NETCDF@ libhdf4-4.2.10/HDF_ALT/hdf/0000755000000000000000000000000012421456623011647 5ustar libhdf4-4.2.10/HDF_ALT/hdf/CMakeLists.txt0000644000000000000000000000122412421456623014406 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF) #----------------------------------------------------------------------------- # Option to build HDF4 Utilities #----------------------------------------------------------------------------- IF (EXISTS "${HDF4_HDF_SOURCE_DIR}/util" AND IS_DIRECTORY "${HDF4_HDF_SOURCE_DIR}/util") OPTION (HDF4_BUILD_UTILS "Build HDF4 Utilities" OFF) IF (HDF4_BUILD_UTILS OR HDF4_BUILD_TOOLS) ADD_SUBDIRECTORY (${HDF4_HDF_SOURCE_DIR}/util ${HDF4_HDF_BINARY_DIR}/util) ENDIF (HDF4_BUILD_UTILS OR HDF4_BUILD_TOOLS) ENDIF (EXISTS "${HDF4_HDF_SOURCE_DIR}/util" AND IS_DIRECTORY "${HDF4_HDF_SOURCE_DIR}/util") libhdf4-4.2.10/HDF_ALT/hdf/Makefile.in0000644000000000000000000004613512421456623013725 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am subdir = hdf ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-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 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=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags 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@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog @HDF_BUILD_FORTRAN_FALSE@FORTRAN_DIR = @HDF_BUILD_FORTRAN_TRUE@FORTRAN_DIR = fortran # src folder in root Makefile, build other folders now SUBDIRS = src $(FORTRAN_DIR) test util DIST_SUBDIRS = src fortran test util examples all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 hdf/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): 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. $(RECURSIVE_TARGETS) $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ 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" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done cscopelist-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) 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; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @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 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 Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: 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: installcheck-local maintainer-clean: maintainer-clean-recursive -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: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \ cscopelist-recursive ctags-recursive install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ cscopelist cscopelist-recursive ctags ctags-recursive \ distclean distclean-generic distclean-libtool distclean-tags \ distdir dvi dvi-am 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 installcheck-local \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples $(FORTRAN_DIR); do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done # 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: libhdf4-4.2.10/HDF_ALT/hdf/Makefile.am0000644000000000000000000000135012421456623013702 0ustar include $(top_srcdir)/config/commence.am if HDF_BUILD_FORTRAN FORTRAN_DIR = fortran else FORTRAN_DIR = endif # src folder in root Makefile, build other folders now SUBDIRS = src $(FORTRAN_DIR) test util DIST_SUBDIRS = src fortran test util examples installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples $(FORTRAN_DIR); do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done libhdf4-4.2.10/HDF_ALT/hdf/src/0000755000000000000000000000000012474643754012451 5ustar libhdf4-4.2.10/HDF_ALT/hdf/src/hdfi.h0000644000000000000000000016117312474643754013545 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hdfi.h 6043 2014-01-21 21:09:03Z acheng $ */ #ifndef HDFI_H #define HDFI_H #ifdef GOT_MACHINE #undef GOT_MACHINE #endif /*--------------------------------------------------------------------------*/ /* MT/NT constants */ /* Four MT nibbles represent double, float, int, uchar (from most */ /* significant to least significant). */ /* Each "column" in the "table" below is essentially independant of the */ /* other "columns", for example the CONVEXNATIVE entry means that the */ /* floating point formats are in Convex native format but the integers */ /* are big-endian and standard sizes */ /* If you add another value to this "table", you need to add another */ /* DFNTF_xxx entry in hntdefs.h */ /* The values for each nibble are: */ /* 1 - Big Endian */ /* (i.e. Big-Endian, 32-bit architecture w/IEEE Floats) */ /* 2 - VAX */ /* (i.e. Middle-Endian, 32-bit architecture w/VAX Floats) */ /* 3 - Cray */ /* (i.e. Big-Endian, all 64-bit architecture w/Cray Floats) */ /* 4 - Little Endian */ /* (i.e. Little-Endian, 32-bit architecture w/IEEE Floats) */ /* 5 - Convex */ /* (i.e. Big-Endian, 32-bit architecture w/Convex Native Floats) */ /* 6 - Fujitsu VP */ /* (i.e. Big-Endian, 32-bit architecture w/Fujitsu Native Floats) */ /* 7 - Cray MPP */ /* (i.e. Big-Endian, 32-bit architecture w/IEEE Floats, but no 16-bit type) */ /* 8 - Cray IEEE */ /* (i.e. Big-Endian, all 64-bit architecture w/IEEE Floats) */ /*--------------------------------------------------------------------------*/ #define DFMT_S390 0x1111 #define DFMT_SUN 0x1111 #define DFMT_SUN_INTEL 0x4441 #define DFMT_ALLIANT 0x1111 #define DFMT_IRIX 0x1111 #define DFMT_APOLLO 0x1111 #define DFMT_IBM6000 0x1111 #define DFMT_HP9000 0x1111 #define DFMT_CONVEXNATIVE 0x5511 #define DFMT_CONVEX 0x1111 #define DFMT_UNICOS 0x3331 #define DFMT_UNICOSIEEE 0x1831 #define DFMT_CTSS 0x3331 #define DFMT_VAX 0x2221 #define DFMT_MIPSEL 0x4441 #define DFMT_MIPSEB 0x1111 #define DFMT_PC 0x4441 #define DFMT_APPLE 0x1111 #define DFMT_APPLE_INTEL 0x4441 #define DFMT_MAC 0x1111 #define DFMT_SUN386 0x4441 #define DFMT_NEXT 0x1111 #define DFMT_MOTOROLA 0x1111 #define DFMT_ALPHA 0x4441 #define DFMT_VP 0x6611 #define DFMT_I860 0x4441 #define DFMT_IA64 0x4441 #define DFMT_LINUX64 0x4441 #define DFMT_POWERPC64 0x1111 #define DFMT_POWERPC64LE 0x4441 #define DFMT_ARMV4L 0x4441 #define DFMT_AARCH64 0x4441 #define DFMT_X86_64 0x4441 #define DFMT_SH 0x4441 #define DFMT_SHEB 0x1111 /* I/O library constants */ #define UNIXUNBUFIO 1 #define UNIXBUFIO 2 #define MACIO 3 /* Standard header files needed all the time */ #include #include #include #include #include "H4api_adpt.h" /*------------------------------------------------------------------------- * Define options for each platform *-------------------------------------------------------------------------*/ /* * Meaning of each defined macros (not completed yet) * * BIG_LONGS--Define when long is not "equal" to int32. True in cases * where (int32 *) is not compatible with (long *). Should * be renamed as LONGNEINT32. */ #if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386) #ifdef __STDC__ #define ANSISUN #else /* __STDC__ */ #define KNRSUN #endif /* __STDC__ */ #endif /* SUN || sun */ #if defined(ANSISUN) #if !defined(SUN) #define SUN #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for some file I/O stuff */ #include #include /* for unbuffered i/o stuff */ #include #if (defined __sun) && (defined __amd64 || defined __i386) /* SunOS on Intel; 32 and 64-bit modes */ #define DF_MT DFMT_SUN_INTEL #else #define DF_MT DFMT_SUN #endif /* __sun */ typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; #ifdef _LP64 /* 64-bit environment */ typedef int int32; typedef unsigned int uint32; #else /* 32-bit environment */ typedef long int int32; typedef unsigned long int uint32; #endif typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; #ifdef _LP64 /* 64-bit environment */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #else /* 32-bit environment */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #endif #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* ANSISUN */ #if defined(KNRSUN) #if !defined(SUN) #define SUN #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE # define BSD #define DUMBCC /* because it is. for later use in macros */ #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_SUN typedef void VOID; typedef char *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif #endif /* SUN */ #if defined(IBM6000) || defined(_AIX) #ifndef IBM6000 #define IBM6000 #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE # define BSD #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_IBM6000 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; #ifndef _ALL_SOURCE typedef char int8; typedef short int int16; typedef int int32; #endif typedef char char8; typedef unsigned char uchar8; typedef unsigned char uint8; typedef unsigned short int uint16; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ #ifdef AIX5L64 typedef long hdf_pint_t; /* an integer the same size as a pointer */ #else /*AIX5L64 */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #endif /*AIX5L64 */ #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* IBM6000 */ #if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux) || defined(__hppa__))) #ifndef HP9000 #define HP9000 #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #ifndef HAVE_UNISTD_H #define HAVE_UNISTD_H /* unistd.h - close, fork,..etc */ #endif # define BSD #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_HP9000 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; #ifdef _LP64 /* 64-bit environment */ typedef int int32; typedef unsigned int uint32; #else /* 32-bit environment */ typedef long int int32; typedef unsigned long int uint32; #endif typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ #ifdef _LP64 /* 64-bit environment */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #else /* 32-bit environment */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #endif #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __linux__ #define FNAME_POST_UNDERSCORE #endif #endif /* HP9000 */ #if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi) #ifndef IRIX #define IRIX #endif #if (_MIPS_SZLONG == 64) /* IRIX 64 bits objects. It is nearly the same as the conventional * 32 bits objects. Let them share IRIX definitions for now. */ #define IRIX64 #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 /* * BSD was originally defined with no value. But some newer SGI system * header files (e.g., resolv.h) assume it has a value and evaluate it * in expressions, thus causing compiling errors. This has been reported * to SGI as bug #781568. SGI could not provide a list of the semantics * of BSD values and suggested a work around of setting BSD to 1. */ # define BSD 1 #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_IRIX typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef signed char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* #ifdef IRIX64 #define BIG_LONGS #endif */ /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* IRIX */ /* CRAY XT3 * Note from RedStorm helpdesk, * When I compile a C code with the '-v' option, it indicates that the compile * is done with the macros __QK_USER__ and __LIBCATAMOUNT__ defined. In * addition, there are other macros like __x86_64__ defined as well, to * indicate processor type. __QK_USER__ might be a good check for Catamount, * and __x86_64__ might be good for Opteron node. You might try something * like the following in a header file: */ #if ((defined(__QK_USER__)) && (defined(__x86_64__))) #define __CRAY_XT3__ #endif #if defined(CONVEX) || defined(CONVEXNATIVE) || defined(__convexc__) #ifndef CONVEX #define CONVEX #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include #include /* For Convex machines with native format floats */ #ifdef CONVEXNATIVE #define DF_MT DFMT_CONVEXNATIVE #else #define DF_MT DFMT_CONVEX #endif typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define RIGHT_SHIFT_IS_UNSIGNED #define INCLUDES_ARE_ANSI #define HAVE_STDC #endif /* CONVEX */ #if defined (__APPLE__) #ifndef __APPLE__ #define __APPLE__ #endif #ifdef __LITTLE_ENDIAN__ #define DF_MT DFMT_APPLE_INTEL #else #define DF_MT DFMT_APPLE #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #ifndef __GNUC__ #define DUMBCC /* because it is. for later use in macros */ #endif /* __GNUC__ */ #include #include /* for unbuffered i/o stuff */ #include #ifdef __i386 #ifndef INTEL86 #define INTEL86 /* we need this Intel define or bad things happen later */ #endif /* INTEL86 */ #endif /* __i386 */ typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int16; typedef unsigned short uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #endif /* __APPLE__ */ /* Metrowerks Mac compiler defines some PC stuff so need to exclude this on the Mac */ #if !(defined (__APPLE__)) #if defined _M_ALPHA || defined _M_X64 || defined _M_IA64 || defined _M_IX86 || defined INTEL86 || defined M_I86 || defined M_I386 || defined DOS386 || defined __i386 || defined UNIX386 || defined i386 #ifndef INTEL86 #define INTEL86 #endif /* INTEL86 */ #if !defined UNIX386 && (defined unix || defined __unix) #define UNIX386 #endif /* UNIX386 */ #if !defined DOS386 && defined M_I386 #define DOS386 #endif /* M_I386 && !DOS386 */ #if defined _WINDOWS || defined _WIN32 #define WIN386 #endif /* _WINDOWS | _WIN32 */ #if defined WIN386 || defined DOS386 || defined UNIX386 #define INTEL386 #endif /* WIN386 | DOS386 | UNIX386 */ #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #if defined _WINDOWS || defined _WIN32 #pragma comment( lib, "oldnames" ) #endif #include #ifdef UNIX386 #include /* for unbuffered file I/O */ #include #include #else /* !UNIX386 */ #include /* for unbuffered file I/O */ #include #include #include /* for debugging getch() calls */ #include #endif /* UNIX386 */ #include /* for character macros */ #ifdef __WATCOMC__ #include /* for the 'fortran' pragma */ #endif #if defined WIN386 #ifndef GMEM_MOVEABLE /* check if windows header is already included */ #include /* include the windows headers */ #include #define HAVE_BOOLEAN #endif /* GMEM_MOVEABLE */ #endif /* WIN386 */ #define DF_MT DFMT_PC #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ #ifdef _WIN64 typedef long long hdf_pint_t; /* 8-byte pointer */ #else typedef int hdf_pint_t; /* 4-byte pointer */ #endif /* _WIN64 */ #if defined _M_ALPHA #define FNAME_PRE_UNDERSCORE #endif #if defined UNIX386 #ifdef H4_ABSOFT #define FNAME(x) x #define DF_CAPFNAMES #else #define FNAME_POST_UNDERSCORE #endif #elif defined INTEL386 #define DF_CAPFNAMES #endif #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* INTEL86 */ #endif /* !(defined(__APPLE__)) */ /*-----------------------------------------------------*/ #if defined (__linux__) && defined (__mc68000__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_MOTOROLA #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/m68k */ #if defined (__linux__) && defined (__sparc__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_SUN #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; #ifdef _LP64 /* 64-bit environment */ typedef int int32; typedef unsigned int uint32; #else /* 32-bit environment */ typedef long int int32; typedef unsigned long int uint32; #endif typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ #ifdef _LP64 /* 64-bit environment */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #else /* 32-bit environment */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #endif #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/Sparc */ #if defined (__linux__) && defined (__powerpc__) && !defined(__powerpc64__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_MOTOROLA #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/powerpc */ #if defined (__linux__) && defined (__s390__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_S390 #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; #ifdef _LP64 /* 64-bit environment */ typedef int int32; typedef unsigned int uint32; #else /* 32-bit environment */ typedef long int int32; typedef unsigned long int uint32; #endif typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ #ifdef _LP64 /* 64-bit environment */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #else /* 32-bit environment */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #endif #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/s390 */ #if defined (__linux__) && (defined (MIPSEB) || defined(MIPSEL)) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #if defined (MIPSEB) #define DF_MT DFMT_MIPSEB #elif defined(MIPSEL) #define DF_MT DFMT_MIPSEL #endif #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ typedef long int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/mips */ #if defined (__linux__) && defined (__arm__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_ARMV4L #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; /* size of INTEGERs in Fortran compiler */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/arm */ #if defined (__linux__) && defined (__aarch64__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #define DF_MT DFMT_AARCH64 typedef void VOID; typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO #ifndef BIG_LONGS #define BIG_LONGS #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/aarch64 */ #if defined(NEXT) || defined(NeXT) #ifndef NEXT #define NEXT #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #define isascii(c) (isprint(c) || iscntrl(c)) #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_NEXT typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* NEXT */ /*-----------------------------------------------------*/ #if defined(MOTOROLA) || defined(m88k) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #ifndef __GNUC__ #include #endif /* __GNUC__ */ #include #include /* for unbuffered i/o stuff */ #include #ifndef O_RDONLY #include /* for unbuffered i/o stuff */ #endif /*O_RDONLY*/ #define DF_MT DFMT_MOTOROLA typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #endif /* MOTOROLA */ /*-----------------------------------------------------*/ #if defined DEC_ALPHA || (defined __alpha && defined __unix__) #ifndef DEC_ALPHA #define DEC_ALPHA #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_ALPHA typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; #ifndef __rpc_types_h typedef int int32; typedef unsigned int uint32; #endif /* __rpc_types_h */ typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif #endif /* DEC_ALPHA */ /*-----------------------------------------------------*/ #if defined VP | defined __uxpm__ #ifndef VP #define VP #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include #include #define DF_MT DFMT_VP typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #endif /* VP */ /*-----------------------------------------------------*/ #if defined I860 | defined i860 #ifndef I860 #define I860 #endif #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered i/o stuff */ #include #include /* mis-using def. for SEEK_SET, but oh well */ #define DF_MT DFMT_I860 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int16; typedef unsigned short uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef int hdf_pint_t; /* an integer the same size as a pointer */ #define _fcdtocp(desc) (desc) #define FNAME_POST_UNDERSCORE #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #endif /* I860 */ /*-----------------------------------------------------*/ /* Power PC 5 64 */ #if defined __powerpc64__ #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for unbuffered i/o stuff */ #include #ifdef __LITTLE_ENDIAN__ #define DF_MT DFMT_POWERPC64LE #else #define DF_MT DFMT_POWERPC64 #endif typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef long hdf_pint_t; /* an integer the same size as a pointer */ #if defined __GNUC__ #define FNAME_POST_UNDERSCORE #endif #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO #ifndef BIG_LONGS #define BIG_LONGS #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /*-----------------------------------------------------*/ #endif /*power PC 5 64 */ /* Linux 64 */ #if defined(__GLIBC__) && defined __x86_64__ && !(defined SUN) /* i.e. 64-bit Linux but not SunOS on Intel */ #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_LINUX64 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif #endif /*Linux 64 */ /*-----------------------------------------------------*/ /* 64-bit Free BSD */ #if defined __FreeBSD__ && defined __x86_64__ #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_LINUX64 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif #endif /*64-bit FreeBSD */ /*-----------------------------------------------------*/ /* IA64 running Linux */ #if defined __ia64 && !(defined(hpux) || defined(__hpux)) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE #include /* for unbuffered i/o stuff */ #include #define DF_MT DFMT_IA64 typedef void VOID; typedef void *VOIDP; typedef char *_fcd; typedef char char8; typedef unsigned char uchar8; typedef char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef int int32; typedef unsigned int uint32; typedef int intn; typedef unsigned int uintn; typedef int intf; /* size of INTEGERs in Fortran compiler */ typedef float float32; typedef double float64; typedef long hdf_pint_t; /* an integer the same size as a pointer */ #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #define FILELIB UNIXBUFIO #define BIG_LONGS /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #ifdef __GNUC__ #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif #endif /* IA64 */ /* Renesas SuperH SH3(little/big)/SH4(little/big) */ #if defined (__linux__) && defined(__sh__) #ifdef GOT_MACHINE If you get an error on this line more than one machine type has been defined. Please check your Makefile. #endif #define GOT_MACHINE 1 #include #include /* for unbuffered file I/O */ #include #include #include /* for character macros */ #if defined (__LITTLE_ENDIAN__) #define DF_MT DFMT_SH #elif defined(__BIG_ENDIAN__) #define DF_MT DFMT_SHEB #endif #ifndef VOID /* The stupid windows.h header file uses a #define instead of a typedef */ typedef void VOID; #endif /* end VOID */ typedef void * VOIDP; typedef char * _fcd; typedef char char8; typedef unsigned char uchar8; typedef signed char int8; typedef unsigned char uint8; typedef short int int16; typedef unsigned short int uint16; typedef long int int32; typedef unsigned long int uint32; typedef int intn; typedef unsigned int uintn; typedef float float32; typedef double float64; typedef long intf; typedef int hdf_pint_t; #define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #ifdef HAVE_FMPOOL #define FILELIB PAGEBUFIO /* enable page buffering */ #else #define FILELIB UNIXBUFIO #endif /* JPEG #define's - Look in the JPEG docs before changing - (Q) */ /* Determine the memory manager we are going to use. Valid values are: */ /* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */ /* what each does */ #define JMEMSYS MEM_ANSI #define HAVE_STDC #define INCLUDES_ARE_ANSI #endif /* Linux/sh */ #ifndef GOT_MACHINE No machine type has been defined. Your Makefile needs to have someing like -DSUN or -DUNICOS in order for the HDF internal structures to be defined correctly. #endif /*-----------------------------------------------------*/ /* encode and decode macros */ /*-----------------------------------------------------*/ # define INT16ENCODE(p, i) \ { *(p) = (uint8)(((uintn)(i) >> 8) & 0xff); (p)++; \ *(p) = (uint8)((uintn)(i) & 0xff); (p)++; } # define UINT16ENCODE(p, i) \ { *(p) = (uint8)(((uintn)(i) >> 8) & 0xff); (p)++; *(p) = (uint8)((i) & 0xff); (p)++; } # define INT32ENCODE(p, i) \ { *(p) = (uint8)(((uint32)(i) >> 24) & 0xff); (p)++; \ *(p) = (uint8)(((uint32)(i) >> 16) & 0xff); (p)++; \ *(p) = (uint8)(((uint32)(i) >> 8) & 0xff); (p)++; \ *(p) = (uint8)((uint32)(i) & 0xff); (p)++; } # define UINT32ENCODE(p, i) \ { *(p) = (uint8)(((i) >> 24) & 0xff); (p)++; \ *(p) = (uint8)(((i) >> 16) & 0xff); (p)++; \ *(p) = (uint8)(((i) >> 8) & 0xff); (p)++; \ *(p) = (uint8)((i) & 0xff); (p)++; } # define NBYTEENCODE(d, s, n) \ { HDmemcpy(d,s,n); p+=n } /* DECODE converts big endian bytes pointed by p to integer values and store * it in i. For signed values, need to do sign-extension when converting * the 1st byte which carries the sign bit. * The macros does not require i be of a certain byte sizes. It just requires * i be big enough to hold the intended value range. E.g. INT16DECODE works * correctly even if i is actually a 64bit int like in a Cray. */ # define INT16DECODE(p, i) \ { (i) = ((*(p) & 0x80) ? ~0xffff : 0x00) | ((int16)(*(p) & 0xff) << 8); (p)++; \ (i) |= (int16)((*(p) & 0xff)); (p)++; } # define UINT16DECODE(p, i) \ { (i) = (uint16)((*(p) & 0xff) << 8); (p)++; \ (i) |= (uint16)(*(p) & 0xff); (p)++; } # define INT32DECODE(p, i) \ { (i) = (int32)(((int32)*(p) & 0x80) ? ~0xffffffff : 0x00) | ((int32)(*(p) & 0xff) << 24); (p)++; \ (i) |= ((int32)(*(p) & 0xff) << 16); (p)++; \ (i) |= ((int32)(*(p) & 0xff) << 8); (p)++; \ (i) |= (*(p) & 0xff); (p)++; } # define UINT32DECODE(p, i) \ { (i) = ((uint32)(*(p) & 0xff) << 24); (p)++; \ (i) |= ((uint32)(*(p) & 0xff) << 16); (p)++; \ (i) |= ((uint32)(*(p) & 0xff) << 8); (p)++; \ (i) |= (uint32)(*(p) & 0xff); (p)++; } /* Note! the NBYTEDECODE macro is backwards from the memcpy() routine, */ /* in the spirit of the other DECODE macros */ # define NBYTEDECODE(s, d, n) \ { HDmemcpy(d,s,n); p+=n } /*---------------------------------------------------------------- ** MACRO FCALLKEYW for any special fortran-C stub keyword ** ** Microsoft C and Fortran need __fortran for Fortran callable C ** routines. ** ** MACRO FRETVAL for any return value from a fortran-C stub function ** Replaces the older FCALLKEYW macro. **---------------------------------------------------------------*/ #ifdef FRETVAL #undef FRETVAL #endif #ifndef FRETVAL /* !MAC */ # define FCALLKEYW /*NONE*/ # define FRETVAL(x) x #endif /*---------------------------------------------------------------- ** MACRO FNAME for any fortran callable routine name. ** ** This macro prepends, appends, or does not modify a name ** passed as a macro parameter to it based on the FNAME_PRE_UNDERSCORE, ** FNAME_POST_UNDERSCORE macros set for a specific system. ** **---------------------------------------------------------------*/ #if defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE) # define FNAME(x) _##x##_ #endif #if defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE) # define FNAME(x) _##x #endif #if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE) # define FNAME(x) x##_ #endif #if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE) # define FNAME(x) x #endif /************************************************************************** * Generally useful macro definitions **************************************************************************/ #ifndef MIN #define MIN(a,b) (((a)<(b)) ? (a) : (b)) #endif #ifndef MAX #define MAX(a,b) (((a)>(b)) ? (a) : (b)) #endif /************************************************************************** * Debugging Allocation functions **************************************************************************/ #ifdef MALDEBUG #include "maldebug.h" #endif /************************************************************************** * Macros to work around ANSI C portability problems. **************************************************************************/ #ifdef DUMBCC #define CONSTR(v,s) char *v=s #else #define CONSTR(v,s) static const char v[]=s #endif /* Old-style memory allocation function aliases -QAK */ #define HDgetspace HDmalloc #define HDclearspace HDcalloc #define HDregetspace HDrealloc #define HDfreespace HDfree /************************************************************************** * Allocation functions defined differently **************************************************************************/ #if !defined(MALLOC_CHECK) # define HDmalloc(s) (malloc((size_t)s)) # define HDcalloc(a,b) (calloc((size_t)a,(size_t)b)) # define HDfree(p) (free((void*)p)) # define HDrealloc(p,s) (realloc((void*)p,(size_t)s)) #endif /* !defined MALLOC_CHECK */ /* Macro to free space and clear pointer to NULL */ #define HDfreenclear(p) { if((p)!=NULL) HDfree(p); p=NULL; } /************************************************************************** * String functions defined differently **************************************************************************/ # define HDstrcat(s1,s2) (strcat((s1),(s2))) # define HDstrcmp(s,t) (strcmp((s),(t))) # define HDstrcpy(s,d) (strcpy((s),(d))) # define HDstrlen(s) (strlen((const char *)(s))) # define HDstrncmp(s1,s2,n) (strncmp((s1),(s2),(n))) # define HDstrncpy(s1,s2,n) (strncpy((s1),(s2),(n))) # define HDstrchr(s,c) (strchr((s),(c))) # define HDstrrchr(s,c) (strrchr((s),(c))) # define HDstrtol(s,e,b) (strtol((s),(e),(b))) /* non-standard function, not defined on the following machines - */ #if !(defined IBM6000 || defined ANSISUN ) # define HDstrdup(s) ((char *)strdup((const char *)(s))) #endif /* !(etc..) */ /************************************************************************** * Memory functions defined differently **************************************************************************/ # define HDmemcpy(dst,src,n) (memcpy((void *)(dst),(const void *)(src),(size_t)(n))) # define HDmemset(dst,c,n) (memset((void *)(dst),(intn)(c),(size_t)(n))) # define HDmemcmp(dst,src,n) (memcmp((const void *)(dst),(const void *)(src),(size_t)(n))) /************************************************************************** * Misc. functions **************************************************************************/ #define HDstat(path, result) (stat(path, result)) #define HDgetenv(s1) (getenv(s1)) #define HDputenv(s1) (putenv(s1)) #define HDltoa(v) (ltoa(v)) #if defined (SUN) && defined(__GNUC__) #define HDatexit(f) (0) /* we punt on the SUN using gcc */ #else /* !SUN & GCC */ #define HDatexit(f) (atexit(f)) #endif /* !SUN & GCC */ /* Compatibility #define for V3.3, should be taken out by v4.0 - QAK */ #define DFSDnumber DFSDndatasets #endif /* HDFI_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hconv.h0000644000000000000000000001311112474643754013734 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hconv.h 6036 2014-01-20 17:28:01Z acheng $ */ /*----------------------------------------------------------------------------- * File: hconv.h * Purpose: header file for data conversion information & structures * Invokes: * Contents: * Structure definitions: * Constant definitions: lots... *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef _HCONV_H #define _HCONV_H /* This looks redundant because previously, VMS platform would undefine DUFF. */ /* Don't know why. -AKC 2014/1/18 */ #define DUFF #ifdef DUFF #define DUFF_sb4b #define DUFF_ui2i #define DUFF_ui2s #define DUFF_uo2i #define DUFF_ui4i #define DUFF_ui4s #define DUFF_uo4i #define DUFF_ui4f #define DUFF_uo4f #define DUFF_ui8f #define DUFF_uo8f #define DUFF_lui2i #define DUFF_lui2s #define DUFF_luo2i #define DUFF_lui4i #define DUFF_lui4s #define DUFF_luo4i #define DUFF_lui4f #define DUFF_luo4f #define DUFF_lui8f #define DUFF_luo8f #endif /*****************************************************************************/ /* CONSTANT DEFINITIONS */ /*****************************************************************************/ /* Generally Big-Endian machines */ #if !defined(INTEL86) && !defined(MIPSEL) && !defined(DEC_ALPHA) && !defined(I860) && !defined(SUN386) && !(defined(__ia64) && !(defined(hpux) || defined(__hpux))) && !defined(__x86_64__) && !(defined(__powerpc__) && defined(__LITTLE_ENDIAN__)) && !defined(__aarch64__) && !defined(__ARM_EABI__) # define UI8_IN DFKnb1b /* Unsigned Integer, 8 bits */ # define UI8_OUT DFKnb1b # define SI16_IN DFKnb2b /* S = Signed */ # define SI16_OUT DFKnb2b # define UI16_IN DFKnb2b # define UI16_OUT DFKnb2b # define SI32_IN DFKnb4b # define SI32_OUT DFKnb4b # define UI32_IN DFKnb4b # define UI32_OUT DFKnb4b # define F32_IN DFKnb4b /* Float, 32 bits */ # define F32_OUT DFKnb4b # define F64_IN DFKnb8b # define F64_OUT DFKnb8b # define LUI8_IN DFKnb1b /* Little Endian Unsigned Integer, 8 bits */ # define LUI8_OUT DFKnb1b # define LSI16_IN DFKsb2b # define LSI16_OUT DFKsb2b # define LUI16_IN DFKsb2b # define LUI16_OUT DFKsb2b # define LSI32_IN DFKsb4b # define LSI32_OUT DFKsb4b # define LUI32_IN DFKsb4b # define LUI32_OUT DFKsb4b # define LF32_IN DFKsb4b # define LF32_OUT DFKsb4b # define LF64_IN DFKsb8b # define LF64_OUT DFKsb8b #else /* must be INTEL86 || MIPSEL || DEC_ALPHA || I860 || SUN386 || IA64 || Linux64 (Generally, little-endian machines */ # define UI8_IN DFKnb1b /* Big-Endian IEEE support */ # define UI8_OUT DFKnb1b /* The s in DFKsb2b is for swap */ # define SI16_IN DFKsb2b # define SI16_OUT DFKsb2b # define UI16_IN DFKsb2b # define UI16_OUT DFKsb2b # define SI32_IN DFKsb4b # define SI32_OUT DFKsb4b # define UI32_IN DFKsb4b # define UI32_OUT DFKsb4b # define F32_IN DFKsb4b # define F32_OUT DFKsb4b # define F64_IN DFKsb8b # define F64_OUT DFKsb8b # define LUI8_IN DFKnb1b /* Little-Endian IEEE support */ # define LUI8_OUT DFKnb1b # define LSI16_IN DFKnb2b # define LSI16_OUT DFKnb2b # define LUI16_IN DFKnb2b # define LUI16_OUT DFKnb2b # define LSI32_IN DFKnb4b # define LSI32_OUT DFKnb4b # define LUI32_IN DFKnb4b # define LUI32_OUT DFKnb4b # define LF32_IN DFKnb4b # define LF32_OUT DFKnb4b # define LF64_IN DFKnb8b # define LF64_OUT DFKnb8b #endif /* !INTEL86 && !MIPS && !DEC_ALPHA && !I860 && !SUN386 && !IA64 && !Linux64*/ /* All Machines currently use the same routines */ /* for Native mode "conversions" */ # define NUI8_IN DFKnb1b # define NUI8_OUT DFKnb1b # define NSI16_IN DFKnb2b # define NSI16_OUT DFKnb2b # define NUI16_IN DFKnb2b # define NUI16_OUT DFKnb2b # define NSI32_IN DFKnb4b # define NSI32_OUT DFKnb4b # define NUI32_IN DFKnb4b # define NUI32_OUT DFKnb4b # define NF32_IN DFKnb4b # define NF32_OUT DFKnb4b # define NF64_IN DFKnb8b # define NF64_OUT DFKnb8b /*****************************************************************************/ /* STRUCTURE DEFINTIONS */ /*****************************************************************************/ union fpx { float f; long l; }; union float_uint_uchar { float32 f; int32 i; unsigned char c[4]; }; #endif /* _HCONV_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/cnbit.h0000644000000000000000000001041712421456623013711 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cnbit.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: cnbit.h * Purpose: Header file for N-bit encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for N-bit encoding. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CNBIT_H #define __CNBIT_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from cnbit.c */ extern int32 HCPcnbit_stread (accrec_t * rec); extern int32 HCPcnbit_stwrite (accrec_t * rec); extern int32 HCPcnbit_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcnbit_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcnbit_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcnbit_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcnbit_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* size of the N-bit buffer */ #define NBIT_BUF_SIZE (MAX_NT_SIZE*64) /* size of the N-bit mask buffer (same as buffer size for now) */ #define NBIT_MASK_SIZE (MAX_NT_SIZE) typedef struct { /* structure to hold bit vector info */ intn offset, /* offset of the bit information */ length; /* number of bits in the information */ uint8 mask; /* mask for this bit vector */ } nbit_mask_info_t; /* N-bit [en|de]coding information */ typedef struct { int32 nt; /* number type of data we are encoding */ intn nt_size; /* size of the number-type in the file */ intn fill_one; /* whether to fill with 1's or not (0's) */ intn sign_ext; /* whether to sign extend or not */ uint8 buffer[NBIT_BUF_SIZE]; /* buffer for expanding n-bit data in */ intn buf_pos; /* current offset in the expansion buffer */ intn mask_off, /* offset of the bit to start masking with */ mask_len; /* number of bits to mask */ int32 offset; /* offset in the file in terms of bytes */ uint8 mask_buf[NBIT_MASK_SIZE]; /* buffer to hold the bitmask */ nbit_mask_info_t mask_info[NBIT_MASK_SIZE]; /* information about the mask */ intn nt_pos; /* current byte to read or write */ } comp_coder_nbit_info_t; #ifndef CNBIT_MASTER extern funclist_t cnbit_funcs; /* functions to perform N-bit encoding */ #else funclist_t cnbit_funcs = { /* functions to perform N-bit encoding */ HCPcnbit_stread, HCPcnbit_stwrite, HCPcnbit_seek, HCPcnbit_inquire, HCPcnbit_read, HCPcnbit_write, HCPcnbit_endaccess }; #endif #endif /* __CNBIT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vg.h0000644000000000000000000000616312421456623013231 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: vg.h 4932 2007-09-07 17:17:23Z bmribler $ */ /***************************************************************************** * * vg.h * * Part of HDF VSet interface * * defines symbols and structures used in all v*.c files * * NOTES: * This include file depends on the basic HDF *.h files hdfi.h and hdf.h. * An 'S' in the comment means that that data field is saved in the HDF file. * ******************************************************************************/ #ifndef _VG_H #define _VG_H /* -------------- H D F V S E T tags ---------------------------- */ /* In what versions were these valid? */ #define OLD_VGDESCTAG 61820 /* tag for a vgroup d */ #define OLD_VSDESCTAG 61821 /* tag for a vdata descriptor */ #define OLD_VSDATATAG 61822 /* tag for actual raw data of a vdata */ /* re-define what new ones are. Don't know why there are two sets but made them conform to what was in 'htags.h' */ #define NEW_VGDESCTAG DFTAG_VG #define NEW_VSDESCTAG DFTAG_VH #define NEW_VSDATATAG DFTAG_VS #define VGDESCTAG NEW_VGDESCTAG #define VSDESCTAG NEW_VSDESCTAG #define VSDATATAG NEW_VSDATATAG #define _HDF_VSPACK 0 #define _HDF_VSUNPACK 1 #define VG_ATTR_SET 0x00000001 /* this vgroup has attribute(s) */ #define VS_ATTR_SET 0x00000001 /* this vdata has attribute(s) */ #define _HDF_VDATA -1 /* used in vdata attr interface findex to represent the entire vdata */ #define _HDF_ENTIRE_VDATA _HDF_VDATA /* if users have already used _HDF_ENTIRE_VDATA since 4.1b1 was out */ /* Size of the atom hash table */ #define VATOM_HASH_SIZE 256 /* .................................................................. */ #define VSET_NEW_VERSION 4 /* if attr or other new features are set */ #define VSET_VERSION 3 /* DO NOT CHANGE!! */ #define VSET_OLD_VERSION 2 /* All version <= 2 use old type mappings */ #define VSET_OLD_TYPES VSET_OLD_VERSION /* For backward compatibility */ /* Only include the library header if the VSET_INTERFACE macro is defined */ #ifdef VSET_INTERFACE #include "vgint.h" /* Library VSet information header */ #endif /* VSET_INTERFACE */ #endif /* _VG_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/trace.h0000644000000000000000000000036212421456623013706 0ustar #define HDF_TRACE_ON( eventID ) #define HDF_TRACE_OFF( eventID, p1, p2, p3 ) #define HDF_MASK_TRACE_ON( mask, eventID ) #define HDF_MASK_TRACE_OFF( mask, eventID, p1, p2, p3 ) #define TRACE_ON(mask, eventID) #define TRACE_OFF(mask, eventID ) libhdf4-4.2.10/HDF_ALT/hdf/src/dfanff.f0000644000000000000000000003563412421456623014044 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfanff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: dfanFf.f C Purpose: Fortran stub routines for annotations C Invokes: dfanF.c C Contents: C dagllen : get length of label of tag/ref C daglab : get label of tag/ref C dagdlen : get length of description of tag/ref C dagdesc : get description of tag/ref C daplab : put label of tag/ref C dapdesc : put description of tag/ref C dallist : get list of labels for a particular tag C daafid : add file ID to file C C dfangetlablen: get length of label of tag/ref C dfangetlabel : get label of tag/ref C dfangetdesclen: get length of description of tag/ref C dfangetdesc : get description of tag/ref C dfanputlabel : put label of tag/ref C dfanputdesc : put description of tag/ref C dfanlablist : get list of labels for a particular tag C dfanaddfid : add file ID to file C------------------------------------------------------------------------------ C------------------------------------------------------------------------------ C Name: dagllen C Purpose: get length of label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want label C Returns: length of label on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daiganl C------------------------------------------------------------------------------ integer function dagllen(filename, tag, ref) character *(*) filename integer tag, ref, daiganl C 0 is DFAN_LABEL dagllen = daiganl(filename, tag, ref, 0, len(filename)) return end C------------------------------------------------------------------------------ C Name: daglab C Purpose: get label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want label C label: space to return label in C maxlen: size of space to return label in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daigann C------------------------------------------------------------------------------ integer function daglab(filename, tag, ref, label, maxlen) character *(*) filename, label integer tag, ref, maxlen, daigann C 0 is DFAN_LABEL daglab = daigann(filename, tag, ref, label, maxlen, 0, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dagdlen C Purpose: get length of description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want description C Returns: length of description on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daiganl C------------------------------------------------------------------------------ integer function dagdlen(filename, tag, ref) character *(*) filename integer tag, ref, daiganl C 1 is DFAN_DESC dagdlen = daiganl(filename, tag, ref, 1, len(filename)) return end C------------------------------------------------------------------------------ C Name: dagdesc C Purpose: get description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want description C desc: space to return description in C maxlen: size of space to return description in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daigann C------------------------------------------------------------------------------ integer function dagdesc(filename, tag, ref, desc, maxlen) character *(*) filename, desc integer tag, ref, daigann, maxlen C 1 is DFAN_DESC dagdesc = daigann(filename, tag, ref, desc, maxlen, 1, + len(filename)) return end C------------------------------------------------------------------------------ C Name: daplab C Purpose: put label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which this is the label C label: label to write to file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function daplab(filename, tag, ref, label) character *(*) filename, label integer tag, ref, daipann C 0 is DFAN_LABEL daplab = daipann(filename, tag, ref, label, len(label), 0, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dapdesc C Purpose: put description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which this is the description C desc: description to write to file C desclen: length of description C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function dapdesc(filename, tag, ref, desc, desclen) character *(*) filename, desc integer tag, ref, desclen, daipann C 1 is DFAN_DESC dapdesc = daipann(filename, tag, ref, desc, desclen, 1, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dallist C Purpose: Return list of refs and labels for a given tag C Inputs: filename: name of HDF file C tag: tag to get list of refs and labels for C reflist: array to place refs in C labellist: array of strings to place labels in C listsize: size of ref and label lists C maxlen: maximum length allowed for label C startpos: beginning from the startpos'th entry, upto listsize C entries will be returned. C Returns: number of entries on success, -1 on error with DFerror set C Users: HDF users, utilities, other routines C Invokes: dailist C Method: call dailist C Remarks: none C------------------------------------------------------------------------------ integer function dallist(filename, tag, reflist, labellist, + listsize, maxlen, startpos) character *(*) filename, labellist integer tag, reflist(*), listsize, maxlen, startpos, dailist dallist = dailist(filename, tag, reflist, labellist, + listsize, maxlen, startpos, len(filename)) return end C------------------------------------------------------------------------------ C Name: daafid C Purpose: add file ID to file C Inputs: dfile: pointer to HDF file C id: id to write to file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function daafid(file, id) integer file, daiafid character*(*) id daafid = daiafid(file, id, len(id) ) return end CEND7MAX C------------------------------------------------------------------------------ C Name: dfangetlablen C Purpose: get length of label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want label C Returns: length of label on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daignal C------------------------------------------------------------------------------ integer function dfangetlablen(filename, tag, ref) character *(*) filename integer tag, ref, daiganl C 0 is DFAN_LABEL dfangetlablen = daiganl(filename, tag, ref, 0, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfangetlabel C Purpose: get label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want label C label: space to return label in C maxlen: size of space to return label in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daigann C------------------------------------------------------------------------------ integer function dfangetlabel(filename, tag, ref, label, maxlen) character *(*) filename, label integer tag, ref, maxlen, daigann C 0 is DFAN_LABEL dfangetlabel = daigann(filename, tag, ref, label, maxlen, 0, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfangetdesclen C Purpose: get length of description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want description C Returns: length of description on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daiganl C------------------------------------------------------------------------------ integer function dfangetdesclen(filename, tag, ref) character *(*) filename integer tag, ref, daiganl C 1 is DFAN_DESC dfangetdesclen = daiganl(filename, tag, ref, 1, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfangetdesc C Purpose: get description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which we want description C desc: space to return description in C maxlen: size of space to return description in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daigann C------------------------------------------------------------------------------ integer function dfangetdesc(filename, tag, ref, desc, maxlen) character *(*) filename, desc integer tag, ref, daigann, maxlen C 1 is DFAN_DESC dfangetdesc = daigann(filename, tag, ref, desc, maxlen, 1, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfanputlabel C Purpose: put label of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which this is the label C label: label to write to file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function dfanputlabel(filename, tag, ref, label) character *(*) filename, label integer tag, ref, daipann C 0 is DFAN_LABEL dfanputlabel = daipann(filename, tag, ref, label, len(label), 0, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfanputdesc C Purpose: put description of tag/ref C Inputs: filename: name of HDF file C tag, ref: tag/ref of item of which this is the description C desc: description to write to file C desclen: length of description C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function dfanputdesc(filename, tag, ref, desc, desclen) character *(*) filename, desc integer tag, ref, desclen, daipann C 1 is DFAN_DESC dfanputdesc = daipann(filename, tag, ref, desc, desclen, 1, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfanlablist C Purpose: Return list of refs and labels for a given tag C Inputs: filename: name of HDF file C tag: tag to get list of refs and labels for C reflist: array to place refs in C labellist: array of strings to place labels in C listsize: size of ref and label lists C maxlen: maximum length allowed for label C startpos: beginning from the startpos'th entry, upto listsize C entries will be returned. C Returns: number of entries on success, -1 on error with DFerror set C Users: HDF users, utilities, other routines C Invokes: dailist C Method: call dailist C Remarks: none C------------------------------------------------------------------------------ integer function dfanlablist(filename, tag, reflist, labellist, + listsize, maxlen, startpos) character *(*) filename, labellist integer tag, reflist(*), listsize, maxlen, startpos, dailist dfanlablist = dailist(filename, tag, reflist, labellist, + listsize, maxlen, startpos, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfanaddfid C Purpose: add file ID to file C Inputs: dfile: pointer to HDF file C id: id to write to file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL users, utilities, other routines C Invokes: daipann C------------------------------------------------------------------------------ integer function dfanaddfid(file, id) integer file, daiafid character*(*) id DFANaddfid = daiafid(file, id, len(id) ) return end libhdf4-4.2.10/HDF_ALT/hdf/src/hcomp.c0000644000000000000000000021544112421456623013717 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5887 $"; #endif /* $Id: hcomp.c 5887 2012-10-08 04:57:47Z bmribler $ */ /* FILE hcomp.c HDF compressed data I/O routines REMARKS These functions read and write compressed data to HDF data objects. The compressed data objects are implemented as "special tags" in the HDF file and the "H" layer I/O routines break out to the functions in this module to deal with them. DESIGN The compression I/O functions are designed as state machines. There are two seperate state machines implemented, as layers on top of one another. The top layer is the modeling layer, whose purpose is to send/receive uncompressed bytes between the higher layer (the "H" layer routines) and the lower layer, the coding layer. The modeling layer is constrained to look like Standard C I/O functions to the upper layer, while sending data in potentially unusual orders to the coding layer. [An unusual order of bytes would be a Peano or Hilbert curve instead of the raster order more normally used]. The lower layer is the coding layer, whose purpose is to send/receive bytes of data to the higher layer (the modeling layer) and to send/receive bits/bytes of data to the bit I/O functions after encoding them with some compression scheme. Both of these layers are designed as independent state machines whose state contains all the information to restart at a given point. The purpose of this is to "cache" the state of each layer at certain [convenient] times in order to increase performance during random I/O. BUGS/LIMITATIONS Currently the following design limitations are still in place: 1 - Cannot compress an existing data element (will be fixed before release) [ I think this is done, but it needs testing] 2 - Statistic gathering from several types of compression is not implemented (should be fixed before release) 3 - "State caching" for improved performance in not implemented, although some data-structures allow for it. (should be fixed before release) 4 - Random writing in compressed data is not supported (unlikely to _ever_ be fixed) EXPORTED ROUTINES HCcreate - create or modify an existing data element to be compressed LOCAL ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 9/21/93 - Starting writing specs & coding prototype 10/09/93 - Finished initial testing. First version with only stdio modeling and RLE coding done. */ /* General HDF includes */ #define COMPRESS_MASTER #include "hdf.h" #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* Local defines */ #define COMP_HEADER_VERSION 0 #ifdef OLD_WAY #define COMP_START_BLOCK 1 #else /* OLD_WAY */ #define COMP_START_BLOCK 0 #endif /* OLD_WAY */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIstaccess (accrec_t * access_rec, int16 acc_mode); PRIVATE int32 HCIinit_coder (int16 acc_mode, comp_coder_info_t * cinfo, comp_coder_t coder_type, comp_info * coder_info); PRIVATE int32 HCIread_header (accrec_t * access_rec, compinfo_t * info, comp_info * c_info, model_info * m_info); PRIVATE int32 HCIwrite_header (atom_t file_id, compinfo_t * info, uint16 special_tag, uint16 ref, comp_info *c_info, model_info *m_info); PRIVATE int32 HCIinit_model (int16 acc_mode, comp_model_info_t * minfo, comp_model_t model_type, model_info * m_info); /* comp_funcs -- struct of accessing functions for the compressed data element function modules. The position of each function in the table is standard */ funclist_t comp_funcs = { HCPstread, HCPstwrite, HCPseek, HCPinquire, HCPread, HCPwrite, HCPendaccess, HCPinfo, NULL /* no routine registerd */ }; /* #define TESTING */ /*-------------------------------------------------------------------------- NAME HCIinit_coder -- Set the coder function pointers USAGE int32 HCIinit_coder(cinfo,coder_type,coder_info) comp_coder_info_t *cinfo; IN/OUT: pointer to coder information to modify comp_coder_t coder_type; IN: the type of encoding to use comp_info *coder_info; IN: setup information for some encoding types RETURNS Return SUCCEED or FAIL DESCRIPTION Sets the encoder function pointers and the encoder type for a given coder type. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS IMCOMP: Since IMCOMP is no longer supported in creating new data but the library still reads existing data, it may need to be added into this function somehow. Yet, I'm not sure exactly how it should be added because this function is called in both cases, writing and reading. At this time, the function will fail if it encounters COMP_CODE_IMCOMP. -BMR, Jul 11, 2012 EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIinit_coder(int16 acc_mode, comp_coder_info_t * cinfo, comp_coder_t coder_type, comp_info * c_info) { uint32 comp_info; CONSTR(FUNC, "HCIinit_coder"); /* for HERROR */ HCget_config_info(coder_type, &comp_info); if ((comp_info & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HRETURN_ERROR(DFE_BADCODER, FAIL) } switch (coder_type) { /* determine the type of encoding */ case COMP_CODE_NONE: /* "none" (i.e. no) encoding */ cinfo->coder_type = COMP_CODE_NONE; /* set coding type */ cinfo->coder_funcs = cnone_funcs; /* set the "none" func. ptrs */ break; case COMP_CODE_RLE: /* Run-length encoding */ cinfo->coder_type = COMP_CODE_RLE; /* set coding type */ cinfo->coder_funcs = crle_funcs; /* set the RLE func. ptrs */ break; case COMP_CODE_NBIT: /* N-bit encoding */ cinfo->coder_type = COMP_CODE_NBIT; /* set the coding type */ cinfo->coder_funcs = cnbit_funcs; /* set the N-bit func. ptrs */ /* copy encoding info */ cinfo->coder_info.nbit_info.nt = c_info->nbit.nt; cinfo->coder_info.nbit_info.sign_ext = c_info->nbit.sign_ext; cinfo->coder_info.nbit_info.fill_one = c_info->nbit.fill_one; cinfo->coder_info.nbit_info.mask_off = c_info->nbit.start_bit; cinfo->coder_info.nbit_info.mask_len = c_info->nbit.bit_len; if ((cinfo->coder_info.nbit_info.nt_size = DFKNTsize(cinfo->coder_info.nbit_info.nt)) == FAIL) HRETURN_ERROR(DFE_BADNUMTYPE, FAIL); break; case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ if(c_info->skphuff.skp_size<1) HRETURN_ERROR(DFE_BADCODER, FAIL) /* set the coding type and the skipping huffman func. ptrs */ cinfo->coder_type = COMP_CODE_SKPHUFF; cinfo->coder_funcs = cskphuff_funcs; /* copy encoding info */ cinfo->coder_info.skphuff_info.skip_size = c_info->skphuff.skp_size; break; case COMP_CODE_DEFLATE: /* gzip 'deflate' encoding */ /* valid deflate levels are from 0 to 9, this error checking caused the problem in HDF4r1.2 , fixed by Apu Kapadia if(c_info->deflate.level<1 || c_info->deflate.level>9) */ if(c_info->deflate.level<0 || c_info->deflate.level>9) HRETURN_ERROR(DFE_BADCODER, FAIL) /* set the coding type and the gzip 'deflate' func. ptrs */ cinfo->coder_type = COMP_CODE_DEFLATE; cinfo->coder_funcs = cdeflate_funcs; /* copy encoding info */ if(acc_mode&DFACC_WRITE) cinfo->coder_info.deflate_info.deflate_level = c_info->deflate.level; break; case COMP_CODE_SZIP: /* set the coding type */ cinfo->coder_type = COMP_CODE_SZIP; /* when libsz presents, initialize other info - BMR, 08/25/2007 (changed from eliminating this case completely) */ /* completely removed the libsz limitation, we shouldn't need szip library to initialize here - BMR, 10/21/2008 */ /* set the szip func. ptrs */ cinfo->coder_funcs = cszip_funcs; /* copy encoding info */ cinfo->coder_info.szip_info.pixels = c_info->szip.pixels; cinfo->coder_info.szip_info.bits_per_pixel = c_info->szip.bits_per_pixel; cinfo->coder_info.szip_info.pixels_per_block = c_info->szip.pixels_per_block; cinfo->coder_info.szip_info.pixels_per_scanline = c_info->szip.pixels_per_scanline; cinfo->coder_info.szip_info.options_mask = c_info->szip.options_mask; cinfo->coder_info.szip_info.buffer = NULL; cinfo->coder_info.szip_info.buffer_size = 0; cinfo->coder_info.szip_info.offset = 0; cinfo->coder_info.szip_info.szip_state = SZIP_INIT; cinfo->coder_info.szip_info.szip_dirty = SZIP_CLEAN; break; default: HRETURN_ERROR(DFE_BADCODER, FAIL) } /* end switch */ return (SUCCEED); } /* end HCIinit_coder() */ /*-------------------------------------------------------------------------- NAME HCIinit_model -- Set the model function pointers USAGE int32 HCIinit_model(minfo,model_type,m_info) comp_model_info_t *minfo; IN/OUT: pointer to model information to modify comp_model_t model_type; IN: the type of encoding to use model_info *m_info; IN: modeling information RETURNS Return SUCCEED or FAIL DESCRIPTION Sets the modeling function pointers and the model type for a given model type. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIinit_model(int16 acc_mode, comp_model_info_t * minfo, comp_model_t model_type, model_info * m_info) { CONSTR(FUNC, "HCIinit_model"); /* for HERROR */ /* shut compiler up */ acc_mode = acc_mode; m_info = m_info; switch (model_type) { /* determine the type of modeling */ case COMP_MODEL_STDIO: /* standard C stdio modeling */ minfo->model_type = COMP_MODEL_STDIO; /* set model type */ minfo->model_funcs = mstdio_funcs; /* set the stdio func. ptrs */ break; default: HRETURN_ERROR(DFE_BADMODEL, FAIL) } /* end switch */ return (SUCCEED); } /* end HCIinit_model() */ /*-------------------------------------------------------------------------- NAME HCPquery_encode_header -- Query the length of compression header for a memory buffer USAGE int32 HCPquery_encode_header(model_type, model_info, coder_type, coder_info) comp_model_t model_type; IN: the type of modeling to use model_info *m_info; IN: Information needed for the modeling type chosen comp_coder_t coder_type; IN: the type of encoding to use coder_info *c_info; IN: Information needed for the encoding type chosen RETURNS Return the length of the buffer needed to store the compression header on success (>0) or FAIL (-1) DESCRIPTION Determine the compression information length in a memory block. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPquery_encode_header(comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info) { CONSTR(FUNC, "HCPquery_encode_header"); /* for HERROR */ int32 coder_len=2; /* # of bytes to encode coder information (2 minimum) */ int32 model_len=2; /* # of bytes to encode model information (2 minimum) */ int32 ret_value=SUCCEED; /* clear error stack and validate args */ HEclear(); if (m_info==NULL || c_info==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* add any additional information needed for modeling type */ switch (model_type) { default: /* no additional information needed */ break; } /* end switch */ /* add any additional information needed for coding type */ switch (coder_type) { case COMP_CODE_NBIT: /* N-bit coding needs 16 bytes of info */ coder_len+=16; break; case COMP_CODE_SKPHUFF: /* Skipping Huffman coding needs 8 bytes of info */ coder_len+=8; break; case COMP_CODE_DEFLATE: /* Deflation coding stores deflation level */ coder_len+=2; break; case COMP_CODE_SZIP: /* Szip coding stores various szip parameters */ coder_len += 14; break; case COMP_CODE_IMCOMP: /* IMCOMP is no longer supported, can only be inquired */ HRETURN_ERROR(DFE_BADCODER, FAIL); break; default: /* no additional information needed */ break; } /* end switch */ ret_value=model_len+coder_len; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPquery_encode_header() */ /*-------------------------------------------------------------------------- NAME HCPencode_header -- Encode the compression header info to a memory buffer USAGE intn HCPencode_header(model_type, model_info, coder_type, coder_info) void * buf; OUT: encoded compression info header comp_model_t model_type; IN: the type of modeling to use model_info *m_info; IN: Information needed for the modeling type chosen comp_coder_t coder_type; IN: the type of encoding to use coder_info *c_info; IN: Information needed for the encoding type chosen RETURNS Return SUCCEED or FAIL DESCRIPTION Encodes the compression information to a block in memory. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPencode_header(uint8 *p, comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info) { CONSTR(FUNC, "HCPencode_header"); /* for HERROR */ int32 ret_value=SUCCEED; /* clear error stack and validate args */ HEclear(); if (p==NULL || m_info==NULL || c_info==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); UINT16ENCODE(p, (uint16) model_type); /* specify model type */ UINT16ENCODE(p, (uint16) coder_type); /* specify coder type */ /* add any additional information needed for modeling type */ switch (model_type) { default: /* no additional information needed */ break; } /* end switch */ /* add any additional information needed for coding type */ switch (coder_type) { case COMP_CODE_NBIT: /* N-bit coding needs info */ /* specify number-type of N-bit data */ INT32ENCODE(p, c_info->nbit.nt); /* next is the flag to indicate whether to sign extend */ UINT16ENCODE(p, (uint16) c_info->nbit.sign_ext); /* flag to fill with 1's or 0's */ UINT16ENCODE(p, (uint16) c_info->nbit.fill_one); /* the offset of the bits extracted */ INT32ENCODE(p, (int32) c_info->nbit.start_bit); /* the number of bits extracted */ INT32ENCODE(p, (int32) c_info->nbit.bit_len); break; case COMP_CODE_SKPHUFF: /* Skipping Huffman coding needs info */ if(c_info->skphuff.skp_size<1) HRETURN_ERROR(DFE_BADCODER, FAIL) /* specify skipping unit size */ UINT32ENCODE(p, (uint32) c_info->skphuff.skp_size); /* specify # of bytes compressed (not used currently) */ UINT32ENCODE(p, (uint32) c_info->skphuff.skp_size); break; case COMP_CODE_DEFLATE: /* Deflation coding stores deflation level */ /* valid deflate levels are from 0 to 9 if(c_info->deflate.level<1 || c_info->deflate.level>9) */ if(c_info->deflate.level<0 || c_info->deflate.level>9) HRETURN_ERROR(DFE_BADCODER, FAIL) /* specify deflation level */ UINT16ENCODE(p, (uint16) c_info->deflate.level); break; case COMP_CODE_SZIP: /* Szip coding stores various szip parameters */ UINT32ENCODE(p, (uint32) c_info->szip.pixels); UINT32ENCODE(p, (uint32) c_info->szip.pixels_per_scanline); UINT32ENCODE(p, (uint32) (c_info->szip.options_mask | SZ_H4_REV_2)); *p++ = (uint8) c_info->szip.bits_per_pixel; *p++ = (uint8) c_info->szip.pixels_per_block; break; case COMP_CODE_IMCOMP: /* IMCOMP is no longer supported, can only be inquired */ HRETURN_ERROR(DFE_BADCODER, FAIL); break; default: /* no additional information needed */ break; } /* end switch */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPencode_header() */ /*-------------------------------------------------------------------------- NAME HCPdecode_header -- Decode the compression header info from a memory buffer USAGE intn HCPdecode_header(model_type, model_info, coder_type, coder_info) void * buf; IN: encoded compression info header comp_model_t *model_type; OUT: the type of modeling to use model_info *m_info; OUT: Information needed for the modeling type chosen comp_coder_t *coder_type; OUT: the type of encoding to use coder_info *c_info; OUT: Information needed for the encoding type chosen RETURNS Return SUCCEED or FAIL DESCRIPTION Decodes the compression information from a block in memory. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPdecode_header(uint8 *p, comp_model_t *model_type, model_info * m_info, comp_coder_t *coder_type, comp_info * c_info) { CONSTR(FUNC, "HCPdecode_header"); /* for HERROR */ uint16 m_type, c_type; int32 ret_value=SUCCEED; /* clear error stack and validate args */ HEclear(); if (p==NULL || model_type==NULL || m_info==NULL || coder_type==NULL || c_info==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); UINT16DECODE(p, m_type); /* get model type */ *model_type=(comp_model_t)m_type; UINT16DECODE(p, c_type); /* get encoding type */ *coder_type=(comp_coder_t)c_type; /* read any additional information needed for modeling type */ switch (*model_type) { default: /* no additional information needed */ break; } /* end switch */ /* read any additional information needed for coding type */ switch (*coder_type) { case COMP_CODE_NBIT: /* Obtain info for N-bit coding */ { uint16 s_ext; /* temp. var for sign extend */ uint16 f_one; /* temp. var for fill one */ int32 m_off, m_len; /* temp. var for mask offset and len */ /* number-type of N-bit data */ INT32DECODE(p, c_info->nbit.nt); /* next is the flag to indicate whether to sign extend */ UINT16DECODE(p, s_ext); c_info->nbit.sign_ext = (intn) s_ext; /* flag to indicate whether to fill with 1's or 0's */ UINT16DECODE(p, f_one); c_info->nbit.fill_one = (intn) f_one; /* offset of the bits extracted */ INT32DECODE(p, m_off); c_info->nbit.start_bit = (intn) m_off; /* number of bits extracted */ INT32DECODE(p, m_len); c_info->nbit.bit_len = (intn) m_len; } /* end case */ break; case COMP_CODE_SKPHUFF: /* Obtain info for Skipping Huffman coding */ { uint32 skp_size, /* size of skipping unit */ comp_size; /* # of bytes to compress */ /* specify skipping unit size */ UINT32DECODE(p, skp_size); /* specify # of bytes of skipping data to compress */ UINT32DECODE(p, comp_size); /* ignored for now */ c_info->skphuff.skp_size = (intn) skp_size; } /* end case */ break; case COMP_CODE_DEFLATE: /* Obtains deflation level for Deflation coding */ { uint16 level; /* deflation level */ /* specify deflation level */ UINT16DECODE(p, level); c_info->deflate.level = (intn) level; } /* end case */ break; case COMP_CODE_SZIP: /* Obtains szip parameters for Szip coding */ { UINT32DECODE(p, c_info->szip.pixels); UINT32DECODE(p, c_info->szip.pixels_per_scanline); UINT32DECODE(p, c_info->szip.options_mask); c_info->szip.bits_per_pixel = *p++; c_info->szip.pixels_per_block = *p++; } break; default: /* no additional information needed */ /* this includes RLE, JPEG, and IMCOMP */ break; } /* end switch */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPdecode_header() */ /*-------------------------------------------------------------------------- NAME HCIwrite_header -- Write the compression header info to a file USAGE int32 HCIwrite_header(access_rec,info,special_tag,ref) atom_t file_id; IN: File ID of the file to write the header to compinfo_t *info; IN: ptr the compression information uint16 special_tag,ref; IN: the tag/ref of the compressed element coder_info *c_info; IN: Information needed for the encoding type chosen model_info *m_info; IN: Information needed for the modeling type chosen RETURNS Return SUCCEED or FAIL DESCRIPTION Writes the compression information to a new block in the HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIwrite_header(atom_t file_id, compinfo_t * info, uint16 special_tag, uint16 ref, comp_info *c_info, model_info *m_info) { CONSTR(FUNC, "HCIwrite_header"); /* for HERROR */ int32 dd_aid; /* AID for writing the special info */ uint8 *p; /* pointer to the temporary buffer */ uint8 local_ptbuf[32]; int32 header_len; /* how many bytes the header is */ int32 ret_value=SUCCEED; /* write special element info to the file */ p = local_ptbuf; INT16ENCODE(p, SPECIAL_COMP); /* specify special tag type */ UINT16ENCODE(p, COMP_HEADER_VERSION); /* specify header version */ INT32ENCODE(p, info->length); /* write length of un-comp. data */ UINT16ENCODE(p, (uint16) info->comp_ref); /* specify ref # of comp. data */ #ifdef OLD_WAY UINT16ENCODE(p, (uint16) info->minfo.model_type); /* specify model type */ UINT16ENCODE(p, (uint16) info->cinfo.coder_type); /* specify coder type */ /* write any additional information needed for modeling type */ switch (info->minfo.model_type) { default: /* no additional information needed */ break; } /* end switch */ /* write any additional information needed for coding type */ switch (info->cinfo.coder_type) { case COMP_CODE_NBIT: /* N-bit coding needs info */ /* specify number-type of N-bit data */ INT32ENCODE(p, info->cinfo.coder_info.nbit_info.nt); /* next is the flag to indicate whether to sign extend */ UINT16ENCODE(p, (uint16) info->cinfo.coder_info.nbit_info.sign_ext); /* flag to fill with 1's or 0's */ UINT16ENCODE(p, (uint16) info->cinfo.coder_info.nbit_info.fill_one); /* the offset of the bits extracted */ INT32ENCODE(p, (int32) info->cinfo.coder_info.nbit_info.mask_off); /* the number of bits extracted */ INT32ENCODE(p, (int32) info->cinfo.coder_info.nbit_info.mask_len); break; case COMP_CODE_SKPHUFF: /* Skipping Huffman coding needs info */ /* specify skipping unit size */ UINT32ENCODE(p, (uint32) info->cinfo.coder_info.skphuff_info.skip_size); /* specify # of bytes compressed (not used currently) */ UINT32ENCODE(p, (uint32) info->cinfo.coder_info.skphuff_info.skip_size); break; case COMP_CODE_SZIP: INT32ENCODE(p, (int32) c_info->szip.pixels); INT32ENCODE(p, (int32) c_info->szip.pixels_per_scanline); INT32ENCODE(p, (int32) c_info->szip.options_mask); INT32ENCODE(p, (int32) c_info->szip.bits_per_pixel); INT32ENCODE(p, (int32) c_info->szip.pixels_per_block); break; case COMP_CODE_IMCOMP: /* IMCOMP is no longer supported, can only be inquired */ HRETURN_ERROR(DFE_BADCODER, FAIL); break; default: /* no additional information needed */ break; } /* end switch */ #else /* OLD_WAY */ if((header_len=HCPquery_encode_header(info->minfo.model_type, m_info,info->cinfo.coder_type,c_info))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(HCPencode_header(p,info->minfo.model_type,m_info, info->cinfo.coder_type,c_info)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); p+=header_len; #endif /* OLD_WAY */ /* write the special info structure to fill */ if((dd_aid=Hstartaccess(file_id,special_tag,ref,DFACC_ALL))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hwrite(dd_aid, p-local_ptbuf, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCIwrite_header() */ /*-------------------------------------------------------------------------- NAME HCIread_header -- Read the compression header info from a file USAGE int32 HCIread_header(file_rec,access_rec,info,comp_info,model_info) accrec_t *access_rec; IN: ptr to the access element record compinfo_t *info; IN: ptr the compression information comp_info *comp_info; IN/OUT: ptr to encoding info model_info *model_info; IN/OUT: ptr to modeling info RETURNS Return SUCCEED or FAIL DESCRIPTION Parses the compression header from a data element in an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIread_header(accrec_t * access_rec, compinfo_t * info, comp_info * c_info, model_info * m_info) { CONSTR(FUNC, "HCIread_header"); /* for HERROR */ uint16 header_version; /* version of the compression header */ uint8 *p; /* pointer to the temporary buffer */ uint8 *local_ptbuf; int32 ret_value=SUCCEED; /* shut compiler up */ m_info = m_info; /* Get the compression header (description record) */ HPread_drec(access_rec->file_id, access_rec->ddid, &local_ptbuf); /* Extract info */ p = local_ptbuf+2; UINT16DECODE(p, header_version); /* get compression version */ INT32DECODE(p, info->length); /* get _uncompressed_ data length */ UINT16DECODE(p, info->comp_ref); /* get ref # of comp. data */ /* Decode the compression header */ if(HCPdecode_header(p,&(info->minfo.model_type),m_info,&(info->cinfo.coder_type),c_info)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); HDfree(local_ptbuf); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCIread_header() */ /*-------------------------------------------------------------------------- NAME HCcreate -- Create a compressed data element USAGE int32 HCcreate(id,tag,ref,model_type,coder_type) int32 id; IN: the file id to create the data in uint16 tag,ref; IN: the tag/ref pair which is to be compressed comp_model_t model_type; IN: the type of modeling to use model_info *m_info; IN: Information needed for the modeling type chosen comp_coder_t coder_type; IN: the type of encoding to use coder_info *c_info; IN: Information needed for the encoding type chosen RETURNS Return an AID to the newly created compressed element, FAIL on error. DESCRIPTION Create a compressed data element. If that data element already exists, we will compress that data element if it is currently un-compresed, or return FAIL if it is already compressed. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCcreate(int32 file_id, uint16 tag, uint16 ref, comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info) { CONSTR(FUNC, "HCcreate"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL;/* access element record */ compinfo_t *info=NULL; /* special element information */ atom_t data_id=FAIL; /* dd ID of existing regular element */ int32 data_len; /* length of the data we are checking */ uint16 special_tag; /* special version of tag */ void * buf = NULL; /* temporary buffer */ int32 ret_value=SUCCEED; /* clear error stack and validate args */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec) || SPECIALTAG(tag) || (special_tag = MKSPECIALTAG(tag)) == DFTAG_NULL) HRETURN_ERROR(DFE_ARGS, FAIL); /* chech for access permission */ if (!(file_rec->access & DFACC_WRITE)) HRETURN_ERROR(DFE_DENIED, FAIL); /* get a slot in the access records table */ if (NULL == (access_rec = HIget_access_rec())) HRETURN_ERROR(DFE_TOOMANY, FAIL); /* search for identical dd */ if ((data_id=HTPselect(file_rec,tag,ref))!=FAIL) { /* Check if the element is already special */ if (HTPis_special(data_id)==TRUE) { if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); HGOTO_ERROR(DFE_CANTMOD, FAIL); } /* end if */ /* get the info for the dataset */ if(HTPinquire(data_id,NULL,NULL,NULL,&data_len)==FAIL) { if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ if ((buf = HDmalloc((uint32) data_len)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (Hgetelement(file_id, tag, ref, buf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Delete the old DD from the file and memory hash table */ if (FAIL == HTPdelete(data_id)) HGOTO_ERROR(DFE_CANTDELDD, FAIL); } /* end if */ /* set up the special element information and write it to file */ info = (compinfo_t *) HDmalloc(sizeof(compinfo_t)); access_rec->special_info = info; if (info == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); info->length = (data_id!=FAIL) ? data_len : COMP_START_BLOCK; /* set up compressed special info structure */ info->attached = 1; info->comp_ref = Htagnewref(file_id,DFTAG_COMPRESSED); /* get the new reference # */ if(HCIinit_model(DFACC_RDWR, &(info->minfo), model_type, m_info)==FAIL) HGOTO_ERROR(DFE_MINIT,FAIL); if(HCIinit_coder(DFACC_RDWR, &(info->cinfo), coder_type, c_info)==FAIL) HGOTO_ERROR(DFE_CINIT,FAIL); if (HCIwrite_header(file_id, info, special_tag, ref, c_info, m_info) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* update access record and file record */ if((access_rec->ddid=HTPselect(file_rec,tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); access_rec->special_func = &comp_funcs; access_rec->special = SPECIAL_COMP; access_rec->posn = 0; access_rec->access = DFACC_RDWR; access_rec->file_id = file_id; access_rec->appendable = FALSE; /* start data as non-appendable */ file_rec->attach++; /* propagate the initialization down to the modeling layer */ if ((*(info->minfo.model_funcs.stwrite))(access_rec) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); /* compress the old DD and get rid of it, if there was one */ if (data_id != FAIL) { /* write the data through to the compression layer */ if (HCPwrite(access_rec, data_len, buf) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); /* seek back to the beginning of the data through to the compression layer */ if (HCPseek(access_rec, 0, DF_START) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); } /* end if */ ret_value=HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); if(info!=NULL) HDfree(info); } /* end if */ /* Normal function cleanup */ if (buf != NULL) HDfree(buf); return ret_value; } /* end HCcreate() */ /*-------------------------------------------------------------------------- NAME HCPgetcompress -- Retrieves compression information of an element USAGE intn HCPgetcompress(aid, coder_type, c_info) int32 aid; IN: access record ID comp_coder_t* coder_type; OUT: the type of compression comp_info* c_info; OUT: ptr to compression information structure for storing the retrieved info RETURNS SUCCEED/FAIL DESCRIPTION This routine retrieves the compression type and the compression information of the element, identified by 'aid'. The routine is used by GRgetcompinfo and SDgetcompinfo at this time. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG July 2001: Added to fix bug #307 - BMR Dec. 2004: Changed name to HCPgetcompress, to be consistent with other practice. REM --------------------------------------------------------------------------*/ intn HCPgetcompress(int32 file_id, uint16 data_tag, uint16 data_ref, comp_coder_t* comp_type, /* OUT: compression type */ comp_info* c_info) /* OUT: retrieved compression info */ { CONSTR(FUNC, "HCPgetcompress"); /* for HGOTO_ERROR */ int32 aid=0, status; accrec_t* access_rec=NULL;/* access element record */ compinfo_t* info=NULL; /* compressed element information */ model_info m_info; /* modeling information - dummy */ int32 ret_value=SUCCEED; /* clear error stack */ HEclear(); /* start read access on the access record of the data element, which is being inquired for its compression information */ aid = Hstartread(file_id, data_tag, data_ref); /* get the access_rec pointer */ access_rec = HAatom_object(aid); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if the element is compressed, get the compression info as requested*/ if (access_rec->special == SPECIAL_COMP) { info = (compinfo_t *) access_rec->special_info; if (info == NULL) HGOTO_ERROR(DFE_COMPINFO, FAIL); status = HCIread_header(access_rec, info, c_info, &m_info); if (status == FAIL) HGOTO_ERROR(DFE_COMPINFO, FAIL); /* get the compression type */ *comp_type = info->cinfo.coder_type; } /* end if element is compressed */ /* if the element is chunked, call HMCgetcompress to get the compression info as appropriate */ else if (access_rec->special == SPECIAL_CHUNKED) { status = HMCgetcompress(access_rec, comp_type, c_info); if (status == FAIL) HGOTO_ERROR(DFE_COMPINFO, FAIL); } /* flag the error when attempting to get compression info on a non-compressed element */ else /* EIP 9/16/03 Fail but return compression type COMP_CODE_NONE instead of junk in this case. */ { /*Mac OSX screams here (comp_coder_t)*comp_type = COMP_CODE_NONE; */ *comp_type = COMP_CODE_NONE; HGOTO_ERROR(DFE_ARGS, FAIL); } /* end access to the aid appropriately */ if (Hendaccess(aid)== FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ /* end access to the aid if it's been accessed */ if (aid != 0) if (Hendaccess(aid)== FAIL) HERROR(DFE_CANTENDACCESS); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HCPgetcompress */ /*-------------------------------------------------------------------------- NAME HCPgetcompinfo -- Retrieves compression information of an element USAGE intn HCPgetcompinfo(aid, coder_type, c_info) int32 aid; IN: access record ID comp_coder_t* coder_type; OUT: the type of compression comp_info* c_info; OUT: ptr to compression information structure for storing the retrieved info RETURNS SUCCEED/FAIL DESCRIPTION This routine retrieves the compression type and the compression information of the element, identified by 'aid'. The routine is used by GRgetcompinfo and SDgetcompinfo at this time. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG July 2001: Added to fix bug #307 - BMR Dec. 2004: Changed name to HCPgetcompress, to be consistent with other practice. REM Apr. 2005: HCPgetcompinfo was added to fix bugzilla #130 and may replace HCPgetcompress in the future because HCPgetcompress did not behave correctly. The revision logs above are carried over from HCPgetcompress for the records. --------------------------------------------------------------------------*/ intn HCPgetcompinfo(int32 file_id, uint16 data_tag, uint16 data_ref, comp_coder_t* comp_type, /* OUT: compression type */ comp_info* c_info) /* OUT: retrieved compression info */ { CONSTR(FUNC, "HCPgetcompinfo"); /* for HGOTO_ERROR */ int32 aid=0, status; accrec_t* access_rec=NULL; /* access element record */ compinfo_t* info=NULL; /* compressed element information */ comp_coder_t temp_coder=COMP_CODE_NONE; model_info m_info; /* modeling information - dummy */ intn ret_value=SUCCEED; /* clear error stack */ HEclear(); /* check the output arguments */ if (comp_type == NULL || c_info == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* start read access on the access record of the data element, which is being inquired for its compression information */ aid = Hstartread(file_id, data_tag, data_ref); /* get the access_rec pointer */ access_rec = HAatom_object(aid); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if the element is compressed, get the compression info as requested */ if (access_rec->special == SPECIAL_COMP) { info = (compinfo_t *) access_rec->special_info; if (info == NULL) HGOTO_ERROR(DFE_COMPINFO, FAIL); status = HCIread_header(access_rec, info, c_info, &m_info); if (status == FAIL) HGOTO_ERROR(DFE_COMPINFO, FAIL); /* get the compression type */ temp_coder = info->cinfo.coder_type; } /* end if element is compressed */ /* if the element is chunked, call HMCgetcompress to get the compression info as appropriate */ else if (access_rec->special == SPECIAL_CHUNKED) { status = HMCgetcompress(access_rec, &temp_coder, c_info); if (status == FAIL) HGOTO_ERROR(DFE_COMPINFO, FAIL); } /* return COMP_CODE_NONE for a non-compressed element */ /* Note: SPECIAL_COMPRAS may need special handling */ else if (access_rec->special == SPECIAL_LINKED || access_rec->special == SPECIAL_EXT || access_rec->special == SPECIAL_VLINKED || access_rec->special == SPECIAL_BUFFERED || access_rec->special == SPECIAL_COMPRAS || access_rec->special == 0) { temp_coder = COMP_CODE_NONE; } /* flag the error when access_rec->special is not something valid */ else { temp_coder = COMP_CODE_INVALID; HGOTO_ERROR(DFE_ARGS, FAIL); } /* end access to the aid appropriately */ if (Hendaccess(aid)== FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); if (comp_type != NULL) *comp_type = temp_coder; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* end access to the aid if it's been accessed */ if (aid != 0) if (Hendaccess(aid)== FAIL) HERROR(DFE_CANTENDACCESS); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HCPgetcompinfo */ /*-------------------------------------------------------------------------- NAME HCIstaccess -- Start accessing a compressed data element. USAGE int32 HCIstaccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns an AID or FAIL DESCRIPTION Common code called by HCIstread and HCIstwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIstaccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIstaccess"); /* for HERROR */ compinfo_t *info=NULL; /* special element information */ filerec_t *file_rec; /* file record */ comp_info c_info; /* encoding information from the header */ model_info m_info; /* modeling information from the header */ int32 ret_value=SUCCEED; /* get file record and validate */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec) || !(file_rec->access & acc_mode)) HRETURN_ERROR(DFE_ARGS, FAIL); /* intialize the access record */ access_rec->special = SPECIAL_COMP; access_rec->posn = 0; access_rec->access = (uint32)(acc_mode|DFACC_READ); /* get the special info record */ access_rec->special_info = HDmalloc(sizeof(compinfo_t)); info = (compinfo_t *) access_rec->special_info; if (info == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (HCIread_header(access_rec, info, &c_info, &m_info) == FAIL) HGOTO_ERROR(DFE_COMPINFO, FAIL); info->attached = 1; if (HCIinit_model(acc_mode,&(info->minfo), info->minfo.model_type, &m_info) == FAIL) HRETURN_ERROR(DFE_MINIT, FAIL); if (HCIinit_coder(acc_mode,&(info->cinfo), info->cinfo.coder_type, &c_info) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); file_rec->attach++; ret_value=HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(info!=NULL) HDfree(info); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCIstaccess() */ /*-------------------------------------------------------------------------- NAME HCPstread -- Start read access on a compressed data element. USAGE int32 HCPstread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns an AID or FAIL DESCRIPTION Start read access on a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPstread(accrec_t * access_rec) { CONSTR(FUNC, "HCPstread"); /* for HERROR */ compinfo_t *info; /* information on the special element */ int32 ret_value; /* AID to return */ if ((ret_value = HCIstaccess(access_rec, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_DENIED, FAIL); info = (compinfo_t *) access_rec->special_info; if ((*(info->minfo.model_funcs.stread)) (access_rec) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPstread() */ /*-------------------------------------------------------------------------- NAME HCPstwrite -- Start write access on a compressed data element. USAGE int32 HCPstwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns an AID or FAIL DESCRIPTION Start write access on a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPstwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPstwrite"); /* for HERROR */ compinfo_t *info; /* information on the special element */ int32 ret_value; /* AID to return */ if ((ret_value = HCIstaccess(access_rec, DFACC_WRITE)) == FAIL) HGOTO_ERROR(DFE_DENIED, FAIL); info = (compinfo_t *) access_rec->special_info; if ((*(info->minfo.model_funcs.stwrite)) (access_rec) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPstwrite() */ /*-------------------------------------------------------------------------- NAME HCPseek -- Seek to offset within the data element USAGE int32 HCPseek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPseek(accrec_t * access_rec, int32 offset, intn origin) { CONSTR(FUNC, "HCPseek"); /* for HERROR */ compinfo_t *info; /* information on the special element */ int32 ret_value; /* Adjust offset according to origin. There is no upper bound to posn */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += ((compinfo_t *) (access_rec->special_info))->length; if (offset < 0) HGOTO_ERROR(DFE_RANGE, FAIL); info = (compinfo_t *) access_rec->special_info; if ((ret_value = (*(info->minfo.model_funcs.seek)) (access_rec, offset, origin)) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); /* set the offset */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPseek() */ /*-------------------------------------------------------------------------- NAME HCPread -- Read in a portion of data from a compressed data element. USAGE int32 HCPread(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPread(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPread"); /* for HERROR */ compinfo_t *info; /* information on the special element */ int32 ret_value; /* validate length */ if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); info = (compinfo_t *) access_rec->special_info; /* adjust length if it falls off the end of the element */ if (length == 0) length = info->length - access_rec->posn; else if (length < 0 || access_rec->posn + length > info->length) HGOTO_ERROR(DFE_RANGE, FAIL); if ((*(info->minfo.model_funcs.read))(access_rec, length, data) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); /* adjust access position */ access_rec->posn += length; ret_value=length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPread() */ /*-------------------------------------------------------------------------- NAME HCPwrite -- Write out a portion of data from a compressed data element. USAGE int32 HCPwrite(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPwrite(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPwrite"); /* for HERROR */ compinfo_t *info; /* information on the special element */ uint8 local_ptbuf[4]; uint8 *p = local_ptbuf; /* temp buffer ptr */ filerec_t *file_rec; /* file record */ int32 ret_value; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* validate length */ if (length < 0) HRETURN_ERROR(DFE_RANGE, FAIL); info = (compinfo_t *) access_rec->special_info; if ((*(info->minfo.model_funcs.write)) (access_rec, length, data) == FAIL) HGOTO_ERROR(DFE_MODEL, FAIL); /* update access record, and information about special element */ access_rec->posn += length; if (access_rec->posn > info->length) { int32 data_off; /* offset of the data we are checking */ /* get the info for the dataset */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); info->length = access_rec->posn; INT32ENCODE(p, info->length); if (HPseek(file_rec, data_off + 4) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* re-write un-comp. len */ if (HP_write(file_rec, local_ptbuf, 4) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end if */ ret_value=length; /* return length of bytes written */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPwrite() */ /*-------------------------------------------------------------------------- NAME HCPinquire -- Inquire information about the access record and data element. USAGE int32 HCPinquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPinquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HCPinquire"); /* for HERROR */ compinfo_t *info = /* special information record */ (compinfo_t *) access_rec->special_info; uint16 data_tag,data_ref; /* tag/ref of the data we are checking */ int32 data_off; /* offset of the data we are checking */ /* get the info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,NULL)==FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id != NULL) *pfile_id = access_rec->file_id; if (ptag != NULL) *ptag = data_tag; if (pref != NULL) *pref = data_ref; if (plength != NULL) *plength = info->length; if (poffset != NULL) *poffset = data_off; if (pposn != NULL) *pposn = access_rec->posn; if (paccess != NULL) *paccess = (int16)access_rec->access; if (pspecial != NULL) *pspecial = (int16)access_rec->special; return (SUCCEED); } /* end HCPinquire() */ /*-------------------------------------------------------------------------- NAME HCPendaccess -- Close the compressed data element and free the AID USAGE intn HCPendaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free the AID. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPendaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPendaccess"); /* for HERROR */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* validate file record */ if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* close the file pointed to by this access rec */ HCPcloseAID(access_rec); /* update file and access records */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* detach from the file */ file_rec->attach--; /* free the access record */ HIrelease_accrec_node(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HCPendaccess() */ /*-------------------------------------------------------------------------- NAME HCPcloseAID -- Get rid of the compressed data element data structures USAGE int32 HCPcloseAID(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Get rid of the compressed data element internal data structures GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcloseAID(accrec_t * access_rec) { CONSTR(FUNC, "HCPcloseAID"); /* for HERROR */ compinfo_t *info; /* special information record */ int32 ret=SUCCEED; info = (compinfo_t *) access_rec->special_info; if ((ret = (*(info->minfo.model_funcs.endaccess)) (access_rec)) == FAIL) HRETURN_ERROR(DFE_MODEL, FAIL); /* Free the compression information */ /* BMR - reset special_info to NULL after memory is freed; problem shown by the failure when running hdp list with a large file on PC - 12/6/98 */ if (--(info->attached) == 0) { HDfree(info); access_rec->special_info = NULL; } return (ret); } /* end HCPcloseAID() */ /* ------------------------------- HCPinfo -------------------------------- */ /* NAME HCPinfo -- return info about a compressed element USAGE int32 HCPinfo(access_rec, info_block) accrec_t * access_rec; IN: access record of access element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given compressed element. Info_block is assumed to be non-NULL. ---------------------------------------------------------------------------*/ int32 HCPinfo(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HCPinfo"); compinfo_t *info = /* special information record */ (compinfo_t *) access_rec->special_info; /* validate access record */ if (access_rec->special != SPECIAL_COMP) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_block */ info_block->key = SPECIAL_COMP; info_block->comp_type = (int32)info->cinfo.coder_type; info_block->model_type = (int32)info->minfo.model_type; info_block->comp_size = Hlength(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); return SUCCEED; } /* HCPinfo */ /* ------------------------------- HCPgetinfo ----------------------------- */ /* NAME HCget_config_info -- return info about configuration of a compression method USAGE intn HCget_config_info( comp_coder_t coder_type, uint32* compression_config_info) comp_coder_t coder_type; IN: the compression type queried compression_config_info; OUT: flags to indiat compression status 0 -- not enabled COMP_DECODER_ENABLED - decoding enabled COMP_ENCODER_ENABLED - encoding enabled RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given compresion method. Currently, reports if encoding and/or decoding are available. SZIP is the only method that varies in the current versions. ---------------------------------------------------------------------------*/ intn HCget_config_info( comp_coder_t coder_type, /* IN: compression type */ uint32* compression_config_info) { CONSTR(FUNC, "HCget_config_info"); *compression_config_info = 0; switch (coder_type) { case COMP_CODE_IMCOMP: /* IMCOMP no longer supported */ *compression_config_info = 0; break; /* This block doesn't look intentional, for there is no "break;" before case COMP_CODE_RLE:, which means *compression_config_info was reassigned to something else even though it is "case COMP_CODE_NONE:" When I added "break;" for "case COMP_CODE_NONE:", some tests failed. It needs to be checked out.-BMR, Jul 16, 2012*/ case COMP_CODE_NONE: /* "none" (i.e. no) encoding */ *compression_config_info = 0; case COMP_CODE_RLE: /* Run-length encoding */ case COMP_CODE_NBIT: /* N-bit encoding */ case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ *compression_config_info = COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED; break; case COMP_CODE_JPEG: /* jpeg may be optional */ *compression_config_info = COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED; break; case COMP_CODE_DEFLATE: /* gzip 'deflate' encoding, maybe optional */ *compression_config_info = COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED; break; case COMP_CODE_SZIP: #ifdef H4_HAVE_LIBSZ if (SZ_encoder_enabled()) { *compression_config_info = COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED; } else { *compression_config_info = COMP_DECODER_ENABLED; } #else *compression_config_info = 0; #endif /* H4_HAVE_LIBSZ */ break; default: *compression_config_info = 0; HRETURN_ERROR(DFE_BADCODER, FAIL) } return SUCCEED; } /*-------------------------------------------------------------------------- NAME HCPgetcomptype -- Retrieves compression type of an element USAGE intn HCPgetcomptype(aid, coder_type) int32 aid; IN: access record ID comp_coder_t* coder_type; OUT: the type of compression RETURNS SUCCEED/FAIL DESCRIPTION This routine retrieves the compression type of the element, identified by 'aid'. It is very similar to HCPgetcompinfo except that it only retrieves the compression type and not the compression information. The routine is used by GRgetcomptype and SDgetcomptype. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG Dec. 2007: Added so that applications can get the compression method only. The immediate intention is to avoid the need for external libraries to be present when only compression type is desired and not compression information. -BMR --------------------------------------------------------------------------*/ intn HCPgetcomptype(int32 file_id, uint16 data_tag, uint16 data_ref, /* IN: tag/ref of element */ comp_coder_t* comp_type) /* OUT: compression type */ { CONSTR(FUNC, "HCPgetcomptype"); /* for HGOTO_ERROR */ uint16 ctag, cref; /* tag/ref for the special info header object */ int32 data_id=FAIL; /* temporary AID for header info */ int32 temp_aid=FAIL; /* temporary AID for header info */ int32 data_len; /* offset of the data we are checking */ uint8 *p; /* pointers to the temporary buffer */ uint8 *local_ptbuf=NULL; /* temporary buffer */ uint16 sp_tag; /* special tag */ uint16 c_type; /* compression type */ filerec_t *file_rec; /* file record */ intn ret_value=SUCCEED; /* clear error stack */ HEclear(); /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get access element from dataset's tag/ref */ if ((data_id=HTPselect(file_rec, data_tag, data_ref))!=FAIL) { /* get the info for the dataset */ if(HTPinquire(data_id,&ctag,&cref,NULL,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* if element is not special, return COMP_CODE_NONE */ if (!SPECIALTAG(ctag)) { *comp_type = COMP_CODE_NONE; HGOTO_DONE(SUCCEED); } /* element is special, proceed with reading special info header */ if((local_ptbuf=(uint8 *)HDmalloc(data_len))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Get the special info header */ if ((temp_aid=Hstartaccess(file_id,MKSPECIALTAG(ctag),cref,DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if (Hread(temp_aid,2,local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Get special tag */ p = local_ptbuf; UINT16DECODE(p, sp_tag); /* If it is a compressed element, move forward until compression coder and get it */ switch (sp_tag) { case SPECIAL_COMP: if (Hread(temp_aid,12,local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Skip comp version, length, ref#, and model type */ p = local_ptbuf + 2 + 4 + 2 + 2; UINT16DECODE(p, c_type); /* get encoding type */ *comp_type=(comp_coder_t)c_type; break; /* If element is chunked, hand over to the chunk interface to check if it is compressed and get the type */ case SPECIAL_CHUNKED: if (HMCgetcomptype(temp_aid, comp_type)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); break; /* return COMP_CODE_NONE for a non-compressed element */ /* Developer's Note: SPECIAL_COMPRAS may need special handling */ case SPECIAL_LINKED: case SPECIAL_EXT: case SPECIAL_VLINKED: case SPECIAL_BUFFERED: case SPECIAL_COMPRAS: case 0: *comp_type = COMP_CODE_NONE; break; /* flag the error when special tag is not something valid */ default: *comp_type = COMP_CODE_INVALID; HGOTO_ERROR(DFE_ARGS, FAIL); } } else /* no special element */ { *comp_type = COMP_CODE_NONE; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* end access to the aid's if they've been accessed */ if (temp_aid != FAIL) if (Hendaccess(temp_aid)== FAIL) HERROR(DFE_CANTENDACCESS); if (data_id != FAIL) if (HTPendaccess(data_id)== FAIL) HERROR(DFE_CANTENDACCESS); /* release allocated memory */ if (local_ptbuf != NULL) HDfree(local_ptbuf); /* Normal function cleanup */ return ret_value; } /* HCPgetcomptype */ /*-------------------------------------------------------------------------- NAME HCPgetdatasize -- Retrieves the sizes of original and compressed data. USAGE int32 HCPgetdatasize(file_id, data_tag, data_ref, comp_size, orig_size) int32 file_id; IN: file id uint16 data_tag; IN: tag of the element uint16 data_ref; IN: ref of element int32* comp_size; OUT: size of compressed data int32* orig_size; OUT: size of non-compressed data RETURNS SUCCEED/FAIL DESCRIPTION This routine gets access to the element pointed to by the dataset's tag/ref pair, then proceeds as followed: - If the element is not special, HCPgetdatasize will use Hlength to get the length of the data then return. - If the element is compressed, HCPgetdatasize will read the element's special header and decode it for the uncompressed data length and the compressed data ref#, then use Hlength to get the length of the compressed data. - If the element is chunked, HCPgetdatasize will let the chunking layer retrieve the sizes (HMCgetdatasize.) GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPgetdatasize(int32 file_id, uint16 data_tag, uint16 data_ref, /* IN: tag/ref of element */ int32* comp_size, /* OUT - size of compressed data */ int32* orig_size) /* OUT - size of non-compressed data */ { CONSTR(FUNC, "HCPgetdatasize"); /* for HGOTO_ERROR */ uint8 *local_ptbuf=NULL, *p; uint16 sp_tag; /* special tag */ uint16 comp_ref = 0; atom_t data_id = FAIL; /* dd ID of existing regular element */ int32 len = 0; filerec_t *file_rec; /* file record */ intn ret_value=SUCCEED; /* clear error stack */ HEclear(); /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get access element from dataset's tag/ref */ if ((data_id=HTPselect(file_rec, data_tag, data_ref))!=FAIL) { /* if the element is not special, that means dataset's tag/ref specifies the actual data that was written to the dataset, so we don't need to check further */ if (HTPis_special(data_id)==FALSE) { if ((len = Hlength(file_id, data_tag, data_ref)) == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); *orig_size = *comp_size = len; } /* if the element is special, get the special info header and decode for the uncompressed data length and the compressed data ref#, which will be used with DFTAG_COMPRESSED to get the compressed data len */ else { int32 rec_len=0; /* Get the compression header (description record) */ rec_len = HPread_drec(file_id, data_id, &local_ptbuf); if (rec_len <= 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get special tag */ p = local_ptbuf; INT16DECODE(p, sp_tag); /* verify that it is a compressed element, then get the data len */ if (sp_tag == SPECIAL_COMP) { /* skip 2byte header_version */ p = p + 2; INT32DECODE(p, len); /* get _uncompressed_ data length */ *orig_size = len; /* set original data size */ /* if no data written, set compressed data size too */ if (len == 0) { *comp_size = len; } /* Data has been written, get compressed data size */ else { /* get ref# of compressed data */ UINT16DECODE(p, comp_ref); if ((len = Hlength(file_id, DFTAG_COMPRESSED, comp_ref)) == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); *comp_size = len; /* set compressed data size */ } /* data written */ } /* element is compressed */ /* if it is a chunked element, hand the task over to the chunking layer. */ else if (sp_tag == SPECIAL_CHUNKED) { if (HMCgetdatasize(file_id, p, comp_size, orig_size)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* unlimited dimension falls in here */ else if (sp_tag == SPECIAL_LINKED) { INT32DECODE(p, len); /* get total data length */ *orig_size = *comp_size = len; /* set data sizes */ } } /* else, data_id is special */ /* end access to the aid */ if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if data_id != FAIL */ else /* HTPselect failed */ HGOTO_ERROR(DFE_CANTACCESS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if (local_ptbuf != NULL) HDfree(local_ptbuf); return ret_value; } /* HCPgetdatasize */ libhdf4-4.2.10/HDF_ALT/hdf/src/.indent.pro0000644000000000000000000000030712421456623014517 0ustar -bap -sob -l78 -c1 -cp8 -bl -nce -cli4 -ss -npcs -di12 -nbc -psl -i4 -ts4 -lp -nip -lps -T uint8 -T int8 -T uint16 -T int16 -T uint32 -T int32 -T intn -T uintn -T float32 -T float64 -T VOIDP -T dd_t libhdf4-4.2.10/HDF_ALT/hdf/src/vattr.h0000644000000000000000000000246212421456623013753 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $ " #endif /*********************************************************** * vattr.h - vdata/vgroup attribute interface * *********************************************************** */ /* $Id: vattr.h 4932 2007-09-07 17:17:23Z bmribler $ */ #ifndef _VATTR_H #define _VATTR_H #include "hdf.h" #include "vg.h" #endif libhdf4-4.2.10/HDF_ALT/hdf/src/cnone.c0000644000000000000000000002466512421456623013721 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: cnone.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE cnone.c HDF none encoding I/O routines REMARKS These routines are only included for completeness and are not actually expected to be used. DESIGN EXPORTED ROUTINES None of these routines are designed to be called by other users except for the modeling layer of the compression routines. AUTHOR Quincey Koziol MODIFICATION HISTORY 4/25/94 Starting writing specs & coding prototype. */ /* General HDF includes */ #include "hdf.h" #define CNONE_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIcnone_staccess (accrec_t * access_rec, int16 acc_mode); /*-------------------------------------------------------------------------- NAME HCIcnone_staccess -- Start accessing a RLE compressed data element. USAGE int32 HCIcnone_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcnone_stread and HCIcnone_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnone_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcnone_staccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (acc_mode == DFACC_READ) info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else info->aid = Hstartwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, info->length); if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); if ((acc_mode&DFACC_WRITE) && Happendable(info->aid) == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); return (SUCCEED); } /* end HCIcnone_staccess() */ /*-------------------------------------------------------------------------- NAME HCPcnone_stread -- start read access for compressed file USAGE int32 HCPcnone_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using no compression. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnone_stread"); int32 ret; if ((ret = HCIcnone_staccess(access_rec, DFACC_READ)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcnone_stread() */ /*-------------------------------------------------------------------------- NAME HCPcnone_stwrite -- start write access for compressed file USAGE int32 HCPcnone_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using no compression. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnone_stwrite"); int32 ret; if ((ret = HCIcnone_staccess(access_rec, DFACC_WRITE)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcnone_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcnone_seek -- Seek to offset within the data element USAGE int32 HCPcnone_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcnone_seek"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (Hseek(info->aid, offset, origin) == FAIL) HRETURN_ERROR(DFE_CSEEK, FAIL); return (SUCCEED); } /* HCPcnone_seek() */ /*-------------------------------------------------------------------------- NAME HCPcnone_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcnone_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a RLE compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcnone_read"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (Hread(info->aid, length, data) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return (length); } /* HCPcnone_read() */ /*-------------------------------------------------------------------------- NAME HCPcnone_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPwrite(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a data element (w/ no compression). GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcnone_write"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (Hwrite(info->aid, length, data) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); return (length); } /* HCPcnone_write() */ /*-------------------------------------------------------------------------- NAME HCPcnone_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcnone_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnone_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcnone_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcnone_endaccess -- Close the compressed data element USAGE int32 HCPcnone_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free modelling info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcnone_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnone_endaccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; /* close the compressed data AID */ if (Hendaccess(info->aid) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); return (SUCCEED); } /* HCPcnone_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfgr.c0000644000000000000000000015753612421456623013545 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfgr.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfgr.c * Purpose: read and write general raster images * Invokes: df.c, dfkit.c, dfcomp.c, dfgroup.c, dfgr.h * Contents: * DFGRgetlutdims : get dimensions of lookup table * DFGRreqlutil : use this interlace when returning lookup table * DFGRgetlut : read in lookup table * DFGRgetimdims : get dimensions of image * DFGRreqimil : use this interlace when returning image * DFGRgetimage : read in image * DFGRsetcompress : specify compression scheme to be used * DFGRsetlutdims : set dimensions of lookup table * DFGRsetlut : set lookup table to write out with subsequent images * DFGRaddlut : write out lookup table * DFGRsetimdims : set dimensions of image * DFGRaddimage : write out image * * DFGRgetrig : read in raster image group * DFGRaddrig : write out raster image group * * DFGRIopen : open/reopen file * DFGRIriginfo : obtain info about next RIG * DFGRIgetdims : get dimensions of lut/iamge * DFGRIreqil : get lut/image with this interlace * DFGRIgetimlut : get image/lut * DFGRIsetdims : set image/lut dimensions * DFGRIaddimlut : write out image/lut * Remarks: A RIG specifies attributes associated with an image - lookup table, * dimension, compression, color compensation etc. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfgr.h" PRIVATE char *Grlastfile = NULL; PRIVATE uint8 *Grlutdata = NULL; /* points to lut, if in memory */ PRIVATE intn Grnewdata = 0; /* does Grread contain fresh data? */ PRIVATE intn Grcompr = 0; /* compression scheme to use */ PRIVATE comp_info Grcinfo; /* Compression information for each scheme */ PRIVATE uint16 Grrefset = 0; /* Ref of image to get next */ PRIVATE uint16 Grlastref = 0; /* Last ref read/written */ PRIVATE intn Grreqil[2] = {0, 0}; /* requested lut/image il */ PRIVATE struct { /* track refs of set vals written before */ intn lut; /* -1: no vals set */ int16 dims[2]; /* 0: vals set, not written */ intn nt; /* non-zero: ref of val in file */ } Ref = { -1, { -1, -1 } ,-1 }; PRIVATE DFGRrig Grread = { /* information about RIG being read */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, { {0, 0}, {0, 0}, {0, 0},}, { {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}},}, }; PRIVATE DFGRrig Grwrite = { /* information about RIG being written */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, { {0, 0}, {0, 0}, {0, 0},}, { {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}},}, }; PRIVATE DFGRrig Grzrig = { /* empty RIG for initialization */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, { {0, 0}, {0, 0}, {0, 0},}, { {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0, 0, 0, {0, 0}, {0, 0}},}, }; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; #define LUT 0 #define IMAGE 1 /* private functions */ PRIVATE int DFGRIriginfo (int32 file_id); PRIVATE int DFGRgetrig (int32 file_id, uint16 ref, DFGRrig * rig); PRIVATE int DFGRaddrig (int32 file_id, uint16 ref, DFGRrig * rig); PRIVATE intn DFGRIstart(void); /*----------------------------------------------------------------------------- * Name: DFGRgetlutdims * Purpose: get dimensions of lut from next RIG * Inputs: filename: name of HDF file * pxdim, pydim: pointer to locations for returning x,y dimensions * pncomps: location for returning no of components * pil: location for returning interlace of lut in file * Returns: 0 on success, -1 on failure with DFerror set * *pxdim, *pydim, *pncomps, *pil set on success * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIgetdims * Remarks: none *---------------------------------------------------------------------------*/ int DFGRgetlutdims(const char *filename, int32 *pxdim, int32 *pydim, int *pncomps, int *pil) { return (DFGRIgetdims(filename, pxdim, pydim, pncomps, pil, LUT)); } /*----------------------------------------------------------------------------- * Name: DFGRreqlutil * Purpose: get next lut with specified interlace * Inputs: il: interlace to get next lut with * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIreqil * Remarks: none *---------------------------------------------------------------------------*/ int DFGRreqlutil(int il) { return (DFGRIreqil(il, LUT)); } /*----------------------------------------------------------------------------- * Name: DFGRgetlut * Purpose: get lut from next RIG * Inputs: filename: name of HDF file * lut: pointer to space to return lookup table * xdim, ydim: dimensions of space to return lut * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIgetimlut * Remarks: space is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ int DFGRgetlut(const char *filename, void * lut, int32 xdim, int32 ydim) { int compressed, has_pal; uint16 compr_type; /* 0 == C */ return (DFGRIgetimlut(filename, lut, xdim, ydim, LUT, 0, &compressed, &compr_type, &has_pal)); } /*----------------------------------------------------------------------------- * Name: DFGRgetimdims * Purpose: get dimensions of next image RIG * Inputs: filename: name of HDF file * pxdim, pydim: pointer to locations for returning x,y dimensions * pncomps: location for returning no of components * pil: location for returning interlace of image in file * Returns: 0 on success, -1 on failure with DFerror set * *pxdim, *pydim, *pncomps, *pil set on success * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIgetdims * Remarks: none *---------------------------------------------------------------------------*/ int DFGRgetimdims(const char *filename, int32 *pxdim, int32 *pydim, int *pncomps, int *pil) { return (DFGRIgetdims(filename, pxdim, pydim, pncomps, pil, IMAGE)); } /*----------------------------------------------------------------------------- * Name: DFGRreqimil * Purpose: get next image with specified interlace * Inputs: il: interlace to get next image with * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIreqil * Remarks: none *---------------------------------------------------------------------------*/ int DFGRreqimil(int il) { return (DFGRIreqil(il, IMAGE)); } /*----------------------------------------------------------------------------- * Name: DFGRgetimage * Purpose: get image from next RIG * Inputs: filename: name of HDF file * image: pointer to space to return image * xdim, ydim: dimensions of space to return lut * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIgetimlut * Remarks: space is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ int DFGRgetimage(const char *filename, void * image, int32 xdim, int32 ydim) { int compressed, has_pal; uint16 compr_type; /* 0 == C */ return (DFGRIgetimlut(filename, image, xdim, ydim, IMAGE, 0, &compressed, &compr_type, &has_pal)); } /*----------------------------------------------------------------------------- * Name: DFGRsetcompress * Purpose: set compression scheme to use * Inputs: * scheme - compression scheme * cinfo - compression information structure * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int DFGRsetcompress(int32 scheme, comp_info * cinfo) { CONSTR(FUNC, "DFGRsetcompress"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (scheme == COMP_NONE) { /* quick check for no compression */ Grcompr = 0; /* Set the compression scheme */ HGOTO_DONE(SUCCEED); } /* end if */ if (scheme < 0 || scheme > COMP_MAX_COMP || compress_map[scheme] == 0) HGOTO_ERROR(DFE_BADSCHEME, FAIL); /* map JPEG compression into correct type of JPEG compression */ if (scheme == COMP_JPEG) Grcompr = DFTAG_JPEG5; /* Set the compression scheme */ else /* otherwise, just use mapped tag */ Grcompr = (intn)compress_map[scheme]; Grcinfo = (*cinfo); /* Set the compression parameters */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFGRsetcompress() */ /*----------------------------------------------------------------------------- * Name: DFGRsetlutdims * Purpose: set dimensions of lut to write next * Inputs: xdim, ydim: dimensions of lut * ncomps: no of components * il: interlace of lut * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetdims * Remarks: none *---------------------------------------------------------------------------*/ int DFGRsetlutdims(int32 xdim, int32 ydim, int ncomps, int il) { if (DFGRIsetil(il, LUT) < 0) return FAIL; return (DFGRIsetdims(xdim, ydim, ncomps, LUT)); } /*----------------------------------------------------------------------------- * Name: DFGRsetlut * Purpose: set lut for subsequent RIGs * Inputs: lut: lookup table to write * xdim, ydim: dimensions of array lut * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIaddimlut * Remarks: array lut is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ int DFGRsetlut(void * lut, int32 xdim, int32 ydim) { /* 0 == C, 0 == no newfile */ return (DFGRIaddimlut((const char *) NULL, lut, xdim, ydim, LUT, 0, 0)); } /*----------------------------------------------------------------------------- * Name: DFGRaddlut * Purpose: write lut to file, associate it with subsequent RIGs * Inputs: filename: name of HDF file * lut: lookup table to write * xdim, ydim: dimensions of array lut * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIaddimlut * Remarks: array lut is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ int DFGRaddlut(const char *filename, void * lut, int32 xdim, int32 ydim) { /* 0 == C, 0 == no new file */ return (DFGRIaddimlut(filename, lut, xdim, ydim, LUT, 0, 0)); } /*----------------------------------------------------------------------------- * Name: DFGRsetimdims * Purpose: set dimensions of image to write next * Inputs: xdim, ydim: dimensions of image * ncomps: no of components * il: interlace of image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetdims * Remarks: none *---------------------------------------------------------------------------*/ int DFGRsetimdims(int32 xdim, int32 ydim, int ncomps, int il) { if (DFGRIsetil(il, IMAGE) < 0) return FAIL; return (DFGRIsetdims(xdim, ydim, ncomps, IMAGE)); } /*----------------------------------------------------------------------------- * Name: DFGRaddimage * Purpose: Write out image * Inputs: filename: name of HDF file * image: image to write * xdim, ydim: dimensions of array image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIaddimlut * Remarks: array image is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ int DFGRaddimage(const char *filename, void * image, int32 xdim, int32 ydim) { /* 0 == C, 0 == not new file */ return (DFGRIaddimlut(filename, image, xdim, ydim, IMAGE, 0, 0)); } int DFGRputimage(const char *filename, void * image, int32 xdim, int32 ydim) { /* 0 == C, 1 == new file */ return (DFGRIaddimlut(filename, image, xdim, ydim, IMAGE, 0, 1)); } /*----------------------------------------------------------------------------- * Name: DFGRreadref * Purpose: Set ref of rig to get next * Inputs: filename: file to which this applies * ref: reference number of next get * Returns: 0 on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFGRIopen, DFIfind, DFclose * Remarks: checks if rig with this ref exists *---------------------------------------------------------------------------*/ int DFGRreadref(const char *filename, uint16 ref) { CONSTR(FUNC, "DFGRreadref"); intn ret_value = SUCCEED; int32 file_id=(-1); #ifdef OLD_WAY int32 aid; #endif /* OLD_WAY */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if ((file_id = DFGRIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); #ifdef OLD_WAY if ((aid = Hstartread(file_id, DFTAG_RIG, ref)) == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if (Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); #else /* OLD_WAY */ if (Hexist(file_id, DFTAG_RIG, ref) == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); #endif /* OLD_WAY */ Grrefset = ref; ret_value= Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /*****************************************************************************/ /* This is the next lower layer - procedures to read in and write out a RIG. */ /*****************************************************************************/ /*----------------------------------------------------------------------------- * Name: DFGRgetrig * Purpose: Read a RIG into memory * Inputs: file_id: pointer to HDF file containing RIG * ref: reference number of RIG to get * rig: struct in which to place info obtained * Returns: 0 on success, -1 on failure with DFerror set * contents of RIG in the struct rig * Users: HDF programmers, utilities, DFGRIgetdims,DFGRIgetimlut, * other routines * Invokes: DFdiget, DFdinext, DFIcheck, DFgetelement * Remarks: incomplete - does not support DFTAG_MA etc. *---------------------------------------------------------------------------*/ PRIVATE int DFGRgetrig(int32 file_id, uint16 ref, DFGRrig * rig) { CONSTR(FUNC, "DFGRgetrig"); uint16 elt_tag, elt_ref; uint8 ntstring[4]; int type; int32 GroupID; uint8 GRtbuf[64]; /* local buffer for reading RIG info */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id) || !ref) HGOTO_ERROR(DFE_ARGS, FAIL); /* read RIG into memory */ if ((GroupID = DFdiread(file_id, DFTAG_RIG, ref)) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); *rig = Grzrig; /* fill rig with zeroes */ while (!DFdiget(GroupID, &elt_tag, &elt_ref)) { /* get next tag/ref */ switch (elt_tag) { /* process tag/ref */ case DFTAG_CI: case DFTAG_RI: case DFTAG_LUT: type = (elt_tag == DFTAG_LUT) ? LUT : IMAGE; rig->data[type].tag = elt_tag; rig->data[type].ref = elt_ref; break; case DFTAG_ID: /* read description info */ case DFTAG_LD: type = (elt_tag == DFTAG_LD) ? LUT : IMAGE; if (Hgetelement(file_id, elt_tag, elt_ref, GRtbuf) != FAIL) { int16 int16var; uint8 *p; p = GRtbuf; INT32DECODE(p, rig->datadesc[type].xdim); INT32DECODE(p, rig->datadesc[type].ydim); UINT16DECODE(p, rig->datadesc[type].nt.tag); UINT16DECODE(p, rig->datadesc[type].nt.ref); INT16DECODE(p, int16var); rig->datadesc[type].ncomponents=(intn)int16var; INT16DECODE(p, int16var); rig->datadesc[type].interlace=(intn)int16var; UINT16DECODE(p, rig->datadesc[type].compr.tag); UINT16DECODE(p, rig->datadesc[type].compr.ref); } else { DFdifree(GroupID); HGOTO_ERROR(DFE_READERROR, FAIL); } if (rig->datadesc[type].nt.tag == 0) break; /* old RIGs */ /* read NT */ if (Hgetelement(file_id, rig->datadesc[type].nt.tag, rig->datadesc[type].nt.ref, ntstring) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_READERROR, FAIL); } if ((ntstring[2] != 8) || (ntstring[1] != DFNT_UCHAR)) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADCALL, FAIL); } break; default: /* ignore unknown tags */ break; } } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRaddrig * Purpose: Write RIG struct out to HDF file * Inputs: file_id: HDF file pointer * ref: ref to write RIG with * rig: struct containing RIG info to write * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF programmers, utilities, DFGRIaddimlut, other routines * Invokes: DFIcheck, DFdistart, DFdiadd, DFdiend, DFputelement * Remarks: none *---------------------------------------------------------------------------*/ PRIVATE int DFGRaddrig(int32 file_id, uint16 ref, DFGRrig * rig) { CONSTR(FUNC, "DFGRaddrig"); uint8 ntstring[4]; int32 lutsize; int32 GroupID; uint8 GRtbuf[64]; /* local buffer for reading RIG info */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id) || !ref) HGOTO_ERROR(DFE_ARGS, FAIL); if (Ref.nt <= 0) { /* if nt not previously written to file */ /* construct and write out NT */ ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = DFNT_UCHAR; /* type */ ntstring[2] = 8; /* width: RIG data is 8-bit chars */ ntstring[3] = DFNTC_BYTE; /* class: data are numeric values */ if (Hputelement(file_id, DFTAG_NT, ref, (uint8 *) ntstring, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); rig->datadesc[IMAGE].nt.tag = DFTAG_NT; rig->datadesc[IMAGE].nt.ref = ref; Ref.nt = (intn)ref; } if (Ref.dims[IMAGE] == 0) { uint8 *p; p = GRtbuf; INT32ENCODE(p, rig->datadesc[IMAGE].xdim); INT32ENCODE(p, rig->datadesc[IMAGE].ydim); UINT16ENCODE(p, rig->datadesc[IMAGE].nt.tag); UINT16ENCODE(p, rig->datadesc[IMAGE].nt.ref); INT16ENCODE(p, rig->datadesc[IMAGE].ncomponents); INT16ENCODE(p, rig->datadesc[IMAGE].interlace); UINT16ENCODE(p, rig->datadesc[IMAGE].compr.tag); UINT16ENCODE(p, rig->datadesc[IMAGE].compr.ref); if (Hputelement(file_id, DFTAG_ID, ref, GRtbuf, (int32) (p - GRtbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.dims[IMAGE] = (int16)ref; } if (!Ref.lut) { /* associated lut not written to this file */ if (Grlutdata == NULL) /* no lut associated */ HGOTO_ERROR(DFE_ARGS, FAIL); lutsize = Grwrite.datadesc[LUT].xdim * Grwrite.datadesc[LUT].ydim * Grwrite.datadesc[LUT].ncomponents; if (Hputelement(file_id, DFTAG_LUT, ref, Grlutdata, (int32) lutsize) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); rig->data[LUT].tag = DFTAG_LUT; rig->data[LUT].ref = ref; Ref.lut = (intn)ref; } if (Ref.dims[LUT] == 0) { uint8 *p; p = GRtbuf; INT32ENCODE(p, rig->datadesc[LUT].xdim); INT32ENCODE(p, rig->datadesc[LUT].ydim); UINT16ENCODE(p, rig->datadesc[LUT].nt.tag); UINT16ENCODE(p, rig->datadesc[LUT].nt.ref); INT16ENCODE(p, rig->datadesc[LUT].ncomponents); INT16ENCODE(p, rig->datadesc[LUT].interlace); UINT16ENCODE(p, rig->datadesc[LUT].compr.tag); UINT16ENCODE(p, rig->datadesc[LUT].compr.ref); if (Hputelement(file_id, DFTAG_LD, ref, GRtbuf, (int32) (p - GRtbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.dims[LUT] = (int16)ref; } /* prepare to start writing rig */ /* ### NOTE: the parameter to this call may go away */ if ((GroupID = DFdisetup(10)) == FAIL) HGOTO_ERROR(DFE_GROUPSETUP, FAIL); /* max 10 tag/refs in set */ /* add tag/ref to RIG - image description, image and lookup table */ if (DFdiput(GroupID, DFTAG_ID, (uint16) Ref.dims[IMAGE]) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if (DFdiput(GroupID, rig->data[IMAGE].tag, rig->data[IMAGE].ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if ((Ref.dims[LUT] > 0) && (DFdiput(GroupID, DFTAG_LD, (uint16) Ref.dims[LUT]) == FAIL)) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if ((Ref.lut > 0) && (DFdiput(GroupID, rig->data[LUT].tag, rig->data[LUT].ref) == FAIL)) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* write out RIG */ if(DFdiwrite(file_id, GroupID, DFTAG_RIG, ref)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*****************************************************************************/ /*----------------------- Internal routines ---------------------------------*/ /*****************************************************************************/ /*----------------------------------------------------------------------------- * Name: DFGRIopen * Purpose: open or reopen a file * Inputs: filename: name of file to open * acc_mode : access mode * Returns: file pointer on success, NULL on failure with DFerror set * Users: HDF systems programmers, all the RIG routines * Invokes: DFopen * Remarks: This is a hook for someday providing more efficient ways to * reopen a file, to avoid re-reading all the headers *---------------------------------------------------------------------------*/ int32 DFGRIopen(const char *filename, int acc_mode) { CONSTR(FUNC, "DFGRIopen"); int32 file_id=(-1); int32 ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (( file_id = Hopen(filename, acc_mode, 0))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* Check if filename buffer has been allocated */ if (Grlastfile == NULL) { if (( Grlastfile = (char *) HDmalloc(DF_MAXFNLEN + 1))== NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); *Grlastfile = '\0'; /* initialize to a 0-length string */ } /* use reopen if same file as last time - more efficient */ if (HDstrncmp(Grlastfile, filename, DF_MAXFNLEN) || (acc_mode == DFACC_CREATE)) { /* treat create as different file */ Grrefset = 0; /* no ref to get set for this file */ Grnewdata = 0; if (Ref.lut > 0) Ref.lut = 0; if (Grlutdata == NULL) Ref.lut = (-1); /* no LUT if not a "set" call */ if (Ref.dims[IMAGE] > 0) Ref.dims[IMAGE] = 0; if (Ref.dims[LUT] > 0) Ref.dims[LUT] = 0; if (Ref.nt > 0) Ref.nt = 0; Grread = Grzrig; /* no rigs read yet */ } /* remember filename, so reopen may be used next time if same file */ HDstrncpy(Grlastfile, filename, DF_MAXFNLEN); ret_value= file_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIriginfo * Purpose: Get information about next RIG in file * Inputs: file_id: pointer to DF file * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF systems programmers * Invokes: DFIfind, DFgetelement, DFGRgetrig * Remarks: if Grrefset set, gets image with that ref, if any *---------------------------------------------------------------------------*/ PRIVATE int DFGRIriginfo(int32 file_id) { CONSTR(FUNC, "DFGRIriginfo"); int i, isfirst; uint16 newref = 0, newtag = 0, gettag, getref, ref=0, dummy=0; struct { uint16 xdim; uint16 ydim; } r8dims; char *p; int32 aid; intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); isfirst = (Grrefset != 0) || (Grread.data[IMAGE].ref == 0); getref = Grrefset; /* ref if specified, else 0 */ Grrefset = 0; /* no longer need to remember specified ref */ gettag = DFTAG_RIG; for (i = 0; i < 4; i++) { /* repeat for RIG, RI8, CI8, II8 */ if (isfirst) { aid = Hstartread(file_id, gettag, getref); } else { aid = Hstartread(file_id, gettag, Grread.data[IMAGE].ref); if ((aid != FAIL) && Hnextread(aid, gettag, getref, DF_CURRENT) == FAIL) { Hendaccess(aid); aid = FAIL; } } if (aid == FAIL) { /* not found */ if (gettag == DFTAG_RIG) { /* were looking for RIGs */ if ((Grread.data[IMAGE].tag == DFTAG_RI) /* file has RIGs */ || (Grread.data[IMAGE].tag == DFTAG_CI)) HGOTO_DONE(FAIL); /* no more to return */ gettag = DFTAG_RI8; /* if no RIGs in file, look for RI8s */ } else if ((gettag == DFTAG_II8) && (!newref)) /* no RI8/CI8/II8 */ HGOTO_DONE(FAIL); continue; /* continue checking */ } /* found */ HQuerytagref(aid, &dummy, &ref); Hendaccess(aid); if (!newref || (ref < newref)) { /* is it next one? */ newref = ref; /* remember tag, ref */ newtag = gettag; } if (gettag == DFTAG_RI8) gettag = DFTAG_CI8; /* check next */ else if (gettag == DFTAG_CI8) gettag = DFTAG_II8; else break; /* all checked, quit */ } if (newtag == DFTAG_RIG) { if (DFGRgetrig(file_id, newref, &Grread) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } else { uint16 uint16var; Grread.data[IMAGE].ref = newref; Grread.data[IMAGE].tag = newtag; if (newtag == DFTAG_CI8) Grread.datadesc[IMAGE].compr.tag = DFTAG_RLE; else if (newtag == DFTAG_II8) Grread.datadesc[IMAGE].compr.tag = DFTAG_IMC; if (Hgetelement(file_id, DFTAG_ID8, newref, (uint8 *) &r8dims) == FAIL) HGOTO_ERROR(DFE_GETELEM, FAIL); p = (char *) &r8dims; UINT16DECODE(p, uint16var); Grread.datadesc[IMAGE].xdim=(int32)uint16var; UINT16DECODE(p, uint16var); Grread.datadesc[IMAGE].ydim=(int32)uint16var; aid = Hstartread(file_id, DFTAG_IP8, newref); if (aid != FAIL) { Grread.data[LUT].tag = DFTAG_IP8; Grread.data[LUT].ref = newref; Hendaccess(aid); } HEclear(); /* reset it, just in case! */ } /* if LUT dimensions not set, set default dimensions */ if (Grread.data[LUT].tag && Grread.datadesc[LUT].xdim == 0) { Grread.datadesc[LUT].xdim = 256; Grread.datadesc[LUT].ydim = 1; Grread.datadesc[LUT].ncomponents = 3; } #ifdef OLD_WAY Grlastref = Grread.data[IMAGE].ref; /* remember ref read */ #else /* OLD_WAY */ Grlastref = newref; /* remember ref read */ #endif /* OLD_WAY */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIgetdims * Purpose: get dimensions of next image/lut from RIG * Inputs: filename: name of HDF file * pxdim, pxdim: pointer to locations for returning x,y dimensions * pncomps: location for returning no of components * pil: location for returning interlace of image/lut in file * type: LUT to get lut dims, IMAGE to get image dims * Returns: 0 on success, -1 on failure with DFerror set * *pxdim, *pydim are set to dimensions of the next image on success * *pncomps, *pil set on success * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIopen, DFclose, DFGRIriginfo, DFIerr * Remarks: none *---------------------------------------------------------------------------*/ int DFGRIgetdims(const char *filename, int32 *pxdim, int32 *pydim, int *pncomps, int *pil, int type) { CONSTR(FUNC, "DFGRIgetdims"); intn ret_value = SUCCEED; int32 file_id=(-1); HEclear(); if (( file_id = DFGRIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (type == IMAGE) { /* getimdims sequences, getlutdims does not */ /* reads next RIG or RI8 from file */ if (DFGRIriginfo(file_id) == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); Grnewdata = 1; } if (type == LUT && Grread.data[LUT].ref == 0) HGOTO_ERROR(DFE_NOMATCH, FAIL); if (pxdim) *pxdim = Grread.datadesc[type].xdim; if (pydim) *pydim = Grread.datadesc[type].ydim; if (pncomps) *pncomps = Grread.datadesc[type].ncomponents; if (pil) *pil = Grread.datadesc[type].interlace; Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIreqil * Purpose: set interlace with which to get subsequent images/luts * Inputs: il: interlace to get image/lut with * type: LUT for luts, IMAGE for images * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF users, utilities, other routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int DFGRIreqil(intn il, intn type) { CONSTR(FUNC, "DFGRIreqil"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); Grreqil[type] = il; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIgetimlut * Purpose: get next image/lut from a RIG * Inputs: filename: name of HDF file * imlut: space to read image/lut into * xdim, ydim: dimensions of space allocated by user for image/lut * type: LUT for luts, IMAGE for images * isfortran: 0 if called from C, 1 if called from Fortran * Returns: 0 on success, -1 on failure with DFerror set * image/lut in imlut * Users: HDF HLL users, utilities, other routines * Invokes: DFGRIopen, DFGRIriginfo, DFIerr, DFclose, DFgetelement, DFgetcomp * Remarks: Will also get RI8s and CI8s if no RIGs in file * Normally, DFGRgetimdims is called first and it moves to next image * But if that is not called, DFGRgetimlut will itself move to next * image (but not next lut!). * Automatically decompresses images/luts *---------------------------------------------------------------------------*/ /* shut lint up */ /* ARGSUSED */ int DFGRIgetimlut(const char *filename, void * imlut, int32 xdim, int32 ydim, int type, int isfortran, int *compressed, uint16 *compr_type, int *has_pal) { CONSTR(FUNC, "DFGRIgetimlut"); int32 file_id=(-1); int32 currpos[3], currmax[3], destsize[3], bufsize, i, j; uint8 *buf, *destp; int32 aid; intn ret_value = SUCCEED; /* shut compiler up */ isfortran = isfortran; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (( file_id = DFGRIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if ((type == IMAGE) && (Grnewdata != 1)) { /* if Grread not fresh */ if (DFGRIriginfo(file_id) == FAIL) /* reads next RIG or RI8 from file */ HGOTO_ERROR(DFE_INTERNAL, FAIL); } if (Grnewdata == 0) HGOTO_ERROR(DFE_BADCALL, FAIL); Grnewdata = 0; /* read new RIG next time */ if ((xdim != Grread.datadesc[type].xdim) || (ydim != Grread.datadesc[type].ydim)) HGOTO_ERROR(DFE_ARGS, FAIL); /* read image/lut */ if (Grread.datadesc[type].compr.tag) { /* compressed image/lut */ *compressed = 1; *compr_type = Grread.datadesc[type].compr.tag; if ((Grreqil[type] >= 0) && (Grreqil[type] != Grread.datadesc[type].interlace)) HGOTO_ERROR(DFE_UNSUPPORTED, FAIL); if (DFgetcomp(file_id, Grread.data[type].tag, Grread.data[type].ref, (uint8 *) imlut, Grread.datadesc[type].xdim, Grread.datadesc[type].ydim, Grread.datadesc[type].compr.tag) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } else { /* non-compressed raster image/lut */ *compressed = 0; if (Grreqil[type] >= 0) { if (Grreqil[type] >= Grread.datadesc[type].ncomponents) { HGOTO_ERROR(DFE_ARGS, FAIL); } else if (Grreqil[type] != Grread.datadesc[type].interlace) { aid = Hstartread(file_id, Grread.data[type].tag, Grread.data[type].ref); if (aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); /* current position in data */ currpos[0] = currpos[1] = currpos[2] = 0; currmax[0] = Grread.datadesc[type].ncomponents; currmax[1] = Grread.datadesc[type].xdim; currmax[2] = Grread.datadesc[type].ydim; /* compute size of each dim of dest array */ destsize[0] = destsize[1] = 1; destsize[2] = currmax[1]; /* xdim is more sig than ydim */ if (Grreqil[type] == 0) { destsize[1] *= currmax[0]; destsize[2] *= currmax[0]; } else if (Grreqil[type] == 1) { destsize[0] *= currmax[1]; destsize[2] *= currmax[0]; } else if (Grreqil[type] == 2) { destsize[0] *= currmax[1] * currmax[2]; } bufsize = Grread.datadesc[type].ydim * Grread.datadesc[type].ncomponents; buf = (uint8 *) HDmalloc((uint32) bufsize); if (buf == NULL) { Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read byte by byte and copy */ for (i = 0; i < Grread.datadesc[type].xdim; i++) { if (Hread(aid, bufsize, buf) == FAIL) { Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } for (j = 0; j < bufsize; j++) { destp = (uint8 *) imlut + destsize[0] * currpos[0] + destsize[1] * currpos[1] + destsize[2] * currpos[2]; *destp = buf[j]; if (Grread.datadesc[type].interlace == 0) { if (++currpos[0] == currmax[0]) { currpos[0] = 0; if (++currpos[1] == currmax[1]) { currpos[1] = 0; if (++currpos[2] == currmax[2]) break; } } } else if (++currpos[1] == currmax[1]) { currpos[1] = 0; if (Grread.datadesc[type].interlace == 1) { if (++currpos[0] == currmax[0]) { currpos[0] = 0; if (++currpos[2] == currmax[2]) break; } } else { if (++currpos[2] == currmax[2]) { currpos[2] = 0; if (++currpos[0] == currmax[0]) break; } } } } } Hendaccess(aid); HDfree(buf); HGOTO_DONE(Hclose(file_id)); } } if (Hgetelement(file_id, Grread.data[type].tag, Grread.data[type].ref, (uint8 *) imlut) == FAIL) { *has_pal = 0; HGOTO_ERROR(DFE_GETELEM,FAIL); } else *has_pal = 1; } Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIsetdims * Purpose: set dimensions of image/lut * Inputs: xdim, ydim: dimensions of lut * ncomps: no of components * il: interlace of lut * type: LUT if lut, IMAGE if image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int DFGRIsetdims(int32 xdim, int32 ydim, intn ncomps, int type) { CONSTR(FUNC, "DFGRIsetdims"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (ncomps == FAIL || (xdim <= 0) || (ydim <= 0)) HGOTO_ERROR(DFE_ARGS, FAIL); Grwrite.datadesc[type].xdim = xdim; Grwrite.datadesc[type].ydim = ydim; Grwrite.datadesc[type].ncomponents = ncomps; Ref.dims[type] = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIsetil * Purpose: set interlace of image/lut * Inputs: il: interlace of lut * type: LUT if lut, IMAGE if image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int DFGRIsetil(int il, int type) { CONSTR(FUNC, "DFGRIsetil"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (il == FAIL) HRETURN_ERROR(DFE_ARGS, FAIL); Grwrite.datadesc[type].interlace = il; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIrestart * Purpose: restart file * Inputs: * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int DFGRIrestart(void) { CONSTR(FUNC, "DFGRIrestart"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Grlastfile != NULL) *Grlastfile = '\0'; /* zero out string instead of NULL'ing pointer */ Grrefset = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRIaddimlut * Purpose: Internal routine to write RIG to file * Inputs: filename: name of HDF file * imlut: image/lut to be written to file * xdim, ydim: dimensions of image/lut * type: LUT if lut, IMAGE if image * isfortran: 0 if called from C, 1 if called from Fortran * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF systems programmers, DFGRaddimage, DFGRaddlut, DFGRsetlut * Invokes: DFGRIopen, DFclose, DFputelement, DFdup, DFGRaddrig, DFputcomp, * DFIerr * Remarks: Creates both RIG and RI8/CI8 tags, to accomodate older programs * LUT will be associated with image if set previously *---------------------------------------------------------------------------*/ /* shut lint up */ /* ARGSUSED */ int DFGRIaddimlut(const char *filename, const void * imlut, int32 xdim, int32 ydim, int type, int isfortran, int newfile) { CONSTR(FUNC, "DFGRIaddimlut"); int32 file_id=(-1); uint16 wtag, wref; /* tag of image/lut being written */ uint16 rigref; /* ref # for the RIG */ uint8 *newlut = NULL; int32 lutsize = 0; int is8bit; struct { uint16 xdim; uint16 ydim; } r8dims; uint8 *p; intn ret_value = SUCCEED; /* shut compiler up */ isfortran = isfortran; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFGRIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check if filename buffer has been allocated */ if (Grlastfile == NULL) { Grlastfile = (char *) HDmalloc((DF_MAXFNLEN + 1) * sizeof(char)); if (Grlastfile == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); *Grlastfile = '\0'; /* initialize to a 0-length string */ } if (0 != HDstrcmp(Grlastfile, filename)) { /* if new file, reset dims */ Grwrite.datadesc[type].xdim = xdim; Grwrite.datadesc[type].ydim = ydim; Ref.dims[type] = 0; /* indicate set & not written */ } if ((Ref.dims[type] == 0 && (xdim != Grwrite.datadesc[type].xdim || ydim != Grwrite.datadesc[type].ydim)) || !imlut) HGOTO_ERROR(DFE_ARGS, FAIL); /* if dims not set, set dimensions */ if (Ref.dims[type] == FAIL) if (DFGRIsetdims(xdim, ydim, 1, type) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* default: ncomps=1, il=0 */ if ((type == LUT) && (filename == NULL)) { /* set call */ if (Grlutdata) { HDfree(Grlutdata); Grlutdata = NULL; } Ref.lut = -1; if (imlut == NULL) HGOTO_DONE(SUCCEED); lutsize = Grwrite.datadesc[LUT].xdim * Grwrite.datadesc[LUT].ydim * Grwrite.datadesc[LUT].ncomponents; if (( Grlutdata = (uint8 *) HDmalloc((uint32) lutsize))== NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); HDmemcpy(Grlutdata, imlut, (uint32) lutsize); Ref.lut = 0; HGOTO_DONE(SUCCEED); } if (( file_id = DFGRIopen(filename, newfile ? DFACC_CREATE : DFACC_RDWR))== (int32) NULL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* make 8-bit compatibility only for older 8-bit stuff, not JPEG */ is8bit = ((Grwrite.datadesc[IMAGE].ncomponents == 1) && (Grcompr != DFTAG_GREYJPEG5 && Grcompr != DFTAG_JPEG5)); wtag = (uint16) ((type == LUT) ? DFTAG_LUT : (Grcompr ? DFTAG_CI : DFTAG_RI)); Grwrite.data[type].tag = wtag; if (( wref = Htagnewref(file_id,wtag))==0) HGOTO_ERROR(DFE_INTERNAL,FAIL); /* write out image/lut */ if ((type == IMAGE) && Grcompr) { lutsize = Grwrite.datadesc[LUT].xdim * Grwrite.datadesc[LUT].ydim * Grwrite.datadesc[LUT].ncomponents; if (Grcompr == DFTAG_IMC) { if (Grlutdata == NULL) HGOTO_ERROR(DFE_BADCALL, FAIL); if (( newlut = (uint8 *) HDmalloc((uint32) lutsize))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } if (DFputcomp(file_id, wtag, wref, imlut, xdim, ydim, (uint8 *) Grlutdata, (uint8 *) newlut, (int16) Grcompr, &Grcinfo) == FAIL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } else { /* image need not be compressed */ if (Hputelement(file_id, (uint16) wtag, (uint16) wref, imlut, xdim * ydim * Grwrite.datadesc[type].ncomponents) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); } Grwrite.data[type].ref = wref; Grwrite.aspectratio = (float32) 1.0; /* Write out Raster-8 tags for those who want it */ if (is8bit) { wtag = (uint16) ((type == LUT) ? DFTAG_IP8 : Grcompr ? ((Grcompr == DFTAG_RLE) ? DFTAG_CI8 : DFTAG_II8) : DFTAG_RI8); if (Hdupdd(file_id, wtag, wref, Grwrite.data[type].tag, wref) == FAIL) HGOTO_ERROR(DFE_DUPDD, FAIL); } /* end if */ if (type == IMAGE) Grwrite.datadesc[IMAGE].compr.tag = (uint16) Grcompr; if (Grcompr == DFTAG_IMC) { if (Hputelement(file_id, DFTAG_LUT, wref, newlut, lutsize) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.lut = (intn)wref; } if (( rigref = Htagnewref(file_id,DFTAG_RIG))==0) HGOTO_ERROR(DFE_INTERNAL,FAIL); if (DFGRaddrig(file_id, rigref, &Grwrite) == FAIL) /* writes ID, NT */ HGOTO_ERROR(DFE_INTERNAL, FAIL); if (is8bit) { /* put in Raster-8 stuff also, for those who want it */ if ((Ref.lut >= 0) && Hdupdd(file_id, DFTAG_IP8, wref, DFTAG_LUT, wref) == FAIL) HGOTO_ERROR(DFE_DUPDD, FAIL); p = (uint8 *) &r8dims.xdim; UINT16ENCODE(p, Grwrite.datadesc[IMAGE].xdim); UINT16ENCODE(p, Grwrite.datadesc[IMAGE].ydim); if (Hputelement(file_id, DFTAG_ID8, wref, (uint8 *) &r8dims, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); } if (Grcompr == DFTAG_IMC) { Ref.lut = 0; HDfree(newlut); newlut = NULL; } #ifdef OLD_WAY Grlastref = wref; /* remember the last ref */ #else /* OLD_WAY */ Grlastref = rigref; /* remember the last ref */ #endif /* OLD_WAY */ wref = 0; /* don't know ref to write next */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if(file_id!=(-1)) Hclose(file_id); return ret_value; } /*----------------------------------------------------------------------------- * Name: DFGRlastref * Purpose: Return last ref written or read * Inputs: none * Globals: Grlastref * Returns: ref on success * Users: HDF users, utilities, other routines * Invokes: none * Method: return Grlastref * Remarks: none *---------------------------------------------------------------------------*/ uint16 DFGRIlastref(void) { return ((uint16) Grlastref); } /*-------------------------------------------------------------------------- NAME DFGRIstart PURPOSE DFGR-level initialization routine USAGE intn DFGRIstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the shut-down routine (DFGRPshutdown) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFGRIstart(void) { CONSTR(FUNC, "DFGRIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&DFGRPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end DFGRIstart() */ /*-------------------------------------------------------------------------- NAME DFGRPshutdown PURPOSE Terminate various static buffers. USAGE intn DFGRshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the DFGR routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFGRPshutdown(void) { if(Grlastfile!=NULL) { HDfree(Grlastfile); Grlastfile=NULL; } /* end if */ return(SUCCEED); } /* end DFGRPshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hextelt.c0000644000000000000000000013703712421456623014272 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hextelt.c 6043 2014-01-21 21:09:03Z acheng $ */ /*LINTLIBRARY */ /* ------------------------------ hextelt.c ------------------------------- Routines for external elements, i.e., data elements that reside on some other file. These elements have no limits on their length. While users are prevented from reading beyond what is written, a user can write an unlimited amount of data. 17-Mar-93 Adding offset and "starting length" to elements so that a user can take an existing file with some data in it and create an HDF file which has a pointer to that data. File Organization ****************** DD for External Element pointing to External Element Description Record ======================================================================= <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- |extended tag | reference # | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V EXTERNAL ELEMENT DESCRIPTION RECORD(EEDR - 12 + file_name_length bytes) ======================================================================== <- 4 bytes -> <- 4 bytes -> <- 4 bytes -> <- variable -> --------------------------------------------------------- | ext_tag_desc | offset | length | filename | --------------------------------------------------------- ext_tag_desc - EXT_EXTERN(16 bit constant). Identifies this as an external element description record. offset - Location of the element(data) within the external file(32 bit field) length - Length in bytes of the element(data) in the external file(32 bit field) filename - Non-null terminated ASCII string naming the external file(variable length) LOCAL ROUTINES HXIstaccess -- set up AID to access an ext elem HXIbuildfilename -- Build the Filename for the External Element EXPORTED BUT LIBRARY PRIVATE ROUTINES HXPcloseAID -- close file but keep AID active HXPendacess -- close file, free AID HXPinfo -- return info about an external element HXPinquire -- retreive information about an external element HXPread -- read some data out of an external file HXPreset -- replace the current external info with new info HXPseek -- set the seek position HXPsetaccesstype -- set the I/O access type of the external file HXPstread -- open an access record for reading HXPstwrite -- open an access record for reading HXPwrite -- write some data out to an external file EXPORTED ROUTINES HXcreate -- create an external element HXsetcreatedir -- set the directory variable for creating external file HXsetdir -- set the directory variable for locating external file ------------------------------------------------------------------------- */ #include "hdf.h" #include "hfile.h" /* Directory seperator definitions relating to a path. * Note this does not provide a universal way to recognize * different path name conventions and translate between them */ #if defined WIN386 | defined DOS386 /* DOS-Windows seperator */ #define DIR_SEPC 92 /* Integer value of '\' */ #define DIR_SEPS "\\" #else /* Unix - POSIX */ #define DIR_SEPC 47 /* Integer value of '/' */ #define DIR_SEPS "/" #endif /* !WIN386 & !DOS386 */ /* directory path seperator from other directory paths */ #define DIR_PATH_SEPC 124 #define DIR_PATH_SEPS "|" /* extinfo_t -- external elt information structure */ typedef struct { int attached; /* number of access records attached to this information structure */ int32 extern_offset; int32 length; /* length of this element */ int32 length_file_name; /* length of the external file name */ int32 para_extfile_id; /* parallel ID of the external file */ hdf_file_t file_external; /* external file descriptor */ char *extern_file_name; /* name of the external file */ intn file_open; /* has the file been opened yet ? */ } extinfo_t; /* forward declaration of the functions provided in this module */ PRIVATE int32 HXIstaccess (accrec_t * access_rec, int16 access); PRIVATE char *HXIbuildfilename (const char *ext_fname, const intn acc_mode); /* ext_funcs -- table of the accessing functions of the external data element function modules. The position of each function in the table is standard */ funclist_t ext_funcs = { HXPstread, HXPstwrite, HXPseek, HXPinquire, HXPread, HXPwrite, HXPendaccess, HXPinfo, HXPreset, }; /*------------------------------------------------------------------------ NAME HXcreate -- create an external element USAGE int32 HXcreate(file_id, tag, ref, ext_name, offset, len) int32 file_id; IN: file ID for HDF file int16 tag; IN: tag number for external elem int16 ref; IN: ref number for external elem char * ext_name; IN: external file name int32 offset; IN: offset where elem should start in ext file int32 len; IN: current len of element if already in ext file (see desc below) RETURNS returns AID to external element if succeed, else FAIL DESCRIPTION Create a data element in an external file starting at the location of _offset_. If the external file does not exist, it is created. If it already exists, we will simply open it, not delete it and start over. If the data element does not exist, it is created in reference to the external file starting at location _offset_. Its data length is set as _len_. If the data element already exists, it is "promoted" as an external element and its data is copied to the external file, again, starting at location _offset_. In this case, since the length of the existing element is defined, it is set as the length of the external element. The given _len_ value is ignored. Currently, all ordinary data element plus link-block and external elements can be set as an external element. (For the case of setting an existing external element to a new external element has the effect of copying the data of the element from an old external file to a new one.) All further reference (e.g., read, write, seek) to this external element applies to the content of the external file. The AID which refers to this new external element, is returned upon successful execution. FAIL is returned if any error is encountered. FORTRAN None --------------------------------------------------------------------------*/ int32 HXcreate(int32 file_id, uint16 tag, uint16 ref, const char *extern_file_name, int32 offset, int32 start_len) { CONSTR(FUNC, "HXcreate"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL;/* access element record */ int32 dd_aid; /* AID for writing the special info */ hdf_file_t file_external; /* external file descriptor */ extinfo_t *info=NULL; /* special element information */ atom_t data_id=FAIL; /* dd ID of existing regular element */ int32 data_len; /* length of the data we are checking */ uint16 special_tag; /* special version of tag */ uint8 local_ptbuf[20 + MAX_PATH_LEN]; /* temp working buffer */ char *fname=NULL; /* filename built from external filename */ void * buf = NULL; /* temporary buffer */ int32 ret_value = SUCCEED; /* clear error stack and validate args */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec) || !extern_file_name || (offset < 0) || SPECIALTAG(tag) || (special_tag = MKSPECIALTAG(tag)) == DFTAG_NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* get a access records */ access_rec = HIget_access_rec(); if (access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* search for identical dd */ if ((data_id=HTPselect(file_rec,tag,ref))!=FAIL) { /* Check if the element is already special */ if (HTPis_special(data_id)==TRUE) { sp_info_block_t sp_info; int32 aid, retcode; aid = Hstartread(file_id, tag, ref); retcode = HDget_special_info(aid, &sp_info); Hendaccess(aid); if ((retcode == FAIL) || (sp_info.key == FAIL)) HGOTO_ERROR(DFE_CANTMOD, FAIL); switch(sp_info.key) { /* we can proceed with these types of special elements */ case SPECIAL_LINKED: case SPECIAL_EXT: break; /* abort since we cannot convert the data element to an external data element */ case SPECIAL_COMP: default: HTPendaccess(data_id); HGOTO_ERROR(DFE_CANTMOD, FAIL); } /* switch */ } /* end if */ /* get the info for the dataset */ if(HTPinquire(data_id,NULL,NULL,NULL,&data_len)==FAIL) { HTPendaccess(data_id); HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ } /* end if */ /* build the customized external file name. */ if (!(fname = HXIbuildfilename(extern_file_name, DFACC_CREATE))) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* create the external file */ file_external = (hdf_file_t)HI_OPEN(fname, DFACC_WRITE); if (OPENERR(file_external)) { file_external = (hdf_file_t)HI_CREATE(fname); if (OPENERR(file_external)) HGOTO_ERROR(DFE_BADOPEN, FAIL); } HDfree(fname); /* set up the special element information and write it to file */ access_rec->special_info = HDmalloc((uint32) sizeof(extinfo_t)); info = (extinfo_t *) access_rec->special_info; if (!info) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (data_id!=FAIL && data_len>0) { if ((buf = HDmalloc((uint32) data_len)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (Hgetelement(file_id, tag, ref, buf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if (HI_SEEK(file_external, offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HI_WRITE(file_external, buf, (int)data_len) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); info->length = data_len; } else info->length = start_len; info->attached = 1; info->file_open = TRUE; info->file_external = file_external; info->extern_offset = offset; info->extern_file_name = (char *) HDstrdup(extern_file_name); if (!info->extern_file_name) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Getting ready to write out special info struct */ info->length_file_name = (int32)HDstrlen(extern_file_name); { uint8 *p = local_ptbuf; INT16ENCODE(p, SPECIAL_EXT); INT32ENCODE(p, info->length); INT32ENCODE(p, info->extern_offset); INT32ENCODE(p, info->length_file_name); HDstrcpy((char *) p, extern_file_name); } if(data_id!=FAIL) if (HTPdelete(data_id) == FAIL) HGOTO_ERROR(DFE_CANTDELDD, FAIL); /* write the special info structure to file */ if((dd_aid=Hstartaccess(file_id,special_tag,ref,DFACC_ALL))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hwrite(dd_aid, 14+info->length_file_name, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* update access record and file record */ if((access_rec->ddid=HTPselect(file_rec,special_tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); access_rec->special_func = &ext_funcs; access_rec->special = SPECIAL_EXT; access_rec->posn = 0; access_rec->access = DFACC_RDWR; access_rec->file_id = file_id; access_rec->appendable = FALSE; /* start data as non-appendable */ file_rec->attach++; ret_value = HAregister_atom(AIDGROUP,access_rec); /* return access id */ done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); if(info!=NULL) HDfree(info); if(fname!=NULL) HDfree(fname); if(data_id!=FAIL) HTPendaccess(data_id); } /* end if */ /* Normal function cleanup */ if (buf != NULL) HDfree(buf); return ret_value; } /* HXcreate */ /*------------------------------------------------------------------------ NAME HXPsetaccesstype -- set the I/O access type of the external file USAGE intn HXPsetaccesstype(access_rec) accrec_t *access_rec IN/OUT: access record of the external element RETURNS SUCCEED if no error, else FAIL DESCRIPTION Open the external file according to the access type specified. --------------------------------------------------------------------------*/ intn HXPsetaccesstype(accrec_t * access_rec) { CONSTR(FUNC, "HXPsetaccesstype"); hdf_file_t file_external; /* external file descriptor */ extinfo_t *info; /* special element information */ char *fname=NULL; intn ret_value = SUCCEED; /* clear error stack and validate args */ HEclear(); /* sanity check */ if (access_rec==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (( info = (extinfo_t *) access_rec->special_info)==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* build the customized external file name. */ if ((fname = HXIbuildfilename(info->extern_file_name, DFACC_OLD))==NULL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* Open the external file for the correct access type */ switch (access_rec->access_type) { case DFACC_SERIAL: file_external = (hdf_file_t)HI_OPEN(fname, DFACC_WRITE); if (OPENERR(file_external)) { file_external = (hdf_file_t)HI_CREATE(fname); if (OPENERR(file_external)) HGOTO_ERROR(DFE_BADOPEN, FAIL); } HDfree(fname); info->file_external = file_external; break; default: HGOTO_ERROR(DFE_BADOPEN, FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ if(fname!=NULL) HDfree(fname); } /* end if */ /* Normal function cleanup */ return ret_value; } /* ----------------------------- HXIstaccess ------------------------------ */ /* NAME HXIstaccess -- set up AID to access an ext elem USAGE int32 HXIstaccess(access_rec, acc_mode) access_t * access_rec; IN: access record to fill in int16 acc_mode; IN: access mode RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HXIstread and HXIstwrite resolve to this function. Given an active AID fill in all of the special information. If this information has already been read in for a different element use that else we must go out to the HDF file and pull in the information ourselves ---------------------------------------------------------------------------*/ PRIVATE int32 HXIstaccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HXIstaccess"); /* for HERROR */ extinfo_t *info = NULL; /* special element information */ filerec_t *file_rec = NULL; /* file record */ int32 data_off; /* offset of the data we are checking */ uint8 local_ptbuf[12]; /* working buffer */ int32 ret_value = SUCCEED; /* get file record and validate */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec) || !(file_rec->access & acc_mode)) HGOTO_ERROR(DFE_ARGS, FAIL); /* intialize the access record */ access_rec->special = SPECIAL_EXT; access_rec->posn = 0; access_rec->access = (uint32)(acc_mode|DFACC_READ); /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get the special info record */ access_rec->special_info = HIgetspinfo(access_rec); if (access_rec->special_info) { /* found it from other access records */ info = (extinfo_t *) access_rec->special_info; info->attached++; } else { /* look for information in the file */ if (HPseek(file_rec, data_off + 2) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_read(file_rec, local_ptbuf, 12) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); access_rec->special_info = HDmalloc((uint32) sizeof(extinfo_t)); info = (extinfo_t *) access_rec->special_info; if (info==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); { uint8 *p = local_ptbuf; INT32DECODE(p, info->length); INT32DECODE(p, info->extern_offset); INT32DECODE(p, info->length_file_name); } info->extern_file_name = (char *) HDmalloc((uint32) info->length_file_name + 1); if (!info->extern_file_name) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (HP_read(file_rec, info->extern_file_name, info->length_file_name) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); info->extern_file_name[info->length_file_name] = '\0'; /* delay file opening until needed */ info->file_open = FALSE; info->attached = 1; } file_rec->attach++; ret_value = HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); if(info !=NULL) { /* free file name first */ if (info->extern_file_name != NULL) HDfree(info->extern_file_name); HDfree(info); } } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXIstaccess */ /* ------------------------------ HXPstread ------------------------------- */ /* NAME HXPstread -- open an access record for reading USAGE int32 HXPstread(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HXIstaccess to fill in the access rec for reading ---------------------------------------------------------------------------*/ int32 HXPstread(accrec_t * rec) { int32 ret_value; ret_value = HXIstaccess(rec, DFACC_READ); return ret_value; } /* HXPstread */ /* ------------------------------ HXPstwrite ------------------------------- */ /* NAME HXPstwrite -- open an access record for reading USAGE int32 HXPstwrite(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HXIstaccess to fill in the access rec for writing ---------------------------------------------------------------------------*/ int32 HXPstwrite(accrec_t * rec) { int32 ret_value; ret_value = HXIstaccess(rec, DFACC_WRITE); return ret_value; } /* HXPstwrite */ /* ------------------------------ HXPseek ------------------------------- */ /* NAME HXPseek -- set the seek posn USAGE int32 HXPseek(access_rec, offset, origin) access_t * access_rec; IN: access record to mess with int32 offset; IN: seek offset int32 origin; IN: where we should calc the offset from RETURNS SUCCEED / FAIL DESCRIPTION Set the seek posn in the given external element ---------------------------------------------------------------------------*/ int32 HXPseek(accrec_t * access_rec, int32 offset, int origin) { int32 ret_value = SUCCEED; CONSTR(FUNC, "HXPseek"); /* for HERROR */ /* Adjust offset according to origin. there is no upper bound to posn */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += ((extinfo_t *) (access_rec->special_info))->length; if (offset < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* set the offset */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPseek */ /* ------------------------------ HXPread ------------------------------- */ /* NAME HXPread -- read some data out of an external file USAGE int32 HXPseek(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer for data RETURNS The number of bytes read or FAIL on error DESCRIPTION Read in some data from an external file. If length is zero read until the end of the element. It is assumed that the data buffer is big enough to store the data. BUG: Need to investigate what happens if length would take us off the end of what has been written -- should only read until the end. ---------------------------------------------------------------------------*/ int32 HXPread(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HXPread"); /* for HERROR */ extinfo_t *info = /* information on the special element */ (extinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate length */ if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* adjust length if it falls off the end of the element */ if ((length == 0) || (access_rec->posn + length > info->length)) length = info->length - access_rec->posn; else if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* see if the file is open, if not open it */ if (!info->file_open) { char *fname; /* build the customized external file name. */ if ((fname = HXIbuildfilename(info->extern_file_name, DFACC_OLD))==NULL) HGOTO_ERROR(DFE_BADOPEN, FAIL); info->file_external = (hdf_file_t)HI_OPEN(fname, access_rec->access); HDfree(fname); if (OPENERR(info->file_external)) { HERROR(DFE_BADOPEN); HEreport("Could not find external file %s\n", info->extern_file_name); HGOTO_DONE(FAIL); } info->file_open = TRUE; } /* read it in from the file */ { if (HI_SEEK(info->file_external, access_rec->posn + info->extern_offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HI_READ(info->file_external, data, length) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); } /* adjust access position */ access_rec->posn += length; ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPread */ /* ------------------------------ HXPwrite ------------------------------- */ /* NAME HXPwrite -- write some data out to an external file USAGE int32 HXPwrite(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer of data RETURNS The number of bytes written or FAIL on error DESCRIPTION Write out some data to an external file. It looks like this will allow us to write to a file even if we only have a read AID for it. Is that really the behavior that we want? ---------------------------------------------------------------------------*/ int32 HXPwrite(accrec_t * access_rec, int32 length, const void * data) { uint8 local_ptbuf[4]; /* temp buffer */ CONSTR(FUNC, "HXPwrite"); /* for HERROR */ extinfo_t *info = /* information on the special element */ (extinfo_t *) (access_rec->special_info); uint8 *p =local_ptbuf; /* temp buffer ptr */ filerec_t *file_rec; /* file record */ int32 ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* validate length */ if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* see if the file is open, if not open it */ if (!info->file_open) { char *fname; /* build the customized external file name. */ if ((fname = HXIbuildfilename(info->extern_file_name, DFACC_OLD))==NULL) HGOTO_ERROR(DFE_BADOPEN, FAIL); info->file_external = (hdf_file_t)HI_OPEN(fname, access_rec->access); HDfree(fname); if (OPENERR(info->file_external)) { HERROR(DFE_BADOPEN); HEreport("Could not find external file %s\n", info->extern_file_name); HGOTO_DONE(FAIL); } info->file_open = TRUE; } /* write the data onto file */ { if (HI_SEEK(info->file_external, access_rec->posn + info->extern_offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HI_WRITE(info->file_external, data, length) == FAIL) { /* this external file might not be opened with write permission, reopen the file and try again */ hdf_file_t f = (hdf_file_t)HI_OPEN(info->extern_file_name, DFACC_WRITE); if (OPENERR(f) || HI_SEEK(f, access_rec->posn + info->extern_offset) == FAIL || HI_WRITE(f, data, length) == FAIL) { HI_CLOSE(f); HGOTO_ERROR(DFE_DENIED, FAIL); } HI_CLOSE(info->file_external); /* if okay, substitute the file descriptor */ info->file_external = f; } } /* update access record, and information about special elelemt */ access_rec->posn += length; if (access_rec->posn > info->length) { int32 data_off; /* offset of the data we are checking */ info->length = access_rec->posn; INT32ENCODE(p, info->length); /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (HPseek(file_rec, data_off + 2) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, local_ptbuf, 4) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } ret_value = length; /* return length of bytes written */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPwrite */ /* ------------------------------ HXPinquire ------------------------------ */ /* NAME HXPinquire -- retreive information about an external element USAGE int32 HXPinquire(access_rec, file, tag, ref, len, off, pos, acc, sp) access_t * access_rec; IN: access record to return info about uint16 * file; OUT: file ID; uint16 * tag; OUT: tag of info record; uint16 * ref; OUT: ref of info record; int32 * len; OUT: length of element; int32 * off; OUT: offset of element (NOT correct); int32 * pos; OUT: current position in element; int16 * acc; OUT: access mode; int16 * sp; OUT: special code; RETURNS SUCCEED DESCRIPTION Return interesting information about an external element. NULL can be passed for any of the OUT parameters if their value is not needed. BUG: The offset returned is not correct. ---------------------------------------------------------------------------*/ int32 HXPinquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HXPinquire"); /* for HERROR */ extinfo_t *info = /* special information record */ (extinfo_t *) access_rec->special_info; uint16 data_tag,data_ref; /* tag/ref of the data we are checking */ int32 ret_value = SUCCEED; /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id) *pfile_id = access_rec->file_id; if (ptag) *ptag = data_tag; if (pref) *pref = data_ref; if (plength) *plength = info->length; if (poffset) *poffset = 0; /* meaningless -- actually not anymore */ if (pposn) *pposn = access_rec->posn; if (paccess) *paccess = (int16)access_rec->access; if (pspecial) *pspecial = (int16)access_rec->special; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPinquire */ /* ----------------------------- HXPendaccess ----------------------------- */ /* NAME HXPendacess -- close file, free AID USAGE intn HXPendaccess(access_rec) access_t * access_rec; IN: access record to close RETURNS SUCCEED / FAIL DESCRIPTION Close the file pointed to by the current AID and free the AID ---------------------------------------------------------------------------*/ intn HXPendaccess(accrec_t * access_rec) { CONSTR(FUNC, "HXPendaccess"); /* for HERROR */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* close the file pointed to by this access rec */ HXPcloseAID(access_rec); /* update file and access records */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* validate file record */ if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* detach from the file */ file_rec->attach--; /* free the access record */ HIrelease_accrec_node(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPendaccess */ /* ----------------------------- HXPcloseAID ------------------------------ */ /* NAME HXPcloseAID -- close file but keep AID active USAGE int32 HXPcloseAID(access_rec) access_t * access_rec; IN: access record of file to close RETURNS SUCCEED / FAIL DESCRIPTION close the file currently being pointed to by this AID but do *NOT* free the AID. This is called by Hnextread() which reuses an AID to point to the 'next' object as requested. If the current object was an external object, the external file needs to be closed before all reference to it is lost. ---------------------------------------------------------------------------*/ int32 HXPcloseAID(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HXPcloseAID"); /* for HERROR */ #endif /* LATER */ extinfo_t *info = /* special information record */ (extinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* detach the special information record. If no more references to that, free the record */ if (--(info->attached) == 0) { if (info->file_open) HI_CLOSE(info->file_external); HDfree(info->extern_file_name); HDfree(info); access_rec->special_info=NULL; } #ifdef LATER done: #endif /* LATER */ if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPcloseAID */ /* ------------------------------- HXPinfo -------------------------------- */ /* NAME HXPinfo -- return info about an external element USAGE int32 HXPinfo(access_rec, info_block) accrec_t * access_rec; IN: access record of element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given external element. Info_block is assumed to be non-NULL. Do not make a copy of the path, just have the info_block copy point to our local copy. --------------------------------------------------------------------------- */ int32 HXPinfo(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HXPinfo"); /* for HERROR */ extinfo_t *info = /* special information record */ (extinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate access record */ if (access_rec->special != SPECIAL_EXT) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_block */ info_block->key = SPECIAL_EXT; info_block->offset = info->extern_offset; info_block->length = info->length; info_block->length_file_name = info->length_file_name; info_block->path = info->extern_file_name; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPinfo */ /* ------------------------------- HXPreset ------------------------------- */ /* NAME HXPreset -- replace the current external info with new info USAGE int32 HXPreset(access_rec, info_block) accrec_t * access_rec; IN: access record of element sp_info_block_t * info_block; IN: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Reset information about the given external element. Info_block is assumed to be non-NULL. Basically, what this routine does is throw out the old file information for a special element and replaces it with a new file name. This is useful for when a file has changed places. The offset and length are assumed to be the same. ---------------------------------------------------------------------------*/ int32 HXPreset(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HXPreset"); /* for HERROR */ filerec_t *file_rec; /* file record */ uint8 local_ptbuf[14 + MAX_PATH_LEN]; /* temp buffer */ extinfo_t *info = /* special information record */ (extinfo_t *) access_rec->special_info; int32 new_len, new_off; /* new length & offset of the special info */ int32 ret_value = SUCCEED; /* validate access record -- make sure is already external element */ if (access_rec->special != SPECIAL_EXT) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* just replace with other external element info for now */ /* (i.e., this can not change the type of special element */ if (info_block->key != SPECIAL_EXT) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check validity of file record */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* update our internal pointers */ info->extern_offset = info_block->offset; info->extern_file_name = (char *) HDstrdup(info_block->path); if (!info->extern_file_name) HGOTO_ERROR(DFE_NOSPACE, FAIL); info->length_file_name = (int32)HDstrlen(info->extern_file_name); /* * delete the existing tag / ref object * accomplish this by changing the offset and length of the existing * special element DD and writing it in a new place */ new_len=14+info->length_file_name; if ((new_off=HPgetdiskblock(file_rec, new_len, TRUE)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* write the new external file record */ { uint8 *p = local_ptbuf; INT16ENCODE(p, SPECIAL_EXT); INT32ENCODE(p, info->length); INT32ENCODE(p, info->extern_offset); INT32ENCODE(p, info->length_file_name); HDstrcpy((char *) p, (char *) info->extern_file_name); } /* write out the new external file record */ if (HP_write(file_rec, local_ptbuf, new_len) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* update the DD block in the file */ if (HTPupdate(access_rec->ddid, new_off, new_len) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXPreset */ static char* extcreatedir = NULL; static char* HDFEXTCREATEDIR = NULL; static char* extdir = NULL; static char* HDFEXTDIR = NULL; /*------------------------------------------------------------------------ NAME HXsetcreatedir -- set the directory variable for creating external file USAGE intn HXsetcreatedir(dir) const char *dir IN: directory for creating external file RETURNS SUCCEED if no error, else FAIL DESCRIPTION Set up the directory variable for creating external file. The directory content is copied into HXsetcreatedir area. If dir is NULL, the directory variable is unset. If error encountered during setup, previous value of createdir is not changed. FORTRAN hxscdir --------------------------------------------------------------------------*/ intn HXsetcreatedir(const char *dir) { CONSTR(FUNC, "HXsetcreatedir"); char *pt; intn ret_value = SUCCEED; if (dir) { if (!(pt = HDstrdup(dir))) HGOTO_ERROR(DFE_NOSPACE, FAIL); } else pt = NULL; /* will reset extcreatedir to NULL */ if (extcreatedir) HDfree(extcreatedir); extcreatedir = pt; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXsetcreatedir */ /*------------------------------------------------------------------------ NAME HXsetdir -- set the directory variable for locating external file USAGE intn HXsetdir(dir) const char *dir IN: directory for locating external file RETURNS SUCCEED if no error, else FAIL DESCRIPTION Set up the directory variable for locating external file. It can contain multiple directories separated by colons. The directory content is copied into HXsetdir area. If dir is NULL, the directory variable is unset. If error encountered during setup, previous value of extdir is not changed. FORTRAN hxsdir --------------------------------------------------------------------------*/ intn HXsetdir(const char *dir) { CONSTR(FUNC, "HXsetdir"); char *pt; intn ret_value = SUCCEED; if (dir) { if (!(pt = HDstrdup(dir))) HGOTO_ERROR(DFE_NOSPACE, FAIL); } else pt = NULL; /* will reset extdir to NULL */ if (extdir) HDfree(extdir); extdir = pt; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXsetdir */ /* ------------------------------- HXIbuildfilename ------------------------------- */ /* NAME HXIbuildfilename -- Build the Filename for the External Element USAGE char* HXIbuildfilename(char *ext_fname, const intn acc_mode) char * ext_fname; IN: external filename as stored intn acc_mode; IN: access mode RETURNS finalpath / NULL DESCRIPTION Compose the external object file name. [More detail later.] ---------------------------------------------------------------------------*/ /* the following can be sped up by doing my own copying instead of scanning */ /* for end-of-line two extra times, or even use memcpy since the string lengths */ /* are calculated already. For now, it works. */ #define HDstrcpy3(s1, s2, s3, s4) (HDstrcat(HDstrcat(HDstrcpy(s1, s2),s3),s4)) #define HDstrcpy4(s1, s2, s3, s4, s5) (HDstrcat(HDstrcat(HDstrcat(HDstrcpy(s1, s2),s3),s4),s5)) PRIVATE char * HXIbuildfilename(const char *ext_fname, const intn acc_mode) { CONSTR(FUNC, "HXIbuildfilename"); int fname_len; /* string length of the ext_fname */ int path_len; /* string length of prepend pathname */ static int firstinvoked = 1; /* true if invoked the first time */ char *finalpath = NULL; /* Final pathname to return */ const char *fname = NULL; struct stat filestat; /* for checking pathname existence */ char *ret_value = NULL; /* FAIL */ /* initialize HDFEXTDIR and HDFCREATEDIR if invoked the first time */ if (firstinvoked){ firstinvoked = 0; HDFEXTCREATEDIR = HDgetenv("HDFEXTCREATEDIR"); HDFEXTDIR = HDgetenv("HDFEXTDIR"); } if (!ext_fname) HGOTO_ERROR(DFE_ARGS, NULL); fname = ext_fname; /* get the space for the final pathname */ if (!(finalpath=HDmalloc(MAX_PATH_LEN))) HGOTO_ERROR(DFE_NOSPACE, NULL); fname_len = (int)HDstrlen(fname); switch (acc_mode){ case DFACC_CREATE: { /* Creating a new external element */ if ( *fname == DIR_SEPC ) { /* Absolute Pathname */ ret_value = (HDstrcpy(finalpath, fname)); goto done; } else { /* Relative Pathname */ /* try function variable */ if (extcreatedir) { path_len = (int)HDstrlen(extcreatedir); if (fname_len + 1 + path_len + 1 > MAX_PATH_LEN ) HGOTO_ERROR(DFE_NOSPACE, NULL); ret_value = (HDstrcpy3(finalpath, extcreatedir, DIR_SEPS, fname)); goto done; } /* try Envrironment Variable */ if (HDFEXTCREATEDIR) { path_len = (int)HDstrlen(HDFEXTCREATEDIR); if (fname_len + 1 + path_len + 1 > MAX_PATH_LEN ) HGOTO_ERROR(DFE_NOSPACE, NULL); ret_value = (HDstrcpy3(finalpath, HDFEXTCREATEDIR, DIR_SEPS, fname)); goto done; } /* try Head File Directory */ /* Don't have Head File information now. Continue */ /* Just return the ext_fname */ ret_value = (HDstrcpy(finalpath, fname)); goto done; } /* break; */ } /*DFACC_CREATE */ case DFACC_OLD:{ /* Locating an old external element */ if ( *fname == DIR_SEPC ) { /* Absolute Pathname */ if (HDstat(fname, &filestat) == 0){ ret_value = (HDstrcpy(finalpath, fname)); goto done; } else if (!extdir && !HDFEXTDIR) { HGOTO_ERROR(DFE_FNF, NULL); } /* strip the pathname component */ fname = HDstrrchr(fname, DIR_SEPC) + 1; fname_len = (int)HDstrlen(fname); /* continue to Relative Pathname */ } /* Relative Pathname */ { char *dir_pt, *path_pt; /* temporary pointers */ /* try function variable */ if (extdir) { dir_pt = extdir; while (*dir_pt){ /* extract one extdir component to finalpath */ path_len = 0; path_pt = finalpath; while (*dir_pt && *dir_pt != DIR_PATH_SEPC){ if (path_len >= MAX_PATH_LEN) HGOTO_ERROR(DFE_NOSPACE, NULL); *path_pt++ = *dir_pt++; path_len++; } if (*dir_pt == DIR_PATH_SEPC) dir_pt++; *path_pt++ = DIR_SEPC; path_len++; if (fname_len + path_len + 1 > MAX_PATH_LEN ) HGOTO_ERROR(DFE_NOSPACE, NULL); HDstrcpy(path_pt, fname); if (HDstat(finalpath, &filestat) == 0 ){ ret_value = finalpath; goto done; } } } /* try Envrironment Variable */ if (HDFEXTDIR) { dir_pt = HDFEXTDIR; while (*dir_pt){ /* extract one HDFEXTDIR component to finalpath */ path_len = 0; path_pt = finalpath; while (*dir_pt && *dir_pt != DIR_PATH_SEPC){ if (path_len >= MAX_PATH_LEN) HGOTO_ERROR(DFE_NOSPACE, NULL); *path_pt++ = *dir_pt++; path_len++; } if (*dir_pt == DIR_PATH_SEPC) dir_pt++; *path_pt++ = DIR_SEPC; path_len++; if (fname_len + path_len + 1 > MAX_PATH_LEN ) HGOTO_ERROR(DFE_NOSPACE, NULL); HDstrcpy(path_pt, fname); if (HDstat(finalpath, &filestat) == 0 ){ ret_value = finalpath; goto done; } } } /* try Head File Directory */ /* Don't have Head File information now. Continue */ /* See if the file exists */ if (HDstat(fname, &filestat) == 0 ) { ret_value = (HDstrcpy(finalpath, fname)); goto done; } /* All have failed */ ret_value = NULL; goto done; } /* break; */ } /* DFACC_OLD */ default: HDfree(finalpath); HGOTO_ERROR(DFE_ARGS, NULL); } done: if(ret_value == NULL) { /* Error condition cleanup */ if (finalpath != NULL) HDfree(finalpath); /* free this */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HXIbuildfilename */ /*------------------------------------------------------------------------ NAME HXPshutdown -- free any memory buffers we've allocated USAGE intn HXPshutdown() RETURNS SUCCEED/FAIL DESCRIPTION Free buffers we've allocated during the execution of the program. --------------------------------------------------------------------------*/ intn HXPshutdown(void) { if(extcreatedir!=NULL) { HDfree(extcreatedir); extcreatedir=NULL; } /* end if */ if(HDFEXTCREATEDIR!=NULL) { HDFEXTCREATEDIR=NULL; } /* end if */ if(extdir!=NULL) { HDfree(extdir); extdir=NULL; } /* end if */ if(HDFEXTDIR!=NULL) { HDFEXTDIR=NULL; } /* end if */ return(SUCCEED); } /* end HXPshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hchunks.h0000644000000000000000000003245012421456623014256 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hchunks.h 5494 2010-11-01 05:10:53Z bmribler $ */ /*----------------------------------------------------------------------------- * File: hchunks.h * Purpose: Header file for Chunked elements * Dependencies: tbbt.c mcache.c * Invokes: none * Contents: Structures & definitions for chunked elements * Structure definitions: DIM_DEF, HCHUNK_DEF * Constant definitions: * Author: -GeorgeV - 9/3/96 *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __HCHUNKS_H #define __HCHUNKS_H #include "H4api_adpt.h" /* required includes */ #include "hfile.h" /* special info stuff */ #ifdef _HCHUNKS_MAIN_ /* Private to 'hchunks.c' */ #include "tbbt.h" /* TBBT stuff */ #include "mcache.h" /* caching routines */ #include "hcomp.h" /* For Compression */ /* Define class, class version and name(partial) for chunk table i.e. Vdata */ #if 0 /* moved definition of class of vdata to hlimits.h */ #define _HDF_CHK_TBL_CLASS "_HDF_CHK_TBL_" /* 13 bytes */ #define _HDF_CHK_TBL_CLASS_VER 0 /* zero version number for class */ #endif /* moved definition of class of vdata to hlimits.h */ #define _HDF_CHK_TBL_NAME "_HDF_CHK_TBL_" /* 13 bytes */ /* Define field name for each chunk record i.e. Vdata record */ #define _HDF_CHK_FIELD_1 "origin" /* 6 bytes */ #define _HDF_CHK_FIELD_2 "chk_tag" /* 7 bytes */ #define _HDF_CHK_FIELD_3 "chk_ref" /* 7 bytes */ #define _HDF_CHK_FIELD_NAMES "origin,chk_tag,chk_ref" /* 22 bytes */ /* Define version number for chunked header format */ #define _HDF_CHK_HDR_VER 0 /* zero version for format header */ #endif /* _HCHUNKS_MAIN_ */ /* Public structures */ /* Structure for each Data array dimension Defintion */ typedef struct dim_def_struct { int32 dim_length; /* length of this dimension */ int32 chunk_length; /* chunk length along this dimension */ int32 distrib_type; /* Data distribution along this dimension */ } DIM_DEF, * DIM_DEF_PTR; /* Structure for each Chunk Definition*/ typedef struct hchunk_def_struct { int32 chunk_size; /* size of this chunk*/ int32 nt_size; /* number type size i.e. size of data type */ int32 num_dims; /* number of actual dimensions */ DIM_DEF *pdims; /* ptr to array of dimension records for this chunk*/ int32 chunk_flag; /* multiply specialness? SPECIAL_COMP */ /* For Compression info */ comp_coder_t comp_type; /* Compression type */ comp_model_t model_type; /* Compression model type */ comp_info *cinfo; /* Compression info struct */ model_info *minfo; /* Compression model info struct */ }HCHUNK_DEF, * HCHUNK_DEF_PTR; /* Private structues */ #ifdef _HCHUNKS_MAIN_ /* Private to 'hchunks.c' */ /* Structure for each Data array dimension */ typedef struct dim_rec_struct { /* fields stored in chunked header */ int32 flag; /* distrib_type(low 8 bits 0-7) - Data distribution along this dimension other(medium low 8 bits 8-15) - regular/unlimited dimension? */ int32 dim_length; /* length of this dimension */ int32 chunk_length; /* chunk length along this dimension */ /* info determined from 'flag' field */ int32 distrib_type; /* Data distribution along this dimension */ int32 unlimited; /* regular(0) or unlimited dimension(1) */ /* computed fields */ int32 last_chunk_length; /* last chunk length along this dimension */ int32 num_chunks; /* i.e. "dim_length / chunk_length" */ } DIM_REC, * DIM_REC_PTR; /* Structure for each Chunk */ typedef struct chunk_rec_struct { int32 chunk_number; /* chunk number from coordinates i.e. origin */ int32 chk_vnum; /* chunk vdata record number i.e. position in table*/ /* chunk record fields stored in Vdata Table */ int32 *origin; /* origin -> position of chunk */ uint16 chk_tag; /* DFTAG_CHUNK or another Chunked element? */ uint16 chk_ref; /* reference number of this chunk */ }CHUNK_REC, * CHUNK_REC_PTR; /* information on this special chunk data elt */ typedef struct chunkinfo_t { intn attached; /* how many access records refer to this elt */ int32 aid; /* Access id of chunk table i.e. Vdata */ /* chunked element format header fields */ int32 sp_tag_header_len; /* length of the special element header */ uint8 version; /* Version of this Chunked element */ int32 flag; /* flag for multiply specialness ...*/ int32 length; /* the actual length of the data elt */ int32 chunk_size; /* the logical size of the chunks */ int32 nt_size; /* number type size i.e. size of data type */ uint16 chktbl_tag; /* DFTAG_VH - Vdata header */ uint16 chktbl_ref; /* ref of the first chunk table structure(VDATA) */ uint16 sp_tag; /* For future use.. */ uint16 sp_ref; /* For future use.. */ int32 ndims; /* number of dimensions of chunk */ DIM_REC *ddims; /* array of dimension records */ int32 fill_val_len; /* fill value number of bytes */ VOID *fill_val; /* fill value */ /* For each specialness, only one for now SPECIAL_COMP */ int32 comp_sp_tag_head_len; /* Compression header length */ VOID *comp_sp_tag_header; /* compression header */ /* For Compression info */ comp_coder_t comp_type; /* Compression type */ comp_model_t model_type; /* Compression model type */ comp_info *cinfo; /* Compression info struct */ model_info *minfo; /* Compression model info struct */ /* additional memory resident data structures to be used */ int32 *seek_chunk_indices; /* chunk array indicies relative to the other chunks */ int32 *seek_pos_chunk; /* postion within the current chunk */ int32 *seek_user_indices; /* user postion within the element */ TBBT_TREE *chk_tree; /* TBBT tree of all accessed table entries i.e. CHUNK_REC's read/written/modified */ MCACHE *chk_cache; /* chunk cache */ int32 num_recs; /* number of Table(Vdata) records */ } chunkinfo_t; #endif /* _HCHUNKS_MAIN_ */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from hchunks.c */ /* User Public */ HDFLIBAPI int32 HMCcreate (int32 file_id, /* IN: file to put linked chunk element in */ uint16 tag, /* IN: tag of element */ uint16 ref, /* IN: ref of element */ uint8 nlevels, /* IN: number of levels of chunks */ int32 fill_val_len, /* IN: fill value length in bytes */ VOID *fill_val, /* IN: fill value */ HCHUNK_DEF *chk_array /* IN: structure describing chunk distribution can be an array? but we only handle 1 level */); HDFLIBAPI intn HMCgetcompress (accrec_t* access_rec, /* IN: access record */ comp_coder_t* comp_type, /* OUT: compression type */ comp_info* c_info /* OUT: retrieved compression info */); HDFLIBAPI intn HMCgetcomptype (int32 access_id, /* IN: access record */ comp_coder_t* comp_type /* OUT: compression type */); HDFLIBAPI intn HMCgetdatainfo (int32 file_id, /* IN: file in which element is located */ uint16 data_tag, uint16 data_ref, int32 *chk_coord, /* IN: chunk coord array or NULL for non-chunk SDS */ uintn start_block,/* IN: data block to start at, 0 base */ uintn info_count, /* IN: size of offset/length lists */ int32 *offsetarray, /* OUT: array to hold offsets */ int32 *lengtharray); /* OUT: array to hold lengths */ HDFLIBAPI intn HMCgetdatasize (int32 file_id, /* IN: file in which element is located */ uint8 *p, /* IN: buffer of special info header */ int32 *comp_size, /* OUT: size of compressed data */ int32 *orig_size /* OUT: size of non-compressed data */); HDFLIBAPI int32 HMCsetMaxcache (int32 access_id, /* IN: access aid to mess with */ int32 maxcache, /* IN: max number of pages to cache */ int32 flags /* IN: flags = 0, HMC_PAGEALL */); HDFLIBAPI int32 HMCwriteChunk (int32 access_id, /* IN: access aid to mess with */ int32 *origin, /* IN: origin of chunk to write */ const VOID *datap /* IN: buffer for data */); HDFLIBAPI int32 HMCreadChunk (int32 access_id, /* IN: access aid to mess with */ int32 *origin, /* IN: origin of chunk to read */ VOID *datap /* IN: buffer for data */); HDFLIBAPI int32 HMCPcloseAID (accrec_t *access_rec /* IN: access record of file to close */); HDFLIBAPI int32 HMCPgetnumrecs /* has to be here because used in hfile.c */ (accrec_t * access_rec, /* IN: access record to return info about */ int32 *num_recs /* OUT: length of the chunked elt */); /* Library Private */ #ifdef _HCHUNKS_MAIN_ /* tbbt.h helper routines */ intn chkcompare(void * k1, /* IN: first key */ void * k2, /* IN: second key */ intn cmparg /* IN: not sure? */); void chkfreekey(void * key /*IN: chunk key */ ); void chkdestroynode(void * n /* IN: chunk record */ ); /* Private to 'hchunks.c' */ extern int32 HMCPstread (accrec_t *access_rec /* IN: access record to fill in */); extern int32 HMCPstwrite (accrec_t *access_rec /* IN: access record to fill in */); extern int32 HMCPseek (accrec_t *access_rec, /* IN: access record to mess with */ int32 offset, /* IN: seek offset */ int origin /* IN: where we should calc the offset from */); extern int32 HMCPchunkread (VOID *cookie, /* IN: access record to mess with */ int32 chunk_num, /* IN: chunk to read */ VOID *datap /* OUT: buffer for data */); extern int32 HMCPread (accrec_t * access_rec, /* IN: access record to mess with */ int32 length, /* IN: number of bytes to read */ void * data /* OUT: buffer for data */); extern int32 HMCPchunkwrite (VOID *cookie, /* IN: access record to mess with */ int32 chunk_num, /* IN: chunk number */ const VOID *datap /* IN: buffer for data */); extern int32 HMCPwrite (accrec_t *access_rec, /* IN: access record to mess with */ int32 length, /* IN: number of bytes to write */ const void * data /* IN: buffer for data */); extern intn HMCPendaccess (accrec_t *access_rec /* IN: access record to close */); extern int32 HMCPinfo (accrec_t *access_rec, /* IN: access record of access elemement */ sp_info_block_t *info_chunk /* OUT: information about the special element */); extern int32 HMCPinquire (accrec_t * access_rec, /* IN: access record to return info about */ int32 *pfile_id, /* OUT: file ID; */ uint16 *ptag, /* OUT: tag of info record; */ uint16 *pref, /* OUT: ref of info record; */ int32 *plength, /* OUT: length of element; */ int32 *poffset, /* OUT: offset of element -- meaningless */ int32 *pposn, /* OUT: current position in element; */ int16 *paccess, /* OUT: access mode; */ int16 *pspecial /* OUT: special code; */); #endif /* _HCHUNKS_MAIN_ */ #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #ifndef _HCHUNKS_MAIN_ /* not in master file hchunk.c */ extern funclist_t chunked_funcs; /* functions to perform chunking */ #else /* in hchunks.c */ /* the accessing special function table for chunks */ funclist_t chunked_funcs = { HMCPstread, HMCPstwrite, HMCPseek, HMCPinquire, HMCPread, HMCPwrite, HMCPendaccess, HMCPinfo, NULL /* no routine registerd */ }; #endif #endif /* __HCHUNKS_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/crle.h0000644000000000000000000001146112421456623013537 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: crle.h 5705 2011-10-26 12:45:21Z bmribler $ */ /*----------------------------------------------------------------------------- * File: crle.h * Purpose: Header file for run-length encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for run-length encoding. This header * should only be included in hcomp.c and crle.c. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CRLE_H #define __CRLE_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from crle.c */ extern int32 HCPcrle_stread (accrec_t * rec); extern int32 HCPcrle_stwrite (accrec_t * rec); extern int32 HCPcrle_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcrle_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcrle_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcrle_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcrle_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* size of the RLE buffer */ #define RLE_BUF_SIZE 128 /* NIL code for run bytes */ #define RLE_NIL (-1) /* minimum length of run */ #define RLE_MIN_RUN 3 /* maximum length of run */ #define RLE_MAX_RUN (RLE_BUF_SIZE+RLE_MIN_RUN-1) /* minimum length of mix */ #define RLE_MIN_MIX 1 /* * Notes on RLE_MIN_RUN and RLE_MIN_MIX: * (excerpt from QAK's email to RA - see bug HDFFR-1261) * * These are [small] optimizations for improving the compression ratio. The * algorithm won't encode a run of identical bytes unless it's at least * RLE_MIN_RUN bytes long. So, we can assume that all runs are at least * that many bytes, and subtract RLE_MIN_RUN from the actual run length, * allowing encoding of runs that are a little bit longer than otherwise * allowed (i.e. runs up to 127+RLE_MIN_RUN bytes, instead of only 127 bytes). * Similarly for RLE_MIN_MIX - there must be at least RLE_MIN_MIX bytes in a * "mixed" sequence of bytes, so we can encode a little bit longer sequence * of mixed bytes (127+RLE_MIN_MIX bytes, instead of only 127 bytes). */ /* RLE [en|de]coding information */ typedef struct { int32 offset; /* offset in the file */ uint8 buffer[RLE_BUF_SIZE]; /* buffer for storing RLE bytes */ intn buf_length; /* number of bytes in buffer */ intn buf_pos; /* offset into the buffer */ uintn last_byte, /* the last byte stored in the buffer */ second_byte; /* the second to last byte stored in the buffer */ enum { RLE_INIT, /* initial state, need to read a byte to determine the next state */ RLE_RUN, /* buffer up to the current position is a run */ RLE_MIX /* buffer up to the current position is a mix */ } rle_state; /* state of the buffer storage */ } comp_coder_rle_info_t; #ifndef CRLE_MASTER extern funclist_t crle_funcs; /* functions to perform run-length encoding */ #else funclist_t crle_funcs = { /* functions to perform run-length encoding */ HCPcrle_stread, HCPcrle_stwrite, HCPcrle_seek, HCPcrle_inquire, HCPcrle_read, HCPcrle_write, HCPcrle_endaccess }; #endif #endif /* __CRLE_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vg.c0000644000000000000000000015647712421456623013242 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5697 $"; #endif /* vg.c,v 1.15.4.1 1993/10/26 19:25:07 georgev Exp */ /* FILE vg.c HDF vdata routines and some vgroup routines LOCAL ROUTINES ============== VSIgetvdatas -- get vdatas of a specified class or created by user applications, i.e., not created by the library internally for storage. Currently used by VSgetvdatas and VSofclass. EXPORTED ROUTINES ================= VSelts -- number of elements in a vdata VSgetinterlace -- returns the interlace type of the vdata VSsetinterlace -- sets the vdata's interlace to full or none VSgetfields -- returns the fieldnames in a vdata VSfexist -- tests for existence of one or more fields in a vdata VSsizeof -- computes the byte size of the field(s) if a vdata VSdump -- prints contents of a vdata (for debugging) VSsetname -- associate a name with a vdata VSsetclass -- assigns a class name to a vdata VSgetname -- gets the vdata's name VSgetclass -- gets the vdata's class name VSinquire -- gets information about a vdata VSisinternal -- determines if a class name is for internal use only VSlone -- returns an array of refs of all lone vdatas in the file Vlone -- returns an array of refs of all lone vgroups in the file Vfind -- looks in the file for a vgroup with a given name VSfind -- looks in the file for a vdata with a given name Vfindclass -- looks in the file and returns the ref of the vgroup with the specified class VSfindclass -- looks in the file and returns the ref of the vdata with specified class VSsetblocksize -- sets the block size of the linked-block element. VSsetnumblocks -- sets the number of blocks for a linked-block element. VSgetblockinfo -- retrieves the block size and the number of blocks of a linked-block element. Vsetzap -- maintaind for back compatibility PRIVATE FUNCTIONS ================= matchnocase -- compares to strings, ignoring case vscheckclass -- checks if a given vdata has the specified class or if it is user-created, which means its class name is not one of the predefined HDF classes. PRIVATE functions manipulate vsdir and are used only within this file. PRIVATE data structures in here pertain to vdata in vsdir only. */ #define VSET_INTERFACE #include "hdf.h" /* These are used to determine whether a vdata had been created by the library internally, that is, not created by user's application */ #define HDF_NUM_INTERNAL_VDS 8 const char *HDF_INTERNAL_VDS[] = {DIM_VALS, DIM_VALS01, _HDF_ATTRIBUTE, _HDF_SDSVAR, _HDF_CRDVAR, "_HDF_CHK_TBL_", RIGATTRNAME, RIGATTRCLASS}; /* Private functions */ #ifdef VDATA_FIELDS_ALL_UPPER PRIVATE int32 matchnocase (char *strx, char *stry); #endif /* VDATA_FIELDS_ALL_UPPER */ #ifdef VDATA_FIELDS_ALL_UPPER /*----------------------------------------------------------------- NAME matchnocase - (PRIVATE) compares 2 strings, ignoring case DESCRIPTION Private routine. RETURNS if strings match return TRUE, else FALSE --------------------------------------------------------------------*/ PRIVATE int32 matchnocase(char *strx, /* IN: first string to be compared */ char *stry /* IN: second string to be compared */) { int32 i; int32 nx, ny; /* length of strings */ nx = HDstrlen(strx); ny = HDstrlen(stry); if (nx != ny) return (FALSE); /* different lengths */ for (i = 0; i < nx; i++, strx++, stry++) { if (toupper(*strx) != toupper(*stry)) return (FALSE); /* not identical */ } return (TRUE); } /* matchnocase */ #endif /* VDATA_FIELDS_ALL_UPPER */ /* ------------------------------------------------------------------ NAME VSelts -- get number of elements in a vdata DESCRIPTION Gets the number of elements in the specified vdata RETURNS On success returns the number of elements in the VDATA vkey; returns FAIL on error. --------------------------------------------------------------------- */ int32 VSelts(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSelts"); /* make sure vdata key is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if ((vs == NULL) || (vs->otag != DFTAG_VH)) HGOTO_ERROR(DFE_ARGS, FAIL); /* return number of elements in vdata */ ret_value = (vs->nvertices); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSelts */ /* ------------------------------------------------------------------ NAME VSgetinterlace -- gets interlace of the vdata vkey. DESCRIPTION Gets the interlace scheme for the specified vdata. RETURNS On success returns the interlace scheme used in the fil) of the specified vdata vkey. returns FAIL on error. ----------------------------------------------------------------------- */ int32 VSgetinterlace(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetinterlace"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* return interlace of vdata */ ret_value = ((int32) (vs->interlace)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetinterlace */ /*------------------------------------------------------------------ NAME VSsetinterlace -- sets the vdata's interlace to full or none. DESCRIPTION Sets the interlace scheme for the vdata to one of FULL_INTERLACE or NO_INTERLACE. RETURNS SUCCEED/FAIL --------------------------------------------------------------------*/ intn VSsetinterlace(int32 vkey, /* IN: vdata key */ int32 interlace /* IN: interlace for storing records */ ) { vsinstance_t *w = NULL; VDATA *vs = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "VSsetinterlace"); /* check key is valid vdata */ if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* check if only read access, this is a failure */ if (vs->access == 'r') HGOTO_ERROR(DFE_RDONLY, FAIL); /* check if records have already been written out, cannot reset interlace in this case */ if (vs->nvertices > 0) HGOTO_ERROR(DFE_NORESET, FAIL); /* currently only 2 kinds of interlaced schemes allowed. */ if (interlace == FULL_INTERLACE || interlace == NO_INTERLACE) { vs->interlace = (int16) interlace; ret_value = SUCCEED; /* ok */ } else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetinterlace */ /*------------------------------------------------------------------ NAME VSgetfields -- returns the name (if any) of all the fields in the vdata DESCRIPTION Returns the names of all the fields in comma seperated string in the argument 'fields'. (e.g., "PX,PY"). RETURNS Returns FAIL on error, else the number of fields in the vdata. ----------------------------------------------------------------------*/ int32 VSgetfields(int32 vkey, /* IN: vdata key */ char *fields /* OUT: comman seperated field name list */) { int32 i; vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetfields"); /* check if a NULL field list is passed in, then return with error (found while fixing bug #554) - BMR 4/30/01 */ if (fields == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Got through Vdata and build the comman seperated string of field names */ fields[0] = '\0'; /* No special handling for 0-field vdatas, this algorithm should work fine. */ for (i = 0; i < vs->wlist.n; i++) { /* build the comma-separated string */ HDstrcat(fields, vs->wlist.name[i]); if (i < vs->wlist.n - 1) HDstrcat(fields, ","); } /* return number of fields */ ret_value = ((int32) vs->wlist.n); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetfields */ /*------------------------------------------------------------------ NAME VSfexist -- tests for existence of 1 or more fields in a vdata. DESCRIPTION The argument 'fields' is a string of comma-separated fieldnames (e.g. "PX,PY,PZ") to check for in vdata. RETURNS Returns SUCCEED if all fields exist else otherwise FAIL is returned. --------------------------------------------------------------------*/ intn VSfexist(int32 vkey, /* IN: vdata key */ char *fields /* IN: names of fields to check for */) { char **av = NULL; char *s = NULL; DYN_VWRITELIST *w = NULL; vsinstance_t *wi = NULL; VDATA *vs = NULL; int32 ac; int32 i, j; int32 found; intn ret_value = SUCCEED; CONSTR(FUNC, "VSfexist"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (wi = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* call scanattrs to parse the string */ if (scanattrs(fields, &ac, &av) < 0) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* get vdata itself and check it check also that more than one field in 'fields' */ vs = wi->vs; if ((vs == NULL) || (ac < 1)) HGOTO_ERROR(DFE_ARGS, FAIL); /* now check in vdata's field table for these field names */ w = &vs->wlist; for (i = 0; i < ac; i++) { found = 0; s = av[i]; /* No changes for 0-field Vdatas, this algorithm should work fine. */ for (j = 0; j < w->n; j++) { #ifdef VDATA_FIELDS_ALL_UPPER if (matchnocase(s, w->name[j])) { found = 1; break; } #else if (HDstrcmp(s, w->name[j]) == 0) { found = 1; break; } #endif /* VDATA_FIELDS_ALL_UPPER */ } if (!found) HGOTO_DONE(FAIL); } ret_value = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfexist */ /* ----------------------------------------------------------------- NAME VSsizeof - computes the byte size of the field(s) of a vdata. DESCRIPTION The size is the actual size for the local architecture RETURNS The byte size of the field(s), positive integer, on success; otherwise, returns FAIL. ----------------------------------------------------------------- */ int32 VSsizeof(int32 vkey, /* IN vdata key */ char *fields /* IN: Name(s) of the fields to check size of */ ) { int32 totalsize; int32 i, j; int32 found; int32 ac; char **av = NULL; vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSsizeof"); /* check key is valid vdata */ if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); totalsize = 0; if (fields == NULL) /* default case? */ { /* count all field sizes in vdata */ for (j = 0; j < vs->wlist.n; j++) totalsize += vs->wlist.esize[j]; } else { /* parse field string */ if ((scanattrs(fields, &ac, &av) < 0) || (ac < 1)) HGOTO_ERROR(DFE_ARGS, FAIL); for (i = 0; i < ac; i++) { /* check fields in vs */ for (found = 0, j = 0; j < vs->wlist.n; j++) if (!HDstrcmp(av[i], vs->wlist.name[j])) { totalsize += vs->wlist.esize[j]; found = 1; break; } if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); } /* end for */ } /* end else */ /* return total size of vdata fields specified */ ret_value = totalsize; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsizeof */ /*----------------------------------------------------------------- NAME VSdump - prints contents of a vdata (for debugging) DESCRIPTION Prints contents of a vdata (for debugging) RETURNS No return codes. -------------------------------------------------------------------*/ VOID VSdump(int32 vkey /* IN: vdata key */) { vkey = vkey; /* suppress warning */ } /* VSdump */ /*------------------------------------------------------- NAME VSsetname - give a name to a vdata. DESCRIPTION Truncates name to max length of VSNAMELENMAX If new name is longer than the current name set new_h_sz, so that VSdetach will delete the original vdata header and write a new header. RETURNS SUCCEED/FAIL ----------------------------------------------------------*/ int32 VSsetname(int32 vkey, /* IN: Vdata key */ const char *vsname /* IN: name to set for vdata*/) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 curr_len; int32 slen; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSsetname"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null vdata name */ if (vsname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* get current length of vdata name */ if (vs->vsname != NULL) curr_len = HDstrlen(vs->vsname); /* check length of new name against MAX length */ if ((slen = HDstrlen(vsname)) > VSNAMELENMAX) { /* truncate name */ HDstrncpy(vs->vsname, vsname, VSNAMELENMAX); vs->vsname[VSNAMELENMAX] = '\0'; } else /* copy whole name */ HDstrcpy(vs->vsname, vsname); vs->marked = TRUE; /* mark vdata as being modified */ if (curr_len < slen) vs->new_h_sz = TRUE; /* mark vdata header size being changed */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetname */ /* ------------------------------------------------------ NAME VSsetclass - give a class name to a vdata. DESCRIPTION Truncates class name to max length of VSNAMELENMAX If new class is longer than the current class set new_h_sz, so that VSdetach will delete the original vdata header and write a new header. RETURNS SUCCEED/FAIL ----------------------------------------------------------*/ int32 VSsetclass(int32 vkey, /* IN: vdata key */ const char *vsclass /* IN: class name to set for vdata */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 curr_len; int32 slen; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSsetclass"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null vdata class */ if (vsclass == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* get current length of vdata class name */ curr_len = (intn)HDstrlen(vs->vsclass); /* check length of new class name against MAX length */ if ((slen = (intn)HDstrlen(vsclass)) > VSNAMELENMAX) { HDstrncpy(vs->vsclass, vsclass, VSNAMELENMAX); vs->vsclass[VSNAMELENMAX] = '\0'; } else HDstrcpy(vs->vsclass, vsclass); vs->marked = TRUE; /* mark vdata as being modified */ if (curr_len < slen) vs->new_h_sz = TRUE; /* mark vdata header size being changed */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetclass */ /*------------------------------------------------------ NAME VSgetname - gets the vdata's name. DESCRIPTION Get vdata's name and comy it to 'vsname'. Space for 'vsname' must be allocated by user. RETURNS SUCCEED/FAIL ----------------------------------------------------------*/ int32 VSgetname(int32 vkey, /* IN: vdata key */ char *vsname /* OUT: vdata name (allocated by user)*/) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetname"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check user allocated space */ if (vsname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* copy vdata name over */ HDstrcpy(vsname, vs->vsname); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetname */ /*------------------------------------------------------ NAME VSgetclass - gets the vdata's class name. DESCRIPTION Get vdata class name and copy over to 'vsclass'. Space for 'vsclass' must be allocated by user. RETURNS SUCCEED/FAIL ---------------------------------------------------------- */ int32 VSgetclass(int32 vkey, /* IN: vdata key */ char *vsclass /* OUT: class name for vdata (allocated by user) */ ) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetclass"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check user allocated space */ if (vsclass == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* copy class name over */ HDstrcpy(vsclass, vs->vsclass); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetclass */ /* ------------------------------------------------------------------ NAME VSinquire - gets info about a vdata vkey: DESCRIPTION Get information about Vdata. Space for 'fields' and 'vsname' must be allocated by user. RETURNS SUCCEED/FAIL ------------------------------------------------------------------------*/ intn VSinquire(int32 vkey, /* IN: vdata key */ int32 *nelt, /* OUT: number of elements in vdata */ int32 *interlace, /* OUT: interlace scheme of vdata */ char *fields, /* OUT: comma seperated string of field names */ int32 *eltsize, /* OUT: total size of all fields in bytes */ char *vsname /* OUT: name of vdata */) { intn ret_value = SUCCEED; intn status; CONSTR(FUNC, "VSinquire"); /* check key is valid vdata */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* obtain the value for each parameter although the previous one fails; ret_value should be FAIL if any of the parameters fails */ if (fields) { /* we assume 'fields' space has been pre-allocated by user? */ status = VSgetfields(vkey, fields); ret_value = (status == FAIL)? FAIL: ret_value; } if (nelt) { *nelt = VSelts(vkey); ret_value = (*nelt == FAIL)? FAIL: ret_value; } if (interlace) { *interlace = VSgetinterlace(vkey); ret_value = (*interlace == FAIL)? FAIL: ret_value; } if (eltsize) { *eltsize = VSsizeof(vkey, fields); ret_value = (*eltsize == FAIL)? FAIL: ret_value; } if (vsname) { /* we assume 'vsname' space as been pre-allocated by user? */ status = VSgetname(vkey, vsname); ret_value = (status == FAIL)? FAIL: ret_value; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; /* ok */ } /* VSinquire */ /*----------------------------------------------------------------- NAME VSlone - returns an array of refs of all lone vdatas in the file. DESCRIPTION If 'idarray' is too small, routine will only fill 'idarray' with up to 'asize' worth of refs. RETURNS Returns FAIL if error else returns the total number of lone vdatas in the file. ---------------------------------------------------------------------*/ int32 VSlone(HFILEID f, /* IN: file id */ int32 *idarray,/* OUT: array to return refs of lone vdatas? */ int32 asize /* IN: size of 'idarray' */) { int32 i; int32 vgid; int32 vsid; int32 vstag; int32 vkey; uint8 *lonevdata = NULL; /* lcl wrk area: stores flags of vdatas */ int32 nlone; /* total number of lone vdatas */ int32 ret_value = SUCCEED; CONSTR(FUNC, "VSlone"); /* -- allocate local space for vdata refs, init to zeros -- */ if (NULL == (lonevdata = (uint8 *) HDcalloc(MAX_REF , sizeof(uint8)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* -- look for all vdatas in the file, and flag (1) each -- */ vsid = -1; while (FAIL != (vsid = VSgetid(f, vsid))) /* until no more vdatas */ lonevdata[vsid] = 1; /* -- Look through all vgroups, searching for vdatas -- */ /* -- increment its index in lonevdata if found -- */ vgid = -1; while (FAIL != (vgid = Vgetid(f, vgid))) { /* until no more vgroups */ vkey = Vattach(f, vgid, "r"); /* attach to vgroup */ for (i = 0; i < Vntagrefs(vkey); i++) { Vgettagref(vkey, i, &vstag, &vsid); /* get tag/ref of element in vg */ if (vstag == (int32) DFTAG_VH) lonevdata[vsid] = 0; /* set vdata as not lone vdata */ } Vdetach(vkey); /* detach from vgroup */ } /* -- check in lonevdata: it's a lone vdata if its flag is still 1 -- */ nlone = 0; for (i = 0; i < (int32)MAX_REF; i++) { if (lonevdata[i]) { /* insert into idarray up till asize */ if (nlone < asize) idarray[nlone] = i; /* insert ref of vdata into idarray */ nlone++; } } /* free up locally allocated space */ HDfree((VOIDP) lonevdata); ret_value = nlone; /* return the TOTAL # of lone vdatas */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSlone */ /*----------------------------------------------------------------- NAME Vlone - returns an array of refs of all lone vgroups in the file. DESCRIPTION If 'idarray' is too small, routine will only fill 'idarray' with up to 'asize' worth of refs. RETURNS Returns FAIL if error else returns the total number of lone vgroups in the file ---------------------------------------------------------------------*/ int32 Vlone(HFILEID f, /* IN: file id */ int32 *idarray, /* OUT: array to return refs of lone vgroups? */ int32 asize /* IN: size of 'idarray' */) { int32 i; int32 vgid; int32 vstag; int32 id; int32 vkey; uint8 *lonevg = NULL; /* local wrk area: stores flags of vgroups */ int32 nlone; /* total number of lone vgroups */ int32 ret_value = SUCCEED; CONSTR(FUNC, "Vlone"); /* -- allocate space for vgroup refs, init to zeroes -- */ if (NULL == (lonevg = (uint8 *) HDcalloc(MAX_REF , sizeof(uint8)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* -- look for all vgroups in the file, and flag (1) each -- */ id = -1; while (FAIL != (id = Vgetid(f, id))) /* until no more vgroups */ lonevg[id] = 1; /* -- Look through all vgs, searching for vgroups -- */ /* -- increment its index in lonevg if found -- */ vgid = -1; while (FAIL != (vgid = Vgetid(f, vgid))) { /* until no more vgroups */ vkey = Vattach(f, vgid, "r"); /* attach to vgroup */ id = -1; for (i = 0; i < Vntagrefs(vkey); i++) { Vgettagref(vkey, i, &vstag, &id); /* get tag/ref of element in vg */ if (vstag == DFTAG_VG) lonevg[id] = 0; /* set vgroup as not lone vgroup */ } Vdetach(vkey); /* detach from vgroup */ } /* -- check in lonevg: it's a lone vgroup if its flag is still 1 -- */ nlone = 0; for (i = 0; i < (int32)MAX_REF; i++) { if (lonevg[i]) { /* insert into idarray up till asize */ if (nlone < asize) idarray[nlone] = i; /* insert ref of vgroup into idarray */ nlone++; } } /* free up locally allocated space */ HDfree((VOIDP) lonevg); ret_value = nlone; /* return the TOTAL # of lone vgroups */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vlone */ /* ----------------------------------------------------------------- NAME Vfind -- looks in the file and returns the ref of the vgroup with name vgname DESCRIPTION Finds the vgroup with the specified name and returns the ref of the vgroup if successful. RETURNS Returns 0 if not found or on error. Otherwise, returns the vgroup's ref (a positive integer). -----------------------------------------------------------------------*/ int32 Vfind(HFILEID f, /* IN: file id */ const char *vgname /* IN: name of vgroup to find */) { int32 vgid = -1; vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = 0; CONSTR(FUNC, "Vfind"); /* check for null vgroup name */ if (vgname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* process through Vgroups in file */ while (FAIL != (vgid = Vgetid(f, vgid))) { /* get instance of vgroup */ if((v = vginst(f,(uint16)vgid)) == NULL) HGOTO_DONE(0); /* get vgroup itself and check it */ vg = v->vg; if (vg == NULL) HGOTO_DONE(0); /* compare vgroup name to 'vgname' if it had been set */ if (vg->vgname != NULL) if (!HDstrcmp(vgname, vg->vgname)) HGOTO_DONE((int32)(vg->oref)); /* found the vgroup */ } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vfind */ /*------------------------------------------------------------------ NAME VSfind -- looks in the file and returns the ref of the vdata with name vsname DESCRIPTION Finds the vdata with the specified name and returns the ref of the vdata if successfull. RETURNS Returns 0 if not found, or on error. Otherwise, returns the vdata's ref (a positive integer). ---------------------------------------------------------------------*/ int32 VSfind(HFILEID f, /* IN: file id */ const char *vsname /* IN: name of vdata to find */) { int32 vsid = -1; vsinstance_t *v = NULL; VDATA *vs = NULL; int32 ret_value = 0; CONSTR(FUNC, "VSfind"); /* check for null vdata name */ if (vsname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* process through Vdatas in file */ while (FAIL != (vsid = VSgetid(f, vsid))) { /* get instance of vdata */ if((v = vsinst(f,(uint16)vsid)) == NULL) HGOTO_DONE(0); /* get vdata itself and check it */ vs = v->vs; if (vs == NULL) HGOTO_DONE(0); /* compare vdata name to 'vsname' if it had been set */ if (!HDstrcmp(vsname, vs->vsname)) HGOTO_DONE((int32)(vs->oref)); /* found the vdata */ } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfind */ /* ----------------------------------------------------------------- NAME Vfindclass -- looks in the file and returns the ref of the vgroup with class vgclass DESCRIPTION Finds the vgroup with the specified class and returns the ref of the vgroup if successful. RETURNS Returns 0 if not found, or error. Otherwise, returns the vgroup's ref (a positive integer). -----------------------------------------------------------------------*/ int32 Vfindclass(HFILEID f, /* IN: file id */ const char *vgclass /* IN: class of vgroup to find */) { int32 vgid = -1; vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = 0; CONSTR(FUNC, "Vfindclass"); /* check for null vgroup class */ if (vgclass == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* process through Vgroups in file */ while (FAIL != (vgid = Vgetid(f, vgid))) { /* get instance of vgroup */ if((v = vginst(f,(uint16)vgid)) == NULL) HGOTO_DONE(0); /* get vgroup itself and check it */ vg = v->vg; if (vg == NULL) HGOTO_DONE(0); /* Shouldn't we move on to the next vgroup instead of getting out? Same question for the above HGOTO_DONE. -BMR 9/12/2011 */ /* compare vgroup class to 'vgclass' if it had been set */ if (vg->vgclass != NULL) if (!HDstrcmp(vgclass, vg->vgclass)) HGOTO_DONE((int32)(vg->oref)); /* found the vgroup */ } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vfindclass */ /*------------------------------------------------------------------ NAME VSfindclass -- looks in the file and returns the ref of the vdata with class vsclass DESCRIPTION Finds the vdata with the specified class and returns the ref of the vdata if successful. RETURNS Returns 0 if not found, or error. Otherwise, returns the vdata's ref (a positive integer). ---------------------------------------------------------------------*/ int32 VSfindclass(HFILEID f, /* IN: file id */ const char *vsclass /* IN: class of vdata to find */) { int32 vsid = -1; vsinstance_t *v = NULL; VDATA *vs = NULL; int32 ret_value = 0; CONSTR(FUNC, "VSfindclass"); /* check for null vdata class */ if (vsclass == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* process through Vdatas in file */ while (FAIL != (vsid = VSgetid(f, vsid))) { /* get instance of vdata */ if((v = vsinst(f,(uint16)vsid)) == NULL) HGOTO_DONE(0); /* error */ /* get vdata itself and check it */ vs = v->vs; if (vs == NULL) HGOTO_DONE(0); /* compare vdata class to 'vsclass' if it had been set */ if (!HDstrcmp(vsclass, vs->vsclass)) HGOTO_DONE((int32)(vs->oref)); /* found the vdata */ } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfindclass */ /* ----------------------------------------------------------------- NAME VSsetblocksize -- sets the block size of the linked-block element. DESCRIPTION Sets the size of the blocks, that are after the first block, of a linked-block element used for storing a vdata. This routine is to be called before the first write to the vdata to change the block size from the default value HDF_APPENDABLE_BLOCK_LEN (4096). Once the linked-block element is created, the block size cannot be changed. RETURNS Returns SUCCEED/FAIL MODIFICATION BMR - added in June 2001 to fix bug# 267 ---------------------------------------------------------------------*/ intn VSsetblocksize( int32 vkey, /* IN: vdata key */ int32 block_size) /* length to be used for each linked-block */ { vsinstance_t *w = NULL; VDATA *vs = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "VSsetblocksize"); /* clear error stack */ HEclear(); /* check if the given vdata id is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); /* internal routine handles the actual setting */ if (HLsetblockinfo(vs->aid, block_size, -1) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetblocksize */ /* ----------------------------------------------------------------- NAME VSsetnumblocks -- sets the number of blocks for a linked-block element. DESCRIPTION Sets the number of blocks of a linked-block element used for storing a vdata. This routine is to be called before the first write to the vdata to change the number of blocks from the default value HDF_APPENDABLE_BLOCK_NUM (16). Once the linked-block element is created, the number of blocks cannot be changed. RETURNS Returns SUCCEED/FAIL MODIFICATION BMR - added in June 2001 to fix bug# 267 ---------------------------------------------------------------------*/ intn VSsetnumblocks( int32 vkey, /* IN: vdata key */ int32 num_blocks) /* number of blocks the element can have */ { vsinstance_t *w = NULL; VDATA *vs = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "VSsetnumblocks"); /* clear error stack */ HEclear(); /* check if the given vdata id is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); /* internal routine handles the actual setting */ if (HLsetblockinfo(vs->aid, -1, num_blocks) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetnumblocks */ /* ----------------------------------------------------------------- NAME VSgetblockinfo -- retrieves the block size and the number of blocks of a linked-block element. DESCRIPTION Retrieves the block size and the number of blocks of a linked-block element used for storing a vdata. A NULL can be passed in for unwanted value. RETURNS Returns SUCCEED/FAIL MODIFICATION BMR - added in June 2001 to fix bug# 267 ---------------------------------------------------------------------*/ intn VSgetblockinfo(int32 vkey, /* IN: vdata id */ int32* block_size, /* OUT: length used for each linked-block */ int32* num_blocks) /* OUT: number of blocks the element has */ { vsinstance_t *w = NULL; VDATA *vs = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "VSgetblockinfo"); /* clear error stack */ HEclear(); /* check if vdata is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); /* internal routine handles the actual retrieval */ if (HLgetblockinfo(vs->aid, block_size, num_blocks) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetblockinfo */ /******************************************************************************* NAME VSisinternal -- Determine if a vdata's class name is for internal only RETURNS Returns TRUE (1) if "classname" is one of the class names used for vdata created by the the library and FALSE (0) otherwise. *******************************************************************************/ intn VSisinternal(const char *classname) { int i; intn ret_value = FALSE; /* Check if this class name is one of the internal class name and return TRUE, otherwise, return FALSE */ for (i=0; i < HDF_NUM_INTERNAL_VDS; i++) { if (HDstrncmp(HDF_INTERNAL_VDS[i], classname, HDstrlen(HDF_INTERNAL_VDS[i])) == 0 ) { ret_value = TRUE; break; } } return ret_value; } /*------------------------------------------------------------------ NAME VSofclass -- Get vdatas of a given class in a file or in a vgroup. DESCRIPTION VSofclass retrieves n_vds vdatas by their reference numbers via the caller-supplied array refarray. It simply calls VSIgetvdatas to perform the task. The parameter n_vds provides the number of values that the refarray list can hold and can be any positive number smaller than MAX_REF (65535). If n_vds is larger than the actual number of user-created vdatas, then only the actual number of reference numbers will be retrieved. The parameter start_vd indicates the vdata number to start at. - When start_vd is 0, the retrieval starts at the beginning. - When start_vd is between 0 and the number of vdatas that meet the search criteria, VSofclass will start retrieving vdatas from the vdata number start_vd. - When start_vd is greater than the number of vdatas that meet the search criteria, VSofclass will return FAIL. When refarray argument is NULL, VSofclass will return the actual number of vdatas that meet the search criteria without further processing. This allows application to find out the size of the array for proper allocation. RETURNS Returns - 0 if none is found, or - FAIL(-1) if error occurs, or - the number of refs returned in refarray NOTE This function was added originally to assist the hdf4 map writer because Vnattrs does not handle attributes created via VHstoredatam and Vaddtagref. -BMR - 2010/11/21 ---------------------------------------------------------------------*/ intn VSofclass(int32 id, /* IN: file id or vgroup id */ const char *vsclass, /* IN: class to be queried */ uintn start_vd,/* IN: vdata number to start retrieving */ uintn n_vds, /* IN: number of user-created vds to return */ uint16 *refarray /* IN/OUT: ref array to fill */) { CONSTR(FUNC, "VSofclass"); intn ret_value = 0; /* clear error stack */ HEclear(); /* Make sure that proper size is passed in for the non-null array */ if (refarray != NULL && n_vds == 0) HGOTO_ERROR(DFE_ARGS, FAIL); ret_value = VSIgetvdatas(id, vsclass, start_vd, n_vds, refarray); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSofclass */ /******************************************************************************* NAME vscheckclass - (PRIVATE) checks if the given vdata has the specified class or if it is a user-created vdata. DESCRIPTION This is common code to be used in VSIgetvdatas. RETURNS if the vdata has the same class as 'vsclass' or is a user-created vdata, return TRUE, else FALSE. BMR - 2010/11/30 *******************************************************************************/ PRIVATE intn vscheckclass(int32 id, /* IN: vgroup id or file id */ uint16 vs_ref, /* IN: reference number of vdata being checked */ const char *vsclass /* IN: class name to be queried or NULL for non-internal vdata */) { CONSTR(FUNC, "vscheckclass"); vsinstance_t *vs_inst = NULL; VDATA *vs = NULL; intn ret_value = FALSE; /* get instance of vdata; if it's not found, continue to look for other vdatas */ if((vs_inst = vsinst(id, (uint16)vs_ref)) == NULL) HGOTO_DONE(FALSE); /* get vdata itself and check */ vs = vs_inst->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Make sure this vdata has a class name before checking */ if (vs->vsclass != NULL && HDstrlen(vs->vsclass) != 0) { /* If user-created vdatas are being checked for, then set flag if this vdata is not internally created by the library */ if (vsclass == NULL) { if (VSisinternal(vs->vsclass) == FALSE) ret_value = TRUE; } /* If a specific class is searched, set flag if this vdata has that same class */ else { size_t len = HDstrlen(_HDF_CHK_TBL_CLASS); /* Explanation of the comparison below: Because a class name that starts with _HDF_CHK_TBL_CLASS may have variable information appended to the end after _HDF_CHK_TBL_CLASS, we need to compare up to the length of _HDF_CHK_TBL_CLASS so that we can get all occurences of the classes starting with _HDF_CHK_TBL_CLASS. For the non-_HDF_CHK_TBL_CLASS classes, we want to compare the entire array of characters. However, if specific version of _HDF_CHK_TBL_CLASS is requested, this code will need to be modified properly */ /* vsclass != _HDF_CHK_TBL_CLASS..., compare entire string*/ if (HDstrncmp(vsclass, _HDF_CHK_TBL_CLASS, len)) ret_value = HDstrcmp(vsclass, vs->vsclass) ? FALSE : TRUE; else ret_value = HDstrncmp(vsclass, vs->vsclass, len) ? FALSE : TRUE; } } /* This vd doesn't have a class name, so it must be a user-created vd */ else { /* If user-created vdatas are being checked for, then set flag to indicate that this vdata is user-created */ if (vsclass == NULL) ret_value = TRUE; /* If a specific class name is requested, then set flag to indicate that this vd is not what is being searched for */ else ret_value = FALSE; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vscheckclass */ /******************************************************************************* NAME VSIgetvdatas -- (PRIVATE) Get user-created vdata in a file or in a vgroup. DESCRIPTION VSIgetvdatas retrieves n_vds vdatas by their reference numbers via the caller-supplied array refarray. When a vgroup id is specified, VSIgetvdatas will only retrieve the vdatas immediately belong to the specified vgroup, and not any sub-vgroups. The parameter n_vds provides the number of values that the refarray list can hold and can be any positive number smaller than MAX_REF (65535). If n_vds is larger than the actual number of user-created vdatas, then only the actual number of reference numbers will be retrieved. The parameter start_vd indicates the vdata number to start at. - When start_vd is 0, the retrieval starts at the beginning. - When start_vd is between 0 and the number of user-created vdatas in the file or the vgroup, VSIgetvdatas will start retrieving vdatas from the vdata number start_vd. - When start_vd is greater than the number of user-created vdatas in the file or the vgroup, VSIgetvdatas will return FAIL. When refarray argument is NULL, VSIgetvdatas will return the actual number of user-created vdatas without further processing. This allows application to find out the size of the array for proper allocation. RETURNS The number of user-created vdatas if successful and FAIL, otherwise. BMR - 2010/07/10 *******************************************************************************/ intn VSIgetvdatas(int32 id, /* IN: file id or vgroup id */ const char *vsclass, /* IN: a specific class or NULL for user-created vdatas */ const uintn start_vd,/* IN: vdata number to start retrieving */ const uintn n_vds, /* IN: number of user-created vds to return */ uint16 *refarray /* IN/OUT: ref array to fill */) { CONSTR(FUNC, "VSIgetvdatas"); vginstance_t *vg_inst = NULL; group_t id_type = HAatom_group(id); /* id is FIDGROUP or VGIDGROUP */ intn nactual_vds=0, nfound_vds=0, ii; VGROUP *vg = NULL; vfile_t *vf = NULL; int32 vs_ref; int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* Make sure that proper size is passed in for the non-null array */ if (refarray != NULL && n_vds == 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* The given id must be a file ID or a vgroup ID */ if (id_type != FIDGROUP && id_type != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* If given id is a file id */ if (id_type == FIDGROUP) { /* get vdata file record */ if (NULL == (vf = Get_vfile(id))) HGOTO_ERROR(DFE_FNF, FAIL); /* Look through all vdatas, searching for user-created vdatas until no more vdatas in the file or the number of vdatas to be retrieved is reached */ nactual_vds = 0;/* number of user-created vdatas to be retrieved */ nfound_vds = 0; /* number of user-created vdatas */ vs_ref = VSgetid(id, -1); /* get ref number of first vd in the file */ while ((vs_ref != FAIL) /* there are more vdatas */ && ((nactual_vds < n_vds) || (n_vds == 0)) && (nactual_vds <= nfound_vds)) { intn found = FALSE; /* Check if the vdata either has the specified class (when vsclass is !NULL) or is a user-created vdata (when vsclass is NULL) */ found = vscheckclass(id, (uint16)vs_ref, vsclass); /* If this vs met the search criteria, record its ref# according to caller's specifying of where to start and how many to retrieve */ if (found) { /* make sure to count only from vdata number start_vd */ if (nfound_vds >= start_vd) /* if caller requests for reference numbers */ if (refarray != NULL) { refarray[nactual_vds] = (uint16)vs_ref; /* increment the actual number of user-created vds to be retrieved */ nactual_vds++; } /* increment the number of user-created vds */ nfound_vds++; } /* Move forward to the next vdata in the file */ vs_ref = VSgetid(id, vs_ref); } /* while more vdatas in file */ } /* file id is given */ /* check if given id is a vgroup id */ else if (id_type == VGIDGROUP) { /* vgroup id is given */ /* get the number of sub-vdatas belong to this vgroup */ int32 n_elements = Vntagrefs(id); if (n_elements == FAIL) HGOTO_ERROR(DFE_GENAPP, FAIL); /* get instance of vgroup */ if (NULL == (vg_inst = (vginstance_t *) HAatom_object(id))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = vg_inst->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* get vdata file record */ if (NULL == (vf = Get_vfile(vg->f))) HGOTO_ERROR(DFE_FNF, FAIL); /* Go through the tag list vg->tag and find user-created vdatas, until no more sub-vdatas or the number of vdatas to be retrieved is reached */ nactual_vds = 0;/* number of user-created vdatas to be retrieved */ nfound_vds = 0; /* number of user-created vdatas */ for (ii = 0; ii < n_elements && ((nactual_vds < n_vds) || (n_vds == 0)) && nactual_vds <= nfound_vds; ii++) { /* If an element is a vdata, then get access to it */ if (vg->tag[ii] == DFTAG_VH) { intn found = FALSE; found = vscheckclass((int32)vg->f, vg->ref[ii], vsclass); /* If this vdata met the search criteria, record its ref# according to caller's specification of where to start and how many to retrieve */ if (found) { /* Make sure to count only from vdata number start_vd */ if (nfound_vds >= start_vd) /* If caller requests for reference numbers */ if (refarray != NULL) { refarray[nactual_vds] = (uint16)vg->ref[ii]; /* Increment the actual number of vdatas to be retrieved */ nactual_vds++; } /* Increment number of vds that meet the search criteria */ nfound_vds++; } } /* this sub element is a vdata */ } /* for */ } /* vgroup id is given */ /* Flag if start_vd is beyond the number of user-created vdatas */ if (nfound_vds < start_vd) HGOTO_ERROR(DFE_ARGS, FAIL); /* If caller is asking for the number of vdatas only, return the number of user-created vdatas, otherwise, return the number of vdatas that are actually stored in refarray */ if (refarray == NULL) ret_value = nfound_vds - start_vd; else ret_value = nactual_vds; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSIgetvdatas */ /******************************************************************************* NAME VSgetvdatas -- Get user-created vdata in a file or in a vgroup. DESCRIPTION VSgetvdatas retrieves n_vds vdatas by their reference numbers via the caller-supplied array refarray. When a vgroup id is specified, VSgetvdatas will only retrieve the vdatas immediately belong to the specified vgroup, and not any sub-vgroups. The parameter n_vds provides the number of values that the refarray list can hold and can be any positive number smaller than MAX_REF (65535). If n_vds is larger than the actual number of user-created vdatas, then only the actual number of reference numbers will be retrieved. The parameter start_vd indicates the vdata number to start at. - When start_vd is 0, the retrieval starts at the beginning. - When start_vd is between 0 and the number of user-created vdatas in the file or the vgroup, VSgetvdatas will start retrieving vdatas from the vdata number start_vd. - When start_vd is greater than the number of user-created vdatas in the file or the vgroup, VSgetvdatas will return FAIL. When refarray argument is NULL, VSgetvdatas will return the actual number of user-created vdatas without further processing. This allows application to find out the size of the array for proper allocation. RETURNS The number of user-created vdatas if successful and FAIL, otherwise. -BMR - 2010/07/10 MODIFICATION - Made the original VSgetvdatas into a private function VSIgetvdatas so that the code can be reused by VSofclass. VSgetvdatas now simply calls VSIgetvdatas. -BMR - 2010/11/17 *******************************************************************************/ intn VSgetvdatas(int32 id, /* IN: file id or vgroup id */ const uintn start_vd,/* IN: vdata number to start retrieving */ const uintn n_vds, /* IN: number of user-created vds to return */ uint16 *refarray /* IN/OUT: ref array to fill */) { CONSTR(FUNC, "VSgetvdatas"); int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* Make sure that proper size is passed in for the non-null array */ if (refarray != NULL && n_vds == 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Passing NULL in to VSIgetvdatas to get user-created vdatas */ ret_value = VSIgetvdatas(id, NULL, start_vd, n_vds, refarray); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetvdatas */ /* ------------------------------- Vsetzap -------------------------------- */ /* * Vsetzap: Useless now. Maintained for back compatibility. */ VOID Vsetzap(void) { } libhdf4-4.2.10/HDF_ALT/hdf/src/CMakeLists.txt0000644000000000000000000001360512421456623015203 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_SRC C CXX) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- INCLUDE_DIRECTORIES ( ${HDF4_HDF_BINARY_DIR} ${HDF4_HDFSOURCE_DIR} ) LINK_DIRECTORIES ( ${HDF4_HDF_BINARY_DIR} ${CMAKE_LIBRARY_OUTPUT_DIRECTORY} ) SET (HDF4_HDF_SRC_CSRCS ${HDF4_HDF_SRC_SOURCE_DIR}/atom.c ${HDF4_HDF_SRC_SOURCE_DIR}/bitvect.c ${HDF4_HDF_SRC_SOURCE_DIR}/cdeflate.c ${HDF4_HDF_SRC_SOURCE_DIR}/cnbit.c ${HDF4_HDF_SRC_SOURCE_DIR}/cnone.c ${HDF4_HDF_SRC_SOURCE_DIR}/crle.c ${HDF4_HDF_SRC_SOURCE_DIR}/cskphuff.c ${HDF4_HDF_SRC_SOURCE_DIR}/cszip.c ${HDF4_HDF_SRC_SOURCE_DIR}/df24.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfan.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfcomp.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfconv.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfgr.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfgroup.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfimcomp.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfjpeg.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfknat.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfkswap.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfp.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfr8.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfrle.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfsd.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfstubs.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfufp2i.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfunjpeg.c ${HDF4_HDF_SRC_SOURCE_DIR}/dfutil.c ${HDF4_HDF_SRC_SOURCE_DIR}/dynarray.c ${HDF4_HDF_SRC_SOURCE_DIR}/glist.c ${HDF4_HDF_SRC_SOURCE_DIR}/hbitio.c ${HDF4_HDF_SRC_SOURCE_DIR}/hblocks.c ${HDF4_HDF_SRC_SOURCE_DIR}/hbuffer.c ${HDF4_HDF_SRC_SOURCE_DIR}/hchunks.c ${HDF4_HDF_SRC_SOURCE_DIR}/hcomp.c ${HDF4_HDF_SRC_SOURCE_DIR}/hcompri.c ${HDF4_HDF_SRC_SOURCE_DIR}/hdatainfo.c ${HDF4_HDF_SRC_SOURCE_DIR}/hdfalloc.c ${HDF4_HDF_SRC_SOURCE_DIR}/herr.c ${HDF4_HDF_SRC_SOURCE_DIR}/hextelt.c ${HDF4_HDF_SRC_SOURCE_DIR}/hfile.c ${HDF4_HDF_SRC_SOURCE_DIR}/hfiledd.c ${HDF4_HDF_SRC_SOURCE_DIR}/hkit.c ${HDF4_HDF_SRC_SOURCE_DIR}/linklist.c ${HDF4_HDF_SRC_SOURCE_DIR}/mcache.c ${HDF4_HDF_SRC_SOURCE_DIR}/mfan.c ${HDF4_HDF_SRC_SOURCE_DIR}/mfgr.c ${HDF4_HDF_SRC_SOURCE_DIR}/mstdio.c ${HDF4_HDF_SRC_SOURCE_DIR}/tbbt.c ${HDF4_HDF_SRC_SOURCE_DIR}/vattr.c ${HDF4_HDF_SRC_SOURCE_DIR}/vconv.c ${HDF4_HDF_SRC_SOURCE_DIR}/vg.c ${HDF4_HDF_SRC_SOURCE_DIR}/vgp.c ${HDF4_HDF_SRC_SOURCE_DIR}/vhi.c ${HDF4_HDF_SRC_SOURCE_DIR}/vio.c ${HDF4_HDF_SRC_SOURCE_DIR}/vparse.c ${HDF4_HDF_SRC_SOURCE_DIR}/vrw.c ${HDF4_HDF_SRC_SOURCE_DIR}/vsfld.c ) SET (HDF4_HDF_SRC_CHDRS ${HDF4_HDF_SRC_SOURCE_DIR}/atom.h ${HDF4_HDF_SRC_SOURCE_DIR}/bitvect.h ${HDF4_HDF_SRC_SOURCE_DIR}/cdeflate.h ${HDF4_HDF_SRC_SOURCE_DIR}/cnbit.h ${HDF4_HDF_SRC_SOURCE_DIR}/cnone.h ${HDF4_HDF_SRC_SOURCE_DIR}/crle.h ${HDF4_HDF_SRC_SOURCE_DIR}/cskphuff.h ${HDF4_HDF_SRC_SOURCE_DIR}/cszip.h ${HDF4_HDF_SRC_SOURCE_DIR}/df.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfan.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfgr.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfrig.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfi.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfsd.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfstubs.h ${HDF4_HDF_SRC_SOURCE_DIR}/dfufp2i.h ${HDF4_HDF_SRC_SOURCE_DIR}/dynarray.h ${HDF4_HDF_SRC_SOURCE_DIR}/glist.h ${HDF4_HDF_SRC_SOURCE_DIR}/H4api_adpt.h #${HDF4_BINARY_DIR}/h4config.h ${HDF4_HDF_SRC_SOURCE_DIR}/hbitio.h ${HDF4_HDF_SRC_SOURCE_DIR}/hchunks.h ${HDF4_HDF_SRC_SOURCE_DIR}/hcomp.h ${HDF4_HDF_SRC_SOURCE_DIR}/hcompi.h ${HDF4_HDF_SRC_SOURCE_DIR}/hconv.h ${HDF4_HDF_SRC_SOURCE_DIR}/hdatainfo.h ${HDF4_HDF_SRC_SOURCE_DIR}/hdf.h ${HDF4_HDF_SRC_SOURCE_DIR}/hdfi.h ${HDF4_HDF_SRC_SOURCE_DIR}/herr.h ${HDF4_HDF_SRC_SOURCE_DIR}/hfile.h ${HDF4_HDF_SRC_SOURCE_DIR}/hkit.h ${HDF4_HDF_SRC_SOURCE_DIR}/hlimits.h ${HDF4_HDF_SRC_SOURCE_DIR}/hntdefs.h ${HDF4_HDF_SRC_SOURCE_DIR}/hproto.h ${HDF4_HDF_SRC_SOURCE_DIR}/hqueue.h ${HDF4_HDF_SRC_SOURCE_DIR}/htags.h ${HDF4_HDF_SRC_SOURCE_DIR}/linklist.h ${HDF4_HDF_SRC_SOURCE_DIR}/mcache.h ${HDF4_HDF_SRC_SOURCE_DIR}/mfan.h ${HDF4_HDF_SRC_SOURCE_DIR}/mfgr.h ${HDF4_HDF_SRC_SOURCE_DIR}/mstdio.h ${HDF4_HDF_SRC_SOURCE_DIR}/tbbt.h ${HDF4_HDF_SRC_SOURCE_DIR}/vattr.h ${HDF4_HDF_SRC_SOURCE_DIR}/vg.h ${HDF4_HDF_SRC_SOURCE_DIR}/vgint.h ) ADD_LIBRARY (${HDF4_SRC_LIB_TARGET} ${LIB_TYPE} ${HDF4_HDF_SRC_CSRCS} ${HDF4_HDF_SRC_CHDRS} ${HDF4_BINARY_DIR}/h4config.h) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) TARGET_C_PROPERTIES (${HDF4_SRC_LIB_TARGET} " " " ") TARGET_LINK_LIBRARIES (${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_SRC_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_SRC_LIB_TARGET} ${HDF4_SRC_LIB_NAME} ${LIB_TYPE}) #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL ( FILES ${HDF4_HDF_SRC_CHDRS} DESTINATION ${HDF4_INSTALL_INCLUDE_DIR} COMPONENT headers ) #----------------------------------------------------------------------------- # Add Target(s) to CMake Install for import into other projects #----------------------------------------------------------------------------- IF (HDF4_EXPORTED_TARGETS) IF (BUILD_SHARED_LIBS) INSTALL_TARGET_PDB (${HDF4_SRC_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} libraries) ENDIF (BUILD_SHARED_LIBS) INSTALL ( TARGETS ${HDF4_SRC_LIB_TARGET} EXPORT ${HDF4_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries ARCHIVE DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT libraries RUNTIME DESTINATION ${HDF4_INSTALL_BIN_DIR} COMPONENT libraries ) ENDIF (HDF4_EXPORTED_TARGETS) libhdf4-4.2.10/HDF_ALT/hdf/src/maldebug.h0000644000000000000000000000476712421456623014405 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: maldebug.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*---------------------------------------------------------------------- * * maldebug.h -- Dynamic memory handler interface * Description: memdebug.h provides the interface definitions for the dynamic * memory handler. * See memdebug.c for complete documentation. * */ #ifndef _MALDEBUG_H #define _MALDEBUG_H /* Compilation options */ #define MEM_LIST /* Build internal list */ #define MEM_WHERE /* Keep track of memory block source */ #define MEM_HEADER /* Keep headers and footers around for each block */ #define MEM_COMP_FREE /* Complement the space free'd */ /* Interface functions */ unsigned long Mem_Used(void); void Mem_Display(FILE * fp); /* Interface functions to access only through macros */ #if defined(MEM_WHERE) void *mem_HDmalloc(size_t size, char *fil, int lin); void *mem_HDrealloc(void *old_ptr, size_t size, char *fil, int lin); void *mem_HDfree(void *ptr, char *fil, int lin); #else void *mem_HDmalloc(size_t size); void *mem_HDrealloc(void *old_ptr, size_t size); void *mem_HDfree(void *ptr); #endif /* Interface macros */ #if !defined(__MALDEBUG__) #if defined(MEM_WHERE) #define HDmalloc(a) mem_HDmalloc((a),__FILE__,__LINE__) #define HDrealloc(a,b) mem_HDrealloc((a),(b),__FILE__,__LINE__) #define HDfree(a) mem_HDfree((a),__FILE__,__LINE__) #else #define HDmalloc(a) mem_HDmalloc(a) #define HDrealloc(a,b) mem_HDrealloc((a),(b)) #define HDfree(a) mem_HDfree(a) #endif #endif #endif /* _MALDEBUG_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hfilef.c0000644000000000000000000002216512421456623014045 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: hfilef.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: hfilef.c * Purpose: C stubs for Fortran low level routines * Invokes: hfile.c * Contents: * hiopen_: call Hopen to open HDF file * hclose_: call Hclose to close HDF file *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: hiopen * Purpose: call Hopen to open HDF file * Inputs: name: name of file to open * acc_mode: access mode - integer with value DFACC_READ etc. * defdds: default number of DDs per header block * namelen: length of name * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers * Invokes: Hopen * Method: Convert filename to C string, call Hopen *---------------------------------------------------------------------------*/ FRETVAL(intf) nhiopen(_fcd name, intf * acc_mode, intf * defdds, intf * namelen) { char *fn; intf ret; fn = HDf2cstring(name, (intn) *namelen); if (!fn) return(FAIL); ret = (intf) Hopen(fn, (intn) *acc_mode, (int16) *defdds); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: hclose * Purpose: Call DFclose to close HDF file * Inputs: file_id: handle to HDF file to close * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Invokes: Hclose *---------------------------------------------------------------------------*/ FRETVAL(intf) nhclose(intf * file_id) { return (Hclose(*file_id)); } /*----------------------------------------------------------------------------- * Name: hnumber * Purpose: Get numer of elements with tag * Inputs: file_id: handle to HDF file to close * Returns: the number of objects of type 'tag' else FAIL * Users: HDF Fortran programmers * Invokes: Hnumber *---------------------------------------------------------------------------*/ FRETVAL(intf) nhnumber(intf * file_id, intf *tag) { return (Hnumber((int32) *file_id, (uint16) *tag)); } /*----------------------------------------------------------------------------- * Name: hxisdir * Purpose: call HXsetdir to set the directory variable for locating an external file * Inputs: dir: names of directory separated by colons * Returns: SUCCEED if no error, else FAIL * Users: HDF Fortran programmers * Invokes: HXsetdir * Method: Convert dir to C string, call HXsetdir *---------------------------------------------------------------------------*/ FRETVAL(intf) nhxisdir(_fcd dir, intf * dirlen) { char *fn; intf ret; fn = HDf2cstring(dir, (intn) *dirlen); if (!fn) return(FAIL); ret = (intf) HXsetdir(fn); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: hxiscdir * Purpose: call HXsetcreatedir to set the directory variable for creating an external file * Inputs: dir: name of directory * Returns: SUCCEED if no error, else FAIL * Users: HDF Fortran programmers * Invokes: HXsetcreatedir * Method: Convert dir to C string, call HXsetcdir *---------------------------------------------------------------------------*/ FRETVAL(intf) nhxiscdir(_fcd dir, intf * dirlen) { char *fn; intf ret; fn = HDf2cstring(dir, (intn) *dirlen); if (!fn) return(FAIL); ret = (intf) HXsetcreatedir(fn); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: hddontatexit * Purpose: Call HDdont_atexit * Inputs: * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Invokes: HDdont_atexit *---------------------------------------------------------------------------*/ FRETVAL(intf) nhddontatexit(void) { return((intf)(HDdont_atexit())); } /*----------------------------------------------------------------------------- * Name: hglibverc * Purpose: Calls Hgetlibversion * * Outputs: major_v - major version number * minor_v - minor version number * release - release number * string - version number text string * Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise *----------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nhglibverc(intf *major_v, intf *minor_v, intf *release, _fcd string, intf *len) #else nhglibverc(major_v, minor_v, release, string, len) intf *major_v; intf *minor_v; intf *release; _fcd string; intf *len; #endif /* PROTOTYPE */ { char *cstring; uint32 cmajor_v; uint32 cminor_v; uint32 crelease; intn status; cstring = NULL; if (*len) cstring = (char *) HDmalloc((uint32)*len + 1); status = Hgetlibversion(&cmajor_v, &cminor_v, &crelease, cstring); HDpackFstring(cstring, _fcdtocp(string), *len); if(cstring) HDfree((VOIDP)cstring); *major_v = (intf) cmajor_v; *minor_v = (intf) cminor_v; *release = (intf) crelease; return((intf)status); } /*----------------------------------------------------------------------------- * Name: hgfilverc * Purpose: Calls Hgetfileversion * Inputs: file_id - file identifier * Outputs: major_v - major version number * minor_v - minor version number * release - release number * string - version number text string * Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise *----------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nhgfilverc(intf *file_id, intf *major_v, intf *minor_v, intf *release, _fcd string, intf *len) #else nhgfilverc(file_id, major_v, minor_v, release, string, len) intf *file_id; intf *major_v; intf *minor_v; intf *release; _fcd string; intf *len; #endif /* PROTOTYPE */ { char *cstring; uint32 cmajor_v; uint32 cminor_v; uint32 crelease; intn status; cstring = NULL; if (*len) cstring = (char *) HDmalloc((uint32)*len + 1); status = Hgetfileversion((int32) *file_id, &cmajor_v, &cminor_v, &crelease, cstring); HDpackFstring(cstring, _fcdtocp(string), *len); if(cstring) HDfree((VOIDP)cstring); *major_v = (intf) cmajor_v; *minor_v = (intf) cminor_v; *release = (intf) crelease; return((intf)status); } /*----------------------------------------------------------------------------- * Name: hiishdf * Purpose: call Hishdf function * Inputs: name: Name of the file * namelen: length of name * Returns: TRUE(1) on success, FALSE (-1) on failure * Users: HDF Fortran programmers * Method: Convert filename to C string, call Hishdf *---------------------------------------------------------------------------*/ FRETVAL(intf) nhiishdf(_fcd name, intf * namelen) { char *fn; intf ret; fn = HDf2cstring(name, (intn) *namelen); if (!fn) return(FAIL); ret = (intf) Hishdf(fn); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: hconfinfc * Purpose: call HCget_config_info * Inputs: coder_type - compression type * Outputs: info - flag to indicate compression status * 0 - compression is not available * 1 - only decoder found * 2 - both decoder and encoder are available * Returns: SUCCEED (0) on success, FALSE (-1) on failure *---------------------------------------------------------------------------*/ FRETVAL(intf) nhconfinfc (intf *coder_type, intf * info) { comp_coder_t coder_type_c; uint32 info_c; intn status; coder_type_c = (comp_coder_t) *coder_type; status = HCget_config_info(coder_type_c, &info_c); if (status == FAIL) return(FAIL); *info = (intf) info_c; return (status); } libhdf4-4.2.10/HDF_ALT/hdf/src/vsfld.c0000644000000000000000000011060112421456623013717 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5760 $"; #endif /* $Id: vsfld.c 5760 2012-01-20 12:53:37Z bmribler $ */ /***************************************************************************** * vsetf.c * Part of the HDF VSet interface. * LOCAL ROUTINES EXPORTED ROUTINES VSIZEOF -- returns the machine size of a field type. VSsetfields -- sets the fields in a vdata for reading or writing. Truncates each field to max length of FIELDNAMELENMAX. VSfdefine -- Defines a (one) new field within the vdata. VFnfields -- Return the number of fields in this Vdata. VFfieldname -- Return the name of the given field in this Vdata. VFfieldtype -- Return the type of the given field in this Vdata. VFfieldisize -- Return the internal (HDF) size of the given field in this Vdata. VFfieldesize -- Return the external (local machine) size of the given field in this Vdata. VFfieldorder -- Return the order of the given field in this Vdata. VSfpack -- pack into or unpack from a buf the values of fully interlaced fields (of the entire record). ************************************************************************/ #define VSET_INTERFACE #include "hdf.h" #include /* ** ================================================================== ** PRIVATE data areas and routines ** ================================================================== * */ static const SYMDEF rstab[] = { {"PX", DFNT_FLOAT32, SIZE_FLOAT32, 1}, {"PY", DFNT_FLOAT32, SIZE_FLOAT32, 1}, {"PZ", DFNT_FLOAT32, SIZE_FLOAT32, 1}, {"IX", DFNT_INT32, SIZE_INT32, 1}, {"IY", DFNT_INT32, SIZE_INT32, 1}, {"IZ", DFNT_INT32, SIZE_INT32, 1}, {"NX", DFNT_FLOAT32, SIZE_FLOAT32, 1}, {"NY", DFNT_FLOAT32, SIZE_FLOAT32, 1}, {"NZ", DFNT_FLOAT32, SIZE_FLOAT32, 1}, }; #define NRESERVED ( sizeof(rstab)/sizeof(SYMDEF) ) /* ------------------------------------------------------------------ */ /* ** sets the fields in a vdata for reading or writing ** RETURNS FAIL if error, and SUCCEED if ok. ** truncates each field to max length of FIELDNAMELENMAX. */ intn VSsetfields(int32 vkey, const char *fields) { char **av; int32 ac, found; intn j, i; uint16 uj; uint16 order; int32 value; DYN_VREADLIST *rlist; DYN_VWRITELIST *wlist; vsinstance_t *w; VDATA *vs; intn ret_value = FAIL; CONSTR(FUNC, "VSsetfields"); /* check if a NULL field list is passed in, then return with error (bug #554) - BMR 4/30/01 */ if (fields == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); vs = w->vs; if (vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if ((scanattrs(fields, &ac, &av) == FAIL) || (ac == 0)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* check number of fields limit */ if (ac > VSFIELDMAX) HGOTO_ERROR(DFE_SYMSIZE,FAIL); /* * write to an empty vdata : set the write list but do not set the * read list cuz there is nothing there to read yet... */ if (vs->access == 'w') { if (vs->nvertices == 0) { wlist=&(vs->wlist); if (wlist->n == 0) /* fields not set yet, Sept. 96. */ /* do not re-set fields if they were already set. */ { wlist->ivsize = 0; wlist->n = 0; /* allocate space for the internal WRITELIST structures */ /* Allocate buffer to hold all the int16/uint16 arrays */ if((wlist->bptr=HDmalloc(sizeof(uint16)*(size_t)(ac*5)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* Use buffer to support the other arrays */ wlist->type=(int16 *)wlist->bptr; wlist->off=(uint16 *)wlist->type+ac; wlist->isize=wlist->off+ac; wlist->order=wlist->isize+ac; wlist->esize=wlist->order+ac; if((wlist->name=HDmalloc(sizeof(char *)*(size_t)ac))==NULL) { HDfree(wlist->bptr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ for (i = 0; i < ac; i++) { found = FALSE; /* --- first look in the user's symbol table --- */ for (j = 0; j < vs->nusym; j++) if (!HDstrcmp(av[i], vs->usym[j].name)) { found = TRUE; if((wlist->name[wlist->n]=HDstrdup(vs->usym[j].name))==NULL) { HDfree(wlist->name); HDfree(wlist->bptr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ order = vs->usym[j].order; wlist->type[wlist->n] = vs->usym[j].type; wlist->order[wlist->n] = order; value = order * DFKNTsize(vs->usym[j].type | DFNT_NATIVE); if (value == FAIL) HGOTO_ERROR(DFE_BADFIELDS, FAIL); wlist->esize[wlist->n] = (uint16) value; value = order * vs->usym[j].isize; if (value > MAX_FIELD_SIZE) HGOTO_ERROR(DFE_BADFIELDS, FAIL); wlist->isize[wlist->n] = (uint16) value; value = (int32) wlist->ivsize + (int32) (wlist->isize[wlist->n]); if (value > MAX_FIELD_SIZE) HGOTO_ERROR(DFE_BADFIELDS, FAIL); wlist->ivsize = (uint16) value; wlist->n++; break; } /* --- now look in the reserved symbol table --- */ if (!found) { for (j = 0; j < (intn)NRESERVED; j++) if (!HDstrcmp(av[i], rstab[j].name)) { found = TRUE; if((wlist->name[wlist->n]=HDstrdup(rstab[j].name))==NULL) { HDfree(wlist->name); HDfree(wlist->bptr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ order = rstab[j].order; wlist->type[wlist->n] = rstab[j].type; wlist->order[wlist->n] = order; value = order * DFKNTsize(rstab[j].type | DFNT_NATIVE); if (value == FAIL) HGOTO_ERROR(DFE_BADFIELDS, FAIL); wlist->esize[wlist->n] = (uint16) value; wlist->isize[wlist->n] = (uint16) (order * rstab[j].isize); wlist->ivsize += (uint16) (wlist->isize[wlist->n]); wlist->n++; break; } } if (!found) /* field is not a defined field - error */ HGOTO_ERROR(DFE_BADFIELDS, FAIL); } /* *********************************************************** */ /* compute and save the fields' offsets */ for (uj = 0, i = 0; i < wlist->n; i++) { wlist->off[i] = (uint16) uj; uj += wlist->isize[i]; } vs->marked = TRUE; /* mark vdata as being modified */ vs->new_h_sz = TRUE; /* mark vdata header size being changed */ HGOTO_DONE(SUCCEED); /* OK */ } /* if wlist->n == 0 */ } /* writing to empty vdata */ } /* writing to vdata */ /* * No matter the access mode, if there are elements in the VData * we should set the read list */ if (vs->nvertices > 0) { rlist = &(vs->rlist); rlist->n = 0; if(rlist->item!=NULL) HDfree(rlist->item); rlist->item=NULL; /* Allocate enough space for the read list */ if((rlist->item=(intn *)HDmalloc(sizeof(intn)*(size_t)(ac)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); for (i = 0; i < ac; i++) { found = FALSE; for (j = 0; j < vs->wlist.n; j++) if (!HDstrcmp(av[i], vs->wlist.name[j])) { /* see if field exist */ found = TRUE; rlist->item[rlist->n] = j; /* save as index into wlist->name */ rlist->n++; break; } if (!found) /* field does not exist - error */ HGOTO_ERROR(DFE_BADFIELDS, FAIL); } ret_value=SUCCEED; } /* setting read list */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetfields */ /* ------------------------------------------------------------------ */ /* ** defines a (one) new field within the vdata ** return FAIL if error ** return SUCCEED if success */ intn VSfdefine(int32 vkey, const char *field, int32 localtype, int32 order) { char **av; int32 ac; int16 isize, replacesym; intn usymid; intn j; vsinstance_t *w; VDATA *vs; intn ret_value = SUCCEED; CONSTR(FUNC, "VSfdefine"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); vs = w->vs; if ((vs == NULL) || (scanattrs(field, &ac, &av) == FAIL) || (ac != 1)) HGOTO_ERROR(DFE_ARGS, FAIL); /* The order of a variable is stored in a 16-bit number, so have to keep this limit -QAK */ if (order < 1 || order > MAX_ORDER) HGOTO_ERROR(DFE_BADORDER, FAIL); /* don't forget to check for field size limit */ isize = (int16)DFKNTsize(localtype); if ( (isize == FAIL) || (isize * order) > MAX_FIELD_SIZE ) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* ** check for any duplicates */ #ifdef OLD_WAY /* It's OK to over-ride pre-defined symbols with the user's own -QAK */ /* --- first look in the reserved symbol table --- */ for (j = 0; j < NRESERVED; j++) if (!HDstrcmp(av[0], rstab[j].name)) { if (localtype != rstab[j].type && order != rstab[j].order) break; } #endif /* OLD_WAY */ /* --- then look in the user's symbol table --- */ for (replacesym = 0, j = 0; j < vs->nusym; j++) if (!HDstrcmp(av[0], vs->usym[j].name)) { if (localtype != rstab[j].type && order != rstab[j].order) { replacesym = 1; break; } } if (replacesym) usymid = j; /* new definition will replace old at this index */ else { SYMDEF *tmp_sym=vs->usym; /* temp. pointer to the new symdef list */ usymid = (intn)vs->nusym; /* use temporary pointer in case we run out of memory, so we don't loose original list */ if (tmp_sym == NULL) { if((tmp_sym=(SYMDEF *) HDmalloc(sizeof(SYMDEF)*(size_t)(usymid+1)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); } else { if((tmp_sym=(SYMDEF *) HDrealloc(tmp_sym,sizeof(SYMDEF)*(size_t)(usymid+1)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); } vs->usym=tmp_sym; } /* end else */ vs->usym[usymid].isize = (uint16) isize; /* ok, because number type sizes are smaller than max(int16) */ /* Copy the symbol [field] information */ if ((vs->usym[usymid].name = (char *) HDstrdup(av[0]) ) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); vs->usym[usymid].type = (int16) localtype; vs->usym[usymid].order = (uint16) order; /* increment vs->nusym only if no user field has been redefined */ if (!replacesym) vs->nusym++; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfdefine */ /* ------------------------------ VFnfields ------------------------------- */ /* Return the number of fields in this Vdata Return FAIL on failure */ int32 VFnfields(int32 vkey) { vsinstance_t *w; VDATA *vs; int32 ret_value = SUCCEED; CONSTR(FUNC, "VFnfields"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); ret_value = ((int32) vs->wlist.n); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFnfields */ /* ----------------------------- VFfieldname ------------------------------ */ /* Return the name of the given field in this Vdata. This is just a pointer to the string in local memory and is only guarenteed to be valid as long as we are VSattached() to this Vdata Return NULL on failure */ char * VFfieldname(int32 vkey, int32 index) { vsinstance_t *w; VDATA *vs; char *ret_value = NULL; /* FAIL */ CONSTR(FUNC, "VFfieldname"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,NULL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,NULL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,NULL); if (vs->wlist.n == 0) HGOTO_ERROR(DFE_BADFIELDS,NULL); ret_value = ((char *) vs->wlist.name[index]); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFfieldname */ /* ----------------------------- VFfieldtype ------------------------------ */ /* Return the type of the given field in this Vdata. Return FAIL on failure */ int32 VFfieldtype(int32 vkey, int32 index) { vsinstance_t *w; VDATA *vs; int32 ret_value = SUCCEED; CONSTR(FUNC, "VFfeildtype"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); if (vs->wlist.n == 0) HGOTO_ERROR(DFE_BADFIELDS,FAIL); ret_value = ((int32) vs->wlist.type[index]); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFfieldtype */ /* ----------------------------- VFfieldisize ------------------------------ */ /* Return the internal size of the given field in this Vdata. (internal to HDF file, see VWRITELIST in vg.h. 4/3/96) Return FAIL on failure */ int32 VFfieldisize(int32 vkey, int32 index) { vsinstance_t *w; VDATA *vs; int32 ret_value = SUCCEED; CONSTR(FUNC, "VFfieldisize"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); if (vs->wlist.n == 0) HGOTO_ERROR(DFE_BADFIELDS,FAIL); ret_value = ((int32) vs->wlist.isize[index]); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFfieldisize */ /* ----------------------------- VFfieldesize ------------------------------ */ /* Return the external size of the given field in this Vdata. (external to HDF file, see VWRITELIST in vg.h. 4/3/96) Return FAIL on failure */ int32 VFfieldesize(int32 vkey, int32 index) { vsinstance_t *w; VDATA *vs; int32 ret_value = SUCCEED; CONSTR(FUNC, "VFfieldesize"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); if (vs->wlist.n == 0) HGOTO_ERROR(DFE_BADFIELDS,FAIL); ret_value = ((int32) vs->wlist.esize[index]); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFfieldesize */ /* ----------------------------- VFfieldorder ------------------------------ */ /* Return the order of the given field in this Vdata. Return FAIL on failure */ int32 VFfieldorder(int32 vkey, int32 index) { vsinstance_t *w; VDATA *vs; int32 ret_value = SUCCEED; CONSTR(FUNC, "VFfieldorder"); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); if (vs->wlist.n == 0) HGOTO_ERROR(DFE_BADFIELDS,FAIL); ret_value = ((int32) vs->wlist.order[index]); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VFfieldorder */ /* -------------------------- VSsetexternalfile --------------------------- */ /* NAME VSsetexternalfile -- store Vdat info in a separate file USAGE int32 VSsetexternalfile(id, filename, offset) int32 id; IN: vdata ID char * filename; IN: name of external file int32 offset; IN: offset in external file RETURNS Return SUCCEED or FAIL DESCRIPTION Specify that the actual data for this Vdata be stored in a separate file (an "external file" in HDF terms). Only the data (as in VSwrite()) will be stored externally. Attributes and such will still be in the main file IMPORTANT: It is the user's responsibility to see that the separate files are transported with the main file. FORTRAN vsfsextf --------------------------------------------------------------------------- */ intn VSsetexternalfile(int32 vkey, const char *filename, int32 offset) { CONSTR(FUNC, "VSsetexternalfile"); int32 ret_value = SUCCEED; vsinstance_t *w; VDATA *vs; intn status; if(!filename || offset < 0) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); vs = w->vs; if (vs->access != 'w') HGOTO_ERROR(DFE_BADACC, FAIL); if (FAIL == vexistvs(vs->f, vs->oref)) HGOTO_ERROR(DFE_NOVS, FAIL); if(!w->ref) HGOTO_ERROR(DFE_NOVS, FAIL); /* no need to give a length since the element already exists */ /* The Data portion of a Vdata is always stored in linked blocks. */ /* So, use the special tag */ status = (intn)HXcreate(vs->f, (uint16)VSDATATAG, (uint16) w->ref, filename, offset, (int32)0); if(status != FAIL) { if((vs->aid != 0) && (vs->aid != FAIL)) Hendaccess(vs->aid); vs->aid = status; } else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetexternalfile */ /* -------------------------- VSgetexternalfile --------------------------- */ /* NAME VSgetexternalfile -- gets external file name and offset USAGE int32 VSgetexternalfile(id, name_len, filename, offset) int32 vkey; IN: vdata ID size_t name_len; IN: length of buffer for external file name char *extfilename; IN: external file name int32 *offset; IN: offset in external file RETURNS Returns length of the external file name or FAIL. If the vdata does not have external element, the length will be 0. DESCRIPTION IMPORTANT: It is the user's responsibility to see that the separate files are transported with the main file. FORTRAN N/A --------------------------------------------------------------------------- */ intn VSgetexternalfile(int32 vkey, uintn buf_size, char *ext_filename, int32 *offset) { CONSTR(FUNC, "VSgetexternalfile"); vsinstance_t *w; VDATA *vs; sp_info_block_t info_block; intn actual_len = 0; intn ret_value = SUCCEED; if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* Get the vdata structure */ vs = w->vs; /* Vdata should have an aid */ if (vs->aid == 0 || vs->aid == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL) else { HDmemset(&info_block, 0, sizeof(sp_info_block_t)); /* HDget_special_info gets the special type and the special info */ if (HDget_special_info(vs->aid, &info_block) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL) /* If the vdata has external element, return the external file info */ if (info_block.key == SPECIAL_EXT) { /* If the file name is not available, the file is probably corrupted, so we need to report it. */ if (info_block.path == NULL || HDstrlen(info_block.path) <= 0) ret_value = FAIL; else { size_t ext_file_len = HDstrlen(info_block.path); /* If caller requests the length of the external file name only, return the length */ if (buf_size == 0) actual_len = (intn)ext_file_len; else { /* Caller requests file name, so buffer must not be NULL */ if (ext_filename == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the name and its length */ HDstrncpy(ext_filename, info_block.path, buf_size); actual_len = buf_size < ext_file_len ? buf_size : ext_file_len; /* Get the offset in the external file if it's requested */ if (offset != NULL) *offset = info_block.offset; } /* buf_size != 0 */ ret_value = actual_len; } } /* Not external */ else ret_value = FAIL; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetexternalfile */ /* -------------------------- VSgetexternalinfo --------------------------- */ /* NAME VSgetexternalinfo -- gets external file name and offset USAGE int32 VSgetexternalinfo(id, name_len, filename, offset) int32 vkey; IN: vdata ID uintn buf_size; IN: length of buffer for external file name char *extfilename; IN: external file name int32 *offset; IN: offset in external file, where data starts int32 *length; IN: length of data in external file RETURNS Returns length of the external file name or FAIL. If the vdata does not have external element, the length will be 0. DESCRIPTION VSgetexternalinfo gets the external file's name and the external data's offset and length, which specify the location and size of the data in the external file. buf_size specifies the size of the buffer ext_filename. When buf_size is 0, VSgetexternalinfo will simply return the length of the external file name, and not the file name itself. When the element is not special, VSgetexternalinfo will return 0. If the element is SPECIAL_EXT, but the external file name doesn't exist, VSgetexternalinfo will return FAIL. IMPORTANT: It is the user's responsibility to see that the separate files are transported with the main file. FORTRAN N/A --------------------------------------------------------------------------- */ intn VSgetexternalinfo(int32 vkey, uintn buf_size, char *ext_filename, int32 *offset, int32 *length) { CONSTR(FUNC, "VSgetexternalinfo"); vsinstance_t *w; VDATA *vs; intn actual_fname_len = 0; intn ret_value = SUCCEED; if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vs's index in vstab */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* Get the vdata structure */ vs = w->vs; /* Vdata should have an aid */ if (vs->aid == 0 || vs->aid == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL) else { intn retcode = 0; sp_info_block_t info_block; HDmemset(&info_block, 0, sizeof(sp_info_block_t)); /* Get the special info */ retcode = HDget_special_info(vs->aid, &info_block); /* When HDget_special_info returns FAIL, it could be the element is not special or some failure occur internally, info_block.key will be FAIL in the former case */ if (retcode == FAIL) { if (info_block.key == FAIL) ret_value = 0; /* not a special elem, no external file name */ /* Some failure occurred in HDget_special_info */ else HGOTO_ERROR(DFE_ARGS, FAIL) } /* If the vdata has external element, get the external info */ else if (info_block.key == SPECIAL_EXT) { /* If the file name is not available, the file is probably corrupted, so we need to report it. */ if (info_block.path == NULL || HDstrlen(info_block.path) <= 0) ret_value = FAIL; else { intn tmp_len = (intn)info_block.length_file_name; /* If caller requests the length of the external file name only, return the length */ if (buf_size == 0) actual_fname_len = tmp_len; else { /* Caller requests file name, so buffer must not be NULL */ if (ext_filename == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Compute the length of the name to be returned: if requested buffer size is smaller, use that value for name's length, but that means file name could be truncated! */ actual_fname_len = (intn)buf_size < tmp_len ? (intn)buf_size : tmp_len; /* Get the name */ HDstrncpy(ext_filename, info_block.path, buf_size); /* Get offset/length of the external data if requested */ if (offset != NULL) *offset = info_block.offset; if (length != NULL) *length = info_block.length; } /* buf_size != 0 */ ret_value = actual_fname_len; } } /* Special, but not external */ else ret_value = 0; /* no external file name */ } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetexternalinfo */ /*----------------------------------------------------------------- NAME VSfpack -- pack into or unpack from a buf the values of fully interlaced fields. USAGE intn VSfpack(int32 vsid, intn packtype, char *fields_in_buf, void * buf, intn bufsz, intn n_records, char *fields, void * fldbufpt[]) int32 vsid; IN: vdata id. intn packtype; IN: _HDF_VSPACK(0) -- pack field values into vdata buf; _HDF_VSUNPACK(1) -- unpack vdata value into filed bufs. char *fields_in_buf; IN: fields in buf to write to or read from vdata. NULL stands for all fields in the vdata. void * buf; IN: buffer for vdata values. intn bufsz; IN: buf size in byte. intn n_records; IN: number of records to pack or unpack. char *fields; IN: names of the fields to be pack/unpack. It may be a subset of the fields_in_buf. NULL stands for all fields in buf. void * fldbufpt[]; IN: array of pointers to field buffers. RETURNS SUCCEED(0) on success; FIAL(-1) otherwise. DESCRIPTION 1. This pack/unpack routine is convenient for users. It also serves for FORTRAN programs to pack/unpack numeric and non-numeric fields. 2. The caller should supply correct number of field buffers, which should agree with the number of fields to be packed/unpacked. 3. For packtype = _HDF_VSPACK, the calling sequence should be: VSsetfields, VSfpack, and VSwrite; For packtype = _HDF_VSUNPACK, the calling sequence should be: VSsetfields, VSread and VSfpack. */ /*---------------------------------------------------------*/ intn VSfpack(int32 vsid, intn packtype, const char *fields_in_buf, void * buf, intn bufsz, intn n_records, const char *fields, void * fldbufpt[]) { CONSTR(FUNC, "VSfpack"); int32 ac; char **av, *s; uint8 *bufp = (uint8 *)buf; uint8 **fbufps=NULL; int32 b_rec_size, *fmsizes=NULL, *foffs=NULL; intn i, j, found, ret_value = SUCCEED; vsinstance_t *wi; VDATA *vs; DYN_VWRITELIST *w; struct blist_t { /* contains info about fields in buf */ intn n; /* number of fields in buf */ int32 *idx; /* index of buf fields in vdata */ int32 *offs; /* offset of buf fields in buf */ } blist; if (HAatom_group(vsid)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vgtab */ if (NULL == (wi = (vsinstance_t *) HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); vs = wi->vs; if (vs == NULL) HGOTO_ERROR(DFE_NOVS, FAIL); w = &vs->wlist; /* build blist based on info in w */ if (fields_in_buf == NULL) ac = w->n; else { /* build our own blist */ if (scanattrs(fields_in_buf, &ac, &av) == FAIL) HGOTO_ERROR(DFE_BADFIELDS, FAIL); if ((av == NULL) || (ac < 1)) HGOTO_ERROR(DFE_ARGS, FAIL); } blist.n = ac; blist.idx = (int32 *)HDmalloc((size_t)ac * sizeof(int32)); blist.offs = (int32 *)HDmalloc((size_t)ac * sizeof(int32)); if ((blist.idx == NULL) || (blist.offs == NULL)) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* fill arrays blist.msizes and blist.offs; calculate buf record size */ b_rec_size = 0; if (fields_in_buf != NULL) /* a subset of vdata fields are contained in buf */ for (i=0; in; j++) { #ifdef VDATA_FIELDS_ALL_UPPER if (matchnocase(s, w->name[j])) { found = 1; break; } #else if (HDstrcmp(s, w->name[j]) == 0) { found = 1; break; } #endif /* VDATA_FIELDS_ALL_UPPER */ } /* for j */ if (!found) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* get field info */ blist.idx[i] = j; blist.offs[i] = (i==0? 0 : blist.offs[i-1] + w->esize[blist.idx[i-1]]); b_rec_size += w->esize[j]; } /* for i */ else /* buf contains all vdata fields */ for (i=0; i< ac; i++) { blist.idx[i] = i; blist.offs[i] = (i==0? 0 : blist.offs[i-1] + w->esize[i-1]); b_rec_size += w->esize[i]; } /* check bufsz */ if (bufsz < b_rec_size * n_records) HGOTO_ERROR(DFE_NOTENOUGH, FAIL); if (fields != NULL) { /* convert field names into tokens. */ if (scanattrs(fields, &ac, &av) == FAIL ) HGOTO_ERROR(DFE_BADFIELDS, FAIL); if ((av == NULL) || (ac < 1)) HGOTO_ERROR(DFE_ARGS, FAIL); } else ac = blist.n; /* fill array of fmsizes, foffs, fbufps */ if ((fmsizes=(int32 *)HDmalloc((size_t)ac*sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if ((foffs = (int32 *)HDmalloc((size_t)ac*sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if ((fbufps=(uint8 **)HDmalloc((size_t)ac*sizeof(uint8 *))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (fields != NULL) { /* a subset of buf fields */ for (i=0; iname[blist.idx[j]])) { found = 1; break; } #else if (HDstrcmp(s, w->name[blist.idx[j]]) == 0) { found = 1; break; } #endif /* VDATA_FIELDS_ALL_UPPER */ } /* for */ if (!found) HGOTO_ERROR(DFE_BADFIELDS, FAIL); fmsizes[i] = (int32)w->esize[blist.idx[j]]; foffs[i] = blist.offs[j]; fbufps[i] = fldbufpt[i]; if (fbufps[i] == NULL) HGOTO_ERROR(DFE_BADPTR,FAIL); } } else { /* all buf fields */ for (i=0; i < ac; i++) { fmsizes[i] = (int32)w->esize[blist.idx[i]]; foffs[i] = blist.offs[i]; fbufps[i] = fldbufpt[i]; if (fbufps[i] == NULL) HGOTO_ERROR(DFE_BADPTR,FAIL); } } if (packtype == _HDF_VSPACK ) { /* memory copy fields data to vdata buf */ for (i=0; i typedef FILE *hdf_file_t; #if defined SUN && defined (__GNUC__) # define HI_OPEN(p, a) (((a) & DFACC_WRITE) ? \ fopen((p), "r+") : fopen((p), "r")) # define HI_CREATE(p) (fopen((p), "w+")) #else /* !SUN w/ GNU CC */ # define HI_OPEN(p, a) (((a) & DFACC_WRITE) ? \ fopen((p), "rb+") : fopen((p), "rb")) # define HI_CREATE(p) (fopen((p), "wb+")) #endif /* !SUN w/ GNU CC */ # define HI_READ(f, b, n) (((size_t)(n) == (size_t)fread((b), 1, (size_t)(n), (f))) ? \ SUCCEED : FAIL) # define HI_WRITE(f, b, n) (((size_t)(n) == (size_t)fwrite((b), 1, (size_t)(n), (f))) ? \ SUCCEED : FAIL) # define HI_CLOSE(f) (((f = ((fclose(f)==0) ? NULL : f))==NULL) ? SUCCEED:FAIL) # define HI_FLUSH(f) (fflush(f)==0 ? SUCCEED : FAIL) # define HI_SEEK(f,o) (fseek((f), (long)(o), SEEK_SET)==0 ? SUCCEED : FAIL) # define HI_SEEK_CUR(f,o) (fseek((f), (long)(o), SEEK_CUR)==0 ? SUCCEED : FAIL) # define HI_SEEKEND(f) (fseek((f), (long)0, SEEK_END)==0 ? SUCCEED : FAIL) # define HI_TELL(f) (ftell(f)) # define OPENERR(f) ((f) == (FILE *)NULL) #endif /* FILELIB == UNIXBUFIO */ #if (FILELIB == UNIXUNBUFIO) /* using UNIX unbuffered file I/O routines to access files */ typedef int hdf_file_t; # define HI_OPEN(p, a) (((a) & DFACC_WRITE) ? \ open((p), O_RDWR) : open((p), O_RDONLY)) # define HI_CREATE(p) (open((p), O_RDWR | O_CREAT | O_TRUNC, 0666)) # define HI_CLOSE(f) (((f = ((close(f)==0) ? NULL : f))==NULL) ? SUCCEED:FAIL) # define HI_FLUSH(f) (SUCCEED) # define HI_READ(f, b, n) (((n)==read((f), (char *)(b), (n))) ? SUCCEED : FAIL) # define HI_WRITE(f, b, n) (((n)==write((f), (char *)(b), (n))) ? SUCCEED : FAIL) # define HI_SEEK(f, o) (lseek((f), (off_t)(o), SEEK_SET)!=(-1) ? SUCCEED : FAIL) # define HI_SEEKEND(f) (lseek((f), (off_t)0, SEEK_END)!=(-1) ? SUCCEED : FAIL) # define HI_TELL(f) (lseek((f), (off_t)0, SEEK_CUR)) # define OPENERR(f) (f < 0) #endif /* FILELIB == UNIXUNBUFIO */ #if (FILELIB == MACIO) /* using special routines to redirect to Mac Toolkit I/O */ typedef short hdf_file_t; # define HI_OPEN(x,y) mopen(x,y) # define HI_CREATE(name) mopen(name, DFACC_CREATE) # define HI_CLOSE(x) (((x = ((mclose(x)==0) ? NULL : x))==NULL) ? SUCCEED:FAIL) # define HI_FLUSH(a) (SUCCEED) # define HI_READ(a,b,c) mread(a, (char *) b, (int32) c) # define HI_WRITE(a,b,c) mwrite(a, (char *) b, (int32) c) # define HI_SEEK(x,y) mlseek(x, (int32 )y, 0) # define HI_SEEKEND(x) mlseek(x, 0L, 2) # define HI_TELL(x) mlseek(x,0L,1) # define DF_OPENERR(f) ((f) == -1) # define OPENERR(f) (f < 0) #endif /* FILELIB == MACIO */ /* ----------------------- Internal Data Structures ----------------------- */ /* The internal structure used to keep track of the files opened: an array of filerec_t structures, each has a linked list of ddblock_t. Each ddblock_t struct points to an array of dd_t structs. File Header(4 bytes) =================== <--- 32 bits -----> ------------------ |HDF magic number | ------------------ HDF magic number - 0x0e031301 (Hexadecimal) Data Descriptor(DD - 12 bytes) ============================== <- 16 bits -> <- 16 bits -> <- 32 bits -> <- 32 bits -> -------------------------------------------------------- | Tag | reference | Offset | Length | | | number | | | -------------------------------------------------------- \____________/ V tag/ref (unique data indentifier in file) Tag -- identifies the type of data, 16 bit unsigned integer whose value ranges from 1 - 65535. Tags are assigned by NCSA. The HDF tag space is divided as follows based on the 2 highest bits: 00: NCSA reserved ordinary tags 01: NCSA reserved special tags(i.e. regular tags made into linked-block, external, compressed or chunked.) 10, 11: User tags. Current tag assingments are: 00001 - 32767 - reserved for NCSA use 00001 - 16383 - NCSA regular tags 16384 - 32767 - NCSA special tags 32768 - 64999 - user definable 65000 - 65535 - reserved for expansion of format Refererence number - 16 bit unsigned integer whose assignment is not gauranteed to be consecutive. Provides a way to distinguish elements with the same tag in the file. Offset - Specifies the byte offset of the data element from the beginning of the file - 32 bit unsigned integer Length - Indicates the byte length of the data element 32 bit unsigned integer Data Descriptor Header(DDH - 6 bytes) ==================================== <- 16 bits -> <- 32 bits -> ----------------------------- | Block Size | Next Block | ----------------------------- Block Size - Indicates the number of DD's in the DD Block, 16 bit unsigned integer value Next Block - Gives the offset of the next DD Block. The last DD Block has a ZERO(0) in the "Next Block" field in the DDH. 32 bit unsigned integer value Data Descriptor Block(DDB - variable size) ========================================== <- DD Header -> <--------------- DD's ---------------------> --------------------------------------------------------...- |Block | Next | DD | DD | DD | DD | DD | DD | DD | DD |...| |Size | Block | | | | | | | | | | --------------------------------------------------------...- <-------------------------- DD Block ----------------------> Note: default number of DD's in a DD Block is 16 HDF file layout ============================= (one example) --------------------------------------------------------------------- | FH | DD Block | Data | DD Block | Data | DD Block | Data | ..... --------------------------------------------------------------------- */ /* record of each data decsriptor */ typedef struct dd_t { uint16 tag; /* Tag number of element i.e. type of data */ uint16 ref; /* Reference number of element */ int32 length; /* length of data element */ int32 offset; /* byte offset of data element from */ struct ddblock_t *blk; /* Pointer to the block this dd is in */ } /* beginning of file */ dd_t; /* version tags */ typedef struct version_t { uint32 majorv; /* major version number */ uint32 minorv; /* minor version number */ uint32 release; /* release number */ char string[LIBVSTR_LEN + 1]; /* optional text description, len 80+1 */ int16 modified; /* indicates file was modified */ } version_t; /* record of a block of data descriptors, mirrors structure of a HDF file. */ typedef struct ddblock_t { uintn dirty; /* boolean: should this DD block be flushed? */ int32 myoffset; /* offset of this DD block in the file */ int16 ndds; /* number of dd's in this block */ int32 nextoffset; /* offset to the next ddblock in the file */ struct filerec_t *frec; /* Pointer to the filerec this block is in */ struct ddblock_t *next; /* pointer to the next ddblock in memory */ struct ddblock_t *prev; /* Pointer to previous ddblock. */ struct dd_t *ddlist; /* pointer to array of dd's */ } ddblock_t; /* Tag tree node structure */ typedef struct tag_info_str { uint16 tag; /* tag value for this node */ /* Needs to be first in this structure */ bv_ptr b; /* bit-vector to keep track of which refs are used */ dynarr_p d; /* dynarray of the refs for this tag */ }tag_info; /* For determining what the last file operation was */ typedef enum { H4_OP_UNKNOWN = 0, /* Don't know what the last operation was (after fopen frex) */ H4_OP_SEEK, /* Last operation was a seek */ H4_OP_WRITE, /* Last operation was a write */ H4_OP_READ /* Last operation was a read */ } fileop_t; /* File record structure */ typedef struct filerec_t { char *path; /* name of file */ hdf_file_t file; /* either file descriptor or pointer */ uint16 maxref; /* highest ref in this file */ intn access; /* access mode */ intn refcount; /* reference count / times opened */ intn attach; /* number of access elts attached */ intn version_set; /* version tag stuff */ version_t version; /* file version info */ /* Seek caching info */ int32 f_cur_off; /* Current location in the file */ fileop_t last_op; /* the last file operation performed */ /* DD block caching info */ intn cache; /* boolean: whether caching is on */ intn dirty; /* boolean: if dd list needs to be flushed */ int32 f_end_off; /* offset of the end of the file */ /* DD list pointers */ struct ddblock_t *ddhead; /* head of ddblock list */ struct ddblock_t *ddlast; /* end of ddblock list */ /* NULL DD pointers (for fast lookup of DFTAG_NULL) */ struct ddblock_t *ddnull; /* location of last ddblock with a DFTAG_NULL */ int32 ddnull_idx; /* offset of the last location with DFTAG_NULL */ /* tag tree for file */ TBBT_TREE *tag_tree; /* TBBT of the tags in the file */ /* annotation stuff for file */ intn an_num[4]; /* Holds number of annotations found of each type */ TBBT_TREE *an_tree[4]; /* tbbt trees for each type of annotation in file * i.e. file/data labels and descriptions. * This is done for faster searching of annotations * of a particular type. */ } filerec_t; /* bits for filerec_t 'dirty' flag */ #define DDLIST_DIRTY 0x01 /* mark whether to flush dirty DD blocks */ #define FILE_END_DIRTY 0x02 /* indicate that the file needs to be extended */ /* Each access element is associated with a tag/ref to keep track of the dd it is pointing at. To facilitate searching for next dd's, instead of pointing directly to the dd, we point to the ddblock and index into the ddlist of that ddblock. */ typedef struct accrec_t { /* Flags for this access record */ intn appendable; /* whether appends to the data are allowed */ intn special; /* special element ? */ intn new_elem; /* is a new element (i.e. no length set yet) */ int32 block_size; /* size of the blocks for linked-block element*/ int32 num_blocks; /* number blocks in the linked-block element */ uint32 access; /* access codes */ uintn access_type; /* I/O access type: serial/parallel/... */ int32 file_id; /* id of attached file */ atom_t ddid; /* DD id for the DD attached to */ int32 posn; /* seek position with respect to start of element */ void * special_info; /* special element info? */ struct funclist_t *special_func; /* ptr to special function? */ struct accrec_t *next; /* for free-list linking */ } accrec_t; #ifdef HFILE_MASTER /* Pointer to the access record node free list */ static accrec_t *accrec_free_list=NULL; #endif /* HFILE_MASTER */ /* this type is returned to applications programs or other special interfaces when they need to know information about a given special element. This is all information that would not be returned via Hinquire(). This should probably be a union of structures. */ /* Added length of external element. Note: this length is not returned via Hinquire(). -BMR 2011/12/12 */ typedef struct sp_info_block_t { int16 key; /* type of special element this is */ /* external elements */ int32 offset; /* offset in the file */ int32 length; /* length of external data in the file */ int32 length_file_name; /* length of external file name */ char *path; /* file name - should not be freed by user */ /* linked blocks */ int32 first_len; /* length of first block */ int32 block_len; /* length of standard block */ int32 nblocks; /* number of blocks per chunk */ /* compressed elements */ int32 comp_type; /* compression type */ int32 model_type; /* model type */ int32 comp_size; /* size of compressed information */ /* variable-length linked blocks */ int32 min_block; /* the minimum block size */ /* Chunked elements */ int32 chunk_size; /* logical size of chunks */ int32 ndims; /* number of dimensions */ int32 *cdims; /* array of chunk lengths for each dimension */ /* Buffered elements */ int32 buf_aid; /* AID of element buffered */ } sp_info_block_t; /* a function table record for accessing special data elements. special data elements of a key could be accessed through the list of functions in array pointed to by tab. */ typedef struct funclist_t { int32 (*stread) (accrec_t * rec); int32 (*stwrite) (accrec_t * rec); int32 (*seek) (accrec_t * access_rec, int32 offset, intn origin); int32 (*inquire) (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); int32 (*read) (accrec_t * access_rec, int32 length, void * data); int32 (*write) (accrec_t * access_rec, int32 length, const void * data); intn (*endaccess) (accrec_t * access_rec); int32 (*info) (accrec_t * access_rec, sp_info_block_t * info); int32 (*reset) (accrec_t * access_rec, sp_info_block_t * info); } funclist_t; typedef struct functab_t { int16 key; /* the key for this type of special elt */ funclist_t *tab; /* table of accessing functions */ } functab_t; /* ---------------------- ID Types and Manipulation ----------------------- */ /* each id, what ever the type, will be represented with a 32-bit word, the most-significant 16 bits is a number unique for type. The less- significant 16 bits is an id unique to each type; in this, we use the internal slot number. */ #define FIDTYPE 1 #define AIDTYPE 2 #define GROUPTYPE 3 #define SDSTYPE 4 #define DIMTYPE 5 #define CDFTYPE 6 #define VGIDTYPE 8 /* also defined in vg.h for Vgroups */ #define VSIDTYPE 9 /* also defined in vg.h for Vsets */ #define BITTYPE 10 /* For bit-accesses */ #define GRIDTYPE 11 /* for GR access */ #define RIIDTYPE 12 /* for RI access */ #define BADFREC(r) ((r)==NULL || (r)->refcount==0) /* --------------------------- Special Elements --------------------------- */ /* The HDF tag space is divided as follows based on the 2 highest bits: 00: NCSA reserved ordinary tags 01: NCSA reserved special tags(e.g. linked-block, external, compressed,..) 10, 11: User tags. It is relatively cheap to operate with special tags within the NCSA reserved tags range. For users to specify special tags and their corresponding ordinary tag, the pair has to be added to the special_table in hfile.c and SPECIAL_TABLE must be defined. */ #ifdef SPECIAL_TABLE #define BASETAG(t) (HDbase_tag(t)) #define SPECIALTAG(t) (HDis_special_tag(t)) #define MKSPECIALTAG(t) (HDmake_special_tag(t)) #else /* This macro converts a (potentially) special tag into a normal tag */ #define BASETAG(t) (uint16)((~(t) & 0x8000) ? ((t) & ~0x4000) : (t)) /* This macro checks if a tag is special */ #define SPECIALTAG(t) (uint16)((~(t) & 0x8000) && ((t) & 0x4000)) /* This macro (potentially) converts a regular tag into a special tag */ #define MKSPECIALTAG(t) (uint16)((~(t) & 0x8000) ? ((t) | 0x4000) : DFTAG_NULL) #endif /*SPECIAL_TABLE */ /* -------------------------- H-Layer Prototypes -------------------------- */ /* ** Functions to get information of special elt from other access records. ** defined in hfile.c ** These should really be HD... routines, but they are only used within ** the H-layer... */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ HDFLIBAPI accrec_t *HIget_access_rec (void); HDFLIBAPI void HIrelease_accrec_node(accrec_t *acc); HDFLIBAPI void * HIgetspinfo (accrec_t * access_rec); HDFLIBAPI intn HPcompare_filerec_path (const void * obj, const void * key); HDFLIBAPI intn HPcompare_accrec_tagref (const void * rec1, const void * rec2); HDFLIBAPI int32 HPgetdiskblock (filerec_t * file_rec, int32 block_size, intn moveto); HDFLIBAPI intn HPfreediskblock (filerec_t * file_rec, int32 block_offset, int32 block_size); HDFLIBAPI intn HPisfile_in_use (const char *path); HDFLIBAPI int32 HDcheck_empty (int32 file_id, uint16 tag, uint16 ref, intn *emptySDS); HDFLIBAPI int32 HDget_special_info (int32 access_id, sp_info_block_t * info_block); HDFLIBAPI int32 HDset_special_info (int32 access_id, sp_info_block_t * info_block); HDFLIBAPI intn HP_read (filerec_t *file_rec,void * buf,int32 bytes); HDFLIBAPI intn HPseek (filerec_t *file_rec,int32 offset); HDFLIBAPI intn HP_write (filerec_t *file_rec,const void * buf,int32 bytes); HDFLIBAPI int32 HPread_drec (int32 file_id, atom_t data_id, uint8** drec_buf); HDFLIBAPI intn tagcompare (void * k1, void * k2, intn cmparg); HDFLIBAPI VOID tagdestroynode (void * n); /* ** from hblocks.c */ HDFLIBAPI int32 HLPstread (accrec_t * access_rec); HDFLIBAPI int32 HLPstwrite (accrec_t * access_rec); HDFLIBAPI int32 HLPseek (accrec_t * access_rec, int32 offset, int origin); HDFLIBAPI int32 HLPread (accrec_t * access_rec, int32 length, void * data); HDFLIBAPI int32 HLPwrite (accrec_t * access_rec, int32 length, const void * data); HDFLIBAPI int32 HLPinquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); HDFLIBAPI intn HLPendaccess (accrec_t * access_rec); HDFLIBAPI int32 HLPcloseAID (accrec_t * access_rec); HDFLIBAPI int32 HLPinfo (accrec_t * access_rec, sp_info_block_t * info_block); /* ** from hextelt.c */ HDFLIBAPI int32 HXPstread (accrec_t * rec); HDFLIBAPI int32 HXPstwrite (accrec_t * rec); HDFLIBAPI int32 HXPseek (accrec_t * access_rec, int32 offset, int origin); HDFLIBAPI int32 HXPread (accrec_t * access_rec, int32 length, void * data); HDFLIBAPI int32 HXPwrite (accrec_t * access_rec, int32 length, const void * data); HDFLIBAPI int32 HXPinquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); HDFLIBAPI intn HXPendaccess (accrec_t * access_rec); HDFLIBAPI int32 HXPcloseAID (accrec_t * access_rec); HDFLIBAPI int32 HXPinfo (accrec_t * access_rec, sp_info_block_t * info_block); HDFLIBAPI int32 HXPreset (accrec_t * access_rec, sp_info_block_t * info_block); HDFLIBAPI intn HXPsetaccesstype (accrec_t * access_rec); HDFLIBAPI intn HXPshutdown (void); /* ** from hcomp.c */ HDFLIBAPI int32 HCPstread (accrec_t * rec); HDFLIBAPI int32 HCPstwrite (accrec_t * rec); HDFLIBAPI int32 HCPseek (accrec_t * access_rec, int32 offset, int origin); HDFLIBAPI int32 HCPinquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); HDFLIBAPI int32 HCPread (accrec_t * access_rec, int32 length, void * data); HDFLIBAPI int32 HCPwrite (accrec_t * access_rec, int32 length, const void * data); HDFLIBAPI intn HCPendaccess (accrec_t * access_rec); HDFLIBAPI int32 HCPcloseAID (accrec_t * access_rec); HDFLIBAPI int32 HCPinfo (accrec_t * access_rec, sp_info_block_t * info_block); HDFLIBAPI int32 get_comp_len (accrec_t* access_rec); /* ** from hchunks.c - should be the same as found in 'hchunks.h' */ #include "hchunks.h" /* ** from hbuffer.c */ HDFLIBAPI int32 HBPstread (accrec_t * rec); HDFLIBAPI int32 HBPstwrite (accrec_t * rec); HDFLIBAPI int32 HBPseek (accrec_t * access_rec, int32 offset, int origin); HDFLIBAPI int32 HBPinquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); HDFLIBAPI int32 HBPread (accrec_t * access_rec, int32 length, void * data); HDFLIBAPI int32 HBPwrite (accrec_t * access_rec, int32 length, const void * data); HDFLIBAPI intn HBPendaccess (accrec_t * access_rec); HDFLIBAPI int32 HBPcloseAID (accrec_t * access_rec); HDFLIBAPI int32 HBPinfo (accrec_t * access_rec, sp_info_block_t * info_block); /* ** from hcompri.c */ HDFLIBAPI int32 HRPstread (accrec_t * rec); HDFLIBAPI int32 HRPstwrite (accrec_t * rec); HDFLIBAPI int32 HRPseek (accrec_t * access_rec, int32 offset, int origin); HDFLIBAPI int32 HRPinquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); HDFLIBAPI int32 HRPread (accrec_t * access_rec, int32 length, void * data); HDFLIBAPI int32 HRPwrite (accrec_t * access_rec, int32 length, const void * data); HDFLIBAPI intn HRPendaccess (accrec_t * access_rec); HDFLIBAPI int32 HRPcloseAID (accrec_t * access_rec); HDFLIBAPI int32 HRPinfo (accrec_t * access_rec, sp_info_block_t * info_block); /* ** from hfiledd.c */ /****************************************************************************** NAME HTPstart - Initialize the DD list in memory DESCRIPTION Reads the DD blocks from disk and creates the in-memory structures for handling them. This routine should only be called once for a given file and HTPend should be called when finished with the DD list (i.e. when the file is being closed). RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPstart(filerec_t *file_rec /* IN: File record to store info in */ ); /****************************************************************************** NAME HTPinit - Create a new DD list in memory DESCRIPTION Creates a new DD list in memory for a newly created file. This routine should only be called once for a given file and HTPend should be called when finished with the DD list (i.e. when the file is being closed). RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPinit(filerec_t *file_rec, /* IN: File record to store info in */ int16 ndds /* IN: # of DDs to store in each block */ ); /****************************************************************************** NAME HTPsync - Flush the DD list in memory DESCRIPTION Syncronizes the in-memory copy of the DD list with the copy on disk by writing out the DD blocks which have changed to disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPsync(filerec_t *file_rec /* IN: File record to store info in */ ); /****************************************************************************** NAME HTPend - Terminate the DD list in memory DESCRIPTION Terminates access to the DD list in memory, writing the DD blocks out to the disk (if they've changed). After this routine is called, no further access to tag/refs (or essentially any other HDF objects) can be performed on the file. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPend(filerec_t *file_rec /* IN: File record to store info in */ ); /****************************************************************************** NAME HTPcreate - Create (and attach to) a tag/ref pair DESCRIPTION Creates a new tag/ref pair in memory and inserts the tag/ref pair into the DD list to be written out to disk. This routine returns a DD id which can be used in the other tag/ref routines to modify the DD. RETURNS Returns DD id if successful and FAIL otherwise *******************************************************************************/ atom_t HTPcreate(filerec_t *file_rec, /* IN: File record to store info in */ uint16 tag, /* IN: Tag to create */ uint16 ref /* IN: ref to create */ ); /****************************************************************************** NAME HTPselect - Attach to an existing tag/ref pair DESCRIPTION Attaches to an existing tag/ref pair. This routine returns a DD id which can be used in the other tag/ref routines to modify the DD. RETURNS Returns DD id if successful and FAIL otherwise *******************************************************************************/ atom_t HTPselect(filerec_t *file_rec, /* IN: File record to store info in */ uint16 tag, /* IN: Tag to select */ uint16 ref /* IN: ref to select */ ); /****************************************************************************** NAME HTPendaccess - End access to an existing tag/ref pair DESCRIPTION Ends access to an existing tag/ref pair. Any further access to the tag/ref pair may result in incorrect information being recorded about the DD in memory or on disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPendaccess(atom_t ddid /* IN: DD id to end access to */ ); /****************************************************************************** NAME HTPdelete - Delete an existing tag/ref pair DESCRIPTION Deletes a tag/ref from the file. Also ends access to the tag/ref pair. Any further access to the tag/ref pair may result in incorrect information being recorded about the DD in memory or on disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPdelete(atom_t ddid /* IN: DD id to delete */ ); /****************************************************************************** NAME HTPupdate - Change the offset or length of an existing tag/ref pair DESCRIPTION Updates a tag/ref in the file, allowing the length and/or offset to be modified. Note: "INVALID_OFFSET" & "INVALID_LENGTH" are used to indicate that the length or offset (respectively) is unchanged. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPupdate(atom_t ddid, /* IN: DD id to update */ int32 new_off, /* IN: new offset for DD */ int32 new_len /* IN: new length for DD */ ); /****************************************************************************** NAME HTPinquire - Get the DD information for a DD (i.e. tag/ref/offset/length) DESCRIPTION Get the DD information for a DD id from the DD block. Passing NULL for any parameter does not try to update that parameter. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPinquire(atom_t ddid, /* IN: DD id to inquire about */ uint16 *tag, /* IN: tag of DD */ uint16 *ref, /* IN: ref of DD */ int32 *off, /* IN: offset of DD */ int32 *len /* IN: length of DD */ ); /****************************************************************************** NAME HTPis_special - Check if a DD id is associated with a special tag DESCRIPTION Checks if the tag for the DD id is a special tag. RETURNS Returns TRUE(1)/FALSE(0) if successful and FAIL otherwise *******************************************************************************/ intn HTPis_special(atom_t ddid /* IN: DD id to inquire about */ ); /****************************************************************************** NAME HTPdump_dds -- Dump out the dd information for a file DESCRIPTION Prints out all the information (that you could _ever_ want to know) about the dd blocks and dd list for a file. RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. *******************************************************************************/ intn HTPdump_dds(int32 file_id, /* IN: file ID of HDF file to dump info for */ FILE *fout /* IN: file stream to output to */ ); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* #define DISKBLOCK_DEBUG */ #ifdef DISKBLOCK_DEBUG #ifndef HFILE_MASTER extern #endif /* HFILE_MASTER */ const uint8 diskblock_header[4] #ifdef HFILE_MASTER ={0xde, 0xad, 0xbe, 0xef} #endif /* HFILE_MASTER */ ; #ifndef HFILE_MASTER extern #endif /* HFILE_MASTER */ const uint8 diskblock_tail[4] #ifdef HFILE_MASTER ={0xfe, 0xeb, 0xda, 0xed} #endif /* HFILE_MASTER */ ; #define DISKBLOCK_HSIZE sizeof(diskblock_header) #define DISKBLOCK_TSIZE sizeof(diskblock_tail) #endif /* DISKBLOCK_DEBUG */ #endif /* HFILE_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/df.h0000644000000000000000000001676112421456623013213 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: df.h 5444 2010-08-25 16:40:05Z byrn $ */ /*----------------------------------------------------------------------------- * File: df.h * Purpose: header file for HDF routines * Invokes: dfi.h * Contents: * Structure definitions: DFddh, DFdd, DFdesc, DFdle, DF, DFdi, DFdata * Procedure type definitions * Global variables * Tag definitions * Error return codes * Logical constants * Remarks: This file is included with user programs * Since it includes stdio.h etc., do not include these after df.h *---------------------------------------------------------------------------*/ #ifndef DF_H /* avoid re-inclusion */ #define DF_H #include "H4api_adpt.h" /* include DF (internal) header information */ #include "hdf.h" /*-------------------------------------------------------------------------*/ /* Type declarations */ typedef struct DFddh { /*format of data descriptor headers in file */ int16 dds; /* number of dds in header block */ int32 next; /* offset of next header block */ } DFddh; typedef struct DFdd { /* format of data descriptors as in file */ uint16 tag; /* data tag */ uint16 ref; /* data reference number */ int32 offset; /* offset of data element in file */ int32 length; /* number of bytes */ } DFdd; /* descriptor structure is same as dd structure. ###Note: may be changed */ typedef DFdd DFdesc; /* DLE is the internal structure which stores data descriptor information */ /* It is a linked list of DDs */ typedef struct DFdle { /* Data List element */ struct DFdle *next; /* link to next dle */ DFddh ddh; /* To store headers */ DFdd dd[1]; /* dummy size */ } DFdle; /* DF is the internal structure associated with each DF file */ /* It holds information associated with the file as a whole */ /* ### Note: there are hooks for having multiple DF files open at a time */ typedef struct DF { DFdle *list; /* Pointer to the DLE list */ DFdle *last_dle; /* last_dle and last_dd are used in searches */ /* to indicate element returned */ /* by previous call to DFfind */ DFdd *up_dd; /* DD of element being read/updated, */ /* used by DFstart */ uint16 last_tag; /* Last tag searched for by DFfind */ uint16 last_ref; /* Last reference number searched for */ intn type; /* 0= not in use, 1= normal, -1 = multiple */ /* this is a hook for when */ /* multiple files are open */ intn access; /* permitted access types: */ /* 0=none, 1=r, 2=w, 3=r/w */ intn changed; /* True if anything in DDs modified */ /* since last write */ intn last_dd; /* see last_dle */ intn defdds; /* default numer of DD's in each block */ intn up_access; /* access permissions to element being */ /* read/updated. Used by DFstart */ /* File handle is a file pointer or file descriptor depending on whether */ /* we use buffered or unbuffered I/O. But, since this structure is a */ /* fake, it doesn't matter whether I/O is buffered or not. */ intn file; /* file descriptor */ } DF; typedef struct DFdata { /* structure for returning status information */ int32 version; /* version number of program */ } DFdata; /*--------------------------------------------------------------------------*/ /* Procedure types */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* prototypes for dfstubs.c */ HDFLIBAPI DF *DFopen (char *name, int acc_mode, int ndds); HDFLIBAPI int DFclose (DF * dfile); HDFLIBAPI int DFdescriptors (DF * dfile, DFdesc ptr[], int begin, int num); HDFLIBAPI int DFnumber (DF * dfile, uint16 tag); HDFLIBAPI int DFsetfind (DF * dfile, uint16 tag, uint16 ref); HDFLIBAPI int DFfind (DF * dfile, DFdesc * ptr); HDFLIBAPI int DFaccess (DF * dfile, uint16 tag, uint16 ref, char *acc_mode); HDFLIBAPI int DFstart (DF * dfile, uint16 tag, uint16 ref, char *acc_mode); HDFLIBAPI int32 DFread (DF * dfile, char *ptr, int32 len); HDFLIBAPI int32 DFseek (DF * dfile, int32 offset); HDFLIBAPI int32 DFwrite (DF * dfile, char *ptr, int32 len); HDFLIBAPI int DFupdate (DF * dfile); HDFLIBAPI int DFstat (DF * dfile, DFdata * dfinfo); HDFLIBAPI int32 DFgetelement (DF * dfile, uint16 tag, uint16 ref, char *ptr); HDFLIBAPI int32 DFputelement (DF * dfile, uint16 tag, uint16 ref, char *ptr, int32 len); HDFLIBAPI int DFdup (DF * dfile, uint16 itag, uint16 iref, uint16 otag, uint16 oref); HDFLIBAPI int DFdel (DF * dfile, uint16 tag, uint16 ref); HDFLIBAPI uint16 DFnewref (DF * dfile); HDFLIBAPI int DFishdf (char *filename); HDFLIBAPI int DFerrno (void); HDFLIBAPI int DFIerr (DF * dfile); HDFLIBAPI int DFImemcopy (char *from, char *to, int length); HDFLIBAPI void *DFIgetspace (uint32 qty); HDFLIBAPI void *DFIfreespace (void *ptr); HDFLIBAPI int DFIc2fstr (char *str, int len); HDFLIBAPI char *DFIf2cstring (_fcd fdesc, intn len); /* prototypes for dfconv.c */ HDFLIBAPI int DFconvert (uint8 *source, uint8 *dest, int ntype, int sourcetype, int desttype, int32 size); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /*--------------------------------------------------------------------------*/ /* Global Variables */ #ifndef DFMASTER HDFLIBAPI #endif /*DFMASTER */ int DFerror; /* Error code for DF routines */ #define DFSETERR(error) (DFerror=(DFerror?DFerror:error)) #define DFTOFID(df) (int32)(df->list) #endif /* DF_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hdfalloc.c0000644000000000000000000002362512421456623014366 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hdfalloc.c 6043 2014-01-21 21:09:03Z acheng $ */ #ifdef MALDEBUG #define __MALDEBUG__ #endif #include "hdf.h" /* LOCAL ROUTINES None EXPORTED ROUTINES HDmemfill -- copy a chunk of memory repetitively into another chunk HIstrncpy -- string copy with termination HDmalloc -- dynamicly allocates memory HDrealloc -- dynamicly resize (reallocate) memory HDfree -- free dynamicly allocated memory HDcalloc -- dynamicly allocates memory and clears it to zero HDstrdup -- in-library replacement for non-ANSI strdup() */ /*-------------------------------------------------------------------------- NAME HDmemfill -- copy a chunk of memory repetitively into another chunk USAGE void * HDmemfill(dest,src,item_size,num_items) void * dest; OUT: pointer to the chunk of memory to be filled with a pattern void * src; IN: pointer to the pattern to copy uint32 item_size; IN: size of the pattern to copy uint32 num_items; IN: number of times to copy the pattern into the dest buffer RETURNS Returns a pointer to the dest parameter DESCRIPTION Common code used to fill a chunk of memory with a pattern. This routine can be used to copy a given "fill" value into an array of any number type. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS The src and dest pointers are assumed to point to valid portions of memory. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void * HDmemfill(void * dest, const void * src, uint32 item_size, uint32 num_items) { uint32 copy_size; /* size of the buffer to copy */ uint32 copy_items; /* number of items currently copying */ uint32 items_left; /* number of items left to copy */ uint8 *curr_dest; /* ptr into the 'dest' memory where we are currently */ /* minimal error check for 0 sized array or item size */ if (num_items > 0 && item_size > 0) { HDmemcpy(dest, src, item_size); /* copy first item */ copy_size = item_size; copy_items = 1; items_left = num_items - 1; curr_dest = ((uint8 *) dest) + item_size; /* copy until we've copied at least half of the items */ while (items_left >= copy_items) { HDmemcpy(curr_dest, dest, copy_size); /* copy the current chunk */ curr_dest += copy_size; /* move the offset for the next chunk */ items_left -= copy_items; /* decrement the number of items left */ copy_size *= 2; /* increase the size of the chunk to copy */ copy_items *= 2; /* increase the count of items we are copying */ } /* end while */ if (items_left > 0) /* if there are any items left to copy */ HDmemcpy(curr_dest, dest, items_left * item_size); } /* end if */ return (dest); } /* end HDmemfill() */ /*-------------------------------------------------------------------------- NAME HIstrncpy -- string copy with termination USAGE char *HIstrncpy(char *dest,char *source,int32 len) char *dest; OUT: location to place string char *source; IN: location of string to copy int32 len; IN: mas. length of dest. string RETURNS dest on success, NULL on failure. DESCRIPTION This function creates a string in dest that is at most 'len' characters long. The 'len' characters *include* the NULL terminator which must be added. So if you have the string "Foo\0" you must call this copy function with len == 4. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG Sep 19, 11 - Changed last argument's type from int32 to intn. It didn't make sense to have to cast in most places. -BMR --------------------------------------------------------------------------*/ char * HIstrncpy(char *dest, const char *source, intn len) { char *destp; destp = dest; if (len == 0) return (destp); for (; (len > 1) && (*source != '\0'); len--) *dest++ = *source++; *dest = '\0'; /* Force the last byte be '\0' */ return (destp); } /* end HIstrncpy() */ /* *INDENT-OFF* */ /* GNU indent 1.9.1 urps on this section, so turn off indenting for now -QAK */ /* define MALLOC_CHECK to get some more information when malloc/realloc fail */ #ifdef MALLOC_CHECK /*-------------------------------------------------------------------------- NAME HDmalloc -- dynamicly allocates memory USAGE void * HDmalloc(qty) uint32 qty; IN: the (minimum) number of bytes to allocate in the memory block. RETURNS Pointer to the memory allocated on success, NULL on failure. DESCRIPTION Dynamicly allocates a block of memory and returns a pointer to it. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Acts like malloc(). EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void * HDmalloc(uint32 qty) { char FUNC[]="HDmalloc"; char *p; p = (char *) malloc(qty); if (p== (char *) NULL) { HEreport("Attempted to allocate %d bytes", qty); HRETURN_ERROR(DFE_NOSPACE,NULL); } /* end if */ return(p); } /* end HDmalloc() */ /*-------------------------------------------------------------------------- NAME HDrealloc -- dynamicly resize (reallocate) memory USAGE void * HDrealloc(vfp,qty) void * vfp; IN: pointer to the memory block to resize. uint32 qty; IN: the (minimum) number of bytes to allocate in the new memory block. RETURNS Pointer to the memory allocated on success, NULL on failure. DESCRIPTION Dynamicly re-allocates a block of memory and returns a pointer to it. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Acts like realloc(). EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void * HDrealloc(void * where, uint32 qty) { char FUNC[]="HDrealloc"; char *p; p = (char *) realloc(where, qty); if (p== (char *) NULL) { HEreport("Attempted to re-allocate %d bytes", qty); HRETURN_ERROR(DFE_NOSPACE,NULL); } /* end if */ return(p); } /* end HDrealloc() */ /*-------------------------------------------------------------------------- NAME HDfree -- free dynamicly allocated memory USAGE void HDfree(vfp) void * vfp; IN: pointer to the memory block to free. RETURNS NULL? DESCRIPTION Free dynamicly allocated blocks of memory. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Acts like free(). EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void HDfree(void * ptr) { if (ptr!=NULL) free(ptr); } /* end HDfree() */ /*-------------------------------------------------------------------------- NAME HDcalloc -- dynamicly allocates memory and clears it to zero USAGE void * HDcalloc(n,size) uint32 n; IN: the number of blocks to allocate uint32 size; IN: the size of the block RETURNS Pointer to the memory allocated on success, NULL on failure. DESCRIPTION Dynamicly allocates a block of memory and returns a pointer to it after setting it to zero. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Acts like calloc(). Instead of doing all the work ourselves, this calls HDmalloc and HDmemset(). EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void * HDcalloc(uint32 n, uint32 size) { char FUNC[] = "HDcalloc"; void * p; p = HDmalloc(n * size); if (p == NULL) { HEreport("Attempted to allocate %d blocks of %d bytes", (int) n, (int) size); HRETURN_ERROR(DFE_NOSPACE, NULL); } /* end if */ else HDmemset(p, 0, n * size); return (p); } /* end HDcalloc() */ #endif /* MALLOC_CHECK */ #if defined IBM6000 || defined ANSISUN || defined IRIX /*-------------------------------------------------------------------------- NAME HDstrdup -- in-library replacement for non-ANSI strdup() USAGE char *HDstrdup(s) const char *s; IN: pointer to the string to duplicate RETURNS Pointer to the duplicated string, or NULL on failure. DESCRIPTION Duplicates a string (i.e. allocates space and copies it over). GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Acts like strdup(). EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ char * HDstrdup(const char *s) { char *ret; ret = (char *) HDmalloc((uint32) HDstrlen(s) + 1); if (ret == NULL) return (NULL); HDstrcpy(ret, s); return (ret); } /* end HDstrdup() */ #endif /* macinosh */ libhdf4-4.2.10/HDF_ALT/hdf/src/linklist.c0000644000000000000000000003545412421456623014446 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: linklist.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE linklist.c - Internal storage routines for handling generic linked lists REMARKS Generic linked lists are used in several places in the HDF library when a variable number of items are needed to be kept track of without the additional overhead of a threaded binary tree. The linked list can be either sorted or un-sorted, chosen at creation time. The interface allows objects (void *'s currently) to be stored and searched and interated through in a fairly easy manner DESIGN The lists are stored in a singly-linked list of node, each containing a pointer to a managed object. The list may be sorted or unsorted, based on the comparison function. BUGS/LIMITATIONS LOCAL ROUTINES HULIget_list_node - Gets a list node HULIrelease_list_node - Releases a list node EXPORTED ROUTINES HULcreate_list - Create a new linked list HULdestroy_list - Destroys a linked list HULadd_node - Adds an object to a linked-list HULsearch_node - Search for an object in a linked-list HULfirst_node - Get the first object in a linked-list HULnext_node - Get the next object in a linked-list HULremove_node - Removes an object from a linked-list HULshutdown - Close down the HUL interface AUTHOR Quincey Koziol MODIFICATION HISTORY 2/5/96 - Starting writing specs & coding prototype 2/12/96 - Finished writing specs & coding prototype, start testing */ #define LIST_MASTER #include "hdf.h" #include "linklist.h" /* Private function prototypes */ static node_info_t *HULIget_list_node(void); static void HULIrelease_list_node(node_info_t *nod); /****************************************************************************** NAME HULcreate_list - Create a linked list DESCRIPTION Creates a linked list. The list may either be sorted or un-sorted, based on the comparison function. RETURNS Returns a pointer to the list if successful and NULL otherwise *******************************************************************************/ list_head_t *HULcreate_list(HULfind_func_t find_func /* IN: object comparison function */ ) { CONSTR(FUNC, "HULcreate_list"); /* for HERROR */ list_head_t *ret_value=NULL; /* ptr to the linked list "head" node */ HEclear(); /* Allocate the head information */ if((ret_value=(list_head_t *)HDcalloc(1,sizeof(list_head_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); /* Set the counter */ ret_value->count=0; /* Store the creation flags, etc */ if(find_func==NULL) ret_value->flags=HUL_UNSORTED_LIST; else ret_value->flags=HUL_SORTED_LIST; ret_value->cmp_func=find_func; done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULcreate_list() */ /****************************************************************************** NAME HULdestroy_list - Destroys a linked list DESCRIPTION Destroys a linked list created by HULcreate_list(). This function walks through the list and frees all the nodes, then frees the list head. Note: this function does not (currently) free the objects in the nodes, it just leaves 'em hanging. RETURNS Returns SUCCEED/FAIL. *******************************************************************************/ intn HULdestroy_list(list_head_t *lst /* IN: list to destroy */ ) { CONSTR(FUNC, "HULdestroy_list"); /* for HERROR */ node_info_t *curr_node, /* current node while walking through list */ *next_node; /* next node in the list */ intn ret_value=SUCCEED; /* return value */ HEclear(); if(lst==NULL) HGOTO_ERROR(DFE_ARGS,FAIL); /* Chuck the list */ curr_node=lst->node_list; while(curr_node!=NULL) { next_node=curr_node->next; HULIrelease_list_node(curr_node); curr_node=next_node; } /* end while */ /* Chuck the list-head */ HDfree(lst); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULdestroy_list() */ /****************************************************************************** NAME HULadd_node - Adds an object to a linked-list DESCRIPTION Adds an object to the linked list. If the list is sorted, the comparison function is used to determine where to insert the node, otherwise it is inserted at the head of the list. RETURNS Returns SUCCEED/FAIL. *******************************************************************************/ intn HULadd_node(list_head_t *lst, /* IN: list to modify */ VOIDP obj /* IN: object to add to the list */ ) { CONSTR(FUNC, "HULadd_node"); /* for HERROR */ node_info_t *new_node; /* new node to insert into the list */ intn ret_value=SUCCEED; /* return value */ HEclear(); if(lst==NULL || obj==NULL) HGOTO_ERROR(DFE_ARGS,FAIL); /* Allocate & initialize the new node */ if((new_node=HULIget_list_node())==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); new_node->obj_ptr=obj; if(((lst->flags)&HUL_SORTED_LIST)!=0) { /* insert node into a sorted list */ node_info_t *curr_node, /* current node while walking through list */ *prev_node; /* previous node in the list */ prev_node=NULL; curr_node=lst->node_list; while(curr_node!=NULL) { if(lst->cmp_func(curr_node->obj_ptr,new_node->obj_ptr)>=0) { /* 'curr_node' object is greater than or equal to 'new_node' */ new_node->next=curr_node; if(prev_node==NULL) lst->node_list=new_node; else prev_node->next=new_node; HGOTO_DONE(SUCCEED); /* Break out of the loop */ } /* end if */ prev_node=curr_node; curr_node=curr_node->next; } /* end while */ /* Walked off the list, so append to last node */ if(prev_node==NULL) lst->node_list=new_node; else prev_node->next=new_node; } /* end if */ else { /* insert node into an un-sorted list */ new_node->next=lst->node_list; lst->node_list=new_node; } /* end else */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULadd_node() */ /****************************************************************************** NAME HULsearch_node - Search for an object in a linked-list DESCRIPTION Locate an object in a linked list using a key and comparison function. RETURNS Returns a pointer to the object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULsearch_node(list_head_t *lst, /* IN: list to search */ HULsearch_func_t srch_func, /* IN: function to use to find node */ VOIDP key /* IN: key of object to search for */ ) { CONSTR(FUNC, "HULsearch_node"); /* for HERROR */ node_info_t *curr_node; /* current node we are on */ VOIDP ret_value=NULL; /* default return value */ HEclear(); if(lst==NULL || srch_func==NULL || key==NULL) HGOTO_ERROR(DFE_ARGS,NULL); curr_node=lst->node_list; while(curr_node!=NULL) { if(srch_func(curr_node->obj_ptr,key)==1) HGOTO_DONE(curr_node->obj_ptr); } /* end while */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULsearch_node() */ /****************************************************************************** NAME HULfirst_node - Get the first object in a linked-list DESCRIPTION Returns the first object in a linked-list and prepares the list for interating through. RETURNS Returns a pointer to the first object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULfirst_node(list_head_t *lst /* IN: list to search */ ) { CONSTR(FUNC, "HULfirst_node"); /* for HERROR */ VOIDP ret_value=NULL; /* default return value */ HEclear(); if(lst==NULL) HGOTO_ERROR(DFE_ARGS,NULL); if(lst->node_list!=NULL) { lst->curr_node=lst->node_list; HGOTO_DONE(lst->node_list->obj_ptr); } /* end if */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULfirst_node() */ /****************************************************************************** NAME HULnext_node - Get the next object in a linked-list DESCRIPTION Returns the next object in a linked-list by walking through the list RETURNS Returns a pointer to the next object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULnext_node(list_head_t *lst /* IN: list to search */ ) { CONSTR(FUNC, "HULnext_node"); /* for HERROR */ VOIDP ret_value=NULL; /* default return value */ HEclear(); if(lst==NULL) HGOTO_ERROR(DFE_ARGS,NULL); if(lst->curr_node!=NULL) { lst->curr_node=lst->curr_node->next; if(lst->curr_node!=NULL) HGOTO_DONE(lst->curr_node->obj_ptr); } /* end if */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULnext_node() */ /****************************************************************************** NAME HULremove_node - Removes an object from a linked-list DESCRIPTION Remove an object from a linked list. The key and comparison function are provided locate the object to delete. RETURNS Returns a pointer to the object deleted from the list, or NULL on failure. *******************************************************************************/ VOIDP HULremove_node(list_head_t *lst, /* IN: list to modify */ HULsearch_func_t srch_func, /* IN: function to use to find node to remove */ VOIDP key /* IN: object to add to the list */ ) { CONSTR(FUNC, "HULremove_node"); /* for HERROR */ node_info_t *curr_node, /* current node we are on */ *prev_node; /* previous node we looked at */ VOIDP ret_value=NULL; /* default return value */ HEclear(); if(lst==NULL || srch_func==NULL || key==NULL) HGOTO_ERROR(DFE_ARGS,NULL); prev_node=NULL; curr_node=lst->node_list; while(curr_node!=NULL) { if(srch_func(curr_node->obj_ptr,key)==1) { if(prev_node==NULL) lst->node_list=curr_node->next; else prev_node->next=curr_node->next; ret_value=curr_node->obj_ptr; HULIrelease_list_node(curr_node); break; } /* end if */ } /* end while */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULremove_node() */ /****************************************************************************** NAME HULIget_list_node - Gets a list node DESCRIPTION Either gets an list node from the free list (if there is one available) or allocate a node. RETURNS Returns list node ptr if successful and NULL otherwise *******************************************************************************/ static node_info_t *HULIget_list_node(void) { CONSTR(FUNC, "HULIget_list_node"); /* for HERROR */ node_info_t *ret_value=NULL; HEclear(); if(node_free_list!=NULL) { ret_value=node_free_list; node_free_list=node_free_list->next; } /* end if */ else { if((ret_value=(node_info_t *)HDmalloc(sizeof(node_info_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HULIget_list_node() */ /****************************************************************************** NAME HULIrelease_list_node - Releases a list node DESCRIPTION Puts a list node into the free list RETURNS No return value *******************************************************************************/ static void HULIrelease_list_node(node_info_t *nod) { #ifdef LATER CONSTR(FUNC, "HULIrelease_list_node"); /* for HERROR */ #endif /* LATER */ /* Insert the node at the beginning of the free list */ nod->next=node_free_list; node_free_list=nod; } /* end HULIrelease_list_node() */ /*-------------------------------------------------------------------------- NAME HULshutdown PURPOSE Terminate various global items. USAGE intn HULshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the HUL routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HULshutdown(void) { node_info_t *curr; /* Release the free-list if it exists */ if(node_free_list!=NULL) { while(node_free_list!=NULL) { curr=node_free_list; node_free_list=node_free_list->next; HDfree(curr); } /* end while */ } /* end if */ return (SUCCEED); } /* end HULshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfr8f.c0000644000000000000000000003523512421456623013623 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfr8f.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfr8F.c * Purpose: C stubs for Fortran RIS routines * Invokes: dfr8.c dfkit.c * Contents: * d8spal: Set palette to write out with subsequent images * d8first: Call DFR8restart to reset sequencing to first image * d8igdim: Call DFR8getdims to get dimensions of next image * d8igimg: Call DFR8getimage to get next image * d8ipimg: Call DFR8putimage to write image to new file * d8iaimg: Call DFR8putimage to add image to existing file * d8irref: Call DFR8readref to set ref to get next * d8iwref: Call DFR8writeref to set ref to put next * d8inims: Call DFR8nimages to get the number of images in the file * d8lref: Call DFR8lastref to get ref of last image read/written * dfr8lastref: Call DFR8lastref to get ref of last image read/written * dfr8setpalette: Set palette to write out with subsequent images * dfr8restart: Call DFR8restart to reset sequencing to first image * Remarks: none *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: d8spal * Purpose: Set palette to be written out with subsequent images * Inputs: pal: palette to associate with subsequent images * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8setpalette *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8spal(_fcd pal) { return (DFR8setpalette((uint8 *) _fcdtocp(pal))); } /*----------------------------------------------------------------------------- * Name: d8first * Purpose: Reset sequencing back to first image * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8restart *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8first(void) { return (DFR8restart()); } /*----------------------------------------------------------------------------- * Name: d8igdim * Purpose: Get dimensions of next image using DFR8getdims * Inputs: filename: name of HDF file * xdim, ydim - integers to return dimensions in * ispal - boolean to indicate whether the image includes a palette * lenfn - length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8getdims *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8igdim(_fcd filename, intf * xdim, intf * ydim, intf * ispal, intf * lenfn) { char *fn; intf ret; int32 txdim, tydim; intn tispal; fn = HDf2cstring(filename, (intn) *lenfn); if (!fn) return(-1); ret = DFR8getdims(fn, &txdim, &tydim, &tispal); if (ret != FAIL){ *xdim = txdim; *ydim = tydim; *ispal = tispal; } HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d8igimg * Purpose: Get next image using DFR8getimage * Inputs: filename: name of HDF file * image: space provided for returning image * xdim, ydim: dimension of space provided for image * pal: space of 768 bytes for palette * lenfn: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8getimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8igimg(_fcd filename, _fcd image, intf * xdim, intf * ydim, _fcd pal, intf * lenfn) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *lenfn); if (!fn) return(-1); ret = DFR8getimage(fn, (uint8 *) _fcdtocp(image), *xdim, *ydim, (uint8 *) _fcdtocp(pal)); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d8ipimg * Purpose: Write out image to new file * Inputs: filename: name of HDF file * image: image to write out * xdim, ydim: dimensions of image to write out * compress: compression scheme * lenfn: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8putimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8ipimg(_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * compress, intf * lenfn) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *lenfn); if (!fn) return(-1); ret = (intf) DFR8putimage(fn, (VOIDP) _fcdtocp(image), (int32) *xdim, (int32) *ydim, (uint16) *compress); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d8iaimg * Purpose: Add image to existing file * Inputs: filename: name of HDF file * image: image to write out * xdim, ydim: dimensions of image to write out * compress: compression scheme * lenfn: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8addimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8iaimg(_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * compress, intf * lenfn) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *lenfn); if (!fn) return(-1); ret = (intf) DFR8addimage(fn, (VOIDP) _fcdtocp(image), (int32) *xdim, (int32) *ydim, (uint16) *compress); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: D8irref * Purpose: Set ref of image to get next * Inputs: filename: file to which this applies * ref: reference number of next get * Returns: 0 on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFR8Iopen, DFIfind * Remarks: checks if image with this ref exists *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8irref(_fcd filename, intf * ref, intf * fnlen) { char *fn; intf ret; uint16 Ref; Ref = (uint16) *ref; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return -1; ret = DFR8readref(fn, Ref); HDfree((VOIDP) fn); return ret; } /*----------------------------------------------------------------------------- * Name: d8iwref * Purpose: Set ref of image to put next * Inputs: filename: file to which this applies * fnlen: length of the filename * Returns: 0 on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFR8writeref * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8iwref(_fcd filename, intf * ref, intf * fnlen) { char *fn; intf ret; uint16 Ref; Ref = (uint16) *ref; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFR8writeref(fn, Ref); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d8inims * Purpose: How many images are present in this file? * Inputs: filename: file to which this applies * fnlen: length of HDF file name * Returns: number of images on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFR8nimages * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8inims(_fcd filename, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFR8nimages(fn); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d8lref * Purpose: return reference number of last element read or written * Inputs: none * Returns: 0 on success, -1 on failure with error set * Users: Fortran stub routine * Invokes: DFR8lastref *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8lref(void) { return ((intf)DFR8lastref()); } /*----------------------------------------------------------------------------- * Name: d8scomp * Purpose: set the compression to use when writing the next image * Inputs: * scheme - the type of compression to use * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFR8setcompress * Remarks: if the compression scheme is JPEG, this routine sets up default * JPEG parameters to use, if a user wants to change them, d8sjpeg * must be called. *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8scomp(intf * scheme) { comp_info cinfo; /* Structure containing compression parameters */ if (*scheme == COMP_JPEG) { /* check for JPEG compression and set defaults */ cinfo.jpeg.quality = 75; cinfo.jpeg.force_baseline = 1; } /* end if */ return (DFR8setcompress((int32) *scheme, &cinfo)); } /* end d8scomp() */ /*----------------------------------------------------------------------------- * Name: d8sjpeg * Purpose: change the JPEG compression parameters * Inputs: * quality - what the JPEG quality rating should be * force_baseline - whether to force a JPEG baseline file to be written * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFR8setcompress * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd8sjpeg(intf * quality, intf * force_baseline) { comp_info cinfo; /* Structure containing compression parameters */ cinfo.jpeg.quality = (intn) *quality; cinfo.jpeg.force_baseline = (intn) *force_baseline; return (DFR8setcompress((int32) COMP_JPEG, &cinfo)); } /* end d8sjpeg() */ /*----------------------------------------------------------------------------- * Name: dfr8lastref * Purpose: Return last ref written or read * Inputs: none * Returns: ref on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFR8lastref * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfr8lastref(void) { return ((intf)DFR8lastref()); } /*----------------------------------------------------------------------------- * Name: dfr8setpalette * Purpose: Set palette to be written out with subsequent images * Inputs: pal: palette to associate with subsequent images * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8setpalette *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfr8setpalette(_fcd pal) { return (DFR8setpalette((uint8 *) _fcdtocp(pal))); } /*----------------------------------------------------------------------------- * Name: dfr8restart * Purpose: Reset sequencing back to first image * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFR8restart *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfr8restart(void) { return (DFR8restart()); } /*----------------------------------------------------------------------------- * Name: dfr8scompress * Purpose: set the compression to use when writing the next image * Inputs: * scheme - the type of compression to use * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFR8setcompress * Remarks: if the compression scheme is JPEG, this routine sets up default * JPEG parameters to use, if a user wants to change them, dfr8setjpeg * must be called. *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfr8scompress(intf * scheme) { comp_info cinfo; /* Structure containing compression parameters */ if (*scheme == COMP_JPEG) { /* check for JPEG compression and set defaults */ cinfo.jpeg.quality = 75; cinfo.jpeg.force_baseline = 1; } /* end if */ return (DFR8setcompress((int32) *scheme, &cinfo)); } /* end dfr8setcompress() */ /*----------------------------------------------------------------------------- * Name: dfr8sjpeg * Purpose: change the JPEG compression parameters * Inputs: * quality - what the JPEG quality rating should be * force_baseline - whether to force a JPEG baseline file to be written * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFR8setcompress * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfr8sjpeg(intf * quality, intf * force_baseline) { comp_info cinfo; /* Structure containing compression parameters */ cinfo.jpeg.quality = (intn) *quality; cinfo.jpeg.force_baseline = (intn) *force_baseline; return (DFR8setcompress((int32) COMP_JPEG, &cinfo)); } /* end dfr8setjpeg() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hkit.h0000644000000000000000000001607612421456623013560 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hkit.h 5467 2010-09-25 14:19:19Z bmribler $ */ /*+ hkit.h *** private header file for hkit routines + */ #ifndef __HKIT_H #include "hdf.h" #include "hfile.h" /* tag_messages is the list of tag descriptions in the system, kept as tag-description pairs. To look up a description, a linear search is required but efficiency should be okay. */ typedef struct tag_descript_t { uint16 tag; /* tag for description ? */ const char *desc; /* tag description ? */ const char *name; /* tag name ? */ } tag_descript_t; /* stringizing macro */ #define string(x) #x /* NOTE: * Please keep tag descriptions <= 30 characters - a * lot of pretty-printing code depends on it. */ PRIVATE const tag_descript_t tag_descriptions[] = { /* low-level set */ {DFTAG_NULL, string(DFTAG_NULL), "No Data"}, {DFTAG_LINKED, string(DFTAG_LINKED), "Linked Blocks Indicator"}, {DFTAG_VERSION, string(DFTAG_VERSION), "Version Descriptor"}, {DFTAG_COMPRESSED, string(DFTAG_COMPRESSED), "Compressed Data Indicator"}, {DFTAG_CHUNK, string(DFTAG_CHUNK), "Data Chunk"}, /* utility set */ {DFTAG_FID, string(DFTAG_FID), "File Identifier"}, {DFTAG_FD, string(DFTAG_FD), "File Description"}, {DFTAG_TID, string(DFTAG_TID), "Tag Identifier"}, {DFTAG_TD, string(DFTAG_TD), "Tag Description"}, {DFTAG_DIL, string(DFTAG_DIL), "Data Id Label"}, {DFTAG_DIA, string(DFTAG_DIA), "Data Id Annotation"}, {DFTAG_NT, string(DFTAG_NT), "Number type"}, {DFTAG_MT, string(DFTAG_MT), "Machine type"}, {DFTAG_FREE, string(DFTAG_FREE), "Free space"}, /* raster-8 Tags */ {DFTAG_ID8, string(DFTAG_ID8), "Image Dimensions-8"}, {DFTAG_IP8, string(DFTAG_IP8), "Image Palette-8"}, {DFTAG_RI8, string(DFTAG_RI8), "Raster Image-8"}, {DFTAG_CI8, string(DFTAG_CI8), "RLE Compressed Image-8"}, {DFTAG_II8, string(DFTAG_II8), "Imcomp Image-8"}, /* Raster Image Tags */ {DFTAG_ID, string(DFTAG_ID), "Image Dimensions"}, {DFTAG_LUT, string(DFTAG_LUT), "Image Palette"}, {DFTAG_RI, string(DFTAG_RI), "Raster Image Data"}, {DFTAG_CI, string(DFTAG_CI), "Compressed Image"}, {DFTAG_RIG, string(DFTAG_RIG), "Raster Image Group"}, {DFTAG_LD, string(DFTAG_LD), "Palette Dimension"}, {DFTAG_MD, string(DFTAG_MD), "Matte Dimension"}, {DFTAG_MA, string(DFTAG_MA), "Matte Data"}, {DFTAG_CCN, string(DFTAG_CCN), "Color Correction"}, {DFTAG_CFM, string(DFTAG_CFM), "Color Format"}, {DFTAG_AR, string(DFTAG_AR), "Aspect Ratio"}, {DFTAG_DRAW, string(DFTAG_DRAW), "Sequenced images"}, {DFTAG_RUN, string(DFTAG_RUN), "Runable program / script"}, {DFTAG_XYP, string(DFTAG_XYP), "X-Y position"}, {DFTAG_MTO, string(DFTAG_MTO), "M/c-Type override"}, /* Tektronix */ {DFTAG_T14, string(DFTAG_T14), "TEK 4014 Data"}, {DFTAG_T105, string(DFTAG_T105), "TEK 4105 data"}, /* Scientific / Numeric Data Sets */ {DFTAG_SDG, string(DFTAG_SDG), "Scientific Data Group"}, {DFTAG_SDD, string(DFTAG_SDD), "SciData dimension record"}, {DFTAG_SD, string(DFTAG_SD), "Scientific Data"}, {DFTAG_SDS, string(DFTAG_SDS), "SciData scales"}, {DFTAG_SDL, string(DFTAG_SDL), "SciData labels"}, {DFTAG_SDU, string(DFTAG_SDU), "SciData units"}, {DFTAG_SDF, string(DFTAG_SDF), "SciData formats"}, {DFTAG_SDM, string(DFTAG_SDM), "SciData max/min"}, {DFTAG_SDC, string(DFTAG_SDC), "SciData coordsys"}, {DFTAG_SDT, string(DFTAG_SDT), "Transpose"}, {DFTAG_SDLNK, string(DFTAG_SDLNK), "Links related to the dataset"}, {DFTAG_NDG, string(DFTAG_NDG), "Numeric Data Group"}, {DFTAG_CAL, string(DFTAG_CAL), "Calibration information"}, {DFTAG_FV, string(DFTAG_FV), "Fill value information"}, /* V Group Tags */ {DFTAG_VG, string(DFTAG_VG), "Vgroup"}, {DFTAG_VH, string(DFTAG_VH), "Vdata"}, {DFTAG_VS, string(DFTAG_VS), "Vdata Storage"}, /* Compression Schemes */ {DFTAG_RLE, string(DFTAG_RLE), "Run Length Encoding"}, {DFTAG_IMCOMP, string(DFTAG_IMCOMP), "IMCOMP Encoding"}, {DFTAG_JPEG, string(DFTAG_JPEG), "24-bit JPEG Encoding"}, {DFTAG_GREYJPEG, string(DFTAG_GREYJPEG), "8-bit JPEG Encoding"}, {DFTAG_JPEG5, string(DFTAG_JPEG5), "24-bit JPEG Encoding"}, {DFTAG_GREYJPEG5, string(DFTAG_GREYJPEG5), "8-bit JPEG Encoding"} }; /* nt_message is the list of NT descriptions in the system, kept as NT-description pairs. To look up a description, a linear search is required but efficiency should be okay. */ typedef struct nt_descript_t { int32 nt; /* nt for description */ const char *name; /* nt name */ const char *desc; /* nt description */ } nt_descript_t; PRIVATE const nt_descript_t nt_descriptions[] = { /* Masks for types */ {DFNT_NATIVE, string(DFNT_NATIVE), "native format"}, {DFNT_CUSTOM, string(DFNT_CUSTOM), "custom format"}, {DFNT_LITEND, string(DFNT_LITEND), "little-endian format"}, {DFNT_NONE, string(DFNT_NONE), "number-type not set"}, /* Floating point types */ {DFNT_FLOAT32, string(DFNT_FLOAT32), "32-bit floating point"}, {DFNT_FLOAT64, string(DFNT_FLOAT64), "64-bit floating point"}, {DFNT_FLOAT128, string(DFNT_FLOAT128), "128-bit floating point"}, /* Integer types */ {DFNT_INT8, string(DFNT_INT8), "8-bit signed integer"}, {DFNT_UINT8, string(DFNT_UINT8), "8-bit unsigned integer"}, {DFNT_INT16, string(DFNT_INT16), "16-bit signed integer"}, {DFNT_UINT16, string(DFNT_UINT16), "16-bit unsigned integer"}, {DFNT_INT32, string(DFNT_INT32), "32-bit signed integer"}, {DFNT_UINT32, string(DFNT_UINT32), "32-bit unsigned integer"}, {DFNT_INT64, string(DFNT_INT64), "64-bit signed integer"}, {DFNT_UINT64, string(DFNT_UINT64), "64-bit unsigned integer"}, {DFNT_INT128, string(DFNT_INT128), "128-bit signed integer"}, {DFNT_UINT128, string(DFNT_UINT128), "128-bit unsigned integer"}, /* Character types */ {DFNT_CHAR8, string(DFNT_CHAR8), "8-bit signed char"}, {DFNT_UCHAR8, string(DFNT_UCHAR8), "8-bit unsigned char"}, {DFNT_CHAR16, string(DFNT_CHAR16), "16-bit signed char"}, {DFNT_UCHAR16, string(DFNT_UCHAR16), "16-bit unsigned char"} }; #endif /* __HKIT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/mstdio.h0000644000000000000000000000606612421456623014116 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: mstdio.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: mstdio.h * Purpose: Header file for stdio-like modeling information. * Dependencies: should be included after hdf.h * Invokes: * Contents: Structures & definitions for stdio modeling. This header * should only be included in hcomp.c and mstdio.c. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __MSTDIO_H #define __MSTDIO_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from mstdio.c */ extern int32 HCPmstdio_stread (accrec_t * rec); extern int32 HCPmstdio_stwrite (accrec_t * rec); extern int32 HCPmstdio_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPmstdio_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPmstdio_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPmstdio_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPmstdio_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* model information about stdio model */ typedef struct { int32 pos; /* postion ? */ } comp_model_stdio_info_t; #ifndef MSTDIO_MASTER extern funclist_t mstdio_funcs; /* functions to perform run-length encoding */ #else funclist_t mstdio_funcs = { /* functions to perform run-length encoding */ HCPmstdio_stread, HCPmstdio_stwrite, HCPmstdio_seek, HCPmstdio_inquire, HCPmstdio_read, HCPmstdio_write, HCPmstdio_endaccess }; #endif #endif /* __MSTDIO_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/Makefile.in0000644000000000000000000007452712421456623014522 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(am__include_HEADERS_DIST) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/h4config.h.in \ $(top_srcdir)/bin/depcomp $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ subdir = hdf/src ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = h4config.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)$(includedir)" LTLIBRARIES = $(lib_LTLIBRARIES) libdf_la_LIBADD = am__libdf_la_SOURCES_DIST = atom.c bitvect.c cdeflate.c cnbit.c \ cnone.c crle.c cskphuff.c cszip.c df24.c dfan.c dfcomp.c \ dfconv.c dfgr.c dfgroup.c dfimcomp.c dfjpeg.c dfknat.c \ dfkswap.c dfp.c dfr8.c dfrle.c dfsd.c dfstubs.c dfufp2i.c \ dfunjpeg.c dfutil.c dynarray.c glist.c hbitio.c hblocks.c \ hbuffer.c hchunks.c hcomp.c hcompri.c hdatainfo.c hdfalloc.c \ herr.c hextelt.c hfile.c hfiledd.c hkit.c linklist.c mcache.c \ mfan.c mfgr.c mstdio.c tbbt.c vattr.c vconv.c vg.c vgp.c vhi.c \ vio.c vparse.c vrw.c vsfld.c df24ff.f dfanf.c dfanff.f dff.c \ dfff.f dfpf.c dfpff.f dfr8f.c dfr8ff.f dfsdf.c dfsdff.f \ dfufp2iff.f dfutilf.c herrf.c hfilef.c df24f.c dfufp2if.c \ hfileff.f mfanf.c mfgrf.c mfgrff.f vattrf.c vattrff.f vgf.c \ vgff.f am__objects_1 = atom.lo bitvect.lo cdeflate.lo cnbit.lo cnone.lo \ crle.lo cskphuff.lo cszip.lo df24.lo dfan.lo dfcomp.lo \ dfconv.lo dfgr.lo dfgroup.lo dfimcomp.lo dfjpeg.lo dfknat.lo \ dfkswap.lo dfp.lo dfr8.lo dfrle.lo dfsd.lo dfstubs.lo \ dfufp2i.lo dfunjpeg.lo dfutil.lo dynarray.lo glist.lo \ hbitio.lo hblocks.lo hbuffer.lo hchunks.lo hcomp.lo hcompri.lo \ hdatainfo.lo hdfalloc.lo herr.lo hextelt.lo hfile.lo \ hfiledd.lo hkit.lo linklist.lo mcache.lo mfan.lo mfgr.lo \ mstdio.lo tbbt.lo vattr.lo vconv.lo vg.lo vgp.lo vhi.lo vio.lo \ vparse.lo vrw.lo vsfld.lo am__objects_2 = df24ff.lo dfanf.lo dfanff.lo dff.lo dfff.lo dfpf.lo \ dfpff.lo dfr8f.lo dfr8ff.lo dfsdf.lo dfsdff.lo dfufp2iff.lo \ dfutilf.lo herrf.lo hfilef.lo df24f.lo dfufp2if.lo hfileff.lo \ mfanf.lo mfgrf.lo mfgrff.lo vattrf.lo vattrff.lo vgf.lo \ vgff.lo @HDF_BUILD_FORTRAN_FALSE@am_libdf_la_OBJECTS = $(am__objects_1) @HDF_BUILD_FORTRAN_TRUE@am_libdf_la_OBJECTS = $(am__objects_1) \ @HDF_BUILD_FORTRAN_TRUE@ $(am__objects_2) libdf_la_OBJECTS = $(am_libdf_la_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) SOURCES = $(libdf_la_SOURCES) DIST_SOURCES = $(am__libdf_la_SOURCES_DIST) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__include_HEADERS_DIST = atom.h bitvect.h cdeflate.h cnbit.h cnone.h \ cskphuff.h crle.h cszip.h df.h dfan.h dfi.h dfgr.h dfrig.h \ dfsd.h dfstubs.h dfufp2i.h dynarray.h H4api_adpt.h h4config.h \ hbitio.h hchunks.h hcomp.h hcompi.h hconv.h hdf.h hdfi.h \ herr.h hfile.h hkit.h hlimits.h hproto.h hntdefs.h htags.h \ linklist.h mfan.h mfgr.h mstdio.h tbbt.h vattr.h vg.h \ hdatainfo.h hproto_fortran.h dffunc.f90 hdf.f90 dffunc.inc \ hdf.inc HEADERS = $(include_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog lib_LTLIBRARIES = libdf.la FSOURCES = df24ff.f dfanf.c dfanff.f dff.c dfff.f dfpf.c dfpff.f dfr8f.c \ dfr8ff.f dfsdf.c dfsdff.f dfufp2iff.f dfutilf.c herrf.c hfilef.c \ df24f.c dfufp2if.c\ hfileff.f mfanf.c mfgrf.c mfgrff.f vattrf.c vattrff.f vgf.c vgff.f CSOURCES = atom.c bitvect.c cdeflate.c cnbit.c cnone.c crle.c cskphuff.c \ cszip.c df24.c dfan.c dfcomp.c dfconv.c dfgr.c dfgroup.c \ dfimcomp.c dfjpeg.c dfknat.c \ dfkswap.c dfp.c dfr8.c dfrle.c dfsd.c dfstubs.c \ dfufp2i.c dfunjpeg.c dfutil.c dynarray.c glist.c hbitio.c \ hblocks.c hbuffer.c hchunks.c hcomp.c hcompri.c hdatainfo.c \ hdfalloc.c herr.c hextelt.c hfile.c hfiledd.c hkit.c linklist.c \ mcache.c mfan.c mfgr.c mstdio.c tbbt.c vattr.c vconv.c vg.c \ vgp.c vhi.c vio.c vparse.c vrw.c vsfld.c CHEADERS = atom.h bitvect.h cdeflate.h cnbit.h cnone.h cskphuff.h crle.h \ cszip.h df.h dfan.h dfi.h dfgr.h dfrig.h dfsd.h dfstubs.h \ dfufp2i.h dynarray.h H4api_adpt.h h4config.h hbitio.h hchunks.h hcomp.h \ hcompi.h hconv.h hdf.h hdfi.h herr.h hfile.h hkit.h hlimits.h \ hproto.h hntdefs.h htags.h linklist.h mfan.h mfgr.h mstdio.h \ tbbt.h vattr.h vg.h hdatainfo.h FHEADERS = dffunc.f90 hdf.f90 dffunc.inc hdf.inc @HDF_BUILD_FORTRAN_FALSE@libdf_la_SOURCES = $(CSOURCES) @HDF_BUILD_FORTRAN_TRUE@libdf_la_SOURCES = $(CSOURCES) $(FSOURCES) @HDF_BUILD_FORTRAN_FALSE@include_HEADERS = $(CHEADERS) @HDF_BUILD_FORTRAN_TRUE@include_HEADERS = $(CHEADERS) hproto_fortran.h $(FHEADERS) @HDF_BUILD_FORTRAN_FALSE@F77LINK = $(LINK) SUFFIXES = .inc .f90 ############################################################################# ############################################################################# DISTCLEANFILES = dffunc.f90 hdf.f90 all: h4config.h $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .inc .f90 .c .f .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 hdf/src/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/src/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): h4config.h: stamp-h1 @if test ! -f $@; then rm -f stamp-h1; else :; fi @if test ! -f $@; then $(MAKE) $(AM_MAKEFLAGS) stamp-h1; else :; fi stamp-h1: $(srcdir)/h4config.h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status hdf/src/h4config.h $(srcdir)/h4config.h.in: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) ($(am__cd) $(top_srcdir) && $(AUTOHEADER)) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f h4config.h stamp-h1 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}; \ } libdf.la: $(libdf_la_OBJECTS) $(libdf_la_DEPENDENCIES) $(EXTRA_libdf_la_DEPENDENCIES) $(F77LINK) -rpath $(libdir) $(libdf_la_OBJECTS) $(libdf_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/atom.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bitvect.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cdeflate.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cnbit.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cnone.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/crle.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cskphuff.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cszip.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/df24.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/df24f.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfan.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfanf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfcomp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfconv.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dff.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfgr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfgroup.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfimcomp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfjpeg.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfknat.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfkswap.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfpf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfr8.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfr8f.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfrle.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfsd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfsdf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfstubs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfufp2i.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfufp2if.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfunjpeg.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfutil.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dfutilf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dynarray.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/glist.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hbitio.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hblocks.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hbuffer.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hchunks.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hcomp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hcompri.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdatainfo.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfalloc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/herr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/herrf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hextelt.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hfile.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hfiledd.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hfilef.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hkit.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/linklist.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mcache.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfan.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfanf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfgr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mfgrf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mstdio.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tbbt.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vattr.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vattrf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vconv.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vg.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vgf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vgp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vhi.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vio.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vparse.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vrw.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vsfld.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< .f.o: $(F77COMPILE) -c -o $@ $< .f.obj: $(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .f.lo: $(LTF77COMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs 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) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) h4config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) h4config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) h4config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) h4config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) h4config.h installdirs: for dir in "$(DESTDIR)$(libdir)" "$(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: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-hdr distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-includeHEADERS 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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-includeHEADERS uninstall-libLTLIBRARIES .MAKE: all install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \ distclean-compile distclean-generic distclean-hdr \ distclean-libtool distclean-tags distdir dvi dvi-am 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-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 uninstall uninstall-am uninstall-includeHEADERS \ uninstall-libLTLIBRARIES # The following is a workaround. Since Fortran is included in this # Makefile.am, automake will always try to use the Fortran linker, even when # fortran has been disabled in configure. The Fortran linker gets confused # when shared libraries are enabled, so when Fortran is not enabled, # this replaces the Fortran link macro with the C link macro. @HDF_BUILD_FORTRAN_TRUE@ # do nothing .inc.f90: if test -f $<; then \ sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $< > $*.f90; \ else \ sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $(srcdir)/$< > $*.f90; \ fi # 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: libhdf4-4.2.10/HDF_ALT/hdf/src/dfpf.c0000644000000000000000000001723412421456623013530 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfpf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfpF.c * Purpose: C stubs for Palette Fortran routines * Invokes: dfp.c dfkit.c * Contents: * dpigpal_ : Call DFPgetpal to get palette * dpippal_ : Call DFPputpal to write/overwrite palette in file * dpinpal_ : Call DFPnpals to get number of palettes in file * dpiwref_ : Call DFPwriteref to set ref of pal to write next * dpirref_ : Call DFPreadref to set ref of pal to read next * dprest_ : Call DFPrestart to get palettes afresh in file * dplref_ : Call DFPlastref to get ref of last pal read/written * DFPrestart_ : Call DFPrestart to get palettes afresh in file * DFPlastref_ : Call DFPlastref to get ref of last pal read/written * Remarks: none *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: dpigpal * Purpose: call DFPgetpal, get palette * Inputs: filename, fnlen: filename, length of name * pal: space to put palette * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFPgetpal *---------------------------------------------------------------------------*/ FRETVAL(intf) ndpigpal(_fcd filename, _fcd pal, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFPgetpal(fn, (VOIDP) _fcdtocp(pal)); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dpippal * Purpose: Write palette to file * Inputs: filename: name of HDF file * palette: palette to be written to file * overwrite: if 1, overwrite last palette read or written * if 0, write it as a fresh palette * filemode: if "a", append palette to file * if "w", create new file * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF users, programmers, utilities * Invokes: DFPputpal * Remarks: To overwrite, the filename must be the same as for the previous * call *---------------------------------------------------------------------------*/ FRETVAL(intf) ndpippal(_fcd filename, _fcd pal, intf * overwrite, _fcd filemode, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFPputpal(fn, (VOIDP) _fcdtocp(pal), (intn) *overwrite, (char *) _fcdtocp(filemode)); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dpinpal * Purpose: How many palettes are present in this file? * Inputs: filename, fnlen: name, length of HDF file * Returns: number of palettes on success, -1 on failure with DFerror set * Users: HDF programmers, other routines and utilities * Invokes: DFPnpals *---------------------------------------------------------------------------*/ FRETVAL(intf) ndpinpal(_fcd filename, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFPnpals(fn); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dpirref * Purpose: Set ref of palette to get next * Inputs: filename: file to which this applies * ref: reference number of next get * Returns: 0 on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFPreadref * Remarks: checks if palette with this ref exists *---------------------------------------------------------------------------*/ FRETVAL(intf) ndpirref(_fcd filename, intf *ref, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFPreadref(fn, (uint16) *ref); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dpiwref * Purpose: Set ref of palette to put next * Inputs: filename: file to which this applies * ref: reference number of next put * fnlen: length of filename * Returns: 0 on success, -1 on failure * Users: HDF programmers, other routines and utilities * Invokes: DFPwriteref *---------------------------------------------------------------------------*/ FRETVAL(intf) ndpiwref(_fcd filename, intf *ref, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFPreadref(fn, (uint16) *ref); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dprest * Purpose: Do not remember info about file - get again from first palette * Inputs: none * Returns: 0 on success * Users: HDF programmers * Remarks: Invokes DFPrestart *---------------------------------------------------------------------------*/ FRETVAL(intf) ndprest(void) { return (DFPrestart()); } /*----------------------------------------------------------------------------- * Name: dplref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFPlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndplref(void) { return ((intf)DFPlastref()); } /*----------------------------------------------------------------------------- * Name: dfprestart * Purpose: Do not remember info about file - get again from first palette * Inputs: none * Returns: 0 on success * Users: HDF programmers * Remarks: Invokes DFPrestart *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfprestart(void) { return (DFPrestart()); } /*----------------------------------------------------------------------------- * Name: dfplastref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFPlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfplastref(void) { return ((intf)DFPlastref()); } libhdf4-4.2.10/HDF_ALT/hdf/src/dfconv.c0000644000000000000000000004426512421456623014074 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6032 $"; #endif /* $Id: dfconv.c 6032 2014-01-17 18:13:52Z acheng $ */ /*------------------------------------------------------------------ File: dfconv.c Purpose: Routines to support conversion to and from HDF format Invokes: PRIVATE conversion functions: All of these are now in seperate files! dfknat.c DFKnb1b - Native mode for 8 bit integers DFKnb2b - Native mode for 16 bit integers DFKnb4b - Native mode for 32 bit integers and floats DFKnb8b - Native mode for 64 bit floats dfkswap.c DFKsb2b - Byte swapping for 16 bit integers DFKsb4b - Byte swapping for 32 bit integers DFKsb8b - Byte swapping for 64 bit floats Other PUBLIC functions: DFKmachineNTsize - Determine size in machine, given number type DFKhdfNTsize - Determine size in HDF format, given number type DFKsetNT - Set number type for future conversion calls DFKsetcustom - Template for user to setup custom conversion routines DFKisnative - Checks whether number type is native mode DFKislitend - Checks whether number type is little-endian mode DFconvert - provide compatibility with 3.0 routines Private functions: DFKInoset - Indicate that DFKsetNT hasn't been called Remarks: *------------------------------------------------------------------*/ /*****************************************************************************/ /* */ /* All the routines in this file marked as PRIVATE have been marked so */ /* for a reason. *ANY* of these routines may or may nor be supported in */ /* the next version of HDF (4.00). Furthurmore, the names, paramters, or */ /* functionality is *NOT* guaranteed to remain the same. */ /* The *ONLY* guarantee possible is that DFKnumin(), and DFKnumout() */ /* will not change. They are *NOT* guaranteed to be implemented in the */ /* next version of HDF as function pointers. They are guaranteed to take */ /* the same arguments and produce the same results. */ /* If your programs call any routines in this file except for */ /* DFKnumin(), DFKnumout, and/or DFKsetntype(), your code may not work */ /* with future versions of HDF and your code will *NOT* be portable. */ /* */ /*****************************************************************************/ #include #include "hdf.h" #include "hconv.h" /* ** Static function prototypes */ PRIVATE int DFKInoset (VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride); /* Prototypes */ extern int32 DFKqueryNT(void); extern int DFKsetcustom( int (*DFKcustin) (VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride), int (*DFKcustout) (VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride)); extern int DFconvert(uint8 *source, uint8 *dest, int ntype, int sourcetype, int desttype, int32 size); /* ** Conversion Routine Pointer Definitions */ static int (*DFKnumin) (VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride) = DFKInoset; static int (*DFKnumout) (VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride) = DFKInoset; /************************************************************ * If the programmer forgot to call DFKsetntype, then let * them know about it. ************************************************************/ PRIVATE int DFKInoset(VOIDP source, VOIDP dest, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { CONSTR(FUNC, "DFKInoset"); HEclear(); /* shut the compiler up about not using the arguments */ source = source; dest = dest; num_elm = num_elm; source_stride = source_stride; dest_stride = dest_stride; /* If this is causing a problem for you, call DFKsetntype */ HERROR(DFE_BADCONV); return FAIL; } /***************************************************************************** * Routines that depend on the above information *****************************************************************************/ PRIVATE int32 g_ntype = DFNT_NONE; /* Holds current number type. */ /* Initially not set. */ /************************************************************ * DFKqueryNT() * Determine the current conversion settings ************************************************************/ int32 DFKqueryNT(void) { return g_ntype; } /************************************************************ * DFKNTsize() * Determine the size, given the number type ************************************************************/ int DFKNTsize(int32 number_type) { #ifdef LATER CONSTR(FUNC, "DFKNTsize"); #endif /* mask off the litend bit since little endian and big endian have */ /* the same size. Only need to distinguish size difference between */ /* HDF and native types. */ switch (number_type & (~DFNT_LITEND)) { /* native types */ case DFNT_NUCHAR: return (SIZE_NUCHAR); case DFNT_NCHAR: return (SIZE_NCHAR); case DFNT_NINT8: return (SIZE_NINT8); case DFNT_NUINT8: return (SIZE_NUINT8); case DFNT_NINT16: return (SIZE_NINT16); case DFNT_NUINT16: return (SIZE_NUINT16); case DFNT_NINT32: return (SIZE_NINT32); case DFNT_NUINT32: return (SIZE_NUINT32); case DFNT_NFLOAT32: return (SIZE_NFLOAT32); case DFNT_NFLOAT64: return (SIZE_NFLOAT64); /* HDF types */ case DFNT_UCHAR: return (SIZE_UCHAR); case DFNT_CHAR: return (SIZE_CHAR); case DFNT_INT8: return (SIZE_INT8); case DFNT_UINT8: return (SIZE_UINT8); case DFNT_INT16: return (SIZE_INT16); case DFNT_UINT16: return (SIZE_UINT16); case DFNT_INT32: return (SIZE_INT32); case DFNT_UINT32: return (SIZE_UINT32); case DFNT_FLOAT32: return (SIZE_FLOAT32); case DFNT_FLOAT64: return (SIZE_FLOAT64); /* Unknown types */ default: break; } /* switch */ /* hdf default format */ return FAIL; } /************************************************************ * DFKsetNT() * Set the number type for future conversion calls ************************************************************/ intn DFKsetNT(int32 ntype) { CONSTR(FUNC, "DFKsetNT"); HEclear(); g_ntype = ntype; switch (ntype) { case DFNT_CHAR8: case DFNT_UCHAR8: case DFNT_INT8: case DFNT_UINT8: DFKnumin = UI8_IN; DFKnumout = UI8_OUT; break; case DFNT_INT16: DFKnumin = SI16_IN; DFKnumout = SI16_OUT; break; case DFNT_UINT16: DFKnumin = UI16_IN; DFKnumout = UI16_OUT; break; case DFNT_INT32: DFKnumin = SI32_IN; DFKnumout = SI32_OUT; break; case DFNT_UINT32: DFKnumin = UI32_IN; DFKnumout = UI32_OUT; break; case DFNT_FLOAT32: DFKnumin = F32_IN; DFKnumout = F32_OUT; break; case DFNT_FLOAT64: DFKnumin = F64_IN; DFKnumout = F64_OUT; break; /* * NATIVE MODE 'CONVERSIONS' */ case DFNT_NCHAR: case DFNT_NINT8: case DFNT_NUCHAR: case DFNT_NUINT8: DFKnumin = NUI8_IN; DFKnumout = NUI8_OUT; break; case DFNT_NINT16: DFKnumin = NSI16_IN; DFKnumout = NSI16_OUT; break; case DFNT_NUINT16: DFKnumin = NUI16_IN; DFKnumout = NUI16_OUT; break; case DFNT_NINT32: DFKnumin = NSI32_IN; DFKnumout = NSI32_OUT; break; case DFNT_NUINT32: DFKnumin = NUI32_IN; DFKnumout = NUI32_OUT; break; case DFNT_NFLOAT32: DFKnumin = NF32_IN; DFKnumout = NF32_OUT; break; case DFNT_NFLOAT64: DFKnumin = NF64_IN; DFKnumout = NF64_OUT; break; /* * Little Endian Conversions */ case DFNT_LCHAR: case DFNT_LINT8: case DFNT_LUCHAR: case DFNT_LUINT8: DFKnumin = LUI8_IN; DFKnumout = LUI8_OUT; break; case DFNT_LINT16: DFKnumin = LSI16_IN; DFKnumout = LSI16_OUT; break; case DFNT_LUINT16: DFKnumin = LUI16_IN; DFKnumout = LUI16_OUT; break; case DFNT_LINT32: DFKnumin = LSI32_IN; DFKnumout = LSI32_OUT; break; case DFNT_LUINT32: DFKnumin = LUI32_IN; DFKnumout = LUI32_OUT; break; case DFNT_LFLOAT32: DFKnumin = LF32_IN; DFKnumout = LF32_OUT; break; case DFNT_LFLOAT64: DFKnumin = LF64_IN; DFKnumout = LF64_OUT; break; /* No conversion routines are specified for DFNT_custom. User must provide. */ /* Users should call DFCV_SetCustomIn() and DFCV_SetCustomOut() if they */ /* choose to use DFNT_CUSTOM. Users should provide their own method to */ /* distinguish between multiple 'custom' conversion routines. HDF only */ /* knows such routines as type 'DFNT_CUSTOM'. */ case DFNT_CUSTOM: g_ntype = DFNT_CUSTOM; break; default: HRETURN_ERROR(DFE_BADCONV,FAIL) } return 0; } /***************************************************************************** * The following routine provides an easy method for the user to setup custom * conversion routines.... *****************************************************************************/ int DFKsetcustom( int (*DFKcustin) (VOIDP /* source */, VOIDP /* dest */, uint32 /* num_elm */, uint32 /* source_stride */, uint32 /* dest_stride */), int (*DFKcustout) (VOIDP /* source */, VOIDP /* dest */, uint32 /* num_elm */, uint32 /* source_stride */, uint32 /* dest_stride */) ) { DFKnumin = DFKcustin; DFKnumout = DFKcustout; DFKsetNT(DFNT_CUSTOM); /* Keep HDF from getting confused */ return 0; } /*------------------------------------------------------------------ * Name: DFKisnativeNT * Purpose: Determine whether number type is native mode * Inputs: numbertype: number type * Returns: 1 if true, 0 if false * Users: DFSDgetslice * Method: Checks to see if the "native mode" bit is set * Remarks: *------------------------------------------------------------------*/ int32 DFKisnativeNT(int32 numbertype) { return ((DFNT_NATIVE & numbertype) > 0 ? 1 : 0); } /*------------------------------------------------------------------ * Name: DFKislitendNT * Purpose: Determine whether number type is little-endian mode * Inputs: numbertype: number type * Returns: 1 if true, 0 if false * Users: DFSDgetslice * Method: Checks to see if the "native mode" bit is set * Remarks: *------------------------------------------------------------------*/ int32 DFKislitendNT(int32 numbertype) { return ((DFNT_LITEND & numbertype) > 0 ? 1 : 0); } /************************************************************ * DFconvert() * * This routine is called by HDF version 3.0 compatibility * routines. It serves as a jump point to the new version 4.0 * comversion functions. DFconvert() CANNOT be used by Vdata * applications because it assumes a stride of 1 (for * compatibility). Vdata routines should call DFnum_in() and * DFKnumout() (depending on which translation is needed) * * uint8 * source location where the data is stored * uint8 * dest location to put the converted data * int * ntype the overall number type of the data, ie DFNT_FLOAT... * int * sourcetype the specific type of the source data, ie DFNTF_IEEE... * int * desttype the specifid type of the converted data, ie DFNTF_VAX... * int * size the number (total) of BYTES to convert ************************************************************/ int DFconvert(uint8 *source, uint8 *dest, int ntype, int sourcetype, int desttype, int32 size) { uint32 num_elm; CONSTR(FUNC, "DFconvert"); HEclear(); if (DFKsetNT(ntype) == FAIL) { HERROR(DFE_BADCONV); return FAIL; } if (sourcetype == desttype) { HDmemcpy(dest, source, size); return 0; } num_elm = (uint32)size / 4; /* Check to see if they want to covert numbers in from the disk */ if (sourcetype == DFNTF_IEEE && (desttype == DFNTF_VAX || desttype == DFNTF_CRAY || desttype == DFNTF_PC)) return (DFKnumin) ((VOIDP) source, (VOIDP) dest, num_elm, 0, 0); /* Check to see if they want to convert numbers out to disk */ if (desttype == DFNTF_IEEE && (sourcetype == DFNTF_VAX || sourcetype == DFNTF_CRAY || sourcetype == DFNTF_PC)) return DFKnumout((VOIDP) source, (VOIDP) dest, num_elm, 0, 0); /* Return an error because they did not specify valid translation codes */ HERROR(DFE_BADCONV); return FAIL; } /*------------------------------------------------------------------ * Name: DFKgetPNSC * Purpose: Get PlatformNumberSubclass for a given number type * Inputs: numtype: number type to get subclass for * machinetype: machine-type code * Returns: PlatformNumberSubclass on success, FAIL on failure with * error set * Users: DFSDgetslice * Method: Checks NT_TYPES to determine whether it is a char, int, or * float, then looks in corresponding field of machine type * (DFMT) to get the class. * Remarks: *------------------------------------------------------------------*/ int8 DFKgetPNSC(int32 numbertype, int32 machinetype) { CONSTR(FUNC, "DFKgetPNSC"); /* clear error stack and validate args */ HEclear(); /* Since the information is provided only for the 4 */ /* classes of char, int, float, double and is indenpend */ /* of whether it is stored native or little-endian in file, */ /* we will use only the standard HDF format information */ switch (numbertype & DFNT_MASK) { case DFNT_CHAR8: case DFNT_UCHAR8: return (int8) (machinetype & 0x0f); case DFNT_INT8: case DFNT_UINT8: case DFNT_INT16: case DFNT_UINT16: case DFNT_INT32: case DFNT_UINT32: return (int8) ((machinetype >> 4) & 0x0f); case DFNT_FLOAT32: return (int8) ((machinetype >> 8) & 0x0f); case DFNT_FLOAT64: return (int8) ((machinetype >> 12) & 0x0f); default: HRETURN_ERROR(DFE_BADNUMTYPE, FAIL); } } /*---------------------------------------------------------------------------- * Name: DFKconvert * Purpose: set number type and do the convert * Inputs: source -- location where the data is stored * dest -- location to put the converted data * ntype -- the current number type * num_elm -- number of elements to be converted * acc_mode -- DFACC_READ for numin, DFACC_WRITE for numout * source_stride, dest_stride -- strides in source and destination * Returns: 0 -- succeed; FAIL -- failure * Users: DFSDgetsdg, DFSDputsdg, DFSDIgetslice, DFSDIgetslice * Method: Calls DFKsetNT, then call DFnumin or DFnumout *---------------------------------------------------------------------------*/ int32 DFKconvert(VOIDP source, VOIDP dest, int32 ntype, int32 num_elm, int16 acc_mode, int32 source_stride, int32 dest_stride) { int ret; /* Check args (minimally) */ if (source==NULL || dest==NULL) return(-1); DFKsetNT(ntype); if (acc_mode == DFACC_READ) ret = DFKnumin(source, dest, (uint32)num_elm, (uint32)source_stride, (uint32)dest_stride); else ret = DFKnumout(source, dest, (uint32)num_elm, (uint32)source_stride, (uint32)dest_stride); return (ret); } /***************************************************************************** * Miscellaneous Other Conversion Routines *****************************************************************************/ libhdf4-4.2.10/HDF_ALT/hdf/src/dfufp2i.c0000644000000000000000000005624112421456623014151 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfufp2i.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*-----------------------------------------------------------------------------c * dfufp2i.c * * Purpose: Utility function to convert floating point data to 8-bit * raster image set (RIS8) format, storing the results in * an hdf file. * ----------- * | | ----------> RIS8 * floating point data ---> | fp_to_hdf | and/or * (in an array) | | ----------> SDS * ----------- * * Invokes: libdf.a * * Includes: stdio.h, ctype.h, "df.h" * * Public function: * DFUfptoimage: sets up structs with input params, calls process() * * Private functions: * process: main driver routine: transforms the data to an image and * stores it in the file * generate_scale: generates a scale, if none provided * convert_interp: creates an interpolated image * pixrep_scaled: creates an expanded image using scales provided * compute_offsets: called by pixrep_scaled * pixrep_simple: creates an expanded image assuming equal gaps in scales * * Fortran stub function: * duif2i - intermediate, called by fortran functions in DFUfptoimage.f * * Remarks: * This routine is very similar to the utility fp_to_hdf, which * takes its input from one or more files, rather than from internal * memory. * Another difference is that this routine allows compression (run * length encoding), whereas fp_to_hdf does not at present (8/31/89). * Since this routine is meant to mimic many of the features of * NCSA DataScope, much of the code has been taken directly from * the DataScope source. * * National Center for Supercomputing Applications * University of Illinois, Urbana-Champaign * * by Mike Folk (mfolk@ncsa.uiuc.edu) * Beta version: 9/1/89 * Released: 6/5/90 * * This program is in the public domain * *--------------------------------------------------------------------------*/ #include "hdf.h" #include "dfufp2i.h" #include "dfsd.h" /********************************************************************** * * Header information * ***********************************************************************/ /* * global definitions */ #ifndef FALSE #define FALSE 0 #endif #ifndef TRUE #define TRUE 1 #endif /* TRUE */ #define EXPAND 1 /* -e: expand image with pixel replication */ #define INTERP 2 /* -i: expand image with bilinear interpolation */ /*-----------------------------------------------------------------------------s * DFUfptoimage() * * Purpose:sets up structs with input params, calls process() * Inputs: * hdim, vdim: horizontal and vertical dimensions of input data * max, min: maximum and minimum values in the data * hscale,vscale: optional horizontal and vertical scales * data: input data * palette: optional palette to be stored with the image * outfile:n name of hdf file to store image in * ct_method: color transform method: 1=EXPAND; 2=INTERP * hres, vres: resolutions desired for output image * compress: compression flag: 0=don't; 1=do * Returns: 0 on success, -1 on failure with error set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: process * Remarks: none *----------------------------------------------------------------------------*/ int DFUfptoimage(int32 hdim, int32 vdim, float32 max, float32 min, float32 *hscale, float32 *vscale, float32 *data, uint8 *palette, char *outfile, int ct_method, int32 hres, int32 vres, int compress) { Input in; Output out; in.hdim = hdim; in.vdim = vdim; in.max = max; in.min = min; in.is_hscale = (hscale == NULL) ? FALSE : TRUE; in.is_vscale = (vscale == NULL) ? FALSE : TRUE; in.hscale = hscale; in.vscale = vscale; in.data = data; in.is_pal = (palette == NULL) ? FALSE : TRUE; in.ct_method = ct_method; HDstrcpy(out.outfile, outfile); /* get outfile name */ out.palette = palette; /* get palette address (may be NULL) */ out.hres = hres; out.vres = vres; out.compress = compress ? 11 : 0; /* 0=>don't; 11=>RLE compression */ /* tloc1 = time((long *) 0); *//* these 4 lines for debugging */ process(&in, &out); /* tloc2 = time((long *) 0); */ /* printf("Time: %ld\n",tloc2-tloc1); */ return 0; } /* end of DFUfptoimage */ /*-----------------------------------------------------------------------------s * process * * Purpose: to transform the data to an image and stores it in the file * Inputs: * in: structure with information about data to be converted to image * out: structure with information about image * Returns: 0 on success, -1 on failure with error set * Users: DFUfptoimage * Invokes: from libdf.a: DFR8setpalette, Hopen, Hclose, DFR8addimage * local: generate_scale, pixrep_scaled, pixrep_simple,convert_interp * Remarks: none *----------------------------------------------------------------------------*/ int process(Input * in, Output * out) { int ret; int32 file_id; /* printinput(in); *//* for debugging */ if (in->is_pal) { ret = DFR8setpalette((uint8 *) out->palette); /* output as HDF palette */ if (ret < 0) return ret; } file_id = Hopen(out->outfile, DFACC_WRITE, 0); Hclose(file_id); /* * allocate buffers for output and scales */ if (!in->is_hscale) in->hscale = (float32 *) HDmalloc((uint32) (1 + in->hdim) * sizeof(float32)); if (!in->is_vscale) in->vscale = (float32 *) HDmalloc((uint32) (1 + in->vdim) * sizeof(float32)); out->hres = (out->hres <= in->hdim) ? in->hdim : out->hres; out->vres = (out->vres <= in->vdim) ? in->vdim : out->vres; out->image = (uint8 *) HDmalloc((size_t) out->hres * (size_t)out->vres); /* * if necessary, generate x and y scales */ if (!in->is_hscale) generate_scale(in->hdim, in->hscale); if (!in->is_vscale) generate_scale(in->vdim, in->vscale); /* * output raster hdf file */ if (in->ct_method == EXPAND) { if (in->is_hscale || in->is_vscale) pixrep_scaled(in, out); else pixrep_simple(in, out); } else convert_interp(in, out); /* printoutput(out); *//* for debugging */ ret = DFR8addimage(out->outfile, (char *) out->image, out->hres, out->vres, (uint16) out->compress); if (ret < 0) return ret; /* * free allocated space */ if (!in->is_hscale) HDfree((char *) in->hscale); if (!in->is_vscale) HDfree((char *) in->vscale); HDfree((char *) out->image); return 0; } /* end of process */ /*----------------------------------------------------------------------------- * generate_scale * * Purpose: to generate the scale 1 2 3 ... dim * Input: * dim: length of scale * Output: * scale: array of floating point numbers from 1 to dim * Returns: 0 on success, -1 on failure with error set * Users: process * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ int generate_scale(int32 dim, float32 *scale) { int32 i; for (i = 0; i <= dim; i++) *scale++ = (float32) i; return 0; } /*----------------------------------------------------------------------------- * printinput * * Purpose: debugging: prints input values to stdout * Input: * in: struct with all input values * Returns: 0 on success, -1 on failure with error set * Users: process and other local routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ /* This function is commented out of the code!! */ #ifdef DEBUG_HDF int printinput(Input * in) { int i, j; printf("\nmax: %8.2f min: %8.2f\n", in->max, in->min); printf("There %s a palette\n", in->is_pal ? "IS" : "is NOT"); printf("color tranform method = %s\n", (in->ct_method == EXPAND) ? "expand" : "interpolate"); if (in->hscale != NULL) { printf("\nHorizontal scale:\n"); for (i = 0; i < (int) (in->hdim); i++) printf("%8.2f", in->hscale[i]); } else printf("\nNo horizontal scale\n"); if (in->vscale != NULL) { printf("\nVertical scale:\n"); for (i = 0; i < (int) (in->vdim); i++) printf("%8.2f", in->vscale[i]); } else printf("\nNo vertical scale.\n"); printf("\n"); printf("Data:"); for (i = 0; i < (int) (in->vdim) && i < 11; i++) { printf("\n"); for (j = 0; j < (int) (in->hdim); j++) printf("%6.1f ", in->data[i * in->hdim + j]); } printf("\n"); return 0; } /* end of print_input */ #endif /* DEBUG_HDF */ /*----------------------------------------------------------------------------- * printoutput * * Purpose: debugging: prints input values to stdout * Input: * out: struct with all output values * Returns: 0 on success, -1 on failure with error set * Users: process and other local routines * Invokes: none * Remarks: none *---------------------------------------------------------------------------*/ /* This function is commented out of the code!! */ #ifdef DEBUG_HDF int printoutput(Output * out) { int i, j; printf("\n"); for (i = 0; i < (int) (out->vres) && i < 20; i++) { printf("\n"); for (j = 0; j < (int) (out->hres); j++) if (j < 19) printf("%4d", (uint8) out->image[i * out->hres + j]); } printf("\n"); return 0; } /* end of printoutput */ #endif /* DEBUG_HDF */ /*************************************************************************** * * Next comes the routine for performing bilinear interpolation * ****************************************************************************/ /*----------------------------------------------------------------------------- * convert_interp * * Purpose: Create an interpolated image from the data array * Input: * in: struct with all input values * out: struct with all output values * Returns: 0 on success, -1 on failure with error set * Users: process * Invokes: none * Remarks: Uses a bilinear interpolation method to fill in the picture. *---------------------------------------------------------------------------*/ int convert_interp(Input * in, Output * out) { int j, theval; float32 *f, *dxs, *dys, *xv, *yv, *lim, delx, dely, pt, xrange, yrange, range, zy, *z1, *z2, *z3, *z4, z; uint8 *p; uint8 *xinc; int32 i, *yoffs; p = (uint8 *) out->image; /* space for interpolated image */ range = in->max - in->min; xrange = *(in->hscale + in->hdim - 1) - *in->hscale; yrange = *(in->vscale + in->vdim - 1) - *in->vscale; delx = xrange / (float32)out->hres; /* x axis increment in image */ dely = yrange / (float32)out->vres; /* y axis increment in image */ dxs = (float32 *) HDmalloc(sizeof(float32) * (size_t)out->hres); /* temp space for dx's */ dys = (float32 *) HDmalloc(sizeof(float32) * (size_t)out->vres); /* temp space for dy's */ xinc = (uint8 *) HDmalloc((size_t) out->hres); yoffs = (int32 *) HDmalloc((size_t) (out->vres + 1) * sizeof(int32)); yoffs[0] = 0; if (range < (float32)0.0) range = -range; /* max must be > min */ f = dys; /* beginning of dys to fill in */ yv = in->vscale; /* beginning and end of yvals */ lim = in->vscale + in->vdim - 2; if (yrange > (float32)0.0) { for (i = 0; i < out->vres; i++) { /* fill in dy's */ pt = dely * (float32) i + *in->vscale; /* scaled pos in new image */ while (*(yv + 1) < pt && yv < lim) { /* move y pointer */ yv++; yoffs[i]++; } *f++ = (*(yv + 1) - pt) / (*(yv + 1) - *yv); /* calc dy pcnt and put in */ yoffs[i + 1] = yoffs[i]; } } else { /* decrementing instead */ yrange = -yrange; for (i = 0; i < out->vres; i++) { /* fill in dy's */ pt = dely * (float32) i + *in->vscale; while (*(yv + 1) > pt && yv < lim) { /* move y pointer */ yv++; yoffs[i]++; } *f++ = -(*(yv + 1) - pt) / (*(yv + 1) - *yv); /* calc dy pcnt and put in */ yoffs[i + 1] = yoffs[i]; } } f = dxs; /* beginning of dxs to fill in */ xv = in->hscale; /* beginning and end of xvals */ lim = in->hscale + in->hdim - 2; if (xrange > (float32)0.0) { for (i = 0; i < out->hres; i++) { /* fill in dx's */ pt = delx * (float32) i + *in->hscale; xinc[i] = 0; while (*(xv + 1) < pt && xv < lim) { /* move xv pointer */ xv++; xinc[i]++; } *f++ = (*(xv + 1) - pt) / (*(xv + 1) - *xv); /* calc dy prct and put in */ } } else { /* decrementing instead */ xrange = -xrange; for (i = 0; i < out->hres; i++) { /* fill in dx's */ pt = delx * (float32) i + *in->hscale; xinc[i] = 0; while (*(xv + 1) > pt && xv < lim) { /* move y pointer */ xv++; xinc[i]++; } *f++ = -(*(xv + 1) - pt) / (*(xv + 1) - *xv); /* calc dy pcnt and put in */ } } /* * Do the interpolation for each point in the target image. * We take advantage of the fact that we know the target is evenly spaced * along both axes. */ yv = dys; for (i = 0; i < out->vres; i++, yv++) { z1 = in->data + in->hdim * (yoffs[i]); z2 = z1 + 1; z3 = z1 + in->hdim; z4 = z3 + 1; xv = dxs; zy = *yv; for (j = 0; j < (int) (out->hres); j++, xv++) { /* for each target point */ z1 += (size_t)xinc[j]; /* xinc == 0 when we don't need to shift */ z2 += (size_t)xinc[j]; z3 += (size_t)xinc[j]; z4 += (size_t)xinc[j]; z = (*z1 - *z3 - *z2 + *z4) * (*xv) * zy + /* weighted sum */ (*z3 - *z4) * (*xv) + (*z2 - *z4) * zy + *z4; theval = (int) ((float32)1.0 + (float32)237.9 * (z - in->min) / range); /* scaled value */ if (theval >= 240 || theval < 1) *p++ = 0; else *p++ = (uint8) theval; } } HDfree((char *) dxs); HDfree((char *) dys); HDfree((char *) xinc); HDfree((char *) yoffs); return 0; } /* end of convert_interp */ /**************************************************************************** * * Next come the routines for pixel replication * * * Two routines to create expanded image via pixel replication * * pixrep_scaled replicates pixels according to given scales * pixrep_simple replicates the same number of pixels for each point * ******************************************************************************/ /*----------------------------------------------------------------------------- * pixrep_scaled * * Purpose: Create an expanded image from the data array * Input: * in: struct with all input values * out: struct with all output values * Returns: 0 on success, -1 on failure with error set * Users: process * Invokes: compute_offsets * Remarks: Uses pixel replication to fill in the picture. Replicates * pixels according to in->vscale and in->hscale *---------------------------------------------------------------------------*/ int pixrep_scaled(Input * in, Output * out) { int32 j; float *data, range, ratio; uint8 *image, *prevrow; uint8 *pixvals; int32 i, theval, *hoffsets, *voffsets, prevoffset; data = in->data; /* space for data */ image = (uint8 *) out->image; /* space for image */ range = in->max - in->min; if (range < (float32)0.0) range = -range; /* max must be > min */ hoffsets = (int32 *) HDmalloc((uint32) (out->hres + 1) * sizeof(int32)); voffsets = (int32 *) HDmalloc((uint32) (out->vres + 1) * sizeof(int32)); pixvals = (uint8 *) HDmalloc((uint32) in->hdim + 1); compute_offsets(in->hscale, in->hdim, hoffsets, out->hres); compute_offsets(in->vscale, in->vdim, voffsets, out->vres); prevoffset = voffsets[0] - 1; ratio = (float32) 237.9 / range; for (i = 0; i < out->vres; i++) { /* for each row, store pixel vals */ if (voffsets[i] > prevoffset) { /* if new data row, compute pix vals */ for (j = 0; j < in->hdim; j++) { /* compute vals for each data point */ theval = (int) ((float32)1.5 + ratio * (*data++ - in->min)); if (theval >= 240 || theval < 1) theval = 0; pixvals[j] = (uint8) theval; } for (j = 0; j < out->hres; j++) /* put row of pix vals into */ *image++ = pixvals[hoffsets[j]]; /* next row of image */ } else { /* else repeating a previous row */ prevrow = image - out->hres; for (j = 0; j < out->hres; j++) /* put previous row of pix vals */ *image++ = *prevrow++; /* into next row of image */ } prevoffset = voffsets[i]; } HDfree((char *) hoffsets); HDfree((char *) voffsets); HDfree((char *) pixvals); return 0; } /* end of pixrep_scaled */ /*----------------------------------------------------------------------------- * compute_offsets * * Purpose: For each pixel position on the horizontal or vertical * dimension, compute the offet of the corresponding value * in the scale array. * Input: * scale: the scale * dim: length of scale * res: resolution: length of the array 'offsets' * Output: * offsets: the set of offsets that were computed * out: struct with all output values * Returns: 0 on success, -1 on failure with error set * Users: pixrep_scaled * Invokes: compute_offsets * Remarks: The array 'offsets' can be used to determine which scaled * pixel value to place in the final picture. *---------------------------------------------------------------------------*/ int compute_offsets(float32 *scale, int32 dim, int32 *offsets, int32 res) { int32 i, j; float32 *midpt, pt, delta; midpt = (float32 *) HDmalloc(sizeof(float32) * (size_t)dim); for (i = 0; i < dim - 1; i++) { /* compute all midpoints */ midpt[i] = (scale[i] + scale[i + 1]) / (float32) 2.0; /* printf("midpt[%d]=%8.1f\tscale[%d]=%8.1f\n",i,midpt[i],i,scale[i]); */ } midpt[i] = scale[i] + scale[i] - midpt[i - 1]; /* tack one onto end */ delta = (*(scale + dim - 1) - *scale) / (float32)(res - 1); /* amt of change along scale */ /* per pixel position */ offsets[0] = 0; pt = *scale; /* base point has value of 1st scale item */ for (i = 1, j = 0; i < res; i++) { /* compute & store offsets of pix vals */ pt += delta; offsets[i] = offsets[i - 1]; /* keep offsets same until past midpt */ while (pt >= midpt[j]) { offsets[i]++; j++; } } HDfree((char *) midpt); return 0; } /* end of compute_offsets */ /*----------------------------------------------------------------------------- * pixrep_simple * * Purpose: Create an expanded image from the data array * Input: * in: struct with all input values * out: struct with all output values * Returns: 0 on success, -1 on failure with error set * Users: process * Invokes: compute_offsets * Remarks: Uses pixel replication to fill in the picture. Replicates * the same number of pixels for each point *---------------------------------------------------------------------------*/ int pixrep_simple(Input * in, Output * out) { int32 i, j; uint8 raster_val; uint8 *image, *row_buf; float32 *in_row_ptr, *in_buf; float32 ratio, delh, delv, hblockend, vblockend; ratio = (float32) 237.9 / (in->max - in->min); image = (uint8 *) out->image; in_buf = in->data; delh = ((float32) out->hres) / (float32)in->hdim; /* horiz block size */ delv = ((float32) out->vres) / (float32)in->vdim; /* vert block size */ /* * Compute expanded image * Do it a vertical block at a time * (Note the trick with the counters i and j vis-a-vis the blockends.) */ vblockend = delv; for (i = 0; i < out->vres; i++, vblockend += delv) { in_row_ptr = in_buf; row_buf = image; /* start of next NEW row of output */ /* compute raster values for this row */ hblockend = delh; for (j = 0; j < out->hres; j++, hblockend += delh) { raster_val = (uint8) ((float32)1.5 + ratio * (float32) (*in_row_ptr++ - in->min)); *image++ = raster_val; for (; j < (int32) hblockend - 1; j++) /* store vals for this blk of this row */ *image++ = raster_val; } /* repeat same row for whole vertical block */ for (; i < (int32) vblockend - 1; i++) for (j = 0; j < out->hres; j++) *image++ = row_buf[j]; in_buf += in->hdim; /* move to next row in input array */ } return 0; } /* end of pixrep_simple() */ libhdf4-4.2.10/HDF_ALT/hdf/src/vattr.c0000644000000000000000000016235012421456623013751 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5899 $"; #endif /* $Id: vattr.c 5899 2013-01-09 21:18:13Z bmribler $ */ /************************************************************** * * vattr.c * * Handles vgroup and vdata attributes * * Up to HDF4.0r2 vdata and vgroup version number is VSET_VERSION, * defined as 3 in vg.h. With attributes or large fields * or other new features, version number will be 4, VSET_NEW_VERSION. * Attributes will be stored in vdatas. All attributes of a vgroup * or a vdata will be included in the vgroup or the vdata header. * * Changes in the vdata header in HDF files : * if attr or other new features are assigned: * o version number will be VSET_NEW_VERSION (4, * defined in vg.h) * o the new DFTAG_VH looks like: * * interlace number_records hdf_rec_size n_fields * 2 bytes 4 2 2 * datatype_field_n offset_field_n order_field_n fldnmlen_n * 2*n_fields 2*n_fields 2*n_fields 2*n_fields * fldnm_n namelen name classlen class extag exref version * 2 2 2 2 2 * more flags < nattrs attr0_tag/ref attr1_tag/ref ...> * 2 4 4 2/2 2/2 * version more extra_byte * 2 2 1 * * o To make version number accessible without parsing the * variable length of new feature list, a dublicated * version number and 3 bytes (the 'more' and the extra * byte) will be added at the end of the VH. See below. * The new code (version 4 or later) will get the * version number from the bottom * while the old libraries get the version number from the * middle of VH, after the field list and before the new * features list. The new features will be ignored by the * old library. Also, since the old libraries ignore * the extra byte, there is no need to have the extra * byte after the middle 'more' field. * o Add a field "flags" of uint32, * bit 0 -- has attr * bit 1 -- "large field" * bit 2 -- "interlaced data is appendable" * bit 3-15 -- unused. * o Fields follow the flags are: * number_of_attrs this vdata has (4 bytes) * attr_index_list (#_attrs * 8 bytes (4+2+2)) * (field_n, avdtag, avdref) * the flags and attribute fields are added between the * middle version field and the bottom version field. * if no new features: * version number is still VSET_VERSION and the old VH * will be written out. * * Changes in the vgroup data in HDF files : * If has attribute(s): * o add a flag field, uint16, * bit 0 -- has attr * bit 1-15 -- unused. * o version number will be changed to 4 * o fields following the flag are: * number_of_attrs * vg_attr_list * the above fields are added preceding the version field * o don't remove the current undocumented "Slush/Mistake byte" * This byte is hard coded in vpackvg and vunpackvg. * in order to get version number which can be * either 3 or 4, the extra byte must be there ) * If no attribute: * version number is still 3 * No changes in vgroup data * * Create 2 new types in vg.h: * typedef struct dyn_vsattr_struct * { * int32 field_n -- which field of the vdata. 0 for the * entire vdata. * uint16 atag, aref -- tag/ref of the attr vdata * } vs_attr_t; * (If there are too many attrs and performance becomes a * problem, the vs_attr_t listed above can be replaced by an * array of attr lists, each list contains attrs for 1 field.) * typedef struct dyn_vgattr_struct * { * uint16 atag, aref -- tag/ref of the attr vdata * } vg_attr_t; * * Changes in the internal structure VDATA: * add fields: * uint32 flags; * int32 nattrs; * vd_attr_t *alist; * intn new_h_sz; -- set to 1 when VH size changed * * Changes in the internal structure VGROUP: * add fields: * uint32 flags; * int32 nattrs; * vg_attr_t *alist; * * New routines: * intn VSfindex(int32 vsid, char *fieldname, int32 *findex) * find out the index of a field given the field name. * intn VSsetattr(int32 vsid, int32 findex, char *attrname, * int32 datatype, int32 count, void * values) * set attr for a field of a vdata or for the vdata. * if the attr already exists the new values will replace * the current ones as far as the datatype and order * are not changed. * intn VSnattrs(int32 vsid) * total number of attr for a vdata and its fields * int32 VSfnattrs(int32 vsid, int32 findex) * number of attrs for a vdata or a field of it * intn VSfindattr(int32 vsid, int32 findex, char *attrname) * get index of an attribute with a given name * intn VSattrinfo(int32 vsid, int32 findex, intn attrindex, * char *name, int32 *datatype, int32 *count, int32 *size); * get info about an attribute * intn VSgetattr(int32 vsid, int32 findex, intn attrindex, * void * values) * get values of an attribute * intn VSisattr(int32 vsid) * test if a vdata is an attribute of other object * < int32 VSgetversion(int32 vsid) already defined in vio.c > * < get vset version of a vdata > * intn Vsetattr(int32 vgid, char *attrname, int32 datatype, * int32 count, void * values) * set attr for a vgroup * intn Vnattrs(int32 vgid) * number of attrs for a vgroup * intn Vnattrs2(int32 vgid) * number of attrs for a vgroup, also including attrs created prior * to the availability of Vdata and Vgroup attribute API routines * intn Vfindattr(int32 vgid, char *attrname) * get index of an attribute with a given name * intn Vattrinfo(int32 vgid, intn attrindex, char *name, * int32 *datatype, int32 *count, int32 *size) * get info about an attribute * intn Vattrinfo2(int32 vgid, intn attrindex, char *name, * int32 *datatype, int32 *count, int32 *size) * get info about an attribute - this function processes attributes * that are counted by Vnattrs2. * intn Vgetattr(int32 vgid, intn attrindex, void * values) * get values of an attribute * intn Vgetattr2(int32 vgid, intn attrindex, void * values) * get values of an attribute - this function processes attributes * that are counted by Vnattrs2. * int32 Vgetversion(int32 vgid) * get vset version of a vgroup * Private routines: * * Affected existing functions: * vgp.c:vunpackvg--VPgetinfo * vgp.c:VPgetinfo--Load_vfile--vinitialize * vgp.c:vpackvg--Vdetach * vgp.c:Vattach * vgp.c:Vdestroynode--Remove_file--Vfinish * vio.c:VSPgetinfo--Load_vfile--vinitialize * vio.c:vpackvs * vio.c:vunpackvs * vio.c:VSdetach * vio.c:VSattach * vio.c:VSdestroynode * vconv.c:Vimakecompat--vmakecompat (no change. compat to ver. 3) * * First draft on 7/31/96, modified on 8/6/96, 8/15/96 *************************************************************/ #define VSET_INTERFACE #include "hdf.h" /* ----------------- VSfindex --------------------- NAME VSfindex -- find index of a named field in a vdata USAGE intn VSfindex(int32 vsid, char *fieldname, int32 *findex) int32 vsid; IN: vdata id which contains this field const char *fieldname; IN: field name int32 *findex; OUT: field index RETURNS Returns SUCCEED if successful; FAIL otherwise. DESCRIPTION This routine searchs field names only. It doesn't search the vdata name. Use VSinquire() or VSgetname() to find vdata name. ---------------------------------------------------- */ intn VSfindex(int32 vsid, const char *fieldname, int32 *findex) { CONSTR(FUNC, "VSfindex"); vsinstance_t *vs_inst; VDATA *vs; DYN_VWRITELIST *w; int32 nflds; int32 ret_value = SUCCEED; intn i, found = 0; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); vs = vs_inst->vs; w = &vs->wlist; nflds = w->n; for (i=0; iname[i])) { found = 1; *findex = i; break; } #else if (HDstrcmp(fieldname, w->name[i]) == 0) { found = 1; *findex = i; break; } #endif /* VDATA_FIELDS_ALL_UPPER */ } if (!found) HGOTO_ERROR(DFE_BADFIELDS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfindex */ /* -------------- VSsetattr --------------------------------- NAME VSsetattr -- Set attribute for a vdata or a field of a vdata USAGE intn VSsetattr(int32 vsid, int32 findex, char *attrname, int32 datatype, int32 count, void * values) int32 vsid; IN: vdata access id int32 findex; IN: number determined by assinging each field in a record a number starting with 0; _HDF_VDATA (-1) represents the entire vdata. const char *attrname; IN: name of the attribute int32 datatype; IN: data type of the attribute int32 count; IN: number of values the attribute has const void * values; IN: a buffer which contains the values of the attribute RETURNS Returns SUCCEED if successful, FAIL otherwise. DESCRIPTION Create a vdata to store this attribute. If the field already has an attribute with the same name, replace the current values with the new values if the new data type and order are the same as the current ones; changes in data type or order will be considered as errors. No limit on max number of attributes. (int32 is the final limit.) ----------------------------------------------------------- */ intn VSsetattr(int32 vsid, int32 findex, const char *attrname, int32 datatype, int32 count, const void * values) { CONSTR(FUNC, "VSsetattr"); vsinstance_t *vs_inst, *attr_inst; VDATA *vs, *attr_vs; DYN_VWRITELIST *w, *attr_w; intn i; int32 nattrs, ret_value = SUCCEED; int32 attr_vs_ref, fid, attr_vsid; HEclear(); /* check if id is valid vdata */ if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null attribute name */ if (attrname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); /* check for read access */ if (vs->access == 'r') HGOTO_ERROR(DFE_BADATTACH, FAIL); w = &(vs->wlist); /* check field index */ if ((findex >= w->n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* if the attr already exist for this field, check data type and order */ nattrs = vs->nattrs; fid = vs->f; /* assume attrs are in the same file */ if (nattrs && vs->alist != NULL) { for (i=0; ialist[i].findex == findex) { attr_vs_ref = (int32)vs->alist[i].aref; attr_vsid = VSattach(fid, attr_vs_ref, "w"); if (attr_vsid == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (NULL == (attr_inst=(vsinstance_t *)HAatom_object(attr_vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (attr_vs = attr_inst->vs)) HGOTO_ERROR(DFE_BADPTR, FAIL); if (HDstrcmp(attr_vs->vsname, attrname) == 0) { attr_w = &attr_vs->wlist; if (attr_w->n != 1 || datatype != attr_w->type[0] || count != attr_w->order[0]) { VSdetach(attr_vsid); HGOTO_ERROR(DFE_BADATTR, FAIL); } /* type or order changed */ /* replace the values */ if (1 != VSwrite(attr_vsid, values, 1, FULL_INTERLACE)) { VSdetach(attr_vsid); HGOTO_ERROR(DFE_VSWRITE, FAIL); } if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); HGOTO_DONE(SUCCEED); } /* attr exist */ if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } /* if findex */ } /* for loop, not exists */ } /* create a vdata to store the attribute */ if (FAIL == (attr_vs_ref = VHstoredatam(fid, ATTR_FIELD_NAME, values, 1, datatype, attrname, _HDF_ATTRIBUTE, count))) HGOTO_ERROR(DFE_VSCANTCREATE, FAIL); /* add this attr to vs->alist */ if (vs->alist == NULL) { if (vs->nattrs > 0) HGOTO_ERROR(DFE_BADATTR, FAIL); vs->alist=(vs_attr_t *)HDmalloc(sizeof(vs_attr_t)); } else vs->alist = HDrealloc(vs->alist,(vs->nattrs+1) * sizeof(vs_attr_t)); if (vs->alist == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); vs->alist[vs->nattrs].findex = findex; vs->alist[vs->nattrs].atag = DFTAG_VH; vs->alist[vs->nattrs].aref = (uint16)attr_vs_ref; vs->nattrs++; /* set attr flag and version number */ vs->flags = vs->flags | VS_ATTR_SET; vs->version = VSET_NEW_VERSION; vs->marked = 1; vs->new_h_sz = 1; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSsetattr */ /* ------------------ VSnattrs ------------------------ NAME VSnattrs -- get total number of attributes assigned for this vdata and its fields USAGE intn VSnattrs(int32 vsid); int32 vsid; IN: access id of the vdata RETURNS Returns total number of attributes assigned to this vdata and its fields when successful, FAIL otherwise. DESCRIPTION Use VSfnattrs to get number of attributes for a field or for the vdata ifself. -------------------------------------------------------- */ intn VSnattrs(int32 vsid) { CONSTR(FUNC, "VSnattrs"); vsinstance_t *vs_inst; VDATA *vs; int32 ret_value = SUCCEED; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); ret_value = vs->nattrs; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSnattrs */ /* ---------------- VSfnattrs ------------------------- NAME VSfnattrs -- get the number of attributes assigned to a vdata or a field of a vdata. USAGE intn VSfnattrs(int32 vsid, int32 findex); int32 vsid; IN: access id of the vdata int32 findex; IN: index of the field, 0 based. Use _HDF_VDATA (-1) for the vdata itself. RETURNS Returns the number of attributes assigned to the specified field when successful, FAIL otherwise. DESCRIPTION Use VSnattrs to get total number of attributes for all fields and the vdata ifself. -------------------------------------------------------- */ intn VSfnattrs(int32 vsid, int32 findex) { CONSTR(FUNC, "VSfnattrs"); vsinstance_t *vs_inst; VDATA *vs; int32 ret_value = SUCCEED; vs_attr_t *vs_alist; intn i, nattrs, t_attrs; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex > vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); t_attrs = vs->nattrs; vs_alist = vs->alist; nattrs = 0; for (i=0; ifindex == findex) nattrs++; vs_alist++; } ret_value = nattrs; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfattrs */ /* -------------- VSfindattr --------------------- NAME VSfindattr -- get index of an attribute with given name for a field of a vdata or for the vdata itself USAGE intn VSfindattr(int32 vsid, int32 findex, char *attrname) int32 vsid; IN: access id of the vdata int32 findex; IN: index of the field starting from 0; _HDF_VDATA (-1) for the vdata char *attrname; IN: name of the attr RETURNS Returns the index of the attr when successful, FAIL otherwise. DESCRIPTION ------------------------------------------------------------ */ intn VSfindattr(int32 vsid, int32 findex, const char *attrname) { CONSTR(FUNC, "VSfindattr"); VDATA *vs, *attr_vs; vsinstance_t *vs_inst, *attr_inst; vs_attr_t *vs_alist; int32 fid, attr_vsid; int32 ret_value = FAIL; intn i, nattrs, a_index, found; HEclear(); /* check if id is valid vdata */ if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null attribute name */ if (attrname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex >= vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); nattrs = vs->nattrs; vs_alist = vs->alist; if (nattrs == 0 || vs_alist == NULL) /* no attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); fid = vs->f; found = 0; a_index = -1; for (i=0; ifindex == findex) { a_index++; /* index of fld attr */ if ((attr_vsid = VSattach(fid, (int32)vs_alist->aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(attr_vsid) != VSIDGROUP) { VSdetach(attr_vsid); HGOTO_ERROR(DFE_ARGS, FAIL); } if (NULL == (attr_inst = (vsinstance_t *)HAatom_object(attr_vsid))) { VSdetach(attr_vsid); HGOTO_ERROR(DFE_NOVS, FAIL); } if (NULL == (attr_vs = attr_inst->vs) || HDstrncmp(attr_vs->vsclass, _HDF_ATTRIBUTE, HDstrlen(_HDF_ATTRIBUTE))) { VSdetach(attr_vsid); HGOTO_ERROR(DFE_BADATTR, FAIL); } if (!HDstrcmp(attr_vs->vsname, attrname)) { ret_value = a_index; found = 1; } if (VSdetach(attr_vsid) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } if (found) break; vs_alist++; } done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSfindattr */ /* ------------- VSattrinfo -------------------------- NAME VSattrinfo -- get info of an attribute of a vdata/field USAGE intn VSattrinfo(int32 vsid, int32 findex, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size); int32 vsid; IN: vdata id int32 findex; IN: field index. _HDF_VDATA (-1) for the vdata intn attrindex; IN: which attr of the field/vdata attrindex is 0-based char *name; OUT: attribute name int32 *datatype; OUT: datatype of the attribute int32 *count; OUT: number of values int32 *size; OUT: size of the attr values on local machine RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION name, datatype or count can be NULL if which is not interested. --------------------------------------------------- */ intn VSattrinfo(int32 vsid, int32 findex, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size) { CONSTR(FUNC, "VSattrinfo"); VDATA *vs, *attr_vs; vs_attr_t *vs_alist; vsinstance_t *vs_inst, *attr_inst; int32 attr_vsid; int32 ret_value = SUCCEED; intn i, nattrs, a_index, found; DYN_VWRITELIST *w; char *fldname; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex >= vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); nattrs = vs->nattrs; if (attrindex <0 || attrindex >= nattrs) HGOTO_ERROR(DFE_ARGS, FAIL); vs_alist = vs->alist; if (nattrs == 0 || vs_alist == NULL) /* no attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); found = 0; a_index = -1; for (i=0; ifindex == findex) { a_index++; if (a_index == attrindex) { found = 1; break; } } vs_alist++; } if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); /* found. get attr info */ if (FAIL == (attr_vsid = VSattach(vs->f, (int32)vs_alist->aref, "r"))) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (NULL == (attr_inst = (vsinstance_t *)HAatom_object(attr_vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (attr_vs = attr_inst->vs) || HDstrcmp(attr_vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (name) { HDstrncpy(name, attr_vs->vsname, HDstrlen(attr_vs->vsname)); name[HDstrlen(attr_vs->vsname)] = '\0'; } w = &(attr_vs->wlist); fldname = w->name[0]; /* this vdata has 1 field */ if (w->n != 1 || HDstrcmp(fldname, ATTR_FIELD_NAME)) HGOTO_ERROR(DFE_BADATTR, FAIL); if (datatype) *datatype = (int32)w->type[0]; if (count) *count = (int32)w->order[0]; if (size) *size = w->order[0] * (DFKNTsize(w->type[0] | DFNT_NATIVE)); if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSattrinfo */ /* ---------------------- VSgetattr -------------------- NAME VSgetattr -- get values of a specified attribute USAGE intn VSgetattr(int32 vsid, int32 findex, intn attrindex, void * values) int32 vsid; IN: vdata access id int32 findex; IN: field index; _HDF_VDATA (-1) for vdata intn attrindex; IN: attribute index void * values; OUT: buffer holding attribute values. RETURNS Returns SUCCEED if successful, FAIL otherwise DESCRIPTION --------------------------------------------------------- */ intn VSgetattr(int32 vsid, int32 findex, intn attrindex, void * values) { CONSTR(FUNC, "VSgetattr"); VDATA *vs, *attr_vs; vs_attr_t *vs_alist; vsinstance_t *vs_inst, *attr_inst; int32 fid, attr_vsid; int32 ret_value = SUCCEED; intn i, nattrs, a_index, found; int32 n_recs, il; char fields[FIELDNAMELENMAX+1]; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex >= vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); nattrs = vs->nattrs; if (attrindex <0 || attrindex >= nattrs) HGOTO_ERROR(DFE_ARGS, FAIL); vs_alist = vs->alist; if (nattrs == 0 || vs_alist == NULL) /* no attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); fid = vs->f; /* assume attrs are in the same file */ found = 0; a_index = -1; for (i=0; ifindex == findex) { a_index++; if (a_index == attrindex) { found = 1; break; } } vs_alist++; } if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); /* found. get attr info */ if ((attr_vsid = VSattach(fid, (int32)vs_alist->aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(attr_vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check correctness of attr vdata */ if (NULL == (attr_inst = (vsinstance_t *)HAatom_object(attr_vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (attr_vs = attr_inst->vs) || HDstrcmp(attr_vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (FAIL == VSinquire(attr_vsid, &n_recs, &il, fields, NULL, NULL)) HGOTO_ERROR(DFE_BADATTR, FAIL); if (HDstrcmp(fields, ATTR_FIELD_NAME) != 0) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* ready to read */ if (FAIL == VSsetfields(attr_vsid, fields)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); if (FAIL == VSread(attr_vsid, (unsigned char *)values, n_recs, il)) HGOTO_ERROR(DFE_VSREAD, FAIL); if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetattr */ /* -------------------- VSisattr ---------------------- NAME VSisattr -- test if a vdata is an attribute of other object USAGE intn VSisattr(int32 vsid) int32 vsid; IN: vdata access id RETURNS Returns TRUE if the vdata is an attribute, FALSE otherwise DESCRIPTION -------------------------------------------------------- */ intn VSisattr(int32 vsid) { CONSTR(FUNC, "VSsetattr"); vsinstance_t *vs_inst; VDATA *vs; int32 ret_value = FALSE; HEclear(); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FALSE); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FALSE); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FALSE); if (HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) == 0) ret_value = TRUE; done: if (ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSisattr */ /* ----------------- Vsetattr ------------------------- NAME Vsetattr -- set an attribute for a vgroup USAGE intn Vsetattr(int32 vgid, char *attrname, int32 datatype, int32 count, void * values) int32 vgid; IN: access id of the vgroup char *attrname; IN: name of the attr int32 datatype; IN: datatype of the attr int32 count; IN: number of values the attr has void * values; IN: values of the attr RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION Create a vdata to store this attribute. If the vgroup already has an attribute with the same name and if the type and order are the same, use the new values to replace the current values. Any changes in datatype or order will be considered as an error. No limit on max number of attributes. (int32 is the final limit. ------------------------------------------------------------ */ intn Vsetattr(int32 vgid, const char *attrname, int32 datatype, int32 count, const void * values) { CONSTR(FUNC, "Vsetattr"); VGROUP *vg; VDATA *vs; vginstance_t *v; vsinstance_t *vs_inst; DYN_VWRITELIST *w; int32 ret_value = SUCCEED; int32 attr_vs_ref,fid, vsid; intn i; HEclear(); /* check if id is valid vgroup */ if (HAatom_group(vgid)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null attribute name */ if (attrname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *) HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if ((vg->otag != DFTAG_VG) || (vg->access != 'w')) HGOTO_ERROR(DFE_ARGS, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS,FAIL); fid = vg->f; if ((vg->alist != NULL && vg->nattrs == 0) || (vg->alist == NULL && vg->nattrs != 0)) HGOTO_ERROR(DFE_BADATTR, FAIL); /* if the attr already exist, check data type and order. */ if (vg->alist != NULL) { for (i=0; inattrs; i++) { if ((vsid = VSattach(fid, (int32)vg->alist[i].aref, "w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (NULL == (vs_inst=(vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_BADPTR, FAIL); if (HDstrcmp(vs->vsname, attrname) == 0) { w = &vs->wlist; if (w->n != 1 || w->type[0] != datatype || w->order[0] != count) { VSdetach(vsid); HGOTO_ERROR(DFE_BADATTR, FAIL); } /* type or order changed */ /* replace the values */ if (1 != VSwrite(vsid, values, 1, FULL_INTERLACE)) { VSdetach(vsid); HGOTO_ERROR(DFE_VSWRITE, FAIL); } if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); HGOTO_DONE(SUCCEED); } /* attr exist */ if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } /* for loop, not exists */ } /* create the attr_vdata and insert it into vg->alist */ if ((attr_vs_ref = VHstoredatam(fid, ATTR_FIELD_NAME, values, 1, datatype, attrname, _HDF_ATTRIBUTE, count)) == FAIL) HGOTO_ERROR(DFE_VSCANTCREATE, FAIL); /* add the attr to attr list */ if (vg->alist == NULL) vg->alist = (vg_attr_t *)HDmalloc(sizeof(vg_attr_t)); else /* not exist */ vg->alist = HDrealloc(vg->alist, (vg->nattrs + 1) * sizeof(vg_attr_t)); if (vg->alist == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); vg->nattrs++; vg->flags = vg->flags | VG_ATTR_SET; vg->version = VSET_NEW_VERSION; vg->alist[vg->nattrs-1].atag = DFTAG_VH; vg->alist[vg->nattrs-1].aref = (uint16)attr_vs_ref; vg->marked = 1; /* list of refs of all attributes, it is only used when Vattrinfo2 is invoked; see Vattrinfo2 function header for info. 2/4/2011 -BMR */ vg->old_alist = NULL; vg->noldattrs = 0; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vsetattr */ /* ----------------- Vgetversion ----------------------- NAME Vgetversion -- gets vset version of a vgroup USAGE int32 Vgetversion(int32 vgid) int32 vgid; IN: vgroup access id RETURNS Returns vset version number if successful, FAIL otherwise. DESCRIPTION Version 4 (VSET_NEW_VERSION) allows attrs. Version 2 (VSET_OLD_VERSION) is the old vset (before it was merged into HDF3.2?) Version 3 (VSET_VERSION) is the version between HDF3.2 through HDF4.0r2. ------------------------------------------------------------ */ int32 Vgetversion(int32 vgid) { CONSTR(FUNC, "Vgetversion"); VGROUP *vg; vginstance_t *v; int16 vg_version; int32 ret_value = FAIL; HEclear(); if (HAatom_group(vgid)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *) HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); vg_version = vg->version; ret_value = (int32) vg_version; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetversion */ /* ---------------- Vnattrs ------------------------ NAME Vnattrs -- get number of attributes for a vgroup USAGE intn Vnattrs(int32 vgid) int32 vgid; IN: access id of the vgroup RETURNS Returns number of attributes when successful, Fail otherwise. DESCRIPTION -------------------------------------------------- */ intn Vnattrs(int32 vgid) { CONSTR(FUNC, "Vnattrs"); VGROUP *vg; vginstance_t *v; int32 ret_value = SUCCEED; HEclear(); if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS,FAIL); ret_value = vg->nattrs; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vnattrs */ /* ---------------- Vnoldattrs ------------------------ NAME Vnoldattrs -- get number of old-style attributes in a vgroup USAGE intn Vnoldattrs(int32 vgid) int32 vgid; IN: access id of the vgroup RETURNS Returns number of old-style attributes when successful, FAIL, otherwise. DESCRIPTION There are two types of attributes for vgroups. One is the old-style that was created using methods other than the standard attribute API function Vsetattr, which was introduced after HDF Version 4.0 Release 2, July 19, 1996. Without the use of Vsetattr, an application could simulate an attribute for a vgroup by creating and writing a vdata of class _HDF_ATTRIBUTE and adding that vdata to the vgroup via these calls: vdata_ref = VHstoredatam(file_id, ATTR_FIELD_NAME, values, size, type, attr_name, _HDF_ATTRIBUTE, order); ret_value = Vaddtagref (vgroup_id, DFTAG_VH, vdata2_ref); Note that a vgroup (and vdata) that has attribute created by Vsetattr (and VSsetattr) will have a version number of VSET_NEW_VERSION (4) while the other type will have version number of VSET_VERSION (3.) While both types of attributes are stored as vdatas, the vdatas of the new-style attributes are saved in a list of attribute tags/refs of the vgroup, and the vdatas of the old-style attributes are saved as elements of the vgroup. Because of the different storages, the new attribute functions would miss the old-style attributes. Note that the attribute in the SD API are created/stored using the old approach. Thus, V API would miss the SD attributes. Two new fields are added to the internal structure vgroup_desc, noldattrs and old_alist, for holding the number of old-style attributes and their ref#s, respectively. Vnoldattrs calls VSofclass to get the number of old-style attributes and their ref numbers, then sets these two fields when old-style attributes exist in the file before returning the number of old-style attributes to the caller. -BMR 2011/2/16 -------------------------------------------------- */ intn Vnoldattrs(int32 vgid) { CONSTR(FUNC, "Vnoldattrs"); VGROUP *vg; vginstance_t *v; intn n_old_attrs=0; intn ii; uint16 *areflist=NULL; int32 ret_value = 0; HEclear(); if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get number of old-style attributes */ n_old_attrs = VSofclass(vgid, _HDF_ATTRIBUTE, 0, 0, NULL); /* Note: a new attribute is stored in vdata of class _HDF_ATTRIBUTE too, but it is only saved in the file as attribute (by tag/ref,) not as an element of the vgroup. Hence, vg->nattrs = 1, but vg->nvelt = 0 -BMR Feb, 2011*/ /* Store the ref numbers of old-style attributes into the list vg->old_alist, for easy access later by Vattrinfo2 and Vgetattr2 */ if (n_old_attrs > 0) { /* Locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS,FAIL); /* Establish the list of attribute refs if it is not done so already or if it is outdated. */ /* temporary list of attr refs to pass into VSofclass */ areflist = (uint16 *) HDmalloc(sizeof(uint16) * n_old_attrs); if (areflist == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Get ref numbers of old-style attributes belonging to this vg */ n_old_attrs = VSofclass(vgid, _HDF_ATTRIBUTE, 0, (uintn)n_old_attrs, areflist); if (n_old_attrs == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Do nothing when the list exists and is current */ if (vg->old_alist != NULL && vg->noldattrs == n_old_attrs) { ret_value = vg->noldattrs; HGOTO_DONE(vg->noldattrs); } /* Either list doesn't exist or exists but is not current */ else if (vg->noldattrs != n_old_attrs) { /* List is outdated, i.e., more old style attributes had been added since the list was established, release it */ if (vg->old_alist != NULL) HDfree(vg->old_alist); /* Allocate new list */ vg->old_alist = (vg_attr_t *)HDmalloc(sizeof(vg_attr_t) * (n_old_attrs)); if (vg->old_alist == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* not current */ /* Transfer ref nums to the vg_attr_t list for future accesses */ for (ii = 0; ii < n_old_attrs; ii++) { vg->old_alist[ii].aref = areflist[ii]; /* atag is not needed */ } vg->noldattrs = n_old_attrs; /* record number of old-style attrs */ ret_value = vg->noldattrs; } /* there are some old attributes */ done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ if (areflist != NULL) HDfree(areflist); /* Normal function cleanup */ return ret_value; } /* Vnoldattrs */ /* ---------------- Vnattrs2 ------------------------ NAME Vnattrs2 -- get number of old and new attributes for a vgroup USAGE intn Vnattrs2(int32 vgid) int32 vgid; IN: access id of the vgroup RETURNS Returns number of attributes when successful, FAIL, otherwise. DESCRIPTION The returned number of attributes will include: 1. the attributes created by the Vgroup attribute API routines, that were added starting from Vgroups version VSET_NEW_VERSION, and 2. the attributes created using the combination of VHstoredatam and Vaddtagref/Vinsert, most likely prior to the availability of the attribute API routines. More detailed description is available in the header of Vnoldattrs. This function was added specifically to assist the HDF Mapping project. -BMR 2011/2/8 -------------------------------------------------- */ intn Vnattrs2(int32 vgid) { CONSTR(FUNC, "Vnattrs2"); intn n_new_attrs=0, n_old_attrs=0; int32 ret_value = SUCCEED; HEclear(); /* Get number of new-style attributes */ n_new_attrs = Vnattrs(vgid); if (n_new_attrs == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Get number of old-style attributes */ n_old_attrs = Vnoldattrs(vgid); if (n_old_attrs == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Total number of attributes */ ret_value = n_old_attrs + n_new_attrs; done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vnattrs2 */ /* ----------------- Vfindattr ----------------------- NAME Vfindattr -- get index of an attribute with given name USAGE intn Vfindattr(int32 vgid, char *attrname) int32 vgid; IN: access id of the vgroup const char *attrname; IN: name of the attr RETURNS Returns the index of the attr when successful, FAIL otherwise. DESCRIPTION ------------------------------------------------------------ */ intn Vfindattr(int32 vgid, const char *attrname) { CONSTR(FUNC, "Vfindattr"); VGROUP *vg; VDATA *vs; vginstance_t *v; vsinstance_t *vs_inst; int32 fid, vsid; int32 ret_value = FAIL; intn i, found; HEclear(); /* check if id is valid vgroup */ if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check for null attribute name */ if (attrname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; fid = vg->f; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS, FAIL); if (vg->nattrs == 0 || vg->alist == NULL) /* no attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); found = 0; for (i=0; found == 0 && inattrs; i++) { if ((vsid = VSattach(fid, (int32)vg->alist[i].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (0 == HDstrcmp(vs->vsname, attrname)) { ret_value = i; found = 1; } if (VSdetach(vsid) == FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vfindattr */ /* ---------- Vattrinfo ---------------------- NAME Vattrinfo -- get info of a vgroup attribute USAGE intn Vattrinfo(int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size) int32 vgid; IN: vgroup id intn attrindex; IN: which attr's info we want attrindex is 0-based char *name; OUT: attribute name int32 *datatype; OUT: datatype of the attribute int32 *count; OUT: number of values int32 *size; OUT: size of the attr values on local machine. RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION name, datatype or count can be NULL if which is not interested. --------------------------------------------------- */ intn Vattrinfo(int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size) { CONSTR(FUNC, "Vattrinfo"); VGROUP *vg; VDATA *vs; DYN_VWRITELIST *w; /* char fldname[FIELDNAMELENMAX + 1]; */ char *fldname; vginstance_t *v; vsinstance_t *vs_inst; int32 fid, vsid; int32 ret_value = SUCCEED; HEclear(); if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; fid = vg->f; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS, FAIL); if (vg->nattrs <= attrindex || vg->alist == NULL) /* not that many attrs or bad attr list */ HGOTO_ERROR(DFE_ARGS, FAIL); if ((vsid = VSattach(fid, (int32)vg->alist[attrindex].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (name) { HDstrncpy(name, vs->vsname, HDstrlen(vs->vsname)); name[HDstrlen(vs->vsname)] = '\0'; } w = &(vs->wlist); fldname = w->name[0]; /* this vdata has 1 field */ if (w->n != 1 || HDstrcmp(fldname, ATTR_FIELD_NAME)) /* if (w->n != 1 ) */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (datatype) *datatype = (int32)w->type[0]; if (count) *count = (int32)w->order[0]; if (size) *size = w->order[0] * (DFKNTsize(w->type[0] | DFNT_NATIVE)); if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vattrinfo */ /* ------------ Vattrinfo2 ---------------------- NAME Vattrinfo2 -- get info of a vgroup attribute USAGE intn Vattrinfo2(int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size) int32 vgid; IN: vgroup id intn attrindex; IN: which attr's info we want, attrindex is 0-based char *name; OUT: attribute name int32 *datatype; OUT: datatype of the attribute int32 *count; OUT: number of values int32 *size; OUT: size of the attr values on local machine. RETURNS Returns SUCCEED when successful, FAIL otherwise. DESCRIPTION Vattrinfo2 is an updated version of Vattrinfo. Both functions return the information of an attribute belongging to the given vgroup. However, unlike Vattrinfo, which only processes new-style attributes, i.e., attributes created by Vsetattr, Vattrinfo2 also handles old-style attributes. In addition, Vattrinfo2 was written to assist the HDF Mapping writer. Thus, it is assumed that Vattrinfo2 is to be used in a loop going through all the attributes of the vgroup, including old-style and, perhaps, new-style attributes, if they exist. Refer to the function header of Vnattrs2 and Vnoldattrs for more detail. If the vgroup has both types of attributes, the old-style attributes will be listed first, hence, the need for Vattrinfo2 to be used in a loop. Note that Vattrinfo2 must be used in conjunction with Vnattrs2, which is an updated version of Vnattrs, or Vnoldattrs, which is invoked by Vnattrs2. Vnoldattrs finds old-style attributes and establishes the list of their ref numbers for Vattrinfo2 to access. Note that the arguments name, datatype or count can be NULL if which is not interested. -BMR 2011/2/16 -------------------------------------------------------------- */ intn Vattrinfo2(int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size, int32 *nfields, uint16 *refnum) { CONSTR(FUNC, "Vattrinfo2"); VGROUP *vg; VDATA *vs; DYN_VWRITELIST *w; vginstance_t *vg_inst; vsinstance_t *vs_inst; vg_attr_t *vg_alist=NULL; int32 vsid; intn adjusted_index; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Make sure given object is a vgroup */ if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vg's index in vgtab */ if (NULL == (vg_inst = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = vg_inst->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Validate arguments */ if (attrindex < 0) HGOTO_ERROR(DFE_BADATTR, FAIL); /* invalid attribute index given */ adjusted_index = attrindex; if (adjusted_index < vg->noldattrs) /* index of old-style attribute */ vg_alist = vg->old_alist; /* use old-attr list */ else if (adjusted_index >= vg->noldattrs && adjusted_index < (vg->nattrs+vg->noldattrs)) /* index of new-style attributes */ { /* Adjust the index to accommodate for the old-style attributes preceding the new-style attribute list */ adjusted_index = adjusted_index - vg->noldattrs; vg_alist = vg->alist; /* use new-attr list */ } else /* not that many attrs */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (vg_alist == NULL) /* Bad attr list */ HGOTO_ERROR(DFE_BADATTR, FAIL); /* Getting attribute information */ /* Get access to the vdata storing the attr, and obtain requested info */ if ((vsid = VSattach(vg->f, (int32)vg_alist[adjusted_index].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (name) { HDstrncpy(name, vs->vsname, HDstrlen(vs->vsname)); name[HDstrlen(vs->vsname)] = '\0'; } w = &(vs->wlist); if (datatype) *datatype = (int32)w->type[0]; if (count) *count = (int32)w->order[0]; if (size) *size = w->order[0] * (DFKNTsize(w->type[0] | DFNT_NATIVE)); if (nfields) *nfields = (int32)w->n; /* Note: int32 to be consistent with VFnfields */ if (refnum) *refnum = vs->oref; if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vattrinfo2 */ /* ---------- Vgetattr ----------------------- NAME Vgetattr -- read values of a vgroup attribute USAGE intn Vgetattr(int32 vgid, intn attrindex, void * values) int32 vgid; IN: vgroup id intn attrindex; IN: index of the attribute void * values; OUT: where the values go RETURNS Returns SUCCEED when successful, FAIL otherwise DESCRIPTION ------------------------------------------------- */ intn Vgetattr(int32 vgid, intn attrindex, void * values) { CONSTR(FUNC, "Vgetattr"); VGROUP *vg; VDATA *vs; char fields[FIELDNAMELENMAX]; vginstance_t *v; vsinstance_t *vs_inst; int32 fid, vsid; int32 n_recs, il; int32 ret_value = SUCCEED; HEclear(); if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; fid = vg->f; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS, FAIL); if (vg->nattrs <= attrindex || vg->alist == NULL) /* not that many attrs or bad attr_Vg tag/ref */ HGOTO_ERROR(DFE_ARGS, FAIL); if ((vsid = VSattach(fid, (int32)vg->alist[attrindex].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check correctness of attr vdata */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); if (FAIL == VSinquire(vsid, &n_recs, &il, fields, NULL, NULL)) HGOTO_ERROR(DFE_BADATTR, FAIL); /* if (HDstrcmp(fields, ATTR_FIELD_NAME) != 0) HGOTO_ERROR(DFE_BADFIELDS, FAIL); */ /* ready to read */ if (FAIL == VSsetfields(vsid, ATTR_FIELD_NAME)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); if (FAIL == VSread(vsid, (unsigned char *)values, n_recs, il)) HGOTO_ERROR(DFE_VSREAD, FAIL); if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetattr */ /* ---------- Vgetattr2 ----------------------- NAME Vgetattr2 -- read values of a vgroup attribute (updated of Vgetattr) USAGE intn Vgetattr2(int32 vgid, intn attrindex, void * values) int32 vgid; IN: vgroup id intn attrindex; IN: index of the attribute void * values; OUT: buffer for attribute values RETURNS Returns SUCCEED when successful, FAIL otherwise DESCRIPTION This function is an updated version of Vgetattr because, beside processing an attribute that was created by the Vsetattr, it also reads values of an attribute that was created prior to Vsetattr by other method such as the combination of VHstoredatam and Vaddtagref/Vinsert. More detailed description is available in the function header of Vnattrs2 and Vnoldattrs. -BMR 2011/2/16 ------------------------------------------------- */ intn Vgetattr2(int32 vgid, intn attrindex, void * values) { CONSTR(FUNC, "Vgetattr2"); VGROUP *vg; VDATA *vs; char fields[FIELDNAMELENMAX]; vginstance_t *v; vsinstance_t *vs_inst; vg_attr_t *vg_alist=NULL; intn adjusted_index; int32 vsid=-1; int32 n_recs, il; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Make sure given object is a vgroup */ if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vg's index in vgtab */ if (NULL == (v = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Validate arguments */ if (attrindex < 0) HGOTO_ERROR(DFE_BADATTR, FAIL); /* invalid attribute index given */ adjusted_index = attrindex; if (adjusted_index < vg->noldattrs) /* index of old-style attribute */ vg_alist = vg->old_alist; /* use old-attr list */ else if (adjusted_index >= vg->noldattrs && adjusted_index < (vg->nattrs+vg->noldattrs)) /* index of new-style attributes */ { /* Adjust the index to accommodate for the old-style attributes preceding the new-style attribute list */ adjusted_index = adjusted_index - vg->noldattrs; vg_alist = vg->alist; /* use new-attr list */ } else /* not that many attrs */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (vg_alist == NULL) /* Bad attr list */ HGOTO_ERROR(DFE_BADATTR, FAIL); /* Getting attribute information */ /* Get access to the vdata storing the attr, and obtain requested info */ if ((vsid = VSattach(vg->f, (int32)vg_alist[adjusted_index].aref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check correctness of attr vdata */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs) || HDstrcmp(vs->vsclass, _HDF_ATTRIBUTE) != 0) HGOTO_ERROR(DFE_BADATTR, FAIL); /* Get vdata information */ if (FAIL == VSinquire(vsid, &n_recs, &il, fields, NULL, NULL)) HGOTO_ERROR(DFE_BADATTR, FAIL); /* Ready to read */ /* Some older attribute vdatas have field name as "AttrValues" instead of the common "VALUES" (ATTR_FIELD_NAME) so we need to use what was read by VSinquire instead of ATTR_FIELD_NAME -BMR 2011/2/11 (I'll look for "AttrValues" in previous versions of the library, just in case) */ /* if (FAIL == VSsetfields(vsid, ATTR_FIELD_NAME)) */ if (FAIL == VSsetfields(vsid, fields)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); if (FAIL == VSread(vsid, (unsigned char *)values, n_recs, il)) HGOTO_ERROR(DFE_VSREAD, FAIL); if (FAIL == VSdetach(vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if (ret_value == FAIL) { /* Error condition cleanup */ if (vsid != -1) VSdetach(vsid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetattr2 */ libhdf4-4.2.10/HDF_ALT/hdf/src/herr.c0000644000000000000000000002374712421456623013557 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: herr.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*LINTLIBRARY */ /* -------------------------------- herr.c -------------------------------- */ /* HDF error handling / reporting routines LOCAL ROUTINES None EXPORTED ROUTINES HEstring -- return error description HEclear -- clear the error stack HEpush -- push an error onto the stack HEreport -- give a more detailed error description HEprint -- print values from the error stack HEvalue -- return a error off of the error stack */ #define _H_ERR_MASTER_ #include "hdf.h" /* ** Include files for variable argument processing for HEreport */ #include /* We use a stack to hold the errors plus we keep track of the function, file and line where the error occurs. */ /* the structure of the error stack element */ typedef struct error_t { hdf_err_code_t error_code; /* Error number */ char function_name[FUNC_NAME_LEN]; /* function where error occur */ const char *file_name; /* file where error occur */ intn line; /* line in file where error occurs */ intn system; /* for system or HDF error */ char *desc; /* optional supplied description */ } error_t; /* pointer to the structure to hold error messages */ PRIVATE error_t *error_stack = NULL; #ifndef DEFAULT_MESG # define DEFAULT_MESG "Unknown error" #endif /* size of error message table */ #define ERRMESG_SZ (sizeof(error_messages) / sizeof(error_messages[0])) /*------------------------------------------------------------------------ NAME HEstring -- return error description USAGE char * HEstring(error_code) int16 error_code; IN: the numerical value of this error RETURNS An error description string DESCRIPTION Return a textual description of the given error. These strings are statically declared and should not be free()ed by the user. If no string can be found to describe this error a generic default message is returned. ---------------------------------------------------------------------------*/ const char * HEstring(hdf_err_code_t error_code) { int i; /* temp int index */ /* look for the error_code in error message table */ for (i = 0; i < (int)ERRMESG_SZ; i++) if (error_messages[i].error_code == error_code) { return error_messages[i].str; } /* otherwise, return default message */ return DEFAULT_MESG; } /* HEstring */ /*-------------------------------------------------------------------------- NAME HEclear -- clear the error stack USAGE VOID HEclear(VOID) RETURNS NONE DESCRIPTION Remove all currently reported errors from the error stack ---------------------------------------------------------------------------*/ VOID HEPclear(void) { if (!error_top) goto done; /* error_top == 0 means no error in stack */ /* clean out old descriptions if they exist */ for (; error_top > 0; error_top--) { if (error_stack[error_top - 1].desc) { HDfree(error_stack[error_top - 1].desc); error_stack[error_top - 1].desc = NULL; } } done: return; } /* HEPclear */ /*------------------------------------------------------------------------- NAME HEpush -- push an error onto the stack USAGE VOID HEpush(error_code, func_name, file_name, line) int16 error_code; IN: the numerical value of this error char * func_name; IN: function where the error happened char * file_name; IN: file name of offending function int line; IN: line number of the reporting statment RETURNS NONE DESCRIPTION push a new error onto stack. If stack is full, error is ignored. assumes that the character strings (function_name and file_name) referred are in some semi-permanent storage, so it just saves the pointer to the strings. blank out the description field so that a description is reported only if REreport is called ---------------------------------------------------------------------------*/ VOID HEpush(hdf_err_code_t error_code, const char *function_name, const char *file_name, intn line) { intn i; /* if the stack is not allocated, then do it */ if (!error_stack) { error_stack = (error_t *) HDmalloc((uint32) sizeof(error_t) * ERR_STACK_SZ); if (!error_stack) { puts("HEpush cannot allocate space. Unable to continue!!"); exit(8); } for (i = 0; i < ERR_STACK_SZ; i++) error_stack[i].desc = NULL; } /* if stack is full, discard error */ /* otherwise, push error details onto stack */ if (error_top < ERR_STACK_SZ) { HDstrcpy(error_stack[error_top].function_name,function_name); error_stack[error_top].file_name = file_name; error_stack[error_top].line = line; error_stack[error_top].error_code = error_code; if (error_stack[error_top].desc) { HDfree(error_stack[error_top].desc); error_stack[error_top].desc = NULL; } error_top++; } } /* HEpush */ /*------------------------------------------------------------------------- NAME HEreport -- give a more detailed error description USAGE VOID HEreport(format, ....) char * format; IN: printf style print statement RETURNS NONE DESCRIPTION Using printf and the variable number of args facility allow the library to specify a more detailed description of a given error condition ---------------------------------------------------------------------------*/ VOID HEreport(const char *format,...) { va_list arg_ptr; char *tmp; CONSTR(FUNC, "HEreport"); /* name of function if HIalloc fails */ va_start(arg_ptr, format); if ((error_top < ERR_STACK_SZ + 1) && (error_top > 0)) { tmp = (char *) HDmalloc(ERR_STRING_SIZE); if (!tmp) { HERROR(DFE_NOSPACE); goto done; } vsprintf(tmp, format, arg_ptr); if (error_stack[error_top - 1].desc) HDfree(error_stack[error_top - 1].desc); error_stack[error_top - 1].desc = tmp; } va_end(arg_ptr); done: return; } /* HEreport */ /*------------------------------------------------------------------------- NAME HEprint -- print values from the error stack USAGE VOID HEprint(stream, levels) FILE * stream; IN: file to print error message to int32 level; IN: level at which to start printing RETURNS NONE DESCRIPTION Print part of the error stack to a given file. If level == 0 the entire stack is printed. If an extra description has been added (via HEreport) it is printed too. ---------------------------------------------------------------------------*/ VOID HEprint(FILE * stream, int32 print_levels) { if (print_levels == 0 || print_levels > error_top) /* print all errors */ print_levels = error_top; /* print the errors starting from most recent */ for (print_levels--; print_levels >= 0; print_levels--) { fprintf(stream, "HDF error: (%d) <%s>\n\tDetected in %s() [%s line %d]\n", error_stack[print_levels].error_code, HEstring(error_stack[print_levels].error_code), error_stack[print_levels].function_name, error_stack[print_levels].file_name, error_stack[print_levels].line); if (error_stack[print_levels].desc) fprintf(stream, "\t%s\n", error_stack[print_levels].desc); } } /* HEprint */ /* ------------------------------- HEvalue -------------------------------- */ /* NAME HEvalue -- return a error off of the error stack USAGE int16 HEvalue(level) int32 level; IN: level of the error stack to return RETURNS Error code or DFE_NONE if no error DESCRIPTION Return the error code of a single error out of the error stack --------------------------------------------------------------------------- */ int16 HEvalue(int32 level) { int16 ret_value = DFE_NONE; if (level > 0 && level <= error_top) ret_value = (int16) error_stack[error_top - level].error_code; else ret_value = DFE_NONE; return ret_value; } /* HEvalue */ /*-------------------------------------------------------------------------- NAME HEshutdown PURPOSE Terminate various static buffers. USAGE intn HEshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the HE routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HEshutdown(void) { if(error_stack!=NULL) { HDfree(error_stack); error_stack=NULL; } /* end if */ return(SUCCEED); } /* end HEshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfrle.c0000644000000000000000000001355412421456623013706 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfrle.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfrle.c * Purpose: RLE image compression algorithm * Invokes: * Contents: * DFCIrle: compress string using run length encoding * DFCIunrle: decompress string using run length encoding * Remarks: DFCIrle() and DFCIunrle() compress and decompress RLE encoded info *---------------------------------------------------------------------------*/ #include "hdf.h" /*----------------------------------------------------------------------------- * Name: DFCIrle * Purpose: compress a string of bytes * Inputs: buf: buffer containing data to be compressed * bufto: space for compressed data - assumed big enough * len: number of bytes to compress * Returns: number of compressed bytes on success, -1 on failure * Users: HDF programmers, DFputcomp, other routines * Invokes: none * Remarks: Written for efficiency *---------------------------------------------------------------------------*/ int32 DFCIrle(const void * buf, void * bufto, int32 len) { const uint8 *p; const uint8 *q; uint8 *cfoll; uint8 *clead; const uint8 *begp; int32 i; p = buf; cfoll = (uint8 *) bufto; /* place to copy to */ clead = cfoll + 1; begp = p; while (len > 0) { /* encode stuff until gone */ q = p + 1; i = len - 1; while (i && i + 120 > len && *p == *q) { q++; i--; } if (q - p > 2) { /* three in a row */ if (p > begp) { *cfoll = (uint8) (p - begp); cfoll = clead; } *cfoll++ = (uint8) (128 | (uint8) (q - p)); /* len of seq */ *cfoll++ = *p; /* char of seq */ len -= q - p; /* subtract len of seq */ p = q; clead = cfoll + 1; begp = p; } else { *clead++ = *p++; /* copy one char */ len--; if (p - begp > 120) { *cfoll = (uint8) (p - begp); cfoll = clead++; begp = p; } } } /* * fill in last bytecount */ if (p > begp) *cfoll = (uint8) (p - begp); else clead--; /* don't need count position */ return ((int32) ((uint8 *) clead - (uint8 *) bufto)); /* how many encoded */ } /*----------------------------------------------------------------------------- * Name: DFCIunrle * Purpose: decompress run length encoding * Inputs: buf: buffer containing compressed data * bufto: space for returning decompressed data * outlen: number of *decompressed* bytes desired. * resetsave: don't use any stored state info - used for fresh image * Returns: number of compressed bytes used up on success, -1 on failure * Users: HDF programmers, DFgetcomp, other routines * Invokes: none * Remarks: has been modified so it will decompress even non-rowwise compression * Hence the static storage stuff *---------------------------------------------------------------------------*/ int32 DFCIunrle(uint8 *buf, uint8 *bufto, int32 outlen, int resetsave) { int cnt; uint8 *p; uint8 *q; uint8 *endp; static uint8 save[255], *savestart = NULL, *saveend = NULL; /* save has a list of decompressed bytes not returned in previous call. savestart and saveend specify the position at which this list starts and ends in the array save */ p = (uint8 *) buf; endp = (uint8 *) bufto + outlen; q = (uint8 *) bufto; if (resetsave) savestart = saveend = save; /* forget saved state */ while ((saveend > savestart) && (q < endp)) /* copy saved stuff */ *q++ = *savestart++; if (savestart >= saveend) savestart = saveend = save; /* all copied */ while (q < endp) { cnt = (int)*p++; /* count field */ if (!(cnt & 128)) { /* is set of uniques */ while (cnt--) { if (q < endp) *q++ = *p++; /* copy unmodified */ else *saveend++ = *p++; } } else { cnt &= 127; /* strip high bit */ while (cnt--) { if (q < endp) *q++ = *p; /* copy unmodified */ else *saveend++ = *p; } p++; /* skip that character */ } } return ((int32) (p - buf)); } libhdf4-4.2.10/HDF_ALT/hdf/src/dfconvrt.h0000644000000000000000000000631112421456623014435 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfconvrt.h 4932 2007-09-07 17:17:23Z bmribler $ */ /* In order to speed the conversion process, eliminate a layer of function * calls by making DFconvert into a macro. * Peter Webb, Oct 11, 1989 */ #ifndef DFCONVRT_H #define DFCONVRT_H #ifndef FUNC_CONV /* This is the default */ /* using the DFconvert macro instead of function */ #define DFconvert(src,dest,ntype,stype,dtype,size,status)\ { char *s=(src), *d=(dest);\ int nt=(ntype), st=(stype), dt=(dtype);\ int sz=((int)size);\ if (nt==DFNT_FLOAT) {\ if ((st==DFNTF_IEEE && dt==DFNTF_PC) ||\ (st==DFNTF_PC && dt==DFNTF_IEEE)) {\ int32 i;\ for (i=0;i DFTAG_JPEG5 (for JPEG compression) */ 0, /* (3) */ 0, /* (4) */ 0, /* (5) */ 0, /* (6) */ 0, /* (7) */ 0, /* (8) */ 0, /* (9) */ 0, /* (10) */ DFTAG_RLE, /* COMP_RLE -> DFTAG_RLE (for Run-length compression) */ DFTAG_IMC /* COMP_IMCOMP -> DFTAG_IMC (for IMCOMP compression) */ }; #endif typedef union tag_model_info { /* Union to contain modeling information */ struct { int32 nt; /* number type */ intn ndim; /* number of dimensions */ int32 *dims; /* array of dimensions */ } dim; } model_info; typedef union tag_comp_info { /* Union to contain compression information */ struct { /* Struct to contain information about how to compress */ /* or decompress a JPEG encoded 24-bit image */ intn quality; /* Quality factor for JPEG compression, should be from */ /* 0 (terrible) to 100 (very good) */ intn force_baseline; /* If force_baseline is set to TRUE then */ /* quantization tables are limited to */ /* 0..255 for JPEG baseline compability */ /* This is only an issue for quality */ /* settings below 24 */ } jpeg; struct { /* struct to contain information about how to compress */ /* or decompress a N-bit encoded dataset */ int32 nt; /* number type of the data to encode */ intn sign_ext; /* whether to sign extend or not */ intn fill_one; /* whether to fill with 1's or 0's */ intn start_bit; /* offset of the start bit in the data */ intn bit_len; /* number of bits to store */ } nbit; struct { /* struct to contain info about how to compress */ /* or decompress a "skipping" huffman encoded dataset */ intn skp_size; /* size of the individual elements when skipping */ } skphuff; struct { /* struct to contain info about how to compress */ /* or decompress a gzip encoded dataset */ intn level; /* how hard to work when compressing the data */ } deflate; struct { int32 options_mask; /* IN */ int32 pixels_per_block; /* IN */ int32 pixels_per_scanline; /* OUT: computed */ int32 bits_per_pixel; /* OUT: size of NT */ int32 pixels; /* OUT: size of dataset or chunk */ } szip; /* for szip encoding */ } comp_info; #endif /* __HCOMP_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hcompri.c0000644000000000000000000004272312421456623014253 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: hcompri.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*LINTLIBRARY */ /* ------------------------------ hcompri.c ------------------------------- Routines for reading & writing old-style (i.e. non-special compressed) compressed raster images, such as JPEG, (raster specific) RLE and IMCOMP. These routines are designed to be layered underneath the buffered special element code and only provide access to reading/writing the entire image at once through the DFgetcomp/DFputcomp code. File Organization ****************** These special elements are invoked at run-time only, information about whether an element was written/read through this interface is not stored in the file. Unless specificly asked for by an API routine or required for a particular kind of access by the library, these routines aren't called. LOCAL ROUTINES EXPORTED BUT LIBRARY PRIVATE ROUTINES HRPcloseAID -- close object but keep AID active HRPendacess -- close object, free AID HRPinfo -- return info about a compressed raster element HRPinquire -- retrieve information about a compressed raster element HRPread -- read some data out of a compressed raster element HRPreset -- replace the current comp. raster info with new info (NOP) HRPseek -- set the seek position HRPsetaccesstype -- set the I/O access type of the compressed raster element HRPstread -- open an access record for reading HRPstwrite -- open an access record for reading HRPwrite -- write some data out to a compressed raster element HRPconvert -- wrap access to a compress raster object ------------------------------------------------------------------------- */ #include "hdf.h" #include "hfile.h" #include /* crinfo_t -- compressed raster information structure */ typedef struct { intn attached; /* number of access records attached to this information structure */ int32 fid; /* File ID of image */ uint16 tag, ref; /* Tag & ref of compressed raster image */ int32 xdim, ydim; /* Image dimensions */ int16 scheme; /* Compression scheme */ comp_info cinfo; /* Compression information */ uintn image_size; /* Size of the uncompressed image in memory */ } crinfo_t; /* forward declaration of the functions provided in this module */ /* cr_funcs -- table of the accessing functions of the compressed raster data element function modules. The position of each function in the table is standard */ funclist_t cr_funcs = { HRPstread, HRPstwrite, HRPseek, HRPinquire, HRPread, HRPwrite, HRPendaccess, HRPinfo, NULL /* no routine registered */ }; /*------------------------------------------------------------------------ NAME HRPconvert -- wrap an existing raster image with the special element routines. USAGE intn HRPconvert(fid, tag, ref, xdim, ydim, scheme, cinfo, pixel_size) int32 fid; IN: File ID for raster image uint16 tag, ref; IN: Tag & Ref of raster image to wrap int32 xdim, ydim; IN: Dimensions of raster image int16 scheme; IN: Compression scheme used comp_info *cinfo; IN: Additional compression parameters uintn pixel_size; IN: Size of the pixels in the image RETURNS AID on SUCCEED/FAIL on failure DESCRIPTION Wraps an existing compressed raster image with the special element API. This is designed only for use under a buffered special element. FORTRAN None --------------------------------------------------------------------------*/ int32 HRPconvert(int32 fid, uint16 tag, uint16 ref, int32 xdim, int32 ydim,int16 scheme, comp_info *cinfo, uintn pixel_size) { CONSTR(FUNC, "HRPconvert"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL; /* access element record */ crinfo_t *info; /* information for the compressed raster element */ int32 ret_value = SUCCEED; HEclear(); file_rec = HAatom_object(fid); if (BADFREC(file_rec) || SPECIALTAG(tag)) HGOTO_ERROR(DFE_ARGS, FAIL); /* allocate special info struct for buffered element */ if ((info = HDmalloc((uint32) sizeof(crinfo_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* fill in special info struct */ info->attached= 1; info->fid = fid; info->tag = tag; info->ref = ref; info->xdim = xdim; info->ydim = ydim; info->image_size = xdim*ydim*pixel_size; info->scheme = scheme; HDmemcpy(&(info->cinfo),cinfo,sizeof(comp_info)); /* get empty access record */ access_rec = HIget_access_rec(); if (access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* set up the information in the access record */ access_rec->special_info = info; /* Check if the tag/ref pair exists */ if(Hexist(fid,tag,ref)<0) { access_rec->new_elem=TRUE; if((access_rec->ddid=HTPcreate(file_rec,tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ else { if((access_rec->ddid=HTPselect(file_rec,tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end else */ access_rec->special_func = &cr_funcs; access_rec->special = SPECIAL_COMPRAS; access_rec->posn = 0; access_rec->access = DFACC_RDWR; access_rec->file_id = fid; access_rec->appendable = FALSE; /* data is non-appendable */ file_rec->attach++; ret_value = HAregister_atom(AIDGROUP,access_rec); /* return access id */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ return ret_value; } /* HRPconvert */ /* ------------------------------ HRPstread ------------------------------- */ /* NAME HRPstread -- open an access record for reading USAGE int32 HRPstread(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION This is a stub routine and should never be called ---------------------------------------------------------------------------*/ int32 HRPstread(accrec_t * rec) { /* shut compilers up*/ rec=rec; assert(0 && "Should never be called"); return (FAIL); } /* HRPstread */ /* ------------------------------ HRPstwrite ------------------------------- */ /* NAME HRPstwrite -- open an access record for reading USAGE int32 HRPstwrite(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION This is a stub routine and should never be called. ---------------------------------------------------------------------------*/ int32 HRPstwrite(accrec_t * rec) { /* shut compilers up*/ rec=rec; assert(0 && "Should never be called"); return (FAIL); } /* HRPstwrite */ /* ------------------------------ HRPseek ------------------------------- */ /* NAME HRPseek -- set the seek posn USAGE int32 HRPseek(access_rec, offset, origin) access_t * access_rec; IN: access record to mess with int32 offset; IN: seek offset int32 origin; IN: where we should calc the offset from RETURNS SUCCEED / FAIL DESCRIPTION Set the seek posn in the given compressed raster element. The only valid position is 0 bytes from the beginning. ---------------------------------------------------------------------------*/ int32 HRPseek(accrec_t * access_rec, int32 offset, int origin) { int32 ret_value = SUCCEED; CONSTR(FUNC, "HRPseek"); /* for HERROR */ /* Adjust offset according to origin. There is no upper bound to posn */ if (origin != DF_START || offset !=0) HGOTO_ERROR(DFE_RANGE, FAIL); /* set the offset */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HRPseek */ /* ------------------------------ HRPread ------------------------------- */ /* NAME HRPread -- read some data out of compressed raster element USAGE int32 HRPread(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer for data RETURNS The number of bytes read or FAIL on error DESCRIPTION Uncompress a compressed raster image into the buffer provided. Support is only provided for reading the entire image in. ---------------------------------------------------------------------------*/ int32 HRPread(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HRPread"); /* for HERROR */ crinfo_t *info = /* information on the special element */ (crinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate length */ if (length!=0 && length!=(int32)info->image_size) HGOTO_ERROR(DFE_RANGE, FAIL); /* adjust length */ if (length == 0) length = info->image_size; /* Copy data from buffer */ DFgetcomp(info->fid,info->tag,info->ref,data,info->xdim,info->ydim,info->scheme); ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HRPread */ /* ------------------------------ HRPwrite ------------------------------- */ /* NAME HRPwrite -- write data out to a compressed raster image USAGE int32 HRPwrite(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer of data RETURNS The number of bytes written or FAIL on error DESCRIPTION Write out data to a compressed raster image. The entire image must be written. ---------------------------------------------------------------------------*/ int32 HRPwrite(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HRPwrite"); /* for HERROR */ crinfo_t *info = /* information on the special element */ (crinfo_t *) (access_rec->special_info); int32 ret_value = SUCCEED; /* validate length */ if (length!=0 && length!=(int32)info->image_size) HGOTO_ERROR(DFE_RANGE, FAIL); /* adjust length */ if (length == 0) length = info->image_size; /* Copy data to buffer */ DFputcomp(info->fid,info->tag,info->ref,data,info->xdim,info->ydim,NULL,NULL,info->scheme,&(info->cinfo)); ret_value = length; /* return length of bytes written */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HRPwrite */ /* ------------------------------ HRPinquire ------------------------------ */ /* NAME HRPinquire -- retreive information about a compressed raster element USAGE int32 HBPinquire(access_rec, file, tag, ref, len, off, pos, acc, sp) access_t * access_rec; IN: access record to return info about uint16 * file; OUT: file ID; uint16 * tag; OUT: tag of info record; uint16 * ref; OUT: ref of info record; int32 * len; OUT: length of element; int32 * off; OUT: offset of element (NOT correct); int32 * pos; OUT: current position in element; int16 * acc; OUT: access mode; int16 * sp; OUT: special code; RETURNS SUCCEED DESCRIPTION Return interesting information about a compressed raster element. NULL can be passed for any of the OUT parameters if their value is not needed. ---------------------------------------------------------------------------*/ int32 HRPinquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HRPinquire"); /* for HERROR */ crinfo_t *info = /* special information record */ (crinfo_t *) access_rec->special_info; uint16 data_tag,data_ref; /* tag/ref of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 ret_value = SUCCEED; /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id) *pfile_id = access_rec->file_id; if (ptag) *ptag = data_tag; if (pref) *pref = data_ref; if (plength) *plength = (access_rec->new_elem ? -1 : info->image_size); if (poffset) *poffset = data_off; if (pposn) *pposn = access_rec->posn; if (paccess) *paccess = (int16)access_rec->access; if (pspecial) *pspecial = (int16)access_rec->special; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HRPinquire */ /* ----------------------------- HRPendaccess ----------------------------- */ /* NAME HRPendacess -- free AID USAGE intn HRPendaccess(access_rec) access_t * access_rec; IN: access record to close RETURNS SUCCEED / FAIL DESCRIPTION Free the AID ---------------------------------------------------------------------------*/ intn HRPendaccess(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HRPendaccess"); /* for HERROR */ #endif /* LATER */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* shut down dependant access record */ HRPcloseAID(access_rec); /* free the access record */ HIrelease_accrec_node(access_rec); /* detach from the file */ file_rec->attach--; #ifdef LATER done: #endif /* LATER */ if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HRPendaccess */ /* ----------------------------- HRPcloseAID ------------------------------ */ /* NAME HRPcloseAID -- free memory but keep AID active USAGE int32 HRPcloseAID(access_rec) access_t * access_rec; IN: access record of file to close RETURNS SUCCEED / FAIL DESCRIPTION Free special element information, but do *NOT* free the AID. ---------------------------------------------------------------------------*/ int32 HRPcloseAID(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HRPcloseAID"); /* for HERROR */ #endif /* LATER */ crinfo_t *info = /* special information record */ (crinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* detach the special information record. If no more references to that, free the record */ if (--(info->attached) == 0) { HDfree(info); access_rec->special_info = NULL; } #ifdef LATER done: #endif /* LATER */ if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HRPcloseAID */ /* ------------------------------- HRPinfo -------------------------------- */ /* NAME HRPinfo -- return info about a compressed raster element USAGE int32 HRPinfo(access_rec, info_block) accrec_t * access_rec; IN: access record of element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given external element. Info_block is assumed to be non-NULL. --------------------------------------------------------------------------- */ int32 HRPinfo(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HRPinfo"); /* for HERROR */ int32 ret_value = SUCCEED; /* validate access record */ if (access_rec->special != SPECIAL_COMPRAS) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_block */ info_block->key = SPECIAL_COMPRAS; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HRPinfo */ libhdf4-4.2.10/HDF_ALT/hdf/src/Makefile.am0000644000000000000000000000561412421456623014500 0ustar ############################################################################# ## Library to build ## ############################################################################# include $(top_srcdir)/config/commence.am lib_LTLIBRARIES = libdf.la FSOURCES = df24ff.f dfanf.c dfanff.f dff.c dfff.f dfpf.c dfpff.f dfr8f.c \ dfr8ff.f dfsdf.c dfsdff.f dfufp2iff.f dfutilf.c herrf.c hfilef.c \ df24f.c dfufp2if.c\ hfileff.f mfanf.c mfgrf.c mfgrff.f vattrf.c vattrff.f vgf.c vgff.f CSOURCES = atom.c bitvect.c cdeflate.c cnbit.c cnone.c crle.c cskphuff.c \ cszip.c df24.c dfan.c dfcomp.c dfconv.c dfgr.c dfgroup.c \ dfimcomp.c dfjpeg.c dfknat.c \ dfkswap.c dfp.c dfr8.c dfrle.c dfsd.c dfstubs.c \ dfufp2i.c dfunjpeg.c dfutil.c dynarray.c glist.c hbitio.c \ hblocks.c hbuffer.c hchunks.c hcomp.c hcompri.c hdatainfo.c \ hdfalloc.c herr.c hextelt.c hfile.c hfiledd.c hkit.c linklist.c \ mcache.c mfan.c mfgr.c mstdio.c tbbt.c vattr.c vconv.c vg.c \ vgp.c vhi.c vio.c vparse.c vrw.c vsfld.c CHEADERS = atom.h bitvect.h cdeflate.h cnbit.h cnone.h cskphuff.h crle.h \ cszip.h df.h dfan.h dfi.h dfgr.h dfrig.h dfsd.h dfstubs.h \ dfufp2i.h dynarray.h H4api_adpt.h h4config.h hbitio.h hchunks.h hcomp.h \ hcompi.h hconv.h hdf.h hdfi.h herr.h hfile.h hkit.h hlimits.h \ hproto.h hntdefs.h htags.h linklist.h mfan.h mfgr.h mstdio.h \ tbbt.h vattr.h vg.h hdatainfo.h ## hdatainfo.h needs to be added conditionally only, should fix this asap FHEADERS = dffunc.f90 hdf.f90 dffunc.inc hdf.inc if HDF_BUILD_FORTRAN libdf_la_SOURCES = $(CSOURCES) $(FSOURCES) include_HEADERS = $(CHEADERS) hproto_fortran.h $(FHEADERS) else libdf_la_SOURCES = $(CSOURCES) include_HEADERS = $(CHEADERS) endif # The following is a workaround. Since Fortran is included in this # Makefile.am, automake will always try to use the Fortran linker, even when # fortran has been disabled in configure. The Fortran linker gets confused # when shared libraries are enabled, so when Fortran is not enabled, # this replaces the Fortran link macro with the C link macro. if HDF_BUILD_FORTRAN # do nothing else F77LINK = $(LINK) endif SUFFIXES = .inc .f90 .inc.f90: if test -f $<; then \ sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $< > $*.f90; \ else \ sed -e 's/^[cC]/!/' -e 's/^ [^ ]/ \&/' < $(srcdir)/$< > $*.f90; \ fi ############################################################################# ## And the cleanup ## ############################################################################# DISTCLEANFILES = dffunc.f90 hdf.f90 libhdf4-4.2.10/HDF_ALT/hdf/src/glist.h0000644000000000000000000006666112421456623013750 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /************************************************************************ Credits: Original code is part of the public domain 'Generic List Library' by Keith Pomakis(kppomaki@jeeves.uwaterloo.ca)-Spring, 1994 It has been modifed to adhere to HDF coding standards. 1996/05/29 - George V. ************************************************************************/ /* $Id: glist.h 4932 2007-09-07 17:17:23Z bmribler $ */ #ifndef GLIST_H #define GLIST_H #include "hdf.h" /* needed for data types */ /* Structure for each element in the list */ typedef struct GLE_struct { VOIDP pointer; /* data element itself */ struct GLE_struct *previous; /* previous element */ struct GLE_struct *next; /* next element */ } Generic_list_element; /* List info structure */ typedef struct GLI_struct { Generic_list_element *current; /* current element */ Generic_list_element pre_element; /* pre element */ Generic_list_element post_element; /* post element */ Generic_list_element deleted_element; /* deleted element */ intn (*lt)(VOIDP a, VOIDP b); /* sort fcn */ uint32 num_of_elements; /* number of elements */ } Generic_list_info; /* Top most List structure, handle to the list */ typedef struct GL_struct { Generic_list_info *info; } Generic_list; /* Define a Stack and Queue */ #define Generic_stack Generic_list #define Generic_queue Generic_list /* Function declarations Descriptions for the General List routines can be found in 'glist.c' while the stack and queue routines are found below */ /****************************************************************************** NAME HDGLinitialize_list DESCRIPTION Every list must be initialized before it is used. The only time it is valid to re-initialize a list is after it has been destroyed. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLinitialize_list(Generic_list *list /* IN: list */); /****************************************************************************** NAME HDGLinitialize_sorted_list DESCRIPTION This function initializes a sorted list. A less-than function must be specified which accepts two pointers, a and b, and returns TRUE (non-zero) if a is less than b, FALSE otherwise. Once a list is initialized in this way, all of the generic list functions described above can be used, except for: void HDGLadd_to_beginning(Generic_list list, void *pointer); void HDGLadd_to_end(Generic_list list, void *pointer); void *HDGLremove_from_beginning(Generic_list list); void *HDGLremove_from_end(Generic_list list); and the list will remain sorted by the criteria specified by the less-than function. The only time it is valid to re-initialize a list is after it has been destroyed. RETURNS SUCEED/FAIL *******************************************************************************/ intn HDGLinitialize_sorted_list(Generic_list *list/*IN: list */, intn (*lt)(VOIDP a, VOIDP b)/*IN:sort fcn */); /****************************************************************************** NAME destory_list DESCRIPTION When a list is no longer needed, it should be destroyed. This process will automatically remove all remaining objects from the list. However, the memory for these objects will not be reclaimed, so if the objects have no other references, care should be taken to purge the list and free all objects before destroying the list. It is an error to destroy a list more than once (unless it has been re-initialized in the meantime). RETURNS Nothing *******************************************************************************/ void HDGLdestroy_list(Generic_list *list /*IN: list */); /****************************************************************************** NAME HDGLadd_to_beginning DESCRIPTION This function will add the specified object to the beginning of the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_beginning(Generic_list list, /*IN: list */ VOIDP pointer /*IN: data element */ ); /****************************************************************************** NAME HDGLadd_to_end DESCRIPTION This function will add the specified object to the end of the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_end(Generic_list list, /*IN: list */ VOIDP pointer /*IN: data element */); /****************************************************************************** NAME HDGLadd_to_list DESCRIPTION This function will add the specified object to the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_list(Generic_list list, /*IN: list */ VOIDP pointer /*IN: data element */); /****************************************************************************** NAME HDGLremove_from_beginning DESCRIPTION This function will remove the first object from the beginning of the list and return it. If the list is empty, NULL is returned. RETURNS First Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLremove_from_beginning(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLremove_from_end DESCRIPTION This function will remove the last object from the end of the list and return it. If the list is empty, NULL is returned. RETURNS Last element if successfull and NULL otherwise *******************************************************************************/ VOIDP HDGLremove_from_end(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLremove_from_list DESCRIPTION This function will remove the specified object from the list and return it. If the specified object does not exist in the list, NULL is returned. If the specified object exists in the list more than once, only the last reference to it is removed. RETURNS Element removed if successful and NULL otherwise *******************************************************************************/ VOIDP HDGLremove_from_list(Generic_list list, /*IN: list */ VOIDP pointer /*IN: data element */); /****************************************************************************** NAME HDGLremove_current DESCRIPTION This function will remove the current object from the list and return it. If the current object has already been removed, if current points to the beginning or end of the list, or if the list is empty, NULL is returned. RETURNS Current element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLremove_current(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLremove_all DESCRIPTION This function will remove all objects from the list. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and remove the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ void HDGLremove_all(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLpeek_at_beginning DESCRIPTION This function will return the first object in the list. If the list is empty, NULL is returned. RETURNS First element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLpeek_at_beginning(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLpeek_at_end DESCRIPTION This function will return the last object in the list. If the list is empty, NULL is returned. RETURNS Last element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLpeek_at_end(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLfirst_in_list DESCRIPTION This function will return the first object in the list and mark it as the current object. If the list is empty, NULL is returned. RETURNS First element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLfirst_in_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLcurrent_in_list DESCRIPTION This function will return the object in the list that is considered the current object (as defined by the surrounding functions). If the current object has just been removed, if current points to the beginning or end of the list, or if the list is empty, NULL is returned. RETURNS Current element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLcurrent_in_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLlast_in_list DESCRIPTION This function will return the last object in the list and mark it as the current object. If the list is empty, NULL is returned. RETURNS Last element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLlast_in_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLnext_in_list DESCRIPTION This function will return the next object in the list and mark it as the current object. If the end of the list is reached, or if the list is empty, NULL is returned. RETURNS Next element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLnext_in_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLprevious_in_list DESCRIPTION This function will return the previous object in the list and mark it as the current object. If the beginning of the list is reached, or if the list is empty, NULL is returned. RETURNS Previous element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLprevious_in_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLreset_to_beginning DESCRIPTION This function will reset the list to the beginning. Therefore, current points to the beginning of the list, and the next object in the list is the first object. RETURNS Nothing *******************************************************************************/ void HDGLreset_to_beginning(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLreset_to_end DESCRIPTION This function will reset the list to the end. Therefore, current points to the end of the list, and the previous object in the list is the last object. RETURNS Nothing *******************************************************************************/ void HDGLreset_to_end(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLnum_of_objects DESCRIPTION This function will determine the number of objects in the list. RETURNS Number of objects in list *******************************************************************************/ intn HDGLnum_of_objects(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLis_empty DESCRIPTION Finds if list is empty RETURNS This function will return TRUE (1) if the list is empty, and FALSE (0) otherwise. *******************************************************************************/ intn HDGLis_empty(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLis_in_list DESCRIPTION Detemines if the object is in the list. RETURNS This function will return TRUE (1) if the specified object is a member of the list, and FALSE (0) otherwise. *******************************************************************************/ intn HDGLis_in_list(Generic_list list, /*IN: list */ VOIDP pointer /*IN: data element */); /****************************************************************************** NAME HDGLcopy_list DESCRIPTION This function will make a copy of the list. The objects themselves are not copied; only new references to them are made. The new list loses its concept of the current object. RETURNS A copy of the orginal list. *******************************************************************************/ Generic_list HDGLcopy_list(Generic_list list /*IN: list */); /****************************************************************************** NAME HDGLperform_on_list DESCRIPTION This function will perform the specified function on each object in the list. Any optional arguments required can be passed through args. RETURNS Nothing *******************************************************************************/ void HDGLperform_on_list(Generic_list list, /*IN: list */ void (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLfirst_that DESCRIPTION This function will find and return the first object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If no objects in the list meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLfirst_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLnext_that DESCRIPTION This function will find and return the next object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If there are no objects left in the list that meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLnext_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLprevious_that DESCRIPTION This function will find and return the previous object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If there are no objects left in the list that meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLprevious_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLlast_that DESCRIPTION This function will find and return the last object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If no objects in the list meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLlast_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLall_such_that DESCRIPTION This function will return a new list containing all of the objects in the specified list which cause the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The objects themselves are not copied; only new references to them are made. RETURNS New list if successful and empty if not. *******************************************************************************/ Generic_list HDGLall_such_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************** NAME HDGLremove_HDGLall_such_that DESCRIPTION This function will remove all objects in the list which cause the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and remove the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ void HDGLremove_all_such_that(Generic_list list, /*IN: list */ intn (*fn)(VOIDP pointer, VOIDP args), /* IN: iterator fcn */ VOIDP args /*IN: args to iterator fcn */); /****************************************************************************/ /* * Stack operations */ /****************************************************************************** NAME HDGSinitialize_stack DESCRIPTION Every stack must be initialized before it is used. The only time it is valid to re-initialize a stack is after it has been destroyed. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGSinitialize_stack HDGLinitialize_list /****************************************************************************** NAME HDGSdestroy_stack DESCRIPTION When a stack is no longer needed, it should be destroyed. This process will automatically remove all remaining objects from the stack. However, the memory for these objects will not be reclaimed, so if the objects have no other references, care should be taken to purge the stack and free all objects before destroying the stack. It is an error to destroy a stack more than once (unless it has been re-initialized in the meantime). RETURNS Nothing *******************************************************************************/ #define HDGSdestroy_stack HDGLdestroy_list /****************************************************************************** NAME HDGSpush DESCRIPTION This function will HDGSpush the specified object onto the stack. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGSpush HDGLadd_to_beginning /****************************************************************************** NAME HDGSpop DESCRIPTION This function will HDGSpop the first object from the top of the stack and return it. If the stack is empty, NULL is returned. RETURNS First element of the top of the stack *******************************************************************************/ #define HDGSpop HDGLremove_from_beginning /****************************************************************************** NAME HDGSpop_all DESCRIPTION This function will HDGSpop all objects from the stack. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and HDGSpop the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ #define HDGSpop_all HDGLremove_all /****************************************************************************** NAME HDGSpeek_at_top DESCRIPTION This function will return the object on the top of the stack. If the stack is empty, NULL is returned. RETURNS Element at top of stack. *******************************************************************************/ #define HDGSpeek_at_top HDGLpeek_at_beginning /****************************************************************************** NAME HDGScopy_stack DESCRIPTION This function will return a copy of the stack. The objects themselves are not copied; only new references to them are made. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGScopy_stack HDGLcopy_list /****************************************************************************/ /* * Queue operations */ /****************************************************************************** NAME HDGQinitialize_queue DESCRIPTION Every queue must be initialized before it is used. The only time it is valid to re-initialize a queue is after it has been destroyed. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGQinitialize_queue HDGLinitialize_list /****************************************************************************** NAME HDGQdestroy_queue DESCRIPTION When a queue is no longer needed, it should be destroyed. This process will automatically remove all remaining objects from the queue. However, the memory for these objects will not be reclaimed, so if the objects have no other references, care should be taken to purge the queue and free all objects before destroying the queue. It is an error to destroy a queue more than once (unless it has been re-initialized in the meantime). RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGQdestroy_queue HDGLdestroy_list /****************************************************************************** NAME HDGQenqueue DESCRIPTION This function will add the specified object to the tail of the queue. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGQenqueue HDGLadd_to_end /****************************************************************************** NAME HDGQdequeue DESCRIPTION This function will remove the first object from the head of the queue and return it. If the queue is empty, NULL is returned. RETURNS First element in the queue in non-empty, else NULL. *******************************************************************************/ #define HDGQdequeue HDGLremove_from_beginning /****************************************************************************** NAME HDGQdequeue_all DESCRIPTION This function will remove all objects from the queue. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and HDGQdequeue the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ #define HDGQdequeue_all HDGLremove_all /****************************************************************************** NAME HDGQpeek_at_head DESCRIPTION This function will return the object at the head of the queue. If the queue is empty, NULL is returned. RETURNS First element in the queue in non-empty, else NULL. *******************************************************************************/ #define HDGQpeek_at_head HDGLpeek_at_beginning /****************************************************************************** NAME HDGQpeek_at_tail DESCRIPTION This function will return the object at the tail of the queue. If the queue is empty, NULL is returned. RETURNS Last element in the queue in non-empty, else NULL. *******************************************************************************/ #define HDGQpeek_at_tail HDGLpeek_at_end /****************************************************************************** NAME HDGQcopy_queue DESCRIPTION This function will return a copy of the queue. The objects themselves are not copied; only new references to them are made. RETURNS SUCCEED/FAIL *******************************************************************************/ #define HDGQcopy_queue HDGLcopy_list #endif /* GLIST_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hcompi.h0000644000000000000000000001121112421456623014062 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hcompi.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: hcompi.h * Purpose: Internal library header file for compression information * Dependencies: should be included after hdf.h * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __HCOMPI_H #define __HCOMPI_H #include "hfile.h" /* Modeling information */ /* structure for storing modeling information */ /* only allow modeling and master compression routines access */ #include "mstdio.h" /* stdio modeling header */ typedef struct comp_model_info_tag { comp_model_t model_type; /* model this stream is using */ union { /* union of all the different types of model information */ comp_model_stdio_info_t stdio_info; /* stdio model info */ } model_info; funclist_t model_funcs; /* functions to perform modeling */ } comp_model_info_t; /* Coding information */ /* structure for storing modeling information */ /* only allow encoding and master compression routines access */ #include "cnone.h" /* no encoding header */ #include "crle.h" /* run-length encoding header */ #include "cnbit.h" /* N-bit encoding header */ #include "cskphuff.h" /* Skipping huffman encoding header */ #include "cdeflate.h" /* gzip 'deflate' encoding header */ #include "cszip.h" /* szip encoding header */ typedef struct comp_coder_info_tag { comp_coder_t coder_type; /* coding scheme this stream is using */ union { /* union of all the different types of coding information */ comp_coder_none_info_t none_info; /* "None" coding info */ comp_coder_rle_info_t rle_info; /* RLE coding info */ comp_coder_nbit_info_t nbit_info; /* N-bit coding info */ comp_coder_skphuff_info_t skphuff_info; /* Skipping huffman coding info */ comp_coder_deflate_info_t deflate_info; /* gzip 'deflate' coding info */ comp_coder_szip_info_t szip_info; /* szip coding info */ } coder_info; funclist_t coder_funcs; /* functions to perform encoding */ } comp_coder_info_t; /* structure for storing a state */ typedef struct comp_stateinfo_tag { uint32 d_offset; /* the offset of the state in the dataset */ uint32 c_offset; /* offset of the state in the compressed data */ comp_model_info_t minfo; /* modeling information */ comp_coder_info_t cinfo; /* coding information */ } comp_stateinfo_t; /* structure for storing state caching information */ typedef struct comp_state_cache_tag { intn num_states; /* the number of states cached */ comp_stateinfo_t **comp_state; /* pointer to an array of pointers to compression states */ } comp_state_cache_t; /* compinfo_t -- compressed element information structure */ typedef struct compinfo_tag { intn attached; /* number of access records attached to this information structure */ int32 length; /* the actual length of the data elt */ uint16 comp_ref; /* compressed info ref. number */ int32 aid; /* AID of the compressed info */ comp_model_info_t minfo; /* modeling information */ comp_coder_info_t cinfo; /* coding information */ intn caching; /* whether caching is turned on */ comp_state_cache_t sinfo; /* state information for caching */ } compinfo_t; #endif /* __HCOMPI_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfknat.c0000644000000000000000000002413112421456623014052 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6032 $"; #endif /* $Id: dfknat.c 6032 2014-01-17 18:13:52Z acheng $ */ /*------------------------------------------------------------------ File: dfknat.c Purpose: Routines to support "native mode" conversion to and from HDF format Invokes: PRIVATE conversion functions: DFKnb1b - Native mode for 8 bit integers DFKnb2b - Native mode for 16 bit integers DFKnb4b - Native mode for 32 bit integers and floats DFKnb8b - Native mode for 64 bit floats Remarks: These files used to be in dfconv.c, but it got a little too huge, so they were broken into a separate file. *------------------------------------------------------------------*/ /*****************************************************************************/ /* */ /* All the routines in this file marked as PRIVATE have been marked so */ /* for a reason. *ANY* of these routines may or may nor be supported in */ /* the next version of HDF (4.00). Furthurmore, the names, paramters, or */ /* functionality is *NOT* guaranteed to remain the same. */ /* The *ONLY* guarantee possible is that DFKnumin(), and DFKnumout() */ /* will not change. They are *NOT* guaranteed to be implemented in the */ /* next version of HDF as function pointers. They are guaranteed to take */ /* the same arguments and produce the same results. */ /* If your programs call any routines in this file except for */ /* DFKnumin(), DFKnumout, and/or DFKsetntype(), your code may not work */ /* with future versions of HDF and your code will *NOT* be portable. */ /* */ /*****************************************************************************/ #include "hdf.h" #include "hconv.h" /*****************************************************************************/ /* NATIVE MODE NUMBER "CONVERSION" ROUTINES */ /*****************************************************************************/ /************************************************************/ /* DFKnb1b() */ /* Native mode for 1 byte data items */ /************************************************************/ int DFKnb1b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; int in_place = 0; uint32 i; uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKnb1b"); HEclear(); if (num_elm == 0) { HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if ((source_stride == 0 && dest_stride == 0) || (source_stride == 1 && dest_stride == 1)) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { HDmemcpy(dest, source, num_elm); return 0; } else return 0; /* Nothing to do */ } else { *dest = *source; for (i = 1; i < num_elm; i++) { dest += dest_stride; source += source_stride; *dest = *source; } } return 0; } /************************************************************/ /* DFKnb2b() */ /* -->Native mode for 2 byte data items */ /************************************************************/ int DFKnb2b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[2]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKnb2b"); HEclear(); if (num_elm == 0) { HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if ((source_stride == 0 && dest_stride == 0) || (source_stride == 2 && dest_stride == 2)) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { HDmemcpy(dest, source, num_elm * 2); return 0; } else { /* Nothing to do */ return 0; } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { dest[0] = source[0]; dest[1] = source[1]; dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { buf[0] = source[0]; buf[1] = source[1]; dest[0] = buf[0]; dest[1] = buf[1]; dest += dest_stride; source += source_stride; } return 0; } /************************************************************/ /* DFKnb4b() */ /* -->Native mode for 4 byte items */ /************************************************************/ int DFKnb4b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[4]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKnb4b"); HEclear(); if (num_elm == 0) { HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if ((source_stride == 0 && dest_stride == 0) || (source_stride == 4 && dest_stride == 4)) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { HDmemcpy(dest, source, num_elm * 4); return 0; } else { /* Nothing to do */ return 0; } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { dest[0] = source[0]; dest[1] = source[1]; dest[2] = source[2]; dest[3] = source[3]; dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { buf[0] = source[0]; buf[1] = source[1]; buf[2] = source[2]; buf[3] = source[3]; dest[0] = buf[0]; dest[1] = buf[1]; dest[2] = buf[2]; dest[3] = buf[3]; dest += dest_stride; source += source_stride; } return 0; } /************************************************************/ /* DFKnb8b() */ /* -->Native mode for 8 byte items */ /************************************************************/ int DFKnb8b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[8]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKnb8b"); HEclear(); if (num_elm == 0) { HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if ((source_stride == 0 && dest_stride == 0) || (source_stride == 8 && dest_stride == 8)) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { HDmemcpy(dest, source, num_elm * 8); return 0; } else { return 0; /* No work to do ! */ } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { HDmemcpy(dest, source, 8); dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { HDmemcpy(buf, source, 8); HDmemcpy(dest, buf, 8); dest += dest_stride; source += source_stride; } return 0; } libhdf4-4.2.10/HDF_ALT/hdf/src/hfiledd.c0000644000000000000000000024546212421456623014216 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5584 $"; #endif /* $Id: hfiledd.c 5584 2011-04-13 18:25:06Z bmribler $ */ /* FILE hfiledd.c - DD & DD block management routines. REMARKS These routines provide all the management for the DD list, both on disk and in memory. The DD list is read in from disk (or created in memory for a new file) here and the tag tree and all the DD modifying functions are in this module. DO NOT MODIFY THE DD BLOCKS FROM OUTSIDE THIS FILE! DESIGN The DD blocks are stored in memory in a very similar way to the way they are stored in the file: in a doubly-linked list of DD blocks with each block having a pointer to the array of DDs in it (in the file). There are additional memory structures which are indexed into the DD list which are designed for faster access to certain manipulations of the DD list. The tag_tree is a tbbt of the tags contained within the file. Each node of the tag_tree has a link to a bit-vector for keeping track of the refs used for that tag and a link to a dynamic array pointers into the DD list for each ref # used. BUGS/LIMITATIONS EXPORTED ROUTINES User-level functions: Hdupdd - Duplicate a data descriptor Hnumber - Count number of occurrances of tag/ref in file Hnewref - Returns a ref that is unique in the file Htagnewref - Returns a ref that is unique in the file for a given tag Hfind - Locate the next object of a search in an HDF file Hdeldd - Delete a data descriptor Developer-level routines HDcheck_tagref - Checks to see if tag/ref is in DD list i.e. created already HDreuse_tagref - reuse a data descriptor preserving tag/refw(assumes DD exists) Tag/ref functions: HTPcreate - Create (& attach to) a tag/ref pair (inserts into DD list also) HTPselect - Attach to an existing DD in the DD list HTPendaccess- End access to an attached DD in the DD list HTPdelete - Mark a tag/ref pair as free (marks space as free in DD list) (ends access to the tag/ref also) HTPupdate - Change the offset and/or length of a data object HTPinquire - Get the DD information for a DD (i.e. tag/ref/offset/length) HTPis_special- Check if a DD id is associated with a special tag DD list functions: HTPstart - Initialize the DD list from disk (creates the DD list in memory) HTPinit - Create a new DD list (creates the DD list in memory) HTPsync - Flush the DD list to disk (syncronizes with disk) HTPend - Close the DD list to disk (syncronizes with disk too) LOCAL ROUTINES HTIfind_dd - find a specific DD in the file HTInew_dd_block - create a new (empty) DD block HTIupdate_dd - update a DD on disk HTIcount_dd - counts the dd's of a certain type in file HTIregister_tag_ref - insert a ref into the tag tree for a file HTIunregister_tag_ref - remove a ref from the tag tree for a file OLD ROUTINES HIlookup_dd - find the dd record for an element HIflush_dds - flush changed DD blocks to file HIinit_file_dds - Initialize DD blocks for a new file HIfill_file_rec - read in all of the DDs HIadd_hash_dd - add a dd to the hash table HIdel_hash_dd - remove a dd from the hash table HIfind_dd - find the dd record for an element HIcount_dd - counts the dd's of a certain type in file HInew_dd_block - create a new (empty) DD block HIupdate_dd - write an updated dd to the file HIregister_tag_ref - mark a ref as used for a tag HIunregister_tag_ref - mark a ref as un-used for a tag AUTHOR Quincey Koziol MODIFICATION HISTORY 12/20/95 - Starting writing specs & coding prototype */ #include "hdf.h" #include "hfile.h" /* Private routines */ static intn HTIfind_dd(filerec_t * file_rec, uint16 look_tag, uint16 look_ref, dd_t ** pdd, intn direction); static intn HTInew_dd_block(filerec_t * file_rec); static intn HTIupdate_dd(filerec_t * file_rec, dd_t * dd); static intn HTIcount_dd(filerec_t * file_rec, uint16 cnt_tag, uint16 cnt_ref, uintn *all_cnt, uintn *real_cnt); static intn HTIregister_tag_ref(filerec_t * file_rec, dd_t *dd); static intn HTIunregister_tag_ref(filerec_t * file_rec, dd_t *dd_ptr); /* Local definitions */ /* The initial size of a ref dynarray */ #define REF_DYNARRAY_START 64 /* The increment of a ref dynarray */ #define REF_DYNARRAY_INCR 256 /* macros to encode and decode a DD */ #define DDENCODE(p, tag,ref,offset,length) \ {UINT16ENCODE(p, tag); \ UINT16ENCODE(p, ref); \ INT32ENCODE(p, offset); \ INT32ENCODE(p, length); \ } #define DDDECODE(p, tag,ref,offset,length) \ {UINT16DECODE(p, tag); \ UINT16DECODE(p, ref); \ INT32DECODE(p, offset); \ INT32DECODE(p, length); \ } /****************************************************************************** NAME HTPstart - Initialize the DD list in memory DESCRIPTION Reads the DD blocks from disk and creates the in-memory structures for handling them. This routine should only be called once for a given file and HTPend should be called when finished with the DD list (i.e. when the file is being closed). RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPstart(filerec_t *file_rec /* IN: File record to store info in */ ) { CONSTR(FUNC, "HTPstart"); /* for HERROR */ uint8 *tbuf=NULL; /* temporary buffer */ uintn tbuf_size=0; /* temporary buffer size */ int32 end_off = 0; /* offset of the end of the file */ intn ret_value = SUCCEED; HEclear(); /* Alloc start of linked list of ddblocks. */ file_rec->ddhead = (ddblock_t *) HDmalloc(sizeof(ddblock_t)); if (file_rec->ddhead == (ddblock_t *) NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Keep the filerec_t pointer around for each ddblock */ file_rec->ddhead->frec=file_rec; /* Only one elt in linked list so head is also last. */ file_rec->ddlast = file_rec->ddhead; file_rec->ddlast->next = (ddblock_t *) NULL; file_rec->ddlast->prev = (ddblock_t *) NULL; /* The first ddblock always starts after the magic number. Set it up so that we start reading from there. */ file_rec->ddlast->myoffset = MAGICLEN; /* set offset of block in file */ file_rec->ddlast->dirty = 0; /* block does not need to be flushed */ /* Initialize the tag tree */ file_rec->tag_tree = tbbtdmake(tagcompare, sizeof(uint16), TBBT_FAST_UINT16_COMPARE); /* Initialize the DD atom group (trying 256 hash currently, feel free to change */ if(HAinit_group(DDGROUP,256)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Read in the dd's one at a time and determine the max ref in the file at the same time. */ file_rec->maxref = 0; for (;;) { ddblock_t *ddcurr; /* ptr to the current DD block */ dd_t *curr_dd_ptr; /* pointer to the current DD being read in */ uint8 ddhead[NDDS_SZ+OFFSET_SZ]; /* storage for the DD header */ uint8 *p; /* Temporary buffer pointer. */ intn ndds; /* number of DDs in a block */ intn i; /* Temporary integer */ /* Get a short-cut for the current DD block being read-in */ ddcurr=file_rec->ddlast; /* Go to the beginning of the DD block */ if (HPseek(file_rec, ddcurr->myoffset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* Read in the start of this dd block. Read data consists of ndds (number of dd's in this block) and offset (offset to the next ddblock). */ if (HP_read(file_rec, ddhead, NDDS_SZ + OFFSET_SZ) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode the numbers. */ p = &ddhead[0]; INT16DECODE(p, ddcurr->ndds); ndds = (intn)ddcurr->ndds; if (ndds <= 0) /* validity check */ HGOTO_ERROR(DFE_CORRUPT, FAIL); INT32DECODE(p, ddcurr->nextoffset); /* check if the DD block is the last thing in the file */ /* (Unlikely, but possible (I think)) */ if (ddcurr->myoffset + (NDDS_SZ + OFFSET_SZ) + (ndds * DD_SZ) > end_off) end_off = ddcurr->myoffset + (NDDS_SZ + OFFSET_SZ) + (ndds * DD_SZ); /* Now that we know how many dd's are in this block, alloc memory for the records. */ ddcurr->ddlist = (dd_t *) HDmalloc((uint32) ndds * sizeof(dd_t)); if (ddcurr->ddlist==(dd_t *)NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Allocate memory for the temporary buffer also */ if(tbuf==NULL || ((uintn)ndds*DD_SZ)>tbuf_size) { if (tbuf!=(uint8 *)NULL) HDfree(tbuf); tbuf_size=(uintn)ndds*DD_SZ; tbuf=(uint8 *)HDmalloc(tbuf_size); if (tbuf==(uint8 *)NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ /* Index of current dd in ddlist of this ddblock is 0. */ curr_dd_ptr=ddcurr->ddlist; /* Read in a chunk of dd's from the file. */ if (HP_read(file_rec, tbuf, ndds * DD_SZ) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* decode the dd's */ p = tbuf; for (i = 0; i < ndds; i++, curr_dd_ptr++) { DDDECODE(p, curr_dd_ptr->tag, curr_dd_ptr->ref, curr_dd_ptr->offset, curr_dd_ptr->length); curr_dd_ptr->blk=ddcurr; /* check if maximum ref # exceeded */ if (file_rec->maxref < curr_dd_ptr->ref) file_rec->maxref = curr_dd_ptr->ref; /* check if the data element is the last thing in the file */ if ((curr_dd_ptr->offset + curr_dd_ptr->length) > end_off) end_off = curr_dd_ptr->offset + curr_dd_ptr->length; /* Add to the tag info tree */ if(curr_dd_ptr->tag!=DFTAG_NULL) if(HTIregister_tag_ref(file_rec,curr_dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } if (ddcurr->nextoffset != 0) { /* More ddblocks in the file */ ddblock_t *ddnew; /* ptr to the new DD block */ /* extend the linked list */ ddcurr->next = ddnew = (ddblock_t *) HDmalloc((uint32) sizeof(ddblock_t)); if (ddnew == (ddblock_t *) NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ddnew->prev = ddcurr; ddnew->next = (ddblock_t *) NULL; ddnew->ddlist = (dd_t *) NULL; ddnew->myoffset = ddcurr->nextoffset; ddnew->dirty= FALSE; file_rec->ddlast = ddnew; /* Keep the filerec_t pointer around for each ddblock */ ddnew->frec=file_rec; } /* end if */ else break; } /* end for */ /* Update the DFTAG_NULL pointers */ file_rec->ddnull=NULL; file_rec->ddnull_idx=(-1); /* Update the end of the file from the DD's we have read in */ file_rec->f_end_off = end_off; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if(tbuf!=NULL) HDfree(tbuf); return ret_value; } /* end HTPstart() */ /****************************************************************************** NAME HTPinit - Create a new DD list in memory DESCRIPTION Creates a new DD list in memory for a newly created file. This routine should only be called once for a given file and HTPend should be called when finished with the DD list (i.e. when the file is being closed). RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPinit(filerec_t *file_rec, /* IN: File record to store info in */ int16 ndds /* IN: # of DDs to store in each block */ ) { CONSTR(FUNC, "HTPinit"); /* for HERROR */ ddblock_t *block; /* dd block to intialize */ uint8 ddhead[NDDS_SZ+OFFSET_SZ]; /* storage for the DD header */ uint8 *tbuf=NULL; /* temporary buffer */ uint8 *p; /* temp buffer ptr */ dd_t *list; /* list of dd */ intn ret_value = SUCCEED; HEclear(); if (file_rec == NULL || ndds<0) /* valid arguments */ HGOTO_ERROR(DFE_ARGS, FAIL); /* 'reasonablize' the value of ndds. 0 means use default */ if (0 == ndds) ndds = DEF_NDDS; else if (ndds < MIN_NDDS) ndds = MIN_NDDS; /* allocate the dd block in memory and initialize it */ file_rec->ddhead = (ddblock_t *) HDmalloc(sizeof(ddblock_t)); if (file_rec->ddhead == (ddblock_t *) NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); block = file_rec->ddlast = file_rec->ddhead; block->prev = (ddblock_t *) NULL; block->ndds = ndds; block->next = (ddblock_t *) NULL; block->nextoffset = 0; block->myoffset = MAGICLEN; block->dirty = FALSE; /* Keep the filerec_t pointer around for each ddblock */ block->frec=file_rec; /* write first dd block header to file */ p = &ddhead[0]; INT16ENCODE(p, block->ndds); INT32ENCODE(p, (int32) 0); if (HP_write(file_rec, ddhead, NDDS_SZ + OFFSET_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* allocate and initialize dd list */ list = block->ddlist = (dd_t *) HDmalloc((uint32) ndds * sizeof(dd_t)); if (list == (dd_t *) NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Fill the first memory DD block with NIL dd's */ list[0].tag = DFTAG_NULL; list[0].ref = DFREF_NONE; list[0].length = INVALID_LENGTH; list[0].offset = INVALID_OFFSET; list[0].blk = block; HDmemfill(&list[1],&list[0],sizeof(dd_t),(uint32)(ndds-1)); tbuf=(uint8 *)HDmalloc(ndds*DD_SZ); if (tbuf == NULL) /* check for DD list */ HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Fill the first disk DD block with NIL dd's */ p = tbuf; DDENCODE(p, (uint16) DFTAG_NULL, (uint16) DFREF_NONE, (int32) INVALID_LENGTH, (int32) INVALID_OFFSET); HDmemfill(p,tbuf,DD_SZ,(uint32)(ndds-1)); /* Write the NIL dd's out into the DD block on disk */ if (HP_write(file_rec, tbuf, ndds * DD_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* Update the DFTAG_NULL pointers */ file_rec->ddnull=block; file_rec->ddnull_idx=(-1); /* set the end of the file currently to the end of the first DD block */ file_rec->f_end_off = block->myoffset + (NDDS_SZ + OFFSET_SZ) + (block->ndds * DD_SZ); /* no dd's yet, so maximum ref is 0 */ file_rec->maxref = 0; /* Initialize the tag tree */ file_rec->tag_tree = tbbtdmake(tagcompare, sizeof(uint16), TBBT_FAST_UINT16_COMPARE); /* Initialize the DD atom group (trying 256 hash currently, feel free to change */ if(HAinit_group(DDGROUP,256)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ HDfree(tbuf); return ret_value; } /* end HTPinit() */ /****************************************************************************** NAME HTPsync - Flush the DD list in memory DESCRIPTION Syncronizes the in-memory copy of the DD list with the copy on disk by writing out the DD blocks which have changed to disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPsync(filerec_t *file_rec /* IN: File record to store info in */ ) { CONSTR(FUNC, "HTPsync"); /* for HERROR */ ddblock_t *block; /* dd block to intialize */ uint8 ddhead[NDDS_SZ+OFFSET_SZ]; /* storage for the DD header */ uint8 *tbuf=NULL; /* temporary buffer */ uintn tbuf_size=0; /* temporary buffer size */ uint8 *p; /* temp buffer ptr */ dd_t *list; /* list of dd */ int16 ndds; /* # of DDs per block */ intn i; /* temp ints */ intn ret_value = SUCCEED; HEclear(); block = file_rec->ddhead; if (block == NULL) /* check for DD list */ HGOTO_ERROR(DFE_BADDDLIST, FAIL); while (block != NULL) { /* check all the blocks for flushing */ if (block->dirty == TRUE) { /* flush this block? */ if (HPseek(file_rec, block->myoffset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* write dd block header to file */ p = ddhead; INT16ENCODE(p, block->ndds); INT32ENCODE(p, block->nextoffset); if (HP_write(file_rec, ddhead, NDDS_SZ + OFFSET_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* n is the maximum number of dd's in tbuf */ ndds = block->ndds; /* Allocate memory for the temporary buffer also */ if(tbuf==NULL || ((uintn)ndds*DD_SZ)>tbuf_size) { if (tbuf!=(uint8 *)NULL) HDfree(tbuf); tbuf_size=(uintn)ndds*DD_SZ; tbuf=(uint8 *)HDmalloc(tbuf_size); if (tbuf==(uint8 *)NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ /* write dd list to file */ list = &block->ddlist[0]; /* start at the first DD, go from there */ p = tbuf; for (i = 0; i < ndds; i++, list++) DDENCODE(p, list->tag, list->ref, list->offset, list->length); if (HP_write(file_rec, tbuf, ndds * DD_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); block->dirty = FALSE; /* block has been flushed */ } /* end if */ block = block->next; /* advance to next block for file */ } /* end while */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if (tbuf!=(uint8 *)NULL) HDfree(tbuf); return ret_value; } /* end HTPsync() */ /****************************************************************************** NAME HTPend - Terminate the DD list in memory DESCRIPTION Terminates access to the DD list in memory, writing the DD blocks out to the disk (if they've changed). After this routine is called, no further access to tag/refs (or essentially any other HDF objects) can be performed on the file. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPend(filerec_t *file_rec /* IN: File record to store info in */ ) { CONSTR(FUNC, "HTPend"); /* for HERROR */ ddblock_t *bl, *next; /* current ddblock and next ddblock pointers. for freeing ddblock linked list */ intn ret_value = SUCCEED; HEclear(); if(HTPsync(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); for (bl = file_rec->ddhead; bl!=NULL; bl = next) { next = bl->next; if (bl->ddlist) HDfree((VOIDP) bl->ddlist); HDfree((VOIDP) bl); } /* Chuck the tag info tree too */ tbbtdfree(file_rec->tag_tree,tagdestroynode,NULL); /* Shutdown the DD atom group */ if(HAdestroy_group(DDGROUP)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); file_rec->ddhead = (ddblock_t *) NULL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HTPend() */ /****************************************************************************** NAME HTPcreate - Create (and attach to) a tag/ref pair DESCRIPTION Creates a new tag/ref pair in memory and inserts the tag/ref pair into the DD list to be written out to disk. This routine returns a DD id which can be used in the other tag/ref routines to modify the DD. RETURNS Returns DD id if successful and FAIL otherwise *******************************************************************************/ atom_t HTPcreate(filerec_t *file_rec, /* IN: File record to store info in */ uint16 tag, /* IN: Tag to create */ uint16 ref /* IN: ref to create */ ) { CONSTR(FUNC, "HTPcreate"); /* for HERROR */ dd_t *dd_ptr=NULL; /* ptr to dd created */ atom_t ret_value=SUCCEED; HEclear(); if(file_rec==NULL || (tag==DFTAG_NULL || tag==DFTAG_WILDCARD) || ref==DFREF_WILDCARD) HGOTO_ERROR(DFE_ARGS, FAIL); if(HTIfind_dd(file_rec,(uint16)DFTAG_NULL,(uint16)DFTAG_WILDCARD, &dd_ptr,DF_FORWARD)==FAIL) { if (HTInew_dd_block(file_rec) == FAIL) { HGOTO_ERROR(DFE_NOFREEDD, FAIL); } /* end if */ else dd_ptr=&file_rec->ddlast->ddlist[0]; } /* end if */ /* Insert DD information into the DD list in memory */ dd_ptr->tag=tag; dd_ptr->ref=ref; /* the following assures object defintion in DD list without data written for object. */ dd_ptr->offset=INVALID_OFFSET; dd_ptr->length=INVALID_LENGTH; /* dd_ptr->blk should already be correctly set */ /* Update the disk, etc. */ if(HTIupdate_dd(file_rec,dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Mark off the ref # as 'used' in the tag tree & add to dynarray of refs */ if(HTIregister_tag_ref(file_rec,dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Get the atom to return */ if((ret_value=HAregister_atom(DDGROUP,dd_ptr))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPcreate() */ /****************************************************************************** NAME HTPselect - Attach to an existing tag/ref pair DESCRIPTION Attaches to an existing tag/ref pair. This routine returns a DD id which can be used in the other tag/ref routines to modify the DD. RETURNS Returns DD id if successful and FAIL otherwise *******************************************************************************/ atom_t HTPselect(filerec_t *file_rec, /* IN: File record to store info in */ uint16 tag, /* IN: Tag to select */ uint16 ref /* IN: ref to select */ ) { CONSTR(FUNC, "HTPselect"); /* for HERROR */ dd_t *dd_ptr; /* ptr to the DD info for the tag/ref */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ tag_info *tinfo_ptr; /* pointer to the info for a tag */ uint16 base_tag=BASETAG(tag); /* corresponding base tag (if the tag is special) */ atom_t ret_value=SUCCEED; HEclear(); if(file_rec==NULL || (tag==DFTAG_NULL || tag==DFTAG_WILDCARD) || ref==DFREF_WILDCARD) HGOTO_ERROR(DFE_ARGS, FAIL); /* Try to find the regular tag in the tag info tree */ if((tip_ptr=(tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) HGOTO_DONE(FAIL); /* Not an error, we just didn't find the object */ tinfo_ptr=*tip_ptr; /* get the pointer to the tag info */ if((dd_ptr=DAget_elem(tinfo_ptr->d,(intn)ref))==NULL) HGOTO_DONE(FAIL); /* Not an error, we just didn't find the object */ /* Get the atom to return */ if((ret_value=HAregister_atom(DDGROUP,dd_ptr))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPselect() */ /****************************************************************************** NAME HTPendaccess - End access to an existing tag/ref pair DESCRIPTION Ends access to an existing tag/ref pair. Any further access to the tag/ref pair may result in incorrect information being recorded about the DD in memory or on disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPendaccess(atom_t ddid /* IN: DD id to end access to */ ) { #ifdef LATER CONSTR(FUNC, "HTPendaccess"); /* for HERROR */ #endif /* LATER */ int32 ret_value=SUCCEED; /* Chuck the atom */ if(HAremove_atom(ddid)==NULL) HGOTO_DONE(FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPendaccess() */ /****************************************************************************** NAME HTPdelete - Delete an existing tag/ref pair DESCRIPTION Deletes a tag/ref from the file. Also ends access to the tag/ref pair. Any further access to the tag/ref pair may result in incorrect information being recorded about the DD in memory or on disk. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPdelete(atom_t ddid /* IN: DD id to delete */ ) { CONSTR(FUNC, "HTPdelete"); /* for HERROR */ dd_t *dd_ptr; /* ptr to the DD info for the tag/ref */ filerec_t * file_rec; int32 ret_value=SUCCEED; HEclear(); /* Retrieve the atom's object, so we can delete the tag/ref */ if((dd_ptr=HAatom_object(ddid))==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Grab this information, because the global dd_info will be deleted in HTIunregister_tag_ref */ file_rec=dd_ptr->blk->frec; /* Since we don't know where we are, reset the DFTAG_NULL pointers */ file_rec->ddnull=NULL; file_rec->ddnull_idx=(-1); if (HPfreediskblock(file_rec,dd_ptr->offset,dd_ptr->length) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Update the disk, etc. */ if(HTIupdate_dd(file_rec,dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Remove the ref # as 'used' in the tag tree & delete from dynarray of refs */ if(HTIunregister_tag_ref(file_rec,dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Destroy everything */ if(HAremove_atom(ddid)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPdelete() */ /****************************************************************************** NAME HTPupdate - Change the offset or length of an existing tag/ref pair DESCRIPTION Updates a tag/ref in the file, allowing the length and/or offset to be modified. Note: a value of '-2' for both 'length' and 'offset' are used to indicate that the length or offset (respectively) is unchanged and should remain the same. Kind of ugly but works for now. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPupdate(atom_t ddid, /* IN: DD id to update */ int32 new_off, /* IN: new offset for DD */ int32 new_len /* IN: new length for DD */ ) { CONSTR(FUNC, "HTPupdate"); /* for HERROR */ dd_t *dd_ptr = NULL; /* ptr to the DD info for the tag/ref */ int32 dont_change = -2; /* initialize to '-2' */ int32 ret_value = SUCCEED; HEclear(); /* Retrieve the atom's object, so we can update the DD */ if((dd_ptr=HAatom_object(ddid))==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Update the tag/ref in memory */ if(new_len != dont_change) dd_ptr->length=new_len; if(new_off != dont_change) dd_ptr->offset=new_off; /* Update the disk, etc. */ if(HTIupdate_dd(dd_ptr->blk->frec,dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPupdate() */ /****************************************************************************** NAME HTPinquire - Get the DD information for a DD (i.e. tag/ref/offset/length) DESCRIPTION Get the DD information for a DD id from the DD block. Passing NULL for any parameter does not try to update that parameter. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HTPinquire(atom_t ddid, /* IN: DD id to inquire about */ uint16 *tag, /* IN: tag of DD */ uint16 *ref, /* IN: ref of DD */ int32 *off, /* IN: offset of DD */ int32 *len /* IN: length of DD */ ) { CONSTR(FUNC, "HTPinquire"); /* for HERROR */ dd_t *dd_ptr; /* ptr to the DD info for the tag/ref */ intn ret_value=SUCCEED; HEclear(); /* Retrieve the atom's object, so we can update the DD */ if((dd_ptr=HAatom_object(ddid))==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the information requested */ if(tag!=NULL) *tag=dd_ptr->tag; if(ref!=NULL) *ref=dd_ptr->ref; if(off!=NULL) *off=dd_ptr->offset; if(len!=NULL) *len=dd_ptr->length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPinquire() */ /****************************************************************************** NAME HTPis_special - Check if a DD id is associated with a special tag DESCRIPTION Checks if the tag for the DD id is a special tag. RETURNS Returns TRUE(1)/FALSE(0) *******************************************************************************/ intn HTPis_special(atom_t ddid /* IN: DD id to inquire about */ ) { CONSTR(FUNC, "HTPis_special"); /* for HERROR */ dd_t *dd_ptr; /* ptr to the DD info for the tag/ref */ int32 ret_value=FAIL; HEclear(); /* Retrieve the atom's object, so we can update the DD */ if((dd_ptr=HAatom_object(ddid))==NULL) HGOTO_ERROR(DFE_ARGS, FALSE); /* Get the information requested */ if(SPECIALTAG(dd_ptr->tag)) ret_value=TRUE; else ret_value=FALSE; done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPis_special() */ /****************************************************************************** NAME Hdupdd - Duplicate a data descriptor DESCRIPTION Duplicates a data descriptor so that the new tag/ref points to the same data element pointed to by the old tag/ref. Return FAIL if the given tag/ref are already in use. RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise *******************************************************************************/ intn Hdupdd(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag, /* IN: Tag of new tag/ref */ uint16 ref, /* IN: Ref of new tag/ref */ uint16 old_tag, /* IN: Tag of old tag/ref */ uint16 old_ref /* IN: Ref of old tag/ref */ ) { CONSTR(FUNC, "Hdupdd"); /* for HERROR */ filerec_t *file_rec; /* file record */ atom_t old_dd; /* The DD id for the old DD */ atom_t new_dd; /* The DD id for the new DD */ int32 old_len; /* The length of the old DD */ int32 old_off; /* The offset of the old DD */ intn ret_value=SUCCEED; /* clear error stack and check validity of file id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Attach to the old DD in the file */ if((old_dd=HTPselect(file_rec,old_tag,old_ref))==FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); /* Create the new DD in the file */ if((new_dd=HTPcreate(file_rec,tag,ref))==FAIL) HGOTO_ERROR(DFE_DUPDD, FAIL); /* Retrieve the old offset & length */ if(HTPinquire(old_dd,NULL,NULL,&old_off,&old_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Set the new DD's offset & length to the same as the old DD */ if(HTPupdate(new_dd,old_off,old_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* End access to the old & new DDs */ if(HTPendaccess(old_dd)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(HTPendaccess(new_dd)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hdupdd() */ /****************************************************************************** NAME Hnumber - Determine the number of objects of a given type DESCRIPTION Determine how many objects of the given tag are in the file. tag may be set to DFTAG_WILDCARD to get back the total number of objects in the file. Note, a return value of zero is not a fail condition. RETURNS the number of objects of type 'tag' else FAIL *******************************************************************************/ int32 Hnumber(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag /* IN: Tag to count */ ) { CONSTR(FUNC, "Hnumber"); uintn all_cnt; uintn real_cnt; filerec_t *file_rec; /* file record */ int32 ret_value=SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(file_id); HEclear(); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Go count the items with that tag */ if (HTIcount_dd(file_rec, tag, DFREF_WILDCARD, &all_cnt, &real_cnt) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); ret_value = (int32) real_cnt; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hnumber() */ /****************************************************************************** NAME Hnewref - Returns a ref that is guaranteed to be unique in the file DESCRIPTION Returns a ref number that can be used with any tag to produce a unique tag/ref. Successive calls to Hnewref will generate a strictly increasing sequence until the highest possible ref had been returned, then Hnewref will return unused ref's starting from 1. RETURNS returns the ref number, 0 otherwise *******************************************************************************/ uint16 Hnewref(int32 file_id /* IN: File ID the tag/refs are in */) { CONSTR(FUNC, "Hnewref"); filerec_t *file_rec; /* file record */ uint16 ref; /* the new ref */ uint16 ret_value = DFREF_NONE; uint32 i_ref; /* index for FOR loop */ /* clear error stack and check validity of file record id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, 0); /* if maxref of this file is still below the maximum, just return next number */ if (file_rec->maxref < MAX_REF) ret_value = ++(file_rec->maxref); else { /* otherwise, search for an empty ref */ /* incredibly slow but unlikely situation */ /* This could possibly get replaced with some sort of bit-vector manipulation -QAK */ for (i_ref = 1; i_ref <= (uint32)MAX_REF; i_ref++) { dd_t *dd_ptr=NULL; ref = (uint16)i_ref; if (HTIfind_dd(file_rec, (uint16) DFTAG_WILDCARD, ref, &dd_ptr, DF_FORWARD) == FAIL) { ret_value = ref; /* set return value to ref found */ break; /* break out of loop */ } /* end if */ } /* end for */ } /* end else */ done: if(ret_value == DFREF_NONE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hnewref() */ /****************************************************************************** NAME Htagnewref - returns a ref that is unique in the file for a given tag DESCRIPTION Returns a ref number that can be used with any tag to produce a unique tag/ref. Successive calls to Hnewref will generate a strictly increasing sequence until the highest possible ref had been returned, then Hnewref will return unused ref's starting from 1. RETURNS returns the ref number, 0 otherwise *******************************************************************************/ uint16 Htagnewref(int32 file_id,/* IN: File ID the tag/refs are in */ uint16 tag /* IN: Tag to search for a new ref for */) { CONSTR(FUNC, "Htagnewref"); filerec_t *file_rec; /* file record */ tag_info *tinfo_ptr; /* pointer to the info for a tag */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ uint16 base_tag = BASETAG(tag); /* corresponding base tag (if the tag is special) */ uint16 ret_value = DFREF_NONE; /* clear error stack and check validity of file record id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, 0); if((tip_ptr = (tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) ret_value = 1; /* The first available ref */ else { /* found an existing tag */ tinfo_ptr = *tip_ptr; /* get the pointer to the tag info */ if((ret_value = (uint16)bv_find(tinfo_ptr->b,-1,BV_FALSE)) == (uint16)FAIL) HGOTO_ERROR(DFE_BVFIND, 0); } /* end else */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Htagnewref() */ /****************************************************************************** NAME Hfind - locate the next object of a search in an HDF file DESCRIPTION Searches for the `next' DD that fits the search tag/ref. Wildcards apply. If origin is DF_FORWARD, search from current position forwards in the file, otherwise DF_BACKWARD searches backward from the current position in the file. If *find_tag and *find_ref are both set to 0, this indicates the beginning of a search, and the search will start from the beginning of the file if the direction is DF_FORWARD and from the and of the file if the direction is DF_BACKWARD. RETURNS returns SUCCEED (0) if successful and FAIL (-1) otherwise *******************************************************************************/ intn Hfind(int32 file_id, /* IN: file ID to search in */ uint16 search_tag, /* IN: the tag to search for (can be DFTAG_WILDCARD) */ uint16 search_ref, /* IN: ref to search for (can be DFREF_WILDCARD) */ uint16 *find_tag, /* IN: if (*find_tag==0) and (*find_ref==0) then start search */ /* OUT: tag matching the search tag */ uint16 *find_ref, /* IN: if (*find_tag==0) and (*find_ref==0) then start search */ /* OUT: ref matching the search ref */ int32 *find_offset, /* OUT: offset of the data element found */ int32 *find_length, /* OUT: length of the data element found */ intn direction /* IN: Direction to search in: */ /* DF_FORWARD searches forward from the current location */ /* DF_BACKWARD searches backward from the current location */ ) { CONSTR(FUNC, "Hfind"); /* for HERROR */ filerec_t *file_rec; /* file record */ dd_t *dd_ptr; /* ptr to current ddlist searched */ intn ret_value = SUCCEED; /* clear error stack and check validity of the access id */ HEclear(); if (file_id == FAIL || /* search_ref > MAX_REF || */ find_tag == NULL || find_ref == NULL || find_offset == NULL || find_length == NULL || (direction != DF_FORWARD && direction != DF_BACKWARD)) HGOTO_ERROR(DFE_ARGS, FAIL); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); dd_ptr = NULL; if (*find_ref != 0 || *find_tag != 0) { /* continue a search */ /* get the block and index of the last tag/ref found, to continue */ if (HTIfind_dd(file_rec, *find_tag, *find_ref, &dd_ptr, direction) == FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); } /* end else */ /* Go get the next match in the given direction */ if (HTIfind_dd(file_rec, search_tag, search_ref, &dd_ptr, direction) == FAIL) HGOTO_DONE(FAIL); /* Not an error, we just didn't find the object */ *find_tag = dd_ptr->tag; *find_ref = dd_ptr->ref; *find_offset = dd_ptr->offset; *find_length = dd_ptr->length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hfind() */ /****************************************************************************** NAME HDcheck_tagref - Checks to see if tag/ref is in DD list i.e. created already DESCRIPTION Routine checks to see if tag/ref exists in the DD list i.e. has been created. RETURNS 0-> tag/ref does not exist 1-> tag/ref exists -1-> function failed *******************************************************************************/ intn HDcheck_tagref(int32 file_id, /* IN: id of file */ uint16 tag, /* IN: Tag to check */ uint16 ref /* IN: ref to check */) { CONSTR(FUNC, "HDcheck_tagref"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ dd_t *dd_ptr = NULL; /* ptr to the DD info for the tag/ref */ tag_info **tip_ptr = NULL; /* ptr to the ptr to the info for a tag */ tag_info *tinfo_ptr = NULL; /* pointer to the info for a tag */ uint16 base_tag; /* corresponding base tag (if the tag is special) */ intn ret_value = 1; /* default tag/ref exists */ /* clear error stack */ HEclear(); /* check args */ file_rec = HAatom_object(file_id); if(file_rec == NULL || (tag == DFTAG_NULL || tag==DFTAG_WILDCARD) || ref == DFREF_WILDCARD) HGOTO_ERROR(DFE_ARGS, -1); base_tag = BASETAG(tag); /* Try to find the regular tag in the tag info tree */ if((tip_ptr = (tag_info **)tbbtdfind(file_rec->tag_tree, (VOIDP)&base_tag,NULL)) == NULL) HGOTO_DONE(0); /* Not an error, we just didn't find the object */ tinfo_ptr = *tip_ptr; /* get the pointer to the tag info */ if((dd_ptr = DAget_elem(tinfo_ptr->d,(intn)ref)) == NULL) HGOTO_DONE(0); /* Not an error, we just didn't find the object */ /* found if we reach here*/ ret_value = 1; done: if(ret_value == -1) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDcheck_tagref() */ /************************************************************************ NAME HDreuse_tagref -- reuse a data descriptor preserving tag/ref(assumes DD exists) DESCRIPTION Reuses the data descriptor of tag/ref in the dd list of the file. The tag/ref must already exist in the DD list. This routine is unsafe and may leave a file in a condition that is not usable by some routines. Use with care. Not valid for special elments right now. Used for allowing the data to change and move somewhere else in the file for non-special elements. Must be carefully if apply to higher-level objects like GR's and SDS that are comprised of other objects. Usefull when re-writing simple elements whose size changes while preserving the original tag/ref of the element since other elements might refer to this element by tag/ref e.g. in a Vgroup. NOTE: this routine is similiar to Hdeldd() but with a different name RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise ************************************************************************/ intn HDreuse_tagref(int32 file_id, /* IN: id of file */ uint16 tag, /* IN: tag of data descriptor to reuse */ uint16 ref /* IN: ref of data descriptor to reuse */ ) { CONSTR(FUNC, "HDreusedd"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ atom_t ddid; /* ID for the DD */ intn ret_value = SUCCEED; /* clear error stack and check validity of file record id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec) || tag == DFTAG_WILDCARD || ref == DFREF_WILDCARD) HGOTO_ERROR(DFE_ARGS, FAIL); /* look for the dd to reuse */ if ((ddid = HTPselect(file_rec, tag, ref)) == FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); /* could reuse space in file by calling HPfreediskblock() routine but it does nothing for now. For later. */ /* if (HPfreediskblock(file_rec,dd_ptr->offset,dd_ptr->length) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); */ /* reuse the dd by setting the offset and length to INVALID_OFFSET and INVALID_LENGTH*/ if (HTPupdate(ddid,INVALID_OFFSET, INVALID_LENGTH) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* We leave the ref # as 'used' in the tag tree and dont' delete from dynarray of refs. */ /* Remove DD from atom group since it should get re-created in Hstartaccess(). This could be handled better if Hstartaccess() was revamped to not create new access records for existing tag/ref pairs as well as revamping a few other routines. */ if(HAremove_atom(ddid)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HDreuse_tagref */ /*-------------------------------------------------------------------------- NAME Hdeldd -- delete a data descriptor USAGE intn Hdeldd(file_id, tag, ref) int32 file_id; IN: id of file int16 tag; IN: tag of data descriptor to delete int16 ref; IN: ref of data descriptor to delete RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Deletes a data descriptor of tag/ref from the dd list of the file. This routine is unsafe and may leave a file in a condition that is not usable by some routines. Use with care. For example, if this element is contained in a Vgroup, that group will *NOT* get updated to reflect that this element has been deleted. --------------------------------------------------------------------------*/ intn Hdeldd(int32 file_id, uint16 tag, uint16 ref) { CONSTR(FUNC, "Hdeldd"); /* for HERROR */ filerec_t *file_rec; /* file record */ atom_t ddid; /* ID for the DD */ intn ret_value = SUCCEED; /* clear error stack and check validity of file record id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec) || tag == DFTAG_WILDCARD || ref == DFREF_WILDCARD) HGOTO_ERROR(DFE_ARGS, FAIL); /* look for the dd to delete */ if ((ddid=HTPselect(file_rec, tag, ref)) == FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); /* delete the dd */ if (HTPdelete(ddid) == FAIL) HGOTO_ERROR(DFE_CANTDELDD, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hdeldd */ #ifdef DEBUGGING /*-------------------------------------------------------------------------- NAME HTPdump_dds -- Dump out the dd information for a file USAGE intn HTPdump_dds(file_id) int32 file_id; IN: file ID of HDF file to dump FILE *fout; IN: file stream to output to RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Prints out all the information (that you could _ever_ want to know) about the dd blocks and dd list for a file. --------------------------------------------------------------------------*/ intn HTPdump_dds(int32 file_id, FILE *fout) { CONSTR(FUNC, "HTPdump_dds"); filerec_t *file_rec; /* file record */ int ret_value = SUCCEED; /* clear error stack and check validity of file record id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Print out each DD block */ { ddblock_t *block=file_rec->ddhead; /* dd block currently dumping */ intn blk_count=0; /* Count of the number of blocks we've dumped */ intn i; /* local counting variable */ while(block!=NULL) { dd_t *curr_dd; /* current dd to dump */ fprintf(fout,"DD block %d\n",blk_count); fprintf(fout,"# of DDs: %d, next block offset=%ld\n",(int)block->ndds,(long)block->nextoffset); fprintf(fout,"DD block offset: %ld, dirty?=%d\n",(long)block->myoffset,(int)block->dirty); for(i=0, curr_dd=block->ddlist; indds; i++,curr_dd++) fprintf(fout,"%5d: tag/ref=(%5u/%5u), offset=%7ld, length=%7ld\n",(int)i,(unsigned)curr_dd->tag,(unsigned)curr_dd->ref,(long)curr_dd->offset,(long)curr_dd->length); blk_count++; block=block->next; } /* end while */ } /* End of ddblock dumping code */ /* Dump the tag tree */ { VOIDP *t; if (NULL != (t = (VOIDP *) tbbtfirst((TBBT_NODE *) * (file_rec->tag_tree)))) { /* found at least one node in the tree */ tag_info *tinfo_ptr; /* pointer to the info for a tag */ do { /* dump each node */ intn size; /* # of elements in the array */ intn i; /* local counting variable */ tinfo_ptr = (tag_info *) * t; /* get actual pointer to the tag info */ fprintf(fout,"Tag: %u\n",tinfo_ptr->tag); /* Dump the ref # dynarray */ if((size=DAsize_array(tinfo_ptr->d))!=FAIL) { VOIDP elem; fprintf(fout,"dynarray size=%d\n",size); for(i=0; id,i); if(elem!=NULL) fprintf(fout,"dynarray[%d]=%p\n",i,elem); } /* end for */ } /* end if */ /* Dump the ref # bit-vector */ if((size=bv_size(tinfo_ptr->b))!=FAIL) { intn bit; fprintf(fout,"bitvector size=%d\n",size); fprintf(fout,"bits set:"); for(i=0; ib,i); if(bit!=BV_FALSE) fprintf(fout,"%5d",i); } /* end for */ fprintf(fout,"\n"); } /* end if */ /* Get the next tag node */ t = (VOIDP *) tbbtnext((TBBT_NODE *) t); } while(t!=NULL); } else fprintf(fout,"No nodes in tag tree\n"); } /* End of tag node dumping */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTPdump_dds */ #endif /* DEBUGGING */ /* Private, static, internal routines. Do not call from outside this module */ /*-------------------------------------------------------------------------- NAME HTInew_dd_block -- create a new (empty) DD block USAGE intn HTInew_dd_block(file_rec) filerec_t * file_rec; IN: file record RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Create a new DDblock in the file. Update the previously last DDblock so that its offset points to the newly created one. --------------------------------------------------------------------------*/ static intn HTInew_dd_block(filerec_t * file_rec) { CONSTR(FUNC, "HTInew_dd_block"); /* for HERROR */ int32 nextoffset; /* offset of new ddblock */ uint8 ddhead[NDDS_SZ+OFFSET_SZ]; /* storage for the DD header */ int32 offset; /* offset to the offset of new ddblock */ ddblock_t *block; /* Block the DD is located in */ dd_t *list; /* dd list array of new dd block */ uint8 *p; /* Temporary buffer pointer. */ intn ndds; /* number of ndds in new DD block */ intn ret_value = SUCCEED; HEclear(); /* check integrity of file record */ if (file_rec->ddhead==NULL || file_rec->ddlast==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* allocate new dd block record and fill in data */ if ((block = (ddblock_t *) HDmalloc(sizeof(ddblock_t))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); block->ndds = (int16)(ndds = (intn)file_rec->ddhead->ndds); /* snarf from first block */ block->next = (ddblock_t *) NULL; block->nextoffset = 0; /* Keep the filerec_t pointer around for each ddblock */ block->frec=file_rec; /* get room for the new DD block in the file */ if ((nextoffset = HPgetdiskblock(file_rec, NDDS_SZ + OFFSET_SZ + (ndds * DD_SZ), TRUE)) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); block->myoffset = nextoffset; /* set offset of new block */ block->dirty = (uintn)file_rec->cache; /* if we're caching, wait to write DD block */ if (file_rec->cache) /* if we are caching, wait to update previous DD block */ file_rec->dirty |= DDLIST_DIRTY; /* indicate file needs to be flushed */ else { p = ddhead; INT16ENCODE(p, block->ndds); INT32ENCODE(p, (int32) 0); if (HP_write(file_rec, ddhead, NDDS_SZ + OFFSET_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end else */ /* set up the dd list of this dd block and put it in the file after the dd block header */ list = block->ddlist = (dd_t *) HDmalloc((uint32) ndds * sizeof(dd_t)); if (list == (dd_t *) NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Fill the block with NIL tags */ list[0].tag = DFTAG_NULL; list[0].ref = DFREF_NONE; list[0].length = INVALID_LENGTH; list[0].offset = INVALID_OFFSET; list[0].blk = block; HDmemfill(&list[1],&list[0],sizeof(dd_t),(uint32)ndds-1); if (file_rec->cache!=0) { /* if we are caching, wait to update previous DD block */ uint8 *tbuf; /* temporary buffer */ tbuf=(uint8 *)HDmalloc(ndds*DD_SZ); if(tbuf==(uint8 *)NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); p = tbuf; DDENCODE(p, (uint16) DFTAG_NULL, (uint16) DFREF_NONE, (int32) INVALID_LENGTH, (int32) INVALID_OFFSET); HDmemfill(p,tbuf,DD_SZ,(uint32)(ndds-1)); if (HP_write(file_rec, tbuf, ndds * DD_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); HDfree(tbuf); } /* end if */ /* update previously last ddblock to point to this new dd block */ file_rec->ddlast->nextoffset = nextoffset; block->prev = file_rec->ddlast; file_rec->ddlast->next = block; if (file_rec->cache) { /* if we are caching, wait to update previous DD block */ file_rec->dirty |= DDLIST_DIRTY; /* indicate file needs to be flushed */ file_rec->ddlast->dirty = TRUE; /* indicate this block needs to be flushed */ } /* end if */ else { if (file_rec->ddhead == file_rec->ddlast) offset = MAGICLEN + NDDS_SZ; else offset = file_rec->ddlast->prev->nextoffset + NDDS_SZ; p = ddhead; INT32ENCODE(p, nextoffset); if (HPseek(file_rec, offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, ddhead, OFFSET_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end else */ /* update file record */ file_rec->ddlast = block; /* set the end of the file to the end of the current DD block */ file_rec->f_end_off = block->myoffset + (NDDS_SZ + OFFSET_SZ) + (block->ndds * DD_SZ); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTInew_dd_block */ /*-------------------------------------------------------------------------- NAME HTIfind_dd -- find a specific DD in the file USAGE int HTIfind_dd(file_rec, tag, ref, dd_ptr, direction) filerec_t * file_rec; IN: file record to search uint16 tag; IN: tag of element to find uint16 ref; IN: ref of element to find dd_t ** pdd; OUT: pointer to the DD in memory intn direction; IN: direction to search (DF_FORWARD / DF_BACKWARD) RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Find the dd with tag and ref, by returning the block where the dd resides and the index of the dd in the ddblock ddlist. --------------------------------------------------------------------------*/ static intn HTIfind_dd(filerec_t * file_rec, uint16 look_tag, uint16 look_ref, dd_t ** pdd, intn direction) { #ifdef LATER CONSTR(FUNC, "HTIfind_dd"); /* for HERROR */ #endif /* LATER */ intn idx; /* index into ddlist of current dd searched */ ddblock_t *block; /* ptr to current ddblock searched */ dd_t *list; /* ptr to current ddlist searched */ uint16 special_tag; /* corresponding special tag */ intn ret_value = SUCCEED; HEclear(); /* Create the special version of the tag to search for also */ special_tag = MKSPECIALTAG(look_tag); if(look_tag!=DFTAG_WILDCARD && look_ref!=DFTAG_WILDCARD) { /* easy to optimize case, looking for a specific tag/ref pair */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ tag_info *tinfo_ptr; /* pointer to the info for a tag */ dd_t *dd_ptr; /* ptr to the DD info for a tag/ref */ uint16 base_tag=BASETAG(look_tag); /* corresponding base tag (if the tag is special) */ /* Try to find the regular tag in the tag info tree */ if((tip_ptr=(tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) HGOTO_DONE(FAIL); /* Not an error, we just didn't find the object */ tinfo_ptr=*tip_ptr; /* get the pointer to the tag info */ if((dd_ptr=DAget_elem(tinfo_ptr->d,(intn)look_ref))==NULL) HGOTO_DONE(FAIL); /* Not an error, we just didn't find the object */ *pdd=dd_ptr; HGOTO_DONE(SUCCEED); } /* end if */ else { /* handle wildcards, etc. */ if (direction == DF_FORWARD) { /* search forward through the DD list */ if(*pdd==NULL) { block=file_rec->ddhead; idx=0; } /* end if */ else { block=(*pdd)->blk; idx=((*pdd)-&block->ddlist[0])+1; } /* end else */ if(look_tag==DFTAG_WILDCARD && look_ref==DFREF_WILDCARD) { /* Both tag & ref are wildcards */ for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL) continue; /* we have a match !! (anything matches! :-) */ *pdd=list; HGOTO_DONE(SUCCEED); } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end if */ else if(look_tag==DFTAG_NULL && look_ref==DFTAG_WILDCARD) { /* special case for quick lookup of empty DD's */ if(file_rec->ddnull==NULL) block=file_rec->ddhead; else block=file_rec->ddnull; if(file_rec->ddnull_idx<0) idx=0; else idx=file_rec->ddnull_idx+1; for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL) { /* we have a match !! */ *pdd=list; /* Update the DFTAG_NULL pointers */ file_rec->ddnull=block; file_rec->ddnull_idx=idx; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end if */ else if(look_tag==DFTAG_WILDCARD) { /* tag is wildcard */ for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL) continue; if (list->ref == look_ref) { /* we have a match !! */ *pdd=list; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end if */ else if(look_ref==DFREF_WILDCARD) { /* ref is wildcard */ #ifndef OLD_WAY if(special_tag==DFTAG_NULL) { /* Change this to lookup the next used ref # in the bitvector or dynarray -QAK */ for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL && look_tag != DFTAG_NULL) continue; if (list->tag == look_tag) { /* we have a match !! */ *pdd=list; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end if */ else { for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL && look_tag != DFTAG_NULL) continue; if (list->tag == look_tag || list->tag == special_tag) { /* we have a match !! */ *pdd=list; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end else */ #else /* OLD_WAY */ /* Hmm, not working yet?... -QAK */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ tag_info *tinfo_ptr; /* pointer to the info for a tag */ dd_t *dd_ptr; /* ptr to the DD info for a tag/ref */ uint16 base_tag=BASETAG(look_tag); /* corresponding base tag (if the tag is special) */ int32 last_ref; /* the last ref # found */ uint16 found_ref; /* next ref # found */ /* Try to find the regular tag in the tag info tree */ if((tip_ptr=(tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) HGOTO_ERROR(DFE_BADTAG, FAIL); tinfo_ptr=*tip_ptr; /* get the pointer to the tag info */ if(*pdd==NULL) /* check if we are searching from the beginning */ last_ref=-1; else last_ref=block->ddlist[idx].ref; if((found_ref=bv_find(tinfo_ptr->b,last_ref,1))==(uint16)FAIL) HGOTO_ERROR(DFE_BVFIND, FAIL); if((dd_ptr=DAget_elem(tinfo_ptr->d,found_ref))==NULL) HGOTO_ERROR(DFE_BADREF, FAIL); *pdd=dd_ptr; HGOTO_DONE(SUCCEED); #endif /* OLD_WAY */ } /* end if */ else { /* Both tag & ref are not wildcards */ for (; block; block = block->next) { list = &block->ddlist[idx]; for (; idx < block->ndds; idx++, list++) { /* skip the empty dd's */ if (list->tag == DFTAG_NULL && look_tag != DFTAG_NULL) continue; if ((list->tag == look_tag || (special_tag != DFTAG_NULL && list->tag == special_tag)) && list->ref == look_ref) { /* we have a match !! */ *pdd=list; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ idx = 0; } /* end for */ } /* end else */ } /* end if */ else if (direction == DF_BACKWARD) { /* search backward through the DD list */ if(*pdd==NULL) { block=file_rec->ddlast; idx=block->ndds-1; } /* end if */ else { block=(*pdd)->blk; idx=((*pdd)-&block->ddlist[0])-1; } /* end else */ for (; block;) { list = block->ddlist; for (; idx >= 0; idx--) { /* skip the empty dd's */ if (list[idx].tag == DFTAG_NULL && look_tag != DFTAG_NULL) continue; if (((look_tag == DFTAG_WILDCARD || list[idx].tag == look_tag) || (special_tag != DFTAG_NULL && list[idx].tag == special_tag)) && (look_ref == DFREF_WILDCARD || list[idx].ref == look_ref)) { /* we have a match !! */ *pdd=&list[idx]; HGOTO_DONE(SUCCEED); } /* end if */ } /* end for */ /* start from beginning of the next dd list */ block = block->prev; if (block != NULL) idx = block->ndds - 1; } /* end for */ } /* end if */ } /* end else */ /* If we get here, we've failed */ ret_value=FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTIfind_dd */ /*-------------------------------------------------------------------------- NAME HTIupdate_dd -- update a DD on disk USAGE int HTIupdate_dd(file_rec, dd_ptr) filerec_t *file_rec; IN: id of file dd_t *dd_ptr; IN: pointer to dd to update RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Takes appropriate action to note that a DD in a DD block has changed --------------------------------------------------------------------------*/ static intn HTIupdate_dd(filerec_t * file_rec, dd_t * dd_ptr) { CONSTR(FUNC, "HTIupdate_dd"); /* for HERROR */ ddblock_t *block; /* DD block the dd is in */ int32 idx; /* index of the DD in the DD block */ intn ret_value = SUCCEED; HEclear(); block=dd_ptr->blk; idx=dd_ptr-&block->ddlist[0]; if (file_rec->cache) { /* if caching is on, postpone update until later */ file_rec->dirty |= DDLIST_DIRTY; block->dirty = TRUE; } /* end if */ else { int32 offset; /* offset of updated dd in file */ uint8 tbuf[DD_SZ]; /* storage for the DD */ uint8 *p; /* temp buffer ptr */ /* look for offset of updated dd block in the file */ offset = block->myoffset + (NDDS_SZ + OFFSET_SZ) + (idx * DD_SZ); /* write in the updated dd */ if (HPseek(file_rec, offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); p = tbuf; DDENCODE(p, dd_ptr->tag, dd_ptr->ref, dd_ptr->offset, dd_ptr->length); if (HP_write(file_rec, tbuf, DD_SZ) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end else */ /* check whether to incr. offset of end of file */ /* not certain whether this is actually necessary, but better safe than */ /* sorry later... -QAK */ if ((dd_ptr->offset != INVALID_OFFSET && dd_ptr->length != INVALID_LENGTH) && ( dd_ptr->offset + dd_ptr->length) > file_rec->f_end_off) file_rec->f_end_off = dd_ptr->offset + dd_ptr->length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTIupdate_dd */ /* ----------------------------- HTIcount_dd ------------------------------ */ /* NAME HTIcount_dd -- counts the dd's of a certain type in file USAGE intn HTIcount_dd(file_rec, tag, ref, all_cnt, real_cnt) filerec_t * file_rec; IN: file record to search uint16 tag; IN: tag of element to find (can be DFTAG_WILDCARD) uint16 ref; IN: ref of element to find (can be DFREF_WILDCARD) uintn *all_cnt; OUT: Count of all the tag/ref pairs found, including DFTAG_NULL and DFTAG_FREE uintn *real_cnt; OUT: Count of all the tag/ref pairs found, excluding DFTAG_NULL and DFTAG_FREE RETURNS SUCCEED / FAIL DESCRIPTION Counts the number of tag/ref pairs in a file. This routine keeps track of and returns to the user the number of all tag/refs and the number of "real" tag/refs found. "Real" tag/refs are any except DFTAG_NULL & DFTAG_FREE. This routine always counts the total tag/refs in the file, no provision is made for partial searches. ---------------------------------------------------------------------------*/ static intn HTIcount_dd(filerec_t * file_rec, uint16 cnt_tag, uint16 cnt_ref, uintn *all_cnt, uintn *real_cnt) { uintn t_all_cnt = 0; /* count of all tag/refs found */ uintn t_real_cnt = 0; /* count of all tag/refs except NULL & FREE */ intn idx; /* index into ddlist of current dd searched */ ddblock_t *block; /* ptr to current ddblock searched */ dd_t *dd_ptr; /* ptr to current ddlist searched */ uint16 special_tag; /* corresponding special tag */ HEclear(); /* search for special version also */ special_tag = MKSPECIALTAG(cnt_tag); /* Change these algorithms to take advantage of the dynamic arrays for tags -QAK */ switch(cnt_tag) { case DFTAG_WILDCARD: for (block = file_rec->ddhead; block != NULL; block = block->next) { t_all_cnt += (uintn)block->ndds; dd_ptr = block->ddlist; for (idx = 0; idx < block->ndds; idx++, dd_ptr++) { /* skip the empty dd's */ if (dd_ptr->tag == DFTAG_NULL || dd_ptr->tag == DFTAG_FREE) continue; if ((cnt_ref == DFREF_WILDCARD || dd_ptr->ref == cnt_ref)) t_real_cnt++; } /* end for */ } /* end for */ break; case DFTAG_NULL: case DFTAG_FREE: for (block = file_rec->ddhead; block != NULL; block = block->next) { t_all_cnt += (uintn)block->ndds; dd_ptr = block->ddlist; for (idx = 0; idx < block->ndds; idx++, dd_ptr++) if ((dd_ptr->tag == cnt_tag || (special_tag != DFTAG_NULL && dd_ptr->tag == special_tag)) && (cnt_ref == DFREF_WILDCARD || dd_ptr->ref == cnt_ref)) t_real_cnt++; } /* end for */ break; default: if(special_tag==DFTAG_NULL) { for (block = file_rec->ddhead; block != NULL; block = block->next) { t_all_cnt += (uintn)block->ndds; dd_ptr = block->ddlist; for (idx = 0; idx < block->ndds; idx++, dd_ptr++) if (dd_ptr->tag == cnt_tag && (dd_ptr->ref == cnt_ref || cnt_ref == DFREF_WILDCARD)) t_real_cnt++; } /* end for */ } /* end if */ else { if(cnt_ref==DFREF_WILDCARD) { for (block = file_rec->ddhead; block != NULL; block = block->next) { t_all_cnt += (uintn)block->ndds; idx=0; dd_ptr = block->ddlist; if(block->ndds%2 == 1) if (dd_ptr->tag == cnt_tag || dd_ptr->tag == special_tag) { t_real_cnt++; idx++; dd_ptr++; } /* end if */ for (; idx < block->ndds; idx++, dd_ptr++) { if (dd_ptr->tag == cnt_tag || dd_ptr->tag == special_tag) t_real_cnt++; idx++; dd_ptr++; if (dd_ptr->tag == cnt_tag || dd_ptr->tag == special_tag) t_real_cnt++; } /* end for */ } /* end for */ } /* end if */ else { for (block = file_rec->ddhead; block != NULL; block = block->next) { t_all_cnt += (uintn)block->ndds; dd_ptr = block->ddlist; for (idx = 0; idx < block->ndds; idx++, dd_ptr++) if ((dd_ptr->tag == cnt_tag || dd_ptr->tag == special_tag) && dd_ptr->ref == cnt_ref) t_real_cnt++; } /* end for */ } /* end else */ } /* end else */ break; } /* end switch */ *all_cnt = t_all_cnt; *real_cnt = t_real_cnt; return (SUCCEED); } /* HTIcount_dd */ /*-------------------------------------------------------------------------- NAME HTIregister_tag_ref -- mark a ref # as used for a tag USAGE intn HTIregister_tag_ref(file_rec, dd_ptr) filerec_t * file_rec; IN: file record dd_t * dd_ptr; IN: pointer to the dd the tag/ref is in RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Marks a ref # as used for a given tag. --------------------------------------------------------------------------*/ static intn HTIregister_tag_ref(filerec_t * file_rec, dd_t *dd_ptr) { CONSTR(FUNC, "HTIregister_tag_ref"); tag_info *tinfo_ptr; /* pointer to the info for a tag */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ uint16 base_tag=BASETAG(dd_ptr->tag); /* the base tag for the tag tree */ int ret_value = SUCCEED; HEclear(); /* Add to the tag info tree */ if((tip_ptr=(tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) { /* a new tag was found */ if((tinfo_ptr=(tag_info *)HDcalloc(1,sizeof(tag_info)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); tinfo_ptr->tag=base_tag; /* Insert the tag node into the tree */ tbbtdins(file_rec->tag_tree, (VOIDP) tinfo_ptr, NULL); /* Take care of the bit-vector */ if((tinfo_ptr->b=bv_new(-1,BV_EXTENDABLE))==NULL) HGOTO_ERROR(DFE_BVNEW, FAIL); /* Set the 0'th bit in the bit-vector (cannot be stored in HDF files) */ /* Yes, this is a kludge due to ref # zero not being used -QAK */ if(bv_set(tinfo_ptr->b,0,BV_TRUE)==FAIL) HGOTO_ERROR(DFE_BVSET, FAIL); /* Take care of the dynarray */ if((tinfo_ptr->d=DAcreate_array(REF_DYNARRAY_START,REF_DYNARRAY_INCR))==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ else { /* found an existing tag */ intn ref_bit; /* bit of the ref # in the tag info */ tinfo_ptr=*tip_ptr; /* get the pointer to the tag info */ if((ref_bit=bv_get(tinfo_ptr->b,(intn)dd_ptr->ref))==FAIL) HGOTO_ERROR(DFE_BVGET, FAIL); if(ref_bit==BV_TRUE) HGOTO_ERROR(DFE_DUPDD, FAIL); } /* end else */ /* Set the bit in the bit-vector */ if(bv_set(tinfo_ptr->b,(intn)dd_ptr->ref,BV_TRUE)==FAIL) HGOTO_ERROR(DFE_BVSET, FAIL); /* Insert the DD info into the dynarray for later use */ if(DAset_elem(tinfo_ptr->d,(intn)dd_ptr->ref,(VOIDP)dd_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(tinfo_ptr->d!=NULL) DAdestroy_array(tinfo_ptr->d,0); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTIregister_tag_ref */ /*-------------------------------------------------------------------------- NAME HTIunregister_tag_ref -- mark a ref # as free for a tag USAGE intn HTIunregister_tag_ref(file_rec, tag, ref) filerec_t * file_rec; IN: file record dd_t *dd_ptr; IN: DD of the tag/ref to unregister RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Marks a ref # as free for a given tag. --------------------------------------------------------------------------*/ static intn HTIunregister_tag_ref(filerec_t * file_rec, dd_t *dd_ptr) { CONSTR(FUNC, "HTIunregister_tag_ref"); tag_info *tinfo_ptr; /* pointer to the info for a tag */ tag_info **tip_ptr; /* ptr to the ptr to the info for a tag */ uint16 base_tag=BASETAG(dd_ptr->tag); /* the base tag for the tag tree */ int ret_value = SUCCEED; HEclear(); /* Add to the tag info tree */ if((tip_ptr=(tag_info **)tbbtdfind(file_rec->tag_tree,(VOIDP)&base_tag,NULL))==NULL) { HGOTO_ERROR(DFE_BADTAG, FAIL); } /* end if */ else { /* found an existing tag */ intn ref_bit; /* bit of the ref # in the tag info */ tinfo_ptr=*tip_ptr; /* get the pointer to the tag info */ if((ref_bit=bv_get(tinfo_ptr->b,(intn)dd_ptr->ref))==FAIL) HGOTO_ERROR(DFE_BVGET, FAIL); if(ref_bit==BV_FALSE) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(bv_set(tinfo_ptr->b,(intn)dd_ptr->ref,BV_FALSE)==FAIL) HGOTO_ERROR(DFE_BVSET, FAIL); /* Delete the DD info from the tag tree */ if(DAdel_elem(tinfo_ptr->d,(intn)dd_ptr->ref)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Delete the tag/ref from the file */ dd_ptr->tag=DFTAG_NULL; } /* end else */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HTIunregister_tag_ref */ /* ---------------------------- tagcompare ------------------------- */ /* Compares two tag B-tree keys for equality. Similar to memcmp. *** Only called by B-tree routines, should _not_ be called externally *** */ intn tagcompare(VOIDP k1, VOIDP k2, intn cmparg) { intn ret_value; /* shut compiler up */ cmparg = cmparg; ret_value = ((intn) ((*(uint16 *) k1) - (*(uint16 *) k2))); /* valid for integer keys */ return ret_value; } /* tagcompare */ /* ---------------------------- tagdestroynode ------------------------- */ /* Frees tag B-Tree nodes *** Only called by B-tree routines, should _not_ be called externally *** */ VOID tagdestroynode(VOIDP n) { tag_info *t=(tag_info *)n; if(t->b!=NULL) bv_delete(t->b); if(t->d!=NULL) DAdestroy_array(t->d,0); HDfree((VOIDP) n); } /* tagdestroynode */ libhdf4-4.2.10/HDF_ALT/hdf/src/hkit.c0000644000000000000000000002547012421456623013551 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hkit.c 6043 2014-01-21 21:09:03Z acheng $ */ #include #include "hkit.h" /* LOCAL ROUTINES None EXPORTED ROUTINES HDc2fstr -- convert a C string into a Fortran string IN PLACE HDf2cstring -- convert a Fortran string to a C string HDpackFstring -- convert a C string into a Fortran string HDflush -- flush the HDF file HDgettagdesc -- return a text description of a tag HDgettagsname -- return a text name of a tag HDgettagnum -- return the tag number for a text description of a tag HDgetNTdesc -- return a text description of a number-type HDfidtoname -- return the filename the file ID corresponds to */ /* ------------------------------- HDc2fstr ------------------------------- */ /* NAME HDc2fstr -- convert a C string into a Fortran string IN PLACE USAGE intn HDc2fstr(str, len) char * str; IN: string to convert intn len; IN: length of Fortran string RETURNS SUCCEED DESCRIPTION Change a C string (NULL terminated) into a Fortran string. Basically, all that is done is that the NULL is ripped out and the string is padded with spaces ---------------------------------------------------------------------------*/ intn HDc2fstr(char *str, intn len) { int i; i=(int)HDstrlen(str); for (; i < len; i++) str[i] = ' '; return SUCCEED; } /* HDc2fstr */ /* ----------------------------- HDf2cstring ------------------------------ */ /* NAME HDf2cstring -- convert a Fortran string to a C string USAGE char * HDf2cstring(fdesc, len) _fcd fdesc; IN: Fortran string descriptor intn len; IN: length of Fortran string RETURNS Pointer to the C string if success, else NULL DESCRIPTION Chop off trailing blanks off of a Fortran string and move it into a newly allocated C string. It is up to the user to free this string. ---------------------------------------------------------------------------*/ char * HDf2cstring(_fcd fdesc, intn len) { CONSTR(FUNC, "HDf2cstring"); /* for HERROR */ char *cstr, *str; int i; str = _fcdtocp(fdesc); /* This should be equivalent to the above test -QAK */ for(i=len-1; i>=0 && !isgraph((int)str[i]); i--) /*EMPTY*/; cstr = (char *) HDmalloc((uint32) (i + 2)); if (!cstr) HRETURN_ERROR(DFE_NOSPACE, NULL); cstr[i + 1] = '\0'; HDmemcpy(cstr,str,i+1); return cstr; } /* HDf2cstring */ /* ---------------------------- HDpackFstring ----------------------------- */ /* NAME HDpackFstring -- convert a C string into a Fortran string USAGE intn HDpackFstring(src, dest, len) char * src; IN: source string char * dest; OUT: destination intn len; IN: length of string RETURNS SUCCEED / FAIL DESCRIPTION given a NULL terminated C string 'src' convert it to a space padded Fortran string 'dest' of length 'len' This is very similar to HDc2fstr except that function does it in place and this one copies. We should probably only support one of these. ---------------------------------------------------------------------------*/ intn HDpackFstring(char *src, char *dest, intn len) { intn sofar; for (sofar = 0; (sofar < len) && (*src != '\0'); sofar++) *dest++ = *src++; while (sofar++ < len) *dest++ = ' '; return SUCCEED; } /* HDpackFstring */ /* ------------------------------- HDflush -------------------------------- */ /* NAME HDflush -- flush the HDF file USAGE intn HDflush(fid) int32 fid; IN: file ID RETURNS SUCCEED / FAIL DESCRIPTION Force the system to flush the HDF file stream This should be primarily used for debugging The MAC does not really support fflush() so this r outine just returns SUCCEED always on a MAC w/o really doing anything. ---------------------------------------------------------------------------*/ intn HDflush(int32 file_id) { CONSTR(FUNC, "HDflush"); /* for HERROR */ filerec_t *file_rec; file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HRETURN_ERROR(DFE_ARGS, FAIL); HI_FLUSH(file_rec->file); return SUCCEED; } /* HDflush */ /* ----------------------------- HDgettagdesc ----------------------------- */ /* NAME HDgettagdesc -- return a text description of a tag USAGE char * HDgettagdesc(tag) uint16 tag; IN: tag of element to find RETURNS Descriptive text or NULL DESCRIPTION Map a tag to a statically allocated text description of it. ---------------------------------------------------------------------------*/ const char * HDgettagdesc(uint16 tag) { intn i; for (i = 0; i < (intn)(sizeof(tag_descriptions) / sizeof(tag_descript_t)); i++) if (tag_descriptions[i].tag == tag) return (tag_descriptions[i].desc); return (NULL); } /* HDgettagdesc */ /* ----------------------------- HDgettagsname ----------------------------- */ /* NAME HDgettagsname -- return a text name of a tag USAGE char * HDgettagsname(tag) uint16 tag; IN: tag of element to find RETURNS Descriptive text or NULL DESCRIPTION Map a tag to a dynamically allocated text name of it. Checks for special elements now. --------------------------------------------------------------------------- */ char * HDgettagsname(uint16 tag) { CONSTR(FUNC, "HDgettagsname"); /* for HERROR */ char *ret = NULL; intn i; if (SPECIALTAG(tag)) ret = (char *) HDstrdup("Special "); tag = BASETAG(tag); for (i = 0; i < (intn)(sizeof(tag_descriptions) / sizeof(tag_descript_t)); i++) if (tag_descriptions[i].tag == tag) { if (ret == NULL) ret = (char *) HDstrdup(tag_descriptions[i].name); else { char *t; t = (char *) HDmalloc(HDstrlen(ret) + HDstrlen(tag_descriptions[i].name) + 2); if (t == NULL) { HDfree(ret); HRETURN_ERROR(DFE_NOSPACE, NULL) } /* end if */ HDstrcpy(t, ret); HDstrcat(t, tag_descriptions[i].name); HDfree(ret); ret = t; } /* end else */ } /* end if */ return (ret); } /* HDgettagsname */ /* ----------------------------- HDgettagnum ------------------------------ */ /* NAME HDgettagnum -- return the tag number for a text description of a tag USAGE intn HDgettagnum(tag_name) char * tag_name; IN: name of tag to find RETURNS Tag number (>=0) on success or FAIL on failure DESCRIPTION Map a tag name to a statically allocated tag number for it. ---------------------------------------------------------------------------*/ intn HDgettagnum(const char *tag_name) { intn i; for (i = 0; i < (intn)(sizeof(tag_descriptions) / sizeof(tag_descript_t)); i++) if (0 == HDstrcmp(tag_descriptions[i].name, tag_name)) return ((intn)tag_descriptions[i].tag); return (FAIL); } /* HDgettagnum */ /* ----------------------------- HDgetNTdesc ----------------------------- */ /* NAME HDgetNTdesc -- return a text description of a number-type USAGE char * HDgetNTdesc(nt) int32 nt; IN: tag of element to find RETURNS Descriptive text or NULL DESCRIPTION Map a number-type to a dynamically allocated text description of it. ---------------------------------------------------------------------------*/ char * HDgetNTdesc(int32 nt) { CONSTR(FUNC, "HDgetNTdesc"); /* for HERROR */ intn i; char *ret_desc = NULL; /* evil hard-coded values */ if (nt & DFNT_NATIVE) ret_desc = (char *) HDstrdup(nt_descriptions[0].desc); else if (nt & DFNT_CUSTOM) ret_desc = (char *) HDstrdup(nt_descriptions[1].desc); else if (nt & DFNT_LITEND) ret_desc = (char *) HDstrdup(nt_descriptions[2].desc); nt &= DFNT_MASK; /* mask off unusual format types */ for (i = 3; i < (intn)(sizeof(nt_descriptions) / sizeof(nt_descript_t)); i++) if (nt_descriptions[i].nt == nt) { if (ret_desc == NULL) ret_desc = (char *) HDstrdup(nt_descriptions[i].desc); else { char *t; t = (char *) HDmalloc(HDstrlen(ret_desc) + HDstrlen(nt_descriptions[i].desc) + 2); if (t == NULL) { HDfree(ret_desc); HRETURN_ERROR(DFE_NOSPACE, NULL) } /* end if */ HDstrcpy(t, ret_desc); HDstrcat(t, " "); HDstrcat(t, nt_descriptions[i].desc); HDfree(ret_desc); ret_desc = t; } /* end else */ return (ret_desc); } /* end if */ return (NULL); } /* end HDgetNTdesc() */ /* ------------------------------- HDfidtoname ------------------------------ */ /* NAME HDfidtoname -- return the filename the file ID corresponds to USAGE const char * HDfidtoname(fid) int32 fid; IN: file ID RETURNS SUCCEED - pointer to filename / FAIL - NULL DESCRIPTION Map a file ID to the filename used to get it. This is useful for mixing old style single-file interfaces (which take filenames) and newer interfaces which use file IDs. ---------------------------------------------------------------------------*/ const char * HDfidtoname(int32 file_id) { CONSTR(FUNC, "HDfidtoname"); /* for HERROR */ filerec_t *file_rec; if ((file_rec = HAatom_object(file_id)) == NULL) HRETURN_ERROR(DFE_ARGS, NULL); return (file_rec->path); } /* HDfidtoname */ libhdf4-4.2.10/HDF_ALT/hdf/src/vgff.f0000644000000000000000000006711612421456623013550 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: vgff.f 5737 2012-01-06 04:52:28Z brtnfld $ C c ************************************************************************** c * c * vgFf.f c * Part of the HDF VSet interface. c * c * Contains fortran routines callable from fortran programs. c * c ************************************************************************** c ============================================================ c VGROUP ROUTINES c ============================================================ c attachs to a vgroup c related: Vattach--vatchc--VFATCH integer function vfatch(f, vgid, accesstype) integer f, vgid character*1 accesstype integer vatchc vfatch = vatchc (f, vgid, accesstype) end c ------------------------------------------------------------ c detaches from a vgroup c related: Vdetach--vdtchc--VFDTCH integer function vfdtch (vg) integer vg integer vdtchc vfdtch = vdtchc (vg) end c ------------------------------------------------------------ c general inquiry on a vgroup c related: Vgetname--vgnamc--VFGNAM integer function vfgnam (vg, vgname) integer vg character*(*) vgname integer vgnamc vfgnam = vgnamc (vg, vgname) end c ------------------------------------------------------------ c get the class name of a vgroup c related: Vgetclass--vgclsc--VFGCLS integer function vfgcls (vg, vgclass) integer vg character*(*) vgclass integer vgclsc vfgcls = vgclsc (vg, vgclass) end c ------------------------------------------------------------ c general inquiry on a vgroup c related: Vinquire--vinqc--VFINQ integer function vfinq (vg, nentries, vgname) integer vg, nentries character*(*) vgname integer vinqc vfinq = vinqc (vg, nentries, vgname) end c ------------------------------------------------------------ c gets the id of the next vgroup in the file c related: Vgetid--vgidc--VFGID integer function vfgid (f, vgid) integer f, vgid integer vgidc vfgid = vgidc (f, vgid) end c ------------------------------------------------------------ c gets the id of the next entry in the vgroup c related: Vgetnext--vgnxtc--VFGNXT integer function vfgnxt (vg, id) integer vg, id integer vgnxtc vfgnxt = vgnxtc (vg, id) end c ------------------------------------------------------------ c sets the name of the vgroup c related: Vsetname--vsnamc--VFSNAM integer function vfsnam (vg, vgname) integer vg character*(*) vgname integer vsnamc vfsnam = vsnamc (vg, vgname, len(vgname)) end c ------------------------------------------------------------ c sets the class name of the vgroup c related: Vsetclass--vsclsc--VFSCLS integer function vfscls (vg, vgclass) integer vg character*(*) vgclass integer vsclsc vfscls = vsclsc (vg, vgclass, len(vgclass)) end c ------------------------------------------------------------ c inserts a vset entity (ie vgroup or vdata) into the given vgroup c related: Vinsert--vinsrtc--VFINSRT integer function vfinsrt (vg, velt) integer vg, velt integer vinsrtc vfinsrt = vinsrtc (vg, velt) end c ------------------------------------------------------------ c tests if an id in a vgroup is a vgroup c related: Visvg--visvgc--vfisvg integer function vfisvg (vg, id) integer vg, id integer visvgc vfisvg = visvgc (vg, id) end c ------------------------------------------------------------ c tests if an id in a vgroup is a vdata c related: Visvs--visvsc--vfisvs integer function vfisvs (vg, id) integer vg, id integer visvsc vfisvs = visvsc (vg, id) end c ============================================================ c VDATA ROUTINES c ============================================================ c attach to a vdata c related: VSattach--vsatchc--vfatch integer function vsfatch (f, vsid, accesstype) integer f, vsid character*1 accesstype integer vsatchc vsfatch = vsatchc (f, vsid, accesstype) end c ------------------------------------------------------------ c detach from a vdata c related: VSdetach--vsdtchc--vfdtch integer function vsfdtch (vs) integer vs integer vsdtchc vsfdtch = vsdtchc (vs) end c ------------------------------------------------------------ c seeks to a given element position in a vadata c related: VSseek--vsseekc--vsfseek integer function vsfseek (vs, eltpos ) integer vs, eltpos integer vsseekc vsfseek = vsseekc (vs, eltpos) end c ------------------------------------------------------------ c gets the name of a vdata c related: VSgetname--vsgnamc--vsfgnam integer function vsfgnam (vs, vsname) integer vs character*(*) vsname integer vsgnamc vsfgnam = vsgnamc (vs, vsname, len(vsname)) end c ------------------------------------------------------------ c get the class name of a vdata c related: VSgetclass--vsgclsc--vsfgcls integer function vsfgcls (vs, vsclass) integer vs character*(*) vsclass integer vsgclsc vsfgcls = vsgclsc (vs, vsclass, len(vsclass)) end c ------------------------------------------------------------ c general inquiry on a vdata c related: VSinquire--vsinqc--vsfinq integer function vsfinq (vs,nvs,ilace,fields,vsize,vsname) integer vs, nvs, ilace, vsize character*(*) fields, vsname integer vsinqc vsfinq = vsinqc (vs, nvs, ilace, fields, vsize, vsname, + len(fields), len(vsname)) end c ------------------------------------------------------------ c tests if given fields exist in the vdata c related: VSfexist--vsfexc--vsfex integer function vsfex (vs, fields) integer vs character*(*) fields integer vsfexc vsfex = vsfexc (vs, fields, len(fields)) end c ------------------------------------------------------------ c looks for a Vdata with a given name c related: VSfind--vsfind--vsffnd integer function vsffnd (vs, name) integer vs character*(*) name integer vsfndc vsffnd = vsfndc (vs, name, len(name)) end c ------------------------------------------------------------ c gets the id of the next vdata from the file c related: VSgetid--vsgidc--vsfgid integer function vsfgid (f, vsid) integer f, vsid integer vsgidc vsfgid = vsgidc (f, vsid) end c ------------------------------------------------------------ c remove the vdata with id from the file c related: VSdelete--vsdltc--vsfdlte integer function vsfdlte (f, vsid) integer f, vsid integer vsdltc vsfdlte = vsdltc (f, vsid) end c ------------------------------------------------------------ c sets the name of a vdata c related: VSsetname--vssnamc--vsfsnam integer function vsfsnam (vs, vsname) integer vs character*(*) vsname integer vssnamc vsfsnam = vssnamc (vs, vsname, len(vsname)) end c ------------------------------------------------------------ c set the class name of a vdata c related: VSsetclass--vssclsc--vsfscls integer function vsfscls (vs, vsclass) integer vs character*(*) vsclass integer vssclsc vsfscls = vssclsc (vs, vsclass, len(vsclass)) end c ------------------------------------------------------------ c sets the fields in a vdata for reading or writing c related: VSsetfields--vssfldc--vsfsfld integer function vsfsfld (vs, fields) integer vs character*(*) fields integer vssfldc vsfsfld = vssfldc (vs, fields, len(fields)) end c ------------------------------------------------------------ c sets the file interlace of a vdata c related: VSsetinterlace--vssintc--vsfsint integer function vsfsint (vs, interlace) integer vs, interlace integer vssintc vsfsint = vssintc (vs, interlace) end c ------------------------------------------------------------ c defines a new field to be used in the vdata c related: VSfdefine--vsfdefc--vsffdef integer function vsffdef (vs, field, localtype, order) integer vs, localtype, order character*(*) field integer vsfdefc vsffdef = vsfdefc ( vs, field, localtype, order, len(field)) end c ------------------------------------------------------------ c reads from a vdata c related: VSread--vsreadc--vsfread integer function vsfread (vs, buf, nelts , interlace) integer vs, nelts , interlace character*(*) buf integer vsreadc vsfread = vsreadc (vs, buf, nelts, interlace) end c ------------------------------------------------------------ c writes to a vdata c related: VSwrite--vswritc--vsfwrit integer function vsfwrit (vs, buf, nelts, interlace) integer vs, nelts, interlace character*(*) buf(*) integer vswritc vsfwrit = vswritc (vs, buf, nelts, interlace) end C---------------------------------------------------------------------- C Name: vsfsextf C Purpose: call vssextfc to store data in an external file C Inputs: vid: vdata id C fname: name of external file C offset: Number of bytes from the beginning of the C external file to where the data starts C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C Related: VSsetexternalfile--vssextfc--vsfsextf C---------------------------------------------------------------------- integer function vsfsextf(vid, fname, offset) character*(*) fname integer vid, offset, vssextfc vsfsextf = vssextfc(vid, fname, offset, len(fname)) return end c =========================================== c MISCELLANEOUS USEFUL VDATA INQUIRY ROUTINES c =========================================== c c undocumented c gets the interlace of a vdata c related: VSgetinterlace--vsgintc--vsfgint integer function vsfgint (vs) integer vs integer vsgintc vsfgint = vsgintc (vs) end c ------------------------------------------------------------ c gets the number of elements in a vdata c related: VSelts--vseltsc--vsfelts integer function vsfelts (vs) integer vs integer vseltsc vsfelts = vseltsc (vs) end c ------------------------------------------------------------ c gets the fields in the vdata c related: VSgetfields--vsgfldc--vsfgfld integer function vsfgfld (vs, fields) integer vs character*(*) fields integer vsgfldc vsfgfld = vsgfldc (vs, fields) end c ------------------------------------------------------------ c determines the (machine) size of the given fields c related: VSsizeof--vssizc--vsfsiz integer function vsfsiz (vs, fields) integer vs character*(*) fields integer vssizc vsfsiz = vssizc (vs, fields, len(fields)) end c ------------------------------------------------------------ c determines the no of entries in a vgroup c related: Ventries--ventsc--vfents integer function vfents (f, vgid) integer f, vgid integer ventsc vfents = ventsc (f, vgid) end c ------------------------------------------------------------ c gets the refs of all lone vgroups in the file c related: Vlone--vlonec--vflone integer function vflone (f, idarray, asize) integer f integer idarray(*) integer asize integer vlonec vflone = vlonec (f, idarray, asize) end c ------------------------------------------------------------ c gets the refs of all lone vdatas in the file c related: VSlone--vslonec--vsflone integer function vsflone (f, idarray, asize) integer f integer idarray(*) integer asize integer vslonec vsflone = vslonec (f, idarray, asize) end c ------------------------------------------------------------ c gets the ref # of a vgroup for a given name c related: Vfind--vfindc--VFIND integer function vfind(f,name) integer f character*(*) name integer vfindc vfind = vfindc (f, name, len(name)) end c ------------------------------------------------------------ c gets the ref # of a vgroup for a given class c related: Vfindclass--vfndclsc--VFNDCLS integer function vfndcls(f,class) integer f character*(*) class integer vfndclsc vfndcls = vfndclsc (f, class, len(class)) end c ------------------------------------------------------------ c store a simple dataset in a vdata c related: VHstoredata--vhsdc--vhfsd integer function vhfsd(f,field,buf,n,dtype,vsname,vsclass) integer f character*(*) field integer buf(*) integer n, dtype character*(*) vsname, vsclass integer vhsdc vhfsd = vhsdc (f, field, buf, n, dtype, vsname, vsclass, 1 len(field), len(vsname), len(vsclass)) end c ------------------------------------------------------------ c store an aggregate dataset in a vadata c related: VHstoredatam--vhsdmc--vhfsdm integer function vhfsdm (f,field,buf,n,dtype,vsname,vsclass,order) integer f character*(*) field integer buf(*) integer n, dtype, order character*(*) vsname, vsclass integer vhsdmc vhfsdm = vhsdmc (f, field, buf, n, dtype, vsname,vsclass, order, 1 len(field), len(vsname), len(vsclass)) end c ------------------------------------------------------------ c store a simple char dataset in a vdata c related: VHstoredata--vhscdc--vhfscd integer function vhfscd(f,field,cbuf,n,dtype,vsname,vsclass) integer f character*(*) field character cbuf(*) integer n, dtype character*(*) vsname, vsclass integer vhscdc vhfscd = vhscdc(f,field,cbuf,n,dtype,vsname,vsclass, 1 len(field), len(vsname), len(vsclass)) end c ------------------------------------------------------------ c store an aggregate char dataset in a vadata c related: VHstoredatam--vhscdmc--vhfscdm integer function vhfscdm (f,field,cbuf,n,dtype,vsname, 1 vsclass,order) integer f character*(*) field character cbuf(*) integer n, dtype, order character*(*) vsname, vsclass integer vhscdmc vhfscdm = vhscdmc (f, field, cbuf, n, dtype, vsname, 1 vsclass, order, len(field), len(vsname), 1 len(vsclass)) end c ------------------------------------------------------------ c make a new vgroup given several tag/ref pairs c related: VHmakegroup--vhmkgpc--vhfmkgp integer function vhfmkgp(f,tagarray,refarray,n,vgname,vgclass) integer f, n integer tagarray(*), refarray(*) character*(*) vgname, vgclass integer vhmkgpc vhfmkgp = vhmkgpc (f, tagarray, refarray , n, vgname, vgclass, 1 len(vgname), len(vgclass)) end c ============================================================ c More vgroup routines c locate a field in a vdata that belongs to this VGROUP c related: Vflocate--vffloc--vflocc integer function vffloc (vg, field) integer vg character*(*) field integer vflocc vffloc = vflocc (vg, field, len(field)) end c ------------------------------------------------------------ c tests if a tag/ref pair is in a vgroup. c related: Vinqtagref--vinqtrc--vfinqtr integer function vfinqtr (vg, tag, ref) integer vg, tag, ref integer vinqtrc vfinqtr = vinqtrc (vg, tag, ref) end c ------------------------------------------------------------ c gets the number of tag/refs stored in a vgroup c related: Velts--veltsc--vfelts integer function vfntr (vg) integer vg integer vntrc vfntr = vntrc (vg) end c ------------------------------------------------------------ c returns all the tag/ref pairs in a vgroup c related: Vgettagrefs--vgttrsc--vfgttrs integer function vfgttrs (vg, tagarray, refarray, n) integer vg, n integer tagarray(*), refarray(*) integer vgttrsc vfgttrs = vgttrsc (vg, tagarray, refarray, n) end c ------------------------------------------------------------ c returns a specified tag/ref pair in a vgroup c related: Vgettagref--vgttrc--vfgttr integer function vfgttr (vg, which, tag, ref) integer vg, which integer tag, ref integer vgttrc vfgttr = vgttrc (vg, which, tag, ref) end c ------------------------------------------------------------ c add a tag/ref pair to a vgroup c related: Vaddtagref--vadtrc--vfadtr integer function vfadtr( vg, tag, ref) integer vg, tag, ref integer vadtrc vfadtr = vadtrc ( vg, tag, ref) end c ------------------------------------------------------------ c specific inquiry on a vdata, gets fields c related: VSQueryfields--vsqfldsc--vsqfflds integer function vsqfflds (vs,fields) integer vs character*(*) fields integer vsqfldsc vsqfflds = vsqfldsc (vs,fields, len(fields)) end c ------------------------------------------------------------ c specific inquiry on a vdata, gets vdata name c related: VSQueryname--vsqnamec--vsqfname integer function vsqfname (vs,name) integer vs character*(*) name integer vsqnamec vsqfname = vsqnamec (vs,name, len(name)) end c ============================================================ c pack values of a numeric field into data buf c related: VSfpack--vsfncpk--vsfnpak c Use ' ' (blank char) for buflds if the the data buf contains c all fields of the vdata c paktype = _HDF_VSPACK(0) for packing c _HDF_VSUNPACK(1) for unpacking integer function vsfnpak(vs,packtype,buflds,buf,bufsz, + nrecs,pckfld,fldbuf) integer vs, bufsz, nrecs integer buf, fldbuf character*(*) buflds, pckfld integer vsfncpk vsfnpak = vsfncpk(vs,packtype,buflds,buf,bufsz,nrecs,pckfld, + fldbuf, len(buflds), len(pckfld)) end c ============================================================ c pack values of a char field into data buf c related: VSfpack--vsfccpk--vsfcpak c Use ' ' (blank char) for buflds if the the data buf contains c all fields of the vdata c paktype = _HDF_VSPACK(0) for packing c _HDF_VSUNPACK(1) for unpacking integer function vsfcpak(vs,packtype,buflds,buf,bufsz, + nrecs,pckfld,fldbuf) integer vs, bufsz, nrecs integer buf character*(*) buflds, pckfld, fldbuf integer vsfccpk vsfcpak = vsfccpk(vs,packtype,buflds,buf,bufsz,nrecs,pckfld, + fldbuf, len(buflds), len(pckfld)) end c c ------------------------------------------------------------ c Delete a tag/ref pair in a vgroup. c related: vfdtr()-->vdtrc()-->Vdeletetagref() integer function vfdtr( vg, tag, ref) integer vg, tag, ref integer vdtrc vfdtr = vdtrc ( vg, tag, ref) end C------------------------------------------------------------------------- C Name: vsffcls C Purpose: looks in the file, finds the vdata C with the specified class C and returns the ref of the vdata with class vdclass C Inputs: id - file ID C vdclass - class of vdata to find C Returns: returns 0 if not found, or error. Otherwise, returns C the vdata's ref number (a positive integer) C Calls: vcffcls (C stub for VSfindclass function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vsffcls(id, vdclass) C INTEGER id CHARACTER*(*) vdclass INTEGER vscfcls C vsffcls = vscfcls(id,vdclass, len(vdclass)) C return end C------------------------------------------------------------------------- C Name: vffname C Purpose: returns the name of a vdata field C Inputs: vdata_id - vdata identofoer C field_index - field index C Output: field_name C Returns: returns 0 on if successful and -1 otherwise C Calls: vffnamec (C stub for VDfieldname function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vffname(vdata_id, field_index, field_name) INTEGER vdata_id, field_index CHARACTER*(*) field_name INTEGER vffnamec vffname = vffnamec(vdata_id, field_index, field_name, . len(field_name)) return end C------------------------------------------------------------------------- C Name: vsfsetblsz C Purpose: sets the block size of the linked-block element C Inputs: id - vdata identifier C block_size - size of each block C Returns: returns 0 if succeeds and -1 if fails C Calls: vscsetblsz (C stub for VSsetblocksize function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vsfsetblsz(id, block_size) C INTEGER id, block_size INTEGER vscsetblsz C vsfsetblsz = vscsetblsz(id, block_size) return end C------------------------------------------------------------------------- C Name: vsfsetnmbl C Purpose: sets the number of blocks for a linked-block element C Inputs: id - vdata identifier C num_blocks - number of blocks to be used for the linked-block C elements C Returns: returns 0 if succeeds and -1 if fails C Calls: vscsetnmbl (C stub for VSsetnumblocks function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vsfsetnmbl(id, num_blocks) C INTEGER id, num_blocks INTEGER vscsetnmbl C vsfsetnmbl = vscsetnmbl(id, num_blocks) return end C------------------------------------------------------------------------- C Name: vsfgetblinfo C Purpose: retrieves the block size and the number of blocks C of a linked-block element. C Inputs: id - vdata identifier C Outputs: block_size - the linked-block size C num_blocks - number of blocks the element has C Returns: returns 0 if succeeds and -1 if fails C Calls: vscgetblinfo (C stub for VSgetblockinfo function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vsfgetblinfo(id, block_size, num_blocks) C INTEGER id, num_blocks, block_size INTEGER vscgblinfo C vsfgetblinfo = vscgblinfo(id, block_size, num_blocks) return end C------------------------------------------------------------------------- C Name: vfgvgroups C Purpose: Retrieves reference numbers of vgroups in a file C or in a vgroup. C C Inputs: id - File identifier returned by Hopen or C vgroup identifier returned by C Vattachvdata identifier C start_vg - Vgroup index to start retrieving at C vg_count - Number of vgroups to be retrieved, C if vg_count = -1, then only function value C will be return and refarray will be ignored. C Outputs: refarray - Array to hold reference numbers C of retrieved vgroups C Returns: Returns the actual number of vgroups retrieved C if successful, and FAIL (-1) otherwise. C Calls: vcgvgrp (C stub for Vgetvgroups function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vfgvgroups(id, start_vg, vg_count, refarray) C IMPLICIT NONE INTEGER id, start_vg, vg_count INTEGER refarray(*) INTEGER vcgvgrp C vfgvgroups = vcgvgrp(id, start_vg, vg_count, refarray) return end C------------------------------------------------------------------------- C Name: vsfgvdatas C Purpose: Retrieves reference numbers of vdatas in a file or C in a vgroup. C C Inputs: id - File identifier returned by Hopen or vgroup C identifier returned by Vattach C start_vd - Vdata number to start retrieving at C vd_count - Number of vdatas to be retrieved, C if vd_count = -1, then only the function C will be return and refarray will be ignored. C Outputs: refarray - Array to hold reference numbers of C retrieved vdatas C Returns: Returns the actual number of user-created vdatas C retrieved if successful, and FAIL (-1) otherwise. C Calls: vscgvdatas (C stub for VSgetvdatas function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function vsfgvdatas(id, start_vd, vd_count, refarray) C IMPLICIT NONE INTEGER id, start_vd, vd_count INTEGER refarray(*) INTEGER vscgvdatas C vsfgvdatas = vscgvdatas(id, start_vd, vd_count, refarray) return end libhdf4-4.2.10/HDF_ALT/hdf/src/mfgr.c0000644000000000000000000100672712421456623013552 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 5831 $"; #endif /* $Id: mfgr.c 5831 2012-07-20 07:03:42Z bmribler $ */ /* FILE mfgr.c PURPOSE Multi-file access to "generic" raster images REMARKS These functions perform manipulate "generic" raster images. These raster images are composed of "pixels" which can have multiple components of data-types other than 8-bit unsigned integers. Each image can have multiple palettes associated with it and other 'attributes' in the same "name=value" style as the SD*() routines have. DESIGN These routines are modeled loosely after the previous single-file DFGR*() routines and the current SD*() routines. There is a table of pointers to sets of raster images stored in the files which have been initialized, similar to the current Vgroup/Vdata implementation. The table contains entries for each file which contain pointers to set of information about the "global" attributes (for this interface) and to the set of raster images in the file. Each set of information for each file is stored in memory using the tbbt*() routines. Each raster image (RI) in the file will be stored in one Vgroup which will contain all the RIs created as well as the "global" raster attributes. Each RI in the file will be stored as a Vgroup containing the image data for each RI as well as the palettes and dataset attributes for that image. Also, each RI Vgroup will have a corresponding RIG created with it and maintained in parallel, for backward compatibility. BUGS/LIMITATIONS Currently the following design limitations are still in place: 1 - Cannot have pixels or palette entries which contain mixed variable types, ie. all the pixel/palette components must be of the same number type. 2 - Currently all the components must be of valid HDF number types, fractional bytes (ie. 6-bit components) or 'plain' multiple byte values are not handled, although they can be packed into the next larger sized number type in order to hold them. EXPORTED ROUTINES File/Interface Functions: int32 GRstart(int32 hdf_file_id) - Initializes the GR interface for a particular file. Returns a 'grid' to specify the GR group to operate on. intn GRfileinfo(int32 grid, int32 *n_datasets, int32 *n_attrs) - Returns information about the datasets and "global" attributes for the GR interface. intn GRend(int32 grid) - Terminates multi-file GR access for a file. Image I/O Functions: int32 GRcreate(int32 grid,char *name,int32 ncomp,int32 nt,int32 il,int32 dimsizes[2]) - Defines a raster image in a file. Returns a 'riid' to work with the new raster image. int32 GRselect(int32 grid,int32 index) - Selects an existing RI to operate on. int32 GRnametoindex(int32 grid,char *name) - Maps a RI name to an index which is returned. intn GRgetiminfo(int32 riid,char *name,int32 *ncomp,int32 *nt,int32 *il,int32 dimsizes[2],int32 *n_attr) - Gets information about an RI which has been selected/created. intn GRgetnluts(int32 riid) - Get the number of palettes (LUTs) for an image intn GRwriteimage(int32 riid,int32 start[2],int32 stride[2],int32 count[2],void * data) - Writes image data to an RI. Partial dataset writing and subsampling is allowed, but only with the dimensions of the dataset (ie. no UNLIMITED dimension support) intn GRreadimage(int32 riid,int32 start[2],int32 stride[2],int32 count[2],void * data) - Read image data from an RI. Partial reads and subsampling are allowed. intn GRendaccess(int32 riid) - End access to an RI. Dimension Functions: int32 GRgetdimid(int32 riid,int32 index) - Get a dimension id ('dimid') for an RI to assign atrributes to. [Later] intn GRsetdimname(int32 dimid,char *name) - Set the name of a dimension. [Later] int32 GRdiminfo(int32 dimid,char *name,int32 *size,int32 *n_attr) - Get information about the dimensions attributes and size. [Later] ID/Ref/Index Functions: uint16 GRidtoref(int32 riid) - Maps an riid to a reference # for annotating or including in a Vgroup. int32 GRreftoindex(int32 hdf_file_id,uint16 ref) - Maps the reference # of an RI into an index which can be used with GRselect. Interlace Request Functions: intn GRreqlutil(int32 riid,intn il) - Request that the next LUT read from an RI have a particular interlace. intn GRreqimageil(int32 riid,intn il) - Request that the image read from an RI have a particular interlace. LUT/Palette I/O Functions: int32 GRgetlutid(int32 riid,int32 index) - Get a palette id ('palid') for an RI. uint16 GRluttoref(int32 lutid) - Maps a lutid to a reference # for annotating of including in a Vgroup. intn GRgetlutinfo(int32 lutid,int32 *ncomp,int32 *nt,int32 *il,int32 *nentries) - Gets information about a palette. intn GRwritelut(int32 lutid,int32 ncomps,int32 nt,int32 il,int32 nentries,void * data) - Writes out a palette for an RI. intn GRreadlut(int32 palid,void * data) - Reads a palette from an RI. Special Element Functions: int32 GRsetexternalfile(int32 riid,char *filename,int32 offset) - Makes the image data of an RI into an external element special element. intn GRsetaccesstype(int32 riid,uintn accesstype) - Sets the access for an RI to be either serial or parallel I/O. intn GRsetcompress(int32 riid,comp_coder_t comp_type,comp_info *cinfo) - Makes the image data of an RI into a compressed special element. intn GRgetcompress(int32 riid,comp_coder_t* comp_type,comp_info *cinfo) - Retrieves the compression information of a raster image's data. intn GRgetcompinfo(int32 riid,comp_coder_t* comp_type,comp_info *cinfo) - Retrieves the compression information of a raster image's data. Will replace GRgetcompress in the future. Attribute Functions: intn GRsetattr(int32 dimid|riid|grid,char *name,int32 attr_nt,int32 count,void * data) - Write an attribute for an object. int32 GRattrinfo(int32 dimid|riid|grid,int32 index,char *name,int32 *attr_nt,int32 *count) - Get attribute information for an object. intn GRgetattr(int32 dimid|riid|grid,int32 index,void * data) - Read an attribute for an object. int32 GRfindattr(int32 dimid|riid|grid,char *name) - Get the index of an attribute with a given name for an object. Chunking Functions: GRsetchunk -- make GR a chunked GR GRgetchunkinfo -- get Info on GR GRwritechunk -- write the specified chunk to the GR GRreadchunk -- read the specified chunk to the GR GRsetchunkcache -- maximum number of chunks to cache LOCAL ROUTINES intn GRIil_convert(const void * inbuf,gr_interlace_t inil,void * outbuf, gr_interlace_t outil,int32 dims[2],int32 ncomp,int32 nt); - Copy a pixel buffer from one interlace to another. AUTHOR Quincey Koziol MODIFICATION HISTORY 10/20/95 - Starting writing specs & coding prototype 3/ 8/96 - Modifications to remove compiled limits on the # of files */ #define MFGR_MASTER #include "hdf.h" #include "hlimits.h" #ifdef H4_HAVE_LIBSZ /* we have the library */ #include "szlib.h" #endif /* Local pre-processor macros */ #define XDIM 0 #define YDIM 1 /* * -------------------------------------------------------------------- * PRIVATE data structure and routines. * -------------------------------------------------------------------- */ static TBBT_TREE *gr_tree=NULL; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; PRIVATE intn GRIupdatemeta(int32 hdf_file_id,ri_info_t *img_ptr); PRIVATE intn GRIupdateRIG(int32 hdf_file_id,ri_info_t *img_ptr); PRIVATE intn GRIupdateRI(int32 hdf_file_id,ri_info_t *img_ptr); PRIVATE intn GRIup_attr_data(int32 hdf_file_id,at_info_t *attr_ptr); PRIVATE intn GRIstart(void); PRIVATE intn GRIgetaid(ri_info_t *img_ptr, intn acc_perm); PRIVATE intn GRIisspecial_type(int32 file_id, uint16 tag, uint16 ref); /*-------------------------------------------------------------------------- NAME rigcompare PURPOSE Compare two B-tree keys for equality. USAGE intn rigcompare(k1, k2, cmparg) void * k1, k2; IN: ptrs to the keys for the tree elements intn cmparg; IN/OUT: unused RETURNS Returns negative for k2>k1, positive for k2grtree, GRIridestroynode, NULL); tbbtdfree(gr_ptr->gattree, GRIattrdestroynode, NULL); HDfree(gr_ptr); } /* GRIgrdestroynode */ /*-------------------------------------------------------------------------- NAME GRIattrdestroynode PURPOSE Frees B-Tree attribute nodes. USAGE VOID GRIattrdestroynode(n) void * n; IN: ptr to the attr node to delete RETURNS none DESCRIPTION Called internally by the tbbt*() routines, this routine is used when deleting trees. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS *** Only called by B-tree routines, should _not_ be called externally *** EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ VOID GRIattrdestroynode(void * n) { at_info_t *at_ptr=(at_info_t *)n; if(at_ptr->name!=NULL) HDfree(at_ptr->name); if(at_ptr->data!=NULL) HDfree(at_ptr->data); HDfree(at_ptr); } /* GRIattrdestroynode */ /*-------------------------------------------------------------------------- NAME GRIridestroynode PURPOSE Frees B-Tree raster-image nodes. USAGE VOID GRIridestroynode(n) void * n; IN: ptr to the attr node to delete RETURNS none DESCRIPTION Called internally by the tbbt*() routines, this routine is used when deleting trees. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS *** Only called by B-tree routines, should _not_ be called externally *** EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ VOID GRIridestroynode(void * n) { ri_info_t *ri_ptr=(ri_info_t *)n; if(ri_ptr->name!=NULL) HDfree(ri_ptr->name); if(ri_ptr->ext_name!=NULL) HDfree(ri_ptr->ext_name); tbbtdfree(ri_ptr->lattree, GRIattrdestroynode, NULL); if(ri_ptr->fill_value!=NULL) HDfree(ri_ptr->fill_value); HDfree(ri_ptr); } /* GRIridestroynode */ /* -------------------------- Get_grfile ------------------------ */ /* Looks in the TBBT gr_tree for the file ID of a file. Returns a pointer to the gr_info_t for that file on success, otherwise NULL. */ PRIVATE gr_info_t * Get_grfile(HFILEID f) { void * *t; /* vfile_t pointer from tree */ int32 key=(int32)f; t = (void **)tbbtdfind(gr_tree, &key, NULL); return((gr_info_t *)(t==NULL ? NULL : *t)); } /* end Get_grfile() */ /*-------------------------------------------------------------------------- NAME GRIisspecial_type PURPOSE Returns the special type if the given element is special. USAGE intn GRIisspecial_type(file_id, tag, ref) int32 file_id; IN: file id uint16 tag; IN: tag of the element uint16 ref; IN: ref of the element RETURNS Special type: SPECIAL_LINKED SPECIAL_EXT SPECIAL_COMP SPECIAL_VLINKED SPECIAL_CHUNKED SPECIAL_BUFFERED SPECIAL_COMPRAS or 0 if the element is not special element. DESCRIPTION Called internally by the GRIget_image_list to allow a chunked or linked-block element to proceed eventhough its offset is 0. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS *** Only called by library routines, should _not_ be called externally *** EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIisspecial_type(int32 file_id, uint16 tag, uint16 ref) { CONSTR(FUNC, "GRIisspecial_type"); accrec_t* access_rec=NULL;/* access element record */ int32 aid; intn ret_value=0; /* clear error stack */ HEclear(); /* start read access on the access record of the data element, which is being inquired for its special information */ aid = Hstartread(file_id, tag, ref); /* get the access_rec pointer */ access_rec = HAatom_object(aid); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* only return the valid special code, anything else return 0 */ switch (access_rec->special) { case SPECIAL_LINKED: case SPECIAL_EXT: case SPECIAL_COMP: case SPECIAL_VLINKED: case SPECIAL_CHUNKED: case SPECIAL_BUFFERED: case SPECIAL_COMPRAS: ret_value = access_rec->special; break; default: ret_value = 0; } /* switch */ if (Hendaccess(aid)== FAIL) HERROR(DFE_CANTENDACCESS); done: if(ret_value == FAIL) { /* Error condition cleanup */ /* end access to the aid if it's been accessed */ if (aid != 0) if (Hendaccess(aid)== FAIL) HERROR(DFE_CANTENDACCESS); } /* end if */ /* Normal function cleanup */ return ret_value; } /* GRIisspecial_type */ /* -------------------------- New_grfile ------------------------ */ /* Creates gr_info_t structure and adds it to the tree Returns a pointer to the gr_info_t for that file on success, otherwise NULL. */ PRIVATE gr_info_t * New_grfile(HFILEID f) { gr_info_t *g; /* Allocate the gr_info_t structure */ if (NULL == (g = (gr_info_t *) HDcalloc(1,sizeof(gr_info_t)))) return(NULL); /* Assign the file ID & insert into the tree */ g->hdf_file_id=f; tbbtdins(gr_tree, g, NULL); /* insert the vg instance in B-tree */ return(g); } /* end New_grfile() */ /*-------------------------------------------------------------------------- NAME GRIget_image_list PURPOSE Find all the unique raster images in the file USAGE intn GRIget_image_list(hdf_file_id,gr_info) int32 hdf_file_id; IN: file ID from Hopen gr_info_t *gr_info; IN: # of unique images found RETURNS Return SUCCEED/FAIL DESCRIPTION Sifts through all the images in a file and compiles a list of all the unique ones. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS o Count the maximum number of possible raster images in the file o Search through the file for raster images - Look for RI8s - Look for RIGs - Look for an RI Vgroup, then read in RIs & "global" attributes. o Eliminate duplicate images o Throw all the remaining RI8s, RIGs, and RIs into an internal table with appropriate information about each of them EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ static intn GRIget_image_list(int32 file_id,gr_info_t *gr_ptr) { CONSTR(FUNC, "GRIget_image_list"); uint16 gr_ref; /* ref # of the Vgroup containing new-style RIs */ intn curr_image; /* current image gathering information about */ intn nimages; /* total number of potential images */ int32 nri, nci, nri8, nci8, nii8, nvg; /* number of RIs, CIs, RI8s, CI8s & II8s & Vgroups */ struct image_info { uint16 grp_tag,grp_ref; /* tag/ref of the group the image is in */ uint16 img_tag,img_ref; /* tag/ref of the image itself */ uint16 aux_ref; /* ref of aux. info about an image */ int32 offset; /* offset of the image data */ uint16 orig_tag; /* original tag before the elimination of duplicates */ } *img_info; uint16 find_tag, find_ref; /* storage for tag/ref pairs found */ int32 find_off, find_len; /* storage for offset/lengths of tag/refs found */ intn i, j; /* local counting variable */ intn ret_value = SUCCEED; HEclear(); /* In a completely psychotic file, there could be RIGs with no corresponding RI8s and also RI8s with no corresponding RIGs, so assume the worst case and then run through them all to eliminate matched pairs */ nri = Hnumber(file_id, DFTAG_RI); /* count the number of RI and CIs */ if (nri == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nci = Hnumber(file_id, DFTAG_CI); /* count the number of RI and CIs */ if (nci == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nri8 = Hnumber(file_id, DFTAG_RI8); /* add the number of RI8, CI8s and II8s */ if (nri8 == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nci8 = Hnumber(file_id, DFTAG_CI8); if (nci8 == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nii8 = Hnumber(file_id, DFTAG_II8); if (nii8 == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nvg = Hnumber(file_id, RI_TAG); if (nvg == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nimages = (intn) (nri + nci + nri8 + nci8 + nii8 + nvg); /* if there are no images just close the file and get out */ if (nimages == 0) { ret_value = (SUCCEED); goto done; } /* Get space to store the image offsets */ if ((img_info = (struct image_info *) HDmalloc(nimages * sizeof(struct image_info))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); HDmemset(img_info,0,(size_t)nimages*sizeof(struct image_info)); /* search through the GR group for raster images & global attributes */ curr_image = 0; if((gr_ref=(uint16)Vfind(file_id,GR_NAME))!=0) { int32 gr_key; /* Vgroup key of the GR Vgroup */ gr_ptr->gr_ref=gr_ref; /* squirrel this away for later use */ if((gr_key=Vattach(file_id,(int32)gr_ref,"r"))!=FAIL) { int32 nobjs=Vntagrefs(gr_key); /* The number of objects in the Vgroup */ int32 img_key; /* Vgroup key of an image */ int32 grp_tag,grp_ref; /* a tag/ref in the Vgroup */ int32 img_tag,img_ref; /* image tag/ref in the Vgroup */ char textbuf[VGNAMELENMAX + 1]; /* buffer to store the name in */ for(i=0; iref=(uint16)grp_ref; new_attr->index=gr_ptr->gattr_count; new_attr->data_modified=FALSE; new_attr->new_at=FALSE; new_attr->data=NULL; if((at_key=VSattach(file_id,(int32)grp_ref,"r"))!=FAIL) { char *fname; /* Make certain the attribute only has one field */ if(VFnfields(at_key)!=1) { VSdetach(at_key); HDfree(new_attr); break; } /* end if */ new_attr->nt=VFfieldtype(at_key,0); new_attr->len=VFfieldorder(at_key,0); if(new_attr->len==1) new_attr->len=VSelts(at_key); /* Get the name of the attribute */ if((fname=VFfieldname(at_key,0))==NULL) { sprintf(textbuf,"Attribute #%d",(int)new_attr->index); if((new_attr->name=(char *)HDmalloc(HDstrlen(textbuf)+1))==NULL) { VSdetach(at_key); HDfree(new_attr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ HDstrcpy(new_attr->name,textbuf); } /* end if */ else { if((new_attr->name=(char *)HDmalloc(HDstrlen(fname)+1))==NULL) { VSdetach(at_key); HDfree(new_attr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ HDstrcpy(new_attr->name,fname); } /* end else */ tbbtdins(gr_ptr->gattree, new_attr, NULL); /* insert the attr instance in B-tree */ VSdetach(at_key); } /* end if */ gr_ptr->gattr_count++; } /* end case */ break; default: break; } /* end switch */ } /* end for */ Vdetach(gr_key); } /* end if */ } /* end if */ /* Get information about the RIGs in the file */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_RIG, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { uint16 elt_tag, elt_ref; /* tag/ref of items in a RIG */ int32 group_id; /* group ID for looking at RIG's */ /* read RIG into memory */ if ((group_id = DFdiread(file_id, DFTAG_RIG, find_ref)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); elt_tag = elt_ref = 0; /* initialize bogus tag/ref */ while (DFdiget(group_id, &elt_tag, &elt_ref)!=FAIL) { /* get next tag/ref */ if (elt_tag == DFTAG_CI || elt_tag == DFTAG_RI) { if (elt_tag != DFTAG_NULL && elt_ref != DFREF_NONE) /* make certain we found an image */ { /* store the information about the image */ img_info[curr_image].grp_tag=DFTAG_RIG; img_info[curr_image].grp_ref=find_ref; img_info[curr_image].img_tag=elt_tag; img_info[curr_image].img_ref=elt_ref; img_info[curr_image].offset = Hoffset(file_id, elt_tag, elt_ref); /* store offset */ curr_image++; } /* end if */ } /* end if */ } /* end while */ } /* end while */ /* go through the RI8s */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_RI8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { img_info[curr_image].grp_tag=DFTAG_NULL; img_info[curr_image].grp_ref=DFREF_WILDCARD; img_info[curr_image].img_tag=find_tag; img_info[curr_image].img_ref=find_ref; img_info[curr_image].offset = find_off; /* store offset */ curr_image++; } /* end while */ /* go through the CI8s */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_CI8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { img_info[curr_image].grp_tag=DFTAG_NULL; img_info[curr_image].grp_ref=DFREF_WILDCARD; img_info[curr_image].img_tag=find_tag; img_info[curr_image].img_ref=find_ref; img_info[curr_image].offset = find_off; /* store offset */ curr_image++; } /* end while */ /* go through the II8s */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_II8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { img_info[curr_image].grp_tag=DFTAG_NULL; img_info[curr_image].grp_ref=DFREF_WILDCARD; img_info[curr_image].img_tag=find_tag; img_info[curr_image].img_ref=find_ref; img_info[curr_image].offset = find_off; /* store offset */ curr_image++; } /* end while */ /* Eliminate duplicate images by using the offset of the image data */ /* Here's a table for how the images will be eliminated: */ /* img_info[i].grp_tag VG RIG NULL(RI8) +-----------------+-----------------+--------+ VG | j=NULL | i=NULL | i=NULL | | | j.aux=i.grp_ref | | +-----------------+-----------------+--------+ img_info[j].grp_tag RIG| j=NULL | j=NULL | i=NULL | | i.aux=j.grp_ref | | | +-----------------+-----------------+--------+ NULL(RI8)| j=NULL | j=NULL | j=NULL | +-----------------+-----------------+--------+ */ nimages = curr_image; /* reset the number of images we really have */ for (i = 0; i < curr_image; i++) { /* go through the images looking for duplicates */ if(img_info[i].img_tag!=DFTAG_NULL) for (j = i+1; j < curr_image; j++) { /* if their refs are different, they're not duplicate, skip */ if(img_info[i].img_ref == img_info[j].img_ref) if(img_info[j].img_tag!=DFTAG_NULL) { /* If the element is special, get its type, to allow linked block or chunked images to go into the if statement below in order for the duplicate image be eliminated - bug #814, BMR Feb, 2005 */ intn special_type = GRIisspecial_type(file_id,img_info[i].img_tag,img_info[i].img_ref); if (((img_info[i].offset!= INVALID_OFFSET && img_info[i] .offset!=0) && img_info[i].offset == img_info[j].offset) || (img_info[i].offset==0 && (special_type == SPECIAL_LINKED || special_type == SPECIAL_CHUNKED))) { /* eliminate the oldest tag from the match */ switch(img_info[i].img_tag) { case DFTAG_RI: case DFTAG_CI: /* Newer style raster image, found in RIG & Vgroup */ if(img_info[j].grp_tag==DFTAG_RIG) { img_info[j].orig_tag = img_info[j].img_tag; img_info[j].img_tag=DFTAG_NULL; if(img_info[i].grp_tag==DFTAG_VG) img_info[i].aux_ref=img_info[j].grp_ref; } /* end if */ else if(img_info[i].grp_tag==DFTAG_VG) { img_info[j].orig_tag = img_info[j].img_tag; img_info[j].img_tag=DFTAG_NULL; } else { img_info[j].orig_tag = img_info[j].img_tag; img_info[j].img_tag=DFTAG_NULL; if(img_info[i].grp_tag==DFTAG_RIG) img_info[j].aux_ref=img_info[i].grp_ref; } /* end else */ break; case DFTAG_RI8: case DFTAG_CI8: case DFTAG_II8: /* Eldest style raster image, no grouping */ if(img_info[j].img_tag!=DFTAG_RI8 && img_info[j].img_tag!=DFTAG_CI8 && img_info[j].img_tag!=DFTAG_II8) img_info[i].img_tag=DFTAG_NULL; else img_info[j].img_tag=DFTAG_NULL; break; default: /* an image which was eliminated from the list of images */ break; } /* end switch */ nimages--; /* if duplicate found, decrement the number of images */ } /* end if */ } /* end if */ } /* end for */ } /* end for */ /* Ok, now sort through the file for information about each image found */ for(i=0; iname=(char *)HDmalloc(name_len+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if(Vgetname(img_key,new_image->name)==FAIL) sprintf(new_image->name,"Raster Image #%d",(int)i); /* Initialize the local attribute tree */ new_image->lattr_count = 0; new_image->lattree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (new_image->lattree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); new_image->ri_ref=img_info[i].grp_ref; if(img_info[i].aux_ref!=0) new_image->rig_ref=img_info[i].aux_ref; else new_image->rig_ref=DFREF_WILDCARD; for(j=0; jimg_tag=(uint16)img_tag; new_image->img_ref=(uint16)img_ref; /* fprintf(stderr, "SPECIALTAG(%d/%d) = %d\n", new_image->img_tag, new_image->img_ref, SPECIALTAG(new_image->img_tag)); */ if(SPECIALTAG(new_image->img_tag)==TRUE) { new_image->use_buf_drvr=1; } /* end if */ break; case DFTAG_CI: /* Compressed image data */ new_image->img_tag=(uint16)img_tag; new_image->img_ref=(uint16)img_ref; new_image->use_buf_drvr=1; new_image->use_cr_drvr=1; break; case DFTAG_LUT: /* Palette */ new_image->lut_tag=(uint16)img_tag; new_image->lut_ref=(uint16)img_ref; /* Fill in some default palette dimension info, in case there isn't a DFTAG_LD for this palette */ if(new_image->lut_dim.dim_ref==0) { new_image->lut_dim.dim_ref = DFREF_WILDCARD; new_image->lut_dim.xdim=256; new_image->lut_dim.ydim=1; new_image->lut_dim.ncomps=3; new_image->lut_dim.nt=DFNT_UINT8; new_image->lut_dim.file_nt_subclass=DFNTF_HDFDEFAULT; new_image->lut_dim.il=MFGR_INTERLACE_PIXEL; new_image->lut_dim.nt_tag=DFTAG_NULL; new_image->lut_dim.nt_ref=DFREF_WILDCARD; new_image->lut_dim.comp_tag=DFTAG_NULL; new_image->lut_dim.comp_ref=DFREF_WILDCARD; } /* end if */ break; case DFTAG_LD: /* Palette dimensions */ if (Hgetelement(file_id, (uint16)img_tag, (uint16)img_ref, GRtbuf) != FAIL) { int16 int16var; uint8 *p; p = GRtbuf; INT32DECODE(p, new_image->lut_dim.xdim); INT32DECODE(p, new_image->lut_dim.ydim); UINT16DECODE(p, new_image->lut_dim.nt_tag); UINT16DECODE(p, new_image->lut_dim.nt_ref); INT16DECODE(p, int16var); new_image->lut_dim.ncomps=(int32)int16var; INT16DECODE(p, new_image->lut_dim.il); UINT16DECODE(p, new_image->lut_dim.comp_tag); UINT16DECODE(p, new_image->lut_dim.comp_ref); } else HGOTO_ERROR(DFE_READERROR, FAIL); /* read NT */ if (Hgetelement(file_id, new_image->lut_dim.nt_tag, new_image->lut_dim.nt_ref, ntstring) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) break; /* set NT info */ new_image->lut_dim.dim_ref = (uint16)img_ref; new_image->lut_dim.nt = (int32)ntstring[1]; new_image->lut_dim.file_nt_subclass = (int32)ntstring[3]; if ((new_image->lut_dim.file_nt_subclass != DFNTF_HDFDEFAULT) && (new_image->lut_dim.file_nt_subclass!= DFNTF_PC) && (new_image->lut_dim.file_nt_subclass!= DFKgetPNSC(new_image->lut_dim.nt, DF_MT))) break; /* unknown subclass */ if (new_image->lut_dim.file_nt_subclass!= DFNTF_HDFDEFAULT) { /* if native or little endian */ if (new_image->lut_dim.file_nt_subclass!= DFNTF_PC) /* native */ new_image->lut_dim.nt |= DFNT_NATIVE; else /* little endian */ new_image->lut_dim.nt |= DFNT_LITEND; } /* end if */ break; case DFTAG_ID: /* Image description info */ if (Hgetelement(file_id, (uint16)img_tag, (uint16)img_ref, GRtbuf) != FAIL) { int16 int16var; uint8 *p; p = GRtbuf; INT32DECODE(p, new_image->img_dim.xdim); INT32DECODE(p, new_image->img_dim.ydim); UINT16DECODE(p, new_image->img_dim.nt_tag); UINT16DECODE(p, new_image->img_dim.nt_ref); INT16DECODE(p, int16var); new_image->img_dim.ncomps=(int32)int16var; INT16DECODE(p, new_image->img_dim.il); UINT16DECODE(p, new_image->img_dim.comp_tag); UINT16DECODE(p, new_image->img_dim.comp_ref); } else HGOTO_ERROR(DFE_READERROR, FAIL); /* read NT */ if (Hgetelement(file_id, new_image->img_dim.nt_tag, new_image->img_dim.nt_ref, ntstring) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) break; /* set NT info */ new_image->img_dim.dim_ref=(uint16)img_ref; new_image->img_dim.nt = (int32)ntstring[1]; new_image->img_dim.file_nt_subclass = (int32)ntstring[3]; if ((new_image->img_dim.file_nt_subclass != DFNTF_HDFDEFAULT) && (new_image->img_dim.file_nt_subclass!= DFNTF_PC) && (new_image->img_dim.file_nt_subclass!= DFKgetPNSC(new_image->img_dim.nt, DF_MT))) break; /* unknown subclass */ if (new_image->img_dim.file_nt_subclass!= DFNTF_HDFDEFAULT) { /* if native or little endian */ if (new_image->img_dim.file_nt_subclass!= DFNTF_PC) /* native */ new_image->img_dim.nt |= DFNT_NATIVE; else /* little endian */ new_image->img_dim.nt |= DFNT_LITEND; } /* end if */ break; case DFTAG_VH: /* Attribute information */ { at_info_t *new_attr; /* attribute to add to the set of local attributes */ int32 at_key; /* VData key for the attribute */ if((new_attr=(at_info_t *)HDmalloc(sizeof(at_info_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); new_attr->ref=(uint16)img_ref; new_attr->index=new_image->lattr_count; new_attr->data_modified=FALSE; new_attr->new_at=FALSE; new_attr->data=NULL; if((at_key=VSattach(file_id,(int32)img_ref,"r"))!=FAIL) { char *fname; /* Make certain the attribute only has one field */ if(VFnfields(at_key)!=1) { VSdetach(at_key); HDfree(new_attr); break; } /* end if */ new_attr->nt=VFfieldtype(at_key,0); new_attr->len=VFfieldorder(at_key,0); if(new_attr->len==1) new_attr->len=VSelts(at_key); /* Get the name of the attribute */ if((fname=VFfieldname(at_key,0))==NULL) { sprintf(textbuf,"Attribute #%d",(int)new_attr->index); if((new_attr->name=(char *)HDmalloc(HDstrlen(textbuf)+1))==NULL) { VSdetach(at_key); HDfree(new_attr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ HDstrcpy(new_attr->name,textbuf); } /* end if */ else { if((new_attr->name=(char *)HDmalloc(HDstrlen(fname)+1))==NULL) { VSdetach(at_key); HDfree(new_attr); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ HDstrcpy(new_attr->name,fname); } /* end else */ tbbtdins(new_image->lattree, new_attr, NULL); /* insert the attr instance in B-tree */ VSdetach(at_key); } /* end if */ new_image->lattr_count++; } /* end case */ break; default: /* Unknown tag */ break; } /* end switch */ } /* end for */ new_image->index=gr_ptr->gr_count; new_image->gr_ptr=gr_ptr; /* point up the tree */ tbbtdins(gr_ptr->grtree, new_image, NULL); /* insert the new image into B-tree */ gr_ptr->gr_count++; Vdetach(img_key); } /* end if */ } /* end case */ break; case DFTAG_RIG: /* Older style raster image, found in RIG */ { int32 GroupID; uint16 elt_tag, elt_ref; ri_info_t *new_image; /* ptr to the image to read in */ char textbuf[VGNAMELENMAX + 1]; /* buffer to store the name in */ uint8 ntstring[4]; /* buffer to store NT info */ uint8 GRtbuf[64]; /* local buffer for reading RIG info */ /* read RIG into memory */ if ((GroupID = DFdiread(file_id, DFTAG_RIG, img_info[i].grp_ref)) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if((new_image=(ri_info_t *)HDmalloc(sizeof(ri_info_t)))==NULL) { HDfree(img_info); /* free offsets */ Hclose(file_id); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ /* Initialize all the fields in the image structure to zeros */ HDmemset(new_image,0,sizeof(ri_info_t)); /* Get the name of the image */ sprintf(textbuf,"Raster Image #%d",(int)i); if((new_image->name=(char *)HDmalloc(HDstrlen(textbuf)+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDstrcpy(new_image->name,textbuf); new_image->name_generated = TRUE; /* Initialize the local attribute tree */ new_image->lattree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (new_image->lattree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); new_image->ri_ref=DFREF_WILDCARD; new_image->rig_ref=img_info[i].grp_ref; while (DFdiget(GroupID, &elt_tag, &elt_ref)!=FAIL) { /* get next tag/ref */ switch (elt_tag) { /* process tag/ref */ case DFTAG_RI: /* regular image data */ new_image->img_tag=elt_tag; new_image->img_ref=elt_ref; if(SPECIALTAG(new_image->img_tag)==TRUE) { new_image->use_buf_drvr=1; } /* end if */ break; case DFTAG_CI: /* compressed image data */ new_image->img_tag=elt_tag; new_image->img_ref=elt_ref; new_image->use_buf_drvr=1; new_image->use_cr_drvr=1; break; case DFTAG_LUT: /* Palette */ new_image->lut_tag=elt_tag; new_image->lut_ref=elt_ref; /* Fill in some default palette dimension info, in case there isn't a DFTAG_LD for this palette */ if(new_image->lut_dim.dim_ref==0) { new_image->lut_dim.dim_ref = DFREF_WILDCARD; new_image->lut_dim.xdim=256; new_image->lut_dim.ydim=1; new_image->lut_dim.ncomps=3; new_image->lut_dim.nt=DFNT_UINT8; new_image->lut_dim.file_nt_subclass=DFNTF_HDFDEFAULT; new_image->lut_dim.il=MFGR_INTERLACE_PIXEL; new_image->lut_dim.nt_tag=DFTAG_NULL; new_image->lut_dim.nt_ref=DFREF_WILDCARD; new_image->lut_dim.comp_tag=DFTAG_NULL; new_image->lut_dim.comp_ref=DFREF_WILDCARD; } /* end if */ break; case DFTAG_LD: /* Palette dimensions */ if (Hgetelement(file_id, elt_tag, elt_ref, GRtbuf) != FAIL) { int16 int16var; uint8 *p; p = GRtbuf; INT32DECODE(p, new_image->lut_dim.xdim); INT32DECODE(p, new_image->lut_dim.ydim); UINT16DECODE(p, new_image->lut_dim.nt_tag); UINT16DECODE(p, new_image->lut_dim.nt_ref); INT16DECODE(p, int16var); new_image->lut_dim.ncomps=(int32)int16var; INT16DECODE(p, new_image->lut_dim.il); UINT16DECODE(p, new_image->lut_dim.comp_tag); UINT16DECODE(p, new_image->lut_dim.comp_ref); } else { DFdifree( GroupID ); HGOTO_ERROR(DFE_READERROR, FAIL); } /* read NT */ if (Hgetelement(file_id, new_image->lut_dim.nt_tag, new_image->lut_dim.nt_ref, ntstring) == FAIL) { DFdifree( GroupID ); HGOTO_ERROR(DFE_READERROR, FAIL); } /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) break; /* set NT info */ new_image->lut_dim.dim_ref = elt_ref; new_image->lut_dim.nt = (int32)ntstring[1]; new_image->lut_dim.file_nt_subclass = (int32)ntstring[3]; if ((new_image->lut_dim.file_nt_subclass != DFNTF_HDFDEFAULT) && (new_image->lut_dim.file_nt_subclass!= DFNTF_PC) && (new_image->lut_dim.file_nt_subclass!= DFKgetPNSC(new_image->lut_dim.nt, DF_MT))) break; /* unknown subclass */ if (new_image->lut_dim.file_nt_subclass!= DFNTF_HDFDEFAULT) { /* if native or little endian */ if (new_image->lut_dim.file_nt_subclass!= DFNTF_PC) /* native */ new_image->lut_dim.nt |= DFNT_NATIVE; else /* little endian */ new_image->lut_dim.nt |= DFNT_LITEND; } /* end if */ break; case DFTAG_ID: /* Image description info */ if (Hgetelement(file_id, elt_tag, elt_ref, GRtbuf) != FAIL) { int16 int16var; uint8 *p; p = GRtbuf; INT32DECODE(p, new_image->img_dim.xdim); INT32DECODE(p, new_image->img_dim.ydim); UINT16DECODE(p, new_image->img_dim.nt_tag); UINT16DECODE(p, new_image->img_dim.nt_ref); INT16DECODE(p, int16var); new_image->img_dim.ncomps=(int32)int16var; INT16DECODE(p, new_image->img_dim.il); UINT16DECODE(p, new_image->img_dim.comp_tag); UINT16DECODE(p, new_image->img_dim.comp_ref); } else { DFdifree( GroupID ); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* read NT */ if (Hgetelement(file_id, new_image->img_dim.nt_tag, new_image->img_dim.nt_ref, ntstring) == FAIL) { DFdifree( GroupID ); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) break; /* set NT info */ new_image->img_dim.dim_ref=elt_ref; new_image->img_dim.nt = (int32)ntstring[1]; new_image->img_dim.file_nt_subclass = (int32)ntstring[3]; if ((new_image->img_dim.file_nt_subclass != DFNTF_HDFDEFAULT) && (new_image->img_dim.file_nt_subclass!= DFNTF_PC) && (new_image->img_dim.file_nt_subclass!= DFKgetPNSC(new_image->img_dim.nt, DF_MT))) break; /* unknown subclass */ if (new_image->img_dim.file_nt_subclass!= DFNTF_HDFDEFAULT) { /* if native or little endian */ if (new_image->img_dim.file_nt_subclass!= DFNTF_PC) /* native */ new_image->img_dim.nt |= DFNT_NATIVE; else /* little endian */ new_image->img_dim.nt |= DFNT_LITEND; } /* end if */ break; default: /* ignore unknown tags */ break; } /* end switch */ } /* end while */ new_image->index=gr_ptr->gr_count; new_image->gr_ptr=gr_ptr; /* point up the tree */ tbbtdins(gr_ptr->grtree, new_image, NULL); /* insert the new image into B-tree */ gr_ptr->gr_count++; } /* end case */ break; case DFTAG_NULL: /* Eldest style raster image, no grouping */ { ri_info_t *new_image; /* ptr to the image to read in */ char textbuf[VGNAMELENMAX + 1]; /* buffer to store the name in */ uint8 GRtbuf[64]; /* local buffer for reading RIG info */ if((new_image=(ri_info_t *)HDmalloc(sizeof(ri_info_t)))==NULL) { HDfree(img_info); /* free offsets */ Hclose(file_id); HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ /* Initialize all the fields in the image structure to zeros */ HDmemset(new_image,0,sizeof(ri_info_t)); /* Get the name of the image */ sprintf(textbuf,"Raster Image #%d",(int)i); if((new_image->name=(char *)HDmalloc(HDstrlen(textbuf)+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDstrcpy(new_image->name,textbuf); new_image->name_generated = TRUE; /* Initialize the local attribute tree */ new_image->lattree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (new_image->lattree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); new_image->ri_ref=DFREF_WILDCARD; new_image->rig_ref=DFREF_WILDCARD; /* Get tag/ref for image */ new_image->img_tag=img_info[i].img_tag; new_image->img_ref=img_info[i].img_ref; /* Get dimension information */ if (Hgetelement(file_id, DFTAG_ID8, new_image->img_ref, GRtbuf) != FAIL) { uint8 *p; uint16 u; p = GRtbuf; UINT16DECODE(p, u); new_image->img_dim.xdim=(int32)u; UINT16DECODE(p, u); new_image->img_dim.ydim=(int32)u; } /* end if */ else HGOTO_ERROR(DFE_GETELEM, FAIL); /* only 8-bit images, so fill in rest of dim info */ new_image->img_dim.dim_ref=DFREF_WILDCARD; new_image->img_dim.ncomps=1; new_image->img_dim.nt=DFNT_UINT8; new_image->img_dim.file_nt_subclass=DFNTF_HDFDEFAULT; new_image->img_dim.il=MFGR_INTERLACE_PIXEL; new_image->img_dim.nt_tag=DFTAG_NULL; new_image->img_dim.nt_ref=DFREF_WILDCARD; new_image->img_dim.comp_tag=DFTAG_NULL; new_image->img_dim.comp_ref=DFREF_WILDCARD; /* Get palette information */ if(Hexist(file_id, DFTAG_IP8, new_image->img_ref)==SUCCEED) { new_image->lut_tag=DFTAG_IP8; new_image->lut_ref=new_image->img_ref; /* set palette dimensions too */ new_image->lut_dim.dim_ref = DFREF_WILDCARD; new_image->lut_dim.xdim=256; new_image->lut_dim.ydim=1; new_image->lut_dim.ncomps=3; new_image->lut_dim.nt=DFNT_UINT8; new_image->lut_dim.file_nt_subclass=DFNTF_HDFDEFAULT; new_image->lut_dim.il=MFGR_INTERLACE_PIXEL; new_image->lut_dim.nt_tag=DFTAG_NULL; new_image->lut_dim.nt_ref=DFREF_WILDCARD; new_image->lut_dim.comp_tag=DFTAG_NULL; new_image->lut_dim.comp_ref=DFREF_WILDCARD; } /* end if */ else new_image->lut_tag=new_image->lut_ref=DFREF_WILDCARD; new_image->index=gr_ptr->gr_count; new_image->gr_ptr=gr_ptr; /* point up the tree */ tbbtdins(gr_ptr->grtree, new_image, NULL); /* insert the new image into B-tree */ gr_ptr->gr_count++; } /* end case */ break; default: /* an image which was eliminated from the list of images */ break; } /* end switch */ } /* end if */ } /* end for */ HDfree(img_info); /* free offsets */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIget_image_list() */ /*-------------------------------------------------------------------------- NAME GRIil_convert PURPOSE Convert a buffer from one interlace to another. USAGE intn GRIil_convert(inbuf,inil,outbuf,outil,dims,ncomp,nt) const void * inbuf; IN: input buffer gr_interlace_t inil; IN: input buffer's interlace scheme void * outbuf; IN: output buffer gr_interlace_t outil; IN: output buffer's requested interlace scheme int32 dims[2]; IN: dimensions of the buffers int32 ncomp; IN: both buffer's number of components per pixel int32 nt; IN: both buffer's pixel number-type RETURNS Returns SUCCEED/FAIL DESCRIPTION This routine converts between PIXEL, LINE & COMPONENT interlacing schemes. All data written to the disk is written in PIXEL interlacing and converted to/from the user's buffers. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This routine does no parameter checking, it's assumed to be done at a higher layer. This routine also does not handle the case where the inbuf==outbuf, i.e. switching the interlace 'in-place'. More work would be required to enable this to be done. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRIil_convert(const void * inbuf,gr_interlace_t inil,void * outbuf, gr_interlace_t outil,int32 dims[2],int32 ncomp,int32 nt) { CONSTR(FUNC, "GRIil_convert"); /* for HERROR */ intn ret_value=SUCCEED; uintn pixel_size=(uintn)DFKNTsize((nt|DFNT_NATIVE)&(~DFNT_LITEND))*(uintn)ncomp; uintn comp_size=(uintn)DFKNTsize((nt|DFNT_NATIVE)&(~DFNT_LITEND)); const void * *in_comp_ptr=NULL; /* an array of pointers to each input component */ void * *out_comp_ptr=NULL; /* an array of pointers to each output component */ int32 *in_pixel_add=NULL; /* an array of increments for each input pixel moved */ int32 *out_pixel_add=NULL; /* an array of increments for each output pixel moved */ int32 *in_line_add=NULL; /* an array of increments for each input line moved */ int32 *out_line_add=NULL; /* an array of increments for each output line moved */ intn i,j,k; /* local counting variables */ if(inil==outil) /* check for trivial input=output 'conversion' */ HDmemcpy(outbuf,inbuf,(size_t)dims[XDIM]*(size_t)dims[YDIM]*(size_t)pixel_size); else { /* allocate pixel pointer arrays */ if((in_comp_ptr=HDmalloc(sizeof(void *)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if((out_comp_ptr=HDmalloc(sizeof(void *)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate pixel increment arrays */ if((in_pixel_add=HDmalloc(sizeof(int32)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if((out_pixel_add=HDmalloc(sizeof(int32)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate line increment arrays */ if((in_line_add=HDmalloc(sizeof(int32)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if((out_line_add=HDmalloc(sizeof(int32)*(size_t)ncomp))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Set up the input buffer pointers and adders */ switch(inil) { case MFGR_INTERLACE_PIXEL: for(i=0; iaccess==0) { /* Fire up the Vset interface */ if(Vstart(hdf_file_id)==FAIL) HGOTO_ERROR(DFE_CANTINIT,FAIL); /* Initialize the starting information for the interface */ gr_ptr->hdf_file_id=hdf_file_id; gr_ptr->gr_ref=DFREF_WILDCARD; gr_ptr->gr_count=0; gr_ptr->grtree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (gr_ptr->grtree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); gr_ptr->gr_modified=0; gr_ptr->gattr_count=0; gr_ptr->gattree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (gr_ptr->gattree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); gr_ptr->gattr_modified=0; gr_ptr->attr_cache=GR_ATTR_THRESHHOLD; /* Go get all the images and attributes in the file */ if(GRIget_image_list(hdf_file_id,gr_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end else */ gr_ptr->access++; /* Return handle to the GR interface to the user */ ret_value=HAregister_atom(GRIDGROUP,gr_ptr); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRstart() */ /*-------------------------------------------------------------------------- NAME GRfileinfo PURPOSE Report high-level information about the GR*() interface for a given file. USAGE intn GRfileinfo(grid, n_datasets, n_attrs) int32 grid; IN: GR ID to get information about int32 *n_datasets; OUT: the # of GR datasets in a file int32 *n_attrs; OUT: the # of "global" GR attributes RETURNS SUCCEED/FAIL DESCRIPTION Reports general information about the number of datasets and "global" attributes for the GR interface. This routine is generally used to find the range of acceptable indices for GRselect calls. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRfileinfo(int32 grid,int32 *n_datasets,int32 *n_attrs) { CONSTR(FUNC, "GRfileinfo"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for a file */ intn ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); /* check the validity of the GR ID */ if (HAatom_group(grid)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); /* Get the number of datasets & global attributes from the memory structures */ if(n_datasets!=NULL) *n_datasets=gr_ptr->gr_count; if(n_attrs!=NULL) *n_attrs=gr_ptr->gattr_count; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRfileinfo() */ /*-------------------------------------------------------------------------- NAME GRIupdatemeta PURPOSE Internal routine to update the meta-data for an image USAGE intn GRIupdatemeta(hdf_file_id,img_ptr) int32 hdf_file_id; IN: the file ID for the HDF file. ri_info_t *img_ptr; IN: pointer to the image info for the image to write. RETURNS SUCCEED/FAIL DESCRIPTION Write out the meta-information about an image (& palette) to an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Shared by both GRIupdateRIG() and GRIupdateRI() calls. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIupdatemeta(int32 hdf_file_id,ri_info_t *img_ptr) { CONSTR(FUNC, "GRIupdatemeta"); /* for HERROR */ uint8 GRtbuf[64]; /* local buffer for reading RIG info */ uint8 ntstring[4]; /* temporary storage for the number type information */ uint8 *p; /* temporary pointer into buffer */ intn ret_value = SUCCEED; HEclear(); if (!HDvalidfid(hdf_file_id) || img_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Weird test below to allow for tag/ref values of zero. (I'll spare */ /* everyone my rant about why DFTAG_NULL should have been made zero */ /* instead of one... QAK) */ if(img_ptr->img_dim.nt_tag<=(uint16)DFTAG_NULL) img_ptr->img_dim.nt_tag=DFTAG_NT; if(img_ptr->img_dim.nt_ref==DFREF_WILDCARD) img_ptr->img_dim.nt_ref=Htagnewref(hdf_file_id,img_ptr->img_dim.nt_tag); /* Write out the raster image's number-type record */ ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = (uint8)img_ptr->img_dim.nt; /* type */ ntstring[2] = (uint8)(DFKNTsize(img_ptr->img_dim.nt)*8); /* width: RIG data is 8-bit chars */ ntstring[3] = DFNTC_BYTE; /* class: data are numeric values */ if (Hputelement(hdf_file_id, img_ptr->img_dim.nt_tag, img_ptr->img_dim.nt_ref, ntstring, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); /* Check for a palette with this image */ if(img_ptr->lut_ref!=DFREF_WILDCARD) { /* Write out the palette number-type */ if(img_ptr->lut_dim.nt_tag<=(uint16)DFTAG_NULL) img_ptr->lut_dim.nt_tag=DFTAG_NT; if(img_ptr->lut_dim.nt_ref==DFREF_WILDCARD) img_ptr->lut_dim.nt_ref=Htagnewref(hdf_file_id,img_ptr->lut_dim.nt_tag); ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = DFNT_UCHAR; /* type */ ntstring[2] = 8; /* width: RIG data is 8-bit chars */ ntstring[3] = DFNTC_BYTE; /* class: data are numeric values */ if (Hputelement(hdf_file_id, img_ptr->lut_dim.nt_tag, img_ptr->lut_dim.nt_ref, ntstring, (int32)4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); /* Write out the palette dimensions */ p = GRtbuf; INT32ENCODE(p, img_ptr->lut_dim.xdim); INT32ENCODE(p, img_ptr->lut_dim.ydim); UINT16ENCODE(p, img_ptr->lut_dim.nt_tag); UINT16ENCODE(p, img_ptr->lut_dim.nt_ref); INT16ENCODE(p, img_ptr->lut_dim.ncomps); /* Currently all data is written out in 'pixel' interlace, so force the */ /* interlace stored on disk to match, instead of the interlacing that the */ /* user created the image with. -QAK */ #ifdef LATER INT16ENCODE(p, img_ptr->lut_dim.il); #else /* LATER */ INT16ENCODE(p, (int16)MFGR_INTERLACE_PIXEL); #endif /* LATER */ UINT16ENCODE(p, img_ptr->lut_dim.comp_tag); UINT16ENCODE(p, img_ptr->lut_dim.comp_ref); if(img_ptr->lut_dim.dim_ref==DFREF_WILDCARD) img_ptr->lut_dim.dim_ref=Htagnewref(hdf_file_id,DFTAG_LD); if (Hputelement(hdf_file_id, DFTAG_LD, img_ptr->lut_dim.dim_ref, GRtbuf, (int32)(p-GRtbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); } /* end if */ /* Write out the image dimensions */ p = GRtbuf; INT32ENCODE(p, img_ptr->img_dim.xdim); INT32ENCODE(p, img_ptr->img_dim.ydim); UINT16ENCODE(p, img_ptr->img_dim.nt_tag); UINT16ENCODE(p, img_ptr->img_dim.nt_ref); INT16ENCODE(p, img_ptr->img_dim.ncomps); /* Currently all data is written out in 'pixel' interlace, so force the */ /* interlace stored on disk to match, instead of the interlacing that the */ /* user created the image with. -QAK */ #ifdef LATER INT16ENCODE(p, img_ptr->img_dim.il); #else /* LATER */ INT16ENCODE(p, (int16)MFGR_INTERLACE_PIXEL); #endif /* LATER */ UINT16ENCODE(p, img_ptr->img_dim.comp_tag); UINT16ENCODE(p, img_ptr->img_dim.comp_ref); if(img_ptr->img_dim.dim_ref==DFREF_WILDCARD) img_ptr->img_dim.dim_ref=Htagnewref(hdf_file_id,DFTAG_ID); if (Hputelement(hdf_file_id, DFTAG_ID, img_ptr->img_dim.dim_ref, GRtbuf, (int32)(p-GRtbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIupdatemeta() */ /*-------------------------------------------------------------------------- NAME GRIupdateRIG PURPOSE Internal routine to update the RIG for an image USAGE intn GRIupdateRIG(hdf_file_id,img_ptr) int32 hdf_file_id; IN: the file ID for the HDF file. ri_info_t *img_ptr; IN: pointer to the image info for the image to write. RETURNS SUCCEED/FAIL DESCRIPTION Write out the RIG structure to an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIupdateRIG(int32 hdf_file_id,ri_info_t *img_ptr) { CONSTR(FUNC, "GRIupdateRIG"); /* for HERROR */ int32 GroupID; /* RIG id for group interface */ intn ret_value = SUCCEED; HEclear(); if (!HDvalidfid(hdf_file_id) || img_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Don't write out a RIG, unless it is compatible with the older RIGS */ /* which already exist. This is to guarantee compatibility with older */ /* software, both application and in the library */ if(img_ptr->img_dim.nt!=DFNT_UINT8 || (img_ptr->img_dim.ncomps!=1 && img_ptr->img_dim.ncomps!=3)) { ret_value =(SUCCEED); /* lie and say it's ok - QAK */ goto done; } /* Write out the image/palette meta-information */ if (GRIupdatemeta(hdf_file_id,img_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Write out the RIG itself */ if ((GroupID = DFdisetup(6)) == FAIL) /* max 6 tag/refs in set */ HGOTO_ERROR(DFE_GROUPSETUP, FAIL); /* add image dimension tag/ref to RIG */ if (DFdiput(GroupID, DFTAG_ID, (uint16) img_ptr->img_dim.dim_ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* add image data tag/ref to RIG */ if (DFdiput(GroupID, img_ptr->img_tag, img_ptr->img_ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* Check if we should write palette information */ if(img_ptr->lut_ref!=DFREF_WILDCARD) { /* add palette dimension tag/ref to RIG */ if (DFdiput(GroupID, DFTAG_LD, (uint16) img_ptr->lut_dim.dim_ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* add palette data tag/ref to RIG */ if (DFdiput(GroupID, img_ptr->lut_tag, img_ptr->lut_ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } /* end if */ /* write out RIG */ if(img_ptr->rig_ref==DFTAG_WILDCARD) img_ptr->rig_ref=Htagnewref(hdf_file_id,DFTAG_RIG); if(DFdiwrite(hdf_file_id, GroupID, DFTAG_RIG, img_ptr->rig_ref)==FAIL) HGOTO_ERROR(DFE_GROUPWRITE, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIupdateRIG() */ /*-------------------------------------------------------------------------- NAME GRIupdateRI PURPOSE Internal routine to update the RI Vgroup for an image USAGE intn GRIupdateRI(hdf_file_id,img_ptr) int32 hdf_file_id; IN: the file ID for the HDF file. ri_info_t *img_ptr; IN: pointer to the image info for the image to write. RETURNS SUCCEED/FAIL DESCRIPTION Write out the RI Vgroup to an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIupdateRI(int32 hdf_file_id,ri_info_t *img_ptr) { CONSTR(FUNC, "GRIupdateRI"); /* for HERROR */ int32 GroupID; /* RI vgroup id */ intn ret_value = SUCCEED; int32 temp_ref; /* used to hold the returned value from a function that may return a ref or a FAIL - BMR */ HEclear(); if (!HDvalidfid(hdf_file_id) || img_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Write out the image/palette meta-information */ if (GRIupdatemeta(hdf_file_id,img_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Write out the RI Vgroup itself */ if ((GroupID = Vattach(hdf_file_id,(img_ptr->ri_ref!=DFREF_WILDCARD ? img_ptr->ri_ref : -1),"w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* grab the ref. # of the new Vgroup */ if(img_ptr->ri_ref==DFREF_WILDCARD) { /* due to uint16 type of ref, check return value of VQueryref and assign it to ri_ref only when it's not FAIL - BMR */ temp_ref = VQueryref (GroupID); if(temp_ref == FAIL) HGOTO_ERROR(DFE_BADREF,FAIL); img_ptr->ri_ref = (uint16)temp_ref; } /* Set the name of the RI */ if(img_ptr->name!=NULL) if(Vsetname(GroupID,img_ptr->name)==FAIL) HGOTO_ERROR(DFE_BADVSNAME,FAIL); /* Set the class of the RI group */ if(Vsetclass(GroupID,RI_NAME)==FAIL) HGOTO_ERROR(DFE_BADVSNAME,FAIL); /* add image dimension tag/ref to RIG */ if (Vaddtagref(GroupID, DFTAG_ID, (int32)img_ptr->img_dim.dim_ref) == FAIL) HGOTO_ERROR(DFE_CANTADDELEM, FAIL); /* If we don't have a tag for the image, just use DFTAG_RI for now */ if(img_ptr->img_tag==DFTAG_NULL) img_ptr->img_tag=DFTAG_RI; /* If we don't have a ref for the image, generate a new one */ if(img_ptr->img_ref==DFREF_WILDCARD) { int32 temp_aid; /* Assign reference number for image */ img_ptr->img_ref=Htagnewref(hdf_file_id,img_ptr->img_tag); /* Make certain that the tag/ref pair is allocated in the file */ if((temp_aid=Hstartaccess(hdf_file_id,img_ptr->img_tag,img_ptr->img_ref,DFACC_WRITE))==FAIL) HGOTO_ERROR(DFE_CANTADDELEM, FAIL); Hendaccess(temp_aid); } /* end if */ /* add image data tag/ref to RIG */ if (Vaddtagref(GroupID, (int32)img_ptr->img_tag, (int32)img_ptr->img_ref) == FAIL) HGOTO_ERROR(DFE_CANTADDELEM, FAIL); /* Check if we should write palette information */ if(img_ptr->lut_ref!=DFREF_WILDCARD) { /* add palette dimension tag/ref to RIG */ if (Vaddtagref(GroupID, DFTAG_LD, (int32)img_ptr->lut_dim.dim_ref) == FAIL) HGOTO_ERROR(DFE_CANTADDELEM, FAIL); /* add palette data tag/ref to RIG */ if (Vaddtagref(GroupID, (int32)img_ptr->lut_tag, (int32)img_ptr->lut_ref) == FAIL) HGOTO_ERROR(DFE_CANTADDELEM, FAIL); } /* end if */ /* write out RIG */ if(Vdetach(GroupID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIupdateRI() */ /*-------------------------------------------------------------------------- NAME GRIup_attr_data PURPOSE Internal routine to update/create the attribute data USAGE intn GRIup_attr_data(hdf_file_id,attr_ptr) int32 hdf_file_id; IN: the file ID for the HDF file. at_info_t *attr_ptr; IN: pointer to the attribute info for the attr. to write. RETURNS SUCCEED/FAIL DESCRIPTION Write out the data for an attribute to an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIup_attr_data(int32 hdf_file_id,at_info_t *attr_ptr) { CONSTR(FUNC, "GRIup_attr_data"); /* for HERROR */ intn ret_value = SUCCEED; HEclear(); if (!HDvalidfid(hdf_file_id) || attr_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Write out the attribute data */ if (attr_ptr->ref==DFREF_WILDCARD) /* create a new attribute */ { if((attr_ptr->ref=(uint16)VHstoredata(hdf_file_id,attr_ptr->name,attr_ptr->data, attr_ptr->len,attr_ptr->nt,RIGATTRNAME,RIGATTRCLASS))==(uint16)FAIL) HGOTO_ERROR(DFE_VSCANTCREATE,FAIL); attr_ptr->new_at=TRUE; } /* end if */ else /* update an existing one */ { int32 AttrID; /* attribute Vdata id */ if((AttrID=VSattach(hdf_file_id,(int32)attr_ptr->ref,"w"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if(VSsetfields(AttrID,attr_ptr->name)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_BADFIELDS,FAIL); } /* end if */ if(VSwrite(AttrID,attr_ptr->data,attr_ptr->len,FULL_INTERLACE)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_VSWRITE,FAIL); } /* end if */ if(VSdetach(AttrID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); } /* end else */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIup_attr_data() */ /*-------------------------------------------------------------------------- NAME GRend PURPOSE Terminate the GR*() interface for a given HDF file. USAGE intn GRend(grid) int32 grid; IN: GR ID from GRstart RETURNS SUCCEED/FAIL DESCRIPTION Terminates access to the GR*() interface for a specific file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRend(int32 grid) { CONSTR(FUNC, "GRend"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID */ int32 GroupID; /* VGroup ID for the GR group */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ filerec_t *file_rec; /* File record */ void * *t1; intn ret_value = SUCCEED; int32 temp_ref; /* used to hold the returned value from a function that may return a ref or a FAIL - BMR */ /* clear error stack and check validity of file id */ HEclear(); /* check the validity of the GR ID */ if (HAatom_group(grid)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); if (--gr_ptr->access) HGOTO_DONE(SUCCEED); hdf_file_id=gr_ptr->hdf_file_id; file_rec = HAatom_object(hdf_file_id); if(((file_rec->access)&DFACC_WRITE)!=0) { /* Check if the GR group exists, and create it if not */ if(gr_ptr->gr_ref==DFREF_WILDCARD) { if((GroupID=Vattach(gr_ptr->hdf_file_id,-1,"w"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); /* due to uint16 type of ref, check return value of VQueryref then assign it to gr_ref only when it's not FAIL */ temp_ref = VQueryref(GroupID); if(temp_ref == FAIL) HGOTO_ERROR (DFE_NOVALS,FAIL); gr_ptr->gr_ref = (uint16)temp_ref; if(Vsetname(GroupID,GR_NAME)==FAIL) HGOTO_ERROR(DFE_BADVSNAME,FAIL); if(Vsetclass(GroupID,GR_NAME)==FAIL) HGOTO_ERROR(DFE_BADVSNAME,FAIL); } /* end if */ else { if((GroupID=Vattach(gr_ptr->hdf_file_id,(int32)gr_ptr->gr_ref,"w"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); } /* end else */ /* Write out the information for RIs which have been changed */ if(gr_ptr->gr_modified==TRUE && gr_ptr->gr_count>0) { void * *t2; ri_info_t *img_ptr; /* ptr to the image */ if (NULL == (t2 = (void **)tbbtfirst((TBBT_NODE *) * (gr_ptr->grtree)))) { HGOTO_ERROR(DFE_NOTINTABLE, FAIL); } /* end if */ else img_ptr = (ri_info_t *) * t2; /* get actual pointer to the ri_info_t */ /* cycle through all of the images in memory */ while (t2!=NULL) { /* check if the image data has been modified */ if(img_ptr->data_modified==TRUE) { /* do nothing currently, we are synchronously updating the image data */ img_ptr->data_modified=FALSE; } /* end if */ /* check if the image meta-info has been modified */ if(img_ptr->meta_modified==TRUE) { /* Test if the tag/ref pair has been assigned yet */ if(img_ptr->img_tag==DFTAG_NULL || img_ptr->img_ref==DFREF_WILDCARD) { img_ptr->img_tag=DFTAG_RI; } /* end if */ /* write out the RI/RIG information again */ if(GRIupdateRIG(gr_ptr->hdf_file_id,img_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(GRIupdateRI(gr_ptr->hdf_file_id,img_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); img_ptr->meta_modified=FALSE; } /* end if */ /* check if the local attributes has been modified */ if(img_ptr->attr_modified==TRUE && img_ptr->lattr_count>0) { void * *t3; at_info_t *attr_ptr; /* ptr to the attribute */ if (NULL == (t3 = (void **)tbbtfirst((TBBT_NODE *) * (img_ptr->lattree)))) { HGOTO_ERROR(DFE_NOTINTABLE, FAIL); } /* end if */ else attr_ptr = (at_info_t *) * t3; /* get actual pointer to the at_info_t */ /* cycle through all of the local attributes in memory */ while (t3!=NULL) { /* check if the attribute data has been modified */ if(attr_ptr->data_modified==TRUE) { if(GRIup_attr_data(gr_ptr->hdf_file_id,attr_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); attr_ptr->data_modified=FALSE; } /* end if */ /* check if the attribute was added to the group */ if(attr_ptr->new_at==TRUE) { int32 lGroupID; /* ID of the Vgroup */ if((lGroupID=Vattach(gr_ptr->hdf_file_id,(int32)img_ptr->ri_ref,"w"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if(Vaddtagref(lGroupID,ATTR_TAG,(int32)attr_ptr->ref)==FAIL) HGOTO_ERROR(DFE_CANTADDELEM,FAIL); if(Vdetach(lGroupID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); attr_ptr->new_at=FALSE; } /* end if */ /* get the next local attribute in the tree/list */ if (NULL != (t3 = (void **)tbbtnext((TBBT_NODE *) t3))) /* get the next node in the tree */ attr_ptr = (at_info_t *) * t3; /* get actual pointer to the at_info_t */ } /* end while */ img_ptr->attr_modified=FALSE; } /* end if */ /* Check if the RI is already in the GR, add it if not */ if(Vinqtagref(GroupID,RI_TAG,(int32)img_ptr->ri_ref)==FALSE) if(Vaddtagref(GroupID,RI_TAG,(int32)img_ptr->ri_ref)==FAIL) HGOTO_ERROR(DFE_CANTADDELEM,FAIL); /* get the next image in the tree/list */ if (NULL != (t2 = (void **)tbbtnext((TBBT_NODE *) t2))) /* get the next node in the tree */ img_ptr = (ri_info_t *) * t2; /* get actual pointer to the ri_info_t */ } /* end while */ } /* end if */ /* Write out the information for the global attributes which have been changed */ if(gr_ptr->gattr_modified==TRUE && gr_ptr->gattr_count>0) { void * *t2; at_info_t *attr_ptr; /* ptr to the attribute */ if (NULL == (t2 = (void **)tbbtfirst((TBBT_NODE *) * (gr_ptr->gattree)))) { HGOTO_ERROR(DFE_NOTINTABLE, FAIL); } /* end if */ else attr_ptr = (at_info_t *) * t2; /* get actual pointer to the at_info_t */ /* cycle through all of the global attributes in memory */ while (t2!=NULL) { /* check if the attribute data has been modified */ if(attr_ptr->data_modified==TRUE) { if(GRIup_attr_data(gr_ptr->hdf_file_id,attr_ptr)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); attr_ptr->data_modified=FALSE; /* check if the attribute was a new attribute */ if(attr_ptr->new_at==TRUE) { if(Vaddtagref(GroupID,ATTR_TAG,(int32)attr_ptr->ref)==FAIL) HGOTO_ERROR(DFE_CANTADDELEM,FAIL); attr_ptr->new_at=FALSE; } /* end if */ } /* end if */ /* get the next global attribute in the tree/list */ if (NULL != (t2 = (void **)tbbtnext((TBBT_NODE *) t2))) /* get the next node in the tree */ attr_ptr = (at_info_t *) * t2; /* get actual pointer to the at_info_t */ } /* end while */ gr_ptr->gattr_modified=FALSE; } /* end if */ /* Let go of the GR Vgroup */ if(Vdetach(GroupID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); } /* end if */ /* Free all the memory we've allocated */ tbbtdfree(gr_ptr->grtree, GRIridestroynode, NULL); tbbtdfree(gr_ptr->gattree, GRIattrdestroynode, NULL); /* Close down the entry for this file in the GR tree */ /* Find the node in the tree */ if (( t1 = (void **)tbbtdfind(gr_tree, &hdf_file_id, NULL)) == NULL) HGOTO_DONE(FAIL); /* Delete the node and free the gr_info_t stucture */ tbbtrem((TBBT_NODE **) gr_tree, (TBBT_NODE *) t1, NULL); HDfree(gr_ptr); /* Close down the Vset routines we started */ if(Vend(hdf_file_id)==FAIL) HGOTO_ERROR(DFE_CANTSHUTDOWN,FAIL); if (NULL == HAremove_atom(grid)) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRend() */ /*-------------------------------------------------------------------------- NAME GRselect PURPOSE Select a raster image to operate on. USAGE int32 GRselect(grid,index) int32 grid; IN: GR ID from GRstart int32 index; IN: Which raster image to select (indexed from 0) RETURNS A valid riid (Raster-Image ID) on success, or FAIL. DESCRIPTION Selects a raster image from the file to work on. This ID is needed for all operations on the image dataset, including reading/writing data, annotations, etc. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRselect(int32 grid,int32 index) { CONSTR(FUNC, "GRselect"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ int32 ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); /* check the validity of the GR ID */ if (HAatom_group(grid)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); /* check the index range validity */ if(!VALIDRIINDEX(index,gr_ptr)) HGOTO_ERROR(DFE_ARGS, FAIL); if((t = (void **)tbbtdfind(gr_ptr->grtree, &index, NULL))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); ri_ptr=(ri_info_t *)*t; ri_ptr->access++; ret_value=HAregister_atom(RIIDGROUP,ri_ptr); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRselect() */ /*-------------------------------------------------------------------------- NAME GRcreate PURPOSE Create a new raster image. USAGE int32 GRcreate(grid, name, ncomp, nt, il, dimsizes) int32 grid; IN: GR ID from GRstart char *name; IN: Name of raster image to create int32 ncomp; IN: Number of components in image int32 nt; IN: Number type of each component int32 il; IN: Interlace of the components in the image int32 dimsizes[2]; IN: Dimensions of the new image RETURNS A valid riid (Raster-Image ID) on success, or FAIL. DESCRIPTION Creates a new raster image in a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS All components must be the same number-type. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRcreate(int32 grid,const char *name,int32 ncomp,int32 nt,int32 il,int32 dimsizes[2]) { CONSTR(FUNC, "GRcreate"); /* for HERROR */ int32 GroupID; /* ID of the Vgroup created */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 ret_value = SUCCEED; int32 temp_ref; /* used to hold the returned value from a function that may return a ref or a FAIL - BMR */ /* clear error stack */ HEclear(); /* check the validity of the args */ if (HAatom_group(grid)!=GRIDGROUP || name==NULL || ncomp<1 || (il!=MFGR_INTERLACE_PIXEL && il!=MFGR_INTERLACE_LINE && il!=MFGR_INTERLACE_COMPONENT) || dimsizes==NULL || dimsizes[0]<=0 || dimsizes[1]<=0) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); /* Allocate space for the new image information */ if((ri_ptr=(ri_info_t *)HDmalloc(sizeof(ri_info_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDmemset(ri_ptr,0,sizeof(ri_info_t)); /* Allocate space for the name and copy it */ if((ri_ptr->name=(char *)HDmalloc(HDstrlen(name)+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDstrcpy(ri_ptr->name,name); /* Assign image information */ ri_ptr->index=gr_ptr->gr_count; #ifdef OLD_WAY ri_ptr->ri_ref=DFREF_WILDCARD; #else /* OLD_WAY */ if ((GroupID = Vattach(gr_ptr->hdf_file_id,-1,"w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* due to uint16 type of ref, check return value of VQueryref and assign it to ri_ref only when it's not FAIL - BMR */ temp_ref = VQueryref(GroupID); if(temp_ref == FAIL) HGOTO_ERROR(DFE_BADREF, FAIL); ri_ptr->ri_ref = (uint16)temp_ref; if(Vdetach(GroupID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH, FAIL); #endif /* OLD_WAY */ ri_ptr->rig_ref=DFREF_WILDCARD; ri_ptr->gr_ptr=gr_ptr; ri_ptr->img_dim.dim_ref=DFREF_WILDCARD; ri_ptr->img_dim.xdim=dimsizes[XDIM]; ri_ptr->img_dim.ydim=dimsizes[YDIM]; ri_ptr->img_dim.ncomps=ncomp; ri_ptr->img_dim.nt=nt; ri_ptr->img_dim.file_nt_subclass=DFNTF_HDFDEFAULT; ri_ptr->img_dim.il=(gr_interlace_t)il; ri_ptr->img_dim.nt_tag=ri_ptr->img_dim.nt_ref=DFREF_WILDCARD; ri_ptr->img_dim.comp_tag=ri_ptr->img_dim.comp_ref=DFREF_WILDCARD; ri_ptr->img_tag=ri_ptr->img_ref=DFREF_WILDCARD; ri_ptr->img_aid=0; ri_ptr->acc_perm=0; ri_ptr->lut_tag=ri_ptr->lut_ref=DFREF_WILDCARD; ri_ptr->im_il=MFGR_INTERLACE_PIXEL; ri_ptr->lut_il=MFGR_INTERLACE_PIXEL; ri_ptr->data_modified=FALSE; ri_ptr->meta_modified=TRUE; ri_ptr->attr_modified=FALSE; ri_ptr->lattr_count=0; ri_ptr->lattree = tbbtdmake(rigcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if(ri_ptr->lattree==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ri_ptr->use_buf_drvr=FALSE; ri_ptr->use_cr_drvr=FALSE; ri_ptr->comp_img=FALSE; ri_ptr->ext_img=FALSE; ri_ptr->acc_img=FALSE; ri_ptr->fill_img=TRUE; ri_ptr->fill_value=NULL; ri_ptr->store_fill=FALSE; ri_ptr->access++; /* insert the new image in the global image tree */ tbbtdins(gr_ptr->grtree, ri_ptr, NULL); /* insert the new image into B-tree */ /* indicate that the GR info has changed */ gr_ptr->gr_modified=TRUE; gr_ptr->gr_count++; ret_value=HAregister_atom(RIIDGROUP,ri_ptr); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRcreate() */ /*-------------------------------------------------------------------------- NAME GRnametoindex PURPOSE Map a raster image name to an index. USAGE int32 GRnametoindex(grid,name) int32 grid; IN: GR ID from GRstart char *name; IN: Name of raster image to search for RETURNS A valid index on success, or FAIL. DESCRIPTION Searches for a raster image based on the name provided. This routine maps from names of raster images to indices inside the GR group. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRnametoindex(int32 grid,const char *name) { CONSTR(FUNC, "GRnametoindex"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ int32 ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); /* check the validity of the GR ID */ if (HAatom_group(grid)!=GRIDGROUP || name==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); if((t = (void **)tbbtfirst((TBBT_NODE *)* (gr_ptr->grtree)))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); do { ri_ptr=(ri_info_t *)*t; if(ri_ptr!=NULL && HDstrcmp(ri_ptr->name,name)==0) /* ie. the name matches */ HGOTO_DONE(ri_ptr->index); } while((t= (void **)tbbtnext((TBBT_NODE *)t))!=NULL); ret_value = (FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRnametoindex() */ /*-------------------------------------------------------------------------- NAME GRgetiminfo PURPOSE Gets information about a raster image. USAGE intn GRgetiminfo(riid,name,ncomp,nt,il,dimsizes,n_attr) int32 riid; IN: RI ID from GRselect/GRcreate char *name; OUT: name of raster image int32 *ncomp; OUT: number of components in image int32 *nt; OUT: number type of components int32 *il; OUT: interlace of the image int32 *dimsizes; OUT: size of each dimension int32 *n_attr; OUT: the number of attributes for the image RETURNS SUCCEED/FAIL DESCRIPTION Looks up information about an image which has been selected or created with the GR routines. Each of the parameters can be NULL, in which case that piece of information will not be retrieved. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRgetiminfo(int32 riid,char *name,int32 *ncomp,int32 *nt,int32 *il, int32 dimsizes[2],int32 *n_attr) { CONSTR(FUNC, "GRgetiminfo"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); if(name!=NULL) HDstrcpy(name, ri_ptr->name); if(ncomp!=NULL) *ncomp=ri_ptr->img_dim.ncomps; if(nt!=NULL) *nt=ri_ptr->img_dim.nt; if(il!=NULL) *il=(int32)ri_ptr->img_dim.il; if(dimsizes!=NULL) { dimsizes[0]=ri_ptr->img_dim.xdim; dimsizes[1]=ri_ptr->img_dim.ydim; } /* end if */ if(n_attr!=NULL) *n_attr=ri_ptr->lattr_count; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetiminfo() */ /*-------------------------------------------------------------------------- NAME GRgetnluts PURPOSE Get the number of palettes (LUTs) for an image USAGE intn GRgetnluts(riid) int32 riid; IN: RI ID from GRselect/GRcreate RETURNS The number of palettes on success, FAIL (-1) on failure DESCRIPTION Determines the number of palettes for an image (0 or 1 for now). In the future, if multiple palettes are supported, this function may return values greater than 1. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRgetnluts(int32 riid) { CONSTR(FUNC, "GRgetnluts"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = FAIL; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate LUT's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); if(ri_ptr->lut_ref==DFREF_WILDCARD) /* check for no palette defined currently */ ret_value=0; else /* we've got a valid palette currently */ ret_value=1; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetnluts() */ /*-------------------------------------------------------------------------- NAME GRwriteimage PURPOSE Writes raster data to an image USAGE intn GRwriteimage(riid,start,stride,edge,data) int32 riid; IN: RI ID from GRselect/GRcreate int32 start[2]; IN: array containing the offset in the image of the image data to write out int32 stride[2]; IN: array containing interval of data being written along each edge. strides of 0 are illegal (and generate an error) ie. stride of 1 in each dimension means writing contiguous data, stride of 2 means writing every other element out along an edge. int32 count[2]; IN: number of elements to write out along each edge. void * data; IN: pointer to the data to write out. RETURNS SUCCEED/FAIL DESCRIPTION Writes image data to an RI. Partial dataset writing and subsampling is allowed, but only within the dimensions of the dataset (ie. no UNLIMITED dimension support) GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If the stride parameter is set to NULL, a stride of 1 will be assumed. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRwriteimage(int32 riid,int32 start[2],int32 in_stride[2],int32 count[2],void * data) { CONSTR(FUNC, "GRwriteimage"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID */ int32 stride[2]; /* pointer to the stride array */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn solid_block=FALSE; /* whether the image data is a solid block of data */ intn whole_image=FALSE; /* whether we are writing out the whole image */ void * *img_data; /* pointer to the converted image data to write */ uintn pixel_mem_size, /* size of a pixel in memory */ pixel_disk_size; /* size of a pixel on disk */ uint16 scheme; /* compression scheme used for JPEG images */ uint32 comp_config; comp_coder_t comp_type; comp_info cinfo; intn status=FAIL; intn convert=FALSE; /* true if machine NT != NT to be written */ uint8 platnumsubclass; /* class of this NT for this platform */ intn new_image=FALSE; /* whether we are writing a new image out */ intn switch_interlace=FALSE;/* whether the memory interlace needs to be switched around */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the basic validity of the args (stride is OK to be NULL) */ if (HAatom_group(riid)!=RIIDGROUP || start==NULL /* || in_stride==NULL */ || count==NULL || data==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the correct parameters into the stride array */ if(in_stride==NULL) stride[XDIM]=stride[YDIM]=1; else { stride[XDIM]=in_stride[XDIM]; stride[YDIM]=in_stride[YDIM]; } /* end else */ /* Sanity check the start, stride, and count args */ if((start[XDIM]<0 || start[YDIM]<0) || (stride[XDIM]<1 || stride[YDIM]<1) || (count[XDIM]<1 || count[YDIM]<1)) HGOTO_ERROR(DFE_BADDIM, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); gr_ptr=ri_ptr->gr_ptr; hdf_file_id=gr_ptr->hdf_file_id; comp_type = COMP_CODE_NONE; scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { comp_type = COMP_CODE_JPEG; cinfo.jpeg.quality = 0; cinfo.jpeg.force_baseline = 0; } else if (scheme == DFTAG_IMC) { /* coder no longer supported */ HGOTO_ERROR(DFE_BADCODER,FAIL); } else { /* use lower-level routine to get the compression information */ status = HCPgetcompinfo(ri_ptr->gr_ptr->hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, &comp_type, &cinfo); if (status == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } if (comp_type != COMP_CODE_NONE) { /* Check that the compression encoder is available */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER,FAIL); } if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_NOENCODER,FAIL); } } if(stride[XDIM]==1 && stride[YDIM]==1) { /* solid block of data */ solid_block=TRUE; if((start[XDIM]==0 && start[YDIM]==0) && (count[XDIM]==ri_ptr->img_dim.xdim && count[YDIM]==ri_ptr->img_dim.ydim)) whole_image=TRUE; else whole_image=FALSE; } /* end if */ else /* block of data spread out with strides */ solid_block=FALSE; if(ri_ptr->img_dim.il!=MFGR_INTERLACE_PIXEL) switch_interlace=TRUE; /* Get the size of the pixels in memory and on disk */ pixel_mem_size=(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize((ri_ptr->img_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); pixel_disk_size=(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); /* Get number-type and conversion information */ platnumsubclass = (uint8)DFKgetPNSC(ri_ptr->img_dim.nt & (~DFNT_LITEND), DF_MT); convert = (ri_ptr->img_dim.file_nt_subclass != platnumsubclass) || (pixel_mem_size != pixel_disk_size); /* is conversion necessary? */ if(convert || switch_interlace==TRUE) { /* convert image data to HDF disk format */ /* Allocate space for the conversion buffer */ if((img_data=HDmalloc(pixel_disk_size*(size_t)count[XDIM]*(size_t)count[YDIM]))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if(switch_interlace==TRUE) { void * pixel_buf; /* buffer for the pixel interlaced data */ /* Allocate space for the conversion buffer */ if((pixel_buf=HDmalloc(pixel_mem_size*(size_t)count[XDIM]*(size_t)count[YDIM]))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); GRIil_convert(data,ri_ptr->img_dim.il,pixel_buf,MFGR_INTERLACE_PIXEL, count,ri_ptr->img_dim.ncomps,ri_ptr->img_dim.nt); /* convert the pixel data into the HDF disk format */ DFKconvert(pixel_buf,img_data,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*count[XDIM]*count[YDIM],DFACC_WRITE,0,0); HDfree(pixel_buf); } /* end if */ else /* convert the pixel data into the HDF disk format */ DFKconvert(data,img_data,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*count[XDIM]*count[YDIM],DFACC_WRITE,0,0); } /* end if */ else /* no conversion necessary, just use the user's buffer */ img_data=data; if(ri_ptr->img_tag==DFTAG_NULL || ri_ptr->img_ref==DFREF_WILDCARD) new_image=TRUE; else { /* Check if the actual image data is in the file yet, or if just the tag & ref are known */ if(Hlength(ri_ptr->gr_ptr->hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref)>0) new_image=FALSE; else new_image=TRUE; } /* end else */ if(GRIgetaid(ri_ptr,DFACC_WRITE)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); if(whole_image==TRUE) { /* write the whole image out */ #ifdef OLD_WAY if(new_image==TRUE) { /* Create the tag/ref for the new image */ ri_ptr->img_tag=DFTAG_RI; ri_ptr->img_ref=Htagnewref(hdf_file_id,ri_ptr->img_tag); } /* end if */ if(Hputelement(hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref, (uint8 *)img_data,(int32)pixel_disk_size*count[XDIM]*count[YDIM])==FAIL) HGOTO_ERROR(DFE_PUTELEM,FAIL); #else /* OLD_WAY */ /* Make certain we are at the beginning */ if(Hseek(ri_ptr->img_aid,0,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); /* Write the entire image out */ if(Hwrite(ri_ptr->img_aid,(int32)pixel_disk_size*count[XDIM]*count[YDIM], (uint8 *)img_data)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); #endif /* OLD_WAY */ } /* end if */ else { /* write only part of the image out */ int32 img_offset; /* current offset in the image data */ void * tmp_data; /* temp. pointer to the image data to write */ intn fill_image=FALSE; /* whether to create fill values, etc. */ void * fill_line=NULL; /* array containing the fill pixels for an entire line of the image */ int32 fill_lo_size=0, /* number of bytes in the "low" block */ fill_hi_size=0, /* number of bytes in the "high" block */ fill_line_size=0; /* number of bytes in the "line" block */ img_offset=((ri_ptr->img_dim.xdim*start[YDIM])+start[XDIM])*(int32)pixel_disk_size; /* check if this is a new image, and if we need to write fill pixels */ if(new_image==TRUE && ri_ptr->fill_img==TRUE) { /* create fill value arrays for various blocks */ void * fill_pixel; /* converted value for the filled pixel */ int32 at_index; /* attribute index for the fill value */ if((fill_pixel=HDmalloc(pixel_disk_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* create correct disk version of fill pixel */ if(ri_ptr->fill_value!=NULL) { DFKconvert(ri_ptr->fill_value,fill_pixel, ri_ptr->img_dim.nt,ri_ptr->img_dim.ncomps, DFACC_WRITE,0,0); } /* end if */ else /* create default pixel fill value of all zero components */ { /* Try to find a fill value attribute */ if((at_index=GRfindattr(riid,FILL_ATTR))!=FAIL) { /* Found a fill value attribute */ if((ri_ptr->fill_value=HDmalloc(pixel_mem_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if(GRgetattr(riid,at_index,ri_ptr->fill_value)==FAIL) HGOTO_ERROR(DFE_BADATTR,FAIL); DFKconvert(ri_ptr->fill_value,fill_pixel, ri_ptr->img_dim.nt,ri_ptr->img_dim.ncomps, DFACC_WRITE,0,0); } /* end if */ else HDmemset(fill_pixel,0,pixel_disk_size); } /* end else */ /* check for "low" pixel runs */ if(start[XDIM]>0) fill_lo_size=(int32)pixel_disk_size*start[XDIM]; /* check for "high" pixel runs */ if((start[XDIM]+((count[XDIM]-1)*stride[XDIM])+1)img_dim.xdim) fill_hi_size=(int32)pixel_disk_size*(ri_ptr->img_dim.xdim- (start[XDIM]+((count[XDIM]-1)*stride[XDIM])+1)); /* create the "line" pixel block */ /* allocate space for the "line" block */ fill_line_size=(int32)pixel_disk_size*ri_ptr->img_dim.xdim; if((fill_line=HDmalloc(fill_line_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDmemfill(fill_line,fill_pixel,pixel_disk_size,(uint32)ri_ptr->img_dim.xdim); fill_image=TRUE; /* set flag to write out fill pixels */ ri_ptr->store_fill=TRUE; /* set flag to store fill value attribute */ /* Get rid of the fill pixel */ if(ri_ptr->fill_value==NULL) ri_ptr->fill_value=fill_pixel; else HDfree(fill_pixel); } /* end if */ tmp_data=img_data; if(solid_block==TRUE) { /* write out runs of data in the image */ int32 pix_len; /* length of current row's pixel run */ intn i; /* temporary loop variable */ pix_len=(int32)pixel_disk_size*count[XDIM]; if(fill_image==TRUE) { /* surround the block to write with fill values */ /* write out lines "below" the block */ if(start[YDIM]>0) { /* fill in the lines leading up the block */ for(i=0; iimg_aid,fill_line_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ /* write prelude of low pixels */ if(fill_lo_size>0) if(Hwrite(ri_ptr->img_aid,fill_lo_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); /* write out the block */ for(i=0; iimg_aid,pix_len,tmp_data)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); /* This next write wraps around the high side */ /* of the block and writes the next low side */ /* at the same time. */ if((fill_hi_size+fill_lo_size)>0 && i<(count[YDIM]-1)) if(Hwrite(ri_ptr->img_aid,(fill_hi_size+fill_lo_size),fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); tmp_data=(void *)((char *)tmp_data+pix_len); } /* end for */ /* Finish the last chunk of high side fill values */ if(fill_hi_size>0) if(Hwrite(ri_ptr->img_aid,fill_hi_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); /* write out lines "above" the block */ if((start[YDIM]+((count[YDIM]-1)*stride[YDIM])+1) img_dim.ydim) { for(i=start[YDIM]+((count[YDIM]-1)*stride[YDIM])+1; iimg_dim.ydim; i++) if(Hwrite(ri_ptr->img_aid,fill_line_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ } /* end if */ else { /* don't worry about fill values */ for(i=0; iimg_aid,img_offset,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); if(Hwrite(ri_ptr->img_aid,pix_len,tmp_data)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); img_offset+=(int32)pixel_disk_size*ri_ptr->img_dim.xdim; tmp_data=(void *)((char *)tmp_data+pix_len); } /* end for */ } /* end else */ } /* end if */ else { /* sub-sampling, seek to each data element and write it out */ intn i,j,k; /* temporary loop variables */ int32 fill_stride_size=0; /* # of pixels in the stride block */ intn fill_xdim=FALSE, /* whether to fill in the X dimension */ fill_ydim=FALSE; /* whether to fill in the Y dimension */ /* check if we need to insert fill pixels between strides */ if(fill_image==TRUE) { /* create the "stride" pixel block */ if(stride[XDIM]>1) { /* allocate space for the "stride" block */ fill_stride_size=(int32)pixel_disk_size*(stride[XDIM]-1); fill_xdim=TRUE; } /* end if */ if(stride[YDIM]>1) fill_ydim=TRUE; /* write fills and sub-sampled data */ /* write out lines "below" the block */ if(start[YDIM]>0) { /* fill in the lines leading up the block */ for(i=0; iimg_aid,fill_line_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end for */ } /* end if */ /* write prelude of low pixels */ if(fill_lo_size>0) { if(Hwrite(ri_ptr->img_aid,fill_lo_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ for(i=0; iimg_aid,(int32)pixel_disk_size,tmp_data)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); if(fill_xdim==TRUE && j<(count[XDIM]-1)) { if(Hwrite(ri_ptr->img_aid,fill_stride_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ tmp_data=(void *)((char *)tmp_data+pixel_disk_size); } /* end for */ /* Fill in the y-dim stride lines */ if(fill_ydim==TRUE) for(k=1; kimg_aid,fill_line_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end for */ /* This next write wraps around the high side */ /* of the block and writes the next low side */ /* at the same time. */ if((fill_hi_size+fill_lo_size)>0 && i<(count[YDIM]-1)) { if(Hwrite(ri_ptr->img_aid,(fill_hi_size+fill_lo_size),fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ } /* end for */ /* Finish the last chunk of high side fill values */ if(fill_hi_size>0) { if(Hwrite(ri_ptr->img_aid,fill_hi_size,fill_line)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); } /* end if */ } /* end if */ else { /* don't worry about fill values */ int32 stride_add; /* amount to add for stride amount */ stride_add=(int32)pixel_disk_size*stride[XDIM]; for(i=0; iimg_aid,local_offset,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); if(Hwrite(ri_ptr->img_aid,(int32)pixel_disk_size,tmp_data)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); local_offset+=stride_add; tmp_data=(void *)((char *)tmp_data+pixel_disk_size); } /* end for */ img_offset+=ri_ptr->img_dim.xdim*stride[YDIM]*(int32)pixel_disk_size; } /* end for */ } /* end else */ } /* end else */ if(fill_line!=NULL) /* free the fill-value pixels if we used 'em */ HDfree(fill_line); } /* end else */ ri_ptr->data_modified=TRUE; /* if we've allocated a temporary buffer, free it */ if(convert || switch_interlace==TRUE) HDfree(img_data); /* mark the image as being modified */ ri_ptr->data_modified=TRUE; gr_ptr->gr_modified=TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRwriteimage() */ /*-------------------------------------------------------------------------- NAME GRreadimage PURPOSE Read raster data for an image USAGE intn GRreadimage(riid,start,stride,edge,data) int32 riid; IN: RI ID from GRselect/GRcreate int32 start[2]; IN: array containing the offset in the image of the image data to read in int32 stride[2]; IN: array containing interval of data being read along each edge. strides of 0 are illegal (and generate an error) ie. stride of 1 in each dimension means reading contiguous data, stride of 2 means reading every other element out along an edge. int32 count[2]; IN: number of elements to read in along each edge. void * data; IN: pointer to the data to read in. RETURNS SUCCEED/FAIL DESCRIPTION Read image data from an RI. Partial dataset reading and subsampling is allowed. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If the stride parameter is set to NULL, a stride of 1 will be assumed. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRreadimage(int32 riid,int32 start[2],int32 in_stride[2],int32 count[2],void * data) { CONSTR(FUNC, "GRreadimage"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 stride[2]; /* pointer to the stride array */ intn solid_block=FALSE; /* whether the image data is a solid block of data */ intn whole_image=FALSE; /* whether we are reading in the whole image */ intn image_data=FALSE; /* whether there is actual image data or not */ void * *img_data; /* pointer to the converted image data to write */ uintn pixel_disk_size; /* size of a pixel on disk */ uintn pixel_mem_size; /* size of a pixel in memory */ intn convert; /* true if machine NT != NT to be written */ uint8 platnumsubclass; /* class of this NT for this platform */ uint16 scheme; /* compression scheme used for JPEG images */ uint32 comp_config; comp_coder_t comp_type; comp_info cinfo; intn status=FAIL; intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the basic validity of the args (stride is OK to be NULL) */ if (HAatom_group(riid)!=RIIDGROUP || start==NULL /* || in_stride==NULL */ || count==NULL || data==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get the correct parameters into the stride array */ if(in_stride==NULL) stride[XDIM]=stride[YDIM]=1; else { stride[XDIM]=in_stride[XDIM]; stride[YDIM]=in_stride[YDIM]; } /* end else */ /* Sanity check the start, stride, and count args */ if((start[XDIM]<0 || start[YDIM]<0) || (stride[XDIM]<1 || stride[YDIM]<1) || (count[XDIM]<1 || count[YDIM]<1)) HGOTO_ERROR(DFE_BADDIM, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); gr_ptr=ri_ptr->gr_ptr; hdf_file_id=gr_ptr->hdf_file_id; comp_type = COMP_CODE_NONE; scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { comp_type = COMP_CODE_JPEG; cinfo.jpeg.quality = 0; cinfo.jpeg.force_baseline = 0; } /* Catch old images to avoid going into HCPgetcompinfo */ else if (scheme == DFTAG_RLE) /* old image */ comp_type = COMP_CODE_RLE; else if (scheme == DFTAG_IMC) /* old image */ comp_type = COMP_CODE_IMCOMP; else { /* use lower-level routine to get the compression information */ status = HCPgetcompinfo(hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, &comp_type, &cinfo); if (status == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_RLE && comp_type != COMP_CODE_IMCOMP) { /* This is reading, why do we need encoder? -BMR */ /* Check that the compression encoder is available */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER,FAIL); } if ((comp_config & COMP_DECODER_ENABLED) == 0) { /* decoder not present?? */ HGOTO_ERROR(DFE_NOENCODER,FAIL); } } if(stride[XDIM]==1 && stride[YDIM]==1) { /* solid block of data */ solid_block=TRUE; if ((start[XDIM]==0 && start[YDIM]==0) && (count[XDIM]==ri_ptr->img_dim.xdim && count[YDIM]==ri_ptr->img_dim.ydim)) whole_image=TRUE; else whole_image=FALSE; } /* end if */ else /* block of data spread out with strides */ solid_block=FALSE; /* Get the size of the pixels in memory and on disk */ pixel_disk_size=(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); pixel_mem_size=(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize((ri_ptr->img_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); /* Get number-type and conversion information */ platnumsubclass = (uint8)DFKgetPNSC(ri_ptr->img_dim.nt & (~DFNT_LITEND), DF_MT); convert = (pixel_disk_size != pixel_mem_size) || (ri_ptr->img_dim.file_nt_subclass != platnumsubclass); /* is conversion necessary? */ /* Check if the image data is in the file */ if(ri_ptr->img_tag==DFTAG_NULL || ri_ptr->img_ref==DFREF_WILDCARD) image_data=FALSE; else { /* Check if the actual image data is in the file yet, or if just the tag & ref are known */ if(Hlength(hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref)>0) image_data=TRUE; else image_data=FALSE; } /* end else */ if(image_data==FALSE) { /* Fake an image for the user by using the pixel fill value */ void * fill_pixel; /* converted value for the filled pixel */ int32 at_index; if((fill_pixel=HDmalloc(pixel_mem_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* Try to find a fill value attribute */ if((at_index=GRfindattr(riid,FILL_ATTR))!=FAIL) { /* Found a fill value attribute */ if(GRgetattr(riid,at_index,fill_pixel)==FAIL) HGOTO_ERROR(DFE_BADATTR,FAIL); } /* end if */ else /* no fill value attribute */ HDmemset(fill_pixel,0,pixel_mem_size); /* Fill the user's buffer with the fill value */ HDmemfill(data,fill_pixel,pixel_mem_size,(uint32)(count[XDIM]*count[YDIM])); HDfree(fill_pixel); } /* end if */ else { /* an image exists in the file */ if(convert) { /* convert image data to HDF disk format */ /* Allocate space for the conversion buffer */ if((img_data=HDmalloc(pixel_disk_size*(size_t)count[XDIM]*(size_t)count[YDIM]))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ else /* no conversion necessary, just use the user's buffer */ img_data=data; if(GRIgetaid(ri_ptr, DFACC_READ)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); if(whole_image==TRUE) { /* read the whole image in */ #ifdef OLD_WAY if(Hgetelement(hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref, (uint8 *)img_data)==FAIL) HGOTO_ERROR(DFE_GETELEM,FAIL); #else /* OLD_WAY */ /* Make certain we are at the beginning */ if(Hseek(ri_ptr->img_aid,0,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); /* Read the entire image in */ /* This offset is relative to the element not the file and this */ /* is where it reads and decompresses the data -BMR 09/2010 */ if(Hread(ri_ptr->img_aid,(int32)pixel_disk_size*count[XDIM]*count[YDIM], (uint8 *)img_data)==FAIL) HGOTO_ERROR(DFE_READERROR,FAIL); #endif /* OLD_WAY */ } /* end if */ else { /* read only part of the image in */ int32 img_offset; /* current offset in the image data */ void * tmp_data; /* temp. pointer to the image data read in */ img_offset=((ri_ptr->img_dim.xdim*start[YDIM])+start[XDIM])*(int32)pixel_disk_size; tmp_data=img_data; if(solid_block==TRUE) { /* read in runs of data in the image */ int32 pix_len; /* length of current row's pixel run */ intn i; /* temporary loop variable */ pix_len=(int32)pixel_disk_size*count[XDIM]; /* read in the block */ for(i=0; iimg_aid,img_offset,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); if(Hread(ri_ptr->img_aid,pix_len,tmp_data)==FAIL) HGOTO_ERROR(DFE_READERROR,FAIL); img_offset+=(int32)pixel_disk_size*ri_ptr->img_dim.xdim; tmp_data=(void *)((char *)tmp_data+pix_len); } /* end for */ } /* end if */ else { /* sub-sampling, seek to each data element and read it in */ intn i,j; /* temporary loop variables */ int32 stride_add; /* amount to add for stride amount */ stride_add=(int32)pixel_disk_size*stride[XDIM]; for(i=0; iimg_aid,local_offset,DF_START)==FAIL) HGOTO_ERROR(DFE_SEEKERROR,FAIL); if(Hread(ri_ptr->img_aid,(int32)pixel_disk_size,tmp_data)==FAIL) HGOTO_ERROR(DFE_READERROR,FAIL); local_offset+=stride_add; tmp_data=(void *)((char *)tmp_data+pixel_disk_size); } /* end for */ img_offset+=ri_ptr->img_dim.xdim*stride[YDIM]*(int32)pixel_disk_size; } /* end for */ } /* end else */ } /* end else */ if(convert) { /* convert the pixel data into the HDF disk format */ DFKconvert(img_data,data,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*count[XDIM]*count[YDIM],DFACC_READ,0,0); HDfree(img_data); } /* end if */ } /* end else */ /* Check whether we need to convert the buffer to the user's */ /* requested interlace scheme. */ /* Note: This is implemented in a horribly ugly & slow manner, but I'm */ /* in a bit of a hurry right now - QAK */ if(ri_ptr->im_il!=MFGR_INTERLACE_PIXEL) { void * pixel_buf; /* buffer for the pixel interlaced data */ /* Allocate space for the conversion buffer */ if((pixel_buf=HDmalloc(pixel_mem_size*(size_t)count[XDIM]*(size_t)count[YDIM]))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); GRIil_convert(data,MFGR_INTERLACE_PIXEL,pixel_buf,ri_ptr->im_il, count,ri_ptr->img_dim.ncomps,ri_ptr->img_dim.nt); HDmemcpy(data,pixel_buf,pixel_mem_size*(size_t)count[XDIM]*(size_t)count[YDIM]); HDfree(pixel_buf); } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRreadimage() */ /*-------------------------------------------------------------------------- NAME GRendaccess PURPOSE End access to an RI. USAGE intn GRendaccess(riid) int32 riid; IN: RI ID from GRselect/GRcreate RETURNS SUCCEED/FAIL DESCRIPTION End access to an RI. Further attempts to access the RI ID will result in an error. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRendaccess(int32 riid) { CONSTR(FUNC, "GRendaccess"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); if(!(ri_ptr->access>0)) HGOTO_ERROR(DFE_CANTENDACCESS,FAIL); /* Check for writing a fill value attribute out */ if(ri_ptr->store_fill==TRUE) { /* store the fill value attribute before letting go of the image */ if(GRsetattr(riid,FILL_ATTR,ri_ptr->img_dim.nt,ri_ptr->img_dim.ncomps,ri_ptr->fill_value)==FAIL) HGOTO_ERROR(DFE_WRITEERROR,FAIL); ri_ptr->store_fill=FALSE; } /* end if */ /* Reduce the number of accesses to the RI */ ri_ptr->access--; /* Check if we should shut down the AID we've been holding open */ if(!(ri_ptr->access>0) && ri_ptr->img_aid!=0) { Hendaccess(ri_ptr->img_aid); ri_ptr->img_aid=0; } /* end if */ /* Double check on setting the GR modified flag */ /* Maybe this should be flagged as as error? -QAK */ if(ri_ptr->meta_modified==TRUE &&& ri_ptr->gr_ptr->gr_modified==FALSE) ri_ptr->gr_ptr->gr_modified=TRUE; /* Delete the atom for the RI ID */ if(NULL==HAremove_atom(riid)) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRendaccess() */ /*-------------------------------------------------------------------------- NAME GRidtoref PURPOSE Maps an RI ID to a reference # for annotating or including in a Vgroup. USAGE uint16 GRidtoref(riid) int32 riid; IN: RI ID from GRselect/GRcreate RETURNS A valid reference # on success or 0 DESCRIPTION Maps an riid to a reference # for annotating or including in a Vgroup. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint16 GRidtoref(int32 riid) { CONSTR(FUNC, "GRidtoref"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ uint16 ret_value = 0; /* FAIL? */ /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, 0); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, 0); #ifdef OLD_WAY ret_value = (ri_ptr->ri_ref!=DFREF_WILDCARD ? ri_ptr->ri_ref : ri_ptr->rig_ref); #else /* OLD_WAY */ /* Changed to handle case when ri_ptr->rig_ref is DFREF_WILDCARD */ if(ri_ptr->ri_ref!=DFREF_WILDCARD) ret_value=ri_ptr->ri_ref; else { if(ri_ptr->rig_ref==DFREF_WILDCARD) { if(ri_ptr->img_ref==DFREF_WILDCARD) HGOTO_ERROR(DFE_INTERNAL,0); ret_value=ri_ptr->img_ref; } else ret_value=ri_ptr->rig_ref; } /* end else */ #endif /* OLD_WAY */ done: if(ret_value == 0) /* 0 is invalid ref */ { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRidtoref() */ /*-------------------------------------------------------------------------- NAME GRreftoindex PURPOSE Maps the reference # of an RI into an index which can be used with GRselect. USAGE int32 GRreftoindex(grid,ref) int32 grid; IN: GR ID from GRstart uint16 ref; IN: reference number of raster image to map to index RETURNS A valid index # on success or FAIL DESCRIPTION Maps the reference # of an RI into an index which can be used with GRselect. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRreftoindex(int32 grid,uint16 ref) { CONSTR(FUNC, "GRreftoindex"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ int32 ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(grid)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(grid))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); if((t = (void **)tbbtfirst((TBBT_NODE *) *(gr_ptr->grtree)))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); do { ri_ptr=(ri_info_t *)*t; if(ri_ptr!=NULL && ((ri_ptr->ri_ref==ref) || (ri_ptr->ri_ref==DFREF_WILDCARD && ri_ptr->rig_ref==ref))) /* the ref matches */ HGOTO_DONE(ri_ptr->index); } while((t= (void **)tbbtnext((TBBT_NODE *)t))!=NULL); ret_value = (FAIL); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRreftoindex() */ /*-------------------------------------------------------------------------- NAME GRreqlutil PURPOSE Request that the next LUT read from an RI have a particular interlace. USAGE intn GRreqlutil(riid,il) int32 riid; IN: RI ID from GRselect/GRcreate intn il; IN: interlace for next LUT. From the following values (found in mfgr.h): MFGR_INTERLACE_PIXEL - pixel interlacing MFGR_INTERLACE_LINE - line interlacing MFGR_INTERLACE_COMPONENT - component/plane interlacing RETURNS SUCCEED/FAIL DESCRIPTION Request that the next LUT read from an RI have a particular interlace. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRreqlutil(int32 riid,intn il) { CONSTR(FUNC, "GRreqlutil"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP || il<(intn)MFGR_INTERLACE_PIXEL || il>(intn)MFGR_INTERLACE_COMPONENT) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* Assign interlacing scheme */ ri_ptr->lut_il=(gr_interlace_t)il; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRreqlutil() */ /*-------------------------------------------------------------------------- NAME GRreqimageil PURPOSE Request that the image read from an RI have a particular interlace. USAGE intn GRreqimageil(riid,il) int32 riid; IN: RI ID from GRselect/GRcreate intn il; IN: interlace for next RI. From the following values (found in mfgr.h): MFGR_INTERLACE_PIXEL - pixel interlacing MFGR_INTERLACE_LINE - line interlacing MFGR_INTERLACE_COMPONENT - component/plane interlacing RETURNS SUCCEED/FAIL DESCRIPTION Request that the image read from an RI have a particular interlace. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRreqimageil(int32 riid,intn il) { CONSTR(FUNC, "GRreqimageil"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP || il<(intn)MFGR_INTERLACE_PIXEL || il>(intn)MFGR_INTERLACE_COMPONENT) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* Assign interlacing scheme */ ri_ptr->im_il=(gr_interlace_t)il; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRreqimageil() */ /*-------------------------------------------------------------------------- NAME GRgetlutid PURPOSE Get a LUT id ('lutid') for an RI. USAGE int32 GRgetlutid(riid,index) int32 riid; IN: RI ID from GRselect/GRcreate int32 lut_index; IN: Which LUT image to select (indexed from 0) RETURNS Valid LUT ID on success, FAIL on failure DESCRIPTION Get a LUT id ('lutid') for accessing LUTs in an RI. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Currently only supports one LUT per image, at index 0 and LUTID==RIID. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRgetlutid(int32 riid,int32 lut_index) { CONSTR(FUNC, "GRgetlutid"); /* for HERROR */ int32 ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP || lut_index!=0) HGOTO_ERROR(DFE_ARGS, FAIL); ret_value =(riid); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetlutid() */ /*-------------------------------------------------------------------------- NAME GRluttoref PURPOSE Returns the ref # for a LUT. USAGE uint16 GRluttoref(lutid) int32 lutid; IN: LUT ID from GRgetlutid RETURNS Valid ref # if a palette exists, or 0 when: - palette doesn't exist, or - unable to get the image from the palette id. - BMR DESCRIPTION Gets the ref # used to store the LUT in the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint16 GRluttoref(int32 lutid) { CONSTR(FUNC, "GRluttoref"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ uint16 ret_value = 0; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(lutid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, 0); /* return 0 for invalid ref # - BMR */ /* locate LUT's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(lutid))) HGOTO_ERROR(DFE_LUTNOTFOUND, 0); /* return 0 for invalid ref # - BMR */ ret_value=ri_ptr->lut_ref; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRluttoref() */ /*-------------------------------------------------------------------------- NAME GRgetlutinfo PURPOSE Gets information about a LUT. USAGE intn GRgetlutinfo(lutid,ncomp,nt,il,nentries) int32 lutid; IN: LUT ID from GRgetlutid int32 *ncomp; OUT: number of components in LUT int32 *nt; OUT: number type of components int32 *il; OUT: interlace of the LUT int32 *nentries; OUT: the number of entries for the LUT RETURNS SUCCEED/FAIL DESCRIPTION Gets information about a LUT. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRgetlutinfo(int32 lutid,int32 *ncomp,int32 *nt,int32 *il,int32 *nentries) { CONSTR(FUNC, "GRgetlutinfo"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(lutid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate LUT's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(lutid))) HGOTO_ERROR(DFE_LUTNOTFOUND, FAIL); if(ri_ptr->lut_ref==DFREF_WILDCARD) { /* check for no palette defined currently */ if(ncomp!=NULL) *ncomp=0; if(nt!=NULL) *nt=DFNT_NONE; if(il!=NULL) *il=-1; if(nentries!=NULL) *nentries=0; } /* end if */ else /* we've got a valid palette currently */ { if(ncomp!=NULL) *ncomp=ri_ptr->lut_dim.ncomps; if(nt!=NULL) *nt=ri_ptr->lut_dim.nt; if(il!=NULL) *il=(int32)ri_ptr->lut_dim.il; if(nentries!=NULL) /* xdim for LUTs is the number of entries */ *nentries=ri_ptr->lut_dim.xdim; } /* end else */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetlutinfo() */ /*-------------------------------------------------------------------------- NAME GRwritelut PURPOSE Writes out a LUT for an RI. USAGE intn GRwritelut(riid,ncomps,nt,il,nentries,data) int32 lutid; IN: LUT ID from GRgetlutid int32 ncomp; IN: number of components in LUT int32 nt; IN: number type of components int32 il; IN: interlace of the LUT int32 nentries; IN: the number of entries for the LUT void * data; IN: LUT data to write out RETURNS SUCCEED/FAIL DESCRIPTION Writes out a LUT for an RI. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRwritelut(int32 lutid,int32 ncomps,int32 nt,int32 il,int32 nentries,void * data) { CONSTR(FUNC, "GRwritelut"); /* for HERROR */ int32 hdf_file_id; /* file ID from Hopen */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the args (how to check il?) */ if (HAatom_group(lutid)!=RIIDGROUP || ncomps<1 || (DFKNTsize(nt)==FAIL) || nentries<1 || data==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate LUT's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(lutid))) HGOTO_ERROR(DFE_LUTNOTFOUND, FAIL); hdf_file_id=ri_ptr->gr_ptr->hdf_file_id; /* Check if this is compatible with older-style palettes */ if(ncomps==3 && (nt==DFNT_UINT8 ||nt==DFNT_UCHAR8) && il==MFGR_INTERLACE_PIXEL && nentries==256) { /* Check if LUT exists already */ if(ri_ptr->lut_tag!=DFTAG_NULL && ri_ptr->lut_ref!=DFREF_WILDCARD) { /* LUT already exists */ if(Hputelement(hdf_file_id,ri_ptr->lut_tag,ri_ptr->lut_ref, data,ncomps*nentries*DFKNTsize(nt))==FAIL) HGOTO_ERROR(DFE_PUTELEM,FAIL); } /* end if */ else { /* LUT does not exist */ ri_ptr->lut_tag=DFTAG_LUT; ri_ptr->lut_ref=Htagnewref(hdf_file_id,ri_ptr->lut_tag); ri_ptr->lut_dim.dim_ref=DFREF_WILDCARD; ri_ptr->lut_dim.xdim=256; ri_ptr->lut_dim.ydim=1; ri_ptr->lut_dim.ncomps=3; ri_ptr->lut_dim.nt=DFNT_UINT8; ri_ptr->lut_dim.file_nt_subclass=DFNTF_HDFDEFAULT; ri_ptr->lut_dim.il=MFGR_INTERLACE_PIXEL; ri_ptr->lut_dim.nt_tag=DFTAG_NULL; ri_ptr->lut_dim.nt_ref=DFREF_WILDCARD; ri_ptr->lut_dim.comp_tag=DFTAG_NULL; ri_ptr->lut_dim.comp_ref=DFREF_WILDCARD; if(Hputelement(hdf_file_id,ri_ptr->lut_tag,ri_ptr->lut_ref, data,ncomps*nentries*DFKNTsize(nt))==FAIL) HGOTO_ERROR(DFE_PUTELEM,FAIL); ri_ptr->meta_modified=TRUE; ri_ptr->gr_ptr->gr_modified=TRUE; } /* end else */ } /* end if */ else { /* currently, we are not going to support non-standard palettes */ HGOTO_ERROR(DFE_UNSUPPORTED,FAIL); } /* end else */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRwritelut() */ /*-------------------------------------------------------------------------- NAME GRreadlut PURPOSE Reads a LUT from an RI. USAGE intn GRreadlut(lutid,data) int32 lutid; IN: LUT ID from GRgetlutid void * data; IN: buffer for LUT data read in RETURNS SUCCEED/FAIL DESCRIPTION Reads a LUT from an RI. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRreadlut(int32 lutid,void * data) { CONSTR(FUNC, "GRreadlut"); /* for HERROR */ int32 hdf_file_id; /* file ID from Hopen */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(lutid)!=RIIDGROUP || data==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate LUT's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(lutid))) HGOTO_ERROR(DFE_LUTNOTFOUND, FAIL); hdf_file_id=ri_ptr->gr_ptr->hdf_file_id; if(ri_ptr->lut_tag!=DFTAG_NULL && ri_ptr->lut_ref!=DFREF_WILDCARD) { if(Hgetelement(hdf_file_id,ri_ptr->lut_tag,ri_ptr->lut_ref,data)==FAIL) HGOTO_ERROR(DFE_GETELEM,FAIL); } /* end if */ /* Re-format the palette into the user's requested interlacing */ if(ri_ptr->lut_il!=MFGR_INTERLACE_PIXEL) { uintn pixel_mem_size; /* size of a pixel in memory */ void * pixel_buf; /* buffer for the pixel interlaced data */ int32 count[2]; /* "dimension" info */ pixel_mem_size=(uintn)(ri_ptr->lut_dim.ncomps*DFKNTsize((ri_ptr->lut_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); /* Allocate space for the conversion buffer */ if((pixel_buf=HDmalloc(pixel_mem_size*(size_t)ri_ptr->lut_dim.xdim))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); count[XDIM]=1; count[YDIM]=ri_ptr->lut_dim.xdim; GRIil_convert(data,MFGR_INTERLACE_PIXEL,pixel_buf,ri_ptr->lut_il, count,ri_ptr->lut_dim.ncomps,ri_ptr->lut_dim.nt); HDmemcpy(data,pixel_buf,pixel_mem_size*(size_t)ri_ptr->lut_dim.xdim); HDfree(pixel_buf); } /* end if */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRreadlut() */ /*-------------------------------------------------------------------------- NAME GRsetexternalfile PURPOSE Makes the image data of an RI into an external element special element. USAGE intn GRsetexternalfile(riid,filename,offset) int32 riid; IN: RI ID from GRselect/GRcreate char *filename; IN: name of the external file int32 offset; IN: offset in the external file to store the image RETURNS SUCCEED/FAIL DESCRIPTION Makes the image data of an RI into an external element special element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRsetexternalfile(int32 riid,const char *filename,int32 offset) { CONSTR(FUNC, "GRsetexternalfile"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 tmp_aid; /* AID returned from HXcreate() */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); if((ri_ptr->ext_name=(char *)HDmalloc(HDstrlen(filename)+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* Mark the image as external and cache parameters */ ri_ptr->ext_img=TRUE; HDstrcpy(ri_ptr->ext_name,filename); ri_ptr->ext_offset=offset; /* Create the image tag/ref if it's a new image */ if(ri_ptr->img_tag==DFTAG_NULL || ri_ptr->img_ref==DFREF_WILDCARD) { ri_ptr->img_tag=DFTAG_RI; ri_ptr->img_ref=Htagnewref(ri_ptr->gr_ptr->hdf_file_id,ri_ptr->img_tag); ri_ptr->meta_modified=TRUE; } /* end if */ /* close any existing AID, to convert to external element AID */ if(ri_ptr->img_aid!=0) { Hendaccess(ri_ptr->img_aid); ri_ptr->img_aid=0; } /* end if */ /* Convert the image into an external element */ if((tmp_aid=HXcreate(ri_ptr->gr_ptr->hdf_file_id,ri_ptr->img_tag, ri_ptr->img_ref,filename,offset,0))==FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if(Hendaccess(tmp_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRsetexternalfile() */ /*-------------------------------------------------------------------------- NAME GRsetaccesstype PURPOSE Sets the access for an RI to be either serial or parallel I/O. USAGE intn GRsetaccesstype(riid,accesstype) int32 riid; IN: RI ID from GRselect/GRcreate uintn accesstype; IN: access type for image data, from the following values: DFACC_SERIAL - for serial access DFACC_PARALLEL - for parallel access RETURNS SUCCEED/FAIL DESCRIPTION Sets the access for an RI to be either serial or parallel I/O. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRsetaccesstype(int32 riid,uintn accesstype) { CONSTR(FUNC, "GRsetaccesstype"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP || (accesstype!=DFACC_DEFAULT && accesstype!=DFACC_SERIAL && accesstype!=DFACC_PARALLEL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* Mark the image as having an access-mode and cache args */ ri_ptr->acc_img=TRUE; ri_ptr->acc_type=accesstype; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRsetaccesstype() */ #ifdef H4_HAVE_LIBSZ /* we have the library */ /*-------------------------------------------------------------------------- NAME GRsetup_szip_parms( ri_info_t *ri_ptr, comp_info *c_info, int32 *cdims) PURPOSE Set up the szip parameters USAGE intn GRsetaccesstype( ri_info_t *ri_ptr, comp_info *c_info, int32 *cdims) ri_info_t *ri_ptr; IN: the RI object comp_info *c_info; IN/OUT: the compression info (szip) int32 *cdims; IN: chunk dims if chunked, else NULL RETURNS SUCCEED/FAIL DESCRIPTION Sets the computed szip parameters before calling HCcreate. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRsetup_szip_parms( ri_info_t *ri_ptr, comp_info *c_info, int32 *cdims) { int32 nt; int32 ndims; int32 ncomp; int32 xdims[H4_MAX_VAR_DIMS]; intn ret_value = SUCCEED; ndims = 2; xdims[0] = ri_ptr->img_dim.xdim; xdims[1] = ri_ptr->img_dim.ydim; nt = ri_ptr->img_dim.nt; ncomp = ri_ptr->img_dim.ncomps; ret_value = HCPsetup_szip_parms( c_info, nt, ncomp, ndims, xdims, cdims); done: return(ret_value); } #endif /*-------------------------------------------------------------------------- NAME GRsetcompress PURPOSE Compressed the image data of an RI. USAGE intn GRsetcompress(riid,comp_type,cinfo) int32 riid; IN: RI ID from GRselect/GRcreate comp_coder_t comp_type; IN: type of compression comp_info *cinfo; IN: compression specific information RETURNS SUCCEED/FAIL DESCRIPTION Compressed the image data of an RI. (Makes the image data of an RI into a compressed special element) GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRsetcompress(int32 riid,comp_coder_t comp_type,comp_info *cinfo) { CONSTR(FUNC, "GRsetcompress"); /* for HERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ comp_info cinfo_x; uint32 comp_config; intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); HDmemcpy(&cinfo_x,cinfo,sizeof(comp_info)); /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check the validity of the compression type */ if ((comp_type < COMP_CODE_NONE || comp_type >= COMP_CODE_INVALID) && comp_type!=COMP_CODE_JPEG) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* Check if the image is already special (all special elements use the buffered driver) */ if (ri_ptr->use_buf_drvr) HGOTO_ERROR(DFE_CANTMOD, FAIL); /* Check that the compression method is enabled */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER, FAIL); } if ((comp_config & COMP_ENCODER_ENABLED) != COMP_ENCODER_ENABLED) { /* if ((comp_config & COMP_ENCODER_ENABLED) == 0) { */ /* encoder not present?? */ HGOTO_ERROR(DFE_NOENCODER, FAIL); } if (comp_type==COMP_CODE_SZIP) #ifndef H4_HAVE_LIBSZ HGOTO_ERROR(DFE_NOSZLIB, FAIL); #else { /* szip is enabled, check and set up szip parms */ if (GRsetup_szip_parms( ri_ptr, &cinfo_x, NULL) == FAIL) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } } #endif /* Mark the image as being compressed and cache args */ if(comp_type==COMP_CODE_JPEG) { if(ri_ptr->img_dim.ncomps==1) ri_ptr->img_dim.comp_tag=DFTAG_GREYJPEG5; else if(ri_ptr->img_dim.ncomps==3) ri_ptr->img_dim.comp_tag=DFTAG_JPEG5; else HGOTO_ERROR(DFE_CANTMOD, FAIL); ri_ptr->use_cr_drvr=TRUE; } /* end if */ else { ri_ptr->comp_img=TRUE; ri_ptr->comp_type=comp_type; } /* end else */ /* Todo: Application may send in COMP_CODE_NONE -BMR 9/2010 */ /* Store compression parameters */ HDmemcpy(&(ri_ptr->cinfo),&cinfo_x,sizeof(comp_info)); /* Mark the image as needing to be a buffered special element */ ri_ptr->use_buf_drvr=1; /* Make certain the image gets created */ if(GRIgetaid(ri_ptr, DFACC_WRITE)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRsetcompress() */ /*-------------------------------------------------------------------------- NAME GRgetcompress PURPOSE Get the compression information of a raster image's data. USAGE intn GRgetcompress(riid,comp_type,cinfo) int32 riid; IN: RI ID from GRselect/GRcreate comp_coder_t* comp_type; OUT: type of compression comp_info* cinfo; OUT: retrieved compression information RETURNS SUCCEED/FAIL DESCRIPTION This routine gets the compression type of the given RI's data, then retrieves the appropriate information into the provided compression info structure. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS JPEG information is currently not retrievable because the JPEG parameters, 'quality' and 'force_baseline', are irreversibly mapped to a quantization table. Thus, only the correct compression type will be returned; cinfo will only contain 0s. EXAMPLES REVISION LOG July 2001: Added to fix bug #307 -BMR Apr 2005: Replaced by GRgetcompinfo due to deficiency in handling some special elements. -BMR --------------------------------------------------------------------------*/ intn GRgetcompress(int32 riid, comp_coder_t* comp_type, comp_info* cinfo) { CONSTR(FUNC, "GRgetcompress"); /* for HGOTO_ERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 file_id; uint16 scheme; /* compression scheme used for JPEG images */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid) != RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* and check the output arguments */ if (comp_type == NULL || cinfo == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_BADPTR, FAIL); file_id = ri_ptr->gr_ptr->hdf_file_id; /* temporary use */ /* If the compression scheme used was JPEG, return the compression type and 0 for the 'quality' and 'force_baseline' parameters, because these parameters are currently not possible to be retrieved. */ scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { *comp_type = COMP_CODE_JPEG; cinfo->jpeg.quality = 0; cinfo->jpeg.force_baseline = 0; } else { /* use lower-level routine to get the compression information */ ret_value = HCPgetcompress(file_id, ri_ptr->img_tag, ri_ptr->img_ref, comp_type, cinfo); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetcompress() */ /*-------------------------------------------------------------------------- NAME GRgetcomptype PURPOSE Get the compression type of a raster image's data. USAGE intn GRgetcomptype(riid, comp_type) int32 riid; IN: RI ID from GRselect/GRcreate comp_coder_t* comp_type; OUT: type of compression, including obsolete ones RETURNS SUCCEED/FAIL DESCRIPTION Historical note: This function (old name grgetcomptype) was implemented specifically for the hmap project. It gets the compression type of the given RI's data. The existing function GRgetcompinfo did not detect the obsolete compression scheme IMCOMP. Because the hmap writer needs to report when an image with IMCOMP exists in the file, it needs a way to detect such images. One option is to add COMP_CODE_IMCOMP to the enum type comp_coder_t. However, with the consideration of backward/forward compatibility, it would be risky to change the existing public type comp_coder_t while running against deadlines. Instead, it was decided that a function would be made for the hmap project only, and would not be published in the HDF4 documentation. The function, grgetcomptype, will return comp_type as COMP_IMCOMP or one of the values included in the type comp_coder_t. Mar 11, 2011 -BMR Update: Further investigation indicated that it is safe to add COMP_CODE_IMCOMP to comp_coder_t, with the value of 12 (as DFTAG_IMC/DFTAG_IMCOMP), which is after COMP_CODE_JPEG. Extra care had been taken to ensure that GR interface cannot create or write images using IMCOMP compression. grgetcomptype is now changed to GRgetcomptype and published in release 4.2.8. Jul 11, 2012 -BMR GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS At this time, hdp and other tools still use GRgetcompinfo. We need to discuss about how to handle its limitation. In addition, GR2bmapped is using grgetcomptype until we have an official GRgetcomptype or will change to use GRgetcompinfo if we decide not to have GRgetcomptype. The fact that grgetcomptype uses int32 for comp_type makes it not a good long term option due to inconsistency in the library. Mar 11, 2011 -BMR Update: GRgetcomptype is now used in place of grgetcomptype and in hdp to detect and report IMCOMP compression, in release 4.2.8. Jul 11, 2012 -BMR EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRgetcomptype(int32 riid, comp_coder_t* comp_type) { CONSTR(FUNC, "GRgetcomptype"); /* for HGOTO_ERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 file_id; uint16 scheme; /* compression scheme used for old images */ intn ret_value = SUCCEED; /* clear error */ HEclear(); /* Validate the RI ID */ if (HAatom_group(riid) != RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check the output argument */ if (comp_type == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_BADPTR, FAIL); file_id = ri_ptr->gr_ptr->hdf_file_id; /* temporary use */ /* Handle old compression schemes separately */ scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { *comp_type = COMP_CODE_JPEG; } else if (scheme == DFTAG_RLE) *comp_type = COMP_CODE_RLE; else if (scheme == DFTAG_IMC || scheme == DFTAG_IMCOMP) *comp_type = COMP_CODE_IMCOMP; /* Use lower-level routine to get the new compression type */ else { comp_coder_t temp_comp_type = COMP_CODE_INVALID; ret_value = HCPgetcomptype(file_id, ri_ptr->img_tag, ri_ptr->img_ref, &temp_comp_type); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); *comp_type = temp_comp_type; } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetcomptype() */ /*-------------------------------------------------------------------------- NAME GRgetcompinfo PURPOSE Get the compression information of a raster image's data. USAGE intn GRgetcompinfo(riid,comp_type,cinfo) int32 riid; IN: RI ID from GRselect/GRcreate comp_coder_t* comp_type; OUT: type of compression comp_info* cinfo; OUT: retrieved compression information RETURNS SUCCEED/FAIL DESCRIPTION This routine gets the compression type of the given RI's data, then retrieves the appropriate information into the provided compression info structure. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS JPEG information is currently not retrievable because the JPEG parameters, 'quality' and 'force_baseline', are irreversibly mapped to a quantization table. Thus, only the correct compression type will be returned; cinfo will only contain 0s. EXAMPLES REVISION LOG July 2001: Added to fix bug #307 - BMR (from GRgetcompress) Apr 2005: This function was actually created at this time, but it is almost a duplicate of GRgetcompress, which is intended to be removed in the future, due to its incorrect behavior. The only difference is the call to the low-level routine, HCPgetcompinfo, instead of HCPgetcompress. --------------------------------------------------------------------------*/ intn GRgetcompinfo(int32 riid, comp_coder_t* comp_type, comp_info* cinfo) { CONSTR(FUNC, "GRgetcompinfo"); /* for HGOTO_ERROR */ ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 file_id; uint16 scheme; /* compression scheme used for JPEG images */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(riid) != RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* and check the output arguments */ if (comp_type == NULL || cinfo == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_BADPTR, FAIL); file_id = ri_ptr->gr_ptr->hdf_file_id; /* temporary use */ /* If the compression scheme used was JPEG, return the compression type and 0 for the 'quality' and 'force_baseline' parameters, because these parameters are currently not possible to be retrieved. */ scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { *comp_type = COMP_CODE_JPEG; cinfo->jpeg.quality = 0; cinfo->jpeg.force_baseline = 0; } /* Catch old images to avoid going into HCPgetcompinfo */ else if (scheme == DFTAG_RLE) /* old image */ *comp_type = COMP_CODE_RLE; else if (scheme == DFTAG_IMC) /* old image */ *comp_type = COMP_CODE_IMCOMP; else { /* use lower-level routine to get the compression information */ ret_value = HCPgetcompinfo(file_id, ri_ptr->img_tag, ri_ptr->img_ref, comp_type, cinfo); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetcompinfo() */ /*-------------------------------------------------------------------------- NAME GRsetattr PURPOSE Write an attribute for an object. USAGE intn GRsetattr(dimid|riid|grid,name,attr_nt,count,data) int32 dimid|riid|grid; IN: DIM|RI|GR ID char *name; IN: name of attribute int32 attr_nt; IN: number-type of attribute int32 count; IN: number of entries of the attribute void * data; IN: attribute data to write RETURNS SUCCEED/FAIL DESCRIPTION Write an attribute for an object (function will figure out ID type). GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Currently does not allow changing NT of an existing attribute. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRsetattr(int32 id,const char *name,int32 attr_nt,int32 count,const void * data) { CONSTR(FUNC, "GRsetattr"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID from Hopen */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr=NULL; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ TBBT_TREE *search_tree; /* attribute tree to search through */ at_info_t *at_ptr=NULL; /* ptr to the attribute to work with */ int32 at_size; /* size in bytes of the attribute data */ int32 *update_count; /* pointer to the count of attributes in a tree */ uintn *update_flag; /* pointer to the flag to indicate an attribute tree is changed */ uintn found=FALSE; /* boolean for indicating the attribute exists already */ intn is_riid=FALSE; /* whether we had a RIID */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* Make sure that count is less than MAX_ORDER(Vdata) and total size is less than MAX_FIELD_SIZE(Vdata) */ if ((count > MAX_ORDER) || ((count * DFKNTsize(attr_nt)) > MAX_FIELD_SIZE)) HGOTO_ERROR(DFE_ARGS, FAIL); /* check the validity of the args */ if ((HAatom_group(id)!=RIIDGROUP && HAatom_group(id)!=GRIDGROUP) || data==NULL || name==NULL || count<=0 || DFKNTsize(attr_nt)==FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(id)==GRIDGROUP) { /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); hdf_file_id=gr_ptr->hdf_file_id; search_tree=gr_ptr->gattree; update_flag=&(gr_ptr->gattr_modified); update_count=&(gr_ptr->gattr_count); } /* end if */ else if (HAatom_group(id)==RIIDGROUP) { /* Need this flag for later */ is_riid=TRUE; /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); gr_ptr=ri_ptr->gr_ptr; hdf_file_id=gr_ptr->hdf_file_id; search_tree=ri_ptr->lattree; update_flag=&(ri_ptr->attr_modified); update_count=&(ri_ptr->lattr_count); } /* end if */ else /* shouldn't get here, but what the heck... */ HGOTO_ERROR(DFE_ARGS, FAIL); /* Search for an attribute with the same name */ if((t = (void **)tbbtfirst((TBBT_NODE *)*search_tree))!=NULL) { do { at_ptr=(at_info_t *)*t; if(at_ptr!=NULL && HDstrcmp(at_ptr->name,name)==0) /* ie. the name matches */ { found=TRUE; break; } /* end if */ } while((t= (void **)tbbtnext((TBBT_NODE *)t))!=NULL); } /* end if */ if(found==TRUE) /* attribute already exists, just update it */ { int32 new_at_size; /* size in bytes of the new attribute data */ /* Catch the user if he tries to change the NT */ if(attr_nt!=at_ptr->nt) HGOTO_ERROR(DFE_ARGS, FAIL); /* Calc. old & new attr. sizes */ new_at_size=count*DFKNTsize((attr_nt | DFNT_NATIVE) & (~DFNT_LITEND)); at_size=at_ptr->len*DFKNTsize((at_ptr->nt | DFNT_NATIVE) & (~DFNT_LITEND)); if((uint32)new_at_size>gr_ptr->attr_cache) /* check if data is cacheable */ { /* not cacheable, write directly out to disk and throw away old in-memory copy */ int32 AttrID; /* attribute Vdata id */ /* Update data on disk */ if((AttrID=VSattach(hdf_file_id,(int32)at_ptr->ref,"w"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if(VSsetfields(AttrID,at_ptr->name)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_BADFIELDS,FAIL); } /* end if */ if(VSwrite(AttrID,data,count,FULL_INTERLACE)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_VSWRITE,FAIL); } /* end if */ if(VSdetach(AttrID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); /* Update in-memory fields */ at_ptr->len=count; at_ptr->data_modified=FALSE; /* Toss the old data, it's not valid and it's un-cacheable now */ if(at_ptr->data!=NULL) HDfreenclear(at_ptr->data); } /* end if */ else { /* check if we need a bigger buffer */ if(new_at_size>at_size || at_ptr->data==NULL) { if(at_ptr->data!=NULL) HDfree(at_ptr->data); if((at_ptr->data=HDmalloc(new_at_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); } /* end if */ HDmemcpy(at_ptr->data,data,new_at_size); /* Update in-memory fields */ at_ptr->len=count; at_ptr->data_modified=TRUE; *update_flag=TRUE; /* flag the tree as changed */ } /* end else */ } /* end if */ else /* a new attribute */ { if((at_ptr=(at_info_t *)HDmalloc(sizeof(at_info_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* Fill in fields for the new attribute */ at_ptr->index=*update_count; /* get the index and update the tree's count */ at_ptr->nt=attr_nt; at_ptr->len=count; /* allocate space for the attribute name & copy it */ if((at_ptr->name=(char *)HDmalloc(HDstrlen(name)+1))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDstrcpy(at_ptr->name,name); /* calc. the attr size to see if it is worth caching */ at_size=at_ptr->len*DFKNTsize((at_ptr->nt | DFNT_NATIVE) & (~DFNT_LITEND)); if((uint32)at_sizeattr_cache) { /* cacheable */ /* allocate space for the attribute name & copy it */ if((at_ptr->data=(char *)HDmalloc(at_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); HDmemcpy(at_ptr->data,data,at_size); at_ptr->data_modified=TRUE; at_ptr->ref=DFREF_WILDCARD; } /* end if */ else { /* non-cacheable */ if((at_ptr->ref=(uint16)VHstoredata(hdf_file_id,at_ptr->name,data, at_ptr->len,at_ptr->nt,RIGATTRNAME,RIGATTRCLASS))==(uint16)FAIL) HGOTO_ERROR(DFE_VSCANTCREATE,FAIL); at_ptr->data=NULL; at_ptr->data_modified=FALSE; } /* end else */ at_ptr->new_at=TRUE; /* Add the attribute to the attribute tree */ if(tbbtdins(search_tree, at_ptr, NULL)==NULL) HGOTO_ERROR(DFE_TBBTINS,FAIL); /* flag the attribute tree as being modified */ *update_flag=TRUE; (*update_count)++; /* get the index and update the tree's count */ } /* end else */ /* set this flag also, if we set local attributes */ if(is_riid==TRUE) { if(found==FALSE) /* when adding new attributes, make certain the RI gets updated */ ri_ptr->meta_modified=TRUE; gr_ptr->gr_modified=TRUE; } /* end if */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRsetattr() */ /*-------------------------------------------------------------------------- NAME GRattrinfo PURPOSE Get attribute information for an object. USAGE intn GRattrinfo(dimid|riid|grid,index,name,attr_nt,count) int32 dimid|riid|grid; IN: DIM|RI|GR ID int32 index; IN: index of the attribute for info char *name; OUT: name of attribute int32 attr_nt; OUT: number-type of attribute int32 count; OUT: number of entries of the attribute RETURNS SUCCEED/FAIL DESCRIPTION Get attribute information for an object. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRattrinfo(int32 id,int32 index,char *name,int32 *attr_nt,int32 *count) { CONSTR(FUNC, "GRattrinfo"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ TBBT_TREE *search_tree; /* attribute tree to search through */ at_info_t *at_ptr; /* ptr to the attribute to work with */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the ID, the index is checked below */ if (HAatom_group(id)!=RIIDGROUP && HAatom_group(id)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(id)==GRIDGROUP) { /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); if(index<0 || index>=gr_ptr->gattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree=gr_ptr->gattree; } /* end if */ else if (HAatom_group(id)==RIIDGROUP) { /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); if(index<0 || index>=ri_ptr->lattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree=ri_ptr->lattree; } /* end if */ else /* shouldn't get here, but what the heck... */ HGOTO_ERROR(DFE_ARGS, FAIL); if((t = (void **)tbbtdfind(search_tree, &index, NULL))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); at_ptr=(at_info_t *)*t; if(name!=NULL) HDstrcpy(name,at_ptr->name); if(attr_nt!=NULL) *attr_nt=at_ptr->nt; if(count!=NULL) *count=at_ptr->len; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRattrinfo() */ /*-------------------------------------------------------------------------- NAME GRgetattr PURPOSE Read an attribute for an object. USAGE intn GRgetattr(dimid|riid|grid,index,data) int32 dimid|riid|grid; IN: DIM|RI|GR ID int32 index; IN: index of the attribute for info void * data; OUT: data read for attribute RETURNS SUCCEED/FAIL DESCRIPTION Read an attribute for an object. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRgetattr(int32 id,int32 index,void * data) { CONSTR(FUNC, "GRgetattr"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID from Hopen */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ TBBT_TREE *search_tree; /* attribute tree to search through */ at_info_t *at_ptr; /* ptr to the attribute to work with */ int32 at_size; /* size in bytes of the attribute data */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the ID & data ptr, the index is checked below */ if ((HAatom_group(id)!=RIIDGROUP && HAatom_group(id)!=GRIDGROUP) || data==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(id)==GRIDGROUP) { /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); if(index<0 || index>=gr_ptr->gattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree=gr_ptr->gattree; } /* end if */ else if (HAatom_group(id)==RIIDGROUP) { /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); gr_ptr=ri_ptr->gr_ptr; if(index<0 || index>=ri_ptr->lattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree=ri_ptr->lattree; } /* end if */ else /* shouldn't get here, but what the heck... */ HGOTO_ERROR(DFE_ARGS, FAIL); hdf_file_id=gr_ptr->hdf_file_id; if((t = (void **)tbbtdfind(search_tree, &index, NULL))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); at_ptr=(at_info_t *)*t; /* Calculate the size of the attribute data */ at_size=at_ptr->len*DFKNTsize((at_ptr->nt | DFNT_NATIVE) & (~DFNT_LITEND)); /* Check if the attribute has been read in yet, and get it if not */ if(at_ptr->data==NULL) { int32 AttrID; /* attribute Vdata id */ /* Grab some memory for the attribute data */ if((at_ptr->data=HDmalloc(at_size))==NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if((AttrID=VSattach(hdf_file_id,(int32)at_ptr->ref,"r"))==FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if(VSsetfields(AttrID,at_ptr->name)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_BADFIELDS,FAIL); } /* end if */ if(VSread(AttrID,at_ptr->data,at_ptr->len,FULL_INTERLACE)==FAIL) { VSdetach(AttrID); HGOTO_ERROR(DFE_VSWRITE,FAIL); } /* end if */ if(VSdetach(AttrID)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); } /* end if */ /* Copy the attribute into the user's buffer */ HDmemcpy(data,at_ptr->data,at_size); /* If the attribute is too large to keep in memory, chuck it again */ if((uint32)at_size>gr_ptr->attr_cache) HDfreenclear(at_ptr->data); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRgetattr() */ /*-------------------------------------------------------------------------- NAME GRfindattr PURPOSE Get the index of an attribute with a given name for an object. USAGE int32 GRfindattr(int32 dimid|riid|grid,char *name) int32 dimid|riid|grid; IN: DIM|RI|GR ID char *name; IN: name of attribute to search for RETURNS Valid index for an attribute on success, FAIL on failure DESCRIPTION Get the index of an attribute with a given name for an object. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 GRfindattr(int32 id,const char *name) { CONSTR(FUNC, "GRfindattr"); /* for HERROR */ gr_info_t *gr_ptr; /* ptr to the GR information for this grid */ ri_info_t *ri_ptr; /* ptr to the image to work with */ void * *t; /* temp. ptr to the image found */ TBBT_TREE *search_tree; /* attribute tree to search through */ at_info_t *at_ptr; /* ptr to the attribute to work with */ int32 ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* check the validity of the RI ID */ if (HAatom_group(id)!=RIIDGROUP && HAatom_group(id)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(id)==GRIDGROUP) { /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); search_tree=gr_ptr->gattree; } /* end if */ else if (HAatom_group(id)==RIIDGROUP) { /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); search_tree=ri_ptr->lattree; } /* end if */ else /* shouldn't get here, but what the heck... */ HGOTO_ERROR(DFE_ARGS, FAIL); if((t = (void **)tbbtfirst((TBBT_NODE *)*search_tree))==NULL) HGOTO_ERROR(DFE_RINOTFOUND,FAIL); do { at_ptr=(at_info_t *)*t; if(at_ptr!=NULL && HDstrcmp(at_ptr->name,name)==0) /* ie. the name matches */ HGOTO_DONE(at_ptr->index); } while((t= (void **)tbbtnext((TBBT_NODE *)t))!=NULL); ret_value = (FAIL); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRfindattr() */ /*-------------------------------------------------------------------------- NAME GRIstart PURPOSE GR-level initialization routine USAGE intn GRIstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the shut-down routine (GRPshutdown) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIstart(void) { CONSTR(FUNC, "GRIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&GRPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end GRIstart() */ /*-------------------------------------------------------------------------- NAME GRIgetaid PURPOSE Internal routine to make certain an image has an AID attached to it. USAGE intn GRIgetaid(img_ptr, acc_perm) ri_info_t *img_ptr; IN: pointer to the image info for the image to access. intn acc_perm; IN: method of access desired. RETURNS SUCCEED/FAIL DESCRIPTION Attach an AID to the image's in-memory structures, in order to better manage I/O. If the prior method of access for the image's AID was read and write permission, then the previous AID is closed and reopened for both read & write permission. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn GRIgetaid(ri_info_t *ri_ptr, intn acc_perm) { CONSTR(FUNC, "GRIgetaid"); /* for HERROR */ int32 hdf_file_id; /* HDF file ID */ gr_info_t *gr_ptr; /* ptr to the file GR information for this image */ model_info minfo; /* Dummy modeling information structure */ intn ret_value = SUCCEED; HEclear(); if (ri_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* initialize important values */ gr_ptr=ri_ptr->gr_ptr; hdf_file_id=gr_ptr->hdf_file_id; /* everybody gets read permission */ acc_perm|=DFACC_READ; /* Test if the tag/ref pair has been assigned yet */ if(ri_ptr->img_tag==DFTAG_NULL || ri_ptr->img_ref==DFREF_WILDCARD) { if(ri_ptr->use_cr_drvr) ri_ptr->img_tag=DFTAG_CI; else ri_ptr->img_tag=DFTAG_RI; ri_ptr->img_ref=Htagnewref(hdf_file_id,ri_ptr->img_tag); } /* end if */ /* Check if we need to increase the access permissions asked for */ if(ri_ptr->comp_img || (ri_ptr->img_aid!=0 && (acc_perm&DFACC_WRITE)!=0 && (ri_ptr->acc_perm&DFACC_WRITE)==0)) { /* Close the old AID (which only had read permission) */ Hendaccess(ri_ptr->img_aid); ri_ptr->img_aid=0; } /* end if */ /* Check if we are the first to open the AID */ if(ri_ptr->img_aid==0) { /* Go get the AID */ if(ri_ptr->comp_img) { /* Need to create the compressed data element */ if((ri_ptr->img_aid=HCcreate(hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref,COMP_MODEL_STDIO,&minfo,ri_ptr->comp_type,&(ri_ptr->cinfo)))==FAIL) HGOTO_ERROR(DFE_BADAID,FAIL); ri_ptr->comp_img=0; /* reset the compression flag */ } /* end if */ else { /* Check for old-style compressed raster or just open normally */ if(ri_ptr->use_cr_drvr) { /* Use compressed raster driver */ uintn pixel_size; /* size of a pixel on disk */ pixel_size=(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); /* BMR: HRPconvert made access_rec->special = SPECIAL_COMPRAS */ if((ri_ptr->img_aid=HRPconvert(hdf_file_id,ri_ptr->img_tag, ri_ptr->img_ref,ri_ptr->img_dim.xdim,ri_ptr->img_dim.ydim, ri_ptr->img_dim.comp_tag,&(ri_ptr->cinfo),pixel_size))==FAIL) HGOTO_ERROR(DFE_BADAID,FAIL); } /* end if */ else { /* Use regular startaccess to create element */ if((ri_ptr->img_aid=Hstartaccess(hdf_file_id,ri_ptr->img_tag,ri_ptr->img_ref,acc_perm))==FAIL) HGOTO_ERROR(DFE_BADAID,FAIL); } /* end else */ } /* end else */ if(ri_ptr->use_buf_drvr) { /* Convert to buffered special element if needed */ if(HBconvert(ri_ptr->img_aid)==FAIL) HGOTO_ERROR(DFE_CANTINIT,FAIL); } /* end if */ ri_ptr->acc_perm=acc_perm; } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ ri_ptr->img_aid=0; } /* end if */ /* Normal function cleanup */ return ret_value; } /* end GRIgetaid() */ /*-------------------------------------------------------------------------- NAME GRPshutdown PURPOSE Terminate various static buffers. USAGE intn GRPshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the GR routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn GRPshutdown(void) { if(gr_tree!=NULL) { /* Free the vfile tree */ tbbtdfree(gr_tree, GRIgrdestroynode, NULL); /* Destroy the atom groups for GRs and RIs */ HAdestroy_group(GRIDGROUP); HAdestroy_group(RIIDGROUP); gr_tree=NULL; } /* end if */ return(SUCCEED); } /* end GRPshutdown() */ /*====================== Chunking Routines ================================*/ /* Debugging */ /* #define CHK_DEBUG */ /* NOTE: the definition of the union HDF_CHUNK_DEF can be found in hproto.h */ /****************************************************************************** NAME GRsetchunk -- make GR a chunked GR DESCRIPTION This routine makes the GR a chunked GR according to the chunk definiton passed in. The image currently cannot be special already. i.e. NBIT, COMPRESSED, or EXTERNAL. This is an Error. The defintion of the HDF_CHUNK_DEF union with relvant fields is: typedef union hdf_chunk_def_u { int32 chunk_lengths[2]; Chunk lengths along each dimension struct { int32 chunk_lengths[2]; Chunk lengths along each dimension int32 comp_type; Compression type comp_info cinfo; Compression info struct }comp; } HDF_CHUNK_DEF The variable agruement 'flags' is a bit-or'd value which can currently be 'HDF_CHUNK' or 'HDF_CHUNK | HDF_COMP'. The simplist is the 'chunk_lengths' array specifiying chunk lengths for each dimension where the 'flags' argument set to 'HDF_CHUNK'; COMPRESSION is set by using the 'HDF_CHUNK_DEF' union to set the appropriate compression information along with the required chunk lengths for each dimension. The compression information is the same as that set in 'GRsetcompress()'. The bit-or'd 'flags' argument' is set to 'HDF_CHUNK | HDF_COMP'. See the example in pseudo-C below for further usage. The maximum number of Chunks in an HDF file is 65,535. The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the image and by the maximum number of chunks set in the chunk cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. See the routine GRsetchunkcache() for further info on the chunk cache and how to set the maximum number of chunks in the chunk cache. A default chunk cache is always created. The following example shows the organization of chunks for a 2D array. e.g. 4x4 array with 2x2 chunks. The array shows the layout of chunks in the chunk array. 4 --------------------- | | | Y | (0,1) | (1,1) | ^ | | | | 2 --------------------- | | | | | | (0,0) | (1,0) | | | | | | --------------------- | 0 2 4 ---------------> X --Without compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set Chunking -- GRsetchunk(riid, chunk_def, HDF_CHUNK); ...... } --With compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths first -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set compression -- chunk_def.comp.cinfo.deflate.level = 9; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; -- Set Chunking with Compression -- GRsetchunk(riid, chunk_def, HDF_CHUNK | HDF_COMP); ...... } NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn GRsetchunk(int32 riid, /* IN: raster access id */ HDF_CHUNK_DEF chunk_def, /* IN: chunk definition */ int32 flags /* IN: flags */) { CONSTR(FUNC, "GRsetchunk"); ri_info_t *ri_ptr = NULL; /* ptr to the image to work with */ HCHUNK_DEF chunk[1]; /* H-level chunk defintion */ HDF_CHUNK_DEF *cdef = NULL; /* GR Chunk definition */ model_info minfo; /* dummy model info struct */ comp_info cinfo; /* compression info - NBIT */ int32 *cdims = NULL; /* array of chunk lengths */ uintn pixel_mem_size; /* size of a pixel in memory */ uintn pixel_disk_size; /* size of a pixel on disk */ void * fill_pixel = NULL; /* converted value for the filled pixel */ int32 at_index; /* attribute index for the fill value */ uint32 comp_config; int32 ndims = 0; /* # dimensions i.e. rank */ uint8 nlevels = 1; /* default # levels is 1 */ intn i; /* loop variable */ int32 hdf_file_id; /* HDF file ID */ gr_info_t *gr_ptr; /* ptr to the file GR information for this image */ intn ret_value = SUCCEED; /* return value */ #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: called \n"); #endif /* clear error stack and check validity of args */ HEclear(); memset(chunk,0,sizeof(chunk[0])); /* Check some args */ /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* initialize important values */ gr_ptr = ri_ptr->gr_ptr; hdf_file_id = gr_ptr->hdf_file_id; /* Test if the tag/ref pair has been assigned yet Note that HMCcreate() needs to do the Hstartaccess on the special tag/ref pair that is created. If another GRxx routine does it then the special element cannot be created. Special elements require 'lazy' DD creation. */ if(ri_ptr->img_tag == DFTAG_NULL || ri_ptr->img_ref == DFREF_WILDCARD) { ri_ptr->img_tag = DFTAG_RI; ri_ptr->img_ref = Htagnewref(hdf_file_id,ri_ptr->img_tag); } /* end if */ #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: ri_ptr->img_aid=%d \n",ri_ptr->img_aid); #endif /* Decide type of defintion passed in */ switch (flags) { case HDF_CHUNK: /* case where chunk_def only has chunk lengths */ cdef = (HDF_CHUNK_DEF *)&chunk_def; cdims = cdef->chunk_lengths; chunk[0].chunk_flag = 0; /* nothing set for this now */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ chunk[0].cinfo = &cinfo; /* dummy */ chunk[0].minfo = &minfo; /* dummy */ break; case (HDF_CHUNK | HDF_COMP): /* EIP 9/12/03 * We have to take special care if SZIP library is not available; * Fow all other compression types do */ cdef = (HDF_CHUNK_DEF *)&chunk_def; /* Check that the compression encoder is available */ HCget_config_info((comp_coder_t )(cdef->comp.comp_type), &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER,FAIL); } if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_NOENCODER,FAIL); } cdims = cdef->comp.chunk_lengths; chunk[0].chunk_flag = SPECIAL_COMP; /* Compression */ chunk[0].comp_type = (comp_coder_t)cdef->comp.comp_type; chunk[0].model_type = COMP_MODEL_STDIO; /* Default */ chunk[0].minfo = &minfo; /* dummy */ if ((comp_coder_t)cdef->comp.comp_type != COMP_CODE_SZIP) { chunk[0].cinfo = &cdef->comp.cinfo; } else #ifdef H4_HAVE_LIBSZ /* we have the library */ { HDmemcpy(&cinfo,&(cdef->comp.cinfo),sizeof(comp_info)); if (GRsetup_szip_parms(ri_ptr, &cinfo, cdims) == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); chunk[0].cinfo = &cinfo; } #else /* we do not have the SZIP library */ { HGOTO_ERROR(DFE_NOSZLIB, FAIL); } #endif /* H4_HAVE_LIBSZ */ break; case (HDF_CHUNK | HDF_NBIT): /* don't support NBIT for GRs */ HGOTO_ERROR(DFE_UNSUPPORTED, FAIL); default: HGOTO_ERROR(DFE_BADSCHEME, FAIL); } /* end switch */ /* Now start setting chunk info */ ndims = 2; /* set number of dims i.e. rank for Rasters it is 2 */ /* allocate space for chunk dimensions */ if ((chunk[0].pdims = (DIM_DEF *)HDmalloc(ndims*sizeof(DIM_DEF))) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* initialize image/chunk sizes using CHUNK defintion structure */ chunk[0].chunk_size = 1; chunk[0].num_dims = ndims; for (i = 0; i < ndims; i++) { /* get dimension length from shape arrays */ if ( i == 0) /* X */ chunk[0].pdims[i].dim_length = ri_ptr->img_dim.xdim; else /* Y */ chunk[0].pdims[i].dim_length = ri_ptr->img_dim.ydim; /* set chunk lengths */ if (cdims[i] >= 1) chunk[0].pdims[i].chunk_length = cdims[i]; else { /* chunk length is less than 1 */ ret_value = FAIL; goto done; } #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: cdims[%d]=%d \n",i,cdims[i]); fflush(stderr); #endif /* Data distribution along dimensions * Check dimension length agains chunk length */ if (i == 0) /* X */ { if (cdims[i] == ri_ptr->img_dim.xdim) chunk[0].pdims[i].distrib_type = 0; /* NONE */ else chunk[0].pdims[i].distrib_type = 1; /* BLOCK */ } else /* Y */ { if (cdims[i] == ri_ptr->img_dim.ydim) chunk[0].pdims[i].distrib_type = 0; /* NONE */ else chunk[0].pdims[i].distrib_type = 1; /* BLOCK */ } /* compute chunk size */ chunk[0].chunk_size *= cdims[i]; } /* end for ndims */ /* Get the size of the pixels in memory and on disk */ pixel_mem_size = (uintn)(ri_ptr->img_dim.ncomps*DFKNTsize((ri_ptr->img_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); pixel_disk_size = (uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); /* Set number type size i.e. size of data type number of components times the number type */ chunk[0].nt_size = ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt); #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: datatype size =%d\n", ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); fflush(stderr); #endif /* allocate space for fill pixel */ if((fill_pixel = HDmalloc(pixel_disk_size)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* create correct disk version of fill pixel */ if(ri_ptr->fill_value != NULL) { if (FAIL == DFKconvert(ri_ptr->fill_value,fill_pixel, ri_ptr->img_dim.nt,ri_ptr->img_dim.ncomps, DFACC_WRITE,0,0)) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ else /* create default pixel fill value of all zero components */ { /* Try to find a fill value attribute */ if((at_index = GRfindattr(riid,FILL_ATTR)) != FAIL) { /* Found a fill value attribute */ if((ri_ptr->fill_value = HDmalloc(pixel_mem_size)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if(GRgetattr(riid,at_index,ri_ptr->fill_value) == FAIL) HGOTO_ERROR(DFE_BADATTR,FAIL); if (FAIL == DFKconvert(ri_ptr->fill_value,fill_pixel, ri_ptr->img_dim.nt,ri_ptr->img_dim.ncomps, DFACC_WRITE,0,0)) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ else HDmemset(fill_pixel,0,pixel_disk_size); } /* end else */ #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: get ready to create\n"); fprintf(stderr,"GRsetchunk: img_tag=%d, img_ref=%d\n", ri_ptr->img_tag, ri_ptr->img_ref); #endif /* check to see already special. Error if already special since doubly special elements are not yet handled. HMCcreate should catch this....*/ /* Create GR as chunked element */ ret_value = HMCcreate(hdf_file_id, /* HDF file handle */ (uint16)ri_ptr->img_tag,/* Data tag */ (uint16)ri_ptr->img_ref,/* Data ref */ nlevels, /* nlevels */ pixel_disk_size, /* fill value length */ (VOID *)fill_pixel, /* fill value */ (HCHUNK_DEF *)chunk /* chunk definition */); #ifdef CHK_DEBUG fprintf(stderr,"HMCcreate: ret_value =%d \n", ret_value); #endif /* check return */ if(ret_value != FAIL) { /* close old aid and set new one ..hmm......this is for the doubly special hack */ if((ri_ptr->img_aid != 0) && (ri_ptr->img_aid != FAIL)) { if (FAIL == Hendaccess(ri_ptr->img_aid)) HGOTO_ERROR(DFE_INTERNAL,FAIL); } ri_ptr->img_aid = ret_value; /* set new access id */ ret_value = SUCCEED; /* re-set to successful */ } /* end if */ #ifdef CHK_DEBUG fprintf(stderr,"GRsetchunk: ri_ptr->img_aid =%d \n", ri_ptr->img_aid); #endif done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* free fill value */ if (fill_pixel != NULL) HDfree(fill_pixel); /* free chunk dims */ if (chunk[0].pdims != NULL) HDfree(chunk[0].pdims); return ret_value; } /* GRsetchunk */ /****************************************************************************** NAME GRgetchunkinfo -- get Info on GR DESCRIPTION This routine gets any special information on the GR. If its chunked, chunked and compressed or just a regular GR. Currently it will only fill the array of chunk lengths for each dimension as specified in the 'HDF_CHUNK_DEF' union. You can pass in a NULL for 'chunk_def' if don't want the chunk lengths for each dimension. If successfull it will return a bit-or'd value in 'flags' indicating if the GR is chunked(HDF_CHUNK), chunked and compressed(HDF_CHUNK | HDF_COMP) or non-chunked(HDF_NONE). e.g. 4x4 array - Pseudo-C { HDF_CHUNK_DEF rchunk_def; int32 cflags; ... GRgetchunkinfo(riid, &rchunk_def, &cflags); ... } RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn GRgetchunkinfo(int32 riid, /* IN: sds access id */ HDF_CHUNK_DEF *chunk_def, /* IN/OUT: chunk definition */ int32 *flags /* IN/OUT: flags */) { CONSTR(FUNC, "GRgetchunkinfo"); ri_info_t *ri_ptr = NULL; /* ptr to the image to work with */ sp_info_block_t info_block; /* special info block */ int16 special; /* Special code */ intn i; /* loop variable */ intn ret_value = SUCCEED; /* return value */ /* clear error stack and check validity of args */ HEclear(); /* Check some args */ /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* check if access id exists already */ if(ri_ptr->img_aid == 0) { /* now get access id, use read access for now */ if(GRIgetaid(ri_ptr,DFACC_READ)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } else if (ri_ptr->img_aid == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); #ifdef CHK_DEBUG fprintf(stderr,"%s: ri_ptr->img_aid =%d \n", FUNC, ri_ptr->img_aid); #endif /* inquire about element */ ret_value = Hinquire(ri_ptr->img_aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { /* make sure it is chunked element */ if (special == SPECIAL_CHUNKED) { /* get info about chunked element */ if ((ret_value = HDget_special_info(ri_ptr->img_aid, &info_block)) != FAIL) { /* Does user want chunk lengths back? */ if (chunk_def != NULL) { /* we assume user has allocat space for chunk lengths */ /* copy chunk lengths over */ for (i = 0; i < info_block.ndims; i++) { chunk_def->chunk_lengths[i] = info_block.cdims[i]; } } /* dont forget to free up info is special info block This space was allocated by the library */ HDfree(info_block.cdims); /* Check to see if compressed */ switch(info_block.comp_type) { case COMP_CODE_NONE: *flags = HDF_CHUNK; break; case COMP_CODE_NBIT: /* is this an error? NBIT can't be set in GRsetchunk(). */ *flags = (HDF_CHUNK | HDF_NBIT); break; default: *flags = (HDF_CHUNK | HDF_COMP); break; } } } else /* not special chunked element */ { *flags = HDF_NONE; /* regular GR */ } } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* GRgetchunkinfo() */ /****************************************************************************** NAME GRwritechunk -- write the specified chunk to the GR DESCRIPTION This routine writes a whole chunk of data to the chunked GR specified by chunk 'origin' for the given GR and can be used instead of GRwriteimage() when this information is known. This routine has less overhead and is much faster than using GRwriteimage(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See GRsetchunk() for a description of the organization of chunks in an GR. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn GRwritechunk(int32 riid, /* IN: access aid to GR */ int32 *origin, /* IN: origin of chunk to write */ const VOID *datap /* IN: buffer for data */) { CONSTR(FUNC, "GRwritechunk"); ri_info_t *ri_ptr = NULL; /* ptr to the image to work with */ uintn pixel_mem_size, /* size of a pixel in memory */ pixel_disk_size; /* size of a pixel on disk */ VOID *img_data = NULL; /* buffer used for conversion */ int16 special; /* Special code */ int32 csize; /* phsical chunk size */ sp_info_block_t info_block; /* special info block */ uint32 byte_count; /* bytes to write */ int8 platnumsubclass; /* the machine type of the current platform */ uintn convert; /* whether to convert or not */ intn i; uint16 scheme; /* compression scheme used for JPEG images */ uint32 comp_config; comp_coder_t comp_type; comp_info cinfo; intn status=FAIL; intn switch_interlace = FALSE;/* whether the memory interlace needs to be switched around */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); info_block.cdims = NULL; /* Check args */ if (origin == NULL || datap == NULL) { ret_value = FAIL; goto done; } /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* check if access id exists already */ if(ri_ptr->img_aid == 0) { /* now get access id, use write access */ if(GRIgetaid(ri_ptr,DFACC_WRITE)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } else if (ri_ptr->img_aid == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); #ifdef CHK_DEBUG fprintf(stderr,"%s: ri_ptr->img_aid =%d \n", FUNC, ri_ptr->img_aid); #endif comp_type = COMP_CODE_NONE; scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { comp_type = COMP_CODE_JPEG; cinfo.jpeg.quality = 0; cinfo.jpeg.force_baseline = 0; } else if (scheme == DFTAG_IMC) { /* coder no longer supported */ HGOTO_ERROR(DFE_BADCODER,FAIL); } else { /* use lower-level routine to get the compression information */ status = HCPgetcompinfo(ri_ptr->gr_ptr->hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, &comp_type, &cinfo); if (status == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } if (comp_type != COMP_CODE_NONE) { /* Check that the compression encoder is available */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER,FAIL); } if ((comp_config & COMP_ENCODER_ENABLED) == 0) { /* encoder not present?? */ HGOTO_ERROR(DFE_NOENCODER,FAIL); } } /* inquire about element */ ret_value = Hinquire(ri_ptr->img_aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) { /* yes */ /* get info about chunked element */ if ((ret_value = HDget_special_info(ri_ptr->img_aid, &info_block)) != FAIL) { /* calculate chunk size */ csize = 1; for (i = 0; i < info_block.ndims; i++) csize *= info_block.cdims[i]; /* Get the size of the pixels in memory and on disk */ pixel_mem_size =(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize((ri_ptr->img_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); pixel_disk_size =(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); /* adjust for data type size */ /* csize *= pixel_mem_size; */ byte_count = csize * pixel_mem_size; /* figure out if data needs to be converted */ /* Get number-type and conversion information */ if (FAIL == (platnumsubclass = DFKgetPNSC(ri_ptr->img_dim.nt & (~DFNT_LITEND), DF_MT))) HGOTO_ERROR(DFE_INTERNAL,FAIL); convert = (ri_ptr->img_dim.file_nt_subclass != platnumsubclass) || (pixel_mem_size != pixel_disk_size); /* is conversion necessary? */ /* check interlace */ if(ri_ptr->img_dim.il != MFGR_INTERLACE_PIXEL) switch_interlace=TRUE; /* convert if necessary */ if(convert || switch_interlace == TRUE) { /* Allocate space for the conversion buffer */ if((img_data = HDmalloc(pixel_disk_size*csize)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if(switch_interlace == TRUE) { void * pixel_buf; /* buffer for the pixel interlaced data */ /* Allocate space for the conversion buffer */ if((pixel_buf = HDmalloc(pixel_mem_size*csize)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if (FAIL == GRIil_convert((VOID *)datap,ri_ptr->img_dim.il,pixel_buf,MFGR_INTERLACE_PIXEL, info_block.cdims,ri_ptr->img_dim.ncomps,ri_ptr->img_dim.nt)) HGOTO_ERROR(DFE_INTERNAL,FAIL); /* convert the pixel data into the HDF disk format */ if (FAIL == DFKconvert(pixel_buf,img_data,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*csize,DFACC_WRITE,0,0)) HGOTO_ERROR(DFE_INTERNAL,FAIL); HDfree(pixel_buf); } /* end if */ else /* convert the pixel data into the HDF disk format */ { if (FAIL == DFKconvert((VOID *)datap,img_data,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*csize,DFACC_WRITE,0,0)) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* Write chunk out, */ if ((ret_value = HMCwriteChunk(ri_ptr->img_aid, origin, img_data)) != FAIL) ret_value = SUCCEED; } else { /* no conversion necessary, just use the user's buffer */ /* Write chunk out, */ if ((ret_value = HMCwriteChunk(ri_ptr->img_aid, origin, datap)) != FAIL) ret_value = SUCCEED; } /* end else */ } /* end if get special info block */ } else /* not special CHUNKED */ ret_value = FAIL; } /* end if Hinquire */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* dont forget to free up info is special info block This space was allocated by the library */ if (info_block.cdims != NULL) HDfree(info_block.cdims); /* free conversion buffers if we created them */ if (img_data != NULL) HDfree(img_data); return ret_value; } /* GRwritechunk() */ /****************************************************************************** NAME GRreadchunk -- read the specified chunk to the GR DESCRIPTION This routine reads a whole chunk of data from the chunked GR specified by chunk 'origin' for the given GR and can be used instead of GRreaddata() when this information is known. This routine has less overhead and is much faster than using GRreaddata(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See GRsetchunk() for a description of the organization of chunks in an GR. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV ******************************************************************************/ intn GRreadchunk(int32 riid, /* IN: access aid to GR */ int32 *origin, /* IN: origin of chunk to write */ VOID *datap /* IN/OUT: buffer for data */) { CONSTR(FUNC, "GRreadchunk"); ri_info_t *ri_ptr = NULL; /* ptr to the image to work with */ uintn pixel_mem_size; /* size of a pixel in memory */ uintn pixel_disk_size; /* size of a pixel on disk */ VOID *img_data = NULL; /* buffer used for conversion */ int16 special; /* Special code */ int32 csize; /* phsical chunk size */ sp_info_block_t info_block; /* special info block */ uint32 byte_count; /* bytes to read */ int8 platnumsubclass; /* the machine type of the current platform */ uintn convert; /* whether to convert or not */ intn i; uint16 scheme; /* compression scheme used for JPEG images */ uint32 comp_config; comp_coder_t comp_type; comp_info cinfo; intn status=FAIL; intn switch_interlace = FALSE;/* whether the memory interlace needs to be switched around */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); info_block.cdims = NULL; /* Check args */ if (origin == NULL || datap == NULL) { ret_value = FAIL; goto done; } /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* check if access id exists already */ if(ri_ptr->img_aid == 0) { /* now get access id, use write access */ if(GRIgetaid(ri_ptr,DFACC_WRITE)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } else if (ri_ptr->img_aid == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); #ifdef CHK_DEBUG fprintf(stderr,"%s: ri_ptr->img_aid =%d \n", FUNC, ri_ptr->img_aid); #endif comp_type = COMP_CODE_NONE; scheme = ri_ptr->img_dim.comp_tag; if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { comp_type = COMP_CODE_JPEG; cinfo.jpeg.quality = 0; cinfo.jpeg.force_baseline = 0; } /* Catch old images to avoid going into HCPgetcompinfo. Note: I don't think old images have chunking, but just in case I'm wrong. Should verify these later. -BMR, Jul 2012 */ else if (scheme == DFTAG_RLE) /* old image */ comp_type = COMP_CODE_RLE; else if (scheme == DFTAG_IMC) /* old image */ comp_type = COMP_CODE_IMCOMP; else { /* use lower-level routine to get the compression information */ status = HCPgetcompinfo(ri_ptr->gr_ptr->hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, &comp_type, &cinfo); if (status == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } if (comp_type != COMP_CODE_NONE && comp_type != COMP_CODE_RLE && comp_type != COMP_CODE_IMCOMP) { /* BMR: this is reading, why do we need encoder? */ /* Check that the compression encoder is available */ HCget_config_info(comp_type, &comp_config); if ((comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED) == 0) { /* coder not present?? */ HGOTO_ERROR(DFE_BADCODER,FAIL); } if ((comp_config & COMP_DECODER_ENABLED) == 0) { /* decoder not present?? */ HGOTO_ERROR(DFE_NOENCODER,FAIL); } } /* inquire about element */ ret_value = Hinquire(ri_ptr->img_aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) { /* yes */ /* get info about chunked element */ if ((ret_value = HDget_special_info(ri_ptr->img_aid, &info_block)) != FAIL) { /* calcualte chunk size */ csize = 1; for (i = 0; i < info_block.ndims; i++) csize *= info_block.cdims[i]; /* Get the size of the pixels in memory and on disk */ pixel_mem_size =(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize((ri_ptr->img_dim.nt | DFNT_NATIVE) & (~DFNT_LITEND))); pixel_disk_size =(uintn)(ri_ptr->img_dim.ncomps*DFKNTsize(ri_ptr->img_dim.nt)); /* adjust for number type size */ /* csize *= pixel_mem_size; */ byte_count = csize * pixel_mem_size; /* figure out if data needs to be converted */ /* Get number-type and conversion information */ if (FAIL ==(platnumsubclass = DFKgetPNSC(ri_ptr->img_dim.nt & (~DFNT_LITEND), DF_MT))) HGOTO_ERROR(DFE_INTERNAL,FAIL); convert = (ri_ptr->img_dim.file_nt_subclass != platnumsubclass) || (pixel_mem_size != pixel_disk_size); /* is conversion necessary? */ /* check interlace */ if(ri_ptr->img_dim.il != MFGR_INTERLACE_PIXEL) switch_interlace=TRUE; /* read chunk in */ if(convert) { /* Allocate space for the conversion buffer */ if((img_data = HDmalloc(pixel_disk_size*csize)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); /* read it in */ if ((ret_value = HMCreadChunk(ri_ptr->img_aid, origin, img_data)) != FAIL) { if (FAIL == DFKconvert(img_data,datap,ri_ptr->img_dim.nt, ri_ptr->img_dim.ncomps*csize,DFACC_READ,0,0)) HGOTO_ERROR(DFE_INTERNAL,FAIL); ret_value = SUCCEED; } } /* end if */ else { if ((ret_value = HMCreadChunk(ri_ptr->img_aid, origin, datap)) != FAIL) ret_value = SUCCEED; } /* Check whether we need to convert the buffer to the user's */ /* requested interlace scheme. */ /* Note: This is implemented in a horribly ugly & slow manner, but I'm */ /* in a bit of a hurry right now - QAK */ /* I took this code from GRwrite() and put it here - GV */ if(ri_ptr->im_il != MFGR_INTERLACE_PIXEL) { void * pixel_buf; /* buffer for the pixel interlaced data */ /* Allocate space for the conversion buffer */ if((pixel_buf = HDmalloc(pixel_mem_size*csize)) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); if (FAIL == GRIil_convert(datap,MFGR_INTERLACE_PIXEL,pixel_buf,ri_ptr->im_il, info_block.cdims,ri_ptr->img_dim.ncomps,ri_ptr->img_dim.nt)) HGOTO_ERROR(DFE_INTERNAL,FAIL); HDmemcpy(datap,pixel_buf,pixel_mem_size*csize); HDfree(pixel_buf); } /* end if */ } /* end if get special info block */ } else /* not special CHUNKED */ ret_value = FAIL; } /* end if Hinquire */ done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ /* dont forget to free up info is special info block This space was allocated by the library */ if (info_block.cdims != NULL) HDfree(info_block.cdims); /* free conversion buffers if any */ if (img_data != NULL) HDfree(img_data); return ret_value; } /* GRreadchunk() */ /****************************************************************************** NAME GRsetchunkcache - maximum number of chunks to cache DESCRIPTION Set the maximum number of chunks to cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. This routine allows the setting of maximum number of chunks that can be cached, 'maxcache'. The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the image and by the maximum number of chunks set in the chunk cache. The number chunks that can be set in the cache is process memory limited. It is a good idea to always set the maximum number of chunks in the cache as the default heuristic does not take into account the memory available for the application. By default when the GR is promoted to a chunked element the maximum number of chunks in the cache 'maxcache' is set to the number of chunks along the last dimension. The values set here affects the current GR object's caching behaviour. If the chunk cache is full and 'maxcache' is greater then the current 'maxcache' value, then the chunk cache is reset to the new 'maxcache' value, else the chunk cache remains at the current 'maxcache' value. If the chunk cache is not full, then the chunk cache is set to the new 'maxcache' value only if the new 'maxcache' value is greater than the current number of chunks in the cache. Use flags argument of 'HDF_CACHEALL' if the whole object is to be cached in memory, otherwise pass in zero(0). Currently you can only pass in zero. See GRsetchunk() for a description of the organization of chunks in an GR. NOTE: This routine directly calls a Special Chunked Element fcn HMCxxx. RETURNS Returns the 'maxcache' value for the chunk cache if successful and FAIL otherwise AUTHOR -GeorgeV ******************************************************************************/ intn GRsetchunkcache(int32 riid, /* IN: access aid to mess with */ int32 maxcache, /* IN: max number of chunks to cache */ int32 flags /* IN: flags = 0, HDF_CACHEALL */) { CONSTR(FUNC, "GRsetchunkcache"); ri_info_t *ri_ptr = NULL; /* ptr to the image to work with */ int16 special; /* Special code */ intn ret_value = SUCCEED; /* clear error stack and check validity of args */ HEclear(); /* Check args */ if (maxcache < 1 ) { ret_value = FAIL; goto done; } if (flags != 0 && flags != HDF_CACHEALL) { ret_value = FAIL; goto done; } /* check the validity of the RI ID */ if (HAatom_group(riid)!=RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(riid))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* check if access id exists already */ if(ri_ptr->img_aid == 0) { /* now get access id, use write access */ if(GRIgetaid(ri_ptr,DFACC_WRITE)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } else if (ri_ptr->img_aid == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); #ifdef CHK_DEBUG fprintf(stderr,"%s: ri_ptr->img_aid =%d \n", FUNC, ri_ptr->img_aid); #endif /* inquire about element */ ret_value = Hinquire(ri_ptr->img_aid, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &special); if (ret_value != FAIL) { if (special == SPECIAL_CHUNKED) /* set cache*/ ret_value = HMCsetMaxcache(ri_ptr->img_aid, maxcache, flags); else ret_value = FAIL; } done: if (ret_value == FAIL) { /* Failure cleanup */ } /* Normal cleanup */ return ret_value; } /* GRsetchunkcache() */ /*--------------------------------------------------------------- NAME GRmapped - Checks whether an RI is to be mapped (hmap project) USAGE intn GRmapped(riid, *tobe_mapped, *created_byGR) int32 riid; IN: raster image ID intn *tobe_mapped; IN: TRUE if the image should be mapped intn *created_byGR; IN: TRUE if the image was created by GR API DESCRIPTION GRmapped checks if the given RI satisfies the following conditions: + being an 8-bit RI + having one component + being non-special or RLE compressed only, i.e., no other compressions, no chunking,... The function will set tobe_mapped to TRUE if the image satisfies the above conditions, and FALSE, otherwise. In addition, the function will set the flag name_generated to indicate whether the image has name that was generated by the library. Old images (or images created with non-GR API) didn't have a name so the library would generate a name for it while reading in the file. RETURNS SUCCEED/FAIL Feb 24, 2011 -BMR MODIFICATION Mar 17, 2011: Changed the function from intn GR2bmapped(int32 riid), returning TRUE/FALSE/FAIL, to intn GR2bmapped(int32 riid, intn *tobe_mapped, intn *name_generated), returning SUCCEED/FAIL ----------------------------------------------------------------*/ intn GR2bmapped(int32 riid, intn *tobe_mapped, intn *name_generated) { CONSTR(FUNC, "GR2bmapped"); ri_info_t *ri_ptr; /* ptr to the image to work with */ intn should_map = FALSE; /* TRUE if the image should be mapped */ uint16 img_tag, img_ref; /* shortcuts image's tag/ref */ int32 ritype; /* image's type */ intn special_type=0; /* specialness of the image data */ int32 file_id; /* shortcut file id */ intn status; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Check the validity of the ID */ if (HAatom_group(riid) != RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate RI's object in hash table */ ri_ptr = (ri_info_t *) HAatom_object(riid); if (NULL == ri_ptr) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* shortcuts */ img_tag = ri_ptr->img_tag; img_ref = ri_ptr->img_ref; file_id = ri_ptr->gr_ptr->hdf_file_id; /* If the image has old image tag, then make sure it is either non-special or compressed with RLE only */ if (img_tag == DFTAG_RI8 || img_tag == DFTAG_CI8) { if (ri_ptr->img_dim.comp_tag == DFTAG_RLE || ri_ptr->img_dim.comp_tag == DFTAG_NULL) should_map = TRUE; } /* If the image has new image tag, then make sure that it has 8-bit data and has no special storage except RLE compression before determining that it is mapped-able */ else if (img_tag == DFTAG_RI || img_tag == DFTAG_CI) { /* Get the image data's type */ status = GRgetiminfo(riid, NULL, NULL, &ritype, NULL, NULL, NULL); /* If it is 8-bit, set flag to check further for special storage */ if (ritype == DFNT_UCHAR8 || ritype == DFNT_CHAR8 || ritype == DFNT_UINT8 || ritype == DFNT_INT8) { /* Also make sure it only has one component */ if (ri_ptr->img_dim.ncomps ==1) { /* Make sure no specialness or only with RLE compression */ comp_coder_t comp_type=COMP_CODE_NONE; status = GRgetcomptype(riid, &comp_type); if (comp_type == COMP_CODE_RLE || comp_type == COMP_CODE_NONE) { special_type = GRIisspecial_type(file_id, img_tag, img_ref); /* In some cases, special_type = 0 for old image with RLE, although the image has newer image tag. Added the check for 0 here, but this should be investigated more. -BMR*/ if (special_type == SPECIAL_COMP || special_type == 0) should_map = TRUE; } } } } /* Set flag to return */ *tobe_mapped = should_map; /* Copy flag that indicates whether this image has name that was generated by library, and not given by application */ *name_generated = ri_ptr->name_generated; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* GR2bmapped */ /* API functions to finish: Misc. stuff left to do: Deal with special elements for images. GRrename for images. GRsetflags to suppress writing fill data and to suppress fillvalue attr. Read/Write Interlaced data (of line & plane types, pixel is working). Features not supported: Add in full support for multiple palettes with each RI. Add in support for named palettes with each RI. Add in support for palettes with non-standard formats. Deletion of attributes or images (would require changing the way index numbers are handled) */ libhdf4-4.2.10/HDF_ALT/hdf/src/mfgrf.c0000644000000000000000000012703512421456623013713 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5700 $"; #endif /* $Id: mfgrf.c 5700 2011-10-10 04:32:38Z bmribler $ */ /*----------------------------------------------------------------------------- * File: mfsdf.c * Purpose: C stubs for Fortran GR routines * Invokes: mfgr.c * Contents: * mgstart: Call GRstart to initialize the GR interface for a file * mgfinfo: Call GRfileinfo for information about the file * mgend: Call GRend to close down the GR interface to a file * mgcreat: Call GRcreate to create a raster image * mgselct: Call GRselect to select an existing raster image for I/O * mgn2ndx: Call GRnametoindex to map an image's name into a index in a file * mggiinf: Call GRgetiminfo to get information about an image * mgwrimg: Call GRwriteimage to write image data to the file * mgrdimg: Call GRreadimage to read image data from the file * mgendac: Call GRendaccess to end access to a raster image * mggdid: Call GRgetdimid to get a dimension ID for an image [Later] * mgsdnam: Call GRsetdimname to set a dimension's name [Later] * mggdinf: Call GRgetdiminfo to get information about a dimension [Later] * mgid2rf: Call GRidtoref to map an RI ID into a ref. # for annotating * mgr2idx: Call GRreftoindex to map a ref. # into an index for the image * mgrltil: Call GRreqlutil to request the interlace of the next LUT read * mgrimil: Call GRreqimageil to request the interlace of the next image read * mggltid: Call GRgetlutid to get a palette ID for an image * mgglinf: Call GRgetlutinfo to get information about a palette * mgwrlut: Call GRwritelut to write a palette to the file * mgwclut: Call GRwritelut to write a character palette to the file * mgrdlut: Call GRreadlut to read a palette from the file * mgrclut: Call GRreadlut to read a character palette from the file * mgsxfil: Call GRsetexternalfile to move an image into an external file * mgsactp: Call GRsetaccesstype to set the access type for an image * mgscomp: Call GRsetcompress to compress an image in the file * mggcomp: Call GRgetcompinfo to get image compression information * mgisattr: Call GRsetattr to write an attribute for an object * mgiscatt: Call GRsetattr to write a char attribute for an obj. * mgatinf: Call GRattrinfo get information about an attribute * mggcatt: Call GRgetattr to read a char attribute from the file * mggnatt: Call GRgetattr to read a numeric attribute from the file * mggattr: Call GRgetattr to read an attribute from the file * mgfndat: Call GRfindattr to get the index of an attribute for a name * mglut2ref: Call GRluttoref to get reference number for a palette specified * by palette identifier * Remarks: *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /* Local pre-processor macros */ #define XDIM 0 #define YDIM 1 /*----------------------------------------------------------------------------- * Name: mgstart * Purpose: Call GRstart to initialize the GR interface for a file * Inputs: fid: HDF file ID of file to initialize * Returns: GR ID on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRstart *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgstart(intf * fid) { return((intf)GRstart((int32)*fid)); } /* end mgstart() */ /*----------------------------------------------------------------------------- * Name: mgfinfo * Purpose: Call GRfileinfo to get information about the images in a file * Inputs: grid: GR ID of file for information * n_datasets: # of raster images in the file * n_attrs: # of "global" GR attributes * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRfileinfo *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgfinfo(intf * grid,intf *n_datasets,intf *n_attrs) { int32 n_data, n_attr; intf ret; ret=(intf)GRfileinfo((int32)*grid,&n_data,&n_attr); *n_datasets=(intf)n_data; *n_attrs=(intf)n_attr; return(ret); } /* end mgfinfo() */ /*----------------------------------------------------------------------------- * Name: mgend * Purpose: Call GRend to close the GR interface for a file * Inputs: grid: GR ID of interface to close * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRend *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgend(intf * grid) { return((intf)GRend((int32)*grid)); } /* end mgend() */ /*----------------------------------------------------------------------------- * Name: mgicreat * Purpose: Call GRcreate to create a raster image. * Inputs: * grid: GR ID of interface to create image in * name: name of raster image * ncomp: number of components per pixel * nt: number-type of each component * il: interlace scheme to use * dimsizes[2]: dimensions of the image to create * nlen: length of the name string * Returns: RI ID on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRcreate *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgicreat(intf * grid, _fcd name, intf *ncomp, intf *nt, intf *il, intf dimsizes[2], intf *nlen) { char *fn; int32 cdims[2]; intf ret; /* Convert the FORTRAN string into a C string */ fn = HDf2cstring(name, (intn)*nlen); if (fn == NULL) return FAIL; /* Copy the array of dimensions into an array of the proper type */ cdims[XDIM]=(int32)dimsizes[XDIM]; cdims[YDIM]=(int32)dimsizes[YDIM]; ret = (intf)GRcreate((int32)*grid, fn, (int32)*ncomp,(int32)*nt,(int32)*il,cdims); HDfree(fn); return(ret); } /* end mgicreat() */ /*----------------------------------------------------------------------------- * Name: mgselct * Purpose: Call GRselect to choose an existing raster image. * Inputs: * grid: GR ID of interface * index: the index of the image to select * Returns: RI ID on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRselect *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgselct(intf * grid, intf *index) { return((intf)GRselect((int32)*grid,(int32)*index)); } /* end mgselct() */ /*----------------------------------------------------------------------------- * Name: mgin2ndx * Purpose: Call GRnametoindex to map a raster image name to an index * Inputs: * grid: GR ID of interface * name: the name of the raster image to find * nlen: the length of the name * Returns: image index on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRnametoindex *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgin2ndx(intf * grid, _fcd name, intf *nlen) { char *fn; intf ret; /* Convert the FORTRAN string into a C string */ fn = HDf2cstring(name, (intn)*nlen); if (fn == NULL) return FAIL; /* Copy the array of dimensions into an array of the proper type */ ret = (intf)GRnametoindex((int32)*grid, fn); HDfree(fn); return(ret); } /* end mgin2ndx() */ /*----------------------------------------------------------------------------- * Name: mggiinf * Purpose: Call GRgetiminfo to get information about an image * Inputs: * riid: RI ID of the image * name: the name of the raster image to find * ncomp: the number of components each pixel has * nt: the number type of each component * il: the interlace of the image components * dimsizes: the dimensions of the image * nattr: the number of attributes the image has * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetiminfo *---------------------------------------------------------------------------*/ FRETVAL(intf) nmggiinf(intf * riid, _fcd name, intf *ncomp, intf *nt, intf *il, intf *dimsizes, intf *nattr) { int32 t_ncomp, t_nt, t_il, t_dimsizes[2], t_nattr; intf ret; /* Copy the array of dimensions into an array of the proper type */ ret = (intf)GRgetiminfo((int32)*riid, (char *)_fcdtocp(name), &t_ncomp, &t_nt, &t_il, t_dimsizes, &t_nattr); *ncomp=(intf)t_ncomp; *nt=(intf)t_nt; *il=(intf)t_il; dimsizes[XDIM]=t_dimsizes[XDIM]; dimsizes[YDIM]=t_dimsizes[YDIM]; *nattr=(intf)t_nattr; return(ret); } /* end mggiinf() */ /*----------------------------------------------------------------------------- * Name: mgwcimg * Purpose: Call mgwrimg to write char type image data to the file * Inputs: * riid: RI ID of the image * start: the starting location of the image data to write * stride: the stride of image data to write * count: the number of pixels in each dimension to write * data: the image data (pixels) to write out * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRwriteimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgwcimg(intf * riid, intf *start, intf *stride, intf *count, _fcd data) { return(nmgwrimg(riid, start, stride, count, (VOIDP)_fcdtocp(data))); } /* end mgwcimg() */ /*----------------------------------------------------------------------------- * Name: mgwrimg * Purpose: Call GRwriteimage to write image data to the file * Inputs: * riid: RI ID of the image * start: the starting location of the image data to write * stride: the stride of image data to write * count: the number of pixels in each dimension to write * data: the image data (pixels) to write out * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRwriteimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgwrimg(intf * riid, intf *start, intf *stride, intf *count, VOIDP data) { int32 t_start[2], t_stride[2], t_count[2]; /* Copy the array of dimensions into an array of the proper type */ t_start[XDIM]=(int32)start[XDIM]; t_start[YDIM]=(int32)start[YDIM]; t_stride[XDIM]=(int32)stride[XDIM]; t_stride[YDIM]=(int32)stride[YDIM]; t_count[XDIM]=(int32)count[XDIM]; t_count[YDIM]=(int32)count[YDIM]; return((intf)GRwriteimage((int32)*riid, t_start, t_stride, t_count, data)); } /* end mgwrimg() */ /*----------------------------------------------------------------------------- * Name: mgrcimg * Purpose: Call mgrdimg to read char type image data from a file * Inputs: * riid: RI ID of the image * start: the starting location of the image data to read * stride: the stride of image data to read * count: the number of pixels in each dimension to read * data: the image data (pixels) to read out * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreadimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrcimg(intf * riid, intf *start, intf *stride, intf *count, _fcd data) { return(nmgrdimg(riid,start,stride,count,(VOIDP)_fcdtocp(data))); } /* end mgrcimg() */ /*----------------------------------------------------------------------------- * Name: mgrdimg * Purpose: Call GRreadimage to read image data from a file * Inputs: * riid: RI ID of the image * start: the starting location of the image data to read * stride: the stride of image data to read * count: the number of pixels in each dimension to read * data: the image data (pixels) to read out * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreadimage *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrdimg(intf * riid, intf *start, intf *stride, intf *count, VOIDP data) { int32 t_start[2], t_stride[2], t_count[2]; /* Copy the array of dimensions into an array of the proper type */ t_start[XDIM]=(int32)start[XDIM]; t_start[YDIM]=(int32)start[YDIM]; t_stride[XDIM]=(int32)stride[XDIM]; t_stride[YDIM]=(int32)stride[YDIM]; t_count[XDIM]=(int32)count[XDIM]; t_count[YDIM]=(int32)count[YDIM]; return((intf)GRreadimage((int32)*riid, t_start, t_stride, t_count, data)); } /* end mgrdimg() */ /*----------------------------------------------------------------------------- * Name: mgendac * Purpose: Call GRendaccess to terminate access to a raster image * Inputs: * riid: RI ID of the image * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRendaccess *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgendac(intf * riid) { return((intf)GRendaccess((int32)*riid)); } /* end mgendac() */ /*----------------------------------------------------------------------------- * Name: mgid2rf * Purpose: Call GRidtoref to map a RI index into a reference # * Inputs: * riid: RI ID of the image * Returns: ref. # on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRidtoref *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgid2rf(intf * riid) { return((intf)GRidtoref((int32)*riid)); } /* end mgid2rf() */ /*----------------------------------------------------------------------------- * Name: mgr2idx * Purpose: Call GRreftoindex to map a reference # into a ri index * Inputs: * grid: GR ID of the file * ref: ref. # of the image * Returns: a valid index # on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreftoindex *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgr2idx(intf * grid, intf *ref) { return((intf)GRreftoindex((int32)*grid,(uint16)*ref)); } /* end mgr2idx() */ /*----------------------------------------------------------------------------- * Name: mgrltil * Purpose: Call GRreqlutil to request the interlacing scheme for the next LUT * Inputs: * riid: RI ID of the image * il: interlace scheme for next read * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreqlutil *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrltil(intf * riid, intf *il) { return((intf)GRreqlutil((int32)*riid,(intn)*il)); } /* end mgrltil() */ /*----------------------------------------------------------------------------- * Name: mgrimil * Purpose: Call GRreqimageil to request the interlacing scheme for the next image * Inputs: * riid: RI ID of the image * il: interlace scheme for next read * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreqimageil *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrimil(intf * riid, intf *il) { return((intf)GRreqimageil((int32)*riid,(intn)*il)); } /* end mgrimil() */ /*----------------------------------------------------------------------------- * Name: mggltid * Purpose: Call GRgetlutid to get the palette ID for an image * Inputs: * riid: RI ID of the image * lut_index: index of the palette to select * Returns: valud LUT ID on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetlutid *---------------------------------------------------------------------------*/ FRETVAL(intf) nmggltid(intf * riid, intf *lut_index) { return((intf)GRgetlutid((int32)*riid,(intn)*lut_index)); } /* end mggltid() */ /*----------------------------------------------------------------------------- * Name: mgglinf * Purpose: Call GRgetlutinfo to get information about a palette * Inputs: * lutid: LUT ID of the image * ncomp: number of components per palette entry * nt: number-type of components in palette entry * il: interlace of components in palette entry * nentries: number of palette entries * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetlutinfo *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgglinf(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries) { int32 t_ncomp, t_nt, t_il, t_nentries; intf status; status=(intf)GRgetlutinfo((int32)*lutid,&t_ncomp,&t_nt,&t_il,&t_nentries); *ncomp=(intf)t_ncomp; *nt=(intf)t_nt; *il=(intf)t_il; *nentries=(intf)t_nentries; return(status); } /* end mgglinf() */ /*----------------------------------------------------------------------------- * Name: mgwclut * Purpose: Call GRwritelut to write data into a character palette * Inputs: * lutid: LUT ID of the image * ncomp: number of components per palette entry * nt: number-type of components in palette entry * il: interlace of components in palette entry * nentries: number of palette entries * data: data to write * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRwritelut *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgwclut(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries, _fcd data) { return((intf)GRwritelut((int32)*lutid,(int32)*ncomp,(int32)*nt,(int32)*il,(int32)*nentries,(VOIDP)_fcdtocp(data))); } /* end mgwrlut() */ /*----------------------------------------------------------------------------- * Name: mgwrlut * Purpose: Call GRwritelut to write data into a palette * Inputs: * lutid: LUT ID of the image * ncomp: number of components per palette entry * nt: number-type of components in palette entry * il: interlace of components in palette entry * nentries: number of palette entries * data: data to write * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRwritelut *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgwrlut(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries, VOIDP data) { return((intf)GRwritelut((int32)*lutid,(int32)*ncomp,(int32)*nt,(int32)*il,(int32)*nentries,data)); } /* end mgwrlut() */ /*----------------------------------------------------------------------------- * Name: mgrclut * Purpose: Call GRreadlut to read data from a character palette * Inputs: * lutid: LUT ID of the image * data: data to read * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreadlut *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrclut(intf * lutid, _fcd data) { return((intf)GRreadlut((int32)*lutid,(VOIDP)_fcdtocp(data))); } /* end mgrclut() */ /*----------------------------------------------------------------------------- * Name: mgrdlut * Purpose: Call GRreadlut to read data from a palette * Inputs: * lutid: LUT ID of the image * data: data to read * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRreadlut *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgrdlut(intf * lutid, VOIDP data) { return((intf)GRreadlut((int32)*lutid,data)); } /* end mgrdlut() */ /*----------------------------------------------------------------------------- * Name: mgisxfil * Purpose: Call GRsetexternalfile to convert an image into an external image * Inputs: * riid: RI ID of the image * filename: filename of the external file * offset: offset in the external file to place image at * nlen: the length of the name * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRsetexternalfile *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgisxfil(intf * riid, _fcd filename, intf *offset, intf *nlen) { char *fn; intf ret; /* Convert the FORTRAN string into a C string */ fn = HDf2cstring(filename, (intn)*nlen); if (fn == NULL) return FAIL; ret=(intf)GRsetexternalfile((int32)*riid,fn,(int32)*offset); HDfree(fn); return(ret); } /* end mgisxfil() */ /*----------------------------------------------------------------------------- * Name: mgsactp * Purpose: Call GRsetaccesstype to determine access mode for an image * Inputs: * riid: RI ID of the image * accesstype: the type of access to image data * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRsetaccesstype *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgsactp(intf * riid, intf *accesstype) { return((intf)GRsetaccesstype((int32)*riid,(uintn)*accesstype)); } /* end mgsactp() */ /*----------------------------------------------------------------------------- * Name: mgiscatt * Purpose: Call mgisatt to store a char attribute about an image * Inputs: * riid: RI ID of the image * name: the name of the attribute * nt: the number-type of the attribute * count: the number of values in the attribute * data: the data for the attribute * nlen: the length of the name * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRsetattr *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgiscatt(intf * riid, _fcd name, intf *nt, intf *count, _fcd data, intf *nlen) { return(nmgisattr(riid, name, nt, count, (VOIDP) _fcdtocp(data), nlen)); } /* end mgiscatt() */ /*----------------------------------------------------------------------------- * Name: mgisattr * Purpose: Call GRsetattr to store an attribute about an image * Inputs: * riid: RI ID of the image * name: the name of the attribute * nt: the number-type of the attribute * count: the number of values in the attribute * data: the data for the attribute * nlen: the length of the name * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRsetattr *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgisattr(intf * riid, _fcd name, intf *nt, intf *count, VOIDP data, intf *nlen) { char *fn; intf ret; /* Convert the FORTRAN string into a C string */ fn = HDf2cstring(name, (intn)*nlen); if (fn == NULL) return FAIL; ret=(intf)GRsetattr((int32)*riid,fn,(int32)*nt,(int32)*count,data); HDfree(fn); return(ret); } /* end mgisattr() */ /*----------------------------------------------------------------------------- * Name: mgatinf * Purpose: Call GRattrinfo to get information about an attribute * Inputs: * riid: RI ID of the image * index: the index of the attribute * name: the name of the attribute * nt: the number-type of the attribute * count: the number of values in the attribute * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRattrinfo *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgatinf(intf * riid, intf *index, _fcd name, intf *nt, intf *count) { int32 t_nt, t_count; intf ret; ret=(intf)GRattrinfo((int32)*riid,(int32)*index,(char *)_fcdtocp(name),&t_nt,&t_count); *nt=(intf)t_nt; *count=(intf)t_count; return(ret); } /* end mgatinf() */ /*----------------------------------------------------------------------------- * Name: mggcatt * Purpose: Call mggnatt to get a char attribute * Inputs: * riid: RI ID of the image * index: the index of the attribute * data: the data for the attribute * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetattr *---------------------------------------------------------------------------*/ FRETVAL(intf) nmggcatt(intf * riid, intf *index, _fcd data) { return(nmggnatt(riid, index, (VOIDP) _fcdtocp(data))); } /* end mggcatt() */ /*----------------------------------------------------------------------------- * Name: mggnatt * Purpose: Call GRgetattr to get a numeric attribute * Inputs: * riid: RI ID of the image * index: the index of the attribute * data: the data for the attribute * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetattr *---------------------------------------------------------------------------*/ FRETVAL(intf) nmggnatt(intf * riid, intf *index, VOIDP data) { return((intf)GRgetattr((int32)*riid,(int32)*index,data)); } /* end mggnatt() */ /*----------------------------------------------------------------------------- * Name: mggattr * Purpose: Call GRgetattr to get an attribute * Inputs: * riid: RI ID of the image * index: the index of the attribute * data: the data for the attribute * Returns: SUCCEED on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRgetattr * Remarks: This routine is replaced by mggcatt and mggmatt *---------------------------------------------------------------------------*/ FRETVAL(intf) nmggattr(intf * riid, intf *index, VOIDP data) { return((intf)GRgetattr((int32)*riid,(int32)*index,data)); } /* end mggattr() */ /*----------------------------------------------------------------------------- * Name: mgifndat * Purpose: Call GRfindattr to locate an attribute * Inputs: * riid: RI ID of the image * name: the name for the attribute * nlen: the length of the name for the attribute * Returns: attribute index on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: GRfindattr *---------------------------------------------------------------------------*/ FRETVAL(intf) nmgifndat(intf * riid, _fcd name, intf *nlen) { char *fn; intf ret; /* Convert the FORTRAN string into a C string */ fn = HDf2cstring(name, (intn)*nlen); if (fn == NULL) return FAIL; ret=(intf)GRfindattr((int32)*riid,fn); HDfree(fn); return(ret); } /* end mgifndat() */ /*------------------------------------------------------------------------- * Name: mgcgichnk * Puporse: Call GRgetchunkinfo * Inputs: id: access id to GR * Outputs: dim_length: chunk dimensions * flags: -1 - GR is nonchunked * 0 - GR is chunked, no compression * 1 - GR is chunked and compressed * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcgichnk(intf *id, intf *dim_length, intf *flags) #else nmgcgichnk( id, dim_length, flags) intf *id; intf *dim_length; intf *flags; #endif /* PROTOTYPE */ { HDF_CHUNK_DEF chunk_def; /* Chunk definition set */ int32 riid; /* GR id */ int i; int32 rank, status, cflags; intf ret; riid = *id; rank = 2; /* Get GR info */ status = GRgetchunkinfo(riid, &chunk_def, &cflags); if(status == FAIL) return FAIL; switch (cflags) { case HDF_NONE: /* Non-chunked GR */ *flags = -1; ret = 0; return(ret); case HDF_CHUNK: /* Chunked, noncompressed GR */ *flags = 0; for (i=0; i < rank; i++) dim_length[rank-i-1] = chunk_def.chunk_lengths[i]; ret = 0; return(ret); case (HDF_CHUNK | HDF_COMP): /* Chunked and compressed GR */ *flags = 1; for (i=0; i < rank; i++) dim_length[rank-i-1] = chunk_def.comp.chunk_lengths[i]; ret = 0; return(ret); default: return FAIL; } } /*----------------------------------------------------------------------------- * Name: mgcrcchnk * Purpose: read the specified chunk of CHARACTER data to the buffer * Inputs: id - access ID to GR * start - origin of chunk to read * Outputs: char_data - buffer the data will be read into * Calls: scrchnk * Reamrks: dimensions will be flipped in scrchnk function * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcrcchnk(intf *id, intf *start, _fcd char_data) #else nmgcrcchnk(id, start, char_data) intf *id; intf *start; _fcd char_data; #endif /* PROTOTYPE */ { intf ret; ret = nmgcrchnk(id, start, (VOIDP) _fcdtocp(char_data)); return(ret); } /*----------------------------------------------------------------------------- * Name: mgcrchnk * Purpose: read the specified chunk of NUMERIC data to the buffer * Inputs: id - access ID to GR * start - origin of chunk to read * Outputs: num_data - buffer the data will be read into * Calls: GRreadchunk * Remarks: need to flip the dimensions to account for array ordering * differencies (start --> cstart) * If performance becomes an issue, use static cstart * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcrchnk(intf *id, intf *start, VOIDP num_data) #else nmgcrchnk(id, start, num_data) intf *id; intf *start; VOIDP num_data; #endif /* PROTOTYPE */ { intf ret; int32 rank, i; int32 *cstart; rank = 2; /* Allocate memory for cstart array; use static array, if performance becomes an issue */ cstart = (int32 *) HDmalloc(sizeof(int32) * rank); if(!cstart) return FAIL; /* Flip an array to account for array odering in Fortran and C */ for ( i=0; i < rank; i++) cstart[i] = start[rank-i-1] - 1; /* Call GRreadchunk function to read the data */ ret = GRreadchunk(*id, cstart, num_data); /* Free memory */ HDfree((VOIDP)cstart); return(ret); } /*----------------------------------------------------------------------------- * Name: mgcscchnk * Purpose: set the maximum number of chunks to cache * Inputs: id - access ID to GR * maxcache - max number of chunks to cache * flags - flags= 0, HDF_CACHEALL * Currently only 0 can be passed * Calls: GRsetchunkcache * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcscchnk(intf *id, intf *maxcache, intf *flags) #else nmgcscchnk(id, maxcache, flags) intf *id; intf *maxcache; intf *flags; #endif /* PROTOTYPE */ { intf ret; ret = GRsetchunkcache(*id, *maxcache, *flags); return(ret); } /*------------------------------------------------------------------------- * Name: mgcschnk * Puporse: Call GRsetchunk * Inputs: id: access id to GR * dim_length: chunk dimensions * comp_type: type of compression * COMP_CODE_NONE (0) * COMP_CODE_RLE (1) * COMP_CODE_SKPHUFF (3) * COMP_CODE_DEFLATE (4) * COMP_CODE_INVALID (5) * comp_prm: compression parameters array * comp_prm[0] = skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0] = deflate_level: GZIP compression parameter * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcschnk(intf *id, intf *dim_length, intf *comp_type, intf *comp_prm) #else nmgcschnk( id, dim_length, comp_type, comp_prm) intf *id; intf *dim_length; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { HDF_CHUNK_DEF chunk_def; /* Chunk definition set */ int32 riid; /* GR id */ int32 cflags; /* chunk flags */ int i, CASE; int32 rank; intf ret; rank = 2; CASE = *comp_type; riid = *id; cflags = HDF_CHUNK | HDF_COMP; switch (CASE) { case 0: /* No compression */ cflags = HDF_CHUNK; for (i=0; i < rank; i++) chunk_def.chunk_lengths[i] = dim_length[rank-i-1]; break; case 1: /* RLE compression */ for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_RLE; break; #ifdef GRsetchunk_does_not_support_NBIT case 2: /* N-bit encoding */ for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_NBIT; chunk_def.comp.cinfo.nbit.sign_ext = comp_prm[0]; chunk_def.comp.cinfo.nbit.fill_one = comp_prm[1]; chunk_def.comp.cinfo.nbit.start_bit = comp_prm[2]; chunk_def.comp.cinfo.nbit.bit_len = comp_prm[3]; break; #endif case 3: /* Skipping Huffman encoding */ for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_SKPHUFF; chunk_def.comp.cinfo.skphuff.skp_size = comp_prm[0]; break; case 4: /* GZIP compression */ for (i=0; i < rank; i++) chunk_def.comp.chunk_lengths[i] = dim_length[rank-i-1]; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate.level = comp_prm[0]; break; default: return FAIL; } ret = GRsetchunk(riid, chunk_def, cflags); return(ret); } /*----------------------------------------------------------------------------- * Name: mgcwcchnk * Purpose: write the specified chunk of CHARACTER data to the GR * Inputs: id - access ID to GR * start - origin of chunk to read * Outputs: char_data - buffer the data will be read into * Calls: mgcwchnk * Reamrks: dimensions will be flipped in scrchnk function * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcwcchnk(intf *id, intf *start, _fcd char_data) #else nmgcwcchnk(id, start, char_data) intf *id; intf *start; _fcd char_data; #endif /* PROTOTYPE */ { intf ret; ret = nmgcwchnk(id, start, (VOIDP) _fcdtocp(char_data)); return(ret); } /*----------------------------------------------------------------------------- * Name: mgcwchnk * Purpose: write the specified chunk of NUMERIC data to the GR * Inputs: id - access ID to GR * start - origin of chunk to write * num_data - buffer for data * Calls: GRwritechunk * Remarks: need to flip the dimensions to account for array ordering * differencies (start --> cstart) * If performance becomes an issue, use static cstart * Returns: 0 on success, -1 on failure with error set *----------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcwchnk(intf *id, intf *start, VOIDP num_data) #else nmgcwchnk(id, start, num_data) intf *id; intf *start; VOIDP num_data; #endif /* PROTOTYPE */ { intf ret; int32 rank, i; int32 *cstart; rank = 2; /* Allocate memory for cstart array; use static array, if performance becomes an issue */ cstart = (int32 *) HDmalloc(sizeof(int32) * rank); if(!cstart) return FAIL; /* Flip an array */ for ( i=0; i < rank; i++) cstart[i] = start[rank-i-1] - 1; /* Call GRwritechunk function to write the data */ ret = GRwritechunk(*id, cstart, num_data); /* Free memory */ HDfree((VOIDP)cstart); return(ret); } /*------------------------------------------------------------------------- * Name: mgcscompress * Puporse: Call GRsetcompress * Inputs: id: access id to GR * comp_type: type of compression * COMP_CODE_NONE = 0 * COMP_CODE_RLE = 1 * COMP_CODE_SKPHUFF = 3 * COMP_CODE_DEFLATE = 4 * COMP_CODE_JPEG = 7 * comp_prm: compression parameters array * comp_prm[0]=skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0]=deflate_level: GZIP compression parameter * comp_prm[0]=quality JPEG parameters * comp_prm[1]=baseline * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcscompress(intf *id, intf *comp_type, intf *comp_prm) #else nmgcscompress( id, comp_type, comp_prm) intf *id; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { int32 riid; /* GR id */ comp_info c_info; /* compression info */ comp_coder_t c_type; /* compression type definition */ int CASE; intf ret; CASE = *comp_type; riid = *id; switch (CASE) { case COMP_CODE_NONE: /* No compression */ c_type = COMP_CODE_NONE; break; case COMP_CODE_RLE: /* RLE compression */ c_type = COMP_CODE_RLE; break; case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ c_type = COMP_CODE_SKPHUFF; c_info.skphuff.skp_size = comp_prm[0]; break; case COMP_CODE_DEFLATE: /* GZIP compression */ c_type = COMP_CODE_DEFLATE; c_info.deflate.level = comp_prm[0]; break; case COMP_CODE_JPEG: /* JPEG compression */ c_type = COMP_CODE_JPEG; c_info.jpeg.quality = comp_prm[0]; c_info.jpeg.force_baseline = comp_prm[1]; break; default: return FAIL; } ret = GRsetcompress(riid, c_type, &c_info); return(ret); } /*------------------------------------------------------------------------- * Name: mgcgcompress * Puporse: Call GRgetcompinfo * Inputs: id: access id to GR * Outputs: comp_type: type of compression * COMP_CODE_NONE = 0 * COMP_CODE_RLE = 1 * COMP_CODE_SKPHUFF = 3 * COMP_CODE_DEFLATE = 4 * COMP_CODE_JPEG = 7 * comp_prm: compression parameters array * comp_prm[0]=skphuff_skp_size: size of individual elements for * Adaptive Huffman compression algorithm * comp_prm[0]=deflate_level: GZIP compression parameter * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcgcompress(intf *id, intf *comp_type, intf *comp_prm) #else nmgcgcompress( id, comp_type, comp_prm) intf *id; intf *comp_type; intf *comp_prm; #endif /* PROTOTYPE */ { comp_info c_info; /* compression info */ comp_coder_t c_type; /* compression type definition */ int CASE; intf ret = -1; intn c_ret; c_ret = GRgetcompinfo(*id, &c_type, &c_info); if (c_ret == 0) { CASE = (int)c_type; switch (CASE) { case COMP_CODE_NONE: /* No compression */ *comp_type = 0; ret = 0; break; case COMP_CODE_RLE: /* RLE compression */ *comp_type = 1; ret = 0; break; case COMP_CODE_SKPHUFF: /* Skipping Huffman encoding */ *comp_type = 3; comp_prm[0] = (intf)c_info.skphuff.skp_size; ret = 0; break; case COMP_CODE_DEFLATE: /* GZIP compression */ *comp_type = 4; comp_prm[0] = (intf)c_info.deflate.level; ret = 0; break; case COMP_CODE_JPEG: /* JPEG compression */ *comp_type = 7; ret = 0; break; default: return FAIL; } /*end CASE */ } /*end if */ return(ret); } /*------------------------------------------------------------------------- * Name: mglt2rf * Puporse: Call GRluttoref * Inputs: id: LUT id returned by GRgetlutid(mggltid) * Returns: valid reference number if a pallette exists or 0 (DFREF_WILDCARD) * if one doesn't / FAIL * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmglt2rf(intf *id) #else nmglt2rf( id) intf *id; #endif /* PROTOTYPE */ { intf ret; ret = GRluttoref ( *id ); return(ret); } /*------------------------------------------------------------------------- * Name: mgcgnluts * Puporse: Call GRgetnluts * Inputs: id: image identifier * Returns: number of palettes on success and -1 if fails. * Users: HDF Fortran programmers *-------------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nmgcgnluts(intf *id) #else nmgcgnluts( id) intf *id; #endif /* PROTOTYPE */ { intf ret = -1; intn c_ret; c_ret = GRgetnluts ( *id ); if(c_ret >= 0) ret = c_ret; return(ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/htags.h0000644000000000000000000001452712421456623013726 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: htags.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*+ htags.h *** This file contains all the tag definitions for HDF + */ #ifndef _HTAGS_H #define _HTAGS_H /* wild-card tags and refs. Should only be used in interface calls and never stored in the file i.e. in DD's. */ #define DFREF_WILDCARD 0 #define DFTAG_WILDCARD 0 #define DFREF_NONE 0 /* used by mfhdf/libsrc/putget.c */ /* tags and refs */ #define DFTAG_NULL 1 #define DFTAG_LINKED 20 /* linked-block special element */ #define DFTAG_VERSION 30 #define DFTAG_COMPRESSED 40 /* compressed special element */ #define DFTAG_VLINKED 50 /* variable-len linked-block header */ #define DFTAG_VLINKED_DATA 51 /* variable-len linked-block data */ #define DFTAG_CHUNKED 60 /* chunked special element header (for expansion, not used )*/ #define DFTAG_CHUNK 61 /* chunk element */ /* utility set */ #define DFTAG_FID ((uint16)100) /* File identifier */ #define DFTAG_FD ((uint16)101) /* File description */ #define DFTAG_TID ((uint16)102) /* Tag identifier */ #define DFTAG_TD ((uint16)103) /* Tag descriptor */ #define DFTAG_DIL ((uint16)104) /* data identifier label */ #define DFTAG_DIA ((uint16)105) /* data identifier annotation */ #define DFTAG_NT ((uint16)106) /* number type */ #define DFTAG_MT ((uint16)107) /* machine type */ #define DFTAG_FREE ((uint16)108) /* free space in the file */ /* raster-8 set */ #define DFTAG_ID8 ((uint16)200) /* 8-bit Image dimension */ #define DFTAG_IP8 ((uint16)201) /* 8-bit Image palette */ #define DFTAG_RI8 ((uint16)202) /* Raster-8 image */ #define DFTAG_CI8 ((uint16)203) /* RLE compressed 8-bit image */ #define DFTAG_II8 ((uint16)204) /* IMCOMP compressed 8-bit image */ /* Raster Image set */ #define DFTAG_ID ((uint16)300) /* Image DimRec */ #define DFTAG_LUT ((uint16)301) /* Image Palette */ #define DFTAG_RI ((uint16)302) /* Raster Image */ #define DFTAG_CI ((uint16)303) /* Compressed Image */ #define DFTAG_NRI ((uint16)304) /* New-format Raster Image */ #define DFTAG_RIG ((uint16)306) /* Raster Image Group */ #define DFTAG_LD ((uint16)307) /* Palette DimRec */ #define DFTAG_MD ((uint16)308) /* Matte DimRec */ #define DFTAG_MA ((uint16)309) /* Matte Data */ #define DFTAG_CCN ((uint16)310) /* color correction */ #define DFTAG_CFM ((uint16)311) /* color format */ #define DFTAG_AR ((uint16)312) /* aspect ratio */ #define DFTAG_DRAW ((uint16)400) /* Draw these images in sequence */ #define DFTAG_RUN ((uint16)401) /* run this as a program/script */ #define DFTAG_XYP ((uint16)500) /* x-y position */ #define DFTAG_MTO ((uint16)501) /* machine-type override */ /* Tektronix */ #define DFTAG_T14 ((uint16)602) /* TEK 4014 data */ #define DFTAG_T105 ((uint16)603) /* TEK 4105 data */ /* Scientific Data set */ /* Objects of tag 721 are never actually written to the file. The tag is needed to make things easier mixing DFSD and SD style objects in the same file */ #define DFTAG_SDG ((uint16)700) /* Scientific Data Group */ #define DFTAG_SDD ((uint16)701) /* Scientific Data DimRec */ #define DFTAG_SD ((uint16)702) /* Scientific Data */ #define DFTAG_SDS ((uint16)703) /* Scales */ #define DFTAG_SDL ((uint16)704) /* Labels */ #define DFTAG_SDU ((uint16)705) /* Units */ #define DFTAG_SDF ((uint16)706) /* Formats */ #define DFTAG_SDM ((uint16)707) /* Max/Min */ #define DFTAG_SDC ((uint16)708) /* Coord sys */ #define DFTAG_SDT ((uint16)709) /* Transpose */ #define DFTAG_SDLNK ((uint16)710) /* Links related to the dataset */ #define DFTAG_NDG ((uint16)720) /* Numeric Data Group */ /* tag 721 reserved chouck 24-Nov-93 */ #define DFTAG_CAL ((uint16)731) /* Calibration information */ #define DFTAG_FV ((uint16)732) /* Fill Value information */ #define DFTAG_BREQ ((uint16)799) /* Beginning of required tags */ #define DFTAG_SDRAG ((uint16)781) /* List of ragged array line lengths */ #define DFTAG_EREQ ((uint16)780) /* Current end of the range */ /* VSets */ #define DFTAG_VG ((uint16)1965) /* Vgroup */ #define DFTAG_VH ((uint16)1962) /* Vdata Header */ #define DFTAG_VS ((uint16)1963) /* Vdata Storage */ /* compression schemes */ #define DFTAG_RLE ((uint16)11) /* run length encoding */ #define DFTAG_IMC ((uint16)12) /* IMCOMP compression alias */ #define DFTAG_IMCOMP ((uint16)12) /* IMCOMP compression */ #define DFTAG_JPEG ((uint16)13) /* JPEG compression (24-bit data) */ #define DFTAG_GREYJPEG ((uint16)14) /* JPEG compression (8-bit data) */ #define DFTAG_JPEG5 ((uint16)15) /* JPEG compression (24-bit data) */ #define DFTAG_GREYJPEG5 ((uint16)16) /* JPEG compression (8-bit data) */ /* Interlace schemes */ #define DFIL_PIXEL 0 /* Pixel Interlacing */ #define DFIL_LINE 1 /* Scan Line Interlacing */ #define DFIL_PLANE 2 /* Scan Plane Interlacing */ /* SPECIAL CODES */ #define SPECIAL_LINKED 1 /* Fixed-size Linked blocks */ #define SPECIAL_EXT 2 /* External */ #define SPECIAL_COMP 3 /* Compressed */ #define SPECIAL_VLINKED 4 /* Variable-length linked blocks */ #define SPECIAL_CHUNKED 5 /* chunked element */ #define SPECIAL_BUFFERED 6 /* Buffered element */ #define SPECIAL_COMPRAS 7 /* Compressed Raster element */ #endif /* _HTAGS_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vgf.c0000644000000000000000000012332612421456623013373 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5737 $"; #endif /* $Id: vgf.c 5737 2012-01-06 04:52:28Z brtnfld $ */ /*----------------------------------------------------------------------------- FUNCTION NAMEING CONVENTION:(For the most part true) --------------------------------------------------- This file contains the HDF-style C stubs for the Vxxx interfaces i.e. both Vgroups and Vdatas. They call the corresponding C-functions for the Vxxx interfaces. The basic routines called by fortran will be of the form vfxxx. If only a C stub is needed it will be named nvfxxx and have the FNAME() function applied to it. There are a few exceptions where C stub is named for example ndfixxx or ndfxxx, oh well. If a Fortran stub is also required the fortran stub will be called vfxxx(vgff.f) and the one in here will be nvfxxxc and again be FNAME()ed -----------------------------------------------------------------------------*/ /* * * vgf.c * Part of the HDF VSet interface. * * C routines (short names) to be called from fortran * * *********************************************************************** */ #define VSET_INTERFACE #include "hdf.h" #include "hproto_fortran.h" /* ** remove trailing blanks from a string. input argument is a string ** and *MUST* be a variable and not a constant!! For internal use only!! ** Used only on Crays where the Fortran compiler will pad strings to the ** nearest 8-byte boundary. */ void trimendblanks(char *ss) { int32 i, n; n = (int32)HDstrlen(ss); for (i = n - 1; i >= 0; i--) { if (ss[i] != ' ') { ss[i + 1] = '\0'; break; } } } /* ================================================== */ /* VGROUP routines */ /* ================================================== */ /*----------------------------------------------------------------------------- * Name: dfivopn * Purpose: Fortran stub for dfvopen to call DFvsetopen to open HDF file * Inputs: name: name of file to open * access: access mode - integer with value DFACC_READ etc. * defdds: default number of DDs per header block * namelen: length of name * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers * Invokes: Hopen * Method: Convert filename to C string, call Hopen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfivopn(_fcd name, intf * acc_mode, intf * defdds, intf * namelen) { char *fn; intf ret; fn = HDf2cstring(name, (intn) *namelen); if (!fn) return(FAIL); ret = (intf) Vopen(fn, (intn) *acc_mode, (int16) *defdds); HDfree(fn); return (ret); } /* end ndfivopn() */ /*----------------------------------------------------------------------------- * Name: dfvclos * Purpose: Call DFvsetclose to close HDF file * Inputs: file_id: handle to HDF file to close * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Invokes: Hclose *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfvclos(intf * file_id) { return (Vclose((int32)*file_id)); } /* ndfvclos() */ /* ** attach to a vgroup and returns its ptr ** related: Vattach--vatchc--VFATCH */ FRETVAL(intf) nvatchc(intf * f, intf * vgid, _fcd accesstype) { int32 vkey; char *acc; acc = HDf2cstring(accesstype, 1); if (!acc) return(FAIL); vkey = Vattach((int32)*f, *vgid, acc); HDfree(acc); return ((intf)vkey); } /* ------------------------------------------------------------------ */ /* ** detach from a vgroup ** related: Vdetach--vdtchc--VFDTCH */ FRETVAL(intf) nvdtchc(intf * vkey) { return (Vdetach(*vkey)); } /* ------------------------------------------------------------------ */ /* ** get the name of a vgroup ** related: Vgetname--vgnamc--VFGNAM */ FRETVAL(intf) nvgnamc(intf * vkey, _fcd vgname) { return (Vgetname(*vkey, _fcdtocp(vgname))); } /* VGNAMC */ /* ------------------------------------------------------------------ */ /* ** get the class name of a vgroup ** related: Vgetclass--vgclsc--VFGCLS */ FRETVAL(intf) nvgclsc(intf * vkey, _fcd vgclass) { return (Vgetclass(*vkey, _fcdtocp(vgclass))); } /* VGCLSC */ /* ------------------------------------------------------------------ */ /* ** general inquiry on a vgroup ** related: Vinquire--vinqc--VFINQ */ FRETVAL(intf) nvinqc(intf * vkey, intf * nentries, _fcd vgname) { return ((intf) Vinquire(*vkey, (int32 *) nentries, _fcdtocp(vgname))); } /* VINQC */ /* ------------------------------------------------------------------ */ /* ** delete a vgroup from a file ** related: Vdelete--vdelete-- */ FRETVAL(intf) nvdelete(intf * f, intf * vkey) { return ((intf) Vdelete((int32)*f, (int32)*vkey)); } /* nvdelete */ /* ------------------------------------------------------------------ */ /* ** gets the id of the next vgroup in the file ** related: Vgetid--vgidc--VFGID */ FRETVAL(intf) nvgidc(intf * f, intf * vgid) { return ((intf) Vgetid((int32)*f, *vgid)); } /* ------------------------------------------------------------------ */ /* ** gets the id of the next entry in the vgroup ** related: Vgetnext--vgnxtc--VFGNXT */ FRETVAL(intf) nvgnxtc(intf * vkey, intf * id) { return (Vgetnext(*vkey, *id)); } /* ------------------------------------------------------------------ */ /* ** sets the name of the vgroup ** related: Vsetname--vsnamc--VFSNAM */ FRETVAL(intf) nvsnamc(intf * vkey, _fcd vgname, intf * vgnamelen) { char *name; intf ret; name = HDf2cstring(vgname, (intn) *vgnamelen); if (!name) return(FAIL); /* trimendblanks(name); */ ret = (intf) Vsetname(*vkey, name); HDfree(name); return (ret); } /* ------------------------------------------------------------------ */ /* ** sets the class name of the vgroup ** related: Vsetclass--vsclsc--VFSCLS */ FRETVAL(intf) nvsclsc(intf * vkey, _fcd vgclass, intf * vgclasslen) { char *tclass; intf ret; tclass = HDf2cstring(vgclass, (intn) *vgclasslen); if (!tclass) return(FAIL); /* trimendblanks(tclass); */ ret = (intf) Vsetclass(*vkey, tclass); HDfree(tclass); return (ret); } /* ------------------------------------------------------------------ */ /* ** inserts a vset object (ie a vgroup or vdata ptr) into the given vgroup ** related: Vinsert--vinsrtc--VFINSRT */ FRETVAL(intf) nvinsrtc(intf * vkey, intf * vobjptr) { return ((intf) Vinsert(*vkey, *vobjptr)); } /* ------------------------------------------------------------------ */ /* ** tests if a vset object (having id id) in a vgroup refers to a vgroup ** related: Visvg--visvgc--VFISVG */ FRETVAL(intf) nvisvgc(intf * vkey, intf * id) { return ((intf) Visvg(*vkey, *id)); } /* ------------------------------------------------------------------ */ /* ** wrapper for Vstart */ FRETVAL(intf) nvfstart(intf * f) { return (Vstart((int32) *f)); } /* nvfstart */ /* ------------------------------------------------------------------ */ /* ** wrapper for Vend */ FRETVAL(intf) nvfend(intf * f) { return ((intf) Vend((int32) *f)); } /* nvfend */ /* ------------------------------------------------------------------ */ /* ** tests if an id in a vgroup refers to a vdata ** related: Visvs--visvsc--VFISVS */ FRETVAL(intf) nvisvsc(intf * vkey, intf * id) { return ((intf) Visvs(*vkey, *id)); } /* ================================================== */ /* VDATA routines */ /* ================================================== */ /* ** attach to a vdata and returns its ptr ** related: VSattach--vsatchc--VFATCH */ FRETVAL(intf) nvsatchc(intf * f, intf * vsid, _fcd accesstype) { /* need not HDf2cstring since only first char is accessed. */ return(VSattach((int32) *f, *vsid, _fcdtocp(accesstype))); } /* ------------------------------------------------------------------ */ /* ** detach from a vdata ** related: VSdetach--vsdtchc--VFDTCH */ FRETVAL(intf) nvsdtchc(intf * vkey) { return (VSdetach(*vkey)); } /* ------------------------------------------------------------------ */ /* ** get the ref # of a vdata ** related: VSQueryref--vsqref-- */ FRETVAL(intf) nvsqref(intf * vkey) { return ((intf)VSQueryref((int32)*vkey)); } /* ------------------------------------------------------------------ */ /* ** get the tag # of a vdata ** related: VSQuerytag--vsqtag-- */ FRETVAL(intf) nvsqtag(intf * vkey) { return ((intf)VSQuerytag((int32)*vkey)); } /* ----------------------------------------------------------------- */ /* ** get the version # of a vdata ** related: VSgetversion--vsgver-- */ FRETVAL(intf) nvsgver(intf * vkey) { return ((intf)VSgetversion((int32)*vkey)); } /* ------------------------------------------------------------------ */ /* ** seeks to a given element position in a vadata ** related: VSseek--vsseekc--VSFSEEK */ FRETVAL(intf) nvsseekc(intf * vkey, intf * eltpos) { return ((intf) VSseek(*vkey, *eltpos)); } /* ------------------------------------------------------------------ */ /* ** gets the name of a vdata ** related: VSgetname--vsgnamc--VSFGNAM */ FRETVAL(intf) nvsgnamc(intf * vkey, _fcd vsname, intf *vsnamelen) { CONSTR(FUNC, "vsgnamc"); char *tvsname = NULL; intn status; /* Allocate space for fortran strings */ tvsname = (char *) HDmalloc(*vsnamelen + 1); if (!tvsname) HRETURN_ERROR(DFE_NOSPACE, FAIL); status = VSgetname(*vkey, tvsname); /* convert C-string results back to Fortran strings */ HDpackFstring(tvsname, _fcdtocp(vsname), (intn) *vsnamelen); HDfree(tvsname); return(status); } /* VSGNAMC */ /* ------------------------------------------------------------------ */ /* ** get the class name of a vdata ** related: VSgetclass--vsgclsc--VSFGCLS */ FRETVAL(intf) nvsgclsc(intf * vkey, _fcd vsclass, intf *vsclasslen) { CONSTR(FUNC, "vsgclsc"); char *tvsclass = NULL; intn status; /* Allocate space for fortran strings */ tvsclass = (char *) HDmalloc(*vsclasslen + 1); if (!tvsclass) HRETURN_ERROR(DFE_NOSPACE, FAIL); status = VSgetclass(*vkey, tvsclass); /* convert C-string results back to Fortran strings */ HDpackFstring(tvsclass, _fcdtocp(vsclass), (intn) *vsclasslen); HDfree(tvsclass); return(status); } /* VSGCLSC */ /* ------------------------------------------------------------------ */ /* ** general inquiry on a vdata ** related: VSinquire--vsinqc--VSFINQ */ FRETVAL(intf) nvsinqc(intf * vkey, intf * nelt, intf * interlace, _fcd fields, intf * eltsize, _fcd vsname, intf *fieldslen, intf *vsnamelen) { CONSTR(FUNC, "vsinqc"); char *tfields = NULL; char *tvsname = NULL; intn status; int32 tnelt, til, teltsz; /* Allocate space for fortran strings */ tfields = (char *) HDmalloc(*fieldslen + 1); if (!tfields) HRETURN_ERROR(DFE_NOSPACE, FAIL); tvsname = (char *) HDmalloc(*vsnamelen + 1); if (!tvsname){ HDfree(tfields); HRETURN_ERROR(DFE_NOSPACE, FAIL) } /* the following contains error for nelt, interlace and eltsize */ /* if int32 and intf are different in size. */ status = VSinquire(*vkey, &tnelt, &til, tfields, &teltsz, tvsname); if (status != FAIL){ *nelt = tnelt; *interlace = til; *eltsize = teltsz; /* convert C-string results back to Fortran strings */ HDpackFstring(tfields, _fcdtocp(fields), (intn) *fieldslen); HDpackFstring(tvsname, _fcdtocp(vsname), (intn) *vsnamelen); } HDfree(tfields); HDfree(tvsname); return status; } /* VSINQC */ /* ------------------------------------------------------------------ */ /* ** tests if given fields exist in the vdata ** related: VSfexist--vsfexc--VSFEX */ FRETVAL(intf) nvsfexc(intf * vkey, _fcd fields, intf * fieldslen) { intf ret; char *flds; flds = HDf2cstring(fields, (intn) *fieldslen); if (!flds) return(FAIL); /* trimendblanks(flds); */ ret = (int32) VSfexist(*vkey, flds); HDfree(flds); return (ret); } /* ------------------------------------------------------------------ */ /* ** looks for a named Vdata in a file ** related: VSfind--vsfndc--VSFFND */ FRETVAL(intf) nvsfndc(intf * f, _fcd name, intf * namelen) { intf ret; char *cname; cname = HDf2cstring(name, (intn) *namelen); if (!cname) return(FAIL); /* trimendblanks(flds); */ ret = (intf) VSfind(*f, cname); HDfree(cname); return (ret); } /* ------------------------------------------------------------------ */ /* ** gets the id of the next vdata from the file ** related: VSgetid--vsgidc--VSFGID */ FRETVAL(intf) nvsgidc(intf * f, intf * vsid) { return ((intf) VSgetid(*f, *vsid)); } /* ------------------------------------------------------------------ */ /* ** removes the vdata with id from the file ** related: VSdelete--vsdltc--VSFDLTE */ FRETVAL(intf) nvsdltc(intf * f, intf * vsid) { return ((intf) VSdelete(*f, *vsid)); } /* ------------------------------------------------------------------ */ /* ** make it possible to append unlimitedly to an existing vdata ** related: VSappendable--vsapp-- */ FRETVAL(intf) nvsapp(intf * vkey, intf *blk) { return ((intf) VSappendable((int32)*vkey,(int32)*blk)); } /* ------------------------------------------------------------------ */ /* ** sets the name of a vdata ** related: VSsetname--vssnamc--VSFSNAM */ FRETVAL(intf) nvssnamc(intf * vkey, _fcd vsname, intf * vsnamelen) { char *name; intf ret; name = HDf2cstring(vsname, (intn) *vsnamelen); if (!name) return(FAIL); /* trimendblanks (name); */ ret = (intf) VSsetname(*vkey, name); HDfree(name); return (ret); } /* ------------------------------------------------------------------ */ /* ** sets the class name of the vdata ** related: VSsetclass--vssclsc--VSFSCLS */ FRETVAL(intf) nvssclsc(intf * vkey, _fcd vsclass, intf * vsclasslen) { char *tclass; intf ret; tclass = HDf2cstring(vsclass, (intn) *vsclasslen); if (!tclass) return(FAIL); /* trimendblanks(tclass); */ ret = (intf) VSsetclass(*vkey, tclass); HDfree(tclass); return (ret); } /* ------------------------------------------------------------------ */ /* ** sets the fields in a vdata for reading or writing ** related: VSsetfields--vssfldc--VSFSFLD */ FRETVAL(intf) nvssfldc(intf * vkey, _fcd fields, intf * fieldslen) { char *flds; intf ret; flds = HDf2cstring(fields, (intn) *fieldslen); if (!flds) return(FAIL); /* trimendblanks(flds); */ ret = (int32) VSsetfields(*vkey, flds); HDfree(flds); return (ret); } /* ------------------------------------------------------------------ */ /* ** sets the file interlace of a vdata ** related: VSsetinterlace--vssintc--VSFSINT */ FRETVAL(intf) nvssintc(intf * vkey, intf * interlace) { return ((intf) VSsetinterlace(*vkey, *interlace)); } /* ------------------------------------------------------------------ */ /* ** defines a new field to be used in the vdata ** related: VSfdefine--vsfdefc--VSFFDEF */ FRETVAL(intf) nvsfdefc(intf * vkey, _fcd field, intf * localtype, intf * order, intf * fieldlen) { intf ret; char *fld; fld = HDf2cstring(field, (intn) *fieldlen); if (!fld) return(FAIL); /* trimendblanks(fld); */ ret = (int32) VSfdefine(*vkey, fld, *localtype, *order); HDfree(fld); return (ret); } /*----------------------------------------------------------------------------- * Name: vssextfc * Purpose: store data of a Vdata in an external file * Inputs: id: vdata id * name: name of external file * offset: Number of bytes from the beginning of the * external file to where the data starts * namelen: length of name * Returns: 0 on success, -1 on failure with error set *---------------------------------------------------------------------------*/ FRETVAL(intf) nvssextfc(intf *id, _fcd name, intf *offset, intf *namelen) { char *fn; intf ret; fn = HDf2cstring(name, *namelen); if (!fn) return(FAIL); ret = (intf) VSsetexternalfile(*id, fn, *offset); HDfree((VOIDP)fn); return(ret); } /* ------------------------------------------------------------------ */ /* ** returns the number of fields in a vdata ** related: VFnfields--vfnflds-- */ FRETVAL(intf) nvfnflds(intf * vkey) { return((intf) VFnfields((int32)*vkey)); } /* ------------------------------------------------------------------ */ /* ** get the name of a given field in a vdata ** related: VFfieldname--vffname--vffnamec */ FRETVAL(intf) nvffnamec(intf * vkey, intf * index, _fcd fname, intf *len) { char *fieldname = NULL; if((fieldname=VFfieldname((int32)*vkey,(int32)*index))!=NULL) { /* HDstrcpy(_fcdtocp(fname),fieldname);*/ HDpackFstring(fieldname, _fcdtocp(fname), (intn) *len); /* HDfree(fieldname); */ return(SUCCEED); } /* end if */ else return(FAIL); } /* vffnamec */ /* ------------------------------------------------------------------ */ /* ** get the number-type of a given field in a vdata ** related: VFfieldtype--vfftype-- */ FRETVAL(intf) nvfftype(intf * vkey, intf * index) { return((intf)VFfieldtype((int32)*vkey,(int32)*index)); } /* vfftype */ /* ------------------------------------------------------------------ */ /* ** get the internal (in memory) size of a given field in a vdata ** related: VFfieldisize--vffisiz-- */ FRETVAL(intf) nvffisiz(intf * vkey, intf * index) { return((intf)VFfieldisize((int32)*vkey,(int32)*index)); } /* vffisiz */ /* ------------------------------------------------------------------ */ /* ** get the external (on disk) size of a given field in a vdata ** related: VFfieldesize--vffesiz-- */ FRETVAL(intf) nvffesiz(intf * vkey, intf * index) { return((intf)VFfieldesize((int32)*vkey,(int32)*index)); } /* vffesiz */ /* ------------------------------------------------------------------ */ /* ** get the order of a given field in a vdata ** related: VFfieldorder--vffordr-- */ FRETVAL(intf) nvffordr(intf * vkey, intf * index) { return((intf)VFfieldorder((int32)*vkey,(int32)*index)); } /* vffordr */ /* ------------------------------------------------------------------ */ /* ** reads records from a vdata into a char buffer ** related: VSread--vsfrdc */ FRETVAL(intf) nvsfrdc(intf * vkey, _fcd cbuf, intf * nelt, intf * interlace) { return ((intf) VSread(*vkey, (uint8 *) _fcdtocp(cbuf), *nelt, *interlace)); } /* ------------------------------------------------------------------ */ /* ** reads records from a vdata into integer buffer ** related: VSread--vsfrd */ FRETVAL(intf) nvsfrd(intf * vkey, intf *buf, intf * nelt, intf * interlace) { return ((intf) VSread(*vkey, (uint8 *) buf, *nelt, *interlace)); } /* ------------------------------------------------------------------ */ /* ** reads from a vdata ** related: VSread--vsreadc--VSFREAD */ FRETVAL(intf) nvsreadc(intf * vkey, uint8 *buf, intf * nelt, intf * interlace) { return ((intf) VSread(*vkey, buf, *nelt, *interlace)); } /* ------------------------------------------------------------------ */ /* ** writes to a vdata from a char buffer ** related: VSwrite--vsfwrtc */ FRETVAL(intf) nvsfwrtc(intf * vkey, _fcd cbuf, intf * nelt, intf * interlace) { return ((intf) VSwrite(*vkey, (uint8 *) _fcdtocp(cbuf), *nelt, *interlace)); } /* ------------------------------------------------------------------ */ /* ** writes to a vdata from an integer buffer ** related: VSwrite--vsfwrt */ FRETVAL(intf) nvsfwrt(intf * vkey, intf *buf, intf * nelt, intf * interlace) { return ((intf) VSwrite(*vkey, (uint8 *)buf, *nelt, *interlace)); } /* ------------------------------------------------------------------ */ /* ** writes to a vdata ** related: VSwrite--vswritc--VSFWRIT */ FRETVAL(intf) nvswritc(intf * vkey, uint8 *buf, intf * nelt, intf * interlace) { return ((intf) VSwrite(*vkey, buf, *nelt, *interlace)); } /* ======================================== */ /* miscellaneous VDATA inquiry routines */ /* ======================================== */ /* undocumented */ /* ------------------------------------------------------------------ */ /* ** gets the interlace of the vdata ** related: VSgetinterlace--vsgintc--VSFGINT */ FRETVAL(intf) nvsgintc(intf * vkey) { return ((intf) VSgetinterlace(*vkey)); } /* ------------------------------------------------------------------ */ /* ** gets the number of elements in the vdata ** related: VSelts--vseltsc--VSFELTS */ FRETVAL(intf) nvseltsc(intf * vkey) { return ((intf) VSelts(*vkey)); } /* ------------------------------------------------------------------ */ /* ** gets the fields in the vdata ** related: VSgetfields--vsgfldc--VSFGFLD */ FRETVAL(intf) nvsgfldc(intf * vkey, _fcd fields) { return ((intf) VSgetfields(*vkey, _fcdtocp(fields))); } /* VSGFLDC */ /* ------------------------------------------------------------------ */ /* ** determines the (machine) size of the given fields ** related: VSsizeof--vssizc--VSFSIZ */ FRETVAL(intf) nvssizc(intf * vkey, _fcd fields, intf * fieldslen) { char *flds; intf ret; flds = HDf2cstring(fields, (intn) *fieldslen); if (!flds) return(FAIL); /* trimendblanks(flds); */ ret = VSsizeof(*vkey, flds); HDfree(flds); return (ret); } /* ------------------------------------------------------------------ */ /* ** determines the no of entries in a vgroup ** related: Ventries--ventsc--VFENTS */ FRETVAL(intf) nventsc(intf * f, intf * vgid) { return ((intf) Ventries(*f, *vgid)); } /* ------------------------------------------------------------------ */ /* ** gets the refs of all lone vgroups in the file ** related: Vlone--vlonec--VFLONE */ FRETVAL(intf) nvlonec(intf * f, intf * idarray, intf * asize) { return ((intf) Vlone(*f, (int32 *)idarray, (int32) *asize)); } /* ------------------------------------------------------------------ */ /* ** gets the refs of all lone vdatas in the file ** related: VSlone--vslonec--VSFLONE */ FRETVAL(intf) nvslonec(intf * f, intf * idarray, intf * asize) { return (VSlone(*f, (int32 *)idarray, (int32) *asize)); } /* ------------------------------------------------------------------ */ /* ** gets the ref # of a vgroup for a given name ** related: Vfind--vfindc--VFIND */ FRETVAL(intf) nvfindc(intf * f, _fcd name, intf * namelen) { char *tmp_name; intf ret; tmp_name = HDf2cstring(name, (intn) *namelen); if (!tmp_name) return(FAIL); ret = (intf) Vfind((int32)*f, tmp_name); HDfree(tmp_name); return (ret); } /* end nvfindc() */ /* ------------------------------------------------------------------ */ /* ** gets the ref # of a vgroup for a given class ** related: Vfindclass--vfclassc--VFNDCLS */ FRETVAL(intf) nvfndclsc(intf * f, _fcd vgclass, intf * classlen) { char *t_class; intf ret; t_class = HDf2cstring(vgclass, (intn) *classlen); if (!t_class) return(FAIL); ret = (intf) Vfindclass((int32)*f, t_class); HDfree(t_class); return (ret); } /* end nvfndclsc() */ /* ** ================================================================== ** HIGH-LEVEL VSET ROUTINES --- VHxxxxx() ** ================================================================== */ /*---------------------------------------------------------- ** store a simple dataset in a vdata ** related: VHstoredata--vhsdc--vhfsd */ FRETVAL(intf) nvhsdc(intf * f, _fcd field, uint8 *buf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * fieldlen, intf * vsnamelen, intf * vsclasslen) { char *fld, *name, *tclass; intf ret_val; fld = HDf2cstring(field, (intn) *fieldlen); if (!fld) return(FAIL); name = HDf2cstring(vsname, (intn) *vsnamelen); if (!name){ HDfree(fld); return(FAIL); } tclass = HDf2cstring(vsclass, (intn) *vsclasslen); if (!tclass){ HDfree(fld); HDfree(name); return(FAIL); } ret_val = (intf) VHstoredata(*f, fld, buf, *n, *datatype, name, tclass); HDfree(fld); HDfree(name); HDfree(tclass); return (ret_val); } /*---------------------------------------------------------- ** store a simple char dataset in a vdata ** related: VHstoredata--vhscdc--vhfscd */ FRETVAL(intf) nvhscdc(intf * f, _fcd field, _fcd cbuf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * fieldlen, intf * vsnamelen, intf * vsclasslen) { if ((*datatype != DFNT_CHAR) && (*datatype != DFNT_UCHAR)) return FAIL; return (nvhsdc(f, field, (uint8 *) _fcdtocp(cbuf), n, datatype, vsname, vsclass, fieldlen, vsnamelen, vsclasslen)); } /* ------------------------------------------------------------------ */ /* ** store an aggregate char dataset in a vdata ** related: VHstoredatam--vhscdmc--vhfscdm */ FRETVAL(intf) nvhscdmc(intf * f, _fcd field, _fcd cbuf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * order, intf * fieldlen, intf * vsnamelen, intf * vsclasslen) { if ((*datatype != DFNT_CHAR) && (*datatype != DFNT_UCHAR)) return FAIL; return (nvhsdmc(f, field, (uint8 *) _fcdtocp(cbuf), n, datatype, vsname, vsclass, order, fieldlen, vsnamelen, vsclasslen)); } /* ------------------------------------------------------------------ */ /* ** store an aggregate dataset in a vdata ** related: VHstoredatam--vhsdmc--vhfsdm */ FRETVAL(intf) nvhsdmc(intf * f, _fcd field, uint8 *buf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * order, intf * fieldlen, intf * vsnamelen, intf * vsclasslen) { char *fld, *name, *tclass; intf ret_val; fld = HDf2cstring(field, (intn) *fieldlen); if (!fld) return(FAIL); name = HDf2cstring(vsname, (intn) *vsnamelen); if (!name){ HDfree(fld); return(FAIL); } tclass = HDf2cstring(vsclass, (intn) *vsclasslen); if (!tclass){ HDfree(fld); HDfree(name); return(FAIL); } ret_val = (intf) VHstoredatam(*f, fld, buf, *n, *datatype, name, tclass, *order); HDfree(fld); HDfree(name); HDfree(tclass); return (ret_val); } /* ------------------------------------------------------------------ */ /* ** make a new vgroup given several tag/ref pairs ** related: VHmakegroup--vhmkgpc--vhfmkgp */ FRETVAL(intf) nvhmkgpc(intf * f, intf * tagarray, intf * refarray, intf * n, _fcd vgname, _fcd vgclass, intf * vgnamelen, intf * vgclasslen) { char *gname, *gclass; intf ret_val; gname = HDf2cstring(vgname, (intn) *vgnamelen); if (!gname) return(FAIL); gclass = HDf2cstring(vgclass, (intn) *vgclasslen); if (!gclass){ HDfree(gname); return(FAIL); } ret_val = (intf) VHmakegroup(*f, (int32 *) tagarray, (int32 *) refarray, *n, gname, gclass); HDfree(gname); HDfree(gclass); return (ret_val); } /* ================================================================== */ /* ** locate a field in a vdata that belongs to this VGROUP ** related: Vflocate--vffloc--vflocc */ FRETVAL(intf) nvflocc(intf * vkey, _fcd field, intf * fieldlen) { char *fld; intf ret; fld = HDf2cstring(field, (intn) *fieldlen); if (!fld) return(FAIL); /* trimendblanks(fld); */ ret = (int32) Vflocate(*vkey, fld); HDfree(fld); return (ret); } /* ------------------------------------------------------------------ */ /* ** tests if a tag/ref pair is in a vgroup. ** related: Vinqtagref--vinqtrc--vfinqtr */ FRETVAL(intf) nvinqtrc(intf * vkey, intf * tag, intf * ref) { return ((intf) Vinqtagref(*vkey, *tag, *ref)); } /* ------------------------------------------------------------------ */ /* ** gets the number of tag/refs stored in a vgroup ** related: Vntagrefs--vntrc--VFNTR */ FRETVAL(intf) nvntrc(intf * vkey) { return ((intf) Vntagrefs(*vkey)); } /* ------------------------------------------------------------------ */ /* ** Returns the number of tags of a given type in a vgroup ** related: Vnrefs--vnrefs-- */ FRETVAL(intf) nvnrefs(intf * vkey, intf *tag) { return((intf) Vnrefs((int32)*vkey, (int32)*tag)); } /* end nvnrefs() */ /* ------------------------------------------------------------------ */ /* ** Return the ref of this vgroup ** related: VQueryref--vqref-- */ FRETVAL(intf) nvqref(intf * vkey) { return((intf) VQueryref((int32)*vkey)); } /* end nvqref() */ /* ------------------------------------------------------------------ */ /* ** Return the ref of this vgroup ** related: VQuerytag--vqtag-- */ FRETVAL(intf) nvqtag(intf * vkey) { return((intf) VQuerytag((int32)*vkey)); } /* end nvqtag() */ /* ------------------------------------------------------------------ */ /* ** returns all the tag/ref pairs in a vgroup ** related: Vgettagrefs--vgttrsc--vfgttrs */ FRETVAL(intf) nvgttrsc(intf * vkey, intf * tagarray, intf * refarray, intf * n) { return ((intf) Vgettagrefs(*vkey, (int32 *) tagarray, (int32 *) refarray, *n)); } /* ------------------------------------------------------------------ */ /* ** returns a specified tag/ref pair in a vgroup ** related: Vgettagref--vgttrc--vfgttr */ FRETVAL(intf) nvgttrc(intf * vkey, intf * which, intf * tag, intf * ref) { return ((intf) Vgettagref(*vkey, *which, (int32 *) tag, (int32 *) ref)); } /* ------------------------------------------------------------------ */ /* ** tests if a tag/ref pair is in a vgroup. ** related: Vinqtagref--vinqtrc--vfinqtr */ FRETVAL(intf) nvadtrc(intf * vkey, intf * tag, intf * ref) { return ((intf) Vaddtagref(*vkey, *tag, *ref)); } /* ------------------------------------------------------------------ */ /* ** checks the number of elements in a vgroup ** related: VSQuerycount--vsqfnelt */ FRETVAL(intf) nvsqfnelt(intf * vkey, intf * nelt) { int32 ret_nelt=0; intn stat; stat = VSQuerycount((int32) *vkey, &ret_nelt); *nelt = (intf) ret_nelt; return ((intf) stat); } /* ------------------------------------------------------------------ */ /* ** checks the interlace of a vgroup ** related: VSQueryinterlace--vsqfintr */ FRETVAL(intf) nvsqfintr(intf * vkey, intf * interlace) { int32 ret_inter=0; intn stat; stat = VSQueryinterlace((int32) *vkey, &ret_inter); *interlace = (intf) ret_inter; return ((intf) stat); } /* ------------------------------------------------------------------ */ /* ** gets the names of the fields of a vgroup ** related: VSQueryfields--vsqfflds */ FRETVAL(intf) nvsqfldsc(intf * vkey, _fcd fields, intf *fieldslen) { char *fld; intf ret; fld= HDf2cstring(fields, (intn) *fieldslen); if (!fld) return(FAIL); ret = (intf) VSQueryfields((int32) *vkey, fld); HDfree(fld); return (ret); } /* ------------------------------------------------------------------ */ /* ** checks the size of an element of a vgroup ** related: VSQueryvsize--vsqfvsiz */ FRETVAL(intf) nvsqfvsiz(intf * vkey, intf * size) { int32 ret_size=0; intn stat; stat = VSQueryvsize((int32) *vkey, &ret_size); *size = (intf) ret_size; return ((intf) stat); } /* ------------------------------------------------------------------ */ /* ** gets the names of a vgroup ** related: VSQueryname--vsqfname */ FRETVAL(intf) nvsqnamec(intf * vkey, _fcd name, intf *namelen) { char *nam; intf ret; nam= HDf2cstring(name, (intn) *namelen); if (!nam) return(FAIL); ret = (intf) VSQueryname((int32) *vkey, nam); HDfree(nam); return (ret); } /* ------------------------------------------------------------------ */ FRETVAL(intf) nvsfccpk(intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld, _fcd fldbuf, intf *buflds_len, intf *fld_len) { char *flds_in_buf; char *afield; intf ret; VOIDP fldbufpt[1]; flds_in_buf=HDf2cstring(buflds, (intn) *buflds_len); if (!flds_in_buf){ return(FAIL); } afield = HDf2cstring(pckfld, (intn) *fld_len); if (!afield) { HDfree(flds_in_buf); return(FAIL); } if (*flds_in_buf == '\0'){ HDfree(flds_in_buf); flds_in_buf = NULL; } if (*afield == '\0'){ HDfree(afield); afield = NULL; } fldbufpt[0] = _fcdtocp(fldbuf); ret = VSfpack((int32)*vs, (intn)*packtype, flds_in_buf, (VOIDP)buf, (intn)*bufsz, (intn)*nrecs, afield, fldbufpt); if (flds_in_buf) HDfree(flds_in_buf); if (afield) HDfree(afield); return(ret); } /* ------------------------------------------------------------------ */ FRETVAL(intf) nvsfncpk(intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld, intf *fldbuf, intf *buflds_len, intf *fld_len) { char *flds_in_buf; char *afield; intf ret; VOIDP fldbufpt[1]; flds_in_buf=HDf2cstring(buflds, (intn) *buflds_len); if (!flds_in_buf){ return(FAIL); } afield = HDf2cstring(pckfld, (intn) *fld_len); if (!afield) { HDfree(flds_in_buf); return(FAIL); } if (*flds_in_buf == '\0'){ HDfree(flds_in_buf); flds_in_buf = NULL; } if (*afield == '\0'){ HDfree(afield); afield = NULL; } fldbufpt[0] = fldbuf; ret = VSfpack((int32)*vs, (intn)*packtype, flds_in_buf, (VOIDP)buf, (intn)*bufsz, (intn)*nrecs, afield, fldbufpt); if (flds_in_buf) HDfree(flds_in_buf); if (afield) HDfree(afield); return(ret); } /* ** C-stub for deleting a tag/ref pair in a vgroup. ** related: called by vfdtr() and calls Vdeletetagref(), ** */ FRETVAL(intf) nvdtrc(intf * vkey, intf * tag, intf * ref) { return ((intf) Vdeletetagref(*vkey, *tag, *ref)); } /*------------------------------------------------------------------------ * Name: vscfcls * Purpose: calls VSfindclass * Inputs: id - file ID * name - class of vdata to find * Returns: returns 0 if not found, or error. Otherwise, returns * the vdata's ref number (a positive integer) * Related functions: vffcls, VSfindclass * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvscfcls( intf *id, _fcd name, intf *namelen ) #else nvscfcls (id, name, namelen) intf *id; _fcd name; intf *namelen; #endif /* PROTOTYPE */ { intf fi_id; intf ret; char *class_name; fi_id = *id; class_name = HDf2cstring(name, (intn) *namelen); if (!class_name) return(FAIL); ret = VSfindclass( fi_id, class_name); HDfree(class_name); return(ret); } /*------------------------------------------------------------------------ * Name: vscsetblsz * Purpose: calls VSsetblocksize * Inputs: id - vdata identifier * block_size - size of the block * Returns: 0 if succeeds, -1 if fails * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvscsetblsz( intf *id , intf *block_size) #else nvscsetblsz (id, block_size) intf *id; intf *block_size; #endif /* PROTOTYPE */ { intf ret = -1; intn c_ret; c_ret = VSsetblocksize( *id, *block_size); if(c_ret == 0) ret = 0; return(ret); } /*------------------------------------------------------------------------ * Name: vscsetnmbl * Purpose: calls VSsetnumblocks * Inputs: id - vdata identifier * num_blocks - number of blocks * Returns: 0 if succeeds, -1 if fails * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvscsetnmbl( intf *id , intf *num_blocks) #else nvscsetnmbl (id, num_blocks) intf *id; intf *num_blocks; #endif /* PROTOTYPE */ { intf ret; intn c_ret; c_ret = VSsetnumblocks( *id, *num_blocks); if(c_ret == 0) ret = 0; return(ret); } /*------------------------------------------------------------------------ * Name: vscgblinfo * Purpose: calls VSgetblockinfo * Inputs: id - vdata identifier * block_size - size of the block * num_blocks - number of blocks * Returns: 0 if succeeds, -1 if fails * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvscgblinfo( intf *id , intf *block_size, intf *num_blocks) #else nvscgblinfo (id, block_size, num_blocks) intf *id; intf *block_size; intf *num_blocks; #endif /* PROTOTYPE */ { intf ret = -1; intn c_ret; int32 c_block_size; int32 c_num_blocks; c_ret = VSgetblockinfo( *id, &c_block_size, &c_num_blocks); if (c_ret == 0) { *block_size = c_block_size; *num_blocks = c_num_blocks; ret = 0; } return(ret); } /*------------------------------------------------------------------------ * Name: vcgvgrp * Purpose: calls Vgetvgroups * Inputs: id - vdata identifier * start_vg - size of the block * vg_count - number of blocks * Outputs: refarray - Array to hold reference numbers * of retrieved vgroups * Returns: 0 if succeeds, -1 if fails * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvcgvgrp(intf *id, intf *start_vg, intf *vg_count, intf *refarray) #else nvcgvgrp(id, start_vg, vg_count, refarray) intf *id; intf *start_vg; intf *vg_count; intf *refarray; #endif /* PROTOTYPE */ { intf ret=-1; uintn ii; uint16 *c_refarray; if(*vg_count == -1) { ret = (intf)Vgetvgroups((int32)*id, (uintn)*start_vg, 0, NULL ); } else { c_refarray = (uint16 *)HDmalloc(sizeof(uint16)*(uintn)*vg_count); ret = (intf)Vgetvgroups((int32)*id, (uintn)*start_vg, (uintn)*vg_count, c_refarray ); /* copy C refarray to the fortran refarray, converting uint16 to intf type */ for (ii = 0; ii < (uintn)*vg_count; ii++) refarray[ii] = (intf)c_refarray[ii]; if (c_refarray != NULL) HDfree(c_refarray); } return(ret); } /*------------------------------------------------------------------------ * Name: vscgvdatas * Purpose: calls VSgetvdatas * Inputs: id - File identifier returned by Hopen or vgroup * identifier returned by Vattach * start_vd - Vdata number to start retrieving at * vd_count - Number of vdatas to be retrieved * Outputs: refarray - Array to hold reference numbers of * retrieved vdatas * Returns: 0 if succeeds, -1 if fails * Users: HDF Fortran programmers ---------------------------------------------------------------------*/ FRETVAL (intf) #ifdef PROTOTYPE nvscgvdatas(intf *id, intf *start_vd, intf *vd_count, intf *refarray) #else nvscgvdatas(id, start_vd, vd_count, refarray) intf *id; intf *start_vd; intf *vd_count; intf *refarray; #endif /* PROTOTYPE */ { intf ret=-1; uintn ii; uint16 *c_refarray; if(*vd_count == -1) { ret = (intf)VSgetvdatas((int32)*id, (uintn)*start_vd, 0, NULL ); } else { c_refarray = (uint16 *)HDmalloc(sizeof(uint16)*(uintn)*vd_count); ret = (intf)VSgetvdatas((int32)*id, (uintn)*start_vd, (uintn)*vd_count, c_refarray ); /* copy C refarray to the fortran refarray, converting uint16 to intf type */ for (ii = 0; ii < (uintn)*vd_count; ii++) refarray[ii] = (intf)c_refarray[ii]; if (c_refarray != NULL) HDfree(c_refarray); } return(ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/dfufp2if.c0000644000000000000000000000357312421456623014317 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "dfufp2i.h" #include "dfsd.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: duif2i * Purpose: Intermediate Fortran callable version of DFUfptoimage * (See DFUfptoimage for details) * * Invokes: DFUfptoimage *---------------------------------------------------------------------------*/ FRETVAL(int) nduif2i(int32 *hdim, int32 *vdim, float32 *max, float32 *min, float32 hscale[], float32 vscale[], float32 data[], _fcd palette, _fcd outfile, int *ct_method, int32 *hres, int32 *vres, int *compress, int *lenfn) { char *fn; int ret; fn = HDf2cstring(outfile, *lenfn); if (!fn) return(FAIL); ret = DFUfptoimage(*hdim, *vdim, (float32)*max, (float32)*min, hscale, vscale, data, (uint8 *)_fcdtocp(palette), fn, *ct_method, *hres, *vres, *compress); HDfree(fn); return (ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/dffunc.inc0000644000000000000000000004672512421456623014414 0ustar C**************************************************************************** C* NCSA HDF * C* Software Development Group * C* National Center for Supercomputing Applications * C* University of Illinois at Urbana-Champaign * C* 605 E. Springfield, Champaign IL 61820 * C* * C* For conditions of distribution and use, see the accompanying * C* hdf/COPYING file. * C* * C**************************************************************************** C C $Id: dffunc.inc 6034 2014-01-19 06:59:14Z epourmal $ C C dffunc.inc C C Declarations of return values for HDF SDS functions C integer DFSDadddata, dsadata external DFSDadddata, dsadata integer DFSDclear, dsclear external DFSDclear, dsclear integer DFSDsetdimscale, dssdisc external DFSDsetdimscale, dssdisc integer DFSDendslice, dseslc external DFSDendslice, dseslc integer DFSDgetNT, dsgnt external DFSDgetNT, dsgnt integer DFSDgetdata, dsgdata external DFSDgetdata, dsgdata integer DFSDgetdatalen, dsgdaln external DFSDgetdatalen, dsgdaln integer DFSDgetdatastrs, dsgdast external DFSDgetdatastrs, dsgdast integer DFSDgetdimlen, dsgdiln external DFSDgetdimlen, dsgdiln integer DFSDgetdims, dsgdims external DFSDgetdims, dsgdims integer DFSDgetdimscale, dsgdisc external DFSDgetdimscale, dsgdisc integer DFSDgetdimstrs, dsgdist external DFSDgetdimstrs, dsgdist integer DFSDgetrange, dsgrang external DFSDgetrange, dsgrang integer DFSDgetslice, dsgslc external DFSDgetslice, dsgslc integer DFSDlastref, dslref external DFSDlastref, dslref integer DFSDnumber, dsnum external DFSDnumber, dsnum integer DFSDputdata, dspdata external DFSDputdata, dspdata integer DFSDputslice, dspslc external DFSDputslice, dspslc integer DFSDreadref, dsrref external DFSDreadref, dsrref integer DFSDrestart, dsfirst external DFSDrestart, dsfirst integer DFSDsetNT, dssnt external DFSDsetNT, dssnt integer DFSDsetdatastrs, dssdast external DFSDsetdatastrs, dssdast integer DFSDsetdims, dssdims external DFSDsetdims, dssdims integer DFSDsetdimstrs, dssdist external DFSDsetdimstrs, dssdist integer DFSDsetlengths, dsslens external DFSDsetlengths, dsslens integer DFSDsetrange, dssrang external DFSDsetrange, dssrang integer DFSDstartslice, dssslc external DFSDstartslice, dssslc integer dsgcal external dsgcal integer dsp32sd external dsp32sd integer dsscal external dsscal integer dseslab external dseslab integer dsrslab external dsrslab integer dssslab external dssslab integer dswslab external dswslab integer dsgfill external dsgfill integer dssfill external dssfill integer dswref external dswref C C Declarations of return values for HDF Annotation functions C integer DFANputlabel, daplab external DFANputlabel, daplab integer DFANputdesc, dapdesc external DFANputdesc, dapdesc integer DFANgetlablen, dagllen external DFANgetlablen, dagllen integer DFANgetlabel, daglab external DFANgetlabel, daglab integer DFANgetdesclen, dagdlen external DFANgetdesclen, dagdlen integer DFANgetdesc, dagdesc external DFANgetdesc, dagdesc integer DFANlablist, dallist external DFANlablist, dallist integer DFANaddfid, daafid external DFANaddfid, daafid integer DFANaddfds, daafds external DFANaddfds, daafds integer DFANgetfidlen, dagfidl external DFANgetfidlen, dagfidl integer DFANgetfid, dagfid external DFANgetfid, dagfid integer DFANgetfdslen, dagfdsl external DFANgetfdslen, dagfdsl integer DFANgetfds, dagfds external DFANgetfds, dagfds integer DFANlastref, dalref external DFANlastref, dalref integer daclear external daclear C C Declarations of return values for HDF Raster Image functions C integer DFR8setpalette, d8spal external DFR8setpalette, d8spal integer DFR8putimage, d8pimg external DFR8putimage, d8pimg integer DFR8addimage, d8aimg external DFR8addimage, d8aimg integer DFR8getdims, d8gdims external DFR8getdims, d8gdims integer DFR8getimage, d8gimg external DFR8getimage, d8gimg integer DFR8readref, d8rref external DFR8readref, d8rref integer DFR8writeref, d8wref external DFR8writeref, d8wref integer DFR8restart, d8first external DFR8restart, d8first integer DFR8nimages, d8nims external DFR8nimages, d8nims integer DFR8lastref, d8lref external DFR8lastref, d8lref integer DFR8scompress, d8scomp external DFR8scompress, d8scomp integer DFR8sjpeg, d8sjpeg external DFR8sjpeg, d8sjpeg integer DF24setil, d2setil external DF24setil, d2setil integer DF24addimage, d2aimg external DF24addimage, d2aimg integer DF24putimage, d2pimg external DF24putimage, d2pimg integer DF24getimage, d2gimg external DF24getimage, d2gimg integer DF24getdims, d2gdims external DF24getdims, d2gdims integer DF24setdims, d2sdims external DF24setdims, d2sdims integer DF24readref, d2rref external DF24readref, d2rref integer DF24restart, d2first external DF24restart, d2first integer DF24reqil, d2reqil external DF24reqil, d2reqil integer d2lref external d2lref integer DF24scompress, d2scomp external DF24scompress, d2scomp integer DF24sjpeg, d2sjpeg external DF24sjpeg, d2sjpeg integer DFPaddpal, dpapal external DFPaddpal, dpapal integer DFPgetpal, dpgpal external DFPgetpal, dpgpal integer DFPputpal, dpppal external DFPputpal, dpppal integer DFPnpals, dpnpals external DFPnpals, dpnpals integer DFPwriteref, dpwref external DFPwriteref, dpwref integer DFPreadref, dprref external DFPreadref, dprref integer DFPrestart, dprest external DFPrestart, dprest integer DFPlastref, dplref external DFPlastref, dplref C C Declarations of return values for HDF Raster Image functions C integer DFopen external DFopen integer DFclose external DFclose integer DFsfind external DFsfind integer DFfind external DFfind integer DFget external DFget integer DFput external DFput integer DFaccess external DFaccess integer DFread external DFread integer DFwrite external DFwrite integer DFseek external DFseek integer DFupdate external DFupdate integer DFdup external DFdup integer DFdel external DFdel integer DFerrno external DFerrno integer DFishdf external DFishdf integer DFnewref external DFnewref integer DFnumber external DFnumber integer DFstat external DFstat C C Declarations of return values for HDF Vgroup functions C integer vfadtr external vfadtr integer vfainfo external vfainfo integer vfatch external vfatch integer vfdtch external vfdtch integer vfdtr external vfdtr integer vfend external vfend integer vfents external vfents integer vffdatt external vffdatt integer vffloc external vffloc integer vfgnatt external vfgnatt integer vfgcatt external vfgcatt integer vfgcls external vfgcls integer vfgid external vfgid integer vfgnam external vfgnam integer vfgnxt external vfgnxt integer vfgttr external vfgttr integer vfgttrs external vfgttrs integer vfgver external vfgver integer vfind external vfind integer vfinq external vfinq integer vfinqtr external vfinqtr integer vfinsrt external vfinsrt integer vfisvg external vfisvg integer vfisvs external vfisvs integer vflone external vflone integer vfnatts external vfnatts integer vfntr external vfntr integer vfsnatt external vfsnatt integer vfscatt external vfscatt integer vfscls external vfscls integer vfsnam external vfsnam integer vfstart external vfstart integer vfgvgroups external vfgvgroups C C Declarations of return values for HDF high level Vdata/Vgroup C functions C integer vhfmkgp external vhfmkgp integer vhfscd external vhfscd integer vhfsd external vhfsd integer vhfscdm external vhfscdm integer vhfsdm external vhfsdm C C Declarations of return values for HDF Vdata functions C integer vsfainf external vsfainf integer vsfatch external vsfatch integer vsfcpak external vsfcpak integer vsfdlte external vsfdlte integer vsfdtch external vsfdtch integer vsfelts external vsfelts integer vsfex external vsfex integer vsffdef external vsffdef integer vsffdat external vsffdat integer vsffidx external vsffidx integer vsffnas external vsffnas integer vsffnd external vsffnd integer vsfgnat external vsfgnat integer vsfgcat external vsfgcat integer vsfgcls external vsfgcls integer vsfgfld external vsfgfld integer vsfgid external vsfgid integer vsfgint external vsfgint integer vsfgnam external vsfgnam integer vsfinq external vsfinq integer vsfisat external vsfisat integer vsflone external vsflone integer vsfnats external vsfnats integer vsfndc external vsfndc integer vsfnpak external vsfnpak integer vsfrd external vsfrd integer vsfrdc external vsfrdc integer vsfread external vsfread integer vsfsnat external vsfsnat integer vsfscat external vsfscat integer vsfscls external vsfscls integer vsffcls external vsffcls integer vsfseek external vsfseek integer vsfsextf external vsfsextf integer vsfsfld external vsfsfld integer vsfsint external vsfsint integer vsfsiz external vsfsiz integer vsfsnam external vsfsnam integer vsfwrt external vsfwrt integer vsfwrtc external vsfwrtc integer vsfwrit external vsfwrit external vsfsetblsz integer vsfsetblsz external vsfsetnmbl integer vsfsetnmbl external vsfgetblinfo integer vsfgetblinfo integer vsfgvdatas external vsfgvdatas C C Declarations of return values for HDF Vdata Field Functions C external vffesiz integer vffesiz external vffisiz integer vffisiz external vffname integer vffname external vffordr integer vffordr external vfftype integer vfftype external vfnflds integer vfnflds C C Declarations of return values for HDF Vdata Query functions C integer vsqfnelt external vsqfnelt integer vsqfintr external vsqfintr integer vsqfflds external vsqfflds integer vsqfvsiz external vsqfvsiz integer vsqfname external vsqfname C C Declarations of return values for HDF low level H functions C integer hclose external hclose integer heprnt external heprnt integer hnumber external hnumber integer hopen external hopen integer hxscdir external hxscdir integer hxsdir external hxsdir integer hddontatexit external hddontatexit integer hglibver external hglibver integer hgfilver external hgfilver integer hishdff external hishdff integer hestringf external hestringf integer heprntf external heprntf integer hconfinf external hconfinf C C Decls of MGxxx functions for Fortran multi-file GR interface C integer mgstart external mgstart integer mgfinfo external mgfinfo integer mgend external mgend integer mgcreat external mgcreat integer mgselct external mgselct integer mgn2ndx external mgn2ndx integer mggiinf external mggiinf integer mgwrimg external mgwrimg integer mgrdimg external mgrdimg integer mgendac external mgendac integer mgid2rf external mgid2rf integer mgr2idx external mgr2idx integer mgrltil external mgrltil integer mgrimil external mgrimil integer mggltid external mggltid integer mgglinf external mgglinf integer mgwrlut external mgwrlut integer mgrdlut external mgrdlut integer mgsxfil external mgsxfil integer mgsattr external mgsattr integer mgatinf external mgatinf integer mggattr external mggattr integer mgfndat external mgfndat integer mggichnk external mggichnk integer mgscchnk external mgscchnk integer mgschnk external mgschnk integer mgwchnk external mgwchnk integer mgwcchnk external mgwcchnk integer mgrchnk external mgrchnk integer mgrcchnk external mgrcchnk integer mgscompress external mgscompress integer mggcompress external mggcompress integer mglt2rf external mglt2rf integer mggnluts external mggnluts C C Decls of ANxxx functions for Fortran multi-file AN interface C integer afstart external afstart integer affileinfo external affileinfo integer afend external afend integer afcreate external afcreate integer affcreate external affcreate integer afselect external afselect integer afnumann external afnumann integer afannlist external afannlist integer afannlen external afannlen integer afwriteann external afwriteann integer afreadann external afreadann integer afendaccess external afendaccess integer afgettagref external afgettagref integer afidtagref external afidtagref integer aftagrefid external aftagrefid integer afatypetag external afatypetag integer aftagatype external aftagatype C C Decls of SFxxx functions for Fortran multi-file interface C integer sfstart external sfstart integer sfn2index external sfn2index integer sfcreate external sfcreate integer sfsdmstr external sfsdmstr integer sfsdmname external sfsdmname integer sfsdtstr external sfsdtstr integer sfgdtstr external sfgdtstr integer sfgdmstr external sfgdmstr integer sfginfo external sfginfo integer sfgainfo external sfgainfo integer sfgdinfo external sfgdinfo integer sfsattr external sfsattr integer sfsnatt external sfscatt integer sfscatt integer sffattr external sffattr integer sfend external sfend integer sfendacc external sfendacc integer sffinfo external sffinfo integer sfselect external sfselect integer sfdimid external sfdimid integer sfgcal external sfgcal integer sfscal external sfscal integer sfsdscale external sfsdscale integer sfgdscale external sfgdscale integer sfsfill external sfsfill integer sfgfill external sfgfill integer sfgrange external sfgrange integer sfsrange external sfsrange integer sfrattr external sfrattr integer sfrnatt external sfrcatt integer sfrcatt integer sfrdata external sfrdata integer sfwdata external sfwdata integer sfsextf external sfsextf integer sfsnbit external sfsnbit integer sfsacct external sfsacct integer sfid2ref external sfid2ref integer sfiscvar external sfiscvar integer sfref2index external sfref2index integer sfsdmvc external sfsdmvc integer sfisdmvc external sfisdmvc integer sfgichnk external sfgichnk integer sfrcchnk external sfrcchnk integer sfrchnk external sfrchnk integer sfwcchnk external sfwcchnk integer sfwchnk external sfwchnk integer sfscchnk external sfscchnk integer sfschnk external sfschnk integer sfscompress external sfscompress integer sfgcompress external sfgcompress integer sfisrcrd external sfisrcrd integer sfsblsz external sfsblsz integer sfchempty external sfchempty integer sfwcdata external sfwcdata integer sfrcdata external sfrcdata integer sfgcfill external sfgcfill integer sfscfill external sfscfill integer sfsflmd external sfsflmd C End of declarations libhdf4-4.2.10/HDF_ALT/hdf/src/hbuffer.c0000644000000000000000000005120612421456623014227 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: hbuffer.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*LINTLIBRARY */ /* ------------------------------ hbuffer.c ------------------------------- Routines for buffered elements, i.e., data elements that reside in memory until they are closed, and are then flushed out to the file. Buffered elements are held in memory while they are being accessed and are only written back to the file if they are modified. File Organization ****************** These special elements are invoked at run-time only, information about whether an element was cached is not stored in the file. Unless specificly asked for by an API routine or required for a particular kind of access by the library, these routines aren't called. LOCAL ROUTINES EXPORTED BUT LIBRARY PRIVATE ROUTINES HBPcloseAID -- close file but keep AID active HBPendacess -- close file, free AID HBPinfo -- return info about an buffered element HBPinquire -- retrieve information about an buffered element HBPread -- read some data out of an buffered element HBPreset -- replace the current buffered info with new info (NOP) HBPseek -- set the seek position HBPsetaccesstype -- set the I/O access type of the buffered element HBPstread -- open an access record for reading HBPstwrite -- open an access record for reading HBPwrite -- write some data out to a buffered element EXPORTED ROUTINES HBconvert -- start buffering an AID ------------------------------------------------------------------------- */ #include "hdf.h" #include "hfile.h" #include /* extinfo_t -- external elt information structure */ typedef struct { intn attached; /* number of access records attached to this information structure */ intn modified; /* has the buffered element been modified? */ int32 length; /* length of this element */ uint8 *buf; /* pointer to the buffered data */ int32 buf_aid; /* AID for buffered access record (below) */ accrec_t *buf_access_rec; /* "Real" access record for buffered data */ } bufinfo_t; /* forward declaration of the functions provided in this module */ /* buf_funcs -- table of the accessing functions of the buffered data element function modules. The position of each function in the table is standard */ funclist_t buf_funcs = { HBPstread, HBPstwrite, HBPseek, HBPinquire, HBPread, HBPwrite, HBPendaccess, HBPinfo, NULL /* no routine registered */ }; /*------------------------------------------------------------------------ NAME HBconvert -- cause an existing AID to be buffered. USAGE intn HBcreate(aid) int32 aid; IN: AID of data element to buffer RETURNS SUCCEED/FAIL DESCRIPTION Buffers an existing data element (referred to with the AID passed in) in memory for faster access. This is especially useful when repeatedly accessing a compressed special element object which would otherwise have to be repeatedly decompressed over many I/O accesses. If the ALLOW_BUFFER_GROWING flag is defined during compile time, the buffered object is allowed to grow, it is assumed that a higher-level API will prevent this if it is not allowed through that API. FORTRAN None --------------------------------------------------------------------------*/ intn HBconvert(int32 aid) { CONSTR(FUNC, "HBconvert"); /* for HERROR */ accrec_t *access_rec=NULL;/* access element record */ accrec_t *new_access_rec; /* newly created access record */ accrec_t *tmp_access_rec; /* temp. access record */ bufinfo_t *info; /* information for the buffered element */ uint16 data_tag,data_ref; /* tag/ref of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 data_len; /* length of the data we are checking */ intn ret_value = SUCCEED; HEclear(); if ((access_rec = HAatom_object(aid)) == NULL) /* get the access_rec pointer */ HGOTO_ERROR(DFE_ARGS, FAIL); /* get the info for the dataset */ if (HTPis_special(access_rec->ddid) || access_rec->special!=0) { if((*access_rec->special_func->inquire) (access_rec, NULL, &data_tag, &data_ref, &data_len, &data_off, NULL, NULL, NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ else if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* is data defined but does not exist in the file? */ if(data_off==INVALID_OFFSET && data_len==INVALID_LENGTH) { /* catch the case where the data doesn't exist yet */ /* set length to zero */ if(Hsetlength(aid,0)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get back new offset and length */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ /* allocate special info struct for buffered element */ if ((info = HDmalloc((uint32) sizeof(bufinfo_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* fill in special info struct */ info->attached = 1; info->modified = 0; /* Data starts out not modified */ info->length = data_len; /* initial buffer size */ /* Get space for buffer */ if(data_len>0) { if((info->buf = HDmalloc((uint32) data_len))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ else info->buf=NULL; /* Read in existing data into buffer */ if(data_len>0) { if (Hseek(aid, 0, DF_START) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (Hread(aid, data_len, info->buf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); } /* end if */ /* get empty access record */ new_access_rec = HIget_access_rec(); if (new_access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* Copy the old access record information to the new access record */ /* * Don't get a new copy of the DD id or increment the number of attached * elements, buffered elements are supposed to be "transparent". * We "inherit" the appendable flag if it's set and ALLOW_BUFFER_GROW is * defined to support it. */ tmp_access_rec=new_access_rec->next; /* preserve free list pointer */ HDmemcpy(new_access_rec,access_rec,sizeof(accrec_t)); new_access_rec->next=tmp_access_rec; /* restore free list pointer */ /* Preserve the actual access record for the buffered element */ info->buf_access_rec = new_access_rec; /* Access record of actual data on disk */ /* Create AID for actual access record */ info->buf_aid = HAregister_atom(AIDGROUP,new_access_rec); /* Modify access record to point to buffered element functions */ access_rec->special_info = (void *)info; access_rec->special_func = &buf_funcs; access_rec->special = SPECIAL_BUFFERED; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ return ret_value; } /* HBconvert */ /* ------------------------------ HBPstread ------------------------------- */ /* NAME HBPstread -- open an access record for reading USAGE int32 HBPstread(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION This is a stub routine and should never be called ---------------------------------------------------------------------------*/ int32 HBPstread(accrec_t * rec) { /* shut compilers up*/ rec=rec; assert(0 && "Should never be called"); return (FAIL); } /* HBPstread */ /* ------------------------------ HBPstwrite ------------------------------- */ /* NAME HBPstwrite -- open an access record for reading USAGE int32 HBPstwrite(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION This is a stub routine and should never be called. ---------------------------------------------------------------------------*/ int32 HBPstwrite(accrec_t * rec) { /* shut compilers up*/ rec=rec; assert(0 && "Should never be called"); return (FAIL); } /* HBPstwrite */ /* ------------------------------ HBPseek ------------------------------- */ /* NAME HBPseek -- set the seek posn USAGE int32 HXPseek(access_rec, offset, origin) access_t * access_rec; IN: access record to mess with int32 offset; IN: seek offset int32 origin; IN: where we should calc the offset from RETURNS SUCCEED / FAIL DESCRIPTION Set the seek posn in the given buffered element ---------------------------------------------------------------------------*/ int32 HBPseek(accrec_t * access_rec, int32 offset, int origin) { int32 ret_value = SUCCEED; CONSTR(FUNC, "HBPseek"); /* for HERROR */ /* Adjust offset according to origin. There is no upper bound to posn */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += ((bufinfo_t *) (access_rec->special_info))->length; if (offset < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* set the offset */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HBPseek */ /* ------------------------------ HBPread ------------------------------- */ /* NAME HBPread -- read some data out of buffered element USAGE int32 HBPread(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer for data RETURNS The number of bytes read or FAIL on error DESCRIPTION Read in some data from a buffered element. If length is zero read until the end of the element. It is assumed that the data buffer is big enough to store the data. ---------------------------------------------------------------------------*/ int32 HBPread(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HBPread"); /* for HERROR */ bufinfo_t *info = /* information on the special element */ (bufinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate length */ if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* adjust length if it falls off the end of the element */ if ((length == 0) || (access_rec->posn + length > info->length)) length = info->length - access_rec->posn; else if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* Copy data from buffer */ HDmemcpy(data,info->buf+access_rec->posn,length); /* adjust access position */ access_rec->posn += length; ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HBPread */ /* ------------------------------ HBPwrite ------------------------------- */ /* NAME HBPwrite -- write some data out to a buffered element USAGE int32 HBPwrite(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer of data RETURNS The number of bytes written or FAIL on error DESCRIPTION Write out some data to a buffered element. ---------------------------------------------------------------------------*/ int32 HBPwrite(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HBPwrite"); /* for HERROR */ bufinfo_t *info = /* information on the special element */ (bufinfo_t *) (access_rec->special_info); int32 new_len; /* new length of object */ int32 ret_value = SUCCEED; /* validate length */ if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* Check if the data to write will overrun the buffer and realloc it if so */ if(access_rec->posn+length>info->length) { /* Calc. the new size of the object */ new_len=access_rec->posn+length; /* Resize buffer in safe manner */ /* Realloc should handle this, but the Sun is whining about it... -QAK */ if(info->buf==NULL) { if((info->buf = HDmalloc((uint32)new_len))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } else { uint8 *temp_buf=info->buf; /* temporary buffer pointer in case realloc fails */ if((info->buf = HDrealloc(info->buf, (uint32)new_len))==NULL) { info->buf=temp_buf; HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ } /* update length */ info->length=new_len; } /* end if */ /* Copy data to buffer */ HDmemcpy(info->buf+access_rec->posn,data,length); /* Mark the buffer as modified */ info->modified=TRUE; /* update access record */ access_rec->posn += length; ret_value = length; /* return length of bytes written */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HBPwrite */ /* ------------------------------ HBPinquire ------------------------------ */ /* NAME HBPinquire -- retreive information about a buffered element USAGE int32 HBPinquire(access_rec, file, tag, ref, len, off, pos, acc, sp) access_t * access_rec; IN: access record to return info about uint16 * file; OUT: file ID; uint16 * tag; OUT: tag of info record; uint16 * ref; OUT: ref of info record; int32 * len; OUT: length of element; int32 * off; OUT: offset of element (NOT correct); int32 * pos; OUT: current position in element; int16 * acc; OUT: access mode; int16 * sp; OUT: special code; RETURNS SUCCEED DESCRIPTION Return interesting information about a buffered element. NULL can be passed for any of the OUT parameters if their value is not needed. ---------------------------------------------------------------------------*/ int32 HBPinquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HBPinquire"); /* for HERROR */ bufinfo_t *info = /* special information record */ (bufinfo_t *) access_rec->special_info; uint16 data_tag,data_ref; /* tag/ref of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 ret_value = SUCCEED; /* Get the data's offset & length */ if(HTPinquire(info->buf_access_rec->ddid,&data_tag,&data_ref,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id) *pfile_id = access_rec->file_id; if (ptag) *ptag = data_tag; if (pref) *pref = data_ref; if (plength) *plength = info->length; /* pass along our value, which might be different from that on disk */ if (poffset) *poffset = data_off; if (pposn) *pposn = access_rec->posn; if (paccess) *paccess = (int16)access_rec->access; if (pspecial) *pspecial = (int16)access_rec->special; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HBPinquire */ /* ----------------------------- HBPendaccess ----------------------------- */ /* NAME HBPendacess -- flush buffer, free AID USAGE intn HBPendaccess(access_rec) access_t * access_rec; IN: access record to close RETURNS SUCCEED / FAIL DESCRIPTION Flush the buffer (if modified) and free the AID ---------------------------------------------------------------------------*/ intn HBPendaccess(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HBPendaccess"); /* for HERROR */ #endif /* LATER */ intn ret_value = SUCCEED; /* shut down the memory buffer and dependant access record */ HBPcloseAID(access_rec); /* free the access record */ HIrelease_accrec_node(access_rec); #ifdef LATER done: #endif /* LATER */ if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HBPendaccess */ /* ----------------------------- HBPcloseAID ------------------------------ */ /* NAME HBPcloseAID -- flush buffer and free memory but keep AID active USAGE int32 HXPcloseAID(access_rec) access_t * access_rec; IN: access record of file to close RETURNS SUCCEED / FAIL DESCRIPTION Flush the buffered data (if modified) and free special element information, but do *NOT* free the AID. This is called by Hnextread() which reuses an AID to point to the 'next' object as requested. If the current object was an buffered object, the buffer needs to be flushed and freed before all reference to it is lost. ---------------------------------------------------------------------------*/ int32 HBPcloseAID(accrec_t * access_rec) { CONSTR(FUNC, "HBPcloseAID"); /* for HERROR */ bufinfo_t *info = /* special information record */ (bufinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* detach the special information record. If no more references to that, free the record */ if (--(info->attached) == 0) { /* Flush the data if it's been modified */ if(info->modified) { if (Hwrite(info->buf_aid, info->length, info->buf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end if */ /* Free the memory buffer */ HDfree(info->buf); /* Close the dependent access record */ Hendaccess(info->buf_aid); HDfree(info); access_rec->special_info = NULL; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HBPcloseAID */ /* ------------------------------- HBPinfo -------------------------------- */ /* NAME HBPinfo -- return info about an external element USAGE int32 HBPinfo(access_rec, info_block) accrec_t * access_rec; IN: access record of element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given external element. Info_block is assumed to be non-NULL. --------------------------------------------------------------------------- */ int32 HBPinfo(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HBPinfo"); /* for HERROR */ bufinfo_t *info = /* special information record */ (bufinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate access record */ if (access_rec->special != SPECIAL_BUFFERED) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_block */ info_block->key = SPECIAL_BUFFERED; info_block->buf_aid = info->buf_aid; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HBPinfo */ libhdf4-4.2.10/HDF_ALT/hdf/src/mcache.c0000644000000000000000000012266512421456623014036 0ustar /*- * Copyright (c) 1990, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /***************************************************************************** * File: mcache.c * * This is a modfied version of the original Berkley code for * manipulating a memory pool. This version however is not * compatible with the original Berkley version. * * NOTE: references to pages here is the same as chunks * * AUTHOR - George V.- 1996/08/22 *****************************************************************************/ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5146 $"; #endif /* $Id: mcache.c 5146 2009-01-14 17:46:57Z fbaker $ */ /* * NOTE: * Here pages are the same thing as chunks. * I just didn't bother to change all references from pages to chunks. * * -georgev */ /* for debugging */ /* #define MCACHE_DEBUG */ /* #define STATISTICS */ #define __MCACHEINTERFACE_PRIVATE #include "hdf.h" /* number types ..etc */ #include "hqueue.h" /* Circluar queue functions(Macros) */ #include "mcache.h" #if defined(hpux) || defined(__hpux) || defined(__hpux__) #include #include #define getrusage(a, b) syscall(SYS_GETRUSAGE, a, b) #endif /* hpux */ /* Private routines */ static BKT *mcache_bkt (MCACHE *mp); static BKT *mcache_look (MCACHE *mp, int32 pgno); static intn mcache_write (MCACHE *mp, BKT *bkt); /****************************************************************************** NAME mcache_get_npages - returns current number of pages for object DESCRIPTION Finds current number of pages in object. RETURNS Returns current number of pages in object. ******************************************************************************/ int32 mcache_get_npages( MCACHE *mp /* IN: MCACHE cookie */) { if(mp != NULL) return mp->npages; else return 0; } /* mcache_get_npages */ /****************************************************************************** NAME mcache_get_maxcache - returns current number of pages cached. DESCRIPTION Finds current number of pages cached for object. RETURNS Returns current number of pages cached. ******************************************************************************/ int32 mcache_get_maxcache( MCACHE *mp /* IN: MCACHE cookie */) { if (mp != NULL) return mp->maxcache; else return 0; } /* mcache_get_maxcache */ /****************************************************************************** NAME mcache_set_maxcache - sets current number of pages to cache. DESCRIPTION Sets current number of pages to cached for object to 'maxcache'. RETURNS Returns current number of pages cached. ******************************************************************************/ int32 mcache_set_maxcache( MCACHE *mp, /* IN: MCACHE cookie */ int32 maxcache /* IN: max pages to cache */) { if (mp != NULL) { /* currently allow the current cache to grow up */ if (mp->maxcache < maxcache) mp->maxcache = maxcache; else /* maxcache is less than current maxcache */ { /* if current number of cached pages is less than request then set to 'maxcache', else we don't currently handle decreasing the curcache to 'maxcache' */ if (maxcache > mp->curcache) mp->maxcache = maxcache; } return mp->maxcache; } else return 0; } /* mcache_set_maxcache */ /****************************************************************************** NAME mcache_get_pagsize - returns pagesize for object DESCRIPTION Finds current pagesize used for object. RETURNS returns pagesize for object. ******************************************************************************/ int32 mcache_get_pagesize( MCACHE *mp /* IN: MCACHE cookie */) { if (mp != NULL) return mp->pagesize; else return 0; } /* mcache_get_pagesize */ /****************************************************************************** NAME mcache_open -- Open a memory pool on the given object DESCRIPTION Initialize a memory pool for object using the given pagesize and size of object. Note for 'flags' input only '0' should be used for now. RETURNS A memory pool cookie if successful else NULL NOTE: The key string byte for sharing buffers is not implemented. ******************************************************************************/ MCACHE * mcache_open( VOID *key, /* IN: byte string used as handle to share buffers */ int32 object_id, /* IN: object handle */ int32 pagesize, /* IN: chunk size in bytes */ int32 maxcache, /* IN: maximum number of pages to cache at any time */ int32 npages, /* IN: number of chunks currently in object */ int32 flags /* IN: 0= object exists, 1= does not exist */) { CONSTR(FUNC, "mcache_open"); /* for HERROR */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ MCACHE *mp = NULL; /* MCACHE cookie */ L_ELEM *lp = NULL; intn ret_value = RET_SUCCESS; intn entry; /* index into hash table */ int32 pageno; /* shut compiler up */ key=key; /* Set the pagesize and max # of pages to cache */ if(pagesize == 0) pagesize = (int32)DEF_PAGESIZE; if (maxcache == 0) maxcache = (int32)DEF_MAXCACHE; /* Allocate and initialize the MCACHE cookie. */ if ((mp = (MCACHE *)HDcalloc(1, sizeof(MCACHE))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); CIRCLEQ_INIT(&mp->lqh); for (entry = 0; entry < HASHSIZE; ++entry) { CIRCLEQ_INIT(&mp->hqh[entry]); CIRCLEQ_INIT(&mp->lhqh[entry]); } /* Initialize max # of pages to cache and number of pages in object */ mp->maxcache = (int32)maxcache; mp->npages = npages; /* Set pagesize and object handle and current object size */ mp->pagesize = pagesize; mp->object_id = object_id; mp->object_size = pagesize * npages; /* Initialize list hash chain */ for (pageno = 1; pageno <= mp->npages; ++pageno) { lhead = &mp->lhqh[HASHKEY(pageno)]; if ((lp = (L_ELEM *)HDmalloc(sizeof(L_ELEM))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); lp->pgno = (int32)pageno; /* set page number */ /* check if object exists already The usefullness of this flag is yet to be determined. Currently '0' should be used */ if (flags == 0) lp->eflags = (uint8)ELEM_SYNC; /* valid page exists on disk */ else lp->eflags = (uint8)0; /* page does not exist on disk */ #ifdef STATISTICS lp->elemhit = 0; ++(mp->listalloc); #endif CIRCLEQ_INSERT_HEAD(lhead, lp, hl); /* add to list */ } /* end for pageno */ /* initialize input/output filters and cookie to NULL */ mp->pgin = NULL; mp->pgout = NULL; mp->pgcookie = NULL; #ifdef STATISTICS mp->listhit = 0; mp->cachehit = 0; mp->cachemiss = 0; mp->pagealloc = 0; mp->pageflush = 0; mp->pageget = 0; mp->pagenew = 0; mp->pageput = 0; mp->pageread = 0; mp->pagewrite = 0; #endif done: if(ret_value == RET_ERROR) { /* error cleanup */ if (mp != NULL) HDfree(mp); /* free up list elements */ for (entry = 0; entry < HASHSIZE; ++entry) { while ((lp = mp->lhqh[entry].cqh_first) != (VOID *)&mp->lhqh[entry]) { CIRCLEQ_REMOVE(&mp->lhqh[entry], mp->lhqh[entry].cqh_first, hl); HDfree(lp); } } /* end for entry */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_open: ERROR \n"); #endif mp = NULL; /* return value */ } /* end error cleanup */ /* Normal cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_open: mp->pagesize=%lu\n",mp->pagesize); (VOID)fprintf(stderr,"mcache_open: mp->maxcache=%u\n",mp->maxcache); (VOID)fprintf(stderr,"mcache_open: mp->npages=%u\n",mp->npages); (VOID)fprintf(stderr,"mcache_open: flags=%u\n",flags); #ifdef STATISTICS (VOID)fprintf(stderr,"mcache_open: mp->listalloc=%lu\n",mp->listalloc); #endif #endif return (mp); } /* mcache_open () */ /****************************************************************************** NAME mcache_filter -- Initialize input/output filters. DESCRIPTION Initialize input/output filters for user page processing. These are used to read/write the chunks. RETURNS Nothing ******************************************************************************/ VOID mcache_filter( MCACHE *mp, /* IN: MCACHE cookie */ int32 (*pgin) (VOID * /* cookie */, int32 /* pgno */, VOID * /* page */), /* IN: page in filter */ int32 (*pgout) (VOID * /* cookie */, int32 /* pgno */, const VOID * /*page */), /* IN: page out filter */ VOID *pgcookie /* IN: filter cookie */) { mp->pgin = pgin; mp->pgout = pgout; mp->pgcookie = pgcookie; } /* mcache_filter() */ #if 0 /* NOT USED YET */ /****************************************************************************** NAME mcache_new -- get a new page of memory and extend memory pool. DESCRIPTION Get a new page of memory. This is where we get new pages for the object. This will only return a full page of memory. If the last page is an odd size the user must keep track of this as only lastpagesize bytes will be written out. As a result if the user fills the last page and lastpagesize does not equal pagesize the user will lose data. If 'flags' = 0, increase number of pages by 1 and return *pgnoaddr = npages If 'flags' = MCACHE_EXTEND, set page to *pgnoaddr and npages = *pgnoaddr. All returned pages are pinned. RETURNS Returns the new page if successfull and NULL otherwise NOTE: This is not used currently. ******************************************************************************/ VOID * mcache_new( MCACHE *mp, /* IN: MCACHE cookie */ int32 *pgnoaddr, /* IN/OUT: address of newly create page */ int32 flags /* IN:MCACHE_EXTEND or 0 */) { CONSTR(FUNC, "mcache_new"); /* for HERROR */ struct _hqh *head = NULL; /* head of an entry in hash chain */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ BKT *bp = NULL; /* bucket element */ L_ELEM *lp = NULL; intn ret_value = RET_SUCCESS; /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* page overflow? */ if (mp->npages == MAX_PAGE_NUMBER) HE_REPORT_GOTO("page allocation overflow", FAIL); #ifdef STATISTICS ++mp->pagenew; #endif /* * Get a BKT from the cache. * Assign a new page number based upon 'flags'. If flags * is MCACHE_EXTEND then we want to extend object up to '*pgnoaddr' pages. * attach it to the head of the hash chain, the tail of the lru chain, * and return. */ if ((bp = mcache_bkt(mp)) == NULL) HE_REPORT_GOTO("unable to get a new page from bucket", FAIL); if (!(flags & MCACHE_EXTEND)) { /* we increase by one page */ mp->npages++; /* number of pages */ *pgnoaddr = bp->pgno = mp->npages; /* page number */ } else { /* we extend to *pgnoaddr pages */ if (*pgnoaddr > MAX_PAGE_NUMBER) { (VOID)fprintf(stderr, "mcache_new: page allocation overflow.\n"); abort(); } bp->pgno = *pgnoaddr; /* page number to create */ mp->npages= *pgnoaddr; /* number of pages */ } #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_new: increasing #of pages to=%d\n",mp->npages); #endif /* Pin the page and insert into head of hash chain * and tail of lru chain */ bp->flags = MCACHE_PINNED; head = &mp->hqh[HASHKEY(bp->pgno)]; CIRCLEQ_INSERT_HEAD(head, bp, hq); CIRCLEQ_INSERT_TAIL(&mp->lqh, bp, q); /* Check to see if this page has ever been referenced */ lhead = &mp->lhqh[HASHKEY(bp->pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == bp->pgno) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif /* we are done */ ret_value = RET_SUCCESS; goto done; } /* end if lp->pgno */ /* NO hit, new list element */ if ((lp = (L_ELEM *)HDmalloc(sizeof(L_ELEM))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); lp->pgno = bp->pgno; lp->eflags = 0; #ifdef STATISTICS lp->elemhit = 0; ++mp->listalloc; #endif CIRCLEQ_INSERT_HEAD(lhead, lp, hl); /* add to list */ #ifdef MCACHE_DEBUG #ifdef STATISTICS (VOID)fprintf(stderr,"mcache_new: mp->listalloc=%d \n", mp->listalloc); #endif #endif done: if(ret_value == RET_ERROR) { /* error cleanup */ if(lp != NULL) HDfree(lp); return NULL; } /* Normal cleanup */ return (bp->page); } /* mcache_new() */ #endif /* commented out for later */ /****************************************************************************** NAME mcache_get - get a specified page by page number. DESCRIPTION Get a page specified by 'pgno'. If the page is not cached then we need to create a new page. All returned pages are pinned. RETURNS The specifed page if successful and NULL otherwise ******************************************************************************/ VOID * mcache_get( MCACHE *mp, /* IN: MCACHE cookie */ int32 pgno, /* IN: page number */ int32 flags /* IN: XXX not used? */) { CONSTR(FUNC, "mcache_get"); /* for HERROR */ struct _hqh *head = NULL; /* head of lru queue */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ BKT *bp = NULL; /* bucket element */ L_ELEM *lp = NULL; intn ret_value = RET_SUCCESS; #ifdef UNUSED int32 rpagesize; /* pagesize to read */ #endif /* UNUSED */ intn list_hit; /* hit flag */ /* shut compiler up */ flags=flags; #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: entering \n"); #endif /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for attempting to retrieve a non-existent page. * remember pages go from 1 ->npages */ if (pgno > mp->npages) HE_REPORT_GOTO("attempting to get a non existant page from cache", FAIL); #ifdef STATISTICS ++mp->pageget; #endif /* Check for a page that is cached. */ if ((bp = mcache_look(mp, pgno)) != NULL) { #ifdef MCACHE_DEBUG if (bp->flags & MCACHE_PINNED) { (VOID)fprintf(stderr, "mcache_get: page %d already pinned\n", bp->pgno); abort(); } #endif /* * Move the page to the head of the hash chain and the tail * of the lru chain. */ head = &mp->hqh[HASHKEY(bp->pgno)]; CIRCLEQ_REMOVE(head, bp, hq); CIRCLEQ_INSERT_HEAD(head, bp, hq); CIRCLEQ_REMOVE(&mp->lqh, bp, q); CIRCLEQ_INSERT_TAIL(&mp->lqh, bp, q); /* Return a pinned page. */ bp->flags |= MCACHE_PINNED; #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: getting cached bp->pgno=%d,npages=%d\n", bp->pgno,mp->npages); #endif /* update this page reference */ lhead = &mp->lhqh[HASHKEY(bp->pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == bp->pgno) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif break; } /* end if lp->pgno */ /* we are done */ ret_value = RET_SUCCESS; goto done; } /* end if bp */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: NOT cached page\n"); #endif /* Page not cached so * Get a page from the cache to use or create one. */ if ((bp = mcache_bkt(mp)) == NULL) HE_REPORT_GOTO("unable to get a new page from bucket", FAIL); /* Check to see if this page has ever been referenced */ list_hit = 0; lhead = &mp->lhqh[HASHKEY(pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == pgno && lp->eflags != 0) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif list_hit = 1; break; } /* end if lp->pgno */ /* If there is no hit then we allocate a new element * and insert into hash table */ if (!list_hit) { /* NO hit, new list element * no need to read this page from disk */ if ((lp = (L_ELEM *)HDmalloc(sizeof(L_ELEM))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); lp->pgno = pgno; lp->eflags = 0; #ifdef STATISTICS ++mp->listalloc; lp->elemhit =1; #endif CIRCLEQ_INSERT_HEAD(lhead, lp, hl); /* add to list */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: skiping reading in page=%u\n",pgno); #endif } /*end if !list_hit */ else { /* list hit, need to read page */ lp->eflags = ELEM_READ; /* Indiate we are reading this page */ #ifdef STATISTICS ++mp->pageread; #endif #ifdef UNUSED rpagesize = mp->pagesize; #endif /* UNUSED */ /* Run through the user's filter. we use this fcn to read in the data chunk/page. Not the original intention. */ if (mp->pgin != NULL) { /* Note page numbers in HMCPxxx are 0 based not 1 based */ if (((mp->pgin)(mp->pgcookie, pgno-1, bp->page)) == FAIL) { HEreport("mcache_get: error reading chunk=%d\n",(intn)pgno-1); lp = NULL; /* don't clobber the cache! */ ret_value = RET_ERROR; goto done; } } else { HEreport("mcache_get: reading fcn not set,chunk=%d\n",(intn)pgno-1); lp = NULL; ret_value = RET_ERROR; goto done; } } /* end else list hit */ /* Set the page number, pin the page. */ bp->pgno = pgno; bp->flags = MCACHE_PINNED; /* * Add the page to the head of the hash chain and the tail * of the lru chain. */ head = &mp->hqh[HASHKEY(bp->pgno)]; CIRCLEQ_INSERT_HEAD(head, bp, hq); CIRCLEQ_INSERT_TAIL(&mp->lqh, bp, q); done: if(ret_value == RET_ERROR) { /* error cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: Error exiting \n"); #endif if (lp!=NULL) HDfree(lp); return NULL; } /* Normal cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_get: Exiting \n"); #endif return (bp->page); } /* mcache_get() */ /****************************************************************************** NAME mcache_put -- put a page back into the memory buffer pool DESCRIPTION Return a page to the buffer pool. Unpin it and mark it appropriately i.e. MCACHE_DIRTY RETURNS RET_SUCCESS if succesful and RET_ERROR otherwise ******************************************************************************/ intn mcache_put( MCACHE *mp, /* IN: MCACHE cookie */ VOID *page, /* IN: page to put */ int32 flags /* IN: flags = 0, MCACHE_DIRTY */) { CONSTR(FUNC, "mcache_put"); /* for HERROR */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ L_ELEM *lp = NULL; BKT *bp = NULL; /* bucket element ptr */ intn ret_value = RET_SUCCESS; /* check inputs */ if (mp == NULL || page == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef STATISTICS ++mp->pageput; #endif /* get pointer to bucket element */ bp = (BKT *)((char *)page - sizeof(BKT)); #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_put: putting page=%d\n",bp->pgno); if (!(bp->flags & MCACHE_PINNED)) { (VOID)fprintf(stderr, "mcache_put: page %d not pinned\n", bp->pgno); abort(); } #endif /* Unpin the page and mark it appropriately */ bp->flags &= ~MCACHE_PINNED; bp->flags |= flags & MCACHE_DIRTY; if (bp->flags & MCACHE_DIRTY) { /* update this page reference */ lhead = &mp->lhqh[HASHKEY(bp->pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == bp->pgno) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif lp->eflags = ELEM_WRITTEN; break; } /* end if lp->pgno */ } done: if(ret_value == RET_ERROR) { /* error cleanup */ return ret_value; } /* Normal cleanup */ return ret_value; } /* mcache_put () */ /****************************************************************************** NAME mcache_close - close the memory buffer pool DESCRIPTION Close the buffer pool. Frees the buffer pool. Does not sync the buffer pool. RETURNS RET_SUCCESS if succesful and RET_ERROR otherwise ******************************************************************************/ intn mcache_close( MCACHE *mp /* IN: MCACHE cookie */) { CONSTR(FUNC, "mcache_close"); /* for HERROR */ L_ELEM *lp = NULL; BKT *bp = NULL; /* bucket element */ intn nelem = 0; intn ret_value = RET_SUCCESS; intn entry; /* index into hash table */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_close: entered \n"); #endif /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Free up any space allocated to the lru pages. */ while ((bp = mp->lqh.cqh_first) != (VOID *)&mp->lqh) { CIRCLEQ_REMOVE(&mp->lqh, mp->lqh.cqh_first, q); HDfree(bp); } /* free up list elements */ for (entry = 0; entry < HASHSIZE; ++entry) { while ((lp = mp->lhqh[entry].cqh_first) != (VOID *)&mp->lhqh[entry]) { CIRCLEQ_REMOVE(&mp->lhqh[entry], mp->lhqh[entry].cqh_first, hl); HDfree(lp); nelem++; } } /* end for entry */ done: if(ret_value == RET_ERROR) { /* error cleanup */ return ret_value; } /* Normal cleanup */ /* Free the MCACHE cookie. */ HDfree(mp); #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_close: freed %d list elements\n\n",nelem); #endif return ret_value; } /* mcache_close() */ /****************************************************************************** NAME mcache_sync -- sync the memory buffer pool DESCRIPTION Sync the pool to disk. Does NOT Free the buffer pool. RETURNS RET_SUCCESS if succesful and RET_ERROR otherwise ******************************************************************************/ intn mcache_sync( MCACHE *mp /* IN: MCACHE cookie */) { CONSTR(FUNC, "mcache_sync"); /* for HERROR */ BKT *bp = NULL; /* bucket element */ intn ret_value = RET_SUCCESS; #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"MCACHE_sync: entering \n"); #endif /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Walk the lru chain, flushing any dirty pages to disk. */ for (bp = mp->lqh.cqh_first; bp != (VOID *)&mp->lqh; bp = bp->q.cqe_next) { if (bp->flags & MCACHE_DIRTY && mcache_write(mp, bp) == RET_ERROR) HE_REPORT_GOTO("unable to flush a dirty page", FAIL); } /* end for bp */ done: if(ret_value == RET_ERROR) { /* error cleanup */ return ret_value; } /* Normal cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_sync: exiting \n"); #endif return ret_value; } /* mcache_sync() */ #if 0 /* NOT USED */ /****************************************************************************** NAME mcache_page_sync -- write the specified page to disk given its page number DESCRIPTION Write a cached page to disk given it's page number If the page is not cached return an error. RETURNS RET_SUCCESS if succesful and RET_ERROR otherwise NOTE: No longer used. This was mainly used in the case where we extend the object. We need to mark the current object size by writing out the last page(or part of it) otherwise MCACHE_get() on an intermediate page between the current end of the object and the new end of object will fail. ******************************************************************************/ intn mcache_page_sync( MCACHE *mp, /* IN: MCACHE cookie */ int32 pgno, /* IN: page number */ int32 flags /* IN: XXX not used? */) { CONSTR(FUNC, "mcache_page_sync"); /* for HERROR */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ L_ELEM *lp = NULL; BKT *bp = NULL; /* bucket element */ intn ret_value = RET_SUCCESS; int32 wpagesize; /* page size to write */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_page_sync: entering\n"); #endif /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for attempting to sync a non-existent page. * remember pages go from 1 ->npages */ if (pgno > mp->npages) HE_REPORT_GOTO("attempting to get a non existant page from cache", FAIL); /* Check for a page that is cached. */ if ((bp = mcache_look(mp, pgno)) != NULL) { #ifdef MCACHE_DEBUG if (bp->flags & MCACHE_PINNED) { (VOID)fprintf(stderr, "mcache_page_sync: page %u already pinned\n", bp->pgno); abort(); } #endif /* only flush the page if dirty */ if (!(bp->flags & MCACHE_DIRTY)) { /* done */ ret_value = RET_SUCCESS; goto done; } #ifdef STATISTICS ++mp->pagewrite; #endif /* update this page reference */ lhead = &mp->lhqh[HASHKEY(bp->pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == bp->pgno) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif lp->eflags = ELEM_SYNC; break; } /* Run page through the user's filter. we use this to write the data chunk/page out. This deviates from the orignal purpose of the filter. */ if (mp->pgout) { /* Note page numbers in HMCPxxx are 0 based not 1 based */ if (((mp->pgout)(mp->pgcookie, bp->pgno - 1, bp->page)) == FAIL) { HEreport("error writing chunk=%d\n",(intn)bp->pgno); ret_value = RET_ERROR; goto done; } } else { HEreport("writing fcn not set,chunk=%d\n",(intn)bp->pgno); ret_value = RET_ERROR; goto done; } #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_page_sync: npages=%u\n",mp->npages); #endif wpagesize = mp->pagesize; /* mark page as clean */ bp->flags &= ~MCACHE_DIRTY; } /* end if cached page */ else /* not a cached page!...we shouldn't encounter this */ ret_value = RET_ERROR; done: if(ret_value == RET_ERROR) { /* error cleanup */ return ret_value; } /* Normal cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_page_sync: exiting\n"); #endif return ret_value; } /* mcache_page_sync() */ #endif /****************************************************************************** NAME mcache_bkt - Get a page from the cache (or create one). DESCRIPTION Private routine. Get a page from the cache (or create one). RETURNS A page if successful and NULL otherwise. NOTE: Note that the size of the page allocated is equal to sizeof(bucket element) + pagesize. We only return the pagesize fragment to the user. The only caveat here is that a user could inadvertently clobber the bucket element information by writing out of the page size bounds. ******************************************************************************/ static BKT * mcache_bkt( MCACHE *mp /* IN: MCACHE cookie */) { CONSTR(FUNC, "mcache_bkt"); /* for HERROR */ struct _hqh *head = NULL; /* head of hash chain */ BKT *bp = NULL; /* bucket element */ intn ret_value = RET_SUCCESS; /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If under the max cached, always create a new page. */ if ((int32)mp->curcache < (int32)mp->maxcache) goto new; /* * If the cache is max'd out, walk the lru list for a buffer we * can flush. If we find one, write it (if necessary) and take it * off any lists. If we don't find anything we grow the cache anyway. * The cache never shrinks. */ for (bp = mp->lqh.cqh_first; bp != (VOID *)&mp->lqh; bp = bp->q.cqe_next) if (!(bp->flags & MCACHE_PINNED)) { /* Flush if dirty. */ if (bp->flags & MCACHE_DIRTY && mcache_write(mp, bp) == RET_ERROR) HE_REPORT_GOTO("unable to flush a dirty page", FAIL); #ifdef STATISTICS ++mp->pageflush; #endif /* Remove from the hash and lru queues. */ head = &mp->hqh[HASHKEY(bp->pgno)]; CIRCLEQ_REMOVE(head, bp, hq); CIRCLEQ_REMOVE(&mp->lqh, bp, q); #ifdef MCACHE_DEBUG { VOID *spage; spage = bp->page; memset(bp, 0xff, sizeof(BKT) + mp->pagesize); bp->page = spage; } #endif /* done */ ret_value = RET_SUCCESS; goto done; } /* end if bp->flags */ /* create a new page */ new: if ((bp = (BKT *)HDmalloc(sizeof(BKT) + (uintn)mp->pagesize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); #ifdef STATISTICS ++mp->pagealloc; #endif #if defined(MCACHE_DEBUG) || defined(PURIFY) memset(bp, 0xff, sizeof(BKT) + mp->pagesize); #endif /* set page ptr past bucket element section */ bp->page = (char *)bp + sizeof(BKT); ++mp->curcache; /* increase number of cached pages */ done: if(ret_value == RET_ERROR) { /* error cleanup */ if (bp != NULL) HDfree(bp); return NULL; } /* Normal cleanup */ return (bp); /* return only the pagesize fragement */ } /* mcache_bkt() */ /****************************************************************************** NAME mcache_write - write a page to disk given it's bucket handle. DESCRIPTION Private routine. Write a page to disk given it's bucket handle. RETURNS RET_SUCCESS if succesful and RET_ERROR otherwise ******************************************************************************/ static int mcache_write( MCACHE *mp, /* IN: MCACHE cookie */ BKT *bp /* IN: bucket element */) { CONSTR(FUNC, "mcache_write"); /* for HERROR */ struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ L_ELEM *lp = NULL; intn ret_value = RET_SUCCESS; #ifdef UNUSED int32 wpagesize; /* page size to write */ #endif /* UNUSED */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_write: entering \n"); #endif /* check inputs */ if (mp == NULL || bp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef STATISTICS ++mp->pagewrite; #endif /* update this page reference */ lhead = &mp->lhqh[HASHKEY(bp->pgno)]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) if (lp->pgno == bp->pgno) { /* hit */ #ifdef STATISTICS ++mp->listhit; ++lp->elemhit; #endif lp->eflags = ELEM_SYNC; break; } /* Run page through the user's filter. we use this to write the data chunk/page out. This deviates from the orignal purpose of the filter. */ if (mp->pgout) { /* Note page numbers in HMCPxxx are 0 based not 1 based */ if (((mp->pgout)(mp->pgcookie, bp->pgno - 1, bp->page)) == FAIL) { HEreport("mcache_write: error writing chunk=%d\n",(intn)bp->pgno); ret_value = RET_ERROR; goto done; } } else { HEreport("mcache_write: writing fcn not set,chunk=%d\n",(intn)bp->pgno); ret_value = RET_ERROR; goto done; } #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_write: npages=%u\n",mp->npages); #endif #ifdef UNUSED wpagesize = mp->pagesize; #endif /* UNUSED */ /* mark page as clean */ bp->flags &= ~MCACHE_DIRTY; done: if(ret_value == RET_ERROR) { /* error cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_write: error exiting\n"); #endif return ret_value; } /* Normal cleanup */ #ifdef MCACHE_DEBUG (VOID)fprintf(stderr,"mcache_write: exiting\n"); #endif return ret_value; } /* mcache_write() */ /****************************************************************************** NAME mcache_look - lookup a page in the cache. DESCRIPTION Private routine. Lookup a page in the cache and return pointer to it. RETURNS Page if successfull and NULL othewise. ******************************************************************************/ static BKT * mcache_look( MCACHE *mp, /* IN: MCACHE cookie */ int32 pgno /* IN: page to look up in cache */) { CONSTR(FUNC, "mcache_look"); /* for HERROR */ struct _hqh *head = NULL; /* head of hash chain */ BKT *bp = NULL; /* bucket element */ intn ret_value = RET_SUCCESS; /* check inputs */ if (mp == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for attempt to look up a non-existent page. */ if (pgno > mp->npages) HE_REPORT_GOTO("attempting to get a non existant page from cache", FAIL); /* search through hash chain */ head = &mp->hqh[HASHKEY(pgno)]; for (bp = head->cqh_first; bp != (VOID *)head; bp = bp->hq.cqe_next) if (bp->pgno == pgno) { /* hit....found page in cache */ #ifdef STATISTICS ++mp->cachehit; #endif /* done */ ret_value = RET_SUCCESS; goto done; } /* Well didn't find page in cache so mark return * value as NULL */ bp = NULL; #ifdef STATISTICS ++mp->cachemiss; #endif done: if(ret_value == RET_ERROR) { /* error cleanup */ return NULL; } /* Normal cleanup */ return (bp); } /* mcache_look() */ #ifdef STATISTICS #ifdef HAVE_GETRUSAGE /****************************************************************************** NAME myrusage - print some process usage statistics DESCRIPTION prints some process usage statistics to STDERR RETURNS Nothing ******************************************************************************/ VOID myrusage() { struct rusage r; double sys, user, idle; double per; double timespent(); getrusage(RUSAGE_SELF,&r); fprintf(stderr,"USAGE: shmem=%d,unshdata=%d,unshstack=%d\n", r.ru_ixrss,r.ru_idrss,r.ru_isrss); fprintf(stderr," pager=%d,pagef=%d,nswap=%d\n", r.ru_minflt,r.ru_majflt,r.ru_nswap); fprintf(stderr," block_in=%d,block_out=%d,nioch=%d\n", r.ru_inblock,r.ru_oublock,r.ru_ioch); fprintf(stderr," mesgs=%d,mesgr=%d,nsignals=%d\n", r.ru_msgsnd,r.ru_msgrcv,r.ru_nsignals); } #endif /* HAVE_GETRUSAGE */ /****************************************************************************** NAME mcache_stat - print out cache statistics DESCRIPTION Print out cache statistics to STDERR. RETURNS Nothing ******************************************************************************/ VOID mcache_stat( MCACHE *mp /* IN: MCACHE cookie */) { struct _lhqh *lhead = NULL; /* head of an entry in list hash chain */ BKT *bp = NULL; /* bucket element */ L_ELEM *lp = NULL; char *sep = NULL; intn entry; /* index into hash table */ intn cnt; intn hitcnt; #ifdef HAVE_GETRUSAGE myrusage(); #endif /* check inputs */ if (mp != NULL) { (VOID)fprintf(stderr, "%u pages in the object\n", mp->npages); (VOID)fprintf(stderr, "page size %u, cacheing %u pages of %u page max cache\n", mp->pagesize, mp->curcache, mp->maxcache); (VOID)fprintf(stderr, "%u page puts, %u page gets, %u page new\n", mp->pageput, mp->pageget, mp->pagenew); (VOID)fprintf(stderr, "%u page allocs, %u page flushes\n", mp->pagealloc, mp->pageflush); if (mp->cachehit + mp->cachemiss) (VOID)fprintf(stderr, "%.0f%% cache hit rate (%u hits, %u misses)\n", ((double)mp->cachehit / (mp->cachehit + mp->cachemiss)) * 100, mp->cachehit, mp->cachemiss); (VOID)fprintf(stderr, "%u page reads, %u page writes\n", mp->pageread, mp->pagewrite); (VOID)fprintf(stderr, "%u listhits, %u listallocs\n", mp->listhit, mp->listalloc); (VOID)fprintf(stderr, "sizeof(MCACHE)=%d, sizeof(BKT)=%d, sizeof(L_ELEM)=%d\n", sizeof(MCACHE), sizeof(BKT), sizeof(L_ELEM)); (VOID)fprintf(stderr, "memory pool used %u bytes\n", (int32)(sizeof(MCACHE)+ (sizeof(BKT)+mp->pagesize)*mp->curcache + (sizeof(L_ELEM)*mp->npages))); sep = ""; cnt = 0; for (bp = mp->lqh.cqh_first; bp != (VOID *)&mp->lqh; bp = bp->q.cqe_next) { (VOID)fprintf(stderr, "%s%u", sep, bp->pgno); if (bp->flags & MCACHE_DIRTY) (VOID)fprintf(stderr, "d"); if (bp->flags & MCACHE_PINNED) (VOID)fprintf(stderr, "P"); if (++cnt == 10) { sep = "\n"; cnt = 0; } else sep = ", "; } (VOID)fprintf(stderr, "\n"); (VOID)fprintf(stderr, "Element hits\n"); sep = ""; cnt = 0; hitcnt = 0; for (entry = 0; entry < HASHSIZE; ++entry) { lhead = &mp->lhqh[entry]; for (lp = lhead->cqh_first; lp != (VOID *)lhead; lp = lp->hl.cqe_next) { cnt++; (VOID)fprintf(stderr, "%s%u(%u)", sep, lp->pgno, lp->elemhit); hitcnt += lp->elemhit; if (cnt >= 8) { sep = "\n"; cnt = 0; } else sep = ", "; } if (cnt >= 8) { (VOID)fprintf(stderr, "\n"); cnt = 0; } } (VOID)fprintf(stderr, "\n"); (VOID)fprintf(stderr, "Total num of elemhits=%d\n",hitcnt); } /* end if mp */ } #endif /* STATISTICS */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfrig.h0000644000000000000000000000642012421456623013704 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfrig.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfrig.h * Purpose: header file for the Raster Image set * Invokes: df.h * Contents: * Structure definitions: DFRdr, DFRrig * Remarks: This is included with user programs which use RIG *---------------------------------------------------------------------------*/ #ifndef DFRIG /* avoid re-inclusion */ #define DFRIG /* description record: used to describe image data, palette data etc. */ typedef struct { int16 ncomponents; /* Number of components */ int16 interlace; /* data ordering: chunky / planar etc */ int32 xdim; /* X-dimension of data */ int32 ydim; /* Y-dimensionsof data */ DFdi nt; /* number type of data */ DFdi compr; /* compression */ /* ### Note: compression is currently uniquely described with a tag. No data is attached to this tag/ref. But this capability is provided for future expansion, when this tag/ref might point to some data needed for decompression, such as the actual encodings */ } DFRdr; /* structure to hold RIG info */ typedef struct { char *cf; /* color format */ int32 xpos; /* X position of image on screen */ int32 ypos; /* Y position of image on screen */ float32 aspectratio; /* ratio of pixel height to width */ float32 ccngamma; /* gamma color correction parameters */ float32 ccnred[3]; /* red color correction parameters */ float32 ccngrren[3]; /* green color correction parameters */ float32 ccnblue[3]; /* blue color correction parameters */ float32 ccnwhite[3]; /* white color correction parameters */ DFdi image; /* image */ DFRdr descimage; /* image data description */ DFdi lut; /* color look-up table (palette) */ DFRdr desclut; /* look-up table description */ DFdi mattechannel; /* matte? */ DFRdr descmattechannel; /* Description of matte? */ } DFRrig; /* dimensions of raster-8 image */ typedef struct R8dim { uint16 xd; uint16 yd; } R8dim; #endif /*DFRIG */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfr8.c0000644000000000000000000015462112421456623013456 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfr8.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfr8.c * Purpose: read and write 8-bit Raster Image Groups * Invokes: df.c, dfcomp.c, dfgroup.c, dfrig.h * Contents: * DFR8setpalette : specify palette to be used with subsequent 8-bit images * DFR8setcompress : Set the compression for next image written * DFR8putimage : write 8-bit image into an HDF file * DFR8addimage : append another 8-bit image to an HDF file * DFR8getdims : retrieve information about 8-bit image dimensions * DFR8getimage : retrieve 8-bit image and associated palette * DFR8putrig : write out a raster image group for 8-bit images * DFR8getrig : read in a raster image group for 8-bit images * DFR8nimages : number of images in HDF file * DFR8readref : get image with this reference number next * DFR8writeref : put image with this reference number next * DFR8lastref : return reference number of last element read or written * DFR8restart : forget info about last file accessed, restart from * beginning * Private: * DFR8Iopen: open/reopen file * DFR8Iriginfo: obtain info about next RIG/RI8 to get * DFR8Iputimage : internal routine that write 8-bit images to files * Remarks: A RIG specifies attributes associated with an image - palette, * dimension, compression, color compensation etc. * The palette for an 8-bit image is assumed to always be 768 bytes * The palette is arranged as RGBRGB... *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfrig.h" /* Private Variables */ PRIVATE uint8 *paletteBuf = NULL; PRIVATE uint16 Refset = 0; /* Ref of image to get next */ PRIVATE uint16 Lastref = 0; /* Last ref read/written */ PRIVATE uint16 Writeref = 0; /* ref of next image to put in this file */ PRIVATE intn foundRig = -1; /* -1: don't know if HDF file has RIGs 0: No RIGs, try for RI8s etc. 1: RIGs used, ignore RI8s etc. */ PRIVATE intn Newdata = 0; /* does Readrig contain fresh data? */ PRIVATE intn Newpalette = -1; /* -1 = no palette is associated 0 = palette already written out 1 = new palette, not yet written out */ PRIVATE intn CompressSet = FALSE; /* Whether the compression parameters have been set for the next image */ PRIVATE int32 CompType = COMP_NONE; /* What compression to use for the next image */ PRIVATE comp_info CompInfo; /* Params for compression to perform */ PRIVATE char Lastfile[DF_MAXFNLEN]; /* last file opened */ PRIVATE DFRrig Readrig = { /* information about RIG being read */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, }; PRIVATE DFRrig Writerig = { /* information about RIG being written */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, }; PRIVATE DFRrig Zrig = { /* empty RIG for initialization */ NULL, 0, 0, (float32) 0.0, (float32) 0.0, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {(float32) 0.0, (float32) 0.0, (float32) 0.0}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, {0, 0}, {0, 0, 0, 0, {0, 0}, {0, 0}}, }; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* private functions */ PRIVATE intn DFR8Iputimage (const char *filename, const void * image, int32 xdim, int32 ydim, uint16 compress, intn append); PRIVATE int32 DFR8Iopen (const char *filename, intn acc_mode); PRIVATE intn DFR8Iriginfo (int32 file_id); PRIVATE intn DFR8getrig (int32 file_id, uint16 ref, DFRrig * rig); PRIVATE intn DFR8putrig (int32 file_id, uint16 ref, DFRrig * rig, intn wdim); PRIVATE intn DFR8Istart(void); /*-------------------------------------------------------------------------- NAME DFR8setcompress -- set compression scheme for 8-bit image USAGE intn DFR8setcompress(type,cinfo) int32 type; IN: the type of compression to perform on the next image comp_info *cinfo; IN: ptr to compression information structure RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the scheme used to compress the next 8-bit raster image written out with the DFR8 interface. Valid compression types available for this interface are listed in hcomp.h as COMP_nnnn. GLOBAL VARIABLES Uses the CompressSet, CompType and CompInfo global variables to store the information about the compression scheme. COMMENTS, BUGS, ASSUMPTIONS Only the JPEG compression type currently uses the cinfo structure. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8setcompress(int32 type, comp_info * cinfo) { CONSTR(FUNC, "DFR8setcompress"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (type == COMP_NONE) { /* quick check for no compression */ CompType = 0; HGOTO_DONE(SUCCEED); } /* end if */ if (type < 0 || type > COMP_MAX_COMP || compress_map[type] == 0) HGOTO_ERROR(DFE_BADSCHEME, FAIL); CompressSet = TRUE; /* map JPEG compression into correct type of JPEG compression */ if (type == COMP_JPEG) CompType = DFTAG_GREYJPEG5; else /* otherwise, just use mapped tag */ CompType = (int32)compress_map[type]; CompInfo = (*cinfo); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8setcompress() */ /*-------------------------------------------------------------------------- NAME DFR8getdims -- get dimensions of next image from RIG, also if there is a palette USAGE intn DFR8getdims(filename,pxdim,pydim,pispal) char *filename; IN: name of HDF file int32 *pxdim, *pydim; OUT: ptr to locations for returning X & Y dims intn *pispal; OUT: ptr to location for returning if there is a palette RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Moves to the next 8-bit raster image in a file and returns the dimensions and whether there is a palette associated with it. Will also handle file with just raster-8 tags: RI8, CI8, ID8, IP8 GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8getdims(const char *filename, int32 *pxdim, int32 *pydim, intn *pispal) { CONSTR(FUNC, "DFR8getdims"); int32 file_id=(-1); intn ret_value = SUCCEED; HEclear(); if (!filename || !*filename || !pxdim || !pydim) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if ((file_id = DFR8Iopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (DFR8Iriginfo(file_id) == FAIL) /* reads next RIG or RI8 from file */ HGOTO_ERROR(DFE_INTERNAL,FAIL); Newdata = 1; *pxdim = Readrig.descimage.xdim; *pydim = Readrig.descimage.ydim; if (pispal) *pispal = Readrig.lut.tag ? 1 : 0; /* is there a palette */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if(file_id!=(-1)) Hclose(file_id); return ret_value; } /* end DFR8getdims() */ /*-------------------------------------------------------------------------- NAME DFR8getimage -- get next image from a RIG, get palette also if desired USAGE intn DFR8getimage(filename,image,xdim,ydim,pal) char *filename; IN: name of HDF file uint8 *image; OUT: ptr to buffer to store image in int32 xdim,ydim; IN: dims of space allocated by user for image uint8 *pal; OUT: 768-byte space for palette, NULL if palette not wanted RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Reads the next 8-bit raster image from the file specified into the image buffer and it's associated palette into the palette buffer if the pal ptr is not NULL. Will also get RI8s and CI8s if no RIGs in file. Normally,DFR8getdims is called first and it finds next image to get. But if that is not called, DFR8getimage will itself find next image. Automatically decompresses images. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8getimage(const char *filename, uint8 *image, int32 xdim, int32 ydim, uint8 *pal) { CONSTR(FUNC, "DFR8getimage"); int32 file_id=(-1); intn ret_value = SUCCEED; HEclear(); if (!filename || !*filename || !image || (xdim <= 0) || (ydim <= 0)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if ((file_id = DFR8Iopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (!Newdata) { /* if Readrig not fresh */ if (DFR8Iriginfo(file_id) == FAIL) /*reads next RIG or RI8 from file */ HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ Newdata = 0; /* read new RIG next time */ if ((Readrig.descimage.xdim > xdim) || (Readrig.descimage.ydim > ydim)) HGOTO_ERROR(DFE_ARGS, FAIL); /* read image */ if (Readrig.descimage.compr.tag) { /* compressed image */ if (DFgetcomp(file_id, Readrig.image.tag, Readrig.image.ref, image, Readrig.descimage.xdim, Readrig.descimage.ydim, Readrig.descimage.compr.tag) == FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ else { /* non-compressed raster image */ if (Hgetelement(file_id, Readrig.image.tag, Readrig.image.ref, image) == FAIL) HGOTO_ERROR(DFE_GETELEM,FAIL); } /* end else */ if (xdim > Readrig.descimage.xdim) { int32 off1, off2; int32 x, y; off1 = (Readrig.descimage.ydim - 1) * xdim; off2 = (Readrig.descimage.ydim - 1) * Readrig.descimage.xdim; for (y = Readrig.descimage.ydim - 1; y > 0; y--) { for (x = Readrig.descimage.xdim - 1; x >= 0; x--) image[off1 + x] = image[off2 + x]; off1 -= xdim; off2 -= Readrig.descimage.xdim; } /* end for */ } /* end for */ if (pal && Readrig.lut.tag) { /* read palette */ if (Hgetelement(file_id, Readrig.lut.tag, Readrig.lut.ref, pal) == FAIL) HGOTO_ERROR(DFE_GETELEM,FAIL); } /* end if */ if((ret_value = Hclose(file_id))==FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8getimage() */ /*-------------------------------------------------------------------------- NAME DFR8setpalette -- set palette for subsequent images USAGE intn DFR8setpalette(pal) uint8 *pal; IN: 768-byte buffer for palette to use for next image RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Stores a palette for use with further 8-bit raster images written through this interface. If pal is NULL, no palette is associated with subsequent images. GLOBAL VARIABLES paletteBuf, Writerig, Newpalette COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8setpalette(uint8 *pal) { CONSTR(FUNC, "DFR8setpalette"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check if paletteBuf buffer has been allocated */ if (paletteBuf == NULL) { paletteBuf = (uint8 *) HDmalloc(768 * sizeof(uint8)); if (paletteBuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ if (!pal) { Newpalette = -1; /* no palette */ Writerig.lut.tag = 0; Writerig.lut.ref = 0; /* forget tag/ref of previous palette */ Writerig.desclut.xdim = 0; Writerig.desclut.ncomponents = 0; } /* end if */ else { /* store palette */ HDmemcpy(paletteBuf, pal, 768); Newpalette = 1; } /* end else */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8setpalette() */ /*-------------------------------------------------------------------------- NAME DFR8Iputimage -- Internal routine to write RIG to file USAGE intn DFR8Iputimage(filename, image, xdim, ydim, compress, append) char *filename; IN: name of HDF file const void * image; IN: ptr to buffer image is stored in int32 xdim,ydim; IN: dims of space allocated by user for image uint16 compress; IN: type of compression to store image with intn append; IN: whether to (0) overwrite existing file, or (1) append image to file. RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Stores an image in an HDF file. If a palette has been specified to use with 8-bit rasters, then it will be written to the file too and associated with the image. GLOBAL VARIABLES paletteBuf, Newpalette, Writeref, CompressSet, CompType, CompInfo, Lastref, Writerig COMMENTS, BUGS, ASSUMPTIONS Palette will be associated with image is isPalette is 1 Palette will be written to file if not written before (Palref=0) Creates both RIG and RI8/CI8 tags, to accomodate older programs EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFR8Iputimage(const char *filename, const void * image, int32 xdim, int32 ydim, uint16 compress, intn append) { CONSTR(FUNC, "DFR8Iputimage"); intn acc_mode; /* create if op 0, write if op 1 */ int32 file_id=(-1); uint16 r8tag; /* RIG and raster tags of image being written */ uint8 *pal; /* pointer to palette to be written */ uint8 newpal[768]; /* Imcomp creates new palette to be associated */ intn wdim; /* have dimensions already been written out? */ intn ret_value = SUCCEED; HEclear(); if (!filename || !*filename || !image || (xdim <= 0) || (ydim <= 0)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check if Palette buffer has been allocated */ if (paletteBuf == NULL) { paletteBuf = (uint8 *) HDmalloc(768 * sizeof(uint8)); if (paletteBuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ pal = (Newpalette >= 0) ? paletteBuf : NULL; acc_mode = append ? DFACC_WRITE : DFACC_CREATE; if ((file_id = DFR8Iopen(filename, acc_mode)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* write out image */ if (compress || CompressSet) { /* if a compression type has been set, check if it's the same */ if (CompressSet == FALSE || (compress > (uint16)1 && (int32)compress != CompType && !(compress == (uint16)COMP_JPEG && CompType == (int32)DFTAG_GREYJPEG5))) { if ((int32)compress > COMP_MAX_COMP || compress_map[compress] == 0) HGOTO_ERROR(DFE_BADSCHEME, FAIL); /* map JPEG compression into correct type of JPEG compression */ if (compress == COMP_JPEG) { CompType = DFTAG_GREYJPEG5; /* set up some sane JPEG params */ CompInfo.jpeg.quality = 75; CompInfo.jpeg.force_baseline = TRUE; } /* end if */ else /* otherwise, just use mapped tag */ CompType = (int32)compress_map[compress]; } /* end if */ if (!Writeref) if ((Writeref = Hnewref(file_id)) == 0) HGOTO_ERROR(DFE_NOREF, FAIL); if (DFputcomp(file_id, DFTAG_CI, Writeref, image, xdim, ydim, pal, newpal, (int16) CompType, &CompInfo) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); Writerig.image.tag = DFTAG_CI; if (CompType == DFTAG_IMC) { pal = newpal; /* Imcomp creates new pal */ Newpalette = 1; /* write out palette */ } /* end if */ } /* end if */ else { /* image need not be compressed */ if (!Writeref) if ((Writeref = Hnewref(file_id)) == 0) HGOTO_ERROR(DFE_NOREF, FAIL); if (Hputelement(file_id, DFTAG_RI, Writeref, image, xdim * ydim) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Writerig.image.tag = DFTAG_RI; } /* end else */ Writerig.image.ref = Writeref; Writerig.descimage.ncomponents = 1; Writerig.aspectratio = (float32) 1.0; /* Write out Raster-8 tags for those who want it */ if (CompType != DFTAG_GREYJPEG5) { r8tag = (uint16) (CompType ? ((CompType == DFTAG_RLE) ? DFTAG_CI8 : DFTAG_II8) : DFTAG_RI8); if (Hdupdd(file_id, r8tag, Writeref, Writerig.image.tag, Writeref) == FAIL) HGOTO_ERROR(DFE_NOFREEDD, FAIL); } /* end if */ /* Write out palette */ if (pal) { /* if there is a palette */ if (Newpalette == 1) { /* write palette */ if (Hputelement(file_id, DFTAG_LUT, Writeref, pal, (int32) 768) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Writerig.lut.tag = DFTAG_LUT; Writerig.lut.ref = Writeref; Writerig.desclut.xdim = 768; Writerig.desclut.ncomponents = 1; } /* end if */ if (CompType != DFTAG_IMC) Newpalette = 0; /* if IMCOMP, original palette not written out */ /* put in Raster-8 stuff also, for those who want it */ Hdeldd(file_id, DFTAG_IP8, Writeref); if (Hdupdd(file_id, DFTAG_IP8, Writeref, Writerig.lut.tag, Writerig.lut.ref) == FAIL) HGOTO_ERROR(DFE_NOFREEDD, FAIL); } /* end if */ /* Write out RIG */ if ((Writerig.descimage.xdim == xdim) && (Writerig.descimage.ydim == ydim) && (Writerig.descimage.compr.tag == (uint16) CompType)) wdim = 0; else { wdim = 1; Writerig.descimage.xdim = xdim; Writerig.descimage.ydim = ydim; Writerig.descimage.compr.tag = (uint16) CompType; Writerig.descimage.compr.ref = Writeref; } /* end else */ /* write ID, NT */ if (DFR8putrig(file_id, Writeref, &Writerig, wdim) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); Lastref = Writeref; /* remember ref written */ Writeref = 0; /* don't know ref to write next */ CompressSet = FALSE; /* Reset Compression flag and type */ CompType = COMP_NONE; ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8Iputimage() */ /*-------------------------------------------------------------------------- NAME DFR8putimage -- Write 8-bit raster image to HDF file USAGE intn DFR8putimage(filename, image, xdim, ydim, compress) char *filename; IN: name of HDF file const void * image; IN: ptr to buffer to store image in int32 xdim,ydim; IN: dims of space allocated by user for image uint16 compress; IN: type of compression to store image with RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Stores an image in an HDF file. If a palette has been specified to use with 8-bit rasters, then it will be written to the file too and associated with the image. This function overwrites existing HDF files. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8putimage(const char *filename, const void * image, int32 xdim, int32 ydim, uint16 compress) { CONSTR(FUNC, "DFR8putimage"); /* for HERROR */ intn ret_value; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); ret_value = (DFR8Iputimage(filename, image, xdim, ydim, compress, 0)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8putimage() */ /*-------------------------------------------------------------------------- NAME DFR8addimage -- Append 8-bit raster image to HDF file USAGE intn DFR8putimage(filename, image, xdim, ydim, compress) char *filename; IN: name of HDF file const void * image; IN: ptr to buffer to store image in int32 xdim,ydim; IN: dims of space allocated by user for image uint16 compress; IN: type of compression to store image with RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Stores an image in an HDF file. If a palette has been specified to use with 8-bit rasters, then it will be written to the file too and associated with the image. This function does not overwrite existing HDF files, just appends the to the file. It will create the file if necessary. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8addimage(const char *filename, const void * image, int32 xdim, int32 ydim, uint16 compress) { CONSTR(FUNC, "DFR8addimage"); /* for HERROR */ intn ret_value; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); ret_value = (DFR8Iputimage(filename, image, xdim, ydim, compress, 1)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8addimage() */ /*****************************************************************************/ /* This is the next lower layer - procedures to get and put a RIG. */ /* These are specific to 8-bit */ /*****************************************************************************/ /*-------------------------------------------------------------------------- NAME DFR8getrig -- Read a RIG into memory USAGE intn DFR8getrig(file_id,ref,rig) int32 file_id; IN: HDF file ID of file to retrieve RIG from uint16 ref; IN: ref # of RIG to get DFRrig *rig; OUT: ptr to RIG structure to place info in RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Retrieves a specific RIG from an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This function seems to be a low level routine, but could be exported. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFR8getrig(int32 file_id, uint16 ref, DFRrig * rig) { CONSTR(FUNC, "DFR8getrig"); uint16 elt_tag; uint16 elt_ref; uint8 ntstring[4]; int32 GroupID; uint8 R8tbuf[64]; intn ret_value = SUCCEED; HEclear(); if (!HDvalidfid(file_id) || !ref || !rig) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* read RIG into memory */ if ((GroupID = DFdiread(file_id, DFTAG_RIG, ref)) == FAIL) HGOTO_ERROR(DFE_BADGROUP, FAIL); *rig = Zrig; /* fill rig with zeroes */ while (DFdiget(GroupID, &elt_tag, &elt_ref) != FAIL) { /*get next tag/ref from RIG */ switch (elt_tag) { /* process tag/ref */ case DFTAG_CI: case DFTAG_RI: rig->image.tag = elt_tag; /* put tag/ref in struct */ rig->image.ref = elt_ref; break; case DFTAG_LUT: rig->lut.tag = elt_tag; rig->lut.ref = elt_ref; break; case DFTAG_ID: /* read description info */ if (Hgetelement(file_id, elt_tag, elt_ref, R8tbuf) != FAIL) { uint8 *p; p = R8tbuf; INT32DECODE(p, rig->descimage.xdim); INT32DECODE(p, rig->descimage.ydim); UINT16DECODE(p, rig->descimage.nt.tag); UINT16DECODE(p, rig->descimage.nt.ref); INT16DECODE(p, rig->descimage.ncomponents); INT16DECODE(p, rig->descimage.interlace); UINT16DECODE(p, rig->descimage.compr.tag); UINT16DECODE(p, rig->descimage.compr.ref); } /* end if */ else { DFdifree(GroupID); ret_value = FAIL; goto done; } if (rig->descimage.ncomponents != 1) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADCALL, FAIL); } if (rig->descimage.nt.tag == 0) break; /* old RIGs */ /* read NT */ if (Hgetelement(file_id, rig->descimage.nt.tag, rig->descimage.nt.ref, ntstring) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } if ((ntstring[2] != 8) || (ntstring[1] != DFNT_UCHAR)) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADCALL, FAIL); } break; default: /* ignore unknown tags */ break; } /* end switch */ } /* end while */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8getrig() */ /*-------------------------------------------------------------------------- NAME DFR8putrig -- Write RIG struct out to HDF file USAGE intn DFR8putrig(file_id,ref,rig,wdim) int32 file_id; IN: HDF file ID of file to put RIG into uint16 ref; IN: ref # of RIG to put DFRrig *rig; IN: ptr to RIG structure to write to file intn wdim; IN: if (1) write new descr. records, (0) if records already written RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Writes a specific RIG to an HDF file. If wdim is 1, then the ID & ID8 records will be written also GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This function seems to be a low level routine, but could be exported. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFR8putrig(int32 file_id, uint16 ref, DFRrig * rig, intn wdim) { CONSTR(FUNC, "DFR8putrig"); static uint16 prevdimref = 0; /*ref of previous dimension record, to reuse */ R8dim im8dim; uint8 ntstring[4]; int32 GroupID; uint8 R8tbuf[64]; intn ret_value = SUCCEED; HEclear(); if (!HDvalidfid(file_id) || !ref) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!rig->descimage.nt.tag) { /* construct and write out NT */ ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = DFNT_UCHAR; /* type */ ntstring[2] = 8; /* width: RIG data is 8-bit chars */ ntstring[3] = DFNTC_BYTE; /* class: data are numeric values */ if (Hputelement(file_id, DFTAG_NT, ref, ntstring, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); rig->descimage.nt.tag = DFTAG_NT; rig->descimage.nt.ref = ref; } /* end if */ im8dim.xd = (uint16) rig->descimage.xdim; im8dim.yd = (uint16) rig->descimage.ydim; if (wdim) { uint8 *p; p = R8tbuf; INT32ENCODE(p, rig->descimage.xdim); INT32ENCODE(p, rig->descimage.ydim); UINT16ENCODE(p, rig->descimage.nt.tag); UINT16ENCODE(p, rig->descimage.nt.ref); INT16ENCODE(p, rig->descimage.ncomponents); INT16ENCODE(p, rig->descimage.interlace); UINT16ENCODE(p, rig->descimage.compr.tag); UINT16ENCODE(p, rig->descimage.compr.ref); if (Hputelement(file_id, DFTAG_ID, ref, R8tbuf, (int32) (p - R8tbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); /* write out ID8 */ p = R8tbuf; UINT16ENCODE(p, im8dim.xd); UINT16ENCODE(p, im8dim.yd); if (Hputelement(file_id, DFTAG_ID8, ref, R8tbuf, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); prevdimref = ref; } /* end if */ if (!prevdimref) HGOTO_ERROR(DFE_ARGS, FAIL); /* prepare to start writing rig */ /* ### NOTE: the second parameter to this call may go away */ if ((GroupID = DFdisetup(10)) == FAIL) HGOTO_ERROR(DFE_GROUPSETUP, FAIL); /* max 10 tag/refs in set */ /* add tag/ref to RIG - image description, image and palette */ if (DFdiput(GroupID, DFTAG_ID, prevdimref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if (DFdiput(GroupID, rig->image.tag, rig->image.ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if (rig->lut.ref && DFdiput(GroupID, rig->lut.tag, rig->lut.ref) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* write out RIG */ if((ret_value = DFdiwrite(file_id, GroupID, DFTAG_RIG, ref))==FAIL) HGOTO_ERROR(DFE_GROUPWRITE, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8putrig() */ /*-------------------------------------------------------------------------- NAME DFR8nimages -- Determines the number of 8-bit raster images in a file USAGE intn DFR8nimages(filename) char *filename; IN: filename to check # of images RETURNS number of images on success, -1 on failure. DESCRIPTION Determines the number of unique 8-bit images in the file. Only counts RIGs and RI8s which point to the same image once. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Does not count 8-bit SDS datasets. (Should not either!) EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8nimages(const char *filename) { CONSTR(FUNC, "DFR8nimages"); int32 file_id; int32 group_id; /* group ID for looking at RIG's */ uint16 elt_tag, elt_ref; /* tag/ref of items in a RIG */ intn curr_image; /* current image gathering information about */ intn nimages; /* total number of potential images */ int32 nrig, nri8, nci8; /* number of RIGs, RI8s, and CI8s */ int32 *img_off; /* storage for an array of image offsets */ uint16 rig_tag, rig_ref; /* storage for tag/ref pairs of RIGs */ intn found_8bit; /* indicates whether a RIG is an 8-bit RIG */ uint16 find_tag, find_ref; /* storage for tag/ref pairs found */ int32 find_off, find_len; /* storage for offset/lengths of tag/refs found */ uint8 GRtbuf[64]; /* local buffer to read the ID element into */ intn i, j; /* local counting variable */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* should use reopen if same file as last time - more efficient */ file_id = DFR8Iopen(filename, DFACC_READ); if (file_id == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* In a completely psychotic file, there could be RIGs with no corresponding RI8s and also RI8s with no corresponding RIGs, so assume the worst case and then run through them all to eliminate matched pairs */ nrig = Hnumber(file_id, DFTAG_RIG); /* count the number of RIGS */ if (nrig == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nri8 = Hnumber(file_id, DFTAG_RI8); /* add the number of RI8 and CI8s */ if (nri8 == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nci8 = Hnumber(file_id, DFTAG_CI8); if (nci8 == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); nimages = (intn) (nrig + nri8 + nci8); /* if there are no images just close the file and get out */ if (nimages == 0) { if (Hclose(file_id) == FAIL) ret_value = FAIL; else ret_value = nimages; goto done; /* we are done */ } /* Get space to store the image offsets */ if ((img_off = (int32 *) HDmalloc(nimages * sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* go through the RIGs looking for 8-bit images */ curr_image = 0; find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_RIG, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { /* read RIG into memory */ if ((group_id = DFdiread(file_id, DFTAG_RIG, find_ref)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); found_8bit = FALSE; /* initialize to no 8-bit image found */ rig_tag = rig_ref = 0; /* initialize bogus tag/ref */ while (!DFdiget(group_id, &elt_tag, &elt_ref)) { /* get next tag/ref */ if (elt_tag == DFTAG_ID) { /* just look for ID tags to get the number of components */ if (Hgetelement(file_id, elt_tag, elt_ref, GRtbuf) != FAIL) { uint16 temp16; /* temporary holding variable */ int32 temp; /* temporary holding variable */ int16 ncomponents; /* number of image components */ uint8 *p; p = GRtbuf; INT32DECODE(p, temp); INT32DECODE(p, temp); UINT16DECODE(p, temp16); UINT16DECODE(p, temp16); INT16DECODE(p, ncomponents); if (ncomponents == 1) /* whew, all that work and we finally found an 8-bit image */ found_8bit = TRUE; } /* end if */ else { DFdifree(group_id); HGOTO_ERROR(DFE_GETELEM, FAIL); } } /* end if */ else /* check for the image tag/ref */ if (elt_tag == DFTAG_CI || elt_tag == DFTAG_RI) { /* keep for later */ rig_tag = elt_tag; rig_ref = elt_ref; } /* end if */ } /* end while */ if (found_8bit) { /* check for finding an 8-bit RIG */ if ((uintn)rig_tag > (uintn)0 && (uintn)rig_ref > (uintn)0) { /* make certain we found an image */ img_off[curr_image] = Hoffset(file_id, rig_tag, rig_ref); /* store offset */ curr_image++; } /* end if */ } /* end if */ } /* end while */ /* go through the RI8s */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_RI8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { img_off[curr_image] = find_off; /* store offset */ curr_image++; } /* end while */ /* go through the CI8s */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_CI8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { img_off[curr_image] = find_off; /* store offset */ curr_image++; } /* end while */ nimages = curr_image; /* reset the number of images we really have */ for (i = 1; i < curr_image; i++) { /* go through the images looking for duplicates */ for (j = 0; j < i; j++) { if (img_off[i] == img_off[j]) { nimages--; /* if duplicate found, decrement the number of images */ img_off[j]=(-1); /* mark as used, so we don't count it too... */ } /* end if */ } /* end for */ } /* end for */ HDfree(img_off); /* free offsets */ if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); ret_value = nimages; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8nimages() */ /*-------------------------------------------------------------------------- NAME DFR8readref -- Set ref of image to get next USAGE intn DFR8readref(char *filename, uint16 ref) char *filename; IN: filename to set read ref # uint16 ref; IN: ref# of next image to read RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the reference # of the RIG to read from next. GLOBAL VARIABLES Refset, Newdata COMMENTS, BUGS, ASSUMPTIONS Checks if image with this ref exists. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8readref(const char *filename, uint16 ref) { CONSTR(FUNC, "DFR8readref"); int32 file_id=(-1); int32 aid; intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if ((file_id = DFR8Iopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if ((aid = Hstartread(file_id, DFTAG_RIG, ref)) == FAIL && (aid = Hstartread(file_id, DFTAG_RI8, ref)) == FAIL && (aid = Hstartread(file_id, DFTAG_CI8, ref)) == FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); Refset = ref; Newdata = 0; Hendaccess(aid); ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(file_id!=(-1)) Hclose(file_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8readref() */ /*-------------------------------------------------------------------------- NAME DFR8writeref -- Set ref of image to put next USAGE intn DFR8writeref(char *filename, uint16 ref) char *filename; IN: filename to set write ref # uint16 ref; IN: ref# of next image to write RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the reference # of the RIG to write to next. GLOBAL VARIABLES Writeref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8writeref(const char *filename, uint16 ref) { CONSTR(FUNC, "DFR8writeref"); /* for HERROR */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* shut compiler up */ filename = filename; Writeref = ref; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8writeref() */ /*-------------------------------------------------------------------------- NAME DFR8restart -- Restart reading/writing from beginning of file USAGE intn DFR8restart(void) RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Restarts reading and writing of RIGs from file from the beginning. GLOBAL VARIABLES Lastfile COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8restart(void) { CONSTR(FUNC, "DFR8restart"); /* for HERROR */ intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); Lastfile[0] = '\0'; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8restart() */ /*-------------------------------------------------------------------------- NAME DFR8lastref -- Return last ref # written or read USAGE uint16 DFR8lastref(void) RETURNS Ref # on success, 0 on failure. DESCRIPTION Returns the last ref # written to or read from. GLOBAL VARIABLES Lastref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint16 DFR8lastref(void) { CONSTR(FUNC, "DFR8lastref"); /* for HERROR */ uint16 ret_value; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, 0); ret_value = Lastref; done: if(ret_value == 0) /* 0 is invalid ref */ { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8lastref() */ /*-------------------------------------------------------------------------- * NAME * DFR8getpalref - get the reference number of the palette * DESCRIPTION * Convience function to get reference number of the palette of * last image. Must come after DFR8getdims() since it relies on * this call to fill the Readrig structure * RETURNS * SUCCEED. --------------------------------------------------------------------------*/ intn DFR8getpalref(uint16 *pal_ref) { CONSTR(FUNC, "DFR8getpalref"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFR8Istart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); *pal_ref = Readrig.lut.ref; /* ref of palette */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8getpalref() */ /*************************************************************************/ /*----------------------- Internal routines -----------------------------*/ /*************************************************************************/ /*-------------------------------------------------------------------------- NAME DFR8Iopen -- open or reopen a file USAGE int32 DFR8Iopen(filename, acc_mode) char *filename; IN: name of file to open intn acc_mode; IN: access mode to open file with RETURNS HDF file ID on success, FAIL on failure DESCRIPTION Used to open/reopen a file for the DFR8 interface. GLOBAL VARIABLES Lastfile, foundRig, Refset, Newdata, Readrig, Writerig, Newpalette COMMENTS, BUGS, ASSUMPTIONS This is a hook for someday providing more efficient ways to reopen a file, to avoid re-reading all the headers. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 DFR8Iopen(const char *filename, intn acc_mode) { CONSTR(FUNC, "DFR8Iopen"); int32 file_id; int32 ret_value = SUCCEED; /* use reopen if same file as last time - more efficient */ if (HDstrncmp(Lastfile, filename, DF_MAXFNLEN) || (acc_mode == DFACC_CREATE)) { /* treat create as different file */ if ((file_id = Hopen(filename, acc_mode, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); foundRig = -1; /* don't know if any RIGs in file */ Refset = 0; /* no ref to get set for this file */ Newdata = 0; Readrig = Zrig; /* blank out read/write RIGs */ Writerig = Zrig; if (Newpalette != (-1)) Newpalette = 1; /* need to write out palette */ } /* end if */ else { if ((file_id = Hopen(filename, acc_mode, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); } /* end else */ /* remember filename, so reopen may be used next time if same file */ HDstrncpy(Lastfile, filename, DF_MAXFNLEN); ret_value = file_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8Iopen() */ /*-------------------------------------------------------------------------- NAME DFR8Iriginfo -- Get information about next RIG or RI8 in file USAGE intn DFR8Iriginfo(file_id) int32 file_id; IN: HDF file ID to read from RETURNS SUCCEED on success, FAIL on failure DESCRIPTION Reads in a RIGs structure into internal data structures, or if no RIGs are found, patches things together from RI8 information. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS if Refset is set, gets image with that ref, if any. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFR8Iriginfo(int32 file_id) { CONSTR(FUNC, "DFR8Iriginfo"); uint16 riref = 0, ciref = 0; int32 aid = FAIL; uint16 ref; uint8 R8tbuf[64]; intn ret_value = SUCCEED; HEclear(); /* find next rig */ if (foundRig) { /* either RIGs present or don't know */ if (!Refset && Readrig.image.ref) aid = Hstartread(file_id, DFTAG_RIG, Readrig.image.ref); do { if (Refset) aid = Hstartread(file_id, DFTAG_RIG, Refset); else { if (!Readrig.image.ref) aid = Hstartread(file_id, DFTAG_RIG, DFREF_WILDCARD); else { if (aid != FAIL && Hnextread(aid, DFTAG_RIG, DFREF_WILDCARD, DF_CURRENT) == FAIL) { if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); aid = FAIL; } /* end if */ } /* end else */ } /* end else */ if (aid == FAIL) { if (foundRig == 1) /*RIGs present, but no more to return */ HGOTO_ERROR(DFE_NOMATCH, FAIL); foundRig = 0; /* No RIGs present in file */ } /* end if */ /* RIG found */ if (aid != FAIL) { Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &ref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL); if (DFR8getrig(file_id, ref, &Readrig) == FAIL) { if (Refset || (HEvalue(1) != DFE_BADCALL)) { Refset = 0; if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); HGOTO_ERROR(DFE_BADRIG, FAIL); } /* end if */ Readrig.image.ref = ref; } /* end if */ else { foundRig = 1; Refset = 0; } /* end else */ } /* end if */ } while ((aid != FAIL) && (HEvalue(1) == DFE_BADCALL)); if (aid != FAIL) if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if */ if (Refset || !foundRig) { /* No RIGs present, look for RI8 and CI8 */ /* look for Refset if DFR8ref called, else look for next ref */ if (Refset) aid = Hstartread(file_id, DFTAG_RI8, Refset); else { if (Readrig.image.ref) { aid = Hstartread(file_id, DFTAG_RI8, Readrig.image.ref); if (aid != FAIL && Hnextread(aid, DFTAG_RI8, DFREF_WILDCARD, DF_CURRENT) == FAIL) { Hendaccess(aid); aid = FAIL; } /* end if */ } /* end if */ else aid = Hstartread(file_id, DFTAG_RI8, DFREF_WILDCARD); } /* end else */ if (aid != FAIL) { Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &riref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL); if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if */ if (Refset) aid = Hstartread(file_id, DFTAG_CI8, Refset); else { if (Readrig.image.ref) { aid = Hstartread(file_id, DFTAG_CI8, Readrig.image.ref); if (aid != FAIL && Hnextread(aid, DFTAG_CI8, DFREF_WILDCARD, DF_CURRENT) == FAIL) { if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); aid = FAIL; } /* end if */ } /* end if */ else aid = Hstartread(file_id, DFTAG_CI8, DFREF_WILDCARD); } /* end else */ if (aid != FAIL) { Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &ciref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL); if(Hendaccess(aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if */ Refset = 0; if (!riref && !ciref) HGOTO_ERROR(DFE_NOMATCH, FAIL); if ((!ciref) || (riref && (riref < ciref))) { /* next image is RI8 */ Readrig.image.ref = riref; Readrig.image.tag = DFTAG_RI8; } /* end if */ else { /* next image is CI8 */ Readrig.image.ref = ciref; Readrig.image.tag = DFTAG_CI8; Readrig.descimage.compr.tag = DFTAG_RLE; } /* end else */ if (Hgetelement(file_id, DFTAG_ID8, Readrig.image.ref, R8tbuf) != FAIL) { uint8 *p; uint16 uint16var; p = R8tbuf; UINT16DECODE(p, uint16var); Readrig.descimage.xdim=(int32)uint16var; UINT16DECODE(p, uint16var); Readrig.descimage.ydim=(int32)uint16var; } /* end if */ else HGOTO_ERROR(DFE_GETELEM, FAIL); if (Hexist(file_id, DFTAG_IP8, Readrig.image.ref) != FAIL) { Readrig.lut.tag = DFTAG_IP8; Readrig.lut.ref = Readrig.image.ref; } /* end if */ } /* end if */ Lastref = Readrig.image.ref; /* remember ref read */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFR8Iriginfo() */ /*-------------------------------------------------------------------------- NAME DFR8Istart PURPOSE DFR8-level initialization routine USAGE intn DFR8Istart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the shut-down routine (DFR8Pshutdown) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFR8Istart(void) { CONSTR(FUNC, "DFR8Istart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&DFR8Pshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end DFR8Istart() */ /*-------------------------------------------------------------------------- NAME DFR8Pshutdown PURPOSE Terminate various static buffers. USAGE intn DFR8shutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the DFR8 routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFR8Pshutdown(void) { if(paletteBuf!=NULL) { HDfree(paletteBuf); paletteBuf=NULL; } /* end if */ return(SUCCEED); } /* end DFR8Pshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/herr.h0000644000000000000000000005557412421456623013567 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: herr.h 5759 2012-01-19 22:34:47Z byrn $ */ /*+ herr.h *** header file for using error routines *** to be included by all ".c" files + */ #ifndef __HERR_H #define __HERR_H /* if these symbols are not provided by the compiler, we'll have to fake them. These are used in HERROR for recording location of error in code. */ #ifndef __FILE__ # define __FILE__ "File name not supported" #endif #ifndef __LINE__ # define __LINE__ 0 #endif /* HERROR macro, used to facilitate error reporting. Assumes that there's a variable called FUNC which holds the function name. Assume that func and file are both stored in static space, or at least be not corrupted in the meanwhile. */ #define HERROR(e) HEpush(e, FUNC, __FILE__, __LINE__) /* HRETURN_ERROR macro, used to facilitate error reporting. Makes same assumptions as HERROR. IN ADDITION, this macro causes a return from the calling routine */ #define HRETURN_ERROR(err, ret_val) {HERROR(err); return(ret_val);} /* HCLOSE_RETURN_ERROR macro, used to facilitate error reporting. Makes same assumptions as HRETURN_ERROR. IN ADDITION, this macro causes the file specified by the id "fid" to be closed */ #define HCLOSE_RETURN_ERROR(hfid, err, ret_val) {HERROR(err); Hclose(hfid); \ return(ret_val);} /* HGOTO_ERROR macro, used to facilitate error reporting. Makes same assumptions as HERROR. IN ADDITION, this macro causes a jump to the label 'done' which should be in every fucntion Also there is an assumption of a variable 'ret_value' */ #define HGOTO_ERROR(err, ret_val) {HERROR(err); ret_value = ret_val; \ goto done;} /* HCLOSE_RETURN_ERROR macro, used to facilitate error reporting. Makes same assumptions as HRETURN_ERROR. IN ADDITION, this macro causes the file specified by the id "fid" to be closed Also , this macro causes a jump to the label 'done' which should be in every fucntion. There is an assumption of a variable 'ret_value' */ #define HCLOSE_GOTO_ERROR(hfid, err, ret_val) {HERROR(err); Hclose(hfid); \ ret_value = ret_val; goto done;} /* HGOTO_DONE macro, used to facilitate the new error reporting model. This macro is just a wrapper to set the return value and jump to the 'done' label. Also assumption of a variable 'ret_value' */ #define HGOTO_DONE(ret_val) {ret_value = ret_val; goto done;} /* For further error reporting */ #define HE_REPORT(msg) HEreport(msg) #define HE_REPORT_RETURN(msg, ret_val) { HEreport(msg); return(ret_val); } #define HE_CLOSE_REPORT_RETURN(hfid,msg, ret_val) { HEreport(msg); \ Hclose(hfid); \ return(ret_val);} #define HE_REPORT_GOTO(msg, ret_val) { HEreport(msg); ret_value = ret_val; \ goto done;} #define HE_CLOSE_REPORT_GOTO(hfid,msg, ret_val) { HEreport(msg); \ Hclose(hfid); \ ret_value = ret_val; \ goto done;} /* always points to the next available slot; the last error record is in slot (top-1) */ #if defined(H4_BUILT_AS_DYNAMIC_LIB) #ifdef _H_ERR_MASTER_ #if defined _WIN32 && defined hdf_EXPORTS __declspec(dllexport) #endif #else HDFERRPUBLIC #endif /* _H_ERR_MASTER_ */ int32 error_top #ifdef _H_ERR_MASTER_ = 0 #endif /* _H_ERR_MASTER_ */ ; #else /* defined(H4_BUILT_AS_DYNAMIC_LIB) */ #ifndef _H_ERR_MASTER_ #if defined _WIN32 && defined HDFAPDLL __declspec(dllimport) #else HDFERRPUBLIC #endif #else #if defined _WIN32 && defined HDFLIBDLL __declspec(dllexport) #endif #endif /* _H_ERR_MASTER_ */ int32 error_top #ifdef _H_ERR_MASTER_ = 0 #endif /* _H_ERR_MASTER_ */ ; #endif /* defined(H4_BUILT_AS_DYNAMIC_LIB) */ /* Macro to wrap around calls to HEPclear, so it doesn't get called zillions of times */ #define HEclear() {if(error_top!=0) HEPclear(); } /* ====================================================================== Error codes NOTE: Remember to update the error_messages[] structure in herr.c whenever errors are added/deleted from this list. ====================================================================== */ /* Declare an enumerated type which holds all the valid HDF error codes */ typedef enum { DFE_NONE = 0, /* special zero, no error */ /* Low-level I/O errors */ DFE_FNF, /* File not found */ DFE_DENIED, /* Access to file denied */ DFE_ALROPEN, /* File already open */ DFE_TOOMANY, /* Too Many AID's or files open */ DFE_BADNAME, /* Bad file name on open */ DFE_BADACC, /* Bad file access mode */ DFE_BADOPEN, /* Other open error */ DFE_NOTOPEN, /* File can't be closed 'cause it isn't open */ DFE_CANTCLOSE, /* fclose wouldn't work! */ DFE_READERROR, /* There was a read error */ DFE_WRITEERROR, /* There was a write error */ DFE_SEEKERROR, /* There was a seek error */ DFE_RDONLY, /* The DF is read only */ DFE_BADSEEK, /* Attempt to seek past end of element */ /* Low-level HDF I/O errors */ DFE_PUTELEM, /* Hputelement failed in some way */ DFE_GETELEM, /* Hgetelement failed in some way */ DFE_CANTLINK, /* Can't initialize link information */ DFE_CANTSYNC, /* Cannot syncronize memory with file */ /* Old group interface errors */ DFE_BADGROUP, /* Error from DFdiread in opening a group */ DFE_GROUPSETUP, /* Error from DFdisetup in opening a group */ DFE_PUTGROUP, /* Error when putting a tag/ref into a group */ DFE_GROUPWRITE, /* Error when writing out a group */ /* Internal HDF errors */ DFE_DFNULL, /* DF is a null pointer */ DFE_ILLTYPE, /* DF has an illegal type: internal error */ DFE_BADDDLIST, /* The DD list is non-existent: internal error */ DFE_NOTDFFILE, /* This is not a DF file and it is not 0 length */ DFE_SEEDTWICE, /* The DD list already seeded: internal error */ DFE_NOSUCHTAG, /* No such tag in the file: search failed */ DFE_NOFREEDD, /* There are no free DD's left: internal error */ DFE_BADTAG, /* illegal WILDCARD tag */ DFE_BADREF, /* illegal WILDCARD reference # */ DFE_NOMATCH, /* No (more) DDs which match specified tag/ref */ DFE_NOTINSET, /* Warning: Set contained unknown tag: ignored */ DFE_BADOFFSET, /* Illegal offset specified */ DFE_CORRUPT, /* File is corrupted */ DFE_NOREF, /* no more reference numbers are available */ DFE_DUPDD, /* the new tag/ref is already used */ DFE_CANTMOD, /* old element not exist, cannot modify */ DFE_DIFFFILES, /* Attempt to merge objs in diff files */ DFE_BADAID, /* Got a bogus aid */ DFE_OPENAID, /* There are still active AIDs */ DFE_CANTFLUSH, /* Can't flush DD back to file */ DFE_CANTUPDATE, /* Cannot update the DD block */ DFE_CANTHASH, /* Cannot add a DD to the hash table */ DFE_CANTDELDD, /* Cannot delete a DD in the file */ DFE_CANTDELHASH, /* Cannot delete a DD from the hash table */ DFE_CANTACCESS, /* Cannot access specified tag/ref */ DFE_CANTENDACCESS, /* Cannot end access to data element */ DFE_TABLEFULL, /* Access table is full */ DFE_NOTINTABLE, /* Cannot find element in table */ /* Generic errors */ DFE_UNSUPPORTED, /* Feature not currently supported */ DFE_NOSPACE, /* Malloc failed */ DFE_BADCALL, /* Calls in wrong order */ DFE_BADPTR, /* NULL ptr argument */ DFE_BADLEN, /* Invalid len specified */ DFE_NOTENOUGH, /* space provided insufficient for size of data */ DFE_NOVALS, /* Values not available */ DFE_ARGS, /* bad arguments to routine */ DFE_INTERNAL, /* serious internal error */ DFE_NORESET, /* Too late to modify this value */ DFE_GENAPP, /* Generic application,level error */ /* Generic interface errors */ DFE_UNINIT, /* Interface was not initialized correctly */ DFE_CANTINIT, /* Can't initialize an interface we depend on */ DFE_CANTSHUTDOWN, /* Can't shut down an interface we depend on */ /* General Dataset errors */ DFE_BADDIM, /* negative or zero dimensions specified */ DFE_BADFP, /* File contained an illegal floating point num */ DFE_BADDATATYPE, /* unknown or unavailable data type specified */ DFE_BADMCTYPE, /* unknown or unavailable machine type specified */ DFE_BADNUMTYPE, /* unknown or unavailable number type specified */ DFE_BADORDER, /* unknown or illegal array order specified */ DFE_RANGE, /* improper range for attempted acess */ DFE_BADCONV, /* Don't know how to convert data type */ DFE_BADTYPE, /* Incompatible types specified */ DFE_NOVGREP, /* No Vgroup representation for SDS and dim */ /* Compression errors */ DFE_BADSCHEME, /* Unknown compression scheme specified */ DFE_BADMODEL, /* Invalid compression model specified */ DFE_BADCODER, /* Invalid compression encoder specified */ DFE_MODEL, /* Error in modeling layer of compression */ DFE_CODER, /* Error in encoding layer of compression */ DFE_CINIT, /* Error in encoding initialization */ DFE_CDECODE, /* Error in decoding compressed data */ DFE_CENCODE, /* Error in encoding compressed data */ DFE_CTERM, /* Error in encoding termination */ DFE_CSEEK, /* Error seekging in encoded dataset */ DFE_MINIT, /* Error in modeling initialization */ DFE_COMPINFO, /* Invalid compression header */ DFE_CANTCOMP, /* Can't compress an object */ DFE_CANTDECOMP, /* Can't de-compress an object */ DFE_NOENCODER, /* Encoder not available */ DFE_NOSZLIB, /* SZIP library not available */ DFE_COMPVERSION, /* Z_VERSION_ERROR (-6) returned from zlib */ DFE_READCOMP, /* Error in reading compressed data; this error occurs when one of the following error codes is returned from zlib: Z_ERRNO (-1) Z_STREAM_ERROR (-2) Z_DATA_ERROR (-3) Z_MEM_ERROR (-4) Z_BUF_ERROR (-5) */ /* Raster errors */ DFE_NODIM, /* No dimension record associated with image */ DFE_BADRIG, /* Error processing a RIG */ DFE_RINOTFOUND, /* Can't find raster image */ DFE_BADATTR, /* Bad Attribute */ DFE_LUTNOTFOUND, /* No palette information for RIG */ DFE_GRNOTFOUND, /* Can't find specified GR */ /* SDG/NDG errors */ DFE_BADTABLE, /* the nsdg table is wrong */ DFE_BADSDG, /* error processing an sdg */ DFE_BADNDG, /* error processing an ndg */ /* Vset errors */ DFE_VGSIZE, /* Too many elements in VGroup */ DFE_VTAB, /* Elmt not in vtab[] */ DFE_CANTADDELEM, /* Cannot add tag/ref to VGroup */ DFE_BADVGNAME, /* Cannot set VGroup name */ DFE_BADVGCLASS, /* Cannot set VGroup class */ /* Vdata errors */ DFE_BADFIELDS, /* Bad fields string passed to Vset routine */ DFE_NOVS, /* Counldn't find VS in file */ DFE_SYMSIZE, /* Too many symbols in users table */ DFE_BADATTACH, /* Cannot write to a previously attached VData */ DFE_BADVSNAME, /* Cannot set VData name */ DFE_BADVSCLASS, /* Cannot set VData class */ DFE_VSWRITE, /* Error writing to VData */ DFE_VSREAD, /* Error reading from VData */ DFE_BADVH, /* Error in VData Header */ DFE_FIELDSSET, /* Fields already set for vdata */ /* High-level Vdata/Vset errors */ DFE_VSCANTCREATE, /* Cannot create VData */ DFE_VGCANTCREATE, /* Cannot create VGroup */ /* Generic Vdata/Vset errors */ DFE_CANTATTACH, /* Cannot attach to a VData/Vset */ DFE_CANTDETACH, /* Cannot detach a VData/Vset with access 'w' */ /* bit I/O errors */ DFE_BITREAD, /* There was a bit-read error */ DFE_BITWRITE, /* There was a bit-write error */ DFE_BITSEEK, /* There was a bit-seek error */ /* tbbt interface errors */ DFE_TBBTINS, /* Failed to insert element into tree */ /* bit-vector interface errors */ DFE_BVNEW, /* Failed to create a bit-vector */ DFE_BVSET, /* Failed when setting a bit in a bit-vector */ DFE_BVGET, /* Failed when getting a bit in a bit-vector */ DFE_BVFIND /* Failed when finding a bit in a bit-vector */ } hdf_err_code_t; #ifdef _H_ERR_MASTER_ /* error_messages is the list of error messages in the system, kept as error_code-message pairs. To look up a message, a linear search is required but efficiency should be okay. */ typedef struct error_messages_t { hdf_err_code_t error_code; const char *str; } error_messages_t; PRIVATE const struct error_messages_t error_messages[] = { {DFE_NONE, "No error"}, /* Low-level I/O errors */ {DFE_FNF, "File not found"}, {DFE_DENIED, "Access to file denied"}, {DFE_ALROPEN, "File already open"}, {DFE_TOOMANY, "Too Many AID's or files open"}, {DFE_BADNAME, "Bad file name on open"}, {DFE_BADACC, "Bad file access mode"}, {DFE_BADOPEN, "Error opening file"}, {DFE_NOTOPEN, "File can't be closed; It isn't open"}, {DFE_CANTCLOSE, "Unable to close file"}, {DFE_READERROR, "Read error"}, {DFE_WRITEERROR, "Write error"}, {DFE_SEEKERROR, "Error performing seek operation"}, {DFE_RDONLY, "Attempt to write to read-only HDF file"}, {DFE_BADSEEK, "Attempt to seek past end of element"}, /* Low-level HDF I/O errors */ {DFE_PUTELEM, "Hputelement failed in some way"}, {DFE_GETELEM, "Hgetelement failed in some way"}, {DFE_CANTLINK, "Can't initialize link information"}, {DFE_CANTSYNC, "Cannot syncronize memory with file"}, /* Old group interface errors */ {DFE_BADGROUP, "Error from DFdiread in opening a group"}, {DFE_GROUPSETUP, "Error from DFdisetup in opening a group"}, {DFE_PUTGROUP, "Error when putting a tag/ref into a group"}, {DFE_GROUPWRITE, "Error when writing out a group"}, /* Internal HDF errors */ {DFE_DFNULL, "DF has a null pointer"}, {DFE_ILLTYPE, "Internal error: DF has an illegal type"}, {DFE_BADDDLIST, "Internal error: The DD list is non-existent"}, {DFE_NOTDFFILE, "This is not an HDF file"}, {DFE_SEEDTWICE, "Internal error: The DD list is already seeded"}, {DFE_NOSUCHTAG, "No such tag in the file: search failed"}, {DFE_NOFREEDD, "There are no free DD's left"}, {DFE_BADTAG, "Illegal WILDCARD tag"}, {DFE_BADREF, "Illegal WILDCARD reference"}, {DFE_NOMATCH, "No (more) DDs which match specified tag/ref"}, {DFE_NOTINSET, "Set contained unknown tag: ignored"}, {DFE_BADOFFSET, "Illegal offset specified"}, {DFE_CORRUPT, "File is corrupted"}, {DFE_NOREF, "No more reference numbers are available"}, {DFE_DUPDD, "Tag/ref is already used"}, {DFE_CANTMOD, "Old element does not exist, cannot modify"}, {DFE_DIFFFILES, "Attempt to merge objects in different files"}, {DFE_BADAID, "Unable to create a new AID"}, {DFE_OPENAID, "There are still active AIDs"}, {DFE_CANTFLUSH, "Cannot flush the changed DD back to the file"}, {DFE_CANTUPDATE, "Cannot update the DD block"}, {DFE_CANTHASH, "Cannot add a DD to the hash table"}, {DFE_CANTDELDD, "Cannot delete a DD in the file"}, {DFE_CANTDELHASH, "Cannot delete a DD from the hash table"}, {DFE_CANTACCESS, "Cannot access specified tag/ref"}, {DFE_CANTENDACCESS, "Cannot end access to data element"}, {DFE_TABLEFULL, "Access table is full"}, {DFE_NOTINTABLE, "Cannot find element in table"}, /* Generic errors */ {DFE_UNSUPPORTED, "Feature not currently supported"}, {DFE_NOSPACE, "Internal error: Out of space"}, {DFE_BADCALL, "Calls in wrong order"}, {DFE_BADPTR, "NULL ptr argument"}, {DFE_BADLEN, "Invalid length specified"}, {DFE_NOTENOUGH, "Space provided insufficient for size of data"}, {DFE_NOVALS, "Values not available"}, {DFE_ARGS, "Invalid arguments to routine"}, {DFE_INTERNAL, "HDF Internal error"}, {DFE_NORESET, "Can not reset this value"}, {DFE_GENAPP, "Generic application-level error"}, /* Generic interface errors */ {DFE_UNINIT, "Interface was not initialized correctly"}, {DFE_CANTINIT, "Can't initialize an interface we depend on"}, {DFE_CANTSHUTDOWN, "Can't shut down an interface we depend on"}, /* Dataset errors */ {DFE_BADDIM, "Negative or zero dimensions specified"}, {DFE_BADFP, "File contained an illegal floating point number"}, {DFE_BADDATATYPE, "Unknown or unavailable data type specified"}, {DFE_BADMCTYPE, "Unknown or unavailable machine type specified"}, {DFE_BADNUMTYPE, "Unknown or unavailable number type specified"}, {DFE_BADORDER, "Unknown or illegal array order specified"}, {DFE_RANGE, "Improper range for attempted access"}, {DFE_BADCONV, "Don't know how to convert data type"}, {DFE_BADTYPE, "Incompatible type specified"}, /* Compression errors */ {DFE_BADSCHEME, "Unknown compression scheme specified"}, {DFE_BADMODEL, "Invalid compression model specified"}, {DFE_BADCODER, "Invalid compression coder specified"}, {DFE_MODEL, "Error in modeling layer of compression"}, {DFE_CODER, "Error in encoding layer of compression"}, {DFE_CINIT, "Error in encoding initialization"}, {DFE_CDECODE, "Error in decoding compressed data"}, {DFE_CENCODE, "Error in encoding compressed data"}, {DFE_CTERM, "Error in encoding termination"}, {DFE_CSEEK, "Error seeking in encoded dataset"}, {DFE_MINIT, "Error in modeling initialization"}, {DFE_COMPINFO, "Invalid compression header"}, {DFE_CANTCOMP, "Can't compress an object"}, {DFE_CANTDECOMP, "Can't de-compress an object"}, {DFE_NOENCODER, "Encoder not available"}, /* Raster errors */ {DFE_NODIM, "No dimension record associated with image"}, {DFE_BADRIG, "Error processing a RIG"}, {DFE_RINOTFOUND, "Can't find raster image"}, {DFE_BADATTR, "Bad Attribute"}, {DFE_LUTNOTFOUND, "No palette information for RIG"}, /* SDG/NDG errors */ {DFE_BADTABLE, "The nsdg table is wrong"}, {DFE_BADSDG, "Error processing an sdg"}, {DFE_BADNDG, "Error processing an ndg"}, /* Vset errors */ {DFE_VGSIZE, "No more elements will fit in this VGroup"}, {DFE_VTAB, "Element is not in VSet tables"}, {DFE_CANTADDELEM, "Cannot add tag/ref to VGroup"}, {DFE_BADVGNAME, "Cannot set VGroup name"}, {DFE_BADVGCLASS, "Cannot set VGroup class"}, /* Vdata errors */ {DFE_BADFIELDS, "Unable to parse fields string correctly"}, {DFE_NOVS, "Could not find specified VS or VG in file"}, {DFE_SYMSIZE, "Too many symbols in table"}, {DFE_BADATTACH, "Cannot write to a previously attached VData"}, {DFE_BADVSNAME, "Cannot set VData name"}, {DFE_BADVSCLASS, "Cannot set VData class"}, {DFE_VSWRITE, "Error writing to VData"}, {DFE_VSREAD, "Error reading from VData"}, {DFE_FIELDSSET, "Fields already set for vdata"}, /* High-level Vdata/Vset errors */ {DFE_VSCANTCREATE, "Cannot create VData"}, {DFE_VGCANTCREATE, "Cannot create VGroup"}, /* Generic Vdata/Vset errors */ {DFE_CANTATTACH, "Cannot attach to a VData"}, {DFE_CANTDETACH, "Cannot detach a VData with access 'w'"}, /* bit I/O errors */ {DFE_BITREAD, "There was a bit-read error"}, {DFE_BITWRITE, "There was a bit-write error"}, {DFE_BITSEEK, "There was a bit-seek error"}, /* tbbt interface errors */ {DFE_TBBTINS, "Failed to insert element into tree"}, /* bit-vector interface errors */ {DFE_BVNEW, "Failed to create a bit-vector"}, {DFE_BVSET, "Failed when setting a bit in a bit-vector"}, {DFE_BVGET, "Failed when getting a bit in a bit-vector"}, {DFE_BVFIND, "Failed when finding a bit in a bit-vector"} }; #endif /* _H_ERR_MASTER_ */ #endif /* __HERR_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/bitvect.h0000644000000000000000000005671512421456623014265 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: bitvect.h 5444 2010-08-25 16:40:05Z byrn $ */ /*----------------------------------------------------------------------------- * File: bitvect.h * Purpose: header file for bit-vector API * Dependencies: * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __BITVECT_H #define __BITVECT_H #include "H4api_adpt.h" #include "hdf.h" /* Boolean values used */ typedef enum {BV_FALSE=0, BV_TRUE=1} bv_bool; /* Flags for the bit-vector */ #define BV_INIT_TO_ONE 0x00000001 /* to indicate whether to create the bit-vector with one's instead of zero's */ #define BV_EXTENDABLE 0x00000002 /* to indicate that the bit-vector can be extended */ /* Default size of a bit-vector */ #define BV_DEFAULT_BITS 128 /* Define the size of the chunks bits are allocated in */ #define BV_CHUNK_SIZE 64 /* Create the external interface data structures needed */ typedef struct bv_struct_tag *bv_ptr; #if defined BV_MASTER | defined BV_TESTER /* Base type of the array used to store the bits */ typedef unsigned char bv_base; /* # of bits in the base type of the array used to store the bits */ #define BV_BASE_BITS (sizeof(bv_base)*8) /* bit-vector structure used */ typedef struct bv_struct_tag { uint32 bits_used; /* The actual number of bits current in use */ uint32 array_size; /* The number of bv_base elements in the bit-vector */ uint32 flags; /* The flags used to create this bit-vector */ int32 last_zero; /* The last location we know had a zero bit */ bv_base *buffer; /* Pointer to the buffer used to store the bits */ }bv_struct; /* Table of bits for each bit position */ /* (This will need to be changed/expanded if another base type is used) */ static const uint8 bv_bit_value[8]={ 1, /* bit 0's value is 1 */ 2, /* bit 1's value is 2 */ 4, /* bit 2's value is 4 */ 8, /* bit 3's value is 8 */ 16, /* bit 4's value is 16 */ 32, /* bit 5's value is 32 */ 64, /* bit 6's value is 64 */ 128 /* bit 7's value is 128 */ }; /* Table of bit-masks for each number of bits in a byte */ /* (This will need to be changed/expanded if another base type is used) */ static const uint8 bv_bit_mask[9]={ 0x00, /* 0 bits is a mask of 0x00 */ 0x01, /* 1 bits is a mask of 0x01 */ 0x03, /* 2 bits is a mask of 0x03 */ 0x07, /* 3 bits is a mask of 0x07 */ 0x0F, /* 4 bits is a mask of 0x0F */ 0x1F, /* 5 bits is a mask of 0x1F */ 0x3F, /* 6 bits is a mask of 0x3F */ 0x7F, /* 7 bits is a mask of 0x7F */ 0xFF /* 8 bits is a mask of 0xFF */ }; /* Table of "first zero bit" for each byte value */ /* (This will need to be changed/expanded if another base type is used) */ static const int8 bv_first_zero[256]={ 0, /* "0" - bit 0 is lowest zero */ 1, /* "1" - bit 1 is lowest zero */ 0, /* "2" - bit 0 is lowest zero */ 2, /* "3" - bit 2 is lowest zero */ 0, /* "4" - bit 0 is lowest zero */ 1, /* "5" - bit 1 is lowest zero */ 0, /* "6" - bit 0 is lowest zero */ 3, /* "7" - bit 3 is lowest zero */ 0, /* "8" - bit 0 is lowest zero */ 1, /* "9" - bit 1 is lowest zero */ 0, /* "10" - bit 0 is lowest zero */ 2, /* "11" - bit 2 is lowest zero */ 0, /* "12" - bit 0 is lowest zero */ 1, /* "13" - bit 1 is lowest zero */ 0, /* "14" - bit 0 is lowest zero */ 4, /* "15" - bit 4 is lowest zero */ 0, /* "16" - bit 0 is lowest zero */ 1, /* "17" - bit 1 is lowest zero */ 0, /* "18" - bit 0 is lowest zero */ 2, /* "19" - bit 2 is lowest zero */ 0, /* "20" - bit 0 is lowest zero */ 1, /* "21" - bit 1 is lowest zero */ 0, /* "22" - bit 0 is lowest zero */ 3, /* "23" - bit 3 is lowest zero */ 0, /* "24" - bit 0 is lowest zero */ 1, /* "25" - bit 1 is lowest zero */ 0, /* "26" - bit 0 is lowest zero */ 2, /* "27" - bit 2 is lowest zero */ 0, /* "28" - bit 0 is lowest zero */ 1, /* "29" - bit 1 is lowest zero */ 0, /* "30" - bit 0 is lowest zero */ 5, /* "31" - bit 5 is lowest zero */ 0, /* "32" - bit 0 is lowest zero */ 1, /* "33" - bit 1 is lowest zero */ 0, /* "34" - bit 0 is lowest zero */ 2, /* "35" - bit 2 is lowest zero */ 0, /* "36" - bit 0 is lowest zero */ 1, /* "37" - bit 1 is lowest zero */ 0, /* "38" - bit 0 is lowest zero */ 3, /* "39" - bit 3 is lowest zero */ 0, /* "40" - bit 0 is lowest zero */ 1, /* "41" - bit 1 is lowest zero */ 0, /* "42" - bit 0 is lowest zero */ 2, /* "43" - bit 2 is lowest zero */ 0, /* "44" - bit 0 is lowest zero */ 1, /* "45" - bit 1 is lowest zero */ 0, /* "46" - bit 0 is lowest zero */ 4, /* "47" - bit 4 is lowest zero */ 0, /* "48" - bit 0 is lowest zero */ 1, /* "49" - bit 1 is lowest zero */ 0, /* "50" - bit 0 is lowest zero */ 2, /* "51" - bit 2 is lowest zero */ 0, /* "52" - bit 0 is lowest zero */ 1, /* "53" - bit 1 is lowest zero */ 0, /* "54" - bit 0 is lowest zero */ 3, /* "55" - bit 3 is lowest zero */ 0, /* "56" - bit 0 is lowest zero */ 1, /* "57" - bit 1 is lowest zero */ 0, /* "58" - bit 0 is lowest zero */ 2, /* "59" - bit 2 is lowest zero */ 0, /* "60" - bit 0 is lowest zero */ 1, /* "61" - bit 1 is lowest zero */ 0, /* "62" - bit 0 is lowest zero */ 6, /* "63" - bit 6 is lowest zero */ 0, /* "64" - bit 0 is lowest zero */ 1, /* "65" - bit 1 is lowest zero */ 0, /* "66" - bit 0 is lowest zero */ 2, /* "67" - bit 2 is lowest zero */ 0, /* "68" - bit 0 is lowest zero */ 1, /* "69" - bit 1 is lowest zero */ 0, /* "70" - bit 0 is lowest zero */ 3, /* "71" - bit 3 is lowest zero */ 0, /* "72" - bit 0 is lowest zero */ 1, /* "73" - bit 1 is lowest zero */ 0, /* "74" - bit 0 is lowest zero */ 2, /* "75" - bit 2 is lowest zero */ 0, /* "76" - bit 0 is lowest zero */ 1, /* "77" - bit 1 is lowest zero */ 0, /* "78" - bit 0 is lowest zero */ 4, /* "79" - bit 4 is lowest zero */ 0, /* "80" - bit 0 is lowest zero */ 1, /* "81" - bit 1 is lowest zero */ 0, /* "82" - bit 0 is lowest zero */ 2, /* "83" - bit 2 is lowest zero */ 0, /* "84" - bit 0 is lowest zero */ 1, /* "85" - bit 1 is lowest zero */ 0, /* "86" - bit 0 is lowest zero */ 3, /* "87" - bit 3 is lowest zero */ 0, /* "88" - bit 0 is lowest zero */ 1, /* "89" - bit 1 is lowest zero */ 0, /* "90" - bit 0 is lowest zero */ 2, /* "91" - bit 2 is lowest zero */ 0, /* "92" - bit 0 is lowest zero */ 1, /* "93" - bit 1 is lowest zero */ 0, /* "94" - bit 0 is lowest zero */ 5, /* "95" - bit 5 is lowest zero */ 0, /* "96" - bit 0 is lowest zero */ 1, /* "97" - bit 1 is lowest zero */ 0, /* "98" - bit 0 is lowest zero */ 2, /* "99" - bit 2 is lowest zero */ 0, /* "100" - bit 0 is lowest zero */ 1, /* "101" - bit 1 is lowest zero */ 0, /* "102" - bit 0 is lowest zero */ 3, /* "103" - bit 3 is lowest zero */ 0, /* "104" - bit 0 is lowest zero */ 1, /* "105" - bit 1 is lowest zero */ 0, /* "106" - bit 0 is lowest zero */ 2, /* "107" - bit 2 is lowest zero */ 0, /* "108" - bit 0 is lowest zero */ 1, /* "109" - bit 1 is lowest zero */ 0, /* "110" - bit 0 is lowest zero */ 4, /* "111" - bit 4 is lowest zero */ 0, /* "112" - bit 0 is lowest zero */ 1, /* "113" - bit 1 is lowest zero */ 0, /* "114" - bit 0 is lowest zero */ 2, /* "115" - bit 2 is lowest zero */ 0, /* "116" - bit 0 is lowest zero */ 1, /* "117" - bit 1 is lowest zero */ 0, /* "118" - bit 0 is lowest zero */ 3, /* "119" - bit 3 is lowest zero */ 0, /* "120" - bit 0 is lowest zero */ 1, /* "121" - bit 1 is lowest zero */ 0, /* "122" - bit 0 is lowest zero */ 2, /* "123" - bit 2 is lowest zero */ 0, /* "124" - bit 0 is lowest zero */ 1, /* "125" - bit 1 is lowest zero */ 0, /* "126" - bit 0 is lowest zero */ 7, /* "127" - bit 7 is lowest zero */ 0, /* "128" - bit 0 is lowest zero */ 1, /* "129" - bit 1 is lowest zero */ 0, /* "130" - bit 0 is lowest zero */ 2, /* "131" - bit 2 is lowest zero */ 0, /* "132" - bit 0 is lowest zero */ 1, /* "133" - bit 1 is lowest zero */ 0, /* "134" - bit 0 is lowest zero */ 3, /* "135" - bit 3 is lowest zero */ 0, /* "136" - bit 0 is lowest zero */ 1, /* "137" - bit 1 is lowest zero */ 0, /* "138" - bit 0 is lowest zero */ 2, /* "139" - bit 2 is lowest zero */ 0, /* "140" - bit 0 is lowest zero */ 1, /* "141" - bit 1 is lowest zero */ 0, /* "142" - bit 0 is lowest zero */ 4, /* "143" - bit 4 is lowest zero */ 0, /* "144" - bit 0 is lowest zero */ 1, /* "145" - bit 1 is lowest zero */ 0, /* "146" - bit 0 is lowest zero */ 2, /* "147" - bit 2 is lowest zero */ 0, /* "148" - bit 0 is lowest zero */ 1, /* "149" - bit 1 is lowest zero */ 0, /* "150" - bit 0 is lowest zero */ 3, /* "151" - bit 3 is lowest zero */ 0, /* "152" - bit 0 is lowest zero */ 1, /* "153" - bit 1 is lowest zero */ 0, /* "154" - bit 0 is lowest zero */ 2, /* "155" - bit 2 is lowest zero */ 0, /* "156" - bit 0 is lowest zero */ 1, /* "157" - bit 1 is lowest zero */ 0, /* "158" - bit 0 is lowest zero */ 5, /* "159" - bit 5 is lowest zero */ 0, /* "160" - bit 0 is lowest zero */ 1, /* "161" - bit 1 is lowest zero */ 0, /* "162" - bit 0 is lowest zero */ 2, /* "163" - bit 2 is lowest zero */ 0, /* "164" - bit 0 is lowest zero */ 1, /* "165" - bit 1 is lowest zero */ 0, /* "166" - bit 0 is lowest zero */ 3, /* "167" - bit 3 is lowest zero */ 0, /* "168" - bit 0 is lowest zero */ 1, /* "169" - bit 1 is lowest zero */ 0, /* "170" - bit 0 is lowest zero */ 2, /* "171" - bit 2 is lowest zero */ 0, /* "172" - bit 0 is lowest zero */ 1, /* "173" - bit 1 is lowest zero */ 0, /* "174" - bit 0 is lowest zero */ 4, /* "175" - bit 4 is lowest zero */ 0, /* "176" - bit 0 is lowest zero */ 1, /* "177" - bit 1 is lowest zero */ 0, /* "178" - bit 0 is lowest zero */ 2, /* "179" - bit 2 is lowest zero */ 0, /* "180" - bit 0 is lowest zero */ 1, /* "181" - bit 1 is lowest zero */ 0, /* "182" - bit 0 is lowest zero */ 3, /* "183" - bit 3 is lowest zero */ 0, /* "184" - bit 0 is lowest zero */ 1, /* "185" - bit 1 is lowest zero */ 0, /* "186" - bit 0 is lowest zero */ 2, /* "187" - bit 2 is lowest zero */ 0, /* "188" - bit 0 is lowest zero */ 1, /* "189" - bit 1 is lowest zero */ 0, /* "190" - bit 0 is lowest zero */ 6, /* "191" - bit 6 is lowest zero */ 0, /* "192" - bit 0 is lowest zero */ 1, /* "193" - bit 1 is lowest zero */ 0, /* "194" - bit 0 is lowest zero */ 2, /* "195" - bit 2 is lowest zero */ 0, /* "196" - bit 0 is lowest zero */ 1, /* "197" - bit 1 is lowest zero */ 0, /* "198" - bit 0 is lowest zero */ 3, /* "199" - bit 3 is lowest zero */ 0, /* "200" - bit 0 is lowest zero */ 1, /* "201" - bit 1 is lowest zero */ 0, /* "202" - bit 0 is lowest zero */ 2, /* "203" - bit 2 is lowest zero */ 0, /* "204" - bit 0 is lowest zero */ 1, /* "205" - bit 1 is lowest zero */ 0, /* "206" - bit 0 is lowest zero */ 4, /* "207" - bit 4 is lowest zero */ 0, /* "208" - bit 0 is lowest zero */ 1, /* "209" - bit 1 is lowest zero */ 0, /* "210" - bit 0 is lowest zero */ 2, /* "211" - bit 2 is lowest zero */ 0, /* "212" - bit 0 is lowest zero */ 1, /* "213" - bit 1 is lowest zero */ 0, /* "214" - bit 0 is lowest zero */ 3, /* "215" - bit 3 is lowest zero */ 0, /* "216" - bit 0 is lowest zero */ 1, /* "217" - bit 1 is lowest zero */ 0, /* "218" - bit 0 is lowest zero */ 2, /* "219" - bit 2 is lowest zero */ 0, /* "220" - bit 0 is lowest zero */ 1, /* "221" - bit 1 is lowest zero */ 0, /* "222" - bit 0 is lowest zero */ 5, /* "223" - bit 5 is lowest zero */ 0, /* "224" - bit 0 is lowest zero */ 1, /* "225" - bit 1 is lowest zero */ 0, /* "226" - bit 0 is lowest zero */ 2, /* "227" - bit 2 is lowest zero */ 0, /* "228" - bit 0 is lowest zero */ 1, /* "229" - bit 1 is lowest zero */ 0, /* "230" - bit 0 is lowest zero */ 3, /* "231" - bit 3 is lowest zero */ 0, /* "232" - bit 0 is lowest zero */ 1, /* "233" - bit 1 is lowest zero */ 0, /* "234" - bit 0 is lowest zero */ 2, /* "235" - bit 2 is lowest zero */ 0, /* "236" - bit 0 is lowest zero */ 1, /* "237" - bit 1 is lowest zero */ 0, /* "238" - bit 0 is lowest zero */ 4, /* "239" - bit 4 is lowest zero */ 0, /* "240" - bit 0 is lowest zero */ 1, /* "241" - bit 1 is lowest zero */ 0, /* "242" - bit 0 is lowest zero */ 2, /* "243" - bit 2 is lowest zero */ 0, /* "244" - bit 0 is lowest zero */ 1, /* "245" - bit 1 is lowest zero */ 0, /* "246" - bit 0 is lowest zero */ 3, /* "247" - bit 3 is lowest zero */ 0, /* "248" - bit 0 is lowest zero */ 1, /* "249" - bit 1 is lowest zero */ 0, /* "250" - bit 0 is lowest zero */ 2, /* "251" - bit 2 is lowest zero */ 0, /* "252" - bit 0 is lowest zero */ 1, /* "253" - bit 1 is lowest zero */ 0, /* "254" - bit 0 is lowest zero */ 8 /* "255" - bit 8 is lowest zero */ }; /* Table of "number of 1 bits" for each byte value */ /* (This will need to be changed/expanded if another base type is used) */ static const int8 bv_num_ones[256]={ 0, /* "0" - n bits are 1's */ 1, /* "1" - n bits are 1's */ 1, /* "2" - n bits are 1's */ 2, /* "3" - n bits are 1's */ 1, /* "4" - n bits are 1's */ 2, /* "5" - n bits are 1's */ 2, /* "6" - n bits are 1's */ 3, /* "7" - n bits are 1's */ 1, /* "8" - n bits are 1's */ 2, /* "9" - n bits are 1's */ 2, /* "10" - n bits are 1's */ 3, /* "11" - n bits are 1's */ 2, /* "12" - n bits are 1's */ 3, /* "13" - n bits are 1's */ 3, /* "14" - n bits are 1's */ 4, /* "15" - n bits are 1's */ 1, /* "16" - n bits are 1's */ 2, /* "17" - n bits are 1's */ 2, /* "18" - n bits are 1's */ 3, /* "19" - n bits are 1's */ 2, /* "20" - n bits are 1's */ 3, /* "21" - n bits are 1's */ 3, /* "22" - n bits are 1's */ 4, /* "23" - n bits are 1's */ 2, /* "24" - n bits are 1's */ 3, /* "25" - n bits are 1's */ 3, /* "26" - n bits are 1's */ 4, /* "27" - n bits are 1's */ 3, /* "28" - n bits are 1's */ 3, /* "29" - n bits are 1's */ 4, /* "30" - n bits are 1's */ 5, /* "31" - n bits are 1's */ 1, /* "32" - n bits are 1's */ 2, /* "33" - n bits are 1's */ 2, /* "34" - n bits are 1's */ 3, /* "35" - n bits are 1's */ 2, /* "36" - n bits are 1's */ 3, /* "37" - n bits are 1's */ 3, /* "38" - n bits are 1's */ 4, /* "39" - n bits are 1's */ 2, /* "40" - n bits are 1's */ 3, /* "41" - n bits are 1's */ 3, /* "42" - n bits are 1's */ 4, /* "43" - n bits are 1's */ 3, /* "44" - n bits are 1's */ 4, /* "45" - n bits are 1's */ 4, /* "46" - n bits are 1's */ 5, /* "47" - n bits are 1's */ 2, /* "48" - n bits are 1's */ 3, /* "49" - n bits are 1's */ 3, /* "50" - n bits are 1's */ 4, /* "51" - n bits are 1's */ 3, /* "52" - n bits are 1's */ 4, /* "53" - n bits are 1's */ 4, /* "54" - n bits are 1's */ 5, /* "55" - n bits are 1's */ 3, /* "56" - n bits are 1's */ 4, /* "57" - n bits are 1's */ 4, /* "58" - n bits are 1's */ 5, /* "59" - n bits are 1's */ 4, /* "60" - n bits are 1's */ 5, /* "61" - n bits are 1's */ 5, /* "62" - n bits are 1's */ 6, /* "63" - n bits are 1's */ 1, /* "64" - n bits are 1's */ 2, /* "65" - n bits are 1's */ 2, /* "66" - n bits are 1's */ 3, /* "67" - n bits are 1's */ 2, /* "68" - n bits are 1's */ 3, /* "69" - n bits are 1's */ 3, /* "70" - n bits are 1's */ 4, /* "71" - n bits are 1's */ 2, /* "72" - n bits are 1's */ 3, /* "73" - n bits are 1's */ 3, /* "74" - n bits are 1's */ 4, /* "75" - n bits are 1's */ 3, /* "76" - n bits are 1's */ 4, /* "77" - n bits are 1's */ 4, /* "78" - n bits are 1's */ 5, /* "79" - n bits are 1's */ 2, /* "80" - n bits are 1's */ 3, /* "81" - n bits are 1's */ 3, /* "82" - n bits are 1's */ 4, /* "83" - n bits are 1's */ 3, /* "84" - n bits are 1's */ 4, /* "85" - n bits are 1's */ 4, /* "86" - n bits are 1's */ 5, /* "87" - n bits are 1's */ 3, /* "88" - n bits are 1's */ 4, /* "89" - n bits are 1's */ 4, /* "90" - n bits are 1's */ 5, /* "91" - n bits are 1's */ 4, /* "92" - n bits are 1's */ 5, /* "93" - n bits are 1's */ 5, /* "94" - n bits are 1's */ 6, /* "95" - n bits are 1's */ 2, /* "96" - n bits are 1's */ 3, /* "97" - n bits are 1's */ 3, /* "98" - n bits are 1's */ 4, /* "99" - n bits are 1's */ 3, /* "100" - n bits are 1's */ 4, /* "101" - n bits are 1's */ 4, /* "102" - n bits are 1's */ 5, /* "103" - n bits are 1's */ 3, /* "104" - n bits are 1's */ 4, /* "105" - n bits are 1's */ 4, /* "106" - n bits are 1's */ 5, /* "107" - n bits are 1's */ 3, /* "108" - n bits are 1's */ 4, /* "109" - n bits are 1's */ 4, /* "110" - n bits are 1's */ 5, /* "111" - n bits are 1's */ 3, /* "112" - n bits are 1's */ 4, /* "113" - n bits are 1's */ 4, /* "114" - n bits are 1's */ 5, /* "115" - n bits are 1's */ 4, /* "116" - n bits are 1's */ 5, /* "117" - n bits are 1's */ 5, /* "118" - n bits are 1's */ 6, /* "119" - n bits are 1's */ 4, /* "120" - n bits are 1's */ 5, /* "121" - n bits are 1's */ 5, /* "122" - n bits are 1's */ 6, /* "123" - n bits are 1's */ 5, /* "124" - n bits are 1's */ 6, /* "125" - n bits are 1's */ 6, /* "126" - n bits are 1's */ 7, /* "127" - n bits are 1's */ 1, /* "128" - n bits are 1's */ 2, /* "129" - n bits are 1's */ 2, /* "130" - n bits are 1's */ 3, /* "131" - n bits are 1's */ 2, /* "132" - n bits are 1's */ 3, /* "133" - n bits are 1's */ 3, /* "134" - n bits are 1's */ 4, /* "135" - n bits are 1's */ 2, /* "136" - n bits are 1's */ 3, /* "137" - n bits are 1's */ 3, /* "138" - n bits are 1's */ 4, /* "139" - n bits are 1's */ 3, /* "140" - n bits are 1's */ 4, /* "141" - n bits are 1's */ 4, /* "142" - n bits are 1's */ 5, /* "143" - n bits are 1's */ 2, /* "144" - n bits are 1's */ 3, /* "145" - n bits are 1's */ 3, /* "146" - n bits are 1's */ 4, /* "147" - n bits are 1's */ 3, /* "148" - n bits are 1's */ 4, /* "149" - n bits are 1's */ 4, /* "150" - n bits are 1's */ 5, /* "151" - n bits are 1's */ 3, /* "152" - n bits are 1's */ 4, /* "153" - n bits are 1's */ 4, /* "154" - n bits are 1's */ 5, /* "155" - n bits are 1's */ 4, /* "156" - n bits are 1's */ 5, /* "157" - n bits are 1's */ 5, /* "158" - n bits are 1's */ 6, /* "159" - n bits are 1's */ 2, /* "160" - n bits are 1's */ 3, /* "161" - n bits are 1's */ 3, /* "162" - n bits are 1's */ 4, /* "163" - n bits are 1's */ 3, /* "164" - n bits are 1's */ 4, /* "165" - n bits are 1's */ 4, /* "166" - n bits are 1's */ 5, /* "167" - n bits are 1's */ 3, /* "168" - n bits are 1's */ 4, /* "169" - n bits are 1's */ 4, /* "170" - n bits are 1's */ 5, /* "171" - n bits are 1's */ 4, /* "172" - n bits are 1's */ 5, /* "173" - n bits are 1's */ 5, /* "174" - n bits are 1's */ 6, /* "175" - n bits are 1's */ 3, /* "176" - n bits are 1's */ 4, /* "177" - n bits are 1's */ 4, /* "178" - n bits are 1's */ 5, /* "179" - n bits are 1's */ 4, /* "180" - n bits are 1's */ 5, /* "181" - n bits are 1's */ 5, /* "182" - n bits are 1's */ 6, /* "183" - n bits are 1's */ 4, /* "184" - n bits are 1's */ 5, /* "185" - n bits are 1's */ 5, /* "186" - n bits are 1's */ 6, /* "187" - n bits are 1's */ 5, /* "188" - n bits are 1's */ 6, /* "189" - n bits are 1's */ 6, /* "190" - n bits are 1's */ 7, /* "191" - n bits are 1's */ 2, /* "192" - n bits are 1's */ 3, /* "193" - n bits are 1's */ 3, /* "194" - n bits are 1's */ 4, /* "195" - n bits are 1's */ 3, /* "196" - n bits are 1's */ 4, /* "197" - n bits are 1's */ 4, /* "198" - n bits are 1's */ 5, /* "199" - n bits are 1's */ 3, /* "200" - n bits are 1's */ 4, /* "201" - n bits are 1's */ 4, /* "202" - n bits are 1's */ 5, /* "203" - n bits are 1's */ 4, /* "204" - n bits are 1's */ 5, /* "205" - n bits are 1's */ 5, /* "206" - n bits are 1's */ 6, /* "207" - n bits are 1's */ 3, /* "208" - n bits are 1's */ 4, /* "209" - n bits are 1's */ 4, /* "210" - n bits are 1's */ 5, /* "211" - n bits are 1's */ 4, /* "212" - n bits are 1's */ 5, /* "213" - n bits are 1's */ 5, /* "214" - n bits are 1's */ 6, /* "215" - n bits are 1's */ 4, /* "216" - n bits are 1's */ 5, /* "217" - n bits are 1's */ 5, /* "218" - n bits are 1's */ 6, /* "219" - n bits are 1's */ 5, /* "220" - n bits are 1's */ 6, /* "221" - n bits are 1's */ 6, /* "222" - n bits are 1's */ 7, /* "223" - n bits are 1's */ 3, /* "224" - n bits are 1's */ 4, /* "225" - n bits are 1's */ 4, /* "226" - n bits are 1's */ 5, /* "227" - n bits are 1's */ 4, /* "228" - n bits are 1's */ 5, /* "229" - n bits are 1's */ 5, /* "230" - n bits are 1's */ 6, /* "231" - n bits are 1's */ 4, /* "232" - n bits are 1's */ 5, /* "233" - n bits are 1's */ 5, /* "234" - n bits are 1's */ 6, /* "235" - n bits are 1's */ 5, /* "236" - n bits are 1's */ 6, /* "237" - n bits are 1's */ 6, /* "238" - n bits are 1's */ 7, /* "239" - n bits are 1's */ 4, /* "240" - n bits are 1's */ 5, /* "241" - n bits are 1's */ 5, /* "242" - n bits are 1's */ 6, /* "243" - n bits are 1's */ 5, /* "244" - n bits are 1's */ 6, /* "245" - n bits are 1's */ 6, /* "246" - n bits are 1's */ 7, /* "247" - n bits are 1's */ 5, /* "248" - n bits are 1's */ 6, /* "249" - n bits are 1's */ 6, /* "250" - n bits are 1's */ 7, /* "251" - n bits are 1's */ 6, /* "252" - n bits are 1's */ 7, /* "253" - n bits are 1's */ 7, /* "254" - n bits are 1's */ 8 /* "255" - n bits are 1's */ }; /* Useful routines for generally private use */ #endif /* BV_MASTER | BV_TESTER */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ HDFLIBAPI bv_ptr bv_new(int32 num_bits, uint32 flags); HDFLIBAPI intn bv_delete(bv_ptr b); HDFLIBAPI intn bv_set(bv_ptr b, int32 bit_num, bv_bool value); HDFLIBAPI intn bv_get(bv_ptr b, int32 bit_num); HDFLIBAPI intn bv_clear(bv_ptr b, bv_bool value); HDFLIBAPI int32 bv_size(bv_ptr b); HDFLIBAPI uint32 bv_flags(bv_ptr b); HDFLIBAPI int32 bv_find(bv_ptr b, int32 last_find, bv_bool value); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* __BITVECT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfufp2i.h0000644000000000000000000000746512421456623014162 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfufp2i.h 5949 2013-06-10 16:16:09Z byrn $ */ #ifndef DFUFP2IM_H /* avoid re-inclusion */ #define DFUFP2IM_H #include "H4api_adpt.h" /* Input structure */ typedef struct { int32 hdim; /* horizontal dimension of input data */ int32 vdim; /* vertical dimension of input data */ intn is_pal; /* flag to tell whether there is a palette */ intn is_vscale; /* flag telling whether vertical scale included */ intn is_hscale; /* flag telling whether horizonatal scale included */ intn ct_method; /* color transform method: EXPAND or INTERP */ float32 max; /* max value of data */ float32 min; /* min value of the data */ float32 *hscale; /* horizontal scale */ float32 *vscale; /* vertical scale */ float32 *data; /* floating point data */ } Input; /* Output structure */ typedef struct { int32 hres; /* horizontal resolution of image */ int32 vres; /* vertical resolution of image */ intn compress; /* compression scheme */ char outfile[32]; /* output file name */ uint8 *image; /* Image */ uint8 *palette; /* Palette */ } Output; /*----------------------------------------------------------------------------*/ /* Function Prototypes */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* prototypes for dfufp2im.c */ #ifdef OLD_WAY HDFLIBAPI int duif2i_(int32 *hdim, int32 *vdim, float32 *max, float32 *min, float32 hscale[], float32 vscale[], float32 data[], _fcd palette, _fcd outfile, int *ct_method, int32 *hres, int32 *vres, int *compress, int *lenfn); HDFLIBAPI int DFUfptoimage(int32 hdim, int32 vdim, float32 max, float32 min, float32 *hscale, float32 *vscale, float32 *data, uint8 *palette, char *outfile, int ct_method, int32 hres, int32 vres, int compress); #endif HDFLIBAPI int process (Input * in, Output * out); HDFLIBAPI int generate_scale (int32 dim, float32 *scale); HDFLIBAPI int convert_interp (Input * in, Output * out); HDFLIBAPI int pixrep_scaled (Input * in, Output * out); HDFLIBAPI int compute_offsets (float32 *scale, int32 dim, int32 *offsets, int32 res); HDFLIBAPI int pixrep_simple (Input * in, Output * out); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* DFUFP2IM_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hdf.inc0000644000000000000000000004156212421456623013702 0ustar C**************************************************************************** C* NCSA HDF * C* Software Development Group * C* National Center for Supercomputing Applications * C* University of Illinois at Urbana-Champaign * C* 605 E. Springfield, Champaign IL 61820 * C* * C* For conditions of distribution and use, see the accompanying * C* hdf/COPYING file. * C* * C**************************************************************************** C C $Id: hdf.inc 6034 2014-01-19 06:59:14Z epourmal $ C C *----------------------------------------------------------------------------- C * File: hdf.inc C * Purpose: Fortran header file for HDF routines C * Contents: C * Tag definitions C * Error return codes C * Logical constants C * Remarks: This file can be included with Fortran user programs. As a C * general rule, don't use DFNT constants that don't include a C * number in their name. E.g., don't use DFNT_FLOAT, use C * DFNT_FLOAT32 or DFNT_FLOAT64. The DFNT constants that don't C * include numbers are for backward compatibility only. Also, C * there are no current plans to support 128-bit number types. C * For more information about constants in this file, see the C * equivalent constant declarations in the C include file 'hdf.h' C *------------------------------------------------------------------------ C Error Return Codes integer DFE_NOERROR, DFE_NONE, DFE_FNF integer DFE_DENIED, DFE_ALROPEN, DFE_TOOMANY integer DFE_BADNAME, DFE_BADACC, DFE_BADOPEN integer DFE_NOTOPEN, DFE_CANTCLOSE, DFE_DFNULL integer DFE_ILLTYPE, DFE_UNSUPPORTED, DFE_BADDDLIST integer DFE_NOTDFFILE, DFE_SEEDTWICE, DFE_NOSPACE integer DFE_NOSUCHTAG, DFE_READERROR parameter(DFE_NOERROR = 0) parameter(DFE_NONE = 0) parameter(DFE_FNF = -1) parameter(DFE_DENIED = -2) parameter(DFE_ALROPEN = -3) parameter(DFE_TOOMANY = -4) parameter(DFE_BADNAME = -5) parameter(DFE_BADACC = -6) parameter(DFE_BADOPEN = -7) parameter(DFE_NOTOPEN = -8) parameter(DFE_CANTCLOSE = -9) parameter(DFE_DFNULL = -10) parameter(DFE_ILLTYPE = -11) parameter(DFE_UNSUPPORTED = -12) parameter(DFE_BADDDLIST = -13) parameter(DFE_NOTDFFILE = -14) parameter(DFE_SEEDTWICE = -15) parameter(DFE_NOSPACE = -16) parameter(DFE_NOSUCHTAG = -17) parameter(DFE_READERROR = -18) integer DFE_WRITEERROR, DFE_SEEKERROR, DFE_NOFREEDD integer DFE_BADTAG, DFE_BADREF, DFE_RDONLY integer DFE_BADCALL, DFE_BADPTR, DFE_BADLEN integer DFE_BADSEEK, DFE_NOMATCH, DFE_NOTINSET integer DFE_BADDIM, DFE_BADOFFSET, DFE_BADSCHEME integer DFE_NODIM, DFE_NOTENOUGH, DFE_NOVALS integer DFE_CORRUPT, DFE_BADFP parameter(DFE_WRITEERROR = -19) parameter(DFE_SEEKERROR = -20) parameter(DFE_NOFREEDD = -21) parameter(DFE_BADTAG = -22) parameter(DFE_BADREF = -23) parameter(DFE_RDONLY = -24) parameter(DFE_BADCALL = -25) parameter(DFE_BADPTR = -26) parameter(DFE_BADLEN = -27) parameter(DFE_BADSEEK = -28) parameter(DFE_NOMATCH = -29) parameter(DFE_NOTINSET = -30) parameter(DFE_BADDIM = -31) parameter(DFE_BADOFFSET = -32) parameter(DFE_BADSCHEME = -33) parameter(DFE_NODIM = -34) parameter(DFE_NOTENOUGH = -35) parameter(DFE_NOVALS = -36) parameter(DFE_CORRUPT = -37) parameter(DFE_BADFP = -38) integer DFE_NOREF, DFE_BADDATATYPE, DFE_BADMCTYPE integer DFE_BADNUMTYPE, DFE_BADORDER, DFE_ARGS integer DFE_INTERNAL, DFE_DUPDD, DFE_CANTMOD integer DFE_RANGE, DFE_BADTABLE, DFE_BADSDG integer DFE_BADNDG, DFE_BADFIELDS, DFE_NORESET integer DFE_NOVS, DFE_VGSIZE, DFE_DIFFFILES integer DFE_VTAB, DFE_BADAID parameter(DFE_NOREF = -39) parameter(DFE_BADDATATYPE = -40) parameter(DFE_BADMCTYPE = -41) parameter(DFE_BADNUMTYPE = -42) parameter(DFE_BADORDER = -43) parameter(DFE_ARGS = -44) parameter(DFE_INTERNAL = -45) parameter(DFE_DUPDD = -46) parameter(DFE_CANTMOD = -47) parameter(DFE_RANGE = -48) parameter(DFE_BADTABLE = -49) parameter(DFE_BADSDG = -50) parameter(DFE_BADNDG = -51) parameter(DFE_BADFIELDS = -52) parameter(DFE_NORESET = -53) parameter(DFE_NOVS = -54) parameter(DFE_VGSIZE = -55) parameter(DFE_DIFFFILES = -56) parameter(DFE_VTAB = -57) parameter(DFE_BADAID = -58) integer DFE_OPENAID, DFE_BADCONV, DFE_GENAPP, DFE_CANTFLUSH integer DFE_BADTYPE, DFE_SYMSIZE, DFE_BADATTACH integer DFE_CANTDETACH parameter(DFE_OPENAID = -59) parameter(DFE_BADCONV = -60) parameter(DFE_GENAPP = -61) parameter(DFE_CANTFLUSH = -62) parameter(DFE_BADTYPE = -63) parameter(DFE_SYMSIZE = -64) parameter(DFE_BADATTACH = -65) parameter(DFE_CANTDETACH = -66) C internal file access codes integer DFACC_READ, DFACC_WRITE, DFACC_CREATE, DFACC_ALL integer DFACC_RDONLY, DFACC_RDWR, DFACC_CLOBBER parameter(DFACC_READ = 1) parameter(DFACC_WRITE = 2) parameter(DFACC_CREATE = 4) parameter(DFACC_ALL = 7) parameter(DFACC_RDONLY = 1) parameter(DFACC_RDWR = 3) parameter(DFACC_CLOBBER = 4) C Access types for SDsetaccesstype integer DFACC_DEFAULT, DFACC_SERIAL, DFACC_PARALLEL parameter(DFACC_DEFAULT = 0) parameter(DFACC_SERIAL = 1) parameter(DFACC_PARALLEL = 9) C Constants for DFSDsetorder integer DFO_FORTRAN, DFO_C parameter(DFO_FORTRAN = 1) parameter(DFO_C = 2) C Definitions of storage convention integer DFNTF_IEEE, DFNTF_VAX, DFNTF_CRAY, DFNTF_PC integer DFNTF_CONVEX, DFNTF_VP parameter(DFNTF_IEEE = 1) parameter(DFNTF_VAX = 2) parameter(DFNTF_CRAY = 3) parameter(DFNTF_PC = 4) parameter(DFNTF_CONVEX = 5) parameter(DFNTF_VP = 6) C Masks for types integer DFNT_HDF, DFNT_NATIVE, DFNT_CUSTOM, DFNT_LITEND parameter(DFNT_HDF = 0) parameter(DFNT_NATIVE = 4096) parameter(DFNT_CUSTOM = 8192) parameter(DFNT_LITEND = 16384) C Number type info codes integer DFNT_NONE, DFNT_QUERY, DFNT_VERSION parameter(DFNT_NONE = 0) parameter(DFNT_QUERY = 0) parameter(DFNT_VERSION = 1) integer DFNT_FLOAT32, DFNT_FLOAT, DFNT_FLOAT64 integer DFNT_DOUBLE, DFNT_FLOAT128 parameter(DFNT_FLOAT32 = 5) parameter(DFNT_FLOAT = 5) parameter(DFNT_FLOAT64 = 6) parameter(DFNT_DOUBLE = 6) parameter(DFNT_FLOAT128 = 7) integer DFNT_INT8, DFNT_UINT8 integer DFNT_INT16, DFNT_UINT16 integer DFNT_INT32, DFNT_UINT32 integer DFNT_INT64, DFNT_UINT64 integer DFNT_INT128,DFNT_UINT128 parameter(DFNT_INT8 = 20) parameter(DFNT_UINT8 = 21) parameter(DFNT_INT16 = 22) parameter(DFNT_UINT16 = 23) parameter(DFNT_INT32 = 24) parameter(DFNT_UINT32 = 25) parameter(DFNT_INT64 = 26) parameter(DFNT_UINT64 = 27) parameter(DFNT_INT128 = 28) parameter(DFNT_UINT128 = 29) integer DFNT_UCHAR8, DFNT_UCHAR, DFNT_CHAR8 integer DFNT_CHAR, DFNT_CHAR16, DFNT_UCHAR16 parameter(DFNT_UCHAR8 = 3) parameter(DFNT_UCHAR = 3) parameter(DFNT_CHAR8 = 4) parameter(DFNT_CHAR = 4) parameter(DFNT_CHAR16 = 42) parameter(DFNT_UCHAR16 = 43) integer DFNT_NFLOAT32, DFNT_NFLOAT, DFNT_NFLOAT64 integer DFNT_NDOUBLE, DFNT_NFLOAT128 parameter(DFNT_NFLOAT32 = 4101) parameter(DFNT_NFLOAT = 4101) parameter(DFNT_NFLOAT64 = 4102) parameter(DFNT_NDOUBLE = 4102) parameter(DFNT_NFLOAT128 = 4103) integer DFNT_NINT8, DFNT_NUINT8 integer DFNT_NINT16, DFNT_NUINT16 integer DFNT_NINT32, DFNT_NUINT32 integer DFNT_NINT64, DFNT_NUINT64 integer DFNT_NINT128,DFNT_NUINT128 parameter(DFNT_NINT8 = 4116) parameter(DFNT_NUINT8 = 4117) parameter(DFNT_NINT16 = 4118) parameter(DFNT_NUINT16 = 4119) parameter(DFNT_NINT32 = 4120) parameter(DFNT_NUINT32 = 4121) parameter(DFNT_NINT64 = 4122) parameter(DFNT_NUINT64 = 4123) parameter(DFNT_NINT128 = 4124) parameter(DFNT_NUINT128 = 4125) integer DFNT_NUCHAR8, DFNT_NUCHAR, DFNT_NCHAR8 integer DFNT_NCHAR, DFNT_NCHAR16, DFNT_NUCHAR16 parameter(DFNT_NUCHAR8 = 4099) parameter(DFNT_NUCHAR = 4099) parameter(DFNT_NCHAR8 = 4100) parameter(DFNT_NCHAR = 4100) parameter(DFNT_NCHAR16 = 4138) parameter(DFNT_NUCHAR16 = 4139) integer DFNT_LFLOAT32, DFNT_LFLOAT, DFNT_LFLOAT64 integer DFNT_LDOUBLE, DFNT_LFLOAT128 parameter(DFNT_LFLOAT32 = 16389) parameter(DFNT_LFLOAT = 16389) parameter(DFNT_LFLOAT64 = 16390) parameter(DFNT_LDOUBLE = 16390) parameter(DFNT_LFLOAT128 = 16391) integer DFNT_LINT8,DFNT_LUINT8,DFNT_LINT16,DFNT_LUINT16 integer DFNT_LINT32,DFNT_LUINT32,DFNT_LINT64,DFNT_LUINT64 integer DFNT_LINT128,DFNT_LUINT128 parameter(DFNT_LINT8 = 16404) parameter(DFNT_LUINT8 = 16405) parameter(DFNT_LINT16 = 16406) parameter(DFNT_LUINT16 = 16407) parameter(DFNT_LINT32 = 16408) parameter(DFNT_LUINT32 = 16409) parameter(DFNT_LINT64 = 16410) parameter(DFNT_LUINT64 = 16411) parameter(DFNT_LINT128 = 16412) parameter(DFNT_LUINT128 = 16413) integer DFNT_LUCHAR8, DFNT_LUCHAR, DFNT_LCHAR8 integer DFNT_LCHAR, DFNT_LCHAR16, DFNT_LUCHAR16 parameter(DFNT_LUCHAR8 = 16387) parameter(DFNT_LUCHAR = 16387) parameter(DFNT_LCHAR8 = 16388) parameter(DFNT_LCHAR = 16388) parameter(DFNT_LCHAR16 = 16426) parameter(DFNT_LUCHAR16 = 16427) C tags and refs integer DFREF_WILDCARD, DFTAG_WILDCARD, DFTAG_NULL integer DFTAG_LINKED, DFTAG_VERSION, DFTAG_COMPRESSED parameter(DFREF_WILDCARD = 0, DFTAG_WILDCARD = 0) parameter(DFTAG_NULL = 1, DFTAG_LINKED = 20) parameter(DFTAG_VERSION = 30,DFTAG_COMPRESSED = 40) C utility set integer DFTAG_FID, DFTAG_FD, DFTAG_TID, DFTAG_TD integer DFTAG_DIL, DFTAG_DIA, DFTAG_NT, DFTAG_MT parameter(DFTAG_FID = 100, DFTAG_FD = 101) parameter(DFTAG_TID = 102, DFTAG_TD = 103) parameter(DFTAG_DIL = 104, DFTAG_DIA = 105) parameter(DFTAG_NT = 106, DFTAG_MT = 107) C raster-8 set integer DFTAG_ID8, DFTAG_IP8, DFTAG_RI8 integer DFTAG_CI8, DFTAG_II8 parameter(DFTAG_ID8 = 200, DFTAG_IP8 = 201) parameter(DFTAG_RI8 = 202, DFTAG_CI8 = 203) parameter(DFTAG_II8 = 204) C Raster Image set integer DFTAG_ID, DFTAG_LUT, DFTAG_RI, DFTAG_CI parameter(DFTAG_ID = 300, DFTAG_LUT = 301) parameter(DFTAG_RI = 302, DFTAG_CI = 303) integer DFTAG_RIG, DFTAG_LD, DFTAG_MD, DFTAG_MA integer DFTAG_CCN, DFTAG_CFM, DFTAG_AR parameter(DFTAG_RIG = 306, DFTAG_LD = 307) parameter(DFTAG_MD = 308, DFTAG_MA = 309) parameter(DFTAG_CCN = 310, DFTAG_CFM = 311) parameter(DFTAG_AR = 312) integer DFTAG_DRAW, DFTAG_RUN, DFTAG_XYP, DFTAG_MTO parameter(DFTAG_DRAW = 400, DFTAG_RUN = 401) parameter(DFTAG_XYP = 500, DFTAG_MTO = 501) C Tektronix integer DFTAG_T14, DFTAG_T105 parameter(DFTAG_T14 = 602, DFTAG_T105 = 603) C Scientific Data set integer DFTAG_SDG, DFTAG_SDD, DFTAG_SD, DFTAG_SDS, DFTAG_SDL integer DFTAG_SDU, DFTAG_SDF, DFTAG_SDM, DFTAG_SDC integer DFTAG_SDT,DFTAG_SDLNK,DFTAG_NDG integer DFTAG_BREQ,DFTAG_EREQ,DFTAG_CAL, DFTAG_FV parameter(DFTAG_SDG = 700, DFTAG_SDD = 701) parameter(DFTAG_SD = 702, DFTAG_SDS = 703) parameter(DFTAG_SDL = 704, DFTAG_SDU = 705) parameter(DFTAG_SDF = 706, DFTAG_SDM = 707) parameter(DFTAG_SDC = 708, DFTAG_SDT = 709) parameter(DFTAG_SDLNK = 710, DFTAG_NDG = 720) parameter(DFTAG_CAL = 731, DFTAG_FV = 732) parameter(DFTAG_BREQ = 799, DFTAG_EREQ = 780) C VSets integer DFTAG_VG, DFTAG_VH, DFTAG_VS parameter(DFTAG_VG = 1965, DFTAG_VH = 1962) parameter(DFTAG_VS = 1963) C compression schemes integer DFTAG_RLE, DFTAG_IMC, DFTAG_IMCOMP, DFTAG_JPEG integer DFTAG_GREYJPEG parameter(DFTAG_RLE =11, DFTAG_IMC =12) parameter(DFTAG_IMCOMP =12, DFTAG_JPEG =13) parameter(DFTAG_GREYJPEG =14) C SPECIAL CODES integer SPECIAL_LINKED, SPECIAL_EXT parameter(SPECIAL_LINKED = 1, SPECIAL_EXT = 2) C PARAMETERS integer DF_MAXFNLEN integer SD_UNLIMITED integer SD_DIMVAL_BW_COMP integer SD_DIMVAL_BW_INCOMP integer SD_FILL integer SD_NOFILL parameter(DF_MAXFNLEN = 256, SD_UNLIMITED = 0) parameter(SD_DIMVAL_BW_COMP = 1, SD_DIMVAL_BW_INCOMP = 0) parameter(SD_FILL = 0, SD_NOFILL = 256) integer HDF_VDATA parameter(HDF_VDATA = -1) C Standard return codes integer SUCCEED, FAIL parameter(SUCCEED = 0, FAIL = -1) C Compression Types integer COMP_NONE, COMP_RLE, COMP_IMCOMP, COMP_JPEG parameter(COMP_NONE = 0, COMP_RLE = 11) parameter(COMP_IMCOMP = 12, COMP_JPEG = 2) C C Fortran chunking (SD and GR interfaces) and compression routines use C the following compression types: C integer COMP_CODE_NONE, COMP_CODE_RLE, COMP_CODE_NBIT integer COMP_CODE_SKPHUFF, COMP_CODE_DEFLATE integer COMP_CODE_JPEG integer COMP_CODE_SZIP integer SZ_EC_OPTION_MASK, SZ_NN_OPTION_MASK integer COMP_DECODER_ENABLED, COMP_ENCODER_ENABLED parameter (COMP_CODE_NONE = 0) parameter (COMP_CODE_RLE = 1) parameter (COMP_CODE_NBIT = 2) parameter (COMP_CODE_SKPHUFF = 3) parameter (COMP_CODE_DEFLATE = 4) parameter (COMP_CODE_SZIP = 5) parameter (COMP_CODE_JPEG = 6) C C SZIP parameters C parameter (SZ_EC_OPTION_MASK = 4) parameter (SZ_NN_OPTION_MASK = 32) parameter (COMP_DECODER_ENABLED = 1) parameter (COMP_ENCODER_ENABLED = 2) C C Interlace Types integer MFGR_INTERLACE_PIXEL, MFGR_INTERLACE_LINE integer MFGR_INTERLACE_COMPONENT parameter(MFGR_INTERLACE_PIXEL = 0) parameter(MFGR_INTERLACE_LINE = 1) parameter(MFGR_INTERLACE_COMPONENT= 2) integer FULL_INTERLACE, NO_INTERLACE parameter(FULL_INTERLACE = 0, NO_INTERLACE = 1) C Vdata fields packing types integer HDF_VSPACK, HDF_VSUNPACK parameter (HDF_VSPACK = 0, HDF_VSUNPACK = 1) C Multi-file Annotation types integer AN_DATA_LABEL, AN_DATA_DESC, AN_FILE_LABEL, AN_FILE_DESC parameter(AN_DATA_LABEL = 0, AN_DATA_DESC = 1) parameter(AN_FILE_LABEL = 2, AN_FILE_DESC = 3) c******************End of hdf.inc*************************** libhdf4-4.2.10/HDF_ALT/hdf/src/vparse.c0000644000000000000000000001244312421456623014106 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: vparse.c 6043 2014-01-21 21:09:03Z acheng $ */ /***************************************************************************** file - vparse.c Part of the HDF VSet interface. NOTE: Another pass needs to made through this file to update some of the comments about certain sections of the code. -GV 9/8/97 ************************************************************************/ #define VSET_INTERFACE #include "hdf.h" #define ISCOMMA(c) ( (c==',') ? 1:0 ) PRIVATE char *symptr[VSFIELDMAX]; /* array of ptrs to tokens ? */ PRIVATE char sym[VSFIELDMAX][FIELDNAMELENMAX + 1]; /* array of tokens ? */ PRIVATE intn nsym; /* token index ? */ /* Temporary buffer for I/O */ PRIVATE uint32 Vpbufsize = 0; PRIVATE uint8 *Vpbuf = NULL; /******************************************************************************* NAME scanattrs DESCRIPTION Given a string (attrs) , the routine parses it into token strings, and returns a ptr (attrv) to an array of ptrs where the tokens are stored. The number of tokens are returned in attrc. Currently used only by routines that manipulate field names. As such each field string is truncated to a max length of FIELDNAMELENMAX (as defined in hdf.h). For most cases, this truncation doesn't happen because FIELDNAMELENMAX is a big number. Current implementation: all strings inputs converted to uppercase. tokens must be separated by COMMAs. Tokens are stored in static area sym , and pointers are returned to calling routine. Hence, tokens must be used before next call to scanattrs. RETURNS Returns SUCCEED/FAIL *******************************************************************************/ int32 scanattrs(const char *attrs, int32 *attrc, char ***attrv) { CONSTR(FUNC, "scanattrs"); char *s, *s0, *ss; intn len; size_t slen = HDstrlen(attrs)+1; if(slen>Vpbufsize) { Vpbufsize = slen; if (Vpbuf) HDfree((VOIDP) Vpbuf); if ((Vpbuf = (uint8 *) HDmalloc(Vpbufsize)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); } /* end if */ HDstrcpy((char *)Vpbuf,attrs); s = (char *)Vpbuf; nsym = 0; s0 = s; while (*s) { #ifdef VDATA_FIELDS_ALL_UPPER if (*s >= 'a' && *s <= 'z') *s = (char) toupper(*s); #endif /* VDATA_FIELDS_ALL_UPPER */ if (ISCOMMA(*s)) { /* make sure we've got a legitimate length */ len = (intn) (s - s0); if (len <= 0) return (FAIL); /* save that token */ ss = symptr[nsym] = sym[nsym]; nsym++; /* shove the string into our static buffer. YUCK! */ if (len > FIELDNAMELENMAX) len = FIELDNAMELENMAX; HIstrncpy(ss, s0, len + 1); /* skip over the comma */ s++; /* skip over white space before the next field name */ while (*s && *s == ' ') s++; /* keep track of the first character of the next token */ s0 = s; } else { /* move along --- nothing to see here */ s++; } } /* save the last token */ len = (intn) (s - s0); if (len <= 0) return (FAIL); ss = symptr[nsym] = sym[nsym]; nsym++; if (len > FIELDNAMELENMAX) len = FIELDNAMELENMAX; HIstrncpy(ss, s0, len + 1); symptr[nsym] = NULL; *attrc = nsym; *attrv = (char **) symptr; return (SUCCEED); /* ok */ } /* scanattrs */ /******************************************************************************* NAME VPparse_shutdown -- Free the Vpbuf buffer. DESCRIPTION For completeness, when the VSet interface is shut-down, free the Vpbuf. Should only ever be called by the "atexit" function HDFend RETURNS Returns SUCCEED/FAIL *******************************************************************************/ intn VPparse_shutdown(void) { intn ret_value = SUCCEED; if(Vpbuf != NULL) { HDfree(Vpbuf); Vpbuf = NULL; Vpbufsize = 0; } /* end if */ return ret_value; } /* end VSPhshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfsd.h0000644000000000000000000001220312421456623013525 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfsd.h 5444 2010-08-25 16:40:05Z byrn $ */ /*----------------------------------------------------------------------------- * File: dfsd.h * Purpose: header file for the Scientific Data set * Invokes: dfrig.h * Contents: * Structure definitions: DFSsdg * Constant definitions: DFS_MAXLEN * Remarks: This is included with user programs which use SDG * Currently defined to be 2-D. Will later be increased to * multiple dimensions *---------------------------------------------------------------------------*/ #ifndef _DFSD_H /* avoid re-inclusion */ #define _DFSD_H #include "H4api_adpt.h" #include "hdf.h" /* include numbertype and aid for 3.2 S. Xu */ /* structure to hold SDG info */ typedef struct DFSsdg { DFdi data; /* tag/ref of data in file */ intn rank; /* number of dimensions */ int32 *dimsizes; /* dimensions of data */ char *coordsys; char *dataluf[3]; /* label/unit/format of data */ char **dimluf[3]; /* label/unit/format for each dim */ uint8 **dimscales; /* scales for each dimension */ uint8 max_min[16]; /* max, min values of data, */ /* currently atmost 8 bytes each */ int32 numbertype; /* default is float32 */ uint8 filenumsubclass; /* number format in the file, default is IEEE */ int32 aid; /* access id */ int32 compression; /* 0 -- not compressed */ int32 isndg; /* 0 -- pure sdg, written by 3.1 else ndg */ float64 cal, cal_err; /* calibration multiplier stuff */ float64 ioff, ioff_err; /* calibration offset stuff */ int32 cal_type; /* number type of data after calibration */ uint8 fill_value[DFSD_MAXFILL_LEN]; /* fill value if any specified */ intn fill_fixed; /* whether ther fill value is a fixed value, or it can change */ } DFSsdg; /* DFnsdgle is the internal structure which stores SDG or NDS and */ /* related SDG in an HDF file. */ /* It is a linked list. */ typedef struct DFnsdgle { DFdi nsdg; /* NDG from 3.2 or SDG from 3.1 */ DFdi sdg; /* Only special NDF has values in this field */ struct DFnsdgle *next; } DFnsdgle; typedef struct DFnsdg_t_hdr { uint32 size; DFnsdgle *nsdg_t; } DFnsdg_t_hdr; #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ HDFLIBAPI int32 DFSDIopen (const char * filename, int acc_mode); HDFLIBAPI int DFSDIsdginfo (int32 file_id); HDFLIBAPI int DFSDIclear (DFSsdg * sdg); HDFLIBAPI int DFSDIclearNT (DFSsdg * sdg); HDFLIBAPI int DFSDIgetdata (const char * filename, intn rank, int32 maxsizes[], VOIDP data, int isfortran); HDFLIBAPI int DFSDIputdata (const char * filename, intn rank, int32 * dimsizes, VOIDP data, int accmode, int isfortran); HDFLIBAPI int DFSDIgetslice (const char * filename, int32 winst[], int32 windims[], VOIDP data, int32 dims[], int isfortran); HDFLIBAPI int DFSDIputslice (int32 windims[], VOIDP data, int32 dims[], int isfortran); HDFLIBAPI int DFSDIendslice (int isfortran); HDFLIBAPI intn DFSDIrefresh (char * filename); HDFLIBAPI int DFSDIisndg (intn * isndg); HDFLIBAPI int DFSDIgetrrank (intn * rank); HDFLIBAPI int DFSDIgetwrank (intn * rank); HDFLIBAPI int DFSDIsetdimstrs (int dim, const char * label, const char * unit, const char * format); HDFLIBAPI int DFSDIsetdatastrs (const char * label, const char * unit, const char * format, const char * coordsys); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _DFSD_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dynarray.c0000644000000000000000000002535112421456623014441 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dynarray.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE dynarray.c - Internal storage routines for handling "dynamic arrays" REMARKS Dynamic arrays are "standard" arrays which store objects in a straight- forward linear array of objects (void *'s currently), but the "dynarray" allows the size of the array to vary without excessive overhead. DESIGN Each dynarray is managed as a small structure to store the current size of the dynarray and a pointer to the array of pointers to the objects stored within the array. BUGS/LIMITATIONS No hashing or any other "folding" of the storage space is done, so the size of the dynarray can get quite excessive in proportion to the # of elements used if the elements used are "sparse" in the dynarray space. These are strictly useable from C, adding a FORTRAN calling facility would require some re-working of the routines. LOCAL ROUTINES None EXPORTED ROUTINES Element Functions: DAget_elem - Get an element from a dynarray DAset_elem - Set an element pointer for a dynarray DAdel_elem - Delete an element from a dynarray Dynarray Functions: DAcreate_array - Create a dynarray DAdestroy_array - Destroy a dynarray DAsize_array - Get the current dynarray size AUTHOR Quincey Koziol MODIFICATION HISTORY 1/7/96 - Starting writing specs & coding prototype */ #define DYNARRAY_MASTER #include "hdf.h" #include "dynarray.h" /* Private function prototypes */ /* */ /****************************************************************************** NAME DAcreate_array - Create a dynarray DESCRIPTION Create a dynarray for later use. This routine allocates the dynarray structure and creates a dynarray with the specified minimum size. RETURNS Returns pointer to the dynarray created if successful and NULL otherwise *******************************************************************************/ dynarr_p DAcreate_array(intn start_size, /* IN: Initial array size */ intn incr_mult /* IN: multiple to create additional elements in */ ) { CONSTR(FUNC, "DAcreate_array"); /* for HERROR */ dynarr_t *new_arr=NULL; /* ptr to the new dynarray */ dynarr_p ret_value=NULL; HEclear(); if(start_size<0 || incr_mult<=0) HGOTO_ERROR(DFE_ARGS, NULL); new_arr=(dynarr_t *)HDcalloc(1,sizeof(dynarr_t)); if(new_arr==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); new_arr->num_elems=start_size; new_arr->incr_mult=incr_mult; if(start_size>0) { /* only allocate space if the initial size is positive */ new_arr->arr=(VOIDP *)HDcalloc(start_size,sizeof(VOIDP)); if(new_arr->arr==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end if */ ret_value=(dynarr_p)new_arr; done: if(ret_value == NULL) { /* Error condition cleanup */ if(new_arr!=NULL) { if(new_arr->arr!=NULL) HDfree(new_arr->arr); HDfree(new_arr); } /* end if */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAcreate_array() */ /****************************************************************************** NAME DAdestroy_array - Destroy a dynarray DESCRIPTION Destroy an existing dynarray from use. This routine de-allocates the dynarray structure and deletes the current dynarray. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn DAdestroy_array(dynarr_p arr, /* IN: Array to destroy */ intn free_elem /* IN: whether to free each element */ ) { CONSTR(FUNC, "DAdestroy_array"); /* for HERROR */ dynarr_t *dest_arr; /* ptr to the dynarray destroy*/ intn i; intn ret_value=SUCCEED; HEclear(); dest_arr=(dynarr_t *)arr; if(dest_arr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Chuck all the items stored in the array */ if(free_elem!=0) for(i=0; inum_elems; i++) { if(arr->arr[i]!=NULL) HDfree(arr->arr[i]); } /* end for */ if(dest_arr->arr!=NULL) HDfree(dest_arr->arr); HDfree(dest_arr); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAdestroy_array() */ /****************************************************************************** NAME DAdestroy_array - Get the current size of a dynarray DESCRIPTION Get the number of elements in use currently. RETURNS Returns # of dynarray elements if successful and FAIL otherwise *******************************************************************************/ intn DAsize_array(dynarr_p arr /* IN: Array to get size of */ ) { CONSTR(FUNC, "DAsize_array"); /* for HERROR */ dynarr_t *arr_ptr; /* ptr to the dynarray destroy*/ intn ret_value=SUCCEED; HEclear(); arr_ptr=(dynarr_t *)arr; if(arr_ptr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); ret_value=arr_ptr->num_elems; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAsize_array() */ /****************************************************************************** NAME DAget_elem - Get an element from a dynarray DESCRIPTION Retrieve an element from a dynarray. If the element to be retrieved is beyond the end of the currently allocated array elements, the array is not extended, a NULL pointer is merely returned. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ VOIDP DAget_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem /* IN: Array element to retrieve */ ) { CONSTR(FUNC, "DAget_elem"); /* for HERROR */ dynarr_t *arr; /* ptr to the dynarray */ VOIDP ret_value=NULL; HEclear(); arr=(dynarr_t *)arr_ptr; if(elem<0 || arr==NULL) HGOTO_ERROR(DFE_ARGS, NULL); if(elem>=arr->num_elems) ret_value=NULL; else ret_value=arr->arr[elem]; done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAget_elem() */ /****************************************************************************** NAME DAset_elem - Set an element pointer for a dynarray DESCRIPTION Set an element pointer for a dynarray. If the element to be set is beyond the end of the currently allocated array elements, the array is extended by whatever multiple of the incr_mult is needed to expand the # of array elements to include the array element to set. RETURNS Returns SUCCEED if successful and NULL otherwise *******************************************************************************/ intn DAset_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem, /* IN: Array element to set */ VOIDP obj /* IN: Pointer to the object to store */ ) { CONSTR(FUNC, "DAset_elem"); /* for HERROR */ dynarr_t *arr; /* ptr to the dynarray */ intn ret_value=SUCCEED; HEclear(); arr=(dynarr_t *)arr_ptr; if(elem<0 || arr==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if(elem>=arr->num_elems) { intn new_size; /* new number of elements in the array */ new_size=((elem/arr->incr_mult)+1)*arr->incr_mult; if(arr->num_elems==0) { /* array not currently allocated */ if((arr->arr=(VOIDP *)HDcalloc(new_size,sizeof(VOIDP)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ else { /* extend the existing array */ VOIDP *new_arr; /* storage for the new array of ptrs */ if((new_arr=(VOIDP *)HDrealloc(arr->arr,new_size*sizeof(VOIDP)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); HDmemset(&new_arr[arr->num_elems],0,sizeof(VOIDP)*(uintn)(new_size-arr->num_elems)); arr->arr=new_arr; } /* end else */ arr->num_elems=new_size; } /* end if */ /* Set the element value */ arr->arr[elem]=obj; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAset_elem() */ /***************************************************************************** NAME DAdel_elem - Delete an element from a dynarray DESCRIPTION Retrieve an element from a dynarray & delete it from the dynarray. If the element to be retrieved is beyond the end of the currently allocated array elements, the array is not extended, a NULL pointer is merely returned. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ VOIDP DAdel_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem /* IN: Array element to retrieve */ ) { CONSTR(FUNC, "DAdel_elem"); /* for HERROR */ dynarr_t *arr; /* ptr to the dynarray */ VOIDP ret_value=NULL; HEclear(); arr=(dynarr_t *)arr_ptr; if(elem<0 || arr==NULL) HGOTO_ERROR(DFE_ARGS, NULL); if(elem>=arr->num_elems) ret_value=NULL; else { ret_value=arr->arr[elem]; arr->arr[elem]=NULL; } /* end else */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DAdel_elem() */ libhdf4-4.2.10/HDF_ALT/hdf/src/vhi.c0000644000000000000000000001665512421456623013405 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: vhi.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* * File * vhi.c * HDF Vset high-level access routines VHxxxx * Feb 92 - update to use H-routines * Routines * VHstoredata -- stores data in a field of a vdata in an HDF file * VHstoredatam -- stores data in a aggregated-typed field of a vdata * VHmakegroup -- makes a vgroup from tag/ref pairs */ #define VSET_INTERFACE #include "hdf.h" /* ------------------------ VHstoredata ------------------------------- NAME VHstoredata -- stores data in a field of a new vdata USAGE int32 VHstoredata (f, field, buf, n, datatype, vsname, vsclass) HFILEID f; IN: File id, returned from Hopen. char * field; IN: Name of the field. const uint8 *buf; IN: Buffer of data to be stored in the field. int32 n; IN: Number of elements in buf to be written. inter datatype; IN: Number type of the data to be written. char * vsname; IN: Name of the new vdata. char * vsclass; IN: Class of the new vdata. RETURNS On success returns reference number of the new vdata, a positive integer; on failure returns -1. DESCRIPTION Stores 'n' elements of data from 'buf' as a field 'field' in a new vdata called 'vsname' into the already opened HDF file (with file id 'f'). The datatype variable must be specified as a valid HDF type; n should not be zero or negative. Returns -1 if error; ref of that new vdata (a +ve integer) if successful. ------------------------------------------------------------------------- */ int32 VHstoredata(HFILEID f, const char *field, const uint8 *buf, int32 n, int32 datatype, const char *vsname, const char *vsclass) { #ifdef LATER CONSTR(FUNC, "VHstoredata"); #endif int32 order = 1; int32 ret_value; ret_value = ((int32)VHstoredatam(f, field, buf, n, datatype, vsname, vsclass, order)); return ret_value; } /* end VHstoredata */ /* ----------------------- VHstoredatam ---------------------------- NAME VHstoredatam -- Same as VHstoredata but allows aggregate-typed field. USAGE int32 VHstoredata (f, field, buf, n, datatype, vsname, vsclass, order) HFILEID f; IN: File id, returned from Hopen. char * field; IN: Name of the field. uint8 buf[]; IN: Buffer of data to be stored in the field. int32 n; IN: Number of elements in buf to be written. inter datatype; IN: Numter type of the data to be written. char * vsname; IN: Name of the new vdata. char * vsclass; IN: Class of the new vdata. int32 order; IN: Order of the field. RETURNS On success returns reference number of the new vdata, a positive integer; on failure returns -1. DESCRIPTION Stores 'n' elements of data from 'buf' as a field 'field' in a new vdata called 'vsname' into the already opened HDF file (with file id 'f'). The datatype variable must be specified as a valid HDF type; n should not be zero or negative. Returns -1 if error; ref of that new vdata (a +ve integer) if successful. --------------------------------------------------------------------------- */ int32 VHstoredatam(HFILEID f, const char *field, const uint8 *buf, int32 n, int32 datatype, const char *vsname, const char *vsclass, int32 order) { CONSTR(FUNC, "VHstoredatam"); int32 ref; int32 vs; int32 ret_value = SUCCEED; if ((vs = VSattach(f, -1, "w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if ( VSfdefine(vs, field, datatype, order) == FAIL) HGOTO_ERROR(DFE_BADFIELDS,FAIL); if ( VSsetfields(vs, field) == FAIL) HGOTO_ERROR(DFE_BADFIELDS,FAIL); if (n != VSwrite(vs, buf, n, FULL_INTERLACE)) HGOTO_ERROR(DFE_BADATTACH,FAIL); if(VSsetname(vs, vsname)==FAIL) HGOTO_ERROR(DFE_BADVSNAME,FAIL); if(VSsetclass(vs, vsclass)==FAIL) HGOTO_ERROR(DFE_BADVSCLASS,FAIL); ref = VSQueryref(vs); if(VSdetach(vs)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); ret_value = ((int32) ref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VHstoredatam */ /* ------------------------ VHmakegroup ------------------------------- */ /* NAME VHmakegroup -- Creates a vgroup to store pairs of tag/ref. USAGE int32 VHmakegroup (f, tagarray, refarray , n, vgname, vgclass) HFILEID f; IN: File id, returned from Hopen. int32 tagarray[]; IN: Array of tags to be stored in the vgroup. int32 refarray[]; IN: Array of refs to be stored in the vgroup. int32 n; IN: Number of tags/refs in the tagarray/refarray. char * vgname; IN: Name of the new vgroup. char * vgclass; IN: Class of the new vgroup. RETURNS On success returns reference number of the new vgroup, a positive integer; on failure returns -1. DESCRIPTION Takes an array of tags and and array of refs and create a vgroup to store them. You tell it how many tag/ref pairs there are. You must also give the vgroup a name.i Creating EMPTY vgroups is allowed. VHmakegroup does bot check if a tag/ref is valid or exist, but ALL tag/ref pairs MUST be unique. Returns -1 if error; ref of the new vgroup (a +ve integre) if ok. --------------------------------------------------------------------------- */ int32 VHmakegroup(HFILEID f, int32 tagarray[], int32 refarray[], int32 n, const char *vgname, const char *vgclass) { int32 ref, i; int32 vg; int32 ret_value = SUCCEED; CONSTR(FUNC, "VHmakegroup"); if (( vg = Vattach(f, -1, "w"))== FAIL) HGOTO_ERROR(DFE_CANTATTACH,FAIL); if(vgname!=NULL) if(Vsetname(vg, vgname)==FAIL) HGOTO_ERROR(DFE_BADVGNAME,FAIL); if(vgclass!=NULL) if(Vsetclass(vg, vgclass)==FAIL) HGOTO_ERROR(DFE_BADVGCLASS,FAIL); for (i = 0; i < n; i++) { if ( Vaddtagref(vg, tagarray[i], refarray[i]) == FAIL) HGOTO_ERROR(DFE_CANTADDELEM,FAIL); } ref = VQueryref(vg); if(Vdetach(vg)==FAIL) HGOTO_ERROR(DFE_CANTDETACH,FAIL); ret_value = (ref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VHmakegroup */ /* ------------------------------------------------------------------ */ libhdf4-4.2.10/HDF_ALT/hdf/src/hdatainfo.h0000644000000000000000000000473612421456623014556 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hproto.h 5400 2010-04-22 03:45:32Z bmribler $ */ #ifndef _HDATAINFO_H #define _HDATAINFO_H #include "H4api_adpt.h" #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* Structure that holds a data descriptor. First added for GRgetpalinfo. */ typedef struct hdf_ddinfo_t { uint16 tag; uint16 ref; int32 offset; int32 length; } hdf_ddinfo_t; /* Public functions for getting raw data information */ HDFLIBAPI intn ANgetdatainfo (int32 ann_id, int32 *offset, int32 *length); HDFLIBAPI intn HDgetdatainfo (int32 file_id, uint16 data_tag, uint16 data_ref, int32 *chk_coord, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray); HDFLIBAPI intn VSgetdatainfo (int32 vsid, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray); HDFLIBAPI intn VSgetattdatainfo (int32 vsid, int32 findex, intn attrindex, int32 *offset, int32 *length); HDFLIBAPI intn Vgetattdatainfo (int32 vgid, intn attrindex, int32 *offset, int32 *length); HDFLIBAPI intn GRgetdatainfo (int32 riid, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray); HDFLIBAPI intn GRgetattdatainfo (int32 id, int32 attrindex, int32 *offset, int32 *length); HDFLIBAPI intn GRgetpalinfo(int32 gr_id, uintn pal_count, hdf_ddinfo_t *palinfo_array); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _HDATAINFO */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfjpeg.c0000644000000000000000000003046612421456623014052 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4951 $"; #endif /* $Id: dfjpeg.c 4951 2007-09-11 19:33:41Z epourmal $ */ /*----------------------------------------------------------------------------- * File: dfjpeg.c * Purpose: JPEG image compression algorithm * Invokes: JPEG library functions * Contents: * DFCIjpeg: compress image using JPEG compression * Remarks: DFCIjpeg() compress images using the JPEG library functions. * This file (dfjpeg.c) and dfunjpeg.c should remain the only HDF files * that has to know about how to use the JPEG routines. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "jpeglib.h" #include "jerror.h" /* Expanded data destination object for HDF output */ typedef struct { struct jpeg_destination_mgr pub; /* public fields */ int32 aid; /* target AID for output */ int32 file_id; /* HDF file ID */ uint16 tag, ref; /* tag & ref of image to output */ const void * image; /* pointer to the image data */ int32 xdim, ydim; /* X & Y dimensions of the image */ int16 scheme; /* type of image (8-bit or 24-bit) */ JOCTET *buffer; /* buffer for JPEG library to fill */ } hdf_destination_mgr; typedef hdf_destination_mgr * hdf_dest_ptr; #define OUTPUT_BUF_SIZE 4096 /* size of JPEG output buffer */ /* Prototypes */ extern void hdf_init_destination(struct jpeg_compress_struct *cinfo_ptr); extern boolean hdf_empty_output_buffer(struct jpeg_compress_struct *cinfo_ptr); extern void hdf_term_destination(struct jpeg_compress_struct *cinfo_ptr); extern intn jpeg_HDF_dest(struct jpeg_compress_struct *cinfo_ptr, int32 file_id, uint16 tag, uint16 ref, const void * image, int32 xdim, int32 ydim, int16 scheme); extern intn jpeg_HDF_dest_term(struct jpeg_compress_struct *cinfo_ptr); void (*jpeg_message_handler)(j_common_ptr cinfo) = NULL; /*----------------------------------------------------------------------------- * Name: hdf_init_destination * Purpose: Initialize the destination mgr for the JPEG image * Inputs: * cinfo_ptr - JPEG compression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Initializes the JPEG destination mgr for further output. *---------------------------------------------------------------------------*/ void hdf_init_destination(struct jpeg_compress_struct *cinfo_ptr) { hdf_dest_ptr dest=(hdf_dest_ptr)cinfo_ptr->dest; int32 temp_aid; if((dest->buffer=HDmalloc(sizeof(JOCTET)*OUTPUT_BUF_SIZE))==NULL) ERREXIT1(cinfo_ptr, JERR_OUT_OF_MEMORY, (int)1); /* Create empty JPEG5/GREYJPEG5 tag/ref to indicate the image */ if((temp_aid=Hstartwrite(dest->file_id,(uint16)dest->scheme,dest->ref,0))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_WRITE); Hendaccess(temp_aid); if((dest->aid=Hstartaccess(dest->file_id,dest->tag,dest->ref,DFACC_WRITE|DFACC_APPENDABLE))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_WRITE); dest->pub.next_output_byte = dest->buffer; dest->pub.free_in_buffer = OUTPUT_BUF_SIZE; } /* end hdf_init_destination() */ /*----------------------------------------------------------------------------- * Name: hdf_empty_output_buffer * Purpose: Write out a chunk of JPEG compressed data * Inputs: * cinfo_ptr - JPEG compression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: *---------------------------------------------------------------------------*/ boolean hdf_empty_output_buffer(struct jpeg_compress_struct *cinfo_ptr) { hdf_dest_ptr dest=(hdf_dest_ptr)cinfo_ptr->dest; if(Hwrite(dest->aid,OUTPUT_BUF_SIZE,dest->buffer)!=OUTPUT_BUF_SIZE) ERREXIT(cinfo_ptr, JERR_FILE_WRITE); dest->pub.next_output_byte = dest->buffer; dest->pub.free_in_buffer = OUTPUT_BUF_SIZE; return TRUE; } /* end hdf_empty_output_buffer() */ /*----------------------------------------------------------------------------- * Name: hdf_term_destination * Purpose: Terminate the destination mgr for the JPEG image * Inputs: * cinfo_ptr - JPEG compression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Terminate the JPEG destination mgr for further output. *---------------------------------------------------------------------------*/ void hdf_term_destination(struct jpeg_compress_struct *cinfo_ptr) { hdf_dest_ptr dest=(hdf_dest_ptr)cinfo_ptr->dest; /* note that 'free_in_buffer' is size_t in the jpeg library */ int32 datacount = (int32)OUTPUT_BUF_SIZE - (int32)dest->pub.free_in_buffer; /* Write any data remaining in the buffer */ if (datacount > 0) { if (Hwrite(dest->aid, datacount, dest->buffer) != datacount) ERREXIT(cinfo_ptr, JERR_FILE_WRITE); } /* close the HDF object */ Hendaccess(dest->aid); /* Free the output buffer */ HDfree(dest->buffer); } /* end hdf_term_destination() */ /*----------------------------------------------------------------------------- * Name: jpeg_HDF_dest * Purpose: Setup an HDF I/O destination manager for the IJG library. * Inputs: * cinfo_ptr - JPEG compression structure pointer * file_id - HDF file ID for file we are opening * tag - HDF tag for image we are writing * ref - HDF ref for image we are writing * image - pointer to the image data to output * xdim,ydim - X & Y dimensions of image * scheme - the type of image to output * Returns: 0 on success, -1 on failure * Users: DFCIjpeg * Invokes: JPEG library routines (lots of them...) * Remarks: Sets up the destination manager functions for the JPEG library. * These routines will be called by the JPEG routines to output *---------------------------------------------------------------------------*/ intn jpeg_HDF_dest(struct jpeg_compress_struct *cinfo_ptr, int32 file_id, uint16 tag, uint16 ref, const void * image, int32 xdim, int32 ydim, int16 scheme) { CONSTR(FUNC, "jpeg_HDF_dest"); /* for HERROR */ hdf_dest_ptr dest; if((dest=HDmalloc(sizeof(hdf_destination_mgr)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); cinfo_ptr->dest=(struct jpeg_destination_mgr *)dest; dest->pub.init_destination = hdf_init_destination; dest->pub.empty_output_buffer = hdf_empty_output_buffer; dest->pub.term_destination = hdf_term_destination ; /* Now the HDF specific parameters */ dest->aid = 0; /* start with no AID */ dest->file_id = file_id; dest->tag = tag; dest->ref = ref; dest->image = image; dest->xdim = xdim; dest->ydim = ydim; dest->scheme = scheme; return(SUCCEED); } /* end jpeg_HDF_dest() */ /*----------------------------------------------------------------------------- * Name: jpeg_HDF_dest_term * Purpose: Terminate an HDF I/O destination manager for the IJG library. * Inputs: * cinfo_ptr - JPEG compression structure pointer * Returns: 0 on success, -1 on failure * Users: DFCIjpeg * Invokes: JPEG library routines (lots of them...) * Remarks: Terminates the destination manager functions for the JPEG library. *---------------------------------------------------------------------------*/ intn jpeg_HDF_dest_term(struct jpeg_compress_struct *cinfo_ptr) { /* all we need to do for now is to free up the dest. mgr structure */ HDfree(cinfo_ptr->dest); return(SUCCEED); } /* end jpeg_HDF_dest_term() */ /***********************************************************************/ /* HDF callable routine for writing out an image with JPEG compression */ /***********************************************************************/ /*----------------------------------------------------------------------------- * Name: DFCIjpeg * Purpose: compress an image using the JPEG compression algorithm * Inputs: * Returns: 0 on success, -1 on failure * Users: HDF programmers, DFputcomp, other routines * Invokes: JPEG library routines (lots of them...) * Remarks: Uses the JPEG library routines. The reason this routine doesn't * compress into a buffer (like IMCOMP and RLE methods) is because * the size of the buffer cannot be predicted before-hand and since * 24-bit images are already huge, I don't want to try allocating a * worst-case buffer. This means that this routine has to do the * writing of the compressed image itself, instead of allowing * DFputcomp() to write out the entire image at once. *---------------------------------------------------------------------------*/ intn DFCIjpeg(int32 file_id, uint16 tag, uint16 ref, int32 xdim, int32 ydim, const void * image, int16 scheme, comp_info * scheme_info) { CONSTR(FUNC, "DFCIjpeg"); /* for HERROR */ /* These three structs contain JPEG parameters and working data. * They must survive for the duration of parameter setup and one * call to jpeg_compress; typically, making them local data in the * calling routine is the best strategy. */ struct jpeg_compress_struct *cinfo_ptr; struct jpeg_error_mgr *jerr_ptr; JSAMPROW row_pointer[1]; intn row_stride; const uint8 *image_buffer=image; if((cinfo_ptr=HDcalloc(1,sizeof(struct jpeg_compress_struct)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); if((jerr_ptr=HDmalloc(sizeof(struct jpeg_error_mgr)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); /* Initialize the error-handling routines */ cinfo_ptr->err = jpeg_std_error(jerr_ptr); if (jpeg_message_handler != NULL) { jerr_ptr->output_message = jpeg_message_handler; } /* Initialize the JPEG compression stuff */ jpeg_create_compress(cinfo_ptr); /* Set-up HDF destination manager */ jpeg_HDF_dest(cinfo_ptr,file_id,tag,ref,image,xdim,ydim,scheme); /* Set up default JPEG parameters in the cinfo data structure. */ cinfo_ptr->image_width=(JDIMENSION)xdim; cinfo_ptr->image_height=(JDIMENSION)ydim; if((uint16)scheme==DFTAG_JPEG5) /* 24-bit image */ { cinfo_ptr->input_components=3; cinfo_ptr->in_color_space=JCS_RGB; row_stride=xdim*3; } /* end if */ else if((uint16)scheme==DFTAG_GREYJPEG5) /* 8-bit image */ { cinfo_ptr->input_components=1; cinfo_ptr->in_color_space=JCS_GRAYSCALE; row_stride=xdim; } /* end if */ else HRETURN_ERROR(DFE_ARGS,FAIL); jpeg_set_defaults(cinfo_ptr); /* Set up user JPEG parameters in the cinfo data structure. */ jpeg_set_quality(cinfo_ptr, scheme_info->jpeg.quality, (boolean)scheme_info->jpeg.force_baseline); /* OK, get things started */ jpeg_start_compress(cinfo_ptr,TRUE); /* write the whole image out at once */ while (cinfo_ptr->next_scanline < cinfo_ptr->image_height) { row_pointer[0]=(JSAMPROW)(&image_buffer[(size_t)cinfo_ptr->next_scanline * (size_t)row_stride]); jpeg_write_scanlines(cinfo_ptr,row_pointer,1); } /* end while */ /* Finish writing stuff out */ jpeg_finish_compress(cinfo_ptr); /* Get rid of the JPEG information */ jpeg_destroy_compress(cinfo_ptr); /* Wrap up any HDF specific code */ jpeg_HDF_dest_term(cinfo_ptr); /* Free update memory allocated */ HDfree(jerr_ptr); HDfree(cinfo_ptr); return (SUCCEED); /* we must be ok... */ } /* end DFCIjpeg() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfutil.c0000644000000000000000000000535712421456623014103 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfutil.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfutil.c * * Purpose: * General purpose utility routines, and callable versions of hdf utilities * * Invokes: * latest libdf.a * * Public functions: * DFUfindnextref - For this tag, find the ref after given ref * * Lower level functions: * * Private functions: * * Remarks: * This version assumes that all the values are floating point. *--------------------------------------------------------------------------*/ #include "hdf.h" /*----------------------------------------------------------------------------- * Name: DFfindnextref * Purpose: For this tag, find the ref after lref * Inputs: * file_id: handle to open HDF file * tag: tag to look for * lref: ref after which to search * Returns: The desired ref if success, and FAIL on failure * Users: HDF users, utilities, other routines * Invokes: HDvalidfid, * Remarks: *---------------------------------------------------------------------------*/ uint16 DFfindnextref(int32 file_id, uint16 tag, uint16 lref) { CONSTR(FUNC, "DFfindnextref"); uint16 newtag=DFTAG_NULL, newref=DFTAG_NULL; int32 aid; HEclear(); if (!HDvalidfid(file_id)) { HERROR(DFE_ARGS); return (uint16) FAIL; } aid = Hstartread(file_id, tag, lref); if (aid == FAIL) return (uint16) FAIL; if (lref != DFREF_WILDCARD) if (Hnextread(aid, tag, DFREF_WILDCARD, DF_CURRENT) == FAIL) return (uint16) FAIL; if (HQuerytagref(aid, &newtag, &newref) == FAIL) return (uint16) FAIL; Hendaccess(aid); return (newref); } libhdf4-4.2.10/HDF_ALT/hdf/src/hproto_fortran.h0000644000000000000000000017361512421456623015672 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hproto.h 4784 2006-11-21 04:49:51Z bmribler $ */ #ifndef _H_PROTO_FORTRAN #define _H_PROTO_FORTRAN #include "H4api_adpt.h" #include "df.h" #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from dfanF.c */ # define ndaiganl H4_F77_FUNC(daiganl, DAIGANL) # define ndaigann H4_F77_FUNC(daigann, DAIGANN) # define ndaipann H4_F77_FUNC(daipann, DAIPANN) # define ndailist H4_F77_FUNC(dailist, DAILIST) # define ndalref H4_F77_FUNC(dalref, DALREF) # define ndaclear H4_F77_FUNC(daclear, DACLEAR) # define ndfanlastref H4_F77_FUNC(dfanlastref, DFANLASTREF) # define ndfanaddfds H4_F77_FUNC(dfanaddfds, DFANADDFDS) # define ndfangetfidlen H4_F77_FUNC(dfangetfidlen, DFANGETFIDLEN) # define ndfangetfdslen H4_F77_FUNC(dfangetfdslen, DFANGETFDSLEN) # define ndfangetfid H4_F77_FUNC(dfangetfid, DFANGETFID) # define ndfangetfds H4_F77_FUNC(dfangetfds, DFANGETFDS) # define ndaafds H4_F77_FUNC(daafds, DAAFDS) # define ndagfidl H4_F77_FUNC(dagfidl, DAGFIDL) # define ndagfdsl H4_F77_FUNC(dagfdsl, DAGFDSL) # define ndagfid H4_F77_FUNC(dagfid, DAGFID) # define ndagfds H4_F77_FUNC(dagfds, DAGFDS) # define ndaiafid H4_F77_FUNC(daiafid, DAIAFID) HDFFCLIBAPI FRETVAL(intf) ndaiganl (_fcd filename, intf * tag, intf * ref, intf * type, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndaigann (_fcd filename, intf * tag, intf * ref, _fcd annotation, intf * maxlen, intf * type, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndaipann (_fcd filename, intf * tag, intf * ref, _fcd annotation, intf * annlen, intf * type, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndailist (_fcd filename, intf * tag, intf reflist[], _fcd labellist, intf * listsize, intf * maxlen, intf * startpos, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndalref (void); HDFFCLIBAPI FRETVAL(intf) ndaclear (void); HDFFCLIBAPI FRETVAL(intf) ndfanlastref (void); HDFFCLIBAPI FRETVAL(intf) ndfanaddfds (intf * dfile, _fcd desc, intf * desclen); HDFFCLIBAPI FRETVAL(intf) ndfangetfidlen (intf * dfile, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndfangetfdslen (intf * dfile, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndfangetfid (intf * dfile, _fcd id, intf * maxlen, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndfangetfds (intf * dfile, _fcd id, intf * maxlen, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndaafds (intf * dfile, _fcd desc, intf * desclen); HDFFCLIBAPI FRETVAL(intf) ndagfidl (intf * dfile, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndagfdsl (intf * dfile, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndagfid (intf * dfile, _fcd id, intf * maxlen, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndagfds (intf * dfile, _fcd id, intf * maxlen, intf * isfirst); HDFFCLIBAPI FRETVAL(intf) ndaiafid (intf * dfile, _fcd id, intf * idlen); /* ** from dfr8F.c */ # define nd8spal H4_F77_FUNC(d8spal, D8SPAL) # define nd8first H4_F77_FUNC(d8first, D8FIRST) # define nd8igdim H4_F77_FUNC(d8igdim, D8IGDIM) # define nd8igimg H4_F77_FUNC(d8igimg, D8IGIMG) # define nd8ipimg H4_F77_FUNC(d8ipimg, D8IPIMG) # define nd8iaimg H4_F77_FUNC(d8iaimg, D8IAIMG) # define nd8irref H4_F77_FUNC(d8irref, D8IRREF) # define nd8iwref H4_F77_FUNC(d8iwref, D8IWREF) # define nd8inims H4_F77_FUNC(d8inims, D8INIMS) # define nd8lref H4_F77_FUNC(d8lref, D8LREF) # define ndfr8lastref H4_F77_FUNC(dfr8lastref, DFR8LASTREF) # define ndfr8setpalette H4_F77_FUNC(dfr8setpalette, DFR8SETPALETTE) # define ndfr8restart H4_F77_FUNC(dfr8restart, DFR8RESTART) # define nd8scomp H4_F77_FUNC(d8scomp, D8SCOMP) # define ndfr8scompress H4_F77_FUNC(dfr8scompress, DFR8SCOMPRESS) # define nd8sjpeg H4_F77_FUNC(d8sjpeg, D8SJPEG) # define ndfr8sjpeg H4_F77_FUNC(dfr8sjpeg, DFR8SJPEG) HDFFCLIBAPI FRETVAL(intf) nd8spal (_fcd pal); HDFFCLIBAPI FRETVAL(intf) nd8first (void); HDFFCLIBAPI FRETVAL(intf) nd8igdim (_fcd filename, intf * xdim, intf * ydim, intf * ispal, intf * lenfn); HDFFCLIBAPI FRETVAL(intf) nd8igimg (_fcd filename, _fcd image, intf * xdim, intf * ydim, _fcd pal, intf * lenfn); HDFFCLIBAPI FRETVAL(intf) nd8ipimg (_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * compress, intf * lenfn); HDFFCLIBAPI FRETVAL(intf) nd8iaimg (_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * compress, intf * lenfn); HDFFCLIBAPI FRETVAL(intf) nd8irref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd8iwref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd8inims (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd8lref (void); HDFFCLIBAPI FRETVAL(intf) ndfr8lastref (void); HDFFCLIBAPI FRETVAL(intf) ndfr8setpalette (_fcd pal); HDFFCLIBAPI FRETVAL(intf) ndfr8restart (void); HDFFCLIBAPI FRETVAL(intf) nd8scomp (intf * scheme); HDFFCLIBAPI FRETVAL(intf) ndfr8scompress (intf * scheme); HDFFCLIBAPI FRETVAL(intf) nd8sjpeg (intf * quality, intf * force_baseline); HDFFCLIBAPI FRETVAL(intf) ndfr8sjpeg (intf * quality, intf * force_baseline); /* ** from dfsdF.c */ # define ndsgdast H4_F77_FUNC(dsgdast, DSGDAST) # define ndsgdisc H4_F77_FUNC(dsgdisc, DSGDISC) # define ndsgrang H4_F77_FUNC(dsgrang, DSGRANG) # define ndssdims H4_F77_FUNC(dssdims, DSSDIMS) # define ndssdisc H4_F77_FUNC(dssdisc, DSSDISC) # define ndssrang H4_F77_FUNC(dssrang, DSSRANG) # define ndsclear H4_F77_FUNC(dsclear, DSCLEAR) # define ndsslens H4_F77_FUNC(dsslens, DSSLENS) # define ndsgdiln H4_F77_FUNC(dsgdiln, DSGDILN) # define ndsgdaln H4_F77_FUNC(dsgdaln, DSGDALN) # define ndsfirst H4_F77_FUNC(dsfirst, DSFIRST) # define ndspslc H4_F77_FUNC(dspslc, DSPSLC) # define ndseslc H4_F77_FUNC(dseslc, DSESLC) # define ndsgnt H4_F77_FUNC(dsgnt, DSGNT) # define ndssnt H4_F77_FUNC(dssnt, DSSNT) # define ndsigdim H4_F77_FUNC(dsigdim, DSIGDIM) # define ndsigdat H4_F77_FUNC(dsigdat, DSIGDAT) # define ndsipdat H4_F77_FUNC(dsipdat, DSIPDAT) # define ndsiadat H4_F77_FUNC(dsiadat, DSIADAT) # define ndsigdas H4_F77_FUNC(dsigdas, DSIGDAS) # define ndsigslc H4_F77_FUNC(dsigslc, DSIGSLC) # define ndsigdis H4_F77_FUNC(dsigdis, DSIGDIS) # define ndsisslc H4_F77_FUNC(dsisslc, DSISSLC) # define ndsisdas H4_F77_FUNC(dsisdas, DSISDAS) # define ndsisdis H4_F77_FUNC(dsisdis, DSISDIS) # define ndsirref H4_F77_FUNC(dsirref, DSIRREF) # define ndslref H4_F77_FUNC(dslref, DSLREF) # define ndsinum H4_F77_FUNC(dsinum, DSINUM) # define ndsip32s H4_F77_FUNC(dsip32s, DSIP32S) # define ndsscal H4_F77_FUNC(dsscal, DSSCAL) # define ndsgcal H4_F77_FUNC(dsgcal, DSGCAL) # define ndfsdgetdatastrs H4_F77_FUNC(dfsdgetdatastrs, DFSDGETDATASTRS) # define ndfsdgetdimscale H4_F77_FUNC(dfsdgetdimscale, DFSDGETDIMSCALE) # define ndfsdgetrange H4_F77_FUNC(dfsdgetrange, DFSDGETRANGE) # define ndfsdsetdims H4_F77_FUNC(dfsdsetdims, DFSDSETDIMS) # define ndfsdsetdimscale H4_F77_FUNC(dfsdsetdimscale, DFSDSETDIMSCALE) # define ndfsdsetrange H4_F77_FUNC(dfsdsetrange, DFSDSETRANGE) # define ndfsdclear H4_F77_FUNC(dfsdclear, DFSDCLEAR) # define ndfsdsetlengths H4_F77_FUNC(dfsdsetlengths, DFSDSETLENGTHS) # define ndfsdgetdimlen H4_F77_FUNC(dfsdgetdimlen, DFSDGETDIMLEN) # define ndfsdgetdatalen H4_F77_FUNC(dfsdgetdatalen, DFSDGETDATALEN) # define ndfsdrestart H4_F77_FUNC(dfsdrestart, DFSDRESTART) # define ndfsdputslice H4_F77_FUNC(dfsdputslice, DFSDPUTSLICE) # define ndfsdendslice H4_F77_FUNC(dfsdendslice, DFSDENDSLICE) # define ndfsdsetnt H4_F77_FUNC(dfsdsetnt, DFSDSETNT) # define ndfsdgetnt H4_F77_FUNC(dfsdgetnt, DFSDGETNT) # define ndfsdlastref H4_F77_FUNC(dfsdlastref, DFSDLASTREF) # define ndsiwref H4_F77_FUNC(dsiwref, DSIWREF) # define ndssfill H4_F77_FUNC(dssfill, DSSFILL) # define ndsgfill H4_F77_FUNC(dsgfill, DSGFILL) # define ndsisslab H4_F77_FUNC(dsisslab, DSISSLAB) # define ndswslab H4_F77_FUNC(dswslab, DSWSLAB) # define ndseslab H4_F77_FUNC(dseslab, DSESLAB) # define ndsirslab H4_F77_FUNC(dsirslab, DSIRSLAB) HDFFCLIBAPI FRETVAL(intf) ndsgdisc (intf * dim, intf * maxsize, void * scale); HDFFCLIBAPI FRETVAL(intf) ndsgrang (void * pmax, void * pmin); HDFFCLIBAPI FRETVAL(intf) ndssdims (intf * rank, intf dimsizes[]); HDFFCLIBAPI FRETVAL(intf) ndssdisc (intf * dim, intf * dimsize, void * scale); HDFFCLIBAPI FRETVAL(intf) ndssrang (void * max, void * min); HDFFCLIBAPI FRETVAL(intf) ndsclear (void); HDFFCLIBAPI FRETVAL(intf) ndsslens (intf * maxlen_label, intf * maxlen_unit, intf * maxlen_format, intf * maxlen_coordsys); HDFFCLIBAPI FRETVAL(intf) ndsgdiln (intf * dim, intf * llabel, intf * lunit, intf * lformat); HDFFCLIBAPI FRETVAL(intf) ndsgdaln (intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys); HDFFCLIBAPI FRETVAL(intf) ndsfirst (void); HDFFCLIBAPI FRETVAL(intf) ndspslc (intf windims[], void * data, intf dims[]); HDFFCLIBAPI FRETVAL(intf) ndseslc (void); HDFFCLIBAPI FRETVAL(intf) ndssnt (intf * numbertype); HDFFCLIBAPI FRETVAL(intf) ndsgnt (intf * pnumbertype); HDFFCLIBAPI FRETVAL(intf) ndsigdim (_fcd filename, intf * prank, intf sizes[], intf * maxrank, intf * lenfn); HDFFCLIBAPI FRETVAL(intf) ndsigdat (_fcd filename, intf * rank, intf maxsizes[], void * data, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsipdat (_fcd filename, intf * rank, intf dimsizes[], void * data, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsiadat (_fcd filename, intf * rank, intf dimsizes[], void * data, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsigslc (_fcd filename, intf winst[], intf windims[], void * data, intf dims[], intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsisslc (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsirref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndslref (void); HDFFCLIBAPI FRETVAL(intf) ndsinum (_fcd filename, intf * len); HDFFCLIBAPI FRETVAL(intf) ndsip32s (_fcd filename, intf * ref, intf * ispre32, intf * len); HDFFCLIBAPI FRETVAL(intf) ndfsdgetdatastrs (_fcd label, _fcd unit, _fcd format, _fcd coordsys); HDFFCLIBAPI FRETVAL(intf) ndfsdgetdimstrs (intf * dim, _fcd label, _fcd unit, _fcd format); HDFFCLIBAPI FRETVAL(intf) ndfsdgetdimscale (intf * dim, intf * maxsize, void * scale); HDFFCLIBAPI FRETVAL(intf) ndfsdgetrange (void * pmax, void * pmin); HDFFCLIBAPI FRETVAL(intf) ndfsdsetdims (intf * rank, intf dimsizes[]); HDFFCLIBAPI FRETVAL(intf) ndfsdsetdimscale (intf * dim, intf * dimsize, void * scale); HDFFCLIBAPI FRETVAL(intf) ndfsdsetrange (void * max, void * min); HDFFCLIBAPI FRETVAL(intf) ndfsdclear (void); HDFFCLIBAPI FRETVAL(intf) ndfsdsetlengths (intf * maxlen_label, intf * maxlen_unit, intf * maxlen_format, intf * maxlen_coordsys); HDFFCLIBAPI FRETVAL(intf) ndfsdgetdimlen (intf * dim, intf * llabel, intf * lunit, intf * lformat); HDFFCLIBAPI FRETVAL(intf) ndfsdgetdatalen (intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys); HDFFCLIBAPI FRETVAL(intf) ndfsdrestart (void); HDFFCLIBAPI FRETVAL(intf) ndfsdputslice (intf windims[], void * data, intf dims[]); HDFFCLIBAPI FRETVAL(intf) ndfsdendslice (void); HDFFCLIBAPI FRETVAL(intf) ndfsdsetnt (intf * numbertype); HDFFCLIBAPI FRETVAL(intf) ndfsdgetnt (intf * pnumbertype); HDFFCLIBAPI FRETVAL(intf) ndfsdlastref (void); HDFFCLIBAPI FRETVAL(intf) ndsisdis (intf * dim, _fcd flabel, _fcd funit, _fcd fformat, intf * llabel, intf * lunit, intf * lformat); HDFFCLIBAPI FRETVAL(intf) ndsigdis (intf * dim, _fcd label, _fcd unit, _fcd format, intf * llabel, intf * lunit, intf * lformat); HDFFCLIBAPI FRETVAL(intf) ndsisdas (_fcd flabel, _fcd funit, _fcd fformat, _fcd fcoordsys, intf * isfortran, intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys); HDFFCLIBAPI FRETVAL(intf) ndsigdas (_fcd label, _fcd unit, _fcd format, _fcd coordsys, intf * llabel, intf * lunit, intf * lformat, intf * lcoord); HDFFCLIBAPI FRETVAL(intf) ndsscal (float64 * cal, float64 * cal_err, float64 * ioff, float64 * ioff_err, intf * cal_type); HDFFCLIBAPI FRETVAL(intf) ndsgcal (float64 * cal, float64 * cal_err, float64 * ioff, float64 * ioff_err, intf * cal_type); HDFFCLIBAPI FRETVAL(intf) ndswref (_fcd filename, intf * fnlen, intf * ref); HDFFCLIBAPI FRETVAL(intf) ndssfill (void * fill_value); HDFFCLIBAPI FRETVAL(intf) ndsgfill (void * fill_value); HDFFCLIBAPI FRETVAL(intf) ndssslab (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndswslab (intf start[], intf stride[], intf cont[], void * data); HDFFCLIBAPI FRETVAL(intf) ndseslab (void); HDFFCLIBAPI FRETVAL(intf) ndsiwref (_fcd filename, intf * fnlen, intf * ref); HDFFCLIBAPI FRETVAL(intf) ndsisslab (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndsirslab (_fcd filename, intf * fnlen, intf start[], intf slab_size[], intf stride[], void * buffer, intf buffer_size[]); /* ** from dfpF.c */ # define ndpigpal H4_F77_FUNC(dpigpal, DPIGPAL) # define ndpippal H4_F77_FUNC(dpippal, DPIPPAL) # define ndpinpal H4_F77_FUNC(dpinpal, DPINPAL) # define ndpiwref H4_F77_FUNC(dpiwref, DPIWREF) # define ndpirref H4_F77_FUNC(dpirref, DPIRREF) # define ndprest H4_F77_FUNC(dprest, DPREST) # define ndplref H4_F77_FUNC(dplref, DPLREF) # define ndfprestart H4_F77_FUNC(dfprestart, DFPRESTART) # define ndfplastref H4_F77_FUNC(dfplastref, DFPLASTREF) HDFFCLIBAPI FRETVAL(intf) ndpigpal (_fcd filename, _fcd pal, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndpippal (_fcd filename, _fcd pal, intf * overwrite, _fcd filemode, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndpinpal (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndpirref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndpiwref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) ndprest (void); HDFFCLIBAPI FRETVAL(intf) ndplref (void); HDFFCLIBAPI FRETVAL(intf) ndfprestart (void); HDFFCLIBAPI FRETVAL(intf) ndfplastref (void); /* ** from df24F.c */ # define nd2reqil H4_F77_FUNC(d2reqil, D2REQIL) # define ndf24reqil H4_F77_FUNC(df24reqil, DF24REQIL) # define nd2sdims H4_F77_FUNC(d2sdims, D2SDIMS) # define ndf24setdims H4_F77_FUNC(df24setdims, DF24SETDIMS) # define nd2setil H4_F77_FUNC(d2setil, D2SETIL) # define ndf24setil H4_F77_FUNC(df24setil, DF24SETIL) # define nd2first H4_F77_FUNC(d2first, D2FIRST) # define ndf24restart H4_F77_FUNC(df24restart, DF24RESTART) # define nd2igdim H4_F77_FUNC(d2igdim, D2IGDIM) # define nd2igimg H4_F77_FUNC(d2igimg, D2IGIMG) # define nd2iaimg H4_F77_FUNC(d2iaimg, D2IAIMG) # define nd2irref H4_F77_FUNC(d2irref, D2IRREF) # define nd2inimg H4_F77_FUNC(d2inimg, D2INIMG) # define nd2lref H4_F77_FUNC(d2lref, D2LREF) # define nd2scomp H4_F77_FUNC(d2scomp, D2SCOMP) # define ndf24scompress H4_F77_FUNC(df24scompress, DF24SCOMPRESS) # define nd2sjpeg H4_F77_FUNC(d2sjpeg, D2SJPEG) # define ndf24sjpeg H4_F77_FUNC(df24sjpeg, DF24SJPEG) HDFFCLIBAPI FRETVAL(intf) nd2reqil (intf * il); HDFFCLIBAPI FRETVAL(intf) nd2sdims (intf * xdim, intf * ydim); HDFFCLIBAPI FRETVAL(intf) nd2igdim (_fcd filename, intf * pxdim, intf * pydim, intf * pil, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd2igimg (_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd2iaimg (_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * fnlen, intf * newfile); HDFFCLIBAPI FRETVAL(intf) nd2setil (intf * il); HDFFCLIBAPI FRETVAL(intf) nd2first (void); HDFFCLIBAPI FRETVAL(intf) ndf24reqil (intf * il); HDFFCLIBAPI FRETVAL(intf) ndf24setdims (intf * xdim, intf * ydim); HDFFCLIBAPI FRETVAL(intf) ndf24setil (intf * il); HDFFCLIBAPI FRETVAL(intf) ndf24restart (void); HDFFCLIBAPI FRETVAL(intf) nd2irref (_fcd filename, intf * ref, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd2inimg (_fcd filename, intf * fnlen); HDFFCLIBAPI FRETVAL(intf) nd2lref (void); HDFFCLIBAPI FRETVAL(intf) nd2scomp (intf * scheme); HDFFCLIBAPI FRETVAL(intf) ndf24scompress (intf * scheme); HDFFCLIBAPI FRETVAL(intf) nd2sjpeg (intf * quality, intf * force_baseline); HDFFCLIBAPI FRETVAL(intf) ndf24sjpeg (intf * quality, intf * force_baseline); /* ** from dfF.c */ # define ndfiaccess H4_F77_FUNC(dfiaccess, DFIACCESS) # define ndfiopen H4_F77_FUNC(dfiopen, DFIOPEN) # define ndfclose H4_F77_FUNC(dfclose, DFCLOSE) # define ndfdesc H4_F77_FUNC(dfdesc, DFDESC) # define ndfdup H4_F77_FUNC(dfdup, DFDUP) # define ndfdel H4_F77_FUNC(dfdel, DFDEL) # define ndfstart H4_F77_FUNC(dfstart, DFSTART) # define ndfread H4_F77_FUNC(dfread, DFREAD) # define ndfseek H4_F77_FUNC(dfseek, DFSEEK) # define ndfwrite H4_F77_FUNC(dfwrite, DFWRITE) # define ndfupdate H4_F77_FUNC(dfupdate, DFUPDATE) # define ndfget H4_F77_FUNC(dfget, DFGET) # define ndfput H4_F77_FUNC(dfput, DFPUT) # define ndfsfind H4_F77_FUNC(dfsfind, DFSFIND) # define ndffind H4_F77_FUNC(dffind, DFFIND) # define ndferrno H4_F77_FUNC(dferrno, DFERRNO) # define ndfnewref H4_F77_FUNC(dfnewref, DFNEWREF) # define ndfnumber H4_F77_FUNC(dfnumber, DFNUMBER) # define ndfstat H4_F77_FUNC(dfstat, DFSTAT) # define ndfiishdf H4_F77_FUNC(dfiishdf, DFIISHDF) HDFFCLIBAPI FRETVAL(intf) ndfiopen (_fcd name, intf * acc_mode, intf * defdds, intf * namelen); HDFFCLIBAPI FRETVAL(intf) ndfclose (intf * dfile); HDFFCLIBAPI FRETVAL(intf) ndfdesc (intf * dfile, intf ptr[][4], intf * begin, intf * num); HDFFCLIBAPI FRETVAL(intf) ndfdup (intf * dfile, intf * tag, intf * ref, intf * otag, intf * oref); HDFFCLIBAPI FRETVAL(intf) ndfdel (intf * dfile, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) ndfiaccess (intf * dfile, intf * tag, intf * ref, _fcd acc_mode, intf * acclen); HDFFCLIBAPI FRETVAL(intf) ndfstart (intf * dfile, intf * tag, intf * ref, char * acc_mode); HDFFCLIBAPI FRETVAL(intf) ndfread (intf * dfile, _fcd ptr, intf * len); HDFFCLIBAPI FRETVAL(intf) ndfseek (intf * dfile, intf * offset); HDFFCLIBAPI FRETVAL(intf) ndfwrite (intf * dfile, _fcd ptr, intf * len); HDFFCLIBAPI FRETVAL(intf) ndfupdate (intf * dfile); HDFFCLIBAPI FRETVAL(intf) ndfget (intf * dfile, intf * tag, intf * ref, _fcd ptr); HDFFCLIBAPI FRETVAL(intf) ndfput (intf * dfile, intf * tag, intf * ref, _fcd ptr, intf * len); HDFFCLIBAPI FRETVAL(intf) ndfsfind (intf * dfile, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) ndffind (intf * dfile, intf * itag, intf * iref, intf * len); HDFFCLIBAPI FRETVAL(intf) ndferrno (void); HDFFCLIBAPI FRETVAL(intf) ndfnewref (intf * dfile); HDFFCLIBAPI FRETVAL(intf) ndfnumber (intf * dfile, intf * tag); HDFFCLIBAPI FRETVAL(intf) ndfstat (intf * dfile, DFdata * dfinfo); HDFFCLIBAPI FRETVAL(intf) ndfiishdf (_fcd name, intf * namelen); /* ** from dfutilF.c */ # define ndfindnr H4_F77_FUNC(dfindnr, DFINDNR) # define ndffindnextref H4_F77_FUNC(dffindnextref, DFFINDNEXTREF) HDFFCLIBAPI FRETVAL(intf) ndfindnr (intf * dfile, intf * tag, intf * lref); HDFFCLIBAPI FRETVAL(intf) ndffindnextref (intf * dfile, intf * tag, intf * lref); /* ** from herrF.c */ # define nheprnt H4_F77_FUNC(heprnt, HEPRNT) # define nheprntc H4_F77_FUNC(heprntc, HEPRNTC) # define nhestringc H4_F77_FUNC(hestringc, HESTRINGC) HDFFCLIBAPI FRETVAL(void) nheprnt (intf * print_levels); HDFFCLIBAPI FRETVAL(intf) nheprntc (_fcd filename, intf * print_levels, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nhestringc (intf *error_code,_fcd error_message, intf *len); /* ** from hfilef.c */ /* * Not all HDF4 Fortran functions are real Fortran functions, they are C wrappers called from a * Fortran program. Since on Windows we have to have a real Fortran function, additional C wrappers * were added at the time when Windows port was done for multi-file interfaces: for example, * hclose is a C wrapper on UNIX, while on Windows we have two functions: Fortran function hclose * and C wrapper function hiclose called by hclose * EIP 2007-09-14 */ # define nhiopen H4_F77_FUNC(hiopen, HIOPEN) # define nhclose H4_F77_FUNC(hclose, HCLOSE) # define nhnumber H4_F77_FUNC(hnumber, HNUMBER) # define nhxisdir H4_F77_FUNC(hxisdir, HXISDIR) # define nhxiscdir H4_F77_FUNC(hxiscdir, HXISCDIR) # define nhddontatexit H4_F77_FUNC(hddontatexit, HDDONTATEXIT) # define nhglibverc H4_F77_FUNC(hglibverc, HGLIBVERC) # define nhgfilverc H4_F77_FUNC(hgfilverc, HGFILVERC) # define nhiishdf H4_F77_FUNC(hiishdf, HIISHDF) # define nhconfinfc H4_F77_FUNC(hconfinfc, HCONFINFC) HDFFCLIBAPI FRETVAL(intf) nhiopen (_fcd name, intf * acc_mode, intf * defdds, intf * namelen); HDFFCLIBAPI FRETVAL(intf) nhclose (intf * file_id); HDFFCLIBAPI FRETVAL(intf) nhnumber (intf * file_id, intf * tag); HDFFCLIBAPI FRETVAL(intf) nhxisdir (_fcd dir, intf * dirlen); HDFFCLIBAPI FRETVAL(intf) nhxiscdir (_fcd dir, intf * dirlen); HDFFCLIBAPI FRETVAL(intf) nhddontatexit(void); HDFFCLIBAPI FRETVAL(intf) nhglibverc(intf *major_v, intf *minor_v, intf *release, _fcd string, intf *len); HDFFCLIBAPI FRETVAL(intf) nhgfilverc(intf *file_id, intf *major_v, intf *minor_v, intf *release, _fcd string, intf *len); HDFFCLIBAPI FRETVAL(intf) nhiishdf (_fcd name, intf * namelen); HDFFCLIBAPI FRETVAL(intf) nhiclose (intf * file_id); HDFFCLIBAPI FRETVAL(intf) nhinumbr (int32 file_id, uint16 tag); HDFFCLIBAPI FRETVAL(intf) nhconfinfc (intf *coder_type, intf *info); /* ** from dfufp2im.c */ # define nduif2i H4_F77_FUNC(duif2i, DUIF2I) HDFFCLIBAPI FRETVAL(int) nduif2i (int32 * hdim, int32 * vdim, float32 * max, float32 * min, float32 hscale[], float32 vscale[], float32 data[], _fcd palette, _fcd outfile, int * ct_method, int32 * hres, int32 * vres, int * compress, int * lenfn); HDFFCLIBAPI int DFUfptoimage (int32 hdim, int32 vdim, float32 max, float32 min, float32 * hscale, float32 * vscale, float32 * data, uint8 * palette, char * outfile, int ct_method, int32 hres, int32 vres, int compress); /* for Multi-file fortran Annotation inteface */ /* * Not all HDF4 Fortran functions are real Fortran functions, they are C wrappers called from a * Fortran program. Since on Windows we have to have a real Fortran function, additional C wrappers * were added at the time when Windows port was done for multi-file interfaces: for example, * hclose is a C wrapper on UNIX, while on Windows we have two functions: Fortran function hclose * and C wrapper function hiclose called by hclose * EIP 2007-09-14 */ # define nafstart H4_F77_FUNC(afstart, AFSTART) # define naffileinfo H4_F77_FUNC(affileinfo, AFFILEINFO) # define nafend H4_F77_FUNC(afend, AFEND) # define nafcreate H4_F77_FUNC(afcreate, AFCREATE) # define naffcreate H4_F77_FUNC(affcreate, AFFCREATE) # define nafselect H4_F77_FUNC(afselect, AFSELECT) # define nafnumann H4_F77_FUNC(afnumann, AFNUMANN) # define nafannlist H4_F77_FUNC(afannlist, AFANNLIST) # define nafannlen H4_F77_FUNC(afannlen, AFANNLEN) # define nafwriteann H4_F77_FUNC(afwriteann, AFWRITEANN) # define nafreadann H4_F77_FUNC(afreadann, AFREADANN) # define nafendaccess H4_F77_FUNC(afendaccess, AFENDACCESS) # define nafgettagref H4_F77_FUNC(afgettagref, AFGETTAGREF) # define nafidtagref H4_F77_FUNC(afidtagref, AFIDTAGREF) # define naftagrefid H4_F77_FUNC(aftagrefid, AFTAGREFID) # define nafatypetag H4_F77_FUNC(afatypetag, AFATYPETAG) # define naftagatype H4_F77_FUNC(aftagatype, AFTAGATYPE) /* Multi-file Annotation C-stubs for fortan interface found in mfanf.c */ HDFFCLIBAPI FRETVAL(intf) nafstart(intf *file_id); HDFFCLIBAPI FRETVAL(intf) naffileinfo(intf *an_id, intf *num_flabel, intf *num_fdesc, intf *num_olabel, intf *num_odesc); HDFFCLIBAPI FRETVAL(intf) nafend(intf *an_id); HDFFCLIBAPI FRETVAL(intf) nafcreate(intf *an_id, intf *etag, intf *eref, intf *atype); HDFFCLIBAPI FRETVAL(intf) naffcreate(intf *an_id, intf *atype); HDFFCLIBAPI FRETVAL(intf) nafselect(intf *an_id, intf *idx, intf *atype); HDFFCLIBAPI FRETVAL(intf) nafnumann(intf *an_id, intf *atype, intf *etag, intf *eref); HDFFCLIBAPI FRETVAL(intf) nafannlist(intf *an_id, intf *atype, intf *etag, intf *eref, intf alist[]); HDFFCLIBAPI FRETVAL(intf) nafannlen(intf *ann_id); HDFFCLIBAPI FRETVAL(intf) nafwriteann(intf *ann_id,_fcd ann, intf *annlen); HDFFCLIBAPI FRETVAL(intf) nafreadann(intf *ann_id,_fcd ann, intf *maxlen); HDFFCLIBAPI FRETVAL(intf) nafendaccess(intf *ann_id); HDFFCLIBAPI FRETVAL(intf) nafgettagref(intf *an_id, intf *idx, intf *type, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) nafidtagref(intf *ann_id, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) naftagrefid(intf *an_id, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) nafatypetag(intf *atype); HDFFCLIBAPI FRETVAL(intf) naftagatype(intf *tag); /* if defined Windows */ /* Multi-file Annotation C-stubs for fortan interface found in mfanf.c */ HDFFCLIBAPI FRETVAL(intf) nafistart(intf *file_id); HDFFCLIBAPI FRETVAL(intf) nafifinf(intf *an_id, intf *num_flabel, intf *num_fdesc, intf *num_olabel, intf *num_odesc); HDFFCLIBAPI FRETVAL(intf) nafiend(intf *an_id); HDFFCLIBAPI FRETVAL(intf) naficreat(intf *an_id, intf *etag, intf *eref, intf *atype); HDFFCLIBAPI FRETVAL(intf) nafifcreat(intf *an_id, intf *atype); HDFFCLIBAPI FRETVAL(intf) nafiselct(intf *an_id, intf *index, intf *atype); HDFFCLIBAPI FRETVAL(intf) nafinann(intf *an_id, intf *atype, intf *etag, intf *eref); HDFFCLIBAPI FRETVAL(intf) nafialst(intf *an_id, intf *atype, intf *etag, intf *eref, intf alist[]); HDFFCLIBAPI FRETVAL(intf) nafialen(intf *ann_id); HDFFCLIBAPI FRETVAL(intf) nafiwann(intf *ann_id,_fcd ann, intf *annlen); HDFFCLIBAPI FRETVAL(intf) nafirann(intf *ann_id,_fcd ann, intf *maxlen); HDFFCLIBAPI FRETVAL(intf) nafiendac(intf *ann_id); HDFFCLIBAPI FRETVAL(intf) nafigtr(intf *an_id, intf *index, intf *type, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) nafiid2tr(intf *ann_id, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) nafitr2id(intf *an_id, intf *tag, intf *ref); HDFFCLIBAPI FRETVAL(intf) nafitp2tg(intf *atype); HDFFCLIBAPI FRETVAL(intf) nafitg2tp(intf *tag); /* endif defined Windows */ /* Multi-file Annotation C-routines found in mfan.c */ HDFLIBAPI int32 ANstart(int32 file_id); HDFLIBAPI intn ANfileinfo(int32 an_id, int32 *n_file_label, int32 *n_file_desc, int32 *n_obj_label, int32 *n_obj_desc); HDFLIBAPI int32 ANend(int32 an_id); HDFLIBAPI int32 ANcreate(int32 an_id, uint16 elem_tag, uint16 elem_ref, ann_type type); HDFLIBAPI int32 ANcreatef(int32 an_id, ann_type type); HDFLIBAPI int32 ANselect(int32 an_id, int32 idx, ann_type type); HDFLIBAPI intn ANnumann(int32 an_id, ann_type type, uint16 elem_tag, uint16 elem_ref); HDFLIBAPI intn ANannlist(int32 an_id, ann_type type, uint16 elem_tag, uint16 elem_ref, int32 ann_list[]); HDFLIBAPI int32 ANannlen(int32 ann_id); HDFLIBAPI int32 ANwriteann(int32 ann_id, const char *ann, int32 annlen); HDFLIBAPI int32 ANreadann(int32 ann_id, char *ann, int32 maxlen); HDFLIBAPI intn ANendaccess(int32 ann_id); HDFLIBAPI int32 ANget_tagref(int32 an_id, int32 idx, ann_type type, uint16 *ann_tag, uint16 *ann_ref); HDFLIBAPI int32 ANid2tagref(int32 an_id, uint16 *ann_tag, uint16 *ann_ref); HDFLIBAPI int32 ANtagref2id(int32 an_id, uint16 ann_tag, uint16 ann_ref); HDFLIBAPI uint16 ANatype2tag(ann_type atype); HDFLIBAPI ann_type ANtag2atype(uint16 atag); /* Removed because this function is meant to be private. HDFLIBAPI intn ANdestroy(void); */ /* for Multi-file fortran GR interface */ /* * Not all HDF4 Fortran functions are real Fortran functions, they are C wrappers called from a * Fortran program. Since on Windows we have to have a real Fortran function, additional C wrappers * were added at the time when Windows port was done for multi-file interfaces: for example, * hclose is a C wrapper on UNIX, while on Windows we have two functions: Fortran function hclose * and C wrapper function hiclose called by hclose * EIP 2007-09-14 */ # define nmgstart H4_F77_FUNC(mgstart, MGSTART) # define nmgfinfo H4_F77_FUNC(mgfinfo, MGFINFO) # define nmgend H4_F77_FUNC(mgend, MGEND) # define nmgicreat H4_F77_FUNC(mgicreat, MGICREAT) # define nmgselct H4_F77_FUNC(mgselct, MGSELCT) # define nmgin2ndx H4_F77_FUNC(mgin2ndx, MGIN2NDX) # define nmggiinf H4_F77_FUNC(mggiinf, MGGIINF) # define nmgwcimg H4_F77_FUNC(mgwcimg, MGWCIMG) # define nmgrcimg H4_F77_FUNC(mgrcimg, MGRCIMG) # define nmgwrimg H4_F77_FUNC(mgwrimg, MGWRIMG) # define nmgrdimg H4_F77_FUNC(mgrdimg, MGRDIMG) # define nmgendac H4_F77_FUNC(mgendac, MGENDAC) # define nmgid2rf H4_F77_FUNC(mgid2rf, MGID2RF) # define nmgr2idx H4_F77_FUNC(mgr2idx, MGR2IDX) # define nmgrltil H4_F77_FUNC(mgrltil, MGRLTIL) # define nmgrimil H4_F77_FUNC(mgrimil, MGRIMIL) # define nmggltid H4_F77_FUNC(mggltid, MGGLTID) # define nmgglinf H4_F77_FUNC(mgglinf, MGGLINF) # define nmgwrlut H4_F77_FUNC(mgwrlut, MGWRLUT) # define nmgwclut H4_F77_FUNC(mgwclut, MGWCLUT) # define nmgrdlut H4_F77_FUNC(mgrdlut, MGRDLUT) # define nmgrclut H4_F77_FUNC(mgrclut, MGRCLUT) # define nmgisxfil H4_F77_FUNC(mgisxfil, MGISXFIL) # define nmgiscatt H4_F77_FUNC(mgiscatt, MGISCATT) # define nmgisattr H4_F77_FUNC(mgisattr, MGISATTR) # define nmgatinf H4_F77_FUNC(mgatinf, MGATINF) # define nmggcatt H4_F77_FUNC(mggcatt, MGGCATT) # define nmggnatt H4_F77_FUNC(mggnatt, MGGNATT) # define nmggattr H4_F77_FUNC(mggattr, MGGATTR) # define nmgifndat H4_F77_FUNC(mgifndat, MGIFNDAT) # define nmgcgichnk H4_F77_FUNC(mgcgichnk, MGCGICHNK) # define nmgcrcchnk H4_F77_FUNC(mgcrcchnk, MGCRCCHNK) # define nmgcrchnk H4_F77_FUNC(mgcrchnk, MGCRCHNK) # define nmgcscchnk H4_F77_FUNC(mgcscchnk, MGCSCCHNK) # define nmgcschnk H4_F77_FUNC(mgcschnk, MGCSCHNK) # define nmgcwcchnk H4_F77_FUNC(mgcwcchnk, MGCWCCHNK) # define nmgcwchnk H4_F77_FUNC(mgcwchnk, MGCWCHNK) # define nmgcscompress H4_F77_FUNC(mgcscompress, MGCSCOMPRESS) # define nmgcgcompress H4_F77_FUNC(mgcgcompress, MGCGCOMPRESS) # define nmglt2rf H4_F77_FUNC(mglt2rf, MGLT2RF) # define nmgcgnluts H4_F77_FUNC(mgcgnluts, MGCGNLUTS) /* Multi-file GR C-stubs for FORTRAN interface found in mfgrf.c */ HDFFCLIBAPI FRETVAL(intf) /* !sl */ nmgiwimg(intf * riid, intf *start, intf *stride, intf *count, VOIDP data); HDFFCLIBAPI FRETVAL(intf) /* !sl */ nmgirimg(intf * riid, intf *start, intf *stride, intf *count, VOIDP data); HDFFCLIBAPI FRETVAL(intf) /* !sl */ nmgignat(intf * riid, intf *idx, VOIDP data); HDFFCLIBAPI FRETVAL(intf) nmgstart(intf * fid); HDFFCLIBAPI FRETVAL(intf) nmgfinfo(intf * grid,intf *n_datasets,intf *n_attrs); HDFFCLIBAPI FRETVAL(intf) nmgend(intf * grid); HDFFCLIBAPI FRETVAL(intf) nmgicreat(intf * grid, _fcd name, intf *ncomp, intf *nt, intf *il, intf dimsizes[2], intf *nlen); HDFFCLIBAPI FRETVAL(intf) nmgselct(intf * grid, intf *idx); HDFFCLIBAPI FRETVAL(intf) nmgin2ndx(intf * grid, _fcd name, intf *nlen); HDFFCLIBAPI FRETVAL(intf) nmggiinf(intf * riid, _fcd name, intf *ncomp, intf *nt, intf *il, intf *dimsizes, intf *nattr); HDFFCLIBAPI FRETVAL(intf) nmgwcimg(intf * riid, intf *start, intf *stride, intf *count, _fcd data); HDFFCLIBAPI FRETVAL(intf) nmgrcimg(intf * riid, intf *start, intf *stride, intf *count, _fcd data); HDFFCLIBAPI FRETVAL(intf) nmgwrimg(intf * riid, intf *start, intf *stride, intf *count, void * data); HDFFCLIBAPI FRETVAL(intf) nmgrdimg(intf * riid, intf *start, intf *stride, intf *count, void * data); HDFFCLIBAPI FRETVAL(intf) nmgendac(intf * riid); HDFFCLIBAPI FRETVAL(intf) nmgid2rf(intf * riid); HDFFCLIBAPI FRETVAL(intf) nmgr2idx(intf * grid, intf *ref); HDFFCLIBAPI FRETVAL(intf) nmgrltil(intf * riid, intf *il); HDFFCLIBAPI FRETVAL(intf) nmgrimil(intf * riid, intf *il); HDFFCLIBAPI FRETVAL(intf) nmggltid(intf * riid, intf *lut_index); HDFFCLIBAPI FRETVAL(intf) nmgglinf(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries); HDFFCLIBAPI FRETVAL(intf) nmgwrlut(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries, void * data); HDFFCLIBAPI FRETVAL(intf) nmgwclut(intf * lutid, intf *ncomp, intf *nt, intf *il, intf *nentries, _fcd data); HDFFCLIBAPI FRETVAL(intf) nmgrdlut(intf * lutid, void * data); HDFFCLIBAPI FRETVAL(intf) nmgrclut(intf * lutid, _fcd data); HDFFCLIBAPI FRETVAL(intf) nmgisxfil(intf * riid, _fcd filename, intf *offset, intf *nlen); HDFFCLIBAPI FRETVAL(intf) nmgsactp(intf * riid, intf *accesstype); HDFFCLIBAPI FRETVAL(intf) nmgiscatt(intf * riid, _fcd name, intf *nt, intf *count, _fcd data, intf *nlen); HDFFCLIBAPI FRETVAL(intf) nmgisattr(intf * riid, _fcd name, intf *nt, intf *count, void * data, intf *nlen); HDFFCLIBAPI FRETVAL(intf) nmgatinf(intf * riid, intf *idx, _fcd name, intf *nt, intf *count); HDFFCLIBAPI FRETVAL(intf) nmggcatt(intf * riid, intf *idx, _fcd data); HDFFCLIBAPI FRETVAL(intf) nmggnatt(intf * riid, intf *idx, void * data); HDFFCLIBAPI FRETVAL(intf) nmggattr(intf * riid, intf *idx, void * data); HDFFCLIBAPI FRETVAL(intf) nmgifndat(intf * riid, _fcd name, intf *nlen); HDFFCLIBAPI FRETVAL (intf) nmgcgichnk(intf *id, intf *dim_length, intf *flags); HDFFCLIBAPI FRETVAL (intf) nmgcrcchnk(intf *id, intf *start, _fcd char_data); HDFFCLIBAPI FRETVAL (intf) nmgcrchnk(intf *id, intf *start, VOIDP num_data); HDFFCLIBAPI FRETVAL (intf) nmgcscchnk(intf *id, intf *maxcache, intf *flags); HDFFCLIBAPI FRETVAL (intf) nmgcschnk(intf *id, intf *dim_length, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL (intf) nmgcwcchnk(intf *id, intf *start, _fcd char_data); HDFFCLIBAPI FRETVAL (intf) nmgcwchnk(intf *id, intf *start, VOIDP num_data); HDFFCLIBAPI FRETVAL (intf) nmgcscompress(intf *id, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL (intf) nmgcgcompress(intf *id, intf *comp_type, intf *comp_prm); HDFFCLIBAPI FRETVAL (intf) nmglt2rf(intf *id); HDFFCLIBAPI FRETVAL (intf) nmgcgnluts(intf *id); /* ** from vgF.c */ /* * Not all HDF4 Fortran functions are real Fortran functions, they are C wrappers called from a * Fortran program. Since on Windows we have to have a real Fortran function, additional C wrappers * were added at the time when Windows port was done for multi-file interfaces: for example, * hclose is a C wrapper on UNIX, while on Windows we have two functions: Fortran function hclose * and C wrapper function hiclose called by hclose * EIP 2007-09-14 */ # define ndfivopn H4_F77_FUNC(dfivopn, DFIVOPN) # define ndfvclos H4_F77_FUNC(dfvclos, DFVCLOS) # define nvatchc H4_F77_FUNC(vatchc, VATCHC) # define nvdtchc H4_F77_FUNC(vdtchc, VDTCHC) # define nvgnamc H4_F77_FUNC(vgnamc, VGNAMC) # define nvgclsc H4_F77_FUNC(vgclsc, VGCLSC) # define nvinqc H4_F77_FUNC(vinqc, VINQC) # define nvdeletec H4_F77_FUNC(vdeletec, VDELETEC) # define nvgidc H4_F77_FUNC(vgidc, VGIDC) # define nvgnxtc H4_F77_FUNC(vgnxtc, VGNXTC) # define nvsnamc H4_F77_FUNC(vsnamc, VSNAMC) # define nvsclsc H4_F77_FUNC(vsclsc, VSCLSC) # define nvinsrtc H4_F77_FUNC(vinsrtc, VINSRTC) # define nvisvgc H4_F77_FUNC(visvgc, VISVGC) # define nvisvsc H4_F77_FUNC(visvsc, VISVSC) # define nvsatchc H4_F77_FUNC(vsatchc, VSATCHC) # define nvsdtchc H4_F77_FUNC(vsdtchc, VSDTCHC) # define nvsqref H4_F77_FUNC(vsqref, VSQREF) # define nvsqtag H4_F77_FUNC(vsqtag, VSQTAG) # define nvsgver H4_F77_FUNC(vsgver, VSGVER) # define nvsseekc H4_F77_FUNC(vsseekc, VSSEEKC) # define nvsgnamc H4_F77_FUNC(vsgnamc, VSGNAMC) # define nvsgclsc H4_F77_FUNC(vsgclsc, VSGCLSC) # define nvsinqc H4_F77_FUNC(vsinqc, VSINQC) # define nvsfexc H4_F77_FUNC(vsfexc, VSFEXC) # define nvsfndc H4_F77_FUNC(vsfndc, VSFNDC) # define nvsgidc H4_F77_FUNC(vsgidc, VSGIDC) # define nvsdltc H4_F77_FUNC(vsdltc, VSDLTC) # define nvsapp H4_F77_FUNC(vsapp, VSAPP) # define nvssnamc H4_F77_FUNC(vssnamc, VSSNAMC) # define nvssclsc H4_F77_FUNC(vssclsc, VSSCLSC) # define nvssfldc H4_F77_FUNC(vssfldc, VSSFLDC) # define nvssintc H4_F77_FUNC(vssintc, VSSINTC) # define nvsfdefc H4_F77_FUNC(vsfdefc, VSFDEFC) # define nvssextfc H4_F77_FUNC(vssextfc, VSSEXTFC) # define nvfnflds H4_F77_FUNC(vfnflds, VFNFLDS) # define nvffnamec H4_F77_FUNC(vffnamec, VFFNAMEC) # define nvfftype H4_F77_FUNC(vfftype, VFFTYPE) # define nvffisiz H4_F77_FUNC(vffisiz, VFFISIZ) # define nvffesiz H4_F77_FUNC(vffesiz, VFFESIZ) # define nvffordr H4_F77_FUNC(vffordr, VFFORDR) # define nvsfrdc H4_F77_FUNC(vsfrdc, VSFRDC) # define nvsfrd H4_F77_FUNC(vsfrd, VSFRD) # define nvsreadc H4_F77_FUNC(vsreadc, VSREADC) # define nvsfwrt H4_F77_FUNC(vsfwrt, VSFWRT) # define nvsfwrtc H4_F77_FUNC(vsfwrtc, VSFWRTC) # define nvswritc H4_F77_FUNC(vswritc, VSWRITC) # define nvsgintc H4_F77_FUNC(vsgintc, VSGINTC) # define nvseltsc H4_F77_FUNC(vseltsc, VSELTSC) # define nvsgfldc H4_F77_FUNC(vsgfldc, VSGFLDC) # define nvssizc H4_F77_FUNC(vssizc, VSSIZC) # define nventsc H4_F77_FUNC(ventsc, VENTSC) # define nvlonec H4_F77_FUNC(vlonec, VLONEC) # define nvslonec H4_F77_FUNC(vslonec, VSLONEC) # define nvfindc H4_F77_FUNC(vfindc, VFINDC) # define nvfndclsc H4_F77_FUNC(vfndclsc, VFNDCLSC) # define nvhscdc H4_F77_FUNC(vhscdc, VHSCDC) # define nvhsdc H4_F77_FUNC(vhsdc, VHSDC) # define nvhscdmc H4_F77_FUNC(vhscdmc, VHSCDMC) # define nvhsdmc H4_F77_FUNC(vhsdmc, VHSDMC) # define nvhmkgpc H4_F77_FUNC(vhmkgpc, VHMKGPC) # define nvflocc H4_F77_FUNC(vflocc, VFLOCC) # define nvinqtrc H4_F77_FUNC(vinqtrc, VINQTRC) # define nvntrc H4_F77_FUNC(vntrc, VNTRC) # define nvnrefs H4_F77_FUNC(vnrefs, VNREFS) # define nvgttrsc H4_F77_FUNC(vgttrsc, VGTTRSC) # define nvqref H4_F77_FUNC(vqref, VQREF) # define nvqtag H4_F77_FUNC(vqtag, VQTAG) # define nvgttrc H4_F77_FUNC(vgttrc, VGTTRC) # define nvadtrc H4_F77_FUNC(vadtrc, VADTRC) # define nvfstart H4_F77_FUNC(vfstart, VFSTART) # define nvfend H4_F77_FUNC(vfend, VFEND) # define nvsqfnelt H4_F77_FUNC(vsqfnelt, VSQFNELT) # define nvsqfintr H4_F77_FUNC(vsqfintr, VSQFINTR) # define nvsqfldsc H4_F77_FUNC(vsqfldsc, VSQFLDSC) # define nvsqfvsiz H4_F77_FUNC(vsqfvsiz, VSQFVSIZ) # define nvsqnamec H4_F77_FUNC(vsqnamec, VSQNAMEC) # define nvsfccpk H4_F77_FUNC(vsfccpk, VSFCCPK) # define nvsfncpk H4_F77_FUNC(vsfncpk, VSFNCPK) # define nvdtrc H4_F77_FUNC(vdtrc, VDTRC) # define nvscfcls H4_F77_FUNC(vscfcls, VSCFCLS) # define nvscsetblsz H4_F77_FUNC(vscsetblsz, VSCSETBLSZ) # define nvscsetnmbl H4_F77_FUNC(vscsetnmbl, VSCSETNMBL) # define nvscgblinfo H4_F77_FUNC(vscgblinfo, VSCGBLINFO) # define nvcgvgrp H4_F77_FUNC(vcgvgrp, VCGVGRP) # define nvscgvdatas H4_F77_FUNC(vscgvdatas, VSCGVDATAS) HDFFCLIBAPI FRETVAL(intf) ndfivopn (_fcd filename, intf * acc_mode, intf * defdds, intf * namelen); HDFFCLIBAPI FRETVAL(intf) ndfvclos (intf * file_id); HDFFCLIBAPI FRETVAL(intf) nvatchc (intf * f, intf * vgid, _fcd accesstype); HDFFCLIBAPI FRETVAL(intf) nvdtchc (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvgnamc (intf * vkey, _fcd vgname); HDFFCLIBAPI FRETVAL(intf) nvgclsc (intf * vkey, _fcd vgclass); HDFFCLIBAPI FRETVAL(intf) nvinqc (intf * vkey, intf * nentries, _fcd vgname); HDFFCLIBAPI FRETVAL(intf) nvdeletec (intf *f, intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvgidc (intf * f, intf * vgid); HDFFCLIBAPI FRETVAL(intf) nvgnxtc (intf * vkey, intf * id); HDFFCLIBAPI FRETVAL(intf) nvsnamc (intf * vkey, _fcd vgname, intf * vgnamelen); HDFFCLIBAPI FRETVAL(intf) nvsclsc (intf * vkey, _fcd vgclass, intf * vgclasslen); HDFFCLIBAPI FRETVAL(intf) nvinsrtc (intf * vkey, intf * vobjptr); HDFFCLIBAPI FRETVAL(intf) nvisvgc (intf * vkey, intf * id); HDFFCLIBAPI FRETVAL(intf) nvfstart (intf * f); HDFFCLIBAPI FRETVAL(intf) nvfend (intf * f); HDFFCLIBAPI FRETVAL(intf) nvisvsc (intf * vkey, intf * id); HDFFCLIBAPI FRETVAL(intf) nvsatchc (intf * f, intf * vsref, _fcd accesstype); HDFFCLIBAPI FRETVAL(intf) nvsdtchc (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsqref (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsqtag (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsgver (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsseekc (intf * vkey, intf * eltpos); HDFFCLIBAPI FRETVAL(intf) nvsgnamc (intf * vkey, _fcd vsname, intf *vsnamelen); HDFFCLIBAPI FRETVAL(intf) nvsgclsc (intf * vkey, _fcd vsclass, intf *vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvsinqc (intf * vkey, intf * nelt, intf * interlace, _fcd fields, intf * eltsize, _fcd vsname, intf *fieldslen, intf *vsnamelen); HDFFCLIBAPI FRETVAL(intf) nvsfexc (intf * vkey, _fcd fields, intf * fieldslen); HDFFCLIBAPI FRETVAL(intf) nvsfndc (intf * f, _fcd name, intf * namelen); HDFFCLIBAPI FRETVAL(intf) nvsgidc (intf * f, intf * vsref); HDFFCLIBAPI FRETVAL(intf) nvsdltc (intf * f, intf * vsref); HDFFCLIBAPI FRETVAL(intf) nvsapp (intf * vkey, intf *blk); HDFFCLIBAPI FRETVAL(intf) nvssnamc (intf * vkey, _fcd vsname, intf * vsnamelen); HDFFCLIBAPI FRETVAL(intf) nvssclsc (intf * vkey, _fcd vsclass, intf * vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvssfldc (intf * vkey, _fcd fields, intf * fieldslen); HDFFCLIBAPI FRETVAL(intf) nvssintc (intf * vkey, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfdefc (intf * vkey, _fcd field, intf * localtype, intf * order, intf * fieldlen); HDFFCLIBAPI FRETVAL(intf) nvssextfc (intf * vkey, _fcd fname, intf * offset, intf * fnamelen); HDFFCLIBAPI FRETVAL(intf) nvfnflds (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvffnamec (intf * vkey, intf *idx, _fcd fname, intf *len); HDFFCLIBAPI FRETVAL(intf) nvfftype (intf * vkey, intf *idx); HDFFCLIBAPI FRETVAL(intf) nvffisiz (intf * vkey, intf *idx); HDFFCLIBAPI FRETVAL(intf) nvffesiz (intf * vkey, intf *idx); HDFFCLIBAPI FRETVAL(intf) nvffordr (intf * vkey, intf *idx); HDFFCLIBAPI FRETVAL(intf) nvsfrdc (intf * vkey, _fcd cbuf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfrd (intf * vkey, intf * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsreadc (intf * vkey, uint8 * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfwrtc (intf * vkey, _fcd cbuf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfwrt (intf * vkey, intf * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvswritc (intf * vkey, uint8 * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsgintc (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvseltsc (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsgfldc (intf * vkey, _fcd fields); HDFFCLIBAPI FRETVAL(intf) nvssizc (intf * vkey, _fcd fields, intf * fieldslen); HDFFCLIBAPI FRETVAL(intf) nventsc (intf * f, intf * vgid); HDFFCLIBAPI FRETVAL(intf) nvlonec (intf * f, intf * idarray, intf * asize); HDFFCLIBAPI FRETVAL(intf) nvslonec (intf * f, intf * idarray, intf * asize); HDFFCLIBAPI FRETVAL(intf) nvfindc (intf * f, _fcd name, intf * namelen); HDFFCLIBAPI FRETVAL(intf) nvfndclsc (intf * f, _fcd vgclass, intf * classlen); HDFFCLIBAPI FRETVAL(intf) nvhscdc (intf * f, _fcd field, _fcd cbuf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * fieldlen, intf * vsnamelen, intf * vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvhsdc (intf * f, _fcd field, uint8 * buf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * fieldlen, intf * vsnamelen, intf * vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvhscdmc (intf * f, _fcd field, _fcd cbuf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * order, intf * fieldlen, intf * vsnamelen, intf * vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvhsdmc (intf * f, _fcd field, uint8 * buf, intf * n, intf * datatype, _fcd vsname, _fcd vsclass, intf * order, intf * fieldlen, intf * vsnamelen, intf * vsclasslen); HDFFCLIBAPI FRETVAL(intf) nvhmkgpc (intf * f, intf * tagarray, intf * refarray, intf * n, _fcd vgname, _fcd vgclass, intf * vgnamelen, intf * vgclasslen); HDFFCLIBAPI FRETVAL(intf) nvflocc (intf * vkey, _fcd field, intf * fieldlen); HDFFCLIBAPI FRETVAL(intf) nvinqtrc (intf * vkey, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) nvntrc (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvnrefs (intf * vkey, intf *tag); HDFFCLIBAPI FRETVAL(intf) nvqref (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvqtag (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvgttrsc (intf * vkey, intf * tagarray, intf * refarray, intf * n); HDFFCLIBAPI FRETVAL(intf) nvgttrc (intf * vkey, intf * which, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) nvadtrc (intf * vkey, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) nvdtrc (intf * vkey, intf * tag, intf * ref); HDFFCLIBAPI FRETVAL(intf) nvsqfnelt (intf * vkey, intf * nelt); HDFFCLIBAPI FRETVAL(intf) nvsqfintr (intf * vkey, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsqfldsc (intf * vkey, _fcd fields, intf *fieldslen); HDFFCLIBAPI FRETVAL(intf) nvsqfvsiz (intf * vkey, intf * size); HDFFCLIBAPI FRETVAL(intf) nvsqnamec (intf * vkey, _fcd name, intf *namelen); HDFFCLIBAPI FRETVAL(intf) nvsfccpk (intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld, _fcd fldbuf, intf *buflds_len, intf *fld_len); HDFFCLIBAPI FRETVAL(intf) nvsfncpk (intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld, intf *fldbuf, intf *buflds_len, intf *fld_len); HDFFCLIBAPI FRETVAL(intf) nvscsetblsz (intf *id, intf *block_size); HDFFCLIBAPI FRETVAL(intf) nvscsetnmbl (intf *id, intf *num_blocks); HDFFCLIBAPI FRETVAL(intf) nvscgblinfo (intf *id, intf *block_size, intf *num_blocks); HDFFCLIBAPI FRETVAL(intf) nvcgvgrp (intf *id, intf *start_vg, intf *vg_count, intf *refarray); HDFFCLIBAPI FRETVAL(intf) nvscgvdatas (intf *id, intf *start_vd, intf *vd_count, intf *refarray); HDFFCLIBAPI FRETVAL(intf) nvscfcls (intf * id, _fcd name, intf * namelen); HDFFCLIBAPI FRETVAL(intf) nvfistart (intf * f); HDFFCLIBAPI FRETVAL(intf) nvfiend (intf * f); HDFFCLIBAPI FRETVAL(intf) nvsiqref (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsiqtag (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsigver (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvfinflds (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvfifnm (intf * vkey, intf *index, _fcd fname); HDFFCLIBAPI FRETVAL(intf) nvfiftp (intf * vkey, intf *index); HDFFCLIBAPI FRETVAL(intf) nvfifisz (intf * vkey, intf *index); HDFFCLIBAPI FRETVAL(intf) nvfifesz (intf * vkey, intf *index); HDFFCLIBAPI FRETVAL(intf) nvfifodr (intf * vkey, intf *index); HDFFCLIBAPI FRETVAL(intf) nvsfirdc (intf * vkey, _fcd cbuf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfird (intf * vkey, intf * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfiwrc (intf * vkey, _fcd cbuf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvsfiwr (intf * vkey, intf * buf, intf * nelt, intf * interlace); HDFFCLIBAPI FRETVAL(intf) nvfirefs (intf * vkey, intf *tag); HDFFCLIBAPI FRETVAL(intf) nvfiqref (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvfiqtag (intf * vkey); HDFFCLIBAPI FRETVAL(intf) nvsiqnelt (intf * vkey, intf *nelt); HDFFCLIBAPI FRETVAL(intf) nvsiqintr (intf * vkey, intf *interlace); HDFFCLIBAPI FRETVAL(intf) nvsqfldsc (intf * vkey, _fcd fields, intf *fieldslen); HDFFCLIBAPI FRETVAL(intf) nvsiqvsz (intf * vkey, intf *ret_size); /* ** from vattrf.c */ /* * Not all HDF4 Fortran functions are real Fortran functions, they are C wrappers called from a * Fortran program. Since on Windows we have to have a real Fortran function, additional C wrappers * were added at the time when Windows port was done for multi-file interfaces: for example, * hclose is a C wrapper on UNIX, while on Windows we have two functions: Fortran function hclose * and C wrapper function hiclose called by hclose * EIP 2007-09-14 */ # define nvsfcfdx H4_F77_FUNC(vsfcfdx, VSFCFDX) # define nvsfcsat H4_F77_FUNC(vsfcsat, VSFCSAT) # define nvsfcsca H4_F77_FUNC(vsfcsca, VSFCSCA) # define nvsfnats H4_F77_FUNC(vsfnats, VSFNATS) # define nvsffnas H4_F77_FUNC(vsffnas, VSFFNAS) # define nvsfcfda H4_F77_FUNC(vsfcfda, VSFCFDA) # define nvsfcain H4_F77_FUNC(vsfcain, VSFCAIN) # define nvsfgnat H4_F77_FUNC(vsfgnat, VSFGNAT) # define nvsfgcat H4_F77_FUNC(vsfgcat, VSFGCAT) # define nvsfisat H4_F77_FUNC(vsfisat, VSFISAT) # define nvfcsatt H4_F77_FUNC(vfcsatt, VFCSATT) # define nvfcscat H4_F77_FUNC(vfcscat, VFCSCAT) # define nvfnatts H4_F77_FUNC(vfnatts, VFNATTS) # define nvfcfdat H4_F77_FUNC(vfcfdat, VFCFDAT) # define nvfainfo H4_F77_FUNC(vfainfo, VFAINFO) # define nvfgnatt H4_F77_FUNC(vfgnatt, VFGNATT) # define nvfgcatt H4_F77_FUNC(vfgcatt, VFGCATT) # define nvfgver H4_F77_FUNC(vfgver, VFGVER) HDFFCLIBAPI FRETVAL(intf) nvsfcfdx (intf *vsid, _fcd fldnm, intf *findex, intf *fldnmlen); HDFFCLIBAPI FRETVAL(intf) nvsfcsat (intf *vsid, intf *findex, _fcd attrnm, intf *dtype, intf *count, intf *values, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvsfcsca (intf *vsid, intf *findex, _fcd attrnm, intf *dtype, intf *count, _fcd values, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvsfnats (intf *vsid); HDFFCLIBAPI FRETVAL(intf) nvsffnas (intf *vsid, intf *findex); HDFFCLIBAPI FRETVAL(intf) nvsfcfda (intf *vsid, intf *findex, _fcd attrnm, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvsfcain (intf *vsid, intf *findex, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size, intf *attrnamelen); HDFFCLIBAPI FRETVAL(intf) nvsfgnat (intf *vsid, intf *findex, intf *aindex, intf *values); HDFFCLIBAPI FRETVAL(intf) nvsfgcat (intf *vsid, intf *findex, intf *aindex, _fcd values); HDFFCLIBAPI FRETVAL(intf) nvsfisat (intf *vsid); HDFFCLIBAPI FRETVAL(intf) nvfcsatt (intf *vgid, _fcd attrnm, intf *dtype, intf *count, intf *values, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvfcscat (intf *vgid, _fcd attrnm, intf *dtype, intf *count, _fcd values, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvfnatts (intf *vgid); HDFFCLIBAPI FRETVAL(intf) nvfcfdat (intf *vgid, _fcd attrnm, intf *attrnmlen); HDFFCLIBAPI FRETVAL(intf) nvfainfo (intf *vgid, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size); HDFFCLIBAPI FRETVAL(intf) nvfgnatt (intf *vgid, intf *aindex, intf *values); HDFFCLIBAPI FRETVAL(intf) nvfgcatt (intf *vgid, intf *aindex, _fcd values); HDFFCLIBAPI FRETVAL(intf) nvfgver (intf *vgid); /* Added for windows */ HDFFCLIBAPI FRETVAL(intf) nvsfainf (intf *vsid, intf *findex, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size); HDFFCLIBAPI FRETVAL(intf) nvsfcnats (intf *vsid); HDFFCLIBAPI FRETVAL(intf) nvsfcfnas (intf *vsid, intf *findex); HDFFCLIBAPI FRETVAL(intf) nvsfcainf (intf *vsid, intf *findex, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size); HDFFCLIBAPI FRETVAL(intf) nvsfcgna (intf *vsid, intf *findex, intf *aindex, intf *values); HDFFCLIBAPI FRETVAL(intf) nvsfcgca (intf *vsid, intf *findex, intf *aindex, _fcd values); HDFFCLIBAPI FRETVAL(intf) nvsfcisa (intf *vsid); HDFFCLIBAPI FRETVAL(intf) nvfcnats (intf *vgid); HDFFCLIBAPI FRETVAL(intf) nvfcainf (intf *vgid, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size); HDFFCLIBAPI FRETVAL(intf) nvfcgnat (intf *vgid, intf *aindex, intf *values); HDFFCLIBAPI FRETVAL(intf) nvfcgcat (intf *vgid, intf *aindex, _fcd values); HDFFCLIBAPI FRETVAL(intf) nvfcgver (intf *vgid); /* End of windows */ /* ** from dfufp2i.c */ # define nduif2i H4_F77_FUNC(duif2i, DUIF2I) HDFFCLIBAPI FRETVAL(int) nduif2i (int32 *hdim, int32 *vdim, float32 *max, float32 *min, float32 hscale[], float32 vscale[], float32 data[], _fcd palette, _fcd outfile, int *ct_method, int32 *hres, int32 *vres, int *compress, int *lenfn); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _H_PROTO_FORTRAN */ libhdf4-4.2.10/HDF_ALT/hdf/src/maldebug.c0000644000000000000000000004137712421456623014376 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: maldebug.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*---------------------------------------------------------------------- * * maldebug.c * Memory management utilities * * Description * * maldebug.c contains routines to protect the programmer * from errors in calling memory allocation/free routines. * The programmer must use the memory calls defined * in maldebug.h. When these calls are used, the * allocation routines in this module add a data structure * to the top of allocated memory blocks which tags them as * legal memory blocks. * * When the free routine is called, the memory block to * be freed is checked for legality tag. If the block * is not legal, the memory list is dumped to stderr and * the program is terminated. * * Compilation Options * * MEM_LIST Link all allocated memory blocks onto * an internal list. The list can be * displayed using Mem_Display(). * * MEM_WHERE Save the file/line number of allocated * blocks in the header. * Requires that the compilier supports * __FILE__ and __LINE__ preprocessor * directives. * Also requires that the __FILE__ string * have a static or global scope. * * MEM_HEADER Place a header and footer section around each * allocated block to detect overwrites on the beginning * and the ending of the allocated block. * * MEM_COMP_FREE Complement the free'd memory. * */ #define __MALDEBUG__ /*#define DEBUG_LIST */ #include #include #include #include "maldebug.h" #include "hdf.h" /* Constants */ /* --------- */ #define MEMTAG 0xa55a /* Value for mh_tag */ #define HEADERTAG 0x5a /* Value for the header and footer data */ /* Structures */ /* ---------- */ typedef struct memnod { /* Memory block header info */ uint16 mh_tag; /* Special ident tag */ size_t mh_size; /* Size of allocation block */ #if defined(MEM_LIST) struct memnod *mh_next; /* Next memory block */ struct memnod *mh_prev; /* Previous memory block */ #endif #if defined(MEM_WHERE) char *mh_file; /* File allocation was from */ uint16 mh_line; /* Line allocation was from */ #endif } MEMHDR; /* Alignment macros */ /* ---------------- */ #define ALIGN_SIZE sizeof(double) #define HDR_SIZE sizeof(MEMHDR) #if defined(MEM_HEADER) #define BLOCK_SIZE 5 #define HEADER_SIZE (sizeof(unsigned char)*BLOCK_SIZE) #define RESERVE_SIZE ((((HDR_SIZE+(ALIGN_SIZE-1))/ALIGN_SIZE)*ALIGN_SIZE)+HEADER_SIZE) #else #define BLOCK_SIZE 0 #define HEADER_SIZE 0 #define RESERVE_SIZE (((HDR_SIZE+(ALIGN_SIZE-1))/ALIGN_SIZE)*ALIGN_SIZE) #endif /* Conversion macros */ /* ----------------- */ #define CLIENT_2_HDR(a) ((MEMHDR *) (((char *)(a)) - RESERVE_SIZE)) #define HDR_2_CLIENT(a) ((void *) (((char *)(a)) + RESERVE_SIZE)) /* Local variables */ /* --------------- */ static unsigned long mem_size = 0; /* Amount of memory used */ #if defined(MEM_LIST) static MEMHDR *memlist = NULL; /* List of memory blocks */ #endif /* Local functions */ /* --------------- */ static void mem_tag_err(void *, int, char *, char *, int); /* Tag error */ #if defined(MEM_LIST) static void mem_list_add(MEMHDR *); /* Add block to list */ static void mem_list_delete(MEMHDR *); /* Delete block from list */ #define Mem_Tag_Err(a,b,c) mem_tag_err(a,b,c,fil,lin) #else #define Mem_Tag_Err(a,b,c) mem_tag_err(a,b,c,__FILE__,__LINE__) #endif #define ME_BADTAG 0 #define ME_BADHEADER 1 /************************************************************************/ /**** Functions accessed only through macros ****************************/ /************************************************************************/ /*---------------------------------------------------------------------- * * mem_HDmalloc() * Allocate a memory block * * Usage: * * void *mem_HDmalloc(size_t size) * * Parameters: * * size Size of block in bytes to allocate * * Return Value: * * Pointer to allocated memory block * NULL if not enough memory * * Description: * * mem_HDmalloc() makes a protected call to HDmalloc() * * Notes * * Access this routine using the malloc() macro in memdebug.h * * */ void * mem_HDmalloc( #if defined(MEM_WHERE) size_t size, char *fil, int lin #else size_t size #endif ) { MEMHDR *p; /* Allocate memory block */ /* --------------------- */ p = HDmalloc(RESERVE_SIZE + size + HEADER_SIZE); if (p == NULL) { fprintf(stdaux, "NULL pointer malloc'ed in %s, line %d\n", fil, lin); return (NULL); } /* end if */ /* Init header */ /* ----------- */ p->mh_tag = MEMTAG; p->mh_size = size; mem_size += size; #if defined(MEM_WHERE) p->mh_file = fil; p->mh_line = (uint16) lin; #endif #if defined(MEM_HEADER) HDmemset((char *) HDR_2_CLIENT(p) - HEADER_SIZE, HEADERTAG, HEADER_SIZE); HDmemset((char *) HDR_2_CLIENT(p) + size, HEADERTAG, HEADER_SIZE); #endif #if defined(MEM_LIST) mem_list_add(p); #endif /* Return pointer to client data */ /* ----------------------------- */ return (HDR_2_CLIENT(p)); } /* end mem_alloc() */ /*---------------------------------------------------------------------- * * mem_HDrealloc() * Reallocate a memory block * * Usage: * * void *mem_HDrealloc(void *ptr,size_t size) * * Parameters: * * ptr Pointer to current block * size Size to adjust block to * * Return Value: * * Pointer to new memory block * NULL if memory cannot be reallocated * * Description: * * mem_HDrealloc() makes a protected call to HDrealloc(). * * Notes: * * Access this routine using the realloc() macro in maldebug.h * * */ void * mem_HDrealloc( #if defined(MEM_WHERE) void *ptr, size_t size, char *fil, int lin #else void *ptr, size_t size #endif ) { MEMHDR *p; #if defined(MEM_HEADER) || defined(MEM_COMP_FREE) unsigned char *q; int i; #endif char *FUNC = "HDrealloc"; /* Check for equivalent to malloc() call, i.e. where ptr==NULL */ if (ptr == NULL) return (mem_HDmalloc(size #if defined(MEM_WHERE) ,fil, lin #endif )); /* Convert client pointer to header pointer */ /* ---------------------------------------- */ p = CLIENT_2_HDR(ptr); /* Check for valid block */ /* --------------------- */ if (p->mh_tag != MEMTAG) { Mem_Tag_Err(p, ME_BADTAG, FUNC); return (NULL); } /* end if */ /* Check for overwrites into the header & footer */ /* --------------------------------------------- */ #if defined(MEM_HEADER) q = (unsigned char *) ptr - HEADER_SIZE; /* Check the Header to consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { Mem_Tag_Err(p, ME_BADHEADER, FUNC); return (NULL); } /* end if */ } /* end for */ q = (unsigned char *) ptr + p->mh_size; /* Check the Footer for consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { Mem_Tag_Err(p, ME_BADHEADER, FUNC); return (NULL); } /* end if */ } /* end for */ #endif /* Invalidate header */ /* ----------------- */ p->mh_tag = ~MEMTAG; mem_size -= p->mh_size; #if defined(MEM_WHERE) mem_list_delete(p); /* Remove block from list */ #endif /* Reallocate memory block */ /* ----------------------- */ p = (MEMHDR *) HDrealloc(p, RESERVE_SIZE + size + HEADER_SIZE); if (p == NULL) return (NULL); /* Update header */ /* ------------- */ p->mh_tag = MEMTAG; p->mh_size = size; mem_size += size; #if defined(MEM_LIST) p->mh_file = fil; p->mh_line = (uint16) lin; #endif #if defined(MEM_WHERE) mem_list_add(p); /* Add block to list */ #endif #if defined(MEM_HEADER) HDmemset((char *) HDR_2_CLIENT(p) - HEADER_SIZE, HEADERTAG, HEADER_SIZE); HDmemset((char *) HDR_2_CLIENT(p) + size, HEADERTAG, HEADER_SIZE); #endif /* Return pointer to client data */ /* ----------------------------- */ return (HDR_2_CLIENT(p)); } /* end mem_realloc() */ /*---------------------------------------------------------------------- * * mem_HDfree() * Free a memory block * * Usage: * * void mem_HDfree(void *ptr) * * Parameters: * * ptr Pointer to memory to free * * Return Value: * * None * * Description: * * mem_HDfree() frees the specified memory block. The * block must be allocated using mem_HDmalloc() or mem_HDrealloc(). * * Notes * * Access this routine using the HDfree() macro in maldebug.h * * */ void * mem_HDfree( #if defined(MEM_WHERE) void *ptr, char *fil, int lin #else void *ptr #endif ) { MEMHDR *p; #if defined(MEM_HEADER) || defined(MEM_COMP_FREE) unsigned char *q; uintn i; #endif char *FUNC = "HDfree"; /* Convert client pointer to header pointer */ /* ---------------------------------------- */ p = CLIENT_2_HDR(ptr); /* Check for valid block */ /* --------------------- */ if (p->mh_tag != MEMTAG) { Mem_Tag_Err(p, ME_BADTAG, FUNC); return (NULL); } /* end if */ /* Check for overwrites into the header & footer */ /* --------------------------------------------- */ #if defined(MEM_HEADER) q = (unsigned char *) ptr - HEADER_SIZE; /* Check the Header to consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { Mem_Tag_Err(p, ME_BADHEADER, FUNC); return (NULL); } /* end if */ } /* end for */ q = (unsigned char *) ptr + p->mh_size; /* Check the Footer for consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { Mem_Tag_Err(p, ME_BADHEADER, FUNC); return (NULL); } /* end if */ } /* end for */ #endif /* Invalidate header */ /* ----------------- */ p->mh_tag = ~MEMTAG; mem_size -= p->mh_size; /* Invalidate the block of memory to be free'd */ /* ------------------------------------------- */ #if defined(MEM_COMP_FREE) q = (unsigned char *) ptr; for (i = 0; i < p->mh_size; i++) q[i] = (unsigned char) ~q[i]; #endif #if defined(MEM_LIST) mem_list_delete(p); /* Remove block from list */ #endif /* Free memory block */ /* ----------------- */ return (HDfree(p)); } /* end mem_free() */ /************************************************************************/ /**** Functions accessed directly ***************************************/ /************************************************************************/ /*---------------------------------------------------------------------- * * Mem_Used() * Return amount of memory currently allocated * * Usage: * * unsigned long Mem_Used() * * Parameters: * * None. * * Description: * * Mem_Used() returns the number of bytes currently allocated * using the memory management system. The value returned is * simply the sum of the size requests to allocation routines. * It does not reflect any overhead required by the memory * management system. * * Notes: * * None * * */ unsigned long Mem_Used(void) { return (mem_size); } /* end Mem_Used() */ /*---------------------------------------------------------------------- * * Mem_Display() * Display memory allocation list * * Usage: * * void Mem_Display(FILE *fp) * * Parameters: * * fp File to output data to * * Description: * * Mem_Display() displays the contents of the memory * allocation list. * * This function is a no-op if MEM_LIST is not defined. * * Notes: * * None * * */ void Mem_Display(FILE * fp) { #if defined(MEM_LIST) MEMHDR *p; int idx; #if defined(MEM_HEADER) unsigned char *q; int i; #endif #if defined(MEM_WHERE) fprintf(fp, "Index Size File(Line) - total size %lu\n", mem_size); #else fprintf(fp, "Index Size - total size %lu\n", mem_size); #endif idx = 0; p = memlist; while (p != NULL) { fprintf(fp, "%-5d %6u", idx++, p->mh_size); #if defined(MEM_WHERE) fprintf(fp, " %s(%d)", p->mh_file, p->mh_line); #endif if (p->mh_tag != MEMTAG) fprintf(fp, " INVALID TAG"); /* Check for overwrites into the header & footer */ /* --------------------------------------------- */ #if defined(MEM_HEADER) q = (unsigned char *) HDR_2_CLIENT(p) - HEADER_SIZE; /* Check the Header to consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { fprintf(fp, " HEADER OVERWRITTEN"); break; } /* end if */ } /* end for */ q = (unsigned char *) HDR_2_CLIENT(p) + p->mh_size; /* Check the Footer for consistancy */ for (i = 0; i < BLOCK_SIZE; i++) { if (q[i] != HEADERTAG) { fprintf(fp, " FOOTER OVERWRITTEN"); break; } /* end if */ } /* end for */ #endif fprintf(fp, "\n"); p = p->mh_next; } /* end while */ #else fprintf(fp, "Memory list not compiled (MEM_LIST not defined)\n"); #endif } /* end Mem_Display() */ /************************************************************************/ /**** Memory list manipulation functions ********************************/ /************************************************************************/ /* * mem_list_add() * Add block to list */ #if defined(MEM_LIST) static void mem_list_add(MEMHDR * p) { p->mh_next = memlist; p->mh_prev = NULL; if (memlist != NULL) memlist->mh_prev = p; memlist = p; #if defined(DEBUG_LIST) printf("mem_list_add()\n"); Mem_Display(stdout); #endif } /* end mem_list_add() */ #endif /*----------------------------------------------------------------------*/ /* * mem_list_delete() * Delete block from list */ #if defined(MEM_LIST) static void mem_list_delete(MEMHDR * p) { if (p->mh_next != NULL) p->mh_next->mh_prev = p->mh_prev; if (p->mh_prev != NULL) p->mh_prev->mh_next = p->mh_next; else memlist = p->mh_next; #if defined(DEBUG_LIST) printf("mem_list_delete()\n"); Mem_Display(stdout); #endif } /* end mem_list_delete() */ #endif /************************************************************************/ /**** Error display *****************************************************/ /************************************************************************/ /* * mem_tag_err() * Display memory tag error */ static void mem_tag_err(void *p, int type, char *func, char *fil, int lin) { FILE *fp; /* shut compiler up */ fp = fp; #ifdef OLD_WAY fprintf(stdaux, "Malloc tag error #%d, in %s : %p - %s(%d)\n", type, func, p, fil, lin); if ((fp = fopen("impro.err", "wt+")) != NULL) { /* open impro.err to output the error file */ fprintf(fp, "Malloc tag error - %p - %s(%d)\n", p, fil, lin); #if defined(MEM_LIST) Mem_Display(fp); #endif fclose(fp); } /* end if */ #else fprintf(stdaux, "Malloc tag error #%d, in %s : %p - %s(%d)\n", type, func, p, fil, lin); getch(); #if defined(MEM_LIST) Mem_Display(stdaux); #endif #endif } /* end mem_tag_err() */ libhdf4-4.2.10/HDF_ALT/hdf/src/tbbt.c0000644000000000000000000011033212421456623013535 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: tbbt.c 6043 2014-01-21 21:09:03Z acheng $ */ /* "tbbt.c" -- Routines for using threaded, balanced, binary trees. */ /* Extended from (added threads to) Knuth 6.2.3, Algorithm A (AVL trees) */ /* Basic tree structure by Adel'son-Vel'skii and Landis */ #include /* NULL */ #include "hdf.h" #define TBBT_INTERNALS #include "tbbt.h" #define Alloc(cnt,typ) (typ *) HDmalloc( (cnt) * sizeof(typ) ) #define Free(x) (HDfree((VOIDP)x)) # define KEYcmp(k1,k2,a) ((NULL!=compar) ? (*compar)( k1, k2, a) \ : HDmemcmp( k1, k2, 0<(a) ? (a) : (intn)HDstrlen(k1) ) ) VOID tbbt1dump (TBBT_NODE * node, intn method); /* Function Prototypes */ extern VOID tbbt_printNode(TBBT_NODE * node, VOID(*key_dump)(VOID *,VOID *)); extern VOID tbbt_dumpNode(TBBT_NODE *node, VOID (*key_dump)(VOID *,VOID *), intn method); extern VOID tbbt_dump(TBBT_TREE *ptree, VOID (*key_dump)(VOID *,VOID *), intn method); static TBBT_NODE *tbbt_get_node(void); static void tbbt_release_node(TBBT_NODE *nod); /* #define TESTING */ /* Returns pointer to end-most (to LEFT or RIGHT) node of tree: */ static TBBT_NODE * tbbt_end(TBBT_NODE * root, intn side) { if (root == NULL) return (NULL); while (HasChild(root, side)) { root = root->link[side]; } return (root); } TBBT_NODE * tbbtfirst(TBBT_NODE * root) { return (tbbt_end(root, LEFT)); } TBBT_NODE * tbbtlast(TBBT_NODE * root) { return (tbbt_end(root, RIGHT)); } /* Return address of parent's pointer to neighboring node (to LEFT or RIGHT) ** static TBBT_NODE **tbbt_anbr(TBBT_NODE *ptr, intn side ) { TBBT_NODE **aptr; if( ! HasChild( ptr, side ) ) return( & ptr->link[side] ); aptr= & ptr->link[side]; while( HasChild( *aptr, Other(side) ) ) aptr= & (*aptr)->link[Other(side)]; return( aptr ); } */ /* Returns pointer to neighboring node (to LEFT or RIGHT): */ static TBBT_NODE * tbbt_nbr(TBBT_NODE * ptr, intn side) { /* return( *tbbt_anbr(ptr,side) ); */ if (!HasChild(ptr, side)) return (ptr->link[side]); /* return(NULL); */ ptr = ptr->link[side]; if(ptr==NULL) return(NULL); while (HasChild(ptr, Other(side))) ptr = ptr->link[Other(side)]; return (ptr); } /* Returns pointer to node with previous key value: */ TBBT_NODE * tbbtnext(TBBT_NODE * node) { return (tbbt_nbr(node, RIGHT)); } /* Returns pointer to node with next key value: */ TBBT_NODE * tbbtprev(TBBT_NODE * node) { return (tbbt_nbr(node, LEFT)); } /* tbbtfind -- Look up a node in a tree based on a key value */ /* tbbtffind is based on this routine - fix bugs in both places! */ /* Returns a pointer to the found node (or NULL) */ TBBT_NODE * tbbtfind(TBBT_NODE * root, VOIDP key, intn (*compar) (VOIDP, VOIDP, intn), intn arg, TBBT_NODE ** pp) { TBBT_NODE *ptr = root; TBBT_NODE *parent = NULL; intn cmp = 1; if (ptr) { intn side; while (0 != (cmp = KEYcmp(key, ptr->key, arg))) { parent = ptr; side = (cmp < 0) ? LEFT : RIGHT; if (!HasChild(ptr, side)) break; ptr = ptr->link[side]; } } if (NULL != pp) *pp = parent; return ((0 == cmp) ? ptr : NULL); } /* tbbtffind -- Look up a node in a tree based on a key value */ /* This routine is based on tbbtfind (fix bugs in both places!) */ /* Returns a pointer to the found node (or NULL) */ static TBBT_NODE * tbbtffind(TBBT_NODE * root, VOIDP key, uintn fast_compare, TBBT_NODE ** pp) { TBBT_NODE *ptr = root; TBBT_NODE *parent = NULL; intn cmp = 1; switch(fast_compare) { case TBBT_FAST_UINT16_COMPARE: if (ptr) { intn side; while (0 != (cmp = (*(uint16 *)key - *(uint16 *)ptr->key))) { parent = ptr; side = (cmp < 0) ? LEFT : RIGHT; if (!HasChild(ptr, side)) break; ptr = ptr->link[side]; } } if (NULL != pp) *pp = parent; return ((0 == cmp) ? ptr : NULL); case TBBT_FAST_INT32_COMPARE: if (ptr) { intn side; while (0 != (cmp = (*(int32 *)key - *(int32 *)ptr->key))) { parent = ptr; side = (cmp < 0) ? LEFT : RIGHT; if (!HasChild(ptr, side)) break; ptr = ptr->link[side]; } } if (NULL != pp) *pp = parent; return ((0 == cmp) ? ptr : NULL); default: return(NULL); } /* end switch */ } /* tbbtffind() */ /* tbbtdfind -- Look up a node in a "described" tree based on a key value */ /* Returns a pointer to the found node (or NULL) */ TBBT_NODE * tbbtdfind(TBBT_TREE * tree, VOIDP key, TBBT_NODE ** pp) { if (tree == NULL) return (NULL); if(tree->fast_compare!=0) return (tbbtffind(tree->root, key, tree->fast_compare, pp)); else return (tbbtfind(tree->root, key, tree->compar, tree->cmparg, pp)); } /* tbbtless -- Find a node in a tree which is less than a key, */ /* based on a key value */ /* Returns a pointer to the found node (or NULL) */ TBBT_NODE * tbbtless(TBBT_NODE * root, VOIDP key, intn (*compar) (VOIDP, VOIDP, intn), intn arg, TBBT_NODE ** pp) { TBBT_NODE *ptr = root; TBBT_NODE *parent = NULL; intn cmp = 1; if (ptr) { intn side; while (0 != (cmp = KEYcmp(key, ptr->key, arg))) { parent = ptr; side = (cmp < 0) ? LEFT : RIGHT; if (!HasChild(ptr, side)) break; ptr = ptr->link[side]; } } if(cmp!=0) /* didn't find an exact match, search back up the tree until a node */ /* is found with a key less than the key searched for */ { while((ptr=ptr->Parent)!=NULL) { cmp = KEYcmp(key, ptr->key, arg); if(cmp<0) /* found a node which is less than the search for one */ break; } /* end while */ if(ptr==NULL) /* didn't find a node in the tree which was less */ cmp=1; else /* reset this for cmp test below */ cmp=0; } /* end if */ if (NULL != pp) *pp = parent; return ((0 == cmp) ? ptr : NULL); } /* tbbtdless -- Find a node less than a key in a "described" tree */ /* Returns a pointer to the found node (or NULL) */ TBBT_NODE * tbbtdless(TBBT_TREE * tree, VOIDP key, TBBT_NODE ** pp) { if (tree == NULL) return (NULL); return (tbbtless(tree->root, key, tree->compar, tree->cmparg, pp)); } /* tbbtindx -- Look up the Nth node (in key order) */ /* Returns a pointer to the `indx'th node (or NULL) */ /* Bugs(fixed): Added NULL check for 'ptr' in while loop to prevent endless loop condition. Fixed bug where we subtracted children count from the wrong side of the tree. */ TBBT_NODE * tbbtindx(TBBT_NODE * root, int32 indx) { TBBT_NODE *ptr = root; /* I believe indx is 1 based */ if (NULL == ptr || indx < 1) return (NULL); /* Termination condition is if the index equals the number of children on out left plus the current node */ while (ptr != NULL && indx != ((int32) LeftCnt(ptr)) + 1 ) { if (indx <= (int32) LeftCnt(ptr)) { #if 0 indx -= LeftCnt(ptr); /* ??....bug */ #endif ptr = ptr->Lchild; } else if (HasChild(ptr, RIGHT)) { /* subtract children count from leftchild plus current node when we descend into a right branch */ indx -= (int32)(LeftCnt(ptr) + 1); ptr = ptr->Rchild; } else return (NULL); /* Only `indx' or fewer nodes in tree */ } return (ptr); } /* swapkid -- Often refered to as "rotating" nodes. ptr and ptr's `side' * child, kid, are swapped so ptr becomes kid's `Other(side)' child. * Here is how a single swap (rotate) works: * * | --side--> | * (ptr) (kid) * / \ / \ * +-A-+ (kid) (ptr) +-C-+ * | | / \ / \ | | * |...| +-B-+ +-C-+ +-A-+ +-B-+ |...| * | | | | | | | | * |...| |...| |...| |...| * `deep' contains the relative depths of the subtrees so, since we set * `deep[1]' (the relative depth of subtree [B]) to 0, `deep[2]' is the depth * of [C] minus the depth of [B] (-1, 0, or 1 since `kid' is never too out of * balance) and `deep[0]' is the depth of [A] minus the depth of [B]. These * values are used to compute the balance levels after the rotation. Note that * [A], [B], or [C] can have depth 0 so `link[]' contains threads rather than * pointers to children. */ static TBBT_NODE * swapkid(TBBT_NODE ** root, TBBT_NODE * ptr, intn side) { TBBT_NODE *kid = ptr->link[side]; /* Sibling to be swapped with parent */ intn deep[3]; /* Relative depths of three sub-trees involved. */ /* 0:ptr->link[Other(side)], 1:kid->link[Other(side)], 2:kid->link[side] */ TBBT_FLAG ptrflg; /* New value for ptr->flags (ptr->flags used after set) */ TBBT_LEAF plcnt, prcnt, /* current values of the ptr's and kid's leaf count */ klcnt, krcnt; deep[2] = (deep[1] = 0) + Delta(kid, side); deep[0] = Max(0, deep[2]) + 1 - Delta(ptr, side); kid->Parent = ptr->Parent; ptrflg = (TBBT_FLAG)SetFlags(ptr, side, deep[0], HasChild(ptr, Other(side)) && HasChild(kid, Other(side))); plcnt = LeftCnt(ptr); prcnt = RightCnt(ptr); klcnt = LeftCnt(kid); krcnt = RightCnt(kid); if (HasChild(kid, Other(side))) { ptr->link[side] = kid->link[Other(side)]; /* Real child */ ptr->link[side]->Parent = ptr; } else { ptr->link[side] = kid; /* Thread */ } /* Update grand parent's pointer: */ if (NULL == ptr->Parent) { *root = kid; } else if (ptr /*->Lchild*/ == ptr->Parent->Lchild) { ptr->Parent->Lchild = kid; } else { ptr->Parent->Rchild = kid; } ptr->Parent = kid; kid->link[Other(side)] = ptr; kid->flags = (TBBT_FLAG)SetFlags(kid, Other(side), deep[2] - 1 - Max(deep[0], 0), HasChild(kid, side)); /* update leaf counts */ if (side == LEFT) { /* kid's left count doesn't change, nor ptr's r-count */ kid->rcnt = prcnt + krcnt + 1; /* kid's leafs+former parent's leafs+parent */ ptr->lcnt = krcnt; } /* end if */ else { /* kid's right count doesn't change, nor ptr's l-count */ kid->lcnt = plcnt + klcnt + 1; /* kid's leafs+former parent's leafs+parent */ ptr->rcnt = klcnt; } /* end if */ ptr->flags = ptrflg; return (kid); } /* balance -- Move up tree, incrimenting number of left children when needed * and looking for unbalanced ancestors. Adjust all balance factors and re- * balance through "rotation"s when needed. */ static VOID balance(TBBT_NODE ** root, TBBT_NODE * ptr, intn side, intn added) { intn deeper = added; /* 1 if sub-tree got longer; -1 if got shorter */ intn odelta; intn obal; while (NULL != ptr) { odelta = Delta(ptr, side); /* delta before the node was added */ obal = UnBal(ptr); if (LEFT == side) /* One more/fewer left child: */ if (0 < added) ptr->lcnt++; /* LeftCnt(ptr)++ */ else ptr->lcnt--; /* LeftCnt(ptr)-- */ else if (0 < added) ptr->rcnt++; /* RightCnt(ptr)++ */ else ptr->rcnt--; /* RightCnt(ptr)-- */ if (0 != deeper) { /* One leg got longer or shorter: */ if ((deeper < 0 && odelta < 0) || (deeper > 0 && odelta > 0)) { /* Became too unbalanced: */ TBBT_NODE *kid; ptr->flags |= TBBT_DOUBLE; /* Mark node too unbalanced */ if (deeper < 0) /* Just removed a node: */ side = Other(side); /* Swap with child from other side. */ else /* Just inserted a node: */ if (ptr->Parent && UnBal(ptr->Parent)) { deeper = 0; /* Fix will re-shorten sub-tree. */ } kid = ptr->link[side]; if (Heavy(kid, Other(side))) { /* Double rotate needed: */ kid = swapkid(root, kid, Other(side)); ptr = swapkid(root, ptr, side); } else { /* Just rotate parent and kid: */ if (HasChild(kid, side)) /* In this case, sub-tree gets */ if (ptr->Parent && UnBal(ptr->Parent)) { deeper = 0; /* re-lengthened after a node removed. */ } ptr = swapkid(root, ptr, side); } } else if (obal) { /* Just became balanced: */ ptr->flags &= ~TBBT_UNBAL; if (0 < deeper) { /* Shorter of legs lengthened */ ptr->flags |= TBBT_INTERN; /* Mark as internal node now */ deeper = 0; /* so max length unchanged */ } /* end if */ } else if (deeper < 0) { /* Just became unbalanced: */ if (ptr->link[Other(side)] != NULL && ptr->link[Other(side)]->Parent == ptr) { ptr->flags |= (TBBT_FLAG)TBBT_HEAVY(Other(side)); /* Other side longer */ if (ptr->Parent) if (ptr->Parent->Rchild == ptr) { /* we're the right child */ if (Heavy(ptr->Parent, RIGHT) && LeftCnt(ptr->Parent) == 1) deeper = 0; else /* we're the left child */ if (Heavy(ptr->Parent, LEFT)) if (ptr->Parent->Rchild && !UnBal(ptr->Parent->Rchild)) deeper = 0; } } } else { /* Just became unbalanced: */ ptr->flags |= (TBBT_FLAG)TBBT_HEAVY(side); /* 0Parent) { if (ptr == (ptr->Parent->Rchild)) side = RIGHT; else side = LEFT; } /* end if */ ptr = ptr->Parent; /* Move up the tree */ } /* total tree depth += deeper; */ } /* Here is how rotatation rebalances a tree: * Either the deletion of a node shortened the sub-tree [A] (to length `h') * while [B] or [C] or both are length `h+1' or the addition of a node * lengthened [B] or [C] to length `h+1' while the other and [A] are both * length `h'. Each case changes `ptr' from being "right heavy" to being * overly unbalanced. * This | Becomes: | * sub-tree: (ptr) (kid) * / \ --side--> / \ * +-A-+ (kid) (ptr) +-C-+ * | | / \ / \ | | * | h | +-B-+ +-C-+ +-A-+ +-B-+ | h | * | | | | | | | | | | | | * +---+ | h | | h | | h | | h | +---+ * : - : | | | | | | | | : 1 : * `- -' +---+ +---+ +---+ +---+ + - + * : 1 : : 1 : : 1 : * + - + + - + + - + * * However, if [B] is long (h+1) while [C] is short (h), a double rotate is * required to rebalance. In this case, [A] was shortened or [X] or [Y] was * lengthened so [A] is length `h' and one of [X] and [Y] is length `h' while * the other is length `h-1'. Swap `kid' with `babe' then `ptr' with `babe'. * This | Becomes: | * sub-tree: (ptr) (babe) * / \ --side--> / \ * +-A-+ (kid) (ptr) (kid) * | | / \ / \ / \ * | h | (babe) +-C-+ +-A-+ +-X-+ +-Y-+ +-C-+ * | | / \ | | | | |h-1| |h-1| | | * +---+ +-X-+ +-Y-+ | h | | h | +---+ +---+ | h | * : - : |h-1| |h-1| | | | | : 1 : : 1 : | | * `- -' +---+ +---+ +---+ +---+ + - + + - + +---+ * : 1 : : 1 : * + - + + - + * * Note that in the node insertion cases total sub-tree length always increases * by one then decreases again so after the rotation(s) no more rebalancing is * required. In the node removal cases, the single rotation reduces total sub- * tree length unless [B] is length `h+1' (`ptr' ends of "right heavy") while * the double rotation ALWAYS reduces total sub-tree length. Thus removing a * single node can require log(N) rotations for rebalancing. On average, only * are usually required. */ /* Returns pointer to inserted node (or NULL) */ TBBT_NODE * tbbtins(TBBT_NODE ** root, VOIDP item, VOIDP key, intn (*compar) (VOIDP /* k1 */, VOIDP /* k2 */, intn /* arg */), intn arg) { intn cmp; TBBT_NODE *ptr, *parent; if (NULL != tbbtfind(*root, (key ? key : item), compar, arg, &parent) || NULL == (ptr = tbbt_get_node())) return (NULL); ptr->data = item; ptr->key = key ? key : item; ptr->Parent = parent; ptr->flags = 0L; /* No children on either side */ ptr->lcnt = 0; ptr->rcnt = 0; if (NULL == parent) { /* Adding first node to tree: */ *root = ptr; ptr->Lchild = ptr->Rchild = NULL; return (ptr); } cmp = KEYcmp(ptr->key, parent->key, arg); if (cmp < 0) { ptr->Lchild = parent->Lchild; /* Parent's thread now new node's */ ptr->Rchild = parent; /* New nodes right thread is parent */ parent->Lchild = ptr; /* Parent now has a left child */ } else { ptr->Rchild = parent->Rchild; ptr->Lchild = parent; parent->Rchild = ptr; } balance(root, parent, (cmp < 0) ? LEFT : RIGHT, 1); return (ptr); } /* tbbtdins -- Insert a node into a "described" tree */ /* Returns a pointer to the inserted node */ TBBT_NODE * tbbtdins(TBBT_TREE * tree, VOIDP item, VOIDP key) { TBBT_NODE *ret_node; /* the node to return */ if (tree == NULL) return (NULL); ret_node = tbbtins(&(tree->root), item, key, tree->compar, tree->cmparg); if (ret_node != NULL) tree->count++; return (ret_node); } /* tbbtrem -- Remove a node from a tree. You pass in the address of the * pointer to the root node of the tree along, a pointer to the node you wish * to remove, and optionally the address of a pointer to hold the address of * the key value of the deleted node. The second argument is usually the * result from a lookup function call (tbbtfind, tbbtdfind, or tbbtindx) so if * it is NULL, tbbtrem returns NULL. Otherwise tbbtrem removes the node from * the tree and returns a pointer to the data item for that node and, if the * third argument is not NULL, the address of the key value for the deleted * node is placed in the buffer that it points to. */ /* Data item pointer of deleted node is returned */ VOIDP tbbtrem(TBBT_NODE ** root, TBBT_NODE * node, VOIDP *kp) { TBBT_NODE *leaf; /* Node with one or zero children */ TBBT_NODE *par; /* Parent of `leaf' */ TBBT_NODE *next; /* Next/prev node near `leaf' (`leaf's `side' thread) */ intn side; /* `leaf' is `side' child of `par' */ VOIDP data; /* Saved pointer to data item of deleted node */ if (NULL == root || NULL == node) return (NULL); /* Argument couldn't find node to delete */ data = node->data; /* Save pointer to data item to be returned at end */ if (NULL != kp) *kp = node->key; /* If the node to be removed is "internal" (children on both sides), we * replace it with it's previous (or next) node in the tree and delete that * previous (next) node (which has one or no children) instead. */ if (Intern(node)) { /* Replace with a non-internal node: */ if (Heavy(node, RIGHT)) { /* Pick "near-leaf" node from the */ side = LEFT; /* heavier of the sub-trees. */ } else if (Heavy(node, LEFT)) { side = RIGHT; } else { /* If no sub-tree heavier, pick at "random" for "better */ side = (0x10 & *(short *) &node) ? LEFT : RIGHT; /* balance" */ } leaf = tbbt_nbr(next = node, Other(side)); par = leaf->Parent; if (par == next) { /* Case 2x: `node' had exactly 2 descendants */ side = Other(side); /* Transform this to Case 2 */ next = leaf->link[side]; } node->data = leaf->data; node->key = leaf->key; } else { /* Node has one or zero children: */ leaf = node; /* Simply remove THIS node */ par = leaf->Parent; if (NULL == par) { /* Case 3: Remove root (of 1- or 2-node tree) */ side = (intn) UnBal(node); /* Which side root has a child on */ if (side) { /* Case 3a: Remove root of 2-node tree: */ *root = leaf = node->link[side]; leaf->Parent = leaf->link[Other(side)] = NULL; leaf->flags = 0; /* No left children, balanced, not internal */ } else { /* Case 3b: Remove last node of tree: */ *root = NULL; } /* end else */ tbbt_release_node(node); return (data); } side = (par->Rchild == leaf) ? RIGHT : LEFT; next = leaf->link[side]; } /* Now the deletion has been reduced to the following cases (and Case 3 has * been handled completely above and Case 2x has been transformed into * Case 2). `leaf' is a node with one or zero children that we are going * to remove. `next' points where the `side' thread of `leaf' points. * `par' is the parent of `leaf'. The only posibilities (not counting * left/right reversals) are shown below: * [Case 1] [Case 2] [Case 2x] * (next) (next) ^ (next & par) * / ^ \ / ^ \ | / ^ \ * . . . | . . . | | (leaf) / * / | / | \_/ \_/ * (par) | (par) | ^threads^ * \ | \ | * (leaf) / (leaf) / [Case 3a] [Case 3b] * / ^ \_/ (n) * Note that in Cases 1 and 2, `leaf's `side' thread can be NULL making * `next' NULL as well. If you remove a node from a 2-node tree, removing * the root falls into Case 3a while removing the only leaf falls into * Case 2 (with `next' NULL and `par' the root node). */ if (!UnBal(leaf)) { /* Case 2: `leaf' has no children: */ par->link[side] = leaf->link[side]; par->flags &= (TBBT_FLAG)(~(TBBT_INTERN | TBBT_HEAVY(side))); } else { /* Case 1: `leaf' has one child: */ TBBT_NODE *n; if (HasChild(leaf, side)) { /* two-in-a-row cases */ n = leaf->link[side]; par->link[side] = n; n->Parent = par; if (HasChild(n, Other(side))) while (HasChild(n, Other(side))) n = n->link[Other(side)]; n->link[Other(side)] = par; } /* end if */ else { /* zig-zag cases */ n = leaf->link[Other(side)]; par->link[side] = n; n->Parent = par; if (HasChild(n, side)) while (HasChild(n, side)) n = n->link[side]; n->link[side] = next; } /* end else */ } tbbt_release_node(leaf); balance(root, par, side, -1); ((TBBT_TREE *) root)->count--; return (data); } /* tbbtdmake - Allocate a new tree description record for an empty tree */ /* Returns a pointer to the description record */ TBBT_TREE * tbbtdmake(intn (*cmp) (VOIDP /* k1 */, VOIDP /* k2 */, intn /* arg */), intn arg, uintn fast_compare) { TBBT_TREE *tree = Alloc(1, TBBT_TREE); if (NULL == tree) return (NULL); tree->root = NULL; tree->count = 0; tree->fast_compare=fast_compare; tree->compar = cmp; tree->cmparg = arg; return (tree); } #ifdef WASTE_STACK /* You can have a very simple recursive version that wastes lots of stack * space, this next less-simple recursive version that wastes less stack space, * or the last non-recursive version which isn't simple but saves stack space. */ static VOID(*FD) (VOIDP item), (*FK) (VOIDP key); static VOID tbbt1free(TBBT_NODE * node) { if (HasChild(node, LEFT)) tbbt1free(node->Lchild); if (HasChild(node, RIGHT)) tbbt1free(node->Rchild); if (NULL != FD) (*FD) (node->data); if (NULL != FK) (*FK) (node->key); tbbt_release_node(node); } VOID tbbtfree(TBBT_NODE ** root, VOID(*fd) (VOIDP item), VOID(*fk) (VOIDP key)) { if (NULL == *root) return; FD = fd; FK = fk; tbbt1free(*root); *root = NULL; } #else /* WASTE_STACK */ /* tbbtfree() - Free an entire tree not allocated with tbbtdmake(). */ VOID tbbtfree(TBBT_NODE ** root, VOID(*fd) (VOIDP /* item */), VOID(*fk) (VOIDP /* key */)) { TBBT_NODE *par, *node = *root; while (NULL != *root) { /* While nodes left to be free()d */ /* First time at this node (just moved down a new leg of tree) */ if (!HasChild(node, LEFT)) node->Lchild = NULL; if (!HasChild(node, RIGHT)) node->Rchild = NULL; do { par = NULL; /* Assume we aren't ready to move up tree yet */ if (NULL != node->Lchild) node = node->Lchild; /* Move down this leg next */ else if (NULL != node->Rchild) node = node->Rchild; /* Move down this leg next */ else { /* No children; free node an move up: */ par = node->Parent; /* Move up tree (stay in loop) */ if (NULL != fd) (*fd) (node->data); if (NULL != fk) (*fk) (node->key); if (NULL == par) /* Just free()d last node */ *root = NULL; /* NULL=par & NULL=*root gets fully out */ else if (node == par->Lchild) par->Lchild = NULL; /* Now no longer has this child */ else par->Rchild = NULL; /* Ditto */ tbbt_release_node(node); node = par; /* Move up tree; remember which node to do next */ } } while (NULL != par); /* While moving back up tree */ } } #endif /* WASTE_STACK */ VOID tbbtprint(TBBT_NODE * node) { if (node == NULL) return; printf("node=%p, key=%p, data=%p, flags=%x\n", node, node->key, node->data, (unsigned) node->flags); printf("Lcnt=%d, Rcnt=%d\n", (int) node->lcnt, (int) node->rcnt); printf("*key=%d\n", (int) *(int32 *) (node->key)); printf("Lchild=%p, Rchild=%p, Parent=%p\n", node->Lchild, node->Rchild, node->Parent); } /* end tbbtprint() */ VOID tbbt1dump(TBBT_NODE * node, intn method) { if (node == NULL) return; switch (method) { case -1: /* Pre-Order Traversal */ tbbtprint(node); if (HasChild(node, LEFT)) tbbt1dump(node->Lchild, method); if (HasChild(node, RIGHT)) tbbt1dump(node->Rchild, method); break; case 1: /* Post-Order Traversal */ if (HasChild(node, LEFT)) tbbt1dump(node->Lchild, method); if (HasChild(node, RIGHT)) tbbt1dump(node->Rchild, method); tbbtprint(node); break; case 0: /* In-Order Traversal */ default: if (HasChild(node, LEFT)) tbbt1dump(node->Lchild, method); tbbtprint(node); if (HasChild(node, RIGHT)) tbbt1dump(node->Rchild, method); break; } /* end switch() */ } /* end tbbt1dump() */ VOID tbbtdump(TBBT_TREE * tree, intn method) { if (tree != NULL && *(TBBT_NODE **) tree != NULL) { printf("Number of nodes in the tree: %ld\n", tree->count); tbbt1dump(tree->root, method); } /* end if */ else printf("Tree is empty\n"); } /* end tbbtdump() */ VOID tbbt_printNode(TBBT_NODE * node, VOID(*key_dump)(VOID *,VOID *)) { if (node == NULL) { printf("ERROR: null node pointer\n"); return; } printf("node=%p, flags=%x, Lcnt=%ld, Rcnt=%ld\n", node, (unsigned)node->flags, (long)node->lcnt, (long)node->rcnt); printf("Lchild=%p, Rchild=%p, Parent=%p\n", node->Lchild, node->Rchild, node->Parent); if (key_dump != NULL) { (*key_dump)(node->key,node->data); } fflush(stdout); #if 0 printf("Lcnt=%d, Rcnt=%d\n", (int) node->lcnt, (int) node->rcnt); printf("*key=%d\n", (int) *(int32 *) (node->key)); printf("Lchild=%p, Rchild=%p, Parent=%p\n", node->Lchild, node->Rchild, node->Parent); #endif } /* end tbbt_printNode() */ VOID tbbt_dumpNode(TBBT_NODE *node, VOID (*key_dump)(VOID *,VOID *), intn method) { if (node == NULL) return; switch (method) { case -1: /* Pre-Order Traversal */ tbbt_printNode(node, key_dump); if (HasChild(node, LEFT)) tbbt_dumpNode(node->Lchild, key_dump, method); if (HasChild(node, RIGHT)) tbbt_dumpNode(node->Rchild, key_dump, method); break; case 1: /* Post-Order Traversal */ if (HasChild(node, LEFT)) tbbt_dumpNode(node->Lchild, key_dump, method); if (HasChild(node, RIGHT)) tbbt_dumpNode(node->Rchild, key_dump, method); tbbt_printNode(node, key_dump); break; case 0: /* In-Order Traversal */ default: if (HasChild(node, LEFT)) tbbt_dumpNode(node->Lchild, key_dump, method); tbbt_printNode(node, key_dump); if (HasChild(node, RIGHT)) tbbt_dumpNode(node->Rchild, key_dump, method); break; } /* end switch() */ } /* end tbbt_dumpNode() */ VOID tbbt_dump(TBBT_TREE *ptree, VOID (*key_dump)(VOID *,VOID *), intn method) { TBBT_TREE *tree; tree = (TBBT_TREE *) ptree; printf("TBBT-tree dump %p:\n\n",ptree); printf("capacity = %ld\n",(long)tree->count); printf("\n"); tbbt_dumpNode(tree->root,key_dump, method); return; } /* Always returns NULL */ TBBT_TREE * tbbtdfree(TBBT_TREE * tree, VOID(*fd) (VOIDP /* item */), VOID(*fk) (VOIDP /* key */)) { if (tree == NULL) return (NULL); tbbtfree(&tree->root, fd, fk); Free(tree); return (NULL); } /* returns the number of nodes in the tree */ long tbbtcount(TBBT_TREE * tree) { if (tree == NULL) return (-1); else return ((long)tree->count); } /****************************************************************************** NAME tbbt_get_node - Gets a tbbt node DESCRIPTION Either gets a tbbt node from the free list (if there is one available) or allocates a node. RETURNS Returns tbbt ptr if successful and NULL otherwise *******************************************************************************/ static TBBT_NODE *tbbt_get_node(void) { TBBT_NODE *ret_value=NULL; if(tbbt_free_list!=NULL) { ret_value=tbbt_free_list; tbbt_free_list=tbbt_free_list->Lchild; } /* end if */ else ret_value=(TBBT_NODE *)Alloc(1,TBBT_NODE); return ret_value; } /* end tbbt_get_node() */ /****************************************************************************** NAME tbbt_release_node - Releases a tbbt node DESCRIPTION Puts a tbbt node into the free list RETURNS No return value *******************************************************************************/ static void tbbt_release_node(TBBT_NODE *nod) { /* Insert the atom at the beginning of the free list */ nod->Lchild=tbbt_free_list; tbbt_free_list=nod; } /* end tbbt_release_node() */ /*-------------------------------------------------------------------------- NAME tbbt_shutdown PURPOSE Terminate various static buffers. USAGE intn tbbt_shutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the tbbt routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn tbbt_shutdown(void) { TBBT_NODE *curr; /* Release the free-list if it exists */ if(tbbt_free_list!=NULL) { while(tbbt_free_list!=NULL) { curr=tbbt_free_list; tbbt_free_list=tbbt_free_list->Lchild; Free(curr); } /* end while */ } /* end if */ return (SUCCEED); } /* end tbbt_shutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/mfan.c0000644000000000000000000021375412421456623013537 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5454 $"; #endif /* $Id: mfan.c 5454 2010-08-27 17:24:55Z bmribler $ */ /*----------------------------------------------------------------------------- * File: mfan.c * Author: GeorgeV * Purpose: Multi-file read and write annotations: labels and descriptions * of data items and file * Invokes: * Comments: * Currently the id returned by ANstart() is the same as the * one returned by Hopen(). * * Currently as least 4 TBBT trees are created to handle * annotations(1 for file_ann, 1 for file_desc, 1 for data_ann * and 1 for data_desc) for each file which is not pretty but it * does make search/find of annotations much easier. * * NOTE2: Note that any mention of file ID's except in ANStart() * should now refer to annotation interface ID. * * Contents: * * Private Routines: * ----------------- * NOTES: TYPE here refers to file/data label/description types * They are AN_FILE_LABEL, AN_FILE_DESC, AN_DATA_LABEL, AN_DATA_DESC * The tag/ref refers to data tag/ref * * ANIinit - Intialize the annotation interface * ANIdestroy - Un-intialize the annotation interface * * ANIanncmp - compare two annotation handles(ann_id's) * (used in annotation TBBTtree) * ANIaddentry: - add entry to corresponding annotation TBBTtree * ANIcreate_ann_tree - create annotation TBBTtree * ANIfind: - return annotation handle(ann_id) if found of given TYPE/ref * ANInumann: - return number of annotations that match TYPE/tag/ref * ANIannlist: - return list of handles(ann_id's) that match TYPE/tag/ref * ANIannlen: - get length of annotation given handle(ann_id) * ANIreadann: - read annotation given handle(ann_id) * ANIwriteann: - write annotation given handle(ann_id) * ANIcreate - create a new file/label annotation * and return a handle(ann_id) * * Public API routines: * -------------------- * ANstart - open file for annotation handling, returns an_id * ANfileinfo - get number of file/data annotations in file. Indices returned * are used in ANselect() calls. * ANend - end access to annotation handling on file * ANcreate - create a new data annotation and return a handle(ann_id) * ANcreatef - create a new file annotation and return a handle(ann_id) * ANselect - returns an annotation handle(ann_id) from index for * a particular annotation TYPE. This handle is then used for * calls like ANwriteann(), ANreadann(), ANannlen(),..etc * ANnumann: - return number of annotations that match TYPE/tag/ref * ANannlist: - return list of handles(ann_id's) that match TYPE/tag/ref * ANannlen: - get length of annotation given handle(ann_id) * ANreadann: - read annotation given handle(ann_id) * ANwriteann: - write annotation given handle(ann_id) * ANendaccess - end access to annotation using handle(ann_id) * * Public Miscellaneous API Routines * --------------------------------- * ANget_tagref - get tag/ref pair to annotation type and index * ANid2tagref - get tag/ref pair to annotation ID * ANtagref2id - get annotation id given tag/ref * ANatype2tag - annotation type to corresponding annotation TAG * ANtag2atype - annotation TAG to corresponding annotation type * *---------------------------------------------------------------------------*/ #ifndef MFAN_MASTER /* define main annotation source file */ #define MFAN_MASTER #include "mfan.h" #include "atom.h" #include "hfile.h" /* needed for filerec_t */ /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* Function Prototypes for fcns used by TBBT. Can not be PRIVATE. */ extern void ANfreedata(void * data); extern void ANfreekey(void * key); extern void dumpentryKey(void *key, void *data); extern intn ANIanncmp(void * i, void * j, intn value); /* private initialization routine */ PRIVATE intn ANIstart(void); /*----------------------------------------------------------------------------- * Internal Routines *---------------------------------------------------------------------------*/ /* ------------------------ Routines for TBBT ------------------------------*/ /* free data - used by tbbt routines */ void ANfreedata(void * data) { HDfree(data); } /* ANfreekey() */ /* free key - used by tbbt routines */ void ANfreekey(void * key) { HDfree(key); } /* ANfreekey() */ #ifdef AN_DEBUG /* The following routine is used for debugging purposes to dump * key/data pairs from the TBBT trees * eg. tbbt_dump(tree, dumpentryKey, 0)*/ void dumpentryKey(void *key, void *data) { ANentry *node = NULL; printf("key = %4.4d, data = ",*(int*)key); if (data != NULL) { node = (ANentry *) data; printf("ann_id=%ld, annref=%d, elmtag=%d, elmref=%d\n", (long)node->ann_id, node->annref, node->elmtag, node->elmref); } else printf("(NULL)\n"); return; } /* dumpentryKey() */ #endif /* AN_DEBUG */ /* ------------------------ Private Internal Routines ---------------------*/ /* ------------------------------- ANIanncmp -------------------------------- NAME ANIanncmp -- compare two annotation keys or id's DESCRIPTION Compares two annotation keys. Used by tree for annotations Also used to compare annotation id's since also 32 bit value. RETURNS Returns 0 if i=j, -1 if i > j and 1 if i < j AUTHOR GeorgeV. --------------------------------------------------------------------------- */ intn ANIanncmp(void * i, /* IN: annotation key(tag,ref) */ void * j, /* IN: annotation key(tag,ref) */ intn value /* not used */) { /* shut compiler up */ value = value; if (*(int32 *)i == *(int32 *)j) return 0; if (*(int32 *)i > *(int32 *)j) return -1; else return 1; } /* ANIanncmp */ /* ------------------------------- ANIdestroy -------------------------------- NAME ANIdestroy -- Un-Initialize Annotation Interface DESCRIPTION Destroys annotation Atom group ANIDGROUP. This routine is usually registered with the atexit() rouinte. RETURNS SUCCEED or FAIL AUTHOR GeorgeV. --------------------------------------------------------------------------- */ intn ANIdestroy(void) { #ifdef LATER CONSTR(FUNC, "ANIdestroy"); #endif /* LATER */ int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Destroy the atom groups for annotations */ HAdestroy_group(ANIDGROUP); return ret_value; } /* ANIdestroy () */ /*-------------------------------------------------------------------------- NAME ANIstart - AN-level initialization routine. DESCRIPTION Register the shut-down routine (ANPdestroy) for call with atexit() RETURNS Returns SUCCEED/FAIL AUTHOR GeorgeV. --------------------------------------------------------------------------*/ PRIVATE intn ANIstart(void) { CONSTR(FUNC, "ANIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine ANIdestroy() */ if (HPregister_term_func(&ANIdestroy) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end ANIstart() */ /* ------------------------------- ANIinit -------------------------------- NAME ANIinit -- Initialize Annotation Interface DESCRIPTION Initializes the annotation interface i.e. installs library cleanup routine and creates the Atom group ANIDGROUP for annotations if necessary. RETURNS SUCCEED or FAIL AUTHOR GeorgeV. --------------------------------------------------------------------------- */ PRIVATE int32 ANIinit(void) { CONSTR(FUNC, "ANIinit"); int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) { if(ANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Initialize the atom groups for annotations */ HAinit_group(ANIDGROUP,ANATOM_HASH_SIZE); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIinit() */ /*-------------------------------------------------------------------------- NAME ANIaddentry -- add entry to corresponding annotation TBBT tree and atom group. DESCRIPTION Adds annotation to correct tree and register with atom group RETURNS annotation ID if successful and FAIL (-1) otherwise AUTHOR GeorgeV. -------------------------------------------------------------------------*/ PRIVATE int32 ANIaddentry(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: annotation type AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 ann_ref, /* IN: ref of annotation */ uint16 elmtag, /* IN: tag of item of which this is annotation */ uint16 elmref, /* IN: ref of item of which this is annotation */ intn new_ann /* IN: new annotation flag */) { CONSTR(FUNC, "ANIaddentry"); filerec_t *file_rec = NULL; /* file record pointer */ uint16 ann_tag = DFTAG_NULL; int32 *ann_key = NULL; ANentry *ann_entry = NULL; ANnode *ann_node = NULL; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for empty annotation tree of 'type'? */ if (file_rec->an_num[type] == -1) { if ((file_rec->an_tree[type] = (TBBT_TREE *) tbbtdmake(ANIanncmp,sizeof(int32),0)) == NULL) { HE_REPORT_GOTO("failed to create annotation tree", FAIL); } file_rec->an_num[type] = 0; } /* Which type of annotation file/data label or desc? */ switch((ann_type)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* allocate space for key */ if ((ann_key = (int32 *)HDmalloc(sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Create 32bit key from type/ref * ---------------------------- * | type(16bits)| ref(16bits) | * -----------------------------*/ *ann_key = AN_CREATE_KEY(type, ann_ref); /* Initialize annotation node for insertion in annotation atom group*/ if ((ann_node = HDmalloc(sizeof(ANnode))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ann_node->file_id = an_id; ann_node->ann_key = *ann_key; ann_node->new_ann = new_ann; /* Initialize annotation entry for insertion into corresponding TBBT */ if ((ann_entry = HDmalloc(sizeof(ANentry))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* register annotation with atom group ANIDGROUP */ ann_entry->annref = ann_ref; ann_entry->ann_id = HAregister_atom(ANIDGROUP,ann_node); if (FAIL == ann_entry->ann_id) HE_REPORT_GOTO("failed to insert annotation into ANIDGROUP atom group", FAIL); if (type == AN_DATA_LABEL || type == AN_DATA_DESC) { ann_entry->elmtag = (uint16) elmtag; ann_entry->elmref = (uint16) elmref; } else { ann_entry->elmtag = ann_tag; ann_entry->elmref = ann_ref; } /* Add annotation entry to 'type' tree */ if (tbbtdins(file_rec->an_tree[type], ann_entry, ann_key) == NULL) HE_REPORT_GOTO("failed to insert annotation into 'type' tree", FAIL); /* increment number of annotatiosn of 'type' */ file_rec->an_num[type] += 1; /* return annotation id */ ret_value = ann_entry->ann_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ if (ann_key != NULL) HDfree(ann_key); if (ann_entry != NULL) HDfree(ann_entry); if (ann_node != NULL) HDfree(ann_node); } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIaddentry */ /*-------------------------------------------------------------------------- NAME ANIcreate_ann_tree -- create an annotation tree of 'type' for given file DESCRIPTION Creates either a label or descritption annotation TBBT tree. RETURNS Number of annotations of 'type' in file if successful and FAIL (-1) otherwise AUTHOR GeorgeV. -------------------------------------------------------------------------*/ PRIVATE intn ANIcreate_ann_tree(int32 an_id,/* IN: annotation interface id */ ann_type type /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/) { CONSTR(FUNC, "ANIcreate_ann_tree"); filerec_t *file_rec = NULL; /* file record pointer */ uint8 datadi[4]; int32 more_anns; int32 aid = FAIL; int32 nanns; int32 i; int32 *ann_key = NULL; uint16 ann_tag; uint16 ann_ref; uint8 *dptr = NULL; ANentry *ann_entry = NULL; ANnode *ann_node = NULL; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for empty annotation tree of 'type'? */ if (file_rec->an_num[type] == -1) { if ((file_rec->an_tree[type] = (TBBT_TREE *) tbbtdmake(ANIanncmp,sizeof(int32),0)) == NULL) { HE_REPORT_GOTO("failed to create annotation tree", FAIL); } file_rec->an_num[type] = 0; /* initialize to zero entries */ } else { ret_value = file_rec->an_num[type]; /* tree already created */ goto done; /* we are done */ } /* Which type of annotation data/file label or desc? */ switch((ann_type)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* Get number of annotations of 'type' in file */ if ((nanns = Hnumber(an_id, ann_tag)) == 0) { /* ZERO annotations of 'type' in file */ file_rec->an_num[type] = 0; ret_value = file_rec->an_num[type]; goto done; /* we are done */ } /* start read on 'type' annotations in file * note that so far an_id == file_id */ if ((aid = Hstartread(an_id, ann_tag, DFREF_WILDCARD)) == FAIL) { HE_REPORT_GOTO("Hstartread failed to read annotation", FAIL); } else more_anns = SUCCEED; /* Process annotations of 'type' in file */ for (i = 0; (i < nanns) && (more_anns != FAIL); i++) { /* see if annotation is there */ if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &ann_ref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { /* record what we found so far and return */ file_rec->an_num[type] = nanns; ret_value = FAIL; goto done; /* we are done */ } /* if data annotation, read data annotation tag/ref */ if(type != AN_FILE_LABEL && type != AN_FILE_DESC) { if ((int32) FAIL == Hread(aid, (int32) 4, datadi)) { /* record what we found so far and return */ file_rec->an_num[type] = nanns; ret_value = FAIL; goto done; /* we are done */ } } /* allocate space for key */ if ((ann_key = (int32 *)HDmalloc(sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Create key from tag/ref pair * ---------------------------- * | tag(16bits) | ref(16bits) | * -----------------------------*/ *ann_key = AN_CREATE_KEY(type, ann_ref); /* Initialize annotation node for insertion in annotation atom group*/ if ((ann_node = HDmalloc(sizeof(ANnode))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ann_node->file_id = an_id; ann_node->ann_key = *ann_key; ann_node->new_ann = 0; /* not a newly created annotation */ /* Initialize annotation entry for insertion into corresponding TBBT */ /* and decode data tag/ref */ if ((ann_entry = HDmalloc(sizeof(ANentry))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ann_entry->annref = ann_ref; /* ann_entry->ann_id = *ann_id = num_anns++; */ ann_entry->ann_id = HAregister_atom(ANIDGROUP,ann_node); if (FAIL == ann_entry->ann_id) HE_REPORT_GOTO("failed to insert annotation into ann_id Group", FAIL); /* Check if data annotation to decode data tag/ref */ if(type != AN_FILE_LABEL && type != AN_FILE_DESC) { dptr = (uint8 *) &(datadi[0]); UINT16DECODE(dptr, ann_entry->elmtag); UINT16DECODE(dptr, ann_entry->elmref); } else { ann_entry->elmtag = ann_tag; ann_entry->elmref = ann_ref; } /* Add annotation entry to 'type' tree */ if (tbbtdins(file_rec->an_tree[type], ann_entry, ann_key) == NULL) HE_REPORT_GOTO("failed to insert annotation into 'type' tree", FAIL); /* set read on next annotation */ more_anns = Hnextread(aid, ann_tag, DFREF_WILDCARD, DF_CURRENT); } /* end for "more_anns" */ /* Finish access*/ if (FAIL != aid) { if (FAIL == Hendaccess(aid)) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* set return value */ ret_value = file_rec->an_num[type] = nanns; done: if(ret_value == FAIL) { /* Error condition cleanup */ if (ann_key != NULL) HDfree(ann_key); if (ann_entry != NULL) HDfree(ann_entry); if (ann_node != NULL) HDfree(ann_node); if (FAIL != aid) Hendaccess(aid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIcreate_ann_tree */ #if NOT_USED_YET /*-------------------------------------------------------------------------- NAME ANIfind -- find annotation id for given annotation type and ref number DESCRIPTION Find annotation id for the given annotation type and ref number RETURNS Annotation id if successful and FAIL (-1) otherwise AUTHOR GeorgeV. -------------------------------------------------------------------------*/ PRIVATE int32 ANIfind(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 ann_ref /* IN: ref of annotation */) { CONSTR(FUNC, "ANIfind"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; int32 ann_key; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check for empty annotation tree of 'type'? */ if (file_rec->an_num[type] == -1) { if ((file_rec->an_tree[type] = (TBBT_TREE *) tbbtdmake(ANIanncmp,sizeof(int32),0)) == NULL) { HE_REPORT_GOTO("failed to create annotation tree", FAIL); } file_rec->an_num[type] = 0; /* intialize after allocation */ } /* Create key from type/ref pair * ---------------------------- * | type(16bits) | ref(16bits) | * -----------------------------*/ ann_key = AN_CREATE_KEY(type, ann_ref); /* See if annotation of 'type' with ref exits */ if ((entry = tbbtdfind(file_rec->an_tree[type], &ann_key, NULL)) == NULL) HE_REPORT_GOTO("failed to find annotation of 'type'", FAIL); /* get annotation entry from node */ ann_entry = (ANentry *) entry->data; /* return annotation id */ ret_value = ann_entry->ann_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIfind */ #endif /* NOT_USED_YET */ /*-------------------------------------------------------------------------- NAME ANInumann -- find number of annotation of 'type' that match the given element tag/ref DESCRIPTION Find number of annotation of 'type' for the given element tag/ref pair. Not used for file lables/descs since there can only be one set of them for a file. RETURNS Number of annotation found if successful and FAIL (-1) otherwise AUTHOR GeorgeV. -------------------------------------------------------------------------*/ PRIVATE intn ANInumann(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 elem_tag, /* IN: tag of item of which this is annotation */ uint16 elem_ref /* IN: ref of item of which this is annotation */) { CONSTR(FUNC, "ANInumann"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; intn nanns = 0; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Empty annotation tree */ if (file_rec->an_num[type] == -1) { if (ANIcreate_ann_tree(an_id, type) == FAIL) HGOTO_ERROR(DFE_BADCALL, FAIL); } /* Traverse the list looking for a match */ for(entry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[type])); entry != NULL; entry = tbbtnext(entry)) { ann_entry = (ANentry *) entry->data; /* get annotation entry from node */ if ((ann_entry->elmref == elem_ref) && (ann_entry->elmtag == elem_tag)) { nanns++; /* increment ref counter if match */ } } /* return number of annotation references found for tag/ref */ ret_value = nanns; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANInumann */ /*-------------------------------------------------------------------------- NAME ANIannlist -- generate list of annotation ids of 'type' that match the given element tag/ref DESCRIPTION Find and generate list of annotation ids of 'type' for the given element tag/ref pair RETURNS number of annotations ids found if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ PRIVATE intn ANIannlist(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 elem_tag, /* IN: tag of item of which this is annotation*/ uint16 elem_ref, /* IN: ref of item of which this is annotation */ int32 ann_list[]/* OUT: array of ann_id's that match criteria. */) { CONSTR(FUNC, "ANIannlist"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; intn nanns = 0; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Empty annotation tree */ if (file_rec->an_num[type] == -1) { if (ANIcreate_ann_tree(an_id, type) == FAIL) HGOTO_ERROR(DFE_BADCALL, FAIL); } /* Traverse the list looking for a match */ for(entry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[type])); entry != NULL; entry = tbbtnext(entry)) { ann_entry = (ANentry *) entry->data; /* get annotation entry from node */ if ((ann_entry->elmref == elem_ref) && (ann_entry->elmtag == elem_tag)) { /* save ref of ann match in list */ ann_list[nanns++] = ann_entry->ann_id; } } /* return number of annotation id's found for tag/ref */ ret_value = nanns; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIannlist */ /*-------------------------------------------------------------------------- NAME ANIannlen -- get length of annotation givne annotation id DESCRIPTION Uses the annotation id to find ann_key & file_id RETURNS length of annotation if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ PRIVATE int32 ANIannlen(int32 ann_id /* IN: annotation id */) { CONSTR(FUNC, "ANIannlen"); ANnode *ann_node = NULL; int32 file_id = FAIL; int32 type; int32 ann_key; uint16 ann_tag; uint16 ann_ref; int32 ann_length =(-1); int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* get annotation record */ ann_node = HAatom_object(ann_id); if (NULL == ann_node) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file id and annotation key */ file_id = ann_node->file_id; ann_key = ann_node->ann_key; type = AN_KEY2TYPE(ann_key); ann_ref = AN_KEY2REF(ann_key); /* Valid file id */ if (file_id == FAIL) HE_REPORT_GOTO("bad file_id", FAIL); /* set type annotation tag */ switch((int32)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } if (ann_tag == DFTAG_DIL || ann_tag == DFTAG_DIA) { /* 4=length of data tag/ref for data label or description */ if ((ann_length = Hlength(file_id, ann_tag, ann_ref)) == FAIL) HE_REPORT_GOTO("Failed to find annotation length", FAIL); ann_length -= 4; } else if (ann_tag == DFTAG_FID || ann_tag == DFTAG_FD) { /* not data tag/ref for file label or description */ if ((ann_length = Hlength(file_id, ann_tag, ann_ref)) == FAIL) HE_REPORT_GOTO("Failed to find annotation length", FAIL); } /* return the length */ ret_value = (ann_length); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIannlen */ /*-------------------------------------------------------------------------- NAME ANIreadann -- read annotation given ann_id DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ PRIVATE intn ANIreadann(int32 ann_id, /* IN: annotation id (handle) */ char *ann, /* OUT: space to return annotation in */ int32 maxlen /* IN: size of space to return annotation in */) { CONSTR(FUNC, "ANIreadann"); ANnode *ann_node = NULL; int32 file_id = FAIL; int32 type; int32 ann_key; int32 aid = FAIL; int32 ann_len; uint16 ann_tag; uint16 ann_ref; uint8 datadi[4] = {0,0,0,0}; /* to read in and discard data/ref! */ intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* get annotation record */ ann_node = HAatom_object(ann_id); if (NULL == ann_node) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file id and annotation key */ file_id = ann_node->file_id; ann_key = ann_node->ann_key; type = AN_KEY2TYPE(ann_key); ann_ref = AN_KEY2REF(ann_key); /* Valid file id */ if (file_id == FAIL) HE_REPORT_GOTO("bad file_id", FAIL); /* set type tag */ switch((int32)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* find DD for that annotation using tag/ref */ aid = Hstartread(file_id, ann_tag, ann_ref); if (aid == FAIL) HE_REPORT_GOTO("Failed to get access to annotation",FAIL); if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, (uint16 *) NULL, &ann_len, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { HE_REPORT_GOTO("Failed to get annotation",FAIL); } /* first four bytes were tag/ref if data annotation, so they don't count */ if (ann_tag == DFTAG_DIL || ann_tag == DFTAG_DIA) ann_len -= 4; #ifdef AN_DEBUG printf("ANIreadann: from Hinquire, ann_len=%d, maxlen=%d\n", ann_len, maxlen); #endif /* Check length of space provided * if not enough space, truncate annotation * Labels need space for null terminator, Descriptions don't */ if (ann_tag == DFTAG_FID || ann_tag == DFTAG_DIL) { /* Labels */ if (ann_len > maxlen - 1) ann_len = maxlen - 1; } else { /* Descriptions */ if (ann_len > maxlen) ann_len = maxlen; } /* If data label or description need to read past tag/ref */ if (ann_tag == DFTAG_DIL || ann_tag == DFTAG_DIA) { /* Data label/description */ if ((int32) FAIL == Hread(aid, (int32) 4, datadi)) HE_REPORT_GOTO("Failed to go past tag/ref",FAIL); } /* read itslef annotation now..*/ if ((int32) FAIL == Hread(aid, ann_len, ann)) HE_REPORT_GOTO("Failed to read annotation",FAIL); /* If Label need to NULL terminate string */ if (ann_tag == DFTAG_FID || ann_tag == DFTAG_DIL) ann[ann_len] = '\0'; #ifdef AN_DEBUG printf("ANIreadann: ann_len=%d, ann=%s\n", ann_len,ann); #endif /* Close access to annotation object */ if (FAIL != aid) { if (FAIL == Hendaccess(aid)) HGOTO_ERROR(DFE_INTERNAL, FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ if (FAIL != aid) Hendaccess(aid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIreadann */ /*-------------------------------------------------------------------------- NAME ANIwriteann -- write annotation given ann_id DESCRIPTION Checks for pre-existence of given annotation, replacing old one if it exists. Writes out annotation. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ PRIVATE intn ANIwriteann(int32 ann_id, /* IN: annotation id */ const char *ann, /* IN: annotation to write */ int32 ann_len /* IN: length of annotation */) { CONSTR(FUNC, "ANIwriteann"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; ANnode *ann_node = NULL; int32 file_id = FAIL; int32 type; int32 ann_key; int32 aid = FAIL; int newflag = 0; uint16 ann_tag; uint16 ann_ref; uint16 elem_tag; uint16 elem_ref; uint8 datadi[4] = {0,0,0,0}; /* to hold data tag/ref for writing */ uint8 *ptr = NULL; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* get annotation record */ ann_node = HAatom_object(ann_id); if (NULL == ann_node) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file id and annotation key */ file_id = ann_node->file_id; ann_key = ann_node->ann_key; type = AN_KEY2TYPE(ann_key); ann_ref = AN_KEY2REF(ann_key); /* convert file_id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* set type tag */ switch((int32)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* Get annotation entry so that we can extract tag/ref of element * Note that for file labels and descriptions the tag/ref contain * DFTAG_XXX and annotation reference number */ if ((entry = tbbtdfind(file_rec->an_tree[type], &ann_key, NULL)) == NULL) HE_REPORT_GOTO("failed to retrieve annotation of 'type' tree", FAIL); ann_entry = (ANentry *) entry->data; elem_tag = ann_entry->elmtag; elem_ref = ann_entry->elmref; newflag = ann_node->new_ann; /* is this a new annotation */ if (newflag == 1) { ann_node->new_ann = 0; /* set new annotation entry to false */ } /* If annotation exists, re-used the DD and rewrite new annotation while preserving tag/ref. We assume annotations are not stored as linked-blocks for now. */ if (newflag == 0) { /* annotation exists in file, re-writing */ /* Not new, re-used the tag/ref(i.e. DD) for new annotation. pointer to old annotation is lost. */ if (HDreuse_tagref(file_id, ann_tag, ann_ref) == FAIL) HE_REPORT_GOTO("Unable to replace old annotation",FAIL); } if (ann_tag == DFTAG_DIL || ann_tag == DFTAG_DIA) { /* Data label/description * Note: cannot use Hputelement because need to write data tag/ref */ aid = Hstartwrite(file_id, ann_tag, ann_ref, ann_len + 4); if (aid == FAIL) HE_REPORT_GOTO("Failed to start write access on annotation",FAIL); /* Setup up to write annotation tag/ref */ ptr = (uint8 *) &(datadi[0]); /* first, write the object's tag/ref */ UINT16ENCODE(ptr, elem_tag); UINT16ENCODE(ptr, elem_ref); /* write annotation tag/ref of element */ if ((int32) FAIL == Hwrite(aid, (int32) 4, datadi)) HE_REPORT_GOTO("Failed to write tag/ref of annotation",FAIL); #ifdef AN_DEBUG printf("ANIwriteann: ann_len=%d, ann=%s\n", ann_len,ann); #endif /* then write the annotation itself */ if ((int32) FAIL == Hwrite(aid, ann_len, ann)) HE_REPORT_GOTO("Failed to write annotation",FAIL); /* end access to annotation */ if (FAIL == Hendaccess(aid)) HE_REPORT_GOTO("Failed to end access to annotation",FAIL); } else /* file label/description */ { /* write out file label/description */ if (FAIL == Hputelement(file_id, ann_tag, ann_ref, (const uint8 *)ann, ann_len)) HE_REPORT_GOTO("Failed to write file annotation",FAIL); #ifdef AN_DEBUG printf("ANIwriteann: fann_len=%d, fann=%s\n", ann_len,ann); #endif } done: if(ret_value == FAIL) { /* Error condition cleanup */ if (FAIL != aid) Hendaccess(aid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIwriteann */ /* ------------------------------- ANIcreate ------------------------------- NAME ANIcreate - create a new annotation and return a handle(id) DESCRIPTION Creates an annotation, returns an 'an_id' to work with the new annotation which can either be a label or description. RETURNS An ID to an annotation which can either be a label or description AUTHOR GeorgeV. --------------------------------------------------------------------------- */ PRIVATE intn ANIcreate(int32 file_id, /* IN: file ID */ uint16 elem_tag, /* IN: tag of item to be assigned annotation */ uint16 elem_ref, /* IN: reference number of itme to be assigned ann */ ann_type type /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/) { CONSTR(FUNC, "ANIcreate"); /* for HERROR */ int32 ann_id = FAIL; uint16 ann_tag; uint16 ann_ref; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Valid file id */ if (HAatom_group(file_id) != FIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* deal with type */ switch((ann_type)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; ann_ref = Htagnewref(file_id,ann_tag); break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; ann_ref = Htagnewref(file_id,ann_tag); break; case AN_FILE_LABEL: /* for file label set elmement tag/ref to ann_tag & ref */ ann_tag = DFTAG_FID; ann_ref = Htagnewref(file_id,ann_tag); elem_tag = ann_tag; elem_ref = ann_ref; break; case AN_FILE_DESC: /* for file desc set elmement tag/ref to ann_tag & ref */ ann_tag = DFTAG_FD; ann_ref = Htagnewref(file_id,ann_tag); elem_tag = ann_tag; elem_ref = ann_ref; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* Check tag and ref */ if (!elem_tag) HGOTO_ERROR(DFE_BADTAG, FAIL); if (!elem_ref) HGOTO_ERROR(DFE_BADREF, FAIL); /* put new annotation tag/ref into 'type' TBBTtree */ if ((ann_id = ANIaddentry(file_id, type, ann_ref, elem_tag, elem_ref, 1)) == FAIL) HE_REPORT_GOTO("Failed to add annotation to TBBT tree",FAIL); ret_value = ann_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANIcreate() */ /* --------------------- Exported Multi-file Interface ----------------------*/ /* ------------------------------- ANstart -------------------------------- NAME ANstart -- open file for annotation handling DESCRIPTION Start annotation handling on the file return a annotation ID to the file. RETURNS A file ID or FAIL. Note that we use 'an_id' which is the same as the file id. AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT int32 ANstart(int32 file_id /* IN: file to start annotation access on*/) { CONSTR(FUNC, "ANstart"); filerec_t *file_rec = NULL; /* file record pointer */ int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* call ANIinit, should just register termination function once no matter how many times it is called. */ ANIinit(); ret_value = file_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANstart() */ /*-------------------------------------------------------------------------- NAME ANfileinfo - Report high-level information about the ANxxx interface for a given file. DESCRIPTION Reports general information about the number of file and object(i.e. data) annotations in the file. This routine is generally used to find the range of acceptable indices for ANselect calls. RETURNS SUCCEED/FAIL AUTHOR GeorgeV. --------------------------------------------------------------------------*/ EXPORT intn ANfileinfo(int32 an_id, /* IN: annotation interface id */ int32 *n_file_label, /* OUT: the # of file labels */ int32 *n_file_desc, /* OUT: the # of file descriptions */ int32 *n_obj_label, /* OUT: the # of object labels */ int32 *n_obj_desc /* OUT: the # of object descriptions */) { CONSTR(FUNC, "ANfileinfo"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record pointer */ intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Empty file label annotation tree? */ if (file_rec->an_num[AN_FILE_LABEL] == -1) { if ((*n_file_label = ANIcreate_ann_tree(an_id, AN_FILE_LABEL)) == FAIL) HE_REPORT_GOTO("failed to create file label annotation TBBTtree", FAIL); } else *n_file_label = file_rec->an_num[AN_FILE_LABEL]; /* Empty file descritpiton annotation tree? */ if (file_rec->an_num[AN_FILE_DESC] == -1) { if ((*n_file_desc = ANIcreate_ann_tree(an_id, AN_FILE_DESC)) == FAIL) HE_REPORT_GOTO("failed to create file desc annotation TBBTtree", FAIL); } else *n_file_desc = file_rec->an_num[AN_FILE_DESC]; /* Empty label annotation tree? */ if (file_rec->an_num[AN_DATA_LABEL] == -1) { if ((*n_obj_label = ANIcreate_ann_tree(an_id, AN_DATA_LABEL)) == FAIL) HE_REPORT_GOTO("failed to create data label annotation TBBTtree", FAIL); } else *n_obj_label = file_rec->an_num[AN_DATA_LABEL]; /* Empty descritpiton annotation tree? */ if (file_rec->an_num[AN_DATA_DESC] == -1) { if ((*n_obj_desc = ANIcreate_ann_tree(an_id, AN_DATA_DESC)) == FAIL) HE_REPORT_GOTO("failed to create data desc annotation TBBTtree", FAIL); } else *n_obj_desc = file_rec->an_num[AN_DATA_DESC]; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANfileinfo() */ /* -------------------------------- ANend --------------------------------- NAME ANend -- End annotation access to file file DESCRIPTION End annotation access to file. RETURNS SUCCEED / FAIL --------------------------------------------------------------------------- */ EXPORT int32 ANend(int32 an_id /* IN: Annotation ID of file to close */) { CONSTR(FUNC,"ANend"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *aentry = NULL; ANentry *ann_entry = NULL; ANnode *ann_node = NULL; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* NEED to delete trees of annotations attached to node * NOTE: This could be written shorter using a for loop.... * or something.... */ /* free file label annotation rb tree */ if (file_rec->an_tree[AN_FILE_LABEL] != NULL) { /* Traverse tree puling ann_id's to delete from annotation atom group */ for(aentry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[AN_FILE_LABEL])); aentry != NULL; aentry = tbbtnext(aentry)) { /* get annotation entry from node */ ann_entry = (ANentry *) aentry->data; /* delete annotation node from annotation group */ if(NULL == (ann_node = HAremove_atom(ann_entry->ann_id))) HE_REPORT_GOTO("Failed to remove annotation with ann_id", FAIL); if(ann_node != NULL) HDfree(ann_node); /* free node */ } /* end for 'entry */ /* finally free tree */ tbbtdfree(file_rec->an_tree[AN_FILE_LABEL], ANfreedata, ANfreekey); } /* free file desc annotation rb tree */ if (file_rec->an_tree[AN_FILE_DESC] != NULL) { /* Traverse tree puling ann_id's to delete from annotation atom group */ for(aentry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[AN_FILE_DESC])); aentry != NULL; aentry = tbbtnext(aentry)) { /* get annotation entry from node */ ann_entry = (ANentry *) aentry->data; /* delete annotation node from annotation group */ if(NULL == (ann_node = HAremove_atom(ann_entry->ann_id))) HE_REPORT_GOTO("Failed to remove annotation with ann_id", FAIL); if(ann_node != NULL) HDfree(ann_node); /* free node */ } /* end for 'entry */ /* finally free tree */ tbbtdfree(file_rec->an_tree[AN_FILE_DESC], ANfreedata, ANfreekey); } /* free label annotation rb tree */ if (file_rec->an_tree[AN_DATA_LABEL] != NULL) { /* Traverse tree puling ann_id's to delete from annotation atom group */ for(aentry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[AN_DATA_LABEL])); aentry != NULL; aentry = tbbtnext(aentry)) { /* get annotation entry from node */ ann_entry = (ANentry *) aentry->data; /* delete annotation node from annotation group */ if(NULL == (ann_node = HAremove_atom(ann_entry->ann_id))) HE_REPORT_GOTO("Failed to remove annotation with ann_id", FAIL); if(ann_node != NULL) HDfree(ann_node); /* free node */ } /* end for 'entry */ /* finally free tree */ tbbtdfree(file_rec->an_tree[AN_DATA_LABEL], ANfreedata, ANfreekey); } /* free desc annotation rb tree */ if (file_rec->an_tree[AN_DATA_DESC] != NULL) { /* Traverse tree puling ann_id's to delete from annotation atom group */ for(aentry = tbbtfirst((TBBT_NODE *)*(file_rec->an_tree[AN_DATA_DESC])); aentry != NULL; aentry = tbbtnext(aentry)) { /* get annotation entry from node */ ann_entry = (ANentry *) aentry->data; /* delete annotation node from annotation group */ if(NULL == (ann_node = HAremove_atom(ann_entry->ann_id))) HE_REPORT_GOTO("Failed to remove annotation with ann_id", FAIL); if(ann_node != NULL) HDfree(ann_node); /* free node */ } /* end for 'entry */ /* finally free tree */ tbbtdfree(file_rec->an_tree[AN_DATA_DESC], ANfreedata, ANfreekey); } /* re-initalize everything in file record for annotations so the a ANstart() works. */ file_rec->an_tree[AN_DATA_LABEL] = NULL; file_rec->an_tree[AN_DATA_DESC] = NULL; file_rec->an_tree[AN_FILE_LABEL] = NULL; file_rec->an_tree[AN_FILE_DESC] = NULL; file_rec->an_num[AN_DATA_LABEL] = -1; file_rec->an_num[AN_DATA_DESC] = -1; file_rec->an_num[AN_FILE_LABEL] = -1; file_rec->an_num[AN_FILE_DESC] = -1; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANend() */ /* ------------------------------------------------------------------------ NAME ANcreate - create a new element annotation and return a handle(id) DESCRIPTION Creates a data annotation, returns an 'an_id' to work with the new annotation which can either be a label or description. RETURNS An ID to an annotation which can either be a label or description AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT int32 ANcreate(int32 an_id, /* IN: annotation interface ID */ uint16 elem_tag, /* IN: tag of item to be assigned annotation */ uint16 elem_ref, /* IN: reference number of itme to be assigned ann */ ann_type type /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions*/) { #ifdef LATER CONSTR(FUNC, "ANcreate"); /* for HERROR */ #endif /* LATER */ int32 ret_value; ret_value = (ANIcreate(an_id, elem_tag, elem_ref, type)); return ret_value; } /* ANcreate() */ /* ------------------------------------------------------------------------ NAME ANcreatef - create a new file annotation and return a handle(id) DESCRIPTION Creates a file annotation, returns an 'an_id' to work with the new file annotation which can either be a label or description. RETURNS An ID to an annotation which can either be a file label or description AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT int32 ANcreatef(int32 an_id,/* IN: annotation interface ID */ ann_type type /* IN: AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/) { #ifdef LATER CONSTR(FUNC, "ANcreatef"); /* for HERROR */ #endif /* LATER */ uint16 ann_tag; uint16 ann_ref; int32 ret_value = SUCCEED; /* deal with type */ switch((ann_type)type) { case AN_FILE_LABEL: ann_tag = DFTAG_FID; ann_ref = 0; /* initalize with invalid ref, will be replaced in ANIcreate() */ break; case AN_FILE_DESC: ann_tag = DFTAG_FD; ann_ref = 0; /* initialize with invalid ref, will be replaced in ANIcreate() */ break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } ret_value = ANIcreate(an_id, ann_tag, ann_ref, type); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANcreateann() */ /* ------------------------------- ANselect ------------------------------- NAME ANselect -- get an annotation ID from index of 'type' DESCRIPTION The position index is ZERO based RETURNS An ID to an annotation type which can either be a label or description AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT int32 ANselect(int32 an_id, /* IN: annotation interface ID */ int32 index, /* IN: index of annottion to get ID for */ ann_type type /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/) { CONSTR(FUNC, "ANselect"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Empty annotation tree */ if (file_rec->an_num[type] == -1) { if (ANIcreate_ann_tree(an_id, type) == FAIL) HGOTO_ERROR(DFE_BADCALL, FAIL); } /* check index and adjust to 1 based for tbbtindx()*/ if(index >= 0 && index < file_rec->an_num[type]) index++; else HE_REPORT_GOTO("bad index", FAIL); /* find 'index' entry */ if ((entry = tbbtindx((TBBT_NODE *)*(file_rec->an_tree[type]), index)) == NULL) HE_REPORT_GOTO("failed to find 'index' entry", FAIL); ann_entry = (ANentry *) entry->data; /* return ann_id */ ret_value = ann_entry->ann_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANselect() */ /*-------------------------------------------------------------------------- NAME ANnumann -- find number of annotation of 'type' that match the given element tag/ref DESCRIPTION Find number of annotation of 'type' for the given element tag/ref pair. Should not be used for File labels and descriptions. RETURNS Number of annotations found if successful and FAIL (-1) otherwise. AUTHOR GeorgeV. ------------------------------------------------------------------------*/ EXPORT intn ANnumann(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 elem_tag, /* IN: tag of item of which this is annotation */ uint16 elem_ref /* IN: ref of item of which this is annotation */ ) { CONSTR(FUNC, "ANnumann"); intn ret_value = SUCCEED; /* deal with invalid types */ if(type == AN_FILE_LABEL || type == AN_FILE_DESC) HGOTO_ERROR(DFE_ARGS, FAIL); ret_value = ANInumann(an_id, type, elem_tag, elem_ref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANnumann() */ /*-------------------------------------------------------------------------- NAME ANannlist -- generate list of annotation ids of 'type' that match the given element tag/ref DESCRIPTION Find and generate list of annotation ids of 'type' for the given element tag/ref pair. Should not be used for File labels and descriptions. RETURNS Number of annotations ids found if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ EXPORT intn ANannlist(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 elem_tag, /* IN: tag of item of which this is annotation */ uint16 elem_ref, /* IN: ref of item of which this is annotation */ int32 ann_list[] /* OUT: array of ann_id's that match criteria. */) { CONSTR(FUNC, "ANannlist"); intn ret_value = SUCCEED; /* deal with invalid types */ if(type == AN_FILE_LABEL || type == AN_FILE_DESC) HGOTO_ERROR(DFE_ARGS, FAIL); ret_value = ANIannlist(an_id, type, elem_tag, elem_ref, ann_list); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANannlist() */ /*-------------------------------------------------------------------------- NAME ANannlen -- get length of annotation givne annotation id DESCRIPTION Uses the annotation id to find ann_key & file_id RETURNS length of annotation if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ EXPORT int32 ANannlen(int32 ann_id /* IN: annotation id */) { #ifdef LATER CONSTR(FUNC, "ANannlen"); #endif /* LATER */ int32 ret_value; ret_value = ANIannlen(ann_id); return ret_value; } /* ANannlen() */ /*-------------------------------------------------------------------------- NAME ANwriteann -- write annotation given ann_id DESCRIPTION Checks for pre-existence of given annotation, replacing old one if it exists. Writes out annotation. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ EXPORT int32 ANwriteann(int32 ann_id, /* IN: annotation id */ const char *ann, /* IN: annotation to write */ int32 annlen /* IN: length of annotation */) { #ifdef LATER CONSTR(FUNC, "ANwriteann"); /* for HERROR */ #endif /* LATER */ int32 ret_value; ret_value = ANIwriteann(ann_id, ann, annlen); return ret_value; } /* ANwriteann() */ /*-------------------------------------------------------------------------- NAME ANreadann -- read annotation given ann_id DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise AUTHOR GeorgeV. ------------------------------------------------------------------------*/ EXPORT int32 ANreadann(int32 ann_id, /* IN: annotation id (handle) */ char *ann, /* OUT: space to return annotation in */ int32 maxlen /* IN: size of space to return annotation in */) { #ifdef LATER CONSTR(FUNC, "ANreadann"); /* for HERROR */ #endif /* LATER */ int32 ret_value; ret_value = ANIreadann(ann_id, ann, maxlen); return ret_value; } /* ANreadann() */ /* ----------------------------------------------------------------------- NAME ANendaccess -- end access to an annotation given it's id DESCRIPTION Terminates access to an annotation. For now does nothing RETURNS SUCCEED(0) or FAIL(-1) AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT intn ANendaccess(int32 ann_id /* IN: annotation id */) { #ifdef LATER CONSTR(FUNC, "ANendaccess"); /* for HERROR */ #endif /* LATER */ intn ret_value = SUCCEED; /* shut compiler up */ ann_id=ann_id; return ret_value; } /* ANendaccess() */ /* ----------------------------------------------------------------------- NAME ANget_tagref - get tag/ref pair for annotation based on type and index DESCRIPTION Get the tag/ref of the annotation based on the type and index of the annotation. The position index is zero based RETURNS A tag/ref pair for an annotation type which can either be a label or description. AUTHOR GeorgeV. --------------------------------------------------------------------------- */ EXPORT int32 ANget_tagref(int32 an_id, /* IN: annotation interface ID */ int32 index, /* IN: index of annotation to get tag/ref for */ ann_type type, /* IN: AN_DATA_LABEL for data labels, AN_DATA_DESC for data descriptions, AN_FILE_LABEL for file labels, AN_FILE_DESC for file descritpions.*/ uint16 *tag, /* OUT: Tag for annotation */ uint16 *ref /* OUT: ref for annotation */) { CONSTR(FUNC, "ANget_tagref"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Empty annotation tree */ if (file_rec->an_num[type] == -1) { if (ANIcreate_ann_tree(an_id, type) == FAIL) HGOTO_ERROR(DFE_BADCALL, FAIL); } /* check index and adjust to 1 based for tbbtindx()*/ if(index >= 0 && index <= file_rec->an_num[type]) index++; else HE_REPORT_GOTO("bad index", FAIL); /* find 'index' entry */ if ((entry = tbbtindx((TBBT_NODE *)*(file_rec->an_tree[type]), index)) == NULL) HE_REPORT_GOTO("failed to find 'index' entry", FAIL); ann_entry = (ANentry *) entry->data; /* set ref */ *ref = ann_entry->annref; /* set tag based on type */ switch((int32)type) { case AN_DATA_LABEL: *tag = DFTAG_DIL; break; case AN_DATA_DESC: *tag = DFTAG_DIA; break; case AN_FILE_LABEL: *tag = DFTAG_FID; break; case AN_FILE_DESC: *tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANget_tagref() */ /*-------------------------------------------------------------------------- NAME ANid2tagref -- get tag/ref given annotation id DESCRIPTION Uses the annotation id to find ann_node entry which contains ann_ref RETURNS SUCCEED(0) if successful and FAIL (-1) otherwise. AUTHOR GeorgeV. ------------------------------------------------------------------------*/ int32 ANid2tagref(int32 ann_id,/* IN: annotation id */ uint16 *tag, /* OUT: Tag for annotation */ uint16 *ref /* OUT: ref for annotation */) { CONSTR(FUNC, "ANid2tagref"); ANnode *ann_node = NULL; int32 file_id = FAIL; int32 type; int32 ann_key; uint16 ann_ref; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Valid annotation id */ /* get annotation record */ ann_node = HAatom_object(ann_id); if (NULL == ann_node) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file id and annotation key */ file_id = ann_node->file_id; ann_key = ann_node->ann_key; type = AN_KEY2TYPE(ann_key); ann_ref = AN_KEY2REF(ann_key); /* Valid file id */ if (file_id == FAIL) HE_REPORT_GOTO("bad file_id", FAIL); *ref = ann_ref; /* set type annotation tag */ switch((int32)type) { case AN_DATA_LABEL: *tag = DFTAG_DIL; break; case AN_DATA_DESC: *tag = DFTAG_DIA; break; case AN_FILE_LABEL: *tag = DFTAG_FID; break; case AN_FILE_DESC: *tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANid2tagref */ /*-------------------------------------------------------------------------- NAME ANtagref2id -- get annotation id given tag/ref DESCRIPTION Gets the annotation id of the annotation given the tag/ref of the annotation itself and the annotation interface id. RETURNS Annotation id of annotation if successful and FAIL(-1) otherwise. AUTHOR GeorgeV. ------------------------------------------------------------------------*/ int32 ANtagref2id(int32 an_id, /* IN Annotation interface id */ uint16 ann_tag, /* IN: Tag for annotation */ uint16 ann_ref /* IN: ref for annotation */) { CONSTR(FUNC, "ANtagref2id"); filerec_t *file_rec = NULL; /* file record pointer */ TBBT_NODE *entry = NULL; ANentry *ann_entry = NULL; int32 ann_key; ann_type type; int32 ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* convert an_id i.e. file_id to file rec and check for validity */ file_rec = HAatom_object(an_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* set type given annotation tag */ switch((uint16)ann_tag) { case DFTAG_DIL: type = AN_DATA_LABEL; break; case DFTAG_DIA: type = AN_DATA_DESC; break; case DFTAG_FID: type = AN_FILE_LABEL; break; case DFTAG_FD: type = AN_FILE_DESC; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } /* Check for empty annotation tree of 'type'? */ if (file_rec->an_num[type] == -1) { if (ANIcreate_ann_tree(an_id, type) == FAIL) HGOTO_ERROR(DFE_BADCALL, FAIL); } /* Create key from type/ref pair * ---------------------------- * | type(16bits) | ref(16bits) | * -----------------------------*/ ann_key = AN_CREATE_KEY(type, ann_ref); /* See if annotation of 'type' with ref exits */ if ((entry = tbbtdfind(file_rec->an_tree[type], &ann_key, NULL)) == NULL) HE_REPORT_GOTO("failed to find annotation of 'type'", FAIL); /* get annotation entry from node */ ann_entry = (ANentry *) entry->data; /* return annotation id */ ret_value = ann_entry->ann_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANtagref2id */ /*-------------------------------------------------------------------- NAME ANatype2tag - annotation type to corresponding annotation TAG DESCRIPTION Translate annotation type to corresponding TAG RETURNS Returns TAG corresponding to annotatin type AUTHOR GeorgeV. --------------------------------------------------------------------*/ EXPORT uint16 ANatype2tag(ann_type atype /* IN: Annotation type */) { /* Switch on annotation type "atype" */ #ifdef LATER CONSTR(FUNC, "ANatype2tag"); /* for HERROR */ #endif /* LATER */ uint16 ann_tag; switch((ann_type)atype) { case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; default: ann_tag = DFTAG_NULL; /*changed from 5 to DFTAG_NULL -BMR*/ } /* switch */ return ann_tag; } /* ANatype2tag */ /*-------------------------------------------------------------------- NAME ANtag2atype - annotation TAG to corresponding annotation type DESCRIPTION Translate annotation TAG to corresponding atype RETURNS Returns type corresponding to annotatin TAG AUTHOR GeorgeV. --------------------------------------------------------------------*/ EXPORT ann_type ANtag2atype(uint16 atag /* IN: annotation tag */) { /* Switch on annotation tag */ #ifdef LATER CONSTR(FUNC, "ANtag2atype"); /* for HERROR */ #endif /* LATER */ ann_type atype; switch((uint16)atag) { case DFTAG_FID: atype = AN_FILE_LABEL; break; case DFTAG_FD: atype = AN_FILE_DESC; break; case DFTAG_DIL: atype = AN_DATA_LABEL; break; case DFTAG_DIA: atype = AN_DATA_DESC; break; /* This will cause warnings on some compiliers */ default: atype = AN_UNDEF; } /* switch */ return atype; } /* ANtag2atype */ #endif /* MFAN_MASTER */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfan.h0000644000000000000000000000501612421456623013521 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfan.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*------------------------------------------------------------------------------ * File: dfan.h * Purpose: header file for the Annotations set * Invokes: df.h * Contents: * Structure definitions: DFANdirentry, DFANdirhead * Constant definitions: DFAN_LABEL, DFAN_DESC * Remarks: none *----------------------------------------------------------------------------*/ #ifndef DFAN_H /* avoid re-inclusion */ #define DFAN_H #include "hdf.h" #define DFAN_LABEL 0 #define DFAN_DESC 1 #define DFAN_LAB_BLKSIZE 64 /* default blksize to use for labels */ #define DFAN_DESC_BLKSIZE 512 /* default blksize to use for descriptions */ #define DFAN_DEFENTRIES 16 /* no of dir entries to add at a time */ /* * This structure stores an entry in the label/desc directory * for a label/desc in the file, it gives the ref of the label/desc, * and the tag/ref of the data item to which the label/desc relates */ typedef struct { uint16 annref; /* ref of annotation */ uint16 datatag; /* tag of data */ uint16 dataref; /* ref of data */ } DFANdirentry; /* * This structure is a head node for the directory, which is organized as * as a linked list of arrays. DFANdirentry is the structure of an * array element, while DFANdirhead is the list element */ typedef struct DFANdirhead { struct DFANdirhead *next; /* list element */ int32 nentries; /* Numer of entries */ DFANdirentry *entries; /* actually an arbitrary size array */ } DFANdirhead; #endif /* DFAN_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/cszip.c0000644000000000000000000010257312421456623013742 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6066 $"; #endif /* $Id: cszip.c 6066 2014-02-03 16:30:04Z derobins $ */ /* General HDF includes */ #include "hdf.h" #include #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #define CSZIP_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* internal defines */ #define TMP_BUF_SIZE 8192 /* size of throw-away buffer */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIcszip_staccess (accrec_t * access_rec, int16 acc_mode); PRIVATE int32 HCIcszip_init (accrec_t * access_rec); PRIVATE int32 HCIcszip_decode (compinfo_t * info, int32 length, uint8 *buf); PRIVATE int32 HCIcszip_encode (compinfo_t * info, int32 length, const uint8 *buf); PRIVATE int32 HCIcszip_term (compinfo_t * info); /*-------------------------------------------------------------------------- NAME HCIcszip_init -- Initialize a SZIP compressed data element. USAGE int32 HCIcszip_init(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcszip_staccess and HCIcszip_seek GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcszip_init(accrec_t * access_rec) { CONSTR(FUNC, "HCIcszip_init"); compinfo_t *info; /* special element information */ comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ intn ret_value = SUCCEED; #ifdef H4_HAVE_LIBSZ /* Sanity check to make certain that we haven't drifted out of date with * the mask options from the SZIP ricehdf.h header */ assert(H4_SZ_ALLOW_K13_OPTION_MASK==SZ_ALLOW_K13_OPTION_MASK); assert(H4_SZ_CHIP_OPTION_MASK==SZ_CHIP_OPTION_MASK); assert(H4_SZ_EC_OPTION_MASK==SZ_EC_OPTION_MASK); assert(H4_SZ_LSB_OPTION_MASK==SZ_LSB_OPTION_MASK); assert(H4_SZ_MSB_OPTION_MASK==SZ_MSB_OPTION_MASK); assert(H4_SZ_NN_OPTION_MASK==SZ_NN_OPTION_MASK); assert(H4_SZ_RAW_OPTION_MASK==SZ_RAW_OPTION_MASK); #endif info = (compinfo_t *) access_rec->special_info; if (Hseek(info->aid, 0, DF_START) == FAIL) /* seek to beginning of element */ HGOTO_ERROR(DFE_SEEKERROR, FAIL); szip_info = &(info->cinfo.coder_info.szip_info); /* Initialize SZIP state information */ szip_info->szip_state = SZIP_INIT; /* start in initial state */ if (szip_info->buffer_size != 0) { szip_info->buffer_size = 0; /* offset into the file */ if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } szip_info->offset = 0; /* offset into the file */ szip_info->szip_dirty=SZIP_CLEAN; done: return(ret_value); } /* end HCIcszip_init() */ /*-------------------------------------------------------------------------- NAME HCIcszip_decode -- Decode SZIP compressed data into a buffer. USAGE int32 HCIcszip_decode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to read into the buffer uint8 *buf; OUT: buffer to store the bytes read RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to decode SZIP data from the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcszip_decode(compinfo_t * info, int32 length, uint8 *buf) { CONSTR(FUNC, "HCIcszip_decode"); #ifdef H4_HAVE_LIBSZ accrec_t *access_rec; comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ uint8 *in_buffer; uint8 *out_buffer; int32 in_length; int32 out_length; int bytes_per_pixel; int32 rbytes; uint16 tag,ref; int32 len1; int32 aid; int32 status; size_t size_out; uint8 *cp; int32 good_bytes; int32 old_way; SZ_com_t sz_param; #endif #ifdef H4_HAVE_LIBSZ szip_info = &(info->cinfo.coder_info.szip_info); if (szip_info->szip_state == SZIP_INIT) { /* Load from disk, decode the data */ if ((access_rec = HAatom_object(info->aid)) == NULL) /* get the access_rec pointer */ HRETURN_ERROR(DFE_ARGS, FAIL); /* Discover how much data must be read */ if(HTPinquire(access_rec->ddid,&tag,&ref,NULL,&in_length)==FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); if (in_length == -1) HRETURN_ERROR(DFE_INTERNAL, FAIL); if (tag & 0x4000) { /* this is linked list -- get the length of the data */ aid = Hstartread(access_rec->file_id, tag, ref); if (HDinqblockinfo(aid, &len1, NULL, NULL, NULL) == FAIL) { Hendaccess(aid); HRETURN_ERROR(DFE_INTERNAL, FAIL); } in_length = len1; Hendaccess(aid); } old_way = (int)(szip_info->options_mask & SZ_H4_REV_2); if (old_way == 0) { /* special case: read data encoded in V4.2r0 */ old_way = 1; good_bytes = in_length; in_length = in_length+5; if ((in_buffer = (uint8 *) HDmalloc(in_length)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); cp = in_buffer; *cp = 0; cp++; INT32ENCODE(cp, good_bytes); } else { /* V4.2r1: in_length is correct */ old_way = 0; if ((in_buffer = (uint8 *) HDmalloc(in_length)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); } /* Allocate memory for the uncompressed data */ bytes_per_pixel = (szip_info->bits_per_pixel + 7) >> 3; if (bytes_per_pixel == 3) bytes_per_pixel++; out_length = szip_info->pixels * bytes_per_pixel; if ((out_buffer = (uint8 *) HDmalloc(out_length)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); /* Read the unompressed data */ if (old_way == 1) { /* this is encoded in V4.2r0 */ /* the preamble isn't in the file, so read only the data */ if ((rbytes = Hread(info->aid, in_length-5, in_buffer+5)) == FAIL) { HDfree(out_buffer); HDfree(in_buffer); HRETURN_ERROR(DFE_READERROR, FAIL); } if (rbytes == 0 || rbytes != (in_length - 5)) { /* is this possible? */ HDfree(out_buffer); HDfree(in_buffer); HRETURN_ERROR(DFE_READERROR, FAIL); } } else { /* HDF4.2R1: read the data plus preamble */ if ((rbytes = Hread(info->aid, in_length, in_buffer)) == FAIL) { HDfree(out_buffer); HDfree(in_buffer); HRETURN_ERROR(DFE_READERROR, FAIL); } if (rbytes == 0 || rbytes != in_length) { /* is this possible? */ HDfree(out_buffer); HDfree(in_buffer); HRETURN_ERROR(DFE_READERROR, FAIL); } } cp = in_buffer; cp++; INT32DECODE(cp, good_bytes); if (in_buffer[0] == 1) { /* This byte means the data was not compressed -- just copy out */ szip_info->szip_state = SZIP_RUN; HDmemcpy(out_buffer, in_buffer+5, good_bytes); szip_info->buffer = out_buffer; szip_info->buffer_pos = 0; szip_info->buffer_size = good_bytes; szip_info->offset = 0; if (good_bytes > length) { /* partial read */ HDmemcpy(buf, in_buffer+5, length); szip_info->buffer_pos += length; szip_info->buffer_size -= length; } else { /* read the whole data block to the user buffer */ HDmemcpy(buf, in_buffer+5, good_bytes); szip_info->buffer_pos += good_bytes; szip_info->buffer_size -= good_bytes; } szip_info->offset = szip_info->buffer_pos; HDfree(in_buffer); if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); } /* Decompress the data */ /* set up the parameters */ sz_param.options_mask = (szip_info->options_mask & ~SZ_H4_REV_2); sz_param.bits_per_pixel = szip_info->bits_per_pixel; sz_param.pixels_per_block = szip_info->pixels_per_block; sz_param.pixels_per_scanline = szip_info->pixels_per_scanline; size_out = out_length; if(SZ_OK!= (status = SZ_BufftoBuffDecompress(out_buffer, &size_out, (in_buffer+5), good_bytes, &sz_param))) { HDfree(out_buffer); HDfree(in_buffer); HRETURN_ERROR(DFE_CDECODE, FAIL); } if ((int32)size_out != out_length) { /* This should never happen?? */ printf("status: %d ??bytes != out_length %d != %d\n",status,size_out,out_length); } /* The data is successfully decompressed. Put into the szip struct */ HDfree(in_buffer); szip_info->szip_state = SZIP_RUN; szip_info->buffer = out_buffer; szip_info->buffer_pos = 0; szip_info->buffer_size = out_length; szip_info->offset = 0; } /* copy the data into the return buffer */ if (length > szip_info->buffer_size) { /* can't happen?? panic?? */ if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } return (FAIL); } HDmemcpy(buf, szip_info->buffer + szip_info->buffer_pos, length); szip_info->buffer_pos += length; szip_info->buffer_size -= length; szip_info->offset = szip_info->buffer_pos; if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); #else /* ifdef H4_HAVE_LIBSZ */ HRETURN_ERROR(DFE_CANTCOMP, FAIL); #endif /* H4_HAVE_LIBSZ */ } /* end HCIcszip_decode() */ /*-------------------------------------------------------------------------- NAME HCIcszip_encode -- Encode data from a buffer into SZIP compressed data USAGE int32 HCIcszip_encode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to store from the buffer const uint8 *buf; OUT: buffer to get the bytes from RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to encode SZIP data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcszip_encode(compinfo_t * info, int32 length, const uint8 *buf) { CONSTR(FUNC, "HCIcszip_encode"); #ifdef H4_HAVE_SZIP_ENCODER int bytes_per_pixel; comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ int32 buffer_size; if (SZ_encoder_enabled() == 0) HRETURN_ERROR(DFE_NOENCODER, FAIL); szip_info = &(info->cinfo.coder_info.szip_info); if (szip_info->szip_state == SZIP_INIT) { /* Need to initialize */ bytes_per_pixel = (szip_info->bits_per_pixel + 7) >> 3; if (bytes_per_pixel == 3) bytes_per_pixel = 4; buffer_size = szip_info->pixels * bytes_per_pixel; if ((szip_info->buffer = HDmalloc(buffer_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); szip_info->buffer_size = buffer_size; szip_info->buffer_pos = 0; szip_info->szip_state = SZIP_RUN; } /* copy the data into the buffer. This wil be written in 'term' function */ HDmemcpy(szip_info->buffer + szip_info->buffer_pos, buf, length); szip_info->buffer_pos += length; szip_info->buffer_size -= length; szip_info->offset = szip_info->buffer_pos; szip_info->szip_dirty=SZIP_DIRTY; return (SUCCEED); #else /* ifdef H4_HAVE_SZIP_ENCODER */ HRETURN_ERROR(DFE_CANTDECOMP, FAIL); #endif /* H4_HAVE_SZIP_ENCODER */ } /* end HCIcszip_encode() */ /*-------------------------------------------------------------------------- NAME HCIcszip_term -- Flush encoded data from internal buffer to SZIP compressed data USAGE int32 HCIcszip_term(info) compinfo_t *info; IN: the info about the compressed element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to flush SZIP data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcszip_term(compinfo_t * info) { CONSTR(FUNC, "HCIcszip_term"); #ifdef H4_HAVE_SZIP_ENCODER comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ uint8 *out_buffer; uint8 *ob; int32 out_buffer_size; int bytes_per_pixel; int32 current_size; accrec_t *access_rec; uint16 tag,ref; int32 len1; int32 aid; SZ_com_t sz_param; size_t size_out; int32 status; uint8 *cp; szip_info = &(info->cinfo.coder_info.szip_info); if (szip_info->szip_state != SZIP_RUN) return (SUCCEED); /* nothing to do */ if (szip_info->szip_dirty != SZIP_DIRTY) /* Should never happen?? */ { if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); } szip_info->szip_state = SZIP_TERM; current_size = 0; if ((access_rec = HAatom_object(info->aid)) == NULL) /* get the access_rec pointer */ HRETURN_ERROR(DFE_INTERNAL, FAIL); /* Discover how much data must be read */ if(HTPinquire(access_rec->ddid,&tag,&ref,NULL, ¤t_size)==FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); if (tag & 0x4000) { /* this is linked list -- get the length of the data */ aid = Hstartread(access_rec->file_id, tag, ref); if (HDinqblockinfo(aid, &len1, NULL, NULL, NULL) == FAIL) { Hendaccess(aid); HRETURN_ERROR(DFE_INTERNAL, FAIL); } current_size = len1; Hendaccess(aid); } /* Compute how much memory is needed to hold compressed data */ bytes_per_pixel = (szip_info->bits_per_pixel + 7) >> 3; if (bytes_per_pixel == 3) bytes_per_pixel = 4; /* temporary buffer for compression -- leave extra space in case of overflow in the SZIP algorithm. (This number corresponds to the current internal buffer of szip lib.) Sigh. */ /* allocate one byte to indicate when data is written uncompressed */ /* allocate 4 bytes to store the amount of data written: after compression may be less than the previous size */ out_buffer_size = (szip_info->pixels * 2 * bytes_per_pixel) + 5; /* heuristic for tiny data -- really shouldn't compress stuff this small, but there isn't any way to prevent it from getting here */ if (out_buffer_size < 1024) out_buffer_size = 1024; if ((out_buffer = HDmalloc(out_buffer_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); /* set parms */ sz_param.options_mask = szip_info->options_mask; sz_param.bits_per_pixel = szip_info->bits_per_pixel; sz_param.pixels_per_block = szip_info->pixels_per_block; sz_param.pixels_per_scanline = szip_info->pixels_per_scanline; size_out = out_buffer_size - 5; *out_buffer=0; if(SZ_OK!= (status =SZ_BufftoBuffCompress((out_buffer+5), &size_out, szip_info->buffer, szip_info->buffer_pos, &sz_param))) { /* Compression Failed. Analyse several cases, and clean up the mess */ if ((int32)size_out > out_buffer_size) { /* Should never happen */ printf("PANIC: overwrote memory\n");fflush(stdout); } if (status == 2/*SZ_OUTBUF_FULL*/) { /* SZIP internal overflow: data not successfully compressed */ /* Write out the uncompressed data */ *out_buffer=1; /* 1 = don't decompress */ cp = out_buffer; cp++; INT32ENCODE(cp, szip_info->buffer_pos); HDmemcpy((out_buffer+5), szip_info->buffer, szip_info->buffer_pos); HDfree(out_buffer); szip_info->szip_dirty=SZIP_CLEAN; if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); } /* compress failed, return error */ szip_info->szip_dirty=SZIP_CLEAN; HDfree(out_buffer); if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } HRETURN_ERROR(DFE_CENCODE, FAIL); } /* Compression Succeeded, write out the compressed data */ if ((int32)size_out >= out_buffer_size) printf("PANIC: overwrote memory but returned OK?\n");fflush(stdout); if ((int32)size_out > (szip_info->pixels * bytes_per_pixel)) { /* The compression succeeded, but is larger than the original data! */ /* Write the original data, discard the output */ *out_buffer=1; /* 1 = don't decompress */ cp = out_buffer; cp++; INT32ENCODE(cp, szip_info->buffer_pos); HDmemcpy((out_buffer+5), szip_info->buffer, szip_info->buffer_pos); Hwrite(info->aid, (szip_info->buffer_pos+5), out_buffer); szip_info->szip_dirty=SZIP_CLEAN; HDfree(out_buffer); if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); } if ((current_size > 0) && (((int32)size_out+5) < current_size)) { /* SZIP freaks out if there is junk at the end of the good data */ /* need to have enough data to overwrite the existing data */ /* allocate a buffer, fill in the good data. The rest must be zeroes */ if ((ob = HDmalloc(current_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); *ob=0; /* data needs to be decompressed */ cp = ob; cp++; INT32ENCODE(cp, size_out); /* how much to decompress (< total size)*/ HDmemcpy((ob+5), out_buffer+5, size_out); Hwrite(info->aid, current_size, ob); /* write out at least 'current_size' bytes */ szip_info->szip_dirty=SZIP_CLEAN; HDfree(out_buffer); HDfree(ob); if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } return (SUCCEED); } /* Finally! Write the compressed data. Byte 0 is '0' */ *out_buffer=0; /* data needs to be decompressed */ cp = out_buffer; cp++; INT32ENCODE(cp, size_out); /* whole bufer needs to be decompressed */ status = Hwrite(info->aid, size_out+5, out_buffer); szip_info->szip_dirty=SZIP_CLEAN; if (szip_info->buffer_size == 0) { if (szip_info->buffer != NULL) { HDfree(szip_info->buffer); szip_info->buffer = NULL; } } HDfree(out_buffer); return (SUCCEED); #else /* H4_HAVE_SZIP_ENCODER */ HRETURN_ERROR(DFE_CANTCOMP, FAIL); #endif /* H4_HAVE_SZIP_ENCODER */ } /* end HCIcszip_term() */ /*-------------------------------------------------------------------------- NAME HCIcszip_staccess -- Start accessing a SZIP compressed data element. USAGE int32 HCIcszip_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcszip_stread and HCIcszip_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcszip_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcszip_staccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (acc_mode == DFACC_READ) info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else #ifdef H4_HAVE_SZIP_ENCODER { if (SZ_encoder_enabled() == 0) HRETURN_ERROR(DFE_NOENCODER, FAIL); info->aid = Hstartaccess(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, DFACC_RDWR|DFACC_APPENDABLE); } #else /* H4_HAVE_SZIP_ENCODER */ HRETURN_ERROR(DFE_DENIED, FAIL); #endif /* H4_HAVE_SZIP_ENCODER */ if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); return (HCIcszip_init(access_rec)); /* initialize the SZIP info */ } /* end HCIcszip_staccess() */ /*-------------------------------------------------------------------------- NAME HCPcszip_stread -- start read access for compressed file USAGE int32 HCPcszip_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using a simple SZIP scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcszip_stread"); int32 ret; if ((ret = HCIcszip_staccess(access_rec, DFACC_READ)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcszip_stread() */ /*-------------------------------------------------------------------------- NAME HCPcszip_stwrite -- start write access for compressed file USAGE int32 HCPcszip_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using a simple SZIP scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcszip_stwrite"); int32 ret; if ((ret = HCIcszip_staccess(access_rec, DFACC_WRITE)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcszip_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcszip_seek -- Seek to offset within the data element USAGE int32 HCPcszip_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. COMMENT: GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcszip_seek"); compinfo_t *info; /* special element information */ comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ uint8 *tmp_buf; /* pointer to throw-away buffer */ /* shut compiler up */ origin = origin; info = (compinfo_t *) access_rec->special_info; szip_info = &(info->cinfo.coder_info.szip_info); if (offset < szip_info->offset) { /* need to seek from the beginning */ if (szip_info->szip_dirty == SZIP_DIRTY && szip_info->szip_state != SZIP_INIT) { if (HCIcszip_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); } if (HCIcszip_init(access_rec) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); } /* end if */ if ((tmp_buf = (uint8 *) HDmalloc(TMP_BUF_SIZE)) == NULL) /* get tmp buffer */ HRETURN_ERROR(DFE_NOSPACE, FAIL); while (szip_info->offset + TMP_BUF_SIZE < offset) /* grab chunks */ { if (HCIcszip_decode(info, TMP_BUF_SIZE, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ } if (szip_info->offset < offset) /* grab the last chunk */ { if (HCIcszip_decode(info, offset - szip_info->offset, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ } HDfree(tmp_buf); return (SUCCEED); } /* HCPcszip_seek() */ /*-------------------------------------------------------------------------- NAME HCPcszip_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcszip_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a SZIP compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcszip_read"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (HCIcszip_decode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return (length); } /* HCPcszip_read() */ /*-------------------------------------------------------------------------- NAME HCPcszip_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPcszip_write(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a SZIP compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcszip_write"); #ifdef H4_HAVE_SZIP_ENCODER compinfo_t *info; /* special element information */ comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ if (SZ_encoder_enabled() == 0) HRETURN_ERROR(DFE_NOENCODER, FAIL); info = (compinfo_t *) access_rec->special_info; szip_info = &(info->cinfo.coder_info.szip_info); /* Don't allow random write in a dataset unless: */ /* 1 - append onto the end */ /* 2 - start at the beginning and rewrite (at least) the whole dataset */ if ((info->length != szip_info->offset) && (szip_info->offset != 0 || length < info->length)) HRETURN_ERROR(DFE_UNSUPPORTED, FAIL); if (HCIcszip_encode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); return (length); #else /* ifdef H4_HAVE_SZIP_ENCODER */ HRETURN_ERROR(DFE_CANTDECOMP, FAIL); #endif /* H4_HAVE_SZIP_ENCODER */ } /* HCPcszip_write() */ /*-------------------------------------------------------------------------- NAME HCPcszip_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcszip_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcszip_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcszip_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcszip_endaccess -- Close the compressed data element USAGE int32 HCPcszip_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free encoding info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcszip_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcszip_endaccess"); compinfo_t *info; /* special element information */ comp_coder_szip_info_t *szip_info; /* ptr to SZIP info */ info = (compinfo_t *) access_rec->special_info; szip_info = &(info->cinfo.coder_info.szip_info); /* flush out SZIP buffer if there is unwritten data */ if (szip_info->szip_dirty == SZIP_DIRTY && szip_info->szip_state != SZIP_INIT) { if (HCIcszip_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); } /* close the compressed data AID */ if (Hendaccess(info->aid) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); return (SUCCEED); } /* HCPcszip_endaccess() */ /*-------------------------------------------------------------------------- NAME HCPsetup_szip_parms -- Initialize SZIP parameters USAGE intn HCPcszip_setup_parms( comp_info *c_info, int32 nt, int32 ndims, int32 *dims, int32 *cdims) comp_info *c_info; IN/OUT: the szip compression params int32 nt; IN: the number type of the data int32 ncomp; IN: components in GR, 1 for SD int32 ndims; IN: The rank of the data int32 *dims; IN: the dimensions int32 *cdims; IN: the dimensions of a chunk, if chunked, or NULL; RETURNS Returns SUCCEED or FAIL DESCRIPTION Computes the SZIP parameters for dataset or chunk: pixels -- total elements per compression pixels_per_scanline bits_per_pixel This is called from SDsetcompress, SDsetchunk, GRsetcompress, GRsetchunk GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPsetup_szip_parms( comp_info *c_info, int32 nt, int32 ncomp, int32 ndims, int32 *dims, int32 *cdims) { #ifdef H4_HAVE_SZIP_ENCODER int32 scanline; int32 npoints; int32 sz; int i; intn ret_value = SUCCEED; if (ndims <= 0) { ret_value = FAIL; goto done; } /* compute the number of elements in the compressed unit: if chunked, compress each chunk. If not, compress whole object */ npoints = ncomp; /* for GR24, treat as 3 D data for szip */ /* get npoints */ if (cdims == NULL ) { /* the whole array */ for (i = 0; i < ndims; i++) { npoints *= dims[i]; } } else { /* elements in a single chunk */ for (i = 0; i < ndims; i++) { npoints *= cdims[i]; } } c_info->szip.pixels = npoints; /* compute the pixels per scanline */ /* start with the n-1th dimension, allow for components of GR */ if (cdims == NULL ) { scanline = dims[ndims - 1] * ncomp; } else { scanline = cdims[ndims-1] * ncomp; } /* apply restrictions to find the correct value */ if (scanline < c_info->szip.pixels_per_block) { if (c_info->szip.pixels < c_info->szip.pixels_per_block) { ret_value = FAIL; goto done; } scanline = MIN((c_info->szip.pixels_per_block * SZ_MAX_BLOCKS_PER_SCANLINE), npoints); } else { if (scanline <= SZ_MAX_PIXELS_PER_SCANLINE) { scanline = MIN((c_info->szip.pixels_per_block * SZ_MAX_BLOCKS_PER_SCANLINE), scanline); } else { scanline = c_info->szip.pixels_per_block * SZ_MAX_BLOCKS_PER_SCANLINE; } } c_info->szip.pixels_per_scanline = scanline; /* compute the bits per pixel from the HDF NDT */ if (FAIL == (sz = DFKNTsize(nt | DFNT_NATIVE))) { ret_value = FAIL; goto done; } c_info->szip.bits_per_pixel = sz * 8; done: return(ret_value); #else /* szip not enabled */ return(FAIL); #endif } libhdf4-4.2.10/HDF_ALT/hdf/src/dfgroup.c0000644000000000000000000002635612421456623014264 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfgroup.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfgroup.c * Purpose: Low level functions for implementing groups * Invokes: df.c df.h * Contents: * DFdiread : read in the data identifier list from the group * DFdiget : get next data identifier from list * DFdisetup : get ready to store a list of data identifiers to write out * DFdiput : add a data identifier to the list to be written out * DFdiwrite : write out the list of data identifiers * Remarks: A group is a way of associating data elements with each other. * It is a tag whose data is a list of tag/refs * Each tag/ref combination is called a data identifier (DI). *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hfile.h" #if 0 #define MAX_GROUPS 8 #endif typedef struct DIlist_struct { uint8 *DIlist; intn num; intn current; } DIlist , *DIlist_ptr; static DIlist_ptr Group_list[MAX_GROUPS] = {NULL}; #define GSLOT2ID(s) ((((uint32)GROUPTYPE & 0xffff) << 16) | ((s) & 0xffff)) #define VALIDGID(i) (((((uint32)(i) >> 16) & 0xffff) == GROUPTYPE) && \ (((uint32)(i) & 0xffff) < MAX_GROUPS)) #define GID2REC(i) ((VALIDGID(i) ? (Group_list[(uint32)(i) & 0xffff]) : NULL)) /*----------------------------------------------------------------------------- * Name: setgroupREC * Purpose: Add a group list into the internal structure and return an ID * Inputs: list_rec: list to remember * Returns: FAIL on failure else a group ID to the list * Users: other group routines * Invokes: * Remarks: Allocates internal storeage if necessary *---------------------------------------------------------------------------*/ PRIVATE int32 setgroupREC(DIlist_ptr list_rec) { CONSTR(FUNC, "setgroupREC"); uintn i; for (i = 0; i < MAX_GROUPS; i++) if (Group_list[i]==NULL) { Group_list[i] = list_rec; return (int32)GSLOT2ID(i); } HRETURN_ERROR(DFE_INTERNAL, FAIL) } /* setgroupREC */ /*----------------------------------------------------------------------------- * Name: DFdiread * Purpose: Read a list of DIs into memory * Inputs: file_id: HDF file pointer * tag, ref: id of group which is to be read in * Returns: FAIL on failure else a group ID to the list * Users: HDF systems programmers, DF8getrig, other routines * Invokes: HDvalidfid, DFIfind, DFgetelement * Remarks: assumes tag is a group *---------------------------------------------------------------------------*/ int32 DFdiread(int32 file_id, uint16 tag, uint16 ref) { DIlist_ptr new_list; CONSTR(FUNC, "DFdiread"); int32 length; HEclear(); if (!HDvalidfid(file_id)) HRETURN_ERROR(DFE_ARGS, FAIL); /* Find the group. */ length = Hlength(file_id, tag, ref); if (length == FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* allocate a new structure to hold the group */ new_list = (DIlist_ptr) HDmalloc((uint32) sizeof(DIlist)); if (!new_list) HRETURN_ERROR(DFE_NOSPACE, FAIL); new_list->DIlist = (uint8 *) HDmalloc((uint32) length); if (!new_list->DIlist) { HDfree((VOIDP) new_list); HRETURN_ERROR(DFE_NOSPACE, FAIL) } new_list->num = (intn) (length / 4); new_list->current = 0; /* no DIs returned so far */ /* read in group */ if (Hgetelement(file_id, tag, ref, (uint8 *) new_list->DIlist) < 0) { HDfree((VOIDP) new_list->DIlist); HDfree((VOIDP) new_list); HRETURN_ERROR(DFE_READERROR, FAIL) } return (int32) setgroupREC(new_list); } /*----------------------------------------------------------------------------- * Name: DFdiget * Purpose: return next DI from the list of DIs in a group * Inputs: list: handle to group (which is list of DIs) * Outputs: ptag: pointer to tag part of DI to be returned * pref: pointer to ref part of DI to be returned * Returns: 0 on success, -1 on failure with error set * Users: HDF systems programmers, DF8getrig, other routines * Invokes: none * Remarks: frees Dilist space when all DIs returned *---------------------------------------------------------------------------*/ intn DFdiget(int32 list, uint16 *ptag, uint16 *pref) { CONSTR(FUNC, "DFdiget"); uint8 *p; DIlist_ptr list_rec; list_rec = GID2REC(list); if (!list_rec) HRETURN_ERROR(DFE_ARGS, FAIL); if (list_rec->current >= list_rec->num) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* compute address of Ndi'th di */ p = (uint8 *) list_rec->DIlist + 4 * list_rec->current++; UINT16DECODE(p, *ptag); UINT16DECODE(p, *pref); if (list_rec->current == list_rec->num) { HDfree((VOIDP) list_rec->DIlist); /*if all returned, free storage */ HDfree((VOIDP) list_rec); Group_list[list & 0xffff] = NULL; /* YUCK! BUG! */ } return SUCCEED; } /*----------------------------------------------------------------------------- * Name: DFdinobj * Purpose: return number of tag/refs in the group * Inputs: list: handle to group (which is list of DIs) * Returns: number of tag/refs in the group on success, * -1 on failure with error set * Users: HDF systems programmers, hdp utility * Invokes: none * Remarks: nuttin' *---------------------------------------------------------------------------*/ intn DFdinobj(int32 list) { CONSTR(FUNC, "DFdinobj"); DIlist_ptr list_rec; list_rec = GID2REC(list); if (!list_rec) HRETURN_ERROR(DFE_ARGS, FAIL); return (list_rec->num); } /* DFdinobj() */ /*----------------------------------------------------------------------------- * Name: DFdisetup * Purpose: setup space for storing a list of DIs to be written out * Inputs: maxsize: maximum number of DIs expected in the list * Returns: FAIL on failure with error set * else a group ID * Users: HDF systems programmers, DF8putrig, other routines * Invokes: none * Remarks: This call should go away sometime. Need better way to allocate * space, possibly just use a big block of static space *---------------------------------------------------------------------------*/ int32 DFdisetup(int maxsize) { CONSTR(FUNC, "DFdisetup"); DIlist_ptr new_list; new_list = (DIlist_ptr) HDmalloc((uint32) sizeof(DIlist)); if (!new_list) HRETURN_ERROR(DFE_NOSPACE, FAIL); new_list->DIlist = (uint8 *) HDmalloc((uint32) (maxsize * 4)); if (!new_list->DIlist) { HDfree((VOIDP) new_list); HRETURN_ERROR(DFE_NOSPACE, FAIL) } new_list->num = maxsize; new_list->current = 0; return setgroupREC(new_list); } /*----------------------------------------------------------------------------- * Name: DFdiput * Purpose: add a DI to the list to be written out * Inputs: tag, ref: DI to add * Returns: 0 on success, -1 on failure with error set * Users: HDF systems programmers, DF8putrig, other routines * Invokes: none * Remarks: arg is tag/ref rather than DI for convenience *---------------------------------------------------------------------------*/ intn DFdiput(int32 list, uint16 tag, uint16 ref) { CONSTR(FUNC, "DFdiput"); uint8 *p; DIlist_ptr list_rec; list_rec = GID2REC(list); if (!list_rec) HRETURN_ERROR(DFE_ARGS, FAIL); if (list_rec->current >= list_rec->num) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* compute address of Ndi'th di to put tag/ref in */ p = (uint8 *) list_rec->DIlist + 4 * list_rec->current++; UINT16ENCODE(p, tag); UINT16ENCODE(p, ref); return SUCCEED; } /*----------------------------------------------------------------------------- * Name: DFdiwrite * Purpose: Write DI list out to HDF file * Inputs: file_id: HDF file pointer * tag, ref: tag and ref of group whose contents is the list * Returns: 0 on success, -1 on failure with error set * Users: HDF systems programmers, DF8putrig, other routines * Invokes: none * Remarks: frees storage for Dilist *---------------------------------------------------------------------------*/ intn DFdiwrite(int32 file_id, int32 list, uint16 tag, uint16 ref) { CONSTR(FUNC, "DFdiwrite"); int32 ret; /* return value */ DIlist_ptr list_rec; if (!HDvalidfid(file_id)) HRETURN_ERROR(DFE_ARGS, FAIL); list_rec = GID2REC(list); if (!list_rec) HRETURN_ERROR(DFE_ARGS, FAIL); ret = Hputelement(file_id, tag, ref, list_rec->DIlist, (int32) list_rec->current * 4); HDfree((VOIDP) list_rec->DIlist); HDfree((VOIDP) list_rec); Group_list[list & 0xffff] = NULL; /* YUCK! BUG! */ return (intn) ret; } /*----------------------------------------------------------------------------- * Name: DFdifree * Purpose: Cleanup DI group * Inputs: groupID * Returns: none * Users: callers of DFdiget() when it is NOT called for every pair in the group. * Invokes: none * Remarks: Notes from Fortner Build Notes: * While working on a group, its info is stored in RAM, and the pointer to * that info is kept in a global array called Group_List. the size of Group_List * is fixed, and contains MAX_GROUPS pointers. When DFdiget() has returned * the last tag-ref pair from a given group's info, that info is freed, and * the corresponding slot in the Group_List array is available for re-use. * * If DFdiget() is NOT called for every pair in the group, the group info is * never freed, except by the use of this routine. So when a loop based on * DFdiget() exits early, it should first call freeDIGroup() to recover the * group slot for future use. * * The typical example seems to be an error occuring within the DFdiget() * loop or finding an element while doing a search. * *---------------------------------------------------------------------------*/ void DFdifree(int32 groupID) { #ifdef LATER CONSTR(FUNC, "DFdifree"); #endif /* LATER */ DIlist_ptr list_rec; list_rec = GID2REC( groupID ); if (list_rec == NULL ) return; HDfree((void*) list_rec->DIlist ); HDfree((void*) list_rec ); Group_list[groupID & 0xffff ] = NULL; } libhdf4-4.2.10/HDF_ALT/hdf/src/hntdefs.h0000644000000000000000000002270012421456623014243 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hntdefs.h 6032 2014-01-17 18:13:52Z acheng $ */ /*+ hnt.h *** This file contains all the number-type definitions for HDF + */ #ifndef _HNT_H #define _HNT_H /* masks for types */ #define DFNT_HDF 0x00000000 /* standard HDF format */ #define DFNT_NATIVE 0x00001000 /* native format */ #define DFNT_CUSTOM 0x00002000 /* custom format */ #define DFNT_LITEND 0x00004000 /* Little Endian format */ #define DFNT_MASK 0x00000fff /* format mask */ /* type info codes */ #define DFNT_NONE 0 /* indicates that number type not set */ #define DFNT_QUERY 0 /* use this code to find the current type */ #define DFNT_VERSION 1 /* current version of NT info */ #define DFNT_FLOAT32 5 #define DFNT_FLOAT 5 /* For backward compat; don't use */ #define DFNT_FLOAT64 6 #define DFNT_DOUBLE 6 /* For backward compat; don't use */ #define DFNT_FLOAT128 7 /* No current plans for support */ #define DFNT_INT8 20 #define DFNT_UINT8 21 #define DFNT_INT16 22 #define DFNT_UINT16 23 #define DFNT_INT32 24 #define DFNT_UINT32 25 #define DFNT_INT64 26 #define DFNT_UINT64 27 #define DFNT_INT128 28 /* No current plans for support */ #define DFNT_UINT128 30 /* No current plans for support */ #define DFNT_UCHAR8 3 /* 3 chosen for backward compatibility */ #define DFNT_UCHAR 3 /* uchar=uchar8 for backward combatibility */ #define DFNT_CHAR8 4 /* 4 chosen for backward compatibility */ #define DFNT_CHAR 4 /* char=char8 for backward combatibility */ #define DFNT_CHAR16 42 /* No current plans for support */ #define DFNT_UCHAR16 43 /* No current plans for support */ /* Type info codes for Native Mode datasets */ #define DFNT_NFLOAT32 (DFNT_NATIVE | DFNT_FLOAT32) #define DFNT_NFLOAT64 (DFNT_NATIVE | DFNT_FLOAT64) #define DFNT_NFLOAT128 (DFNT_NATIVE | DFNT_FLOAT128) /* Unsupported */ #define DFNT_NINT8 (DFNT_NATIVE | DFNT_INT8) #define DFNT_NUINT8 (DFNT_NATIVE | DFNT_UINT8) #define DFNT_NINT16 (DFNT_NATIVE | DFNT_INT16) #define DFNT_NUINT16 (DFNT_NATIVE | DFNT_UINT16) #define DFNT_NINT32 (DFNT_NATIVE | DFNT_INT32) #define DFNT_NUINT32 (DFNT_NATIVE | DFNT_UINT32) #define DFNT_NINT64 (DFNT_NATIVE | DFNT_INT64) #define DFNT_NUINT64 (DFNT_NATIVE | DFNT_UINT64) #define DFNT_NINT128 (DFNT_NATIVE | DFNT_INT128) /* Unsupported */ #define DFNT_NUINT128 (DFNT_NATIVE | DFNT_UINT128) /* Unsupported */ #define DFNT_NCHAR8 (DFNT_NATIVE | DFNT_CHAR8) #define DFNT_NCHAR (DFNT_NATIVE | DFNT_CHAR8) /* backward compat */ #define DFNT_NUCHAR8 (DFNT_NATIVE | DFNT_UCHAR8) #define DFNT_NUCHAR (DFNT_NATIVE | DFNT_UCHAR8) /* backward compat */ #define DFNT_NCHAR16 (DFNT_NATIVE | DFNT_CHAR16) /* Unsupported */ #define DFNT_NUCHAR16 (DFNT_NATIVE | DFNT_UCHAR16) /* Unsupported */ /* Type info codes for Little Endian data */ #define DFNT_LFLOAT32 (DFNT_LITEND | DFNT_FLOAT32) #define DFNT_LFLOAT64 (DFNT_LITEND | DFNT_FLOAT64) #define DFNT_LFLOAT128 (DFNT_LITEND | DFNT_FLOAT128) /* Unsupported */ #define DFNT_LINT8 (DFNT_LITEND | DFNT_INT8) #define DFNT_LUINT8 (DFNT_LITEND | DFNT_UINT8) #define DFNT_LINT16 (DFNT_LITEND | DFNT_INT16) #define DFNT_LUINT16 (DFNT_LITEND | DFNT_UINT16) #define DFNT_LINT32 (DFNT_LITEND | DFNT_INT32) #define DFNT_LUINT32 (DFNT_LITEND | DFNT_UINT32) #define DFNT_LINT64 (DFNT_LITEND | DFNT_INT64) #define DFNT_LUINT64 (DFNT_LITEND | DFNT_UINT64) #define DFNT_LINT128 (DFNT_LITEND | DFNT_INT128) /* Unsupported */ #define DFNT_LUINT128 (DFNT_LITEND | DFNT_UINT128) /* Unsupported */ #define DFNT_LCHAR8 (DFNT_LITEND | DFNT_CHAR8) #define DFNT_LCHAR (DFNT_LITEND | DFNT_CHAR8) /* backward compat */ #define DFNT_LUCHAR8 (DFNT_LITEND | DFNT_UCHAR8) #define DFNT_LUCHAR (DFNT_LITEND | DFNT_UCHAR8) /* backward compat */ #define DFNT_LCHAR16 (DFNT_LITEND | DFNT_CHAR16) /* Unsupported */ #define DFNT_LUCHAR16 (DFNT_LITEND | DFNT_UCHAR16) /* Unsupported */ /* class info codes for int */ #define DFNTI_MBO 1 /* Motorola byte order 2's compl */ #define DFNTI_VBO 2 /* Vax byte order 2's compl */ #define DFNTI_IBO 4 /* Intel byte order 2's compl */ /* class info codes for float */ #define DFNTF_NONE 0 /* indicates subclass is not set */ #define DFNTF_HDFDEFAULT 1 /* hdf default float format is ieee */ #define DFNTF_IEEE 1 /* IEEE format */ #define DFNTF_VAX 2 /* Vax format */ #define DFNTF_CRAY 3 /* Cray format */ #define DFNTF_PC 4 /* PC floats - flipped IEEE */ #define DFNTF_CONVEX 5 /* CONVEX native format */ #define DFNTF_VP 6 /* Fujitsu VP native format */ /* class info codes for char */ #define DFNTC_BYTE 0 /* bitwise/numeric field */ #define DFNTC_ASCII 1 /* ASCII */ #define DFNTC_EBCDIC 5 /* EBCDIC */ /* array order */ #define DFO_FORTRAN 1 /* column major order */ #define DFO_C 2 /* row major order */ /*******************************************************************/ /* Sizes of number types */ /*******************************************************************/ /* first the standard sizes of number types */ # define SIZE_FLOAT32 4 # define SIZE_FLOAT64 8 # define SIZE_FLOAT128 16 /* No current plans for support */ # define SIZE_INT8 1 # define SIZE_UINT8 1 # define SIZE_INT16 2 # define SIZE_UINT16 2 # define SIZE_INT32 4 # define SIZE_UINT32 4 # define SIZE_INT64 8 # define SIZE_UINT64 8 # define SIZE_INT128 16 /* No current plans for support */ # define SIZE_UINT128 16 /* No current plans for support */ # define SIZE_CHAR8 1 # define SIZE_CHAR 1 /* For backward compat char8 == char */ # define SIZE_UCHAR8 1 # define SIZE_UCHAR 1 /* For backward compat uchar8 == uchar */ # define SIZE_CHAR16 2 /* No current plans for support */ # define SIZE_UCHAR16 2 /* No current plans for support */ /* then the native sizes of number types */ /* Unusual number sizes */ /* IA64 (IA64) native number sizes: Char = 8 bits, signed Short=16 int=32 long=64 float=32 double=64 bits Long double=64 bits Char pointers = 64 bits Int pointers = 64 bits Little endian, IEEE floating point */ # define SIZE_NFLOAT32 4 # define SIZE_NFLOAT64 8 # define SIZE_NFLOAT128 16 /* No current plans for support */ # define SIZE_NINT8 1 # define SIZE_NUINT8 1 # define SIZE_NINT16 2 # define SIZE_NUINT16 2 # define SIZE_NINT32 4 # define SIZE_NUINT32 4 # define SIZE_NINT64 8 # define SIZE_NUINT64 8 # define SIZE_NINT128 16 /* No current plans for support */ # define SIZE_NUINT128 16 /* No current plans for support */ # define SIZE_NCHAR8 1 # define SIZE_NCHAR 1 /* For backward compat char8 == char */ # define SIZE_NUCHAR8 1 # define SIZE_NUCHAR 1 /* For backward compat uchar8 == uchar */ # define SIZE_NCHAR16 2 /* No current plans for support */ # define SIZE_NUCHAR16 2 /* No current plans for support */ /* then the sizes of little-endian number types */ # define SIZE_LFLOAT32 4 # define SIZE_LFLOAT64 8 # define SIZE_LFLOAT128 16 /* No current plans for support */ # define SIZE_LINT8 1 # define SIZE_LUINT8 1 # define SIZE_LINT16 2 # define SIZE_LUINT16 2 # define SIZE_LINT32 4 # define SIZE_LUINT32 4 # define SIZE_LINT64 8 # define SIZE_LUINT64 8 # define SIZE_LINT128 16 /* No current plans for support */ # define SIZE_LUINT128 16 /* No current plans for support */ # define SIZE_LCHAR8 1 # define SIZE_LCHAR 1 /* For backward compat char8 == char */ # define SIZE_LUCHAR8 1 # define SIZE_LUCHAR 1 /* For backward compat uchar8 == uchar */ # define SIZE_LCHAR16 2 /* No current plans for support */ # define SIZE_LUCHAR16 2 /* No current plans for support */ /* sizes of different number types */ # define MACHINE_I8_SIZE 1 # define MACHINE_I16_SIZE 2 # define MACHINE_I32_SIZE 4 # define MACHINE_F32_SIZE 4 # define MACHINE_F64_SIZE 8 /* maximum size of the atomic data types */ # define MAX_NT_SIZE 16 #endif /* _HNT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vgint.h0000644000000000000000000002702112421456623013740 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: vgint.h 5584 2011-04-13 18:25:06Z bmribler $ */ /***************************************************************************** * * vgint.h * * Part of HDF VSet interface * * defines library private symbols and structures used in v*.c files * * NOTES: * This include file depends on the basic HDF *.h files hdfi.h and hdf.h. * An 'S' in the comment means that that data field is saved in the HDF file. * ******************************************************************************/ #ifndef _VGINT_H #define _VGINT_H #include "H4api_adpt.h" #include "hfile.h" /* Include file for Threaded, Balanced Binary Tree implementation */ #include "tbbt.h" /* * typedefs for VGROUP, VDATA and VSUBGROUP */ typedef struct vgroup_desc VGROUP; typedef struct vdata_desc VDATA; typedef VDATA VSUBGROUP; /* * ----------------------------------------------------------------- * structures that are part of the VDATA structure * ----------------------------------------------------------------- */ typedef struct symdef_struct { char *name; /* symbol name */ int16 type; /* whether int, char, float etc */ uint16 isize; /* field size as stored in vdata */ uint16 order; /* order of field */ } SYMDEF; typedef struct write_struct { intn n; /* S actual # fields in element */ uint16 ivsize; /* S size of element as stored in vdata */ char name[VSFIELDMAX][FIELDNAMELENMAX + 1]; /* S name of each field */ int16 len[VSFIELDMAX]; /* S length of each fieldname */ int16 type[VSFIELDMAX]; /* S field type */ uint16 off[VSFIELDMAX]; /* S field offset in element in vdata */ uint16 isize[VSFIELDMAX]; /* S internal (HDF) size [incl order] */ uint16 order[VSFIELDMAX]; /* S order of field */ uint16 esize[VSFIELDMAX]; /* external (local machine) size [incl order] */ } VWRITELIST; typedef struct dyn_write_struct { intn n; /* S actual # fields in element */ uint16 ivsize; /* S size of element as stored in vdata */ char **name; /* S name of each field */ #ifndef OLD_WAY uint16 *bptr; /* Pointer to hold the beginning of the buffer */ #endif /* OLD_WAY */ int16 *type; /* S field type (into bptr buffer) */ uint16 *off; /* S field offset in element in vdata (into bptr buffer) */ uint16 *isize; /* S internal (HDF) size [incl order] (into bptr buffer) */ uint16 *order; /* S order of field (into bptr buffer) */ uint16 *esize; /* external (local machine) size [incl order] (into bptr buffer) */ } DYN_VWRITELIST; /* If there are too many attrs and performance becomes a problem, the vs_attr_t list defined below can be replaced by an array of attr lists, each list contains attrs for 1 field. */ typedef struct dyn_vsattr_struct { int32 findex; /* which field this attr belongs to */ uint16 atag, aref; /* tag/ref pair of the attr */ } vs_attr_t; typedef struct dyn_vgattr_struct { uint16 atag, aref; /* tag/ref pair of the attr */ } vg_attr_t; typedef struct dyn_read_struct { intn n; /* # fields to read */ intn *item; /* index into vftable_struct */ } DYN_VREADLIST; /* * ----------------------------------------------- * V G R O U P definition * ----------------------------------------------- */ struct vgroup_desc { uint16 otag, oref; /* tag-ref of this vgroup */ HFILEID f; /* HDF file id */ uint16 nvelt; /* S no of objects */ intn access; /* 'r' or 'w' */ uint16 *tag; /* S tag of objects */ uint16 *ref; /* S ref of objects */ char *vgname; /* S name of this vgroup */ char *vgclass; /* S class name of this vgroup */ intn marked; /* =1 if new info has been added to vgroup */ intn new_vg; /* =1 if this is a new Vgroup */ uint16 extag, exref; /* expansion tag-ref */ intn msize; /* max size of storage arrays */ uint32 flags; /* indicate which version of VG should be written to the file */ int32 nattrs; /* number of attributes */ vg_attr_t *alist; /* index of new-style attributes, by Vsetattr */ int32 noldattrs; /* number of old-style attributes */ vg_attr_t *old_alist; /* refs of attributes - only used in memory to prevent repeated code in making the list; see Voldnattrs's header for details -BMR 2/4/2011 */ vg_attr_t *all_alist; /* combined list; previous approach, only keep just in case we come back to that approach; will remove it once we decide not to go back 2/16/11 */ int16 version, more; /* version and "more" field */ struct vgroup_desc *next; /* pointer to next node (for free list only) */ }; /* VGROUP */ /* * ----------------------------------------------- * V D A T A definition * ----------------------------------------------- */ struct vdata_desc { uint16 otag, oref; /* tag,ref of this vdata */ HFILEID f; /* HDF file id */ intn access; /* 'r' or 'w' */ char vsname[VSNAMELENMAX + 1]; /* S name of this vdata */ char vsclass[VSNAMELENMAX + 1]; /* S class name of this vdata */ int16 interlace; /* S interlace as in file */ int32 nvertices; /* S #vertices in this vdata */ DYN_VWRITELIST wlist; DYN_VREADLIST rlist; int16 nusym; SYMDEF *usym; intn marked; /* =1 if new info has been added to vdata */ intn new_h_sz; /* =1 if VH size changed, due to new attrs etc. */ intn islinked; /* =1 if vdata is a linked-block in file */ uint16 extag, exref; /* expansion tag-ref */ uint32 flags; /* bit 0 -- has attr bit 1 -- "large field" bit 2 -- "interlaced data is appendable" bit 3-15 -- unused. */ intn nattrs; vs_attr_t *alist; /* attribute list */ int16 version, more; /* version and "more" field */ int32 aid; /* access id - for LINKED blocks */ struct vs_instance_struct *instance; /* ptr to the intance struct for this VData */ struct vdata_desc *next; /* pointer to next node (for free list only) */ }; /* VDATA */ /* .................................................................. */ /* Private data structures. Unlikely to be of interest to applications */ /* * These are just typedefs. Actual vfile_ts are declared PRIVATE and * are not accessible by applications. However, you may change VFILEMAX * to allow however many files to be opened. * * These are memory-resident copies of the tag-refs of the vgroups * and vdatas for each file that is opened. * */ /* this is a memory copy of a vg tag/ref found in the file */ typedef struct vg_instance_struct { int32 key; /* key to look up with the B-tree routines */ /* needs to be first in the structure */ uintn ref; /* ref # of this vgroup in the file */ /* needs to be second in the structure */ intn nattach; /* # of current attachs to this vgroup */ int32 nentries; /* # of entries in that vgroup initially */ VGROUP *vg; /* points to the vg when it is attached */ struct vg_instance_struct *next; /* pointer to next node (for free list only) */ } vginstance_t; /* this is a memory copy of a vs tag/ref found in the file */ typedef struct vs_instance_struct { int32 key; /* key to look up with the B-tree routines */ /* needs to be first in the structure */ uintn ref; /* ref # of this vdata in the file */ /* needs to be second in the structure */ intn nattach; /* # of current attachs to this vdata */ int32 nvertices; /* # of elements in that vdata initially */ VDATA *vs; /* points to the vdata when it is attached */ struct vs_instance_struct *next; /* pointer to next node (for free list only) */ } vsinstance_t; /* each vfile_t maintains 2 linked lists: one of vgs and one of vdatas * that already exist or are just created for a given file. */ typedef struct vfiledir_struct { int32 f; /* HDF File ID */ int32 vgtabn; /* # of vg entries in vgtab so far */ TBBT_TREE *vgtree; /* Root of VGroup B-Tree */ int32 vstabn; /* # of vs entries in vstab so far */ TBBT_TREE *vstree; /* Root of VSet B-Tree */ intn access; /* the number of active pointers to this file's Vstuff */ } vfile_t; /* .................................................................. */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* * Library private routines for the VSet layer */ VDATA *VSIget_vdata_node(void); void VSIrelease_vdata_node(VDATA *v); HDFLIBAPI vsinstance_t *VSIget_vsinstance_node(void); HDFLIBAPI void VSIrelease_vsinstance_node(vsinstance_t *vs); VGROUP *VIget_vgroup_node(void); void VIrelease_vgroup_node(VGROUP *v); HDFLIBAPI vginstance_t *VIget_vginstance_node(void); HDFLIBAPI void VIrelease_vginstance_node(vginstance_t *vg); HDFLIBAPI intn VPparse_shutdown(void); HDFLIBAPI vfile_t *Get_vfile(HFILEID f); HDFLIBAPI vsinstance_t *vsinst (HFILEID f, uint16 vsid); HDFLIBAPI vginstance_t *vginst (HFILEID f, uint16 vgid); HDFLIBAPI DYN_VWRITELIST *vswritelist (int32 vskey); HDFLIBAPI intn vpackvg (VGROUP * vg, uint8 buf[], int32 * size); HDFLIBAPI int32 vinsertpair (VGROUP * vg, uint16 tag, uint16 ref); HDFLIBAPI intn vpackvs (VDATA * vs, uint8 buf[], int32 * size); HDFLIBAPI VGROUP *VPgetinfo (HFILEID f,uint16 ref); HDFLIBAPI VDATA *VSPgetinfo (HFILEID f,uint16 ref); HDFLIBAPI int16 map_from_old_types (intn type); HDFLIBAPI void trimendblanks (char *ss); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _VGINT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hlimits.h0000644000000000000000000002654012421456623014267 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hlimits.h 6043 2014-01-21 21:09:03Z acheng $ */ /*+ hlimits.h *** This file contains all hard coded limits for the library *** and reserved vdata/vgroup names and classes. *** Also pre-defined attribute names are contained in thie file. + */ #ifndef _HLIMITS_H #define _HLIMITS_H #ifndef _WIN32 #define HDsetvbuf(F,S,M,Z) setvbuf(F,S,M,Z) #endif /************************************************************************** * Generally useful macro definitions * (These are copied from hdfi.h and shoudl remain included in both files * because hlimits.h is included from netcdf.h which is used in some * netCDF utilities which don't need or want the rest of the HDF header * files. -QAK - 2/17/99 ) **************************************************************************/ #ifndef MIN #define MIN(a,b) (((a)<(b)) ? (a) : (b)) #endif #ifndef MAX #define MAX(a,b) (((a)>(b)) ? (a) : (b)) #endif /* ------------------------- General Constants hdf.h --------------------- */ /* tbuf used as a temporary buffer for small jobs. The size is preferably > 512 but MUST be > ~256. It is advised that if an arbitrarily large buffer (> 100 bytes) is require, dynamic space be used. tbuf lives in the hfile.c */ #ifndef TBUF_SZ # define TBUF_SZ 1024 #endif /* File name max length (old annotations) */ #define DF_MAXFNLEN 256 /* * some max lengths for the Vset interface * * Except for FIELDNAMELENMAX, change these as you please, they * affect memory only, not the file. * */ #define FIELDNAMELENMAX 128 /* fieldname : 128 chars max */ #define VSFIELDMAX 256 /* max no of fields per vdata */ #define VSNAMELENMAX 64 /* vdata name : 64 chars max */ #define VGNAMELENMAX 64 /* vgroup name : 64 chars max */ /* Note: VGNAMELENMAX has been removed from library, test, and tools except in mfgr.c and Fortran interface, in favor of dynamic allocation. BMR- 1/28/2010 */ /* * default max no of objects in a vgroup * VGroup will grow dynamically if needed */ #define MAXNVELT 64 /* * Defaults for linked block operations with Vsets */ #define VDEFAULTBLKSIZE 4096 #define VDEFAULTNBLKS 32 /* Max order of a field in a Vdata */ #define MAX_ORDER 65535 #define MAX_FIELD_SIZE 65535 /* ------------------------- Constants for hfile.c --------------------- */ /* Maximum number of files (number of slots for file records) */ #ifndef MAX_FILE # define MAX_FILE 32 #endif /* MAX_FILE */ /* Maximum length of external filename(s) (used in hextelt.c) */ #ifndef MAX_PATH_LEN #define MAX_PATH_LEN 1024 #endif /* MAX_PATH_LEN */ /* ndds (number of dd's in a block) default, so user need not specify */ #ifndef DEF_NDDS # define DEF_NDDS 16 #endif /* DEF_NDDS */ /* ndds minimum, to prevent excessive overhead of very small dd-blocks */ #ifndef MIN_NDDS # define MIN_NDDS 4 #endif /* MIN_NDDS */ /* largest number that will fit into 16-bit word ref variable */ #define MAX_REF ((uint16)65535) /* length of block and number of blocks for converting 'appendable' data */ /* elements into linked blocks (will eventually be replaced by the newer */ /* variable-length blocks */ #define HDF_APPENDABLE_BLOCK_LEN 4096 #define HDF_APPENDABLE_BLOCK_NUM 16 /* hashing information */ #define HASH_MASK 0xff #define HASH_BLOCK_SIZE 100 /* ------------------------- Constants for Vxx interface --------------------- */ /* * Private conversion buffer stuff * VDATA_BUFFER_MAX is the largest buffer that can be allocated for * writing (haven't implemented reading yet). * Vtbuf is the buffer * Vtbufsize is the buffer size in bytes at any given time. * Vtbuf is increased in size as need be * BUG: the final Vtbuf never gets freed */ #define VDATA_BUFFER_MAX 1000000 /* --------------------- Constants for DFSDxx interface --------------------- */ #define DFS_MAXLEN 255 /* Max length of label/unit/format strings */ #define DFSD_MAXFILL_LEN 16 /* Current max length for fill_value space */ /* ----------------- Constants for COMPRESSION interface --------------------- */ /* Set the following macro to the value the highest compression scheme is */ #define COMP_MAX_COMP 12 #define COMP_HEADER_LENGTH 14 /* ----------------- Constants for DGROUP interface --------------------- */ #define MAX_GROUPS 8 /* ----------------- Constants for HERROR interface --------------------- */ #define FUNC_NAME_LEN 32 /* error_stack is the error stack. error_top is the stack top pointer, and points tothe next available slot on the stack */ #ifndef ERR_STACK_SZ # define ERR_STACK_SZ 10 #endif /* max size of a stored error description */ #ifndef ERR_STRING_SIZE # define ERR_STRING_SIZE 512 #endif /* ----------------- Constants for NETCDF interface(netcdf.h) ---------------- */ /* * This can be as large as the maximum number of stdio streams * you can have open on your system. */ #define H4_MAX_NC_OPEN MAX_FILE /* * These maximums are enforced by the interface, to facilitate writing * applications and utilities. However, nothing is statically allocated to * these sizes internally. */ #define H4_MAX_NC_DIMS 5000 /* max dimensions per file */ #define H4_MAX_NC_ATTRS 3000 /* max global or per variable attributes */ #define H4_MAX_NC_VARS 5000 /* max variables per file */ /* This macro changed the behavior of the SDcreate function in HDF4r1.3 * SDcreate started to fail if SDS name length was greater than 64, instead of truncating * it to 64 characters and creating a dataset. Switched back to the old definition. * EP 5/5/2000 #define H4_MAX_NC_NAME MIN(256,MIN(VSNAMELENMAX,VGNAMELENMAX)) */ #define H4_MAX_NC_NAME 256 /* max length of a name */ #define H4_MAX_NC_CLASS 128 /* max length of a class name - added this because 128 was used commonly in SD for class name, and this will help changing the class name variable declaration much easier - BMR 4/1/02*/ #define H4_MAX_VAR_DIMS 32 /* max per variable dimensions */ /* These definitions here are for backward/forward compatibiliy since major constants were modified with H4 prefix to avoid conflicts with the real NetCDF-3 library - EIP 9/5/07 */ #ifdef H4_HAVE_NETCDF #define MAX_NC_OPEN H4_MAX_NC_OPEN #define MAX_NC_DIMS H4_MAX_NC_DIMS #define MAX_NC_VARS H4_MAX_NC_VARS #define MAX_NC_NAME H4_MAX_NC_NAME #define MAX_NC_CLASS H4_MAX_NC_CLASS #define MAX_VAR_DIMS H4_MAX_VAR_DIMS #endif /* ----------------- Constants for MFGR interface --------------------- */ #define H4_MAX_GR_NAME 256 /* max length of a name */ #endif /* _HLIMITS_H */ /* ----------- Reserved classes and names for vdatas/vgroups -----*/ /* The names of the Vgroups created by the GR interface, from mfgr.h */ #define GR_NAME "RIG0.0" /* name of the Vgroup containing all the images */ #define RI_NAME "RI0.0" /* name of a Vgroup containing information a bout one image */ #define RIGATTRNAME "RIATTR0.0N" /* name of a Vdata containing an attribute */ #define RIGATTRCLASS "RIATTR0.0C" /* class of a Vdata containing an attribute */ /* Vdata and Vgroup attributes use the same class as that of SD attr, * _HDF_ATTRIBUTE "Attr0.0" 8/1/96 */ /* classes of the Vdatas/Vgroups created by the SD interface, from local_nc.h */ #define _HDF_ATTRIBUTE "Attr0.0" /* class of a Vdata containing SD interface attribute */ #define _HDF_VARIABLE "Var0.0" /* class of a Vgroup representing an SD NDG */ #define _HDF_SDSVAR "SDSVar" /* class of a Vdata indicating its group is an SDS variable */ /* - only after hdf4r2 */ #define _HDF_CRDVAR "CoordVar" /* name of a Vdata indicating its group is a coordinate variable */ /* - only after hdf4r2 */ #define _HDF_DIMENSION "Dim0.0" /* class of a Vgroup representing an SD dimension */ #define _HDF_UDIMENSION "UDim0.0" /* class of a Vgroup representing an SD UNLIMITED dimension*/ #define DIM_VALS "DimVal0.0" /* class of a Vdata containing an SD dimension size and fake values */ #define DIM_VALS01 "DimVal0.1" /* class of a Vdata containing an SD dimension size */ #define _HDF_CDF "CDF0.0" /* DATA is defined in DTM. Change DATA to DATA0 #define DATA "Data0.0" */ #define DATA0 "Data0.0" #define ATTR_FIELD_NAME "VALUES" /* The following vdata class name is reserved by the Chunking interface. originally defined in 'hchunks.h'. The full class name currently is "_HDF_CHK_TBL_0". -GV 9/25/97 Made the vdata class name available to other interfaces since it is needed during hmap project. -BMR 11/11/2010 */ #define _HDF_CHK_TBL_CLASS "_HDF_CHK_TBL_" /* 13 bytes */ #define _HDF_CHK_TBL_CLASS_VER 0 /* zero version number for class */ /* #define NUM_INTERNAL_VGS 6 char *INTERNAL_HDF_VGS[] = {_HDF_VARIABLE, _HDF_DIMENSION, _HDF_UDIMENSION, _HDF_CDF, GR_NAME, RI_NAME}; #define NUM_INTERNAL_VDS 8 char *INTERNAL_HDF_VDS[] = {DIM_VALS, DIM_VALS01, _HDF_ATTRIBUTE, _HDF_SDSVAR, _HDF_CRDVAR, "_HDF_CHK_TBL_", RIGATTRNAME, RIGATTRCLASS}; */ /* ------------ pre-defined attribute names ---------------- */ /* For MFGR interface */ #define FILL_ATTR "FillValue" /* name of an attribute containing the fill value */ /* For SD interface */ #define _FillValue "_FillValue" /* name of an attribute to set fill value for an SDS */ #define _HDF_LongName "long_name" /* data/dimension label string */ #define _HDF_Units "units" /* data/dimension unit string */ #define _HDF_Format "format" /* data/dimension format string */ #define _HDF_CoordSys "coordsys" /* data coordsys string */ #define _HDF_ValidRange "valid_range" /* valid range of data values */ #define _HDF_ScaleFactor "scale_factor" /* data calibration factor */ #define _HDF_ScaleFactorErr "scale_factor_err" /* data calibration factor error */ #define _HDF_AddOffset "add_offset" /* calibration offset */ #define _HDF_AddOffsetErr "add_offset_err" /* calibration offset error */ #define _HDF_CalibratedNt "calibrated_nt" /* data type of uncalibrated data */ #define _HDF_ValidMax "valid_max" #define _HDF_ValidMin "valid_min" #define _HDF_Remarks "remarks" /* annotation, by DFAN */ #define _HDF_AnnoLabel "anno_label" /* annotation label, by DFAN */ libhdf4-4.2.10/HDF_ALT/hdf/src/vconv.c0000644000000000000000000003443512421456623013746 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5691 $"; #endif /* $Id: vconv.c 5691 2011-09-19 16:02:14Z bmribler $ */ /* obsolete code for HDF 3.2. 26/march/92 jason ng */ /* except for the following routines: * vicheckcompat() * movebytes () * oldunpackvg () * oldunpackvs () map_from_old_types -- Convert an old type (i.e. LOCAL_INT to DFNT_ based types) */ /* * * vconv.c * Part of the HDF Vset interface. */ #define VSET_INTERFACE #include "hdf.h" /* ** ================================================================== ** PRIVATE data areas and routines ** ================================================================== * */ /* * types used in defining a new field via a call to VSfdefine */ #define LOCAL_NOTYPE 0 #define LOCAL_CHARTYPE 1 /* 8-bit ascii text stream */ #define LOCAL_INTTYPE 2 /* 32-bit integers - don't use */ #define LOCAL_FLOATTYPE 3 /* as opposed to DOUBLE */ #define LOCAL_LONGTYPE 4 /* 32-bit integers */ #define LOCAL_BYTETYPE 5 /* 8-bit byte stream - unsupported */ #define LOCAL_SHORTTYPE 6 /* 16-bit integers - unsupported */ #define LOCAL_DOUBLETYPE 7 /* as opposed to FLOAT - unsupported */ /* * actual LOCAL MACHINE sizes of the above types */ #define LOCAL_UNTYPEDSIZE 0 #define LOCAL_CHARSIZE sizeof(char) #define LOCAL_INTSIZE sizeof(int) #define LOCAL_FLOATSIZE sizeof(float) #define LOCAL_LONGSIZE sizeof(long) #define LOCAL_BYTESIZE sizeof(unsigned char) #define LOCAL_SHORTSIZE sizeof(short) #define LOCAL_DOUBLESIZE sizeof(double) /* stores sizes of local machine's known types */ PRIVATE int16 local_sizetab[] = { LOCAL_UNTYPEDSIZE, LOCAL_CHARSIZE, LOCAL_INTSIZE, LOCAL_FLOATSIZE, LOCAL_LONGSIZE, LOCAL_BYTESIZE, LOCAL_SHORTSIZE, LOCAL_DOUBLESIZE }; #define LOCALSIZETAB_SIZE sizeof(local_sizetab)/sizeof(int) /* ** returns the machine size of a field type ** returns FAIL if error */ PRIVATE int16 VSIZEOF(int16 x) { if (x < 0 || x > (int16)(LOCALSIZETAB_SIZE - 1)) { return (FAIL); } else { return (local_sizetab[x]); } } /* VSIZEOF */ /* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */ /* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */ /* */ /* routines for converting from vsets in v1.0 to v2.x */ /* */ /* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */ /* $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ */ /* ------------------------------------------------------------------ */ PRIVATE void oldunpackvg(VGROUP * vg, uint8 buf[], int32 *size); PRIVATE void oldunpackvs(VDATA * vs, uint8 buf[], int32 *size); /* * this routine checks that the given OPENED file is compatible with * version 2.0 or later of the HDF Vset library . * RETURNS 1 if file already compatible with r2. * 0 if not compatible. * -1 if error. */ int32 vicheckcompat(HFILEID f) { int16 foundold, foundnew; int32 aid; foundold = 0; foundnew = 0; /* locate any OLD vgs */ aid = Hstartread(f, (uint16) OLD_VGDESCTAG, DFREF_WILDCARD); if (aid != FAIL) { foundold++; Hendaccess(aid); } /* locate any OLD vdatas */ aid = Hstartread(f, (uint16) OLD_VSDESCTAG, DFREF_WILDCARD); if (aid != FAIL) { foundold++; Hendaccess(aid); } /* locate any NEW vgs */ aid = Hstartread(f, NEW_VGDESCTAG, DFREF_WILDCARD); if (aid != FAIL) { foundnew++; Hendaccess(aid); } /* locate any NEW vdatas */ aid = Hstartread(f, NEW_VSDESCTAG, DFREF_WILDCARD); if (aid != FAIL) { foundnew++; Hendaccess(aid); } HEclear(); /* clear the stack to remove faux failures - bug #655 */ if (foundold == 0) /* has no old vset elements */ return (1); /* just assume compatible */ if (foundnew > 0) return (1); /* file is already compatible */ else return (0); /* file is not compatible */ } /* vicheckcompat */ /* ------------------------------------------------------------------ */ /* * This routine will modify a given OPENED file so that is becomes compatible * with version 2.0 or later of the HDF Vset library. * Note that the file is assumed to be not compatible to begin with. * This routine will not check to see if the file is already compatible, * but it is harmless to run an already-compatible file through again. * * However, be aware that each time, the file gets larger. * Also, file must be opened with DFACC_ALL access. * * returns 1 if successful. if error, returns 0 */ int32 vimakecompat(HFILEID f) { VGROUP *vg; VDATA *vs; uint8 *buf = NULL; /* to store an old vdata or vgroup descriptor */ int32 old_bsize = 0, bsize=0; int32 aid; int32 ret; uintn u; uint16 tag=DFTAG_NULL, ref=DFTAG_NULL; CONSTR(FUNC, "vimakecompat"); /* ============================================= */ /* --- read all vgs and convert each --- */ /* allocate space for vg */ if (NULL == (vg =VIget_vgroup_node())) HRETURN_ERROR(DFE_NOSPACE, 0); ret = aid = Hstartread(f, (uint16) OLD_VGDESCTAG, DFREF_WILDCARD); while (ret != FAIL) { HQuerytagref(aid, &tag, &ref); HQuerylength(aid, &bsize); if (buf == NULL || bsize > old_bsize) { if (buf != NULL) HDfree((VOIDP) buf); if ((buf = (uint8 *) HDmalloc(bsize)) == NULL) HRETURN_ERROR(DFE_NOSPACE, 0); old_bsize = bsize; } /* end if */ ret = Hgetelement(f, (uint16) OLD_VGDESCTAG, ref, (uint8 *) buf); if (ret == FAIL) { HDfree((VOIDP) buf); HRETURN_ERROR(DFE_READERROR, 0) } /* end if */ oldunpackvg(vg, buf, &bsize); /* add new items */ vg->vgclass = NULL; /* vg->vgclass[0] = '\0'; */ vg->extag = 0; vg->exref = 0; vg->version = 2; /* version 2 */ vg->more = 0; /* inside each vgroup, change the old tags to new */ for (u = 0; u < (uintn)vg->nvelt; u++) if (vg->tag[u] == OLD_VGDESCTAG) vg->tag[u] = NEW_VGDESCTAG; else if (vg->tag[u] == OLD_VSDESCTAG) vg->tag[u] = NEW_VSDESCTAG; else /* BAD */ HERROR(DFE_NOTINSET); vpackvg(vg, buf, &bsize); ret = Hputelement(f, VGDESCTAG, ref, (uint8 *) buf, bsize); HDfree((VOIDP) buf); if (ret == FAIL) HRETURN_ERROR(DFE_WRITEERROR, 0); ret = Hnextread(aid, (uint16) OLD_VGDESCTAG, DFREF_WILDCARD, DF_CURRENT); } /* while */ Hendaccess(aid); VIrelease_vgroup_node(vg); /* ============================================= */ /* --- read all vdata descs and convert each --- */ /* --- then dup a tag for each vdata data elt --- */ old_bsize = 0; /* reset state variables */ buf = NULL; if ((vs = VSIget_vdata_node()) == NULL) HRETURN_ERROR(DFE_NOSPACE, 0); ret = aid = Hstartread(f, (uint16) OLD_VSDESCTAG, DFREF_WILDCARD); while (ret != FAIL) { HQuerytagref(aid, &tag, &ref); HQuerylength(aid, &bsize); if (buf == NULL || bsize > old_bsize) { if (buf != NULL) HDfree((VOIDP) buf); if ((buf = (uint8 *) HDmalloc(bsize)) == NULL) HRETURN_ERROR(DFE_NOSPACE, 0); old_bsize = bsize; } /* end if */ ret = Hgetelement(f, tag, ref, (uint8 *) buf); if (ret == FAIL) { HDfree((VOIDP) buf); HRETURN_ERROR(DFE_READERROR, 0) } /* end if */ oldunpackvs(vs, buf, &bsize); /* add new items */ vs->vsclass[0] = '\0'; vs->extag = 0; vs->exref = 0; vs->version = 2; /* version 2 */ vs->more = 0; vpackvs(vs, buf, &bsize); ret = Hputelement(f, VSDESCTAG, ref, (uint8 *) buf, bsize); if (ret == FAIL) { HDfree((VOIDP) buf); HRETURN_ERROR(DFE_WRITEERROR, 0) } /* end if */ /* duplicate a tag to point to vdata data */ ret = Hdupdd(f, NEW_VSDATATAG, ref, (uint16) OLD_VSDATATAG, ref); HDfree((VOIDP) buf); if (ret == FAIL) HRETURN_ERROR(DFE_DUPDD, 0); ret = Hnextread(aid, (uint16) OLD_VSDESCTAG, DFREF_WILDCARD, DF_CURRENT); } /* while */ Hendaccess(aid); VSIrelease_vdata_node(vs); return (1); } /* vimakecompat */ /* ================================================================== */ /* * this routine checks that the given file is compatible with * version 2.0 or later of the HDF Vset library . * * All it does is to open the file, call vicheckcompat to do all the * checking, and then closes it. * See comments for vicheckcompat(). * returns 1 if file already compatible with r2. * 0 if not compatible. * -1 if error. */ int32 vcheckcompat(char *fs) { HFILEID f; int32 ret; CONSTR(FUNC, "vcheckcompat"); f = Hopen(fs, DFACC_ALL, 0); if (f == FAIL) HRETURN_ERROR(DFE_BADOPEN, FAIL); ret = vicheckcompat(f); Hclose(f); return (ret); } /* vcheckcompat */ /* ================================================================== */ /* * This routine will modify a given file so that is becomes compatible * with version 2.0 or later of the HDF Vset library. * * All this routine does is to open the file, call vimakecompat to * do all the conversion, and then to close the file. * See comments for vimakecompat(). * * returns 1 if successful. if error, returns 0 */ int32 vmakecompat(char *fs) { HFILEID f; int32 ret; CONSTR(FUNC, "vmakecompat"); f = Hopen(fs, DFACC_ALL, 0); if (f == FAIL) HRETURN_ERROR(DFE_BADOPEN, FAIL); ret = vimakecompat(f); Hclose(f); return (ret); } /* vmakecompat */ /* ==================================================================== */ static void oldunpackvg(VGROUP * vg, uint8 buf[], int32 *size) { uint8 *bb; int16 int16var; uintn i; #ifdef LATER CONSTR(FUNC, "oldunpackvg"); #endif *size = *size; /* dummy, so that compiler thinks it is used */ bb = &buf[0]; /* retrieve nvelt */ INT16DECODE(bb, int16var); vg->nvelt=(uint16)int16var; /* retrieve the tags */ for (i = 0; i < (uintn)vg->nvelt; i++) UINT16DECODE(bb, vg->tag[i]); /* retrieve the refs */ for (i = 0; i < (uintn)vg->nvelt; i++) UINT16DECODE(bb, vg->ref[i]); /* retrieve vgname */ HDstrcpy(vg->vgname, (char *) bb); } /* oldunpackvg */ /* ================================================================= */ static void oldunpackvs(VDATA * vs, uint8 buf[], int32 *size) { uint8 *bb; int16 int16var; intn i; #ifdef LATER CONSTR(FUNC, "oldunpackvs"); #endif *size = *size; /* dummy */ bb = &buf[0]; INT16DECODE(bb, vs->interlace); INT32DECODE(bb, vs->nvertices); UINT16DECODE(bb, vs->wlist.ivsize); INT16DECODE(bb, int16var); vs->wlist.n=(intn)int16var; for (i = 0; i < vs->wlist.n; i++) /* retrieve the type */ INT16DECODE(bb, vs->wlist.type[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the isize */ UINT16DECODE(bb, vs->wlist.isize[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the off */ UINT16DECODE(bb, vs->wlist.off[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the order */ UINT16DECODE(bb, vs->wlist.order[i]); for (i = 0; i < vs->wlist.n; i++) { HDstrcpy(vs->wlist.name[i], (char *) bb); bb += (HDstrlen(vs->wlist.name[i]) + 1); } HDstrcpy(vs->vsname, (char *) bb); bb += (HDstrlen(vs->vsname) + 1); /* **EXTRA** fill in the machine-dependent size fields */ for (i = 0; i < vs->wlist.n; i++) /* FAIL check on VSIZEOF()? */ vs->wlist.esize[i] = (uint16) (vs->wlist.order[i] * VSIZEOF((int16) vs->wlist.type[i])); } /* oldunpackvs */ /* ----------------------- map_from_old_types ------------------------------- */ /* Convert an old type (i.e. LOCAL_INT) to DFNT_ based types */ int16 map_from_old_types(intn type) { switch (type) { case LOCAL_CHARTYPE: return DFNT_CHAR; case LOCAL_BYTETYPE: return DFNT_INT8; case LOCAL_SHORTTYPE: case LOCAL_INTTYPE: return DFNT_INT16; case LOCAL_LONGTYPE: return DFNT_INT32; case LOCAL_FLOATTYPE: return DFNT_FLOAT32; case LOCAL_DOUBLETYPE: return DFNT_FLOAT64; default: return (int16) type; } } /* map_from_old_types */ /* ------------------------------------------------------------------ */ libhdf4-4.2.10/HDF_ALT/hdf/src/glist.c0000644000000000000000000011462512421456623013735 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /************************************************************************ Credits: Original code is part of the public domain 'Generic List Library' by Keith Pomakis(kppomaki@jeeves.uwaterloo.ca)-Spring, 1994 I modified it to adhere to HDF coding standards. 1996/06/04 - George V. ************************************************************************/ #ifdef RCSID static char RcsId[] = "@(#)$Id: glist.c 6043 2014-01-21 21:09:03Z acheng $"; #endif #include #include #include "glist.h" /*+ **************************************************************************** GENERAL **************************************************************************** A set of basic generic doubly-linked list functions were designed and programmed first (along with a suitable efficient data structure), and then some higher-level functions were added to increase ease of use. The functionality of stacks, queues and sorted lists were then added. In actuality, these functions (with the exception of one of the sorted-list functions) are nothing more than aliases for the appropriate generic list operations. This aliasing is behind the scenes, however, and the user of this library may treat the operation of lists, stacks and queues in this library as completely separate functionality. In order to make the library completely generic, it was designed to manipulate pointers of type void *. Therefore, it is assumed that the programmer is statically or dynamically creating the objects of interest, and using the generic list functions to manipulate them. It is up to the programmer to handle the allocation and deallocation of the memory for the objects themselves. A pointer to the same object may be stored in a list multiple times. The only restriction imposed is that a NULL pointer may not be stored. **************************************************************************** USAGE **************************************************************************** The use of this library is simple and straight-forward. In every source file that requires the use of generic list functions, the line: #include "glist.h" must be included at the top of the file. For those who hand-craft their own makefiles, "generic_list.h" should become a prerequisite for each of these files, as well as for "generic_list.c" itself. The library defines three data types: Generic_list Generic_stack Generic_queue The usage of these functions is best illustrated with an example: Error checking of the return values from the functions are not shown. foo() { Generic_stack stack; My_object *obj; HDGSinitialize_stack(&stack); obj = new_object(); HDGSpush(stack, obj); ... obj = HDGSpop(stack); free(obj); ... HDGSdestroy_stack(&stack); } Each list must be initialized before use and should be destroyed after it is no longer needed. The programmer must handle the allocation and deallocation of the memory for the objects being stored. Explicit memory management for the lists is not necessary. **************************************************************************** LIST OF FUNCTIONS **************************************************************************** The following are the headers of the functions provided in the generic list library. They are described in more detail later. Generic Lists ------------- intn HDGLinitialize_list(Generic_list *list); void HDGLdestroy_list(Generic_list *list); intn HDGLadd_to_beginning(Generic_list list, void *pointer); intn HDGLadd_to_end(Generic_list list, void *pointer); intn HDGLadd_to_list(Generic_list list, void *pointer); void *HDGLremove_from_beginning(Generic_list list); void *HDGLremove_from_end(Generic_list list); void *HDGLremove_from_list(Generic_list list, void *pointer); void HDGLremove_all(Generic_list list); void *HDGLpeek_at_beginning(Generic_list list); void *HDGLpeek_at_end(Generic_list list); void *HDGLfirst_in_list(Generic_list list); void *HDGLnext_in_list(Generic_list list); void *HDGLcurrent_in_list(Generic_list list); void *HDGLremove_current(Generic_list list); void *HDGLprevious_in_list(Generic_list list); void *HDGLlast_in_list(Generic_list list); void HDGLreset_to_beginning(Generic_list list); void HDGLreset_to_end(Generic_list list); intn HDGLnum_of_objects(Generic_list list); intn HDGLis_empty(Generic_list list); intn HDGLis_in_list(Generic_list list, void *pointer); Generic_list HDGLcopy_list(Generic_list list); void HDGLperform_on_list (Generic_list list, void (*fn)(void *pointer, void *args), void *args); void *HDGLfirst_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); void *HDGLnext_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); void *HDGLprevious_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); void *HDGLlast_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); Generic_list HDGLall_such_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); void HDGLremove_all_such_that (Generic_list list, intn (*fn)(void *pointer, void *args), void *args); Generic Sorted Lists -------------------- intn HDGLinitialize_sorted_list(Generic_list *list, int (*lt)(void *a, void *b)); ...and all Generic_list functions EXCEPT: intn HDGLadd_to_beginning(Generic_list list, void *pointer); intn HDGLadd_to_end(Generic_list list, void *pointer); void *HDGLremove_from_beginning(Generic_list list); void *HDGLremove_from_end(Generic_list list); Generic Stacks(HDGSxxx) ---------------------- intn HDGSinitialize_stack(Generic_stack *stack); void HDGSdestroy_stack(Generic_stack *stack); intn HDGSpush(Generic_stack stack, void *pointer); void *HDGSpop(Generic_stack stack); void HDGSpop_all(Generic_stack stack); void *HDGSpeek_at_top(Generic_stack stack); Generic_stack HDGScopy_stack(Generic_stack stack); * This is a list fcn * intn HDGLis_empty(Generic_stack stack); Generic Queues(HDGQxxx) ---------------------- intn HDGQinitialize_queue(Generic_queue *queue); void HDGQdestroy_queue(Generic_queue *queue); intn HDGQenqueue(Generic_queue queue, void *pointer); void *HDGQdequeue(Generic_queue queue); void HDGQdequeue_all(Generic_queue queue); void *HDGQpeek_at_head(Generic_queue queue); void *HDGQpeek_at_tail(Generic_queue queue); Generic_queue HDGQcopy_queue(Generic_queue queue); * This is a list fcn * intn HDGLis_empty(Generic_queue queue); **************************************************************************** HINTS **************************************************************************** Technically, any of the above functions can be used with any of the three data types. For example, one can use HDGLperform_on_list() to perform a specified function on every object in a queue, or HDGLis_in_list() to determine whether or not a particular object is a member of a stack. One can even HDGSpop from a queue and HDGQdequeue from a stack. However, such usage is not recommended, as it is contrary to the logical usage of such data structures. +*/ /****************************************************************************** NAME HDGLinitialize_list DESCRIPTION Every list must be initialized before it is used. The only time it is valid to re-initialize a list is after it has been destroyed. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLinitialize_list(Generic_list *list) { CONSTR(FUNC, "HDGLinitialize_list"); /* for HERROR */ intn ret_value = SUCCEED; /* Allocate an intialize info struct */ list->info = (Generic_list_info *)HDmalloc(sizeof(Generic_list_info)); if (list->info != NULL) { list->info->pre_element.pointer = NULL; list->info->pre_element.previous = &list->info->pre_element; list->info->pre_element.next = &list->info->post_element; list->info->post_element.pointer = NULL; list->info->post_element.previous = &list->info->pre_element; list->info->post_element.next = &list->info->post_element; list->info->current = &list->info->pre_element; list->info->deleted_element.pointer = NULL; list->info->lt = NULL; list->info->num_of_elements = 0; } else HGOTO_ERROR(DFE_NOSPACE, FAIL); done: if (ret_value == FAIL) { } return ret_value; } /* HDGLinitialize_list() */ /****************************************************************************** NAME HDGLinitialize_sorted_list DESCRIPTION This function initializes a sorted list. A less-than function must be specified which accepts two pointers, a and b, and returns TRUE (non-zero) if a is less than b, FALSE otherwise. Once a list is initialized in this way, all of the generic list functions described above can be used, except for: void HDGLadd_to_beginning(Generic_list list, void *pointer); void HDGLadd_to_end(Generic_list list, void *pointer); void *HDGLremove_from_beginning(Generic_list list); void *HDGLremove_from_end(Generic_list list); and the list will remain sorted by the criteria specified by the less-than function. The only time it is valid to re-initialize a list is after it has been destroyed. RETURNS SUCEED/FAIL *******************************************************************************/ intn HDGLinitialize_sorted_list(Generic_list *list, intn (*lt)(VOIDP /* a */, VOIDP /* b */)) { intn ret_value = SUCCEED; /* First initialize list */ if ((ret_value = HDGLinitialize_list(list)) == FAIL) goto done; else list->info->lt = lt; /* Set sort fcn */ done: if (ret_value == FAIL) { } return ret_value; } /* HDGLinitialize_sorted_list() */ /****************************************************************************** NAME HDGLdestroy_list DESCRIPTION When a list is no longer needed, it should be destroyed. This process will automatically remove all remaining objects from the list. However, the memory for these objects will not be reclaimed, so if the objects have no other references, care should be taken to purge the list and free all objects before destroying the list. It is an error to destroy a list more than once (unless it has been re-initialized in the meantime). RETURNS Nothing *******************************************************************************/ void HDGLdestroy_list(Generic_list *list) { /* Fist remove all nodes */ HDGLremove_all(*list); /* Free the info struct last */ HDfree((VOIDP)list->info); } /* HDGLdestroy_list() */ /****************************************************************************** NAME HDGLadd_to_beginning DESCRIPTION This function will add the specified object to the beginning of the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_beginning(Generic_list list, VOIDP pointer) { CONSTR(FUNC, "HDGLadd_to_beginning"); /* for HERROR */ Generic_list_element *element; intn ret_value = SUCCEED; /* Check data element */ if (pointer == NULL) HGOTO_ERROR(DFE_ARGS,FAIL); /* Allocate and add to beginning of list */ element = (Generic_list_element *)HDmalloc(sizeof(Generic_list_element)); if (element != NULL) { element->next = list.info->pre_element.next; element->previous = &list.info->pre_element; element->pointer = pointer; list.info->pre_element.next->previous = element; list.info->pre_element.next = element; list.info->num_of_elements++; } else HGOTO_ERROR(DFE_NOSPACE, FAIL); done: if (ret_value == FAIL) { } return ret_value; } /* HDGLadd_to_beginning() */ /****************************************************************************** NAME HDGLadd_to_end DESCRIPTION This function will add the specified object to the end of the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_end(Generic_list list, VOIDP pointer) { CONSTR(FUNC, "HDGLadd_to_end"); /* for HERROR */ Generic_list_element *element; intn ret_value = SUCCEED; /* Check data element */ if (pointer == NULL) HGOTO_ERROR(DFE_ARGS,FAIL); /* Allocate and add to end of list */ element = (Generic_list_element *)HDmalloc(sizeof(Generic_list_element)); if (element != NULL) { element->next = &list.info->post_element; element->previous = list.info->post_element.previous; element->pointer = pointer; list.info->post_element.previous->next = element; list.info->post_element.previous = element; list.info->num_of_elements++; } else HGOTO_ERROR(DFE_NOSPACE, FAIL); done: if (ret_value == FAIL) { } return ret_value; } /* HDGLadd_to_end() */ /****************************************************************************** NAME HDGLadd_to_list DESCRIPTION This function will add the specified object to the list. The pointer must not be NULL. RETURNS SUCCEED/FAIL *******************************************************************************/ intn HDGLadd_to_list(Generic_list list, VOIDP pointer) { CONSTR(FUNC, "HDGLadd_to_list"); /* for HERROR */ Generic_list_element *element, *new_element; intn ret_value = SUCCEED; /* Check to see if there is a sort fcn */ if (list.info->lt) { /* Check data element */ if (pointer == NULL) HGOTO_ERROR(DFE_ARGS,FAIL); element = list.info->pre_element.next; while (element != &list.info->post_element && (*list.info->lt)(element->pointer, pointer)) element = element->next; /* Allocate and add to list */ new_element = (Generic_list_element *)HDmalloc(sizeof(Generic_list_element)); if (new_element != NULL) { new_element->next = element; new_element->previous = element->previous; new_element->pointer = pointer; element->previous->next = new_element; element->previous = new_element; list.info->num_of_elements++; } else HGOTO_ERROR(DFE_NOSPACE, FAIL); } else /* no sort fcn so add to end of list */ ret_value = HDGLadd_to_end(list, pointer); done: if (ret_value == FAIL) { } return ret_value; } /* HDGLadd_to_list() */ /****************************************************************************** NAME HDGLremove_from_list DESCRIPTION This function will remove the specified object from the list and return it. If the specified object does not exist in the list, NULL is returned. If the specified object exists in the list more than once, only the last reference to it is removed. RETURNS Element removed if successful and NULL otherwise *******************************************************************************/ VOIDP HDGLremove_from_list(Generic_list list, VOIDP pointer) { Generic_list_element *element; VOIDP ret_value = NULL; /* Find element in list */ element = list.info->post_element.previous; while (element != &list.info->pre_element && element->pointer != pointer) element = element->previous; if (element == &list.info->pre_element) { /* No such element was found. */ ret_value = NULL; goto done; } /* Have found element */ if (element == list.info->current) { list.info->deleted_element.previous = element->previous; list.info->deleted_element.next = element->next; list.info->current = &list.info->deleted_element; } element->previous->next = element->next; element->next->previous = element->previous; HDfree(element); /* free element */ list.info->num_of_elements--; ret_value = pointer; /* return ptr to original element */ done: if (ret_value == NULL) { } return ret_value; } /* HDGLremove_from_list() */ /****************************************************************************** NAME HDGLremove_from_beginning DESCRIPTION This function will remove the first object from the beginning of the list and return it. If the list is empty, NULL is returned. RETURNS First Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLremove_from_beginning(Generic_list list) { Generic_list_element *element; VOIDP pointer; VOIDP ret_value = NULL; /* Check to see if there any elements in the list */ if(list.info->num_of_elements == 0) { /* nope */ ret_value = NULL; goto done; } /* Remove first element */ element = list.info->pre_element.next; if (element == list.info->current) list.info->current = &list.info->pre_element; pointer = element->pointer; list.info->pre_element.next = element->next; element->next->previous = &list.info->pre_element; HDfree(element); list.info->num_of_elements--; ret_value = pointer; /* return the fist element */ done: if (ret_value == NULL) { } return ret_value; } /* HDGLremove_from_beginning() */ /****************************************************************************** NAME HDGLremove_from_end DESCRIPTION This function will remove the last object from the end of the list and return it. If the list is empty, NULL is returned. RETURNS Last element if successfull and NULL otherwise *******************************************************************************/ VOIDP HDGLremove_from_end(Generic_list list) { Generic_list_element *element; VOIDP pointer; VOIDP ret_value = NULL; /* Check to see if there any elements in the list */ if(list.info->num_of_elements == 0) { /* nope */ ret_value = NULL; goto done; } element = list.info->post_element.previous; if (element == list.info->current) list.info->current = &list.info->post_element; pointer = element->pointer; list.info->post_element.previous = element->previous; element->previous->next = &list.info->post_element; HDfree(element); list.info->num_of_elements--; ret_value = pointer; /* return last element */ done: if (ret_value == NULL) { } return ret_value; } /* HDGLremove_from_end() */ /****************************************************************************** NAME HDGLremove_current DESCRIPTION This function will remove the current object from the list and return it. If the current object has already been removed, if current points to the beginning or end of the list, or if the list is empty, NULL is returned. RETURNS Current element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLremove_current(Generic_list list) { Generic_list_element *element; VOIDP pointer; VOIDP ret_value = NULL; element = list.info->current; if (element->pointer == NULL) { /* current is empty */ ret_value = NULL; goto done; } list.info->deleted_element.previous = element->previous; list.info->deleted_element.next = element->next; list.info->current = &list.info->deleted_element; pointer = element->pointer; element->next->previous = element->previous; element->previous->next = element->next; HDfree(element); list.info->num_of_elements--; ret_value = pointer; /* return current element */ done: if (ret_value == NULL) { } return ret_value; } /* HDGLremove_current() */ /****************************************************************************** NAME HDGLremove_all DESCRIPTION This function will remove all objects from the list. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and remove the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ void HDGLremove_all(Generic_list list) { Generic_list_element *element; /* remove all the elements from the list */ element = list.info->pre_element.next; while (element != &list.info->post_element) { element = element->next; HDfree(element->previous); } list.info->pre_element.next = &list.info->post_element; list.info->post_element.previous = &list.info->pre_element; list.info->num_of_elements = 0; } /* HDGLremove_all() */ /****************************************************************************** NAME HDGLpeek_at_beginning DESCRIPTION This function will return the first object in the list. If the list is empty, NULL is returned. RETURNS First element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLpeek_at_beginning(Generic_list list) { return list.info->pre_element.next->pointer; } /* HDGLpeek_at_beginning() */ /****************************************************************************** NAME HDGLpeek_at_end DESCRIPTION This function will return the last object in the list. If the list is empty, NULL is returned. RETURNS Last element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLpeek_at_end(Generic_list list) { return list.info->post_element.previous->pointer; } /* HDGLpeek_at_end() */ /****************************************************************************** NAME HDGLfirst_in_list DESCRIPTION This function will return the first object in the list and mark it as the current object. If the list is empty, NULL is returned. RETURNS First element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLfirst_in_list(Generic_list list) { list.info->current = list.info->pre_element.next->next->previous; return list.info->current->pointer; } /* HDGLfirst_in_list() */ /****************************************************************************** NAME HDGLcurrent_in_list DESCRIPTION This function will return the object in the list that is considered the current object (as defined by the surrounding functions). If the current object has just been removed, if current points to the beginning or end of the list, or if the list is empty, NULL is returned. RETURNS Current element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLcurrent_in_list(Generic_list list) { return list.info->current->pointer; } /* HDGLcurrent_in_list() */ /****************************************************************************** NAME HDGLlast_in_list DESCRIPTION This function will return the last object in the list and mark it as the current object. If the list is empty, NULL is returned. RETURNS Last element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLlast_in_list(Generic_list list) { list.info->current = list.info->post_element.previous->previous->next; return list.info->current->pointer; } /* HDGLlast_in_list() */ /****************************************************************************** NAME HDGLnext_in_list DESCRIPTION This function will return the next object in the list and mark it as the current object. If the end of the list is reached, or if the list is empty, NULL is returned. RETURNS Next element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLnext_in_list(Generic_list list) { list.info->current = list.info->current->next; return list.info->current->pointer; } /* HDGLnext_in_list() */ /****************************************************************************** NAME HDGLprevious_in_list DESCRIPTION This function will return the previous object in the list and mark it as the current object. If the beginning of the list is reached, or if the list is empty, NULL is returned. RETURNS Previous element in list if non-empty, otherwise NULL. *******************************************************************************/ VOIDP HDGLprevious_in_list(Generic_list list) { list.info->current = list.info->current->previous; return list.info->current->pointer; } /* HDGLprevious_in_list() */ /****************************************************************************** NAME HDGLreset_to_beginning DESCRIPTION This function will reset the list to the beginning. Therefore, current points to the beginning of the list, and the next object in the list is the first object. RETURNS Nothing *******************************************************************************/ void HDGLreset_to_beginning(Generic_list list) { list.info->current = &list.info->pre_element; } /* HDGLreset_to_beginning() */ /****************************************************************************** NAME HDGLreset_to_end DESCRIPTION This function will reset the list to the end. Therefore, current points to the end of the list, and the previous object in the list is the last object. RETURNS Nothing *******************************************************************************/ void HDGLreset_to_end(Generic_list list) { list.info->current = &list.info->post_element; } /* rest_to_end() */ /****************************************************************************** NAME HDGLnum_of_objects DESCRIPTION This function will determine the number of objects in the list. RETURNS Number of objects in list *******************************************************************************/ intn HDGLnum_of_objects(Generic_list list) { return (intn)list.info->num_of_elements; } /* HDGLnum_of_objects() */ /****************************************************************************** NAME HDGLis_empty DESCRIPTION Finds if list is empty RETURNS This function will return TRUE (1) if the list is empty, and FALSE (0) otherwise. *******************************************************************************/ intn HDGLis_empty(Generic_list list) { return (list.info->num_of_elements == 0); } /* HDGLis_empty() */ /****************************************************************************** NAME HDGLis_in_list DESCRIPTION Detemines if the object is in the list. RETURNS This function will return TRUE (1) if the specified object is a member of the list, and FALSE (0) otherwise. *******************************************************************************/ intn HDGLis_in_list(Generic_list list, VOIDP pointer) { Generic_list_element *element; element = list.info->pre_element.next; while (element != &list.info->post_element && element->pointer != pointer) element = element->next; return (element != &list.info->post_element); } /* HDGLis_in_list() */ /****************************************************************************** NAME HDGLcopy_list DESCRIPTION This function will make a copy of the list. The objects themselves are not copied; only new references to them are made. The new list loses its concept of the current object. RETURNS A copy of the orginal list. *******************************************************************************/ Generic_list HDGLcopy_list(Generic_list list) { Generic_list list_copy; Generic_list_element *element; intn ret_value = SUCCEED; list_copy.info = NULL; /* intialize info to NULL */ /* initialize new list */ if (HDGLinitialize_sorted_list(&list_copy, list.info->lt) == FAIL) { ret_value = FAIL; goto done; } /* copy over every element to new list */ element = list.info->pre_element.next; while (element != &list.info->post_element) { if (HDGLadd_to_end(list_copy, element->pointer) == FAIL) { ret_value = FAIL; break; } element = element->next; } done: if (ret_value == FAIL) { /* need to remove all elements from copy */ if (list_copy.info != NULL) { HDGLremove_all(list_copy); } list_copy.info = NULL; /* set to NULL */ } return list_copy; } /* HDGLcopy_list() */ /****************************************************************************** NAME HDGLperform_on_list DESCRIPTION This function will perform the specified function on each object in the list. Any optional arguments required can be passed through args. RETURNS Nothing *******************************************************************************/ void HDGLperform_on_list(Generic_list list, void (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list_element *element; element = list.info->pre_element.next; while (element != &list.info->post_element) { /* call fcn on each element */ (*fn)(element->pointer, args); element = element->next; } } /* HDGLperform_on_list() */ /****************************************************************************** NAME HDGLfirst_that DESCRIPTION This function will find and return the first object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If no objects in the list meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLfirst_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list_element *element; element = list.info->pre_element.next; while (element != &list.info->post_element && !(*fn)(element->pointer, args)) { element = element->next; } if (element->pointer) list.info->current = element; return element->pointer; } /* HDGLfirst_that() */ /****************************************************************************** NAME HDGLnext_that DESCRIPTION This function will find and return the next object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If there are no objects left in the list that meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLnext_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list_element *element; element = list.info->current->next; while (element != &list.info->post_element && !(*fn)(element->pointer, args)) { element = element->next; } if (element->pointer) list.info->current = element; return element->pointer; } /* HDGLnext_that() */ /****************************************************************************** NAME HDGLprevious_that DESCRIPTION This function will find and return the previous object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If there are no objects left in the list that meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLprevious_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list_element *element; element = list.info->current->previous; while (element != &list.info->pre_element && !(*fn)(element->pointer, args)) { element = element->previous; } if (element->pointer) list.info->current = element; return element->pointer; } /* HDGLprevious_that() */ /****************************************************************************** NAME HDGLlast_that DESCRIPTION This function will find and return the last object in the list which causes the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The found object is then marked as the current object. If no objects in the list meet the criteria of the specified function, NULL is returned. RETURNS Element if successful and NULL otherwise. *******************************************************************************/ VOIDP HDGLlast_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list_element *element; element = list.info->post_element.previous; while (element != &list.info->pre_element && !(*fn)(element->pointer, args)) { element = element->previous; } if (element->pointer) list.info->current = element; return element->pointer; } /* HDGLlast_that() */ /****************************************************************************** NAME HDGLall_such_that DESCRIPTION This function will return a new list containing all of the objects in the specified list which cause the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. The objects themselves are not copied; only new references to them are made. RETURNS New list if successful and empty if not. *******************************************************************************/ Generic_list HDGLall_such_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { Generic_list list_copy; Generic_list_element *element; intn ret_value = SUCCEED; /* initialize copy of list */ if (HDGLinitialize_sorted_list(&list_copy, list.info->lt) == FAIL) { ret_value = FAIL; goto done; } /* copy over elments that satisfy the fcn */ element = list.info->pre_element.next; while (element != &list.info->post_element) { if ((*fn)(element->pointer, args)) { if (HDGLadd_to_end(list_copy, element->pointer) == FAIL) { ret_value = FAIL; break; } } element = element->next; } done: if (ret_value == FAIL) { if (list_copy.info != NULL) { HDGLremove_all(list_copy); } list_copy.info = NULL; /* set to NULL */ } return list_copy; } /* HDGLall_such_that() */ /****************************************************************************** NAME HDGLremove_all_such_that DESCRIPTION This function will remove all objects in the list which cause the specified function to return a TRUE (non-zero) value. Any optional arguments required can be passed through args. Note that the memory for these objects will not be reclaimed, so if the objects have no other references, it is best to avoid this function and remove the objects one by one, freeing them when necessary. RETURNS Nothing *******************************************************************************/ void HDGLremove_all_such_that(Generic_list list, intn (*fn)(VOIDP /* pointer */, VOIDP /* args */), VOIDP args) { VOIDP obj; /* reset to the beginning */ HDGLreset_to_beginning(list); while ((obj = HDGLnext_in_list(list))) { if ((*fn)(obj, args)) HDGLremove_current(list); } } /* HDGLremove_HDGLall_such_that() */ #if 0 /****************************************************************************/ /****************************************************************************/ /** **/ /** Internal functions **/ /** **/ /****************************************************************************/ /****************************************************************************/ static void * emalloc(unsigned int n) { void *ptr; ptr = (void *) malloc(n); if ( ptr == NULL ) { fprintf(stderr,"%s: error allocating memory\n", module); exit(1); } return ptr; } #endif libhdf4-4.2.10/HDF_ALT/hdf/src/hqueue.h0000644000000000000000000002123412421456623014105 0ustar /* * Copyright (c) 1991, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)queue.h 8.3 (Berkeley) 12/13/93 */ /***************************************************************************** * File: hqueue.h * * This is a modfied version of the original Berkley code for * manipulating a memory pool. This version however is not * compatible with the original Berkley version. * * Author: George V.- 9/3/96 * *****************************************************************************/ /* $Id: hqueue.h 5146 2009-01-14 17:46:57Z fbaker $ */ #ifndef _HQUEUE_H_ #define _HQUEUE_H_ /* * This file defines three types of data structures: lists, tail queues, * and circular queues. * * A list is headed by a single forward pointer (or an array of forward * pointers for a hash table header). The elements are doubly linked * so that an arbitrary element can be removed without a need to * traverse the list. New elements can be added to the list after * an existing element or at the head of the list. A list may only be * traversed in the forward direction. * * A tail queue is headed by a pair of pointers, one to the head of the * list and the other to the tail of the list. The elements are doubly * linked so that an arbitrary element can be removed without a need to * traverse the list. New elements can be added to the list after * an existing element, at the head of the list, or at the end of the * list. A tail queue may only be traversed in the forward direction. * * A circle queue is headed by a pair of pointers, one to the head of the * list and the other to the tail of the list. The elements are doubly * linked so that an arbitrary element can be removed without a need to * traverse the list. New elements can be added to the list before or after * an existing element, at the head of the list, or at the end of the list. * A circle queue may be traversed in either direction, but has a more * complex end of list detection. * * For details on the use of these macros, see the queue(3) manual page. * (BSD4.3 manual set - GeorgeV) * */ /* * List definitions. */ #define LIST_HEAD(name, type) \ struct name { \ struct type *lh_first; /* first element */ \ } #define LIST_ENTRY(type) \ struct { \ struct type *le_next; /* next element */ \ struct type **le_prev; /* address of previous next element */ \ } /* * List functions. */ #define LIST_INIT(head) { \ (head)->lh_first = NULL; \ } #define LIST_INSERT_AFTER(listelm, elm, field) { \ if (((elm)->field.le_next = (listelm)->field.le_next) != NULL) \ (listelm)->field.le_next->field.le_prev = \ &(elm)->field.le_next; \ (listelm)->field.le_next = (elm); \ (elm)->field.le_prev = &(listelm)->field.le_next; \ } #define LIST_INSERT_HEAD(head, elm, field) { \ if (((elm)->field.le_next = (head)->lh_first) != NULL) \ (head)->lh_first->field.le_prev = &(elm)->field.le_next;\ (head)->lh_first = (elm); \ (elm)->field.le_prev = &(head)->lh_first; \ } #define LIST_REMOVE(elm, field) { \ if ((elm)->field.le_next != NULL) \ (elm)->field.le_next->field.le_prev = \ (elm)->field.le_prev; \ *(elm)->field.le_prev = (elm)->field.le_next; \ } /* * Tail queue definitions. */ #define TAILQ_HEAD(name, type) \ struct name { \ struct type *tqh_first; /* first element */ \ struct type **tqh_last; /* addr of last next element */ \ } #define TAILQ_ENTRY(type) \ struct { \ struct type *tqe_next; /* next element */ \ struct type **tqe_prev; /* address of previous next element */ \ } /* * Tail queue functions. */ #define TAILQ_INIT(head) { \ (head)->tqh_first = NULL; \ (head)->tqh_last = &(head)->tqh_first; \ } #define TAILQ_INSERT_HEAD(head, elm, field) { \ if (((elm)->field.tqe_next = (head)->tqh_first) != NULL) \ (elm)->field.tqe_next->field.tqe_prev = \ &(elm)->field.tqe_next; \ else \ (head)->tqh_last = &(elm)->field.tqe_next; \ (head)->tqh_first = (elm); \ (elm)->field.tqe_prev = &(head)->tqh_first; \ } #define TAILQ_INSERT_TAIL(head, elm, field) { \ (elm)->field.tqe_next = NULL; \ (elm)->field.tqe_prev = (head)->tqh_last; \ *(head)->tqh_last = (elm); \ (head)->tqh_last = &(elm)->field.tqe_next; \ } #define TAILQ_INSERT_AFTER(head, listelm, elm, field) { \ if (((elm)->field.tqe_next = (listelm)->field.tqe_next) != NULL)\ (elm)->field.tqe_next->field.tqe_prev = \ &(elm)->field.tqe_next; \ else \ (head)->tqh_last = &(elm)->field.tqe_next; \ (listelm)->field.tqe_next = (elm); \ (elm)->field.tqe_prev = &(listelm)->field.tqe_next; \ } #define TAILQ_REMOVE(head, elm, field) { \ if (((elm)->field.tqe_next) != NULL) \ (elm)->field.tqe_next->field.tqe_prev = \ (elm)->field.tqe_prev; \ else \ (head)->tqh_last = (elm)->field.tqe_prev; \ *(elm)->field.tqe_prev = (elm)->field.tqe_next; \ } /* * Circular queue definitions. */ #define CIRCLEQ_HEAD(name, type) \ struct name { \ struct type *cqh_first; /* first element */ \ struct type *cqh_last; /* last element */ \ } #define CIRCLEQ_ENTRY(type) \ struct { \ struct type *cqe_next; /* next element */ \ struct type *cqe_prev; /* previous element */ \ } /* * Circular queue functions. */ #define CIRCLEQ_INIT(head) { \ (head)->cqh_first = (void *)(head); \ (head)->cqh_last = (void *)(head); \ } #define CIRCLEQ_INSERT_AFTER(head, listelm, elm, field) { \ (elm)->field.cqe_next = (listelm)->field.cqe_next; \ (elm)->field.cqe_prev = (listelm); \ if ((listelm)->field.cqe_next == (void *)(head)) \ (head)->cqh_last = (elm); \ else \ (listelm)->field.cqe_next->field.cqe_prev = (elm); \ (listelm)->field.cqe_next = (elm); \ } #define CIRCLEQ_INSERT_BEFORE(head, listelm, elm, field) { \ (elm)->field.cqe_next = (listelm); \ (elm)->field.cqe_prev = (listelm)->field.cqe_prev; \ if ((listelm)->field.cqe_prev == (void *)(head)) \ (head)->cqh_first = (elm); \ else \ (listelm)->field.cqe_prev->field.cqe_next = (elm); \ (listelm)->field.cqe_prev = (elm); \ } #define CIRCLEQ_INSERT_HEAD(head, elm, field) { \ (elm)->field.cqe_next = (head)->cqh_first; \ (elm)->field.cqe_prev = (void *)(head); \ if ((head)->cqh_last == (void *)(head)) \ (head)->cqh_last = (elm); \ else \ (head)->cqh_first->field.cqe_prev = (elm); \ (head)->cqh_first = (elm); \ } #define CIRCLEQ_INSERT_TAIL(head, elm, field) { \ (elm)->field.cqe_next = (void *)(head); \ (elm)->field.cqe_prev = (head)->cqh_last; \ if ((head)->cqh_first == (void *)(head)) \ (head)->cqh_first = (elm); \ else \ (head)->cqh_last->field.cqe_next = (elm); \ (head)->cqh_last = (elm); \ } #define CIRCLEQ_REMOVE(head, elm, field) { \ if ((elm)->field.cqe_next == (void *)(head)) \ (head)->cqh_last = (elm)->field.cqe_prev; \ else \ (elm)->field.cqe_next->field.cqe_prev = \ (elm)->field.cqe_prev; \ if ((elm)->field.cqe_prev == (void *)(head)) \ (head)->cqh_first = (elm)->field.cqe_next; \ else \ (elm)->field.cqe_prev->field.cqe_next = \ (elm)->field.cqe_next; \ } #endif /* !_HQUEUE_H_ */ libhdf4-4.2.10/HDF_ALT/hdf/src/df24f.c0000644000000000000000000003603512421456623013516 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: df24f.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: df24F.c * Purpose: read and write 24-bit raster images * Invokes: dfgr.c df24.c * Contents: * d2reqil: use this interlace when returning image * df24reqil: use this interlace when returning image * d2sdims: set dimensions of image * df24setdims: set dimensions of image * d2setil: set interlace for image * df24setil: set interlace for image * d2first: restart 24 bit raster * df24restart: restart 24 bit raster * d2igdim: get dimensions of image * d2igimg: read in image * d2iaimg: write out image * d2lref: last ref number * d2scomp: set compression to use (short name) * df24setcompress: set compression to use (long name) * d2sjpeg: set JPEG parameters (short name) * df24setJPEG: set JPEG parameters (long name) * * Remarks:A RIG specifies attributes associated with an image - lookup table, * dimension, compression, color compensation etc. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfgr.h" #include "hproto_fortran.h" #define LUT 0 #define IMAGE 1 static int dimsset = 0; /*----------------------------------------------------------------------------- * Name: d2reqil * Purpose: get next image with specified interlace * Inputs: il: interlace to get next image with * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIreqil * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2reqil(intf * il) { return (DFGRIreqil((intn) *il, (intn) IMAGE)); } /*----------------------------------------------------------------------------- * Name: d2sdims * Purpose: set dimensions of image to write next * Inputs: xdim, ydim: dimensions of image * il: interlace of image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetdims * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2sdims(intf * xdim, intf * ydim) { dimsset = 1; return (DFGRIsetdims(*xdim, *ydim, 3, IMAGE)); } /*----------------------------------------------------------------------------- * Name: d2igdim * Purpose: get dimensions of next image RIG * Inputs: filename: name of HDF file * pxdim, pydim: pointer to locations for returning x,y dimensions * pil: location for returning interlace of image in file * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * *pxdim, *pydim, *pil set on success * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24getdims * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2igdim(_fcd filename, intf * pxdim, intf * pydim, intf * pil, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DF24getdims(fn, (int32 *) pxdim, (int32 *) pydim, (intn *) pil); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d2igimg * Purpose: get image from next RIG * Inputs: filename: name of HDF file * image: pointer to space to return image * xdim, ydim: dimensions of space to return image * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIgetimlut * Remarks: space is assumed to be xdim * ydim * 3 bytes *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2igimg(_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DF24getimage(fn, (VOIDP) _fcdtocp(image), *xdim, *ydim); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d2iaimg * Purpose: Write out image * Inputs: filename: name of HDF file * image: image to write * xdim, ydim: dimensions of array image * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIaddimlut * Remarks: array image is assumed to be xdim * ydim * ncomps bytes *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2iaimg(_fcd filename, _fcd image, intf * xdim, intf * ydim, intf * fnlen, intf * newfile) { char *fn; intf ret; if (!dimsset) if (DFGRIsetdims(*xdim, *ydim, 3, IMAGE) < 0) return (-1); fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFGRIaddimlut(fn, (VOIDP) _fcdtocp(image), *xdim, *ydim, IMAGE, 1, (intn) *newfile); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d2setil * Purpose: set interlace store with following images * Inputs: il: interlace to set * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetil * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2setil(intf * il) { return (DFGRIsetil((intn) *il, IMAGE)); } /*----------------------------------------------------------------------------- * Name: d2first * Purpose: restart 24 bit raster file * Inputs: * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIrestart * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2first(void) { return (DFGRIrestart()); } /*----------------------------------------------------------------------------- * Name: d2lref * Purpose: return last reference number * Inputs: * Returns: last ref number * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIrestart * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2lref(void) { return ((intf)DFGRIlastref()); } /*----------------------------------------------------------------------------- * Name: d2scomp * Purpose: set the compression to use when writing the next image * Inputs: * scheme - the type of compression to use * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24setcompress * Remarks: if the compression scheme is JPEG, this routine sets up default * JPEG parameters to use, if a user wants to change them, d2sjpeg * must be called. *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2scomp(intf * scheme) { comp_info cinfo; /* Structure containing compression parameters */ if (*scheme == COMP_JPEG) { /* check for JPEG compression and set defaults */ cinfo.jpeg.quality = 75; cinfo.jpeg.force_baseline = 1; } /* end if */ return (DF24setcompress((int32) *scheme, &cinfo)); } /* end d2scomp() */ /*----------------------------------------------------------------------------- * Name: d2sjpeg * Purpose: change the JPEG compression parameters * Inputs: * quality - what the JPEG quality rating should be * force_baseline - whether to force a JPEG baseline file to be written * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24setcompress * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2sjpeg(intf * quality, intf * force_baseline) { comp_info cinfo; /* Structure containing compression parameters */ cinfo.jpeg.quality = (intn) *quality; cinfo.jpeg.force_baseline = (intn) *force_baseline; return (DF24setcompress((int32) COMP_JPEG, &cinfo)); } /* end d2sjpeg() */ /*----------------------------------------------------------------------------- * Name: df24reqil * Purpose: get next image with specified interlace * Inputs: il: interlace to get next image with * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIreqil * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24reqil(intf * il) { return (DFGRIreqil((intn) *il, IMAGE)); } /*----------------------------------------------------------------------------- * Name: df24setdims * Purpose: set dimensions of image to write next * Inputs: xdim, ydim: dimensions of image * il: interlace of image * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetdims * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24setdims(intf * xdim, intf * ydim) { dimsset = 1; return (DFGRIsetdims(*xdim, *ydim, 3, IMAGE)); } /*----------------------------------------------------------------------------- * Name: df24setil * Purpose: set interlace store with following images * Inputs: il: interlace to set * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIsetil * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24setil(intf * il) { return (DFGRIsetil((intn) *il, IMAGE)); } /*----------------------------------------------------------------------------- * Name: df24restart * Purpose: restart 24 bit raster file * Inputs: * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRIrestart * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24restart(void) { return (DFGRIrestart()); } /*----------------------------------------------------------------------------- * Name: df24scompress * Purpose: set the compression to use when writing the next image * Inputs: * scheme - the type of compression to use * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24setcompress * Remarks: if the compression scheme is JPEG, this routine sets up default * JPEG parameters to use, if a user wants to change them, df24setjpeg * must be called. *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24scompress(intf * scheme) { comp_info cinfo; /* Structure containing compression parameters */ if (*scheme == COMP_JPEG) { /* check for JPEG compression and set defaults */ cinfo.jpeg.quality = 75; cinfo.jpeg.force_baseline = 1; } /* end if */ return (DF24setcompress((int32) *scheme, &cinfo)); } /* end df24setcompress() */ /*----------------------------------------------------------------------------- * Name: df24sjpeg * Purpose: change the JPEG compression parameters * Inputs: * quality - what the JPEG quality rating should be * force_baseline - whether to force a JPEG baseline file to be written * Returns: 0 on success, -1 for error * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24setcompress * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndf24sjpeg(intf * quality, intf * force_baseline) { comp_info cinfo; /* Structure containing compression parameters */ cinfo.jpeg.quality = (intn) *quality; cinfo.jpeg.force_baseline = (intn) *force_baseline; return (DF24setcompress((int32) COMP_JPEG, &cinfo)); } /* end df24setjpeg() */ /*----------------------------------------------------------------------------- * Name: d2irref * Purpose: Internal stub for setting ref of rig to read next * Inputs: filename: name of HDF file * ref: reference * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DFGRreadref * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2irref(_fcd filename, intf * ref, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFGRreadref(fn, (uint16) *ref); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: d2inimg * Purpose: Internal stub for getting the number of 24-bit raster images * Inputs: filename: name of HDF file * fnlen: length of filename * Returns: # of images on success, -1 on failure with error stack set * Users: HDF HLL (high-level library) users, utilities, other routines * Invokes: DF24nimages * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) nd2inimg(_fcd filename, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DF24nimages(fn); HDfree((VOIDP) fn); return (ret); } /* end nd2inimg */ libhdf4-4.2.10/HDF_ALT/hdf/src/H4api_adpt.h0000644000000000000000000002015512421456623014567 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hdfi.h 5435 2010-08-11 17:31:24Z byrn $ */ #ifndef H4API_ADPT_H #define H4API_ADPT_H #include "h4config.h" /** * Provide the macros to adapt the HDF public functions to * dll entry points. * In addition it provides error lines if the configuration is incorrect. **/ /* This will only be defined if HDF4 was built with CMake */ #if defined(H4_BUILT_AS_DYNAMIC_LIB) #if defined(xdr_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define XDRLIBAPI extern __declspec(dllexport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define XDRLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif /* xdr_EXPORTS */ #if defined(hdf_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFERRPUBLIC __declspec(dllimport) #define HDFPUBLIC __declspec(dllexport) #define HDFLIBAPI extern __declspec(dllexport) #define HDFFCLIBAPI extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFERRPUBLIC extern __attribute__ ((visibility("default"))) #define HDFPUBLIC __attribute__ ((visibility("default"))) #define HDFLIBAPI extern __attribute__ ((visibility("default"))) #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif /* hdf_EXPORTS */ #if defined(hdf_fcstub_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFPUBLIC __declspec(dllexport) #define HDFLIBAPI extern __declspec(dllimport) #define HDFFCLIBAPI extern __declspec(dllexport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFPUBLIC __attribute__ ((visibility("default"))) #define HDFLIBAPI extern __attribute__ ((visibility("default"))) #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif /* hdf_fcstub_EXPORTS */ #if defined(mfhdf_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFERRPUBLIC extern __declspec(dllimport) #define HDFPUBLIC __declspec(dllimport) #define HDFLIBAPI extern __declspec(dllexport) #define HDFFCLIBAPI extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFERRPUBLIC extern __attribute__ ((visibility("default"))) #define HDFPUBLIC __attribute__ ((visibility("default"))) #define HDFLIBAPI extern __attribute__ ((visibility("default"))) #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif /* mfhdf_EXPORTS */ #if defined(mfhdf_fcstub_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFPUBLIC __declspec(dllimport) #define HDFLIBAPI extern __declspec(dllimport) #define HDFFCLIBAPI extern __declspec(dllexport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFPUBLIC __attribute__ ((visibility("default"))) #define HDFLIBAPI extern __attribute__ ((visibility("default"))) #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif /* mfhdf_fcstub_EXPORTS */ #if defined(hdf_test_fcstub_EXPORTS) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFFCLIBAPI extern __declspec(dllexport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif/* hdf_test_fcstub_EXPORTS */ #if !defined(XDRLIBAPI) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define XDRLIBAPI extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define XDRLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif #if !defined(HDFERRPUBLIC) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFERRPUBLIC extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFERRPUBLIC extern __attribute__ ((visibility("default"))) #endif #endif #if !defined(HDFPUBLIC) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFPUBLIC __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFPUBLIC __attribute__ ((visibility("default"))) #endif #endif #if !defined(HDFLIBAPI) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFLIBAPI extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif #if !defined(HDFFCLIBAPI) #if defined (_MSC_VER) /* MSVC Compiler Case */ #define HDFFCLIBAPI extern __declspec(dllimport) #elif (__GNUC__ >= 4) /* GCC 4.x has support for visibility options */ #define HDFFCLIBAPI extern __attribute__ ((visibility("default"))) #endif #endif #elif defined(H4_BUILT_AS_STATIC_LIB) #define XDRLIBAPI extern #define HDFERRPUBLIC extern #define HDFPUBLIC #define HDFLIBAPI extern #define HDFFCLIBAPI extern #else /* This is the original HDFGroup defined preprocessor code which should still work * with the VS projects that are maintained by "The HDF Group" * This will be removed after the next release. */ #ifdef _WIN32 /** * Under _WIN32 we have single threaded static libraries, or * mutli-threaded DLLs using the multithreaded runtime DLLs. **/ # if defined(_MT) && defined(_DLL) &&!defined(_HDFDLL_) /* If the user really meant to use _HDFDLL_, but he forgot, just define it. */ # define _HDFDLL_ # endif # if !defined(_MT) && defined(_HDFDLL_) # error To use the HDF libraries from a single-threaded project, you must use static HDF libraries # error Undefine the macro "_HDFDLL_" # endif # if defined(xdr_EXPORTS) # define XDRLIBAPI extern __declspec(dllexport) # endif /* xdr_EXPORTS */ # if defined(_HDFDLL_) # pragma warning( disable: 4273 ) /* Disable the stupid dll linkage warnings */ # if defined(_HDFLIB_) # define HDFPUBLIC __declspec(dllexport) # define HDFLIBAPI extern __declspec(dllexport) # endif # if defined(_MFHDFLIB_) # define HDFLIBAPI extern __declspec(dllexport) # endif # if defined(_HDFLIB_C_STUB_EXPORTS) || defined(_MFHDFLIB_C_STUB_EXPORTS) || defined(_DLLLIBTEST_FCSTUB_EXPORTS) # define HDFFCLIBAPI extern __declspec(dllexport) # endif # if defined(_HDFLIB_C_STUB_EXPORTS) # define HDFPUBLIC __declspec(dllexport) # endif # if !defined(XDRLIBAPI) # define XDRLIBAPI extern __declspec(dllimport) # endif # if !defined(HDFERRPUBLIC) #define HDFERRPUBLIC extern __declspec(dllimport) # endif # if !defined(HDFPUBLIC) # define HDFPUBLIC __declspec(dllimport) # endif # if !defined(HDFLIBAPI) # define HDFLIBAPI extern __declspec(dllimport) # endif # if !defined(HDFFCLIBAPI) # define HDFFCLIBAPI extern __declspec(dllimport) # endif # else # define XDRLIBAPI extern # define HDFERRPUBLIC extern # define HDFPUBLIC # define HDFLIBAPI extern # define HDFFCLIBAPI extern # endif #else /* !defined( _WIN32 ) */ # define XDRLIBAPI extern # define HDFERRPUBLIC extern # define HDFPUBLIC # define HDFLIBAPI extern # define HDFFCLIBAPI extern #endif #endif /*H4_BUILT_AS_DYNAMIC_LIB */ #endif /* H4API_ADPT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfunjpeg.c0000644000000000000000000003465512421456623014421 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfunjpeg.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfunjpeg.c * Purpose: JPEG image decompression algorithm * Invokes: JPEG library functions * Contents: * DFCIunjpeg: decompress image using JPEG compression * Remarks: DFCIunjpeg() decompresses JPEG encoded images using the JPEG * library functions. The dfjpeg.c file and this file (dfunjpeg.c) should * remain the only HDF files that has to know about how to use the JPEG * routines. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "jpeglib.h" #include "jerror.h" /* Expanded data destination object for HDF input */ typedef struct { struct jpeg_source_mgr pub; /* public fields */ int32 aid; /* target AID for input */ int32 file_id; /* HDF file ID */ uint16 tag, ref; /* tag & ref of image to input */ /* HDF backward compatibility flags */ intn old_jpeg_image; /* whether the image is an JPEG4-style HDF image */ intn old_header_read; /* if the header has been read from the old image */ JOCTET *buffer; /* buffer for JPEG library to fill */ } hdf_source_mgr; typedef hdf_source_mgr * hdf_src_ptr; #define INPUT_BUF_SIZE 4096 /* size of JPEG input buffer */ /* Prototypes */ extern void hdf_init_source(struct jpeg_decompress_struct *cinfo_ptr); extern boolean hdf_fill_input_buffer(struct jpeg_decompress_struct *cinfo_ptr); extern void hdf_skip_input_data(struct jpeg_decompress_struct *cinfo_ptr,long num_bytes); extern void hdf_term_source(struct jpeg_decompress_struct *cinfo_ptr); extern intn jpeg_HDF_src(struct jpeg_decompress_struct *cinfo_ptr, int32 file_id, uint16 tag, uint16 ref, VOIDP image, int32 xdim, int32 ydim, int16 scheme); extern intn jpeg_HDF_src_term(struct jpeg_decompress_struct *cinfo_ptr); /*----------------------------------------------------------------------------- * Name: hdf_init_source * Purpose: Initialize the source mgr for the JPEG image * Inputs: * cinfo_ptr - JPEG decompression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Initializes the JPEG source mgr for further output. *---------------------------------------------------------------------------*/ void hdf_init_source(struct jpeg_decompress_struct *cinfo_ptr) { hdf_src_ptr src=(hdf_src_ptr)cinfo_ptr->src; if((src->buffer=HDmalloc(sizeof(JOCTET)*INPUT_BUF_SIZE))==NULL) ERREXIT1(cinfo_ptr, JERR_OUT_OF_MEMORY, (int)1); if((src->aid=Hstartaccess(src->file_id,src->tag,src->ref,DFACC_READ))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_WRITE); } /* end hdf_init_source() */ /*----------------------------------------------------------------------------- * Name: hdf_fill_input_buffer * Purpose: Read in a chunk of compressed data to feed to the JPEG routines * Inputs: * cinfo_ptr - JPEG decompression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Reads in a chunk of data from either an old-style JPEG image or * a new-style one. *---------------------------------------------------------------------------*/ boolean hdf_fill_input_buffer(struct jpeg_decompress_struct *cinfo_ptr) { hdf_src_ptr src=(hdf_src_ptr)cinfo_ptr->src; int32 num_read; /* number of bytes read */ if(src->old_jpeg_image==TRUE) /* reading old-style JPEG image */ { if(src->old_header_read==TRUE) /* done with header just grab data now */ { if((num_read=Hread(src->aid,INPUT_BUF_SIZE,src->buffer))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_READ); src->pub.bytes_in_buffer = (size_t)num_read; } /* end if */ else { int32 num_read2=0; /* number of bytes read */ if((num_read=Hread(src->aid,INPUT_BUF_SIZE,src->buffer))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_READ); if(num_readaid); /* close the header AID */ src->old_header_read=TRUE; /* done with the header */ /* start reading the image data */ if((src->aid=Hstartaccess(src->file_id,DFTAG_CI,src->ref,DFACC_READ))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_READ); /* finish filling the buffer */ if((num_read2=Hread(src->aid,(INPUT_BUF_SIZE-num_read),src->buffer+num_read))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_READ); } /* end if */ src->pub.bytes_in_buffer = (size_t)(num_read+num_read2); } /* end else */ } /* end if */ else { if((num_read=Hread(src->aid,INPUT_BUF_SIZE,src->buffer))==FAIL) ERREXIT(cinfo_ptr, JERR_FILE_READ); src->pub.bytes_in_buffer = (size_t)num_read; } /* end else */ /* check if we are at the end of the input stream */ if(src->pub.bytes_in_buffer==0) { src->buffer[0] = (JOCTET) 0xFF; src->buffer[1] = (JOCTET) JPEG_EOI; src->pub.bytes_in_buffer = 2; } /* end if */ src->pub.next_input_byte = src->buffer; return TRUE; } /* end hdf_fill_input_buffer() */ /*----------------------------------------------------------------------------- * Name: hdf_skip_input_data * Purpose: Skip past a chunk of compressed data * Inputs: * cinfo_ptr - JPEG decompression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Skips past a chunk of data from either an old-style JPEG image or * a new-style one. *---------------------------------------------------------------------------*/ void hdf_skip_input_data(struct jpeg_decompress_struct *cinfo_ptr,long num_bytes) { hdf_src_ptr src=(hdf_src_ptr)cinfo_ptr->src; /* Just a dumb implementation for now. Not clear that being smart * is worth any trouble anyway --- large skips are infrequent. */ if (num_bytes > 0) { while (num_bytes > (long) src->pub.bytes_in_buffer) { num_bytes -= (long) src->pub.bytes_in_buffer; (void) hdf_fill_input_buffer(cinfo_ptr); /* note we assume that fill_input_buffer will never return FALSE, * so suspension need not be handled. */ } src->pub.next_input_byte += (size_t) num_bytes; src->pub.bytes_in_buffer -= (size_t) num_bytes; } } /* end hdf_skip_input_data() */ /*----------------------------------------------------------------------------- * Name: hdf_term_source * Purpose: Terminate the source mgr for the JPEG image * Inputs: * cinfo_ptr - JPEG compression structure pointer * Returns: none. * Users: JPEG library * Invokes: HDF low-level I/O functions * Remarks: Terminate the JPEG source mgr for further input. *---------------------------------------------------------------------------*/ void hdf_term_source(struct jpeg_decompress_struct *cinfo_ptr) { hdf_src_ptr src=(hdf_src_ptr)cinfo_ptr->src; /* close the HDF object */ Hendaccess(src->aid); /* Free the input buffer */ HDfree(src->buffer); } /* end hdf_term_source() */ /*----------------------------------------------------------------------------- * Name: jpeg_HDF_src * Purpose: Setup an HDF I/O source manager for the IJG library. * Inputs: * cinfo_ptr - JPEG decompression structure pointer * file_id - HDF file ID for file we are opening * tag - HDF tag for image we are writing * ref - HDF ref for image we are writing * image - pointer to the image data to output * xdim,ydim - X & Y dimensions of image * scheme - the type of image to output * Returns: 0 on success, -1 on failure * Users: DFCIunjpeg * Invokes: JPEG library routines (lots of them...) * Remarks: Sets up the source manager functions for the JPEG library. * These routines will be called by the JPEG routines to input *---------------------------------------------------------------------------*/ intn jpeg_HDF_src(struct jpeg_decompress_struct *cinfo_ptr, int32 file_id, uint16 tag, uint16 ref, VOIDP image, int32 xdim, int32 ydim, int16 scheme) { CONSTR(FUNC, "jpeg_HDF_src"); /* for HERROR */ hdf_src_ptr src; /* shut compiler up */ image=image; xdim=xdim; ydim=ydim; scheme=scheme; if((src=HDmalloc(sizeof(hdf_source_mgr)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); cinfo_ptr->src=(struct jpeg_source_mgr *)src; src->pub.init_source = hdf_init_source; src->pub.fill_input_buffer = hdf_fill_input_buffer; src->pub.skip_input_data = hdf_skip_input_data; src->pub.resync_to_restart = jpeg_resync_to_restart; /* use JPEG default */ src->pub.term_source = hdf_term_source ; /* Now the HDF specific parameters */ src->aid = 0; /* start with no AID */ src->file_id = file_id; src->tag = tag; src->ref = ref; /* check for old-style HDF JPEG image */ #ifdef OLD_WAY if(tag==DFTAG_JPEG || tag==DFTAG_GREYJPEG) { src->old_jpeg_image=TRUE; /* indicate an old-style image */ src->old_header_read=FALSE; /* start with the header */ } /* end if */ else src->old_jpeg_image=FALSE; /* indicate an new-style image */ #else /* OLD_WAY */ if(scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) { src->tag = (uint16)scheme; /* start reading from the JPEG header first */ src->old_jpeg_image=TRUE; /* indicate an old-style image */ src->old_header_read=FALSE; /* start with the header */ } /* end if */ else src->old_jpeg_image=FALSE; /* indicate an new-style image */ #endif /* OLD_WAY */ /* force fill_input_buffer until buffer loaded */ src->pub.bytes_in_buffer = 0; src->pub.next_input_byte = NULL; return(SUCCEED); } /* end jpeg_HDF_src() */ /*----------------------------------------------------------------------------- * Name: jpeg_HDF_src_term * Purpose: Terminate an HDF I/O source manager for the IJG library. * Inputs: * cinfo_ptr - JPEG decompression structure pointer * Returns: 0 on success, -1 on failure * Users: DFCIunjpeg * Invokes: JPEG library routines (lots of them...) * Remarks: Terminates the source manager functions for the JPEG library. *---------------------------------------------------------------------------*/ intn jpeg_HDF_src_term(struct jpeg_decompress_struct *cinfo_ptr) { /* all we need to do for now is to free up the dest. mgr structure */ HDfree(cinfo_ptr->src); return(SUCCEED); } /* end jpeg_HDF_src_term() */ /**********************************************************************/ /* HDF callable routine for reading in an image with JPEG compression */ /**********************************************************************/ /*----------------------------------------------------------------------------- * Name: DFCIunjpeg * Purpose: decompress an image using the JPEG compression algorithm * Inputs: * Returns: 0 on success, -1 on failure * Users: HDF programmers, DFputcomp, other routines * Invokes: JPEG library routines (lots of them...) * Remarks: Uses the JPEG library routines. *---------------------------------------------------------------------------*/ intn DFCIunjpeg(int32 file_id, uint16 tag, uint16 ref, VOIDP image, int32 xdim, int32 ydim, int16 scheme) { CONSTR(FUNC, "DFCIunjpeg"); /* for HERROR */ /* These three structs contain JPEG parameters and working data. * They must survive for the duration of parameter setup and one * call to jpeg_decompress; typically, making them local data in the * calling routine is the best strategy. */ struct jpeg_decompress_struct *cinfo_ptr; struct jpeg_error_mgr *jerr_ptr; JDIMENSION lines_read, lines_left; JSAMPARRAY buffer; if((cinfo_ptr=HDcalloc(1,sizeof(struct jpeg_decompress_struct)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); if((jerr_ptr=HDmalloc(sizeof(struct jpeg_error_mgr)))==NULL) HRETURN_ERROR(DFE_NOSPACE,FAIL); /* Initialize the error-handling routines */ cinfo_ptr->err=jpeg_std_error(jerr_ptr); /* Initialize the JPEG compression stuff */ jpeg_create_decompress(cinfo_ptr); /* Set-up HDF destination manager */ jpeg_HDF_src(cinfo_ptr,file_id,tag,ref,image,xdim,ydim,scheme); /* Read the JPEG header from the datastream */ jpeg_read_header(cinfo_ptr,TRUE); /* OK, get things started */ jpeg_start_decompress(cinfo_ptr); /* read the whole image in */ lines_left=(JDIMENSION)ydim; while(cinfo_ptr->output_scanline < cinfo_ptr->output_height) { buffer=(JSAMPARRAY)ℑ lines_read=jpeg_read_scanlines(cinfo_ptr,buffer,1); lines_left-=lines_read; image=(char *)image +((size_t)cinfo_ptr->output_width*(size_t)cinfo_ptr->output_components*lines_read); } /* end while */ /* Finish reading stuff in */ jpeg_finish_decompress(cinfo_ptr); /* Get rid of the JPEG information */ jpeg_destroy_decompress(cinfo_ptr); /* Wrap up any HDF specific code */ jpeg_HDF_src_term(cinfo_ptr); /* Free update memory allocated */ HDfree(jerr_ptr); HDfree(cinfo_ptr); return (SUCCEED); /* we must be ok... */ } /* end DFCIunjpeg() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfff.f0000644000000000000000000000641212421456623013515 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: dfFf.f C Purpose: Fortran stubs for Fortran low level i/o routines C Invokes: dfF.c dfkit.c C Contents: C dfopen: call dfiopen to open HDF file C dfishdf: call dfiishdf to find is file is HDF C ----------------------------------------------------------------------------- C------------------------------------------------------------------------------ C Name: dfopen C Purpose: call dfiopen to open HDF file C Inputs: name: name of HDF file to open C access: integer for access mode: DFACC_READ etc. C defdds: default number of DDs per header block C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dfiopen C------------------------------------------------------------------------------ integer function dfopen(name, access, defdds) character*(*) name integer access, defdds, dfiopen dfopen = dfiopen(name, access, defdds, len(name)) return end C------------------------------------------------------------------------------ C Name: dfaccess C Purpose: call dfiaccess to set up access to a data element C Inputs: dfile: pointer to open HDF file C tag: tag of element to access C ref: ref of element to access C access: access mode requested C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF FORTRAN programmers C Invokes: dfiaccess C------------------------------------------------------------------------------ integer function dfaccess(dfile, tag, ref, access) character*(*) access integer dfile, tag, ref, dfiaccess dfaccess = dfiaccess(dfile, tag, ref, access, len(access)) return end C------------------------------------------------------------------------------ C Name: dfishdf C Purpose: call dfiishdf to test file C Inputs: name: name of file to test C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dfiishdf C------------------------------------------------------------------------------ integer function dfishdf(name) character*(*) name integer dfiishdf dfishdf = dfiishdf(name, len(name)) return end libhdf4-4.2.10/HDF_ALT/hdf/src/dfstubs.h0000644000000000000000000000467612421456623014276 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfstubs.h 6036 2014-01-20 17:28:01Z acheng $ */ /* ** FILE ** dfstubs.h ** PURPOSE ** Header file for "dfstubs.c" HDF 3.1 emulation using new routines ** from "hfile.c". ** AUTHOR ** Doug Ilg */ #ifndef DFSTUBS_H /* avoid re-inclusion */ #define DFSTUBS_H /* This is the master HDF driver (taking the place of df.c), so... */ #define DFMASTER #undef PERM_OUT /* used to "comment out" code */ #include "df.h" #undef DFMASTER #if !defined(__GNUC__) & !defined(CONVEX) #include #endif /* !__GNUC__ & !CONVEX */ #define DFACC_APPEND 8 #define DFEL_ABSENT 0 #define DFEL_RESIDENT 1 #define DFSRCH_OLD 0 #define DFSRCH_NEW 1 PRIVATE int32 DFid = 0; PRIVATE int32 DFaid = 0; PRIVATE int DFaccmode = 0; PRIVATE int DFelaccmode = 0; PRIVATE uint16 search_tag = 0; PRIVATE uint16 search_ref = 0; PRIVATE int search_stat = DFSRCH_NEW; PRIVATE int32 search_aid = 0; PRIVATE int DFelstat = DFEL_ABSENT; PRIVATE int32 DFelsize = 0; PRIVATE int32 DFelseekpos = 0; PRIVATE uint16 acc_tag = 0; PRIVATE uint16 acc_ref = 0; PRIVATE char *DFelement = NULL; #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* prototypes for internal routines */ PRIVATE int DFIclearacc (void); PRIVATE int DFIcheck (DF * dfile); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* DFSTUBS_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/cskphuff.c0000644000000000000000000006651312421456623014426 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6032 $"; #endif /* $Id: cskphuff.c 6032 2014-01-17 18:13:52Z acheng $ */ /* FILE cskphuff.c HDF "skipping" huffman encoding I/O routines REMARKS DESIGN EXPORTED ROUTINES None of these routines are designed to be called by other users except for the modeling layer of the compression routines. AUTHOR Quincey Koziol MODIFICATION HISTORY 4/25/94 Starting writing specs & coding prototype */ /* General HDF includes */ #include "hdf.h" #define CSKPHUFF_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* Internal Defines */ /* #define TESTING */ #define TMP_BUF_SIZE 8192 /* size of throw-away buffer */ /* * This piece of code uses Semi-Splay trees to Huffman encode a raster * image file. */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIcskphuff_init(accrec_t * access_rec, uintn alloc_buf); /*-------------------------------------------------------------------------- NAME HCIcskphuff_splay -- Splay the tree around the source code passed USAGE void HCIcskphuff_splay(skphuff_info,plain) comp_coder_skphuff_info_t *skphuff_info; IN:ptr to skphuff info uint8 plain; IN: the source code to splay the tree around RETURNS None. DESCRIPTION Common code called by HCIcskphuff_encode and HCIcskphuff_decode GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ static void HCIcskphuff_splay(comp_coder_skphuff_info_t * skphuff_info, uint8 plain) { uintn a, b; /* children of nodes to semi-rotate */ uint8 c, d; /* pair of nodes to semi-rotate */ intn skip_num; /* the tree we are splaying */ uintn *lleft, /* local copy of the left pointer */ *lright; /* local copy of the right pointer */ uint8 *lup; /* local copy of the up pointer */ skip_num = skphuff_info->skip_pos; /* get the tree number to splay */ /* Get the tree pointers */ lleft=skphuff_info->left[skip_num]; lright=skphuff_info->right[skip_num]; lup=skphuff_info->up[skip_num]; a = (uintn)plain + SUCCMAX; /* get the index for this source code in the up array */ do { /* walk up the tree, semi-rotating pairs */ c = lup[a]; /* find the parent of the node to semi-rotate around */ if (c != ROOT) { /* a pair remain above this node */ d = lup[(int)c]; /* get the grand-parent of the node to semi-rotate around */ b = lleft[(int)d]; /* Exchange the children of the pair */ if ((uintn)c == b) { b = lright[(int)d]; lright[(int)d] = a; } /* end if */ else lleft[(int)d] = a; if (a == lleft[(int)c]) lleft[(int)c] = b; else lright[(int)c] = b; lup[a] = d; lup[b] = c; a = (uintn)d; } /* end if */ else { /* handle odd node at end */ a = (uintn)c; } /* end else */ } while (a != ROOT); } /* end HCIcskphuff_splay() */ /*-------------------------------------------------------------------------- NAME HCIcskphuff_init -- Initialize a skipping huffman compressed data element. USAGE int32 HCIcskphuff_init(access_rec) accrec_t *access_rec; IN: the access record of the data element uintn alloc_buf; IN: whether to allocate the buffers or not RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcskphuff_staccess and HCIcskphuff_seek GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcskphuff_init(accrec_t * access_rec, uintn alloc_buf) { CONSTR(FUNC, "HCIcskphuff_init"); compinfo_t *info; /* special element information */ comp_coder_skphuff_info_t *skphuff_info; /* ptr to skphuff info */ intn i, j, k; /* local counting var */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("HCIcskphuff_init(): before Hbitseek() call\n"); #endif /* TESTING */ if (Hbitseek(info->aid, 0, 0) == FAIL) /* seek to beginning of element */ HRETURN_ERROR(DFE_SEEKERROR, FAIL); #ifdef TESTING printf("HCIcskphuff_init(): after Hbitseek() call\n"); #endif /* TESTING */ skphuff_info = &(info->cinfo.coder_info.skphuff_info); /* Initialize RLE state information */ skphuff_info->skip_pos = 0; /* start in first byte */ skphuff_info->offset = 0; /* start at the beginning of the data */ if(alloc_buf==TRUE) { /* allocate pointers to the compression buffers */ if ((skphuff_info->left = (uintn **) HDmalloc(sizeof(uintn *) * (uintn)skphuff_info->skip_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); if ((skphuff_info->right = (uintn **) HDmalloc(sizeof(uintn *) * (uintn)skphuff_info->skip_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); if ((skphuff_info->up = (uint8 **) HDmalloc(sizeof(uint8 *) * (uintn)skphuff_info->skip_size)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); #ifdef TESTING printf("HCIcskphuff_init(): halfway through allocating space\n"); #endif /* TESTING */ /* allocate compression buffer for each skipping byte */ for (i = 0; i < skphuff_info->skip_size; i++) { if ((skphuff_info->left[i] = (uintn *) HDmalloc(sizeof(uintn) * SUCCMAX)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); if ((skphuff_info->right[i] = (uintn *) HDmalloc(sizeof(uintn) * SUCCMAX)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); if ((skphuff_info->up[i] = (uint8 *) HDmalloc(sizeof(uint8) * TWICEMAX)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); } /* end for */ } /* end if */ #ifdef TESTING printf("HCIcskphuff_init(): after allocating space\n"); #endif /* TESTING */ for (k = 0; k < skphuff_info->skip_size; k++) { for (i = 0; i < TWICEMAX; i++) /* initialize the up pointers to point to their parent in the tree */ skphuff_info->up[k][i] = (uint8)(i >> 1); for (j = 0; j < SUCCMAX; j++) { /* initialize the left & right pointers correctly */ skphuff_info->left[k][j] = (uintn)(j << 1); skphuff_info->right[k][j] = (uintn)((j << 1) + 1); } /* end for */ } /* end for */ #ifdef TESTING printf("HCIcskphuff_init(): after initializing arrays\n"); #endif /* TESTING */ return (SUCCEED); } /* end HCIcskphuff_init() */ /*-------------------------------------------------------------------------- NAME HCIcskphuff_decode -- Decode skipping Huffman compressed data into a buffer. USAGE int32 HCIcskphuff_decode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to read into the buffer uint8 *buf; OUT: buffer to store the bytes read RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to decode skipping Huffman data from the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcskphuff_decode(compinfo_t * info, int32 length, uint8 *buf) { CONSTR(FUNC, "HCIcskphuff_decode"); comp_coder_skphuff_info_t *skphuff_info; /* ptr to skipping Huffman info */ int32 orig_length; /* original length to read */ uint32 bit; /* bit from the file */ uintn a; uint8 plain; /* the source code expanded from the file */ skphuff_info = &(info->cinfo.coder_info.skphuff_info); orig_length = length; /* save this for later */ while (length > 0) { /* decode until we have all the bytes we need */ #ifdef TESTING printf("length=%ld\n",(long)length); #endif /* TESTING */ a = ROOT; /* start at the root of the tree and find the leaf we need */ do { /* walk down once for each bit on the path */ #ifdef TESTING intn bitcount=0; printf("bitcount=%d\n",++bitcount); #endif /* TESTING */ if(Hbitread(info->aid,1,&bit)==FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); a=((bit==0) ? ( skphuff_info->left[skphuff_info->skip_pos][a]) \ : (skphuff_info->right[skphuff_info->skip_pos][a])); } while (a <= SKPHUFF_MAX_CHAR); plain = (uint8)(a - SUCCMAX); HCIcskphuff_splay(skphuff_info, plain); skphuff_info->skip_pos = (skphuff_info->skip_pos + 1) % skphuff_info->skip_size; *buf++ = plain; length--; } /* end while */ skphuff_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcskphuff_decode() */ /*-------------------------------------------------------------------------- NAME HCIcskphuff_encode -- Encode data from a buffer into skipping Huffman compressed data USAGE int32 HCIcskphuff_encode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to store from the buffer const uint8 *buf; OUT: buffer to get the bytes from RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to encode skipping Huffman data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcskphuff_encode(compinfo_t * info, int32 length, const uint8 *buf) { CONSTR(FUNC, "HCIcskphuff_encode"); comp_coder_skphuff_info_t *skphuff_info; /* ptr to skipping Huffman info */ int32 orig_length; /* original length to write */ intn stack_ptr; /* pointer to the position on the stack */ #ifdef OLD_WAY intn stack[SKPHUFF_MAX_CHAR]; /* stack to store the bits generated */ uintn a; /* variable to record the position in the tree */ #else /* OLD_WAY */ uintn a, last_node; /* variables to record the current & last position in the tree */ uint32 output_bits[(SKPHUFF_MAX_CHAR/4)+1], /* bits to write out */ bit_count[(SKPHUFF_MAX_CHAR/4)+1], /* # of bits stored in each stack location */ bit_mask; /* bit-mask for accumulating bits to output */ #endif /* OLD_WAY */ skphuff_info = &(info->cinfo.coder_info.skphuff_info); orig_length = length; /* save this for later */ while (length > 0) { /* encode until we stored all the bytes */ a = (uintn)*buf + SUCCMAX; /* find position in the up array */ #ifdef OLD_WAY do { /* walk up the tree, pushing bits */ stack[stack_ptr] = (skphuff_info->right[skphuff_info->skip_pos][skphuff_info->up[skphuff_info->skip_pos][a]] == a); /* push a 1 is this is the right node */ stack_ptr++; a = skphuff_info->up[skphuff_info->skip_pos][a]; } while (a != ROOT); do { /* output the bits we have */ stack_ptr--; if (Hputbit(info->aid, stack[stack_ptr]) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); } while (stack_ptr != 0); #else /* OLD_WAY */ /* This way is _much_ faster... */ stack_ptr=0; bit_mask=1; /* initialize to the lowest bit */ output_bits[0]=0; bit_count[0]=0; do { /* walk up the tree, pushing bits */ last_node=a; /* keep track of the current node */ a = (uintn)skphuff_info->up[skphuff_info->skip_pos][a]; /* move the current node up one */ if(skphuff_info->right[skphuff_info->skip_pos][a] == last_node) output_bits[stack_ptr]|=bit_mask; /* push a 1 if this is the right node */ bit_mask<<=1; /* rotate bit mask over */ bit_count[stack_ptr]++; /* increment # of bits stored */ if(bit_count[stack_ptr]>=32) { stack_ptr++; /* increment stack position */ bit_mask=1; /* reset bit mask to lowest bit position */ output_bits[stack_ptr]=0; /* initialize stack location */ bit_count[stack_ptr]=0; } /* end if */ } while (a != ROOT); do { /* output the bits we have */ if(bit_count[stack_ptr]>0) { if(Hbitwrite(info->aid,(intn)bit_count[stack_ptr],output_bits[stack_ptr]) !=(intn)bit_count[stack_ptr]) HRETURN_ERROR(DFE_CENCODE, FAIL); } /* end if */ stack_ptr--; } while (stack_ptr >= 0); #endif /* OLD_WAY */ HCIcskphuff_splay(skphuff_info, *buf); /* semi-splay the tree around this node */ skphuff_info->skip_pos = (skphuff_info->skip_pos + 1) % skphuff_info->skip_size; buf++; length--; } /* end while */ skphuff_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcskphuff_encode() */ /*-------------------------------------------------------------------------- NAME HCIcskphuff_term -- Flush encoded data from internal buffer to skipping Huffman compressed data USAGE int32 HCIcskphuff_term(info) compinfo_t *info; IN: the info about the compressed element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to flush skipping Huffman data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcskphuff_term(compinfo_t * info) { #ifdef LATER CONSTR(FUNC, "HCIcskphuff_term"); #endif /* endif LATER */ comp_coder_skphuff_info_t *skphuff_info; /* ptr to skipping Huffman info */ intn i; /* local counting variable */ skphuff_info = &(info->cinfo.coder_info.skphuff_info); skphuff_info->skip_pos = 0; /* Free the buffers we allocated */ for (i = 0; i < skphuff_info->skip_size; i++) { HDfree(skphuff_info->left[i]); HDfree(skphuff_info->right[i]); HDfree(skphuff_info->up[i]); } /* end for */ /* Free the buffer arrays */ HDfree(skphuff_info->left); HDfree(skphuff_info->right); HDfree(skphuff_info->up); return (SUCCEED); } /* end HCIcskphuff_term() */ /*-------------------------------------------------------------------------- NAME HCIcskphuff_staccess -- Start accessing a skipping Huffman compressed data element. USAGE int32 HCIcskphuff_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcskphuff_stread and HCIcskphuff_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcskphuff_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcskphuff_staccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("HCIcskphuff_staccess(): before bitio calls\n"); #endif /* TESTING */ /* need to check for not writing, as opposed to read access */ /* because of the way the access works */ if (!(acc_mode&DFACC_WRITE)) info->aid = Hstartbitread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else #ifdef OLD_WAY info->aid = Hstartbitwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, info->length); #else /* OLD_WAY */ { info->aid = Hstartbitwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, 0); Hbitappendable(info->aid); } /* end else */ #endif /* OLD_WAY */ #ifdef TESTING printf("HCIcskphuff_staccess(): after bitio calls\n"); #endif /* TESTING */ if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); if ((acc_mode&DFACC_WRITE) && Hbitappendable(info->aid) == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); return (HCIcskphuff_init(access_rec, TRUE)); /* initialize the skip-Huffman info */ } /* end HCIcskphuff_staccess() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_stread -- start read access for compressed file USAGE int32 HCPcskphuff_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using a "skipping" Huffman scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcskphuff_stread"); int32 ret; if ((ret = HCIcskphuff_staccess(access_rec, DFACC_READ)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcskphuff_stread() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_stwrite -- start write access for compressed file USAGE int32 HCPcskphuff_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using a "skipping" Huffman scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcskphuff_stwrite"); int32 ret; #ifdef TESTING printf("HCPcskphuff_stwrite(): before call to HCIcskphuff_staccess()\n"); #endif if ((ret = HCIcskphuff_staccess(access_rec, DFACC_WRITE)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); #ifdef TESTING printf("HCPcskphuff_stwrite(): after call to HCIcskphuff_staccess(), ret=%d\n", (int) ret); #endif return (ret); } /* HCPcskphuff_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_seek -- Seek to offset within the data element USAGE int32 HCPcskphuff_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcskphuff_seek"); compinfo_t *info; /* special element information */ comp_coder_skphuff_info_t *skphuff_info; /* ptr to skipping Huffman info */ uint8 *tmp_buf; /* pointer to throw-away buffer */ /* shut compiler up */ origin = origin; info = (compinfo_t *) access_rec->special_info; skphuff_info = &(info->cinfo.coder_info.skphuff_info); if (offset < skphuff_info->offset) { /* need to seek from the beginning */ if (HCIcskphuff_init(access_rec, FALSE) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); } /* end if */ if ((tmp_buf = (uint8 *) HDmalloc(TMP_BUF_SIZE)) == NULL) /* get tmp buffer */ HRETURN_ERROR(DFE_NOSPACE, FAIL); while (skphuff_info->offset + TMP_BUF_SIZE < offset) /* grab chunks */ if (HCIcskphuff_decode(info, TMP_BUF_SIZE, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ if (skphuff_info->offset < offset) /* grab the last chunk */ if (HCIcskphuff_decode(info, offset - skphuff_info->offset, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ HDfree(tmp_buf); return (SUCCEED); } /* HCPcskphuff_seek() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcskphuff_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a skipping Huffman compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcskphuff_read"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (HCIcskphuff_decode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return (length); } /* HCPcskphuff_read() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPcskphuff_write(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a skipping Huffman compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcskphuff_write"); compinfo_t *info; /* special element information */ comp_coder_skphuff_info_t *skphuff_info; /* ptr to skipping Huffman info */ info = (compinfo_t *) access_rec->special_info; skphuff_info = &(info->cinfo.coder_info.skphuff_info); /* Don't allow random write in a dataset unless: */ /* 1 - append onto the end */ /* 2 - start at the beginning and rewrite (at least) the whole dataset */ if ((info->length != skphuff_info->offset) && (skphuff_info->offset != 0 && length <= info->length)) HRETURN_ERROR(DFE_UNSUPPORTED, FAIL); if (HCIcskphuff_encode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); return (length); } /* HCPcskphuff_write() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcskphuff_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcskphuff_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcskphuff_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcskphuff_endaccess -- Close the compressed data element USAGE int32 HCPcskphuff_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free encoding info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcskphuff_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcskphuff_endaccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; /* Clean up the skipping huffman data structures */ if (HCIcskphuff_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* close the compressed data AID */ if (Hendbitaccess(info->aid, 0) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); return (SUCCEED); } /* HCPcskphuff_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfan.c0000644000000000000000000015502012421456623013515 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5322 $"; #endif /* $Id: dfan.c 5322 2010-01-19 06:26:11Z brtnfld $ */ /*----------------------------------------------------------------------------- * File: dfan.c * Purpose: read and write annotations: labels and descriptions of data items * Invokes: df.c * Contents: * * DFANclear: - reset DFAN interface * DFANgetlablen: - get length of label of tag/ref * DFANgetlabel: - get label of tag/ref * DFANgetdesclen: - get length of description of tag/ref * DFANgetdesc: - get description of tag/ref * * DFANgetfidlen: - get length of file ID * DFANgetfid: - get file ID * DFANgetfdslen: - get length of file description * DFANgetfds: - get file description * * DFANputlabel: - put label of tag/ref * DFANputdesc: - put description of tag/ref * * DFANaddfid: - add file ID * DFANaddfds: - add file description * * DFANlastref: - return ref of last annotation read or written * DFANlablist: - get list of labels for a particular tag * * DFANIclear: - clear Lastref, label/desc entries and directories * DFANIopen: - open/reopen file * DFANIlocate: - return ref of label/desc of tag/ref * DFANIaddentry: - add entry in annotation directory * DFANIgetannlen: - get length of annotation of tag/ref * DFANIgetann: - get annotation of tag/ref * DFANIputann: - put annotation of tag/ref * DFANIlablist: - get list of labels for a particular tag * * DFANIaddfann: - add file annotation (ID or description) * DFANIgetfannlen: - get length of file annotation * DFANIgetfann: - get file annotation *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfan.h" PRIVATE uint16 Lastref = 0; /* Last ref read/written */ PRIVATE uint16 Next_label_ref = 0; /* Next file label ref to read/write */ PRIVATE uint16 Next_desc_ref = 0; /* Next file desc ref to read/write */ #if 0 static char Lastfile[DF_MAXFNLEN] = ""; /* last file opened */ #endif PRIVATE char *Lastfile = NULL; /* pointers to directories of object annotations */ PRIVATE DFANdirhead *DFANdir[2] = {NULL, /* object labels */ NULL /* object descriptions */ }; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* ** Prototypes for local functions */ PRIVATE int32 DFANIopen(const char *filename, intn acc_mode); PRIVATE intn DFANIstart(void); /*----------------------------------------------------------------------------- * HDF object (i.e. tag/ref) label and description input routines *---------------------------------------------------------------------------*/ /*----------------------------------------------------------------------------- NAME DFANgetlablen -- get length of label of tag/ref USAGE int32 DFANgetlablen(filename, tag, ref) char *filename; IN: filename: name of HDF file uint16 tag; IN: tag of data object assigned the label uint16 ref; IN: reference number of the data object assigned the label RETURNS length of label on success, FAIL (-1) otherwise DESCRIPTION Calls DFANIgetannlen to get label length. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This routine should be used to insure that there is enough space allocated for a label before actually reading it. EXAMPLES REVISION LOG *---------------------------------------------------------------------------*/ int32 DFANgetlablen(const char *filename, uint16 tag, uint16 ref) { int32 ret_value; ret_value = (DFANIgetannlen(filename, tag, ref, DFAN_LABEL)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetlabel -- get label of object identified by tag/ref USAGE int DFANgetlabel(filename, tag, ref, label, maxlen) char *filename; IN: name of HDF file uint16 tag; IN: tag of object of assigned the label uint16 ref; IN: ref number of object of assigned the label char *label; OUT: buffer allocated to hold the label int32 maxlen; IN: size of buffer allocated to hold the label RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetann to get label GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS The value of maxlen must be at least one greater than the anticipated length of the label, because a NULL byte is appended to the annotation EXAMPLES REVISION LOG *---------------------------------------------------------------------------*/ intn DFANgetlabel(const char *filename, uint16 tag, uint16 ref, char *label, int32 maxlen) { intn ret_value; ret_value = (DFANIgetann(filename, tag, ref, (uint8 *) label, maxlen, DFAN_LABEL, 0)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetdesclen -- get length of description of tag/ref USAGE int32 DFANgetdesclen(filename, tag, ref) char *filename; IN: name of HDF file uint16 tag; IN: tag of item of which we want description uint16 ref; IN: ref number of item of which we want description RETURNS Length of description if successful, and FAIL (-1) otherwise DESCRIPTION Calls DFANIgetannlen to get description length GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This routine should be used to insure that there is enough space allocated for a description before actually reading it. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int32 DFANgetdesclen(const char *filename, uint16 tag, uint16 ref) { int32 ret_value; ret_value = (DFANIgetannlen(filename, tag, ref, DFAN_DESC)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetdesc -- Reads the description assigned to the data object with the given tag and reference number. USAGE int DFANgetdesc(filename, tag, ref, desc, maxlen) char * filename; IN: name of HDF file uint16 tag; IN: tag of object of assigned the label uint16 ref; IN: ref number of object of assigned the label char *desc; OUT: buffer allocated to hold the description int32 maxlen; IN: size of buffer allocated to hold the description RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetann to get description GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS The value of maxlen must be at least one greater than the anticipated length of the description, because a NULL byte is appended to the annotation EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANgetdesc(const char *filename, uint16 tag, uint16 ref, char *desc, int32 maxlen) { intn ret_value; ret_value = (DFANIgetann(filename, tag, ref, (uint8 *) desc, maxlen, DFAN_DESC, 0)); return ret_value; } /*----------------------------------------------------------------------------- * File ID and description input routines *---------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------- NAME DFANgetfidlen -- get length of file label USAGE int32 DFANgetfidlen(file_id, isfirst) int32 file_id; IN: HDF file label returned by Hopen int isfirst; IN: 1 to read the first label in the file 0 to read the next label in the file RETURNS Length of file label if successful, and FAIL (-1) otherwise DESCRIPTION Calls DFANIgetfannlen to get label length GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS When first called for a given file, DFANgetfidlen returns the length of the first file label. In order to get the lengths of successive labels, you must call DFANgetfid between calls to DFANgetfidlen. Otherwise, successive calls to DFANgetfidlen will return the length of the same file label. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int32 DFANgetfidlen(int32 file_id, int isfirst) { int32 ret_value; ret_value = (DFANIgetfannlen(file_id, DFAN_LABEL, isfirst)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetfid -- get next file label USAGE int32 DFANgetfid(file_id, label, maxlen, isfirst) int32 file_id; IN: HDF file label returned by Hopen char *label; OUT: buffer allocated to hold the label int32 maxlen; IN: size of buffer allocated to hold the label int isfirst; IN: 0 to read the next label in the file; 1 to read the first label in the file RETURNS On success, length of label; FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetfann to get label GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If maxlen is not great enough, the label is truncated to maxlen-1 characters. EXAMPLES REVISION LOG *---------------------------------------------------------------------------*/ int32 DFANgetfid(int32 file_id, char *label, int32 maxlen, intn isfirst) { int32 ret_value; ret_value = (DFANIgetfann(file_id, label, maxlen, DFAN_LABEL, isfirst)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetfdslen -- get length of file description USAGE int32 DFANgetfdslen(file_id, isfirst) int32 file_id; IN: HDF file description returned by Hopen int isfirst; IN: 1 to read the first description in the file 0 to read the next description in the file RETURNS Length of file description if successful, and FAIL (-1) otherwise DESCRIPTION Calls DFANIgetfannlen to get description length GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS When first called for a given file, DFANgetfdslen returns the length of the first file description. In order to get the lengths of successive descriptions, you must call DFANgetfds between calls to DFANgetfdslen. Otherwise, successive calls to DFANgetfdslen will return the length of the same file description. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int32 DFANgetfdslen(int32 file_id, intn isfirst) { int32 ret_value; ret_value = (DFANIgetfannlen(file_id, DFAN_DESC, isfirst)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANgetfds -- get next file description USAGE int32 DFANgetfds(file_id, desc, maxlen, isfirst) int32 file_id; IN: HDF file description returned by Hopen char *desc; OUT: buffer allocated to hold the description int32 maxlen; IN: size of buffer allocated to hold the description int isfirst; IN: 0 to read the next description in the file; 1 to read the first description in the file RETURNS On success, length of description; FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetfann to get description GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If maxlen is not great enough, the description is truncated to maxlen-1 characters. EXAMPLES REVISION LOG *---------------------------------------------------------------------------*/ int32 DFANgetfds(int32 file_id, char *desc, int32 maxlen, intn isfirst) { int32 ret_value; ret_value = (DFANIgetfann(file_id, desc, maxlen, DFAN_DESC, isfirst)); return ret_value; } /*----------------------------------------------------------------------------- * HDF object (i.e. tag/ref) label and description output routines *---------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------- NAME DFANputlabel -- Assign a label to the data object with the given tag and reference number USAGE int DFANputlabel(filename, tag, ref, label) char *filename; IN: name of HDF file uint16 tag; IN: tag of item to be assigned the label uint16 ref; IN: reference number of item to be assigned the label char *label; IN: label to write to file; a single string of NULL-terminated text RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetfann to write out label GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANputlabel(const char *filename, uint16 tag, uint16 ref, char *label) { intn ret_value; ret_value = (DFANIputann(filename, tag, ref, (uint8 *) label, (int32) HDstrlen(label), DFAN_LABEL)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANputdesc -- Assign a description to the data object with the given tag and reference number USAGE int DFANputdesc(filename, tag, ref, desc, desclen) char *filename; IN: name of HDF file uint16 tag; IN: tag of item to be assigned the description uint16 ref; IN: ref number of item to be assigned description char *desc; IN: description to write to file; a single string of NULL-terminated text int32 desclen; IN: length of description RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIgetfann to write out description GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS The parameter desc can contain any sequence of ASCII characters. It does not have to be a string. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANputdesc(const char *filename, uint16 tag, uint16 ref, char *desc, int32 desclen) { intn ret_value; ret_value = (DFANIputann(filename, tag, ref, (uint8 *) desc, desclen, DFAN_DESC)); return ret_value; } /*----------------------------------------------------------------------------- * File ID and description output routines *---------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------- NAME DFANaddfid -- Write a file label to a file USAGE int DFANaddfid(file_id, id) int32 file_id; IN: file identifier char *id; IN: label to write to file RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIaddfann to write out label GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANaddfid(int32 file_id, char *id) { intn ret_value; ret_value = (DFANIaddfann(file_id, id, (int32) HDstrlen(id), DFAN_LABEL)); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANaddfds -- Write a file description to a file USAGE int DFANaddfds(file_id, desc, desclen) int32 file_id; IN: file identifier char *desc; IN: description to write to file int32 desclen; IN: length of description RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIaddfann to write out description GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS The parameter desc can contain any sequence of ASCII characters. It does not have to be a string. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANaddfds(int32 file_id, char *desc, int32 desclen) { intn ret_value; ret_value = (DFANIaddfann(file_id, desc, desclen, DFAN_DESC)); return ret_value; } /*----------------------------------------------------------------------------- * Miscellaneous other routines *---------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------- NAME DFANlastref -- Return the reference number of the annotation last written or read USAGE uint16 DFANlastref() RETURNS Reference number if successful and 0 otherwise DESCRIPTION GLOBAL VARIABLES Lastref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ uint16 DFANlastref(void) { uint16 ret_value; ret_value = (Lastref); return ret_value; } /*-------------------------------------------------------------------------- NAME DFANlablist -- Return list of refs and labels for a given tag USAGE int DFANlablist(filename, tag, reflist, labellist, listsize, maxlen, startpos) char *filename; IN: name of HDF file uint16 tag; IN: tag to use when searching for ref numbers and labels uint16 reflist[]; OUT: array allocated to place ref numbers in char *labellist; OUT: array of strings allocated to place labels in int listsize; IN: size of ref number list and label list int maxlen; IN: maximum length allocated for label int startpos; IN: Starting position. Beginning from the startpos'th entry, up to listsize entries will be returned. RETURNS Number of ref numbers found if successful and FAIL (-1) otherwise DESCRIPTION Invokes DFANIlablist to get label list. Where there is no corresponding label, the position in labellist is zero filled (C) or blank filled (Fortran). Revised 04/17/90 so that it returns all ref numbers for the given tag, rather than just those that have labels. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG Revised 04/17/90. (See DESCRIPTION.) *------------------------------------------------------------------------*/ intn DFANlablist(const char *filename, uint16 tag, uint16 reflist[], char *labellist, intn listsize, intn maxlen, intn startpos) { intn ret_value; ret_value = (DFANIlablist(filename, tag, reflist, (uint8 *) labellist, listsize, maxlen, startpos, 0)); return ret_value; } /*------------------------------------------------------------------- Name DFANclear -- Clear DFAN interface Usage intn DFANclear() Returns SUCCEED if ok; FAIL otherwise. DESCRIPTION Invokes DFANIclear. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS When a file is re-created in a single run by other interface, such as DFSDputdata(), user should call DFANclear to reset DFAN interface structures. EXAMPLES REVISION LOG *------------------------------------------------------------------*/ intn DFANclear(void) { intn ret_value; ret_value = DFANIclear(); return ret_value; } /******************************************************************************/ /*----------------------- Internal routines ---------------------------------*/ /******************************************************************************/ /*--------------------------------------------------------------------------- Name DFANIclear -- Clear label/desc entries and directories Reset DFANdir[i] and Lastref USAGE intn DFANIclear() Returns SUCCEED if ok; FAIL otherwise. DESCRIPTION Reset DFANdir[i] and Lastref GLOBAL VARIABLES Lastref, DFANdir COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *-------------------------------------------------------------------------*/ intn DFANIclear(void) { CONSTR(FUNC, "DFANIclear"); DFANdirhead *p, *q; intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); for (p=DFANdir[0]; p!=NULL; p=q) { /* free linked list space */ q = p->next; if (p->entries != NULL) HDfree((VOIDP) p->entries); p->nentries=0; p->entries = NULL; p->next=NULL; HDfree((VOIDP) p); } for (p=DFANdir[1]; p!=NULL; p=q) { q = p->next; if (p->entries != NULL) HDfree((VOIDP) p->entries); p->nentries=0; p->entries = NULL; p->next=NULL; HDfree((VOIDP) p); } DFANdir[0] = DFANdir[1] = NULL; Lastref = 0; /* 0 is invalid ref */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIopen -- open or reopen a file USAGE PRIVATE int32 DFANIopen(filename, acc_mode) char *filename; IN: name of file to open intn acc_mode; IN: access mode RETURNS File identifier if successful and NULL on failure. DESCRIPTION GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This is a hook for someday providing more efficient ways to reopen a file, to avoid re-reading all the headers EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ PRIVATE int32 DFANIopen(const char *filename, intn acc_mode) { CONSTR(FUNC, "DFANIopen"); int32 file_id; DFANdirhead *p, *q; int32 ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check if filename buffer has been allocated */ if (Lastfile == NULL) { Lastfile = (char *) HDmalloc((DF_MAXFNLEN + 1) * sizeof(char)); if (Lastfile == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); *Lastfile = '\0'; /* initialize with 0-length string */ } /* use reopen if same file as last time - more efficient */ if (HDstrncmp(Lastfile, filename, DF_MAXFNLEN) || (acc_mode == DFACC_CREATE)) { /* treat create as different file */ if (( file_id = Hopen(filename, acc_mode, 0))== FAIL) HGOTO_ERROR(DFE_BADOPEN,FAIL); for (p = DFANdir[0]; p != NULL; p = q) { /* free linked list space */ q = p->next; if (p->entries != NULL) HDfree((VOIDP) p->entries); p->nentries=0; p->entries = NULL; p->next=NULL; HDfree((VOIDP) p); } for (p = DFANdir[1]; p != NULL; p = q) { q = p->next; if (p->entries != NULL) HDfree((VOIDP) p->entries); p->nentries=0; p->entries = NULL; p->next=NULL; HDfree((VOIDP) p); } DFANdir[0] = DFANdir[1] = NULL; } else { if (( file_id = Hopen(filename, acc_mode, 0))== FAIL) HGOTO_ERROR(DFE_BADOPEN,FAIL); } HIstrncpy(Lastfile, filename, DF_MAXFNLEN); /* remember filename, so reopen may be used next time if same file */ ret_value = file_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIlocate -- get ref of annotation of given data tag/ref USAGE uint16 DFANIlocate(file_id, type, tag, ref) int32 file_id: IN: pointer to HDF file int type: IN: DFAN_LABEL for labels, DFAN_DESC for descriptions uint16 tag, ref: IN: tag/ref of item for which we want ref of annotation RETURNS ref of annotation on if successful; 0 otherwise DESCRIPTION Searches through directory for annotations with given tag/ref. (If there is no directory, it creates one.) GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS BUG: When FORTRAN calls this routine with type "label", the string returned is incorrect in length by one character EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ uint16 DFANIlocate(int32 file_id, int type, uint16 tag, uint16 ref) { CONSTR(FUNC, "DFANIlocate"); uint8 datadi[4]; int32 more_anns; int32 aid; int32 nanns, i; uint16 anntag, annref = 0; DFANdirhead *p; uint8 *ptr; uint16 ret_value = 0; /* FAIL ? */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, (uint16)FAIL); anntag = (uint16) ((type == DFAN_LABEL) ? DFTAG_DIL : DFTAG_DIA); /* if no directory for this type of annotation, make one */ if (DFANdir[type] == NULL) { nanns = Hnumber(file_id, anntag); if (nanns == 0) HGOTO_ERROR(DFE_INTERNAL, 0); /* allocate directory space, and space for entries. */ DFANdir[type] = (DFANdirhead *) HDmalloc((uint32) sizeof(DFANdirhead)); if (DFANdir[type] == NULL) HGOTO_ERROR(DFE_NOSPACE, 0); DFANdir[type]->entries = (DFANdirentry *) HDmalloc( (size_t)nanns * sizeof(DFANdirentry)); if (DFANdir[type]->entries == NULL) HGOTO_ERROR(DFE_NOSPACE, 0); DFANdir[type]->next = NULL; DFANdir[type]->nentries = nanns; /* fill directory table */ if (( aid = Hstartread(file_id, anntag, DFREF_WILDCARD))== FAIL) { HGOTO_ERROR(DFE_BADAID, 0); } /* end if */ else more_anns = SUCCEED; for (i = 0; (i < nanns) && (more_anns != FAIL); i++) { if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &annref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) HGOTO_ERROR(DFE_INTERNAL, 0); if ((int32) FAIL == Hread(aid, (int32) 4, datadi)) HGOTO_ERROR(DFE_READERROR, 0); /* get data tag/ref */ DFANdir[type]->entries[i].annref = annref; ptr = (uint8 *) &(datadi[0]); UINT16DECODE(ptr, DFANdir[type]->entries[i].datatag); UINT16DECODE(ptr, DFANdir[type]->entries[i].dataref); more_anns = Hnextread(aid, anntag, DFREF_WILDCARD, DF_CURRENT); } Hendaccess(aid); } if (!tag) HGOTO_DONE(1); /* find annotation that goes with this tag/ref */ for (p = (DFANdirhead *) DFANdir[type]; p != NULL; p = p->next) for (i = 0; i < p->nentries; i++) if (p->entries[i].annref != 0) if ((p->entries[i].dataref == ref) && (p->entries[i].datatag == tag)) HGOTO_DONE(p->entries[i].annref); HERROR(DFE_NOMATCH); done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIaddentry -- add entry to annotation directory USAGE int type: IN: DFAN_LABEL for labels, DFAN_DESC for descriptions uint16 annref: IN: ref of annotation uint16 datatag,: IN: tag of item of which this is annotation uint16 dataref; IN: ref of item of which this is annotation RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Moves to end of directory and appends entry. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int DFANIaddentry(int type, uint16 annref, uint16 datatag, uint16 dataref) { CONSTR(FUNC, "DFANIaddentry"); int32 i; DFANdirhead *p, *q; int ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* move to last entry in list */ for (p = DFANdir[type]; (p != NULL) && (p->next != NULL); p = p->next) ; if (p) { /* not new list */ for (i = 0; i < p->nentries; i++) /* check all entries */ if (p->entries[i].annref == 0) { /* empty slot */ p->entries[i].annref = annref; /* store entry */ p->entries[i].datatag = datatag; p->entries[i].dataref = dataref; HGOTO_DONE(SUCCEED); } } /* need new list or new node in list */ /* allocate directory space and space for entries. */ if ((q = (DFANdirhead *) HDmalloc((uint32) sizeof(DFANdirhead))) == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); q->entries = (DFANdirentry *) HDmalloc( DFAN_DEFENTRIES * sizeof(DFANdirentry)); if (q->entries == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); q->next = NULL; q->nentries = DFAN_DEFENTRIES; if (!p) DFANdir[type] = q; /* set pointer to this new node */ else p->next = q; /* store entry */ q->entries[0].annref = annref; q->entries[0].datatag = datatag; q->entries[0].dataref = dataref; for (i = 1; i < DFAN_DEFENTRIES; i++) /* mark rest unused */ q->entries[i].annref = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIgetannlen -- get length of annotation of tag/ref USAGE int32 DFANIgetannlen(filename, tag, ref, type) char *filename; IN: name of HDF file int32 tag, ref; IN: tag/ref of item of which we want annotation int type; IN: DFAN_LABEL for labels, DFAN_DESC for descriptions RETURNS length of annotation if successful and FAIL (-1) otherwise DESCRIPTION Calls DFANIlocate to get ref of annotation. Calls Hlength to get its length. GLOBAL VARIABLES Lastref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int32 DFANIgetannlen(const char *filename, uint16 tag, uint16 ref, int type) { CONSTR(FUNC, "DFANIgetannlen"); int32 file_id, annlength; uint16 anntag, annref; int32 ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!tag) HGOTO_ERROR(DFE_BADTAG,FAIL); if (!ref) HGOTO_ERROR(DFE_BADREF,FAIL); if (( file_id = DFANIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN,FAIL); /* get ref of annotation of tag/ref */ annref = DFANIlocate(file_id, type, tag, ref); if (annref == 0) HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL,FAIL); anntag = (uint16) ((type == DFAN_LABEL) ? DFTAG_DIL : DFTAG_DIA); /* set type tag */ annlength = Hlength(file_id, anntag, annref) - 4; /* 4=len of data tag/ref */ if (annlength == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_BADLEN,FAIL); Lastref = annref; /* remember ref last accessed */ if (Hclose(file_id) == FAIL) /* close file */ ret_value = FAIL; ret_value = annlength; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIgetann -- get annotation of tag/ref USAGE intn DFANIgetann(filename, tag, ref, ann, maxlen, type) char *filename; IN: name of HDF file uint16 tag, ref; IN: tag/ref of item of which we want annotation uint8 *ann; OUT: space to return annotation in int32 maxlen; IN: size of space to return annotation in int type; IN: DFAN_LABEL for labels, DFAN_DESC for descriptions int isfortran; IN: 0 if C, 1 if Fortran RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. GLOBAL VARIABLES Lastref. COMMENTS, BUGS, ASSUMPTIONS BUG 1640: Added isfortran flag to avoid termination of the string with the null character when the routine is call from FORTRAN. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANIgetann(const char *filename, uint16 tag, uint16 ref, uint8 *ann, int32 maxlen, int type, int isfortran) { CONSTR(FUNC, "DFANIgetann"); int32 file_id, aid; int32 annlen; uint16 anntag, annref; uint8 datadi[4]; /* to read in and discard data/ref! */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!ann) HGOTO_ERROR(DFE_BADPTR,FAIL); if (!tag) HGOTO_ERROR(DFE_BADTAG,FAIL); if (!ref) HGOTO_ERROR(DFE_BADREF,FAIL); if (( file_id = DFANIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN,FAIL); /* get annref and anntag of annotation of tag/ref */ annref = DFANIlocate(file_id, type, tag, ref); if (annref == 0) HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL,FAIL); anntag = (uint16) ((type == DFAN_LABEL) ? DFTAG_DIL : DFTAG_DIA); /* find DD for that annotation */ aid = Hstartread(file_id, anntag, annref); if (aid == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_BADAID,FAIL); if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, (uint16 *) NULL, &annlen, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL,FAIL); } annlen -= 4; /* first four bytes were tag/ref, so they don't count */ /* check length, if not enough space, truncate annotation */ /* In C labels need space for null terminator, descriptions don't */ if (isfortran) { if (annlen > maxlen ) annlen = maxlen; } else if (type == DFAN_LABEL) { if (annlen > maxlen - 1) annlen = maxlen - 1; } else { if (annlen > maxlen) annlen = maxlen; } /* read annotation */ if ((int32) FAIL == Hread(aid, (int32) 4, datadi)) { /* go past tag/ref */ Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_READERROR,FAIL); } if ((int32) FAIL == Hread(aid, annlen, ann)) { /* read the annotation */ Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_READERROR,FAIL); } /* add null for C */ if (type == DFAN_LABEL) if (!isfortran) ann[annlen] = '\0'; /* terminate string properly for C */ Lastref = annref; /* remember ref last accessed */ Hendaccess(aid); ret_value = (Hclose(file_id)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIputann -- put annotation of tag/ref into file USAGE intn DFANIputann(filename, tag, ref, ann, annlen, type) char *filename; IN: name of HDF file uint16 tag, ref; IN: tag/ref of item of which this is the annotation uint8 *ann; IN: space to return annotation in int32 annlen; IN: length of annotation int type; IN: DFAN_LABEL for labels, DFAN_DESC for descriptions RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Checks for pre-existence of annotation, replacing old one if it exists. Writes out annotation, and updates directory.. GLOBAL VARIABLES Lastref. COMMENTS, BUGS, ASSUMPTIONS If the given object already has this type of annotation, it replaces the old annotation with this one. EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ intn DFANIputann(const char *filename, uint16 tag, uint16 ref, uint8 *ann, int32 annlen, int type) { CONSTR(FUNC, "DFANIputann"); int32 file_id, aid; int newflag = 0; uint16 anntag, annref; uint8 datadi[4]; /* to hold data tag/ref for writing */ uint8 *ptr; intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!ann) HGOTO_ERROR(DFE_BADPTR,FAIL); if (!tag) HGOTO_ERROR(DFE_BADTAG,FAIL); if (!ref) HGOTO_ERROR(DFE_BADREF,FAIL); if (( file_id = DFANIopen(filename, DFACC_RDWR))== 0) HGOTO_ERROR(DFE_BADOPEN,FAIL); anntag = (uint16) ((type == DFAN_LABEL) ? DFTAG_DIL : DFTAG_DIA); /* check if this tag/ref already has this type of annotation */ annref = DFANIlocate(file_id, type, tag, ref); if (annref == 0) { annref = Htagnewref(file_id,anntag); if (annref == 0) HCLOSE_GOTO_ERROR(file_id,DFE_NOREF,FAIL); newflag = 1; /* remember to add ann tag/ref to directory */ } /* * if annotation exists, reuse tag/ref and rewrite new annotation */ if (newflag == 0) { /* does prev annotation exist? */ if (HDreuse_tagref(file_id, anntag, annref) == FAIL) { Hclose(file_id); HEreport("Unable to replace old annotation"); HGOTO_DONE(FAIL); } } /* put annotation */ /* Note: cannot use DFputelement because need to write data tag/ref */ aid = Hstartwrite(file_id, anntag, annref, annlen + 4); if (aid == FAIL) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_BADAID,FAIL); } /* write annotation */ ptr = (uint8 *) &(datadi[0]); /* first, write the object's tag/ref */ UINT16ENCODE(ptr, tag); UINT16ENCODE(ptr, ref); if ((int32) FAIL == Hwrite(aid, (int32) 4, datadi)) HCLOSE_GOTO_ERROR(file_id,DFE_WRITEERROR,FAIL); if ((int32) FAIL == Hwrite(aid, annlen, ann)) { /* then write the annotation */ Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_WRITEERROR,FAIL); } /* put annotation tag/ref into directory if new */ if (newflag) { if (FAIL == DFANIaddentry(type, annref, tag, ref)) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL,FAIL); } } Lastref = annref; /* remember ref last accessed */ Hendaccess(aid); ret_value = (Hclose(file_id)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIlablist -- Return list of refs and labels for a given tag USAGE int DFANlablist(filename, tag, reflist, labellist, listsize, maxlen, startpos) char *filename; IN: name of HDF file uint16 tag; IN: tag to use when searching for ref numbers and labels uint16 reflist[]; OUT: array allocated to place ref numbers in char *labellist; OUT: array of strings allocated to place labels in int listsize; IN: size of ref number list and label list int maxlen; IN: maximum length allocated for label int startpos; IN: Starting position. Beginning from the startpos'th entry, up to listsize entries will be returned. int isfortran: 0 if C, 1 if Fortran RETURNS Number of ref numbers found if successful and FAIL (-1) otherwise DESCRIPTION Where there is no corresponding label, the position in labellist is zero filled (C) or blank filled (Fortran). Revised 04/17/90 so that it returns all ref numbers for the given tag, rather than just those that have labels. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG Revised 04/17/90. (See DESCRIPTION.) *------------------------------------------------------------------------*/ intn DFANIlablist(const char *filename, uint16 tag, uint16 reflist[], uint8 *labellist, int listsize, int maxlen, int startpos, int isfortran) { CONSTR(FUNC, "DFANIlablist"); int32 i; int j, k; int32 file_id, aid, len; uint16 ref=0; DFANdirhead *p; uint8 *lp; /* pointer to label */ intn nrefs, nlabs; uint8 labeldi[4]; /* to read in and discard data/ref */ intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!reflist || !labellist) HGOTO_ERROR(DFE_BADPTR,FAIL); if (!tag) HGOTO_ERROR(DFE_BADTAG,FAIL); if (( file_id = DFANIopen(filename, DFACC_READ))== 0) HGOTO_ERROR(DFE_BADOPEN,FAIL); /* clear labellist. pad with blanks for Fortran; add null for C */ if (isfortran) HDmemset(labellist, ' ', (uint32) maxlen * (uint32) listsize); else HDmemset(labellist, '\0', (uint32) maxlen * (uint32) listsize); /* find all refs for this tag; store them in reflist */ nrefs = (intn) Hnumber(file_id, tag); /* how many times is tag in file? */ if (nrefs == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_NOMATCH,FAIL); aid = Hstartread(file_id, tag, DFREF_WILDCARD); /* set search for refs */ if (aid == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_BADAID,FAIL); for (i = 0, j = 0; i < nrefs && j < listsize; i++) { if (HQuerytagref(aid, (uint16 *) NULL, &ref) == FAIL) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_NOMATCH,FAIL); } if (i >= startpos - 1) reflist[j++] = ref; /* store next ref in reflist */ Hnextread(aid, tag, DFREF_WILDCARD, DF_CURRENT); } nrefs = j; Hendaccess(aid); /* get directory of all labels */ nlabs = (intn) Hnumber(file_id, DFTAG_DIL); if (nlabs != 0) { if (DFANdir[DFAN_LABEL] == NULL) { /* if no dir info create dir */ if (0 == DFANIlocate(file_id, DFAN_LABEL, 0, 0)) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL,FAIL); } } lp = labellist; /* Look through all labels. Get those that correspond to the tag, and match them with corresponding tag/refs in the reflist. */ for (p = DFANdir[DFAN_LABEL]; p != NULL; p = p->next) { /* for each ann dir */ for (i = 0; i < p->nentries; i++) { /* for each tag in dir */ if (p->entries[i].datatag == tag) { /* if this tag==our tag */ aid = Hstartread(file_id, DFTAG_DIL, p->entries[i].annref); if (aid == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_BADAID,FAIL); if ((int32) FAIL == Hread(aid, (int32) 4, labeldi)) { /* data tag/ref */ Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_READERROR,FAIL); } /* look for corresponding ref in reflist */ for (k = 0; k < nrefs && p->entries[i].dataref != reflist[k]; k++) ; if (k < nrefs) { /* if ref found */ lp = labellist + k * maxlen; /* get pos to copy to */ /* note len on read may be too big, but OK for DFread */ len = Hread(aid, (int32) (maxlen - 1), lp); if (len == FAIL) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id,DFE_READERROR,FAIL); } /* ret now contains actual length read */ /* pad with blanks for Fortran; add null for C */ if (isfortran) while (len++ < maxlen) lp[len] = ' '; else lp[len] = '\0'; } Hendaccess(aid); } /* tag == our tag */ } /* for each tag in dir */ } /* for each ann dir */ } /* nlabs != 0 */ if (FAIL == Hclose(file_id)) /* close file */ ret_value = FAIL; else ret_value = nrefs; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANaddfann -- Write a file label or description to a file USAGE int DFANaddfid(file_id, id) int32 file_id; IN: pointer to HDF file char *ann; IN: annotation to write to file int32 annlen: IN: length of annotation int type: IN: DFAN_LABEL for labels, DFAN_DESC for descriptions RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Calls Hputelement to putput the annotation. GLOBAL VARIABLES Lastref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int DFANIaddfann(int32 file_id, char *ann, int32 annlen, int type) { CONSTR(FUNC, "DFANIaddfann"); uint16 anntag, annref; int ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!ann) HGOTO_ERROR(DFE_BADPTR,FAIL); anntag = (uint16) ((type == DFAN_LABEL) ? DFTAG_FID : DFTAG_FD); annref = Htagnewref(file_id,anntag); if (annref == 0) HGOTO_ERROR(DFE_NOREF,FAIL); /* write out annotation */ if (FAIL == Hputelement(file_id, anntag, annref, (uint8 *) ann, annlen)) HGOTO_ERROR(DFE_PUTELEM,FAIL); Lastref = annref; /* remember ref last accessed */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIgetfannlen -- get length of next file annotation USAGE int32 DFANIgetannlen(filename, tag, ref, type) int32 file_id; IN: id of HDF file int type; IN: DFAN_LABEL for labels, DFAN_DESC for descriptions int isfirst; IN: 1: start with first one; 0: get next one RETURNS length of annotation if successful and FAIL (-1) otherwise DESCRIPTION Uses isfirst and Next_label_ref (or Next_desc_ref) to determine which annotation to pick up next. GLOBAL VARIABLES Lastref Next_label_ref Next_desc_ref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG *------------------------------------------------------------------------*/ int32 DFANIgetfannlen(int32 file_id, int type, int isfirst) { CONSTR(FUNC, "DFANIgetfannlen"); uint16 anntag, annref; int32 aid; int32 length; int32 ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Identify tag for this "type" of access; determine which ref to key on. */ if (type == DFAN_LABEL) { anntag = DFTAG_FID; annref = (uint16) ((isfirst == 1) ? DFREF_WILDCARD : Next_label_ref); } else { anntag = DFTAG_FD; annref = (uint16) ((isfirst == 1) ? DFREF_WILDCARD : Next_desc_ref); } aid = Hstartread(file_id, anntag, annref); if (aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &annref, &length, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { Hendaccess(aid); HGOTO_ERROR(DFE_NOMATCH, FAIL); } if (type == DFAN_LABEL) /* prepare for next call */ Next_label_ref = annref; else Next_desc_ref = annref; Hendaccess(aid); Lastref = annref; /* remember ref last accessed */ if (length >= 0) /* (length == 0) => no length found */ ret_value = length; else HGOTO_ERROR(DFE_NOMATCH,FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIgetfann -- get next file annotation (file ID or file description) USAGE intn DFANIgetfann(filename, tag, ref, ann, maxlen, type) int32 file_id; IN: id of HDF file uint8 *ann; OUT: space to return annotation in int32 annlen; IN: size of space to return annotation in int type; IN: DFAN_LABEL for labels, DFAN_DESC for descriptions int isfirst; IN: 1: start with first one; 0: get next one RETURNS Length of annotation if successful and FAIL (-1) otherwise DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. GLOBAL VARIABLES Lastref, Next_desc_ref, Next_label_ref COMMENTS, BUGS, ASSUMPTIONS If maxlen not great enough, ann is truncated to maxlen-1 chars BUG: If ref is high possible ref value, setting of Next_label_ref or Next_desc_ref behave unpredictably. EXAMPLES REVISION LOG *---------------------------------------------------------------------------*/ int32 DFANIgetfann(int32 file_id, char *ann, int32 maxlen, int type, int isfirst) { CONSTR(FUNC, "DFANIgetfann"); uint16 anntag, annref; int32 length, aid; int32 ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFANIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!ann) HGOTO_ERROR(DFE_BADPTR,FAIL); /* Identify tag for this "type" of access; determine which ref to key on. */ if (type == DFAN_LABEL) { anntag = DFTAG_FID; annref = (uint16) ((isfirst == 1) ? DFREF_WILDCARD : Next_label_ref); } else { anntag = DFTAG_FD; annref = (uint16) ((isfirst == 1) ? DFREF_WILDCARD : Next_desc_ref); } if (( aid = Hstartread(file_id, anntag, annref))== FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &annref, &length, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { Hendaccess(aid); HGOTO_ERROR(DFE_NOMATCH, FAIL); } length = (length > maxlen) ? maxlen : length; /* truncate if too long */ if ((int32) FAIL == Hread(aid, length, (uint8 *) ann)) /* get the annotation */ { Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } if (length > maxlen - 1) length = maxlen - 1; ann[length] = '\0'; Lastref = annref; /* remember ref last accessed */ /* prepare for next call */ if (FAIL == Hnextread(aid, anntag, DFREF_WILDCARD, DF_CURRENT)) { /* If no more of them, set Next_ ???_ref */ if (type == DFAN_LABEL) /* to one higher than current value */ Next_label_ref++; /* so that next call will fail. */ else Next_desc_ref++; } else { /* Otherwise save the next ref */ if (FAIL == Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &annref, (int32 *) NULL, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL)) { Hendaccess(aid); HGOTO_ERROR(DFE_NOMATCH, FAIL); } if (type == DFAN_LABEL) Next_label_ref = annref; else Next_desc_ref = annref; } Hendaccess(aid); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ else ret_value = length; /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFANIstart PURPOSE DFAN-level initialization routine USAGE intn DFANIstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the shut-down routine (DFANPshutdown) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFANIstart(void) { CONSTR(FUNC, "DFANIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&DFANPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end DFANIstart() */ /*-------------------------------------------------------------------------- NAME DFANPshutdown PURPOSE Terminate various static buffers. USAGE intn DFANPshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the DFAN routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFANPshutdown(void) { DFANIclear(); /* frees the directory lists */ if(Lastfile!=NULL) { HDfree(Lastfile); Lastfile=NULL; } /* end if */ return(SUCCEED); } /* end DFANPshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hbitio.h0000644000000000000000000000664512421456623014100 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hbitio.h 4932 2007-09-07 17:17:23Z bmribler $ */ /* ** hbitio.h ** ** Data structures and macros for bitfile access to HDF data objects. ** These are mainly used for compression I/O and N-bit data objects. */ #ifndef __HBITIO_H #define __HBITIO_H /* Define the number of elements in the buffered array */ #define BITBUF_SIZE 4096 /* Macro to define the number of bits cached in the 'bits' variable */ #define BITNUM (sizeof(uint8)*8) /* Macro to define the number of bits able to be read/written at a time */ #define DATANUM (sizeof(uint32)*8) typedef struct bitrec_t { int32 acc_id; /* Access ID for H layer I/O routines */ int32 bit_id; /* Bitfile ID for internal use */ /* Note that since HDF has signed 32bit offset limit we need to change this to signed since the get passed to Hxxx calls which take signed 32bit arguments */ int32 block_offset, /* offset of the current buffered block in the dataset */ max_offset, /* offset of the last byte written to the dataset */ byte_offset; /* offset of the current byte in the dataset */ intn count, /* bit count to next boundary */ buf_read; /* number of bytes read into buffer (necessary for random I/O) */ uint8 access; /* What the access on this file is ('r', 'w', etc..) */ uint8 mode; /* how are we interacting with the data now ('r', 'w', etc) */ uint8 bits; /* extra bit buffer, 0..BITNUM-1 bits */ uint8 *bytep; /* current position in buffer */ uint8 *bytez; /* end of buffer to compare */ uint8 *bytea; /* byte buffer */ } bitrec_t; #ifndef BITMASTER extern #endif const uint8 maskc[9] #ifdef BITMASTER = {0, 1, 3, 7, 15, 31, 63, 127, 255} #endif ; #ifndef BITMASTER extern #endif const uint32 maskl[33] #ifdef BITMASTER = {0x00000000, 0x00000001, 0x00000003, 0x00000007, 0x0000000f, 0x0000001f, 0x0000003f, 0x0000007f, 0x000000ff, 0x000001ff, 0x000003ff, 0x000007ff, 0x00000fff, 0x00001fff, 0x00003fff, 0x00007fff, 0x0000ffff, 0x0001ffff, 0x0003ffff, 0x0007ffff, 0x000fffff, 0x001fffff, 0x003fffff, 0x007fffff, 0x00ffffff, 0x01ffffff, 0x03ffffff, 0x07ffffff, 0x0fffffff, 0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffffUL} #endif ; /* Function-like Macros */ #define Hputbit(bitid,bit) ((Hbitwrite(bitid,1,(uint32)bit)==FAIL) ? FAIL : SUCCEED) #endif /* __HBITIO_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/mfanf.c0000644000000000000000000004075112421456623013700 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: mfanf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: mfanf.c * Author: GeorgeV. * Purpose: C-stubs for multi-file Fortran annotation routines * Invokes: C-Routines in "mfan.c" * Contents: SEE annotation source/header files "mfan.c" and "mfan.h" * for more info on the annotation interface. * * NOTES: TYPE here refers to file/data label/description types * They are AN_FILE_LABEL, AN_FILE_DESC, AN_DATA_LABEL, AN_DATA_DESC * THE tag/ref refers to data tag/ref. The fortran equivalents * are defined in 'hdf.inc'. * * C-stubs directly callable by Fortran Users * ------------------------------------------ * afstart - start annotation access on file and return annotaton id * affileinfo - get number of file/data annotations in file. * Indices returned are used in afselect() calls. * afend - end access to annotation handling on file * afcreate - create a new data annotation and return a handle * affcreate - create a new file annotation and return a handle * afselect - returns an annotation handle(ann_id) from index for * a particular annotation TYPE. This handle is then used for * calls like afwriteann(), afreadann(), afannlen(),..etc * afnumann - return number of annotations that match TYPE/tag/ref * afannlist - return list of handles that match TYPE/tag/ref * afannlen - get length of annotation given handle * afwriteann - write annotation given handle * afreadann - read annotation given handle * afendaccess - end access to annotation using handle * afgettagref - get tag/ref pair to annotation ID * afidtagref - get tag/ref given annotation id * aftagrefid - get annotation id given tag/ref * afatypetag - annotation type to corresponding annotation TAG * aftagatype - annotation TAG to corresponding annotation type *---------------------------------------------------------------------------*/ #include "hdf.h" #include "mfan.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- FUNCTION NAMEING CONVENTION: --------------------------- This file contains the HDF-style C stubs for the multi-file Annotation interface. They call the corresponding C-functions in "mfan.c" The basic routines called by fortran will be of the form afxxxx If only a C stub is needed it will be named nafxxxx have the FNAME() function applied to it. If a Fortran stub is also required the fortran stub will be called afxxxx(mfanff.f) and the one in here will be nacxxx and again be FNAME()ed -----------------------------------------------------------------------------*/ /*----------------------------------------------------------------------------- * Name: afstart * Purpose: Open file for annoation handling * Inputs: file_id: id of HDF file * Returns: annotation interface handle on SUCCEED and FAIL otherwise * Users: * Invokes: ANstart() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafstart(intf *file_id) { intf ret; ret = ANstart((int32)*file_id); return (ret); } /* nafstart() */ /*----------------------------------------------------------------------------- * Name: affileinfo * Purpose: Get number of file/data annotations in file. * Inputs: IN an_id: annotation interface handle * OUT num_flabel: number of file labels in file * OUT num_fdesc: number of file descriptions in file * OUT num_olabel: number of data labels in file * OUT num_odesc: number of data descriptions in file * Returns: see ANfileinfo() * Users: Fortran Users * Invokes: ANfileinfo() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) naffileinfo(intf *an_id, intf *num_flabel, intf *num_fdesc, intf *num_olabel, intf *num_odesc) { #ifdef LATER CONSTR(FUNC, "affileinfo"); #endif /* LATER */ intf ret; int32 nflabel, nfdesc, nolabel, nodesc; ret = ANfileinfo((int32)*an_id, &nflabel, &nfdesc, &nolabel, &nodesc); /* fill in values to return */ *num_flabel = nflabel; *num_fdesc = nfdesc; *num_olabel = nolabel; *num_odesc = nodesc; return ret; } /* naffileinfo() */ /*----------------------------------------------------------------------------- * Name: afend * Purpose: End access to annotation handling on file * Inputs: file_id: * Returns: see ANend() * Users: Fortran Users * Invokes: ANend() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafend(intf *an_id) { #ifdef LATER CONSTR(FUNC, "afend"); #endif /* LATER */ return (intf)ANend((int32) *an_id); } /* nafend() */ /*----------------------------------------------------------------------------- * Name: afcreate * Purpose: Create a new data annotation and return an annotation handle * Inputs: an_id: annotation interface handle * etag: tag of data to annotate * eref: ref of data to annotate * atype: annotation type AN_DATA_LABEL, AN_DATA_DESC * Returns: see ANcreate() * Users: Fortran Users * Invokes: ANcreate() *---------------------------------------------------------------------------*/ FRETVAL(intf) nafcreate(intf *an_id, intf *etag, intf *eref, intf *atype) { #ifdef LATER CONSTR(FUNC, "afcreate"); #endif /* LATER */ return (intf)ANcreate((int32)*an_id,(uint16)*etag,(uint16)*eref,(ann_type)*atype); } /* nafcreate() */ /*----------------------------------------------------------------------------- * Name: affcreate * Purpose: Create a new file annotation and return an annotation handle * Inputs: an_id: annottion inteface handle * atype: annotation type AN_FILE_LABEL, AN_DATA_DESC * Returns: see ANcreatef() * Users: Fortran Users * Invokes: ANcreatf() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) naffcreate(intf *an_id, intf *atype) { #ifdef LATER CONSTR(FUNC, "affcreate"); #endif /* LATER */ return (intf)ANcreatef((int32)*an_id,(ann_type)*atype); } /* naffcreate() */ /*----------------------------------------------------------------------------- * Name: afselect * Purpose: returns an annotation handle(ann_id) from index for * a particular annotation TYPE. This handle is then used for * calls like afwriteann(), afreadann(), afannlen(),..etc * Inputs: an_id: annotation interface handle * index: index for particular annoation type. Usually based on * number of a particular type obtained from affileinfo()call. * ZERO based. * atype: annotation type AN_FILE_LABEL, AN_FILE_DESC, AN_DATA_LABEL * AN_DATA_DESC * Returns: see ANselect() * Users: Fortran Users * Invokes: ANselect() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafselect(intf *an_id, intf *index, intf *atype) { #ifdef LATER CONSTR(FUNC, "afselect"); #endif /* LATER */ return (intf)ANselect((int32)*an_id,(int32)*index, (ann_type)*atype); } /* nafselect() */ /*----------------------------------------------------------------------------- * Name: afnumann * Purpose: Return number of annotations that match TYPE/tag/ref * Inputs: an_id: annotation interface handle * atype: annotation type AN_DATA_LABEL, AN_DATA_DESC * etag: data tag to match * eref: data ref to match * Returns: see ANnumann() * Users: Fortran Users * Invokes: ANnumann() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafnumann(intf *an_id, intf *atype, intf *etag, intf *eref) { #ifdef LATER CONSTR(FUNC, "afnumann"); #endif /* LATER */ return (intf)ANnumann((int32)*an_id,(ann_type)*atype,(uint16)*etag,(uint16)*eref); } /* nafnumann() */ /*----------------------------------------------------------------------------- * Name: afannlist * Purpose: Return list of handles that match TYPE/tag/ref * Inputs: IN an_id: annotation inteface handle * IN atype: annotation type AN_DATA_LABEL, AN_DATA_DESC * IN etag: data tag to match * IN eref: data ref to match * OUT alist[]: list of annotation handles found that match tag/ref * Returns: number of annoations found that match else FAIL. see ANannlist() * Users: Fortran Users * Invokes: ANnumann(), ANannlist() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafannlist(intf *an_id, intf *atype, intf *etag, intf *eref, intf alist[]) { CONSTR(FUNC, "afannlist"); intf ret; int32 *tempanlist; intf nanns; intn i; /* Get number of annotations that match tag/ref pair */ nanns = ANnumann((int32)*an_id,(ann_type)*atype,(uint16)*etag,(uint16)*eref); if (nanns < 0) HE_REPORT_RETURN("ANnumann: failed to any annotations", FAIL); /* create annlist with true int32s to maintain compatibility ** with machines that allocate less than 32 bits per int. */ if ((tempanlist = (int32 *) HDmalloc(nanns * sizeof(int32))) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); /* Get list of annoation handles to return */ ret = ANannlist((int32)*an_id,(ann_type)*atype,(uint16)*etag,(uint16)*eref, tempanlist); if (ret < 0) HE_REPORT_RETURN("ANannlist:failed to any annotations", FAIL); /* move annotation handles into caller's alist */ for (i = 0; i < nanns; i++) alist[i] = tempanlist[i]; HDfree((VOIDP) tempanlist); /* free allocated space */ return ret; } /* nafannlist() */ /*----------------------------------------------------------------------------- * Name: afannlen * Purpose: Get length of annotation given handle * Inputs: an_id:annotation handle * Returns: see ANannlen() * Users: Fortran Users * Invokes: ANannlen() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafannlen(intf *an_id) { #ifdef LATER CONSTR(FUNC, "afannlen"); #endif /* LATER */ return (intf)ANannlen((int32)*an_id); } /* nafannlen() */ /*----------------------------------------------------------------------------- * Name: afwriteann * Purpose: Write annotation given handle * Inputs: ann_id: annotation handle * ann: annotation to write out * annlen:length of annotation * Returns: see ANwriteann() * Users: Fortran Users * Invokes: ANwriteann() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafwriteann(intf *ann_id,_fcd ann, intf *annlen) { #ifdef LATER CONSTR(FUNC, "afwriteann"); #endif /* LATER */ char *iann = NULL; intf status; /* Convert fortran string to C-String */ iann = HDf2cstring(ann, (intn) *annlen); if (!iann) return(FAIL); status = ANwriteann((int32)*ann_id, (char *) _fcdtocp(ann), (int32)*annlen); HDfree(iann); /* free allocaed space by HDf2cstring */ return status; } /* nafwriteann() */ /*----------------------------------------------------------------------------- * Name: afreadann * Purpose: Read annotation given handle * Inputs: ann_id: annotation handle * ann: annotation read * maxlen: maximum space allocted for "ann" * Returns: see ANreadann() (SUCCEED (0) if successful, else FAIL (-1)) * Users: Fortran Users * Invokes: ANreadann() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafreadann(intf *ann_id,_fcd ann, intf *maxlen) { CONSTR(FUNC, "afreadann"); char *iann = NULL; intn status; /* Allocate space for fortran string */ if (*maxlen) iann = (char *) HDmalloc((uint32) *maxlen + 1); if (!iann) HRETURN_ERROR(DFE_NOSPACE, FAIL); status = ANreadann((int32)*ann_id, iann, (int32)*maxlen); /* C-String to Fortran String */ HDpackFstring(iann, _fcdtocp(ann), (intn) *maxlen); if (iann) HDfree(iann); /* free allocated space */ return status; } /* nafreadann() */ /*----------------------------------------------------------------------------- * Name: afendaccess * Purpose: End access to annotation using handle * Inputs: ann_id:annotation handle * Returns: see ANendaccess() * Users: Fortran Users * Invokes: ANendaccess() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafendaccess(intf *ann_id) { #ifdef LATER CONSTR(FUNC, "afendaccess"); #endif /* LATER */ return (intf)ANendaccess((int32)*ann_id); } /* nafendaccess() */ /*----------------------------------------------------------------------------- * Name: afgettagref * Purpose: * Inputs: * Returns: see ANget_tagref() * Users: Fortran Users * Invokes: ANget_tagref() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafgettagref(intf *an_id, intf *index, intf *type, intf *tag, intf *ref) { #ifdef LATER CONSTR(FUNC, "afgettagref"); #endif /* LATER */ intf ret; uint16 otag, oref; ret = (intf)ANget_tagref((int32)*an_id,(int32)*index,(ann_type)*type, &otag, &oref); *tag = otag; *ref = oref; return ret; } /* nafgettagref() */ /*----------------------------------------------------------------------------- * Name: afidtagref * Purpose: * Inputs: * Returns: see ANid2tagref() * Users: Fortran Users * Invokes: ANid2tagerf() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafidtagref(intf *ann_id, intf *tag, intf *ref) { #ifdef LATER CONSTR(FUNC, "afidtagref"); #endif /* LATER */ intf ret; uint16 otag, oref; ret = (intf)ANid2tagref((int32)*ann_id, &otag, &oref); *tag = otag; *ref = oref; return ret; } /* nafidtagref() */ /*----------------------------------------------------------------------------- * Name: aftagrefid * Purpose: * Inputs: * Returns: see ANtagref2id() * Users: Fortran Users * Invokes: ANtagref2id() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) naftagrefid(intf *an_id, intf *tag, intf *ref) { #ifdef LATER CONSTR(FUNC, "aftagrefid"); #endif /* LATER */ return (intf)ANtagref2id((int32)*an_id, (uint16)*tag, (uint16)*ref); } /* naftagrefid() */ /*----------------------------------------------------------------------------- * Name: afatypetag * Purpose: * Inputs: * Returns: see ANatype2tag() * Users: Fortran Users * Invokes: ANatype2tag() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) nafatypetag(intf *atype) { #ifdef LATER CONSTR(FUNC, "aftypetag"); #endif /* LATER */ return (intf)ANatype2tag((ann_type)*atype); } /* nafatypetag() */ /*----------------------------------------------------------------------------- * Name: aftagatype * Purpose: * Inputs: * Returns: see ANtag2atype() * Users: Fortran Users * Invokes: ANtag2atype() * Author: GeorgeV *---------------------------------------------------------------------------*/ FRETVAL(intf) naftagatype(intf *tag) { #ifdef LATER CONSTR(FUNC, "aftagatype"); #endif /* LATER */ return (intf)ANtag2atype((uint16)*tag); } /* naftagatype() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hdf.h0000644000000000000000000001212012421456623013344 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hdf.h 5584 2011-04-13 18:25:06Z bmribler $ */ #ifndef HDF_H #define HDF_H #include "h4config.h" #include "hdfi.h" #include "hlimits.h" /* Internal DF structure */ typedef struct { uint16 tag; /* tag of element */ uint16 ref; /* ref of element */ } DFdi; /* For annotations */ /* enumerated types of the varous annotation types */ typedef enum { AN_UNDEF = -1, AN_DATA_LABEL = 0, /* Data label */ AN_DATA_DESC, /* Data description */ AN_FILE_LABEL, /* File label */ AN_FILE_DESC /* File description */ } ann_type; /* internal file access codes */ #define DFACC_READ 1 #define DFACC_WRITE 2 #define DFACC_CREATE 4 #define DFACC_ALL 7 #define DFACC_RDONLY 1 #define DFACC_RDWR 3 #define DFACC_CLOBBER 4 /* New file access codes (for Hstartaccess only, currently) */ #define DFACC_BUFFER 8 /* buffer the access to this AID */ #define DFACC_APPENDABLE 0x10 /* make this AID appendable */ #define DFACC_CURRENT 0x20 /* start looking for a tag/ref from the current */ /* location in the DD list (useful for continued */ /* searching ala findfirst/findnext) */ /* External Element File access mode */ /* #define DFACC_CREATE 4 is for creating new external element file */ #define DFACC_OLD 1 /* for accessing existing ext. element file */ /* The magic cookie for Hcache to cache all files */ #define CACHE_ALL_FILES (-2) /* File access modes */ /* 001--007 for different serial modes */ /* 011--017 for different parallel modes */ #define DFACC_DEFAULT 000 #define DFACC_SERIAL 001 #define DFACC_PARALLEL 011 /* used by Hnextread to determine where to start searching for the next tag/ref to read */ #define DF_START 0 #define DF_CURRENT 1 #define DF_END 2 /* Used by Hfind to determine the direction to search for tag/ref's in the */ /* file. */ #define DF_FORWARD 1 #define DF_BACKWARD 2 /* return code - since some unix/c routines use 0 and -1 as their return code, and some assumption had been made in the code about that, it is important to keep these constants the same values. For explicitly boolean functions, use TRUE and FALSE */ #define SUCCEED 0 #define FAIL (-1) /* boolean values, reminder: NEVER compare with numeric values */ #ifndef FALSE # define FALSE 0 #endif #ifndef TRUE # define TRUE (!FALSE) #endif /* macros */ #define STREQ(s, t) (HDstrcmp((s), (t)) == 0) #define NSTREQ(s, t, n) (HDstrncmp((s), (t), (n)) == 0) /* * Macros used for variable and function scoping in code..... */ #ifndef EXPORT #define EXPORT #endif #ifndef PRIVATE #define PRIVATE static #endif /* Include the Number-type definitions */ #include "hntdefs.h" /* Include the Tag definitions */ #include "htags.h" /* * interlacing supported by the vset. */ #define FULL_INTERLACE 0 #define NO_INTERLACE 1 /* Some information about a number type - character strings to be displayed */ typedef struct hdf_ntinfo_t { char type_name[9]; /* longest possible string "float128" */ char byte_order[13]; /* "bigEndian" or "littleEndian" */ } hdf_ntinfo_t; /* type for File ID to send to Hlevel from Vxx interface */ typedef int32 HFILEID; typedef intn (*hdf_termfunc_t)(void); /* termination function typedef */ /* .................................................................. */ /* Publically accessible functions declarations. This includes all the functions that are used by application programs. */ #include "hbitio.h" #include "hcomp.h" #include "herr.h" #include "hproto.h" #include "hdatainfo.h" /* Add the data info header */ #include "vg.h" /* Add the Vgroup/Vdata header so the users don't have to */ #include "mfgr.h" /* Add the GR header so the users don't have to */ /* these may eventaully evolve into real-life functions but not yet */ #define HDFopen(f,a,d) Hopen((f), (a), (d)) #define HDFclose(f) Hclose((f)) #define Vstart(f) Vinitialize((f)) #define Vend(f) Vfinish((f)) /* Misc. macros for backward compability */ #define HDgettagname(tag) HDgettagdesc(tag) /* This is also defined in fmpio.h */ #define MP_PAGEALL 0x01 /* page the whole file i.e. no limit on 'maxcache'*/ #endif /* HDF_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hdatainfo.c0000644000000000000000000011671012421456623014545 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* NOTE: this file and other "datainfo" related files will be configured so that this feature will not be built by default. -BMR Update: THG and NASA had decided to include all features developed for the HDF Mapping Project in the library -BMR (~Jan 2011) */ /********************************************************************** FILE hdatainfo.c HDF data information routines - added to support the HDF4 Mapping project This file contains the multi-file HDF interface functions that provide information about location and size of raw data. This type of information will allow applications to extract raw data from an HDF file without the use of HDF4 library. These features were developed to support the HDF4 Mapping project (2010-2011.) As with the rest of the functions in the APIs, these functions have names beginning with VG, VS, GR, and AN, appropriately. EXPORTED ROUTINES ----------------- VSgetdatainfo -- retrieves offset(s) and length(s) of a vdata's data GRgetdatainfo -- retrieves offset(s) and length(s) of an image's data VSgetattdatainfo -- retrieves offset and length of a vdata attribute's data Vgetattdatainfo -- retrieves offset and length of a vgroup attribute's data GRgetattdatainfo -- retrieves offset and length of an image attribute's data ANgetdatainfo -- retrieves offset and length of an annotation's data LOW-LEVEL ROUTINES ------------------ HDgetdatainfo -- retrieves offset(s) and length(s) of the data in a data element **********************************************************************/ #ifndef MFGR_MASTER #define MFGR_MASTER /* for GRgetdatainfo and GRgetattdatainfo */ #endif /* mfgr.h had been included in hdf.h */ #ifndef MFAN_MASTER #define MFAN_MASTER /* for ANgetdatainfo */ #endif /* mfan.h is included here */ #include "hdf.h" #include "hlimits.h" #include "vgint.h" #include "mfan.h" #ifdef H4_HAVE_LIBSZ /* we have the szip library */ #include "szlib.h" #endif /*----------------------------------------------------------------------------- NAME HDgetdatainfo -- Retrieves offset(s) and length(s) of the data in a data element. USAGE intn HDgetdatainfo(file_id, tag, ref, start_block, info_count, *offsetarray, *lengtharray) int32 file_id IN: file id uint16 tag IN: tag of the element uint16 ref IN: ref of element int32 *chk_coord IN: chunk's coordinates or NULL if not chunked uintn start_block IN: data block to start at, 0 base uintn info_count IN: number of info records int32 *offsetarray OUT: array to hold offsets int32 *lengtharray OUT: array to hold lengths RETURNS Number of data blocks if successful, or FAIL, otherwise. DESCRIPTION HDgetdatainfo will use low-level functions to get data information of element that is in chunk or linked-block storage. If the given tag/ref point to: - no data then the function will return 0 for number of data blocks, - actual data written then the function will return 1 for number of data blocks and its offset/length if they are requested, or - description record, which means this element is special, then the function will act appropriately depend upon the specialness + compression * if the compressed data is stored in one block, the function will return 1 and the offset/length if they are requested * if the compressed data is stored in linked-blocks, > read the linked-block special header info > call HLgetdatainfo to get data info of the blocks + chunking * call HMCgetdatainfo to get data info of the requested chunk + linked-block * read the linked-block special header info * call HLgetdatainfo to get data info of the blocks NOTES Aug 17, 2010: Tested with SDgetdatainfo and VSgetdatainfo -BMR Sep 7, 2010: Tested with GRgetdatainfo, but not linked-block yet -BMR Oct 5, 2010: Modified to handle compressed/linked-block element -BMR --------------------------------------------------------------------------*/ intn HDgetdatainfo(int32 file_id, uint16 tag, uint16 ref, int32 *chk_coord, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray) { CONSTR(FUNC, "HDgetdatainfo"); /* for HGOTO_ERROR */ filerec_t *file_rec; /* file record */ uint16 sp_tag; /* special tag */ uint16 comp_ref = 0; /* ref for compressed data or comp header */ uint16 dtag, dref; /* description record tag/ref */ int32 dlen=0, doff=0; /* offset/length of the description record */ uint8 lbuf[COMP_HEADER_LENGTH], *p=NULL; /* desc record buffer and a pointer to it */ atom_t data_id = FAIL; /* dd ID of existing element */ int32 length; /* uncomp data len to check if data had been written */ intn count=0;/* num of data blocks returned by getdatainfo funcs */ uint16 spec_code=0;/* special code: SPECIAL_LINKED, SPECIAL_COMP,... */ int32 comp_aid=-1;/* compressed element access id */ intn ret_value=SUCCEED; /* Clear error stack */ HEclear(); /* Validate array size */ if (info_count == 0 && offsetarray != NULL && lengtharray != NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Getting only offsets or lengths is not allowed */ if ((offsetarray != NULL && lengtharray == NULL) || (offsetarray == NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get access element from dataset's tag/ref */ if ((data_id=HTPselect(file_rec, tag, ref))!=FAIL) { /* Get the info pointed to by this dd, which could point to data or description record */ if (HTPinquire(data_id, &dtag, &dref, &doff, &dlen) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Return 0 if no data had been written */ if (doff == INVALID_OFFSET && dlen == INVALID_LENGTH) { /* End access to the element */ if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); HGOTO_DONE(0); } /* If the element is not special, that means dataset's tag/ref specifies the actual data that was written to the dataset, get the offset and length of the data if they were requested */ if (HTPis_special(data_id)==FALSE) { /* Only one data block here, starting offset cannot be > 1 */ if (start_block > 1) HGOTO_ERROR(DFE_ARGS, FAIL); /* Offset and length are requested by caller */ if (offsetarray != NULL && lengtharray != NULL) { offsetarray[0] = doff; lengtharray[0] = dlen; } count = 1; } /* If the element is special, get the special info header and decode for special tag to detect compression/chunking/linked blocks */ else { if (HPseek(file_rec, doff) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_read(file_rec, lbuf, (int)2) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode the special tag */ p = &lbuf[0]; INT16DECODE(p, sp_tag); /* This is a compressed element */ if (sp_tag == SPECIAL_COMP) { /* Read compression info header */ if (HP_read(file_rec, lbuf, (int)COMP_HEADER_LENGTH) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode header to get data length */ p = &lbuf[0]; p = p + 2; /* skip 2byte header_version */ INT32DECODE(p, length); /* get _uncompressed_ data length */ /* No data written */ if (length == 0) { count = 0; } /* Data had been written, either in contiguous block or more special storage, in which case special code needs to be read */ else { /* Decode for the compression ref# */ UINT16DECODE(p, comp_ref); /* Get access to the compression element */ if ((comp_aid = HTPselect(file_rec, DFTAG_COMPRESSED, comp_ref)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* If data had been written in one contiguous block */ if (HTPis_special(comp_aid) != TRUE) { /* Only one data block here, starting offset cannot be > 1*/ if (start_block > 1) HGOTO_ERROR(DFE_ARGS, FAIL); /* This element is not further special, only compressed, get its offset and length if they are requested */ if (offsetarray != NULL && lengtharray != NULL) { int32 off=0, len=0; off = Hoffset(file_id, DFTAG_COMPRESSED, comp_ref); if (off == FAIL) HGOTO_ERROR(DFE_BADOFFSET, FAIL); len = Hlength(file_id, DFTAG_COMPRESSED, comp_ref); if (len == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); offsetarray[0] = off; lengtharray[0] = len; } count = 1; } /* end if */ /* This element is further special, read in the special code to see what specialness is and process appropriately */ else { /* Get offset of the special header */ if(HTPinquire(comp_aid, NULL, NULL, &doff, NULL)==FAIL) { HTPendaccess(comp_aid); HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Get to and read the special code from the header */ if (HPseek(file_rec, doff) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_read(file_rec, lbuf, (int)2) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode special code */ p = &lbuf[0]; INT16DECODE(p, spec_code); /* The element has linked-blocks */ if (spec_code == SPECIAL_LINKED) { /* Read the rest of the linked-block info header */ if (HP_read(file_rec, lbuf, (int)14) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Pass the header info to the linked-block API to get the data info if they are requested or the info count only, otherwise */ p = &lbuf[0]; if (offsetarray != NULL && lengtharray != NULL) count = HLgetdatainfo(file_id, p, start_block, info_count, offsetarray, lengtharray); else /* get number of data blocks only */ count = HLgetdatainfo(file_id, p, start_block, 0, NULL, NULL); } /* this element is also stored in linked blocks */ } /* this element is further special */ /* Release the compression element */ if(HTPendaccess(comp_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* compressed data written */ } /* element is compressed */ /* This is a chunked element, hand the task over to the chunking layer. */ else if (sp_tag == SPECIAL_CHUNKED) { if (chk_coord != NULL) count = HMCgetdatainfo(file_id, tag, ref, chk_coord, start_block, info_count, offsetarray, lengtharray); else /* BMR: check to see what should be done here */ { fprintf(stderr, "\nERROR>>> Element with tag/ref %d/%d is a chunked element, the chunk's coordinates must be specified\n", tag, ref); HGOTO_ERROR(DFE_ARGS, FAIL); } } /* Unlimited dimension; extract the number of blocks and the ref # of the link table then hand over to linked block layer */ else if (sp_tag == SPECIAL_LINKED) { /* Read the linked-block info header */ if (HP_read(file_rec, lbuf, (int)14) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Pass the header info to the linked-block API to get the data info if they are requested or the info count only */ p = &lbuf[0]; if (offsetarray != NULL && lengtharray != NULL) count = HLgetdatainfo(file_id, p, start_block, info_count, offsetarray, lengtharray); else /* get data information from the linked blocks */ count = HLgetdatainfo(file_id, p, start_block, 0, NULL, NULL); } /* element is SPECIAL_LINKED */ } /* else, data element is special */ /* End access to the element */ if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if data_id != FAIL */ else /* HTPselect failed */ HGOTO_ERROR(DFE_CANTACCESS, FAIL); /* Return the number of data blocks */ ret_value = count; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDgetdatainfo */ /*------------------------------------------------------ NAME VSgetdatainfo - Gets the offset/length of a vdata's data USAGE intn VSgetdatainfo(vsid, start_block, info_count, offsetarray, lengtharray) int32 vsid IN: vdata id uintn start_block IN: data block to start at, 0 base uintn info_count IN: number of blocks to be retrieved int32 *offsetarray OUT: array to hold offsets int32 *lengtharray OUT: array to hold lengths RETURNS The number of data blocks retrieved, if successful and FAIL, otherwise. DESCRIPTION This function uses the low-level function HDgetdatainfo to get the data info when the vdata is stored in linked-blocks. TODO - not tested with start_block and info_count NOTES Aug 17, 2010: Tested some in hdf/test/tdatainfo.c -BMR ----------------------------------------------------------*/ intn VSgetdatainfo(int32 vsid, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray) { CONSTR(FUNC, "VSgetdatainfo"); vsinstance_t *vs_inst = NULL; VDATA *vs = NULL; accrec_t *access_rec; intn count; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate array size */ if (info_count == 0 && offsetarray != NULL && lengtharray != NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Getting only offsets or lengths is not allowed */ if ((offsetarray != NULL && lengtharray == NULL) || (offsetarray == NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check key is valid vdata */ if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get vdata instance */ if (NULL == (vs_inst = (vsinstance_t *) HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); /* Get vdata info structure and check it */ vs = vs_inst->vs; if (vs == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Get access record of the vdata */ access_rec = HAatom_object(vs->aid); if (access_rec == (accrec_t *) NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If the vdata is empty, return 0 block */ if (vs->nvertices <= 0) HGOTO_DONE(0); /* If the vdata is stored in linked-blocks, let the low-level function handle it */ if (access_rec->special == SPECIAL_LINKED) { /* Application only wants the number of data blocks */ if (offsetarray == NULL && lengtharray == NULL) { count = HDgetdatainfo(vs->f, VSDATATAG, vs->oref, NULL, start_block, info_count, NULL, NULL); } /* Application only wants the offset and length of the blocks too */ else { count = HDgetdatainfo(vs->f, VSDATATAG, vs->oref, NULL, start_block, info_count, offsetarray, lengtharray); } if (count == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* The vdata is stored in contiguous block */ else { if (offsetarray != NULL && lengtharray != NULL) { int32 off=0, len=0; if ((off = Hoffset(vs->f, VSDATATAG, vs->oref)) == FAIL) HGOTO_ERROR(DFE_BADOFFSET, FAIL); if ((len = Hlength(vs->f, VSDATATAG, vs->oref)) == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); *offsetarray = off; *lengtharray = len; } count = 1; } /* Return the number of data blocks */ ret_value = count; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetdatainfo */ /*----------------------------------------------------------------------------- NAME Vgetattdatainfo - Gets the offset/length of the data of a vgroup's attribute USAGE intn Vgetattdatainfo(vgid, attrindex, *offset, *length) int32 vgid IN: vgroup id intn attrindex IN: attribute index int32 *offset OUT: buffer for offset int32 *length OUT: buffer for length RETURNS The number of data blocks retrieved, which should be 1, if successful and FAIL, otherwise. DESCRIPTION There are two types of attributes for vgroups. One is the old-style that was created using methods other than the standard attribute API function Vsetattr, which was introduced after HDF Version 4.0 Release 2, July 19, 1996. Without the use of Vsetattr, an application could simulate an attribute for a vgroup by creating and writing a vdata of class _HDF_ATTRIBUTE and adding that vdata to the vgroup via these calls: vdata_ref = VHstoredatam(file_id, ATTR_FIELD_NAME, values, size, type, attr_name, _HDF_ATTRIBUTE, order); ret_value = Vaddtagref (vgroup_id, DFTAG_VH, vdata2_ref); While both types of attributes are stored as vdatas, the vdatas of the new-style attributes are saved in a list of attribute tags/refs of the vgroup, and the vdatas of the old-style attributes are saved as elements of the vgroup. Because of the different storages, the new attribute functions would miss the old-style attributes. Two fields are added to the internal structure VGROUP for holding the number of old-style attributes and their ref#s. These fields are set by Vnoldattrs when old-style attributes exist in the file. When a vgroup has both type of attributes, the two list will be combined with the old-style attributes preceeding the new ones. The attribute indices will be adjusted accordingly. This function uses the API function VSgetdatainfo to get the data info of the attribute's data. -BMR 2011/3/19 ----------------------------------------------------------*/ intn Vgetattdatainfo(int32 vgid, intn attrindex, int32 *offset, int32 *length) { CONSTR(FUNC, "Vgetattdatainfo"); VGROUP *vg; vg_attr_t *vg_alist; vginstance_t *vg_inst; int32 attr_vsid; intn adjusted_index; intn status; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Validate Vgroup ID */ if (HAatom_group(vgid) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate vg's index in vgtab */ if (NULL == (vg_inst = (vginstance_t *)HAatom_object(vgid))) HGOTO_ERROR(DFE_VTAB, FAIL); if (NULL == (vg = vg_inst->vg)) HGOTO_ERROR(DFE_NOVS, FAIL); /* Validate arguments */ if (attrindex < 0) HGOTO_ERROR(DFE_BADATTR, FAIL); /* invalid attribute index given */ adjusted_index = attrindex; if (adjusted_index < vg->noldattrs) /* index of old-style attribute */ vg_alist = vg->old_alist; /* use old-attr list */ else if (adjusted_index >= vg->noldattrs && adjusted_index < (vg->nattrs+vg->noldattrs)) /* index of new-style attributes */ { /* Adjust the index to accommodate for the old-style attributes preceding the new-style attribute list */ adjusted_index = adjusted_index - vg->noldattrs; vg_alist = vg->alist; /* use new-attr list */ } else /* not that many attrs */ HGOTO_ERROR(DFE_BADATTR, FAIL); if (vg_alist == NULL) /* Bad attr list */ HGOTO_ERROR(DFE_BADATTR, FAIL); /* Get vdata holding the attribute */ if (FAIL == (attr_vsid = VSattach(vg->f, (int32)vg_alist[adjusted_index].aref, "r"))) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* Get offset and length of attribute's data. Note that start_block is 0 and info_count is 1 because attribute's data is only stored in 1 block */ status = VSgetdatainfo(attr_vsid, 0, 1, offset, length); if (status == FAIL) HGOTO_ERROR(DFE_GENAPP, FAIL); /* Close vdata */ if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); /* Return the number of data blocks, which should be 1 */ ret_value = status; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetattdatainfo */ /*------------------------------------------------------ NAME VSgetattdatainfo - Gets the offset/length of the data of a vdata's or vdata field's attribute USAGE intn VSgetattdatainfo(vsid, findex, attrindex, *offset, *length) int32 vsid IN: vdata id int32 findex IN: vdata's field index or _HDF_VDATA intn attrindex IN: attribute index int32 *offset OUT: buffer for offset int32 *length OUT: buffer for length RETURNS The number of data blocks retrieved, which should be 1, if successful and FAIL, otherwise. DESCRIPTION VSgetattdatainfo retrieves the offset and length of the data that belongs to an attribute. If findex is _HDF_VDATA (or -1), then the attribute is associated with the vdata vsid. If findex is an index of the vdata field, then the attribute is one that is associated with the vdata field. The parameter attrindex specifies the attribute's index within the vdata's or the field's attribute list. Thus, its valid value must be within [0-nattrs of the associated list]. VSgetattdatainfo uses VSgetdatainfo once it locates the vdata that stores the attribute. -BMR 2011/3/19 ----------------------------------------------------------*/ intn VSgetattdatainfo(int32 vsid, int32 findex, intn attrindex, int32 *offset, int32 *length) { CONSTR(FUNC, "VSgetattdatainfo"); VDATA *vs; vs_attr_t *vs_alist; vsinstance_t *vs_inst; int32 attr_vsid; intn nattrs, idx, a_index, found; intn status; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (HAatom_group(vsid) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate vs' index in vstab */ if (NULL == (vs_inst = (vsinstance_t *)HAatom_object(vsid))) HGOTO_ERROR(DFE_NOVS, FAIL); if (NULL == (vs = vs_inst->vs)) HGOTO_ERROR(DFE_NOVS, FAIL); if ((findex >= vs->wlist.n || findex < 0) && (findex != _HDF_VDATA)) HGOTO_ERROR(DFE_BADFIELDS, FAIL); nattrs = vs->nattrs; /* No attrs */ if (nattrs == 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Index must be positive and less than the number of attributes */ if (attrindex <0 || attrindex >= nattrs) HGOTO_ERROR(DFE_ARGS, FAIL); vs_alist = vs->alist; /* Bad attr list */ if (vs_alist == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); found = 0; a_index = -1; for (idx=0; idxfindex == findex) { a_index++; if (a_index == attrindex) found = 1; } if (!found) vs_alist++; } /* If this happened, it would have been detected by the check for range of attrindex above already, but check it anyway */ if (!found) HGOTO_ERROR(DFE_ARGS, FAIL); /* Attribute is found. Get access to the vdata that stores the attribute's data, retrieve the offset and length of the data, then close access. */ /* Get vdata */ if (FAIL == (attr_vsid = VSattach(vs->f, (int32)vs_alist->aref, "r"))) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* Get offset and length of attribute's data. Note that start_block is 0 and info_count is 1 because attribute's data is only stored in 1 block */ status = VSgetdatainfo(attr_vsid, 0, 1, offset, length); if (status == FAIL) HGOTO_ERROR(DFE_GENAPP, FAIL); /* Close vdata */ if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); /* Return the number of data blocks, which should be 1 */ ret_value = status; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetattdatainfo */ /*------------------------------------------------------------ NAME GRgetattdatainfo - Gets the offset/length of the data of a GR file's or an image's attribute USAGE intn GRgetattdatainfo(id, attrindex, offset, length) int32 id IN: either GR ID or RI ID int32 attrindex IN: index of the attribute being inquired int32 *offset OUT: buffer for offset int32 *length OUT: buffer for length RETURNS The number of data blocks retrieved, which should be 1, if successful and FAIL, otherwise. DESCRIPTION GRgetattdatainfo retrieves the location and size of the attribute's data and its length. MODIFICATION Apr 03, 2011: Revised to remove the parameter attrname because, for hmap project, it makes sense to just provide the attribute index. -BMR --------------------------------------------------------------*/ intn GRgetattdatainfo(int32 id, int32 attrindex, int32 *offset, int32 *length) { CONSTR(FUNC, "GRgetattdatainfo"); int32 hdf_file_id; /* file id */ int32 attr_vsid; /* id of vdata that stores the attribute */ group_t id_group=BADGROUP; /* temporary group of id */ gr_info_t *gr_ptr; /* ptr to the GR information for gr id */ ri_info_t *ri_ptr; /* ptr to the image information for ri id */ at_info_t *at_ptr=NULL; /* ptr to the attribute information */ void **aentry; /* temp. ptr to the image found */ TBBT_TREE *search_tree; /* attribute tree to search through */ int found = FALSE; /* TRUE when the searched attribute is found */ intn status = 0; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate index */ if (attrindex < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Validate ID */ id_group = HAatom_group(id); if (id_group != RIIDGROUP && id_group != GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get attribute info and validate index */ /* When file ID is given, check index against file's attribute count */ if (id_group == GRIDGROUP) { /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); /* Check index against file's attribute count */ if(attrindex >= gr_ptr->gattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree = gr_ptr->gattree; hdf_file_id = gr_ptr->hdf_file_id; } /* end if */ /* When raster image ID is given, check index against image's attr count */ else if (id_group == RIIDGROUP) { /* locate RI's object in hash table */ if (NULL == (ri_ptr = (ri_info_t *) HAatom_object(id))) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); /* Check index against image's attribute count */ if(attrindex >= ri_ptr->lattr_count) HGOTO_ERROR(DFE_ARGS, FAIL); search_tree = ri_ptr->lattree; hdf_file_id = ri_ptr->gr_ptr->hdf_file_id; } /* end if */ else HGOTO_ERROR(DFE_ARGS, FAIL); /* Search for an attribute with the same index */ aentry = (void **)tbbtfirst((TBBT_NODE *)*search_tree); found = FALSE; while (!found && (aentry != NULL)) { at_ptr = (at_info_t *)*aentry; if (at_ptr == NULL) { HGOTO_ERROR(DFE_ARGS, FAIL); } /* If index is found, set flag */ if (at_ptr->index == attrindex) found = TRUE; /* Not found, go to the next entry */ if (!found) aentry = (void **)tbbtnext((TBBT_NODE *)aentry); } /* end while */ /* If the attribute is found, get offset/length of its data */ if (found) { /* Get access to the vdata that stores the attribute */ attr_vsid = VSattach(hdf_file_id, (int32)at_ptr->ref, "r"); if (attr_vsid == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* Get offset and length of attribute's data. Note that start_block is 0 and info_count is 1 because attribute's data is only stored in 1 block */ status = VSgetdatainfo(attr_vsid, 0, 1, offset, length); if (status == FAIL) HGOTO_ERROR(DFE_GENAPP, FAIL); if (FAIL == VSdetach(attr_vsid)) HGOTO_ERROR(DFE_CANTDETACH, FAIL); } ret_value = status; /* should be 1 */ done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* GRgetattdatainfo */ /*--------------------------------------------------------------- NAME GRgetdatainfo - Gets the offsets/lengths of the data of an image USAGE intn GRgetdatainfo(riid, start_block, info_count, offsetarray, lengtharray) int32 riid IN: raster image ID uintn start_block IN: start retrieving data at uintn info_count IN: number of data blocks to retrieve int32 *offsetarray OUT: buffer for offset(s) int32 *lengtharray OUT: buffer for length(s) RETURNS The number of data blocks retrieved, if successful and FAIL, otherwise. DESCRIPTION This function uses the low-level function HDgetdatainfo to get the data info of an image. TODO - not tested with linked-block element yet - need more documentation ----------------------------------------------------------------*/ intn GRgetdatainfo(int32 riid, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray) { CONSTR(FUNC, "GRgetdatainfo"); ri_info_t *ri_ptr; /* ptr to the image to work with */ int32 hdf_file_id; /* short cut for file id */ int32 length = 0; uintn count; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate array size */ if (info_count == 0 && (offsetarray != NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Getting only offsets or lengths is not allowed */ if ((offsetarray != NULL && lengtharray == NULL) || (offsetarray == NULL && lengtharray != NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check the validity of the ID */ if (HAatom_group(riid) != RIIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Locate RI's object in hash table */ ri_ptr = (ri_info_t *) HAatom_object(riid); if (NULL == ri_ptr) HGOTO_ERROR(DFE_RINOTFOUND, FAIL); hdf_file_id = ri_ptr->gr_ptr->hdf_file_id; /* alias for file id */ /* Check for no data in the image */ /* If the image has no tag/ref pair assigned to it yet, return 0 for info count */ if(ri_ptr->img_tag==DFTAG_NULL || ri_ptr->img_tag==DFREF_WILDCARD || ri_ptr->img_ref==DFREF_WILDCARD) { if ((offsetarray != NULL && lengtharray != NULL)) *offsetarray = *lengtharray = 0; HGOTO_DONE(0); } /* If the image already had a tag/ref pair, make sure it has actual data, if not, return 0 for info count */ else { length = Hlength(hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref); if (length == FAIL) { if ((offsetarray != NULL && lengtharray != NULL)) *offsetarray = *lengtharray = 0; HGOTO_DONE(0); } /* If both arrays are NULL, get the number of data blocks and return */ if ((offsetarray == NULL && lengtharray == NULL)) { count = HDgetdatainfo(hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, NULL, start_block, 0, NULL, NULL); if (count == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Application requests offsets/lengths */ else { count = HDgetdatainfo(hdf_file_id, ri_ptr->img_tag, ri_ptr->img_ref, NULL, start_block, info_count, offsetarray, lengtharray); if (count == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* end else */ ret_value = count; done: if(ret_value == 0) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* GRgetdatainfo */ /*--------------------------------------------------------------- NAME GRgetpalinfo - Gets the palette data descriptors (DDs) in the file (i.e., palette tags, refs, offsets, and lengths) USAGE intn GRgetpalinfo(gr_id, pal_count, palinfo_array) int32 gr_id IN: GR interface ID uintn pal_count IN: number of palette DDs to get hdf_ddinfo_t *palinfo_array OUT: array of palette DDs RETURNS The number of palette DDs in the file or the actual number of palette DDs retrieved, if successful, and FAIL, otherwise. DESCRIPTION If the caller only requests the number of palette tags in the file, i.e., when palinfo_array is NULL and pal_count is 0, we will simply return the number of palette tags, including both DFTAG_IP8 and DFTAG_LUT, without further processing. Otherwise, the function will search the file for all tags DFTAG_IP8 and DFTAG_LUT, then retrieve the palette data information into the provided array of structures. -BMR 2012/6/19 ----------------------------------------------------------------*/ intn GRgetpalinfo(int32 gr_id, uintn pal_count, hdf_ddinfo_t *palinfo_array) { CONSTR(FUNC, "GRgetpalinfo"); gr_info_t *gr_ptr; int32 file_id; int32 nbytes = 0; int32 aid = FAIL; intn idx; uintn count; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* check the validity of the GR ID */ if (HAatom_group(gr_id)!=GRIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* locate GR's object in hash table */ if (NULL == (gr_ptr = (gr_info_t *) HAatom_object(gr_id))) HGOTO_ERROR(DFE_GRNOTFOUND, FAIL); file_id = gr_ptr->hdf_file_id; /* alias of the file id */ /* Validate array size. Fail when count is a pos number but the array is NULL, or when count is a neg number */ if ((pal_count > 0 && palinfo_array == NULL) || pal_count < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* If only the number of palette tags is interested, return that */ if (pal_count == 0 && palinfo_array == NULL) { int32 n_IP8s = 0, n_LUTs = 0; n_IP8s = Hnumber(file_id, DFTAG_IP8); n_LUTs = Hnumber(file_id, DFTAG_LUT); if (n_IP8s == FAIL || n_LUTs == FAIL) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } else return(n_IP8s + n_LUTs); } /* Application requests data info of palettes. Start checking tags in the file and when a palette tag is encountered, retrieve its DD. The process continues until no more tags/refs in the file or the maxinum size of the provided array is reached */ idx = 0; ret_value = aid = Hstartread(file_id, DFTAG_WILDCARD, DFREF_WILDCARD); while (ret_value != FAIL && idx < pal_count) { uint16 tag; /* Get tag of this element */ ret_value = Hinquire(aid, NULL, &tag, NULL,NULL,NULL,NULL,NULL,NULL); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (tag == DFTAG_IP8 || tag == DFTAG_LUT) { /* a palette tag is found */ /* Get the palette's data info */ ret_value = Hinquire(aid, NULL, &palinfo_array[idx].tag, &palinfo_array[idx].ref, &palinfo_array[idx].length, &palinfo_array[idx].offset, NULL, NULL, NULL); if (ret_value == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Move to next element in the array */ idx++; } /* a palette tag is found */ /* Get next element */ ret_value = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); } /* get data info of palettes */ /* Close access id */ if (aid != FAIL) if (Hendaccess(aid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = idx; done: if(ret_value == FAIL) { /* Error condition cleanup */ if (aid != FAIL) Hendaccess(aid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* GRgetpalinfo */ /*-------------------------------------------------------------------------- NAME ANgetdatainfo -- Gets the offset(s) and length(s) locating the data of the annotation. USAGE int32 ANgetdatainfo(ann_id, *offset, *length) int32 ann_id IN: annotation ID int32 *offset OUT: buffer for offset int32 *length OUT: buffer for length RETURNS SUCCEED/FAIL DESCRIPTION Annotations have contiguous data, so ANgetdatainfo only needs to use Hoffset/Hlength to get the data info of an annotation. NOTES Aug 25, 2010: Tested in tdatainfo.c/test_annotation -BMR --------------------------------------------------------------------------*/ intn ANgetdatainfo(int32 ann_id, /* IN: annotation id */ int32 *offset, /* OUT: buffer for offset */ int32 *length) /* OUT: buffer for length */ { CONSTR(FUNC, "ANgetdatainfo"); filerec_t *file_rec = NULL; /* file record pointer */ ANnode *ann_node = NULL; int32 file_id = FAIL; int32 type; int32 ann_key; int newflag = 0; uint16 ann_tag; uint16 ann_ref; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Both buffers must be allocated */ if (offset == NULL || length == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get annotation record */ ann_node = HAatom_object(ann_id); if (NULL == ann_node) HGOTO_ERROR(DFE_ARGS, FAIL); /* Convert file_id to file rec and check for validity */ file_id = ann_node->file_id; file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Get annotation key, type, and ref# */ ann_key = ann_node->ann_key; type = AN_KEY2TYPE(ann_key); ann_ref = AN_KEY2REF(ann_key); /* Set type tag */ switch((int32)type) { case AN_DATA_LABEL: ann_tag = DFTAG_DIL; break; case AN_DATA_DESC: ann_tag = DFTAG_DIA; break; case AN_FILE_LABEL: ann_tag = DFTAG_FID; break; case AN_FILE_DESC: ann_tag = DFTAG_FD; break; default: HE_REPORT_GOTO("Bad annotation type for this call",FAIL); } #ifdef NEED_ELEMENT_TAG_REF /* Keep these here just in case we end up need the object's tag/ref -BMR */ /* Get annotation entry so that we can get object's tag/ref later */ if ((entry = tbbtdfind(file_rec->an_tree[type], &ann_key, NULL)) == NULL) HE_REPORT_GOTO("failed to retrieve annotation of 'type' tree", FAIL); ann_entry = (ANentry *) entry->data; elem_tag = ann_entry->elmtag; elem_ref = ann_entry->elmref; #endif /* If annotation exists, try to get offset/length */ newflag = ann_node->new_ann; if (newflag == 0) { int32 off=0, len=0; if (offset != NULL && length != NULL) { off = Hoffset(file_id, ann_tag, ann_ref); if (off == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); len = Hlength(file_id, ann_tag, ann_ref); if (len == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); *offset = off; *length = len; } /* Because for Data label/description, the object's tag/ref were written to the file before the annotation data, 4 bytes must be taken into account for them */ if (ann_tag == DFTAG_DIL || ann_tag == DFTAG_DIA) { *offset = *offset + 4; *length = *length - 4; } } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* ANgetdatainfo */ libhdf4-4.2.10/HDF_ALT/hdf/src/cnone.h0000644000000000000000000000611112421456623013710 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cnone.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: cnone.h * Purpose: Header file for "none" encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for "none" encoding. This header * should only be included in hcomp.c and cnone.c. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CNONE_H #define __CNONE_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from cnone.c */ extern int32 HCPcnone_stread (accrec_t * rec); extern int32 HCPcnone_stwrite (accrec_t * rec); extern int32 HCPcnone_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcnone_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcnone_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcnone_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcnone_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* "none" [en|de]coding information */ typedef struct { intn space_holder; /* merely a space holder so compilers don't barf */ } comp_coder_none_info_t; #ifndef CNONE_MASTER extern funclist_t cnone_funcs; /* functions to perform run-length encoding */ #else funclist_t cnone_funcs = { /* functions to perform run-length encoding */ HCPcnone_stread, HCPcnone_stwrite, HCPcnone_seek, HCPcnone_inquire, HCPcnone_read, HCPcnone_write, HCPcnone_endaccess }; #endif #endif /* __CNONE_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/bitvect.c0000644000000000000000000004251312421456623014247 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 4932 $"; #endif /* $Id: bitvect.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE bitvect.c PURPOSE Provide an API for dynamicly-sized bit-vectors or "bit-sets" REMARKS These function manipulate ordered sets of "bits". They are designed to closely resemble the functions which one can perform in C with the "bit-wise" algebraic functions, with some additional pizzaz thrown in. DESIGN These routines a designed to be a modular component for use both inside the HDF library and out. They will use the HDF typedefs & Standard C library macros, but do not explicitly depend on being inside the library itself. Each bit-vector is stored in memory as an array of unsigned 8-bit integers (uint8's in HDF types), which can grow as additional bits are flagged in the bit-vector. Each bit-vector is stored with the lowest bits in location 0 in the array of base type (uint8s currently) and the bits in "standard" C order (i.e. bit 0 is the lowest bit in the byte) in each byte. This does make for a slightly strange "bit-swapped" storage, but is the most efficient. BUGS/LIMITATIONS Currently the following design limitations are still in place: EXPORTED ROUTINES bv_ptr bv_new(int32 num_bits, uint32 flags) - Creates a new bit-vector with a particular starting # of bits. intn bv_delete(bv_ptr b) - Deletes a bit-vector created with bv_new. intn bv_set(bv_ptr b, int32 bit_num, bv_bool value) - Sets a bit in a bit-vector to a given boolean value. intn bv_get(bv_ptr b, int32 bit_num) - Gets a bit from a bit-vector. intn bv_clear(bv_ptr b, bv_bool value) - Clears an entire bit-vector to a given boolean value. int32 bv_size(bv_ptr b) - Reports the number of bits used in a bit-vector. uint32 bv_flags(bv_ptr b) - Returns the flags used when creating the bit-vector int32 bv_find(bv_ptr b, int32 last_find, bv_bool value) - Find the next bit in a bit-vector with a given value. Functions that it would be nice to see (some day): intn bv_bitand(bv_ptr b, int32 bit_num, bv_bool value) - Perform a boolean AND operation on a bit in a bit-vector. intn bv_bitor(bv_ptr b, int32 bit_num, bv_bool value) - Perform a boolean OR operation on a bit in a bit-vector. intn bv_bitxor(bv_ptr b, int32 bit_num, bv_bool value) - Perform a boolean XOR operation on a bit in a bit-vector. intn bv_bitnot(bv_ptr b, int32 bit_num) - Perform a boolean NOT operation on a bit in a bit-vector. bv_ptr *bv_vectand(bv_ptr b1, bv_ptr b2) - Perform a boolean AND operation between two bit-vectors. bv_ptr *bv_vector(bv_ptr b1, bv_ptr b2) - Perform a boolean OR operation between two bit-vectors. bv_ptr *bv_vectxor(bv_ptr b1, bv_ptr b2) - Perform a boolean XOR operation between two bit-vectors. LOCAL ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 12/05/95 - Starting writing specs & coding prototype */ #define BV_MASTER #include "bitvect.h" /* Multi-file raster information */ /* Local pre-processor macros */ /*-------------------------------------------------------------------------- NAME bv_new PURPOSE Create a new bit-vector. USAGE bv_ptr bv_new(num_bits, flags) int32 num_bits; IN: The initial number of bits in the vector uint32 flags; IN: Flags to determine special attributes of the newly created bit-vector RETURNS Returns either a valid bv_ptr on succeed or NULL on failure. DESCRIPTION Creates a new bit-vector with a certain initial # of bits. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If num_bits is set to (-1), then the default number of bits is used. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ bv_ptr bv_new(int32 num_bits, uint32 flags) { int32 base_elements; /* the number of base elements needed to store the # of bits requested */ bv_ptr b; /* ptr to the new bit-vector */ /* Check for invalid numbers of bits or bad flags */ if(num_bits<(-1) || num_bits==0) return(NULL); /* Check for requesting the default # of bits */ if(num_bits==(-1)) num_bits=BV_DEFAULT_BITS; base_elements=((num_bits%(int32)BV_BASE_BITS)>0) ? (num_bits/(int32)BV_BASE_BITS)+1 : (num_bits/(int32)BV_BASE_BITS); if((b=(bv_ptr)HDmalloc(sizeof(bv_struct)))==NULL) return(NULL); b->bits_used=(uint32)num_bits; b->array_size=(uint32)(((base_elements/BV_CHUNK_SIZE)+1)*BV_CHUNK_SIZE); b->flags=flags; if((b->buffer=(bv_base *)HDmalloc(sizeof(bv_base)*b->array_size))==NULL) { HDfree(b); return(NULL); } /* end if */ /* Check the initial bit settings */ if(flags&BV_INIT_TO_ONE) { HDmemset(b->buffer,255,b->array_size); b->last_zero=(-1); /* Set the last zero to unknown */ } /* end if */ else { HDmemset(b->buffer,0,b->array_size); b->last_zero=0; } /* end else */ return(b); } /* bv_new() */ /*-------------------------------------------------------------------------- NAME bv_delete PURPOSE Dispose of a new bit-vector. USAGE intn bv_delete(b) bv_ptr b; IN: Bit-vector to dispose of RETURNS Returns SUCCEED/FAIL DESCRIPTION Disposes of a bit-vector created by bv_new. This routine is responsible for completely cleaning up the bit-vector and disposing of all dynamicly allocated space. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn bv_delete(bv_ptr b) { /* Error checking */ if(b==NULL || b->buffer==NULL) return(FAIL); /* Free the space used */ HDfree(b->buffer); HDfree(b); return(SUCCEED); } /* bv_delete() */ /*-------------------------------------------------------------------------- NAME bv_set PURPOSE Set a bit in a bit-vector USAGE intn bv_set(b,bit_num,value) bv_ptr b; IN: Bit-vector to use int32 bit_num; IN: bit to set bv_bool value; IN: bit value to set the bit to RETURNS Returns SUCCEED/FAIL DESCRIPTION Sets a bit in a bit-vector to a bit value. Also extends the bit-vector if the bit to set is beyond the end of the current bit-vector and the bit-vector is marked as extendable. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn bv_set(bv_ptr b, int32 bit_num, bv_bool value) { int32 base_elem; /* the base array index of the bit */ int32 bit_elem; /* the bit index of the bit to set */ /* Error checking */ if(b==NULL || bit_num<0) return(FAIL); base_elem=bit_num/(int32)BV_BASE_BITS; bit_elem=bit_num%(int32)BV_BASE_BITS; /* Check if the bit is beyond the end of the current bit-vector */ if((uint32)bit_num>=b->bits_used) { /* OK to extend? */ if(b->flags&BV_EXTENDABLE) { if((uint32)base_elemarray_size) { /* just use more bits in the currently allocated block */ b->bits_used=(uint32)(bit_num+1); } /* end if */ else { /* allocate more space for bits */ bv_base *old_buf=b->buffer; /* ptr to the old buffer */ int32 num_chunks; /* number of chunks to grab */ num_chunks=(int32)(((((uint32)bit_num/BV_BASE_BITS)+1)-b->array_size)/BV_CHUNK_SIZE)+1; if((b->buffer=(bv_base *)HDrealloc(b->buffer,b->array_size+(uint32)num_chunks*BV_CHUNK_SIZE))==NULL) { b->buffer=old_buf; return(FAIL); /* fail to allocate a larger bit buffer */ } /* end if */ /* Check the initial bit settings, for the new bits */ if(b->flags&BV_INIT_TO_ONE) HDmemset(&b->buffer[b->array_size],255,num_chunks*BV_CHUNK_SIZE); else HDmemset(&b->buffer[b->array_size],0,num_chunks*BV_CHUNK_SIZE); b->array_size+=(uint32)(num_chunks*BV_CHUNK_SIZE); b->bits_used=(uint32)bit_num+1; } /* end else */ } /* end if */ else return(FAIL); /* can't extend */ } /* end if */ if(value==BV_FALSE) { b->buffer[base_elem]&=~bv_bit_value[bit_elem]; if(base_elemlast_zero) b->last_zero=base_elem; } /* end if */ else b->buffer[base_elem]|=bv_bit_value[bit_elem]; return(SUCCEED); } /* bv_set() */ /*-------------------------------------------------------------------------- NAME bv_get PURPOSE Get a bit from a bit-vector USAGE intn bv_get(b,bit_num) bv_ptr b; IN: Bit-vector to use int32 bit_num; IN: bit to set RETURNS Returns either BV_TRUE/BV_FALSE on success, or FAIL on error DESCRIPTION Gets a bit from a bit-vector. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn bv_get(bv_ptr b, int32 bit_num) { int32 base_elem; /* the base array index of the bit */ int32 bit_elem; /* the bit index of the bit to set */ intn ret_value; /* the variable to store the return value */ /* Error checking */ if(b==NULL || b->buffer==NULL || bit_num<0) return(FAIL); /* Check for asking for a bit off of the end of the vector */ if((uint32)bit_num>=b->bits_used) return((b->flags&BV_INIT_TO_ONE) ? BV_TRUE : BV_FALSE); base_elem=bit_num/(int32)BV_BASE_BITS; bit_elem=bit_num%(int32)BV_BASE_BITS; ret_value=b->buffer[base_elem]&bv_bit_value[bit_elem]; ret_value>>=bit_elem; return(ret_value); } /* bv_get() */ /*-------------------------------------------------------------------------- NAME bv_clear PURPOSE Clears a bit-vector to a given boolean value USAGE intn bv_clear(b,value) bv_ptr b; IN: Bit-vector to use bv_bool value; IN: bit value to set the bit to RETURNS Returns SUCCEED/FAIL DESCRIPTION Clears an entire bit vector to a given boolean value, but does not change the status of the BV_INIT_TO_ONE flag for future bits which might be allocated. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn bv_clear(bv_ptr b, bv_bool value) { /* Error checking */ if(b==NULL || b->buffer==NULL) return(FAIL); if(value==BV_TRUE) { HDmemset(b->buffer,255,b->array_size); b->last_zero=(-1); } /* end if */ else { HDmemset(b->buffer,0,b->array_size); b->last_zero=0; } /* end else */ return(SUCCEED); } /* bv_clear() */ /*-------------------------------------------------------------------------- NAME bv_size PURPOSE Report the number of bits in the bit-vector USAGE int32 bv_size(b) bv_ptr b; IN: Bit-vector to use RETURNS Returns number of bits in use on success, FAIL on error DESCRIPTION Report the number of bits currently in-use for a bit-vector. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 bv_size(bv_ptr b) { /* Error checking */ if(b==NULL) return(FAIL); return((int32)b->bits_used); } /* bv_size() */ /*-------------------------------------------------------------------------- NAME bv_flags PURPOSE Returns the flags for a bit-vector USAGE uint32 bv_size(b) bv_ptr b; IN: Bit-vector to use RETURNS Returns bit-vector flags on success, FAIL on error DESCRIPTION Returns the current flags for the bit-vector. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint32 bv_flags(bv_ptr b) { /* Error checking */ if(b==NULL) return(FAIL); return(b->flags); } /* bv_flags() */ /*-------------------------------------------------------------------------- NAME bv_find PURPOSE Find the next bit of a given value USAGE int32 bv_find(b,last_find,value) bv_ptr b; IN: Bit-vector to use int32 last_find; IN: bit offset of last bit found bv_bool value; IN: boolean value to look for RETURNS Returns offset of next bit on success, FAIL on error DESCRIPTION Find the next highest bit of a given bit value. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS "last_find" capability not currently implemented for '0' searches - QAK EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 bv_find(bv_ptr b,int32 last_find,bv_bool value) { uint32 old_bits_used; /* the last number of bits used */ uint32 bytes_used; /* number of full bytes used */ uint32 first_byte=0; /* The first byte to begin searching at */ bv_base slush_bits; /* extra bits which don't fit into a byte */ uint32 u; /* local counting variable */ /* Error checking */ if(b==NULL || b->buffer==NULL) return(FAIL); bytes_used=b->bits_used/BV_BASE_BITS; if(value==BV_TRUE) { /* looking for first '1' in the bit-vector */ if(last_find>=0) { /* if the last bit found option is used, look for more bits in that same byte */ intn bit_off; first_byte=(uint32)last_find/BV_BASE_BITS; bit_off=(intn)(((uint32)last_find-(first_byte*BV_BASE_BITS))+1); slush_bits=(bv_base)(b->buffer[first_byte]&(~bv_bit_mask[bit_off])); if(slush_bits!=0) return((int32)(first_byte*BV_BASE_BITS)+bv_first_zero[~slush_bits]); first_byte++; } /* end if */ for(u=first_byte; ubuffer[u]!=0) return((int32)(u*BV_BASE_BITS)+bv_first_zero[~b->buffer[u]]); } /* end for */ /* Any extra bits left over? */ if((bytes_used*BV_BASE_BITS)bits_used) { slush_bits=(bv_base)(b->buffer[u]&bv_bit_mask[b->bits_used-(bytes_used*BV_BASE_BITS)]); if(slush_bits!=0) return((int32)(u*BV_BASE_BITS)+bv_first_zero[~slush_bits]); } /* end if */ } /* end if */ else { /* looking for first '0' in the bit-vector */ bv_base *tmp_buf; if(b->last_zero>=0) u=(uint32)b->last_zero; else u=0; #ifdef OLD_WAY for(; ubuffer[u]!=255) { b->last_zero=u; return((u*BV_BASE_BITS)+bv_first_zero[b->buffer[u]]); } /* end if */ } /* end for */ #else /* OLD_WAY */ tmp_buf=&b->buffer[u]; while(ulast_zero=(int32)u; return((int32)(u*BV_BASE_BITS)+bv_first_zero[*tmp_buf]); } /* end if */ #endif /* OLD_WAY */ /* Any extra bits left over? */ if((bytes_used*BV_BASE_BITS)bits_used) { slush_bits=(bv_base)(b->buffer[u]&bv_bit_mask[b->bits_used-(bytes_used*BV_BASE_BITS)]); if(slush_bits!=255) { b->last_zero=(int32)u; return((int32)(u*BV_BASE_BITS)+bv_first_zero[slush_bits]); } /* end if */ } /* end if */ } /* end else */ /* Beyond the current end of the bit-vector, extend the bit-vector */ old_bits_used=b->bits_used; if(bv_set(b, (int32)b->bits_used, (bv_bool)((b->flags&BV_INIT_TO_ONE) ? BV_TRUE : BV_FALSE))==FAIL) return(FAIL); return((int32)old_bits_used); } /* bv_find() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfkswap.c0000644000000000000000000003550212421456623014246 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfkswap.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*------------------------------------------------------------------ File: dfkswap.c Purpose: Routines to support little-endian conversion to and from HDF format Invokes: PRIVATE conversion functions: DFKsb2b - Byte swapping for 16 bit integers DFKsb4b - Byte swapping for 32 bit integers DFKsb8b - Byte swapping for 64 bit floats Remarks: These files used to be in dfconv.c, but it got a little too huge, so I broke them out into seperate files. - Q *------------------------------------------------------------------*/ /*****************************************************************************/ /* */ /* All the routines in this file marked as PRIVATE have been marked so */ /* for a reason. *ANY* of these routines may or may nor be supported in */ /* the next version of HDF (4.00). Furthurmore, the names, paramters, or */ /* functionality is *NOT* guaranteed to remain the same. */ /* The *ONLY* guarantee possible is that DFKnumin(), and DFKnumout() */ /* will not change. They are *NOT* guaranteed to be implemented in the */ /* next version of HDF as function pointers. They are guaranteed to take */ /* the same arguments and produce the same results. */ /* If your programs call any routines in this file except for */ /* DFKnumin(), DFKnumout, and/or DFKsetntype(), your code may not work */ /* with future versions of HDF and your code will *NOT* be portable. */ /* */ /*****************************************************************************/ #include "hdf.h" #include "hconv.h" /*****************************************************************************/ /* NUMBER CONVERSION ROUTINES FOR BYTE SWAPPING */ /*****************************************************************************/ /************************************************************/ /* DFKsb2b() */ /* -->Byte swapping for 2 byte data items */ /************************************************************/ int DFKsb2b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[2]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKsb2b"); HEclear(); if (num_elm == 0) { /* No elements is an error. */ HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if (source_stride == 0 && dest_stride == 0) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { for (i = 0; i < num_elm; i++) { dest[0] = source[1]; dest[1] = source[0]; dest += 2; source += 2; } return 0; } else { for (i = 0; i < num_elm; i++) { buf[0] = source[1]; buf[1] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest += 2; source += 2; } return 0; } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { dest[0] = source[1]; dest[1] = source[0]; dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { buf[0] = source[1]; buf[1] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest += dest_stride; source += source_stride; } return 0; } /************************************************************/ /* DFKsb4b() */ /* -->Byte swapping for 4 byte data items */ /************************************************************/ int DFKsb4b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[4]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKsb4b"); #ifdef TEST3_sb4b uint32 *lp_dest; uint32 *lp_src; #endif HEclear(); if (num_elm == 0) { /* No elements is an error. */ HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if (source_stride == 0 && dest_stride == 0) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { #ifndef DUFF_sb4b #ifdef TEST1_sb4b source += 3; #endif #ifdef TEST3_sb4b lp_dest = (uint32 *) dest; lp_src = (uint32 *) source; #endif for (i = 0; i < num_elm; i++) { #if defined TEST3_sb4b *lp_dest++ = ((lp_src[0] & 0x000000ff) << 24) | ((lp_src[0] & 0x0000ff00) << 8) | ((lp_src[0] & 0x00ff0000) >> 8) | ((lp_src[0] & 0xff000000) >> 24); lp_src++; #else dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; #endif } #else /* DUFF_sb4b */ uint32 n = (num_elm + 7) / 8; switch (num_elm % 8) { case 0: do { dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 7: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 6: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 5: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 4: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 3: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 2: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; case 1: dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += 4; source += 4; } while (--n > 0); } #endif /* DUFF_sb4b */ return 0; } else { for (i = 0; i < num_elm; i++) { buf[0] = source[3]; buf[1] = source[2]; buf[2] = source[1]; buf[3] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest[2] = buf[2]; dest[3] = buf[3]; dest += 4; source += 4; } return 0; } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { dest[0] = source[3]; dest[1] = source[2]; dest[2] = source[1]; dest[3] = source[0]; dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { buf[0] = source[3]; buf[1] = source[2]; buf[2] = source[1]; buf[3] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest[2] = buf[2]; dest[3] = buf[3]; dest += dest_stride; source += source_stride; } return 0; } /************************************************************/ /* DFKsb8b() */ /* -->Byte swapping for 8 byte data items */ /************************************************************/ int DFKsb8b(VOIDP s, VOIDP d, uint32 num_elm, uint32 source_stride, uint32 dest_stride) { int fast_processing = 0; /* Default is not fast processing */ int in_place = 0; /* Inplace must be detected */ uint32 i; uint8 buf[8]; /* Inplace processing buffer */ uint8 *source = (uint8 *) s; uint8 *dest = (uint8 *) d; CONSTR(FUNC, "DFKsb8b"); HEclear(); if (num_elm == 0) { /* No elements is an error. */ HERROR(DFE_BADCONV); return FAIL; } /* Determine if faster array processing is appropriate */ if (source_stride == 0 && dest_stride == 0) fast_processing = 1; /* Determine if the conversion should be inplace */ if (source == dest) in_place = 1; if (fast_processing) { if (!in_place) { for (i = 0; i < num_elm; i++) { dest[0] = source[7]; dest[1] = source[6]; dest[2] = source[5]; dest[3] = source[4]; dest[4] = source[3]; dest[5] = source[2]; dest[6] = source[1]; dest[7] = source[0]; dest += 8; source += 8; } return 0; } else { for (i = 0; i < num_elm; i++) { buf[0] = source[7]; buf[1] = source[6]; buf[2] = source[5]; buf[3] = source[4]; buf[4] = source[3]; buf[5] = source[2]; buf[6] = source[1]; buf[7] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest[2] = buf[2]; dest[3] = buf[3]; dest[4] = buf[4]; dest[5] = buf[5]; dest[6] = buf[6]; dest[7] = buf[7]; dest += 8; source += 8; } return 0; } } /* Generic stride processing */ if (!in_place) for (i = 0; i < num_elm; i++) { dest[0] = source[7]; dest[1] = source[6]; dest[2] = source[5]; dest[3] = source[4]; dest[4] = source[3]; dest[5] = source[2]; dest[6] = source[1]; dest[7] = source[0]; dest += dest_stride; source += source_stride; } else for (i = 0; i < num_elm; i++) { buf[0] = source[7]; buf[1] = source[6]; buf[2] = source[5]; buf[3] = source[4]; buf[4] = source[3]; buf[5] = source[2]; buf[6] = source[1]; buf[7] = source[0]; dest[0] = buf[0]; dest[1] = buf[1]; dest[2] = buf[2]; dest[3] = buf[3]; dest[4] = buf[4]; dest[5] = buf[5]; dest[6] = buf[6]; dest[7] = buf[7]; dest += dest_stride; source += source_stride; } return 0; } libhdf4-4.2.10/HDF_ALT/hdf/src/cdeflate.c0000644000000000000000000006557312421456623014371 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 5489 $"; #endif /* $Id: cdeflate.c 5489 2010-10-23 06:52:48Z bmribler $ */ /* FILE cdeflate.c HDF gzip 'deflate' encoding I/O routines REMARKS DESIGN EXPORTED ROUTINES None of these routines are designed to be called by other users except for the modeling layer of the compression routines. AUTHOR Quincey Koziol MODIFICATION HISTORY 10/24/95 Starting coding */ /* General HDF includes */ #include "hdf.h" #define CDEFLATE_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* Internal Defines */ /* #define TESTING */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIcdeflate_init(compinfo_t *info); /*-------------------------------------------------------------------------- NAME HCIcdeflate_init -- Initialize a gzip 'deflate' compressed data element. USAGE int32 HCIcdeflate_init(info) compinfo_t *info; IN: special element information RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcdeflate_staccess and HCIcdeflate_seek GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_init(compinfo_t *info) { CONSTR(FUNC, "HCIcdeflate_init"); comp_coder_deflate_info_t *deflate_info; /* ptr to deflate info */ if (Hseek(info->aid, 0, 0) == FAIL) /* seek to beginning of element */ HRETURN_ERROR(DFE_SEEKERROR, FAIL); deflate_info = &(info->cinfo.coder_info.deflate_info); /* Initialize deflation state information */ deflate_info->offset = 0; /* start at the beginning of the data */ deflate_info->acc_init = 0; /* second stage of initializing not performed */ deflate_info->acc_mode = 0; /* init access mode to illegal value */ /* initialize compression context */ deflate_info->deflate_context.zalloc=(alloc_func)Z_NULL; deflate_info->deflate_context.zfree=(free_func)Z_NULL; deflate_info->deflate_context.opaque=NULL; deflate_info->deflate_context.data_type=Z_BINARY; return (SUCCEED); } /* end HCIcdeflate_init() */ /*-------------------------------------------------------------------------- NAME HCIcdeflate_decode -- Decode skipping Huffman compressed data into a buffer. USAGE int32 HCIcdeflate_decode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to read into the buffer uint8 *buf; OUT: buffer to store the bytes read RETURNS Returns # of bytes decompressed or FAIL DESCRIPTION Common code called to decode gzip 'deflated' data from the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_decode(compinfo_t * info, int32 length, uint8 *buf) { CONSTR(FUNC, "HCIcdeflate_decode"); comp_coder_deflate_info_t *deflate_info; /* ptr to deflate info */ int zstat; /* inflate status */ int32 bytes_read; deflate_info = &(info->cinfo.coder_info.deflate_info); /* Set up the deflation buffers to point to the user's buffer to fill */ deflate_info->deflate_context.next_out=buf; deflate_info->deflate_context.avail_out=(uInt)length; while(deflate_info->deflate_context.avail_out>0) { /* Get more bytes from the file, if we've run out */ if(deflate_info->deflate_context.avail_in==0) { int32 file_bytes; deflate_info->deflate_context.next_in=deflate_info->io_buf; if((file_bytes=Hread(info->aid,DEFLATE_BUF_SIZE,deflate_info->deflate_context.next_in))==FAIL) HRETURN_ERROR(DFE_READERROR,FAIL); deflate_info->deflate_context.avail_in=(uInt)file_bytes; } /* end if */ /* Read compressed data */ zstat=inflate(&(deflate_info->deflate_context),Z_NO_FLUSH); /* break out if we've reached the end of the compressed data */ if (zstat == Z_STREAM_END) break; /* break out if "inflate" returns reading errors */ else if (zstat == Z_VERSION_ERROR) { HRETURN_ERROR(DFE_COMPVERSION,FAIL); } else if (zstat <= Z_ERRNO && zstat > Z_VERSION_ERROR) { HRETURN_ERROR(DFE_READCOMP,FAIL); } } /* end while */ bytes_read=(int32)length-(int32)deflate_info->deflate_context.avail_out; deflate_info->offset+=bytes_read; return(bytes_read); } /* end HCIcdeflate_decode() */ /*-------------------------------------------------------------------------- NAME HCIcdeflate_encode -- Encode data from a buffer into gzip 'deflated' compressed data USAGE int32 HCIcdeflate_encode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to store from the buffer uint8 *buf; OUT: buffer to get the bytes from RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to encode gzip 'deflated' data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_encode(compinfo_t * info, int32 length, void * buf) { CONSTR(FUNC, "HCIcdeflate_encode"); comp_coder_deflate_info_t *deflate_info; /* ptr to skipping Huffman info */ deflate_info = &(info->cinfo.coder_info.deflate_info); /* Set up the deflation buffers to point to the user's buffer to empty */ deflate_info->deflate_context.next_in=buf; deflate_info->deflate_context.avail_in=(uInt)length; while(deflate_info->deflate_context.avail_in>0 || deflate_info->deflate_context.avail_out==0) { /* Write more bytes from the file, if we've filled our buffer */ if(deflate_info->deflate_context.avail_out==0) { if(deflate_info->deflate_context.next_out!=NULL) { if(Hwrite(info->aid,DEFLATE_BUF_SIZE,deflate_info->io_buf)==FAIL) HRETURN_ERROR(DFE_WRITEERROR,FAIL); } deflate_info->deflate_context.next_out=deflate_info->io_buf; deflate_info->deflate_context.avail_out=DEFLATE_BUF_SIZE; } /* end if */ /* break out if we've reached the end of the compressed data somehow */ if(deflate(&(deflate_info->deflate_context),Z_NO_FLUSH)!=Z_OK) { HRETURN_ERROR(DFE_CENCODE,FAIL); } } /* end while */ deflate_info->offset += length; /* incr. abs. offset into the file */ return (length); } /* end HCIcdeflate_encode() */ /*-------------------------------------------------------------------------- NAME HCIcdeflate_term -- Close down internal buffering for gzip 'deflate' encoding USAGE int32 HCIcdeflate_term(info,acc_mode) compinfo_t *info; IN: the info about the compressed element uint32 acc_mode; IN: the access mode the data element was opened with RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to flush gzip 'deflated' data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_term(compinfo_t * info,uint32 acc_mode) { CONSTR(FUNC, "HCIcdeflate_term"); comp_coder_deflate_info_t *deflate_info; /* ptr to deflation info */ deflate_info = &(info->cinfo.coder_info.deflate_info); /* set flag to indicate second stage of initialization is finished */ if(deflate_info->acc_init!=0) { if(acc_mode&DFACC_WRITE) { /* flush the "deflated" data to the file */ intn status; do { /* Write more bytes from the file, if we've filled our buffer */ if(deflate_info->deflate_context.avail_out==0) { if(Hwrite(info->aid,DEFLATE_BUF_SIZE,deflate_info->io_buf)==FAIL) HRETURN_ERROR(DFE_WRITEERROR,FAIL); deflate_info->deflate_context.next_out=deflate_info->io_buf; deflate_info->deflate_context.avail_out=DEFLATE_BUF_SIZE; } /* end if */ status=deflate(&(deflate_info->deflate_context),Z_FINISH); } while(status==Z_OK || deflate_info->deflate_context.avail_out==0); if(status!=Z_STREAM_END) HRETURN_ERROR(DFE_CENCODE,FAIL); if(deflate_info->deflate_context.avail_outaid,(int32)(DEFLATE_BUF_SIZE-deflate_info->deflate_context.avail_out),deflate_info->io_buf)==FAIL) HRETURN_ERROR(DFE_WRITEERROR,FAIL); /* Close down the deflation buffer */ if(deflateEnd(&(deflate_info->deflate_context))!=Z_OK) HRETURN_ERROR(DFE_CTERM,FAIL); } /* end if */ else { /* finish up any inflated data */ /* Close down the inflation buffer */ if(inflateEnd(&(deflate_info->deflate_context))!=Z_OK) HRETURN_ERROR(DFE_CTERM,FAIL); } /* end else */ } /* end if */ /* Reset parameters */ deflate_info->offset = 0; /* start at the beginning of the data */ deflate_info->acc_init = 0; /* second stage of initializing not performed */ deflate_info->acc_mode = 0; /* init access mode to illegal value */ return (SUCCEED); } /* end HCIcdeflate_term() */ /*-------------------------------------------------------------------------- NAME HCIcdeflate_staccess -- Start accessing a gzip 'deflate' compressed data element. USAGE int32 HCIcdeflate_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcdeflate_stread and HCIcdeflate_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcdeflate_staccess"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to deflate info */ info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* need to check for not writing, as opposed to read access */ /* because of the way the access works */ #ifdef OLD_WAY if (!(acc_mode&DFACC_WRITE)) info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else info->aid = Hstartwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, info->length); if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); #else /* OLD_WAY */ if (!(acc_mode&DFACC_WRITE)) { info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); } /* end if */ else { info->aid = Hstartaccess(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, DFACC_RDWR|DFACC_APPENDABLE); } /* end else */ if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); #endif /* OLD_WAY */ /* Make certain we can append to the data when writing */ if ((acc_mode&DFACC_WRITE) && Happendable(info->aid) == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); /* initialize the common deflate coding info */ if(HCIcdeflate_init(info)==FAIL) HRETURN_ERROR(DFE_CODER,FAIL); /* Allocate compression I/O buffer */ if ((deflate_info->io_buf= HDmalloc(DEFLATE_BUF_SIZE)) == NULL) HRETURN_ERROR(DFE_NOSPACE, FAIL); return (SUCCEED); } /* end HCIcdeflate_staccess() */ /*-------------------------------------------------------------------------- NAME HCIcdeflate_staccess2 -- 2nd half of start accessing a gzip 'deflate' compressed data element. USAGE int32 HCIcdeflate_staccess2(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcdeflate_stread and HCIcdeflate_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcdeflate_staccess2(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcdeflate_staccess2"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to deflate info */ info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* Initialize the gzip library */ if(acc_mode&DFACC_WRITE) { if(deflateInit(&(deflate_info->deflate_context),deflate_info->deflate_level)!=Z_OK) HRETURN_ERROR(DFE_CINIT, FAIL); /* set access mode */ deflate_info->acc_mode=DFACC_WRITE; /* force I/O with the file at first */ deflate_info->deflate_context.next_out=NULL; deflate_info->deflate_context.avail_out=0; } /* end if */ else { if(inflateInit(&(deflate_info->deflate_context))!=Z_OK) HRETURN_ERROR(DFE_CINIT, FAIL); /* set access mode */ deflate_info->acc_mode=DFACC_READ; /* force I/O with the file at first */ deflate_info->deflate_context.avail_in=0; } /* end else */ /* set flag to indicate second stage of initialization is finished */ deflate_info->acc_init=acc_mode; return (SUCCEED); } /* end HCIcdeflate_staccess2() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_stread -- start read access for compressed file USAGE int32 HCPcdeflate_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using the deflate scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcdeflate_stread"); if (HCIcdeflate_staccess(access_rec, DFACC_READ) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (SUCCEED); } /* HCPcdeflate_stread() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_stwrite -- start write access for compressed file USAGE int32 HCPcdeflate_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using the deflate scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcdeflate_stwrite"); if (HCIcdeflate_staccess(access_rec, DFACC_WRITE) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (SUCCEED); } /* HCPcdeflate_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_seek -- Seek to offset within the data element USAGE int32 HCPcdeflate_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcdeflate_seek"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to gzip 'deflate' info */ uint8 tmp_buf[DEFLATE_TMP_BUF_SIZE]; /* temporary buffer */ /* shut compiler up */ origin = origin; info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* Check if second stage of initialization has been performed */ if(deflate_info->acc_init==0) { if (HCIcdeflate_staccess2(access_rec, DFACC_READ) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); } /* end if */ if (offset < deflate_info->offset) { /* need to seek from the beginning */ #ifdef OLD_WAY /* Reset the decompression buffer */ if (deflateReset(&(deflate_info->deflate_context))!=Z_OK) HRETURN_ERROR(DFE_CINIT, FAIL); #else /* OLD_WAY */ /* Terminate the previous method of access */ if (HCIcdeflate_term(info, deflate_info->acc_mode) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* Restart access */ /* if (HCIcdeflate_staccess2(access_rec, deflate_info->acc_mode) == FAIL) */ if (HCIcdeflate_staccess2(access_rec, DFACC_READ) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); #endif /* OLD_WAY */ /* Go back to the beginning of the data-stream */ if(Hseek(info->aid,0,0)==FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ #ifdef OLD_WAY if ((tmp_buf = (uint8 *) HDmalloc(DEFLATE_TMP_BUF_SIZE)) == NULL) /* get tmp buffer */ HRETURN_ERROR(DFE_NOSPACE, FAIL); #endif /* OLD_WAY */ while (deflate_info->offset + DEFLATE_TMP_BUF_SIZE < offset) { /* grab chunks */ if (HCIcdeflate_decode(info, DEFLATE_TMP_BUF_SIZE, tmp_buf) == FAIL) { #ifdef OLD_WAY HDfree(tmp_buf); #endif /* OLD_WAY */ HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ } /* end if */ if (deflate_info->offset < offset) { /* grab the last chunk */ if (HCIcdeflate_decode(info, offset - deflate_info->offset, tmp_buf) == FAIL) { #ifdef OLD_WAY HDfree(tmp_buf); #endif /* OLD_WAY */ HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ } /* end if */ #ifdef OLD_WAY HDfree(tmp_buf); #endif /* OLD_WAY */ return (SUCCEED); } /* HCPcdeflate_seek() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcdeflate_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from the deflate compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcdeflate_read"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to gzip 'deflate' info */ uintn uninit; /* Whether the interface was initialized */ info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* Check if second stage of initialization has been performed */ if(deflate_info->acc_init!=DFACC_READ) { /* preserve the initialized state for later */ uninit=(deflate_info->acc_init!=0); /* Terminate the previous method of access */ if (HCIcdeflate_term(info, deflate_info->acc_mode) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* Restart access */ if (HCIcdeflate_staccess2(access_rec, DFACC_READ) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); /* Go back to the beginning of the data-stream */ if(Hseek(info->aid,0,0)==FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ if ((length=HCIcdeflate_decode(info, length, data)) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return (length); } /* HCPcdeflate_read() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPcdeflate_write(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to the deflate compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcdeflate_write"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to skipping Huffman info */ info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* Don't allow random write in a dataset unless: */ /* 1 - append onto the end */ /* 2 - start at the beginning and rewrite (at least) the whole dataset */ if ((info->length != deflate_info->offset) && (deflate_info->offset != 0 || length < info->length)) HRETURN_ERROR(DFE_UNSUPPORTED, FAIL); /* Check if second stage of initialization has been performed */ if(deflate_info->acc_init!=DFACC_WRITE) { /* Terminate the previous method of access */ if (HCIcdeflate_term(info, deflate_info->acc_init) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* Restart access */ if (HCIcdeflate_staccess2(access_rec, DFACC_WRITE) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); /* Go back to the beginning of the data-stream */ if(Hseek(info->aid,0,0)==FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ if ((length=HCIcdeflate_encode(info, length, (void *)data)) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); return (length); } /* HCPcdeflate_write() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcdeflate_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcdeflate_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcdeflate_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcdeflate_endaccess -- Close the compressed data element USAGE int32 HCPcdeflate_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free encoding info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcdeflate_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcdeflate_endaccess"); compinfo_t *info; /* special element information */ comp_coder_deflate_info_t *deflate_info; /* ptr to gzip 'deflate' info */ info = (compinfo_t *) access_rec->special_info; deflate_info = &(info->cinfo.coder_info.deflate_info); /* flush out buffer */ if (HCIcdeflate_term(info,deflate_info->acc_mode) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* Get rid of the I/O buffer */ HDfree(deflate_info->io_buf); /* close the compressed data AID */ if (Hendaccess(info->aid) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); return (SUCCEED); } /* HCPcdeflate_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hblocks.c0000644000000000000000000021556112421456623014241 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6026 $"; #endif /* $Id: hblocks.c 6026 2014-01-16 15:16:16Z bmribler $ */ /*LINTLIBRARY */ /* ------------------------------ hblocks.c ------------------------------- routines to implement linked-block elements Linked element in HDF files created in two ways -- created from the start or -- converted from a normal data element A linked-block element is a special element. Special elements are flagged with a set high-bit in their tag. Thus, a tag t has BASETAG == t & 0x7f and is a special tag if t & 0x80 != 0x00 The first 16 bits of the meta-element that this tag/ref points to tells us what type of special element this is. If these 16 bits is SPECIAL_LINKED, then it contains information about the linked blocks. After this 16 bits, 32 bit which is the length of each block, after which is the information header: ---------------------------------------------------------------------- | # blocks in | tag/ref of | tag/ref of blocks list ....... | | this header | next header| | ---------------------------------------------------------------------- File Description of Linked Block Element **************************************** DD for Linked Block pointing to Linked Block Description Record ============================================================== <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- |extended tag | reference # | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V LINKED BLOCK DESCRIPTION RECORD(LBDR - 16 bytes) =============================================== <- 2 bytes -> <- 4 bytes -> <- 4 bytes -> <- 4 bytes -> <- 2 bytes -> ---------------------------------------------- ------------------------ |ext_tag_desc | elem_tot_len | blk_length | num_blk | link_ref | ---------------------------------------------- ------------------------ ext_tag_desc - SPECIAL_LINKED(16 bit constant), identifies this as a linked block description record elem_tot_len - Length of the entire element(32 bit field) blk_length - Length of successive data blocks(32 bit field) after first block, first block is calculated. num_blk - Number of blocks per block table(32 bit field) link_ref - Reference number of the first block table(16 bit field) Linked Block Table(12 + 2 + 2 + 2 + 2 + ... bytes) =================================================== <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- |link_blk_tag | link_ref | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V <- 2 bytes -> <- 2 bytes -> <- 2 bytes -> <- 2 bytes -> <-... -----------------------------------------------------------... | next_ref | block_ref_1 | block_ref_2 | block_ref_3 | ... -----------------------------------------------------------... link_blk_tag - DFTAG_LINKED(16 bit) link_ref - Reference number for this table(16 bit) next_ref - Reference number for next block table(16 bit) Zero(0) signifies no more block tables for this element. blk_ref_x - Reference number for data block X (16 bit). e.g. for data block 1 <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- | DFTAG_LINKED | block_ref_1 | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V ----------------------- | Data_block | ----------------------- Note: The "Length" here is specified by either "elem_first_len" or "blk_length". For now, HLcreate() has the best description of what the on-disk representation of a linked block element looks like. EXPORTED ROUTINES HLcreate -- create a linked block element HLconvert -- convert an AID into a linked block element HLgetdatainfo -- get data information of linked blocks HDinqblockinfo -- return info about linked blocks HLPstread -- open an access record for reading HLPstwrite -- open an access record for writing HLPseek -- set the seek posn HLPread -- read some data out of a linked block element HLPwrite -- write out some data to a linked block HLPinquire -- Hinquire for linked blocks HLPendacess -- close a linked block AID HLPinfo -- return info about a linked block element LOCAL ROUTINES HLIstaccess -- set up AID to access a linked block elem HLIgetlink -- get link information HLInewlink -- write out some data to a linked block */ #include "hdf.h" #include "hfile.h" /* block_t - record of a linked block. contains the tag and ref of the data elt that forms the linked block */ typedef struct block_t { uint16 ref; /* ref of the linked block */ } block_t; /* link_t - a linked list block table. Very similar to the dd block structure */ typedef struct link_t { uint16 nextref; /* ref of the next block table */ struct link_t *next; /* ptr to the next block table */ struct block_t *block_list;/* ptr to the block list for this table */ } link_t; /* information on this special linked block data elt */ typedef struct linkinfo_t { int attached; /* how many access records refer to this elt */ int32 length; /* the actual length of the data elt */ int32 first_length; /* length of first block */ int32 block_length; /* the length of the remaining blocks */ int32 number_blocks;/* total number of blocks in each link/block table */ uint16 link_ref; /* ref of the first block table structure */ link_t *link; /* pointer to the first block table */ link_t *last_link; /* pointer to the last block table */ } linkinfo_t; /* private functions */ PRIVATE int32 HLIstaccess(accrec_t *access_rec, int16 acc_mode); PRIVATE link_t *HLInewlink(int32 file_id, int32 number_blocks, uint16 link_ref, uint16 first_block_ref); PRIVATE link_t *HLIgetlink(int32 file_id, uint16 ref, int32 number_blocks); /* the accessing function table for linked blocks */ funclist_t linked_funcs = { HLPstread, HLPstwrite, HLPseek, HLPinquire, HLPread, HLPwrite, HLPendaccess, HLPinfo, NULL /* no routine registered */ }; /* ------------------------------------------------------------------------ NAME HLcreate -- create a linked block element USAGE int32 HLcreate(fid, tag, ref, blocklen, numblocks) int32 fid; IN: file to put linked block element in uint16 tag; IN: tag of element uint16 ref; IN: ref of element int32 blocklen; IN: length of standard block int32 numblocks; IN: number of blocks per block list RETURNS The AID of newly created linked block element, FAIL on error. DESCRIPTION This routine takes an HDF element and promotes it into a linked block element. Basically, the element becomes a linked list allowing easy appending. If the element already exists, it is promoted to being a linked block element, otherwise a new element is created. All of the pieces of the linked list are the same size (blocklen) except for the first one which stays the size of the element at the time HLcreate was called. numblocks gives the number of linked list objects in each block header. The ideal setting for numblocks and blocklen are very data and application depedent. --------------------------------------------------------------------------- */ int32 HLcreate(int32 file_id, uint16 tag, uint16 ref, int32 block_length, int32 number_blocks) { CONSTR(FUNC, "HLcreate"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL;/* access record */ int32 dd_aid; /* AID for writing the special info */ linkinfo_t *info = NULL; /* information for the linked blocks elt */ uint16 link_ref; /* the ref of the link structure (block table) */ atom_t data_id; /* dd ID of existing regular element */ uint16 new_data_tag, new_data_ref=0; /* Tag/ref of the new data in the file */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ uint16 special_tag; /* special version of this tag */ uint8 local_ptbuf[16]; int32 ret_value = SUCCEED; /* clear error stack and validate file record id */ HEclear(); file_rec = HAatom_object(file_id); /* check args and create special tag */ if (BADFREC(file_rec) || block_length < 0 || number_blocks < 0 || SPECIALTAG(tag) || (special_tag = MKSPECIALTAG(tag)) == DFTAG_NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* make sure write access to file */ if (!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* get empty access record */ access_rec = HIget_access_rec(); if (access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* search for identical dd */ if ((data_id = HTPselect(file_rec,tag,ref))!=FAIL) { /* Check if the element is already special */ if (HTPis_special(data_id)==TRUE) { HTPendaccess(data_id); HGOTO_ERROR(DFE_CANTMOD, FAIL); } /* end if */ /* If the data already was in the file, * convert it into the first linked block * get the info for the dataset */ if(HTPinquire(data_id,NULL,NULL,&data_off,&data_len)==FAIL) { HTPendaccess(data_id); HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ if(data_off == INVALID_OFFSET || data_len==INVALID_LENGTH) { /* data object which has been created, but has no data */ /* Delete the old data ID */ if(HTPdelete(data_id)==FAIL) HGOTO_ERROR(DFE_CANTDELHASH, FAIL); data_id=FAIL; /* reset this so the first block is a "regular" fixed length block */ } /* end if */ else { /* existing data object with real data in it */ new_data_tag = DFTAG_LINKED; new_data_ref = Htagnewref(file_id,new_data_tag); /* create new linked-block table DD to point to existing data */ if(Hdupdd(file_id, new_data_tag, new_data_ref, tag, ref)==FAIL) { HTPendaccess(data_id); HGOTO_ERROR(DFE_CANTUPDATE, FAIL); } /* end if */ /* Delete the old data ID */ if(HTPdelete(data_id)==FAIL) HGOTO_ERROR(DFE_CANTDELHASH, FAIL); /* Attach to the new data ID */ if ((data_id = HTPselect(file_rec,new_data_tag,new_data_ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end else */ } /* end if */ /* get ref for next linked-block? */ link_ref = Htagnewref(file_id,DFTAG_LINKED); /* allocate and fill special info struct */ if (( info = (linkinfo_t *) HDmalloc((uint32) sizeof(linkinfo_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); info->attached = 1; info->length = (data_id!=FAIL) ? data_len : 0; info->first_length = (data_id!=FAIL) ? data_len : block_length; info->block_length = block_length; info->number_blocks = number_blocks; info->link_ref = link_ref; /* encode special information for writing to file */ { uint8 *p; p = local_ptbuf; UINT16ENCODE(p, SPECIAL_LINKED); INT32ENCODE(p, info->length); INT32ENCODE(p, block_length); INT32ENCODE(p, number_blocks); UINT16ENCODE(p, link_ref); /* link_ref */ } /* write the special info structure */ if((dd_aid = Hstartaccess(file_id,special_tag,ref,DFACC_ALL))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hwrite(dd_aid, 16, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* write out linked block */ info->link = HLInewlink(file_id, number_blocks, link_ref, (uint16) ((data_id!=FAIL) ? new_data_ref : 0)); if (!info->link) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Detach from the data DD ID */ if(data_id != FAIL) { if(HTPendaccess(data_id)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* update access record and file record */ if((access_rec->ddid=HTPselect(file_rec,special_tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); access_rec->special_func = &linked_funcs; access_rec->special_info = (void *)info; access_rec->special = SPECIAL_LINKED; access_rec->posn = 0; access_rec->access = DFACC_RDWR; access_rec->file_id = file_id; access_rec->appendable = FALSE; /* start data as non-appendable */ file_rec->attach++; /* increment number of elements attached to file */ /* set return value */ ret_value = HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if (info != NULL) HDfree(info); if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLcreate() */ /* ------------------------------------------------------------------------ NAME HLconvert -- convert an AID into a linked block element USAGE intn HLconvert(aid, blocklen, numblocks) int32 aid; IN: AID to convert int32 blocklen; IN: length of standard block int32 numblocks; IN: number of blocks per block list RETURNS SUCCEED / FAIL DESCRIPTION This routine takes an HDF element and promotes it into a linked block element. Basically, the element becomes a linked list allowing easy appending. If the element already exists, it is promoted to being a linked block element, otherwise a new element is created. All of the pieces of the linked list are the same size (blocklen) except for the first one which stays the size of the element at the time HLcreate was called. This routine is similar to HLcreate but is used to convert an existing AID into a linked block element "in-place". This is done for convenience and ease-of-use mostly internally to the library in various places, but it is allowable for user-level code to do this also. Hopefully HLcreate will get re-written to call this routine for most of it's work... numblocks gives the number of linked list objects in each block header. The ideal setting for numblocks and blocklen are very data and application depedent. ---------------------------------------------------------------------------*/ intn HLconvert(int32 aid, int32 block_length, int32 number_blocks) { CONSTR(FUNC, "HLconvert"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL;/* access record */ linkinfo_t *info; /* information for the linked blocks elt */ uint16 link_ref; /* the ref of the link structure (block table) */ int32 dd_aid; /* AID for writing the special info */ uint16 new_data_tag=DFTAG_NULL, new_data_ref=0; /* Tag/ref of the new data in the file */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ uint16 special_tag; /* special version of this tag */ int32 file_id; /* file ID for the access record */ uint8 local_ptbuf[16]; int32 old_posn; /* position in the access element */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); /* start checking the func. args */ if (HAatom_group(aid)!=AIDGROUP || block_length < 0 || number_blocks < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the access_rec pointer */ if ((access_rec = HAatom_object(aid)) == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); file_id = access_rec->file_id; file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); if (!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* verify that the object is not already special. Can not convert if already special. */ if (HTPis_special(access_rec->ddid)) HGOTO_ERROR(DFE_CANTMOD, FAIL); /* Save previous position in data element so that we can come back to it */ old_posn=access_rec->posn; /* get the info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* make data tag special i.e. will be linked-block element */ if ((special_tag = MKSPECIALTAG(data_tag)) == DFTAG_NULL) HGOTO_ERROR(DFE_BADDDLIST, FAIL); /* is data defined but does not exist in the file? */ if(data_off==INVALID_OFFSET && data_len==INVALID_LENGTH) { /* catch the case where the data doesn't exist yet */ /* set length to zero */ if(Hsetlength(aid,0)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get back new offset and length */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ /* set up new tag/ref for linked block element */ new_data_tag = DFTAG_LINKED; new_data_ref = Htagnewref(file_id,new_data_tag); /* make new tag/ref point to existing data element */ if(Hdupdd(file_id, new_data_tag, new_data_ref, data_tag, data_ref)==FAIL) HGOTO_ERROR(DFE_CANTUPDATE, FAIL); /* Delete the old data ID */ if(HTPdelete(access_rec->ddid)==FAIL) HGOTO_ERROR(DFE_CANTDELHASH, FAIL); /* Attach to the new data ID */ if ((access_rec->ddid=HTPcreate(file_rec,special_tag,data_ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get link ref for linked-block ? */ link_ref = Htagnewref(file_id,DFTAG_LINKED); /* allocates special info struct for linked blocks */ access_rec->special_info = HDmalloc((uint32) sizeof(linkinfo_t)); if (!access_rec->special_info) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* fill in special info struct */ info = (linkinfo_t *) access_rec->special_info; info->attached = 1; info->length = data_len; info->first_length = data_len; info->block_length = block_length; info->number_blocks = number_blocks; info->link_ref = link_ref; /* Get ready to fill and write the special info structure */ /* start write access on special tag/ref */ if((dd_aid=Hstartaccess(file_id,special_tag,data_ref,DFACC_ALL))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); /* encode special information to write out */ { uint8 *p; p = local_ptbuf; UINT16ENCODE(p, SPECIAL_LINKED); INT32ENCODE(p, info->length); INT32ENCODE(p, block_length); INT32ENCODE(p, number_blocks); UINT16ENCODE(p, link_ref); /* link_ref */ } /* write out special information */ if (Hwrite(dd_aid, 16, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* write out linked block */ if ((info->link = HLInewlink(file_id, number_blocks, link_ref, (uint16)new_data_ref)) ==NULL) HGOTO_ERROR(DFE_CANTLINK, FAIL); /* update access record and file record */ access_rec->special_func = &linked_funcs; access_rec->special = SPECIAL_LINKED; access_rec->appendable = FALSE; /* start data as non-appendable */ /* check whether we should seek out to the proper position */ if(old_posn>0) { if(Hseek(aid,old_posn,DF_START)==FAIL) HGOTO_ERROR(DFE_BADSEEK, FAIL); } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec->special_info != NULL) HDfree(access_rec->special_info); if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HLconvert() */ /* ---------------------------- HDinqblockinfo ---------------------------- */ /* NAME HDinqblockinfo -- return info about linked blocks USAGE int32 HDinqblockinfo(aid, length, flength, blen, nblocks) int32 aid; IN: aid of element int32 * length; OUT: total element length int32 * flength; OUT: length of first element int32 * blen; OUT: length of block elements int32 * nblocks; OUT: number of blocks per block header RETURNS SUCCEED / FAIL DESCRIPTION Given an aid, return low level special info for linked-block element in space provided. This function works like HDinquire() but provides more low level info than HLPinquire. NULL can be passed for any non-interesting entries. hdfpack is the only application that I know of which uses this function. ---------------------------------------------------------------------------*/ int HDinqblockinfo(int32 aid, int32 *length, int32 *first_length, int32 *block_length, int32 *number_blocks) { accrec_t *arec; int ret_value = SUCCEED; CONSTR(FUNC, "HDinqblockinfo"); HEclear(); if ((arec = HAatom_object(aid)) == (accrec_t *) NULL) HGOTO_ERROR(DFE_BADAID, FAIL); if (arec->special != SPECIAL_LINKED) HGOTO_ERROR(DFE_ARGS, FAIL); if (length) *length = ((linkinfo_t *) (arec->special_info))->length; if (first_length) *first_length = ((linkinfo_t *) (arec->special_info))->first_length; if (block_length) *block_length = ((linkinfo_t *) (arec->special_info))->block_length; if (number_blocks) *number_blocks = ((linkinfo_t *) (arec->special_info))->number_blocks; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDinqblockinfo */ /* ----------------------------- HLIstaccess ------------------------------ */ /* NAME HLIstaccess -- set up AID to access a linked block elem USAGE int32 HLIstaccess(access_rec, acc_mode) access_t * access_rec; IN: access record to fill in int16 acc_mode; IN: access mode RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HLIstread and HLIstwrite resolve to this function. Given an active AID fill in all of the special information. If this information has already been read in for a different element use that else we must go out to the HDF file and pull in the information ourselves ----------------------------------------------------------------------------*/ PRIVATE int32 HLIstaccess(accrec_t *access_rec, int16 acc_mode) { CONSTR(FUNC, "HLIstaccess"); /* for HERROR */ filerec_t *file_rec; /* file record */ linkinfo_t *info = NULL; /* information about data elt */ int32 dd_aid; /* AID for writing the special info */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ uint8 local_ptbuf[14]; int32 ret_value = SUCCEED; /* validate file record id */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec) || !(file_rec->access & acc_mode)) HGOTO_ERROR(DFE_ARGS, FAIL); /* set up some data in access record */ access_rec->special = SPECIAL_LINKED; access_rec->posn = 0; access_rec->access = (uint32)(acc_mode|DFACC_READ); /* * Lets free old special info first,if one exists, * before copying a new one */ if (access_rec->special_info != NULL) { /* special information record */ linkinfo_t *t_info = (linkinfo_t *) access_rec->special_info; if (--(t_info->attached) == 0) { link_t *t_link; /* current link to free */ link_t *next; /* next link to free */ /* free the linked list of links/block tables */ if(t_info->link!=NULL) { for (t_link = t_info->link; t_link; t_link = next) { next = t_link->next; if(t_link->block_list!=NULL) HDfree(t_link->block_list); HDfree(t_link); } } /* end if */ HDfree(t_info); access_rec->special_info = NULL; } } /* get the info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* if the special information are already in some other acc elt, * point to it */ access_rec->special_info = HIgetspinfo(access_rec); if (access_rec->special_info) { ((linkinfo_t *) access_rec->special_info)->attached++; file_rec->attach++; ret_value = HAregister_atom(AIDGROUP,access_rec); goto done; /* we are done */ } /* read the special info structure from the file */ if((dd_aid = Hstartaccess(access_rec->file_id,data_tag,data_ref,DFACC_READ))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hseek(dd_aid, 2, DF_START) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (Hread(dd_aid, 14, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* allocate space for special information */ access_rec->special_info = HDmalloc((uint32) sizeof(linkinfo_t)); info = (linkinfo_t *) access_rec->special_info; if (!info) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* decode special information retrieved from file into info struct */ { uint8 *p = local_ptbuf; INT32DECODE(p, info->length); INT32DECODE(p, info->block_length); INT32DECODE(p, info->number_blocks); UINT16DECODE(p, info->link_ref); } /* get the block length and number of blocks */ access_rec->block_size = info->block_length; access_rec->num_blocks = info->number_blocks; /* set up the block tables of the information */ info->link = HLIgetlink(access_rec->file_id, info->link_ref, info->number_blocks); if (!info->link) HGOTO_DONE(FAIL); /* find and set the length of the first linked-block */ if (info->link->block_list[0].ref) { info->first_length = Hlength(access_rec->file_id, DFTAG_LINKED, info->link->block_list[0].ref); if (info->first_length == FAIL) { HDfree(info->link); HGOTO_ERROR(DFE_INTERNAL, FAIL); } } else info->first_length = info->block_length; /* process through all the linked-blocks in the file for this element */ info->last_link = info->link; while (info->last_link->nextref != 0) { info->last_link->next = HLIgetlink(access_rec->file_id, info->last_link->nextref, info->number_blocks); if (!info->last_link->next) { link_t *l, *next; for (l = info->link; l; l = next) { next = l->next; if (l->block_list) HDfree(l->block_list); HDfree(l); } HGOTO_ERROR(DFE_INTERNAL, FAIL); } info->last_link = info->last_link->next; } /* update data */ info->attached = 1; file_rec->attach++; /* increment number of elements attached to file */ ret_value = HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec->special_info != NULL) HDfree(access_rec->special_info); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLIstaccess */ /* ----------------------------- HLgetdatainfo --------------------------- */ /* NAME HLgetdatainfo -- get data information from linked blocks USAGE int32 HLgetdatainfo(file_id, link_ref, num_blocks, offsetarray, lengtharray) int32 file_id; IN: the file uint8 *buf; IN: special header info read from the file by caller uintn start_block, IN: data block to start at, 0 base uintn info_count, IN: size of offset/length lists int32 *offsetarray; OUT: offsets of data blocks int32 *lengtharray; OUT: lengths of data blocks RETURNS The number of actual data blocks, if successful, FAIL, otherwise DESCRIPTION HLgetdatainfo uses HLIgetlink to get each block table in the element. We're looking for actual data blocks which have a positive reference number. Blocks with ref# as 0 will signal the end of the actual data blocks. HLgetdatainfo goes through the block table to record offset and length of the actual data blocks. Aug 08, 2010 -BMR TODO - No effect from start_block yet; since it's not used in the HDF Mapping project, and we're running out of time, I'm leaving it out. Feb 18, 2011 -BMR ---------------------------------------------------------------------------*/ intn HLgetdatainfo(int32 file_id, uint8 *buf, /* IN: special header info */ uintn start_block, /* IN: data block to start at, 0 base */ uintn info_count, /* IN: size of offset/length lists */ int32 *offsetarray, /* OUT: array to hold offsets */ int32 *lengtharray) /* OUT: array to hold lengths */ { CONSTR(FUNC, "HLgetdatainfo"); /* for HERROR */ link_t *link_info=NULL; /* link information, to get block ref#s*/ intn num_data_blocks; /* number of blocks that actually have data */ uint16 link_ref; /* ref# pointing to a block table */ uint8 *p=NULL; /* pointer to special info buffer */ int32 num_blocks, /* number of blocks in each table */ block_length, /* length of each block */ total_length, /* total data length of the element */ accum_length; /* accummulative length of actual data in blocks */ int ii; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate arguments */ if (info_count == 0 && offsetarray != NULL && lengtharray != NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Decode special information retrieved from file */ p = &buf[0]; INT32DECODE(p, total_length); INT32DECODE(p, block_length); INT32DECODE(p, num_blocks); /* get number of blocks in link table */ UINT16DECODE(p, link_ref); /* get ref# link table */ /* Initialize number of actual data blocks and the accumulative data len */ num_data_blocks = 0; accum_length = 0; /* Get the block table pointed to by link_ref; the table contains ref#s of the blocks */ link_info = HLIgetlink(file_id, link_ref, num_blocks); if (!link_info) /* no data */ HGOTO_DONE(FAIL); /* Go through all the linked-block tables of this element, as long as the number of data blocks being collected has not reached the maximum length of the non-NULL arrays provided */ while (link_info != NULL && (info_count == 0 || /* case of offset/length arrays being NULL */ num_data_blocks < info_count)) { uint16 next_ref = link_info->nextref; /* shortcut */ /* Get offset/length of blocks that actually point to a data elem, until all blocks in this table with valid ref#s are processed */ for (ii = 0; ii < num_blocks && link_info->block_list[ii].ref != 0;ii++) { int32 offset, length; uint16 block_ref = link_info->block_list[ii].ref; /* shortcut */ /* If this block has a valid ref# then get the offset/length of the data if they are requested, and increment the number of data blocks */ if (block_ref != 0) { if (offsetarray != NULL) { offset = Hoffset(file_id, DFTAG_LINKED, block_ref); if (offset == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); offsetarray[num_data_blocks] = offset; } if (lengtharray != NULL) { length = Hlength(file_id, DFTAG_LINKED, block_ref); if (length == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Make sure to detect when the last block of the element is reached and calculate the len of the actual data in it */ /* Continue accumulating data length if there is another block table coming */ if (next_ref != 0) accum_length = accum_length + length; /* When no more block table following this one, i.e., this is the last block table in the element */ else { /* if this is NOT the last block having data in the current table, continue accumulating */ if (ii < num_blocks - 1 && link_info->block_list[ii + 1].ref != 0) accum_length = accum_length + length; /* else, i.e., this is the last block in the curr table, or the last block that points to actual data */ else { /* then calculate the data's actual length when the length is the same as the default block length, because it might not be */ if (length == block_length) length = total_length - accum_length; } } /* Record the actual data length in the current block */ lengtharray[num_data_blocks] = length; } num_data_blocks++; /* count number of blocks with data */ } } /* for each block in the current table */ /* Free allocated memory before getting the next block table if there is one */ if (link_info != NULL) { if (link_info->block_list != NULL) HDfree(link_info->block_list); HDfree(link_info); link_info = NULL; } /* Get next block table */ if (next_ref != 0) link_info = HLIgetlink(file_id, next_ref, num_blocks); } /* while there are more linked-block tables and the offset/length arrays are not full yet */ /* Return the number of blocks with actual data */ ret_value = num_data_blocks; done: if(ret_value == FAIL) { /* Error condition cleanup */ if(link_info != NULL) if (link_info->block_list != NULL) HDfree(link_info->block_list); HDfree(link_info); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLgetdatainfo */ /* ------------------------------ HLPstread ------------------------------- */ /* NAME HLPstread -- open an access record for reading USAGE int32 HLPstread(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HLIstaccess to fill in the access rec for reading ---------------------------------------------------------------------------*/ int32 HLPstread(accrec_t * access_rec) { int32 ret_value; ret_value = HLIstaccess(access_rec, DFACC_READ); return ret_value; } /* HLPstread */ /* ------------------------------ HLPstwrite ------------------------------- */ /* NAME HLPstwrite -- open an access record for writing USAGE int32 HLPstwrite(access_rec) access_t * access_rec; IN: access record to fill in RETURNS The AID of the access record on success FAIL on error. DESCRIPTION Calls to HLIstaccess to fill in the access rec for writing ---------------------------------------------------------------------------*/ int32 HLPstwrite(accrec_t * access_rec) { int32 ret_value; ret_value = HLIstaccess(access_rec, (int16)DFACC_WRITE); return ret_value; } /* HLPstwrite */ /* ------------------------------ HLIgetlink ------------------------------ */ /* NAME HLIgetlink -- get link information USAGE link_t * HLIgetlink(fid, ref, num_blocks) int32 file_id; IN: the file uint16 ref; IN: ref number of the link table int32 num_blocks; IN: number of blocks in the table RETURNS A pointer to a link_t or NULL. DESCRIPTION Read a block table out of the file and return a pointer to the internal table representing it. It seems that num_blocks is redundant. ---------------------------------------------------------------------------*/ PRIVATE link_t * HLIgetlink(int32 file_id, uint16 ref, int32 number_blocks) { CONSTR(FUNC, "HLIgetlink"); /* for HERROR */ int32 access_id; /* access record id */ uint8 *buffer = NULL; uint16 tag = DFTAG_LINKED; link_t *new_link = NULL; link_t *ret_value = NULL; /* FAIL */ /* allocate necessary memory for in-memory block table */ new_link = (link_t *) HDmalloc((uint32) sizeof(link_t)); if (new_link == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); new_link->block_list = (block_t *) HDmalloc((uint32) number_blocks * sizeof(block_t)); if (new_link->block_list == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); new_link->next = (link_t *) NULL; /* create temp buffer to read block table in */ buffer = (uint8 *) HDmalloc((uint32) (2 + 2 * number_blocks)); if (buffer == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); /* read block table into buffer */ access_id = Hstartread(file_id, tag, ref); if (access_id == FAIL || Hread(access_id, 2 + 2 * number_blocks, buffer) == FAIL) HGOTO_ERROR(DFE_READERROR, NULL); /* decode block table information read from file */ { int32 i; uint8 *p = buffer; UINT16DECODE(p, new_link->nextref); for (i = 0; i < number_blocks; i++) UINT16DECODE(p, new_link->block_list[i].ref); } /* end acces to this block table */ Hendaccess(access_id); /* set return value */ ret_value = new_link; done: if(ret_value == NULL) { /* Error condition cleanup */ if (new_link->block_list != NULL) HDfree(new_link->block_list); if (new_link != NULL) HDfree(new_link); } /* end if */ /* Normal function cleanup */ if (buffer != NULL) HDfree(buffer); return ret_value; } /* HLIgetlink */ /* ------------------------------- HLPseek -------------------------------- */ /* NAME HLPseek -- set the seek posn USAGE int32 HLPseek(access_rec, offset, origin) access_t * access_rec; IN: access record to mess with int32 offset; IN: seek offset int32 origin; IN: where we should calc the offset from RETURNS SUCCEED / FAIL DESCRIPTION Set the seek posn in the given linked block element ---------------------------------------------------------------------------*/ int32 HLPseek(accrec_t *access_rec, int32 offset, int origin) { CONSTR(FUNC, "HLPseek"); /* for HERROR */ int32 ret_value = SUCCEED; /* validate access record */ if (access_rec->special != SPECIAL_LINKED) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* adjust the offset according to origin and validate */ /* there is no upper bound to posn */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += ((linkinfo_t *) (access_rec->special_info))->length; if (offset < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* set position */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPseek */ /* ------------------------------- HLPread -------------------------------- */ /* NAME HLPread -- read some data out of a linked block element USAGE int32 HLPseek(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to read void * data; IN: buffer for data RETURNS The number of bytes read or FAIL on error DESCRIPTION Read in some data from a linked block element. If length is zero read until the end of the element. It is assumed that the data buffer is big enough to store the data. If length would take us off the end of the element only read what has been written. --------------------------------------------------------------------------- */ int32 HLPread(accrec_t *access_rec, int32 length, void * datap) { CONSTR(FUNC, "HLPread"); /* for HERROR */ uint8 *data = (uint8 *) datap; /* information record for this special data elt */ linkinfo_t *info = (linkinfo_t *) (access_rec->special_info); link_t *t_link = info->link; /* block table record */ /* relative position in linked block of data elt */ int32 relative_posn = access_rec->posn; int32 block_idx; /* block table index of current block */ int32 current_length; /* length of current block */ int32 nbytes = 0; /* # bytes read on any single Hread() */ int32 bytes_read = 0; /* total # bytes read for this call of HLIread */ int32 ret_value = SUCCEED; /* validate length */ if (length == 0) length = info->length - access_rec->posn; else if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); if (access_rec->posn + length > info->length) length = info->length - access_rec->posn; /* search for linked block to start reading from */ if (relative_posn < info->first_length) { /* first block */ block_idx = 0; current_length = info->first_length; } else /* not first block? */ { relative_posn -= info->first_length; block_idx = relative_posn / info->block_length + 1; relative_posn %= info->block_length; current_length = info->block_length; } /* calculate which block to start from? */ { int32 i; for (i = 0; i < block_idx / info->number_blocks; i++) { if (t_link == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); t_link = t_link->next; } } block_idx %= info->number_blocks; /* found the starting block, now read in the data */ do { int32 remaining = /* remaining data in current block */ current_length - relative_posn; /* read in the data in this block */ if (remaining > length) remaining = length; if (t_link->block_list[block_idx].ref != 0) { int32 access_id; /* access record id for this block */ block_t *current_block = /* record on the current block */ &(t_link->block_list[block_idx]); access_id = Hstartread(access_rec->file_id, DFTAG_LINKED, current_block->ref); if (access_id == (int32) FAIL || (relative_posn && (int32) FAIL == Hseek(access_id, relative_posn, DF_START)) || (int32) FAIL == (nbytes = Hread(access_id, remaining, data))) HGOTO_ERROR(DFE_READERROR, FAIL); bytes_read += nbytes; Hendaccess(access_id); } else { /*if block is missing, fill this part of buffer with zero's */ HDmemset(data, 0, (size_t)remaining); bytes_read += nbytes; } /* move variables for the next block */ data += remaining; length -= remaining; if (length > 0 && ++block_idx >= info->number_blocks) { block_idx = 0; t_link = t_link->next; if (t_link == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } relative_posn = 0; current_length = info->block_length; } while (length > 0); /* if still somemore to read in, repeat */ access_rec->posn += bytes_read; ret_value = bytes_read; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPread */ /* ------------------------------- HLPwrite ------------------------------- */ /* NAME HLPwrite -- write out some data to a linked block USAGE int32 HLPwrite(access_rec, length, data) access_t * access_rec; IN: access record to mess with int32 length; IN: number of bytes to write void * data; IN: buffer for data RETURNS The number of bytes written or FAIL on error DESCRIPTION Write out some data from a linked block element. If we write passed the end of the existing element new blocks are created as needed. ---------------------------------------------------------------------------*/ int32 HLPwrite(accrec_t *access_rec, int32 length, const void * datap) { CONSTR(FUNC, "HLPwrite"); /* for HERROR */ const uint8 *data = datap; filerec_t *file_rec; /* file record */ int32 dd_aid; /* AID for writing the special info */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ linkinfo_t *info = /* linked blocks information record */ (linkinfo_t *) (access_rec->special_info); link_t *t_link = /* ptr to link block table */ info->link; int32 relative_posn = /* relative position in linked block */ access_rec->posn; int32 block_idx; /* block table index of current block */ link_t *prev_link = NULL; /* ptr to block table before current block table. for groking the offset of current block table */ int32 current_length; /* length of current block */ int32 nbytes = 0; /* #bytes written by any single Hwrite */ int32 bytes_written = 0; /* total #bytes written by HLIwrite */ uint8 local_ptbuf[4]; int32 ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* validate length and file records */ if (length <= 0) HGOTO_ERROR(DFE_RANGE, FAIL); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* determine linked block and position to start writing into */ /* determine where to start. Setup missing block tables along the way. */ if (relative_posn < info->first_length) { block_idx = 0; current_length = info->first_length; } else { relative_posn -= info->first_length; block_idx = relative_posn / info->block_length + 1; relative_posn %= info->block_length; current_length = info->block_length; } { /* follow the links of block tables and create missing block tables along the way */ int32 num_links; /* number of links to follow */ for (num_links = block_idx / info->number_blocks; num_links > 0; num_links--) { if (!t_link->next) { /* create missing link (block table) */ t_link->nextref = Htagnewref(access_rec->file_id,DFTAG_LINKED); t_link->next = HLInewlink(access_rec->file_id, info->number_blocks, t_link->nextref, 0); if (!t_link->next) HGOTO_ERROR(DFE_NOSPACE,FAIL); { /* AA */ /* update previous link with information about new link */ uint16 link_tag = DFTAG_LINKED; uint16 link_ref = /* ref of current link */ (uint16) (prev_link != NULL ? prev_link->nextref : info->link_ref); uint8 *p = local_ptbuf; /* temp buf ptr */ /* write file the updated portion of current link */ int32 link_id = /* access id for current link */ Hstartwrite(access_rec->file_id, link_tag, link_ref, 0); if (link_id == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); UINT16ENCODE(p, t_link->nextref); if (Hwrite(link_id, 2, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); Hendaccess(link_id); } /* AA */ } /* if not t_link->next */ /* move to the next link */ prev_link = t_link; t_link = t_link->next; } /* end for */ } /* end block statement(bad) */ block_idx %= info->number_blocks; /* start writing in that block */ do { int32 access_id; /* access record id */ int32 remaining = /* remaining data length in this block */ current_length - relative_posn; uint16 new_ref = 0; /* ref of newly created block */ /* determine length and write this block */ if (remaining > length) remaining = length; /* this block already exist, so just set up access to it */ if (t_link->block_list[block_idx].ref != 0) { block_t *current_block = /* ptr to current block record */ &(t_link->block_list[block_idx]); access_id = Hstartwrite(access_rec->file_id, DFTAG_LINKED, current_block->ref, current_length); } else { /* block is missing, set up a new block */ new_ref = Htagnewref(access_rec->file_id,DFTAG_LINKED); access_id = Hstartwrite(access_rec->file_id, DFTAG_LINKED, new_ref, current_length); } if (access_id == (int32) FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if ((relative_posn && (int32) FAIL == Hseek(access_id, relative_posn, DF_START)) || (int32) FAIL == (nbytes = Hwrite(access_id, remaining, data))) { HGOTO_ERROR(DFE_WRITEERROR, FAIL); } Hendaccess(access_id); bytes_written += nbytes; if (new_ref) { /* created a new block, so update the link/block table */ uint16 link_tag = DFTAG_LINKED; uint16 link_ref = /* ref of the current link/block table */ (uint16) (prev_link ? prev_link->nextref : info->link_ref); uint8 *p = /* temp buffer ptr */ local_ptbuf; int32 link_id = /* access record id of the current link/block table */ Hstartwrite(access_rec->file_id, link_tag, link_ref, 0); if (link_id == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); UINT16ENCODE(p, new_ref); if (Hseek(link_id, 2 + 2 * block_idx, DF_START) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (Hwrite(link_id, 2, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); Hendaccess(link_id); /* update memory structure */ t_link->block_list[block_idx].ref = new_ref; } /* if new_ref */ /* move ptrs and counters for next phase */ data += remaining; length -= remaining; if (length > 0 && ++block_idx >= info->number_blocks) { /* move to the next link/block table */ block_idx = 0; if (!t_link->next) { /* create missing link/block table */ t_link->nextref = Htagnewref(access_rec->file_id,DFTAG_LINKED); t_link->next = HLInewlink(access_rec->file_id, info->number_blocks, t_link->nextref, 0); if (!t_link->next) HGOTO_ERROR(DFE_NOSPACE, FAIL); { /* BB */ uint16 link_tag = DFTAG_LINKED; uint16 link_ref = /* ref of current link/block table */ (uint16) (prev_link ? prev_link->nextref : info->link_ref); uint8 *p = /* temp buffer ptr */ local_ptbuf; int32 link_id = /* access record id of current link/block table */ Hstartwrite(access_rec->file_id, link_tag, link_ref, 0); if (link_id == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); UINT16ENCODE(p, t_link->nextref); if (Hwrite(link_id, 2, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); Hendaccess(link_id); } /* BB */ } /* if not t_link->next */ /* move to the next link/block table */ prev_link = t_link; t_link = t_link->next; } /* end if "length" */ /* update vars for next phase */ relative_posn = 0; current_length = info->block_length; } while (length > 0); /* update the info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if((dd_aid=Hstartaccess(access_rec->file_id,data_tag,data_ref,DFACC_WRITE))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hseek(dd_aid, 2, DF_START) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); { int32 tmp; uint8 *p = local_ptbuf; tmp = bytes_written + access_rec->posn; if (tmp > info->length) info->length = tmp; INT32ENCODE(p, info->length); } if (Hwrite(dd_aid, 4, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); access_rec->posn += bytes_written; /* return SUCCEED; */ /* if wrong # bytes written, FAIL has already been returned */ ret_value = bytes_written; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPwrite */ /* ------------------------------ HLInewlink ------------------------------ */ /* NAME HLInewlink -- write out some data to a linked block USAGE link_t * HLInewlink(fid, nblocks, link_ref, first_block_ref) int32 fid; IN: file ID int32 nblocks; IN: number of blocks in the table uint16 link_ref; IN: ref number for the table uint16 first_block_ref; IN: ref number for first block RETURNS A pointer to a new link/block table or NULL DESCRIPTION Create a new link/block table in memory and in file returns ptr to the new link/block table. ---------------------------------------------------------------------------*/ PRIVATE link_t * HLInewlink(int32 file_id, int32 number_blocks, uint16 link_ref, uint16 first_block_ref) { CONSTR(FUNC, "HLInewlink"); /* for HERROR */ int32 link_id; /* access record id of new link */ uint8 *buf = NULL; /* temp buffer */ link_t *t_link = NULL; link_t *ret_value = NULL; /* FAIL */ /* set up new link record in memory */ /* new link record */ t_link = (link_t *) HDmalloc((uint32) sizeof(link_t)); if (!t_link) HGOTO_ERROR(DFE_NOSPACE, NULL); t_link->block_list = (block_t *) HDmalloc((uint32) number_blocks * sizeof(block_t)); if (!t_link->block_list) HGOTO_ERROR(DFE_NOSPACE, NULL); t_link->next = NULL; /* get ready to write the new link to file */ link_id = Hstartwrite(file_id, DFTAG_LINKED, link_ref, 2 + 2 * number_blocks); if (link_id == FAIL) HGOTO_ERROR(DFE_WRITEERROR, NULL); /* encode this block information for writing to the file */ { /* CC */ int32 i; /* temp int index */ uint8 *p; /* temp buffer ptr */ p = buf = (uint8 *) HDmalloc((uint32) (2 + 2 * number_blocks)); if (!buf) HGOTO_ERROR(DFE_NOSPACE, NULL); /* set up the record and write to file */ t_link->nextref = 0; UINT16ENCODE(p, 0); t_link->block_list[0].ref = first_block_ref; UINT16ENCODE(p, first_block_ref); /* why is this first_block_ref = 0? */ for (i = 1; i < number_blocks; i++) { /* set up each block in this link */ t_link->block_list[i].ref = 0; UINT16ENCODE(p, 0); } } /* CC */ /* write the link */ if (Hwrite(link_id, 2 + 2 * number_blocks, buf) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, NULL); /* close down acces to this block */ Hendaccess(link_id); /* set return value */ ret_value = t_link; done: if(ret_value == NULL) { /* Error condition cleanup */ if (t_link->block_list != NULL) HDfree(t_link->block_list); if (t_link != NULL) HDfree(t_link); } /* end if */ /* Normal function cleanup */ if (buf != NULL) HDfree(buf); return ret_value; } /* HLInewlink */ /* ------------------------------ HLPinquire ------------------------------ */ /* NAME HLPinquire -- Hinquire for linked blocks USAGE int32 HLPinquire(access_rec, fid, tag, ref, len, off, pos, acc, sp) access_t * access_rec; IN: access record to return info about uint16 * file; OUT: file ID; uint16 * tag; OUT: tag of info record; uint16 * ref; OUT: ref of info record; int32 * len; OUT: length of element; int32 * off; OUT: offset of element -- meaningless int32 * pos; OUT: current position in element; int16 * acc; OUT: access mode; int16 * sp; OUT: special code; RETURNS SUCCEED DESCRIPTION Return interesting information about a linked block element. NULL can be passed for any of the OUT parameters if their value is not needed. --------------------------------------------------------------------------- */ int32 HLPinquire(accrec_t *access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HLPinquire"); /* for HERROR */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ linkinfo_t *info = /* special information record */ (linkinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* update the info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id) *pfile_id = access_rec->file_id; if (ptag) *ptag = data_tag; if (pref) *pref = data_ref; if (plength) *plength = info->length; if (poffset) *poffset = 0; /* meaningless */ if (pposn) *pposn = access_rec->posn; if (paccess) *paccess = (int16)access_rec->access; if (pspecial) *pspecial = (int16)access_rec->special; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPinquire */ /* ----------------------------- HLPendaccess ----------------------------- */ /* NAME HLPendacess -- close a linked block AID USAGE intn HLPendaccess(access_rec) access_t * access_rec; IN: access record to close RETURNS SUCCEED / FAIL DESCRIPTION Free up all of the space used to store information about a linked block element. Information is flushed to disk as it is created so this routine does NOT have to write anything out. --------------------------------------------------------------------------- */ intn HLPendaccess(accrec_t * access_rec) { CONSTR(FUNC, "HLPendaccess"); /* for HERROR */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; /* convert file id to file record */ file_rec = HAatom_object(access_rec->file_id); /* detach the special information record. If no more references to that, free the record */ HLPcloseAID(access_rec); /* update file and access records */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* validate file record */ if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* detach from the file */ file_rec->attach--; /* free the access record */ HIrelease_accrec_node(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPendaccess */ /* ----------------------------- HLPcloseAID ------------------------------ */ /* NAME HLPcloseAID -- close file but keep AID active USAGE int32 HLPcloseAID(access_rec) access_t * access_rec; IN: access record of file to close RETURNS SUCCEED / FAIL DESCRIPTION close the file currently being pointed to by this AID but do *NOT* free the AID. This is called by Hnextread() which reuses an AID to point to the 'next' object as requested. If the current object was an linked object, the linked information needs to be closed before all reference to it is lost. ---------------------------------------------------------------------------*/ int32 HLPcloseAID(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HLPcloseAID"); /* for HERROR */ #endif /* LATER */ linkinfo_t *info = /* special information record */ (linkinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* detach the special information record. If no more references to that, free the record */ if (--(info->attached) == 0) { link_t *t_link; /* current link to free */ link_t *next; /* next link to free */ /* free the linked list of links/block tables */ for (t_link = info->link; t_link; t_link = next) { next = t_link->next; HDfree(t_link->block_list); HDfree(t_link); } HDfree(info); access_rec->special_info = NULL; } #ifdef LATER done: #endif /* LATER */ if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPcloseAID */ /* ------------------------------- HLPinfo -------------------------------- */ /* NAME HLPinfo -- return info about a linked block element USAGE int32 HLPinfo(access_rec, info_block) access_t * access_rec; IN: access record of access element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Return information about the given linked block. Info_block is assumed to be non-NULL. --------------------------------------------------------------------------- */ int32 HLPinfo(accrec_t * access_rec, sp_info_block_t * info_block) { CONSTR(FUNC, "HLPinfo"); linkinfo_t *info = /* special information record */ (linkinfo_t *) access_rec->special_info; int32 ret_value = SUCCEED; /* validate access record */ if (access_rec->special != SPECIAL_LINKED) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_block */ info_block->key = SPECIAL_LINKED; info_block->first_len = info->first_length; info_block->block_len = info->block_length; info_block->nblocks = info->number_blocks; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HLPinfo */ /*-------------------------------------------------------------------------- NAME HLsetblockinfo -- set the block length of a linked-block element USAGE intn HLsetblockinfo( int32 aid IN: access record id int32 block_size IN: length to be used for each linked-block int32 num_blocks IN: number of blocks the element will have RETURNS SUCCEED / FAIL DESCRIPTION HLsetblockinfo sets (accrec_t).block_size and (accrec_t).num_blocks to block_size and num_blocks, respectively. An error will occur, if either of the parameters is a 0 or a negative number, that is not -1, which is used to indicate that the respective field is not to be changed. In the library, this routine is used by: VSsetblocksize VSsetnumblocks MODIFICATION BMR - added in June 2001 to fix bug# 267 --------------------------------------------------------------------------*/ intn HLsetblockinfo(int32 aid, /* access record id */ int32 block_size, /* length to be used for each linked-block */ int32 num_blocks) /* number of blocks the element will have */ { CONSTR(FUNC, "HLsetblockinfo"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); /* validate aid */ if (HAatom_group(aid)!=AIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* block_size and num_blocks should be either -1, to keep the original values, or positive values to change the block size and/or the number of blocks */ if ((block_size <= 0 && block_size != -1) || (num_blocks <= 0 && num_blocks != -1)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the access record */ if ((access_rec = HAatom_object(aid)) == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* If this element is already stored as linked-block, do not allow to change the block info, ignore the request to change. */ if (access_rec->special != SPECIAL_LINKED) { /* Set the linked-block size, if requested */ if (block_size != -1) access_rec->block_size = block_size; /* Set the number of blocks in each block table, if requested */ if (num_blocks != -1) access_rec->num_blocks = num_blocks; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HLsetblockinfo */ /*-------------------------------------------------------------------------- NAME HLgetblockinfo -- get the block size and the number of blocks of a linked-block element USAGE intn HLgetblockinfo(aid, block_size, num_blocks) int32 aid IN: access record id int32* block_size OUT: the returned block size of each linked-block int32* num_blocks OUT: the returned number of blocks of the element RETURNS SUCCEED / FAIL DESCRIPTION HLgetblockinfo retrieves the values of (accrec_t).block_size and (accrec_t).num_blocks to block_size and num_blocks, respectively. A NULL can be passed in for an unwanted value. In the library, this routine is used by: VSgetblockinfo MODIFICATION BMR - added in June 2001 to fix bug# 267 --------------------------------------------------------------------------*/ intn HLgetblockinfo(int32 aid, /* access record id */ int32* block_size, /* length being used for each linked-block */ int32* num_blocks) /* number of blocks the element will have */ { CONSTR(FUNC, "HLgetblockinfo"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn ret_value = SUCCEED; /* clear error stack */ HEclear(); /* get the access record */ if ((access_rec = HAatom_object(aid)) == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the linked-block size and the number of linked-blocks if requested */ if (block_size != NULL) *block_size = access_rec->block_size; if (num_blocks != NULL) *num_blocks = access_rec->num_blocks; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HLgetblockinfo */ libhdf4-4.2.10/HDF_ALT/hdf/src/df24ff.f0000644000000000000000000002116612421456623013666 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: df24ff.f 6034 2014-01-19 06:59:14Z epourmal $ C C------------------------------------------------------------------------------ C File: df24Ff.f C Purpose: read and write 24-bit raster images C Invokes: df24F.c C Contents: C d2gdims: - get dimensions of image C d2gimg: - read in image C d2aimg: - write out image C d2rref: - set reference number to be used for next get C DF24getdims: - get dimensions of image C DF24getimage: - read in image C DF24getimage: - write out image C DF24readref: - set reference number to be used for next get C C Remarks: A RIG specifies attributes associated with an image - lookup table, C dimension, compression, color compensation etc. C----------------------------------------------------------------------------*/ C------------------------------------------------------------------------------ C Name: d2gdims C Purpose: get dimensions of next image RIG C Inputs: name: name of HDF file C xdim, ydim: locations for returning x,y dimensions C il: location for returning interlace of image in file C Returns: 0 on success, -1 on failure with DFerror set C *pxdim, *pydim, *pil set on success C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2igdim C Remarks: none C----------------------------------------------------------------------------*/ integer function d2gdims(name, xdim, ydim, il) character*(*) name integer xdim, ydim, il, d2igdim d2gdims = d2igdim(name, xdim, ydim, il, len(name)) return end C------------------------------------------------------------------------------ C Name: d2gimg C Purpose: get image from next RIG C Inputs: name: name of HDF file C image: pointer to space to return image C xdim, ydim: dimensions of space to return image C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2igimg C Remarks: space is assumed to be xdim * ydim * 3 bytes C----------------------------------------------------------------------------*/ integer function d2gimg(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2igimg d2gimg = d2igimg(name, image, xdim, ydim, len(name)) return end C------------------------------------------------------------------------------ C Name: d2aimg C Purpose: Write out image C Inputs: filename: name of HDF file C image: image to write C xdim, ydim: dimensions of array image C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2iaimg C Remarks: array image is assumed to be xdim * ydim * ncomps bytes C----------------------------------------------------------------------------*/ integer function d2aimg(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2iaimg d2aimg = d2iaimg(name, image, xdim, ydim, len(name), 0) return end integer function d2pimg(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2iaimg d2pimg = d2iaimg(name, image, xdim, ydim, len(name), 1) return end C------------------------------------------------------------------------------ C Name: d2rref C Purpose: C Inputs: filename: name of HDF file C ref: reference number to be used for next get C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2irref C Remarks: C----------------------------------------------------------------------------*/ integer function d2rref(name, ref) character*(*) name integer ref, d2irref d2rref = d2irref(name, ref, len(name)) return end C------------------------------------------------------------------------------ C Name: d2nimg C Purpose: Determine the number of 24-bit raster images in a file. C Inputs: filename: name of HDF file C Returns: # of images on success, -1 on failure with error stack set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2inimg C Remarks: C----------------------------------------------------------------------------*/ integer function d2nimg(name) character*(*) name integer d2inimg d2nimg = d2inimg(name, len(name)) return end CEND7MAX C------------------------------------------------------------------------------ C Name: df24getdims C Purpose: get dimensions of next image RIG C Inputs: name: name of HDF file C xdim, ydim: locations for returning x,y dimensions C il: location for returning interlace of image in file C Returns: 0 on success, -1 on failure with DFerror set C *pxdim, *pydim, *pil set on success C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2igdim C Remarks: none C----------------------------------------------------------------------------*/ integer function df24getdims(name, xdim, ydim, il) character*(*) name integer xdim, ydim, il, d2igdim df24getdims = d2igdim(name, xdim, ydim, il, len(name)) return end C------------------------------------------------------------------------------ C Name: df24getimage C Purpose: get image from next RIG C Inputs: name: name of HDF file C image: pointer to space to return image C xdim, ydim: dimensions of space to return image C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2igimg C Remarks: space is assumed to be xdim * ydim * 3 bytes C----------------------------------------------------------------------------*/ integer function df24getimage(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2igimg df24getimage = d2igimg(name, image, xdim, ydim, len(name)) return end C------------------------------------------------------------------------------ C Name: df24addimage C Purpose: Write out image C Inputs: filename: name of HDF file C image: image to write C xdim, ydim: dimensions of array image C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2iaimg C Remarks: array image is assumed to be xdim * ydim * ncomps bytes C----------------------------------------------------------------------------*/ integer function df24addimage(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2iaimg df24addimage = d2iaimg(name, image, xdim, ydim, len(name), 0) return end integer function df24putimage(name, image, xdim, ydim) character*(*) name, image integer xdim, ydim, d2iaimg df24putimage = d2iaimg(name, image, xdim, ydim, len(name), 1) return end C------------------------------------------------------------------------------ C Name: df24readref C Purpose: Write out image C Inputs: filename: name of HDF file C ref: reference number to be used for next get C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: d2irref C Remarks: array image is assumed to be xdim * ydim * ncomps bytes C----------------------------------------------------------------------------*/ integer function df24readref(name, ref) character*(*) name integer ref, d2irref df24readref = d2irref(name, ref, len(name)) return end libhdf4-4.2.10/HDF_ALT/hdf/src/crle.c0000644000000000000000000006301712421456623013536 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5705 $"; #endif /* $Id: crle.c 5705 2011-10-26 12:45:21Z bmribler $ */ /* FILE crle.c HDF run-length encoding I/O routines REMARKS DESIGN EXPORTED ROUTINES None of these routines are designed to be called by other users except for the modeling layer of the compression routines. AUTHOR Quincey Koziol MODIFICATION HISTORY 9/28/93 Starting writing specs & coding prototype. 10/09/93 Finished testing. First version done. */ /* General HDF includes */ #include "hdf.h" #define CRLE_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* internal defines */ #define TMP_BUF_SIZE 8192 /* size of throw-away buffer */ #define RUN_MASK 0x80 /* bit mask for run-length control bytes */ #define COUNT_MASK 0x7f /* bit mask for count of run or mix */ /* #define TESTING */ /* declaration of the functions provided in this module */ PRIVATE int32 HCIcrle_staccess (accrec_t * access_rec, int16 acc_mode); PRIVATE int32 HCIcrle_init (accrec_t * access_rec); PRIVATE int32 HCIcrle_decode (compinfo_t * info, int32 length, uint8 *buf); PRIVATE int32 HCIcrle_encode (compinfo_t * info, int32 length, const uint8 *buf); PRIVATE int32 HCIcrle_term (compinfo_t * info); /*-------------------------------------------------------------------------- NAME HCIcrle_init -- Initialize a RLE compressed data element. USAGE int32 HCIcrle_init(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcrle_staccess and HCIcrle_seek GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcrle_init(accrec_t * access_rec) { CONSTR(FUNC, "HCIcrle_init"); compinfo_t *info; /* special element information */ comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ info = (compinfo_t *) access_rec->special_info; if (Hseek(info->aid, 0, DF_START) == FAIL) /* seek to beginning of element */ HRETURN_ERROR(DFE_SEEKERROR, FAIL); rle_info = &(info->cinfo.coder_info.rle_info); /* Initialize RLE state information */ rle_info->rle_state = RLE_INIT; /* start in initial state */ rle_info->buf_pos = 0; /* start at the beginning of the buffer */ rle_info->last_byte = (uintn) RLE_NIL; /* start with no code in the last byte */ rle_info->second_byte = (uintn) RLE_NIL; /* start with no code here too */ rle_info->offset = 0; /* offset into the file */ return (SUCCEED); } /* end HCIcrle_init() */ /*-------------------------------------------------------------------------- NAME HCIcrle_decode -- Decode RLE compressed data into a buffer. USAGE int32 HCIcrle_decode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to read into the buffer uint8 *buf; OUT: buffer to store the bytes read RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to decode RLE data from the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcrle_decode(compinfo_t * info, int32 length, uint8 *buf) { CONSTR(FUNC, "HCIcrle_decode"); comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ int32 orig_length; /* original length to read */ uintn dec_len; /* length to decode */ intn c; /* character to hold a byte read in */ rle_info = &(info->cinfo.coder_info.rle_info); orig_length = length; /* save this for later */ while (length > 0) { /* decode until we have all the bytes we need */ if (rle_info->rle_state == RLE_INIT) { /* need to figure out RUN or MIX state */ if ((c = HDgetc(info->aid)) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); if (c & RUN_MASK) { /* run byte */ rle_info->rle_state = RLE_RUN; /* set to run state */ rle_info->buf_length = (c & COUNT_MASK) + RLE_MIN_RUN; /* run length */ if ((rle_info->last_byte = (uintn)HDgetc(info->aid)) == (uintn)FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); } /* end if */ else { /* mix byte */ rle_info->rle_state = RLE_MIX; /* set to mix state */ rle_info->buf_length = (c & COUNT_MASK) + RLE_MIN_MIX; /* mix length */ if (Hread(info->aid, rle_info->buf_length, rle_info->buffer) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); rle_info->buf_pos = 0; } /* end else */ } /* end if */ /* RUN or MIX states */ if (length > rle_info->buf_length) /* still need more data */ dec_len = (uintn)rle_info->buf_length; else /* only grab "length" bytes */ dec_len = (uintn) length; if (rle_info->rle_state == RLE_RUN) HDmemset(buf, rle_info->last_byte, dec_len); /* copy the run */ else { HDmemcpy(buf, &(rle_info->buffer[rle_info->buf_pos]), dec_len); rle_info->buf_pos += (intn)dec_len; } /* end else */ rle_info->buf_length -= (intn)dec_len; if (rle_info->buf_length <= 0) /* check for running out of bytes */ rle_info->rle_state = RLE_INIT; /* get the next status byte */ length -= (int32)dec_len; /* decrement the bytes to get */ buf += dec_len; /* in case we need more bytes */ } /* end while */ rle_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcrle_decode() */ /*-------------------------------------------------------------------------- NAME HCIcrle_encode -- Encode data from a buffer into RLE compressed data USAGE int32 HCIcrle_encode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to store from the buffer const uint8 *buf; OUT: buffer to get the bytes from RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to encode RLE data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcrle_encode(compinfo_t * info, int32 length, const uint8 *buf) { CONSTR(FUNC, "HCIcrle_encode"); comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ int32 orig_length; /* original length to write */ intn c; /* character to hold a byte read in */ rle_info = &(info->cinfo.coder_info.rle_info); orig_length = length; /* save this for later */ while (length > 0) { /* encode until we stored all the bytes */ switch (rle_info->rle_state) { case RLE_INIT: /* initial encoding state */ rle_info->rle_state = RLE_MIX; /* shift to MIX state */ rle_info->last_byte = (uintn)(rle_info->buffer[0] = *buf); rle_info->buf_length = 1; rle_info->buf_pos = 1; buf++; length--; break; case RLE_RUN: /* check for end of run */ if ((uintn)*buf != rle_info->last_byte) { rle_info->rle_state = RLE_MIX; c = RUN_MASK | (rle_info->buf_length - RLE_MIN_RUN); if (HDputc((uint8) c, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (HDputc((uint8) rle_info->last_byte, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); rle_info->last_byte = (uintn)(rle_info->buffer[0] = *buf); rle_info->buf_length = 1; rle_info->buf_pos = 1; } /* end if */ else { /* run is continuing */ rle_info->buf_length++; if (rle_info->buf_length >= RLE_MAX_RUN) { /* check for too long */ c = RUN_MASK | (rle_info->buf_length - RLE_MIN_RUN); if (HDputc((uint8) c, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (HDputc((uint8) rle_info->last_byte, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); rle_info->rle_state = RLE_INIT; rle_info->second_byte = rle_info->last_byte = (uintn) RLE_NIL; } /* end if */ } /* end else */ buf++; length--; break; case RLE_MIX: /* mixed bunch of bytes */ /* check for run */ if ((uintn)*buf == rle_info->last_byte && (uintn)*buf == rle_info->second_byte) { rle_info->rle_state = RLE_RUN; /* shift to RUN state */ if (rle_info->buf_length > (RLE_MIN_RUN - 1)) { /* check for mixed data to write */ if (HDputc((uint8) ((rle_info->buf_length - RLE_MIN_MIX) - (RLE_MIN_RUN - 1)), info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (Hwrite(info->aid, (rle_info->buf_length - (RLE_MIN_RUN - 1)), rle_info->buffer) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); } /* end if */ rle_info->buf_length = RLE_MIN_RUN; } /* end if */ else { /* continue MIX */ rle_info->second_byte = rle_info->last_byte; rle_info->last_byte = (uintn)(rle_info->buffer[rle_info->buf_pos] = *buf); rle_info->buf_length++; rle_info->buf_pos++; if (rle_info->buf_length >= RLE_BUF_SIZE) { /* check for too long */ if (HDputc((uint8) (rle_info->buf_length - RLE_MIN_MIX), info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (Hwrite(info->aid, rle_info->buf_length, rle_info->buffer) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); rle_info->rle_state = RLE_INIT; rle_info->second_byte = rle_info->last_byte = (uintn) RLE_NIL; } /* end if */ } /* end else */ buf++; length--; break; default: HRETURN_ERROR(DFE_INTERNAL, FAIL) } /* end switch */ } /* end while */ rle_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcrle_encode() */ /*-------------------------------------------------------------------------- NAME HCIcrle_term -- Flush encoded data from internal buffer to RLE compressed data USAGE int32 HCIcrle_term(info) compinfo_t *info; IN: the info about the compressed element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to flush RLE data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcrle_term(compinfo_t * info) { CONSTR(FUNC, "HCIcrle_term"); comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ intn c; /* character to hold a byte read in */ rle_info = &(info->cinfo.coder_info.rle_info); switch (rle_info->rle_state) { case RLE_RUN: c = RUN_MASK | (rle_info->buf_length - RLE_MIN_RUN); if (HDputc((uint8) c, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (HDputc((uint8) rle_info->last_byte, info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); break; case RLE_MIX: /* mixed bunch of bytes */ if (HDputc((uint8) ((rle_info->buf_length - RLE_MIN_MIX)), info->aid) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (Hwrite(info->aid, rle_info->buf_length, rle_info->buffer) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); break; default: HRETURN_ERROR(DFE_INTERNAL, FAIL) } /* end switch */ rle_info->rle_state = RLE_INIT; rle_info->second_byte = rle_info->last_byte = (uintn) RLE_NIL; return (SUCCEED); } /* end HCIcrle_term() */ /*-------------------------------------------------------------------------- NAME HCIcrle_staccess -- Start accessing a RLE compressed data element. USAGE int32 HCIcrle_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcrle_stread and HCIcrle_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcrle_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcrle_staccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; #ifdef OLD_WAY if (acc_mode == DFACC_READ) info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else info->aid = Hstartwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, info->length); if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); if ((acc_mode&DFACC_WRITE) && Happendable(info->aid) == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); #else /* OLD_WAY */ if (acc_mode == DFACC_READ) info->aid = Hstartread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else info->aid = Hstartaccess(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, DFACC_RDWR|DFACC_APPENDABLE); if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); #endif /* OLD_WAY */ return (HCIcrle_init(access_rec)); /* initialize the RLE info */ } /* end HCIcrle_staccess() */ /*-------------------------------------------------------------------------- NAME HCPcrle_stread -- start read access for compressed file USAGE int32 HCPcrle_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using a simple RLE scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcrle_stread"); int32 ret; if ((ret = HCIcrle_staccess(access_rec, DFACC_READ)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcrle_stread() */ /*-------------------------------------------------------------------------- NAME HCPcrle_stwrite -- start write access for compressed file USAGE int32 HCPcrle_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using a simple RLE scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcrle_stwrite"); int32 ret; if ((ret = HCIcrle_staccess(access_rec, DFACC_WRITE)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcrle_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcrle_seek -- Seek to offset within the data element USAGE int32 HCPcrle_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcrle_seek"); compinfo_t *info; /* special element information */ comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ uint8 *tmp_buf; /* pointer to throw-away buffer */ /* shut compiler up */ origin = origin; info = (compinfo_t *) access_rec->special_info; rle_info = &(info->cinfo.coder_info.rle_info); if (offset < rle_info->offset) { /* need to seek from the beginning */ if ((access_rec->access&DFACC_WRITE) && rle_info->rle_state != RLE_INIT) if (HCIcrle_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); if (HCIcrle_init(access_rec) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); } /* end if */ if ((tmp_buf = (uint8 *) HDmalloc(TMP_BUF_SIZE)) == NULL) /* get tmp buffer */ HRETURN_ERROR(DFE_NOSPACE, FAIL); while (rle_info->offset + TMP_BUF_SIZE < offset) /* grab chunks */ if (HCIcrle_decode(info, TMP_BUF_SIZE, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ if (rle_info->offset < offset) /* grab the last chunk */ if (HCIcrle_decode(info, offset - rle_info->offset, tmp_buf) == FAIL) { HDfree(tmp_buf); HRETURN_ERROR(DFE_CDECODE, FAIL) } /* end if */ HDfree(tmp_buf); return (SUCCEED); } /* HCPcrle_seek() */ /*-------------------------------------------------------------------------- NAME HCPcrle_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcrle_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a RLE compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcrle_read"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (HCIcrle_decode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return (length); } /* HCPcrle_read() */ /*-------------------------------------------------------------------------- NAME HCPcrle_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPcrle_write(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a RLE compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcrle_write"); compinfo_t *info; /* special element information */ comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ info = (compinfo_t *) access_rec->special_info; rle_info = &(info->cinfo.coder_info.rle_info); /* Don't allow random write in a dataset unless: */ /* 1 - append onto the end */ /* 2 - start at the beginning and rewrite (at least) the whole dataset */ if ((info->length != rle_info->offset) && (rle_info->offset != 0 && length <= (info->length-rle_info->offset))) HRETURN_ERROR(DFE_UNSUPPORTED, FAIL); if (HCIcrle_encode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); return (length); } /* HCPcrle_write() */ /*-------------------------------------------------------------------------- NAME HCPcrle_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcrle_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcrle_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcrle_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcrle_endaccess -- Close the compressed data element USAGE int32 HCPcrle_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free encoding info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcrle_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcrle_endaccess"); compinfo_t *info; /* special element information */ comp_coder_rle_info_t *rle_info; /* ptr to RLE info */ info = (compinfo_t *) access_rec->special_info; rle_info = &(info->cinfo.coder_info.rle_info); /* flush out RLE buffer */ if ((access_rec->access&DFACC_WRITE) && rle_info->rle_state != RLE_INIT) if (HCIcrle_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); /* close the compressed data AID */ if (Hendaccess(info->aid) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); return (SUCCEED); } /* HCPcrle_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dff.c0000644000000000000000000003610412421456623013345 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dff.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfF.c * Purpose: C stubs for Fortran low level routines * Invokes: dfF.c * Contents: * dfiopen: call DFopen to open HDF file * dfclose: call DFclose to close HDF file * dfdesc: call DFdescriptors to get contents of DDs * dfdup: call DFdup to create additional DD for item * dfdel: call DFdel to delete DD of item * dfiaccess: call DFaccess to set up access to item * dfstart: call DFaccess to set up access to item * dfread: call DFread to read part of item * dfseek: call DFseek to move to offset within item * dfwrite: call DFwrite to write part of item * dfupdate: call DFupdate to write out changes * dfget: call DFgetelement to read item * dfput: call DFputelement to write item * dfsfind: call DFsetfind to set up search * dffind: call DFfind to find next matching item * dferrno: call DFerrno to return value of DFerror * dfnewref: call DFnewref to get unused ref no * dfnumber: call DFnumber to get number of occurrances of given tag * dfstat: call DFstat to get status info on file * dfiishdf: call DFishdf to get HDF string *---------------------------------------------------------------------------*/ #include "df.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: dfiopen * Purpose: call DFopen to open HDF file * Inputs: name: name of file to open * acc_mode: access mode - integer with value DFACC_READ etc. * defdds: default number of DDs per header block * namelen: length of name * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFopen * Method: Convert filename to C string, call DFopen * Note: DFopen actually return *DF. In machines that a pointer * is bigger than a Fortran INTEGER, this routine would fail. * This is a design error and has no easy portable solution. *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfiopen(_fcd name, intf * acc_mode, intf * defdds, intf * namelen) { char *fn; intf ret; fn = DFIf2cstring(name, (intn) *namelen); /* For compiler warning, see note above. */ ret = (intf) DFopen(fn, (intn) *acc_mode, (intn) *defdds); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dfclose * Purpose: Call DFclose to close HDF file * Inputs: dfile: pointer to HDF file to close * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFclose *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfclose(intf * dfile) { return (DFclose((DF *) * dfile)); } /*----------------------------------------------------------------------------- * Name: dfdesc * Purpose: Call DFdescriptors to obtain descriptors * Inputs: dfile: pointer to HDF file * ptr: pointer to array of size >= (4, num) to put descriptors in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFdesc *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfdesc(intf * dfile, intf ptr[][4], intf * begin, intf * num) { CONSTR(FUNC, "dfdesc"); DFdesc *ptr1; int i; intf num_desc; /* allocate temporary space */ if ((ptr1 = (DFdesc *) HDmalloc((uint32) *num * sizeof(DFdesc))) == NULL) HRETURN_ERROR(DFE_NOSPACE, -1); ; num_desc = DFdescriptors((DF *) * dfile, ptr1, (intn) *begin, (intn) *num); /* copy ptr1 array ptr; note row/column inversion */ for (i = 0; i < num_desc; i++) { ptr[i][0] = (int32) ptr1[i].tag; ptr[i][1] = (int32) ptr1[i].ref; ptr[i][2] = ptr1[i].offset; ptr[i][3] = ptr1[i].length; } HDfree((VOIDP) ptr1); return (num_desc); } /*----------------------------------------------------------------------------- * Name: dfdup * Purpose: Call DFdup to create additional DD for item * Inputs: dfile: pointer to HDF file * tag, ref: attributes of new DD to add * otag, oref: attributes of item to point to * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFdup *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfdup(intf * dfile, intf * tag, intf * ref, intf * otag, intf * oref) { return (DFdup((DF *) * dfile, (uint16) *tag, (uint16) *ref, (uint16) *otag, (uint16) *oref)); } /*----------------------------------------------------------------------------- * Name: dfdel * Purpose: Call DFdel to delete DD of item * Inputs: dfile: pointer to HDF file * tag, ref: attributes of DD to delete * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFdel *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfdel(intf * dfile, intf * tag, intf * ref) { return (DFdel((DF *) * dfile, (uint16) *tag, (uint16) *ref)); } /*----------------------------------------------------------------------------- * Name: dfiaccess * Purpose: Call DFaccess to set up access to item * Inputs: dfile: pointer to HDF file * tag, ref: attributes of item to access * acc_mode: access mode * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFaccess *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfiaccess(intf * dfile, intf * tag, intf * ref, _fcd acc_mode, intf * acclen) { char *acc; intf ret; acc = DFIf2cstring(acc_mode, (intn) *acclen); ret = (intf) DFaccess((DF *) * dfile, (uint16) *tag, (uint16) *ref, acc); HDfree((VOIDP) acc); return (ret); } #if 0 /*----------------------------------------------------------------------------- * Name: dfstart * Purpose: Call DFaccess to set up access to item * Inputs: dfile: pointer to HDF file * tag, ref: attributes of item to access * acc_mode: access mode * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFaccess *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfstart(intf * dfile, intf * tag, intf * ref, char *acc_mode) { return (DFaccess((DF *) * dfile, (uint16) *tag, (uint16) *ref, acc_mode)); } #endif /* 0 */ /*----------------------------------------------------------------------------- * Name: dfread * Purpose: Call DFread to read part of item * Inputs: dfile: pointer to HDF file * ptr: pointer to space to read item into * len: number of bytes to read * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFread *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfread(intf * dfile, _fcd ptr, intf * len) { return (DFread((DF *) * dfile, (char *) _fcdtocp(ptr), *len)); } /*----------------------------------------------------------------------------- * Name: dfseek * Purpose: Call DFseek to move to offset within item * Inputs: dfile: pointer to HDF file * offset: number of bytes from beginning of item to move to * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFseek *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfseek(intf * dfile, intf * offset) { return (DFseek((DF *) * dfile, *offset)); } /*----------------------------------------------------------------------------- * Name: dfwrite * Purpose: Call DFwrite to write part of item * Inputs: dfile: pointer to HDF file * ptr: pointer to data to write * len: number of bytes to write * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFwrite *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfwrite(intf * dfile, _fcd ptr, intf * len) { return (DFwrite((DF *) * dfile, (char *) _fcdtocp(ptr), *len)); } /*----------------------------------------------------------------------------- * Name: dfupdate * Purpose: Call DFupdate to write out changes * Inputs: dfile: pointer to HDF file * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFupdate *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfupdate(intf * dfile) { return (DFupdate((DF *) * dfile)); } /*----------------------------------------------------------------------------- * Name: dfget * Purpose: Call DFget to read an element * Inputs: dfile: pointer to HDF file * tag, ref: pointer to item to read * ptr: space to read item into * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFgetelement *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfget(intf * dfile, intf * tag, intf * ref, _fcd ptr) { return (DFgetelement((DF *) * dfile, (uint16) *tag, (uint16) *ref, (char *) _fcdtocp(ptr))); } /*----------------------------------------------------------------------------- * Name: dfput * Purpose: Call DFput to write an element * Inputs: dfile: pointer to HDF file * tag, ref: attributes of item to write * ptr: item to write * len: size of item * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFputelement *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfput(intf * dfile, intf * tag, intf * ref, _fcd ptr, intf * len) { return (DFputelement((DF *) * dfile, (uint16) *tag, (uint16) *ref, (char *) _fcdtocp(ptr), *len)); } /*----------------------------------------------------------------------------- * Name: dfsfind * Purpose: Call DFsetfind to set up search * Inputs: dfile: pointer to HDF file * tag, ref: attributes of item to find * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFsetfind *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsfind(intf * dfile, intf * tag, intf * ref) { return (DFsetfind((DF *) * dfile, (uint16) *tag, (uint16) *ref)); } /*----------------------------------------------------------------------------- * Name: dffind * Purpose: Call DFfind to find next match * Inputs: dfile: pointer to HDF file * itag, iref: attributes of item found * len: size of item * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFfind *---------------------------------------------------------------------------*/ FRETVAL(intf) ndffind(intf * dfile, intf * itag, intf * iref, intf * len) { CONSTR(FUNC, "dffind"); DFdesc *ptr1; intf ret; ptr1 = (DFdesc *) HDmalloc((uint32) sizeof(DFdesc)); if (ptr1 == NULL) HRETURN_ERROR(DFE_NOSPACE, -1); ret = DFfind((DF *) * dfile, ptr1); *itag = (int32) (ptr1->tag); *iref = (int32) (ptr1->ref); *len = ptr1->length; HDfree((VOIDP) ptr1); return (ret); } /*----------------------------------------------------------------------------- * Name: dferrno * Purpose: Call DFerrno to get value of DFerror * Inputs: none * Returns: value of DFerror * Users: HDF Fortran programmers * Invokes: DFerrno *---------------------------------------------------------------------------*/ FRETVAL(intf) ndferrno(void) { return (DFerrno()); } /*----------------------------------------------------------------------------- * Name: dfnewref * Purpose: Call DFnewref to get unused ref no * Inputs: dfile: pointer to HDF file * Returns: int16: unused ref no * Users: HDF Fortran programmers * Invokes: DFnewref *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfnewref(intf * dfile) { return ((intf)DFnewref((DF *) * dfile)); } /*----------------------------------------------------------------------------- * Name: dfnumber * Purpose: Call DFnumber to get unused ref no * Inputs: dfile: pointer to HDF file * tag: pointer to (int16)tag to count * Returns: int: number of occurances of given tag * Users: HDF Fortran programmers * Invokes: DFnumber *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfnumber(intf * dfile, intf * tag) { return (DFnumber((DF *) * dfile, (uint16) *tag)); } /*----------------------------------------------------------------------------- * Name: dfstat * Purpose: Call DFstat to get staus info on file * Inputs: dfile: pointer to HDF file * dfinfo: pointer to DFdata structure to fill in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFstat *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfstat(intf * dfile, DFdata * dfinfo) { return (DFstat((DF *) * dfile, dfinfo)); } /*----------------------------------------------------------------------------- * Name: dfiishdf * Purpose: Call DFishdf to test file * Inputs: name: name of file to test * namelen: pointer to variable containing length of name string * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFishdf *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfiishdf(_fcd name, intf * namelen) { char *fn; intf ret; fn = DFIf2cstring(name, (intn) *namelen); ret = DFishdf(fn); HDfree((VOIDP) fn); return (ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/df24.c0000644000000000000000000003746212421456623013355 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4924 $"; #endif /* $Id: df24.c 4924 2007-09-05 21:55:40Z fbaker $ */ /*----------------------------------------------------------------------------- * File: df24.c * Purpose: read and write 24-bit raster images * Invokes: dfgr.c * Contents: * DF24getdims: - get dimensions of image * DF24reqil: - use this interlace when returning image * DF24getimage: - read in image * DF24setdims: - set dimensions of image * DF24setil: - set interlace of image to write next * DF24setcompress: - set the compression to use when writing out next image * DF24restart: - restart looking for 24-bit images in a file * DF24addimage: - append image to file * DF24putimage: - write image to a file * DF24readref: - set ref of 24-bit RIG to get next * DF24lastref: - return reference number of last RIG read or written * DF24nimages: - get number of images in file * Missing: * DF24writeref: set ref of 24-bit RIG to write next * * Remarks: A RIG specifies attributes associated with an image- lookup table, * dimension, compression, color compensation etc. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfgr.h" static intn Newdata = 0; /* does Readrig contain fresh data? */ static intn dimsset = 0; /* have dimensions been set? */ static int32 last_xdim = 0; static int32 last_ydim = 0; /* .....gheesh......... */ #define LUT 0 #define IMAGE 1 /*-------------------------------------------------------------------------- NAME DF24getdims -- get dimensions of next image RIG USAGE intn DF24getdims(filename,pxdim,pydim,pil) char *filename; IN: the file to get retrieve dims. from int32 *pxdim,*pydim; OUT: ptrs to the X&Y dims retrieved intn *pil; OUT: ptr to the interlace for the image RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Gets the next image's dimensions and interlace from the file specified. GLOBAL VARIABLES last_xdim, last_ydim, Newdata COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24getdims(const char *filename, int32 *pxdim, int32 *pydim, intn *pil) { CONSTR(FUNC, "DF24getdims"); intn ncomps; intn ret_value = SUCCEED; do { if (DFGRIgetdims(filename, pxdim, pydim, &ncomps, pil, IMAGE) < 0) HGOTO_ERROR(DFE_NODIM, FAIL); } while (ncomps != 3); last_xdim = *pxdim; last_ydim = *pydim; Newdata = 1; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DF24getdims() */ /*-------------------------------------------------------------------------- NAME DF24reqil -- get next image with specified interlace USAGE intn DF24reqil(il) intn il; IN: the interlace requested for the next image RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Requests that the next image be returned in a particular interlace scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24reqil(intn il) { intn ret_value; ret_value = (DFGRIreqil(il, IMAGE)); return ret_value; } /* end DF24reqil() */ /*-------------------------------------------------------------------------- NAME DF24getimage -- get image from next RIG USAGE intn DF24getimage(filename,image,xdim,ydim) char *filename; IN: file name to retrieve image from void * image; OUT: buffer to store image in int32 xdim,ydim; IN: dimensions of image buffer RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Retrieves the next 24-bit image from a file. The image is stored according to the current interlace scheme and is wedged into the upper left corner of the buffer. GLOBAL VARIABLES Newdata, last_xdim, last_ydim COMMENTS, BUGS, ASSUMPTIONS image buffer is assumed to be 3*xdim*ydim bytes in size. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24getimage(const char *filename, void * image, int32 xdim, int32 ydim) { CONSTR(FUNC, "DF24getimage"); intn il; int32 tx, ty; int compressed, has_pal; uint16 compr_type; intn ret_value = SUCCEED; HEclear(); if (!filename || !*filename || !image || (xdim <= 0) || (ydim <= 0)) HGOTO_ERROR(DFE_ARGS, FAIL); if (!Newdata && DF24getdims(filename, &tx, &ty, &il) == FAIL) HGOTO_ERROR(DFE_NODIM, FAIL); if (Newdata) { tx = last_xdim; ty = last_ydim; } /* end if */ if ((tx > xdim) || (ty > ydim)) HGOTO_ERROR(DFE_BADDIM, FAIL); ret_value = DFGRIgetimlut(filename, image, xdim, ydim, IMAGE, 0, &compressed, &compr_type, &has_pal); Newdata = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DF24getimage() */ /*-------------------------------------------------------------------------- NAME DF24setdims -- set dimensions of image to write next USAGE intn DF24setdims(xdim,ydim) int32 xdim,ydim; IN: the dimensions of the image to write next RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the dimensions of the next image to write to a file. GLOBAL VARIABLES dimsset COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24setdims(int32 xdim, int32 ydim) { intn ret_value; dimsset = 1; ret_value = (DFGRIsetdims(xdim, ydim, 3, IMAGE)); return ret_value; } /* end DF24setdims() */ /*-------------------------------------------------------------------------- NAME DF24setil -- set interlace of image to write next USAGE intn DF24setil(il) intn il; IN: the interlace of the image to write next RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the interlace of the next image to write to a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24setil(intn il) { intn ret_value; ret_value = (DFGRIsetil(il, IMAGE)); return ret_value; } /* end DF24setil() */ /*-------------------------------------------------------------------------- NAME DF24setcompress -- set compression scheme for next 24-bit image USAGE intn DF24setcompress(type,cinfo) int32 type; IN: compression scheme for next image comp_info *cinfo; IN: additional compression information for certain compression schemes (currently only JPEG) RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the compression scheme of the next image to write to a file. A list of the different schemes may be found in the hcomp.h header file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24setcompress(int32 type, comp_info * cinfo) { intn ret_value; ret_value = (DFGRsetcompress(type, cinfo)); return ret_value; } /* end DF24setcompress() */ /*-------------------------------------------------------------------------- NAME DF24restart -- restart access to a file USAGE intn DF24restart(void) RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Restarts access to a file through the DF24 interface. Next read/write will start with the first 24-bit image in the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24restart(void) { intn ret_value; ret_value = (DFGRIrestart()); return ret_value; } /* end DF24restart() */ /*-------------------------------------------------------------------------- NAME DF24addimage -- append 24-bit image to file USAGE intn DF24addimage(filename,image,xdim,ydim) char *filename; IN: name of HDF file to write to void * image; IN: Pointer to image data int32 xdim,ydim; IN: Dimensions of image to write RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Appends a 24-bit raster image to an HDF file. Will create the file if it doesn't exist. GLOBAL VARIABLES dimsset COMMENTS, BUGS, ASSUMPTIONS Array image is assumed to be xdim * ydim * 3 bytes EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24addimage(const char *filename, const void * image, int32 xdim, int32 ydim) { CONSTR(FUNC, "DF24addimage"); intn ret_value = SUCCEED; /* 0 == C */ if (!dimsset && DFGRIsetdims(xdim, ydim, 3, IMAGE) == FAIL) HGOTO_ERROR(DFE_BADDIM, FAIL); dimsset = 0; /* reset to new rig */ ret_value = (DFGRIaddimlut(filename, image, xdim, ydim, IMAGE, 0, 0)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DF24addimage() */ /*-------------------------------------------------------------------------- NAME DF24putimage -- write 24-bit image to file USAGE intn DF24addimage(filename,image,xdim,ydim) char *filename; IN: name of HDF file to write to void * image; IN: Pointer to image data int32 xdim,ydim; IN: Dimensions of image to write RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Writes a 24-bit raster image to a new HDF file. Will overwrite existing files if they exist. GLOBAL VARIABLES dimsset COMMENTS, BUGS, ASSUMPTIONS Array image is assumed to be xdim * ydim * 3 bytes EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24putimage(const char *filename, const void * image, int32 xdim, int32 ydim) { CONSTR(FUNC, "DF24putimage"); intn ret_value = SUCCEED; /* 0 == C */ if (!dimsset && DFGRIsetdims(xdim, ydim, 3, IMAGE) == FAIL) HGOTO_ERROR(DFE_BADDIM, FAIL); dimsset = 0; /* reset to new rig */ ret_value = (DFGRIaddimlut(filename, image, xdim, ydim, IMAGE, 0, 1)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DF24putimage() */ /*-------------------------------------------------------------------------- NAME DF24nimages -- determines number of 24-bit raster images in a file USAGE intn DF24nimages(filename) char *filename; IN: name of HDF file to check RETURNS Number of images on success, FAIL on failure. DESCRIPTION Determines the number of unique 24-bit raster images in a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24nimages(const char *filename) { CONSTR(FUNC, "DF24nimages"); int32 file_id; int32 group_id; /* group ID for looking at RIG's */ uint16 elt_tag, elt_ref; /* tag/ref of items in a RIG */ intn nimages; /* total number of potential images */ uint16 find_tag, find_ref; /* storage for tag/ref pairs found */ int32 find_off, find_len; /* storage for offset/lengths of tag/refs found */ uint8 GRtbuf[64]; /* local buffer to read the ID element into */ intn ret_value = SUCCEED; HEclear(); /* should use reopen if same file as last time - more efficient */ if ((file_id = DFGRIopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* go through the RIGs looking for 24-bit images */ nimages = 0; find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_RIG, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { /* read RIG into memory */ if ((group_id = DFdiread(file_id, DFTAG_RIG, find_ref)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); while (!DFdiget(group_id, &elt_tag, &elt_ref)) { /* get next tag/ref */ if (elt_tag == DFTAG_ID) { /* just look for ID tags to get the number of components */ if (Hgetelement(file_id, elt_tag, elt_ref, GRtbuf) != FAIL) { uint16 uint16var; int32 temp; /* temporary holding variable */ int16 ncomponents; /* number of image components */ uint8 *p; p = GRtbuf; INT32DECODE(p, temp); INT32DECODE(p, temp); UINT16DECODE(p, uint16var); UINT16DECODE(p, uint16var); INT16DECODE(p, ncomponents); if (ncomponents == 3) /* whew, all that work and we finally found a 24-bit image */ nimages++; } /* end if */ else { DFdifree(group_id); HGOTO_ERROR(DFE_GETELEM, FAIL); } } /* end if */ } /* end while */ } /* end while */ if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); ret_value = nimages; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DF24nimages() */ /*-------------------------------------------------------------------------- NAME DF24readref -- set ref # of 24-bit RIG to read next USAGE intn DF24readref(filename,ref) char *filename; IN: name of HDF file uint16 ref; IN: ref # of next 24-bit RIG to read RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the ref # of the next 24-bit RIG to read from a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DF24readref(const char *filename, uint16 ref) { intn ret_value; ret_value = (DFGRreadref(filename, ref)); return ret_value; } /* end DF24readref() */ /*-------------------------------------------------------------------------- NAME DF24lastref -- return ref # of last read/written 24-bit RIG USAGE uint16 DF24lastref(void) RETURNS Last ref # on success, 0 on failure. DESCRIPTION Returns the last ref # of a 24-bit RIG read to or written from a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint16 DF24lastref(void) { uint16 ret_value; ret_value = (DFGRIlastref()); return ret_value; } /* end DF24lastref() */ libhdf4-4.2.10/HDF_ALT/hdf/src/atom.c0000644000000000000000000005067212421456623013554 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5028 $"; #endif /* $Id: atom.c 5028 2008-01-27 16:49:37Z bmribler $ */ /* FILE atom.c - Internal storage routines for handling "atoms" REMARKS Atoms are just ID's which allow objects (void *'s currently) to be bundled into "groups" for more general storage. DESIGN The groups are stored in an array of pointers to store each group in an element. Each "atomic group" node contains a link to a hash table to manage the atoms in each group. The allowed "atomic groups" are stored in an enum (called group_t) in atom.h. BUGS/LIMITATIONS Can't interate over the atoms in a group. LOCAL ROUTINES HAIfind_atom - Returns a pointer to an atom_info_t from a atom ID HAIget_atom_node - Gets an atom node (uses the atom free list) HAIrelease_atom_node - Releases an atom node (uses the atom free list) EXPORTED ROUTINES Atom Functions: HAregister_atom - Register an object in a group and get an atom for it HAatom_object - Get the object for an atom HAatom_group - Get the group for an atom HAremove_atom - Remove an atom from a group HAsearch_atom - Search a group for a particular object Atom Group Functions: HAinit_group - Initialize a group to store atoms in HAdestroy_group - Destroy an atomic group Atom Group Cleanup: HAshutdown - Terminate various static buffers. AUTHOR Quincey Koziol MODIFICATION HISTORY 1/3/96 - Starting writing specs & coding prototype 1/7/96 - Finished coding prototype */ #define ATOM_MASTER #include "hdf.h" #include "atom.h" #include /* Private function prototypes */ static atom_info_t *HAIfind_atom(atom_t atm); static atom_info_t *HAIget_atom_node(void); static void HAIrelease_atom_node(atom_info_t *atm); /****************************************************************************** NAME HAinit_group - Initialize an atomic group DESCRIPTION Creates a global atomic group to store atoms in. If the group has already been initialized, this routine just increments the count of # of initializations and returns without trying to change the size of the hash table. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HAinit_group(group_t grp, /* IN: Group to initialize */ intn hash_size /* IN: Minimum hash table size to use for group */ ) { CONSTR(FUNC, "HAinit_group"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ intn ret_value=SUCCEED; HEclear(); if((grp<=BADGROUP || grp>=MAXGROUP) && hash_size>0) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef ATOMS_CACHE_INLINE /* Assertion necessary for faster pointer swapping */ assert(sizeof(hdf_pint_t)==sizeof(void *)); #endif /* ATOMS_CACHE_INLINE */ #ifdef HASH_SIZE_POWER_2 if(hash_size & (hash_size-1)) HGOTO_ERROR(DFE_ARGS, FAIL); #endif /* HASH_SIZE_POWER_2 */ if(atom_group_list[grp]==NULL) { /* Allocate the group information */ grp_ptr=(atom_group_t *)HDcalloc(1,sizeof(atom_group_t)); if(grp_ptr==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); atom_group_list[grp]=grp_ptr; } /* end if */ else /* Get the pointer to the existing group */ grp_ptr=atom_group_list[grp]; if(grp_ptr->count==0) { /* Initialize the atom group structure */ grp_ptr->hash_size=hash_size; grp_ptr->atoms=0; grp_ptr->nextid=0; if((grp_ptr->atom_list=(atom_info_t **)HDcalloc(hash_size,sizeof(atom_info_t *)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ /* Increment the count of the times this group has been initialized */ grp_ptr->count++; done: if(ret_value == FAIL) { /* Error condition cleanup */ if(grp_ptr!=NULL) { if(grp_ptr->atom_list!=NULL) HDfree(grp_ptr->atom_list); HDfree(grp_ptr); } /* end if */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAinit_group() */ /****************************************************************************** NAME HAdestroy_group - Destroy an atomic group DESCRIPTION Destroys an atomic group which atoms are stored in. If the group still has atoms which are registered, this routine fails. If there have been multiple initializations of the group, this routine just decrements the count of initializations and does not check the atoms out-standing. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn HAdestroy_group(group_t grp /* IN: Group to destroy */ ) { CONSTR(FUNC, "HAdestroy_group"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ intn ret_value=SUCCEED; HEclear(); if(grp<=BADGROUP || grp>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); grp_ptr=atom_group_list[grp]; if(grp_ptr==NULL || grp_ptr->count<=0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Decrement the number of users of the atomic group */ if((--(grp_ptr->count))==0) { #ifdef ATOMS_ARE_CACHED { uintn i; for(i=0; iatom_list); grp_ptr->atom_list = NULL; } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAdestroy_group() */ /****************************************************************************** NAME HAregister_atom - Register an object in a group and get an atom for it. DESCRIPTION Registers an object in a group and returns an atom for it. This routine does _not_ check for unique-ness of the objects, if you register an object twice, you will get two different atoms for it. This routine does make certain that each atom in a group is unique. Atoms are created by getting a unique number for the group the atom is in and incorporating the group into the atom which is returned to the user. RETURNS Returns atom if successful and FAIL otherwise *******************************************************************************/ atom_t HAregister_atom(group_t grp, /* IN: Group to register the object in */ VOIDP object /* IN: Object to attach to atom */ ) { CONSTR(FUNC, "HAregister_atom"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ atom_info_t *atm_ptr=NULL; /* ptr to the new atom */ atom_t atm_id; /* new atom ID */ uintn hash_loc; /* new item's hash table location */ atom_t ret_value=SUCCEED; HEclear(); if(grp<=BADGROUP || grp>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); grp_ptr=atom_group_list[grp]; if(grp_ptr==NULL || grp_ptr->count<=0) HGOTO_ERROR(DFE_INTERNAL, FAIL); if((atm_ptr=HAIget_atom_node())==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Create the atom & it's ID */ atm_id=MAKE_ATOM(grp,grp_ptr->nextid); atm_ptr->id=atm_id; atm_ptr->obj_ptr=object; atm_ptr->next=NULL; /* hash bucket already full, prepend to front of chain */ hash_loc=grp_ptr->nextid%(uintn)grp_ptr->hash_size; if(grp_ptr->atom_list[hash_loc]!=NULL) atm_ptr->next=grp_ptr->atom_list[hash_loc]; /* Insert into the group */ grp_ptr->atom_list[hash_loc]=atm_ptr; grp_ptr->atoms++; grp_ptr->nextid++; ret_value=atm_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAregister_atom() */ /****************************************************************************** NAME HAatom_object - Returns to the object ptr for the atom DESCRIPTION Retrieves the object ptr which is associated with the atom. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ #ifdef ATOMS_CACHE_INLINE VOIDP HAPatom_object(atom_t atm /* IN: Atom to retrieve object for */ ) #else /* ATOMS_CACHE_INLINE */ VOIDP HAatom_object(atom_t atm /* IN: Atom to retrieve object for */ ) #endif /* ATOMS_CACHE_INLINE */ { CONSTR(FUNC, "HAatom_object"); /* for HERROR */ #ifndef ATOMS_CACHE_INLINE #ifdef ATOMS_ARE_CACHED uintn i; /* local counter */ #endif /* ATOMS_ARE_CACHED */ #endif /* ATOMS_CACHE_INLINE */ atom_info_t *atm_ptr=NULL; /* ptr to the new atom */ VOIDP ret_value=NULL; HEclear(); #ifndef ATOMS_CACHE_INLINE #ifdef ATOMS_ARE_CACHED /* Look for the atom in the cache first */ for(i=0; i0) { /* Implement a simple "move forward" caching scheme */ atom_t t_atom=atom_id_cache[i-1]; VOIDP t_obj=atom_obj_cache[i-1]; atom_id_cache[i-1]=atom_id_cache[i]; atom_obj_cache[i-1]=atom_obj_cache[i]; atom_id_cache[i]=t_atom; atom_obj_cache[i]=t_obj; } /* end if */ HGOTO_DONE(ret_value); } /* end if */ #endif /* ATOMS_ARE_CACHED */ #endif /* ATOMS_CACHE_INLINE */ /* General lookup of the atom */ if((atm_ptr=HAIfind_atom(atm))==NULL) HGOTO_ERROR(DFE_INTERNAL, NULL); /* Check if we've found the correct atom */ if(atm_ptr!=NULL) ret_value=atm_ptr->obj_ptr; done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAatom_object() */ /****************************************************************************** NAME HAatom_group - Returns to the group for the atom DESCRIPTION Retrieves the group which is associated with the atom. RETURNS Returns group if successful and BADGROUP otherwise *******************************************************************************/ group_t HAatom_group(atom_t atm /* IN: Atom to retrieve group for */ ) { CONSTR(FUNC, "HAatom_group"); /* for HERROR */ group_t ret_value=BADGROUP; HEclear(); ret_value=ATOM_TO_GROUP(atm); if(ret_value<=BADGROUP || ret_value>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, BADGROUP); done: if(ret_value == BADGROUP) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAatom_group() */ /****************************************************************************** NAME HAremove_atom - Removes an atom from a group DESCRIPTION Removes an atom from a group. RETURNS Returns atom's object if successful and NULL otherwise *******************************************************************************/ VOIDP HAremove_atom(atom_t atm /* IN: Atom to remove */ ) { CONSTR(FUNC, "HAremove_atom"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ atom_info_t *curr_atm, /* ptr to the current atom */ *last_atm; /* ptr to the last atom */ group_t grp; /* atom's atomic group */ uintn hash_loc; /* atom's hash table location */ #ifdef ATOMS_ARE_CACHED uintn i; /* local counting variable */ #endif /* ATOMS_ARE_CACHED */ VOIDP ret_value=NULL; HEclear(); grp=ATOM_TO_GROUP(atm); if(grp<=BADGROUP || grp>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, NULL); grp_ptr=atom_group_list[grp]; if(grp_ptr==NULL || grp_ptr->count<=0) HGOTO_ERROR(DFE_INTERNAL, NULL); /* Get the location in which the atom is located */ hash_loc=(uintn)ATOM_TO_LOC(atm,grp_ptr->hash_size); curr_atm=grp_ptr->atom_list[hash_loc]; if(curr_atm==NULL) HGOTO_ERROR(DFE_INTERNAL, NULL); last_atm=NULL; while(curr_atm!=NULL) { if(curr_atm->id==atm) break; last_atm=curr_atm; curr_atm=curr_atm->next; } /* end while */ if(curr_atm!=NULL) { if(last_atm==NULL) /* atom is the first the chain */ grp_ptr->atom_list[hash_loc]=curr_atm->next; else last_atm->next=curr_atm->next; ret_value=curr_atm->obj_ptr; HAIrelease_atom_node(curr_atm); } /* end if */ else /* couldn't find the atom in the proper place */ HGOTO_ERROR(DFE_INTERNAL, NULL); #ifdef ATOMS_ARE_CACHED /* Delete object from cache */ for(i=0; iatoms)--; done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAremove_atom() */ /****************************************************************************** NAME HAsearch_atom - Search for an object in a group and get it's pointer. DESCRIPTION Searchs for an object in a group and returns the pointer to it. This routine calls the function pointer passed in for each object in the group until it finds a match. Currently there is no way to resume a search. RETURNS Returns pointer an atom's object if successful and NULL otherwise *******************************************************************************/ void * HAsearch_atom(group_t grp, /* IN: Group to search for the object in */ HAsearch_func_t func, /* IN: Ptr to the comparison function */ const void * key /* IN: pointer to key to compare against */ ) { CONSTR(FUNC, "HAsearch_atom"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ atom_info_t *atm_ptr=NULL; /* ptr to the new atom */ intn i; /* local counting variable */ void * ret_value=NULL; HEclear(); if(grp<=BADGROUP || grp>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, NULL); grp_ptr=atom_group_list[grp]; if(grp_ptr==NULL || grp_ptr->count<=0) HGOTO_ERROR(DFE_INTERNAL, NULL); /* Start at the beginning of the array */ for(i=0; ihash_size; i++) { atm_ptr=grp_ptr->atom_list[i]; while(atm_ptr!=NULL) { if((*func)(atm_ptr->obj_ptr,key)) HGOTO_DONE(atm_ptr->obj_ptr); /* found the item we are looking for */ atm_ptr=atm_ptr->next; } /* end while */ } /* end for */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAsearch_atom() */ /****************************************************************************** NAME HAIfind_atom - Finds a atom in a group DESCRIPTION Retrieves the atom ptr which is associated with the atom. RETURNS Returns atom ptr if successful and NULL otherwise *******************************************************************************/ static atom_info_t *HAIfind_atom(atom_t atm /* IN: Atom to retrieve atom for */ ) { CONSTR(FUNC, "HAIfind_atom"); /* for HERROR */ atom_group_t *grp_ptr=NULL; /* ptr to the atomic group */ atom_info_t *atm_ptr=NULL; /* ptr to the new atom */ group_t grp; /* atom's atomic group */ uintn hash_loc; /* atom's hash table location */ atom_info_t *ret_value=NULL; HEclear(); grp=ATOM_TO_GROUP(atm); if(grp<=BADGROUP || grp>=MAXGROUP) HGOTO_ERROR(DFE_ARGS, NULL); grp_ptr=atom_group_list[grp]; if(grp_ptr==NULL || grp_ptr->count<=0) HGOTO_ERROR(DFE_INTERNAL, NULL); /* Get the location in which the atom is located */ hash_loc=(uintn)ATOM_TO_LOC(atm,grp_ptr->hash_size); atm_ptr=grp_ptr->atom_list[hash_loc]; if(atm_ptr==NULL) HGOTO_ERROR(DFE_INTERNAL, NULL); while(atm_ptr!=NULL) { if(atm_ptr->id==atm) break; atm_ptr=atm_ptr->next; } /* end while */ ret_value=atm_ptr; #ifdef ATOMS_ARE_CACHED atom_id_cache[ATOM_CACHE_SIZE-1]=atm; atom_obj_cache[ATOM_CACHE_SIZE-1]=atm_ptr->obj_ptr; #endif /* ATOMS_ARE_CACHED */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAIfind_atom() */ /****************************************************************************** NAME HAIget_atom_node - Gets an atom node DESCRIPTION Either gets an atom node from the free list (if there is one available) or allocate a node. RETURNS Returns atom ptr if successful and NULL otherwise *******************************************************************************/ static atom_info_t *HAIget_atom_node(void) { CONSTR(FUNC, "HAIget_atom_node"); /* for HERROR */ atom_info_t *ret_value=NULL; HEclear(); if(atom_free_list!=NULL) { ret_value=atom_free_list; atom_free_list=atom_free_list->next; } /* end if */ else { if((ret_value=(atom_info_t *)HDmalloc(sizeof(atom_info_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HAIget_atom_node() */ /****************************************************************************** NAME HAIrelease_atom_node - Releases an atom node DESCRIPTION Puts an atom node into the free list RETURNS No return value *******************************************************************************/ static void HAIrelease_atom_node(atom_info_t *atm) { #ifdef LATER CONSTR(FUNC, "HAIrelease_atom_node"); /* for HERROR */ #endif /* LATER */ /* Insert the atom at the beginning of the free list */ atm->next=atom_free_list; atom_free_list=atm; } /* end HAIrelease_atom_node() */ /*-------------------------------------------------------------------------- NAME HAshutdown PURPOSE Terminate various static buffers. USAGE intn HAshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the HA routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HAshutdown(void) { atom_info_t *curr; intn i; /* Release the free-list if it exists */ if(atom_free_list!=NULL) { while(atom_free_list!=NULL) { curr=atom_free_list; atom_free_list=atom_free_list->next; HDfree(curr); } /* end while */ } /* end if */ for(i=0; i<(intn)MAXGROUP; i++) if(atom_group_list[i]!=NULL) { HDfree(atom_group_list[i]); atom_group_list[i]=NULL; } /* end if */ return (SUCCEED); } /* end HAshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/cnbit.c0000644000000000000000000007454012421456623013713 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: cnbit.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE cnbit.c HDF N-bit encoding I/O routines REMARKS DESIGN EXPORTED ROUTINES None of these routines are designed to be called by other users except for the modeling layer of the compression routines. AUTHOR Quincey Koziol MODIFICATION HISTORY 10/10/93 Starting writing specs & coding prototype */ /* General HDF includes */ #include "hdf.h" #define CNBIT_MASTER #define CODER_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* Internal Defines */ /* #define TESTING */ /* Local Variables */ static const uint8 mask_arr8[9] = { /* array of values with [n] bits set */ 0x00, 0x01, 0x03, 0x07, 0x0F, 0x1F, 0x3F, 0x7F, 0xFF }; static const uint32 mask_arr32[33] = { /* array of values with [n] bits set */ 0x00000000, 0x00000001, 0x00000003, 0x00000007, 0x0000000F, 0x0000001F, 0x0000003F, 0x0000007F, 0x000000FF, 0x000001FF, 0x000003FF, 0x000007FF, 0x00000FFF, 0x00001FFF, 0x00003FFF, 0x00007FFF, 0x0000FFFF, 0x0001FFFF, 0x0003FFFF, 0x0007FFFF, 0x000FFFFF, 0x001FFFFF, 0x003FFFFF, 0x007FFFFF, 0x00FFFFFF, 0x01FFFFFF, 0x03FFFFFF, 0x07FFFFFF, 0x0FFFFFFF, 0x1FFFFFFF, 0x3FFFFFFF, 0x7FFFFFFF, 0xFFFFFFFFUL }; /* declaration of the functions provided in this module */ PRIVATE int32 HCIcnbit_staccess (accrec_t * access_rec, int16 acc_mode); PRIVATE int32 HCIcnbit_init (accrec_t * access_rec); PRIVATE int32 HCIcnbit_decode (compinfo_t * info, int32 length, uint8 *buf); PRIVATE int32 HCIcnbit_encode (compinfo_t * info, int32 length, const uint8 *buf); PRIVATE int32 HCIcnbit_term (compinfo_t * info); /*-------------------------------------------------------------------------- NAME HCIcnbit_init -- Initialize a N-bit compressed data element. USAGE int32 HCIcnbit_init(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcnbit_staccess and HCIcnbit_seek GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnbit_init(accrec_t * access_rec) { CONSTR(FUNC, "HCIcnbit_init"); compinfo_t *info; /* special element information */ comp_coder_nbit_info_t *nbit_info; /* ptr to N-bit info */ intn bits; /* number of bits in number type */ intn top_bit, bot_bit; /* bits around a range of bytes */ intn mask_top, mask_bot; /* top and bottom bits in mask */ intn i; /* local counting variable */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("HCIcnbit_init(): info=%p\n", info); #endif if (Hbitseek(info->aid, 0, 0) == FAIL) /* seek to beginning of element */ HRETURN_ERROR(DFE_SEEKERROR, FAIL); #ifdef TESTING printf("HCIcnbit_init(): after seek call\n"); printf("HCIcnbit_init(): 0.1 - coder_func.write=%p\n", info->cinfo.coder_funcs.write); #endif nbit_info = &(info->cinfo.coder_info.nbit_info); /* Initialize N-bit state information */ nbit_info->buf_pos = NBIT_BUF_SIZE; /* start at the beginning of the buffer */ nbit_info->nt_pos = 0; /* start at beginning of the NT info */ nbit_info->offset = 0; /* offset into the file */ #ifdef TESTING printf("HCIcnbit_init(): 0.4 - coder_func.write=%p\n", info->cinfo.coder_funcs.write); #endif HDmemset(nbit_info->mask_buf, (nbit_info->fill_one == TRUE ? 0xff : 0), nbit_info->nt_size); #ifdef TESTING printf("HCIcnbit_init(): 0.5 - fill_one=%d, sign_ext=%d\n", (int) nbit_info->fill_one, (int) nbit_info->sign_ext); #endif bits = nbit_info->nt_size * 8; /* compute # of bits */ mask_top = nbit_info->mask_off; /* compute top and bottom ends of mask */ mask_bot = nbit_info->mask_off - (nbit_info->mask_len - 1); top_bit = bits - 1; /* set the initial top and bottom bits */ bot_bit = bits - 8; #ifdef TESTING printf("HCIcnbit_init(): 0.6 - mask_top=%d, mask_bot=%d, bits=%d, top_bit=%d, bot_bit=%d\n", mask_top, mask_bot, bits, top_bit, bot_bit); #endif HDmemset(nbit_info->mask_info, 0, sizeof(nbit_info->mask_info)); /* set to 0 */ #ifdef TESTING printf("HCIcnbit_init(): before init'ing mask, nt_size=%d\n", nbit_info->nt_size); printf("HCIcnbit_init(): 1 - coder_func.write=%p\n", info->cinfo.coder_funcs.write); #endif for (i = 0; i < nbit_info->nt_size; i++) { /* initialize the bitmask info */ #ifdef TESTING printf("HCIcnbit_init(): i=%d, mask_top=%d, mask_bot=%d, top_bit=%d, bot_bit=%d\n", i, mask_top, mask_bot, top_bit, bot_bit); #endif if (mask_top >= top_bit) { /* mask offset is above current top bit */ if (mask_bot <= bot_bit) { /* entire byte is in mask */ nbit_info->mask_info[i].offset = 7; nbit_info->mask_info[i].length = 8; nbit_info->mask_info[i].mask = mask_arr8[8]; } /* end if */ else { /* only top part of byte is in mask */ nbit_info->mask_info[i].offset = 7; nbit_info->mask_info[i].length = (top_bit - mask_bot) + 1; nbit_info->mask_info[i].mask = (uint8) (mask_arr8[(top_bit - mask_bot) + 1] << (8 - ((top_bit - mask_bot) + 1))); break; /* we've found the bottom of the mask, we're done */ } /* end else */ } /* end if */ else { /* mask top is below current top bit */ if (mask_top >= bot_bit) { /* mask top is inside current byte */ if (mask_bot < bot_bit) { /* mask top to bottom of byte is in mask */ nbit_info->mask_info[i].offset = mask_top - bot_bit; nbit_info->mask_info[i].length = (mask_top - bot_bit) + 1; nbit_info->mask_info[i].mask = mask_arr8[(mask_top - bot_bit) + 1]; } /* end if */ else { /* entire bit-field is inside of this byte */ nbit_info->mask_info[i].offset = mask_top - bot_bit; nbit_info->mask_info[i].length = (mask_top - mask_bot) + 1; nbit_info->mask_info[i].mask = (uint8) (mask_arr8[(mask_top - mask_bot) + 1] << (mask_bot - bot_bit)); break; /* we've found the bottom of the mask, we're done */ } /* end else */ } /* end if */ else /* mask top is below bottom bit, just continue */ { } } /* end else */ top_bit -= 8; /* decrement location in fill mask */ bot_bit -= 8; } /* end for */ #ifdef TESTING printf("HCIcnbit_init(): after init'ing mask\n"); printf("HCIcnbit_init(): 2 - coder_func.write=%p\n", info->cinfo.coder_funcs.write); #endif /* mask to 0 the bits where the bit-field will go */ if (nbit_info->fill_one == TRUE) { for (i = 0; i < nbit_info->nt_size; i++) nbit_info->mask_buf[i] &= ~(nbit_info->mask_info[i].mask); } /* end if */ #ifdef TESTING printf("HCIcnbit_init(): successful\n"); printf("HCIcnbit_init(): 3 - coder_func.write=%p\n", info->cinfo.coder_funcs.write); #endif return (SUCCEED); } /* end HCIcnbit_init() */ /*-------------------------------------------------------------------------- NAME HCIcnbit_decode -- Decode n-bit data into a buffer. USAGE int32 HCIcnbit_decode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to read into the buffer uint8 *buf; OUT: buffer to store the bytes read RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to decode n-bit data from the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnbit_decode(compinfo_t * info, int32 length, uint8 *buf) { CONSTR(FUNC, "HCIcnbit_decode"); comp_coder_nbit_info_t *nbit_info; /* ptr to n-bit info */ int32 orig_length; /* original length to write */ uint32 input_bits; /* bits read from the file */ uint32 sign_mask, /* mask to get the sign bit */ sign_ext_mask; /* mask for sign extension */ intn sign_byte, /* byte which contains the sign bit */ sign_bit = 0; /* the sign bit from the n_bit data */ nbit_mask_info_t *mask_info; /* ptr to the mask info */ intn copy_length; /* number of bytes to copy */ intn buf_size, /* size of the expansion buffer to use */ buf_items; /* number of items which will fit into expansion buffer */ uint8 *rbuf, *rbuf2; /* pointer into the n-bit read buffer */ intn i, j; /* local counting variable */ /* get a local ptr to the nbit info for convenience */ nbit_info = &(info->cinfo.coder_info.nbit_info); #ifdef TESTING printf("HCIcnbit_decode(): nbit_info=%p\n", nbit_info); #endif /* calculate sign extension information */ sign_ext_mask = ~mask_arr32[nbit_info->mask_off % 8]; /* sign mask has all 1's in upper bits */ sign_byte = nbit_info->nt_size - ((nbit_info->mask_off / 8) + 1); sign_mask = mask_arr32[(nbit_info->mask_off % 8) + 1] ^ mask_arr32[nbit_info->mask_off % 8]; #ifdef TESTING printf("HCInbit_decode(): sign_ext=%d,sign_ext_mask=%lx, sign_byte=%d, sign_mask=%lx\n", nbit_info->sign_ext, (unsigned long) sign_ext_mask, (int) sign_byte, (unsigned long) sign_mask); printf("HCInbit_decode(): file_one=%d\n", nbit_info->fill_one); for (j = 0; j < nbit_info->nt_size; j++) printf("HCInbit_decode(): j=%d, mask=%x, offset=%d, length=%d\n", j, (unsigned) nbit_info->mask_info[j].mask, (int) nbit_info->mask_info[j].offset, (int) nbit_info->mask_info[j].length); #endif buf_size = MIN(NBIT_BUF_SIZE, length); buf_items = buf_size / nbit_info->nt_size; /* compute # of items in buffer */ orig_length = length; /* save this for later */ while (length > 0) { /* decode until we have all the bytes */ #ifdef TESTING printf("HCInbit_decode(): length=%d, buf=%p, buf_items=%d\n", length, buf, buf_items); #endif if (nbit_info->buf_pos >= buf_size) { /* re-fill buffer */ rbuf = (uint8 *) nbit_info->buffer; /* get a ptr to the buffer */ /* get initial copy of the mask */ HDmemfill(rbuf, nbit_info->mask_buf, (uint32)nbit_info->nt_size, (uint32)buf_items); for (i = 0; i < buf_items; i++) { /* get a ptr to the mask info for convenience also */ mask_info = &(nbit_info->mask_info[0]); if (nbit_info->sign_ext) { /* special code for expanding sign extended data */ #ifdef TESTING printf("HCInbit_decode(): sign extending\n"); #endif rbuf2 = rbuf; /* set temporary pointer into buffer */ for (j = 0; j < nbit_info->nt_size; j++, mask_info++, rbuf2++) { if (mask_info->length > 0) { /* check if we need to read bits */ Hbitread(info->aid, mask_info->length, &input_bits); input_bits <<= (mask_info->offset - mask_info->length) + 1; *rbuf2 |= (uint8)(mask_info->mask & (uint8)input_bits); if (j == sign_byte) /* check if this is the sign byte */ sign_bit = sign_mask & input_bits ? 1 : 0; } /* end if */ } /* end for */ #ifdef TESTING printf("HCInbit_decode(): i=%d, sign_bit=%d, input_bits=%x\n", i, sign_bit, input_bits); #endif /* we only have to sign extend if the sign is not the same */ /* as the bit we are filling the n-bit data with */ if (sign_bit != nbit_info->fill_one) { rbuf2 = rbuf; /* set temporary pointer into buffer */ if (sign_bit == 1) { /* fill with ones */ for (j = 0; j < sign_byte; j++, rbuf2++) *rbuf2 = 0xff; *rbuf2 |= (uint8)sign_ext_mask; } /* end if */ else { /* fill with zeroes */ for (j = 0; j < sign_byte; j++, rbuf2++) *rbuf2 = 0x00; *rbuf2 &= (uint8)~sign_ext_mask; } /* end else */ } /* end if */ rbuf += nbit_info->nt_size; /* increment buffer ptr */ } /* end if */ else { /* no sign extension */ #ifdef TESTING printf("HCInbit_decode(): NO sign extention\n"); #endif for (j = 0; j < nbit_info->nt_size; j++, mask_info++, rbuf++) { if (mask_info->length > 0) { /* check if we need to read bits */ if (Hbitread(info->aid, mask_info->length, &input_bits) != mask_info->length) HRETURN_ERROR(DFE_CDECODE, FAIL); #ifdef TESTING printf("HCInbit_decode(): input_bits=%d\n", (int) input_bits); #endif *rbuf |= (uint8)(mask_info->mask & (uint8)(input_bits << ((mask_info->offset - mask_info->length) + 1))); #ifdef TESTING printf("HCInbit_decode(): j=%d, length=%d, *rbuf=%x\n", j, mask_info->length, (unsigned) *rbuf); #endif } /* end if */ } /* end for */ } /* end else */ } /* end for */ nbit_info->buf_pos = 0; /* reset buffer position */ } /* end if */ copy_length = (intn) ((length > (buf_size - nbit_info->buf_pos)) ? (buf_size - nbit_info->buf_pos) : length); HDmemcpy(buf, &(nbit_info->buffer[nbit_info->buf_pos]), copy_length); buf += copy_length; length -= copy_length; nbit_info->buf_pos += copy_length; } /* end for */ nbit_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcnbit_decode() */ /*-------------------------------------------------------------------------- NAME HCIcnbit_encode -- Encode data from a buffer into n-bit data USAGE int32 HCIcnbit_encode(info,length,buf) compinfo_t *info; IN: the info about the compressed element int32 length; IN: number of bytes to store from the buffer const uint8 *buf; OUT: buffer to get the bytes from RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to encode n-bit data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnbit_encode(compinfo_t * info, int32 length, const uint8 *buf) { #ifdef LATER CONSTR(FUNC, "HCIcnbit_encode"); #endif comp_coder_nbit_info_t *nbit_info; /* ptr to n-bit info */ int32 orig_length; /* original length to write */ uint32 output_bits; /* bits to write to the file */ nbit_mask_info_t *mask_info; /* ptr to the mask info */ /* get a local ptr to the nbit info for convenience */ nbit_info = &(info->cinfo.coder_info.nbit_info); #ifdef TESTING printf("HCIcnbit_encode(): nbit_info=%p, length=%d, buf=%p\n", nbit_info, length, buf); #endif /* get a ptr to the mask info for convenience also */ mask_info = &(nbit_info->mask_info[nbit_info->nt_pos]); orig_length = length; /* save this for later */ for (; length > 0; length--, buf++) { /* encode until we store all the bytes */ #ifdef TESTING printf("HCIcnbit_encode(): length=%d, buf=%p, nt_pos=%d\n", length, buf, nbit_info->nt_pos); printf("HCIcnbit_encode(): mask->length=%d, offset=%d, mask=%x\n", mask_info->length, mask_info->offset, mask_info->mask); #endif if (mask_info->length > 0) { /* check if we need to output bits */ output_bits = (uint32)(((*buf) & (mask_info->mask)) >> ((mask_info->offset - mask_info->length) + 1)); #ifdef TESTING printf("HCIcnbit_encode(): output_bits=%x\n", (unsigned) output_bits); #endif Hbitwrite(info->aid, mask_info->length, output_bits); } /* end if */ /* advance to the next mask position */ mask_info++; /* advance buffer offset and check for wrap */ if ((++nbit_info->nt_pos) >= nbit_info->nt_size) { nbit_info->nt_pos = 0; /* reset to beginning of buffer */ mask_info = nbit_info->mask_info; /* reset ptr to masks also */ } /* end if */ } /* end for */ nbit_info->offset += orig_length; /* incr. abs. offset into the file */ return (SUCCEED); } /* end HCIcnbit_encode() */ /*-------------------------------------------------------------------------- NAME HCIcnbit_term -- Flush any data left to the dataset USAGE int32 HCIcnbit_term(info) compinfo_t *info; IN: the info about the compressed element RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called to flush n-bit data into a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnbit_term(compinfo_t * info) { #ifdef LATER CONSTR(FUNC, "HCIcnbit_term"); #endif /* shut compiler up */ info = info; #ifdef TESTING printf("HCPcnbit_term(): func called\n"); #endif return (SUCCEED); } /* end HCIcnbit_term() */ /*-------------------------------------------------------------------------- NAME HCIcnbit_staccess -- Start accessing a N-bit data element. USAGE int32 HCIcnbit_staccess(access_rec, access) accrec_t *access_rec; IN: the access record of the data element int16 access; IN: the type of access wanted RETURNS Returns SUCCEED or FAIL DESCRIPTION Common code called by HCIcnbit_stread and HCIcnbit_stwrite GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 HCIcnbit_staccess(accrec_t * access_rec, int16 acc_mode) { CONSTR(FUNC, "HCIcnbit_staccess"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("HCIcnbit_staccess(): info=%p, ref=%d\n", info, (int) info->comp_ref); #endif if (acc_mode == DFACC_READ) info->aid = Hstartbitread(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref); else info->aid = Hstartbitwrite(access_rec->file_id, DFTAG_COMPRESSED, info->comp_ref, info->length); if (info->aid == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); if ((acc_mode&DFACC_WRITE) && Hbitappendable(info->aid) == FAIL) HRETURN_ERROR(DFE_DENIED, FAIL); #ifdef TESTING printf("HCIcnbit_staccess(): info->aid=%d, coder_func.write=%p\n", info->aid, info->cinfo.coder_funcs.write); #endif return (HCIcnbit_init(access_rec)); /* initialize the N-bit info */ } /* end HCIcnbit_staccess() */ /*-------------------------------------------------------------------------- NAME HCPclre_stread -- start read access for compressed file USAGE int32 HCPmstdio_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using a simple RLE scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnbit_stread"); int32 ret; if ((ret = HCIcnbit_staccess(access_rec, DFACC_READ)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcnbit_stread() */ /*-------------------------------------------------------------------------- NAME HCPclre_stwrite -- start write access for compressed file USAGE int32 HCPmstdio_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using a simple RLE scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnbit_stwrite"); int32 ret; #ifdef TESTING printf("HCPcnbit_stwrite(): entering\n"); #endif if ((ret = HCIcnbit_staccess(access_rec, DFACC_WRITE)) == FAIL) HRETURN_ERROR(DFE_CINIT, FAIL); return (ret); } /* HCPcnbit_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPcnbit_seek -- Seek to offset within the data element USAGE int32 HCPcnbit_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPcnbit_seek"); compinfo_t *info; /* special element information */ comp_coder_nbit_info_t *nbit_info; /* ptr to n-bit info */ int32 bit_offset; /* offset of the bit to seek to */ /* shut compiler up */ origin = origin; info = (compinfo_t *) access_rec->special_info; nbit_info = &(info->cinfo.coder_info.nbit_info); /* only seek to an even multiple of the NT-sized elements in the dataset */ if (offset % nbit_info->nt_size != 0) HRETURN_ERROR(DFE_CSEEK, FAIL); bit_offset = (offset / nbit_info->nt_size) * nbit_info->mask_len; if (Hbitseek(info->aid, bit_offset / 8, (intn) (bit_offset % 8)) == FAIL) HRETURN_ERROR(DFE_CSEEK, FAIL); nbit_info->buf_pos = NBIT_BUF_SIZE; /* force re-read if writing */ nbit_info->nt_pos = 0; /* start at the first byte of the mask */ nbit_info->offset = offset; /* set abs. offset into the file */ return (SUCCEED); } /* HCPcnbit_seek() */ /*-------------------------------------------------------------------------- NAME HCPclre_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPcnbit_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a RLE compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPcnbit_read"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; if (HCIcnbit_decode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CDECODE, FAIL); return length; } /* HCPcnbit_read() */ /*-------------------------------------------------------------------------- NAME HCPcnbit_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPwrite(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a RLE compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPcnbit_write"); compinfo_t *info; /* special element information */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("HCPcnbit_write(): before HCIcnbit_encode() call\n"); #endif if (HCIcnbit_encode(info, length, data) == FAIL) HRETURN_ERROR(DFE_CENCODE, FAIL); #ifdef TESTING printf("HCPcnbit_write(): after HCIcnbit_encode() call\n"); #endif return (length); } /* HCPcnbit_write() */ /*-------------------------------------------------------------------------- NAME HCPclre_inquire -- Inquire information about the access record and data element. USAGE int32 HCPcnbit_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPcnbit_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { /* shut compiler up */ access_rec = access_rec; pfile_id = pfile_id; ptag = ptag; pref = pref; plength = plength; poffset = poffset; pposn = pposn; paccess = paccess; pspecial = pspecial; return (SUCCEED); } /* HCPcnbit_inquire() */ /*-------------------------------------------------------------------------- NAME HCPcnbit_endaccess -- Close the compressed data element USAGE intn HCPnbit_endaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free modelling info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPcnbit_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPcnbit_endaccess"); compinfo_t *info; /* special element information */ #ifdef TESTING printf("HCPcnbit_endaccess(): entering\n"); #endif info = (compinfo_t *) access_rec->special_info; /* flush out n-bit buffer */ if (access_rec->access&DFACC_WRITE) if (HCIcnbit_term(info) == FAIL) HRETURN_ERROR(DFE_CTERM, FAIL); #ifdef TESTING printf("HCPcnbit_endaccess(): before Hendbitaccess call\n"); #endif /* close the n-bit data AID */ if (Hendbitaccess(info->aid, 0) == FAIL) HRETURN_ERROR(DFE_CANTCLOSE, FAIL); #ifdef TESTING printf("HCPcnbit_endaccess(): after Hendbitaccess call\n"); #endif return (SUCCEED); } /* HCPcnbit_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfr8ff.f0000644000000000000000000002754712421456623014003 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfr8ff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: dfr8Ff.f C Purpose: Fortran stubs for Fortran RIS routines C Invokes: dfr8F.c C Contents: C d8gdims : call d8igdim to get dimensions of next image C d8gimg : call d8igimg to get next image C d8pimg : call d8ipimg to put image to new file C d8aimg : call d8iaimg to add image to existing file C d8nims : call d8inims to get number of images in the file C d8wref : call d8iwref to set ref for the next write of image C d8rref : call d8irref to set ref for the next read of image C dfr8getdims : call d8igdim to get dimensions of next image C dfr8getimage : call d8igimg to get next image C dfr8putimage : call d8ipimg to put image to new file C dfr8addimage : call d8iaimg to add image to existing file C dfr8nimages : call d8inims to get the number of images in the file C dfr8writeref : call d8iwref to set ref for the next write of image C dfr8readref : call d8iref to set ref for the next read of image C ----------------------------------------------------------------------------- C------------------------------------------------------------------------------ C Name: d8gdims C Purpose: call d8igdim to get dimensions of next image C Inputs: name: name of HDF file C xdim, ydim: integers to return dimensions of image C ispal: integer to return whether a palette is associated C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8igdim C------------------------------------------------------------------------------ integer function d8gdims(name, xdim, ydim, ispal) character*(*) name integer xdim, ydim, ispal, d8igdim d8gdims = d8igdim(name, xdim, ydim, ispal, len(name)) return end C------------------------------------------------------------------------------ C Name: d8gimg C Purpose: call d8igimg to get next image C Inputs: name: name of HDF file C image: space to return image in C xdim, ydim: dimensions of space to return image in C pal: 768-byte space to return palette in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8igimg C------------------------------------------------------------------------------ integer function d8gimg(name, image, xdim, ydim, pal) character*(*) name character image(*), pal(*) integer xdim, ydim, d8igimg d8gimg = d8igimg(name,image,xdim,ydim,pal,len(name)) return end C------------------------------------------------------------------------------ C Name: d8pimg C Purpose: call d8ipimg to write image to new file C Inputs: name: name of HDF file C image: space containing image C xdim, ydim: dimensions of image C compress: compression scheme to be used C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8ipimg C------------------------------------------------------------------------------ integer function d8pimg(name, image, xdim, ydim, compress) character*(*) name character image(*) integer xdim, ydim, compress, d8ipimg d8pimg=d8ipimg(name,image,xdim,ydim,compress,len(name)) return end C------------------------------------------------------------------------------ C Name: d8aimg C Purpose: call d8iaimg to add image to existing file C Inputs: name: name of HDF file C image: space containing image C xdim, ydim: dimensions of image C compress: compression scheme to be used C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8iaimg C------------------------------------------------------------------------------ integer function d8aimg(name, image, xdim, ydim, compress) character*(*) name character image(*) integer xdim, ydim, compress, d8iaimg d8aimg=d8iaimg(name,image,xdim,ydim,compress,len(name)) return end C----------------------------------------------------------------------------- C Name: d8rref C Purpose: Set ref of image to get next C Inputs: filename: file to which this applies C ref: reference number of next get C Returns: 0 on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8irref C Remarks: checks if image with this ref exists C----------------------------------------------------------------------------- integer function d8rref(name, ref) character*(*) name integer ref integer d8irref d8rref = d8irref(name, ref, len(name)) return end CEND7MAX C----------------------------------------------------------------------- C Name: d8nims C Purpose: How many images are present in this file C Inputs: filename: file to which this applies C Returns: number of images on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8inims C Remarks: C----------------------------------------------------------------------- integer function d8nims(filename) character*(*) filename integer d8inims d8nims = d8inims(filename, len(filename)) return end C----------------------------------------------------------------------- C Name: d8wref C Purpose: Set ref of image to put next C Inputs: name: file to which this applies C ref: reference number of next put C Returns: 0 on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8iwref C Remarks: checks if image with this ref exists C----------------------------------------------------------------------- integer function d8wref(name, ref) character*(*) name integer ref integer d8iwref d8wref = d8iwref(name, ref, len(name)) return end C------------------------------------------------------------------------------ C Name: dfr8getdims C Purpose: call d8igdim to get dimensions of next image C Inputs: name: name of HDF file C xdim, ydim: integers to return dimensions of image C ispal: integer to return whether a palette is associated C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8igdim C------------------------------------------------------------------------------ integer function dfr8getdims(name, xdim, ydim, ispal) character*(*) name integer xdim, ydim, ispal, d8igdim dfr8getdims = d8igdim(name, xdim, ydim, ispal, len(name)) return end C------------------------------------------------------------------------------ C Name: dfr8getimage C Purpose: call d8igimg to get next image C Inputs: name: name of HDF file C image: space to return image in C xdim, ydim: dimensions of space to return image in C pal: 768-byte space to return palette in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8igimg C------------------------------------------------------------------------------ integer function dfr8getimage(name, image, xdim, ydim, pal) character*(*) name character image(*), pal(*) integer xdim, ydim, d8igimg dfr8getimage = d8igimg(name,image,xdim,ydim,pal,len(name)) return end C------------------------------------------------------------------------------ C Name: dfr8putimage C Purpose: call d8ipimg to write image to new file C Inputs: name: name of HDF file C image: space containing image C xdim, ydim: dimensions of image C compress: compression scheme to be used C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8ipimg C------------------------------------------------------------------------------ integer function dfr8putimage(name, image, xdim, ydim, compress) character*(*) name character image(*) integer xdim, ydim, compress, d8ipimg dfr8putimage=d8ipimg(name,image,xdim,ydim,compress,len(name)) return end C------------------------------------------------------------------------------ C Name: dfr8addimage C Purpose: call d8iaimg to add image to existing file C Inputs: name: name of HDF file C image: space containing image C xdim, ydim: dimensions of image C compress: compression scheme to be used C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: d8iaimg C------------------------------------------------------------------------------ integer function dfr8addimage(name, image, xdim, ydim, compress) character*(*) name character image(*) integer xdim, ydim, compress, d8iaimg dfr8addimage=d8iaimg(name,image,xdim,ydim,compress,len(name)) return end C----------------------------------------------------------------------------- C Name: dfr8readref C Purpose: Set ref of image to get next C Inputs: filename: file to which this applies C ref: reference number of next get C Returns: 0 on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8irref C Remarks: checks if image with this ref exists C----------------------------------------------------------------------------- integer function dfr8readref(name, ref) character*(*) name integer ref integer d8irref dfr8readref = d8irref(name, ref, len(name)) return end C----------------------------------------------------------------------- C Name: dfr8writeref C Purpose: Set ref of image to put next C Inputs: filename: file to which this applies C ref: reference number of next put C Returns: 0 on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8iwref C Remarks: checks if image with this ref exists C----------------------------------------------------------------------- integer function dfr8writeref(filename, ref) character*(*) filename integer ref integer d8iwref dfr8writeref = d8iwref(filename, ref, len(filename)) return end C----------------------------------------------------------------------- C Name: dfr8nimages C Purpose: How many images are present in this file C Inputs: filename: file to which this applies C Returns: number of images on success, -1 on failure C Users: HDF programmers, other routines and utilities C Invokes: d8inims C Remarks: C----------------------------------------------------------------------- integer function dfr8nimages(filename) character*(*) filename integer d8inims dfr8nimages = d8inims(filename, len(filename)) return end libhdf4-4.2.10/HDF_ALT/hdf/src/hchunks.c0000644000000000000000000050170712421456623014257 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5830 $"; #endif /* $Id: hchunks.c 5830 2012-07-19 09:08:48Z bmribler $ */ /*LINTLIBRARY */ /* ------------------------------ HMCxxx ------------------------------- Routines to implement chunked elements via a Vdatas for the chunk table and using a new data tag DFTAG_CHUNK to represent each chunk object. As a result the *total* number of chunks for all the chunked elements in an HDF file can only be as large as sizeof(uint16) = 65,536(i.e. number of refs). This layer only has to deal with Chunks from a STDIO programming model as this how special elements are viewed by other API's in the library. The layers above deal with the more complex issues of deciding what data to read/write next given the users request. This layer basically chunks the element from a stream of bytes. Note that this is different than if the layer was integrated with say the SDS layer. NOTE: GeorgeV's standard Disclaimer . I was coerced to do it this way....:-) If you break it .....you fix it... Description of file format headers for chunked element ------------------------------------------------------ A chunked element is a special element. Special elements are flagged with a set high-bit in their tag. Thus, a tag t has BASETAG == t & 0x7f and is a special tag if t & 0x80 != 0x00 The first 16 bits of the meta-element that this tag/ref points to tells us what type of special element this is. If these 16 bits is SPECIAL_CHUNKED, then it contains information about the chunked element. After this 16 bits, 32 bit which is the length of each chunk, after which is the information header: File Description of Chunked Element **************************************** NOTE: I know some of the fields could be 1 byte instead of 4 bytes but I decided to make them 4 to allow the fields to change their behaviour in the future.....i.e some could hold tag/refs.. DD for Chunked Element pointing to Chunked Description Record(12 byes ) ======================================================================= <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- |extended tag | reference # | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V CHUNKED DESCRIPTION RECORD(6 + 9 + 12 + 8 + 12 x ndims + 4 + fill_val_len + 'specialness' bytes) > 52 bytes ============================================================================ <- 2 bytes -> <- 4 bytes -> (6 bytes) -------------------------------- |sp_tag_desc |sp_tag_head_len | ... cont'd -------------------------------- <-1 byte-> <- 4 bytes -> <- 4bytes -> ( 9 bytes) ------------------------------------------ | version | flag | elm_tot_length |... cont'd ------------------------------------------ <- 4 bytes -> <- 4 bytes -> <- 2 bytes -> <- 2 bytes -> (12 bytes) --------------------------------------------------------- ...| chunk_size | nt_size | chk_tbl_tag | chk_tbl_ref | ...cont'd --------------------------------------------------------- <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> (8 bytes) ---------------------------------------- ...| sp_tag | sp_ref | ndims | ...cont'd ---------------------------------------- <- 4 bytes -> <- 4 bytes -> <- 4 bytes -> (12 x ndims bytes) -------------------------------------------- ...| flag | dim_length | chunk_length | ... x Number of dimensions -------------------------------------------- <- 4 bytes -> <- variable bytes -> ------------------------------------------ ...| fill_val_num_bytes | fill value...... | ...(optional cont'd) ------------------------------------------ Optinal number of these depending on multiple 'specialness' set in 'flag' field. <- 2 byte -> <- 4 bytes -> <- variable bytes -> (6 + variable bytes) -------------------------------------------------------- ...| sp_tag_desc | sp_tag_header len | sp_tag_header......|... -------------------------------------------------------- Fields ------ sp_tag_desc - SPECIAL_CHUNKED(16 bit constant), identifies this as a chunked element description record sp_tag_head_len - length of this special element header only.(4 bytes) Does not include length of header with additional 'specialness' headers. NOTE: This is done to make this header layout similiar to the multiple 'specialiness' layout. version - version info (8 bit field) flag - bit field to set additional specialness (32 bit field) only bottom 8bits used for now. elem_tot_len - Valid logical Length of the entire element(4 bytes) The logical physical length is this value multiplied by 'nt_size'. The actual physical length used for storage can be greater than the dataset size due to ghost areas in chunks. Partial chunks are not distinguished from regular chunks. chunk_size - logical size of data chunks(4 bytes) nt_size - Number type size i.e size of data type (4 bytes) chk_tbl_tag - Tag of chunk table i.e. Vdata (2 bytes) chk_tbl_ref - Reference number of the chunk table i.e. Vdata (2 bytes) sp_tag - For future use i.e. special table for 'ghost' chunks(2 bytes) sp_ref - For future use(2 bytes) ndims - number of dimensions for the chunked element.(4 bytes) file_val_num_bytes - number of bytes in fill value (4 bytes) fill value - fill value (variable bytes) Fields for each dimension: (12 x ndims bytes) -------------------------------------- flag - (32 bit field) |High 8bits|Medium High 8bits|Medium Low 8bit|Low 8bits| o distrib_type (Low 8 bits, bits 0-7) - type of data distribution along this dimension 0x00->None, 0x01->Block Currently only block distribution is supported but this is not checked or verified for now. o other (Medium Low 8 bits, bits 7-15) 0x00->Regular dimension, 0x01->UNLIMITED dimension dim_length - current length of this dimension. (4 bytes) chunk_length - length of the chunk along this dimension (4 bytes) Fields for each additional 'specialness' (Optional) ------------------------------------------- sp_tag_desc - SPECIAL_xxx(16 bit constant), identifies this as a 'xxx' element description record .(16 bit field) sp_tag_header_len - length of special element header(4 bytes) sp_tag_header - special header.(variable bytes) Chunk Table(variable bytes per record in Vdata due to size of origin) ==================================================================== <- variable bytes -> <- 2 bytes -> <- 2 bytes -> ------------------------------------------------- | origin | chunk_tag | chunk_ref_1 | ------------------------------------------------- - - - N is number of - - - chunk records - - - in Vdata ------------------------------------------------- | origin | chunk_tag | chunk_ref_N | ------------------------------------------------- \______________/ __________________________________________| V <- 2 bytes -> <- 2 bytes -> <- 4 bytes -> <- 4bytes -> -------------------------------------------------------- | DFTAG_CHUNK | chunk_ref_N | Offset | Length | -------------------------------------------------------- \______________/ __________________________________________| V ----------------------- | Data_chunk | ----------------------- Note: The "Length" here is specified by "chk_size" x "nt_size". Fields ------ origin - specifies the coordinates of the chunk in the overall chunk array. (variable field, depends on number of dimensions of chunked element). chunk_tag - DFTAG_CHUNK for now(could be another chunked element to allow recursive chunked elements(DFTAG_CHUNKED)) (16 bit field) chunk_ref - Reference number of chunk itself (16 bit field) EXPORTED ROUTINES ================= User Public ----------- HMCcreate -- create a chunked element HMCwriteChunk -- write out the specified chunk to a chunked element HMCreadChunk -- read the specified chunk from a chunked element HMCsetMaxcache -- maximum number of chunks to cache HMCPcloseAID -- close file but keep AID active (For Hnextread()) Library Private --------------- HMCPstread -- open an access record for reading HMCPstwrite -- open an access record for writing HMCPseek -- set the seek posn HMCPchunkread -- read a single chunk out of a chunked element HMCPread -- read some data out of a chunked element HMCPchunkwrite -- write out a single chunk to a chunked element HMCPwrite -- write out some data to a chunked element HMCPinquire -- Hinquire for chunked element HMCPendacess -- close a chunked element AID HMCPinfo -- return info about a chunked element HMCPgetnumrecs -- get the number of records in a chunked element TBBT helper rotuines ------------------- chkcompare -- comprares 2 chunk records chkfreekey -- frees chunk key chkdestroynode -- destroys chunk record LOCAL ROUTINES ============== Chunking helper routines ------------------------ create_dim_recs -- create the appropriate arrays in memory update_chunk_indices_seek -- translate seek pos to chunk and pos in chunk compute_chunk_to_seek -- translate chunk coordiantes to seek postion update_chunk_indices -- not used compute_array_to_chunk -- not used calculate_num_to_chunk -- not used compute_chunk_to_array -- translate chunk arrays to user array compute_array_to_seek -- translate user array to user seek position calculate_seek_in_chunk -- translate pos in chunk to seek pos in chunk update_seek_pos_chunk -- update chunk seek array with seek pos in chunk calculate_chunk_num -- translate chunk coordinates to a number calculate_chunk_for_chunk -- calculate number of bytes to operate on chunk Common Routine ------------- HMCIstaccess -- set up AID to access a chunked element AUTHOR ------- -GeorgeV - 9/3/96 */ /* For debugging */ /* #define CHK_DEBUG_1 #define CHK_DEBUG_2 #define CHK_DEBUG_3 #define CHK_DEBUG_4 #define CHK_DEBUG_5 #define CHK_DEBUG_10 */ /* For Statistics from the chunk cache. Note thate 'mache.c' must be compilied with -DSTATISTICS */ /* #define STATISTICS */ #define _HCHUNKS_MAIN_ /* Master chunk handling file */ #include "hdf.h" #include "hfile.h" #include "mcache.h" /* cache */ #include "hchunks.h" /* private functions */ PRIVATE int32 HMCIstaccess(accrec_t * access_rec, /* IN: access record to fill in */ int16 acc_mode /* IN: access mode */ ); /* ------------------------------------------------------------------------- NAME create_dim_recs -- create the appropriate arrays in memory DESCRIPTION Given number of dimensions create the following 3 arrays. 1. Dimension record array contains a record for each dimension. 2. Seek chunk indice array contains the seek postion relative to the logical representation of the chunked array. 3. The seek position chunk array contains the seek postion relative to the chunk itself. 4. The user array contains the users seek postion in the element RETURNS SUCCEED/FAIL AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE int32 create_dim_recs(DIM_REC **dptr, /* OUT: dimension record pointers */ int32 **sbi, /* OUT: seek chunk indices array */ int32 **spb, /* OUT: seek pos w/ chunk array */ int32 **sui, /* OUT: seek user indicies array */ int32 ndims /* IN: number of dimension of element */) { CONSTR(FUNC, "create_dim_recs"); /* for HERROR */ int32 i; int32 ret_value = SUCCEED; /* allocate space for demension records pointers */ if ((*dptr = (DIM_REC *)HDmalloc(sizeof(DIM_REC) * (size_t)ndims)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate space for seek chunk indices and chunk seek positions */ if ((*sbi = (int32 *)HDmalloc(sizeof(int32)*(size_t)ndims)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if ((*spb = (int32 *)HDmalloc(sizeof(int32)*(size_t)ndims)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate space for user seek indicies */ if ((*sui = (int32 *)HDmalloc(sizeof(int32)*(size_t)ndims)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* for each dimension */ for (i = 0; i < ndims; i++) { /* Initialize values for dimension record */ (*dptr)[i].flag = 0; (*dptr)[i].dim_length = 0; (*dptr)[i].chunk_length = 0; (*dptr)[i].distrib_type = 0; (*dptr)[i].unlimited = 0; (*dptr)[i].last_chunk_length = 0; (*dptr)[i].num_chunks = 0; (*sbi)[i] = 0; (*spb)[i] = 0; (*sui)[i] = 0; } /* end for i */ done: if(ret_value == FAIL) { /* Error condition cleanup */ if (*dptr != NULL) HDfree(*dptr); if (*sbi != NULL) HDfree(*sbi); if (*spb != NULL) HDfree(*spb); if (*sui != NULL) HDfree(*sui); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end create_dim_recs() */ /* ------------------------------------------------------------------------- NAME update_chunk_indicies_seek -- translate seek pos to chunk and pos in chunk DESCRIPTION Give seek location within an element, calculate which chunk in chunk array and position within chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void update_chunk_indicies_seek(int32 sloc, /* IN: physical Seek loc in element */ int32 ndims, /* IN: number of dimensions of elem */ int32 nt_size, /* IN: number type size */ int32 *sbi, /* IN: seek chunk indicies array */ int32 *spb, /* IN: seek pos w/ chunk array */ DIM_REC *ddims /* IN: dim record ptrs */) { int32 i; int32 stmp; /* adjust physical seek->logical seek by using number type size */ stmp = sloc / nt_size; #ifdef CHK_DEBUG_1 printf("ucis: sloc=%d, stmp=%d \n", sloc,stmp); #endif for(i = ndims - 1; i >= 0 ; i--) { /* Calculate which chunk index in chunk representation */ sbi[i] = (int32)((stmp % ddims[i].dim_length) / ddims[i].chunk_length); /* calculate starting postion in the chunk itself */ spb[i] = (int32)((stmp % ddims[i].dim_length) % ddims[i].chunk_length); stmp = stmp / ddims[i].dim_length; } /* end for i */ #ifdef CHK_DEBUG_1 printf("ucis: chunk_array =("); for(i = 0; i < ndims; i++) printf("%d%s", sbi[i], i!= ndims-1 ? ",":NULL); printf(")\n"); printf("ucis: chunk_pos_array =("); for(i = 0; i < ndims; i++) printf("%d%s", spb[i], i!= ndims-1 ? ",":NULL); printf(")\n"); #endif } /* update_chunk_indicies_seek()*/ #ifdef UNUSED /* ------------------------------------------------------------------------- NAME compute_chunk_to_seek -- translate chunk coordinates to chunk seek postion DESCRIPTION Calculate new chunk seek postion given seek chunk array and seek postion within that chunk array. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void compute_chunk_to_seek(int32 *chunk_seek, /* OUT: new physical chunk seek pos in element*/ int32 ndims, /* IN: number of dims */ int32 nt_size, /* IN: number type size */ int32 *sbi, /* IN: seek chunk array */ int32 *spb, /* IN; seek pos w/ chunk array */ DIM_REC *ddims, /* IN: dim record ptrs */ int32 chunk_size /* IN: physical size of chunk */) { int32 j; int32 new_seek; int32 l_chunk_size = 0; /* Adjust physical chunk_size -> logical chunk size by size of number type */ l_chunk_size = chunk_size / nt_size; /* Calculate Seek Location in element * First calculste seek-chunk position in element * i.e seek position according to chunk first */ *chunk_seek = sbi[ndims -1]; for(j = ndims - 1; j; j--) { *chunk_seek = (*chunk_seek * ddims[j-1].num_chunks) + sbi[j-1]; } /* must get chunk_size from somewhere else * to give us position in file relative to chunk. * Next comes adjustment of seek for postion inside chunk*/ *chunk_seek *= l_chunk_size; #ifdef CHK_DEBUG_1 printf("ccs: chunk_seek = %d(chunk# %d)\n", *chunk_seek, *chunk_seek/l_chunk_size); #endif /* Calculate seek position in chunk */ new_seek = spb[ndims - 1]; for(j = ndims - 1; j; j--) { new_seek = (new_seek * ddims[j - 1].chunk_length) + spb[j - 1]; } /* add seek position in chunk to seek-chunk offset */ new_seek += *chunk_seek; #ifdef CHK_DEBUG_1 printf("ccs: calculated seek position in file is %d\n", new_seek); #endif /* multiply by number type size to get new physical seek positon */ *chunk_seek = new_seek * nt_size; } /* compute_chunk_to_seek() */ #endif /* UNUSED */ #if 0 /* NOT USED */ /* ------------------------------------------------------------------------- NAME update_chunk_indices DESCRIPTION Given chunk size and current chunk in chunk array and postion within that chunk, update to new chunk in chunk array and postion within the new chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void update_chunk_indices(int32 chunk_size, /* IN: physical size of chunk read/written*/ int32 ndims, /* IN: number of dimensions */ int32 nt_size, /* IN: number type size */ int32 *sbi, /* IN: seek chunk indicies array */ int32 *spb, /* IN: seek pos w/ chunk array */ DIM_REC *ddims /* IN: dim record ptrs */) { int32 change = 1; int32 index = 0; int32 l_chunk_size = 0; #ifdef CHK_DEBUG_1 int32 i; #endif /* Adjust physical chunk_size -> logical chunk size by size of number type */ l_chunk_size = chunk_size / nt_size; #ifdef CHK_DEBUG_1 printf("uci: l_chunk_size=%d \n", l_chunk_size); #endif while(change && index < ndims) { /* add chunk written to current chunk dimension */ spb[index] += l_chunk_size; change = 0; if(spb[index] == ddims[index].chunk_length) { /* we've move to next chunk since we filled the previous one */ #ifdef CHK_DEBUG_1 fprintf(stderr,"uci: going to next chunk along spb[%d] to access\n", index); #endif spb[index] = 0; /* position at beginning of chunk */ if(++(sbi[index]) == ddims[index].num_chunks) { /* we've written to all the chunks in this demension, so reset for this dimension */ #ifdef CHK_DEBUG_1 fprintf(stderr,"uci: accessed all chunks along sbi[%d] so reset \n", index); #endif sbi[index] = 0; change = 1; } index++; /* go to next dimension */ l_chunk_size = 1; } } /* end while "change" */ #ifdef CHK_DEBUG_1 printf("uci : sbi =("); for(i = 0; i < ndims; i++) printf("%d%s", sbi[i], i!= ndims-1 ? ",":NULL); printf(")\n"); printf("uci : spb =("); for(i = 0; i < ndims; i++) printf("%d%s", spb[i], i!= ndims-1 ? ",":NULL); printf(")\n"); #endif } /* update_chunk_indices() */ /* ------------------------------------------------------------------------- NAME compute_array_to_chunk DESCRIPTION Calculate chunk array indicies and position within chunk given user array indicies i.e. translates array postion in user array to position in overall chunk array and within the chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void compute_array_to_chunk(int32 *chunk_indicies, /* OUT: chunk indicies */ int32 *chunk_array_ind,/* OUT: chunk array indices */ int32 *array_indicies, /* IN: array indicies */ int32 ndims, /* IN: number of dims */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; for(j = 0; j < ndims; j++) { /* set postion in overall chunk array */ chunk_indicies[j] = array_indicies[j] / ddims[j].chunk_length; /* set postion within the chunk itself */ chunk_array_ind[j] = array_indicies[j] % ddims[j].chunk_length; } } /* compute_array_to_chunk() */ /* ------------------------------------------------------------------------- NAME calculate_num_to_chunk DESCRIPTION Calculate seek chunk array given chunk number Not implemented RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void calculate_num_to_chunk(int32 chunk_num, /* IN: chunk number within element */ int32 ndims, /* IN: number of dims */ int32 *sbi, /* IN/OUT: seek chunk array */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; int nchunk_num = chunk_num; } /* calculate_num_chunk() */ #endif /* NOT USED */ /* ------------------------------------------------------------------------- NAME compute_chunk_to_array -- translate chunk arrays to user array DESCRIPTION Calculate user array indicies given overall array chunk indicies and position within chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void compute_chunk_to_array(int32 *chunk_indicies, /* IN: chunk indicies */ int32 *chunk_array_ind,/* IN: chunk array indices */ int32 *array_indicies, /* OUT: array indicies */ int32 ndims, /* IN: number of dims */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; for(j = 0; j < ndims; j++) { /* set postion in using overall chunk array */ array_indicies[j] = chunk_indicies[j] * ddims[j].chunk_length; /* set postion using the chunk itself need to adjust for last chunk along each dimension */ if (chunk_indicies[j] == (ddims[j].num_chunks -1)) { /* last chunk along this dimension */ array_indicies[j] += (chunk_array_ind[j] > ddims[j].last_chunk_length)? ddims[j].last_chunk_length : chunk_array_ind[j]; } else /* not last chunk along a dimension */ array_indicies[j] += chunk_array_ind[j]; } #ifdef CHK_DEBUG_1 printf("ccta: array_indicies:("); for (j = 0; j < ndims; j++) printf("%d%s", array_indicies[j], j!= ndims-1 ? ",":NULL); printf(")\n"); #endif } /* compute_chunk_to_array() */ /* ------------------------------------------------------------------------- NAME compute_array_to_seek -- translate user array to user seek position DESCRIPTION Computer user seek postion within element given user array. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void compute_array_to_seek(int32 *user_seek, /* OUT: user seek */ int32 *array_indicies, /* IN: user array indicies */ int32 nt_size, /* IN: number type size */ int32 ndims, /* IN: number of dims */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; int32 cnum; /* Calculate seek position within user array */ *user_seek = array_indicies[ndims - 1]; if (ndims > 1) { cnum = 1; for(j = ndims - 2; j >= 0 ; j--) { cnum *= ddims[j + 1].dim_length; *user_seek += (array_indicies[j] * cnum ); } } /* multiply by number type size to get new physical user seek positon */ *user_seek = *user_seek * nt_size; } /* compute_array_to_seek() */ /* ------------------------------------------------------------------------- NAME calculate_seek_in_chunk -- translate pos in chunk to seek pos in chunk DESCRIPTION Calculate seek postion within chunk RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void calculate_seek_in_chunk(int32 *chunk_seek,/* OUT: new physical seek pos in element*/ int32 ndims, /* IN: number of dims */ int32 nt_size, /* IN: number type size */ int32 *spb, /* IN; seek pos w/ chunk array */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; int32 cnum; /* Calculate seek position within chunk */ *chunk_seek = spb[ndims - 1]; if (ndims > 1) { cnum = 1; for(j = ndims - 2; j >= 0 ; j--) { cnum *= ddims[j + 1].chunk_length; *chunk_seek += (spb[j] * cnum ); } } /* multiply by number type size to get new physical seek positon */ *chunk_seek = *chunk_seek * nt_size; } /* calculate_seek_in_chunk() */ /* ------------------------------------------------------------------------- NAME update_seek_pos_chunk -- update chunk seek array with seek pos in chunk DESCRIPTION Update chunk seek array with seek pos in chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void update_seek_pos_chunk(int32 chunk_seek, /* IN: physical seek pos in chunk */ int32 ndims, /* IN: number of dims */ int32 nt_size, /* IN: number type size */ int32 *spb, /* OUT: seek pos w/ chunk array */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 i; int32 stmp; /* adjust physical seek->logical seek by using number type size */ stmp = chunk_seek / nt_size; for(i = ndims - 1; i >= 0 ; i--) { /* calculate starting postion in the chunk itself */ spb[i] = (int32)(stmp % ddims[i].chunk_length); stmp = stmp / ddims[i].chunk_length; } /* end for i */ #ifdef CHK_DEBUG_1 printf("uspc: spb[] =("); for(i = 0; i < ndims; i++) printf("%d%s", spb[i], i!= ndims-1 ? ",":NULL); printf(")\n"); #endif } /* update_seek_pos_chunk() */ /* ------------------------------------------------------------------------- NAME calculate_chunk_num - translate chunk coordinates to a number DESCRIPTION Calculate new chunk number given seek chunk array and seek postion within that chunk array. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void calculate_chunk_num(int32 *chunk_num, /* OUT: new chunk number within element */ int32 ndims, /* IN: number of dims */ int32 *sbi, /* IN: seek chunk array */ DIM_REC *ddims /* IN: dim record ptrs */ ) { int32 j; int32 cnum; /* Calculate chunk number from overall chunk array indicies */ *chunk_num = sbi[ndims - 1]; if (ndims > 1) { cnum = 1; for(j = ndims - 2; j >= 0 ; j--) { cnum *= ddims[j + 1].num_chunks; *chunk_num += (sbi[j] * cnum ); } } } /* calculate_chunk_num() */ /* ------------------------------------------------------------------------- NAME calculate_chunk_for_chunk - calculate number of bytes to operate on chunk DESCRIPTION Given the length of bytes to operate on and the size of bytes already operated on, calculate how big of chunk can be written to the current chunk. RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ PRIVATE void calculate_chunk_for_chunk(int32 *chunk_size, /* OUT: chunk size for this chunk */ int32 ndims, /* IN: number of dims */ int32 nt_size, /* IN: number type size */ int32 len, /* IN: total length to operate on */ int32 bytes_finished,/* IN: bytes already operted on*/ int32 *sbi, /* IN: seek chunk array */ int32 *spb, /* IN: seek pos w/ chunk array */ DIM_REC *ddims /* IN: dim record ptrs */) { /* Is this the last chunk along fastest changing dimension(i.e. subscript). In future maybe need to handle variable case of any dimension being the fastest. */ if (sbi[ndims - 1] == (ddims[ndims - 1].num_chunks - 1)) { /* last chunk */ /* Calculate size of chunk to write for the last chunk */ if ((ddims[ndims -1].last_chunk_length - spb[ndims - 1]) * nt_size > (len - bytes_finished)) *chunk_size = len - bytes_finished; /* less than a chunk to write */ else /* last full chunk */ *chunk_size = (ddims[ndims - 1].last_chunk_length - spb[ndims -1]) * nt_size; } else /* not the last chunk */ { /* Calculate size of chunk to write in this chunk */ if ((ddims[ndims -1].chunk_length - spb[ndims - 1]) * nt_size > (len - bytes_finished)) *chunk_size = len - bytes_finished; /* less than a chunk to write */ else /* full chunk */ *chunk_size = (ddims[ndims - 1].chunk_length - spb[ndims -1]) * nt_size; } } /* calculate_chunk_for_chunk() */ /* ------------------------------------------------------------------------- NAME chkcompare DESCRIPTION Compares two chunk B-tree keys for equality. Similar to memcmp. *** Only called by B-tree routines, should _not_ be called externally *** RETURNS AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ intn chkcompare(void * k1, /* IN: first key */ void * k2, /* IN: second key */ intn cmparg /* IN: not sure? */) { intn ret_value; /* shut compiler up */ cmparg = cmparg; /* valid for integer keys */ ret_value = ((intn) ((*(int32 *) k1) - (*(int32 *) k2))); return ret_value; } /* chkcompare */ /********* Helper fcns for dealing with chunk table TBBT tree ***************/ /* ------------------------------------------------------------------------- NAME chkfreekey DESCRIPTION Free key - used by tbbt routines *** Only called by B-tree routines, should _not_ be called externally *** RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ void chkfreekey(void * key /*IN: chunk key */ ) { if (key != NULL) HDfree(key); } /* chkfreekey() */ /* ------------------------------------------------------------------------- NAME chkdestroynode DESCRIPTION Frees chunk B-Tree nodes *** Only called by B-tree routines, should _not_ be called externally *** RETURNS Nothing AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ void chkdestroynode(void * n /* IN: chunk record */ ) { CHUNK_REC *t=(CHUNK_REC *)n; if (t != NULL) { /* free orgin first */ if (t->origin != NULL) HDfree(t->origin); /* free chunk record structure */ HDfree((void *) t); } } /* chkdestroynode */ /* ----------------------------- HMCIstaccess ------------------------------ NAME HMCIstaccess -- set up AID to access a chunked elem DESCRIPTION Calls to HMCIstread and HMCIstwrite resolve to this function. Given an active AID fill in all of the special information. If this information has already been read in for a different element use that else we must go out to the HDF file and pull in the information ourselves This routine also creates the chunk cache for the chunked element. The cache is initialzed with the physical size of each chunk, the number of chunks in the object i.e. object size/ chunk size, and the maximum number of chunks to cache in memory. Chunks in the cache are dealt with by their number i.e. translation of 'origin' of chunk to a unique number. The default maximum number of chunks is the cache is set the number of chunks along the last dimension. NOTE: The cache itself could be used to cache any object into a number of fixed size chunks so long as the read/write(page-in/page-out) routines know how to deal with getting the correct chunk based on a number. These routines can be found in 'mcache.c'. RETURNS The AID of the access record on success FAIL on error. AUTHOR -GeorgeV - 9/3/96 ----------------------------------------------------------------------------*/ PRIVATE int32 HMCIstaccess(accrec_t *access_rec, /* IN: access record to fill in */ int16 acc_mode /* IN: access mode */) { CONSTR(FUNC, "HMCIstaccess"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ chunkinfo_t *info = NULL; /* information about data elt */ int32 dd_aid; /* AID for writing the special info */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ uint8 local_ptbuf[6]; /* 6 bytes for special header length */ #if 0 uint8 *c_sp_header = NULL; /* special element header(dynamic) */ #endif uint8 c_sp_header[256]="" ; /* special element header buffer. dynamic allocation causes a problem on the HPUX -GV */ int32 interlace; /* type of interlace */ int32 vdata_size; /* size of Vdata */ int32 num_recs; /* number of Vdatas */ uint8 *v_data = NULL; /* Vdata record */ CHUNK_REC *chkptr = NULL; /* Chunk record */ int32 *chk_key = NULL; /* chunk key */ int32 npages = 1; /* number of chunks */ int32 chunks_needed; /* default chunk cache size */ int32 access_aid = FAIL; /* access id */ int32 ret_value = SUCCEED; char name[VSNAMELENMAX + 1]; /* Vdata name */ char class[VSNAMELENMAX + 1]; /* Vdata class */ char v_class[VSNAMELENMAX + 1] = ""; /* Vdata class for comparison */ intn i,j,k; /* loop indicies */ /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* validate file record id */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec) || !(file_rec->access & acc_mode)) HGOTO_ERROR(DFE_ARGS, FAIL); /* set up some data in access record */ access_rec->special = SPECIAL_CHUNKED; access_rec->posn = 0; access_rec->access = (uint32)(acc_mode|DFACC_READ); /* * Lets free old special info first,if one exists, * before copying a new one * * Hmm.....this is what other special elements do currently * don't know if this is really necessary.....but leave in for now.. */ if (access_rec->special_info != NULL) { /* special information record */ chunkinfo_t *tmpinfo = (chunkinfo_t *) access_rec->special_info; if (--(tmpinfo->attached) == 0) { /* the last one so now.. */ /* free old info from Chunk tables ..etc*/ /* Sync chunk cache */ mcache_sync(info->chk_cache); /* close/free chunk cache */ mcache_close(info->chk_cache); /* Use Vxxx interface to free Vdata info */ VSdetach(info->aid); /* free chunk tree */ tbbtdfree(info->chk_tree, chkdestroynode, chkfreekey); /* free up stuff in special info */ if (tmpinfo->ddims != NULL) HDfree(tmpinfo->ddims); if (tmpinfo->seek_chunk_indices != NULL) HDfree(tmpinfo->seek_chunk_indices); if (tmpinfo->seek_pos_chunk != NULL) HDfree(tmpinfo->seek_pos_chunk); if (tmpinfo->seek_user_indices != NULL) HDfree(tmpinfo->seek_user_indices); if (tmpinfo->fill_val != NULL) HDfree(tmpinfo->fill_val); if (tmpinfo->comp_sp_tag_header != NULL) HDfree(tmpinfo->comp_sp_tag_header); if (tmpinfo->cinfo != NULL) HDfree(tmpinfo->cinfo); if (tmpinfo->minfo != NULL) HDfree(tmpinfo->minfo); /* free info struct last */ HDfree(tmpinfo); access_rec->special_info = NULL; } } /* end if special->info already */ /* get the info for the dataset i.e. tag/ref*/ /* get info about chunk table i.e. Vdata? */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* if the special information are already in some other acc elt, * point to it and return */ access_rec->special_info = HIgetspinfo(access_rec); if (access_rec->special_info) { /* special info exists */ ((chunkinfo_t *) access_rec->special_info)->attached++; file_rec->attach++; info = (chunkinfo_t *) access_rec->special_info; /* set return value */ access_aid = HAregister_atom(AIDGROUP,access_rec); } else /* need to allocate a new special info and get it */ { /* allocate space for special chunk info */ if ((info = (chunkinfo_t *)HDmalloc(sizeof(chunkinfo_t))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); info->seek_chunk_indices = NULL; info->seek_pos_chunk = NULL; info->seek_user_indices = NULL; info->ddims = NULL; info->chk_tree = NULL; info->chk_cache = NULL; info->fill_val = NULL; info->minfo = NULL; info->cinfo = NULL; info->comp_sp_tag_header = NULL; info->comp_sp_tag_head_len = 0; info->num_recs = 0; /* zero records to start with */ /* read the special info structure from the file */ if((dd_aid=Hstartaccess(access_rec->file_id,data_tag,data_ref,DFACC_READ))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); if (Hseek(dd_aid, 2, DF_START) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* first read special tag header length which is 4 bytes */ if (Hread(dd_aid, 4, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode it */ { uint8 *p = local_ptbuf; INT32DECODE(p, info->sp_tag_header_len); /* 4 bytes */ } /* Sanity check, the 256 limit is arbitrary and can be removed later....*/ if (info->sp_tag_header_len < 0 || info->sp_tag_header_len > 256) HGOTO_ERROR(DFE_INTERNAL, FAIL); #if 0 /* dynamic alocation causes a problem on HPUX, removed for now -GV */ /* Allocate buffer space for rest of special header */ if (( c_sp_header = (uint8 *) HDcalloc(info->sp_tag_header_len,1))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); #endif /* first read special header in */ if (Hread(dd_aid, info->sp_tag_header_len, c_sp_header) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* decode first special element header */ { uint8 *p = c_sp_header; /* version info */ HDmemcpy(&info->version,p,1); /* 1 byte */ p = p + 1; /* Should check version here to see if we can handle this version of special format header before we go on */ if (info->version != _HDF_CHK_HDR_VER) HGOTO_ERROR(DFE_INTERNAL, FAIL); INT32DECODE(p, info->flag); /* 4 bytes */ INT32DECODE(p, info->length); /* 4 bytes */ INT32DECODE(p, info->chunk_size); /* 4 bytes */ INT32DECODE(p, info->nt_size); /* 4 bytes */ UINT16DECODE(p, info->chktbl_tag); /* 2 bytes */ UINT16DECODE(p, info->chktbl_ref); /* 2 bytes */ UINT16DECODE(p, info->sp_tag); /* 2 bytes */ UINT16DECODE(p, info->sp_ref); /* 2 bytes */ INT32DECODE(p, info->ndims); /* 4 bytes */ /* = 29 bytes */ /* create dimension, seek_block and seek_pos arrays given number of dims */ if (create_dim_recs(&(info->ddims),&(info->seek_chunk_indices), &(info->seek_pos_chunk), &(info->seek_user_indices),info->ndims) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* decode dimension stuff */ for (j = 0; j < info->ndims; j++) { int32 odd_size; INT32DECODE(p,(info->ddims[j].flag)); /* 4 bytes */ INT32DECODE(p,(info->ddims[j].dim_length)); /* 4 bytes */ INT32DECODE(p,(info->ddims[j].chunk_length)); /* 4 bytes */ /* = 12 bytes */ /* check 'flag' and decode settings */ info->ddims[j].distrib_type = (int32)(0xff & info->ddims[j].flag); info->ddims[j].unlimited = (int32) (0xff & ((uint32)(info->ddims[j].flag >> 8))); info->ddims[j].num_chunks = info->ddims[j].dim_length / info->ddims[j].chunk_length; /* check to see if need to increase # of chunks along this dim*/ if ((odd_size = (info->ddims[j].dim_length % info->ddims[j].chunk_length))) { info->ddims[j].num_chunks++; /* increase by one */ /* set last chunk length */ info->ddims[j].last_chunk_length = odd_size; } else info->ddims[j].last_chunk_length = info->ddims[j].chunk_length; /* */ npages = npages * info->ddims[j].num_chunks; } /* = 12 x ndims bytes */ /* decode fill value length */ INT32DECODE(p,(info->fill_val_len)); /* 4 bytes */ /* allocate space for fill value */ if ((info->fill_val = HDmalloc((size_t)info->fill_val_len ))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* finally decode fill value */ HDmemcpy(info->fill_val,p, info->fill_val_len); /* 1 byte */ } /* end decode special header */ /* if multiply special deal with now */ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: { uint16 sp_tag; /* first read specail tag header length which is 2+4 bytes */ if (Hread(dd_aid, 6, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode compression header length */ { uint8 *p = NULL; p = local_ptbuf; UINT16DECODE(p, sp_tag); /* 2 bytes */ INT32DECODE(p, info->comp_sp_tag_head_len); /* 4 bytes */ } /* Sanity check */ if (info->sp_tag_header_len < 0 || sp_tag != SPECIAL_COMP) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Allocate buffer space for compression special header */ if (( info->comp_sp_tag_header = HDcalloc(info->comp_sp_tag_head_len,1))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* read special header in */ if (Hread(dd_aid, info->comp_sp_tag_head_len, info->comp_sp_tag_header) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* allocate compression special info */ if (( info->cinfo = (comp_info *) HDmalloc(sizeof(comp_info)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (( info->minfo = (model_info *) HDmalloc(sizeof(model_info)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Decode header */ if (HCPdecode_header((uint8 *)info->comp_sp_tag_header, (comp_model_t *)&info->model_type, info->minfo, (comp_coder_t *)&info->comp_type, info->cinfo) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } break; default: /* Do nothing */ break; } /* end switch on specialness */ /* end access to special info stuff */ if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* set up the chunk tables of the information */ /* intialize TBBT tree of CHUNK records*/ info->chk_tree = tbbtdmake(chkcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); /* Use Vdata interface to read in chunk table and store per chunk-info in memory using TBBT trees */ /* Start access on Vdata */ if(Vstart(access_rec->file_id) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Attach to Vdata with write access if we are writing else read access */ if (access_rec->access & DFACC_WRITE) { if((info->aid = VSattach(access_rec->file_id, (int32)info->chktbl_ref, "w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); } else /* attach with read access only */ { if((info->aid = VSattach(access_rec->file_id, (int32)info->chktbl_ref, "r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); } /* get relevant info on Vdata */ if ((VSinquire(info->aid, &num_recs, &interlace, NULL, &vdata_size, name)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Get class of Vdata */ if ((VSgetclass(info->aid, class)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* verify class and version */ sprintf(v_class,"%s%d",_HDF_CHK_TBL_CLASS,_HDF_CHK_TBL_CLASS_VER); if (HDstrncmp(class,v_class,HDstrlen(v_class)) != 0 ) { #ifdef CHK_DEBUG_2 fprintf(stderr," error, wrong class=%s, %d \n",class,HDstrlen(class)); fprintf(stderr," v_class=%s, %d \n",v_class,HDstrlen(v_class)); #endif HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Check to see if any chunks have been written out yet */ if (num_recs > 0) { /* Yes */ /* Set the fields to read */ if(VSsetfields(info->aid,_HDF_CHK_FIELD_NAMES)==FAIL) HGOTO_ERROR(DFE_BADFIELDS,FAIL); /* Allocate space for a single Vdata record */ if ((v_data = HDmalloc((size_t)vdata_size)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* for each record read it in and put into TBBT tree NOTE: Should change this to a single VSread() but then would have to store all the v_data rec's somewhere before inserting them into the TBBT tree... ....for somone to do later if performance of VSread() is bad. Technically a B+-Tree should have been used instead or better yet the Vdata implementation should be re-written to use one. Note that chunk tag DTAG_CHUNK is not verified here. It is checked in HMCPchunkread() before the chunk is read. */ for (j = 0; j < num_recs; j++) { uint8 *pntr = NULL; /* read single record */ if(VSread(info->aid,v_data,1,FULL_INTERLACE)==FAIL) HGOTO_ERROR(DFE_VSREAD,FAIL); pntr = v_data; /* set pointer to vdata record */ /* Allocate space for a chunk record */ if ((chkptr = (CHUNK_REC *) HDmalloc(sizeof(CHUNK_REC))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Allocate space for a origin in chunk record */ if ((chkptr->origin = (int32 *) HDmalloc((size_t)info->ndims*sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate space for key */ if ((chk_key = (int32 *)HDmalloc(sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Copy origin first */ for (k = 0; k < info->ndims; k++) { HDmemcpy(&chkptr->origin[k],pntr,sizeof(int32)); pntr += sizeof(int32); } #ifdef CHK_DEBUG_2 printf(" chkptr->origin = ("); for (k = 0; k < info->ndims; k++) printf("%d%s", chkptr->origin[k], k!= info->ndims-1 ? ",":NULL); printf("), "); #endif /* Copy tag next. Note: Verification of tag as DTAG_CHUNK is done in HMCPchunkread() before the chunk object is read. In the future the tag/ref pair could point to another chunk table...etc. */ HDmemcpy(&chkptr->chk_tag,pntr,sizeof(uint16)); pntr += sizeof(uint16); #ifdef CHK_DEBUG_2 printf(" chktpr->chk_tag=%d, ",chkptr->chk_tag); #endif /* Copy ref last */ HDmemcpy(&chkptr->chk_ref,pntr,sizeof(uint16)); #ifdef CHK_DEBUG_2 printf(" chktpr->chk_ref=%d, ",chkptr->chk_ref); printf("\n"); #endif /* now compute chunk number from origin */ calculate_chunk_num(chk_key, info->ndims, chkptr->origin, info->ddims); chkptr->chunk_number = *chk_key; /* set chunk number to record number */ chkptr->chk_vnum = info->num_recs++; /* add to TBBT tree based on chunk number as the key */ tbbtdins(info->chk_tree, chkptr , chk_key); } /* end for num_recs */ } /* end if num_recs */ /* set return value */ access_aid = HAregister_atom(AIDGROUP,access_rec); /* create chunk cache with 'maxcache' set to the number of chunks along the last dimension i.e subscript changes the fastest*/ chunks_needed = 1; for (i = 1; i < info->ndims; i++) { chunks_needed *= info->ddims[i].num_chunks; } if ((info->chk_cache = mcache_open(&access_rec->file_id, /* cache key */ access_aid, /* object id */ (info->chunk_size*info->nt_size), /* chunk size */ chunks_needed, /* maxcache */ npages, /* num chunks */ 0 /* flags */)) == NULL) HE_REPORT_GOTO("failed to find initialize chunk cache", FAIL); /* set up chunk read/write routines These routines do the actual reading/writing of data from the file in whole chunks only. */ mcache_filter(info->chk_cache, /* cache handle */ HMCPchunkread, /* page-in routine */ HMCPchunkwrite, /* page-out routine */ access_rec /* object handle */); /* update chunk info data and file record info */ info->attached = 1; file_rec->attach++; access_rec->special_info = (chunkinfo_t *) info; } /* end else need to get special info */ /* access to data elments is done on a per chunk basis which can only be done in the read/write routines i.e. the cache pagin/pageout routines....*/ ret_value = access_aid; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* free info struct */ if (info != NULL) { if (info->chk_cache != NULL) { /* Sync chunk cache */ mcache_sync(info->chk_cache); /* close/free chunk cache */ mcache_close(info->chk_cache); } if (info->aid != FAIL) VSdetach(info->aid); /* free chunk tree */ if (info->chk_tree != NULL) tbbtdfree(info->chk_tree, chkdestroynode, chkfreekey); /* free up stuff in special info */ if (info->ddims != NULL) HDfree(info->ddims); if (info->seek_chunk_indices != NULL) HDfree(info->seek_chunk_indices); if (info->seek_pos_chunk != NULL) HDfree(info->seek_pos_chunk); if (info->seek_user_indices != NULL) HDfree(info->seek_user_indices); if (info->fill_val != NULL) HDfree(info->fill_val); if (info->comp_sp_tag_header != NULL) HDfree(info->comp_sp_tag_header); if (info->cinfo != NULL) HDfree(info->cinfo); if (info->minfo != NULL) HDfree(info->minfo); HDfree(info); access_rec->special_info = NULL; } } /* end if */ /* Normal function cleanup */ #if 0 /* dynamic alocation causes a problem on HPUX, removed for now -GV */ /* free specail element header */ if (c_sp_header != NULL) HDfree(c_sp_header); #endif /* free allocated space for vdata record */ if (v_data != NULL) HDfree(v_data); return ret_value; } /* HMCIstaccess */ /* ------------------------------------------------------------------------ NAME HMCcreate -- create a chunked element DESCRIPTION This routine takes an HDF element and promotes it into a chunked element. Basically, the element becomes a chunked element allowing easy appending where the chunk records are stored in a Vdata. If the element already exists, this is an error currently otherwise a new element is created. All of the pieces of the chunked element are the same size from the stand point of the element. If compression is used then each chunk is compressed and the compression layer takes care of it as the chunk layer sees each chunks as a seperate HDF object(DFTAG_CHUNK). The proper compression special header needs to be passed to the compression layer. The Vdata(chunk table) is made appendable with linked-block table size of 128. This routine also creates the chunk cache for the chunked element. The cache is initialzed with the physical size of each chunk, the number of chunks in the object i.e. object size/ chunk size, and the maximum number of chunks to cache in memory. Chunks in the cache are dealt with by their number i.e. translation of 'origin' of chunk to a unique number. The default maximum number of chunks is the cache is set the number of chunks along the last dimension. NOTE: The cache itself could be used to cache any object into a number of fixed size chunks so long as the read/write(page-in/page-out) routines know how to deal with getting the correct chunk based on a number.These routines can be found in 'mcache.c'. RETURNS The AID of newly created chunked element, FAIL on error. AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ int32 HMCcreate(int32 file_id, /* IN: file to put chunked element in */ uint16 tag, /* IN: tag of element */ uint16 ref, /* IN: ref of element */ uint8 nlevels, /* IN: number of levels of chunks */ int32 fill_val_len, /* IN: fill value length in bytes */ void *fill_val, /* IN: fill value */ HCHUNK_DEF *chk_array /* IN: structure describing chunk distribution can be an array? but we only handle 1 level */ ) { CONSTR(FUNC, "HMCcreate"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ accrec_t *access_rec = NULL; /* access record */ int32 dd_aid = FAIL; /* AID for writing the special info */ chunkinfo_t *info = NULL; /* information for the chunked elt */ uint8 *c_sp_header = NULL; /* special element header */ int32 npages = 1; /* i.e. number of chunks in element */ int32 chunks_needed; /* default size of chunk cache */ int32 access_aid = FAIL; /* access id */ uint16 chktbl_ref; /* the ref of the link structure chunk table i.e. Vdata */ uint16 special_tag; /* special version of this tag */ atom_t data_id; /* dd ID of existing regular element */ int32 sp_tag_header_len = 0; /* length of special header */ int32 data_len = 1; /* logical length of element */ int32 ret_value = SUCCEED; char v_name[VSNAMELENMAX + 1] = "";/* name of vdata i.e. chunk table */ char v_class[VSNAMELENMAX + 1] = ""; /* Vdata class */ intn i; /* loop index */ /* shut compiler up */ nlevels=nlevels; /* clear error stack and validate file record id */ HEclear(); file_rec = HAatom_object(file_id); /* validate args */ if (BADFREC(file_rec) || chk_array == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* check file access for write */ if (!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* check if we are accidently passwed a special tag already */ if(SPECIALTAG(tag) || (special_tag = MKSPECIALTAG(tag)) == DFTAG_NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get empty slot in access records */ access_rec = HIget_access_rec(); if (access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* search for identical dd */ if ((data_id = HTPselect(file_rec,tag,ref))!=FAIL) { /* this is where if a tag was already special i.e. compressed we would have to note it and promote it maybe? */ /* Check if the element is already special */ if (HTPis_special(data_id)==TRUE) { HTPendaccess(data_id); HGOTO_ERROR(DFE_CANTMOD, FAIL); } /* end if */ } /* end if */ /* In theory we can have more than one level of chunks so we need to repeat the following steps. This would allow subchunking but currently haven't decided how the user would pass this info to routine to create the proper chunk tables...etc. Do we need to create special chunk table to handle the special chunks i.e. ghost chunks.-> Pass on this for now */ #if 0 /* Okay we need to get a new ref for CHUNK table tag for first level */ chktbl_ref = Htagnewref(file_id,DFTAG_CHUNKED); #endif /* allocate and fill in special chunk info struct for CHUNKs */ if (( info = (chunkinfo_t *) HDmalloc(sizeof(chunkinfo_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); info->attached = 1; info->aid = FAIL; info->version = _HDF_CHK_HDR_VER ; /* verson 1 for now */ info->flag = chk_array->chunk_flag; /* SPECIAL_COMP ? */ info->cinfo = NULL; info->minfo = NULL; info->comp_sp_tag_head_len = 0; info->comp_sp_tag_header = NULL; info->chunk_size = chk_array->chunk_size; /* logical chunk size */ info->nt_size = chk_array->nt_size; /* number type size */ info->ndims = chk_array->num_dims; /* number of dimensions */ info->sp_tag = DFTAG_NULL; /* not used currently */ info->sp_ref = 0; /* not used currently */ info->seek_chunk_indices = NULL; info->seek_pos_chunk = NULL; info->seek_user_indices = NULL; info->ddims = NULL; info->chk_tree = NULL; info->chk_cache = NULL; info->num_recs = 0; /* zero Vdata records to start */ info->fill_val_len = fill_val_len; /* length of fill value */ /* allocate space for fill value */ if (( info->fill_val = HDmalloc((uint32)fill_val_len))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* copy fill value over */ HDmemcpy(info->fill_val, fill_val, info->fill_val_len); /* fill_val_len bytes */ /* if compression set then fill in info i.e ENCODE for storage */ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: /* set compression info */ /* allocate compression special info */ if (( info->cinfo = (comp_info *) HDmalloc(sizeof(comp_info)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (( info->minfo = (model_info *) HDmalloc(sizeof(model_info)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* find compression header length */ info->comp_sp_tag_head_len = HCPquery_encode_header( (comp_model_t)chk_array->model_type, chk_array->minfo, (comp_coder_t)chk_array->comp_type, chk_array->cinfo); /* allocate space for compression header */ if (( info->comp_sp_tag_header = HDmalloc((size_t)info->comp_sp_tag_head_len))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Encode header for storage */ if (HCPencode_header((uint8 *)info->comp_sp_tag_header, (comp_model_t)chk_array->model_type, chk_array->minfo, (comp_coder_t)chk_array->comp_type, chk_array->cinfo) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Decode header back for memory */ if (HCPdecode_header((uint8 *)info->comp_sp_tag_header, (comp_model_t *)&info->model_type, info->minfo, (comp_coder_t *)&info->comp_type, info->cinfo) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); break; default: /* Do nothing */ break; } /* end switch on specialness */ /* Use Vxxx interface to create new Vdata to hold Chunk table */ /* create/intialize chunk table (Vdata ) */ /* Start access on Vdata */ if(Vstart(file_id) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Create Vdata */ if((info->aid = VSattach(file_id, -1, "w")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); /* get ref of Vdata */ chktbl_ref = (uint16)VSQueryref(info->aid); info->chktbl_ref = chktbl_ref; /* ref of chunk table */ /* get tag of Vdata */ info->chktbl_tag = (uint16)VSQuerytag(info->aid); #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCcreate: info->chktbl_tag =%d, info->chktbl_ref=%d \n", info->chktbl_tag, info->chktbl_ref); #endif /* Define fields of chunk table i.e. Vdata */ /* Define origin - order based on number of dims */ if(VSfdefine(info->aid,_HDF_CHK_FIELD_1, DFNT_INT32,info->ndims) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Define tag of chunk Note that the tag could be another Chunk table to represent another level. useful for quadtrees...etc. */ if(VSfdefine(info->aid,_HDF_CHK_FIELD_2, DFNT_UINT16,1) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Define ref of chunk Note that the ref could be that of another Chunk table to represent another level. useful for quadtrees...etc. */ if(VSfdefine(info->aid,_HDF_CHK_FIELD_3, DFNT_UINT16,1) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Set Vdata name based on tag and ref of element and of tag/ref of Vdata. ...sort of a back pointer...so sue me...*/ sprintf(v_name,"%s%d_%d_%d_%d",_HDF_CHK_TBL_NAME,tag, ref, info->chktbl_tag, info->chktbl_ref); if(VSsetname(info->aid,v_name) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Set Vdata class and version */ sprintf(v_class,"%s%d",_HDF_CHK_TBL_CLASS,_HDF_CHK_TBL_CLASS_VER); if(VSsetclass(info->aid,v_class) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Set the fields to write */ if(VSsetfields(info->aid,_HDF_CHK_FIELD_NAMES)==FAIL) HGOTO_ERROR(DFE_BADFIELDS,FAIL); /* create dimension, seek_block and seek_pos arrays given number of dims */ if (create_dim_recs(&(info->ddims),&(info->seek_chunk_indices), &(info->seek_pos_chunk), &(info->seek_user_indices),info->ndims) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Copy info from input to dimension arrays */ data_len = 1; for (i = 0; i < info->ndims; i++) { int32 odd_size; info->ddims[i].distrib_type = chk_array->pdims[i].distrib_type; if (chk_array->pdims[i].dim_length == 0) /* check unlimited dimension */ { /* yes, UNLIMITED */ info->ddims[i].unlimited = 1; /* set flag */ /* set dimension length to be at least the chunk length along this dimension */ info->ddims[i].dim_length = chk_array->pdims[i].chunk_length; } else /* not an unlimited dimension */ info->ddims[i].dim_length = chk_array->pdims[i].dim_length; /* set dimension 'flag' */ info->ddims[i].flag = (int32)(0xffff & ((info->ddims[i].unlimited << 8) | (info->ddims[i].distrib_type))); info->ddims[i].chunk_length = chk_array->pdims[i].chunk_length; info->ddims[i].num_chunks = info->ddims[i].dim_length / info->ddims[i].chunk_length; /* check to see if need to increase # of chunks along this dim */ if ((odd_size = (info->ddims[i].dim_length % info->ddims[i].chunk_length))) { info->ddims[i].num_chunks++; /* increase by one */ /* set last chunk length */ info->ddims[i].last_chunk_length = odd_size; } else info->ddims[i].last_chunk_length = info->ddims[i].chunk_length; /* */ /* calculate number of chunks/pages in element */ npages = npages * info->ddims[i].num_chunks; /* compute logical element length */ data_len *= info->ddims[i].dim_length; #ifdef CHK_DEBUG_2 printf("HMCcreate: dim[%d].dim_length=%d,",i,info->ddims[i].dim_length); printf("dim[%d].chunk_length=%d,",i,info->ddims[i].chunk_length); printf("dim[%d].num_chunks=%d \n",i,info->ddims[i].num_chunks); #endif } /* end for ndims */ #ifdef CHK_DEBUG_2 printf("\n"); #endif /* Make Vdata appendable with linked block table size of 'npages' if less than 128 and greater than 16. Not the best heuristic but for now it should be okay...*/ if (npages > 16 && npages < 128) { if (VSappendable(info->aid, npages) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } else if (npages < 16 ) { /* 16 is default */ if (VSappendable(info->aid, 16) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } else /* use 128 for large chunk tables for now */ { if (VSappendable(info->aid, 128) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Set logical length of element */ info->length = data_len; /* logical size of element */ /* Calculate total length of this special element header including the fields for 'sp_tag_desc' and 'sp_tag_head_len'. See description of format header at top of file for more info on fields. Include also length for multiply specialness headers */ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: sp_tag_header_len = 6 + 9 + 12 + 8 +(12*info->ndims) + 4 + info->fill_val_len + 6 + info->comp_sp_tag_head_len; break; default: sp_tag_header_len = 6 + 9 + 12 + 8 +(12*info->ndims) + 4 + info->fill_val_len; break; } /* Allocate buffer space for header */ if (( c_sp_header = (uint8 *) HDcalloc(sp_tag_header_len,1))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Calculate length of this special element header itself. Note the value of 'sp_tag_head_len' in the file is the total length of this special object header - 6 bytes. beacuse the length of the fields 'sp_tag_desc'(2 bytes) and 'sp_tag_head_len' (4 bytes) which are not included If also multiply special need to subtract another 6 byts plus length for multiply specialness headers */ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: info->sp_tag_header_len = sp_tag_header_len - 6 - 6 - info->comp_sp_tag_head_len; break; default: info->sp_tag_header_len = sp_tag_header_len - 6; break; } /* encode info into chunked descripton record */ { uint8 *p = c_sp_header; intn j; UINT16ENCODE(p, SPECIAL_CHUNKED); /* 2 bytes */ INT32ENCODE(p, info->sp_tag_header_len); /* 4 bytes */ HDmemcpy(p, &info->version,1); /* 1 byte */ p = p + 1; INT32ENCODE(p, info->flag); /* 4 bytes */ INT32ENCODE(p, info->length); /* 4 bytes */ INT32ENCODE(p, info->chunk_size); /* 4 bytes */ INT32ENCODE(p, info->nt_size); /* 4 bytes */ UINT16ENCODE(p, info->chktbl_tag); /* 2 bytes */ UINT16ENCODE(p, info->chktbl_ref); /* 2 bytes */ UINT16ENCODE(p, info->sp_tag); /* 2 bytes */ UINT16ENCODE(p, info->sp_ref); /* 2 bytes */ INT32ENCODE(p, info->ndims); /* 4 bytes */ /* = 35 bytes*/ for (j = 0; j < info->ndims; j++) { INT32ENCODE(p,(info->ddims[j].flag)); /* 4 bytes */ INT32ENCODE(p,(info->ddims[j].dim_length)); /* 4 bytes */ INT32ENCODE(p,(info->ddims[j].chunk_length)); /* 4 bytes */ } /* = 12 x ndims bytes */ /* now for fill value */ INT32ENCODE(p,(info->fill_val_len)); /* 4 bytes */ HDmemcpy(p,info->fill_val,info->fill_val_len); /* fill_val_len bytes */ p = p + fill_val_len; /* Future to encode multiply specialness stuff header lengths, header,..etc*/ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: UINT16ENCODE(p, SPECIAL_COMP); /* 2 bytes */ INT32ENCODE(p, info->comp_sp_tag_head_len); /* 4 bytes */ /* copy special element header */ HDmemcpy(p,info->comp_sp_tag_header,info->comp_sp_tag_head_len); p = p + info->comp_sp_tag_head_len; break; default: /* Do nothing */ break; } } /* write the special info structure to fill */ if((dd_aid = Hstartaccess(file_id,special_tag,ref,DFACC_ALL))==FAIL) HGOTO_ERROR(DFE_CANTACCESS, FAIL); /* write only the base 32 bytes ( 6 + 9 + 12 + 5) plus what is needed for each dimension which is (12 x ndims) bytes. plus for fill value 4 bytes + fill_val_len plus in future multiply special headers = sp_tag_header_len */ if (Hwrite(dd_aid, sp_tag_header_len, c_sp_header) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* end access to special info stuff in file */ if(Hendaccess(dd_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* intialize TBBT tree of CHUNK records*/ info->chk_tree = tbbtdmake(chkcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); /* Detach from the data DD ID */ if(data_id != FAIL) { if(HTPendaccess(data_id)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCcreate: special_tag =%d, ref=%d \n", special_tag, ref); fprintf(stderr,"HMCcreate: dd_aid =%d, data_id=%d \n", dd_aid, data_id); #endif /* update access record and file record */ if((access_rec->ddid = HTPselect(file_rec,special_tag,ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); access_rec->special = SPECIAL_CHUNKED; access_rec->special_func = &chunked_funcs; access_rec->special_info = info; access_rec->posn = 0; access_rec->access = DFACC_RDWR; access_rec->file_id = file_id; access_rec->appendable = FALSE; /* start data as non-appendable */ file_rec->attach++; #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCcreate: access_rec->ddid =%d \n", access_rec->ddid); #endif /* register this valid access record for the chunked element */ access_aid = HAregister_atom(AIDGROUP,access_rec); chunks_needed = 1; for (i = 1; i < info->ndims; i++) { chunks_needed *= info->ddims[i].num_chunks; } /* create chunk cache */ if ((info->chk_cache = mcache_open(&access_rec->file_id, /* cache key */ access_aid, /* object id */ (info->chunk_size*info->nt_size), /* chunk size */ chunks_needed, /* maxcache */ npages, /* num chunks */ 0 /* flags */)) == NULL) HE_REPORT_GOTO("failed to initialize chunk cache", FAIL); /* set up chunk read/write routines These routine are the actual routines that read/write whole chunks at a time.i.e. page-in/page-out routines */ mcache_filter(info->chk_cache, /* cache handle */ HMCPchunkread, /* page-in routine */ HMCPchunkwrite, /* page-out routine */ access_rec /* object handle */); ret_value = access_aid; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* free info struct */ if (info != NULL) { if (info->chk_cache != NULL) { /* Sync chunk cache */ mcache_sync(info->chk_cache); /* close chunk cache */ mcache_close(info->chk_cache); } if (info->aid != FAIL) VSdetach(info->aid); /* detach from chunk table */ /* free chunk tree */ if (info->chk_tree != NULL) tbbtdfree(info->chk_tree, chkdestroynode, chkfreekey); /* free up stuff in special info */ if (info->ddims != NULL) HDfree(info->ddims); if (info->seek_chunk_indices != NULL) HDfree(info->seek_chunk_indices); if (info->seek_pos_chunk != NULL) HDfree(info->seek_pos_chunk); if (info->fill_val != NULL) HDfree(info->fill_val); if (info->comp_sp_tag_header != NULL) HDfree(info->comp_sp_tag_header); if (info->cinfo != NULL) HDfree(info->cinfo); if (info->minfo != NULL) HDfree(info->minfo); HDfree(info); /* free spcial info last */ } /* free access record */ if(access_rec != NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ /* free special element header */ if (c_sp_header != NULL) HDfree(c_sp_header); return ret_value; } /* HMCcreate() */ /*-------------------------------------------------------------------------- NAME HMCgetcompress - get compression information for chunked element DESCRIPTION Checks if the given element is compressed then get the compression information using HCPdecode_header. This routine is used by HCgetcompress for the chunked element part. RETURNS Returns SUCCEED/FAIL REVISION LOG September 2001: Added to fix bug #307 - BMR -------------------------------------------------------------------------- */ intn HMCgetcompress( accrec_t* access_rec, /* IN: access record */ comp_coder_t* comp_type, /* OUT: compression type */ comp_info* c_info) /* OUT: retrieved compression info */ { CONSTR(FUNC, "HMCgetcompress"); /* for HERROR */ chunkinfo_t *info = NULL; /* chunked element information record */ model_info m_info; /* modeling information - dummy */ comp_model_t model_type; /* modeling type - dummy */ intn ret_value = SUCCEED; /* Get the special info from the given record */ info = (chunkinfo_t *) access_rec->special_info; if (info == NULL) HGOTO_ERROR(DFE_COMPINFO, FAIL); /* If this chunked element is compressed, retrieve its comp info */ if (info->flag == SPECIAL_COMP) { /* Decode header from storage */ ret_value = HCPdecode_header((uint8 *)info->comp_sp_tag_header, &model_type, &m_info, /* dummy */ comp_type, c_info); } /* It's not compressed */ else *comp_type = COMP_CODE_NONE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCgetcompress() */ /*-------------------------------------------------------------------------- NAME HMCgetcomptype - get compression information for chunked element DESCRIPTION Checks if the given element is compressed then get the compression information using HCPdecode_header. This routine is used by HCgetcompress for the chunked element part. RETURNS Returns SUCCEED/FAIL REVISION LOG September 2001: Added to fix bug #307 - BMR -------------------------------------------------------------------------- */ intn HMCgetcomptype(int32 dd_aid, /* IN: access id of header info */ comp_coder_t* comp_type) /* OUT: compression type */ { CONSTR(FUNC, "HMCgetcomptype"); /* for HERROR */ uint8 *bufp; /* pointer to buffer */ uint8 version; /* Version of this Chunked element */ int32 flag; /* flag for multiply specialness ...*/ uint16 c_type; /* compression type */ uint8 *c_sp_header = NULL; /* special element header */ int32 sp_tag_header_len = 0; /* length of special header */ int32 comp_sp_tag_head_len; /* Compression header length */ VOID *comp_sp_tag_header = NULL; /* compression header */ uint8 local_ptbuf[6]; /* 6 bytes for special header length */ intn ret_value = SUCCEED; /* first read special tag header length which is 4 bytes */ if (Hread(dd_aid, 4, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode it */ bufp = local_ptbuf; INT32DECODE(bufp, sp_tag_header_len); /* 4 bytes */ /* Sanity check */ if (sp_tag_header_len < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Allocate buffer space for rest of special header */ if ((c_sp_header = (uint8 *) HDcalloc(sp_tag_header_len,1))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* read special info header in */ if (Hread(dd_aid, sp_tag_header_len, c_sp_header) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* decode special info header */ bufp = c_sp_header; /* version info */ HDmemcpy(&version, bufp, 1); /* 1 byte */ bufp = bufp + 1; /* Should check version here to see if we can handle this version of special format header before we go on */ if (version != _HDF_CHK_HDR_VER) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* flag indicating multiple specialness */ INT32DECODE(bufp, flag); /* 4 bytes */ /* check for further specialness */ switch(flag & 0xff) { /* if the element is also compressed, read the compress special info header and decode to get the compression coder */ case SPECIAL_COMP: { uint16 sp_tag; /* Read compression special tag and header length, 2+4 bytes */ if (Hread(dd_aid, 6, local_ptbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode compression header length */ bufp = local_ptbuf; UINT16DECODE(bufp, sp_tag); /* 2 bytes */ INT32DECODE(bufp, comp_sp_tag_head_len); /* 4 bytes */ /* Sanity check */ if (comp_sp_tag_head_len < 0 || sp_tag != SPECIAL_COMP) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Allocate buffer space for compression special header */ if ((comp_sp_tag_header = HDcalloc(comp_sp_tag_head_len,1))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Read compression special header in */ if (Hread(dd_aid, comp_sp_tag_head_len, comp_sp_tag_header) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode header to get compression type */ bufp = comp_sp_tag_header; bufp = bufp + 2; /* skip model type */ UINT16DECODE(bufp, c_type); /* get encoding type */ *comp_type=(comp_coder_t)c_type; break; } /* It's not compressed */ default: *comp_type = COMP_CODE_NONE; } /* switch flag */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ /* Free special element headers */ if (c_sp_header != NULL) HDfree(c_sp_header); if (comp_sp_tag_header != NULL) HDfree(comp_sp_tag_header); return ret_value; } /* HMCgetcomptype() */ /*-------------------------------------------------------------------------- NAME HMCgetdatainfo - get data info (offset & length) of the chunked element DESCRIPTION - If the given chunk has data without any special storage, HMCgetdatainfo will return one pair of offset/length of the data. - If the chunk's data is compressed only, then HMCgetdatainfo will also return one pair of offset/length to the compressed data - If the chunk's data is compessed and is stored in linked-blocks, then HMCgetdatainfo will return a number of offset/length pairs for the the data's blocks. RETURNS Returns number of offset/length pairs retrieved or FAIL REVISION LOG March 2009: Added during hmap project. -BMR August 2010: Modified according to revised SDgetdatainfo -BMR Sept 2010: Mofified to handle chunk with comp and linked-blocks -BMR March 2011: Added an "else" to flag as an error if the chunk has additional specialness other than compression, just in case if there is. -BMR -------------------------------------------------------------------------- */ intn HMCgetdatainfo(int32 file_id, uint16 tag, uint16 ref, int32* chk_coord, /* IN: chunk number to be processed */ uintn start_block, /* IN: data block to start at, 0 base */ uintn info_count, /* IN: size of offset/length lists */ int32 *offsetarray, /* OUT: array to hold offsets */ int32 *lengtharray) /* OUT: array to hold lengths */ { CONSTR(FUNC, "HMCgetdatainfo"); /* for HERROR */ uint16 comp_ref = 0; /* ref# of compressed data */ chunkinfo_t *chkinfo=NULL; /* chunked element information */ atom_t ddid=FAIL; /* description record access id */ atom_t cmpddid=FAIL; /* description record access id */ uint16 new_tag=0, new_ref=0; int32 new_off=0, new_len=0; intn count=0; /* number of blocks */ int32 chk_num=0; CHUNK_REC *chk_rec = NULL; /* chunk record */ TBBT_NODE *entry = NULL; /* chunk node from TBBT */ accrec_t *access_rec; filerec_t *file_rec; int32 new_aid=FAIL; int16 spec_code=0; uint8 lbuf[16]; /* temporary buffer */ uint8 *p; /* tmp buf ptr */ intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Validate arguments */ if (info_count == 0 && offsetarray != NULL && lengtharray != NULL) HGOTO_ERROR(DFE_ARGS, FAIL); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); if ((new_aid = Hstartread(file_id, tag, ref))== FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); access_rec = HAatom_object(new_aid); if (access_rec == (accrec_t *) NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* It should be chunked, but verify anyway, just in case */ if (access_rec->special == SPECIAL_CHUNKED) { if (access_rec->special_info != NULL) chkinfo = (chunkinfo_t *) (access_rec->special_info); } else HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Calculate chunk number from origin */ calculate_chunk_num(&chk_num, chkinfo->ndims, chk_coord, chkinfo->ddims); /* Find chunk record in TBBT */ if ((entry = (tbbtdfind(chkinfo->chk_tree, &chk_num, NULL))) == NULL) { /* chunk had not been written, no chunk record */ if (offsetarray != NULL && lengtharray != NULL) { offsetarray[0] = 0; lengtharray[0] = 0; } count = 0; } else { /* chunk record exists */ /* Get chunk record from node */ chk_rec = (CHUNK_REC *) entry->data; /* Check to see if it has been written to */ if (chk_rec->chk_tag != DFTAG_NULL && BASETAG(chk_rec->chk_tag) == DFTAG_CHUNK) { /* valid chunk in file */ /* Check for further specialness */ if (Hfind(file_id,chk_rec->chk_tag,chk_rec->chk_ref,&new_tag,&new_ref, &new_off,&new_len,DF_FORWARD)==FAIL) HE_REPORT_GOTO("Hfind failed ", FAIL); if ((ddid = HTPselect(file_rec, new_tag, new_ref)) == FAIL) HE_REPORT_GOTO("HTPselect failed ", FAIL); if (HTPis_special(ddid)!=TRUE) { /* this chunk is not special */ if (offsetarray != NULL && lengtharray != NULL) { offsetarray[0] = Hoffset(file_id, chk_rec->chk_tag, chk_rec->chk_ref); lengtharray[0] = Hlength(file_id, chk_rec->chk_tag, chk_rec->chk_ref); } count = 1; } /* end if */ else { /* this chunk is special */ if (HPseek(file_rec, new_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_read(file_rec, lbuf, (int)2) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Use special code to determine if additional specialness is compression */ p = &lbuf[0]; INT16DECODE(p, spec_code); /* Chunk is compressed */ if (spec_code == SPECIAL_COMP) { if (HP_read(file_rec, lbuf, (int)14) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); p = &lbuf[0]; p = p + 2 + 4; /* skip version and _uncompressed_ data length */ UINT16DECODE(p, comp_ref);/* get ref# of compressed data */ /* Get the special info header */ if (Hfind(file_id, DFTAG_COMPRESSED, comp_ref, &new_tag,&new_ref, &new_off,&new_len,DF_FORWARD)==FAIL) HE_REPORT_GOTO("Hfind failed ", FAIL); if ((cmpddid = HTPselect(file_rec, new_tag, new_ref)) == FAIL) HE_REPORT_GOTO("HTPselect failed ", FAIL); /* Check for further specialness */ if (HTPis_special(cmpddid)!=TRUE) { /* this chunk is not further special, only compressed */ if (offsetarray != NULL && lengtharray != NULL) { offsetarray[0] = new_off; lengtharray[0] = new_len; } count = 1; } /* end if */ else { /* this chunk is further special */ if (HPseek(file_rec, new_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_read(file_rec, lbuf, (int)2) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Get the special code */ p = &lbuf[0]; INT16DECODE(p, spec_code); /* If the special storage is in linked-blocks, use HLgetdatainfo to get data info */ if (spec_code == SPECIAL_LINKED) { if (HP_read(file_rec, lbuf, (int)14) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* decode special information retrieved from file into info struct */ p = &lbuf[0]; /* get data information from the linked blocks */ if (offsetarray != NULL && lengtharray != NULL) count = HLgetdatainfo(file_id, p, start_block, info_count, offsetarray, lengtharray); else count = HLgetdatainfo(file_id, p, start_block, 0, NULL, NULL); } /* this chunk is also stored in linked blocks */ /* May not be any other specialness, but we should flag it, so that if there is, we'll be aware of */ else HE_REPORT_GOTO("Compressed chunk has specialness other than linked-blocks", FAIL); } /* this element is further special */ if (HTPendaccess(cmpddid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* spec_code is SPECIAL_COMP */ /* May not be any other specialness, but we should flag it, so that if there is, we'll be aware of */ else HE_REPORT_GOTO("Chunk has specialness other than compression", FAIL); } /* this chunk is special */ if (HTPendaccess(ddid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* if valid chunk in file */ /* chunk record exists but chunk had not been written, could be error */ else HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* chunk record exists */ /* End access to the aid returned by Hstartread */ if (Hendaccess(new_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = count; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* End accesses */ if (ddid != FAIL) HTPendaccess(ddid); if (new_aid != FAIL) Hendaccess(new_aid); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCgetdatainfo */ /*-------------------------------------------------------------------------- NAME HMCgetdatasize - get data sizes of the chunked element DESCRIPTION This routine was intented to be used by HCPgetdatasize for the chunked element part. HMCgetdatasize proceeds as followed: - decode the chunking info special header to get the chunk table info - get access to the chunk table via Vdata interface - get the size of the chunk table to determine if the data has been written - if the element is also compressed, read each vdata record to obtain the tag/ref pair of the compression special header and read the header - decode the compression special header to get the compressed data ref# and retrieve the compressed data length via Hlength - if uncompressed size is requested by the caller, calculate the actual size of the uncompressed data by (chunk size * number of records) - if compressed size is requested by the caller, calculate the total compressed size by accumulating the compressed size of all chunks. RETURNS Returns SUCCEED/FAIL REVISION LOG September 2008: Added to fix bugzilla #587 - BMR -------------------------------------------------------------------------- */ intn HMCgetdatasize(int32 file_id, uint8 *p, /* IN: access id of header info */ int32 *comp_size, /* OUT: size of compressed data */ int32 *orig_size) /* OUT: size of uncompression type */ { CONSTR(FUNC, "HMCgetdatasize"); /* for HERROR */ uint16 comp_ref = 0; /* ref# of compressed data */ char vsname[VSNAMELENMAX + 1]; /* Vdata name */ char v_class[VSNAMELENMAX + 1] = ""; /* Vdata class for comparison */ char vsclass[VSNAMELENMAX + 1]; /* Vdata class */ int32 vdata_size; /* size of Vdata */ chunkinfo_t* chkinfo=NULL; /* chunked element information */ uint8 *v_data = NULL; /* Vdata record */ int32 num_recs=0, /* number of records in chunk table */ chk_data_size=0, /* non-compressed data size */ chk_comp_data_size=0, /* compressed data size */ chktab_id=-1, /* chunk table (vdata) id */ chk_aid=-1, /* a single chunk aid */ len = 0; /* length of a compressed chunk */ uint8 chk_spbuf[10]; /* 10 bytes for special tag, version, uncomp len, comp ref# */ int j, k; intn ret_value = SUCCEED; /* Skip 4byte header len */ p = p + 4; /* Allocate and fill in special chunk info struct for CHUNKs */ if (( chkinfo = (chunkinfo_t *) HDmalloc(sizeof(chunkinfo_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Version info */ HDmemcpy(&chkinfo->version, p, 1); /* 1 byte */ p = p + 1; /* Should check version here to see if we can handle this version of special format header before we go on */ if (chkinfo->version != _HDF_CHK_HDR_VER) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Flag indicating multiple specialness, used to find out if this element is also compressed or something else */ INT32DECODE(p, chkinfo->flag); /* 4 bytes */ /* Length of uncompressed data as a whole, size of each chunk, and size of number type */ INT32DECODE(p, chkinfo->length); /* 4 bytes */ INT32DECODE(p, chkinfo->chunk_size); /* 4 bytes */ INT32DECODE(p, chkinfo->nt_size); /* 4 bytes */ /* Get chunk data size */ chk_data_size = chkinfo->chunk_size * chkinfo->nt_size; /* Get tag/ref of chunk table, 2 bytes each */ UINT16DECODE(p, chkinfo->chktbl_tag); UINT16DECODE(p, chkinfo->chktbl_ref); /* Skip sp_tag and sp_ref then get ndims for use in skipping origins */ p = p + 2 + 2; INT32DECODE(p, chkinfo->ndims); /* 4 bytes */ /* Make sure it is really the vdata */ if (chkinfo->chktbl_tag == DFTAG_VH) { /* Use Vdata interface to access chunk table */ /* Start access on Vdata */ if(Vstart(file_id) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Attach to the chunk table vdata and get its num of records */ if ((chktab_id = VSattach(file_id,(int32)chkinfo->chktbl_ref,"r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if ((VSinquire(chktab_id, &num_recs, NULL, NULL, &vdata_size, vsname)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Only continue reading the chunk table to get compressed data size if it is requested and if data had been written, i.e. chunk table is not empty */ if (comp_size != NULL && num_recs > 0) { /* Check for further specialness. If chunks are also compressed, then the chunk table will be read for each chunk's tag/ref, which points to the compression info of the chunk, to get the compressed data size */ switch(chkinfo->flag & 0xff) { /* Element is also compressed, read and decode the compression special info header of each chunk and get the compressed data size */ case SPECIAL_COMP: { uint16 sp_tag; /* Get class of Vdata */ if ((VSgetclass(chktab_id, vsclass)) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Verify class and version */ sprintf(v_class,"%s%d",_HDF_CHK_TBL_CLASS,_HDF_CHK_TBL_CLASS_VER); if (HDstrncmp(vsclass,v_class,HDstrlen(v_class)) != 0 ) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Set the fields to read */ if(VSsetfields(chktab_id,_HDF_CHK_FIELD_NAMES)==FAIL) HGOTO_ERROR(DFE_BADFIELDS,FAIL); /* Allocate space for a single Vdata record */ if ((v_data = HDmalloc((size_t)vdata_size)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Read in the tag/ref of each chunk then get the compression info header the tag/ref points to and decode the compressed data size */ for (j = 0; j < num_recs; j++) { uint8 *pntr = NULL; /* temp pointer to vdata record */ uint16 chk_tag, chk_ref; /* each chunk's tag/ref */ /* Read single record */ if(VSread(chktab_id,v_data,1,FULL_INTERLACE)==FAIL) HGOTO_ERROR(DFE_VSREAD,FAIL); pntr = v_data; /* set pointer to vdata record */ /* Skip origin first */ for (k = 0; k < chkinfo->ndims; k++) { pntr += sizeof(int32); } /* Get the chunk's tag and ref */ HDmemcpy(&chk_tag, pntr, sizeof(uint16)); pntr += sizeof(uint16); HDmemcpy(&chk_ref, pntr, sizeof(uint16)); /* Prepare to read the info which the tag/ref points to */ chk_aid = Hstartaccess(file_id, MKSPECIALTAG(chk_tag), chk_ref, DFACC_READ); if (chk_aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); /* Read 10 bytes: special tag (2), comp. version (2), uncomp length (4), and comp. ref# (2) */ if (Hread(chk_aid, 10, chk_spbuf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* Decode and check the special tag to be sure */ p = chk_spbuf; UINT16DECODE(p, sp_tag); /* 2 bytes */ if (sp_tag == SPECIAL_COMP) { /* Skip compression version (2 bytes) and uncompressed data length (4 bytes) */ p = p + 2 + 4; /* Get ref # of compressed data (2 bytes) */ UINT16DECODE(p, comp_ref); /* Get length of compressed data. Note that this length is specified as compressed chunk size times nt_size. */ if ((len = Hlength(file_id, DFTAG_COMPRESSED, comp_ref)) == FAIL) HGOTO_ERROR(DFE_BADLEN, FAIL); /* Accumulate compressed size of all chunks. */ chk_comp_data_size = chk_comp_data_size + len; } /* sp_tag is not SPECIAL_COMP, while 'chkinfo->flag' above is SPECIAL_COMP, something must be wrong */ else HGOTO_ERROR(DFE_COMPINFO, FAIL); /* End access to special info of an individual chunk */ if(Hendaccess(chk_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* for each record */ break; } default: /* Element is not compressed, use non-compressed data size. Note: must multiply by num_recs here because when element is compressed, chk_comp_data_size was calculated by accumulating "len" of each compressed chunk (see case above) */ chk_comp_data_size = chk_data_size * num_recs; } /* switch flag */ } /* if comp_size != NULL && num_recs >= 0 */ if (VSdetach(chktab_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* it is a vdata */ else HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Return requested sizes */ if (comp_size != NULL) *comp_size = chk_comp_data_size; if (orig_size != NULL) *orig_size = chk_data_size * num_recs; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ /* Free allocated space for vdata record */ if (v_data != NULL) HDfree(v_data); /* Free special chunk info struct */ if (chkinfo != NULL) HDfree(chkinfo); return ret_value; } /* HMCgetdatasize */ /*-------------------------------------------------------------------------- NAME HMCsetMaxcache - maximum number of chunks to cache DESCRIPTION Set the maximum number of chunks to cache. The values set here affects the current object's caching behaviour. If the chunk cache is full and 'maxcache' is greater then the current 'maxcache' value, then the chunk cache is reset to the new 'maxcache' value, else the chunk cache remains at the current 'maxcache' value. If the chunk cache is not full, then the chunk cache is set to the new 'maxcache' value only if the new 'maxcache' value is greater than the current number of chunks in the cache. Use flags arguement of 'HMC_PAGEALL' if the whole object is to be cached in memory otherwise passs in zero. RETURNS Returns number of 'maxcache' if successful and FAIL otherwise AUTHOR -GeorgeV - 9/3/96 NOTE This calls the real routine mcache_set_maxcache(). Currently 'maxcache' has to be greater than 1. -------------------------------------------------------------------------- */ int32 HMCsetMaxcache(int32 access_id, /* IN: access aid to mess with */ int32 maxcache, /* IN: max number of pages to cache */ int32 flags /* IN: flags = 0, HMC_PAGEALL */) { CONSTR(FUNC, "HMCsetMaxcache"); /* for HERROR */ accrec_t *access_rec = NULL; /* access record */ chunkinfo_t *info = NULL; /* chunked element information record */ int32 ret_value = SUCCEED; /* shut compiler up */ flags=flags; #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCsetMaxcache: access_id =%d \n", access_id); #endif /* Check args */ access_rec = HAatom_object(access_id); if (access_rec == NULL || maxcache < 1) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCsetMaxcache: access_rec->special =%d \n", access_rec->special); fprintf(stderr,"HMCsetMaxcache: access_rec->ddid =%d \n", access_rec->ddid); #endif /* since this routine can be called by the user, need to check if this access id is special CHUNKED */ if (access_rec->special == SPECIAL_CHUNKED) { info = (chunkinfo_t *) (access_rec->special_info); if (info != NULL) ret_value = mcache_set_maxcache(info->chk_cache,maxcache); else ret_value = FAIL; } else /* not special */ ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCsetMaxcache() */ /* ------------------------------ HMCPstread ------------------------------- NAME HMCPstread -- open an access record of chunked element for reading DESCRIPTION Calls to HMCIstaccess to fill in the access rec for reading RETURNS The AID of the access record on success FAIL on error. AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPstread(accrec_t * access_rec /* IN: access record to fill in */) { int32 ret_value; ret_value = HMCIstaccess(access_rec, DFACC_READ); return ret_value; } /* HMCPstread */ /* ------------------------------ HMCPstwrite ------------------------------ NAME HMCPstwrite -- open an access record of a chunked elmenent for writing DESCRIPTION Calls to HMCIstaccess to fill in the access rec for writing RETURNS The AID of the access record on success FAIL on error. AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPstwrite(accrec_t * access_rec /* IN: access record to fill in */) { int32 ret_value; ret_value = HMCIstaccess(access_rec, DFACC_WRITE); return ret_value; } /* HMCPstwrite */ /* ------------------------------- HMCPseek -------------------------------- NAME HMCPseek -- set the seek posn in the chunked elemnent DESCRIPTION Set the seek posn in the given chunked element RETURNS SUCCEED / FAIL AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPseek(accrec_t * access_rec, /* IN: access record to mess with */ int32 offset, /* IN: seek offset */ int origin /* IN: where we should calc the offset from */) { CONSTR(FUNC, "HMCPseek"); /* for HERROR */ chunkinfo_t *info = NULL; /* information for the chunked elt */ int32 ret_value = SUCCEED; #ifdef CHK_DEBUG_3 printf("HMCPseek called with offset %d \n",offset); #endif /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* validate access record */ if (access_rec->special != SPECIAL_CHUNKED) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get special info */ info = (chunkinfo_t *) (access_rec->special_info); /* adjust the offset according to origin and validate */ /* there is no upper bound to posn */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += (info->length * info->nt_size); /* adjust by number type size */ if (offset < 0) HGOTO_ERROR(DFE_RANGE, FAIL); /* Seek to given location(bytes) for reading/writing */ /* i.e calculate chunk indices given seek location this will update the proper arrays in the special info struct */ update_chunk_indicies_seek(offset,info->ndims, info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); /* set position in access record */ access_rec->posn = offset; #ifdef CHK_DEBUG_3 printf("HMCPseek new user seek postion in element is %d \n",offset); #endif done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPseek */ /* ------------------------------- HMCPchunkread -------------------------------- NAME HMCPchunkread - read a chunk DESCRIPTION Read in a whole chunk from a chunked element given the chunk number. This is used as the 'page-in-chunk' routine for the cache. Only the cache should call this routine. RETURNS The number of bytes read or FAIL on error AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ int32 HMCPchunkread(void *cookie, /* IN: access record to mess with */ int32 chunk_num, /* IN: chunk to read */ void *datap /* OUT: buffer for data */) { CONSTR(FUNC, "HMCPchunkread"); /* for HERROR */ accrec_t * access_rec = (accrec_t *)cookie; /* access record */ chunkinfo_t *info = NULL; /* information record for this special data elt */ CHUNK_REC *chk_rec = NULL; /* chunk record */ TBBT_NODE *entry = NULL; /* chunk node from TBBT */ uint8 *bptr = NULL; /* pointer to data buffer */ int32 chk_id = FAIL; /* chunk id */ int32 bytes_read = 0; /* total # bytes read for this call of HMCIread */ int32 read_len = 0; /* length of bytes to read */ int32 nitems = 1; /* used in HDmemfill(), */ int32 ret_value = SUCCEED; /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* set inputs */ bptr = (uint8 *) datap; info = (chunkinfo_t *) (access_rec->special_info); bytes_read = 0; read_len = (info->chunk_size * info->nt_size); #ifdef CHK_DEBUG_3 printf("HMCPchunkread called with chunk %d \n",chunk_num); #endif /* find chunk record in TBBT */ if ((entry = (tbbtdfind(info->chk_tree, &chunk_num, NULL))) == NULL) { /* does not exist */ /* calculate number of fill value items to fill buffer with */ nitems = (info->chunk_size * info->nt_size) / info->fill_val_len; /* copy fill values into buffer and return */ if (HDmemfill(datap,info->fill_val, (uint32)info->fill_val_len,(uint32)nitems) == NULL) HE_REPORT_GOTO("HDmemfill failed to fill read chunk", FAIL); } else /* exists in TBBT */ { /* get chunk record from node */ chk_rec = (CHUNK_REC *) entry->data; /* check to see if has been written to */ if (chk_rec->chk_tag != DFTAG_NULL && BASETAG(chk_rec->chk_tag) == DFTAG_CHUNK) { /* valid chunk in file */ /* Start read on chunk */ if ((chk_id = Hstartread(access_rec->file_id, chk_rec->chk_tag, chk_rec->chk_ref)) == FAIL) { Hendaccess(chk_id); HE_REPORT_GOTO("Hstartread failed to read chunk", FAIL); } /* read data from chunk */ if (Hread(chk_id, read_len, bptr) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); bytes_read = read_len; /* end access to chunk */ if (Hendaccess(chk_id) == FAIL) HE_REPORT_GOTO("Hendaccess failed to end access to chunk", FAIL); } else if (chk_rec->chk_tag == DFTAG_NULL) {/* chunk has not been written, so return fill value buffer */ /* calculate number of fill value items to fill buffer with */ nitems = (info->chunk_size * info->nt_size) / info->fill_val_len; /* copy fill values into buffer and return */ if (HDmemfill(datap,info->fill_val, (uint32)info->fill_val_len,(uint32)nitems) == NULL) HE_REPORT_GOTO("HDmemfill failed to fill read chunk", FAIL); } else /* not a valid chunk ref for now */ { /* For now DFTAG_CHUNK is the only allowed value. In the future this could be another Chunk table. */ HE_REPORT_GOTO("Not a valid Chunk object, wrong tag for chunk", FAIL); } } /* end else exists in TBBT tree */ ret_value = bytes_read; /* number of bytes read */ done: if(ret_value == FAIL) { /* Error condition cleanup */ if (chk_id != FAIL) Hendaccess(chk_id); } /* end if */ /* Normal function cleanup */ #ifdef CHK_DEBUG_3 printf("HMCPchunkread exit with ret_value= %d \n",ret_value); #endif return ret_value; } /* HMCPchunkread() */ /* ------------------------------- HMCreadChunk --------------------------- NAME HMCreadChunk -- read a whole chunk DESCRIPTION Read a whole chunk from a chunked element. This can be used by users to read whole chunks from the file based on chunk origin for now i.e postion of chunk in overall . chunk array. RETURNS The number of bytes read or FAIL on error AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCreadChunk(int32 access_id, /* IN: access aid to mess with */ int32 *origin, /* IN: origin of chunk to read */ void *datap /* IN: buffer for data */) { CONSTR(FUNC, "HMCreadChunk"); /* for HERROR */ accrec_t *access_rec = NULL; /* access record */ #ifdef UNUSED uint8 *data = NULL; /* data buffer */ #endif /* UNUSED */ filerec_t *file_rec = NULL; /* file record */ chunkinfo_t *info = NULL; /* chunked element information record */ uint8 *bptr = NULL; /* data buffer pointer */ void *chk_data = NULL; /* chunk data */ uint8 *chk_dptr = NULL; /* chunk data pointer */ int32 relative_posn; /* relative position in chunked element */ int32 bytes_read = 0; /* total #bytes read */ int32 read_len = 0; /* bytes to read next */ int32 chunk_num = -1; /* chunk number */ int32 ret_value = SUCCEED; intn i; #ifdef CHK_DEBUG_5 printf("HMCreadChunk: entered \n"); #endif /* Check args */ access_rec = HAatom_object(access_id); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (origin == NULL || datap == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* validate file records */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* can read from this file? */ if (!(file_rec->access & DFACC_READ)) HGOTO_ERROR(DFE_DENIED, FAIL); /* since this routine can be called by the user, need to check if this access id is special CHUNKED */ if (access_rec->special == SPECIAL_CHUNKED) { /* Set inputs */ #ifdef UNUSED data = (uint8 *) datap; #endif /* UNUSED */ info = (chunkinfo_t *) (access_rec->special_info); relative_posn = access_rec->posn; read_len = (info->chunk_size * info->nt_size); bytes_read = 0; bptr = datap; /* copy origin over to seek chunk indicies and set position within chunk to beginning of that chunk */ for (i = 0; i < info->ndims; i++) { info->seek_chunk_indices[i] = origin[i]; info->seek_pos_chunk[i] = 0; } #ifdef CHK_DEBUG_5 printf(" Seek start(in chunk array):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_chunk_indices[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif /* calculate chunk number from origin */ calculate_chunk_num(&chunk_num, info->ndims, origin, info->ddims); #ifdef CHK_DEBUG_5 printf("HMCreadChunk called with chunk %d \n",chunk_num); #endif /* currently get chunk data from cache based on chunk number Note the cache deals with objects starting from 1 not 0 */ if ((chk_data = mcache_get(info->chk_cache, /* cache handle */ chunk_num+1, /* chunk number */ 0 /* flag: unused */)) == NULL) HE_REPORT_GOTO("failed to find chunk record", FAIL); chk_dptr = chk_data; /* set chunk data ptr */ /* copy data from chunk to users buffer */ HDmemcpy(bptr, chk_dptr, read_len); /* put chunk back to cache and mark it as *not* DIRTY */ if (mcache_put(info->chk_cache, /* cache handle */ chk_data, /* whole data chunk */ 0 /* flag: 0->not DIRTY */) == FAIL) HE_REPORT_GOTO("failed to put chunk back in cache", FAIL); /* adjust number of bytes already read */ bytes_read = read_len; #ifdef CHK_DEBUG_5 printf("HMCreadChunk: read %d bytes already\n", bytes_read); #endif /*update chunk seek indicies after reading chunk */ update_seek_pos_chunk(bytes_read,info->ndims,info->nt_size, info->seek_pos_chunk, info->ddims); /* compute user array for chunk arrays */ compute_chunk_to_array(info->seek_chunk_indices,info->seek_pos_chunk, info->seek_user_indices, info->ndims,info->ddims); /* calculate new read seek postion in element from user array */ compute_array_to_seek(&relative_posn, info->seek_user_indices, info->nt_size,info->ndims,info->ddims); #ifdef CHK_DEBUG_5 printf("HMCreadChunk: new postion in element is %d\n", relative_posn); #endif /* update access record with bytes read */ access_rec->posn = relative_posn; #ifdef CHK_DEBUG_5 /* for info only */ compute_chunk_to_seek(&relative_posn,info->ndims,info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims, info->chunk_size); printf("HMCreadChunk: new chunk seek postion in element is %d\n", relative_posn); #endif ret_value = bytes_read; } else /* not special chunked element */ ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ #ifdef CHK_DEBUG_5 printf("HMCreadChunk: exited, ret=%d \n",ret_value); #endif return ret_value; } /* HMCreadChunk() */ /* ------------------------------- HMCPread -------------------------------- NAME HMCPread - read data from a chunked element DESCRIPTION Read in some data from a chunked element. Data is obtained from the cache which takes care of reading in the proper chunks to satisfy the request. RETURNS The number of bytes read or FAIL on error AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ int32 HMCPread(accrec_t * access_rec, /* IN: access record to mess with */ int32 length, /* IN: number of bytes to read */ void * datap /* OUT: buffer for data */) { CONSTR(FUNC, "HMCPread"); /* for HERROR */ #ifdef UNUSED uint8 *data = NULL; /* data buffer */ #endif /* UNUSED */ chunkinfo_t *info = NULL; /* information record for this special data elt */ int32 relative_posn = 0; /* relative position in chunk of data elt */ int32 bytes_read = 0; /* total # bytes read for this call of HMCIread */ uint8 *bptr = NULL; /* data buffer pointer */ int32 read_len = 0; /* amount of data to copy */ int32 read_seek = 0; /* next read seek position */ int32 chunk_size = 0; /* size of data to read from chunk */ int32 chunk_num = 0; /* next chunk number */ void *chk_data = NULL; /* chunk data */ uint8 *chk_dptr = NULL; /* pointer to chunk data */ #ifdef CHK_DEBUG_3 int i; #endif int32 ret_value = SUCCEED; #ifdef CHK_DEBUG_3 printf("HMCPread called with length %d \n",length); #endif /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCread: access_rec->special =%d \n", access_rec->special); fprintf(stderr,"HMCread: access_rec->ddid =%d \n", access_rec->ddid); #endif /* set inputs */ #ifdef UNUSED data = (uint8 *) datap; #endif /* UNUSED */ info = (chunkinfo_t *) (access_rec->special_info); relative_posn = access_rec->posn; /* current seek postion in element */ /* validate length and set proper length */ if (length == 0) length = (info->length * info->nt_size) - access_rec->posn; else if (length < 0) HGOTO_ERROR(DFE_RANGE, FAIL); if (access_rec->posn + length > (info->length * info->nt_size)) length = (info->length * info->nt_size) - access_rec->posn; /* should chunk indicies be updated with relative_posn? or did last operation update it already */ update_chunk_indicies_seek(access_rec->posn,info->ndims, info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); /* enter translating length to proper filling of buffer from chunks */ bptr = datap; bytes_read = 0; read_len = length; while (bytes_read < read_len) { /* for debuging */ #ifdef CHK_DEBUG_3 int i; printf(" Seek start(in chunk array):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_chunk_indices[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); printf(" Seek start(within the chunk):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_pos_chunk[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif /* calculate chunk to retrieve on this pass */ calculate_chunk_num(&chunk_num,info->ndims,info->seek_chunk_indices, info->ddims); /* calculate contiguous chunk size that we can read from this chunk during this pass */ calculate_chunk_for_chunk(&chunk_size,info->ndims,info->nt_size, read_len,bytes_read, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); /* would be nice to get Chunk record from TBBT based on chunk number and then get chunk data base on chunk vdata number but currently the chunk calculations return chunk numbers and not Vdata record numbers. This would reduce some overhead in the number of chunks dealt with in the cache */ /* currently get chunk data from cache based on chunk number Note the cache deals with objects starting from 1 not 0 */ if ((chk_data = mcache_get(info->chk_cache, /* cache handle */ chunk_num+1, /* chunk number */ 0 /* flag: unused */)) == NULL) HE_REPORT_GOTO("failed to find chunk record", FAIL); chk_dptr = chk_data; /* set chunk data ptr */ /* calculate position in chunk */ calculate_seek_in_chunk(&read_seek,info->ndims,info->nt_size, info->seek_pos_chunk, info->ddims); chk_dptr += read_seek; /* move to correct position in chunk */ #ifdef CHK_DEBUG_3 printf(" read pos in chunk(%d) is %d bytes\n", chunk_num, read_seek); #endif /* copy data from chunk to users buffer */ HDmemcpy(bptr, chk_dptr, chunk_size); #ifdef CHK_DEBUG_10 printf(" chk_dptr={"); for (i = 0; i < chunk_size; i++) printf("%d,",(uint8)*((uint8 *)(chk_dptr)+i)); printf("}\n"); #endif /* put chunk back to cache */ if (mcache_put(info->chk_cache, /* cache handle */ chk_data, /* whole data chunk */ 0 /* flag: 0->not DIRTY */) == FAIL) HE_REPORT_GOTO("failed to put chunk back in cache", FAIL); /* increment buffer pointer */ bptr += chunk_size; /* adjust number of bytes already read */ bytes_read += chunk_size; #ifdef CHK_DEBUG_3 printf(" read %d bytes already\n", bytes_read); #endif /* update relative position i.e. user element seek postion with chunk size written */ relative_posn += chunk_size; #ifdef CHK_DEBUG_3 printf(" relative_posn = %d bytes \n", relative_posn); #endif /* i.e calculate chunk indices given seek location this will update the proper arrays in the special info struct */ update_chunk_indicies_seek(relative_posn,info->ndims, info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); } /* end while "bytes_read" */ /* update access record postion with bytes read */ access_rec->posn += bytes_read; ret_value = bytes_read; #ifdef CHK_DEBUG_10 printf(" datap={"); for (i = 0; i < length; i++) printf("%d,",(uint8)*((uint8 *)(datap)+i)); printf("}\n"); #endif done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPread */ /* ------------------------------- HMCPchunkwrite ------------------------------- NAME HMCPchunkwrite -- write out chunk DESCRIPTION Write a whole chunk to a chunked element given the chunk number. This is used as the 'page-out-chunk' routine for the cache. Only the cache should call this routine. RETURNS The number of bytes written or FAIL on error AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPchunkwrite(void *cookie, /* IN: access record to mess with */ int32 chunk_num, /* IN: chunk number */ const void *datap /* IN: buffer for data */) { CONSTR(FUNC, "HMCPchunkwrite"); /* for HERROR */ accrec_t * access_rec = (accrec_t *)cookie; /* access record */ chunkinfo_t *info = NULL; /* chunked element information record */ CHUNK_REC *chk_rec = NULL; /* current chunk */ TBBT_NODE *entry = NULL; /* node off of chunk tree */ uint8 *v_data = NULL; /* chunk table record i.e Vdata record */ CHUNK_REC *chkptr = NULL; /* Chunk record to inserted in TBBT */ const void *bptr = NULL; /* data buffer pointer */ int32 chk_id = FAIL ; /* chunkd accces id */ #ifdef UNUSED uint8 *data = NULL; /* data buffer */ int32 relative_posn; /* relative position in chunked element */ #endif /* UNUSED */ int32 bytes_written = 0; /* total #bytes written by HMCIwrite */ int32 write_len = 0; /* nbytes to write next */ int32 ret_value = SUCCEED; intn k; /* loop index */ /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Set inputs */ info = (chunkinfo_t *) (access_rec->special_info); #ifdef UNUSED data = (uint8 *) datap; relative_posn = access_rec->posn; #endif /* UNUSED */ write_len = (info->chunk_size * info->nt_size); bytes_written = 0; bptr = datap; #ifdef CHK_DEBUG_4 printf("HMCPchunkwrite called with chunk %d \n",chunk_num); #endif /* find chunk record in TBBT */ if ((entry = (tbbtdfind(info->chk_tree, &chunk_num, NULL))) == NULL) HE_REPORT_GOTO("failed to find chunk record", FAIL); chk_rec = (CHUNK_REC *) entry->data; /* get file entry from node */ /* Check to see if already created in chunk table */ if (chk_rec->chk_tag == DFTAG_NULL) { /* does not exists in Vdata table and in file but does in TBBT */ uint8 *pntr = NULL; chkptr = chk_rec; /* so create a new Vdata record */ /* Allocate space for a single Chunk record in Vdata */ if (v_data == NULL) { if ((v_data = HDmalloc(((size_t)info->ndims*sizeof(int32)) + (2*sizeof(uint16)))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* Initialize chunk record */ chkptr->chk_tag = DFTAG_CHUNK; chkptr->chk_ref = Htagnewref(access_rec->file_id, DFTAG_CHUNK); #ifdef CHK_DEBUG_4 printf(" chktpr->chk_tag=%d, ",chkptr->chk_tag); printf(" chktpr->chk_ref=%d, ",chkptr->chk_ref); printf(" chkptr->origin = ("); for (k = 0; k < info->ndims; k++) printf("%d%s", chkptr->origin[k], k!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif if (chkptr->chk_ref == 0) { /* out of ref numbers -- extremely fatal */ HGOTO_ERROR(DFE_NOREF, FAIL); } /* Copy origin first to vdata record*/ pntr = v_data; for (k = 0; k < info->ndims; k++) { HDmemcpy(pntr, &chkptr->origin[k],sizeof(int32)); pntr += sizeof(int32); } /* Copy tag next */ HDmemcpy(pntr, &chkptr->chk_tag,sizeof(uint16)); pntr += sizeof(uint16); /* Copy ref last */ HDmemcpy(pntr, &chkptr->chk_ref,sizeof(uint16)); /* Add to Vdata i.e. chunk table */ if(VSwrite(info->aid,v_data,1,FULL_INTERLACE)==FAIL) HGOTO_ERROR(DFE_VSWRITE,FAIL); /* Create compressed chunk if set else start write access on element */ switch(info->flag & 0xff) /* only using 8bits for now */ { case SPECIAL_COMP: /* Create compressed chunk */ if ((chk_id = HCcreate(access_rec->file_id, chk_rec->chk_tag, chk_rec->chk_ref, info->model_type, info->minfo, info->comp_type, info->cinfo)) == FAIL) HE_REPORT_GOTO("HCcreate failed to read chunk", FAIL); break; default: /* Start write on chunk */ if ((chk_id = Hstartwrite(access_rec->file_id, chk_rec->chk_tag, chk_rec->chk_ref,write_len)) == FAIL) HE_REPORT_GOTO("Hstartwrite failed to read chunk", FAIL); break; } } /* not already in Vdata table */ else { /* Already in table so start access */ /* Start write on chunk */ if ((chk_id = Hstartwrite(access_rec->file_id, chk_rec->chk_tag, chk_rec->chk_ref,write_len)) == FAIL) HE_REPORT_GOTO("Hstartwrite failed to read chunk", FAIL); } /* write data to chunk */ if (Hwrite(chk_id, write_len, bptr) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); bytes_written = write_len; /* end access to chunk */ if (Hendaccess(chk_id) == FAIL) HE_REPORT_GOTO("Hendaccess failed to end access to chunk", FAIL); ret_value = bytes_written; done: if(ret_value == FAIL) { /* Error condition cleanup */ if (chk_id != FAIL) Hendaccess(chk_id); } /* end if */ /* Normal function cleanup */ if (v_data != NULL) HDfree(v_data); #ifdef CHK_DEBUG_4 printf("HMCPchunkwrite exited with ret_value %d \n",ret_value); #endif return ret_value; } /* HMCPchunkwrite() */ /* ------------------------------- HMCwriteChunk --------------------------- NAME HMCwriteChunk -- write out a whole chunk DESCRIPTION Write out some data from a chunked element. This can be used by users to write whole chunks to the file based on chunk origin for now i.e position of chunk in overall chunk array. RETURNS The number of bytes written or FAIL on error AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCwriteChunk(int32 access_id, /* IN: access aid to mess with */ int32 *origin, /* IN: origin of chunk to write */ const void *datap /* IN: buffer for data */) { CONSTR(FUNC, "HMCwriteChunk"); /* for HERROR */ accrec_t *access_rec = NULL; /* access record */ #ifdef UNUSED uint8 *data = NULL; /* data buffer */ CHUNK_REC *chk_rec = NULL; /* current chunk */ TBBT_NODE *entry = NULL; /* node off of chunk tree */ #endif /* UNUSED */ filerec_t *file_rec = NULL; /* file record */ chunkinfo_t *info = NULL; /* chunked element information record */ CHUNK_REC *chkptr = NULL; /* Chunk record to inserted in TBBT */ int32 *chk_key = NULL; /* Chunk recored key for insertion in TBBT */ const void *bptr = NULL; /* data buffer pointer */ void *chk_data = NULL; /* chunk data */ uint8 *chk_dptr = NULL; /* chunk data pointer */ int32 relative_posn; /* relative position in chunked element */ int32 bytes_written = 0; /* total #bytes written by HMCIwrite */ int32 write_len = 0; /* bytes to write next */ int32 chunk_num = -1; /* chunk number */ int32 ret_value = SUCCEED; intn k; /* loop index */ intn i; #ifdef CHK_DEBUG_4 printf("HMCwriteChunk: entered \n"); #endif /* Check args */ access_rec = HAatom_object(access_id); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (origin == NULL || datap == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* validate file records */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* can write in this file? */ if (!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* since this routine can be called by the user, need to check if this access id is special CHUNKED */ if (access_rec->special == SPECIAL_CHUNKED) { /* Set inputs */ #ifdef UNUSED data = (uint8 *) datap; #endif /* UNUSED */ info = (chunkinfo_t *) (access_rec->special_info); relative_posn = access_rec->posn; write_len = (info->chunk_size * info->nt_size); bytes_written = 0; bptr = datap; /* copy origin over to seek chunk indicies and set position within chunk to beginning of that chunk */ for (i = 0; i < info->ndims; i++) { info->seek_chunk_indices[i] = origin[i]; info->seek_pos_chunk[i] = 0; } #ifdef CHK_DEBUG_4 printf(" Seek start(in chunk array):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_chunk_indices[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif /* calculate chunk number from origin */ calculate_chunk_num(&chunk_num, info->ndims, origin, info->ddims); #ifdef CHK_DEBUG_4 printf("HMCwriteChunk called with chunk %d \n",chunk_num); #endif /* find chunk record in TBBT */ if (tbbtdfind(info->chk_tree, &chunk_num, NULL) == NULL) { /* not in tree */ /* so create a new chunk record */ /* Allocate space for a chunk record */ if ((chkptr = (CHUNK_REC *) HDmalloc(sizeof(CHUNK_REC))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Allocate space for a origin in chunk record */ if ((chkptr->origin = (int32 *) HDmalloc((size_t)info->ndims*sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate space for key */ if ((chk_key = (int32 *)HDmalloc(sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Initialize chunk record */ chkptr->chk_tag = DFTAG_NULL; chkptr->chk_ref = 0; #ifdef CHK_DEBUG_4 printf("HMCwriteChunk: chktpr->chk_tag=%d, ",chkptr->chk_tag); printf(" chktpr->chk_ref=%d \n",chkptr->chk_ref); #endif /* Intialize chunk origins */ for (k = 0; k < info->ndims; k++) { chkptr->origin[k] = origin[k]; #ifdef CHK_DEBUG_4 printf(" chktpr->origin[%d]=%d, ",k,chkptr->origin[k]); #endif } #ifdef CHK_DEBUG_4 printf("\n"); #endif /* set chunk record number to next Vdata record number */ chkptr->chk_vnum = info->num_recs++; /* set key to chunk number */ chkptr->chunk_number = *chk_key = chunk_num; /* add to TBBT tree based on chunk number as the key */ tbbtdins(info->chk_tree, chkptr , chk_key); #ifdef UNUSED /* assign over new chk */ chk_rec = chkptr; #endif /* UNUSED */ /* re-intialize ptrs to allow for error-failure check */ chkptr = NULL; chk_key = NULL; } #ifdef UNUSED else /* already in TBBT tree */ chk_rec = (CHUNK_REC *) entry->data; /* get file entry from node */ #endif /* UNUSED */ /* would be nice to get Chunk record from TBBT based on chunk number and then get chunk data base on chunk vdata number but currently the chunk calculations return chunk numbers and not Vdata record numbers. This would reduce some overhead in the number of chunks dealt with in the cache */ /* get chunk data from cache based on chunk number chunks in the cache start from 1 not 0 */ if ((chk_data = mcache_get(info->chk_cache, /* cache handle */ chunk_num+1, /* chunk number */ 0 /* flag: unused */)) == NULL) HE_REPORT_GOTO("failed to find chunk record", FAIL); chk_dptr = chk_data; /* set chunk data ptr */ /* copy data from users buffer to chunk */ HDmemcpy(chk_dptr, bptr, write_len); /* put chunk back to cache and mark it as DIRTY */ if (mcache_put(info->chk_cache, /* cache handle */ chk_data, /* whole data chunk */ MCACHE_DIRTY /* flag: DIRTY */) == FAIL) HE_REPORT_GOTO("failed to put chunk back in cache", FAIL); bytes_written = write_len; /*update chunk seek indicies after writing chunk */ update_seek_pos_chunk(bytes_written,info->ndims,info->nt_size, info->seek_pos_chunk, info->ddims); /* calculate new read seek postion */ compute_chunk_to_array(info->seek_chunk_indices,info->seek_pos_chunk, info->seek_user_indices, info->ndims,info->ddims); compute_array_to_seek(&relative_posn, info->seek_user_indices, info->nt_size,info->ndims,info->ddims); #ifdef CHK_DEBUG_4 printf(" new user seek postion in element is %d\n", relative_posn); #endif /* update access record with bytes written */ access_rec->posn = relative_posn; #ifdef CHK_DEBUG_4 /* for info only */ compute_chunk_to_seek(&relative_posn,info->ndims,info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims, info->chunk_size); printf(" new chunk seek postion in element is %d\n", relative_posn); #endif ret_value = bytes_written; } else /* not special chunked element */ ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* check chunk ptrs */ if (chkptr != NULL) { if (chkptr->origin != NULL) HDfree(chkptr->origin); HDfree(chkptr); } if (chk_key != NULL) HDfree(chk_key); } /* end if */ /* Normal function cleanup */ #ifdef CHK_DEBUG_4 printf("HMCwriteChunk: exited, ret=%d \n",ret_value); #endif return ret_value; } /* HMCwriteChunk */ /* ------------------------------- HMCPwrite ------------------------------- NAME HMCPwrite -- write out some data to a chunked element DESCRIPTION Write out some data to a chunked element. Data is obtained from the cache which takes care of obtaining the proper chunks to write to satisfy the request. The chunks are marked as dirty before being returned to the cache. RETURNS The number of bytes written or FAIL on error AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPwrite(accrec_t * access_rec, /* IN: access record to mess with */ int32 length, /* IN: number of bytes to write */ const void * datap /* IN: buffer for data */) { CONSTR(FUNC, "HMCPwrite"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ chunkinfo_t *info = NULL; /* chunked element information record */ #ifdef UNUSED CHUNK_REC *chk_rec = NULL; /* current chunk */ uint8 *data = NULL; /* data buffer */ TBBT_NODE *entry = NULL; /* node off of chunk tree */ #endif /* UNUSED */ CHUNK_REC *chkptr = NULL; /* Chunk record to inserted in TBBT */ int32 *chk_key = NULL; /* Chunk recored key for insertion in TBBT */ const uint8 *bptr = NULL; /* data buffer pointer */ void *chk_data = NULL; /* chunk data */ uint8 *chk_dptr = NULL; /* chunk data pointer */ int32 relative_posn; /* relative position in chunked element */ int32 bytes_written = 0;/* total #bytes written by HMCIwrite */ int32 write_len = 0; /* next write size */ int32 write_seek = 0; /* next write seek */ int32 chunk_size = 0; /* chunk size */ int32 chunk_num = 0; /* chunk number */ int32 ret_value = SUCCEED; intn k; /* loop index */ #ifdef CHK_DEBUG_4 intn i; #endif #ifdef CHK_DEBUG_4 printf("HMCPwrite called with length %d \n",length); #endif /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Set inputs */ #ifdef UNUSED data = (uint8 *) datap; #endif /* UNUSED */ file_rec = HAatom_object(access_rec->file_id); info = (chunkinfo_t *) (access_rec->special_info); relative_posn = access_rec->posn; write_len = length; /* validate length and file records */ if (length <= 0) HGOTO_ERROR(DFE_RANGE, FAIL); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* should chunk indicies be updated with relative_posn? or did last operation update it already */ update_chunk_indicies_seek(access_rec->posn,info->ndims, info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); bytes_written = 0; bptr = datap; while (bytes_written < write_len) { /* for debuging */ #ifdef CHK_DEBUG_4 printf("Seek start(in chunk array):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_chunk_indices[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); printf(" Seek start(within the chunk):("); for (i = 0; i < info->ndims; i++) printf("%d%s", info->seek_pos_chunk[i], i!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif /* calculate chunk to retrieve */ calculate_chunk_num(&chunk_num,info->ndims,info->seek_chunk_indices, info->ddims); /* calculate contiguous chunk size that we can write to this chunk */ calculate_chunk_for_chunk(&chunk_size,info->ndims,info->nt_size, write_len,bytes_written, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); #ifdef CHK_DEBUG_4 printf(" writing chunk(%d) of %d bytes ->\n", chunk_num, chunk_size); #endif /* find chunk record in TBBT */ if (tbbtdfind(info->chk_tree, &chunk_num, NULL) == NULL) { /* not in tree */ /* so create a new chunk record */ /* Allocate space for a chunk record */ if ((chkptr = (CHUNK_REC *) HDmalloc(sizeof(CHUNK_REC))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Allocate space for a origin in chunk record */ if ((chkptr->origin = (int32 *) HDmalloc((size_t)info->ndims*sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* allocate space for key */ if ((chk_key = (int32 *)HDmalloc(sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Initialize chunk record */ chkptr->chk_tag = DFTAG_NULL; chkptr->chk_ref = 0; #ifdef CHK_DEBUG_4 printf(" chktpr->chk_tag=%d, ",chkptr->chk_tag); printf(" chktpr->chk_ref=%d, ",chkptr->chk_ref); #endif /* Intialize chunk origins */ for (k = 0; k < info->ndims; k++) chkptr->origin[k] = info->seek_chunk_indices[k]; #ifdef CHK_DEBUG_4 printf(" chkptr->origin = ("); for (k = 0; k < info->ndims; k++) printf("%d%s", chkptr->origin[k], k!= info->ndims-1 ? ",":NULL); printf(")\n"); #endif /* set chunk record number to next Vdata record number */ chkptr->chk_vnum = info->num_recs++; /* set key to chunk number */ chkptr->chunk_number = *chk_key = chunk_num; /* add to TBBT tree based on chunk number as the key */ tbbtdins(info->chk_tree, chkptr , chk_key); #ifdef UNUSED /* assign over new chk */ chk_rec = chkptr; #endif /* UNUSED */ /* re-intialize ptrs to allow for error-failure check */ chkptr = NULL; chk_key = NULL; } #ifdef UNUSED else /* already in TBBT tree */ chk_rec = (CHUNK_REC *) entry->data; /* get file entry from node */ #endif /* UNUSED */ /* would be nice to get Chunk record from TBBT based on chunk number and then get chunk data base on chunk vdata number but currently the chunk calculations return chunk numbers and not Vdata record numbers. This would reduce some overhead in the number of chunks dealt with in the cache */ #ifdef CHK_DEBUG_4 printf(" getting chunk %d from cache\n",chunk_num); #endif /* get chunk data from cache based on chunk number chunks in the cache start from 1 not 0 */ if ((chk_data = mcache_get(info->chk_cache, /* cache handle */ chunk_num+1, /* chunk number */ 0 /* flag: unused */)) == NULL) HE_REPORT_GOTO("failed to find chunk record", FAIL); chk_dptr = chk_data; /* set chunk data ptr */ /* calculate position in chunk */ calculate_seek_in_chunk(&write_seek,info->ndims,info->nt_size, info->seek_pos_chunk, info->ddims); chk_dptr += write_seek; /* move to correct position in chunk */ #ifdef CHK_DEBUG_4 fprintf(stderr," write pos in chunk (%d) is %d bytes\n", chunk_num, write_seek); #endif /* copy data from users buffer to chunk */ HDmemcpy(chk_dptr, bptr, chunk_size); #ifdef CHK_DEBUG_10 printf(" chk_dptr={"); for (i = 0; i < chunk_size; i++) printf("%d,",(uint8)*((uint8 *)(chk_dptr)+i)); printf("}\n"); #endif /* put chunk back to cache as DIRTY */ if (mcache_put(info->chk_cache, /* cache handle */ chk_data, /* whole data chunk */ MCACHE_DIRTY /* flag: DIRTY */) == FAIL) HE_REPORT_GOTO("failed to put chunk back in cache", FAIL); /* increment buffer pointer */ bptr += chunk_size; /* adjust number of bytes already written */ bytes_written += chunk_size; #ifdef CHK_DEBUG_4 printf(" written %d bytes already -> \n", bytes_written); #endif /* update relative position i.e. user element seek postion with chunk size written */ relative_posn += chunk_size; #ifdef CHK_DEBUG_4 printf(" relative_posn = %d bytes \n", relative_posn); #endif /* i.e calculate chunk indices given seek location this will update the proper arrays in the special info struct */ update_chunk_indicies_seek(relative_posn,info->ndims, info->nt_size, info->seek_chunk_indices, info->seek_pos_chunk,info->ddims); } /* end while "bytes_written" */ /* update access record with bytes written */ access_rec->posn += bytes_written; ret_value = bytes_written; done: if(ret_value == FAIL) { /* Error condition cleanup */ /* check chunk ptrs */ if (chkptr != NULL) { if (chkptr->origin != NULL) HDfree(chkptr->origin); HDfree(chkptr); } if (chk_key != NULL) HDfree(chk_key); } /* end if */ /* Normal function cleanup */ #ifdef CHK_DEBUG_4 printf("HMCPwrite: exited, ret=%d \n",ret_value); #endif return ret_value; } /* HMCPwrite */ /* --------------------------------------------------------------------- NAME HMCPcloseAID -- close file but keep AID active DESCRIPTION Close the file currently being pointed to by this AID but do *NOT* free the AID. This will flush the chunk cache and free up the special info struct. This is called by Hnextread() which reuses an AID to point to the 'next' object as requested. If the current object was an chunked object, the chunked information needs to be closed before all reference to it is lost. NOTE: Hnextread() is a bad fcn to use since it relies on previous state information. RETURNS SUCCEED / FAIL AUTHOR -GeorgeV - 9/3/96 ---------------------------------------------------------------------------*/ int32 HMCPcloseAID(accrec_t *access_rec /* IN: access record of file to close */) { CONSTR(FUNC, "HMCPcloseAID"); /* for HERROR */ chunkinfo_t *info = NULL; /* special information record */ int32 ret_value = SUCCEED; /* check args */ info = (chunkinfo_t *) access_rec->special_info; if (info == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* detach the special information record. If no more references to that, free the record */ if (--(info->attached) == 0) { #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCPcloseAID: info->attached =%d, last one \n", info->attached); #endif if (info->chk_cache != NULL) { /* Sync chunk cache */ mcache_sync(info->chk_cache); #ifdef STATISTICS /* cache statistics if 'mcache.c' complied with -DSTATISTICS */ mcache_stat(info->chk_cache); #endif /* close chunk cache */ mcache_close(info->chk_cache); } /* cache not empty */ /* clean up chunk table lists and info record here */ /* Use Vxxx interface to end access to Vdata info */ if (info->aid != FAIL) { if (VSdetach(info->aid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } else HGOTO_ERROR(DFE_BADAID, FAIL); if (Vend(access_rec->file_id) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* clean up chunk tree */ tbbtdfree(info->chk_tree, chkdestroynode, chkfreekey); /* free up stuff in special info */ if (info->ddims != NULL) HDfree(info->ddims); if (info->seek_chunk_indices != NULL) HDfree(info->seek_chunk_indices); if (info->seek_pos_chunk != NULL) HDfree(info->seek_pos_chunk); if (info->seek_user_indices != NULL) HDfree(info->seek_user_indices); if (info->fill_val != NULL) HDfree(info->fill_val); if (info->comp_sp_tag_header != NULL) HDfree(info->comp_sp_tag_header); if (info->cinfo != NULL) HDfree(info->cinfo); if (info->minfo != NULL) HDfree(info->minfo); /* finally free up info */ HDfree(info); access_rec->special_info = NULL; } /* attached to info */ else { #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCPcloseAID: info->attached =%d \n", info->attached); #endif } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPcloseAID */ /* ----------------------------- HPendaccess ----------------------------- NAME HMCPendacess -- close a chunk element AID DESCRIPTION Free up all of the space used to store information about a chunked element. All relevant info will be flushed. Update proper records i.e. access_rec, file_rec..etc RETURNS SUCCEED / FAIL AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ intn HMCPendaccess(accrec_t * access_rec /* IN: access record to close */) { CONSTR(FUNC, "HMCPendaccess"); /* for HERROR */ filerec_t *file_rec = NULL; /* file record */ intn ret_value = SUCCEED; /* validate arguments first */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file rec and special info */ file_rec = HAatom_object(access_rec->file_id); /* validate file record */ if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* detach the special information record. If no more references to that, free the record */ if (HMCPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* update file and access records */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* detach from the file */ file_rec->attach--; #ifdef CHK_DEBUG_2 fprintf(stderr,"HMCPendaccess: file_rec->attach =%d \n", file_rec->attach); #endif /* free the access record */ HIrelease_accrec_node(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPendaccess */ /* ------------------------------- HMCPinfo -------------------------------- NAME HMCPinfo -- return info about a chunked element DESCRIPTION Return information about the given chunked element. 'info_chunk' is assumed to be non-NULL. RETURNS SUCCEED / FAIL AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ int32 HMCPinfo(accrec_t *access_rec, /* IN: access record of access elemement */ sp_info_block_t *info_chunk /* OUT: information about the special element */) { CONSTR(FUNC, "HMCPinfo"); /* for HERROR */ chunkinfo_t *info = NULL; /* special information record */ int32 ret_value = SUCCEED; intn i; /* loop variable */ /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* validate access record */ if (access_rec->special != SPECIAL_CHUNKED) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the info_chunk */ info = (chunkinfo_t *) access_rec->special_info; info_chunk->key = SPECIAL_CHUNKED; info_chunk->chunk_size = (info->chunk_size * info->nt_size); /* phsyical size */ info_chunk->ndims = info->ndims; if ((info->flag & 0xff) == SPECIAL_COMP) /* only using 8bits for now */ { info_chunk->comp_type = (int32)info->comp_type; info_chunk->model_type = (int32)info->model_type; } else { info_chunk->comp_type = COMP_CODE_NONE; info_chunk->model_type = 0; } /* allocate space for chunk lengths */ if (( info_chunk->cdims = (int32 *) HDmalloc((size_t)info->ndims*sizeof(int32)))==NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* copy info over */ for (i = 0; i < info->ndims; i++) { info_chunk->cdims[i] = info->ddims[i].chunk_length; } done: if(ret_value == FAIL) { /* Error condition cleanup */ if (info_chunk->cdims != NULL) HDfree(info_chunk->cdims); } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPinfo */ /* ------------------------------ HMCPinquire ----------------------------- NAME HMCPinquire -- Hinquire for chunked elements DESCRIPTION Return interesting information about a chunked element. NULL can be passed for any of the OUT parameters if their value is not needed. RETURNS SUCCEED/FAIL AUTHOR -GeorgeV - 9/3/96 --------------------------------------------------------------------------- */ int32 HMCPinquire(accrec_t *access_rec, /* IN: access record to return info about */ int32 *pfile_id, /* OUT: file ID; */ uint16 *ptag, /* OUT: tag of info record; */ uint16 *pref, /* OUT: ref of info record; */ int32 *plength, /* OUT: length of element; */ int32 *poffset, /* OUT: offset of element -- meaningless */ int32 *pposn, /* OUT: current position in element; */ int16 *paccess, /* OUT: access mode; */ int16 *pspecial /* OUT: special code; */) { CONSTR(FUNC, "HMCPinquire"); /* for HERROR */ uint16 data_tag, data_ref; /* Tag/ref of the data in the file */ chunkinfo_t *info = NULL; /* special information record */ int32 ret_value = SUCCEED; /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get special info */ info = (chunkinfo_t *) access_rec->special_info; /* get latest info for the dataset */ if(HTPinquire(access_rec->ddid,&data_tag,&data_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* fill in the variables if they are present */ if (pfile_id) *pfile_id = access_rec->file_id; if (ptag) *ptag = data_tag; if (pref) *pref = data_ref; if (plength) *plength = (info->length * info->nt_size); if (poffset) *poffset = 0; /* meaningless */ if (pposn) *pposn = access_rec->posn; if (paccess) *paccess = (int16)access_rec->access; if (pspecial) *pspecial = (int16)access_rec->special; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPinquire */ /* ------------------------------------------------------------------------- NAME HMCPgetnumrecs -- get the number of records in a chunked element DESCRIPTION Retrieves the number of records in a chunked element. This function was originally added for SDcheckempty/HDcheckempty to determine whether a chunked SDS has been written with data. RETURNS SUCCEED/FAIL - FAIL when num_recs is NULL AUTHOR bmribler - 10/3/2004 ---------------------------------------------------------------------------*/ int32 HMCPgetnumrecs(accrec_t* access_rec, /* access record */ int32 *num_recs /* OUT: length of the chunked elt */) { CONSTR(FUNC, "HMCPgetnumrecs"); /* for HGOTO_ERROR */ chunkinfo_t *chunk_info = NULL; /* chunked element information record */ int32 ret_value = SUCCEED; /* Check args */ if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the special info from the given record */ chunk_info = (chunkinfo_t *) access_rec->special_info; if (chunk_info == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (num_recs) *num_recs = chunk_info->num_recs; else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HMCPgetnumrecs */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfutilf.c0000644000000000000000000000527412421456623014247 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfutilf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfutilf.c * Purpose: C stubs for Fortran utility routines * Invokes: dfutil.c * Contents: * dfindnr_: For a given tag, find the next ref after the given ref *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: dfindnr * Purpose: For this tag, find the ref after lref * Inputs: dfile: ptr to open DF file * tag: tag to look for * lref: ref after which to search * * Returns: the desired ref if successful, on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFfindnextref *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfindnr(intf * dfile, intf * tag, intf * lref) { return ((intf)DFfindnextref(*dfile, (uint16) *tag, (uint16) *lref)); } /* CEND7MAX */ /*----------------------------------------------------------------------------- * Name: dffindnextref * Purpose: For this tag, find the ref after lref * Inputs: dfile: ptr to open DF file * tag: tag to look for * lref: ref after which to search * * Returns: the desired ref if successful, on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFfindnextref *---------------------------------------------------------------------------*/ FRETVAL(intf) ndffindnextref(intf * dfile, intf * tag, intf * lref) { return ((intf)DFfindnextref(*dfile, (uint16) *tag, (uint16) *lref)); } libhdf4-4.2.10/HDF_ALT/hdf/src/vgp.c0000644000000000000000000031264612421456623013412 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: vgp.c 5743 2012-01-11 16:27:15Z bmribler $ */ /***************************************************************************** file - vgp.c Part of the Vset interface. VGROUPs are handled by routines in here. LOCAL ROUTINES ============== VIget_vgroup_node -- allocate a new VGROUP record VIrelease_vgroup_node -- Releases a vgroup node VIget_vginstance_node -- allocate a new vginstance_t record VIrelease_vginstance_node -- Releases a vginstance node Get_vfile -- get vgroup file record New_vfile -- create new vgroup file record Load_vfile -- loads vgtab table with info of all vgroups in file. Remove_vfile -- removes the file ptr from the vfile[] table. VPgetinfo -- Read in the "header" information about the Vgroup. VIstart -- V-level initialization routine VPshutdown -- Terminate various static buffers. EXPORTED ROUTINES ================= Following 4 routines are solely for B-tree routines. vcompare -- Compares two TBBT-tree keys for equality. Similar to memcmp. vprint -- Prints out the key and reference number of VDatas and Vgroups vdestroynode -- destroy vgroup node in TBBT vfdestroynode -- destroy vgroup file record node in TBBT vtfreekey -- Frees B-Tree index (actually doesn't anything at all) Vinitialize -- initialize Vxxx interface Vfinish -- end Vxxx access to file vginstance -- Looks thru vgtab for vgid and return the addr of the vg instance where vgid is found. vexistvg -- Tests if a vgroup with id "vgid" is in the file's vgtab. vpackvg -- Extracts fields from a VGROUP struct "vg" and packs the fields into array buf in preparation for storage in the HDF file. vunpackvg -- Unpacks the fields from a buf (ie a DFTAG_VG data object just read in from the HDF file), into a VGROUP structure vg. Vattach -- Attaches to an existing vgroup or creates a new vgroup. Vdetach -- Detaches access to vg. Vinsert -- Inserts a velt (vs or vg) into a vg Vflocate -- Checks to see if the given field exists in a vdata belonging to this vgroup. Vinqtagref -- Checks whether the given tag/ref pair already exists in the vgroup. Vntagrefs -- Returns the number (0 or +ve integer) of tag/ref pairs in a vgroup. Vnrefs -- Vgettagrefs -- Returns n tag/ref pairs from the vgroup into the caller-supplied arrays(tagrarray and refarray). Vgettagref -- Returns a specified tag/ref pair from the vgroup. VQuerytag -- Return the tag of this Vgroup. VQueryref -- Return the ref of this Vgroup. Vaddtagref -- Inserts a tag/ref pair into the attached vgroup vg. vinsertpair -- Inserts a tag/ref pair into the attached vgroup vg. Ventries -- Returns the num of entries (+ve integer) in the vgroup vgid. Vsetname -- Gives a name to the VGROUP vg. Vsetclass -- Assigns a class name to the VGROUP vg. Visvg -- Tests if the given entry in the vgroup vg is a VGROUP. Visvs -- Checks if an id in a vgroup refers to a VDATA. Vgetid -- Given a vgroup's id, returns the next vgroup's id in the file. Vgetnext -- Given the id of an entry from a vgroup vg, looks in vg for the next entry after it, and returns its id. Vgetnamelen -- Retrieves the length of the vgroup's name. Vgetclassnamelen -- Retrieves the length of the vgroup's classname. Vgetname -- Returns the vgroup's name. Vgetclass -- Returns the vgroup's class name . Vgetvgroups -- Gets user-created vgroups in a file or in a vgroup Vinquire -- General inquiry routine for VGROUP. Vopen -- This routine opens the HDF file and initializes it for Vset operations.(i.e." Hopen(); Vinitialize(f)"). Vclose -- This routine closes the HDF file, after it has freed all memory and updated the file. (i.e." Vfinish(f); Hclose(f);"). Vdelete -- Remove a Vgroup from its file. This function will both remove the Vgoup from the internal Vset data structures as well as from the file. Vdeletetagref - delete tag/ref pair in Vgroup NOTE: Another pass needs to made through this file to update some of the comments about certain sections of the code. -GV 9/8/97 *************************************************************************/ #define VSET_INTERFACE #include "hdf.h" /* These are used to determine whether a vgroup had been created by the library internally, that is, not created by user's application */ #define HDF_NUM_INTERNAL_VGS 6 const char *HDF_INTERNAL_VGS[] = {_HDF_VARIABLE, _HDF_DIMENSION, _HDF_UDIMENSION, _HDF_CDF, GR_NAME, RI_NAME}; /* Prototypes */ extern VOID vprint(VOIDP k1); PRIVATE intn Load_vfile (HFILEID f); PRIVATE intn Remove_vfile (HFILEID f); PRIVATE intn vunpackvg (VGROUP * vg, uint8 buf[], intn len); PRIVATE intn VIstart(void); /* * -------------------------------------------------------------------- * PRIVATE data structure and routines. * * Info about all vgroups in the file are loaded into vgtab at start; * and the vg field set to NULL until that vgroup is attached, * and reset back to NULL when that vgroup is detached. * Info about all vdatas in the file are loaded into vstab at start; * and the vs field set to NULL until that vdata is attached, * and reset back to NULL when that vdata is detached. * -------------------------------------------------------------------- */ TBBT_TREE *vtree = NULL; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* Temporary buffer for I/O */ PRIVATE uint32 Vgbufsize = 0; PRIVATE uint8 *Vgbuf = NULL; /* Pointers to the VGROUP & vginstance node free lists */ static VGROUP *vgroup_free_list = NULL; static vginstance_t *vginstance_free_list = NULL; /******************************************************************************* NAME VIget_vgroup_node -- allocate a new VGROUP record DESCRIPTION Return a pointer to a new VGROUP to use for a new VGID. RETURNS returns VGROUP record pointer or NULL if failed. *******************************************************************************/ VGROUP * VIget_vgroup_node(void) { VGROUP *ret_value = NULL; CONSTR(FUNC, "VIget_vgroup_node"); /* clear error stack */ HEclear(); /* Grab from free list if possible */ if(vgroup_free_list != NULL) { ret_value = vgroup_free_list; vgroup_free_list = vgroup_free_list->next; } /* end if */ else { if((ret_value = (VGROUP *)HDmalloc(sizeof(VGROUP))) == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ /* Initialize to zeros */ HDmemset(ret_value,0,sizeof(VGROUP)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* VIget_vgroup_node */ /****************************************************************************** NAME VIrelease_vgroup_node -- Releases a vgroup node DESCRIPTION Puts an VGROUP node into the free list RETURNS No return value *******************************************************************************/ void VIrelease_vgroup_node(VGROUP *vg) { #ifdef LATER CONSTR(FUNC, "VIrelease_vgroup_node"); /* for HERROR */ #endif /* LATER */ /* Insert the atom at the beginning of the free list */ vg->next = vgroup_free_list; vgroup_free_list = vg; } /* end VIrelease_vgroup_node() */ /****************************************************************************** NAME VIget_vginstance_node -- allocate a new vginstance_t record DESCRIPTION Return an pointer to a new vginstance to use for a new VGID. RETURNS returns vginstance_t pointer or NULL if failed. *******************************************************************************/ vginstance_t * VIget_vginstance_node(void) { vginstance_t *ret_value = NULL; CONSTR(FUNC, "VIget_vginstance_node"); /* clear error stack */ HEclear(); /* Grab from free list if possible */ if(vginstance_free_list != NULL) { ret_value = vginstance_free_list; vginstance_free_list = vginstance_free_list->next; } /* end if */ else { if((ret_value = (vginstance_t *)HDmalloc(sizeof(vginstance_t))) == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ /* Initialize to zeros */ HDmemset(ret_value,0,sizeof(vginstance_t)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* VIget_vginstance_node */ /****************************************************************************** NAME VIrelease_vginstance_node -- Releases a vginstance node DESCRIPTION Puts a vginstance node into the free list RETURNS No return value *******************************************************************************/ void VIrelease_vginstance_node(vginstance_t *vg /* IN: vgroup instance to release */) { #ifdef LATER CONSTR(FUNC, "VIrelease_vginstance_node"); /* for HERROR */ #endif /* LATER */ /* Insert the vsinstance at the beginning of the free list */ vg->next = vginstance_free_list; vginstance_free_list = vg; } /* end VIrelease_vginstance_node() */ /******************************************************************************* NAME Get_vfile -- get vgroup file record DESCRIPTION Looks in the TBBT vtree for the file ID of the file. RETURNS Returns a pointer to the vfile_t for that file on success, otherwise NULL. *******************************************************************************/ vfile_t * Get_vfile(HFILEID f /* IN: file handle */) { VOIDP *t = NULL; /* vfile_t pointer from tree */ int32 key = (int32)f; /* initialize key to file handle */ /* find file record */ t = (VOIDP *) tbbtdfind(vtree, (VOIDP) &key, NULL); return((vfile_t *)(t==NULL ? NULL : *t)); } /* end Get_vfile() */ /******************************************************************************* NAME New_vfile -- create new vgroup file record DESCRIPTION Creates vfile_t structure and adds it to the tree RETURNS Returns a pointer to the vfile_t for that file on success, otherwise NULL. *******************************************************************************/ PRIVATE vfile_t * New_vfile(HFILEID f /* IN: file handle */) { vfile_t *v = NULL; /* Allocate the vfile_t structure */ if (NULL == (v = (vfile_t *) HDcalloc(1,sizeof(vfile_t)))) return(NULL); /* Assign the file ID & insert into the tree */ v->f = f; /* insert the vg instance in B-tree */ tbbtdins(vtree, (VOIDP) v, NULL); /* return vfile_t struct */ return(v); } /* end New_vfile() */ /******************************************************************************* NAME Load_vfile -- loads vgtab table with info of all vgroups in file. DESCRIPTION *** Only called by Vinitialize() *** loads vgtab table with info of all vgroups in file f. Will allocate a new vfile_t, then proceed to load vg instances. RETURNS RETURNS FAIL if error or no more file slots available. RETURNS SUCCEED if ok. *******************************************************************************/ PRIVATE intn Load_vfile(HFILEID f /* IN: file handle */) { vfile_t *vf = NULL; vginstance_t *v = NULL; vsinstance_t *w = NULL; int32 aid; int32 ret; uint16 tag = DFTAG_NULL; uint16 ref = DFTAG_NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "Load_vfile"); /* clear error stack */ HEclear(); /* Check if vfile buffer has been allocated */ if (vtree == NULL) { vtree = tbbtdmake(vcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (vtree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Initialize the atom groups for Vdatas and Vgroups */ if (HAinit_group(VSIDGROUP,VATOM_HASH_SIZE) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (HAinit_group(VGIDGROUP,VATOM_HASH_SIZE) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* Grab the existing vfile_t structure first, otherwise create a new one */ if ((vf = Get_vfile(f)) == NULL) { if ((vf = New_vfile(f)) == NULL) HGOTO_ERROR(DFE_FNF, FAIL); } /* the file is already loaded (opened twice) do nothing */ if (vf->access++) HGOTO_DONE(SUCCEED); /* load all the vg's tag/refs from file */ vf->vgtabn = 0; /* intialize to number of current entries to zero */ vf->vgtree = tbbtdmake(vcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (vf->vgtree == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); ret = aid = Hstartread(f, DFTAG_VG, DFREF_WILDCARD); while (ret != FAIL) { /* get tag/ref for this vgroup */ HQuerytagref(aid, &tag, &ref); /* get a vgroup struct to fill */ if (NULL == (v = VIget_vginstance_node())) { tbbtdfree(vf->vgtree, vdestroynode, NULL); HGOTO_ERROR(DFE_NOSPACE, FAIL); } vf->vgtabn++; /* increment number of vgroups found in file */ v->key = (int32) ref; /* set the key for the node */ v->ref = (uintn) ref; /* get the header information */ v->vg = VPgetinfo(f,ref); if (v->vg == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* insert the vg instance in B-tree */ tbbtdins(vf->vgtree, (VOIDP) v, NULL); /* get next vgroup */ ret = Hnextread(aid, DFTAG_VG, DFREF_WILDCARD, DF_CURRENT); } if (aid != FAIL) Hendaccess(aid); /* clear error stack - this is to remove the faux errors about DD not found from when Hstartread is called on a new file */ HEclear(); /* load all the vs's tag/refs from file */ vf->vstabn = 0; vf->vstree = tbbtdmake(vcompare, sizeof(int32), TBBT_FAST_INT32_COMPARE); if (vf->vstree == NULL) { tbbtdfree(vf->vgtree, vdestroynode, NULL); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ ret = aid = Hstartread(f, VSDESCTAG, DFREF_WILDCARD); while (ret != FAIL) { /* get tag/ref for this vdata */ HQuerytagref(aid, &tag, &ref); /* attach new vs to file's vstab */ if (NULL == (w = VSIget_vsinstance_node())) { tbbtdfree(vf->vgtree, vdestroynode, NULL); tbbtdfree(vf->vstree, vsdestroynode, NULL); HGOTO_ERROR(DFE_NOSPACE, FAIL); } vf->vstabn++; /* increment number of vdatas found in file */ w->key = (int32) ref; /* set the key for the node */ w->ref = (uintn)ref; /* get the header information */ w->vs = VSPgetinfo(f,ref); if (w->vs == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); w->nattach = 0; w->nvertices = 0; /* insert the vg instance in B-tree */ tbbtdins(vf->vstree, (VOIDP) w, NULL); /* get next vdata */ ret = Hnextread(aid, VSDESCTAG, DFREF_WILDCARD, DF_CURRENT); } if (aid != FAIL) Hendaccess(aid); /* clear error stack - this is to remove the faux errors about DD not found from when Hstartread is called on a new file */ HEclear(); /* file may be incompatible with vset version 2.x. Need to check it */ if (((int32) 0 == vf->vgtabn) && ((int32) 0 == vf->vstabn)) { if ((int32) 0 == vicheckcompat(f)) { /* not compatible */ #if 0 nvfile--; /* delete the structure for that file */ #endif tbbtdfree(vf->vgtree, vdestroynode, NULL); tbbtdfree(vf->vstree, vsdestroynode, NULL); HGOTO_ERROR(DFE_BADOPEN, FAIL); } } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Load_vfile */ /****************************************************************************** NAME Remove_vfile -- removes the file ptr from the vfile[] table. DESCRIPTION removes the file ptr from the vfile[] table. *** Only called by Vfinish() *** RETURNS *******************************************************************************/ PRIVATE intn Remove_vfile(HFILEID f /* IN: file handle */) { VOIDP *t = NULL; vfile_t *vf = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "Remove_vfile"); /* clear error stack */ HEclear(); /* Check if vfile buffer has been allocated */ if (vtree == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Figure out what file to work on */ if ((vf = Get_vfile(f)) == NULL) HGOTO_ERROR(DFE_FNF, FAIL); /* If someone still has an active pointer to this file we don't remove it. */ if (--vf->access) HGOTO_DONE(SUCCEED); /* clear out the tbbt's */ tbbtdfree(vf->vgtree, vdestroynode, NULL); tbbtdfree(vf->vstree, vsdestroynode, NULL); /* Find the node in the tree */ if (( t = (VOIDP *) tbbtdfind(vtree, (VOIDP) &f, NULL)) == NULL) HGOTO_DONE(FAIL); /* Delete the node and free the vfile_t stucture */ vf = tbbtrem((TBBT_NODE **) vtree, (TBBT_NODE *) t, NULL); HDfree(vf); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Remove_vfile */ /****************************************************************************** NAME vcompare -- compare two TBBT keys for equality DESCRIPTION Compares two B-tree keys for equality. Similar to memcmp. *** Only called by B-tree routines, should _not_ be called externally *** RETURNS *******************************************************************************/ intn vcompare(VOIDP k1, /* IN: first key to compare*/ VOIDP k2, /* IN: second key to compare */ intn cmparg /* IN: not used */) { /* shut compiler up */ cmparg = cmparg; return (intn) ((*(int32 *)k1) - (*(int32 *)k2)); /* valid for integer keys */ } /* vcompare */ /****************************************************************************** NAME vprint -- print key and reference number of vgroup/vdata node in TBBT DESCRIPTION Prints out the key and reference number of VDatas and Vgroups *** Only called by B-tree routines, should _not_ be called externally *** RETURNS *******************************************************************************/ VOID vprint(VOIDP k1 /* IN: key to print */) { printf("Ptr=%p, key=%d, ref=%d\n", k1, (int) ((vginstance_t *) k1)->key, (int) ((vginstance_t *) k1)->ref); } /* vprint */ /****************************************************************************** NAME vdestroynode -- destroy vgroup node in TBBT DESCRIPTION Frees B-Tree nodes *** Only called by B-tree routines, should _not_ be called externally *** RETURNS Nothing *******************************************************************************/ VOID vdestroynode(VOIDP n /* IN: node to free */) { VGROUP *vg = NULL; if (n != NULL) { vg = ((vginstance_t *) n)->vg; if (vg != NULL) { HDfree((VOIDP) vg->tag); HDfree((VOIDP) vg->ref); if (vg->vgname != NULL) HDfree((VOIDP) vg->vgname); if (vg->vgclass != NULL) HDfree((VOIDP) vg->vgclass); if (vg->alist != NULL) HDfree((VOIDP) vg->alist); /* Free the old-style attr list and reset associated fields */ if (vg->old_alist != NULL) { HDfree((VOIDP) vg->old_alist); vg->old_alist = NULL; vg->noldattrs = 0; } VIrelease_vgroup_node(vg); } VIrelease_vginstance_node((vginstance_t *)n); } /* end if n */ } /* vdestroynode */ /******************************************************************************* NAME vfdestroynode -- destroy vgroup file record node in TBBT DESCRIPTION Frees B-Tree vfile_t nodes *** Only called by B-tree routines, should _not_ be called externally *** RETURNS Nothing *******************************************************************************/ VOID vfdestroynode(VOIDP n /* IN: vfile_t record to free */) { vfile_t *vf = NULL; if (n != NULL) { vf=(vfile_t *)n; /* clear out the tbbt's */ tbbtdfree(vf->vgtree, vdestroynode, NULL); tbbtdfree(vf->vstree, vsdestroynode, NULL); HDfree(vf); } } /* vfdestroynode */ #ifdef NOTNEEDED /* ---------------------------- vtfreekey ------------------------- */ /* Frees B-Tree index (actually doesn't anything at all) *** Only called by B-tree routines, should _not_ be called externally *** */ VOID vtfreekey(VOIDP k) { k = k; /* i.e. do nothing */ } /* vtfreekey */ #endif /******************************************************************************* NAME Vinitialize -- initialize Vxxx interface DESCRIPTION Initialize Vxxx stuff/interface ? RETURNS SUCCEED / FAIL *******************************************************************************/ intn Vinitialize(HFILEID f /* IN: file handle */) { intn ret_value = SUCCEED; CONSTR(FUNC, "Vinitialize"); /* clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) { if(VIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); } /* load Vxx stuff from file? */ if (Load_vfile(f) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vinitialize() */ /******************************************************************************* NAME Vfinish -- end Vxxx access to file DESCRIPTION End Vxxx acess to file? RETURNS SUCCEED / FAIL *******************************************************************************/ intn Vfinish(HFILEID f /* IN: file handle */) { intn ret_value = SUCCEED; CONSTR(FUNC, "Vfinish"); /* clear error stack */ HEclear(); /* remove Vxxx file record ? */ if (Remove_vfile(f) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vfinish() */ /******************************************************************************* NAME vginst DESCRIPTION Looks thru vgtab for vgid and return the addr of the vg instance where vgid is found. RETURNS RETURNS NULL if error or not found. RETURNS vginstance_t pointer if ok. *******************************************************************************/ vginstance_t * vginst(HFILEID f, /* IN: file handle */ uint16 vgid /* IN: vgroup id */) { VOIDP *t = NULL; vfile_t *vf = NULL; vginstance_t *ret_value = NULL; int32 key; CONSTR(FUNC, "vginstance"); /* clear error stack */ HEclear(); /* get file Vxxx file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, NULL); /* tbbtdfind returns a pointer to the vginstance_t pointer */ key = (int32)vgid; t = (VOIDP *) tbbtdfind(vf->vgtree, (VOIDP) &key, NULL); if (t != NULL) { ret_value = ((vginstance_t *) * t); /* return the actual vginstance_t ptr */ goto done; } /* we get here then we did find vgroup */ HGOTO_ERROR(DFE_NOMATCH, NULL); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vginst */ /******************************************************************************* NAME vexistvg DESCRIPTION Tests if a vgroup with id vgid is in the file's vgtab. RETURNS returns FAIL if not found, returns TRUE if found. *******************************************************************************/ int32 vexistvg(HFILEID f, /* IN: file handle */ uint16 vgid /* IN: vgroup id */) { int32 ret_value; #ifdef LATER CONSTR(FUNC, "vexistvg"); #endif if (NULL == (vginstance_t *) vginst(f, vgid)) ret_value = (FAIL); else ret_value = (TRUE); return ret_value; } /* vexistvg */ /* ==================================================================== */ /* * vpackvg() and vunpackvg() : Packing and unpacking routines. * For use in retrieving and storing vgroups to/from the HDF file. * * Fields of VGROUP that gets stored in HDF as a DFTAG_VG data object: * int16 nvelt (no of entries ) * char* vgname * char* vgclass * int16 tag[1..nvelt] * int16 ref[1..nvelt] * (fields for version 4) * uint32 flags * (if bit0 of flags is set, the vg has attributes ) * int32 nattrs * vg_attr_t alist[1..nattrs] */ /* ==================================================================== */ /******************************************************************************* NAME vpackvg DESCRIPTION Extracts fields from a VGROUP struct vg and packs the fields into array buf in preparation for storage in the HDF file. RETRUNS NO RETURN VALUES. *******************************************************************************/ intn vpackvg(VGROUP * vg, /* IN: */ uint8 buf[], /* IN/OUT: */ int32 *size /* IN/OUT: */) { #ifdef LATER CONSTR(FUNC, "vpackvg"); #endif uintn i; size_t slen = 0; uint16 temp_len = 0; uint8 *bb = NULL; int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); bb = &buf[0]; /* save nvelt */ UINT16ENCODE(bb, vg->nvelt); /* save all tags */ for (i = 0; i < (uintn)vg->nvelt; i++) UINT16ENCODE(bb, vg->tag[i]); /* save all refs */ for (i = 0; i < (uintn)vg->nvelt; i++) UINT16ENCODE(bb, vg->ref[i]); /* save the vgnamelen and vgname - omit the null */ if (vg->vgname != NULL) slen = HDstrlen(vg->vgname); temp_len = slen > 0 ? slen : 0; UINT16ENCODE(bb, temp_len); if (vg->vgname != NULL) HDstrcpy((char *) bb, vg->vgname); bb += temp_len; /* save the vgclasslen and vgclass- omit the null */ slen = 0; if (vg->vgclass != NULL) slen = HDstrlen(vg->vgclass); temp_len = slen > 0 ? slen : 0; UINT16ENCODE(bb, temp_len); if (vg->vgclass != NULL) HDstrcpy((char *) bb, vg->vgclass); bb += temp_len; /* save the expansion tag/ref pair */ UINT16ENCODE(bb, vg->extag); /* the vg's expansion tag */ UINT16ENCODE(bb, vg->exref); /* the vg's expansion ref */ if (vg->flags) { /* save the flag and update version num */ if (vg->version < VSET_NEW_VERSION) vg->version = VSET_NEW_VERSION; UINT32ENCODE(bb, vg->flags); if (vg->flags & VG_ATTR_SET) { /* save the attrs */ INT32ENCODE(bb, vg->nattrs); for (i=0; i<(uintn)vg->nattrs; i++) { UINT16ENCODE(bb, vg->alist[i].atag); UINT16ENCODE(bb, vg->alist[i].aref); } } } /* save the vg's version field */ UINT16ENCODE(bb, vg->version); /* save the vg's more field */ UINT16ENCODE(bb, vg->more); /* returns the size of total fields saved */ *size = (int32) (bb - buf) + 1; *bb = 0; /* NOTE: the '+1' part shouldn't be there */ /* but since files have been created with */ /* it there (and the size calc. wrong) it */ /* has to be left alone -QAK */ #ifdef LATER done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return ret_value; } /* vpackvg */ /******************************************************************************* NAME vunpackvg: DESCRIPTION Unpacks the fields from a buf (ie a DFTAG_VG data object just read in from the HDF file), into a VGROUP structure vg. Will first zero out vg, unpack fields, then inits as much of vg as it can. RETURNS NO RETURN VALUES *******************************************************************************/ PRIVATE intn vunpackvg(VGROUP * vg, /* IN/OUT: */ uint8 buf[], /* IN: */ intn len /* IN: */) { uint8 *bb = NULL; uintn u; uint16 uint16var; intn i; int32 ret_value = SUCCEED; CONSTR(FUNC, "vunpackvg"); /* clear error stack */ HEclear(); /* '5' is a magic number, the exact amount of space for 2 uint16's */ /* the magic number _should_ be '4', but the size of the Vgroup */ /* information is incorrectly calculated (in vpackvg() above) when the */ /* info is written to the file and it's too late to change it now :-( */ bb = &buf[len - 5]; UINT16DECODE(bb, uint16var); /* retrieve the vg's version field */ vg->version=(int16)uint16var; UINT16DECODE(bb, uint16var); /* retrieve the vg's more field */ vg->more=(int16)uint16var; bb = &buf[0]; /* retrieve nvelt */ if (vg->version <= 4) { /* current Vset version number */ UINT16DECODE(bb, vg->nvelt); vg->msize = ((uintn)vg->nvelt > (uintn)MAXNVELT ? vg->nvelt : MAXNVELT); vg->tag = (uint16 *) HDmalloc(vg->msize * sizeof(uint16)); vg->ref = (uint16 *) HDmalloc(vg->msize * sizeof(uint16)); if ((vg->tag == NULL) || (vg->ref == NULL)) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* retrieve the tags */ for (u = 0; u < (uintn)vg->nvelt; u++) UINT16DECODE(bb, vg->tag[u]); /* retrieve the refs */ for (u = 0; u < (uintn)vg->nvelt; u++) UINT16DECODE(bb, vg->ref[u]); /* retrieve vgname (and its len) */ UINT16DECODE(bb, uint16var); if (uint16var == 0) vg->vgname = NULL; else { vg->vgname = (char *)HDmalloc(uint16var+1); HIstrncpy(vg->vgname, (char *) bb, (intn) uint16var + 1); bb += (size_t)uint16var; } /* retrieve vgclass (and its len) */ UINT16DECODE(bb, uint16var); if (uint16var == 0) vg->vgclass = NULL; else { vg->vgclass = (char *)HDmalloc(uint16var+1); HIstrncpy(vg->vgclass, (char *) bb, (intn) uint16var + 1); bb += (size_t)uint16var; } UINT16DECODE(bb, vg->extag); /* retrieve the vg's expansion tag */ UINT16DECODE(bb, vg->exref); /* retrieve the vg's expansion ref */ if (vg->version == VSET_NEW_VERSION) { UINT32DECODE(bb, vg->flags); /* retrieve new features in version 4, or higher */ if (vg->flags & VG_ATTR_SET) { /* the vg has attrs */ INT32DECODE(bb, vg->nattrs); if (NULL == (vg->alist = HDmalloc(vg->nattrs * sizeof(vg_attr_t)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); for (i = 0; i < vg->nattrs; i++) { UINT16DECODE(bb, vg->alist[i].atag); UINT16DECODE(bb, vg->alist[i].aref); } /* for */ } /* attributes set */ } /* new version */ } /* end if */ done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vunpackvg */ /******************************************************************************* NAME VPgetinfo -- Read in the "header" information about the Vgroup. DESCRIPTION This routine pre-reads the header information for a Vgroup into memory so that it can be accessed more quickly by the routines that need it. RETURNS Return a pointer to a VGROUP filled with the Vgroup information on success, NULL on failure. *******************************************************************************/ VGROUP * VPgetinfo(HFILEID f, /* IN: file handle */ uint16 ref /* IN: ref of vgroup */) { VGROUP *vg = NULL; /* intn len; intn mismatches Vgbufsize type -- uint32 */ size_t len; VGROUP *ret_value = NULL; /* FAIL */ CONSTR(FUNC, "VPgetinfo"); /* clear error stack */ HEclear(); /* Find out how long the VGroup information is */ if (( len = Hlength(f, DFTAG_VG, (uint16) ref)) == FAIL) HGOTO_ERROR(DFE_INTERNAL,NULL); if(len > Vgbufsize) { Vgbufsize = len; if (Vgbuf) HDfree((VOIDP) Vgbuf); if ((Vgbuf = (uint8 *) HDmalloc(Vgbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end if */ /* Get the raw Vgroup info */ if (Hgetelement(f, DFTAG_VG, (uint16)ref, Vgbuf) == (int32)FAIL) HGOTO_ERROR(DFE_NOMATCH,NULL); /* allocate space for vg */ if (NULL == (vg =VIget_vgroup_node())) HGOTO_ERROR(DFE_NOSPACE,NULL); /* unpack vgpack into structure vg, and init */ vg->f = f; vg->oref = ref; vg->otag = DFTAG_VG; if (FAIL == vunpackvg(vg,Vgbuf,len)) HGOTO_ERROR(DFE_INTERNAL, NULL); /* return vgroup */ ret_value = vg; done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end VPgetinfo */ /******************************************************************************* NAME Vattach: DESCRIPTION attaches to an existing vgroup or creates a new vgroup. returns NULL if error, else ptr to vgroup. IGNORE accesstype. (but save it) if vgid == -1, create a NEW vg if vgdir is not full. Also set nattach =1, nentries=0. if vgid +ve, look in vgdir to see if already attached, if yes, incr nattach if not, fetch from file. attach, set nattach=1, netries= val from file In any case, set marked flag to 0. RETRUNS SUCCEED/FAIL *******************************************************************************/ int32 Vattach(HFILEID f, /* IN: file handle */ int32 vgid, /* IN: vgroup id */ const char *accesstype /* IN: access type */) { VGROUP *vg = NULL; vginstance_t *v = NULL; vfile_t *vf = NULL; filerec_t *file_rec = NULL; /* file record */ int16 acc_mode; atom_t ret_value = FAIL; CONSTR(FUNC, "Vattach"); /* clear error stack */ HEclear(); /* check file id */ if (f == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get Vxxx file record */ if ((vf = Get_vfile(f))==NULL) HGOTO_ERROR(DFE_FNF, FAIL); /* check access type to vgroup */ if (accesstype[0] == 'R' || accesstype[0]=='r') acc_mode = 'r'; else if (accesstype[0] == 'W' || accesstype[0]=='w') acc_mode = 'w'; else HGOTO_ERROR(DFE_BADACC, FAIL); /* convert file id to file record and check for write-permission */ file_rec = HAatom_object(f); if((file_rec==NULL || acc_mode=='w') && !(file_rec->access&DFACC_WRITE)) HGOTO_ERROR(DFE_BADACC, FAIL); if (vgid == -1) { /******* create a NEW vg in vgdir ******/ if (acc_mode == 'r') HGOTO_ERROR(DFE_ARGS, FAIL); /* allocate space for vg, & zero it out */ if ((vg = VIget_vgroup_node()) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* initialize new vg */ vg->msize = MAXNVELT; vg->tag = (uint16 *) HDmalloc(vg->msize * sizeof(uint16)); vg->ref = (uint16 *) HDmalloc(vg->msize * sizeof(uint16)); vg->vgname = NULL; vg->vgclass = NULL; if ((vg->tag == NULL) || (vg->ref == NULL)) HGOTO_ERROR(DFE_NOSPACE, FAIL); vg->f = f; vg->otag = DFTAG_VG; vg->oref = Hnewref(f); /* create a new unique ref for it */ if (vg->oref == 0) HGOTO_ERROR(DFE_NOREF, FAIL); vg->access = (intn)acc_mode; vg->marked = 1; /* number of old-style attributes and list of their refs, these are only used when Vnoldattrs is invoked; see Vnoldattrs func header for info. 2/4/2011 -BMR */ vg->old_alist = NULL; vg->noldattrs = 0; vg->new_vg = 1; vg->version = VSET_VERSION; /* attach new vg to file's vgtab */ if (NULL == (v = VIget_vginstance_node())) HGOTO_ERROR(DFE_NOSPACE, FAIL); vf->vgtabn++; v->key = (int32) vg->oref; /* set the key for the node */ v->ref = (uintn)vg->oref; v->vg = vg; v->nattach = 1; tbbtdins(vf->vgtree, (VOIDP) v, NULL); /* insert the vg instance in B-tree */ ret_value=HAregister_atom(VGIDGROUP,v); } else { /******* access an EXISTING vg *********/ if (NULL == (v = vginst(f, (uint16) vgid))) HGOTO_ERROR(DFE_NOMATCH, FAIL); /* vg already attached. inc nattach and return existing ptr */ if (v->nattach > 0) { v->vg->access = MAX(v->vg->access, acc_mode); v->nattach++; } else { vg=v->vg; vg->access = (intn)acc_mode; vg->marked = 0; /* number of old-style attributes and list of their refs, these are only used when Vnoldattrs is invoked; see Vnoldattrs func header for info. 2/4/2011 -BMR */ vg->old_alist = NULL; vg->noldattrs = 0; /* attach vg to file's vgtab at the vg instance v */ v->nattach = 1; v->nentries = (int32)vg->nvelt; } /* end else */ ret_value=HAregister_atom(VGIDGROUP,v); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vattach */ /******************************************************************************* NAME Vdetach DESCRIPTION Detaches access to vg. if marked flag is 1, write out vg to file. if vg still has velts attached to it, cannot detach vg. decr nattach. if (nattach is 0), free vg from vg instance. (check that no velts are still attached to vg before freeing) if attached with read access, just return. after detach, set marked flag to 0. RETURNS SUCCEED / FAIL *******************************************************************************/ int32 Vdetach(int32 vkey /* IN: vgroup key */) { VGROUP *vg = NULL; vginstance_t *v = NULL; int32 vgpacksize; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vdetach"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *)HAremove_atom(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check it */ vg = v->vg; if ((vg == NULL) || (vg->otag != DFTAG_VG)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Now, only update the Vgroup if it has actually changed. */ /* Since only Vgroups with write-access are allowed to change, there is */ /* no reason to check for access... (I hope) -QAK */ if (vg->marked == 1) { size_t need, vgnamelen=0, vgclasslen=0; if (vg->vgname != NULL) vgnamelen = strlen(vg->vgname); if (vg->vgclass != NULL) vgclasslen = strlen(vg->vgclass); need = sizeof(VGROUP) + vgnamelen /* vgname dynamic, vpackvg omits null */ + vgclasslen /* vgclass dynamic, vpackvg omits null */ + (size_t)vg->nvelt*4 + (size_t)vg->nattrs*sizeof(vg_attr_t) + 1; if(need > Vgbufsize) { Vgbufsize = need; if (Vgbuf) HDfree((VOIDP) Vgbuf); if ((Vgbuf = (uint8 *) HDmalloc(Vgbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ if (FAIL == vpackvg(vg, Vgbuf, &vgpacksize)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* * If vgroup alreay exists, try to re-use the same * tag/ref. This will cause the pointer to the original * vgroup to be lost but this is okay. */ if(!vg->new_vg) { /* check if tag/ref exists in DD list already */ switch(HDcheck_tagref(vg->f, DFTAG_VG, vg->oref)) { case 0: /* not found */ break; case 1: /* found, reuse tag/ref */ if (HDreuse_tagref(vg->f, DFTAG_VG, vg->oref) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); break; case -1: /* error */ HGOTO_ERROR(DFE_INTERNAL, FAIL); default: /* should never get here */ HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* write out vgroup */ if (Hputelement(vg->f, DFTAG_VG, vg->oref, Vgbuf, vgpacksize) == FAIL) HERROR(DFE_WRITEERROR); vg->marked = 0; vg->new_vg = 0; } /* Free the old-style attribute list and reset associated fields */ if (vg->old_alist != NULL) { HDfree((VOIDP) vg->old_alist); vg->old_alist = NULL; vg->noldattrs = 0; } v->nattach--; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vdetach */ /******************************************************************************* NAME Vinsert DESCRIPTION inserts a velt (vs or vg) into a vg checks and prevents duplicate links. Since multiple files are now possible, check that both vg and velt are from the same file. else error. RETURNS RETURNS entry position within vg (0 or +ve) or FAIL on error. *******************************************************************************/ int32 Vinsert(int32 vkey, /* IN: vgroup key */ int32 insertkey /* IN: */) { VGROUP *vg = NULL; vginstance_t *v = NULL; uint16 newtag = 0; uint16 newref = 0; int32 newfid; uintn u; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vinsert"); /* clear error stack */ HEclear(); /* check to see if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check it */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* check write access */ if (vg->otag != DFTAG_VG || vg->access != 'w') HGOTO_ERROR(DFE_ARGS, FAIL); newfid = FAIL; if (HAatom_group(insertkey) == VSIDGROUP) { /* locate vs's index in vstab */ vsinstance_t *w; if (NULL == (w = (vsinstance_t *) HAatom_object(insertkey))) HGOTO_ERROR(DFE_NOVS, FAIL); if (w->vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); newtag = DFTAG_VH; newref = w->vs->oref; newfid = w->vs->f; } else { vginstance_t *x; if (HAatom_group(insertkey) == VGIDGROUP) { /* locate vs's index in vgtab */ if (NULL == (x = (vginstance_t *) HAatom_object(insertkey))) HGOTO_ERROR(DFE_NOVS, FAIL); if (x->vg == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); newtag = DFTAG_VG; newref = x->vg->oref; newfid = x->vg->f; } } /* make sure we found something */ if (newfid == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); if (vg->f != newfid) HGOTO_ERROR(DFE_DIFFFILES, FAIL); /* check and prevent duplicate links */ for (u = 0; u < (uintn)vg->nvelt; u++) { if ((vg->ref[u] == newref) && (vg->tag[u] == newtag)) HGOTO_ERROR(DFE_DUPDD, FAIL); } /* Finally, ok to insert */ if (vinsertpair(vg, newtag, newref) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); ret_value = (vg->nvelt - 1); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vinsert */ /******************************************************************************* NAME Vflocate DESCRIPTION Checks to see if the given field exists in a vdata belonging to this vgroup. 28-MAR-91 Jason Ng NCSA RETURNS If found, returns the ref of the vdata. If not found, or error, returns FAIL *******************************************************************************/ int32 Vflocate(int32 vkey, /* IN: vdata key */ char *field /* IN: field to locate */) { uintn u; vginstance_t *v = NULL; VGROUP *vg = NULL; int32 vskey; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vflocate"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); for (u = 0; u < (uintn)vg->nvelt; u++) { intn s; if (vg->tag[u] != VSDESCTAG) continue; vskey = VSattach(vg->f, (int32)vg->ref[u], "r"); if (vskey == FAIL) HGOTO_DONE(FAIL); s = VSfexist(vskey, field); if (VSdetach(vskey) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (s == 1) HGOTO_DONE((int32)vg->ref[u]); /* found. return vdata's ref */ } ret_value = (FAIL); /* field not found */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vflocate */ /******************************************************************************* NAME Vinqtagref DESCRIPTION Checks whether the given tag/ref pair already exists in the vgroup. 28-MAR-91 Jason Ng NCSA RETURNS RETURNS TRUE if exist RETURNS FALSE if not. *******************************************************************************/ intn Vinqtagref(int32 vkey, /* IN: vgroup key */ int32 tag, /* IN: tag to check in vgroup */ int32 ref /* IN: ref to check in vgroup */) { uintn u; uint16 ttag; uint16 rref; vginstance_t *v = NULL; VGROUP *vg = NULL; intn ret_value = FALSE; CONSTR(FUNC, "Vinqtagref"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FALSE); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FALSE); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FALSE); ttag = (uint16) tag; rref = (uint16) ref; for (u = 0; u < (uintn)vg->nvelt; u++) { if ((ttag == vg->tag[u]) && (rref == vg->ref[u])) HGOTO_DONE(TRUE); } done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vinqtagref */ /******************************************************************************* NAME Vdeletetagref - delete tag/ref pair in Vgroup DESCRIPTION Deletes the given tag/ref pair from the Vgroup. If the given tag/ref pair does not exist in the vgroup the routine will return FAIL. Users should use Vinqtagref() to check if the tag/ref pair exists before deleting. RETURNS Returns SUCCEED if the tag/ref pair is deleted from Vgroup and FAIL if unsuccessful. Author -GeorgeV 10/10/97 *******************************************************************************/ intn Vdeletetagref(int32 vkey, /* IN: vgroup key */ int32 tag, /* IN: tag to delete in vgroup */ int32 ref /* IN: ref to delete in vgroup */) { uintn i,j; /* loop indices */ uint16 ttag; /* tag for comparison */ uint16 rref; /* ref for comparison */ vginstance_t *v = NULL; /* vgroup instance struct */ VGROUP *vg = NULL; /* in-memory vgroup struct */ intn ret_value = SUCCEED; CONSTR(FUNC, "Vdeletetagref"); /* NOTE: Move the following comments to the DESCRIPTION of the fcn when the issue with duplicate tag/refs is decided. If duplicate tag/ref pairs exist, then it deletes the first occurence. If the case of duplicate tag/ref pairs the user can call Vinqtagref() to see if there are more occurences and then delete them. */ /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* set comparsion tag/ref pair */ ttag = (uint16) tag; rref = (uint16) ref; /* look through elements in vgroup */ for (i = 0; i < (uintn)vg->nvelt; i++) { /* see if element tag/ref matches search tag/ref */ if ((ttag == vg->tag[i]) && (rref == vg->ref[i])) { /* found tag/ref pair to delete. If duplicate tag/ref pairs exist, then it deletes the first occurence. If the case of duplicate tag/ref pairs the user can call Vinqtagref() to see if there are more occurences and then delete them.*/ /* check if element found is last one in vgroup */ if ( i != ((uintn)vg->nvelt - 1)) { /* Basically shifts the contents of the array down by one. This method will preserve the order without using extra memory for storage etc. If speed/performance is an issue you can use memove()/memcpy(). */ for (j = i; j < (uintn)vg->nvelt - 1; j++) { vg->tag[j] = vg->tag[j+1]; vg->ref[j] = vg->ref[j+1]; } #if 0 /* This method is quick but does not preserve the order of elements in a vgroup. swap i'th element with last one. */ vg->tag[i] = vg->tag[(uintn)vg->nvelt - 1]; vg->ref[i] = vg->ref[(uintn)vg->nvelt - 1]; #endif } /* else if last one , do nothing and allow the number of elements to be decrementd. */ /* reset last ones, just to be sure */ vg->tag[(uintn)vg->nvelt - 1] = DFTAG_NULL; vg->ref[(uintn)vg->nvelt - 1] = 0; /* invalid ref */ vg->nvelt--; /* decrement number of elements in vgroup */ vg->marked = TRUE; /* mark vgroup as changed. forces re-writing of new vgroup. */ ret_value = SUCCEED; goto done; /* we are done */ } /* if found */ } /* for all items in vgroup */ /* reaching here means tag/ref pair not found. The user should have used Vinqtagref() before calling this fcn. Oh well...*/ ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vdeletetagref */ /******************************************************************************* NAME Vntagrefs DESCRIPTION Returns the number (0 or +ve integer) of tag/ref pairs in a vgroup. If error, returns FAIL 28-MAR-91 Jason Ng NCSA. RETURNS *******************************************************************************/ int32 Vntagrefs(int32 vkey /* IN: vgroup key */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vntagrefs"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); ret_value = ((vg->otag == DFTAG_VG) ? (int32) vg->nvelt : FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vntagrefs */ /******************************************************************************* NAME Vnrefs DESCRIPTION Returns the number (0 or +ve integer) of tags of a given type in a vgroup. If error, returns FAIL 05-NOV-94 Quincey Koziol. RETURNS *******************************************************************************/ int32 Vnrefs(int32 vkey, /* IN: vgroup key */ int32 tag /* IN: tag to find refs for */) { vginstance_t *v = NULL; VGROUP *vg = NULL; uint16 ttag = (uint16)tag; /* alias for faster comparison */ uintn u; /* local counting variable */ int32 ret_value = 0; /* zero refs to start */ CONSTR(FUNC, "Vnrefs"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check it */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); for (u = 0; u < (uintn)vg->nvelt; u++) { if (ttag == vg->tag[u]) ret_value++; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vnrefs */ /******************************************************************************* NAME Vgettagrefs DESCRIPTION Returns n tag/ref pairs from the vgroup into the caller-supplied arrays tagrarray and refarray. n can be any +ve number, but arrays must be this big. 28-MAR-91 Jason Ng NCSA. NOTE: Do not confuse with Vgettagref(). RETURNS The total number of (0 or +ve #) tag/ref pairs returned. *******************************************************************************/ int32 Vgettagrefs(int32 vkey, /* IN: vgroup key */ int32 tagarray[], /* IN/OUT: tag array to fill */ int32 refarray[], /* IN/OUT: ref array to fill */ int32 n /* IN: number of pairs to return */) { int32 i; vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgettagrefs"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (n > (int32) vg->nvelt) n = (int32)vg->nvelt; for (i = 0; i < n; i++) { tagarray[i] = (int32) vg->tag[i]; refarray[i] = (int32) vg->ref[i]; } ret_value = (n); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgettagrefs */ /******************************************************************************* NAME Vgettagref DESCRIPTION Returns a specified tag/ref pair from the vgroup. User specifies an index. 12-MAY-91 Jason Ng NCSA. NOTE: Do not confuse with Vgettagrefs(). RETURNS RETURNS FAIL if OK. RETURNS SUCCEED if error. *******************************************************************************/ intn Vgettagref(int32 vkey, /* IN: vgroup key */ int32 which, /* IN: hmm */ int32 *tag, /* IN/OUT: tag to return */ int32 *ref /* IN/OUT: ref to return */) { vginstance_t *v = NULL; VGROUP *vg = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "Vgettagref"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (which < 0 || which > (int32) (vg->nvelt - 1)) HGOTO_ERROR(DFE_RANGE, FAIL); /* range err */ *tag = (int32) vg->tag[which]; *ref = (int32) vg->ref[which]; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgettagref */ /******************************************************************************* NAME VQuerytag DESCRIPTION Return the tag of this Vgroup. Return 0 on failure RETURNS *******************************************************************************/ int32 VQuerytag(int32 vkey /* IN: vgroup key */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgettagref"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); ret_value = ((int32) vg->otag); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VQuerytag */ /******************************************************************************* NAME VQueryref DESCRIPTION Return the ref of this Vgroup. Return FAIL on failure RETURN *******************************************************************************/ int32 VQueryref(int32 vkey /* IN: vgroup id */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgettagref"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); ret_value = ((int32) vg->oref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VQueryref */ /******************************************************************************* NAME Vaddtagref DESCRIPTION Inserts a tag/ref pair into the attached vgroup vg. First checks that the tag/ref is unique. (6/20/96 Maybe the original design required the uniqueness. However, the current code allows duplication if NO_DUPLICATES is not defined. The SD interface needs this feature to create SDS's with duplicated dimensions. For example a 3D SDS has dimensions "time", "presure" and "presure".) If error, returns FAIL or tag/ref is not inserted. If OK, returns the total number of tag/refs in the vgroup (a +ve integer). 28-MAR-91 Jason Ng NCSA. RETURNS *******************************************************************************/ int32 Vaddtagref(int32 vkey, /* IN: vgroup key */ int32 tag, /* IN: tag to add */ int32 ref /* IN: ref to add */) { vginstance_t *v = NULL; VGROUP *vg = NULL; #ifdef NO_DUPLICATES uintn i; #endif /* NO_DUPLICATES */ int32 ret_value = SUCCEED; CONSTR(FUNC, "Vaddtagref"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); #ifdef NO_DUPLICATES /* SD interface needs duplication if two dims have the same name. So, don't remove the ifdef/endif pair. */ /* make sure doesn't already exist in the Vgroup */ for (i = 0; i < vg->nvelt; i++) if ((tag == vg->tag[i]) && (ref == vg->ref[i])) HGOTO_DONE(FAIL); #endif /* NO_DUPLICATES */ ret_value = vinsertpair(vg, (uint16) tag, (uint16) ref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vaddtagref */ /******************************************************************************* NAME vinsertpair DESCRIPTION Inserts a tag/ref pair into the attached vgroup vg. Expand the tag/ref space if necessary RETURNS Returns the total number of tag/refs in the vgroup. *******************************************************************************/ int32 vinsertpair(VGROUP * vg, /* IN: vgroup struct */ uint16 tag, /* IN: tag to insert */ uint16 ref /* IN: ref to insert */) { int32 ret_value = SUCCEED; CONSTR(FUNC, "vinsertpair"); /* clear error stack */ HEclear(); if ((intn)vg->nvelt >= vg->msize) { vg->msize *= 2; vg->tag = (uint16 *) HDrealloc((VOIDP) vg->tag, vg->msize * sizeof(uint16)); vg->ref = (uint16 *) HDrealloc((VOIDP) vg->ref, vg->msize * sizeof(uint16)); if ((vg->tag == NULL) || (vg->ref == NULL)) HGOTO_ERROR(DFE_NOSPACE, FAIL); } vg->tag[(uintn)vg->nvelt] = tag; vg->ref[(uintn)vg->nvelt] = ref; vg->nvelt++; vg->marked = TRUE; ret_value = ((int32) vg->nvelt); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vinsertpair() */ /******************************************************************************* NAME Ventries DESCRIPTION returns the no of entries (+ve integer) in the vgroup vgid. vgid must be an actual id undocumented RETURNS RETURNS FAIL if error *******************************************************************************/ int32 Ventries(HFILEID f, /* IN: file handle */ int32 vgid /* IN: vgroup id */) { vginstance_t *v = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Ventries"); /* clear error stack */ HEclear(); /* check vgroup id? */ if (vgid < 1) HGOTO_ERROR(DFE_ARGS, FAIL); if((v = vginst(f,(uint16)vgid))==NULL) HGOTO_ERROR(DFE_NOMATCH,FAIL); /* error */ if (v->vg != NULL) ret_value = (int32)v->vg->nvelt; else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Ventries */ /******************************************************************************* NAME Vsetname DESCRIPTION gives a name to the VGROUP vg. RETURNS RETURN VALUES: SUCCEED for success, FAIL for failure (big suprise, eh?) *******************************************************************************/ int32 Vsetname(int32 vkey, /* IN: vgroup key */ const char *vgname /* IN: name to set for vgroup */) { CONSTR(FUNC, "Vsetname"); vginstance_t *v = NULL; VGROUP *vg = NULL; size_t name_len; int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* check if vgroup is valid and if vgroup name is okay */ if (HAatom_group(vkey) != VGIDGROUP || vgname == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL || vg->access!='w') HGOTO_ERROR(DFE_BADPTR, FAIL); /* copy the name over; if name exists, overwrite it */ name_len = HDstrlen(vgname); /* shortcut of length of the given name */ /* if name exists, release it */ if (vg->vgname != NULL) HDfree(vg->vgname); /* allocate space for new name */ vg->vgname = (char *)HDmalloc(name_len+1); /* check for unsuccessful allocation */ if (vg->vgname == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* copy given name after allocation succeeded, with \0 terminated */ HIstrncpy(vg->vgname, vgname, name_len+1); vg->marked = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vsetname */ /******************************************************************************* NAME Vsetclass DESCRIPTION Assigns a class name to the VGROUP vg. RETURNS RETURN VALUES: SUCCEED for success, FAIL for failure MODIFICATION 2010/01/26 No longer truncates classname to max length of VGNAMELENMAX. *******************************************************************************/ int32 Vsetclass(int32 vkey, /* IN: vgroup key */ const char *vgclass /* IN: class to set for vgroup */) { CONSTR(FUNC, "Vsetclass"); vginstance_t *v = NULL; VGROUP *vg = NULL; size_t classname_len; int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* check if class is valid */ if (vgclass == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check. Also check write access to vgroup */ vg = v->vg; if (vg == NULL || vg->access != 'w') HGOTO_ERROR(DFE_BADPTR, FAIL); /* * copy the class over; if class exists, overwrite it */ classname_len = HDstrlen(vgclass); /* length of the given class name */ /* if name exists, release it */ if (vg->vgclass != NULL) HDfree(vg->vgclass); /* allocate space for new name */ vg->vgclass = (char *)HDmalloc(classname_len+1); /* check for unsuccessful allocation */ if (vg->vgclass == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* copy given class name after allocation succeeded, with \0 terminated */ HIstrncpy(vg->vgclass, vgclass, classname_len+1); vg->marked = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vsetclass */ /******************************************************************************* NAME Visvg DESCRIPTION Tests if an entry in the vgroup vg is a VGROUP, given the entry's id. RETURNS RETURNS TRUE if so RETURNS FALSE if not, or if error *******************************************************************************/ intn Visvg(int32 vkey, /* IN: vgroup key */ int32 id /* IN: id of entry in vgroup */) { uintn u; uint16 ID; vginstance_t *v = NULL; VGROUP *vg = NULL; intn ret_value = FALSE; /* initialize to FALSE */ CONSTR(FUNC, "Visvg"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FALSE); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FALSE); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FALSE); ID = (uint16) id; /* cast 32bit ID to 16bit id */ for (u = 0; u < (uintn)vg->nvelt; u++) { if (vg->ref[u] == ID && /* if the ids match, */ vg->tag[u] == DFTAG_VG) /* and it is a vgroup */ { HGOTO_DONE(TRUE); } } done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Visvg */ /******************************************************************************* NAME Visvs DESCRIPTION Checks if an id in a vgroup refers to a VDATA RETURNS RETURNS 1 if so RETURNS 0 if not, or if error. *******************************************************************************/ intn Visvs(int32 vkey, /* IN: vgroup key */ int32 id /* IN: id of entry in vgroup */) { intn i; vginstance_t *v = NULL; VGROUP *vg = NULL; intn ret_value = FALSE; /* initialize to false */ CONSTR(FUNC, "VSisvs"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FALSE); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FALSE); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FALSE); i = (intn)vg->nvelt; while (i) { if (vg->ref[--i] == (uint16) id && vg->tag[i] == VSDESCTAG) HGOTO_DONE(TRUE); } done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Visvs */ /******************************************************************************* NAME Vgetid DESCRIPTION Given a vgroup's id, returns the next vgroup's id in the file f . The call Vgetid(f,-1) returns the id of the FIRST vgroup in the file. This id is actually the "ref" of the vgroup "tag/ref". RETURNS RETURNS -1 if error RETURNS the next vgroup's id (0 or +ve integer). *******************************************************************************/ int32 Vgetid(HFILEID f, /* IN: file handle */ int32 vgid /* IN: vgroup id */) { vginstance_t *v = NULL; vfile_t *vf = NULL; VOIDP *t = NULL; int32 key; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgetid"); /* clear error stack */ HEclear(); /* check if vgroup id is valid */ if (vgid < -1) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vgroup file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, FAIL); if (vgid == (-1)) { /* check for magic value to return the first group */ if (vf->vgtree == NULL ) HGOTO_DONE(FAIL); /* just return FAIL, no error */ if (NULL == (t = (VOIDP *) tbbtfirst((TBBT_NODE *) * (vf->vgtree)))) HGOTO_DONE(FAIL); /* just return FAIL, no error */ /* t is assumed to valid at this point */ v = (vginstance_t *) * t; /* get actual pointer to the vginstance_t */ HGOTO_DONE((int32)v->ref); /* rets 1st vgroup's ref */ } else /* vgid >= 0 */ { /* look in vgtab for vgid */ /* tbbtdfind returns a pointer to the vginstance_t pointer */ key = (int32)vgid; t = (VOIDP *) tbbtdfind(vf->vgtree, (VOIDP) &key, NULL); if (t == NULL || t == (VOIDP *) tbbtlast((TBBT_NODE *) * (vf->vgtree))) { /* couldn't find the old vgid or at the end */ ret_value = (FAIL); } else if (NULL == (t = (VOIDP *) tbbtnext((TBBT_NODE *) t))) /* get the next node in the tree */ ret_value = (FAIL); else { v = (vginstance_t *) * t; /* get actual pointer to the vginstance_t */ ret_value = (int32)v->ref; /* rets next vgroup's ref */ } /* end else */ } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetid */ /******************************************************************************* NAME Vgetnext DESCRIPTION Given the id of an entry from a vgroup vg, looks in vg for the next entry after it, and returns its id. The call Vgetnext (vg,-1) returns the id of the FIRST entry in the vgroup. Vgetnext will look at only VSET elements in the vgroup. To look at all links in a vgroup, use Vgettagrefs instead. This id is actually the "ref" of the entry's "tag/ref". RETURNS RETURNS -1 if error RETURNS the id of the next entry( 0 or +ve integer) in the vgroup. *******************************************************************************/ int32 Vgetnext(int32 vkey, /* IN: vgroup key */ int32 id /* IN: id of entry in vgroup */) { uintn u; vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = FAIL; CONSTR(FUNC, "Vgetnext"); /* clear error stack */ HEclear(); /* check if vgroup is valid. Also check if 'id' is valid */ if (HAatom_group(vkey) != VGIDGROUP || id < (-1)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check. */ vg = v->vg; if ((vg == NULL) || (vg->otag != DFTAG_VG)) HGOTO_ERROR(DFE_ARGS, FAIL); /* hmm..if no elements we return FAIL */ if (vg->nvelt == 0) HGOTO_DONE(FAIL); /* if id is '-1' then the first entry in the vgroup is returned if it is a vgroup ? */ if (id == -1) { if ((vg->tag[0] == DFTAG_VG) || (vg->tag[0] == VSDESCTAG)) HGOTO_DONE((int32)vg->ref[0]); /* id of first entry */ } /* end if */ /* look in vgroup for 'id' */ for (u = 0; u < (uintn)vg->nvelt; u++) { /* only look for vgroups? */ if ((vg->tag[u] == DFTAG_VG) || (vg->tag[u] == VSDESCTAG)) { if (vg->ref[u] == (uint16) id) { if (u == (uintn)(vg->nvelt - 1)) { HGOTO_DONE(FAIL); } /* end if */ else { if ((vg->tag[u + 1] == DFTAG_VG) || (vg->tag[u + 1] == VSDESCTAG)) { HGOTO_DONE((int32)vg->ref[u + 1]); /* return the id of next entry */ } else { HGOTO_DONE(FAIL); } } /* end else */ } /* end if */ } /* end if */ } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetnext */ /******************************************************************************* NAME Vgetnamelen DESCRIPTION Retrieves the length of the vgroup's name. RETURNS Returns SUCCEED/FAIL BMR - 2006/09/10 *******************************************************************************/ int32 Vgetnamelen(int32 vkey, /* IN: vgroup key */ uint16 *name_len /* OUT: length of vgroup's name */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgetnamelen"); /* clear error stack */ HEclear(); /* check if vgroup is valid and the vgname */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* * Obtain the name length */ /* if there is no name... */ if (vg->vgname == NULL) *name_len = 0; /* if name had been set... */ else { size_t temp_len = HDstrlen(vg->vgname); /* shortcut */ /* return name's length if it is a valid value */ if (temp_len >= 0) *name_len = (uint16)temp_len; else /* unlikely, but just in case */ ret_value = FAIL; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetnamelen */ /******************************************************************************* NAME Vgetclassnamelen DESCRIPTION Retrieves the length of the vgroup's name. RETURNS Returns SUCCEED/FAIL BMR - 2006/09/10 *******************************************************************************/ int32 Vgetclassnamelen(int32 vkey, /* IN: vgroup key */ uint16 *classname_len /* OUT: length of vgroup's classname */) { vginstance_t *v = NULL; VGROUP *vg = NULL; size_t temp_len; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgetclassnamelen"); /* clear error stack */ HEclear(); /* check if vgroup is valid and the vgname */ if (HAatom_group(vkey)!=VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* obtain the class name length */ if (vg->vgclass == NULL) *classname_len = 0; /* if name had been set... */ else { size_t temp_len = HDstrlen(vg->vgclass); /* shortcut */ /* return class name's length if it is a valid value */ if (temp_len >= 0) *classname_len = (uint16)temp_len; else /* unlikely, but just in case */ ret_value = FAIL; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetclassnamelen */ /******************************************************************************* NAME Vgetname DESCRIPTION returns the vgroup's name ASSUME that vgname has been allocated large enough to hold the name RETURNS SUCCEED / FAIL *******************************************************************************/ int32 Vgetname(int32 vkey, /* IN: vgroup key */ char *vgname /* IN/OUT: vgroup name */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgetname"); /* clear error stack */ HEclear(); /* check if vgroup is valid and the vgname */ if (HAatom_group(vkey)!=VGIDGROUP || vgname==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* copy vgroup name over if it had been set */ if (vg->vgname != NULL) HDstrcpy(vgname, vg->vgname); else vgname[0] = '\0'; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetname */ /******************************************************************************* NAME Vgetclass DESCRIPTION returns the vgroup's class name ASSUME that vgclass has been allocated large enough to hold the name RETURNS SUCCEED/FAIL *******************************************************************************/ int32 Vgetclass(int32 vkey, /* IN: vgroup key */ char *vgclass /* IN/OUT: vgroup class */) { vginstance_t *v = NULL; VGROUP *vg = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "Vgetclass"); /* clear error stack */ HEclear(); /* check if vgroup is valid and also vgroup class */ if (HAatom_group(vkey) != VGIDGROUP || vgclass==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* copy class over if it had been set */ if (vg->vgclass != NULL) HDstrcpy(vgclass, vg->vgclass); else vgclass[0] = '\0'; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetclass */ /******************************************************************************* NAME Vinquire DESCRIPTION General inquiry routine for VGROUP. output parameters: nentries - no of entries in the vgroup vgname - the vgroup's name RETURNS RETURNS FAIL if error RETURNS SUCCEED if ok *******************************************************************************/ intn Vinquire(int32 vkey, /* IN: vgroup key */ int32 *nentries, /* IN/OUT: number of entries in vgroup */ char *vgname /* IN/OUT: vgroup name */) { vginstance_t *v = NULL; VGROUP *vg = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "Vinquire"); /* clear error stack */ HEclear(); /* check if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* check tag of vgroup */ if (vg->otag != DFTAG_VG) HGOTO_ERROR(DFE_ARGS, FAIL); /* copy vgroup name if requested. Assumes 'vgname' has sufficient space */ if (vgname != NULL) HDstrcpy(vgname, vg->vgname); /* set number of entries in vgroup if requested */ if (nentries != NULL) *nentries = (int32)vg->nvelt; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vinquire */ /******************************************************************************* NAME Vopen DESCRIPTION This routine will replace the code segment " Hopen(); Vinitialize(f)". Thus, if Vopen is used, do not call Vinitialize after that. Similar to Hopen(). This routine opens the HDF file and initializes it for Vset operations. See also Vclose(). By: Jason Ng 10 Aug 92 RETURNS RETURN VALUE: if error: -1 (FAIL). if successful: the id of the file (>0). *******************************************************************************/ HFILEID Vopen(char *path, /* IN: file name */ intn acc_mode, /* IN: type of file access */ int16 ndds /* IN: number of DD in a block */) { HFILEID ret_value=SUCCEED; CONSTR(FUNC, "Vopen"); /* clear error stack */ HEclear(); /* use 'Hopen' to open file */ if ((ret_value = Hopen(path, acc_mode, ndds))== FAIL) HGOTO_ERROR(DFE_BADOPEN,FAIL); /* Initialize Vxx interface */ if(Vinitialize(ret_value)==FAIL) HGOTO_ERROR(DFE_CANTINIT,FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vopen() */ /******************************************************************************* NAME Vclose DESCRIPTION This routine will replace the code segment " Vfinish(f); Hclose(f);". Thus, if Vclose is used, do not call Vfinish before that. This routine closes the HDF file, after it has freed all memory and updated the file. See also Vopen(). RETURNS RETURN VALUE: intn status - result of Hopen(). *******************************************************************************/ intn Vclose(HFILEID f /* IN: file handle */) { #ifdef LATER CONSTR(FUNC, "Vclose"); #endif intn ret_value = SUCCEED; if (Vfinish(f) == FAIL) ret_value = FAIL; else ret_value = (Hclose(f)); return ret_value; } /* Vclose() */ /******************************************************************************* NAME Vdelete DESCRIPTION Remove a Vgroup from its file. This function will both remove the Vgoup from the internal Vset data structures as well as from the file. 'vgid' here is actually the ref of the Vgroup. (i.e. it calls tbbt_delete() and Hdeldd()) RETURNS Return FAIL / SUCCEED *******************************************************************************/ int32 Vdelete(int32 f, /* IN: file handle */ int32 vgid /* IN: vgroup id i.e. ref */) { VOIDP v; vfile_t *vf = NULL; VOIDP *t = NULL; int32 key; filerec_t *file_rec = NULL; /* file record */ int32 ret_value = SUCCEED; CONSTR(FUNC, "Vdelete"); /* clear error stack */ HEclear(); /* check vgroup id is valid */ if (vgid < 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* convert file id to file record */ if ((file_rec = HAatom_object(f)) == NULL) HGOTO_ERROR(DFE_BADACC, FAIL); /* check for write-permission to file*/ if(!(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_BADACC, FAIL); /* get vgroup file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, FAIL); /* find vgroup node in TBBT using it's ref */ key = (int32)vgid; if (( t = (VOIDP *) tbbtdfind(vf->vgtree, (VOIDP) &key, NULL))== NULL) HGOTO_DONE(FAIL); /* remove vgroup node from TBBT */ if((v = tbbtrem((TBBT_NODE **) vf->vgtree, (TBBT_NODE *) t, NULL))!=NULL) vdestroynode((VOIDP) v); /* Delete vgroup from file */ if(Hdeldd(f, DFTAG_VG, (uint16) vgid) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vdelete */ /******************************************************************************* NAME VIstart -- V-level initialization routine DESCRIPTION Register the shut-down routines (VPshutdown & VSPshutdown) for call with atexit. RETURNS Returns SUCCEED/FAIL *******************************************************************************/ PRIVATE intn VIstart(void) { intn ret_value = SUCCEED; CONSTR(FUNC, "VIstart"); /* for HERROR */ /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&VPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Install atexit() library cleanup routine */ if (HPregister_term_func(&VSPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end VIstart() */ /******************************************************************************* NAME VPshutdown -- Terminate various static buffers. DESCRIPTION Free various buffers allocated in the V routines. RETURNS Returns SUCCEED/FAIL *******************************************************************************/ intn VPshutdown(void) { VGROUP *v = NULL; vginstance_t *vg = NULL; intn ret_value = SUCCEED; CONSTR(FUNC, "VPshutdown"); /* Release the vdata free-list if it exists */ if(vgroup_free_list != NULL) { while(vgroup_free_list != NULL) { v = vgroup_free_list; vgroup_free_list = vgroup_free_list->next; v->next = NULL; HDfree(v); } /* end while */ } /* end if */ /* Release the vginstance free-list if it exists */ if(vginstance_free_list != NULL) { while(vginstance_free_list != NULL) { vg = vginstance_free_list; vginstance_free_list = vginstance_free_list->next; vg->next = NULL; HDfree(vg); } /* end while */ } /* end if */ if(vtree != NULL) { /* Free the vfile tree */ tbbtdfree(vtree, vfdestroynode, NULL); /* Destroy the atom groups for Vdatas and Vgroups */ if (HAdestroy_group(VSIDGROUP) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (HAdestroy_group(VGIDGROUP) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); vtree = NULL; } /* end if */ if(Vgbuf != NULL) { HDfree(Vgbuf); Vgbuf = NULL; Vgbufsize = 0; } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end VPshutdown() */ /******************************************************************************* NAME Vgisinternal -- Determine if a vgroup is internally created by the lib RETURNS Returns TRUE (1) if vkey is a vgroup that is internally created by the library, FALSE (0) otherwise, and FAIL if failure occurs. DESCRIPTION Checks the class name of the given vgroup against the list of internal vgroup class names, HDF_INTERNAL_VGS. There is an exception where the vgroup does not have a class and has a name set to GR_NAME. The vgroup is actually an internal vgroup, representing a GR file. It was only a very brief gap in the revisions where this scenario can happen, yet there is at least one test file generated during that period, grtdfui83.hdf. *******************************************************************************/ intn Vgisinternal(int32 vkey /* vgroup's identifier */) { CONSTR(FUNC, "Vgisinternal"); vginstance_t *v = NULL; VGROUP *vg = NULL; intn is_internal = FALSE; intn ret_value = FALSE; /* clear error stack */ HEclear(); /* Gheck if vgroup is valid */ if (HAatom_group(vkey) != VGIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* Get instance of vgroup */ if (NULL == (v = (vginstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* Get vgroup itself and check */ vg = v->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Check for internal class name if it has been set */ if (vg->vgclass != NULL) { int ii; /* If this class name is one of the internal class name then return TRUE, otherwise, return FALSE */ ii = 0; while (ii < HDF_NUM_INTERNAL_VGS && is_internal == FALSE) { size_t len = HDstrlen(HDF_INTERNAL_VGS[ii]); if (HDstrncmp(HDF_INTERNAL_VGS[ii], vg->vgclass, len) == 0) is_internal = TRUE; ii++; } } else /* no class defined */ { /* If class name is not set, check the vgroup's name to catch the case when the vgroup's name was set to GR_NAME. See HDFFR-1297 (?) for details. -BMR 2012/1/6 */ /* Check vgroup name */ if (vg->vgname != NULL) if (HDstrncmp(vg->vgname, GR_NAME, HDstrlen(GR_NAME)) == 0) is_internal = TRUE; } ret_value = is_internal; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgisinternal */ /******************************************************************************* NAME Visinternal -- Determine if a vgroup's class name is for internal only RETURNS Returns TRUE (1) if "classname" is one of the class names used for vgroups created by the the library and FALSE (0) otherwise. DESCRIPTION Checks the given name against the list of internal vgroup class names, HDF_INTERNAL_VGS. *******************************************************************************/ intn Visinternal(const char *classname /* vgroup's class name */) { int i; intn ret_value = FALSE; /* Check if this class name is one of the internal class name and return TRUE, otherwise, return FALSE */ for (i=0; i < HDF_NUM_INTERNAL_VGS; i++) { if (HDstrncmp(HDF_INTERNAL_VGS[i], classname, HDstrlen(HDF_INTERNAL_VGS[i])) == 0 ) { ret_value = TRUE; break; } } return ret_value; } /******************************************************************************* NAME Vgetvgroups -- Get user-created vgroups in a file or in a vgroup RETURNS The number of user-created vdatas if successful and FAIL, otherwise. DESCRIPTION Vgetvgroups retrieves n_vgs vgroups by their reference numbers via the caller-supplied array refarray. When a vgroup id is specified, Vgetvgroups will only retrieve the vgroups immediately belong to the specified vgroup, and not any sub-vgroups. The parameter n_vgs provides the number of values that the refarray list can hold and can be any positive number smaller than MAX_REF (65535). If n_vgs is larger than the actual number of user-created vgroups, then only the actual number of reference numbers will be retrieved. The parameter start_vg indicates the vgroup number to start at. - When start_vg is 0, the retrieval starts at the beginning. - When start_vg is between 0 and the number of user-created vgroups in the file or the specified vgroup, Vgetvgroups will start retrieving vgroups from the vgroup number start_vg. - When start_vg is greater than the number of user-created vgroups in the file or the vgroup, Vgetvgroups will return FAIL. When refarray argument is NULL, Vgetvgroups will return the actual number of user-created vgroups without further processing. This allows application to find out the size of the array for proper allocation. BMR - 2010/07/03 *******************************************************************************/ intn Vgetvgroups(int32 id, /* IN: file id or vgroup id */ uintn start_vg, /* IN: reference number to start retrieving */ uintn n_vgs, /* IN: number of user-created vgs to return */ uint16 *refarray /* IN/OUT: ref array to fill */) { CONSTR(FUNC, "Vgetvgroups"); vginstance_t *vg_inst = NULL; int32 vg_ref; intn nactual_vgs, user_vgs, ii; VGROUP *vg = NULL; intn ret_value = SUCCEED; /* Clear error stack */ HEclear(); /* Make sure that proper size is passed in for the non-null array */ if (refarray != NULL && n_vgs == 0) HGOTO_ERROR(DFE_ARGS, FAIL); /* Check if id is a file id */ if (HAatom_group(id) == FIDGROUP) { /* Look through all vgs, searching for user-created vgroups until no more vgroups in the file or the number of vgroups to be retrieved is reached */ nactual_vgs = 0;/* number of user-created vgroups to be retrieved */ user_vgs = 0; /* number of user-created vgroups */ vg_ref = Vgetid(id, -1); /* get ref number of first vg in the file */ while ((vg_ref != FAIL) /* there are more vgroups */ && ((nactual_vgs < n_vgs) || (n_vgs == 0)) && (nactual_vgs <= user_vgs)) { /* Get instance of vgroup; if it's not found, continue to look for other vgroups */ if((vg_inst = vginst(id, (uint16)vg_ref)) == NULL) continue; /* Get vgroup itself and check */ vg = vg_inst->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* If this vgroup either does not have a class name, which means it is a user-created vgroup, or has a class name and the class name is not one of the internal class names, then record its ref# according to caller's specification of where to start and how many to retrieve */ if (vg->vgclass == NULL || (vg->vgclass != NULL && Visinternal(vg->vgclass) == FALSE)) { /* Make sure to count only from vgroup number start_vg */ if (user_vgs >= start_vg) /* If caller requests for reference numbers */ if (refarray != NULL) { refarray[nactual_vgs] = (uint16)vg_ref; /* Increment the actual number of user-created vgs to be retrieved */ nactual_vgs++; } /* Increment the number of user-created vgs */ user_vgs++; } /* Move forward to the next vgroup in the file */ vg_ref = Vgetid(id, vg_ref); } /* while more vgroups in file */ /* Flag if start_vg is beyond the number of user-created vgroups */ if (user_vgs < start_vg) HGOTO_ERROR(DFE_ARGS, FAIL); /* If caller is asking for the number of vgroups only, return the number of user-created vgroups, otherwise, return the number of vgroups that are actually stored in refarray */ if (refarray == NULL) ret_value = user_vgs; else ret_value = nactual_vgs; } /* file id is given */ /* Check if the given is a vgroup id */ else if (HAatom_group(id)==VGIDGROUP) { /* vgroup id is given */ /* Get the number of sub-vgroups belong to this vgroup */ int32 n_elements = Vntagrefs(id); if (n_elements == FAIL) HGOTO_ERROR(DFE_GENAPP, FAIL); /* Get instance of vgroup */ if (NULL == (vg_inst = (vginstance_t *) HAatom_object(id))) HGOTO_ERROR(DFE_NOVS, FAIL); /* Get vgroup itself and check */ vg = vg_inst->vg; if (vg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Go through the tag list vg->tag and find user-created vgroups, until no more sub-vgroups or the number of vgroups to be retrieved is reached */ nactual_vgs = 0;/* number of user-created vgroups to be retrieved */ user_vgs = 0; /* number of user-created vgroups */ for (ii = 0; ii < n_elements && ((nactual_vgs < n_vgs)|| (n_vgs == 0)) && (nactual_vgs <= user_vgs); ii++) { /* If an element is a vgroup, then get access to it */ if (vg->tag[ii] == DFTAG_VG) { vginstance_t *subv_inst = NULL; VGROUP *subvg = NULL; /* Get instance of vgroup; if it's not found, continue to other vgroups */ if((subv_inst = vginst(vg->f, (uint16)vg->ref[ii])) == NULL) continue; /* Get vgroup itself and check */ subvg = subv_inst->vg; if (subvg == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); /* If this vgroup is internally created by the lib, then just skip it; otherwise, record its ref# according to caller's specification of where to start and how many to retrieve */ if (subvg->vgclass != NULL) { /* Make sure this vgroup is not an internal one */ if (Visinternal(subvg->vgclass) == FALSE) { /* Make sure to count only from vg number start_vg */ if (user_vgs >= start_vg) /* If caller requests for reference numbers */ if (refarray != NULL) { refarray[nactual_vgs] = (uint16)vg->ref[ii]; /* Increment the actual number of user-created vgs to be retrieved */ nactual_vgs++; } /* Increment the number of user-created vgs */ user_vgs++; } } } /* this sub element is a vgroup */ } /* for */ /* Flag if start_vg is beyond the number of user-created vgroups */ if (user_vgs < start_vg) HGOTO_ERROR(DFE_ARGS, FAIL); /* If caller is asking for the number of vgroups only, return the number of user-created vgroups, otherwise, return the number of vgroups that are actually stored in refarray */ if (refarray == NULL) ret_value = user_vgs - (intn)start_vg; else ret_value = nactual_vgs; } /* vgroup id is given */ else { fprintf(stderr, "The given ID must be a file ID or a vgroup ID\n"); HGOTO_ERROR(DFE_ARGS, FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Vgetvgroups */ libhdf4-4.2.10/HDF_ALT/hdf/src/src.inc0000644000000000000000000001155512421456623013727 0ustar # **************************************************************************** # * NCSA HDF * # * Software Development Group * # * National Center for Supercomputing Applications * # * University of Illinois at Urbana-Champaign * # * 605 E. Springfield, Champaign IL 61820 * # * * # * For conditions of distribution and use, see the accompanying * # * hdf/COPYING file. * # * * # *************************************************************************** # # $Id: src.inc 4445 2003-12-10 21:15:54Z epourmal $ # # ################################################################## # # Part of MAKEFILE for creating the HDF library, libdf.a, # # This file contains the definitions of all the source code and headers # used in the actual makefile. They are located here for ease of maintainence. # # ################################################################## # # # Header files not included for copying to 'include' directory during installation # These are private to the library and users do need them HDRS_NO= glist.h mcache.h hqueue.h HDRS=$(H_HDRS) $(DF_HDRS) $(DFAN_HDRS) $(DFRI_HDRS) $(DFSD_HDRS) $(V_HDRS) \ $(MFAN_HDRS) $(MFGR_HDRS) H_HDRS=hfile.h hdf.h hdfi.h herr.h hproto.h hcomp.h hconv.h hbitio.h \ tbbt.h crle.h cnbit.h mstdio.h cnone.h cskphuff.h cdeflate.h \ hlimits.h hntdefs.h htags.h hkit.h hcompi.h bitvect.h atom.h \ dynarray.h linklist.h hchunks.h vattr.h cszip.h DF_HDRS=df.h dfi.h dfstubs.h dfufp2i.h DFAN_HDRS=dfan.h DFRI_HDRS=dfrig.h dfgr.h DFSD_HDRS=dfsd.h V_HDRS=vg.h MFAN_HDRS=mfan.h MFGR_HDRS=mfgr.h CSRCS = $(HCSRCS) $(VCSRCS) $(DFCSRCS) $(MFCSRCS) HCSRCS=hfile.c herr.c hblocks.c hbuffer.c hcompri.c hextelt.c hkit.c hdfalloc.c \ hcomp.c hbitio.c tbbt.c hdfalloc.c hcomp.c crle.c cnbit.c mstdio.c cnone.c \ cskphuff.c cdeflate.c bitvect.c atom.c hfiledd.c dynarray.c linklist.c \ glist.c hchunks.c mcache.c cszip.c VCSRCS=vg.c vrw.c vio.c vparse.c vconv.c vsfld.c vgp.c vhi.c vattr.c DFCSRCS=$(DFG_CSRCS) $(DFAN_CSRCS) $(DFSD_CSRCS) $(DFRI_CSRCS) DFG_CSRCS=dfgroup.c dfconv.c dfufp2i.c dfutil.c dfstubs.c dfknat.c dfkswap.c \ dfkcray.c dfkvms.c dfkconv.c dfkfuji.c DFAN_CSRCS=dfan.c DFSD_CSRCS=dfsd.c DFRI_CSRCS=dfr8.c dfcomp.c dfrle.c dfimcomp.c dfjpeg.c dfunjpeg.c dfp.c \ dfgr.c df24.c MFCSRCS= $(MFAN_CSRCS) $(MFGR_CSRCS) MFAN_CSRCS=mfan.c MFGR_CSRCS=mfgr.c COBJS = $(HCOBJS) $(VCOBJS) $(DFCOBJS) $(MFCOBJS) HCOBJS=hfile.o herr.o hblocks.o hbuffer.o hcompri.o hextelt.o hkit.o hdfalloc.o \ hcomp.o hbitio.o tbbt.o crle.o cnbit.o mstdio.o cnone.o cskphuff.o \ cdeflate.o bitvect.o atom.o hfiledd.o dynarray.o linklist.o glist.o \ hchunks.o mcache.o cszip.o VCOBJS=vg.o vrw.o vio.o vparse.o vconv.o vsfld.o vgp.o vhi.o vattr.o DFCOBJS=$(DFG_COBJS) $(DFAN_COBJS) $(DFSD_COBJS) $(DFRI_COBJS) DFG_COBJS=dfgroup.o dfconv.o dfufp2i.o dfutil.o dfstubs.o dfknat.o dfkswap.o \ dfkcray.o dfkvms.o dfkconv.o dfkfuji.o DFAN_COBJS=dfan.o DFSD_COBJS=dfsd.o DFRI_COBJS=dfr8.o dfcomp.o dfrle.o dfimcomp.o dfjpeg.o dfunjpeg.o dfp.o \ dfgr.o df24.o MFCOBJS= $(MFAN_COBJS) $(MFGR_COBJS) MFAN_COBJS=mfan.o MFGR_COBJS=mfgr.o FSRCS = $(FCSRCS) $(FFSRCS) FCSRCS=$(H_FCSRCS) $(V_FCSRCS) $(DF_FCSRCS) $(DFAN_FCSRCS) $(DFSD_FCSRCS) \ $(DFRI_FCSRCS) $(MFAN_FCSRCS) $(MFGR_FCSRCS) H_FCSRCS=hfilef.c herrf.c V_FCSRCS=vgf.c vattrf.c DF_FCSRCS=dff.c dfutilf.c DFAN_FCSRCS=dfanf.c DFSD_FCSRCS=dfsdf.c DFRI_FCSRCS=dfr8f.c dfpf.c df24f.c MFAN_FCSRCS=mfanf.c MFGR_FCSRCS=mfgrf.c FFSRCS=$(H_FFSRCS) $(V_FFSRCS) $(DF_FFSRCS) $(DFAN_FFSRCS) $(DFSD_FFSRCS) \ $(DFRI_FFSRCS) $(MFAN_FFSRCS) $(MFGR_FFSRCS) H_FFSRCS=hfileff.f V_FFSRCS=vgff.f vattrff.f DF_FFSRCS=dfff.f dfufp2if.f DFAN_FFSRCS=dfanff.f DFSD_FFSRCS=dfsdff.f DFRI_FFSRCS=df24ff.f dfpff.f dfr8ff.f MFAN_FFSRCS= MFGR_FFSRCS=mfgrff.f FOBJS = $(FCOBJS) $(FFOBJS) FCOBJS=$(H_FCOBJS) $(V_FCOBJS) $(DF_FCOBJS) $(DFAN_FCOBJS) $(DFSD_FCOBJS) \ $(DFRI_FCOBJS) $(MFAN_FCOBJS) $(MFGR_FCOBJS) H_FCOBJS=hfilef.o herrf.o V_FCOBJS=vgf.o vattrf.o DF_FCOBJS=dff.o dfutilf.o DFAN_FCOBJS=dfanf.o DFSD_FCOBJS=dfsdf.o DFRI_FCOBJS=dfr8f.o dfpf.o df24f.o MFAN_FCOBJS=mfanf.o MFGR_FCOBJS=mfgrf.o FFOBJS=$(H_FFOBJS) $(V_FFOBJS) $(DF_FFOBJS) $(DFAN_FFOBJS) $(DFSD_FFOBJS) \ $(DFRI_FFOBJS) $(MFAN_FFOBJS) $(MFGR_FFOBJS) H_FFOBJS=hfileff.o V_FFOBJS=vgff.o vattrff.o DF_FFOBJS=dfff.o dfufp2if.o DFAN_FFOBJS=dfanff.o DFSD_FFOBJS=dfsdff.o DFRI_FFOBJS=df24ff.o dfpff.o dfr8ff.o MFAN_FFOBJS= MFGR_FFOBJS=mfgrff.o F90INCS=dffunc.f90 hdf.f90 FINCS=dffunc.inc hdf.inc $(F90INCS) libhdf4-4.2.10/HDF_ALT/hdf/src/mfgr.h0000644000000000000000000001663712421456623013557 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: mfgr.h 5584 2011-04-13 18:25:06Z bmribler $ */ /*----------------------------------------------------------------------------- * File: mfgr.h * Purpose: header file for multi-file general raster information * Dependencies: * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __MFGR_H #define __MFGR_H #include "H4api_adpt.h" /* Interlace types available */ typedef int16 gr_interlace_t; #define MFGR_INTERLACE_PIXEL 0 /* pixel interlacing scheme */ #define MFGR_INTERLACE_LINE 1 /* line interlacing scheme */ #define MFGR_INTERLACE_COMPONENT 2 /* component interlacing scheme */ #if defined MFGR_MASTER | defined MFGR_TESTER #include "hfile.h" #include "tbbt.h" /* Get tbbt routines */ /* This is the size of the hash tables used for GR & RI IDs */ #define GRATOM_HASH_SIZE 32 /* The tag of the attribute data */ #define RI_TAG DFTAG_VG /* Current RI groups are stored in Vgroups */ #define ATTR_TAG DFTAG_VH /* Current GR attributes are stored in VDatas */ /* The default threshhold for attributes which will be cached */ #define GR_ATTR_THRESHHOLD 2048 #define VALIDRIINDEX(i,gp) ((i)>=0 && (i)<(gp)->gr_count) /* * Each gr_info_t maintains 2 threaded-balanced-binary-tress: one of * raster images and one of global attributes */ typedef struct gr_info { int32 hdf_file_id; /* the corresponding HDF file ID (must be first in the structure) */ uint16 gr_ref; /* ref # of the Vgroup of the GR in the file */ int32 gr_count; /* # of image entries in gr_tab so far */ TBBT_TREE *grtree; /* Root of image B-Tree */ uintn gr_modified; /* whether any images have been modified */ int32 gattr_count; /* # of global attr entries in gr_tab so far */ TBBT_TREE *gattree; /* Root of global attribute B-Tree */ uintn gattr_modified; /* whether any global attributes have been modified */ intn access; /* the number of active pointers to this file's GRstuff */ uint32 attr_cache; /* the threshhold for the attribute sizes to cache */ } gr_info_t; typedef struct at_info { int32 index; /* index of the attribute (needs to be first in the struct) */ int32 nt; /* number type of the attribute */ int32 len; /* length/order of the attribute */ uint16 ref; /* ref of the attribute (stored in VData) */ uintn data_modified; /* flag to indicate whether the attribute data has been modified */ uintn new_at; /* flag to indicate whether the attribute was added to the Vgroup */ char *name; /* name of the attribute */ void * data; /* data for the attribute */ } at_info_t; typedef struct dim_info { uint16 dim_ref; /* reference # of the Dim record */ int32 xdim,ydim, /* dimensions of the image */ ncomps, /* number of components of each pixel in image */ nt, /* number type of the components */ file_nt_subclass; /* number type subclass of data on disk */ gr_interlace_t il; /* interlace of the components (stored on disk) */ uint16 nt_tag,nt_ref; /* tag & ref of the number-type info */ uint16 comp_tag,comp_ref; /* tag & ref of the compression info */ } dim_info_t; typedef struct ri_info { int32 index; /* index of this image (needs to be first in the struct) */ uint16 ri_ref; /* ref # of the RI Vgroup */ uint16 rig_ref; /* ref # of the RIG group */ gr_info_t *gr_ptr; /* ptr to the GR info that this ri_info applies to */ dim_info_t img_dim; /* image dimension information */ dim_info_t lut_dim; /* palette dimension information */ uint16 img_tag,img_ref; /* tag & ref of the image data */ int32 img_aid; /* AID for the image data */ intn acc_perm; /* Access permission (read/write) for image AID */ uint16 lut_tag,lut_ref; /* tag & ref of the palette data */ gr_interlace_t im_il; /* interlace of image when next read (default PIXEL) */ gr_interlace_t lut_il; /* interlace of LUT when next read */ uintn data_modified; /* whether the image or palette data has been modified */ uintn meta_modified; /* whether the image or palette meta-info has been modified */ uintn attr_modified; /* whether the attributes have been modified */ char *name; /* name of the image */ int32 lattr_count; /* # of local attr entries in ri_info so far */ TBBT_TREE *lattree; /* Root of the local attribute B-Tree */ intn access; /* the number of times this image has been selected */ uintn use_buf_drvr; /* access to image needs to be through the buffered special element driver */ uintn use_cr_drvr; /* access to image needs to be through the compressed raster special element driver */ uintn comp_img; /* whether to compress image data */ comp_coder_t comp_type; /* compression type */ comp_info cinfo; /* compression information */ uintn ext_img; /* whether to make image data external */ char *ext_name; /* name of the external file */ int32 ext_offset; /* offset in the external file */ uintn acc_img; /* whether to make image data a different access type */ uintn acc_type; /* type of access-mode to get image data with */ uintn fill_img; /* whether to fill image, or just store fill value */ void * fill_value; /* pointer to the fill value (NULL means use default fill value of 0) */ uintn store_fill; /* whether to add fill value attribute or not */ intn name_generated; /* whether the image has name that was given by app. or was generated by the library like the DFR8 images (added for hmap)*/ } ri_info_t; /* Useful raster routines for generally private use */ HDFLIBAPI intn GRIil_convert(const void * inbuf,gr_interlace_t inil,void * outbuf, gr_interlace_t outil,int32 dims[2],int32 ncomp,int32 nt); extern VOID GRIgrdestroynode(void * n); extern VOID GRIattrdestroynode(void * n); extern VOID GRIridestroynode(void * n); #endif /* MFGR_MASTER | MFGR_TESTER */ #endif /* __MFGR_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/hfile.c0000644000000000000000000041244612421456623013704 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: hfile.c 6043 2014-01-21 21:09:03Z acheng $ */ /*LINTLIBRARY */ /*+ FILE hfile.c HDF low level file I/O routines H-Level Limits ============== o MAX_ACC access records open at a single time (#define in hfile.h) o int16 total tags (fixed) o int32 max length and offset of an element in an HDF file (fixed) Routine prefix conventions ========================== HP: private, external HI: private, static HD: not-private, external (i.e. usable by non-developers) "A" will be used to indicate that a routine is for parallel I/O. Prefixes now have potentially three parts: (1) the interface, (2) optional "A" to indicate parallel, and (3) scope: :== ||A :== H|HL|HX|SD|DFSD|DFAN|DFR8|... :== D|P|I Examples: HAP => H interface, parallel, private external HAD => H interface, parallel, non-private external HI => H interface, private static EXPORTED ROUTINES Hopen -- open or create a HDF file Hclose -- close HDF file Hstartread -- locate and position a read access elt on a tag/ref Hnextread -- locate and position a read access elt on next tag/ref. Hexist -- locate an object in an HDF file Hinquire -- inquire stats of an access elt Hstartwrite -- set up a WRITE access elt for a write Happendable -- attempt make a dataset appendable Hseek -- position an access element to an offset in data element Hread -- read the next segment from data element Hwrite -- write next data segment to data element HDgetc -- read a byte from data element HDputc -- write a byte to data element Hendaccess -- to dispose of an access element Hgetelement -- read in a data element Hputelement -- writes a data element Hlength -- returns length of a data element Hoffset -- get offset of data element in the file Hishdf -- tells if a file is an HDF file Htrunc -- truncate a dataset to a length Hsync -- sync file with memory Hcache -- set low-level caching for a file HDvalidfid -- check if a file ID is valid HDerr -- Closes a file and return FAIL. Hsetacceesstype -- set the I/O access type (serial, parallel, ...) of a data element Hgetlibversion -- return version info on current HDF library Hgetfileversion -- return version info on HDF file HPgetdiskblock -- Get the offset of a free block in the file. HPfreediskblock -- Release a block in a file to be re-used. HDread_drec -- reads a description record HDcheck_empty -- determines if an element has been written with data HDget_special_info -- get information about a special element HDset_special_info -- reset information about a special element HDspecial_type -- return the special type if the given element is special File Memory Pool routines ------------------------- Hmpset -- set pagesize and maximum number of pages to cache on next open/create Hmpget -- get last pagesize and max number of pages cached for open/create Special Tag routines ------------------- HDmake_special_tag -- HDis_special_tag -- HDbaset_tag -- Macintosh specific Routines(unbuffered C I/O stubs on top of Mac toolbox) -------------------------- mopen -- mclose -- mread -- mwrite -- mlsekk -- LOCAL ROUTINES HIextend_file -- extend file to current length HIget_function_table -- create special function table HIgetspinfo -- return special info HIunlock -- unlock a previously locked file record HIget_filerec_node -- locate a filerec for a new file HIrelease_filerec_node -- release a filerec HIvalid_magic -- verify the magic number in a file HIget_access_rec -- allocate a new access record HIupdate_version -- determine whether new version tag should be written HIread_version -- reads a version tag from a file + */ #define HMASTER #include "hdf.h" #undef HMASTER #define HFILE_MASTER #include "hfile.h" #include #include "glist.h" /* for double-linked lists, stacks and queues */ /*--------------------- Locally defined Globals -----------------------------*/ /* The default state of the file DD caching */ PRIVATE intn default_cache = TRUE; /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; #ifdef OLD_WAY PRIVATE list_head_t *cleanup_list = NULL; #else PRIVATE Generic_list *cleanup_list = NULL; #endif /* Whether to install the atexit routine */ PRIVATE intn install_atexit = TRUE; /*--------------------- Externally defined Globals --------------------------*/ /* Function tables declarations. These function tables contain pointers to functions that help access each type of special element. */ /* Functions for accessing the linked block special data element. For definition of the linked block, see hblocks.c. */ extern funclist_t linked_funcs; /* Functions for accessing external data elements, or data elements that are in some other files. For definition of the external data element, see hextelt.c. */ extern funclist_t ext_funcs; /* Functions for accessing compressed data elements. For definition of the compressed data element, see hcomp.c. */ extern funclist_t comp_funcs; /* Functions for accessing chunked data elements. For definition of the chunked data element, see hchunk.c. */ #include "hchunks.h" /* Functions for accessing buffered data elements. For definition of the buffered data element, see hbuffer.c. */ extern funclist_t buf_funcs; /* Functions for accessing compressed raster data elements. For definition of the compressed raster data element, see hcompri.c. */ extern funclist_t cr_funcs; /* Table of these function tables for accessing special elements. The first member of each record is the speical code for that type of data element. */ functab_t functab[] = { {SPECIAL_LINKED, &linked_funcs}, {SPECIAL_EXT, &ext_funcs}, {SPECIAL_COMP, &comp_funcs}, {SPECIAL_CHUNKED, &chunked_funcs}, #ifdef LATER {SPECIAL_VLINKED, &vlnk_funcs}, #endif /* LATER */ {SPECIAL_BUFFERED, &buf_funcs}, {SPECIAL_COMPRAS, &cr_funcs}, {0, NULL} /* terminating record; add new record */ /* before this line */ }; /* ** Declaration of private functions. */ PRIVATE intn HIunlock (filerec_t *file_rec); PRIVATE filerec_t *HIget_filerec_node (const char *path); PRIVATE intn HIrelease_filerec_node (filerec_t *file_rec); PRIVATE intn HIvalid_magic (hdf_file_t file); PRIVATE intn HIextend_file (filerec_t * file_rec); PRIVATE funclist_t *HIget_function_table (accrec_t * access_rec); PRIVATE intn HIupdate_version (int32); PRIVATE intn HIread_version (int32); PRIVATE intn HIcheckfileversion (int32 file_id); PRIVATE intn HIsync (filerec_t *file_rec); PRIVATE intn HIstart(void); /* #define TESTING */ /*-------------------------------------------------------------------------- NAME Hopen -- Opens a HDF file. USAGE int32 Hopen(path, access, ndds) char *path; IN: Name of file to be opened. int access; IN: DFACC_READ, DFACC_WRITE, DFACC_CREATE or any bitwise-or of the above. int16 ndds; IN: Number of dds in a block if this file needs to be created. RETURNS On success returns file id, on failure returns -1. DESCRIPTION Opens an HDF file. Returns the the file ID on success, or -1 on failure. Access equals DFACC_CREATE means discard existing file and create new file. If access is a bitwise-or of DFACC_CREATE and anything else, the file is only created if it does not exist. DFACC_WRITE set in access also means that if the file does not exist, it is created. DFACC_READ is assumed to be implied even if it is not set. DFACC_CREATE implies DFACC_WRITE. If the file is already opened and access is DFACC_CREATE: error DFE_ALROPEN. If the file is already opened, the requested access contains DFACC_WRITE, and previous open does not allow write: attempt to reopen the file with write permission. On successful exit, * file_rec members are filled in correctly. * file is opened with the relevant permission. * information about dd's are set up in memory. For new file, in addition, * the file headers and initial information are set up properly. --------------------------------------------------------------------------*/ int32 Hopen(const char *path, intn acc_mode, int16 ndds) { CONSTR(FUNC, "Hopen"); /* For HERROR */ filerec_t *file_rec=NULL;/* File record */ int vtag = 0; /* write version tag? */ int32 fid=FAIL; /* File ID */ int32 ret_value = SUCCEED; /* Clear errors and check args and all the boring stuff. */ HEclear(); if (!path || ((acc_mode & DFACC_ALL) != acc_mode)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(HIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Get a space to put the file information. * HIget_filerec_node() also copies path into the record. */ if ((file_rec = HIget_filerec_node(path))== NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* The slots are full. */ if (file_rec->refcount) { /* File is already opened, check that permission is okay. */ /* If this request is to create a new file and file is still * in use, return error. */ if (acc_mode == DFACC_CREATE) HGOTO_ERROR(DFE_ALROPEN, FAIL); if ((acc_mode & DFACC_WRITE) && !(file_rec->access & DFACC_WRITE)) { /* If the request includes writing, and if original open does not provide for write, then try to reopen file for writing. This cannot be done on OS (such as the SXOS) where only one open is allowed per file at any time. */ #ifndef NO_MULTI_OPEN hdf_file_t f; /* Sync. the file before throwing away the old file handle */ if(HIsync(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); f = (hdf_file_t)HI_OPEN(file_rec->path, acc_mode); if (OPENERR(f)) HGOTO_ERROR(DFE_DENIED, FAIL); /* Replace file_rec->file with new file pointer and close old one. */ if (HI_CLOSE(file_rec->file) == FAIL) { HI_CLOSE(f); HGOTO_ERROR(DFE_CANTCLOSE, FAIL); } file_rec->file = f; file_rec->f_cur_off=0; file_rec->last_op=H4_OP_UNKNOWN; #else /* NO_MULTI_OPEN */ HGOTO_ERROR(DFE_DENIED, FAIL); #endif /* NO_MULTI_OPEN */ } /* There is now one more open to this file. */ file_rec->refcount++; } else { /* Flag to see if file is new and needs to be set up. */ intn new_file = FALSE; /* Open the file, fill in the blanks and all the good stuff. */ if (acc_mode != DFACC_CREATE) { /* try to open existing file */ file_rec->file = (hdf_file_t)HI_OPEN(file_rec->path, acc_mode); if (OPENERR(file_rec->file)) { if (acc_mode & DFACC_WRITE) { /* Seems like the file is not there, try to create it. */ new_file = TRUE; } else HGOTO_ERROR(DFE_BADOPEN, FAIL); } else { #ifdef STDIO_BUF /* Testing stdio buffered i/o */ if (HDsetvbuf(file_rec->file, my_stdio_buf, _IOFBF, MY_STDIO_BUF_SIZE) != 0) HGOTO_ERROR(DFE_BADOPEN, FAIL); #endif /* STDIO_BUF */ /* Open existing file successfully. */ file_rec->access = acc_mode | DFACC_READ; /* Check to see if file is a HDF file. */ if (!HIvalid_magic(file_rec->file)) { HI_CLOSE(file_rec->file); HGOTO_ERROR(DFE_NOTDFFILE, FAIL); } file_rec->f_cur_off=0; file_rec->last_op=H4_OP_UNKNOWN; /* Read in all the relevant data descriptor records. */ if (HTPstart(file_rec) == FAIL) { HI_CLOSE(file_rec->file); HGOTO_ERROR(DFE_BADOPEN, FAIL); } } } /* do *not* use else here */ if (acc_mode == DFACC_CREATE || new_file) { /* create the file */ /* make user we get a version tag */ vtag = 1; file_rec->file = (hdf_file_t)HI_CREATE(file_rec->path); if (OPENERR(file_rec->file)) { /* check if the failure was due to "too many open files" */ if(errno == EMFILE) { HGOTO_ERROR(DFE_TOOMANY, FAIL); } else HGOTO_ERROR(DFE_BADOPEN, FAIL); } file_rec->f_cur_off=0; file_rec->last_op=H4_OP_UNKNOWN; #ifdef STDIO_BUF /* Testing stdio buffered i/o */ if (HDsetvbuf(file_rec->file, my_stdio_buf, _IOFBF, MY_STDIO_BUF_SIZE) != 0) HGOTO_ERROR(DFE_BADOPEN, FAIL); #endif /* STDIO_BUF */ /* set up the newly created (and empty) file with the magic cookie and initial data descriptor records */ if (HP_write(file_rec, HDFMAGIC, MAGICLEN) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if (HI_FLUSH(file_rec->file) == FAIL) /* flush the cookie */ HGOTO_ERROR(DFE_WRITEERROR, FAIL); if (HTPinit(file_rec, ndds) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); file_rec->maxref = 0; file_rec->access = new_file ? acc_mode | DFACC_READ : DFACC_ALL; } file_rec->refcount = 1; file_rec->attach = 0; /* currently, default is caching OFF */ file_rec->cache = default_cache; file_rec->dirty = 0; /* mark all dirty flags off to start */ } /* end else */ file_rec->version_set = FALSE; if((fid=HAregister_atom(FIDGROUP,file_rec))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* version tags */ if (vtag == 1) { if(HIupdate_version(fid)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ else { HIread_version(fid); /* ignore return code in case the file doesn't have a version */ } /* end else */ ret_value=fid; done: if(ret_value == FAIL) { /* Error condition cleanup */ if(fid!=FAIL) HAremove_atom(fid); /* Chuck the file record we've built */ if(file_rec!=NULL && file_rec->refcount==0) HIrelease_filerec_node(file_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hopen */ /*-------------------------------------------------------------------------- NAME Hclose -- close HDF file USAGE intn Hclose(id) int id; IN: the file id to be closed RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION closes an HDF file given the file id. Id is first validated. If there are still access objects attached to the file, an error is returned and the file is not closed. --------------------------------------------------------------------------*/ intn Hclose(int32 file_id) { CONSTR(FUNC, "Hclose"); /* for HERROR */ filerec_t *file_rec; /* file record pointer */ intn ret_value = SUCCEED; /* Clear errors and check args and all the boring stuff. */ HEclear(); /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* version tags */ if ((file_rec->refcount > 0) && (file_rec->version.modified == 1)) HIupdate_version(file_id); /* decrease the reference count */ if (--file_rec->refcount == 0) { /* if file reference count is zero but there are still attached access elts, reject this close. */ if (file_rec->attach > 0) { file_rec->refcount++; HEreport("There are still %d active aids attached", file_rec->attach); HGOTO_ERROR(DFE_OPENAID, FAIL); } /* end if */ /* before closing file, check whether to flush file info */ if(HIsync(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* otherwise, nothing should still be using this file, close it */ /* ignore any close error */ HI_CLOSE(file_rec->file); if(HTPend(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(HIrelease_filerec_node(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ if(HAremove_atom(file_id)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hclose */ /*-------------------------------------------------------------------------- NAME Hexist -- locate an object in an HDF file USAGE intn Hexist(file_id ,search_tag, search_ref) int32 file_id; IN: file ID to search in uint16 search_tag; IN: the tag to search for (can be DFTAG_WILDCARD) uint16 search_ref; IN: ref to search for (can be DFREF_WILDCARD) RETURNS returns SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Simple interface to Hfind which just determines if a given tag/ref pair exists in a file. Wildcards apply. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Hfind() does all validity checking, this is just a _very_ simple wrapper around it. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hexist(int32 file_id, uint16 search_tag, uint16 search_ref) { #ifdef LATER CONSTR(FUNC, "Hexist"); /* for HERROR */ #endif uint16 find_tag = 0, find_ref = 0; int32 find_offset, find_length; intn ret_value; ret_value = (Hfind(file_id, search_tag, search_ref, &find_tag, &find_ref, &find_offset, &find_length, DF_FORWARD)); return ret_value; } /* end Hexist() */ /*-------------------------------------------------------------------------- NAME Hinquire -- inquire stats of an access elt USAGE intn Hinquire(access_id, pfile_id, ptag, pref, plength, poffset, pposn, paccess, pspecial) int access_id; IN: id of an access elt int32 *pfile_id; OUT: file id uint16 *ptag; OUT: tag of the element pointed to uint16 *pref; OUT: ref of the element pointed to int32 *plength; OUT: length of the element pointed to int32 *poffset; OUT: offset of elt in the file int32 *pposn; OUT: position pointed to within the data elt int16 *paccess; OUT: the access type of this access elt int16 *pspecial; OUT: special code RETURNS returns SUCCEED (0) if the access elt points to some data element, otherwise FAIL (-1) DESCRIPTION Inquire statistics of the data element pointed to by access elt and the access elt. The access type is set if the access_id is valid even if FAIL is returned. If access_id is not valid then access is set to zero (0). If statistic is not needed, pass NULL for the appropriate value. --------------------------------------------------------------------------*/ intn Hinquire(int32 access_id, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "Hinquire"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn ret_value = SUCCEED; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if special elt, let special functions handle it */ if (access_rec->special) { ret_value = (int) (*access_rec->special_func->inquire) (access_rec, pfile_id, ptag, pref, plength, poffset, pposn, paccess, pspecial); goto done; } if (pfile_id != NULL) *pfile_id = access_rec->file_id; /* Get the relevant DD information */ if (HTPinquire(access_rec->ddid,ptag,pref,poffset,plength)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (pposn != NULL) *pposn = access_rec->posn; if (paccess != NULL) *paccess = (int16) access_rec->access; if (pspecial != NULL) *pspecial = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hinquire */ /* ----------------------------- Hfidinquire ----------------------------- */ /* ** NAME ** Hfidinquire --- Inquire about a file ID ** USAGE ** int Hfidinquire(file_id) ** int32 file_id; IN: handle of file ** char *path; OUT: path of file ** int32 mode; OUT: mode file is opened with ** RETURNS ** returns SUCCEED (0) if successful and FAIL (-1) if failed. ** DESCRIPTION ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS --------------------------------------------------------------------------*/ intn Hfidinquire(int32 file_id, char **fname, intn *faccess, intn *attach) { CONSTR(FUNC, "Hfidinquire"); /* for HERROR */ filerec_t *file_rec; intn ret_value = SUCCEED; HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_BADACC, FAIL); *fname = file_rec->path; *faccess = file_rec->access; *attach = file_rec->attach; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hfidinquire */ /*-------------------------------------------------------------------------- NAME Hstartread -- locate and position a read access elt on a tag/ref USAGE int32 Hstartread(fileid, tag, ref) int fileid; IN: id of file to attach access element to int tag; IN: tag to search for int ref; IN: ref to search for RETURNS returns id of access element if successful, otherwise FAIL (-1) DESCRIPTION Searches the DD's for a particular tag/ref combination. The searching starts from the head of the DD list. Wildcards can be used for tag or ref (DFTAG_WILDCARD, DFREF_WILDCARD) and they match any values. If the search is successful, the access elt is positioned to the start of that tag/ref, otherwise it is an error. An access element is created and attached to the file. --------------------------------------------------------------------------*/ int32 Hstartread(int32 file_id, uint16 tag, uint16 ref) { CONSTR(FUNC, "Hstartread"); /* for HERROR */ int32 ret; /* AID to return */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* Call Hstartaccess with the modified base tag */ if ((ret = Hstartaccess(file_id, BASETAG(tag), ref, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); ret_value = ret; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hstartread() */ /*-------------------------------------------------------------------------- NAME Hnextread -- locate and position a read access elt on tag/ref. USAGE intn Hnextread(access_id, tag, ref, origin) int32 access_id; IN: id of a READ access elt uint16 tag; IN: the tag to search for uint16 ref; IN: ref to search for int origin; IN: from where to start searching RETURNS returns SUCCEED (0) if successful and FAIL (-1) otherwise DESCRIPTION Searches for the `next' DD that fits the tag/ref. Wildcards apply. If origin is DF_START, search from start of DD list, if origin is DF_CURRENT, search from current position, otherwise origin should be DF_END which searches from end of file. If the search is successful, then the access elt is positioned at the start of that tag/ref, otherwise, it is not modified. COMMENTS, BUGS, ASSUMPTIONS DF_END _not_ supported yet! --------------------------------------------------------------------------*/ intn Hnextread(int32 access_id, uint16 tag, uint16 ref, intn origin) { CONSTR(FUNC, "Hnextread"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec; /* access record */ uint16 new_tag=0, new_ref=0; /* new tag & ref to access */ int32 new_off, new_len; /* offset & length of new tag & ref */ intn ret_value = SUCCEED; /* clear error stack and check validity of the access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || !(access_rec->access & DFACC_READ) || (origin != DF_START && origin != DF_CURRENT)) /* DF_END is NOT supported yet !!!! */ HGOTO_ERROR(DFE_ARGS, FAIL); file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* * if access record used to point to an external element we * need to close the file before moving on */ if (access_rec->special) { switch(access_rec->special) { case SPECIAL_LINKED: if (HLPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); break; case SPECIAL_EXT: if (HXPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); break; case SPECIAL_COMP: if (HCPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); break; case SPECIAL_CHUNKED: if (HMCPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); break; case SPECIAL_BUFFERED: if (HBPcloseAID(access_rec) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); break; default: /* do nothing for other cases currently */ break; } /* end switch */ } if (origin == DF_START) { /* set up variables to start searching from beginning of file */ new_tag=0; new_ref=0; } else { /* origin == CURRENT */ /* set up variables to start searching from the current position */ /* Get the old tag & ref */ if(HTPinquire(access_rec->ddid,&new_tag,&new_ref,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* go look for the dd */ if(Hfind(access_rec->file_id,tag,ref,&new_tag,&new_ref,&new_off,&new_len,DF_FORWARD)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* Let go of the previous DD id */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* found, so update the access record */ if((access_rec->ddid=HTPselect(file_rec,new_tag,new_ref))==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); access_rec->appendable = FALSE; /* start data as non-appendable */ if (new_len == INVALID_OFFSET && new_off == INVALID_LENGTH) access_rec->new_elem = TRUE; else access_rec->new_elem = FALSE; /* If special element act upon it accordingly */ if (HTPis_special(access_rec->ddid)) { int32 spec_aid; /* special element, call special function to handle */ if((access_rec->special_func = HIget_function_table(access_rec))==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* decrement "attach" to the file_rec */ HIunlock(file_rec); if ((spec_aid=(*access_rec->special_func->stread) (access_rec)) != FAIL) { HAremove_atom(spec_aid); /* This is a gross hack! -QAK */ HGOTO_DONE(SUCCEED); } /* end if */ else { HGOTO_DONE(FAIL); } /* end if */ } access_rec->special = 0; access_rec->posn = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hnextread() */ /*-------------------------------------------------------------------------- NAME Hstartwrite -- set up a WRITE access elt for a write USAGE int32 Hstartwrite(fileid, tag, ref, len) int fileid; IN: id of file to write to int tag; IN: tag to write to int ref; IN: ref to write to long length; IN: the length of the data element RETURNS returns id of access element if successful and FAIL otherwise DESCRIPTION Set up a WRITE access elt to write out a data element. The DD list of the file is searched first. If the tag/ref is found, it is NOT replaced - the seek position is presumably at 0. If it does not exist, it is created. --------------------------------------------------------------------------*/ int32 Hstartwrite(int32 file_id, uint16 tag, uint16 ref, int32 length) { CONSTR(FUNC, "Hstartwrite"); /* for HERROR */ accrec_t *access_rec; /* access record */ int32 ret; /* AID to return */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* Call Hstartaccess with the modified base tag */ if ((ret = Hstartaccess(file_id, BASETAG(tag), ref, DFACC_RDWR)) == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); access_rec = HAatom_object(ret); /* if new element set the length */ if (access_rec->new_elem && (Hsetlength(ret, length) == FAIL)) { Hendaccess(ret); HGOTO_ERROR(DFE_BADLEN, FAIL); } /* end if */ ret_value = ret; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hstartwrite */ /*-------------------------------------------------------------------------- NAME Hstartaccess -- set up a access elt for either reading or writing USAGE int32 Hstartaccess(fileid, tag, ref, flags) int32 fileid; IN: id of file to read/write to uint16 tag; IN: tag to read/write to uint16 ref; IN: ref to read/write to uint32 flags; IN: access flags for the data element RETURNS returns id of access element if successful and FAIL otherwise DESCRIPTION Start access to data element for read or write access. The DD list of the file is searched first. If the tag/ref is found, it is NOT replaced - the seek position is presumably at 0. If it does not exist, it is created. --------------------------------------------------------------------------*/ int32 Hstartaccess(int32 file_id, uint16 tag, uint16 ref, uint32 flags) { CONSTR(FUNC, "Hstartaccess"); /* for HERROR */ intn ddnew = FALSE; /* is the dd a new one? */ filerec_t *file_rec=NULL; /* file record */ accrec_t *access_rec=NULL; /* access record */ uint16 new_tag=0, new_ref=0; /* new tag & ref to access */ int32 new_off, new_len; /* offset & length of new tag & ref */ int32 ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* If writing, can we write to this file? */ if ((flags & DFACC_WRITE) && !(file_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_DENIED, FAIL); /* get empty slot in access records */ access_rec = HIget_access_rec(); if (access_rec == NULL) HGOTO_ERROR(DFE_TOOMANY, FAIL); /* set up access record to look for the dd */ access_rec->file_id = file_id; if (flags & DFACC_APPENDABLE) access_rec->appendable = TRUE; /* start data as appendable */ else access_rec->appendable = FALSE; /* start data as non-appendable */ /* set the default values for block size and number of blocks for use in */ /* linked-block creation/conversion; they can be changed by the user via */ /* VSsetblocksize and VSsetnumblocks - BMR (bug #267 - June 2001) */ access_rec->block_size = HDF_APPENDABLE_BLOCK_LEN; access_rec->num_blocks = HDF_APPENDABLE_BLOCK_NUM; access_rec->special_info = NULL; /* reset */ /* if the DFACC_CURRENT flag is set, start searching for the tag/ref from */ /* the current location in the DD list */ if (flags & DFACC_CURRENT || Hfind(access_rec->file_id,tag,ref,&new_tag,&new_ref, &new_off,&new_len,DF_FORWARD)==FAIL) { /* not in DD list */ new_tag=tag; new_ref=ref; new_off=INVALID_OFFSET; new_len=INVALID_LENGTH; } /* get DD id for tag/ref if in DD list using 'new_tag' and 'new_ref' */ if ((access_rec->ddid = HTPselect(file_rec, new_tag, new_ref)) == FAIL) { /* not in DD list */ /* can't create data elements with only read access */ if (!(flags & DFACC_WRITE)) HGOTO_ERROR(DFE_NOMATCH, FAIL); /* dd not found, so have to create new element */ if((access_rec->ddid = HTPcreate(file_rec,new_tag,new_ref))==FAIL) HGOTO_ERROR(DFE_NOFREEDD, FAIL); ddnew = TRUE; /* mark as new element */ } else /* tag/ref already exists in DD list. */ { /* need to update the access_rec block and idx */ /* If the tag we were looking up is special, and we aren't looking */ /* for the actual special element information, then use special */ /* element access to the data... -QAK */ if (!SPECIALTAG(tag) && HTPis_special(access_rec->ddid)==TRUE) { /* found, if this elt is special, let special function handle it */ /* get special function table for element */ access_rec->special_func = HIget_function_table(access_rec); if (access_rec->special_func==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* call appropriate special startread/startwrite fcn */ if (!(flags & DFACC_WRITE)) ret_value = (*access_rec->special_func->stread) (access_rec); else ret_value = (*access_rec->special_func->stwrite) (access_rec); goto done; /* we are done since the special fcn should take of everthing. */ } /* end if special */ } /* end else tag/ref exists */ /* Need to check if the "new" element was written to the file without */ /* it's length being set. If that was the case, the offset and length */ /* will be marked as invalid, and therefore we should mark it as "new" */ /* again when the element is re-opened -QAK */ if (!ddnew && new_off == INVALID_OFFSET && new_len == INVALID_LENGTH) ddnew = TRUE; /* mark as new element */ /* update the access record, and the file record */ access_rec->posn = 0; access_rec->access = flags; /* keep the access flags around */ access_rec->file_id = file_id; access_rec->special = 0; /* not special */ access_rec->new_elem = ddnew; /* set the flag indicating whether this elt is new */ file_rec->attach++; /* increment number of elts attached to file */ /* check current maximum ref for file and update if necessary */ if (new_ref > file_rec->maxref) file_rec->maxref = new_ref; /* * If this is the first time we are writting to this file * update the version tags as needed */ if (!file_rec->version_set) HIcheckfileversion(file_id); ret_value = HAregister_atom(AIDGROUP,access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hstartaccess */ /*-------------------------------------------------------------------------- NAME Hsetlength -- set the length of a new HDF element USAGE intn Hsetlength(aid, length) int32 aid; IN: id of element to set the length of int32 length; IN: the length of the element RETURNS SUCCEED/FAIL DESCRIPTION Sets the length of a new data element. This function is only valid when called after Hstartaccess on a new data element and before any data is written to that element. --------------------------------------------------------------------------*/ intn Hsetlength(int32 aid, int32 length) { CONSTR(FUNC, "Hsetlength"); /* for HERROR */ accrec_t *access_rec; /* access record */ filerec_t *file_rec; /* file record */ int32 offset; /* offset of this data element in file */ intn ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); if ((access_rec = HAatom_object(aid)) == NULL) /* get the access_rec pointer */ HGOTO_ERROR(DFE_ARGS, FAIL); /* Check whether we are allowed to change the length */ if (access_rec->new_elem != TRUE) HGOTO_ERROR(DFE_ARGS, FAIL); file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* place the data element at the end of the file and record its offset */ if ((offset = HPgetdiskblock(file_rec, length, FALSE)) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* fill in dd record updating the offset and length of the element */ if(HTPupdate(access_rec->ddid,offset,length)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* turn off the "new" flag now that we have a length and offset */ access_rec->new_elem = FALSE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hsetlength */ /*-------------------------------------------------------------------------- NAME Happendable -- Allow a data set to be appended to without the use of linked blocks USAGE intn Happendable(aid) int32 aid; IN: aid of the dataset to make appendable RETURNS returns 0 if dataset is allowed to be appendable, FAIL otherwise DESCRIPTION If a dataset is at the end of a file, allow Hwrite()s to write past the end of a file. Allows expanding datasets without the use of linked blocks. --------------------------------------------------------------------------*/ intn Happendable(int32 aid) { CONSTR(FUNC, "Happendable"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); if ((access_rec = HAatom_object(aid)) == NULL) /* get the access_rec pointer */ HGOTO_ERROR(DFE_ARGS, FAIL); /* just indicate that the data should be appendable, and only convert */ /* it when actually asked to modify the data */ access_rec->appendable = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Happendable */ /*-------------------------------------------------------------------------- NAME HPisappendable -- Check whether a data set can be appended to without the use of linked blocks USAGE intn HPisappendable(aid) int32 aid; IN: aid of the dataset to check appendable RETURNS returns SUCCEED if dataset is allowed to be appendable, FAIL otherwise DESCRIPTION If a dataset is at the end of a file, allow Hwrite()s to write past the end of a file. Allows expanding datasets without the use of linked blocks. --------------------------------------------------------------------------*/ intn HPisappendable(int32 aid) { CONSTR(FUNC, "HPisappendable"); /* for HERROR */ accrec_t *access_rec; /* access record */ filerec_t *file_rec; /* file record */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ intn ret_value = SUCCEED; /* clear error stack and check validity of file id */ HEclear(); if ((access_rec = HAatom_object(aid)) == NULL) /* get the access_rec pointer */ HGOTO_ERROR(DFE_ARGS, FAIL); file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get the offset and length of the dataset */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_len,&data_off)==FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); /* dataset at end? */ if (data_len + data_off == file_rec->f_end_off) ret_value = SUCCEED; else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HPisappendable */ /*-------------------------------------------------------------------------- NAME Hseek -- position an access element to an offset in data element USAGE intn Hseek(access_id, offset, origin) int32 access_id; IN: id of access element long offset; IN: offset to seek to int origin; IN: position to seek from by offset, 0: from beginning; 1: current position; 2: end of data element RETURNS returns FAIL (-1) if fail, SUCCEED (0) otherwise. DESCRIPTION Sets the position of an access element in a data element so that the next Hread or Hwrite will start from that position. origin determines the position from which the offset should be added. This routine fails if the access elt is not associated with any data element and if the seeked position is outside of the data element. --------------------------------------------------------------------------*/ intn Hseek(int32 access_id, int32 offset, intn origin) { CONSTR(FUNC, "Hseek"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn old_offset = offset; /* save for later potential use */ filerec_t *file_rec; /* file record */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ intn ret_value = SUCCEED; /* clear error stack and check validity of this access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || (origin != DF_START && origin != DF_CURRENT && origin != DF_END)) HGOTO_ERROR(DFE_ARGS, FAIL); /* if special elt, use special function */ if (access_rec->special) { /* yes, call special seek fucntion with proper args */ ret_value = (intn) (*access_rec->special_func->seek) (access_rec, offset, origin); goto done; } /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* calculate real offset based on the origin */ if (origin == DF_CURRENT) offset += access_rec->posn; if (origin == DF_END) offset += data_len; /* If we aren't moving the access records position, bypass the next bit of code */ /* This allows seeking to offset zero in not-yet-existent data elements -QAK */ if(offset==access_rec->posn) HGOTO_DONE(SUCCEED); /* Check the range */ if (offset < 0 || (!access_rec->appendable && offset > data_len)) { HEreport("Tried to seek to %d (object length: %d)", offset, data_len); HGOTO_ERROR(DFE_BADSEEK, FAIL); } /* check if element is appendable and writing past current element length */ if (access_rec->appendable && offset >= data_len) { /* yes */ file_rec = HAatom_object(access_rec->file_id); /* check if we are at end of file */ if (data_len + data_off != file_rec->f_end_off) { /* nope, so try to convert element into linked-block element */ if (HLconvert(access_id, access_rec->block_size, access_rec->num_blocks) == FAIL) { access_rec->appendable = FALSE; HEreport("Tried to seek to %d (object length: %d)", offset, data_len); HGOTO_ERROR(DFE_BADSEEK, FAIL); } /* end if */ else /* successfully converted the element into a linked block */ /* now loop back and actually seek to the correct position */ { if (Hseek(access_id, old_offset, origin) == FAIL) HGOTO_ERROR(DFE_BADSEEK, FAIL); } /* end else */ } /* end if */ } /* end if */ /* set the new position */ access_rec->posn = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hseek() */ /*-------------------------------------------------------------------------- NAME Htell -- report position of an access element in a data element USAGE int32 Htell(access_id) int32 access_id; IN: id of access element RETURNS returns FAIL (-1) on error, offset in data element otherwise DESCRIPTION Reports the offset in bytes of an AID in a data element. Analogous to ftell(). --------------------------------------------------------------------------*/ int32 Htell(int32 access_id) { CONSTR(FUNC, "Htell"); /* for HERROR */ accrec_t *access_rec; /* access record */ int32 ret_value = SUCCEED; /* clear error stack and check validity of this access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* return the offset in the AID */ ret_value = (int32)access_rec->posn; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Htell() */ /*-------------------------------------------------------------------------- NAME Hread -- read the next segment from data element USAGE int32 Hread(access_id, length, data) int32 access_id; IN: id of READ access element int32 length; IN: length of segment to read in char *data; OUT: pointer to data array to read to RETURNS returns length of segment actually read in if successful and FAIL (-1) otherwise DESCRIPTION Read in the next segment in the data element pointed to by the access elt. If length is zero or larger than the remaining bytes of the object, read until the end of the object. --------------------------------------------------------------------------*/ int32 Hread(int32 access_id, int32 length, void * data) { CONSTR(FUNC, "Hread"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec; /* access record */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 ret_value = SUCCEED; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || data == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Don't allow reading of "new" elements */ if (access_rec->new_elem == TRUE) HGOTO_ERROR(DFE_READERROR, FAIL); /* special elt, so call special function */ if (access_rec->special) { /* yes, call special read function with proper args */ ret_value = (*access_rec->special_func->read) (access_rec, length, data); goto done; /* we are done */ } /* check validity of file record */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get the dd of this data elt */ if (length < 0) HGOTO_ERROR(DFE_BADSEEK, FAIL); /* Get the data's offset & length */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* seek to position to start reading and read in data */ if (HPseek(file_rec, access_rec->posn + data_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); /* length == 0 means to read to end of element, */ /* if read length exceeds length of elt, read till end of elt */ if (length == 0 || length + access_rec->posn > data_len) length = data_len - access_rec->posn; /* read in data */ if (HP_read(file_rec, data, length) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); /* move the position of the access record */ access_rec->posn += length; ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hread */ /*-------------------------------------------------------------------------- NAME Hwrite -- write next data segment to data element USAGE int32 Hwrite(access_id, len, data) int32 access_id; IN: id of WRITE access element int32 len; IN: length of segment to write const char *data; IN: pointer to data to write RETURNS returns length of segment successfully written, FAIL (-1) otherwise DESCRIPTION Write the data to data element where the last write or Hseek() stopped. If the space reserved is less than the length to write, then only as much as can fit is written. It is the responsibility of the user to insure that no two access elements are writing to the same data element. It is possible to interlace writes to more than one data elements in the same file though. Calling with length == 0 is an error. --------------------------------------------------------------------------*/ int32 Hwrite(int32 access_id, int32 length, const void * data) { CONSTR(FUNC, "Hwrite"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec; /* access record */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 ret_value = SUCCEED; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || !(access_rec->access & DFACC_WRITE) || data == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if special elt, call special write function */ if (access_rec->special) { ret_value = (*access_rec->special_func->write) (access_rec, length, data); goto done; /* we are done */ } /* end special */ /* check validity of file record and get dd ptr */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check for a "new" element and make it appendable if so. Does this mean every element is by default appendable? */ if (access_rec->new_elem == TRUE) { Hsetlength(access_id, length); /* make the initial chunk of data */ access_rec->appendable = TRUE; /* make it appendable */ } /* end if */ /* get the offset and length of the element. This should have been set by Hstartwrite(). */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check validity of length and write data. NOTE: it is an error to attempt write past the end of the elt */ if (length <= 0 || (!access_rec->appendable && length + access_rec->posn > data_len)) HGOTO_ERROR(DFE_BADSEEK, FAIL); /* check if element is appendable and write length exceeds current data element length */ if (access_rec->appendable && length + access_rec->posn > data_len) { /* yes */ /* is data element at end of file? hmm. not sure about this condition. */ if (data_len + data_off != file_rec->f_end_off) { /* nope, not at end of file. Try to promote to linked-block element. */ if (HLconvert(access_id, access_rec->block_size, access_rec->num_blocks) == FAIL) { access_rec->appendable = FALSE; HGOTO_ERROR(DFE_BADSEEK, FAIL); } /* end if */ /* successfully converted the element into a linked block */ /* now loop back and actually write the data out */ if ((ret_value = Hwrite(access_id, length, data)) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); goto done; /* we're finished, wrap things up */ } /* end if */ /* Update the DD with the new length. Note argument of '-2' for the offset parameter means not to change the offset in the DD. */ if(HTPupdate(access_rec->ddid,-2,access_rec->posn+length)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ /* seek and write data */ if (HPseek(file_rec, access_rec->posn + data_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, data, length) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* update end of file pointer? */ if (file_rec->f_cur_off > file_rec->f_end_off) file_rec->f_end_off = file_rec->f_cur_off; /* update position of access in elt */ access_rec->posn += length; ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hwrite */ /*-------------------------------------------------------------------------- NAME HDgetc -- read a byte from data element USAGE intn HDgetc(access_id) int access_id; IN: id of READ access element RETURNS returns byte read in from data if successful and FAIL (-1) otherwise DESCRIPTION Calls Hread() to read a single byte and reports errors. --------------------------------------------------------------------------*/ intn HDgetc(int32 access_id) { CONSTR(FUNC, "HDgetc"); /* for HERROR */ uint8 c=(uint8)FAIL; /* character read in */ intn ret_value = SUCCEED; if (Hread(access_id, 1, &c) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); ret_value = (intn)c; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDgetc */ /*-------------------------------------------------------------------------- NAME USAGE intn HDputc(c,access_id) uint8 c; IN: byte to write out int32 access_id; IN: id of WRITE access element RETURNS returns byte written out to data if successful and FAIL (-1) otherwise DESCRIPTION Calls Hwrite() to write a single byte and reports errors. --------------------------------------------------------------------------*/ intn HDputc(uint8 c, int32 access_id) { CONSTR(FUNC, "HDputc"); /* for HERROR */ intn ret_value = SUCCEED; if (Hwrite(access_id, 1, &c) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); ret_value = (intn)c; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDputc */ /*-------------------------------------------------------------------------- NAME Hendaccess -- to dispose of an access element USAGE intn Hendaccess(access_id) int32 access_id; IN: id of access element to dispose of RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Used to dispose of an access element. If access elements are not disposed it will eventually become impossible to allocate new ones and close the file. If there are active aids Hclose will *NOT* close the file. This is a very common problem when developing new code. --------------------------------------------------------------------------*/ intn Hendaccess(int32 access_id) { CONSTR(FUNC, "Hendaccess"); /* for HERROR */ filerec_t *file_rec; /* file record */ accrec_t *access_rec=NULL;/* access record */ intn ret_value = SUCCEED; /* clear error stack and check validity of access id */ HEclear(); if ((access_rec = HAremove_atom(access_id))==NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* if special elt, call special function */ if (access_rec->special) { ret_value = (*access_rec->special_func->endaccess) (access_rec); goto done; } /* end if */ /* check validity of file record */ file_rec = HAatom_object(access_rec->file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* update file and access records */ if (HTPendaccess(access_rec->ddid) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); file_rec->attach--; #ifdef OLD_WAY if(HAremove_atom(access_id)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); #endif /* OLD_WAY */ HIrelease_accrec_node(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_rec!=NULL) HIrelease_accrec_node(access_rec); } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hendaccess */ /*-------------------------------------------------------------------------- NAME Hgetelement -- read in a data element USAGE int32 Hgetelement(file_id, tag, ref, data) int32 file_id; IN: id of the file to read from int16 tag; IN: tag of data element to read int16 ref; IN: ref of data element to read char *data; OUT: buffer to read into RETURNS returns number of bytes read if successful, FAIL (-1) otherwise DESCRIPTION Read in a data element from a HDF file and puts it into buffer pointed to by data. The space allocated for buffer is assumed to be large enough. --------------------------------------------------------------------------*/ int32 Hgetelement(int32 file_id, uint16 tag, uint16 ref, uint8 *data) { CONSTR(FUNC, "Hgetelement"); /* for HERROR */ int32 access_id=FAIL; /* access record id */ int32 length; /* length of this elt */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* get the access record, get the length of the elt, read in data, and dispose of access record */ if (( access_id = Hstartread(file_id, tag, ref))== FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); if ((length = Hread(access_id, (int32) 0, data)) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if(Hendaccess(access_id)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_id!=FAIL) Hendaccess(access_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hgetelement() */ /*-------------------------------------------------------------------------- NAME Hputelement -- writes a data element USAGE int Hputelement(fileid, tag, ref, data, length) int32 fileid; IN: id of file int16 tag; IN: tag of data element to put int16 ref; IN: ref of data element to put char *data; IN: pointer to buffer int32 length; IN: length of data RETURNS returns length of bytes written if successful and FAIL (-1) otherwise DESCRIPTION Writes a data element or replaces an existing data element in an HDF file. Uses Hwrite and its associated routines. --------------------------------------------------------------------------*/ int32 Hputelement(int32 file_id, uint16 tag, uint16 ref, const uint8 *data, int32 length) { CONSTR(FUNC, "Hputelement"); /* for HERROR */ int32 access_id=FAIL; /* access record id */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* get access record, write out data and dispose of access record */ if (( access_id = Hstartwrite(file_id, (uint16) tag, (uint16) ref, length))== FAIL) HGOTO_ERROR(DFE_NOMATCH, FAIL); if ((ret_value = Hwrite(access_id, length, data)) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if(Hendaccess(access_id)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ if(access_id!=FAIL) Hendaccess(access_id); } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Hputelement() */ /*-------------------------------------------------------------------------- NAME Hlength -- returns length of a data element USAGE int32 Hlength(fileid, tag, ref) int fileid; IN: id of file int tag; IN: tag of data element int ref; IN: ref of data element RETURNS return the length of a data element or FAIL if there is a problem. DESCRIPTION returns length of data element if it is present in the file. Return FAIL (-1) if it is not in the file or an error occurs. The current implementation is probably less efficient than it could be. However, because of special elements the code is much cleaner this way. --------------------------------------------------------------------------*/ int32 Hlength(int32 file_id, uint16 tag, uint16 ref) { #ifdef FASTER_BUT_DOESNT_WORK CONSTR(FUNC, "Hlength"); /* for HERROR */ filerec_t *file_rec; /* file record */ ddblock_t *block; /* DDB containing DD of element */ int32 idx; /* index into DDB i.e. DD of element */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); block = file_rec->ddhead; idx = -1; if (HIlookup_dd(file_rec, tag, ref, &block, &idx) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); ret_value = block->ddlist[idx].length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; #else /* FASTER_BUT_DOESNT_WORK */ CONSTR(FUNC, "Hlength"); /* for HERROR */ int32 access_id; /* access record id */ int32 length=FAIL; /* length of elt inquired */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* get access record, inquire about lebngth and then dispose of access record */ access_id = Hstartread(file_id, tag, ref); if (access_id == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); if ((ret_value = HQuerylength(access_id, &length)) == FAIL) HERROR(DFE_INTERNAL); if(Hendaccess(access_id)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = length; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; #endif /* FASTER_BUT_DOESNT_WORK */ } /* end Hlength */ /*-------------------------------------------------------------------------- NAME Hoffset -- get offset of data element in the file USAGE int32 Hoffset(fileid, tag, ref) int32 fileid; IN: id of file uint16 tag; IN: tag of data element uint16 ref; IN: ref of data element RETURNS returns offset of data element if it is present in the file or FAIL (-1) if it is not. DESCRIPTION This should be used for debugging purposes only since the user should not have to know the actual offset of a data element in a file. Like Hlength(). This could be sped up by not going through Hstartread() but because of special elements it is easier this way --------------------------------------------------------------------------*/ int32 Hoffset(int32 file_id, uint16 tag, uint16 ref) { CONSTR(FUNC, "Hoffset"); /* for HERROR */ int32 access_id; /* access record id */ int32 offset=FAIL; /* offset of elt inquired */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* get access record, inquire offset, and dispose of access record */ access_id = Hstartread(file_id, tag, ref); if (access_id == FAIL) HGOTO_ERROR(DFE_ARGS, FAIL); if ((ret_value = HQueryoffset(access_id, &offset)) == FAIL) HERROR(DFE_INTERNAL); if(Hendaccess(access_id)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = offset; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hoffset */ /*-------------------------------------------------------------------------- NAME Hishdf -- tells if a file is an HDF file USAGE intn Hishdf(path) const char *path; IN: name of file RETURNS returns TRUE (non-zero) if file is HDF, FALSE (0) otherwise DESCRIPTION This user level routine can be used to determine if a file with a given name is an HDF file. Note, just because a file is not an HDF file does not imply that all HDF library functions can not work on it. --------------------------------------------------------------------------*/ intn Hishdf(const char *filename) { #ifdef LATER CONSTR(FUNC, "Hishdf"); #endif /* LATER */ intn ret; hdf_file_t fp; intn ret_value = TRUE; /* Search for a matching slot in the already open files. */ if(HAsearch_atom(FIDGROUP,HPcompare_filerec_path,filename)!=NULL) HGOTO_DONE(TRUE); fp = (hdf_file_t)HI_OPEN(filename, DFACC_READ); if (OPENERR(fp)) { ret_value = FALSE; } else { ret = HIvalid_magic(fp); HI_CLOSE(fp); ret_value = (int) ret; } done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hishdf */ /*-------------------------------------------------------------------------- NAME Htrunc -- truncate a data element to a length USAGE int32 Htrunc(aid, len) int32 aid; IN: id of file int32 len; IN: length at which to truncate data element RETURNS return the length of a data element DESCRIPTION truncates a data element in the file. Return FAIL (-1) if it is not in the file or an error occurs. --------------------------------------------------------------------------*/ int32 Htrunc(int32 aid, int32 trunc_len) { CONSTR(FUNC, "Htrunc"); /* for HERROR */ accrec_t *access_rec; /* access record */ int32 data_len; /* length of the data we are checking */ int32 data_off; /* offset of the data we are checking */ int32 ret_value = SUCCEED; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(aid); if (access_rec == (accrec_t *) NULL || !(access_rec->access & DFACC_WRITE)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Dunno about truncating special elements... -QAK */ #ifdef DONT_KNOW /* if special elt, call special function */ if (access_rec->special) { ret_value = (*access_rec->special_func->write) (access_rec, length, data); goto done; } #endif /* get the offset and length of the dataset */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,&data_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check for actually being able to truncate the data */ if (data_len > trunc_len) { /* set the new length of the dataset. Note value of '-2' for the offset paramter means not to update the offset in the DD.*/ if(HTPupdate(access_rec->ddid,-2,trunc_len)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (access_rec->posn > trunc_len) /* move the seek position back */ access_rec->posn = trunc_len; ret_value = trunc_len; } /* end if */ else HGOTO_ERROR(DFE_BADLEN, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end Htrunc() */ /*-------------------------------------------------------------------------- NAME HIsync -- sync file with memory USAGE intn HIsync(file_rec) filerec_t *file_rec; IN: file record of file RETURNS returns SUCCEED (0) if sucessful, FAIL (-1) otherwise DESCRIPTION HIsync() performs the actual sync'ing of the file in memory & on disk. NOTE --------------------------------------------------------------------------*/ PRIVATE intn HIsync(filerec_t *file_rec) { CONSTR(FUNC, "HIsync"); /* for HERROR */ intn ret_value = SUCCEED; /* check whether to flush the file info */ if (file_rec->cache && file_rec->dirty) { /* flush DD blocks if necessary */ if (file_rec->dirty & DDLIST_DIRTY) if (HTPsync(file_rec) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); /* extend the end of the file if necessary */ if (file_rec->dirty & FILE_END_DIRTY) if (HIextend_file(file_rec) == FAIL) HGOTO_ERROR(DFE_CANTFLUSH, FAIL); file_rec->dirty = 0; /* file doesn't need to be flushed now */ } /* end if */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIsync */ /*-------------------------------------------------------------------------- NAME Hsync -- sync file with memory USAGE intn Hsync(file_id) int32 file_id; IN: id of file RETURNS returns SUCCEED (0) if sucessful, FAIL (-1) otherwise DESCRIPTION Currently, the on-disk and in-memory representations are always the same. Thus there is no real use for Hsync(). In the future, things may be buffered before being written out at which time Hsync() will be useful to sync up the on-disk representation. NOTE First tests of caching DD's until close. --------------------------------------------------------------------------*/ intn Hsync(int32 file_id) { CONSTR(FUNC, "Hsync"); /* for HERROR */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; /* check validity of file record and get dd ptr */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check whether to flush the file info */ if(HIsync(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hsync */ /*-------------------------------------------------------------------------- NAME Hcache -- set low-level caching for a file USAGE intn Hcache(file_id,cache_on) int32 file_id; IN: id of file intn cache_on; IN: whether to cache or not RETURNS returns SUCCEED (0) if sucessful, FAIL (-1) otherwise DESCRIPTION Set/reset the caching in an HDF file. If file_id is set to CACHE_ALL_FILES, then the value of cache_on is used to modify the default caching state. --------------------------------------------------------------------------*/ intn Hcache(int32 file_id, intn cache_on) { CONSTR(FUNC, "Hcache"); /* for HERROR */ filerec_t *file_rec; /* file record */ intn ret_value = SUCCEED; if (file_id == CACHE_ALL_FILES)/* check whether to modify the default cache */ { /* set the default caching for all further files Hopen'ed */ default_cache = (cache_on != 0 ? TRUE : FALSE); } /* end if */ else { /* check validity of file record and get dd ptr */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* check whether to flush the file info */ if (cache_on == FALSE && file_rec->cache) { if(HIsync(file_rec)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ file_rec->cache = (cache_on != 0 ? TRUE : FALSE); } /* end else */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hcache */ /*-------------------------------------------------------------------------- NAME HDvalidfid -- check if a file ID is valid USAGE int HDvalidfid(file_id) int32 file_id; IN: id of file RETURNS returns TRUE if valid ID else FALSE DESCRIPTION Determine whether a given int32 is a valid HDF file ID or not --------------------------------------------------------------------------*/ intn HDvalidfid(int32 file_id) { filerec_t *file_rec; intn ret_value = TRUE; /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) ret_value = FALSE; return ret_value; } /* HDvalidfid */ /*-------------------------------------------------------------------------- HDerr -- Closes a file and return FAIL. Replacement for DFIerr in HDF3.1 and before --------------------------------------------------------------------------*/ int HDerr(int32 file_id) { Hclose(file_id); return FAIL; } /*-------------------------------------------------------------------------- NAME Hsetacceesstype -- set the I/O access type (serial, parallel, ...) of a data element USAGE intn Hsetacceesstype(access_id, accesstype) int32 access_id; IN: id of access element uintn accesstype; IN: I/O access type RETURNS returns FAIL (-1) if fail, SUCCEED (0) otherwise. DESCRIPTION Set the type of I/O for accessing the data element to accesstype. --------------------------------------------------------------------------*/ intn Hsetaccesstype(int32 access_id, uintn accesstype) { CONSTR(FUNC, "Hsetaccesstype"); /* for HERROR */ accrec_t *access_rec; /* access record */ intn ret_value = SUCCEED; /* clear error stack and check validity of this access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL) HGOTO_ERROR(DFE_ARGS, FAIL); if (accesstype != DFACC_DEFAULT && accesstype != DFACC_SERIAL && accesstype != DFACC_PARALLEL) HGOTO_ERROR(DFE_ARGS, FAIL); if (accesstype == access_rec->access_type) goto done; /* kludge mode on */ if (accesstype != DFACC_PARALLEL) /* go to PARALLEL only */ { ret_value = FAIL; goto done; } /* if special elt, call special function */ if (access_rec->special) ret_value = HXPsetaccesstype(access_rec); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hsetacceesstype() */ /*-------------------------------------------------------------------------- NAME HDdont_atexit PURPOSE Indicates to the library that an 'atexit()' routine is _not_ to be installed USAGE intn HDdont_atexit(void) RETURNS Returns SUCCEED/FAIL DESCRIPTION This routine indicates to the library that an 'atexit()' cleanip routine should not be installed. The major (only?) purpose for this is in situations where the library is dynamically linked into an application and is un-linked from the application before 'exit()' gets callled. In those situations, a routine installed with 'atexit()' would jump to a routine which was no longer in memory, causing errors. In order to be effective, this routine _must_ be called before any other HDF function calls, and must be called each time the library is loaded/ linked into the application. (the first time and after it's been un-loaded) GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS If this routine is used, certain memory buffers will not be de-allocated, although in theory a user could call HPend on their own... EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HDdont_atexit(void) { #ifdef LATER CONSTR(FUNC, "HDdont_atexit"); /* for HERROR */ #endif /* LATER */ intn ret_value = SUCCEED; if(install_atexit == TRUE) install_atexit=FALSE; #ifdef LATER done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return(ret_value); } /* end HDdont_atexit() */ /*========================================================================== Internal Routines ==========================================================================*/ /*-------------------------------------------------------------------------- NAME HIstart PURPOSE Global and H-level initialization routine USAGE intn HIstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the global shut-down routine (HPend) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn HIstart(void) { CONSTR(FUNC, "HIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if(install_atexit==TRUE) if (HDatexit(&HPend) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Create the file ID and access ID groups */ if(HAinit_group(FIDGROUP,64)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if(HAinit_group(AIDGROUP,256)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); #ifdef OLD_WAY if((cleanup_list=HULcreate_list(NULL))==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); #else if(cleanup_list == NULL) { /* allocate list to hold terminateion fcns */ if ((cleanup_list = HDmalloc(sizeof(Generic_list))) == NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* initialize list */ if (HDGLinitialize_list(cleanup_list) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } #endif done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end HIstart() */ /*-------------------------------------------------------------------------- NAME HPregister_term_func PURPOSE Registers a termination function in the list of routines to call during atexit() termination. USAGE intn HPregister_term_func(term_func) intn (*term_func)(); IN: function to call during axexit() RETURNS Returns SUCCEED/FAIL DESCRIPTION Adds routines to the linked-list of routines to call when terminating the library. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function, or real power-users. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HPregister_term_func(hdf_termfunc_t term_func) { CONSTR(FUNC, "HPregister_term_func"); /* for HERROR */ intn ret_value = SUCCEED; if(library_terminate == FALSE) if(HIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); #ifdef OLD_WAY if(HULadd_node(cleanup_list,(void *)term_func)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); #else if(HDGLadd_to_list(*cleanup_list,(void *)term_func)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); #endif done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end HPregister_term_func() */ /*-------------------------------------------------------------------------- NAME HPend PURPOSE Terminate various static buffers and shutdown the library. USAGE intn HPend() RETURNS Returns SUCCEED/FAIL DESCRIPTION Walk through the shutdown routines for the various interfaces and terminate them all. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function, or real power-users. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ void HPend(void) { #ifdef LATER CONSTR(FUNC, "HPend"); /* for HERROR */ #endif /* LATER */ hdf_termfunc_t term_func; /* pointer to a termination routine for an interface */ /* Shutdown the file ID atom group */ HAdestroy_group(FIDGROUP); /* Shutdown the access ID atom group */ HAdestroy_group(AIDGROUP); if((term_func=(hdf_termfunc_t)HDGLfirst_in_list(*cleanup_list))!=NULL) { do { (*term_func)(); } while((term_func=(hdf_termfunc_t)HDGLnext_in_list(*cleanup_list))!=NULL); } /* end if */ /* can't issue errors if you're free'ing the error stack. */ HDGLdestroy_list(cleanup_list); /* clear the list of interface cleanup routines */ /* free allocated list struct */ HDfree(cleanup_list); /* re-initialize */ cleanup_list = NULL; HPbitshutdown(); HXPshutdown(); Hshutdown(); HEshutdown(); HAshutdown(); #ifdef OLD_WAY HULshutdown(); #endif tbbt_shutdown(); } /* end HPend() */ /*-------------------------------------------------------------------------- NAME HIextend_file -- extend file to current length USAGE int HIextend_file(file_rec) filerec_t * file_rec IN: pointer to file structure to extend RETURNS SUCCEED / FAIL DESCRIPTION The routine extends an HDF file to be the length on the f_end_off member of the file_rec. This is mainly written as a function so that the functionality is localized. --------------------------------------------------------------------------*/ PRIVATE intn HIextend_file(filerec_t * file_rec) { CONSTR(FUNC, "HIextend_file"); /* for HERROR */ uint8 temp = 0; intn ret_value = SUCCEED; if (HPseek(file_rec, file_rec->f_end_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, &temp, 1) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIextend_file */ /*-------------------------------------------------------------------------- NAME HIget_function_table -- create special function table USAGE int HIget_func_table(access_rec, FUNC) accrec_t * access_rec; IN: access record we are working on char * FUNC; IN: function we are working for RETURNS NULL no matter what (seems odd....) DESCRIPTION Set up the table of special functions for a given special element --------------------------------------------------------------------------*/ PRIVATE funclist_t * HIget_function_table(accrec_t * access_rec) { CONSTR(FUNC, "HIget_function_table"); /* for HERROR */ filerec_t *file_rec; /* file record */ int16 spec_code; uint8 lbuf[4]; /* temporary buffer */ uint8 *p; /* tmp buf ptr */ int32 data_off; /* offset of the data we are checking */ int i; /* loop index */ funclist_t *ret_value = NULL; /* FAIL */ /* read in the special code in the special elt */ file_rec = HAatom_object(access_rec->file_id); /* get the offset and length of the dataset */ if(HTPinquire(access_rec->ddid,NULL,NULL,&data_off,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, NULL); if (HPseek(file_rec, data_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, NULL); if (HP_read(file_rec, lbuf, (int)2) == FAIL) HGOTO_ERROR(DFE_READERROR, NULL); /* using special code, look up function table in associative table */ p = &lbuf[0]; INT16DECODE(p, spec_code); access_rec->special=(intn)spec_code; for (i = 0; functab[i].key != 0; i++) { if (access_rec->special == functab[i].key) { ret_value = functab[i].tab; break; /* break out of loop */ } } done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIget_function_table */ /*-------------------------------------------------------------------------- NAME HIgetspinfo -- return special info USAGE int HIgetspinfo(access_rec, tag, ref) accrec_t * access_rec; IN: access record we are working on int16 tag; IN: tag to look for int16 ref; IN: ref to look for RETURNS special_info field or NULL if not found DESCRIPTION given the tag and ref of a given element return the special info field of the access element. Basically, this function checks if any other AIDs in the file have read in the special information for this object. If so, this special information will be reused. Otherwise, the special element handling code needs to read in the information from disk GLOBALS Reads from the global access_records --------------------------------------------------------------------------*/ void * HIgetspinfo(accrec_t * access_rec) { #ifdef LATER CONSTR(FUNC, "HIgetspinfo"); /* for HERROR */ #endif /* LATER */ void * ret_value = NULL; /* FAIL */ if((ret_value=HAsearch_atom(AIDGROUP,HPcompare_accrec_tagref,access_rec))!=NULL) HGOTO_DONE(((accrec_t *)ret_value)->special_info); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIgetspinfo */ /*-------------------------------------------------------------------------- HIunlock -- unlock a previously locked file record --------------------------------------------------------------------------*/ PRIVATE int HIunlock(filerec_t *file_rec) { #ifdef LATER CONSTR(FUNC, "HIunlock"); /* for HERROR */ int ret_value = SUCCEED; #endif /* LATER */ /* unlock the file record */ file_rec->attach--; #ifdef LATER done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; #endif /* LATER */ return(SUCCEED); } /* ------------------------- SPECIAL TAG ROUTINES ------------------------- */ /* The HDF tag space is divided as follows based on the 2 highest bits: 00: NCSA reserved ordinary tags 01: NCSA reserved special tags 10, 11: User tags. It is relatively cheap to operate with special tags within the NCSA reserved tags range. For users to specify special tags and their corresponding ordinary tag, the pair has to be added to the special_table. The special_table contains pairs of each tag and its corrsponding special tag. The same table is also used to determine if a tag is special. Add to this table any additional tag/special_tag pairs that might be necessary. */ /* The functionality of these routines is covered by the SPECIALTAG, MKSPECIALTAG and BASETAG macros */ #ifdef SPECIAL_TABLE typedef struct special_table_t { uint16 tag; uint16 special_tag; } special_table_t; PRIVATE special_table_t special_table[] = { {0x8010, 0x4000 | 0x8010}, /* dummy */ }; #define SP_TAB_SZ (sizeof(special_table) / sizeof(special_table[0])) /*-------------------------------------------------------------------------- --------------------------------------------------------------------------*/ uint16 HDmake_special_tag(uint16 tag) { int i; uint16 ret_value = DFTAG_NULL; /* FAIL */ if (~tag & 0x8000) { ret_value = ((uint16) (tag | 0x4000)); goto done; } for (i = 0; i < SP_TAB_SZ; i++) if (special_table[i].tag == tag) { ret_value = (uint16) special_table[i].special_tag; break; } done: if(ret_value == DFTAG_NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- --------------------------------------------------------------------------*/ intn HDis_special_tag(uint16 tag) { int i; intn ret_value = FALSE; /* FAIL */ if (~tag & 0x8000) { ret_value = (tag & 0x4000) ? TRUE : FALSE; goto done; } for (i = 0; i < SP_TAB_SZ; i++) if (special_table[i].special_tag == tag) { ret_value = TRUE; break; } done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- --------------------------------------------------------------------------*/ uint16 HDbase_tag(uint16 tag) { int i; uint16 ret_value = tag; if (~tag & 0x8000) { ret_value = ((uint16) (tag & ~0x4000)); goto done; } for (i = 0; i < SP_TAB_SZ; i++) if (special_table[i].special_tag == tag) { ret_value = special_table[i].special_tag; break; } done: if(ret_value == tag) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } #endif /* SPECIAL_TABLE */ /*-------------------------------------------------------------------------- NAME Hgetlibversion -- return version info for current HDF library USAGE intn Hgetlibversion(majorv, minorv, release, string) uint32 *majorv; OUT: majorv version number uint32 *minorv; OUT: minorv versoin number uint32 *release; OUT: release number char string[]; OUT: informational text string (80 chars) RETURNS returns SUCCEED (0). DESCRIPTION Copies values from #defines in hfile.h to provided buffers. This information is statistically compilied into the HDF library, so it is not necessary to have any files open to get this information. --------------------------------------------------------------------------*/ intn Hgetlibversion(uint32 *majorv, uint32 *minorv, uint32 *releasev, char *string) { #ifdef LATER CONSTR(FUNC, "Hgetlibversion"); #endif HEclear(); *majorv = LIBVER_MAJOR; *minorv = LIBVER_MINOR; *releasev = LIBVER_RELEASE; HIstrncpy(string, LIBVER_STRING, LIBVSTR_LEN + 1); return (SUCCEED); } /* HDgetlibversion */ /*-------------------------------------------------------------------------- NAME Hgetfileversion -- return version info for HDF file USAGE intn Hgetfileversion(file_id, majorv, minorv, release, string) int32 file_id; IN: handle of file uint32 *majorv; OUT: majorv version number uint32 *minorv; OUT: minorv versoin number uint32 *release; OUT: release number char *string; OUT: informational text string (80 chars) RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Copies values from file_records[] structure for a given file to provided buffers. GLOBAL VARIABLES Reads file_records[] --------------------------------------------------------------------------*/ intn Hgetfileversion(int32 file_id, uint32 *majorv, uint32 *minorv, uint32 *release, char *string) { CONSTR(FUNC, "Hgetfileversion"); filerec_t *file_rec; intn ret_value = SUCCEED; HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); if (majorv != NULL) *majorv = file_rec->version.majorv; if (minorv != NULL) *minorv = file_rec->version.minorv; if (release != NULL) *release = file_rec->version.release; if (string != NULL) HIstrncpy(string, file_rec->version.string, LIBVSTR_LEN + 1); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hgetfileversion */ /*-------------------------------------------------------------------------- NAME HIcheckfileversion -- check version info for HDF file USAGE intn Hgetfileversion(file_id) int32 file_id; IN: handle of file RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Checks that the file's version is current and update it if it isn't. --------------------------------------------------------------------------*/ PRIVATE intn HIcheckfileversion(int32 file_id) { CONSTR(FUNC, "HIcheckfileversion"); filerec_t *file_rec; uint32 lmajorv, lminorv, lrelease; uint32 fmajorv, fminorv, frelease; char string[LIBVSTR_LEN + 1]; /* len 80+1 */ intn newver = 0; intn ret_value = SUCCEED; HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get file version and set newver condition */ if (Hgetfileversion(file_id, &fmajorv, &fminorv, &frelease, string) != SUCCEED) { newver = 1; HEclear(); } /* end if */ /* get library version */ Hgetlibversion(&lmajorv, &lminorv, &lrelease, string); /* check whether we need to update the file version tag */ if(lmajorv > fmajorv || (lmajorv==fmajorv && lminorv > fminorv) || (lmajorv==fmajorv && lminorv==fminorv && lrelease > frelease)) newver=1; if (newver == 1) { file_rec->version.majorv = lmajorv; file_rec->version.minorv = lminorv; file_rec->version.release = lrelease; HIstrncpy(file_rec->version.string, string, LIBVSTR_LEN + 1); file_rec->version.modified = 1; } /* end if */ file_rec->version_set = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIcheckfileversion */ /*-------------------------------------------------------------------------- NAME HIget_filerec_node -- find a filerec for a FILE USAGE filerec_t *HIget_filerec_node(path) char * path; IN: name of file RETURNS a file record or else NULL DESCRIPTION Search the file record array for a matching record, or allocate an empty slot. The file is considered the same if the path matches exactly. This routine is unable to detect aliases, or how to compare relative and absolute paths. --------------------------------------------------------------------------*/ PRIVATE filerec_t * HIget_filerec_node(const char *path) { CONSTR(FUNC, "HIget_filerec_node"); filerec_t *ret_value=NULL; if((ret_value=HAsearch_atom(FIDGROUP,HPcompare_filerec_path,path))==NULL) { if((ret_value=(filerec_t *)HDcalloc(1,sizeof(filerec_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE,NULL); if((ret_value->path=(char *)HDstrdup(path))==NULL) HGOTO_ERROR(DFE_NOSPACE,NULL); /* Initialize annotation stuff */ ret_value->an_tree[AN_DATA_LABEL] = NULL; ret_value->an_tree[AN_DATA_DESC] = NULL; ret_value->an_tree[AN_FILE_LABEL] = NULL; ret_value->an_tree[AN_FILE_DESC] = NULL; ret_value->an_num[AN_DATA_LABEL] = -1; ret_value->an_num[AN_DATA_DESC] = -1; ret_value->an_num[AN_FILE_LABEL] = -1; ret_value->an_num[AN_FILE_DESC] = -1; } /* end if */ done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIget_filerec_node */ /*-------------------------------------------------------------------------- NAME HIrelease_filerec_node -- release/recycle a filerec USAGE intn HIrelease_filerec_node(file_rec) filerec_t *file_rec; IN: File record to release RETURNS SUCCEED/FAIL DESCRIPTION Release a file record back to the system --------------------------------------------------------------------------*/ PRIVATE intn HIrelease_filerec_node(filerec_t *file_rec) { #ifdef LATER CONSTR(FUNC, "HIrelease_filerec_node"); #endif /* LATER */ /* Close file if it's opened */ if(file_rec->file!=NULL) HI_CLOSE(file_rec->file); /* Free all the components of the file record */ if(file_rec->path!=NULL) HDfree(file_rec->path); HDfree(file_rec); #ifdef LATER done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return SUCCEED; } /* HIrelease_filerec_node */ /*-------------------------------------------------------------------------- NAME HPisfile_in_use -- check if a FILE is currently in use USAGE intn HPisfile_in_use(path) const char * path; IN: name of file RETURNS TRUE if the file is in use or FALSE, otherwise. DESCRIPTION Get its record if the file is opened, then check its reference count to decide whether the file is currently in use. --------------------------------------------------------------------------*/ intn HPisfile_in_use(const char *path) { #ifdef LATER CONSTR(FUNC, "HPisfile_in_use"); #endif /* LATER */ filerec_t *file_rec=NULL; intn ret_value=FALSE; /* Search for the record of a file named "path". */ file_rec = (filerec_t *)HAsearch_atom(FIDGROUP,HPcompare_filerec_path,path); /* If the file is not found, it can't be in use, return FALSE */ if (file_rec == NULL) ret_value = FALSE; else if (file_rec->refcount) /* file is in use if ref count is not 0 */ ret_value = TRUE; #ifdef LATER done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return ret_value; } /* HPisfile_in_use */ /*-------------------------------------------------------------------------- NAME HPcompare_filerec_path -- compare filerec objects for the atom API USAGE intn HPcompare_filerec_path(obj, key) const void * obj; IN: pointer to the file record const void * key; IN: pointer to the name of file RETURNS TRUE if the key matches the obj, FALSE otherwise DESCRIPTION Look inside the file record for the atom API and compare the the paths. --------------------------------------------------------------------------*/ intn HPcompare_filerec_path(const void * obj, const void * key) { const filerec_t *frec = obj; const char *fname = key; intn ret_value = FALSE; /* set default as FALSE */ #ifdef LATER CONSTR(FUNC, "HPcompare_filerec_path"); #endif /* LATER */ /* check args */ if (frec != NULL && fname != NULL) { /* check bad file record */ if (BADFREC(frec)) ret_value = FALSE; else { if(!HDstrcmp(frec->path,fname)) ret_value = TRUE; else ret_value = FALSE; } } #ifdef LATER done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return ret_value; } /* HPcompare_filerec_path */ /*-------------------------------------------------------------------------- NAME HPcompare_accrec_tagref -- compare accrec objects for the atom API USAGE intn HPcompare_accrec_tagref(obj, key) const void * rec1; IN: pointer to the access record #1 const void * rec2; IN: pointer to the access record #2 RETURNS TRUE if tag/ref of rec1 matches the tag/ref of rec2, FALSE otherwise DESCRIPTION Look inside the access record for the atom API and compare the the paths. --------------------------------------------------------------------------*/ intn HPcompare_accrec_tagref(const void * rec1, const void * rec2) { CONSTR(FUNC, "HPcompare_accrec_tagref"); uint16 tag1,ref1; /* tag/ref of access record #1 */ uint16 tag2,ref2; /* tag/ref of access record #2 */ intn ret_value = FALSE; /* FAIL */ if(rec1!=rec2) { if(HTPinquire(((const accrec_t *)rec1)->ddid,&tag1,&ref1,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FALSE); if(HTPinquire(((const accrec_t *)rec2)->ddid,&tag2,&ref2,NULL,NULL)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FALSE); if (((const accrec_t *)rec1)->file_id == ((const accrec_t *)rec2)->file_id && tag1 == tag2 && ref1 == ref2) HGOTO_DONE(TRUE); } /* end if */ done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* HPcompare_accrec_tagref */ /*-------------------------------------------------------------------------- NAME HIvalid_magic -- verify the magic number in a file USAGE int32 HIvalid_magic(path) hdf_file_t file; IN: FILE pointer RETURNS TRUE if valid magic number else FALSE DESCRIPTION Given an open file pointer, see if the first four bytes of the file are the HDF "magic number" HDFMAGIC --------------------------------------------------------------------------*/ PRIVATE intn HIvalid_magic(hdf_file_t file) { CONSTR(FUNC, "HIvalid_magic"); char b[MAGICLEN]; /* Temporary buffer */ intn ret_value = FALSE; /* FAIL */ /* Seek to beginning of the file. */ if (HI_SEEK(file, 0) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FALSE); /* Read in magic cookie and compare. */ if (HI_READ(file, b, MAGICLEN) == FAIL) HGOTO_ERROR(DFE_READERROR, FALSE); if (NSTREQ(b, HDFMAGIC, MAGICLEN)) ret_value = TRUE; done: if(ret_value == FALSE) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME HIget_access_rec -- allocate a new access record USAGE int HIget_access_rec(void) RETURNS returns access_record pointer or NULL if failed. DESCRIPTION Return an pointer to a new access_rec to use for a new AID. --------------------------------------------------------------------------*/ accrec_t *HIget_access_rec(void) { CONSTR(FUNC, "HIget_access_rec"); accrec_t *ret_value = NULL; HEclear(); /* Grab from free list if possible */ if(accrec_free_list!=NULL) { ret_value=accrec_free_list; accrec_free_list=accrec_free_list->next; } /* end if */ else { if((ret_value=(accrec_t *)HDmalloc(sizeof(accrec_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ /* Initialize to zeros */ HDmemset(ret_value,0,sizeof(accrec_t)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIget_access_rec */ /****************************************************************************** NAME HIrelease_accrec_node - Releases an atom node DESCRIPTION Puts an accrec node into the free list RETURNS No return value *******************************************************************************/ void HIrelease_accrec_node(accrec_t *acc) { #ifdef LATER CONSTR(FUNC, "HIrelease_atom_node"); /* for HERROR */ #endif /* LATER */ /* Insert the atom at the beginning of the free list */ acc->next=accrec_free_list; accrec_free_list=acc; } /* end HIrelease_accrec_node() */ /*-------------------------------------------------------------------------- PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE NAME HIupdate_version -- determine whether new version tag should be written USAGE int HIupdate_version(file_id) int32 file_id; IN: handle of file RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Writes out version numbers of current library as file version. GLOBAL VARIABLES Resets modified field of version field of appropriate file_records[] entry. --------------------------------------------------------------------------*/ PRIVATE int HIupdate_version(int32 file_id) { /* uint32 lmajorv, lminorv, lrelease; */ uint8 /*lstring[81], */ lversion[LIBVER_LEN]; filerec_t * file_rec; int i; CONSTR(FUNC, "Hupdate_version"); int ret_value = SUCCEED; HEclear(); /* Check args */ file_rec=HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* copy in-memory version to file */ Hgetlibversion(&(file_rec->version.majorv), &(file_rec->version.minorv), &(file_rec->version.release), file_rec->version.string); { uint8 *p; p = lversion; UINT32ENCODE(p, file_rec->version.majorv); UINT32ENCODE(p, file_rec->version.minorv); UINT32ENCODE(p, file_rec->version.release); HIstrncpy((char *) p, file_rec->version.string, LIBVSTR_LEN); i = (int)HDstrlen((char *) p); HDmemset(&p[i],0,LIBVSTR_LEN-i); } if(Hputelement(file_id, (uint16) DFTAG_VERSION, (uint16) 1, lversion, (int32) LIBVER_LEN)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); file_rec->version.modified = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIupdate_version */ /*-------------------------------------------------------------------------- PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE NAME HIread_version -- reads a version tag from a file USAGE int HIread_version(file_id) int32 file_id; IN: handle of file RETURNS returns SUCCEED (0) if successful and FAIL (-1) if failed. DESCRIPTION Reads a version tag from the specified file into the version fields of the appropriate filerec_t. On failure, zeros are put in the version number fields and NULLS in the string. GLOBAL VARIABLES Writes to version fields of appropriate file_records[] entry. --------------------------------------------------------------------------*/ PRIVATE int HIread_version(int32 file_id) { filerec_t *file_rec; uint8 fversion[LIBVER_LEN]; CONSTR(FUNC, "Hread_version"); int ret_value = SUCCEED; HEclear(); file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); if (Hgetelement(file_id, (uint16) DFTAG_VERSION, (uint16) 1, fversion) == FAIL) { file_rec->version.majorv = 0; file_rec->version.minorv = 0; file_rec->version.release = 0; HDstrcpy(file_rec->version.string, ""); file_rec->version.modified = 0; HGOTO_ERROR(DFE_INTERNAL, FAIL); } else { uint8 *p; p = fversion; UINT32DECODE(p, file_rec->version.majorv); UINT32DECODE(p, file_rec->version.minorv); UINT32DECODE(p, file_rec->version.release); HIstrncpy(file_rec->version.string, (char *) p, LIBVSTR_LEN); } file_rec->version.modified = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HIread_version */ /*----------------------------------------------------------------------- NAME HPgetdiskblock --- Get the offset of a free block in the file. USAGE int32 HPgetdiskblock(file_rec, block_size) filerec_t *file_rec; IN: ptr to the file record int32 block_size; IN: size of the block needed intn moveto; IN: whether to move the file position to the allocated position or leave it undefined. RETURNS returns offset of block in the file if successful, FAIL (-1) if failed. DESCRIPTION Used to "allocate" space in the file. Currently, it just appends blocks to the end of the file willy-nilly. At some point in the future, this could be changed to use a "real" free-list of empty blocks in the file and dole those out. -------------------------------------------------------------------------*/ int32 HPgetdiskblock(filerec_t * file_rec, int32 block_size, intn moveto) { CONSTR(FUNC, "HPgetdiskblock"); uint8 temp; int32 ret_value = SUCCEED; /* check for valid arguments */ if (file_rec == NULL || block_size < 0) HGOTO_ERROR(DFE_ARGS, FAIL); #ifdef DISKBLOCK_DEBUG block_size+=(DISKBLOCK_HSIZE+DISKBLOCK_TSIZE); /* get the offset of the allocated block */ ret_value = file_rec->f_end_off+DISKBLOCK_HSIZE; #else /* DISKBLOCK_DEBUG */ /* get the offset of the allocated block */ ret_value = file_rec->f_end_off; #endif /* DISKBLOCK_DEBUG */ /* reserve the space by marking the end of the element */ if (block_size > 0) { #ifdef DISKBLOCK_DEBUG if (file_rec->cache) file_rec->dirty |= FILE_END_DIRTY; else { /* Write the debugging head & tail to the file block allocated */ if (HPseek(file_rec, file_rec->f_end_off) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, diskblock_header, DISKBLOCK_HSIZE) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); if (HPseek(file_rec, file_rec->f_end_off+block_size-DISKBLOCK_TSIZE) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, diskblock_tail, DISKBLOCK_TSIZE) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end else */ #else /* DISKBLOCK_DEBUG */ if (file_rec->cache) file_rec->dirty |= FILE_END_DIRTY; else { if (HPseek(file_rec, ret_value + block_size - 1) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); if (HP_write(file_rec, &temp, 1) == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* end else */ #endif /* DISKBLOCK_DEBUG */ } /* end if */ if (moveto == TRUE) /* move back to the beginning of the element */ { if (HPseek(file_rec, ret_value) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ /* incr. offset of end of file */ file_rec->f_end_off +=block_size; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HPgetdiskblock() */ /*----------------------------------------------------------------------- NAME HPfreediskblock --- Release a block in a file to be re-used. USAGE intn HPfreediskblock(file_rec, block_off, block_size) filerec_t *file_rec; IN: ptr to the file record int32 block_off; IN: offset of the block to release int32 block_size; IN: size of the block to release RETURNS returns SUCCEED (0) if successful, FAIL (-1) if failed. DESCRIPTION Used to "release" space in the file. Currently, it does nothing. At some point in the future, this could be changed to add the block to a "real" free-list of empty blocks in the file and manage those. -------------------------------------------------------------------------*/ intn HPfreediskblock(filerec_t * file_rec, int32 block_off, int32 block_size) { #ifdef LATER CONSTR(FUNC, "HPfreediskblock"); #endif intn ret_value = SUCCEED; /* shut compiler up */ file_rec = file_rec; block_off = block_off; block_size = block_size; return ret_value; } /* HPfreediskblock() */ /*-------------------------------------------------------------------------- NAME HDget_special_info -- get information about a special element USAGE intn HDget_special_info(access_id, info_block) int32 access_id; IN: id of READ access element sp_info_block_t * info_block; OUT: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Fill in the given info_block with information about the special element. Return FAIL if it is not a special element AND set the 'key' field to FAIL in info_block. --------------------------------------------------------------------------*/ int32 HDget_special_info(int32 access_id, sp_info_block_t * info_block) { CONSTR(FUNC, "HDget_special_info"); accrec_t *access_rec; /* access record */ int32 ret_value = FAIL; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || info_block == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* special elt, so call special function */ if (access_rec->special) ret_value = (*access_rec->special_func->info) (access_rec, info_block); else /* else is not special so FAIL */ info_block->key = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDget_special_info */ /*-------------------------------------------------------------------------- NAME HDset_special_info -- reset information about a special element USAGE intn HDet_special_info(access_id, info_block) int32 access_id; IN: id of READ access element sp_info_block_t * info_block; IN: information about the special element RETURNS SUCCEED / FAIL DESCRIPTION Attempt to replace the special information for the given element with new information. This routine should be used to rename external elements for example. Doing things like changing the blocking of a linekd block element are beyond the scope of this routine. --------------------------------------------------------------------------*/ int32 HDset_special_info(int32 access_id, sp_info_block_t * info_block) { CONSTR(FUNC, "HDset_special_info"); accrec_t *access_rec; /* access record */ int32 ret_value = FAIL; /* clear error stack and check validity of access id */ HEclear(); access_rec = HAatom_object(access_id); if (access_rec == (accrec_t *) NULL || info_block == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* special elt, so call special function */ if (access_rec->special) ret_value = (*access_rec->special_func->reset) (access_rec, info_block); /* else is not special so fail */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HDset_special_info */ /*-------------------------------------------------------------------------- NAME Hshutdown PURPOSE Terminate various static buffers. USAGE intn Hshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the H routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hshutdown(void) { accrec_t *curr; /* Release the free-list if it exists */ if(accrec_free_list != NULL) { while(accrec_free_list != NULL && accrec_free_list != accrec_free_list->next) { curr = accrec_free_list; accrec_free_list = accrec_free_list->next; curr->next = NULL; HDfree(curr); } /* end while */ } /* end if */ return (SUCCEED); } /* end Hshutdown() */ /* #define HFILE_SEEKINFO */ #ifdef HFILE_SEEKINFO static uint32 seek_taken=0; static uint32 seek_avoided=0; static uint32 write_force_seek=0; static uint32 read_force_seek=0; void Hdumpseek(void) { printf("Seeks taken=%lu\n",(unsigned long)seek_taken); printf("Seeks avoided=%lu\n",(unsigned long)seek_avoided); printf("# of times write forced a seek=%lu\n",(unsigned long)write_force_seek); printf("# of times read forced a seek=%lu\n",(unsigned long)read_force_seek); } /* Hdumpseek() */ #endif /* HFILE_SEEKINFO */ /*-------------------------------------------------------------------------- NAME HP_read PURPOSE Alias for HI_READ on HDF files. USAGE intn HP_read(file_rec,buf,bytes) filerec_t * file_rec; IN: Pointer to the HDF file record void * buf; IN: Pointer to the buffer to read data into int32 bytes; IN: # of bytes to read RETURNS Returns SUCCEED/FAIL DESCRIPTION Function to wrap around HI_READ GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only be called by HDF low-level routines EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HP_read(filerec_t *file_rec,void * buf,int32 bytes) { CONSTR(FUNC, "HP_read"); intn ret_value = SUCCEED; /* Check for switching file access operations */ if(file_rec->last_op==H4_OP_WRITE || file_rec->last_op==H4_OP_UNKNOWN) { #ifdef HFILE_SEEKINFO read_force_seek++; #endif /* HFILE_SEEKINFO */ file_rec->last_op=H4_OP_UNKNOWN; if(HPseek(file_rec,file_rec->f_cur_off)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ if(HI_READ(file_rec->file,buf,bytes)==FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); file_rec->f_cur_off+=bytes; file_rec->last_op=H4_OP_READ; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HP_read() */ /*-------------------------------------------------------------------------- NAME HPseek PURPOSE Alias for HI_SEEK on HDF files. USAGE intn HPseek(file_rec,offset) filerec_t * file_rec; IN: Pointer to the HDF file record int32 offset; IN: offset in the file to go to RETURNS Returns SUCCEED/FAIL DESCRIPTION Function to wrap around HI_SEEK GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only be called by HDF low-level routines EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HPseek(filerec_t *file_rec,int32 offset) { CONSTR(FUNC, "HPseek"); intn ret_value = SUCCEED; #ifdef HFILE_SEEKINFO printf("%s: file_rec=%p, last_offset=%ld, offset=%ld, last_op=%d",FUNC,file_rec,(long)file_rec->f_cur_off,(long)offset,(int)file_rec->last_op); #endif /* HFILE_SEEKINFO */ if(file_rec->f_cur_off!=offset || file_rec->last_op==H4_OP_UNKNOWN) { #ifdef HFILE_SEEKINFO seek_taken++; printf(" taken: %d\n",(int)seek_taken); #endif /* HFILE_SEEKINFO */ if (HI_SEEK(file_rec->file, offset) == FAIL) HGOTO_ERROR(DFE_SEEKERROR, FAIL); file_rec->f_cur_off=offset; file_rec->last_op=H4_OP_SEEK; } /* end if */ #ifdef HFILE_SEEKINFO else { seek_avoided++; printf(" avoided: %d\n",(int)seek_avoided); } #endif /* HFILE_SEEKINFO */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HPseek() */ /*-------------------------------------------------------------------------- NAME HP_write PURPOSE Alias for HI_WRITE on HDF files. USAGE intn HP_write(file_rec,buf,bytes) filerec_t * file_rec; IN: Pointer to the HDF file record void * buf; IN: Pointer to the buffer to write int32 bytes; IN: # of bytes to write RETURNS Returns SUCCEED/FAIL DESCRIPTION Function to wrap around HI_WRITE GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only be called by HDF low-level routines EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HP_write(filerec_t *file_rec,const void * buf,int32 bytes) { CONSTR(FUNC, "HP_write"); intn ret_value = SUCCEED; /* Check for switching file access operations */ if(file_rec->last_op==H4_OP_READ || file_rec->last_op==H4_OP_UNKNOWN) { #ifdef HFILE_SEEKINFO write_force_seek++; #endif /* HFILE_SEEKINFO */ file_rec->last_op=H4_OP_UNKNOWN; if(HPseek(file_rec,file_rec->f_cur_off)==FAIL) HGOTO_ERROR(DFE_INTERNAL,FAIL); } /* end if */ if(HI_WRITE(file_rec->file,buf,bytes)==FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); file_rec->f_cur_off+=bytes; file_rec->last_op=H4_OP_WRITE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end HP_write() */ /*-------------------------------------------------------------------------- NAME HDread_drec -- reads a description record USAGE int32 HDread_drec(file_id, data_id, drec_buf) int32 file_id; IN: id of file atom_t data_id; IN: id of an element uint8** drec_buf OUT: buffer containing special info header RETURNS Returns the length of the info read DESCRIPTION This private function contains code that was repeated in several places throughout the library. It gets access to the element's description record and read the special info header. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG 03-20-2010 BMR: Factored out repeated code --------------------------------------------------------------------------*/ int32 HPread_drec(int32 file_id, atom_t data_id, uint8** drec_buf) { CONSTR(FUNC, "HDread_drec"); /* for HERROR */ int32 drec_len=0; /* length of the description record */ int32 drec_aid=-1; /* description record access id */ uint16 drec_tag, drec_ref; /* description record tag/ref */ int32 ret_value=0; /* get the info for the dataset (description record) */ if (HTPinquire(data_id,&drec_tag,&drec_ref,NULL,&drec_len) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if ((*drec_buf = (uint8 *)HDmalloc(drec_len)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* get the special info header */ drec_aid = Hstartaccess(file_id,MKSPECIALTAG(drec_tag),drec_ref,DFACC_READ); if (drec_aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); if (Hread(drec_aid,0,*drec_buf) == FAIL) HGOTO_ERROR(DFE_READERROR, FAIL); if(Hendaccess(drec_aid)==FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); ret_value = drec_len; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* HPread_drec */ /*-------------------------------------------------------------------------- NAME HDcheck_empty -- determines if an element has been written with data USAGE int32 HDcheck_empty(file_id, tag, ref, *emptySDS) int32 file_id; IN: id of file uint16 tag; IN: tag of data element uint16 ref; IN: ref of data element intn *emptySDS; OUT: TRUE if data element is empty RETURNS Returns SUCCEED/FAIL DESCRIPTION If the data element is special, gets the compressed or chunked description record and retrieves the special tag. If the special tag indicates that the data element is compressed, then this function will retrieve the data length. If the special tag indicates the data element is chunked, then retrieve the vdata chunk table to get its number of records. Uses the data length or number of records to determine the value for 'emptySDS'. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG 10-30-2004 BMR: This function was added for SDcheckempty 08-28-2007 BMR: The old code of this function failed when szip library didn't present (bugzilla 842.) Modified to read info directly from file. --------------------------------------------------------------------------*/ int32 HDcheck_empty(int32 file_id, uint16 tag, uint16 ref, intn *emptySDS /* TRUE if data element is empty */) { CONSTR(FUNC, "HDcheck_empty"); /* for HERROR */ int32 length; /* length of the element's data */ atom_t data_id = FAIL; /* dd ID of existing regular element */ filerec_t *file_rec; /* file record pointer */ uint8 *local_ptbuf=NULL, *p; int16 sptag = -1; /* special tag read from desc record */ int32 ret_value = SUCCEED; /* clear error stack */ HEclear(); /* convert file id to file rec and check for validity */ file_rec = HAatom_object(file_id); if (BADFREC(file_rec)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get access element from dataset's tag/ref */ if ((data_id=HTPselect(file_rec,tag,ref))!=FAIL) { int32 dlen=0, doff=0; /* offset/length of the description record */ /* Get the info pointed to by this dd, which could point to data or description record, or neither */ if (HTPinquire(data_id, NULL, NULL, &doff, &dlen) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* doff/dlen = -1 means no data had been written */ if (doff == INVALID_OFFSET && dlen == INVALID_LENGTH) { *emptySDS = TRUE; } /* if the element is not special, that means dataset's tag/ref specifies the actual data that was written to the dataset, so we don't need to check further */ else if (HTPis_special(data_id)==FALSE) { *emptySDS = FALSE; } else { int32 rec_len=0; /* Get the compression header (description record) */ rec_len = HPread_drec(file_id, data_id, &local_ptbuf); if (rec_len <= 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* get special tag */ p = local_ptbuf; INT16DECODE(p, sptag); /* if it is a compressed element, get the data length and set flag emptySDS appropriately */ if (sptag == SPECIAL_COMP) { /* skip 2byte header_version */ p = p + 2; INT32DECODE(p, length); /* get _uncompressed_ data length */ /* set flag specifying whether the dataset is empty */ *emptySDS = length == 0 ? TRUE : FALSE; } /* if it is a chunked element, get the number of records in the chunk table (vdata) to determine emptySDS value */ else if (sptag == SPECIAL_CHUNKED) { uint16 chk_tbl_tag, chk_tbl_ref; /* chunk table tag/ref */ int32 vdata_id = -1; /* chunk table id */ int32 n_records = 0; /* number of records in chunk table */ /* skip 4byte header len, 1byte chunking version, 4byte flag, */ /* 4byte elm_tot_length, 4byte chunk_size and 4byte nt_size */ p = p + 4 + 1 + 4 + 4 + 4 + 4; UINT16DECODE(p, chk_tbl_tag); UINT16DECODE(p, chk_tbl_ref); /* make sure it is really the vdata */ if (chk_tbl_tag == DFTAG_VH) { /* attach to the chunk table vdata and get its num of records */ if ((vdata_id = VSattach(file_id,chk_tbl_ref,"r")) == FAIL) HGOTO_ERROR(DFE_CANTATTACH, FAIL); if (VSinquire(vdata_id, &n_records,NULL,NULL,NULL,NULL) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (VSdetach(vdata_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); /* set flag specifying whether the dataset is empty */ *emptySDS = n_records == 0 ? TRUE : FALSE; } /* it is a vdata */ else HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* need to check about other special cases - BMR 08/28/2007 */ } /* else, data_id is special */ /* end access to the aid */ if (HTPendaccess(data_id) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); } /* end if data_id != FAIL */ else { HGOTO_ERROR(DFE_CANTACCESS, FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ if (local_ptbuf != NULL) HDfree(local_ptbuf); return ret_value; } /* end HDcheck_empty() */ /*-------------------------------------------------------------------------- NAME Hgetspecinfo PURPOSE Returns the special type if the given element is special. USAGE intn Hgetspecinfo(file_id, tag, ref) int32 file_id; IN: file id uint16 tag; IN: tag of the element uint16 ref; IN: ref of the element RETURNS Special type: SPECIAL_LINKED SPECIAL_EXT SPECIAL_COMP SPECIAL_VLINKED SPECIAL_CHUNKED SPECIAL_BUFFERED SPECIAL_COMPRAS or 0 if the element is not special element. DESCRIPTION Called internally by the GRIget_image_list to allow a chunked or linked-block element to proceed eventhough its offset is 0. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS *** Only called by library routines, should _not_ be called externally *** EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hgetspecinfo(int32 file_id, uint16 tag, uint16 ref, sp_info_block_t *info) { CONSTR(FUNC, "Hgetspecinfo"); accrec_t* access_rec=NULL;/* access element record */ int32 aid; intn status=0, ret_value=0; /* Clear error stack */ HEclear(); /* Start read access on the access record of the data element, which is being inquired for its special information */ aid = Hstartread(file_id, tag, ref); /* Get the access_rec pointer */ access_rec = HAatom_object(aid); if (access_rec == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* Only return the valid special code, anything else return 0 */ ret_value = access_rec->special; switch (access_rec->special) { case SPECIAL_LINKED: case SPECIAL_EXT: case SPECIAL_COMP: case SPECIAL_CHUNKED: case SPECIAL_BUFFERED: case SPECIAL_COMPRAS: /* special elt, call special function */ status = (*access_rec->special_func->info) (access_rec, info); /* return FAIL if special function fails eventhough special type was OK */ if (status == FAIL) ret_value = FAIL; break; #ifdef LATER case SPECIAL_VLINKED: break; #endif /* LATER */ default: ret_value = 0; } /* switch */ /* End access to the aid */ if (Hendaccess(aid) == FAIL) HGOTO_ERROR(DFE_CANTENDACCESS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ /* End access to the aid if it's been accessed */ if (aid != 0) if (Hendaccess(aid)== FAIL) HERROR(DFE_CANTENDACCESS); } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hgetspecinfo */ /* ------------------------------- Hgetntinfo ------------------------------ */ /* NAME Hgetntinfo -- retrieves some information of a number type in text format USAGE intn Hgetntinfo(numbertype, nt_info) int32 numbertype; IN: HDF-supported number type hdf_ntinfo_t *nt_info; OUT: structure containing number type's info RETURNS FAIL if there is no match for the number type, otherwise, SUCCEED. DESCRIPTION Load the structure hdf_ntinfo_t with the number type's name and byte order in array of characters format. When the "default:" is reached, it means that a supported number type is missing from the switch statement or an unrecognized value is encountered. The type will be verified and added or appropriate error handling will be added. The structure hdf_ntinfo_t is defined in hdf.h. Design note: Passing the struct hdf_ntinfo_t into this function instead of individual strings will allow expandability without changing the function's prototype in the event of more information is desired. -BMR (Sep 2010) ---------------------------------------------------------------------------*/ intn Hgetntinfo(const int32 numbertype, hdf_ntinfo_t *nt_info) { /* Clear error stack */ HEclear(); /* Get byte order string */ if ((DFNT_LITEND & numbertype) > 0) { HDstrcpy(nt_info->byte_order, "littleEndian"); } else HDstrcpy(nt_info->byte_order, "bigEndian"); /* Get type name string; must mask native and little-endian to make sure we get standard type */ switch((numbertype & ~DFNT_NATIVE) & ~DFNT_LITEND) { case DFNT_UCHAR8: HDstrcpy(nt_info->type_name, "uchar8"); break; case DFNT_CHAR8: HDstrcpy(nt_info->type_name, "char8"); break; case DFNT_FLOAT32: HDstrcpy(nt_info->type_name, "float32"); break; case DFNT_FLOAT64: HDstrcpy(nt_info->type_name, "float64"); break; case DFNT_FLOAT128: HDstrcpy(nt_info->type_name, "float128"); break; case DFNT_INT8: HDstrcpy(nt_info->type_name, "int8"); break; case DFNT_UINT8: HDstrcpy(nt_info->type_name, "uint8"); break; case DFNT_INT16: HDstrcpy(nt_info->type_name, "int16"); break; case DFNT_UINT16: HDstrcpy(nt_info->type_name, "uint16"); break; case DFNT_INT32: HDstrcpy(nt_info->type_name, "int32"); break; case DFNT_UINT32: HDstrcpy(nt_info->type_name, "uint32"); break; case DFNT_INT64: HDstrcpy(nt_info->type_name, "int64"); break; case DFNT_UINT64: HDstrcpy(nt_info->type_name, "uint64"); break; case DFNT_INT128: HDstrcpy(nt_info->type_name, "int128"); break; case DFNT_UINT128: HDstrcpy(nt_info->type_name, "uint128"); break; case DFNT_CHAR16: HDstrcpy(nt_info->type_name, "char16"); break; case DFNT_UCHAR16: HDstrcpy(nt_info->type_name, "uchar16"); break; default: return FAIL; } /* end switch */ return SUCCEED; } /* Hgetntinfo */ #ifdef HAVE_FMPOOL /****************************************************************************** NAME Hmpset - set pagesize and maximum number of pages to cache on next open/create DESCRIPTION Set the pagesize and maximum number of pages to cache on the next open/create of a file. A pagesize that is a power of 2 is recommended. The values set here only affect the next open/creation of a file and do not change a particular file's paging behaviour after it has been opened or created. This maybe changed in a later release. Use flags arguement of 'MP_PAGEALL' if the whole file is to be cached in memory otherwise passs in zero. RETURNS Returns SUCCEED if successful and FAIL otherwise NOTE This calls the real routine MPset(). Currently 'maxcache' has to be greater than 1. Maybe use special case of 0 to specify you want to turn page buffering off or use the flags arguement. ******************************************************************************/ int Hmpset(int pagesize, /* IN: pagesize to use for next open/create */ int maxcache, /* IN: max number of pages to cache */ int flags /* IN: flags = 0, MP_PAGEALL */ ) { int ret_value = SUCCEED; /* call the real routine */ ret_value = MPset(pagesize,maxcache,flags); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /****************************************************************************** NAME Hmpget - get last pagesize and max number of pages cached for open/create DESCRIPTION This gets the last pagesize and maximum number of pages cached for the last open/create of a file. RETURNS Returns SUCCEED. NOTES This routine calls the real routine MPget(). ******************************************************************************/ int Hmpget(int *pagesize, /* OUT: pagesize to used in last open/create */ int *maxcache, /* OUT: max number of pages cached in last open/create */ int flags /* IN: */ ) { int psize = 0; int mcache = 0; int ret_value = SUCCEED; /* call the real routine */ ret_value = MPget(&psize,&mcache,flags); *pagesize = psize; *maxcache = mcache; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* Hmpget() */ #endif /* HAVE_FMPOOL */ libhdf4-4.2.10/HDF_ALT/hdf/src/mfan.h0000644000000000000000000003447212421456623013542 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: mfan.h 5454 2010-08-27 17:24:55Z bmribler $ */ /*------------------------------------------------------------------------------ * File: mfan.h * Author: GeorgeV * Purpose: header file for the Multi-file Annotation Interface * Invokes: * Contents: * Structure definitions: ANnode, ANentry * Constant definitions: AN_DATA_LABEL, AN_DATA_DESC * (-moved to hdf.h) AN_FILE_LABEL, AN_FILE_DESC * *----------------------------------------------------------------------------*/ #ifndef _MFAN_H /* avoid re-inclusion */ #define _MFAN_H #include "H4api_adpt.h" #include "hdf.h" #if 0 /* enumerated types of the varous annotation types * NOTE: moved to hdf.h since they are used by end users. */ typedef enum { AN_DATA_LABEL = 0, /* Data label */ AN_DATA_DESC, /* Data description */ AN_FILE_LABEL, /* File label */ AN_FILE_DESC /* File description */ } ann_type; #endif #if defined MFAN_MASTER | defined MFAN_TESTER /* WE ARE IN MAIN ANNOTATION SOURCE FILE "mfan.c" */ /* PRIVATE variables and definitions */ /* This sturcture is used to find which file the annotation belongs to * and use the subsequent file specific annotation 'key' to find the * annotation. The annotation atom group(ANIDGROUP) keeps track of * all anotations across the file. */ typedef struct ANnode { int32 file_id; /* which file this annotation belongs to */ int32 ann_key; /* type/ref: used to find annotation in corresponding TBBT in filerec_t->tree[]. */ intn new_ann; /* flag */ } ANnode; /* * This structure is an entry in the label/desc tree * for a label/desc in the file, it gives the ref of the label/desc, * and the tag/ref of the data item to which the label/desc relates * The filerec_t->an_tree[] TBBT members will contain these entries. **/ typedef struct ANentry { int32 ann_id; /* annotation id */ uint16 annref; /* ref of annotation */ uint16 elmtag; /* tag of data */ uint16 elmref; /* ref of data */ } ANentry; /* This is the size of the hash tables used for annotation IDs */ #define ANATOM_HASH_SIZE 64 /* Used to create unique 32bit keys from annotation type and reference number * This key is used to add nodes to a corresponding TBBT in * filrerec_t->an_tree[]. * ---------------------------- * | type(16bits) | ref(16bits) | * -----------------------------*/ #define AN_CREATE_KEY(t,r) ((((int32)t & 0xffff) << 16) | r) /* Obtain Reference number from key */ #define AN_KEY2REF(k) ((uint16)((int32)k & 0xffff)) /* Obtain Annotation type from key */ #define AN_KEY2TYPE(k) ((int32)((int32)k >> 16)) #else /* !defined MFAN_MASTER && !defined MFAN_TESTER */ /* WE are NOT in main ANNOTATION source file * Nothing EXPORTED except Public fcns */ /****************************************************************************** NAME ANstart - open file for annotation handling DESCRIPTION Start annotation handling on the file return a annotation ID to the file. RETURNS A file ID or FAIL. *******************************************************************************/ HDFLIBAPI int32 ANstart(int32 file_id /* IN: file to start annotation access on */); /****************************************************************************** NAME ANfileinfo - Report high-level information about the ANxxx interface for a given file. DESCRIPTION Reports general information about the number of file and object(i.e. data) annotations in the file. This routine is generally used to find the range of acceptable indices for ANselect calls. RETURNS Returns SUCCEED if successful and FAIL othewise *******************************************************************************/ HDFLIBAPI intn ANfileinfo(int32 an_id, /* IN: annotation interface id */ int32 *n_file_label, /* OUT: the # of file labels */ int32 *n_file_desc, /* OUT: the # of file descriptions */ int32 *n_obj_label, /* OUT: the # of object labels */ int32 *n_obj_desc /* OUT: the # of object descriptions */); /****************************************************************************** NAME ANend - End annotation access to file file DESCRIPTION End annotation access to file. RETURNS SUCCEED if successful and FAIL otherwise. *******************************************************************************/ HDFLIBAPI int32 ANend(int32 an_id /* IN: Annotation ID of file to close */); /****************************************************************************** NAME ANcreate - create a new element annotation and return a handle(id) DESCRIPTION Creates a data annotation, returns an 'an_id' to work with the new annotation which can either be a label or description. Valid annotation types are AN_DATA_LABEL for data labels and AN_DATA_DESC for data descriptions. RETURNS An ID to an annotation which can either be a label or description. *******************************************************************************/ HDFLIBAPI int32 ANcreate(int32 an_id, /* IN: annotation interface ID */ uint16 elem_tag, /* IN: tag of item to be assigned annotation */ uint16 elem_ref, /* IN: reference number of itme to be assigned ann*/ ann_type type /* IN: annotation type */); /****************************************************************************** NAME ANcreatef - create a new file annotation and return a handle(id) DESCRIPTION Creates a file annotation, returns an 'an_id' to work with the new file annotation which can either be a label or description. Valid annotation types are AN_FILE_LABEL for file labels and AN_FILE_DESC for file descritpions. RETURNS An ID to an annotation which can either be a file label or description *******************************************************************************/ HDFLIBAPI int32 ANcreatef(int32 an_id, /* IN: annotation interface ID */ ann_type type /* IN: annotation type */); /****************************************************************************** NAME ANselect - get an annotation ID from index of 'type' DESCRIPTION Get an annotation Id from index of 'type'. The position index is ZERO based RETURNS An ID to an annotation type which can either be a label or description *******************************************************************************/ HDFLIBAPI int32 ANselect(int32 an_id, /* IN: annotation interface ID */ int32 index, /* IN: index of annottion to get ID for */ ann_type type /* IN: annotation type */); /****************************************************************************** NAME ANnumann - find number of annotation of 'type' that match the given element tag/ref DESCRIPTION Find number of annotation of 'type' for the given element tag/ref pair.Should not be used for File labels and descriptions. RETURNS number of annotation found if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI intn ANnumann(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: annotation type */ uint16 elem_tag, /* IN: tag of item of which this is annotation */ uint16 elem_ref /* IN: ref of item of which this is annotation*/); /****************************************************************************** NAME ANannlist - generate list of annotation ids of 'type' that match the given element tag/ref DESCRIPTION Find and generate list of annotation ids of 'type' for the given element tag/ref pair.Should not be used for File labels and descriptions. RETURNS number of annotations ids found if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI intn ANannlist(int32 an_id, /* IN: annotation interface id */ ann_type type, /* IN: annotation type */ uint16 elem_tag, /* IN: tag of item of which this is annotation */ uint16 elem_ref, /* IN: ref of item of which this is annotation*/ int32 ann_list[] /* OUT: array of ann_id's that match criteria.*/); /****************************************************************************** NAME ANannlen - get length of annotation givne annotation id DESCRIPTION Uses the annotation id to find ann_key & file_id RETURNS length of annotation if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI int32 ANannlen(int32 ann_id /* IN: annotation id */); /****************************************************************************** NAME ANwriteann - write annotation given ann_id DESCRIPTION Checks for pre-existence of given annotation, replacing old one if it exists. Writes out annotation. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI int32 ANwriteann(int32 ann_id, /* IN: annotation id */ const char *ann, /* IN: annotation to write */ int32 annlen /* IN: length of annotation*/); /****************************************************************************** NAME ANreadann - read annotation given ann_id DESCRIPTION Gets tag and ref of annotation. Finds DD for that annotation. Reads the annotation, taking care of NULL terminator, if necessary. RETURNS SUCCEED (0) if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI int32 ANreadann(int32 ann_id, /* IN: annotation id (handle) */ char *ann, /* OUT: space to return annotation in */ int32 maxlen /* IN: size of space to return annotation in */); /****************************************************************************** NAME ANendaccess - end access to an annotation given it's id DESCRIPTION Terminates access to an annotation. For now does nothing RETURNS SUCCEED(0) or FAIL(-1) *******************************************************************************/ HDFLIBAPI intn ANendaccess(int32 ann_id /* IN: annotation id */); /****************************************************************************** NAME ANget_tagref - get tag/ref pair for annotation based on type and index DESCRIPTION Get the tag/ref of the annotation based on the type and index of the annotation. The position index is zero based RETURNS A tag/ref pairt to an annotation type which can either be a label or description. *******************************************************************************/ HDFLIBAPI int32 ANget_tagref(int32 an_id, /* IN: annotation interface ID */ int32 index, /* IN: index of annotation to get tag/ref for*/ ann_type type, /* IN: annotation type */ uint16 *ann_tag,/* OUT: Tag for annotation */ uint16 *ann_ref /* OUT: ref for annotation */); /****************************************************************************** NAME ANid2tagref -- get tag/ref given annotation id DESCRIPTION Uses the annotation id to find ann_node entry which contains ann_ref RETURNS SUCCEED(0) if successful and FAIL (-1) otherwise. *******************************************************************************/ HDFLIBAPI int32 ANid2tagref(int32 ann_id, /* IN: annotation id */ uint16 *ann_tag, /* OUT: Tag for annotation */ uint16 *ann_ref /* OUT: ref for annotation */); /****************************************************************************** NAME ANtagref2id -- get annotation id given tag/ref DESCRIPTION Gets the annotation id of the annotation given the tag/ref of the annotation itself and the annotation interface id. RETURNS Annotation id of annotation if successful and FAIL(-1) otherwise. *******************************************************************************/ HDFLIBAPI int32 ANtagref2id(int32 an_id, /* IN Annotation interface id */ uint16 ann_tag, /* IN: Tag for annotation */ uint16 ann_ref /* IN: ref for annotation */); /****************************************************************************** NAME ANatype2tag - annotation type to corresponding annotation TAG DESCRIPTION Translate annotation type to corresponding TAG. RETURNS Returns TAG corresponding to annotatin type. *******************************************************************************/ HDFLIBAPI uint16 ANatype2tag(ann_type atype /* IN: Annotation type */); /****************************************************************************** NAME ANtag2atype - annotation TAG to corresponding annotation type DESCRIPTION Translate annotation TAG to corresponding atype RETURNS Returns type corresponding to annotatin TAG. *******************************************************************************/ HDFLIBAPI ann_type ANtag2atype(uint16 atag /* IN: annotation tag */); #endif /* !defined MFAN_MASTER && !MFAN_TESTER */ #endif /* _MFAN_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfgr.h0000644000000000000000000000652212421456623013536 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfgr.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfgr.h * Purpose: header file for the Raster Image set * Invokes: df.h * Contents: * Structure definitions: DFGRdr, DFGRrig * Remarks: This is included with user programs which use general raster *---------------------------------------------------------------------------*/ #ifndef DFGR_H /* avoid re-inclusion */ #define DFGR_H /* description record: used to describe image data, palette data etc. */ typedef struct { intn ncomponents; /* number of components */ intn interlace; /* data ordering: chunky / planar etc */ int32 xdim; /* X- dimension of data */ int32 ydim; /* Y- dimensionsof data */ DFdi nt; /* number type of data */ DFdi compr; /* compression */ /* ### Note: compression is currently uniquely described with a tag. No data is attached to this tag/ref. But this capability is provided for future expansion, when this tag/ref might point to some data needed for decompression, such as the actual encodings */ } DFGRdr; /* structure to hold RIG info */ typedef struct { char *cf; /* color format */ int32 xpos; /* X position of image on screen */ int32 ypos; /* Y position of image on screen */ float32 aspectratio; /* ratio of pixel height to width */ float32 ccngamma; /* gamma color correction parameter */ float32 ccnred[3]; /* red color correction parameter */ float32 ccngrren[3]; /* green color correction parameter */ float32 ccnblue[3]; /* blue color correction parameter */ float32 ccnwhite[3]; /* white color correction parameter */ DFdi data[3]; /* image/lut/mattechannel */ DFGRdr datadesc[3]; /* description of image/lut/mattechannel */ } DFGRrig; #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* Library-developer functions */ extern int32 DFGRIopen (const char *filename, int acc_mode); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* DFGR_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/cszip.h0000644000000000000000000001016612421456623013743 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cszip.h 6066 2014-02-03 16:30:04Z derobins $ */ /*----------------------------------------------------------------------------- * File: cszip.h * Purpose: Header file for szip encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for szip encoding. This header * should only be included in hcomp.c and cszip.c. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CSZIP_H #define __CSZIP_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* Special parameters for szip compression */ /* [These are aliases for the similar definitions in ricehdf.h header file] */ #define H4_SZ_ALLOW_K13_OPTION_MASK 1 #define H4_SZ_CHIP_OPTION_MASK 2 #define H4_SZ_EC_OPTION_MASK 4 #define H4_SZ_LSB_OPTION_MASK 8 #define H4_SZ_MSB_OPTION_MASK 16 #define H4_SZ_NN_OPTION_MASK 32 #define H4_SZ_RAW_OPTION_MASK 128 /* ** from cszip.c */ extern int32 HCPcszip_stread (accrec_t * rec); extern int32 HCPcszip_stwrite (accrec_t * rec); extern int32 HCPcszip_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcszip_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcszip_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcszip_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcszip_endaccess (accrec_t * access_rec); extern intn HCPsetup_szip_parms ( comp_info *c_info, int32 nt, int32 ncomp, int32 ndims, int32 *dims, int32 *cdims); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* SZIP [en|de]coding information */ typedef struct { int32 offset; /* offset in the file */ uint8 *buffer; /* buffer for storing SZIP bytes */ int32 buffer_pos; int32 buffer_size; int32 bits_per_pixel; int32 options_mask; int32 pixels; int32 pixels_per_block; int32 pixels_per_scanline; enum { SZIP_INIT, SZIP_RUN, SZIP_TERM } szip_state; /* state of the buffer storage */ enum { SZIP_CLEAN, SZIP_DIRTY } szip_dirty; } comp_coder_szip_info_t; #define SZ_H4_REV_2 0x10000 /* special bit to signal revised format */ #ifndef CSZIP_MASTER extern funclist_t cszip_funcs; /* functions to perform szip encoding */ #else funclist_t cszip_funcs = { /* functions to perform szip encoding */ HCPcszip_stread, HCPcszip_stwrite, HCPcszip_seek, HCPcszip_inquire, HCPcszip_read, HCPcszip_write, HCPcszip_endaccess }; #endif #endif /* __CSZIP_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/h4config.h.in0000644000000000000000000000723512421456623014724 0ustar /* hdf/src/h4config.h.in. Generated from configure.ac by autoheader. */ /* Define if building universal (internal helper macro) */ #undef AC_APPLE_UNIVERSAL_BUILD /* Define to dummy `main' function (if any) required to link to the Fortran libraries. */ #undef F77_DUMMY_MAIN /* Define to a macro mangling the given C identifier (in lower and upper case), which must not contain underscores, for linking with Fortran. */ #undef F77_FUNC /* As F77_FUNC, but for C identifiers containing underscores. */ #undef F77_FUNC_ /* Define to 1 if your Fortran compiler doesn't accept -c and -o together. */ #undef F77_NO_MINUS_C_MINUS_O /* Define if F77 and FC dummy `main' functions are identical. */ #undef FC_DUMMY_MAIN_EQ_F77 /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you have the `fork' function. */ #undef HAVE_FORK /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_JPEGLIB_H /* Define to 1 if you have the `jpeg' library (-ljpeg). */ #undef HAVE_LIBJPEG /* Define to 1 if you have the `sz' library (-lsz). */ #undef HAVE_LIBSZ /* Define to 1 if you have the `z' library (-lz). */ #undef HAVE_LIBZ /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define if we support HDF NetCDF APIs version 2.3.2 */ #undef HAVE_NETCDF /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the `system' function. */ #undef HAVE_SYSTEM /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define if szip has encoder */ #undef HAVE_SZIP_ENCODER /* Define to 1 if you have the header file. */ #undef HAVE_SZLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if you have the `vfork' function. */ #undef HAVE_VFORK /* Define to 1 if you have the `wait' function. */ #undef HAVE_WAIT /* Define to 1 if you have the header file. */ #undef HAVE_ZLIB_H /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Define if deprecated public API symbols are disabled */ #undef NO_DEPRECATED_SYMBOLS /* Define to 1 if your C compiler doesn't accept -c and -o together. */ #undef NO_MINUS_C_MINUS_O /* 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 /* The size of `int*', as computed by sizeof. */ #undef SIZEOF_INTP /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* 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 libhdf4-4.2.10/HDF_ALT/hdf/src/vattrff.f0000644000000000000000000001124412421456623014263 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C*************************************************** C C $Id: vattrff.f 4932 2007-09-07 17:17:23Z bmribler $ C C ************************************************** C * C * vattrff.f C * Vset attribute Fortran routines C * C ************************************************* C --------------- vsffidx ------------------------ C vsffidx -- find index of a named field in a vdata C VSfindex -- vsfcfdx -- vsffidx C integer function vsffidx(vsid, fldnm, fldidx) integer vsid character*(*) fldnm integer fldidx integer vsfcfdx vsffidx = vsfcfdx(vsid, fldnm, fldidx, + len(fldnm)) end C --------------- vsfsnat ------------------------- C vsfsnat -- set a numeric attribute for a vdata C or a field of a vdata C VSsetattr -- vsfcsat -- vsfsnat C integer function vsfsnat(vsid, findex,attrnm,dtype, + count, values) integer vsid, findex, dtype, count character*(*) attrnm integer values integer vsfcsat vsfsnat = vsfcsat(vsid, findex, attrnm, dtype, + count, values, len(attrnm)) end C --------------- vsfscat ------------------------- C vsfscat -- set a char type attribute for a vdata C or a field of a vdata C VSsetattr -- vsfcsca -- vsfscat C integer function vsfscat(vsid, findex,attrnm,dtype, + count, values) integer vsid, findex, dtype, count character*(*) attrnm character*(*) values integer vsfcsca vsfscat = vsfcsca(vsid, findex, attrnm, dtype, + count, values, len(attrnm)) end C --------------- vsffdat ------------------------- C vsffdat -- find attribute of a vdata of a field C of the vdata C VSfindattr -- vsfcfda -- vsffdat C integer function vsffdat(vsid, findex, attrnm) integer vsid, findex character*(*) attrnm integer vsfcfda vsffdat = vsfcfda(vsid, findex, attrnm, + len(attrnm)) end C ------------------- vsfainf ------------------------- C vsfainf -- get attribute info C VSattrinfo -- vsfcain -- vsfainf C integer function vsfainf(vsid, findex, aindex, attrname, + dtype, count, size) integer vsid, findex, aindex, dtype, count, size character*(*) attrname integer vsfcain vsfainf = vsfcain(vsid, findex, aindex, attrname, + dtype, count, size, len(attrname)) end C ------------------- vfsnatt ------------------------- C vfsnatt -- set a numeric attr for a vgroup C Vsetattr -- vfcsatt -- vfsnatt C integer function vfsnatt(vgid, attrnm, dtype, + count, values) integer vgid, dtype, count, values character*(*) attrnm integer vfcsatt vfsnatt = vfcsatt(vgid, attrnm, dtype,count, + values, len(attrnm)) end C -------------- vfscatt ------------------------- C vfscatt -- set a char attr for a vgroup C Vsetattr -- vfcscat -- vfscatt C integer function vfscatt(vgid, attrnm, dtype, + count, values) integer vgid, dtype, count character*(*) attrnm, values integer vfcscat vfscatt = vfcscat(vgid, attrnm, dtype,count, + values, len(attrnm)) end C --------------- vffdatt --------------------- C vffdatt -- find an attribute of a vgroup C Vfindattr -- vfcfdat -- vffdatt C integer function vffdatt(vg, attrnm) integer vg character*(*) attrnm integer vfcfdat vffdatt = vfcfdat(vg, attrnm, len(attrnm)) end C -------------------------------------------- libhdf4-4.2.10/HDF_ALT/hdf/src/dfsd.c0000644000000000000000000056472212421456623013542 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6032 $"; #endif /* $Id: dfsd.c 6032 2014-01-17 18:13:52Z acheng $ */ /*----------------------------------------------------------------------------- File: dfsd.c Purpose: Routines for input and output of numeric data group Invokes: df.c dfgroup.c dfkit.c dfi.h df.h dfsd.h Public functions: DFSDgetdims - get rank and dim sizes DFSDgetdatastrs - get label, unit, format and coord system of data DFSDgetdimstrs - get label, unit and format for a dimension DFSDgetdatalen - DFSDgetdimlen - DFSDgetdimscale - get scale for a dimension DFSDgetrange - get max and min of data DFSDgetdata - get data values DFSDgetNT - get file number type for reading DFSDpre32sdg - tests, without calling DFSDsdginfo, whether or not the SDG/ref written with 3.1 DFSDsetlengths - set lengths of label, unit, format strings on gets DFSDsetdims - set rank and dim sizes DFSDsetdatastrs - set data label, unit, format and coord system DFSDsetdimstrs - set dim labels, units and formats DFSDsetdimscale - set scale for a dimension DFSDsetrange - set max and min of data DFSDsetorder - set array order to C or FORTRAN order DFSDsetNT - set number type to be written out DFSDputdata - output data, data info, and display info DFSDrestart - forget info about last file accessed - restart from beginning DFSDndatasets - return number of SDGs in file DFSDclear - forget all info set by DFSDset* routines DFSDlastref - get reference number of last SDG read or written DFSDgetslice - get part of the data, specified as a slice DFSDstartslice - set up to write SD DFSDputslice - write specified number of data items to file DFSDendslice - end of series of writes, write out SDG DFSDwriteref - set reference number to be used in next SDS write slab DFSDsetfillvalue - set fill value to be used in next SDS written DFSDgetfillvalue - return fill value from SDS that is about to be read DFSDstartslab - set up to write slabs DFSDwriteslab - write hyperslab of values DFSDendslab - end of series of hyperslab writes DFSDreadslab - get part of the data, specified as a slab Lower level functions: DFSDgetsdg - read SDG into struct DFSDputsdg - write SDG to file Private functions: DFSDIopen - open or reopen file DFSDIsdginfo - find next sdg in file DFSDIisndg - was currently read sdg written by HDF3.2 DFSDIrefresh - get info of next sdg if necessary DFSDIgetrrank - get rank of the currently read sdg DFSDIgetwrank - get rank of the sdg to be written DFSDIclear - clear sdg data structure of all info DFSDIgetdata - read data from file DFSDIputdata - write data to file DFSDIgetslice - get slice DFSDIputslice - put slice DFSDIendslice - DFSDIsetnsdg_t - set up nsdg table DFSDInextnsdg - get next nsdg from nsdg table DFSDIgetndg - read NDG into struct DFSDIputndg - write NDG to file Fortran stub functions: dsisdas - set data label, unit, format and coord system dsisdis - set dim labels, units and formats Remarks: These functions will be copied into dfsd.c after debugging. This version assumes that all the values are floating point. *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfsd.h" /* MMM: make this definition correct and move to hfile.h, or wherever. */ #define DF_NOFILE 0 #define LABEL 0 #define UNIT 1 #define FORMAT 2 #define COORDSYS 3 #define NFGSDG_TYPE_SDG 0 /* a pure SDG */ #define NFGSDG_TYPE_NFG 1 /* a pure NDG */ #define NFGSDG_TYPE_SDGNDG 2 /* an SDG in NDG */ /* Init NSDG table header */ PRIVATE DFnsdg_t_hdr *nsdghdr = NULL; /* initialize aid to -1 and numbertype to DFNT_NONE. S. Xu */ PRIVATE DFSsdg Readsdg = /* struct for reading */ { {(uint16) 0, (uint16) 0}, (intn) 0, NULL, NULL, {NULL, NULL, NULL}, {NULL, NULL, NULL}, NULL, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, (int32) DFNT_NONE, DFNTF_NONE, (int32) -1, (int32) 0, (int32) 0, (float64) 1.0, (float64) 0.0, (float64) 0.0, (float64) 0.0, (int32) -1, {0}, 0 }; PRIVATE DFSsdg Writesdg = /* struct for writing */ { {(uint16) 0, (uint16) 0}, (intn) 0, NULL, NULL, {NULL, NULL, NULL}, {NULL, NULL, NULL}, NULL, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, (int32) DFNT_NONE, DFNTF_NONE, (int32) -1, (int32) 0, (int32) 0, (float64) 1.0, (float64) 0.0, (float64) 0.0, (float64) 0.0, (int32) -1, {0}, 0 }; PRIVATE uint16 Writeref = 0; /* ref of next SDG/NDG to write to file */ PRIVATE intn Newdata = (-1); /* Values in Readsdg fresh? */ /* -1 : no descriptor read */ /* 1 : descriptor read */ PRIVATE intn Nextsdg = 1; /* Signal if DFSDgetdata should get the */ /* next SDG/NDG */ PRIVATE int32 Sfile_id = DF_NOFILE; /* pointer to file for slice writes */ PRIVATE int32 *Sddims; /*dims written so far in slice write */ PRIVATE struct { /* Indicators of status (s) of info: */ intn dims; /* s = -1: there is no info in this category */ intn nt; /* s = 0: info was set, but not yet written */ intn coordsys; /* s > 0: info was set and written with ref no.s */ intn luf[3]; intn scales; intn maxmin; intn transpose; /* It should be taken out!!! !!! */ intn cal; intn fill_value; intn new_ndg; } Ref = { -1, -1, -1, { -1, -1, -1 } ,-1, -1, -1, -1, -1, -1 }; PRIVATE intn Maxstrlen[4] = {DFS_MAXLEN, DFS_MAXLEN, DFS_MAXLEN, DFS_MAXLEN}; PRIVATE intn Ismaxmin = 0; /* is there a max/min value on read? */ PRIVATE intn FileTranspose = 0; /* is the data in column major order? */ PRIVATE intn Fortorder = 0; /* should data be written col major? */ PRIVATE intn IsCal = 0; /* has calibration info been set? */ /* In ver. 3.2 numbertype and file number format (subclass) are included */ /* in DFSsdg, and fileNTsize is local to functions . */ /* static int fileNT=DFNTF_IEEE, default: all IEEE */ /* fileNTsize=4, */ /* outNT=DFNTF_IEEE, default output: IEEE */ /* outNTsize=4, */ /* userNT=DFNTF_IEEE ; default */ PRIVATE uint16 Readref = 0; /* ref of next SDG/NDG to be read? */ #if 0 PRIVATE char Lastfile[DF_MAXFNLEN] = ""; /* last file opened */ #endif PRIVATE char *Lastfile = NULL; PRIVATE uint16 Lastref = 0; /* Last ref to be read/written? */ PRIVATE DFdi lastnsdg; /* last read nsdg in nsdg_t */ /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* Private buffer */ PRIVATE uint8 *ptbuf = NULL; /* Prototypes */ static intn DFSDIsetnsdg_t(int32 file_id, DFnsdg_t_hdr * l_nsdghdr); static intn DFSDInextnsdg(DFnsdg_t_hdr * l_nsdghdr, DFdi * nsdg); static intn DFSDIgetndg(int32 file_id, uint16 tag, uint16 ref, DFSsdg * sdg); static intn DFSDIputndg(int32 file_id, uint16 ref, DFSsdg * sdg); static intn DFSDIstart(void); /*-------------------------------------------------------------------------- NAME DFSDgetdims USAGE int DFSDgetdims(filename, prank, sizes, maxrank) char *filename; IN: Name of file with scientific data set int prank; OUT: Number of dimensions int32 sizes: OUT: array for holding dimensions of data set in file. int maxrank: IN: size of array "dimsizes" RETURNS Returns SUCCED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the number of dimensions(rank) and the sizes of the dimensions (dimsizes) for the next data set in the file. The input argument "maxrank" tells the size of the array that is allocated for storing the "dimsizses" array. The value of rank cannot exceed the value of "maxrank". The allocation of space for reading in the scientific data set should correspond to the values read in by "DFSDgetdims". The first value in the array "dimsizes" should equal the first dimension of the array that is allocated to hold the data set; the second value in "dimsizes" should equal the second dimension of the data set, and so forth. "DFSDgetdims" opens and closes the file. --------------------------------------------------------------------------*/ intn DFSDgetdims(const char *filename, intn *prank, int32 sizes[], intn maxrank) { intn i; int32 file_id; CONSTR(FUNC, "DFSDgetdims"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!prank) /* check if ptr is valid */ HGOTO_ERROR(DFE_BADPTR, FAIL); file_id = DFSDIopen(filename, DFACC_READ); /* open/reopen file */ if (file_id == FAIL) { ret_value = FAIL; goto done; } if (DFSDIsdginfo(file_id) < 0) { /* reads next SDG from file */ Hclose(file_id); ret_value = FAIL; /* on error, close file and return */ goto done; } *prank = Readsdg.rank; /* copy rank, dimensions */ if (maxrank < *prank) /* if not all dimensions copied */ HGOTO_ERROR(DFE_NOTENOUGH, FAIL); for (i = 0; i < *prank; i++) /* copy dimensions */ sizes[i] = Readsdg.dimsizes[i]; Nextsdg = 0; ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetdatastrs USAGE int DFSDgetdatastrs(label, unit, format, coordsys) char *label; OUT: label string that describes the data char *unit; OUT: unit string that describes the unit used char *format; OUT: format string that describes the format for displaying the data char *coordsys; OUT: string describing coordinate system RETURN Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Retrieves information about the data from its associated attribute strings. Particularly, it reads the label, unit and format strings for the data. The parameter "coordsys" gives the coordinate system that is to be used for interpreting the dimension information. ----------------------------------------------------------------------------*/ intn DFSDgetdatastrs(char *label, char *unit, char *format, char *coordsys) { int32 luf; char *lufp; CONSTR(FUNC, "DFSDgetdatastrs"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); /* NOTE: Once DFSDsetdatastrs is changed to always write all three (label, unit and format) whenever it is called, this routine should be changed so that it returns all three, if any exist. This means that it also should be changed to return -1 if none exist. (Currently it returns FAIL only if the SDS doesn't exist.) */ /* copy label, unit, format */ for (luf = LABEL; luf <= FORMAT; luf++) { lufp = (luf == LABEL) ? label : (luf == UNIT) ? unit : format; if (lufp) { if (Readsdg.dataluf[luf]) HIstrncpy(lufp, Readsdg.dataluf[luf], Maxstrlen[luf]); } } /* end for 'luf' */ /* copy coordsys */ if (coordsys) { if (Readsdg.coordsys) HIstrncpy(coordsys, Readsdg.coordsys, Maxstrlen[COORDSYS]); else coordsys[0] = '\0'; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------- NAME DFSDgetdimstrs USAGE int DFSDgetdimstrs(dim, label, unit, format) int dim; OUT: Dimension this label, unit and format refer to char *label; OUT: Label that describes this dimension char *unit; OUT: Unit to be used with this dimension char *format; OUT: Format to be used in displaying scale for this dimension RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the labe, unit and format strings corresponding to the specified dimension. The space allocated for the label, unit and format string must be at least 1 byte larger than the length of the string. If the length is unknown when the program is written, declare the array size as 1+maxlen_label, _unit or _format after they are set by "DFSDsetlengths". The maximum default string length is 255. ----------------------------------------------------------------------------*/ intn DFSDgetdimstrs(int dim, char *label, char *unit, char *format) { intn luf; intn rdim; char *lufp; CONSTR(FUNC, "DFSDgetdimstrs"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); /* NOTE: Once DFSDsetdimstrs is changed to always write all three (label, unit and format) whenever it is called, this routine should be changed so that it returns all three, if any exist. This means that it also should be changed to return -1 if none exist. (Currently it returns FAIL only if the SDS doesn't exist.) */ rdim = dim - 1; /* translate dim to zero origin */ if ((rdim >= Readsdg.rank) || (rdim < 0)) HGOTO_ERROR(DFE_BADDIM, FAIL); /* copy labels etc */ for (luf = LABEL; luf <= FORMAT; luf++) { lufp = (luf == LABEL) ? label : (luf == UNIT) ? unit : format; if (lufp) { if (!Readsdg.dimluf) { /* no labels etc */ *lufp = '\0'; continue; } if (Readsdg.dimluf[luf]) HIstrncpy(lufp, Readsdg.dimluf[luf][rdim], Maxstrlen[luf]); } /* end if 'lufp' */ } /* end for 'luf' */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetdatalen USAGE int DFSDgetdatalen(llabel, lunit, lformat, lcoordsys) int *llabel; OUT: length of label string int *lunit; OUT: length of unit string int *lformat; OUT: length of format string int *lcoordsys; OUT: length of coordsys string RETURN Returns SUCCED(0) if succesful and FAIL(-1) otherwise DESCRIPTION Gets actual length of label, unit, format and coordinate system strings. The space allocated for the label, unit, format and coordinate system strings must be at least 1 byte larger than the actual length of the string. ----------------------------------------------------------------------------*/ intn DFSDgetdatalen(intn *llabel, intn *lunit, intn *lformat, intn *lcoordsys) { CONSTR(FUNC, "DFSDgetdatalen"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); *llabel = (intn)(Readsdg.dataluf[LABEL] ? HDstrlen(Readsdg.dataluf[LABEL]) : 0); *lunit = (intn)(Readsdg.dataluf[UNIT] ? HDstrlen(Readsdg.dataluf[UNIT]) : 0); *lformat = (intn)(Readsdg.dataluf[FORMAT] ? HDstrlen(Readsdg.dataluf[FORMAT]) : 0); *lcoordsys = (intn)(Readsdg.coordsys ? HDstrlen(Readsdg.coordsys) : 0); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetdimlen USAGE int DFSDgetdimlen(dim, llabel, lunit, lformat) int dim; OUT: number of dimensions to get info about int *llabel; OUT: length of label string int *lunit; OUT: length of unit string int *lformat; OUT: length of format string RETURN Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Get the length of label, unit, and format for the specified dimension. The space allocated to hold the label, unit, and format strings must be at least 1 byte larger than the actual length of the string. ----------------------------------------------------------------------------*/ intn DFSDgetdimlen(intn dim, intn *llabel, intn *lunit, intn *lformat) { CONSTR(FUNC, "DFSDgetdimlen"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); if (dim > Readsdg.rank) HGOTO_ERROR(DFE_BADDIM, FAIL); *llabel = (intn)(Readsdg.dimluf[LABEL][dim - 1] ? HDstrlen(Readsdg.dimluf[LABEL][dim - 1]) : 0); *lunit = (intn)(Readsdg.dimluf[UNIT][dim - 1] ? HDstrlen(Readsdg.dimluf[UNIT][dim - 1]) : 0); *lformat = (intn)(Readsdg.dimluf[FORMAT][dim - 1] ? HDstrlen(Readsdg.dimluf[FORMAT][dim - 1]) : 0); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------- NAME DFSDgetdimscale USAGE int DFSDgetdimscale(dim, maxsize, scale) int dim; IN: Dimension this scale corresponds to int32 size; IN: size of scale VOIDP scale; OUT: the scale RETURN Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the scale corresponding to the specified demension. The DFSD interface in HDFv3.3 requires that the dimension scales are of the same number type as the corresponding data. To store dimension scales of a different number type than the corresponding data see the multi-file SD interface. ---------------------------------------------------------------------------*/ intn DFSDgetdimscale(intn dim, int32 maxsize, VOIDP scale) { uint32 dimsize; int32 numtype; int32 localNTsize; intn rdim; uint8 *p1, *p2; CONSTR(FUNC, "DFSDgetdimscale"); intn ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); rdim = dim - 1; /* translate dim to zero origin */ if ((rdim >= Readsdg.rank) || (rdim < 0)) HGOTO_ERROR(DFE_BADDIM, FAIL); if (maxsize < Readsdg.dimsizes[rdim]) HGOTO_ERROR(DFE_NOSPACE, FAIL); if (!scale) HGOTO_ERROR(DFE_BADPTR, FAIL); if (!Readsdg.dimscales || !Readsdg.dimscales[rdim]) /* no scale */ HGOTO_ERROR(DFE_NOVALS, FAIL); /* get number type and copy data from Readsdg to scale */ if (Readsdg.numbertype == DFNT_NONE) Readsdg.numbertype = DFNT_FLOAT32; numtype = Readsdg.numbertype; localNTsize = DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); dimsize = (uint32)localNTsize * (uint32)Readsdg.dimsizes[rdim]; /* in bytes */ p1 = (uint8 *) scale; p2 = (uint8 *) (Readsdg.dimscales[rdim]); HDmemcpy(p1, p2, dimsize); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetrange USAGE int DFSDgetrange(max, min) VOIDP max; OUT: High value stored with the scientific data set VOIDP min; OUT: Low value stored with the scientific data set RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the maximum and minimum values stored with the scientific data set. The "max" and "min" values are set by "DFSDsetrange". They are not automatically stored when a data set is written to a file. Since these values are supposed to relate to the data itself, it is assumed that they are of the same number type as the data itself. One implication of this is that in the C version of "DFSDgetrange" the arguments are pointers, rather than simple variables, whereas in the FORTRAN version they are simple variables of the same type as the data array. Neither "DFSDgetrange" or "DFSDgetdata" compare the "max" and "min" values stored with the data set to the actual values in the data set; they merely retrieve the data. As a result, the maximum and minimum values may not always reflect the actual maximum and minimum vlaues in the data set. In some cases the "max" and "min" values may actually lie outside the range of values in the data set. ---------------------------------------------------------------------------*/ int DFSDgetrange(VOIDP pmax, VOIDP pmin) { int32 numtype; uint32 localNTsize; uint8 *p1, *p2; CONSTR(FUNC, "DFSDgetrange"); int ret_value = SUCCEED; HEclear(); /* Clear error stack */ /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); /* get number type and copy data */ if (Readsdg.numbertype == DFNT_NONE) Readsdg.numbertype = DFNT_FLOAT32; numtype = Readsdg.numbertype; localNTsize = (uint32)DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); if (Ismaxmin) /* Ismaxmin is a global */ { p1 = (uint8 *) pmax; p2 = (uint8 *) &(Readsdg.max_min[0]); HDmemcpy(p1, p2, localNTsize); p1 = (uint8 *) pmin; p2 = &(Readsdg.max_min[localNTsize]); HDmemcpy(p1, p2, localNTsize); ret_value = SUCCEED; goto done; } else HGOTO_ERROR(DFE_NOVALS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetdata USAGE intn DFSDgetdata(filename, rank, maxsizes, data) char filename; IN: name of HDF file containing scientific data set intn rank; IN: number of dimensions of array "data" int32 maxsizes; IN: Array that holds dimensions of buffer that will hold the data VOIDP data; OUT: Array for holding the data RETURN Returns SUCCEED(0) if succesful and FAIL(-1) otherwise. DESCRIPTION Reads the next data set in the file. If you do no know the values of "rank" or "dimsizes", you must call "DFSDgetdims" to get them and then use them to provide the right amount of space for the array "data". If you do not know the number type of the data in the scientific dat set, you can call "DFSDgetNT" to find out. Subsequent calls to "DFSDgetdata"(or to "DFSDgetdims" and "DFSDgetdata") will sequentially read scientific data sets from the file. For example, if "DFSDgetdata" is called three times in succession, the third call reads data from the third scientific data set in the file. Note that if you do no know the values of "rank" or "dimsizes" you must call "DFSDgetdims" to get them each time and then provide the necessary space to hold the data. If "DFSDgetdims" or "DFSDgetdata" is called and there are no more scientific data sets left in the file, an error code is returned and nothing is read. "DFSDrestart" can be used to override this convention. ---------------------------------------------------------------------------*/ intn DFSDgetdata(const char *filename, intn rank, int32 maxsizes[], VOIDP data) { intn ret_value; ret_value = (DFSDIgetdata(filename, rank, maxsizes, data, 0)); /* 0 == C */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetlengths USAGE int DFSDsetlengths(maxlen_label, maxlen_unit, maxlen_format, maxlen_coordsys) int maxlen_label; IN: maximum length of any label int maxlen_unit; IN: maximum length of any unit int maxlen_format; IN: maximum length of any format int maxlen_coordsys; IN: maximum length of any coordsys RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the maximum lengths for the strings that will hold labels, units formats and the name of the coordinate system. These lengths are used by the routines "DFSDgetdimstrs" and "DFSDgetdatastrs" to determine the maximum lengths of strings that they get from the HDF file. Normally, "DFSDsetlengths" is not needed. If it is not called, default maximum lengths of 255 are used for all strings. -----------------------------------------------------------------------------*/ intn DFSDsetlengths(intn maxlen_label, intn maxlen_unit, intn maxlen_format, intn maxlen_coordsys) { CONSTR(FUNC, "DFSDsetlengths"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (maxlen_label > 0) Maxstrlen[LABEL] = maxlen_label; if (maxlen_unit > 0) Maxstrlen[UNIT] = maxlen_unit; if (maxlen_format > 0) Maxstrlen[FORMAT] = maxlen_format; if (maxlen_coordsys > 0) Maxstrlen[COORDSYS] = maxlen_coordsys; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetdims USAGE int DFSDsetdims(rank, dimsizes) int rank; IN: number of dimensions int32 dimsizes[]; IN: array containing dimensions of scientific data sett RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the rank and dimension sizes for all subsequent scientific data sets written to the file. This routine must be called before calling either "DFSDgetdimstrs" or "DFSDsetdimscale". "DFSDsetdims" need not be called if other set routines are not called and the correct dimensions are supplied in "DFSDputdata" or "DFSDadddata". If the rank or dimension sizes change, all previous set calls are cleared, except for the number type which is set by calling "DFSDsetNT". -----------------------------------------------------------------------------*/ intn DFSDsetdims(intn rank, int32 dimsizes[]) { intn i; CONSTR(FUNC, "DFSDsetdims"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Sfile_id != DF_NOFILE) HGOTO_ERROR(DFE_BADCALL, FAIL); if (Writesdg.rank == rank) /* check if dimensions same */ { if (Writesdg.dimsizes) { for (i = 0; i < rank; i++) { if (Writesdg.dimsizes[i] != dimsizes[i]) break; } if (i == rank) { ret_value= SUCCEED; /* Dimensions same as before */ goto done; } } } /* forget all attributes set previously */ if (DFSDIclear((DFSsdg *) & Writesdg) < 0) { ret_value = FAIL; goto done; } /* allocate dimensions */ Writesdg.dimsizes = (int32 *) HDmalloc((size_t)rank * sizeof(int32)); if (Writesdg.dimsizes == NULL) { ret_value = FAIL; goto done; } /* copy dimensions */ Writesdg.rank = rank; for (i = 0; i < rank; i++) Writesdg.dimsizes[i] = dimsizes[i]; /* Note dimensions modified */ Ref.dims = 0; /* * Added side effect, allows creation of new "ref" whenever called * before DFSDwriteslab(). */ Ref.new_ndg = 0; Writeref = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetdatastrs USAGE int DFSDsetdatastrs(label, unit, format, coordsys) char *label; IN: label that describes the data char *unit; IN: unit to be used with the data char *format; IN: format to be used in displaying the data char *coordsys; IN: coordinate system RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the label, unit, format and coordsys(coordinate system) strings to be assigned to the next data set written to the file. -----------------------------------------------------------------------------*/ intn DFSDsetdatastrs(const char *label, const char *unit, const char *format, const char *coordsys) { intn ret_value; ret_value = (DFSDIsetdatastrs(label, unit, format, coordsys)); return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIsetdatastrs() * Purpose: Set label, unit and format for displaying subsequent SDGs * Inputs: label: label to be used to describe data * unit: unit corresponding to data values * format: format to be used in displaying data values * coordsys: type of coordinate system * Globals: Writesdg, Ref * Returns: 0 on success, FAIL on failure with error set * Users: HDF users, utilities, other routines * Invokes: none * Method: Stores values in global structure Writesdg * Remarks: should we validate coordsys? proposed strings: "cartesian", * "polar" (="spherical") and "cylindrical". Do "spherical" and * "cylindrical" make sense for 2D? *---------------------------------------------------------------------------*/ intn DFSDIsetdatastrs(const char *label, const char *unit, const char *format, const char *coordsys) { intn luf; /* takes values LABEL, UNIT, FORMAT */ /* in succession */ const char *lufp; /* points to label, unit, format */ /* in succession */ CONSTR(FUNC, "DFSDIsetdatastrs"); /* for HERROR */ intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* NOTE: The following code should be changed to write all three, even if one or more is an empty string. Then, when DFSDgetdatastrs is called values will be returned for all three also, even though some might be empty strings. */ for (luf = LABEL; luf <= FORMAT; luf++) { /* set lufp to point to label etc. as apppropriate */ lufp = (luf == LABEL) ? label : (luf == UNIT) ? unit : format; /* free space if allocated */ HDfreenclear(Writesdg.dataluf[luf]); /* copy string */ if (lufp) { Writesdg.dataluf[luf] = (char *) HDstrdup(lufp); if (Writesdg.dataluf[luf] == NULL) { ret_value= FAIL; goto done; } } } HDfreenclear(Writesdg.coordsys); if (coordsys) { Writesdg.coordsys = (char *) HDstrdup(coordsys); if (Writesdg.coordsys == NULL) { ret_value = FAIL; goto done; } } /* indicate that label, unit, format and coordsys info modified */ Ref.luf[LABEL] = Ref.luf[UNIT] = Ref.luf[FORMAT] = Ref.coordsys = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetdimstrs() USAGE int DFSDsetdimstrs(dim, label, unit, format) int dim; IN: dimension this label, unit and format refer to char *label; IN: label that describes this dimension char *unit; IN: unit to be used with this dimension char *format; IN: format to be used to display scale RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the label, unit, and format strings corresponding to the specified dimension. In both FORTRAN and C programs, dim=1 for the first dimension, and dim=2 for the second and so on. If the user is not interested in one or more strings, empty strings can be used as parameters for the "DFSDsetdimstrs" call. For example, "DFSDsetdimstrs(1, "vertical", "", "") " will set the label for the first dimension to "vertical" and set the unit and format strings to empty strings. -----------------------------------------------------------------------------*/ intn DFSDsetdimstrs(intn dim, const char *label, const char *unit, const char *format) { intn ret_value; ret_value = (DFSDIsetdimstrs(dim, label, unit, format)); return ret_value; } /* DFSDsetdimstrs */ /*----------------------------------------------------------------------------- * Name: DFSDIsetdimstrs() * Purpose: For the given dimension, set label, unit, format * This routine needs to be called once for each dimension whose * values the user wants to set. * Inputs: dim: the dimension that this info applies to * label: label to be used to describe this dimension * unit: units for dimension * format: format to be used in displaying * Globals: Writesdg, Ref * Returns: 0 on success, FAIL on failure with error set * Users: HDF users, utilities, other routines * Invokes: none * Method: Stores values in global structure Writesdg *---------------------------------------------------------------------------*/ intn DFSDIsetdimstrs(intn dim, const char *label, const char *unit, const char *format) { intn i; intn rdim; intn luf; /* takes values LABEL, UNIT, FORMAT */ /* in succession */ const char *lufp; /* points to label, unit, format */ /* in succession */ CONSTR(FUNC, "DFSDsetdimstrs"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* translate from 1 to 0 origin */ rdim = dim - 1; if ((rdim >= Writesdg.rank) || (rdim < 0)) HGOTO_ERROR(DFE_BADDIM, FAIL); for (luf = LABEL; luf <= FORMAT; luf++) { /* set lufp to point to label etc. as apppropriate */ lufp = (luf == LABEL) ? label : (luf == UNIT) ? unit : format; /* allocate space if necessary */ if (!Writesdg.dimluf[luf]) { Writesdg.dimluf[luf] = (char **) HDmalloc((uint32) Writesdg.rank * sizeof(char *)); if (Writesdg.dimluf[luf] == NULL) { ret_value = FAIL; goto done; } for (i = 0; i < Writesdg.rank; i++) /* set allocated pointers to NULL */ Writesdg.dimluf[luf][i] = NULL; } /* free string space if allocated */ HDfreenclear(Writesdg.dimluf[luf][rdim]); /* NOTE: The following code should be changed to write all three, even if one or more is an empty string. Then, when DFSDgetdimstrs is called values will be returned for all three also, even though some might be empty strings. */ /* copy string */ if (lufp) { Writesdg.dimluf[luf][rdim] = (char *) HDstrdup(lufp); if (Writesdg.dimluf[luf][rdim] == NULL) { ret_value = FAIL; goto done; } } } /* Indicate that this info has not been written to file */ Ref.luf[LABEL] = Ref.luf[UNIT] = Ref.luf[FORMAT] = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetdimscale USAGE int DFSDsetdimscale(dim, dimsize, scale) int dim; IN: dimension the is scale corresponds to int32 dimsize; IN: size of scale in the dimension VOID *scale; IN: the scale RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the scale for a dimension. A scale is a 1D array whose value describes reference points along one of the dimensions of the scientific data set. For example, a 2D scientific data set representing points on a mpa could have two scales, one representing points of latitude, and the other points of longitude. -----------------------------------------------------------------------------*/ intn DFSDsetdimscale(intn dim, int32 dimsize, VOIDP scale) { int32 i; intn rdim; int32 numtype; uint32 bytesize; int32 localNTsize; uint8 *p1, *p2; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDsetdimscale"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); rdim = dim - 1; /* translate from 1 to 0 origin */ if (!Writesdg.dimsizes) HGOTO_ERROR(DFE_BADCALL, FAIL); if (Writesdg.numbertype == DFNT_NONE) { if (DFSDsetNT(DFNT_FLOAT32) < 0) { ret_value = FAIL; goto done; } } numtype = Writesdg.numbertype; localNTsize = DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); if ((rdim >= Writesdg.rank) || (rdim < 0) /* check dimensions */ || (dimsize != Writesdg.dimsizes[rdim])) { HGOTO_ERROR(DFE_BADDIM, FAIL); } if (!scale) { /* No scale for this dimension */ if (Writesdg.dimscales) HDfreenclear(Writesdg.dimscales[rdim]); Ref.scales = 0; ret_value = SUCCEED; goto done; } /* get number type and size of this type in this machine */ if (Writesdg.numbertype == DFNT_NONE) { if (DFSDsetNT(DFNT_FLOAT32) < 0) { ret_value = FAIL; goto done; } } numtype = Writesdg.numbertype; localNTsize = DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); bytesize = (uint32)(dimsize * localNTsize); /* allocate space for dimscales if necessary */ if (!Writesdg.dimscales) { Writesdg.dimscales = (uint8 **) HDmalloc((uint32) Writesdg.rank * sizeof(int8 *)); if (Writesdg.dimscales == NULL) { ret_value = FAIL; goto done; } for (i = 0; i < Writesdg.rank; i++) /* set allocated pointers to NULL */ Writesdg.dimscales[i] = NULL; } if (!Writesdg.dimscales[rdim]) { /* allocate dimension scale space if necessary */ Writesdg.dimscales[rdim] = (uint8 *) HDmalloc((uint32) bytesize); if (Writesdg.dimscales[rdim] == NULL) { ret_value = FAIL; goto done; } } /* copy scale */ p1 = (uint8 *) scale; p2 = (uint8 *) Writesdg.dimscales[rdim]; HDmemcpy(p2, p1, bytesize); /* Indicate scales modified */ Ref.scales = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetrange USAGE int DFSDsetrange(max, min) VOIDP max; IN: High value in the scientific data set VOIDP min; IN: Low value in the scientific data set RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the maximum and minimum values to be stored with the scientific data set. Since these values are supposed to relate to the data itself, it is assumed that they are of the same number type as the data itself. One implication of this is that in the C version of "DFSDgetrange" the arguments are pointers, rather than simple variables, whereas in the FORTRAN version they are simple variables of the same type as the data array. This routine does not compute the maximum and minimum values; it merely stores the values it is given. As a result, the maximum and minimum values may not always reflect the actual maximum and minimum vlaues in the data set. When the maximum and minimum values are written to a file, the HDF elemement that hold these value is cleared, because it is assumed that subsequent data sets will have different values for "max" and "min". These values are automatically cleared aftera a call to either "DFSDputdata" or "DFSDaddadata". -----------------------------------------------------------------------------*/ intn DFSDsetrange(VOIDP maxi, VOIDP mini) { int32 numtype; uint32 localNTsize; intn i; uint8 *p1, *p2; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDsetrange"); /* for HERROR */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); p1 = &(Writesdg.max_min[0]); for (i = 0; i < 16; i++) *p1++ = 0; /* clear max_min */ /* get number type and copy the values to Writesdg */ if (Writesdg.numbertype == DFNT_NONE) DFSDsetNT(DFNT_FLOAT32); numtype = Writesdg.numbertype; localNTsize = (uint32)DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); p1 = (uint8 *) maxi; p2 = (uint8 *) mini; HDmemcpy((uint8 *) &(Writesdg.max_min[0]), p1, localNTsize); HDmemcpy((uint8 *) &(Writesdg.max_min[localNTsize]), p2, localNTsize); Ref.maxmin = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDputdata USAGE intn DFSDputdata(filename, rank, dimsizes, data) char *filename; IN: name of file to store scientific data set in int rank; IN: number of dimensions of data array to be stored int32 dimsizes[]; IN: array that holds sizes of dimensions VOID *data; IN: array holding data to be stored RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Writes scientific data and related information to an HDF file. If a new filename is used, "DFSDputdata" functions exactly like "DFSDadddata". WARNING "DFSDputdata" will write data to an existing file by destroying the contents of the original file. Use with caution. -----------------------------------------------------------------------------*/ intn DFSDputdata(const char *filename, intn rank, int32 dimsizes[], VOIDP data) { intn ret_value; /* 0, 0 specify create mode, C style array (row major) */ ret_value = (DFSDIputdata(filename, rank, dimsizes, data, 0, 0)); return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDadddata USAGE intn DFSDadddata(filename, rank, dimsizes, data) char *filename; IN: Name of HDF file to store the data set intn rank; IN: Number of dimensions in the data array to be written int32 dimsizes[]; IN: Array holding the size of each dimension VOIDP data; IN: Array holding the data to be stored RETURNS SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION In addition to appending any multidemensional array of data to an HDF file, "DFSDaddata" automatically stores any information pertinent to the data set. It will not overwrite existing data in the file. The array "data" can be of any valid type. However if no number type has been set by "DFSDsetNT", it is assumed that the data type is of type "float32". The invocation of "DFSDadddata" triggers the writing of the entire scientific data set. That is, when "DFSDadddat" is called, all information that has been set by "DFSDset* " calls is written to the file, along with the data array itself. -----------------------------------------------------------------------------*/ intn DFSDadddata(const char *filename, intn rank, int32 dimsizes[], VOIDP data) { intn ret_value; /* 1, 0 specifies append mode, C style array (row major) */ ret_value = (DFSDIputdata(filename, rank, dimsizes, data, 1, 0)); return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDrestart USAGE int DFSDrestart() RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Forces the next read operation to read the first scientific data set in the file. -----------------------------------------------------------------------------*/ intn DFSDrestart(void) { intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDndatasets"); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Lastfile != NULL) *Lastfile = '\0'; /* set to 0-length string instead of NULLing ptr */ Readref = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDndatasets USAGE int32 DFSDndatasets(filename) char *filename; IN: filename of HDF file RETURNS Returns the number of data sets if successful and FAIL(-1) otherwise. DESCRIPTION Returns the number of scientific datasets in the file. In HDFv3.3 "DFSDndatasets" replaces "DFSDnumber". In order to maintain backward compatibility with existing HDF applications, HDF will continue to support "DFSDnumber". However, it is recommended that all new applications use "DFSDndatasets" instead of "DFSDnumber". -----------------------------------------------------------------------------*/ int32 DFSDndatasets(char *filename) { int32 file_id; int32 nsdgs = 0; int32 ret_value = SUCCEED; CONSTR(FUNC, "DFSDndatasets"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* should use reopen if same file as last time - more efficient */ file_id = DFSDIopen(filename, DFACC_READ); if (file_id == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); nsdgs = (int32)nsdghdr->size; if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE,FAIL); ret_value = nsdgs; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDclear USAGE int DFSDclear() RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Clears all possible set values. After a call to "DFSDclear", all values set by an "DFSDset*" calls will not be written unless they are set again. ----------------------------------------------------------------------------*/ intn DFSDclear(void) { CONSTR(FUNC, "DFSDclear"); intn ret_value = SUCCEED; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; if (DFSDIclearNT(&Writesdg) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); ret_value = DFSDIclear(&Writesdg); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDlastref USAGE uint16 DFSDlastref() RETURNS Returns the reference number of the last accessed scientific data set if successful and FAIL(-1) otherwise. DESCRIPTION Get the most recent reference number used in writing or reading a scientific data set. -----------------------------------------------------------------------------*/ uint16 DFSDlastref(void) { CONSTR(FUNC, "DFSDlastref"); uint16 ret_value; /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, 0); ret_value = (uint16) Lastref; done: if(ret_value == 0) /* 0 is invalid ref */ { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDreadref USAGE int DFSDreadref(filename, ref) char *filename; IN: name of HDF file containing scientific data set uint16 ref; IN: reference number for next "DFSDgetdata" call RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Specifies teh reference number for the data set to be read during the next read operation. This routine is most likely to be used in conjunction with "DFANgetlablist" which returns a list of labels for a given tag together with their reference numbers. It provides a sort of random access to scientific data sets. There is no guarantee that reference numbers appear in sequence in an HDF file, so ti is not generally safe to assume that a reference number is a sequence number for a scientific data set. -----------------------------------------------------------------------------*/ intn DFSDreadref(char *filename, uint16 ref) { int32 file_id; int32 aid; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDreadref"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); file_id = DFSDIopen(filename, DFACC_READ); if (file_id == DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); if ((aid = Hstartread(file_id, DFTAG_SDG, ref)) == FAIL && (aid = Hstartread(file_id, DFTAG_NDG, ref)) == FAIL) HCLOSE_GOTO_ERROR(file_id, DFE_NOMATCH, FAIL); Hendaccess(aid); Readref = ref; Newdata = -1; ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDgetslice USAGE intn DFSDgetslice(filename, winst, windims, data, dims) char *filename; IN: name of HDF file int32 winst[]; IN: array containing the coordinates for the start of the slice int32 windims[]; IN: array containing the dimensions of the slice VOID *data; OUT: array for returning the slice int32 dims[]; OUT: dimensions of array data RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets a part of a scientific data set from a file. "DFSDgetslice" accesses the data set last accessed by "DFSDgetdims". If "DFSDgetdims" has not been called for the named file, "DFSDgetslice" gets a slice from the next data set in the file. The array "winst" specifies the coordinates for the beginning of the slice. Array "windims" gives the size of the slice. The number of elements in both "winst" and "windims" must be equal to the rank of the data set. For example, if the file contains a 3D data set, "winst" may contain the values {2,4,3}, while "windims" contains the values {3,1,4} and the dims shuld be at least {3,1,4}, the same size as the slice. This will extract a 3x4, two-dimensional slice, containing the elements between(2,4.3) and (4,4,6) from the original data set. The array "data" is the array into which the slice is read. It must be at least as big as the desired slice. The array "dims" is the array containing the actual dimensions of the array "data". The user assigns values to "dims" before calling "DFSDgetslice". All parameters assume FORTRAN-style 1-based arrays. "DFSDgetslice" is obsoleted by "DFSDreadslab". "DFSDreadslab" is the recommended fucntion call to use when reading hyperslabs(previously known as data slices). HDFv3.3 will continue to support "DFSDgetslice" only to maintain backward compatibility with HDF applications built on earlier versions of the library. ----------------------------------------------------------------------------*/ intn DFSDgetslice(const char *filename, int32 winst[], int32 windims[], VOIDP data, int32 dims[]) { intn ret_value; ret_value = (DFSDIgetslice(filename, winst, windims, data, dims, 0)); return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDstartslice USAGE int DFSDstartslice(filename) char *filename; IN: name of HDF file to write to RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Prepares the DFSD interface to write a slice to a scientific data set. Before calling "DFSDstartslice", you must call "DFSDsetdims" to specify the dimensions of the data set to be written to the file. "DFSDstartslice" always appends a new data set to an existing file. Remember, you must call "DFSDstartslice" before calling "DFSDputslice" or "DFSDendslice". "DFSDstarslice" is obsolete in favor of "DFSDstartslab" "DFSDstartslab" is the recommended function to call to use when beginning hyperslab(i.e. data slabs) opertaions. HDFv3.3 will continue to support "DFSDstartslice" only to maintain backward compatibility with HDF applications built on earlier version of the library. -----------------------------------------------------------------------------*/ intn DFSDstartslice(const char *filename) { intn i; int32 size; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDstartslice"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!Writesdg.rank) /* dimensions not set */ HGOTO_ERROR(DFE_BADDIM, FAIL); Sfile_id = DFSDIopen(filename, DFACC_WRITE); if (Sfile_id == DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); Writesdg.data.tag = DFTAG_SD; if (!Writeref) Writeref = Hnewref(Sfile_id); if (!Writeref) HGOTO_ERROR(DFE_BADREF, FAIL); Writesdg.data.ref = Writeref; if (Writesdg.numbertype == DFNT_NONE) /* if NT not set,default to float32 */ DFSDsetNT(DFNT_FLOAT32); /* set up to write data */ size = DFKNTsize(Writesdg.numbertype); for (i = 0; i < Writesdg.rank; i++) size *= Writesdg.dimsizes[i]; Writesdg.aid = Hstartwrite(Sfile_id, DFTAG_SD, Writeref, size); if (Writesdg.aid == FAIL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_BADAID, FAIL); /* allocate array for keeping track of dims written */ Sddims = (int32 *) HDmalloc((uint32) Writesdg.rank * sizeof(int32)); if (Sddims == NULL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); for (i = 0; i < Writesdg.rank; i++) Sddims[i] = 0; /* nothing written so far */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDputslice USAGE int DFSDputslice(winend, data, dims) int32 winend[]; IN: dimensions that specify the size of slice to be written VOID *data; IN: array containing slice to be written int32 dims[]; IN: dimensions of array data RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Writes part of a scientific data set to a file. "DFSDputslice" takes some contiguous part of an array in memory and stores it as part of the scientific data set array specified by "DFSDgetdims". Slices must be stored contiguously. Array "windims" specifies the size of the slice to be written. The number of elements in "windims" is equal to the number of dimensions in the scientific data set array. The array "data" is the array in memory containg the slice. The array "dims" contains the dimensions of the array "data". Note that the two arrays "windim" and "dims" need not be the same since the "windims" arguement could refer to a sub-array of "data". In this case only a portion of the array "data" is written to the scientific data set. All parameters assume FORTRAN-style 1-based arrays. "DFSDputslice" is obsoleted by "DFSDwriteslab". DFSDwriteslab is the recommended function call to use when writing hyperslabs(previously known as data slices). HDFv3.3 will continue to support "DFSDputslice" only to maintain backward compatibility with HDF applications built on earlier versions of the library. -----------------------------------------------------------------------------*/ intn DFSDputslice(int32 winend[], VOIDP data, int32 dims[]) { intn ret_value; ret_value = (DFSDIputslice(winend, data, dims, 0)); return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDendslice USAGE int DFSDendslice() RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Terminates the write operation after storing a slice of data in a scientific data set. "DFSDendslice" must be called after all the slices are written. It checks to insure that the entire data set has been written, and returns an error code if not. "DFSDendslice" is obsolete in favor of "DFSDendslab". "DFSDendslab" is the recommended function call to use when terminating hyperslab(previously known as data slices) operations. HDFv3.3 will continue to support "DFSDendslice" only to maintain backward compatability with HDF applications build on earlier versions of the library. ----------------------------------------------------------------------------*/ intn DFSDendslice(void) { intn ret_value; ret_value = (DFSDIendslice(0)); return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDsetNT USAGE int DFSDsetNT(numbertype) int32 *numbertype; IN: Number type of the data to be written RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the number type for the data to be written in the next write operation. "DFSDsetNT" must be called if a number type other than "float32" is to be stored. "DFSDsetNT" and "DFSDsetdims" can be called in any order, but they should be called before any other "DFSDset*" functions and before "DFSDputdata" or "DFSDadddata". Valid values for "DFSDgetNT" are of the general form "DFNT_". If you include the headier file "hdf.h" in your program, you can use the following symbolic names for the number types: 32-bit float DFNT_FLOAT32 5 64-bit float DFNT_FLOAT64 6 8-bit signed int DFNT_INT8 20 8-bit unsigned int DFNT_UINT8 21 16-bit signed int DFNT_INT16 22 16-bit unsigned int DFNT_UINT16 23 32-bit signed int DFNT_INT32 24 32-bit unsigned int DFNT_UINT32 25 ---------------------------------------------------------------------------*/ intn DFSDsetNT(int32 numbertype) { uint8 outNT; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDsetNT"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); outNT = (uint8) (DFKisnativeNT(numbertype) ? DFKgetPNSC(numbertype, DF_MT) : (DFKislitendNT(numbertype) ? DFNTF_PC : DFNTF_HDFDEFAULT)); if ((numbertype == Writesdg.numbertype) && (outNT == Writesdg.filenumsubclass)) HGOTO_DONE(SUCCEED); /* Forget previous numbertype */ if (DFSDIclearNT((DFSsdg *) & Writesdg) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); Writesdg.numbertype = numbertype; Writesdg.filenumsubclass = outNT; Ref.nt = 0; Ref.dims = (Ref.dims >= 0 ? 0 : Ref.dims); Ref.new_ndg = 0; ret_value = (DFKsetNT(numbertype)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*------------------------------------------------------------------- * Name: DFSDIclearNT * Purpose: Reset all "set" values related to number types * Inputs: sdg: pointer to sdg struct to clear * Globals: Ref * Returns: 0 on success, FAIL on error with error set * Users: DFSDsetNT, HDF users * Invokes: none * Remarks: *--------------------------------------------------------------------*/ intn DFSDIclearNT(DFSsdg * sdg) { intn i; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIclearNT"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); sdg->numbertype = DFNT_NONE; sdg->filenumsubclass = DFNTF_NONE; /* free scale pointers. Note: scale pointer array is not freed */ /* sdg->dimscales will be freed only when rank is changed */ if (sdg->dimscales) { for (i = 0; i < sdg->rank; i++) HDfreenclear(sdg->dimscales[i]); } Ref.nt = -1; Ref.maxmin = -1; /* maxmin and scales should be changed to */ Ref.scales = -1; /* new number type */ Ref.new_ndg = -1; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDgetNT USAGE int DFSDgetNT(numbertype) int32 *numbertype; OUT: Number type of the data in the scientific data set. RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the number type of the current scientific data set. This information is then used by calls such as "DFSDgetdata" and "DFSDgetslice". Since "DFSDgetNT" gets the number type of the current data set, "DFSDgetdims" must be called before calling "DFSDgetNT". Valid values for "DFSDgetNT" are of the general form "DFNT_". The following are valid symbolic names and their number types: 32-bit float DFNT_FLOAT32 5 64-bit float DFNT_FLOAT64 6 8-bit signed int DFNT_INT8 20 8-bit unsigned int DFNT_UINT8 21 16-bit signed int DFNT_INT16 22 16-bit unsigned int DFNT_UINT16 23 32-bit signed int DFNT_INT32 24 32-bit unsigned int DFNT_UINT32 25 --------------------------------------------------------------------------- */ intn DFSDgetNT(int32 *pnumbertype) { intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDgetNT"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); *(pnumbertype) = Readsdg.numbertype; if (*(pnumbertype) == DFNT_NONE) HGOTO_ERROR(DFE_BADNUMTYPE, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*--------------------------------------------------------------------------- NAME DFSDpre32sdg USAGE int DFSDpre32sdg(filename, ref, ispre32) char *filename; IN: The name of the HDF file containing the scientific data set uint16 ref; IN: Reference number of scientific data set int ispre32; OUT: Pointer to the results of the inquiry RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Tests if the scientific data set with the specified reference number was created by a HDF library that precedes HDF3.2. This routine is for programmers who need to know whether a scientific data set was written by a version of the HDF library earlier than HDF3.2. If the scientific data set was created with a version of HDF prior to v3.2, "ispre32" will be set to 1, otherwise it will be set to 0. Based on this information, programmers can decide whether or not to transpose the corresponding array. ----------------------------------------------------------------------------*/ intn DFSDpre32sdg(char *filename, uint16 ref, intn *ispre32) { uint32 num; int32 file_id; intn found = 0; DFnsdgle *ptr; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDpre32sdg"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); file_id = DFSDIopen(filename, DFACC_READ); if (file_id == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); ptr = nsdghdr->nsdg_t; num = nsdghdr->size; while ((num > 0) && (ptr != NULL) && !found) { if ((ptr->nsdg.tag == DFTAG_SDG) && (ptr->nsdg.ref == ref)) { /* pure SDG */ found = 1; *ispre32 = TRUE; } else if ((ptr->sdg.tag == DFTAG_SDG) && (ptr->sdg.ref == ref)) { /* NDGSDG */ found = 1; *ispre32 = FALSE; } else { ptr = ptr->next; num--; } } /* while */ if (((num == 0) && (ptr != NULL)) || ((num != 0) && (ptr == NULL)) || !found) HCLOSE_GOTO_ERROR(file_id, DFE_BADTABLE, FAIL); if (Hclose(file_id) < 0) ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end of DFSDpre32sdg */ /******************************************************************************/ /*--------------------- Lower level routines --------------------------------*/ /******************************************************************************/ /* Functions for NDG and SDG stuff */ /*-------------------------------------------------------------------------- * Name: DFSDIsetnsdg_t * Purpose: Set up the NDG/SDG table. Each node has two fields: the 1st field is NDG or SDG, the 2nd field has value only when it is a special NDG, i.e. the data set is float32 and not compressed. * Inputs: file_id: pointer to HDF file containing SDG * Returns: 0 on success, FAIL on failure with error set * Users: DFSDIopen for READ *--------------------------------------------------------------------------*/ static intn DFSDIsetnsdg_t(int32 file_id, DFnsdg_t_hdr * l_nsdghdr) { uint32 sz_DFnsdgle = (uint32) sizeof(struct DFnsdgle); int32 aid; /* access id */ int32 ndgs; /* number of ndg's */ int32 sdgs; /* number of sdg's */ int32 GroupID; uint16 intag=DFTAG_NULL; uint16 inref=DFTAG_NULL; intn moretags; intn found; DFnsdgle *ntb = NULL; DFnsdgle *stb = NULL; DFnsdgle *new; DFnsdgle *nf; DFnsdgle *nr; DFnsdgle *sf; DFnsdgle *sr; DFdi di; DFdi lnkdd[2]; uint8 *bufp; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDsetnsdg_t"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id)) HGOTO_ERROR(DFE_BADCALL, FAIL); /* Check if temproray buffer has been allocated */ if (ptbuf == NULL) { ptbuf = (uint8 *) HDmalloc(TBUF_SZ * sizeof(uint8)); if (ptbuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* MMM: Talk to Shiming and make sure the change made to the way ndgs and sdgs are handled is ok. */ ndgs = Hnumber(file_id, DFTAG_NDG); sdgs = Hnumber(file_id, DFTAG_SDG); if ((ndgs == FAIL) || (sdgs == FAIL)) HGOTO_ERROR(DFE_INTERNAL, FAIL); if ((ndgs + sdgs) == 0) { /* no sdgs or ndgs in file */ l_nsdghdr->size = 0; l_nsdghdr->nsdg_t = NULL; HGOTO_DONE(SUCCEED); } if ((ntb = (DFnsdgle *) HDmalloc(sz_DFnsdgle)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* the first node in each table is a dummy node */ ntb->nsdg.tag = DFTAG_NULL; /* set up and init an ndg table */ ntb->nsdg.ref = 0; ntb->sdg.tag = DFTAG_NULL; ntb->sdg.ref = 0; ntb->next = NULL; if ((stb = (DFnsdgle *) HDmalloc(sz_DFnsdgle)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); stb->nsdg.tag = DFTAG_NULL; /* set up and init an sdg table */ stb->nsdg.ref = 0; stb->sdg.tag = DFTAG_NULL; /* this field should be named as */ stb->sdg.ref = 0; /* stb->ndg.tag, the ndg to which this */ stb->next = NULL; /* sdg belongs. */ aid = Hstartread(file_id, DFTAG_WILDCARD, DFREF_WILDCARD); moretags = (aid != FAIL); while (moretags) { /* read dd's and put each dd in ntb or stb */ HQuerytagref(aid, &intag, &inref); /* put NDG or SDG on ntb or stb */ if (intag == DFTAG_NDG) { nr = ntb; nf = ntb; while ((inref > nf->nsdg.ref) && (nf->next != NULL)) { nr = nf; nf = nf->next; } /* MMM: Tlk to Shiming and make sure the way this part was rearranged is ok. */ /* check for duplicate nsdg */ if (inref == nf->nsdg.ref) HGOTO_ERROR(DFE_BADNDG, FAIL); /* add a node to the table */ if ((new = (DFnsdgle *) HDmalloc(sz_DFnsdgle)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); new->nsdg.tag = DFTAG_NDG; new->nsdg.ref = inref; new->sdg.tag = DFTAG_NULL; new->sdg.ref = 0; if (inref < nf->nsdg.ref) { /* does it go before current node? */ new->next = nf; nr->next = new; } else { /* or at the end? */ new->next = nf->next; nf->next = new; } /* Does this NDG have an SDG? */ if ((GroupID = DFdiread(file_id, DFTAG_NDG, inref)) < 0) HGOTO_ERROR(DFE_BADGROUP, FAIL); found = FALSE; di.tag = DFTAG_NULL; di.ref = 0; while ((found == 0) && (DFdiget(GroupID, &di.tag, &di.ref) == 0)) { if (di.tag == DFTAG_SDLNK) found = TRUE; } if (found) { /* read in the tag/refs in the link element */ if (Hgetelement(file_id, di.tag, di.ref, ptbuf) == (int32) FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } bufp = ptbuf; UINT16DECODE(bufp, lnkdd[0].tag); UINT16DECODE(bufp, lnkdd[0].ref); UINT16DECODE(bufp, lnkdd[1].tag); UINT16DECODE(bufp, lnkdd[1].ref); new->sdg.tag = lnkdd[1].tag; new->sdg.ref = lnkdd[1].ref; DFdifree(GroupID); } } /* end of NDG */ if (intag == DFTAG_SDG) { sr = stb; sf = stb; while ((inref > sf->nsdg.ref) && (sf->next != NULL)) { sr = sf; sf = sf->next; } if (inref == sf->nsdg.ref) HGOTO_ERROR(DFE_BADNDG, FAIL); /* insert a new node */ if ((new = (DFnsdgle *) HDmalloc(sz_DFnsdgle)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); new->nsdg.tag = DFTAG_SDG; new->nsdg.ref = inref; new->sdg.tag = DFTAG_NULL; new->sdg.ref = 0; if (inref < sf->nsdg.ref) { /* does it go before current node? */ new->next = sf; sr->next = new; } else { /* or at the end? */ new->next = sf->next; sf->next = new; } /* Does it belong to an NDG? */ if ((GroupID = DFdiread(file_id, DFTAG_SDG, inref)) < 0) HGOTO_ERROR(DFE_BADGROUP, FAIL); found = FALSE; di.tag = DFTAG_NULL; di.ref = 0; while ((found == 0) && (DFdiget(GroupID, &di.tag, &di.ref) == 0)) { if (di.tag == DFTAG_SDLNK) found = TRUE; } if (found) { /* read in the tag/refs in the link element */ if (Hgetelement(file_id, di.tag, di.ref, ptbuf) == (int32) FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } bufp = ptbuf; UINT16DECODE(bufp, lnkdd[0].tag); UINT16DECODE(bufp, lnkdd[0].ref); UINT16DECODE(bufp, lnkdd[1].tag); UINT16DECODE(bufp, lnkdd[1].ref); new->sdg.tag = lnkdd[0].tag; new->sdg.ref = lnkdd[0].ref; DFdifree(GroupID); } } /* end of SDG */ /* get next dd */ moretags = (SUCCEED == Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT)); } /* gone through the dd blocks */ Hendaccess(aid); /* merge stb and ntb */ /* remove SDGNDG from stb */ nf = ntb->next; while (nf != NULL) { inref = nf->sdg.ref; if (inref != 0) { /* it has an SDG */ sr = stb; sf = stb; while ((sf->nsdg.ref < inref) && (sf->next != NULL)) { sr = sf; sf = sf->next; } if (sf->nsdg.ref == inref) { if (sf->sdg.ref != nf->nsdg.ref) { HGOTO_ERROR(DFE_BADNDG, FAIL); } else { sr->next = sf->next; HDfreenclear(sf); sdgs--; } } } nf = nf->next; } /* check all SDGNDGs were removed */ sf = stb->next; while (sf != NULL) { if (sf->sdg.ref != 0) HGOTO_ERROR(DFE_BADSDG, FAIL); sf = sf->next; } /* merge the two tables into one */ nf = ntb; /* looking for the end of ntb */ while (nf->next != NULL) nf = nf->next; nf->next = stb->next; /* the first node in stb is a dummy */ l_nsdghdr->size = (uint32)(ndgs + sdgs); l_nsdghdr->nsdg_t = ntb->next; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ /* Release the first nodes in stb and ntb */ if (stb != NULL) HDfree((VOIDP) stb); if (ntb != NULL) HDfree((VOIDP) ntb); return ret_value; } /* end of DFSDsdtnsdg_t */ /*----------------------------------------------------------------------- * Name DFSDInextnsdg * Purpose: Returns next ndg or sdg in the file * Inputs: nsdghdr: point to the nsdg table * nsdg: the structure holds the di of next sdg or ndg * Returns: 0 on succeeds, FAIL on failure * -------------------------------------------------------------------*/ static intn DFSDInextnsdg(DFnsdg_t_hdr * l_nsdghdr, DFdi * nsdg) { uint32 num; intn found = FALSE; DFnsdgle *ptr; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDInextnsdg"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); nsdg->tag = DFTAG_NULL; nsdg->ref = 0; ptr = l_nsdghdr->nsdg_t; num = l_nsdghdr->size; if ((ptr == NULL) || (num == 0)) HGOTO_DONE(SUCCEED); if ((lastnsdg.tag == DFTAG_NULL) && (lastnsdg.ref == 0)) { found = TRUE; } else { while ((num > 0) && (ptr != NULL) && !found) { if ((ptr->nsdg.tag == lastnsdg.tag) && (ptr->nsdg.ref == lastnsdg.ref)) { if ((ptr = ptr->next) != NULL) found = TRUE; } else { ptr = ptr->next; num--; } } /* while */ if (((num == 0) && (ptr != NULL)) || ((num != 0) && (ptr == NULL)) || !found) { HGOTO_ERROR(DFE_BADTABLE, FAIL); } } /* else */ if (found) { nsdg->tag = ptr->nsdg.tag; nsdg->ref = ptr->nsdg.ref; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end of DFSDInextnsdg */ /*----------------------------------------------------------------------------- * Name: DFSDIgetndg * Purpose: Reads in NDG * Inputs: file_id: pointer to HDF file containing NDG * ref: ref of NDG to read * sdg: pointer to DFSsdg struct to read NDG into * Returns: 0 on success, FAIL on failure with error set * Users: HDF programmers, DFSDIsdginfo * Invokes: DFgetelement, DFdiread, DFdiget, DFaccess, DFread DFSDgetsdg * Method: Reads in NDG using DFdiread. Gets each tag/ref using DFdiget. * Reads in dimensions using DFgetelement. * Call DFSDgetsdg to read in the rest info. * Mallocs space for these, freeing * previously allocated space. * Remarks: This accepts non-float32 data *---------------------------------------------------------------------------*/ static intn DFSDIgetndg(int32 file_id, uint16 tag, uint16 ref, DFSsdg * sdg) { int16 int16var; int32 i; intn luf; DFdi elmt; DFdi nt; int32 length; int32 numtype = 0; /* current number type */ int32 fileNTsize = 0; /* size of this NT as it is in the file */ int32 localNTsize = 0; /* size of this NT as it is in this machine */ int32 ret; int32 aid; int32 GroupID; int8 fileNT = 0; /* file number subclass */ int8 platnumsubclass = 0; /* platform number subclass */ uint8 ntstring[4]; uint8 *isscales; uint8 *buf; uint8 *p; /* temporary pointer for moving things to buffer */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIgetndg"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id)) HGOTO_ERROR(DFE_BADCALL, FAIL); if (!ref) HGOTO_ERROR(DFE_BADREF, FAIL); /* Check if temproray buffer has been allocated */ if (ptbuf == NULL) { ptbuf = (uint8 *) HDmalloc(TBUF_SZ * sizeof(uint8)); if (ptbuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read NDG into memory */ if ((GroupID = DFdiread(file_id, tag, ref)) < 0) HGOTO_ERROR(DFE_BADGROUP, FAIL); DFSDIclear(sdg); if (tag == DFTAG_NDG) DFSDIclearNT(sdg); Ismaxmin = 0; IsCal = FALSE; /* * Loop through all members of the group */ while (!DFdiget(GroupID, &elmt.tag, &elmt.ref)) { luf = -1; /* flag value for label/unit/ */ /* format gets process tag/ref */ switch (elmt.tag) { case DFTAG_SD: /* data tag/ref */ sdg->data.tag = elmt.tag; /* put tag/ref in struct */ sdg->data.ref = elmt.ref; break; case DFTAG_SDD: /* dimension */ aid = Hstartread(file_id, elmt.tag, elmt.ref); if (aid == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADAID, FAIL); } /* read rank */ if (Hread(aid, (int32) 2, ptbuf) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } p = ptbuf; INT16DECODE(p, int16var); sdg->rank=(intn)int16var; /* get space for dimensions */ sdg->dimsizes = (int32 *) HDmalloc((uint32) sdg->rank * sizeof(int32)); if (sdg->dimsizes == NULL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read dimension record */ if (Hread(aid, (int32) 4 * sdg->rank, ptbuf) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } p = ptbuf; for (i = 0; i < sdg->rank; i++) INT32DECODE(p, sdg->dimsizes[i]); /* read tag/ref of NT */ if (Hread(aid, (int32) 4, ptbuf) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } p = ptbuf; UINT16DECODE(p, nt.tag); UINT16DECODE(p, nt.ref); /* read actual NT */ if (Hgetelement(file_id, nt.tag, nt.ref, ntstring) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_BADCALL, FAIL); } /* if looking for an SDG type must be FLOAT32 */ if (tag == DFTAG_SDG && ntstring[1] != DFNT_FLOAT32) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_BADCALL, FAIL); } /* set NT info */ numtype = (int32)ntstring[1]; fileNT = (int8)ntstring[3]; platnumsubclass = DFKgetPNSC(numtype, DF_MT); if ((fileNT != DFNTF_HDFDEFAULT) && (fileNT != DFNTF_PC) && (fileNT != platnumsubclass)) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_BADCALL, FAIL); } if (fileNT != DFNTF_HDFDEFAULT) { /* if native or little endian */ if (fileNT != DFNTF_PC) /* native */ numtype |= DFNT_NATIVE; else /* little endian */ numtype |= DFNT_LITEND; } /* end if */ sdg->filenumsubclass = ntstring[3]; sdg->numbertype = numtype; /* set size of NT */ fileNTsize = DFKNTsize(numtype); localNTsize = DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); /* read and check all scale NTs */ for (i = 0; i < sdg->rank; i++) { if (Hread(aid, (int32) 4, ptbuf) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } p = ptbuf; UINT16DECODE(p, nt.tag); UINT16DECODE(p, nt.ref); /* read NT itself */ if (Hgetelement(file_id, nt.tag, nt.ref, ntstring) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* check for any valid NT */ if (ntstring[1] == DFNT_NONE) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_BADCALL, FAIL); } /* if looking for an SDG type must be FLOAT32 */ if (tag == DFTAG_SDG && ntstring[1] != DFNT_FLOAT32) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_BADCALL, FAIL); } } /* end for loop */ Hendaccess(aid); break; case DFTAG_SDLNK: /* SDG NDG link */ break; /* do nothing in 3.2 */ case DFTAG_SDL: /* labels */ if (luf == (-1)) luf = LABEL; case DFTAG_SDU: /* units */ if (luf == (-1)) luf = UNIT; case DFTAG_SDF: /* formats */ if (luf == (-1)) luf = FORMAT; if (!sdg->dimsizes) { DFdifree(GroupID); HGOTO_ERROR(DFE_CORRUPT, FAIL); } /* get needed size of buffer, allocate */ length = Hlength(file_id, elmt.tag, elmt.ref); if (length == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } buf = (uint8 *) HDmalloc((uint32) length); if (buf == NULL) { DFdifree(GroupID); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read in luf */ if (Hgetelement(file_id, elmt.tag, elmt.ref, buf) == FAIL) { DFdifree(GroupID); HDfree((VOIDP) buf); HGOTO_ERROR(DFE_GETELEM, FAIL); } p = buf; /* allocate data luf space */ sdg->dataluf[luf] = (char *) HDmalloc((uint32) HDstrlen((char *) p) + 1); if (sdg->dataluf[luf] == NULL) { DFdifree(GroupID); HDfree((VOIDP) buf); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* extract data luf */ HDstrcpy(sdg->dataluf[luf], (char *) p); p += HDstrlen(sdg->dataluf[luf]) + 1; /* get space for dimluf array */ sdg->dimluf[luf] = (char **) HDmalloc((uint32) sdg->rank * sizeof(char *)); if (sdg->dimluf[luf] == NULL) { DFdifree(GroupID); HDfree((VOIDP) buf); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* extract dimension lufs */ for (i = 0; i < sdg->rank; i++) { sdg->dimluf[luf][i] = (char *) HDmalloc((uint32) HDstrlen((char *) p) + 1); if (sdg->dimluf[luf][i] == NULL) { DFdifree(GroupID); HDfree((VOIDP) buf); HGOTO_ERROR(DFE_NOSPACE, FAIL); } HDstrcpy(sdg->dimluf[luf][i], (char *) p); p += HDstrlen(sdg->dimluf[luf][i]) + 1; } HDfree((VOIDP) buf); break; case DFTAG_SDS: /* scales */ if (!sdg->dimsizes) { DFdifree(GroupID); HGOTO_ERROR(DFE_CORRUPT, FAIL); } /* set up to read scale */ aid = Hstartread(file_id, elmt.tag, elmt.ref); if (aid == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADAID, FAIL); } /* read isscales */ isscales = (uint8 *) HDmalloc((uint32) sdg->rank); if (isscales == NULL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } if (Hread(aid, (int32) sdg->rank, isscales) == FAIL) { DFdifree(GroupID); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } /* allocate scale pointers */ sdg->dimscales = (uint8 **) HDmalloc((uint32) sdg->rank * sizeof(int8 *)); if (sdg->dimscales == NULL) { DFdifree(GroupID); HDfree((VOIDP) isscales); Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read scales */ for (i = 0; i < sdg->rank; i++) { sdg->dimscales[i] = NULL; /* default */ if (!isscales[i]) continue; /* space for scale */ sdg->dimscales[i] = (uint8 *) HDmalloc((size_t) (sdg->dimsizes[i] * localNTsize)); if (sdg->dimscales[i] == NULL) { DFdifree(GroupID); HDfree((VOIDP) isscales); Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } if (platnumsubclass == fileNT) { /* no conversion needed */ ret = Hread(aid, (int32) sdg->dimsizes[i] * fileNTsize, (uint8 *) sdg->dimscales[i]); if (ret == FAIL) { DFdifree(GroupID); HDfree((VOIDP) isscales); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } } else { /* conversion necessary */ /* allocate conversion buffer */ buf = (uint8 *) HDmalloc((size_t) (sdg->dimsizes[i] * fileNTsize)); if (buf == NULL) { DFdifree(GroupID); HDfree((VOIDP) isscales); Hendaccess(aid); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read scale from file */ ret = Hread(aid,(int32) (sdg->dimsizes[i] * fileNTsize), buf); if (ret == FAIL) { DFdifree(GroupID); HDfree((VOIDP) buf); HDfree((VOIDP) isscales); Hendaccess(aid); HGOTO_ERROR(DFE_READERROR, FAIL); } p = buf; /* convert, all at once */ DFKconvert((VOIDP) p, (VOIDP) sdg->dimscales[i], numtype, sdg->dimsizes[i], DFACC_READ, 0, 0); HDfree((VOIDP) buf); } } HDfree((VOIDP) isscales); Hendaccess(aid); break; case DFTAG_SDC: /* coordsys */ /* find and allocate necessary space */ length = Hlength(file_id, elmt.tag, elmt.ref); if (length == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } sdg->coordsys = (char *) HDmalloc((uint32) length); if (sdg->coordsys == NULL) { DFdifree(GroupID); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read coordsys */ if (Hgetelement(file_id, elmt.tag, elmt.ref, (uint8 *) sdg->coordsys) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } break; case DFTAG_SDM: /* max/min */ if (fileNT == platnumsubclass) { /* no conversion */ if (Hgetelement(file_id, elmt.tag, elmt.ref, (uint8 *) &(sdg->max_min[0])) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } } else { /* conversion needed */ /* allocate buffer */ buf = (uint8 *) HDmalloc((size_t) (2 * fileNTsize)); if (buf == NULL) { DFdifree(GroupID); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read and convert max/min */ if (Hgetelement(file_id, elmt.tag, elmt.ref, buf) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } DFKconvert((VOIDP) buf, (VOIDP) &(sdg->max_min[0]), numtype, 2, DFACC_READ, 0, 0); HDfree((VOIDP) buf); } Ismaxmin = 1; break; case DFTAG_CAL: if (fileNT == platnumsubclass) { /* no conversion */ /* get size of element */ intn eltSize = (intn) Hlength(file_id, elmt.tag, elmt.ref); if (eltSize == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } if (eltSize == 36) { /* element is new, double based type */ if (Hgetelement(file_id, elmt.tag, elmt.ref, (unsigned char *) &sdg->cal) < 0) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } } else { /* element is old float based type */ float32 buf2[4]; /* allocate input buffer */ if (Hgetelement(file_id, elmt.tag, elmt.ref, (unsigned char *) buf2) < 0) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* move 'em over */ sdg->ioff = (float64) buf2[0]; sdg->ioff_err = (float64) buf2[1]; sdg->cal = (float64) buf2[2]; sdg->cal_err = (float64) buf2[3]; sdg->cal_type = DFNT_INT16; } } else { intn eltSize; /* get size of element */ eltSize = (intn) Hlength(file_id, elmt.tag, elmt.ref); if (eltSize == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } /* allocate buffer */ buf = (uint8 *) HDmalloc((uint32) eltSize); if (buf == NULL) { DFdifree(GroupID); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read and convert calibration */ if (Hgetelement(file_id, elmt.tag, elmt.ref, buf) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } if (eltSize == 36) { /* element is new, double based type */ /* read in the 64bit float factors */ DFKconvert((VOIDP) buf, (VOIDP) &sdg->cal, DFNT_FLOAT64, 4, DFACC_READ, 0, 0); /* read in the 32bit integer number type */ DFKconvert((VOIDP) (buf + 32), (VOIDP) &sdg->cal_type, DFNT_INT32, 1, DFACC_READ, 0, 0); } else { /* element is old float based type */ float32 buf2[4]; /* convert calibration factors */ DFKconvert((VOIDP) buf, (VOIDP) buf2, DFNT_FLOAT32, 4, DFACC_READ, 0, 0); /* move 'em over */ sdg->ioff = (float64) buf2[0]; sdg->ioff_err = (float64) buf2[1]; sdg->cal = (float64) buf2[2]; sdg->cal_err = (float64) buf2[3]; sdg->cal_type = DFNT_INT16; } HDfree((VOIDP) buf); } IsCal = TRUE; break; case DFTAG_FV: if (fileNT == platnumsubclass) { /* no conversion */ /* get size of element */ intn eltSize = (intn) Hlength(file_id, elmt.tag, elmt.ref); if (eltSize == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } /* get element */ if (Hgetelement(file_id, elmt.tag, elmt.ref, (unsigned char *) sdg->fill_value) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } } else { intn eltSize; /* get size of element */ eltSize = (intn) Hlength(file_id, elmt.tag, elmt.ref); if (eltSize == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADLEN, FAIL); } /* allocate buffer for conversion */ buf = (uint8 *) HDmalloc((uint32) eltSize); if (buf == NULL) { DFdifree(GroupID); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* read fill value into buffer */ if (Hgetelement(file_id, elmt.tag, elmt.ref, buf) == FAIL) { DFdifree(GroupID); HGOTO_ERROR(DFE_GETELEM, FAIL); } /* convert the fill value */ DFKconvert((VOIDP) buf, (VOIDP) sdg->fill_value, numtype, 1, DFACC_READ, 0, 0); HDfree((VOIDP) buf); } break; case DFTAG_SDT: FileTranspose = 1; break; default: if ((elmt.tag <= DFTAG_BREQ) && (elmt.tag >= DFTAG_EREQ)) { DFdifree(GroupID); HGOTO_ERROR(DFE_BADNDG, FAIL); } break; } } /* since the dataset exists, the fill value cannot be changed */ sdg->fill_fixed = TRUE; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------* * Name: DFSDIputndg * Purpose: Write NDG out to HDF file * Inputs: file_id: HDF file pointer * ref: ref to put NDG with * sdg: struct containing NDG info to put * Returns: 0 on success, FAIL on failure with error set * Users: HDF programmers, utilities, DFSDputdata, other routines * Invokes: DFIcheck, DFdistart, DFdiadd, DFdiend, DFputelement, DFaccess, * DFwrite * Remarks: Writes out NTs *---------------------------------------------------------------------------*/ static intn DFSDIputndg(int32 file_id, uint16 ref, DFSsdg * sdg) { int32 i; intn j; intn luf; intn issdg = 0; /* issdg=1 if it is NDG SDG */ intn len; uint16 luftag; uint8 *buf; uint8 *Isscales = NULL; uint8 *bufp; uint8 ntstring[4]; uint8 platnumsubclass; uint8 outNT; /* file number type subclass */ int32 GroupID; int32 numtype; /* current number type */ int32 fileNTsize; /* size of this NT as it will be in the file */ int32 scaleNTsize; /* size of scale NT as it will be in the file */ int32 aid; DFdi nt; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIputndg"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id)) HGOTO_ERROR(DFE_BADCALL, FAIL); if (!ref) HGOTO_ERROR(DFE_BADREF, FAIL); /* Check if temproray buffer has been allocated */ if (ptbuf == NULL) { ptbuf = (uint8 *) HDmalloc(TBUF_SZ * sizeof(uint8)); if (ptbuf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* set number type and subclass */ if (sdg->numbertype == DFNT_NONE) DFSDsetNT(DFNT_FLOAT32); /* default is float32 */ numtype = sdg->numbertype; fileNTsize = DFKNTsize(numtype); scaleNTsize = fileNTsize; /* for now, assume same. MAY CHANGE */ outNT = sdg->filenumsubclass; platnumsubclass = (uint8)DFKgetPNSC(numtype, (int32)DF_MT); /* prepare to start writing ndg */ if ((GroupID = DFdisetup(10)) < 0) HGOTO_ERROR(DFE_GROUPSETUP, FAIL); /* put ND and ref */ if (DFdiput(GroupID, sdg->data.tag, sdg->data.ref) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); if (Ref.nt <= 0) { /* will not execute if has been written in putsdg */ /* construct and write out NT */ ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = (uint8) (numtype & 0xff); /* type */ ntstring[2] = (uint8) (fileNTsize * 8); /* width of number type in bits */ ntstring[3] = outNT; /* class: IEEE or machine class */ if (Hputelement(file_id, DFTAG_NT, ref, ntstring, (int32) 4) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.nt = (intn)ref; } /* write out NDD (dimension record) */ if (Ref.dims <= 0) { /* new NDD; write rank, dims, data NT and scale NTs */ /* put rank & dimensions in buffer */ bufp = ptbuf; UINT16ENCODE(bufp, sdg->rank); for (i = 0; i < sdg->rank; i++) INT32ENCODE(bufp, sdg->dimsizes[i]); /* put data NT and scale NTs in buffer */ nt.tag = DFTAG_NT; nt.ref = (uint16) Ref.nt; /* same NT for scales too */ /* "<=" used to put 1 data NT + rank scale NTs in buffer */ for (i = 0; i <= sdg->rank; i++) { /* scale NTs written even if no scale! */ UINT16ENCODE(bufp, nt.tag); UINT16ENCODE(bufp, nt.ref); } /* write out NDD record */ if ( Hputelement(file_id, DFTAG_SDD, ref, ptbuf, (int32) (bufp - ptbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.dims = (intn)ref; } /* write dimension record tag/ref */ if (DFdiput(GroupID, DFTAG_SDD, (uint16) Ref.dims) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* write out label/unit/format */ for (luf = LABEL; luf <= FORMAT; luf++) { luftag = (uint16) ((luf == LABEL) ? DFTAG_SDL : (luf == UNIT) ? DFTAG_SDU : DFTAG_SDF); bufp = ptbuf; /* this block of code checks if luf is NULL, else writes it */ if (!Ref.luf[luf]) { /* if luf was set */ Ref.luf[luf] = -1; /* assume it is NULL */ /* if dataluf non-NULL, set up to write */ if (sdg->dataluf[luf] && sdg->dataluf[luf][0]) { HDstrcpy((char *) bufp, sdg->dataluf[luf]); bufp += HDstrlen(bufp) + 1; } else { /* dataluf NULL */ *bufp++ = '\0'; } /* for each dimluf, if non-NULL, set up to write */ for (i = 0; i < sdg->rank; i++) { if (sdg->dimluf[luf] && sdg->dimluf[luf][i] && sdg->dimluf[luf][i][0]) { /* dimluf not NULL */ HDstrcpy((char *) bufp, sdg->dimluf[luf][i]); bufp += HDstrlen(bufp) + 1; } else { /* dimluf NULL */ *bufp++ = '\0'; } } /* i loop */ Ref.luf[luf] = (intn)ref; /* remember ref */ if ( Hputelement(file_id, luftag, (uint16) Ref.luf[luf], ptbuf, (int32) (bufp - ptbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); } /* luf was set */ /* write luf tag/ref */ if (Ref.luf[luf] > 0) { if (DFdiput(GroupID, luftag, (uint16) Ref.luf[luf]) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } } /* luf loop */ /* check if there is a scale and write it out */ if (!Ref.scales) { /* if scale set */ Isscales = (uint8 *) HDmalloc((uint32) sdg->rank); if (Isscales == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); Ref.scales = (-1); /* assume there is no scale */ /* set up Isscales array */ for (i = 0; i < sdg->rank; i++) { if (sdg->dimscales && sdg->dimscales[i]) { /* a scale exists */ Isscales[i] = 1; Ref.scales = 0; /* flag: write out scales */ } else Isscales[i] = 0; } } if (!Ref.scales) { /* write out scales */ /* compute space needed for scales */ len = 0; for (i = 0; i < sdg->rank; i++) { if (Isscales[i] == 1) len += (intn) (sdg->dimsizes[i] * scaleNTsize); } len += sdg->rank; aid = Hstartwrite(file_id, DFTAG_SDS, ref, len); if (aid == FAIL) { HDfree((VOIDP) Isscales); HGOTO_ERROR(DFE_BADAID, FAIL); } /* write Isscales */ if (Hwrite(aid, (int32) sdg->rank, Isscales) == FAIL) { HDfree((VOIDP) Isscales); HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* Write scales */ for (j = 0; j < sdg->rank; j++) { if (!Isscales[j]) continue; if (platnumsubclass == outNT) { /* no conversion needed */ if (Hwrite(aid, (int32) (fileNTsize * sdg->dimsizes[j]), (uint8 *) sdg->dimscales[j]) == FAIL) { HDfree((VOIDP) Isscales); HGOTO_ERROR(DFE_WRITEERROR, FAIL); } } else { /* convert and write */ /* allocate buffer */ buf = (uint8 *) HDmalloc((uint32) (fileNTsize * sdg->dimsizes[j])); if (buf == NULL) { HDfree((VOIDP) Isscales); HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* convert, all at once */ DFKconvert((VOIDP) sdg->dimscales[j], (VOIDP) buf, numtype, sdg->dimsizes[j], DFACC_WRITE, 0, 0); /* write it all out */ if (Hwrite(aid, (int32) (fileNTsize * sdg->dimsizes[j]), buf) == FAIL) { HDfree((VOIDP) Isscales); HDfree((VOIDP) buf); HGOTO_ERROR(DFE_WRITEERROR, FAIL); } HDfree((VOIDP) buf); } } Ref.scales = (intn)ref; Hendaccess(aid); } if (Isscales != NULL) HDfree((VOIDP) Isscales); Isscales = NULL; if (Ref.scales > 0) if (DFdiput(GroupID, DFTAG_SDS, (uint16) Ref.scales) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); /* write coordsys */ if (!sdg->coordsys || !sdg->coordsys[0]) Ref.coordsys = (-1); if (!Ref.coordsys) { if ( Hputelement(file_id, DFTAG_SDC, ref, (uint8 *) sdg->coordsys, (int32) (HDstrlen(sdg->coordsys) + 1)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.coordsys = (intn)ref; } if (Ref.coordsys > 0) { if (DFdiput(GroupID, DFTAG_SDC, (uint16) Ref.coordsys) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } /* write max/min */ if (!Ref.maxmin) { if (platnumsubclass == outNT) { /* no conversion */ if ( Hputelement(file_id, DFTAG_SDM, ref, (uint8 *) &(sdg->max_min[0]), (int32) (2 * fileNTsize)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.maxmin = (intn)ref; } else { /* allocate buffer */ buf = (uint8 *) HDmalloc((size_t) (2 * fileNTsize)); /* max/min is 8 bytes */ if (buf == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* convert */ DFKconvert((VOIDP) &(sdg->max_min[0]), (VOIDP) buf, numtype, 2, DFACC_WRITE, 0, 0); /* write */ if ( Hputelement(file_id, DFTAG_SDM, ref, buf, (int32) (2 * fileNTsize)) == FAIL) { HDfree((VOIDP) buf); HGOTO_ERROR(DFE_PUTELEM, FAIL); } Ref.maxmin = (intn)ref; HDfree((VOIDP) buf); } } if (Ref.maxmin > 0) { if (DFdiput(GroupID, DFTAG_SDM, (uint16) Ref.maxmin) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } Ref.maxmin = (-1); /* max/min should be reset for each data set */ /* Write calibration. */ if (!Ref.cal) { if (platnumsubclass == outNT) { /* no conversion */ if (Hputelement(file_id, DFTAG_CAL, ref, (unsigned char *) &sdg->cal, (int32) 36) < 0) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.cal = (intn)ref; } else { /* allocate buffer */ uint8 buf2[4 * sizeof(float64) + sizeof(int32)]; /* convert doubles */ DFKconvert((VOIDP) &sdg->cal, (VOIDP) buf2, DFNT_FLOAT64, 4, DFACC_WRITE, 0, 0); /* convert int */ DFKconvert((VOIDP) &sdg->cal_type, (VOIDP) (buf2 + 32), DFNT_INT32, 1, DFACC_WRITE, 0, 0); /* write it into the file */ if (Hputelement(file_id, DFTAG_CAL, ref, (unsigned char *) buf2, (int32) 36) < 0) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.cal = (intn)ref; } } if (Ref.cal > 0) { if (DFdiput(GroupID, DFTAG_CAL, (uint16) Ref.cal) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } Ref.cal = (-1); /* Calibration should be reset for each data set */ /* Write fill value. */ if (!Ref.fill_value) { if (platnumsubclass == outNT) { /* No conversion */ if (Hputelement(file_id, DFTAG_FV, ref, (unsigned char *) sdg->fill_value, (int32) fileNTsize) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.fill_value = (intn)ref; } else { /* Allocate buffer */ uint8 buf2[DFSD_MAXFILL_LEN]; /* Convert from native to IEEE */ DFKconvert((VOIDP) sdg->fill_value, (VOIDP) buf2, numtype, 1, DFACC_WRITE, 0, 0); /* Write it into the file */ if (Hputelement(file_id, DFTAG_FV, ref, (unsigned char *) buf2, (int32) fileNTsize) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); Ref.fill_value = (intn)ref; } } /* Check to add to DFgroup */ if (Ref.fill_value > 0) { if (DFdiput(GroupID, DFTAG_FV, (uint16) Ref.fill_value) == FAIL) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } Ref.fill_value = (-1); /* Fill value should be reset for each data set */ if (!Ref.transpose) { /* if transposed, add transpose tag */ if (Hdupdd(file_id, DFTAG_SDT, ref, DFTAG_SDD, ref) == FAIL) HGOTO_ERROR(DFE_DUPDD, FAIL); Ref.transpose = (intn)ref; } if (Ref.transpose > 0) { if (DFdiput(GroupID, DFTAG_SDT, (uint16) Ref.transpose) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } if (numtype == DFNT_FLOAT32) { /* if float32, add a DFTAG_SDLNK */ DFdi lnkdd[2]; issdg = 1; lnkdd[0].tag = DFTAG_NDG; lnkdd[0].ref = ref; lnkdd[1].tag = DFTAG_SDG; lnkdd[1].ref = ref; bufp = ptbuf; for (i = 0; i < 2; i++) { UINT16ENCODE(bufp, lnkdd[i].tag); UINT16ENCODE(bufp, lnkdd[i].ref); } if ( Hputelement(file_id, DFTAG_SDLNK, ref, ptbuf, (int32) (bufp - ptbuf)) == FAIL) HGOTO_ERROR(DFE_PUTELEM, FAIL); /* write DFTAG_SDLNK */ if (DFdiput(GroupID, DFTAG_SDLNK, ref) < 0) HGOTO_ERROR(DFE_PUTGROUP, FAIL); } /* write out NDG */ if (DFdiwrite(file_id, GroupID, DFTAG_NDG, ref) < 0) HGOTO_ERROR(DFE_GROUPWRITE, FAIL); /* write an SDG point to the dataset if it is an NDG SDG */ if (issdg) { if (Hdupdd(file_id, DFTAG_SDG, ref, DFTAG_NDG, ref) == FAIL) HCLOSE_GOTO_ERROR(file_id,DFE_DUPDD, FAIL); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIendslice * Purpose: Write of data to SDG completed, write SDG and close file * Inputs: isfortran: true if called from Fortran * Returns: 0 on success, FAIL on failure with error set * Users: DFSDIputdata * Invokes: DFSDputsdg, Hclose, HERROR * Method: call DFSDputsdg, close Sfile_id * Remarks: checks that slice writes were completed. *---------------------------------------------------------------------------*/ intn DFSDIendslice(intn isfortran) { intn i; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIendslice"); HEclear(); if (Sfile_id == DF_NOFILE) HGOTO_ERROR(DFE_BADCALL, FAIL); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* check if slice writes complete */ for (i = 0; i < Writesdg.rank; i++) { if (!Fortorder && (i == 0) && (Sddims[i] == Writesdg.dimsizes[i])) continue; if ((isfortran || Fortorder) && (i == Writesdg.rank - 1) && (Sddims[i] == Writesdg.dimsizes[i])) continue; if ((isfortran || Fortorder || i > 0) && (!Fortorder || i < Writesdg.rank - 1) && (Sddims[i] == 0)) continue; HGOTO_ERROR(DFE_BADCALL, FAIL); } if (DFSDIputndg(Sfile_id, Writeref, &Writesdg) < 0) HCLOSE_GOTO_ERROR(Sfile_id,DFE_INTERNAL,FAIL); /* old nsdg table should be reset next time */ if (nsdghdr != NULL) { if (nsdghdr->nsdg_t != NULL) { DFnsdgle *rear, *front; rear = nsdghdr->nsdg_t; front = rear->next; while (rear != NULL) { HDfreenclear(rear); rear = front; if (rear != NULL) front = rear->next; } nsdghdr->size = 0; nsdghdr->nsdg_t = NULL; lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; } HDfreenclear(nsdghdr); } Lastref = Writeref; /* remember ref written */ Writeref = 0; /* don't know ref to write next */ Hendaccess(Writesdg.aid); ret_value = Hclose(Sfile_id); Sfile_id = 0; /* partial write complete */ HDfreenclear(Sddims); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /******************************************************************************/ /*----------------------- Internal routines ---------------------------------*/ /******************************************************************************/ /*----------------------------------------------------------------------------- * Name: DFSDIopen * Purpose: open or reopen a file * Inputs: filename: name of file to open * acc_mode : access mode * Returns: file id on success, -1 (FAIL) on failure with error set * Users: HDF systems programmers, many SD routines * Invokes: DFopen * Remarks: This is a hook for someday providing more efficient ways to * reopen a file, to avoid re-reading all the headers *---------------------------------------------------------------------------*/ int32 DFSDIopen(const char *filename, intn acc_mode) { int32 file_id; int32 ret_value = SUCCEED; CONSTR(FUNC, "DFSDIopen"); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Sfile_id != DF_NOFILE) /* in the middle of a partial write */ HGOTO_ERROR(DFE_ALROPEN, FAIL); /* if last filename buffer has not been allocated * allocate buffer for "Lastfile" and open file * else if same file as last time * use reopen - more efficient * else * open file for first time */ if (Lastfile == NULL) { Lastfile = (char *) HDmalloc((DF_MAXFNLEN + 1) * sizeof(char)); if (Lastfile == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* open file */ if (( file_id = Hopen(filename, acc_mode, (int16) 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); } else if ((HDstrcmp(Lastfile, filename)) || (acc_mode == DFACC_CREATE)) { /* open a new file, delete nsdg table and reset lastnsdg */ if (nsdghdr != NULL) { if (nsdghdr->nsdg_t != NULL) { DFnsdgle *rear, *front; rear = nsdghdr->nsdg_t; while (rear != NULL) { front = rear->next; HDfreenclear(rear); rear = front; } nsdghdr->size = 0; nsdghdr->nsdg_t = NULL; lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; } HDfreenclear(nsdghdr); } /* treat create as different file */ if (( file_id = Hopen(filename, acc_mode, (int16) 0))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); Newdata = (-1); /* data in Readsdg is not fresh */ Readsdg.data.ref = 0; /* No SDG read yet */ /* remember no info written to file */ Ref.scales = (Ref.scales >= 0) ? 0 : Ref.scales; Ref.luf[LABEL] = (Ref.luf[LABEL] >= 0) ? 0 : Ref.luf[LABEL]; Ref.luf[UNIT] = (Ref.luf[UNIT] >= 0) ? 0 : Ref.luf[UNIT]; Ref.luf[FORMAT] = (Ref.luf[FORMAT] >= 0) ? 0 : Ref.luf[FORMAT]; Ref.dims = (Ref.dims >= 0) ? 0 : Ref.dims; Ref.coordsys = (Ref.coordsys >= 0) ? 0 : Ref.coordsys; Ref.maxmin = (Ref.maxmin >= 0) ? 0 : Ref.maxmin; Ref.nt = (Ref.nt >= 0) ? 0 : Ref.nt; Ref.transpose = (Ref.transpose >= 0) ? 0 : Ref.transpose; } else { if (( file_id = Hopen(filename, acc_mode, (int16) 0))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); } /* if read, set up nsdg table */ if (nsdghdr == NULL) { nsdghdr = (DFnsdg_t_hdr *) HDmalloc((uint32) sizeof(DFnsdg_t_hdr)); if (nsdghdr == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); nsdghdr->size = 0; nsdghdr->nsdg_t = NULL; } if ((nsdghdr->nsdg_t == NULL) && (acc_mode == DFACC_READ)) { if (DFSDIsetnsdg_t(file_id, nsdghdr) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; } HIstrncpy(Lastfile, filename, DF_MAXFNLEN); /* remember filename, so reopen may be used next time if same file */ ret_value = file_id; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIsdginfo * Purpose: Locates next sdg in file * Inputs: file_id: pointer to DF file * Returns: 0 on success, FAIL on failure with error set * Users: HDF systems programmers, DFSDgetdims, DFSDgetdata * Invokes: DFIfind, DFSDIgetndg * Method: Call DFIfind to find SDG, then DFSDIgetndg to read it in to Readsdg * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIsdginfo(int32 file_id) { DFdi ptr; CONSTR(FUNC, "DFSDIsdginfo"); int32 aid; intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!HDvalidfid(file_id)) HGOTO_ERROR(DFE_BADCALL, FAIL); if (Readref != 0) { aid = Hstartread(file_id, DFTAG_NDG, Readref); if (aid != FAIL) { ptr.ref = Readref; ptr.tag = DFTAG_NDG; Hendaccess(aid); } else { aid = Hstartread(file_id, DFTAG_SDG, Readref); if (aid != FAIL) { ptr.ref = Readref; ptr.tag = DFTAG_SDG; Hendaccess(aid); } else HGOTO_ERROR(DFE_BADAID, FAIL); } } else { if (DFSDInextnsdg(nsdghdr, &ptr) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); if ((ptr.tag != DFTAG_NDG) && (ptr.tag != DFTAG_SDG)) HGOTO_ERROR(DFE_BADTAG, FAIL); if (ptr.ref == DFREF_WILDCARD) HGOTO_ERROR(DFE_BADREF, FAIL); Readref = ptr.ref; } /* find next sd object */ if (DFSDIgetndg(file_id, ptr.tag, ptr.ref, &Readsdg) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* remember what type of thing we just read */ Readsdg.isndg = (ptr.tag == DFTAG_NDG) ? 1 : 0; Lastref = ptr.ref; /* remember ref read */ lastnsdg.tag = ptr.tag; lastnsdg.ref = ptr.ref; Newdata = 1; /* now Readsdg is fresh */ Readref = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIrefresh * Purpose: get next sdg if Readsdg is not fresh * Inputs: filename * Returns: 0 on success, FAIL on failure with error set * Users: HDF systems programmers, functions in dfsdF.c * Invokes: DFSDIopen, DFSDIsdginfo * Method: test Newdata and Nextsdg, call DFSDIsdginfo if necessary * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIrefresh(char *filename) { int32 file_id; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIrefresh"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata != 1 || Nextsdg) { /* if Readsdg not fresh */ if (( file_id = DFSDIopen(filename, DFACC_READ))== FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (DFSDIsdginfo(file_id) < 0) HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL, FAIL); if (Hclose(file_id) < 0) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); Nextsdg = 0; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIisndg * Purpose: is the current read sds an sdg or nsdg/ndg * Inputs: isndg: 0 -- pure sdg( written by 3.1); 1 -- nsdg/ndg * Returns: 0 on success, FAIL on failure with error set * Users: HDF systems programmers, functions in dfsdF.c * Invokes: none * Method: Assigns Readsdg.isndg to isndg. * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIisndg(intn *isndg) { intn ret_value = SUCCEED; *isndg = (intn) Readsdg.isndg; return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIgetrrank * Purpose: get rank of the current sdg, to transpose dims for Fortran * Inputs: &rank: address to return the rank * Returns: 0 on success, FAIL on failure with error set * Users: HDF systems programmers, functions in dfsdF.c * Invokes: none * Method: Assigns Readsdg.rank to rank. * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIgetrrank(intn *rank) { intn ret_value = SUCCEED; *rank = (intn) Readsdg.rank; return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIgetwrank * Purpose: get rank of the current sdg, to transpose dims for Fortran * Inputs: &rank: address to return the rank * Returns: 0 on success, FAIL on failure with error set * Users: HDF systems programmers, functions in dfsdF.c * Invokes: none * Method: Assigns Readsdg.rank to rank. * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIgetwrank(intn *rank) { intn ret_value = SUCCEED; *rank = (intn) Writesdg.rank; return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIclear * Purpose: Reset all "set" values, free allocated space * Inputs: sdg: pointer to sdg struct to clear * Globals: Ref * Returns: 0 on success, FAIL on error with error set * Users: HDF users, utilities, other routines * Invokes: none * Method: Release space in sdg * Remarks: none *---------------------------------------------------------------------------*/ intn DFSDIclear(DFSsdg * sdg) { intn i; intn luf; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIclear"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Sfile_id != DF_NOFILE) /* cannot clear during slice writes */ HGOTO_ERROR(DFE_BADCALL, FAIL); HDfreenclear(sdg->dimsizes); HDfreenclear(sdg->coordsys); /* free label/unit/format pointers */ for (luf = LABEL; luf <= FORMAT; luf++) { if (sdg->dimluf[luf]) { /* free strings */ for (i = 0; i < sdg->rank; i++) HDfreenclear(sdg->dimluf[luf][i]); } /* free string pointers */ HDfreenclear(sdg->dimluf[luf]); /* free data string */ HDfreenclear(sdg->dataluf[luf]); } /* free scale pointers */ if (sdg->dimscales) { for (i = 0; i < sdg->rank; i++) HDfreenclear(sdg->dimscales[i]); } /* free array of scale pointers */ HDfreenclear(sdg->dimscales); sdg->rank = 0; /* number type is independant to dimsizes 4/7/92 sxu sdg->numbertype = DFNT_NONE; sdg->filenumsubclass = DFNTF_NONE; */ sdg->aid = (int32) -1; sdg->compression = (int32) 0; FileTranspose = 0; sdg->fill_fixed = FALSE; /* allow fill_value to be changed */ Ref.dims = -1; Ref.scales = Ref.luf[LABEL] = Ref.luf[UNIT] = Ref.luf[FORMAT] = (-1); Ref.coordsys = Ref.maxmin = (-1); Ref.new_ndg = -1; Ref.fill_value = -1; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIgetdata * Purpose: Get data from SDG. Will sequence to next SDG if DFSDgetdims not * called. * Inputs: filename: name of HDF file to use * rank: no of dimensions of array "data" * maxsizes: actual dimensions of array "data" * data: data for returning scientific data * isfortran : 0 if called from C, 1 when called from FORTRAN * Returns: 0 on success, FAIL on failure with error set * Outputs: actual scientific data in array * Users: DFSDgetdata * Invokes: DFSDIgetslice, HDmalloc, HDfree, DFSDIopen, Hclose, * HERROR, DFSDIsdginfo * Method: Open file, call DFSDIsdginfo to read sdg if necessary, set up * window start and end arrays, call DFSDIgetslice. * Remarks: maxsizes may be larger than actual size. In that event, the actual * data may not be contiguous in the array "data" * User sets maxsizes before call. *---------------------------------------------------------------------------*/ intn DFSDIgetdata(const char *filename, intn rank, int32 maxsizes[], VOIDP data, intn isfortran) { intn i; int32 *winst; int32 *windims; int32 file_id; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIgetdata"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata != 1 || Nextsdg) { /* if Readsdg not fresh */ if (( file_id = DFSDIopen(filename, DFACC_READ))== DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (DFSDIsdginfo(file_id) < 0) HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL, FAIL); if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); } winst = (int32 *) HDmalloc((uint32) Readsdg.rank * sizeof(int32)); if (winst == NULL) HGOTO_ERROR(DFE_NOSPACE,FAIL); windims = (int32 *) HDmalloc((uint32) Readsdg.rank * sizeof(int32)); if (windims == NULL) { HDfree((VOIDP) winst); HGOTO_ERROR(DFE_NOSPACE,FAIL); } for (i = 0; i < rank; i++) { winst[i] = 1; windims[i] = Readsdg.dimsizes[i]; } ret_value = DFSDIgetslice(filename, winst, windims, data, maxsizes, isfortran); Nextsdg = 1; HDfree((VOIDP) winst); HDfree((VOIDP) windims); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- * Name: DFSDIputdata * Purpose: Writes entire SDG to file * Inputs: filename: name of HDF file to use * rank: rank of data array * dimsizes: sizes of the dimensions of data array * data: array that holds data * accmode: 0 if write to new file, 1 if append to file * isfortran: 0 if C, 1 if FORTRAN * Globals: Writeref * Returns: 0 on success, FAIL on failure with error set * Users: HDF users, utilities, other routines * Invokes: DFSDIopen, Hclose, HDmalloc, HDfree, DFSDIputslice, * DFSDstartslice, DFSDIendslice * Method: Create file if necessary, allocate arrays, call slice routines *---------------------------------------------------------------------------*/ intn DFSDIputdata(const char *filename, intn rank, int32 *dimsizes, VOIDP data, intn accmode, intn isfortran) { int32 file_id; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIputdata"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!accmode) { /* new file */ if (( file_id = DFSDIopen(filename, DFACC_CREATE))== DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); } if (Ref.dims) { /* don't call setdims if already called */ if (DFSDsetdims(rank, dimsizes) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); } if (DFSDstartslice(filename) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (DFSDIputslice(Writesdg.dimsizes, data, dimsizes, isfortran) < 0) HGOTO_ERROR(DFE_INTERNAL, FAIL); ret_value = DFSDIendslice(isfortran); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------- * Name: DFSDIgetslice * Purpose: Get slice of data from SDG. Will sequence to next SDG if * DFSDgetdims, DFSDgetdata or DFSDgetslice not called earlier. * Inputs: filename: name of HDF file to use * winst: array of size = rank of data, containing start of slice * windims: array of size rank, containing size of slice * data: array for returning slice * dims: dimensions of array data * isfortran : 0 if called from C, 1 when called from FORTRAN * Returns: 0 on success, FAIL on failure with error set * Outputs: slice of data in data * Users: DFSDIgetdata * Invokes: DFSDIopen, Hclose, HERROR, DFSDIsdginfo, DFaccess, DFread * Method: Open file, call DFSDIsdginfo to read sdg if necessary, read the * data, convert types if necessary, place in data as appropriate * data is assumed column major for FORTRAN, row major for C * Remarks: dims may be larger than size of slice. In that event, the actual * data may not be contiguous in the array "data". * User sets dims before call. *--------------------------------------------------------------------------*/ /*****************************************************************************/ /* DESIGN DECISIONS */ /*****************************************************************************/ /* A. All stride/index/offset value will, when this is done -- refer to element counts rather than byte counts in the name of consistency. B. The conversion buffers/allcated areas... will all be char buffers -- providing that the Cray-2 is cooperative. */ /*****************************************************************************/ /*****************************************************************************/ /* CHANGE LOG */ /*****************************************************************************/ /* A. */ /*****************************************************************************/ intn DFSDIgetslice(const char *filename, int32 winst[], int32 windims[], VOIDP data, int32 dims[], intn isfortran) { intn rank; /* number of dimensions in data[] */ int32 leastsig; /* fastest varying subscript in the array */ int32 error; /* flag if an error occurred, */ /* used by DFconvert macro */ int32 convert; /* true if machine NT != NT to be read */ int32 transposed; /* true if we must transpose the data before writing */ int32 done; /* true if we are at the end of the slice */ int32 aid; int32 i, j; /* temporary loop index */ int32 issdg; /* 1 -- pure sdg. do what HDF3.1 does */ int32 *wstart; /* tmp array containing starting slice dims */ int32 *wdims; /* tmp array containing the slice size */ int32 *adims; /* tmp array containing the dimensions of data[] */ int32 *fdims; /* tmp array containing the dimensions */ /* of the dataset in the file */ int32 numtype; /* current number type */ int32 fileNTsize; /* size of this NT in the file */ int32 localNTsize; /* size of this NT as it occurs in this machine */ int32 numelements; /* number of floats to read at once */ int32 readsize; /* number of bytes to read at once */ int32 datastride; /* number of floats in one row of data[] */ int32 *offset; /* array for accessing the next element in data[] */ int32 *foffset; /* array for accessing the next element in the file */ int32 *dimsleft; /* array for tracking the current position in data[] */ int32 isnative; int32 fileoffset; /* offset into the current dataset in the file */ uint8 platnumsubclass; /* class of this NT for this platform */ uint8 fileNT; /* file number subclass */ uint8 *scatterbuf; /* buffer to hold the current row contiguously */ uint8 *sp; /* ptr into scatterbuf */ uint8 *datap; /* ptr into data[] at starting offset */ /* of current block */ uint8 *dp; /* ptr into data[] at an element of the current row */ uint8 *buf; /* buffer containing the converted current row */ int32 file_id; /* HDF file pointer */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIgetslice"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (data == NULL) HGOTO_ERROR(DFE_BADPTR, FAIL); if (( file_id = DFSDIopen(filename, DFACC_READ))== DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (Newdata != 1) { /* if Readsdg not fresh */ if (DFSDIsdginfo(file_id) < 0) /* reads next SDG from file */ HCLOSE_GOTO_ERROR(file_id,DFE_INTERNAL, FAIL); } rank = Readsdg.rank; numtype = Readsdg.numbertype; fileNT = Readsdg.filenumsubclass; issdg = Readsdg.isndg ? 0 : 1; isnative = DFNT_NATIVE; localNTsize = DFKNTsize((numtype | isnative) & (~DFNT_LITEND)); fileNTsize = DFKNTsize(numtype); platnumsubclass = (uint8)DFKgetPNSC(numtype & (~DFNT_LITEND), (int32)DF_MT); /* get dimensions of slice to extract, set nwindims. also err check */ for (i = 0; i < (int32) rank; i++) { /* check validity for the dimension ranges */ if ((windims[i] < 1) || (winst[i] < 1) || (winst[i] + windims[i] - 1 > Readsdg.dimsizes[i])) { HCLOSE_GOTO_ERROR(file_id, DFE_BADDIM, FAIL); } /* check if space allocated is sufficient */ if (dims[i] < windims[i]) { HCLOSE_GOTO_ERROR(file_id, DFE_NOTENOUGH, FAIL); } } /* allocate buffers */ wstart = (int32 *) HDmalloc((size_t) (4 * rank) * sizeof(int32)); if (wstart == NULL) { HCLOSE_GOTO_ERROR(file_id, DFE_NOSPACE, FAIL); } wdims = wstart + rank; adims = wdims + rank; fdims = adims + rank; /* copy arrays to private workspace (so that they are in row major order) */ for (i = 0; i < (int32) rank; i++) { int32 ii = (issdg && isfortran) ? rank - i - 1 : i; adims[i] = dims[ii]; ii = (issdg && FileTranspose) ? rank - i - 1 : i; wstart[i] = winst[ii] - 1; /* translate to 0 origin */ wdims[i] = windims[ii]; fdims[i] = Readsdg.dimsizes[ii]; } convert = (fileNT != platnumsubclass); /* is conversion necessary */ transposed = issdg && (isfortran ^ FileTranspose); /* is transposition needed */ /* * Note that if the data is transposed we must work on a row by row * basis and cannot collapse dimensions. */ if (!transposed) { /* collapse dimensions if contiguous both in the file and in memory */ for (i = (int32) rank - 1; i > 0; i--) { /* stop before most sig dim */ if (adims[i] > wdims[i] /* not all of data[] will be filled */ || wstart[i] != 0 /* reading only part of the dataset */ || wdims[i] < fdims[i]) { break; } wstart[i - 1] *= fdims[i]; wdims[i - 1] *= wdims[i]; adims[i - 1] *= adims[i]; fdims[i - 1] *= fdims[i]; rank--; } } leastsig = (int32) rank - 1; /* which is least sig dim */ /* position at start of data set */ aid = Hstartread(file_id, Readsdg.data.tag, Readsdg.data.ref); if (aid == FAIL) { HDfree((VOIDP) wstart); HCLOSE_GOTO_ERROR(file_id,DFE_BADAID, FAIL); } error = 0; if (rank == 1 && !convert) { /* all data is contiguous with no conversions */ readsize = adims[0] * fileNTsize; if ((Hseek(aid, wstart[0] * fileNTsize, 0) == FAIL) || (readsize != Hread(aid, readsize, (uint8 *) data))) { error = 1; } } else { /* * The data must be further manipulated. * It may be transposed, may need conversion, may not be contiguous, or * any combination of these. */ numelements = wdims[leastsig]; readsize = numelements * fileNTsize; /* allocate 1 row buffers */ if (convert) { if ((buf = (uint8 *) HDmalloc((uint32) readsize)) == NULL) { HDfree((VOIDP) wstart); Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id, DFE_NOSPACE, FAIL); } } else buf = NULL; if (transposed) { scatterbuf = (uint8 *) HDmalloc((size_t) (numelements * localNTsize)); if (scatterbuf == NULL) { HDfree((VOIDP) wstart); HDfree((VOIDP) buf); Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id, DFE_NOSPACE, FAIL); } } else scatterbuf = NULL; offset = (int32 *) HDmalloc((size_t) (3 * rank) * sizeof(int32)); if (offset == NULL) { HDfree((VOIDP) wstart); HDfree((VOIDP) buf); HDfree((VOIDP) scatterbuf); Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id, DFE_NOSPACE, FAIL); } foffset = offset + rank; dimsleft = foffset + rank; /* compute initial position in the data */ for (i = leastsig; i >= 0; i--) dimsleft[i] = wdims[i]; /* compute offsets in the source array */ if (transposed) { offset[0] = 1 * localNTsize; for (i = 0; i < leastsig; i++) offset[i + 1] = offset[i] * adims[leastsig - i]; } else { offset[leastsig] = 1 * localNTsize; for (i = leastsig; i > 0; i--) offset[i - 1] = offset[i] * adims[i]; } datastride = offset[leastsig]; /* compute offsets in the file */ for (i = leastsig, foffset[i] = 1 * fileNTsize; i > 0; i--) foffset[i - 1] = foffset[i] * fdims[i]; /* * Compute starting position in file * All file reads are done relative to this starting offset. * Cumulative offset is from most sig to next to least sig dim. */ for (i = 0, fileoffset = 0; i < leastsig; i++) fileoffset = (fileoffset + wstart[i]) * fdims[i + 1]; fileoffset += wstart[leastsig]; /* adjust for last dim */ fileoffset *= fileNTsize; /* convert to bytes */ datap = (uint8 *) data; done = 0; /* -- now read in the data */ do { /* move to the next data element in the file */ if (Hseek(aid, fileoffset, 0) == FAIL) { error = 1; break; } /* read and convert one contiguous block of data */ if (convert) { if (readsize != Hread(aid, readsize, buf)) { error = 1; break; } DFKconvert((VOIDP) buf, transposed ? (VOIDP) scatterbuf : (VOIDP) datap, numtype, numelements, DFACC_READ, 0, 0); } else { if (readsize != Hread(aid, readsize, transposed ? scatterbuf : datap)) { error = 1; break; } } if (transposed) { /* scatter out the elements of one row */ for (dp = datap, sp = scatterbuf, i = 0; i < numelements; i++) { for (j = 0; j < localNTsize; j++) *(dp + j) = *(sp + j); sp += localNTsize; dp += datastride; } } /* * Find starting place of the next row/block. * Note that all moves are relative: * this preserves the starting offsets of each dimension */ for (i = leastsig - 1; i >= 0; i--) { if (--dimsleft[i] > 0) { /* move to next element in the current dimension */ datap += offset[i]; fileoffset += foffset[i]; break; } else { dimsleft[i] = wdims[i]; /* * Note that we are still positioned at the beginning of * the last element in the current dimension */ /* move back to the beginning of dimension i */ datap -= offset[i] * (wdims[i] - 1); /* move back to beginning read position of dimension i */ fileoffset -= foffset[i] * (wdims[i] - 1); if (i == 0) done = 1; } } } while (!done && leastsig > 0); if (buf != NULL) HDfree((VOIDP) buf); if (scatterbuf != NULL) HDfree((VOIDP) scatterbuf); if (offset != NULL) HDfree((VOIDP) offset); } Hendaccess(aid); HDfree((VOIDP) wstart); if (error) { Hclose(file_id); ret_value = FAIL; } else ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------- * Name: DFSDIputslice * Purpose: Put slice of data to SDG. * Inputs: windims: array of size rank, containing size of slice * data: array containing slice * dims: dimensions of array data * isfortran: 0 for C, 1 for Fortran * Returns: 0 on success, FAIL on failure with error set * Users: DFSDputslice * Invokes: DFwrite, HDmalloc, HDfree,DFKnumout(if conversion required) * Method: check dimensions for contiguity, convert types if necessary * write to file * Remarks: dims may be larger than size of slice. In that event, the actual * data may not be contiguous in the array "data". * DFSDstartslice must have been called first * If DFKnumout is called, DFSDsetNT may need to have been * called * Note, writes must be contiguous - successive calls to putslice * must write out array consecutively, according to the setting * of the Fortorder variable - row major if 0, column major if 1 *--------------------------------------------------------------------------*/ intn DFSDIputslice(int32 windims[], VOIDP data, int32 dims[], intn isfortran) { intn rank; /* number of dimensions in data[] */ int32 leastsig; /* fastest varying subscript in the array */ int32 convert; /* true if machine NT = NT to be written */ int32 contiguous; /* true if there are no gaps in the data to be written */ int32 numtype; /* current number type */ int32 platnumsubclass; /* class of this NT for this platform */ int32 fileNTsize; /* size of this NT as it will be in the file */ int32 fileNT; /* class of NT for the data to write */ int32 isnative; int32 localNTsize; /* size of this NT as it occurs in theis machine */ int32 ret = SUCCEED; /* return code from DFwrite */ int32 i, j; /* temporaries */ int32 numelements; /* number of elements to write out per row */ int32 writesize; /* number of bytes to write out per row */ int32 datastride; /* number of bytes in one row of data[] */ uint8 *datap; /* pointer into data[] at */ /* the start of the current row */ uint8 *buf; /* buffer containing converted current row */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDIputslice"); /* shut compiler up */ isfortran = isfortran; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (!data) HGOTO_ERROR(DFE_BADPTR, FAIL); if (Sfile_id == DF_NOFILE) HGOTO_ERROR(DFE_BADCALL, FAIL); rank = Writesdg.rank; for (i = 0; i < (int32) rank; i++) { /* check validity for the dimension ranges */ if ((windims[i] <= 0) || (windims[i] > Writesdg.dimsizes[i])) HGOTO_ERROR(DFE_BADDIM, FAIL); /* check if space allocated is sufficient */ if (dims[i] < windims[i]) HGOTO_ERROR(DFE_NOTENOUGH, FAIL); } /* check to see if the slices fit together */ /* Same for Fortran or C */ /* find the first significant dimension */ for (i = 0; windims[i] == 1 && i < (int32) rank - 1; i++) /* empty */ ; /* check that all 'lesser' dims match */ for (j = i + 1; j < (int32) rank; j++) { if (Writesdg.dimsizes[j] != windims[j]) HGOTO_ERROR(DFE_BADDIM, FAIL); } /* update Sddims to reflect new write */ Sddims[i] += windims[i]; for (; i > 0 && Sddims[i] >= Writesdg.dimsizes[i]; i--) { Sddims[i - 1] += Sddims[i] / Writesdg.dimsizes[i]; /* promote the unit */ Sddims[i] %= Writesdg.dimsizes[i]; } leastsig = (int32) rank - 1; /* which is least sig dim */ numtype = Writesdg.numbertype; /* get class of this num type for this platform */ fileNT = (int32)Writesdg.filenumsubclass; isnative = DFNT_NATIVE; fileNTsize = DFKNTsize(numtype); localNTsize = DFKNTsize((numtype | isnative) & (~DFNT_LITEND)); platnumsubclass = (int32)DFKgetPNSC(numtype & (~DFNT_LITEND), (int32)DF_MT); convert = (platnumsubclass != fileNT); contiguous = 1; for (i = 0; contiguous && i < (int32) rank; i++) { /* check if data at the end of the users array will be contiguous */ if (dims[i] > Writesdg.dimsizes[i]) contiguous = 0; /* Note: if a winstart[] array is ever added, will also need */ /* to check if data at start of users array will be */ /* contig */ } /* * 2 Factors that determine how we write (in order of importance) * conversion and contiguous */ datap = (uint8 *) data; if (!convert && contiguous) { /* compute total number of elements to write */ for (i = 0, numelements = 1; i < (int32) rank; i++) numelements *= windims[i]; writesize = numelements * fileNTsize; if ( Hwrite(Writesdg.aid, writesize, (uint8 *) data) == FAIL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_WRITEERROR, FAIL); } else { /* must step through the data */ /* compute number of occurrences of the least sig dim */ if (Fortorder) { for (i = (int32) rank - 1, j = 1; i > 0; i--) j *= windims[i]; } else { for (i = 0, j = 1; i < (int32) rank - 1; i++) j *= windims[i]; } numelements = windims[leastsig]; writesize = numelements * fileNTsize; datastride = dims[leastsig] * localNTsize; if (convert) { buf = (uint8 *) HDmalloc((uint32) writesize); if (buf == NULL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); for (i = 0; i < j; i++, datap += datastride) { DFKconvert((VOIDP) datap, (VOIDP) buf, numtype, numelements, DFACC_WRITE, 0, 0); ret = Hwrite(Writesdg.aid, writesize, buf); /* done */ if (ret == FAIL) { HDfree((VOIDP) buf); HCLOSE_GOTO_ERROR(Sfile_id,DFE_WRITEERROR, FAIL); } } HDfree((VOIDP) buf); } else { /* !contiguous */ for (i = 0; i < j; i++, datap += datastride) if ( Hwrite(Writesdg.aid, writesize, datap) == FAIL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_WRITEERROR, FAIL); } } ret_value = (ret >= 0 ? 0 : -1); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDgetcal USAGE int DFSDgetcal(pcal, pcal_err, pioff, pioff_err, cal_nt) float64 *pcal; OUT: calibration factor float64 *pcal_err; OUT: calibration error value float64 *pioff; OUT: uncalibrated offset value float64 *pioff_err; OUT: uncalibrated offset error value int32 *cal_nt; OUT: Nunber type of uncalibrated data RETURNS Returns SUCCED(0) if successful and FAIL(-1) otherwise. DESCRIPTION This routine reads the calibration record, if there is one, attached to the scientific data set. A calibration record contains four 64-bit floating point values followed by a 32-bit integer, to be interpreted as follows: cal - calibration factor cal_err - calibration error offset - uncalibrated offset offset_err - uncalibrated offset error num_type - number type of uncalibrated data The relationship between a value 'iy' stored in a data set and the actual value 'y' is defined as: y = cal * (iy - offset) The variable "offset_err" contains a potential error of offset, and "cal_err" contains a potential error of "cal". Currently the calibration record is provided for information only. The DFSD interface performs no operations on the data based on the calibration tag. ----------------------------------------------------------------------------*/ intn DFSDgetcal(float64 *pcal, float64 *pcal_err, float64 *pioff, float64 *pioff_err, int32 *cal_nt) { intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDgetcal"); HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); if (IsCal) { *pcal = Readsdg.cal; *pcal_err = Readsdg.cal_err; *pioff = Readsdg.ioff; *pioff_err = Readsdg.ioff_err; *cal_nt = Readsdg.cal_type; ret_value = SUCCEED; } else HGOTO_ERROR(DFE_NOVALS, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* DFSDgetcal */ /*----------------------------------------------------------------------------- NAME DFSDsetcal USAGE intn DFSDsetcal(cal, cal_err, ioff, ioff_err, cal_nt) float64 cal; IN: calibration factor float64 cal_err; IN: calibration error float64 ioff; IN: uncalibrated offset float64 ioff_err; IN: uncalibrated offset error int32 cal_nt; IN: number type of uncalibrated data RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Sets the calibration information associated with data. This routine sets the calibration record attached to a data set. A calibration record contains four 64-bit floating point values followed by a 32-bit integer, to be interpreted as follows: cal - calibration factor cal_err - calibration error offset - uncalibrated offset offset_err - uncalibrated offset error num_type - number type of uncalibrated data The relationship between a value 'iy' stored in a data set and the actual value 'y' is defined as: y = cal * (iy - offset) The variable "offset_err" contains a potential error of offset, and "cal_err" contains a potential error of "cal". Currently the calibration record is provided for information only. The DFSD interface performs no operations on the data based on the calibration tag. "DFSDsetcal" works like other "DFSDset*" routines, with one exception: the calibration information is automatically cleared after a call to "DFSDputdata" or "DFSDadddata". Hence, "DFSDsetcal" must be called anew for each data set that is to be written. ----------------------------------------------------------------------------*/ intn DFSDsetcal(float64 cal, float64 cal_err, float64 ioff, float64 ioff_err, int32 cal_nt) { CONSTR(FUNC, "DFSDsetcal"); intn ret_value = SUCCEED; HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); Writesdg.cal = (float64) cal; Writesdg.cal_err = (float64) cal_err; Writesdg.ioff = (float64) ioff; Writesdg.ioff_err = (float64) ioff_err; Writesdg.cal_type = (int32) cal_nt; Ref.cal = 0; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDwriteref USAGE int DFSDwriteref(filename, ref) char *filename; IN: HDF file to write to uint16 ref; IN: reference number for the next writing of data RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Specifies the data set to be written to next by using the reference number. Note that there is no gaurantee that reference numbers appear in sequence in and HDF file; therefore, it is not safe to assume that a reference number is the sequence number for a data set. -----------------------------------------------------------------------------*/ intn DFSDwriteref(const char *filename, uint16 ref) { int32 file_id; int32 aid; intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDwriteref"); /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Open file for read access */ if (( file_id = DFSDIopen(filename, DFACC_READ))== DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* Check for existence of SDG */ if ((aid = Hstartread(file_id, DFTAG_SDG, ref)) == FAIL && (aid = Hstartread(file_id, DFTAG_NDG, ref)) == FAIL) { HCLOSE_GOTO_ERROR(file_id, DFE_NOMATCH, FAIL); } /* ** Probably need to call DFSDgetndg to intialize Writesdg struct ** This is so that we use the information of an SDG that has ** already been written out. Once a SDG has been written out, ** a user should not be able to change attributes such as ** numbertype, dimensions or fill value. */ if ((DFSDIgetndg(file_id, DFTAG_SDG, ref, &Writesdg) < 0) && (DFSDIgetndg(file_id, DFTAG_NDG, ref, &Writesdg) < 0)) { Hendaccess(aid); HCLOSE_GOTO_ERROR(file_id, DFE_INTERNAL, FAIL); } /* Close access to file, set Writeref */ Hendaccess(aid); Writeref = ref; Lastref = ref; ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDsetfillvalue USAGE int DFSDsetfillvalue(fill_value) VOID *fill_value; IN: number to be stored in any unwritten locations of the scientific data set RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Set the value used to fill in any unwritten location in a scientific data set. Since the data is written in hyperslabs, it is possible that not alof the possible locations in a given data set are written to. The fill value is placed into all unwritten locations. The value gets written if the following "DFSDwriteslab" call is the first call to the data set i.e. the data set is created. It is assumed that the fille value has the same number type as the data set. WARNING Memory bug on SGI's if you try to free allocated space for fill values. -----------------------------------------------------------------------------*/ intn DFSDsetfillvalue(VOIDP fill_value) { int32 numtype; /* current number type */ uint32 localNTsize; /* size of this NT on as it is on this machine */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDsetfillvalue"); /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check to see if fill value written out already */ if (Ref.fill_value == -1 && Writesdg.fill_fixed == TRUE) { HGOTO_ERROR(DFE_INTERNAL, FAIL); } else { /* Get local and file number type sizes */ numtype = Writesdg.numbertype; localNTsize = (uint32)DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); /* Set fill value in Writesdg struct, and set fill value flag */ Ref.fill_value = 0; if (HDmemcpy(Writesdg.fill_value, fill_value, localNTsize) != NULL) ret_value = SUCCEED; else ret_value = FAIL; } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDgetfillvalue USAGE int DFSDgetfillvalue(fill_value) VOID *fill_value; OUT: Number to be stored in any unwritten locations of the scientific data set RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Gets the value used to fill any unwritten location in a scientific data set. The value is set by "DFSDsetfillvalue". Note that a call that initializes file information structures such as "DFSDgetdims" is required in order for "DFSDgetfillvalue" to succeed. This is because "DFSDgetfillvalue" does not take a file name as an arguement. -----------------------------------------------------------------------------*/ intn DFSDgetfillvalue(VOIDP fill_value) { int32 numtype; /* current number type */ uint32 localNTsize; /* size of this NT on as it is on this machine */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDgetfillvalue"); /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check if Readsdg is fresh */ if (Newdata < 0) HGOTO_ERROR(DFE_BADCALL, FAIL); /* Get local number type size */ numtype = Readsdg.numbertype; localNTsize = (uint32)DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); /* Set return fill value */ if (HDmemcpy(fill_value, Readsdg.fill_value, localNTsize) != NULL) ret_value = SUCCEED; else ret_value = FAIL; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDreadslab USAGE int DFSDreadslab(filename, start, slab_size, stride, buffer, buffer_size) char *filename; IN: name of HDF file to write to int32 start[]; IN: array of size rank containing the coordinates for the start of the slab of data int32 slab_size[]; IN: array of size rank containing the size of each dimension in the slab of data int32 stride[]; IN: sub-sampling stride(not implemented) VOIDP buffer; OUT: buffer to hold the extracted slab of data int32 buffer_size[]; OUT: array containing the dimensions of the buffer RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Reads a sub-array of data from a scientific data set. "DFSDreadslab" will sequence to the next scientific data set if "DFSDgetdims" or "DFSDgetdata" is not called earlier. The "start[]" indices are relative to 1. The rank(size) of "start[]" must be the same as the number of dimensions of the specified variable. The elements of "slab_size[]" must be no larger than the dimensions of the scientific data set. The stride feature is not currently implemented. For now just pass the "start[]" array as the arguement for "stride[]" where it will be ignored. To extract a slab of lower dimension than that of the data set, enter 1 in the "slab_size[] array for each ommitted dimension. For example, to extract a 2D slab from a 3D data set, specify the beginning coordiantes in 3 dimensions in "start[]" and enter a 1 for the for the missing dimension in the array "slab_size[]". More specifically, to extract a 3x4 slab containing the elements (6,7,8) through (8.7,11) specify the begining coordiantes as {6,7,8} and the slab size as {3,1,4}. -----------------------------------------------------------------------------*/ intn DFSDreadslab(const char *filename, int32 start[], int32 slab_size[], int32 stride[], VOIDP buffer, int32 buffer_size[]) { intn ret_value = SUCCEED; /* shut compiler up */ stride = stride; ret_value = (DFSDgetslice(filename, start, slab_size, buffer, buffer_size)); return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDstartslab USAGE int DFSDstartslab(filename) char *filename; IN: name of HDF file to write to RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Prepares the DFSD interface to write a slab(s) od data to a scientific data set. "DFSDsetdims" must be called before calling "DFSDstartslab". No call which needs to open a file may be made after a "DFSDstartslab" call until "DFSDendslab" is called. This routine will write out the fill values if "DFSDsetfillvalue" is called before this routine and this is the first write(i.e. creation) to the data set. -----------------------------------------------------------------------------*/ intn DFSDstartslab(const char *filename) { int32 i; int32 sdg_size; int32 localNTsize; int32 fileNTsize; int32 fill_bufsize = 16384; /* Chosen for the PC */ int32 odd_size; uint8 *fill_buf; uint8 platnumsubclass; uint8 outNT; /* file number type subclass */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDstartslab"); /* Clear errors */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Check rank set i.e. DFSDsetdims() */ if (!Writesdg.rank) HGOTO_ERROR(DFE_BADDIM, FAIL); /* If NT not set(i.e. DFSDsetNT() not called), default to float32 */ if (Writesdg.numbertype == DFNT_NONE) DFSDsetNT(DFNT_FLOAT32); /* Open file */ if (( Sfile_id = DFSDIopen(filename, DFACC_WRITE))== DF_NOFILE) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* ** Check for Writeref set i.e. DFSDwriteref() called? ** If not Writeref then we create a new Writeref i.e new SDG ** Else use existing one. */ /* Set tag, ref of SDG to write */ Writesdg.data.tag = DFTAG_SD; if (!Writeref) Writeref = Hnewref(Sfile_id); if (!Writeref) HGOTO_ERROR(DFE_BADREF, FAIL); Writesdg.data.ref = Writeref; /* Intialize a few local variables */ localNTsize = DFKNTsize((Writesdg.numbertype | DFNT_NATIVE) & (~DFNT_LITEND)); fileNTsize = DFKNTsize(Writesdg.numbertype); /* Calculate size of of dataset */ sdg_size = fileNTsize; for (i = 0; i < Writesdg.rank; i++) sdg_size *= Writesdg.dimsizes[i]; /* set up to write data */ Writesdg.aid = Hstartwrite(Sfile_id, DFTAG_SD, Writeref, sdg_size); if (Writesdg.aid == FAIL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_BADAID, FAIL); /* ** Check if fill value is set */ if (!Ref.fill_value) { /* make the fill buffer smaller if possible */ if (fill_bufsize > sdg_size && localNTsize == fileNTsize) fill_bufsize = sdg_size; /* Allocate space for fill buffer */ if ((fill_buf = (uint8 *) HDmalloc((uint32) fill_bufsize)) == NULL) { Hendaccess(Writesdg.aid); HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); } /* Get number types and compare */ outNT = Writesdg.filenumsubclass; platnumsubclass = (uint8)DFKgetPNSC(Writesdg.numbertype, (int32)DF_MT); if (platnumsubclass != outNT) { /* conversion */ /* Allocate buffer */ uint8 buf2[DFSD_MAXFILL_LEN]; /* Convert from native to IEEE */ DFKconvert((VOIDP)&Writesdg.fill_value, (VOIDP) buf2, Writesdg.numbertype, 1, DFACC_WRITE, 0, 0); /* Intialize buffer to fill value */ for (i = 0; i < fill_bufsize; i = i + localNTsize) HDmemcpy(&(fill_buf[i]), buf2, localNTsize); } else /* no conversion */ { /* Intialize buffer to fill value */ for (i = 0; i < fill_bufsize; i = i + localNTsize) HDmemcpy(&(fill_buf[i]), Writesdg.fill_value, localNTsize); } /* Write fill values */ if (sdg_size <= fill_bufsize) odd_size = sdg_size; else { odd_size = sdg_size % fill_bufsize; for (i = 0; i < (sdg_size / fill_bufsize); i++) { /* Write out fill buffer X times */ if (Hwrite(Writesdg.aid, fill_bufsize, fill_buf) == FAIL) { Hendaccess(Writesdg.aid); HDfree((VOIDP) fill_buf); HCLOSE_GOTO_ERROR(Sfile_id,DFE_WRITEERROR, FAIL); } } } /* Write fill values for odd size piece */ if (Hwrite(Writesdg.aid, odd_size, fill_buf) == FAIL) { Hendaccess(Writesdg.aid); HDfree((VOIDP) fill_buf); HCLOSE_GOTO_ERROR(Sfile_id,DFE_WRITEERROR, FAIL); } Writesdg.fill_fixed = TRUE; /* fill value cannot be changed */ /* Free up space */ HDfree((VOIDP) fill_buf); } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*---------------------------------------------------------------------------- NAME DFSDwriteslab USAGE int DFSDwriteslab(start, stride, count, data) int32 start[]; IN: array containing the coordinates of the start of the slab in the HDF file int32 stride[]; IN: array containing the dimensions of data[] int32 count[]; IN: array containing the size of the slab VOID *data; IN: array to hold the floating point data to write RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Writes a slab of data to a scientific data set. The "start" indices are relative to 1. The rank of "start" must be the same as the number of dimensions of the specified variable. The elements of "start" must be no larger than the scientific data set's dimensions in order. The stride feature is not currently implemented. For now just pass the "start" array as the argument for "stride" where it will be ignored. The rank of "count" must be the same as the number of dimensions of the specified variable. The elements of "count" must be no larger that the scientific data sets's dimensions in order. The order in which the data will be written into the specified hyperslab is with the last dimension varying the fastest. The array "data" should be of appropriate number type for the data set. Note that neither the compilier nor the HDF sotfware can detect if the wrong type of data is written. ----------------------------------------------------------------------------*/ intn DFSDwriteslab(int32 start[], int32 stride[], int32 count[], VOIDP data) { intn rank; /* number of dimensions in data[] */ int32 i; /* temporary loop index */ int32 leastsig; /* fastest varying subscript in the array */ int32 convert; /* true if machine NT != NT to be read */ int32 done; /* true if we are at the end of the slab */ int32 numtype; /* current number type */ int32 fileNTsize; /* size of this NT in the file */ int32 localNTsize; /* size of this NT as it occurs in this machine */ int32 numelements; /* number of floats to read at once */ int32 sdgsize; /* number of bytes to be written in the SDG */ int32 rowsize; /* number of bytes to be written at once */ /* in the hyperslab */ int32 fileoffset; /* offset into the current dataset in the file */ int32 *doffset; /* array for accessing the next element in data[] */ int32 *foffset; /* array for accessing next element in the file */ int32 *dimsleft; /* array for tracking current position in data[] */ int32 *startdims; /* tmp array containing starting slab dims */ int32 *sizedims; /* tmp array containing the slab size */ int32 *filedims; /* tmp array containing the dimensions */ /* of the dataset in the file */ int32 r_error; /* flag if an error occurred, */ /* used by DFconvert macro */ int32 aid; uint8 platnumsubclass; /* class of this NT for this platform */ uint8 fileNT; /* file number subclass */ uint8 *buf; /* buffer containing the converted current row */ uint8 *datap; /* ptr into data[] at starting offset */ /* of current block */ intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDwriteslab"); /* shut compiler up */ stride = stride; /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Sanity checking of input data */ if (!data) HGOTO_ERROR(DFE_BADPTR, FAIL); /* Set rank */ rank = Writesdg.rank; /* Do sanity checking of starting and size dimension arrays */ for (i = 0; i < (int32) rank; i++) { /* ** Check validity for the dimension ranges by ** checking lower bound of slab sizes ** checking lower bound of starting dimensions ** checking upper bound on writing dimensions */ if ((count[i] < 1) || (start[i] < 1) || (start[i] + count[i] - 1 > Writesdg.dimsizes[i])) HCLOSE_GOTO_ERROR(Sfile_id,DFE_BADDIM, FAIL); } /* Intialize a few local variables */ numtype = Writesdg.numbertype; platnumsubclass = (uint8)DFKgetPNSC(numtype & (~DFNT_LITEND), DF_MT); localNTsize = DFKNTsize((numtype | DFNT_NATIVE) & (~DFNT_LITEND)); fileNTsize = DFKNTsize(numtype); fileNT = Writesdg.filenumsubclass; /* Calculate total bytes in SDS that can be written */ sdgsize = fileNTsize; for (i = 0; i < Writesdg.rank; i++) sdgsize *= Writesdg.dimsizes[i]; /* Set Access Id */ aid = Writesdg.aid; /* ** Get dimensions of hyperslab to write out ** Allocate temporary buffers(3) to hold starting, size, ** and file(SDG in file) dimensions */ startdims = (int32 *) HDmalloc((size_t) (3 * rank) * sizeof(int32)); if (startdims == NULL) HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); sizedims = startdims + rank; filedims = sizedims + rank; /* Copy arrays to private workspace (row major order) */ for (i = 0; i < (int32) rank; i++) { startdims[i] = start[i] - 1; sizedims[i] = count[i]; /* dimensions of just slab */ filedims[i] = Writesdg.dimsizes[i]; /* dimensions of whole SDG */ } /* Is conversion necessary */ convert = (fileNT != platnumsubclass); /* Collapse dimensions if contiguous both in the file and in memory */ for (i = (int32) rank - 1; i > 0; i--) /* stop before most sig dim */ { /* read only part of dataset */ if (startdims[i] != 0 || sizedims[i] < filedims[i]) break; startdims[i - 1] *= filedims[i]; sizedims[i - 1] *= sizedims[i]; filedims[i - 1] *= filedims[i]; rank--; } /* ** Which is least sig dim i.e fastest varying. ** In C usually the last. */ leastsig = (int32) rank - 1; r_error = 0; if (rank == 1 && !convert) { /* all data is contiguous with no conversions */ rowsize = sizedims[0] * fileNTsize; if ((Hseek(aid, startdims[0] * fileNTsize, 0) == FAIL) || (rowsize != Hwrite(aid, rowsize, (uint8 *) data))) { r_error = 1; } } else { /* * The data must be further manipulated. * It may need conversion, may not be contiguous, or * any combination of these. */ numelements = sizedims[leastsig]; /* # of elmenents in a row */ rowsize = numelements * fileNTsize; /* # of bytes in a row */ /* If conversion, allocate 1 row buffers */ if (convert) { if ((buf = (uint8 *) HDmalloc((uint32) rowsize)) == NULL) { HDfree((VOIDP) startdims); Hendaccess(aid); HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); } } else buf = NULL; /* Allocate space for file and data offsets and dimsleft */ foffset = (int32 *) HDmalloc((size_t) (3 * rank) * sizeof(int32)); if (foffset == NULL) { HDfree((VOIDP) startdims); HDfree((VOIDP) buf); Hendaccess(aid); HCLOSE_GOTO_ERROR(Sfile_id,DFE_NOSPACE, FAIL); } dimsleft = foffset + rank; doffset = dimsleft + rank; /* Set number of dimensions left */ for (i = leastsig; i >= 0; i--) dimsleft[i] = sizedims[i]; /* compute offsets in the source array */ doffset[leastsig] = 1 * localNTsize; for (i = leastsig; i > 0; i--) doffset[i - 1] = doffset[i] * sizedims[i]; /* ** Compute offsets in the file for dimension, according to the ** possible length for each dimension. Depends on numbertype. */ for (i = leastsig, foffset[i] = 1 * fileNTsize; i > 0; i--) foffset[i - 1] = foffset[i] * filedims[i]; /* ** Compute starting position in file ** All file writes are done relative to this starting offset. ** Cumulative offset is from most sig to next to least sig dim. */ for (i = 0, fileoffset = 0; i < leastsig; i++) fileoffset = fileoffset + (startdims[i] * foffset[i]); /* Dont forget about last dimension */ fileoffset = fileoffset + startdims[leastsig] * fileNTsize; datap = (uint8 *) data; done = 0; /* -- now write the data */ do { /* move to the next data element in the file */ if (Hseek(aid, fileoffset, 0) == FAIL) { r_error = 1; break; } /* If convert and write one contiguous block of data */ /* Else write one contiguous block of data */ if (convert) { DFKconvert((VOIDP) datap, (VOIDP) buf, numtype, numelements, DFACC_WRITE, 0, 0); if (rowsize != Hwrite(aid, rowsize, buf)) { r_error = 1; break; } } else { if (rowsize != Hwrite(aid, rowsize, datap)) { r_error = 1; break; } } /* * Find starting place of the next row/block. * Note that all moves are relative: * this preserves the starting offsets of each dimension */ for (i = leastsig - 1; i >= 0; i--) { if (--dimsleft[i] > 0) { /* Move to next element in the current dimension */ datap += doffset[i]; fileoffset += foffset[i]; break; } else { dimsleft[i] = sizedims[i]; /* * Note that we are still positioned at the beginning of * the last element in the current dimension */ /* move back to the beginning of dimension i */ datap -= doffset[i] * (sizedims[i] - 1); /* move back to beginning read position of dimension i */ fileoffset -= foffset[i] * (sizedims[i] - 1); if (i == 0) done = 1; } } } while (!done && leastsig > 0); if (buf != NULL) HDfree((VOIDP) buf); if (foffset != NULL) HDfree((VOIDP) foffset); } /* Clean up time.... */ HDfree((VOIDP) startdims); if (r_error) ret_value = FAIL; else ret_value = SUCCEED; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*----------------------------------------------------------------------------- NAME DFSDendslab USAGE int DFSDendslab() RETURNS Returns SUCCEED(0) if successful and FAIL(-1) otherwise. DESCRIPTION Ends a sequence of slab calls started by "DFSDstartslab" by closing the file. Writes the NDG information to the file if this call follows a "DFSDstartslab" that created a new SDG. ----------------------------------------------------------------------------*/ intn DFSDendslab(void) { intn ret_value = SUCCEED; CONSTR(FUNC, "DFSDendslab"); /* Clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(DFSDIstart()==FAIL) HGOTO_ERROR(DFE_CANTINIT, FAIL); /* Valid file id */ if (Sfile_id == DF_NOFILE) HGOTO_ERROR(DFE_BADCALL, FAIL); /* Check to see if we have written out the SDG info */ if (!Ref.new_ndg) { if (DFSDIputndg(Sfile_id, Writeref, &Writesdg) < 0) HCLOSE_GOTO_ERROR(Sfile_id,DFE_INTERNAL, FAIL); /* old nsdg table should be reset next time */ if (nsdghdr != NULL) { if (nsdghdr->nsdg_t != NULL) { DFnsdgle *rear, *front; rear = nsdghdr->nsdg_t; front = rear->next; while (rear != NULL) { HDfreenclear(rear); rear = front; if (rear != NULL) front = rear->next; } nsdghdr->size = 0; nsdghdr->nsdg_t = NULL; lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; } HDfreenclear(nsdghdr); } Ref.new_ndg = -1; } /* Slab clean up */ Hendaccess(Writesdg.aid); ret_value = Hclose(Sfile_id); Sfile_id = 0; Lastref = (uint16) Writeref; /* remember ref written */ Writeref = 0; /* Reset Write ref */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /*-------------------------------------------------------------------------- NAME DFSDIstart PURPOSE DFSD-level initialization routine USAGE intn DFSDIstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION Register the shut-down routine (DFSDPshutdown) for call with atexit GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn DFSDIstart(void) { CONSTR(FUNC, "DFSDIstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Install atexit() library cleanup routine */ if (HPregister_term_func(&DFSDPshutdown) != 0) HGOTO_ERROR(DFE_CANTINIT, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end DFSDIstart() */ /*-------------------------------------------------------------------------- NAME DFSDPshutdown PURPOSE Terminate various static buffers. USAGE intn DFSDshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the DFSD routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFSDPshutdown(void) { DFSDIclear(&Readsdg); DFSDIclear(&Writesdg); /* old nsdg table should be reset next time */ if (nsdghdr != NULL) { if (nsdghdr->nsdg_t != NULL) { DFnsdgle *rear, *front; rear = nsdghdr->nsdg_t; front = rear->next; while (rear != NULL) { HDfree(rear); rear = front; if (rear != NULL) front = rear->next; } lastnsdg.tag = DFTAG_NULL; lastnsdg.ref = 0; } HDfreenclear(nsdghdr); } if(ptbuf!=NULL) { HDfree(ptbuf); ptbuf=NULL; } /* end if */ if(Lastfile!=NULL) { HDfree(Lastfile); Lastfile=NULL; } /* end if */ return(SUCCEED); } /* end DFSDPshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfsdff.f0000644000000000000000000005276512421456623014060 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfsdff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: dfsdFf.f C Purpose: Fortran stubs for Fortran SDS routines C Invokes: dfsdF.c dfsd.c C Contents: C dsgdims: get dimensions of next SDG C dsgdata: get data for next SDG C dssdast: set strings for data for subsequent SDGs C dssdist: set strings for a dimension for subsequent SDGs C dspdata: write SDG to new file C dsadata: append SDG to existing file C dsgslc: get slice from file C dssslc: set up to write slices to file C dsrref: set up next ref to read C dsnum: return number of SDGs in file C dsp32sd: is the SDG/ref written by HDF prior to version 3.2? C dfsdgetdims: get dimensions of next SDG C dfsdgetdata: get data for next SDG C dfsdsetdatastrs:set strings for data for subsequent SDGs C dfsdsetdimstrs: set strings for a dimension for subsequent SDGs C dfsdputdata: write SDG to new file C dfsdadddata: append SDG to existing file C dfsdgetslice: get slice from file C dfsdstartslice: set up to write slices to file C dfsdreadref: set up next ref to read C dfsdnumber: return number of SDGs in the file C dswref: set up next ref to write C dssslab: set up write to SDS C dsrslab: set up to read from SDS C Remarks: none C------------------------------------------------------------------------------ C------------------------------------------------------------------------------ C Name: dsgdims C Purpose: get dimensions of next SDG C Inputs: filename: name of HDF file C rank: integer to return rank in C dimsizes: array to return dimensions in C maxrank: size of array dimsizes C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigdim C------------------------------------------------------------------------------ integer function dsgdims(filename, rank, dimsizes, maxrank) character*(*) filename integer rank, dimsizes, maxrank, dsigdim dsgdims = dsigdim(filename, rank, dimsizes, maxrank, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dsgdata C Purpose: get data from next SDG C Inputs: filename: name of HDF file C rank: integer containing no of dimensions in array data C maxsizes: array containing dimensions of array data C data: array to return data values in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigdat C------------------------------------------------------------------------------ integer function dsgdata(filename, rank, maxsizes, data) character*(*) filename integer rank, maxsizes, dsigdat real data dsgdata = dsigdat(filename, rank, maxsizes, data, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dssdast C Purpose: set data strings to be written out with next SDG C Inputs: label, unit, format, coordsys: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisdas_ C------------------------------------------------------------------------------ integer function dssdast(label, unit, format, coordsys) character*(*) label, unit, format, coordsys integer dsisdas, len dssdast = dsisdas(label, unit, format, coordsys, +1, len(label), len(unit), len(format), len(coordsys)) return end C------------------------------------------------------------------------------ C Name: dssdist C Purpose: set dim strings to be written out with next SDG C Inputs: label, unit, format, coordsys: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisdis_ C------------------------------------------------------------------------------ integer function dssdist(dim, label, unit, format) character*(*) label, unit, format integer dim, len integer dsisdis dssdist = dsisdis(dim, label, unit, format, +len(label), len(unit), len(format)) return end C------------------------------------------------------------------------------ C Name: dspdata C Purpose: call dsipdat to write SDG to new file C Inputs: filename: name of HDF file C rank: no of dimensions of array data C dimsizes: array containing the dimensions of array data C data: array containing the data values C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsipdat C------------------------------------------------------------------------------ integer function dspdata(filename, rank, dimsizes, data) character*(*) filename integer rank, dimsizes, data, len, dsipdat dspdata = dsipdat(filename, rank, dimsizes, data, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsadata C Purpose: call dsiadat to append SDG to existing file C Inputs: filename: name of HDF file C rank: no of dimensions of array data C dimsizes: array containing the dimensions of array data C data: array containing the data values C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsiadat C------------------------------------------------------------------------------ integer function dsadata(filename, rank, dimsizes, data) character*(*) filename integer rank, dimsizes, data, len, dsiadat dsadata = dsiadat(filename, rank, dimsizes, data, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsgslc C Purpose: call dsigslc to get slice from file C Inputs: filename: name of HDF file C winst: array of size = rank of data, containing start of slice C winend: array of size rank, containing end of slice C data: array for returning slice C ndims: no of dims of array data C dims: dimensions of array data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigslc C------------------------------------------------------------------------------ integer function dsgslc(filename,winst,windims,data,dims) character*(*) filename integer winst, windims, data, dims, dsigslc dsgslc = dsigslc(filename, winst, windims, data, dims, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dssslc C Purpose: call dsisslc to set up to write slices C Inputs: filename: name of HDF file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisslc C------------------------------------------------------------------------------ integer function dssslc(filename) character*(*) filename integer dsisslc dssslc = dsisslc(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsrref C Purpose: call dsirref to set up next ref to read C Inputs: filename: name of HDF file C ref: next ref to read C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsirref C------------------------------------------------------------------------------ integer function dsrref(filename, ref) character*(*) filename integer ref integer dsirref dsrref = dsirref(filename, ref, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsnum C Purpose: return the number of SDGs in the file C Inputs: filename: name of HDF file C Returns: number of SDGs on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsinum C------------------------------------------------------------------------------ integer function dsnum(filename) character*(*) filename integer len, dsinum dsnum = dsinum(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsp32sd C Purpose: tests if the SDG with the specified ref was written by HDF prior to C version 3.2 C Input: filename: name of HDF file C ref: the ref number of the SDG C ispre32: set to TRUE if the SDG/ref was written by old library; C to FALSE otherwise. C Retruns: 0 on success, -1 on failure C Users: HDF Fortran programmers C------------------------------------------------------------------------------ integer function dsp32sd(filename, ref, ispre32) character*(*) filename integer ref, ispre32, len, dsip32s dsp32sd = dsip32s(filename, ref, ispre32, len(filename)) return end CEND7MAX C------------------------------------------------------------------------------ C Name: dfsdgetdims C Purpose: get dimensions of next SDG C Inputs: filename: name of HDF file C rank: integer to return rank in C dimsizes: array to return dimensions in C maxrank: size of array dimsizes C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigdim C------------------------------------------------------------------------------ integer function dfsdgetdims(filename, rank, dimsizes, maxrank) character*(*) filename integer rank, dimsizes, maxrank, dsigdim dfsdgetdims = dsigdim(filename, rank, dimsizes, maxrank, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdgetdata C Purpose: get data from next SDG C Inputs: filename: name of HDF file C rank: integer containing no of dimensions in array data C maxsizes: array containing dimensions of array data C data: array to return data values in C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigdat C------------------------------------------------------------------------------ integer function dfsdgetdata(filename, rank, maxsizes, data) character*(*) filename integer rank, maxsizes, dsigdat real data dfsdgetdata = dsigdat(filename, rank, maxsizes, data, + len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdsetdatastrs C Purpose: set data strings to be written out with next SDG C Inputs: label, unit, format, coordsys: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisdas_ C------------------------------------------------------------------------------ integer function dfsdsetdatastrs(label, unit, format, coordsys) character*(*) label, unit, format, coordsys integer dsisdas, len dfsdsetdatastrs = dsisdas(label, unit, format, coordsys, +1, len(label), len(unit), len(format), len(coordsys)) return end C------------------------------------------------------------------------------ C Name: dfsdsetdimstrs C Purpose: set dim strings to be written out with next SDG C Inputs: label, unit, format, coordsys: strings to be set C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisdis_ C------------------------------------------------------------------------------ integer function dfsdsetdimstrs(dim, label, unit, format) character*(*) label, unit, format integer dim, len integer dsisdis dfsdsetdimstrs = dsisdis(dim, label, unit, format, +len(label), len(unit), len(format)) return end C------------------------------------------------------------------------------ C Name: dfsdputdata C Purpose: call dsipdat to write SDG to new file C Inputs: filename: name of HDF file C rank: no of dimensions of array data C dimsizes: array containing the dimensions of array data C data: array containing the data values C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsipdat C------------------------------------------------------------------------------ integer function dfsdputdata(filename, rank, dimsizes, data) character*(*) filename integer rank, dimsizes, data, len, dsipdat dfsdputdata = dsipdat(filename,rank,dimsizes,data,len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdadddata C Purpose: call dsiadat to append SDG to existing file C Inputs: filename: name of HDF file C rank: no of dimensions of array data C dimsizes: array containing the dimensions of array data C data: array containing the data values C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsiadat C------------------------------------------------------------------------------ integer function dfsdadddata(filename, rank, dimsizes, data) character*(*) filename integer rank, dimsizes, data, len, dsiadat dfsdadddata = dsiadat(filename,rank,dimsizes,data,len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdgetslice C Purpose: call dsigslc to get slice from file C Inputs: filename: name of HDF file C winst: array of size = rank of data, containing start of slice C winend: array of size rank, containing end of slice C data: array for returning slice C ndims: no of dims of array data C dims: dimensions of array data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsigslc C------------------------------------------------------------------------------ integer function dfsdgetslice(filename, winst, winend, data, + dims) character*(*) filename integer winst, winend, data, dims, dsigslc dfsdgetslice = dsigslc(filename, winst, winend, data, + dims, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdstartslice C Purpose: call dsisslc to set up to write slices C Inputs: filename: name of HDF file C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisslc C------------------------------------------------------------------------------ integer function dfsdstartslice(filename) character*(*) filename integer dsisslc dfsdstartslice = dsisslc(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdreadref C Purpose: call dsirref to set up next ref to read C Inputs: filename: name of HDF file C ref: next ref to read C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsirref C------------------------------------------------------------------------------ integer function dfsdreadref(filename, ref) character*(*) filename integer ref integer dsirref dfsdreadref = dsirref(filename, ref, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdnumber C Purpose: return the number of SDGs in the file C Inputs: filename: name of HDF file C Returns: number of SDGs on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsinum C------------------------------------------------------------------------------ integer function dfsdnumber(filename) character*(*) filename integer len, dsinum dfsdnumber = dsinum(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfsdgetdimstrs C Purpose: return the label unit and format for the current SDGs C Inputs: C Returns: -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsinum C------------------------------------------------------------------------------ integer function dfsdgetdimstrs(dim, label, unit, format) character*(*) label, unit, format integer len, dsigdis, dim dfsdgetdimstrs = dsigdis(dim, label, unit, format, len(label), + len(unit), len(format)) return end C------------------------------------------------------------------------------ C Name: dsgdist C Purpose: return the label unit and format for the current SDGs C Inputs: C Returns: -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsinum C------------------------------------------------------------------------------ integer function dsgdist(dim, label, unit, format) character*(*) label, unit, format integer len, dsigdis, dim dsgdist = dsigdis(dim, label, unit, format, len(label), + len(unit), len(format)) return end C------------------------------------------------------------------------------ C Name: dsgdast C Purpose: return the label unit and format for the current SDGs C Inputs: C Returns: -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsinum C------------------------------------------------------------------------------ integer function dsgdast(label, unit, format, coordsys) character*(*) label, unit, format, coordsys integer len, dsigdas dsgdast = dsigdas(label, unit, format, coordsys, len(label), + len(unit), len(format), len(coordsys)) return end C------------------------------------------------------------------------------ C Name: dswref C Purpose: set up next ref to write C Inputs: filename: file to write to. C ref: reference number to set. C Returns: -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsiwref C------------------------------------------------------------------------------ integer function dswref(filename, ref) character*(*) filename integer ref, dsiwref dswref = dsiwref(filename, len(filename), ref) return end C------------------------------------------------------------------------------ C Name: dssslab C Purpose: Set up slab writes to SDS C Inputs: filename: file to write to. C Returns: -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsisslab C------------------------------------------------------------------------------ integer function dssslab(filename) character*(*) filename integer dsisslab dssslab = dsisslab(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dsrslab C Purpose: call dsirslab to get slab from SDS C Inputs: fname: name of HDF file C start: array of size = rank of data, containing start of slab C slab_size: array of size rank, containing end of slab C stride: sub sampling stride. C buffer: array for returning slab C buffer_size: dimensions of array data C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF Fortran programmers C Invokes: dsirslab C------------------------------------------------------------------------------ integer function dsrslab(fname, start, slabsize, stride, buffer, + buffersize) character*(*) fname integer start, slabsize, stride, buffer, buffersize, dsirslab dsrslab = dsirslab(fname, len(fname), start, slabsize, stride, + buffer, buffersize) return end libhdf4-4.2.10/HDF_ALT/hdf/src/mstdio.c0000644000000000000000000002626712421456623014116 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: mstdio.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE mstdio.c HDF stdio-like modeling I/O routines REMARKS Basically a NOP interface, it just calls the encoding layer. DESIGN Just pass the data to the encoding layer, reporting errors. EXPORTED ROUTINES None of these routines are designed to be called by other users except for the top layer of the compression routines. HCPmstdio_stread -- start read access for compressed file HCPmstdio_stwrite -- start write access for compressed file HCPmstdio_seek -- Seek to offset within the data element HCPmstdio_read -- Read in a portion of data from a compressed data element. HCPmstdio_write -- Write out a portion of data from a compressed data element. HCPmstdio_inquire -- Inquire information about the access record and data element. HCPmstdio_endaccess -- Close the compressed data element AUTHOR Quincey Koziol MODIFICATION HISTORY 9/28/93 Starting writing specs & coding prototype 10/09/93 Finished testing. First version done. */ /* General HDF includes */ #include "hdf.h" #include "hfile.h" #define MSTDIO_MASTER #define MODEL_CLIENT /* HDF compression includes */ #include "hcompi.h" /* Internal definitions for compression */ /* #define TESTING */ /*-------------------------------------------------------------------------- NAME HCPmstdio_stread -- start read access for compressed file USAGE int32 HCPmstdio_stread(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start read access on a compressed data element using the stdio modeling scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_stread(accrec_t * access_rec) { CONSTR(FUNC, "HCPmstdio_stread"); compinfo_t *info; /* information on the special element */ info = (compinfo_t *) access_rec->special_info; /* set the offset */ info->minfo.model_info.stdio_info.pos = 0; #ifdef TESTING printf("%s(): info=%p\n", FUNC, info); #endif if ((*(info->cinfo.coder_funcs.stread)) (access_rec) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); return (SUCCEED); } /* HCPmstdio_stread() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_stwrite -- start write access for compressed file USAGE int32 HCPmstdio_stwrite(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Start write access on a compressed data element using the stdio modeling scheme. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_stwrite(accrec_t * access_rec) { CONSTR(FUNC, "HCPmstdio_stwrite"); compinfo_t *info; /* information on the special element */ info = (compinfo_t *) access_rec->special_info; #ifdef TESTING printf("%s(): info=%p\n", FUNC, info); #endif /* set the offset */ info->minfo.model_info.stdio_info.pos = 0; #ifdef TESTING printf("%s(): before coder_funcs.write=%p\n", FUNC, info->cinfo.coder_funcs.write); #endif if ((*(info->cinfo.coder_funcs.stwrite)) (access_rec) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); #ifdef TESTING printf("%s(): after coder_funcs.write=%p\n", FUNC, info->cinfo.coder_funcs.write); #endif return (SUCCEED); } /* HCPmstdio_stwrite() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_seek -- Seek to offset within the data element USAGE int32 HCPmstdio_seek(access_rec,offset,origin) accrec_t *access_rec; IN: the access record of the data element int32 offset; IN: the offset in bytes from the origin specified intn origin; IN: the origin to seek from [UNUSED!] RETURNS Returns SUCCEED or FAIL DESCRIPTION Seek to a position with a compressed data element. The 'origin' calculations have been taken care of at a higher level, it is an un-used parameter. The 'offset' is used as an absolute offset because of this. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_seek(accrec_t * access_rec, int32 offset, int origin) { CONSTR(FUNC, "HCPmstdio_seek"); compinfo_t *info; /* information on the special element */ int32 ret; info = (compinfo_t *) access_rec->special_info; /* set the offset */ info->minfo.model_info.stdio_info.pos = offset; if ((ret = (*(info->cinfo.coder_funcs.seek)) (access_rec, offset, origin)) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); return (ret); } /* HCPmstdio_seek() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_read -- Read in a portion of data from a compressed data element. USAGE int32 HCPmstdio_read(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to read void * data; OUT: the buffer to place the bytes read RETURNS Returns the number of bytes read or FAIL DESCRIPTION Read in a number of bytes from a compressed data element, using stdio functionality. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_read(accrec_t * access_rec, int32 length, void * data) { CONSTR(FUNC, "HCPmstdio_read"); compinfo_t *info; /* information on the special element */ int32 ret; info = (compinfo_t *) access_rec->special_info; /* adjust model position */ info->minfo.model_info.stdio_info.pos += length; if ((ret = (*(info->cinfo.coder_funcs.read)) (access_rec, length, data)) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); return (ret); } /* HCPmstdio_read() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_write -- Write out a portion of data from a compressed data element. USAGE int32 HCPwrite(access_rec,length,data) accrec_t *access_rec; IN: the access record of the data element int32 length; IN: the number of bytes to write void * data; IN: the buffer to retrieve the bytes written RETURNS Returns the number of bytes written or FAIL DESCRIPTION Write out a number of bytes to a compressed data element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_write(accrec_t * access_rec, int32 length, const void * data) { CONSTR(FUNC, "HCPmstdio_write"); compinfo_t *info; /* information on the special element */ int32 ret; info = (compinfo_t *) access_rec->special_info; /* adjust model position */ info->minfo.model_info.stdio_info.pos += length; #ifdef TESTING printf("%s(): before function ptr call func_ptr=%p\n", FUNC, info->cinfo.coder_funcs.write); #endif if ((ret = (*(info->cinfo.coder_funcs.write)) (access_rec, length, data)) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); #ifdef TESTING printf("%s(): after function ptr call, ret=%d\n",FUNC,(int)ret); #endif return (ret); } /* HCPmstdio_write() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_inquire -- Inquire information about the access record and data element. USAGE int32 HCPmstdio_inquire(access_rec,pfile_id,ptag,pref,plength,poffset,pposn, paccess,pspecial) accrec_t *access_rec; IN: the access record of the data element int32 *pfile_id; OUT: ptr to file id uint16 *ptag; OUT: ptr to tag of information uint16 *pref; OUT: ptr to ref of information int32 *plength; OUT: ptr to length of data element int32 *poffset; OUT: ptr to offset of data element int32 *pposn; OUT: ptr to position of access in element int16 *paccess; OUT: ptr to access mode int16 *pspecial; OUT: ptr to special code RETURNS Returns SUCCEED or FAIL DESCRIPTION Inquire information about the access record and data element. [Currently a NOP]. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 HCPmstdio_inquire(accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial) { CONSTR(FUNC, "HCPmstdio_inquire"); compinfo_t *info; /* information on the special element */ int32 ret; info = (compinfo_t *) access_rec->special_info; if ((ret = (*(info->cinfo.coder_funcs.inquire)) (access_rec, pfile_id, ptag, pref, plength, poffset, pposn, paccess, pspecial)) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); return (ret); } /* HCPmstdio_inquire() */ /*-------------------------------------------------------------------------- NAME HCPmstdio_endaccess -- Close the compressed data element USAGE intn HCPendaccess(access_rec) accrec_t *access_rec; IN: the access record of the data element RETURNS Returns SUCCEED or FAIL DESCRIPTION Close the compressed data element and free modelling info. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HCPmstdio_endaccess(accrec_t * access_rec) { CONSTR(FUNC, "HCPmstdio_endaccess"); compinfo_t *info; /* information on the special element */ intn ret; info = (compinfo_t *) access_rec->special_info; if ((ret = (*(info->cinfo.coder_funcs.endaccess)) (access_rec)) == FAIL) HRETURN_ERROR(DFE_CODER, FAIL); return (ret); } /* HCPmstdio_endaccess() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfpff.f0000644000000000000000000002344412421456623013701 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfpff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: dfpFf.f C Purpose: Fortran stubs for Palette Fortran routines C Invokes: dfpF.c dfkit.c C Contents: C dpgpal: Call dpigpal to get palette C dpapal: Call dpippal to add palette to file C dpppal: Call dpippal to write/overwrite palette in file C dpnpal: Call dpinpal to get number of palettes in file C dpwref: Call dpiwref to set ref of pal to write next C dprref: Call dpirref to set ref of pal to read next C dfpgetpal: Call dpigpal to get palette C dfpaddpal: Call dpippal to add palette to file C dfpputpal: Call dpippal to write/overwrite palette in file C dfpnpals: Call dpinpal to get number of palettes in file C dfpwriteref: Call dpiwref to set ref of pal to write next C dfpreadref: Call dpirref to set ref of pal to read next C Remarks: none C----------------------------------------------------------------------------*/ C------------------------------------------------------------------------------ C Name: dpgpal C Purpose: call dpigpal, get palette C Inputs: filename: filename to get pal from C pal: space to put palette C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpigpal C----------------------------------------------------------------------------*/ integer function dpgpal(filename, pal) character*(*) filename character*(*) pal integer dpigpal dpgpal = dpigpal(filename, pal, len(filename)) return end C------------------------------------------------------------------------------ C Name: dpapal C Purpose: call dpippal, add palette C Inputs: filename: filename to put pal into C pal: palette C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpippal C----------------------------------------------------------------------------*/ integer function dpapal(filename, pal) character*(*) filename character*(*) pal integer dpippal dpapal = dpippal(filename, pal, 0, 'a', len(filename)) return end C------------------------------------------------------------------------------ C Name: dpppal C Purpose: call dpippal, write palette C Inputs: filename: filename to put pal to C pal: palette C ow, filemode: see dfpputpal C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpippal C----------------------------------------------------------------------------*/ integer function dpppal(filename, pal, ow, filemode) character*(*) filename character*(*) pal integer dpippal, ow character*(*) filemode dpppal = dpippal(filename, pal, ow, filemode, len(filename)) return end C------------------------------------------------------------------------------ C Name: dpnpals C Purpose: How many palettes are present in this file? C Inputs: filename: name of HDF file C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpinpal C----------------------------------------------------------------------------*/ integer function dpnpals(filename) character*(*) filename integer dpinpal dpnpals = dpinpal(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dpwref C Purpose: Ref to write next C Inputs: filename: name of HDF file C ref: ref to write next C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpiwref C----------------------------------------------------------------------------*/ integer function dpwref(filename, ref) character*(*) filename integer ref, dpiwref dpwref = dpiwref(filename, ref, len(filename)) return end C------------------------------------------------------------------------------ C Name: dprref C Purpose: Ref to read next C Inputs: filename: name of HDF file C ref: ref to read next C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpirref C----------------------------------------------------------------------------*/ integer function dprref(filename, ref) character*(*) filename integer ref, dpirref dprref = dpirref(filename, ref, len(filename)) return end CEND7MAX C------------------------------------------------------------------------------ C Name: dfpgetpal C Purpose: call dpigpal, get palette C Inputs: filename: filename to get pal from C pal: space to put palette C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpigpal C----------------------------------------------------------------------------*/ integer function dfpgetpal(filename, pal) character*(*) filename character*(*) pal integer dpigpal dfpgetpal = dpigpal(filename, pal, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfpaddpal C Purpose: call dpippal, add palette C Inputs: filename: filename to put pal into C pal: palette C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpippal C----------------------------------------------------------------------------*/ integer function dfpaddpal(filename, pal) character*(*) filename character*(*) pal integer dpippal dfpaddpal = dpippal(filename, pal, 0, 'a', len(filename)) return end C------------------------------------------------------------------------------ C Name: dfpputpal C Purpose: call dpippal, write palette C Inputs: filename: filename to put pal to C pal: palette C ow, filemode: see dfpputpal C Returns: 0 on success, -1 on failure with DFerror set C Users: Fortran stub routine C Invokes: dpippal C----------------------------------------------------------------------------*/ integer function dfpputpal(filename, pal, ow, filemode) character*(*) filename character*(*) pal integer dpippal, ow character*(*) filemode dfpputpal = dpippal(filename, pal, ow, filemode, len(filename)) return end C------------------------------------------------------------------------------ C Name: dpnpals C Purpose: How many palettes are present in this file? C Inputs: filename: name of HDF file C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpinpal C----------------------------------------------------------------------------*/ integer function dfpnpals(filename) character*(*) filename integer dpinpal dfpnpals = dpinpal(filename, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfpwriteref C Purpose: Ref to write next C Inputs: filename: name of HDF file C ref: ref to write next C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpiwref C----------------------------------------------------------------------------*/ integer function dfpwriteref(filename, ref) character*(*) filename integer ref, dpiwref dfpwriteref = dpiwref(filename, ref, len(filename)) return end C------------------------------------------------------------------------------ C Name: dfpreadref C Purpose: Ref to read next C Inputs: filename: name of HDF file C ref: ref to read next C Returns: number of palettes on success, -1 on failure with DFerror set C Users: HDF programmers, other routines and utilities C Invokes: dpirref C----------------------------------------------------------------------------*/ integer function dfpreadref(filename, ref) character*(*) filename integer ref, dpirref dfpreadref = dpirref(filename, ref, len(filename)) return end libhdf4-4.2.10/HDF_ALT/hdf/src/patchlevel.h0000644000000000000000000000002712421456623014735 0ustar #define PATCHLEVEL 0 libhdf4-4.2.10/HDF_ALT/hdf/src/linklist.h0000644000000000000000000001646712421456623014456 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: linklist.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: linklist.h * Purpose: header file for linked list API * Dependencies: * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __LINKLIST_H #define __LINKLIST_H #include "hdf.h" /* Definitions for linked-list creation flags */ #define HUL_UNSORTED_LIST 0x0000 #define HUL_SORTED_LIST 0x0001 /* Type of the function to compare objects & keys */ typedef intn (*HULsearch_func_t)(const VOIDP obj, const VOIDP key); /* Type of the function to compare two objects */ typedef intn (*HULfind_func_t)(const VOIDP obj1, const VOIDP obj2); /* Linked list information structure used */ typedef struct node_info_struct_tag { VOIDP *obj_ptr; /* pointer associated with the linked list node */ struct node_info_struct_tag *next; /* link to list node */ }node_info_t; /* Linked list head structure */ typedef struct list_head_struct_tag { uintn count; /* # of nodes in the list */ uintn flags; /* list creation flags */ HULfind_func_t cmp_func; /* node comparison function */ node_info_t *node_list; /* pointer to a linked list of nodes */ node_info_t *curr_node; /* pointer to the current node when iterating */ }list_head_t; #if defined LIST_MASTER | defined LIST_TESTER /* Define this in only one place */ #ifdef LIST_MASTER /* Pointer to the list node free list */ static node_info_t *node_free_list=NULL; #endif /* LIST_MASTER */ /* Useful routines for generally private use */ #endif /* LIST_MASTER | LIST_TESTER */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /****************************************************************************** NAME HULcreate_list - Create a linked list DESCRIPTION Creates a linked list. The list may either be sorted or un-sorted, based on the comparison function. RETURNS Returns a pointer to the list if successful and NULL otherwise *******************************************************************************/ list_head_t *HULcreate_list(HULfind_func_t find_func /* IN: object comparison function */ ); /****************************************************************************** NAME HULdestroy_list - Destroys a linked list DESCRIPTION Destroys a linked list created by HULcreate_list(). This function walks through the list and frees all the nodes, then frees the list head. Note: this function does not (currently) free the objects in the nodes, it just leaves 'em hanging. RETURNS Returns SUCCEED/FAIL. *******************************************************************************/ intn HULdestroy_list(list_head_t *lst /* IN: list to destroy */ ); /****************************************************************************** NAME HULadd_node - Adds an object to a linked-list DESCRIPTION Adds an object to the linked list. If the list is sorted, the comparison function is used to determine where to insert the node, otherwise it is inserted at the head of the list. RETURNS Returns SUCCEED/FAIL. *******************************************************************************/ intn HULadd_node(list_head_t *lst, /* IN: list to modify */ VOIDP obj /* IN: object to add to the list */ ); /****************************************************************************** NAME HULsearch_node - Search for an object in a linked-list DESCRIPTION Locate an object in a linked list using a key and comparison function. RETURNS Returns a pointer to the object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULsearch_node(list_head_t *lst, /* IN: list to search */ HULsearch_func_t srch_func, /* IN: function to use to find node */ VOIDP key /* IN: key of object to search for */ ); /****************************************************************************** NAME HULfirst_node - Get the first object in a linked-list DESCRIPTION Returns the first object in a linked-list and prepares the list for interating through. RETURNS Returns a pointer to the first object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULfirst_node(list_head_t *lst /* IN: list to search */ ); /****************************************************************************** NAME HULnext_node - Get the next object in a linked-list DESCRIPTION Returns the next object in a linked-list by walking through the list RETURNS Returns a pointer to the next object found in the list, or NULL on failure. *******************************************************************************/ VOIDP HULnext_node(list_head_t *lst /* IN: list to search */ ); /****************************************************************************** NAME HULremove_node - Removes an object from a linked-list DESCRIPTION Remove an object from a linked list. The key and comparison function are provided locate the object to delete. RETURNS Returns a pointer to the object deleted from the list, or NULL on failure. *******************************************************************************/ VOIDP HULremove_node(list_head_t *lst, /* IN: list to modify */ HULsearch_func_t srch_func, /* IN: function to use to find node to remove */ VOIDP key /* IN: object to add to the list */ ); /*-------------------------------------------------------------------------- NAME HULshutdown PURPOSE Terminate various global items. USAGE intn HULshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the HUL routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HULshutdown(void); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* __LINKLIST_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vio.c0000644000000000000000000013316312421456623013406 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6026 $"; #endif /* $Id: vio.c 6026 2014-01-16 15:16:16Z bmribler $ */ /***************************************************************************** file - vio.c Part of the HDF Vset interface. VDATAs are handled by routines in here. PRIVATE functions manipulate vsdir and are used only within this file. PRIVATE data structures in here pertain to vdatas in vsdir only. LOCAL ROUTINES VSIget_vdata_node -- allocate a new VDATA record VSIrelease_vdata_node -- Releases a vdata node VSIget_vsinstance_node -- allocate a new vsinstance_t record VSIrelease_vsinstance_node -- Releases a vsinstance node LIBRARY PRIVATE ROUTINES VSPhshutdown -- shutdown the Vset interface EXPORTED ROUTINES vinst -- Looks thru vstab for vsid and return the addr of the vdata instance where vsid is found. vexistvs -- Tests if a vdata with id vsid is in the file's vstab. vpackvs -- Packs a VDATA structure into a compact form suitable for storing in the HDF file. vunpackvs -- Convert a packed form(from HDF file) to a VDATA structure. This routine will also initalize the VDATA structure as much as it can. vsdestroynode -- Frees B-Tree nodes. VSPgetinfo -- Read in the "header" information about the Vdata. VSattach -- Attaches/Creates a new vs in vg depending on "vsid" value. VSdetach -- Detaches vs from vstab. VSappendable -- Make it possible to append unlimitedly to an existing VData. VSgetid -- Returns the id of the next VDATA from the file. VSQuerytag -- Return the 'otag' of the given Vdata. VSQueryref -- Return the ref of the given Vdata. vswritelist -- Return the writelist of a Vdata. VSgetversion -- Return the version number of a Vdata. VSdelete -- Remove a Vdata from its file. This function will both remove the Vdata from the internal Vset data structures as well as from the file. NOTE: Another pass needs to made through this file to update some of the comments about certain sections of the code. -GV 9/8/97 *************************************************************************/ #define VSET_INTERFACE #include "hdf.h" /* Private Function Prototypes */ PRIVATE intn vunpackvs (VDATA * vs, uint8 buf[], int32 len); /* Temporary buffer for I/O */ PRIVATE uint32 Vhbufsize = 0; PRIVATE uint8 *Vhbuf = NULL; /* Pointers to the VDATA & vsinstance node free lists */ static VDATA *vdata_free_list=NULL; static vsinstance_t *vsinstance_free_list=NULL; /* vpackvs is prototyped in vg.h since vconv.c needs to call it */ /******************************************************************************* NAME VSIget_vdata_node -- allocate a new VDATA record DESCRIPTION Return an pointer to a new VDATA to use for a new VSID. RETURNS returns VDATA record pointer or NULL if failed. *******************************************************************************/ VDATA * VSIget_vdata_node(void) { VDATA *ret_value = NULL; CONSTR(FUNC, "VSIget_vdata_node"); /* clear error stack */ HEclear(); /* Grab from free list if possible */ if(vdata_free_list != NULL) { ret_value = vdata_free_list; vdata_free_list = vdata_free_list->next; } else /* allocate a new node */ { if((ret_value=(VDATA *)HDmalloc(sizeof(VDATA)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ /* Initialize to zeros */ HDmemset(ret_value,0,sizeof(VDATA)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* VSIget_vdata_node */ /****************************************************************************** NAME VSIrelease_vdata_node -- Releases a vdata node DESCRIPTION Puts an VDATA node into the free list RETURNS No return value *******************************************************************************/ void VSIrelease_vdata_node(VDATA *vs /* IN: vdata to release */) { #ifdef LATER CONSTR(FUNC, "VSIrelease_vdata_node"); /* for HERROR */ #endif /* LATER */ /* Insert the atom at the beginning of the free list */ vs->next = vdata_free_list; vdata_free_list = vs; } /* end VSIrelease_vdata_node() */ /******************************************************************************* NAME VSIget_vsinstance_node -- allocate a new vsinstance_t record DESCRIPTION Return an pointer to a new VDATA to use for a new VSID. RETURNS returns vsinstance_t pointer or NULL if failed. *******************************************************************************/ vsinstance_t * VSIget_vsinstance_node(void) { vsinstance_t *ret_value = NULL; CONSTR(FUNC, "VSIget_vsinstance_node"); /* clear error stack */ HEclear(); /* Grab from free list if possible */ if(vsinstance_free_list != NULL) { ret_value = vsinstance_free_list; vsinstance_free_list = vsinstance_free_list->next; } else /* allocate a new vsinstance record */ { if((ret_value=(vsinstance_t *)HDmalloc(sizeof(vsinstance_t)))==NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end else */ /* Initialize to zeros */ HDmemset(ret_value,0,sizeof(vsinstance_t)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* VSIget_vsinstance_node */ /****************************************************************************** NAME VSIrelease_vsinstance_node -- Releases a vsinstance node DESCRIPTION Puts a vsinstance node into the free list RETURNS No return value *******************************************************************************/ void VSIrelease_vsinstance_node(vsinstance_t *vs /* IN: vinstance node to release */) { #ifdef LATER CONSTR(FUNC, "VSIrelease_vsinstance_node"); /* for HERROR */ #endif /* LATER */ /* Insert the atom at the beginning of the free list */ vs->next = vsinstance_free_list; vsinstance_free_list = vs; } /* end VSIrelease_vsinstance_node() */ /******************************************************************************* NAME VSPhshutdown - shutdown the Vset interface DESCRIPTION For completeness, when the VSet interface is shut-down, free the Vhbuf. RETURNS Returns SUCCEED/FAIL COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend *******************************************************************************/ intn VSPhshutdown(void) { intn ret_value = SUCCEED; VDATA *v = NULL; vsinstance_t *vs = NULL; /* Release the vdata free-list if it exists */ if(vdata_free_list != NULL) { while(vdata_free_list != NULL) { v = vdata_free_list; vdata_free_list = vdata_free_list->next; v->next = NULL; HDfree(v); } /* end while */ } /* end if */ /* Release the vsinstance free-list if it exists */ if(vsinstance_free_list != NULL) { while(vsinstance_free_list != NULL) { vs = vsinstance_free_list; vsinstance_free_list = vsinstance_free_list->next; vs->next = NULL; HDfree(vs); } /* end while */ } /* end if */ /* free buffer */ if(Vhbuf != NULL) { HDfree(Vhbuf); Vhbuf = NULL; Vhbufsize = 0; } /* end if */ /* free the parsing buffer */ ret_value = VPparse_shutdown(); return ret_value; } /* end VSPhshutdown() */ /******************************************************************************* NAME vsint DESCRIPTION Looks thru vstab for vsid and return the addr of the vdata instance where vsid is found. RETURNS RETURNS NULL if error or not found. RETURNS vsinstance_t pointer if ok. *******************************************************************************/ vsinstance_t * vsinst(HFILEID f, /* IN: File handle */ uint16 vsid /* IN: vdata id i.e. ref */) { void * *t = NULL; vfile_t *vf = NULL; int32 key; vsinstance_t *ret_value = NULL; /* FAIL */ CONSTR(FUNC, "vsinstance"); /* clear error stack */ HEclear(); /* Get Vdata file record? */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, NULL); /* tbbtdfind returns a pointer to the vsinstance_t pointer */ key = (int32)vsid; if (( t = (void * *) tbbtdfind(vf->vstree, &key, NULL))== NULL) HGOTO_ERROR(DFE_NOMATCH,NULL); /* return the actual vsinstance_t ptr */ ret_value = ((vsinstance_t *) * t); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vsinst */ /******************************************************************************* NAME vexistvs DESCRIPTION Tests if a vdata with id vsid is in the file's vstab. RETURNS returns FAIL if not found, returns TRUE if found. *******************************************************************************/ int32 vexistvs(HFILEID f, /* IN: file handle */ uint16 vsid /* IN: vdata id i.e. ref */) { return ((NULL==vsinst(f, vsid)) ? FAIL : TRUE); } /* vexistvs */ /* ------------------------------------------------------------------ */ /* The following 2 routines, vpackvs and vunpackvs, packs and unpacks a VDATA structure into a compact form suitable for storing in the HDF file. */ /**** CONTENTS of VS stored in HDF file with tag VSDESCTAG: int16 interlace int32 nvertices uint16 vsize int16 nfields uint16 isize[1..nfields] (internal size of each field) uint16 off[1..nfields] (internal offset of each field) char fname[1..nfields][FIELDNAMELENMAX] char vsname[VSNAMELENMAX] char vsclass[VSNAMELENMAX] uint16 extag, exref uint32 flags (for vset version 4 or higher ) int32 nattrs (if bit0 of flags is set) uint16 atags[1..nattrs], arefs[1..nattrs] int16 version, more ****/ /* ------------------------------- vpackvs ----------------------------------- */ /* The following 2 PRIVATE routines, vpackvs and vunpackvs, packs and unpacks a VDATA structure into a compact form suitable for storing in the HDF file. */ /**** CONTENTS of VS stored in HDF file with tag DFTAG_VH: int16 interlace int32 nvertices uint16 vsize int16 nfields uint16 isize[1..nfields] (internal size of each field) uint16 off[1..nfields] (internal offset of each field) char fname[1..nfields][FIELDNAMELENMAX] char vsname[VSNAMELENMAX] char vsclass[VSNAMELENMAX] ****/ /******************************************************************************* NAME vpackvs DESCRIPTION convert a vs struct to a vspack suitable for storage in a HDF file RETURNS always SUCCEED? *******************************************************************************/ intn vpackvs(VDATA * vs, /* IN/OUT: */ uint8 buf[], /* IN: */ int32 *size /* OUT: */) { #ifdef LATER CONSTR(FUNC, "vpackvg"); #endif /* LATER */ int32 i; int16 slen; uint8 *bb = NULL; intn ret_value = SUCCEED; /* clear error stack */ HEclear(); bb = &buf[0]; /* save the interlace */ INT16ENCODE(bb, vs->interlace); /* save nvertices */ INT32ENCODE(bb, vs->nvertices); /* save ivsize */ UINT16ENCODE(bb, vs->wlist.ivsize); /* save nfields */ INT16ENCODE(bb, vs->wlist.n); /* Skip over all the "wheel-spinning" for 0-field vdatas */ if(vs->wlist.n>0) { for (i = 0; i < vs->wlist.n; i++) /* save the type */ INT16ENCODE(bb, vs->wlist.type[i]); /* save the isize */ for (i = 0; i < vs->wlist.n; i++) UINT16ENCODE(bb, vs->wlist.isize[i]); for (i = 0; i < vs->wlist.n; i++) /* save the offset */ UINT16ENCODE(bb, vs->wlist.off[i]); for (i = 0; i < vs->wlist.n; i++) /* save the order */ UINT16ENCODE(bb, vs->wlist.order[i]); /* save each field length and name - omit the null */ for (i = 0; i < vs->wlist.n; i++) { slen = HDstrlen(vs->wlist.name[i]); INT16ENCODE(bb, slen); HDstrcpy((char *) bb, vs->wlist.name[i]); bb += slen; } } /* end if */ /* save the vsnamelen and vsname - omit the null */ slen = HDstrlen(vs->vsname); INT16ENCODE(bb, slen); HDstrcpy((char *) bb, vs->vsname); bb += slen; /* save the vsclasslen and vsclass- omit the null */ slen = HDstrlen(vs->vsclass); INT16ENCODE(bb, slen); HDstrcpy((char *) bb, vs->vsclass); bb += slen; /* save the expansion tag/ref pair */ UINT16ENCODE(bb, vs->extag); UINT16ENCODE(bb, vs->exref); /* save the version field - to version_3 now if no new feature */ INT16ENCODE(bb, vs->version); /* save the 'more' field - NONE now */ INT16ENCODE(bb, vs->more); if (vs->flags != 0) { /* save the flags and update version # */ UINT32ENCODE(bb, vs->flags); if (vs->flags & VS_ATTR_SET) { /* save attributes */ INT32ENCODE(bb, vs->nattrs); for (i = 0; i < vs->nattrs; i++) { INT32ENCODE(bb, vs->alist[i].findex); UINT16ENCODE(bb, vs->alist[i].atag); UINT16ENCODE(bb, vs->alist[i].aref); } /* for */ } /* attr set */ } /* flags set */ /* duplicate 'version' and 'more' - for new version of libraries */ /* see the documentation in vattr.c */ INT16ENCODE(bb, vs->version); /* save the 'more' field - NONE now */ INT16ENCODE(bb, vs->more); *size = (int32) (bb - buf) + 1; *bb = 0; #ifdef LATER done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ #endif /* LATER */ /* Normal function cleanup */ return ret_value; } /* vpackvs */ /******************************************************************************* NAME vunpackvs DESCRIPTION Convert a packed form(from HDF file) to a VDATA structure. This routine will also initalize the VDATA structure as much as it can. RETURNS SUCCEED / FAIL *******************************************************************************/ PRIVATE intn vunpackvs(VDATA * vs, /* IN/OUT: */ uint8 buf[],/* IN: */ int32 len /* IN: */) { uint8 *bb = NULL; int32 i; int16 int16var, temp; uint16 uint16var; int32 ret_value = SUCCEED; CONSTR(FUNC, "vunpackvs"); /* clear error stack */ HEclear(); /* '5' is a magic number, the exact amount of space for 2 uint16's */ /* the magic number _should_ be '4', but the size of the Vdata */ /* information is incorrectly calculated (in vpackvs() above) when the */ /* info is written to the file and it's too late to change it now :- ( */ /* get version number first -- this is different from version 3 vdata interface */ bb = &buf[len - 5]; UINT16DECODE(bb, uint16var); /* retrieve the vg's version field */ vs->version = (int16)uint16var; UINT16DECODE(bb, uint16var); /* retrieve the vg's more field */ vs->more = (int16)uint16var; bb = &buf[0]; if (vs->version <= 4) { /* retrieve interlace */ INT16DECODE(bb, vs->interlace); /* retrieve nvertices */ INT32DECODE(bb, vs->nvertices); /* retrieve tore ivsize */ UINT16DECODE(bb, vs->wlist.ivsize); /* retrieve nfields */ INT16DECODE(bb, int16var); vs->wlist.n = (intn)int16var; if(vs->wlist.n==0) { /* Special case for Vdata with 0 fields defined */ /* Initialize buffer to NULL & carry over to other arrays */ vs->wlist.bptr = NULL; vs->wlist.type = NULL; vs->wlist.off = NULL; vs->wlist.isize = NULL; vs->wlist.order = NULL; vs->wlist.esize = NULL; /* Initialize the array of pointers to field names to NULL also */ vs->wlist.name = NULL; } /* end if */ else { /* Allocate buffer to hold all the int16/uint16 arrays */ if(NULL==(vs->wlist.bptr = HDmalloc(sizeof(uint16)*(size_t)(vs->wlist.n*5)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* Use buffer to support the other arrays */ vs->wlist.type = (int16 *)vs->wlist.bptr; vs->wlist.off = (uint16 *)vs->wlist.type+vs->wlist.n; vs->wlist.isize = vs->wlist.off+vs->wlist.n; vs->wlist.order = vs->wlist.isize+vs->wlist.n; vs->wlist.esize = vs->wlist.order+vs->wlist.n; for (i = 0; i < vs->wlist.n; i++) /* retrieve the type */ INT16DECODE(bb, vs->wlist.type[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the isize */ UINT16DECODE(bb, vs->wlist.isize[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the offset */ UINT16DECODE(bb, vs->wlist.off[i]); for (i = 0; i < vs->wlist.n; i++) /* retrieve the order */ UINT16DECODE(bb, vs->wlist.order[i]); /* retrieve the field names (and each field name's length) */ if(NULL==(vs->wlist.name = HDmalloc(sizeof(char *)*(size_t)vs->wlist.n))) HGOTO_ERROR(DFE_NOSPACE, FAIL); for (i = 0; i < vs->wlist.n; i++) { INT16DECODE(bb, int16var); /* this gives the length */ if(NULL==(vs->wlist.name[i] = HDmalloc((int16var+1)*sizeof(char)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); HIstrncpy(vs->wlist.name[i], (char *) bb, int16var + 1); bb += (size_t)int16var; } } /* end else */ /* retrieve the vsname (and vsnamelen) */ INT16DECODE(bb, int16var); /* this gives the length */ HIstrncpy(vs->vsname, (char *) bb, int16var + 1); bb += (size_t)int16var; /* retrieve the vsclass (and vsclasslen) */ INT16DECODE(bb, int16var); /* this gives the length */ HIstrncpy(vs->vsclass, (char *) bb, int16var + 1); bb += (size_t)int16var; /* retrieve the expansion tag and ref */ UINT16DECODE(bb, vs->extag); UINT16DECODE(bb, vs->exref); /* retrieve the middle version field */ INT16DECODE(bb, temp); if (temp != vs->version) HGOTO_ERROR(DFE_BADVH, FAIL); /* retrieve the 'more' field */ INT16DECODE(bb, temp); if (temp != vs->more) HGOTO_ERROR(DFE_BADVH, FAIL); if (vs->version == VSET_NEW_VERSION) { /* new features exist */ UINT32DECODE(bb, vs->flags); if (vs->flags & VS_ATTR_SET) { /* get attr info */ INT32DECODE(bb, vs->nattrs); if (NULL == (vs->alist = (vs_attr_t *)HDmalloc(vs->nattrs*sizeof(vs_attr_t)))) HGOTO_ERROR(DFE_NOSPACE, FAIL); for (i=0; inattrs; i++) { INT32DECODE(bb, vs->alist[i].findex); UINT16DECODE(bb, vs->alist[i].atag); UINT16DECODE(bb, vs->alist[i].aref); } /* for */ } /* attr set */ } /* new version */ if (vs->version <= VSET_OLD_TYPES) { for (i = 0; i < vs->wlist.n; i++) /* save the type */ vs->wlist.type[i] = map_from_old_types((intn)vs->wlist.type[i]); } /* --- EXTRA --- fill in the machine-dependent size fields */ for (i = 0; i < vs->wlist.n; i++) { vs->wlist.esize[i] = (uint16) (vs->wlist.order[i] * DFKNTsize((int32) vs->wlist.type[i] | (int32) DFNT_NATIVE)); } } /* if version <= 4 */ done: if (ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vunpackvs */ /******************************************************************************* NAME vsdestroynode DESCRIPTION Frees B-Tree nodes *** Only called by B-tree routines, should _not_ be called externally *** *** unless you know what your are doing *** RETURNS Nothing *******************************************************************************/ void vsdestroynode(void * n /* IN: Node in TBBT-tree */) { VDATA *vs = NULL; intn i; if (n != NULL) { vs = ((vsinstance_t *) n)->vs; if (vs != NULL) { /* Free the dynamicly allocated VData fields */ for(i=0; iwlist.n; i++) HDfree(vs->wlist.name[i]); HDfree(vs->wlist.name); HDfree(vs->wlist.bptr); if(vs->rlist.item != NULL) HDfree(vs->rlist.item); if (vs->alist != NULL) HDfree(vs->alist); VSIrelease_vdata_node(vs); } /* end if */ /* relase this instance to the free list ? */ VSIrelease_vsinstance_node((vsinstance_t *)n); } /* end if 'n' */ } /* vsdestroynode */ /******************************************************************************* NAME VSPgetinfo -- Read in the "header" information about the Vdata. DESCRIPTION This routine pre-reads the header information for a Vdata into memory so that it can be accessed more quickly by the routines that need it. RETURNS Return a pointer to a VDATA filled with the Vdata information on success, NULL on failure. *******************************************************************************/ VDATA * VSPgetinfo(HFILEID f, /* IN: file handle */ uint16 ref /* IN: ref of the Vdata */) { VDATA *vs = NULL; /* new vdata to be returned */ /* int32 vh_length; int32 is mismatches Vhbuf's type -- uint32 */ size_t vh_length; /* length of the vdata header */ VDATA *ret_value = NULL; /* FAIL */ CONSTR(FUNC, "VSPgetinfo"); /* clear error stack */ HEclear(); /* get a free Vdata node? */ if ((vs = VSIget_vdata_node()) == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); /* need to fetch length of vdata from file */ if ((vh_length = Hlength(f,DFTAG_VH,ref)) == FAIL) HGOTO_ERROR(DFE_BADLEN, NULL); if(vh_length > Vhbufsize) { Vhbufsize = vh_length; if (Vhbuf != NULL) HDfree(Vhbuf); if ((Vhbuf = (uint8 *) HDmalloc(Vhbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, NULL); } /* end if */ /* get Vdata header from file */ if (Hgetelement(f,DFTAG_VH,ref,Vhbuf) == FAIL) HGOTO_ERROR(DFE_NOVS, NULL); /* init all other fields in vdata and then unpack the vdata */ vs->otag = DFTAG_VH; vs->oref = ref; vs->f = f; if (FAIL == vunpackvs (vs,Vhbuf, vh_length)) HGOTO_ERROR(DFE_INTERNAL, NULL); /* return vdata */ ret_value = (vs); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end VSPgetinfo() */ /******************************************************************************* NAME VSattach DESCRIPTION NEW VSattach: (a) if vsid == -1 if "r" access return error. if "w" access create a new vs in vg and attach it. add to vsdir, set nattach= 1, nvertices = 0. (b) if (vsid > 0) if "r" access => look in vsdir if not found, fetch vs from file, add to vsdir, set nattach= 1, nvertices = val from file. if found, check access of found vs if "w" => being written, unstable! forbidden if "r" => ok. incr nattach. if "w" access => new data may be added BUT must be same format as existing vdata. (ie. VSsetfields must match old format exactly!!) Allows for seeks to write. in all cases, set the marked flag to 0. returns NULL if error. OLD VSattach: if vsid == -1, then (a) if vg is "w", create a new vs in vg and attach it. add to vsdir, set nattach= 1, nvertices = 0. (b) if vg is "r", forbidden. if vsid is +ve, then (a) if vg is "w" => new data may be added BUT must be same format as existing vdata. (ie. VSsetfields must match old format exactly!!) (b) if vg is "r" => look in vsdir if not found, fetch vs from file, add to vsdir, set nattach= 1, nvertices = val from file. if found, check access of found vs if "w" => being written, unstable! forbidden if "r" => ok. incr nattach. in all cases, set the marked flag to 0. returns NULL if error. RETURNS *******************************************************************************/ int32 VSattach(HFILEID f, /* IN: file handle */ int32 vsid, /* IN: vdata id i.e. ref */ const char *accesstype /* IN: access type */) { VDATA *vs = NULL; /* new vdata to be returned */ vsinstance_t *w = NULL; vfile_t *vf = NULL; int32 acc_mode; int32 ret_value = FAIL; CONSTR(FUNC, "VSattach"); /* clear error stack */ HEclear(); /* check file and vdata handles */ if ((f == FAIL) || (vsid < -1)) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, FAIL); /* check access type and covert to internal mode? */ if (accesstype[0] == 'R' || accesstype[0] == 'r') acc_mode = 'r'; else if (accesstype[0] == 'W' || accesstype[0] == 'w') acc_mode = 'w'; else HGOTO_ERROR(DFE_BADACC, FAIL); /* */ if (vsid == -1) { /* ---------- VSID IS -1 ----------------------- if "r" access return error. if "w" access create a new vs in vg and attach it. add to vsdir, set nattach= 1, nvertices = 0. */ if (acc_mode == 'r') HGOTO_ERROR(DFE_BADACC, FAIL); /* otherwise 'w' */ /* allocate space for vs, & zero it out */ if ((vs = VSIget_vdata_node()) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); vs->otag = DFTAG_VH; vs->oref = Hnewref(f); if (vs->oref == 0) { VSIrelease_vdata_node(vs); HGOTO_ERROR(DFE_NOREF, FAIL); } vs->interlace = FULL_INTERLACE; /* DEFAULT */ vs->access = 'w'; vs->f = f; vs->version = VSET_VERSION; /* attach new vs to file's vstab */ if (NULL == (w = VSIget_vsinstance_node())) HGOTO_ERROR(DFE_NOSPACE, FAIL); vf->vstabn++; w->key = (int32) vs->oref; /* set the key for the node */ w->ref = (uintn) vs->oref; w->vs = vs; w->nattach = 1; w->nvertices = 0; /* insert the vs instance in B-tree */ tbbtdins(vf->vstree, w, NULL); vs->instance = w; } /* end of case where vsid is -1 */ else { /* -------- VSID IS NON_NEGATIVE ------------- if "r" access => look in vsdir if not found, fetch vs from file, add to vsdir, set nattach= 1, nvertices = val from file. if found, check access of found vs if "w" => being written, unstable! forbidden if "r" => ok. incr nattach. if "w" access => new data may be added BUT must be same format as existing vdata. (ie. VSsetfields must match old format exactly!!) Allows for seeks to write. in all cases, set the marked flag to 0. returns NULL if error. */ if (NULL == (w = vsinst(f, (uint16) vsid))) HGOTO_ERROR(DFE_VTAB, FAIL); if (acc_mode == 'r') { /* reading an existing vdata */ /* this vdata is already attached for 'r', ok to do so again */ /* then reset the read position to the beginning of the vdata */ if (w->nattach && w->vs->access == 'r') { accrec_t *access_rec; /* access record */ w->nattach++; /* get the access_rec pointer to reset position */ if ((access_rec = HAatom_object(w->vs->aid)) == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); access_rec->posn = 0; /* to fix bugzilla #486 - BMR, Dec, 05 */ } else { vs = w->vs; vs->access = 'r'; vs->aid = Hstartread(vs->f, VSDATATAG, vs->oref); if (vs->aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); vs->instance = w; /* attach vs to vsdir at the vdata instance w */ w->nattach = 1; w->nvertices = vs->nvertices; } /* end else */ } /* end of case where vsid is positive, and "r" */ else { /* writing to an existing vdata */ if (w->nattach) /* vdata previously attached before */ HGOTO_ERROR(DFE_BADATTACH, FAIL); vs = w->vs; vs->access = 'w'; vs->aid = Hstartwrite(vs->f, VSDATATAG, vs->oref, 0); if (vs->aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); vs->instance = w; vs->new_h_sz = 0; /* attach vs to vsdir at the vdata instance w */ w->nattach = 1; w->nvertices = vs->nvertices; } /* end of case where vsid is positive, and "w" */ } /* end else */ /* register this vdata with group */ ret_value = HAregister_atom(VSIDGROUP,w); /* Make VDatas appendable by default */ if (FAIL == VSappendable(ret_value,VDEFAULTBLKSIZE)) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSattach */ /******************************************************************************* NAME VSdetach DESCRIPTION Detach vs from vstab. if vs has "w" access, ( <=> only attached ONCE! ) decr nattach. if (nattach is not 0) => bad error in code. if nvertices (in vs) is 0) just free vs from vstab. if marked flag is 1 write out vs to file and set marked flag to 0. free vs from vsdir. if vs has "r" access, ( <=> only attached ONCE! ) decr nattach. if (nattach is 0) just free vs from vstab. RETURNS SUCCEED / FAIL *******************************************************************************/ int32 VSdetach(int32 vkey /* IN: vdata key? */) { int32 i; int32 ret; int32 vspacksize; vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSdetach"); /* clear error stack */ HEclear(); /* check if vdata is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); w->nattach--; /* detach from vdata */ /* --- case where access was 'r' --- */ if (vs->access == 'r') { if (w->nattach == 0) { /* end access to vdata */ if (Hendaccess(vs->aid) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); vs->aid = FAIL; /* remove from atom list */ if(HAremove_atom(vkey)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end if */ /* we are done */ HGOTO_DONE(SUCCEED); } else /* must be write */ { /* --- case where access was 'w' --- */ if (w->nattach != 0) HGOTO_ERROR(DFE_CANTDETACH, FAIL); if (vs->marked) { /* if marked , write out vdata's VSDESC to file */ size_t need; need = sizeof(VWRITELIST) + (size_t)vs->nattrs*sizeof(vs_attr_t) + sizeof(VDATA) + 1; if(need > Vhbufsize) { Vhbufsize = need; if (Vhbuf) HDfree(Vhbuf); if ((Vhbuf = HDmalloc(Vhbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* end if */ if (FAIL == vpackvs(vs, Vhbuf, &vspacksize)) HGOTO_ERROR(DFE_INTERNAL, FAIL); /* if VH size changed we need to re-use the tag/ref * for new header. This will cause the pointer to the * original vdata header to be lost but this is okay. */ if (vs->new_h_sz) { /* check if tag/ref exists in DD list already */ switch(HDcheck_tagref(vs->f, DFTAG_VH, vs->oref)) { case 0: /* not found */ break; case 1: /* found, reuse tag/ref */ if (HDreuse_tagref(vs->f, DFTAG_VH, vs->oref) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); break; case -1: /* error */ HGOTO_ERROR(DFE_INTERNAL, FAIL); default: /* should never get here */ HGOTO_ERROR(DFE_INTERNAL, FAIL); } } /* write new one */ ret = Hputelement(vs->f, VSDESCTAG, vs->oref, Vhbuf, vspacksize); if (ret == FAIL) HGOTO_ERROR(DFE_WRITEERROR, FAIL); vs->marked = 0; vs->new_h_sz = 0; } /* remove all defined symbols */ for (i = 0; i < vs->nusym; i++) HDfree(vs->usym[i].name); if(vs->usym!=NULL) HDfree(vs->usym); /* free the actual array */ vs->nusym = 0; vs->usym=NULL; /* end access to vdata */ if (Hendaccess(vs->aid) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); vs->aid = FAIL; /* remove vdata from atom list */ if(HAremove_atom(vkey)==NULL) HGOTO_ERROR(DFE_INTERNAL, FAIL); } /* end of 'write' case */ done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSdetach */ /******************************************************************************* NAME VSappendable DESCRIPTION Make it possible to append unlimitedly to an existing VData RETURNS SUCCEED, or FAIL for error *******************************************************************************/ int32 VSappendable(int32 vkey, /* IN: vdata key */ int32 blk /* IN: */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSappendable"); /* clear error stack */ HEclear(); /* shut compiler up */ blk = blk; /* check vdata key is a valid */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get Vdata itself and check */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS, FAIL); if(vs->aid == 0) vs->aid = Hstartaccess(vs->f, VSDATATAG, vs->oref, DFACC_RDWR|DFACC_APPENDABLE); else ret_value = Happendable(vs->aid); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSappendable */ /******************************************************************************* NAME VSgetid DESCRIPTION returns the id of the next VDATA from the file f . (vsid = -1 gets the 1st vDATA). RETURNS RETURNS -1 on error. RETURNS vdata id (0 or +ve integer) *******************************************************************************/ int32 VSgetid(HFILEID f, /* IN: file handle */ int32 vsid /* IN: vdata id i.e. ref */) { vsinstance_t *w = NULL; vfile_t *vf = NULL; void * *t = NULL; int32 key; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetid"); /* clear error stack */ HEclear(); /* check valid vdata id */ if (vsid < -1) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF, FAIL); if (vsid == -1) { /* vsid '-1' case */ if (vf->vstree==NULL) HGOTO_DONE(FAIL); if ((t = (void **)tbbtfirst((TBBT_NODE *) * (vf->vstree))) == NULL) HGOTO_DONE(FAIL); /* we assume 't' is valid at this point */ w = (vsinstance_t *) * t; /* get actual pointer to the vsinstance_t */ HGOTO_DONE((int32)w->ref);/* rets 1st vdata's ref */ } else /* vsid >= 0 */ { /* tbbtdfind returns a pointer to the vsinstance_t pointer */ key = (int32)vsid; t = (void * *) tbbtdfind(vf->vstree, &key, NULL); if (t == NULL) /* couldn't find the old vsid */ ret_value = (FAIL); else if (NULL == (t = (void * *) tbbtnext((TBBT_NODE *) t))) /* get the next node in the tree */ ret_value = (FAIL); else { w = (vsinstance_t *) * t; /* get actual pointer to the vsinstance_t */ ret_value = (int32)w->ref; /* rets vdata's ref */ } /* end else */ } done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSgetid */ /******************************************************************************* NAME VSQuerytag DESCRIPTION get the 'otag' of the given Vdata RETURNS Return the 'otag' of the given Vdata Return FAIL on failure *******************************************************************************/ int32 VSQuerytag(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSQuerytag"); /* clear error stack */ HEclear(); /* check vdata key is a valid */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); /* get Vdata itself and check */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); /* return otag of vdata */ ret_value = ((int32) vs->otag); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSQuerytag */ /******************************************************************************* NAME VSQueryref DESCRIPTION get the ref of the the given Vdata RETURNS Return the ref of the given Vdata Return FAIL on failure *******************************************************************************/ int32 VSQueryref(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSQueryref"); /* clear error stack */ HEclear(); /* check vdata key is a valid */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS,FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS,FAIL); /* get Vdata itself and check */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS,FAIL); /* return ref of vdata */ ret_value = ((int32) vs->oref); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSQueryref */ /******************************************************************************* NAME vswritelist DESCRIPTION get the 'writelist' of the given vdata RETURNS return the 'writelist' of the vdata if successful else NULL *******************************************************************************/ DYN_VWRITELIST * vswritelist(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; DYN_VWRITELIST *ret_value = NULL; /* Failure */ CONSTR(FUNC, "VSwritelist"); /* clear error stack */ HEclear(); /* check vdata key is a valid */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, NULL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, NULL); /* get Vdata itself and check */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS, NULL); /* return 'writelist' */ ret_value = (&(vs->wlist)); done: if(ret_value == NULL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* vswritelist() */ /******************************************************************************* NAME VSgetversion DESCRIPTION get the version nuber of the vdata RETURNS return the version number if successful else '0'. *******************************************************************************/ int32 VSgetversion(int32 vkey /* IN: vdata key */) { vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSgetversion"); /* clear error stack */ HEclear(); /* check vdata key is a valid */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, 0); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, 0); /* get Vdata itself and check */ vs = w->vs; if ((vs == NULL) || (vs->otag != VSDESCTAG)) HGOTO_ERROR(DFE_ARGS, 0); /* return version number */ ret_value = (int32)vs->version; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end VSgetversion() */ /******************************************************************************* NAME VSdelete DESCRIPTION Remove a Vdata from its file. This function will both remove the Vdata from the internal Vset data structures as well as from the file. 'vsid' is actually the 'ref' of the vdata. (i.e. it calls tbbt_delete() and Hdeldd()) RETURNS Return FAIL / SUCCEED *******************************************************************************/ int32 VSdelete(int32 f, /* IN: file handle */ int32 vsid /* IN: vdata id i.e. ref */) { void * v; vfile_t *vf = NULL; void * *t = NULL; int32 key; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSdelete"); /* clear error stack */ HEclear(); /* check valid vdata id */ if (vsid < -1) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata file record */ if (NULL == (vf = Get_vfile(f))) HGOTO_ERROR(DFE_FNF,FAIL); /* find vdata in TBBT using it's ref */ key = vsid; if (( t = (void * *) tbbtdfind(vf->vstree, &key, NULL))== NULL) HGOTO_DONE(FAIL); /* remove vdata from TBBT */ v = tbbtrem((TBBT_NODE **) vf->vstree, (TBBT_NODE *) t, NULL); /* destroy vdata node itself*/ if (v != NULL) vsdestroynode(v); /* delete vdata header and data from file */ if (Hdeldd(f, DFTAG_VS, (uint16) vsid) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); if (Hdeldd(f, DFTAG_VH, (uint16) vsid) == FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSdelete */ libhdf4-4.2.10/HDF_ALT/hdf/src/vattrf.c0000644000000000000000000002231712421456623014115 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: vattrf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* * * vattrf.c * Part of the HDF Vset attribute interface. * * C routines (short names) to be called from fortran * * ******************************************************/ #define VSET_INTERFACE #include "hdf.h" #include "hproto_fortran.h" /* ----------------- vsfcfdx ---------------------- * get field index * VSfindex -- vsfcfdx -- vsffidx */ FRETVAL(intf) nvsfcfdx(intf *vsid, _fcd fldnm, intf *findex, intf *fldnmlen) { intf ret; char *fld; fld = HDf2cstring(fldnm, (intn) *fldnmlen); if (!fld) return(FAIL); ret = (intf) VSfindex((int32) *vsid, fld, (int32 *) findex); HDfree(fld); return(ret); } /* ------------------------------------------------- * vsfcsat -- set a numeric attr for a vdata or a field * of a vdata * VSsetattr -- vsfcsat -- vsfsnat */ FRETVAL(intf) nvsfcsat(intf *vsid, intf *findex, _fcd attrnm, intf *dtype, intf *count, intf *values, intf *attrnmlen) { intf ret; char *attrname; int32 cfindex; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); cfindex = *findex; ret = (intf )VSsetattr((int32) *vsid, (int32) cfindex, attrname, (int32) *dtype, (int32) *count, (VOIDP) values); HDfree(attrname); return(ret); } /* ---------------------------------------------------- * vsfcsca -- set char attr for vdata or its field * * VSsetattr -- vsfcsca -- vsfscat */ FRETVAL(intf) nvsfcsca(intf *vsid, intf *findex, _fcd attrnm, intf *dtype, intf *count, _fcd values, intf *attrnmlen) { intf ret; char *attrname; int32 cfindex; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); cfindex = *findex; ret = (intf) VSsetattr((int32) *vsid, (int32) cfindex, attrname, (int32) *dtype, (int32) *count, (VOIDP) _fcdtocp(values)); HDfree(attrname); return(ret); } /* ------------------------------------------------------- * vsfnats -- get total number of attributes of a vdata and * its fields * VSnattrs -- vsfnats */ FRETVAL(intf) nvsfnats(intf *vsid) { intf ret; ret = (intf) VSnattrs((int32) *vsid); return(ret); } /* ------------------------------------------------------- * vsffnas -- get number of attributes of a vdata or of a field * * VSfnattrs -- vsffnas */ FRETVAL(intf) nvsffnas(intf *vsid, intf *findex) { intf ret; int32 cfindex; cfindex = *findex; ret = (intf) VSfnattrs((int32) *vsid, (int32) cfindex); return(ret); } /* --------------------------------------------------------- * vsfcfda -- find attribute of a vdata of a field * of the vdata * VSfindattr -- vsfcfda -- vsffdat */ FRETVAL(intf) nvsfcfda(intf *vsid, intf *findex, _fcd attrnm, intf *attrnmlen) { intf ret; char *attrname; int32 cfindex; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); cfindex = *findex; ret = (intf) VSfindattr((int32) *vsid, (int32) cfindex, attrname); HDfree(attrname); return(ret); } /* --------------------------------------------------------- * vsfainf -- get attribute info * VSattrinfo -- vsfcain -- vsfainf */ FRETVAL(intf) nvsfcain(intf *vsid, intf *findex, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size, intf *attrnamelen) { CONSTR(FUNC, "vsfainf"); intf ret = FAIL; /* temporary variables */ int32 cfindex; int32 tdtype, tcount, tsize; char *tattrname; cfindex = *findex; /* Allocate space for fortran strings */ tattrname = (char *) HDmalloc(*attrnamelen + 1); if (!tattrname) HRETURN_ERROR(DFE_NOSPACE, FAIL); ret = (intf) VSattrinfo((int32) *vsid, (int32) cfindex, (int32) *aindex, tattrname, &tdtype, &tcount, &tsize); if (ret != FAIL){ /* move values from temporary space to fortran variables */ *dtype = tdtype; *count = tcount; *size = tsize; /* convert C-string results back to Fortran strings */ HDpackFstring(tattrname, _fcdtocp(attrname), (intn) *attrnamelen); } HDfree(tattrname); return(ret); } /* --------------------------------------------------------- * vsfgnat -- get values of a numeric attribute * VSgetattr -- vsfgnat */ FRETVAL(intf) nvsfgnat(intf *vsid, intf *findex, intf *aindex, intf *values) { intf ret; int32 cfindex; cfindex = *findex; ret = (intf) VSgetattr((int32) *vsid,(int32) cfindex,(int32) *aindex, (VOIDP) values); return(ret); } /* -------------------------------------------------------- * vsfgcat -- get values of a char type attribute * VSgetattr -- vsfgcat */ FRETVAL(intf) nvsfgcat(intf *vsid,intf *findex,intf *aindex,_fcd values) { intf ret; int32 cfindex; cfindex = *findex; ret = (intf )VSgetattr((int32) *vsid, cfindex, (int32) *aindex, (VOIDP) _fcdtocp(values)); return(ret); } /* --------------------------------------------------------- * vsfisat -- test if a vdata is an attribute of other object * VSisattr -- vsfisat */ FRETVAL(intf) nvsfisat(intf *vsid) { intf ret; ret = (intf) VSisattr((int32) *vsid); return(ret); } /* --------------------------------------------------------- * vfcsatt -- set a numeric attr for a vgroup * Vsetattr -- vfcsatt -- vfsnatt */ FRETVAL(intf) nvfcsatt(intf *vgid, _fcd attrnm, intf *dtype, intf *count, intf *values, intf *attrnmlen) { intf ret; char *attrname; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); ret = (intf) Vsetattr((int32) *vgid, attrname, (int32) *dtype, (int32) *count, (VOIDP) values); HDfree(attrname); return(ret); } /* ---------------------------------------------------- * vfcscat -- set char attr for vgroup * * Vsetattr -- vfcscat -- vfscatt */ FRETVAL(intf) nvfcscat(intf *vgid, _fcd attrnm, intf *dtype, intf *count, _fcd values, intf *attrnmlen) { intf ret; char *attrname; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); ret = (intf) Vsetattr((int32) *vgid, attrname, (int32) *dtype, (int32) *count, (VOIDP) _fcdtocp(values)); HDfree(attrname); return(ret); } /* ------------------------------------------------------- * vfnatts -- get number of attributes of a vgroup * Vnattrs -- vfnatts */ FRETVAL(intf) nvfnatts(intf *vgid) { intf ret; ret = (intf) Vnattrs((int32) *vgid); return(ret); } /* --------------------------------------------------------- * vfcfdat -- find attribute of a vgroup * Vfindattr -- vfcfdat -- vffdatt */ FRETVAL(intf) nvfcfdat(intf *vgid, _fcd attrnm, intf *attrnmlen) { intf ret; char *attrname; attrname = HDf2cstring(attrnm, (intn) *attrnmlen); if (!attrname) return(FAIL); ret = (intf) Vfindattr((int32) *vgid, attrname); HDfree(attrname); return(ret); } /* --------------------------------------------------------- * vfainf -- get attribute info * Vattrinfo -- vfainfo */ FRETVAL(intf) nvfainfo(intf *vgid, intf *aindex, _fcd attrname, intf *dtype, intf *count, intf *size) { intf ret; ret = (intf) Vattrinfo((int32) *vgid, (int32) *aindex, _fcdtocp(attrname), (int32 *) dtype, (int32 *) count, (int32 *) size); return(ret); } /* --------------------------------------------------------- * vfgnatt -- get values of a numeric attribute * Vgetattr -- vfgnatt */ FRETVAL(intf) nvfgnatt(intf *vgid, intf *aindex, intf *values) { intf ret; ret = (intf) Vgetattr((int32) *vgid, *aindex, (VOIDP) values); return(ret); } /* -------------------------------------------------------- * vfgcatt -- get values of a char type attribute * Vgetattr -- vfgcatt */ FRETVAL(intf) nvfgcatt(intf *vgid, intf *aindex, _fcd values) { intf ret; ret = (intf) Vgetattr((int32) *vgid,(int32) *aindex,(VOIDP) _fcdtocp(values)); return(ret); } /* --------------------------------------------------------- * vfgver -- get version number of a vgroup * Vgetversion -- vfgver */ FRETVAL(intf) nvfgver(intf *vgid) { intf ret; ret = (intf) Vgetversion((int32) *vgid); return(ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/dfufp2iff.f0000644000000000000000000001027112421456623014461 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: dfufp2if.f 1014 1994-01-13 21:16:42Z georgev $ C C------------------------------------------------------------------------------ C File: DFUfptoimFf.f C Purpose: Fortran stub for DFUfptoimage() C Invokes: DFUfptoimage.c C Contents: C duf2im: call duif2i_ to invoke DFUfptoimage() C dfufptoimage: call duif2i_ to invoke DFUfptoimage() C ----------------------------------------------------------------------------- C------------------------------------------------------------------------------ C Name: duf2im C Purpose: call duif2i_ to invoke DFUfptoimage() C Inputs: C hdim, vdim: horizontal and vertical dimensions of input data C max, min: maximum and minimum values in the data C hscale,vscale: optional horizontal and vertical scales C data: input data C palette: optional palette to be stored with the image C outfile:n name of hdf file to store image in C ctmethod: color transform method: 1=EXPAND; 2=INTERP C hres, vres: resolutions desired for output image C compress: compression flag: 0=don't; 1=do C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: process C Remarks: none C---------------------------------------------------------------------------- integer function duf2im(hdim,vdim,max,min,hscale,vscale,data, * palette,outfile,ctmethod,hres,vres,compress) integer hdim, vdim real max, min, hscale, vscale, data character*(*) palette character*(*) outfile integer ctmethod, hres, vres, compress, duif2i duf2im = duif2i(hdim,vdim,max,min,hscale,vscale,data,palette, * outfile,ctmethod,hres,vres,compress, len(outfile)) return end CEND7MAX C------------------------------------------------------------------------------ C Name: dfufptoimage C Purpose: call duif2i_ to invoke DFUfptoimage() C Inputs: C hdim, vdim: horizontal and vertical dimensions of input data C max, min: maximum and minimum values in the data C hscale,vscale: optional horizontal and vertical scales C data: input data C palette: optional palette to be stored with the image C outfile:n name of hdf file to store image in C ctmethod: color transform method: 1=EXPAND; 2=INTERP C hres, vres: resolutions desired for output image C compress: compression flag: 0=don't; 1=do C Returns: 0 on success, -1 on failure with DFerror set C Users: HDF HLL (high-level library) users, utilities, other routines C Invokes: process C Remarks: none C---------------------------------------------------------------------------- integer function dfufptoimage(hdim,vdim,max,min,hscale,vscale, * data, palette,outfile,ctmethod,hres,vres,compress) integer hdim, vdim real max, min, hscale, vscale, data character*(*) palette character*(*) outfile integer ctmethod, hres, vres, compress, duif2i dfufptoimage = * duif2i(hdim,vdim,max,min,hscale,vscale,data,palette, * outfile,ctmethod,hres,vres,compress, len(outfile)) return end libhdf4-4.2.10/HDF_ALT/hdf/src/hbitio.c0000644000000000000000000011070512421456623014064 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: hbitio.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE hbitio.c HDF bit level I/O routines REMARKS These functions operate on top of the "H" layer routines (i.e. they call Hstartread, Hstartwrite, Hread, Hseek, Hwrite, etc.) and depend on them for all actual I/O to data elements in the file. This may be somewhat slow, but it prevents having to duplicate code for that access. EXPORTED ROUTINES Hstartbitread - open a dataset for bitfile dataset reading Hstartbitwrite - open a dataset for bitfile dataset writing Happendable - make a writable dataset appendable Hbitread - read bits from a bitfile dataset Hbitwrite - write bits to a bitfile dataset Hbitseek - seek to a given bit offset in a bitfile dataset Hendbitaccess - close off access to a bitfile dataset LOCAL ROUTINES HIbitflush - flush the bits out to a writable bitfile HIget_bitfile_rec - get a free bitfile record HIread2write - switch from reading bits to writing them HIwrite2read - switch from writing bits to reading them AUTHOR Quincey Koziol MODIFICATION HISTORY 3/15/92 Starting writing */ #define BITMASTER #include "hdf.h" #include "hfile.h" /* Local Variables */ /* Whether we've installed the library termination function yet for this interface */ PRIVATE intn library_terminate = FALSE; /* Local Function Declarations */ PRIVATE bitrec_t * HIget_bitfile_rec(void); PRIVATE intn HIbitflush(bitrec_t * bitfile_rec, intn flushbit, intn writeout); PRIVATE intn HIwrite2read(bitrec_t * bitfile_rec); PRIVATE intn HIread2write(bitrec_t * bitfile_rec); PRIVATE intn HIbitstart(void); /* #define TESTING */ /* Actual Function Definitions */ /*-------------------------------------------------------------------------- NAME Hstartbitread -- locate and position a bit-read access elt on a tag/ref USAGE int32 Hstartbitread(fileid, tag, ref) int fileid; IN: id of file to attach access element to int tag; IN: tag to search for int ref; IN: ref to search for RETURNS returns id of bit-access element if successful, otherwise FAIL (-1) DESCRIPTION Calls Hstartread and initializes bit-level structures. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 Hstartbitread(int32 file_id, uint16 tag, uint16 ref) { CONSTR(FUNC, "Hstartbitread"); /* for HERROR */ int32 aid; /* Access ID for the bit-level routines to use */ struct bitrec_t *bitfile_rec; /* Pointer to the bitfile record */ int32 ret_value; /* return bit ID */ /* clear error stack */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(HIbitstart()==FAIL) HRETURN_ERROR(DFE_CANTINIT, FAIL); /* Try to get an AID */ if ((aid = Hstartread(file_id, tag, ref)) == FAIL) HRETURN_ERROR(DFE_BADAID, FAIL); /* get a slot in the access record array */ if ((bitfile_rec = HIget_bitfile_rec()) == NULL) HRETURN_ERROR(DFE_TOOMANY, FAIL); bitfile_rec->acc_id = aid; ret_value= HAregister_atom(BITIDGROUP,bitfile_rec); bitfile_rec->bit_id=ret_value; if (HQuerylength(aid, &bitfile_rec->max_offset) == FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); bitfile_rec->byte_offset = 0; bitfile_rec->access = 'r'; bitfile_rec->mode = 'r'; bitfile_rec->bytez = bitfile_rec->bytea + BITBUF_SIZE; /* pre-read the first block into the buffer */ if (bitfile_rec->max_offset > bitfile_rec->byte_offset) { int32 read_size; /* number of bytes to read into buffer */ int32 n; /* number of bytes actually read */ read_size = MIN((bitfile_rec->max_offset - bitfile_rec->byte_offset), BITBUF_SIZE); if ((n = Hread(bitfile_rec->acc_id, read_size, bitfile_rec->bytea)) == FAIL) return (FAIL); /* EOF? somebody pulled the rug out from under us! */ bitfile_rec->buf_read = (intn) n; /* keep track of the number of bytes in buffer */ bitfile_rec->bytep = bitfile_rec->bytea; /* set to the beginning of the buffer */ } /* end if */ else { bitfile_rec->bytep = bitfile_rec->bytez; /* set to the end of the buffer to force read */ bitfile_rec->buf_read = 0; /* set the number of bytes in buffer to 0 */ } /* end else */ bitfile_rec->block_offset = 0; bitfile_rec->count = 0; return(ret_value); } /* Hstartbitread() */ /*-------------------------------------------------------------------------- NAME Hstartbitwrite -- set up a bit access elt for a write USAGE int32 Hstartbitwrite(fileid, tag, ref, len) int fileid; IN: id of file to write to int tag; IN: tag to write to int ref; IN: ref to write to long length; IN: the length of the data element (in bytes) RETURNS returns id of bit access element if successful and FAIL otherwise DESCRIPTION Set up a bit-write access elt to write out a data element. Calls Hstartwrite for most initialization and just initializes the bit- level stuff here. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 Hstartbitwrite(int32 file_id, uint16 tag, uint16 ref, int32 length) { CONSTR(FUNC, "Hstartbitwrite"); /* for HERROR */ bitrec_t *bitfile_rec; /* access record */ int32 aid; /* Access ID for the bit-level routines to use */ intn exists; /* whether dataset exists already */ int32 ret_value; /* return bit ID */ /* clear error stack and check validity of file id */ HEclear(); /* Perform global, one-time initialization */ if (library_terminate == FALSE) if(HIbitstart()==FAIL) HRETURN_ERROR(DFE_CANTINIT, FAIL); exists = (Hexist(file_id, tag, ref) == SUCCEED) ? TRUE : FALSE; /* Try to get an AID */ if ((aid = Hstartwrite(file_id, tag, ref, length)) == FAIL) HRETURN_ERROR(DFE_BADAID, FAIL); /* get empty slot in bit-access records */ if ((bitfile_rec = HIget_bitfile_rec()) == NULL) HRETURN_ERROR(DFE_TOOMANY, FAIL); bitfile_rec->acc_id = aid; ret_value= HAregister_atom(BITIDGROUP,bitfile_rec); bitfile_rec->bit_id=ret_value; bitfile_rec->byte_offset = 0; bitfile_rec->block_offset = 0; if (exists == TRUE) { if (HQuerylength(aid, &bitfile_rec->max_offset) == FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); /* pre-read the first block into the buffer */ if (bitfile_rec->max_offset > bitfile_rec->byte_offset) { int32 read_size; /* number of bytes to read into buffer */ int32 n; /* number of bytes actually read */ read_size = MIN((bitfile_rec->max_offset - bitfile_rec->byte_offset), BITBUF_SIZE); if ((n = Hread(bitfile_rec->acc_id, read_size, bitfile_rec->bytea)) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); /* EOF? somebody pulled the rug out from under us! */ bitfile_rec->buf_read = (intn) n; /* keep track of the number of bytes in buffer */ if (Hseek(bitfile_rec->acc_id, bitfile_rec->block_offset, DF_START) == FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ } /* end if */ else { bitfile_rec->max_offset = 0; bitfile_rec->buf_read = 0; /* set the number of bytes in buffer to 0 */ } /* end else */ bitfile_rec->access = 'w'; bitfile_rec->mode = 'w'; bitfile_rec->bytez = bitfile_rec->bytea + BITBUF_SIZE; bitfile_rec->bytep = bitfile_rec->bytea; /* set to the beginning of the buffer */ bitfile_rec->count = BITNUM; bitfile_rec->bits = 0; return ret_value; } /* end Hstartbitwrite() */ /*-------------------------------------------------------------------------- NAME Hbitappendable -- make a bitio AID appendable USAGE intn Hbitappendable(bitid) int32 bitid; IN: id of bit-element to make appendable RETURNS SUCCEED for success FAIL to indicate failure DESCRIPTION If a dataset is at the end of a file, allow Hbitwrite()s to write past the end of a file. Allows expanding datasets without the use of linked blocks. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hbitappendable(int32 bitid) { CONSTR(FUNC, "Hbitappendable"); /* for HERROR */ bitrec_t *bitfile_rec; /* access record */ /* clear error stack and check validity of file id */ HEclear(); if ((bitfile_rec = HAatom_object(bitid)) == NULL) HRETURN_ERROR(DFE_ARGS, FAIL); /* Check for write access */ if (bitfile_rec->access != 'w') HRETURN_ERROR(DFE_BADACC, FAIL); if (Happendable(bitfile_rec->acc_id) == FAIL) HRETURN_ERROR(DFE_NOTENOUGH, FAIL); return (SUCCEED); } /* end Hbitappendable() */ /*-------------------------------------------------------------------------- NAME Hbitwrite -- write a number of bits out to a bit-element USAGE intn Hbitwrite(bitid, count, data) int32 bitid; IN: id of bit-element to write to intn count; IN: number of bits to write uint32 data; IN: actual data bits to output (bits to output must be in the low bits) RETURNS the number of bits written for successful write, FAIL to indicate failure DESCRIPTION Write a number of bits out to a bit-element. This function buffers the bits and then writes them out when appropriate with Hwrite(). GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hbitwrite(int32 bitid, intn count, uint32 data) { CONSTR(FUNC, "Hbitwrite"); /* for HERROR */ static int32 last_bit_id=(-1); /* the bit ID of the last bitfile_record accessed */ static bitrec_t *bitfile_rec=NULL; /* access record */ intn orig_count = count; /* keep track of orig, number of bits to output */ /* clear error stack and check validity of file id */ HEclear(); if (count <= 0) HRETURN_ERROR(DFE_ARGS, FAIL); /* cache the bitfile_record since this routine gets called so many times */ if(bitid!=last_bit_id) { /* This needs a mutex semaphore when we go to a multi-threaded version of the library -QAK */ bitfile_rec = HAatom_object(bitid); last_bit_id=bitid; } /* end if */ if (bitfile_rec == NULL) HRETURN_ERROR(DFE_ARGS, FAIL); /* Check for write access */ if (bitfile_rec->access != 'w') HRETURN_ERROR(DFE_BADACC, FAIL); if (count > (intn)DATANUM) count = (intn)DATANUM; /* change bitfile modes if necessary */ if (bitfile_rec->mode == 'r') HIread2write(bitfile_rec); data &= maskl[count]; /* if the new bits will not fill up a byte, then just */ /* merge the new bits into the current bits buffer */ if (count < bitfile_rec->count) { bitfile_rec->bits |= (uint8)(data << (bitfile_rec->count -= count)); return (orig_count); } /* end if */ /* fill up the current bits buffer and output the byte */ *(bitfile_rec->bytep) = (uint8) (bitfile_rec->bits | (uint8)(data >> (count -= bitfile_rec->count))); bitfile_rec->byte_offset++; if (++bitfile_rec->bytep == bitfile_rec->bytez) { int32 write_size; write_size = bitfile_rec->bytez - bitfile_rec->bytea; bitfile_rec->bytep = bitfile_rec->bytea; if (Hwrite(bitfile_rec->acc_id, write_size, bitfile_rec->bytea) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); bitfile_rec->block_offset += write_size; /* check if we should pre-read the next block into the buffer */ if (bitfile_rec->max_offset > bitfile_rec->byte_offset) { int32 read_size; /* number of bytes to read into buffer */ int32 n; /* number of bytes actually read */ read_size = MIN((bitfile_rec->max_offset - bitfile_rec->byte_offset), BITBUF_SIZE); if ((n = Hread(bitfile_rec->acc_id, read_size, bitfile_rec->bytea)) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); /* EOF? somebody pulled the rug out from under us! */ bitfile_rec->buf_read = n; /* keep track of the number of bytes in buffer */ if (Hseek(bitfile_rec->acc_id, bitfile_rec->block_offset, DF_START) == FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ } /* end if */ /* output any and all remaining whole bytes */ while (count >= (intn)BITNUM) { *(bitfile_rec->bytep) = (uint8) (data >> (count -= (intn)BITNUM)); bitfile_rec->byte_offset++; if (++bitfile_rec->bytep == bitfile_rec->bytez) { int32 write_size; write_size = bitfile_rec->bytez - bitfile_rec->bytea; bitfile_rec->bytep = bitfile_rec->bytea; if (Hwrite(bitfile_rec->acc_id, write_size, bitfile_rec->bytea) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); bitfile_rec->block_offset += write_size; /* check if we should pre-read the next block into the buffer */ if (bitfile_rec->max_offset > bitfile_rec->byte_offset) { int32 read_size; /* number of bytes to read into buffer */ int32 n; /* number of bytes actually read */ read_size = MIN((bitfile_rec->max_offset - bitfile_rec->byte_offset), BITBUF_SIZE); if ((n = Hread(bitfile_rec->acc_id, read_size, bitfile_rec->bytea)) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); /* EOF? somebody pulled the rug out from under us! */ bitfile_rec->buf_read = n; /* keep track of the number of bytes in buffer */ if (Hseek(bitfile_rec->acc_id, bitfile_rec->block_offset, DF_START) == FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ } /* end if */ } /* end while */ /* put any remaining bits into the bits buffer */ if ((bitfile_rec->count = (intn)BITNUM - count) > 0) bitfile_rec->bits = (uint8) (data << bitfile_rec->count); /* Update the offset in the buffer */ if (bitfile_rec->byte_offset > bitfile_rec->max_offset) bitfile_rec->max_offset = bitfile_rec->byte_offset; return (orig_count); } /* end Hbitwrite() */ /*-------------------------------------------------------------------------- NAME Hbitread -- read a number of bits from a bit-element USAGE intn Hbitread(bitid, count, data) int32 bitid; IN: id of bit-element to write to intn count; IN: number of bits to write uint32 *data; IN: pointer to the bits to read OUT: points to the bits read in (bits input will be in the low bits) RETURNS the number of bits read for successful write, FAIL to indicate failure DESCRIPTION Read a number of bits from a bit-element. This function buffers the bits and then reads them when appropriate with Hread(). GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hbitread(int32 bitid, intn count, uint32 *data) { CONSTR(FUNC, "Hbitread"); /* for HERROR */ static int32 last_bit_id=(-1); /* the bit ID of the last bitfile_record accessed */ static bitrec_t *bitfile_rec=NULL; /* access record */ uint32 l; uint32 b = 0; /* bits to return */ intn orig_count; /* the original number of bits to read in */ int32 n; /* clear error stack and check validity of file id */ HEclear(); if (count <= 0) HRETURN_ERROR(DFE_ARGS, FAIL); /* cache the bitfile_record since this routine gets called so many times */ if(bitid!=last_bit_id) { /* This needs a mutex semaphore when we go to a multi-threaded version of the library -QAK */ bitfile_rec = HAatom_object(bitid); last_bit_id=bitid; } /* end if */ if (bitfile_rec == NULL) HRETURN_ERROR(DFE_ARGS, FAIL); /* Check for write access */ /* change bitfile modes if necessary */ if (bitfile_rec->mode == 'w') HIwrite2read(bitfile_rec); if (count > (intn)DATANUM) /* truncate the count if it's too large */ count = DATANUM; /* if the request can be satisfied with just the */ /* buffered bits then do the shift and return */ if (count <= bitfile_rec->count) { *data = (uint32)((uintn)bitfile_rec->bits >> (bitfile_rec->count -= count)) & (uint32) maskc[count]; return (count); } /* end if */ /* keep track of the original number of bits to read in */ orig_count = count; /* get all the buffered bits into the correct position first */ if (bitfile_rec->count > 0) { b = (uint32)(bitfile_rec->bits & maskc[bitfile_rec->count]); b <<= (count -= bitfile_rec->count); } /* end if */ /* bring in as many whole bytes as the request allows */ while (count >= (intn)BITNUM) { if (bitfile_rec->bytep == bitfile_rec->bytez) { n = Hread(bitfile_rec->acc_id, BITBUF_SIZE, bitfile_rec->bytea); if (n == FAIL) { /* EOF */ bitfile_rec->count = 0; /* make certain that we don't try to access the file->bits information */ *data = b; /* assign the bits read in */ return (orig_count - count); /* break out now */ } /* end if */ bitfile_rec->block_offset += bitfile_rec->buf_read; /* keep track of the number of bytes in buffer */ bitfile_rec->bytez = n + (bitfile_rec->bytep = bitfile_rec->bytea); bitfile_rec->buf_read = n; /* keep track of the number of bytes in buffer */ } /* end if */ l = (uint32) (*bitfile_rec->bytep++); b |= (uint32)(l << (count -= (intn)BITNUM)); bitfile_rec->byte_offset++; if (bitfile_rec->byte_offset > bitfile_rec->max_offset) bitfile_rec->max_offset = bitfile_rec->byte_offset; } /* end while */ /* split any partial request with the bits buffer */ if (count > 0) { if (bitfile_rec->bytep == bitfile_rec->bytez) { n = Hread(bitfile_rec->acc_id, BITBUF_SIZE, bitfile_rec->bytea); if (n == FAIL) { /* EOF */ bitfile_rec->count = 0; /* make certain that we don't try to access the file->bits information */ *data = b; /* assign the bits read in */ return (orig_count - count); /* return now */ } /* end if */ bitfile_rec->block_offset += bitfile_rec->buf_read; /* keep track of the number of bytes in buffer */ bitfile_rec->bytez = n + (bitfile_rec->bytep = bitfile_rec->bytea); bitfile_rec->buf_read = n; /* keep track of the number of bytes in buffer */ } /* end if */ bitfile_rec->count = ((intn)BITNUM - count); l = (uint32) (bitfile_rec->bits = *bitfile_rec->bytep++); b |= l >> bitfile_rec->count; bitfile_rec->byte_offset++; if (bitfile_rec->byte_offset > bitfile_rec->max_offset) bitfile_rec->max_offset = bitfile_rec->byte_offset; } /* end if */ else bitfile_rec->count = 0; *data = b; return (orig_count); } /* end Hbitread() */ /*-------------------------------------------------------------------------- NAME Hbitseek -- seek to a given bit position in a bit-element USAGE intn Hbitseek(bitid, offset) int32 bitid; IN: id of bit-element to write to intn byte_offset; IN: byte offset in the bit-element intn bit_offset; IN: bit offset from the byte offset RETURNS returns FAIL (-1) if fail, SUCCEED (0) otherwise. DESCRIPTION Seek to a bit offset in a bit-element. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES If seeking to the 15th bit in a bit-element, the call would look like: Hbitseek(bitid,1,7); Converting from a direct bit offset variable to this call looks like: Hbitseek(bitid,bit_offset/8,bit_offset%8); REVISION LOG --------------------------------------------------------------------------*/ intn Hbitseek(int32 bitid, int32 byte_offset, intn bit_offset) { CONSTR(FUNC, "Hbitseek"); /* for HERROR */ bitrec_t *bitfile_rec; /* access record */ int32 seek_pos; /* position of block to seek to */ int32 read_size; /* number of bytes to read into buffer */ int32 n; /* number of bytes actually read */ intn new_block; /* whether to move to another block in the dataset */ /* clear error stack and check validity of file id */ HEclear(); if (byte_offset < 0 || bit_offset < 0 || bit_offset > ((intn)BITNUM - 1) || (bitfile_rec = HAatom_object(bitid)) == NULL || byte_offset > bitfile_rec->max_offset) HRETURN_ERROR(DFE_ARGS, FAIL); /* determine whether we need to seek to another block in the file */ new_block = (byte_offset < bitfile_rec->block_offset || byte_offset >= bitfile_rec->block_offset + BITBUF_SIZE) ? TRUE : FALSE; if (bitfile_rec->mode == 'w') if (HIbitflush(bitfile_rec, -1, new_block) == FAIL) /* flush, but merge */ HRETURN_ERROR(DFE_WRITEERROR, FAIL); if (new_block == TRUE) { seek_pos = (byte_offset / BITBUF_SIZE) * BITBUF_SIZE; if (Hseek(bitfile_rec->acc_id, seek_pos, DF_START) == FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); read_size = MIN((bitfile_rec->max_offset - seek_pos), BITBUF_SIZE); if ((n = Hread(bitfile_rec->acc_id, read_size, bitfile_rec->bytea)) == FAIL) HRETURN_ERROR(DFE_READERROR, FAIL); /* EOF? somebody pulled the rug out from under us! */ bitfile_rec->bytez = n + (bitfile_rec->bytep = bitfile_rec->bytea); bitfile_rec->buf_read = n; /* keep track of the number of bytes in buffer */ bitfile_rec->block_offset = seek_pos; if (bitfile_rec->mode == 'w') /* if writing, return the file offset to it's original position */ if (Hseek(bitfile_rec->acc_id, seek_pos, DF_START) == FAIL) HRETURN_ERROR(DFE_SEEKERROR, FAIL); } /* end if */ bitfile_rec->byte_offset = byte_offset; /* set to the correct position in the buffer */ bitfile_rec->bytep = bitfile_rec->bytea + (byte_offset - bitfile_rec->block_offset); if (bit_offset > 0) { bitfile_rec->count = ((intn)BITNUM - bit_offset); if (bitfile_rec->mode == 'w') { /* if writing, mask off bits not yet written */ bitfile_rec->bits = *(bitfile_rec->bytep); bitfile_rec->bits &= maskc[bit_offset] << bitfile_rec->count; } /* end if */ else { bitfile_rec->bits = *bitfile_rec->bytep++; } /* end else */ } /* end if */ else { if (bitfile_rec->mode == 'w') { /* if writing, mask off bits not yet written */ bitfile_rec->count = BITNUM; bitfile_rec->bits = 0; } /* end if */ else { bitfile_rec->count = 0; } /* end else */ } /* end else */ return (SUCCEED); } /* end Hbitseek() */ /*-------------------------------------------------------------------------- NAME Hgetbit -- read 1 bit from a bit-element USAGE intn Hgetbit(bitid) int32 bitid; IN: id of bit-element to read from RETURNS the bit read in (0/1) on success, FAIL(-1) to indicate failure DESCRIPTION Read one bit from a bit-element. This function is mostly a wrapper around Hbitread. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hgetbit(int32 bitid) { CONSTR(FUNC, "Hgetbit"); /* for HERROR */ uint32 data; if (Hbitread(bitid, 1, &data) == FAIL) HRETURN_ERROR(DFE_BITREAD, FAIL) return ((intn) data); } /* end Hgetbit() */ #ifdef OLD_WAY /*-------------------------------------------------------------------------- NAME Hputbit -- write 1 bit to a bit-element USAGE intn Hputbit(bitid,bit) int32 bitid; IN: id of bit-element to read from intn bit; IN: bit to write RETURNS SUCCEED on success, FAIL(-1) to indicate failure DESCRIPTION Write one bit to a bit-element. This function is mostly a wrapper around Hbitwrite. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn Hputbit(int32 bitid, intn bit) { CONSTR(FUNC, "Hputbit"); /* for HERROR */ if (Hbitwrite(bitid, 1, (uint32) bit) == FAIL) HRETURN_ERROR(DFE_BITWRITE, FAIL) return (SUCCEED); } /* end Hputbit() */ #endif /* OLD_WAY */ /*-------------------------------------------------------------------------- NAME Hendbitaccess -- to dispose of a bitfile element USAGE int32 Hendbitaccess(bitfile_id,flushbit) int32 bitfile_id; IN: id of bitfile element to dispose of intn flushbit; IN: determines how to flush leftover bits (leftover bits are bits that have been buffered, but are less than the BITNUM (usually set to 8) number of bits) 0 - flush with zeros 1 - flush with ones -1 - throw away any leftover bits RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Used to dispose of a bitfile element. Flushes any buffered bits to the dataset (if writing), and then calls Hendaccess. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ int32 Hendbitaccess(int32 bitfile_id, intn flushbit) { CONSTR(FUNC, "Hendbitaccess"); /* for HERROR */ bitrec_t *bitfile_rec; /* bitfile record */ /* check validity of access id */ bitfile_rec = HAatom_object(bitfile_id); if (bitfile_rec == NULL) HRETURN_ERROR(DFE_ARGS, FAIL); if (bitfile_rec->mode == 'w') if (HIbitflush(bitfile_rec, flushbit, TRUE) == FAIL) HRETURN_ERROR(DFE_WRITEERROR,FAIL); HDfree((VOIDP) bitfile_rec->bytea); /* free the space for the buffer */ if(HAremove_atom(bitfile_id)==NULL) HRETURN_ERROR(DFE_WRITEERROR,FAIL); if(Hendaccess(bitfile_rec->acc_id)==FAIL) HRETURN_ERROR(DFE_CANTENDACCESS,FAIL); HDfree(bitfile_rec); return (SUCCEED); } /* end Hendbitaccess() */ /*-------------------------------------------------------------------------- NAME HIbitstart PURPOSE Bit I/O initialization routine USAGE intn HIbitstart() RETURNS Returns SUCCEED/FAIL DESCRIPTION One-time initialization of the interface GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn HIbitstart(void) { CONSTR(FUNC, "HIbitstart"); /* for HERROR */ intn ret_value = SUCCEED; /* Don't call this routine again... */ library_terminate = TRUE; /* Create the file ID and access ID groups */ if(HAinit_group(BITIDGROUP,16)==FAIL) HGOTO_ERROR(DFE_INTERNAL, FAIL); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return(ret_value); } /* end HIbitstart() */ /*-------------------------------------------------------------------------- NAME HIbitflush -- flush the bits out to a writable bitfile USAGE intn HIbitflush(bitfile_rec,flushbit) bitrec_t *bitfile_rec; IN: record of bitfile element to flush intn flushbit; IN: determines how to flush leftover bits (leftover bits are bits that have been buffered, but are less than the BITNUM (usually set to 8) number of bits) 0 - flush with zeros 1 - flush with ones -1 - throw away any leftover bits RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Used to flush the buffer of a bitfile element, preserving the bits in the buffer which have not been modified. The flushbits parameter is only used when the last bits written to the element are at the actual end of the dataset, not somewhere in the middle. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS This routine does _not_ leave the bitfile in a position to continue I/O from the current point, additional modifications would have to be made in order to accomodate this. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn HIbitflush(bitrec_t * bitfile_rec, intn flushbit, intn writeout) { CONSTR(FUNC, "HIbitflush"); intn write_size; /* number of bytes to write out */ if (bitfile_rec->count < (intn)BITNUM) { /* check if there are any */ if (bitfile_rec->byte_offset > bitfile_rec->max_offset) { if (flushbit != (-1)) /* only flush bits if asked and there are bits to flush */ if (Hbitwrite(bitfile_rec->bit_id, bitfile_rec->count, (uint32) (flushbit ? 0xFF : 0)) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); } /* end if */ else { /* we are in the middle of a dataset and need to integrate */ /* mask off a place for the new bits */ *(bitfile_rec->bytep) &= (uint8)(~(maskc[(intn)BITNUM - bitfile_rec->count] << bitfile_rec->count)); /* merge in new bits */ *(bitfile_rec->bytep) |= bitfile_rec->bits; bitfile_rec->bytep++; bitfile_rec->byte_offset++; /* Update the offset in the buffer */ if (bitfile_rec->byte_offset > bitfile_rec->max_offset) bitfile_rec->max_offset = bitfile_rec->byte_offset; bitfile_rec->count = BITNUM; /* reset count */ bitfile_rec->bits=0; /* reset bits */ } /* end else */ } /* end if */ if (writeout == TRUE) { /* only write data out if necessary */ write_size = (intn) MIN((bitfile_rec->bytez - bitfile_rec->bytea),bitfile_rec->max_offset); if (write_size > 0) if (Hwrite(bitfile_rec->acc_id, write_size, bitfile_rec->bytea) == FAIL) HRETURN_ERROR(DFE_WRITEERROR, FAIL); } /* end if */ return (SUCCEED); } /* HIbitflush */ /*-------------------------------------------------------------------------- HIget_bitfile_rec - get a new bitfile record --------------------------------------------------------------------------*/ PRIVATE bitrec_t * HIget_bitfile_rec(void) { CONSTR(FUNC, "HIget_bitfile_rec"); bitrec_t *ret_value=NULL; ret_value = (bitrec_t *) HDcalloc(1, sizeof(bitrec_t)); if ((ret_value->bytea = (uint8 *) HDmalloc(BITBUF_SIZE)) == NULL) HRETURN_ERROR(DFE_NOSPACE, NULL); return ret_value; } /* HIget_bitfile_rec */ /*-------------------------------------------------------------------------- NAME HIread2write - switch from reading bits to writing them USAGE intn HIread2write(bitfile_rec) bitrec_t *bitfile_rec; IN: record of bitfile element to switch RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Used to switch a bitfile (which has 'w' access) from read mode to write mode, at the same bit offset in the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn HIread2write(bitrec_t * bitfile_rec) { CONSTR(FUNC, "HIread2write"); bitfile_rec->block_offset = (int32)LONG_MIN; /* set to bogus value */ bitfile_rec->mode = 'w'; /* change to write mode */ if (Hbitseek(bitfile_rec->bit_id, bitfile_rec->byte_offset, ((intn)BITNUM - bitfile_rec->count)) == FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); return (SUCCEED); } /* HIread2write */ /*-------------------------------------------------------------------------- NAME HIwrite2read - switch from writing bits to reading them USAGE intn HIwrite2read(bitfile_rec) bitrec_t *bitfile_rec; IN: record of bitfile element to switch RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise DESCRIPTION Used to switch a bitfile (which has 'w' access) from write mode to read mode, at the same bit offset in the file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE intn HIwrite2read(bitrec_t * bitfile_rec) { CONSTR(FUNC, "HIwrite2read"); intn prev_count = bitfile_rec->count; /* preserve this for later */ int32 prev_offset = bitfile_rec->byte_offset; if (HIbitflush(bitfile_rec, -1, TRUE) == FAIL) /* flush any leftover bits */ HRETURN_ERROR(DFE_WRITEERROR, FAIL); bitfile_rec->block_offset = (int32)LONG_MIN; /* set to bogus value */ bitfile_rec->mode = 'r'; /* change to read mode */ if (Hbitseek(bitfile_rec->bit_id, prev_offset, ((intn)BITNUM - prev_count)) == FAIL) HRETURN_ERROR(DFE_INTERNAL, FAIL); return (SUCCEED); } /* HIwrite2read */ /*-------------------------------------------------------------------------- NAME HPbitshutdown PURPOSE Terminate various static buffers. USAGE intn HPbitshutdown() RETURNS Returns SUCCEED/FAIL DESCRIPTION Free various buffers allocated in the Hbit routines. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS Should only ever be called by the "atexit" function HDFend EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn HPbitshutdown(void) { /* Shutdown the file ID atom group */ HAdestroy_group(BITIDGROUP); return(SUCCEED); } /* end HPbitshutdown() */ libhdf4-4.2.10/HDF_ALT/hdf/src/hproto.h0000644000000000000000000017620312421456623014133 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: hproto.h 6043 2014-01-21 21:09:03Z acheng $ */ #ifndef _H_PROTO #define _H_PROTO #include "H4api_adpt.h" /* Usefull macros, which someday might become actual functions */ /* Wrappers for Hinquire. feb-2-92 */ #define HQueryfileid(aid, fileid) \ (Hinquire ((int32) aid, (int32*) fileid, (uint16*) NULL,\ (uint16*) NULL, (int32*) NULL, (int32*) NULL,\ (int32*) NULL, (int16*) NULL, (int16*) NULL)) #define HQuerytagref(aid, tag, ref) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) tag,\ (uint16*) ref, (int32*) NULL, (int32*) NULL,\ (int32*) NULL, (int16*) NULL, (int16*) NULL)) #define HQuerylength(aid, length) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) NULL, \ (uint16*) NULL, (int32*) length, (int32*) NULL, \ (int32*) NULL, (int16*) NULL, (int16*) NULL)) #define HQueryoffset(aid, offset) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) NULL, \ (uint16*) NULL, (int32*) NULL, (int32*) offset, \ (int32*) NULL, (int16*) NULL, (int16*) NULL)) #define HQueryposition(aid, position) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) NULL, \ (uint16*) NULL, (int32*) NULL, (int32*) NULL, \ (int32*) position, (int16*) NULL, (int16*) NULL)) #define HQueryaccess(aid, access) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) NULL, \ (uint16*) NULL, (int32*) NULL, (int32*) NULL, \ (int32*) NULL, (int16*) access, (int16*) NULL)) #define HQueryspecial(aid, special) \ (Hinquire ((int32) aid, (int32*) NULL, (uint16*) NULL, \ (uint16*) NULL, (int32*) NULL, (int32*) NULL, \ (int32*) NULL, (int16*) NULL, (int16*) special)) #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from hfile.c */ HDFLIBAPI int32 Hopen (const char *path, intn acc_mode, int16 ndds); HDFLIBAPI intn Hclose (int32 file_id); HDFLIBAPI int32 Hstartread (int32 file_id, uint16 tag, uint16 ref); HDFLIBAPI intn Hnextread (int32 access_id, uint16 tag, uint16 ref, intn origin); HDFLIBAPI intn Hexist (int32 file_id, uint16 search_tag, uint16 search_ref); HDFLIBAPI intn Hinquire (int32 access_id, int32 * pfile_id, uint16 * ptag, uint16 * pref, int32 * plength, int32 * poffset, int32 * pposn, int16 * paccess, int16 * pspecial); HDFLIBAPI int32 Hstartwrite (int32 file_id, uint16 tag, uint16 ref, int32 length); HDFLIBAPI int32 Hstartaccess (int32 file_id, uint16 tag, uint16 ref, uint32 flags); HDFLIBAPI intn Hsetlength (int32 file_id, int32 length); HDFLIBAPI intn Happendable (int32 aid); HDFLIBAPI intn HPisappendable (int32 aid); HDFLIBAPI intn HPregister_term_func (hdf_termfunc_t term_func); HDFLIBAPI intn Hseek (int32 access_id, int32 offset, intn origin); HDFLIBAPI int32 Htell (int32 access_id); HDFLIBAPI int32 Hread (int32 access_id, int32 length, void * data); HDFLIBAPI int32 Hwrite (int32 access_id, int32 length, const void * data); HDFLIBAPI int32 Htrunc (int32 access_id, int32 trunc_len); HDFLIBAPI intn Hendaccess (int32 access_id); HDFLIBAPI intn HDgetc (int32 access_id); HDFLIBAPI intn HDputc (uint8 c, int32 access_id); HDFLIBAPI int32 Hgetelement (int32 file_id, uint16 tag, uint16 ref, uint8 * data); HDFLIBAPI int32 Hputelement (int32 file_id, uint16 tag, uint16 ref, const uint8 * data, int32 length); HDFLIBAPI int32 Hlength (int32 file_id, uint16 tag, uint16 ref); HDFLIBAPI int32 Hoffset (int32 file_id, uint16 tag, uint16 ref); HDFLIBAPI intn Hsync (int32 file_id); HDFLIBAPI intn Hcache (int32 file_id, intn cache_on); HDFLIBAPI intn Hgetlibversion (uint32 * majorv, uint32 * minorv, uint32 * releasev, char * string); HDFLIBAPI intn Hgetfileversion (int32 file_id, uint32 * majorv, uint32 * minorv, uint32 * release, char * string); HDFLIBAPI intn Hsetaccesstype(int32 access_id, uintn accesstype); HDFLIBAPI uint16 HDmake_special_tag (uint16 tag); HDFLIBAPI intn HDis_special_tag (uint16 tag); HDFLIBAPI uint16 HDbase_tag (uint16 tag); HDFLIBAPI int HDerr (int32 file_id); HDFLIBAPI intn HDvalidfid (int32 file_id); HDFLIBAPI const char *HDgettagdesc (uint16 tag); HDFLIBAPI char *HDgettagsname (uint16 tag); HDFLIBAPI intn HDgettagnum (const char *tag_name); HDFLIBAPI char *HDgetNTdesc (int32 nt); HDFLIBAPI const char *HDfidtoname (int32 fid); HDFLIBAPI intn Hgetntinfo (int32 numbertype, hdf_ntinfo_t *nt_info); HDFLIBAPI intn Hishdf (const char * filename); HDFLIBAPI intn Hfidinquire (int32 file_id, char ** fname, intn * acc_mode, intn * attach); HDFLIBAPI intn Hshutdown(void); HDFLIBAPI void HPend(void); HDFLIBAPI intn HDdont_atexit(void); /* ** from hfiledd.c */ /****************************************************************************** NAME Hdupdd - Duplicate a data descriptor DESCRIPTION Duplicates a data descriptor so that the new tag/ref points to the same data element pointed to by the old tag/ref. Return FAIL if the given tag/ref are already in use. RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI intn Hdupdd(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag, /* IN: Tag of new tag/ref */ uint16 ref, /* IN: Ref of new tag/ref */ uint16 old_tag, /* IN: Tag of old tag/ref */ uint16 old_ref /* IN: Ref of old tag/ref */ ); /****************************************************************************** NAME Hnumber - Determine the number of objects of a given type DESCRIPTION Determine how many objects of the given tag are in the file. tag may be set to DFTAG_WILDCARD to get back the total number of objects in the file. Note, a return value of zero is not a fail condition. RETURNS the number of objects of type 'tag' else FAIL *******************************************************************************/ HDFLIBAPI int32 Hnumber(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag /* IN: Tag to count */ ); /****************************************************************************** NAME Hnewref - Returns a ref that is guaranteed to be unique in the file DESCRIPTION Returns a ref number that can be used with any tag to produce a unique tag/ref. Successive calls to Hnewref will generate a strictly increasing sequence until the highest possible ref had been returned, then Hnewref will return unused ref's starting from 1. RETURNS returns the ref number, 0 otherwise *******************************************************************************/ HDFLIBAPI uint16 Hnewref(int32 file_id /* IN: File ID the tag/refs are in */ ); /****************************************************************************** NAME Htagnewref - returns a ref that is unique in the file for a given tag DESCRIPTION Returns a ref number that can be used with any tag to produce a unique tag/ref. Successive calls to Hnewref will generate a strictly increasing sequence until the highest possible ref had been returned, then Hnewref will return unused ref's starting from 1. RETURNS returns the ref number, 0 otherwise *******************************************************************************/ HDFLIBAPI uint16 Htagnewref(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag /* IN: Tag to search for a new ref for */ ); /****************************************************************************** NAME Hfind - locate the next object of a search in an HDF file DESCRIPTION Searches for the `next' DD that fits the search tag/ref. Wildcards apply. If origin is DF_FORWARD, search from current position forwards in the file, otherwise DF_BACKWARD searches backward from the current position in the file. If *find_tag and *find_ref are both set to 0, this indicates the beginning of a search, and the search will start from the beginning of the file if the direction is DF_FORWARD and from the and of the file if the direction is DF_BACKWARD. RETURNS returns SUCCEED (0) if successful and FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI intn Hfind(int32 file_id, /* IN: file ID to search in */ uint16 search_tag, /* IN: the tag to search for (can be DFTAG_WILDCARD) */ uint16 search_ref, /* IN: ref to search for (can be DFREF_WILDCARD) */ uint16 *find_tag, /* IN: if (*find_tag==0) and (*find_ref==0) then start search */ /* OUT: tag matching the search tag */ uint16 *find_ref, /* IN: if (*find_tag==0) and (*find_ref==0) then start search */ /* OUT: ref matching the search ref */ int32 *find_offset, /* OUT: offset of the data element found */ int32 *find_length, /* OUT: length of the data element found */ intn direction /* IN: Direction to search in: */ /* DF_FORWARD searches forward from the current location */ /* DF_BACKWARD searches backward from the current location */ ); /****************************************************************************** NAME HDcheck_tagref - Checks to see if tag/ref is in DD list i.e. created already DESCRIPTION Routine checks to see if tag/ref exists in the DD list i.e. has been created. RETURNS 0-> tag/ref does not exist 1-> tag/ref exists -1-> function failed *******************************************************************************/ HDFLIBAPI intn HDcheck_tagref(int32 file_id, /* IN: id of file */ uint16 tag, /* IN: Tag to check */ uint16 ref /* IN: ref to check */); /************************************************************************ NAME HDreuse_tagref -- reuse a data descriptor preserving tag/ref DESCRIPTION Reuses the data descriptor of tag/ref in the dd list of the file. The tag/ref must already exist in the DD list. This routine is unsafe and may leave a file in a condition that is not usable by some routines. Use with care. Not valid for special elments right now. Used for allowing the data to change and move somewhere else in the file for non-special elements. Must be carefully if apply to higher-level objects like GR's and SDS that are comprised of other objects. Usefull when re-writing simple elements whose size changes while preserving the original tag/ref of the element since other elements might refer to this element by tag/ref e.g. in a Vgroup. RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise ************************************************************************/ HDFLIBAPI intn HDreuse_tagref(int32 file_id, /* IN: id of file */ uint16 tag, /* IN: tag of data descriptor to reuse */ uint16 ref /* IN: ref of data descriptor to reuse */ ); /****************************************************************************** NAME Hdeldd - Delete a data descriptor DESCRIPTION Deletes a data descriptor of tag/ref from the dd list of the file. This routine is unsafe and may leave a file in a condition that is not usable by some routines. Use with care. For example, if this element is contained in a Vgroup, that group will *NOT* get updated to reflect that this element has been deleted. RETURNS returns SUCCEED (0) if successful, FAIL (-1) otherwise *******************************************************************************/ HDFLIBAPI intn Hdeldd(int32 file_id, /* IN: File ID the tag/refs are in */ uint16 tag, /* IN: Tag of tag/ref to delete */ uint16 ref /* IN: Ref of tag/ref to delete */ ); /* ** from hdfalloc.c */ HDFLIBAPI void * HDmemfill (void * dest, const void * src, uint32 item_size, uint32 num_items); HDFLIBAPI char *HIstrncpy (char * dest, const char * source, intn len); HDFLIBAPI int32 HDspaceleft (void); #if defined(MALLOC_CHECK) HDFPUBLIC extern void * HDmalloc (uint32 qty); HDFPUBLIC extern void * HDrealloc (void * where, uint32 qty); HDFPUBLIC extern void * HDcalloc (uint32 n, uint32 size); HDFPUBLIC extern void HDfree (void * ptr); #endif /* defined MALLOC_CHECK */ #if defined IBM6000 || defined SUN HDFPUBLIC extern char *HDstrdup (const char *s); #endif HDFLIBAPI intn HDc2fstr (char * str, intn len); HDFLIBAPI char *HDf2cstring (_fcd fdesc, intn len); HDFLIBAPI intn HDflush (int32 file_id); HDFLIBAPI intn HDpackFstring (char * src, char * dest, intn len); /* ** from hblocks.c */ HDFLIBAPI int32 HLcreate (int32 file_id, uint16 tag, uint16 ref, int32 block_length, int32 number_blocks); HDFLIBAPI intn HLconvert (int32 aid, int32 block_length, int32 number_blocks); HDFLIBAPI int HDinqblockinfo (int32 aid, int32 *length, int32 *first_length, int32 *block_length, int32 *number_blocks); HDFLIBAPI intn HLsetblockinfo (int32 aid, int32 block_size, int32 num_blocks); HDFLIBAPI intn HLgetblockinfo (int32 aid, int32* block_size, int32* num_blocks); HDFLIBAPI intn HLgetdatainfo (int32 file_id, uint8 *buf, uintn start_block, uintn info_count, int32 *offsetarray, int32 *lengtharray); /* ** from hextelt.c */ HDFLIBAPI int32 HXcreate (int32 file_id, uint16 tag, uint16 ref, const char * extern_file_name, int32 offset, int32 start_len); HDFLIBAPI intn HXsetcreatedir (const char *dir); HDFLIBAPI intn HXsetdir (const char *dir); /* ** from hcomp.c */ HDFLIBAPI int32 HCcreate (int32 file_id, uint16 tag, uint16 ref, comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info); HDFLIBAPI intn HCPgetcompress (int32 file_id, uint16 data_tag, uint16 data_ref, comp_coder_t *coder_type, comp_info * c_info); HDFLIBAPI intn HCPgetcompinfo (int32 file_id, uint16 data_tag, uint16 data_ref, comp_coder_t *coder_type, comp_info * c_info); HDFLIBAPI intn HCPgetcomptype (int32 file_id, uint16 data_tag, uint16 data_ref, comp_coder_t *coder_type); HDFLIBAPI intn HCPgetdatasize (int32 file_id, uint16 data_tag, uint16 data_ref, int32* comp_size, int32* orig_size); HDFPUBLIC intn HCget_config_info ( comp_coder_t coder_type, uint32 *compression_config_info); HDFLIBAPI int32 HCPquery_encode_header(comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info); HDFLIBAPI intn HCPencode_header(uint8 *p, comp_model_t model_type, model_info * m_info, comp_coder_t coder_type, comp_info * c_info); HDFLIBAPI intn HCPdecode_header(uint8 *p, comp_model_t *model_type, model_info * m_info, comp_coder_t *coder_type, comp_info * c_info); /* ** from cszip.c */ HDFLIBAPI intn HCPsetup_szip_parms ( comp_info *c_info, int32 nt, int32 ncomp, int32 ndims, int32 *dims, int32 *cdims); /* ** from hbuffer.c */ HDFLIBAPI intn HBconvert (int32 aid); /* ** from hcompri.c */ HDFLIBAPI int32 HRPconvert (int32 fid, uint16 tag, uint16 ref, int32 xdim, int32 ydim,int16 scheme, comp_info *cinfo, uintn pixel_size); /* ** from herr.c */ HDFLIBAPI const char *HEstring (hdf_err_code_t error_code); HDFLIBAPI void HEpush (hdf_err_code_t error_code, const char * function_name, const char * file_name, intn line); HDFLIBAPI void HEreport (const char *,...); HDFLIBAPI void HEprint (FILE * stream, int32 print_level); HDFLIBAPI int16 HEvalue (int32 level); HDFLIBAPI void HEPclear (void); HDFLIBAPI intn HEshutdown(void); /* ** from hbitio.c */ HDFLIBAPI int32 Hstartbitread (int32 file_id, uint16 tag, uint16 ref); HDFLIBAPI int32 Hstartbitwrite (int32 file_id, uint16 tag, uint16 ref, int32 length); HDFLIBAPI intn Hbitappendable (int32 bitid); HDFLIBAPI intn Hbitwrite (int32 bitid, intn count, uint32 data); HDFLIBAPI intn Hbitread (int32 bitid, intn count, uint32 *data); HDFLIBAPI intn Hbitseek (int32 bitid, int32 byte_offset, intn bit_offset); HDFLIBAPI intn Hgetbit (int32 bitid); HDFLIBAPI int32 Hendbitaccess (int32 bitfile_id, intn flushbit); HDFLIBAPI intn HPbitshutdown(void); /* ** from dfutil.c */ HDFLIBAPI uint16 DFfindnextref (int32 file_id, uint16 tag, uint16 lref); /* ** from dfcomp.c */ HDFLIBAPI intn DFputcomp (int32 file_id, uint16 tag, uint16 ref, const uint8 * image, int32 xdim, int32 ydim, uint8 * palette, uint8 * newpal, int16 scheme, comp_info * cinfo); HDFLIBAPI int DFgetcomp (int32 file_id, uint16 tag, uint16 ref, uint8 * image, int32 xdim, int32 ydim, uint16 scheme); /* ** from dfrle.c */ HDFLIBAPI int32 DFCIrle (const void * buf, void * bufto, int32 len); HDFLIBAPI int32 DFCIunrle (uint8 * buf, uint8 *bufto, int32 outlen, int resetsave); /* ** from dfimcomp.c */ HDFLIBAPI void DFCIimcomp (int32 xdim, int32 ydim, const uint8 *in, uint8 out[], uint8 in_pal[], uint8 out_pal[], int mode); HDFLIBAPI void DFCIunimcomp (int32 xdim, int32 ydim, uint8 in[], uint8 out[]); /* ** from dfjpeg.c */ HDFLIBAPI intn DFCIjpeg (int32 file_id, uint16 tag, uint16 ref, int32 xdim, int32 ydim, const void * image, int16 scheme, comp_info * scheme_info); /* ** from dfunjpeg.c */ HDFLIBAPI intn DFCIunjpeg (int32 file_id, uint16 tag, uint16 ref, void * image, int32 xdim, int32 ydim, int16 scheme); /* ** from dfgroup.c */ HDFLIBAPI int32 DFdiread (int32 file_id, uint16 tag, uint16 ref); HDFLIBAPI intn DFdiget (int32 list, uint16 * ptag, uint16 * pref); HDFLIBAPI intn DFdinobj (int32 list); HDFLIBAPI int32 DFdisetup (int maxsize); HDFLIBAPI intn DFdiput (int32 list, uint16 tag, uint16 ref); HDFLIBAPI intn DFdiwrite (int32 file_id, int32 list, uint16 tag, uint16 ref); HDFLIBAPI void DFdifree (int32 groupID); /* ** from dfp.c */ HDFLIBAPI intn DFPgetpal (const char * filename, void * palette); HDFLIBAPI intn DFPputpal (const char * filename, const void * palette, intn overwrite, const char * filemode); HDFLIBAPI intn DFPaddpal (const char * filename, const void * palette); HDFLIBAPI intn DFPnpals (const char * filename); HDFLIBAPI intn DFPreadref (const char * filename, uint16 ref); HDFLIBAPI intn DFPwriteref (const char * filename, uint16 ref); HDFLIBAPI intn DFPrestart (void); HDFLIBAPI uint16 DFPlastref (void); /* ** from dfr8.c */ HDFLIBAPI int DFR8setcompress (int32 scheme, comp_info * cinfo); HDFLIBAPI intn DFR8getdims (const char * filename, int32 * pxdim, int32 * pydim, int * pispal); HDFLIBAPI intn DFR8getimage (const char * filename, uint8 * image, int32 xdim, int32 ydim, uint8 * pal); HDFLIBAPI intn DFR8setpalette (uint8 * pal); HDFLIBAPI intn DFR8putimage (const char * filename, const void * image, int32 xdim, int32 ydim, uint16 compress); HDFLIBAPI intn DFR8addimage (const char * filename, const void * image, int32 xdim, int32 ydim, uint16 compress); HDFLIBAPI intn DFR8nimages (const char * filename); HDFLIBAPI intn DFR8readref (const char * filename, uint16 ref); HDFLIBAPI intn DFR8writeref (const char * filename, uint16 ref); HDFLIBAPI intn DFR8restart (void); HDFLIBAPI uint16 DFR8lastref (void); HDFLIBAPI intn DFR8getpalref(uint16 *pal_ref); HDFLIBAPI intn DFR8Pshutdown(void); /* ** from dfgr.c */ HDFLIBAPI intn DFGRgetlutdims (const char * filename, int32 * pxdim, int32 * pydim, intn * pncomps, intn * pil); HDFLIBAPI intn DFGRreqlutil (intn il); HDFLIBAPI intn DFGRgetlut (const char * filename, void * lut, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRgetimdims (const char * filename, int32 * pxdim, int32 * pydim, intn * pncomps, intn * pil); HDFLIBAPI intn DFGRreqimil (intn il); HDFLIBAPI intn DFGRgetimage (const char * filename, void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRsetcompress (int32 scheme, comp_info * cinfo); HDFLIBAPI intn DFGRsetlutdims (int32 xdim, int32 ydim, intn ncomps, intn il); HDFLIBAPI intn DFGRsetlut (void * lut, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRaddlut (const char * filename, void * lut, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRsetimdims (int32 xdim, int32 ydim, intn ncomps, intn il); HDFLIBAPI intn DFGRaddimage (const char * filename, void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRputimage (const char * filename, void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DFGRreadref (const char * filename, uint16 ref); HDFLIBAPI uint16 DFGRIlastref (void); HDFLIBAPI intn DFGRIgetdims (const char * filename, int32 * pxdim, int32 * pydim, intn * pncomps, intn * pil, intn type); HDFLIBAPI intn DFGRIreqil (intn il, intn type); HDFLIBAPI intn DFGRIgetimlut (const char * filename, void * imlut, int32 xdim, int32 ydim, intn type, intn isfortran, int *compressed, uint16 *compr_type, int *has_pal); HDFLIBAPI intn DFGRIsetdims (int32 xdim, int32 ydim, intn ncomps, intn type); HDFLIBAPI intn DFGRIsetil (intn il, intn type); HDFLIBAPI intn DFGRIrestart (void); HDFLIBAPI intn DFGRIaddimlut (const char * filename, const void * imlut, int32 xdim, int32 ydim, intn type, intn isfortran, intn newfile); HDFLIBAPI intn DFGRPshutdown(void); /* ** from df24.c */ HDFLIBAPI intn DF24getdims (const char * filename, int32 * pxdim, int32 * pydim, intn * pil); HDFLIBAPI intn DF24reqil (intn il); HDFLIBAPI intn DF24getimage (const char * filename, void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DF24setdims (int32 xdim, int32 ydim); HDFLIBAPI intn DF24setil (intn il); HDFLIBAPI intn DF24setcompress (int32 type, comp_info * cinfo); HDFLIBAPI intn DF24restart (void); HDFLIBAPI intn DF24addimage (const char * filename, const void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DF24putimage (const char * filename, const void * image, int32 xdim, int32 ydim); HDFLIBAPI intn DF24nimages (const char * filename); HDFLIBAPI intn DF24readref (const char * filename, uint16 ref); HDFLIBAPI uint16 DF24lastref (void); /* ** from dfan.c */ HDFLIBAPI int32 DFANgetlablen (const char * filename, uint16 tag, uint16 ref); HDFLIBAPI intn DFANgetlabel (const char * filename, uint16 tag, uint16 ref, char * label, int32 maxlen); HDFLIBAPI int32 DFANgetdesclen (const char * filename, uint16 tag, uint16 ref); HDFLIBAPI intn DFANgetdesc (const char * filename, uint16 tag, uint16 ref, char * desc, int32 maxlen); HDFLIBAPI int32 DFANgetfidlen (int32 file_id, intn isfirst); HDFLIBAPI int32 DFANgetfid (int32 file_id, char * id, int32 maxlen, intn isfirst); HDFLIBAPI int32 DFANgetfdslen (int32 file_id, intn isfirst); HDFLIBAPI int32 DFANgetfds (int32 file_id, char * desc, int32 maxlen, intn isfirst); HDFLIBAPI intn DFANputlabel (const char * filename, uint16 tag, uint16 ref, char * label); HDFLIBAPI intn DFANputdesc (const char * filename, uint16 tag, uint16 ref, char * desc, int32 desclen); HDFLIBAPI intn DFANaddfid (int32 file_id, char * id); HDFLIBAPI intn DFANaddfds (int32 file_id, char * desc, int32 desclen); HDFLIBAPI uint16 DFANlastref (void); HDFLIBAPI intn DFANlablist (const char * filename, uint16 tag, uint16 reflist[], char * labellist, intn listsize, intn maxlen, intn startpos); HDFLIBAPI intn DFANclear (void); HDFLIBAPI intn DFANIclear (void); HDFLIBAPI uint16 DFANIlocate (int32 file_id, int type, uint16 tag, uint16 ref); HDFLIBAPI int DFANIaddentry (int type, uint16 annref, uint16 datatag, uint16 dataref); HDFLIBAPI int32 DFANIgetannlen (const char * filename, uint16 tag, uint16 ref, int type); HDFLIBAPI intn DFANIgetann (const char * filename, uint16 tag, uint16 ref, uint8 * ann, int32 maxlen, int type, int isfortran); HDFLIBAPI intn DFANIputann (const char * filename, uint16 tag, uint16 ref, uint8 * ann, int32 annlen, int type); HDFLIBAPI int DFANIlablist (const char * filename, uint16 tag, uint16 reflist[], uint8 * labellist, int listsize, int maxlen, int startpos, int isfortran); HDFLIBAPI int DFANIaddfann (int32 file_id, char * ann, int32 annlen, int type); HDFLIBAPI int32 DFANIgetfannlen (int32 file_id, int type, int isfirst); HDFLIBAPI int32 DFANIgetfann (int32 file_id, char * ann, int32 maxlen, int type, int isfirst); HDFLIBAPI intn DFANPshutdown(void); /* ** from dfsd.c */ HDFLIBAPI int DFSDgetdims (const char * filename, intn * prank, int32 sizes[], intn maxrank); HDFLIBAPI int DFSDgetdatastrs (char * label, char * unit, char * format, char * coordsys); HDFLIBAPI int DFSDgetdimstrs (int dim, char * label, char * unit, char * format); HDFLIBAPI int DFSDgetdatalen (int * llabel, int * lunit, int * lformat, int * lcoordsys); HDFLIBAPI int DFSDgetdimlen (int dim, int * llabel, int * lunit, int * lformat); HDFLIBAPI int DFSDgetdimscale (intn dim, int32 maxsize, void * scale); HDFLIBAPI int DFSDgetrange (void * pmax, void * pmin); HDFLIBAPI int DFSDgetdata (const char * filename, intn rank, int32 maxsizes[], void * data); HDFLIBAPI int DFSDsetlengths (int maxlen_label, int maxlen_unit, int maxlen_format, int maxlen_coordsys); HDFLIBAPI int DFSDsetdims (intn rank, int32 dimsizes[]); HDFLIBAPI int DFSDsetdatastrs (const char * label, const char * unit, const char * format, const char * coordsys); HDFLIBAPI int DFSDsetdimstrs (int dim, const char * label, const char * unit, const char * format); HDFLIBAPI int DFSDsetdimscale (intn dim, int32 dimsize, void * scale); HDFLIBAPI int DFSDsetrange (void * maxi, void * mini); HDFLIBAPI int DFSDputdata (const char * filename, intn rank, int32 dimsizes[], void * data); HDFLIBAPI int DFSDadddata (const char * filename, intn rank, int32 dimsizes[], void * data); HDFLIBAPI int DFSDrestart (void); HDFLIBAPI int32 DFSDndatasets (char * filename); HDFLIBAPI int DFSDclear (void); HDFLIBAPI uint16 DFSDlastref (void); HDFLIBAPI int DFSDreadref (char * filename, uint16 ref); HDFLIBAPI int DFSDgetslice (const char * filename, int32 winst[], int32 windims[], void * data, int32 dims[]); HDFLIBAPI int DFSDstartslice (const char * filename); HDFLIBAPI int DFSDputslice (int32 winend[], void * data, int32 dims[]); HDFLIBAPI int DFSDendslice (void); HDFLIBAPI int DFSDsetNT (int32 numbertype); HDFLIBAPI int DFSDsetorder (int arrayorder); HDFLIBAPI int DFSDgetNT (int32 * pnumbertype); HDFLIBAPI intn DFSDpre32sdg (char * filename, uint16 ref, intn * ispre32); HDFLIBAPI int DFSDsetcal (float64 cal, float64 cal_err, float64 ioff, float64 ioff_err, int32 cal_nt); HDFLIBAPI int DFSDgetcal (float64 * pcal, float64 * pcal_err, float64 * pioff, float64 * pioff_err, int32 * cal_nt); HDFLIBAPI int DFSDwriteref (const char * filename, uint16 ref); HDFLIBAPI int DFSDsetfillvalue (void * fill_value); HDFLIBAPI int DFSDgetfillvalue (void * fill_value); HDFLIBAPI int DFSDstartslab (const char * filename); HDFLIBAPI int DFSDwriteslab (int32 start[], int32 stride[], int32 count[], void * data); HDFLIBAPI int DFSDendslab (void); HDFLIBAPI int DFSDreadslab (const char *filename, int32 start[], int32 slab_size[], int32 stride[], void * buffer, int32 buffer_size[]); HDFLIBAPI intn DFSDPshutdown(void); /* ** from dfconv.c */ HDFLIBAPI int DFKNTsize (int32 number_type); HDFLIBAPI int32 DFKisnativeNT (int32 numbertype); HDFLIBAPI int32 DFKislitendNT (int32 numbertype); HDFLIBAPI int8 DFKgetPNSC (int32 numbertype, int32 machinetype); HDFLIBAPI intn DFKsetNT (int32 ntype); HDFLIBAPI int32 DFKconvert (void * source, void * dest, int32 ntype, int32 num_elm, int16 acc_mode, int32 source_stride, int32 dest_stride); /* ** from dfknat.c */ HDFLIBAPI intn DFKnb1b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); HDFLIBAPI intn DFKnb2b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); HDFLIBAPI intn DFKnb4b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); HDFLIBAPI intn DFKnb8b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); /* ** from dfkswap.c */ HDFLIBAPI intn DFKsb2b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); HDFLIBAPI intn DFKsb4b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); HDFLIBAPI intn DFKsb8b (void * s, void * d, uint32 num_elm, uint32 source_stride, uint32 dest_stride); /* Multi-file Annotation C-routines found in mfan.c */ HDFLIBAPI int32 ANstart(int32 file_id); HDFLIBAPI intn ANfileinfo(int32 an_id, int32 *n_file_label, int32 *n_file_desc, int32 *n_obj_label, int32 *n_obj_desc); HDFLIBAPI int32 ANend(int32 an_id); HDFLIBAPI int32 ANcreate(int32 an_id, uint16 elem_tag, uint16 elem_ref, ann_type type); HDFLIBAPI int32 ANcreatef(int32 an_id, ann_type type); HDFLIBAPI int32 ANselect(int32 an_id, int32 idx, ann_type type); HDFLIBAPI intn ANnumann(int32 an_id, ann_type type, uint16 elem_tag, uint16 elem_ref); HDFLIBAPI intn ANannlist(int32 an_id, ann_type type, uint16 elem_tag, uint16 elem_ref, int32 ann_list[]); HDFLIBAPI int32 ANannlen(int32 ann_id); HDFLIBAPI int32 ANwriteann(int32 ann_id, const char *ann, int32 annlen); HDFLIBAPI int32 ANreadann(int32 ann_id, char *ann, int32 maxlen); HDFLIBAPI intn ANendaccess(int32 ann_id); HDFLIBAPI int32 ANget_tagref(int32 an_id, int32 idx, ann_type type, uint16 *ann_tag, uint16 *ann_ref); HDFLIBAPI int32 ANid2tagref(int32 an_id, uint16 *ann_tag, uint16 *ann_ref); HDFLIBAPI int32 ANtagref2id(int32 an_id, uint16 ann_tag, uint16 ann_ref); HDFLIBAPI uint16 ANatype2tag(ann_type atype); HDFLIBAPI ann_type ANtag2atype(uint16 atag); /* BMR: Removed because this function is meant to be private. HDFLIBAPI intn ANdestroy(void); */ /* Multi-file Raster C-routines found in mfgr.c */ HDFLIBAPI intn rigcompare(void * k1, void * k2, intn cmparg); HDFLIBAPI int32 GRstart(int32 hdf_file_id); HDFLIBAPI intn GRfileinfo(int32 grid,int32 *n_datasets,int32 *n_attrs); HDFLIBAPI intn GRend(int32 grid); HDFLIBAPI int32 GRcreate(int32 grid,const char *name,int32 ncomp,int32 nt,int32 il, int32 dimsizes[2]); HDFLIBAPI int32 GRselect(int32 grid,int32 idx); HDFLIBAPI int32 GRnametoindex(int32 grid,const char *name); HDFLIBAPI intn GRgetiminfo(int32 riid,char *name,int32 *ncomp,int32 *nt,int32 *il, int32 dimsizes[2],int32 *n_attr); HDFLIBAPI intn GRgetnluts(int32 riid); HDFLIBAPI intn GRwriteimage(int32 riid,int32 start[2],int32 stride[2], int32 count[2],void * data); HDFLIBAPI intn GRreadimage(int32 riid,int32 start[2],int32 stride[2], int32 count[2],void * data); HDFLIBAPI intn GRendaccess(int32 riid); HDFLIBAPI uint16 GRidtoref(int32 riid); HDFLIBAPI int32 GRreftoindex(int32 grid,uint16 ref); HDFLIBAPI intn GRreqlutil(int32 riid,intn il); HDFLIBAPI intn GRreqimageil(int32 riid,intn il); HDFLIBAPI int32 GRgetlutid(int32 riid,int32 idx); HDFLIBAPI uint16 GRluttoref(int32 lutid); HDFLIBAPI intn GRgetlutinfo(int32 riid,int32 *ncomp,int32 *nt, int32 *il,int32 *nentries); HDFLIBAPI intn GRwritelut(int32 riid,int32 ncomps,int32 nt, int32 il,int32 nentries,void * data); HDFLIBAPI intn GRreadlut(int32 lutid,void * data); HDFLIBAPI intn GRsetexternalfile(int32 riid,const char *filename,int32 offset); HDFLIBAPI intn GRsetaccesstype(int32 riid,uintn accesstype); HDFLIBAPI intn GRsetcompress(int32 riid,comp_coder_t comp_type,comp_info *cinfo); HDFLIBAPI intn GRgetcompress(int32 riid,comp_coder_t* comp_type,comp_info *cinfo); HDFLIBAPI intn GRgetcompinfo(int32 riid,comp_coder_t* comp_type,comp_info *cinfo); HDFLIBAPI intn GRsetattr(int32 id,const char *name,int32 attr_nt,int32 count,const void * data); HDFLIBAPI intn GRattrinfo(int32 id,int32 idx,char *name,int32 *attr_nt,int32 *count); HDFLIBAPI intn GRgetattr(int32 id,int32 idx,void * data); HDFLIBAPI int32 GRfindattr(int32 id,const char *name); HDFLIBAPI intn GRgetcomptype (int32 riid, comp_coder_t *comp_type); HDFLIBAPI intn GRPshutdown(void); /* This function was added for hmap project only. Feb-25-2011 */ HDFLIBAPI intn GR2bmapped(int32 riid, intn *tobe_mapped, intn *created_byGR); /*=== HDF_CHUNK_DEF same as in mfhdf.h - moved here ====*/ /* Bit flags used for SDsetchunk(), SDgetchunkinfo() GRsetchunk() and GRgetchunkinfo(). Note that GRs do not support NBIT */ #define HDF_NONE 0x0 #define HDF_CHUNK 0x1 #define HDF_COMP 0x3 #define HDF_NBIT 0x5 /* Cache flags */ #define HDF_CACHEALL 0x1 /* Chunk Defintion, Note that GRs need only 2 dimensions for the chunk_lengths */ typedef union hdf_chunk_def_u { /* Chunk Lengths only */ int32 chunk_lengths[H4_MAX_VAR_DIMS]; /* chunk lengths along each dimension */ struct { /* For Compression info */ int32 chunk_lengths[H4_MAX_VAR_DIMS]; /* chunk lengths along each dimension */ int32 comp_type; /* Compression type */ int32 model_type; /* Compression model type */ comp_info cinfo; /* Compression info struct */ model_info minfo; /* Compression model info struct */ }comp; struct { /* For NBIT, Used by SDS and not by GR */ int32 chunk_lengths[H4_MAX_VAR_DIMS]; /* chunk lengths along each dimension */ intn start_bit; /* offset of the start bit in the data */ intn bit_len; /* number of bits to store */ intn sign_ext; /* whether to sign extend or not */ intn fill_one; /* whether to fill with 1's or not (0's) */ } nbit; } HDF_CHUNK_DEF; /*=== GR Chunking Routines ====*/ /****************************************************************************** NAME GRsetchunk -- make GR a chunked GR DESCRIPTION This routine makes the GR a chunked GR according to the chunk definition passed in. The image currently cannot be special already. i.e. NBIT, COMPRESSED, or EXTERNAL. This is an Error. The defintion of the HDF_CHUNK_DEF union with relvant fields is: typedef union hdf_chunk_def_u { int32 chunk_lengths[2]; Chunk lengths along each dimension struct { int32 chunk_lengths[2]; Chunk lengths along each dimension int32 comp_type; Compression type comp_info cinfo; Compression info struct }comp; } HDF_CHUNK_DEF The simplist is the 'chunk_lengths' array specifiying chunk lengths for each dimension where the 'flags' argument set to 'HDF_CHUNK'; COMPRESSION is set by using the 'HDF_CHUNK_DEF' structure to set the appropriate compression information along with the required chunk lengths for each dimension. The compression information is the same as that set in 'SDsetcompress()'. The bit-or'd'flags' argument' is set to 'HDF_CHUNK | HDF_COMP'. See the example in pseudo-C below for further usage. The maximum number of Chunks in an HDF file is 65,535. The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the image and by the maximum number of chunks set in the chunk cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. See the routine GRsetchunkcache() for further info on the chunk cache and how to set the maximum number of chunks in the chunk cache. A default chunk cache is always created. The following example shows the organization of chunks for a 2D iamge. e.g. 4x4 image with 2x2 chunks. The array shows the layout of chunks in the chunk array. 4 --------------------- | | | Y | (0,1) | (1,1) | ^ | | | | 2 --------------------- | | | | | | (0,0) | (1,0) | | | | | | --------------------- | 0 2 4 ---------------> X --Without compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set Chunking -- GRsetchunk(riid, chunk_def, HDF_CHUNK); ...... } --With compression--: { HDF_CHUNK_DEF chunk_def; ....... -- Set chunk lengths first -- chunk_def.chunk_lengths[0]= 2; chunk_def.chunk_lengths[1]= 2; -- Set compression -- chunk_def.comp.cinfo.deflate.level = 9; chunk_def.comp.comp_type = COMP_CODE_DEFLATE; -- Set Chunking with Compression -- GRsetchunk(riid, chunk_def, HDF_CHUNK | HDF_COMP); ...... } RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn GRsetchunk (int32 riid, /* IN: raster access id */ HDF_CHUNK_DEF chunk_def, /* IN: chunk definition */ int32 flags /* IN: flags */); /****************************************************************************** NAME GRgetchunkinfo -- get Info on GR DESCRIPTION This routine gets any special information on the GR. If its chunked, chunked and compressed or just a regular GR. Currently it will only fill the array of chunk lengths for each dimension as specified in the 'HDF_CHUNK_DEF' union. You can pass in a NULL for 'chunk_def' if don't want the chunk lengths for each dimension. Additionaly if successfull it will return a bit-or'd value in 'flags' indicating if the GR is: Chunked -> flags = HDF_CHUNK Chunked and compressed -> flags = HDF_CHUNK | HDF_COMP Non-chunked -> flags = HDF_NONE e.g. 4x4 array - Pseudo-C { int32 rcdims[3]; HDF_CHUNK_DEF rchunk_def; int32 cflags; ... rchunk_def.chunk_lengths = rcdims; GRgetchunkinfo(riid, &rchunk_def, &cflags); ... } RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn GRgetchunkinfo (int32 riid, /* IN: Raster access id */ HDF_CHUNK_DEF *chunk_def, /* IN/OUT: chunk definition */ int32 *flags /* IN/OUT: flags */); /****************************************************************************** NAME GRwritechunk -- write the specified chunk to the GR DESCRIPTION This routine writes a whole chunk of data to the chunked GR specified by chunk 'origin' for the given GR and can be used instead of GRwriteimage() when this information is known. This routine has less overhead and is much faster than using GRwriteimage(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See GRsetchunk() for a description of the organization of chunks in an GR. RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn GRwritechunk (int32 riid, /* IN: raster access id */ int32 *origin, /* IN: origin of chunk to write */ const void *datap /* IN: buffer for data */); /****************************************************************************** NAME GRreadchunk -- read the specified chunk to the GR DESCRIPTION This routine reads a whole chunk of data from the chunked GR specified by chunk 'origin' for the given GR and can be used instead of GRreadimage() when this information is known. This routine has less overhead and is much faster than using GRreadimage(). Origin specifies the co-ordinates of the chunk according to the chunk position in the overall chunk array. 'datap' must point to a whole chunk of data. See GRsetchunk() for a description of the organization of chunks in an GR. RETURNS SUCCEED/FAIL ******************************************************************************/ HDFLIBAPI intn GRreadchunk (int32 riid, /* IN: raster access id */ int32 *origin, /* IN: origin of chunk to read */ void *datap /* IN/OUT: buffer for data */); /****************************************************************************** NAME GRsetchunkcache -- maximum number of chunks to cache DESCRIPTION Set the maximum number of chunks to cache. The cache contains the Least Recently Used(LRU cache replacment policy) chunks. This routine allows the setting of maximum number of chunks that can be cached, 'maxcache'. The performance of the GRxxx interface with chunking is greatly affected by the users access pattern over the image and by the maximum number of chunks set in the chunk cache. The number chunks that can be set in the cache is process memory limited. It is a good idea to always set the maximum number of chunks in the cache as the default heuristic does not take into account the memory available for the application. By default when the GR is promoted to a chunked element the maximum number of chunks in the cache 'maxcache' is set to the number of chunks along the last dimension. The values set here affects the current object's caching behaviour. If the chunk cache is full and 'maxcache' is greater then the current 'maxcache' value, then the chunk cache is reset to the new 'maxcache' value, else the chunk cache remains at the current 'maxcache' value. If the chunk cache is not full, then the chunk cache is set to the new 'maxcache' value only if the new 'maxcache' value is greater than the current number of chunks in the cache. Use flags argument of 'HDF_CACHEALL' if the whole object is to be cached in memory, otherwise pass in zero(0). Currently you can only pass in zero. See GRsetchunk() for a description of the organization of chunks in an GR. RETURNS Returns the 'maxcache' value for the chunk cache if successful and FAIL otherwise ******************************************************************************/ HDFLIBAPI intn GRsetchunkcache (int32 riid, /* IN: raster access id */ int32 maxcache, /* IN: max number of chunks to cache */ int32 flags /* IN: flags = 0, HDF_CACHEALL */); #ifdef HAVE_FMPOOL /****************************************************************************** NAME Hmpset - set pagesize and maximum number of pages to cache on next open/create DESCRIPTION Set the pagesize and maximum number of pages to cache on the next open/create of a file. A pagesize that is a power of 2 is recommended. The values set here only affect the next open/creation of a file and do not change a particular file's paging behaviour after it has been opened or created. This maybe changed in a later release. Use flags arguement of 'MP_PAGEALL' if the whole file is to be cached in memory otherwise passs in zero. RETURNS Returns SUCCEED if successful and FAIL otherwise NOTE This calls the real routine MPset(). Currently 'maxcache' has to be greater than 1. Maybe use special case of 0 to specify you want to turn page buffering off or use the flags arguement. ******************************************************************************/ HDFLIBAPI int Hmpset(int pagesize, /* IN: pagesize to use for next open/create */ int maxcache, /* IN: max number of pages to cache */ int flags /* IN: flags = 0, MP_PAGEALL */); /****************************************************************************** NAME Hmpget - get last pagesize and max number of pages cached for open/create DESCRIPTION This gets the last pagesize and maximum number of pages cached for the last open/create of a file. RETURNS Returns SUCCEED. NOTES This routine calls the real routine MPget(). ******************************************************************************/ HDFLIBAPI int Hmpget(int *pagesize, /*OUT: pagesize to used in last open/create */ int *maxcache, /*OUT: max number of pages cached in last open/create */ int flags /* IN: */); #endif /* HAVE_FMPOOL */ /* Vset interface functions (used to be in vproto.h) */ /* Useful macros, which someday might become actuall functions */ /* * macros for VSinquire * all these macros should be public for users */ #define VSQuerycount(vs, count) \ (VSinquire (vs, (int32 *) count, (int32*) NULL, (char*) NULL, (int32*) NULL, (char*) NULL)) #define VSQueryinterlace(vs, intr) \ (VSinquire (vs, (int32 *) NULL, (int32*) intr, (char*) NULL, (int32*) NULL, (char*) NULL)) #define VSQueryfields(vs, flds) \ (VSinquire (vs, (int32 *) NULL, (int32*) NULL, (char*) flds, (int32*) NULL, (char*) NULL)) #define VSQueryvsize(vs, size) \ (VSinquire (vs, (int32 *) NULL, (int32*) NULL, (char*) NULL, (int32*) size, (char*) NULL)) #define VSQueryname(vs, name) \ (VSinquire (vs, (int32 *) NULL, (int32*) NULL, (char*) NULL, (int32*) NULL, (char*) name)) /* ** from vattr.c */ HDFLIBAPI intn Vsetattr (int32 vgid, const char *attrname, int32 datatype, int32 count, const void * values); HDFLIBAPI intn Vnattrs (int32 vgid); HDFLIBAPI intn Vnattrs2 (int32 vgid); HDFLIBAPI intn Vnoldattrs (int32 vgid); HDFLIBAPI intn Vfindattr (int32 vgid, const char *attrname); HDFLIBAPI intn Vattrinfo (int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size); HDFLIBAPI intn Vattrinfo2 /* copy of Vattrinfo for old attributes */ (int32 vgid, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size, int32 *nfields, uint16 *refnum); HDFLIBAPI intn Vgetattr (int32 vgid, intn attrindex, void * values); HDFLIBAPI intn Vgetattr2 /* copy of Vgetattr for old attributes */ (int32 vgid, intn attrindex, void * values); HDFLIBAPI int32 Vgetversion (int32 vgid); HDFLIBAPI intn VSfindex (int32 vsid, const char *fieldname, int32 *fldindex); HDFLIBAPI intn VSsetattr (int32 vsid, int32 findex, const char *attrname, int32 datatype, int32 count, const void * values); HDFLIBAPI intn VSnattrs (int32 vsid); HDFLIBAPI intn VSfnattrs (int32 vsid, int32 findex); HDFLIBAPI intn VSfindattr (int32 vsid, int32 findex, const char *attrname); HDFLIBAPI intn VSattrinfo (int32 vsid, int32 findex, intn attrindex, char *name, int32 *datatype, int32 *count, int32 *size); HDFLIBAPI intn VSgetattr (int32 vsid, int32 findex, intn attrindex, void * values); HDFLIBAPI intn VSisattr (int32 vsid); /* ** from vconv.c */ HDFLIBAPI int32 vicheckcompat (HFILEID f); HDFLIBAPI int32 vimakecompat (HFILEID f); HDFLIBAPI int32 vcheckcompat (char * fs); HDFLIBAPI int32 vmakecompat (char * fs); /* ** from vg.c */ HDFLIBAPI int32 VSelts (int32 vkey); HDFLIBAPI int32 VSgetinterlace (int32 vkey); HDFLIBAPI intn VSsetinterlace (int32 vkey, int32 interlace); HDFLIBAPI int32 VSgetfields (int32 vkey, char * fields); HDFLIBAPI intn VSfexist (int32 vkey, char * fields); HDFLIBAPI int32 VSsizeof (int32 vkey, char * fields); HDFLIBAPI void VSdump (int32 vkey); HDFLIBAPI int32 VSsetname (int32 vkey, const char * vsname); HDFLIBAPI int32 VSsetclass (int32 vkey, const char * vsclass); HDFLIBAPI int32 VSgetname (int32 vkey, char * vsname); HDFLIBAPI int32 VSgetclass (int32 vkey, char * vsclass); HDFLIBAPI intn VSinquire (int32 vkey, int32 * nelt, int32 * interlace, char * fields, int32 * eltsize, char * vsname); HDFLIBAPI intn VSisinternal (const char *vsclass); HDFLIBAPI int32 VSlone (HFILEID f, int32 * idarray, int32 asize); HDFLIBAPI int32 Vlone (HFILEID f, int32 * idarray, int32 asize); HDFLIBAPI int32 Vfind (HFILEID f, const char * vgname); HDFLIBAPI int32 VSfind (HFILEID f, const char * vsname); HDFLIBAPI int32 Vfindclass (HFILEID f, const char * vgclass); HDFLIBAPI int32 VSfindclass (HFILEID f, const char * vsclass); HDFLIBAPI intn VSofclass (int32 id, const char *vsclass, uintn start_vd, uintn array_size, uint16 *refarray); HDFLIBAPI intn VSgetvdatas (int32 id, uintn start_vd, uintn array_size, uint16 *refarray); HDFLIBAPI intn VSsetblocksize (int32 vkey, int32 block_size); HDFLIBAPI intn VSsetnumblocks (int32 vkey, int32 num_blocks); HDFLIBAPI intn VSgetblockinfo (int32 vkey, int32* block_size, int32* num_blocks); HDFLIBAPI void Vsetzap (void); /* ** from vgp.c */ HDFLIBAPI intn vcompare (void * k1, void * k2, intn cmparg); HDFLIBAPI intn vcompareref (void * k1, void * k2, intn cmparg); HDFLIBAPI void vdestroynode (void * n); HDFLIBAPI void vtfreekey (void * k); HDFLIBAPI intn Vinitialize (HFILEID f); HDFLIBAPI intn Vfinish (HFILEID f); HDFLIBAPI HFILEID Vopen (char *path, intn acc_mode, int16 ndds); HDFLIBAPI intn Vclose (HFILEID f); HDFLIBAPI int32 vexistvg (HFILEID f, uint16 vgid); HDFLIBAPI int32 Vattach (HFILEID f, int32 vgid, const char * accesstype); HDFLIBAPI int32 Vdetach (int32 vkey); HDFLIBAPI int32 Vinsert (int32 vkey, int32 vskey); /* note: 2nd arg of Vinsert can also be (VGROUP *) */ HDFLIBAPI int32 Vflocate (int32 vkey, char * field); HDFLIBAPI intn Vinqtagref (int32 vkey, int32 tag, int32 ref); HDFLIBAPI int32 Vntagrefs (int32 vkey); HDFLIBAPI int32 Vnrefs (int32 vkey,int32 tag); HDFLIBAPI int32 Vgettagrefs (int32 vkey, int32 tagarray[], int32 refarray[], int32 n); HDFLIBAPI int32 Vgetuservgs (int32 id, int32 start_ref, int32 n_vgs, int32 *refarray); HDFLIBAPI intn Vgettagref (int32 vkey, int32 which, int32 * tag, int32 * ref); HDFLIBAPI int32 VQueryref (int32 vkey); HDFLIBAPI int32 VQuerytag (int32 vkey); HDFLIBAPI int32 Vaddtagref (int32 vkey, int32 tag, int32 ref); HDFLIBAPI int32 Ventries (HFILEID f, int32 vgid); HDFLIBAPI int32 Vsetname (int32 vkey, const char * vgname); HDFLIBAPI int32 Vsetclass (int32 vkey, const char * vgclass); HDFLIBAPI intn Visvg (int32 vkey, int32 id); HDFLIBAPI intn Visvs (int32 vkey, int32 id); HDFLIBAPI int32 Vgetid (HFILEID f, int32 vgid); HDFLIBAPI int32 Vgetnext (int32 vkey, int32 id); HDFLIBAPI int32 Vgetname (int32 vkey, char * vgname); HDFLIBAPI int32 Vgetnamelen (int32 vkey, uint16 * name_len); HDFLIBAPI int32 Vgetclassnamelen (int32 vkey, uint16 * classname_len); HDFLIBAPI int32 Vgetclass (int32 vkey, char * vgclass); HDFLIBAPI intn Vinquire (int32 vkey, int32 * nentries, char * vgname); HDFLIBAPI int32 Vdelete (int32 f, int32 ref); HDFLIBAPI intn Vgisinternal (int32 vkey); HDFLIBAPI intn Visinternal /* this function is replaced by Vgisinternal */ (const char *classname); HDFLIBAPI intn Vgetvgroups (int32 id, uintn start_vg, uintn n_vgs, uint16 *refarray); /******************************************************************************* NAME Vdeletetagref - delete tag/ref pair in Vgroup DESCRIPTION Deletes the given tag/ref pair from the Vgroup. If the given tag/ref pair does not exist in the vgroup the routine will return FAIL. Users should use Vinqtagref() to check if the tag/ref pair exists before deleting. RETURNS Returns SUCCEED if the tag/ref pair is deleted from Vgroup and FAIL if unsuccessful. *******************************************************************************/ HDFLIBAPI intn Vdeletetagref(int32 vkey, /* IN: vgroup key */ int32 tag, /* IN: tag to delete in vgroup */ int32 ref /* IN: ref to delete in vgroup */); HDFLIBAPI intn VPshutdown(void); /* ** from vparse.c */ HDFLIBAPI int32 scanattrs (const char * attrs, int32 * attrc, char *** attrv); /* ** from vhi.c */ HDFLIBAPI int32 VHstoredata (HFILEID f, const char * field, const uint8 *buf, int32 n, int32 datatype, const char * vsname, const char * vsclass); HDFLIBAPI int32 VHstoredatam (HFILEID f, const char * field, const uint8 *buf, int32 n, int32 datatype, const char * vsname, const char * vsclass, int32 order); HDFLIBAPI int32 VHmakegroup (HFILEID f, int32 tagarray[], int32 refarray[], int32 n, const char * vgname, const char * vgclass); /* ** from vio.c */ HDFLIBAPI intn VSPhshutdown(void); HDFLIBAPI int32 vexistvs (HFILEID f, uint16 vsref); HDFLIBAPI void vsdestroynode (void * n); HDFLIBAPI void vfdestroynode (void * n); HDFLIBAPI int32 VSattach (HFILEID f, int32 vsref, const char * accesstype); HDFLIBAPI int32 VSdetach (int32 vkey); HDFLIBAPI int32 VSQuerytag (int32 vkey); HDFLIBAPI int32 VSQueryref (int32 vkey); HDFLIBAPI int32 VSgetid (HFILEID f, int32 vsref); HDFLIBAPI int32 VSgetversion (int32 vkey); HDFLIBAPI int32 VSdelete (int32 f, int32 ref); HDFLIBAPI int32 VSappendable (int32 vkey, int32 blk); /* ** from vsfld.c */ HDFLIBAPI intn VSsetfields (int32 vkey, const char * fields); HDFLIBAPI intn VSfdefine (int32 vkey, const char * field, int32 localtype, int32 order); HDFLIBAPI int32 VFnfields (int32 vkey); HDFLIBAPI char *VFfieldname (int32 vkey, int32 idx); HDFLIBAPI int32 VFfieldtype (int32 vkey, int32 idx); HDFLIBAPI int32 VFfieldisize (int32 vkey, int32 idx); HDFLIBAPI int32 VFfieldesize (int32 vkey, int32 idx); HDFLIBAPI int32 VFfieldorder (int32 vkey, int32 idx); HDFLIBAPI intn VSsetexternalfile (int32 vkey, const char *filename, int32 offset); HDFLIBAPI intn VSgetexternalfile (int32 vkey, uintn name_len, char *filename, int32* offset); HDFLIBAPI intn VSgetexternalinfo (int32 vkey, uintn name_len, char *filename, int32* offset, int32* length); HDFLIBAPI intn VSfpack (int32 vsid, intn packtype, const char *fields_in_buf, void * buf, intn bufsz, intn n_records, const char *fields, void * fldbufpt[]); /* ** from vrw.c */ HDFLIBAPI intn VSPshutdown(void); HDFLIBAPI int32 VSseek (int32 vkey, int32 eltpos); HDFLIBAPI int32 VSread (int32 vkey, uint8 buf[], int32 nelt, int32 interlace); HDFLIBAPI int32 VSwrite (int32 vkey, const uint8 buf[], int32 nelt, int32 interlace); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _H_PROTO */ libhdf4-4.2.10/HDF_ALT/hdf/src/mcache.h0000644000000000000000000002005612421456623014032 0ustar /*- * Copyright (c) 1991, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /***************************************************************************** * File: mcache.h * * This is a modfied version of the original Berkley code for * manipulating a memory pool. This version however is not * compatible with the original Berkley version. * * This version uses HDF number types. * * AUTHOR - George V.- 1996/08/22 *****************************************************************************/ /* $Id: mcache.h 5146 2009-01-14 17:46:57Z fbaker $ */ /* * NOTE: * Here pagesize is the same thing as chunk size and pages refer to chunks. * I just didn't bother to change all references from pages to chunks. * * -georgev */ #ifndef _MCACHE_H #define _MCACHE_H /* Required include */ #include "hqueue.h" /* Circluar queue functions(Macros) */ /* Set return/succeed values */ #ifdef SUCCEED #define RET_SUCCESS SUCCEED #define RET_ERROR FAIL #else #define RET_SUCCESS 0 #define RET_ERROR -1 #endif /* * The memory pool scheme is a simple one. Each in-memory page is referenced * by a bucket which is threaded in up to two (three?) ways. All active pages * are threaded on a hash chain (hashed by page number) and an lru chain. * (Inactive pages are threaded on a free chain?). Each reference to a memory * pool is handed an opaque MPOOL cookie which stores all of this information. */ /* Current Hash table size. Page numbers start with 1 * (i.e 0 will denote invalid page number) */ #define HASHSIZE 128 #define HASHKEY(pgno) ((pgno -1) % HASHSIZE) /* Default pagesize and max # of pages to cache */ #define DEF_PAGESIZE 8192 #define DEF_MAXCACHE 1 #define MAX_PAGE_NUMBER 0xffffffff /* >= # of pages in a object */ /* The BKT structures are the elements of the queues. */ typedef struct _bkt { CIRCLEQ_ENTRY(_bkt) hq; /* hash queue */ CIRCLEQ_ENTRY(_bkt) q; /* lru queue */ VOID *page; /* page */ int32 pgno; /* page number */ #define MCACHE_DIRTY 0x01 /* page needs to be written */ #define MCACHE_PINNED 0x02 /* page is pinned into memory */ uint8 flags; /* flags */ } BKT; /* The element structure for every page referenced(read/written) in object */ typedef struct _lelem { CIRCLEQ_ENTRY(_lelem) hl; /* hash list */ int32 pgno; /* page number */ #ifdef STATISTICS int32 elemhit; /* # of hits on page */ #endif #define ELEM_READ 0x01 #define ELEM_WRITTEN 0x02 #define ELEM_SYNC 0x03 uint8 eflags; /* 1= read, 2=written, 3=synced */ } L_ELEM; #define MCACHE_EXTEND 0x10 /* increase number of pages i.e extend object */ /* Memory pool cache */ typedef struct MCACHE { CIRCLEQ_HEAD(_lqh, _bkt) lqh; /* lru queue head */ CIRCLEQ_HEAD(_hqh, _bkt) hqh[HASHSIZE]; /* hash queue array */ CIRCLEQ_HEAD(_lhqh, _lelem) lhqh[HASHSIZE]; /* hash of all elements */ int32 curcache; /* current num of cached pages */ int32 maxcache; /* max number of cached pages */ int32 npages; /* number of pages in the object */ int32 pagesize; /* cache page size */ int32 object_id; /* access ID of object this cache is for */ int32 object_size; /* size of object to cache must be multiple of pagesize for now */ int32 (*pgin) (VOID *cookie, int32 pgno, VOID *page); /* page in conversion routine */ int32 (*pgout) (VOID *cookie, int32 pgno, const VOID *page);/* page out conversion routine*/ VOID *pgcookie; /* cookie for page in/out routines */ #ifdef STATISTICS int32 listhit; /* # of list hits */ int32 listalloc; /* # of list elems allocated */ int32 cachehit; /* # of cache hits */ int32 cachemiss; /* # of cache misses */ int32 pagealloc; /* # of pages allocated */ int32 pageflush; /* # of pages flushed */ int32 pageget; /* # of pages requested from pool */ int32 pagenew; /* # of new pages */ int32 pageput; /* # of pages put back into pool */ int32 pageread; /* # of pages read from object */ int32 pagewrite; /* # of pages written to object */ #endif /* STATISTICS */ } MCACHE; #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ extern MCACHE *mcache_open ( VOID *key, /* IN:byte string used as handle to share buffers */ int32 object_id, /* IN: object handle */ int32 pagesize, /* IN: chunk size in bytes */ int32 maxcache, /* IN: maximum number of pages to cache at any time */ int32 npages, /* IN: number of chunks currently in object */ int32 flags /* IN: 0= object exists, 1= does not exist */); extern VOID mcache_filter ( MCACHE *mp, /* IN: MCACHE cookie */ int32 (*pgin)(VOID *cookie, int32 pgno, VOID *page) ,/* IN: page in filter */ int32 (*pgout)(VOID *cookie, int32 pgno, const VOID *page) , /* IN: page out filter */ VOID *pgcookie /* IN: filter cookie */); extern VOID *mcache_new ( MCACHE *mp, /* IN: MCACHE cookie */ int32 *pgnoaddr, /* IN/OUT: address of newly create page */ int32 flags /* IN:MCACHE_EXTEND or 0 */); extern VOID *mcache_get ( MCACHE *mp, /* IN: MCACHE cookie */ int32 pgno, /* IN: page number */ int32 flags /* IN: XXX not used? */); extern intn mcache_put ( MCACHE *mp, /* IN: MCACHE cookie */ VOID *page, /* IN: page to put */ int32 flags /* IN: flags = 0, MCACHE_DIRTY */); extern intn mcache_sync ( MCACHE *mp /* IN: MCACHE cookie */); extern intn mcache_close ( MCACHE *mp /* IN: MCACHE cookie */); extern int32 mcache_get_pagesize ( MCACHE *mp /* IN: MCACHE cookie */); extern int32 mcache_get_maxcache ( MCACHE *mp /* IN: MCACHE cookie */); extern int32 mcache_set_maxcache ( MCACHE *mp, /* IN: MCACHE cookie */ int32 maxcache /* IN: max pages to cache */); extern int32 mcache_get_npages ( MCACHE *mp /* IN: MCACHE cookie */); #ifdef STATISTICS extern VOID mcache_stat( MCACHE *mp /* IN: MCACHE cookie */); #endif /* STATISTICS */ #if 0 /* NOT USED */ extern intn mcache_page_sync ( MCACHE *mp, /* IN: MCACHE cookie */ int32 pgno, /* IN: page to sync */ int32 flags /* IN: flags */); #endif #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* _MCACHE_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/vrw.c0000644000000000000000000006406312421456623013431 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6026 $"; #endif /* $Id: vrw.c 6026 2014-01-16 15:16:16Z bmribler $ */ /*********************************************************************** * * vrw.c * Part of the HDF VSet interface. * This module handles reading and writing of Vdatas. * LOCAL ROUTINES VSPshutdown -- Free the Vtbuf buffer. EXPORTED ROUTINES VSseek -- Seeks to an element boundary within a vdata i.e. 2nd element. VSread -- Reads a specified number of elements' worth of data from a vdata. Data will be returned to you interlaced in the way you specified. VSwrite -- Writes a specified number of elements' worth of data to a vdata. You must specify how your data in your buffer is interlaced. Creates an aid, and writes it out if this is the first time. NOTE: Another pass needs to made through this file to update some of the comments about certain sections of the code. -GV 9/8/97 ************************************************************************/ #define VSET_INTERFACE #include "hdf.h" #ifndef MIN #define MIN(a,b) ((a) < (b) ? (a) : (b)) #endif /* MIN */ PRIVATE uint32 Vtbufsize = 0; PRIVATE uint8 *Vtbuf = NULL; /******************************************************************************* NAME VSPshutdown -- Free the Vtbuf buffer. DESCRIPTION For completeness, when the VSet interface is shut-down, free the Vtbuf. Should only ever be called by the "atexit" function HDFend RETURNS Returns SUCCEED/FAIL *******************************************************************************/ intn VSPshutdown(void) { intn ret_value = SUCCEED; /* free global buffers */ if(Vtbuf != NULL) { HDfree(Vtbuf); Vtbuf = NULL; Vtbufsize = 0; } /* end if */ /* Clear the local buffers in vio.c */ ret_value = VSPhshutdown(); return ret_value; } /* end VSPshutdown() */ /******************************************************************************* NAME VSseek DESCRIPTION Seeks to an element boundary within a vdata Vdata must be attached with "r" or "w" access. Specify eltpos = 0 for 1st element, 1 for 2nd element etc. (eg returns 5 if seek to the 6th element, etc) RETURNS RETURNS FAIL on error RETURNS position of element seeked to (0 or a +ve integer) *******************************************************************************/ int32 VSseek(int32 vkey, /* IN: vdata key */ int32 eltpos /* IN: element position in vdata */) { int32 ret; int32 offset; vsinstance_t *w = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSseek"); /* clear error stack */ HEclear(); /* check if vdata is part of vdata group */ if (HAatom_group(vkey)!=VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (w = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it. Check element postion also. */ vs = w->vs; if ((vs == NULL) || (eltpos < 0)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Don't allow seeks in 0-field vdatas */ if (vs->wlist.n<=0) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* calculate offset of element in vdata */ offset = eltpos * vs->wlist.ivsize; /* seek to element */ if (( ret = Hseek(vs->aid, offset, DF_START)) == FAIL) HGOTO_ERROR(DFE_BADSEEK, FAIL); ret_value = (eltpos); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSseek */ /******************************************************************************* NAME VSread DESCRIPTION Reads a specified number of elements' worth of data from a vdata. Data will be returned to you interlaced in the way you specified. RETURNS RETURNS FAIL if error RETURNS the number of elements read (0 or a +ve integer). *******************************************************************************/ int32 VSread(int32 vkey, /* IN: vdata key */ uint8 buf[], /* IN/OUT: space to put elements in */ int32 nelt, /* IN: number of elements to read */ int32 interlace /* IN: interlace to return elements in 'buf' */) { intn isize = 0; intn order = 0; intn index = 0; intn esize = 0; intn hsize = 0; uint8 *Src; uint8 *b1 = NULL; uint8 *b2 = NULL; int32 i, j; int32 nv; int32 offset; int32 type; int32 uvsize; /* size of "element" as NEEDED by user */ int32 total_bytes; /* total number of bytes that need to be read in */ int32 bytes; /* number of elements / bytes to read next time */ int32 chunk; /* number of records in a buffer */ int32 done; /* number of records to do / done */ DYN_VWRITELIST *w = NULL; DYN_VREADLIST *r = NULL; vsinstance_t *wi = NULL; VDATA *vs = NULL; int32 ret_value = SUCCEED; CONSTR(FUNC, "VSread"); /* clear error stack */ HEclear(); /* check if vdata is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (wi = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it */ vs = wi->vs; if (vs == NULL) HGOTO_ERROR(DFE_ARGS, FAIL); /* check access id and number of vertices in vdata */ if ((vs->aid == 0) || (vs->nvertices == 0)) HGOTO_ERROR(DFE_ARGS, FAIL); /* Don't allow reads in 0-field vdatas */ if (vs->wlist.n<=0) HGOTO_ERROR(DFE_BADFIELDS, FAIL); /* check if vdata exists in file */ if (vexistvs(vs->f, vs->oref) == FAIL) HGOTO_ERROR(DFE_NOVS, FAIL); /* check interlace parameter */ if (interlace != FULL_INTERLACE && interlace != NO_INTERLACE) HGOTO_ERROR(DFE_ARGS, FAIL); /* read/write lists */ w = &(vs->wlist); r = &(vs->rlist); hsize = (intn)vs->wlist.ivsize; /* size as stored in HDF */ total_bytes = hsize * nelt; /* Now, convert and repack field(s) from Vtbuf into buf. This section of the code deals with interlacing. In all cases the items for each of the fields are converted and shuffled around from the internal buffer "Vtbuf" to the user's buffer "buf". There are 5 cases : (A) user=NO_INTERLACE & vdata=FULL_INTERLACE) (B) user=NO_INTERLACE & vdata=NO_INTERLACE) (C) user=FULL_INTERLACE & vdata=FULL_INTERLACE) (D) user=FULL_INTERLACE & vadat=NO_INTERLACE) (E) SPECIAL CASE when only one field. Cases (A)-(D) handles multiple fields. Case (E) handles reading from a Vdata with a single field. Cases (E) and (C) are the most frequently used. Limit buffer allocations to VDATA_BUFFER_MAX size so that we conserve memory. Doing this involves a certain degree of added code complexity so don't bother doing it for the less frequent cases. Cases E and C have been rolled together since they are very similar and both need the incremental writing. */ /* ----------------------------------------------------------------- */ /* CASE (E + C): Easy to unroll case */ if ((w->n == 1) || (interlace == FULL_INTERLACE && vs->interlace == FULL_INTERLACE)) { /* * figure out how many elements we can move at a time and * make sure our buffer is big enough */ if ((uint32) total_bytes < Vtbufsize) { chunk = nelt; } else { int32 buf_size; /* we are bounded above by VDATA_BUFFER_MAX */ buf_size = MIN(total_bytes, VDATA_BUFFER_MAX); /* make sure there is at least room for one record in our buffer */ chunk = buf_size / hsize + 1; /* get a buffer big enough to hold the values */ Vtbufsize = (size_t)chunk * (size_t)hsize; if (Vtbuf) HDfree(Vtbuf); if ((Vtbuf = (uint8 *) HDmalloc(Vtbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } done = 0; /* set loop invariant parameters */ Src = buf; bytes = hsize * chunk; for (uvsize = 0, j = 0; j < r->n; j++) uvsize += w->esize[r->item[j]]; while (done < nelt) { /* chunk has changed so update the byte counts */ if (nelt - done < chunk) { chunk = nelt - done; bytes = hsize * chunk; } /* ================ start reading ============================== */ if ((nv = Hread(vs->aid, bytes, (uint8 *) Vtbuf)) != bytes) { HERROR(DFE_READERROR); HEreport("Tried to read %d, only read %d", bytes, nv); HGOTO_DONE(FAIL); } /* CASE (E): Only a single field in the Vdata */ if (w->n == 1) { DFKconvert(Vtbuf,Src,w->type[0], (uint32) w->order[0] * (uint32)chunk, DFACC_READ, 0, 0); } /* case (e) */ /* ----------------------------------------------------------------- */ /* CASE (C): iu=full, iv=full */ else { offset = 0; for (j = 0; j < r->n; j++) { i = r->item[j]; b1 = Src + offset; b2 = Vtbuf + (size_t)w->off[i]; type = (int32)w->type[r->item[j]]; esize = (intn)w->esize[i]; isize = (intn)w->isize[i]; order = (intn)w->order[i]; for (index = 0; index < order; index++) { DFKconvert(b2, b1, type, (uint32) chunk, DFACC_READ, (uint32) hsize, (uint32) uvsize); b1 += (int) esize / order; b2 += (int) isize / order; } offset += esize; } } /* case (E) */ /* record what we've done and move to next group */ done += chunk; Src += chunk * uvsize; } /* end while */ } /* case (C + E) */ else { /* * Handle the other cases now. * These cases are less frequent so don't bother unrolling * the loops for now. As a result, we may get into memory * problems since we may end up allocating a huge buffer */ /* alloc space (Vtbuf) for reading in the raw data from vdata */ if (Vtbufsize < (size_t)nelt * (size_t) hsize) { Vtbufsize = (size_t)nelt * (size_t) hsize; if (Vtbuf) HDfree(Vtbuf); if ((Vtbuf = (uint8 *) HDmalloc(Vtbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* ================ start reading ============================== */ nv = Hread(vs->aid, nelt * hsize, (uint8 *) Vtbuf); if (nv != nelt * hsize) { HERROR(DFE_READERROR); HEreport("Tried to read %d, only read %d", nelt * hsize, nv); HGOTO_DONE(FAIL); } /* ----------------------------------------------------------------- */ /* CASE (A): user=none, vdata=full */ if (interlace == NO_INTERLACE && vs->interlace == FULL_INTERLACE) { b1 = buf; for (j = 0; j < r->n; j++) { i = r->item[j]; b2 = Vtbuf + (size_t)w->off[i]; type = (int32)w->type[i]; isize = (intn)w->isize[i]; esize = (intn)w->esize[i]; order = (intn)w->order[i]; for (index = 0; index < order; index++) { DFKconvert(b2, b1, type, (uint32) nelt, DFACC_READ, (uint32) hsize, (uint32) esize); b2 += isize / order; b1 += esize / order; } b1 += ((nelt - 1) * esize); } } /* case (a) */ /* ----------------------------------------------------------------- */ /* CASE (B): user=none, vdata=none */ else if (interlace == NO_INTERLACE && vs->interlace == NO_INTERLACE) { b1 = buf; for (j = 0; j < r->n; j++) { i = r->item[j]; b2 = Vtbuf + (size_t)w->off[i] * (size_t)nelt; type = (int32)w->type[i]; esize = (intn)w->esize[i]; isize = (intn)w->isize[i]; order = (intn)w->order[i]; for (index = 0; index < order; index++) { DFKconvert(b2, b1, type, (uint32) nelt, DFACC_READ, (uint32) isize, (uint32) esize); b1 += esize / order; b2 += isize / order; } b1 += ((nelt - 1) * esize); } } /* case (b) */ /* ----------------------------------------------------------------- */ /* CASE (D): user=full, vdata=none */ else if (interlace == FULL_INTERLACE && vs->interlace == NO_INTERLACE) { for (uvsize = 0, j = 0; j < r->n; j++) uvsize += w->esize[r->item[j]]; offset = 0; for (j = 0; j < r->n; j++) { i = r->item[j]; b1 = buf + offset; b2 = Vtbuf + (size_t)w->off[i] * (size_t)nelt; type = (int32)w->type[i]; isize = (intn)w->isize[i]; esize = (intn)w->esize[i]; order = (intn)w->order[i]; for (index = 0; index < order; index++) { DFKconvert(b2, b1, type, (uint32) nelt, DFACC_READ, (uint32) isize, (uint32) uvsize); b1 += esize / order; b2 += isize / order; } offset += isize; } } /* case (d) */ } /* end else, cases a, b, and d */ ret_value = (nelt); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSread */ /******************************************************************************* NAME VSwrite DESCRIPTION Writes a specified number of elements' worth of data to a vdata. You must specify how your data in your buffer is interlaced. NEW create an aid, and write out if this is the first time. (otherwise) subsequent writes result in link-blocks. RETURNS RETURNS FAIL if error RETURNS the number of elements written (0 or a +ve integer). *******************************************************************************/ int32 VSwrite(int32 vkey, /* IN: vdata key */ const uint8 buf[], /* IN: elements to write to vdata */ int32 nelt, /* IN: number of elements */ int32 interlace /* IN: interlace of elements 'buf' */) { intn isize = 0; intn order = 0; intn index = 0; intn esize = 0; uint8 *dest = NULL; const uint8 *src, *Src; int32 j; int32 type; int32 offset; int32 position = 0; int32 new_size; int32 status; int32 total_bytes; /* total number of bytes that need to be written out */ DYN_VWRITELIST *w = NULL; int32 int_size; /* size of "element" as needed by user in memory */ intn hdf_size = 0; /* size of record in HDF file */ vsinstance_t *wi = NULL; VDATA *vs = NULL; int32 bytes; /* number of elements / bytes to write next time */ int32 chunk; int32 done; /* number of records to do / done */ int32 ret_value = SUCCEED; CONSTR(FUNC, "VSwrite"); /* clear error stack */ HEclear(); /* check if vdata is part of vdata group */ if (HAatom_group(vkey) != VSIDGROUP) HGOTO_ERROR(DFE_ARGS, FAIL); /* get vdata instance */ if (NULL == (wi = (vsinstance_t *) HAatom_object(vkey))) HGOTO_ERROR(DFE_NOVS, FAIL); /* get vdata itself and check it. Also check number of elements */ vs = wi->vs; if ((nelt <= 0) || (vs == NULL)) HGOTO_ERROR(DFE_ARGS, FAIL); /* check if write access to vdata */ if (vs->access != 'w') HGOTO_ERROR(DFE_BADACC, FAIL); /* check if vdata exists in the file */ if (FAIL == vexistvs(vs->f, vs->oref)) HGOTO_ERROR(DFE_NOVS, FAIL); /* get write list */ w = & vs->wlist; if (w->n == 0) { HERROR(DFE_NOVS); HEreport("No fields set for writing"); HGOTO_DONE(FAIL); } /* check interlace of input buffer */ if (interlace != NO_INTERLACE && interlace != FULL_INTERLACE) HGOTO_ERROR(DFE_ARGS, FAIL); hdf_size = (intn)w->ivsize; /* as stored in HDF file */ total_bytes = hdf_size * nelt; /* make sure we have a valid AID */ if (vs->aid == 0) { #ifdef OLD_WAY vs->aid = Hstartwrite(vs->f, DFTAG_VS, vs->oref, total_bytes); if (vs->aid == FAIL) HGOTO_ERROR(DFE_BADAID, FAIL); #else /* OLD_WAY */ HGOTO_ERROR(DFE_BADAID, FAIL); #endif /* OLD_WAY */ } /* * promote to link-block if vdata exists and is not already one * AND we are increasing its size */ HQueryposition(vs->aid, &position); new_size = (position / (intn)vs->wlist.ivsize) + nelt; /* this should really be cached in the Vdata structure */ for (int_size = 0, j = 0; j < w->n; j++) int_size += w->esize[j]; /* First, convert and repack field(s) from Vtbuf into buf. This section of the code deals with interlacing. In all cases the items for each of the fields are converted and shuffled around from the user's buffer "buf" to the internal's buffer "Vtbuf". The data in "Vtbuf" is then written out to the vdata. There are 5 cases : (A) user=NO_INTERLACE & vdata=FULL_INTERLACE) (B) user=NO_INTERLACE & vdata=NO_INTERLACE) (C) user=FULL_INTERLACE & vdata=FULL_INTERLACE) (D) user=FULL_INTERLACE & vadat=NO_INTERLACE) (E) SPECIAL CASE when only one field. Cases (A)-(D) handles multiple fields Case (E) handles single field Vdatas Cases (E) and (C) are the most frequently used. Limit buffer allocations to VDATA_BUFFER_MAX size so that we conserve memory. Doing this involves a certain degree of added code complexity so don't bother doing it for the less frequent cases. Cases E and C have been rolled together since they are very similar and both need the incremental writing. --------------------------------------------------------------------- */ /* CASE (E + C): Easy to unroll case */ if ((w->n == 1) || (interlace == FULL_INTERLACE && vs->interlace == FULL_INTERLACE)) { /* * figure out how many elements we can move at a time and * make sure our buffer is big enough */ if ((uint32) total_bytes < Vtbufsize) { chunk = nelt; } else { int32 buf_size; /* we are bounded above by VDATA_BUFFER_MAX */ buf_size = MIN(total_bytes, VDATA_BUFFER_MAX); /* make sure there is at least room for one record in our buffer */ chunk = buf_size / hdf_size + 1; /* get a buffer big enough to hold the values */ Vtbufsize = (size_t)chunk * (size_t)hdf_size; if (Vtbuf) HDfree(Vtbuf); if ((Vtbuf = (uint8 *) HDmalloc(Vtbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } done = 0; /* set loop invariant parameters */ Src = buf; dest = Vtbuf; bytes = hdf_size * chunk; while (done < nelt) { /* chunk has changed so update the byte counts */ if (nelt - done < chunk) { chunk = nelt - done; bytes = hdf_size * chunk; } /* printf("Case E/C: [%d,%d] writing %d (elems) %d bytes\n", done, nelt, chunk, bytes); */ offset = 0; for (j = 0; j < w->n; j++) { src = Src + offset; dest = Vtbuf + (size_t)w->off[j]; type = (int32)w->type[j]; esize = (intn)w->esize[j]; isize = (intn)w->isize[j]; order = (intn)w->order[j]; for (index = 0; index < order; index++) { DFKconvert((VOIDP)src, dest, type, (uint32) chunk, DFACC_WRITE, (uint32) int_size, (uint32) hdf_size); dest += isize / order; src += esize / order; } offset += esize; } /* write the converted data to the file */ status = Hwrite(vs->aid, bytes, (uint8 *) Vtbuf); if (status != bytes) HGOTO_ERROR(DFE_WRITEERROR, FAIL); /* record what we've done and move to next group */ done += chunk; Src += chunk * int_size; } } /* case (C + E) */ else { /* * Handle the other cases now. * These cases are less frequent so don't bother unrolling * the loops for now. As a result, we may get into memory * problems since we may end up allocating a huge buffer */ /* alloc space (Vtbuf) for writing out the data */ if (Vtbufsize < (uint32) total_bytes) { Vtbufsize = (uint32)total_bytes; if (Vtbuf) HDfree(Vtbuf); if ((Vtbuf = (uint8 *) HDmalloc(Vtbufsize)) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); } /* ----------------------------------------------------------------- */ /* CASE (A): user=none, vdata=full */ if (interlace == NO_INTERLACE && vs->interlace == FULL_INTERLACE) { src = buf; for (j = 0; j < w->n; j++) { dest = Vtbuf + (size_t)w->off[j]; type = (int32)w->type[j]; esize = (intn)w->esize[j]; isize = (intn)w->isize[j]; order = (intn)w->order[j]; for (index = 0; index < order; index++) { DFKconvert((VOIDP)src, dest, type, (uint32) nelt, DFACC_WRITE, (uint32) esize, (uint32) hdf_size); src += esize / order; dest += isize / order; } src += ((nelt - 1) * esize); } } /* case (a) */ /* --------------------------------------------------------------------- */ /* CASE (B): user=none, vdata=none */ else if (interlace == NO_INTERLACE && vs->interlace == NO_INTERLACE) { src = buf; for (j = 0; j < w->n; j++) { dest = Vtbuf + w->off[j] * nelt; type = (int32)w->type[j]; esize = (intn)w->esize[j]; isize = (intn)w->isize[j]; order = (intn)w->order[j]; for (index = 0; index < order; index++) { DFKconvert((VOIDP)src, dest, type, (uint32) nelt, DFACC_WRITE, (uint32) esize, (uint32) isize); dest += isize / order; src += esize / order; } src += ((nelt - 1) * esize); } } /* case (b) */ /* ----------------------------------------------------------------- */ /* CASE (D): user=full, vdata=none */ else if (interlace == FULL_INTERLACE && vs->interlace == NO_INTERLACE) { offset = 0; for (j = 0; j < w->n; j++) { src = buf + offset; dest = Vtbuf + w->off[j] * nelt; type = (int32)w->type[j]; isize = (intn)w->isize[j]; esize = (intn)w->esize[j]; order = (intn)w->order[j]; for (index = 0; index < order; index++) { DFKconvert((VOIDP)src, dest, type, (uint32) nelt, DFACC_WRITE, (uint32) int_size, (uint32) isize); dest += isize / order; src += esize / order; } offset += esize; } } /* case (d) */ status = Hwrite(vs->aid, total_bytes, (uint8 *) Vtbuf); if (status != total_bytes) HGOTO_ERROR(DFE_WRITEERROR, FAIL); } /* cases a, b, and d */ /* update the internal structure to reflect write */ if (new_size > vs->nvertices) vs->nvertices = new_size; vs->marked = 1; ret_value = (nelt); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* VSwrite */ libhdf4-4.2.10/HDF_ALT/hdf/src/mfgrff.f0000644000000000000000000003644012421456623014063 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: mfgrff.f 4932 2007-09-07 17:17:23Z bmribler $ C C------------------------------------------------------------------------------ C File: mfgrff.f C Purpose: Fortran stubs for Fortran GR routines C Invokes: mfgrf.c C Contents: C dsgdims: get dimensions of next SDG C Remarks: none C------------------------------------------------------------------------------ C------------------------------------------------------------------------------ C Name: mgcreat C Purpose: Create a new raster image C Inputs: C grid: GR ID of interface to create image in C name: name of raster image C ncomp: number of components per pixel C nt: number-type of each component C il: interlace scheme to use C dimsizes[2]: dimensions of the image to create C Returns: RI ID on success, -1 on failure C Users: HDF Fortran programmers C Invokes: mgicreat C------------------------------------------------------------------------------ integer function mgcreat(grid, name, ncomp, nt, il, dimsizes) character*(*) name integer grid, ncomp, nt, il, dimsizes, mgicreat mgcreat = mgicreat(grid, name, ncomp, nt, il, dimsizes, + len(name)) return end C------------------------------------------------------------------------------ C Name: mgn2ndx C Purpose: Map the name of a raster image to an index in the file C Inputs: C grid: GR ID of interface to create image in C name: name of raster image C Returns: index of image on success, -1 on failure C Users: HDF Fortran programmers C Invokes: mgin2ndx C------------------------------------------------------------------------------ integer function mgn2ndx(grid, name) character*(*) name integer grid, mgin2ndx mgn2ndx = mgin2ndx(grid, name, len(name)) return end C------------------------------------------------------------------------------ C Name: mgsxfil C Purpose: Convert a standard image into an external image C Inputs: C riid: RI ID of image to move C filename: filename of file to move image into C offset: offset in file to move image to C Returns: SUCCEED/FAIL C Users: HDF Fortran programmers C Invokes: mgisxfil C------------------------------------------------------------- integer function mgsxfil(riid, filename, offset) character*(*) filename integer riid, mgisxfil, offset mgsxfil = mgisxfil(riid, filename, offset, len(filename)) return end C------------------------------------------------------------- C Name: mgscatt C Purpose: Add a char type attribute to a raster image C Inputs: C riid: RI ID of image C name: the name of the attribute C nt: the number-type of the attribute C count: the number of values in the attribute C data: the data for the attribute C Returns: SUCCEED/FAIL C Users: HDF Fortran programmers C Invokes: mgiscatt C------------------------------------------------------------- integer function mgscatt(riid, name, nt, count, data) character*(*) name character*(*) data integer riid, mgiscatt, nt, count mgscatt = mgiscatt(riid, name, nt, count, data, len(name)) return end C------------------------------------------------------------- C Name: mgsnatt C Purpose: Add a numeric attribute to a raster image C Inputs: C riid: RI ID of image C name: the name of the attribute C nt: the number-type of the attribute C count: the number of values in the attribute C data: the data for the attribute C Returns: SUCCEED/FAIL C Users: HDF Fortran programmers C Invokes: mgisattr C------------------------------------------------------------- integer function mgsnatt(riid, name, nt, count, data) character*(*) name integer data integer riid, mgisattr, nt, count mgsnatt = mgisattr(riid, name, nt, count, data, len(name)) return end C------------------------------------------------------------- C Name: mgsattr C Purpose: Add an attribute to a raster image C Inputs: C riid: RI ID of image C name: the name of the attribute C nt: the number-type of the attribute C count: the number of values in the attribute C data: the data for the attribute C Returns: SUCCEED/FAIL C Users: HDF Fortran programmers C Invokes: mgisattr C------------------------------------------------------------- integer function mgsattr(riid, name, nt, count, data) character*(*) name character*(*) data integer riid, mgisattr, nt, count mgsattr = mgisattr(riid, name, nt, count, data, len(name)) return end C--------------------------------------------------------------- C Name: mgfndat C Purpose: Locate an attribute for a raster image C Inputs: C riid: RI ID of image C name: the name of the attribute C Returns: SUCCEED/FAIL C Users: HDF Fortran programmers C Invokes: mgifndat C------------------------------------------------------------------------------ integer function mgfndat(riid, name) character*(*) name integer riid, mgifndat mgfndat = mgifndat(riid, name, len(name)) return end C------------------------------------------------------------------------- C Name: mggichnk C Purpose: get Info on GR C Inputs: riid - access ID to GR C Outputs: dim_length - chunk dimensions (if any) C comp_type: C -1 - GR is non-chunked C 0 - GR is chunked without compression C 1 - GR is chunked and compressed C Returns: 0 on success, -1 on failure C Calls: mgcgichnk (C stub for GRgetchunkinfo function) C------------------------------------------------------------------------- INTEGER function mggichnk(riid, dim_length, comp_type) INTEGER riid, dim_length(*), comp_type INTEGER mgcgichnk mggichnk = mgcgichnk(riid, dim_length, comp_type) return end C------------------------------------------------------------------------- C Name: mgrcchnk C Purpose: read the specified chunk of CHARACTER data to the GR C Inputs: riid - access ID to GR C start - chunk coordinates C char_data - buffer the data will be read into C Returns: 0 on success, -1 on failure C Calls: mgcrcchnk (C stub for GRreadchunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function mgrcchnk(riid, start, char_data) INTEGER riid, start(*) CHARACTER*(*) char_data(*) INTEGER mgcrcchnk mgrcchnk = mgcrcchnk(riid, start, char_data) return end C------------------------------------------------------------------------- C Name: mgrchnk C Purpose: read the specified chunk of NUMERIC data to the GR C Inputs: riid - access ID to GR C start - chunk coordinates C num_data - buffer the numeric data will be read into C Returns: 0 on success, -1 on failure C Calls: mgcrchnk (C stub for GRreadchunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function mgrchnk(riid, start, num_data) INTEGER riid, start(*), num_data(*) INTEGER mgcrchnk mgrchnk = mgcrchnk(riid, start, num_data) return end C------------------------------------------------------------------------- C Name: mgscchnk C Purpose: set the maximum number of chunks to cache C Inputs: riid - access ID to GR C maxcache - max number of chunks to cache C flags - flags =0, HDF_CACHEALL C Currently only 0 can be passed. C Returns: 0 on success, -1 on failure C Calls: mgcscchnk (C stub for GRsetchunkcache function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function mgscchnk(riid, maxcache, flags) C INTEGER riid, maxcache, flags INTEGER mgcscchnk C mgscchnk = mgcscchnk(riid, maxcache, flags) C return end C------------------------------------------------------------------------- C Name: mgschnk C Purpose: make the GR a chunked GR C Inputs: riid - access ID to GR C dim_length - chunk dimensions C comp_type - type of compression C comp_prm - compression parameters array C Huffman: comp_prm(1) = skphuff_skp_size C GZIP: comp_prm(1) = deflate_level C C Returns: 0 on success, -1 on failure C Calls: mgcschnk (C stub for GRsetchunk function) C------------------------------------------------------------------------- INTEGER function mgschnk(riid, dim_length, comp_type, . comp_prm) INTEGER riid, dim_length(*), comp_type, comp_prm(*) INTEGER mgcschnk mgschnk = mgcschnk(riid, dim_length, comp_type, . comp_prm) return end C------------------------------------------------------------------------- C Name: mgwcchnk C Purpose: write the specified chunk of CHARACTER data to the GR C Inputs: riid - access ID to GR C start - chunk coordinates C char_data - buffer containing data to be written C Returns: 0 on success, -1 on failure C Calls: mgcwcchnk (C stub for GRwritechunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function mgwcchnk(riid, start, char_data) INTEGER riid, start(*) CHARACTER*(*) char_data(*) INTEGER mgcwcchnk mgwcchnk = mgcwcchnk(riid, start, char_data) return end C------------------------------------------------------------------------- C Name: mgwchnk C Purpose: write the specified chunk of NUMERIC data to the GR C Inputs: riid - access ID to GR C start - chunk coordinates C num_data - buffer containing data to be written C Returns: 0 on success, -1 on failure C Calls: mgcwchnk (C stub for GRwritechunk function) C Users: HDF Fortran programmers C------------------------------------------------------------------------- INTEGER function mgwchnk(riid, start, num_data) INTEGER riid, start(*), num_data(*) INTEGER mgcwchnk mgwchnk = mgcwchnk(riid, start, num_data) return end C------------------------------------------------------------------------- C Name: mgscompress C Purpose: compress GR C Inputs: riid - access ID to GR C comp_type - type of compression C supports the following compression types: C ( see hcomp.h file) C COMP_CODE_NONE = 0 C COMP_CODE_RLE =1 C COMP_CODE_SKPHUFF = 3 C COMP_CODE_DEFLATE = 4 C COMP_CODE_JPEG = 7 C comp_prm - compression parameters array C Huffman: comp_prm(1) = skphuff_skp_size C GZIP: comp_prm(1) = deflate_level C JPEG: comp_prm(1) = quality ( value from 0 to 100) C comp_prm(2) = baseline (compatibility flag 0 or 1) C Returns: 0 on success, -1 on failure C Calls: mgcscompress (C stub for GRsetcompress function) C------------------------------------------------------------------------- INTEGER function mgscompress(riid, comp_type, comp_prm) INTEGER riid, comp_type INTEGER mgcscompress mgscompress = mgcscompress(riid, comp_type, . comp_prm) return end C------------------------------------------------------------------------- C Name: mggcompress C Purpose: gets compression information about GR image C Inputs: riid - access ID to GR C Outputs: comp_type - type of compression C supports the following compression types: C ( see hcomp.h file) C COMP_CODE_NONE = 0 C COMP_CODE_RLE =1 C COMP_CODE_SKPHUFF = 3 C COMP_CODE_DEFLATE = 4 C COMP_CODE_JPEG = 7 C comp_prm - compression parameters array C Huffman: comp_prm(1) = skphuff_skp_size C GZIP: comp_prm(1) = deflate_level C Returns: 0 on success, -1 on failure C Calls: mgcgcompress (C stub for GRgetcompress function) C------------------------------------------------------------------------- INTEGER function mggcompress(riid, comp_type, comp_prm) INTEGER riid, comp_type, comp_prm(1) INTEGER mgcgcompress mggcompress = mgcgcompress(riid, comp_type, . comp_prm) return end C------------------------------------------------------------------------- C Name: mggnluts C Purpose: gets number of palettes (LUTs) for an image C Inputs: riid - access ID to GR C Returns: Number of palettes on success (0 or 1), -1 on failure C Calls: mgcgnluts (C stub for GRgetnluts function) C------------------------------------------------------------------------- INTEGER function mggnluts(riid) INTEGER riid INTEGER mgcgnluts mggnluts = mgcgnluts(riid) return end libhdf4-4.2.10/HDF_ALT/hdf/src/dfsdf.c0000644000000000000000000015170312421456623013677 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfsdf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfsdf.c * Purpose: C stubs for Fortran SDS routines * Invokes: dfsd.c dfkit.c * Contents: * dsgdast: Call DFSDgetdatastrs to get attributes of data * dsigdis: Call DFSDgetdimstrs to get attributes of a dimension * dsgdisc: Call DFSDgetdimscale to get scale for a dimension * dsgrang: Call DFSDgetmaxmin to get max and min data values * dssdims: Call DFSDsetdims to set dimensions for subsequent SDGs * dssdisc: Call DFSDsetdimscale to set scale for subsequent SDGs * dssrang: Call DFSDsetmaxmin to set max/min values for subsequent SDGs * dsclear: Call DFSDclear to erase values set for subsequent SDGs * dsslens: Call DFSDsetlengths to set maximum lengths of string * dsgdiln: Call DFSDgetdimlen to get lengths of strings for a dimension * dsgdaln: Call DFSDgetdatalen to get lengths of data strings * dsfirst: Call DFSDrestart to get SDGs again from beginning of file * dspslc: Call DFSDIputslice to write slice to file * dseslc: Call DFSDendslice to end slice writes, write SDG to file * dssnt: Call DFSDsetNT to set number type * dsgnt: Call DFSDgetNT to get number type for reading * dsigdim: Call DFSDgetdims to get dimensions of next SDG * dsigdat: Call DFSDgetdata to get data values * dsipdat: Call DFSDIputdata to write SDG to new file * dsiadat: Call DFSDIputdata to append SDG to existing file * dsigslc: Call DFSDIgetslice to get slice from file * dsisslc: Call DFSDstartslice to set up to write slice * dslref: Call DFSDlastref to get ref of last SDS accessed * dsinum: Call DFSDndatasets to get number of SDG in the file * dsip32s: Call DFSDpre32sdg to test if the sdg was written by HDF prior to * version 3.2 * dfsdgetdatastrs_:Call DFSDgetdatastrs to get attributes of data * dfsdgetdimscale_:Call DFSDgetdimscale to get scale for a dimension * dfsdgetrange_: Call DFSDgetmaxmin to get max and min data values * dfsdsetdims_: Call DFSDsetdims to set dimensions for subsequent SDGs * dfsdsetdimscale_:Call DFSDsetdimscale to set scale for subsequent SDGs * dfsdsetrange_: Call DFSDsetmaxmin to set max/min values for subsequent SDGs * dfsdclear_: Call DFSDclear to erase values set for subsequent SDGs * dfsdsetlengths_:Call DFSDsetlengths to set maximum lengths of string * dfsdgetdimlen_: Call DFSDgetdimlen to get lengths of strings for a dimension * dfsdgetdatalen_:Call DFSDgetdatalen to get lengths of data strings * dfsdrestart_: Call DFSDrestart to get SDGs again from beginning of file * dfsdputslice_: Call DFSDIputslice to write slice to file * dfsdendslice_: Call DFSDendslice to end slice writes, write SDG to file * dfsdsetnt_: Call DFSDsetNT to set number type * dfsdgetnt_: Call DFSDgetNT to get number type * dfsdlastref_: Call DFSDlastref to get ref of last SDS accessed * dsiwref: Call DFSDwriteref to set up next ref to write * dssfill: Call DFSDsetfillvalue to set fill value for SDS * dsgfill: Call DFSDgetfillvalue to get fill value from SDS * dsisslab: Call DFSDstartslab to set up write to SDS * dswslab: Call DFSDwriteslab to write slab to file * dseslab: Call DFSDendslab to end slab writes, write NDG to file * dsirslab: Call DFSDreadslab to get slab from SDS * Remarks: no C stubs needed for the put string routines, only Fortran stubs *---------------------------------------------------------------------------*/ #include "hdf.h" #include "dfsd.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: dsgdisc * Purpose: Call DFSDgetdimscale to get scale for a dimension * Inputs: dim: dimension to get attributes for * maxsize: size of scale array * scale: array to return scale in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimscale *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgdisc(intf * dim, intf * maxsize, VOIDP scale) { intn rank, cdim; intn isndg; DFSDIisndg(&isndg); if (isndg) { DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; return (DFSDgetdimscale(cdim, *maxsize, scale)); } /*----------------------------------------------------------------------------- * Name: dsgrang * Purpose: Call DFSDgetrange to get maximum and minimum data values * Inputs: pmax: float to return maximum in * pmin: float to return minimum in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetrange *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgrang(VOIDP pmax, VOIDP pmin) { return (DFSDgetrange(pmax, pmin)); } /*----------------------------------------------------------------------------- * Name: dssdims * Purpose: Call DFSDsetdims to set dimensions for subsequent SDGs * Inputs: rank: no of dimensions of SDG * dimsizes: array containing dimensions of SDG * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetdims *---------------------------------------------------------------------------*/ FRETVAL(intf) ndssdims(intf * rank, intf dimsizes[]) { int32 i, *cdims, *p; intf ret; p = (int32 *) HDmalloc((size_t) (*rank) * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; for (i = 1; i <= *rank; i++) { *p = dimsizes[*rank - i]; p++; } ret = DFSDsetdims((intn) *rank, cdims); HDfree((VOIDP) cdims); return (ret); } /*----------------------------------------------------------------------------- * Name: dssdisc * Purpose: Call DFSDsetdimscale to set scales for subsequent SDGs * Inputs: dim: dimension to set scale for * dimsize: size of array scale * scale: array of scale values * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetdimscale *---------------------------------------------------------------------------*/ FRETVAL(intf) ndssdisc(intf * dim, intf * dimsize, VOIDP scale) { int cdim; intn rank; DFSDIgetwrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; return (DFSDsetdimscale(cdim, *dimsize, scale)); } /*----------------------------------------------------------------------------- * Name: dssrang * Purpose: Call DFSDsetrange to set max and min values for this SDG * Inputs: max, min: max and min data values * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetrange * Remarks: Max and Min are set only for next SDG, reset to NULL after *---------------------------------------------------------------------------*/ FRETVAL(intf) ndssrang(VOIDP max, VOIDP min) { return (DFSDsetrange(max, min)); } /*----------------------------------------------------------------------------- * Name: dsclear * Purpose: Call DFSDclear to erase values set for subsequent SDGs * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDclear *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsclear(void) { return (DFSDclear()); } /*----------------------------------------------------------------------------- * Name: dsslens * Purpose: Call DFSDsetlengths to set max lengths of strings * Inputs: maxlen_label, maxlen_unit, maxlen_format, maxlen_coordsys: max lens * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetlengths *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsslens(intf * maxlen_label, intf * maxlen_unit, intf * maxlen_format, intf * maxlen_coordsys) { return (DFSDsetlengths((intn) *maxlen_label, (intn) *maxlen_unit, (intn) *maxlen_format, (intn) *maxlen_coordsys)); } /*----------------------------------------------------------------------------- * Name: dsgdiln * Purpose: Call DFSDgetdimlen to get actual lengths of strings * Inputs: dim: dimension to get lengths for * llabel, lunit, lformat: integers to return lengths of each string in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgdiln(intf * dim, intf * llabel, intf * lunit, intf * lformat) { intn rank, cdim; intf ret; intn isndg; intn cllabel, clunit, clformat; /* convert between intf and intn */ ret = DFSDIisndg(&isndg); if (isndg) { ret = DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; ret = (intf) DFSDgetdimlen(cdim, &cllabel, &clunit, &clformat); if (ret != FAIL) { /* if ok, copy the values over */ *llabel = cllabel; *lunit = clunit; *lformat = clformat; } /* end if */ return (ret); } /*----------------------------------------------------------------------------- * Name: dsgdaln * Purpose: Call DFSDgetdatalen to get actual lengths of strings * Inputs: llabel, lunit, lformat, lcoordsys: integers to return lengths in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdatalen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgdaln(intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys) { intf ret; intn cllabel, clunit, clformat, clcoordsys; ret = (intf) DFSDgetdatalen(&cllabel, &clunit, &clformat, &clcoordsys); if (ret != FAIL) { *llabel = cllabel; *lunit = clunit; *lformat = clformat; *lcoordsys = clcoordsys; } /* end if */ return (ret); } /*----------------------------------------------------------------------------- * Name: dsfirst * Purpose: Call DFSDrestart to get SDGs again from the beginning * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDrestart *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsfirst(void) { return (DFSDrestart()); } /*----------------------------------------------------------------------------- * Name: dspslc * Purpose: Call DFSDIputslice to write slice to file * Inputs: windims: array of size rank, containing size of slice * data: array containing slice * dims: dimensions of array data * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIputslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndspslc(intf windims[], VOIDP data, intf dims[]) { int32 *cdims, *cwindims, *p, *wp; intn i, rank; intf ret; ret = DFSDIgetwrank(&rank); wp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (wp == NULL) return FAIL; cwindims = wp; p = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (p == NULL){ HDfree((VOIDP) cwindims); return FAIL; } cdims = p; for (i = 1; i <= rank; i++) { /* reverse dims & windims */ *p = dims[rank - i]; p++; *wp = windims[rank - i]; wp++; } ret = DFSDIputslice(cwindims, data, cdims, 1); HDfree((VOIDP) cdims); HDfree((VOIDP) cwindims); return (ret); } /*----------------------------------------------------------------------------- * Name: dseslc * Purpose: Call DFSDIendslice to finish slice writes and write out SDG * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIendslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndseslc(void) { return (DFSDIendslice(1)); } /*----------------------------------------------------------------------------- * Name: dssnt * Purpose: Call DFSDsetNT to set number type for subsequent calls to DFSDputdata, DFSDadddata, DFSDsetdimscales. * Inputs: numbertype * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Method: Invokes DFSDsetNT * Remarks: 0 specifies default value *---------------------------------------------------------------------------*/ FRETVAL(intf) ndssnt(intf * numbertype) { return (DFSDsetNT(*numbertype)); } /*---------------------------------------------------------------------------- * Name: dsgnt * Purpose: Call DFSDgetNT to get number type for subsequent calls * Inputs: pnumbertype * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Method: Invokes DFSDgetNT * Remarks: 0 specifies default value *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgnt(intf * pnumbertype) { return (DFSDgetNT((int32 *) pnumbertype)); } /*----------------------------------------------------------------------------- * Name: dsigdim * Purpose: Call DFSDgetdims to get dimensions of next SDG * Inputs: filename: name of HDF file * prank: integer to return rank in * sizes: array to return dimensions in * maxrank: dimension of array sizes * lenfn: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran stub routine * Invokes: DFSDgetdims *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsigdim(_fcd filename, intf * prank, intf sizes[], intf * maxrank, intf * lenfn) { char *fn; int32 i, tmp; intn isndg; intf ret; fn = HDf2cstring(filename, (intn) *lenfn); if (!fn) return(-1); ret = DFSDgetdims(fn, (intn *) prank, (int32 *) sizes, (intn) *maxrank); DFSDIisndg(&isndg); if (isndg) { for (i = 0; i < ((int32) *prank) / 2; i++) { tmp = sizes[i]; sizes[i] = sizes[(int32) *prank - i - 1]; sizes[(int32) *prank - i - 1] = tmp; } } HDfree(fn); return ret; } /*----------------------------------------------------------------------------- * Name: dsigdat * Purpose: Call DFSDgetdata to get data values * Inputs: filename: name of HDF file * rank: no of dimensions in array data * maxsizes: array containing dimensions of the array data * data: array to return the data in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIgetdata,DFSDIrefresh,DFSDIisndg *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsigdat(_fcd filename, intf * rank, intf maxsizes[], VOIDP data, intf * fnlen) { int32 i; intn isndg; intf ret; char *fn; int32 *p, *cmaxsizes; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); /* if DFSDgetdims has not be called call DFSDIsdginfo to */ /* refresh Readsdg */ if (DFSDIrefresh(fn) < 0) return FAIL; ret = DFSDIisndg(&isndg); if (isndg) { p = (int32 *) HDmalloc((size_t) (*rank) * sizeof(int32)); if (p == NULL) return FAIL; cmaxsizes = p; for (i = 1; i <= *rank; i++) { *p = maxsizes[*rank - i]; p++; } ret = DFSDIgetdata(fn, (intn) *rank, cmaxsizes, data, 1); HDfree((VOIDP) cmaxsizes); } else ret = DFSDIgetdata(fn, (intn) *rank, (int32 *) maxsizes, data, 1); /* 1==FORTRAN */ HDfree(fn); return ret; } /*----------------------------------------------------------------------------- * Name: dsipdat * Purpose: Call DFSDIputdata to write SDG to new file * Inputs: filename: name of HDF file * rank: no of dimensions of array data * dimsizes: array containing size of each dimension of array data * data: array containing data values * fnlen: length of string filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIputdata *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsipdat(_fcd filename, intf * rank, intf dimsizes[], VOIDP data, intf * fnlen) { char *fn; int32 i, *cdims, *p; intf ret; /* reverse the dimsizes first */ p = (int32 *) HDmalloc((size_t) (*rank) * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; for (i = 1; i <= *rank; i++) { *p = dimsizes[*rank - i]; p++; } fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); /* 0, 1 specify create mode, called from FORTRAN program */ /* In HDF3.2 .hdf files, data and dimsizes are in C order */ ret = DFSDIputdata(fn, (intn) *rank, cdims, data, 0, 1); HDfree(fn); HDfree((VOIDP) cdims); return (ret); } /*----------------------------------------------------------------------------- * Name: dsiadat * Purpose: Call DFSDIputdata to append SDG to existing file * Inputs: filename: name of HDF file * rank: no of dimensions of array data * dimsizes: array containing size of each dimension of array data * data: array containing data values * fnlen: length of string filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIputdata *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsiadat(_fcd filename, intf * rank, intf dimsizes[], VOIDP data, intf * fnlen) { char *fn; int32 i, *cdims, *p; intf ret; /* reverse the dimsizes first */ p = (int32 *) HDmalloc((size_t) (*rank) * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; for (i = 1; i <= *rank; i++) { *p = dimsizes[*rank - i]; p++; } fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); /* 1, 1 specify create mode, called from FORTRAN program */ /* In HDF3.2 .hdf files, data and dimsizes are in C order */ ret = DFSDIputdata(fn, (intn) *rank, cdims, data, 1, 1); HDfree(fn); HDfree((VOIDP) cdims); return (ret); } /*----------------------------------------------------------------------------- * Name: dsigslc * Purpose: Call DFSDIgetslice to read slice from file * Inputs: filename: name of HDF file * winst: array of size = rank of data, containing start of slice * windims: array of size rank, containing end of slice * data: array for returning slice * ndims: no of dims of array data * dims: dimensions of array data * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIgetslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsigslc(_fcd filename, intf winst[], intf windims[], VOIDP data, intf dims[], intf * fnlen) { char *fn; intf ret; intn rank, i; int32 *cdims, *cwindims, *cwinst, *p, *wp, *wsp; intn isndg; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); /* if DFSDgetdims has not be called call DFSDIsdginfo to */ /* refresh Readsdg */ if (DFSDIrefresh(fn) < 0) return FAIL; ret = DFSDIisndg(&isndg); if (isndg) { ret = DFSDIgetrrank(&rank); p = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; wp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (wp == NULL) return FAIL; cwindims = wp; wsp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (wsp == NULL) return FAIL; cwinst = wsp; for (i = 1; i <= rank; i++) { *p = dims[rank - i]; p++; *wp = windims[rank - i]; wp++; *wsp = winst[rank - i]; wsp++; } ret = DFSDIgetslice(fn, cwinst, cwindims, data, cdims, 1); HDfree((VOIDP) cdims); HDfree((VOIDP) cwindims); HDfree((VOIDP) cwinst); } else ret = DFSDIgetslice(fn, (int32 *) winst, (int32 *) windims, data, (int32 *) dims, 1); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dsisslc * Purpose: Call DFSDstartslice to set up to write slice * Inputs: filename: name of HDF file * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDstartslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsisslc(_fcd filename, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFSDstartslice(fn); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dsirref * Purpose: Call DFSDreadref to set up next ref to read * Inputs: filename: name of HDF file * ref: next ref to read * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDstartslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsirref(_fcd filename, intf * ref, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFSDreadref(fn, (uint16) *ref); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dslref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFANlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndslref(void) { return ((intf)DFSDlastref()); } /*----------------------------------------------------------------------------- * Name: dsinum * Purpose: Return number of SDGs in the file * Inputs: filename: name of file * len: length of Fortran string filename * Returns: number of SDGs on success, -1 on failure with DFerror set * Users: dsnum, dfsdnumber * Invokes: DFSDndataset, HDf2cstring * Method: convert string, call DFSDndatasets *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsinum(_fcd filename, intf * len) { char *cname; intf status; cname = HDf2cstring(filename, (intn) *len); if (!cname) return(-1); status = DFSDndatasets(cname); HDfree(cname); return (status); } /*------------------------------------------------------------------------------ * Name: dsip32s * Purpose: tests if the SDG with the specified ref was written by HDF prior to * version 3.2 * Input: filename: name of HDF file * ref: the ref number of the SDG * ispre32: set to TRUE if the SDG/ref was written by old library; * to FALSE otherwise. * len: length of filename * Retruns: 0 on success, -1 on failure * Users: HDF Fortran programmers *------------------------------------------------------------------------------*/ FRETVAL(intf) ndsip32s(_fcd filename, intf * ref, intf * ispre32, intf * len) { char *cname; intf status; cname = HDf2cstring(filename, (intn) *len); if (!cname) return(-1); status = DFSDpre32sdg(cname, (uint16) *ref, (intn *) ispre32); HDfree(cname); return (status); } /*----------------------------------------------------------------------------- * Name: dfsdgetdatastrs * Purpose: Call DFSDgetdatastrs to get the data attributes * Inputs: label, unit, format, coordsys: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdatastrs *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetdatastrs(_fcd label, _fcd unit, _fcd format, _fcd coordsys) { return (DFSDgetdatastrs((char *) _fcdtocp(label), (char *) _fcdtocp(unit), (char *) _fcdtocp(format), (char *) _fcdtocp(coordsys))); } /*----------------------------------------------------------------------------- * Name: dfsdgetdimstrs * Purpose: Call DFSDgetdimstrs to get attributes of a dimension * Inputs: label, unit, format: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimstrs *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetdimstrs(intf * dim, _fcd label, _fcd unit, _fcd format) { intn isndg; intn rank, cdim; DFSDIisndg(&isndg); if (isndg) { DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; return (DFSDgetdimstrs(cdim, (char *) _fcdtocp(label), (char *) _fcdtocp(unit), (char *) _fcdtocp(format))); } /*----------------------------------------------------------------------------- * Name: dfsdgetdimscale * Purpose: Call DFSDgetdimscale to get scale for a dimension * Inputs: dim: dimension to get attributes for * maxsize: size of scale array * scale: array to return scale in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimscale *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetdimscale(intf * dim, intf * maxsize, VOIDP scale) { intn isndg; intn rank, cdim; DFSDIisndg(&isndg); if (isndg) { DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; return (DFSDgetdimscale(cdim, *maxsize, scale)); } /*----------------------------------------------------------------------------- * Name: dfsdgetrange * Purpose: Call DFSDgetrange to get maximum and minimum data values * Inputs: pmax: float to return maximum in * pmin: float to return minimum in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetrange *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetrange(VOIDP pmax, VOIDP pmin) { return (DFSDgetrange(pmax, pmin)); } /*----------------------------------------------------------------------------- * Name: dfsdsetdims * Purpose: Call DFSDsetdims to set dimensions for subsequent SDGs * Inputs: rank: no of dimensions of SDG * dimsizes: array containing dimensions of SDG * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetdims *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdsetdims(intf * rank, intf dimsizes[]) { int32 i, *cdims, *p; intf ret; p = (int32 *) HDmalloc((size_t) (*rank) * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; for (i = 1; i <= *rank; i++) { *p = dimsizes[*rank - i]; p++; } ret = DFSDsetdims((intn) *rank, cdims); HDfree((VOIDP) cdims); return (ret); } /*----------------------------------------------------------------------------- * Name: dfsdsetdimscale * Purpose: Call DFSDsetdimscale to set scales for subsequent SDGs * Inputs: dim: dimension to set scale for * dimsize: size of array scale * scale: array of scale values * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetdimscale *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdsetdimscale(intf * dim, intf * dimsize, VOIDP scale) { intn rank, cdim; DFSDIgetwrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; return (DFSDsetdimscale(cdim, *dimsize, scale)); } /*----------------------------------------------------------------------------- * Name: dfsdsetrange * Purpose: Call DFSDsetrange to set max and min values for this SDG * Inputs: max, min: max and min data values * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetrange * Remarks: Max and Min are set only for next SDG, reset to NULL after *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdsetrange(VOIDP max, VOIDP min) { return (DFSDsetrange(max, min)); } /*----------------------------------------------------------------------------- * Name: dfsdclear * Purpose: Call DFSDclear to erase values set for subsequent SDGs * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDclear *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdclear(void) { return (DFSDclear()); } /*----------------------------------------------------------------------------- * Name: dfsdsetlengths * Purpose: Call DFSDsetlengths to set max lengths of strings * Inputs: maxlen_label, maxlen_unit, maxlen_format, maxlen_coordsys: max lens * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetlengths *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdsetlengths(intf * maxlen_label, intf * maxlen_unit, intf * maxlen_format, intf * maxlen_coordsys) { return (DFSDsetlengths((intn) *maxlen_label, (intn) *maxlen_unit, (intn) *maxlen_format, (intn) *maxlen_coordsys)); } /*----------------------------------------------------------------------------- * Name: dfsdgetdimlen * Purpose: Call DFSDgetdimlen to get actual lengths of strings * Inputs: dim: dimension to get lengths for * llabel, lunit, lformat: integers to return lengths of each string in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetdimlen(intf * dim, intf * llabel, intf * lunit, intf * lformat) { intn isndg; intn rank, cdim; intf ret; intn cllabel, clunit, clformat; /* convert between intf and intn */ ret = DFSDIisndg(&isndg); if (isndg) { ret = DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; ret = (intf) DFSDgetdimlen(cdim, &cllabel, &clunit, &clformat); if (ret != FAIL) { /* if ok, copy the values over */ *llabel = cllabel; *lunit = clunit; *lformat = clformat; } /* end if */ return (ret); } /*----------------------------------------------------------------------------- * Name: dfsdgetdatalen * Purpose: Call DFSDgetdatalen to get actual lengths of strings * Inputs: llabel, lunit, lformat, lcoordsys: integers to return lengths in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdatalen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetdatalen(intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys) { intf ret; intn cllabel, clunit, clformat, clcoordsys; ret = (intf) DFSDgetdatalen(&cllabel, &clunit, &clformat, &clcoordsys); if (ret != FAIL) { *llabel = cllabel; *lunit = clunit; *lformat = clformat; *lcoordsys = clcoordsys; } /* end if */ return (ret); } /*----------------------------------------------------------------------------- * Name: dfsdrestart * Purpose: Call DFSDrestart to get SDGs again from the beginning * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDrestart *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdrestart(void) { return (DFSDrestart()); } /*----------------------------------------------------------------------------- * Name: dfsdputslice * Purpose: Call DFSDIputslice to write slice to file * Inputs: winst: array of size = rank of data, containing start of slice * windims: array of size rank, containing end of slice * data: array containing slice * dims: dimensions of array data * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIputslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdputslice(intf windims[], VOIDP data, intf dims[]) { intn rank, i; intf ret; int32 *cdims, *cwindims, *p, *wp; ret = DFSDIgetwrank(&rank); wp = (int32 *) HDmalloc((size_t) (rank) * sizeof(int32)); if (wp == NULL) return FAIL; cwindims = wp; p = (int32 *) HDmalloc((size_t) (rank) * sizeof(int32)); if (p == NULL) return FAIL; cdims = p; for (i = 1; i <= rank; i++) { /* reverse dims & windims */ *p = dims[rank - i]; p++; *wp = windims[rank - i]; wp++; } ret = DFSDIputslice(cwindims, data, cdims, 1); HDfree((VOIDP) cdims); HDfree((VOIDP) cwindims); return (ret); } /*----------------------------------------------------------------------------- * Name: dfsdendslice * Purpose: Call DFSDendslice to finish slice writes and write out SDG * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIendslice *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdendslice(void) { return (DFSDIendslice(1)); } /*----------------------------------------------------------------------------- * Name: dfsdsetnt * Purpose: Call DFSDsetNT to set number type for subsequent calls to * DFSDputdata, DFSDadddata, DFSDsetdimscales. * Inputs: numbertype * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Method: Invokes DFSDsetNT * Remarks: 0 specifies default value *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdsetnt(intf * numbertype) { return (DFSDsetNT(*numbertype)); } /*----------------------------------------------------------------------------- * Name: dfsdgetnt * Purpose: Call DFSDgetNT to get number type for subsequent calls * Inputs: pnumbertype * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran programmers * Method: Invokes DFSDgetNT * Remarks: 0 specifies default value *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdgetnt(intf * pnumbertype) { return (DFSDgetNT((int32 *) pnumbertype)); } /*----------------------------------------------------------------------------- * Name: dfsdlastref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFANlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfsdlastref(void) { return ((intf)DFSDlastref()); } /*----------------------------------------------------------------------------- * Name: dsisdis * Purpose: For the given dimension, set label, unit, format * This routine needs to be called once for each dimension whose * values the user wants to set. * Inputs: dim: the dimension that this info applies to * label: label to be used to describe this dimension * unit: units for dimension * format: format to be used in displaying * llabel, lunit, lformat: lengths of corresponding strings * Globals: * Returns: 0 on success, FAIL on failure with error set * Users: HDF users, utilities, other routines * Invokes: DFSDIsetdimstr * Method: *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsisdis(intf * dim, _fcd flabel, _fcd funit, _fcd fformat, intf * llabel, intf * lunit, intf * lformat) { char *label = HDf2cstring(flabel, (intn) *llabel); char *unit = HDf2cstring(funit, (intn) *lunit); char *format = HDf2cstring(fformat, (intn) *lformat); intf status; intn rank, cdim; if (!(label && unit && format)) { if (label) HDfree(label); if (unit) HDfree(unit); if (format) HDfree(format); return FAIL; } status = DFSDIgetwrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; status = DFSDIsetdimstrs(cdim, label, unit, format); HDfree(label); HDfree(unit); HDfree(format); return status; } /*----------------------------------------------------------------------------- * Name: dsigdis * Purpose: Call DFSDgetdimstrs to get attributes of a dimension * Inputs: label, unit, format: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdimstrs *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsigdis(intf * dim, _fcd label, _fcd unit, _fcd format, intf * llabel, intf * lunit, intf * lformat) { char *ilabel, *iunit, *iformat; intn rank, cdim; intn isndg, status; DFSDIisndg(&isndg); if (isndg) { DFSDIgetrrank(&rank); if (rank < *dim) return FAIL; cdim = rank - (intn) *dim + 1; } else cdim = (intn) *dim; iunit = ilabel = iformat = NULL; if (*llabel) ilabel = (char *) HDmalloc((size_t) *llabel + 1); if (*lunit) iunit = (char *) HDmalloc((size_t) *lunit + 1); if (*lformat) iformat = (char *) HDmalloc((size_t) *lformat + 1); status = DFSDgetdimstrs(cdim, ilabel, iunit, iformat); HDpackFstring(ilabel, _fcdtocp(label), (intn) *llabel); HDpackFstring(iunit, _fcdtocp(unit), (intn) *lunit); HDpackFstring(iformat, _fcdtocp(format), (intn) *lformat); if (ilabel) HDfree(ilabel); if (iunit) HDfree(iunit); if (iformat) HDfree(iformat); return status; } /*----------------------------------------------------------------------------- * Name: dsisdas * Purpose: Set label, unit and format for displaying subsequent SDGs * Inputs: label: label to be used to describe data * unit: unit corresponding to data values * format: format to be used in displaying data values * coordsys: type of coordinate system * Globals: Writesdg, Ref * Returns: 0 on success, FAIL on failure with error set * Users: HDF Fortran stubs * Invokes: DFSDIsetdatastrs * Method: Stores values in global structure Writesdg * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsisdas(_fcd flabel, _fcd funit, _fcd fformat, _fcd fcoordsys, intf * isfortran, intf * llabel, intf * lunit, intf * lformat, intf * lcoordsys) { char *label = HDf2cstring(flabel, (intn) *llabel); char *unit = HDf2cstring(funit, (intn) *lunit); char *format = HDf2cstring(fformat, (intn) *lformat); char *coordsys = HDf2cstring(fcoordsys, (intn) *lcoordsys); intf status; if (!(label && unit && format)) { if (label) HDfree(label); if (unit) HDfree(unit); if (format) HDfree(format); return FAIL; } /* shut compiler up */ isfortran = isfortran; status = DFSDIsetdatastrs(label, unit, format, coordsys); HDfree(label); HDfree(unit); HDfree(format); HDfree(coordsys); return status; } /* ndsisdas */ /*----------------------------------------------------------------------------- * Name: dsigdas * Purpose: Call DFSDgetdatastrs to get the data attributes * Inputs: label, unit, format, coordsys: strings to return attributes in * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetdatastrs *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsigdas(_fcd label, _fcd unit, _fcd format, _fcd coordsys, intf * llabel, intf * lunit, intf * lformat, intf * lcoord) { char *ilabel, *iunit, *iformat, *icoord; intf status; iunit = ilabel = iformat = icoord = NULL; if (*llabel) ilabel = (char *) HDmalloc((uint32) *llabel + 1); if (*lunit) iunit = (char *) HDmalloc((uint32) *lunit + 1); if (*lformat) iformat = (char *) HDmalloc((uint32) *lformat + 1); if (*lcoord) icoord = (char *) HDmalloc((uint32) *lcoord + 1); status = DFSDgetdatastrs(ilabel, iunit, iformat, icoord); HDpackFstring(ilabel, _fcdtocp(label), (intn) *llabel); HDpackFstring(iunit, _fcdtocp(unit), (intn) *lunit); HDpackFstring(iformat, _fcdtocp(format), (intn) *lformat); HDpackFstring(icoord, _fcdtocp(coordsys), (intn) *lcoord); if (ilabel) HDfree(ilabel); if (iunit) HDfree(iunit); if (iformat) HDfree(iformat); if (icoord) HDfree(icoord); return status; } /*----------------------------------------------------------------------------- * Name: dsscal * Purpose: Call DFSDsetcal to set calibration data * Inputs: cal, cal_err : calibration and error * ioff, ioff_err : offset and error * cal_type : after calibration NT * Returns: 0 on success, -1 on failure * Users: HDF Fortran programmers * Invokes: DFSDgetdatastrs *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsscal(float64 *cal, float64 *cal_err, float64 *ioff, float64 *ioff_err, intf * cal_type) { intf ret; float64 dcal=0.0; float64 dcal_err=0.0; float64 dioff=0.0; float64 dioff_err=0.0; HDmemcpy(&dcal, cal, sizeof(float64)); HDmemcpy(&dcal_err, cal_err, sizeof(float64)); HDmemcpy(&dioff, ioff, sizeof(float64)); HDmemcpy(&dioff_err, ioff_err, sizeof(float64)); ret=(intf)DFSDsetcal((float64)dcal, (float64)dcal_err, (float64)dioff, (float64)dioff_err, (int32)*cal_type); return ret; } /* ndsscal */ /*----------------------------------------------------------------------------- * Name: dsgcal * Purpose: Call DFSDgetcal to get calibration data * Inputs: cal, cal_err : calibration and error * ioff, ioff_err : offset and error * cal_type : after calibration NT * Returns: 0 on success, -1 on failure * Users: HDF Fortran programmers * Invokes: DFSDgetcal *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgcal(float64 *cal, float64 *cal_err, float64 *ioff, float64 *ioff_err, intf * cal_type) { intf ret; float64 dcal ; float64 dcal_err ; float64 dioff ; float64 dioff_err ; ret =(intf) DFSDgetcal(&dcal, &dcal_err, &dioff, &dioff_err, (int32 *) cal_type); HDmemcpy(cal, &dcal, sizeof(float64)); HDmemcpy(cal_err, &dcal_err, sizeof(float64)); HDmemcpy(ioff, &dioff, sizeof(float64)); HDmemcpy(ioff_err, &dioff_err, sizeof(float64)); return ret; } /* ndsgcal */ /*----------------------------------------------------------------------------- * Name: dsiwref * Purpose: Call DFSDwriteref to set up next ref to write * Inputs: filename: name of HDF file * fnlen: length of filename * ref: next ref to read * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDwriteref *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsiwref(_fcd filename, intf * fnlen, intf * ref) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFSDwriteref(fn, (uint16) *ref); HDfree(fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dfsdsfill * Purpose: Call DFSDsetfillvalue to set fill value for SDS * Inputs: fill_value: fill value for SDS * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDsetfillvalue *---------------------------------------------------------------------------*/ FRETVAL(intf) ndssfill(VOIDP fill_value) { return DFSDsetfillvalue(fill_value); } /*----------------------------------------------------------------------------- * Name: dsgfill * Purpose: Call DFSDgetfillvalue to get fill value for SDS * Inputs: fill_value: fill value of SDS * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDgetfillvalue *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsgfill(VOIDP fill_value) { return DFSDgetfillvalue(fill_value); } /*----------------------------------------------------------------------------- * Name: dsisslab * Purpose: Set up slab writes to SDS * Inputs: filename: file to which this applies * fnlen: file name length * Returns: 0 on success, FAIL on failure * Users: HDF programmers, other routines and utilities * Invokes: DFSDstartslab * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsisslab(_fcd filename, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (fn == NULL) return FAIL; ret = DFSDstartslab(fn); HDfree(fn); return ret; } /*----------------------------------------------------------------------------- * Name: dswslab * Purpose: Call DFSDwriteslab to write slab to file * Inputs: start: array of size = rank of data, containing start of slab * stride: array for subsampling * count: array of size rank, containing size of slab * data: array of data to be written * Returns: 0 on success, -1 on failure with error set * Users: HDF Fortran programmers * Invokes: DFSDIgetwrank, HDmalloc, HDfree, HDf2cstring, DFSDwriteslab *---------------------------------------------------------------------------*/ FRETVAL(intf) ndswslab(intf start[], intf stride[], intf count[], VOIDP data) { int32 *lstart, *lstride, *lcount, *aptr, *bptr, *cptr; intn i, rank; intf ret; /* ** Lets reverse the order for the arrays since we ** are going from fortran to C */ ret = DFSDIgetwrank(&rank); if (ret == FAIL) return FAIL; aptr = (int32 *) HDmalloc((size_t) (3 * rank) * sizeof(int32)); if (aptr == NULL) return FAIL; lstart = aptr; lstride = bptr = aptr + rank; lcount = cptr = bptr + rank; for (i = 1; i <= rank; i++) { /* reverse start, stride & count */ *aptr = start[rank - i]; aptr++; *bptr = stride[rank - i]; bptr++; *cptr = count[rank - i]; cptr++; } ret = DFSDwriteslab(lstart, lstride, lcount, data); HDfree((VOIDP) lstart); return ret; } /*----------------------------------------------------------------------------- * Name: dseslab * Purpose: End slab writes to SDS, Write out NDG * Inputs: None * Returns: 0 on success, FAIL on failure * Users: HDF programmers, other routines and utilities * Invokes: DFSDendslab * Remarks: *---------------------------------------------------------------------------*/ FRETVAL(intf) ndseslab(void) { return DFSDendslab(); } /*----------------------------------------------------------------------------- * Name: dsirslab * Purpose: Call DFSDreadslab to read slab from SDS * Inputs: filename: name of HDF file * start: array of size = rank of data, containing start of slab * slab_size: array of size rank, containing end of slab * stride: sub sampling stride. * buffer: array for returning slab * buffer_size: dimensions of array data * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDreadslab *---------------------------------------------------------------------------*/ FRETVAL(intf) ndsirslab(_fcd filename, intf * fnlen, intf start[], intf slab_size[], intf stride[], VOIDP buffer, intf buffer_size[]) { char *fn; intf ret; intn rank, i; int32 *lbuffer_size, *lslab_size, *lstart, *lstride; int32 *p, *wp, *wsp, *sp; intn isndg; /* Convert "filename" to fortran string */ fn = HDf2cstring(filename, (intn) *fnlen); if (fn == NULL) return FAIL; /* If DFSDgetdims has not be called call DFSDIsdginfo to refresh Readsdg */ if (DFSDIrefresh(fn) < 0) return FAIL; ret = DFSDIisndg(&isndg); if (isndg) { ret = DFSDIgetrrank(&rank); p = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (p == NULL) return FAIL; lbuffer_size = p; wp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (wp == NULL) return FAIL; lslab_size = wp; wsp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (wsp == NULL) return FAIL; lstart = wsp; sp = (int32 *) HDmalloc((size_t) rank * sizeof(int32)); if (sp == NULL) return FAIL; lstride = sp; for (i = 1; i <= rank; i++) { *p = buffer_size[rank - i]; p++; *wp = slab_size[rank - i]; wp++; *wsp = start[rank - i]; wsp++; *sp = stride[rank - i]; sp++; } ret = DFSDreadslab(fn, lstart, lslab_size, lstride, buffer, lbuffer_size); HDfree((VOIDP) lstart); HDfree((VOIDP) lslab_size); HDfree((VOIDP) lbuffer_size); HDfree((VOIDP) lstride); } else ret = DFSDreadslab(fn, (int32 *) start, (int32 *) slab_size, (int32 *) stride, buffer, (int32 *) buffer_size); HDfree(fn); return (ret); } libhdf4-4.2.10/HDF_ALT/hdf/src/dfp.c0000644000000000000000000004160012421456623013354 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfp.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfp.c * Purpose: read and write palettes * Invokes: df.c * Contents: * DFPgetpal : retrieve next palette * DFPputpal : write palette to file * DFPaddpal : add palette to file * DFPnpals : number of palettes in HDF file * DFPreadref : get palette with this reference number next * DFPwriteref : put palette with this reference number next * DFPrestart : forget info about last file accessed - restart from beginning * DFPlastref : return reference number of last element read or written * DFPIopen : open/reopen file *---------------------------------------------------------------------------*/ #include "hdf.h" /* remember that '0' is invalid ref number */ PRIVATE uint16 Readref = 0; PRIVATE uint16 Writeref = 0; PRIVATE uint16 Refset = 0; /* Ref of palette to get next */ PRIVATE uint16 Lastref = 0; /* Last ref read/written */ PRIVATE char Lastfile[DF_MAXFNLEN] = ""; /* last file opened */ PRIVATE int32 DFPIopen (const char * filename, intn acc_mode); /*-------------------------------------------------------------------------- NAME DFPgetpal -- get next palette from file USAGE intn DFPgetpal(filename,palette) char *filename; IN: name of HDF file void * palette; OUT: ptr to the buffer to store the palette in RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Gets the next palette from the file specified. GLOBAL VARIABLES Lastref, Refset COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPgetpal(const char *filename, void * palette) { CONSTR(FUNC, "DFPgetpal"); int32 file_id; int32 aid; int32 length; intn ret_value = SUCCEED; HEclear(); if (!palette) HGOTO_ERROR(DFE_ARGS, FAIL); if ((file_id = DFPIopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); if (Refset) { aid = Hstartread(file_id, DFTAG_IP8, Refset); if (aid == FAIL) aid = Hstartread(file_id, DFTAG_LUT, Refset); } /* end if */ else if (Readref) { aid = Hstartread(file_id, DFTAG_IP8, Readref); if (aid == FAIL) aid = Hstartread(file_id, DFTAG_LUT, Readref); if (aid != FAIL && (Hnextread(aid, DFTAG_IP8, DFREF_WILDCARD, DF_CURRENT) == FAIL)) { if (Hnextread(aid, DFTAG_LUT, DFREF_WILDCARD, DF_CURRENT) == FAIL) { Hendaccess(aid); aid = FAIL; } /* end if */ } /* end if */ } /* end if */ else { aid = Hstartread(file_id, DFTAG_IP8, DFREF_WILDCARD); if (aid == FAIL) aid = Hstartread(file_id, DFTAG_LUT, DFREF_WILDCARD); } /* end else */ Refset = 0; /* on error, close file and return -1 */ if (aid == FAIL) { ret_value = (HDerr(file_id)); goto done; } if (Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, &Readref, &length, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL) == FAIL) { Hendaccess(aid); ret_value = HDerr(file_id); goto done; } /* end if */ /* read palette */ if (Hread(aid, length, (uint8 *) palette) == FAIL) { Hendaccess(aid); ret_value = (HDerr(file_id)); goto done; } /* end if */ Hendaccess(aid); Lastref = Readref; ret_value = Hclose(file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFPgetpal() */ /*-------------------------------------------------------------------------- NAME DFPputpal -- Write palette to file USAGE intn DFPputpal(filename,palette,overwrite,filemode) char *filename; IN: name of HDF file void * palette; IN: ptr to the buffer retrieve the palette from intn overwrite; IN: whether to (1) overwrite last palette written, or (0) write it as a fresh palette char *filemode; IN: if "a" append palette to file, "w" create new file RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Stores a palette in an HDF file, with options for creating new file or appending, and overwriting last palette written. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS To overwrite, the filename must be the same as for the previous call. EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPputpal(const char *filename, const void * palette, intn overwrite, const char *filemode) { CONSTR(FUNC, "DFPputpal"); int32 file_id; intn ret_value = SUCCEED; HEclear(); if (!palette) HGOTO_ERROR(DFE_ARGS, FAIL); if (overwrite && HDstrcmp(filename, Lastfile)) HGOTO_ERROR(DFE_BADCALL, FAIL); file_id = DFPIopen(filename, (*filemode == 'w') ? DFACC_CREATE : DFACC_WRITE); if (file_id == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* if we want to overwrite, Lastref is the ref to write. If not, if Writeref is set, we use that ref. If not we get a fresh ref. The ref to write is placed in Lastref */ if (!overwrite) Lastref = (uint16) (Writeref ? Writeref : Htagnewref(file_id,DFTAG_IP8)); if (Lastref == 0) HGOTO_ERROR(DFE_NOREF, FAIL); Writeref = 0; /* don't know ref to write after this */ /* write out palette */ if (Hputelement(file_id, DFTAG_IP8, Lastref, (const uint8 *) palette, (int32) 768) < 0) { ret_value = (HDerr(file_id)); goto done; } /* Check for the tag/ref before creating it willy-nilly */ if(Hexist(file_id,DFTAG_LUT,Lastref)==FAIL) Hdupdd(file_id, DFTAG_LUT, Lastref, DFTAG_IP8, Lastref); ret_value = (Hclose(file_id)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFPputpal() */ /*-------------------------------------------------------------------------- NAME DFPaddpal -- Append palette to file USAGE intn DFPaddpal(filename,palette) char *filename; IN: name of HDF file void * palette; IN: ptr to the buffer retrieve the palette from RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Appends a palette in an HDF file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPaddpal(const char *filename, const void * palette) { intn ret_value; ret_value = (DFPputpal(filename, palette, 0, "a")); return ret_value; } /* end DFPaddpal() */ /*-------------------------------------------------------------------------- NAME DFPnpals -- determine # of palettes in a file USAGE intn DFPnpals(filename) char *filename; IN: name of HDF file RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Determines the number of unique palettes in a file. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPnpals(const char *filename) { CONSTR(FUNC, "DFPnpals"); int32 file_id; intn curr_pal; /* current palette count */ int32 nip8, nlut; /* number of IP8s & number of LUTs */ intn npals; /* total number of palettes */ uint16 find_tag, find_ref; /* storage for tag/ref pairs found */ int32 find_off, find_len; /* storage for offset/lengths of tag/refs found */ int32 *pal_off; /* storage for an array of palette offsets */ intn i, j; /* local counting variable */ intn ret_value = SUCCEED; HEclear(); /* should use reopen if same file as last time - more efficient */ if ((file_id = DFPIopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* count number of IPs */ if ((nip8 = Hnumber(file_id, DFTAG_IP8)) == FAIL) { ret_value = (HDerr(file_id)); goto done; } /* count number of LUTs */ if ((nlut = Hnumber(file_id, DFTAG_LUT)) == FAIL) { ret_value = (HDerr(file_id)); goto done; } npals = (intn) (nip8 + nlut); /* if no palettes just return zero and get out */ if (npals == 0) { if (Hclose(file_id) == FAIL) { ret_value = FAIL; goto done; } ret_value = npals; goto done; } /* Get space to store the palette offsets */ if ((pal_off = (int32 *) HDmalloc(npals * sizeof(int32))) == NULL) HGOTO_ERROR(DFE_NOSPACE, FAIL); /* go through the IP8s */ curr_pal = 0; find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_IP8, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { pal_off[curr_pal] = find_off; /* store offset */ curr_pal++; } /* end while */ /* go through the LUTs */ find_tag = find_ref = 0; while (Hfind(file_id, DFTAG_LUT, DFREF_WILDCARD, &find_tag, &find_ref, &find_off, &find_len, DF_FORWARD) == SUCCEED) { pal_off[curr_pal] = find_off; /* store offset */ curr_pal++; } /* end while */ npals = curr_pal; /* reset the number of palettes we really have */ for (i = 1; i < curr_pal; i++) { /* go through the palettes looking for duplicates */ if(pal_off[i]!=(-1)) for (j = 0; j < i; j++) { if (pal_off[i] == pal_off[j]) { npals--; /* if duplicate found, decrement the number of palettes */ pal_off[j]=(-1); /* mark as used, so we don't count it too... */ } /* end if */ } /* end for */ } /* end for */ HDfree(pal_off); /* free offsets */ if (Hclose(file_id) == FAIL) HGOTO_ERROR(DFE_CANTCLOSE, FAIL); ret_value = npals; done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFPnpals() */ /*-------------------------------------------------------------------------- NAME DFPreadref -- set ref # of palette to read next USAGE intn DFPreadref(filename,ref) char *filename; IN: name of HDF file uint16 ref; IN: ref # of palette to read next RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the ref # of the next palette to read from a file GLOBAL VARIABLES Refset COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPreadref(const char *filename, uint16 ref) { CONSTR(FUNC, "DFPreadref"); int32 file_id; int32 aid; intn ret_value = SUCCEED; HEclear(); if ((file_id = DFPIopen(filename, DFACC_READ)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); aid = Hstartread(file_id, DFTAG_IP8, ref); if (aid == FAIL) { aid = Hstartread(file_id, DFTAG_LUT, ref); if (aid == FAIL) { ret_value = (HDerr(file_id)); goto done; } } /* end if */ Hendaccess(aid); Refset = ref; ret_value = (Hclose(file_id)); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFPreadref() */ /*-------------------------------------------------------------------------- NAME DFPwriteref -- set ref # of palette to write next USAGE intn DFPwriteref(filename,ref) char *filename; IN: name of HDF file uint16 ref; IN: ref # of palette to write next RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Sets the ref # of the next palette to write to a file. The filename is ignored -- this is probably a bug. No matter what file the next palette is written to, it will have the reference number ref. GLOBAL VARIABLES Writeref --------------------------------------------------------------------------*/ intn DFPwriteref(const char *filename, uint16 ref) { intn ret_value = SUCCEED; /* shut compiler up */ filename = filename; Writeref = ref; return ret_value; } /* end DFPwriteref() */ /*-------------------------------------------------------------------------- NAME DFPrestart -- restart reading/writing palettes from the start of a file USAGE intn DFPrestart(void) RETURNS SUCCEED on success, FAIL on failure. DESCRIPTION Restart reading/writing palettes to a file. GLOBAL VARIABLES Lastfile COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ intn DFPrestart(void) { intn ret_value = SUCCEED; Lastfile[0] = '\0'; return ret_value; } /* end DFPrestart() */ /*-------------------------------------------------------------------------- NAME DFPlastref -- returns last ref # read/written USAGE uint16 DFPlastref(void) RETURNS ref # on on success, 0 on failure. DESCRIPTION Return the last ref # read/written from a file. GLOBAL VARIABLES Lastref COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ uint16 DFPlastref(void) { uint16 ret_value; ret_value = Lastref; return ret_value; } /* end DFPlastref() */ /**************************************************************************/ /*----------------------- Internal routines ------------------------------*/ /**************************************************************************/ /*----------------------------------------------------------------------------- * Name: DFPIopen * Purpose: open or reopen a file * Inputs: filename: name of file to open * acc_mode : access mode * Returns: file pointer on success, NULL on failure with DFerror set * Users: HDF systems programmers, other DFP routines * Invokes: DFopen * Remarks: This is a hook for someday providing more efficient ways to * reopen a file, to avoid re-reading all the headers *---------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------- NAME DFPIopen -- open/reopen file for palette interface USAGE int32 DFPIopen(filename,acc_mode) char *filename; IN: name of HDF file intn acc_mode; IN: type of access to open file with RETURNS HDF file handle on success, FAIL on failure. DESCRIPTION Open/reopen a file for the DFP interface to work with. GLOBAL VARIABLES Refset, Readref, Lastfile COMMENTS, BUGS, ASSUMPTIONS This is a hook for someday providing more efficient ways to reopen a file, to avoid re-reading all the headers EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ PRIVATE int32 DFPIopen(const char *filename, intn acc_mode) { CONSTR(FUNC, "DFPIopen"); int32 file_id; int32 ret_value = SUCCEED; /* use reopen if same file as last time - more efficient */ if (HDstrncmp(Lastfile, filename, DF_MAXFNLEN) || (acc_mode == DFACC_CREATE)) { /* treat create as different file */ if ((file_id = Hopen(filename, acc_mode, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); Refset = 0; /* no ref to get set for this file */ Readref = 0; } /* end if */ else if ((file_id = Hopen(filename, acc_mode, 0)) == FAIL) HGOTO_ERROR(DFE_BADOPEN, FAIL); /* remember filename, so reopen may be used next time if same file */ HDstrncpy(Lastfile, filename, DF_MAXFNLEN); ret_value = (file_id); done: if(ret_value == FAIL) { /* Error condition cleanup */ } /* end if */ /* Normal function cleanup */ return ret_value; } /* end DFPIopen() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfimcomp.c0000644000000000000000000011766112421456623014414 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: dfimcomp.c 6043 2014-01-21 21:09:03Z acheng $ */ /************************************************************************/ /* Module Name : imcomp */ /* Exports : DFCimcomp(), DFCunimcomp() */ /* Purpose : Compresses color images */ /* Author : Eng-Kiat Koh */ /* Date : June 30th, 1988 */ /* Functions : DFCimcomp(), compress(), init_global(), cnt_color() */ /* set_palette(), fillin_color(), map(), nearest_color() */ /* DFCunimcomp(), sqr() */ /************************************************************************/ #include "hdf.h" #define PALSIZE 256 #define BIT8 0 #define BIT24 1 #define MAXCOLOR 32768 #ifndef NULL # define NULL 0 #endif #define RED 0 #define GREEN 1 #define BLUE 2 #define EPSILON 0.5 #define LO 1 #define HI 0 struct rgb { uint8 c[3]; }; struct box { float32 bnd[3][2]; int *pts; int nmbr_pts; int nmbr_distinct; struct box *left; struct box *right; }; static uint8 *new_pal; /* pointer to new palette */ static int *hist = (int *) NULL; /* histogram for distinct colors */ static struct box *frontier = (struct box *) NULL; /* pointer to the */ /* list of boxes */ static struct rgb *distinct_pt = (struct rgb *) NULL; /* contains all */ /* distinct rgb points */ static struct rgb *color_pt = (struct rgb *) NULL; /*contains the hi-lo */ /*colors for each block */ static uint8 *image; /* contains the compressed image */ static int trans[MAXCOLOR]; /* color translation table */ PRIVATE VOID compress(unsigned char raster[], int block); PRIVATE VOID init_global(int32 xdim, int32 ydim, VOIDP out, VOIDP out_pal); PRIVATE int cnt_color(int blocks); PRIVATE VOID set_palette(int blocks); PRIVATE VOID fillin_color(int blocks); PRIVATE int indx(unsigned char r, unsigned char g, unsigned char b); PRIVATE VOID map(int blocks); PRIVATE int nearest_color(uint8 r, uint8 g, uint8 b); PRIVATE uint32 sqr(int16 x); PRIVATE VOID sel_palette(int blocks, int distinct, struct rgb *my_color_pt); PRIVATE VOID init(int blocks, int distinct, struct rgb *my_color_pt); PRIVATE VOID sort(int l, int r, int dim, int rank[]); PRIVATE int partition(int l, int r, int dim, int rank[]); PRIVATE struct box *find_box(void); PRIVATE VOID split_box(struct box *ptr); PRIVATE VOID assign_color(void); PRIVATE int select_dim(struct box *ptr); PRIVATE float find_med(struct box *ptr, int dim); PRIVATE VOID classify(struct box *ptr, struct box *child); PRIVATE int next_pt(int dim, int i, int rank[], int distinct); /************************************************************************/ /* Function: DFCIimcomp */ /* Purpose : Performs Imcomp Compression */ /* Parameters : */ /* xdim, ydim - dimensions of image */ /* IT IS ASSUMED THAT THE DIMENSIONS ARE A MULTIPLE OF 4 */ /* in, out - input image array and output image buffer size of in */ /* is xdim*ydim bytes for 8 bit per pixel mode. It is 3 */ /* times that for 24 bits per pixel mode. The output */ /* buffer is always (xdim*ydim)/4. */ /* in_pal - input palette. Consist of rgb triples unlike seq-type */ /* palette. This is a NULL pointer if operating at the */ /* 24 bit per pixel mode. */ /* out_pal - output palette. Consist of PALSIZE color entries. */ /* each entry is an rgb triple. */ /* mode - Either BIT8 or BIT24 */ /* Returns : none */ /* Called by : External routines */ /* Calls : init_global(), compress(), cnt_color(), set_palette(), */ /* sel_palette(), map() */ /************************************************************************/ VOID DFCIimcomp(int32 xdim, int32 ydim, const uint8 *in, uint8 out[], uint8 in_pal[], uint8 out_pal[], int mode) { unsigned char raster[48]; int blocks, nmbr; int32 i, j, k, l, x, y; init_global(xdim, ydim, (VOIDP) out, (VOIDP) out_pal); /* compress pixel blocks */ blocks = 0; for (i = 0; i < (ydim / 4); i++) for (j = 0; j < (xdim / 4); j++) { switch (mode) { case BIT8: /* 8 bit per pixel format */ k = 0; for (y = (i * 4); y < (i * 4 + 4); y++) for (x = (j * 4); x < (j * 4 + 4); x++) { l = y * xdim + x; raster[k++] = (unsigned char) in_pal[3 * (unsigned char) in[l]]; raster[k++] = (unsigned char) in_pal[3 * (unsigned char) in[l] + 1]; raster[k++] = (unsigned char) in_pal[3 * (unsigned char) in[l] + 2]; } /* end of for x */ compress(raster, blocks); break; case BIT24: /* 24 bit per pixel format */ k = 0; for (y = (i * 4); y < (i * 4 + 4); y++) for (x = (j * 4); x < (j * 4 + 4); x++) { l = 3 * (y * xdim + x); raster[k++] = (unsigned char) in[l]; raster[k++] = (unsigned char) in[l + 1]; raster[k++] = (unsigned char) in[l + 2]; } /* end of for x */ compress(raster, blocks); break; default: /* unsupported format */ break; } /* end of switch */ blocks++; } /* end of for j */ /* set palette */ nmbr = cnt_color(blocks); /* printf("Number of colors %d \n", nmbr); */ if (nmbr <= PALSIZE) set_palette(blocks); else { sel_palette(blocks, nmbr, color_pt); map(blocks); } fillin_color(blocks); if (color_pt) { HDfree((VOIDP) color_pt); color_pt = NULL; } /* end if */ } /* end of DFCIimcomp */ /************************************************************************/ /* Function : compress */ /* Purpose : Given a block of 16 pixels, sets up a 16 bit bitmap */ /* and assigns a lo and hi color for the block. For block */ /* i, hi color is stored in color_pt[2i] and lo in */ /* color_pt[2i+1]. Each color is then reduced to 15 bits */ /* by truncating the lower order 3 bits of each component */ /* Parameter : */ /* raster - contains the 16 pixels of a block. Each pixel is 3 */ /* bytes, 1 byte for each color component */ /* block - pixel block number */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID compress(unsigned char raster[], int block) { float32 y[16], y_av; int i, j, k, l; uint8 bit; int high, hi, lo; int c_hi[3], c_lo[3]; /* calculate luminance */ y_av = (float32) 0.0; for (i = 0; i < 16; i++) { j = 3 * i; y[i] = (float32) 0.3 *(float32) raster[j] + (float32) 0.59 *(float32) raster[j + 1] + (float32) 0.11 *(float32) raster[j + 2]; /* printf("compress: y[%d] is %f\n",i,y[i]); */ y_av = y_av + y[i]; } y_av /= (float32) 16.0; /* printf("y_av is %f\n",y_av); */ /* initialize c_hi and c_lo */ for (i = RED; i <= BLUE; i++) { c_hi[i] = 0; c_lo[i] = 0; } /* build bit map */ k = 4 * block; high = 0; hi = 2 * block; lo = hi + 1; for (i = 0; i < 2; i++) { bit = 128; for (j = (i * 8); j < (i * 8 + 8); j++) { if (y[j] > y_av) { image[k] |= bit; high++; for (l = RED; l <= BLUE; l++) c_hi[l] = c_hi[l] + (int) raster[3 * j + l]; } else { for (l = RED; l <= BLUE; l++) c_lo[l] = c_lo[l] + (int) raster[3 * j + l]; } /* end of if */ bit = (uint8)(bit>>1); } /* end of for j */ k++; } /* end of for i */ /* calculate hi lo color */ for (i = RED; i <= BLUE; i++) { if (high != 0) color_pt[hi].c[i] = (uint8) ((float) c_hi[i] / (float) high); if (high != 16) color_pt[lo].c[i] = (uint8) ((float) c_lo[i] / (float) (16 - high)); color_pt[hi].c[i] = (uint8)(color_pt[hi].c[i] >> 3); color_pt[lo].c[i] = (uint8)(color_pt[lo].c[i] >> 3); } } /* end of compress */ /************************************************************************/ /* Function : init_global */ /* Purpose : Allocates memory for global variables */ /* Parameter : */ /* xdim, ydim - x and y dimension of image */ /* out - pointer to output buffer */ /* out_pal - pointer to output palette */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID init_global(int32 xdim, int32 ydim, VOIDP out, VOIDP out_pal) { int32 i, j; /* allocate memory */ image = (unsigned char *) out; new_pal = (unsigned char *) out_pal; if (color_pt) HDfree((VOIDP) color_pt); color_pt = (struct rgb *) HDmalloc((unsigned) ((xdim * ydim) / 8) * sizeof(struct rgb)); if (image == NULL || color_pt == NULL || new_pal == NULL) { return; /* punt! */ } /* initialize */ for (i = 0; i < (xdim * ydim / 4); i++) image[i] = 0; for (i = 0; i < (xdim * ydim / 8); i++) for (j = RED; j <= BLUE; j++) color_pt[i].c[j] = 0; for (i = 0; i < MAXCOLOR; i++) trans[i] = -1; } /* end of init_global */ /************************************************************************/ /* Function : cnt_color */ /* Purpose : Counts the number of distinct colors compressd image */ /* Parameter : */ /* blocks - total number of pixel blocks */ /* Returns : Number of distinct colors */ /* Called by : DFCimcomp() */ /* Calls : indx() */ /************************************************************************/ PRIVATE int cnt_color(int blocks) { int temp[MAXCOLOR]; int i, k, count; for (i = 0; i < MAXCOLOR; i++) temp[i] = -1; for (i = 0; i < (2 * blocks); i++) { k = indx(color_pt[i].c[RED], color_pt[i].c[GREEN], color_pt[i].c[BLUE]); /* printf("cnt_color: k is %d\n",k); */ if (k < MAXCOLOR) /* Fortner Fix: supplied by Peter Lawton */ temp[k] = 0; } count = 0; for (i = 0; i < MAXCOLOR; i++) if (temp[i] == 0) count++; return count; } /* end of cnt_color */ /************************************************************************/ /* Function : set_palette */ /* Purpose : The number of distinct colors is less than the desired */ /* output palette size. Therefore each distinct color can */ /* be a palette entry. Function enters each distinct */ /* color as a palette entry and sets up the translation */ /* table. It also shifts each color component left 3 bits */ /* so that each color component is again 8 bits wide */ /* Parameter : */ /* blocks - total number of pixel blocks */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : indx() */ /************************************************************************/ PRIVATE VOID set_palette(int blocks) { int ent, i, k; ent = 0; for (i = 0; i < (2 * blocks); i++) { k = indx(color_pt[i].c[RED], color_pt[i].c[GREEN], color_pt[i].c[BLUE]); if (trans[k] == -1) { new_pal[3 * ent] = (uint8) (color_pt[i].c[RED] << 3); new_pal[3 * ent + 1] = (uint8) (color_pt[i].c[GREEN] << 3); new_pal[3 * ent + 2] = (uint8) (color_pt[i].c[BLUE] << 3); trans[k] = ent; ent++; } } } /* end of set_palette */ /************************************************************************/ /* Function : fillin_color */ /* Purpose : For each pixel block, fills in the pointers into the */ /* palette. */ /* Parameter : */ /* blocks - total number of pixel blocks */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID fillin_color(int blocks) { int i, j, k; for (i = 0; i < blocks; i++) for (j = HI; j <= LO; j++) { k = indx(color_pt[2 * i + j].c[RED], color_pt[2 * i + j].c[GREEN], color_pt[2 * i + j].c[BLUE]); image[i * 4 + 2 + j] = (uint8) trans[k]; } } /* end of fillin_color */ /************************************************************************/ /* Function : indx */ /* Purpose : Maps an rgb triple (5 bits each) to an integer array */ /* index */ /* Parameter : */ /* r, g, b - color components */ /* Returns : returns an array index */ /* Called by : set_palette(), fillin_color(), map() */ /* Calls : none */ /************************************************************************/ PRIVATE int indx(unsigned char r, unsigned char g, unsigned char b) { int temp; temp = 0; temp = ((r & 0x1f) << 10) | ((g & 0x1f) << 5) | (b & 0x1f); return temp; } /* end of indx */ /************************************************************************/ /* Function : map */ /* Purpose : Maps a color_pt to the closest representative color */ /* Sets up translation table */ /* Parameter : */ /* blocks - total number of pixel blocks */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : nearest_color() */ /************************************************************************/ PRIVATE VOID map(int blocks) { int i, k; uint8 r, g, b; for (i = 0; i < (2 * blocks); i++) { k = indx(color_pt[i].c[RED], color_pt[i].c[GREEN], color_pt[i].c[BLUE]); if (trans[k] == -1) { r = (uint8) (color_pt[i].c[RED] << 3); g = (uint8) (color_pt[i].c[GREEN] << 3); b = (uint8) (color_pt[i].c[BLUE] << 3); trans[k] = nearest_color(r, g, b); /* printf("map: %d %d %d mapped to %d %d %d\n", r, g, b, new_pal[tran s[k]*3 ], new_pal[trans[k]*3+1], new_pal[trans[k]*3+2]); */ } } } /* end of map */ /************************************************************************/ /* Function : nearest_color */ /* Purpose : Finds the nearest palette color */ /* Parameter : */ /* r, g, b - color component */ /* Returns : Entry number of the closest color in the palette */ /* Called by : map() */ /* Calls : sqr() */ /************************************************************************/ PRIVATE int nearest_color(uint8 r, uint8 g, uint8 b) { int i, nearest; long int min, error; min = (long)(sqr((int16) (r - new_pal[0])) + sqr((int16) (g - new_pal[1])) + sqr((int16) (b - new_pal[2]))); nearest = 0; for (i = 1; i < PALSIZE; i++) { error = (long)(sqr((int16) (r - new_pal[3 * i])) + sqr((int16) (g - new_pal[3 * i + 1])) + sqr((int16) (b - new_pal[3 * i + 2]))); if (error < min) { min = error; nearest = i; } } return nearest; } /* end of nearest_color */ /************************************************************************/ /* Function : sqr */ /* Purpose : Computes the square of an integer */ /* Parameter : */ /* x - an integer */ /* Returns : The square of x */ /* Called by : nearest_color() */ /* Calls : none */ /************************************************************************/ PRIVATE uint32 sqr(int16 x) { return ((uint32) x * (uint32) x); } /************************************************************************/ /* Function : DFCIunimcomp */ /* Purpose : 'Decompresses' the compressed image */ /* Parameter : */ /* xdim, ydim - dimensions of image */ /* in, out - Input buffer and output buffer. Size of input buffer */ /* is (xdim*ydim)/4. Size of output buffer is 4 times */ /* that. It 'restores' images into seq-type files */ /* Returns : none */ /* Called by : External routines */ /* Calls : none */ /************************************************************************/ VOID DFCIunimcomp(int32 xdim, int32 ydim, uint8 in[], uint8 out[]) { int bitmap, temp; int32 i, j, k, x, y; uint8 hi_color, lo_color; for (y = 0; y < (ydim / 4); y++) for (x = 0; x < xdim; x = x + 4) { k = y * xdim + x; hi_color = (unsigned char) in[k + 2]; lo_color = (unsigned char) in[k + 3]; bitmap = ((unsigned char) in[k] << 8) | (unsigned char) in[k + 1]; for (i = (y * 4); i < (y * 4 + 4); i++) { temp = bitmap >> (3 + y * 4 - i) * 4; for (j = x; j < (x + 4); j++) { if ((temp & 8) == 8) out[i * xdim + j] = (char) hi_color; else out[i * xdim + j] = (char) lo_color; temp = temp << 1; } } } /* end of for x */ } /* end of DFCIunimcomp */ /************************************************************************/ /* Module Name : color */ /* Exports : sel_palette(); new_pal, pointer to a new color palette */ /* Purpose : Quantizes colors */ /* Author : Eng-Kiat Koh */ /* Date : June 30th, 1988 */ /* Functions : sel_palette(), init(), sort(), partition(), find_box() */ /* split_box(), assign_color(), select_dim(), find_med() */ /* classify(), next_pt() */ /************************************************************************/ /************************************************************************/ /* Function : sel_palette */ /* Purpose : Selects PALSIZE palette colors out of a list of colors */ /* in color_pt */ /* Parameter : */ /* blocks - number of pixel blocks */ /* distinct - number of distinct colors */ /* color_pt - contains the lo hi colors for each pixel block */ /* Returns : none */ /* Called by : DFCimcomp() */ /* Calls : init(), split_box(), find_box(), assign_color() */ /************************************************************************/ PRIVATE VOID sel_palette(int blocks, int distinct, struct rgb *my_color_pt) { int boxes; /* int i, j; */ struct box *ptr; init(blocks, distinct, my_color_pt); /* split box into smaller boxes with about equal number of points */ for (boxes = 1; boxes < PALSIZE; boxes++) { /* ptr=frontier->right; j = 0; while (ptr != NULL) { printf("Box %d, distinct %d, total %d\n",j,ptr->nmbr_distinct, ptr->nmbr_pts); for (i=0; inmbr_distinct; i++) printf("pt %d: %d %d %d",i,distinct_pt[ptr->pts[i]].c[RED], distinct_pt[ptr->pts[i]].c[GREEN], distinct_pt[ptr->pts[i]].c[BLUE]); j++; ptr = ptr->right; } */ ptr = find_box(); split_box(ptr); } assign_color(); } /************************************************************************/ /* Function : init */ /* Purpose : Initializes the global variables, sets up the first */ /* box. It will contain all the color points */ /* Parameter : */ /* blocks - number of pixel blocks */ /* distinct - number of distinct colors */ /* my_color_pt - contains the lo hi colors for each pixel block */ /* Returns : none */ /* Called by : sel_palette() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID init(int blocks, int distinct, struct rgb *my_color_pt) { int i, j, k, l; int temp[MAXCOLOR]; struct box *first; struct box *dummy; /* alloc memory */ if (hist) HDfree((VOIDP) hist); if (distinct_pt) HDfree((VOIDP) distinct_pt); hist = (int *) HDmalloc((unsigned) distinct * sizeof(int)); distinct_pt = (struct rgb *) HDmalloc((unsigned) distinct * sizeof(struct rgb)); for (i = 0; i < distinct; i++) hist[i] = 0; /* select distinct pts and set up histogram */ for (i = 0; i < MAXCOLOR; i++) temp[i] = -1; k = 0; for (i = 0; i < (2 * blocks); i++) { j = ((int) my_color_pt[i].c[RED] << 10) | (my_color_pt[i].c[GREEN] << 5) | my_color_pt[i].c[BLUE]; if (temp[j] == -1) { /* new pt */ temp[j] = k; for (l = RED; l <= BLUE; l++) distinct_pt[k].c[l] = my_color_pt[i].c[l]; k++; } hist[temp[j]]++; } /* set up first box */ first = (struct box *) HDmalloc(sizeof(struct box)); for (i = RED; i <= BLUE; i++) { first->bnd[i][LO] = (float32) 999.9; first->bnd[i][HI] = (float32) -999.9; for (j = 0; j < distinct; j++) { if (first->bnd[i][LO] > (float) distinct_pt[j].c[i]) first->bnd[i][LO] = (float) distinct_pt[j].c[i]; if (first->bnd[i][HI] < (float) distinct_pt[j].c[i]) first->bnd[i][HI] = (float) distinct_pt[j].c[i]; } /* end of for j */ first->bnd[i][LO] = first->bnd[i][LO] - (float32) EPSILON; first->bnd[i][HI] = first->bnd[i][HI] + (float32) EPSILON; } /* end of for i */ first->pts = (int *) HDmalloc((unsigned) distinct * sizeof(int)); for (i = 0; i < distinct; i++) first->pts[i] = i; first->nmbr_pts = 2 * blocks; first->nmbr_distinct = distinct; dummy = (struct box *) HDmalloc(sizeof(struct box)); frontier = dummy; dummy->right = first; first->left = dummy; first->right = NULL; dummy->nmbr_pts = 0; HDfree((VOIDP) first); HDfree((VOIDP) dummy); } /* end of init */ /************************************************************************/ /* Function : sort */ /* Purpose : Performs quick sort on the points in a box along a */ /* given dimension */ /* Parameter : */ /* l, r - index of leftmost and rightmost element */ /* dim - dimension along which sorting is done */ /* rank - an array which carries the index of the points to be */ /* sorted */ /* Returns : none */ /* Called by : find_med() */ /* Calls : partition() */ /************************************************************************/ PRIVATE VOID sort(int l, int r, int dim, int rank[]) { int i; if (r > l) { i = partition(l, r, dim, rank); sort(l, i - 1, dim, rank); sort(i + 1, r, dim, rank); } } /************************************************************************ * Function : partition * Purpose : Partitions the list into 2 parts as in the quick sort * algorithm * Parameter : * l, r - index of leftmost and rightmost element * dim - dimension along which sorting is done * rank - an array which carries the index of the points to be * Returns : index where list is partitioned * Called by : sort() * Calls : none ************************************************************************/ PRIVATE int partition(int l, int r, int dim, int rank[]) { int i, j, temp; uint8 v; v = distinct_pt[rank[r]].c[dim]; i = l - 1; j = r; /* repeat until i and j crosses */ do { /* repeat until an element >= v is found */ do i++; while (distinct_pt[rank[i]].c[dim] < v); /* repeat until an element <= v is found */ do j--; while ((j > 0) && (distinct_pt[rank[j]].c[dim] > v)); /* swap pointers */ temp = rank[i]; rank[i] = rank[j]; rank[j] = temp; } while (i < j); /* position partitioning element at location i */ temp = rank[j]; rank[j] = rank[i]; rank[i] = rank[r]; rank[r] = temp; return i; } /************************************************************************/ /* Function : find_box */ /* Purpose : Finds the box with the largest number of color points */ /* The points need not necessarily be distinct. But in */ /* order to partition the box, there must be at least 2 */ /* distinct points */ /* Parameter : none */ /* Returns : pointer to box selected for splitting */ /* Called by : sel_palette() */ /* Calls : none */ /************************************************************************/ PRIVATE struct box * find_box(void) { struct box *temp; struct box *max; int max_pts; max_pts = 1; max = NULL; temp = frontier->right; while (temp != NULL) if ((temp->nmbr_distinct > 1) && (max_pts < temp->nmbr_pts)) { max_pts = temp->nmbr_pts; max = temp; temp = temp->right; } else temp = temp->right; if (max == NULL) { return(NULL); /* punt! */ } return max; } /************************************************************************/ /* Function : split_box */ /* Purpose : Splits a selected box into 2 and reinserts the 2 sub- */ /* boxes into the frontier list */ /* Parameter : */ /* ptr - pointer to box to be split */ /* Returns : none */ /* Called by : sel_palette() */ /* Calls : find_med(), select_dim(), classify() */ /************************************************************************/ PRIVATE VOID split_box(struct box * ptr) { int dim, j, i; float median; struct box *l_child, *r_child; dim = select_dim(ptr); median = find_med(ptr, dim); /* create 2 child */ l_child = (struct box *) HDmalloc(sizeof(struct box)); r_child = (struct box *) HDmalloc(sizeof(struct box)); for (i = RED; i <= BLUE; i++) for (j = HI; j <= LO; j++) { l_child->bnd[i][j] = ptr->bnd[i][j]; r_child->bnd[i][j] = ptr->bnd[i][j]; } l_child->bnd[dim][HI] = median; r_child->bnd[dim][LO] = median; classify(ptr, l_child); classify(ptr, r_child); r_child->right = ptr->right; r_child->left = l_child; l_child->right = r_child; l_child->left = ptr->left; (ptr->left)->right = l_child; if (ptr->right != NULL) (ptr->right)->left = r_child; } /* end of split_box */ /************************************************************************/ /* Function : assign_color */ /* Purpose : Assigns a color to each box. It computes the average */ /* color of all the points in the box */ /* Sets up the new_pal buffer. Each color component is */ /* shifted left 3 bits because of the truncation when */ /* color_pt was set up */ /* Parameter : none */ /* Returns : none */ /* Called by : sel_palette() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID assign_color(void) { struct box *temp; int ent, k, j; int c[3]; temp = frontier->right; for (ent = 0; ent < PALSIZE; ent++) { for (k = RED; k <= BLUE; k++) c[k] = 0; /* printf("Box %d: number of pts %d\n", ent, temp->nmbr_pts); */ for (j = 0; j < temp->nmbr_distinct; j++) { /* printf("pt %d:", j); */ for (k = RED; k <= BLUE; k++) { /* printf("%d ",distinct_pt[temp->pts[j]].c[k]); */ c[k] = c[k] + distinct_pt[temp->pts[j]].c[k] * hist[temp->pts[j]]; } /* printf("\n"); */ } for (k = RED; k <= BLUE; k++) { c[k] = c[k] / temp->nmbr_pts; new_pal[3 * ent + k] = (uint8) (c[k] << 3); } temp = temp->right; } /* end of for entry */ } /************************************************************************/ /* Function : select_dim */ /* Purpose : Selects the dimension with the largest spread */ /* Parameter : */ /* ptr - pointer to desired box */ /* Returns : dimension where the box is to be split */ /* Called by : split_box() */ /* Calls : none */ /************************************************************************/ PRIVATE int select_dim(struct box *ptr) { int i, j; uint8 low[3], high[3]; uint8 max; for (j = RED; j <= BLUE; j++) { low[j] = distinct_pt[ptr->pts[0]].c[j]; high[j] = distinct_pt[ptr->pts[0]].c[j]; } for (i = 1; i < ptr->nmbr_distinct; i++) for (j = RED; j <= BLUE; j++) { if (low[j] > distinct_pt[ptr->pts[i]].c[j]) low[j] = distinct_pt[ptr->pts[i]].c[j]; if (high[j] < distinct_pt[ptr->pts[i]].c[j]) high[j] = distinct_pt[ptr->pts[i]].c[j]; } max = (uint8) (high[RED] - low[RED]); i = RED; for (j = GREEN; j <= BLUE; j++) if (max < (uint8) (high[j] - low[j])) { max = (uint8) (high[j] - low[j]); i = j; } return i; } /* end of select_dim */ /************************************************************************/ /* Function : find_med */ /* Purpose : Finds the point where the box is to be split. It finds */ /* a point such that the 2 new boxes have about the same */ /* number of color points. */ /* Parameter : */ /* ptr - pointer to box to be split */ /* dim - dimension to split box */ /* Returns : point where the box is to be cut */ /* Called by : split_box() */ /* Calls : next_pt() */ /************************************************************************/ PRIVATE float find_med(struct box *ptr, int dim) { int i, j, count, next, prev; int *rank; float32 median; rank = (int *) HDmalloc((unsigned) ptr->nmbr_distinct * sizeof(int)); for (i = 0; i < ptr->nmbr_distinct; i++) rank[i] = ptr->pts[i]; sort(0, ptr->nmbr_distinct - 1, dim, rank); /* for (i=0; inmbr_distinct; i++) printf("find_med: sorted list is %d\n",distinct_pt[rank[i]].c[dim]); */ count = 0; prev = i = 0; while ((i < ptr->nmbr_distinct) && (count < ptr->nmbr_pts / 2)) { next = next_pt(dim, i, rank, ptr->nmbr_distinct); for (j = i; j < next; j++) count = count + hist[rank[j]]; prev = i; i = next; } if (prev == 0) { /* the first distinct point overshot the median */ median = (float32) distinct_pt[rank[prev]].c[dim] + (float32) EPSILON; } else median = (float32) distinct_pt[rank[prev - 1]].c[dim] + (float32) EPSILON; HDfree((VOIDP) rank); return median; } /* end of find_med */ /************************************************************************/ /* Function : classify */ /* Purpose : Looks at the color points in the parent and selects */ /* the points that belong to the child */ /* Parameter : */ /* ptr - pointer to parent */ /* child - pointer to child box */ /* Returns : none */ /* Called by : split_box() */ /* Calls : none */ /************************************************************************/ PRIVATE VOID classify(struct box * ptr, struct box * child) { int i, j; int *temp; int distinct, total; temp = (int *) HDmalloc((unsigned) ptr->nmbr_distinct * sizeof(int)); distinct = 0; total = 0; for (i = 0; i < ptr->nmbr_distinct; i++) { j = ptr->pts[i]; if ((((float) distinct_pt[j].c[RED] >= child->bnd[RED][LO]) && ((float) distinct_pt[j].c[RED] <= child->bnd[RED][HI])) && (((float) distinct_pt[j].c[GREEN] >= child->bnd[GREEN][LO]) && ((float) distinct_pt[j].c[GREEN] <= child->bnd[GREEN][HI])) && (((float) distinct_pt[j].c[BLUE] >= child->bnd[BLUE][LO]) && ((float) distinct_pt[j].c[BLUE] <= child->bnd[BLUE][HI]))) { /* pt is in new box */ temp[distinct] = j; distinct++; total = total + hist[j]; } /* end of if */ } /* end of for i */ /* assign points */ child->nmbr_pts = total; child->nmbr_distinct = distinct; child->pts = (int *) HDmalloc((unsigned) distinct * sizeof(int)); for (i = 0; i < distinct; i++) child->pts[i] = temp[i]; HDfree((VOIDP) temp); } /* end of classify */ /************************************************************************/ /* Function : next_pt */ /* Purpose : Determines the next point that has a different value */ /* from the current point along a dimension */ /* Parameter : */ /* dim - dimension where box is to be split */ /* i - index to current point */ /* rank - sorted list of points to be searched starting from i */ /* distinct - length of sorted list */ /* Returns : index of point that has a different value */ /* Called by : find_med */ /* Calls : none */ /************************************************************************/ PRIVATE int next_pt(int dim, int i, int rank[], int distinct) { int j; uint8 old; old = distinct_pt[rank[i]].c[dim]; for (j = (i + 1); j < distinct; j++) if (distinct_pt[rank[j]].c[dim] != old) break; return j; } /* end of next_pt */ libhdf4-4.2.10/HDF_ALT/hdf/src/atom.h0000644000000000000000000002675612421456623013567 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: atom.h 5444 2010-08-25 16:40:05Z byrn $ */ /*----------------------------------------------------------------------------- * File: atom.h * Purpose: header file for atom API * Dependencies: * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __ATOM_H #define __ATOM_H #include "H4api_adpt.h" /* Atom Features control */ /* Define the following macro for fast hash calculations (but limited hash sizes) */ #define HASH_SIZE_POWER_2 /* Define the following macro for atom caching over all the atoms */ #define ATOMS_ARE_CACHED /* Define the following macro for "inline" atom lookups from the cache */ #ifdef ATOMS_ARE_CACHED /* required for this to work */ #define ATOMS_CACHE_INLINE #endif /* ATOMS_ARE_CACHED */ #ifdef ATOMS_CACHE_INLINE /* Do swap using XOR operator. Ugly but fast... -QAK */ #define HAIswap_cache(i,j) \ atom_id_cache[i]^=atom_id_cache[j], \ atom_obj_cache[i]=(void *)((hdf_pint_t)atom_obj_cache[j]^(hdf_pint_t)atom_obj_cache[i]), \ atom_id_cache[j]^=atom_id_cache[i], \ atom_obj_cache[j]=(void *)((hdf_pint_t)atom_obj_cache[i]^(hdf_pint_t)atom_obj_cache[j]), \ atom_id_cache[i]^=atom_id_cache[j], \ atom_obj_cache[i]=(void *)((hdf_pint_t)atom_obj_cache[i]^(hdf_pint_t)atom_obj_cache[j]) /* Note! This is hardwired to the atom cache value being 4 */ #define HAatom_object(atm) \ (atom_id_cache[0]==atm ? atom_obj_cache[0] : \ atom_id_cache[1]==atm ? (HAIswap_cache(0,1),atom_obj_cache[0]) : \ atom_id_cache[2]==atm ? (HAIswap_cache(1,2),atom_obj_cache[1]) : \ atom_id_cache[3]==atm ? (HAIswap_cache(2,3),atom_obj_cache[2]) : \ HAPatom_object(atm)) #endif /* ATOMS_CACHE_INLINE */ #include "hdf.h" /* Group values allowed */ typedef enum {BADGROUP=(-1), /* Invalid Group */ DDGROUP=0, /* Group ID for DD objects */ AIDGROUP=1, /* Group ID for access ID objects */ FIDGROUP=2, /* Group ID for file ID objects */ VGIDGROUP=3, /* Group ID for Vgroup ID objects */ VSIDGROUP=4, /* Group ID for Vdata ID objects */ GRIDGROUP=5, /* Group ID for GR ID objects */ RIIDGROUP=6, /* Group ID for RI ID objects */ BITIDGROUP=7, /* Group ID for Bitfile ID objects */ ANIDGROUP=8, /* Group ID for Annotation ID objects */ MAXGROUP /* Highest group in group_t (Invalid as true group) */ } group_t; /* Type of atoms to return to users */ typedef int32 atom_t; /* Type of the function to compare objects & keys */ typedef intn (*HAsearch_func_t)(const void * obj, const void * key); #if defined ATOM_MASTER | defined ATOM_TESTER /* # of bits to use for Group ID in each atom (change if MAXGROUP>16) */ #define GROUP_BITS 4 #define GROUP_MASK 0x0F /* # of bits to use for the Atom index in each atom (change if MAXGROUP>16) */ #define ATOM_BITS 28 #define ATOM_MASK 0x0FFFFFFF #ifdef ATOMS_ARE_CACHED /* # of previous atoms cached, change inline caching macros (HAatom_object & HAIswap_cache) if this changes */ #define ATOM_CACHE_SIZE 4 #endif /* ATOMS_ARE_CACHED */ /* Map an atom to a Group number */ #define ATOM_TO_GROUP(a) ((group_t)((((atom_t)(a))>>((sizeof(atom_t)*8)-GROUP_BITS))&GROUP_MASK)) #ifdef HASH_SIZE_POWER_2 /* Map an atom to a hash location (assumes s is a power of 2 and smaller than the ATOM_MASK constant) */ #define ATOM_TO_LOC(a,s) ((atom_t)(a)&((s)-1)) #else /* HASH_SIZE_POWER_2 */ /* Map an atom to a hash location */ #define ATOM_TO_LOC(a,s) (((atom_t)(a)&ATOM_MASK)%(s)) #endif /* HASH_SIZE_POWER_2 */ /* Combine a Group number and an atom index into an atom */ #define MAKE_ATOM(g,i) ((((atom_t)(g)&GROUP_MASK)<<((sizeof(atom_t)*8)-GROUP_BITS))|((atom_t)(i)&ATOM_MASK)) /* Atom information structure used */ typedef struct atom_info_struct_tag { atom_t id; /* atom ID for this info */ VOIDP *obj_ptr; /* pointer associated with the atom */ struct atom_info_struct_tag *next; /* link to next atom (in case of hash-clash) */ }atom_info_t; /* Atom group structure used */ typedef struct atom_group_struct_tag { uintn count; /* # of times this group has been initialized */ intn hash_size; /* size of the hash table to store the atoms in */ uintn atoms; /* current number of atoms held */ uintn nextid; /* atom ID to use for the next atom */ atom_info_t **atom_list;/* pointer to an array of ptrs to atoms */ }atom_group_t; /* Define this in only one place */ #ifdef ATOM_MASTER /* Array of pointers to atomic groups */ static atom_group_t *atom_group_list[MAXGROUP]={NULL}; /* Pointer to the atom node free list */ static atom_info_t *atom_free_list=NULL; #ifdef ATOMS_ARE_CACHED /* Array of pointers to atomic groups */ #ifdef OLD_WAY static atom_t atom_id_cache[ATOM_CACHE_SIZE]={-1,-1,-1,-1}; static VOIDP atom_obj_cache[ATOM_CACHE_SIZE]={NULL}; #else /* OLD_WAY */ HDFPUBLIC atom_t atom_id_cache[ATOM_CACHE_SIZE]={-1,-1,-1,-1}; HDFPUBLIC VOIDP atom_obj_cache[ATOM_CACHE_SIZE]={NULL}; #endif /* OLD_WAY */ #endif /* ATOMS_ARE_CACHED */ #endif /* ATOM_MASTER */ /* Useful routines for generally private use */ #endif /* ATOM_MASTER | ATOM_TESTER */ #ifndef ATOM_MASTER HDFLIBAPI atom_t atom_id_cache[]; HDFLIBAPI VOIDP atom_obj_cache[]; #endif /* ATOM_MASTER */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /****************************************************************************** NAME HAinit_group - Initialize an atomic group DESCRIPTION Creates an atomic group to store atoms in. If the group has already been initialized, this routine just increments the count of # of initializations and returns without trying to change the size of the hash table. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ HDFLIBAPI intn HAinit_group(group_t grp, /* IN: Group to initialize */ intn hash_size /* IN: Minimum hash table size to use for group */ ); /****************************************************************************** NAME HAdestroy_group - Destroy an atomic group DESCRIPTION Destroys an atomic group which atoms are stored in. If the group still has atoms which are registered, this routine fails. If there have been multiple initializations of the group, this routine just decrements the count of initializations and does not check the atoms out-standing. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ HDFLIBAPI intn HAdestroy_group(group_t grp /* IN: Group to destroy */ ); /****************************************************************************** NAME HAregister_atom - Register an object in a group and get an atom for it. DESCRIPTION Registers an object in a group and returns an atom for it. This routine does _not_ check for unique-ness of the objects, if you register an object twice, you will get two different atoms for it. This routine does make certain that each atom in a group is unique. Atoms are created by getting a unique number for the group the atom is in and incorporating the group into the atom which is returned to the user. RETURNS Returns atom if successful and FAIL otherwise *******************************************************************************/ HDFLIBAPI atom_t HAregister_atom(group_t grp, /* IN: Group to register the object in */ VOIDP object /* IN: Object to attach to atom */ ); /****************************************************************************** NAME HAatom_object - Returns to the object ptr for the atom DESCRIPTION Retrieves the object ptr which is associated with the atom. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ #ifdef ATOMS_CACHE_INLINE HDFLIBAPI VOIDP HAPatom_object(atom_t atm /* IN: Atom to retrieve object for */ ); #else /* ATOMS_CACHE_INLINE */ HDFLIBAPI VOIDP HAatom_object(atom_t atm /* IN: Atom to retrieve object for */ ); #endif /* ATOMS_CACHE_INLINE */ /****************************************************************************** NAME HAatom_group - Returns to the group for the atom DESCRIPTION Retrieves the group which is associated with the atom. RETURNS Returns group if successful and FAIL otherwise *******************************************************************************/ HDFLIBAPI group_t HAatom_group(atom_t atm /* IN: Atom to retrieve group for */ ); /****************************************************************************** NAME HAremove_atom - Removes an atom from a group DESCRIPTION Removes an atom from a group. RETURNS Returns atom's object if successful and FAIL otherwise *******************************************************************************/ HDFLIBAPI VOIDP HAremove_atom(atom_t atm /* IN: Atom to remove */ ); /****************************************************************************** NAME HAsearch_atom - Search for an object in a group and get it's pointer. DESCRIPTION Searchs for an object in a group and returns the pointer to it. This routine calls the function pointer passed in for each object in the group until it finds a match. Currently there is no way to resume a search. RETURNS Returns pointer an atom's object if successful and NULL otherwise *******************************************************************************/ HDFLIBAPI VOIDP HAsearch_atom(group_t grp, /* IN: Group to search for the object in */ HAsearch_func_t func, /* IN: Ptr to the comparison function */ const void * key /* IN: pointer to key to compare against */ ); /****************************************************************************** NAME HAshutdown - Terminate various static buffers. DESCRIPTION Free various buffers allocated in the HA routines. RETURNS Returns SUCCEED/FAIL *******************************************************************************/ HDFLIBAPI intn HAshutdown(void); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* __ATOM_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfstubs.c0000644000000000000000000011700712421456623014262 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* $Id: dfstubs.c 6036 2014-01-20 17:28:01Z acheng $ */ /* ** FILE ** dfstubs.c ** V3.X stubs for V4.0 "H-level" I/O routines. First implemented: V3.2 ** EXPORTED ROUTINES ** *DFopen -- open HDF file ** *DFclose -- close HDF file ** *DFdescriptors -- return a list of the data descriptors in the HDF file ** *DFnumber -- count the number of occurrances of a given tag in HDF file ** *DFsetfind -- set up a search ** *DFfind -- search for tag/ref combination ** DFaccess -- set up a read/write on a data element ** DFstart -- set up a read/write on a data element ** DFread -- read a portion of a data element ** DFseek -- seek a new position within a data element ** DFwrite -- write a portion of a data element ** DFupdate -- write out updated DDs to HDF file ** *DFstat -- provide status information about HDF file ** *DFgetelement -- read an entire data element ** *DFputelement -- write an entire data element ** *DFdup -- create an additional descriptor for a data element ** *DFdel -- delete a data element ** *DFnewref -- get an unused reference number ** *DFishdf -- is this an HDF file? ** *DFerrno -- return value of DFerror ** AUTHOR ** Doug Ilg */ #include "dfstubs.h" #include "df.h" #define CKMALLOC( x, ret) { if (!x) { DFerror = DFE_NOSPACE; return(ret); } } #define CKSEEK(x,y,z, ret) { if (DF_SEEK( x,(long)y,z) <0) \ {DFerror = DFE_SEEKERROR; return(ret); } } #define CKSEEKEND(x,y,z, ret) { if (DF_SKEND( x,(long)y,z) <0) \ {DFerror = DFE_SEEKERROR; return(ret); } } #define CKREAD(x,y,z,f, ret) { \ if (DF_READ( (char*)x, (int)(y), (int)(z), (f))<0) \ { DFerror = DFE_READERROR; return(ret); } \ } #define CKWRITE(x,y,z,f, ret) { if (DF_WRITE( (char*)x, (int)y, (int)z,f)<0) \ {DFerror = DFE_WRITEERROR; return(ret); } } /* * Important Internal Variables */ PRIVATE DF *DFlist = NULL; /* pointer to list of open DFs */ #ifdef PERM_OUT PRIVATE int DFinuse = 0; /* How many are currently in use */ PRIVATE uint16 DFmaxref = 0; /* which is the largest ref used? */ PRIVATE unsigned char *DFreflist = NULL; /* list of refs in use */ PRIVATE char patterns[] = {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01}; #endif /* PERM_OUT */ /* ** NAME ** DFopen -- open HDF file ** USAGE ** DF *DFopen(name, acc_mode, ndds) ** char* name; IN: name of file to open ** int acc_mode; IN: DFACC_READ, DFACC_WRITE, DFACC_CREATE, ** DFACC_ALL ** int ndds; IN: number of DDs in a block ** RETURNS ** DF ptr to open file on success, NULL on failure with DFerror set ** DESCRIPTION ** Open an HDF file, if it exists. If file does not exist and write ** access requested, create file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** The pointer returned by DFopen is NOT a reference to a DF. It is ** just a place keeper for the new type of file handle. Any program that ** relies on the contents of a DF returned by DFopen must be re-written. ** EXAMPLES ** REVISION LOG */ DF * DFopen(char *name, int acc_mode, int ndds) { if (DFIcheck(DFlist) == 0) { DFerror = DFE_TOOMANY; return (NULL); } else DFerror = DFE_NONE; DFaccmode = acc_mode | DFACC_READ; DFid = Hopen(name, DFaccmode, (int16) ndds); if (DFid == -1) { DFerror = (int)HEvalue(1); return (NULL); } else { /* DFlist = makedf(DFid); */ DFlist = (DF *) & DFid; return (DFlist); } } /* ** NAME ** DFclose -- close HDF file ** USAGE ** int DFclose(dfile) ** DF *dfile; IN: pointer to an open DF file ** RETURNS ** 0 on success, -1 on failure with DFerror set ** DESCRIPTION ** Write out updated DDs; close DF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFclose(DF * dfile) { int ret; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (FAIL); } else DFerror = DFE_NONE; if (DFelstat == DFEL_RESIDENT) { Hputelement(DFid, acc_tag, acc_ref, (unsigned char *) DFelement, DFelsize); HDfree(DFelement); } else Hendaccess(DFaid); if (search_stat == DFSRCH_OLD) { Hendaccess(search_aid); search_aid = 0; } ret = Hclose(DFid); if (ret == 0) { dfile = 0; DFlist = (DF *) NULL; DFid = 0; DFaccmode = 0; } else { DFerror = (int)HEvalue(1); } return (ret); } /* ** NAME ** DFdescriptors -- return a list of the data descriptors in the file ** USAGE ** int DFdescriptors(dfile, ptr, begin, num) ** DF *dfile; IN: pointer to an open DF file ** DFdesc ptr[]; IN: pointer to space for the list of DDs ** int begin; IN: starting DD number ** int num; IN: number of entries ** RETURNS ** number of DDs returned in the list ** DESCRIPTION ** Fills in a list of all DDs in the file beginning with DD begin and ** including a maximum of num entries. The number of DDs actually entered ** into the list is returned. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFdescriptors(DF * dfile, DFdesc ptr[], int begin, int num) { int i, ret; int32 aid; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; aid = Hstartread(DFid, DFTAG_WILDCARD, DFREF_WILDCARD); if (aid == FAIL) { DFerror = (int)HEvalue(1); return (-1); } for (i = 2; i <= begin; i++) { ret = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); if (ret == FAIL) { Hendaccess(aid); DFerror = (int)HEvalue(1); return (-1); } } Hinquire(aid, NULL, &ptr[0].tag, &ptr[0].ref, &ptr[0].length, &ptr[0].offset, NULL, NULL, NULL); for (i = 1; i < num; i++) { ret = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); if (ret == FAIL) { Hendaccess(aid); return (i); } Hinquire(aid, NULL, &ptr[i].tag, &ptr[i].ref, &ptr[i].length, &ptr[i].offset, NULL, NULL, NULL); } Hendaccess(aid); return (i); } /* ** NAME ** DFnumber -- return number of occurrences of given tag in the HDF file ** USAGE ** DFnumber(dfile, tag) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag to count occurrences of ** RETURNS ** Number of occurrences on success, -1 on failure with DFerror set. ** DESCRIPTION ** Returns the number of occurrences of the specified tag in the HDF file. ** If tag is DFTAG_WILDCARD, all tags are counted. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFnumber(DF * dfile, uint16 tag) { int num; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; num = Hnumber(DFid, tag); return (num); } /* ** NAME ** DFsetfind -- set up parameters for a wildcard find ** USAGE ** int DFsetfind(dfile, tag, ref) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag of element to search for (0 is wild) ** uint16 ref; IN: ref of element to search for (0 is wild) ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Sets up parameters for a wildcard find on a tag/ref pair. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFsetfind(DF * dfile, uint16 tag, uint16 ref) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; search_tag = tag; search_ref = ref; search_stat = DFSRCH_NEW; return (0); } /* ** NAME ** DFfind -- perform wildcard searches ** USAGE ** int DFfind(dfile, ptr) ** DF *dfile; IN: pointer to an open DF file ** DFdesc *ptr; IN: pointer to put in DD when found ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** If desired tag/ref is found, its DD is copied to *ptr. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFfind(DF * dfile, DFdesc * ptr) { int ret; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; if (search_stat == DFSRCH_NEW) { search_aid = Hstartread(DFid, search_tag, search_ref); search_stat = DFSRCH_OLD; ret = 0; } else { ret = Hnextread(search_aid, search_tag, search_ref, DF_CURRENT); } if ((search_aid == FAIL) || (ret == FAIL)) { DFerror = DFE_NOMATCH; ptr->tag = 0; ptr->ref = 0; return (-1); } Hinquire(search_aid, NULL, &ptr->tag, &ptr->ref, &ptr->length, &ptr->offset, NULL, NULL, NULL); return (0); } /* ** NAME ** DFaccess -- set up a read/write on a data element ** USAGE ** int DFaccess(dfile, tag, ref, acc_mode) ** DF *dfile; IN: pointer to open HDF file ** uint16 tag; IN: tag of element ** uint16 ref; IN: ref number of element ** char *acc_mode; IN: "r", "w", or "a" (read, write, append) ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Set up read or write access on data element. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This function needs to call DFupdate and Hendaccess if there is already ** an active access element with a different tag/ref. ** Also, set up globals "acc_tag" and "acc_ref" to keep tabs on the data ** being referenced, and "in_mem" to keep track of whether the data for ** an element to be appended to has been read into memory. ** EXAMPLES ** REVISION LOG */ int DFaccess(DF * dfile, uint16 tag, uint16 ref, char *acc_mode) { int accmode; /* DFdle *ptr; int dle_num, index, i; */ if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; switch (*acc_mode) { case 'r': accmode = DFACC_READ; break; case 'w': accmode = DFACC_WRITE; if (((DFaccmode & DFACC_WRITE) == 0) && ((DFaccmode & DFACC_CREATE) == 0)) { DFerror = DFE_BADACC; return (-1); } break; case 'a': accmode = DFACC_APPEND; if (((DFaccmode & DFACC_WRITE) == 0) && ((DFaccmode & DFACC_CREATE) == 0)) { DFerror = DFE_BADACC; return (-1); } break; default: DFerror = DFE_BADACC; return (-1); } /* test if (((tag != acc_tag) || (ref != acc_ref)) || (accmode != DFelaccmode)) if (DFelstat == DFEL_RESIDENT) { Hputelement(DFid, acc_tag, acc_ref, DFelement, DFelsize); HDfree(DFelement); } else Hendaccess(DFaid); test */ acc_tag = tag; acc_ref = ref; DFelaccmode = accmode; DFelstat = DFEL_ABSENT; DFelseekpos = 0; DFelsize = 0; switch (*acc_mode) { case 'r': DFelsize = Hlength(DFid, acc_tag, acc_ref); if (DFelsize <= 0) { DFIclearacc(); DFerror = (int)HEvalue(1); return (-1); } /* test DFaid = Hstartread(DFid, acc_tag, acc_ref); if (DFaid != FAIL) { Hinquire(DFaid, (int32*)NULL, (uint16*)NULL, (uint16*)NULL, &DFelsize, (int32*)NULL, (int32*)NULL, (int32*)NULL, (int32*)NULL); inq_accid(DFaid, &dle_num, &index, &(dfile->up_access)); Hendaccess(DFaid); ptr = dfile->list; for (i=0; inext; dfile->up_dd = &(ptr->dd[index]); } else { DFIclearacc(); DFerror = HEvalue(1); return(-1); } test */ break; /* _maybe_ treat 'w' and 'a' in the same general 'a'-way */ case 'w': DFelsize = Hlength(DFid, acc_tag, acc_ref); if (DFelsize == FAIL) { DFelsize = 0; } else DFelstat = DFEL_RESIDENT; break; case 'a': DFelsize = Hlength(DFid, acc_tag, acc_ref); if (DFelsize == FAIL) { DFIclearacc(); DFerror = (int)HEvalue(1); return (-1); } DFelseekpos = DFelsize; break; } return (0); } PRIVATE int DFIclearacc(void) { Hendaccess(DFaid); DFaid = 0; acc_tag = 0; acc_ref = 0; DFelsize = 0; DFelseekpos = 0; DFelstat = DFEL_ABSENT; DFelement = NULL; return (0); } /* ** NAME ** DFstart -- set up a read/write on an access element ** USAGE ** int DFstart(dfile, tag, ref, acc_mode) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag of element ** uint16 ref; IN: ref number of element ** char *acc_mode; IN: "r", "w", ro "a" (read, write, append) ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Set up a read or write access on data element. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFstart(DF * dfile, uint16 tag, uint16 ref, char *acc_mode) { return (DFaccess(dfile, tag, ref, acc_mode)); } /* ** NAME ** DFread -- read a portion of a data element ** USAGE ** int32 DFread(dfile, ptr, len) ** DF *dfile; IN: pointer to open DF file ** char *ptr; IN: pointer to space to read data into ** int32 len; IN: number of bytes to read ** RETURNS ** number of bytes read on success, -1 on failure ** DESCRIPTION ** Read bytes from a DF file (part of element specified by DFaccess) ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** Space for data is assumed to be pre-allocated. ** EXAMPLES ** REVISION LOG */ int32 DFread(DF * dfile, char *ptr, int32 len) { int32 ret; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; DFaid = Hstartread(DFid, acc_tag, acc_ref); ret = Hseek(DFaid, DFelseekpos, 0); if (ret == FAIL) { Hendaccess(DFaid); DFerror = (int)HEvalue(1); return (-1); } ret = Hread(DFaid, len, (unsigned char *) ptr); Hendaccess(DFaid); if (ret == FAIL) { DFerror = (int)HEvalue(1); return (-1); } else { DFelseekpos += ret; return (ret); } } /* ** NAME ** DFseek -- seek a new position within a data element ** USAGE ** int32 DFseek(dfile, offset) ** DF *dfile; IN: pointer to open DF file ** int32 offset; IN: offset from beginning of element ** RETURNS ** offset of actual position seek'ed to from beginning of element ** DESCRIPTION ** Seek position within element specified by DFaccess. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int32 DFseek(DF * dfile, int32 offset) { int ret; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; /* assuming no blank space can be forced by seeking past end of element and writing more data */ if (offset > DFelsize) { DFerror = DFE_BADSEEK; return (-1); } else { ret = Hseek(DFaid, offset, DF_START); if (ret == FAIL) { DFerror = (int)HEvalue(1); return (-1); } DFelseekpos = offset; } return (0); } /* ** NAME ** DFwrite -- write a portion of a data element ** USAGE ** int32 DFwrite(dfile, ptr, len) ** DF *dfile; IN: pointer to open DF file ** char *ptr; IN: pointer to data to be written ** int32 len; IN: number of bytes to be written ** RETURNS ** number of bytes written on success, -1 on failure ** DESCRIPTION ** Write bytes to DF file (part of element specified by DFaccess) ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This function should check the access mode in DFaccmode. On write ** access, if(!in_mem) Hstartwrite, Hwrite, and set in_mem, otherwise just ** Hwrite. On append access, if(!in_mem) Hstartread, Hinquire(oldsize), ** malloc(oldsize+writesize), Hread to malloc'd area, copy write request ** to end of malloc'd area, set in_mem, otherwise, realloc(area+writesize) ** copy write request to end of area. ** EXAMPLES ** REVISION LOG */ int32 DFwrite(DF * dfile, char *ptr, int32 len) { int32 size, ret, newlen; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } if ((DFelaccmode != DFACC_WRITE) && (DFelaccmode != DFACC_APPEND)) { DFerror = DFE_BADACC; return (-1); } else DFerror = DFE_NONE; size = DFelseekpos + len; if (DFelaccmode == DFACC_WRITE) { if (DFelstat == DFEL_ABSENT) { Hendaccess(DFaid); DFaid = Hstartwrite(DFid, acc_tag, acc_ref, len); Hseek(DFaid, DFelseekpos, DF_START); ret = Hwrite(DFaid, len, (unsigned char *) ptr); } else { if (size <= DFelsize) { Hendaccess(DFaid); DFaid = Hstartwrite(DFid, acc_tag, acc_ref, len); Hseek(DFaid, DFelseekpos, DF_START); ret = Hwrite(DFaid, len, (unsigned char *) ptr); } else { Hendaccess(DFaid); DFerror = DFE_NOTENOUGH; return (-1); } } } else { newlen = size - Hlength(DFid, acc_tag, acc_ref); Hendaccess(DFaid); DFaid = HLcreate(DFid, acc_tag, acc_ref, newlen, (int32) 4); Hseek(DFaid, DFelseekpos, DF_START); ret = Hwrite(DFaid, len, (unsigned char *) ptr); } Hendaccess(DFaid); DFelseekpos += len; DFelsize = size; DFelstat = DFEL_RESIDENT; return (ret); } /* ** NAME ** DFupdate -- write out updated DDs to HDF file ** USAGE ** int DFupdate(dfile) ** DF *dfile; IN: pointer to open DF file ** RETURNS ** 0 on success, -1 on failure with DFerror set. ** DESCRIPTION ** This function only checks for valid input and returns. It is included ** solely for compatibility with older programs. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This function does nothing but check for valid input. ** However, this function should check to see if an appended-to data ** element is in memory and, if it is, write it out. ** EXAMPLES ** REVISION LOG */ int DFupdate(DF * dfile) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; /* test if (DFelstat == DFEL_RESIDENT) { Hputelement(DFid, acc_tag, acc_ref, DFelement, DFelsize); HDfree(DFelement); DFIclearacc(); } test */ return (0); } /* ** NAME ** DFstat -- provide status information about HDF file ** USAGE ** int DFstat(dfile, dfinfo) ** DF *dfile; IN: pointer to open DF file ** struct DFdata *dfinfo; IN: pointer to space for info ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Fill dfinfo with status information about the HDF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** Currently, only the HDF version number is returned in dfinfo. ** Actually, nothing happens here now. ** EXAMPLES ** REVISION LOG */ int DFstat(DF * dfile, DFdata * dfinfo) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; dfinfo = dfinfo; return (0); } /* ** NAME ** DFgetelement -- read an entire data element ** USAGE ** int32 DFgetelement(dfile, tag, ref, ptr) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag of element ** uint16 ref; IN: ref number of element ** char *ptr; IN: pointer to space for data element ** RETURNS ** number of bytes read on success, -1 on failure ** DESCRIPTION ** Reads in a data element from an HDF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** Currently, this function returns 0 on success, not #bytes read. ** EXAMPLES ** REVISION LOG */ int32 DFgetelement(DF * dfile, uint16 tag, uint16 ref, char *ptr) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; /* test if (DFelstat == DFEL_RESIDENT) { Hputelement(DFid, acc_tag, acc_ref, DFelement, DFelsize); HDfree(DFelement); DFIclearacc(); } test */ if (Hgetelement(DFid, tag, ref, (unsigned char *) ptr) == -1) { DFerror = (int)HEvalue(1); return (-1); } else return (Hlength(DFid, tag, ref)); } /* ** NAME ** DFputelement -- write an entire data element ** USAGE ** int DFputelement(dfile, tag, ref, ptr, len) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag of data element ** uint16 ref; IN: ref number of data element ** char *ptr; IN: pointer to data element ** int32 len; IN: length of data element ** RETURNS ** Number of bytes written on success, -1 on failure ** DESCRIPTION ** Write an entire data element to HDF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int32 DFputelement(DF * dfile, uint16 tag, uint16 ref, char *ptr, int32 len) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; /* test if (DFelstat == DFEL_RESIDENT) { Hputelement(DFid, acc_tag, acc_ref, DFelement, DFelsize); HDfree(DFelement); DFIclearacc(); } test */ if (Hputelement(DFid, tag, ref, (unsigned char *) ptr, len) == FAIL) { DFerror = (int)HEvalue(1); return (-1); } else return (Hlength(DFid, tag, ref)); } /* ** NAME ** DFdup -- create an additional descriptor for a data element ** USAGE ** int DFdup(dfile, itag, iref, otag, oref) ** DF *dfile; IN: pointer to open DF file ** uint16 itag; IN: new tag of data element ** uint16 iref; IN: new ref number of data element ** uint16 otag; IN: current tag of data element ** uint16 oref; IN: current ref number of data element ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Add a new tag/ref for existing data. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFdup(DF * dfile, uint16 itag, uint16 iref, uint16 otag, uint16 oref) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; if (Hdupdd(DFid, itag, iref, otag, oref) != SUCCEED) { DFerror = (int)HEvalue(1); return (-1); } else return (0); } /* ** NAME ** DFdel -- delete a data element ** USAGE ** int DFdel(dfile, tag, ref) ** DF *dfile; IN: pointer to open DF file ** uint16 tag; IN: tag of element ** uint16 ref; IN: ref number of element ** RETURNS ** 0 on success, -1 on failure ** DESCRIPTION ** Delete a data element from HDF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** The data element is not actually deleted; it simply loses its DD. ** EXAMPLES ** REVISION LOG */ int DFdel(DF * dfile, uint16 tag, uint16 ref) { if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (-1); } else DFerror = DFE_NONE; if (Hdeldd(DFid, tag, ref) != 0) { DFerror = (int)HEvalue(1); return (-1); } else return (0); } /* ** NAME ** DFnewref -- get an unused reference number ** USAGE ** uint16 DFnewref(dfile) ** DF *dfile; IN: pointer to open DF file ** RETURNS ** unused reference number, or 0 if no reference numbers are free ** DESCRIPTION ** Get an unused reference number. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ uint16 DFnewref(DF * dfile) { uint16 ret; if (DFIcheck(dfile) != 0) { DFerror = DFE_NOTOPEN; return (0); } else DFerror = DFE_NONE; ret = Hnewref(DFid); if (ret == 0xffff) { DFerror = (int)HEvalue(1); return (0); } return (ret); } /* ** NAME ** DFishdf -- is this an HDF file? ** USAGE ** int DFishdf(filename) ** char *filename; IN: name of file to check ** RETURNS ** 0 if it is an HDF file, -1 if it is not. ** DESCRIPTION ** Determine whether file is an HDF file. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFishdf(char *filename) { int32 dummy; DFerror = DFE_NONE; dummy = Hopen(filename, DFACC_READ, 0); if (dummy == -1) { DFerror = (int)HEvalue(1); return (-1); } else { Hclose(dummy); return (0); } } /* ** NAME ** DFerrno -- return value of DFerror ** USAGE ** int DFerrno() ** RETURNS ** Value of DFerror. ** DESCRIPTION ** Return value of DFerror. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES ** REVISION LOG */ int DFerrno(void) { return (DFerror); } /*----------------------------------------------------------------------------- * Name: DFIcheck * Purpose: check if dfile argument represents a valid DF file * Inputs: dfile: pointer to open DF file * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF systems programmers, several routines in this file *---------------------------------------------------------------------------*/ PRIVATE int DFIcheck(DF * dfile) { DFerror = DFE_NONE; if ((dfile != (DF *) & DFid) || (DFid == 0)) { DFerror = DFE_DFNULL; return (-1); } if ((DFaccmode & DFACC_ALL) != DFaccmode) { DFerror = DFE_BADACC; return (-1); } else return (0); /* test if (!dfile) { DFerror = DFE_DFNULL; return(-1); } if ((dfile->access & DFACC_ALL) != dfile->access) DFerror = DFE_BADACC; if ((dfile->type >1) || (dfile->type <-1)) DFerror = DFE_ILLTYPE; if (!dfile->list) DFerror= DFE_BADDDLIST; if (DFerror) return(-1); else return(0); test */ } #ifdef PERM_OUT /*----------------------------------------------------------------------------- * Name: DFIfind * Purpose: perform wildcard searches * Inputs: dfile: pointer to open DF file * tag, ref: tag, ref (possibly wildcard) being searched for * isfirst: 1 if first call to DFIfind for this tag/ref, else 0 * ltag, lref: last tag and ref returned for this search, * don't care if isfirst set * cDLEp, cddp: pointers to DLE and DD number to return matched DD in * Returns: 0 on success, -1 on failure * if success, cDLEp and cddp are set to point to matched DD * Users: HDF system programmers, DFfind, HDF utilities, many routines * Remarks: The searching algorithm is a little complex. It returns entries * in the sorting order of refs, then tags. Even after a candidate * is found, searching continues till best candidate found. Best way * to check if conditions: work it out independently for yourself! *---------------------------------------------------------------------------*/ int DFIfind(dfile, tag, ref, isfirst, ltag, lref, cDLEp, cddp) DF *dfile; DFdle **cDLEp; int *cddp; int isfirst; /* 1 if no prev search, 0 otherwise */ uint16 tag, ref, ltag, lref; { DFdle *DLEp; int i, found = 0; uint16 ctag = 0, cref = 0, wtag, wref; /* ctag, cref: tag, ref found so far */ /* wtag, wref: tag, ref being checked */ if (isfirst) { search_tag = tag; search_ref = ref; } DLEp = dfile->list; /* start of DLE list */ if (tag && ref) { /* No wildcards */ if (isfirst) { /* if not already found */ while (DLEp) { /* go through list */ for (i = 0; i < DLEp->ddh.dds; i++) { /* for all DDs */ if (DLEp->dd[i].tag == tag && DLEp->dd[i].ref == ref) { *cDLEp = DLEp; *cddp = i; return (0); } } DLEp = DLEp->next; } } } else if (tag && !ref) /* wildcard ref */ while (DLEp) { for (i = 0; i < DLEp->ddh.dds; i++) { wtag = DLEp->dd[i].tag; wref = DLEp->dd[i].ref; /* condition = tag match, better than found so far (if any), follows what was returned last time (if any) */ if ((wtag == tag) && (!found || (wref < cref)) && (isfirst || (wref > lref))) { ctag = wtag; cref = wref; *cDLEp = DLEp; *cddp = i; found = 1; } } DLEp = DLEp->next; } else if (!tag && ref) /* wildcard tag */ while (DLEp) { for (i = 0; i < DLEp->ddh.dds; i++) { wtag = DLEp->dd[i].tag; wref = DLEp->dd[i].ref; if ((wref == ref) && (isfirst || (wtag > ltag)) && (!found || (wtag < ctag))) { ctag = wtag; cref = wref; *cDLEp = DLEp; *cddp = i; found = 1; } } DLEp = DLEp->next; } else if (!tag && !ref) /* wildcard tag & ref */ while (DLEp) { for (i = 0; i < DLEp->ddh.dds; i++) { wtag = DLEp->dd[i].tag; wref = DLEp->dd[i].ref; if ((isfirst || (wref > lref) || (wref == lref && wtag > ltag)) && (!found || (wref < cref) || (wref == cref && wtag < ctag)) && (wtag != DFTAG_NULL)) /* empty DDs are invisible */ { ctag = wtag; cref = wref; *cDLEp = DLEp; *cddp = i; found = 1; } } DLEp = DLEp->next; } return (found - 1); /* 0 or -1 */ } /*----------------------------------------------------------------------------- * Name: DFIemptyDD * Purpose: find an empty DD to use, or create a block of DDs if necessary * Inputs: dfile: pointer to open DF file * Returns: pointer to an empty DD * Invokes: DFIfind * Users: HDF system programmers, DFaccess, DFdup *---------------------------------------------------------------------------*/ DFdd * DFIemptyDD(dfile) DF *dfile; { DFdle *cDLEp; int cdd; if (!DFIfind(dfile, DFTAG_NULL, DFREF_WILDCARD, 1, 0, 0, &cDLEp, &cdd)) return (&(cDLEp->dd[cdd])); /* there is an empty DD */ else { /* add new DDH block */ int32 fpos; DFdle *p, *dle; DFddh ddh; DFdd dd; int j; char MYtbuf[12]; /* My own tbuf so that the content of DFtbuf will be preserved */ CKSEEKEND(dfile->file, (long) 0, 2, NULL); /* go to end of df */ fpos = (int32) DF_TELL(dfile->file); ddh.dds = dfile->defdds; /* Initialize ddh */ ddh.next = 0; dd.tag = DFTAG_NULL; /* and all DD's */ dd.ref = 0; #ifdef DF_STRUCTOK CKWRITE(&ddh, sizeof(DFddh), 1, dfile->file, NULL); #else /*DF_STRUCTOK */ { char *p; p = MYtbuf; INT16WRITE(p, ddh.dds); INT32WRITE(p, ddh.next); CKWRITE(MYtbuf, 6, 1, dfile->file, NULL); /* 6 = size of header */ } #endif /*DF_STRUCTOK */ for (j = 0; j < ddh.dds; j++) { #ifdef DF_STRUCTOK CKWRITE(&dd, sizeof(DFdd), 1, dfile->file, NULL); #else /*DF_STRUCTOK */ { char *p; p = MYtbuf; UINT16WRITE(p, dd.tag); UINT16WRITE(p, dd.tag); INT32WRITE(p, dd.offset); INT32WRITE(p, dd.length); CKWRITE(MYtbuf, 12, 1, dfile->file, NULL); /* 12=size of dd */ } #endif /*DF_STRUCTOK */ } p = dfile->list; /* find end of list */ while (p->next) p = p->next; p->ddh.next = fpos; /* new dd goes at end of file */ dle = (DFdle *) DFIgetspace((unsigned) (sizeof(DFdle) + (ddh.dds - 1) * sizeof(DFdd))); /* one dd included in dle */ CKMALLOC(dle, NULL); p->next = dle; /* insert dle at end of list */ dle->next = NULL; HDmemcpy((char *) &dle->ddh, (char *) &ddh, sizeof(DFddh)); for (j = 0; j < ddh.dds; j++) HDmemcpy((char *) &dle->dd[j], (char *) &dd, sizeof(DFdd)); return (&(dle->dd[0])); } return (NULL); /* dummy, for return value checking */ } /* Simplified version without the overhead. This is useful if you */ /* know that the args are okay, and if you need to read many time */ /* (like in a loop in DFSDIgetslice()) */ int32 DFIread(dfile, ptr, len) DF *dfile; char *ptr; int32 len; { int32 maxlen; maxlen = dfile->up_dd->length - ((int32) DF_TELL(dfile->file) - dfile->up_dd->offset); if (len > maxlen) len = maxlen; if (len < 0) { /* will also catch reads from beyond element */ DFerror = DFE_BADLEN; return (-1); } if (len) { /* NOTE: cast to (int) will limit to 64K on 16 bit m/cs */ CKREAD(ptr, (int) len, 1, dfile->file, -1); } return (len); } /* Simplified version without the overhead. This is useful if you */ /* know that the args are okay, and if you need to seek many time */ /* (like in a loop in DFSDIgetslice()) */ int32 DFIseek(dfile, offset) DF *dfile; int32 offset; { CKSEEK(dfile->file, (long) dfile->up_dd->offset + offset, 0, -1); return (offset); } #endif /* PERM_OUT */ /*----------------------------------------------------------------------------- * Name: DFIerr * Purpose: Close a file and return on error. save DFerror * Inputs: dfile: pointer to HDF file to close * Returns: -1 * Users: HDF systems programmers, for error handling * Invokes: DFclose * Remarks: Used to centralize some error handling *---------------------------------------------------------------------------*/ int DFIerr(DF * dfile) { int saveerror; saveerror = DFerror; if (dfile != NULL) (void) DFclose(dfile); DFerror = saveerror; return (-1); } /*----------------------------------------------------------------------------- * The following functions are stubs for the old routines from "dfkit.c". *---------------------------------------------------------------------------*/ #if !(defined IBM6000 | defined SUN) #include #endif void * DFIgetspace(uint32 qty) { void *ret; ret = (void *) HDmalloc(qty); DFerror = (int)HEvalue(1); return (ret); } void * DFIfreespace(void *ptr) { #ifdef MALLOC_CHECK return (HDfree(ptr)); #else HDfree(ptr); return (NULL); #endif } intn DFIc2fstr(char *str, int len) { return (HDc2fstr(str, len)); } char * DFIf2cstring(_fcd fdesc, intn len) { return (HDf2cstring(fdesc, len)); } libhdf4-4.2.10/HDF_ALT/hdf/src/hfileff.f0000644000000000000000000001673712421456623014226 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: hfileff.f 4964 2007-09-15 23:32:35Z epourmal $ C C------------------------------------------------------------------------------ C File: hfileFf.f C Purpose: Fortran stubs for Palette Fortran routines C Invokes: hfileF.c C Contents: C hopen: Call hiopen to open file C hnumber: Call hnumber C Remarks: none C----------------------------------------------------------------------------*/ C------------------------------------------------------------------------------ C Name: hopen C Purpose: call hiopen, open file C Inputs: path: Name of file to be opened C access: DFACC_READ, DFACC_WRITE, DFACC_CREATE, C or any bitwise-or of the above. C ndds: Number of dds in header block if file needs to be created. C Returns: 0 on success, FAIL on failure with error set C Users: Fortran stub routine C Invokes: hiopen C----------------------------------------------------------------------------*/ integer function hopen(filename, access, defdds) character*(*) filename integer access, defdds, hiopen hopen = hiopen(filename, access, defdds, len(filename)) return end C------------------------------------------------------------------------------ C Name: hxsdir C Purpose: call hxisdir to set directory variable for locating an external file C Inputs: dir: names of directory separated by colons. C Returns: SUCCEED if no error, else FAIL C Users: Fortran stub routine C Invokes: hxisdir C----------------------------------------------------------------------------*/ integer function hxsdir(dir) character*(*) dir integer hxisdir hxsdir = hxisdir(dir, len(dir)) return end C------------------------------------------------------------------------------ C Name: hxscdir C Purpose: call hxiscdir to set directory variable for creating an external file C Inputs: dir: name of the directory C Returns: SUCCEED if no error, else FAIL C Users: Fortran stub routine C Invokes: hxiscdir C----------------------------------------------------------------------------*/ integer function hxscdir(dir) character*(*) dir integer hxiscdir hxscdir = hxiscdir(dir, len(dir)) return end C----------------------------------------------------------------------------- C Name: hglibver C Purpose: retrieves the version information for the current HDF library C Outputs: major_v - major version number C minor_v - minor version number C release - release number C string - version number test string C Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise C-----------------------------------------------------------------------------*/ integer function hglibver(major_v, minor_v, release, string) integer major_v, minor_v, release character*(*) string integer hglibverc hglibver = hglibverc(major_v, minor_v, release, string, . len(string)) return end C----------------------------------------------------------------------------- C Name: hgfilver C Purpose: retrieves the version information for the current HDF library C Inputs: file_id - file identifier C Outputs: major_v - major version number C minor_v - minor version number C release - release number C string - version number test string C Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise C-----------------------------------------------------------------------------*/ integer function hgfilver(file_id, major_v, minor_v, release, . string) integer file_id, major_v, minor_v, release character*(*) string integer hgfilverc hgfilver = hgfilverc(file_id, major_v, minor_v, release, string, . len(string)) return end C------------------------------------------------------------------------------ C Name: hishdff C Purpose: Identifies if the file "file_name" is an HDF file. C Inputs: file_name: File name C Returns: TRUE (1) if successful, FALSE (0) otherwise. C Invokes: hiopen C----------------------------------------------------------------------------*/ integer function hishdff(filename) character*(*) filename integer hiishdf hishdff = hiishdf(filename, len(filename)) return end C----------------------------------------------------------------------------- C Name: hestringf C Purpose: retrieves the error message associated with the specified error code C Inputs: error_code C Outputs: error_message - string associated with the error code C Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise C-----------------------------------------------------------------------------*/ integer function hestringf(error_code, error_message) integer error_code character*(*) error_message integer hestringc hestringf = hestringc(error_code, error_message, . len(error_message)) return end C----------------------------------------------------------------------------- C Name: heprntf C Purpose: prints values from the error stack C Inputs: filename - name of the output file; if length of the C filename is 0, then output goes to stdout. C print_levels - number of levels to print C Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise C C Remarks: This routine always prints to the standard output. C-----------------------------------------------------------------------------*/ integer function heprntf(filename, print_levels) integer print_levels character*(*) filename integer heprntc heprntf = heprntc(filename, print_levels,len(filename)) return end C----------------------------------------------------------------------------- C Name: hconfinf C Purpose: return info about configuration of a compression method C Inputs: coder_type - the compression type queried C info - flag to indicate compression status C 0 - no compression found C 1 - decoder only found C 3 - both decoder and encoder found C Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise C C Currently this routine is used with SZIP compression only C-----------------------------------------------------------------------------*/ integer function hconfinf(coder_type, info) integer coder_type, info integer hconfinfc hconfinf = hconfinfc(coder_type, info) return end libhdf4-4.2.10/HDF_ALT/hdf/src/herrf.c0000644000000000000000000001040012421456623013703 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: herrf.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: herrf.c * Purpose: C stubs for error-handling Fortran routines * Invokes: herr.c. * Contents: * heprnt_: Call HEprint to print error message * Remarks: none *---------------------------------------------------------------------------*/ #include "hdf.h" #include "hproto_fortran.h" /*----------------------------------------------------------------------------- * Name: heprnt * Purpose: call HEprint to print error messages, starting from top of stack * Inputs: print_levels: number of levels to print * Returns: 0 on success, FAIL on failure * Users: Fortran stub routine * Invokes: HEprint * Remarks: This routine has one less parameter than HEprint, because it * doesn't allow the user to specify the stream to print to. * Instead it prints automatically to stdout. *---------------------------------------------------------------------------*/ FRETVAL(VOID) nheprnt(intf * print_levels) { HEprint(stderr, *print_levels); } /*----------------------------------------------------------------------------- * Name: heprntc * Purpose: call HEprint to print error messages, starting from top of stack * Inputs: print_levels: number of levels to print * Returns: 0 on success, FAIL on failure * Users: Fortran stub routine * Invokes: HEprint * Remarks: This routine has one less parameter than HEprint, because it * doesn't allow the user to specify the stream to print to. * Instead it prints automatically to stdout. *---------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nheprntc(_fcd filename, intf * print_levels, intf *namelen) #else nheprntc(filename, print_levels, namelen) _fcd filename; intf *print_levels; intf *namelen; #endif /* PROTOTYPE */ { FILE *err_file; char * c_name; intn c_len; int ret = 0; c_len = *namelen; if(c_len == 0) { HEprint(stderr, *print_levels); return(ret); } c_name = HDf2cstring(filename, c_len); if (!c_name) return(FAIL); err_file = fopen(c_name, "a"); if (!err_file) return(FAIL); HEprint(err_file, *print_levels); fclose(err_file); return(ret); } /*----------------------------------------------------------------------------- * Name: hestringc * Purpose: Calls HEstring * Inputs: error_code - HDF error code * Outputs: error_message - error message assocoated with the error code * Retruns: SUCCEED (0) if successful and FAIL(-1) otherwise *----------------------------------------------------------------------------*/ FRETVAL(intf) #ifdef PROTOTYPE nhestringc(intf *error_code, _fcd error_message, intf *len) #else nhestringc(error_code, error_message, len) intf *error_code; _fcd error_message; intf *len; #endif /* PROTOTYPE */ { char *cstring = NULL; intn status; status = -1; cstring = (char *)HEstring((hdf_err_code_t) *error_code); if (cstring) { status = 0; HDpackFstring(cstring, _fcdtocp(error_message), *len); } return status; } libhdf4-4.2.10/HDF_ALT/hdf/src/cdeflate.h0000644000000000000000000000723612421456623014366 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cdeflate.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: cdeflate.h * Purpose: Header file for gzip 'deflate' encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for gzip 'deflate' encoding. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CDEFLATE_H #define __CDEFLATE_H /* Get the gzip 'deflate' header */ #define intf zintf #include "zlib.h" #undef zintf #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from cdeflate.c */ extern int32 HCPcdeflate_stread (accrec_t * rec); extern int32 HCPcdeflate_stwrite (accrec_t * rec); extern int32 HCPcdeflate_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcdeflate_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcdeflate_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcdeflate_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcdeflate_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* Define the [default] size of the buffer to interact with the file. */ #define DEFLATE_BUF_SIZE 4096 #define DEFLATE_TMP_BUF_SIZE 16384 /* gzip [en|de]coding information */ typedef struct { intn deflate_level; /* how hard to try to compress this data */ int32 offset; /* offset in the de-compressed array */ intn acc_init; /* is access mode initialized? */ int16 acc_mode; /* access mode desired */ void * io_buf; /* buffer for I/O with the file */ z_stream deflate_context; /* pointer to the deflation context for each byte in the element */ } comp_coder_deflate_info_t; #ifndef CDEFLATE_MASTER extern funclist_t cdeflate_funcs; /* functions to perform gzip encoding */ #else funclist_t cdeflate_funcs = { /* functions to perform gzip encoding */ HCPcdeflate_stread, HCPcdeflate_stwrite, HCPcdeflate_seek, HCPcdeflate_inquire, HCPcdeflate_read, HCPcdeflate_write, HCPcdeflate_endaccess }; #endif #endif /* __CDEFLATE_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dynarray.h0000644000000000000000000001347712421456623014454 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dynarray.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dynarray.h * Purpose: header file for dynamic array API * Dependencies: * Invokes: * Contents: * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __DYNARRAY_H #define __DYNARRAY_H #include "hdf.h" /* Define the pointer to the dynarray without giving outside routines access to the internal workings of the structure. */ typedef struct dynarray_tag *dynarr_p; #if defined DYNARRAY_MASTER | defined DYNARRAY_TESTER typedef struct dynarray_tag { intn num_elems; /* Number of elements in the array currently */ intn incr_mult; /* Multiple to increment the array size by */ VOIDP *arr; /* Pointer to the actual array of void *'s */ }dynarr_t; #endif /* DYNARRAY_MASTER | DYNARRAY_TESTER */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /****************************************************************************** NAME DAcreate_array - Create a dynarray DESCRIPTION Create a dynarray for later use. This routine allocates the dynarray structure and creates a dynarray with the specified minimum size. RETURNS Returns pointer to the dynarray created if successful and NULL otherwise *******************************************************************************/ dynarr_p DAcreate_array(intn start_size, /* IN: Initial array size */ intn incr_mult /* IN: multiple to create additional elements in */ ); /****************************************************************************** NAME DAdestroy_array - Destroy a dynarray DESCRIPTION Destroy an existing dynarray from use. This routine de-allocates the dynarray structure and deletes the current dynarray. RETURNS Returns SUCCEED if successful and FAIL otherwise *******************************************************************************/ intn DAdestroy_array(dynarr_p arr, /* IN: Array to destroy */ intn free_elem /* IN: whether to free each element */ ); /****************************************************************************** NAME DAdestroy_array - Get the current size of a dynarray DESCRIPTION Get the number of elements in use currently. RETURNS Returns # of dynarray elements if successful and FAIL otherwise *******************************************************************************/ intn DAsize_array(dynarr_p arr /* IN: Array to get size of */ ); /****************************************************************************** NAME DAget_elem - Get an element from a dynarray DESCRIPTION Retrieve an element from a dynarray. If the element to be retrieved is beyond the end of the currently allocated array elements, the array is not extended, a NULL pointer is merely returned. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ VOIDP DAget_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem /* IN: Array element to retrieve */ ); /****************************************************************************** NAME DAset_elem - Set an element pointer for a dynarray DESCRIPTION Set an element pointer for a dynarray. If the element to be set is beyond the end of the currently allocated array elements, the array is extended by whatever multiple of the incr_mult is needed to expand the # of array elements to include the array element to set. RETURNS Returns SUCCEED if successful and NULL otherwise *******************************************************************************/ intn DAset_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem, /* IN: Array element to set */ VOIDP obj /* IN: Pointer to the object to store */ ); /***************************************************************************** NAME DAdel_elem - Delete an element from a dynarray DESCRIPTION Retrieve an element from a dynarray & delete it from the dynarray. If the element to be retrieved is beyond the end of the currently allocated array elements, the array is not extended, a NULL pointer is merely returned. RETURNS Returns object ptr if successful and NULL otherwise *******************************************************************************/ VOIDP DAdel_elem(dynarr_p arr_ptr, /* IN: Array to access */ intn elem /* IN: Array element to retrieve */ ); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* __DYNARRAY_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfcomp.c0000644000000000000000000003533412421456623014062 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: dfcomp.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: dfcomp.c * Purpose: File compression * Invokes: df.c dfimcomp.c df.h * Contents: * DFputcomp: compress image and write it to HDF file * DFgetcomp: read compressed image from HDF file and decompress it * DFCrle: compress string using run length encoding * DFCunrle: decompress string using run length encoding * Remarks: DFgetcomp and DFputcomp constitute a general compression interface *---------------------------------------------------------------------------*/ /* This module (dfcomp.c) used to be in */ /* charge of the general compression information */ /* but hcomp.c now supercedes it. */ #include "hdf.h" #define R8_MAX_BLOCKS 32 #define R8_MAX_LENGTH 512 /*----------------------------------------------------------------------------- * Name: DFputcomp * Purpose: Compress and write images to HDF file * Inputs: file_id: pointer to HDF file * tag, ref: tag, ref of compressed image for writing out * image: image to be compressed * xdim, ydim: dimensions of image * palette: palette associated with image * newpal: modified palette, produced if compression scheme is IMCOMP * scheme: compression scheme to be used * cinfo: additional information needed for compression * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF programmers, DF8putrig, other routines * Invokes: DFCrle, DFCimcomp, DFaccess, DFwrite, DFIcheck * Remarks: IMCOMP modifies the palette associated with the image * Hence the palette and newpal arguments * This is a general compression interface - to be used anytime image * compression is needed in HDF * Note that rseq does its own compression, because that is part of * the interactive color raster protocol * The space needed for compression and decompression can be allocated * statically or dynamically, depending on the DF_DYNAMIC flag, and * for entire image or part of it (reused) depending on availability * Accordingly, writing out is whole image, or row by row * Note that compression is always row by row for RLE. *---------------------------------------------------------------------------*/ intn DFputcomp(int32 file_id, uint16 tag, uint16 ref, const uint8 *image, int32 xdim, int32 ydim, uint8 *palette, uint8 *newpal, int16 scheme, comp_info * cinfo) { CONSTR(FUNC, "DFputcomp"); uint8 *buffer; /* buffer to hold compressed image */ const uint8 *in; /* pointer to input for compression */ uint8 *out; /* pointer to space for compressed output */ int32 cisize; /* maximum size of compressed image */ int32 crowsize; /* maximum size of compressed row */ intn buftype; /* buftype = 1: buffer enough for whole image */ /* buftype = 2: buffer holds 1 row */ int32 n; /* number of compressed bytes produced */ int32 total; /* total compressed bytes produced so far */ int32 i; int32 ret = 0; int32 aid = 0; if (!HDvalidfid(file_id) || !tag || !ref || xdim <= 0 || ydim <= 0 || !image) HRETURN_ERROR(DFE_ARGS, FAIL); switch (scheme) { case DFTAG_RLE: /* RLE compression (8-bit or 24-bit(?) images */ cisize = ydim * (xdim * 121 / 120 + 1); /* 120 chars can compress to 121! */ crowsize = xdim * 121 / 120 + 128; /* allocate buffer for compression */ buffer = (uint8 *) HDmalloc((uint32) cisize); if (!buffer) { buffer = (uint8 *) HDmalloc((uint32) crowsize); if (!buffer) HRETURN_ERROR(DFE_NOSPACE, FAIL); buftype = 2; /* compress and write out row by row */ } else /* can hold whole image, then write */ buftype = 1; in = image; out = buffer; n = total = 0; /* no bytes compressed so far */ if (buftype == 2) { int32 num_blocks; int32 block_length; num_blocks = (ydim > (int32) R8_MAX_BLOCKS) ? (int32) R8_MAX_BLOCKS : ydim; block_length = (xdim > (int32) R8_MAX_LENGTH) ? (int32) R8_MAX_LENGTH : xdim; aid = HLcreate(file_id, tag, ref, block_length, num_blocks); if (aid == FAIL) return FAIL; } /* compress row by row */ for (i = 0; i < ydim; i++) { n = DFCIrle(in, out, xdim); /* compress row */ in += xdim; /* move input pointer */ total += n; /* keep running total */ if (buftype == 1) /* can hold whole image */ out = &buffer[total]; /* move out buffer pointer */ else { /* buffer too small, */ /* write out what was produced */ if (Hwrite(aid, n, buffer) == FAIL) { ret = FAIL; /* flag value */ break; } out = buffer; /* reset output pointer */ } } if (buftype == 1) { /* write out entire image */ ret = Hputelement(file_id, tag, ref, buffer, total); HDfree((VOIDP) buffer); } break; case DFTAG_IMC: /* IMCOMP compression (8-bit images) */ if (!palette || !newpal) /* need palette and newpal */ HRETURN_ERROR(DFE_ARGS, FAIL); cisize = xdim * ydim / 4; /* IMCOMP always cuts to 1/4 */ buffer = (uint8 *) HDmalloc((uint32) cisize); if (!buffer) HRETURN_ERROR(DFE_NOSPACE, FAIL); DFCIimcomp(xdim, ydim, image, buffer, palette, newpal, 0); ret = Hputelement(file_id, tag, ref, buffer, cisize); HDfree((VOIDP) buffer); break; case DFTAG_JPEG5: /* JPEG compression (for 24-bit images) */ case DFTAG_GREYJPEG5: /* JPEG compression (for 8-bit images) */ ret = DFCIjpeg(file_id, tag, ref, xdim, ydim, image, scheme, cinfo); break; default: /* unknown compression scheme */ HRETURN_ERROR(DFE_BADSCHEME, FAIL) } return ((intn) ret); } /* end DFputcomp() */ /*----------------------------------------------------------------------------- * Name: DFgetcomp * Purpose: Read compressed image and decompress it * Inputs: file_id: HDF file pointer * tag, ref: id of image to be decompressed * image: space to return decompressed image in * xdim, ydim: dimensions of decompressed image * scheme: compression scheme used * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF programmers, DF8getrig, other routines * Invokes: DFIcheck, DFIfind, DFaccess, DFread, DFCunrle, DFCunimcomp * Remarks: Will use dynamic/static memory allocation for buffer * will read in image in parts if memory insufficient * Decompression of rle is not necessarily row by row * Other encodings can also be decoded with this *---------------------------------------------------------------------------*/ int DFgetcomp(int32 file_id, uint16 tag, uint16 ref, uint8 *image, int32 xdim, int32 ydim, uint16 scheme) { CONSTR(FUNC, "DFgetcomp"); uint8 *buffer; uint8 *in; uint8 *out; int32 cisize, crowsize, buflen, bufleft; /* bufleft: bytes left in buffer */ int32 i; int32 totalread; int32 n; int32 aid; if (!HDvalidfid(file_id) || !tag || !ref || xdim <= 0 || ydim <= 0 || !image) HRETURN_ERROR(DFE_ARGS, FAIL); /* put this call up here instead of in switch statement, to make the */ /* code easier to follow */ if (scheme == DFTAG_JPEG5 || scheme == DFTAG_GREYJPEG5 || scheme==DFTAG_JPEG || scheme==DFTAG_GREYJPEG) return (DFCIunjpeg(file_id, tag, ref, (VOIDP) image, xdim, ydim, (int16)scheme)); /* Only do this stuff for non-JPEG compressed images */ aid = Hstartread(file_id, tag, ref); if (aid == FAIL) HRETURN_ERROR(DFE_NOMATCH, FAIL); if (Hinquire(aid, (int32 *) NULL, (uint16 *) NULL, (uint16 *) NULL, &cisize, (int32 *) NULL, (int32 *) NULL, (int16 *) NULL, (int16 *) NULL) == FAIL) return FAIL; switch (scheme) { case DFTAG_RLE: crowsize = xdim * 121 / 120 + 128; /* max size of a row */ buffer = (uint8 *) HDmalloc((uint32) cisize); if (!buffer) { buffer = (uint8 *) HDmalloc((uint32) crowsize); if (!buffer) { Hendaccess(aid); HRETURN_ERROR(DFE_NOSPACE, FAIL) } /* end if */ buflen = crowsize; } /* end if */ else buflen = cisize; in = buffer; out = image; if ((n = Hread(aid, buflen, in)) < 0) { HDfree((VOIDP) buffer); Hendaccess(aid); HRETURN_ERROR(DFE_READERROR, FAIL) } /* end if */ totalread = n; bufleft = n; for (i = 0; i < ydim; i++) { n = DFCIunrle(in, out, xdim, !i); /* no of bytes used up */ /* last arg=TRUE if i=0 - resets decompress */ in += n; out += xdim; bufleft -= n; /* check if more bytes may be needed for next read */ if ((bufleft < crowsize) && (totalread < cisize)) { HDmemcpy(buffer, in, (size_t) bufleft); in = buffer; if ((n = Hread(aid, buflen - bufleft, (uint8 *) &in[bufleft])) < 0) { HDfree((VOIDP) buffer); Hendaccess(aid); HRETURN_ERROR(DFE_READERROR, FAIL) } /* end if */ totalread += n; bufleft += n; } /* end if */ } /* end for */ Hendaccess(aid); HDfree((VOIDP) buffer); break; case DFTAG_IMC: crowsize = xdim; /* size of compressed row */ buffer = (uint8 *) HDmalloc((uint32) cisize); if (!buffer) { buffer = (uint8 *) HDmalloc((uint32) crowsize); if (!buffer) { Hendaccess(aid); HRETURN_ERROR(DFE_NOSPACE, FAIL) } /* end if */ buflen = crowsize; } /* end if */ else buflen = cisize; if (buflen >= cisize) { if (Hread(aid, cisize, buffer) < cisize) { HDfree((VOIDP) buffer); Hendaccess(aid); HRETURN_ERROR(DFE_READERROR, FAIL) } /* end if */ /* HDfree(buffer); */ Hendaccess(aid); DFCIunimcomp(xdim, ydim, buffer, image); HDfree((VOIDP) buffer); break; /* go to end of switch */ } /* end if */ in = buffer; /* if can only read piecemeal */ out = image; if ((n = Hread(aid, buflen, in)) < 0) { HDfree((VOIDP) buffer); Hendaccess(aid); HRETURN_ERROR(DFE_READERROR, FAIL) } /* end if */ totalread = n; bufleft = n; for (i = 0; i < ydim; i += 4) { DFCIunimcomp(xdim, (int32) 4, in, out); in += xdim; out += 4 * xdim; bufleft -= xdim; if ((bufleft < crowsize) && (totalread < cisize)) { HDmemcpy(buffer, in, (size_t) bufleft); in = buffer; if ((n = Hread(aid, buflen - bufleft, (uint8 *) &in[bufleft])) < 0) { HDfree((VOIDP) buffer); Hendaccess(aid); HRETURN_ERROR(DFE_READERROR, FAIL) } /* end if */ totalread += n; bufleft += n; } /* end if */ } /* end for */ HDfree((VOIDP) buffer); Hendaccess(aid); break; default: /* unknown scheme */ HRETURN_ERROR(DFE_ARGS, FAIL) } /* end switch */ return SUCCEED; } /* end DFgetcomp() */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfanf.c0000644000000000000000000004222312421456623013663 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5322 $"; #endif /* $Id: dfanf.c 5322 2010-01-19 06:26:11Z brtnfld $ */ /*----------------------------------------------------------------------------- * File: dfanF.c * Purpose: Fortran stubs for annotation routines * Invokes: dfan.c dfkit.c * Contents: * * daiganl_ : get length of annotation of tag/ref * daigann_ : get annotation of tag/ref * daipann_ : put annotation of tag/ref * dailist_ : get list of refs and labels for a given tag * dalref_ : return last ref written or read * daclear_ : reset annotation internal structures * dfanlastref_ : return last ref written or read * * dfanaddfds_ : add file description * dfangetfidlen_ : get length of file id * dfangetfdslen_ : get length of file description * dfangetfid_ : get file id * dfangetfds_ : get file description * daafds_ : get file description * dagfidl_ : get file id length * dagfdsl_ : get file description length * dagfid_ : get file id * dagfds_ : get file description * * daiafid_ : add file id (intermediate routine) *---------------------------------------------------------------------------*/ #include "dfan.h" #include "df.h" #include "hproto_fortran.h" /* conventions used in forming names of routines: ** ** dfan: hdf annotation routine (addfds) ** add: add item to file dfanfds ** get: get item from file dfanfds ** f: file dfanaddds ** id: id dfanaddf ** ds: description dfanaddf ** len: length dfanaddfid ** l: length (short forms) dagfid ** da: dfan (short forms) gfid ** a: add (short forms) dafds ** g: get (short forms) dafds ** i: intermediate routine (not in user interface) daafid * */ /*--------------------------------------------------------------------------- ** Routines for handling tag/ref (not file) annotations *-------------------------------------------------------------------------*/ /*--------------------------------------------------------------------------- * Name: daclear * Purpose: Call DFANIclear to clear Lastref and DFANdir[i] * Inputs: none * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF Fortran programmers * Invokes: DFSDIclear *-------------------------------------------------------------------------*/ FRETVAL(intf) ndaclear(void) { return(DFANIclear()); } /*----------------------------------------------------------------------------- * Name: daiganl * Purpose: get length of annotation of tag/ref * Inputs: filename: name of HDF file * tag, ref: tag/ref of item of which we want label * type: DFAN_LABEL if label, DFAN_DESC if description * fnlen: length of filename * Returns: length of annotation on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetannlen, HDf2cstring, DFIfreespace *---------------------------------------------------------------------------*/ FRETVAL(intf) ndaiganl(_fcd filename, intf * tag, intf * ref, intf * type, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFANIgetannlen(fn, (uint16) *tag, (uint16) *ref, (intn) *type); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: daigann * Purpose: get annotation of tag/ref * Inputs: filename: name of HDF file * tag, ref: tag/ref of item of which we want label * annotation: space to return label in * maxlen: size of space to return label in * type: DFAN_LABEL if label, DFAN_DESC if description * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndaigann(_fcd filename, intf * tag, intf * ref, _fcd annotation, intf * maxlen, intf * type, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFANIgetann(fn, (uint16) *tag, (uint16) *ref, (uint8 *) _fcdtocp(annotation), (int32) *maxlen, (intn) *type, 1); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: daipann * Purpose: put annotation of tag/ref * Inputs: filename: name of HDF file * tag, ref: tag/ref of item of which we want label * annotation: space to return label in * annlen: length of annotation * type: DFAN_LABEL if label, DFAN_DESC if description * fnlen: length of filename * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndaipann(_fcd filename, intf * tag, intf * ref, _fcd annotation, intf * annlen, intf * type, intf * fnlen) { char *fn; intf ret; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); ret = DFANIputann(fn, (uint16) *tag, (uint16) *ref, (uint8 *) _fcdtocp(annotation), (int32) *annlen, (intn) *type); HDfree((VOIDP) fn); return (ret); } /*----------------------------------------------------------------------------- * Name: dailist * Purpose: Return list of refs and labels for a given tag * Inputs: filename: name of HDF file * tag: tag to get list of refs and labels for * reflist: array to place refs in * labellist: array of strings to place labels in * listsize: size of ref and label lists * maxlen: maximum length allowed for label * startpos: beginning from the startpos'th entry, upto listsize * entries will be returned. * fnlen: length of filename * Returns: number of entries on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFANIlablist * Method: call DFANIlablist * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndailist(_fcd filename, intf * tag, intf reflist[], _fcd labellist, intf * listsize, intf * maxlen, intf * startpos, intf * fnlen) { char *fn; int i; intf nrefs; uint16 *tempreflist; fn = HDf2cstring(filename, (intn) *fnlen); if (!fn) return(-1); /* create reflist with true uint16s to maintain compatibility ** with machines that allocate more than 16 bits per uint16. */ tempreflist = (uint16 *) HDmalloc((size_t) (*listsize) * sizeof(uint16)); /* 1 for isfortran */ nrefs = DFANIlablist(fn, (uint16) *tag, tempreflist, (uint8 *) _fcdtocp(labellist), (int) *listsize, (int) *maxlen, (int) *startpos, 1); if (nrefs < 0) return FAIL; /* move ref numbers into caller's reflist */ for (i = 0; i < *listsize; i++) reflist[i] = (intf)tempreflist[i]; HDfree((VOIDP) fn); HDfree((VOIDP) tempreflist); return (nrefs); } /*----------------------------------------------------------------------------- * Name: dalref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFANlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndalref(void) { return ((intf)DFANlastref()); } /*----------------------------------------------------------------------------- * Name: dfanlastref * Purpose: Return last ref written or read * Inputs: none * Globals: Lastref * Returns: ref on success, -1 on error with DFerror set * Users: HDF users, utilities, other routines * Invokes: DFANlastref * Remarks: none *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfanlastref(void) { return ((intf)DFANlastref()); } /*--------------------------------------------------------------------------- ** Routines for handling file annotations *-------------------------------------------------------------------------*/ /*----------------------------------------------------------------------------- * Name: dfanaddfds * Purpose: add file description (Fortran callable C version) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANaddfileann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfanaddfds(intf * dfile, _fcd desc, intf * desclen) { return (DFANIaddfann(*dfile, _fcdtocp(desc), *desclen, DFAN_DESC)); } /*----------------------------------------------------------------------------- * Name: dfangetfidlen * Purpose: get length of next file ID (Fortran callable C version) * Inputs: dfile: pointer to HDF file * isfirst: 1: start with first one; 0: get length of next one * Returns: On success: length of next file ID; On failure: -1, with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetfannlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfangetfidlen(intf * dfile, intf * isfirst) { return (DFANIgetfannlen(*dfile, DFAN_LABEL, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dfangetfdslen * Purpose: get length of next file description (Fortran callable C version) * Inputs: dfile: pointer to HDF file * isfirst: 1: start with first one; 0: get length of next one * Returns: On success: length of next file ID; On failure: -1, with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetfannlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfangetfdslen(intf * dfile, intf * isfirst) { return (DFANIgetfannlen(*dfile, DFAN_DESC, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dfangetfid * Purpose: get file ID (Fortran callable C version) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANgetfann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfangetfid(intf * dfile, _fcd id, intf * maxlen, intf * isfirst) { return (DFANIgetfann(*dfile, _fcdtocp(id), *maxlen, DFAN_LABEL, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dfangetfds * Purpose: get file description (Fortran callable C version) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANgetfann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndfangetfds(intf * dfile, _fcd id, intf * maxlen, intf * isfirst) { return (DFANIgetfann(*dfile, _fcdtocp(id), *maxlen, DFAN_DESC, (intn) *isfirst)); } /*----------------------------------------------------------------------------- ** Versions with short names **---------------------------------------------------------------------------*/ /*----------------------------------------------------------------------------- * Name: daafds * Purpose: add file description (short form of DFANaddfds; Fortran callable) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANaddfileann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndaafds(intf * dfile, _fcd desc, intf * desclen) { return (DFANIaddfann(*dfile, _fcdtocp(desc), *desclen, DFAN_DESC)); } /*----------------------------------------------------------------------------- * Name: dagfidl * Purpose: get length of next file ID * Inputs: dfile: pointer to HDF file * isfirst: 1: start with first one; 0: get length of next one * Returns: On success: length of next file ID; On failure: -1, with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetfannlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndagfidl(intf * dfile, intf * isfirst) { return (DFANIgetfannlen(*dfile, DFAN_LABEL, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dagfdsl * Purpose: get length of next file description (Fortran callable C version) * Inputs: dfile: pointer to HDF file * isfirst: 1: start with first one; 0: get length of next one * Returns: On success: length of next file ID; On failure: -1, with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetfannlen *---------------------------------------------------------------------------*/ FRETVAL(intf) ndagfdsl(intf * dfile, intf * isfirst) { return (DFANIgetfannlen(*dfile, DFAN_DESC, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dagfid * Purpose: get file ID (short form of DFANgetfid; Fortran callable version) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANIgetfann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndagfid(intf * dfile, _fcd id, intf * maxlen, intf * isfirst) { return (DFANIgetfann(*dfile, _fcdtocp(id), *maxlen, DFAN_LABEL, (intn) *isfirst)); } /*----------------------------------------------------------------------------- * Name: dagfds * Purpose: get file description * (short form of DFANgetfds; Fortran callable C version) * Inputs: dfile: pointer to HDF file * desc: description to write to file * desclen: length of description * Returns: 0 on success, -1 on failure with DFerror set * Users: HDF HLL users, utilities, other routines * Invokes: DFANgetfann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndagfds(intf * dfile, _fcd id, intf * maxlen, intf * isfirst) { return (DFANIgetfann(*dfile, _fcdtocp(id), *maxlen, DFAN_DESC, (intn) *isfirst)); } /*----------------------------------------------------------------------------- ** Intermediate routines called from user's fortran routines **---------------------------------------------------------------------------*/ /*----------------------------------------------------------------------------- * Name: daiafid * Purpose: intermediate routine to add file ID (Fortran callable C version) * Inputs: dfile: pointer to HDF file * id: ID to write to file * idlen: length of ID string * Returns: 0 on success, -1 on failure with DFerror set * Users: Fortran user routines DFANaddfid and daafid * Invokes: DFANaddfann *---------------------------------------------------------------------------*/ FRETVAL(intf) ndaiafid(intf * dfile, _fcd id, intf * idlen) { return (DFANIaddfann(*dfile, _fcdtocp(id), *idlen, DFAN_LABEL)); } libhdf4-4.2.10/HDF_ALT/hdf/src/tbbt.h0000644000000000000000000003704212421456623013550 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: tbbt.h 6043 2014-01-21 21:09:03Z acheng $ */ /* "tbbt.h" -- Data types/routines for threaded, balanced, binary trees. */ /* Extended from Knuth 6.2.3, Algorithm A */ #ifndef TBBT_H #define TBBT_H #include "H4api_adpt.h" #ifdef lint /* lint always complains but may complain more if... */ # define TBBT_INTERNALS /* TBBT_INTERNALS not always defined */ #endif /* lint */ typedef struct tbbt_node TBBT_NODE; /* Threaded node structure */ struct tbbt_node { VOIDP data; /* Pointer to user data to be associated with node */ VOIDP key; /* Field to sort nodes on */ #ifdef TBBT_INTERNALS # define PARENT 0 # define LEFT 1 # define RIGHT 2 TBBT_NODE *link[3]; /* Pointers to parent, left child, and right child */ # define Parent link[PARENT] # define Lchild link[LEFT] # define Rchild link[RIGHT] # define TBBT_FLAG unsigned long # define TBBT_LEAF unsigned long TBBT_FLAG flags; /* Combination of the following bit fields: */ # define TBBT_HEAVY(s) s /* If the `s' sub-tree is deeper than the other */ # define TBBT_DOUBLE 4 /* If "heavy" sub-tree is two levels deeper */ # define TBBT_INTERN 8 /* If node is internal (has two children) */ # define TBBT_UNBAL ( TBBT_HEAVY(LEFT) | TBBT_HEAVY(RIGHT) ) # define TBBT_FLAGS ( TBBT_UNBAL | TBBT_INTERN | TBBT_DOUBLE ) # define TBBT_CHILD(s) ( TBBT_INTERN | TBBT_HEAVY(s) ) TBBT_LEAF lcnt; /* count of left children */ TBBT_LEAF rcnt; /* count of right children */ # define LeftCnt(node) ( (node)->lcnt ) /* Left descendants */ # define RightCnt(node) ( (node)->rcnt ) /* Left descendants */ # define Cnt(node,s) ( LEFT==(s) ? LeftCnt(node) : RightCnt(node) ) # define HasChild(n,s) ( Cnt(n,s)>0 ) # define Heavy(n,s) ( (s) & (LeftCnt(n)>RightCnt(n) ? LEFT : \ LeftCnt(n)==RightCnt(n) ? 0 : RIGHT)) # define Intern(n) ( LeftCnt(n) && RightCnt(n) ) # define UnBal(n) ( LeftCnt(n)>RightCnt(n) ? LEFT : \ LeftCnt(n)==RightCnt(n) ? 0 : RIGHT) # define Double(n) ( TBBT_DOUBLE & (n)->flags ) # define Other(side) ( LEFT + RIGHT - (side) ) # define Delta(n,s) ( ( Heavy(n,s) ? 1 : -1 ) \ * ( Double(n) ? 2 : UnBal(n) ? 1 : 0 ) ) # define SetFlags(n,s,b,i) ( ( -2<(b) && (b)<2 ? 0 : TBBT_DOUBLE ) \ | ( 0>(b) ? TBBT_HEAVY(s) : (b)>0 ? TBBT_HEAVY(Other(s)) : 0 ) \ | ( (i) ? TBBT_INTERN : 0 ) ) }; /* Pointer to the tbbt node free list */ static TBBT_NODE *tbbt_free_list=NULL; typedef struct tbbt_tree TBBT_TREE; /* Threaded tree structure */ struct tbbt_tree { TBBT_NODE *root; unsigned long count; /* The number of nodes in the tree currently */ uintn fast_compare; /* use a faster in-line compare (with casts) instead of function call */ intn (*compar) (VOIDP k1, VOIDP k2, intn cmparg); intn cmparg; #endif /* TBBT_INTERNALS */ }; /* Define the "fast compare" values */ #define TBBT_FAST_UINT16_COMPARE 1 #define TBBT_FAST_INT32_COMPARE 2 #ifndef TBBT_INTERNALS typedef TBBT_NODE **TBBT_TREE; #endif /* TBBT_INTERNALS */ /* Return maximum of two scalar values (use arguments w/o side effects): */ #define Max(a,b) ( (a) > (b) ? (a) : (b) ) /* These routines are designed to allow use of a general-purpose balanced tree * implimentation. These trees are appropriate for maintaining in memory one * or more lists of items, each list sorted according to key values (key values * must form a "completely ordered set") where no two items in a single list * can have the same key value. The following operations are supported: * Create an empty list * Add an item to a list * Look up an item in a list by key value * Look up the Nth item in a list * Delete an item from a list * Find the first/last/next/previous item in a list * Destroy a list * Each of the above operations requires Order(log(N)) time where N is the * number of items in the list (except for list creation which requires * constant time and list destruction which requires Order(N) time if the user- * supplied free-data-item or free-key-value routines require constant time). * Each of the above operations (except create and destroy) can be performed * on a subtree. * * Each node of a tree has associated with it a generic pointer (void *) which * is set to point to one such "item" and a generic pointer to point to that * item's "key value". The structure of the items and key values is up to the * user to define. The user must specify a method for comparing key values. * This routine takes three arguments, two pointers to key values and a third * integer argument. You can specify a routine that expects pointers to "data * items" rather than key values in which case the pointer to the key value in * each node will be set equal to the pointer to the data item. * * Since the "data item" pointer is the first field of each tree node, these * routines may be used without this "tbbt.h" file. For example, assume "ITM" * is the structre definition for the data items you want to store in lists: * ITM ***tbbtdmake( int (*cmp)(void *,void *,int), int arg ); * ITM **root= NULL; (* How to create an empty tree w/o tbbtdmake() *) * ITM **tbbtdfind( ITM ***tree, void *key, ITM ***pp ); * ITM **tbbtfind( ITM **root, void *key, int (*cmp)(), int arg, ITM ***pp ); * ITM **tbbtdless( ITM ***tree, void *key, ITM ***pp ); * ITM **tbbtless( ITM **root, void *key, int (*cmp)(), int arg, ITM ***pp ); * ITM **tbbtindx( ITM **root, long indx ); * ITM **tbbtdins( ITM ***tree, ITM *item, void *key ); * ITM **tbbtins( ITM ***root, ITM *item, void *key, int (*cmp)(), int arg ); * ITM *tbbtrem( ITM ***root, ITM **node, void **kp ); * ITM **tbbtfirst( ITM **root ), **tbbtlast( ITM **root ); * ITM **tbbtnext( ITM **node ), **tbbtprev( ITM **node ); * ITM ***tbbtdfree( ITM ***tree, void (*df)(ITM *), void (*kf)(void *) ); * void tbbtfree( ITM ***root, void (*df)(ITM *), void (*kf)(void *) ); */ #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ HDFLIBAPI TBBT_TREE *tbbtdmake (intn (*compar) (VOIDP, VOIDP, intn), intn arg, uintn fast_compare); /* Allocates and initializes an empty threaded, balanced, binary tree and * returns a pointer to the control structure for it. You can also create * empty trees without this function as long as you never use tbbtd* routines * (tbbtdfind, tbbtdins, tbbtdfree) on them. * Examples: * int keycmp(); * TBBT_ROOT *root= tbbtdmake( keycmp, (int)keysiz , 0); * or * void *root= tbbtdmake( strcmp, 0 , 0); * or * void *root= tbbtdmake( keycmp, (int)keysiz , TBBT_FAST_UINT16_COMPARE); * or * TBBT_NODE *root= NULL; (* Don't use tbbtd* routines *) * `cmp' is the routine to be used to compare two key values [in tbbtdfind() * and tbbtdins()]. The arguments to `cmp' are the two keys to compare * and `arg': (*cmp)(k1,k2,arg). `cmp' is expected to return 0 if its first * two arguments point to identical key values, -1 (or any integer less than 0) * if k1 points to a key value lower than that pointed to by k2, and 1 (or any * integer greater than 0) otherwise. If `cmp' is NULL, memcmp is used. If * `cmp' is NULL and `arg' is not greater than 0L, `1+strlen(key1)' is used in * place of `arg' to emulate strcmp(): memcmp( k1, k2, 1+strlen(k1) ). You * can use strcmp() directly (as in the second example above) as long as your C * compiler does not assume strcmp() will always be passed exactly 2 arguments * (only newer, ANSI-influenced C compilers are likely to be able to make this * kind of assumption). You can also use a key comparison routine that expects * pointers to data items rather than key values. * The "fast compare" option is for keys of simple numeric types (currently * uint16 and int32) and avoids the function call for faster searches in * some cases. The key comparison routine is still required for some * insertion routines which use it. * * Most of the other routines expect a pointer to a root node of a tree, not * a pointer to the tree's control structure (only tbbtdfind(), tbbtdins(), * and tbbtdfree() expect pointers to control structures). However TBBT_TREE * is just defined as "**TBBT_NODE" (unless you have defined TBBT_INTERNALS so * you have access to the internal structure of the nodes) so * TBBT_TREE *tree1= tbbtdmake( NULL, 0 ); * is equivalent to * TBBT_NODE **tree1= tbbtdmake( NULL, 0 ); * So could be used as: * node= tbbtdfind( tree1, key, NULL ); * node= tbbtfind( *tree1, key, compar, arg, NULL ); * node= tbbtdless( tree1, key, NULL ); * node= tbbtless( *tree1, key, compar, arg, NULL ); * node= tbbtdins( tree1, item, key ); * node= tbbtins( tree1, item, key, compar, arg ); * item= tbbtrem( tree1, tbbtdfind(tree1,key,NULL), NULL ); * item= tbbtrem( tree1, tbbtfind(*tree1,key,compar,arg,NULL), NULL ); * tree1= tbbtdfree( tree1, free, NULL ); (* or whatever *) * while * TBBT_NODE *root= NULL; * would be used like: * node= tbbtfind( root, key ); * node= tbbtins( &root, item, key ); * node= tbbtrem( &root, tbbtfind(root,key), NULL ); * tbbtfree( &root, free, NULL ); (* or whatever *) * Never use tbbtfree() on a tree allocated with tbbtdmake() or on a sub-tree * of ANY tree. Never use tbbtdfree() except on a tbbtdmake()d tree. */ HDFLIBAPI TBBT_NODE *tbbtdfind (TBBT_TREE * tree, VOIDP key, TBBT_NODE ** pp); HDFLIBAPI TBBT_NODE *tbbtfind (TBBT_NODE * root, VOIDP key, intn (*cmp) (VOIDP, VOIDP, intn), intn arg, TBBT_NODE ** pp); HDFLIBAPI TBBT_NODE *tbbtdless (TBBT_TREE * tree, VOIDP key, TBBT_NODE ** pp); HDFLIBAPI TBBT_NODE *tbbtless (TBBT_NODE * root, VOIDP key, intn (*cmp) (VOIDP, VOIDP, intn), intn arg, TBBT_NODE ** pp); /* Locate a node based on the key given. A pointer to the node in the tree * with a key value matching `key' is returned. If no such node exists, NULL * is returned. Whether a node is found or not, if `pp' is not NULL, `*pp' * will be set to point to the parent of the node we are looking for (or that * node that would be the parent if the node is not found). tbbtdfind() is * used on trees created using tbbtdmake() (so that `cmp' and `arg' don't have * to be passed). tbbtfind() can be used on the root or any subtree of a tree * create using tbbtdmake() and is used on any tree (or subtree) created with- * out using tbbtdmake(). tbbtless() & tbbtdless() work exactly like tbbtfind() * and tbbtdfind() except that they find the node with a key which is less than * or equal to the key given to them. */ HDFLIBAPI TBBT_NODE *tbbtindx (TBBT_NODE * root, int32 indx); /* Locate the node that has `indx' nodes with lesser key values. This is like * an array lookup with the first item in the list having index 0. For large * values of `indx', this call is much faster than tbbtfirst() followed by * `indx' tbbtnext()s. Thus `tbbtindx(&root,0L)' is equivalent to (and almost * as fast as) `tbbtfirst(root)'. */ HDFLIBAPI TBBT_NODE *tbbtdins (TBBT_TREE * tree, VOIDP item, VOIDP key); HDFLIBAPI TBBT_NODE *tbbtins (TBBT_NODE ** root, VOIDP item, VOIDP key, intn (*cmp) (VOIDP, VOIDP, intn), intn arg); /* Insert a new node to the tree having a key value of `key' and a data pointer * of `item'. If a node already exists in the tree with key value `key' or if * malloc() fails, NULL is returned (no node is inserted), otherwise a pointer * to the inserted node is returned. `cmp' and `arg' are as for tbbtfind(). */ HDFLIBAPI VOIDP tbbtrem (TBBT_NODE ** root, TBBT_NODE * node, VOIDP *kp); /* Remove the node pointed to by `node' from the tree with root `root'. The * data pointer for the deleted node is returned. If the second argument is * NULL, NULL is returned. If `kp' is not NULL, `*kp' is set to point to the * key value for the deleted node. Examples: * data= tbbtrem( tree, tbbtdfind(tree,key), &kp ); free(data); free(kp); * data= tbbtrem( &root, tbbtfind(root,key,compar,arg), NULL ); * data= tbbtrem( &tree->root, tbbtdfind(tree,key), NULL ); */ HDFLIBAPI TBBT_NODE *tbbtfirst (TBBT_NODE * root); HDFLIBAPI TBBT_NODE *tbbtlast (TBBT_NODE * root); /* Returns a pointer to node from the tree with the lowest(first)/highest(last) * key value. If the tree is empy NULL is returned. Examples: * node= tbbtfirst(*tree); * node= tbbtfirst(root); * node= tbbtlast(tree->root); * node= tbbtlast(node); (* Last node in a sub-tree *) */ HDFLIBAPI TBBT_NODE *tbbtnext (TBBT_NODE * node); HDFLIBAPI TBBT_NODE *tbbtprev (TBBT_NODE * node); /* Returns a pointer the node from the tree with the next highest (previous * lowest) key value relative to the node pointed to by `node'. If `node' * points the last (first) node of the tree, NULL is returned. */ HDFLIBAPI TBBT_TREE *tbbtdfree (TBBT_TREE * tree, VOID(*fd) (VOIDP), VOID(*fk) (VOIDP)); HDFLIBAPI VOID tbbtfree (TBBT_NODE ** root, VOID(*fd) (VOIDP), VOID(*fk) (VOIDP)); /* Frees up an entire tree. `fd' is a pointer to a function that frees/ * destroys data items, and `fk' is the same for key values. * void free(); * tree= tbbtdfree( tree, free, free ); * tbbtfree( &root, free, free ); * is a typical usage, where keys and data are individually malloc()d. If `fk' * is NULL, no action is done for the key values (they were allocated on the * stack, as a part of each data item, or together with one malloc() call, for * example) and likewise for `fd'. tbbtdfree() always returns NULL and * tbbtfree() always sets `root' to be NULL. */ HDFLIBAPI VOID tbbtprint (TBBT_NODE * node); /* Prints out the data in a node */ HDFLIBAPI VOID tbbtdump (TBBT_TREE * tree, intn method); /* Prints an entire tree. The method variable determines which sort of * traversal is used: * -1 : Pre-Order Traversal * 1 : Post-Order Traversal * 0 : In-Order Traversal */ HDFLIBAPI long tbbtcount (TBBT_TREE * tree); /* Terminate the buffers used in the tbbt*() interface */ HDFPUBLIC intn tbbt_shutdown(void); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ #endif /* TBBT_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/cskphuff.h0000644000000000000000000000731712421456623014430 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: cskphuff.h 4932 2007-09-07 17:17:23Z bmribler $ */ /*----------------------------------------------------------------------------- * File: cskphuff.h * Purpose: Header file for skipping huffman encoding information. * Dependencies: should only be included from hcompi.h * Invokes: none * Contents: Structures & definitions for skipping huffman encoding. * Structure definitions: * Constant definitions: *---------------------------------------------------------------------------*/ /* avoid re-inclusion */ #ifndef __CSKPHUFF_H #define __CSKPHUFF_H #if defined c_plusplus || defined __cplusplus extern "C" { #endif /* c_plusplus || __cplusplus */ /* ** from cskphuff.c */ extern int32 HCPcskphuff_stread (accrec_t * rec); extern int32 HCPcskphuff_stwrite (accrec_t * rec); extern int32 HCPcskphuff_seek (accrec_t * access_rec, int32 offset, int origin); extern int32 HCPcskphuff_inquire (accrec_t * access_rec, int32 *pfile_id, uint16 *ptag, uint16 *pref, int32 *plength, int32 *poffset, int32 *pposn, int16 *paccess, int16 *pspecial); extern int32 HCPcskphuff_read (accrec_t * access_rec, int32 length, void * data); extern int32 HCPcskphuff_write (accrec_t * access_rec, int32 length, const void * data); extern intn HCPcskphuff_endaccess (accrec_t * access_rec); #if defined c_plusplus || defined __cplusplus } #endif /* c_plusplus || __cplusplus */ /* The maximum source character code: */ #define SKPHUFF_MAX_CHAR 255 /* One greater than the maximum source character code: */ #define SUCCMAX (SKPHUFF_MAX_CHAR+1) /* Twice the maximum source character code: */ #define TWICEMAX (2*SUCCMAX+1) /* The root node in the tree */ #define ROOT 0 /* Skipping huffman [en|de]coding information */ typedef struct { intn skip_size; /* number of bytes in each element */ uintn **left, /* define the left and right pointer arrays */ **right; uint8 **up; /* define the up pointer array */ intn skip_pos; /* current byte to read or write */ int32 offset; /* offset in the de-compressed array */ } comp_coder_skphuff_info_t; #ifndef CSKPHUFF_MASTER extern funclist_t cskphuff_funcs; /* functions to perform skipping huffman encoding */ #else funclist_t cskphuff_funcs = { /* functions to perform skipping huffman encoding */ HCPcskphuff_stread, HCPcskphuff_stwrite, HCPcskphuff_seek, HCPcskphuff_inquire, HCPcskphuff_read, HCPcskphuff_write, HCPcskphuff_endaccess }; #endif #endif /* __CSKPHUFF_H */ libhdf4-4.2.10/HDF_ALT/hdf/src/dfi.h0000644000000000000000000001423212421456623013353 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: dfi.h 6043 2014-01-21 21:09:03Z acheng $ */ /*----------------------------------------------------------------------------- * File: dfi.h * Purpose: HDF internal header file * Invokes: stdio.h, sys/file.h * Contents: * Compilation parameters * Machine-dependent definitions * Flexibility definitions: i/o buffering, dynamic memory, structure i/o * Size parameters * Remarks: To port to a new system, only dfi.h and Makefile need be modified. * This file is included with user programs, but users do not see it. *---------------------------------------------------------------------------*/ #ifndef DFI_H #define DFI_H /*--------------------------------------------------------------------------*/ /* Compilation Parameters for Flexibility and Portability */ /* modify this line for buffered/unbuffered i/o */ #define DF_BUFFIO /* modify this line for dynamic/static memory allocation */ #define DF_DYNAMIC /* modify this line if structures cannot be read/written as is */ #undef DF_STRUCTOK /* leave it this way - hdfsh expects it */ /*--------------------------------------------------------------------------*/ /* Machine dependencies */ /*--------------------------------------------------------------------------*/ #ifdef IRIX #undef DF_STRUCTOK #include #include /* for unbuffered i/o stuff */ #ifndef DFmovmem #define DFmovmem(from, to, len) bcopy(from, to, len) #endif /* DFmovmem */ #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif /*DF_STRUCTOK */ #define DF_CREAT(name, prot) creat(name, prot) #ifndef DF_MT #define DF_MT DFMT_IRIX #endif /* DF_MT */ #endif /*IRIX */ #ifdef IBM6000 /* NOTE: IBM6000 defines are same as for SUN */ #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030 #undef DF_STRUCTOK #endif #include /* for unbuffered i/o stuff */ #define DFmovmem(from, to, len) memcpy(to, from, len) #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif /*DF_STRUCTOK */ #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_IBM6000 #endif /*IBM6000 */ #ifdef APOLLO #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030 #undef DF_STRUCTOK #endif #include /* for unbuffered i/o stuff */ #define int8 char #define uint8 unsigned char #define int16 short int #define uint16 unsigned short int #define int32 long int #define uint32 unsigned long int #define float32 float #define DFmovmem(from, to, len) memcpy(to, from, len) #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif /*DF_STRUCTOK */ #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_APOLLO #endif /*APOLLO */ /*--------------------------------------------------------------------------*/ /* Flexibility parameters */ #ifdef DF_BUFFIO /* set all calls to do buffered I/O */ #define DF_OPEN(x,y) fopen(x,y) #define DF_CLOSE(x) fclose(x) #define DF_SEEK(x,y,z) fseek(x,y,z) #define DF_SKEND(x,y,z) fseek(x,y,z) #define DF_TELL(x) ftell(x) #define DF_READ(a,b,c,d) fread(a,b,c,d) #define DF_WRITE(a,b,c,d) fwrite(a,b,c,d) #define DF_FLUSH(a) fflush(a) #define DF_OPENERR(f) (!(f)) #define DF_RDACCESS "rb" #define DF_WRACCESS "rb+" #else /*DF_BUFFIO unbuffered i/o */ #define DF_OPEN(x,y) open(x,y) #define DF_CLOSE(x) close(x) #define DF_SEEK(x,y,z) lseek(x,y,z) #define DF_SKEND(x,y,z) lseek(x,-1*y,z) #define DF_TELL(x) lseek(x,0L,1) #define DF_READ(a,b,c,d) read(d,a,b*c) #define DF_WRITE(a,b,c,d) write(d,a,b*c) #define DF_OPENERR(f) ((f) == -1) #define DF_FLUSH(a) /* no need to flush */ #define DF_RDACCESS O_RDONLY #define DF_WRACCESS O_RDWR #endif /* DF_BUFFIO */ #ifndef FILE #include #endif /*FILE */ #endif /* DFI_H */ libhdf4-4.2.10/HDF_ALT/hdf/fortran/0000755000000000000000000000000012421456623013322 5ustar libhdf4-4.2.10/HDF_ALT/hdf/fortran/CMakeLists.txt0000644000000000000000000001166612421456623016074 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_FORTRAN C CXX Fortran) #----------------------------------------------------------------------------- # Make sure generated files and modules are picked up correctly #----------------------------------------------------------------------------- INCLUDE_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ) SET (HDF4_HDF_SRC_CSTUB_FSRCS ${HDF4_HDFSOURCE_DIR}/dfanf.c ${HDF4_HDFSOURCE_DIR}/dff.c ${HDF4_HDFSOURCE_DIR}/dfpf.c ${HDF4_HDFSOURCE_DIR}/dfr8f.c ${HDF4_HDFSOURCE_DIR}/dfsdf.c ${HDF4_HDFSOURCE_DIR}/dfufp2i.c ${HDF4_HDFSOURCE_DIR}/dfutilf.c ${HDF4_HDFSOURCE_DIR}/df24f.c ${HDF4_HDFSOURCE_DIR}/dfufp2if.c ${HDF4_HDFSOURCE_DIR}/herrf.c ${HDF4_HDFSOURCE_DIR}/hfilef.c ${HDF4_HDFSOURCE_DIR}/mfanf.c ${HDF4_HDFSOURCE_DIR}/mfgrf.c ${HDF4_HDFSOURCE_DIR}/vattrf.c ${HDF4_HDFSOURCE_DIR}/vgf.c ) SET (HDF4_HDF_SRC_FHDRS ${HDF4_HDFSOURCE_DIR}/dffunc.inc ${HDF4_HDFSOURCE_DIR}/hdf.inc ) SET_SOURCE_FILES_PROPERTIES (${HDF4_HDF_SRC_CSTUB_FSRCS} PROPERTIES LANGUAGE C) SET (FORTRAN_SRC_DIR ${CMAKE_CURRENT_SOURCE_DIR}) #----------------------------------------------------------------------------- # Add Main fortran library #----------------------------------------------------------------------------- ADD_LIBRARY (${HDF4_SRC_FCSTUB_LIB_TARGET} ${LIB_TYPE} ${HDF4_HDF_SRC_CSTUB_FSRCS} ${HDF4_HDF_SRC_CHDRS} ${HDF4_HDFSOURCE_DIR}/hproto_fortran.h ${HDF4_BINARY_DIR}/h4config.h) SET_TARGET_PROPERTIES (${HDF4_SRC_FCSTUB_LIB_TARGET} PROPERTIES LINKER_LANGUAGE C) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) TARGET_C_PROPERTIES (${HDF4_SRC_FCSTUB_LIB_TARGET} " " " ") TARGET_LINK_LIBRARIES (${HDF4_SRC_FCSTUB_LIB_TARGET} ${HDF4_SRC_LIB_TARGET}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_SRC_FCSTUB_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_SRC_FCSTUB_LIB_TARGET} ${HDF4_SRC_FCSTUB_LIB_NAME} ${LIB_TYPE}) SET (HDF4_F_FORTRAN_SRCS ${HDF4_HDFSOURCE_DIR}/df24ff.f ${HDF4_HDFSOURCE_DIR}/dfanff.f ${HDF4_HDFSOURCE_DIR}/dfpff.f ${HDF4_HDFSOURCE_DIR}/dfr8ff.f ${HDF4_HDFSOURCE_DIR}/dfsdff.f ${HDF4_HDFSOURCE_DIR}/dfufp2iff.f ${HDF4_HDFSOURCE_DIR}/dfff.f ${HDF4_HDFSOURCE_DIR}/hfileff.f ${HDF4_HDFSOURCE_DIR}/mfgrff.f ${HDF4_HDFSOURCE_DIR}/vattrff.f ${HDF4_HDFSOURCE_DIR}/vgff.f ) #----------------------------------------------------------------------------- ADD_LIBRARY (${HDF4_SRC_FORTRAN_LIB_TARGET} ${LIB_TYPE} ${HDF4_F_FORTRAN_SRCS}) SET (SHARED_LINK_FLAGS " ") IF (WIN32) IF (${LIB_TYPE} MATCHES "SHARED") IF (MSVC) SET (SHARED_LINK_FLAGS "/DLL /DEF:${HDF4_HDF_FORTRAN_SOURCE_DIR}/hdf_fortrandll.def") ENDIF (MSVC) ENDIF (${LIB_TYPE} MATCHES "SHARED") ENDIF (WIN32) TARGET_FORTRAN_PROPERTIES (${HDF4_SRC_FORTRAN_LIB_TARGET} " " ${SHARED_LINK_FLAGS}) SET_TARGET_PROPERTIES (${HDF4_SRC_FORTRAN_LIB_TARGET} PROPERTIES LINKER_LANGUAGE Fortran) TARGET_LINK_LIBRARIES (${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_FCSTUB_LIB_TARGET} ${LINK_LIBS}) SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "${HDF4_LIBRARIES_TO_EXPORT};${HDF4_SRC_FORTRAN_LIB_TARGET}") H4_SET_LIB_OPTIONS (${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_NAME} ${LIB_TYPE}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- INSTALL ( FILES ${HDF4_HDF_SRC_FHDRS} DESTINATION ${HDF4_INSTALL_INCLUDE_DIR} COMPONENT headers ) #----------------------------------------------------------------------------- # Add Target(s) to CMake Install for import into other projects #----------------------------------------------------------------------------- IF (HDF4_EXPORTED_TARGETS) IF (BUILD_SHARED_LIBS) INSTALL_TARGET_PDB (${HDF4_SRC_FCSTUB_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} fortlibraries) INSTALL_TARGET_PDB (${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_INSTALL_LIB_DIR} fortlibraries) ENDIF (BUILD_SHARED_LIBS) INSTALL ( TARGETS ${HDF4_SRC_FCSTUB_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} EXPORT ${HDF4_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT fortlibraries ARCHIVE DESTINATION ${HDF4_INSTALL_LIB_DIR} COMPONENT fortlibraries RUNTIME DESTINATION ${HDF4_INSTALL_BIN_DIR} COMPONENT fortlibraries ) ENDIF (HDF4_EXPORTED_TARGETS) libhdf4-4.2.10/HDF_ALT/hdf/fortran/Makefile.in0000644000000000000000000004564512421456623015405 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am subdir = hdf/fortran SUBDIRS = ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-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 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=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags 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@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog DIST_SUBDIRS = examples all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.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 hdf/fortran/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/fortran/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am: $(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): 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. $(RECURSIVE_TARGETS) $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ 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" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done cscopelist-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) 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; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @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 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 Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: 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: installcheck-local maintainer-clean: maintainer-clean-recursive -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: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \ cscopelist-recursive ctags-recursive install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ cscopelist cscopelist-recursive ctags ctags-recursive \ distclean distclean-generic distclean-libtool distclean-tags \ distdir dvi dvi-am 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 installcheck-local \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done # 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: libhdf4-4.2.10/HDF_ALT/hdf/fortran/Makefile.am0000644000000000000000000000103512421456623015355 0ustar include $(top_srcdir)/config/commence.am DIST_SUBDIRS = examples installcheck-local: @(cd examples && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; # 'make install-all' also installs examples install-all: @$(MAKE) $(AM_MAKEFLAGS) install @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-all: @$(MAKE) $(AM_MAKEFLAGS) uninstall @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples # Install examples recursively install-examples uninstall-examples: @@SETX@; for d in examples; do \ (cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ done libhdf4-4.2.10/HDF_ALT/hdf/fortran/hdf_fortrandll.def0000644000000000000000000000537212421456623017001 0ustar EXPORTS ; DFFF DFISHDF DFACCESS DFOPEN DFIISHDF DFIACCESS DFIOPEN ; DFR8FF DFR8NIMAGES DFR8WRITEREF DFR8READREF DFR8ADDIMAGE DFR8PUTIMAGE DFR8GETIMAGE DFR8GETDIMS D8WREF D8NIMS D8RREF D8AIMG D8PIMG D8GIMG D8GDIMS D8INIMS D8IWREF D8IRREF D8IAIMG D8IPIMG D8IGIMG D8IGDIM ; DF24FF DF24READREF DF24PUTIMAGE DF24ADDIMAGE DF24GETIMAGE DF24GETDIMS D2NIMG D2RREF D2PIMG D2AIMG D2GIMG D2GDIMS D2IRREF D2IAIMG D2IGIMG D2IGDIM D2INIMG ; MFGRFF MGGNLUTS MGGCOMPRESS MGSCOMPRESS MGWCHNK MGWCCHNK MGSCHNK MGSCCHNK MGRCHNK MGRCCHNK MGGICHNK MGFNDAT MGSATTR MGSNATT MGSCATT MGSXFIL MGN2NDX MGCREAT MGCGNLUTS MGCGCOMPRESS MGCSCOMPRESS MGCWCHNK MGCWCCHNK MGCSCHNK MGCSCCHNK MGCRCHNK MGCRCCHNK MGCGICHNK MGIFNDAT MGISATTR MGISCATT MGISXFIL MGIN2NDX MGICREAT ; DFUFP2IFF DFUFPTOIMAGE DUF2IM DUIF2I ; DFPFF DFPREADREF DFPWRITEREF DFPNPALS DFPPUTPAL DFPADDPAL DFPGETPAL DPRREF DPWREF DPNPALS DPPPAL DPAPAL DPGPAL DPIRREF DPIWREF DPINPAL DPIPPAL DPIGPAL ; HFILEFF HCONFINF HEPRNTF HESTRINGF HISHDFF HGFILVER HGLIBVER HXSCDIR HXSDIR HOPEN HCONFINFC HEPRNTC HESTRINGC HIISHDF HGFILVERC HGLIBVERC HXISCDIR HXISDIR HIOPEN ; DFSDFF DSRSLAB DSSSLAB DSWREF DSGDAST DSGDIST DFSDGETDIMSTRS DFSDNUMBER DFSDREADREF DFSDSTARTSLICE DFSDGETSLICE DFSDADDDATA DFSDPUTDATA DFSDSETDIMSTRS DFSDSETDATASTRS DFSDGETDATA DFSDGETDIMS DSP32SD DSNUM DSRREF DSSSLC DSGSLC DSADATA DSPDATA DSSDIST DSSDAST DSGDATA DSGDIMS DSIRSLAB DSISSLAB DSIWREF DSIGDAS DSIGDIS DSINUM DSIRREF DSISSLC DSIGSLC DSIADAT DSIPDAT DSISDIS DSISDAS DSIGDAT DSIGDIM DSIP32S ; VATTRFF VFFDATT VFSCATT VFSNATT VSFAINF VSFFDAT VSFSCAT VSFSNAT VSFFIDX VFCFDAT VFCSCAT VFCSATT VSFCAIN VSFCFDA VSFCSCA VSFCSAT VSFCFDX ; VGFF VFGVGROUPS VSFGVDATAS VSFGETBLINFO VSFSETNMBL VSFSETBLSZ VFFNAME VSFFCLS VFDTR VSFCPAK VSFNPAK VSQFNAME VSQFFLDS VFADTR VFGTTR VFGTTRS VFNTR VFINQTR VFFLOC VHFMKGP VHFSCDM VHFSCD VHFSDM VHFSD VFNDCLS VFIND VSFLONE VFLONE VFENTS VSFSIZ VSFGFLD VSFELTS VSFGINT VSFSEXTF VSFWRIT VSFREAD VSFFDEF VSFSINT VSFSFLD VSFSCLS VSFSNAM VSFDLTE VSFGID VSFFND VSFEX VSFINQ VSFGCLS VSFGNAM VSFSEEK VSFDTCH VSFATCH VFISVS VFISVG VFINSRT VFSCLS VFSNAM VFGNXT VFGID VFINQ VFGCLS VFGNAM VFDTCH VFATCH VSCGBLINFO VSCSETNMBL VSCSETBLSZ VFFNAMEC VSCFCLS VDTRC VSFCCPK VSFNCPK VSQNAMEC VSQFLDSC VADTRC VGTTRC VGTTRSC VNTRC VINQTRC VFLOCC VHMKGPC VHSCDMC VHSCDC VHSDMC VHSDC VFNDCLSC VFINDC VSLONEC VLONEC VENTSC VSSIZC VSGFLDC VSELTSC VSGINTC VSSEXTFC VSWRITC VSREADC VSFDEFC VSSINTC VSSFLDC VSSCLSC VSSNAMC VSDLTC VSGIDC VSFNDC VSFEXC VSINQC VSGCLSC VSGNAMC VSSEEKC VSDTCHC VSATCHC VISVSC VISVGC VINSRTC VSCLSC VSNAMC VGNXTC VGIDC VINQC VGCLSC VGNAMC VDTCHC VATCHC ; DFANFF DFANADDFID DFANLABLIST DFANPUTDESC DFANPUTLABEL DFANGETDESC DFANGETDESCLEN DFANGETLABEL DFANGETLABLEN DAAFID DALLIST DAPDESC DAPLAB DAGDESC DAGDLEN DAGLAB DAGLLEN DAIAFID DAILIST DAIPANN DAIGANN DAIGANL libhdf4-4.2.10/HDF_ALT/hdf/fortran/CMakeTests.cmake0000644000000000000000000001120512421456623016326 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## SET (FORTRAN_SRC_DIR ${HDF4_HDF_TEST_SOURCE_DIR}) #----------------------------------------------------------------------------- # Add test fortran stub library #----------------------------------------------------------------------------- ADD_LIBRARY (${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${LIB_TYPE} ${HDF4_HDF_TESTSOURCE_DIR}/forsupf.c) SET_TARGET_PROPERTIES (${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} PROPERTIES LINKER_LANGUAGE C) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) TARGET_C_PROPERTIES (${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} " " " ") TARGET_LINK_LIBRARIES (${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${HDF4_SRC_LIB_TARGET}) H4_SET_LIB_OPTIONS (${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${HDF4_HDF_TEST_FCSTUB_LIB_NAME} ${LIB_TYPE}) #-- Adding test for fortest ADD_EXECUTABLE (fortest ${HDF4_HDF_TESTSOURCE_DIR}/fortest.c) TARGET_NAMING (fortest ${LIB_TYPE}) TARGET_C_PROPERTIES (fortest " " " ") TARGET_LINK_LIBRARIES (fortest ${HDF4_SRC_LIB_TARGET} ${HDF4_MF_LIB_TARGET}) IF (WIN32 AND MSVC) TARGET_LINK_LIBRARIES (fortest "ws2_32.lib") ENDIF (WIN32 AND MSVC) SET_TARGET_PROPERTIES (fortest PROPERTIES LINKER_LANGUAGE C) #----------------------------------------------------------------------------- #-- Adding test for fortestF SET (FORTEST_FSRCS ${HDF4_HDF_TESTSOURCE_DIR}/fortestF.f ${HDF4_HDF_TESTSOURCE_DIR}/forsupff.f ${HDF4_HDF_TESTSOURCE_DIR}/manf.f ${HDF4_HDF_TESTSOURCE_DIR}/mgrf.f ${HDF4_HDF_TESTSOURCE_DIR}/slabwf.f ${HDF4_HDF_TESTSOURCE_DIR}/t24f.f ${HDF4_HDF_TESTSOURCE_DIR}/tanf.f ${HDF4_HDF_TESTSOURCE_DIR}/tanfilef.f ${HDF4_HDF_TESTSOURCE_DIR}/tpf.f ${HDF4_HDF_TESTSOURCE_DIR}/tr8f.f ${HDF4_HDF_TESTSOURCE_DIR}/tsdmmsf.f ${HDF4_HDF_TESTSOURCE_DIR}/tsdnmmsf.f ${HDF4_HDF_TESTSOURCE_DIR}/tsdnntf.f ${HDF4_HDF_TESTSOURCE_DIR}/tsdntf.f ${HDF4_HDF_TESTSOURCE_DIR}/tsdstrf.f ${HDF4_HDF_TESTSOURCE_DIR}/tstubsf.f ${HDF4_HDF_TESTSOURCE_DIR}/tvattrf.f ${HDF4_HDF_TESTSOURCE_DIR}/tvsetf.f ) ADD_EXECUTABLE (fortestF ${FORTEST_FSRCS} ) TARGET_NAMING (fortestF ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (fortestF " " " ") TARGET_LINK_LIBRARIES (fortestF ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_FCSTUB_LIB_TARGET} ${HDF4_HDF_TEST_FCSTUB_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS} ) SET_TARGET_PROPERTIES (fortestF PROPERTIES LINKER_LANGUAGE Fortran) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES 8bit.dat bitio.dat gr_r24.dat greyjpeg.dat jpeg.dat litend.dat nbit.dat tmgr.dat tvattr.dat ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/test_files/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_TESTSOURCE_DIR}/test_files/${h4_file} to ${PROJECT_BINARY_DIR}/test_files/") ADD_CUSTOM_COMMAND ( TARGET fortestF POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_TESTSOURCE_DIR}/test_files/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME HDF_FORTRAN-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove fortest.arg Fortran_err.dat GRcompressed.hdf GRchunked1.hdf GRchunked2.hdf manf.hdf slab1wf.hdf slab4wf.hdf slabwf.hdf tdf24f.hdf tdfanF.hdf tdfanflF.hdf tmgrf.hdf ) ADD_TEST (NAME fortest COMMAND $) ADD_TEST (NAME fortestF COMMAND $) SET (passRegex "All Fortran Interface Tests Passed") SET_PROPERTY (TEST fortestF PROPERTY PASS_REGULAR_EXPRESSION "${passRegex}") libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/0000755000000000000000000000000012474643755015154 5ustar libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/Makefile.in0000644000000000000000000006263012474643755017230 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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@ ############################################################################# ############################################################################# # We can't tell automake about example programs, because they need to be # built using h4cc (or h4fc, etc.) instead of the standard compilers. # This creates some extra work for us. VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am \ $(top_srcdir)/config/examples.am TESTS = $(TEST_PROG) subdir = hdf/fortran/examples ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog *.hdf DEFINES = -DNDEBUG -DHDF ############################################################################# ############################################################################# EXAMPLE_PROG = VD_create_vdatas VD_write_mixed_vdata \ VD_write_to_vdata VD_create_onefield_vdatas \ VD_read_from_vdata VD_read_mixed_vdata \ VD_get_vdata_info VD_locate_vdata VG_create_vgroup \ VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup \ VG_set_get_vgroup_attr VG_vgroup_contents \ VG_get_vgroup_info GR_create_and_write_image \ GR_modify_image GR_set_attribute GR_get_attribute \ GR_write_palette GR_image_info GR_read_image \ AN_create_annotation AN_get_annotation_info AN_read_annotation TEST_PROG = $(EXAMPLE_PROG) # These are the Fortran example files to be installed INSTALL_FILES = VD_read_from_vdata.f VD_read_mixed_vdata.f \ VD_write_mixed_vdata.f VD_write_to_vdata.f \ VD_create_onefield_vdatas.f VD_create_vdatas.f \ VD_get_vdata_info.f VD_locate_vdata.f \ VG_insert_vdatas_to_vgroup.f VG_set_get_vgroup_attr.f \ VG_vgroup_contents.f VG_add_sds_to_vgroup.f \ VG_create_vgroup.f VG_get_vgroup_info.f \ GR_create_and_write_image.f GR_get_attribute.f \ GR_image_info.f GR_modify_image.f GR_read_image.f \ GR_read_palette.f GR_set_attribute.f \ GR_write_palette.f AN_create_annotation.f \ AN_get_annotation_info.f AN_read_annotation.f \ #VD_set_get_vdata_attr.f INSTALL_SCRIPT_FILES = run-fortran-ex.sh # Where to install Fortran example files EXAMPLEDIR = $(prefix)/examples/fortran DISTCLEANFILES = *.chkexe *.chklog @BUILD_SHARED_SZIP_CONDITIONAL_TRUE@LD_LIBRARY_PATH = $(LL_PATH) # Assume that all tests in this directory are examples, and tell # conclude.am when to build them. EXTRA_PROG = $(EXAMPLE_PROG) # We need to tell automake what to clean MOSTLYCLEANFILES = *.o $(EXAMPLE_PROG) CLEANFILES = $(EXAMPLE_PROG) # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.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 hdf/fortran/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/fortran/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.am: $(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): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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 "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-data-local 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: installcheck-local maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool \ mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-local .MAKE: check-am install-am install-strip .PHONY: all all-am all-local check check-TESTS check-am clean \ clean-generic clean-libtool distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am \ install-data-local 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 installcheck-local installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am uninstall uninstall-am uninstall-local # VD_set_get_vdata_attr # How to build Fortran programs using h4fc $(EXTRA_PROG): $(H4FC) $(H4FC) $(H4FCFLAGS) $(FFLAGS) -o $@ $(srcdir)/$@.f; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal Fortran compiler, not h4fc. # Fortran Programs VD_read_from_vdata: $(srcdir)/VD_read_from_vdata.f VD_read_mixed_vdata: $(srcdir)/VD_read_mixed_vdata.f #VD_set_get_vdata_attr: $(srcdir)/VD_set_get_vdata_attr.f VD_write_mixed_vdata: $(srcdir)/VD_write_mixed_vdata.f VD_write_to_vdata: $(srcdir)/VD_write_to_vdata.f VD_create_onefield_vdatas: $(srcdir)/VD_create_onefield_vdatas.f VD_create_vdatas: $(srcdir)/VD_create_vdatas.f VD_get_vdata_info: $(srcdir)/VD_get_vdata_info.f VD_locate_vdata: $(srcdir)/VD_locate_vdata.f VG_insert_vdatas_to_vgroup: $(srcdir)/VG_insert_vdatas_to_vgroup.f VG_set_get_vgroup_attr: $(srcdir)/VG_set_get_vgroup_attr.f VG_vgroup_contents: $(srcdir)/VG_vgroup_contents.f VG_add_sds_to_vgroup: $(srcdir)/VG_add_sds_to_vgroup.f VG_create_vgroup: $(srcdir)/VG_create_vgroup.f VG_get_vgroup_info: $(srcdir)/VG_get_vgroup_info.f GR_create_and_write_image: $(srcdir)/GR_create_and_write_image.f GR_get_attribute: $(srcdir)/GR_get_attribute.f GR_image_info: $(srcdir)/GR_image_info.f GR_modify_image: $(srcdir)/GR_modify_image.f GR_read_image: $(srcdir)/GR_read_image.f GR_read_palette: $(srcdir)/GR_read_palette.f GR_set_attribute: $(srcdir)/GR_set_attribute.f GR_write_palette: $(srcdir)/GR_write_palette.f AN_create_annotation: $(srcdir)/AN_create_annotation.f AN_get_annotation_info: $(srcdir)/AN_get_annotation_info.f AN_read_annotation: $(srcdir)/AN_read_annotation.f # How to create EXAMPLEDIR if it doesn't already exist $(DESTDIR)$(EXAMPLEDIR): mkdir -p $@ # Install and uninstall rules. We install the source files, not the # example programs themselves. install-data-local: @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-local: @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples install-examples: $(DESTDIR)$(EXAMPLEDIR) @for f in X $(INSTALL_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLEDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ fi; \ done @for f in X $(INSTALL_TOP_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLETOPDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_TOP_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ fi; \ done uninstall-examples: @if test -n "$(INSTALL_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_FILES); \ fi @if test -n "$(INSTALL_SCRIPT_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_SCRIPT_FILES); \ fi @if test -n "$(INSTALL_TOP_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_FILES); \ fi @if test -n "$(INSTALL_TOP_SCRIPT_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_SCRIPT_FILES); \ fi installcheck-local: @if test "$(STATIC_SHARED)" = "static, shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ $(MAKE) $(AM_MAKEFLAGS) clean; \ H5CCFLAGS="" $(MAKE) $(AM_MAKEFLAGS) check; \ elif test "$(STATIC_SHARED)" = "shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ else \ $(MAKE) $(AM_MAKEFLAGS) check; \ fi # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_read_palette.f0000644000000000000000000000437312421456623020337 0ustar program read_palette implicit none C C Parameter declaration C character*22 FILE_NAME character*18 IMAGE_NAME integer N_ENTRIES integer N_COMPS_PAL C parameter (FILE_NAME = 'Image_with_Palette.hdf', + IMAGE_NAME = 'Image with Palette', + N_COMPS_PAL = 3, + N_ENTRIES = 256) integer DFACC_READ, DFNT_CHAR8, DFNT_UINT8, MFGR_INTERLACE_PIXEL parameter (DFACC_READ = 1, + DFNT_CHAR8 = 4, + DFNT_UINT8 = 21, + MFGR_INTERLACE_PIXEL = 0) C C Function declaration C integer hopen, hclose integer mgstart, mgn2ndx, mgselct, mggltid, mgglinf, + mgrclut, mgendac, mgend C C**** Variable declaration ******************************************* C integer file_id, gr_id, ri_id, ri_index, pal_id, pal_index integer interlace_mode integer data_type, n_comps, n_entries_out integer status integer i, j character palette_data(N_COMPS_PAL, N_ENTRIES) C C**** End of variable declaration ************************************ C C C Open the file. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Get the index of the image IMAGE_NAME. C ri_index = mgn2ndx(gr_id, IMAGE_NAME) C C Get the image identifier. C ri_id = mgselct(gr_id, 0) C C Get the identifier of the palette attached to the image. C pal_index = 0 pal_id = mggltid(ri_id, pal_index) C C Obtain information about the palette. C status = mgglinf(pal_id, n_comps, data_type, interlace_mode, + n_entries_out) write(*,*) ' Palette: ', n_comps, ' components; ', + n_entries_out, ' entries' C C Read the palette. C status = mgrclut(pal_id, palette_data) C C Display the palette data. C write(*,*) "Palette data" do 10 i = 1, n_entries_out write(*,*) (ichar(palette_data(j,i)), j = 1, n_comps) 10 continue C C Terminate access to the raster image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/AN_get_annotation_info.f0000644000000000000000000000713712421456623021721 0ustar program annotation_info implicit none C C Parameter declaration C character*22 FILE_NAME character*9 VG_NAME C parameter (FILE_NAME = 'General_HDFobjects.hdf', + VG_NAME = 'AN Vgroup') integer DFACC_READ parameter (DFACC_READ = 1) integer AN_FILE_LABEL, AN_DATA_LABEL, AN_DATA_DESC parameter (AN_FILE_LABEL = 2, + AN_DATA_LABEL = 0, + AN_DATA_DESC = 1) integer DFTAG_DIA, DFTAG_FID, DFTAG_DIL parameter (DFTAG_DIA = 105, + DFTAG_FID = 100, + DFTAG_DIL = 104) integer DFTAG_VG parameter (DFTAG_VG = 1965) C C Function declaration C integer hopen, hclose integer afstart, afnumann, afannlist, afidtagref, aftagatype, + afatypetag, afend integer vfstart, vfind C C**** Variable declaration ******************************************* C integer status integer file_id, an_id integer n_annots, ann_index, annot_type, ann_tag, ann_ref integer ann_list(10) integer vgroup_tag, vgroup_ref C C**** End of variable declaration ************************************ C annot_type = AN_DATA_DESC vgroup_tag = DFTAG_VG C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Get the group named VG_NAME. C vgroup_ref = vfind(file_id, VG_NAME) C C Initialize the AN interface. C an_id = afstart(file_id) C C Get the number of object descriptions. C if (vgroup_ref .eq. -1) goto 100 n_annots = afnumann(an_id, annot_type, vgroup_tag, vgroup_ref) C C Get the list of identifiers of the annotations attached to the C vgroup and of type annot_type. Identifiers are read into ann_list C buffer. One has to make sure that ann_list has the size big enough C to hold the list of identifiers. C n_annots = afannlist(an_id, annot_type, vgroup_tag, vgroup_ref, + ann_list) C C Get each annotation identifier from the list then display the C tag/ref number pair of the corresponding annotation. C write(*,*) 'List of annotations of type AN_DATA_DESC' do 10 ann_index = 0, n_annots - 1 C C Get and display the ref number of the annotation from its C identifier. C status = afidtagref(ann_list(ann_index+1), ann_tag, ann_ref) write(*,*) 'Annotation index: ', ann_index if (ann_tag .eq. DFTAG_DIA) then write(*,*) 'tag = DFTAG_DIA (data description)' else write(*,*) ' tag = Incorrect' endif write(*,*) 'reference number = ', ann_ref 10 continue C C Get and display an annotation type from an annotation tag. C annot_type = aftagatype(DFTAG_FID) if (annot_type .eq. AN_FILE_LABEL) then write(*,*) 'Annotation type of DFTAG_FID (file label) is ', + 'AN_FILE_LABEL ' else write(*,*) 'Annotation type of DFTAG_FID (file label) is ', + 'Incorrect' endif C C Get and display an annotation tag from an annotation type. C ann_tag = afatypetag(AN_DATA_LABEL) if (ann_tag .eq. DFTAG_DIL ) then write(*,*) 'Annotation tag of AN_DATA_LABEL is ', + 'DFTAG_DIL (data label)' else write(*,*) 'Annotation type of DFTAG_FID (file label) is ', + 'Incorrect' endif C C Terminate access to the AN interface and close the HDF file. C 100 continue status = afend(an_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_write_to_vdata.f0000644000000000000000000000654712421456623020727 0ustar program write_to_vdata implicit none C C Parameter declaration C character*18 FILE_NAME character*13 CLASS_NAME character*14 VDATA_NAME character*8 FIELD1_NAME character*4 FIELD2_NAME character*11 FIELD3_NAME character*27 FIELDNAME_LIST integer N_RECORDS integer ORDER_1, ORDER_2, ORDER_3 integer N_VALS_PER_REC C parameter (FILE_NAME = 'General_Vdatas.hdf', + CLASS_NAME = 'Particle Data', + VDATA_NAME = 'Solid Particle', + FIELD1_NAME = 'Position', + FIELD2_NAME = 'Mass', + FIELD3_NAME = 'Temperature', + FIELDNAME_LIST = 'Position,Mass,Temperature') parameter (N_RECORDS = 10, + ORDER_1 = 3, + ORDER_2 = 1, + ORDER_3 = 2, + N_VALS_PER_REC = ORDER_1 + ORDER_2 + ORDER_3) integer DFACC_WRITE, DFNT_FLOAT32, FULL_INTERLACE parameter (DFACC_WRITE = 2, + DFNT_FLOAT32 = 5, + FULL_INTERLACE = 0) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsfsnam, vsfscls, vsffdef, vsfsfld, + vsfwrt, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id integer vdata_ref, rec_num, num_of_records real data_buf(N_VALS_PER_REC, N_RECORDS) C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Create a new vdata. C vdata_ref = -1 vdata_id = vsfatch(file_id, vdata_ref, 'w') C C Set name and class name of the vdata. C status = vsfsnam(vdata_id, VDATA_NAME) status = vsfscls(vdata_id, CLASS_NAME) C C Introduce each field's name, data type, and order. This is the C first part in defining a field. C status = vsffdef(vdata_id, FIELD1_NAME, DFNT_FLOAT32, ORDER_1) status = vsffdef(vdata_id, FIELD2_NAME, DFNT_FLOAT32, ORDER_2) status = vsffdef(vdata_id, FIELD3_NAME, DFNT_FLOAT32, ORDER_3) C C Finalize the definition of the fields. C status = vsfsfld(vdata_id, FIELDNAME_LIST) C C Buffer the data by the record for fully interlaced mode. Note that the C first three elements contain the three values of the first field, C the forth element contains the value of the second field, and the last two C elements contain the two values of the third field. C do 10 rec_num = 1, N_RECORDS data_buf(1, rec_num) = 1.0 * rec_num data_buf(2, rec_num) = 2.0 * rec_num data_buf(3, rec_num) = 3.0 * rec_num data_buf(4, rec_num) = 0.1 + rec_num data_buf(5, rec_num) = 0.0 data_buf(6, rec_num) = 65.0 10 continue C C Write the data from data_buf to the vdata with the full interlacing mode. C num_of_records = vsfwrt(vdata_id, data_buf, N_RECORDS, + FULL_INTERLACE) C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_read_from_vdata.f0000644000000000000000000000535012421456623021020 0ustar program read_from_vdata implicit none C C Parameter declaration C character*18 FILE_NAME character*14 VDATA_NAME character*20 FIELDNAME_LIST integer N_RECORDS, RECORD_INDEX integer ORDER_1, ORDER_2 integer N_VALS_PER_REC C parameter (FILE_NAME = 'General_Vdatas.hdf', + VDATA_NAME = 'Solid Particle', + FIELDNAME_LIST = 'Position,Temperature') parameter (N_RECORDS = 5, + RECORD_INDEX = 3, + ORDER_1 = 3, + ORDER_2 = 2, + N_VALS_PER_REC = ORDER_1 + ORDER_2 ) integer DFACC_READ, FULL_INTERLACE parameter (DFACC_READ = 1, + FULL_INTERLACE = 0) C C Function declaration C integer hopen, hclose integer vfstart, vsffnd, vsfatch, vsfsfld, vsfrd, vsfseek, + vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id integer vdata_ref, rec_num, num_of_records, rec_pos real databuf(N_VALS_PER_REC, N_RECORDS) integer i C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Get the reference number of the vdata, whose name is specified in C VDATA_NAME, using vsffnd, which will be discussed in Section 4.7.3. C vdata_ref = vsffnd(file_id, VDATA_NAME) C C Attach to the vdata for reading if it is found, C otherwise exit the program. C if (vdata_ref .eq. 0) stop vdata_id = vsfatch(file_id, vdata_ref, 'r') C C Specify the fields that will be read. C status = vsfsfld(vdata_id, FIELDNAME_LIST) C C Place the current point to the position specified in RECORD_INDEX. C rec_pos = vsfseek(vdata_id, RECORD_INDEX) C C Read the next N_RECORDS from the vdata and store the data in the buffer C databuf with fully interlace mode. C num_of_records = vsfrd(vdata_id, databuf, N_RECORDS, + FULL_INTERLACE) C C Display the read data as many records as the number of records returned C by vsfrd. C write(*,*) ' Particle Position Temperature Range' write(*,*) do 10 rec_num = 1, num_of_records write(*,1000) (databuf(i, rec_num), i = 1, N_VALS_PER_REC) 10 continue 1000 format(1x,3(f6.2), 8x,2(f6.2)) C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/CMakeLists.txt0000644000000000000000000000703212421456623017702 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_FORTRAN_EXAMPLES C CXX Fortran) # -------------------------------------------------------------------- # Notes: When creating examples they should be prefixed # with "f_ex_". This allows for easier filtering of the examples. # -------------------------------------------------------------------- #----------------------------------------------------------------------------- # Add debug information (intel Fortran : JB) #----------------------------------------------------------------------------- IF (CMAKE_Fortran_COMPILER MATCHES ifort) IF (WIN32) SET (CMAKE_Fortran_FLAGS_DEBUG "/debug:full /dbglibs " CACHE "flags" STRING FORCE) SET (CMAKE_EXE_LINKER_FLAGS_DEBUG "/DEBUG" CACHE "flags" STRING FORCE) ENDIF (WIN32) ENDIF (CMAKE_Fortran_COMPILER MATCHES ifort) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- INCLUDE_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${HDF4_HDFSOURCE_DIR} ) LINK_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${HDF4_MFHDF_BINARY_DIR} ${CMAKE_LIBRARY_OUTPUT_DIRECTORY} ) #----------------------------------------------------------------------------- # Define Sources #----------------------------------------------------------------------------- SET (examples VD_create_vdatas VD_write_mixed_vdata VD_write_to_vdata VD_create_onefield_vdatas VD_read_from_vdata VD_read_mixed_vdata VD_get_vdata_info VD_locate_vdata VG_create_vgroup #VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup VG_set_get_vgroup_attr VG_vgroup_contents VG_get_vgroup_info GR_create_and_write_image GR_modify_image GR_set_attribute GR_get_attribute GR_write_palette GR_image_info GR_read_image AN_create_annotation AN_get_annotation_info AN_read_annotation #VD_set_get_vdata_attr ) SET (mf_examples VG_add_sds_to_vgroup ) SET (skip_examples VD_set_get_vdata_attr ) FOREACH (example ${examples}) ADD_EXECUTABLE (f_ex_${example} ${HDF4_HDF_FORTRAN_EXAMPLES_SOURCE_DIR}/${example}.f) TARGET_NAMING (f_ex_${example} ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_ex_${example} " " " ") SET_TARGET_PROPERTIES (f_ex_${example} PROPERTIES LINKER_LANGUAGE Fortran) TARGET_LINK_LIBRARIES (f_ex_${example} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDFOREACH (example ${examples}) ADD_EXECUTABLE (f_ex_VG_add_sds_to_vgroup ${HDF4_HDF_FORTRAN_EXAMPLES_SOURCE_DIR}/VG_add_sds_to_vgroup.f) TARGET_NAMING (f_ex_VG_add_sds_to_vgroup ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_ex_VG_add_sds_to_vgroup " " " ") SET_TARGET_PROPERTIES (f_ex_VG_add_sds_to_vgroup PROPERTIES LINKER_LANGUAGE Fortran) TARGET_LINK_LIBRARIES (f_ex_VG_add_sds_to_vgroup ${HDF4_MF_FORTRAN_LIB_TARGET} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) FOREACH (example ${skip_examples}) ADD_EXECUTABLE (f_ex_${example} ${HDF4_HDF_FORTRAN_EXAMPLES_SOURCE_DIR}/${example}.f) TARGET_NAMING (f_ex_${example} ${LIB_TYPE}) TARGET_FORTRAN_PROPERTIES (f_ex_${example} " " " ") SET_TARGET_PROPERTIES (f_ex_${example} PROPERTIES LINKER_LANGUAGE Fortran) TARGET_LINK_LIBRARIES (f_ex_${example} ${HDF4_SRC_FORTRAN_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDFOREACH (example ${skip_examples}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_write_palette.f0000644000000000000000000000633312421456623020554 0ustar program write_palette implicit none C C Parameter declaration C character*22 FILE_NAME character*18 NEW_IMAGE_NAME integer X_LENGTH integer Y_LENGTH integer N_ENTRIES integer N_COMPS_IMG integer N_COMPS_PAL C parameter (FILE_NAME = 'Image_with_Palette.hdf', + NEW_IMAGE_NAME = 'Image with Palette', + X_LENGTH = 5, + Y_LENGTH = 5, + N_ENTRIES = 256, + N_COMPS_IMG = 2, + N_COMPS_PAL = 3) integer DFACC_CREATE, DFNT_CHAR8, DFNT_UINT8, MFGR_INTERLACE_PIXEL parameter (DFACC_CREATE = 4, + DFNT_CHAR8 = 4, + DFNT_UINT8 = 21, + MFGR_INTERLACE_PIXEL = 0) C C Function declaration C integer hopen, hclose integer mgstart, mgcreat, mgwcimg, mggltid, mgwclut, + mgendac, mgend C C**** Variable declaration ******************************************* C integer file_id, gr_id, ri_id, pal_id integer interlace_mode integer start(2), stride(2), edges(2), dim_sizes(2) integer status integer i, j character image_buf(N_COMPS_IMG, X_LENGTH, Y_LENGTH) character palette_buf(N_COMPS_PAL, N_ENTRIES) C C**** End of variable declaration ************************************ C C C Create and open the file. C file_id = hopen(FILE_NAME, DFACC_CREATE, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Define interlace mode and dimensions of the image. C interlace_mode = MFGR_INTERLACE_PIXEL dim_sizes(1) = X_LENGTH dim_sizes(2) = Y_lENGTH C C Create the raster image array. C ri_id = mgcreat(gr_id, NEW_IMAGE_NAME, N_COMPS_IMG, DFNT_CHAR8, + interlace_mode, dim_sizes) C C Fill the image data buffer with values. C do 20 i = 1, Y_LENGTH do 10 j = 1, X_LENGTH image_buf(1,j,i) = char(i + j - 1 ) image_buf(2,j,i) = char(i + j) 10 continue 20 continue C C Define the size of the data to be written, i.e., start from the origin C and go as long as the length of each dimension. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Write the data in the buffer into the image array. C status = mgwcimg(ri_id, start, stride, edges, image_buf) C C Initilaize the palette buffer to grayscale. C do 40 i = 1, N_ENTRIES do 30 j = 1, N_COMPS_PAL palette_buf(j,i) = char(i) 30 continue 40 continue C C Get the identifier of the palette attached to the image NEW_IMAGE_NAME. C pal_id = mggltid(ri_id, 0) C C Set palette interlace mode. C interlace_mode = MFGR_INTERLACE_PIXEL C C Write data to the palette. C status = mgwclut(pal_id, N_COMPS_PAL, DFNT_UINT8, interlace_mode, + N_ENTRIES, palette_buf) C C Terminate access to the raster image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/Makefile.am0000644000000000000000000000752712421456623017207 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am DEFINES=-DNDEBUG -DHDF ############################################################################# ## Programs to build ## ############################################################################# EXAMPLE_PROG = VD_create_vdatas VD_write_mixed_vdata \ VD_write_to_vdata VD_create_onefield_vdatas \ VD_read_from_vdata VD_read_mixed_vdata \ VD_get_vdata_info VD_locate_vdata VG_create_vgroup \ VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup \ VG_set_get_vgroup_attr VG_vgroup_contents \ VG_get_vgroup_info GR_create_and_write_image \ GR_modify_image GR_set_attribute GR_get_attribute \ GR_write_palette GR_image_info GR_read_image \ AN_create_annotation AN_get_annotation_info AN_read_annotation # VD_set_get_vdata_attr TEST_PROG = $(EXAMPLE_PROG) # These are the Fortran example files to be installed INSTALL_FILES= VD_read_from_vdata.f VD_read_mixed_vdata.f \ VD_write_mixed_vdata.f VD_write_to_vdata.f \ VD_create_onefield_vdatas.f VD_create_vdatas.f \ VD_get_vdata_info.f VD_locate_vdata.f \ VG_insert_vdatas_to_vgroup.f VG_set_get_vgroup_attr.f \ VG_vgroup_contents.f VG_add_sds_to_vgroup.f \ VG_create_vgroup.f VG_get_vgroup_info.f \ GR_create_and_write_image.f GR_get_attribute.f \ GR_image_info.f GR_modify_image.f GR_read_image.f \ GR_read_palette.f GR_set_attribute.f \ GR_write_palette.f AN_create_annotation.f \ AN_get_annotation_info.f AN_read_annotation.f \ #VD_set_get_vdata_attr.f INSTALL_SCRIPT_FILES = run-fortran-ex.sh # Where to install Fortran example files EXAMPLEDIR=$(prefix)/examples/fortran # How to build Fortran programs using h4fc $(EXTRA_PROG): $(H4FC) $(H4FC) $(H4FCFLAGS) $(FFLAGS) -o $@ $(srcdir)/$@.f; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal Fortran compiler, not h4fc. # Fortran Programs VD_read_from_vdata: $(srcdir)/VD_read_from_vdata.f VD_read_mixed_vdata: $(srcdir)/VD_read_mixed_vdata.f #VD_set_get_vdata_attr: $(srcdir)/VD_set_get_vdata_attr.f VD_write_mixed_vdata: $(srcdir)/VD_write_mixed_vdata.f VD_write_to_vdata: $(srcdir)/VD_write_to_vdata.f VD_create_onefield_vdatas: $(srcdir)/VD_create_onefield_vdatas.f VD_create_vdatas: $(srcdir)/VD_create_vdatas.f VD_get_vdata_info: $(srcdir)/VD_get_vdata_info.f VD_locate_vdata: $(srcdir)/VD_locate_vdata.f VG_insert_vdatas_to_vgroup: $(srcdir)/VG_insert_vdatas_to_vgroup.f VG_set_get_vgroup_attr: $(srcdir)/VG_set_get_vgroup_attr.f VG_vgroup_contents: $(srcdir)/VG_vgroup_contents.f VG_add_sds_to_vgroup: $(srcdir)/VG_add_sds_to_vgroup.f VG_create_vgroup: $(srcdir)/VG_create_vgroup.f VG_get_vgroup_info: $(srcdir)/VG_get_vgroup_info.f GR_create_and_write_image: $(srcdir)/GR_create_and_write_image.f GR_get_attribute: $(srcdir)/GR_get_attribute.f GR_image_info: $(srcdir)/GR_image_info.f GR_modify_image: $(srcdir)/GR_modify_image.f GR_read_image: $(srcdir)/GR_read_image.f GR_read_palette: $(srcdir)/GR_read_palette.f GR_set_attribute: $(srcdir)/GR_set_attribute.f GR_write_palette: $(srcdir)/GR_write_palette.f AN_create_annotation: $(srcdir)/AN_create_annotation.f AN_get_annotation_info: $(srcdir)/AN_get_annotation_info.f AN_read_annotation: $(srcdir)/AN_read_annotation.f DISTCLEANFILES = *.chkexe *.chklog if BUILD_SHARED_SZIP_CONDITIONAL LD_LIBRARY_PATH=$(LL_PATH) endif include $(top_srcdir)/config/examples.am include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_write_mixed_vdata.f0000644000000000000000000001003412421456623021375 0ustar program write_mixed_vdata implicit none C C Parameter declaration C character*16 FILE_NAME character*18 CLASS_NAME character*16 VDATA_NAME character*4 FIELD1_NAME character*6 FIELD2_NAME character*5 FIELD3_NAME character*5 FIELD4_NAME character*23 FIELDNAME_LIST integer N_RECORDS, N_FIELDS, ORDER integer BUF_SIZE C parameter (FILE_NAME = 'Packed_Vdata.hdf', + CLASS_NAME = 'General Data Class', + VDATA_NAME = 'Mixed Data Vdata', + FIELD1_NAME = 'Temp', + FIELD2_NAME = 'Height', + FIELD3_NAME = 'Speed', + FIELD4_NAME = 'Ident', + FIELDNAME_LIST = 'Temp,Height,Speed,Ident') parameter (N_RECORDS = 20, + N_FIELDS = 4, + ORDER = 1, + BUF_SIZE = (4 + 2 + 4 + 1)*N_RECORDS) integer DFACC_WRITE, DFNT_FLOAT32, DFNT_INT16, DFNT_CHAR8, + FULL_INTERLACE, HDF_VSPACK parameter (DFACC_WRITE = 2, + DFNT_FLOAT32 = 5, + DFNT_INT16 = 22, + DFNT_CHAR8 = 4, + FULL_INTERLACE = 0, + HDF_VSPACK = 0) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsfsnam, vsfscls, vsffdef, vsfsfld, + vsfnpak, vsfcpak, vsfwrit, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id integer vdata_ref, num_of_records real temp(N_RECORDS) integer*2 height(N_RECORDS) real speed(N_RECORDS) character ident(N_RECORDS) integer i C C Buffer for packed data should be big enough to hold N_RECORDS. C integer databuf(BUF_SIZE/4 + 1) C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Create a new vdata. C vdata_ref = -1 vdata_id = vsfatch(file_id, vdata_ref, 'w') C C Set name and class name of the vdata. C status = vsfsnam(vdata_id, VDATA_NAME) status = vsfscls(vdata_id, CLASS_NAME) C C Introduce each field's name, data type, and order. This is the C first part in defining a field. C status = vsffdef(vdata_id, FIELD1_NAME, DFNT_FLOAT32, ORDER) status = vsffdef(vdata_id, FIELD2_NAME, DFNT_INT16, ORDER) status = vsffdef(vdata_id, FIELD3_NAME, DFNT_FLOAT32, ORDER) status = vsffdef(vdata_id, FIELD4_NAME, DFNT_CHAR8, ORDER) C C Finalize the definition of the fields. C status = vsfsfld(vdata_id, FIELDNAME_LIST) C C Enter data values into the field databufs by the records. C do 10 i = 1, N_RECORDS temp(i) = 1.11 * i height(i) = i - 1 speed(i) = 1.11 * i ident(i) = char(64+i) 10 continue C C Pack N_RECORDS of data into databuf. In Fortran, each field is packed C using separate calls to vsfnpak or vsfcpak. C status = vsfnpak(vdata_id, HDF_VSPACK, ' ', databuf, BUF_SIZE, + N_RECORDS, FIELD1_NAME, temp) status = vsfnpak(vdata_id, HDF_VSPACK, ' ', databuf, BUF_SIZE, + N_RECORDS, FIELD2_NAME, height) status = vsfnpak(vdata_id, HDF_VSPACK, ' ', databuf, BUF_SIZE, + N_RECORDS, FIELD3_NAME, speed) status = vsfcpak(vdata_id, HDF_VSPACK, ' ', databuf, BUF_SIZE, + N_RECORDS, FIELD4_NAME, ident) C C Write all the records of the packed data to the vdata. C num_of_records = vsfwrit(vdata_id, databuf, N_RECORDS, + FULL_INTERLACE) C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/AN_create_annotation.f0000644000000000000000000000736312421456623021373 0ustar program create_annotation implicit none C C Parameter declaration C character*22 FILE_NAME character*9 VG_NAME character*19 FILE_LABEL_TXT character*53 FILE_DESC_TXT character*16 DATA_LABEL_TXT character*54 DATA_DESC_TXT C parameter (FILE_NAME = 'General_HDFobjects.hdf', + VG_NAME = 'AN Vgroup', + FILE_LABEL_TXT = 'General HDF objects', + DATA_LABEL_TXT = 'Common AN Vgroup', + FILE_DESC_TXT = + 'This is an HDF file that contains general HDF objects', + DATA_DESC_TXT = + 'This is a vgroup that is used to test data annotations') integer DFACC_CREATE parameter (DFACC_CREATE = 4) integer AN_FILE_LABEL, AN_FILE_DESC, AN_DATA_LABEL, AN_DATA_DESC parameter (AN_FILE_LABEL = 2, + AN_FILE_DESC = 3, + AN_DATA_LABEL = 0, + AN_DATA_DESC = 1) C C Function declaration C integer hopen, hclose integer afstart, affcreate, afwriteann, afcreate, + afendaccess, afend integer vfstart, vfatch, vfsnam, vqref, vqtag, vfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, an_id integer file_label_id, file_desc_id integer data_label_id, data_desc_id integer vgroup_id, vgroup_tag, vgroup_ref C C**** End of variable declaration ************************************ C C C Create the HDF file. C file_id = hopen(FILE_NAME, DFACC_CREATE, 0) C C Initialize the AN interface. C an_id = afstart(file_id) C C Create the file label. C file_label_id = affcreate(an_id, AN_FILE_LABEL) C C Write the annotation to the file label. C status = afwriteann(file_label_id, FILE_LABEL_TXT, + len(FILE_LABEL_TXT)) C C Create file description. C file_desc_id = affcreate(an_id, AN_FILE_DESC) C C Write the annotation to the file description. C status = afwriteann(file_desc_id, FILE_DESC_TXT, + len(FILE_DESC_TXT)) C C Create a vgroup in the file. Note that the vgroup's ref number is C set to -1 for creating and the access mode is 'w' for writing. C status = vfstart(file_id) vgroup_id = vfatch(file_id, -1, 'w') status = vfsnam(vgroup_id, VG_NAME) C C Obtain the tag and reference number of the vgroup for subsequent C references. C vgroup_ref = vqref(vgroup_id) vgroup_tag = vqtag(vgroup_id) C C Create the data label for the vgroup identified by its tag and ref C number. C data_label_id = afcreate(an_id, vgroup_tag, vgroup_ref, + AN_DATA_LABEL) C C Write the annotation text to the data label. C status = afwriteann(data_label_id, DATA_LABEL_TXT, + len(DATA_LABEL_TXT)) C C Create the data description for the vgroup identified by its tag and ref. C data_desc_id = afcreate(an_id, vgroup_tag, vgroup_ref, + AN_DATA_DESC) C C Write the annotation text to the data description. C status = afwriteann(data_desc_id, DATA_DESC_TXT, + len(DATA_DESC_TXT)) C C Terminate access to the vgroup and to the V interface. C status = vfdtch(vgroup_id) status = vfend(file_id) C C Terminate access to each annotation explicitly. C status = afendaccess(file_label_id) status = afendaccess(file_desc_id) status = afendaccess(data_label_id) status = afendaccess(data_desc_id) C C Terminate access to the AN interface and close the HDF file. C status = afend(an_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_get_vgroup_info.f0000644000000000000000000000533512421456623021105 0ustar program getinfo_about_vgroup implicit none C C Parameter declaration C character*19 FILE_NAME C parameter (FILE_NAME = 'General_Vgroups.hdf') integer DFACC_READ parameter (DFACC_READ = 1) integer SIZE parameter(SIZE = 10) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfgnam, vfgcls, vflone, vfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id integer vgroup_id integer lone_vg_number, num_of_lones character*64 vgroup_name, vgroup_class integer ref_array(SIZE) integer i C C**** End of variable declaration ************************************ C C C Initialize ref_array. C do 10 i = 1, SIZE ref_array(i) = 0 10 continue C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Get and print the name and class name of all lone vgroups. C First, call vflone with num_of_lones set to 0 to get the number of C lone vgroups in the file and check whether size of ref_array is C big enough to hold reference numbers of ALL lone groups. C If ref_array is not big enough, exit the program after displaying an C informative message. C num_of_lones = 0 num_of_lones = vflone(file_id, ref_array, num_of_lones) if (num_of_lones .gt. SIZE) then write(*,*) num_of_lones, 'lone vgroups is found' write(*,*) 'increase the size of ref_array to hold reference ' write(*,*) 'numbers of all lone vgroups in the file' stop endif C C If there are any lone groups in the file, C if (num_of_lones .gt. 0) then C C call vflone again to retrieve the reference numbers into ref_array. C num_of_lones = vflone(file_id, ref_array, num_of_lones) C C Display the name and class of each vgroup. C write(*,*) 'Lone vgroups in the file are:' do 20 lone_vg_number = 1, num_of_lones C C Attach to the current vgroup, then get and display its name and class. C Note: the current vgroup must be detached before moving to the next. C vgroup_name = ' ' vgroup_class = ' ' vgroup_id = vfatch(file_id, ref_array(lone_vg_number), 'r') status = vfgnam(vgroup_id, vgroup_name) status = vfgcls(vgroup_id, vgroup_class) write(*,*) 'Vgroup name ' , vgroup_name write(*,*) 'Vgroup class ' , vgroup_class write(*,*) status = vfdtch(vgroup_id) 20 continue endif C C Terminate access to the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_modify_image.f0000644000000000000000000000716512421456623020341 0ustar program modify_image implicit none C C Parameter declaration C character*19 FILE_NAME character*13 IMAGE1_NAME integer X1_LENGTH integer Y1_LENGTH integer N1_COMPS character*13 IMAGE2_NAME integer X2_LENGTH integer Y2_LENGTH integer N2_COMPS C parameter (FILE_NAME = 'General_RImages.hdf', + IMAGE1_NAME = 'Image Array 1', + IMAGE2_NAME = 'Image Array 2', + X1_LENGTH = 5, + Y1_LENGTH = 2, + N1_COMPS = 2, + X2_LENGTH = 6, + Y2_LENGTH = 4, + N2_COMPS = 3) integer DFACC_WRITE, DFNT_INT16, DFNT_CHAR8, + MFGR_INTERLACE_PIXEL parameter (DFACC_WRITE = 2, + DFNT_CHAR8 = 4, + DFNT_INT16 = 22, + MFGR_INTERLACE_PIXEL = 0) C C Function declaration C integer hopen, hclose integer mgstart, mgselct, mgcreat, mgwrimg, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id integer gr_id, ri1_id, ri2_id, data_type, interlace_mode integer start1(2), stride1(2), edges1(2) integer start2(2), stride2(2), edges2(2), dim_sizes(2) integer i, j, k integer*2 image1_buf(N1_COMPS, X1_LENGTH, Y1_LENGTH) character image2_buf(N2_COMPS, X2_LENGTH, Y2_LENGTH) C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Select the first raster image in the file. C ri1_id = mgselct(gr_id, 0) C C Fill the buffer with values. C do 20 i = 1, Y1_LENGTH do 10 j = 1, X1_LENGTH image1_buf(1,j,i) = 0 image1_buf(2,j,i) = 0 10 continue 20 continue C C Define the part of the data in the first image that will be overwritten C with the new values from image1_buf. C start1(1) = 0 start1(2) = 0 edges1(1) = X1_LENGTH edges1(2) = Y1_LENGTH stride1(1) = 1 stride1(2) = 1 C C Write the data in the buffer into the image array. C status = mgwrimg(ri1_id, start1, stride1, edges1, image1_buf) C C Set the number type, interlace mode, and dimensions of the second image. C data_type = DFNT_CHAR8 interlace_mode = MFGR_INTERLACE_PIXEL dim_sizes(1) = X2_LENGTH dim_sizes(2) = Y2_LENGTH C C Create the second image in the file. C ri2_id = mgcreat(gr_id, IMAGE2_NAME, N2_COMPS, data_type, + interlace_mode, dim_sizes) C C Fill the image data buffer with values. C do 60 i = 1, Y2_LENGTH do 50 j = 1, X2_LENGTH do 40 k = 1, N2_COMPS image2_buf(k,j,i) = char(65 + k - 1) 40 continue 50 continue 60 continue C C Define the size of the data to be written, i.e., start from the origin C and go as long as the length of each dimension. C start2(1) = 0 start2(2) = 0 edges2(1) = dim_sizes(1) edges2(2) = dim_sizes(2) stride2(1) = 1 stride2(2) = 1 C C Write the data in the buffer into the image array. C status = mgwrimg(ri2_id, start2, stride2, edges2, image2_buf) C C Terminate access to the raster images and to the GR interface, C and close the HDF file. C status = mgendac(ri1_id) status = mgendac(ri2_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_get_attribute.f0000644000000000000000000000526512421456623020551 0ustar program get_attribute implicit none C C Parameter declaration C character*19 FILE_NAME character*17 RI_ATTR_NAME C parameter (FILE_NAME = 'General_RImages.hdf', + RI_ATTR_NAME = 'Image Attribute 2') integer DFACC_READ, DFNT_INT16, DFNT_CHAR8 parameter (DFACC_READ = 1, + DFNT_CHAR8 = 4, + DFNT_INT16 = 22) C C Function declaration C integer hopen, hclose integer mgstart, mgfinfo, mgatinf, mggcatt, mggnatt , mgfndat, + mgselct, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id, gr_id, ri_id integer f_att_index, ri_att_index, data_type, n_values integer n_rimages, n_file_attrs integer*2 int_buf(10) character*17 attr_name character*80 char_buf integer i C C**** End of variable declaration ************************************ C C C Open the HDF file. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Determine the number of attributes in the file. C status = mgfinfo(gr_id, n_rimages, n_file_attrs) if ((status .NE. -1) .AND. (n_file_attrs .GT. 0)) then do 10 f_att_index = 0, n_file_attrs-1 C C Get information about the current file attribute. C status = mgatinf(gr_id, f_att_index, attr_name, data_type, + n_values) C C Check whether data type is DFNT_CHAR8 in order to use allocated buffer. C if(data_type .NE. DFNT_CHAR8) then write(*,*) + 'Unable to determine data type to use allocated buffer' else C C Read and display the attribute values. C status = mggcatt(gr_id, f_att_index, char_buf) write(*,*) 'Attribute ', attr_name, ' : ', + char_buf(1:n_values) endif 10 continue endif C C Select the second image in the file. C ri_id = mgselct(gr_id, 1) C C Find the image attribute named RI_ATTR_NAME. C ri_att_index = mgfndat(ri_id, RI_ATTR_NAME) C C Get information about the attribute. C status = mgatinf(ri_id, ri_att_index, attr_name, data_type, + n_values) C C Read and display attribute values. C status = mggnatt(ri_id, ri_att_index, int_buf) write(*,*) 'Attributes :', (int_buf(i), i = 1, n_values) C C Terminate access to the image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_locate_vdata.f0000644000000000000000000000456012421456623020333 0ustar program locate_vdata implicit none C C Parameter declaration C character*18 FILE_NAME character*20 SEARCHED_FIELDS C parameter (FILE_NAME = 'General_Vdatas.hdf', + SEARCHED_FIELDS = 'Position,Temperature') integer DFACC_READ parameter (DFACC_READ = 1) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsfgid, vsfex, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id, vdata_ref integer index logical found_fields C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the VS interface. C status = vfstart(file_id) index = 0 C C Set the reference number to -1 to start the search from the beginning C of the file. C vdata_ref = -1 C C Assume that the specified fields are not found in the current vdata. C found_fields = .FALSE. 10 continue C C Use vsfgid to obtain each vdata by its reference number then C attach to the vdata and search for the fields. The loop terminates C when the last vdata is reached or when a vdata which contains the C fields listed in SEARCHED_FIELDS is found. C vdata_ref = vsfgid(file_id, vdata_ref) if (vdata_ref .eq. -1) goto 100 vdata_id = vsfatch(file_id, vdata_ref, 'r') status = vsfex(vdata_id, SEARCHED_FIELDS) if (status .ne. -1) then found_fields = .TRUE. goto 100 endif status = vsfdtch(vdata_id) index = index + 1 goto 10 100 continue C C Print the index of the vdata containing the fields or a 'not found' C message if no such vdata is found. Also detach from the vdata found. C if(.NOT.found_fields) then write(*,*) 'Fields Positions and Temperature were not found' else write(*,*) + 'Fields Positions and Temperature were found in the vdata', + ' at position ', index C C Terminate access to the vdata C status = vsfdtch(vdata_id) endif C C Terminate access to the VS interface and close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_read_image.f0000644000000000000000000000746212421456623017765 0ustar program read_raster_image implicit none C C Parameter declaration C character*19 FILE_NAME integer X_LENGTH integer Y_LENGTH integer N_COMPS C parameter (FILE_NAME = 'General_RImages.hdf', + X_LENGTH = 10, + Y_LENGTH = 5, + N_COMPS = 2) integer PART_COLS, PART_ROWS, SKIP_COLS, SKIP_ROWS integer COLS_PART_START, ROWS_PART_START integer COLS_SKIP_START, ROWS_SKIP_START integer N_STRIDES parameter (PART_COLS = 3, PART_ROWS = 2, + SKIP_COLS = 3, SKIP_ROWS = 5, + COLS_PART_START = 1, ROWS_PART_START = 3, + COLS_SKIP_START = 0, ROWS_SKIP_START = 1, + N_STRIDES = 2) integer DFACC_READ parameter (DFACC_READ = 1) C C Function declaration C integer hopen, hclose integer mgstart, mgselct, mgrdimg, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id integer gr_id, ri_id integer start(2), stride(2), edges(2) integer i, j integer*2 entire_image(N_COMPS, X_LENGTH, Y_LENGTH) integer*2 partial_image(N_COMPS, PART_ROWS, PART_COLS) integer*2 skipped_image(N_COMPS, SKIP_ROWS, SKIP_COLS) C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Select the first raster image in the file. C ri_id = mgselct(gr_id, 0) C C Define the size of the data to be read, i.e., start from the origin C and go as long as the length of each dimension. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Read the data from the raster image array. C status = mgrdimg(ri_id, start, stride, edges, entire_image) C C Display only the first component of the image since the two components C have the same data in this example. C write(*,*) 'First component of the entire image' write(*,*) do 10 i = 1, X_LENGTH write(*,1000) (entire_image(1,i,j), j = 1, Y_LENGTH) 10 continue write(*,*) C C Define the size of the data to be read. C start(1) = ROWS_PART_START start(2) = COLS_PART_START edges(1) = PART_ROWS edges(2) = PART_COLS stride(1) = 1 stride(2) = 1 C C Read a subset of the raster image array. C status = mgrdimg(ri_id, start, stride, edges, partial_image) C C Display only the first component of the read sample. C write(*,*) + 'Two rows and three columns at 4th row and 2nd column', + ' of the first component' write(*,*) do 20 i = 1, PART_ROWS write(*,1000) (partial_image(1,i,j), j = 1, PART_COLS) 20 continue write(*,*) C C Define the size and the pattern to read the data. C start(1) = ROWS_SKIP_START start(2) = COLS_SKIP_START edges(1) = SKIP_ROWS edges(2) = SKIP_COLS stride(1) = N_STRIDES stride(2) = N_STRIDES C C Read all the odd rows and even columns of the image. C status = mgrdimg(ri_id, start, stride, edges, skipped_image) C C Display only the first component of the read sample. C write(*,*) 'All even rows and odd columns of the first component' write(*,*) do 30 i = 1, SKIP_ROWS write(*,1000) (skipped_image(1,i,j), j = 1, SKIP_COLS) 30 continue write(*,*) C C Terminate access to the raster image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) 1000 format(1x, 5(I4)) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_vgroup_contents.f0000644000000000000000000000557612421456623021157 0ustar program vgroup_contents implicit none C C Parameter declaration C character*19 FILE_NAME C parameter (FILE_NAME = 'General_Vgroups.hdf') integer DFACC_ READ parameter (DFACC_READ = 1) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfgid, vntrc, vfgttr, vfisvg, + vfisvs, vfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id integer vgroup_id, vgroup_ref, vgroup_pos integer obj_index, num_of_pairs integer obj_tag, obj_ref C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Obtain each vgroup in the file by its reference number, get the C number of objects in the vgroup, and display the information C about that vgroup. C vgroup_ref = -1 vgroup_pos = 0 10 continue C C Get the reference number of the next vgroup in the file. C vgroup_ref = vfgid(file_id, vgroup_ref) C C Attach to the vgroup or go to the end if no additional vgroup is found. C if(vgroup_ref. eq. -1) goto 100 vgroup_id = vfatch(file_id, vgroup_ref , 'r') C C Get the total number of objects in the vgroup. C num_of_pairs = vntrc(vgroup_id) C C If the vgroup contains any object, print the tag/ref number C pair of each object in vgroup, in the order they appear in the C file, and indicate whether the object is a vdata, vgroup, or neither. C if (num_of_pairs .gt. 0) then write(*,*) 'Vgroup # ', vgroup_pos, ' contains:' do 20 obj_index = 1, num_of_pairs C C Get the tag/ref number pair of the object specified by its index C and display them. C status = vfgttr(vgroup_id, obj_index-1, obj_tag, obj_ref) C C State whether the HDF object referred to by obj_ref is a vdata, C a vgroup, or neither. C if( vfisvg(vgroup_id, obj_ref) .eq. 1) then write(*,*) 'tag = ', obj_tag, ' ref = ', obj_ref, + ' <--- is a vgroup ' else if ( vfisvs(vgroup_id, obj_ref) .eq. 1) then write(*,*) 'tag = ', obj_tag, ' ref = ', obj_ref, + ' <--- is a vdata ' else write(*,*) 'tag = ', obj_tag, ' ref = ', obj_ref, + ' <--- neither vdata nor vgroup ' endif 20 continue else write (*,*) 'Vgroup #', vgroup_pos, ' contains no HDF objects' endif write(*,*) vgroup_pos = vgroup_pos + 1 goto 10 100 continue C C Terminate access to the vgroup. C status = vfdtch(vgroup_id) C C Terminate access to the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_set_get_vgroup_attr.f0000644000000000000000000000646212421456623022001 0ustar program vgroup_attribute implicit none C C Parameter declaration C character*19 FILE_NAME character*9 VGROUP_NAME character*15 VGATTR_NAME C parameter (FILE_NAME = 'General_Vgroups.hdf', + VGROUP_NAME = 'SD Vgroup', + VGATTR_NAME = 'First Attribute') integer VSET_NEW_VERSION, VSET_VERSION, VSET_OLD_VERSION parameter (VSET_NEW_VERSION = 4, + VSET_VERSION = 3, + VSET_OLD_VERSION = 2) integer DFACC_WRITE parameter (DFACC_WRITE = 2) integer DFNT_CHAR parameter (DFNT_CHAR = 4) integer N_ATT_VALUES parameter (N_ATT_VALUES = 6) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfgver, vfscatt, vfnatts, vfainfo, + vfind, vfgcatt, vfdtch, vfend C C**** Variable declaration ******************************************* C integer status, n_attrs integer file_id integer vgroup_id, vgroup_ref, vg_version integer attr_index, i integer data_type, n_values, size character vg_attr(N_ATT_VALUES) character vgattr_buf(N_ATT_VALUES), attr_name(30) data vg_attr /'v','g','r','o','u','p'/ C C**** End of variable declaration ************************************ C C C Open the HDF file for reading/writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Get the reference number of the vgroup named VGROUP_NAME. C vgroup_ref = vfind(file_id, VGROUP_NAME) C C Attach to the vgroup found. C vgroup_id = vfatch(file_id, vgroup_ref , 'w') C C Get and display the version of the attached vgroup. C vg_version = vfgver(vgroup_id) if (vg_version .eq. VSET_NEW_VERSION) write(*,*) + VGROUP_NAME, ' is of the newest version, version 4' if (vg_version .eq. VSET_VERSION) write(*,*) + VGROUP_NAME, ' is of a version between 3.2 and 4.0r2' if(vg_version .eq. VSET_OLD_VERSION) write(*,*) + VGROUP_NAME, ' is of version before 3.2' if ((vg_version .ne. VSET_NEW_VERSION) .and. + (vg_version .ne. VSET_VERSION) .and. + (vg_version .ne. VSET_OLD_VERSION)) write(*,*) + 'Unknown version' C C Add the attribute named VGATTR_NAME to the vgroup. C status = vfscatt(vgroup_id, VGATTR_NAME, DFNT_CHAR, N_ATT_VALUES, + vg_attr) C C Get and display the number of attributes attached to this group. C n_attrs = vfnatts(vgroup_id) write(*,*) 'This group has', n_attrs, ' attributes' C C Get and display the name and the number of values of each attribute. C do 10 attr_index=1, n_attrs status = vfainfo(vgroup_id, attr_index-1, attr_name, data_type, + n_values, size) write(*,*) 'Attribute #', attr_index-1, ' is named ', attr_name write(*,*) 'and has', n_values, ' values: ' C C Get and display the attribute values. C status = vfgcatt(vgroup_id, attr_index-1, vgattr_buf) write(*,*) (vgattr_buf(i), i=1,n_values) 10 continue C C Terminate access to the vgroup. C status = vfdtch(vgroup_id) C C Terminate accessto the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_insert_vdatas_to_vgroup.f0000644000000000000000000001255412421456623022664 0ustar program add_vdatas_to_a_vgroup implicit none C C Parameter declaration C character*19 FILE_NAME character*8 VG_NAME character*10 VG_CLASS character*15 VD1_NAME character*8 VD1_CLASS character*11 VD2_NAME character*13 VD2_CLASS character*9 VD3_NAME character*4 VD3_CLASS C parameter (FILE_NAME = 'General_Vgroups.hdf', + VG_NAME = 'Vertices', + VG_CLASS = 'Vertex Set') parameter (VD1_NAME = 'X,Y Coordinates', + VD2_NAME = 'Temperature', + VD3_NAME = 'Node List') parameter (VD1_CLASS = 'Position', + VD2_CLASS = 'Property List', + VD3_CLASS = 'Mesh') character*2 FIELD1_VD1 character*2 FIELD2_VD1 character*3 FIELD_VD2 character*4 FIELD_VD3 character*5 FIELDNAME_LIST parameter (FIELD1_VD1 = 'PX', + FIELD2_VD1 = 'PY', + FIELD_VD2 = 'TMP', + FIELD_VD3 = 'PLIST', + FIELDNAME_LIST = 'PX,PY') integer N_RECORDS parameter (N_RECORDS = 30) integer DFACC_WRITE parameter (DFACC_WRITE = 2) integer DFNT_FLOAT32, DFNT_INT16 parameter (DFNT_FLOAT32 = 5, DFNT_INT16 = 22) integer FULL_INTERLACE parameter (FULL_INTERLACE = 0) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfsnam, vfscls, vfinsrt, vfdtch, vfend integer vsfatch, vsfsnam, vsfscls, vsffdef, vsfsfld, + vsfwrt, vsfwrtc, vsfdtch C C**** Variable declaration ******************************************* C integer status integer file_id integer vgroup_id integer vdata1_id, vdata2_id, vdata3_id, vd_index integer num_of_records integer i, j, k real pxy(2,N_RECORDS), tmp(N_RECORDS) integer plist(3,N_RECORDS) data pxy /-1.5, 2.3, -1.5, 1.98, -2.4, .67, + -3.4, 1.46, -.65, 3.1, -.62, 1.23, + -.4, 3.8, -3.55, 2.3, -1.43, 2.44, + .23, 1.13, -1.4, 5.43, -1.4, 5.8, + -3.4, 3.85, -.55, .3, -.21, 1.22, + -1.44, 1.9, -1.4, 2.8, .94, 1.78, + -.4, 2.32, -.87, 1.99, -.54, 4.11, + -1.5, 1.35, -1.4, 2.21, -.22, 1.8, + -1.1, 4.55, -.44, .54, -1.11, 3.93, + -.76, 1.9, -2.34, 1.7, -2.2, 1.21/ C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Buffer the data for the third and second vdatas. C do 20 i = 1, N_RECORDS do 10 j = 1, 3 plist(j,i) = k k = k+1 10 continue 20 continue do 30 i = 1, N_RECORDS tmp(i) = (i-1) * 10.0 30 continue C C Create a vgroup and set its name and class. C Note that the vgroup's reference number is set to -1 for creating C and the access mode is 'w' for writing. C vgroup_id = vfatch(file_id, -1 , 'w') status = vfsnam(vgroup_id, VG_NAME) status = vfscls(vgroup_id, VG_CLASS) C C Create the first vdata then set its name and class. Note that the vdata's C reference number is set to -1 for creating and the access mode is 'w' for C writing. C vdata1_id = vsfatch(file_id, -1, 'w') status = vsfsnam(vdata1_id, VD1_NAME) status = vsfscls(vdata1_id, VD1_CLASS) C C Introduce and define the fields of the first vdata. C status = vsffdef(vdata1_id, FIELD1_VD1, DFNT_FLOAT32, 1) status = vsffdef(vdata1_id, FIELD2_VD1, DFNT_FLOAT32, 1) status = vsfsfld(vdata1_id, FIELDNAME_LIST) C C Write the buffered data into the first vdata. C num_of_records = vsfwrt(vdata1_id, pxy, N_RECORDS, + FULL_INTERLACE) C C Insert the vdata into the vgroup using its identifier. C vd_index = vfinsrt(vgroup_id, vdata1_id) C C Detach from the first vdata. C status = vsfdtch(vdata1_id) C C Create, write, and insert the second vdata to the vgroup using C steps similar to those used for the first vdata. C vdata2_id = vsfatch(file_id, -1, 'w') status = vsfsnam(vdata2_id, VD2_NAME) status = vsfscls(vdata2_id, VD2_CLASS) status = vsffdef(vdata2_id, FIELD_VD2, DFNT_FLOAT32, 1) status = vsfsfld(vdata2_id, FIELD_VD2) num_of_records = vsfwrt(vdata2_id, tmp, N_RECORDS, + FULL_INTERLACE) vd_index = vfinsrt(vgroup_id, vdata2_id) status = vsfdtch(vdata2_id) C C Create, write, and insert the third vdata to the vgroup using C steps similar to those used for the first and second vdatas. C vdata3_id = vsfatch(file_id, -1, 'w') status = vsfsnam(vdata3_id, VD3_NAME) status = vsfscls(vdata3_id, VD3_CLASS) status = vsffdef(vdata3_id, FIELD_VD3, DFNT_INT16, 3) status = vsfsfld(vdata3_id, FIELD_VD3) num_of_records = vsfwrtc(vdata3_id, plist, N_RECORDS, + FULL_INTERLACE) vd_index = vfinsrt(vgroup_id, vdata3_id) status = vsfdtch(vdata3_id) C C Terminate access to the vgroup 'Vertices'. C status = vfdtch(vgroup_id) C C Terminate access to the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_create_vdatas.f0000644000000000000000000000526312421456623020513 0ustar program create_vdatas implicit none C C Parameter declaration C character*18 FILE1_NAME character*14 FILE2_NAME character*7 VDATA_NAME character*12 VDATA_CLASS C parameter (FILE1_NAME = 'General_Vdatas.hdf', + FILE2_NAME = 'Two_Vdatas.hdf', + VDATA_NAME = 'Vdata 1', + VDATA_CLASS = 'Empty Vdatas') integer DFACC_CREATE parameter (DFACC_CREATE = 4) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsfsnam, vsfscls, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file1_id, file2_id integer vdata_id, vdata1_id, vdata2_id integer vdata_ref C C**** End of variable declaration ************************************ C C C Create the first HDF file. C file1_id = hopen(FILE1_NAME, DFACC_CREATE, 0) C C Initialize the VS interface associated with the first HDF file. C status = vfstart(file1_id) C C Create a vdata in the first HDF file. C vdata_ref = -1 vdata_id = vsfatch(file1_id, vdata_ref, 'w') C C Assign a name to the vdata. C status = vsfsnam(vdata_id, VDATA_NAME) C C Other operations on the vdata identified by vdata_id can be carried out C starting from this point. C C Create the second HDF file. C file2_id = hopen(FILE2_NAME, DFACC_CREATE, 0) C C Initialize the VS interface associated with the second HDF file. C status = vfstart(file2_id) C C Create the first vdata in the second HDF file. C vdata1_id = vsfatch(file2_id, vdata_ref, 'w') C C Create the second vdata in the second HDF file. C vdata2_id = vsfatch(file2_id, vdata_ref, 'w') C C Assign a class name to these vdatas. C status = vsfscls(vdata1_id, VDATA_CLASS) status = vsfscls(vdata2_id, VDATA_CLASS) C C Other operations on the vdatas identified by vdata1_id and vdata2_id C can be carried out starting from this point. C C C Terminate access to the first vdata in the second HDF file. C status = vsfdtch(vdata1_id) C C Terminate access to the second vdata in the second HDF file. C status = vsfdtch(vdata2_id) C C Terminate access to the VS interface associated with the second HDF file. C status = vfend(file2_id) C C Close the second HDF file. C status = hclose(file2_id) C C Terminate access to the vdata in the first HDF file. C status = vsfdtch(vdata_id) C C terminate access to the VS interface associated with the first HDF file. C status = vfend(file1_id) C C Close the first HDF file. C status = hclose(file1_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_set_get_vdata_attr.f0000644000000000000000000001051612421456623021546 0ustar program vdata_attributes implicit none C C Parameter declaration C character*18 FILE_NAME character*14 VDATA_NAME character*4 FIELD_NAME character*10 VATTR_NAME character*6 FATTR_NAME integer VATTR_N_VALUES, FATTR_N_VALUES C parameter (FILE_NAME = 'General_Vdatas.hdf', + VDATA_NAME = 'Solid Particle', + FIELD_NAME = 'Mass', + VATTR_NAME = 'Site Ident', + FATTR_NAME = 'Scales') parameter (VATTR_N_VALUES = 3, + FATTR_N_VALUES = 4) integer DFACC_WRITE, FULL_INTERLACE, HDF_VDATA integer DFNT_INT32, DFNT_CHAR8 parameter (DFACC_WRITE = 2, + FULL_INTERLACE = 0, + HDF_VDATA = -1, + DFNT_INT32 = 24, + DFNT_CHAR8 = 4) C C Function declaration C integer hopen, hclose integer vfstart, vsffnd, vsfatch, vsfscat, vsfsnat, + vsffnas, vsffidx, vsfnats, vsfainf, vsfgcat, vsfgnat, + vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id, vdata_ref integer field_index, n_vdattrs, n_fldattrs integer vdata_type, vdata_n_values, vdata_size integer field_type, field_n_values, field_size character vd_attr(VATTR_N_VALUES) integer fld_attr(FATTR_N_VALUES) character vattr_buf(VATTR_N_VALUES) integer fattr_buf(FATTR_N_VALUES) character vattr_name_out(30), fattr_name_out(30) data vd_attr /'A', 'B', 'C'/ data fld_attr /2, 4, 6, 8/ C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Get the reference number of the vdata named VDATA_NAME. C vdata_ref = vsffnd(file_id, VDATA_NAME) C C Attach to the vdata for writing. C vdata_id = vsfatch(file_id, vdata_ref, 'w') C C Attach an attribute to the vdata, as it is indicated by second parameter. C status = vsfscat(vdata_id, HDF_VDATA, VATTR_NAME, DFNT_CHAR8, + VATTR_N_VALUES, vd_attr) C C Get the index of the field FIELD_NAME within the vdata. C status = vsffidx(vdata_id, FIELD_NAME, field_index) C C Attach an attribute to the field with the index field_index. C status = vsfsnat(vdata_id, field_index, FATTR_NAME, DFNT_INT32, + FATTR_N_VALUES, fld_attr) C C Get the number of attributes attached to the vdata's first C field - should be 0. C n_fldattrs = vsffnas(vdata_id, 0) write(*,*) 'Number of attributes of the first field' write(*,*) ' of the vdata: ', n_fldattrs C C Get the number of the attributes attached to the field specified by C index field_index - should be 1. C n_fldattrs = vsffnas(vdata_id, field_index) write(*,*) 'Number of attributes of field ', FIELD_NAME, + n_fldattrs C C Get the total number of the field's and vdata's attributes - should be 2. C n_vdattrs = vsfnats(vdata_id) write(*,*) 'Number of attributes of the vdata and its fields: ', + n_vdattrs C C Get information about the vdata's first attribute, indicated by C the third parameter, which is the index of the attribute. C status = vsfainf(vdata_id, HDF_VDATA, 0, vattr_name_out, + vdata_type, vdata_n_values, vdata_size) C C Get information about the first attribute of the field specified by C field_index. C status = vsfainf(vdata_id, field_index, 0, fattr_name_out, + field_type, field_n_values, field_size) C C Get the vdata's first attribute. C status = vsfgcat(vdata_id, HDF_VDATA, 0, vattr_buf) write(*,*) 'Values of vdata attribute ', vattr_buf C C Get the first attribute of the field specified by field_index. C status = vsfgnat(vdata_id, field_index, 0, fattr_buf) write(*,*) 'Values of the field attribute = ', fattr_buf C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/run-fortran-ex.sh0000644000000000000000000001214512421456623020366 0ustar #! /bin/sh # # Copyright by The HDF Group. # All rights reserved. # # This file is part of HDF4. The full HDF4 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF4 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # This file: run-hdf-c-ex.sh # Written by: Larry Knox # Date: Jan 17, 2014 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # This script will compile and run the c examples from source files installed # # in .../examples/c using h4cc. The order for running # # programs with RunTest in the MAIN section below is taken from the Makefile. # # The order is important since some of the test programs use data files created # # by earlier test programs. Any future additions should be placed accordingly. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # Initializations EXIT_SUCCESS=0 EXIT_FAILURE=1 # Where the tool is installed. # default is relative path to installed location of the tools prefix="${prefix:-../../}" AR="@AR@" RANLIB="@RANLIB@" H4TOOL="h4fc" # The tool name H4TOOL_BIN="${prefix}/bin/${H4TOOL}" # The path of the tool binary #### Run test #### RunTest() { TEST_EXEC=$1 Test=$1".f" echo echo "################# $1 #################" ${H4TOOL_BIN} -o $TEST_EXEC $Test if [ $? -ne 0 ] then echo "messed up compiling $Test" exit 1 fi ./$TEST_EXEC } ################## MAIN ################## # Run tests if [ $? -eq 0 ] then if ( #### hdf examples #### RunTest VD_create_vdatas &&\ rm VD_create_vdatas &&\ RunTest VD_write_mixed_vdata &&\ rm VD_write_mixed_vdata &&\ RunTest VD_write_to_vdata &&\ rm VD_write_to_vdata &&\ RunTest VD_create_onefield_vdatas &&\ rm VD_create_onefield_vdatas &&\ RunTest VD_read_from_vdata &&\ rm VD_read_from_vdata &&\ RunTest VD_read_mixed_vdata &&\ rm VD_read_mixed_vdata &&\ RunTest VD_get_vdata_info &&\ rm VD_get_vdata_info &&\ RunTest VD_locate_vdata &&\ rm VD_locate_vdata &&\ RunTest VG_create_vgroup &&\ rm VG_create_vgroup &&\ RunTest VG_add_sds_to_vgroup &&\ rm VG_add_sds_to_vgroup &&\ RunTest VG_insert_vdatas_to_vgroup &&\ rm VG_insert_vdatas_to_vgroup &&\ RunTest VG_set_get_vgroup_attr &&\ rm VG_set_get_vgroup_attr &&\ RunTest VG_vgroup_contents &&\ rm VG_vgroup_contents &&\ RunTest VG_get_vgroup_info &&\ rm VG_get_vgroup_info &&\ RunTest GR_create_and_write_image &&\ rm GR_create_and_write_image &&\ RunTest GR_modify_image &&\ rm GR_modify_image &&\ RunTest GR_set_attribute &&\ rm GR_set_attribute &&\ RunTest GR_get_attribute &&\ rm GR_get_attribute &&\ RunTest GR_write_palette &&\ rm GR_write_palette &&\ RunTest GR_image_info &&\ rm GR_image_info &&\ RunTest GR_read_image &&\ rm GR_read_image &&\ RunTest AN_create_annotation &&\ rm AN_create_annotation &&\ RunTest AN_get_annotation_info &&\ rm AN_get_annotation_info &&\ RunTest AN_read_annotation &&\ rm AN_read_annotation &&\ #### mfhdf examples #### RunTest SD_create_sds &&\ rm SD_create_sds &&\ RunTest SD_write_to_sds &&\ rm SD_write_to_sds &&\ RunTest SD_write_slab &&\ rm SD_write_slab &&\ RunTest SD_alter_sds_values &&\ rm SD_alter_sds_values &&\ RunTest SD_unlimited_sds &&\ rm SD_unlimited_sds &&\ RunTest SD_mv_sds_to_external &&\ rm SD_mv_sds_to_external &&\ RunTest SD_read_from_sds &&\ rm SD_read_from_sds &&\ RunTest SD_read_subsets &&\ rm SD_read_subsets &&\ RunTest SD_get_info &&\ rm SD_get_info &&\ RunTest SD_find_sds_by_name &&\ rm SD_find_sds_by_name &&\ RunTest SD_set_get_dim_info &&\ rm SD_set_get_dim_info &&\ RunTest SD_dimscale_vs_sds &&\ rm SD_dimscale_vs_sds &&\ RunTest SD_set_attr &&\ rm SD_set_attr &&\ RunTest SD_get_attr &&\ rm SD_get_attr &&\ RunTest SD_compress_sds &&\ rm SD_compress_sds &&\ RunTest SD_chunking_example &&\ rm SD_chunking_example ); then EXIT_VALUE=${EXIT_SUCCESS} else EXIT_VALUE=${EXIT_FAILURE} fi fi # Cleanup rm *.o rm *.hdf echo exit $EXIT_VALUE libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_image_info.f0000644000000000000000000000507212421456623020000 0ustar program image_info implicit none C C Parameter declaration C character*19 FILE_NAME C parameter (FILE_NAME = 'General_RImages.hdf') integer DFACC_READ parameter (DFACC_READ = 1) C C Function declaration C integer hopen, hclose integer mgstart, mgselct, mgfinfo, mggiinf, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id, gr_id, ri_id integer n_rimages, n_file_attrs, ri_index integer n_comps, interlace_mode, n_attrs, data_type integer dim_sizes(2) character*10 type_string character*24 interlace_string character*64 name C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Determine the contents of the file. C status = mgfinfo(gr_id, n_rimages, n_file_attrs) C C For each image in the file, get and display image information. C do 100 ri_index = 0, n_rimages-1 ri_id = mgselct(gr_id, ri_index) status = mggiinf(ri_id, name, n_comps, data_type, + interlace_mode, dim_sizes, n_attrs) C C Map the number type and interlace mode into text strings for C output readability. C if(data_type .eq. 4) then type_string = 'DFNT_CHAR8' else if(data_type .eq. 22) then type_string = 'DFNT_INT16' else type_string = 'Unknown' endif if (interlace_mode .eq. 0) then interlace_string = 'MFGR_INTERLACE_PIXEL' else if(interlace_mode .eq. 1) then interlace_string = 'MFGR_INTERLACE_LINE' else if(interlace_mode .eq. 2) then interlace_string = 'MFGR_INTERLACE_COMPONENT' else interlace_string = 'Unknown' endif C C Display the image information for the current image. C write(*,*) 'Image index: ', ri_index write(*,*) 'Image name: ', name write(*,*) 'Number of components: ', n_comps write(*,*) 'Number type: ', type_string write(*,*) 'Interlace mode: ', interlace_string write(*,*) 'Dimnesions: ', dim_sizes(1), dim_sizes(2) write(*,*) 'Number of image attributes: ', n_attrs write(*,*) C C Terminate access to the current raster image. C status = mgendac(ri_id) 100 continue C C Terminate access to the GR interface and close the HDF file. status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_add_sds_to_vgroup.f0000644000000000000000000000450212421456623021411 0ustar program add_SDS_to_a_vgroup implicit none C C Parameter declaration C character*19 FILE_NAME character*7 SDS_NAME character*9 VG_NAME character*13 VG_CLASS C parameter (FILE_NAME = 'General_Vgroups.hdf', + SDS_NAME = 'Test SD', + VG_NAME = 'SD Vgroup', + VG_CLASS = 'Common Vgroups') integer DFACC_CREATE, DFACC_WRITE parameter (DFACC_CREATE = 4, DFACC_WRITE = 2) integer DFNT_INT32 parameter (DFNT_INT32 = 24) integer DFTAG_NDG parameter (DFTAG_NDG = 720) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfsnam, vfscls, vfadtr, vfdtch, vfend integer sfstart, sfcreate, sfid2ref, sfendacc, sfend C C**** Variable declaration ******************************************* C integer status integer file_id integer vgroup_id integer sd_id, sds_id, sds_ref integer dim_sizes(1), rank C C**** End of variable declaration ************************************ C C C Create the HDF file. C file_id = hopen(FILE_NAME, DFACC_CREATE, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Initialize SD interface. C sd_id = sfstart(FILE_NAME, DFACC_WRITE) C C Set the rank and the size of SDS's dimension. C rank = 1 dim_sizes(1) = 10 C C Create the SDS. C sds_id = sfcreate(sd_id, SDS_NAME, DFNT_INT32, rank, dim_sizes) C C Create a vgroup and set its name and class. C vgroup_id = vfatch(file_id, -1 , 'w') status = vfsnam(vgroup_id, VG_NAME) status = vfscls(vgroup_id, VG_CLASS) C C Obtain the reference number of the SDS using its identifier. C sds_ref = sfid2ref(sds_id) C C Add the SDS to the vgroup. Note: the tag DFTAG_NDG is used C when adding an SDS. Refer to HDF Reference Manual, Section III, Table 3K, C for the entire list of tags. C status = vfadtr(vgroup_id, DFTAG_NDG, sds_ref) C C Terminate access to the SDS and to the SD interface. C status = sfendacc(sds_id) status = sfend(sd_id) C C Terminate access to the vgroup. C status = vfdtch(vgroup_id) C C Terminate access to the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/CMakeTests.cmake0000644000000000000000000000427412421456623020154 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME HDF_FORTRAN_EXAMPLES-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove General_HDFobjects.hdf General_RImages.hdf General_Vdatas.hdf General_Vgroups.hdf Image_with_Palette.hdf Packed_Vdata.hdf Two_Vdatas.hdf Two_Vgroups.hdf ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDF_FORTRAN_EXAMPLES-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDF_FORTRAN_EXAMPLES-clearall-objects PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDF_FORTRAN_EXAMPLES-clearall-objects") FOREACH (example ${examples}) ADD_TEST (NAME f_extest_${example} COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_extest_${example} PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_extest_${example} PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "f_extest_${example}") ENDFOREACH (example ${examples}) ADD_TEST (NAME f_extest_VG_add_sds_to_vgroup COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_extest_VG_add_sds_to_vgroup PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (f_extest_VG_add_sds_to_vgroup PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "f_extest_VG_add_sds_to_vgroup") FOREACH (example ${skip_examples}) ADD_TEST (NAME f_extest_${example} COMMAND ${CMAKE_COMMAND} -E echo "SKIP f_extest_${example}") ENDFOREACH (example ${skip_examples}) libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VG_create_vgroup.f0000644000000000000000000000260312421456623020551 0ustar program create_vgroup implicit none C C Parameter declaration C character*15 FILE_NAME C parameter (FILE_NAME = 'Two_Vgroups.hdf') integer DFACC_CREATE parameter (DFACC_CREATE = 4) C C Function declaration C integer hopen, hclose integer vfstart, vfatch, vfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id integer vgroup1_id, vgroup2_id, vgroup_ref C C**** End of variable declaration ************************************ C C C Create the HDF file. C file_id = hopen(FILE_NAME, DFACC_CREATE, 0) C C Initialize the V interface. C status = vfstart(file_id) C C Create the first vgroup. Note that the vgroup reference number is set C to -1 for creating and the access mode is 'w' for writing. C vgroup_ref = -1 vgroup1_id = vfatch(file_id, vgroup_ref, 'w') C C Create the second vgroup. C vgroup2_id = vfatch(file_id, vgroup_ref, 'w') C C Any operations on the vgroups. C C .............................. C C Terminate access to the first vgroup. C status = vfdtch(vgroup1_id) C C Terminate access to the second vgroup. C status = vfdtch(vgroup2_id) C C Terminate access to the V interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_get_vdata_info.f0000644000000000000000000000474212421456623020660 0ustar program vdata_info implicit none C C Parameter declaration C character*18 FILE_NAME integer DFACC_READ, FULL_INTERLACE integer FIELD_SIZE C parameter (FILE_NAME = 'General_Vdatas.hdf', + DFACC_READ = 1, + FULL_INTERLACE = 0, + FIELD_SIZE = 80) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsfgid, vsfinq, + vsfisat, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id, vdata_ref integer n_records, interlace_mode, vdata_size character*64 vdata_name character*80 fieldname_list C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Set the reference number to -1 to start the search from the beginning C of the file. C vdata_ref = -1 10 continue C C Use vsfgid to obtain each vdata by its reference number then C attach to the vdata and get information. The loop terminates C when the last vdata is reached. C vdata_ref = vsfgid(file_id, vdata_ref) if (vdata_ref .eq. -1) goto 100 C C Attach to the current vdata for reading. C vdata_id = vsfatch(file_id, vdata_ref, 'r') C C Test whether the current vdata is not a storage for an attribute, C then obtain and display its information. if (vsfisat(vdata_id) .ne. 1) then status = vsfinq(vdata_id, n_records, interlace_mode, + fieldname_list, vdata_size, vdata_name) write(*,*) 'Vdata: ', vdata_name write(*,*) 'contains ', n_records, ' records' if (interlace_mode .eq. 0) then write(*,*) 'Interlace mode: FULL' else write(*,*) 'Interlace mode: NONE' endif write(*,*) 'Fields: ', fieldname_list(1:30) write(*,*) 'Vdata record size in bytes :', vdata_size write(*,*) endif C C Detach from the current vdata. C status = vsfdtch(vdata_id) goto 10 100 continue C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/AN_read_annotation.f0000644000000000000000000000477112421456623021043 0ustar program read_annotation implicit none C C Parameter declaration C character*22 FILE_NAME C parameter (FILE_NAME = 'General_HDFobjects.hdf') integer DFACC_READ parameter (DFACC_READ = 1) integer AN_DATA_LABEL parameter (AN_DATA_LABEL = 0) C C Function declaration C integer hopen, hclose integer afstart, affileinfo, afselect, afannlen, afreadann, + afendaccess, afend C C**** Variable declaration ******************************************* C integer status integer file_id, an_id, ann_id integer index, ann_length integer n_file_labels, n_file_descs, n_data_labels, n_data_descs character*256 ann_buf C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the AN interface. C an_id = afstart(file_id) C C Get the annotation information, i.e., the number of file labels, C file descriptions, data labels, and data descriptions. C status = affileinfo(an_id, n_file_labels, n_file_descs, + n_data_labels, n_data_descs) C C Get the data labels. Note that this DO loop can be used to obtain C the contents of each kind of annotation with the appropriate number C of annotations and the type of annotation, i.e., replace C n_data_labels with n_file_labels, n_files_descs, or n_data_descs, and C AN_DATA_LABEL with AN_FILE_LABEL, AN_FILE_DESC, or AN_DATA_DESC, C respectively. C do 10 index = 0, n_data_labels-1 C C Get the identifier of the current data label. C ann_id = afselect(an_id, index, AN_DATA_LABEL) C C Get the length of the data label. C ann_length = afannlen(ann_id) C C Read and display the data label. The data label is read into buffer C ann_buf. One has to make sure that ann_buf has sufficient size to hold C the data label. Also note, that the third argument to afreadann is C 1 greater that the actual length of the data label (see comment to C C example). C status = afreadann(ann_id, ann_buf, ann_length+1) write(*,*) 'Data label index: ', index write(*,*) 'Data label contents: ', ann_buf(1:ann_length) 10 continue C C Terminate access to the current data label. C status = afendaccess(ann_id) C C Terminate access to the AN interface and close the HDF file. C status = afend(an_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_set_attribute.f0000644000000000000000000000600512421456623020556 0ustar program set_attribute implicit none C C Parameter declaration C character*19 FILE_NAME character*13 IMAGE_NAME character*16 F_ATT1_NAME character*16 F_ATT2_NAME character*17 RI_ATT1_NAME character*17 RI_ATT2_NAME character*32 F_ATT1_VAL character*33 F_ATT2_VAL integer F_ATT1_N_VALUES integer F_ATT2_N_VALUES character*35 RI_ATT1_VAL integer RI_ATT1_N_VALUES integer RI_ATT2_N_VALUES C parameter (FILE_NAME = 'General_RImages.hdf', + IMAGE_NAME = 'Image Array 2', + F_ATT1_NAME = 'File Attribute 1', + F_ATT2_NAME = 'File Attribute 2', + RI_ATT1_NAME = 'Image Attribute 1', + RI_ATT2_NAME = 'Image Attribute 2', + F_ATT1_VAL = 'Contents of First FILE Attribute', + F_ATT2_VAL = 'Contents of Second FILE Attribute', + F_ATT1_N_VALUES = 32, + F_ATT2_N_VALUES = 33, + RI_ATT1_VAL = 'Contents of IMAGE''s First Attribute', + RI_ATT1_N_VALUES = 35, + RI_ATT2_N_VALUES = 6) integer DFACC_WRITE, DFNT_INT16, DFNT_CHAR8 parameter (DFACC_WRITE = 2, + DFNT_CHAR8 = 4, + DFNT_INT16 = 22) C C Function declaration C integer hopen, hclose integer mgstart, mgscatt, mgsnatt , mgn2ndx, + mgselct, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id, gr_id, ri_id, ri_index integer*2 ri_attr_2(RI_ATT2_N_VALUES) integer i do 10 i = 1, RI_ATT2_N_VALUES ri_attr_2(i) = i 10 continue C C**** End of variable declaration ************************************ C C C Open the HDF file. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Set two file attributes to the file with names, data type, numbers of C values, and values of attributes specified. C status = mgscatt(gr_id, F_ATT1_NAME, DFNT_CHAR8, + F_ATT1_N_VALUES, F_ATT1_VAL) status = mgscatt(gr_id, F_ATT2_NAME, DFNT_CHAR8, + F_ATT2_N_VALUES, F_ATT2_VAL) C C Obtain the index of the image named IMAGE_NAMR. C ri_index = mgn2ndx(gr_id, IMAGE_NAME) C C Obtain the identifier of this image. C ri_id = mgselct(gr_id, ri_index) C C Set two attributes of the image with names, data types, number of C values, and values of the attributes specified. C status = mgscatt(ri_id, RI_ATT1_NAME, DFNT_CHAR8, + RI_ATT1_N_VALUES, RI_ATT1_VAL) status = mgsnatt(ri_id, RI_ATT2_NAME, DFNT_INT16, + RI_ATT2_N_VALUES, ri_attr_2) C C Terminate access to the image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_read_mixed_vdata.f0000644000000000000000000000636112421456623021166 0ustar program read_mixed_vdata implicit none C C Parameter declaration C character*16 FILE_NAME character*16 VDATA_NAME character*4 FIELD1_NAME character*5 FIELD2_NAME character*10 FIELDNAME_LIST integer N_RECORDS, N_FIELDS integer BUFFER_SIZE C parameter (FILE_NAME = 'Packed_Vdata.hdf', + VDATA_NAME = 'Mixed Data Vdata', + FIELD1_NAME = 'Temp', + FIELD2_NAME = 'Ident', + FIELDNAME_LIST = 'Temp,Ident') parameter (N_RECORDS = 20, + N_FIELDS = 2, + BUFFER_SIZE = (4 + 1)*N_RECORDS) integer DFACC_READ, DFNT_FLOAT32, DFNT_CHAR8, + FULL_INTERLACE, HDF_VSUNPACK parameter (DFACC_READ = 1, + DFNT_FLOAT32 = 5, + DFNT_CHAR8 = 4, + FULL_INTERLACE = 0, + HDF_VSUNPACK = 1) C C Function declaration C integer hopen, hclose integer vfstart, vsfatch, vsffnd, vsfsfld, + vsfnpak, vsfcpak, vsfread, vsfdtch, vfend C C**** Variable declaration ******************************************* C integer status integer file_id, vdata_id integer vdata_ref, num_of_records real temp(N_RECORDS) character ident(N_RECORDS) integer i C C Buffer for read packed data should be big enough to hold N_RECORDS. C integer databuf(BUFFER_SIZE/4 + 1) C C**** End of variable declaration ************************************ C C C Open the HDF file for reading. C file_id = hopen(FILE_NAME, DFACC_READ, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Get the reference number of the vdata, whose name is specified in C VDATA_NAME, using vsffnd, which will be discussed in Section 4.7.3. C vdata_ref = vsffnd(file_id, VDATA_NAME) C C Attach to the vdata for reading if it is found, C otherwise exit the program. C if (vdata_ref .eq. 0) stop vdata_id = vsfatch(file_id, vdata_ref, 'r') C C Specify the fields that will be read. C status = vsfsfld(vdata_id, FIELDNAME_LIST) C C Read N_RECORDS records of the vdata and store the values into the databuf. C num_of_records = vsfread(vdata_id, databuf, N_RECORDS, + FULL_INTERLACE) C C Unpack N_RECORDS from databuf into temp and ident arrays. C In Fortran, each field is unpacked using separate calls to C vsfnpak or vsfcpak. C status = vsfnpak(vdata_id, HDF_VSUNPACK, FIELDNAME_LIST, databuf, + BUFFER_SIZE, num_of_records, FIELD1_NAME, temp) status = vsfcpak(vdata_id, HDF_VSUNPACK, FIELDNAME_LIST, databuf, + BUFFER_SIZE, num_of_records, FIELD2_NAME, ident) C C Display the read data being stored in the field databufs. C write (*,*) ' Temp Ident' do 10 i = 1, num_of_records write(*,1000) temp(i), ident(i) 10 continue 1000 format (3x,F6.2, 4x, a) C C Terminate access to the vdata and to the VS interface, and C close the HDF file. C status = vsfdtch(vdata_id) status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/GR_create_and_write_image.f0000644000000000000000000000463112421456623022344 0ustar program create_raster_image implicit none C C Parameter declaration C character*19 FILE_NAME character*13 IMAGE_NAME integer X_LENGTH integer Y_LENGTH integer N_COMPS C parameter (FILE_NAME = 'General_RImages.hdf', + IMAGE_NAME = 'Image Array 1', + X_LENGTH = 10, + Y_LENGTH = 5, + N_COMPS = 2) integer DFACC_CREATE, DFNT_INT16, MFGR_INTERLACE_PIXEL parameter (DFACC_CREATE = 4, + DFNT_INT16 = 22, + MFGR_INTERLACE_PIXEL = 0) C C Function declaration C integer hopen, hclose integer mgstart, mgcreat, mgwrimg, mgendac, mgend C C**** Variable declaration ******************************************* C integer status integer file_id integer gr_id, ri_id, num_type, interlace_mode integer start(2), stride(2), edges(2), dimsizes(2) integer i, j, k integer*2 image_buf(N_COMPS, X_LENGTH, Y_LENGTH) C C**** End of variable declaration ************************************ C C C Create and open the file. C file_id = hopen(FILE_NAME, DFACC_CREATE, 0) C C Initialize the GR interface. C gr_id = mgstart(file_id) C C Set the number type, interlace mode, and dimensions of the image. C num_type = DFNT_INT16 interlace_mode = MFGR_INTERLACE_PIXEL dimsizes(1) = X_LENGTH dimsizes(2) = Y_lENGTH C C Create the raster image array. C ri_id = mgcreat(gr_id, IMAGE_NAME, N_COMPS, num_type, + interlace_mode, dimsizes) C C Fill the image data buffer with values. C do 30 i = 1, Y_LENGTH do 20 j = 1, X_LENGTH do 10 k = 1, N_COMPS image_buf(k,j,i) = (i+j) - 1 10 continue 20 continue 30 continue C C Define the size of the data to be written, i.e., start from the origin C and go as long as the length of each dimension. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C C Write the data in the buffer into the image array. C status = mgwrimg(ri_id, start, stride, edges, image_buf) C C Terminate access to the raster image and to the GR interface, C and close the HDF file. C status = mgendac(ri_id) status = mgend(gr_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/fortran/examples/VD_create_onefield_vdatas.f0000644000000000000000000000470012421456623022353 0ustar program create_onefield_vdatas implicit none C C Parameter declaration C character*18 FILE_NAME character*9 CLASS1_NAME character*9 CLASS2_NAME character*11 VDATA1_NAME character*12 VDATA2_NAME character*22 FIELD1_NAME character*21 FIELD2_NAME integer N_RECORDS_1, N_RECORDS_2 integer ORDER_2 C parameter (FILE_NAME = 'General_Vdatas.hdf', + CLASS1_NAME = '5x1 Array', + CLASS2_NAME = '6x4 Array', + VDATA1_NAME = 'First Vdata', + VDATA2_NAME = 'Second Vdata', + FIELD1_NAME = 'Single-component Field', + FIELD2_NAME = 'Multi-component Field') parameter (N_RECORDS_1 = 5, + N_RECORDS_2 = 6, + ORDER_2 = 4) integer DFACC_WRITE, DFNT_CHAR8, DFNT_INT32 parameter (DFACC_WRITE = 2, + DFNT_CHAR8 = 4, + DFNT_INT32 = 24) C C Function declaration C integer hopen, hclose integer vfstart, vhfscd, vhfsdm, vfend C C**** Variable declaration ******************************************* C integer status integer file_id integer vdata1_ref, vdata2_ref character vdata1_buf(N_RECORDS_1) integer vdata2_buf(ORDER_2, N_RECORDS_2) data vdata1_buf /'V','D','A','T','A'/ data vdata2_buf / 1, 2, 3, 4, + 2, 4, 6, 8, + 3, 6, 9, 12, + 4, 8, 12, 16, + 5, 10, 15, 20, + 6, 12, 18, 24/ C C**** End of variable declaration ************************************ C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) C C Initialize the VS interface. C status = vfstart(file_id) C C Create the first vdata and populate it with data from vdata1_buf array. C vdata1_ref = vhfscd(file_id, FIELD1_NAME, vdata1_buf, N_RECORDS_1, + DFNT_CHAR8, VDATA1_NAME, CLASS1_NAME) C C Create the second vdata and populate it with data from vdata2_buf array. C vdata2_ref = vhfsdm(file_id, FIELD2_NAME, vdata2_buf, N_RECORDS_2, + DFNT_INT32, VDATA2_NAME, CLASS2_NAME, + ORDER_2) C C Terminate access to the VS interface and close the HDF file. C status = vfend(file_id) status = hclose(file_id) end libhdf4-4.2.10/HDF_ALT/hdf/test/0000755000000000000000000000000012421456623012626 5ustar libhdf4-4.2.10/HDF_ALT/hdf/test/mgrf.f0000644000000000000000000013706712421456623013746 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: mgrf.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine mgrf (num_err) C C Test Program: C Tests the multi-file GR interface. C Input file: none C Output file: tmgrf.hdf C C implicit none include 'fortest.inc' integer num_err C C ---chunking and compression errors ---------- integer err_grchunk, err_grwrchunk, err_grcompress C --------------------------------------------- C character*20 myname parameter (myname = 'mgrf') integer hopen, hclose integer mgstart, mgfinfo, mgend, mgcreat, mgselct integer mgn2ndx, mggiinf, mgwrimg, mgrdimg, mgendac integer mgid2rf, mgr2idx, mgrltil, mgrimil, mggltid c integer mgwrlut, mgrdlut integer mgglinf, mgwclut, mgrclut c integer mgsattr integer mgatinf, mggattr, mgfndat integer mgscatt, mgsnatt, mggcatt, mggnatt integer mgwcimg, mgrcimg integer mggnluts integer MFGR_INTERLACE_PIXEL, MFGR_INTERLACE_LINE, * MFGR_INTERLACE_COMPONENT parameter(MFGR_INTERLACE_PIXEL = 0, * MFGR_INTERLACE_LINE = 1, * MFGR_INTERLACE_COMPONENT = 2) integer DFACC_READ, DFACC_WRITE, DFACC_CREATE, DFACC_ALL integer DFACC_RDONLY, DFACC_RDWR, DFACC_CLOBBER parameter(DFACC_READ = 1, * DFACC_WRITE = 2, * DFACC_CREATE = 4, * DFACC_ALL = 7, * DFACC_RDONLY = 1, * DFACC_RDWR = 3, * DFACC_CLOBBER = 4) integer DFNT_INT8, DFNT_UINT8, * DFNT_INT16, DFNT_UINT16, * DFNT_INT32, DFNT_UINT32, * DFNT_INT64, DFNT_UINT64, * DFNT_INT128,DFNT_UINT128, * DFNT_CHAR8, DFNT_UCHAR8 parameter(DFNT_INT8 = 20, * DFNT_UINT8 = 21, * DFNT_INT16 = 22, * DFNT_UINT16 = 23, * DFNT_INT32 = 24, * DFNT_UINT32 = 25, * DFNT_INT64 = 26, * DFNT_UINT64 = 27, * DFNT_INT128 = 28, * DFNT_UINT128 = 29, * DFNT_CHAR8 = 4, * DFNT_UCHAR8 = 3) integer il character*80 TESTFILE character*80 IMAGE1, IMAGE2, IMAGEC, IMAGEC_2 character*80 ATNAME1, ATNAME_N, ATNAME_C character*80 ATNAME2, ATNAME2_N, ATNAME2_C character*1 CR character buf(3, 2, 2), buf1(2, 3, 2), buf2(2, 2, 3) character in(3,2,2), in1(2, 3, 2), in2(2, 2, 3) integer outbuf(4), outbuf1(4), outbuf2(4) integer inbuf(4), inbuf1(4), inbuf2(4) equivalence (outbuf, buf), (outbuf1, buf1), (outbuf2,buf2) equivalence (inbuf, in), (inbuf1, in1), (inbuf2,in2) character pal(3,256), in_pal(3,256), in_pal2(256,3) integer file_id, gr_id, ri_id, pal_id, index, index2 integer n_datasets, n_attrs, ref integer n_comp, nt integer dims(2), start(2), stride(2) integer*4 attr(5), attr2(5), attr2_n(5) character attr_c(6), attr2_c(6) character cbuf(2,3,4), icbuf(2,3,4) integer i, j, k, ret, number_failed integer n_pal DATA attr_c/'A','T','T','R','_','C'/ DATA cbuf/'A','B','C','D','E','F','G','H','I','J','K','L', + 'M','N','O','P','Q','R','S','T','U','V','W','X'/ call ptestban('Testing', myname) num_err = 0 TESTFILE = 'tmgrf.hdf' IMAGE1 = 'Image #1' IMAGEC = 'Image_c #1' ATNAME1 = 'Attr. #1' ATNAME_N = 'Numeric Attr. #1' ATNAME_C = 'Character Attr. #1' CR = char(10) number_failed = 0 C Initialize the arrays C Initialize the image arrays do 150 i=1, 2 do 2 j=1, 2 buf(1, j, i) = char(i+j) buf(2, j, i) = char(i+j) buf(3, j, i) = char(i+j) buf1(j, 1, i) = char(i-j) buf1(j, 2, i) = char(i-j) buf1(j, 3, i) = char(i-j) buf2(j, i, 1) = char(2*i - j) buf2(j, i, 2) = char(2*i - j) buf2(j, i, 3) = char(2*i - j) 2 continue 150 continue do 157 i=1,2 do 156 j=1,3 do 155 k=1,4 icbuf(i,j,k) = ' ' 155 continue 156 continue 157 continue C Initialize the palette array do 160 i=1, 256 do 3 j=1, 3 pal(j,i)=char(i+j) 3 continue 160 continue C Initialize the attribute do 170 i=1, 5 attr(i)=i*21 170 continue C Open the file file_id=hopen(TESTFILE, DFACC_ALL, 0) call VRFY(file_id,'hopen',number_failed) gr_id=mgstart(file_id) call VRFY(gr_id,'mgstart',number_failed) C Create an image call MESSAGE(5,'Creating an image') dims(1)=2 dims(2)=2 ri_id = mgcreat(gr_id,IMAGE1,3,DFNT_UINT8,MFGR_INTERLACE_PIXEL, * dims) call VRFY(ri_id,'mgcreat',number_failed) start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Writing image data') ret = mgwrimg(ri_id,start,stride,dims,outbuf) call VRFY(ret,'mgwrimg',number_failed) C Store a palette with the image call MESSAGE(5,'Writing palette data') pal_id = mggltid(ri_id, 0) call VRFY(pal_id,'mggltid',number_failed) ret = mgwclut(pal_id,3,DFNT_UINT8,MFGR_INTERLACE_PIXEL,256,pal) call VRFY(ret,'mgwclut',number_failed) C Store an attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgsnatt(ri_id,ATNAME1,DFNT_INT32,5,attr) call VRFY(ret,'mgsnatt',number_failed) C Store a numeric attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgsnatt(ri_id,ATNAME_N,DFNT_INT32,5,attr) call VRFY(ret,'mgsnatt',number_failed) C Store a character attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgscatt(ri_id,ATNAME_C,DFNT_CHAR8,6,attr_c) call VRFY(ret,'mgscatt',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C Create a character type image call MESSAGE(5,'Creating a character type image') dims(1)=2 dims(2)=2 ri_id = mgcreat(gr_id,IMAGEC,3,DFNT_CHAR8,MFGR_INTERLACE_PIXEL, * dims) call VRFY(ri_id,'mgcreat',number_failed) start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Writing character image data') ret = mgwcimg(ri_id,start,stride,dims,cbuf) call VRFY(ret,'mgwcimg',number_failed) ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C End access to the GR interface ret = mgend(gr_id) call VRFY(ret,'mgend',number_failed) C Close the file ret = hclose(file_id) call VRFY(ret,'hclose',number_failed) C Re-open the file file_id=hopen(TESTFILE, DFACC_ALL, 0) call VRFY(file_id,'hopen',number_failed) gr_id=mgstart(file_id) call VRFY(gr_id,'mgstart',number_failed) C Get info about the file call MESSAGE(5,'Getting GR file information') ret = mgfinfo(gr_id,n_datasets,n_attrs) call VRFY(ret,'mgfinfo',number_failed) C Select an image call MESSAGE(5,'Selecting an image') index = mgn2ndx(gr_id, IMAGE1) call VRFY(index,'mgn2ndx',number_failed) ri_id = mgselct(gr_id,index) call VRFY(ri_id,'mgselct',number_failed) n_pal = mggnluts(ri_id) call VRFY(ri_id,'mggnluts',number_failed) if(n_pal .ne. 1) then print *, 'Wrong number of palettes returned for IMAGE1' endif C Get info about the image call MESSAGE(5,'Getting image information') ret = mggiinf(ri_id,IMAGE2,n_comp,nt,il,dims,n_attrs) call VRFY(ret,'mggiinf',number_failed) ref = mgid2rf(ri_id) call VRFY(ref,'mgid2rf',number_failed) index2 = mgr2idx(gr_id,ref) call VRFY(index2,'mgr2idx',number_failed) C Check image reading start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Reading image data') ret = mgrdimg(ri_id,start,stride,dims,inbuf) call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_LINE) call VRFY(ret,'mgrimil',number_failed) ret = mgrdimg(ri_id,start,stride,dims,inbuf1) call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrimil',number_failed) ret = mgrdimg(ri_id,start,stride,dims,inbuf2) call VRFY(ret,'mgrdimg',number_failed) C Check palette reading pal_id = mggltid(ri_id, 0) call VRFY(pal_id,'mggltid',number_failed) call MESSAGE(5,'Reading palette data') ret = mgglinf(pal_id,n_comp,nt,il,i) call VRFY(ret,'mgglinf',number_failed) ret = mgrclut(pal_id,in_pal) call VRFY(ret,'mgrclut',number_failed) ret = mgrltil(pal_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrltil',number_failed) ret = mgrclut(pal_id,in_pal2) call VRFY(ret,'mgrclut',number_failed) C Check attribute reading index = mgfndat(ri_id,ATNAME1) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggattr(ri_id,index,attr2) call VRFY(ret,'mggattr',number_failed) C Check numeric attr index = mgfndat(ri_id, ATNAME_N) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2_N,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggnatt(ri_id,index,attr2_n) call VRFY(ret,'mggnatt',number_failed) C Check character attr index = mgfndat(ri_id, ATNAME_C) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2_C,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggcatt(ri_id,index,attr2_c) call VRFY(ret,'mggcatt',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C Select a character image call MESSAGE(5,'Selecting a char type image') index = mgn2ndx(gr_id, IMAGEC) call VRFY(index,'mgn2ndx',number_failed) ri_id = mgselct(gr_id,index) call VRFY(ri_id,'mgselct',number_failed) n_pal = mggnluts(ri_id) call VRFY(ri_id,'mggnluts',number_failed) if(n_pal .ne. 0) then print *,'Wrong number of palettes returned for IMAGEC' endif C Get info about the image call MESSAGE(5,'Getting image information') ret = mggiinf(ri_id,IMAGEC_2,n_comp,nt,il,dims,n_attrs) call VRFY(ret,'mggiinf',number_failed) ref = mgid2rf(ri_id) call VRFY(ref,'mgid2rf',number_failed) index2 = mgr2idx(gr_id,ref) call VRFY(index2,'mgr2idx',number_failed) C Check image reading start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Reading image data') call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_LINE) call VRFY(ret,'mgrimil',number_failed) ret = mgrcimg(ri_id,start,stride,dims,icbuf) call VRFY(ret,'mgrcimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrimil',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C End access to the GR interface ret = mgend(gr_id) call VRFY(ret,'mgend',number_failed) C Close the file ret = hclose(file_id) call VRFY(ret,'hclose',number_failed) C C GR chunking and compression tests. Added by EIP 1/13/98 C C ----Chunking test C creates the following files: C GRchunked1.hdf err_grchunk = 0 call test_grchunk(err_grchunk) if (err_grchunk .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grchunk failed********' endif C ----Chunking write/read test C creates the following files: C GRchunked2.hdf err_grwrchunk = 0 call test_grwrchunk(err_grwrchunk) if (err_grwrchunk .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grwrchunk failed********' endif C ----Compression test C C creates the following files: C GRcompressed.hdf err_grcompress = 0 call test_grcompress(err_grcompress) if (err_grcompress .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grcompress failed*******' endif C if (number_failed .eq. 0) then if (Verbosity .gt. 6) then print *, CR, CR print *, '****** ALL TESTS SUCCESSFUL ******' endif else print *, '****** ', number_failed, ' TESTS FAILED ******' endif return end CD CD----All lines started with CD should be deleted after GR bug that prevents CD----writing multiple images to the file is fixed. CD subroutine test_grchunk( err_grchunk ) implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP integer MFGR_INTERLACE_PIXEL parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) parameter(NCOMP = 2, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id, . file_id integer dims(2), start(2), edges(2), stride(2) integer err_grchunk integer i, j, status, il, k, i_comp, index integer flags, maxcache, nc_out character*14 file character*12 name(N_COMP_TYPES) integer n_images, n_file_attrs C C---GR interface functions C integer mgstart, mgcreat, mgwrimg, mgsnatt, . mgrdimg, mgfinfo, mgn2ndx, mgselct, mgendac, mgend C C---GR chunking functions C integer mggichnk, . mgscchnk, . mgschnk C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT32 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT32 = 24) parameter (X_LENGTH = 9, . Y_LENGTH = 4, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES), comp_type_out(N_COMP_TYPES) integer comp_prm(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) parameter (DEFLATE_LEVEL = 1, . SKPHUFF_SKP_SIZE = 2) C C---Data C integer*4 image_data(NCOMP, X_LENGTH, Y_LENGTH) integer*4 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) C C---Default pixel value C integer*4 pixel_value(2) C C---Chunking dimension arrays C integer ch_dims(2), ch_dims_out(2) C C----We will write four images using different compression methods to C one file. C file = 'GRchunked1.hdf' C C No compresion C name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE comp_type_out(1) = 0 C C RLE compresion C name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE comp_type_out(2) = 1 C C Adaptive Huffman compresion C name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF comp_type_out(3) = 1 C C GZIP compression C name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE comp_type_out(4) = 1 C C Data initialization C do 30 j = 1, Y_LENGTH do 20 i = 1, X_LENGTH do 10 k = 1, NCOMP image_data(k, i, j) = i + j - 1 10 continue 20 continue 30 continue C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C---Define chunk dimensions C ch_dims(1) = X_CH_LENGTH ch_dims(2) = Y_CH_LENGTH C C Main loop through different compression types C C C Create and a file and initiate GR interface. C file_id = hopen(file, DFACC_CREATE, 0) if(file_id .le. 0) then print *, 'hopen failed to create a file' err_grchunk = err_grchunk +1 goto 2223 endif gr_id = mgstart(file_id) if(gr_id .le. 0) then print *, 'mgstart failed to initialise GR interface' err_grchunk = err_grchunk +1 goto 2222 endif do 1000 i_comp=1, N_COMP_TYPES C C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id, name(i_comp), NCOMP, . DFNT_INT32, il, dims) if(ri_id(i_comp) .le. 0) then print *, 'mgcreat failed to create ', i_comp, 'GR dataset' err_grchunk = err_grchunk +1 goto 1000 endif C C---Set pixel value C pixel_value(1) = 0 pixel_value(2) = 0 C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT32, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C---Define chunked GR C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL status = mgschnk (ri_id(i_comp), ch_dims, . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgschnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C---Set chunk cache to hold maximum of 3 chunks C maxcache = 3 flags = 0 status = mgscchnk (ri_id(i_comp), maxcache, flags) if(status .ne. 3) then print *, 'mgscchnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Define the location, pattern, and size of the data set C that will be written to. start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C Write the stored data to the image array. status = mgwrimg(ri_id(i_comp), start, stride, edges, image_data) if(status .ne. 0) then print *, 'mgwrimg failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 1000 continue C C Terminate access to the GR interface. C status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Open the file. C file_id = hopen(file, DFACC_READ, 0) if(file_id .eq. -1) then print *, 'hopen failed to access the file' err_grchunk = err_grchunk +1 goto 2223 endif C C Initiate the GR interface and select first data set. C gr_id = mgstart(file_id) if(gr_id .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 goto 2222 endif C C Check that file contains 4 GR datasets and has 0 file attributes. C status = mgfinfo(gr_id, n_images, n_file_attrs) if(status .ne. 0) then print *, 'mgfinfo failed ' err_grchunk = err_grchunk +1 goto 2222 endif if(n_images .ne. 4) then print *, 'Wrong number of images returned ' err_grchunk = err_grchunk +1 goto 2222 endif if(n_file_attrs .ne. 0) then print *, 'Wrong number of file attributes returned ' err_grchunk = err_grchunk +1 endif do 2000 i_comp=1, n_images C ri_id(i_comp) = mgselct(gr_id(i_comp), index) C C Find an index using image's name. C index = mgn2ndx(gr_id, name(i_comp)) if(index .lt. 0 .or. index .gt. 3) then print *, 'Wrong index range ' err_grchunk = err_grchunk +1 goto 2222 endif ri_id(i_comp) = mgselct(gr_id, index) if(ri_id(i_comp) .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 goto 1999 endif C C Read the stored data to the image array. C status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(image_data(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grchunk = err_grchunk +1 endif 40 continue 50 continue 60 continue C C Check chunking info C status = mggichnk(ri_id(i_comp), ch_dims_out, . nc_out) if(status .ne. 0) then print *, 'mggichnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif if (comp_type_out(i_comp) .ne. nc_out) then print *, 'mggichnk returns wrong compression type for', . i_comp, '-th data set' err_grchunk = err_grchunk + 1 endif if ( (ch_dims(1) .ne. ch_dims_out(1)) .or. . (ch_dims(2) .ne. ch_dims_out(2))) then print *, 'mggichnk returns wrong chunk dimensions for', . i_comp, '-th data set' err_grchunk = err_grchunk + 1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 1999 continue C 2000 continue C C Terminate access to the GR interface. C status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 2222 continue C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 2223 continue return end C C GR compression test C subroutine test_grcompress( err_grcompress ) implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP C parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) parameter(N_COMP_TYPES = 5, N_COMP_ARG = 2) integer MFGR_INTERLACE_PIXEL parameter(NCOMP = 3, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id, . file_id integer dims(2), start(2), edges(2), stride(2) integer i, j, k, status, il, i_comp, index integer err_grcompress C character*12 file(N_COMP_TYPES) character*16 file character*12 name(N_COMP_TYPES) C C---GR interface functions C integer mgstart, mgcreat, mgwrimg, mgn2ndx, . mgsnatt, . mgrdimg, mgselct, mgendac, mgend C C---GR compression function C integer mgscompress, mggcompress C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT32 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT32 = 24) parameter (X_LENGTH = 9, . Y_LENGTH = 4, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES), comp_type_out integer comp_prm(N_COMP_ARG), comp_prm_out(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL, . COMP_CODE_JPEG, . JPEG_QUALITY, . JPEG_COMPATIBILITY parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4, . COMP_CODE_JPEG = 7) parameter (DEFLATE_LEVEL = 6, . SKPHUFF_SKP_SIZE = 2) parameter (JPEG_QUALITY = 100, . JPEG_COMPATIBILITY = 1) C C---Data C integer*4 image_data(NCOMP, X_LENGTH, Y_LENGTH) integer*4 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) C C---Default pixel value C integer*4 pixel_value(NCOMP) C C---We will write/read to four different files corresponding to the C different compression types. file = 'GRcompressed.hdf' C C No compresion C name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE C C RLE compresion C name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE C C Adaptive Huffman compresion C name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF C C GZIP compression C name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE C C JPEG compression C name(5) = 'Jpcomp_data' comp_type(5) = COMP_CODE_JPEG C C Data initialization C do 30 j = 1, Y_LENGTH do 20 i = 1, X_LENGTH do 10 k = 1, NCOMP image_data(k, i, j) = i + j - 1 10 continue 20 continue 30 continue C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C---Set pixel value C do 305 i = 1, NCOMP pixel_value(i) = 0 305 continue C C Main loop through different compression types C C C Create and open the file. C file_id = hopen(file, DFACC_CREATE, 0) if(file_id .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Initiate the GR interface. C C gr_id(i_comp) = mgstart(file_id(i_comp)) C if(gr_id(i_comp) .eq. -1) then gr_id = mgstart(file_id) if(gr_id .eq. -1) then print *, 'mgstart failed for', i_comp, '-th dataset' err_grcompress = err_grcompress +1 endif do 1000 i_comp=1, N_COMP_TYPES C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id, name(i_comp), NCOMP, . DFNT_INT32, il, dims) if(ri_id(i_comp) .eq. -1) then print *, 'mgcreat failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT32, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C---Set compression C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL if (i_comp. eq. 5) then comp_prm(1) = JPEG_QUALITY comp_prm(2) = JPEG_COMPATIBILITY endif status = mgscompress (ri_id(i_comp), . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgscompress failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Define the location, pattern, and size of the data set C that will be written to. start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C Write the stored data to the image array. status = mgwrimg(ri_id(i_comp), start, stride, edges, image_data) if(status .ne. 0) then print *, 'mgwrimg failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif 1000 continue C C Terminate access to the GR interface. C status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Open the file. C file_id = hopen(file, DFACC_READ, 0) if(file_id .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Initiate the GR interface and select first data set. C gr_id = mgstart(file_id) if(gr_id .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif do 2000 i_comp=1, N_COMP_TYPES index = mgn2ndx(gr_id, name(i_comp)) if(index .eq. -1 ) then print *, 'mgn2ndx failed for', name(i_comp), ' data set' err_grcompress = err_grcompress +1 endif ri_id(i_comp) = mgselct(gr_id, index) if(ri_id(i_comp) .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 goto 1999 endif C C Find out type of compression used and compression parameters. C status = mggcompress(ri_id(i_comp), comp_type_out, comp_prm_out) if (status .eq. -1) then print *, 'mggcompress failed for', i, ' -th dataset' err_grcompress = err_grcompress + 1 endif if (name(i_comp) .eq. 'Nocomp_data') then if (comp_type_out .ne. COMP_CODE_NONE) then print *, 'wrong compression type for Nocomp_data dataset' err_grcompress = err_grcompress + 1 endif endif if (name(i_comp) .eq. 'Rlcomp_data') then if (comp_type_out .ne. COMP_CODE_RLE) then print *, 'wrong compression type for Rlcomp_data dataset' err_grcompress = err_grcompress + 1 endif endif if (name(i_comp) .eq. 'Hucomp_data') then if (comp_type_out .ne. COMP_CODE_SKPHUFF) then print *, 'wrong compression type for Hucomp_data dataset' err_grcompress = err_grcompress + 1 endif if (comp_prm_out(1). ne. skphuff_skp_size) then print *, 'wrong compression parameter for Hucomp_data dataset' err_grcompress = err_grcompress + 1 endif endif if (name(i_comp) .eq. 'Gzcomp_data') then if (comp_type_out .ne. COMP_CODE_DEFLATE) then print *, 'wrong compression type for Gzcomp_data dataset' endif if (comp_prm_out(1). ne. deflate_level) then print *, 'wrong compression parameter for Gzcomp_data dataset' err_grcompress = err_grcompress + 1 endif endif if (name(i_comp) .eq. 'Jpcomp_data') then if (comp_type_out .ne. COMP_CODE_JPEG) then print *, 'wrong compression type for Jpcomp_data dataset' err_grcompress = err_grcompress + 1 endif goto 1111 endif C C Read the stored data to the image array. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(image_data(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grcompress = err_grcompress +1 endif 40 continue 50 continue 60 continue 1111 continue C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif 1999 continue 2000 continue C C Terminate access to the GR interface. C status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif return end subroutine test_grwrchunk( err_grwrchunk ) C C---This subroutine tests GR write/read functions C implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP integer MFGR_INTERLACE_PIXEL parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) parameter(NCOMP = 3, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id, . file_id integer dims(2), start(2), edges(2), stride(2) integer err_grwrchunk integer i, j, status, il, k, i_comp, index C character*13 file(N_COMP_TYPES) character*14 file character*12 name(N_COMP_TYPES) C C---GR interface functions C integer mgstart, mgcreat, mgsnatt, . mgrdimg, mgn2ndx, mgselct, mgendac, mgend, mgfinfo, . mggcompress C C---GR chunking functions C integer mgwchnk, . mgrchnk, . mgschnk C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT32 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT32 = 24) parameter (X_LENGTH = 6, . Y_LENGTH = 10, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES), comp_type_out(N_COMP_TYPES) integer comp_typegr integer comp_prm(N_COMP_ARG) integer comp_prm_out(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) parameter (DEFLATE_LEVEL = 6, . SKPHUFF_SKP_SIZE = 3) C C---Data C integer*4 chunk11(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*4 chunk21(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*4 chunk52(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*4 chunk52_out(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*4 data_org(NCOMP* X_LENGTH*Y_LENGTH) integer*4 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) integer*4 data_arr(NCOMP,X_LENGTH,Y_LENGTH) integer n_images, n_file_attrs equivalence (data_org(1), data_arr(1,1,1)) C C---Default pixel value C integer*4 pixel_value(3) C C---Chunking dimension arrays C integer ch_dims(2) C C---We will write/read to four different files corresponding to the C different compression types. C C We will try to write to one file GRchunked2.hdf file = 'GRchunked2.hdf' C No compresion C name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE comp_type_out(1) = 0 C C RLE compresion C name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE comp_type_out(2) = 1 C C Adaptive Huffman compresion C name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF comp_type_out(3) = 1 C C GZIP compression C name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE comp_type_out(4) = 1 C C Data initialization C data chunk11 / 110, 111, 112, 120, 121, 122, . 130, 131, 132, 140, 141, 142, . 150, 151, 152, 160, 161, 162/ data chunk21 / 210, 211, 212, 220, 221, 222, . 230, 231, 232, 240, 241, 242, . 250, 251, 252, 260, 261, 262/ data chunk52 / 1010, 1011, 1012, 1020, 1021, 1022, . 1030, 1031, 1032, 1040, 1041, 1042, . 1050, 1051, 1052, 1060, 1061, 1062/ data data_org / . 110, 111, 112, 120, 121, 122, 210, 211, 212, 220, 221, 222, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 130, 131, 132, 140, 141, 142, . 230, 231, 232, 240, 241, 242, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 150, 151, 152, 160, 161, 162, 250, 251, 252, 260, 261, 262, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 1010, 1011, 1012, 1020, 1021, 1022, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 1030, 1031, 1032, 1040, 1041, 1042, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 1050, 1051, 1052, 1060, 1061, 1062/ C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C---Define chunk dimensions C ch_dims(1) = Y_CH_LENGTH ch_dims(2) = X_CH_LENGTH C C Main loop through different compression types C C C Create and open the file. C C C Initiate the GR interface. C file_id = hopen(file, DFACC_CREATE, 0) gr_id = mgstart(file_id) do 1000 i_comp=1, N_COMP_TYPES C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id, name(i_comp), NCOMP, . DFNT_INT32, il, dims) C C---Set pixel value C pixel_value(1) = 0 pixel_value(2) = 0 pixel_value(3) = 0 C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT32, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C---Define chunked GR C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL status = mgschnk (ri_id(i_comp), ch_dims, . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgschnk failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 1 start(2) = 1 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk11) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, first chunk' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 2 start(2) = 1 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk21) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, second chunk' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 5 start(2) = 2 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk52) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, third chunk' err_grwrchunk = err_grwrchunk +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif 1000 continue C C Terminate access to the GR interface. C C status = mgend(gr_id(i_comp)) status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif file_id = hopen(file, DFACC_READ, 0) if(file_id .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Initiate the GR interface and select first data set. C gr_id = mgstart(file_id) if(gr_id .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Find number of images in the file ( should be 4) C status = mgfinfo(gr_id, n_images, n_file_attrs) if(status .ne. 0) then print *, 'mgfinfo failed ' err_grwrchunk = err_grwrchunk +1 goto 2222 endif if(n_images .ne. 4) then print *, 'Wrong number of images returned ' err_grwrchunk = err_grwrchunk +1 goto 2222 endif if(n_file_attrs .ne. 0) then print *, 'Wrong number of file attributes returned ' err_grwrchunk = err_grwrchunk +1 endif do 2000 i_comp=1, n_images C C Find an index using image's name. C index = mgn2ndx(gr_id, name(i_comp)) if(index .lt. 0 .or. index .gt. 3) then print *, 'Wrong index range ' err_grwrchunk = err_grwrchunk +1 goto 2222 endif ri_id(i_comp) = mgselct(gr_id, index) if( ri_id(i_comp) .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 goto 2000 endif status = mggcompress(ri_id(i_comp), comp_typegr, comp_prm_out) if (status .eq. -1) then print *, 'mggcompress failed for', i, ' -th dataset' err_grwrchunk = err_grwrchunk +1 endif if (name(i_comp) .eq. 'Nocomp_data') then if (comp_typegr .ne. COMP_CODE_NONE) then print *, 'wrong compression type for Nocomp_data dataset' err_grwrchunk = err_grwrchunk +1 endif endif if (name(i_comp) .eq. 'Rlcomp_data') then if (comp_typegr .ne. COMP_CODE_RLE) then print *, 'wrong compression type for Rlcomp_data dataset' err_grwrchunk = err_grwrchunk +1 endif endif if (name(i_comp) .eq. 'Hucomp_data') then if (comp_typegr .ne. COMP_CODE_SKPHUFF) then print *, 'wrong compression type for Hucomp_data dataset' err_grwrchunk = err_grwrchunk +1 endif if (comp_prm_out(1). ne. skphuff_skp_size) then print *, 'wrong compression parameter for Hucomp_data dataset' err_grwrchunk = err_grwrchunk +1 endif endif if (name(i_comp) .eq. 'Gzcomp_data') then if (comp_typegr .ne. COMP_CODE_DEFLATE) then print *, 'wrong compression type for Gzcomp_data dataset' endif if (comp_prm_out(1). ne. deflate_level) then print *, 'wrong compression parameter for Gzcomp_data dataset' err_grwrchunk = err_grwrchunk +1 endif endif C C Read the stored data to the image array. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(data_arr(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grwrchunk = err_grwrchunk +1 endif 40 continue 50 continue 60 continue C C--- Read the third chunk back and compare it with original data. C start(1) = 5 start(2) = 2 status = mgrchnk(ri_id(i_comp), start, chunk52_out) if(status .ne. 0) then print *, 'mgrchnk failed for', i_comp, . '-th data set, third chunk' err_grwrchunk = err_grwrchunk +1 endif do 401 j = 1, NCOMP*X_CH_LENGTH*Y_CH_LENGTH if(chunk52(j).ne.chunk52_out(j)) then print *, 'read chunk''s data is wrong' err_grwrchunk = err_grwrchunk +1 endif 401 continue C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif 1999 continue 2000 continue 2222 continue C C Terminate access to the GR interface. C status = mgend(gr_id) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Close the file. C status = hclose(file_id) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tszip.c0000644000000000000000000012241512421456623014150 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * SZIP support eliminated for HDF4.2R1 */ #include #ifdef H4_HAVE_LIBSZ #include "szlib.h" #endif #include "tutils.h" /* * NOTE: these tests should be elaborated: * - use NN and EC options * - bigger datasets * - more data types */ #define FILE_NAME8 "RI_8_sziped.hdf" #define FILE_NAME16 "RI_16_sziped.hdf" #define FILE_NAME32 "RI_32_sziped.hdf" #define FILE_NAMEfl32 "RI_fl32_sziped.hdf" #define FILE_NAMEfl64 "RI_fl64_sziped.hdf" #define WIDTH 10 /* number of columns in the image */ #define LENGTH 6 /* number of rows in the image */ #define N_COMPS 3 /* number of components in the image */ #define IMAGE_NAME "Sziped_Image" /* * Sub-tests for test_mgr_szip(): * test_szip_RI8bit() * test_szip_RI16bit() * test_szip_RI32bit() * test_szip_RIfl32bit() * test_szip_RIfl64bit() * test_szip_chunk() */ /* * Write/Read szip compressed image with 8-bit integer data */ static void test_szip_RI8bit() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ index; int32 start[2], edges[2]; uint32 comp_config; comp_info cinfo; /* Compression parameters - union */ comp_coder_t comp_type; int8 out_data[LENGTH][WIDTH][N_COMPS]; int8 in_data[LENGTH][WIDTH][N_COMPS] = { 10, 11, 12, 13, 14, 15, 40, 41, 42, 43, 44, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, 50, 51, 52, 53, 54, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 71, 72, 73, 74, 75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 81, 82, 83, 84, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 91, 92, 93, 94, 95}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for sziped data */ file_id = Hopen (FILE_NAME8, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_INT8; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = WIDTH; dim_sizes[1] = LENGTH; /* Create the raster image array */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate:Failed to create a raster image for szip compression testing"); /* Define the location, pattern, and size of the data set */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Initializate for SZIP */ comp_type = COMP_CODE_SZIP; cinfo.szip.pixels_per_block = 2; cinfo.szip.options_mask = SZ_EC_OPTION_MASK; cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; cinfo.szip.pixels = 0; cinfo.szip.pixels_per_scanline = 0; cinfo.szip.bits_per_pixel = 0; /* Set the compression */ status = GRsetcompress(ri_id, comp_type, &cinfo); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetcompress"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_RI8bit(): %s\n",SKIP_STR);); return; } status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)in_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the file to flush the compressed info to the file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file */ file_id = Hopen (FILE_NAME8, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image */ index = GRnametoindex(gr_id, IMAGE_NAME); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the whole image */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)out_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Compare read data against input data */ if (0!= HDmemcmp(out_data, in_data, sizeof(in_data))) printf("Error in reading the whole image \n" ); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_RI8bit */ /* * Write/Read szip compressed image with 16-bit integer data */ static void test_szip_RI16bit() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ index; int32 start[2], edges[2]; comp_info cinfo; /* Compression parameters - union */ uint32 comp_config; comp_coder_t comp_type; int16 out_data[LENGTH][WIDTH][N_COMPS]; int16 in_data[LENGTH][WIDTH][N_COMPS] = { 10, 11, 12, 13, 14, 15, 40, 41, 42, 43, 44, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, 50, 51, 52, 53, 54, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 71, 72, 73, 74, 75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 81, 82, 83, 84, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 91, 92, 93, 94, 95}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for sziped data */ file_id = Hopen (FILE_NAME16, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_INT16; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = WIDTH; dim_sizes[1] = LENGTH; /* Create the raster image array */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate:Failed to create a raster image for szip compression testing"); /* Define the location, pattern, and size of the data set */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Initializate for SZIP */ comp_type = COMP_CODE_SZIP; cinfo.szip.pixels_per_block = 2; cinfo.szip.options_mask = SZ_EC_OPTION_MASK; cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; cinfo.szip.pixels = 0; cinfo.szip.pixels_per_scanline = 0; cinfo.szip.bits_per_pixel = 0; /* Set the compression */ status = GRsetcompress(ri_id, comp_type, &cinfo); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetcompress"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_RI16bit(): %s\n",SKIP_STR);); return; } status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)in_data); CHECK_VOID(status, FAIL, "SDwritedata"); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the file to flush the compressed info to the file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file */ file_id = Hopen (FILE_NAME16, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image */ index = GRnametoindex(gr_id, IMAGE_NAME); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the whole image */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)out_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Compare read data against input data */ if (0!= HDmemcmp(out_data, in_data, sizeof(in_data))) printf("Error in reading the whole image \n" ); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_RI16bit */ /* * Write/Read szip compressed image with 32-bit integer data */ static void test_szip_RI32bit() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ index; int32 start[2], edges[2]; comp_info cinfo; /* Compression parameters - union */ uint32 comp_config; comp_coder_t comp_type; int32 out_data[LENGTH][WIDTH][N_COMPS]; int32 in_data[LENGTH][WIDTH][N_COMPS] = { 10, 11, 12, 13, 14, 15, 40, 41, 42, 43, 44, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, 50, 51, 52, 53, 54, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 71, 72, 73, 74, 75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 81, 82, 83, 84, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 91, 92, 93, 94, 95}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for sziped data */ file_id = Hopen (FILE_NAME32, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_INT32; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = WIDTH; dim_sizes[1] = LENGTH; /* Create the raster image array */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate:Failed to create a raster image for szip compression testing"); /* Define the location, pattern, and size of the data set */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Initializate for SZIP */ comp_type = COMP_CODE_SZIP; cinfo.szip.pixels_per_block = 2; cinfo.szip.options_mask = SZ_EC_OPTION_MASK; cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; cinfo.szip.pixels = 0; cinfo.szip.pixels_per_scanline = 0; cinfo.szip.bits_per_pixel = 0; /* Set the compression */ status = GRsetcompress(ri_id, comp_type, &cinfo); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetcompress"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_RI32bit(): %s\n",SKIP_STR);); return; } status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)in_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the file to flush the compressed info to the file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file */ file_id = Hopen (FILE_NAME32, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image */ index = GRnametoindex(gr_id, IMAGE_NAME); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the whole image */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)out_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Compare read data against input data */ if (0!= HDmemcmp(out_data, in_data, sizeof(in_data))) printf("Error in reading the whole image \n" ); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_RI32bit */ /* * Write/Read szip compressed image with 32-bit floating point data */ static void test_szip_RIfl32bit() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ index; int32 start[2], edges[2]; comp_info cinfo; /* Compression parameters - union */ uint32 comp_config; comp_coder_t comp_type; float32 out_data[LENGTH][WIDTH][N_COMPS]; float32 in_data[LENGTH][WIDTH][N_COMPS] = { 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 40.0, 41.0, 42.0, 43.0, 44.0, 45.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 20.0, 21.0, 22.0, 23.0, 24.0, 25.0, 50.0, 51.0, 52.0, 53.0, 54.0, 55.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 30.0, 31.0, 32.0, 33.0, 34.0, 35.0, 60.0, 61.0, 62.0, 63.0, 64.0, 65.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 70.0, 71.0, 72.0, 73.0, 74.0, 75.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 80.0, 81.0, 82.0, 83.0, 84.0, 85.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 90.0, 91.0, 92.0, 93.0, 94.0, 95.0}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for sziped data */ file_id = Hopen (FILE_NAMEfl32, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_FLOAT32; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = WIDTH; dim_sizes[1] = LENGTH; /* Create the raster image array */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate:Failed to create a raster image for szip compression testing"); /* Define the location, pattern, and size of the data set */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Initializate for SZIP */ comp_type = COMP_CODE_SZIP; cinfo.szip.pixels_per_block = 2; cinfo.szip.options_mask = SZ_EC_OPTION_MASK; cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; cinfo.szip.pixels = 0; cinfo.szip.pixels_per_scanline = 0; cinfo.szip.bits_per_pixel = 0; /* Set the compression */ status = GRsetcompress(ri_id, comp_type, &cinfo); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetcompress"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_RIfl32bit(): %s\n",SKIP_STR);); return; } status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)in_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the file to flush the compressed info to the file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file */ file_id = Hopen (FILE_NAMEfl32, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image */ index = GRnametoindex(gr_id, IMAGE_NAME); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the whole image */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)out_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Compare read data against input data */ if (0!= HDmemcmp(out_data, in_data, sizeof(in_data))) printf("Error in reading the whole image \n" ); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_RIfl32bit */ /* * Write/Read szip compressed image with 64-bit floating point data */ static void test_szip_RIfl64bit() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ index; int32 start[2], edges[2]; comp_info cinfo; /* Compression parameters - union */ uint32 comp_config; comp_coder_t comp_type; float64 out_data[LENGTH][WIDTH][N_COMPS]; float64 in_data[LENGTH][WIDTH][N_COMPS] = { 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 40.0, 41.0, 42.0, 43.0, 44.0, 45.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 20.0, 21.0, 22.0, 23.0, 24.0, 25.0, 50.0, 51.0, 52.0, 53.0, 54.0, 55.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 30.0, 31.0, 32.0, 33.0, 34.0, 35.0, 60.0, 61.0, 62.0, 63.0, 64.0, 65.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 70.0, 71.0, 72.0, 73.0, 74.0, 75.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 80.0, 81.0, 82.0, 83.0, 84.0, 85.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 90.0, 91.0, 92.0, 93.0, 94.0, 95.0}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for sziped data */ /* Create and open the file for sziped data */ file_id = Hopen (FILE_NAMEfl64, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image */ data_type = DFNT_FLOAT64; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = WIDTH; dim_sizes[1] = LENGTH; /* Create the raster image array */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate:Failed to create a raster image for szip compression testing"); /* Define the location, pattern, and size of the data set */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Initializate for SZIP */ comp_type = COMP_CODE_SZIP; cinfo.szip.pixels_per_block = 2; cinfo.szip.options_mask = SZ_EC_OPTION_MASK; cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; cinfo.szip.pixels = 0; cinfo.szip.pixels_per_scanline = 0; cinfo.szip.bits_per_pixel = 0; /* Set the compression */ status = GRsetcompress(ri_id, comp_type, &cinfo); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetcompress"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_RIfl64bit(): %s\n",SKIP_STR);); return; } status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)in_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the file to flush the compressed info to the file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file */ file_id = Hopen (FILE_NAMEfl64, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image */ index = GRnametoindex(gr_id, IMAGE_NAME); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Wipe out the output buffer */ HDmemset(&out_data, 0, sizeof(out_data)); /* Read the whole image */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)out_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Compare read data against input data */ if (0!= HDmemcmp(out_data, in_data, sizeof(in_data))) printf("Error in reading the whole image \n" ); /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_RIfl64bit */ /* * This function tests GR chunking write/read operations for the * szip compressions */ #define CHKSZIPFILE "RIchunkedsziped.hdf" #define WIDTH_CH 10 /* number of columns in the image */ #define LENGTH_CH 6 /* number of rows in the image */ static void test_szip_chunk() { #ifdef H4_HAVE_LIBSZ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ origin[2], /* start position to write for each dimension */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ comp_flag, /* compression flag */ index; int32 start[2], stride[2], edge[2]; comp_info cinfo_out; /* Compression parameters - union */ uint32 comp_config; comp_coder_t comp_type; int8 data_out[N_COMPS*LENGTH_CH*WIDTH_CH]; char *image_name = "Image_chunked_sziped"; HDF_CHUNK_DEF chunk_def; int8 chunk_buf[18]; /* * Initialize data for RI */ int8 chunk00[] = {10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, 25, 30, 31, 32, 33, 34, 35 }; int8 chunk01[] = {40, 41, 42, 43, 44, 45, 50, 51, 52, 53, 54, 55, 60, 61, 62, 63, 64, 65}; int8 chunk14[] = {70, 71, 72, 73, 74, 75, 80, 81, 82, 83, 84, 85, 90, 91, 92, 93, 94, 95}; int8 data[] = { 10, 11, 12, 13, 14, 15, 40, 41, 42, 43, 44, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, 50, 51, 52, 53, 54, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 71, 72, 73, 74, 75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 81, 82, 83, 84, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 91, 92, 93, 94, 95}; /********************** End of variable declaration **********************/ HCget_config_info(COMP_CODE_SZIP, &comp_config); CHECK_VOID( (comp_config & COMP_DECODER_ENABLED|COMP_ENCODER_ENABLED),0, "SZIP Compression not available" ); /* Create and open the file for chunked and sziped data. */ file_id = Hopen (CHKSZIPFILE, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface. */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image. */ data_type = DFNT_INT8; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = LENGTH_CH; dim_sizes[1] = WIDTH_CH; /* Create the raster image array. */ ri_id = GRcreate (gr_id, image_name, N_COMPS, data_type, interlace_mode, dim_sizes); CHECK_VOID(ri_id, FAIL, "GRcreate"); /* Create chunked image array. */ comp_flag = HDF_CHUNK | HDF_COMP; chunk_def.comp.chunk_lengths[0] = 3; chunk_def.comp.chunk_lengths[1] = 2; chunk_def.comp.comp_type = COMP_CODE_SZIP; chunk_def.comp.cinfo.szip.pixels_per_block = 2; chunk_def.comp.cinfo.szip.options_mask = SZ_EC_OPTION_MASK; chunk_def.comp.cinfo.szip.options_mask |= SZ_MSB_OPTION_MASK; chunk_def.comp.cinfo.szip.options_mask |= SZ_RAW_OPTION_MASK; chunk_def.comp.cinfo.szip.pixels = 0; chunk_def.comp.cinfo.szip.pixels_per_scanline = 0; chunk_def.comp.cinfo.szip.bits_per_pixel = 0; status = GRsetchunk(ri_id, chunk_def, comp_flag); if ((comp_config & COMP_ENCODER_ENABLED) == COMP_ENCODER_ENABLED) { /* should work */ CHECK_VOID(status, FAIL, "GRsetchunk"); } else { /* skip rest of test?? */ /* Terminate access to the raster image */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Terminate access to the GR interface and close the HDF file */ status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); MESSAGE(1,printf("test_szip_chunk(): %s\n",SKIP_STR);); return; } /* Write first data chunk ( 0, 0 ). */ origin[0] = origin[1] = 0; status = GRwritechunk(ri_id, origin, (VOIDP)chunk00); CHECK_VOID(status, FAIL, "GRwritechunk"); /* Write second data chunk ( 0, 1 ). */ origin[0] = 0; origin[1] = 1; status = GRwritechunk(ri_id, origin, (VOIDP)chunk01); CHECK_VOID(status, FAIL, "GRwritechunk"); /* Write third data chunk ( 1, 4 ). */ origin[0] = 1; origin[1] = 4; status = GRwritechunk(ri_id, origin, (VOIDP)chunk14); CHECK_VOID(status, FAIL, "GRwritechunk"); /* Terminate accesses and close the HDF file. */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* * Verify the compressed data */ /* Reopen the file. */ file_id = Hopen (CHKSZIPFILE, DFACC_WRITE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface. */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Find the index of the specified image. */ index = GRnametoindex(gr_id, image_name); CHECK_VOID(index, FAIL, "GRnametoindex"); /* Select the image. */ ri_id = GRselect(gr_id, index); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get and verify the image's compression information. */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo_out, 0, sizeof(cinfo_out)) ; status = GRgetcompinfo(ri_id, &comp_type, &cinfo_out); CHECK_VOID(status, FAIL, "GRgetcompinfo"); VERIFY_VOID(comp_type, COMP_CODE_SZIP, "GRgetcompinfo"); /* Read first chunk back and compare with input chunk. */ origin[0] = 0; origin[1] = 0; status = GRreadchunk(ri_id, origin, (VOIDP)chunk_buf); CHECK_VOID(status, FAIL, "GRreadchunk"); if (0 != HDmemcmp(chunk_buf, chunk00 , sizeof(chunk00))) { printf("Error in reading chunk 00\n" ); num_errs++; } /* Read second chunk back and compare with input chunk. */ origin[0] = 0; origin[1] = 1; status = GRreadchunk(ri_id, origin, (VOIDP)chunk_buf); CHECK_VOID(status, FAIL, "GRreadchunk"); if (0 != HDmemcmp(chunk_buf, chunk01 , sizeof(chunk01))) { printf("Error in reading chunk 01\n" ); num_errs++; } /* Read third chunk back and compare with input chunk. */ origin[0] = 1; origin[1] = 4; status = GRreadchunk(ri_id, origin, (VOIDP)chunk_buf); CHECK_VOID(status, FAIL, "GRreadchunk"); if (0 != HDmemcmp(chunk_buf, chunk14 , sizeof(chunk14))) { printf("Error in reading chunk 14\n" ); num_errs++; } /* Read the whole image. */ start[0] = start[1] = 0; stride[0] = stride[1] = 1; edge[0] = LENGTH_CH; edge[1] = WIDTH_CH; status = GRreadimage(ri_id, start, stride, edge, (VOIDP)data_out); CHECK_VOID(status, FAIL, "GRreadimage"); if (0!= HDmemcmp(data_out, data, sizeof(data))) { printf("Error in reading the whole image \n" ); num_errs++; } /* Terminate accesses and close the HDF file. */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); #endif } /* end of test_szip_chunk */ /**************************************************************** * * test_mgr_szip(): SZIP Compression tests * * XIV. GR write/read szip compression tests with different data types * and with chunked data * A. Write/Read szip compressed image with 8-bit integer data type * B. Write/Read szip compressed image with 16-bit integer data type * C. Write/Read szip compressed image with 32-bit integer data type * D. Write/Read szip compressed image with 32-bit floating point data type * E. Write/Read szip compressed image with 64-bit floating point data type * F. Write/Read image with chunked and sziped data * * ****************************************************************/ extern void test_mgr_szip() { #ifdef H4_HAVE_LIBSZ /* Output message about test being performed */ MESSAGE(6, printf("Testing GR szip compression WRITE/READ\n");); test_szip_RI8bit(); test_szip_RI16bit(); test_szip_RI32bit(); test_szip_RIfl32bit(); test_szip_RIfl64bit(); test_szip_chunk(); #else /* Output message about test being performed */ MESSAGE(6, printf("Skipping GR szip compression WRITE/READ\n");); #endif } libhdf4-4.2.10/HDF_ALT/hdf/test/tattdatainfo.c0000644000000000000000000006407412421456623015467 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tattdatainfo.c - tests the functions VSgetattdatainfo, Vgetattdatainfo, * and GRgetattdatainfo. * Structure of the file: * test_attdatainfo - test driver * test_vvsattrs - tests attributes on vgroups and vdatas * test_vgmixedattrs - tests handling vgroup attributes created with and * without Vsetattr * test_grattrs - tests attributes on GR file and raster images * -BMR, Aug 2010 ****************************************************************************/ #include "hdf.h" #include "tdatainfo.h" #include "tutils.h" static void test_vvsattrs(); static void test_vgmixedattrs(); static void test_grattrs(); /**************************************************************************** Name: test_vvsattrs() - tests getting attribute data information from vdatas and vgroups Description: This routine performs the following steps: - Create a new file with the V interface - Creates several vgroups and vdatas, and forms some arbitrary structures among these elements. - Add some attributes to various vgroups and vdatas. - Retrieve offset/length of the data of some attributes. - Reopen the file without HDF4 library. - Read in attribute's data using the previously recorded offsets/lengths and verify the data BMR - Aug 2010 ****************************************************************************/ #define ATTRFILE "tattdatainfo.hdf" #define NUM_VDATAS 3 #define NUM_VGROUPS 3 #define ATTNAME1 "Attribute 1" #define ATTNAME2 "Attribute 2" #define ATTNAME3 "Attribute 3" #define ATTNAME4 "Attribute 4" #define ATTNAME5 "Attribute 5" #define ATTNAME6 "Attribute 6" #define ATTNAME7 "Attribute 7" #define FLDNAME1 "Field1" /* contains one char */ #define FLDNAME2 "Field2" /* contains three chars */ #define FLDNAME3 "Field3" /* contains two ints */ #define FLDNAME4 "Field4" /* contains one float */ #define FIELD_NAME_LIST1 "Field1,Field2" #define FIELD_NAME_LIST2 "Field3,Field4" static void test_vvsattrs() { int32 fid; /* File ID */ int32 vgroup0_id, vgroup1_id, vgroup2_id; /* Various vgroup IDs */ int32 vdata0_id, vdata1_id, vdata2_id; /* Various vdata IDs */ int32 fldindex; int32 ref_list[NUM_VGROUPS], vdref_list[NUM_VDATAS]; int32 offset, length; char vgclass[20]; int ii; intn status; /* returned status */ intn status_32; /* returned status for functions returning an int32! */ /* Attributes to be set for various elements */ uint32 attr1[4] = {4, 5, 6, 7}; char attr2[8] = {'V','g','r','o','u','p','0','\0'}; char attr3[7] = {'V','d','a', 't', 'a', '0', '\0'}; char attr4[7] = {'F','i','e', 'l', 'd', '1', '\0'}; /* Create HDF file and initialize the interface. */ fid = Hopen(ATTRFILE, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Create NUM_VGROUPS vgroups and set classname */ for (ii = 0; ii < NUM_VGROUPS; ii++) { int32 vgroup_id, vgroup_ref; /* Create a vgroup. */ vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach"); /* Record its reference number for later access */ vgroup_ref = VQueryref(vgroup_id); CHECK_VOID(vgroup_ref, FAIL, "VQueryref:vgroup_id"); ref_list[ii] = vgroup_ref; /* Set its class name */ sprintf(vgclass, "VG-CLASS-%d", ii); status_32 = Vsetclass(vgroup_id, vgclass); CHECK_VOID(status_32, FAIL, "Vsetclass"); /* Detach it */ status_32 = Vdetach(vgroup_id); CHECK_VOID(status_32, FAIL, "Vdetach"); } /* Create NUM_VDATAS vgroups and set classname */ for (ii = 0; ii < NUM_VDATAS; ii++) { int32 vdata_id, vdata_ref; /* Create a vdata. */ vdata_id = VSattach(fid, -1, "w"); CHECK_VOID(vdata_id, FAIL, "VSattach"); /* Record its reference number for later access */ vdata_ref = VSQueryref(vdata_id); CHECK_VOID(vdata_ref, FAIL, "VSQueryref:vdata_id"); vdref_list[ii] = vdata_ref; /* Set its class name */ sprintf(vgclass, "VS-CLASS-%d", ii); status_32 = VSsetclass(vdata_id, vgclass); CHECK_VOID(status_32, FAIL, "VSsetclass"); /* Detach it */ status_32 = VSdetach(vdata_id); CHECK_VOID(status_32, FAIL, "VSdetach"); } /* Insert some vdatas/vgroups into some other vgroups to build some sort of vgroup/vdata structure */ /* Insert "VD-CLASS-1" and "VD-CLASS-2" into "VG-CLASS-0" */ vgroup0_id = Vattach(fid, ref_list[0], "w"); /* "VG-CLASS-0" */ CHECK_VOID(vgroup0_id, FAIL, "Vattach"); vdata1_id = VSattach(fid, vdref_list[1], "w"); /* "VD-CLASS-1" */ CHECK_VOID(vdata1_id, FAIL, "VSattach"); vdata2_id = VSattach(fid, vdref_list[2], "w"); /* "VD-CLASS-2" */ CHECK_VOID(vdata2_id, FAIL, "VSattach"); /* Define fields for vdata1 and vdata2 */ status = VSfdefine(vdata1_id, FLDNAME1, DFNT_CHAR8, 1); CHECK_VOID(status, FAIL, "VSfdefine"); status = VSfdefine(vdata1_id, FLDNAME2, DFNT_CHAR8, 3); CHECK_VOID(status, FAIL, "VSfdefine"); status = VSsetfields(vdata1_id, FIELD_NAME_LIST1); CHECK_VOID(status, FAIL, "VSsetfields"); status = VSfdefine(vdata2_id, FLDNAME3, DFNT_INT32, 2); CHECK_VOID(status, FAIL, "VSfdefine"); status = VSfdefine(vdata2_id, FLDNAME4, DFNT_FLOAT, 1); CHECK_VOID(status, FAIL, "VSfdefine"); status = VSsetfields(vdata2_id, FIELD_NAME_LIST2); CHECK_VOID(status, FAIL, "VSsetfields"); status_32 = Vinsert(vgroup0_id, vdata1_id); CHECK_VOID(status_32, FAIL, "Vinsert vdata1_id into vgroup0_id"); status_32 = Vinsert(vgroup0_id, vdata2_id); CHECK_VOID(status_32, FAIL, "Vinsert vdata2_id into vgroup0_id"); /* Insert "VD-CLASS-0", "VG-CLASS-0", and "VG-CLASS-1" into "VG-CLASS-2" */ vdata0_id = VSattach(fid, vdref_list[0], "w"); CHECK_VOID(vdata0_id, FAIL, "Vattach"); vgroup1_id = Vattach(fid, ref_list[1], "w"); /* "VG-CLASS-1" */ CHECK_VOID(vgroup1_id, FAIL, "Vattach"); vgroup2_id = Vattach(fid, ref_list[2], "w"); /* "VG-CLASS-2" */ CHECK_VOID(vgroup2_id, FAIL, "Vattach"); status_32 = Vinsert(vgroup2_id, vdata0_id); CHECK_VOID(status_32, FAIL, "Vinsert vdata0_id into vgroup2_id"); status_32 = Vinsert(vgroup2_id, vgroup0_id); CHECK_VOID(status_32, FAIL, "Vinsert vgroup0_id into vgroup2_id"); status_32 = Vinsert(vgroup2_id, vgroup1_id); CHECK_VOID(status_32, FAIL, "Vinsert vgroup1_id into vgroup2_id"); /***************************************/ /* Set attributes for various elements */ /***************************************/ /* Set two attributes for vgroup0 */ status = Vsetattr(vgroup0_id, ATTNAME1, DFNT_UINT32, 4, attr1); CHECK_VOID(status, FAIL, "Vsetattr vgroup0_id"); status = Vsetattr(vgroup0_id, ATTNAME2, DFNT_CHAR8, 8, attr2); CHECK_VOID(status, FAIL, "Vsetattr vgroup0_id"); /* Set attribute for vdata0 */ status = VSsetattr(vdata0_id, _HDF_VDATA, ATTNAME3, DFNT_CHAR8, 7, attr3); CHECK_VOID(status, FAIL, "VSsetattr vdata0_id"); /* Set attribute for vdata1/field1 */ status = VSfindex(vdata1_id, FLDNAME1, &fldindex); CHECK_VOID(status, FAIL, "VSfindex vdata1_id"); VERIFY_VOID(fldindex, 0, "VSfindex vdata1_id"); /* Set attribute to field FLDNAME1*/ status = VSsetattr(vdata1_id, fldindex, ATTNAME4, DFNT_CHAR8, 7, attr4); CHECK_VOID(status, FAIL, "VSsetattr vdata1_id"); /* Change values of existing attribute */ /* Vsetattr(vgid, ATTNAME1, DFNT_UINT32, 2, &attr1[2])) */ /* Terminate access to any opened elements */ status_32 = Vdetach(vgroup0_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup0_id"); status_32 = Vdetach(vgroup1_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup1_id"); status_32 = Vdetach(vgroup2_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup2_id"); status_32 = VSdetach(vdata0_id); CHECK_VOID(status_32, FAIL, "VSdetach vdata0_id"); status_32 = VSdetach(vdata1_id); CHECK_VOID(status_32, FAIL, "VSdetach vdata1_id"); status_32 = VSdetach(vdata2_id); CHECK_VOID(status_32, FAIL, "VSdetach vdata2_id"); /* Terminate access to the V interface and close the HDF file. */ status = Vend (fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); /************************************************************** The following elements have attributes: vgroup0: attr1 and attr2 vdata0: attr3 FLDNAME1 of vdata1: attr4 ***************************************************************/ /* Open the file to test Vgetattdatainfo and VSgetattdatainfo */ fid = Hopen(ATTRFILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Attach to vgroup0, vdata0, and vdata1 for attribute's data info */ vgroup0_id = Vattach(fid, ref_list[0], "w"); /* "VG-CLASS-0" */ CHECK_VOID(vgroup0_id, FAIL, "Vattach"); vdata0_id = VSattach(fid, vdref_list[0], "w"); /* "VD-CLASS-0" */ CHECK_VOID(vdata0_id, FAIL, "Vattach"); vdata1_id = VSattach(fid, vdref_list[1], "w"); /* "VD-CLASS-1" */ CHECK_VOID(vdata1_id, FAIL, "VSattach"); /* Get data info of the first attribute from vdata0 */ status = VSgetattdatainfo(vdata0_id, _HDF_VDATA, 0, &offset, &length); CHECK_VOID(status, FAIL, "VSgetattdatainfo"); /* Read and verify an attribute without using HDF4 library */ status = readnoHDF_char(ATTRFILE, offset, length, attr3); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); /* Reset offset/length */ offset = length = 0; /* Get data info of the first attribute from vdata1/FLDNAME1 */ status = VSgetattdatainfo(vdata1_id, 0, 0, &offset, &length); CHECK_VOID(status, FAIL, "VSgetattdatainfo"); /* Read and verify an attribute without using HDF4 library */ status = readnoHDF_char(ATTRFILE, offset, length, attr4); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); /* Get data info of the first attributes from vgroup0 */ status = Vgetattdatainfo(vgroup0_id, 0, &offset, &length); CHECK_VOID(status, FAIL, "Vgetattdatainfo"); /* Reset offset/length */ offset = length = 0; /* Get data info of the second attributes from vgroup0 */ status = Vgetattdatainfo(vgroup0_id, 1, &offset, &length); CHECK_VOID(status, FAIL, "Vgetattdatainfo"); /* Read and verify an attribute without using HDF4 library */ status = readnoHDF_char("tattdatainfo.hdf", offset, length, attr2); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); /* Terminate access to any opened elements */ status_32 = Vdetach(vgroup0_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup0_id"); status_32 = VSdetach(vdata0_id); CHECK_VOID(status_32, FAIL, "VSdetach vdata0_id"); status_32 = VSdetach(vdata1_id); CHECK_VOID(status_32, FAIL, "VSdetach vdata1_id"); /* Terminate access to the V interface and close the HDF file. */ status = Vend (fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_vvsattrs() */ static void test_vgmixedattrs() { int32 fid; /* File ID */ int32 vgroup_id, vgroup_ref; int32 n_attrs; int32 ref_list[NUM_VGROUPS], vdref_list[NUM_VDATAS]; int32 offsets[10], lengths[10]; /* offsets and lengths of attrs' data */ /* Note: each array element is associated with an individual attribute, not a data element block; data of an attribute only has one pair of off/len*/ char vgclass[20]; int ii; int32 attr_ref; intn status; /* returned status */ intn status_32; /* returned status for functions returning an int32! */ /* Attribute names to be checked against */ char aname_check[5][20] = {ATTNAME1, ATTNAME2, ATTNAME5, ATTNAME6, ATTNAME7}; /* Attributes to be set for various elements */ uint32 attr1[4] = {4, 5, 6, 7}; /* copied from test_vvsattrs, only to verify previously added attribute */ char attr2[12] = {'V','G','0',' ','n','e','w','a','t','t','r','\0'}; char attr3[13] = {'V','G','0',' ','o','l','d','a','t','t','r','0','\0'}; char attr4[13] = {'V','G','0',' ','o','l','d','a','t','t','r','1','\0'}; /* Create HDF file and initialize the interface. */ fid = Hopen(ATTRFILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Get access to first vgroup. */ vgroup_ref = Vgetid(fid, -1); CHECK_VOID(vgroup_ref, FAIL, "Vgetid"); vgroup_id = Vattach(fid, vgroup_ref, "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach"); /* Current number of attributes belong to this vgroup */ n_attrs = Vnattrs(vgroup_id); CHECK_VOID(n_attrs, FAIL, "Vnattrs"); VERIFY_VOID(n_attrs, 2, "Vnattrs"); for (ii = 0; ii < n_attrs; ii++) { char aname[20]; int32 atype, acount, asize; status = Vattrinfo(vgroup_id, ii, aname, &atype, &acount, &asize); /* HDstrncmp(iattrname, ATTNAME1, HDstrlen(ATTNAME1)) != 0) */ } n_attrs = Vnoldattrs(vgroup_id); VERIFY_VOID(n_attrs, 0, "Vnoldattrs"); /* Now, add one attribute with Vsetattr, and two attributes with VHstoredatam/Vaddtagref combination */ /* Add one new-style attribute */ status = Vsetattr(vgroup_id, ATTNAME5, DFNT_CHAR8, 12, attr2); CHECK_VOID(status, FAIL, "Vsetattr vgroup_id"); /* Add two old-style attributes */ attr_ref = VHstoredatam(fid, ATTR_FIELD_NAME, (unsigned char *) attr3, 1, DFNT_CHAR8, ATTNAME6, _HDF_ATTRIBUTE, 13); CHECK_VOID(attr_ref, FAIL, "VHstoredatam"); status = Vaddtagref(vgroup_id, DFTAG_VH, attr_ref); CHECK_VOID(status, FAIL, "Vaddtagref"); attr_ref = VHstoredatam(fid, ATTR_FIELD_NAME, (unsigned char *) attr4, 1, DFNT_CHAR8, ATTNAME7, _HDF_ATTRIBUTE, 13); CHECK_VOID(attr_ref, FAIL, "VHstoredatam"); status = Vaddtagref(vgroup_id, DFTAG_VH, attr_ref); CHECK_VOID(status, FAIL, "Vaddtagref"); /* Terminate access to any opened elements */ status_32 = Vdetach(vgroup_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup_id"); /* Terminate access to the V interface and close the HDF file. */ status = Vend (fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); /************************************************************** The following element has changed: vgroup0: 2 attrs from previous test function, then attr2 of new style and attr3 and attr4 of old style here ***************************************************************/ /* Re-open the file to test Vnattrs2, Vattrinfo2, Vgetattr2, and Vgetattdatainfo */ fid = Hopen(ATTRFILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Attach to vgroup0 for attribute info and data */ vgroup_id = Vattach(fid, vgroup_ref, "w"); /* "VG-CLASS-0" */ CHECK_VOID(vgroup_id, FAIL, "Vattach"); /* Vnattrs returns number of attributes added by Vsetattr */ n_attrs = Vnattrs(vgroup_id); VERIFY_VOID(n_attrs, 3, "Vnattrs"); /* Vnoldattrs returns number of attrs added by VHstoredatam/Vaddtagref */ n_attrs = Vnoldattrs(vgroup_id); VERIFY_VOID(n_attrs, 2, "Vnoldattrs"); /* Vnattrs2 returns total number of attrs, regardless how they were added */ n_attrs = Vnattrs2(vgroup_id); VERIFY_VOID(n_attrs, 5, "Vnattrs2"); /* Test Vattrinfo2 and Vgetattr2 on each attribute */ for (ii = 0; ii < n_attrs; ii++) { char aname[20], values[100]; int32 atype, acount, asize, n_fields; uint16 refnum; int jj; char cvalues[20]; int32 ivalues[10]; char *check_attr_names[5] = {"Attribute 6", "Attribute 7", "Attribute 1" , "Attribute 2", "Attribute 5"}; char *check_attr_values[5] = {"VG0 oldattr0", "VG0 oldattr1", "", /* int values, added by test_vvsattrs with attr1 */ "Vgroup0", /* added by test_vvsattrs with attr2 */ "VG0 newattr"}; /* Get attribute information and verify its name and number of fields, which should be 1 */ status = Vattrinfo2(vgroup_id, ii, aname, &atype, &acount, &asize, &n_fields, &refnum); VERIFY_CHAR_VOID(aname, check_attr_names[ii], "Vattrinfo2"); VERIFY_VOID(n_fields, 1, "Vattrinfo2"); /* Test Vgetattr2 to make sure it works with mixed attributes */ switch (atype) { case DFNT_CHAR: /* Get and verify values of a char attribute */ status = Vgetattr2(vgroup_id, ii, (void *)cvalues); VERIFY_CHAR_VOID(cvalues, check_attr_values[ii], "Vgetattr2 char"); /* Add an extra test for Vgetattdatainfo */ /* Get data info and verify number of data block */ status = Vgetattdatainfo(vgroup_id, ii, &offsets[ii], &lengths[ii]); CHECK_VOID(status, FAIL, "Vgetattdatainfo"); VERIFY_VOID(status, 1, "Vgetattdatainfo"); /* Read and verify data of an attr without using HDF4 library */ status = readnoHDF_char(ATTRFILE, offsets[ii], lengths[ii], check_attr_values[ii]); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); break; case DFNT_UINT32: /* Get and verify values of an int attribute */ status = Vgetattr2(vgroup_id, ii, (void *)ivalues); for (jj = 0; jj < acount; jj++) VERIFY_VOID(ivalues[jj], attr1[jj], "Vgetattr2 int"); break; default: fprintf(stderr, "type %d is not handled!\n", atype); break; } } /* Terminate access to the vgroup */ status_32 = Vdetach(vgroup_id); CHECK_VOID(status_32, FAIL, "Vdetach vgroup_id"); /* Terminate access to the V interface and close the HDF file. */ status = Vend (fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_vgmixedattrs() */ /**************************************************************************** Name: test_grattrs() - tests getting attribute data information from GR file and raster images Description: This routine performs the following steps: - Create a new file with the GR interface - Creates and write two raster images with GRcreate and GRwritedata - Set two attributes to the file - Set one attribute to each of the images - Terminate access to images and file - Reopen the file and images to retrieve their attribute's data info - Call readnoHDF_char to open the file without HDF library then read in attributes having char data using the previously recorded offsets/lengths and verify the data BMR - Sep 2010 ****************************************************************************/ #define GRATTRFILE "tgrattrdatainfo.hdf" #define IMAGE_NAME "Image Array 1" #define F_ATT1_NAME "File Attribute 1" #define F_ATT2_NAME "File Attribute 2" #define RI_ATT1_NAME "Image Attribute 1" #define RI_ATT2_NAME "Image Attribute 2" #define F_ATT1_VAL "Contents of First FILE attribute" #define F_ATT2_VAL "Contents of Second FILE attribute" #define F_ATT1_COUNT 32 #define F_ATT2_COUNT 33 #define RI_ATT1_VAL "Contents of IMAGE's First Attribute" #define RI_ATT1_COUNT 35 #define RI_ATT2_COUNT 6 #define X_LENGTH 10 /* number of columns in the image */ #define Y_LENGTH 5 /* number of rows in the image */ #define N_COMPS 1 /* number of components in the image */ static void test_grattrs() { int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ num_type, /* number type of the image values */ start[2], /* where to start to write for each dimension */ edges[2], /* how long to write for each dimension */ dimsizes[2], /* sizes of the two dimensions of the image array */ interlace_mode,/* interlace mode of the image */ ii, jj; intn status; int16 ri_att2_val[RI_ATT2_COUNT] = {1, 2, 3, 4, 5, 6}; int8 image_buf[Y_LENGTH][X_LENGTH][N_COMPS]; int32 offsets[4], lengths[4]; /* offsets and lengths of attrs' data */ /* Note: each array element is associated with an individual attribute, not a data element block; data of an attribute only has one pair of off/len*/ /********************** End of variable declaration **********************/ /* Create and open the file. */ file_id = Hopen (GRATTRFILE, DFACC_CREATE, 0); CHECK_VOID(file_id, FAIL, "Hopen"); /* Initialize the GR interface. */ gr_id = GRstart (file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Set the number type, interlace mode, and dimensions of the image. */ interlace_mode = MFGR_INTERLACE_LINE; dimsizes[0] = X_LENGTH; dimsizes[1] = Y_LENGTH; /* Create a raster image array. */ ri_id = GRcreate(gr_id, IMAGE_NAME, N_COMPS, DFNT_INT8, interlace_mode, dimsizes); CHECK_VOID(ri_id, FAIL, "GRcreate"); /* Fill the image data buffer with values. */ for (ii = 0; ii < Y_LENGTH; ii++) { for (jj = 0; jj < X_LENGTH; jj++) { image_buf[ii][jj][0] = (ii + jj) + 1; /* first component */ } } /* Define the size of the data to be written, i.e., start from the origin * and go as long as the length of each dimension. */ start[0] = start[1] = 0; edges[0] = X_LENGTH; edges[1] = Y_LENGTH; /* Write the data into the image array and terminate access to the RI. */ status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)image_buf); CHECK_VOID(status, FAIL, "GRwriteimage"); status = GRendaccess(ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); /* Set two file attributes to the file with names, data types, numbers of * values, and values of the attributes specified. */ status = GRsetattr(gr_id, F_ATT1_NAME, DFNT_CHAR8, F_ATT1_COUNT, F_ATT1_VAL); CHECK_VOID(status, FAIL, "GRsetattr F_ATT1_NAME"); status = GRsetattr(gr_id, F_ATT2_NAME, DFNT_CHAR8, F_ATT2_COUNT, F_ATT2_VAL); CHECK_VOID(status, FAIL, "GRsetattr F_ATT2_NAME"); /* Get access to the first and only image in the file */ ri_id = GRselect(gr_id, 0); CHECK_VOID(ri_id, FAIL, "GRselect index 0"); /* Set two attribute to the image with names, data types, numbers of * values, and values of the attributes specified. */ status = GRsetattr(ri_id, RI_ATT1_NAME, DFNT_CHAR8, RI_ATT1_COUNT, RI_ATT1_VAL); CHECK_VOID(status, FAIL, "GRsetattr RI_ATT1_NAME"); status = GRsetattr(ri_id, RI_ATT2_NAME, DFNT_INT16, RI_ATT2_COUNT, (VOIDP)ri_att2_val); CHECK_VOID(status, FAIL, "GRsetattr RI_ATT2_NAME"); /* Terminate access to the raster image and to the GR interface and * close the HDF file. */ status = GRendaccess (ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); status = GRend (gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose (file_id); CHECK_VOID(status, FAIL, "Hclose"); /* Re-open the file, get data info of some attributes, then verify their data */ /* Open the HDF file and initialize the GR interface. */ file_id = Hopen(GRATTRFILE, DFACC_RDONLY, 0); CHECK_VOID(file_id, FAIL, "Hopen GRATTRFILE"); gr_id = GRstart(file_id); CHECK_VOID(gr_id, FAIL, "GRstart GRATTRFILE"); /* Get access to the image, first and only */ ri_id = GRselect(gr_id, 0); CHECK_VOID(ri_id, FAIL, "GRselect index 0"); /* Get data info of file attr and store them in offsets/lengths[0,1] */ status = GRgetattdatainfo(gr_id, 0, &offsets[0], &lengths[0]); CHECK_VOID(status, FAIL, "GRgetattdatainfo"); status = GRgetattdatainfo(gr_id, 1, &offsets[1], &lengths[1]); CHECK_VOID(status, FAIL, "GRgetattdatainfo"); /* Get data info of image attr and store them in offsets/lengths[2,3] */ status = GRgetattdatainfo(ri_id, 0, &offsets[2], &lengths[2]); CHECK_VOID(status, FAIL, "GRgetattdatainfo"); status = GRgetattdatainfo(ri_id, 1, &offsets[3], &lengths[3]); CHECK_VOID(status, FAIL, "GRgetattdatainfo"); /* This image should be mapped-able by the HDF4 map writer because even though it was created by GR, it has 8-bit data, 1 compnonent, and no compression */ { intn is_mappedable; intn name_generated; status = GR2bmapped(ri_id, &is_mappedable, &name_generated); CHECK_VOID(status, FAIL, "GR2bmapped"); VERIFY_VOID(is_mappedable, TRUE, "GR2bmapped"); VERIFY_VOID(name_generated, FALSE, "GR2bmapped"); } /* Terminate access to the image and to the GR interface and close the * HDF file. */ status = GRendaccess(ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); status = GRend(gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(file_id); CHECK_VOID(status, FAIL, "Hclose"); /* Verify data of attributes without the use of HDF4 library */ status = readnoHDF_char(GRATTRFILE, offsets[0], lengths[0], F_ATT1_VAL); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); status = readnoHDF_char(GRATTRFILE, offsets[1], lengths[1], F_ATT2_VAL); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); status = readnoHDF_char(GRATTRFILE, offsets[2], lengths[2], RI_ATT1_VAL); CHECK_STATUS(status, FAIL, "Verifying data without HDF4 library failed"); /* Note: readnoHDF_char is defined in tdatainfo.c */ } /* test_grattrs() */ /* Test driver for testing the public functions VSgetattdatainfo, Vgetattdatainfo, and GRgetattdatainfo. */ void test_attdatainfo() { /* Test attributes on vgroups and vdatas */ test_vvsattrs(); /* Test handling vgroup attributes created without Vsetattr */ test_vgmixedattrs(); /* Test GR API attributes */ test_grattrs(); } libhdf4-4.2.10/HDF_ALT/hdf/test/comp.c0000644000000000000000000004126712421456623013742 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* FILE - comp.c Test HDF compressed data I/O routines DESIGN These are written to test all combinations of modeling and encoding layers with different number types. BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 10/19/93 - Through this header in. */ /* $Id: comp.c 4932 2007-09-07 17:17:23Z bmribler $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif #include #include "tproto.h" #include "hfile.h" #define TESTFILE_NAME "tcomp.hdf" #define BUFSIZE 4096 /* last ditch attempt to define this value... */ #ifndef UINT_MAX #define UINT_MAX (unsigned)(-1) #endif /* UINT_MAX */ /* make a guess about RAND_MAX if it isn't defined... */ #ifndef RAND_MAX #define RAND_MAX (UINT_MAX) #endif /* RAND_MAX */ /* define aliases for random number generation */ #define RAND rand #define SEED(a) srand((unsigned)(a)) #define COMP_TAG 1000 /* different modeling layers to test */ comp_model_t test_models[] = {COMP_MODEL_STDIO}; /* different compression layers to test */ comp_coder_t test_coders[] = { COMP_CODE_NONE ,COMP_CODE_RLE /*,COMP_CODE_NBIT *//* n-bit testing is done in it's own module, nbit.c */ ,COMP_CODE_SKPHUFF ,COMP_CODE_DEFLATE }; int32 test_ntypes[] = { DFNT_INT8, DFNT_UINT8, DFNT_INT16, DFNT_UINT16, DFNT_INT32, DFNT_UINT32 }; #define NUM_OUTBUFS 4 /* the number of different output buffers to test */ /* outbuf #1 is all zeros (very easy to compress) */ /* outbuf #2 is a fibonacci sequence (very hard to compress) */ /* outbuf #3 is random data (also hard to compress) */ /* outbuf #4 is random in the low byte and mostly static in the upper byte(s) */ static int8 *outbuf_int8[NUM_OUTBUFS]; static uint8 *outbuf_uint8[NUM_OUTBUFS]; static int16 *outbuf_int16[NUM_OUTBUFS]; static uint16 *outbuf_uint16[NUM_OUTBUFS]; static int32 *outbuf_int32[NUM_OUTBUFS]; static uint32 *outbuf_uint32[NUM_OUTBUFS]; /* only need one input buffer per type of data */ static int8 *inbuf_int8; static uint8 *inbuf_uint8; static int16 *inbuf_int16; static uint16 *inbuf_uint16; static int32 *inbuf_int32; static uint32 *inbuf_uint32; /* local function prototypes */ static void init_model_info(comp_model_t m_type, model_info * m_info, int32 test_ntype); static void init_coder_info(comp_coder_t c_type, comp_info * c_info, int32 test_ntype); static void allocate_buffers(void); static void init_buffers(void); static void free_buffers(void); static uint16 write_data(int32 fid, comp_model_t m_type, model_info * m_info, comp_coder_t c_type, comp_info * c_info, intn test_num, int32 ntype); static void read_data(int32 fid, uint16 ref_num, intn test_num, int32 ntype); static void init_model_info(comp_model_t m_type, model_info * m_info, int32 test_ntype) { /* shut the compiler up */ m_type = m_type; m_info = m_info; test_ntype = test_ntype; switch (m_type) { case COMP_MODEL_STDIO: default: /* don't do anything for this case */ break; } /* end switch */ } /* end init_model_info() */ static void init_coder_info(comp_coder_t c_type, comp_info * c_info, int32 test_ntype) { switch (c_type) { case COMP_CODE_SKPHUFF: c_info->skphuff.skp_size = DFKNTsize(test_ntype); break; case COMP_CODE_RLE: case COMP_CODE_NONE: default: /* don't do anything for this case */ break; } /* end switch */ } /* end init_coder_info() */ static void allocate_buffers(void) { intn i; for (i = 0; i < NUM_OUTBUFS; i++) { outbuf_int8[i] = (int8 *) HDmalloc(BUFSIZE * sizeof(int8)); outbuf_uint8[i] = (uint8 *) HDmalloc(BUFSIZE * sizeof(uint8)); outbuf_int16[i] = (int16 *) HDmalloc(BUFSIZE * sizeof(int16)); outbuf_uint16[i] = (uint16 *) HDmalloc(BUFSIZE * sizeof(uint16)); outbuf_int32[i] = (int32 *) HDmalloc(BUFSIZE * sizeof(int32)); outbuf_uint32[i] = (uint32 *) HDmalloc(BUFSIZE * sizeof(uint32)); } /* end for */ inbuf_int8 = (int8 *) HDcalloc(BUFSIZE, sizeof(int8)); inbuf_uint8 = (uint8 *) HDcalloc(BUFSIZE, sizeof(uint8)); inbuf_int16 = (int16 *) HDcalloc(BUFSIZE, sizeof(int16)); inbuf_uint16 = (uint16 *) HDcalloc(BUFSIZE, sizeof(uint16)); inbuf_int32 = (int32 *) HDcalloc(BUFSIZE, sizeof(int32)); inbuf_uint32 = (uint32 *) HDcalloc(BUFSIZE, sizeof(uint32)); } /* allocate_buffers() */ static void init_buffers(void) { intn i, j; for (i = 0; i < NUM_OUTBUFS; i++) { switch (i) { case 0: /* all zero filled */ HDmemset(outbuf_int8[i], 0, BUFSIZE * sizeof(int8)); HDmemset(outbuf_uint8[i], 0, BUFSIZE * sizeof(uint8)); HDmemset(outbuf_int16[i], 0, BUFSIZE * sizeof(int16)); HDmemset(outbuf_uint16[i], 0, BUFSIZE * sizeof(uint16)); HDmemset(outbuf_int32[i], 0, BUFSIZE * sizeof(int32)); HDmemset(outbuf_uint32[i], 0, BUFSIZE * sizeof(uint32)); break; case 1: /* fibonacci sequence */ { uint32 last_fib, curr_fib, next_fib; for (j = 0, last_fib = 0, curr_fib = 1; j < BUFSIZE; j++) { outbuf_int8[i][j] = (int8) curr_fib; outbuf_uint8[i][j] = (uint8) curr_fib; outbuf_int16[i][j] = (int16) curr_fib; outbuf_uint16[i][j] = (uint16) curr_fib; outbuf_int32[i][j] = (int32) curr_fib; outbuf_uint32[i][j] = (uint32) curr_fib; next_fib = curr_fib + last_fib; last_fib = curr_fib; curr_fib = next_fib; } /* end for */ } /* end case */ break; case 2: /* random #'s */ { intn r; SEED(time(NULL)); for (j = 0; j < BUFSIZE; j++) { r = RAND(); outbuf_int8[i][j] = (int8) (r - RAND_MAX / 2); outbuf_uint8[i][j] = (uint8) r; outbuf_int16[i][j] = (int16) (r - RAND_MAX / 2); outbuf_uint16[i][j] = (uint16) r; outbuf_int32[i][j] = (int32) (r - RAND_MAX / 2); outbuf_uint32[i][j] = (uint32) r; } /* end for */ } /* end case */ break; case 3: /* random in the low byte and static in the upper */ { uint32 r; SEED(time(NULL)); for (j = 0; j < BUFSIZE; j++) { r = (uint32) RAND(); r &= (uint32) 0xff; /* make the lower byte random */ r |= (uint32) (((j / 4) % 4) << 8); /* make the upper bytes change slowly */ outbuf_int8[i][j] = (int8) r; outbuf_uint8[i][j] = (uint8) r; outbuf_int16[i][j] = (int16) r; outbuf_uint16[i][j] = (uint16) r; outbuf_int32[i][j] = (int32) r; outbuf_uint32[i][j] = (uint32) r; } /* end for */ } /* end case */ break; } /* end switch */ } /* end for */ } /* init_buffers() */ static void free_buffers(void) { intn i; for (i = 0; i < NUM_OUTBUFS; i++) { HDfree(outbuf_int8[i]); HDfree(outbuf_uint8[i]); HDfree(outbuf_int16[i]); HDfree(outbuf_uint16[i]); HDfree(outbuf_int32[i]); HDfree(outbuf_uint32[i]); } /* end for */ HDfree(inbuf_int8); HDfree(inbuf_uint8); HDfree(inbuf_int16); HDfree(inbuf_uint16); HDfree(inbuf_int32); HDfree(inbuf_uint32); } /* free_buffers() */ static uint16 write_data(int32 fid, comp_model_t m_type, model_info * m_info, comp_coder_t c_type, comp_info * c_info, intn test_num, int32 ntype) { int32 aid; uint16 ret_ref; int32 err_ret; int32 write_size; VOIDP data_ptr; MESSAGE(8, { char *s = HDgetNTdesc(ntype); printf("Writing data for test %d, ntype=%s, model_type=%d, coder_type=%d\n", (int) test_num, (s == NULL ? "Unknown" : s), (int) m_type, (int) c_type); HDfree(s); } ) ret_ref = Hnewref(fid); aid = HCcreate(fid, COMP_TAG, ret_ref, m_type, m_info, c_type, c_info); CHECK(aid, FAIL, "HCcreate"); if (aid == FAIL) return (0); switch (ntype) { case DFNT_INT8: data_ptr = (VOIDP) outbuf_int8[test_num]; break; case DFNT_UINT8: data_ptr = (VOIDP) outbuf_uint8[test_num]; break; case DFNT_INT16: data_ptr = (VOIDP) outbuf_int16[test_num]; break; case DFNT_UINT16: data_ptr = (VOIDP) outbuf_uint16[test_num]; break; case DFNT_INT32: data_ptr = (VOIDP) outbuf_int32[test_num]; break; case DFNT_UINT32: data_ptr = (VOIDP) outbuf_uint32[test_num]; break; default: return (0); } /* end switch */ write_size = BUFSIZE * DFKNTsize(ntype); err_ret = Hwrite(aid, write_size, data_ptr); if (err_ret != write_size) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) err_ret); HEprint(stdout, 0); num_errs++; } err_ret = Hendaccess(aid); CHECK(err_ret, FAIL, "Hendaccess"); return (ret_ref); } /* end write_data() */ static void read_data(int32 fid, uint16 ref_num, intn test_num, int32 ntype) { int32 aid; int32 err_ret; int32 read_size; VOIDP out_ptr; VOIDP in_ptr; sp_info_block_t info_block; intn i; MESSAGE(8, { char *s = HDgetNTdesc(ntype); printf("Reading data for test %d, ntype=%s\n", (int) test_num, (s == NULL ? "Unknown" : s)); HDfree(s); } ) aid = Hstartread(fid, COMP_TAG, ref_num); CHECK_VOID(aid, FAIL, "Hstartread"); if (aid == FAIL) return; switch (ntype) { case DFNT_INT8: out_ptr = (VOIDP) outbuf_int8[test_num]; in_ptr = (VOIDP) inbuf_int8; break; case DFNT_UINT8: out_ptr = (VOIDP) outbuf_uint8[test_num]; in_ptr = (VOIDP) inbuf_uint8; break; case DFNT_INT16: out_ptr = (VOIDP) outbuf_int16[test_num]; in_ptr = (VOIDP) inbuf_int16; break; case DFNT_UINT16: out_ptr = (VOIDP) outbuf_uint16[test_num]; in_ptr = (VOIDP) inbuf_uint16; break; case DFNT_INT32: out_ptr = (VOIDP) outbuf_int32[test_num]; in_ptr = (VOIDP) inbuf_int32; break; case DFNT_UINT32: out_ptr = (VOIDP) outbuf_uint32[test_num]; in_ptr = (VOIDP) inbuf_uint32; break; default: return; } /* end switch */ read_size = BUFSIZE * DFKNTsize(ntype); err_ret = Hread(aid, read_size, in_ptr); if (err_ret != read_size) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) err_ret); HEprint(stdout, 0); num_errs++; } /* end if */ if (HDmemcmp(in_ptr, out_ptr, read_size) != 0) { char *s = HDgetNTdesc(ntype); HDget_special_info(aid, &info_block); fprintf(stderr, "ERROR: Data from test: %d, number type: %s, model type: %d, coder type: %d differs\n", test_num, s, (int)info_block.model_type, (int)info_block.comp_type); MESSAGE(8, for(i=0; i *pdata) ? max : *pdata; min = (min < *pdata) ? min : *pdata; } /* store one value per row, increasing by one for each row */ pdata = data; multiplier = (float32) 255.0 / (max - min); for (i = 0; i < limit; i++) *image++ = (uint8) (((*pdata++) - min) * multiplier); } /**************************************************************** ** ** check_lab_desc: read and compare label and description ** with expected ones ** ****************************************************************/ static VOID check_lab_desc(uint16 tag, uint16 ref, char *label, char *desc) { int32 inlablen, indesclen, ret; char inlabel[MAXLEN_LAB], *indesc; inlablen = ret = DFANgetlablen(TESTFILE, tag, ref); RESULT("DFANgetlablen"); if (inlablen != (int32) HDstrlen(label)) { printf("\t>>>BAD LABEL LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) inlablen, (int) HDstrlen(label)); num_errs++; } ret = DFANgetlabel(TESTFILE, tag, ref, inlabel, MAXLEN_LAB); RESULT("DFANgetlabel"); if (HDstrcmp(inlabel, label) != 0) { printf("\t>>>BAD LABEL. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", inlabel, label); num_errs++; } indesclen = ret = DFANgetdesclen(TESTFILE, tag, ref); RESULT("DFANgetdesclen"); if (indesclen != (int32) HDstrlen(desc)) { printf("\t>>>BAD DESCRIPTION LENGTH. \n\t IS: %d", (int) indesclen); printf("\n\tSHOULD BE: %d<<<\n", (int) HDstrlen(desc)); num_errs++; } else { indesc = (char *) HDmalloc(indesclen + 1); ret = DFANgetdesc(TESTFILE, tag, ref, indesc, MAXLEN_DESC); RESULT("DFANgetdesc"); indesc[indesclen] = '\0'; if (HDstrcmp(indesc, desc) != 0) { printf("\t>>>BAD DESCRIPTION.\n\t IS: %s", indesc); printf("\n\tSHOULD BE: %s<<<\n", desc); num_errs++; } HDfree((VOIDP) indesc); } } void test_an_2(void) { char labsds[MAXLEN_LAB], labris[MAXLEN_LAB], descsds[MAXLEN_DESC], descris[MAXLEN_DESC]; uint8 pal[768]; uint8 *image, *newimage; uint16 refnum; int32 ret; intn rank; int j; int32 dimsizes[2]; float *data; /* set up object labels and descriptions */ HDstrcpy(labsds, "Object label #1: sds"); HDstrcpy(labris, "Object label #2: image"); HDstrcpy(descsds, "Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 \n"); HDstrcat(descsds, " 13 14 15 16 17 18 19 20 **END SDS DESCR**\n"); HDstrcpy(descris, "Object Descr #2: A B C D E F G H I J K L \n"); HDstrcat(descris, " M N O **END IMAGE DESCR **\n"); /***** generate float array and image *****/ data = (float *) HDmalloc(ROWS * COLS * sizeof(float)); image = (uint8 *) HDmalloc(ROWS * COLS * sizeof(char)); newimage = (uint8 *) HDmalloc(ROWS * COLS * sizeof(char)); dimsizes[0] = ROWS; dimsizes[1] = COLS; gen2Dfloat(ROWS, COLS, data); genimage(ROWS, COLS, data, image); ret = DFSDsetdims(2, dimsizes); RESULT("DFSDsetdims"); /******** Write labels and descriptions *********/ MESSAGE(5, printf("*** Writing labels and descriptions with SDS and RIS ***\n"); ); for (j = 0; j < REPS; j++) { /* write out scientific data set */ ret = DFSDadddata(TESTFILE, 2, dimsizes, (VOIDP) data); RESULT("DFSDadddata"); if ((j % 3) != 0) { /* write out annotations for 2 out of every 3 */ refnum = DFSDlastref(); ret = DFANputlabel(TESTFILE, DFTAG_SDG, refnum, labsds); RESULT("DFANputlabel"); ret = DFANputdesc(TESTFILE, DFTAG_SDG, refnum, descsds, (int32)HDstrlen(descsds)); RESULT("DFANputdesc"); } ret = DFR8addimage(TESTFILE, (VOIDP) image, COLS, ROWS, 0); RESULT("DFR8addimage"); refnum = DFR8lastref(); ret = DFANputlabel(TESTFILE, DFTAG_RIG, refnum, labris); RESULT("DFANputlabel"); ret = DFANputdesc(TESTFILE, DFTAG_RIG, refnum, descris, (int32)HDstrlen(descris)); RESULT("DFANputdesc"); } /******** Read labels and descriptions *********/ MESSAGE(5, printf("*** Reading labels and descriptions for SDS and RIS ***\n"); ); for (j = 0; j < REPS; j++) { ret = DFSDgetdims(TESTFILE, &rank, dimsizes, 3); RESULT("DFSDgetdims"); refnum = DFSDlastref(); if ((j % 3) != 0) /* read in annotations for 2 out of every 3 */ check_lab_desc(DFTAG_SDG, refnum, labsds, descsds); ret = DFR8getimage(TESTFILE, newimage, (int32) COLS, (int32) ROWS, pal); RESULT("DFR8getimage"); refnum = DFR8lastref(); check_lab_desc(DFTAG_RIG, refnum, labris, descris); } HDfree((VOIDP) data); HDfree((VOIDP) image); HDfree((VOIDP) newimage); } libhdf4-4.2.10/HDF_ALT/hdf/test/macros.c0000644000000000000000000001202112421456623014252 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "tproto.h" #define INT16MAX 32767 /* 0x7fff */ #define UINT16MAX 65535 /* 0xffff */ #define INT32MAX 2147483647 /* 0x7fffffff */ #define UINT32MAX 4294967295UL /* 0xffffffff */ extern int Verbocity; void test_macros(void) { signed char *p; uint16 new16u, old16u, str16u; int16 new16, old16, str16; uint32 new32u, old32u, str32u; int32 new32, old32, str32; int i,j; int errors1, errors2, errors3, errors4; int errors = 0; uint16 data1[10] = {0,1,2,3,4,UINT16MAX-4,UINT16MAX-3,UINT16MAX-2,UINT16MAX-1,UINT16MAX}; int16 data2[20] = {-INT16MAX-1,-INT16MAX,-INT16MAX+1,-INT16MAX+2,-INT16MAX+3,-INT16MAX+4, -4,-3,-2,-1,0,1,2,3,4, INT16MAX-4,INT16MAX-3,INT16MAX-2,INT16MAX-1,INT16MAX}; uint32 data3[10] = {0,1,2,3,4,UINT32MAX-4,UINT32MAX-3,UINT32MAX-2,UINT32MAX-1,UINT32MAX}; int32 data4[20] = {-INT32MAX-1,-INT32MAX,-INT32MAX+1,-INT32MAX+2,-INT32MAX+3,-INT32MAX+4, -4,-3,-2,-1,0,1,2,3,4, INT32MAX-4,INT32MAX-3,INT32MAX-2,INT32MAX-1,INT32MAX}; if (Verbosity > 5) printf("\n"); errors1 = 0; for (j = 0; j < 10; j++ ){ old16u = data1[j]; p = (signed char *) &str16u; UINT16ENCODE(p, old16u); p = (signed char *) &str16u; UINT16DECODE(p, new16u); if ( old16u != new16u ) { if (Verbosity > 8) { printf("old16u = %d, %x\n", old16u, old16u); printf("str: "); p = (signed char *) &str16u; for (i=0; i 5) { if (errors1 == 0) { printf("UNSIGNED INTEGER16: SUCCESSFUL\n"); } else { printf("UNSIGNED INTEGER16: %d ERRORS\n",errors1); } } if (Verbosity > 5) printf("\n"); errors2 = 0; for (j = 0; j < 20; j++ ){ old16 = data2[j]; p = (signed char *) &str16; INT16ENCODE(p, old16); p = (signed char *) &str16; INT16DECODE(p, new16); if ( old16 != new16 ) { if (Verbosity > 8) { printf("old16 = %d, %x\n", old16, old16); printf("str: "); p = (signed char *) &str16; for (i=0; i 5) { if (errors2 == 0) { printf("SIGNED INTEGER16: SUCCESSFUL\n"); } else { printf("SIGNED INTEGER16: %d ERRORS\n",errors2); } } if (Verbosity > 5) printf("\n"); errors3 = 0; for (j = 0; j < 10; j++ ){ old32u = data3[j]; p = (signed char *) &str32u; UINT32ENCODE(p, old32u); p = (signed char *) &str32u; UINT32DECODE(p, new32u); if ( old32u != new32u ) { if (Verbosity > 8) { printf("old32u = %u, %x\n", (unsigned)old32u, (unsigned)old32u); printf("str: "); p = (signed char *) &str32u; for (i=0; i 5) { if (errors3 == 0) { printf("UNSIGNED INTEGER32: SUCCESSFUL\n"); } else { printf("UNSIGNED INTEGER32: %d ERRORS\n",errors3); } } if (Verbosity > 5) printf("\n"); errors4 = 0; for (j = 0; j < 20; j++ ){ old32 = data4[j]; p = (signed char *) &str32; INT32ENCODE(p, old32); p = (signed char *) &str32; INT32DECODE(p, new32); if ( old32 != new32 ) { if (Verbosity > 8) { printf("old32 = %d, %x\n", (int)old32, (unsigned)old32); printf("str: "); p = (signed char *) &str32; for (i=0; i 5) { if (errors4 == 0) { printf("SIGNED INTEGER32: SUCCESSFUL\n"); } else { printf("SIGNED INTEGER32: %d ERRORS\n",errors4); } } errors = errors1+errors2+errors3+errors4; if (errors > 0) { printf(" %d ERRORS were detected during (macros) Testing\n",errors); num_errs += errors; } } /* end test_macros() */ libhdf4-4.2.10/HDF_ALT/hdf/test/fortest.sav0000644000000000000000000003626112421456623015037 0ustar \n Writing the first 3 of 5 slabs to slab1wf.hdf >>> All tests passed for slab1wf, run slab2wf <<< \n Writing the last 2 of 5 slabs to slab1wf.hdf Verifying data >>> All tests passed <<< \n Writing all 24 elements of data as slabs to slab3wf.hdf Verifying data >>> All tests passed <<< \n Writing data as 1 slab to slab4wf.hdf Verifying data >>> All tests passed <<< \n \n Writing data as 5 slabs to slabwf.hdf Verifying data >>> All tests passed <<< \n Setting il to 0 d2setil SUCCESSFUL Putting buffer 1 d2pimg SUCCESSFUL Setting il to 1 d2setil SUCCESSFUL Adding buf1 d2aimg SUCCESSFUL Setting il to 2 d2setil SUCCESSFUL Adding buf2 d2aimg SUCCESSFUL Restarting file d2first SUCCESSFUL Req il 0 d2reqil SUCCESSFUL Getting dims d2gdims SUCCESSFUL d1: 2 d2: 2 il: 0 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 1 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 2 Getting image d2gimg SUCCESSFUL Restarting file d2first SUCCESSFUL Req il 1 d2reqil SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 0 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 1 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 2 Getting image d2gimg SUCCESSFUL Restarting file d2first SUCCESSFUL Req il 2 d2reqil SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 0 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 1 Getting image d2gimg SUCCESSFUL Getting dimensions d2gdims SUCCESSFUL d1: 2 d2: 2 il: 2 Getting image d2gimg SUCCESSFUL ****** ALL TESTS SUCCESSFUL ****** dssdims SUCCESSFUL *** Writing labels & descriptions with SDS and RIS *** dsadata SUCCESSFUL daplab SUCCESSFUL dapdesc SUCCESSFUL d8aimg SUCCESSFUL daplab SUCCESSFUL dapdesc SUCCESSFUL dsadata SUCCESSFUL daplab SUCCESSFUL dapdesc SUCCESSFUL d8aimg SUCCESSFUL daplab SUCCESSFUL dapdesc SUCCESSFUL *** Reading labels and descriptions for SDS and RIS *** dsgdims SUCCESSFUL dagllen SUCCESSFUL daglab SUCCESSFUL dagdlen SUCCESSFUL dagdesc SUCCESSFUL d8gimg SUCCESSFUL dagllen SUCCESSFUL daglab SUCCESSFUL dagdlen SUCCESSFUL dagdesc SUCCESSFUL dsgdims SUCCESSFUL dagllen SUCCESSFUL daglab SUCCESSFUL dagdlen SUCCESSFUL dagdesc SUCCESSFUL d8gimg SUCCESSFUL dagllen SUCCESSFUL daglab SUCCESSFUL dagdlen SUCCESSFUL dagdesc SUCCESSFUL ***** ALL TESTS SUCCESSFUL ***** ****** Write file labels ******* hopen SUCCESSFUL daafid SUCCESSFUL daafid SUCCESSFUL ****** Write file descriptions ******* daafds SUCCESSFUL daafds SUCCESSFUL hclose SUCCESSFUL ****** Read length of the first file label **** hopen-read SUCCESSFUL dagfidl SUCCESSFUL ******...followed by the label ***** dagfid SUCCESSFUL ****** Read length of the second file label **** dagfidl SUCCESSFUL ******...followed by the label ***** dagfid SUCCESSFUL ****** Read length of the first file description **** dagfdsl SUCCESSFUL ******...followed by the description ***** dagfds SUCCESSFUL ****** Read length of the second file description **** dagfdsl SUCCESSFUL ******...followed by the description ***** dagfds SUCCESSFUL hclose SUCCESSFUL ***** ALL TESTS SUCCESSFUL ****** dssdims SUCCESSFUL afstart SUCCESSFUL affcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL affcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL affcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL affcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL *** Writing labels & descriptions with SDS and RIS *** dsadata SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL d8aimg SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL dsadata SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL d8aimg SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afcreate SUCCESSFUL afwriteann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL *** Reading labels and descriptions for SDS and RIS *** dsgdims SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL d8gimg SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL dsgdims SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL d8gimg SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afnumann SUCCESSFUL afnumann SUCCESSFUL afannlist SUCCESSFUL afannlist SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL *** Reading file labels and descriptions *** afstart SUCCESSFUL affileinfo SUCCESSFUL afselect SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afselect SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL afstart SUCCESSFUL affileinfo SUCCESSFUL afselect SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afselect SUCCESSFUL afannlen SUCCESSFUL afreadann SUCCESSFUL afendaccess SUCCESSFUL afend SUCCESSFUL ***** ALL TESTS SUCCESSFUL ***** Putting pal1 in new file. dpppal SUCCESSFUL Getting ref1 ref1 is 2 Putting pal2 in file dpapal SUCCESSFUL Getting ref2 ref2 is 3 Restarting palette interface dprest SUCCESSFUL Reading pal1 dpgpal SUCCESSFUL Getting ref1 Last ref is 2 Reading pal2. dpgpal SUCCESSFUL Getting ref2 Last ref is 3 Getting number of palettes dpnpals SUCCESSFUL Number of palettes is: 2 Setting read ref to ref2. dprref SUCCESSFUL Reading pal2 dpgpal SUCCESSFUL Setting read ref to ref1. ref1 is: 2 ref2 is: 3 dprref SUCCESSFUL Reading pal1 dpgpal SUCCESSFUL Modifying pal1 Setting write ref to ref1 dpwref SUCCESSFUL Writing pal1 dpppal SUCCESSFUL last ref is: 2 setting read ref to ref1 dprref SUCCESSFUL Reading pal1 dpgpal SUCCESSFUL ***** ALL TESTS SUCCESSFUL ***** Setting palette 1 d8spal SUCEESSFUL Putting image 1 with pal 1, no compression d8pimg SUCEESSFUL Getting ref1 ref1 is 2 Putting image 2 with pal 1, REL compression d8aimg SUCEESSFUL Getting ref2 ref2 is 3 Setting palette 2 d8spal SUCEESSFUL Putting image 2 with pal 2, IMCOMP compression d8aimg SUCEESSFUL Getting ref3 ref3 is 4 Getting number of images 3 images in the file Restarting file d8first SUCEESSFUL Getting dimensions of first image d8gdims SUCEESSFUL Getting image 1 d8gimg SUCEESSFUL Checking image and palette Image is correct Palette is correct Getting dimensions of image2 d8gdims SUCEESSFUL d1= 321 d2= 111 ispal= 1 Getting dimensions of image 3 d8gdims SUCEESSFUL d1= 321 d2= 111 ispal= 1 Getting image 3 d8gimg SUCEESSFUL setting read ref2 d8rref SUCEESSFUL Getting image 2 d8gimg SUCEESSFUL Checking image and palette Image is correct Palette is correct Setting write ref1 d8wref SUCEESSFUL Setting palette 2 d8spal SUCEESSFUL Putting image 1 with pal 2, RLE d8aimg SUCEESSFUL Setting read ref1 d8rref SUCEESSFUL Getting dimensions of first image d8gdims SUCEESSFUL d1= 100 d2= 100 ispal= 1 Getting image 1 d8gimg SUCEESSFUL Checking image and palette Image is correct Palette is correct ****** ALL TESTS SUCCESSFUL ******* Creating arrays... Writing arrays to single file... Test passed for float64 write Test passed for float32 write Test passed for int8 write Test passed for int16 write Test passed for int32 write Test passed for float64 read Test passed for float32 read Test passed for int8 read Test passed for int16 read Test passed for int32 read Checking dimscales, max/min & arrays from single file Test passed for float64 array Test passed for float64 scales. Test passed for float64 max/min. Test passed for float32 array Test passed for float32 scales. Test passed for float32 max/min. Test passed for int8 array Test passed for int8 scales. Test passed for int8 max/min. Test passed for int16 array Test passed for int16 scales. Test passed for int16 max/min. Test passed for int32 array Test passed for int32 scales. Test passed for int32 max/min. >>> ALL TESTS PASSED <<< Creating arrays... Writing arrays to single file... Test passed for float64 write Test passed for float32 write Test passed for int8 write Test passed for int16 write Test passed for int32 write Test passed for float64 read Test passed for float32 read Test passed for int8 read Test passed for int16 read Test passed for int32 read Checking dimscales, max/min & arrays from single file Test passed for float64 array Test passed for float64 scales. Test passed for float64 max/min. Test passed for float32 array Test passed for float32 scales. Test passed for float32 max/min. Test passed for int8 array Test passed for int8 scales. Test passed for int8 max/min. Test passed for int16 array Test passed for int16 scales. Test passed for int16 max/min. Test passed for int32 array Test passed for int32 scales. Test passed for int32 max/min. >>> ALL TESTS PASSED <<< Creating arrays... Testing arrays in individual files... Write: 0 Read: 0 Test passed for float64 array. Write: 0 Read: 0 Test passed for float32 array. Write: 0 Read: 0 Test passed for int8 array. Write: 0 Read: 0 Test passed for int16 array. Write: 0 Read: 0 Test passed for int32 array. Writing arrays to single file. Error values: 0 0 0 0 0 Reading arrays from single file... Error values: 0 0 0 0 0 Checking arrays from single file...\n\n Test passed for float64 array. Test passed for float32 array. Test passed for int8 array. Test passed for int16 array. Test passed for int32 array. >>> ALL TESTS PASSED <<< Creating arrays... Testing arrays in individual files... Write: 0 Read: 0 Test passed for float64 array. Write: 0 Read: 0 Test passed for float32 array. Write: 0 Read: 0 Test passed for int8 array. Write: 0 Read: 0 Test passed for int16 array. Write: 0 Read: 0 Test passed for int32 array. Writing arrays to single file. Error values: Add float64 ret: 0 Add float32 ret: 0 Add int8 ret: 0 Add int16 ret: 0 Add int32 ret: 0 Reading arrays from single file... Error values: Get f64 ret: 0 Get f32 ret: 0 Get int8 ret: 0 Get int16 ret: 0 Get int32 ret: 0 Checking arrays from single file...\n\n Test passed for float64 array. Test passed for float32 array. Test passed for int8 array. Test passed for int16 array. Test passed for int32 array. >>> ALL TESTS PASSED <<< Creating arrays... Test strings written so far Test passed for Datalabel Test passed for Dataunit Test passed for Datafmt Test passed for Coordsys Test passed for f_dim1_label_b Test passed for f_dim1_unit_b Test passed for f_dim1_fmt_b Test passed for f_dim2_label_a Test passed for f_dim2_unit_a Test passed for f_dim2_fmt_a >>>> All Tests Passed. >>>> FORTEST V0.2beta Built on: Mon Feb 8 1993 HDF Library Version: 4.0r0, NCSA HDF Version 4.0 Release 0, ?month? ?year? Testing -- (slab1) Testing -- (slab2) Testing -- (slab3) Testing -- (slab4) Testing -- (slab) Testing -- (r24) Testing -- (an) Testing -- (anfile) Testing -- (manf) Testing -- (p) Testing -- (r8) Testing -- (sdmms) Testing -- (sdnmms) Testing -- (sdnnt) Testing -- (sdnt) Testing -- (sdstr) Cleaning Up... libhdf4-4.2.10/HDF_ALT/hdf/test/tdupimgs.c0000644000000000000000000001320712421456623014631 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include #include "tutils.h" #define FILE_NAME "gr_double_test.hdf" #define IMAGE_COMP "Compressed Image" #define IMAGE_CHUNK "Chunked Image" #define IMAGE_CMP_CHK "Comp_Chunked Image" #define N_COMPS 3 /* number of components in the image */ #define N_IMAGES 3 /* currently, 3 images in the file, must be updated as needed */ #define X_LENGTH 10 #define Y_LENGTH 10 extern void test_mgr_dup_images() { int32 fid, grid, riid, il = MFGR_INTERLACE_PIXEL; int32 start[2], stride[2], edges[2],dims[2]; uint8 image_data[X_LENGTH][Y_LENGTH]; intn i, j; intn status; int32 n_datasets; /* number of datasets */ int32 n_attrs; /* number of attributes */ /* Output message about test being performed */ MESSAGE(6, printf("Testing eliminating duplicate images\n");); MESSAGE(8, printf("Try creating a new file and checking it out\n");); /* Create the file. */ fid = Hopen(FILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL,"Hopen"); /* Initiate the GR interface. */ grid = GRstart(fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Define the location, pattern, and size of the data set */ dims[0] = X_LENGTH; dims[1] = Y_LENGTH; for (i = 0; i < 2; i++) { start[i] = 0; edges[i] = dims[i]; } /* Initialize data we are going to write out, same for all images */ for (i = 0; i < Y_LENGTH; i++) for (j = 0; j < X_LENGTH; j++) image_data[i][j] = (uint8) (i + j); /**** Make an image with compressed data ****/ { comp_info cinfo; int32 comp_type; /* Create the first image in this file */ riid=GRcreate(grid, IMAGE_COMP, 1, DFNT_UINT8, il, dims); CHECK_VOID(riid, FAIL, "GRcreate"); /* Set the compression method for the image */ comp_type=COMP_CODE_DEFLATE; cinfo.deflate.level=7; status = GRsetcompress(riid, comp_type, &cinfo); CHECK_VOID(status, FAIL, "GRsetcompress"); /* Write the whole image out */ start[0]=start[1]=0; stride[0]=stride[1]=1; status = GRwriteimage(riid, start, stride, dims, image_data); CHECK_VOID(status, FAIL, "GRreadimage"); /* Close the image */ status = GRendaccess(riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /**** Make an image with chunked data ****/ { int32 comp_flag; HDF_CHUNK_DEF c_def; /* Create the second image */ riid=GRcreate(grid, IMAGE_CHUNK, N_COMPS, DFNT_UINT8, il, dims); CHECK_VOID(riid, FAIL, "GRcreate"); /* Make it chunked image */ comp_flag = HDF_CHUNK; c_def.chunk_lengths[0] = 3; c_def.chunk_lengths[1] = 2; status = GRsetchunk(riid, c_def, comp_flag); CHECK_VOID(status, FAIL, "GRsetchunk"); /* Write data to the entire image */ start[0]=start[1]=0; stride[0]=stride[1]=1; status = GRwriteimage(riid, start, stride, dims, image_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to this image */ status = GRendaccess (riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /* finish creating an image with chunked data */ /**** Make a GR image with chunked and DEFLATE compressed data */ { int32 comp_flag; HDF_CHUNK_DEF c_def; /* Create the image */ riid = GRcreate(grid, IMAGE_CMP_CHK, 3, DFNT_UINT8, il, dims); CHECK_VOID(riid, FAIL, "GRcreate"); /* Define the location, pattern, and size of the data set */ for (i = 0; i < 2; i++) { c_def.comp.chunk_lengths[i]=dims[i]/2; } /* Set info for compression/chunk */ c_def.comp.comp_type = COMP_CODE_DEFLATE; comp_flag = HDF_CHUNK|HDF_COMP; c_def.comp.cinfo.deflate.level = 9; status = GRsetchunk(riid,c_def,comp_flag); CHECK_VOID(status, FAIL, "GRsetchunk"); /* Write the stored data to the image array */ status = GRwriteimage(riid, start, NULL, edges, (VOIDP)image_data); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the image */ status = GRendaccess(riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /* Terminate access to the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); /* Open the file again and check its info */ fid = Hopen(FILE_NAME, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initiate the GR interface. */ grid = GRstart(fid); CHECK_VOID(grid, FAIL, "GRstart"); /* There currently should only be 3 images in the file */ status = GRfileinfo(grid,&n_datasets,&n_attrs); CHECK_VOID(status, FAIL, "GRfileinfo"); VERIFY_VOID(n_datasets, N_IMAGES, "GRfileinfo"); /* Terminate access to the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } libhdf4-4.2.10/HDF_ALT/hdf/test/CMakeLists.txt0000644000000000000000000000573512421456623015400 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_TEST C CXX) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- INCLUDE_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${HDF4_HDFSOURCE_DIR} ) LINK_DIRECTORIES ( ${CMAKE_Fortran_MODULE_DIRECTORY} ${HDF4_HDF_BINARY_DIR} ${CMAKE_LIBRARY_OUTPUT_DIRECTORY} ) SET (testhdf_SRCS ${HDF4_HDF_TEST_SOURCE_DIR}/testhdf.c ${HDF4_HDF_TEST_SOURCE_DIR}/an.c ${HDF4_HDF_TEST_SOURCE_DIR}/anfile.c ${HDF4_HDF_TEST_SOURCE_DIR}/bitio.c ${HDF4_HDF_TEST_SOURCE_DIR}/blocks.c ${HDF4_HDF_TEST_SOURCE_DIR}/chunks.c ${HDF4_HDF_TEST_SOURCE_DIR}/comp.c ${HDF4_HDF_TEST_SOURCE_DIR}/conv.c ${HDF4_HDF_TEST_SOURCE_DIR}/extelt.c ${HDF4_HDF_TEST_SOURCE_DIR}/file.c ${HDF4_HDF_TEST_SOURCE_DIR}/file1.c ${HDF4_HDF_TEST_SOURCE_DIR}/litend.c ${HDF4_HDF_TEST_SOURCE_DIR}/macros.c ${HDF4_HDF_TEST_SOURCE_DIR}/man.c ${HDF4_HDF_TEST_SOURCE_DIR}/mgr.c ${HDF4_HDF_TEST_SOURCE_DIR}/nbit.c ${HDF4_HDF_TEST_SOURCE_DIR}/rig.c ${HDF4_HDF_TEST_SOURCE_DIR}/sdmms.c ${HDF4_HDF_TEST_SOURCE_DIR}/sdnmms.c ${HDF4_HDF_TEST_SOURCE_DIR}/sdstr.c ${HDF4_HDF_TEST_SOURCE_DIR}/slab.c ${HDF4_HDF_TEST_SOURCE_DIR}/tattdatainfo.c ${HDF4_HDF_TEST_SOURCE_DIR}/tbv.c ${HDF4_HDF_TEST_SOURCE_DIR}/tdatainfo.c ${HDF4_HDF_TEST_SOURCE_DIR}/tdfr8.c ${HDF4_HDF_TEST_SOURCE_DIR}/tdupimgs.c ${HDF4_HDF_TEST_SOURCE_DIR}/tmgrattr.c ${HDF4_HDF_TEST_SOURCE_DIR}/tmgrcomp.c ${HDF4_HDF_TEST_SOURCE_DIR}/tree.c ${HDF4_HDF_TEST_SOURCE_DIR}/tszip.c ${HDF4_HDF_TEST_SOURCE_DIR}/tusejpegfuncs.c ${HDF4_HDF_TEST_SOURCE_DIR}/tutils.c ${HDF4_HDF_TEST_SOURCE_DIR}/tvattr.c ${HDF4_HDF_TEST_SOURCE_DIR}/tvnameclass.c ${HDF4_HDF_TEST_SOURCE_DIR}/tvset.c ${HDF4_HDF_TEST_SOURCE_DIR}/tvsfpack.c ${HDF4_HDF_TEST_SOURCE_DIR}/vers.c ) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) #-- Adding test for testhdf ADD_EXECUTABLE (testhdf ${testhdf_SRCS}) TARGET_NAMING (testhdf ${LIB_TYPE}) TARGET_C_PROPERTIES (testhdf " " " ") TARGET_LINK_LIBRARIES (testhdf ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding test for buffer IF (NOT WIN32) ADD_EXECUTABLE (buffer ${HDF4_HDF_TEST_SOURCE_DIR}/buffer.c) TARGET_NAMING (buffer ${LIB_TYPE}) TARGET_C_PROPERTIES (buffer " " " ") TARGET_LINK_LIBRARIES (buffer ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (NOT WIN32) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## INCLUDE (CMakeTests.cmake) libhdf4-4.2.10/HDF_ALT/hdf/test/tsdnmmsf.f0000644000000000000000000002214012421456623014627 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tsdnmmsf.f 6036 2014-01-20 17:28:01Z acheng $ C subroutine tsdnmmsf (number_failed) implicit none C C C Program to test writing SDSs with different types of data and C scales and max/min values. C C Input file: none C Output files: fon.hdf C integer number_failed character*20 myname parameter (myname = 'sdnmms') integer dsgdata, dsadata, dssdims, dssrang, dsgrang, dssnt integer dssdisc, dsgdisc real*8 f64(10,10), tf64(10,10) real*8 f64scale(10), tf64scale(10) real*8 f64max, f64min, tf64max, tf64min real*4 f32(10,10), tf32(10,10) real*4 f32scale(10), tf32scale(10) real*4 f32max, f32min, tf32max, tf32min characteri8(10,10), ti8(10,10) character i8scale(10), ti8scale(10), i8max, i8min character ti8max, ti8min C Align the Character variables with the surrogate names. C Need to do this because HDF always assume int8 is a packed 8 bits C quantities of precisely 1 byte big. Integer*1 may have memory size C as large as a normal integer (e.g. Cray). C Cannot just use the character variables as for some compilers, C the argument address of a character argument is not compatible with C that of a numerial argument. integer surri8, surri8max, surri8min, surri8scale integer surrti8, surrti8max, surrti8min, surrti8scale equivalence (i8, surri8) equivalence (i8scale, surri8scale) equivalence (i8min, surri8min) equivalence (i8max, surri8max) equivalence (ti8, surrti8) equivalence (ti8scale, surrti8scale) equivalence (ti8min, surrti8min) equivalence (ti8max, surrti8max) integer*2 i16(10,10), ti16(10,10) integer*2 i16scale(10), ti16scale(10), i16max, i16min integer*2 ti16max, ti16min integer*4 i32(10,10), ti32(10,10) integer*4 i32scale(10), ti32scale(10), i32max, i32min integer*4 ti32max, ti32min integer i, j, err, err1, err2, err3 integer rank, dims(2) integer DFNT_NFLOAT64, DFNT_NFLOAT32, DFNT_NINT8, DFNT_NINT16 integer DFNT_NINT32, DFNT_NATIVE integer DFNT_FLOAT64, DFNT_FLOAT32, DFNT_INT8, DFNT_INT16 integer DFNT_INT32 call ptestban('Testing', myname) f64max = 40.0 f64min = 0.0 f32max = 40.0 f32min = 0.0 i8max = char(127) C NOTE: If you get a compile error on the "char(-128)" line, substitute C the "char(0)" line. Its not quite as thorough a test, but... i8min = char(0) C i8min = char(-128) i16max = 1200 i16min = -1200 i32max = 99999999 i32min = -999999999 rank = 2 dims(1) = 10 dims(2) = 10 number_failed = 0 DFNT_FLOAT64 = 6 DFNT_FLOAT32 = 5 DFNT_INT8 = 20 DFNT_INT16 = 22 DFNT_INT32 = 24 DFNT_NATIVE = 4096 C These should really use a logical OR to compute these values C However, OR() is not really that portable DFNT_NFLOAT64 = DFNT_NATIVE + DFNT_FLOAT64 DFNT_NFLOAT32 = DFNT_NATIVE + DFNT_FLOAT32 DFNT_NINT8 = DFNT_NATIVE + DFNT_INT8 DFNT_NINT16 = DFNT_NATIVE + DFNT_INT16 DFNT_NINT32 = DFNT_NATIVE + DFNT_INT32 call MESSAGE(5, 'Creating arrays...') do 110 i=1,10 do 100 j=1,10 f64(i,j) = (i * 40) + j f32(i,j) = (i * 40) + j i8(i,j) = char( (i * 10) + j ) i16(i,j) = (i * 3000) + j i32(i,j) = (i * 20) + j 100 continue f64scale(i) = (i * 40) + j f32scale(i) = (i * 40) + j i8scale(i) = char((i * 10) + j) i16scale(i) = (i * 3000) + j i32scale(i) = (i * 20) + j 110 continue err1 = dssdims(rank, dims) C C Writing dimscale, max/min, and arrays to a single file C call MESSAGE(5, 'Writing arrays to single file...') err = dssnt(DFNT_NFLOAT64) err1 = dssdisc(1, 10, f64scale) err2 = dssrang(f64max, f64min) err3 = dsadata('fon.hdf', rank, dims, f64) call errchkio(err1, err2, err3, number_failed, 'float64 write') err = dssnt(DFNT_NFLOAT32) err1 = dssdisc(1, 10, f32scale) err2 = dssrang(f32max, f32min) err3 = dsadata('fon.hdf', rank, dims, f32) call errchkio(err1, err2, err3, number_failed, 'float32 write') err = dssnt(DFNT_NINT8) err1 = dssdisc(1, 10, surri8scale) err2 = dssrang(surri8max, surri8min) err3 = dsadata('fon.hdf', rank, dims, surri8) call errchkio(err1, err2, err3, number_failed, 'int8 write') err = dssnt(DFNT_NINT16) err1 = dssdisc(1, 10, i16scale) err2 = dssrang(i16max, i16min) err3 = dsadata('fon.hdf', rank, dims, i16) call errchkio(err1, err2, err3, number_failed, 'int16 write') err = dssnt(DFNT_NINT32) err1 = dssdisc(1, 10, i32scale) err2 = dssrang(i32max, i32min) err3 = dsadata('fon.hdf', rank, dims, i32) call errchkio(err1, err2, err3, number_failed, 'int32 write') C C Reading back dimscales, max/min, and arrays from single file C err1 = dsgdata('fon.hdf', rank, dims, tf64) err2 = dsgdisc(1, 10, tf64scale) err3 = dsgrang(tf64max, tf64min) call errchkio(err1, err2, err3, number_failed, 'float64 read') err1 = dsgdata('fon.hdf', rank, dims, tf32) err2 = dsgdisc(1, 10, tf32scale) err3 = dsgrang(tf32max, tf32min) call errchkio(err1, err2, err3, number_failed, 'float32 read') err1 = dsgdata('fon.hdf', rank, dims, surrti8) err2 = dsgdisc(1, 10, surrti8scale) err3 = dsgrang(surrti8max, surrti8min) call errchkio(err1, err2, err3, number_failed, 'int8 read') err1 = dsgdata('fon.hdf', rank, dims, ti16) err2 = dsgdisc(1, 10, ti16scale) err3 = dsgrang(ti16max, ti16min) call errchkio(err1, err2, err3, number_failed, 'int16 read') err1 = dsgdata('fon.hdf', rank, dims, ti32) err2 = dsgdisc(1, 10, ti32scale) err3 = dsgrang(ti32max, ti32min) call errchkio(err1, err2, err3, number_failed, 'int32 read') C C Checking dimscales, max/min and arrays from single file C call MESSAGE(5, + 'Checking dimscales, max/min & arrays from single file') C float64 err1 = 0 err2 = 0 err3 = 0 do 1010 i=1,10 do 1000 j=1,10 if (f64(i,j) .ne. tf64(i,j)) err1 = 1 1000 continue if (f64scale(i) .ne. tf64scale(i)) err2 = 1 1010 continue if ((f64max .ne. tf64max) .or. (f64min .ne. tf64min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'float64') C float32 err1 = 0 err2 = 0 err3 = 0 do 1030 i=1,10 do 1020 j=1,10 if (f32(i,j) .ne. tf32(i,j)) err1 = 1 1020 continue if (f32scale(i) .ne. tf32scale(i)) err2 = 1 1030 continue if ((f32max .ne. tf32max) .or. (f32min .ne. tf32min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'float32') C int8 err1 = 0 err2 = 0 err3 = 0 do 1110 i=1,10 do 1100 j=1,10 if (i8(i,j) .ne. ti8(i,j)) err1 = 1 1100 continue if (i8scale(i) .ne. ti8scale(i)) err2 = 1 1110 continue if ((i8max .ne. ti8max) .or. (i8min .ne. ti8min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int8') C int16 err1 = 0 err2 = 0 err3 = 0 do 1210 i=1,10 do 1200 j=1,10 if (i16(i,j) .ne. ti16(i,j)) err1 = 1 1200 continue if (i16scale(i) .ne. ti16scale(i)) err2 = 1 1210 continue if ((i16max .ne. ti16max) .or. (i16min .ne. ti16min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int16') C int32 err1 = 0 err2 = 0 err3 = 0 do 1310 i=1,10 do 1300 j=1,10 if (i32(i,j) .ne. ti32(i,j)) err1 = 1 1300 continue if (i32scale(i) .ne. ti32scale(i)) err2 = 1 1310 continue if ((i32max .ne. ti32max) .or. (i32min .ne. ti32min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int32') C C Sum up C if (number_failed .gt. 0 ) then print *, ' >>> ', number_failed, ' TESTS FAILED <<<' else call MESSAGE(5, ' >>> ALL TESTS PASSED <<<') endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tproto.h0000644000000000000000000000427712421456623014340 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: tproto.h 5692 2011-09-19 16:05:25Z bmribler $ */ #ifndef _TPROTO_H #define _TPROTO_H #include "hdf.h" #include "tutils.h" void test_an(void); void test_an_2(void); void test_anfile(void); void test_man(void); void test_hblocks(void); void test_hextelt(void); void test_hfile(void); void test_hfile1(void); void test_r24(void); void test_GR(void); void test_r8(void); void test_pal(void); void test_sdmms(void); void test_sdnmms(void); void test_tsdstr(void); void test_vers(void); void test_slab(void); void test_litend(void); void test_vsets(void); void test_vnameclass(void); void test_vset_attr(void); void test_vspack(void); void test_comp(void); void test_bitio(void); void test_tbbt(void); void test_macros(void); void test_conv(void); void test_nbit(void); void test_mgr(void); void test_mgr_attr(void); void test_mgr_compress(void); void test_bitvect(void); void test_chunks(void); void test_buffer(void); void test_datainfo(void); void test_datainfo(void); void test_attdatainfo(void); #endif /* _TPROTO_H */ libhdf4-4.2.10/HDF_ALT/hdf/test/buffer.c0000644000000000000000000004757712421456623014267 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* FILE - buffer.c Test HDF buffered data I/O routines DESIGN - Create a new data element and get a benchmark time for reading it in various ways. - Buffer the element and get times for the buffered element. - Make a new external element and get benchmark times - Buffer the external element and get times for the buffered element. - Make a new compressed element and get benchmark times - Buffer the compressed element and get times for the buffered element. - Make a new linked block element and get benchmark times - Buffer the linked block element and get times for the buffered element. BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 12/11/98 - Wrote tests 12/20/06 - Compute the wallclock time and use the environment variable or macro HDF4_TESTPREFIX to add prefix to the testing files names. Also, it allows to specify the number of elements in buffer at the command line. */ /* $Id: buffer.c 6013 2014-01-10 21:19:02Z acheng $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif #define TESTMASTER #include #include "hdf.h" #include "tutils.h" #include "hfile.h" #define TESTFILE_NAME "tbuffer.hdf" #define EXTFILE_NAME "tbuffer.dat" /* Size of data elements to create */ #ifdef __CRAY_XT3__ /* Use a smaller test size as small unbuffered IO is expensive in XT3. */ /* This runs much faster in Lustre file system like /scratchN. elemsize 1000 */ /* takes 3 minutes to run in /scratch3. 2006/6/20, -AKC- */ #define ELEMSIZE 1000 #else #define ELEMSIZE 16384 #endif /* define aliases for random number generation */ #define RAND rand #define SEED(a) srand((unsigned)(a)) /* Tag to use for creating the test elements */ #define BUFF_TAG 1000 /* Number of tests */ #define NUM_TESTS 4 /* Factor for converting seconds to microseconds */ #define FACTOR 1000000 /* Number of timing tests to run */ /* 0 - read/write entire buffer in one I/O operation */ /* 1 - read/write entire buffer one byte at a time forwards */ /* 2 - read/write entire buffer one byte at a time every other byte forwards */ /* 3 - read/write entire buffer one byte at a time backwards */ /* 4 - read/write entire buffer one byte at a time every other byte backwards */ #define NUM_TIMINGS 5 long read_time[NUM_TESTS][2]; /* 0 is unbuffered, 1 is buffered */ long write_time[NUM_TESTS][2]; /* 0 is unbuffered, 1 is buffered */ int32 elemsize; /* Actual number of elements in buffer */ /* I/O buffers */ uint8 *out_buf; /* Buffer for writing data */ uint8 *in_buf; /* Buffer for reading data */ /* local function prototypes */ static void init_buffer(void); static void usage(void); static char *fixname(const char *base_name, char *fullname, size_t size); static long read_test(int32 aid); static long write_test(int32 aid,intn num_timings); /* Initialize output buffer */ static void init_buffer(void) { intn j; SEED(time(NULL)); for (j = 0; j < elemsize; j++) { out_buf[j] = (uint8) RAND(); } /* end for */ } /* init_buffers() */ static void usage(void) { printf("\nUsage: buffer [elemsize] \n\n"); printf("where elemsize is the number of elements in buffer (default: 1000 in Cray, 16384 in other platforms)\n"); printf("\n"); } /* end usage() */ /* Creates a file name from a file base name like 'test' and return it through the FULLNAME (at most SIZE characters counting the null terminator). The full name is created by prepending the contents of HDF4_TESTPREFIX (separated from the base name by a slash). Returns NULL if BASENAME or FULLNAME is the null pointer or if FULLNAME isn't large enough for the result. */ static char *fixname(const char *base_name, char *fullname, size_t size) { const char *prefix = NULL; char *ptr, last = '\0'; size_t i, j; if (!base_name || !fullname || size<1) return NULL; memset(fullname, 0, size); /* First use the environment variable, then try the constant */ prefix = getenv("HDF4_TESTPREFIX"); #ifdef HDF4_TESTPREFIX if (!prefix) prefix = HDF4_TESTPREFIX; #endif /* Prepend the prefix value to the base name */ if (prefix && *prefix) { if (snprintf(fullname, size, "%s/%s", prefix, base_name)==(int)size) /* Buffer is too small */ return NULL; } /* end if */ else { if (strlen(base_name) >= size) /* Buffer is too small */ return NULL; else strcpy(fullname, base_name); } /* end else*/ /* Remove any double slashes in the filename */ for (ptr = fullname, i = j = 0; ptr && i < size; i++, ptr++) { if (*ptr != '/' || last != '/') fullname[j++] = *ptr; last = *ptr; } /* end for */ return fullname; } /* end fixname() */ static long read_test(int32 aid) { struct timeval start_time, end_time; /* timing counts */ long acc_time; int32 ret; intn i; /* local counting index */ intn timing; /* Which timing test we are on */ intn err_count; /* number of incorrect array positions */ acc_time=0; for(timing=0; timing=0; i--) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hread(aid,1,&in_buf[i]); VERIFY(ret, 1, "Hread"); } /* end for */ gettimeofday(&end_time,(struct timezone*)0); break; case 4: /* Read entire buffer one byte at a time every one byte backwards */ gettimeofday(&start_time,(struct timezone*)0); for(i=elemsize-1; i>=0; i-=2) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hread(aid,1,&in_buf[i]); VERIFY(ret, 1, "Hread"); } /* end for */ for(i=elemsize-2; i>=0; i-=2) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hread(aid,1,&in_buf[i]); VERIFY(ret, 1, "Hread"); } /* end for */ gettimeofday(&end_time,(struct timezone*)0); break; } /* end switch */ /* Verify buffer contents */ for(err_count=0,i=0; i10) break; } /* end if */ } /* end for */ /* Clear input buffer */ HDmemset(in_buf,0,elemsize); /* Increment the total I/O time */ acc_time+=(end_time.tv_sec-start_time.tv_sec)*FACTOR+ (end_time.tv_usec-start_time.tv_usec); } /* end for */ return(acc_time); } /* end read_test() */ static long write_test(int32 aid,intn num_timings) { struct timeval start_time, end_time; /* timing counts */ long acc_time; int32 ret; intn i; /* local counting index */ intn timing; /* Which timing test we are on */ acc_time=0; for(timing=0; timing=0; i--) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hwrite(aid,1,&out_buf[i]); VERIFY(ret, 1, "Hwrite"); } /* end for */ gettimeofday(&end_time,(struct timezone*)0); break; case 4: /* Write entire buffer one byte at a time every one byte backwards */ gettimeofday(&start_time,(struct timezone*)0); for(i=elemsize-1; i>=0; i-=2) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hwrite(aid,1,&out_buf[i]); VERIFY(ret, 1, "Hwrite"); } /* end for */ for(i=elemsize-2; i>=0; i-=2) { /* Seek to correct location within element */ ret=Hseek(aid,i,DF_START); CHECK(ret, FAIL, "Hseek"); ret=Hwrite(aid,1,&out_buf[i]); VERIFY(ret, 1, "Hwrite"); } /* end for */ gettimeofday(&end_time,(struct timezone*)0); break; } /* end switch */ /* Seek to beginning of element */ ret=Hseek(aid,0,DF_START); CHECK(ret, FAIL, "Hseek"); /* Read buffer contents */ ret=Hread(aid,elemsize,in_buf); VERIFY(ret, elemsize, "Hread"); /* Verify buffer contents */ for(i=0; i2) { usage(); exit(1); } else elemsize = (argc==2)? (int32)atol(argv[1]):(int32)ELEMSIZE; if (elemsize<=0) { usage(); exit(1); } out_buf = malloc(elemsize * sizeof(uint8)); in_buf = malloc(elemsize * sizeof(uint8)); Verbosity = 4; /* Default Verbosity is Low */ Hgetlibversion(&lmajor, &lminor, &lrelease, lstring); printf("Built with HDF Library Version: %u.%u.%u, %s\n\n", (unsigned) lmajor, (unsigned) lminor, (unsigned) lrelease, lstring); MESSAGE(6, printf("Starting buffered element test (elemsize=%d)\n", elemsize); ) if(Cache) /* turn on caching, unless we were instucted not to */ Hcache(CACHE_ALL_FILES,TRUE); /* fill the buffer with interesting data to compress */ init_buffer(); fixname(TESTFILE_NAME, hfilename, sizeof hfilename); /* open the HDF file */ fid = Hopen(hfilename, DFACC_ALL, 0); CHECK(fid, FAIL, "Hopen"); /* Cycle through the different testing element types */ /* Performing timings on each type of buffer and record results for output */ /* if verbosity level is high enough */ for (test_num = 0; test_num < NUM_TESTS; test_num++) { /* Get a new reference number */ ref_num=Htagnewref(fid,BUFF_TAG); CHECK(ref_num, 0, "Htagnewref"); /* Create the data element to perform the tests on */ switch(test_num) { case 0: /* create plain data element */ aid=Hstartaccess(fid,BUFF_TAG,ref_num,DFACC_RDWR); CHECK(aid, FAIL, "Hstartaccess"); break; case 1: /* create external data element */ fixname(EXTFILE_NAME, extfilename, sizeof extfilename); aid=HXcreate(fid,BUFF_TAG,ref_num,extfilename,0,elemsize); CHECK(aid, FAIL, "HXcreate"); break; case 2: /* create compressed data element */ c_info.deflate.level=9; aid=HCcreate(fid,BUFF_TAG,ref_num,COMP_MODEL_STDIO,&m_info,COMP_CODE_DEFLATE,&c_info); CHECK(aid, FAIL, "HCcreate"); break; case 3: /* create linked-block data element */ aid=HLcreate(fid,BUFF_TAG,ref_num,HDF_APPENDABLE_BLOCK_LEN,HDF_APPENDABLE_BLOCK_NUM); CHECK(aid, FAIL, "HLcreate"); break; } /* end switch */ /* Write the initial data to the data element */ ret=Hwrite(aid,elemsize,out_buf); VERIFY(ret, elemsize, "Hwrite"); /* Perform read timing tests on un-buffered data element */ read_time[test_num][0]=read_test(aid); /* Perform write timing tests on un-buffered data element */ /* Just write un-buffered compressed data in one block */ write_time[test_num][0]=write_test(aid,(test_num==2 ? 1 : NUM_TIMINGS)); /* Convert element to a buffered element */ ret=HBconvert(aid); CHECK(ret, FAIL, "HBconvert"); /* Perform read timing tests on buffered data element */ read_time[test_num][1]=read_test(aid); /* Perform write timing tests on un-buffered data element */ write_time[test_num][1]=write_test(aid,NUM_TIMINGS); /* Close data element */ ret=Hendaccess(aid); CHECK(ret, FAIL, "Hendaccess"); MESSAGE(3, { printf("Unbuffered read time=%f seconds\n",((float)read_time[test_num][0]/FACTOR)); printf("Unbuffered write time=%f seconds\n",((float)write_time[test_num][0]/FACTOR)); printf("Buffered read time=%f seconds\n",((float)read_time[test_num][1]/FACTOR)); printf("Buffered write time=%f seconds\n",((float)write_time[test_num][1]/FACTOR)); } ) } /* end for */ /* close the HDF file */ ret = Hclose(fid); CHECK(ret, FAIL, "Hclose"); /* Clean up files created */ if (CleanUp) { remove(extfilename); remove(hfilename); } free(out_buf); free(in_buf); MESSAGE(6, printf("Finished buffered element test\n"); ) exit(num_errs); return num_errs; } /* end main() */ libhdf4-4.2.10/HDF_ALT/hdf/test/tsdstrf.f0000644000000000000000000001100312421456623014461 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tsdstrf.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine tsdstrf (num_failed) implicit none C C This program tests correctness of writing and read datastrings C and dimension strings. C To avoid the '\0' inserted by HDstrncpy, compare the first 14 C characters of output and input strings in subroutine compare() integer num_failed character*20 myname parameter (myname = 'sdstr') integer rank, i, j, ret, err integer dims(2) integer dssnt, dssdims, dssdast, dssdist, dspdata integer dsgdast, dsgdist, dsgdata, DFNT_NFLOAT32 real f32(10,10), inf32(10,10) character*15 datalabel, dataunit, datafmt, coordsys character*15 dimlabels(2), dimunits(2), dimfmts(2) character*16 indatalabel, indataunit, indatafmt, incoordsys character*16 indimlabels(2), indimunits(2), indimfmts(2) character*15 fn call ptestban('Testing', myname) DFNT_NFLOAT32 = 4096+5 rank = 2 dims(1) = 10 dims(2) = 10 datalabel = 'Datalabel' dataunit = 'Dataunit' datafmt = 'Datafmt' coordsys = 'Coordsys' dimlabels(1) = 'f_dim1_label_b' dimunits(1) = 'f_dim1_unit_b ' dimfmts(1) = 'f_dim1_fmt_b ' dimlabels(2) = 'f_dim2_label_a' dimunits(2) = 'f_dim2_unit_a ' dimfmts(2) = 'f_dim2_fmt_a ' fn = 'sdstrsf.hdf' err = 0 num_failed = 0 call MESSAGE(5, 'Creating arrays...') do 110 i=1,dims(2) do 100 j=1,dims(1) f32(j,i) = (i*10) + j 100 continue 110 continue ret = dssdims(rank, dims) err = err + ret ret = dssnt(DFNT_NFLOAT32) err = err + ret ret = dssdast(datalabel, dataunit, datafmt, coordsys) err = err + ret ret = dssdist(1, dimlabels(1), dimunits(1), dimfmts(1)) err = err + ret ret = dssdist(2, dimlabels(2), dimunits(2), dimfmts(2)) err = err + ret ret = dspdata(fn, rank,dims, f32) err = err + ret call MESSAGE(5, 'Test strings written so far') ret = dsgdata(fn, rank, dims, inf32) err = err + ret ret = dsgdast(indatalabel, indataunit, indatafmt, incoordsys) err = err + ret ret = dsgdist(1, indimlabels(1), indimunits(1), indimfmts(1)) err = err + ret ret = dsgdist(2, indimlabels(2), indimunits(2), indimfmts(2)) err = err + ret call compare(datalabel, indatalabel, num_failed) call compare(dataunit, indataunit, num_failed) call compare(datafmt, indatafmt, num_failed) call compare(coordsys, incoordsys, num_failed) do 150 i=1,2 call compare(dimlabels(i), indimlabels(i), num_failed) call compare(dimunits(i), indimunits(i), num_failed) call compare(dimfmts(i), indimfmts(i), num_failed) 150 continue if ((err .eq. 0) .and. (num_failed .eq. 0)) then call MESSAGE(5, '>>>> All Tests Passed. >>>>') else print *, abs(err),' calls returned -1' print *, num_failed, ' values incorrect.' endif return end subroutine compare(outstring, instring, num) implicit none include 'fortest.inc' character*14 outstring, instring integer num C C Note, outstring and instring are of length 14 instead of 15. C if (outstring .ne. instring) then print *, 'Test failed for <', outstring,'>' print *, ' HDF says= <', instring,'>' num= num+ 1 else if (Verbosity .ge. VERBO_HI) then print *, 'Test passed for ', outstring endif endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tree.c0000644000000000000000000001143112421456623013731 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: tree.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* FILE tree.c Test HDF Threaded-Balanced-Binary Tree (tbbt) routines. REMARKS DESIGN BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 10/21/93 - Started coding. */ #include #include "tproto.h" #include "tbbt.h" #define MAX_TEST_SIZE 31 /* maximum number of elements to insert */ #define NUM_TEST_RUNS 100 /* number of times to insert & remove each size */ #define SEED(s) (srand(s)) #define RandInt(a,b) ((rand()%(((b)-(a))+1))+(a)) PRIVATE VOID swap_arr (int32 *arr, intn a, intn b); intn tcompare (VOIDP k1, VOIDP k2, intn cmparg); PRIVATE VOID swap_arr(int32 *arr, intn a, intn b) { int32 t; if (a != b) { t = arr[a]; arr[a] = arr[b]; arr[b] = t; } /* end if */ } /* end swap_arr() */ intn tcompare(VOIDP k1, VOIDP k2, intn cmparg) { /* shut compiler up */ cmparg=cmparg; return ((intn) ((*(int32 *) k1) - (*(int32 *) k2))); } void test_tbbt(void) { intn test_size; intn i, j; int32 ins_arr[MAX_TEST_SIZE]; int32 rem_arr[MAX_TEST_SIZE]; intn t; TBBT_TREE *tree; VOIDP *r; t = (intn)time(NULL); SEED((uintn)t); for (test_size = 3; test_size <= MAX_TEST_SIZE; test_size++) { MESSAGE(7, printf("\nTesting trees with %d elements\n", test_size); ); MESSAGE(8, printf("Testing tree #:"); ); for (j = 0; j < NUM_TEST_RUNS; j++) { MESSAGE(8, printf(" %d", j); ); for (i = 0; i < test_size; i++) { /* initialize the arrays */ ins_arr[i] = i; rem_arr[i] = i; } /* end for */ for (i = 0; i < test_size; i++) { /* shuffle the arrays */ t = RandInt(i, test_size - 1); swap_arr(ins_arr, i, t); t = RandInt(i, test_size - 1); swap_arr(rem_arr, i, t); } /* end for */ if (Verbosity > 9) { printf("ins_arr: \n"); for (i = 0; i < test_size; i++) /* print the arrays */ printf("%d \n", (int) ins_arr[i]); printf("\nrem_arr: \n"); for (i = 0; i < test_size; i++) /* print the arrays */ printf("%d \n", (int) rem_arr[i]); printf("\n"); } /* end if */ tree = tbbtdmake(tcompare, sizeof(int32),0); for (i = 0; i < test_size; i++) { MESSAGE(9, printf("inserting %d\n", (int) ins_arr[i]); ); tbbtdins(tree, (VOIDP) &ins_arr[i], NULL); MESSAGE(9, tbbtdump(tree, -1); ); } MESSAGE(9, tbbtdump(tree, -1); ); for (i = 0; i < test_size; i++) { int32 key; key = rem_arr[i]; r = (VOIDP *) tbbtdfind(tree, (VOIDP) &key, NULL); MESSAGE(9, printf("removing %d\n", (int) key); ); tbbtrem((TBBT_NODE **) tree, (TBBT_NODE *) r, NULL); MESSAGE(9, tbbtdump(tree, -1); ); } /* end for */ tbbtdfree(tree, NULL, NULL); } /* end for */ } /* end for */ } /* end test_tbbt() */ libhdf4-4.2.10/HDF_ALT/hdf/test/testhdf.c0000644000000000000000000003035512421456623014441 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* $Id: testhdf.c 6036 2014-01-20 17:28:01Z acheng $ */ /* FILE testhdf.c HDF testing framework main file. REMARKS General test wrapper for HDF base library test programs DESIGN Each test function should be implemented as function having no parameters and returning void (i.e. no return value). They should be put into the list of InitTest() calls in main() below. Functions which depend on other functionality should be placed below the InitTest() call for the base functionality testing. Each test module should include tproto.h and define a unique set of names for test files they create. BUGS/LIMITATIONS EXPORTED ROUTINES/VARIABLES: Two variables are exported: num_errs, and Verbosity. */ #define MAXNUMOFTESTS 35 #define TESTMASTER /* Internal Variables */ static int Index = 0; /* ANY new test needs to have a prototype in tproto.h */ #include "tproto.h" struct TestStruct { int NumErrors; char Description[64]; int SkipFlag; char Name[16]; VOID (*Call) (void); } Test[MAXNUMOFTESTS]; static void InitTest(const char *TheName, VOID(*TheCall) (void), const char *TheDescr); static void usage(void); static void InitTest(const char *TheName, VOID(*TheCall) (void), const char *TheDescr) { if (Index >= MAXNUMOFTESTS) { printf("Uh-oh, too many tests added, increase MAXNUMOFTEST!\n"); exit(0); } /* end if */ HDstrcpy(Test[Index].Description, TheDescr); HDstrcpy(Test[Index].Name, TheName); Test[Index].Call = TheCall; Test[Index].NumErrors = -1; Test[Index].SkipFlag = 0; Index++; } static void usage(void) { intn i; printf("Usage: testhdf [-v[erbose] (l[ow]|m[edium]|h[igh]|0-10)] \n"); printf(" [-[e]x[clude] name+] \n"); printf(" [-o[nly] name+] \n"); printf(" [-b[egin] name] \n"); printf(" [-s[ummary]] \n"); printf(" [-c[leanoff]] \n"); printf(" [-n[ocaching]] \n"); printf(" [-h[elp]] \n"); printf("\n\n"); printf("verbose controls the amount of information displayed\n"); printf("exclude to exclude tests by name\n"); printf("only to name tests which should be run\n"); printf("begin start at the name of the test givin\n"); printf("summary prints a summary of test results at the end\n"); printf("cleanoff does not delete *.hdf files after execution of tests\n"); printf("nocaching do not turn on low-level DD caching\n"); printf("help print out this information\n"); printf("\n\n"); printf("This program currently tests the following: \n\n"); printf("%16s %s\n", "Name", "Description"); printf("%16s %s\n", "----", "-----------"); for (i = 0; i < Index; i++) printf("%16s %s\n", Test[i].Name, Test[i].Description); printf("\n\n"); } /* end usage() */ int main(int argc, char *argv[]) { int CLLoop; /* Command Line Loop */ int Loop, Loop1; int Summary = 0; int CleanUp = 1; int Cache = 1; uint32 lmajor, lminor, lrelease; char lstring[81]; /* Un-buffer the stdout and stderr */ setbuf(stderr, NULL); setbuf(stdout, NULL); /* Tests are generally arranged from least to most complexity... */ #if !(defined _WIN32) InitTest("bitvect", test_bitvect, "Bit-Vector routines"); InitTest("tbbt", test_tbbt, "Threaded Balanced Binary Trees"); #endif InitTest("vers", test_vers, "VERSION OF LIBRARY"); InitTest("hfile", test_hfile, "HFILE"); InitTest("hfile1", test_hfile1, "HFILE LIMITS"); InitTest("hblocks", test_hblocks, "HBLOCKS"); InitTest("extelt", test_hextelt, "EXTERNAL ELEMENTS"); InitTest("comp", test_comp, "COMPRESSED ELEMENTS"); InitTest("chunks", test_chunks, "Chunks"); #ifdef LATER InitTest("vblocks", test_hvblocks, "Variable Length Linked Blocks"); #endif /* LATER */ InitTest("bitio", test_bitio, "BIT I/O"); InitTest("8bit", test_r8, "8BIT RASTER IMAGE INTERFACE"); InitTest("pal", test_pal, "PALETTE INTERFACE"); InitTest("24bit", test_r24, "24BIT RASTER IMAGE INTERFACE"); InitTest("macros", test_macros, "ENCODING/DECODING INTERFACE"); InitTest("conv", test_conv, "CONVERSION INTERFACE"); InitTest("sdmms", test_sdmms, "SDMMS"); InitTest("sdnmms", test_sdnmms, "SDNMMS"); InitTest("sdstr", test_tsdstr, "DATASTRINGS"); InitTest("slabs", test_slab, "HYPERSLAB INTERFACE"); InitTest("anot", test_an, "ANNOTATIONS"); InitTest("anot_2", test_an_2, "UPDATE ANNOTATIONS"); InitTest("anfile", test_anfile, "FILE ANNOTATIONS"); InitTest("manot", test_man, "MULTI-ANNOTATIONS"); InitTest("nbit", test_nbit, "N-Bit Dataset Interface"); InitTest("litend", test_litend, "LITTLE-ENDIAN INTERFACE"); InitTest("vset", test_vsets, "VSET InterfaceTest"); InitTest("vnameclass", test_vnameclass, "VSET Name and Class"); InitTest("vattr", test_vset_attr, "VSET AttributeTest"); InitTest("vsfpack", test_vspack, "Vdata fields pack Test"); InitTest("datainfo", test_datainfo, "Getting Raw Data's Spatial Information"); InitTest("attdatainfo", test_attdatainfo, "Getting Raw Data's Spatial Information of Attributes"); InitTest("mfgr", test_mgr, "Multi-File Generic Raster Image Interface"); Verbosity = 4; /* Default Verbosity is Low */ Hgetlibversion(&lmajor, &lminor, &lrelease, lstring); printf("\nFor help use: testhdf -help\n"); printf("Built with HDF Library Version: %u.%u.%u, %s\n\n", (unsigned) lmajor, (unsigned) lminor, (unsigned) lrelease, lstring); for (CLLoop = 1; CLLoop < argc; CLLoop++) { if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-verbose") == 0) || (HDstrcmp(argv[CLLoop], "-v") == 0))) { if (argv[CLLoop + 1][0] == 'l') Verbosity = 4; else if (argv[CLLoop + 1][0] == 'm') Verbosity = 6; else if (argv[CLLoop + 1][0] == 'h') Verbosity = 10; else Verbosity = atoi(argv[CLLoop + 1]); } /* end if */ if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-summary") == 0) || (HDstrcmp(argv[CLLoop], "-s") == 0))) Summary = 1; if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-help") == 0) || (HDstrcmp(argv[CLLoop], "-h") == 0))) { usage(); exit(0); } if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-cleanoff") == 0) || (HDstrcmp(argv[CLLoop], "-c") == 0))) CleanUp = 0; if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-nocache") == 0) || (HDstrcmp(argv[CLLoop], "-n") == 0))) Cache = 0; if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-exclude") == 0) || (HDstrcmp(argv[CLLoop], "-x") == 0))) { Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < Index; Loop1++) if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Test[Loop1].SkipFlag = 1; Loop++; } /* end while */ } /* end if */ if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-begin") == 0) || (HDstrcmp(argv[CLLoop], "-b") == 0))) { Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < Index; Loop1++) { if (HDstrcmp(argv[Loop], Test[Loop1].Name) != 0) Test[Loop1].SkipFlag = 1; if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Loop1 = Index; } /* end for */ Loop++; } /* end while */ } /* end if */ if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-only") == 0) || (HDstrcmp(argv[CLLoop], "-o") == 0))) { for (Loop = 0; Loop < Index; Loop++) Test[Loop].SkipFlag = 1; Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < Index; Loop1++) if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Test[Loop1].SkipFlag = 0; Loop++; } /* end while */ } /* end if */ } /* end for */ if(Cache) /* turn on caching, unless we were instucted not to */ Hcache(CACHE_ALL_FILES,TRUE); for (Loop = 0; Loop < Index; Loop++) { if (Test[Loop].SkipFlag) { MESSAGE(2, printf("Skipping -- %s \n", Test[Loop].Description); ); } else { MESSAGE(2, printf("Testing -- %s (%s) \n", Test[Loop].Description, Test[Loop].Name); ); MESSAGE(5, printf("===============================================\n"); ); Test[Loop].NumErrors = num_errs; (*Test[Loop].Call) (); Test[Loop].NumErrors = num_errs - Test[Loop].NumErrors; MESSAGE(5, printf("===============================================\n"); ); MESSAGE(5, printf("There were %d errors detected.\n\n", (int) Test[Loop].NumErrors); ); } /* end else */ } /* end for */ MESSAGE(2, printf("\n\n"); ) if (num_errs) printf("!!! %d Error(s) were detected !!!\n\n", (int) num_errs); else printf("All tests were successful. \n\n"); if (Summary) { printf("Summary of Test Results:\n"); printf("Name of Test Errors Description of Test\n"); printf("---------------- ------ --------------------------------------\n"); for (Loop = 0; Loop < Index; Loop++) { if (Test[Loop].NumErrors == -1) printf("%16s %6s %s\n", Test[Loop].Name, "N/A", Test[Loop].Description); else printf("%16s %6d %s\n", Test[Loop].Name, (int) Test[Loop].NumErrors, Test[Loop].Description); } /* end for */ printf("\n\n"); } /* end if */ if (CleanUp) { MESSAGE(2, printf("\nCleaning Up...\n\n"); ); #if !(defined DOS386 || defined WIN386) system("rm -f *.hdf *.tmp"); #else /* OLD_WAY */ remove("*.hdf"); remove("*.tmp"); #endif /* OLD_WAY */ } /* end if */ exit(num_errs); return num_errs; } /* end main() */ libhdf4-4.2.10/HDF_ALT/hdf/test/Makefile.in0000644000000000000000000007564712421456623014716 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/depcomp $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am @HDF_BUILD_FORTRAN_FALSE@check_PROGRAMS = testhdf$(EXEEXT) \ @HDF_BUILD_FORTRAN_FALSE@ buffer$(EXEEXT) @HDF_BUILD_FORTRAN_TRUE@check_PROGRAMS = testhdf$(EXEEXT) \ @HDF_BUILD_FORTRAN_TRUE@ buffer$(EXEEXT) fortest$(EXEEXT) \ @HDF_BUILD_FORTRAN_TRUE@ fortestF$(EXEEXT) TESTS = $(am__EXEEXT_1) subdir = hdf/test ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = buffer_SOURCES = buffer.c buffer_OBJECTS = buffer.$(OBJEXT) am__fortest_SOURCES_DIST = fortest.c @HDF_BUILD_FORTRAN_TRUE@am_fortest_OBJECTS = fortest.$(OBJEXT) fortest_OBJECTS = $(am_fortest_OBJECTS) am__fortestF_SOURCES_DIST = forsupff.f forsupf.c fortestF.f manf.f \ mgrf.f slabwf.f t24f.f tanf.f tanfilef.f tpf.f tr8f.f \ tsdmmsf.f tsdnmmsf.f tsdnntf.f tsdntf.f tsdstrf.f tstubsf.f \ tvattrf.f tvsetf.f @HDF_BUILD_FORTRAN_TRUE@am_fortestF_OBJECTS = forsupff.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ forsupf.$(OBJEXT) fortestF.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ manf.$(OBJEXT) mgrf.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ slabwf.$(OBJEXT) t24f.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tanf.$(OBJEXT) tanfilef.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tpf.$(OBJEXT) tr8f.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tsdmmsf.$(OBJEXT) tsdnmmsf.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tsdnntf.$(OBJEXT) tsdntf.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tsdstrf.$(OBJEXT) tstubsf.$(OBJEXT) \ @HDF_BUILD_FORTRAN_TRUE@ tvattrf.$(OBJEXT) tvsetf.$(OBJEXT) fortestF_OBJECTS = $(am_fortestF_OBJECTS) am_testhdf_OBJECTS = an.$(OBJEXT) anfile.$(OBJEXT) bitio.$(OBJEXT) \ blocks.$(OBJEXT) chunks.$(OBJEXT) comp.$(OBJEXT) \ conv.$(OBJEXT) extelt.$(OBJEXT) file.$(OBJEXT) file1.$(OBJEXT) \ litend.$(OBJEXT) macros.$(OBJEXT) man.$(OBJEXT) mgr.$(OBJEXT) \ nbit.$(OBJEXT) rig.$(OBJEXT) sdmms.$(OBJEXT) sdnmms.$(OBJEXT) \ sdstr.$(OBJEXT) slab.$(OBJEXT) tbv.$(OBJEXT) \ tattdatainfo.$(OBJEXT) tdatainfo.$(OBJEXT) tdfr8.$(OBJEXT) \ tdupimgs.$(OBJEXT) testhdf.$(OBJEXT) tmgrattr.$(OBJEXT) \ tmgrcomp.$(OBJEXT) tree.$(OBJEXT) tszip.$(OBJEXT) \ tusejpegfuncs.$(OBJEXT) tutils.$(OBJEXT) tvattr.$(OBJEXT) \ tvnameclass.$(OBJEXT) tvset.$(OBJEXT) tvsfpack.$(OBJEXT) \ vers.$(OBJEXT) testhdf_OBJECTS = $(am_testhdf_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = buffer.c $(fortest_SOURCES) $(fortestF_SOURCES) \ $(testhdf_SOURCES) DIST_SOURCES = buffer.c $(am__fortest_SOURCES_DIST) \ $(am__fortestF_SOURCES_DIST) $(testhdf_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) @HDF_BUILD_FORTRAN_FALSE@am__EXEEXT_1 = testhdf$(EXEEXT) \ @HDF_BUILD_FORTRAN_FALSE@ buffer$(EXEEXT) @HDF_BUILD_FORTRAN_TRUE@am__EXEEXT_1 = testhdf$(EXEEXT) \ @HDF_BUILD_FORTRAN_TRUE@ buffer$(EXEEXT) fortest$(EXEEXT) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog fortest.arg Fortran_err.dat \ testdir/t5.hdf Tables_External_File AM_CPPFLAGS = -I$(top_srcdir)/hdf/src @HDF_BUILD_FORTRAN_FALSE@TEST_PROG = testhdf buffer ############################################################################# ############################################################################# @HDF_BUILD_FORTRAN_TRUE@TEST_PROG = testhdf buffer fortest testhdf_SOURCES = an.c anfile.c bitio.c blocks.c chunks.c comp.c \ conv.c extelt.c file.c file1.c litend.c macros.c man.c \ mgr.c nbit.c rig.c sdmms.c sdnmms.c sdstr.c slab.c tbv.c \ tattdatainfo.c tdatainfo.c tdfr8.c tdupimgs.c testhdf.c \ tmgrattr.c tmgrcomp.c tree.c tszip.c tusejpegfuncs.c \ tutils.c tvattr.c tvnameclass.c tvset.c tvsfpack.c vers.c testhdf_LDADD = $(LIBHDF) testhdf_DEPENDENCIES = testdir $(LIBHDF) buffer_LDADD = $(LIBHDF) buffer_DEPENDENCIES = $(LIBHDF) @HDF_BUILD_FORTRAN_TRUE@fortest_SOURCES = fortest.c @HDF_BUILD_FORTRAN_TRUE@fortest_LDADD = $(LIBHDF) @HDF_BUILD_FORTRAN_TRUE@fortest_DEPENDENCIES = testdir fortestF$(EXEEXT) $(LIBHDF) @HDF_BUILD_FORTRAN_TRUE@fortestF_SOURCES = forsupff.f forsupf.c fortestF.f manf.f mgrf.f slabwf.f \ @HDF_BUILD_FORTRAN_TRUE@ t24f.f tanf.f tanfilef.f tpf.f tr8f.f tsdmmsf.f \ @HDF_BUILD_FORTRAN_TRUE@ tsdnmmsf.f tsdnntf.f tsdntf.f tsdstrf.f tstubsf.f \ @HDF_BUILD_FORTRAN_TRUE@ tvattrf.f tvsetf.f @HDF_BUILD_FORTRAN_TRUE@fortestF_LDADD = $(LIBHDF) @HDF_BUILD_FORTRAN_TRUE@fortestF_DEPENDENCIES = testdir $(LIBHDF) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .f .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 hdf/test/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/test/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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 buffer$(EXEEXT): $(buffer_OBJECTS) $(buffer_DEPENDENCIES) $(EXTRA_buffer_DEPENDENCIES) @rm -f buffer$(EXEEXT) $(LINK) $(buffer_OBJECTS) $(buffer_LDADD) $(LIBS) fortest$(EXEEXT): $(fortest_OBJECTS) $(fortest_DEPENDENCIES) $(EXTRA_fortest_DEPENDENCIES) @rm -f fortest$(EXEEXT) $(LINK) $(fortest_OBJECTS) $(fortest_LDADD) $(LIBS) fortestF$(EXEEXT): $(fortestF_OBJECTS) $(fortestF_DEPENDENCIES) $(EXTRA_fortestF_DEPENDENCIES) @rm -f fortestF$(EXEEXT) $(F77LINK) $(fortestF_OBJECTS) $(fortestF_LDADD) $(LIBS) testhdf$(EXEEXT): $(testhdf_OBJECTS) $(testhdf_DEPENDENCIES) $(EXTRA_testhdf_DEPENDENCIES) @rm -f testhdf$(EXEEXT) $(LINK) $(testhdf_OBJECTS) $(testhdf_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/an.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/anfile.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bitio.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/blocks.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/buffer.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/chunks.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/comp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/conv.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/extelt.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/file.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/file1.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/forsupf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fortest.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/litend.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/macros.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/man.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mgr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/nbit.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rig.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sdmms.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sdnmms.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sdstr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/slab.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tattdatainfo.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tbv.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdatainfo.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdfr8.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tdupimgs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testhdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tmgrattr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tmgrcomp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tree.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tszip.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tusejpegfuncs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tutils.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tvattr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tvnameclass.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tvset.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tvsfpack.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vers.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< .f.o: $(F77COMPILE) -c -o $@ $< .f.obj: $(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .f.lo: $(LTF77COMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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: 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-local distclean-tags dvi: dvi-am dvi-am: 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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-checkPROGRAMS clean-generic clean-libtool \ cscopelist ctags distclean distclean-compile distclean-generic \ distclean-libtool distclean-local distclean-tags distdir dvi \ dvi-am 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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am testdir: -mkdir testdir # Automake's distclean won't remove directories, so we can add an additional # hook target which will do so during 'make distclean'. distclean-local: -rm -rf testdir # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/hdf/test/vers.c0000644000000000000000000000341412421456623013753 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: vers.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* *********************************************************************** ** get version string from an HDF file *********************************************************************** */ #include #include "tproto.h" void test_vers(void) { int ret; uint32 lmajor, lminor, lrelease; char lstring[81]; ret = Hgetlibversion(&lmajor, &lminor, &lrelease, lstring); RESULT("Hgetlibversion"); MESSAGE(5, printf("Library Version\n"); ); MESSAGE(5, printf("---------------\n"); ); MESSAGE(5, printf("Major:\t\t%u\nMinor:\t\t%u\nRelease:\t%u\nString:\t\t\"%s\"\n", (unsigned) lmajor, (unsigned) lminor, (unsigned) lrelease, lstring); ); } libhdf4-4.2.10/HDF_ALT/hdf/test/tsdnntf.f0000644000000000000000000002005212421456623014454 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tsdnntf.f 6036 2014-01-20 17:28:01Z acheng $ C subroutine tsdnntf (number_failed) C C C Program to test writing SDSs with different types of data. C C Input file: none C Output files: fo1.hdf, fo2.hdf, ...fo5.hdf, fo.hdf C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'sdnnt') integer dspdata, dsgdata, dsadata, dssdims, dssnt real*8 f64(10,10), tf64(10,10) real*4 f32(10,10), tf32(10,10) integer*2 i16(10,10), ti16(10,10) integer*4 i32(10,10), ti32(10,10) character i8(10,10), ti8(10,10) integer i, j, err integer rank integer dims(2) integer DFNT_FLOAT64, DFNT_FLOAT32, DFNT_INT8, DFNT_INT16 integer DFNT_INT32 integer DFNT_NFLOAT64, DFNT_NFLOAT32, DFNT_NINT8 integer DFNT_NINT16, DFNT_NINT32, DFNT_NATIVE call ptestban('Testing', myname) DFNT_FLOAT64 = 6 DFNT_FLOAT32 = 5 DFNT_INT8 = 20 DFNT_INT16 = 22 DFNT_INT32 = 24 DFNT_NATIVE = 4096 C These should really use a logical OR to compute these values C However, OR() is not really that portable DFNT_NFLOAT64 = DFNT_NATIVE + DFNT_FLOAT64 DFNT_NFLOAT32 = DFNT_NATIVE + DFNT_FLOAT32 DFNT_NINT8 = DFNT_NATIVE + DFNT_INT8 DFNT_NINT16 = DFNT_NATIVE + DFNT_INT16 DFNT_NINT32 = DFNT_NATIVE + DFNT_INT32 rank = 2 dims(1) = 10 dims(2) = 10 number_failed = 0 call MESSAGE(5, 'Creating arrays...') do 110 i=1,10 do 100 j=1,10 f64(i,j) = (i * 10) + j f32(i,j) = (i * 10) + j i8(i,j) = char( (i * 10) + j ) i16(i,j) = (i * 10) + j i32(i,j) = (i * 10) + j 100 continue 110 continue err = dssdims(rank, dims) C individual files call MESSAGE(5, 'Testing arrays in individual files...') err = dssnt(DFNT_NFLOAT64) call VRFY(err, 'dssnt (float64)', number_failed) err = dspdata('fo1.hdf', rank, dims, f64) call VRFY(err, 'dspdata (float64)', number_failed) err = dsgdata('fo1.hdf', rank, dims, tf64) call VRFY(err, 'dsgdata (float64)', number_failed) err = 0 do 160 i=1,10 do 150 j=1,10 if (f64(i,j).ne.tf64(i,j)) err = 1 tf64(i,j) = 0.0 150 continue 160 continue call err_check(err, number_failed, 'float64') err = dssnt(DFNT_NFLOAT32) call VRFY(err, 'dssnt (float32)', number_failed) err = dspdata('fo2.hdf', rank, dims, f32) call VRFY(err, 'dspdata (float32)', number_failed) err = dsgdata('fo2.hdf', rank, dims, tf32) call VRFY(err, 'dsgdata (float32)', number_failed) err = 0 do 210 i=1,10 do 200 j=1,10 if (f32(i,j).ne.tf32(i,j)) err = 1 tf32(i,j) = 0.0 200 continue 210 continue call err_check(err, number_failed, 'float32') err = dssnt(DFNT_NINT8) call VRFY(err, 'dssnt (int8)', number_failed) err = dspdata('fo3.hdf', rank, dims, i8) call VRFY(err, 'dspdata (int8)', number_failed) err = dsgdata('fo3.hdf', rank, dims, ti8) call VRFY(err, 'dsgdata (int8)', number_failed) err = 0 do 310 i=1,10 do 300 j=1,10 if (i8(i,j).ne.ti8(i,j)) err = 1 ti8(i,j) = char(0) 300 continue 310 continue call err_check(err, number_failed, 'int8') err = dssnt(DFNT_NINT16) call VRFY(err, 'dssnt (int16)', number_failed) err = dspdata('fo4.hdf', rank, dims, i16) call VRFY(err, 'dspdata (int16)', number_failed) err = dsgdata('fo4.hdf', rank, dims, ti16) call VRFY(err, 'dsgdata (int16)', number_failed) err = 0 do 410 i=1,10 do 400 j=1,10 if (i16(i,j).ne.ti16(i,j)) err = 1 ti16(i,j) = 0 400 continue 410 continue call err_check(err, number_failed, 'int16') err = dssnt(DFNT_NINT32) call VRFY(err, 'dssnt (int32)', number_failed) err = dspdata('fo5.hdf', rank, dims, i32) call VRFY(err, 'dspdata (int32)', number_failed) err = dsgdata('fo5.hdf', rank, dims, ti32) call VRFY(err, 'dsgdata (int32)', number_failed) err = 0 do 510 i=1,10 do 500 j=1,10 if (i32(i,j).ne.ti32(i,j)) err = 1 ti32(i,j) = 0 500 continue 510 continue call err_check(err, number_failed, 'int32') C call MESSAGE(5, 'Writing arrays to single file.') C err = dssnt(DFNT_NFLOAT64) err = dsadata('fo.hdf', rank, dims, f64) call VRFY(err, 'dsadata (f64)', number_failed) err = dssnt(DFNT_NFLOAT32) err = dsadata('fo.hdf', rank, dims, f32) call VRFY(err, 'dsadata (f32)', number_failed) err = dssnt(DFNT_NINT8) err = dsadata('fo.hdf', rank, dims, i8) call VRFY(err, 'dsadata (i8)', number_failed) err = dssnt(DFNT_NINT16) err = dsadata('fo.hdf', rank, dims, i16) call VRFY(err, 'dsadata (i16)', number_failed) err = dssnt(DFNT_NINT32) err = dsadata('fo.hdf', rank, dims, i32) call VRFY(err, 'dsadata (i32)', number_failed) C call MESSAGE(5, 'Reading arrays from single file... ') C err = dsgdata('fo.hdf', rank, dims, tf64) call VRFY(err, 'dsgdata (tf64)', number_failed) err = dsgdata('fo.hdf', rank, dims, tf32) call VRFY(err, 'dsgdata (tf32)', number_failed) err = dsgdata('fo.hdf', rank, dims, ti8) call VRFY(err, 'dsgdata (ti8)', number_failed) err = dsgdata('fo.hdf', rank, dims, ti16) call VRFY(err, 'dsgdata (ti16)', number_failed) err = dsgdata('fo.hdf', rank, dims, ti32) call VRFY(err, 'dsgdata (ti32)', number_failed) C call MESSAGE(5, 'Checking arrays from single file...\n\n') err = 0 do 910 i=1,10 do 900 j=1,10 if (f64(i,j) .ne. tf64(i,j)) err = 1 900 continue 910 continue call err_check(err, number_failed, 'float64') C err = 0 do 1010 i=1,10 do 1000 j=1,10 if (f32(i,j) .ne. tf32(i,j)) err = 1 1000 continue 1010 continue call err_check(err, number_failed, 'float32') C err = 0 do 1110 i=1,10 do 1100 j=1,10 if (i8(i,j) .ne. ti8(i,j)) err = 1 1100 continue 1110 continue call err_check(err, number_failed, 'int8') C err = 0 do 1210 i=1,10 do 1200 j=1,10 if (i16(i,j) .ne. ti16(i,j)) err = 1 1200 continue 1210 continue call err_check(err, number_failed, 'int16') C err = 0 do 1310 i=1,10 do 1300 j=1,10 if (i32(i,j) .ne. ti32(i,j)) err = 1 1300 continue 1310 continue call err_check(err, number_failed, 'int32') C if (number_failed .gt. 0 ) then print *,' >>> ', number_failed, ' TESTS FAILED <<<' else call MESSAGE(VERBO_HI, ' >>> ALL TESTS PASSED <<<') endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tmgrcomp.c0000644000000000000000000011203612421456623014625 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include #include "tutils.h" #define GZIPFILE "gr_gzip.hdf" #define JPEGFILE "gr_jpeg.hdf" /**************************************************************************** * tmgrcomp.c - tests the compression functions for the multi-file GR interface * Structure of the file: * test_mgr_compress - test driver * test_mgr_compress_a - tests with GZIP compressed image * test_mgr_compress_b - tests with 8-bit JPEG compressed image * test_mgr_compress_c - tests with 24-bit JPEG compressed image * test_get_compress - tests getting comp info with compressed image * test_mgr_chunk_compress - tests getting comp info with chunked * and compressed image * Modification: * Nov 23, 2009: Moved out from mgr.c. - BMR *****************************************************************************/ /* Create/Write/Read GZIP compressed image */ static int test_mgr_compress_a() { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int num_errs = 0; /* number of errors so far */ MESSAGE(8, printf("Operate on gzip compressed images\n");); /* Open up the existing datafile and get the image information from it */ fid = Hopen(GZIPFILE, DFACC_ALL, 0); CHECK(fid, FAIL, "Hopen"); /* Initialize the GR interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); { int32 riid; /* RI ID for the new image */ comp_coder_t comp_type; /* Compression method */ comp_info cinfo; /* Compression parameters */ int32 dims[2]={10, 10}; /* dimensions for the empty image */ uint8 image[10][10]; /* space for the image data */ uint8 image0[10][10]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2]; /* stride of image data to grab */ int32 count[2]; /* Size of image data to operate on */ intn i, j; /* indices */ /* Initialize data we are going to write out */ for (i = 0; i < 10; i++) for (j = 0; j < 10; j++) image0[i][j] = (uint8) (i + j); /* Get the first image in this file */ riid = GRcreate(grid, "image1", 1, DFNT_UINT8, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); /* Set the compression method for the image */ comp_type=COMP_CODE_DEFLATE; cinfo.deflate.level=7; ret = GRsetcompress(riid, comp_type, &cinfo); CHECK(ret, FAIL, "GRsetcompress"); /* Write the whole image out */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRwriteimage(riid, start, stride, dims, image0); CHECK(ret, FAIL, "GRreadimage"); /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Check that the image made it out correctly */ /* Get the first image in this file */ riid = GRselect(grid, 0); CHECK(riid, FAIL, "GRselect"); /* Read the whole image in */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRreadimage(riid, start, stride, dims, image); CHECK(ret, FAIL, "GRreadimage"); /* Verify correct image contents */ if(HDmemcmp(image, image0, 10*10)!=0) { MESSAGE(3, printf("Error reading data for gzip compressed image\n");); num_errs++; } /* end if */ /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Check for compressing image in the middle of writing data */ /* Get the first image in this file */ riid = GRcreate(grid, "image2", 1, DFNT_UINT8, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); /* Write half of the image out */ start[0]=start[1]=0; stride[0]=stride[1]=1; count[0]=10; count[1]=5; ret = GRwriteimage(riid, start, stride, count, image0); CHECK(ret, FAIL, "GRwriteimage"); /* Set the compression method for the image */ comp_type=COMP_CODE_DEFLATE; cinfo.deflate.level=7; ret = GRsetcompress(riid, comp_type, &cinfo); CHECK(ret, FAIL, "GRsetcompress"); /* Write the second half of the image out */ start[0]=0; start[1]=5; stride[0]=stride[1]=1; count[0]=10; count[1]=5; ret = GRwriteimage(riid, start, stride, count, &image0[5][0]); CHECK(ret, FAIL, "GRwriteimage"); /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Check that the image made it out correctly */ HDmemset(image, 0, 10*10); /* Get the second image in this file */ riid = GRselect(grid, 1); CHECK(riid, FAIL, "GRselect"); /* Read the whole image in */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRreadimage(riid, start, stride, dims, image); CHECK(ret, FAIL, "GRreadimage"); /* Verify correct image contents */ if(HDmemcmp(image, image0, 10*10)!=0) { MESSAGE(3, printf("Error reading 2nd data for gzip compressed image\n");); num_errs++; } /* end if */ /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); } /* Shut down the GR interface */ ret = GRend(grid); CHECK(ret, FAIL, "GRend"); /* Close the file */ ret = Hclose(fid); CHECK(ret, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* end test_mgr_compress_a() */ /* Create/Write/Read 8-bit JPEG compressed image */ static int test_mgr_compress_b() { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int num_errs = 0; /* number of errors so far */ MESSAGE(8, printf("Operate on 8-bit JPEG compressed images\n");); /* Open up the existing datafile and get the image information from it */ fid = Hopen(JPEGFILE, DFACC_ALL, 0); CHECK(fid, FAIL, "Hopen"); /* Initialize the GR interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); { int32 riid; /* RI ID for the new image */ comp_coder_t comp_type; /* Compression method */ comp_info cinfo; /* Compression parameters */ int32 dims[2]={10, 10}; /* dimensions for the empty image */ int32 dims_out[2]; /* Buffer for retrieving dimensions */ uint8 image[10][10]; /* space for the image data */ uint8 image0[10][10]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2]; /* stride of image data to grab */ int32 n_images, n_file_attrs; /* File information variables */ int32 interlace_mode, n_comps, n_attrs, datatype; /* Image information */ char name[30]; /* Buffer for retrieving image name */ uint8 attr; /* Attribute data */ #ifdef NOT_IMPLEMENTED int32 count[2]; /* Size of image data to operate on */ #endif /* NOT_IMPLEMENTED */ intn i, j; /* indices */ /* Initialize data we are going to write out */ for (i = 0; i < 10; i++) for (j = 0; j < 10; j++) image0[i][j] = (uint8) (i + j); /* Get the first image in this file */ riid = GRcreate(grid, "image1", 1, DFNT_UINT8, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); attr = 100; ret = GRsetattr(riid, "JPEG_quality", DFNT_UINT8, 1, &attr); CHECK(ret, FAIL, "GRsetattr"); /* Set the compression method for the image */ comp_type=COMP_CODE_JPEG; cinfo.jpeg.quality=100; cinfo.jpeg.force_baseline=1; ret = GRsetcompress(riid, comp_type, &cinfo); CHECK(ret, FAIL, "GRsetcompress"); /* Write the whole image out */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRwriteimage(riid, start, stride, dims, image0); CHECK(ret, FAIL, "GRwriteimage"); /* Close the image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Close the interface */ ret = GRend(grid); CHECK(ret, FAIL, "GRend"); /* Check that the image made it out correctly */ /* Re-open the interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); /* Get the file information */ ret = GRfileinfo(grid, &n_images, &n_file_attrs); CHECK(ret, FAIL, "GRfileinfo"); if (n_images != 1) { MESSAGE(3, printf("Wrong number of images found!\n");); num_errs++; } /* Check the name of the image in the file */ ret = GRnametoindex(grid, "image1"); CHECK(ret, FAIL, "GRnametoindex"); /* Get the first image in this file */ riid = GRselect(grid, 0); CHECK(riid, FAIL, "GRselect"); /* Get the attribute information */ ret = GRgetiminfo(riid, name, &n_comps, &datatype, &interlace_mode, dims_out, &n_attrs); CHECK(ret, FAIL, "GRgetiminfo"); if (n_attrs != 1) { MESSAGE(3, printf("Wrong number of attributes!\n");); num_errs++; } /* Read the whole image in */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRreadimage(riid, start, stride, dims, image); CHECK(ret, FAIL, "GRreadimage"); /* Verify correct image contents */ if(HDmemcmp(image, image0, 10*10)!=0) { MESSAGE(3, printf("Error reading data for gzip compressed image\n");); num_errs++; } /* end if */ /* Close the image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); #ifdef NOT_IMPLEMENTED /* Check for compressing image in the middle of writing data */ /* Get the first image in this file */ riid = GRcreate(grid, "image2", 1, DFNT_UINT8, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); /* Write half of the image out */ start[0]=start[1]=0; stride[0]=stride[1]=1; count[0]=10; count[1]=5; ret = GRwriteimage(riid, start, stride, count, image0); CHECK(ret, FAIL, "GRwriteimage"); /* Set the compression method for the image */ comp_type=COMP_CODE_JPEG; cinfo.jpeg.quality=100; cinfo.jpeg.force_baseline=1; ret = GRsetcompress(riid, comp_type, &cinfo); CHECK(ret, FAIL, "GRsetcompress"); /* Write the second half of the image out */ start[0]=0; start[1]=5; stride[0]=stride[1]=1; count[0]=10; count[1]=5; ret = GRwriteimage(riid, start, stride, count, &image0[5][0]); CHECK(ret, FAIL, "GRwriteimage"); /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Check that the image made it out correctly */ HDmemset(image, 0, 10*10); /* Get the second image in this file */ riid = GRselect(grid, 1); CHECK(riid, FAIL, "GRselect"); /* Read the whole image in */ start[0]=start[1]=0; stride[0]=stride[1]=1; ret = GRreadimage(riid, start, stride, dims, image); CHECK(ret, FAIL, "GRreadimage"); /* Verify correct image contents */ if(HDmemcmp(image, image0, 10*10)!=0) { MESSAGE(3, printf("Error reading 2nd data for gzip compressed image\n");); num_errs++; } /* end if */ /* Close the image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); #endif /* NOT_IMPLEMENTED */ } /* Shut down the GR interface */ ret = GRend(grid); CHECK(ret, FAIL, "GRend"); /* Close the file */ ret = Hclose(fid); CHECK(ret, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* end test_mgr_compress_b() */ /* Create/Write/Read 24-bit JPEG compressed image */ static int test_mgr_compress_c() { intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ start[2], /* start position to write for each dimension */ edges[2], /* number of elements to be written along each dimension */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ i, j; uint8 image_buf[128][128][3]; uint8 read_buf[128][128][3]; comp_info c_info; char gname[60]; int32 n_comps, dt, im, dims[2], na; int num_errs = 0; /* number of errors so far */ MESSAGE(8, printf("Operate on 24-bit JPEG compressed images\n");); /* Create and open the file and initialize GR interface */ file_id = Hopen(JPEGFILE, DFACC_CREATE, 0); CHECK(file_id, FAIL, "Hopen"); gr_id = GRstart(file_id); CHECK(gr_id, FAIL, "GRstart"); /* Set data type, interlace mode, and dimensions of image */ data_type = DFNT_UINT8; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = 128; dim_sizes[1] = 128; /* Create the raster image array */ ri_id = GRcreate(gr_id, "24-bit JPEG", 3, data_type, interlace_mode, dim_sizes); CHECK(ri_id, FAIL, "GRcreate"); /* Set JPEG compression */ c_info.jpeg.quality=75; c_info.jpeg.force_baseline=1; status = GRsetcompress(ri_id, COMP_CODE_JPEG, &c_info); CHECK(status, FAIL, "GRsetcompress"); /* Fill the image data buffer with values */ for (i = 0; i < 128; i++) for (j = 0; j < 128; j++) { image_buf[i][j][0] = (i+j) + 1; image_buf[i][j][1] = (i+j) + 1; image_buf[i][j][2] = (i+j) + 1; } /* Write data in the buffer into the image array */ start[0] = start[1] = 0; edges[0] = 128; edges[1] = 128; status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)image_buf); CHECK(status, FAIL, "GRwriteimage"); /* Terminate access to raster image and to GR interface */ status = GRendaccess(ri_id); CHECK(status, FAIL, "GRendaccess"); status = GRend(gr_id); CHECK(status, FAIL, "GRend"); /* Start access to the GR interface and get access to the first RI */ gr_id = GRstart(file_id); CHECK(gr_id, FAIL, "GRstart"); ri_id = GRselect(gr_id, 0); CHECK(ri_id, FAIL, "GRselect"); /* Get and verify information about this image */ status = GRgetiminfo(ri_id, gname, &n_comps, &dt, &im, dims, &na); CHECK(status, FAIL, "GRreadimage"); VERIFY(n_comps, 3, "GRgetiminfo"); VERIFY(dt, DFNT_UINT8, "GRgetiminfo"); VERIFY(dim_sizes[0], dims[0], "GRgetiminfo"); VERIFY(dim_sizes[1], dims[1], "GRgetiminfo"); VERIFY(na, 0, "GRgetiminfo"); /* Read back data */ start[0] = start[1] = 0; edges[0] = 128; edges[1] = 128; status = GRreadimage(ri_id, start, NULL, edges, (VOIDP)read_buf); CHECK(status, FAIL, "GRreadimage"); /* Verify correct image contents */ if(fuzzy_memcmp(image_buf, read_buf, 128*128*3, JPEG_FUZZ)!=0) { MESSAGE(3, printf("tmgrcomp: Error reading data for 24-bit JPEG compressed image\n");); num_errs++; } /* end if */ /* Terminate access to raster image and to GR */ /* interface and, close the HDF file. */ status = GRendaccess(ri_id); CHECK(status, FAIL, "GRendaccess"); status = GRend(gr_id); CHECK(status, FAIL, "GRend"); status = Hclose(file_id); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* end test_mgr_compress_c() */ /*-------------------------------------------------------------------------- The following 2 routines are added when bug# 307 was fixed: - test_get_compress: tests the new functionality, getting compression information of compressed image data. The test + creates a file and four compressed images written to the file, then closes the file. + re-opens the file, then reads and verifies each image's compression information The four images are created using the following compression methods in that order: RLE, Skipping Huffman, Deflate, and JPEG. For simplicity, all four images use the same data sample. - make_comp_image: is a helper that test_get_compress uses to create several compressed images. -BMR (Sept 7, 01) --------------------------------------------------------------------------*/ #define COMPFILE "gr_comp.hdf" #define RLE_IMAGE "Image with RLE Compression" #define DEFLATE_IMAGE "Image with Deflate Compression" #define SKPHUFF_IMAGE "Image with Skphuff Compression" #define JPEG_IMAGE "Image with JPEG Compression" #define DEFLATE_LEVEL 7 /* arbitrary */ #define SKPHUFF_SKIPSIZE 28 /* arbitrary */ static intn make_comp_image( int32 grid, char* img_name, comp_coder_t comp_type, /* Compression method */ comp_info* cinfo, char* message) /* Compression parameters */ { int32 riid; /* RI ID of the working image */ int32 dims[2]={10, 10}; /* dimensions for the empty image */ uint8 image_data[10][10]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2]; /* stride of image data to grab */ intn i, j; /* indices */ intn ret_value; /* generic return value */ /* Initialize data we are going to write out */ for (i = 0; i < 10; i++) for (j = 0; j < 10; j++) image_data[i][j] = (uint8) (i + j + 10); /* Create the image */ riid = GRcreate(grid, img_name, 1, DFNT_UINT8, MFGR_INTERLACE_PIXEL, dims); if (riid == FAIL) { strcpy(message, "make_comp_image::GRcreate"); return FAIL; } /* Set the compression as provided */ ret_value = GRsetcompress(riid, comp_type, cinfo); if (ret_value == FAIL) { strcpy(message, "make_comp_image::GRsetcompress"); return FAIL; } /* Write the image out */ start[0] = start[1] = 0; stride[0] = stride[1] = 1; ret_value = GRwriteimage(riid, start, stride, dims, image_data); if (ret_value == FAIL) { strcpy(message, "make_comp_image::GRwriteimage"); return FAIL; } /* Close the image */ ret_value = GRendaccess(riid); if (ret_value == FAIL) { strcpy(message, "make_comp_image::GRendaccess"); return FAIL; } return SUCCEED; } static int test_get_compress() { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 riid; /* RI ID of the working image */ comp_coder_t comp_type; /* Compression method */ comp_info cinfo; /* Compression parameters - union */ char err_func[80]; /* name of the functions where failure occurs */ intn status; /* generic return value */ int num_errs = 0; /* number of errors so far */ /* D - Retrieve compression information of compressed images */ MESSAGE(8, printf("Verify the compression information of compressed images\n");); /* * Create a new file and several images with different compression * schemes then close the images and the file */ /* Create an hdf file, and initiate the GR interface */ fid = Hopen(COMPFILE, DFACC_CREATE, (int16)0); CHECK(fid, FAIL, "Hopen"); grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); /* Create and write 4 images, with RLE, deflate, skipping huffman, and JPEG compression methods. */ /* No compression info for the RLE image */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; /* Create and write the first compressed image in this file */ status = make_comp_image(grid, RLE_IMAGE, COMP_CODE_RLE, &cinfo, err_func); CHECK(status, FAIL, err_func); /* Set the compression info for the second image with skipping huffman method */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.skphuff.skp_size = SKPHUFF_SKIPSIZE; /* Create and write the second compressed image in this file */ status = make_comp_image(grid, SKPHUFF_IMAGE, COMP_CODE_SKPHUFF, &cinfo, err_func); CHECK(status, FAIL, err_func); /* Set the compression info for the third image with deflate method */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.deflate.level = DEFLATE_LEVEL; /* Create and write the third compressed image in this file */ status = make_comp_image(grid, DEFLATE_IMAGE, COMP_CODE_DEFLATE, &cinfo, err_func); CHECK(status, FAIL, err_func); /* Set the compression method for the fourth image */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.jpeg.quality = 100; /* won't be able to retrieved anyway */ cinfo.jpeg.force_baseline = 1; /* Create and write the fourth compressed image in this file */ status = make_comp_image(grid, JPEG_IMAGE, COMP_CODE_JPEG, &cinfo, err_func); CHECK(status, FAIL, err_func); /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK(status, FAIL, "GRend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* * Re-open the file COMPFILE, and retrieve the compression information * of its two images */ fid = Hopen(COMPFILE, DFACC_READ, 0); CHECK(fid, FAIL, "Hopen"); grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); /* get access to the first image */ riid = GRselect(grid, 0); CHECK(riid, FAIL, "GRselect"); /* First image uses RLE compression method, so no info will be retrieved */ status = GRgetcompinfo(riid, &comp_type, &cinfo); CHECK(status, FAIL, "GRgetcompinfo"); VERIFY(comp_type, COMP_CODE_RLE, "GRgetcompinfo"); /* end access to the first image */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); /* get the compression info of the second image, and then check * the values against the values set earlier, which are: * comp_type = COMP_CODE_SKPHUFF * skp_size = SKPHUFF_SKIPSIZE */ /* get access to the second image */ riid = GRselect(grid, 1); CHECK(riid, FAIL, "GRselect"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(riid, &comp_type, &cinfo); CHECK(status, FAIL, "GRgetcompinfo"); VERIFY(comp_type, COMP_CODE_SKPHUFF, "GRgetcompinfo"); VERIFY(cinfo.skphuff.skp_size, SKPHUFF_SKIPSIZE, "GRgetcompinfo"); /* end access to the second image */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); /* get the compression info of the third image, and then check the values against the values set earlier, which are: comp_type = COMP_CODE_DEFLATE level = DEFLATE_LEVEL */ /* get access to the third image */ riid = GRselect(grid, 2); CHECK(riid, FAIL, "GRselect"); comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(riid, &comp_type, &cinfo); CHECK(status, FAIL, "GRgetcompinfo"); VERIFY(comp_type, COMP_CODE_DEFLATE, "GRgetcompinfo"); VERIFY(cinfo.deflate.level, DEFLATE_LEVEL, "GRgetcompinfo"); /* Terminate access to the third image */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); /* get access to the fourth image */ riid = GRselect(grid, 3); CHECK(riid, FAIL, "GRselect"); /* get the compression info of the second image, but only check the compression type value against that being set earlier ('quality' and 'force_baseline' are currently not retrievable) */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(riid, &comp_type, &cinfo); CHECK(status, FAIL, "GRgetcompinfo"); VERIFY(comp_type, COMP_CODE_JPEG, "GRgetcompinfo"); VERIFY(cinfo.jpeg.quality, 0, "GRgetcompinfo"); VERIFY(cinfo.jpeg.force_baseline, 0, "GRgetcompinfo"); /* Terminate access to the third image */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); /* Terminate access and close the file */ status = GRend(grid); CHECK(status, FAIL, "GRend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* end test_get_compress */ /*-------------------------------------------------------------------------- The test routine test_mgr_chunk_compress is added when bug# 307 was fixed. test_mgr_chunk_compress tests the new functionality, getting compression information of compressed chunked image data. It + creates the file CHKCOMPFILE and adds four compressed chunked images to it, then closes the file. + re-opens the file, then reads and verifies each chunked image's compression information The first image is only chunked and not compressed. The last three chunked images are compressed using the following methods in that order: RLE, Skipping Huffman, Deflate. For simplicity, all four images use the same data sample. Note: At this time JPEG is not working correctly for chunked images, but when it is, its tests should be added to this routines (and to test_mgr_chunkwr_pixelone as well) appropriately, i.e. another image should be added to the image list. -BMR (Oct 7, 01) --------------------------------------------------------------------------*/ static int test_mgr_chunk_compress() { #define CHKCOMPFILE "gr_chunkcomp.hdf" #define X_LENGTH 10 /* number of columns in the image */ #define Y_LENGTH 6 /* number of rows in the image */ #define N_COMPS 3 /* number of components in the image */ #define N_IMAGES 4 /* number of images tested used - 5 comp. methods */ /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id[N_IMAGES], /* raster image identifier */ origin[2], /* start position to write for each dimension */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ comp_flag, /* compression flag */ index, img_num; int32 start[2], stride[2], edge[2]; comp_info cinfo; /* Compression parameters - union */ int num_errs = 0; /* number of errors so far */ comp_coder_t comp_type; int16 data_out[3*Y_LENGTH*X_LENGTH]; char *image_name[] = { "Image_NO", "Image_RL", "Image_Sk", "Image_DF"}; HDF_CHUNK_DEF chunk_def[N_IMAGES]; int16 chunk_buf[18]; int16 chunk00[] = { 110, 111, 112, 120, 121, 122, 130, 131, 132, 140, 141, 142, 150, 151, 152, 160, 161, 162 }; int16 chunk01[] = { 210, 211, 212, 220, 221, 222, 230, 231, 232, 240, 241, 242, 250, 251, 252, 260, 261, 262}; int16 chunk14[] = { 1010, 1011, 1012, 1020, 1021, 1022, 1030, 1031, 1032, 1040, 1041, 1042, 1050, 1051, 1052, 1060, 1061, 1062}; int16 data[] = { 110, 111, 112, 120, 121, 122, 210, 211, 212, 220, 221, 222, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 130, 131, 132, 140, 141, 142, 230, 231, 232, 240, 241, 242, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 150, 151, 152, 160, 161, 162, 250, 251, 252, 260, 261, 262, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1010, 1011, 1012, 1020, 1021, 1022, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1030, 1031, 1032, 1040, 1041, 1042, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1050, 1051, 1052, 1060, 1061, 1062 }; /********************** End of variable declaration **********************/ /* E - Retrieve compression information of chunked compressed images */ MESSAGE(8, printf("Verify the compression information of compressed images\n");); /* Create and open the file. */ file_id = Hopen(CHKCOMPFILE, DFACC_CREATE, 0); CHECK(file_id, FAIL, "Hopen"); /* Initialize the GR interface. */ gr_id = GRstart(file_id); CHECK(gr_id, FAIL, "GRstart"); /* Set the data type, interlace mode, and dimensions of the image. */ data_type = DFNT_INT16; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = Y_LENGTH; dim_sizes[1] = X_LENGTH; for (img_num = 0; img_num < N_IMAGES; img_num++ ) { /* Create the raster image array. */ ri_id[img_num] = GRcreate(gr_id, image_name[img_num], N_COMPS, data_type, interlace_mode, dim_sizes); CHECK(ri_id[img_num], FAIL, "GRcreate"); /* Create chunked image array. */ switch (img_num) { case 0: comp_flag = HDF_CHUNK; chunk_def[img_num].chunk_lengths[0] = 3; chunk_def[img_num].chunk_lengths[1] = 2; break; case 1 : comp_flag = HDF_CHUNK | HDF_COMP; chunk_def[img_num].comp.chunk_lengths[0] = 3; chunk_def[img_num].comp.chunk_lengths[1] = 2; chunk_def[img_num].comp.comp_type = COMP_CODE_RLE; break; case 2 : comp_flag = HDF_CHUNK | HDF_COMP; chunk_def[img_num].comp.chunk_lengths[0] = 3; chunk_def[img_num].comp.chunk_lengths[1] = 2; chunk_def[img_num].comp.comp_type = COMP_CODE_SKPHUFF; chunk_def[img_num].comp.cinfo.skphuff.skp_size = 2; break; case 3 : comp_flag = HDF_CHUNK | HDF_COMP; chunk_def[img_num].comp.chunk_lengths[0] = 3; chunk_def[img_num].comp.chunk_lengths[1] = 2; chunk_def[img_num].comp.comp_type = COMP_CODE_DEFLATE; chunk_def[img_num].comp.cinfo.deflate.level = 6; break; #ifdef NOT_WORKING /* JPEG compression for chunked images is not working correctly yet. Add test here when it is */ case 4 : comp_flag = HDF_CHUNK | HDF_COMP; chunk_def[img_num].comp.chunk_lengths[0] = 3; chunk_def[img_num].comp.chunk_lengths[1] = 2; chunk_def[img_num].comp.comp_type = COMP_CODE_JPEG; chunk_def[img_num].comp.cinfo.jpeg.quality = 5; chunk_def[img_num].comp.cinfo.jpeg.force_baseline = 8; break; #endif default: printf("Error\n"); break; } /* end switch */ status = GRsetchunk(ri_id[img_num], chunk_def[img_num], comp_flag); CHECK(status, FAIL, "GRsetchunk"); /* Write first data chunk ( 0, 0 ). */ origin[0] = origin[1] = 0; status = GRwritechunk(ri_id[img_num], origin, (VOIDP)chunk00); CHECK(status, FAIL, "GRwritechunk"); /* Write second data chunk ( 0, 1 ). */ origin[0] = 0; origin[1] = 1; status = GRwritechunk(ri_id[img_num], origin, (VOIDP)chunk01); CHECK(status, FAIL, "GRwritechunk"); /* Write third data chunk ( 1, 4 ). */ origin[0] = 1; origin[1] = 4; status = GRwritechunk(ri_id[img_num], origin, (VOIDP)chunk14); CHECK(status, FAIL, "GRwritechunk"); /* Read third chunk back. */ origin[0] = 1; origin[1] = 4; status = GRreadchunk(ri_id[img_num], origin, (VOIDP)chunk_buf); CHECK(status, FAIL, "GRreadchunk"); /* Terminate access to the GR interface and close the HDF file. */ status = GRendaccess(ri_id[img_num]); CHECK(status, FAIL, "GRendaccess"); } /* end for */ status = GRend(gr_id); CHECK(status, FAIL, "GRend"); status = Hclose(file_id); CHECK(status, FAIL, "Hclose"); /* Open the file. */ file_id = Hopen(CHKCOMPFILE, DFACC_WRITE, 0); CHECK(file_id, FAIL, "Hopen"); /* Initialize the GR interface. */ gr_id = GRstart(file_id); CHECK(gr_id, FAIL, "GRstart"); for (img_num = 0; img_num < N_IMAGES; img_num++ ) { /* Find the index of the specified image. */ index = GRnametoindex(gr_id, image_name[img_num]); CHECK(index, FAIL, "GRnametoindex"); /* Select the image. */ ri_id[img_num] = GRselect(gr_id, index); CHECK(ri_id[img_num], FAIL, "GRselect"); /* Get and verify the image's compression information */ comp_type = COMP_CODE_INVALID; /* reset variables before retrieving info */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; status = GRgetcompinfo(ri_id[img_num], &comp_type, &cinfo); CHECK(status, FAIL, "GRgetcompinfo"); switch (img_num) { case 0: VERIFY(comp_type, COMP_CODE_NONE, "GRgetcompinfo"); break; case 1 : VERIFY(comp_type, COMP_CODE_RLE, "GRgetcompinfo"); break; case 2 : VERIFY(comp_type, COMP_CODE_SKPHUFF, "GRgetcompinfo"); VERIFY(cinfo.skphuff.skp_size, chunk_def[img_num].comp.cinfo.skphuff.skp_size, "GRgetcompinfo"); break; case 3 : VERIFY(comp_type, COMP_CODE_DEFLATE, "GRgetcompinfo"); VERIFY(cinfo.deflate.level, chunk_def[img_num].comp.cinfo.deflate.level, "GRgetcompinfo"); break; #ifdef NOT_WORKING /* JPEG is not working correctly yet. Add test here when it is */ case 4 : /* only return comp type for JPEG */ VERIFY(comp_type, COMP_CODE_JPEG, "GRgetcompinfo"); break; #endif default: printf("Error\n"); break; } /* end switch */ /* Read third chunk back. */ origin[0] = 1; origin[1] = 4; status = GRreadchunk(ri_id[img_num], origin, (VOIDP)chunk_buf); CHECK(status, FAIL, "GRreadchunk"); if (0 != HDmemcmp(chunk_buf, chunk14 , sizeof(chunk14))) { MESSAGE(3, printf("Error in reading chunk at line %d\n", __LINE__);); MESSAGE(3, printf("Image #%d\n", (int)img_num);); num_errs++; } /* end if */ /* Read the whole image. */ start[0] = start[1] = 0; stride[0] = stride[1] = 1; edge[0] = Y_LENGTH; edge[1] = X_LENGTH; status = GRreadimage(ri_id[img_num], start, stride, edge, (VOIDP)data_out); CHECK(status, FAIL, "GRreadimage"); if (0!= HDmemcmp(data_out, data, sizeof(data))) { MESSAGE(3, printf("%d: Error reading data for the whole image\n", __LINE__);); MESSAGE(3, printf("%d: Compression method\n", (int)img_num);); num_errs++; } /* end if */ status = GRendaccess(ri_id[img_num]); CHECK(status, FAIL, "GRendaccess"); } /* end for */ /* Terminate access to the GR interface and close the HDF file. */ status = GRend(gr_id); CHECK(status, FAIL, "GRend"); status = Hclose(file_id); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* end of test_mgr_chunk_compress */ /**************************************************************** ** ** test_mgr_compress(): Multi-file Raster Compression tests ** ** IX. Compressed image tests ** A. Create/Read/Write gzip compressed Image ** B. Create/Read/Write 8-bit JPEG compressed Image ** C. Create/Read/Write 24-bit JPEG compressed Image ** D. Retrieve various compression information of compressed Image ** E. Retrieve various compression info. of compressed, chunked images ** ****************************************************************/ extern void test_mgr_compress() { int num_errs = 0; /* Output message about test being performed */ MESSAGE(5, printf("Testing Multi-file Raster Compression Functions\n");); /* Test compression functions on GZIP compressed image */ num_errs = num_errs + test_mgr_compress_a(); /* Test compression functions on 8-bit JPEG compressed image */ num_errs = num_errs + test_mgr_compress_b(); /* Test compression functions on 24-bit JPEG compressed image */ num_errs = num_errs + test_mgr_compress_c(); /* Test retrieving various compression information of compressed image */ num_errs = num_errs + test_get_compress(); /* Test retrieving various compression information of chunked and compressed image */ num_errs = num_errs + test_mgr_chunk_compress(); if (num_errs != 0) { H4_FAILED(); } } /* end test_mgr_compress() */ libhdf4-4.2.10/HDF_ALT/hdf/test/conv.c0000644000000000000000000007710012421456623013744 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: conv.c 6036 2014-01-20 17:28:01Z acheng $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* FILE conv.c Test HDF Number-Type conversion routines REMARKS DESIGN BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 10/27/93 - Started coding. */ #include "tproto.h" #include #ifdef I860 typedef int clock_t; #define NO_TIMING #define UINT_MAX USI_MAX #endif /* I860 */ /* last ditch attempt do define this value... */ #ifndef UINT_MAX #define UINT_MAX (unsigned)(-1) #endif /* Substitute bogus value if CLOCKS_PER_SEC is unavailable */ #ifndef CLOCKS_PER_SEC #define CLOCKS_PER_SEC -1 #endif #ifndef RAND_MAX #define RAND_MAX (UINT_MAX) #endif #define TEST_SIZE 100001 #define SOURCE_STRIDE 2 /* space out the strides for source & dest. */ #define DEST_STRIDE 3 /* define aliases for random number generation */ #define RAND rand #define SEED(a) srand((unsigned)(a)) #ifdef NO_TIMING #define clock() (0) #endif extern int Verbocity; /* Local variables */ static int32 test_type[] = {0, DFNT_LITEND, DFNT_NATIVE}; static const char *test_name[] = {"Big-Endian", "Little-Endian", "Native"}; /* for those machines with imprecise IEEE<-> conversions, this should be */ /* close enough */ #define EPS64 ((float64)1.0E-14) #define EPS32 ((float32)1.0E-7) void test_conv(void) { clock_t c1,c2,c3,c4; uint8 *src_uint8, *dst_uint8, *dst2_uint8; uint16 *src_uint16, *dst_uint16, *dst2_uint16; uint32 *src_uint32, *dst_uint32, *dst2_uint32; int8 *src_int8, *dst_int8, *dst2_int8; int16 *src_int16, *dst_int16, *dst2_int16; int32 *src_int32, *dst_int32, *dst2_int32; float32 *src_float32, *dst_float32, *dst2_float32; float64 *src_float64, *dst_float64, *dst2_float64; intn i,r; intn t; int32 ret; SEED((int)time(NULL)); /* seed with effectively random number */ for(t=0; (size_t)t= NUMOFTESTS){ printf("*** Too many tests. Need to increase NUMOFTESTS (%d).\n", NUMOFTESTS); printf("\tRequest (%s) ignored.\n", TheName); } else { HDstrcpy(Test[Index].Description, TheDescr); HDstrcpy(Test[Index].Name, TheName); HDstrcpy(Test[Index].Call, TheCall); Test[Index].NumErrors = -1; Test[Index].SkipFlag = 0; Index++; } return(Index); } int main(int argc, char *argv[]) { int CLLoop; /* Command Line Loop */ int Loop, Loop1; int Summary = 0; int CleanUp = 1; int num_tests=0; FILE *cmdfile; const char *cmdfilename="fortest.arg"; printf(" ===========================================\n"); printf(" HDF Library Fortran Interface Tests Setup\n"); printf(" ===========================================\n"); num_tests=InitTest("slab", "slabwf", ""); num_tests=InitTest("r24", "t24f", ""); num_tests=InitTest("an", "tanf", ""); num_tests=InitTest("anfile", "tanfilef", ""); num_tests=InitTest("manf", "manf", ""); num_tests=InitTest("mgrf", "mgrf", ""); num_tests=InitTest("p", "tpf", ""); num_tests=InitTest("r8", "tr8f", ""); num_tests=InitTest("sdmms", "tsdmmsf", ""); num_tests=InitTest("sdnmms", "tsdnmmsf", ""); num_tests=InitTest("sdnnt", "tsdnntf", ""); num_tests=InitTest("sdnt", "tsdntf", ""); num_tests=InitTest("sdstr", "tsdstrf", ""); num_tests=InitTest("vsetf", "tvsetf", ""); num_tests=InitTest("vsetblock", "tvsetblock", ""); num_tests=InitTest("vgroups", "tvgroups", ""); num_tests=InitTest("vattrf", "tvattrf", ""); /* The test is skipped when size of fortran integer is smaller than the size of C pointer; this happens on the 64-bit DEC Alpha, Solaris, Altix AIX and Mac Intel. We need a better fix; see Bugzilla #1694. */ #if defined DEC_ALPHA || defined _WIN32 || (defined SUN && defined _LP64) || defined __ia64 || defined __x86_64 || defined AIX5L64 || (__APPLE__ && __LP64__) printf(" Skipping stubs\n"); #else num_tests=InitTest("stubs", "tstubsf", ""); #endif if ((cmdfile = fopen(cmdfilename, "w")) == NULL){ printf("***Can't write to cmdfile(%s)***\n", cmdfilename); return(-1); } /* Default setting */ Verbosity = 3; /* Default Verbosity is Low */ /* setup Cleanup Command */ fprintf(cmdfile, "%s %s\n", CLEAN_STR, CLEAN_CMD); for (CLLoop = 1; CLLoop < argc; CLLoop++) { if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-verbose") == 0) || (HDstrcmp(argv[CLLoop], "-v") == 0))) { if (argv[CLLoop + 1][0] == 'l') Verbosity = 5; else if (argv[CLLoop + 1][0] == 'm') Verbosity = 7; else if (argv[CLLoop + 1][0] == 'h') Verbosity = 9; else Verbosity = atoi(argv[CLLoop + 1]); fprintf(cmdfile, "%s %d\n", VERBOSITY_STR, Verbosity); } if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-summary") == 0) || (HDstrcmp(argv[CLLoop], "-s") == 0))) { Summary = 1; } if ((argc > CLLoop) && (HDstrcmp(argv[CLLoop], "-help") == 0)) { printf("Usage: fortest [-v[erbose] (l[ow]|m[edium]|h[igh]|0-9)] \n"); printf(" [-[e]x[clude] name+] \n"); printf(" [-o[nly] name+] \n"); printf(" [-b[egin] name] \n"); printf(" [-s[ummary]] \n"); printf(" [-c[leanno]] \n"); printf("\n\n"); printf("verbose controls the amount of information displayed\n"); printf("exclude to exclude tests by name\n"); printf("only to name tests which should be run\n"); printf("begin start at the name of the test givin\n"); printf("summary prints a summary of test results at the end\n"); printf("cleanno does not delete *.hdf files after execution of tests\n"); printf("\n\n"); printf("This program currently tests the following: \n\n"); printf("%16s %s\n", "Name", "Description"); printf("%16s %s\n", "----", "-----------"); for (Loop = 0; Loop < num_tests; Loop++) { printf("%16s %s\n", Test[Loop].Name, Test[Loop].Description); } printf("\n\n"); exit(0); } if ((argc > CLLoop) && ((HDstrcmp(argv[CLLoop], "-cleanno") == 0) || (HDstrcmp(argv[CLLoop], "-c") == 0))) { CleanUp = 0; fprintf(cmdfile, "%s %s\n", CLEAN_STR, "No"); } if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-exclude") == 0) || (HDstrcmp(argv[CLLoop], "-x") == 0))) { Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < num_tests; Loop1++) { if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Test[Loop1].SkipFlag = 1; } Loop++; } } if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-begin") == 0) || (HDstrcmp(argv[CLLoop], "-b") == 0))) { Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < num_tests; Loop1++) { if (HDstrcmp(argv[Loop], Test[Loop1].Name) != 0) Test[Loop1].SkipFlag = 1; if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Loop1 = num_tests; } Loop++; } } if ((argc > CLLoop + 1) && ((HDstrcmp(argv[CLLoop], "-only") == 0) || (HDstrcmp(argv[CLLoop], "-o") == 0))) { for (Loop = 0; Loop < num_tests; Loop++) { Test[Loop].SkipFlag = 1; } Loop = CLLoop + 1; while ((Loop < argc) && (argv[Loop][0] != '-')) { for (Loop1 = 0; Loop1 < num_tests; Loop1++) { if (HDstrcmp(argv[Loop], Test[Loop1].Name) == 0) Test[Loop1].SkipFlag = 0; } Loop++; } } } for (Loop = 0; Loop < num_tests; Loop++) { if (Test[Loop].SkipFlag) { fprintf(cmdfile, "%s %s\n", SKIP_STR, Test[Loop].Name); } else { fprintf(cmdfile, "%s %s\n", TEST_STR, Test[Loop].Name); } } fclose(cmdfile); /* flush stdout to gurantee output preceed those of fortestF */ fflush(stdout); # ifndef CMAKE_INTDIR /* not built with cmake */ return (system("./fortestF")); # else return 0; /*(system("./fortestF"));*/ # endif } libhdf4-4.2.10/HDF_ALT/hdf/test/slab.c0000644000000000000000000022312412421456623013717 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Id: slab.c 4932 2007-09-07 17:17:23Z bmribler $"; #endif /* $Id */ /*************************************************************************** * * Slab test routines slabw(), slabwf64(), slabwui16(), slabwui8(), * slab1w(), slab2w(), slab3w(), slab4w() * ***************************************************************************/ /* slabwin & slabwuin do not work for all machines */ #include "tproto.h" /* Internal variables */ static int32 rank = 3; static float64 maxf64 = 123.0; static float64 minf64 = -1.0; static float64 fillf64 = 1.0; static float32 maxf32 = (float32) 123.0; static float32 minf32 = (float32) -1.0; static float32 fillf32 = (float32) 1.0; static int32 maxin = 123; static int32 minin = -1; static int32 fillin = 1; static uint32 maxuin = 123; static uint32 minuin = 2; static uint32 filluin = 1; static int32 maxi32 = 123; static int32 mini32 = -1; static int32 filli32 = 1; static uint32 maxui32 = 123; static uint32 minui32 = 2; static uint32 fillui32 = 1; static int16 maxi16 = 123; static int16 mini16 = -1; static int16 filli16 = 1; static uint16 maxui16 = 123; static uint16 minui16 = 2; static uint16 fillui16 = 1; static int8 maxi8 = 123; static int8 mini8 = -1; static int8 filli8 = 1; static uint8 maxui8 = 123; static uint8 minui8 = 2; static uint8 fillui8 = 1; /* Dimensions of slab */ static int32 size_dims[3] = {2, 3, 4}; /* size of slab dims */ static int32 start_dims[3] = {1, 1, 1}; /* starting dims */ static int32 stride[3] = {0, 0, 0}; static int32 d_dims[3] = {0, 0, 0}; /* luf for planes, rows and cols */ static const char *lpln = "Time"; static const char *upln = "Second"; static const char *fpln = "Int32"; static const char *lrow = "Line"; static const char *urow = "Inch"; static const char *frow = "Int16"; static const char *lcol = "Column"; static const char *ucol = "Cm"; static const char *fcol = "Int32"; /* scales for planes, rows, and cols */ static float64 scplnf64[2] = {0.0, 100.0}; static float64 scrowf64[3] = {0.0, 10.0, 20.0}; static float64 sccolf64[4] = {0.0, 1.0, 2.0, 3.0}; static float32 scplnf32[2] = {(float32) 0.0, (float32) 100.0}; static float32 scrowf32[3] = {(float32) 0.0, (float32) 10.0, (float32) 20.0}; static float32 sccolf32[4] = {(float32) 0.0, (float32) 1.0, (float32) 2.0, (float32) 3.0}; static int32 scplnin[2] = {0, 100}; static int32 scrowin[3] = {0, 10, 20}; static int32 sccolin[4] = {0, 1, 2, 3}; static uint32 scplnuin[2] = {0, 100}; static uint32 scrowuin[3] = {0, 10, 20}; static uint32 sccoluin[4] = {0, 1, 2, 3}; static int32 scplni32[2] = {0, 100}; static int32 scrowi32[3] = {0, 10, 20}; static int32 sccoli32[4] = {0, 1, 2, 3}; static uint32 scplnui32[2] = {0, 100}; static uint32 scrowui32[3] = {0, 10, 20}; static uint32 sccolui32[4] = {0, 1, 2, 3}; static int16 scplni16[2] = {0, 100}; static int16 scrowi16[3] = {0, 10, 20}; static int16 sccoli16[4] = {0, 1, 2, 3}; static uint16 scplnui16[2] = {0, 100}; static uint16 scrowui16[3] = {0, 10, 20}; static uint16 sccolui16[4] = {0, 1, 2, 3}; static int8 scplni8[2] = {0, 100}; static int8 scrowi8[3] = {0, 10, 20}; static int8 sccoli8[4] = {0, 1, 2, 3}; static uint8 scplnui8[2] = {0, 100}; static uint8 scrowui8[3] = {0, 10, 20}; static uint8 sccolui8[4] = {0, 1, 2, 3}; /* Slabs for slabw(), slab1w(), slab2w() */ static float32 slabw1[1][1][3] = { { {(float32) 110.0, (float32) 111.0, (float32) 112.0}}}; static float32 slabw2[2][1][3] = { { {(float32) 20.0, (float32) 21.0, (float32) 22.0}}, { {(float32) 120.0, (float32) 121.0, (float32) 122.0}}}; static float32 slabw3[1][2][3] = { { {(float32) 0.0, (float32) 1.0, (float32) 2.0}, {(float32) 10.0, (float32) 11.0, (float32) 12.0}}}; static float32 slabw4[1][1][3] = { { {(float32) 100.0, (float32) 101.0, (float32) 102.0}}}; static float32 slabw5[2][3][1] = { { {(float32) 3.0}, {(float32) 13.0}, {(float32) 23.0}}, { {(float32) 103.0}, {(float32) 113.0}, {(float32) 123.0}}}; static float64 slabw1f64[1][1][3] = { { {110.0, 111.0, 112.0}}}; static float64 slabw2f64[2][1][3] = { { {20.0, 21.0, 22.0}}, { {120.0, 121.0, 122.0}}}; static float64 slabw3f64[1][2][3] = { { {0.0, 1.0, 2.0}, {10.0, 11.0, 12.0}}}; static float64 slabw4f64[1][1][3] = { { {100.0, 101.0, 102.0}}}; static float64 slabw5f64[2][3][1] = { { {3.0}, {13.0}, {23.0}}, { {103.0}, {113.0}, {123.0}}}; static int32 slabw1in[1][1][3] = { { {110, 111, 112}}}; static int32 slabw2in[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static int32 slabw3in[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static int32 slabw4in[1][1][3] = { { {100, 101, 102}}}; static int32 slabw5in[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static uint32 slabw1uin[1][1][3] = { { {110, 111, 112}}}; static uint32 slabw2uin[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static uint32 slabw3uin[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static uint32 slabw4uin[1][1][3] = { { {100, 101, 102}}}; static uint32 slabw5uin[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static int32 slabw1i32[1][1][3] = { { {110, 111, 112}}}; static int32 slabw2i32[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static int32 slabw3i32[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static int32 slabw4i32[1][1][3] = { { {100, 101, 102}}}; static int32 slabw5i32[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static uint32 slabw1ui32[1][1][3] = { { {110, 111, 112}}}; static uint32 slabw2ui32[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static uint32 slabw3ui32[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static uint32 slabw4ui32[1][1][3] = { { {100, 101, 102}}}; static uint32 slabw5ui32[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static int16 slabw1i16[1][1][3] = { { {110, 111, 112}}}; static int16 slabw2i16[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static int16 slabw3i16[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static int16 slabw4i16[1][1][3] = { { {100, 101, 102}}}; static int16 slabw5i16[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static uint16 slabw1ui16[1][1][3] = { { {110, 111, 112}}}; static uint16 slabw2ui16[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static uint16 slabw3ui16[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static uint16 slabw4ui16[1][1][3] = { { {100, 101, 102}}}; static uint16 slabw5ui16[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static int8 slabw1i8[1][1][3] = { { {110, 111, 112}}}; static int8 slabw2i8[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static int8 slabw3i8[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static int8 slabw4i8[1][1][3] = { { {100, 101, 102}}}; static int8 slabw5i8[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; static uint8 slabw1ui8[1][1][3] = { { {110, 111, 112}}}; static uint8 slabw2ui8[2][1][3] = { { {20, 21, 22}}, { {120, 121, 122}}}; static uint8 slabw3ui8[1][2][3] = { { {0, 1, 2}, {10, 11, 12}}}; static uint8 slabw4ui8[1][1][3] = { { {100, 101, 102}}}; static uint8 slabw5ui8[2][3][1] = { { {3}, {13}, {23}}, { {103}, {113}, {123}}}; /* Slabs for slab3w() */ static float32 slab1[1][1][1] = { { {(float32) 0.0}}}; static float32 slab2[1][1][1] = { { {(float32) 1.0}}}; static float32 slab3[1][1][1] = { { {(float32) 2.0}}}; static float32 slab4[1][1][1] = { { {(float32) 3.0}}}; static float32 slab5[1][1][1] = { { {(float32) 10.0}}}; static float32 slab6[1][1][1] = { { {(float32) 11.0}}}; static float32 slab7[1][1][1] = { { {(float32) 12.0}}}; static float32 slab8[1][1][1] = { { {(float32) 13.0}}}; static float32 slab9[1][1][1] = { { {(float32) 20.0}}}; static float32 slab10[1][1][1] = { { {(float32) 21.0}}}; static float32 slab11[1][1][1] = { { {(float32) 22.0}}}; static float32 slab12[1][1][1] = { { {(float32) 23.0}}}; static float32 slab13[1][1][1] = { { {(float32) 100.0}}}; static float32 slab14[1][1][1] = { { {(float32) 101.0}}}; static float32 slab15[1][1][1] = { { {(float32) 102.0}}}; static float32 slab16[1][1][1] = { { {(float32) 103.0}}}; static float32 slab17[1][1][1] = { { {(float32) 110.0}}}; static float32 slab18[1][1][1] = { { {(float32) 111.0}}}; static float32 slab19[1][1][1] = { { {(float32) 112.0}}}; static float32 slab20[1][1][1] = { { {(float32) 113.0}}}; static float32 slab21[1][1][1] = { { {(float32) 120.0}}}; static float32 slab22[1][1][1] = { { {(float32) 121.0}}}; static float32 slab23[1][1][1] = { { {(float32) 122.0}}}; static float32 slab24[1][1][1] = { { {(float32) 123.0}}}; /* data array in memory */ static float32 fdata[2][3][4] = { { {(float32) 0.0, (float32) 1.0, (float32) 2.0, (float32) 3.0}, {(float32) 10.0, (float32) 11.0, (float32) 12.0, (float32) 13.0}, {(float32) 20.0, (float32) 21.0, (float32) 22.0, (float32) 23.0}}, { {(float32) 100.0, (float32) 101.0, (float32) 102.0, (float32) 103.0}, {(float32) 110.0, (float32) 111.0, (float32) 112.0, (float32) 113.0}, {(float32) 120.0, (float32) 121.0, (float32) 122.0, (float32) 123.0}}}; static float64 f64data[2][3][4] = { { {0.0, 1.0, 2.0, 3.0}, {10.0, 11.0, 12.0, 13.0}, {20.0, 21.0, 22.0, 23.0}}, { {100.0, 101.0, 102.0, 103.0}, {110.0, 111.0, 112.0, 113.0}, {120.0, 121.0, 122.0, 123.0}}}; static int32 indata[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static uint32 uindata[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static int32 i32data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static uint32 ui32data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static int16 i16data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static uint16 ui16data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static int8 i8data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; static uint8 ui8data[2][3][4] = { { {0, 1, 2, 3}, {10, 11, 12, 13}, {20, 21, 22, 23}}, { {100, 101, 102, 103}, {110, 111, 112, 113}, {120, 121, 122, 123}}}; /* Output files */ static const char *swf32 = "swf32.hdf"; static const char *swf64 = "swf64.hdf"; static const char *swin = "swin.hdf"; static const char *swuin = "swuin.hdf"; static const char *swi32 = "swi32.hdf"; static const char *swui32 = "swui32.hdf"; static const char *swi16 = "swi16.hdf"; static const char *swui16 = "swui16.hdf"; static const char *swi8 = "swi8.hdf"; static const char *swui8 = "swui8.hdf"; static const char *sw1 = "s1w.hdf"; static const char *sw3 = "s3w.hdf"; static const char *sw4 = "s4w.hdf"; static int slabwf32(void); static int slabwf64(void); static int slabwin(void); static int slabwuin(void); static int slabwi32(void); static int slabwui32(void); static int slabwi16(void); static int slabwui16(void); static int slabwi8(void); static int slabwui8(void); static int slab1w(void); static int slab2w(void); static int slab3w(void); static int slab4w(void); /* ** Write data set to slabw.hdf as 5 hyperslabs. */ static int slabwf32(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; float32 sdata[2][3][4]; /* Data array read from from file */ float32 lfill=(float32)0.0; MESSAGE(10, printf("\n slabwf32: Writing 5 slabs to slabwf32.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolf32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxf32, (VOIDP) &minf32); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillf32); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swf32); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swf32, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillf32) num_err++; MESSAGE(10, printf("\n fill value =: %f \n", lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwf32: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != fdata[i][j][k]) num_err++; MESSAGE(10, printf("%f, ", sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwf32 <<< \n"); ) else MESSAGE(10, printf("\n slabwf32: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write float64 data set to slabw.hdf as 5 hyperslabs. */ static int slabwf64(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; float64 sdata[2][3][4]; /* Data array read from from file */ float64 lfill=(float64)0.0; MESSAGE(10, printf("\n slabwf64: Writing 5 slabs to slabwf64.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_FLOAT64); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnf64); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowf64); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolf64); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxf64, (VOIDP) &minf64); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillf64); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swf64); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1f64); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2f64); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3f64); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4f64); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5f64); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swf64, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillf64) num_err += 1; MESSAGE(10, printf("\n fill value =: %f \n", (float) lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwf64: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != f64data[i][j][k]) num_err++; MESSAGE(10, printf("%f, ", (float) sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwf64 <<< \n"); ) else MESSAGE(10, printf("\n slabwf64: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write int32 data set as native data type to slabwin.hdf as 5 hyperslabs. */ static int slabwin(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; int32 sdata[2][3][4]; /* Data array read from from file */ int32 lfill=0; MESSAGE(10, printf("\n slabwin: Writing 5 slabs to slabwin.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_NINT32); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnin); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowin); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolin); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxin, (VOIDP) &minin); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillin); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swin); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1in); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2in); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3in); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4in); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5in); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swin, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillin) num_err += 1; MESSAGE(10, printf("\n fill value =: %d \n", (int)lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwin: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != indata[i][j][k]) num_err++; MESSAGE(10, printf("%u, ", (unsigned)sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwin <<< \n"); ) else MESSAGE(10, printf("\n slabwin: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write uint32 data set as native data type to slabwuin.hdf as 5 hyperslabs. */ static int slabwuin(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; uint32 sdata[2][3][4]; /* Data array read from from file */ uint32 lfill=0; MESSAGE(10, printf("\n slabwuin: Writing 5 slabs to slabwuin.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_NUINT32); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnuin); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowuin); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccoluin); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxuin, (VOIDP) &minuin); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &filluin); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swuin); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1uin); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2uin); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3uin); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4uin); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5uin); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swuin, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != filluin) num_err += 1; MESSAGE(10, printf("\n fill value =: %u \n", (unsigned)lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwin: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != uindata[i][j][k]) num_err++; MESSAGE(10, printf("%u, ", (unsigned)sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwuin <<< \n"); ) else MESSAGE(10, printf("\n slabwuin: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write int32 data set to slabwi32.hdf as 5 hyperslabs. */ static int slabwi32(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; int32 sdata[2][3][4]; /* Data array read from from file */ int32 lfill=(int32)0; MESSAGE(10, printf("\n slabwi32: Writing 5 slabs to slabwi32.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_INT32); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplni32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowi32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccoli32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxi32, (VOIDP) &mini32); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &filli32); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swi32); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1i32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2i32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3i32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4i32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5i32); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swi32, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != filli32) num_err += 1; MESSAGE(10, printf("\n fill value =: %d \n", (int) lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwi32: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != i32data[i][j][k]) num_err++; MESSAGE(10, printf("%d, ", (int) sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwi32 <<< \n"); ) else MESSAGE(10, printf("\n slabwi32: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write uint32 data set to slabwui32.hdf as 5 hyperslabs. */ static int slabwui32(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; uint32 sdata[2][3][4]; /* Data array read from from file */ uint32 lfill=(uint32)0; MESSAGE(10, printf("\n slabwui32: Writing 5 slabs to slabwui32.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_UINT32); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnui32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowui32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolui32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxui32, (VOIDP) &minui32); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillui32); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swui32); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1ui32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2ui32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3ui32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4ui32); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5ui32); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swui32, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillui32) num_err += 1; MESSAGE(10, printf("\n fill value =: %u \n", (unsigned) lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwui32: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != ui32data[i][j][k]) num_err++; MESSAGE(10, printf("%u, ", (unsigned) sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwui32 <<< \n"); ) else MESSAGE(10, printf("\n slabwui32: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write int16 data set to slabwi16.hdf as 5 hyperslabs. */ static int slabwi16(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; int16 sdata[2][3][4]; /* Data array read from from file */ int16 lfill=(int16)0; MESSAGE(10, printf("\n slabwi16: Writing 5 slabs to slabwi16.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_INT16); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplni16); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowi16); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccoli16); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxi16, (VOIDP) &mini16); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &filli16); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swi16); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1i16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2i16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3i16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4i16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5i16); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swi16, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != filli16) num_err += 1; MESSAGE(10, printf("\n fill value =: %d \n", lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwi16: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != i16data[i][j][k]) num_err++; MESSAGE(10, printf("%d, ", sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwi16 <<< \n"); ) else MESSAGE(10, printf("\n slabwi16: %d wrong values in slab. \n", (int) num_err); ) return (int) num_err; } /* ** Write uint16 data set to slabwui16.hdf as 5 hyperslabs. */ static int slabwui16(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; uint16 sdata[2][3][4]; /* Data array read from from file */ uint16 lfill=(uint16)0; MESSAGE(10, printf("\n slabwui16: Writing 5 slabs to slabwui16.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_UINT16); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnui16); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowui16); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolui16); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxui16, (VOIDP) &minui16); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillui16); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swui16); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1ui16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2ui16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3ui16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4ui16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5ui16); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swui16, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillui16) num_err += 1; MESSAGE(10, printf("\n fill value =: %u \n", lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwui16: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != ui16data[i][j][k]) num_err++; MESSAGE(10, printf("%u, ", sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwui16 <<< \n"); ) else MESSAGE(10, printf("\n slabwui16: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write int8 data set to slabwi8.hdf as 5 hyperslabs. */ static int slabwi8(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; int8 sdata[2][3][4]; /* Data array read from from file */ int8 lfill=(int8)0; MESSAGE(10, printf("\n slabwi8: Writing 5 slabs to slabwi8.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_INT8); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplni8); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowi8); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccoli8); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxi8, (VOIDP) &mini8); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &filli8); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swi8); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1i8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2i8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3i8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4i8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5i8); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swi8, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != filli8) num_err += 1; MESSAGE(10, printf("\n fill value =: %d \n", (int) lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwi8: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != i8data[i][j][k]) num_err++; MESSAGE(10, printf("%d, ", (int) sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwi8 <<< \n"); ) else MESSAGE(10, printf("\n slabwi8: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } /* ** Write uint8 data set to slabw.hdf as 5 hyperslabs. */ static int slabwui8(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; uint8 sdata[2][3][4]; /* Data array read from from file */ uint8 lfill=(uint8)0; MESSAGE(10, printf("\n slabwui8: Writing 5 slabs to slabwui8.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); ret = DFSDsetNT(DFNT_UINT8); CHECK(ret, FAIL, "DFSDsetNT"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnui8); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowui8); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolui8); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write data out using slabs with ** each slab in different order to the file "slab.hdf" */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxui8, (VOIDP) &minui8); CHECK(ret, FAIL, "DFSDsetrange"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillui8); CHECK(ret, FAIL, "DFSDsetfillvalue"); ret = DFSDstartslab(swui8); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1ui8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2ui8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3ui8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4ui8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5ui8); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(swui8, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); if (lfill != fillui8) num_err += 1; MESSAGE(10, printf("\n fill value =: %u \n", (unsigned) lfill); ); if (num_err != 0) MESSAGE(10, printf("\n slabwui8: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("sdata = "); ); num_err = 0; for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != ui8data[i][j][k]) num_err += 1; MESSAGE(10, printf("%u, ", (unsigned) sdata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slabwui8 <<< \n"); ) else MESSAGE(10, printf("\n slabwui8: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } static int slab1w(void) { int32 ret = 0; int32 num_err = 0; MESSAGE(10, printf("\n slab1w: Writing the first 3 of 5 slabs to slab1w.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolf32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* Set fill value */ ret = DFSDsetfillvalue((VOIDP) &fillf32); CHECK(ret, FAIL, "DFSDsetfillvalue"); MESSAGE(10, printf("\n slab1w: Setting fill value =%f \n", fillf32); ); /* ** write each slab in different order */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxf32, (VOIDP) &minf32); CHECK(ret, FAIL, "DFSDsetrange"); ret = DFSDstartslab(sw1); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw1); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 2; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw3); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw5); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slab1w, now run slab2w <<< \n"); ) else MESSAGE(10, printf("\n slab1w: %d failures. \n", (int) num_err); ); return (int) num_err; } static int slab2w(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; float32 sdata[2][3][4]; /* Data array read from from file */ float32 lfill=(float32)0.0; intn trank; MESSAGE(10, printf("\n slab2w: Writing the last 2 of 5 slabs to slab1w.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); /* Get dimensions */ ret = DFSDgetdims(sw1, &trank, size_dims, 3); CHECK(ret, FAIL, "DFSDgetdims"); /* Get fill value */ ret = DFSDgetfillvalue((VOIDP) &lfill); CHECK(ret, FAIL, "DFSDgetfillvalue"); MESSAGE(10, printf("\n fill value =: %f \n", lfill); ); /* Call Writeref() first */ ret = DFSDwriteref(sw1, 2); CHECK(ret, FAIL, "DFSDwriteref"); /* ** write each slab in different order */ ret = DFSDstartslab(sw1); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw2); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 3; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slabw4); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(sw1, start_dims, size_dims, stride, (VOIDP) sdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); if (num_err != 0) MESSAGE(10, printf("\n slab2w: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (sdata[i][j][k] != fdata[i][j][k]) num_err++; } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slab2w <<< \n"); ) else MESSAGE(10, printf("\n slab2w: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } static int slab3w(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; float32 adata[2][3][4]; /* Data array read from from file */ MESSAGE(10, printf("\n slab3w: Writing all 24 elements of data as slabs to slab3w.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolf32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* ** write each element in different order */ /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxf32, (VOIDP) &minf32); CHECK(ret, FAIL, "DFSDsetrange"); ret = DFSDstartslab(sw3); CHECK(ret, FAIL, "DFSDstartslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab20); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab21); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 3; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab22); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 3; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab23); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 3; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab24); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab6); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab7); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab8); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab9); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab10); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab16); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab17); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab18); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 2; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab19); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab11); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 3; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab12); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab13); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab14); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 2; start_dims[1] = 1; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab15); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab1); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 2; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab2); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 3; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab3); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 4; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab4); CHECK(ret, FAIL, "DFSDwriteslab"); start_dims[0] = 1; start_dims[1] = 2; start_dims[2] = 1; size_dims[0] = 1; size_dims[1] = 1; size_dims[2] = 1; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) slab5); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(sw3, start_dims, size_dims, stride, (VOIDP) adata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); if (num_err != 0) MESSAGE(10, printf("\n slab3w: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); MESSAGE(10, printf("adata = "); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (adata[i][j][k] != fdata[i][j][k]) num_err++; MESSAGE(10, printf("%f, ", adata[i][j][k]); ); } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slab3w <<< \n"); ) else MESSAGE(10, printf("\n slab3w: %d wrong values in slab. \n", (int) num_err); ); return (int) num_err; } static int slab4w(void) { int32 i, j, k; int32 ret = 0; int32 num_err = 0; float32 bdata[2][3][4]; /* Data array read from from file */ MESSAGE(10, printf("\n slab4w: Writing data as 1 slab to slab4w.hdf \n"); ); ret = DFSDclear(); CHECK(ret, FAIL, "DFSDclear"); /* First set dimensions */ ret = DFSDsetdims((intn) rank, size_dims); CHECK(ret, FAIL, "DFSDsetdims"); /* Set dimension strings */ ret = DFSDsetdimstrs(1, lpln, upln, fpln); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, lrow, urow, frow); CHECK(ret, FAIL, "DFSDsetdimstrs"); ret = DFSDsetdimstrs(3, lcol, ucol, fcol); CHECK(ret, FAIL, "DFSDsetdimstrs"); /* Set dimension scales */ ret = DFSDsetdimscale(1, size_dims[0], (VOIDP) scplnf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(2, size_dims[1], (VOIDP) scrowf32); CHECK(ret, FAIL, "DFSDsetdimscale"); ret = DFSDsetdimscale(3, size_dims[2], (VOIDP) sccolf32); CHECK(ret, FAIL, "DFSDsetdimscale"); /* Set max, min range */ ret = DFSDsetrange((VOIDP) &maxf32, (VOIDP) &minf32); CHECK(ret, FAIL, "DFSDsetrange"); ret = DFSDstartslab(sw4); CHECK(ret, FAIL, "DFSDstartslab"); /* write out all the data to hdf file */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; ret = DFSDwriteslab(start_dims, stride, size_dims, (VOIDP) fdata); CHECK(ret, FAIL, "DFSDwriteslab"); ret = DFSDendslab(); CHECK(ret, FAIL, "DFSDendslab"); /* Verify correctness of slab written */ start_dims[0] = 1; start_dims[1] = 1; start_dims[2] = 1; size_dims[0] = 2; size_dims[1] = 3; size_dims[2] = 4; d_dims[0] = 2; d_dims[1] = 3; d_dims[2] = 4; ret = DFSDreadslab(sw4, start_dims, size_dims, stride, (VOIDP) bdata, d_dims); CHECK(ret, FAIL, "DFSDreadslab"); if (num_err != 0) MESSAGE(10, printf("\n slab4w: %d failures. \n", (int) num_err); ); MESSAGE(10, printf("\n Verifying data \n"); ); for (i = 0; i < d_dims[0]; i++) for (j = 0; j < d_dims[1]; j++) for (k = 0; k < d_dims[2]; k++) { if (bdata[i][j][k] != fdata[i][j][k]) num_err++; } if (num_err == 0) MESSAGE(10, printf("\n >>> All tests passed for slab4w <<< \n"); ) else MESSAGE(10, printf("\n slab4w: %d wrong values in slab. \n", (int) num_err); ); return (int) (num_err); } /* ** Main slab call to all other slab functions */ void test_slab(void) { num_errs += slabwf32(); num_errs += slabwf64(); num_errs += slabwin(); num_errs += slabwuin(); num_errs += slabwi32(); num_errs += slabwui32(); num_errs += slabwi16(); num_errs += slabwui16(); num_errs += slabwi8(); num_errs += slabwui8(); num_errs += slab1w(); num_errs += slab2w(); num_errs += slab3w(); num_errs += slab4w(); } libhdf4-4.2.10/HDF_ALT/hdf/test/tanf.f0000644000000000000000000002016112421456623013725 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tanf.f 5322 2010-01-19 06:26:11Z brtnfld $ C subroutine tanf (number_failed) C C C Test program: stores annotations in a file. C Writes several SDSs and corresponding RISs to a file. C Writes labels and descriptions for all but the first C three SDSs. C Writes labels and descriptions for all RISs. C C Input file: none C Output files: tdfanF.hdf C C Possible bug: When reading in a label, we have to give it a C length that is one greater than MAXLEN_LAB. This C may be due to a bug in dfan.c in DFANIgetann(). C C This was addressed in BUG 1640: Added isfortran C flag to DFANIgetann to avoid termination C of the string with the null character when the routine C is call from FORTRAN, hence no longer need to add one. C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'an') integer daplab, dapdesc integer dssdims, dsadata, dslref, dsgdims integer d8aimg, DFR8lastref, d8gimg integer ISFIRST, NOTFIRST, MAXLEN_LAB integer MAXLEN_DESC, ROWS, COLS, REPS integer DFTAG_SDG, DFTAG_RIG parameter ( ISFIRST = 1, * NOTFIRST = 0, * MAXLEN_LAB = 30, * MAXLEN_DESC = 500, * DFTAG_SDG = 700, * DFTAG_RIG = 306, * ROWS = 10, * COLS = 10, * REPS = 2 ) integer refnum integer ret integer rank integer j, dimsizes(2) character*30 labsds, labris character*500 descsds, descris character pal(768) character*64 TESTFILE character*1 CR character image(ROWS, COLS), newimage(ROWS, COLS) real data(ROWS, COLS) call ptestban('Testing', myname) number_failed = 0 CR = char(10) TESTFILE = 'tdfanF.hdf' C *** set up object labels and descriptions *** labsds = 'Object label #1: sds' labris = 'Object label #2: image' descsds = 'Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 ' * // CR // ' 13 14 15 16 17 18 19 20 ' * // ' **END SDS DESCR**' descris = 'Object Descr #2: A B C D E F G H I J K L ' * // CR // ' M N O **END IMAGE DESCR **' C *** generate float array and image *** rank = 2 dimsizes(1)=ROWS dimsizes(2)=COLS call gen2Dfloat(ROWS, COLS, data) call genimage(ROWS, COLS, data, image) ret = dssdims(rank,dimsizes) call VRFY(ret, 'dssdims', number_failed) C *** Write labels and descriptions *** call MESSAGE(VERBO_MED, + '*** Writing labels & descriptions with SDS and RIS ***') do 100 j=1,REPS C write out scientific data set ret = dsadata(TESTFILE, rank,dimsizes, data) call VRFY(ret, 'dsadata', number_failed) C write out annotations for 2 out of every 3 if (mod(j,3) .ne. 0) then refnum = dslref() ret = daplab(TESTFILE, DFTAG_SDG, refnum, labsds) call VRFY(ret, 'daplab', number_failed) ret = dapdesc(TESTFILE, DFTAG_SDG, refnum, * descsds, len(descsds)) call VRFY(ret, 'dapdesc', number_failed) endif ret = d8aimg(TESTFILE, image, COLS, ROWS, 0) call VRFY(ret, 'd8aimg', number_failed) refnum = DFR8lastref() ret = daplab(TESTFILE, DFTAG_RIG, refnum, labris) call VRFY(ret, 'daplab', number_failed) ret = dapdesc(TESTFILE,DFTAG_RIG,refnum, descris, * len(descris)) call VRFY(ret, 'dapdesc', number_failed) 100 continue C******** Read labels and descriptions ********* call MESSAGE(VERBO_MED, + '*** Reading labels and descriptions for SDS and RIS ***') do 200 j=1,REPS ret = dsgdims(TESTFILE, rank,dimsizes,3) call VRFY(ret, 'dsgdims', number_failed) refnum = dslref() C read in annotations for 2 out of every 3 if (mod(j,3) .ne. 0) then call an_check_lab_desc(TESTFILE, DFTAG_SDG, refnum, * labsds, descsds, number_failed) endif ret = d8gimg(TESTFILE, newimage, COLS, ROWS, pal) call VRFY(ret, 'd8gimg', number_failed) refnum = DFR8lastref() call an_check_lab_desc(TESTFILE, DFTAG_RIG, refnum, * labris, descris, number_failed) 200 continue if ( number_failed .eq. 0 ) then call MESSAGE(VERBO_HI, + '***** ALL DFAN TESTS SUCCESSFUL ***** ') else print *,'***** ',number_failed,' TESTS FAILED ***** ' endif return end C************************************************************** C C an_check_lab_desc: read and compare label and description C with expected ones C C************************************************************** subroutine an_check_lab_desc(filename, tag, ref, label, desc, * number_failed) implicit none include 'fortest.inc' character*(*) filename, label, desc integer tag, ref, number_failed integer MAXLEN_LAB, MAXLEN_DESC parameter ( MAXLEN_LAB = 30, * MAXLEN_DESC = 500 ) integer daglab, dagllen, dagdlen, dagdesc integer inlablen, indesclen, ret character*30 inlabel character*500 indesc inlablen = dagllen(filename, tag, ref) call VRFY(inlablen, 'dagllen', number_failed) if (inlablen .ne. len(label)) then print *,' >>>BAD LABEL LENGTH.' print *,' IS: ', inlablen print *,' SHOULD BE: ', len(label) number_failed = number_failed + 1 endif ret = daglab(filename, tag, ref, inlabel, MAXLEN_LAB) call VRFY(ret, 'daglab', number_failed) if (inlabel .ne. label) then print *,' >>>BAD LABEL.' print *,' IS: ', inlabel print *,' SHOULD BE: ', label number_failed = number_failed + 1 endif indesclen = dagdlen(filename, tag, ref) call VRFY(indesclen, 'dagdlen', number_failed) if (indesclen .ne. len(desc)) then print *,' >>>BAD DESCRIPTION LENGTH.' print *,' IS: ', indesclen print *,' SHOULD BE: ', len(desc) number_failed = number_failed + 1 else ret = dagdesc(filename, tag, ref, indesc, MAXLEN_DESC) call VRFY(ret, 'dagdesc', number_failed) if (indesc .ne. desc) then print *,' >>>BAD DESCRIPTION.' print *,' IS: ', indesc print *,' SHOULD BE: ', desc number_failed = number_failed + 1 endif endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/manf.f0000644000000000000000000004755512421456623013736 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: manf.f 4932 2007-09-07 17:17:23Z bmribler $ C subroutine manf (number_failed) C C C Test program: stores annotations in a file using fortran multi-file C annotation interface. C Writes several SDSs and corresponding RISs to a file. C Writes labels and descriptions for all 2 out of 3 SDS C Writes labels and descriptions for all RISs. C C Input file: none C Output files: manf.hdf C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'manf') integer afstart, afend, afcreate, affcreate integer afwriteann, afendaccess, hopen, hclose integer dssdims, dsadata, dslref, dsgdims integer d8aimg, DFR8lastref, d8gimg integer numberfailed, ISFIRST, NOTFIRST, MAXLENLAB integer MAXLEN_DESC, ROWS, COLS, REPS integer DFTAG_SDG, DFTAG_RIG parameter ( ISFIRST = 1, * NOTFIRST = 0, * MAXLENLAB = 30, * MAXLEN_DESC = 500, * DFTAG_SDG = 700, * DFTAG_RIG = 306, * ROWS = 10, * COLS = 10, * REPS = 2 ) integer refnum integer ret integer rank integer j, dimsizes(2) integer fhandle, anhandle, ahandle integer DFACC_CREATE, DFACC_READ integer AN_DATA_LABEL, AN_DATA_DESC, AN_FILE_LABEL, AN_FILE_DESC character*30 labsds, labsds2 character*30 labris, labris2 character*500 descsds, descsds2 character*500 descris, descris2 character*35 lab1, lab2 character*100 desc1, desc2 character pal(768) character*64 TESTFILE character*1 CR character image(ROWS, COLS), newimage(ROWS, COLS) real data(ROWS, COLS) call ptestban('Testing', myname) number_failed = 0 numberfailed = 0 CR = char(10) DFACC_CREATE = 4 DFACC_READ = 1 AN_DATA_LABEL = 0 AN_DATA_DESC = 1 AN_FILE_LABEL = 2 AN_FILE_DESC = 3 TESTFILE = 'manf.hdf' C *** set up file labels and descriptions *** lab1 = 'File label #1: aaa' lab2 = 'File label #2: bbbbbb' desc1 = 'File descr #1: This is a test file annotation' desc2 = 'File descr #2: One more test ...' C *** set up object labels and descriptions *** labsds = 'Object label #1: sds' labsds2 = 'Object label #1: sds2' labris = 'Object label #2: image' labris2 = 'Object label #2: image2' descsds = 'Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 ' * // CR // ' 13 14 15 16 17 18 19 20 ' * // ' **END SDS DESCR**' descsds2 = 'Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 ' * // CR // ' 13 14 15 16 17 18 19 20 ' * // ' **END SDS2 DESCR**' descris = 'Object Descr #2: A B C D E F G H I J K L ' * // CR // ' M N O **END IMAGE DESCR **' descris2 = 'Object Descr #2: A B C D E F G H I J K L ' * // CR // ' M N O **END IMAGE2 DESCR **' C *** generate float array and image *** rank = 2 dimsizes(1)=ROWS dimsizes(2)=COLS call gen2Dfloat(ROWS, COLS, data) call genimage(ROWS, COLS, data, image) ret = dssdims(rank,dimsizes) call VRFY(ret,'dssdims',number_failed) C *** start annotation on file *** fhandle = hopen(TESTFILE,DFACC_CREATE, 0) ret = fhandle call VRFY(ret,'fhanlde',number_failed) ahandle = afstart(fhandle) ret = ahandle call VRFY(ret,'afstart',number_failed) C *** write file 2 labels/ 2 descriptions *** anhandle = affcreate(ahandle, AN_FILE_LABEL) ret = anhandle call VRFY(ret, 'affcreate', number_failed) ret = afwriteann(anhandle,lab2,len(lab2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = affcreate(ahandle, AN_FILE_LABEL) ret = anhandle call VRFY(ret, 'affcreate', number_failed) ret = afwriteann(anhandle,lab1,len(lab1)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = affcreate(ahandle, AN_FILE_DESC) ret = anhandle call VRFY(ret, 'affcreate', number_failed) ret = afwriteann(anhandle,desc2,len(desc2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = affcreate(ahandle, AN_FILE_DESC) ret = anhandle call VRFY(ret, 'affcreate', number_failed) ret = afwriteann(anhandle,desc1,len(desc1)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) C *** Write data labels and descriptions *** call MESSAGE(VERBO_HI, + '*** Writing labels & descriptions with SDS and RIS ***') do 100 j=1,REPS C *** write out scientific data set ret = dsadata(TESTFILE, rank,dimsizes, data) call VRFY(ret, 'dsadata', number_failed) C **** write out annotations for 2 out of every 3 if (mod(j,3) .ne. 0) then refnum = dslref() C ********** Write out 2 labels for each SDS ***************** anhandle = afcreate(ahandle,DFTAG_SDG,refnum,AN_DATA_LABEL) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,labsds2,len(labsds2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = afcreate(ahandle,DFTAG_SDG,refnum,AN_DATA_LABEL) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,labsds,len(labsds)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) C *********** Write out 2 descritptions for each SDS *********** anhandle = afcreate(ahandle,DFTAG_SDG,refnum,AN_DATA_DESC) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,descsds2,len(descsds2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = afcreate(ahandle,DFTAG_SDG,refnum,AN_DATA_DESC) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,descsds,len(descsds)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) endif ret = d8aimg(TESTFILE, image, COLS, ROWS, 0) call VRFY(ret, 'd8aimg', number_failed) refnum = DFR8lastref() C ********** Write out 2 labels for each Image ***************** anhandle = afcreate(ahandle, DFTAG_RIG, refnum, AN_DATA_LABEL) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,labris2,len(labris2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = afcreate(ahandle, DFTAG_RIG, refnum, AN_DATA_LABEL) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,labris,len(labris)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) C *********** Write out 2 descritptions for each Image *********** anhandle = afcreate(ahandle, DFTAG_RIG, refnum, AN_DATA_DESC) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,descris2,len(descris2)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) anhandle = afcreate(ahandle, DFTAG_RIG, refnum, AN_DATA_DESC) ret = anhandle call VRFY(ret, 'afcreate', number_failed) ret = afwriteann(anhandle,descris,len(descris)) call VRFY(ret, 'afwriteann', number_failed) ret = afendaccess(anhandle) call VRFY(ret, 'afendaccess', number_failed) 100 continue C ******* End writing annotatons ********** ret = afend(ahandle) call VRFY(ret, 'afend', number_failed) ret = hclose(fhandle) call VRFY(ret, 'hclose', number_failed) C******** Read data labels and descriptions ********* call MESSAGE(VERBO_HI, + '*** Reading labels and descriptions for SDS and RIS ***') do 200 j=1,REPS ret = dsgdims(TESTFILE, rank,dimsizes,3) call VRFY(ret, 'dsgdims', number_failed) refnum = dslref() C ****** read in annotations for 2 out of every 3 if (mod(j,3) .ne. 0) then call man_check_lab_desc(TESTFILE, DFTAG_SDG, refnum, * labsds, descsds, numberfailed) call man_check_lab_desc(TESTFILE, DFTAG_SDG, refnum, * labsds2, descsds2, numberfailed) endif C **** read annotations for images ret = d8gimg(TESTFILE, newimage, COLS, ROWS, pal) call VRFY(ret, 'd8gimg', number_failed) refnum = DFR8lastref() call man_check_lab_desc(TESTFILE, DFTAG_RIG, refnum, * labris, descris, numberfailed) call man_check_lab_desc(TESTFILE, DFTAG_RIG, refnum, * labris2, descris2, numberfailed) 200 continue C ****** Check file labels/descriptions ******* call MESSAGE(VERBO_HI, + '*** Reading file labels and descriptions ***') call check_fan(TESTFILE, 0, lab1, desc1, numberfailed) call check_fan(TESTFILE, 1, lab2, desc2, numberfailed) if ( numberfailed .eq. 0 ) then call MESSAGE(VERBO_HI, + '***** ALL ANxxx TESTS SUCCESSFUL ***** ') else print *,'***** ',numberfailed,' TESTS FAILED ***** ' endif return end C************************************************************** C C man_check_lab_desc: read and compare label and description C with expected ones C C************************************************************** subroutine man_check_lab_desc(fname, tag, ref, label, desc, * num_failed) implicit none include 'fortest.inc' character*(*) fname, label, desc integer tag, ref, num_failed integer MAXLENLAB, MAXLEN_DESC parameter ( MAXLENLAB = 30, * MAXLEN_DESC = 500 ) character*15 ERR_FILE parameter (ERR_FILE = 'Fortran_err.dat') integer inlablen, indesclen, ret integer affileinfo, afnumann, afannlist, afannlen integer afreadann, afstart, afend, afendaccess, hopen, hclose integer hishdff, hestringf, heprntf character*80 error_message integer fileh, anh integer nflabs, nfdescs, nolabs, nodescs integer numdlabels, numddescs integer annlen, j, found, fannlen integer dlabels(2), ddescs(2) character*30 inlabel, fannlabel character*500 indesc, fanndesc integer AN_DATA_LABEL, AN_DATA_DESC, AN_FILE_LABEL, AN_FILE_DESC integer DFACC_READ integer error_code DFACC_READ = 1 AN_DATA_LABEL = 0 AN_DATA_DESC = 1 AN_FILE_LABEL = 2 AN_FILE_DESC = 3 error_code = 0 C ***** Test if the file fname is an HDF file C C ret = hishdff(fname) if (ret .ne. 1) then num_failed = num_failed + 1 write(*,*) 'HISHDFF function failed' endif ret = hestringf(error_code, error_message) if (ret .ne. 0) then num_failed = num_failed + 1 write(*,*) 'HESTRINGF function failed' goto 1111 endif if (error_message(1:len(error_message)) .ne. "No error") then num_failed = num_failed + 1 write(*,*) 'HESTRINGF function failed' endif 1111 continue C C Call hishdff with file not being an hdf file. Call should return C 0 C ret = hishdff('manf.f') if (ret .ne. 0) then num_failed = num_failed + 1 write(*,*) 'HISHDFF function failed' endif C C ***** end of hishdff test C C *****start annotation access on file ***** fileh = hopen('nonexist', DFACC_READ,0) ret = heprntf(ERR_FILE, 0) fileh = hopen(fname, DFACC_READ,0) ret = fileh call VRFY(ret, 'hopen', num_failed) anh = afstart(fileh) ret = anh call VRFY(ret, 'afstart', num_failed) ret = affileinfo(anh,nflabs,nfdescs,nolabs,nodescs) call VRFY(ret, 'affileinfo', num_failed) numdlabels = afnumann(anh, AN_DATA_LABEL, tag, ref) call VRFY(numdlabels, 'afnumann', num_failed) numddescs = afnumann(anh, AN_DATA_DESC, tag, ref) call VRFY(numddescs, 'afnumann', num_failed) ret = afannlist(anh, AN_DATA_LABEL, tag, ref, dlabels) call VRFY(ret, 'afannlist', num_failed) ret = afannlist(anh, AN_DATA_DESC, tag, ref, ddescs) call VRFY(ret, 'afannlist', num_failed) C ***** Look for label in list ****** found = 0 fannlen = 0 fannlabel = ' ' do 300 j=1, numdlabels annlen = afannlen(dlabels(j)) call VRFY(annlen, 'afannlen', num_failed) ret = afreadann(dlabels(j), inlabel, MAXLENLAB) call VRFY(ret, 'afreadann', num_failed) ret = afendaccess(dlabels(j)) call VRFY(ret, 'afendaccess', num_failed) if (inlabel .eq. label) then found = 1 inlablen = annlen fannlabel = inlabel endif 300 continue C ****** Check if we found label in list ***** if (inlablen .ne. len(label)) then print *,' >>>BAD LABEL LENGTH.' print *,' IS: ', inlablen print *,' SHOULD BE: ', len(label) num_failed = num_failed + 1 endif if (fannlabel .ne. label) then print *,' >>>BAD LABEL.' print *,' IS: ', fannlabel print *,' SHOULD BE: ', label num_failed = num_failed + 1 endif C ***** look for description in list found = 0 fannlen = 0 fanndesc = ' ' do 400 j=1, numddescs annlen = afannlen(ddescs(j)) call VRFY(annlen, 'afannlen', num_failed) ret = afreadann(ddescs(j), indesc, MAXLEN_DESC) call VRFY(ret, 'afreadann', num_failed) ret = afendaccess(ddescs(j)) call VRFY(ret, 'afendaccess', num_failed) if (indesc .eq. desc) then found = 1 indesclen = annlen fanndesc = indesc endif 400 continue if (indesclen .ne. len(desc)) then print *,' >>>BAD DESCRIPTION LENGTH.' print *,' IS: ', indesclen print *,' SHOULD BE: ', len(desc) num_failed = num_failed + 1 endif if (fanndesc .ne. desc) then print *,' >>>BAD DESCRIPTION.' print *,' IS: ', fanndesc print *,' SHOULD BE: ', desc num_failed = num_failed + 1 endif C ****** close file ******* ret = afend(anh) call VRFY(ret, 'afend', num_failed) ret = hclose(fileh) call VRFY(ret, 'hclose', num_failed) ret = hclose(fileh) ret = heprntf(ERR_FILE, 0) return end C************************************************************ C C SUBROUTINE check_fan C C************************************************************ subroutine check_fan(fname, index, label, desc, num_failed) implicit none include 'fortest.inc' character*(*) fname, label, desc integer index, num_failed integer MAXLENFLAB, MAXLEN_FDESC parameter ( MAXLENFLAB = 35, * MAXLEN_FDESC = 100 ) integer affileinfo, afselect, afannlen, afreadann integer afstart, afend, afendaccess, hopen, hclose integer ret integer fileh, annh, anh integer nflabs, nfdescs, nolabs, nodescs integer fannlen character*35 flabel character*100 fdesc integer AN_DATA_LABEL, AN_DATA_DESC, AN_FILE_LABEL, AN_FILE_DESC integer DFACC_READ DFACC_READ = 1 AN_DATA_LABEL = 0 AN_DATA_DESC = 1 AN_FILE_LABEL = 2 AN_FILE_DESC = 3 C **** We check both file label/description fileh = hopen(fname, DFACC_READ,0) ret = fileh call VRFY(ret, 'hopen', num_failed) anh = afstart(fileh) ret = anh call VRFY(ret, 'afstart', num_failed) ret = affileinfo(anh,nflabs,nfdescs,nolabs,nodescs) call VRFY(ret, 'affileinfo', num_failed) C ***** Read file label ********** annh = afselect(anh, index, AN_FILE_LABEL) call VRFY(ret, 'afselect', num_failed) fannlen = afannlen(annh) call VRFY(fannlen, 'afannlen', num_failed) ret = afreadann(annh, flabel, fannlen) call VRFY(ret, 'afreadann', num_failed) ret = afendaccess(annh) call VRFY(ret, 'afendaccess', num_failed) if (fannlen .ne. len(label)) then print *,' >>>BAD LABEL LENGTH.' print *,' IS: ', fannlen print *,' SHOULD BE: ', len(label) num_failed = num_failed + 1 endif if (flabel .ne. label) then print *,' >>>BAD LABEL.' print *,' IS: ', flabel print *,' SHOULD BE: ', label num_failed = num_failed + 1 endif C **** Read file description ***** annh = afselect(anh, index, AN_FILE_DESC) call VRFY(ret, 'afselect', num_failed) fannlen = afannlen(annh) call VRFY(fannlen, 'afannlen', num_failed) ret = afreadann(annh, fdesc, fannlen) call VRFY(ret, 'afreadann', num_failed) ret = afendaccess(annh) call VRFY(ret, 'afendaccess', num_failed) if (fannlen .ne. len(desc)) then print *,' >>>BAD DESCRIPTION LENGTH.' print *,' IS: ', fannlen print *,' SHOULD BE: ', len(desc) num_failed = num_failed + 1 endif if (fdesc .ne. desc) then print *,' >>>BAD DESCRIPTION.' print *,' IS: ', fdesc print *,' SHOULD BE: ', desc num_failed = num_failed + 1 endif C ****** close file ******* ret = afend(anh) call VRFY(ret, 'afend', num_failed) ret = hclose(fileh) call VRFY(ret, 'hclose', num_failed) return end libhdf4-4.2.10/HDF_ALT/hdf/test/tv1.res0000644000000000000000000000357512421456623014065 0ustar # # NOTE: This file was generated on a machine where the size of # local ints and floats is 4 bytes. On machines with different # sizes the 'vsize=X' entries will be different. # FULL DUMP FILE: tv1.hdf vg:0 <1965/2> (test_vgroup#0 {}) has 0 entries: vg:1 <1965/3> (test_vgroup#1 {}) has 0 entries: vg:2 <1965/4> (test_vgroup#2 {}) has 0 entries: vg:3 <1965/5> (test_vgroup#3 {}) has 0 entries: vg:4 <1965/6> (test_vgroup#4 {}) has 0 entries: Lone vdatas: L vs:7 <1962/7> nv=5 i=0 fld [PRESS] vsize=4 (vdata#0 {}) 0: fld [PRESS], type=5, order=1 500.000000 501.000000 504.000000 509.000000 516.000000 L vs:8 <1962/8> nv=10 i=0 fld [PRESS] vsize=4 (vdata#1 {}) 0: fld [PRESS], type=5, order=1 1000.000000 1001.000000 1004.000000 1009.000000 1016.000000 1025.000000 1036.000000 1049.000000 1064.000000 1081.000000 L vs:9 <1962/9> nv=15 i=0 fld [PRESS] vsize=4 (vdata#2 {}) 0: fld [PRESS], type=5, order=1 1500.000000 1501.000000 1504.000000 1509.000000 1516.000000 1525.000000 1536.000000 1549.000000 1564.000000 1581.000000 1600.000000 1621.000000 1644.000000 1669.000000 1696.000000 L vs:10 <1962/10> nv=20 i=0 fld [PRESS] vsize=4 (vdata#3 {}) 0: fld [PRESS], type=5, order=1 2000.000000 2001.000000 2004.000000 2009.000000 2016.000000 2025.000000 2036.000000 2049.000000 2064.000000 2081.000000 2100.000000 2121.000000 2144.000000 2169.000000 2196.000000 2225.000000 2256.000000 2289.000000 2324.000000 2361.000000 L vs:11 <1962/11> nv=25 i=0 fld [PRESS] vsize=4 (vdata#4 {}) 0: fld [PRESS], type=5, order=1 2500.000000 2501.000000 2504.000000 2509.000000 2516.000000 2525.000000 2536.000000 2549.000000 2564.000000 2581.000000 2600.000000 2621.000000 2644.000000 2669.000000 2696.000000 2725.000000 2756.000000 2789.000000 2824.000000 2861.000000 2900.000000 2941.000000 2984.000000 3029.000000 3076.000000 libhdf4-4.2.10/HDF_ALT/hdf/test/tsdmmsf.f0000644000000000000000000002401612421456623014455 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tsdmmsf.f 6036 2014-01-20 17:28:01Z acheng $ C subroutine tsdmmsf (number_failed) C C C Program to test writing SDSs with different types of data and C scales and max/min values. C C Input file: none C Output files: o0, o1, ... o6 C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'sdmms') integer dsgdata, dsadata, dssdims, dssrang, dsgrang, dssnt integer dssdisc, dsgdisc, dsscal, dsgcal real*8 f64(10,10), tf64(10,10) real*8 f64scale(10), tf64scale(10) real*8 f64max, f64min, tf64max, tf64min real*8 cal, cale, ioff, ioffe real*8 ical, icale, iioff, iioffe integer*4 ctype, ictype real*4 f32(10,10), tf32(10,10) real*4 f32scale(10), tf32scale(10) real*4 f32max, f32min, tf32max, tf32min character i8(10,10), ti8(10,10) character i8scale(10), ti8scale(10), i8max, i8min character ti8max, ti8min C Align the Character variables with the surrogate names. C Need to do this because HDF always assume int8 is a packed 8 bits C quantities of precisely 1 byte big. Integer*1 may have memory size C as large as a normal integer (e.g. Cray). C Cannot just use the character variables as for some compilers, C the argument address of a character argument is not compatible with C that of a numerial argument. integer surri8, surri8max, surri8min, surri8scale integer surrti8, surrti8max, surrti8min, surrti8scale equivalence (i8, surri8) equivalence (i8scale, surri8scale) equivalence (i8min, surri8min) equivalence (i8max, surri8max) equivalence (ti8, surrti8) equivalence (ti8scale, surrti8scale) equivalence (ti8min, surrti8min) equivalence (ti8max, surrti8max) integer*2 i16(10,10), ti16(10,10) integer*2 i16scale(10), ti16scale(10), i16max, i16min integer*2 ti16max, ti16min integer*4 i32(10,10), ti32(10,10) integer*4 i32scale(10), ti32scale(10), i32max, i32min integer*4 ti32max, ti32min integer i, j, err, err1, err2, err3, err4 integer rank, dims(2) integer DFNT_FLOAT64, DFNT_FLOAT32, DFNT_INT8, DFNT_INT16 integer DFNT_INT32 call ptestban('Testing', myname) f64max = 40.0 f64min = 0.0 f32max = 40.0 f32min = 0.0 i8max = char(127) C NOTE: If you get a compile error on the "char(-128)" line, substitute C the "char(0)" line. Its not quite as thorough a test, but... i8min = char(0) C i8min = char(-128) i16max = 1200 i16min = -1200 i32max = 99999999 i32min = -999999999 rank = 2 dims(1) = 10 dims(2) = 10 number_failed = 0 DFNT_FLOAT64 = 6 DFNT_FLOAT32 = 5 DFNT_INT8 = 20 DFNT_INT16 = 22 DFNT_INT32 = 24 C C Set up some calibration info C cal = 10.0 cale = 35.235 ioff = 16.75 ioffe = 47.8 ctype = DFNT_INT16 call MESSAGE(5, 'Creating arrays...') do 110 i=1,10 do 100 j=1,10 f64(i,j) = (i * 40) + j f32(i,j) = (i * 40) + j i8(i,j) = char( (i * 10) + j ) i16(i,j) = (i * 3000) + j i32(i,j) = (i * 20) + j 100 continue f64scale(i) = (i * 40) + j f32scale(i) = (i * 40) + j i8scale(i) = char((i * 10) + j) i16scale(i) = (i * 3000) + j i32scale(i) = (i * 20) + j 110 continue err1 = dssdims(rank, dims) C C Writing dimscale, max/min, and arrays to a single file C call MESSAGE(5, 'Writing arrays to single file...') err = dssnt(DFNT_FLOAT64) err1 = dssdisc(1, 10, f64scale) err2 = dssrang(f64max, f64min) err4 = dsscal(cal, cale, ioff, ioffe, ctype) err3 = dsadata('of.hdf', rank, dims, f64) call errchkio(err1, err2, err3, number_failed, 'float64 write') if(err4.eq.(-1)) then number_failed = number_failed + 1 print *, '>>> Setting calibration failed' endif err = dssnt(DFNT_FLOAT32) err1 = dssdisc(1, 10, f32scale) err2 = dssrang(f32max, f32min) err3 = dsadata('of.hdf', rank, dims, f32) call errchkio(err1, err2, err3, number_failed, 'float32 write') err = dssnt(DFNT_INT8) err1 = dssdisc(1, 10, surri8scale) err2 = dssrang(surri8max, surri8min) err3 = dsadata('of.hdf', rank, dims, surri8) call errchkio(err1, err2, err3, number_failed, 'int8 write') err = dssnt(DFNT_INT16) err1 = dssdisc(1, 10, i16scale) err2 = dssrang(i16max, i16min) err3 = dsadata('of.hdf', rank, dims, i16) call errchkio(err1, err2, err3, number_failed, 'int16 write') err = dssnt(DFNT_INT32) err1 = dssdisc(1, 10, i32scale) err2 = dssrang(i32max, i32min) err3 = dsadata('of.hdf', rank, dims, i32) call errchkio(err1, err2, err3, number_failed, 'int32 write') C C Reading back dimscales, max/min, and arrays from single file C err1 = dsgdata('of.hdf', rank, dims, tf64) err2 = dsgdisc(1, 10, tf64scale) err3 = dsgrang(tf64max, tf64min) err4 = dsgcal(ical, icale, iioff, iioffe, ictype) call errchkio(err1, err2, err3, number_failed, 'float64 read') if(err4.eq.(-1)) then number_failed = number_failed + 1 print *, '>>> Reading calibration failed' endif if((cal.ne.ical).or.(cale.ne.icale)) then if((ioff.ne.iioff).or.(ioff.ne.iioffe)) then if(ctype.ne.ictype) then print *, '>>>Returned calibration values are wrong' print *, ical, icale print *, iioff, iioffe print *, ictype print *, cal, cale print *, ioff, ioffe print *, ctype number_failed = number_failed + 1 endif endif endif err1 = dsgdata('of.hdf', rank, dims, tf32) err2 = dsgdisc(1, 10, tf32scale) err3 = dsgrang(tf32max, tf32min) err4 = dsgcal(ical, icale, iioff, iioffe, ictype) call errchkio(err1, err2, err3, number_failed, 'float32 read') if(err4.ne.(-1)) then number_failed = number_failed + 1 print *, '>>> Read calibration where none stored' endif err1 = dsgdata('of.hdf', rank, dims, surrti8) err2 = dsgdisc(1, 10, surrti8scale) err3 = dsgrang(surrti8max, surrti8min) call errchkio(err1, err2, err3, number_failed, 'int8 read') err1 = dsgdata('of.hdf', rank, dims, ti16) err2 = dsgdisc(1, 10, ti16scale) err3 = dsgrang(ti16max, ti16min) call errchkio(err1, err2, err3, number_failed, 'int16 read') err1 = dsgdata('of.hdf', rank, dims, ti32) err2 = dsgdisc(1, 10, ti32scale) err3 = dsgrang(ti32max, ti32min) call errchkio(err1, err2, err3, number_failed, 'int32 read') C C Checking dimscales, max/min and arrays from single file C call MESSAGE(5, + 'Checking dimscales, max/min & arrays from single file') C float64 err1 = 0 err2 = 0 err3 = 0 do 1010 i=1,10 do 1000 j=1,10 if (f64(i,j) .ne. tf64(i,j)) err1 = 1 1000 continue if (f64scale(i) .ne. tf64scale(i)) err2 = 1 1010 continue if ((f64max .ne. tf64max) .or. (f64min .ne. tf64min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'float64') C float32 err1 = 0 err2 = 0 err3 = 0 do 1030 i=1,10 do 1020 j=1,10 if (f32(i,j) .ne. tf32(i,j)) err1 = 1 1020 continue if (f32scale(i) .ne. tf32scale(i)) err2 = 1 1030 continue if ((f32max .ne. tf32max) .or. (f32min .ne. tf32min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'float32') C int8 err1 = 0 err2 = 0 err3 = 0 do 1110 i=1,10 do 1100 j=1,10 if (i8(i,j) .ne. ti8(i,j)) err1 = 1 1100 continue if (i8scale(i) .ne. ti8scale(i)) err2 = 1 1110 continue if ((i8max .ne. ti8max) .or. (i8min .ne. ti8min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int8') C int16 err1 = 0 err2 = 0 err3 = 0 do 1210 i=1,10 do 1200 j=1,10 if (i16(i,j) .ne. ti16(i,j)) err1 = 1 1200 continue if (i16scale(i) .ne. ti16scale(i)) err2 = 1 1210 continue if ((i16max .ne. ti16max) .or. (i16min .ne. ti16min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int16') C int32 err1 = 0 err2 = 0 err3 = 0 do 1310 i=1,10 do 1300 j=1,10 if (i32(i,j) .ne. ti32(i,j)) err1 = 1 1300 continue if (i32scale(i) .ne. ti32scale(i)) err2 = 1 1310 continue if ((i32max .ne. ti32max) .or. (i32min .ne. ti32min)) err3 = 1 call errchkarr(err1, err2, err3, number_failed, 'int32') C C Sum up C if (number_failed .gt. 0 ) then print *, ' >>> ', number_failed, ' TESTS FAILED <<<' else if (verbosity .ge. VERBO_HI) then print *, ' >>> ALL TESTS PASSED <<<' endif endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/README0000644000000000000000000000340412421456623013507 0ustar This directory contains the test suite for the basic library, libdf.a. After running the makefile at either the higher level or this level, you will find two executable programs, testhdf and fortest, in this directory. Testhdf tests the C functions, while fortest the Fortran interface. At the end of execution, each program reports how many errors occurred. Please contact us at hdfhelp@ncsa.uiuc.edu if the test fails on your machine. Special notes for fortest: "fortest" is just a C-code front to parse command line arguments. It produces a file, fortest.arg which contains lines of instruction to invoke the real fortran test which is called fortestF. Each line in fortest.arg contains a command and a parameter. Command Parameter Description ------- --------- ----------- Test Name Test Skip Name Skip test Cleanup String How to cleanup *.hdf Verbosity Integer Verbosity = "fortest" then invokes "fortestF" with "fortest.arg" as input. Cleanup Commands ---------------- If is Yes/No, it directs to delete the *.hdf files or not. If is not Yes/No, it represents the system command to delete the *.hdf files. (NOTE: specifying a system command does not imply Cleanup.) Verbosity convention -------------------- The higher the verbosity value, the more information printed. So, output for a higher verbosity value also includes the output of all lower verbosity values. Value Description 0 None: No informational message. 1 "All tests passed" 2 Header of overall test 3 Default: header and results of individual test 4 5 Low: Major category of tests. 6 7 Medium: Minor category of tests such as functions called. 8 9 High: Highest level. All information. libhdf4-4.2.10/HDF_ALT/hdf/test/tr8f.f0000644000000000000000000002146012421456623013663 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tr8f.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine tr8f (number_failed) implicit none include 'fortest.inc' C C Test program: C Writes images together with pals to a file. C Reads images from the file. C Writes and reads images with speicfied ref's. C Input file: none C Output file: tdfr8f.hdf C integer number_failed character*20 myname parameter (myname = 'r8') integer d8spal, d8pimg, d8aimg, d8gdims, d8nims integer d8gimg, d8rref, d8wref, d8first, d8lref integer DFTAG_RLE, DFTAG_IMCOMP character im1(100,100), im2(321, 111) character ii1(100, 100), ii2(321, 111) character pal1(768), pal2(768), ipal(768) character*64 TESTFILE character*1 CR integer x, y, ret, num_images integer d1, d2, ispal integer ref1, ref2, ref3 call ptestban('Testing', myname) DFTAG_RLE = 11 DFTAG_IMCOMP = 12 TESTFILE = 'tdfr8f.hdf' number_failed = 0 num_images = 0 CR = char(10) do 120 x=1, 100 do 100 y=1, 100 im1(y,x) = char(x+y) 100 continue 120 continue do 180 x=1, 111 do 150 y=1, 321 im2(y,x) = char(y-x) 150 continue 180 continue do 200 x=1, 256 pal1(3*x - 2) = char(x) pal1(3*x - 1) = char(x) pal1(3*x ) = char(x) pal2(x) = char(x) pal2(x+256) = char(x) pal2(x+512) = char(x) 200 continue C Start here call MESSAGE(VERBO_HI, 'Setting palette 1') ret = d8spal(pal1) call VRFY(ret, 'd8spal',number_failed) call MESSAGE(VERBO_HI, + 'Putting image 1 with pal 1, no compression') ret=d8pimg(TESTFILE, im1, 100, 100, 0) call VRFY(ret, 'd8pimg',number_failed) num_images = num_images + 1 call MESSAGE(VERBO_HI, 'Getting ref1') ref1 = d8lref() call MESSAGE(VERBO_HI, + 'Putting image 2 with pal 1, REL compression') ret=d8aimg(TESTFILE, im2, 321, 111, DFTAG_RLE) call VRFY(ret, 'd8aimg',number_failed) num_images = num_images + 1 call MESSAGE(VERBO_HI, 'Getting ref2') ref2 = d8lref() call MESSAGE(VERBO_HI, 'Setting palette 2') ret = d8spal(pal2) call VRFY(ret, 'd8spal',number_failed) call MESSAGE(VERBO_HI, + 'Putting image 2 with pal 2, IMCOMP compression') ret=d8aimg(TESTFILE, im2, 321, 111, DFTAG_IMCOMP) call VRFY(ret, 'd8aimg',number_failed) num_images = num_images + 1 call MESSAGE(VERBO_HI, 'Getting ref3') ref3 = d8lref() call MESSAGE(VERBO_HI, 'Getting number of images') ret = d8nims(TESTFILE) if (ret .ne. num_images) then print *, ' >>>> WRONG NUMBER OF IMAGES <<< ' else if (Verbosity .ge. VERBO_HI) then print *, ret, ' images in the file' endif endif call MESSAGE(VERBO_HI, 'Restarting file') ret = d8first() call VRFY(ret, 'd8first',number_failed) call MESSAGE(VERBO_HI, 'Getting dimensions of first image') ret=d8gdims(TESTFILE, d1, d2, ispal) call VRFY(ret, 'd8gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image 1') ret=d8gimg(TESTFILE, ii1, 100, 100, ipal) call VRFY(ret, 'd8gimg',number_failed) call check_im1_pal(100, 100, d1, d2, im1, ii1, pal1, ipal) call MESSAGE(VERBO_HI, 'Getting dimensions of image2') ret=d8gdims(TESTFILE, d1, d2, ispal) call VRFY(ret, 'd8gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting dimensions of image 3') ret=d8gdims(TESTFILE, d1, d2, ispal) call VRFY(ret, ' d8gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image 3') ret = d8gimg(TESTFILE, ii2, 321, 111, ipal) call VRFY(ret, 'd8gimg',number_failed) call MESSAGE(VERBO_HI, 'setting read ref2') ret = d8rref(TESTFILE, ref2) call VRFY(ret, 'd8rref',number_failed) call MESSAGE(VERBO_HI, 'Getting image 2') ret = d8gimg(TESTFILE, ii2, 321, 111,ipal) call VRFY(ret, 'd8gimg',number_failed) call check_im2_pal(321,111,321, 111, im2, ii2, pal1, ipal) call MESSAGE(VERBO_HI,'Setting write ref1') ret = d8wref(TESTFILE, ref1) call VRFY(ret, 'd8wref',number_failed) call MESSAGE(VERBO_HI, 'Setting palette 2') ret = d8spal(pal2) call VRFY(ret, 'd8spal',number_failed) call MESSAGE(VERBO_HI,'Putting image 1 with pal 2, RLE') ret = d8aimg(TESTFILE, im1, 100, 100, DFTAG_RLE) call VRFY(ret, 'd8aimg',number_failed) call MESSAGE(VERBO_HI, 'Setting read ref1') ret = d8rref(TESTFILE, ref1) call VRFY(ret, 'd8rref',number_failed) call MESSAGE(VERBO_HI, 'Getting dimensions of first image') ret = d8gdims(TESTFILE, d1, d2, ispal) call VRFY(ret, 'd8gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image 1') ret = d8gimg(TESTFILE, ii1, d1, d2, ipal) call VRFY(ret, 'd8gimg',number_failed) call check_im1_pal(100, 100, d1, d2, im1, ii1, pal2, ipal) if (number_failed .eq. 0) then call MESSAGE(VERBO_HI, '****** ALL TESTS SUCCESSFUL *******') else print *, '****' , number_failed, ' TESTS FAILED ****' endif return end C******************************************************** C C check_im1_pal C C******************************************************** subroutine check_im1_pal(od1,od2,nd1,nd2,oim,nim,opal,npal) implicit none include 'fortest.inc' integer od1, od2, nd1, nd2 character oim(100, 100), nim(100, 100) character opal(768), npal(768) integer prob, i, j prob = 0 call MESSAGE(VERBO_HI, 'Checking image and palette') if (od1 .ne. nd1 .OR. od2 .ne. nd2) then print *, ' >>> DIMENSIONS WRONG <<< ' prob = 1 endif do 520 j=1, 100 do 500 i=1,100 if (oim(i,j) .ne. nim(i,j)) then print *, ' ERROR at ', i, j,' old image: ', * oim(i,j), ' new image: ', nim(i,j) prob = 1 endif 500 continue 520 continue if (prob .eq. 0) then call MESSAGE(VERBO_HI, 'Image is correct') endif prob = 0 do 550 i=1,768 if (opal(i) .ne. npal(i)) then print *, ' ERROR at ',i, 'old pal: ', opal(i), * ' new pal: ', npal(i) prob = 1 endif 550 continue if (prob .eq. 0) then call MESSAGE(VERBO_HI, 'Palette is correct') endif return end C******************************************************** C C check_im2_pal C C******************************************************** subroutine check_im2_pal(od1,od2,nd1,nd2,oim,nim,opal,npal) implicit none include 'fortest.inc' integer od1, od2, nd1, nd2 character oim(321, 111), nim(321, 111) character opal(768), npal(768) integer prob, i, j prob = 0 call MESSAGE(VERBO_HI, 'Checking image and palette') if (od1 .ne. nd1 .OR. od2 .ne. nd2) then print *, ' >>> DIMENSIONS WRONG <<< ' prob = 1 endif do 520 j=1, 111 do 500 i=1,321 if (oim(i,j) .ne. nim(i,j)) then print *, ' ERROR at ', i, j,' old image: ', * oim(i,j), ' new image: ', nim(i,j) prob = 1 endif 500 continue 520 continue if (prob .eq. 0) then call MESSAGE(VERBO_HI, 'Image is correct') endif prob = 0 do 550 i=1,768 if (opal(i) .ne. npal(i)) then print *, ' ERROR at ',i, 'old pal: ', opal(i), * ' new pal: ', npal(i) prob = 1 endif 550 continue if (prob .eq. 0) then call MESSAGE(VERBO_HI, 'Palette is correct') endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/sdmms.c0000644000000000000000000003633712421456623014131 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6035 $"; #endif /* $Id: sdmms.c 6035 2014-01-19 07:19:17Z bmribler $ */ #include "tproto.h" static float32 f32[10][10], tf32[10][10]; static float32 f32scale[10], tf32scale[10]; static float32 f32max = (float32) 40.0, f32min = (float32) 0.0; static float32 tf32max, tf32min; static int8 i8[10][10], ti8[10][10]; static int8 i8scale[10], ti8scale[10]; static int8 i8max = 127, i8min = -128; static int8 ti8max, ti8min; static uint8 ui8[10][10], tui8[10][10]; static uint8 ui8scale[10], tui8scale[10]; static uint8 ui8max = 255, ui8min = 0; static uint8 tui8max, tui8min; static int16 i16[10][10], ti16[10][10]; static int16 i16scale[10], ti16scale[10]; static int16 i16max = 1200, i16min = -1200; static int16 ti16max, ti16min; static uint16 ui16[10][10], tui16[10][10]; static uint16 ui16scale[10], tui16scale[10]; static uint16 ui16max = 20000, ui16min = 0; static uint16 tui16max, tui16min; static int32 i32[10][10], ti32[10][10]; static int32 i32scale[10], ti32scale[10]; static int32 i32max = 99999999, i32min = -999999999; static int32 ti32max, ti32min; static uint32 ui32[10][10], tui32[10][10]; static uint32 ui32scale[10], tui32scale[10]; static uint32 ui32max = 999999999, ui32min = 0; static uint32 tui32max, tui32min; static float64 cal1, cal2, cal3, cal4; static int32 cal5; static float64 ical1, ical2, ical3, ical4; static int32 ical5; void test_sdmms(void) { uint32 i, j; int err, err1, err2, ret; intn rank; int32 dims[2]; rank = 2; dims[0] = 10; dims[1] = 10; MESSAGE(5, printf("Creating arrays...\n"); ); for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) { f32[i][j] = (float32)((i * 40) + j); /* range: 0 ~ 4-billion */ i8[i][j] = (int8) ((i * 20) - 100 + j); /* range: 0 ~ 100 */ ui8[i][j] = (uint8) ((i * 20) + j); /* range: 0 ~ 200 */ i16[i][j] = (int16) ((i * 6000) - 30000 + j); /* range: 0 ~ 30000 */ ui16[i][j] = (uint16) ((i * 6000) + j); /* range: 0 ~ 60000 */ i32[i][j] = (int32) ((i * 60000) - 300000 + j); /* range: 0 ~ 2-billion */ ui32[i][j] = (uint32) ((i * 400000000U) + j); /* range: 0 ~ 4-billion */ } f32scale[i] = (float32) ((i * 40) + j); /* range: 0 ~ 4-billion */ i8scale[i] = (int8) ((i * 20) - 100 + j); /* range: 0 ~ 100 */ ui8scale[i] = (uint8) ((i * 20) + j); /* range: 0 ~ 200 */ i16scale[i] = (int16) ((i * 6000) - 30000 + j); /* range: 0 ~ 30000 */ ui16scale[i] = (uint16) ((i * 6000) + j); /* range: 0 ~ 60000 */ i32scale[i] = (int32) ((i * 60000) - 300000 + j); /* range: 0 ~ 2-billion */ ui32scale[i] = (uint32) ((i * 400000000U) + j); /* range: 0 ~ 4-billion */ } cal1 = (float64) 10.0; cal2 = (float64) 0.0; cal3 = (float64) 27.0; cal4 = (float64) 1.5; cal5 = (int32) DFNT_INT16; ret = DFSDsetdims(rank, dims); RESULT("DFSDsetdims"); MESSAGE(5, printf("Writing arrays to single file...\n"); ); ret = DFSDsetNT(DFNT_FLOAT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) f32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &f32max, (VOIDP) &f32min); RESULT("DFSDsetrange"); ret = DFSDsetcal(cal1, cal2, cal3, cal4, cal5); RESULT("DFSDsetcal"); ret = DFSDputdata("ntcheck.hdf", rank, dims, (VOIDP) f32); RESULT("DFSDputdata"); ret = DFSDsetNT(DFNT_INT8); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) i8scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i8max, (VOIDP) &i8min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) i8); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_UINT8); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) ui8scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui8max, (VOIDP) &ui8min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) ui8); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_INT16); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) i16scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i16max, (VOIDP) &i16min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) i16); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_UINT16); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) ui16scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui16max, (VOIDP) &ui16min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) ui16); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_INT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) i32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i32max, (VOIDP) &i32min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) i32); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_UINT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (void *) ui32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui32max, (VOIDP) &ui32min); RESULT("DFSDsetrange"); ret = DFSDadddata("ntcheck.hdf", rank, dims, (VOIDP) ui32); RESULT("DFSDadddata"); MESSAGE(5, printf("Reading arrays from single file...\n"); ); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) tf32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) tf32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tf32max, (VOIDP) &tf32min); RESULT("DFSDgetrange"); ret = DFSDgetcal(&ical1, &ical2, &ical3, &ical4, &ical5); RESULT("DFSDgetcal"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) ti8); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) ti8scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti8max, (VOIDP) &ti8min); RESULT("DFSDgetrange"); /* this test should return FAIL so that we can verify that when we don't store calibration info we don't get any info returned */ ret = DFSDgetcal(&ical1, &ical2, &ical3, &ical4, &ical5); CHECK_VOID(ret, SUCCEED, "DFSDgetcal"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) tui8); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) tui8scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui8max, (VOIDP) &tui8min); RESULT("DFSDgetrange"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) ti16); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) ti16scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti16max, (VOIDP) &ti16min); RESULT("DFSDgetrange"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) tui16); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) tui16scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui16max, (VOIDP) &tui16min); RESULT("DFSDgetrange"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) ti32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) ti32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti32max, (VOIDP) &ti32min); RESULT("DFSDgetrange"); ret = DFSDgetdata("ntcheck.hdf", rank, dims, (VOIDP) tui32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (void *) tui32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui32max, (VOIDP) &tui32min); RESULT("DFSDgetrange"); MESSAGE(5, printf("Checking arrays from single file...\n\n"); ); err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (f32[i][j] != tf32[i][j]) err = 1; if (f32scale[i] != tf32scale[i]) err2 = 1; } if ((f32max != tf32max) || (f32min != tf32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, { if (err == 1) printf(">>> Test failed for float32 array.\n"); else printf("Test passed for float32 array.\n"); } ) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for float32 scales.\n"); else printf("Test passed for float32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for float32 max/min.\n"); else printf("Test passed for float32 max/min.\n");) ; if ((cal1 != ical1) || (cal2 != ical2) || (cal3 != ical3) || (cal4 != ical4) || (cal5 != ical5)) { MESSAGE(5, printf(">>> Test failed for float32 calibration.\n"); ); MESSAGE(5, printf(" Is %f %f %f %f %d\n", ical1, ical2, ical3, ical4, (int) ical5); ); MESSAGE(5, printf(" sld be %f %f %f %f %d\n", cal1, cal2, cal3, cal4, (int) cal5); ); } else MESSAGE(5, printf("Test passed for float32 calibration.\n"); ); err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i8[i][j] != ti8[i][j]) err = 1; if (i8scale[i] != ti8scale[i]) err2 = 1; } if ((i8max != ti8max) || (i8min != ti8min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int8 array.\n"); else printf("Test passed for int8 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int8 scales.\n"); else printf("Test passed for int8 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int8 max/min.\n"); else printf("Test passed for int8 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui8[i][j] != tui8[i][j]) err = 1; if (ui8scale[i] != tui8scale[i]) err2 = 1; } if ((ui8max != tui8max) || (ui8min != tui8min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint8 array.\n"); else printf("Test passed for uint8 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint8 scales.\n"); else printf("Test passed for uint8 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint8 max/min.\n"); else printf("Test passed for uint8 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i16[i][j] != ti16[i][j]) err = 1; if (i16scale[i] != ti16scale[i]) err2 = 1; } if ((i16max != ti16max) || (i16min != ti16min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int16 array.\n"); else printf("Test passed for int16 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int16 scales.\n"); else printf("Test passed for int16 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int16 max/min.\n"); else printf("Test passed for int16 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui16[i][j] != tui16[i][j]) err = 1; if (ui16scale[i] != tui16scale[i]) err2 = 1; } if ((ui16max != tui16max) || (ui16min != tui16min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint16 array.\n"); else printf("Test passed for uint16 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint16 scales.\n"); else printf("Test passed for uint16 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint16 max/min.\n"); else printf("Test passed for uint16 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i32[i][j] != ti32[i][j]) err = 1; if (i32scale[i] != ti32scale[i]) err2 = 1; } if ((i32max != ti32max) || (i32min != ti32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int32 array.\n"); else printf("Test passed for int32 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int32 scales.\n"); else printf("Test passed for int32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int32 max/min.\n"); else printf("Test passed for int32 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui32[i][j] != tui32[i][j]) err = 1; if (ui32scale[i] != tui32scale[i]) err2 = 1; } if ((ui32max != tui32max) || (ui32min != tui32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint32 array.\n"); else printf("Test passed for uint32 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint32 scales.\n"); else printf("Test passed for uint32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint32 max/min.\n"); else printf("Test passed for uint32 max/min.\n");) ; } libhdf4-4.2.10/HDF_ALT/hdf/test/tanfilef.f0000644000000000000000000001501712421456623014571 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tanfilef.f 4932 2007-09-07 17:17:23Z bmribler $ C subroutine tanfilef (number_failed) C C C Test program: C Writes file labels and descriptions in a file. C Reads the labels and descriptions from the file C C Input file: none C Output files: tdfanflF.hdf C C Possible bug: When reading in a label, we have to give it a C length that is one greater than MAXLEN_LAB. This C may be due to a bug in dfan.c in DFANIgetann(). C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'anfile') integer daafid, daafds,dagfidl,dagfid integer dagfdsl, dagfds, hopen, hclose integer ret integer ISFIRST, NOFIRST, MAXLEN_LAB, MAXLEN_DESC integer fid, DFACC_CREATE, DFACC_READ character*35 lab1, lab2 character*35 templab character*100 desc1, desc2, tempstr character*64 TESTFILE character*1 CR call ptestban('Testing', myname) ISFIRST = 1 NOFIRST = 0 number_failed = 0 TESTFILE = 'tdfanflF.hdf' CR = char(10) MAXLEN_LAB = 35 MAXLEN_DESC = 100 DFACC_CREATE = 4 DFACC_READ = 1 lab1 = 'File label #1: aaa' lab2 = 'File label #2: bbbbbb' desc1 = 'File descr #1: This is a test file annotation' desc2 = 'File descr #2: One more test ...' call MESSAGE(VERBO_HI, '****** Write file labels *******') fid = hopen(TESTFILE, DFACC_CREATE, 0) call VRFY(fid, 'hopen', number_failed) ret = daafid(fid, lab1) call VRFY(ret, 'daafid', number_failed) ret = daafid(fid, lab2) call VRFY(ret, 'daafid', number_failed) call MESSAGE(VERBO_HI, '****** Write file descriptions *******') ret = daafds(fid, desc1, len(desc1)) call VRFY(ret, 'daafds', number_failed) ret = daafds(fid, desc2, len(desc2)) call VRFY(ret, 'daafds', number_failed) ret = hclose(fid) call VRFY(ret, 'hclose', number_failed) call MESSAGE(VERBO_HI, + '****** Read length of the first file label ****') fid = hopen(TESTFILE, DFACC_READ, 0) call VRFY(fid, 'hopen-read', number_failed) ret = dagfidl(fid, ISFIRST) call VRFY(ret, 'dagfidl', number_failed) call checklen(ret, lab1, 'label' ) call MESSAGE(VERBO_HI, '******...followed by the label *****') ret = dagfid(fid, templab, MAXLEN_LAB, ISFIRST) call VRFY(ret, 'dagfid', number_failed) call checklab(lab1, templab, ret, 'label') call MESSAGE(VERBO_HI, + '****** Read length of the second file label ****') ret = dagfidl(fid, NOFIRST) call VRFY(ret, 'dagfidl', number_failed) call checklen(ret, lab2, 'label') call MESSAGE(VERBO_HI, '******...followed by the label *****') ret = dagfid(fid, templab, MAXLEN_LAB, NOFIRST) call VRFY(ret, 'dagfid', number_failed) call checklab(lab2, templab, ret, 'label') call MESSAGE(VERBO_HI, + '****** Read length of the first file description ****') ret = dagfdsl(fid, ISFIRST) call VRFY(ret, 'dagfdsl', number_failed) call checklen(ret, desc1, 'description' ) call MESSAGE(VERBO_HI, + '******...followed by the description *****') ret = dagfds(fid, tempstr, MAXLEN_DESC, ISFIRST) call VRFY(ret, 'dagfds', number_failed) call checkann(desc1, tempstr, ret, 'description') call MESSAGE(VERBO_HI, + '****** Read length of the second file description ****') ret = dagfdsl(fid, NOFIRST) call VRFY(ret, 'dagfdsl', number_failed) call checklen(ret, desc2, 'description' ) call MESSAGE(VERBO_HI, + '******...followed by the description *****') ret = dagfds(fid, tempstr, MAXLEN_DESC, NOFIRST) call VRFY(ret, 'dagfds', number_failed) call checkann(desc2, tempstr, ret, 'description') ret = hclose(fid) call VRFY(ret, 'hclose', number_failed) if (number_failed .eq. 0) then call MESSAGE(VERBO_HI, + '***** ALL DFANFILE TESTS SUCCESSFUL ******') else print *, '********', number_failed, ' TESTS FAILED' endif return end C********************************************* C C checklen C C********************************************* subroutine checklen(ret, oldstr, type) implicit none character*(*) type, oldstr integer ret integer oldlen oldlen = len(oldstr) if (ret .ge. 0 .and. ret .ne. oldlen) then print *, 'Length of ', type, ' is ', len(oldstr), * ' instead of ', ret endif return end C*********************************************** C C checkann C C*********************************************** subroutine checkann(oldstr, newstr, ret, type) implicit none character*90 oldstr, newstr character*(*) type integer ret if (ret .ge. 0 .and. oldstr .ne. newstr) then print *, type, ' is incorrect.' print *, ' It should be <', oldstr, '>' print *, ' instead of <', newstr, '>' endif return end C*********************************************** C C checklab C C*********************************************** subroutine checklab(oldstr, newstr, ret, type) implicit none character*30 oldstr, newstr character*(*) type integer ret if (ret .ge. 0 .and. oldstr .ne. newstr) then print *, type, ' is incorrect.' print *, ' It should be <', oldstr, '>' print *, ' instead of <', newstr, '>' endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tvsfpack.c0000644000000000000000000002671612421456623014627 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include "vg.h" #include "tproto.h" #define NRECORDS 5 #define EPS 0.00001 #define FIELD_1 "Ident" #define FIELD_2 "Temp" #define FIELD_3 "Speed" #define FIELD_4 "Height" #define FIELD_NAMES "Ident,Temp,Speed,Height" #define FILENAME "tvpack.hdf" struct { char ident; float32 temp; int16 speed; float32 height; } source[NRECORDS]; int32 file_id, vdata_id, istat, msize = 0; uint8 *databuf, *pntr; VOIDP databufptr[10]; /* make sure its size can hold all fields */ float32 tempdata[NRECORDS], itemp[NRECORDS]; float32 heightdata[NRECORDS], iheight[NRECORDS]; int16 speeddata[NRECORDS], ispeed[NRECORDS]; char identdata[NRECORDS], iident[NRECORDS]; int i, j, rec_size; int32 vdata_ref, in_recs, iil, irec_size; char ifields[256]; static int32 fpack(void); static int32 funpack(void); static int32 fpack(void) { /* Open the HDF file. */ file_id = Hopen(FILENAME, DFACC_CREATE, 0); /* Initialize the Vset interface. */ Vstart(file_id); /* Create a new Vdata. */ vdata_id = VSattach(file_id, -1, "w"); /* Define the field to write. */ istat = VSfdefine(vdata_id, FIELD_1, DFNT_CHAR8, 1); istat = VSfdefine(vdata_id, FIELD_2, DFNT_FLOAT32, 1); istat = VSfdefine(vdata_id, FIELD_3, DFNT_INT16, 1); istat = VSfdefine(vdata_id, FIELD_4, DFNT_FLOAT32, 1); /* Set the Vdata name. */ VSsetname(vdata_id, "myvdata"); /* Set the Vdata class. */ VSsetclass(vdata_id, "pack"); /* Set the field names. */ istat = VSsetfields(vdata_id, FIELD_NAMES); rec_size = 2*sizeof(float32) + sizeof(int16) + sizeof(char); databuf = (uint8 *) HDmalloc(((2 * sizeof(float32)) + sizeof(int16) + sizeof(char)) * NRECORDS); pntr = databuf; /* pack a record at a time */ for (i = 0; i < NRECORDS; i++) { source[i].temp = (float32)1.11 * (float32)(i+1); source[i].height = (float32)2.22 * (float32)(i+1); source[i].speed = (int16)i; source[i].ident = (char)('A' + i); /* test error checks */ if (i==0) { /* test not enough vdata buffer size */ databufptr[0] = &source[i].ident; databufptr[1] = &source[i].temp; databufptr[2] = &source[i].speed; databufptr[3] = &source[i].height; istat = VSfpack(vdata_id,_HDF_VSPACK, NULL, pntr, 1, 1, NULL, databufptr); if (istat != FAIL) { num_errs++; printf(">>> VSfpack failed in checking bufsz %d\n", i); } pntr = databuf; /* test wrong field name */ databufptr[0] = &source[i].ident; databufptr[1] = &source[i].temp; databufptr[2] = &source[i].speed; databufptr[3] = &source[i].height; istat = VSfpack(vdata_id,_HDF_VSPACK, NULL, pntr, rec_size, 1,"Idents,Temp,Speed,Height" , databufptr); if (istat != FAIL) { num_errs++; printf(">>> VSfpack failed in checking field names.\n"); } pntr = databuf; } /* normal test */ databufptr[0] = &source[i].ident; databufptr[1] = &source[i].temp; databufptr[2] = &source[i].speed; databufptr[3] = &source[i].height; istat = VSfpack(vdata_id,_HDF_VSPACK, NULL, pntr, rec_size, 1, NULL, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in packing record %d\n", i); } pntr += rec_size; } /* Write the data to the Vset object. */ istat = VSwrite(vdata_id, databuf, NRECORDS, FULL_INTERLACE); if (istat != NRECORDS) { num_errs++; printf(">>> VSwrite failed in write %d records.\n", NRECORDS); } /* pack a field at a time */ pntr = databuf; for (i = 0; i < NRECORDS; i++) { source[i].temp = (float32)3.33 * (float32)(i+1); source[i].height = (float32)4.44 * (float32)(i+1); source[i].speed = (int16)(2*i); source[i].ident = (char)('a' + i); databufptr[0] = &source[i].speed; istat = VSfpack(vdata_id,_HDF_VSPACK,NULL, pntr,rec_size, 1, FIELD_3, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in packing speed.\n"); } databufptr[0] = &source[i].ident; istat = VSfpack(vdata_id,_HDF_VSPACK,NULL, pntr,rec_size, 1, FIELD_1, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in packing ident.\n"); } databufptr[0] = &source[i].temp; istat = VSfpack(vdata_id,_HDF_VSPACK,NULL, pntr,rec_size, 1, FIELD_2, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in packing temp.\n"); } databufptr[0] = &source[i].height; istat = VSfpack(vdata_id,_HDF_VSPACK,NULL, pntr,rec_size, 1, FIELD_4, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in packing height.\n"); } pntr += rec_size; } /* Write the data to the Vset object. */ istat = VSwrite(vdata_id, databuf, NRECORDS, FULL_INTERLACE); if (istat != NRECORDS) { num_errs++; printf(">>> VSwrite failed in write %d records.\n", NRECORDS); } /* * Terminate access to the Vdata, the Vset interface * and the HDF file. */ VSdetach(vdata_id); Vend(file_id); istat = Hclose(file_id); return SUCCEED; } static int32 funpack(void) { /* read data back */ /* Open the HDF file. */ file_id = Hopen(FILENAME, DFACC_RDWR, 0); /* Initialize the Vset interface. */ Vstart(file_id); vdata_ref = VSfind(file_id, "myvdata"); if (vdata_ref == 0) { num_errs++; printf(">>> VSfind failed in finding myvdata.\n"); } vdata_id = VSattach(file_id, vdata_ref, "w"); if (vdata_id == FAIL) { num_errs++; printf(">>> VSattach failed in attaching myvdata.\n"); } istat = VSinquire(vdata_id, &in_recs, &iil, ifields, &irec_size, NULL); if (istat == FAIL) { num_errs++; printf(">>> VSinquire failed in for myvdata.\n"); } if ((in_recs != 2*NRECORDS) || (irec_size != rec_size)) { num_errs++; printf(">>> VSinquire got wrong info for myvdata.\n"); } istat = VSsetfields(vdata_id, ifields); istat = VSread(vdata_id, databuf, NRECORDS, iil); pntr = databuf; databufptr[0] = iident; databufptr[1] = itemp; databufptr[2] = ispeed; databufptr[3] = iheight; istat = VSfpack(vdata_id,_HDF_VSUNPACK,NULL,pntr,rec_size*NRECORDS, NRECORDS, NULL, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in unpacking 1st set.\n"); } for (i=0; i EPS) || (ispeed[i] != i) || (fabs((double)(iheight[i] - (float32)2.22*(float32)(i+1))) > EPS)) { num_errs++; printf(">>> Wrong data1 after VSfpack.\n"); } /* check the second set of records */ istat = VSread(vdata_id, databuf, NRECORDS, iil); pntr = databuf; databufptr[0] = itemp; databufptr[1] = iident; istat = VSfpack(vdata_id, _HDF_VSUNPACK, NULL, pntr, rec_size*NRECORDS, NRECORDS, "Temp,Ident", databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in unpacking temp & ident.\n"); } databufptr[0] = iheight; databufptr[1] = ispeed; istat = VSfpack(vdata_id, _HDF_VSUNPACK, NULL, pntr, rec_size*NRECORDS, NRECORDS, "Height,Speed", databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in unpacking height & speed.\n"); } for (i=0; i EPS) || (ispeed[i] != 2*i) || (fabs((double)(iheight[i] - (float32)4.44*(float32)(i+1))) > EPS)) { num_errs++; printf(">>> Wrong data2 after VSfpack.\n"); } /* * Terminate access to the Vdata, the Vset interface * and the HDF file. */ VSdetach(vdata_id); /* buf contains only subset of vdata fields */ vdata_id = VSattach(file_id, vdata_ref, "w"); istat = VSsetfields(vdata_id, "Height,Speed,Ident"); if (istat == FAIL) { num_errs++; printf(">>> VSsetfields failed in set 3 flds.\n"); } istat = VSread(vdata_id, databuf, NRECORDS, FULL_INTERLACE); if (istat == FAIL) { num_errs++; printf(">>> VSread failed in reading 3 flds.\n"); } pntr = databuf; databufptr[0] = iheight; databufptr[1] = ispeed; databufptr[2] = iident; istat = VSfpack(vdata_id, _HDF_VSUNPACK, "Height,Speed,Ident", pntr, rec_size*NRECORDS, NRECORDS, NULL, databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in unpacking 1st subset.\n"); } for (i=0; i EPS)) { num_errs++; printf(">>> Wrong subset data1 after VSfpack.\n"); } /* check the second subset of records */ istat = VSread(vdata_id, databuf, NRECORDS, FULL_INTERLACE); pntr = databuf; databufptr[0] = iident; databufptr[1] = ispeed; databufptr[2] = iheight; istat = VSfpack(vdata_id, _HDF_VSUNPACK, "Height,Speed,Ident", pntr, rec_size*NRECORDS, NRECORDS, "Ident,Speed,Height", databufptr); if (istat == FAIL) { num_errs++; printf(">>> VSfpack failed in unpacking 2nd subset\n"); } for (i=0; i EPS)) { num_errs++; printf(">>> Wrong subset data2 after VSfpack.\n"); } VSdetach(vdata_id); Vend(file_id); Hclose(file_id); HDfree(databuf); return SUCCEED; } /* main test driver */ void test_vspack(void) { if (fpack() == FAIL) return; if (funpack() == FAIL) return; } /* test_vspack */ libhdf4-4.2.10/HDF_ALT/hdf/test/anfile.c0000644000000000000000000001245012421456623014232 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: anfile.c 4932 2007-09-07 17:17:23Z bmribler $ */ #include "tproto.h" #define TESTFILE "tdfan.hdf" #define ISFIRST (int)1 #define NOTFIRST (int)0 #define MAXLEN_LAB 50 #define MAXLEN_DESC 1000 static int checkannlen (int32 ret, const char *oldstr, const char *type, int32 testflag); static int checkann (const char *oldstr, const char *newstr, int32 ret, const char *type, int32 testflag); void test_anfile(void) { char lab1[MAXLEN_LAB], lab2[MAXLEN_LAB], desc1[MAXLEN_DESC], desc2[MAXLEN_DESC], tempstr[MAXLEN_DESC]; int32 testflag = SUCCEED; int32 file_id, ret; /* set up file labels and descriptions */ HDstrcpy(lab1, "File label #1: aaa"); HDstrcpy(lab2, "File label #2: bbbbbb"); HDstrcpy(desc1, "File Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 13\n"); HDstrcat(desc1, " 14 15 16 17 18 19 20 **END FILE DESCR**\n"); HDstrcpy(desc2, "File Descr #2: A B C D E F G H I J K L\n"); HDstrcat(desc2, " M N O **END FILE DESCR**\n"); /******** Write file labels and descriptions *********/ file_id = Hopen(TESTFILE, DFACC_CREATE, 0); if (file_id == FAIL) printf("\nUnable to open file %s for writing.\n\n", TESTFILE); MESSAGE(5, puts("Writing file labels."); ); ret = DFANaddfid(file_id, lab1); RESULT("DFANaddfid"); ret = DFANaddfid(file_id, lab2); RESULT("DFANaddfid"); MESSAGE(5, puts("Writing file descriptions."); ); ret = DFANaddfds(file_id, desc1, (int32)HDstrlen(desc1)); RESULT("DFANaddfds"); ret = DFANaddfds(file_id, desc2, (int32)HDstrlen(desc2)); RESULT("DFANaddfds"); if (FAIL == Hclose(file_id)) printf("\nUnable to close file %s after writing.\n\n", TESTFILE); /******** Read file labels *********/ file_id = Hopen(TESTFILE, DFACC_READ, 0); if (file_id == FAIL) printf("\n\nUnable to open file %s for reading.\n\n", TESTFILE); MESSAGE(5, puts("Reading length of first file label, followed by label."); ); ret = DFANgetfidlen(file_id, ISFIRST); RESULT("DFANgetfidlen"); checkannlen(ret, lab1, "label", testflag); ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, ISFIRST); RESULT("DFANgetfid"); checkann(lab1, tempstr, ret, "label", testflag); MESSAGE(5, puts("Reading length of second file label, followed by label."); ); ret = DFANgetfidlen(file_id, NOTFIRST); RESULT("DFANgetfidlen"); checkannlen(ret, lab2, "label", testflag); ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, NOTFIRST); RESULT("DFANgetfid"); checkann(lab2, tempstr, ret, "label", testflag); /******** Read file descriptions *********/ MESSAGE(5, puts("Reading length of first file descr, followed by descr."); ); ret = DFANgetfdslen(file_id, ISFIRST); RESULT("DFANgetfdslen"); checkannlen(ret, desc1, "description", testflag); ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, ISFIRST); RESULT("DFANgetfds"); checkann(desc1, tempstr, ret, "description", testflag); MESSAGE(5, puts("Reading length of second file descr, followed by descr."); ); ret = DFANgetfdslen(file_id, NOTFIRST); RESULT("DFANgetfdslen"); checkannlen(ret, desc2, "description", testflag); ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, NOTFIRST); RESULT("DFANgetfds"); checkann(desc2, tempstr, ret, "description", testflag); if (FAIL == Hclose(file_id)) printf("\n\nUnable to close file %s after reading.\n\n", TESTFILE); } static int checkannlen(int32 ret, const char *oldstr, const char *type, int32 testflag) { if ((ret >= 0) && (ret != (int32) HDstrlen(oldstr))) { printf("Length of %s is INCORRECT\n", type); printf("It is: %d\n", (int) ret); printf("It should be: %d\n", (int) HDstrlen(oldstr)); testflag = FAIL; return FAIL; } return SUCCEED; } static int checkann(const char *oldstr, const char *newstr, int32 ret, const char *type, int32 testflag) { if ((ret >= 0) && (0 != HDstrcmp(oldstr, newstr))) { printf("%s is INCORRECT.\n", type); printf("It is: %s\n", newstr); printf("It should be: %s\n", oldstr); testflag = FAIL; return (FAIL); } return (SUCCEED); } libhdf4-4.2.10/HDF_ALT/hdf/test/forsupf.c0000644000000000000000000000736712421456623014473 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 6036 $"; #endif /* $Id: forsupf.c 6036 2014-01-20 17:28:01Z acheng $ */ #include "hdf.h" #include "fortest.h" /*----------------------------------------------------------------------------- * Name: getverb * Purpose: Get the verbosity from the "HDF_VERBOSITY" environment variable * and return it to the FORTRAN calling routine. * Inputs: NONE * Returns: verbosity level on success, FAIL on failure * Users: HDF Fortran programmers * Invokes: HDgetenv *---------------------------------------------------------------------------*/ FRETVAL(intf) ngetverb(void) { char *verb_str; intn verb_level=FAIL; verb_str=HDgetenv(FOR_VERB); if(verb_str!=NULL) verb_level=(intn)HDstrtol(verb_str,NULL,0); /* convert whole string using base 10 */ return((intf)verb_level); } /* end getverb() */ /*----------------------------------------------------------------------------- * Name: hisystem * Purpose: Invoke the system call to execute cmd * Inputs: cmd -- the command to execute * cmdlen -- command length * Returns: Code returned by the system call * Users: HDF Fortran programmers * Invokes: system *---------------------------------------------------------------------------*/ FRETVAL(intf) nhisystem(_fcd cmd, intf *cmdlen) { char *fn; intf ret; fn = HDf2cstring(cmd, (intn) *cmdlen); if (!fn) return(FAIL); ret = (intf) system(fn); HDfree(fn); return (ret); } /* end nhisystem() */ /*----------------------------------------------------------------------------- * Name: fixname * Purpose: Fix name for srcdir build and test * Inputs: IN: name - original namea * IN: name_len - name length * IN/OUT: name_out - buffer to hold modified name * IN/OUT: name_out_len - length of the buffer, and length of modified * string. * Returns: 0 on success and -1 on failure * Users: HDF Fortran programmers *---------------------------------------------------------------------------*/ FRETVAL(intf) nfixnamec(_fcd name, intf *name_len, _fcd name_out, intf *name_len_out) { char *c_name; intf ret; char testfile[1024] = ""; char *srcdir = getenv("srcdir"); c_name = HDf2cstring(name, (intn) *name_len); if (!c_name) return(FAIL); /* Here comes Bill's code */ /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(c_name) + 1) < sizeof(testfile))) { strcpy(testfile, srcdir); strcat(testfile, "/"); } strcat(testfile, c_name); *name_len_out = (intf) strlen(testfile); HDpackFstring(testfile, _fcdtocp(name_out), *name_len_out); ret = 0; HDfree(c_name); return (ret); } /* end nfixname() */ libhdf4-4.2.10/HDF_ALT/hdf/test/tvattrf.f0000644000000000000000000002662312421456623014500 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C*************************************************** C C $Id: tvattrf.f 5212 2009-08-21 20:49:45Z brtnfld $ C C ************************************************** C * C * tvattrf.f C * test Vset attribute Fortran API C * C ************************************************* subroutine tvattrf (number_failed) C program tvattrf C Test Program: C Tests the vdata and vgroup attribute interface C Input file: test_files/tvattr.dat C Output file: tvattrf.hdf implicit none include 'fortest.inc' integer number_failed integer len_in character*1024 ifn_out character*25 myname, ifn, ofn parameter (myname = 'vattrf', + ifn = 'test_files/tvattr.dat' , + ofn = 'tvattrf.hdf' + ) integer vsffidx, vsfsnat, vsfscat, vsfnats integer vsffnas, vsffdat, vsfainf, vsfgnat integer vsfgcat, vsfisat, vfnflds integer vfsnatt, vfscatt, vfnatts integer vffdatt, vfainfo, vfgnatt, vfgcatt integer vfgver integer hopen, hclose, vfatch, vfdtch, vfstart integer vfend, vsfatch, vsfdtch, vfgid, vsgver integer vsffnd, vhfsd integer nattrs, itype, icount, imsize, vsver integer fid1, vsid, vgid, vsref, vgref integer ret, findex, vsbuf, aindex integer fixname C C iattri is for int32 values C iattrs is for int16 values C iattrr, RATTR1 are for float32 values C iattrg, GATTR1 are for float64 values integer*4 iattri(5) integer*2 iattrs(6) real*4 iattrr(5), feps, RATTR1, abs real*8 iattrg(5) double precision geps, GATTR1, dabs character*10 iattrc character*20 iattrnm integer DFACC_CREATE, DFACC_RDWR, DFACC_READ, DFNT_CHAR integer DFNT_INT32, DFNT_FLOAT32 integer VSET_VERSION, VSET_NEW_VERSION integer HDF_VDATA parameter (DFACC_CREATE = 4, + DFACC_RDWR = 3, + DFACC_READ = 1, + DFNT_CHAR = 4, + DFNT_INT32 = 24, + DFNT_FLOAT32 = 5, + VSET_VERSION = 3, + VSET_NEW_VERSION = 4, + HDF_VDATA = -1, + GATTR1 = -64.123450D0, + RATTR1 = 32.0099, + feps = 1.0E-5, + geps = 1.0D-9 + ) DATA vsbuf/200/ DATA iattrc/' '/ call ptestban('Testing', myname) C number_failed = 0 C Open the file len_in = len(ifn_out) ret = fixname(ifn, ifn_out, len_in) fid1 = hopen(ifn_out(1:len_in), DFACC_READ, 0) call VRFY(fid1, 'hopen', number_failed) ret = vfstart(fid1) call VRFY(ret, 'vfstart', number_failed) vsref = vsffnd(fid1, 'vsname1') call VRFY(vsref, 'vsffnd', number_failed) vsid = vsfatch(fid1, vsref, 'r') call VRFY(vsid, 'vsfatch', number_failed) vsver = vsgver(vsid) if (vsver .ne. VSET_NEW_VERSION) then call MESSAGE(1, 'Wrong version number of vsname1') number_failed = number_failed + 1 endif ret = vsfisat(vsid) if (ret .ne. FALSE) then call MESSAGE(1, 'Vsname1 is not an attr.') number_failed = number_failed + 1 endif ret = vfnflds(vsid) if (ret .ne. 2) then call MESSAGE(1, 'Wrong number of fields of vsname1') number_failed = number_failed + 1 endif nattrs = vsfnats(vsid) if (nattrs .ne. 6) then call MESSAGE(1, 'Wrong number of total attrs for vsname1') number_failed = number_failed + 1 endif nattrs = vsffnas(vsid, HDF_VDATA) if (nattrs .ne. 2) then call MESSAGE(1, 'Wrong number of attrs for vsname1') number_failed = number_failed + 1 endif C get the 0th attr aindex = 0 findex = HDF_VDATA ret = vsffdat(vsid, findex, 'attname3') call VRFY(ret, 'vsffdat', number_failed) ret = vsfainf(vsid, findex, aindex, iattrnm, + itype, icount, imsize) call VRFY(ret, 'vsfainf', number_failed) if ((itype .ne. DFNT_CHAR) .or. (icount .ne. 3)) then call MESSAGE(1, 'Wrong info of char attr for vsname1') number_failed = number_failed + 1 endif iattrc = ' ' ret = vsfgcat(vsid, findex, aindex, iattrc) call VRFY(ret, 'vsfgcat', number_failed) C if ((iattrc(1) .ne. 'm') .or. (iattrc(2) .ne. 'N') C + .or. (iattrc(3) .ne. 'p')) then if (iattrc .ne. 'mNp') then call MESSAGE(1,'Wrong values of char attr for vsname1') number_failed = number_failed + 1 endif C get the 1st attr of fld 0 aindex = 1 findex = 0 ret = vsffidx(vsid, 'fldname1', findex) call VRFY(ret, 'vsffidx', number_failed) if (findex .ne. 0) then call MESSAGE(1, 'Wrong findex of fldname1 of vsname1') number_failed = number_failed + 1 endif C ret = vsfgnat(vsid, findex, aindex, iattrg) call VRFY(ret, 'vsfgnatt1', number_failed) if (dabs(iattrg(1)-GATTR1) .gt. dabs(geps * GATTR1)) + then call MESSAGE(1, 'Wrong double attr for vsname1') number_failed = number_failed + 1 print *, 'should be: ',GATTR1,' get: ',iattrg(1) endif ret = vsfdtch(vsid) call VRFY(ret, 'vsfdtch', number_failed) C get next vdata and test vsfisat vsref = vsffnd(fid1, 'attname1') vsid = vsfatch(fid1, vsref, 'r') call VRFY(ret, 'vsfatch', number_failed) ret = vsfisat(vsid) if (ret .ne. TRUE) then call MESSAGE(1, 'vsfisat failed. ') number_failed = number_failed + 1 endif ret = vsfdtch(vsid) call VRFY(ret, 'vsfdtch', number_failed) C test vgroup routines vgref = vfgid(fid1, -1) call VRFY(vgref, 'vfgid',number_failed) vgid = vfatch(fid1, vgref, 'r') call VRFY(vgid, 'vfatch',number_failed) ret = vfgver(vgid) call VRFY(ret, 'vfgver',number_failed) if (ret .ne. VSET_NEW_VERSION) then call MESSAGE(1, 'vfgver failed. ') number_failed = number_failed + 1 endif nattrs = vfnatts(vgid) if (nattrs .ne. 2) then call MESSAGE(1, 'vfnatts failed. ') number_failed = number_failed + 1 endif ret = vfainfo(vgid,0,iattrnm,itype,icount,imsize) call VRFY(ret, 'vfainfo',number_failed) ret = vfgnatt(vgid, 0, iattri) call VRFY(ret, 'vfgnatt',number_failed) if (iattri(1) .ne. 10032 .or. iattri(2) .ne. 10064) + then call MESSAGE(1, 'vfgnatt failed. ') number_failed = number_failed + 1 endif C get attname2 ret = vffdatt(vgid, 'attname2') call VRFY(ret, 'vffdatt',number_failed) ret = vfgnatt(vgid, ret, iattrs) call VRFY(ret, 'vfgnatt',number_failed) if (iattrs(1) .ne. 16 .or. iattrs(2) .ne. 32) + then call MESSAGE(1, 'vfgnatt failed. ') number_failed = number_failed + 1 endif C finish reading existing attrs ret = vfdtch(vgid) call VRFY(ret, 'vfdtch',number_failed) ret = vfend(fid1) call VRFY(ret, 'vfend',number_failed) ret = hclose(fid1) call VRFY(ret, 'hclose1',number_failed) C write attributes fid1 = hopen(ofn, DFACC_CREATE, 0) call VRFY(fid1, 'hopen',number_failed) ret = vfstart(fid1) call VRFY(ret, 'vfstart', number_failed) C vgroup attrs vgid = vfatch(fid1, -1, 'w') call VRFY(ret, 'vfatch', number_failed) ret = vfscatt(vgid, 'vgcattr0', DFNT_CHAR, 4, 'cat0') call VRFY(ret, 'vfscatt', number_failed) ret = vfsnatt(vgid,'vgattr1',DFNT_FLOAT32,1,RATTR1) call VRFY(ret, 'vfsnatt', number_failed) ret = vfdtch(vgid) call VRFY(ret, 'vfdtch', number_failed) C vdata attrs vsref = vhfsd(fid1, 'vsfld0', vsbuf, 1, DFNT_INT32, + 'vs0', 'test_vdata') call VRFY(ret, 'vhfsd', number_failed) vsid = vsfatch(fid1, vsref, 'w') call VRFY(ret, 'vsfatch', number_failed) ret = vsfscat(vsid, HDF_VDATA, 'vscattr0', DFNT_CHAR, 3, + 'at2') call VRFY(ret, 'vfscatt', number_failed) ret = vsfsnat(vsid, 0, 'vsattr1', DFNT_FLOAT32, 1, + RATTR1) call VRFY(ret, 'vsfsnat', number_failed) ret = vsfdtch(vsid) call VRFY(ret, 'vsfdtch', number_failed) ret = vfend(fid1) call VRFY(ret, 'vfend',number_failed) ret = hclose(fid1) call VRFY(ret, 'hclose2',number_failed) C read the new attrs back fid1 = hopen(ofn, DFACC_RDWR, 0) call VRFY(fid1, 'hopen',number_failed) ret = vfstart(fid1) call VRFY(ret, 'vfstart', number_failed) C vgroup attrs vgref = vfgid(fid1, -1) call VRFY(ret, 'vfgid', number_failed) vgid = vfatch(fid1, vgref, 'w') call VRFY(ret, 'vfatch', number_failed) iattrc = ' ' ret = vfgcatt(vgid, 0, iattrc) call VRFY(ret, 'vfgcatt', number_failed) C if (iattrc(1) .ne. 'a' .or. iattrc(2) .ne. 't' C + .or. iattrc(3) .ne. '0') then if (iattrc .ne. 'cat0') then call MESSAGE(1, 'Wrong values of char attr for vg') number_failed = number_failed + 1 endif ret = vfgnatt(vgid, 1, iattrr) call VRFY(ret, 'vfgnatt', number_failed) if (abs(iattrr(1)-RATTR1) .gt. abs(RATTR1*feps)) + then call MESSAGE(1, 'Wrong values of real attr for vg') number_failed = number_failed + 1 endif ret = vfdtch(vgid) call VRFY(ret, 'vfdtch', number_failed) C vdata attrs vsref = vsffnd(fid1, 'vs0') call VRFY(ret, 'vsffnd', number_failed) vsid = vsfatch(fid1, vsref, 'w') call VRFY(ret, 'vsfatch', number_failed) iattrc = ' ' ret = vsfgcat(vsid, HDF_VDATA, 0, iattrc) call VRFY(ret, 'vsfgcat', number_failed) C if (iattrc(1) .ne. 'a' .or. iattrc(2) .ne. 't' C + .or. iattrc(3) .ne. '2') then if (iattrc .ne. 'at2') then call MESSAGE(1, 'Wrong values of char attr for vs') number_failed = number_failed + 1 print *, iattrc, 'at2' endif ret = vsfgnat(vsid, 0, 0, iattrr) call VRFY(ret, 'vsfgnatt2', number_failed) if (abs(iattrr(1)-RATTR1) .gt. abs(RATTR1*feps)) + then call MESSAGE(1, 'Wrong values of real attr for vs') number_failed = number_failed + 1 endif ret = vsfdtch(vsid) call VRFY(ret, 'vsfdtch', number_failed) ret = vfend(fid1) call VRFY(ret, 'vfend',number_failed) ret = hclose(fid1) call VRFY(ret, 'hclose3',number_failed) return end libhdf4-4.2.10/HDF_ALT/hdf/test/bitio.c0000644000000000000000000003437712421456623014116 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* FILE bitio.c Test HDF bit-level I/O routines REMARKS DESIGN BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 10/19/93 - Started coding. */ /* $Id: bitio.c 5210 2009-08-21 20:27:12Z brtnfld $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5210 $"; #endif #include "tproto.h" #include #define TESTFILE_NAME "tbitio.hdf" #define DATAFILE_NAME "test_files/bitio.dat" /* Last ditch attempt to define this value... */ #ifndef UINT_MAX #define UINT_MAX (unsigned)(-1) #endif #ifndef RAND_MAX #define RAND_MAX (UINT_MAX) #endif /* define aliases for random number generation */ #define RAND rand #define SEED(a) srand(a) #define BUFSIZE 8192 #define DATASIZE 4096 #define NUM_BITS 32 #define DATA_TAG_1 1000 #define DATA_REF_1 1000 #define BITIO_TAG_1 1500 #define BITIO_REF_1 1500 #define BITIO_TAG_2 2500 #define BITIO_REF_2 2500 #define BITIO_TAG_3 3500 #define BITIO_REF_3 3500 static uint8 outbuf[BUFSIZE], inbuf[DATASIZE]; static uint32 outbuf2[BUFSIZE], inbuf2[BUFSIZE], totbits[BUFSIZE]; static uint32 maskbuf[] = { 0x00000000, 0x00000001, 0x00000003, 0x00000007, 0x0000000f, 0x0000001f, 0x0000003f, 0x0000007f, 0x000000ff, 0x000001ff, 0x000003ff, 0x000007ff, 0x00000fff, 0x00001fff, 0x00003fff, 0x00007fff, 0x0000ffff, 0x0001ffff, 0x0003ffff, 0x0007ffff, 0x000fffff, 0x001fffff, 0x003fffff, 0x007fffff, 0x00ffffff, 0x01ffffff, 0x03ffffff, 0x07ffffff, 0x0fffffff, 0x1fffffffUL, 0x3fffffffUL, 0x7fffffffUL, 0xffffffffUL}; static void test_bitio_write(void); static void test_bitio_read(void); static void test_bitio_seek(void); static void test_bitio_write(void) { int32 fid; int32 bitid1; int32 ret; intn i; uint32 tot_bits = 0; MESSAGE(6, printf("Testing bitio write routines\n"); ); SEED((uintn) time(NULL)); for (i = 0; i < BUFSIZE; i++) { totbits[i] = tot_bits; tot_bits += (uint32) (outbuf[i] = (uint8) (((RAND() >> 4) % 32) + 1)); /* number of bits to output */ outbuf2[i] = (uintn)RAND() & maskbuf[outbuf[i]]; /* actual bits to output */ } /* end for */ fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); bitid1 = Hstartbitwrite(fid, BITIO_TAG_1, BITIO_REF_1, 16); CHECK_VOID(bitid1, FAIL, "Hstartbitwrite"); ret = Hbitappendable(bitid1); RESULT("Hbitappendable"); for (i = 0; i < BUFSIZE; i++) { ret = Hbitwrite(bitid1, (intn)outbuf[i], (uint32) outbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitwrite"); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); bitid1 = Hstartbitread(fid, BITIO_TAG_1, BITIO_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = 0; i < BUFSIZE; i++) { ret = Hbitread(bitid1, (intn)outbuf[i], &inbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitread"); } /* end for */ if (HDmemcmp(outbuf2, inbuf2, sizeof(int32) * BUFSIZE)) { printf("Error in writing/reading bit I/O data\n"); HEprint(stdout, 0); num_errs++; } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); ret = Hclose(fid); RESULT("Hclose"); } /* test_bitio_write() */ static void test_bitio_read(void) { int32 fid; int32 bitid1; int32 ret; intn inbits; uint32 tempbuf; intn i; uint8 *test_ptr; char datafile[512] = ""; char *srcdir = getenv("srcdir"); SEED((uintn) time(NULL)); MESSAGE(6, printf("Testing bitio read routines\n"); ); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(DATAFILE_NAME) + 1) < sizeof(datafile))) { strcpy(datafile, srcdir); strcat(datafile, "/"); } strcat(datafile, DATAFILE_NAME); fid = Hopen(datafile, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = Hgetelement(fid, DATA_TAG_1, DATA_REF_1, inbuf); RESULT("Hgetelement"); ret = Hclose(fid); RESULT("Hclose"); MESSAGE(8, printf("Reading 8 bits at a time\n"); ); fid = Hopen(datafile, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen"); bitid1 = Hstartbitread(fid, DATA_TAG_1, DATA_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = 0; i < DATASIZE; i++) { ret = Hbitread(bitid1, 8, &inbuf2[i]); VERIFY_VOID(ret, 8, "Hbitread"); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); /* check the data */ for (i = 0; i < DATASIZE; i++) { if (inbuf[i] != (uint8) inbuf2[i]) { printf("Error in reading bit I/O data at position %d\n", i); num_errs++; } /* end for */ } /* end for */ MESSAGE(8, printf("Read random # of bits at a time\n"); ); bitid1 = Hstartbitread(fid, DATA_TAG_1, DATA_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); /* read in random #'s of bits */ for (i = 0; i < DATASIZE / (NUM_BITS / 8); i++) { inbits = ((RAND() >> 4) % NUM_BITS) + 1; /* number of bits to input */ ret = Hbitread(bitid1, inbits, &inbuf2[i]); VERIFY_VOID(ret, inbits, "Hbitread"); if (inbits < NUM_BITS) { /* if we've already grabbed 32-bit don't try for more */ inbits = NUM_BITS - inbits; ret = Hbitread(bitid1, inbits, &tempbuf); VERIFY_VOID(ret, inbits, "Hbitread"); inbuf2[i] <<= inbits; inbuf2[i] |= tempbuf; } /* end if */ } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); test_ptr = (uint8 *) HDmalloc((size_t)((DATASIZE / 4) * DFKNTsize(DFNT_UINT32))); CHECK_VOID(test_ptr, NULL, "HDmalloc"); ret = DFKconvert(inbuf2, test_ptr, DFNT_UINT32, (DATASIZE / 4), DFACC_WRITE, 0, 0); RESULT("DFKconvert"); /* check the data */ if (HDmemcmp(inbuf, test_ptr, DATASIZE) != 0) { printf("Error in reading bit I/O data\n"); HEprint(stdout, 0); num_errs++; } /* end if */ HDfree(test_ptr); ret = Hclose(fid); RESULT("Hclose"); } /* test_bitio_read() */ static void test_bitio_seek(void) { int32 fid; int32 bitid1; int32 ret; intn i; SEED((uintn) time(NULL)); MESSAGE(6, printf("Testing bitio seek routines\n"); ); fid = Hopen(TESTFILE_NAME, DFACC_READ | DFACC_WRITE, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(8, printf("Seek & read from start of dataset\n"); ); bitid1 = Hstartbitread(fid, BITIO_TAG_1, BITIO_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = 0; i < BUFSIZE; i++) { ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); CHECK_VOID(ret, FAIL, "Hbitseek"); ret = Hbitread(bitid1, (intn)outbuf[i], &inbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitread"); if (outbuf2[i] != inbuf2[i]) printf("outbuf[%d]=%u, outbuf2[%d]=%lu inbuf2[%d]=%lu, totbits[%d]=%lu\n", i, outbuf[i], i, (long) outbuf2[i], i, (long) inbuf2[i], i, (long) totbits[i]); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(8, printf("Seek & read from end of dataset\n"); ); bitid1 = Hstartbitread(fid, BITIO_TAG_1, BITIO_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = BUFSIZE - 1; i >= 0; i--) { ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); CHECK_VOID(ret, FAIL, "Hbitseek"); ret = Hbitread(bitid1, (intn)outbuf[i], &inbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitread"); if (outbuf2[i] != inbuf2[i]) printf("outbuf[%d]=%u, outbuf2[%d]=%lu inbuf2[%d]=%lu, totbits[%d]=%lu\n", i, outbuf[i], i, (long) outbuf2[i], i, (long) inbuf2[i], i, (long) totbits[i]); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(8, printf("Seek & write from start of dataset\n"); ); bitid1 = Hstartbitwrite(fid, BITIO_TAG_1, BITIO_REF_1, 16); CHECK_VOID(bitid1, FAIL, "Hstartbitwrite"); MESSAGE(9, printf("Writing new data to every other bit-sequence\n"); ); /* re-write every other sequence of bits in the dataset */ for (i = 0; i < BUFSIZE; i += 2) { outbuf2[i] = (uintn)RAND() & maskbuf[outbuf[i]]; /* actual bits to output */ ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); CHECK_VOID(ret, FAIL, "Hbitseek"); ret = Hbitwrite(bitid1, (intn)outbuf[i], (uint32) outbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitwrite"); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(9, printf("Verifying new data\n"); ); bitid1 = Hstartbitread(fid, BITIO_TAG_1, BITIO_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = 0; i < BUFSIZE; i++) { ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); RESULT("Hbitseek"); ret = Hbitread(bitid1, (intn)outbuf[i], &inbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitread"); if (outbuf2[i] != inbuf2[i]) printf("outbuf[%d]=%u, outbuf2[%d]=%lu inbuf2[%d]=%lu, totbits[%d]=%lu\n", i, outbuf[i], i, (long) outbuf2[i], i, (long) inbuf2[i], i, (long) totbits[i]); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(8, printf("Seek & write from end of dataset\n"); ); bitid1 = Hstartbitwrite(fid, BITIO_TAG_1, BITIO_REF_1, 16); CHECK_VOID(bitid1, FAIL, "Hstartbitwrite"); MESSAGE(9, printf("Writing new data to every other bit-sequence from the end\n"); ); /* re-write every other sequence of bits in the dataset */ for (i = BUFSIZE - 1; i >= 0; i -= 2) { outbuf2[i] = (uintn)RAND() & maskbuf[outbuf[i]]; /* actual bits to output */ ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); RESULT("Hbitseek"); ret = Hbitwrite(bitid1, (intn)outbuf[i], (uint32) outbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitwrite"); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(9, printf("Verifying new data again\n"); ); bitid1 = Hstartbitread(fid, BITIO_TAG_1, BITIO_REF_1); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); for (i = 0; i < BUFSIZE; i++) { ret = Hbitseek(bitid1, (int32)(totbits[i] / 8), (intn) (totbits[i] % 8)); CHECK_VOID(ret, FAIL, "Hbitseek"); ret = Hbitread(bitid1, (intn)outbuf[i], &inbuf2[i]); VERIFY_VOID((uint8) ret, outbuf[i], "Hbitread"); if (outbuf2[i] != inbuf2[i]) printf("outbuf[%d]=%u, outbuf2[%d]=%lu inbuf2[%d]=%lu, totbits[%d]=%lu\n", i, outbuf[i], i, (long) outbuf2[i], i, (long) inbuf2[i], i, (long) totbits[i]); } /* end for */ ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); MESSAGE(8, printf("Write non-byte filling number of bits and seek to beginning\n"); ); bitid1 = Hstartbitwrite(fid, BITIO_TAG_3, BITIO_REF_3, 0); CHECK_VOID(bitid1, FAIL, "Hstartbitwrite"); ret = Hbitappendable(bitid1); RESULT("Hbitappendable"); MESSAGE(9, printf("Writing 35 bits of data out\n"); ); ret = Hbitwrite(bitid1, 8, (uint32) outbuf[0]); VERIFY_VOID((uint8) ret, 8, "Hbitwrite"); ret = Hbitwrite(bitid1, 8, (uint32) outbuf[1]); VERIFY_VOID((uint8) ret, 8, "Hbitwrite"); ret = Hbitwrite(bitid1, 8, (uint32) outbuf[2]); VERIFY_VOID((uint8) ret, 8, "Hbitwrite"); ret = Hbitwrite(bitid1, 8, (uint32) outbuf[3]); VERIFY_VOID((uint8) ret, 8, "Hbitwrite"); ret = Hbitwrite(bitid1, 3, (uint32) outbuf[4]); VERIFY_VOID((uint8) ret, 3, "Hbitwrite"); ret = Hbitseek(bitid1, 0, 0); RESULT("Hbitseek"); ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); /* Read those 35 bits back in */ bitid1 = Hstartbitread(fid, BITIO_TAG_3, BITIO_REF_3); CHECK_VOID(bitid1, FAIL, "Hstartbitread"); ret = Hbitread(bitid1, 8, &inbuf2[0]); VERIFY_VOID((uint8) ret, 8, "Hbitread"); ret = Hbitread(bitid1, 8, &inbuf2[1]); VERIFY_VOID((uint8) ret, 8, "Hbitread"); ret = Hbitread(bitid1, 8, &inbuf2[2]); VERIFY_VOID((uint8) ret, 8, "Hbitread"); ret = Hbitread(bitid1, 8, &inbuf2[3]); VERIFY_VOID((uint8) ret, 8, "Hbitread"); ret = Hbitread(bitid1, 3, &inbuf2[4]); VERIFY_VOID((uint8) ret, 3, "Hbitread"); VERIFY_VOID(outbuf[0],inbuf2[0],"I/O Transfer"); VERIFY_VOID(outbuf[1],inbuf2[1],"I/O Transfer"); VERIFY_VOID(outbuf[2],inbuf2[2],"I/O Transfer"); VERIFY_VOID(outbuf[3],inbuf2[3],"I/O Transfer"); VERIFY_VOID((outbuf[4]&maskbuf[3]),inbuf2[4],"I/O Transfer"); ret = Hendbitaccess(bitid1, 0); RESULT("Hbitendaccess"); ret = Hclose(fid); RESULT("Hclose"); } /* test_bitio_seek() */ void test_bitio(void) { test_bitio_read(); test_bitio_write(); test_bitio_seek(); } libhdf4-4.2.10/HDF_ALT/hdf/test/nbit.c0000644000000000000000000010635612421456623013741 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* FILE nbit.c Test HDF N-Bit dataset I/O routines REMARKS These tests depend on the bitio layer, the compression layer and the SD layer... DESIGN BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 1/19/94 - Started coding */ /* $Id: nbit.c 5210 2009-08-21 20:27:12Z brtnfld $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5210 $"; #endif #include "tproto.h" #define TESTFILE_NAME "tnbit.hdf" #define DATAFILE_NAME "test_files/nbit.dat" #define NBIT_TAG1 1000 #define NBIT_REF1 1000 #define NBIT_SIZE1 4096 #define NBIT_BITS1 6 #define NBIT_MASK1 0x3f #define NBIT_TAG2 1001 #define NBIT_REF2 1001 #define NBIT_SIZE2 4096 #define NBIT_BITS2 6 #define NBIT_MASK2 0x3f #define NBIT_TAG3 1002 #define NBIT_REF3 1002 #define NBIT_SIZE3 4096 #define NBIT_BITS3 12 #define NBIT_MASK3A 0x0fff #define NBIT_MASK3B 0xffff #define NBIT_TAG4 1003 #define NBIT_REF4 1003 #define NBIT_SIZE4 4096 #define NBIT_BITS4 14 #define NBIT_MASK4A 0xffff #define NBIT_MASK4B 0xffff #define NBIT_TAG5 1004 #define NBIT_REF5 1004 #define NBIT_SIZE5 4096 #define NBIT_BITS5 27 #define NBIT_MASK5A 0x07ffffff #define NBIT_MASK5B 0xffffffffUL #define NBIT_TAG6 1005 #define NBIT_REF6 1005 #define NBIT_SIZE6 4096 #define NBIT_BITS6 29 #define NBIT_MASK6A 0xffffffffUL #define NBIT_MASK6B 0xffffffffUL #define NBIT_TAG7 1006 #define NBIT_REF7 1006 #define NBIT_SIZE7 4096 #define NBIT_BITS7 4 #define NBIT_OFF7 6 #define NBIT_MASK7A 0x78 #define NBIT_MASK7B 0x87 #define NBIT_TAG8 1007 #define NBIT_REF8 1007 #define NBIT_SIZE8 4096 #define NBIT_BITS8 4 #define NBIT_OFF8 5 #define NBIT_MASK8 0x03 #define NBIT_TAG9 1008 #define NBIT_REF9 1008 #define NBIT_SIZE9 4096 #define NBIT_BITS9 8 #define NBIT_OFF9 12 #define NBIT_MASK9A 0xe01f #define NBIT_MASK9B 0xffff #define NBIT_TAG10 1009 #define NBIT_REF10 1009 #define NBIT_SIZE10 4096 #define NBIT_BITS10 9 #define NBIT_OFF10 10 #define NBIT_MASK10A 0x0003 #define NBIT_MASK10B 0xffff #define NBIT_TAG11 1010 #define NBIT_REF11 1010 #define NBIT_SIZE11 4096 #define NBIT_BITS11 18 #define NBIT_OFF11 27 #define NBIT_MASK11A 0xf00003ffUL #define NBIT_MASK11B 0xffffffffUL #define NBIT_TAG12 1011 #define NBIT_REF12 1011 #define NBIT_SIZE12 4096 #define NBIT_BITS12 27 #define NBIT_OFF12 31 #define NBIT_MASK12A 0x0000001f #define NBIT_MASK12B 0xffffffffUL static void test_nbit1(int32 fid); static void test_nbit2(int32 fid); static void test_nbit3(int32 fid); static void test_nbit4(int32 fid); static void test_nbit5(int32 fid); static void test_nbit6(int32 fid); static void test_nbit7(int32 fid); static void test_nbit8(int32 fid); static void test_nbit9(int32 fid); static void test_nbit10(int32 fid); static void test_nbit11(int32 fid); static void test_nbit12(int32 fid); static void test_nbit1(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint8 *outbuf, *inbuf; uint8 test_val; outbuf = (uint8 *) HDmalloc(NBIT_SIZE1 * sizeof(uint8)); inbuf = (uint8 *) HDmalloc(NBIT_SIZE1 * sizeof(uint8)); for (i = 0; i < NBIT_SIZE1; i++) /* fill with pseudo-random data */ outbuf[i] = (uint8) (i * 3); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as an unsigned 8-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_UINT8; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS1 - 1; c_info.nbit.bit_len = NBIT_BITS1; aid1 = HCcreate(fid, NBIT_TAG1, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = Hwrite(aid1, NBIT_SIZE1, outbuf); if (ret != NBIT_SIZE1) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); ret = Hgetelement(fid, NBIT_TAG1, (uint16) ref1, inbuf); if (ret != NBIT_SIZE1) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } for (i = 0; i < NBIT_SIZE1; i++) { test_val = (uint8) (outbuf[i] & NBIT_MASK1); if ((uint8) inbuf[i] != (uint8) test_val) { printf("test_nbit1: Wrong data at %d, out (%d)%d in %d\n", i, outbuf[i], test_val, inbuf[i]); errors++; } } HDfree(outbuf); HDfree(inbuf); num_errs += errors; } static void test_nbit2(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int8 *outbuf, *inbuf; outbuf = (int8 *) HDmalloc(NBIT_SIZE2 * sizeof(int8)); inbuf = (int8 *) HDmalloc(NBIT_SIZE2 * sizeof(int8)); for (i = 0; i < NBIT_SIZE2; i++) /* fill with pseudo-random data */ outbuf[i] = (int8) (((i * 3) % 64) - 32); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 8-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_INT8; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS2 - 1; c_info.nbit.bit_len = NBIT_BITS2; aid1 = HCcreate(fid, NBIT_TAG2, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = Hwrite(aid1, NBIT_SIZE2, (uint8 *) outbuf); if (ret != NBIT_SIZE2) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); ret = Hgetelement(fid, NBIT_TAG2, (uint16) ref1, (uint8 *) inbuf); if (ret != NBIT_SIZE2) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } for (i = 0; i < ret; i++) { if ((int8) inbuf[i] != (int8) outbuf[i]) { printf("test_nbit2: Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } } HDfree(outbuf); HDfree(inbuf); num_errs += errors; } static void test_nbit3(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint16 *outbuf, *inbuf; uint16 test_out, test_in; uint8 *convbuf; outbuf = (uint16 *) HDmalloc(NBIT_SIZE3 * sizeof(uint16)); inbuf = (uint16 *) HDmalloc(NBIT_SIZE3 * sizeof(uint16)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE3 * (size_t)DFKNTsize(DFNT_UINT16)); for (i = 0; i < NBIT_SIZE3; i++) /* fill with pseudo-random data */ outbuf[i] = (uint16) (i * 3); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a unsigned 16-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_UINT16; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS3 - 1; c_info.nbit.bit_len = NBIT_BITS3; aid1 = HCcreate(fid, NBIT_TAG3, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_UINT16, NBIT_SIZE3, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE3 * DFKNTsize(DFNT_UINT16), convbuf); if (ret != NBIT_SIZE3 * DFKNTsize(DFNT_UINT16)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_UINT16) * NBIT_SIZE3); ret = Hgetelement(fid, NBIT_TAG3, (uint16) ref1, convbuf); if (ret != NBIT_SIZE3 * DFKNTsize(DFNT_UINT16)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_UINT16, NBIT_SIZE3, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE3; i++) { test_out = (uint16) (outbuf[i] & NBIT_MASK3A); test_in = (uint16) (inbuf[i] & NBIT_MASK3B); #ifndef TESTING if ((int16) test_in != (int16) test_out) { printf("test_nbit3: Wrong data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit4(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int16 *outbuf, *inbuf; int16 test_out, test_in; uint8 *convbuf; outbuf = (int16 *) HDmalloc(NBIT_SIZE4 * sizeof(int16)); inbuf = (int16 *) HDmalloc(NBIT_SIZE4 * sizeof(int16)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE4 * (size_t)DFKNTsize(DFNT_INT16)); for (i = 0; i < NBIT_SIZE4; i++) /* fill with pseudo-random data */ outbuf[i] = (int16) (((i * 3) % (64 * 256)) - (32 * 256)); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 16-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_INT16; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS4 - 1; c_info.nbit.bit_len = NBIT_BITS4; aid1 = HCcreate(fid, NBIT_TAG4, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_INT16, NBIT_SIZE4, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE4 * DFKNTsize(DFNT_INT16), convbuf); if (ret != NBIT_SIZE4 * DFKNTsize(DFNT_INT16)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_INT16) * NBIT_SIZE4); ret = Hgetelement(fid, NBIT_TAG4, (uint16) ref1, convbuf); if (ret != NBIT_SIZE4 * DFKNTsize(DFNT_INT16)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_INT16, NBIT_SIZE4, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE4; i++) { test_out = (int16) (outbuf[i] & NBIT_MASK4A); test_in = (int16) (inbuf[i] & NBIT_MASK4B); #ifndef TESTING if ((int16) test_in != (int16) test_out) { printf("test_nbit4: Wrong data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit5(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint32 *outbuf, *inbuf; uint32 test_out, test_in; uint8 *convbuf; outbuf = (uint32 *) HDmalloc(NBIT_SIZE5 * sizeof(uint32)); inbuf = (uint32 *) HDmalloc(NBIT_SIZE5 * sizeof(uint32)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE5 * (size_t)DFKNTsize(DFNT_UINT32)); for (i = 0; i < NBIT_SIZE5; i++) /* fill with pseudo-random data */ outbuf[i] = (uint32)(i * 300000); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a unsigned 32-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_UINT32; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS5 - 1; c_info.nbit.bit_len = NBIT_BITS5; aid1 = HCcreate(fid, NBIT_TAG5, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_UINT32, NBIT_SIZE5, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE5 * DFKNTsize(DFNT_UINT32), convbuf); if (ret != NBIT_SIZE5 * DFKNTsize(DFNT_UINT32)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_UINT32) * NBIT_SIZE5); ret = Hgetelement(fid, NBIT_TAG5, (uint16) ref1, convbuf); if (ret != NBIT_SIZE5 * DFKNTsize(DFNT_UINT32)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_UINT32, NBIT_SIZE5, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE5; i++) { test_out = outbuf[i] & NBIT_MASK5A; test_in = (uintn)inbuf[i] & (uintn)NBIT_MASK5B; #ifndef TESTING if ((uint32) test_in != (uint32) test_out) { printf("test_nbit5: Wrong data at %d, out (%lu)%lu in (%lu)%lu\n", i, (unsigned long) outbuf[i], (unsigned long) test_out, (unsigned long) inbuf[i], (unsigned long) test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit6(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int32 *outbuf, *inbuf; int32 test_out, test_in; uint8 *convbuf; outbuf = (int32 *) HDmalloc(NBIT_SIZE6 * sizeof(int32)); inbuf = (int32 *) HDmalloc(NBIT_SIZE6 * sizeof(int32)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE6 * (size_t)DFKNTsize(DFNT_INT32)); for (i = 0; i < NBIT_SIZE6; i++) /* fill with pseudo-random data */ outbuf[i] = ((i * 300001) % ((int32) 16 * 256 * 256 * 256)) - ((int32) 8 * 256 * 256 * 256); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 32-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_INT32; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = FALSE; c_info.nbit.start_bit = NBIT_BITS6 - 1; c_info.nbit.bit_len = NBIT_BITS6; aid1 = HCcreate(fid, NBIT_TAG6, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_INT32, NBIT_SIZE6, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE6 * DFKNTsize(DFNT_INT32), convbuf); if (ret != NBIT_SIZE6 * DFKNTsize(DFNT_INT32)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_INT32) * NBIT_SIZE6); ret = Hgetelement(fid, NBIT_TAG6, (uint16) ref1, convbuf); if (ret != NBIT_SIZE6 * DFKNTsize(DFNT_INT32)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_INT32, NBIT_SIZE6, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE6; i++) { test_out = (int32)((uintn)outbuf[i] & (uintn)NBIT_MASK6A); test_in = (int32)((uintn)inbuf[i] & (uintn)NBIT_MASK6B); #ifndef TESTING if ((int32) test_in != (int32) test_out) { printf("test_nbit6: Wrong data at %d, out (%ld)%ld in (%ld)%ld\n", i, (long) outbuf[i], (long) test_out, (long) inbuf[i], (long) test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit7(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint8 *outbuf, *inbuf; uint8 test_val; outbuf = (uint8 *) HDmalloc(NBIT_SIZE7 * sizeof(uint8)); inbuf = (uint8 *) HDmalloc(NBIT_SIZE7 * sizeof(uint8)); for (i = 0; i < NBIT_SIZE7; i++) /* fill with pseudo-random data */ outbuf[i] = (uint8) (i * 3); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a unsigned 8-bit n-bit element with filled ones\n"); ); c_info.nbit.nt = DFNT_UINT8; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF7; c_info.nbit.bit_len = NBIT_BITS7; aid1 = HCcreate(fid, NBIT_TAG7, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = Hwrite(aid1, NBIT_SIZE7, outbuf); if (ret != NBIT_SIZE7) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); ret = Hgetelement(fid, NBIT_TAG7, (uint16) ref1, inbuf); if (ret != NBIT_SIZE7) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } for (i = 0; i < ret; i++) { test_val = (uint8) ((outbuf[i] & NBIT_MASK7A) | NBIT_MASK7B); if ((uint8) inbuf[i] != (uint8) test_val) { printf("test_nbit7: Wrong data at %d, out (%d)%d in %d\n", i, outbuf[i], test_val, inbuf[i]); errors++; } } HDfree(outbuf); HDfree(inbuf); num_errs += errors; } static void test_nbit8(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int8 *outbuf, *inbuf; int8 test_val; outbuf = (int8 *) HDmalloc(NBIT_SIZE8 * sizeof(int8)); inbuf = (int8 *) HDmalloc(NBIT_SIZE8 * sizeof(int8)); for (i = 0; i < NBIT_SIZE8; i++) /* fill with pseudo-random data */ outbuf[i] = (int8) ((((i * 3) % 16) - 8) << 2); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 8-bit n-bit element with filled ones\n"); ); c_info.nbit.nt = DFNT_INT8; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF8; c_info.nbit.bit_len = NBIT_BITS8; aid1 = HCcreate(fid, NBIT_TAG8, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = Hwrite(aid1, NBIT_SIZE8, (uint8 *) outbuf); if (ret != NBIT_SIZE8) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); ret = Hgetelement(fid, NBIT_TAG8, (uint16) ref1, (uint8 *) inbuf); if (ret != NBIT_SIZE8) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } for (i = 0; i < ret; i++) { test_val = (int8) (outbuf[i] | NBIT_MASK8); if ((int8) inbuf[i] != (int8) test_val) { printf("test_nbit8: Wrong data at %d, out (%d:%x)%d in %d\n", i, outbuf[i], outbuf[i], test_val, inbuf[i]); errors++; } } HDfree(outbuf); HDfree(inbuf); num_errs += errors; } static void test_nbit9(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint16 *outbuf, *inbuf; uint16 test_out, test_in; uint8 *convbuf; outbuf = (uint16 *) HDmalloc(NBIT_SIZE9 * sizeof(uint16)); inbuf = (uint16 *) HDmalloc(NBIT_SIZE9 * sizeof(uint16)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE9 * (size_t)DFKNTsize(DFNT_UINT16)); for (i = 0; i < NBIT_SIZE9; i++) /* fill with pseudo-random data */ outbuf[i] = (uint16) (i * 3); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a unsigned 16-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_UINT16; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF9; c_info.nbit.bit_len = NBIT_BITS9; aid1 = HCcreate(fid, NBIT_TAG9, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_UINT16, NBIT_SIZE9, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE9 * DFKNTsize(DFNT_UINT16), convbuf); if (ret != NBIT_SIZE9 * DFKNTsize(DFNT_UINT16)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_UINT16) * NBIT_SIZE9); ret = Hgetelement(fid, NBIT_TAG9, (uint16) ref1, convbuf); if (ret != NBIT_SIZE9 * DFKNTsize(DFNT_UINT16)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_UINT16, NBIT_SIZE9, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE9; i++) { test_out = (uint16) ((outbuf[i] | NBIT_MASK9A) & NBIT_MASK9B); test_in = (uint16) (inbuf[i] & NBIT_MASK9B); #ifndef TESTING if ((uint16) test_in != (uint16) test_out) { printf("test_nbit9: Wrong data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_val, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit10(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int16 *outbuf, *inbuf; int16 test_out, test_in; uint8 *convbuf; outbuf = (int16 *) HDmalloc(NBIT_SIZE10 * sizeof(int16)); inbuf = (int16 *) HDmalloc(NBIT_SIZE10 * sizeof(int16)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE10 * (size_t)DFKNTsize(DFNT_UINT16)); for (i = 0; i < NBIT_SIZE10; i++) /* fill with pseudo-random data */ outbuf[i] = (int16) ((((i * 3) % (2 * 256)) - (256)) << ((NBIT_OFF10 - NBIT_BITS10) + 1)); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 16-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_INT16; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF10; c_info.nbit.bit_len = NBIT_BITS10; aid1 = HCcreate(fid, NBIT_TAG10, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_INT16, NBIT_SIZE10, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE10 * DFKNTsize(DFNT_INT16), convbuf); if (ret != NBIT_SIZE10 * DFKNTsize(DFNT_INT16)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_INT16) * NBIT_SIZE10); ret = Hgetelement(fid, NBIT_TAG10, (uint16) ref1, convbuf); if (ret != NBIT_SIZE10 * DFKNTsize(DFNT_INT16)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_INT16, NBIT_SIZE10, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE10; i++) { /* intel windows c++ compiler has a bug when masking outbuf[i], it extends the * signed bit to all bits of higher 16 bit, so don't use MASK for intel windows * c++ compiler. Kent Yang 09/02/02 * The same error occur in the Unix Intel Compiler. Albert Cheng 10/26/02 */ /* Apparently Intel compiler bug was fixed and the fix below causes problems * when optimization is used. We decided to go to the original code that * works now with Intel 7.0 and Intel 7.1 compilers on both UNIX and Windows * EIP 12/2/03 #if (defined __INTEL_COMPILER || defined __ICL) test_out = (int16)(outbuf[i] | NBIT_MASK10A); #else test_out = (int16) ((outbuf[i] | NBIT_MASK10A) & NBIT_MASK10B); #endif */ test_out = (int16) ((outbuf[i] | NBIT_MASK10A) & NBIT_MASK10B); test_in = (int16) (inbuf[i] & NBIT_MASK10B); /* The following ifdef block fixes a compiler bug on the */ /* HP9000, leave it in! -QAK */ #ifdef HP9000 { char *t; t = (char *) &test_out; t = (char *) &test_in; } #endif /* HP9000 */ #ifndef TESTING if ((int16) test_in != (int16) test_out) { printf("test_nbit10: Wrong data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit11(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; uint32 *outbuf, *inbuf; uint32 test_out, test_in; uint8 *convbuf; outbuf = (uint32 *) HDmalloc(NBIT_SIZE11 * sizeof(uint32)); inbuf = (uint32 *) HDmalloc(NBIT_SIZE11 * sizeof(uint32)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE11 * (size_t)DFKNTsize(DFNT_UINT32)); for (i = 0; i < NBIT_SIZE11; i++) /* fill with pseudo-random data */ outbuf[i] = (uint32)(i * 304327); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a unsigned 32-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_UINT32; c_info.nbit.sign_ext = FALSE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF11; c_info.nbit.bit_len = NBIT_BITS11; aid1 = HCcreate(fid, NBIT_TAG11, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_UINT32, NBIT_SIZE11, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE11 * DFKNTsize(DFNT_UINT32), convbuf); if (ret != NBIT_SIZE11 * DFKNTsize(DFNT_UINT32)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_UINT32) * NBIT_SIZE11); ret = Hgetelement(fid, NBIT_TAG11, (uint16) ref1, convbuf); if (ret != NBIT_SIZE11 * DFKNTsize(DFNT_UINT32)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_UINT32, NBIT_SIZE11, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE11; i++) { test_out = (outbuf[i] | (uintn)NBIT_MASK11A) & (uintn)NBIT_MASK11B; test_in = inbuf[i] & (uintn)NBIT_MASK11B; #ifndef TESTING if ((uint32) test_in != (uint32) test_out) { printf("test_nbit11: Wrong data at %d, out (%lu)%lu in (%lu)%lu\n", i, (unsigned long) outbuf[i], (unsigned long) test_out, (unsigned long) inbuf[i], (unsigned long) test_in); errors++; } #else printf("data at %d, out (%u)%u in (%u)%u\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } static void test_nbit12(int32 fid) { int32 aid1; uint16 ref1; int i; int32 ret; intn errors = 0; model_info m_info; comp_info c_info; int32 *outbuf, *inbuf; int32 test_out, test_in; uint8 *convbuf; outbuf = (int32 *) HDmalloc(NBIT_SIZE12 * sizeof(int32)); inbuf = (int32 *) HDmalloc(NBIT_SIZE12 * sizeof(int32)); convbuf = (uint8 *) HDmalloc(NBIT_SIZE12 * (size_t)DFKNTsize(DFNT_INT32)); for (i = 0; i < NBIT_SIZE12; i++) /* fill with pseudo-random data */ outbuf[i] = (((i * 300001) % ((int32) 4 * 256 * 256 * 256)) - ((int32) 2 * 256 * 256 * 256)) << ((NBIT_OFF10 - NBIT_BITS10) + 1); ref1 = Hnewref(fid); CHECK_VOID(ref1, 0, "Hnewref"); MESSAGE(5, printf("Create a new element as a signed 32-bit n-bit element\n"); ); c_info.nbit.nt = DFNT_INT32; c_info.nbit.sign_ext = TRUE; c_info.nbit.fill_one = TRUE; c_info.nbit.start_bit = NBIT_OFF12; c_info.nbit.bit_len = NBIT_BITS12; aid1 = HCcreate(fid, NBIT_TAG12, ref1, COMP_MODEL_STDIO, &m_info, COMP_CODE_NBIT, &c_info); CHECK_VOID(aid1, FAIL, "HCcreate"); ret = DFKconvert(outbuf, convbuf, DFNT_INT32, NBIT_SIZE12, DFACC_WRITE, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); ret = Hwrite(aid1, NBIT_SIZE12 * DFKNTsize(DFNT_INT32), convbuf); if (ret != NBIT_SIZE12 * DFKNTsize(DFNT_INT32)) { fprintf(stderr, "ERROR(%d): Hwrite returned the wrong length: %d\n", __LINE__, (int) ret); HEprint(stdout, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); HDmemset(convbuf, 0, DFKNTsize(DFNT_INT32) * NBIT_SIZE12); ret = Hgetelement(fid, NBIT_TAG12, (uint16) ref1, convbuf); if (ret != NBIT_SIZE12 * DFKNTsize(DFNT_INT32)) { HEprint(stderr, 0); fprintf(stderr, "ERROR: (%d) Hgetelement returned the wrong length: %d\n", __LINE__, (int) ret); errors++; } ret = DFKconvert(convbuf, inbuf, DFNT_INT32, NBIT_SIZE12, DFACC_READ, 0, 0); CHECK_VOID(ret, FAIL, "DFKconvert"); for (i = 0; i < NBIT_SIZE12; i++) { test_out = (int32)(((uintn)outbuf[i] | (uintn)NBIT_MASK12A) & (uintn)NBIT_MASK12B); test_in = (int32)((uintn)inbuf[i] & (uintn)NBIT_MASK12B); #ifndef TESTING if ((int32) test_in != (int32) test_out) { printf("test_nbit12: Wrong data at %d, out (%ld)%ld in (%ld)%ld\n", i, (long) outbuf[i], (long) test_out, (long) inbuf[i], (long) test_in); errors++; } #else printf("data at %d, out (%d)%d in (%d)%d\n", i, outbuf[i], test_out, inbuf[i], test_in); #endif } HDfree(outbuf); HDfree(inbuf); HDfree(convbuf); num_errs += errors; } void test_nbit(void) { int32 fid; int32 ret; MESSAGE(5, printf("Creating a file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); test_nbit1(fid); /* basic uint8 test */ test_nbit2(fid); /* basic int8 test */ test_nbit3(fid); /* basic uint16 test */ test_nbit4(fid); /* basic int16 test */ test_nbit5(fid); /* basic uint32 test */ test_nbit6(fid); /* basic int32 test */ test_nbit7(fid); /* advanced uint8 with fill-ones test */ test_nbit8(fid); /* advanced int8 with fill-ones test */ test_nbit9(fid); /* advanced uint16 with fill-ones test */ test_nbit10(fid); /* advanced int16 with fill-ones test */ test_nbit11(fid); /* advanced uint32 with fill-ones test */ test_nbit12(fid); /* advanced int32 with fill-ones test */ MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); } libhdf4-4.2.10/HDF_ALT/hdf/test/blocks.c0000644000000000000000000002231112421456623014246 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: blocks.c 4932 2007-09-07 17:17:23Z bmribler $ */ #include "tproto.h" #define TESTFILE_NAME "tblocks.hdf" #define BUFSIZE 4096 #define HLCONVERT_TAG 1500 static uint8 outbuf[BUFSIZE], inbuf[BUFSIZE]; void test_hblocks(void) { int32 fid, fid1; int32 aid, aid1, aid2; int32 fileid, length, offset, posn; uint16 tag, ref; int16 acc_mode, special; register int i; int32 ret; intn errors = 0; for (i = 0; i < BUFSIZE; i++) outbuf[i] = (char) (i % 256); MESSAGE(5, printf("Creating a file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); MESSAGE(5, printf("Write an element and then promote to Linked Blocks\n"); ); ret = Hputelement(fid, (uint16) 1000, (uint16) 1, (const uint8 *)"element 1000 1 wrong ", (int32)HDstrlen("element 1000 1 wrong ") + 1); CHECK_VOID(ret, FAIL, "Hputelement"); aid1 = HLcreate(fid, 1000, 1, 10, 10); CHECK_VOID(aid1, FAIL, "HLcreate"); ret = Hseek(aid1, (int32)HDstrlen("element 1000 1 "), DF_START); CHECK_VOID(ret, FAIL, "Hseek"); ret = Hwrite(aid1, (int32)HDstrlen("correct") + 1, "correct"); if (ret != (int32) HDstrlen("correct") + 1) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Create a new element as a Linked Block\n"); ); aid1 = HLcreate(fid, 1000, 4, 512, 2); CHECK_VOID(aid1, FAIL, "HLcreate"); ret = Hwrite(aid1, BUFSIZE / 2, outbuf); if (ret != BUFSIZE / 2) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); aid1 = HLcreate(fid, 1000, 2, 128, 16); CHECK_VOID(aid1, FAIL, "HLcreate"); ret = Hwrite(aid1, (int32)HDstrlen("element 1000 2") + 1, "element 1000 2"); if (ret != (int32) HDstrlen("element 1000 2") + 1) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Verifying data\n"); ); ret = Hgetelement(fid, (uint16) 1000, (uint16) 4, inbuf); if (ret != BUFSIZE / 2) { fprintf(stderr, "ERROR(%d): Hgetelement returned the wrong length: %d\n", (int)__LINE__,(int) ret); errors++; } for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } inbuf[i] = '\0'; } aid1 = HLcreate(fid, 1020, 2, 128, 4); CHECK_VOID(aid1, FAIL, "HLcreate"); ret = Hwrite(aid1, BUFSIZE, outbuf); if (ret != BUFSIZE) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing and re-opening file %s\n", TESTFILE_NAME); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); MESSAGE(5, printf("Verifying data\n"); ); aid1 = Hstartread(fid, 1000, 1); CHECK_VOID(aid1, FAIL, "Hstartread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; } ret = Hread(aid1, length, inbuf); if (ret != 23) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; } if (HDstrcmp((const char *) inbuf, (const char *) "element 1000 1 correct")) { fprintf(stderr, "ERROR: Hread returned the wrong data\n"); fprintf(stderr, "\t Is: %s\n", (char *) inbuf); fprintf(stderr, "\tShould be: element 1000 1 correct\n"); errors++; } ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); ret = Hnextread(aid1, 1000, DFREF_WILDCARD, DF_CURRENT); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; } ret = Hnextread(aid1, DFTAG_WILDCARD, DFREF_WILDCARD, DF_START); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (special) { fprintf(stderr, "ERROR: Hinquire thinks a non-special element is special\n"); errors++; } ret = Hnextread(aid1, DFTAG_WILDCARD, 1151, DF_CURRENT); if (ret != FAIL) { fprintf(stderr, "ERROR: Hnextread found object with bogus ref\n"); errors++; } ret = Hnextread(aid1, 1020, DFREF_WILDCARD, DF_CURRENT); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; } MESSAGE(5, printf("Writing to existing element\n"); ); aid2 = Hstartwrite(fid, 1000, 1, 4); CHECK_VOID(aid2, FAIL, "Hstartwrite"); ret = Hwrite(aid2, 4, "ABCD"); if (ret != 4) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } /* let's try to write to a read element for fun */ ret = Hwrite(aid1, 4, "ABCD"); if (ret != FAIL) { fprintf(stderr, "ERROR: Hwrite allowed write to read access obj\n"); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Open a second id for file %s\n", TESTFILE_NAME); ); fid1 = Hopen(TESTFILE_NAME, DFACC_READ, 0); CHECK_VOID(fid1, FAIL, "Hopen"); ret = (int32)Hnewref(fid1); CHECK_VOID(ret, FAIL, "Hnewref"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); ret = Hclose(fid1); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Testing HLconvert function\n"); ); fid = Hopen(TESTFILE_NAME, DFACC_WRITE, 0); CHECK_VOID(fid, FAIL, "Hopen"); ref = Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); aid = Hstartwrite(fid, HLCONVERT_TAG, ref, 5); CHECK_VOID(aid, FAIL, "Hstartwrite"); ret = Hwrite(aid, 4, outbuf); CHECK_VOID(ret, FAIL, "Hwrite"); ret = HLconvert(aid, 256, 10); CHECK_VOID(ret, FAIL, "HLconvert"); ret = Hwrite(aid, 508, &outbuf[4]); CHECK_VOID(ret, FAIL, "Hwrite"); ret = Hendaccess(aid); CHECK_VOID(ret, FAIL, "Hendaccess"); aid = Hstartread(fid, HLCONVERT_TAG, ref); CHECK_VOID(aid, FAIL, "Hstartread"); ret = Hread(aid, 512, inbuf); CHECK_VOID(ret, FAIL, "Hread"); ret = Hendaccess(aid); CHECK_VOID(ret, FAIL, "Hendaccess"); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); if (HDmemcmp(inbuf, outbuf, 512)) { fprintf(stderr, "Error when reading data from HLconvert buffer\n"); errors++; } num_errs += errors; /* increment global error count */ } libhdf4-4.2.10/HDF_ALT/hdf/test/file1.c0000644000000000000000000001724412421456623014002 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: file1.c 6043 2014-01-21 21:09:03Z acheng $ */ /* test opening files and access elements until limits are reached */ #include "tproto.h" #include "hfile.h" #define BIG 600 #define TESTFILE_NAME "thf" #define TESTREF_NAME "tref.hdf" #define MAX_REF_TESTED MAX_REF static int32 files[BIG]; static int32 accs[BIG]; static void test_file_limits(void); static void test_ref_limits(void); static void test_file_limits(void) { int i; int32 ret; MESSAGE(5, puts("Opening many files of same name"); ); for (i = 0; i < BIG; i++) { files[i] = Hopen("thf.hdf", DFACC_RDWR, 0); if (files[i] < 0) { /* i++; */ break; } /* end if */ } MESSAGE(5, printf("Opening stopped at %d/%d files\n", i, BIG); ); MESSAGE(5, puts("Closing all files"); ); for (i--; i >=0; i--) { ret = Hclose(files[i]); if (ret < 0) printf("Error closing file %d\n", i); } MESSAGE(5, puts("Closed files"); ); MESSAGE(5, puts("Opening many files of different names"); ); for (i = 0; i < BIG; i++) { char fname[100]; sprintf(fname, "%s%1d.hdf", TESTFILE_NAME, i); files[i] = Hopen(fname, DFACC_ALL, 0); if (files[i] < 0) { /* i++; */ break; } /* end if */ } MESSAGE(5, printf("Opening stopped at %d/%d files\n", i, BIG); ); MESSAGE(5, puts("Closing all files except first open"); ); for (i--; i > 0; i--) { ret = Hclose(files[i]); if (ret < 0) printf("Error closing file %d\n", i); } MESSAGE(5, puts("Closed files"); ); MESSAGE(5, puts("Opening write access elements"); ); for (i = 0; i < BIG; i++) { accs[i] = Hstartwrite(files[0], (uint16) 100, (uint16) i, 100L); if (accs[i] < 0) break; } MESSAGE(5, printf("Opening stoped at %d element\n", i); ); MESSAGE(5, puts("Closing access elements"); ); for (i--; i >= 0; i--) { ret = Hendaccess(accs[i]); if (ret < 0) printf("Error ending access %d\n", i); } MESSAGE(5, puts("Ended access"); ); ret = Hclose(files[0]); } /* end test_file_limits() */ #define TAG1 ((uint16)1000) #define TAG2 ((uint16)1001) static void test_ref_limits(void) { int32 i; /* local counting variable */ int32 fid; /* file ID */ int32 iloop; MESSAGE(6, printf("Testing reference # limits\n");); MESSAGE(7, printf("Writing out data\n");); /* Write out MAX_REF number of data items for each tag */ fid=Hopen(TESTREF_NAME, DFACC_CREATE, 512); CHECK_VOID(fid, FAIL, "Hopen"); if(fid!=FAIL) { iloop = MAX_REF_TESTED; for(i=1; i<=(iloop/2)+5; i++) { int32 aid; uint16 ref; int32 data; int32 ret; /* Write out data to tag1 */ ref=Htagnewref(fid,TAG1); CHECK_VOID(ref, 0, "Htagnewref"); aid=Hstartwrite(fid,TAG1,ref,sizeof(int32)); CHECK_VOID(aid, FAIL, "Hstartwrite"); data=(int32)ref; ret=Hwrite(aid,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hwrite"); ret=Hendaccess(aid); CHECK_VOID(ret, FAIL, "Hendaccess"); /* lets be a little smatter here */ if (ret == FAIL) break; /* Write out data to tag2 */ ref=Htagnewref(fid,TAG2); CHECK_VOID(ref, 0, "Htagnewref"); aid=Hstartwrite(fid,TAG2,ref,sizeof(int32)); CHECK_VOID(aid, FAIL, "Hstartwrite"); data=ref<<16; ret=Hwrite(aid,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hwrite"); ret=Hendaccess(aid); CHECK_VOID(ret, FAIL, "Hendaccess"); /* lets be a little smatter here */ if (ret == FAIL) break; } /* end for */ Hclose(fid); MESSAGE(7, printf("Verifying data\n");); /* Check the data written earlier */ fid=Hopen(TESTREF_NAME, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen"); if(fid!=FAIL) { uint16 ref; int32 aid1,aid2; int32 data; int32 ret; /* Read in data from tag1 */ aid1=Hstartread(fid,TAG1,DFREF_WILDCARD); CHECK_VOID(aid1, FAIL, "Hstartread"); ret=Hread(aid1,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hread"); ret=Hinquire(aid1,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL); CHECK_VOID(ret, FAIL, "Hinquire"); VERIFY_VOID((uint16)data,ref,"Hread"); /* Read in data from tag2 */ aid2=Hstartread(fid,TAG2,DFREF_WILDCARD); CHECK_VOID(aid2, FAIL, "Hstartread"); ret=Hread(aid2,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hread"); ret=Hinquire(aid2,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL); CHECK_VOID(ret, FAIL, "Hinquire"); VERIFY_VOID((uint32)data,(((uint32)ref)<<16),"Hread"); while(Hnextread(aid1,TAG1,DFTAG_WILDCARD,DF_CURRENT)!=FAIL) { ret=Hread(aid1,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hread"); ret=Hinquire(aid1,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL); CHECK_VOID(ret, FAIL, "Hinquire"); VERIFY_VOID((uint16)data,ref,"Hread"); if(Hnextread(aid2,TAG2,DFTAG_WILDCARD,DF_CURRENT)!=FAIL) { ret=Hread(aid2,sizeof(int32),&data); CHECK_VOID(ret, FAIL, "Hread"); ret=Hinquire(aid2,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL); CHECK_VOID(ret, FAIL, "Hinquire"); VERIFY_VOID((uint32)data,(((uint32)ref)<<16),"Hread"); } /* end while */ } /* end while */ ret=Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); ret=Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); Hclose(fid); } /* end if */ } /* end if */ } /* end test_ref_limits() */ void test_hfile1(void) { test_file_limits(); test_ref_limits(); } libhdf4-4.2.10/HDF_ALT/hdf/test/forsupff.f0000644000000000000000000002212512421456623014631 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C $Id: forsupff.f 6036 2014-01-20 17:28:01Z acheng $ C C------------------------------------------------------------------------------ C File: forsupff.f C Purpose: Fortran support routines for Fortran test routines C Invokes: Nothing currently... C Contents: C Remarks: none C------------------------------------------------------------------------------ C------------------------------------------------------------------------------ C Name: RESULT C Purpose: Report on success of HDF routines C Inputs: C errval: value to check for error C routine: name of routine tested C num_failed: running sum of the number of failures C Returns: none C Users: HDF Fortran programmers C Invokes: none C------------------------------------------------------------------------------ subroutine RESULT(errval, routine, num_failed) implicit none include '../src/hdf.inc' include 'fortest.inc' integer errval character*(*) routine integer num_failed if (errval .eq. FAIL) then num_failed = num_failed + 1 print *, ' >>> ', routine, ' FAILED: ret = ', * errval, ' <<<' else print *, routine, ' SUCCESSFUL' endif return end C------------------------------------------------------------------------------ C Name: VRFY C Purpose: Report on success of HDF routines, using verbosity C Inputs: C errval: value to check for error C routine: name of routine tested C num_failed: running sum of the number of failures C Returns: none C Users: HDF Fortran programmers C Invokes: none C------------------------------------------------------------------------------ subroutine VRFY(errval, routine, num_failed) implicit none include '../src/hdf.inc' include 'fortest.inc' integer errval character*(*) routine integer num_failed if (errval .eq. FAIL) then num_failed = num_failed + 1 print *, ' >>> ', routine, ' FAILED: ret = ', * errval, ' <<<' else if (verbosity .ge. VERBO_HI) then print *, routine, ' SUCCESSFUL' endif endif return end C------------------------------------------------------------------------------ C Name: MESSAGE C Purpose: Print something, depending on the verbosity level C Inputs: C priority: priority of message (lower values have higher priority) C out_str: string to output C Returns: none C Users: HDF Fortran programmers C Invokes: none C------------------------------------------------------------------------------ subroutine MESSAGE(priority, out_str) implicit none include 'fortest.inc' integer priority character*(*) out_str if (priority .le. Verbosity) then print *, out_str endif return end C*************************************************************** C C gen2Dfloat: generate 2-D data array C C*************************************************************** subroutine gen2Dfloat(height, width, data) implicit none include 'fortest.inc' integer height, width real data(height,width) integer i, j C store one value per row, increasing by one for each row do 110 i=1, height do 100 j=1, width data(i, j) = float(i) 100 continue 110 continue return end C*************************************************************** C C genimage: generate image from 2-D float array C C*************************************************************** subroutine genimage(height, width, data, image) implicit none include 'fortest.inc' integer height, width real data(height, width) character image(height, width) integer i, j real max, min, multiplier max = data(1,1) min = data(1,1) do 110 i=1, height do 100 j=1, width if (max .gt. data(i,j)) max = data(i,j) if (min .lt. data(i,j)) min = data(i,j) 100 continue 110 continue C store one value per row, increasing by one for each row multiplier = 255.0 /(max-min) do 210 i=1, height do 200 j=1, width image(i,j) = char( int((data(i,j)-min) * multiplier) ) 200 continue 210 continue return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE errchkio C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine errchkio(err1, err2, err3, num_err, msg) implicit none include '../src/hdf.inc' include 'fortest.inc' integer err1, err2, err3, num_err character*(*) msg if (err1.eq.FAIL .or. err2.eq.FAIL .or. err3.eq.FAIL) then num_err = num_err + 1 print * print *,'>>> Test failed for ',msg, ' <<<' print *, ' err1=',err1, ' err2=',err2, ' err3=',err3 else if (verbosity .ge. VERBO_HI) then print *,'Test passed for ', msg endif endif return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE errchkarr C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine errchkarr(err1, err2, err3, num_err, type) implicit none include 'fortest.inc' integer err1, err2, err3, num_err character*(*) type if (err1 .eq. 1) then print *, '>>> Test failed for ', type, ' array' num_err = num_err + 1 else if (verbosity .ge. VERBO_HI) then print *, 'Test passed for ', type, ' array' endif endif if (err2 .eq. 1) then print *, '>>> Test failed for ',type, ' scales.' num_err = num_err + 1 else if (verbosity .ge. VERBO_HI) then print *, 'Test passed for ', type, ' scales.' endif endif if (err3 .eq. 1) then print *, '>>> Test failed for ', type, ' max/min.' num_err = num_err + 1 else if (verbosity .ge. VERBO_HI) then print *, 'Test passed for ', type, ' max/min.' endif endif return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE err_check C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine err_check(err, num_err, type) implicit none include 'fortest.inc' integer err, num_err character*(*) type if (err .eq. 1) then print *,'>>> Test failed for ',type, ' array.' num_err = num_err+1 else if (verbosity .ge. VERBO_HI) then print *,'Test passed for ', type, ' array.' endif endif return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE ptestban C Print the Test banner C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine ptestban(action, name) implicit none include 'fortest.inc' character*(*) action, name if (Verbosity .ge. VERBO_DEF) then call MESSAGE(VERBO_LO, + '=====================================') print *, action, ' -- ', name call MESSAGE(VERBO_LO, + '=====================================') endif return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE hsystem(cmd) C Invoke the unix system() function C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine hsystem(cmd) implicit none character*(*) cmd integer retcode, hisystem retcode = hisystem(cmd, len(cmd)) return end CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C SUBROUTINE fixname(name, name_out, name_out_len) C Takes care of srcdir build C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine fixname(name, name_out, name_out_len) implicit none character*(*) name character*(*) name_out integer retcode, fixnamec, name_out_len retcode = fixnamec(name, len(name), name_out, name_out_len) return end libhdf4-4.2.10/HDF_ALT/hdf/test/tsdntf.f0000644000000000000000000001654012421456623014305 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tsdntf.f 6036 2014-01-20 17:28:01Z acheng $ C subroutine tsdntf (number_failed) C C C Program to test writing SDSs with different types of data. C C Input file: none C Output files: o.hdf.1, o.hdf.2, ... o.hdf.5 C implicit none include 'fortest.inc' integer number_failed character*20 myname parameter (myname = 'sdnt') integer dspdata, dsgdata, dsadata, dssdims, dssnt real*8 f64(10,10), tf64(10,10) real*4 f32(10,10), tf32(10,10) integer*2 i16(10,10), ti16(10,10) integer*4 i32(10,10), ti32(10,10) character i8(10,10), ti8(10,10) integer i, j, err integer rank integer dims(2) integer DFNT_FLOAT64, DFNT_FLOAT32, DFNT_INT8 integer DFNT_INT16, DFNT_INT32 call ptestban('Testing', myname) number_failed = 0 DFNT_FLOAT64 = 6 DFNT_FLOAT32 = 5 DFNT_INT8 = 20 DFNT_INT16 = 22 DFNT_INT32 = 24 rank = 2 dims(1) = 10 dims(2) = 10 call MESSAGE(5, 'Creating arrays...') do 110 i=1,10 do 100 j=1,10 f64(i,j) = (i * 10) + j f32(i,j) = (i * 10) + j i8(i,j) = char( (i * 10) + j ) i16(i,j) = (i * 10) + j i32(i,j) = (i * 10) + j 100 continue 110 continue err = dssdims(rank, dims) C individual files call MESSAGE(5, 'Testing arrays in individual files...') err = dssnt(DFNT_FLOAT64) call VRFY(err, 'dssnt (float64)', number_failed) err = dspdata('o1.hdf', rank, dims, f64) call VRFY(err, 'dspdata (float64)', number_failed) err = dsgdata('o1.hdf', rank, dims, tf64) call VRFY(err, 'dsgdata (float64)', number_failed) err = 0 do 160 i=1,10 do 150 j=1,10 if (f64(i,j).ne.tf64(i,j)) err = 1 tf64(i,j) = 0.0 150 continue 160 continue call err_check(err, number_failed, 'float64') err = dssnt(DFNT_FLOAT32) call VRFY(err, 'dssnt (float32)', number_failed) err = dspdata('o2.hdf', rank, dims, f32) call VRFY(err, 'dspdata (float32)', number_failed) err = dsgdata('o2.hdf', rank, dims, tf32) call VRFY(err, 'dsgdata (float32)', number_failed) err = 0 do 210 i=1,10 do 200 j=1,10 if (f32(i,j).ne.tf32(i,j)) err = 1 tf32(i,j) = 0.0 200 continue 210 continue call err_check(err, number_failed, 'float32') err = dssnt(DFNT_INT8) call VRFY(err, 'dssnt (int8)', number_failed) err = dspdata('o3.hdf', rank, dims, i8) call VRFY(err, 'dspdata (int8)', number_failed) err = dsgdata('o3.hdf', rank, dims, ti8) call VRFY(err, 'dsgdata (int8)', number_failed) err = 0 do 310 i=1,10 do 300 j=1,10 if (i8(i,j).ne.ti8(i,j)) err = 1 ti8(i,j) = char(0) 300 continue 310 continue call err_check(err, number_failed, 'int8') err = dssnt(DFNT_INT16) call VRFY(err, 'dssnt (int16)', number_failed) err = dspdata('o4.hdf', rank, dims, i16) call VRFY(err, 'dspdata (int16)', number_failed) err = dsgdata('o4.hdf', rank, dims, ti16) call VRFY(err, 'dsgdata (int16)', number_failed) err = 0 do 410 i=1,10 do 400 j=1,10 if (i16(i,j).ne.ti16(i,j)) err = 1 ti16(i,j) = 0 400 continue 410 continue call err_check(err, number_failed, 'int16') err = dssnt(DFNT_INT32) call VRFY(err, 'dssnt (int32)', number_failed) err = dspdata('o5.hdf', rank, dims, i32) call VRFY(err, 'dspdata (int32)', number_failed) err = dsgdata('o5.hdf', rank, dims, ti32) call VRFY(err, 'dsgdata (int32)', number_failed) err = 0 do 510 i=1,10 do 500 j=1,10 if (i32(i,j).ne.ti32(i,j)) err = 1 ti32(i,j) = 0 500 continue 510 continue call err_check(err, number_failed, 'int32') C call MESSAGE(5, 'Writing arrays to single file.') C err = dssnt(DFNT_FLOAT64) err = dsadata('ntf.hdf', rank, dims, f64) call VRFY(err, 'dsadata (f64)', number_failed) err = dssnt(DFNT_FLOAT32) err = dsadata('ntf.hdf', rank, dims, f32) call VRFY(err, 'dsadata (f32)', number_failed) err = dssnt(DFNT_INT8) err = dsadata('ntf.hdf', rank, dims, i8) call VRFY(err, 'dsadata (i8)', number_failed) err = dssnt(DFNT_INT16) err = dsadata('ntf.hdf', rank, dims, i16) call VRFY(err, 'dsadata (i16)', number_failed) err = dssnt(DFNT_INT32) err = dsadata('ntf.hdf', rank, dims, i32) call VRFY(err, 'dsadata (i32)', number_failed) C call MESSAGE(5, 'Reading arrays from single file... ') C err = dsgdata('ntf.hdf', rank, dims, tf64) call VRFY(err, 'dsgdata (tf64)', number_failed) err = dsgdata('ntf.hdf', rank, dims, tf32) call VRFY(err, 'dsgdata (tf32)', number_failed) err = dsgdata('ntf.hdf', rank, dims, ti8) call VRFY(err, 'dsgdata (ti8)', number_failed) err = dsgdata('ntf.hdf', rank, dims, ti16) call VRFY(err, 'dsgdata (ti16)', number_failed) err = dsgdata('ntf.hdf', rank, dims, ti32) call VRFY(err, 'dsgdata (ti32)', number_failed) C call MESSAGE(5, 'Checking arrays from single file...\n\n') err = 0 do 910 i=1,10 do 900 j=1,10 if (f64(i,j) .ne. tf64(i,j)) err = 1 900 continue 910 continue call err_check(err, number_failed, 'float64') C err = 0 do 1010 i=1,10 do 1000 j=1,10 if (f32(i,j) .ne. tf32(i,j)) err = 1 1000 continue 1010 continue call err_check(err, number_failed, 'float32') C err = 0 do 1110 i=1,10 do 1100 j=1,10 if (i8(i,j) .ne. ti8(i,j)) err = 1 1100 continue 1110 continue call err_check(err, number_failed, 'int8') C err = 0 do 1210 i=1,10 do 1200 j=1,10 if (i16(i,j) .ne. ti16(i,j)) err = 1 1200 continue 1210 continue call err_check(err, number_failed, 'int16') C err = 0 do 1310 i=1,10 do 1300 j=1,10 if (i32(i,j) .ne. ti32(i,j)) err = 1 1300 continue 1310 continue call err_check(err, number_failed, 'int32') C if (number_failed .gt. 0 ) then print *,' >>> ', number_failed, ' TESTS FAILED <<<' else call MESSAGE(VERBO_HI, ' >>> ALL TESTS PASSED <<<') endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/egfhi.res0000644000000000000000000000655512421456623014436 0ustar # # NOTE: This file was generated on a machine where the size of # local ints and floats is 4 bytes. On machines with different # sizes the 'vsize=X' entries will be different. # FULL DUMP FILE: egfhi.hdf vg:0 <1965/5> (vgroup with 3 vdatas (fortran) {test}) has 3 entries: vs:0 <1962/2> nv=100 i=0 fld [MP] vsize=4 (melting-points {test}) 0: fld [MP], type=5, order=1 501.001007 502.002014 503.002991 504.003998 505.005005 506.006012 507.006989 508.007996 509.009003 510.010010 511.010986 512.012024 513.013000 514.013977 515.015015 516.015991 517.017029 518.018005 519.018982 520.020020 521.020996 522.021973 523.023010 524.023987 525.025024 526.026001 527.026978 528.028015 529.028992 530.030029 531.031006 532.031982 533.033020 534.033997 535.034973 536.036011 537.036987 538.038025 539.039001 540.039978 541.041016 542.041992 543.043030 544.044006 545.044983 546.046021 547.046997 548.047974 549.049011 550.049988 551.051025 552.052002 553.052979 554.054016 555.054993 556.056030 557.057007 558.057983 559.059021 560.059998 561.060974 562.062012 563.062988 564.064026 565.065002 566.065979 567.067017 568.067993 569.069031 570.070007 571.070984 572.072021 573.072998 574.073975 575.075012 576.075989 577.077026 578.078003 579.078979 580.080017 581.080994 582.082031 583.083008 584.083984 585.085022 586.085999 587.086975 588.088013 589.088989 590.090027 591.091003 592.091980 593.093018 594.093994 595.095032 596.096008 597.096985 598.098022 599.098999 600.099976 vs:1 <1962/3> nv=120 i=0 fld [AGE] vsize=4 (age-of-specimenstest {test}) 0: fld [AGE], type=24, order=1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 vs:2 <1962/4> nv=100 i=0 fld [PLIST] vsize=12 (connectivity triplets {test}) 0: fld [PLIST], type=24, order=3 1 2 3 2 4 6 3 6 9 4 8 12 5 10 15 6 12 18 7 14 21 8 16 24 9 18 27 10 20 30 11 22 33 12 24 36 13 26 39 14 28 42 15 30 45 16 32 48 17 34 51 18 36 54 19 38 57 20 40 60 21 42 63 22 44 66 23 46 69 24 48 72 25 50 75 26 52 78 27 54 81 28 56 84 29 58 87 30 60 90 31 62 93 32 64 96 33 66 99 34 68 102 35 70 105 36 72 108 37 74 111 38 76 114 39 78 117 40 80 120 41 82 123 42 84 126 43 86 129 44 88 132 45 90 135 46 92 138 47 94 141 48 96 144 49 98 147 50 100 150 51 102 153 52 104 156 53 106 159 54 108 162 55 110 165 56 112 168 57 114 171 58 116 174 59 118 177 60 120 180 61 122 183 62 124 186 63 126 189 64 128 192 65 130 195 66 132 198 67 134 201 68 136 204 69 138 207 70 140 210 71 142 213 72 144 216 73 146 219 74 148 222 75 150 225 76 152 228 77 154 231 78 156 234 79 158 237 80 160 240 81 162 243 82 164 246 83 166 249 84 168 252 85 170 255 86 172 258 87 174 261 88 176 264 89 178 267 90 180 270 91 182 273 92 184 276 93 186 279 94 188 282 95 190 285 96 192 288 97 194 291 98 196 294 99 198 297 100 200 300 libhdf4-4.2.10/HDF_ALT/hdf/test/man.c0000644000000000000000000007712212421456623013556 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: man.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*********************************************************** * * Test program: man * * This program stores annotations in a file using Multi-file interface ANxxx * It tests writing/reading file labels/descriptions and reading/writing * anntotations to SDS's and RIS. The old interfaces for these elements * are used to write several SDSs and corresponding RISs to a file. * It doesn't test writing annotations for Vgroups or Vdata. * * NOTE: No verification of the SDS or RI data in the file * is done i.e. data is not read back in. * * 1. Writes file labels and descriptions. * * 2. It writes labels and descriptions for all 2 out of 3 SDSs. * * 3. It writes labels and descriptions for all RISs. * * 4. Tests re-writing of annotation(only one type is tested but * it should suffice to test the internals) while preserving * original tag/ref of element. * *************************************************************/ /* includes */ #include "tproto.h" #define TESTFILE "tman.hdf" /* testfile to write annotations to */ #define ROWS 10 /* row size of dataset/image */ #define COLS 10 /* column size of dataset/image */ #define REPS 3 /* number of images/data sets to write to file */ /* File labels/desriptions to write */ static const char *file_lab[3] = {"File label #1: aaa", "File label #2: bbbbbb", "File label #3: cccc"}; static const char *file_desc[2] = {"File Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 13" "\n 14 15 16 17 18 19 20 **END FILE DESCR**\n", "File Descr #2: A B C D E F G H I J K L \n" " M N O **END FILE DESCR**\n"}; /* Data labels /descriptions to write */ static const char *labsds[2] = {"Object label #1: sds", "Object label #1.1:sds"}; static const char *labris[2] = {"Object label #2: image", "Object label #2.1:image"}; static const char *descsds[2] = {"Object Descr #1: 1 2 3 4 5 6 7 8 9 10 11 12 " "\n 13 14 15 16 17 18 19 20 **END SDS DESCR**\n", "Object Descr #1.1: 1 2 3 4 5 6 7 8 9 10 11 12 " "\n 13 14 15 16 17 18 19 20 **END SDS DESCR**\n"}; static const char *descris[2] = {"Object Descr #2: A B C D E F G H I J K L \n" " M N O **END IMAGE DESCR **\n", "Object Descr #2.1: A B C D E F G H I J K L \n" " M N O **END IMAGE DESCR **\n"}; /* fcn Prototypes */ static VOID genimage (int height, int width, float32 *data, uint8 *image); static VOID gen2Dfloat (int height, int width, float32 *data); static int32 check_fann(const char *fname); static int32 check_lab_desc (const char *fname, uint16 tag, uint16 ref,const char* label[], const char *desc[]); /**************************************************************** ** ** gen2Dfloat: generate 2-D data array ** ****************************************************************/ static VOID gen2Dfloat(int height, int width, float32 *data) { int i, j; float32 *pdata = NULL; /* store one value per row, increasing by one for each row */ pdata = data; for (i = 0; i < height; i++) for (j = 0; j < width; j++) *pdata++ = (float32) (i + 1); } /* gen2Dfloat() */ /**************************************************************** ** ** genimage: generate image from 2-D float array ** ****************************************************************/ static VOID genimage(int height, int width, float32 *data, uint8 *image) { int i, limit; float32 *pdata = NULL; float32 max, min, multiplier; limit = height * width; pdata = data; max = min = *pdata; for (i = 0; i < limit; i++, pdata++) { max = (max > *pdata) ? max : *pdata; min = (min < *pdata) ? min : *pdata; } /* store one value per row, increasing by one for each row */ pdata = data; multiplier = (float32) 255.0 / (max - min); for (i = 0; i < limit; i++) *image++ = (uint8) (((*pdata++) - min) * multiplier); } /* geniamge() */ /**************************************************************** ** ** check_fann_rewrite: Check rewriting a file label while ** preserving original tag/ref of element ** ****************************************************************/ static int32 check_fann_rewrite(const char *fname) { int32 ret = SUCCEED; /* return value */ int32 file_handle; /* file handle */ int32 an_handle; /* annotation interface handle */ int32 ann_handle; /* annotation handle */ int32 nflabs, /* number of file labels */ nfdescs, /* number of file descs */ nolabs, /* total number of data labels */ nodescs; /* total number of data descs */ int32 ann_len; /* length of annotation */ uint16 atag; /* annotation tag */ uint16 aref; /* annotation ref */ char *ann_label = NULL; /* annotation label */ int32 ann_id; uint16 ann_tag; uint16 ann_ref; uint16 b_ann_tag; uint16 b_ann_ref; /* open file again for writing */ ret = file_handle = Hopen(fname, DFACC_RDWR,0); RESULT("Hopen"); /* Start annotation handling */ ret = an_handle = ANstart(file_handle); RESULT("ANstart"); /* Get Info On Annotations In File */ ret = ANfileinfo(an_handle, &nflabs, &nfdescs, &nolabs, &nodescs); RESULT("Anfileinfo"); #ifdef AN_DEBUG printf("There Are Nflabs=%d, Nfdescs=%d, Nolabs=%d, Nodescs=%d \n",nflabs, nfdescs, nolabs, nodescs); #endif /* get first label */ ann_handle = ret = ANselect(an_handle, 0, AN_FILE_LABEL); RESULT("ANselect"); /* save tag ref here */ ret = ANget_tagref(an_handle,0,AN_FILE_LABEL,&b_ann_tag,&b_ann_ref); RESULT("ANget_tagref"); /* rewrite it with 3rd label entry */ ret = ANwriteann(ann_handle, file_lab[2], (int32)HDstrlen(file_lab[2])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); ret = ANend(an_handle); RESULT("ANend"); /* Now get ready to read the first file label back in */ /* Start annotation handling */ ret = an_handle = ANstart(file_handle); RESULT("ANstart"); /* read the first file label */ ann_handle = ret = ANselect(an_handle, 0, AN_FILE_LABEL); RESULT("ANselect"); /* get file label length */ ann_len = ret = ANannlen(ann_handle); RESULT("ANannlen"); /* see if this routine works */ ret = ANget_tagref(an_handle,0,AN_FILE_LABEL,&atag,&aref); RESULT("ANget_tagref"); /* verify against previous tag/ref, should be the same as before re-write */ if (b_ann_tag != atag || b_ann_ref != aref) { printf(">>> Failed to preseve tag/ref for rewriting of file label\n"); num_errs++; } /* see if this routine works. Use tag/ref from ANget_tagref() */ ann_id = ret = ANtagref2id(an_handle,atag,aref); RESULT("ANtagref2id"); if (ann_id != ann_handle) { printf(">>> ANtagref2id failed to return valid annotation handle \n"); num_errs++; } /* see if this routine works. Use annotation id from ANtagref2id() */ ret = ANid2tagref(ann_id,&ann_tag,&ann_ref); RESULT("ANid2tagref"); if (ann_tag != atag || ann_ref != aref) { printf(">>> ANid2tagref failed to return valid tag and ref \n"); num_errs++; } /* see if this routine works. Just a type, not specific. -BMR */ ann_tag = ANatype2tag (AN_DATA_DESC); ret = (ann_tag != DFTAG_DIA) ? FAIL : 0; /*these two statements may not */ RESULT("ANatype2tag"); /* be necessary but that seems like a pattern */ /* in the test so I put them here too. -BMR */ if (ann_tag != DFTAG_DIA) { printf(">>> ANatype2tag failed to return valid tag from a type \n"); num_errs++; } /* check ann length against 3rd label */ if (ann_len != (int32) HDstrlen(file_lab[2])) { printf("\t>>>BAD FILE LABEL LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) ann_len, (int) HDstrlen(file_lab[2])); num_errs++; } /* allocate space for label */ if (ann_label == NULL) { if ((ann_label = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { printf("Error: failed to allocate space to hold file label \n"); return FAIL; } HDmemset(ann_label,'\0', ann_len+1); } /* read label */ ret = ANreadann(ann_handle, ann_label, ann_len+1); RESULT("ANreadann"); /* end acces to label */ ret = ANendaccess(ann_handle); RESULT("ANendaccess"); /* check read label against 3rd label*/ if (HDstrncmp((const char *)ann_label, (const char *)file_lab[2],(size_t)(ann_len+1)) != 0) { printf("\t>>>BAD FILE LABEL. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", ann_label, file_lab[2]); num_errs++; } #ifdef AN_DEBUG printf("found ann_len=%d, file label=%s\n", strlen(ann_label),ann_label); #endif /* Clean up */ HDfree(ann_label); /* free up space */ ann_label = NULL; /* end access to annotations */ ret = ANend(an_handle); RESULT("ANend"); ret = Hclose(file_handle); /* close file */ RESULT("Hclose"); return SUCCEED; } /* check_fann_rewrite() */ /**************************************************************** ** ** check_fann: Check file labels and descriptions in file ** ****************************************************************/ static int32 check_fann(const char *fname) { int32 ret = SUCCEED; /* return value */ int32 file_handle; /* file handle */ int32 an_handle; /* annotation interface handle */ int32 ann_handle; /* annotation handle */ int32 nflabs, /* number of file labels */ nfdescs, /* number of file descs */ nolabs, /* total number of data labels */ nodescs; /* total number of data descs */ int32 ann_len; /* length of annotation */ uint16 atag; /* annotation tag */ uint16 aref; /* annotation ref */ char *ann_label = NULL; /* annotation label */ char *ann_desc = NULL; /* annotation desc */ intn indx; int32 ann_id; uint16 ann_tag; uint16 ann_ref; intn i; /* open file again */ ret = file_handle = Hopen(fname, DFACC_READ,0); RESULT("Hopen"); /* Start annotation handling */ ret = an_handle = ANstart(file_handle); RESULT("ANstart"); /* Get Info On Annotations In File */ ret = ANfileinfo(an_handle, &nflabs, &nfdescs, &nolabs, &nodescs); RESULT("Anfileinfo"); #ifdef AN_DEBUG printf("There Are Nflabs=%d, Nfdescs=%d, Nolabs=%d, Nodescs=%d \n",nflabs, nfdescs, nolabs, nodescs); #endif /* read file labels */ for (i = 0; i < nflabs; i++) { /* select file label */ indx = i; ann_handle = ret = ANselect(an_handle, indx, AN_FILE_LABEL); RESULT("ANselect"); /* get file label length */ ann_len = ret = ANannlen(ann_handle); RESULT("ANannlen"); /* see if this routine works */ ret = ANget_tagref(an_handle,indx,AN_FILE_LABEL,&atag,&aref); RESULT("ANget_tagref"); /* see if this routine works. Use tag/ref from ANget_tagref() */ ann_id = ret = ANtagref2id(an_handle,atag,aref); RESULT("ANtagref2id"); if (ann_id != ann_handle) { printf(">>> ANtagref2id failed to return valid annotation handle \n"); num_errs++; } /* see if this routine works. Use annotation id from ANtagref2id() */ ret = ANid2tagref(ann_id,&ann_tag,&ann_ref); RESULT("ANid2tagref"); if (ann_tag != atag || ann_ref != aref) { printf(">>> ANid2tagref failed to return valid tag and ref \n"); num_errs++; } /* check ann length */ if (ann_len != (int32) HDstrlen(file_lab[i])) { printf("\t>>>BAD FILE LABEL LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) ann_len, (int) HDstrlen(file_lab[i])); num_errs++; } /* allocate space for label */ if (ann_label == NULL) { if ((ann_label = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { printf("Error: failed to allocate space to hold file label \n"); return FAIL; } HDmemset(ann_label,'\0', ann_len+1); } /* read label */ ret = ANreadann(ann_handle, ann_label, ann_len+1); RESULT("ANreadann"); /* end acces to label */ ret = ANendaccess(ann_handle); RESULT("ANendaccess"); /* check label */ if (HDstrncmp((const char *)ann_label, (const char *)file_lab[i],(size_t)(ann_len+1)) != 0) { printf("\t>>>BAD FILE LABEL. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", ann_label, file_lab[i]); num_errs++; } #ifdef AN_DEBUG printf("found ann_len=%d, file label=%s\n", strlen(ann_label),ann_label); #endif HDfree(ann_label); /* free up space */ ann_label = NULL; } /* end for nflabs */ /* read file descriptions */ for (i = 0; i < nfdescs; i++) { /* select file label */ indx = i; ann_handle = ret = ANselect(an_handle, indx, AN_FILE_DESC); RESULT("ANselect"); /* get file label length */ ann_len = ret = ANannlen(ann_handle); RESULT("ANannlen"); /* check ann length */ if (ann_len != (int32) HDstrlen(file_desc[i])) { printf("\t>>>BAD FILE DESC LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) ann_len, (int) HDstrlen(file_desc[i])); num_errs++; } /* allocate space for desc */ if (ann_desc == NULL) { if ((ann_desc = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { printf("Error: failed to allocate space to hold file desc \n"); return FAIL; } HDmemset(ann_desc,'\0', ann_len+1); } /* read desc */ ret = ANreadann(ann_handle, ann_desc, ann_len+1); RESULT("ANreadann"); /* end access to desc */ ret = ANendaccess(ann_handle); RESULT("ANendaccess"); /* check desc */ if (HDstrncmp((const char *)ann_desc,(const char *)file_desc[i],(size_t)(ann_len+1)) != 0) { printf("\t>>>BAD FILE DESC. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", ann_desc, file_desc[i]); num_errs++; } #ifdef AN_DEBUG printf("found ann_len=%d, file desc=%s\n", strlen(ann_desc),ann_desc); #endif HDfree(ann_desc); /* free up space */ ann_desc = NULL; } /* end for nfdescs */ /* Clean up */ if (ann_label != NULL) HDfree(ann_label); if (ann_desc != NULL) HDfree(ann_desc); /* end access to annotations */ ANend(an_handle); Hclose(file_handle); /* close file */ return SUCCEED; } /* check_fann() */ /**************************************************************** ** ** check_lab_desc: read and compare label and description ** with expected ones ** ****************************************************************/ static int32 check_lab_desc(const char *fname, uint16 tag, uint16 ref, const char *label[], const char *desc[]) { int32 ret = SUCCEED; /* return value */ int32 file_handle; /* file handle */ int32 an_handle; /* annotation interface handle */ int32 nflabs, /* number of file labels */ nfdescs, /* number of file descs */ nolabs, /* total number of data labels */ nodescs; /* total number of data descs */ int32 ann_len; /* length of annotation */ char *ann_label = NULL; /* annotation label */ char *ann_desc = NULL; /* annotation desc */ intn num_dlabels, /* number of data labels for an element */ num_ddescs; /* number of data descs for an element */ int32 *dlabels = NULL; /* array of data lables for an element */ int32 *ddescs = NULL; /* array of data descs for an element */ int i; /* open file again */ ret = file_handle = Hopen(fname, DFACC_READ, 0); RESULT("Hopen"); /* Start annotation interface */ ret = an_handle = ANstart(file_handle); RESULT("ANstart"); /* Get Info On Annotations In File */ ret = ANfileinfo(an_handle, &nflabs, &nfdescs, &nolabs, &nodescs); RESULT("Anfileinfo"); #ifdef AN_DEBUG printf("There Are Nflabs=%d, Nfdescs=%d, Nolabs=%d, Nodescs=%d \n",nflabs, nfdescs, nolabs, nodescs); #endif /* Get number of label annotations with this tag/ref */ num_dlabels = ret = ANnumann(an_handle, AN_DATA_LABEL, tag, ref); RESULT("ANnumann"); #ifdef AN_DEBUG printf("there are %d data labels for tag=%d, ref=%d \n", num_dlabels, tag, ref); #endif /* Get number of label descs with this tag/ref */ num_ddescs = ret = ANnumann(an_handle, AN_DATA_DESC, tag, ref); RESULT("ANnumann"); #ifdef AN_DEBUG printf("There Are %d Data Descriptions For Tag=%d, Ref=%d \n", num_ddescs, tag, ref); #endif /* allocate space for list of label annotation id's with this tag/ref */ if (num_dlabels == 0) { printf("Error: no data labels found\n"); num_errs++; } else { if ((dlabels = (int32 *)HDmalloc(num_dlabels * sizeof(int32))) == NULL) { printf("Error: failed to allocate space to hold data label ids\n"); return FAIL; } } /* allocate space for list of description annotation id's with this tag/ref */ if (num_ddescs == 0) { printf("Error: no data descriptions found\n"); num_errs++; } else { if ((ddescs = (int32 *)HDmalloc(num_ddescs * sizeof(int32))) == NULL) { printf("Error: failed to allocate space to hold data descs ids\n"); return FAIL; } } /* get list of label annotations id's with this tag/ref */ ret = ANannlist(an_handle, AN_DATA_LABEL, tag, ref, dlabels); RESULT("ANannlist"); if (ret != num_dlabels) printf("Error:ret!=nlabels there are %d data labels for tag=%d,ref=%d \n", num_dlabels, tag, ref); /* get list of description annotations id's with this tag/ref */ ret = ANannlist(an_handle, AN_DATA_DESC, tag, ref, ddescs); RESULT("ANannlist"); if (ret != num_ddescs) printf("Error:ret!=ndescs there are %d data descss for tag=%d,ref=%d \n", num_ddescs, tag, ref); /* loop through label list */ for (i = 0; i < num_dlabels; i++) { /* get annotation label length */ ann_len = ret = ANannlen(dlabels[i]); RESULT("ANannlen"); /* check ann length */ if (ann_len != (int32) HDstrlen(label[i])) { printf("\t>>>BAD DATA LABEL LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) ann_len, (int) HDstrlen(label[i])); num_errs++; } /* allocate space for label */ if (ann_label == NULL) { if ((ann_label = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { printf("Error: failed to allocate space to hold data label \n"); return FAIL; } HDmemset(ann_label,'\0', ann_len+1); } /* read label */ ret = ANreadann(dlabels[i], ann_label, ann_len+1); RESULT("ANreadann"); /* end acces to label */ ret = ANendaccess(dlabels[i]); RESULT("ANendaccess"); /* check label */ if (HDstrncmp((const char *)ann_label, (const char *)label[i], (size_t)(ann_len+1)) != 0) { printf("\t>>>BAD DATA LABEL. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", ann_label, label[i]); num_errs++; } #ifdef AN_DEBUG printf("found data_len=%d, data label=%s\n", strlen(ann_label),ann_label); #endif HDfree(ann_label); /* free up space */ ann_label = NULL; } /* end for labels */ /* loop through desc list */ for (i = 0; i < num_ddescs; i++) { /* get desc length */ ann_len = ret = ANannlen(ddescs[i]); RESULT("ANannlen"); /* check desc length */ if (ann_len != (int32) HDstrlen(desc[i])) { printf("\t>>>BAD DATA DESC LENGTH.\n\t IS: %d\n\tSHOULD BE: %d<<<\n", (int) ann_len, (int) HDstrlen(desc[i])); num_errs++; } /* allocate space for descritpion */ if (ann_desc == NULL) { if ((ann_desc = (char *)HDmalloc((ann_len+1)*sizeof(char))) == NULL) { printf("Error: failed to allocate space to hold data desc \n"); return FAIL; } HDmemset(ann_desc,'\0', ann_len+1); } /* read description */ ret = ANreadann(ddescs[i], ann_desc, ann_len+1); RESULT("ANreadann"); /* end access to desc */ ret = ANendaccess(ddescs[i]); RESULT("ANendaccess"); /* check desc */ if (HDstrncmp((const char *)ann_desc, (const char *)desc[i], (size_t)ann_len) != 0) { printf("\t>>>BAD DATA DESC. \n\t IS: %s; \n\tSHOULD BE: %s<<<\n", ann_desc, desc[i]); num_errs++; } #ifdef AN_DEBUG printf("found data desclen=%d, desc=%s\n", strlen(ann_desc),ann_desc); #endif HDfree(ann_desc); /* free up space */ ann_desc = NULL; } /* end for descs */ /* free space */ if (dlabels != NULL) HDfree(dlabels); if (ddescs != NULL) HDfree(ddescs); if (ann_label != NULL) HDfree(ann_label); if (ann_desc != NULL) HDfree(ann_desc); /* End annotation interface */ ANend(an_handle); Hclose(file_handle); /* close file */ return SUCCEED; } /* check_lab_desc() */ /**************************************************************** ** ** test_man(): Main annotation test routine ** ** NOTES: Keep in mind the order in which labels/descriptiosn ** are written to the file to make sense of the indices ** returned by ANfileinfo(). ** ** Steps in testing: ** 1. Create arrays for SDS and RI ** 2. Open/Create test file. ** 3. Start Annotation inteface. ** 4. Write file labels and descriptions. ** 5. For 'REPs' count do ** A. create/write SDS(DFSDxxx) to file. ** B. Write 2 labels and 2 descriptons for SDS. ** C. Write image(DFR8xxx) to file ** D. Write 2 labels and 2 descriptions for RI. ** 6. Close annotation inteface ** 7. Close file ** 8. For 'REPs' count do ** A. Get dimesion and ref of SDS ** B. Verify label and descriptions for SDS ->check_lab_desc() ** C. Get image ref and image ** D. Verify label and descriptions for Image->check_lab_desc() ** 9. Check file labels and descriptions->check_fann() ** 10. Clean up. ****************************************************************/ void test_man(void) { uint8 pal[768]; uint8 *image = NULL; uint8 *newimage = NULL; uint16 refnum; int32 ret; intn rank; int i,j; int32 dimsizes[2]; float32 *data = NULL; int32 file_handle; /* file handle */ int32 an_handle; /* annotation interface handle */ int32 ann_handle; /* annotation handle */ /***** generate float array and image *****/ if ((data = (float32 *) HDmalloc(ROWS * COLS * sizeof(float32))) == NULL) { fprintf(stderr,"Error: unable to allocate space\n"); return; } if ((image = (uint8 *) HDmalloc(ROWS * COLS * sizeof(char))) == NULL) { fprintf(stderr,"Error: unable to allocate space\n"); return; } if ((newimage = (uint8 *) HDmalloc(ROWS * COLS * sizeof(char))) == NULL) { fprintf(stderr,"Error: unable to allocate space\n"); return; } /* dimensions of SDS/image */ dimsizes[0] = ROWS; dimsizes[1] = COLS; /* generate images */ gen2Dfloat(ROWS, COLS, data); genimage(ROWS, COLS, data, image); /* Start annotation Interface on file */ ret = file_handle = Hopen(TESTFILE, DFACC_CREATE,0); RESULT("Hopen"); ret = an_handle = ANstart(file_handle); RESULT("ANstart"); /******** Write file labels and descriptions *********/ MESSAGE(5, printf("*** Writing file labels and descriptions ***\n");); /* create and write file labels */ for (i = 1; i >= 0; i--) { ret = ann_handle = ANcreatef(an_handle, AN_FILE_LABEL); RESULT("ANcreatef"); ret = ANwriteann(ann_handle, file_lab[i], (int32)HDstrlen(file_lab[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } /* create and write file descriptions */ for (i = 1; i >= 0; i--) { ret = ann_handle = ANcreatef(an_handle, AN_FILE_DESC); RESULT("ANcreatef"); ret = ANwriteann(ann_handle, file_desc[i], (int32)HDstrlen(file_desc[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } /* set dimensions for SDS */ ret = DFSDsetdims(2, dimsizes); RESULT("DFSDsetdims"); /******** Write labels and descriptions *********/ MESSAGE(5, printf("*** Writing labels and descriptions along with SDS and RIS ***\n");); for (j = 0; j < REPS; j++) { /* Set number type */ ret = DFSDsetNT(DFNT_FLOAT32); RESULT("DFSDsetNT"); /* write out scientific data set first */ ret = DFSDadddata(TESTFILE, 2, dimsizes, (VOIDP) data); RESULT("DFSDadddata"); /* write out annotations for 2 out of every 3 SDS */ if ((j % 2) != 0) { refnum = DFSDlastref(); /* get ref of SDS */ /* create and write data labels */ for (i = 1; i >=0; i--) { ret = ann_handle = ANcreate(an_handle, DFTAG_NDG, refnum, AN_DATA_LABEL); RESULT("ANcreate"); ret = ANwriteann(ann_handle, labsds[i], (int32)HDstrlen(labsds[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } /* create and write data descriptions */ for (i = 1; i >=0; i--) { ret = ann_handle = ANcreate(an_handle, DFTAG_NDG, refnum, AN_DATA_DESC); RESULT("ANcreate"); ret = ANwriteann(ann_handle, descsds[i], (int32)HDstrlen(descsds[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } } /* Write image out */ ret = DFR8addimage(TESTFILE, (VOIDP) image, COLS, ROWS, 0); RESULT("DFR8addimage"); refnum = DFR8lastref(); /* get ref of image */ /* create and write image labels */ for (i = 1; i >=0; i--) { ret = ann_handle = ANcreate(an_handle, DFTAG_RIG, refnum, AN_DATA_LABEL); RESULT("ANcreate"); ret = ANwriteann(ann_handle, labris[i], (int32)HDstrlen(labris[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } /* create and write image descriptions */ for (i = 1; i >=0; i--) { ret = ann_handle = ANcreate(an_handle, DFTAG_RIG, refnum, AN_DATA_DESC); RESULT("ANcreate"); ret = ANwriteann(ann_handle, descris[i], (int32)HDstrlen(descris[i])); RESULT("ANwriteann"); ret = ANendaccess(ann_handle); RESULT("ANendaccess"); } } /* end for j */ /* End writing annotations */ ANend(an_handle); Hclose(file_handle); /* close file */ /******** Read labels and descriptions *********/ MESSAGE(5, printf("*** Reading labels and descriptions for SDS and RIS ***\n");); for (j = 0; j < REPS; j++) { /* get dims for SDS */ ret = DFSDgetdims(TESTFILE, &rank, dimsizes, 3); RESULT("DFSDgetdims"); refnum = DFSDlastref(); /* now get ref of SDS */ /* Check data set labels/descriptions of SDS */ if ((j % 2) != 0) /* read in annotations for 2 out of every 3 */ { if (check_lab_desc(TESTFILE, DFTAG_NDG, refnum, labsds, descsds) == FAIL) return; /* end of test */ } /* get image */ ret = DFR8getimage(TESTFILE, newimage, (int32) COLS, (int32) ROWS, pal); RESULT("DFR8getimage"); refnum = DFR8lastref(); /* now get ref of image */ /* Check image labels/descriptions of image */ if (check_lab_desc(TESTFILE, DFTAG_RIG, refnum, labris, descris) == FAIL) return; /* end of test */ } /***************** Read file labels and descriptions */ MESSAGE(5, printf("*** Reading file label and descriptions ***\n");); /* Verify file lables/descs */ if (check_fann(TESTFILE) == FAIL) return; /* end of test */ /* check the re-writing of annotations works. Only file labels are tested but it should suffice to test the internals */ if (check_fann_rewrite(TESTFILE) == FAIL) return; /* end of test */ /* free up space */ HDfree((VOIDP) data); HDfree((VOIDP) image); HDfree((VOIDP) newimage); } /* test_man() */ libhdf4-4.2.10/HDF_ALT/hdf/test/extelt.c0000644000000000000000000003713212421456623014305 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5201 $"; #endif /* $Id: extelt.c 5201 2009-06-18 14:11:06Z bmribler $ */ /* * These is a first pass at rewriting how these tests for exteranl * elements were done -GV */ #include "tproto.h" #define TESTFILE_NAME "t.hdf" /* file for first 4 series of tests */ #define TESTFILE_NAME1 "tx.hdf" /* file for last test */ #define STRING "element 1000 2" /* 14 bytes */ #define STRING2 "element 1000 1 wrong" /* 22 bytes */ #define STRING3 "element 1000 1 correct" /* 22 bytes */ #define BUF_SIZE 4096 static uint8 outbuf[BUF_SIZE], inbuf[BUF_SIZE]; void test_hextelt(void) { int32 fid, fid1; int32 aid1, aid2; int32 fileid, length, offset, posn; uint16 tag, ref; int16 acc_mode, special; int i; int32 ret; intn errflag = 0; intn errors = 0; /* Initialize buffer */ for (i = 0; i < BUF_SIZE; i++) outbuf[i] = (char) (i % 256); /* Create header file */ MESSAGE(5, printf("Creating base file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Write first object to header file */ MESSAGE(5, printf("Writing object(%lu bytes) into base file\n", (unsigned long)HDstrlen(STRING2)); ); ret = Hputelement(fid, (uint16) 1000, (uint16) 1, (const uint8 *) STRING2, (int32)HDstrlen(STRING2) + 1); CHECK_VOID(ret, FAIL, "Hputelement"); /* Promote the above object to an external object */ MESSAGE(5, printf("Promoting above object to external element in file #1\n"); ); aid1 = HXcreate(fid, 1000, 1, "t1.hdf", (int32) 0, (int32) 0); CHECK_VOID(aid1, FAIL, "HXcreate"); ret = Hseek(aid1, (int32)HDstrlen("element 1000 1") + 1, DF_START); CHECK_VOID(ret, FAIL, "Hseek"); /* Now verify that the new promoted object can be written to */ MESSAGE(5, printf("Writing to promoted object now in file #1 \n"); ); ret = Hwrite(aid1, (int32)HDstrlen("correct") + 1, "correct"); if (ret != (int32) HDstrlen("correct") + 1) { fprintf(stderr, "Hwrite failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Create a new external object of size 2000 bytes in a seperate file */ MESSAGE(5, printf("Creating an external element in file #2\n"); ); aid1 = HXcreate(fid, 1000, 4, "t2.hdf", (int32) 0, (int32) 0); CHECK_VOID(aid1, FAIL, "HXcreate"); MESSAGE(5, printf("Writing 2000 bytes to file #2\n"); ); ret = Hwrite(aid1, 2000, outbuf); CHECK_VOID(ret, FAIL, "Hwrite"); ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Create a new external string object in a seperate file */ MESSAGE(5, printf("Creating an external element in file #3\n"); ); aid1 = HXcreate(fid, 1000, 2, "t3.hdf", (int32) 0, (int32) 0); CHECK_VOID(aid1, FAIL, "HXcreate"); MESSAGE(5, printf("Writing string '%s'(%lu bytes) to file #3\n", STRING, (unsigned long)HDstrlen(STRING)); ); ret = Hwrite(aid1, (int32)HDstrlen(STRING) + 1, STRING); if (ret != (int32) HDstrlen(STRING) + 1) { fprintf(stderr, "Hwrite failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Create a new external object that points to part of an existing element */ MESSAGE(5, printf("Creating an overlapping element that already exists in file #3\n"); ); aid2 = HXcreate(fid, 1001, 2, "t3.hdf", (int32) 8, (int32) 4); CHECK_VOID(aid2, FAIL, "HXcreate"); ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Create a new external object of size 4096 bytes */ MESSAGE(5, printf("Creating an external element in file #4\n"); ); aid1 = HXcreate(fid, 1020, 2, "t4.hdf", (int32) 0, (int32) 0); CHECK_VOID(aid1, FAIL, "HXcreate"); MESSAGE(5, printf("Writing %d bytes to file #4\n", BUF_SIZE); ); ret = Hwrite(aid1, BUF_SIZE, outbuf); if (ret != BUF_SIZE) { fprintf(stderr, "Hwrite failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Close the file */ ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* Now re-open for reading and verifying the elements */ MESSAGE(5, printf("Closing and re-opening base file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(ret, FAIL, "Hopen"); /* Verify element in file #1 */ aid1 = Hstartread(fid, 1000, 1); CHECK_VOID(aid1, FAIL, "Hstartread"); MESSAGE(5, printf("Inquiring about external element in file #1\n"); ); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); for (i = 0; i < BUF_SIZE; i++) inbuf[i] = '\0'; MESSAGE(5, printf("Reading external element in file #1\n"); ); ret = Hread(aid1, length, inbuf); if (ret != length) { fprintf(stderr, "Hread failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } MESSAGE(5, printf("Verifying data(%d bytes) in external element in file #1\n", (int)ret); ); if (HDstrcmp((const char *) inbuf, (const char *) STRING3)) { fprintf(stderr, "Error: Object stored in file #1 is wrong\n"); fprintf(stderr, "\t Is: %s\n", (char *) inbuf); fprintf(stderr, "\tShould be: %s\n",STRING3); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Verify element in file #2 */ aid1 = Hstartread(fid, 1000, 4); CHECK_VOID(aid1, FAIL, "Hstartread"); MESSAGE(5, printf("Inquiring about external element in file #2\n"); ); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); for (i = 0; i < BUF_SIZE; i++) inbuf[i] = 0; ret = Hgetelement(fid, (uint16) tag, (uint16) ref, inbuf); if (ret != length) { fprintf(stderr, "Incorrect element size returned from Hgetelement: %d\n", (int) ret); HEprint(stderr, 0); errors++; } #if 0 ret = Hread(aid1, length, inbuf); if (ret != 2000) { fprintf(stderr, "Incorrect element size returned from Hread: %d\n", (int) ret); HEprint(stderr, 0); errors++; } #endif MESSAGE(5, printf("Verifying data(%d bytes) that was stored to file #2\n",(int)ret); ); errflag = 0; for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { errflag = 1; MESSAGE(8, printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); ); errors++; } inbuf[i] = '\0'; } if (errflag) fprintf(stderr,"Error: Wrong data in inbuf[] from external elment in file #2\n"); ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Verify overlapping element in file #3 */ aid1 = Hstartread(fid, 1001, 2); CHECK_VOID(aid1, FAIL, "Hstartread"); MESSAGE(5, printf("Inquiring about overlaping external element in file #3\n"); ); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); for (i = 0; i < BUF_SIZE; i++) inbuf[i] = '\0'; ret = Hgetelement(fid, (uint16) tag, (uint16) ref, inbuf); if (ret != length) { fprintf(stderr, "Incorrect element size returned from Hgetelement: %d\n", (int) ret); HEprint(stderr, 0); errors++; } #if 0 ret = Hread(aid1, length, inbuf); if (ret != length) { fprintf(stderr, "Incorrect element size returned from Hread: %d\n", (int) ret); HEprint(stderr, 0); errors++; } #endif MESSAGE(5, printf("Verifying data(%d bytes) that was stored in overlapping element in file #3\n",(int)ret); ); if (inbuf[0] != '1' || inbuf[1] != '0' || inbuf[2] != '0' || inbuf[3] != '0') { fprintf(stderr,"Error: One or more errors in overlapping element in file #3\n"); fprintf(stderr, "\t is: %s\n", (char *) inbuf); fprintf(stderr, "\tShould be: %s\n","1000"); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Verify the whole element in file #3 */ aid1 = Hstartread(fid, 1000, 2); CHECK_VOID(aid1, FAIL, "Hstartread"); MESSAGE(5, printf("Inquiring about external element in file #3\n"); ); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); for (i = 0; i < BUF_SIZE; i++) inbuf[i] = '\0'; MESSAGE(5, printf("Reading whole external element in file #3\n"); ); ret = Hread(aid1, length, inbuf); if (ret != length) { fprintf(stderr, "Hread failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } MESSAGE(5, printf("Verifying data(%d bytes) in whole external element in file #3\n", (int)ret); ); if (HDstrcmp((const char *) inbuf, (const char *) STRING)) { fprintf(stderr, "Error: Object stored in file #3 is wrong\n"); fprintf(stderr, "\t is: %s\n", (char *) inbuf); fprintf(stderr, "\tShould be: %s\n",STRING); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Verify element in file #4 */ aid1 = Hstartread(fid, 1020, 2); CHECK_VOID(aid1, FAIL, "Hstartread"); MESSAGE(5, printf("Inquiring about access element in file #4\n"); ); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); for (i = 0; i < BUF_SIZE; i++) inbuf[i] = 0; ret = Hread(aid1, length, inbuf); if (ret != length) { fprintf(stderr, "Incorrect element size returned from Hread: %d\n", (int) ret); HEprint(stderr, 0); errors++; } MESSAGE(5, printf("Verifying data(%d bytes) in external element in file #4\n",(int)ret); ); errflag = 0; for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { errflag = 1; MESSAGE(8, printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); ); errors++; } inbuf[i] = '\0'; } if (errflag) fprintf(stderr,"Error: Wrong data in inbuf[] from external elment in file #4\n"); ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Write to the first element in file #1 again */ MESSAGE(5, printf("Now writing again to external element in file #1\n"); ); aid2 = Hstartwrite(fid, 1000, 1, 4); CHECK_VOID(aid2, FAIL, "Hstartwrite"); ret = Hwrite(aid2, 4, "ABCD"); if (ret != 4) { fprintf(stderr, "Hwrite failed (code %d)\n", (int) ret); HEprint(stderr, 0); errors++; } ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); /* Second file open rest for reading */ fid1 = Hopen(TESTFILE_NAME, DFACC_READ, 0); CHECK_VOID(fid1, FAIL, "Hopen"); ret = (int32)Hnewref(fid1); CHECK_VOID(ret, FAIL, "Hnewref"); /* Close first open of file */ ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* Close second open of file */ ret = Hclose(fid1); CHECK_VOID(ret, FAIL, "Hclose"); /*==============================*/ /* Test External Path functions */ /*==============================*/ MESSAGE(5, printf("testing External Path functions\n"); ); /* start with a brand new file */ MESSAGE(5, printf("Creating header file %s for external element \n", TESTFILE_NAME1); ); fid = Hopen(TESTFILE_NAME1, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = HXsetcreatedir("testdir"); CHECK_VOID(ret, FAIL, "HXsetcreatedir"); MESSAGE(5, printf("Creating an external element in file testdir/t5.hdf\n"); ); aid1 = HXcreate(fid, 1000, 5, "t5.hdf", (int32) 0, (int32) 0); CHECK_VOID(aid1, FAIL, "HXcreate"); MESSAGE(5, printf("Writing 2000 bytes to file t5.hdf\n"); ); ret = Hwrite(aid1, 2000, outbuf); CHECK_VOID(ret, FAIL, "Hwrite"); MESSAGE(5, printf("Ending access to element and closing header file %s\n", TESTFILE_NAME1); ); ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Re-open file and try read to external element. Should fail the first time.\n"); ); fid = Hopen(TESTFILE_NAME1, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = Hgetelement(fid, (uint16) 1000, (uint16) 5, inbuf); VERIFY_VOID(ret, FAIL, "Hgetelement"); ret = HXsetdir("nosuchdir|testdir"); CHECK_VOID(ret, FAIL, "HXsetdir"); MESSAGE(5, printf("Try read it again. Should not fail this time.\n"); ); ret = Hgetelement(fid, (uint16) 1000, (uint16) 5, inbuf); CHECK_VOID(ret, FAIL, "Hgetelement"); errflag = 0; for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { errflag = 1; MESSAGE(8, printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); ); errors++; } inbuf[i] = '\0'; } if (errflag) fprintf(stderr,"Error: Wrong data in inbuf[] from external elment in file #5\n" ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* unset the external paths directory variables */ ret = HXsetcreatedir(NULL); CHECK_VOID(ret, FAIL, "HXsetcreatedir"); ret = HXsetdir(NULL); CHECK_VOID(ret, FAIL, "HXsetdir"); num_errs += errors; /* increment global error count */ } libhdf4-4.2.10/HDF_ALT/hdf/test/tdfr8.c0000644000000000000000000002252412421456623014026 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /************************************************************************ * tdfr8.c - test file for images of DFR8 API *************************************************************************/ #include "hdf.h" #include "tproto.h" /* for utility macros */ /************************************************************************ Name: test_GRgetcomptype() - test GRgetcomptype for hmap project Description: This routine uses DFR8 API to create the following images: + Name image0 with no compression and no palette + Name image1 with no compression and no palette + Name image2 with no compression and with palette + Name image3 with no compression and with palette + Name image4 with RLE compression and with palette + Name image5 with RLE compression and with palette + Name image6 with IMCOMP compression and with palette + Name image7 with IMCOMP compression and with palette * Name image8 with JPEG compression and with palette + Name image9 with JPEG compression and with palette + Name image10 with RLE compression and with palette + Name image11 with RLE compression and with palette All have same data in rasters and in palette (when used) Note: This part of the test was adopted from Ruth's test program. The function GRgetcomptype will be call on each image and the returned compression type will be verified against the list of compressions used. BMR - Mar 12, 2011 **************************************************************************/ #define FILE_NAME "tGRgetcomptype.hdf" #define HEIGHT 3 #define WIDTH 8 #define N_IMAGES 12 #define N_ENTRIES 256 #define N_COMPONENTS 3 void test_GRgetcomptype() { intn ii; int row, col; int entry, component; uint8 raster[HEIGHT][WIDTH]; uint8 palette[N_ENTRIES*N_COMPONENTS], temp_pal[N_ENTRIES][N_COMPONENTS]; int32 file_id, gr_id, ri_id; int32 num_images=0, num_fattrs=0; intn status; comp_coder_t comp_type; comp_info compress_info; /* used to verify the compression type of the images */ comp_coder_t check_comp[N_IMAGES] = {COMP_CODE_NONE, COMP_CODE_NONE, COMP_CODE_NONE, COMP_CODE_NONE, COMP_CODE_RLE, COMP_CODE_RLE, COMP_CODE_IMCOMP, COMP_CODE_IMCOMP, COMP_CODE_JPEG, COMP_CODE_JPEG, COMP_CODE_RLE, COMP_CODE_RLE}; /* used to verify whether an image should be mapped */ intn maplist[N_IMAGES] = {TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE}; /* Initialize the raster image array */ for ( row = 0; row < HEIGHT; row++ ) { for ( col = 0; col < WIDTH; col++ ) { raster[row][col] = row*10 + col; } } /* * Initialize the palette array (256 entries of RGB components) * We want our test case to be easy to see, so only turn * on colors for values we have in raster image. * Red for first row; Green for second row; Blue for third row * -RA */ for ( entry = 0; entry < N_ENTRIES; entry++ ) { for ( component = 0; component < N_COMPONENTS; component++ ) { if (( 0 <= entry ) && ( entry <= 7 )) { /* values in first row of raster */ temp_pal[entry][0] = 255; /* Red */ temp_pal[entry][1] = 0; /* Green */ temp_pal[entry][2] = 0; /* Blue */ } else if (( 10 <= entry ) && ( entry <= 17)) { /* values in second row of raster */ temp_pal[entry][0] = 0; /* Red */ temp_pal[entry][1] = 255; /* Green */ temp_pal[entry][2] = 0; /* Blue */ } else if (( 20 <= entry ) && ( entry <= 27)) { /* values in third row of raster */ temp_pal[entry][0] = 0; /* Red */ temp_pal[entry][1] = 0; /* Green */ temp_pal[entry][2] = 255; /* Blue */ } else { /* all else (don't expect) will be black */ temp_pal[entry][0] = 0; /* Red */ temp_pal[entry][1] = 0; /* Green */ temp_pal[entry][2] = 0; /* Blue */ } } } /* Work around to pass "palette" into DFR8setpalette w/o compiler warning.*/ HDmemcpy(palette, temp_pal, N_ENTRIES*N_COMPONENTS); /* Write image0 to the HDF4 file with no compression and no palette * Note that the order of args 3 and 4 is width then height. */ status = DFR8putimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_NONE ); CHECK_VOID(status, FAIL, "DFR8putimage"); /* Write image1 to the HDF4 file with no compression and no palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_NONE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Set the palette */ status = DFR8setpalette( palette ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image2 with no compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_NONE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image3 with no compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_NONE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image4 with RLE compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_RLE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image5 with RLE compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_RLE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image6 with IMCOMP compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_IMCOMP ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image7 with IMCOMP compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_IMCOMP ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image8 with JPEG compression and with palette */ compress_info.jpeg.quality = 60; compress_info.jpeg.force_baseline = 1; status = DFR8setcompress( COMP_JPEG, &compress_info ); CHECK_VOID(status, FAIL, "DFR8setcompress"); status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_JPEG ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image9 with JPEG compression and with palette */ compress_info.jpeg.quality = 60; compress_info.jpeg.force_baseline = 1; status = DFR8setcompress( COMP_JPEG, &compress_info ); CHECK_VOID(status, FAIL, "DFR8setcompress"); status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_JPEG ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image10 with RLE compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_RLE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Write image11 with RLE compression and with palette */ status = DFR8addimage( FILE_NAME, raster, WIDTH, HEIGHT, COMP_RLE ); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Open the file in GR interface and verify the compression type of each image in the file */ /* Open the file and initialize the GR interface */ file_id = Hopen(FILE_NAME, DFACC_READ, 0); CHECK_VOID(file_id, FAIL, "Hopen"); gr_id = GRstart(file_id); CHECK_VOID(gr_id, FAIL, "GRstart"); /* Get the number of images in the file */ status = GRfileinfo(gr_id, &num_images, &num_fattrs); CHECK_VOID(status, FAIL, "GRfileinfo"); /* Verify compression type of each image */ for (ii = 0; ii < num_images; ii++) { intn is_mappedable;/* TRUE if the image is mapped-able (hmap project)*/ intn name_generated; /* TRUE if the image has name generated by lib */ ri_id = GRselect(gr_id, ii); CHECK_VOID(ri_id, FAIL, "GRselect"); /* Get image's compression type */ status = GRgetcomptype(ri_id, &comp_type); CHECK_VOID(status, FAIL, "GRgetcomptype"); /* Test GR2bmapped on this image (For hmap project only) */ status = GR2bmapped(ri_id, &is_mappedable, &name_generated); CHECK_VOID(status, FAIL, "GR2bmapped"); VERIFY_VOID(is_mappedable, maplist[ii], "GR2bmapped"); VERIFY_VOID(name_generated, TRUE, "GR2bmapped"); /* Verify compression type */ if (comp_type != check_comp[ii]) VERIFY_VOID(check_comp[ii], comp_type, "GRgetcomptype"); status = GRendaccess(ri_id); CHECK_VOID(status, FAIL, "GRendaccess"); } /* Terminate access to the file */ status = GRend(gr_id); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(file_id); CHECK_VOID(status, FAIL, "Hclose"); } /* test_GRgetcomptype */ libhdf4-4.2.10/HDF_ALT/hdf/test/t24f.f0000644000000000000000000002071412421456623013560 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: t24f.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine t24f (number_failed) implicit none include 'fortest.inc' include '../src/dffunc.inc' C C Test Program: C Writes 24-bit raster images with specified interlace C code to a file. C Reads the images and their dimensions from the file. C Input file: none C Output file: tdf24f.hdf C C integer number_failed character*20 myname parameter (myname = 'r24') integer d1, d2, il character*80 TESTFILE character*1 CR character buf(3, 2, 2), buf1(2, 3, 2), buf2(2, 2, 3) character in(3,2,2), in1(2, 3, 2), in2(2, 2, 3) integer i, j, k, ret call ptestban('Testing', myname) TESTFILE = 'tdf24f.hdf' CR = char(10) number_failed = 0 do 150 i=1, 2 do 2 j=1, 2 buf(1, j, i) = char(i+j) buf(2, j, i) = char(i+j) buf(3, j, i) = char(i+j) buf1(j, 1, i) = char(i-j) buf1(j, 2, i) = char(i-j) buf1(j, 3, i) = char(i-j) buf2(j, i, 1) = char(2*i - j) buf2(j, i, 2) = char(2*i - j) buf2(j, i, 3) = char(2*i - j) 2 continue 150 continue call MESSAGE(VERBO_HI, 'Setting il to 0') ret = d2setil(0) call VRFY(ret, 'd2setil',number_failed) call MESSAGE(VERBO_HI, ' Putting buffer 1') ret = d2pimg(TESTFILE, buf, 2, 2) call VRFY(ret, 'd2pimg',number_failed) call MESSAGE(VERBO_HI, 'Setting il to 1') ret = d2setil(1) call VRFY(ret, 'd2setil',number_failed) call MESSAGE(VERBO_HI, 'Adding buf1') ret = d2aimg(TESTFILE, buf1, 2, 2) call VRFY(ret, 'd2aimg',number_failed) call MESSAGE(VERBO_HI, 'Setting il to 2') ret = d2setil(2) call VRFY(ret, 'd2setil',number_failed) call MESSAGE(VERBO_HI, 'Adding buf2') ret = d2aimg(TESTFILE, buf2, 2, 2) call VRFY(ret, 'd2aimg',number_failed) call MESSAGE(VERBO_HI, 'Restarting file') ret = d2first() call VRFY(ret, 'd2first',number_failed) call MESSAGE(VERBO_HI, 'Req il 0') ret = d2reqil(0) call VRFY(ret, 'd2reqil',number_failed) call MESSAGE(VERBO_HI, 'Getting dims') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 200 i=1, 2 do 180 j=1, 2 do 160 k=1,3 if (in(k,j,i) .ne. buf(k,j,i)) then print *, 'Error at ', k, j, i endif 160 continue 180 continue 200 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 250 i=1, 2 do 220 j=1, 2 do 210 k = 1, 3 if (in(k,j,i) .ne. buf1(j,k,i) ) then print *, 'Error at ', k, j, i endif 210 continue 220 continue 250 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 300 i=1, 2 do 280 j=1, 2 do 260 k = 1, 3 if (in(k,j,i) .ne. buf2(j,i,k)) then print *, 'Error at ', k, j, i endif 260 continue 280 continue 300 continue call MESSAGE(VERBO_HI, 'Restarting file') ret = d2first() call VRFY(ret, 'd2first',number_failed) call MESSAGE(VERBO_HI, 'Req il 1') ret = d2reqil(1) call VRFY(ret, 'd2reqil',number_failed) call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in1, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 350 i=1, 2 do 320 j=1, 2 do 310 k=1,3 if (in1(j,k,i) .ne. buf(k,j,i)) then print *, 'Error at ', k, j, i endif 310 continue 320 continue 350 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in1, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 400 i=1, 2 do 380 j=1, 2 do 360 k = 1, 3 if (in1(j,k,i) .ne. buf1(j,k,i)) then print *, 'Error at ', k,j,i endif 360 continue 380 continue 400 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in1, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 450 i=1, 2 do 420 j=1, 2 do 410 k =1, 3 if (in1(j,k,i) .ne. buf2(j,i,k)) then print *, 'Error at ', k, j, i endif 410 continue 420 continue 450 continue call MESSAGE(VERBO_HI, 'Restarting file') ret = d2first() call VRFY(ret, 'd2first',number_failed) call MESSAGE(VERBO_HI, 'Req il 2') ret = d2reqil(2) call VRFY(ret, 'd2reqil',number_failed) call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in2, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 500 i=1, 2 do 480 j=1, 2 do 460 k=1, 3 if (in2(j,i,k) .ne. buf(k,j,i)) then print *, 'Error at ', k, j, i endif 460 continue 480 continue 500 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in2, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 550 i=1, 2 do 520 j=1, 2 do 510 k = 1,3 if (in2(j,i,k) .ne. buf1(j,k,i)) then print *, 'Error at ', k, j, i endif 510 continue 520 continue 550 continue call MESSAGE(VERBO_HI, 'Getting dimensions') ret = d2gdims(TESTFILE, d1, d2, il) call VRFY(ret, 'd2gdims',number_failed) call MESSAGE(VERBO_HI, 'Getting image') ret = d2gimg(TESTFILE, in2, 2, 2) call VRFY(ret, 'd2gimg',number_failed) do 600 i=1, 2 do 580 j=1, 2 do 560 k = 1, 3 if (in2(j,i,k) .ne. buf2(j,i,k)) then print *, 'Error at ', k, j, i endif 560 continue 580 continue 600 continue if (number_failed .eq. 0) then call MESSAGE(VERBO_DEF + 1, + '****** ALL TESTS SUCCESSFUL ******') else print *, '****** ', number_failed, ' TESTS FAILES ******' endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/tvsetf.f0000644000000000000000000011013012421456623014304 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* C********************************************************************* C $Id: tvsetf.f 5753 2012-01-18 17:44:10Z epourmal $ C********************************************************************* C test vset Fortran data types C subroutine tvsetf (number_failed) C Test Program: C Tests the vdata and vgroup interface C Input file: none C Output file: tvsetf1.hdf implicit none include 'fortest.inc' include '../src/hdf.inc' include '../src/dffunc.inc' integer number_failed character*20 myname parameter (myname = 'vsetf') integer fid1, vgid1, vgid2, vsid1, vsid2 integer vgref1, vsref1, vsref2, vref, vsref22 integer vsize, found integer ret,ntrs,i,il,nelts integer*4 dbuf(320),idbuf(320),ddata4(10),iddata4(10) integer*2 ddata1(10), iddata1(10) integer*2 ddata2(10),iddata2(10) integer*4 tags(10), refs(10) real fdata(10), ifdata(10) double precision gdata1(10) double precision igdata1(10) double precision geps real feps character*11 fn1 character*64 vname character*9 fields1 character*10 fields2 character*31 fields3 character*15 cdata, icdata character*7 field_name parameter ( + feps = 1.0E-5, + geps = 1.0D-9 + ) C------------------------------------------------------------------------- C These definitions are added to test hglibver and hgfilver functions C integer major_v, minor_v, release character*80 hdfstring C------------------------------------------------------------------------- DATA ddata1/10,11,12,13,14,15,16,17,18,19/ DATA ddata2/20,21,22,23,24,25,26,27,28,29/ DATA ddata4/40,41,42,43,44,45,46,47,48,49/ DATA fdata/5.0,5.1,5.2,5.3,5.4,5.5,5.6,5.7,5.8,5.9/ DATA gdata1/6.0,6.1,6.2,6.3,6.4,6.5,6.6,6.7,6.8,6.9/ call ptestban('Testing', myname) cdata = 'abcdebcdefcdefg' fn1 = 'tvsetf1.hdf' C Open the file fid1 = hopen(fn1, DFACC_CREATE, 0) call VRFY(fid1,'hopen',number_failed) ret = vfstart(fid1) call VRFY(ret,'vfstart',number_failed) C Create a vgroup call MESSAGE(5,'Creating a vgroup') vgid1 = vfatch(fid1, -1, 'w') call VRFY(vgid1, 'vfatch', number_failed) ret = vfsnam(vgid1, 'Top Vgroup') call VRFY(ret,'vfsnam',number_failed) ret = vfscls(vgid1, 'Test Object') call VRFY(ret,'vfscls',number_failed) C Add a vgroup to it call MESSAGE(5,'Add a vgroup to the Top vgroup') vgid2 = vfatch(fid1, -1, 'w') call VRFY(vgid2, 'vfatch', number_failed) ret = vfinsrt(vgid1, vgid2) call VRFY(ret, 'vfinsrt', number_failed) ret = vfdtch(vgid1) call VRFY(ret,'vfdtch',number_failed) ret = vfdtch(vgid2) call VRFY(ret,'vfdtch',number_failed) ret = vfend(fid1) call VRFY(ret,'vfend',number_failed) ret = hclose(fid1) call VRFY(ret,'hclose',number_failed) C add a vdatas in vgroup1 call MESSAGE(5,'Creating a char vdata') fid1 = hopen(fn1, DFACC_RDWR, 0) call VRFY(fid1,'hopen',number_failed) ret = vfstart(fid1) call VRFY(ret,'vfstart',number_failed) vgref1 = vfgid(fid1, -1) call VRFY(vgref1,'vfgid',number_failed) C C Find group with the name 'Top Vgroup' C ret = vfind(fid1, 'Top Vgroup') if (ret .le. 0) then number_failed = number_failed + 1 call MESSAGE(3, 'Top Vgroup is not found. ') endif vgid1 = vfatch(fid1, vgref1, 'w') call VRFY(vgid1,'vfatch',number_failed) C create a single field (char) vdata vsid1 = vsfatch(fid1, -1, 'w') call VRFY(vsid1,'vsfatch',number_failed) ret = vsffdef(vsid1, 'char type', DFNT_CHAR, 5) call VRFY(ret,'vsffdef',number_failed) ret = vsfsfld(vsid1, 'char type') call VRFY(ret,'vsfsfld',number_failed) C Use vsfwrtc to write the values ret = vsfwrtc(vsid1, cdata, 3, FULL_INTERLACE) call VRFY(ret,'vsfwrtc',number_failed) ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C create a single field int16 vdata call MESSAGE(5,'Creating an int16 vdata') vsid1 = vsfatch(fid1, -1, 'w') call VRFY(vsid1,'vsfatch',number_failed) ret = vsffdef(vsid1, 'int16 type', DFNT_INT16, 2) call VRFY(ret,'vsffdef',number_failed) ret = vsfsfld(vsid1, 'int16 type') call VRFY(ret,'vsfsfld',number_failed) C Use vsfwrt to write the values ret = vsfwrt(vsid1, ddata1, 5, FULL_INTERLACE) call VRFY(ret,'vsfwrt',number_failed) ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C use vhfscd and vhfscdm to create char vdata call MESSAGE(5,'Using vhfscd/vsfscdm to create vdatas') ret = vhfscd(fid1,'char1',cdata,5,DFNT_CHAR,'c1','c') call VRFY(ret,'vhfscd',number_failed) ret = vhfscdm(fid1,'char3',cdata,5,DFNT_CHAR,'c3','s',3) call VRFY(ret,'vhfscdm',number_failed) C create a five-field vdata, 2*int32,2*double,2*float32, C 2*int16 and 3*char type call MESSAGE(5,'Creating a five_field vdata') vsid2 = vsfatch(fid1, -1, 'w') call VRFY(vsid2,'vsfatch',number_failed) ret = vsfsnam(vsid2, 'mixed type') call VRFY(ret,'vsfsnam',number_failed) ret = vsfscls(vsid2, 'test NT') call VRFY(ret,'vsfscls',number_failed) ret = vsffdef(vsid2, 'int32', DFNT_INT32, 2) call VRFY(ret,'vsffdef',number_failed) ret = vsffdef(vsid2, 'double', DFNT_FLOAT64, 2) call VRFY(ret,'vsffdef',number_failed) ret = vsffdef(vsid2, 'float32', DFNT_FLOAT32, 2) call VRFY(ret,'vsffdef',number_failed) ret = vsffdef(vsid2, 'int16', DFNT_INT16, 2) call VRFY(ret,'vsffdef',number_failed) ret = vsffdef(vsid2, 'char', DFNT_CHAR, 3) call VRFY(ret,'vsffdef',number_failed) ret = vsfsfld(vsid2, 'int32,double,float32,int16,char') call VRFY(ret,'vsfsfld',number_failed) C pack the fields into data buf ret = vsfnpak(vsid2, HDF_VSPACK, + 'int32,double,float32,int16,char', dbuf, + 320*4,5,'int32',ddata4) call VRFY(ret,'vsfnpak',number_failed) ret = vsfnpak(vsid2, HDF_VSPACK, + ' ', dbuf, 320*4, 5,'double',gdata1) call VRFY(ret,'vsfnpak',number_failed) ret = vsfnpak(vsid2, HDF_VSPACK, + ' ', dbuf, 320*4, 5,'float32',fdata) call VRFY(ret,'vsfnpak',number_failed) ret = vsfnpak(vsid2, HDF_VSPACK, + ' ', dbuf, 320*4,5,'int16',ddata2) call VRFY(ret,'vsfnpak',number_failed) ret = vsfcpak(vsid2, HDF_VSPACK, C + 'int32,double,float32,int16,char', dbuf, + ' ', dbuf, 320*4, 5,'char',cdata) call VRFY(ret,'vsfcpak',number_failed) ret = vsfwrt(vsid2, dbuf, 5, FULL_INTERLACE) call VRFY(ret,'vsfwrt',number_failed) ret = vsfdtch(vsid2) call VRFY(ret,'vsfdtch',number_failed) C insert vdata1 into vgroup1 call MESSAGE(5,'Inserting vdata1 into top vgroup') vsref1 = vsfgid(fid1, -1) call VRFY(vsref1, 'vsfgid', number_failed) vsref2 = vsffnd(fid1, 'mixed type') call VRFY(vsref2, 'vsffnd', number_failed) ret = vfadtr(vgid1, DFTAG_VH, vsref1) call VRFY(ret, 'vfadtr', number_failed) ret = vfdtch(vgid1) call VRFY(ret,'vfdtch',number_failed) ret = vfend(fid1) call VRFY(ret,'vfend',number_failed) ret = hclose(fid1) call VRFY(ret,'hclose',number_failed) C read data back call MESSAGE(5,'Readng data back') fid1 = hopen(fn1, DFACC_RDWR, 0) call VRFY(fid1,'hopen',number_failed) ret = vfstart(fid1) call VRFY(ret,'vfstart',number_failed) vgref1 = vfgid(fid1, -1) call VRFY(vgref1, 'vfgid', number_failed) vgid1 = vfatch(fid1, vgref1,'w') call VRFY(vgid1, 'vfatch', number_failed) ntrs = vfgttrs(vgid1, tags, refs, 10) call VRFY(ntrs, 'vfgttrs', number_failed) if (ntrs .ne. 2) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong number of tag/refs. ') endif C look for the first vdata found = FALSE vref = -1 do 20 i = 1, ntrs if (found .eq. FALSE) then vref = vfgnxt(vgid1,vref) call VRFY(vref, 'vref', number_failed) found = vfisvs(vgid1, vref) endif 20 continue if (found .eq. TRUE) then vsid1 = vsfatch(fid1, vref, 'w') call VRFY(vsid1,'vsfatch',number_failed) ret = vsfinq(vsid1, nelts,il,fields1,vsize,vname) call VRFY(ret,'vsfinq',number_failed) if (nelts .ne. 3) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong number of records. ') endif if (il .ne. FULL_INTERLACE) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong interlace ') endif if (fields1 .ne. 'char type') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong field names. ') endif if (vsize .ne. 5) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong vsize. ') endif ret = vsfsfld(vsid1, 'char type') call VRFY(ret,'vsfsfld',number_failed) ret = vsfrdc(vsid1, icdata, 3, FULL_INTERLACE) call VRFY(ret,'vsfrdc',number_failed) if (icdata .ne. 'abcdebcdefcdefg') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong icdata. Correct: abcdebcdefcdefg') endif ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C not found, print error message else call MESSAGE(3,'Not found char type vdata. ') endif C read the second vdata call MESSAGE(5,'Reading the int16 vdata') vsref1 = vsfgid(fid1, vref) call VRFY(vsref1, 'vsfgid', number_failed) vsid1 = vsfatch(fid1, vsref1, 'w') call VRFY(vsid1,'vsfatch',number_failed) ret = vsfinq(vsid1, nelts,il, fields2,vsize,vname) call VRFY(ret,'vsfinq',number_failed) if (nelts .ne. 5) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong number of records. ') endif if (il .ne. FULL_INTERLACE) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong interlace. ') endif if (fields2 .ne. 'int16 type') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong fields. ') endif ret = vsfsfld(vsid1, 'int16 type') call VRFY(ret,'vsfsfld',number_failed) ret = vsfrd(vsid1, iddata1, 5, FULL_INTERLACE) call VRFY(ret,'vsfrd',number_failed) do 40 i=1,10 if (iddata1(i) .ne. (9+i)) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif 40 continue ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C read the 'c1' vdata vsref1 = vsffnd(fid1, 'c1') call VRFY(vsref1, 'vsffnd', number_failed) vsid1 = vsfatch(fid1, vsref1, 'w') call VRFY(vsid1, 'vsfatch', number_failed) ret = vsfsfld(vsid1, 'char1') call VRFY(ret, 'vsfsfld', number_failed) ret = vsfrd(vsid1, idbuf, 5,FULL_INTERLACE) call VRFY(ret, 'vsfrd', number_failed) icdata = ' ' ret = vsfcpak(vsid1,HDF_VSUNPACK,' ',idbuf,320*4, + 5, ' ', icdata) call VRFY(ret, 'vsfcpak', number_failed) if (icdata .ne. 'abcde ') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong icdata. ') endif ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C read the 'c3' vdata vsref1 = vsffnd(fid1, 'c3') call VRFY(vsref1, 'vsffnd', number_failed) vsid1 = vsfatch(fid1, vsref1, 'w') call VRFY(vsid1, 'vsfatch', number_failed) ret = vsfsfld(vsid1, 'char3') call VRFY(ret, 'vsfsfld', number_failed) ret = vsfrd(vsid1, idbuf, 5,FULL_INTERLACE) call VRFY(ret, 'vsfrd', number_failed) icdata = ' ' ret = vsfcpak(vsid1,HDF_VSUNPACK,' ',idbuf,320*4, + 5, ' ', icdata) call VRFY(ret, 'vsfcpak', number_failed) if (icdata .ne. 'abcdebcdefcdefg') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif ret = vsfdtch(vsid1) call VRFY(ret,'vsfdtch',number_failed) C read the 'mixed type' vdata vsref2 = vsffnd(fid1, 'mixed type') call VRFY(vsref2, 'vsffnd', number_failed) vsref22 = vsffcls(fid1, 'test NT') call VRFY(vsref22, 'vsffcls', number_failed) vsid2 = vsfatch(fid1, vsref2, 'w') call VRFY(vsid2, 'vsfatch', number_failed) C C This piece of the code exercises VF interface function C Added by E. Pourmal 1/22/99 C C C Find the total number of the fields in the vdata. C ret = vfnflds (vsid2) if (ret .ne. 5) then number_failed = number_failed + 1 call MESSAGE(3, 'Wrong number of the vdata fileds. ') endif C C Find the datatype of the first field (should be DFNT_INT32) C ret = vfftype(vsid2, 0) if (ret. ne. DFNT_INT32) then number_failed = number_failed + 1 call MESSAGE(3, 'Wrong field datatype returned. ') endif C C Find the order of the second field (should be 2) C ret = vffordr(vsid2, 1) if (ret .ne. 2) then number_failed = number_failed + 1 call MESSAGE(3, 'Wrong field order returned. ') endif C C Find the name of the third field (should be 'float32') C ret = vffname(vsid2, 2, field_name) if (ret .ne. 0 .or. field_name .ne. 'float32') then number_failed = number_failed + 1 call MESSAGE(3, 'Cannot return name of the field. ') endif C C Find the size as stored in memory of the fourth vdata field. C ret = vffisiz(vsid2, 3) call VRFY(ret, 'vffisiz', number_failed) C C Find th esize as stored in file of the fifth vdata field. C ret = vffesiz(vsid2, 4) call VRFY(ret, 'vffesiz', number_failed) C C The end of the VF interface test. Two last calls should be tested C more carefully, i.e. what the correct ret values are ?????????? C ret = vsfinq(vsid2, nelts,il, fields3,vsize,vname) call VRFY(ret, 'vsfinq', number_failed) if (nelts .ne. 5) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong number of records. ') endif if (il .ne. FULL_INTERLACE) then number_failed = number_failed + 1 call MESSAGE(3, 'Wrong interlace. ') endif if (fields3 .ne. 'int32,double,float32,int16,char') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong fields. ') endif ret = vsfsfld(vsid2, 'int32,double,float32,int16,char') call VRFY(ret, 'vsfsfld', number_failed) ret = vsfrd(vsid2, idbuf, 3, FULL_INTERLACE) call VRFY(ret, 'vsfrd', number_failed) ret = vsfnpak(vsid2, HDF_VSUNPACK, + ' ', idbuf, 320*4,3,'int32',iddata4) call VRFY(ret, 'vsfnpak', number_failed) ret = vsfnpak(vsid2, HDF_VSUNPACK, + ' ', idbuf, 320*4,3,'double',igdata1) call VRFY(ret, 'vsfnpak', number_failed) ret = vsfnpak(vsid2, HDF_VSUNPACK, + ' ', idbuf, 320*4,3,'float32',ifdata) call VRFY(ret, 'vsfnpak', number_failed) ret = vsfnpak(vsid2, HDF_VSUNPACK, + ' ', idbuf, 320*4,3,'int16',iddata2) call VRFY(ret, 'vsfnpak', number_failed) icdata = ' ' ret = vsfcpak(vsid2, HDF_VSUNPACK, + 'int32,double,float32,int16,char', idbuf, + 320*4,3,'char',icdata) call VRFY(ret, 'vsfcpak', number_failed) do 45 i=1,3 if (iddata4(i) .ne. (39+i)) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif if (iddata2(i) .ne. (19+i)) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif 45 continue do 50 i = 1, 3 if (abs(gdata1(i) - igdata1(i)) .GE. + gdata1(i)*geps) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif if (abs(fdata(i) - ifdata(i)) .GE. + fdata(i)*feps) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif 50 continue if (icdata .ne. 'abcdebcde ') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif C read field 'char' only, test pckfld ' ' ret = vsfsfld(vsid2, 'char') call VRFY(ret, 'vsfsfld', number_failed) ret = vsfrd(vsid2, idbuf, 2, FULL_INTERLACE) call VRFY(ret, 'vsfrd', number_failed) icdata = ' ' ret = vsfcpak(vsid2, HDF_VSUNPACK, + 'char', idbuf, 320*4,2,' ',icdata) call VRFY(ret, 'vsfcpak', number_failed) if (icdata .ne. 'fcdefg ') then number_failed = number_failed + 1 call MESSAGE(3,'Wrong data. ') endif ret = vsfdtch(vsid2) call VRFY(ret,'vsfdtch',number_failed) ret = vfdtch(vgid1) call VRFY(ret,'vsfdtch',number_failed) ret = vfend(fid1) call VRFY(ret,'vfend',number_failed) ret = hclose(fid1) call VRFY(ret, 'hclose', number_failed) C C Testing deleting a tag/ref pair from Vgroups using vfdtr() C Not as extensive as the C-version of the similar test because C for now some the fortran versions of Vgroup routines are missing. C C Open the file for writing fid1 = hopen(fn1, DFACC_RDWR, 0) call VRFY(fid1,'hopen',number_failed) C C-----Test hglibver and hgfilver functions. C ret = hglibver(major_v, minor_v, release, hdfstring) call VRFY(ret, 'hglibver', number_failed) ret = hgfilver(fid1, major_v, minor_v, release, hdfstring) call VRFY(ret, 'hgfilver', number_failed) ret = vfstart(fid1) call VRFY(ret,'vfstart',number_failed) C Create a vgroup to add a bogus element to. call MESSAGE(5,'Creating a vgroup') vgid1 = vfatch(fid1, -1, 'w') call VRFY(vgid1, 'vfatch', number_failed) ret = vfsnam(vgid1, 'Vgroup to delete from') call VRFY(ret,'vfsnam',number_failed) ret = vfscls(vgid1, 'Vgroup to delete from') call VRFY(ret,'vfscls',number_failed) C Add a bogus element to the vgroup ret = vfadtr(vgid1, 5000, 1234) call VRFY(ret, 'vfadtr', number_failed) C Now delete it again just make sure the call does not fail C The C-version of the tests does a better job overall. ret = vfdtr(vgid1, 5000, 1234) call VRFY(ret, 'vfdtr', number_failed) C Detach from vgroup ret = vfdtch(vgid1) call VRFY(ret,'vfdtch',number_failed) C Close Vxxx interface down ret = vfend(fid1) call VRFY(ret,'vfend',number_failed) C Close file ret = hclose(fid1) call VRFY(ret,'hclose',number_failed) return end C C This subroutine tests vsfsetblsz, vsfsetnm, vsfgetinfo functions C C It creates and writes multi-component Vdata and single-component Vdata; C then it sets sizes and number of blocks C for multi-component Vdata's link block and appends to the Vdata. C File is then closed and reponened once more; block information C is retrieved for the multi-component Vdata. C subroutine tvsetblock(number_failed) implicit none character*20 myname parameter (myname = 'vsetblock') integer number_failed C C Parameter declaration C character*22 FILE_NAME character*9 CLASS1_NAME character*9 CLASS2_NAME character*11 VDATA1_NAME character*12 VDATA2_NAME character*22 FIELD1_NAME character*21 FIELD2_NAME integer N_RECORDS_1, N_RECORDS_2 integer ORDER_2 integer FULL_INTERLACE C parameter (FILE_NAME = 'Vdatas_blocks_test.hdf', + CLASS1_NAME = '5x1 Array', + CLASS2_NAME = '6x4 Array', + VDATA1_NAME = 'First Vdata', + VDATA2_NAME = 'Second Vdata', + FIELD1_NAME = 'Single-component Field', + FIELD2_NAME = 'Multi-component Field') parameter (N_RECORDS_1 = 5, + N_RECORDS_2 = 256, + ORDER_2 = 2, + FULL_INTERLACE = 0) integer DFACC_WRITE, DFNT_CHAR8, DFNT_INT32 parameter (DFACC_WRITE = 2, + DFNT_CHAR8 = 4, + DFNT_INT32 = 24) integer BLOCK_SIZE, NUM_BLOCKS parameter (BLOCK_SIZE = 256, + NUM_BLOCKS = 3) C C Function declaration C integer hopen, hclose integer vfstart, vhfscd, vhfsdm, vfend integer vsfsetblsz, vsfsetnmbl, vsfgetblinfo integer vsfatch, vsfdtch, vsffnd, vsfwrt, vsfrd, vsfseek C C**** Variable declaration ******************************************* C integer status, return_flag integer file_id integer vdata1_ref, vdata2_ref integer vdata2_id character vdata1_buf(N_RECORDS_1) integer vdata2_buf(ORDER_2, N_RECORDS_2) integer buf(ORDER_2) integer i, j integer block_size_out, num_blocks_out integer n_records data vdata1_buf /'V','D','A','T','A'/ C C**** End of variable declaration ************************************ call ptestban('Testing', myname) C C Initialize vdata2_buf C do i = 1, N_RECORDS_2 do j = 1, ORDER_2 vdata2_buf(j,i) = j + i enddo enddo C C C Open the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) call VRFY(file_id,'hopen',number_failed) C C Initialize the VS interface. C status = vfstart(file_id) call VRFY(status,'vfstart',number_failed) C C Create multi-component vdata and populate it with data from vdata2_buf array. C vdata2_ref = vhfsdm(file_id, FIELD2_NAME, vdata2_buf, N_RECORDS_2, + DFNT_INT32, VDATA2_NAME, CLASS2_NAME, + ORDER_2) call VRFY(vdata2_ref,'vhfsdm',number_failed) C C Create single-component vdata and populate it with data from vdata1_buf array. C vdata1_ref = vhfscd(file_id, FIELD1_NAME, vdata1_buf, N_RECORDS_1, + DFNT_CHAR8, VDATA1_NAME, CLASS1_NAME) call VRFY(vdata1_ref,'vhfscd',number_failed) C C Terminate access to the VS interface and close the HDF file. C status = vfend(file_id) call VRFY(status,'vfend',number_failed) status = hclose(file_id) call VRFY(status,'hclose',number_failed) if (number_failed .gt. 0) goto 1000 C C Reopen the HDF file for writing. C file_id = hopen(FILE_NAME, DFACC_WRITE, 0) call VRFY(file_id,'hopen',number_failed) C C Initialize the VS interface. C status = vfstart(file_id) call VRFY(status,'vfstart',number_failed) C C Attach to the multi-component Vdata C vdata2_ref = vsffnd(file_id, VDATA2_NAME) call VRFY(vdata2_ref,'vsffnd',number_failed) vdata2_id = vsfatch(file_id, vdata2_ref, 'w') status = vsfsetblsz(vdata2_id, BLOCK_SIZE) call VRFY(status,'vsfsetblsz',number_failed) status = vsfsetnmbl(vdata2_id, NUM_BLOCKS) call VRFY(status,'vsfsetblnm',number_failed) C C Append to the multi-component Vdata C n_records = vsfseek(vdata2_id, N_RECORDS_2-1) call VRFY(n_records,'vsfseek',number_failed) n_records = 1 status = vsfrd(vdata2_id, buf, n_records, FULL_INTERLACE) call VRFY(status,'vsfrd',number_failed) n_records = N_RECORDS_2 status = vsfwrt(vdata2_id, vdata2_buf, n_records, + FULL_INTERLACE) if (status .ne. N_RECORDS_2) then number_failed = number_failed + 1 call MESSAGE(3,'Wrong number of records added ') call MESSAGE(3,'Append to multi-component Vdata failed ') endif call VRFY(vdata2_id,'vsfatch',number_failed) status = vsfgetblinfo(vdata2_id, block_size_out, num_blocks_out) if (block_size_out .ne. BLOCK_SIZE .or. + num_blocks_out .ne. NUM_BLOCKS) then call MESSAGE(3,'Linked-block info is wrong ') number_failed = number_failed + 1 endif status = vsfdtch(vdata2_id) call VRFY(status,'vsfdtch',number_failed) status = vfend(file_id) call VRFY(status,'vfend',number_failed) status = hclose(file_id) call VRFY(status,'hclose',number_failed) 1000 continue return end C C This subroutine tests functions vfgvgroups and vsfgvdatas C subroutine tvgroups(number_failed) implicit none include '../src/hdf.inc' integer number_failed integer fid integer vgroup_id, vgroup0_id, vgroup1_id, vgroup2_id integer vgroup3_id, vgroup4_id, vgroup5_id integer vgroup_ref integer vdata_id, vdata_ref integer vdata1_id, vdata2_id integer n_vgs, n_vds integer num_vgroups parameter (num_vgroups = 10) integer refarray(num_vgroups) integer num_vdatas parameter (num_vdatas = 8) character*12 uservgroups parameter (uservgroups = 'tuservgs.hdf') integer ref_list(num_vgroups), vdref_list(num_vdatas) character*20 vgclass integer ii character*2 ichr2 integer status character*20 myname parameter (myname = 'vgroups') C C Function declaration C integer hopen, hclose, vfend integer vfstart, vfatch, vqref, vfscls, vfdtch integer vfinsrt, vfgvgroups integer vsfgvdatas, vsqref, vsfatch, vsfscls, vsfdtch integer result(10) call ptestban('Testing', myname) n_vgs=0 C Create HDF file and initialize the interface. fid = hopen(uservgroups, DFACC_CREATE, 0) call VRFY(fid,'hfopen',number_failed) status = vfstart(fid) call VRFY(fid,'vfstart',number_failed) C Create NUM_VGROUPS vgroups and set classname do ii = 1, num_vgroups C Create a vgroup. vgroup_id = vfatch(fid, -1, "w") call VRFY(vgroup_id,'vfatch',number_failed) C Record its reference number for later access vgroup_ref = vqref(vgroup_id) call VRFY( vgroup_ref,'vqref',number_failed) ref_list(ii) = vgroup_ref C Set its class name write(ichr2,'(I2.2)') ii vgclass = "VG-CLASS-"//ichr2 status = vfscls(vgroup_id, vgclass) call VRFY(status,'vfscls',number_failed) C Detach it status = vfdtch(vgroup_id) call VRFY(status,'vfdtch',number_failed) enddo C Insert some vgroups into some other vgroups to build some sort of C vgroup structure C Insert "VG-CLASS-1" and "VG-CLASS-2" into "VG-CLASS-0" vgroup0_id = vfatch(fid, ref_list(1), "w") call VRFY(vgroup0_id,'vfatch',number_failed) vgroup1_id = vfatch(fid, ref_list(2), "w") call VRFY(vgroup1_id,'vfatch',number_failed) vgroup2_id = vfatch(fid, ref_list(3), "w") call VRFY(vgroup2_id,'vfatch',number_failed) status = vfinsrt(vgroup0_id, vgroup1_id) call VRFY(status,'vfinsrt',number_failed) status = vfinsrt(vgroup0_id, vgroup2_id) call VRFY(status,'vfinsrt',number_failed) C Insert "VG-CLASS-3", "VG-CLASS-4", and "VG-CLASS-5" into "VG-CLASS-1" vgroup3_id = vfatch(fid, ref_list(4), "w") call VRFY(vgroup3_id,'vfatch',number_failed) vgroup4_id = vfatch(fid, ref_list(5), "w") call VRFY(vgroup4_id,'vfatch',number_failed) vgroup5_id = vfatch(fid, ref_list(6), "w") call VRFY(vgroup5_id,'vfatch',number_failed) status = vfinsrt(vgroup1_id, vgroup3_id) call VRFY(status,'vfinsrt',number_failed) status = vfinsrt(vgroup1_id, vgroup4_id) call VRFY(status,'vfinsrt',number_failed) status = vfinsrt(vgroup1_id, vgroup5_id) call VRFY(status,'vfinsrt',number_failed) C ************************************************************** C The vgroup structure should look like this: C vg0 vg6 vg7 vg8 vg9 C | C / \ C vg1 vg2 C | C / | \ C / | \ C vg3 vg4 vg5 C C Calling Vgetvgroups on the file should return all ten vgroups. C Calling Vgetvgroups on vg0 should return 2, vg1 and vg2. C Calling Vgetvgroups on vg1 should return 3, vg3, vg4, and vg5 C Calling Vgetvgroups on vg6, vg7, vg8, and vg9 should return 0 C *************************************************************** C Get and verify the number of vgroups in the file n_vgs = vfgvgroups(fid, 0, -1, refarray) call VRFY(n_vgs,'vfgvgroups',number_failed) if(n_vgs.ne.num_vgroups)then call MESSAGE(3,'Wrong number of vgroups returned ') number_failed = number_failed + 1 endif C Check if setting start_vg to non-zero with vg_count = -1 returns C the correct n_vgs n_vgs = vfgvgroups(fid, 5, -1, refarray) call VRFY(n_vgs,'vfgvgroups',number_failed) if(n_vgs.ne.num_vgroups)then call MESSAGE(3,'Wrong number of vgroups returned ') number_failed = number_failed + 1 endif C Get all the vgroups in the file n_vgs = vfgvgroups(fid, 0, n_vgs, refarray) call VRFY(n_vgs,'vfgvgroups',number_failed) C Verify refarray from this vfgvgroups, it should contain: C 2 3 4 5 6 7 10 11 result = (/2, 3, 4, 5, 6, 7, 8, 9, 10, 11/) do ii = 1, n_vgs if( refarray(ii).ne.result(ii) )then call MESSAGE(3,'Incorrect vgroup retrieved ') number_failed = number_failed + 1 endif enddo call VRFY(n_vgs,'vfgvgroups',number_failed) if(n_vgs.ne.num_vgroups)then call MESSAGE(3,'Wrong number of vgroups returned ') number_failed = number_failed + 1 endif C Get 5 vgroups starting from vgroup number 5, the result shouldn't C include the simulated internal vgroups n_vgs = vfgvgroups(fid, 5, 5, refarray) call VRFY(n_vgs,'vfgvgroups',number_failed) if(n_vgs.ne.5)then call MESSAGE(3,'Wrong number of vgroups returned ') number_failed = number_failed + 1 endif C Verify refarray from this Vgetvgroups, C it should contain: 7, 8, 9, 10, 11 result = (/7, 8, 9, 10, 11, 0, 0, 0, 0, 0/) do ii = 1, n_vgs if( refarray(ii).ne.result(ii) )then call MESSAGE(3,'Incorrect vgroup retrieved ') number_failed = number_failed + 1 endif enddo C Passing in info count as 0, should fail n_vgs = vfgvgroups(fid, 0, 0, refarray) if(n_vgs.ne.-1)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C This vgroup should have no sub-vgroup n_vgs = vfgvgroups(vgroup5_id, 0, -1, refarray) if(n_vgs.ne.0)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C Passing in the starting vgroup beyond the number of C user-created vgroups, should fail n_vgs = vfgvgroups(fid, 11, 3, refarray) if(n_vgs.ne.-1)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C Create NUM_VDATAS vgroups and set classname do ii = 1, num_vdatas C Create a vdata. vdata_id = vsfatch(fid, -1, "w") call VRFY(vdata_id,'vsfatch',number_failed) C Record its reference number for later access vdata_ref = vsqref(vdata_id) call VRFY(vdata_ref,'vsqref',number_failed) vdref_list(ii) = vdata_ref; C Set its class name write(ichr2,'(I2.2)') ii vgclass = "VS-CLASS-"//ichr2 status = vsfscls(vdata_id, vgclass) call VRFY(status,'vsfscls',number_failed) C Detach it status = vsfdtch(vdata_id) call VRFY(status,'vsfdtch',number_failed) end do vdata1_id = vsfatch(fid, vdref_list(2), "w") call VRFY(status,'vsfatch',number_failed) vdata2_id = vsfatch(fid, vdref_list(3), "w") call VRFY(status,'vsfatch',number_failed) status = vfinsrt(vgroup0_id, vdata1_id) call VRFY(status,'vfinsrt vdata1_id -> vgroup0_id',number_failed) status = vfinsrt(vgroup0_id, vdata2_id) call VRFY(status,'vfinsrt vdata2_id -> vgroup0_id',number_failed) status = vfdtch(vgroup0_id) call VRFY(status,'vfdtch vgroup0_id') status = vfdtch(vgroup1_id) call VRFY(status,'vfdtch vgroup1_id') C Test getting all vdatas: fid, start_vd=0, n_vds=0 n_vds = vsfgvdatas(fid, 0, -1, refarray) if(n_vds.ne.num_vdatas)then call MESSAGE(3,'Wrong number of vdatas status returned ') number_failed = number_failed + 1 endif n_vds = vsfgvdatas(fid, 0, n_vds, refarray) if(n_vds.ne.num_vdatas)then call MESSAGE(3,'Wrong number of vdatas status returned ') number_failed = number_failed + 1 endif result = (/12, 13, 14, 15, 16, 17, 18, 19, 0, 0/) do ii = 1, n_vds if( refarray(ii).ne.result(ii) )then call MESSAGE(3,'Incorrect vdatas retrieved ') number_failed = number_failed + 1 endif enddo vgroup0_id = vfatch(fid, ref_list(1), "w") call VRFY(vgroup0_id,'vfatch',number_failed) C Test getting vdatas in vg0: vgroup0_id, start_vd=0, n_vds=0 n_vds = vsfgvdatas(vgroup0_id, 0, -1, refarray) if(n_vds.ne.2)then call MESSAGE(3,'Wrong number of vdatas status returned ') number_failed = number_failed + 1 endif n_vds = vsfgvdatas(vgroup0_id, 0, n_vds, refarray) if(n_vds.ne.2)then call MESSAGE(3,'Wrong number of vdatas status returned ') number_failed = number_failed + 1 endif result = (/13, 14, 0, 0, 0, 0, 0, 0, 0, 0/) do ii = 1, n_vds if( refarray(ii).ne.result(ii) )then call MESSAGE(3,'Incorrect vdatas retrieved ') number_failed = number_failed + 1 endif enddo C Passing in vd_count as 0, should fail n_vds = vsfgvdatas(fid, 0, 0, refarray) if(n_vds.ne.-1)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C This vgroup should have no sub-vdatas n_vds = vsfgvdatas(vgroup5_id, 0, -1, refarray) if(n_vds.ne.0)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C Passing in the starting vgroup beyond the number C of user-created vgroups, should fail n_vds = vsfgvdatas(fid, 10, 3, refarray) if(n_vds.ne.-1)then call MESSAGE(3,'Wrong number of vgroups status returned ') number_failed = number_failed + 1 endif C Terminate access status = vfdtch(vgroup0_id) call VRFY(status,'vfdtch vgroup0_id') status = vsfdtch(vdata1_id) call VRFY(status,'vsfdtch vdata1_id') status = vsfdtch(vdata2_id) call VRFY(status,'vsfdtch vdata2_id') C Terminate access to the V interface and close the HDF file. status = vfend(fid) call VRFY(status,'vfend',number_failed) status = hclose(fid) call VRFY(status,'vclose',number_failed) end libhdf4-4.2.10/HDF_ALT/hdf/test/sdstr.c0000644000000000000000000001122712421456623014134 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: sdstr.c 4932 2007-09-07 17:17:23Z bmribler $ */ /*************************************************************** ** ** This program tests correctness of writing and read datastrings ** and dimension strings. ** To avoid the '\0' inserted by HDstrncpy, compare the first 14 ** characters of output and input strings in subroutine compare() ** ****************************************************************/ #include "tproto.h" static int number_failed = 0; static VOID compare (const char *outstring, const char *instring); void test_tsdstr(void) { int i, j, ret; intn rank; int32 dims[2]; float32 f32[10][10], tf32[10][10]; const char *datalabel = "Datalabel", *dataunit = "Dataunit", *datafmt = "Datafmt", *coordsys = "coordsys"; char in_datalabel[256], in_dataunit[256], in_datafmt[256], in_coordsys[256]; const char *dimlabels[2], *dimunits[2], *dimfmts[2]; char in_dimlabels[2][256], in_dimunits[2][256], in_dimfmts[2][256]; rank = 2; dims[0] = 10; dims[1] = 10; dimlabels[0] = "c_dim1_label_a"; dimunits[0] = "c_dim1_unit_a"; dimfmts[0] = "c_dim1_fmt_a"; dimlabels[1] = "c_dim2_label_b"; dimunits[1] = "c_dim2_unit_b"; dimfmts[1] = "c_dim2_fmt_b"; MESSAGE(5, printf("Creating arrays...\n"); ); for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) { f32[i][j] = (float32)((i * 10) + j); /* range: 0 ~ 4-billion */ } } ret = DFSDsetdims(rank, dims); RESULT("DFSDsetdims"); /* individual files */ MESSAGE(5, printf("Testing arrays in individual files...\n"); ); ret = DFSDsetNT(DFNT_NFLOAT32); RESULT("DFSDsetNT"); ret = DFSDsetdims(rank, dims); RESULT("DFSDsetdims"); ret = DFSDsetdatastrs(datalabel, dataunit, datafmt, coordsys); RESULT("DFSDsetdatastrs"); ret = DFSDsetdimstrs(1, dimlabels[0], dimunits[0], dimfmts[0]); RESULT("DFSDsetdimstrs"); ret = DFSDsetdimstrs(2, dimlabels[1], dimunits[1], dimfmts[1]); RESULT("DFSDsetdimstrs"); ret = DFSDputdata("sdstrings.hdf", rank, dims, (VOIDP) f32); RESULT("DFSDputdata"); ret = DFSDgetdata("sdstrings.hdf", rank, dims, (VOIDP) tf32); RESULT("DFSDgetdata"); ret = DFSDgetdatastrs(in_datalabel, in_dataunit, in_datafmt, in_coordsys); RESULT("DFSDgetdatastrs"); ret = DFSDgetdimstrs(1, in_dimlabels[0], in_dimunits[0], in_dimfmts[0]); RESULT("DFSDgetdimstrs"); ret = DFSDgetdimstrs(2, in_dimlabels[1], in_dimunits[1], in_dimfmts[1]); RESULT("DFSDgetdimstrs"); compare(datalabel, in_datalabel); compare(dataunit, in_dataunit); compare(datafmt, in_datafmt); compare(coordsys, in_coordsys); compare(dimlabels[0], in_dimlabels[0]); compare(dimunits[0], in_dimunits[0]); compare(dimfmts[0], in_dimfmts[0]); compare(dimlabels[1], in_dimlabels[1]); compare(dimunits[1], in_dimunits[1]); compare(dimfmts[1], in_dimfmts[1]); if (number_failed > 0) { MESSAGE(7, printf("\n\t>>> %d TESTS FAILED <<<\n\n", number_failed); ) } else MESSAGE(7, printf("\n\t>>> ALL TESTS PASSED <<<\n\n"); ) num_errs = num_errs + number_failed; } static VOID compare(const char *outstring, const char *instring) { if (0 == HDstrcmp(outstring, instring)) MESSAGE(5, printf("Test passed for %s\n", outstring); ) else { MESSAGE(5, printf(">>> Test failed for %s\n", outstring); ); MESSAGE(5, printf(" Input string = %s\n", instring); ); number_failed++; } } libhdf4-4.2.10/HDF_ALT/hdf/test/tbv.c0000644000000000000000000001624012421456623013570 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5201 $"; #endif /* $Id: tbv.c 5201 2009-06-18 14:11:06Z bmribler $ */ /* FILE tbv.c Test HDF bit-vector (bv) routines. REMARKS DESIGN BUGS/LIMITATIONS EXPORTED ROUTINES AUTHOR Quincey Koziol MODIFICATION HISTORY 12/11/95 - Started coding. */ #include "tproto.h" #include "bitvect.h" static void test_1(void); static void test_2(void); static void test_3(void); /* Basic creation & deletion tests */ static void test_1(void) { bv_ptr b; int32 size; uint32 flags; intn ret; MESSAGE(6, printf("Testing basic bit-vector creation & deletion\n");); MESSAGE(7, printf("Create a bit-vector with all defaults\n");); b=bv_new(-1,0); /* test basic default creation */ CHECK_VOID(b,NULL,"bv_new"); size=bv_size(b); MESSAGE(8, printf("Bit-vector size=%d\n",(int)size);); VERIFY_VOID(size,BV_DEFAULT_BITS,"bv_size"); flags=bv_flags(b); CHECK_VOID(flags,(uint32)FAIL,"bv_flags"); MESSAGE(8, printf("Bit-vector flags=%lx\n",(unsigned long)flags);); ret=bv_delete(b); CHECK_VOID(ret,FAIL,"bv_delete"); MESSAGE(7, printf("Create an extendable bit-vector with large # of bits\n");); b=bv_new(80000,BV_EXTENDABLE); /* test creation */ CHECK_VOID(b,NULL,"bv_new"); size=bv_size(b); MESSAGE(8, printf("Bit-vector size=%d\n",(int)size);); VERIFY_VOID(size,80000,"bv_size"); flags=bv_flags(b); CHECK_VOID(flags,(uint32)FAIL,"bv_flags"); MESSAGE(8, printf("Bit-vector flags=%lx\n",(unsigned long)flags);); ret=bv_delete(b); CHECK_VOID(ret,FAIL,"bv_delete"); } /* end test_1 */ /* Basic set & get tests */ static void test_2(void) { bv_ptr b; int32 size; uint32 flags; intn ret; MESSAGE(6, printf("Testing basic bit-vector set & get \n");); MESSAGE(7, printf("Create a bit-vector with all defaults\n");); b=bv_new(-1,0); /* test basic default creation */ CHECK_VOID(b,NULL,"bv_new"); size=bv_size(b); MESSAGE(8, printf("Bit-vector size=%d\n",(int)size);); VERIFY_VOID(size,BV_DEFAULT_BITS,"bv_size"); flags=bv_flags(b); CHECK_VOID(flags,(uint32)FAIL,"bv_flags"); MESSAGE(8, printf("Bit-vector flags=%lx\n",(unsigned long)flags);); /* Check setting bits */ ret=bv_set(b,13,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,3,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,150,BV_TRUE); VERIFY_VOID(ret,FAIL,"bv_set"); /* Check getting bits */ ret=bv_get(b,2); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,3); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,0); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,13); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,-1); VERIFY_VOID(ret,FAIL,"bv_get"); ret=bv_delete(b); CHECK_VOID(ret,FAIL,"bv_delete"); MESSAGE(7, printf("Create an extendable bit-vector with large # of bits\n");); b=bv_new(1000,BV_EXTENDABLE); /* test creation */ CHECK_VOID(b,NULL,"bv_new"); size=bv_size(b); MESSAGE(8, printf("Bit-vector size=%d\n",(int)size);); VERIFY_VOID(size,1000,"bv_size"); flags=bv_flags(b); CHECK_VOID(flags,(uint32)FAIL,"bv_flags"); MESSAGE(8, printf("Bit-vector flags=%lx\n",(unsigned long)flags);); /* Check setting bits */ ret=bv_set(b,13,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,3,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,1050,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); /* Check getting bits */ ret=bv_get(b,2); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,3); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,0); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,13); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,1040); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,1050); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_delete(b); CHECK_VOID(ret,FAIL,"bv_delete"); } /* end test_2 */ /* Advanced set & get tests */ static void test_3(void) { bv_ptr b; int32 size; uint32 flags; intn ret; MESSAGE(6, printf("Testing basic bit-vector set & get \n");); MESSAGE(7, printf("Create an extendable bit-vector\n");); b=bv_new(-1,BV_EXTENDABLE); /* test creation */ CHECK_VOID(b,NULL,"bv_new"); size=bv_size(b); MESSAGE(8, printf("Bit-vector size=%d\n",(int)size);); VERIFY_VOID(size,BV_DEFAULT_BITS,"bv_size"); flags=bv_flags(b); CHECK_VOID(flags,(uint32)FAIL,"bv_flags"); MESSAGE(8, printf("Bit-vector flags=%lx\n",(unsigned long)flags);); /* Check setting bits */ ret=bv_set(b,13,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,3,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_set(b,150,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); /* Check getting bits */ ret=bv_get(b,2); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,3); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,0); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,13); VERIFY_VOID(ret,BV_TRUE,"bv_get"); ret=bv_get(b,140); VERIFY_VOID(ret,BV_FALSE,"bv_get"); ret=bv_get(b,150); VERIFY_VOID(ret,BV_TRUE,"bv_get"); size=bv_find(b,-1,BV_FALSE); CHECK_VOID(size,FAIL,"bv_find"); MESSAGE(8, printf("First 0 found at: %lu\n",(unsigned long)size);); ret=bv_set(b,size,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); size=bv_find(b,-1,BV_FALSE); CHECK_VOID(size,FAIL,"bv_find"); MESSAGE(8, printf("Second 0 found at: %lu\n",(unsigned long)size);); ret=bv_set(b,size,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); size=bv_find(b,-1,BV_FALSE); CHECK_VOID(size,FAIL,"bv_find"); MESSAGE(8, printf("Third 0 found at: %lu\n",(unsigned long)size);); ret=bv_set(b,size,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); size=bv_find(b,-1,BV_FALSE); CHECK_VOID(size,FAIL,"bv_find"); MESSAGE(8, printf("Fourth 0 found at: %lu\n",(unsigned long)size);); ret=bv_set(b,size,BV_TRUE); CHECK_VOID(ret,FAIL,"bv_set"); ret=bv_delete(b); CHECK_VOID(ret,FAIL,"bv_delete"); } /* end test_3 */ void test_bitvect(void) { test_1(); /* basic creation & deletion tests */ test_2(); /* basic set & get testing */ test_3(); /* advanced set & get testing */ } /* end test_bitvect() */ libhdf4-4.2.10/HDF_ALT/hdf/test/tv2.res0000644000000000000000000000102712421456623014054 0ustar FILE: tv2a.hdf vg:0 <1965/2> (ALASKA {FIGURES}) has 3 entries: vs:0 <1962/3> nv=20 i=0 fld [DOLLARS] vsize=4 (GNP {FIGURES}) vs:1 <1962/4> nv=20 i=0 fld [DOLLARS] vsize=4 (INCOME {FIGURES}) vs:2 <1962/5> nv=20 i=0 fld [DOLLARS] vsize=4 (SALESTAX {FIGURES}) FILE: tv2b.hdf vg:0 <1965/2> (MISSISSIPPI {FIGURES}) has 3 entries: vs:0 <1962/3> nv=15 i=0 fld [DOLLARS] vsize=4 (GNP {FIGURES}) vs:1 <1962/4> nv=15 i=0 fld [DOLLARS] vsize=4 (INCOME {FIGURES}) vs:2 <1962/5> nv=15 i=0 fld [DOLLARS] vsize=4 (SALESTAX {FIGURES}) libhdf4-4.2.10/HDF_ALT/hdf/test/tvset.c0000644000000000000000000034035312421456623014147 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: tvset.c 6043 2014-01-21 21:09:03Z acheng $ */ /* * * Vset tests * * * This file needs another pass at making sure all the return * values from function calls are checked in addtion to * verifying that the proper tests are performed on all Vxx fcns - GV 9/5/97 * */ #include "hdf.h" #include "hfile.h" #include "tproto.h" #define VDATA_COUNT 256 /* make this many Vdatas to check for memory leaks */ #define FNAME0 "tvset.hdf" #define EXTFNM "tvsetext.hdf" #define EMPTYNM "tvsempty.hdf" #define LONGNAMES "tlongnames.hdf" #define LKBLK_FILE "tvsblkinfo.hdf" #define FIELD1 "FIELD_name_HERE" #define FIELD1_UPPER "FIELD_NAME_HERE" #define FIELD2 "DIFFERENT_FIELD_NAME" #define FIELD1_NAME "Field1" /* contains three integers */ #define FIELD2_NAME "Field2" /* contains one integer */ #define FIELD3_NAME "Field3" /* contains two integers */ #define FIELD_NAME_LIST "Field1,Field2,Field3" #define ORDER_1 3 /* order of first field of 1st vdata */ #define ORDER_2 1 /* order of second field of 1st vdata */ #define ORDER_3 2 /* order of third field of 1st vdata */ #define ST "STATION_NAME" #define VL "VALUES" #define FL "FLOATS" #define MX "STATION_NAME,VALUES,FLOATS" #define EMPTY_VDATA "Empty" #define VGROUP1 "VGROUP1" #define VG_LONGNAME "Vgroup with more than 64 characters in length, 74 characters to be exact!" #define VG_LONGCLASS "Very long class name to classify all Vgroups with more than 64 characters in name" #define APPENDABLE_VDATA "Appendable" static int32 write_vset_stuff(void); static int32 read_vset_stuff(void); static void test_vsdelete(void); static void test_vdelete(void); static void test_vdeletetagref(void); static void test_emptyvdata(void); static void test_vglongnames(void); static void test_getvgroups(void); static void test_getvdatas(void); static void test_blockinfo_oneLB(void); static void test_blockinfo_multLBs(void); static void test_VSofclass(void); /* write some stuff to the file */ static int32 write_vset_stuff(void) { int32 status; int32 fid, aid; int32 vg1, vg2; int32 vs1; int32 count, i, j, num, max_order; int32 ibuf[2000]; /* integer buffer */ float32 fbuf[2000]; /* floating point buffer */ char gbuf[2000]; /* generic buffer */ uint8 *gbuf1 = NULL; /* buffer for uint8 */ float32 *gbuf2 = NULL; /* buffer for float32 */ const char *name; char *p; char8 c; float32 f; /* allocate these buffers dynamically and not off the stack as they were previously handled */ if (gbuf1 == NULL) { gbuf1 = (uint8 *)HDmalloc(sizeof(uint8)*65536); } if (gbuf2 == NULL) { gbuf2 = (float32 *)HDmalloc(sizeof(float32)*20000); } fid = Hopen(FNAME0, DFACC_CREATE, 100); if (fid == FAIL) { num_errs++; return FAIL; } if (Vstart(fid) == FAIL) { num_errs++; return FAIL; } /* * Vgroup Generation routines * */ /* * start simple --- create a simple Vgroup */ vg1 = Vattach(fid, -1, "w"); if(vg1 == FAIL) { num_errs++; printf(">>> Failed creating initial Vgroup\n"); } status = Vsetname(vg1, "Simple Vgroup"); CHECK(status,FAIL,"Vsetname:vg1"); status = Vsetclass(vg1, "Test object"); CHECK(status,FAIL,"Vsetclass:vg1"); MESSAGE(5, printf("created Vgroup %s (empty)\n", "Simple Vgroup");); /* * Lets do some more complex ones now */ vg2 = Vattach(fid, -1, "w"); if(vg2 == FAIL) { num_errs++; printf(">>> Failed creating second Vgroup\n"); } /* keep track of how many in Vgroup */ num = 0; /* add first group into the other */ status = Vinsert(vg2, vg1); if (status == FAIL) { num_errs++; printf(">>> Vinsert failed\n"); } else num++; /* add a bogus element */ status = Vaddtagref(vg2, (int32) 1000, (int32) 12345); if (status == FAIL) { num_errs++; printf(">>> Vaddtagref failed for bogus element\n"); } else num++; /* create an element and insert that */ aid = Hstartwrite(fid, (uint16) 123, (uint16) 1234, 10); if (aid == FAIL) { num_errs++; printf(">>> Hstartwrite failed\n"); } status = Hendaccess(aid); CHECK(status,FAIL,"Hendaccess:aid"); /* add an existing HDF element */ status = Vaddtagref(vg2, (int32) 123, (int32) 1234); if (status == FAIL) { num_errs++; printf(">>> Vaddtagref failed for legit element\n"); } else num++; #ifdef NO_DUPLICATES /* attempt to add an element already in the Vgroup */ status = Vaddtagref(vg2, (int32) 123, (int32) 1234); if (status != FAIL) { num_errs++; printf(">>> Vaddtagref added a duplicate element\n"); } /* check that the number is correct */ if (num != Vntagrefs(vg2)) { num_errs++; printf(">>> Vntagrefs returned %d was expecting %d\n", Vntagrefs(vg2), num); } #endif /* NO_DUPLICATES */ /* lets check the contents */ /* look for a valid one first */ if (Vinqtagref(vg2, 1000, 12345) == FALSE) { num_errs++; printf(">>> Vinqtagref couldn't find valid element\n"); } /* look for a bogus one */ if (Vinqtagref(vg2, 1000, 123456) != FALSE) { num_errs++; printf(">>> Vinqtagref found a bogus element\n"); } status = Vsetname(vg2, "Second Vgroup"); CHECK(status,FAIL,"Vsetname:for vg2"); Vsetclass(vg2, "Test object"); CHECK(status,FAIL,"Vsetclass: for vg2"); status = Vdetach(vg1); CHECK(status,FAIL,"Vdetach:vg1"); status = Vdetach(vg2); CHECK(status,FAIL,"Vdetach:vg2"); MESSAGE(5, printf("created Vgroup %s with %d elements\n", "Second Vgroup", (int) num);); /* * Vdata Generation routines * */ /* Float32 Vdata */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach"); name = "Float Vdata"; status=VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname"); status=VSsetclass(vs1, "Test object"); CHECK(status,FAIL,"VSsetclass"); status=VSfdefine(vs1, FIELD1, DFNT_FLOAT32, 1); CHECK(status,FAIL,"VSfdefine"); /* Verify that VSsetfields will return FAIL when passing in a NULL for field name list (bug #554) - BMR 5/17/01 */ status = VSsetfields(vs1, NULL); VERIFY(status, FAIL, "VSsetfields"); status = VSsetfields(vs1, FIELD1); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* create some bogus data */ for (i = 0, count = 100; i < count; i++) fbuf[i] = (float32) i; /* store it */ status = VSwrite(vs1, (unsigned char *) fbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); /* Test VSgetexternalfile on a vdata without external element */ /* status = VSgetexternalfile(vs1, 0, NULL, NULL); VERIFY_VOID(status, FAIL, "VSgetexternalfile"); */ /* Test VSgetexternalinfo on a vdata without external element */ status = VSgetexternalinfo(vs1, 0, NULL, NULL, NULL); VERIFY(status, 0, "VSgetexternalinfo"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d elements\n", name, (int) count);); /* Int32 Vdata */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Integer Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); status = VSsetclass(vs1, "Test object"); CHECK(status,FAIL,"VSsetclass:vs1"); status = VSfdefine(vs1, FIELD2, DFNT_INT32, 2); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSsetfields(vs1, FIELD2); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* change this vdata to store in an external file */ status = VSsetexternalfile(vs1, EXTFNM, (int32) 0); if (status == FAIL) { num_errs++; printf(">>> VSsetexternalfile failed\n"); } /* create some bogus data */ for (i = 0, count = 100; i < 2 * count; i++) ibuf[i] = i; /* store it */ status = VSwrite(vs1, (unsigned char *) ibuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d elements\n", name, (int) count); ); /* Int32 and Float32 Vdata */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Mixed Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); status = VSsetclass(vs1, "No class specified"); CHECK(status,FAIL,"VSsetclass:vs1"); status = VSfdefine(vs1, "A", DFNT_FLOAT32, 1); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSfdefine(vs1, "B", DFNT_INT32, 1); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSsetfields(vs1, "A, B"); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* create some bogus data */ p = gbuf; for (i = 0, count = 100; i < count; i++) { float32 tf = (float32) (i * 2); HDmemcpy(p, &tf, sizeof(float32)); p += sizeof(float32); HDmemcpy(p, &i, sizeof(int32)); p += sizeof(int32); } /* store it */ status = VSwrite(vs1, (unsigned char *) gbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d elements\n", name, (int) count);); /* mixed order Vdata */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Multi-Order Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); status = VSsetclass(vs1, "No class specified"); CHECK(status,FAIL,"VSsetclass:vs1"); status = VSfdefine(vs1, ST, DFNT_CHAR8, 2); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSfdefine(vs1, VL, DFNT_INT32, 3); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSfdefine(vs1, FL, DFNT_FLOAT32, 1); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSsetfields(vs1, MX); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* create some bogus data */ p = gbuf; c = 'a'; j = 0; f = (float32) 15.5; for (i = 0, count = 10; i < count; i++) { HDmemcpy(p, &c, sizeof(char8)); p += sizeof(char8); c++; HDmemcpy(p, &c, sizeof(char8)); p += sizeof(char8); c++; HDmemcpy(p, &j, sizeof(int32)); p += sizeof(int32); j++; HDmemcpy(p, &j, sizeof(int32)); p += sizeof(int32); j++; HDmemcpy(p, &j, sizeof(int32)); p += sizeof(int32); j++; HDmemcpy(p, &f, sizeof(float32)); p += sizeof(float32); f += (float32) 0.5; } /* store it */ status = VSwrite(vs1, (unsigned char *) gbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d elements\n", name, (int) count);); /* test MAX_ORDER and MAX_FIELD_SIZE */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Max_Order Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); status = VSfdefine(vs1, "max_order", DFNT_UINT8, MAX_ORDER); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSsetfields(vs1, "max_order"); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* create some bogus data */ for (i = 0; i < MAX_ORDER; i++) gbuf1[i] = (uint8)(i % 256); status = VSwrite(vs1, (unsigned char *) gbuf1, 1, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d order\n", name, (int)MAX_ORDER);); vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Max_Fldsize Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); max_order = MAX_FIELD_SIZE/SIZE_FLOAT32; status = VSfdefine(vs1, "max_fldsize", DFNT_FLOAT32, max_order); CHECK(status,FAIL,"VSfdefine:vs1"); status = VSsetfields(vs1, "max_fldsize"); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } /* create some bogus data */ for (i = 0; i < max_order; i++) gbuf2[i] = (float32)i * (float32)0.11; status = VSwrite(vs1, (unsigned char *) gbuf2, 1, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); MESSAGE(5, printf("created VDATA %s with %d order\n", name, (int)max_order);); /* create vdata exceeding MAX_FIELD_SIZE, should fail */ vs1 = VSattach(fid, -1, "w"); CHECK(vs1,FAIL,"VSattach:vs1"); name = "Bad_Fldsize Vdata"; status = VSsetname(vs1, name); CHECK(status,FAIL,"VSsetname:vs1"); max_order = MAX_FIELD_SIZE/SIZE_FLOAT32 + 1; status = VSfdefine(vs1, "bad_fldsize", DFNT_FLOAT32, max_order); if (status != FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } status = VSsetfields(vs1, "bad_fldsize"); if (status != FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", name); } status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); /* create a whole bunch of Vdatas to check for memory leakage */ for (i = 0; i < VDATA_COUNT; i++) { char name2[80]; vs1 = VSattach(fid, -1, "w"); if (vs1 == FAIL) { num_errs++; printf(">>> Vsattach failed on loop %d\n", (int) i); continue; } sprintf(name2, "VdataLoop-%d", (int) i); status = VSsetname(vs1, name2); CHECK(status,FAIL,"VSsetname:vs1"); status = VSfdefine(vs1, "A", DFNT_CHAR8, 1); if (status == FAIL) { num_errs++; printf(">>> VSfdefine failed on loop %d\n", (int) i); continue; } status = VSsetfields(vs1, "A"); if (status == FAIL) { num_errs++; printf(">>> VSsetfields failed on loop %d\n", (int) i); continue; } status = VSwrite(vs1, (unsigned char *) name2, 1, FULL_INTERLACE); CHECK(status,FAIL,"VSwrite:vs1"); status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); } status = Vend(fid); CHECK(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK(status,FAIL,"Hclose:vs1"); HDfree(gbuf1); HDfree(gbuf2); return SUCCEED; } /* write_vset_stuff */ /* read everything back in and check it */ static int32 read_vset_stuff(void) { int32 ibuf[2000]; /* integer buffer */ float32 fbuf[2000]; /* floating point buffer */ char gbuf[2000]; /* generic buffer */ int32 list[50]; int32 tags[100], refs[100], tag, ref; char vsname[512], vsclass[512], fields[512]; char *vgname, *vgclass; char *p; int32 fid; int32 vg1; int32 vs1; int32 status, num, i, count, intr, sz; float32 fl_expected; int32 in_expected; char8 c_expected; uint16 name_len; fid = Hopen(FNAME0, DFACC_RDONLY, 0); if (fid == FAIL) { num_errs++; return FAIL; } status = Vstart(fid); CHECK(status,FAIL,"Vstart:fid"); /* * Verify the Vgroups */ /* test Vlone */ num = 1; status = Vlone(fid, list, 10); if (status != num) { num_errs++; printf(">>> Vlone found %d was expecting %d\n", (int) status, (int) num); } /* test Vgetname and Vgetclass */ vg1 = Vattach(fid, list[0], "r"); if(vg1 == FAIL) { num_errs++; printf(">>> Was not able to attach (r) Vgroup %d\n", (int) list[0]); } status = Vgetnamelen(vg1, &name_len); CHECK(status,FAIL,"Vgetnamelen:vg1"); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgname, "vgname", "read_vset_stuff"); status = Vgetname(vg1, vgname); CHECK(status,FAIL,"Vgetname:vg1"); status = Vgetclassnamelen(vg1, &name_len); CHECK(status,FAIL,"Vgetclassnamelen:vg1"); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgclass, "vgclass", "read_vset_stuff"); status = Vgetclass(vg1, vgclass); CHECK(status,FAIL,"Vgetclass:vg1"); if (HDstrcmp(vgname, "Second Vgroup")) { num_errs++; printf(">>> Got bogus Vgroup name : %s\n", vgname); } if (vgname != NULL) HDfree(vgname); if (HDstrcmp(vgclass, "Test object")) { num_errs++; printf(">>> Got bogus Vgroup class : %s\n", vgclass); } if (vgclass != NULL) HDfree(vgclass); num = 3; status = Vgettagrefs(vg1, tags, refs, 100); if (status == FAIL) { num_errs++; printf(">>> Vgettagrefs found %d was expecting %d\n", (int) status, (int) num); } for (i = 0; i < num; i++) { status = Vgettagref(vg1, i, &tag, &ref); if (status == FAIL) { num_errs++; printf(">>> Vgettagref failed on call %d\n", (int) i); } if (tag != tags[i]) { num_errs++; printf(">>> Vgettagref Tag #%d disagrees %d %d\n", (int) i, (int) tag, (int) tags[i]); } if (ref != refs[i]) { num_errs++; printf(">>> Vgettagref Ref #%d disagrees %d %d\n", (int) i, (int) ref, (int) refs[i]); } } status = Vdetach(vg1); CHECK(status,FAIL,"Vdetach:vg1"); /* test Vgetid */ ref = Vgetid(fid, -1); if (ref == FAIL) { num_errs++; printf(">>> Vgetid was unable to find first Vgroup\n"); } ref = Vgetid(fid, ref); if (ref != list[0]) { num_errs++; printf(">>> Vgetid was unable to find second Vgroup (should have been first lone one)\n"); } /* * Verify the Vdatas * */ /* test VSgetid */ ref = VSgetid(fid, -1); if (ref == FAIL) { num_errs++; printf(">>> VSgetid was unable to find first Vdata\n"); } /* read in the first data and verify metadata and contents */ vs1 = VSattach(fid, ref, "r"); CHECK(vs1,FAIL,"VSattach:vs1"); status = VSgetname(vs1, vsname); CHECK(status,FAIL,"VSgetname:vs1"); status = VSgetclass(vs1, vsclass); CHECK(status,FAIL,"VSgetclass:vs1"); if (HDstrcmp(vsname, "Float Vdata")) { num_errs++; printf(">>> Got bogus Vdata name (VSgetname) : %s\n", vsname); } if (HDstrcmp(vsclass, "Test object")) { num_errs++; printf(">>> Got bogus Vdata class : %s\n", vsclass); } status = VSinquire(vs1, &count, &intr, fields, &sz, vsname); if (status == FAIL) { num_errs++; printf(">>> VSinquire failed on float Vdata\n"); } if (HDstrcmp(vsname, "Float Vdata")) { num_errs++; printf(">>> Got bogus Float Vdata name (VSinquire) : %s\n", vsname); } if (count != 100) { num_errs++; printf(">>> Got wrong count %d expecting 100\n", (int) count); } if ((size_t)sz != sizeof(float32)) { num_errs++; printf(">>> Got wrong data size %d should be sizeof(float32)\n", (int) sz); } #ifndef VDATA_FIELDS_ALL_UPPER if (HDstrcmp(fields, FIELD1)) { num_errs++; printf(">>> Got bogus field name %s\n", fields); } #else if (HDstrcmp(fields, FIELD1_UPPER)) { num_errs++; printf(">>> Got bogus field name %s\n", fields); } #endif /* VDATA_FIELDS_ALL_UPPER */ /* read it */ status = VSsetfields(vs1, fields); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < count; i++) fbuf[i] = (float32)0.0; status = VSread(vs1, (unsigned char *) fbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); /* verify */ for (i = 0; i < count; i++) { if (fbuf[i] != (float32) i) { num_errs++; printf(">>> Float value %d was expecting %d got %f\n", (int) i, (int) i, fbuf[i]); } } status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); /* Move to the next one (integers) */ ref = VSgetid(fid, ref); if (ref == FAIL) { num_errs++; printf(">>> VSgetid was unable to find second Vdata\n"); } /* read in the first data and verify metadata and contents */ vs1 = VSattach(fid, ref, "r"); CHECK(vs1,FAIL,"VSattach:vs1"); status = VSgetname(vs1, vsname); CHECK(status,FAIL,"VSgetname:vs1"); status = VSgetclass(vs1, vsclass); CHECK(status,FAIL,"VSgetclass:vs1"); if (HDstrcmp(vsname, "Integer Vdata")) { num_errs++; printf(">>> Got bogus Vdata name (VSgetname) : %s\n", vsname); } if (HDstrcmp(vsclass, "Test object")) { num_errs++; printf(">>> Got bogus Vdata class : %s\n", vsclass); } status = VSinquire(vs1, &count, &intr, fields, &sz, vsname); if (status == FAIL) { num_errs++; printf(">>> VSinquire failed on float Vdata\n"); } if (HDstrcmp(vsname, "Integer Vdata")) { num_errs++; printf(">>> Got bogus Integer Vdata name (VSinquire) : %s\n", vsname); } if (count != 100) { num_errs++; printf(">>> Got wrong count %d expecting 100\n", (int) count); } if ((size_t)sz != 2 * sizeof(int32)) { num_errs++; printf(">>> Got wrong data size %d should be 2 * sizeof(int32)\n", (int) sz); } if (HDstrcmp(fields, FIELD2)) { num_errs++; printf(">>> Got bogus field name %s\n", fields); } /* read it */ status = VSsetfields(vs1, fields); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < 2 * count; i++) ibuf[i] = 0; status = VSread(vs1, (unsigned char *) ibuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); /* verify */ for (i = 0; i < 2 * count; i++) { if (ibuf[i] != i) { num_errs++; printf(">>> Int value %d was expecting %d got %d\n", (int) i, (int) i, (int) ibuf[i]); } } status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); #ifndef HAVE_FMPOOL /* Commented out this test when using the file caching.This is beacause this test opens the external file directly without using HDF calls. As a result the file memory pool buffer that was created for this external file will not be shared with this low-level call as the low-level file cache open creates a unique pool for every call. It is upto the programmer then to share the file pool. -GeorgeV */ /* testing VSsetexternalfile by reading the external file directly */ { hdf_file_t fd; int j; int32 ival; /* low level open of external file */ fd = HI_OPEN(EXTFNM, DFACC_RDONLY); if (OPENERR(fd)) { num_errs++; printf(">>> Reopen External file %s failed\n", EXTFNM); } else { status = HI_READ(fd, gbuf, (2*count*DFKNTsize(DFNT_INT32))); if (status == FAIL) { num_errs++; printf(">>> Reading External file data failed\n"); } else { j = 0; for (i = 0; i < 2 * count; i++) { ival = 0xff & gbuf[j++]; ival = ival<<8 | (0xff & gbuf[j++]); ival = ival<<8 | (0xff & gbuf[j++]); ival = ival<<8 | (0xff & gbuf[j++]); if (ival != i) { num_errs++; printf(">>> External value %d was expecting %d got %d\n", (int) i, (int) i, (int) ival); } } } /* low level close of external file */ HI_CLOSE(fd); } } #endif /* HAVE_FMPOOL */ /* Move to the next one (integers + floats) */ ref = VSgetid(fid, ref); if (ref == FAIL) { num_errs++; printf(">>> VSgetid was unable to find third Vdata\n"); } /* read in the first data and verify metadata and contents */ vs1 = VSattach(fid, ref, "r"); CHECK(vs1,FAIL,"VSattach:vs1"); status = VSgetname(vs1, vsname); CHECK(status,FAIL,"VSgetname:vs1"); status = VSgetclass(vs1, vsclass); CHECK(status,FAIL,"VSgetclass:vs1"); if (HDstrcmp(vsname, "Mixed Vdata")) { num_errs++; printf(">>> Got bogus Vdata name (VSgetname) : %s\n", vsname); } if (HDstrcmp(vsclass, "No class specified")) { num_errs++; printf(">>> Got bogus Vdata class : %s\n", vsclass); } status = VSinquire(vs1, &count, &intr, fields, &sz, vsname); if (status == FAIL) { num_errs++; printf(">>> VSinquire failed on float Vdata\n"); } if (HDstrcmp(vsname, "Mixed Vdata")) { num_errs++; printf(">>> Got bogus Mixed Vdata name (VSinquire) : %s\n", vsname); } if (count != 100) { num_errs++; printf(">>> Got wrong count %d expecting 100\n", (int) count); } if ((size_t)sz != sizeof(int32) + sizeof(float32)) { num_errs++; printf(">>> Got wrong data size %d should be sizeof(int32) + sizeof(float32)\n", (int) sz); } if (HDstrcmp(fields, "A,B")) { num_errs++; printf(">>> Got bogus field name %s\n", fields); } /* read it */ status = VSsetfields(vs1, fields); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < 1000; i++) gbuf[i] = 0; status = VSread(vs1, (unsigned char *) gbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); /* verify */ p = gbuf; for (i = 0; i < count; i++) { float32 fl=(float32)0.0; int32 in=(int32)0; HDmemcpy(&fl, p, sizeof(float32)); p += sizeof(float32); HDmemcpy(&in, p, sizeof(int32)); p += sizeof(int32); if (in != i) { num_errs++; printf(">>> Mixed int value %d was expecting %d got %d\n", (int) i, (int) i, (int) in); } if (fl != (float32) (i * 2)) { num_errs++; printf(">>> Mixed float value %d was expecting %d got %f\n", (int) i, (int) i, fl); } } status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); /* Move to the next one (multi-order) */ ref = VSgetid(fid, ref); if (ref == FAIL) { num_errs++; printf(">>> VSgetid was unable to find multi-order Vdata\n"); } /* read in the first data and verify metadata and contents */ vs1 = VSattach(fid, ref, "r"); CHECK(vs1,FAIL,"VSattach:vs1"); status = VSgetname(vs1, vsname); CHECK(status,FAIL,"VSgetname:vs1"); status = VSgetclass(vs1, vsclass); CHECK(status,FAIL,"VSgetclass:vs1"); if (HDstrcmp(vsname, "Multi-Order Vdata")) { num_errs++; printf(">>> Got bogus Vdata name (VSgetname) : %s\n", vsname); } if (HDstrcmp(vsclass, "No class specified")) { num_errs++; printf(">>> Got bogus Vdata class : %s\n", vsclass); } status = VSinquire(vs1, &count, &intr, fields, &sz, vsname); if (status == FAIL) { num_errs++; printf(">>> VSinquire failed on multi-order Vdata\n"); } if (count != 10) { num_errs++; printf(">>> Got wrong count %d expecting 10\n", (int) count); } if (HDstrcmp(fields, MX)) { num_errs++; printf(">>> Got bogus field name %s\n", fields); } /* * verify - read in all fields */ /* read it */ status = VSsetfields(vs1, fields); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < 1000; i++) gbuf[i] = 0; status = VSread(vs1, (unsigned char *) gbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); p = gbuf; fl_expected = (float32) 15.5; in_expected = 0; c_expected = 'a'; for (i = 0; i < count; i++) { float32 fl=(float32)0.0; int32 in=(int32)0; char8 c=(char8)0; /* read and verify characters */ HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> Multi-order char value %d.0 was expecting %c got %c\n", (int) i, c_expected, c); } c_expected++; HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> Multi-order char value %d.1 was expecting %c got %c\n", (int) i, c_expected, c); } c_expected++; /* read and verify integers */ HDmemcpy(&in, p, sizeof(int32)); p += sizeof(int32); if (in != in_expected) { num_errs++; printf(">>> Multi-order int value %d.0 was expecting %d got %d\n", (int) i, (int) in_expected, (int) in); } in_expected++; HDmemcpy(&in, p, sizeof(int32)); p += sizeof(int32); if (in != in_expected) { num_errs++; printf(">>> Multi-order int value %d.1 was expecting %d got %d\n", (int) i, (int) in_expected, (int) in); } in_expected++; HDmemcpy(&in, p, sizeof(int32)); p += sizeof(int32); if (in != in_expected) { num_errs++; printf(">>> Multi-order int value %d.2 was expecting %d got %d\n", (int) i, (int) in_expected, (int) in); } in_expected++; /* read and verify floating point value */ HDmemcpy(&fl, p, sizeof(float32)); p += sizeof(float32); if (fl != fl_expected) { num_errs++; printf(">>> Multi-order float value %d was expecting %f got %f\n", (int) i, fl_expected, fl); } fl_expected += (float32) 0.5; } /* * verify - just read in the character field with FULL_INTERLACE */ /* read it */ status = VSseek(vs1, 0); CHECK(status,FAIL,"VSseek:vs1"); status = VSsetfields(vs1, ST); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < 1000; i++) gbuf[i] = 0; status = VSread(vs1, (unsigned char *) gbuf, count, FULL_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); p = gbuf; c_expected = 'a'; for (i = 0; i < count; i++) { char8 c='\0'; /* read and verify characters */ HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> FULL_INTERLACE read char value %d.0 (%c) got %c %d\n", (int) i, c_expected, c, c); } c_expected++; HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> FULL_INTERLACE read char value %d.1 (%c) %c got %c\n", (int) i, c_expected, c, c); } c_expected++; } /* * verify - just read in the character field with NO_INTERLACE */ /* read it */ status = VSseek(vs1, 0); CHECK(status,FAIL,"VSseek:vs1"); status = VSsetfields(vs1, ST); CHECK(status,FAIL,"VSsetfields:vs1"); for (i = 0; i < 1000; i++) gbuf[i] = 0; status = VSread(vs1, (unsigned char *) gbuf, count, NO_INTERLACE); CHECK(status,FAIL,"VSread:vs1"); p = gbuf; c_expected = 'a'; for (i = 0; i < count; i++) { char8 c='\0'; /* read and verify characters */ HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> NO_INTERLACE read char value %d.0 (%c) got %c\n", (int) i, c_expected, c); } c_expected++; HDmemcpy(&c, p, sizeof(char8)); p += sizeof(char8); if (c != c_expected) { num_errs++; printf(">>> NO_INTERLACE read char value %d.1 (%c) %c got\n", (int) i, c_expected, c); } c_expected++; } /* verify that VSfind does not mess up the AIDs of attached Vdatas */ status = VSfind(fid, "foo"); CHECK(status,FAIL,"VSfind:fid"); if (VSseek(vs1, 0) == FAIL) { num_errs++; printf(">>> VSseek failed after VSfind call\n"); } status = VSdetach(vs1); CHECK(status,FAIL,"VSdetach:vs1"); status = Vend(fid); CHECK(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK(status,FAIL,"Hclose:fid"); return SUCCEED; } /* read_vset_stuff */ /* Testing VSdelete for vdatas. Modification: 2011/12/22: added a test for VSgetexternalinfo on non-external vdata. */ static void test_vsdelete(void) { #define FIELD_NAME "Field Entries" #define NUMBER_OF_ROWS 10 #define ORDER 3 int32 fid; int32 vdata_id; int32 status; int32 num_of_elements; int16 vdata_buf[NUMBER_OF_ROWS * ORDER]; int32 v_ref; intn i; /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* Create a new vdata. */ vdata_id = VSattach(fid, -1, "w"); CHECK_VOID(vdata_id,FAIL,"VSattach:vdata_id"); /* Define the field data name, type and order. */ status = VSfdefine(vdata_id, FIELD_NAME, DFNT_INT16, ORDER); CHECK_VOID(status,FAIL,"VSfdefine:vdata_id"); /* Specify the field(s) that will be written to. */ status = VSsetfields(vdata_id, FIELD_NAME); CHECK_VOID(status,FAIL,"VSsetfields:vdata_id"); /* Generate the Vset data. */ for (i = 0; i < NUMBER_OF_ROWS * ORDER; i+=ORDER) { vdata_buf[i] = i; vdata_buf[i + 1] = i + 1; vdata_buf[i + 2] = i + 2; } /* Write the data to the Vset. */ num_of_elements = VSwrite(vdata_id, (const uint8 *)vdata_buf, NUMBER_OF_ROWS, FULL_INTERLACE); CHECK_VOID(num_of_elements,FAIL,"VSwrite:"); /* Set the name and class. */ status = VSsetname(vdata_id, "Vdata should have been deleted"); CHECK_VOID(status,FAIL,"VSsetname:vdata_id"); status = VSsetclass(vdata_id, "Vdata should have been deleted"); CHECK_VOID(status,FAIL,"VSsetclass:vdata_id"); /* get ref of Vdata */ v_ref = VSQueryref(vdata_id); CHECK_VOID(v_ref,FAIL,"VSQueryref:vdata_id"); /* Terminate access to the vdata. */ status = VSdetach(vdata_id); CHECK_VOID(status,FAIL,"VSdetach:vdata_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open the file again and delete the vdata */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* attach to Vdata */ vdata_id = VSattach(fid, v_ref, "w"); CHECK_VOID(vdata_id,FAIL,"VSattach:vdata_id"); /* Test VSgetexternalinfo on this vdata that doesn't have external element, should return 0 for length of external file name */ { intn name_len = 0; name_len = VSgetexternalinfo(vdata_id, 0, NULL, NULL, NULL); VERIFY_VOID(name_len, 0, "VSgetexternalinfo:vdata_id"); } /* Delete this Vdata */ status = VSdelete(fid, v_ref); CHECK_VOID(status,FAIL,"VSdelete:vdata_id"); /* Terminate access to the vdata. */ status = VSdetach(vdata_id); CHECK_VOID(status,FAIL,"VSdetach:vdata_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open file again and try to attach to vdata with 'v_ref'. The VSattach should fail. */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDONLY, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent the vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* Try to attach to Vdata. This should fail now */ vdata_id = VSattach(fid, v_ref, "w"); if (vdata_id != FAIL) { num_errs++; printf(">>> VSdelete failed to delete vdata \n"); } /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); } /* test_vsdelete */ /* Testing Vdelete for vgroups. */ static void test_vdelete(void) { int32 fid; int32 vgroup_id; int32 status; int32 vg_ref; /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* Create a new vgroup. */ vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id,FAIL,"Vattach:vgroup_id"); /* Set the name and class. */ status = Vsetname(vgroup_id, "Vgroup should have been deleted"); CHECK_VOID(status,FAIL,"Vsetname:vgroup_id"); status = Vsetclass(vgroup_id, "Vgroup should have been deleted"); CHECK_VOID(status,FAIL,"Vsetclass:vgroup_id"); /* get ref of vgroup */ vg_ref = VQueryref(vgroup_id); CHECK_VOID(vg_ref,FAIL,"VQueryref:vgroup_id"); /* Terminate access to the vgroup. */ status = Vdetach(vgroup_id); CHECK_VOID(status,FAIL,"Vdetach:vgroup_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open the file again and delete the vgroup */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* attach to vgroup */ vgroup_id = Vattach(fid, vg_ref, "w"); CHECK_VOID(vgroup_id,FAIL,"Vattach:vgroup_id"); /* delete this vgroup */ status = Vdelete(fid, vg_ref); CHECK_VOID(status,FAIL,"Vdelete:vgroup_id"); /* Terminate access to the vgroup. */ status = Vdetach(vgroup_id); CHECK_VOID(status,FAIL,"VSdetach:vgroup_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open file again and try to attach to vgroup with 'vg_ref'. The Vattach should fail. */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDONLY, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent the vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* Try to attach to vgroup. This should fail now */ vgroup_id = Vattach(fid, vg_ref, "w"); if(vgroup_id != FAIL) { num_errs++; printf(">>> Vdelete failed to delete vdata \n"); } /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); } /* test_vdelete */ /* Testing Vdeletetagref() for vgroups. */ static void test_vdeletetagref(void) { int32 fid; int32 vgroup_id; int32 status; int32 vg_ref; /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* Create a new vgroup. */ vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id,FAIL,"Vattach:vgroup_id"); /* Set the name and class. */ status = Vsetname(vgroup_id, "Vgroup to delete elements from"); CHECK_VOID(status,FAIL,"Vsetname:vgroup_id"); status = Vsetclass(vgroup_id, "Vgroup to delete elements from"); CHECK_VOID(status,FAIL,"Vsetclass:vgroup_id"); /* add a few tag/ref pairs to Vgroup */ status = Vaddtagref(vgroup_id, 1000, 12345); CHECK_VOID(status,FAIL,"Vaddtagref"); status = Vaddtagref(vgroup_id, 1000, 12346); CHECK_VOID(status,FAIL,"Vaddtagref"); #ifndef NO_DUPLICATES /* duplicate tag/ref pairs allowed. So add a duplicate */ status = Vaddtagref(vgroup_id, 1000, 12346); CHECK_VOID(status,FAIL,"Vaddtagref"); #endif /* NO_DUPLICATES */ status = Vaddtagref(vgroup_id, 2000, 12345); CHECK_VOID(status,FAIL,"Vaddtagref"); status = Vaddtagref(vgroup_id, 2000, 12346); CHECK_VOID(status,FAIL,"Vaddtagref"); status = Vaddtagref(vgroup_id, 3000, 12345); CHECK_VOID(status,FAIL,"Vaddtagref"); status = Vaddtagref(vgroup_id, 3000, 12346); CHECK_VOID(status,FAIL,"Vaddtagref"); /* get ref of vgroup */ vg_ref = VQueryref(vgroup_id); CHECK_VOID(vg_ref,FAIL,"VQueryref:vgroup_id"); /* delete one item in vgroup during this round */ status = Vdeletetagref(vgroup_id, 1000, 12346); CHECK_VOID(status,FAIL,"Vdeletetagref:vgroup_id"); /* Terminate access to the vgroup. */ status = Vdetach(vgroup_id); CHECK_VOID(status,FAIL,"Vdetach:vgroup_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open the file again and delete two elements in the vgroup during this round. */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* attach to vgroup */ vgroup_id = Vattach(fid, vg_ref, "w"); CHECK_VOID(vgroup_id,FAIL,"Vattach:vgroup_id"); #ifndef NO_DUPLICATES /* inquire about number of elments in Vgroup. There should only be 6 of them including one duplicate. */ if (6 != Vntagrefs(vgroup_id)) { num_errs++; printf(">>> Vntagrefs returned %d was expecting %d\n", (int)Vntagrefs(vgroup_id),6); } /* delete a duplicate in this vgroup */ status = Vdeletetagref(vgroup_id, 1000, 12346); CHECK_VOID(status,FAIL,"Vdeletetagref:vgroup_id"); #else /* NO_DUPLICATES */ /* inquire about number of elments in Vgroup. There should only be 5 of them since no duplicates . */ if (5 != Vntagrefs(vgroup_id)) { num_errs++; printf(">>> Vntagrefs returned %d was expecting %d\n", (int)Vntagrefs(vgroup_id),5); } #endif /* NO_DUPLICATES */ /* delete some tag/refs in this vgroup */ status = Vdeletetagref(vgroup_id, 2000, 12346); CHECK_VOID(status,FAIL,"Vdeletetagref:vgroup_id"); /* this should be the last element in the vgroup if I have the order right */ status = Vdeletetagref(vgroup_id, 3000, 12346); CHECK_VOID(status,FAIL,"Vdeletetagref:vgroup_id"); /* Terminate access to the vgroup. */ status = Vdetach(vgroup_id); CHECK_VOID(status,FAIL,"VSdetach:vgroup_id"); /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); /* Now open file again and try to attach to vgroup with 'vg_ref'. There should only be 3 elements left in Vgroup left . */ /* Open the HDF file. */ fid = Hopen(FNAME0, DFACC_RDONLY, 0); CHECK_VOID(fid,FAIL,"Hopen:tvset.hdf"); /* Initialize HDF for subsequent the vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart:fid"); /* attach to vgroup, read only */ vgroup_id = Vattach(fid, vg_ref, "r"); CHECK_VOID(vgroup_id,FAIL,"Vattach:vgroup_id"); /* inquire about number of elments left in Vgroup. There should only be 3 of them now. */ if (3 != Vntagrefs(vgroup_id)) { num_errs++; printf(">>> Vntagrefs returned %d was expecting %d\n", (int)Vntagrefs(vgroup_id), 3); } /* check tag/ref pair of those 3 elements */ if (Vinqtagref(vgroup_id, 1000, 12345) == FALSE) { num_errs++; printf(">>> Vinqtagref couldn't find valid element\n"); } if (Vinqtagref(vgroup_id, 2000, 12345) == FALSE) { num_errs++; printf(">>> Vinqtagref couldn't find valid element\n"); } if (Vinqtagref(vgroup_id, 3000, 12345) == FALSE) { num_errs++; printf(">>> Vinqtagref couldn't find valid element\n"); } /* Terminate access to the Vxxx interface and close the file. */ status = Vend(fid); CHECK_VOID(status,FAIL,"Vend:fid"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose:fid"); } /* test_vdeletetagref */ static void test_emptyvdata(void) { int32 status; /* Status values from routines */ int32 fid; /* File ID */ int32 vs1; /* Vdata ID */ int32 ref; /* Vdata ref */ char vsname[VSNAMELENMAX], fields[FIELDNAMELENMAX*VSFIELDMAX]; /* Open the HDF file. */ fid = Hopen(EMPTYNM, DFACC_CREATE, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Create a new vdata. */ vs1 = VSattach(fid, -1, "w"); CHECK_VOID(vs1,FAIL,"VSattach"); status=VSsetname(vs1, EMPTY_VDATA); CHECK_VOID(status,FAIL,"VSsetname"); status = VSdetach(vs1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); MESSAGE(5, printf("created empty VDATA %s\n", EMPTY_VDATA);); /* Re-open the HDF file. */ fid = Hopen(EMPTYNM, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Find the empty vdata. */ ref=VSfind(fid,EMPTY_VDATA); CHECK_VOID(ref,FAIL,"VSfind"); vs1 = VSattach(fid, ref, "r"); CHECK_VOID(vs1,FAIL,"VSattach"); status=VSgetname(vs1, vsname); CHECK_VOID(status,FAIL,"VSgetname"); if (HDstrcmp(vsname, EMPTY_VDATA)) { num_errs++; printf(">>> Got bogus Vdata name : %s\n", vsname); } status=VFnfields(vs1); VERIFY_VOID(status,0,"VFnfields"); /* Verify that VSgetfields will return FAIL when passing in a NULL for field name list (from bug #554), although this might never happen - BMR 5/17/01 */ status = VSgetfields(vs1, NULL); VERIFY_VOID(status, FAIL, "VSgetfields"); status=VSgetfields(vs1,fields); CHECK_VOID(status,FAIL,"VSgetfields"); if (HDstrcmp(fields, "")) { num_errs++; printf(">>> Got bogus field names : %s\n", fields); } status = VSdetach(vs1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); MESSAGE(5, printf("read back in empty VDATA %s\n", EMPTY_VDATA);); /* Re-open the HDF file. */ fid = Hopen(EMPTYNM, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Find the empty vdata. */ ref=VSfind(fid,EMPTY_VDATA); CHECK_VOID(ref,FAIL,"VSfind"); vs1 = VSattach(fid, ref, "w"); CHECK_VOID(vs1,FAIL,"VSattach"); /* Write out simple vdata fields */ status=VSfdefine(vs1, FIELD1, DFNT_FLOAT32, 1); CHECK_VOID(status,FAIL,"VSfdefine"); status = VSfdefine(vs1, FIELD2, DFNT_INT32, 2); CHECK_VOID(status,FAIL,"VSfdefine"); status = VSsetfields(vs1, FIELD1","FIELD2); if (status == FAIL) { num_errs++; printf(">>> Vsetfields failed for %s\n", vsname); } status = VSdetach(vs1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); MESSAGE(5, printf("changed empty VDATA %s to have two fields\n", EMPTY_VDATA);); /* Re-open the HDF file. */ fid = Hopen(EMPTYNM, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Find the empty vdata. */ ref=VSfind(fid,EMPTY_VDATA); CHECK_VOID(ref,FAIL,"VSfind"); vs1 = VSattach(fid, ref, "r"); CHECK_VOID(vs1,FAIL,"VSattach"); status=VFnfields(vs1); VERIFY_VOID(status,2,"VFnfields"); status=VSgetfields(vs1,fields); CHECK_VOID(status,FAIL,"VSgetfields"); if (HDstrcmp(fields, FIELD1","FIELD2)) { num_errs++; printf(">>> Got bogus field names : %s\n", fields); } status = VSdetach(vs1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); } /* test_emptyvdata() */ static void test_vglongnames(void) { int32 status; /* Status values from routines */ int32 fid; /* File ID */ int32 vg1; /* Vdata ID */ int32 ref; /* Vdata ref */ uint16 name_len; /* Length of a vgroup's name or class name */ char *vgname, *vgclass; /* Open the HDF file. */ fid = Hopen(LONGNAMES, DFACC_CREATE, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Create a new vgroup. */ vg1 = Vattach(fid, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetname(vg1, VG_LONGNAME); CHECK_VOID(status,FAIL,"VSsetname"); status=Vsetclass(vg1, VG_LONGCLASS); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Create another vgroup of the same class. */ vg1 = Vattach(fid, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetname(vg1, VGROUP1); CHECK_VOID(status,FAIL,"VSsetname"); status=Vsetclass(vg1, VG_LONGCLASS); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); /* Re-open the HDF file. */ fid = Hopen(LONGNAMES, DFACC_RDWR, 0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Find the long name vgroup. */ ref=Vfind(fid,VG_LONGNAME); CHECK_VOID(ref,FAIL,"VSfind"); vg1 = Vattach(fid, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* get the vgroup's name */ status = Vgetnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgname, "vgname", "test_vglongnames" ); status=Vgetname(vg1, vgname); CHECK_VOID(status,FAIL,"VSgetname"); if (HDstrcmp(vgname, VG_LONGNAME)) { num_errs++; printf(">>> Got bogus Vgroup name : %s\n", vgname); } if (vgname != NULL) HDfree(vgname); /* get the vgroup's class */ status = Vgetclassnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgclass, "vgclass", "test_vglongnames" ); status=Vgetclass(vg1, vgclass); CHECK_VOID(status,FAIL,"VSgetclass"); if (HDstrcmp(vgclass, VG_LONGCLASS)) { num_errs++; printf(">>> Got bogus Vgroup class : %s\n", vgclass); } if (vgclass != NULL) HDfree(vgclass); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Find the vgroup VGROUP1. */ ref=Vfind(fid,VGROUP1); CHECK_VOID(ref,FAIL,"VSfind"); vg1 = Vattach(fid, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* get the vgroup's name */ status = Vgetnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgname, "vgname", "test_vglongnames" ); status=Vgetname(vg1, vgname); CHECK_VOID(status,FAIL,"VSgetname"); if (HDstrcmp(vgname, VGROUP1)) { num_errs++; printf(">>> Got bogus Vgroup name : %s\n", vgname); } if (vgname != NULL) HDfree(vgname); /* get the vgroup's class */ status = Vgetclassnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgclass, "vgclass", "test_vglongnames" ); status=Vgetclass(vg1, vgclass); CHECK_VOID(status,FAIL,"VSgetclass"); if (HDstrcmp(vgclass, VG_LONGCLASS)) { num_errs++; printf(">>> Got bogus Vgroup class : %s\n", vgclass); } if (vgclass != NULL) HDfree(vgclass); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(fid); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(fid); CHECK_VOID(status,FAIL,"Hclose"); } /* test_vglongnames() */ #define USERVGROUPS "tuservgs.hdf" #define NUM_VGROUPS 10 static void test_getvgroups(void) { int32 fid; /* File ID */ int32 vgroup_id, vgroup0_id, vgroup1_id, vgroup2_id, vgroup3_id, vgroup4_id, vgroup5_id; /* Various vgroup IDs */ int32 vgroup_ref; /* Vgroup ref */ uintn n_vgs=0; uint16 *refarray; int32 ref_list[NUM_VGROUPS]; char vgclass[20]; int ii; int32 status; /* Status values from routines */ intn status_n; /* returned status for functions returning an intn */ /* Create HDF file and initialize the interface. */ fid = Hopen(USERVGROUPS, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Create NUM_VGROUPS vgroups and set classname */ for (ii = 0; ii < NUM_VGROUPS; ii++) { /* Create a vgroup. */ vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach"); /* Record its reference number for later access */ vgroup_ref = VQueryref(vgroup_id); CHECK_VOID(vgroup_ref, FAIL, "VQueryref:vgroup_id"); ref_list[ii] = vgroup_ref; /* Set its class name */ sprintf(vgclass, "VG-CLASS-%d", ii); status = Vsetclass(vgroup_id, vgclass); CHECK_VOID(status, FAIL, "Vsetclass"); /* Detach it */ status = Vdetach(vgroup_id); CHECK_VOID(status, FAIL, "Vdetach"); } /* Insert some vgroups into some other vgroups to build some sort of vgroup structure */ /* Insert "VG-CLASS-1" and "VG-CLASS-2" into "VG-CLASS-0" */ vgroup0_id = Vattach(fid, ref_list[0], "w"); CHECK_VOID(vgroup0_id, FAIL, "Vattach"); vgroup1_id = Vattach(fid, ref_list[1], "w"); CHECK_VOID(vgroup1_id, FAIL, "Vattach"); vgroup2_id = Vattach(fid, ref_list[2], "w"); CHECK_VOID(vgroup2_id, FAIL, "Vattach"); status = Vinsert(vgroup0_id, vgroup1_id); CHECK_VOID(status, FAIL, "Vinsert vgroup1_id into vgroup0_id"); status = Vinsert(vgroup0_id, vgroup2_id); CHECK_VOID(status, FAIL, "Vinsert vgroup2_id into vgroup0_id"); /* Insert "VG-CLASS-3", "VG-CLASS-4", and "VG-CLASS-5" into "VG-CLASS-1" */ vgroup3_id = Vattach(fid, ref_list[3], "w"); CHECK_VOID(vgroup3_id, FAIL, "Vattach"); vgroup4_id = Vattach(fid, ref_list[4], "w"); CHECK_VOID(vgroup4_id, FAIL, "Vattach"); vgroup5_id = Vattach(fid, ref_list[5], "w"); CHECK_VOID(vgroup5_id, FAIL, "Vattach"); status = Vinsert(vgroup1_id, vgroup3_id); CHECK_VOID(status, FAIL, "Vinsert vgroup3_id into vgroup1_id"); status = Vinsert(vgroup1_id, vgroup4_id); CHECK_VOID(status, FAIL, "Vinsert vgroup4_id into vgroup1_id"); status = Vinsert(vgroup1_id, vgroup5_id); CHECK_VOID(status, FAIL, "Vinsert vgroup5_id into vgroup1_id"); /************************************************************** The vgroup structure should look like this: vg0 vg6 vg7 vg8 vg9 | / \ vg1 vg2 | / | \ / | \ vg3 vg4 vg5 Calling Vgetvgroups on the file should return all ten vgroups. Calling Vgetvgroups on vg0 should return 2, vg1 and vg2. Calling Vgetvgroups on vg1 should return 3, vg3, vg4, and vg5 Calling Vgetvgroups on vg6, vg7, vg8, and vg9 should return 0 ***************************************************************/ /* Get and verify the number of vgroups in the file */ n_vgs = Vgetvgroups(fid, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid"); VERIFY_VOID(n_vgs, NUM_VGROUPS, "Vgetvgroups fid"); /* Allocate space to retrieve the reference numbers of n_vgs vgroups */ refarray = (uint16 *)HDmalloc(sizeof(uint16)*n_vgs); /* Get all the vgroups in the file */ n_vgs = Vgetvgroups(fid, 0, n_vgs, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid"); VERIFY_VOID(n_vgs, NUM_VGROUPS, "Vgetvgroups fid"); /* Verify refarray from this Vgetvgroups, it should contain: 2 3 4 5 6 7 8 9 10 11 */ { uint16 result[] = {2, 3, 4, 5, 6, 7, 8, 9, 10, 11}; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Get 5 vgroups starting from vgroup number 5 */ n_vgs = Vgetvgroups(fid, 5, 5, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid (5,5)"); VERIFY_VOID(n_vgs, 5, "Vgetvgroups fid (5,5)"); /* Verify refarray from this Vgetvgroups, it should contain: 7 8 9 10 11 */ { uint16 result[] = {7, 8, 9, 10, 11}; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Get and verify the number of vgroups in vgroup0_id */ n_vgs = Vgetvgroups(vgroup0_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup0_id"); VERIFY_VOID(n_vgs, 2, "Vgetvgroups vgroup0_id"); /* Get all the vgroups in vgroup0_id (refarray already allocated to max */ n_vgs = Vgetvgroups(vgroup0_id, 0, n_vgs, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup0_id"); VERIFY_VOID(n_vgs, 2, "Vgetvgroups vgroup0_id"); /* Verify refarray from this Vgetvgroups, it should contain: 3 4 */ { uint16 result[] = {3, 4}; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Get and verify the number of vgroups in vgroup1_id */ n_vgs = Vgetvgroups(vgroup1_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup1_id"); VERIFY_VOID(n_vgs, 3, "Vgetvgroups vgroup1_id"); /* Get all the vgroups in vgroup1_id */ n_vgs = Vgetvgroups(vgroup1_id, 0, n_vgs, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup1_id"); VERIFY_VOID(n_vgs, 3, "Vgetvgroups vgroup1_id"); /* Verify refarray from this Vgetvgroups, it should contain: 5 6 7 */ { uint16 result[] = {5, 6, 7}; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* This vgroup should have no sub-vgroup */ n_vgs = Vgetvgroups(vgroup5_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup5_id"); VERIFY_VOID(n_vgs, 0, "Vgetvgroups vgroup5_id"); /* These vgroups are not needed anymore. */ status = Vdetach(vgroup2_id); CHECK_VOID(status, FAIL, "Vdetach vgroup2_id"); status = Vdetach(vgroup3_id); CHECK_VOID(status, FAIL, "Vdetach vgroup3_id"); status = Vdetach(vgroup4_id); CHECK_VOID(status, FAIL, "Vdetach vgroup4_id"); status = Vdetach(vgroup5_id); CHECK_VOID(status, FAIL, "Vdetach vgroup5_id"); /* Change class name of vg6 and vg7 to an internal class name to simulate that they are internally created by the library. */ vgroup_id = Vattach(fid, ref_list[6], "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach vg6"); status = Vsetclass(vgroup_id, _HDF_VARIABLE); CHECK_VOID(status, FAIL, "Vsetclass _HDF_VARIABLE"); status = Vdetach(vgroup_id); CHECK_VOID(status, FAIL, "Vdetach vg6"); vgroup_id = Vattach(fid, ref_list[7], "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach vg7"); status = Vsetclass(vgroup_id, _HDF_DIMENSION); CHECK_VOID(status, FAIL, "Vsetclass _HDF_DIMENSION"); status = Vdetach(vgroup_id); CHECK_VOID(status, FAIL, "Vdetach vg7"); /************************************************************** Calling Vgetvgroups on the file now should return 8 because vg6 and vg7 are no longer seen as user-created vgroups due to their class name change. ***************************************************************/ /* Get the number of vgroups in the file, which shouldn't include the simulated internal vgroups */ n_vgs = Vgetvgroups(fid, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid"); VERIFY_VOID(n_vgs, 8, "Vgetvgroups fid"); /* Get these vgroups */ n_vgs = Vgetvgroups(fid, 0, n_vgs, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid"); VERIFY_VOID(n_vgs, 8, "Vgetvgroups fid"); /* Verify refarray from this Vgetvgroups, it should contain: 2 3 4 5 6 7 10 11 */ { uint16 result[] = { 2, 3, 4, 5, 6, 7, 10, 11 }; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Get 5 vgroups starting from vgroup number 5, the result shouldn't include the simulated internal vgroups */ n_vgs = Vgetvgroups(fid, 5, 5, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups fid"); VERIFY_VOID(n_vgs, 3, "Vgetvgroups fid"); /* Verify refarray from this Vgetvgroups, it should contain: 7 10 11 */ { uint16 result[] = { 7, 10, 11 }; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Check on vgroup0_id again */ n_vgs = Vgetvgroups(vgroup0_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup0_id"); VERIFY_VOID(n_vgs, 2, "Vgetvgroups vgroup0_id"); n_vgs = Vgetvgroups(vgroup0_id, 0, n_vgs, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup0_id"); VERIFY_VOID(n_vgs, 2, "Vgetvgroups vgroup0_id"); /* Verify refarray from this Vgetvgroups, it should contain: 3 4 */ { uint16 result[] = { 3, 4 }; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Passing in more info count (3) than the actual number of vgrous to be retrieved (1) */ n_vgs = Vgetvgroups(vgroup1_id, 2, 3, refarray); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup1_id"); VERIFY_VOID(n_vgs, 1, "Vgetvgroups vgroup1_id"); /* Verify refarray from this Vgetvgroups, it should contain: 7 */ { uint16 result[] = { 7 }; for (ii = 0; ii < n_vgs; ii++) if (refarray[ii] != result[ii]) fprintf(stderr, "test_getvgroups: incorrect vgroup retrieved at line %d - ref# %d should be %d\n", __LINE__, refarray[ii], result[ii]); } /* Passing in info count as 0 for a non-null array, should fail */ n_vgs = Vgetvgroups(fid, 0, 0, refarray); VERIFY_VOID(n_vgs, FAIL, "Vgetvgroups with info_count = 0"); /* Passing in the starting vgroup beyond the number of user-created vgroups, should fail */ n_vgs = Vgetvgroups(fid, 9, 3, refarray); VERIFY_VOID(n_vgs, FAIL, "Vgetvgroups with start_vg = 9"); if (refarray != NULL) HDfree(refarray); /* Terminate access to the V interface and close the HDF file. */ status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status_n = Hclose (fid); CHECK_VOID(status_n, FAIL, "Hclose"); } /* test_getvgroups() */ intn check_vgs(int32 id, uintn start_vg, uintn n_vgs, char *ident_text, /* just for debugging, remove when done */ uintn resultcount, /* expected number of vgroups */ uint16 *resultarray) /* array containing expected values */ { uint16 *refarray=NULL; uintn count=0, ii; char message[30]; intn ret_value=SUCCEED; HDstrcpy(message, "Vgetvgroups: "); HDstrcat(message, ident_text); /* Get and verify the number of vgroups in the file */ count = Vgetvgroups(id, start_vg, n_vgs, NULL); CHECK(count, FAIL, "Vgetvgroups"); VERIFY(count, resultcount, "Vgetvgroups"); /* Allocate space to retrieve the reference numbers of 'count' vgroups */ refarray = (uint16 *)HDmalloc(sizeof(uint16)*count); if (refarray == NULL) { fprintf(stderr, "check_vgs: Allocation refarray failed\n"); return (-1); } /* Get all the vgroups in the file */ count = Vgetvgroups(id, start_vg, count, refarray); CHECK(count, FAIL, "Vgetvgroups"); VERIFY(count, resultcount, "Vgetvgroups"); for (ii = 0; ii < count; ii++) if (refarray[ii] != resultarray[ii]) fprintf(stderr, "%s: at index %d - read value=%d, should be %d\n", ident_text, ii, refarray[ii], resultarray[ii]); if (refarray != NULL) HDfree(refarray); return ret_value; } intn check_vds(int32 id, uintn start_vd, uintn n_vds, char *ident_text, /* just for debugging, remove when done */ uintn resultcount, /* expected number of vdatas */ uint16 *resultarray) /* array containing expected values */ { uint16 *refarray=NULL; uintn count=0, ii; char message[30]; intn ret_value=SUCCEED; HDstrcpy(message, "VSgetvdatas: "); HDstrcat(message, ident_text); /* Get and verify the number of vdatas in the file */ count = VSgetvdatas(id, start_vd, n_vds, NULL); CHECK(count, FAIL, message); VERIFY(count, resultcount, message); /* Allocate space to retrieve the reference numbers of 'count' vdatas */ refarray = (uint16 *)HDmalloc(sizeof(uint16)*count); if (refarray == NULL) { fprintf(stderr, "check_vds: Allocation refarray failed\n"); return (-1); } /* Get all the vdatas in the file */ count = VSgetvdatas(id, start_vd, count, refarray); CHECK(count, FAIL, message); VERIFY(count, resultcount, message); for (ii = 0; ii < count; ii++) if (refarray[ii] != resultarray[ii]) fprintf(stderr, "%s: at index %d - read value=%d, should be %d\n", ident_text, ii, refarray[ii], resultarray[ii]); if (refarray != NULL) HDfree(refarray); return ret_value; } #define USERVDATAS "tuservds.hdf" #define NUM_VDATAS 8 static void test_getvdatas(void) { int32 vgroup_id; int32 vgroup_ref; int32 vdata_id; int32 vdata_ref; int32 fid; /* File ID */ int32 vgroup0_id, vgroup1_id, vgroup2_id, vgroup4_id, vgroup6_id, vgroup7_id, vgroup9_id; /* Various vgroup IDs */ int32 vdata1_id, vdata2_id, vdata3_id, vdata4_id, vdata5_id, vdata6_id, vdata7_id; /* Various vdata IDs */ uintn n_vgs=0; int32 ref_list[NUM_VGROUPS], vdref_list[NUM_VDATAS]; char vgclass[20]; int ii; int32 status; /* Status values from routines */ intn status_n; /* returned status for functions returning an intn */ /* Create HDF file and initialize the interface. */ fid = Hopen(USERVDATAS, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Create NUM_VGROUPS vgroups and set classname */ for (ii = 0; ii < NUM_VGROUPS; ii++) { /* Create a vgroup. */ vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach"); /* Record its reference number for later access */ vgroup_ref = VQueryref(vgroup_id); CHECK_VOID(vgroup_ref, FAIL, "VQueryref:vgroup_id"); ref_list[ii] = vgroup_ref; /* Set its class name */ sprintf(vgclass, "VG-CLASS-%d", ii); status = Vsetclass(vgroup_id, vgclass); CHECK_VOID(status, FAIL, "Vsetclass"); /* Detach it */ status = Vdetach(vgroup_id); CHECK_VOID(status, FAIL, "Vdetach"); } /* Create NUM_VDATAS vgroups and set classname */ for (ii = 0; ii < NUM_VDATAS; ii++) { /* Create a vdata. */ vdata_id = VSattach(fid, -1, "w"); CHECK_VOID(vdata_id, FAIL, "VSattach"); /* Record its reference number for later access */ vdata_ref = VSQueryref(vdata_id); CHECK_VOID(vdata_ref, FAIL, "VSQueryref:vdata_id"); vdref_list[ii] = vdata_ref; /* Set its class name */ sprintf(vgclass, "VS-CLASS-%d", ii); status = VSsetclass(vdata_id, vgclass); CHECK_VOID(status, FAIL, "VSsetclass"); /* Detach it */ status = VSdetach(vdata_id); CHECK_VOID(status, FAIL, "VSdetach"); } /* Insert some vdatas/vgroups into some other vgroups to build some sort of vgroup/vdata structure */ /* Insert "VD-CLASS-1" and "VD-CLASS-2" into "VG-CLASS-0" */ vgroup0_id = Vattach(fid, ref_list[0], "w"); /* "VG-CLASS-0" */ CHECK_VOID(vgroup0_id, FAIL, "Vattach"); vdata1_id = VSattach(fid, vdref_list[1], "w"); /* "VD-CLASS-1" */ CHECK_VOID(vdata1_id, FAIL, "VSattach"); vdata2_id = VSattach(fid, vdref_list[2], "w"); /* "VD-CLASS-2" */ CHECK_VOID(vdata2_id, FAIL, "VSattach"); status = Vinsert(vgroup0_id, vdata1_id); CHECK_VOID(status, FAIL, "Vinsert vdata1_id into vgroup0_id"); status = Vinsert(vgroup0_id, vdata2_id); CHECK_VOID(status, FAIL, "Vinsert vdata2_id into vgroup0_id"); /* Insert "VG-CLASS-7" and "VG-CLASS-9" into "VG-CLASS-0" */ vgroup7_id = Vattach(fid, ref_list[7], "w"); CHECK_VOID(vgroup7_id, FAIL, "Vattach"); vgroup9_id = Vattach(fid, ref_list[9], "w"); CHECK_VOID(vgroup9_id, FAIL, "Vattach"); status = Vinsert(vgroup0_id, vgroup7_id); CHECK_VOID(status, FAIL, "Vinsert vgroup7_id into vgroup0_id"); status = Vinsert(vgroup0_id, vgroup9_id); CHECK_VOID(status, FAIL, "Vinsert vgroup9_id into vgroup0_id"); /* Insert "VD-CLASS-3", "VD-CLASS-4", and "VD-CLASS-5" into "VG-CLASS-9" */ vdata3_id = VSattach(fid, vdref_list[3], "w"); CHECK_VOID(vdata3_id, FAIL, "Vattach"); vdata4_id = VSattach(fid, vdref_list[4], "w"); CHECK_VOID(vdata4_id, FAIL, "Vattach"); vdata5_id = VSattach(fid, vdref_list[5], "w"); CHECK_VOID(vdata4_id, FAIL, "Vattach"); status = Vinsert(vgroup9_id, vdata3_id); CHECK_VOID(status, FAIL, "Vinsert vdata3_id into vgroup9_id"); status = Vinsert(vgroup9_id, vdata4_id); CHECK_VOID(status, FAIL, "Vinsert vdata4_id into vgroup9_id"); status = Vinsert(vgroup9_id, vdata5_id); CHECK_VOID(status, FAIL, "Vinsert vdata5_id into vgroup9_id"); /* Insert "VG-CLASS-4", "VG-CLASS-6", and "VD-CLASS-7" into "VG-CLASS-1" */ vgroup1_id = Vattach(fid, ref_list[1], "w"); CHECK_VOID(vgroup1_id, FAIL, "Vattach"); vgroup4_id = Vattach(fid, ref_list[4], "w"); CHECK_VOID(vgroup4_id, FAIL, "Vattach"); vgroup6_id = Vattach(fid, ref_list[6], "w"); CHECK_VOID(vgroup6_id, FAIL, "Vattach"); vdata7_id = VSattach(fid, vdref_list[7], "w"); CHECK_VOID(vdata7_id, FAIL, "VSattach"); status = Vinsert(vgroup1_id, vgroup4_id); CHECK_VOID(status, FAIL, "Vinsert vgroup4_id into vgroup1_id"); status = Vinsert(vgroup1_id, vgroup6_id); CHECK_VOID(status, FAIL, "Vinsert vgroup6_id into vgroup1_id"); status = Vinsert(vgroup1_id, vdata7_id); CHECK_VOID(status, FAIL, "Vinsert vdata7_id into vgroup1_id"); /* Insert "VD-CLASS-6", "VG-CLASS-2" into "VG-CLASS-6" */ vdata6_id = VSattach(fid, vdref_list[6], "w"); CHECK_VOID(vdata6_id, FAIL, "VSattach"); vgroup2_id = Vattach(fid, ref_list[2], "w"); CHECK_VOID(vgroup2_id, FAIL, "Vattach"); status = Vinsert(vgroup6_id, vgroup2_id); CHECK_VOID(status, FAIL, "Vinsert vgroup2_id into vgroup6_id"); status = Vinsert(vgroup6_id, vdata6_id); CHECK_VOID(status, FAIL, "Vinsert vdata6_id into vgroup6_id"); status = Vdetach(vgroup0_id); CHECK_VOID(status, FAIL, "Vdetach vgroup0_id"); status = Vdetach(vgroup1_id); CHECK_VOID(status, FAIL, "Vdetach vgroup1_id"); status = Vdetach(vgroup2_id); CHECK_VOID(status, FAIL, "Vdetach vgroup2_id"); status = Vdetach(vgroup4_id); CHECK_VOID(status, FAIL, "Vdetach vgroup4_id"); status = Vdetach(vgroup6_id); CHECK_VOID(status, FAIL, "Vdetach vgroup6_id"); status = Vdetach(vgroup7_id); CHECK_VOID(status, FAIL, "Vdetach vgroup7_id"); status = Vdetach(vgroup9_id); CHECK_VOID(status, FAIL, "Vdetach vgroup9_id"); status = VSdetach(vdata1_id); CHECK_VOID(status, FAIL, "VSdetach vdata1_id"); status = VSdetach(vdata2_id); CHECK_VOID(status, FAIL, "VSdetach vdata2_id"); status = VSdetach(vdata3_id); CHECK_VOID(status, FAIL, "VSdetach vdata3_id"); status = VSdetach(vdata4_id); CHECK_VOID(status, FAIL, "VSdetach vdata4_id"); status = VSdetach(vdata5_id); CHECK_VOID(status, FAIL, "VSdetach vdata5_id"); status = VSdetach(vdata6_id); CHECK_VOID(status, FAIL, "VSdetach vdata6_id"); status = VSdetach(vdata7_id); CHECK_VOID(status, FAIL, "VSdetach vdata7_id"); /* Terminate access to the V interface and close the HDF file. */ status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status_n = Hclose (fid); CHECK_VOID(status_n, FAIL, "Hclose"); /************************************************************** The vgroup structure should look like this: vg0 vg1 | | +--+-+-----+ / | \ | | / | \ /\ / \ vg4 vg6 vd7 / \ / \ | vd1 vd2 vg7 vg9 / \ | / \ / | \ / \ / | \ vd6 vg2 vd3 vd4 vd5 Calling Vgetvgroups on the file should return all NUM_VGROUPS vgroups Calling VSgetvdatas on the file should return all NUM_VDATAS vdatas Calling Vgetvgroups on vg0 should return 2, vg7 and vg9 Calling VSgetvdatas on vg0 should return 2, vd1 and vd2 Calling Vgetvgroups on vg1 should return 2, vg4 and vg6 Calling VSgetvdatas on vg1 should return 1, vd7 Calling Vgetvgroups on vg6 should return 1, vg2 Calling VSgetvdatas on vg6 should return 1, vd6 Calling Vgetvgroups on vg9 should return 0 Calling Vgetvgroups on vg7 should return 0 Calling VSgetvdatas on vg9 starting at 2, with n_vds=2, should return 1, vd5 Calling Vgetvgroups on vg1 starting at 1, with n_vgs=3, should return 1, vg6 ***************************************************************/ /* Open the file to test Vgetvgroups and Vgetdatas */ fid = Hopen(USERVDATAS, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); /* Test getting all vgroups in the file: fid, start_vg=0, n_vgs=0 */ { uint16 result[] = {2, 3, 4, 5, 6, 7, 8, 9, 10, 11}; status = check_vgs(fid, 0, 0, "file, 0, 0", NUM_VGROUPS, result); CHECK_VOID(status, FAIL, "Vgetvgroups fid"); } /* Test getting all vdatas in the file: fid, start_vd=0, n_vds=0 */ { uint16 result[] = {12, 13, 14, 15, 16, 17, 18, 19}; status = check_vds(fid, 0, 0, "file, 0, 0", NUM_VDATAS, result); CHECK_VOID(status, FAIL, "VSgetvdatas fid"); } vgroup0_id = Vattach(fid, ref_list[0], "w"); /* "VG-CLASS-0" */ CHECK_VOID(vgroup0_id, FAIL, "Vattach vgroup0_id"); /* Test getting vgroups in vg0: vgroup0_id, start_vd=0, n_vds=0 */ { uint16 result[] = {9, 11}; status = check_vgs(vgroup0_id, 0, 0, "vgroup0_id, 0, 0", 2, result); CHECK_VOID(status, FAIL, "VSgetvgroups vgroup0_id"); } /* Test getting vdatas in vg0: vgroup0_id, start_vd=0, n_vds=0 */ { uint16 result[] = {13, 14}; status = check_vds(vgroup0_id, 0, 0, "vgroup0_id, 0, 0", 2, result); CHECK_VOID(status, FAIL, "VSgetvdatas fid"); } vgroup1_id = Vattach(fid, ref_list[1], "w"); /* "VG-CLASS-1" */ CHECK_VOID(vgroup1_id, FAIL, "Vattach vgroup1_id"); /* Test getting vgroups in vg1: vgroup1_id, start_vd=0, n_vds=0 */ { uint16 result[] = {6, 8}; /* vg4 and vg6 */ status = check_vgs(vgroup1_id, 0, 0, "vgroup1_id, 0, 0", 2, result); CHECK_VOID(status, FAIL, "Vgetvgroups vgroup1_id"); } /* Test getting vdatas in vg1: vgroup1_id, start_vd=0, n_vds=0 */ { uint16 result[] = {19}; /* vd7 */ status = check_vds(vgroup1_id, 0, 0, "vgroup1_id, 0, 0", 1, result); CHECK_VOID(status, FAIL, "VSgetvdata vgroup1_id"); } vgroup6_id = Vattach(fid, ref_list[6], "w"); /* "VG-CLASS-6" */ CHECK_VOID(vgroup6_id, FAIL, "Vattach vgroup6_id"); /* Test getting vgroups in vg6: vgroup6_id, start_vd=0, n_vds=0 */ { uint16 result[] = {4}; /* vg2 */ status = check_vgs(vgroup6_id, 0, 0, "vgroup6_id, 0, 0", 1, result); CHECK_VOID(status, FAIL, "Vgetvgroups vgroup6_id"); } /* Test getting vdatas in vg6: vgroup6_id, start_vd=0, n_vds=0 */ { uint16 result[] = {18}; /* vd6 */ status = check_vds(vgroup6_id, 0, 0, "vgroup6_id, 0, 0", 1, result); CHECK_VOID(status, FAIL, "VSgetvdata vgroup6_id"); } /* Test getting vgroups in vg9: vgroup9_id, start_vd=0, n_vds=0 */ vgroup9_id = Vattach(fid, ref_list[9], "w"); /* "VG-CLASS-9" */ CHECK_VOID(vgroup9_id, FAIL, "Vattach vgroup9_id"); { n_vgs = Vgetvgroups(vgroup9_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup9_id"); VERIFY_VOID(n_vgs, 0, "Vgetvgroups vgroup9_id"); } /* Test getting vgroups in vg7: vgroup7_id, start_vd=0, n_vds=0 */ vgroup7_id = Vattach(fid, ref_list[7], "w"); /* "VG-CLASS-7" */ CHECK_VOID(vgroup7_id, FAIL, "Vattach vgroup7_id"); { n_vgs = Vgetvgroups(vgroup7_id, 0, 0, NULL); CHECK_VOID(n_vgs, FAIL, "Vgetvgroups vgroup7_id"); VERIFY_VOID(n_vgs, 0, "Vgetvgroups vgroup7_id"); } /* Test getting vdatas in vg9: vgroup9_id, start_vd=2, n_vds=2 */ { uint16 result[] = {17}; /* vd5 */ status = check_vds(vgroup9_id, 2, 2, "vgroup9_id, 2, 2", 1, result); CHECK_VOID(status, FAIL, "VSgetvdata vgroup9_id"); } /* Test getting vgroups in vg1: vgroup1_id, start_vd=1, n_vds=3 */ { uint16 result[] = {8}; /* vg6 */ status = check_vgs(vgroup1_id, 1, 3, "vgroup1_id, 1, 3", 1, result); CHECK_VOID(status, FAIL, "Vgetvgroups vgroup1_id"); } status = Vdetach(vgroup0_id); CHECK_VOID(status, FAIL, "Vdetach vgroup0_id"); status = Vdetach(vgroup1_id); CHECK_VOID(status, FAIL, "Vdetach vgroup1_id"); status = Vdetach(vgroup6_id); CHECK_VOID(status, FAIL, "Vdetach vgroup6_id"); status = Vdetach(vgroup7_id); CHECK_VOID(status, FAIL, "Vdetach vgroup7_id"); status = Vdetach(vgroup9_id); CHECK_VOID(status, FAIL, "Vdetach vgroup9_id"); /* Terminate access to the V interface and close the HDF file. */ status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status_n = Hclose (fid); CHECK_VOID(status_n, FAIL, "Hclose"); } /* test_getvgroups() */ /*************************** test_extfile *************************** This test routine creates an hdf file, "tvset_ext.hdf" (excerpted and modified from Ruth's program used in hmap project), and creates and writes a vdata with external element. The external file is named Tables_External_File. ***********************************************************************/ #define EXTFILE "tvset_ext.hdf" #define EXTERNAL_FILE "Tables_External_File" #define MULTI_NAME "Table AR with Attributes in External File" #define CLASSMULTI_NAME "Multi-Type, Multi-Entries per Cell, Store By Row in External File" #define NROWS 5 /* number of records to be written to the vdatas at every write */ static void test_extfile(void) { int32 fid, vdata1_id, vdata_ref = -1; /* ref number of a vdata, set to -1 to create */ int32 vdata1_ref; int32 offset = -1, length = -1; char hibuf[2] = "hi"; char byebuf[3] = "bye"; char *extfile_name; void* columnPtrs[3]; int bufsize; void* databuf; void* databuf2; intn name_len = 0; intn status_n; /* returned status for functions returning an intn */ int32 status; /* returned status for functions returning an int32 */ char8 col1buf[NROWS][2] = { {'A', 'B'}, {'B', 'C'}, {'C', 'D'}, {'D', 'E'}, {'E', 'F'} }; uint16 col2buf[NROWS] = {1, 2, 3, 4, 5}; float32 col3buf[NROWS][2] = { {.01, .1}, {.02, .2}, {.03, .3}, {.04, .4}, {.05, .5} }; /* Create the HDF file for data used in this test routine */ fid = Hopen (EXTFILE, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* * Compute the buffer size that will be needed to hold the data for the * mixed-data columns. Allocate the buffers. */ bufsize = (2*sizeof(char8) + sizeof(uint16) + 2*sizeof(float32)) * NROWS; databuf = malloc( (unsigned)bufsize ); /* Initialize the pointers to the column data. */ columnPtrs[0] = &col1buf[0][0]; columnPtrs[1] = &col2buf[0]; columnPtrs[2] = &col3buf[0][0]; /* Create the first vdata */ vdata1_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); /* Set name and class name of the vdata. */ status = VSsetname(vdata1_id, MULTI_NAME); CHECK_VOID(status, FAIL, "VSsetname"); status = VSsetclass(vdata1_id, CLASSMULTI_NAME); CHECK_VOID(status, FAIL, "VSsetclass"); status = VSsetexternalfile( vdata1_id, EXTERNAL_FILE, 10 ); CHECK_VOID(status, FAIL, "VSsetexternalfile"); /* Introduce each field's name, data type, and order. This is the first part in defining a field. */ status_n = VSfdefine (vdata1_id, FIELD1_NAME, DFNT_CHAR8, ORDER_3); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vdata1_id, FIELD2_NAME, DFNT_UINT16, ORDER_2); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vdata1_id, FIELD3_NAME, DFNT_LFLOAT32, ORDER_3); CHECK_VOID(status_n, FAIL, "VSfdefine"); /* Finalize the definition of the fields. */ status_n = VSsetfields (vdata1_id, FIELD_NAME_LIST); CHECK_VOID(status_n, FAIL, "VSsetfields"); /* Pack the buffer that will be used to write the data to the file. */ status = VSfpack( vdata1_id, _HDF_VSPACK, NULL, databuf, bufsize, NROWS, NULL, columnPtrs); CHECK_VOID(status, FAIL, "VSfpack"); /* Write to the vdata in FULL_INTERLACE */ status = VSwrite( vdata1_id, databuf, NROWS, FULL_INTERLACE ); CHECK_VOID(status, FAIL, "VSwrite"); /* Add Attribute for vdata */ status = VSsetattr( vdata1_id, _HDF_VDATA, "HDF4 Attribute Table", DFNT_CHAR8, 2, &hibuf ); CHECK_VOID(status, FAIL, "VSsetattr"); /* Add Attribute for Column C */ status = VSsetattr( vdata1_id, 2, "HDF4 Attribute Field 3", DFNT_CHAR8, 3, &byebuf ); CHECK_VOID(status, FAIL, "VSsetattr"); /* Get vdata ref */ vdata1_ref = VSQueryref(vdata1_id); CHECK_VOID(vdata1_ref, FAIL, "VSQueryref"); status_n = VSdetach( vdata1_id ); CHECK_VOID(status_n, FAIL, "VSdetach"); HDfree(databuf); status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); /* Reopen the file and the vdata and verify external file information */ /* Open the HDF file */ fid = Hopen (EXTFILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* Create the first vdata */ vdata1_id = VSattach(fid, vdata1_ref, "r"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); { /* This is an old test, will be removed when VSgetexternalfile is */ /* Get the length of the external file name first - VSgetexternalfile is deprecated as of 4.2.7 */ name_len = VSgetexternalfile(vdata1_id, 0, NULL, NULL); VERIFY_VOID(name_len, (intn)HDstrlen(EXTERNAL_FILE), "VSgetexternalfile"); extfile_name = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(extfile_name, "extfile_name", "test_extfile"); /* Old function: Get the external file name - VSgetexternalfile is deprecated as of 4.2.7 */ name_len = VSgetexternalfile(vdata1_id, name_len+1, extfile_name, &offset); VERIFY_VOID(name_len, (intn)HDstrlen(EXTERNAL_FILE), "VSgetexternalfile"); VERIFY_CHAR_VOID(extfile_name, EXTERNAL_FILE, "VSgetexternalfile"); HDfree(extfile_name); } /* old test */ /* Get the length of the external file name first */ name_len = VSgetexternalinfo(vdata1_id, 0, NULL, NULL, NULL); VERIFY_VOID(name_len, (intn)HDstrlen(EXTERNAL_FILE), "VSgetexternalinfo"); extfile_name = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(extfile_name, "extfile_name", "test_extfile"); /* Get the external file name */ name_len = VSgetexternalinfo(vdata1_id, name_len+1, extfile_name, &offset, &length); VERIFY_VOID(name_len, (intn)HDstrlen(EXTERNAL_FILE), "VSgetexternalinfo"); VERIFY_CHAR_VOID(extfile_name, EXTERNAL_FILE, "VSgetexternalinfo"); HDfree(extfile_name); /* Test passing in smaller buffer for external file name than actual; name should be truncated */ { /* Make a shorter string to verify later */ char *short_name = (char *) HDmalloc(sizeof(char *) * (name_len)); HDmemset(short_name, '\0', name_len); HDstrncpy(short_name, EXTERNAL_FILE, name_len-2); /* Prepare buffer for external file name in the following test */ extfile_name = (char *) HDmalloc(sizeof(char *) * (name_len-1)); HDmemset(extfile_name, '\0', name_len); /* Call VSgetexternalinfo again with smaller buffer size and make sure VSgetexternalinfo reads the name truncated to the given buffer size*/ name_len = VSgetexternalinfo(vdata1_id, name_len-2, extfile_name, &offset, &length); VERIFY_VOID(name_len, (intn)HDstrlen(extfile_name), "VSgetexternalinfo"); VERIFY_CHAR_VOID(extfile_name, short_name, "VSgetexternalinfo"); HDfree(short_name); HDfree(extfile_name); } /* Release resources */ status_n = VSdetach( vdata1_id ); CHECK_VOID(status_n, FAIL, "VSdetach"); status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_extfile() */ /**************************************************************************** Name: test_blockinfo_oneLB() - tests setting/getting block info in the simple case, only one linked block storage occur Description: The test does the following steps: - Create the file and the first vdata, "Appendable Vdata" - Test calling VSsetblocksize with invalid values and verify that failures occur - Set block size and number of blocks to BLOCK_SIZE1 and NUM_BLOCKS for this vdata - Close the vdata and the file - Reopen the file and the first vdata, "Appendable Vdata" - Verify that the block size of this vdata remains the default, HDF_APPENDABLE_BLOCK_LEN. This shows when no data and no linked-block storage created, the block size remains as the default. - Call VSsetblocksize again with BLOCK_SIZE1 and NUM_BLOCKS - Write 5 records to this vdata - Create and write 5 records to the second vdata, "Another Vdata". The purpose of this second vdata is to cause the subsequent write to the first vdata to promote the first vdata's storage to a linked-block element. - Append 5 records to the first vdata. - Verify that the block size is changed to BLOCK_SIZE1 and number of blocks to NUM_BLOCKS - Close both vdatas and the file. BMR - Jan 2014 ****************************************************************************/ #define APPENDABLE_VD "Appendable Vdata" #define ANOTHER_VD "Another Vdata" #define CLASS_NAME "Linked-block Vdata" #define ANOTHER_FD "Another field" /* contains one integer */ #define ANOTHER_FD_LIST "Another field" #define N_RECORDS 5 /* number of records to be written to the vdatas at every write */ #define N_VALS_PER_REC_2 1 /* # of values per record in the 2nd vdata */ #define N_VALS_PER_REC_1 (ORDER_1+ORDER_2+ORDER_3) /* # of vals/rec. in 1st vd*/ #define BLOCK_SIZE1 20 /* arbitrary number for block size */ #define BLOCK_SIZE2 100 /* arbitrary number for block size */ #define NUM_BLOCKS 8 /* arbitrary number for number of blocks */ static void test_blockinfo_oneLB(void) { intn status_n; /* returned status for functions returning an intn */ int32 status; /* returned status for functions returning an int32 */ int16 rec_num; /* current record number */ int32 record_pos; int32 fid, vdata1_id, vdata2_id, vdata_ref = -1, /* ref number of a vdata, set to -1 to create */ num_of_records, /* number of records actually written to vdata */ data_buf1[N_RECORDS][N_VALS_PER_REC_1], /* for first vdata's data */ data_buf2[N_RECORDS][N_VALS_PER_REC_2], /* for second vdata's data */ block_size, num_blocks; /* retrieved by VSgetblockinfo */ intn n_vds = 0; uint16 *refarray = NULL; /* Create the HDF file for data used in this test routine */ fid = Hopen (LKBLK_FILE, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* Create the first vdata */ vdata1_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); /* Set name and class name of the vdata. */ status = VSsetname (vdata1_id, APPENDABLE_VD); CHECK_VOID(status, FAIL, "VSsetname"); status = VSsetclass (vdata1_id, CLASS_NAME); CHECK_VOID(status, FAIL, "VSsetclass"); /* Introduce each field's name, data type, and order. This is the first part in defining a field. */ status_n = VSfdefine (vdata1_id, FIELD1_NAME, DFNT_INT32, ORDER_1); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vdata1_id, FIELD2_NAME, DFNT_INT32, ORDER_2); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vdata1_id, FIELD3_NAME, DFNT_INT32, ORDER_3); CHECK_VOID(status_n, FAIL, "VSfdefine"); /* Finalize the definition of the fields. */ status_n = VSsetfields (vdata1_id, FIELD_NAME_LIST); CHECK_VOID(status_n, FAIL, "VSsetfields"); /* * Buffer the data by the record for fully interlaced mode. Note that the * first three elements contain the three values of the first field, the * fourth element contains the value of the second field, and the last two * elements contain the two values of the third field. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf1[rec_num][0] = 1 + rec_num; data_buf1[rec_num][1] = 2 + rec_num; data_buf1[rec_num][2] = 3 + rec_num; data_buf1[rec_num][3] = 10 + rec_num; data_buf1[rec_num][4] = 10; data_buf1[rec_num][5] = 65; } status_n = VSgetblockinfo (vdata1_id, &block_size, NULL); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, HDF_APPENDABLE_BLOCK_LEN, "VSgetblockinfo"); /* Test for invalid arguments passed in these functions */ status_n = VSsetblocksize(vdata1_id, -2); VERIFY_VOID(status_n, FAIL, "VSsetblocksize"); status_n = VSsetnumblocks(vdata1_id, 0); VERIFY_VOID(status_n, FAIL, "VSsetnumblocks"); /* Set the block size and the number of blocks the first vdata */ status_n = VSsetblocksize(vdata1_id, BLOCK_SIZE1); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); status_n = VSsetnumblocks(vdata1_id, NUM_BLOCKS); CHECK_VOID(status_n, FAIL, "VSsetnumblocks"); status = VSdetach (vdata1_id); CHECK_VOID(status, FAIL, "Vdetach"); status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); /****************************************************************** * Reopen the file, and the vdata APPENDABLE_VDATA, verify that block * size is still the default, then set block size again, and attempt * to write data and test for block information. ******************************************************************/ fid = Hopen(LKBLK_FILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); vdata_ref = -1; vdata_ref = VSfind(fid, APPENDABLE_VD); CHECK_VOID(vdata_ref, FAIL, "VSfind"); vdata1_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); status_n = VSgetblockinfo (vdata1_id, &block_size, NULL); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, HDF_APPENDABLE_BLOCK_LEN, "VSgetblockinfo"); /* Set the block size and the number of blocks the first vdata */ status_n = VSsetblocksize(vdata1_id, BLOCK_SIZE1); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); status_n = VSsetnumblocks(vdata1_id, NUM_BLOCKS); CHECK_VOID(status_n, FAIL, "VSsetnumblocks"); /* Write the data from data_buf1 to the vdata with full interlacing mode. */ num_of_records = VSwrite(vdata1_id, (uint8 *)data_buf1, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(num_of_records, N_RECORDS, "VSwrite:vdata1_id"); /* The block size should change properly */ status_n = VSgetblockinfo (vdata1_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, BLOCK_SIZE1, "VSgetblockinfo"); /****************************************************************** * Creates and writes another vdata right after APPENDABLE_VDATA. * This will cause the storage of APPENDABLE_VDATA to be promoted to a * linked-block element if a subsequent write to APPENDABLE_VDATA occurs. ******************************************************************/ /* Create another vdata. */ vdata_ref = -1; vdata2_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata2_id, FAIL, "VSattach"); /* Set name and class name of the vdata. */ status = VSsetname (vdata2_id, ANOTHER_VD); CHECK_VOID(status, FAIL, "VSsetname"); status = VSsetclass (vdata2_id, CLASS_NAME); CHECK_VOID(status, FAIL, "VSsetclass"); /* Define the vdata's field. */ status_n = VSfdefine (vdata2_id, ANOTHER_FD, DFNT_INT32, ORDER_2); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSsetfields (vdata2_id, ANOTHER_FD_LIST); CHECK_VOID(status_n, FAIL, "VSsetfields"); /* Buffer the data for ANOTHER_VDATA */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf2[rec_num][0] = 100 + rec_num; } /* Write the data from data_buf2 to the second vdata with full interlacing mode. */ num_of_records = VSwrite(vdata2_id, (uint8 *)data_buf2, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(num_of_records, N_RECORDS, "VSwrite:vdata2_id"); /****************************************************************** * Writes more data to APPENDABLE_VDATA, i.e. first vdata. Its * storage will be promoted to a linked-block element. ******************************************************************/ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf1[rec_num][0] = 10 + rec_num; data_buf1[rec_num][1] = 20 + rec_num; data_buf1[rec_num][2] = 30 + rec_num; data_buf1[rec_num][3] = 100 + rec_num; data_buf1[rec_num][4] = 100; data_buf1[rec_num][5] = 650; } /* Append the data to the first vdata. */ record_pos = VSseek(vdata1_id, N_RECORDS); num_of_records = VSwrite(vdata1_id, (uint8 *)data_buf1, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(num_of_records, N_RECORDS, "VSwrite:vdata1_id"); /* Retrieve the first vdata's block size and number of blocks and verify them */ status_n = VSgetblockinfo (vdata1_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, BLOCK_SIZE1, "VSgetblockinfo"); VERIFY_VOID(num_blocks, NUM_BLOCKS, "VSgetblockinfo"); /* Terminate access to the vdatas and to the VS interface, then close the HDF file. */ status = VSdetach (vdata1_id); CHECK_VOID(status, FAIL, "Vdetach"); status = VSdetach (vdata2_id); CHECK_VOID(status, FAIL, "Vdetach"); /* Terminate access to the V interface and close the file. */ status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_blockinfo_oneLB() */ /**************************************************************************** Name: test_blocksize_multLBs() - tests setting block info in the case of multiple linked block element Description: The test opens the file again, open the first vdata, "Appendable Vdata", - Open the file and the first vdata, APPENDABLE_VD. - Verify that the block size had changed to BLOCK_SIZE1 and number of blocks to NUM_BLOCKS - Attempt to change the block size to something else, and verify that it is not changed, then close the vdata. - Open the second vdata, ANOTHER_VD. - Verify that the block size and number of blocks are the default values, HDF_APPENDABLE_BLOCK_LEN and HDF_APPENDABLE_BLOCK_NUM. - Change block size to BLOCK_SIZE2 - Append 5 records to ANOTHER_VD, which triggers its storage to be converted into a linked-block element. - Close the vdata and the file. - Open the file to verify block info stay changed. BMR - Jan 2014 ****************************************************************************/ static void test_blockinfo_multLBs(void) { intn status_n; /* returned status for functions returning an intn */ int32 status; /* returned status for functions returning an int32 */ int16 rec_num; /* current record number */ int32 record_pos; int32 fid, vdata1_id, vdata2_id, vdata_ref = -1, /* ref number of a vdata, set to -1 to create */ num_of_records, /* number of records actually written to vdata */ data_buf1[N_RECORDS][N_VALS_PER_REC_1], /* for first vdata's data */ data_buf2[N_RECORDS][N_VALS_PER_REC_2], /* for second vdata's data */ block_size, num_blocks; /* retrieved by VSgetblockinfo */ intn n_vds = 0; uint16 *refarray = NULL; /****************************************************************** * Reopen the file, and the vdata APPENDABLE_VDATA, then append more * data and test for block information. ******************************************************************/ fid = Hopen(LKBLK_FILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* Locate and open vdata APPENDABLE_VD */ vdata_ref = -1; vdata_ref = VSfind(fid, APPENDABLE_VD); CHECK_VOID(vdata_ref, FAIL, "VSfind"); vdata1_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); /* Retrieve the first vdata's block size and number of blocks and verify them again. This used to return the old value. (HDFFR-1357) */ status_n = VSgetblockinfo (vdata1_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSsetfields"); VERIFY_VOID(block_size, BLOCK_SIZE1, "VSgetblockinfo"); VERIFY_VOID(num_blocks, NUM_BLOCKS, "VSgetblockinfo"); /* Set the block size to the first vdata again, but this is when vdata already has a linked-block element. If the block size is different than the previously specified block size, then the change will not take effect. */ status_n = VSsetblocksize(vdata1_id, BLOCK_SIZE1+100); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); /* Retrieve the first vdata's block size and verify that it did not change */ status_n = VSgetblockinfo (vdata1_id, &block_size, NULL); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, BLOCK_SIZE1, "VSgetblockinfo"); /* Close the vdata */ status = VSdetach (vdata1_id); CHECK_VOID(status, FAIL, "Vdetach"); /* Next test: Open the second vdata, ANOTHER_VD, check block size, set block size, write to it, then check block size again */ /* Locate and open the vdata ANOTHER_VD */ vdata_ref = -1; vdata_ref = VSfind(fid, ANOTHER_VD); CHECK_VOID(vdata_ref, FAIL, "VSfind"); vdata2_id = VSattach(fid, vdata_ref, "w"); CHECK_VOID(vdata2_id, FAIL, "VSattach"); /* Check block size of ANOTHER_VD */ status_n = VSgetblockinfo (vdata2_id, &block_size, &num_blocks); VERIFY_VOID(block_size, HDF_APPENDABLE_BLOCK_LEN, "VSgetblockinfo"); /* Set the block size to ANOTHER_VD to BLOCK_SIZE2 */ status_n = VSsetblocksize(vdata2_id, BLOCK_SIZE2); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); /* Retrieve the block size of ANOTHER_VD */ status_n = VSgetblockinfo (vdata2_id, &block_size, NULL); CHECK_VOID(status_n, FAIL, "VSgetblockinfo"); VERIFY_VOID(block_size, BLOCK_SIZE2, "VSgetblockinfo"); /* Buffer the data for ANOTHER_VDATA */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf2[rec_num][0] = 200 + rec_num; } /* Write the data from data_buf2 to the vdata with full interlacing mode. */ record_pos = VSseek(vdata2_id, N_RECORDS); num_of_records = VSwrite(vdata2_id, (uint8 *)data_buf2, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(num_of_records, N_RECORDS, "VSwrite:vdata2_id"); /* Retrieve the first vdata's block size and number of blocks and verify them */ status_n = VSgetblockinfo (vdata2_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSsetfields"); VERIFY_VOID(block_size, BLOCK_SIZE2, "VSgetblockinfo"); /* Close the vdata and file */ status = VSdetach (vdata2_id); CHECK_VOID(status, FAIL, "Vdetach"); status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); /* * Open the file one more time and verify the block size and number * of blocks of the vdatas that have linked-block storage. */ /* Open file again. */ fid = Hopen(LKBLK_FILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* Locate and open vdata APPENDABLE_VD. */ vdata_ref = -1; vdata_ref = VSfind(fid, APPENDABLE_VD); CHECK_VOID(vdata_ref, FAIL, "VSfind"); vdata1_id = VSattach(fid, vdata_ref, "r"); CHECK_VOID(vdata1_id, FAIL, "VSattach"); /* Verify its block size and number of blks. */ status_n = VSgetblockinfo (vdata1_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSsetfields"); VERIFY_VOID(block_size, BLOCK_SIZE1, "VSgetblockinfo"); VERIFY_VOID(num_blocks, NUM_BLOCKS, "VSgetblockinfo"); /* Close APPENDABLE_VD. */ status = VSdetach (vdata1_id); CHECK_VOID(status, FAIL, "Vdetach"); /* Locate and open vdata ANOTHER_VD, and verify its block size and number of blks. */ vdata_ref = -1; vdata_ref = VSfind(fid, ANOTHER_VD); CHECK_VOID(vdata_ref, FAIL, "VSfind"); vdata2_id = VSattach(fid, vdata_ref, "r"); CHECK_VOID(vdata2_id, FAIL, "VSattach"); /* Verify its block size and number of blks. */ status_n = VSgetblockinfo (vdata2_id, &block_size, &num_blocks); CHECK_VOID(status_n, FAIL, "VSsetfields"); VERIFY_VOID(block_size, BLOCK_SIZE2, "VSgetblockinfo"); VERIFY_VOID(num_blocks, HDF_APPENDABLE_BLOCK_NUM, "VSgetblockinfo"); /* Close ANOTHER_VD and the file. */ status = VSdetach (vdata2_id); CHECK_VOID(status, FAIL, "Vdetach"); status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_blockinfo_multLBs() */ /* * This test is here to use the file LKBLK_FILE, but it will be moved to * another file in the future when more organization is done for tests. * This function tests that VSofclass gets the reference numbers of the * vdatas belonging to a class. */ static void test_VSofclass() { intn status_n; /* returned status for functions returning an intn */ int32 status; /* returned status for functions returning an int32 */ int16 rec_num; /* current record number */ int32 record_pos; int32 fid, vdata1_id, vdata2_id, vdata_ref = -1, /* ref number of a vdata, set to -1 to create */ num_of_records, /* number of records actually written to vdata */ data_buf1[N_RECORDS][N_VALS_PER_REC_1], /* for first vdata's data */ data_buf2[N_RECORDS][N_VALS_PER_REC_2], /* for second vdata's data */ block_size, num_blocks; /* retrieved by VSgetblockinfo */ intn n_vds = 0; uint16 *refarray = NULL; /* Open file LKBLK_FILE for reading. */ fid = Hopen(LKBLK_FILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the VS interface */ status_n = Vstart (fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* VSofclass returns the number of vdatas belonging to CLASS_NAME correctly */ n_vds = VSofclass(fid, CLASS_NAME, 0, 0, NULL); VERIFY_VOID(n_vds, 2, "VSofclass"); /* Allocate space for the ref array to pass into VSofclass. */ refarray = (uint16 *)HDmalloc(sizeof(uint16) * n_vds); CHECK_ALLOC(refarray, "refarray", "test_blockinfo_multLBs" ); /* The following tests rely on the reference numbers of the two vdatas of class CLASS_NAME. If data is added to the file before these vdatas, the reference numbers (2 and 3 below) need to be adjusted accordingly or tests will fail -BMR (will have a better tests later) */ n_vds = VSofclass(fid, CLASS_NAME, 0, n_vds, refarray); VERIFY_VOID(refarray [0], 2, "VSofclass"); VERIFY_VOID(refarray [1], 3, "VSofclass"); refarray [0] = refarray[1] = 0; n_vds = VSofclass(fid, CLASS_NAME, 0, 1, refarray); VERIFY_VOID(refarray [0], 2, "VSofclass"); VERIFY_VOID(refarray [1], 0, "VSofclass"); n_vds = VSofclass(fid, CLASS_NAME, 1, n_vds, refarray); VERIFY_VOID(refarray [0], 3, "VSofclass"); VERIFY_VOID(refarray [1], 0, "VSofclass"); /* Terminate access to the V interface and close the file. */ status_n = Vend (fid); CHECK_VOID(status_n, FAIL, "Vend"); status = Hclose (fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_VSofclass */ /*************************** test_blockinfo *************************** Name: ttest_blockinfo() - tests setting/getting block info for a vdata Description: This test creates an hdf file, "Block_info.hdf", and creates and writes two vdatas in a way that one of the vdatas, then later the other one, will be promoted to linked-block elements. The first vdata is named "Appendable Vdata", and belongs to a class, named "Linked-block Vdata". The fields of the vdata include "Field1", "Field2", and "Field3" and all data are integer. "Field1" has an order of 3, "Field2" has an order of 1, and "Field3" has an order of 2. The second vdata named "Another Vdata", and also belongs to class "Linked-block Vdata". This vdata has only one field of order 1 and its data are integer. test_blockinfo is divided into two parts: test_blockinfo_oneLB test_blockinfo_multLBs ***********************************************************************/ /* This test is perhaps more suitable somewhere else or in a file by itself, but keep it here for now since we're running out of time...*/ void test_blockinfo(void) { int32 status; /* test the case of setting block size doesn't have effect until linked- block element is created */ test_blockinfo_oneLB(); /* test functionality about set/get linked-block information */ test_blockinfo_multLBs(); /* test VSofclass; relies on the file created and written by the tests in test_blockinfo_oneLB and test_blockinfo_multLBs */ test_VSofclass(); } /* test_blockinfo */ /* main test driver */ void test_vsets(void) { int32 status; status = write_vset_stuff(); if (status == FAIL) return; status = read_vset_stuff(); if (status == FAIL) return; /* test VSdelete() */ test_vsdelete(); /* test Vdelete() */ test_vdelete(); /* test Vdeletetagref() */ test_vdeletetagref(); /* test Vdatas with no fields defined */ test_emptyvdata(); /* test Vgroups with name and class that have more than 64 characters */ test_vglongnames(); /* test functionality about set/get linked-block information */ test_blockinfo(); /* test Vgetgroups - getting user-created vgroups */ test_getvgroups(); /* test VSgetvdatas - getting user-created vdatas */ test_getvdatas(); /* test_extfile - getting external file information */ test_extfile(); } /* test_vsets */ /* TODO: - should either making all the other test functions to return status as read_vset_stuff() and write_vset_stuff, or making these two void. - review each test function and add header/comments BMR - Jan 16, 2014 */ libhdf4-4.2.10/HDF_ALT/hdf/test/tdatainfo.c0000644000000000000000000016643212421456623014757 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tdatainfo.c - tests the functions VSgetdatainfo, ANgetdatainfo, * GRgetdatainfo, and Hgetntinfo * Structure of the file: * test_datainfo - test driver * test_simple_vs - test VSgetdatainfo with data stored in one * contiguous block * test_append_vs - test VSgetdatainfo with data stored in linked blocks * test_annotation - test ANgetdatainfo * test_oneblock_ri - test GRgetdatainfo with images stored in one * contiguous block, with and without compression * test_dfr8_24 - test GRgetdatainfo with RI8 and RI24 * test_getntinfo - test Hgetntinfo ****************************************************************************/ #ifndef MFAN_TESTER #define MFAN_TESTER /* to use MFAN API */ #endif #include "hdf.h" #include "tdatainfo.h" #include "tproto.h" static void test_simple_vs(); static void test_append_vs(); static void test_annotation(); static void test_oneblock_ri(); static void test_dfr8_24(); static void test_getntinfo(); static void test_getpalinfo(); /*********************************************************************** NOTE: At this time, some of the offsets in these tests are verified by hard-coding. When adding new data to the files in exiting tests, please either add data at the bottom of the files or change the hard-coded offsets appropriately, using the values from the error messages. However, you'll need to verify the correctness of these values first using the command 'od' on the hdf file. *************************************************************************/ /* Structure to hold annotation datainfo temporarily */ typedef struct { char anntext[100]; /* values of the annotation */ int32 offset; /* offset of data block */ int32 length; /* length of data block */ } t_ann_info_t; /* Functions to access t_hdfdatainfo_t, defined in ./tdatainfo.h */ /* alloc_info is a utility function that allocates t_hdf_datainfo_t's members*/ intn alloc_info(t_hdf_datainfo_t *info, uintn info_count) { info->offsets = (int32 *) HDmalloc(info_count * sizeof(int32)); if (info->offsets == NULL) return -1; info->lengths = (int32 *) HDmalloc(info_count * sizeof(int32)); if (info->lengths == NULL) return -1; return 0; } void free_info(t_hdf_datainfo_t *info) { if (info != NULL) { if (info->offsets != NULL) HDfree(info->offsets); if (info->lengths != NULL) HDfree(info->lengths); } } /**************************************************************************** Name: test_simple_vs() - tests non-special Vdatas Description: This routine creates and writes contiguous data to vdatas and verifies some data and data information with VSgetdatainfo. The tests include the following vdatas: - a single field vdata with int32 values - a multiple field/multiple order vdata with all int32 values - a single field vdata with character values Only the character vdata's values are verified against the original buffer. The other two were verified by examining the hdf file using od. (Todo 1) BMR - Jul 2010 ****************************************************************************/ #define SIMPLE_FILE "tdatainfo_simple.hdf" /* data file */ #define NONSPECIAL_VS "Non-Special Vdata" #define CONTCLASS_NAME "Contiguous Vdata" #define LINKED_BLOCK "Linked-block Vdata" #define FIELD1_NAME "Field1" /* contains three integers */ #define FIELD2_NAME "Field2" /* contains one integer */ #define FIELD3_NAME "Field3" /* contains two integers */ #define FIELD_NAME_LIST "Field1,Field2,Field3" #define ORDER_1 3 /* order of first field of 1st vdata */ #define ORDER_2 1 /* order of second field of 1st vdata */ #define ORDER_3 2 /* order of third field of 1st vdata */ #define BLOCK_SIZE 80 /* arbitrary number for block size */ #define NUM_BLOCKS 8 /* arbitrary number for number of blocks */ #define N_VALS_PER_REC_1 1 /* # of values per record in single vdata */ #define N_VALS_PER_REC_2 (ORDER_1+ORDER_2+ORDER_3) /* # of vals/rec. in multiple vdata */ #define N_RECORDS 5 /* number of records to be written to the vdatas at every write */ static void test_simple_vs() { int32 fid, /* File ID */ vsid, /* Vdata ID */ vs_ref, /* Vdata ref# */ n_records, /* number of records actually written to vdata */ data_buf0[N_RECORDS][N_VALS_PER_REC_1], /* for single vdata's data */ data_buf1[N_RECORDS][N_VALS_PER_REC_2]; /* for multiple vdata's data*/ char data_buf2[N_RECORDS] = {'H', '4', 'M', 'A', 'P'}; int16 rec_num; /* current record number */ int32 offset, length; /* offset/length buffers for single block of data */ intn n_blocks; /* number of blocks a vdata has */ #ifdef NOTUSED t_hdf_datainfo_t vs_info; /* data structure to hold offset/length arrays and some other information about the data */ #endif int32 status; /* Status values from routines */ intn status_n; /* Status values from routines */ /* Open the HDF file and initialize the interface. */ fid = Hopen(SIMPLE_FILE, DFACC_CREATE, 0); CHECK_VOID(fid,FAIL,"Hopen"); status = Vstart(fid); CHECK_VOID(status,FAIL,"Vstart"); /* Create and write to the first vdata using high-level func VHstoredata */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) data_buf0[rec_num][0] = 5 + rec_num; vs_ref = VHstoredata(fid, "Only field", (const uint8 *)data_buf0, N_RECORDS, DFNT_INT32, "One Field One Order", CONTCLASS_NAME); /* * Get access to the vdata just created then get and verify offset/length * of its data */ vsid = VSattach (fid, vs_ref, "w"); CHECK_VOID(vsid, FAIL, "VSattach"); /* Get the number of data blocks first, should be 1 */ n_blocks = VSgetdatainfo(vsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 1, "VSgetdatainfo"); /* Get the offset/length of the data, should be 294/20 */ n_blocks = VSgetdatainfo(vsid, 0, n_blocks, &offset, &length); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); /* Verify offset/length */ VERIFY_VOID(offset, 294, "VSgetdatainfo offset from 'One Field One Order'"); VERIFY_VOID(length, 20, "VSgetdatainfo length from 'One Field One Order'"); status = VSdetach (vsid); CHECK_VOID(status, FAIL, "VSdetach"); /* * Create a multi-field/multi-order vdata, named NONSPECIAL_VS, in class * CONTCLASS_NAME, write data to it, then get and verify its data's * offsets/lengths */ vsid = VSattach (fid, -1, "w"); CHECK_VOID(vsid, FAIL, "VSattach"); /* Set name and class name of the vdata. */ status = VSsetname (vsid, NONSPECIAL_VS); CHECK_VOID(status, FAIL, "VSsetname"); status = VSsetclass (vsid, CONTCLASS_NAME); CHECK_VOID(status, FAIL, "VSsetclass"); /* Record its reference number for later access before detaching it */ vs_ref = VSQueryref(vsid); CHECK_VOID(vs_ref, FAIL, "VSQueryref"); status = VSdetach (vsid); CHECK_VOID(status, FAIL, "VSdetach"); /* Attach to vdata NONSPECIAL_VS to write data, but first verify that number of data blocks is 0 */ vsid = VSattach (fid, vs_ref, "w"); CHECK_VOID(vsid, FAIL, "VSattach"); n_blocks = VSgetdatainfo(vsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 0, "VSgetdatainfo"); /* Define the fields in the vdata */ status_n = VSfdefine (vsid, FIELD1_NAME, DFNT_INT32, ORDER_1); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vsid, FIELD2_NAME, DFNT_INT32, ORDER_2); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (vsid, FIELD3_NAME, DFNT_INT32, ORDER_3); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSsetfields (vsid, FIELD_NAME_LIST); CHECK_VOID(status_n, FAIL, "VSsetfields"); /* * Buffer the data by the record for fully interlaced mode. Note that the * first three elements contain the three values of the first field, the * fourth element contains the value of the second field, and the last two * elements contain the two values of the third field. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf1[rec_num][0] = 2; /* easier to inspect the binary file using */ data_buf1[rec_num][1] = 2; /* a simple value */ data_buf1[rec_num][2] = 2; data_buf1[rec_num][3] = 2; data_buf1[rec_num][4] = 2; data_buf1[rec_num][5] = 2; /* data_buf1[rec_num][0] = 1 + rec_num; data_buf1[rec_num][1] = 2 + rec_num; data_buf1[rec_num][2] = 3 + rec_num; data_buf1[rec_num][3] = 10 + rec_num; data_buf1[rec_num][4] = 10; data_buf1[rec_num][5] = 65; */ } /* Set the block size and the number of blocks */ status_n = VSsetblocksize(vsid, BLOCK_SIZE); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); status_n = VSsetnumblocks(vsid, NUM_BLOCKS); CHECK_VOID(status_n, FAIL, "VSsetnumblocks"); /* Write the data from data_buf1 to the non special vdata */ n_records = VSwrite(vsid, (uint8 *)data_buf1, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(n_records, N_RECORDS, "VSwrite"); n_blocks = VSgetdatainfo(vsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 1, "VSgetdatainfo"); n_blocks = VSgetdatainfo(vsid, 0, n_blocks, &offset, &length); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); /* Verify offset/length */ VERIFY_VOID(offset, 456, "VSgetdatainfo offset from NONSPECIAL_VS"); VERIFY_VOID(length, 120, "VSgetdatainfo length from NONSPECIAL_VS"); status_n = VSdetach(vsid); CHECK_VOID(status_n, FAIL, "VSdetach"); /* Create and write to another simple vdata, named 'Characters Only', in class CONTCLASS_NAME */ vs_ref = VHstoredata(fid, "Only field", (const uint8 *)data_buf2, N_RECORDS, DFNT_CHAR, "Characters Only", CONTCLASS_NAME); CHECK_VOID(vs_ref, FAIL, "VHstoredata"); /* Attach to vdata 'Characters Only' and get offset and length of its data */ vsid = VSattach(fid, vs_ref, "r"); n_blocks = VSgetdatainfo(vsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 1, "VSgetdatainfo NONSPECIAL_VS"); #ifdef NOTUSED /* Allocate space to record the vdata's data info */ if (alloc_info(&vs_info, n_blocks) == -1) exit(1); /* Record various info */ vs_info.n_values = 5; vs_info.numtype = DFNT_CHAR; #endif /* Get offset/length */ n_blocks = VSgetdatainfo(vsid, 0, n_blocks, &offset, &length); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); /* Close everything */ status = VSdetach (vsid); CHECK_VOID(status, FAIL, "VSdetach"); status_n = Vend(fid); CHECK_VOID(status_n,FAIL, "Vend"); status_n = Hclose(fid); CHECK_VOID(status_n,FAIL, "Hclose"); /* Open the file with fopen, read data at the offset obtained and verify the values */ status_n = readnoHDF_char(SIMPLE_FILE, offset, length, data_buf2); if (status_n == FAIL) fprintf(stderr, "Attempt reading data without HDF4 library failed at line %d\n", __LINE__); } /* test_simple_vs() */ /**************************************************************************** Name: test_append_vs() - tests Vdatas with linked-blocks Description: This routine creates and writes data to an appendable vdata and verifies its data information with VSgetdatainfo. The tests include the following: - create and write to an appendable vdata - create and write to a simple vdata - add data to the appendable vdata - use VSgetdatainfo to get offsets/lengths of the linked-blocks of data BMR - Jul 2010 ****************************************************************************/ #define APPEND_FILE "tdatainfo_linkblock.hdf" /* data file */ #define APPENDABLE_VD "Appendable Vdata" static void test_append_vs() { int32 fid; /* file ID */ int32 apvsid; /* vdata IDs */ int32 vs1_ref, /* vdata ref# */ n_records, /* number of records written to vdata */ data_buf0[N_RECORDS][N_VALS_PER_REC_1], /* for "Very Simple Vdata" */ data_buf1[N_RECORDS][N_VALS_PER_REC_2]; /* for first vdata's data */ int16 rec_num; /* current record number */ intn n_blocks; t_hdf_datainfo_t vs_info; int32 status; /* Status values from routines */ intn status_n; /* Status values from routines */ /* Open the HDF file. */ fid = Hopen(APPEND_FILE, DFACC_CREATE, 0); CHECK_VOID(fid,FAIL, "Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status_n = Vstart(fid); CHECK_VOID(status_n, FAIL, "Vstart"); /* Create the first vdata */ apvsid = VSattach (fid, -1, "w"); CHECK_VOID(apvsid, FAIL, "VSattach"); vs1_ref = VSQueryref(apvsid); CHECK_VOID(vs1_ref, FAIL, "VSQueryref:apvsid"); status = VSdetach (apvsid); CHECK_VOID(status, FAIL, "VSdetach"); apvsid = VSattach (fid, vs1_ref, "w"); CHECK_VOID(apvsid, FAIL, "VSattach"); /* Set name and class name of the vdata. */ status = VSsetname (apvsid, APPENDABLE_VD); CHECK_VOID(status, FAIL, "VSsetname"); status = VSsetclass (apvsid, LINKED_BLOCK); CHECK_VOID(status, FAIL, "VSsetclass"); n_blocks = VSgetdatainfo(apvsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 0, "VSgetdatainfo"); /* Introduce each field's name, data type, and order. This is the first part in defining a field. */ status_n = VSfdefine (apvsid, FIELD1_NAME, DFNT_INT32, ORDER_1); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (apvsid, FIELD2_NAME, DFNT_INT32, ORDER_2); CHECK_VOID(status_n, FAIL, "VSfdefine"); status_n = VSfdefine (apvsid, FIELD3_NAME, DFNT_INT32, ORDER_3); CHECK_VOID(status_n, FAIL, "VSfdefine"); /* Finalize the definition of the fields. */ status_n = VSsetfields (apvsid, FIELD_NAME_LIST); CHECK_VOID(status_n, FAIL, "VSsetfields"); /* * Buffer the data by the record for fully interlaced mode. Note that the * first three elements contain the three values of the first field, the * fourth element contains the value of the second field, and the last two * elements contain the two values of the third field. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf1[rec_num][0] = 5; /* easier to inspect the bin file */ data_buf1[rec_num][1] = 5; data_buf1[rec_num][2] = 5; data_buf1[rec_num][3] = 5; data_buf1[rec_num][4] = 5; data_buf1[rec_num][5] = 5; /* data_buf1[rec_num][0] = 1 + rec_num; data_buf1[rec_num][1] = 2 + rec_num; data_buf1[rec_num][2] = 3 + rec_num; data_buf1[rec_num][3] = 10 + rec_num; data_buf1[rec_num][4] = 10; data_buf1[rec_num][5] = 65; */ } /* Set the block size and the number of blocks the first vdata */ status_n = VSsetblocksize(apvsid, BLOCK_SIZE); CHECK_VOID(status_n, FAIL, "VSsetblocksize"); status_n = VSsetnumblocks(apvsid, NUM_BLOCKS); CHECK_VOID(status_n, FAIL, "VSsetnumblocks"); /* Write the data from data_buf1 to vdata APPENDABLE_VD the first time */ n_records = VSwrite(apvsid, (uint8 *)data_buf1, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(n_records, N_RECORDS, "VSwrite"); n_blocks = VSgetdatainfo(apvsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); /* Allocate space to record the vdata's data info */ if (alloc_info(&vs_info, n_blocks) == -1) exit(1); /* Get offset and lengths of the data */ n_blocks = VSgetdatainfo(apvsid, 0, n_blocks, vs_info.offsets, vs_info.lengths); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); free_info(&vs_info); /* Get the reference number of this vdata for later use */ vs1_ref = VSQueryref(apvsid); CHECK_VOID(vs1_ref, FAIL, "VSQueryref"); /* Make another simple vdata to cause linked-blocks */ { int32 vd2_ref; for (rec_num = 0; rec_num < N_RECORDS; rec_num++) data_buf0[rec_num][0] = 10 + rec_num; /* Create and write to another very simple vdata */ vd2_ref = VHstoredata(fid, "Field 1", (const uint8 *)data_buf0, N_RECORDS, DFNT_INT32, "Another One Field One Order", "Very Simple Vdata"); } /* Make up the second batch of data for the appendable vdata */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf1[rec_num][0] = 100 + rec_num; data_buf1[rec_num][1] = 200 + rec_num; data_buf1[rec_num][2] = 300 + rec_num; data_buf1[rec_num][3] = 1000 + rec_num; data_buf1[rec_num][4] = 1000; data_buf1[rec_num][5] = 6500; } /* Write the data to vdata APPENDABLE_VD the second time */ n_records = VSwrite(apvsid, (uint8 *)data_buf1, N_RECORDS, FULL_INTERLACE); VERIFY_VOID(n_records, N_RECORDS, "VSwrite"); /* Detach this vdata and attach to it again, just to make sure meta-data is recorded; it may not be necessary but it doesn't hurt */ status = VSdetach (apvsid); CHECK_VOID(status, FAIL, "VSdetach"); apvsid = VSattach (fid, vs1_ref, "w"); CHECK_VOID(apvsid, FAIL, "VSattach"); /* Get the number of data blocks the vdata currently has */ n_blocks = VSgetdatainfo(apvsid, 0, 0, NULL, NULL); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); VERIFY_VOID(n_blocks, 3, "VSgetdatainfo"); /* Allocate space to record the vdata's data info */ if (alloc_info(&vs_info, n_blocks) == -1) exit(1); /* Record various info to be used in verifying data later */ vs_info.n_values = 30; vs_info.numtype = DFNT_INT32; /* Get and verify offsets and lengths of data */ n_blocks = VSgetdatainfo(apvsid, 0, n_blocks, vs_info.offsets, vs_info.lengths); CHECK_VOID(n_blocks, FAIL, "VSgetdatainfo"); { int ii; int32 check_offsets[] = {294, 556, 636}; int32 check_lengths[] = {120, 80, 40}; /* last chunk is not completely filled */ for (ii = 0; ii < n_blocks; ii++) { VERIFY_VOID(vs_info.offsets[ii], check_offsets[ii], "VSgetdatainfo offset"); VERIFY_VOID(vs_info.lengths[ii], check_lengths[ii], "VSgetdatainfo length"); } } /* Verifying data read without HDF4 library */ /* NOT YET */ /* Release memory */ free_info(&vs_info); /* Close everything */ status = VSdetach (apvsid); CHECK_VOID(status, FAIL, "Vdetach"); status = Vend(fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_append_vs */ /******************************************************************* Name: readnoHDF_char - utility routine to read and verify character data without HDF4 library Description: readnoHDF_char opens the file and reads in data at the specified offset. The read data is compared against the original data passed by caller. If any mis-match occurs, an error message will be displayed but the process will continue. Parameters: char *filename IN: name of the file int32 offset IN: where to start read data int32 length IN: how long to read the data Return value: SUCCEED/FAIL BMR - Jul 2010 ********************************************************************/ intn readnoHDF_char(const char *filename, const int32 offset, const int32 length, const char *orig_buf) { FILE *fd; /* file descriptor */ size_t readlen=0; /* number of bytes actually read */ char *readcbuf; intn ret_value = SUCCEED; /* Open the file for reading without SD API */ fd = fopen(filename, "r"); if (fd == NULL) { fprintf(stderr, "readnoHDF_char: unable to open file %s", filename); ret_value = FAIL; } /* Forward to the position of the first block of data */ if (fseek(fd, (off_t)offset, SEEK_SET) == -1) { fprintf(stderr, "readnoHDF_char: unable to seek offset %d\n", (int)offset); ret_value = FAIL; } /* Allocate buffers for SDS' data */ readcbuf = (char *) HDmalloc(length * sizeof(char)); if (readcbuf == NULL) { fprintf(stderr, "readnoHDF_char: allocation readcbuf failed\n"); ret_value = FAIL; } /* Read in this block of data */ readlen = fread((void*)readcbuf, 1, length, fd); if (readlen > 0) { /* Compare data read without HDF4 lib against the original buffer */ if (HDstrncmp(readcbuf, orig_buf, readlen) != 0) fprintf(stderr, "Failure: non-HDF reading got different values than written values\n >>> written = %s\n >>> read = %s\n", orig_buf, readcbuf); } HDfree(readcbuf); /* Close the file */ if (fclose(fd) == -1) { fprintf(stderr, "readnoHDF_char: unable to close file %s", filename); ret_value = FAIL; } return ret_value; } /******************************************************************* Name: get_annot_datainfo - utility routine to get datainfo of an annotation Description: get_annot_datainfo gets access to each annotation, then attempts to get the offset/length of its data. If successful, increment the data info count and eventually returns that number to caller. If failure occurs, simply return FAIL and all the previous data info will be discarded by the caller. Parameters: int32 an_id IN: annotation ID ann_type annot_type IN: type of the annotations int32 num_anns IN: number of annotations of the specified type, currently only 1, but will be adjusted after the last parameter become arrays of strings t_ann_info_t *ann_info OUT: structure that holds ann data info intn ann_info_num IN: indicates where in ann_info to start storing info char* ann_text IN: text of the annotation (this will be changed to array of strings when time permits) Return value: The number of annotations whose data info is successfully retrieved and stored in ann_info or FAIL if failure occurs. ********************************************************************/ intn get_annot_datainfo(int32 an_id, ann_type annot_type, int32 num_anns, t_ann_info_t *ann_info, intn ann_info_num, char* ann_text) { int32 ann_id, ann_index; intn status_n, ret_value = 0; /* Get the annotation. */ for (ann_index = 0; ann_index < num_anns; ann_index++) { /* Get the identifier of the current annotation. */ ann_id = ANselect (an_id, ann_index, annot_type); CHECK(ann_id, FAIL, "ANselect"); /* Get annotation's data info. */ status_n = ANgetdatainfo(ann_id, &ann_info[ann_info_num].offset, &ann_info[ann_info_num].length); CHECK(status_n, FAIL, "ANgetdatainfo"); /* Store annotation text for later checking against data read from the file without HDF4 library */ HDstrcpy(ann_info[ann_info_num].anntext, ann_text); /* Terminate access to the current annotation. */ status_n = ANendaccess (ann_id); CHECK(status_n, FAIL, "ANendaccess"); /* Number of annotations whose datainfo is retrieved */ ret_value++; } return(ret_value); } /* get_annot_datainfo */ /**************************************************************************** Name: test_annotation() - tests getting data info of annotations Description: This routine tests getting data info of file label and description, and data label and description. - add a file label and a file description - create a vgroup then add a data label and a data description to it - use the utility routine get_annot_datainfo to record the offset, length, and annotation text - use utility routine readnoHDF_char to read the annotation text without the use of the HDF4 library and verify the correctness of the read data Todo 2: Should add more annotations so there will be multiple annots for an object or file. get_annot_datainfo needs to be fixed to accommodate this. BMR - Aug 2010 NOTE: It is near the end of H4 Mapping project and Ruth had said there were no annotation for Vgroup and Vdata, so the continuation of these tests is not that critical anymore. For SDS, SDgetanndatainfo handles annotations already. BMR - Jan 2011 ****************************************************************************/ #define ANNOT_FILE "tdatainfo_annot.hdf" /* data file */ #define VG_NAME "AN Vgroup" #define FILE_LABEL_TXT "General HDF objects" #define FILE_DESC_TXT "This is an HDF file that contains general HDF objects" #define DATA_LABEL_TXT "Common AN Vgroup" #define DATA_DESC_TXT "This is a vgroup that is used to test data annotations" static void test_annotation() { int32 fid, /* file ID */ an_id, /* AN interface ID */ file_label_id, /* file label ID */ file_desc_id, /* file description ID */ data_label_id, /* data label ID */ data_desc_id, /* data description ID */ vgroup_id; /* vgroup ID */ uint16 vgroup_tag, vgroup_ref; /* vgroup tag/ref */ t_ann_info_t ann_info[4]; /* temporary storage of annotation info */ intn status_n; /* returned status for functions returning an intn */ int32 status; /* returned status for functions returning an int32 */ /* Create the HDF file. */ fid = Hopen (ANNOT_FILE, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the AN interface. */ an_id = ANstart(fid); CHECK_VOID(an_id, FAIL, "ANstart"); /* Create and write a file label. */ file_label_id = ANcreatef(an_id, AN_FILE_LABEL); CHECK_VOID(file_label_id, FAIL, "ANcreatef"); status = ANwriteann(file_label_id, FILE_LABEL_TXT, strlen (FILE_LABEL_TXT)); CHECK_VOID(status, FAIL, "ANwriteann"); /* Create and write a file description. */ file_desc_id = ANcreatef(an_id, AN_FILE_DESC); CHECK_VOID(file_desc_id, FAIL, "ANcreatef"); status = ANwriteann(file_desc_id, FILE_DESC_TXT, strlen (FILE_DESC_TXT)); CHECK_VOID(status, FAIL, "ANwriteann"); /* Create a vgroup to add annotation to it. */ status_n = Vstart(fid); CHECK_VOID(status_n, FAIL, "Vstart"); vgroup_id = Vattach(fid, -1, "w"); CHECK_VOID(vgroup_id, FAIL, "Vattach"); status = Vsetname (vgroup_id, VG_NAME); CHECK_VOID(status, FAIL, "Vsetname"); /* Get the tag and ref number of the vgroup for ANcreate. */ vgroup_tag = (uint16) VQuerytag (vgroup_id); CHECK_VOID(vgroup_tag, 0, "VQuerytag"); vgroup_ref = (uint16) VQueryref (vgroup_id); CHECK_VOID(vgroup_ref, 0, "VQueryref"); /* Add a data label to the vgroup. */ data_label_id = ANcreate(an_id, vgroup_tag, vgroup_ref, AN_DATA_LABEL); CHECK_VOID(data_label_id, FAIL, "ANcreate"); status = ANwriteann(data_label_id, DATA_LABEL_TXT, strlen(DATA_LABEL_TXT)); CHECK_VOID(status, FAIL, "ANwriteann"); /* Add a data description to the vgroup. */ data_desc_id = ANcreate(an_id, vgroup_tag, vgroup_ref, AN_DATA_DESC); CHECK_VOID(data_desc_id, FAIL, "ANcreate"); status = ANwriteann(data_desc_id, DATA_DESC_TXT, strlen(DATA_DESC_TXT)); CHECK_VOID(status, FAIL, "ANwriteann"); /* Terminate access to each annotation. */ status_n = ANendaccess(file_label_id); CHECK_VOID(status_n, FAIL, "ANendaccess"); status_n = ANendaccess(file_desc_id); CHECK_VOID(status_n, FAIL, "ANendaccess"); status_n = ANendaccess(data_label_id); CHECK_VOID(status_n, FAIL, "ANendaccess"); status_n = ANendaccess(data_desc_id); CHECK_VOID(status_n, FAIL, "ANendaccess"); /* Teminate access to the vgroup and to the V interface. */ status = Vdetach(vgroup_id); status_n = Vend(fid); /* Terminate access to the AN interface and close the HDF file. */ status = ANend(an_id); CHECK_VOID(status, FAIL, "ANend"); status_n = Hclose (fid); CHECK_VOID(status_n, FAIL, "Hclose"); /* Open the file and read in location/size of all annotations */ { int32 ann_index, /* annotation index */ n_file_labels, /* numbers of file labels */ n_file_descs, /* numbers of file descs */ n_data_labels, /* numbers of data labels */ n_data_descs; /* numbers of data descs */ intn num_anns = 0, ann_info_num = 0; /* Open the file. */ fid = Hopen (ANNOT_FILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* Initialize the AN interface. */ an_id = ANstart(fid); CHECK_VOID(an_id, FAIL, "ANstart"); /* Get the number of data/file labels/descriptions */ status_n = ANfileinfo (an_id, &n_file_labels, &n_file_descs, &n_data_labels, &n_data_descs); CHECK_VOID(status_n, FAIL, "ANfileinfo"); VERIFY_VOID(n_file_labels, 1, "ANfileinfo"); VERIFY_VOID(n_file_descs, 1, "ANfileinfo"); VERIFY_VOID(n_data_labels, 1, "ANfileinfo"); VERIFY_VOID(n_data_descs, 1, "ANfileinfo"); /* Get access to each annotation then call ANgetdatainfo to retrieve the offset/length of the annotation data */ /* Explanation of some parameters to get_annot_datainfo: 3rd parameter - number of annotations of the specified type, currently only 1, but will adjust the last parameter to have arrays of character strings when have time. 4th parameter - ann_info_num indicates where in ann_info to start storing info */ /* AN_DATA_LABEL */ num_anns = get_annot_datainfo(an_id, AN_DATA_LABEL, 1, ann_info, ann_info_num, DATA_LABEL_TXT); CHECK_VOID(num_anns, FAIL, "get_annot_datainfo"); VERIFY_VOID(num_anns, 1, "get_annot_datainfo"); ann_info_num = ann_info_num + num_anns; /* AN_DATA_DESC */ num_anns = get_annot_datainfo(an_id, AN_DATA_DESC, 1, ann_info, ann_info_num, DATA_DESC_TXT); CHECK_VOID(num_anns, FAIL, "get_annot_datainfo"); VERIFY_VOID(num_anns, 1, "get_annot_datainfo"); ann_info_num = ann_info_num + num_anns; /* AN_FILE_LABEL */ num_anns = get_annot_datainfo(an_id, AN_FILE_LABEL, 1, ann_info, ann_info_num, FILE_LABEL_TXT); CHECK_VOID(num_anns, FAIL, "get_annot_datainfo"); VERIFY_VOID(num_anns, 1, "get_annot_datainfo"); ann_info_num = ann_info_num + num_anns; /* AN_FILE_DESC */ num_anns = get_annot_datainfo(an_id, AN_FILE_DESC, 1, ann_info, ann_info_num, FILE_DESC_TXT); CHECK_VOID(num_anns, FAIL, "get_annot_datainfo"); VERIFY_VOID(num_anns, 1, "get_annot_datainfo"); ann_info_num = ann_info_num + num_anns; /* Terminate access to the AN interface and close the HDF file. */ status = ANend(an_id); CHECK_VOID(status, FAIL, "ANend"); status_n = Hclose (fid); CHECK_VOID(status_n, FAIL, "Hclose"); /* calling readnoHDF_char to verify data without the use of HDF lib */ for (ann_index = 0; ann_index < ann_info_num; ann_index++) { /* Open the file with fopen, read data at the offset obtained and verify the values */ status_n = readnoHDF_char(ANNOT_FILE, ann_info[ann_index].offset, ann_info[ann_index].length, ann_info[ann_index].anntext); if (status_n == FAIL) fprintf(stderr, "Attempt reading data without HDF4 library failed at line %d\n", __LINE__); } } } /* test_annotation */ /**************************************************************************** Name: test_oneblock_ri() - tests non-linked-block images Description: This routine creates and writes data to images and verifies some data and data information with GRgetdatainfo. The tests include the following images: - a simple, non-compressed image - three images with RLE, Skipping-Huffman, and Deflate compression Only the non-compressed image's values are verified against the original buffer. The other three were verified by debugging, additional decompression code needed for further verification (Todo 2) Note: Incomplete, waiting for schema design BMR - Aug 2010 ****************************************************************************/ #define IMAGE_FILE "tdatainfo_images.hdf" /* data file */ #define NONCOMP_IMAGE "Image with No Compression" #define RLE_IMAGE "Image with RLE Compression" #define DEFLATE_IMAGE "Image with Deflate Compression" #define SKPHUFF_IMAGE "Image with Skphuff Compression" #define JPEG_IMAGE "Image with JPEG Compression" #define SKPHUFF_SKIPSIZE 28 #define DEFLATE_LEVEL 7 #define WIDTH 5 #define LENGTH 5 #define N_IMAGES 4 /* Convenient function to create and write to an image, used by test_oneblock_ri */ static intn make_comp_image( int32 grid, char* img_name, char start_char, /* first value in the image, for variety of data */ int32 comp_type, /* compression method */ comp_info* cinfo) /* compression parameters */ { int32 riid; /* raster image ID */ int32 dims[2]={WIDTH,LENGTH}; /* dimensions for the image */ char image0[WIDTH][LENGTH]; /* image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2]; /* stride of image data to grab */ intn ii, jj; /* indices */ intn status; /* generic return value */ intn ret_value=SUCCEED; /* Initialize data we are going to write out, each image created by this convenient function will use the same data pattern with the first value given by the caller */ for (ii = 0; ii < WIDTH; ii++) for (jj = 0; jj < LENGTH; jj++) image0[ii][jj] = start_char + jj; /* Create the image with 1 component, type char, pixel interlace, and dimension WIDTHxLENGTH */ riid = GRcreate(grid, img_name, 1, DFNT_CHAR, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); /* Set compression as instructed */ if (comp_type != COMP_CODE_NONE) { status = GRsetcompress(riid, comp_type, cinfo); CHECK(status, FAIL, "GRsetcompress"); } /* Write the entire image data out */ start[0] = start[1] = 0; stride[0] = stride[1] = 1; status = GRwriteimage(riid, start, stride, dims, image0); CHECK(status, FAIL, "GRreadimage"); /* Close the first image */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); return ret_value; } static void test_oneblock_ri() { int32 fid, grid, /* file ID and GR interface ID */ riid; /* raster image ID */ int32 offset, length; /* offset/length buffers for single block of data */ intn status; /* status returned from routines */ intn ii; /* indices */ int32 n_images, n_fattrs; comp_info cinfo; /* Compression parameters - union */ /* offsets/lengths to be used to verify offsets/lengths returned by GRgetdatainfo - confirmed by the command "od" on the hdf file */ static int32 image_data_offsets[N_IMAGES] = {309, 363, 426, 486}; static int32 image_data_lengths[N_IMAGES] = {25, 26, 29, 16}; /**************************************************************** Create a file in GR interface then create and write several images with and without compression. ****************************************************************/ /* Create the HDF file and initialize the interface. */ fid = Hopen(IMAGE_FILE, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); grid = GRstart(fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Create and write the non-compressed image to this file */ status = make_comp_image(grid, NONCOMP_IMAGE, 'n', COMP_CODE_NONE, &cinfo); /* Create and write 3 more images: RLE, Deflate, and Skipping Huffman */ /* No compression info for the RLE image */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; /* Create and write the RLE compressed image to this file, starting the data values with the letter 'r' */ status = make_comp_image(grid, RLE_IMAGE, 'r', COMP_CODE_RLE, &cinfo); /* Set the compression info for the image with Skipping Huffman method */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.skphuff.skp_size = SKPHUFF_SKIPSIZE; /* Create and write the Skipping Huffman compressed image to this file, starting the data values with the letter 's' */ status = make_comp_image(grid, SKPHUFF_IMAGE, 's', COMP_CODE_SKPHUFF, &cinfo); /* Set the compression info for the image with Deflate method */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.deflate.level = DEFLATE_LEVEL; /* Create and write the Deflate compressed image to this file, starting the data values with the letter 'd' */ status = make_comp_image(grid, DEFLATE_IMAGE, 'd', COMP_CODE_DEFLATE, &cinfo); /* Set the compression method for the image with JPEG method */ HDmemset(&cinfo, 0, sizeof(cinfo)) ; cinfo.jpeg.quality = 100; cinfo.jpeg.force_baseline = 1; /* Create and write the JPEG compressed image to this file, starting the data values with the letter 'j' - more work to be done for JPEG */ /* status = make_comp_image(grid, JPEG_IMAGE, 'j', COMP_CODE_JPEG, &cinfo); */ /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); /**************************************************************** Re-open the file to read the images and their data information ****************************************************************/ /* Re-open the file and initialize the GR interface */ fid = Hopen (IMAGE_FILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); grid = GRstart (fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Get the number of images in the file */ status = GRfileinfo(grid, &n_images, &n_fattrs); CHECK_VOID(status, FAIL, "GRfileinfo"); VERIFY_VOID(n_images, N_IMAGES, "GRfileinfo"); /* Open each image then get and verify its data information. Note that currently, the offsets and lengths are obtained from debugging and the command od on the file */ for (ii = 0; ii < n_images; ii++) { riid = GRselect(grid, ii); CHECK_VOID(riid, FAIL, "GRselect"); status = GRgetdatainfo(riid, 0, 1, &offset, &length); CHECK_VOID(status, FAIL, "GRgetdatainfo"); VERIFY_VOID(offset, image_data_offsets[ii], "GRgetdatainfo"); VERIFY_VOID(length, image_data_lengths[ii], "GRgetdatainfo"); /* Only verify data of the first image, which has non-compressed data. */ if (ii == 0) { intn jj, kk; char buffer[WIDTH][LENGTH], check_image[WIDTH*LENGTH]; for (kk = 0; kk < WIDTH; kk++) for (jj = 0; jj < LENGTH; jj++) buffer[kk][jj] = 'n' + jj; /* Work around to pass check_image into readnoHDF_char w/o warning*/ HDmemcpy(check_image, buffer, WIDTH*LENGTH); /* Open the file with fopen, read data at the offset obtained and verify the values */ status = readnoHDF_char(IMAGE_FILE, offset, length, check_image); if (status == FAIL) fprintf(stderr, "Attempt reading data without HDF4 library failed at line %d\n", __LINE__); } /* Close the image */ status = GRendaccess(riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /* for n_images */ /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } /* end test_oneblock_ri */ #define IMAGE_DF_FILE "tdatainfo_dfri.hdf" /* data file for DFR APIs */ #define N_DF_IMAGES 2 /* number of DF images in the file, 1 RI8 & 1 RI24 */ static void test_dfr8_24() { int32 fid, grid, /* file ID and GR interface ID */ riid; /* raster image ID */ int32 offset, length; /* offset/length buffers for single block of data */ intn status; /* status returned from routines */ intn ii, jj; /* indices */ int32 n_images, n_fattrs; char buf[WIDTH][LENGTH][3]; /* offsets/lengths to be used to verify offsets/lengths returned by GRgetdatainfo - confirmed by the command "od" on the hdf file */ static int32 image_data_offsets[N_IMAGES] = {294, 1132}; static int32 image_data_lengths[N_IMAGES] = {30, 75}; /* Initialize the 8-bit image array */ static uint8 raster_data[WIDTH][LENGTH] = {{1, 2, 3, 4, 5}, {5, 4, 3, 2, 1}, {1, 2, 3, 4, 5}, {5, 4, 3, 2, 1}, {6, 4, 2, 0, 2}}; /* Write the 8-bit raster image to file */ status = DFR8putimage(IMAGE_DF_FILE, raster_data, WIDTH, LENGTH, COMP_RLE); /* Initialize the 24-bit image array */ for (ii = 0; ii < WIDTH; ii++) for (jj = 0; jj < LENGTH; jj++) { buf[ii][jj][0] = buf[ii][jj][1] = buf[ii][jj][2] = (char)(ii + jj); } /* Set interlace for the 24-bit RI */ status = DF24setil(DFIL_PIXEL); /* Make sure that no compression is being used - the variable Grcompr is global in dfgr.c so its value is inherited from other tests in the lib and causes this image to be compressed with JPEG unintentionally. We want to be able to see the data to verify it with "od" */ status = DF24setcompress(COMP_NONE, NULL); /* Write the 24-bit raster image to file */ status = DF24addimage(IMAGE_DF_FILE, &(buf[0][0][0]), WIDTH, LENGTH); /**************************************************************** Re-open the file to read the images and their data information ****************************************************************/ /* Re-open the file and initialize the GR interface */ fid = Hopen (IMAGE_DF_FILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); grid = GRstart (fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Get the number of images in the file */ status = GRfileinfo(grid, &n_images, &n_fattrs); CHECK_VOID(status, FAIL, "GRfileinfo"); VERIFY_VOID(n_images, N_DF_IMAGES, "GRfileinfo"); /* Open each image then get and verify its data information. Note that currently, the offsets and lengths are obtained from debugging and the command od on the file */ for (ii = 0; ii < n_images; ii++) { uintn info_count = 0; riid = GRselect(grid, ii); CHECK_VOID(riid, FAIL, "GRselect"); /* Get the number of data blocks and verify; should be 1 */ info_count = GRgetdatainfo(riid, 0, 0, NULL, NULL); CHECK_VOID(info_count, FAIL, "GRgetdatainfo"); VERIFY_VOID(info_count, 1, "GRgetdatainfo"); /* Get offset/length of the image and verify with pre-determined values */ info_count = GRgetdatainfo(riid, 0, info_count, &offset, &length); CHECK_VOID(info_count, FAIL, "GRgetdatainfo"); VERIFY_VOID(offset, image_data_offsets[ii], "GRgetdatainfo"); VERIFY_VOID(length, image_data_lengths[ii], "GRgetdatainfo"); /* Close the image */ status = GRendaccess(riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /* for n_images */ /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_dfr8_24 */ #if 0 /* clang does not like CHECK_VOID which does not return any value. */ /* So, coding is wrong but this function is not used at all.*/ /* So, screen it out for now. -AKC 2013/01/18 */ /* intn check_dds(char *fname, char *msg) */ intn check_dds(int32 grid, char *msg) { intn n_pals = 0; hdf_ddinfo_t *palinfo_array = NULL; uint8 *inbuf; intn status; /* status returned from routines */ intn ii, jj; /* indices */ n_pals = 0; n_pals = GRgetpalinfo(grid, 0, NULL); CHECK_VOID(n_pals, FAIL, "GRgetpalinfo"); palinfo_array = (hdf_ddinfo_t *) HDmalloc(n_pals * sizeof(hdf_ddinfo_t)); CHECK_ALLOC(palinfo_array, "palinfo_array", "test_getpalinfo"); n_pals = GRgetpalinfo(grid, n_pals, palinfo_array); CHECK_VOID(n_pals, FAIL, "GRgetpalinfo"); fprintf(stderr, "GRgetpalinfo return pal count = %d\n", n_pals); fprintf(stderr, "tag ref offset length \n"); for (ii = 0; ii < n_pals; ii++) fprintf(stderr, "%d %d %d %d\n", palinfo_array[ii].tag, palinfo_array[ii].ref, palinfo_array[ii].offset, palinfo_array[ii].length); return 0; } #endif /************************************************************************* test_getpalinfo() - tests GRgetpalinfo Need documentation **************************************************************************/ #define IMAGE_DFPAL_FILE "tdatainfo_pal.hdf" #define IMAGE_WITH_PAL "GR Image with Palette" #define IMAGE2_WITH_PAL "Second GR Image w/pal" #define ANO_IMAGE_NAME "ANO_IMAGE_NAME" #define LASTIMAGE_NOPAL "Last GR Image: no pal" #define N_COMPS_IMG 2 /* number of image components */ #define N_ENTRIES 256 /* number of entries in the palette */ #define N_COMPS_PAL 3 /* number of palette's components */ static void test_getpalinfo() { int32 fid, grid, /* file ID and GR interface ID */ riid, palid, /* raster image ID and palette ID */ interlace_mode, start[2], /* where to start to write for each dimension */ edges[2], /* specifies how long to write for each dimension */ dim_sizes[2]; /* sizes of the two dimensions of the image array */ uint8 image_buf[WIDTH][LENGTH][N_COMPS_IMG]; /* data of raster image */ uint8 palette_buf1[N_ENTRIES][N_COMPS_PAL]; /* for LUT mostly */ uint8 palette_buf2[N_ENTRIES][N_COMPS_PAL]; uint8 paletteA[N_ENTRIES*N_COMPS_PAL], /* for IP8 mostly */ paletteB[N_ENTRIES*N_COMPS_PAL], paletteD[N_ENTRIES*N_COMPS_PAL]; intn n_pals = 0; /* number of palettes, returned by DFPnpals and GRgetpalinfo */ hdf_ddinfo_t *palinfo_array = NULL; /* list of palette DDs */ uint8 *inbuf; /* palette data read back in */ intn ii, jj; /* indices */ intn status; /* status returned from routines */ /* Initialize the 8-bit image array */ static uint8 raster_data[WIDTH][LENGTH] = { 1, 2, 3, 4, 5, 5, 4, 3, 2, 1, 1, 2, 3, 4, 5, 5, 4, 3, 2, 1, 6, 4, 2, 0, 2 }; /* Palettes are added in the following means and order: paletteA (DFPputpal) paletteB (DFPputpal) paletteA (DFR8setpalette/DFR8addimage) palette_buf1 (GRwritelut) for image named IMAGE_WITH_PAL palette_buf2 (GRwritelut) for image named IMAGE2_WITH_PAL paletteB (DFR8setpalette/DFR8addimage) paletteD (DFPputpal) paletteB (DFPputpal) paletteD (DFPputpal) palette_buf2 (GRwritelut) for image named IMAGE2_WITH_PAL paletteD (DFPputpal) */ /* Add two palettes with DFP API. */ status = DFPputpal(IMAGE_DFPAL_FILE, paletteA, 0, "w"); CHECK_VOID(status, FAIL, "DFPputpal"); status = DFPputpal(IMAGE_DFPAL_FILE, paletteB, 0, "a"); CHECK_VOID(status, FAIL, "DFPputpal"); n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 2, "DFPputpal"); /* 2 palettes from 2 DFPputpal's */ /* Specify palette to be used with subsequent 8-bit images */ status = DFR8setpalette(paletteA); CHECK_VOID(status, FAIL, "DFR8setpalette"); /* Write an 8-bit raster image to the file */ status = DFR8addimage(IMAGE_DFPAL_FILE, raster_data, WIDTH, LENGTH, COMP_RLE); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Get the number of palettes using DFP API */ n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 3, "DFPputpal"); /* 3 palettes: 2 DFPputpal's + DFR8setpalette/DFR8addimage combo */ /* Write another 8-bit raster image to file, without calling another DFR8setpalette, that means this image is using the same palette as the previous image. This is when only 201 is created */ status = DFR8addimage(IMAGE_DFPAL_FILE, raster_data, WIDTH, LENGTH, COMP_RLE); CHECK_VOID(status, FAIL, "DFR8addimage"); /* Thus, the number of palettes returned by DFPnpals should be the same as from the last call to DFPnpals */ n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 3, "DFPputpal"); /**************************************************************** Re-open the file in GR interface, add a few images with palettes, then test GRgetpalinfo on the palettes ****************************************************************/ /* Re-open the file and initialize the GR interface */ fid = Hopen (IMAGE_DFPAL_FILE, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); grid = GRstart (fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Define the dimensions and interlace mode of the image */ dim_sizes[0] = LENGTH; dim_sizes[1] = WIDTH; interlace_mode = MFGR_INTERLACE_PIXEL; /* Create an image named IMAGE_WITH_PAL */ riid = GRcreate (grid, IMAGE_WITH_PAL, N_COMPS_IMG, DFNT_UINT8, interlace_mode, dim_sizes); /* Fill the image data buffer with values */ for (ii = 0; ii < WIDTH; ii++) { for (jj = 0; jj < LENGTH; jj++) { image_buf[ii][jj][0] = (ii + jj) + 1; image_buf[ii][jj][1] = (ii + jj) + 2; } } /* Define the size of the data to be written */ start[0] = start[1] = 0; edges[0] = WIDTH; edges[1] = LENGTH; /* Write the data in the buffer into the image array */ status = GRwriteimage (riid, start, NULL, edges, (VOIDP)image_buf); /* Initialize the palette data */ for (ii = 0; ii < N_ENTRIES; ii++) { palette_buf1[ii][0] = ii; palette_buf1[ii][1] = 0; palette_buf1[ii][2] = 8; } /* Get the identifier of the palette attached to the image IMAGE_WITH_PAL */ palid = GRgetlutid (riid, 0); /* Write data to the palette. */ status = GRwritelut (palid, N_COMPS_PAL, DFNT_UINT8, interlace_mode, N_ENTRIES, (VOIDP)palette_buf1); /* DFPnpals now sees another palette */ n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 4, "DFPputpal"); /* Terminate access to the first image */ status = GRendaccess (riid); /* Create another image named IMAGE2_WITH_PAL */ riid = GRcreate (grid, IMAGE2_WITH_PAL, N_COMPS_IMG, DFNT_UINT8, interlace_mode, dim_sizes); /* Write the data in the buffer into the image array */ status = GRwriteimage (riid, start, NULL, edges, (VOIDP)image_buf); /* Get the id of the palette attached to the image IMAGE2_WITH_PAL */ palid = GRgetlutid (riid, 0); /* Initialize the palette for second image */ for (ii = 0; ii < N_ENTRIES; ii++) { palette_buf2[ii][0] = 2; palette_buf2[ii][1] = 4; palette_buf2[ii][2] = 8; } /* Write data to the palette */ status = GRwritelut (palid, N_COMPS_PAL, DFNT_UINT8, interlace_mode, N_ENTRIES, (VOIDP)palette_buf2); /* DFPnpals now sees another palette */ n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 5, "DFPputpal"); /* Terminate access to this image */ status = GRendaccess (riid); CHECK_VOID(status, FAIL, "GRendaccess"); /* Create another image named LASTIMAGE_NOPAL */ riid = GRcreate (grid, LASTIMAGE_NOPAL, N_COMPS_IMG, DFNT_UINT8, interlace_mode, dim_sizes); CHECK_VOID(riid, FAIL, "GRcreate"); /* Write the data in the buffer into the image array */ status = GRwriteimage (riid, start, NULL, edges, (VOIDP)image_buf); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Terminate access to the image */ status = GRendaccess (riid); CHECK_VOID(status, FAIL, "GRendaccess"); status = DFR8setpalette(paletteB); CHECK_VOID(status, FAIL, "DFR8setpalette"); /* Write another 8-bit raster image to file */ status = DFR8addimage(IMAGE_DFPAL_FILE, raster_data, WIDTH, LENGTH, COMP_RLE); CHECK_VOID(status, FAIL, "DFR8addimage"); /* DFR8setpalette/DFR8addimage just added another palette, so DFPnpals now returns 6 */ n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 6, "DFPputpal"); status = DFPputpal(IMAGE_DFPAL_FILE, paletteD, 0, "a"); CHECK_VOID(status, FAIL, "DFPputpal"); n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 7, "DFPnpals"); status = DFPputpal(IMAGE_DFPAL_FILE, paletteB, 0, "a"); CHECK_VOID(status, FAIL, "DFPputpal"); status = DFPputpal(IMAGE_DFPAL_FILE, paletteD, 0, "a"); CHECK_VOID(status, FAIL, "DFPputpal"); n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 9, "DFPputpal"); /* Create another image named ANO_IMAGE_NAME. */ riid = GRcreate (grid, ANO_IMAGE_NAME, N_COMPS_IMG, DFNT_UINT8, interlace_mode, dim_sizes); CHECK_VOID(riid, FAIL, "GRcreate"); /* Write the data in the buffer into the image array. */ status = GRwriteimage (riid, start, NULL, edges, (VOIDP)image_buf); CHECK_VOID(status, FAIL, "GRwriteimage"); /* Get the identifier of the palette attached to the image ANO_IMAGE_NAME */ palid = GRgetlutid (riid, 0); CHECK_VOID(palid, FAIL, "GRgetlutid"); /* Write data to the palette. */ status = GRwritelut (palid, N_COMPS_PAL, DFNT_UINT8, interlace_mode, N_ENTRIES, (VOIDP)palette_buf2); n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 10, "DFPputpal"); status = GRendaccess (riid); status = DFPputpal(IMAGE_DFPAL_FILE, paletteD, 0, "a"); CHECK_VOID(status, FAIL, "DFPputpal"); n_pals = DFPnpals(IMAGE_DFPAL_FILE); CHECK_VOID(n_pals, FAIL, "DFPnpals"); VERIFY_VOID(n_pals, 11, "DFPputpal"); /* Assuming that this file has been written exactly in this manner, this is what the palette DDs would look like at this point: tag ref offset length 201 1 294 768 301 1 294 768 201 2 1062 768 301 2 1062 768 301 3 1860 768 201 3 1860 768 201 4 1860 768 301 4 2973 768 <- cannot be read by DFPgetpal 301 5 3806 768 <- cannot be read by DFPgetpal 301 8 4669 768 201 8 4669 768 201 5 5449 768 201 6 6217 768 301 6 6217 768 201 7 7183 768 301 7 7183 768 301 9 8016 768 <- cannot be read by DFPgetpal 201 9 8784 768 */ /* Read some palettes */ { /* Call GRgetpalinfo the first time, passing in NULL for the palette array, to get the number of palettes in the file */ n_pals = 0; n_pals = GRgetpalinfo(grid, 0, NULL); CHECK_VOID(n_pals, FAIL, "GRgetpalinfo"); palinfo_array = (hdf_ddinfo_t *) HDmalloc(n_pals * sizeof(hdf_ddinfo_t)); CHECK_ALLOC(palinfo_array, "palinfo_array", "test_getpalinfo"); n_pals = GRgetpalinfo(grid, n_pals, palinfo_array); CHECK_VOID(n_pals, FAIL, "GRgetpalinfo"); /* Read and verify data of the first palette which is pointed to by both data identifiers 201/ref and 301/ref */ /* inbuf = (uint8 *) HDmalloc(palinfo_array[0].length * sizeof(uint8)); */ inbuf = (uint8 *) HDmalloc(palinfo_array[0].length); CHECK_ALLOC(inbuf, "inbuf", "test_getpalinfo"); status = Hgetelement(fid, palinfo_array[0].tag, palinfo_array[0].ref, inbuf); CHECK_VOID(status, FAIL, "Hgetelement"); if (HDmemcmp(inbuf, paletteA, palinfo_array[0].length)!=0) fprintf(stderr, "palette data pointed by tag/ref = %d/%d at offset/length = %d/%d differs from written\n", palinfo_array[0].tag, palinfo_array[0].ref, palinfo_array[0].offset, palinfo_array[0].length); /* Read and verify data of the palette pointed to by 301/4. This is the data element that was not revealed by DFPgetpal because the tag/ref pair 201/4 is associated with a different offset */ /* inbuf = (uint8 *) HDmalloc(palinfo_array[7].length * sizeof(uint8)); */ inbuf = (uint8 *) HDmalloc(palinfo_array[7].length); CHECK_ALLOC(inbuf, "inbuf", "test_getpalinfo"); status = Hgetelement(fid, palinfo_array[7].tag, palinfo_array[7].ref, inbuf); CHECK_VOID(status, FAIL, "Hgetelement"); if (HDmemcmp(inbuf, palette_buf1, palinfo_array[7].length)!=0) fprintf(stderr, "palette data pointed by tag/ref = %d/%d at offset/length = %d/%d differs from written\n", palinfo_array[7].tag, palinfo_array[7].ref, palinfo_array[7].offset, palinfo_array[7].length); } /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } /* test_getpalinfo */ /**************************************************************************** Name: test_getntinfo() - tests getting number type's information Description: This routine simply calls Hgetntinfo with various types and verifies the information retrieved. BMR - Aug 2010 ****************************************************************************/ static void test_getntinfo() { hdf_ntinfo_t nt_info; intn status = SUCCEED; status = Hgetntinfo(DFNT_UINT8, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_UINT8"); VERIFY_CHAR_VOID(nt_info.type_name, "uint8", "Hgetntinfo DFNT_UINT8"); VERIFY_CHAR_VOID(nt_info.byte_order, "bigEndian", "Hgetntinfo DFNT_UINT8"); status = Hgetntinfo(DFNT_CHAR16, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_CHAR16"); VERIFY_CHAR_VOID(nt_info.type_name, "char16", "Hgetntinfo DFNT_CHAR16"); VERIFY_CHAR_VOID(nt_info.byte_order, "bigEndian", "Hgetntinfo DFNT_CHAR16"); /* Native */ status = Hgetntinfo(DFNT_NFLOAT32, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_NFLOAT32"); VERIFY_CHAR_VOID(nt_info.type_name, "float32", "Hgetntinfo DFNT_NFLOAT32"); VERIFY_CHAR_VOID(nt_info.byte_order, "bigEndian", "Hgetntinfo DFNT_NFLOAT32"); /* Little endian */ status = Hgetntinfo(DFNT_LFLOAT32, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_LFLOAT32"); VERIFY_CHAR_VOID(nt_info.type_name, "float32", "Hgetntinfo DFNT_LFLOAT32"); VERIFY_CHAR_VOID(nt_info.byte_order, "littleEndian", "Hgetntinfo DFNT_LFLOAT32"); /* Little endian backward compatible */ status = Hgetntinfo(DFNT_LCHAR, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_LCHAR"); VERIFY_CHAR_VOID(nt_info.type_name, "char8", "Hgetntinfo DFNT_LCHAR"); VERIFY_CHAR_VOID(nt_info.byte_order, "littleEndian", "Hgetntinfo DFNT_LCHAR"); /* Backward compatible */ status = Hgetntinfo(DFNT_DOUBLE, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_DOUBLE"); VERIFY_CHAR_VOID(nt_info.type_name, "float64", "Hgetntinfo DFNT_DOUBLE"); VERIFY_CHAR_VOID(nt_info.byte_order, "bigEndian", "Hgetntinfo DFNT_DOUBLE"); /* Native backward compatible */ status = Hgetntinfo(DFNT_NUCHAR, &nt_info); CHECK_VOID(status, FAIL, "Hgetntinfo DFNT_NUCHAR"); VERIFY_CHAR_VOID(nt_info.type_name, "uchar8", "Hgetntinfo DFNT_NUCHAR"); VERIFY_CHAR_VOID(nt_info.byte_order, "bigEndian", "Hgetntinfo DFNT_NUCHAR"); } /* test_getntinfo */ /* Test driver for testing the public functions VSgetdatainfo, ANgetdatainfo, GRgetdatainfo, and Hgetntinfo. */ void test_datainfo() { /* Test VSgetdatainfo with data stored in one contiguous block */ test_simple_vs(); /* Test VSgetdatainfo with data might be stored in linked blocks */ test_append_vs(); /* Test ANgetdatainfo */ test_annotation(); /* Test GRgetdatainfo with images stored in one contiguous block, with and without compression */ test_oneblock_ri(); /* Test GRgetdatainfo with RI8 and RI24 */ test_dfr8_24(); /* Test GRgetpalinfo with RI8 and GR */ test_getpalinfo(); /* Test Hgetntinfo */ test_getntinfo(); } libhdf4-4.2.10/HDF_ALT/hdf/test/mgrf_sunOS.f0000644000000000000000000012445412421456623015071 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: mgrf_sunOS.f 4932 2007-09-07 17:17:23Z bmribler $ C subroutine mgrf (num_err) C C Test Program: C Tests the multi-file GR interface. C Input file: none C Output file: tmgrf.hdf C C implicit none include 'fortest.inc' integer num_err C C ---chunking and compression errors ---------- integer err_grchunk, err_grwrchunk, err_grcompress C --------------------------------------------- C character*20 myname parameter (myname = 'mgrf') integer hopen, hclose integer mgstart, mgfinfo, mgend, mgcreat, mgselct integer mgn2ndx, mggiinf, mgwrimg, mgrdimg, mgendac integer mgid2rf, mgr2idx, mgrltil, mgrimil, mggltid c integer mgwrlut, mgrdlut integer mgglinf, mgwclut, mgrclut c integer mgsattr integer mgatinf, mggattr, mgfndat integer mgscatt, mgsnatt, mggcatt, mggnatt integer mgwcimg, mgrcimg integer MFGR_INTERLACE_PIXEL, MFGR_INTERLACE_LINE, * MFGR_INTERLACE_COMPONENT parameter(MFGR_INTERLACE_PIXEL = 0, * MFGR_INTERLACE_LINE = 1, * MFGR_INTERLACE_COMPONENT = 2) integer DFACC_READ, DFACC_WRITE, DFACC_CREATE, DFACC_ALL integer DFACC_RDONLY, DFACC_RDWR, DFACC_CLOBBER parameter(DFACC_READ = 1, * DFACC_WRITE = 2, * DFACC_CREATE = 4, * DFACC_ALL = 7, * DFACC_RDONLY = 1, * DFACC_RDWR = 3, * DFACC_CLOBBER = 4) integer DFNT_INT8, DFNT_UINT8, * DFNT_INT16, DFNT_UINT16, * DFNT_INT32, DFNT_UINT32, * DFNT_INT64, DFNT_UINT64, * DFNT_INT128,DFNT_UINT128, * DFNT_CHAR8, DFNT_UCHAR8 parameter(DFNT_INT8 = 20, * DFNT_UINT8 = 21, * DFNT_INT16 = 22, * DFNT_UINT16 = 23, * DFNT_INT32 = 24, * DFNT_UINT32 = 25, * DFNT_INT64 = 26, * DFNT_UINT64 = 27, * DFNT_INT128 = 28, * DFNT_UINT128 = 29, * DFNT_CHAR8 = 4, * DFNT_UCHAR8 = 3) integer il character*80 TESTFILE character*80 IMAGE1, IMAGE2, IMAGEC, IMAGEC_2 character*80 ATNAME1, ATNAME_N, ATNAME_C character*80 ATNAME2, ATNAME2_N, ATNAME2_C character*1 CR character buf(3, 2, 2), buf1(2, 3, 2), buf2(2, 2, 3) character in(3,2,2), in1(2, 3, 2), in2(2, 2, 3) integer outbuf(4), outbuf1(4), outbuf2(4) integer inbuf(4), inbuf1(4), inbuf2(4) equivalence (outbuf, buf), (outbuf1, buf1), (outbuf2,buf2) equivalence (inbuf, in), (inbuf1, in1), (inbuf2,in2) character pal(3,256), in_pal(3,256), in_pal2(256,3) integer file_id, gr_id, ri_id, pal_id, index, index2 integer n_datasets, n_attrs, ref integer n_comp, nt integer dims(2), start(2), stride(2) integer*4 attr(5), attr2(5), attr2_n(5) character attr_c(6), attr2_c(6) character cbuf(2,3,4), icbuf(2,3,4) integer i, j, k, ret, number_failed DATA attr_c/'A','T','T','R','_','C'/ DATA cbuf/'A','B','C','D','E','F','G','H','I','J','K','L', + 'M','N','O','P','Q','R','S','T','U','V','W','X'/ call ptestban('Testing', myname) num_err = 0 TESTFILE = 'tmgrf.hdf' IMAGE1 = 'Image #1' IMAGEC = 'Image_c #1' ATNAME1 = 'Attr. #1' ATNAME_N = 'Numeric Attr. #1' ATNAME_C = 'Character Attr. #1' CR = char(10) number_failed = 0 C Initialize the arrays C Initialize the image arrays do 150 i=1, 2 do 2 j=1, 2 buf(1, j, i) = char(i+j) buf(2, j, i) = char(i+j) buf(3, j, i) = char(i+j) buf1(j, 1, i) = char(i-j) buf1(j, 2, i) = char(i-j) buf1(j, 3, i) = char(i-j) buf2(j, i, 1) = char(2*i - j) buf2(j, i, 2) = char(2*i - j) buf2(j, i, 3) = char(2*i - j) 2 continue 150 continue do 157 i=1,2 do 156 j=1,3 do 155 k=1,4 icbuf(k, j, i) = ' ' 155 continue 156 continue 157 continue C Initialize the palette array do 160 i=1, 256 do 3 j=1, 3 pal(j,i)=char(i+j) 3 continue 160 continue C Initialize the attribute do 170 i=1, 5 attr(i)=i*21 170 continue C Open the file file_id=hopen(TESTFILE, DFACC_ALL, 0) call VRFY(file_id,'hopen',number_failed) gr_id=mgstart(file_id) call VRFY(gr_id,'mgstart',number_failed) C Create an image call MESSAGE(5,'Creating an image') dims(1)=2 dims(2)=2 ri_id = mgcreat(gr_id,IMAGE1,3,DFNT_UINT8,MFGR_INTERLACE_PIXEL, * dims) call VRFY(ri_id,'mgcreat',number_failed) start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Writing image data') ret = mgwrimg(ri_id,start,stride,dims,outbuf) call VRFY(ret,'mgwrimg',number_failed) C Store a palette with the image call MESSAGE(5,'Writing palette data') pal_id = mggltid(ri_id, 0) call VRFY(pal_id,'mggltid',number_failed) ret = mgwclut(pal_id,3,DFNT_UINT8,MFGR_INTERLACE_PIXEL,256,pal) call VRFY(ret,'mgwclut',number_failed) C Store an attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgsnatt(ri_id,ATNAME1,DFNT_INT32,5,attr) call VRFY(ret,'mgsnatt',number_failed) C Store a numeric attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgsnatt(ri_id,ATNAME_N,DFNT_INT32,5,attr) call VRFY(ret,'mgsnatt',number_failed) C Store a character attribute with the image call MESSAGE(5,'Writing numeric attribute data') ret = mgscatt(ri_id,ATNAME_C,DFNT_CHAR8,6,attr_c) call VRFY(ret,'mgscatt',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C Create a character type image call MESSAGE(5,'Creating a character type image') dims(1)=2 dims(2)=2 ri_id = mgcreat(gr_id,IMAGEC,3,DFNT_CHAR8,MFGR_INTERLACE_PIXEL, * dims) call VRFY(ri_id,'mgcreat',number_failed) start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Writing character image data') ret = mgwcimg(ri_id,start,stride,dims,cbuf) call VRFY(ret,'mgwcimg',number_failed) ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C End access to the GR interface ret = mgend(gr_id) call VRFY(ret,'mgend',number_failed) C Close the file ret = hclose(file_id) call VRFY(ret,'hclose',number_failed) C Re-open the file file_id=hopen(TESTFILE, DFACC_ALL, 0) call VRFY(file_id,'hopen',number_failed) gr_id=mgstart(file_id) call VRFY(gr_id,'mgstart',number_failed) C Get info about the file call MESSAGE(5,'Getting GR file information') ret = mgfinfo(gr_id,n_datasets,n_attrs) call VRFY(ret,'mgfinfo',number_failed) C Select an image call MESSAGE(5,'Selecting an image') index = mgn2ndx(gr_id, IMAGE1) call VRFY(index,'mgn2ndx',number_failed) ri_id = mgselct(gr_id,index) call VRFY(ri_id,'mgselct',number_failed) C Get info about the image call MESSAGE(5,'Getting image information') ret = mggiinf(ri_id,IMAGE2,n_comp,nt,il,dims,n_attrs) call VRFY(ret,'mggiinf',number_failed) ref = mgid2rf(ri_id) call VRFY(ref,'mgid2rf',number_failed) index2 = mgr2idx(gr_id,ref) call VRFY(index2,'mgr2idx',number_failed) C Check image reading start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Reading image data') ret = mgrdimg(ri_id,start,stride,dims,inbuf) call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_LINE) call VRFY(ret,'mgrimil',number_failed) ret = mgrdimg(ri_id,start,stride,dims,inbuf1) call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrimil',number_failed) ret = mgrdimg(ri_id,start,stride,dims,inbuf2) call VRFY(ret,'mgrdimg',number_failed) C Check palette reading pal_id = mggltid(ri_id, 0) call VRFY(pal_id,'mggltid',number_failed) call MESSAGE(5,'Reading palette data') ret = mgglinf(pal_id,n_comp,nt,il,i) call VRFY(ret,'mgglinf',number_failed) ret = mgrclut(pal_id,in_pal) call VRFY(ret,'mgrclut',number_failed) ret = mgrltil(pal_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrltil',number_failed) ret = mgrclut(pal_id,in_pal2) call VRFY(ret,'mgrclut',number_failed) C Check attribute reading index = mgfndat(ri_id,ATNAME1) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggattr(ri_id,index,attr2) call VRFY(ret,'mggattr',number_failed) C Check numeric attr index = mgfndat(ri_id, ATNAME_N) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2_N,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggnatt(ri_id,index,attr2_n) call VRFY(ret,'mggnatt',number_failed) C Check character attr index = mgfndat(ri_id, ATNAME_C) call VRFY(index,'mgfndat',number_failed) call MESSAGE(5,'Reading attribute data') ret = mgatinf(ri_id,index,ATNAME2_C,nt,i) call VRFY(ret,'mgatinf',number_failed) ret = mggcatt(ri_id,index,attr2_c) call VRFY(ret,'mggcatt',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C Select a character image call MESSAGE(5,'Selecting a char type image') index = mgn2ndx(gr_id, IMAGEC) call VRFY(index,'mgn2ndx',number_failed) ri_id = mgselct(gr_id,index) call VRFY(ri_id,'mgselct',number_failed) C Get info about the image call MESSAGE(5,'Getting image information') ret = mggiinf(ri_id,IMAGEC_2,n_comp,nt,il,dims,n_attrs) call VRFY(ret,'mggiinf',number_failed) ref = mgid2rf(ri_id) call VRFY(ref,'mgid2rf',number_failed) index2 = mgr2idx(gr_id,ref) call VRFY(index2,'mgr2idx',number_failed) C Check image reading start(1)=0 start(2)=0 stride(1)=1 stride(2)=1 call MESSAGE(5,'Reading image data') call VRFY(ret,'mgrdimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_LINE) call VRFY(ret,'mgrimil',number_failed) ret = mgrcimg(ri_id,start,stride,dims,icbuf) call VRFY(ret,'mgrcimg',number_failed) ret = mgrimil(ri_id,MFGR_INTERLACE_COMPONENT) call VRFY(ret,'mgrimil',number_failed) C End access to the image ret = mgendac(ri_id) call VRFY(ret,'mgendac',number_failed) C End access to the GR interface ret = mgend(gr_id) call VRFY(ret,'mgend',number_failed) C Close the file ret = hclose(file_id) call VRFY(ret,'hclose',number_failed) C C GR chunking and compression tests. Added by EIP 1/13/98 C C ----Chunking test C creates the following files: C grch_no.hdf C grch_rl.hdf C grch_sk.hdf C grch_gz.hdf err_grchunk = 0 call test_grchunk(err_grchunk) if (err_grchunk .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grchunk failed********' endif C ----Chunking write/read test C creates the following files: C grchwr_no.hdf C grchwr_rl.hdf C grchwr_sk.hdf C grchwr_gz.hdf err_grwrchunk = 0 call test_grwrchunk(err_grwrchunk) if (err_grwrchunk .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grwrchunk failed********' endif C ----Compression test C C creates the following files: C gr_no.hdf C gr_rl.hdf C gr_sk.hdf C gr_gz.hdf err_grcompress = 0 call test_grcompress(err_grcompress) if (err_grcompress .ne. 0) then number_failed = number_failed + 1 print *, '*******mgrf: test_grcompress failed*******' endif C if (number_failed .eq. 0) then if (Verbosity .gt. 6) then print *, CR, CR print *, '****** ALL TESTS SUCCESSFUL ******' endif else print *, '****** ', number_failed, ' TESTS FAILED ******' endif return end subroutine test_grchunk( err_grchunk ) implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP integer MFGR_INTERLACE_PIXEL parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) parameter(NCOMP = 2, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id(N_COMP_TYPES), . file_id(N_COMP_TYPES) integer dims(2), start(2), edges(2), stride(2) integer err_grchunk integer i, j, status, il, k, i_comp, index integer flags, maxcache, nc_out character*12 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) C C---GR interface functions C integer mgstart, mgcreat, mgwrimg, mgsnatt, . mgrdimg, mgselct, mgendac, mgend C C---GR chunking functions C integer mggichnk, . mgscchnk, . mgschnk C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT16 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT16 = 22) parameter (X_LENGTH = 9, . Y_LENGTH = 4, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES), comp_type_out(N_COMP_TYPES) integer comp_prm(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) parameter (DEFLATE_LEVEL = 1, . SKPHUFF_SKP_SIZE = 2) C C---Data C integer*2 image_data(NCOMP, X_LENGTH, Y_LENGTH) integer*2 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) C C---Default pixel value C integer*2 pixel_value(2) C C---Chunking dimension arrays C integer ch_dims(2), ch_dims_out(2) C C---We will write/read to four different files corresponding to the C different compression types. C C No compresion C file(1) = 'grch_no.hdf' name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE comp_type_out(1) = 0 C C RLE compresion C file(2) = 'grch_rl.hdf' name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE comp_type_out(2) = 1 C C Adaptive Huffman compresion C file(3) = 'grch_sk.hdf' name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF comp_type_out(3) = 1 C C GZIP compression C file(4) = 'grch_gz.hdf' name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE comp_type_out(4) = 1 C C Data initialization C do 30 j = 1, Y_LENGTH do 20 i = 1, X_LENGTH do 10 k = 1, NCOMP image_data(k, i, j) = i + j - 1 10 continue 20 continue 30 continue C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C---Define chunk dimensions C ch_dims(1) = X_CH_LENGTH ch_dims(2) = Y_CH_LENGTH C C Main loop through different compression types C do 1000 i_comp=1, N_COMP_TYPES C C Create and open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_CREATE, 0) C C Initiate the GR interface. C gr_id(i_comp) = mgstart(file_id(i_comp)) C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id(i_comp), name(i_comp), NCOMP, . DFNT_INT16, il, dims) C C---Set pixel value C pixel_value(1) = 0 pixel_value(2) = 0 C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT16, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C---Define chunked GR C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL status = mgschnk (ri_id(i_comp), ch_dims, . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgschnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C---Set chunk cache to hold maximum of 3 chunks C maxcache = 3 flags = 0 status = mgscchnk (ri_id(i_comp), maxcache, flags) if(status .ne. 3) then print *, 'mgscchnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Define the location, pattern, and size of the data set C that will be written to. start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C Write the stored data to the image array. status = mgwrimg(ri_id(i_comp), start, stride, edges, image_data) if(status .ne. 0) then print *, 'mgwrimg failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 1000 continue do 2000 i_comp=1, N_COMP_TYPES C C Open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_READ, 0) if(status .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Initiate the GR interface and select first data set. C gr_id(i_comp) = mgstart(file_id(i_comp)) if(status .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif index = 0 ri_id(i_comp) = mgselct(gr_id(i_comp), index) if(status .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Read the stored data to the image array. C status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(image_data(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grchunk = err_grchunk +1 endif 40 continue 50 continue 60 continue C C Check chunking info C status = mggichnk(ri_id(i_comp), ch_dims_out, . nc_out) if(status .ne. 0) then print *, 'mggichnk failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif if (comp_type_out(i_comp) .ne. nc_out) then print *, 'mggichnk returns wrong compression type for', . i_comp, '-th data set' err_grchunk = err_grchunk + 1 endif if ( (ch_dims(1) .ne. ch_dims_out(1)) .or. . (ch_dims(2) .ne. ch_dims_out(2))) then print *, 'mggichnk returns wrong chunk dimensions for', . i_comp, '-th data set' err_grchunk = err_grchunk + 1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grchunk = err_grchunk +1 endif 2000 continue return end C C GR compression test C subroutine test_grcompress( err_grcompress ) implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) integer MFGR_INTERLACE_PIXEL parameter(NCOMP = 2, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id(N_COMP_TYPES), . file_id(N_COMP_TYPES) integer dims(2), start(2), edges(2), stride(2) integer i, j, k, status, il, i_comp, index integer err_grcompress character*12 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) C C---GR interface functions C integer mgstart, mgcreat, mgwrimg, mgn2ndx, . mgsnatt, . mgrdimg, mgselct, mgendac, mgend C C---GR compression function C integer mgscompress C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT16 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT16 = 22) parameter (X_LENGTH = 9, . Y_LENGTH = 4, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES) integer comp_prm(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) parameter (DEFLATE_LEVEL = 1, . SKPHUFF_SKP_SIZE = 2) C C---Data C integer*2 image_data(NCOMP, X_LENGTH, Y_LENGTH) integer*2 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) C C---Default pixel value C integer*2 pixel_value(2) C C---We will write/read to four different files corresponding to the C different compression types. C C No compresion C file(1) = 'gr_no.hdf' name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE C C RLE compresion C file(2) = 'gr_rl.hdf' name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE C C Adaptive Huffman compresion C file(3) = 'gr_sk.hdf' name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF C C GZIP compression C file(4) = 'gr_gz.hdf' name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE C C Data initialization C do 30 j = 1, Y_LENGTH do 20 i = 1, X_LENGTH do 10 k = 1, NCOMP image_data(k, i, j) = i + j - 1 10 continue 20 continue 30 continue C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C Main loop through different compression types C do 1000 i_comp=1, N_COMP_TYPES C C Create and open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_CREATE, 0) if(file_id(i_comp) .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Initiate the GR interface. C gr_id(i_comp) = mgstart(file_id(i_comp)) if(gr_id(i_comp) .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id(i_comp), name(i_comp), NCOMP, . DFNT_INT16, il, dims) if(ri_id(i_comp) .eq. -1) then print *, 'mgcreat failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C---Set pixel value C pixel_value(1) = 0 pixel_value(2) = 0 C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT16, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C---Set compression C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL status = mgscompress (ri_id(i_comp), . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgscompress failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Define the location, pattern, and size of the data set C that will be written to. start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 C Write the stored data to the image array.. status = mgwrimg(ri_id(i_comp), start, stride, edges, image_data) if(status .ne. 0) then print *, 'mgwrimg failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif 1000 continue do 2000 i_comp=1, N_COMP_TYPES C C Open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_READ, 0) if(file_id(i_comp) .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Initiate the GR interface and select first data set. C gr_id(i_comp) = mgstart(file_id(i_comp)) if(gr_id(i_comp) .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif index = mgn2ndx(gr_id(i_comp), name(i_comp)) if(index .eq. -1) then print *, 'mgn2ndx failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif ri_id(i_comp) = mgselct(gr_id(i_comp), index) if(ri_id(i_comp) .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Read the stored data to the image array. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(image_data(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grcompress = err_grcompress +1 endif 40 continue 50 continue 60 continue C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grcompress = err_grcompress +1 endif 2000 continue return end subroutine test_grwrchunk( err_grwrchunk ) C C---This subroutine tests GR write/read functions C implicit none integer N_COMP_TYPES, N_COMP_ARG, NCOMP integer MFGR_INTERLACE_PIXEL parameter(N_COMP_TYPES = 4, N_COMP_ARG =1) parameter(NCOMP = 3, MFGR_INTERLACE_PIXEL = 0) integer ri_id(N_COMP_TYPES), . gr_id(N_COMP_TYPES), . file_id(N_COMP_TYPES) integer dims(2), start(2), edges(2), stride(2) integer err_grwrchunk integer i, j, status, il, k, i_comp, index character*13 file(N_COMP_TYPES) character*12 name(N_COMP_TYPES) C C---GR interface functions C integer mgstart, mgcreat, mgsnatt, . mgrdimg, mgselct, mgendac, mgend C C---GR chunking functions C integer mgwchnk, . mgrchnk, . mgschnk C integer hopen, hclose integer DFACC_CREATE, . DFACC_READ, . DFACC_WRITE integer DFNT_INT16 integer X_LENGTH, Y_LENGTH integer X_CH_LENGTH, Y_CH_LENGTH parameter (DFACC_CREATE = 4, . DFACC_READ = 1, . DFACC_WRITE = 2) parameter (DFNT_INT16 = 22) parameter (X_LENGTH = 6, . Y_LENGTH = 10, . X_CH_LENGTH = 3, . Y_CH_LENGTH = 2) C C---Compression types and parameters arrays C integer comp_type(N_COMP_TYPES), comp_type_out(N_COMP_TYPES) integer comp_prm(N_COMP_ARG) C C---Compression parameters C integer COMP_CODE_NONE, . COMP_CODE_RLE, . COMP_CODE_SKPHUFF, . COMP_CODE_DEFLATE, . SKPHUFF_SKP_SIZE, . DEFLATE_LEVEL parameter(COMP_CODE_NONE = 0, . COMP_CODE_RLE = 1, . COMP_CODE_SKPHUFF = 3, . COMP_CODE_DEFLATE = 4) parameter (DEFLATE_LEVEL = 1, . SKPHUFF_SKP_SIZE = 2) C C---Data C integer*2 chunk11(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*2 chunk21(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*2 chunk52(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*2 chunk52_out(NCOMP* X_CH_LENGTH*Y_CH_LENGTH) integer*2 data_org(NCOMP* X_LENGTH*Y_LENGTH) integer*2 data_org1(30) integer*2 data_org2(30) integer*2 data_org3(30) integer*2 data_org4(30) integer*2 data_org5(30) integer*2 data_org6(30) integer*2 image_data_out(NCOMP,X_LENGTH,Y_LENGTH) integer*2 data_arr(NCOMP,X_LENGTH,Y_LENGTH) C C---Those statemnets were created for SunOS since the C compiler does not support multiple continuation lines C needed for data initilization in DATA statement. C This file should be used only on SunOS and C should be deleted from CVS as soon as we drop SunOS support. C EP 5/5/99 C equivalence (data_org(1), data_arr(1,1,1)) equivalence (data_org(1), data_org1(1)) equivalence (data_org(31), data_org2(1)) equivalence (data_org(61), data_org3(1)) equivalence (data_org(91), data_org4(1)) equivalence (data_org(121), data_org5(1)) equivalence (data_org(151), data_org6(1)) C C---Default pixel value C integer*2 pixel_value(3) C C---Chunking dimension arrays C integer ch_dims(2) C C---We will write/read to four different files corresponding to the C different compression types. C C No compresion C file(1) = 'grchwr_no.hdf' name(1) = 'Nocomp_data' comp_type(1) = COMP_CODE_NONE comp_type_out(1) = 0 C C RLE compresion C file(2) = 'grchwr_rl.hdf' name(2) = 'Rlcomp_data' comp_type(2) = COMP_CODE_RLE comp_type_out(2) = 1 C C Adaptive Huffman compresion C file(3) = 'grchwr_sk.hdf' name(3) = 'Hucomp_data' comp_type(3) = COMP_CODE_SKPHUFF comp_type_out(3) = 1 C C GZIP compression C file(4) = 'grchwr_gz.hdf' name(4) = 'Gzcomp_data' comp_type(4) = COMP_CODE_DEFLATE comp_type_out(4) = 1 C C Data initialization C data chunk11 / 110, 111, 112, 120, 121, 122, . 130, 131, 132, 140, 141, 142, . 150, 151, 152, 160, 161, 162/ data chunk21 / . 210, 211, 212, 220, 221, 222, . 230, 231, 232, 240, 241, 242, . 250, 251, 252, 260, 261, 262 . / data chunk52 / . 1010, 1011, 1012, 1020, 1021, 1022, . 1030, 1031, 1032, 1040, 1041, 1042, . 1050, 1051, 1052, 1060, 1061, 1062 . / data data_org1 . / 110, 111, 112, 120, 121, 122, . 210, 211, 212, 220, 221, 222, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0 / data data_org2 . / 130, 131, 132, 140, . 141, 142, 230, 231, 232, 240, 241, 242, . 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0 / data data_org3 . / 150, 151, 152, 160, 161, 162, 250, 251, . 252, 260, 261, 262, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data data_org4 . / 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 1010, 1011, 1012, 1020, 1021, 1022 / data data_org5 . / 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 1030, 1031, 1032, 1040, 1041, 1042/ data data_org6 . / 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, . 0, 1050, 1051, 1052, 1060, 1061, 1062 / C C Initialize compression argument array C do 35 i = 1, N_COMP_ARG comp_prm(i) = 0 35 continue C C---Define chunk dimensions C ch_dims(1) = Y_CH_LENGTH ch_dims(2) = X_CH_LENGTH C C Main loop through different compression types C do 1000 i_comp=1, N_COMP_TYPES C C Create and open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_CREATE, 0) C C Initiate the GR interface. C gr_id(i_comp) = mgstart(file_id(i_comp)) C Define the number of components and dimensions of the image. il = MFGR_INTERLACE_PIXEL dims(1) = X_LENGTH dims(2) = Y_LENGTH C Create the data set. ri_id(i_comp) = mgcreat(gr_id(i_comp), name(i_comp), NCOMP, . DFNT_INT16, il, dims) C C---Set pixel value C pixel_value(1) = 0 pixel_value(2) = 0 pixel_value(3) = 0 C C---Fill the image array with the default pixel value C status = mgsnatt(ri_id(i_comp), 'FillValue', DFNT_INT16, . ncomp, pixel_value) if(status .ne. 0) then print *, 'mgsnatt failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C---Define chunked GR C if (i_comp. eq. 3) comp_prm(1) = SKPHUFF_SKP_SIZE if (i_comp. eq. 4) comp_prm(1) = DEFLATE_LEVEL status = mgschnk (ri_id(i_comp), ch_dims, . comp_type(i_comp),comp_prm) if(status .ne. 0) then print *, 'mgschnk failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 1 start(2) = 1 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk11) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, first chunk' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 2 start(2) = 1 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk21) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, second chunk' err_grwrchunk = err_grwrchunk +1 endif C C Define the location of the first chunk C that will be written to. start(1) = 5 start(2) = 2 C Write the stored data to the image array. status = mgwchnk(ri_id(i_comp), start, chunk52) if(status .ne. 0) then print *, 'mgwchnk failed for', i_comp, . '-th data set, third chunk' err_grwrchunk = err_grwrchunk +1 endif C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif 1000 continue do 2000 i_comp=1, N_COMP_TYPES C C Open the file. C file_id(i_comp) = hopen(file(i_comp), DFACC_READ, 0) if(status .eq. -1) then print *, 'hopen failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Initiate the GR interface and select first data set. C gr_id(i_comp) = mgstart(file_id(i_comp)) if(status .eq. -1) then print *, 'mgstart failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif index = 0 ri_id(i_comp) = mgselct(gr_id(i_comp), index) if(status .eq. -1) then print *, 'mgselct failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Read the stored data to the image array. C start(1) = 0 start(2) = 0 edges(1) = X_LENGTH edges(2) = Y_LENGTH stride(1) = 1 stride(2) = 1 status = mgrdimg(ri_id(i_comp), start, stride, edges, . image_data_out) if(status .ne. 0) then print *, 'mgrdimg failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C--- Compare the data we read with the original data C do 60 j = 1, Y_LENGTH do 50 i = 1, X_LENGTH do 40 k = 1, ncomp if(data_arr(k, i, j).ne.image_data_out(k,i,j)) then print *, 'data is wrong' err_grwrchunk = err_grwrchunk +1 endif 40 continue 50 continue 60 continue C C--- Read the third chunk back and compare it with original data. C start(1) = 5 start(2) = 2 status = mgrchnk(ri_id(i_comp), start, chunk52_out) if(status .ne. 0) then print *, 'mgrchnk failed for', i_comp, . '-th data set, third chunk' err_grwrchunk = err_grwrchunk +1 endif do 401 j = 1, NCOMP*X_CH_LENGTH*Y_CH_LENGTH if(chunk52(j).ne.chunk52_out(j)) then print *, 'read chunk''s data is wrong' err_grwrchunk = err_grwrchunk +1 endif 401 continue C C Terminate access to the array. C status = mgendac(ri_id(i_comp)) if(status .ne. 0) then print *, 'mgendac failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Terminate access to the GR interface. C status = mgend(gr_id(i_comp)) if(status .ne. 0) then print *, 'mgend failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif C C Close the file. C status = hclose(file_id(i_comp)) if(status .ne. 0) then print *, 'hclose failed for', i_comp, '-th data set' err_grwrchunk = err_grwrchunk +1 endif 2000 continue return end libhdf4-4.2.10/HDF_ALT/hdf/test/fortestF.f0000644000000000000000000001662212421456623014600 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: fortestF.f 6036 2014-01-20 17:28:01Z acheng $ C Interface to invoke tests for HDF Fortran interfaces. Program main implicit none include 'fortest.inc' integer nerror, retcode character cmd*15, test*30 integer majorv, minorv, releaseno character*80 relstr integer hglibver external hglibver C Default to cleanup *.hdf files and set verbosity to default value CleanUp = .TRUE. CleanUpCMD = 'rm -f *.hdf' Verbosity = VERBO_DEF nerror = 0 C print *, '===========================================' print *, 'HDF Library Fortran Interface Tests Started' print *, '===========================================' C C Show library version. retcode = hglibver(majorv, minorv, releaseno, relstr) if (retcode .eq. -1) then print *, '*** hglibver failed ***' nerror = nerror + 1 else print 101, majorv, minorv, releaseno, relstr endif C C assume majorv, minorv, releaseno are single digit numbers 101 format('Built with HDF Library Version: ',I1,'.',I1,'.',I1,/A80) C Open command file call opencmdf(retcode) if (retcode .ne. 0) then nerror = nerror + 1 else C C read and run one test command at a time call getcmd(cmd, test, retcode) do while (retcode .eq. 0) call runcmd(cmd, test, retcode) if (retcode .ne. 0) nerror = nerror + 1 call getcmd(cmd, test, retcode) end do end if print *, '=====================================' if (nerror .ne. 0) then print*, nerror, ' Fortran test(s) failed' else print*, 'All Fortran Interface Tests Passed' endif print *, '=====================================' if (CleanUp) call Hsystem(CleanUpCMD) end C C Open the test command file C This is more general than reading from standard input file C which is often system dependent. C Retcode: 0 if everything is fine, else -1 C subroutine opencmdf(retcode) implicit none include 'fortest.inc' integer retcode retcode = 0 open(cmdf, FILE=cmdfilename, status='UNKNOWN',err=100) return 100 call MESSAGE(VERBO_NONE, 'failed to open command file') retcode = -1 return end C Get a test command. C Currently taking it from standard input. C If EOF encounters, set retcode = 1. Else retcode = 0. C subroutine getcmd(cmd, test, retcode) implicit none include 'fortest.inc' character*(*) cmd, test integer retcode character*120 inline integer linelen, i retcode = 0 read(cmdf,11,END=100,err=100) inline C print *, 'inline=', inline linelen = len(inline) i = index(inline, ' ') if (i .le. 0) i = linelen+1 cmd = inline(1 : i - 1) do while (i .le. linelen) if (inline(i:i) .eq. ' ') then i = i + 1 else goto 50 endif end do 50 test = inline(i:linelen) if (Verbosity .ge. VERBO_HI) then print * , 'cmd=', cmd, ', test=', test endif retcode = 0 return 100 close(cmdf) retcode = 1 return C 11 format(A120) end C Run the Fortran test command. C subroutine runcmd(cmd, param, retcode) implicit none include 'fortest.inc' character*(*) cmd, param integer retcode C retcode = 0 C Parse command types C C Verbosity level command if (cmd .EQ. 'Verbosity' .OR. cmd .EQ. 'verbosity') then Verbosity = index('0123456789', param(1:1)) - 1 return endif C Cleanup command C If param is Yes/No, it directs to delete the *.hdf or not. C If param is not Yes/No, it represents the system command to delete C the *.hdf. (NB: specifying system command does not imply C to Cleanup, i.e., it does not current CleanUp setting. C if (cmd .EQ. 'Cleanup' .OR. cmd .EQ. 'cleanup') then if (param .EQ. 'No' .OR. param .EQ. 'no') then CleanUp = .FALSE. else if (param .EQ. 'Yes' .OR. param .EQ. 'yes') then CleanUp = .TRUE. else CleanUpCMD = param endif return endif C print *, '=====================================' C print *, cmd, param C print *, '=====================================' C Skip command if (cmd .EQ. 'Skip' .OR. cmd .EQ. 'skip') then call ptestban('Skipping', param) return endif if (cmd .NE. 'Test' .AND. cmd .NE. 'test') then print *, 'Unknown Command: ', cmd, param print *, 'Try one of "Skip", "Test", "Verbosity" or "Cleanup"' retcode = -1 return endif C Test command if (param .EQ. 'slab') then call slabwf(retcode) return endif if (param .EQ. 'r24') then call t24f(retcode) return endif if (param .EQ. 'an') then call tanf(retcode) return endif if (param .EQ. 'anfile') then call tanfilef(retcode) return endif if (param .EQ. 'manf') then call manf(retcode) return endif if (param .EQ. 'mgrf') then call mgrf(retcode) return endif if (param .EQ. 'p') then call tpf(retcode) return endif if (param .EQ. 'r8') then call tr8f(retcode) return endif if (param .EQ. 'sdmms') then call tsdmmsf(retcode) return endif if (param .EQ. 'sdnmms') then call tsdnmmsf(retcode) return endif if (param .EQ. 'sdnnt') then call tsdnntf(retcode) return endif if (param .EQ. 'sdnt') then call tsdntf(retcode) return endif if (param .EQ. 'sdstr') then call tsdstrf(retcode) return endif if (param .EQ. 'vsetf') then call tvsetf(retcode) return endif if (param .EQ. 'vsetblock') then call tvsetblock(retcode) return endif if (param .EQ. 'vgroups') then call tvgroups(retcode) return endif if (param .EQ. 'vattrf') then call tvattrf(retcode) return endif if (param .EQ. 'stubs') then call tstubsf(retcode) return endif C print *, 'Unknown Command: ', cmd, param retcode = -1 return end libhdf4-4.2.10/HDF_ALT/hdf/test/litend.c0000644000000000000000000006115712421456623014263 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5210 $"; #endif /* $Id: litend.c 5210 2009-08-21 20:27:12Z brtnfld $ */ #include "tproto.h" /* Internal Variables */ #define CDIM_X 7 #define CDIM_Y 9 #define FILENAME "test_files/litend.dat" #define TMPFILE "temp.hdf" /* for those machines with imprecise IEEE<-> conversions, this should be */ /* close enough */ #define FLOAT64_FUDGE ((float64)0.00000001) static int8 cdata_i8[CDIM_Y][CDIM_X]; static uint8 cdata_u8[CDIM_Y][CDIM_X]; static int16 cdata_i16[CDIM_Y][CDIM_X]; static uint16 cdata_u16[CDIM_Y][CDIM_X]; static int32 cdata_i32[CDIM_Y][CDIM_X]; static uint32 cdata_u32[CDIM_Y][CDIM_X]; static float32 cdata_f32[CDIM_Y][CDIM_X]; static float64 cdata_f64[CDIM_Y][CDIM_X]; static VOID init_cdata(void); static VOID wrapup_cdata(void); static VOID test_little_read(void); static VOID test_little_write(void); static VOID init_cdata(void) { int i, j; for (i = 0; i < CDIM_Y; i++) for (j = 0; j < CDIM_X; j++) { cdata_i8[i][j] = (int8) (i * 10 + j); cdata_u8[i][j] = (uint8) (i * 10 + j); cdata_i16[i][j] = (int16) (i * 10 + j); cdata_u16[i][j] = (uint16) (i * 10 + j); cdata_i32[i][j] = (int32) (i * 10 + j); cdata_u32[i][j] = (uint32) (i * 10 + j); cdata_f32[i][j] = (float32) (i * 10 + j); cdata_f64[i][j] = (float64) (i * 10 + j); } /* end for */ } /* end init_cdata() */ static VOID wrapup_cdata(void) { } /* end wrapup_cdata() */ static VOID test_little_read(void) { intn rank; int32 dimsizes[2]; int32 numbertype; int8 *data_i8; uint8 *data_u8; int16 *data_i16; uint16 *data_u16; int32 *data_i32; uint32 *data_u32; float32 *data_f32; float64 *data_f64; int ret; char filename[512] = ""; char *srcdir = getenv("srcdir"); MESSAGE(5,printf("Testing Little-Endian Read Routines\n");); MESSAGE(10,printf("Testing Little-Endian INT8 Reading Routines\n");); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(FILENAME) + 1) < sizeof(filename))) { strcpy(filename, srcdir); strcat(filename, "/"); } strcat(filename, FILENAME); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for INT8 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LINT8) { fprintf(stderr, "Numbertype for INT8 data were incorrect\n"); num_errs++; } /* end if */ else { data_i8=(int8 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(int8)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_i8); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_i8,data_i8,CDIM_X*CDIM_Y*sizeof(int8))) { fprintf(stderr,"INT8 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_i8); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian UINT8 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for UINT8 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LUINT8) { fprintf(stderr, "Numbertype for UINT8 data were incorrect\n"); num_errs++; } /* end if */ else { data_u8=(uint8 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(uint8)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_u8); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_u8,data_u8,CDIM_X*CDIM_Y*sizeof(uint8))) { fprintf(stderr,"UINT8 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_u8); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian INT16 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for INT16 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LINT16) { fprintf(stderr, "Numbertype for INT16 data were incorrect\n"); num_errs++; } /* end if */ else { data_i16=(int16 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(int16)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_i16); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_i16,data_i16,CDIM_X*CDIM_Y*sizeof(int16))) { fprintf(stderr,"INT16 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_i16); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian UINT16 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for UINT16 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LUINT16) { fprintf(stderr, "Numbertype for UINT16 data were incorrect\n"); num_errs++; } /* end if */ else { data_u16=(uint16 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(uint16)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_u16); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_u16,data_u16,CDIM_X*CDIM_Y*sizeof(uint16))) { fprintf(stderr,"UINT16 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_u16); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian INT32 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for INT32 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LINT32) { fprintf(stderr, "Numbertype for INT32 data were incorrect\n"); num_errs++; } /* end if */ else { data_i32=(int32 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(int32)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_i32); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_i32,data_i32,CDIM_X*CDIM_Y*sizeof(int32))) { fprintf(stderr,"INT32 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_i32); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian UINT32 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for UINT32 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LUINT32) { fprintf(stderr, "Numbertype for UINT32 data were incorrect\n"); num_errs++; } /* end if */ else { data_u32=(uint32 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(uint32)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_u32); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_u32,data_u32,CDIM_X*CDIM_Y*sizeof(uint32))) { fprintf(stderr,"UINT32 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_u32); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian FLOAT32 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for FLOAT32 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LFLOAT32) { fprintf(stderr, "Numbertype for FLOAT32 data were incorrect\n"); num_errs++; } /* end if */ else { data_f32=(float32 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(float32)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_f32); RESULT("DFSDgetdata"); if(HDmemcmp(cdata_f32,data_f32,CDIM_X*CDIM_Y*sizeof(float32))) { fprintf(stderr,"FLOAT32 data was incorrect\n"); num_errs++; } /* end if */ HDfree((VOIDP)data_f32); } /* end else */ } /* end else */ MESSAGE(10,printf("Testing Little-Endian FLOAT64 Reading Routines\n");); ret=DFSDgetdims(filename,&rank,dimsizes,2); RESULT("DFSDgetdims"); if(dimsizes[0]!=CDIM_Y || dimsizes[1]!=CDIM_X) { fprintf(stderr, "Dimensions for FLOAT64 data were incorrect\n"); num_errs++; } /* end if */ else { ret=DFSDgetNT(&numbertype); RESULT("DFSDgetNT"); if(numbertype!=DFNT_LFLOAT64) { fprintf(stderr, "Numbertype for FLOAT64 data were incorrect\n"); num_errs++; } /* end if */ else { data_f64=(float64 *)HDmalloc((size_t)(dimsizes[0]*dimsizes[1])*sizeof(float64)); ret=DFSDgetdata(filename,rank,dimsizes,(VOIDP)data_f64); RESULT("DFSDgetdata"); #if defined CONVEXNATIVE #ifdef OLD_WAY if(Verbocity>9) { intn i; uint8 *u8_s=(uint8 *)cdata_f64, *u8_d2=(uint8 *)data_f64; printf("cdata_f64: "); for(i=0; i<80; i++) printf("%.2x ",u8_s[i]); printf("\ndata_f64: "); for(i=0; i<80; i++) printf("%.2x ",u8_d2[i]); printf("\n"); } #else /* OLD_WAY */ { intn i; float64 *cd_f64=(float64 *)cdata_f64, *d_f64=(float64 *)data_f64; for(i=0; i(cd_f64[i]+FLOAT64_FUDGE)) { fprintf(stderr,"FLOAT64 data was incorrect\n"); printf("cd_f64[%d]=%lf, d_f64[%d]=%lf\n",i,cd_f64[i],i,d_f64[i]); { intn j; uint8 *u8_s=(uint8 *)&cd_f64[i], *u8_d2=(uint8 *)&d_f64[i]; printf("cdata_f64: "); for(j=0; j #include "jpeglib.h" #include "tproto.h" #define ABS(x) ((int)(x)<0 ? (-x) : x) /************************************************************************ Name: comp_using_jpeglib() - compresses a buffer using JPEG functions Description: This routine uses functions from the JPEG library directly to compress the provided image buffer and writes the compressed image to the specified file. Return value: The number of errors occurred in this routine. Apr 11, 2011 -BMR *************************************************************************/ intn comp_using_jpeglib( char *filename, /* file to write compressed data in */ long *file_offset, /* end offset of previous data and indicating where to start writing data in this round */ int im_height, /* image's height */ int im_width, /* image's width */ int im_ncomps, /* image's number of components */ int quality, /* JPEG quality value */ uint8 *written_buffer) /* data to be compressed */ { FILE * outfile; /* target file */ JSAMPROW row_pointer[1]; /* pointer to JSAMPLE row[s] */ int row_stride; /* physical row width in image buffer */ /* JPEG object for JPEG compression parameters and pointers to working space (which is allocated as needed by the JPEG library). */ struct jpeg_compress_struct cinfo; /* This struct represents a JPEG error handler. It is declared separately * because applications often want to supply a specialized error handler * (see the second half of this file for an example). But here we just * take the easy way out and use the standard error handler, which will * print a message on stderr and call exit() if compression fails. * Note that this struct must live as long as the main JPEG parameter * struct, to avoid dangling-pointer problems. */ struct jpeg_error_mgr jerr; /* Initialize JPEG compression object */ /* We have to set up the error handler first, in case the initialization * step fails. (Unlikely, but it could happen if you are out of memory.) * This routine fills in the contents of struct jerr, and returns jerr's * address which we place into the link field in cinfo. */ cinfo.err = jpeg_std_error(&jerr); /* Initialize the JPEG compression object. */ jpeg_create_compress(&cinfo); /* Open the output file to write binary data */ if ((outfile = fopen(filename, "ab")) == NULL) { fprintf(stderr, "can't open %s\n", filename); exit(1); } /* Forward to the position to write data */ if (fseek(outfile, (off_t)*file_offset, SEEK_SET) == -1) { fprintf(stderr, "can't seek offset %d\n", (int)*file_offset); exit(1); } /* Specify output file */ jpeg_stdio_dest(&cinfo, outfile); /* Set parameters for compression */ /* Supply a description of the input image. * Four fields of the cinfo struct must be filled in: */ cinfo.image_width = im_width; /* image width and height, in pixels */ cinfo.image_height = im_height; cinfo.input_components = im_ncomps;/* # of color components per pixel */ cinfo.in_color_space = JCS_RGB; /* colorspace of input image */ /* Set default compression parameters. At least cinfo.in_color_space must be set before calling jpeg_set_defaults, since the defaults depend on the source color space */ jpeg_set_defaults(&cinfo); /* Set quality (quantization table) scaling */ jpeg_set_quality(&cinfo, quality, TRUE /* limit to baseline-JPEG values */); /* Start compressor */ /* TRUE ensures that we will write a complete interchange-JPEG file. * From JPEG: Pass TRUE unless you are very sure of what you're doing. */ jpeg_start_compress(&cinfo, TRUE); row_stride = im_width * im_ncomps;/* JSAMPLEs per row in written_buffer */ /* While there are more scan line in the buffer */ while (cinfo.next_scanline < cinfo.image_height) { /* jpeg_write_scanlines expects an array of pointers to scanlines. * Here the array is only one element long, but you could pass * more than one scanline at a time if that's more convenient. */ row_pointer[0] = &written_buffer[cinfo.next_scanline * row_stride]; (void) jpeg_write_scanlines(&cinfo, row_pointer, 1); } /* Finish compression */ jpeg_finish_compress(&cinfo); /* Get the current file offset to return */ *file_offset = ftell(outfile); /* Close the file */ fclose(outfile); /* Release JPEG compression object */ /* This is an important step since it will release a good deal of memory. */ jpeg_destroy_compress(&cinfo); return 0; } /* comp_using_jpeglib */ /*************************************************************************** Name: decomp_using_jpeglib() - decompresses a buffer using JPEG functions Description: This routine uses functions from the JPEG library directly to decompress the data read from the specified file and store the uncompressed data in the provided buffer. Return value: The number of errors occurred in this routine. Apr 11, 2011 -BMR ****************************************************************************/ intn decomp_using_jpeglib( char *filename, /* file to read compressed data from */ long file_offset, /* offset in the file to start reading */ int im_height, /* image's height */ int im_width, /* image's width */ int im_ncomps, /* image's number of components */ uint8 *read_buffer) /* buffer to store decompressed data */ { /* This struct contains the JPEG decompression parameters and pointers to * working space (which is allocated as needed by the JPEG library). */ struct jpeg_decompress_struct cinfo; /* JPEG compression info */ struct jpeg_error_mgr jerr_pub; /* JPEG error handler */ FILE * infile; /* source file */ JSAMPARRAY buffer; /* Output row buffer */ int row_stride; /* physical row width in output buffer */ uint8 *local_buf = NULL, *ptr = NULL; /* Open the output file to write binary data */ if ((infile = fopen(filename, "rb")) == NULL) { fprintf(stderr, "can't open %s\n", filename); exit(1); } /* Forward to the specified position to write data */ if (fseek(infile, (off_t)file_offset, SEEK_SET) == -1) { fprintf(stderr, "can't seek offset %d\n", (int)file_offset); exit(1); } /* Allocate local buffer to hold read values until all reading is done before copying into caller's buffer */ local_buf = HDmalloc(im_height * im_width * im_ncomps * sizeof(uint8)); CHECK_ALLOC(local_buf, "local_buf", "decomp_using_jpeglib" ); /* Set up the JPEG error routines */ cinfo.err = jpeg_std_error(&jerr_pub); /* Initialize the JPEG decompression object. */ jpeg_create_decompress(&cinfo); /* Specify input file */ jpeg_stdio_src(&cinfo, infile); /* Read file parameters */ (void) jpeg_read_header(&cinfo, TRUE); /* We can ignore the return value from jpeg_read_header since * (a) suspension is not possible with the stdio data source, and * (b) we passed TRUE to reject a tables-only JPEG file as an error. * See libjpeg.doc for more info. */ /* Start decompressor */ (void) jpeg_start_decompress(&cinfo); /* the return value is ignored here since suspension is not possible * with the stdio data source (from JPEG example) */ /* Number of values per row */ row_stride = cinfo.output_width * cinfo.output_components; /* Make a one-row-high array to read a row of values, JSAMPLEs per row */ buffer = (*cinfo.mem->alloc_sarray) ((j_common_ptr) &cinfo, JPOOL_IMAGE, row_stride, 1); ptr = local_buf; /* index into the buffer */ /* Read each scanline until all are read */ while (cinfo.output_scanline < cinfo.output_height) { /* jpeg_read_scanlines expects an array of pointers to scanlines. */ (void) jpeg_read_scanlines(&cinfo, buffer, 1); /* Saved read line to the local buffer */ memcpy(ptr, buffer[0], row_stride); ptr = ptr + row_stride; } /* Copying values from local buffer to caller's buffer after success */ memcpy(read_buffer, local_buf, im_height*im_width*im_ncomps); HDfree(local_buf); /* Finish decompression */ (void) jpeg_finish_decompress(&cinfo); /* Release JPEG decompression object */ jpeg_destroy_decompress(&cinfo); /* Close the file */ fclose(infile); return 0; } /* decomp_using_jpeglib */ libhdf4-4.2.10/HDF_ALT/hdf/test/rig.c0000644000000000000000000034330012421456623013556 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5830 $"; #endif /* $Id: rig.c 5830 2012-07-19 09:08:48Z bmribler $ */ #include "tproto.h" #define XSIZE 13 #define YSIZE 15 #define TESTFILE "tdf24.hdf" #define JPEGX 46 #define JPEGY 23 #define NCOMPS 3 #define JPEGFILE "tjpeg.hdf" #define NONHDF_JPEGFILE "tnonhdf_jpeg.hdf" static const uint8 jpeg_8bit_orig[JPEGY][JPEGX] = { {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 201, 201, 201, 200, 200, 200, 200, 200, 200, 201, 202, 204, 206, 208, 208, 206, 202, 201, 200, 200, 204, 210, 212, 214, 212, 206, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 201, 202, 204, 203, 201, 202, 200, 199, 200, 202, 202, 203, 204, 207, 210, 213, 218, 222, 209, 205, 207, 209, 212, 215, 220, 225, 203, 212, 216, 218, 221, 223, 201, 201, 200, 200, 200, 200, 201, 200, 200, 201, 201}, {200, 200, 199, 200, 200, 201, 203, 206, 207, 206, 202, 197, 193, 193, 193, 192, 193, 199, 204, 205, 210, 219, 214, 193, 213, 225, 209, 196, 206, 222, 204, 208, 211, 121, 127, 229, 206, 196, 198, 207, 211, 212, 214, 215, 211, 196}, {200, 201, 200, 200, 199, 200, 200, 198, 198, 199, 202, 207, 209, 211, 195, 180, 182, 182, 170, 111, 39, 71, 58, 64, 69, 73, 72, 82, 92, 213, 83, 73, 126, 111, 89, 92, 209, 197, 198, 201, 81, 51, 56, 55, 210, 208}, {54, 53, 54, 55, 53, 51, 56, 55, 50, 54, 53, 49, 54, 55, 64, 66, 63, 105, 78, 51, 59, 39, 49, 45, 50, 66, 58, 67, 67, 71, 73, 87, 68, 80, 94, 113, 67, 202, 194, 90, 42, 39, 59, 43, 44, 58}, {54, 52, 51, 53, 55, 56, 53, 57, 55, 57, 51, 51, 53, 50, 46, 50, 55, 51, 45, 68, 66, 63, 67, 50, 57, 38, 47, 56, 62, 65, 65, 87, 74, 110, 59, 63, 45, 47, 98, 40, 41, 199, 199, 170, 109, 43}, {198, 198, 200, 201, 199, 203, 202, 201, 199, 197, 197, 192, 190, 190, 191, 195, 202, 153, 101, 197, 61, 69, 138, 182, 154, 202, 154, 73, 76, 71, 83, 83, 150, 231, 203, 179, 49, 53, 47, 162, 208, 203, 185, 199, 203, 83}, {199, 200, 204, 202, 202, 200, 199, 197, 195, 198, 200, 202, 207, 211, 216, 219, 214, 199, 193, 192, 195, 195, 199, 205, 207, 218, 229, 196, 138, 121, 116, 213, 233, 197, 207, 211, 212, 215, 216, 216, 199, 197, 199, 201, 209, 211}, {200, 201, 201, 202, 201, 201, 201, 201, 203, 206, 206, 207, 206, 201, 202, 202, 203, 202, 203, 205, 208, 211, 214, 221, 225, 209, 211, 213, 217, 220, 224, 225, 200, 200, 200, 201, 207, 209, 202, 200, 201, 201, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 201, 202, 203, 201, 200, 200, 200, 200, 200, 200, 200, 203, 209, 212, 214, 214, 211, 203, 200, 200, 200, 200, 202, 204, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200} }; static const uint8 jpeg_8bit_j80[JPEGY][JPEGX] = { {200, 200, 200, 200, 200, 200, 200, 200, 202, 202, 201, 201, 201, 200, 200, 200, 201, 201, 200, 200, 200, 201, 202, 202, 202, 202, 201, 200, 200, 200, 200, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 199, 200, 200, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 200, 200, 201, 201, 201, 200, 200, 201, 201, 201, 200, 199, 199, 199, 199, 200, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 201, 201, 201, 201, 201, 201, 201, 201, 201, 201, 202, 202, 202, 201, 200, 199, 202, 202, 202, 202, 202, 200, 199, 198, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 201, 201, 201, 200, 200, 200, 199, 199, 200, 200, 200, 201, 201, 200, 200, 200, 200, 200, 201, 201, 201, 200, 200, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 198, 198, 198, 199, 199, 198, 198, 198, 199, 200, 201, 197, 197, 197, 198, 198, 200, 201, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 200, 200, 201, 202, 202, 203, 201, 200, 199, 198, 199, 201, 204, 205, 203, 202, 200, 199, 198, 200, 202, 203, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 201, 202, 203, 205, 207, 208, 209, 205, 203, 201, 200, 202, 205, 208, 211, 214, 211, 206, 202, 200, 200, 201, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {199, 199, 198, 199, 200, 202, 204, 205, 202, 200, 197, 198, 201, 204, 205, 205, 220, 204, 207, 222, 225, 201, 206, 213, 205, 218, 219, 224, 222, 198, 222, 208, 222, 208, 235, 201, 189, 204, 198, 202, 199, 201, 209, 192, 192, 217}, {200, 200, 199, 199, 200, 201, 202, 203, 210, 208, 205, 203, 201, 197, 191, 186, 170, 212, 216, 191, 222, 217, 218, 185, 216, 226, 200, 193, 207, 232, 193, 221, 210, 124, 127, 218, 223, 192, 197, 207, 207, 209, 210, 220, 209, 184}, {202, 201, 201, 200, 200, 200, 201, 201, 196, 197, 200, 203, 203, 200, 195, 191, 196, 180, 168, 123, 34, 66, 56, 74, 57, 83, 73, 81, 94, 221, 72, 64, 120, 119, 83, 100, 207, 190, 198, 198, 94, 44, 57, 50, 213, 215}, {54, 54, 54, 53, 53, 54, 54, 54, 49, 51, 55, 59, 62, 63, 63, 62, 54, 110, 65, 43, 69, 40, 54, 36, 53, 67, 57, 65, 66, 61, 94, 83, 83, 69, 102, 99, 64, 214, 195, 90, 28, 46, 63, 51, 43, 57}, {52, 52, 53, 54, 54, 55, 55, 55, 56, 54, 51, 48, 47, 46, 48, 49, 56, 63, 48, 72, 67, 55, 51, 65, 50, 48, 46, 70, 49, 67, 63, 86, 59, 107, 60, 73, 40, 44, 102, 36, 40, 218, 192, 165, 101, 44}, {198, 199, 200, 201, 202, 202, 202, 202, 199, 197, 194, 190, 188, 190, 194, 198, 196, 151, 88, 202, 61, 71, 148, 169, 165, 188, 139, 77, 86, 70, 81, 84, 163, 226, 206, 184, 52, 46, 48, 165, 204, 189, 179, 213, 208, 79}, {199, 200, 201, 202, 202, 201, 200, 199, 201, 203, 204, 205, 206, 209, 214, 218, 218, 198, 195, 199, 182, 201, 202, 206, 201, 228, 240, 191, 131, 121, 110, 221, 211, 208, 207, 198, 213, 231, 204, 220, 197, 211, 207, 194, 207, 213}, {201, 202, 202, 203, 202, 200, 199, 197, 199, 202, 206, 206, 204, 202, 202, 203, 205, 195, 210, 199, 211, 220, 210, 224, 224, 204, 215, 205, 227, 218, 229, 220, 203, 201, 199, 202, 206, 206, 195, 205, 203, 194, 202, 197, 210, 190}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 203, 206, 210, 213, 213, 210, 206, 203, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 198, 199, 201, 202, 202, 201, 199, 198, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 198, 197, 197, 198, 199, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 202, 201, 200, 199, 199, 200, 201, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 199, 199, 199, 199, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 198, 199, 200, 201, 201, 200, 199, 198, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 201, 201, 202, 202, 202, 202, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200} }; static const uint8 jpeg_8bit_j30[JPEGY][JPEGX] = { {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {202, 202, 202, 202, 202, 202, 202, 202, 196, 196, 197, 198, 200, 201, 202, 202, 203, 206, 220, 234, 226, 203, 192, 196, 226, 219, 212, 213, 219, 222, 219, 214, 213, 224, 225, 214, 206, 207, 207, 202, 213, 205, 195, 188, 190, 199}, {203, 203, 203, 203, 203, 203, 203, 203, 221, 219, 214, 207, 200, 193, 188, 185, 186, 206, 207, 186, 187, 214, 229, 222, 219, 205, 195, 203, 219, 221, 203, 183, 192, 141, 135, 187, 212, 183, 168, 185, 208, 218, 230, 234, 226, 209}, {203, 203, 203, 203, 203, 203, 203, 203, 207, 207, 207, 207, 207, 207, 207, 207, 170, 194, 165, 90, 57, 75, 72, 37, 99, 84, 79, 97, 124, 132, 112, 87, 128, 88, 84, 143, 202, 215, 201, 193, 67, 50, 51, 97, 167, 215}, {53, 53, 53, 53, 53, 53, 53, 53, 44, 46, 49, 53, 57, 61, 64, 66, 74, 93, 87, 54, 35, 41, 36, 17, 40, 34, 35, 49, 71, 84, 82, 75, 54, 92, 90, 63, 100, 176, 178, 120, 62, 60, 57, 54, 53, 54}, {53, 53, 53, 53, 53, 53, 53, 53, 61, 60, 57, 53, 48, 44, 41, 40, 63, 48, 53, 73, 72, 55, 64, 92, 76, 78, 75, 63, 51, 53, 70, 87, 71, 125, 117, 41, 10, 50, 67, 38, 38, 120, 193, 179, 97, 32}, {203, 203, 203, 203, 203, 203, 203, 203, 199, 199, 199, 199, 199, 199, 199, 199, 191, 141, 120, 133, 117, 79, 93, 144, 149, 151, 138, 101, 60, 46, 66, 92, 181, 178, 176, 154, 98, 57, 82, 137, 223, 239, 247, 222, 169, 112}, {203, 203, 203, 203, 203, 203, 203, 203, 184, 187, 192, 198, 205, 212, 217, 220, 228, 206, 197, 206, 204, 197, 218, 253, 227, 228, 216, 186, 154, 143, 158, 178, 233, 209, 215, 238, 214, 170, 186, 244, 203, 167, 141, 160, 208, 240}, {202, 202, 202, 202, 202, 202, 202, 202, 209, 208, 208, 206, 205, 204, 203, 203, 184, 203, 212, 205, 202, 209, 210, 202, 219, 220, 218, 212, 208, 212, 225, 237, 192, 198, 200, 200, 207, 215, 209, 196, 180, 208, 233, 225, 197, 182}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 206, 206, 206, 206, 206, 206, 206, 206, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 205, 205, 205, 205, 205, 205, 205, 205, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 204, 204, 204, 204, 204, 204, 204, 204, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 203, 203, 203, 203, 203, 203, 203, 203, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 202, 202, 202, 202, 202, 202, 202, 202, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199}, {199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199} }; static const uint8 jpeg_8bit_j75[JPEGY][JPEGX] = { {200, 200, 200, 200, 200, 200, 200, 200, 198, 198, 198, 199, 199, 200, 200, 200, 202, 202, 200, 199, 199, 199, 199, 200, 199, 199, 200, 201, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 200, 200, 200, 200, 200, 200, 202, 202, 201, 201, 200, 200, 200, 200, 201, 201, 202, 202, 201, 201, 200, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 201, 201, 200, 200, 200, 200, 200, 200, 201, 202, 202, 202, 202, 201, 200, 200, 203, 203, 202, 202, 201, 200, 200, 199, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 199, 199, 200, 201, 202, 202, 201, 200, 199, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 199, 199, 198, 198, 198, 198, 198, 198, 199, 199, 200, 200, 200, 199, 199, 199, 199, 198, 198, 199, 200, 201, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 198, 198, 198, 199, 199, 200, 200, 200, 200, 200, 199, 199, 199, 200, 201, 202, 201, 200, 199, 198, 198, 200, 201, 203, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 198, 199, 199, 201, 202, 203, 204, 204, 204, 202, 200, 199, 200, 202, 204, 206, 207, 205, 203, 200, 199, 200, 201, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 199, 200, 201, 202, 204, 206, 207, 207, 207, 205, 202, 200, 200, 203, 207, 210, 213, 210, 207, 203, 201, 200, 200, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {202, 201, 200, 199, 200, 201, 203, 204, 202, 199, 196, 196, 200, 203, 203, 202, 205, 222, 189, 234, 214, 209, 216, 203, 204, 212, 224, 210, 226, 204, 214, 215, 219, 218, 214, 203, 200, 207, 189, 209, 194, 211, 188, 199, 211, 185}, {202, 201, 200, 200, 200, 202, 203, 204, 212, 208, 204, 201, 199, 195, 190, 186, 186, 215, 205, 196, 218, 218, 206, 197, 223, 224, 188, 217, 204, 225, 195, 205, 211, 118, 158, 234, 196, 204, 194, 209, 208, 210, 216, 224, 211, 194}, {198, 198, 198, 197, 198, 199, 200, 200, 199, 199, 200, 202, 204, 203, 200, 197, 176, 184, 165, 126, 21, 66, 63, 65, 66, 68, 78, 78, 89, 200, 87, 66, 117, 120, 65, 94, 212, 196, 206, 197, 80, 49, 56, 45, 206, 205}, {54, 54, 54, 54, 55, 55, 56, 56, 49, 50, 53, 57, 60, 62, 62, 62, 63, 91, 80, 31, 78, 53, 41, 53, 63, 64, 48, 65, 75, 79, 80, 89, 83, 90, 90, 109, 76, 202, 178, 94, 41, 52, 47, 58, 50, 65}, {54, 54, 55, 55, 56, 56, 56, 56, 59, 57, 55, 51, 48, 46, 46, 46, 62, 67, 49, 72, 82, 42, 55, 61, 42, 30, 65, 48, 66, 64, 53, 82, 53, 115, 63, 58, 46, 52, 86, 43, 34, 200, 200, 149, 103, 61}, {197, 197, 198, 199, 200, 199, 199, 199, 197, 197, 196, 194, 192, 193, 196, 199, 187, 139, 105, 206, 44, 86, 158, 165, 167, 210, 135, 91, 55, 64, 104, 85, 172, 219, 206, 182, 36, 55, 59, 163, 211, 188, 208, 207, 212, 63}, {199, 200, 201, 203, 203, 203, 202, 201, 192, 196, 200, 203, 205, 209, 214, 218, 237, 203, 178, 202, 187, 178, 206, 212, 202, 216, 224, 204, 133, 129, 121, 199, 221, 204, 209, 216, 207, 206, 228, 202, 183, 218, 188, 176, 208, 219}, {198, 199, 201, 202, 203, 202, 201, 200, 202, 205, 209, 208, 204, 201, 201, 202, 198, 195, 207, 203, 219, 218, 210, 215, 226, 210, 214, 214, 211, 226, 201, 238, 208, 188, 212, 192, 209, 217, 199, 201, 209, 192, 207, 206, 207, 195}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 202, 206, 211, 215, 215, 211, 206, 202, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 198, 199, 201, 203, 203, 201, 199, 198, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 201, 200, 199, 198, 198, 199, 200, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 203, 202, 201, 199, 199, 201, 202, 203, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 198, 198, 198, 199, 199, 198, 198, 198, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 197, 198, 199, 200, 200, 199, 198, 197, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200}, {200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 201, 201, 202, 202, 202, 202, 201, 201, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200} }; /* const uint8 jpeg_24bit_orig[JPEGY][JPEGX][3] = */ const uint8 jpeg_24bit_orig[JPEGY*JPEGX*3] = { 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 99, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 95, 0, 255, 87, 0, 255, 79, 0, 255, 71, 0, 255, 71, 0, 255, 79, 0, 255, 95, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 87, 0, 255, 63, 0, 255, 55, 0, 255, 47, 0, 255, 55, 0, 255, 79, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 95, 0, 255, 87, 0, 255, 91, 0, 255, 99, 0, 255, 95, 0, 255, 103, 0, 255, 107, 0, 255, 103, 0, 255, 95, 0, 255, 95, 0, 255, 91, 0, 255, 87, 0, 255, 75, 0, 255, 63, 0, 255, 51, 0, 255, 31, 0, 255, 15, 0, 255, 67, 0, 255, 83, 0, 255, 75, 0, 255, 67, 0, 255, 55, 0, 255, 43, 0, 255, 23, 0, 255, 3, 0, 255, 91, 0, 255, 55, 0, 255, 39, 0, 255, 31, 0, 255, 19, 0, 255, 11, 0, 255, 99, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 107, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 91, 0, 255, 79, 0, 255, 75, 0, 255, 79, 0, 255, 95, 0, 255, 115, 0, 255, 131, 0, 255, 131, 0, 255, 131, 0, 255, 135, 0, 255, 131, 0, 255, 107, 0, 255, 87, 0, 255, 83, 0, 255, 63, 0, 255, 27, 0, 255, 47, 0, 255, 131, 0, 255, 51, 0, 255, 3, 0, 255, 67, 0, 255, 119, 0, 255, 79, 0, 255, 15, 0, 255, 87, 0, 255, 71, 0, 255, 59, 0, 91, 255, 163, 115, 255, 139, 241, 0, 0, 255, 79, 0, 255, 119, 0, 255, 111, 0, 255, 75, 0, 255, 59, 0, 255, 55, 0, 255, 47, 0, 255, 43, 0, 255, 59, 0, 255, 119, 0, 255, 103, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 107, 0, 255, 103, 0, 255, 103, 0, 255, 111, 0, 255, 111, 0, 255, 107, 0, 255, 95, 0, 255, 75, 0, 255, 67, 0, 255, 59, 0, 255, 123, 0, 255, 183, 0, 255, 175, 0, 255, 175, 0, 255, 223, 0, 51, 255, 203, 0, 23, 255, 0, 151, 255, 0, 99, 255, 0, 123, 255, 0, 143, 255, 0, 159, 255, 0, 155, 255, 0, 195, 255, 0, 235, 255, 255, 51, 0, 0, 199, 255, 0, 159, 255, 111, 255, 143, 51, 255, 203, 0, 223, 255, 0, 235, 255, 255, 67, 0, 255, 115, 0, 255, 111, 0, 255, 99, 0, 0, 191, 255, 0, 71, 255, 0, 91, 255, 0, 87, 255, 255, 63, 0, 255, 71, 0, 0, 83, 255, 0, 79, 255, 0, 83, 255, 0, 87, 255, 0, 79, 255, 0, 71, 255, 0, 91, 255, 0, 87, 255, 0, 67, 255, 0, 83, 255, 0, 79, 255, 0, 63, 255, 0, 83, 255, 0, 87, 255, 0, 123, 255, 0, 131, 255, 0, 119, 255, 27, 255, 227, 0, 179, 255, 0, 71, 255, 0, 103, 255, 0, 23, 255, 0, 63, 255, 0, 47, 255, 0, 67, 255, 0, 131, 255, 0, 99, 255, 0, 135, 255, 0, 135, 255, 0, 151, 255, 0, 159, 255, 0, 215, 255, 0, 139, 255, 0, 187, 255, 0, 243, 255, 59, 255, 195, 0, 135, 255, 255, 95, 0, 255, 127, 0, 0, 227, 255, 0, 35, 255, 0, 23, 255, 0, 103, 255, 0, 39, 255, 0, 43, 255, 0, 99, 255, 0, 83, 255, 0, 75, 255, 0, 71, 255, 0, 79, 255, 0, 87, 255, 0, 91, 255, 0, 79, 255, 0, 95, 255, 0, 87, 255, 0, 95, 255, 0, 71, 255, 0, 71, 255, 0, 79, 255, 0, 67, 255, 0, 51, 255, 0, 67, 255, 0, 87, 255, 0, 71, 255, 0, 47, 255, 0, 139, 255, 0, 131, 255, 0, 119, 255, 0, 135, 255, 0, 67, 255, 0, 95, 255, 0, 19, 255, 0, 55, 255, 0, 91, 255, 0, 115, 255, 0, 127, 255, 0, 127, 255, 0, 215, 255, 0, 163, 255, 47, 255, 207, 0, 103, 255, 0, 119, 255, 0, 47, 255, 0, 55, 255, 0, 255, 255, 0, 27, 255, 0, 31, 255, 255, 107, 0, 255, 107, 0, 255, 223, 0, 43, 255, 211, 0, 39, 255, 255, 111, 0, 255, 111, 0, 255, 103, 0, 255, 99, 0, 255, 107, 0, 255, 91, 0, 255, 95, 0, 255, 99, 0, 255, 107, 0, 255, 115, 0, 255, 115, 0, 255, 135, 0, 255, 143, 0, 255, 143, 0, 255, 139, 0, 255, 123, 0, 255, 95, 0, 219, 255, 35, 11, 255, 243, 255, 115, 0, 0, 111, 255, 0, 143, 255, 159, 255, 95, 255, 175, 0, 223, 255, 31, 255, 95, 0, 223, 255, 31, 0, 159, 255, 0, 171, 255, 0, 151, 255, 0, 199, 255, 0, 199, 255, 207, 255, 47, 233, 0, 0, 255, 91, 0, 255, 187, 0, 0, 63, 255, 0, 79, 255, 0, 55, 255, 255, 255, 0, 255, 71, 0, 255, 91, 0, 255, 163, 0, 255, 107, 0, 255, 91, 0, 0, 199, 255, 255, 107, 0, 255, 103, 0, 255, 87, 0, 255, 95, 0, 255, 95, 0, 255, 103, 0, 255, 107, 0, 255, 115, 0, 255, 123, 0, 255, 111, 0, 255, 103, 0, 255, 95, 0, 255, 75, 0, 255, 59, 0, 255, 39, 0, 255, 27, 0, 255, 47, 0, 255, 107, 0, 255, 131, 0, 255, 135, 0, 255, 123, 0, 255, 123, 0, 255, 107, 0, 255, 83, 0, 255, 75, 0, 255, 31, 0, 241, 0, 0, 255, 119, 0, 159, 255, 95, 91, 255, 163, 71, 255, 183, 255, 51, 0, 224, 0, 0, 255, 115, 0, 255, 75, 0, 255, 59, 0, 255, 55, 0, 255, 43, 0, 255, 39, 0, 255, 39, 0, 255, 107, 0, 255, 115, 0, 255, 107, 0, 255, 99, 0, 255, 67, 0, 255, 59, 0, 255, 103, 0, 255, 99, 0, 255, 99, 0, 255, 95, 0, 255, 99, 0, 255, 99, 0, 255, 99, 0, 255, 99, 0, 255, 91, 0, 255, 79, 0, 255, 79, 0, 255, 75, 0, 255, 79, 0, 255, 99, 0, 255, 95, 0, 255, 95, 0, 255, 91, 0, 255, 95, 0, 255, 91, 0, 255, 83, 0, 255, 71, 0, 255, 59, 0, 255, 47, 0, 255, 19, 0, 255, 3, 0, 255, 67, 0, 255, 59, 0, 255, 51, 0, 255, 35, 0, 255, 23, 0, 255, 7, 0, 255, 3, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 75, 0, 255, 67, 0, 255, 95, 0, 255, 103, 0, 255, 99, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 99, 0, 255, 95, 0, 255, 91, 0, 255, 99, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 91, 0, 255, 67, 0, 255, 55, 0, 255, 47, 0, 255, 47, 0, 255, 59, 0, 255, 91, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 95, 0, 255, 87, 0, 255, 95, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0 }; static const uint8 jpeg_24bit_j80[JPEGY][JPEGX][3] = { 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 253, 105, 0, 253, 105, 0, 255, 104, 0, 255, 104, 0, 255, 105, 0, 255, 105, 0, 255, 105, 0, 255, 104, 0, 255, 104, 0, 255, 103, 0, 255, 102, 0, 252, 106, 0, 237, 111, 0, 235, 114, 0, 246, 111, 0, 248, 111, 0, 241, 114, 0, 243, 111, 0, 251, 103, 3, 255, 99, 4, 255, 105, 7, 255, 106, 4, 248, 110, 1, 250, 108, 0, 255, 99, 1, 255, 97, 6, 255, 101, 13, 251, 104, 9, 251, 106, 0, 248, 108, 0, 245, 109, 1, 239, 110, 6, 235, 111, 11, 234, 111, 17, 239, 107, 22, 245, 107, 9, 255, 106, 0, 255, 105, 0, 255, 102, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 252, 105, 0, 252, 105, 0, 252, 105, 0, 252, 105, 0, 252, 105, 0, 253, 105, 0, 253, 105, 0, 253, 105, 0, 253, 102, 0, 253, 102, 0, 254, 101, 0, 254, 101, 0, 255, 102, 0, 255, 102, 0, 255, 101, 0, 253, 105, 0, 245, 109, 0, 243, 109, 0, 247, 105, 0, 248, 104, 0, 246, 105, 0, 251, 106, 1, 255, 104, 4, 255, 105, 5, 251, 98, 0, 248, 102, 0, 246, 105, 0, 251, 105, 0, 255, 101, 0, 255, 100, 2, 254, 104, 9, 251, 105, 6, 252, 106, 0, 252, 106, 0, 253, 105, 0, 251, 105, 4, 246, 106, 9, 244, 106, 15, 245, 105, 20, 251, 104, 11, 255, 104, 0, 255, 104, 0, 255, 102, 0, 255, 102, 0, 255, 104, 0, 255, 105, 0, 251, 105, 4, 251, 105, 4, 251, 105, 4, 251, 105, 4, 251, 105, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 103, 3, 253, 104, 4, 253, 104, 4, 253, 104, 4, 253, 104, 4, 254, 105, 5, 254, 105, 5, 255, 105, 2, 255, 105, 0, 255, 103, 0, 255, 102, 0, 255, 99, 0, 255, 97, 1, 255, 98, 3, 255, 102, 4, 255, 105, 1, 251, 104, 0, 251, 107, 0, 255, 108, 0, 255, 107, 0, 255, 104, 0, 255, 104, 0, 250, 105, 0, 247, 105, 0, 253, 106, 0, 255, 103, 0, 255, 96, 0, 255, 94, 4, 255, 95, 6, 255, 98, 9, 255, 98, 17, 255, 99, 13, 255, 99, 2, 255, 100, 0, 255, 103, 4, 248, 106, 8, 241, 109, 9, 237, 111, 9, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 253, 104, 4, 252, 104, 4, 253, 104, 4, 253, 104, 4, 255, 106, 6, 255, 106, 6, 255, 106, 6, 254, 105, 5, 254, 105, 5, 253, 104, 4, 253, 104, 4, 255, 102, 1, 255, 98, 0, 255, 97, 0, 255, 100, 3, 255, 98, 9, 255, 95, 12, 255, 95, 9, 255, 98, 2, 252, 101, 0, 252, 108, 0, 254, 108, 0, 255, 103, 0, 255, 103, 0, 255, 103, 0, 253, 106, 0, 244, 109, 0, 244, 107, 0, 255, 105, 0, 255, 99, 0, 255, 95, 0, 255, 94, 1, 255, 94, 6, 255, 96, 8, 255, 98, 11, 255, 99, 9, 255, 98, 8, 255, 99, 6, 255, 102, 8, 248, 105, 11, 241, 108, 15, 238, 109, 17, 255, 102, 1, 255, 102, 1, 255, 102, 1, 255, 103, 1, 255, 102, 1, 255, 103, 1, 255, 102, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 99, 1, 255, 93, 1, 255, 92, 6, 255, 93, 18, 255, 93, 23, 255, 92, 26, 255, 95, 20, 242, 105, 11, 237, 108, 4, 244, 105, 0, 255, 100, 0, 255, 90, 5, 255, 91, 7, 254, 99, 6, 245, 108, 2, 239, 114, 0, 244, 112, 1, 255, 99, 15, 255, 96, 15, 255, 101, 1, 255, 102, 0, 255, 102, 9, 253, 103, 9, 255, 103, 2, 255, 103, 1, 255, 100, 6, 255, 99, 4, 255, 100, 0, 255, 101, 0, 255, 100, 9, 255, 100, 15, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 102, 1, 255, 102, 1, 255, 103, 2, 255, 103, 2, 255, 104, 3, 255, 105, 3, 255, 105, 4, 255, 104, 5, 255, 100, 11, 255, 97, 16, 255, 94, 19, 255, 93, 22, 255, 95, 21, 254, 102, 19, 239, 115, 15, 238, 120, 14, 248, 108, 10, 255, 100, 11, 255, 88, 16, 255, 89, 15, 255, 100, 11, 244, 107, 3, 240, 111, 0, 245, 107, 0, 255, 98, 18, 255, 96, 18, 255, 103, 1, 251, 106, 0, 248, 105, 9, 246, 106, 8, 248, 108, 0, 251, 107, 0, 255, 103, 4, 255, 101, 4, 255, 101, 0, 255, 100, 0, 255, 99, 4, 255, 98, 9, 255, 100, 2, 255, 100, 2, 255, 100, 2, 255, 100, 2, 255, 100, 2, 255, 100, 2, 255, 101, 2, 255, 101, 2, 255, 104, 4, 255, 104, 4, 255, 103, 3, 255, 102, 2, 255, 102, 2, 254, 102, 1, 254, 100, 0, 251, 101, 4, 250, 103, 10, 255, 101, 11, 255, 99, 7, 255, 100, 3, 255, 102, 0, 250, 105, 0, 229, 112, 0, 230, 109, 2, 247, 98, 4, 255, 91, 8, 255, 85, 8, 255, 89, 7, 255, 100, 3, 253, 105, 0, 253, 103, 0, 255, 100, 0, 255, 99, 9, 255, 99, 9, 255, 102, 1, 255, 104, 0, 249, 106, 4, 245, 108, 2, 242, 112, 0, 244, 111, 0, 248, 106, 4, 251, 105, 6, 253, 105, 0, 255, 105, 0, 255, 103, 1, 255, 102, 4, 255, 99, 4, 255, 99, 4, 255, 99, 4, 255, 100, 4, 255, 99, 4, 255, 100, 4, 255, 100, 4, 255, 101, 4, 255, 102, 5, 255, 101, 4, 255, 98, 1, 250, 96, 0, 246, 92, 0, 242, 90, 0, 240, 86, 0, 236, 86, 0, 235, 92, 0, 244, 96, 0, 255, 96, 0, 255, 97, 0, 255, 97, 0, 248, 92, 0, 222, 87, 0, 214, 78, 0, 229, 68, 0, 248, 67, 0, 255, 72, 0, 255, 81, 0, 255, 94, 3, 255, 99, 5, 255, 97, 9, 255, 98, 9, 255, 101, 13, 249, 104, 15, 249, 104, 13, 249, 105, 9, 248, 106, 6, 246, 108, 1, 245, 110, 0, 245, 110, 0, 248, 106, 6, 249, 105, 9, 251, 105, 2, 253, 105, 0, 255, 103, 0, 255, 103, 0, 255, 98, 7, 255, 98, 6, 255, 98, 6, 255, 99, 6, 255, 94, 2, 252, 89, 0, 252, 89, 0, 253, 93, 0, 254, 94, 0, 254, 95, 1, 255, 96, 2, 254, 97, 2, 253, 96, 1, 250, 96, 0, 250, 93, 0, 246, 93, 0, 234, 86, 0, 229, 71, 0, 249, 64, 0, 247, 51, 0, 222, 30, 0, 255, 73, 0, 255, 83, 0, 242, 72, 0, 241, 67, 0, 243, 64, 0, 242, 60, 0, 228, 41, 0, 219, 28, 0, 255, 83, 26, 246, 56, 8, 223, 52, 0, 197, 60, 0, 174, 54, 0, 185, 64, 0, 233, 105, 30, 239, 101, 10, 251, 105, 4, 255, 110, 10, 248, 94, 0, 249, 98, 7, 255, 111, 25, 239, 83, 0, 255, 105, 13, 255, 99, 0, 255, 100, 0, 237, 105, 43, 234, 104, 42, 235, 105, 43, 236, 106, 44, 234, 104, 42, 228, 100, 37, 229, 101, 38, 232, 104, 41, 214, 89, 25, 224, 99, 35, 235, 111, 47, 243, 119, 55, 244, 120, 56, 244, 122, 57, 246, 124, 59, 244, 130, 59, 228, 126, 44, 235, 132, 53, 220, 100, 37, 210, 84, 36, 208, 85, 54, 185, 62, 46, 193, 64, 58, 253, 126, 119, 196, 79, 61, 156, 47, 18, 181, 78, 37, 229, 120, 81, 215, 89, 64, 185, 62, 47, 178, 73, 70, 192, 114, 102, 156, 111, 72, 222, 190, 139, 232, 195, 150, 109, 49, 0, 203, 101, 26, 236, 106, 20, 250, 104, 19, 232, 90, 24, 188, 75, 43, 183, 83, 68, 185, 83, 68, 183, 70, 40, 203, 68, 13, 247, 100, 33, 176, 117, 113, 174, 116, 112, 176, 118, 114, 178, 120, 116, 177, 119, 115, 175, 117, 113, 176, 118, 114, 178, 123, 118, 178, 123, 118, 174, 119, 114, 163, 108, 103, 150, 97, 91, 146, 93, 87, 162, 109, 103, 190, 137, 131, 203, 166, 148, 192, 185, 141, 174, 190, 145, 168, 193, 172, 180, 214, 226, 10, 45, 101, 87, 110, 206, 64, 61, 192, 100, 92, 229, 84, 94, 209, 92, 118, 202, 105, 143, 190, 108, 147, 176, 147, 170, 204, 74, 112, 151, 89, 171, 219, 34, 144, 181, 110, 227, 237, 115, 232, 223, 76, 187, 168, 130, 191, 157, 157, 124, 71, 216, 124, 57, 226, 108, 36, 207, 113, 87, 142, 120, 193, 54, 69, 186, 48, 66, 168, 78, 66, 150, 155, 87, 144, 190, 95, 139, 91, 67, 91, 89, 65, 89, 90, 66, 90, 93, 69, 93, 93, 69, 93, 92, 68, 92, 92, 70, 93, 95, 73, 96, 96, 74, 97, 95, 73, 96, 92, 68, 92, 85, 63, 86, 83, 61, 84, 93, 71, 94, 113, 91, 114, 119, 113, 123, 85, 113, 91, 133, 192, 174, 82, 171, 185, 4, 111, 165, 0, 108, 211, 0, 58, 198, 13, 72, 238, 0, 40, 205, 11, 77, 217, 47, 127, 240, 0, 95, 181, 32, 134, 208, 33, 129, 206, 13, 135, 212, 0, 168, 243, 12, 203, 255, 0, 143, 162, 44, 194, 192, 86, 226, 213, 123, 220, 209, 91, 110, 116, 155, 123, 124, 199, 145, 119, 188, 145, 154, 43, 40, 143, 10, 34, 166, 49, 83, 180, 21, 42, 125, 57, 44, 134, 99, 70, 163, 95, 70, 92, 91, 66, 88, 93, 65, 88, 95, 67, 90, 96, 68, 91, 94, 66, 89, 95, 67, 90, 98, 70, 93, 84, 56, 79, 88, 60, 83, 94, 64, 88, 94, 66, 89, 91, 63, 86, 85, 57, 80, 78, 50, 73, 70, 50, 61, 92, 90, 78, 43, 72, 70, 5, 73, 118, 22, 115, 195, 23, 124, 232, 27, 117, 231, 56, 114, 211, 40, 83, 162, 28, 74, 134, 0, 51, 114, 0, 64, 144, 18, 97, 190, 19, 114, 220, 2, 128, 228, 0, 159, 235, 37, 205, 242, 70, 177, 167, 124, 193, 162, 52, 106, 80, 61, 109, 129, 8, 60, 162, 14, 64, 179, 139, 181, 239, 31, 41, 77, 83, 30, 84, 180, 109, 139, 192, 142, 109, 234, 217, 189, 158, 185, 232, 2, 52, 137, 183, 122, 117, 178, 117, 112, 178, 115, 110, 180, 117, 112, 181, 118, 113, 179, 116, 111, 179, 116, 111, 181, 118, 113, 191, 126, 122, 190, 125, 121, 191, 126, 122, 196, 131, 127, 205, 137, 134, 207, 139, 136, 205, 137, 134, 199, 136, 127, 173, 116, 96, 249, 217, 204, 181, 186, 205, 123, 151, 190, 64, 97, 150, 88, 110, 159, 206, 203, 230, 181, 160, 175, 255, 230, 238, 133, 110, 126, 235, 230, 255, 88, 111, 165, 83, 137, 201, 57, 137, 198, 59, 159, 208, 87, 166, 183, 202, 217, 184, 99, 76, 24, 165, 128, 84, 207, 177, 185, 56, 58, 159, 43, 62, 180, 53, 75, 133, 235, 218, 236, 186, 84, 80, 227, 96, 50, 243, 136, 30, 189, 124, 30, 131, 128, 121, 117, 145, 182, 238, 109, 51, 232, 103, 45, 229, 100, 42, 231, 102, 44, 234, 104, 46, 232, 102, 44, 234, 101, 44, 236, 103, 46, 248, 113, 57, 243, 108, 52, 237, 102, 46, 232, 97, 41, 227, 90, 35, 217, 80, 25, 203, 66, 11, 192, 55, 1, 201, 66, 18, 226, 102, 50, 229, 127, 61, 226, 135, 64, 223, 130, 63, 221, 116, 58, 231, 108, 66, 244, 103, 73, 227, 68, 46, 197, 48, 24, 154, 42, 5, 202, 134, 89, 232, 210, 161, 193, 179, 144, 242, 195, 189, 158, 81, 71, 148, 43, 0, 240, 117, 50, 211, 76, 10, 215, 80, 35, 195, 67, 66, 178, 57, 62, 187, 72, 45, 187, 63, 11, 255, 108, 38, 250, 97, 3, 255, 126, 3, 244, 120, 6, 204, 100, 29, 193, 98, 50, 255, 101, 10, 255, 96, 5, 251, 92, 1, 253, 94, 3, 255, 95, 5, 255, 95, 5, 255, 95, 5, 255, 95, 6, 255, 91, 2, 250, 86, 0, 246, 81, 0, 246, 81, 0, 250, 85, 0, 255, 91, 2, 255, 93, 5, 255, 92, 11, 255, 88, 18, 253, 86, 8, 255, 100, 0, 249, 96, 0, 239, 80, 0, 247, 81, 0, 238, 62, 0, 222, 30, 0, 227, 20, 0, 255, 72, 15, 231, 69, 0, 198, 74, 0, 168, 82, 0, 174, 88, 1, 169, 39, 0, 191, 36, 0, 255, 102, 34, 255, 91, 10, 255, 98, 15, 255, 95, 15, 251, 67, 3, 255, 80, 15, 255, 85, 9, 255, 96, 6, 255, 91, 0, 255, 110, 0, 248, 94, 0, 254, 101, 0, 245, 92, 0, 255, 103, 10, 255, 104, 6, 255, 104, 6, 255, 103, 5, 255, 102, 4, 255, 101, 3, 253, 99, 1, 253, 99, 1, 254, 97, 0, 255, 101, 4, 255, 101, 4, 255, 101, 4, 255, 101, 4, 255, 101, 4, 255, 101, 4, 255, 101, 4, 255, 100, 6, 250, 86, 0, 245, 80, 0, 232, 73, 0, 226, 67, 0, 230, 69, 0, 240, 77, 0, 254, 86, 0, 255, 93, 6, 255, 95, 12, 255, 94, 10, 255, 96, 4, 245, 99, 0, 235, 103, 2, 237, 104, 9, 248, 102, 19, 255, 101, 19, 255, 101, 9, 255, 101, 6, 255, 101, 4, 255, 100, 4, 255, 99, 9, 255, 99, 9, 255, 100, 6, 255, 101, 2, 255, 102, 0, 255, 103, 0, 255, 104, 0, 255, 104, 0, 255, 104, 1, 255, 103, 2, 255, 105, 2, 255, 105, 2, 255, 104, 1, 255, 104, 1, 254, 103, 0, 253, 102, 0, 252, 101, 0, 252, 101, 0, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 103, 1, 255, 104, 6, 255, 103, 5, 255, 100, 2, 255, 99, 1, 255, 99, 1, 255, 102, 4, 255, 106, 8, 255, 109, 10, 255, 102, 3, 255, 101, 2, 255, 99, 0, 255, 99, 0, 255, 99, 0, 255, 100, 0, 255, 102, 2, 255, 103, 3, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 254, 103, 0, 254, 103, 0, 254, 103, 0, 254, 103, 0, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 103, 1, 255, 100, 1, 255, 100, 2, 255, 101, 3, 255, 101, 3, 255, 101, 3, 255, 100, 2, 255, 99, 1, 255, 99, 0, 255, 103, 4, 255, 103, 3, 255, 103, 3, 255, 102, 2, 255, 102, 2, 255, 103, 3, 255, 103, 3, 255, 104, 4, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 103, 1, 255, 103, 4, 255, 102, 3, 255, 99, 1, 255, 99, 0, 255, 98, 0, 255, 99, 0, 255, 100, 1, 255, 101, 1, 255, 103, 3, 255, 103, 3, 255, 104, 4, 255, 104, 4, 255, 104, 4, 255, 104, 4, 255, 103, 3, 255, 103, 3, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 254, 103, 0, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 103, 1, 255, 106, 6, 255, 105, 5, 255, 102, 3, 255, 102, 2, 255, 102, 2, 255, 103, 3, 255, 105, 5, 255, 106, 6, 255, 102, 2, 255, 102, 2, 255, 103, 3, 255, 104, 3, 255, 104, 3, 255, 104, 3, 255, 103, 2, 255, 103, 2, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 251, 97, 0, 252, 98, 0, 255, 100, 0, 255, 101, 1, 255, 102, 2, 255, 101, 1, 254, 100, 0, 253, 99, 0, 255, 101, 1, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 254, 102, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 253, 102, 0, 255, 104, 1, 255, 105, 3, 255, 108, 5, 255, 108, 5, 255, 107, 4, 255, 105, 2, 254, 103, 0, 255, 104, 1, 253, 104, 1, 253, 104, 1, 253, 104, 1, 253, 104, 1, 253, 104, 1, 253, 104, 1, 253, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1, 255, 104, 1 }; static const uint8 jpeg_24bit_j30[JPEGY][JPEGX][3] = { 235, 112, 16, 235, 112, 16, 235, 112, 16, 235, 112, 16, 235, 112, 16, 235, 112, 16, 235, 112, 16, 235, 112, 16, 230, 107, 11, 231, 108, 12, 232, 109, 13, 234, 111, 15, 236, 113, 17, 238, 115, 19, 239, 116, 20, 247, 113, 24, 255, 100, 25, 255, 95, 30, 255, 96, 32, 255, 96, 35, 255, 95, 41, 255, 95, 42, 255, 95, 46, 255, 95, 46, 252, 88, 37, 254, 88, 36, 255, 90, 32, 255, 90, 28, 255, 91, 25, 255, 92, 21, 255, 93, 17, 255, 98, 14, 250, 106, 10, 247, 107, 12, 255, 100, 19, 255, 96, 25, 255, 93, 30, 255, 95, 30, 255, 99, 28, 242, 108, 23, 228, 116, 16, 215, 124, 10, 210, 127, 9, 210, 127, 9, 217, 122, 16, 221, 119, 18, 245, 110, 3, 245, 110, 3, 245, 110, 3, 245, 110, 3, 245, 110, 3, 245, 110, 3, 245, 110, 3, 245, 110, 3, 241, 106, 0, 241, 106, 0, 242, 107, 0, 244, 109, 2, 245, 110, 3, 247, 112, 5, 248, 113, 6, 251, 112, 9, 250, 102, 6, 253, 99, 9, 251, 100, 11, 251, 99, 15, 250, 99, 20, 249, 99, 23, 249, 98, 25, 249, 98, 25, 249, 98, 25, 250, 98, 22, 251, 98, 18, 255, 99, 14, 255, 99, 8, 255, 100, 4, 255, 100, 1, 255, 100, 0, 255, 102, 0, 255, 101, 3, 255, 99, 7, 255, 98, 12, 255, 99, 14, 255, 101, 16, 252, 104, 14, 247, 107, 10, 242, 111, 5, 238, 114, 2, 235, 116, 0, 233, 116, 2, 235, 115, 5, 236, 113, 7, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 104, 0, 255, 100, 0, 255, 100, 0, 255, 101, 0, 255, 102, 0, 255, 103, 0, 255, 104, 0, 255, 105, 0, 255, 109, 0, 243, 110, 0, 238, 112, 0, 236, 113, 0, 236, 112, 0, 235, 112, 0, 235, 111, 0, 235, 111, 0, 235, 111, 0, 241, 117, 0, 242, 116, 0, 243, 115, 0, 244, 116, 0, 245, 115, 0, 245, 114, 0, 246, 114, 0, 255, 107, 0, 255, 94, 0, 255, 90, 0, 255, 97, 0, 255, 104, 0, 247, 112, 0, 242, 115, 0, 246, 113, 0, 255, 108, 0, 255, 99, 0, 255, 94, 0, 255, 92, 0, 255, 94, 0, 255, 100, 0, 255, 103, 0, 255, 103, 0, 255, 104, 0, 255, 103, 0, 255, 104, 0, 255, 103, 0, 255, 104, 0, 255, 103, 0, 255, 104, 0, 255, 99, 0, 255, 101, 0, 255, 100, 0, 255, 101, 0, 255, 101, 0, 255, 102, 0, 255, 101, 0, 255, 105, 0, 251, 113, 0, 244, 116, 0, 244, 116, 0, 244, 115, 0, 242, 115, 0, 242, 114, 0, 242, 114, 0, 244, 113, 0, 249, 118, 0, 249, 118, 0, 249, 117, 0, 248, 117, 0, 248, 116, 0, 247, 116, 0, 248, 115, 0, 255, 108, 0, 255, 97, 0, 255, 93, 0, 255, 99, 0, 255, 105, 0, 252, 113, 0, 249, 114, 0, 253, 111, 0, 255, 106, 0, 255, 97, 0, 255, 93, 0, 255, 90, 0, 255, 92, 0, 255, 97, 0, 255, 100, 0, 255, 106, 0, 254, 106, 0, 255, 106, 0, 254, 106, 0, 255, 106, 0, 254, 106, 0, 255, 106, 0, 254, 106, 0, 253, 103, 0, 251, 103, 0, 253, 103, 0, 250, 102, 0, 252, 102, 0, 250, 102, 0, 251, 101, 0, 252, 101, 0, 255, 107, 0, 255, 106, 0, 255, 105, 0, 255, 105, 0, 255, 104, 0, 255, 103, 0, 255, 102, 0, 255, 101, 0, 255, 100, 0, 255, 100, 0, 255, 101, 0, 255, 102, 0, 255, 103, 0, 255, 102, 0, 255, 103, 0, 255, 106, 0, 236, 111, 21, 233, 111, 26, 250, 107, 5, 255, 104, 0, 255, 101, 0, 255, 100, 0, 255, 101, 0, 255, 103, 0, 249, 106, 14, 238, 108, 30, 232, 109, 39, 235, 109, 35, 246, 106, 19, 252, 105, 10, 250, 107, 5, 250, 107, 5, 250, 107, 5, 250, 107, 5, 250, 107, 5, 250, 107, 5, 250, 107, 5, 250, 107, 5, 248, 105, 3, 247, 104, 2, 246, 103, 1, 245, 102, 0, 244, 101, 0, 243, 100, 0, 242, 99, 0, 246, 98, 0, 255, 103, 0, 255, 101, 0, 255, 99, 0, 255, 98, 0, 255, 97, 0, 255, 96, 3, 255, 94, 7, 255, 94, 9, 255, 87, 2, 255, 88, 0, 255, 90, 0, 255, 94, 0, 255, 95, 0, 255, 98, 0, 255, 101, 0, 252, 107, 0, 222, 119, 18, 217, 120, 25, 235, 112, 16, 253, 105, 7, 255, 98, 0, 255, 96, 0, 255, 97, 3, 255, 102, 9, 242, 108, 19, 229, 113, 26, 224, 115, 30, 226, 114, 28, 240, 109, 21, 247, 106, 18, 252, 106, 7, 252, 106, 7, 252, 106, 7, 252, 106, 7, 252, 106, 7, 252, 106, 7, 252, 106, 7, 252, 106, 7, 250, 104, 5, 249, 103, 4, 248, 102, 3, 247, 101, 2, 245, 99, 0, 244, 98, 0, 242, 96, 0, 243, 96, 0, 247, 100, 0, 249, 99, 0, 250, 98, 0, 252, 96, 0, 253, 94, 0, 254, 93, 5, 255, 91, 9, 255, 90, 12, 244, 81, 2, 244, 83, 3, 246, 87, 3, 246, 92, 2, 247, 99, 3, 248, 105, 3, 249, 108, 2, 245, 115, 0, 233, 120, 0, 229, 121, 0, 231, 115, 14, 232, 110, 37, 235, 104, 58, 239, 101, 64, 245, 101, 51, 250, 102, 32, 254, 105, 2, 255, 108, 0, 255, 109, 0, 255, 108, 0, 255, 104, 0, 255, 102, 5, 255, 103, 5, 255, 104, 5, 255, 103, 5, 255, 104, 5, 255, 103, 5, 255, 104, 5, 255, 103, 5, 255, 104, 5, 255, 101, 3, 253, 101, 2, 253, 99, 1, 250, 98, 0, 249, 95, 0, 247, 95, 0, 246, 92, 0, 247, 91, 0, 247, 88, 0, 250, 86, 0, 252, 84, 0, 253, 83, 0, 255, 80, 4, 255, 79, 9, 255, 77, 14, 255, 77, 18, 248, 67, 10, 249, 70, 12, 248, 76, 12, 248, 83, 15, 251, 91, 17, 251, 98, 18, 252, 104, 18, 249, 110, 5, 242, 116, 0, 236, 118, 0, 228, 117, 12, 222, 114, 39, 219, 111, 62, 224, 108, 67, 235, 105, 55, 249, 102, 32, 255, 101, 0, 255, 99, 0, 255, 99, 0, 255, 99, 0, 255, 98, 0, 255, 99, 5, 255, 97, 0, 255, 97, 0, 255, 97, 0, 255, 97, 0, 255, 97, 0, 255, 97, 0, 255, 97, 0, 255, 97, 0, 245, 82, 0, 255, 96, 0, 255, 111, 10, 255, 114, 13, 255, 106, 5, 255, 98, 0, 255, 96, 0, 255, 95, 1, 255, 84, 4, 255, 62, 0, 245, 31, 0, 234, 18, 0, 255, 36, 0, 255, 66, 26, 255, 71, 38, 255, 56, 29, 255, 80, 55, 255, 35, 10, 225, 6, 0, 231, 21, 0, 254, 53, 11, 255, 64, 16, 244, 57, 4, 224, 55, 0, 204, 62, 0, 204, 82, 0, 164, 52, 0, 208, 103, 0, 255, 160, 52, 219, 108, 3, 217, 87, 0, 255, 128, 37, 255, 100, 20, 255, 93, 18, 255, 88, 19, 255, 91, 20, 255, 97, 19, 255, 99, 18, 233, 101, 29, 233, 101, 29, 233, 101, 29, 233, 101, 29, 233, 101, 29, 233, 101, 29, 233, 101, 29, 233, 101, 29, 225, 93, 21, 232, 100, 28, 239, 107, 35, 239, 107, 35, 236, 104, 32, 238, 106, 34, 248, 116, 44, 255, 124, 59, 235, 101, 50, 255, 122, 80, 255, 121, 87, 233, 85, 59, 202, 47, 29, 200, 42, 33, 221, 58, 59, 236, 73, 78, 182, 21, 29, 210, 53, 60, 243, 94, 96, 243, 105, 102, 207, 79, 70, 173, 56, 39, 186, 75, 55, 215, 117, 90, 197, 116, 86, 234, 162, 114, 248, 174, 103, 124, 45, 0, 139, 53, 0, 251, 155, 43, 217, 104, 10, 203, 76, 5, 205, 63, 25, 204, 54, 39, 207, 54, 49, 217, 66, 57, 227, 87, 54, 233, 96, 52, 186, 122, 110, 186, 122, 110, 186, 122, 110, 186, 122, 110, 186, 122, 110, 186, 122, 110, 186, 122, 110, 186, 122, 110, 180, 116, 104, 180, 116, 104, 177, 113, 101, 173, 109, 97, 175, 111, 99, 188, 124, 112, 207, 143, 131, 202, 169, 154, 150, 174, 158, 163, 213, 201, 177, 219, 215, 137, 175, 178, 88, 117, 131, 70, 92, 115, 80, 99, 131, 93, 111, 149, 95, 114, 156, 103, 131, 170, 120, 156, 192, 122, 171, 201, 94, 156, 179, 59, 132, 149, 49, 131, 143, 68, 144, 158, 133, 189, 216, 174, 205, 225, 149, 151, 140, 234, 208, 171, 226, 170, 113, 165, 93, 35, 241, 163, 124, 195, 123, 111, 155, 97, 122, 123, 79, 130, 96, 60, 124, 92, 57, 115, 118, 73, 102, 146, 98, 114, 91, 68, 94, 89, 69, 94, 91, 68, 94, 89, 69, 94, 91, 68, 94, 89, 69, 94, 91, 68, 94, 89, 69, 94, 84, 61, 87, 78, 58, 83, 74, 51, 77, 69, 49, 74, 75, 52, 78, 85, 65, 90, 103, 80, 106, 86, 104, 124, 53, 149, 161, 34, 166, 178, 27, 152, 172, 5, 123, 151, 0, 99, 138, 0, 88, 138, 0, 75, 136, 0, 60, 127, 0, 96, 165, 0, 87, 155, 0, 94, 158, 0, 124, 182, 9, 154, 207, 17, 175, 220, 30, 198, 237, 60, 212, 249, 38, 146, 182, 39, 114, 145, 184, 230, 254, 118, 136, 158, 83, 71, 91, 193, 165, 187, 150, 117, 148, 135, 107, 147, 74, 60, 111, 72, 68, 127, 66, 74, 136, 63, 72, 131, 61, 65, 113, 61, 62, 106, 78, 71, 113, 77, 72, 113, 78, 71, 113, 77, 72, 113, 78, 71, 113, 77, 72, 113, 78, 71, 113, 77, 72, 113, 79, 72, 114, 74, 69, 110, 72, 65, 107, 70, 65, 106, 74, 67, 109, 76, 71, 112, 80, 73, 115, 60, 84, 122, 38, 121, 153, 28, 137, 168, 27, 129, 169, 16, 108, 159, 16, 97, 160, 29, 103, 176, 36, 104, 187, 30, 97, 186, 19, 89, 184, 19, 100, 192, 20, 114, 202, 8, 117, 199, 0, 105, 182, 0, 108, 177, 0, 148, 212, 64, 192, 229, 90, 170, 159, 128, 184, 171, 49, 108, 142, 74, 129, 209, 7, 56, 175, 0, 20, 152, 142, 161, 255, 106, 108, 195, 51, 36, 77, 113, 90, 96, 176, 152, 140, 187, 172, 165, 140, 145, 167, 86, 100, 137, 172, 124, 136, 171, 125, 136, 172, 124, 136, 171, 125, 136, 172, 124, 136, 171, 125, 136, 172, 124, 136, 171, 125, 136, 185, 137, 149, 181, 135, 146, 179, 131, 143, 179, 133, 144, 182, 134, 146, 179, 133, 144, 172, 124, 136, 149, 123, 132, 108, 126, 128, 135, 170, 172, 162, 190, 201, 147, 165, 187, 126, 132, 166, 135, 134, 178, 169, 161, 218, 195, 186, 249, 176, 171, 238, 150, 155, 221, 131, 151, 212, 128, 163, 219, 114, 166, 214, 84, 151, 193, 60, 138, 174, 69, 133, 142, 206, 228, 189, 64, 71, 30, 118, 131, 139, 135, 151, 202, 90, 105, 196, 58, 61, 164, 49, 33, 122, 225, 187, 246, 150, 90, 102, 200, 129, 107, 241, 170, 128, 233, 173, 136, 183, 149, 140, 145, 124, 129, 241, 96, 31, 240, 97, 31, 241, 96, 31, 240, 97, 31, 241, 96, 31, 240, 97, 31, 241, 96, 31, 240, 97, 31, 255, 111, 46, 247, 104, 38, 242, 97, 32, 241, 98, 32, 246, 101, 36, 244, 101, 35, 237, 92, 27, 217, 88, 20, 184, 87, 8, 212, 125, 46, 240, 143, 74, 229, 123, 65, 212, 94, 48, 216, 89, 54, 232, 100, 77, 243, 110, 93, 233, 103, 90, 192, 72, 58, 177, 71, 55, 215, 127, 105, 255, 191, 160, 255, 205, 167, 217, 174, 131, 183, 139, 92, 99, 39, 0, 208, 135, 80, 180, 96, 34, 179, 81, 16, 193, 78, 13, 193, 65, 2, 237, 98, 43, 195, 48, 4, 242, 95, 61, 236, 93, 63, 219, 84, 55, 193, 69, 35, 174, 61, 17, 178, 72, 20, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 91, 0, 255, 97, 0, 255, 86, 0, 255, 74, 0, 255, 73, 0, 255, 80, 0, 255, 83, 0, 255, 79, 0, 248, 76, 0, 254, 98, 0, 249, 100, 0, 247, 90, 0, 250, 87, 0, 255, 92, 3, 255, 91, 9, 242, 58, 0, 204, 19, 0, 217, 35, 0, 214, 41, 0, 220, 57, 0, 223, 72, 1, 202, 66, 0, 173, 48, 0, 162, 46, 0, 169, 58, 0, 227, 114, 46, 244, 122, 49, 242, 104, 6, 230, 75, 0, 255, 96, 0, 255, 78, 0, 236, 47, 0, 255, 117, 18, 255, 99, 30, 255, 94, 44, 255, 94, 53, 255, 100, 51, 255, 107, 34, 254, 104, 19, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 253, 100, 0, 244, 93, 0, 234, 81, 0, 228, 72, 0, 229, 71, 0, 238, 78, 0, 251, 88, 0, 255, 96, 5, 255, 100, 10, 255, 101, 10, 255, 102, 10, 254, 104, 10, 252, 105, 10, 249, 106, 10, 247, 107, 10, 246, 107, 12, 246, 107, 16, 247, 106, 14, 253, 105, 5, 255, 105, 0, 255, 104, 0, 255, 103, 0, 255, 101, 0, 255, 101, 0, 255, 100, 9, 255, 100, 16, 255, 101, 19, 254, 102, 18, 254, 104, 10, 254, 104, 7, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 111, 8, 255, 106, 3, 249, 98, 0, 243, 92, 0, 243, 92, 0, 249, 98, 0, 255, 106, 3, 255, 111, 8, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 112, 9, 255, 110, 7, 255, 108, 5, 255, 106, 3, 255, 106, 3, 255, 108, 5, 255, 110, 7, 255, 112, 9, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 252, 101, 0, 254, 103, 0, 255, 104, 1, 255, 105, 2, 255, 105, 2, 255, 104, 1, 254, 103, 0, 252, 101, 0, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 247, 96, 0, 250, 99, 0, 253, 102, 0, 255, 104, 1, 255, 104, 1, 253, 102, 0, 250, 99, 0, 247, 96, 0, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 253, 102, 0, 255, 104, 1, 255, 106, 3, 255, 108, 5, 255, 108, 5, 255, 106, 3, 255, 104, 1, 253, 102, 0, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 107, 4, 255, 106, 3, 255, 106, 3, 255, 105, 2, 255, 105, 2, 255, 106, 3, 255, 106, 3, 255, 107, 4, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2, 255, 105, 2 }; static const uint8 jpeg_24bit_j75[JPEGY][JPEGX][3] = { 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 252, 104, 4, 246, 108, 1, 241, 118, 0, 237, 119, 0, 242, 112, 0, 250, 104, 1, 255, 96, 3, 255, 94, 5, 255, 97, 10, 255, 103, 13, 246, 107, 14, 247, 106, 16, 255, 97, 15, 255, 91, 11, 255, 87, 6, 255, 93, 0, 255, 105, 0, 252, 112, 0, 253, 107, 0, 251, 108, 0, 245, 110, 0, 242, 110, 1, 248, 105, 13, 251, 104, 11, 255, 104, 0, 253, 106, 0, 249, 107, 0, 249, 108, 0, 253, 108, 0, 255, 106, 0, 255, 101, 0, 255, 98, 0, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 251, 99, 0, 252, 100, 0, 252, 100, 0, 253, 101, 0, 254, 102, 1, 255, 103, 2, 255, 103, 2, 252, 107, 2, 238, 108, 0, 236, 109, 0, 246, 105, 0, 255, 100, 0, 255, 95, 3, 255, 94, 3, 255, 98, 3, 254, 101, 5, 244, 106, 5, 246, 106, 8, 255, 99, 8, 255, 94, 5, 255, 91, 3, 255, 94, 0, 250, 102, 0, 245, 104, 0, 255, 103, 0, 255, 103, 0, 249, 108, 0, 246, 109, 0, 249, 106, 2, 252, 104, 4, 255, 103, 1, 255, 104, 0, 251, 106, 0, 251, 107, 0, 255, 106, 0, 255, 104, 0, 255, 101, 0, 255, 100, 1, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 101, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 103, 1, 255, 103, 1, 255, 103, 1, 255, 105, 3, 247, 104, 2, 250, 104, 3, 255, 100, 5, 255, 96, 6, 255, 95, 4, 255, 97, 2, 255, 103, 0, 248, 106, 0, 245, 110, 0, 249, 109, 0, 255, 106, 0, 255, 104, 0, 255, 103, 4, 253, 103, 6, 242, 106, 7, 245, 102, 8, 255, 95, 9, 255, 95, 2, 255, 103, 0, 253, 108, 0, 252, 109, 0, 253, 107, 0, 255, 100, 9, 255, 100, 11, 255, 105, 0, 255, 105, 0, 255, 100, 15, 255, 99, 24, 251, 102, 18, 249, 103, 17, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 102, 0, 255, 106, 0, 255, 105, 0, 255, 105, 0, 255, 104, 0, 255, 103, 0, 255, 103, 0, 255, 102, 0, 255, 103, 0, 255, 107, 11, 255, 104, 11, 255, 97, 5, 255, 94, 0, 255, 96, 0, 255, 100, 0, 250, 106, 0, 243, 109, 0, 246, 110, 0, 249, 109, 0, 253, 107, 0, 253, 108, 0, 249, 109, 0, 244, 112, 4, 241, 111, 15, 248, 107, 19, 255, 96, 15, 255, 95, 6, 255, 100, 0, 255, 104, 0, 255, 106, 0, 255, 105, 0, 255, 100, 17, 255, 99, 15, 255, 103, 0, 255, 103, 0, 255, 99, 13, 255, 99, 22, 249, 103, 18, 245, 105, 17, 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 252, 106, 0, 251, 105, 0, 251, 105, 0, 251, 105, 0, 251, 105, 0, 251, 105, 0, 250, 104, 0, 250, 104, 0, 249, 104, 0, 252, 105, 9, 255, 100, 6, 255, 93, 0, 255, 93, 0, 255, 98, 0, 255, 106, 0, 241, 112, 0, 239, 114, 0, 249, 110, 0, 252, 107, 0, 250, 106, 0, 246, 106, 0, 236, 111, 0, 236, 113, 0, 240, 112, 5, 246, 110, 11, 251, 104, 11, 255, 101, 8, 255, 97, 2, 255, 97, 2, 255, 99, 11, 253, 101, 17, 249, 103, 18, 253, 103, 9, 255, 101, 0, 255, 100, 0, 255, 101, 0, 255, 103, 0, 255, 104, 0, 251, 106, 1, 251, 106, 0, 251, 106, 0, 251, 106, 0, 251, 106, 0, 251, 106, 0, 251, 106, 0, 251, 106, 0, 251, 106, 0, 250, 105, 0, 250, 105, 0, 251, 106, 0, 251, 106, 0, 252, 107, 0, 253, 108, 0, 253, 108, 0, 254, 109, 4, 250, 104, 5, 255, 100, 1, 255, 95, 0, 255, 98, 0, 255, 106, 0, 255, 112, 0, 245, 117, 0, 244, 118, 0, 255, 110, 1, 255, 106, 4, 255, 105, 3, 253, 106, 0, 244, 110, 0, 243, 112, 0, 250, 110, 0, 254, 110, 0, 249, 107, 0, 255, 104, 1, 255, 97, 2, 255, 95, 9, 255, 98, 20, 249, 103, 20, 242, 108, 9, 246, 107, 2, 255, 101, 0, 255, 98, 0, 255, 102, 0, 255, 104, 0, 255, 105, 0, 252, 105, 0, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 101, 8, 255, 103, 10, 255, 102, 9, 255, 102, 9, 255, 101, 8, 255, 100, 7, 255, 100, 7, 255, 99, 6, 254, 100, 2, 249, 101, 0, 255, 102, 0, 255, 99, 4, 255, 102, 7, 255, 105, 5, 253, 108, 0, 242, 109, 0, 240, 104, 0, 251, 93, 2, 255, 90, 17, 255, 89, 32, 255, 93, 37, 255, 101, 27, 255, 105, 10, 255, 106, 0, 255, 106, 0, 255, 104, 0, 255, 102, 0, 255, 96, 0, 255, 96, 6, 252, 103, 13, 242, 109, 8, 235, 116, 0, 238, 114, 0, 252, 103, 13, 255, 98, 17, 255, 102, 0, 255, 104, 0, 252, 104, 4, 251, 104, 8, 255, 99, 11, 255, 100, 9, 255, 99, 11, 255, 100, 9, 255, 99, 11, 255, 100, 9, 255, 99, 11, 255, 100, 9, 255, 100, 12, 255, 99, 8, 255, 96, 8, 252, 93, 2, 248, 88, 0, 245, 86, 0, 242, 82, 0, 242, 81, 0, 252, 88, 0, 255, 92, 0, 255, 93, 7, 255, 95, 15, 255, 95, 12, 247, 89, 2, 235, 82, 0, 233, 73, 0, 237, 65, 0, 248, 64, 10, 255, 70, 32, 255, 78, 42, 255, 86, 37, 255, 90, 20, 255, 94, 0, 255, 96, 0, 255, 104, 0, 255, 104, 0, 255, 99, 4, 255, 99, 9, 251, 104, 9, 242, 110, 2, 238, 114, 0, 241, 112, 0, 251, 103, 15, 255, 100, 18, 255, 102, 8, 255, 103, 2, 252, 104, 4, 252, 104, 4, 255, 106, 11, 255, 103, 6, 255, 102, 7, 255, 103, 6, 255, 101, 6, 252, 95, 0, 250, 93, 0, 251, 94, 0, 254, 97, 2, 255, 99, 2, 255, 103, 8, 255, 104, 7, 255, 103, 8, 255, 100, 3, 253, 96, 1, 255, 89, 0, 255, 72, 0, 253, 56, 0, 248, 64, 0, 231, 53, 0, 202, 24, 0, 255, 74, 9, 255, 81, 26, 255, 67, 16, 255, 64, 16, 247, 49, 4, 255, 64, 21, 217, 10, 0, 242, 33, 0, 255, 62, 15, 255, 66, 17, 220, 46, 0, 188, 52, 0, 201, 78, 0, 194, 59, 0, 241, 98, 19, 244, 97, 4, 255, 115, 17, 253, 105, 9, 253, 103, 6, 252, 101, 0, 255, 109, 4, 254, 102, 1, 251, 100, 0, 248, 97, 0, 248, 98, 0, 232, 107, 41, 229, 104, 38, 228, 103, 37, 231, 106, 40, 230, 105, 39, 226, 101, 35, 224, 99, 33, 227, 102, 36, 208, 83, 17, 219, 94, 28, 231, 106, 40, 237, 112, 46, 238, 113, 47, 240, 115, 49, 246, 121, 55, 255, 124, 60, 255, 112, 55, 250, 111, 56, 214, 99, 44, 192, 87, 42, 220, 108, 86, 175, 51, 49, 184, 45, 64, 248, 106, 130, 195, 63, 76, 171, 46, 42, 197, 72, 50, 235, 110, 80, 211, 81, 55, 185, 60, 40, 195, 84, 77, 189, 106, 90, 150, 106, 59, 221, 188, 134, 233, 184, 141, 118, 45, 0, 227, 117, 38, 249, 115, 30, 237, 90, 20, 230, 92, 30, 197, 86, 30, 192, 97, 49, 172, 78, 42, 180, 79, 35, 214, 98, 25, 242, 118, 30, 187, 117, 119, 185, 115, 117, 185, 115, 117, 188, 118, 120, 189, 119, 121, 186, 116, 118, 186, 116, 118, 189, 119, 121, 194, 124, 126, 191, 121, 123, 182, 112, 114, 169, 99, 101, 163, 93, 95, 177, 107, 109, 206, 136, 138, 220, 166, 154, 191, 167, 129, 181, 188, 144, 175, 214, 185, 157, 204, 210, 0, 29, 85, 108, 126, 226, 86, 84, 219, 84, 82, 218, 90, 108, 218, 77, 111, 183, 100, 145, 174, 109, 162, 166, 136, 190, 192, 60, 124, 133, 79, 160, 189, 46, 148, 173, 106, 225, 231, 117, 237, 238, 83, 184, 196, 152, 199, 193, 139, 102, 49, 216, 125, 55, 230, 113, 59, 206, 113, 98, 133, 110, 162, 58, 74, 162, 38, 56, 156, 76, 73, 150, 136, 91, 112, 161, 94, 86, 99, 64, 97, 96, 61, 93, 96, 61, 94, 99, 64, 96, 100, 65, 98, 97, 62, 94, 98, 63, 96, 102, 67, 99, 93, 58, 91, 97, 62, 94, 99, 64, 97, 95, 60, 92, 92, 57, 90, 98, 63, 95, 113, 78, 111, 114, 100, 115, 96, 125, 103, 135, 203, 178, 82, 179, 185, 0, 103, 149, 11, 108, 205, 0, 29, 164, 12, 72, 230, 0, 53, 205, 0, 76, 194, 30, 130, 215, 0, 110, 160, 6, 136, 170, 4, 142, 178, 12, 163, 206, 0, 169, 228, 33, 207, 255, 0, 153, 175, 28, 179, 196, 67, 197, 231, 127, 212, 243, 86, 99, 108, 162, 124, 123, 203, 142, 141, 189, 139, 166, 51, 47, 131, 9, 36, 143, 70, 103, 206, 28, 54, 138, 47, 51, 99, 109, 102, 135, 94, 69, 98, 91, 67, 93, 90, 65, 94, 92, 68, 94, 92, 67, 96, 89, 65, 91, 90, 65, 94, 94, 70, 96, 89, 64, 93, 91, 67, 93, 93, 68, 97, 92, 68, 94, 88, 63, 92, 83, 59, 85, 79, 54, 83, 69, 58, 74, 65, 80, 75, 35, 75, 77, 4, 67, 111, 41, 112, 190, 40, 109, 213, 61, 122, 229, 67, 114, 202, 26, 71, 138, 35, 89, 133, 0, 66, 102, 0, 79, 125, 3, 109, 167, 1, 123, 198, 0, 132, 216, 0, 140, 225, 44, 180, 238, 71, 164, 169, 149, 212, 204, 56, 102, 125, 69, 105, 167, 25, 61, 171, 20, 49, 169, 168, 183, 255, 41, 31, 94, 85, 35, 70, 163, 102, 107, 161, 116, 87, 222, 208, 182, 153, 182, 196, 16, 66, 101, 182, 127, 124, 178, 123, 120, 176, 121, 118, 177, 122, 119, 176, 121, 118, 174, 119, 116, 175, 120, 117, 178, 123, 120, 185, 130, 127, 181, 126, 123, 180, 125, 122, 185, 130, 127, 193, 138, 135, 200, 145, 142, 201, 146, 143, 195, 146, 139, 162, 125, 107, 246, 223, 215, 166, 161, 181, 167, 172, 210, 81, 92, 138, 102, 107, 147, 211, 202, 221, 195, 176, 180, 255, 233, 231, 140, 128, 130, 189, 200, 222, 111, 146, 184, 96, 156, 210, 34, 108, 171, 102, 182, 245, 113, 169, 204, 202, 205, 184, 97, 69, 30, 160, 122, 109, 187, 158, 188, 60, 56, 151, 65, 72, 186, 50, 50, 136, 240, 208, 247, 185, 91, 66, 240, 123, 53, 248, 144, 45, 207, 139, 56, 145, 132, 113, 127, 141, 152, 235, 106, 48, 230, 101, 43, 228, 99, 41, 230, 101, 43, 229, 100, 42, 227, 98, 40, 229, 100, 42, 233, 104, 46, 242, 113, 55, 239, 110, 52, 235, 106, 48, 232, 103, 45, 226, 97, 39, 210, 81, 23, 189, 60, 2, 174, 45, 0, 197, 72, 14, 230, 115, 52, 222, 117, 49, 226, 134, 61, 206, 124, 50, 219, 132, 63, 216, 106, 55, 226, 93, 58, 230, 78, 57, 175, 27, 13, 176, 59, 39, 205, 121, 97, 230, 180, 155, 248, 213, 193, 212, 172, 164, 138, 73, 53, 146, 39, 0, 254, 130, 58, 208, 91, 14, 205, 93, 29, 198, 94, 57, 153, 51, 29, 176, 66, 49, 197, 78, 36, 249, 116, 23, 245, 104, 0, 253, 111, 3, 243, 105, 17, 218, 93, 39, 199, 81, 45, 255, 100, 11, 255, 96, 6, 255, 94, 5, 255, 96, 6, 255, 96, 7, 255, 95, 5, 255, 97, 8, 255, 102, 12, 255, 95, 6, 249, 88, 0, 242, 78, 0, 238, 77, 0, 246, 82, 0, 253, 92, 2, 255, 98, 9, 255, 101, 12, 255, 91, 6, 248, 87, 0, 255, 101, 0, 244, 100, 0, 220, 85, 0, 231, 91, 0, 232, 72, 0, 217, 38, 0, 221, 19, 0, 255, 77, 35, 234, 59, 4, 210, 63, 0, 192, 76, 1, 164, 57, 0, 161, 47, 0, 187, 54, 0, 255, 107, 31, 249, 81, 0, 255, 112, 7, 253, 101, 0, 227, 74, 0, 239, 84, 0, 255, 99, 21, 253, 93, 5, 250, 98, 0, 255, 106, 0, 255, 109, 0, 255, 91, 0, 255, 89, 12, 255, 102, 32, 255, 102, 5, 255, 103, 5, 255, 102, 5, 255, 102, 4, 255, 101, 4, 255, 101, 3, 255, 100, 3, 255, 101, 3, 255, 101, 4, 255, 102, 4, 255, 101, 4, 255, 102, 4, 255, 101, 4, 255, 102, 4, 255, 101, 4, 255, 101, 4, 251, 92, 0, 244, 86, 0, 233, 77, 0, 225, 72, 0, 223, 75, 0, 234, 83, 0, 250, 93, 0, 255, 98, 9, 255, 96, 14, 255, 95, 15, 255, 96, 11, 252, 98, 10, 245, 102, 10, 243, 104, 13, 246, 104, 18, 252, 104, 18, 255, 101, 9, 255, 101, 4, 255, 103, 1, 255, 104, 1, 255, 103, 2, 255, 103, 4, 255, 101, 8, 255, 102, 6, 255, 104, 0, 255, 104, 0, 255, 102, 0, 255, 101, 4, 255, 100, 8, 255, 100, 9, 255, 104, 3, 255, 104, 3, 255, 104, 3, 255, 103, 2, 255, 103, 2, 254, 102, 1, 254, 102, 1, 254, 102, 1, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 99, 0, 254, 98, 0, 253, 97, 0, 253, 97, 0, 254, 98, 0, 255, 100, 0, 255, 103, 3, 255, 105, 5, 255, 103, 3, 255, 102, 2, 255, 100, 0, 255, 99, 0, 255, 99, 0, 255, 100, 0, 255, 102, 2, 255, 103, 3, 255, 102, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 104, 3, 255, 104, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 254, 102, 1, 254, 102, 1, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 100, 0, 255, 102, 2, 255, 106, 6, 255, 108, 8, 255, 109, 9, 255, 107, 7, 255, 105, 5, 255, 103, 3, 255, 103, 3, 255, 102, 2, 255, 101, 1, 255, 100, 0, 255, 100, 0, 255, 101, 1, 255, 102, 2, 255, 103, 3, 255, 102, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 3, 255, 102, 2, 255, 102, 2, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 102, 2, 255, 102, 2, 255, 103, 3, 255, 102, 2, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 102, 2, 255, 103, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 106, 6, 255, 104, 4, 255, 102, 2, 255, 101, 1, 255, 101, 1, 255, 101, 1, 255, 103, 3, 255, 104, 4, 255, 103, 3, 255, 102, 2, 255, 102, 2, 255, 102, 2, 255, 102, 2, 255, 102, 2, 255, 102, 2, 255, 103, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 254, 102, 1, 254, 102, 1, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 104, 3, 255, 104, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 102, 2, 255, 103, 3, 255, 104, 4, 255, 106, 6, 255, 105, 5, 255, 104, 4, 255, 102, 2, 255, 101, 1, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 254, 102, 1, 254, 102, 1, 254, 102, 1, 255, 103, 2, 255, 103, 2, 255, 104, 3, 255, 104, 3, 255, 104, 3, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 252, 98, 0, 254, 100, 0, 255, 102, 2, 255, 103, 3, 255, 103, 3, 255, 102, 2, 255, 101, 1, 253, 99, 0, 255, 102, 2, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 103, 3, 255, 102, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2, 255, 103, 2 }; void test_GRgetcomptype(); /* in "tdfr8.c" */ static VOID check_im_pal(int32 oldx, int32 oldy, int32 newx, int32 newy, uint8 *oldim, uint8 *newim, uint8 *oldpal, uint8 *newpal); /* These two functions are in tusejpegfuncs.c. They use JPEG functions directly to compress and decompress the same data as in test_r24_jpeg, to verify that the DFR24 API work correctly regardless which JPEG library is used */ intn comp_using_jpeglib(char *filename, long *file_offset, int im_height, int im_width, int im_ncomps, int quality, uint8 *written_buffer); intn decomp_using_jpeglib(char *filename, long file_offset, int im_height, int im_width, int im_ncomps, uint8 *read_buffer); void test_r24_jpeg(void); /* ------------------------------- test_r24 ------------------------------- */ void test_r24(void) { int32 xd, yd; intn il; int Error; char buf[YSIZE][XSIZE][3]; char buf1[YSIZE][3][XSIZE]; char buf2[3][YSIZE][XSIZE]; char in[YSIZE][XSIZE][3]; char in1[YSIZE][3][XSIZE]; char in2[3][YSIZE][XSIZE]; int i, j, ret; uint16 ref0, ref1, ref2; uint8 *jpeg_24bit_temp; jpeg_24bit_temp = (uint8 *) HDmalloc(JPEGX * JPEGY * 3); if (!jpeg_24bit_temp) { fprintf(stderr, "Out of memory!\n"); exit(1); } for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) { buf[i][j][0] = buf[i][j][1] = buf[i][j][2] = (char) (i + j); buf1[i][0][j] = buf1[i][1][j] = buf1[i][2][j] = (char) (i | j); buf2[0][i][j] = buf2[1][i][j] = buf2[2][i][j] = (char) (i ^ j); } MESSAGE(5, printf("Writing 24bit images with differing interlacing\n"); ); ret = DF24setil(DFIL_PIXEL); RESULT("DF24setil"); ret = DF24putimage(TESTFILE, &(buf[0][0][0]), XSIZE, YSIZE); RESULT("DF24putimage"); ref0 = DF24lastref(); ret = DF24setil(DFIL_LINE); RESULT("DF24setil"); ret = DF24addimage(TESTFILE, &(buf1[0][0][0]), XSIZE, YSIZE); RESULT("DF24addimage"); ref1 = DF24lastref(); ret = DF24setil(DFIL_PLANE); RESULT("DF24setil"); ret = DF24addimage(TESTFILE, &(buf2[0][0][0]), XSIZE, YSIZE); RESULT("DF24addimage"); ref2 = DF24lastref(); if ((ret = DF24nimages(TESTFILE)) != 3) { fprintf(stderr, " >>> DF24nimages() gives wrong number: %d <<<\n", ret); num_errs++; } /* read image 0 */ MESSAGE(5, printf("Reading and verifying 24bit images\n"); ); ret = DF24restart(); RESULT("DF24restart"); ret = DF24reqil(DFIL_PIXEL); RESULT("DF24reqil"); ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if (ret == FAIL) HEprint(stderr, 0); if ((xd != XSIZE) || (yd != YSIZE) || il != 0) { fprintf(stderr, "Returned meta-data is wrong for image 0\n"); num_errs++; } ret = DF24getimage(TESTFILE, in, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in[i][j][0] != buf[i][j][0] || in[i][j][1] != buf[i][j][1] || in[i][j][2] != buf[i][j][2]) { Error = TRUE; } if (Error) { printf("in:\n"); for (i = 0; i < YSIZE; i++) { for (j = 0; j < XSIZE; j++) printf("(%d,%d,%d)", (int) in[i][j][0], (int) in[i][j][1], (int) in[i][j][2]); printf("\n"); } printf("buf:\n"); for (i = 0; i < YSIZE; i++) { for (j = 0; j < XSIZE; j++) printf("(%d,%d,%d)", (int) buf[i][j][0], (int) buf[i][j][1], (int) buf[i][j][2]); printf("\n"); } fprintf(stderr, "Image 0 was incorrect\n"); num_errs++; } if (ref0 != DF24lastref()) { fprintf(stderr, "Bogus lastref for image 0\n"); num_errs++; } /* read image 1 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 1) { fprintf(stderr, "Returned meta-data is wrong for image 1\n"); num_errs++; } ret = DF24getimage(TESTFILE, in, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in[i][j][0] != buf1[i][0][j] || in[i][j][1] != buf1[i][1][j] || in[i][j][2] != buf1[i][2][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 1 was incorrect\n"); num_errs++; } if (ref1 != DF24lastref()) { fprintf(stderr, "Bogus lastref for image 1\n"); num_errs++; } /* read image 2 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 2) { fprintf(stderr, "Returned meta-data is wrong for image 2\n"); num_errs++; } ret = DF24getimage(TESTFILE, in, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in[i][j][0] != buf2[0][i][j] || in[i][j][1] != buf2[1][i][j] || in[i][j][2] != buf2[2][i][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 2 was incorrect\n"); num_errs++; } if (ref2 != DF24lastref()) { fprintf(stderr, "Bogus lastref for image 2\n"); num_errs++; } ret = DF24restart(); RESULT("DF24restart"); /* read image 3 */ ret = DF24reqil(DFIL_LINE); RESULT("DF24reqil"); ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 0) { fprintf(stderr, "Returned meta-data is wrong for image 3\n"); num_errs++; } ret = DF24getimage(TESTFILE, in1, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in1[i][0][j] != buf[i][j][0] || in1[i][1][j] != buf[i][j][1] || in1[i][2][j] != buf[i][j][2]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 3 was incorrect\n"); num_errs++; } /* read image 4 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 1) { fprintf(stderr, "Returned meta-data is wrong for image 4\n"); num_errs++; } ret = DF24getimage(TESTFILE, in1, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in1[i][0][j] != buf1[i][0][j] || in1[i][1][j] != buf1[i][1][j] || in1[i][2][j] != buf1[i][2][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 4 was incorrect\n"); num_errs++; } /* read image 5 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 2) { fprintf(stderr, "Returned meta-data is wrong for image 5\n"); num_errs++; } ret = DF24getimage(TESTFILE, in1, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in1[i][0][j] != buf2[0][i][j] || in1[i][1][j] != buf2[1][i][j] || in1[i][2][j] != buf2[2][i][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 5 was incorrect\n"); num_errs++; } /* read image 6 */ ret = DF24restart(); RESULT("DF24restart"); ret = DF24reqil(DFIL_PLANE); RESULT("DF24reqil"); ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 0) { fprintf(stderr, "Returned meta-data is wrong for image 6\n"); num_errs++; } ret = DF24getimage(TESTFILE, in2, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in2[0][i][j] != buf[i][j][0] || in2[1][i][j] != buf[i][j][1] || in2[2][i][j] != buf[i][j][2]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 6 was incorrect\n"); num_errs++; } /* read image 7 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 1) { fprintf(stderr, "Returned meta-data is wrong for image 7\n"); num_errs++; } ret = DF24getimage(TESTFILE, in2, XSIZE, YSIZE); RESULT("DF24getimage"); for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in2[0][i][j] != buf1[i][0][j] || in2[1][i][j] != buf1[i][1][j] || in2[2][i][j] != buf1[i][2][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 7 was incorrect\n"); num_errs++; } /* read image 8 */ ret = DF24getdims(TESTFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != XSIZE) || (yd != YSIZE) || il != 2) { fprintf(stderr, "Returned meta-data is wrong for image 8\n"); num_errs++; } ret = DF24getimage(TESTFILE, in2, XSIZE, YSIZE); RESULT("DF24getimage"); Error = FALSE; for (i = 0; i < YSIZE; i++) for (j = 0; j < XSIZE; j++) if (in2[0][i][j] != buf2[0][i][j] || in2[1][i][j] != buf2[1][i][j] || in2[2][i][j] != buf2[2][i][j]) { Error = TRUE; } if (Error) { fprintf(stderr, "Image 8 was incorrect\n"); num_errs++; } HDfree(jpeg_24bit_temp); /* Test 24-bit images with JPEG compression */ test_r24_jpeg(); } /********************************************************************** Utility function: read_binary_block Description: read_binary_block opens the given file in binary mode, seeks to the specified offset, then reads into the provided buffer nitems of values. ***********************************************************************/ size_t read_binary_block( const char *filename, /* file to be read */ int32 offset, /* position to start reading from */ size_t nitems, /* number of bytes to read */ uint8 *buffer) /* buffer to store the binary data in */ { FILE *fd; size_t readlen=0; /* number of bytes actually read */ /* Open the file to read binary data */ if ((fd = fopen(filename, "rb")) == NULL) { fprintf(stderr, "can't open %s\n", filename); exit(1); } /* Forward to the specified offset to start reading */ if (fseek(fd, (off_t)offset, SEEK_SET) == -1) { fprintf(stderr, "can't seek offset %d\n", (int)offset); exit(1); } /* Read in the specified block of data */ readlen = fread((void*)buffer, 1, nitems, fd); return(readlen); } /* ------------------------------- test_r24_jpeg ------------------------------- */ #define N_IMAGES 3 void test_r24_jpeg(void) { int32 fid, grid, /* file ID and GR interface ID */ riid; /* raster image ID */ comp_info cinfo; /* compression information for the JPEG */ int32 xd, yd; /* image's dimensions */ intn il; /* image's interlace */ long begin_offset=0, /* offset at the beginning of image's data */ end_offset=0; /* offset at the end of image's data */ uint8 *jpeg_24bit_temp; /* buffer for 24-bit image data */ uint8 jpeglib_readbuf[JPEGY*JPEGX*NCOMPS]; /* buffer for data read by JPEG function */ int32 offset, length; /* offset/length in the HDF file */ int32 nonhdf_offset; /* offset in the nonHDF file */ intn status; /* status returned from GR routines */ intn ii; /* indices */ int32 n_images, n_fattrs; /* number of images and number of file attrs */ uint8 *hdf_buffer, /* buffer of data read from HDF file */ *nonhdf_buffer; /* buffer of data read from non-HDF file */ int ret; /* Allocate buffer for DF24getimage to store read data */ jpeg_24bit_temp = (uint8 *) HDmalloc(JPEGX * JPEGY * 3); if (!jpeg_24bit_temp) { fprintf(stderr, "Out of memory!\n"); exit(1); } MESSAGE(5, printf("\nStoring 24-bit images with JPEG compression\n"); ); ret = DF24setil(DFIL_PIXEL); RESULT("DF24setil"); MESSAGE(6, printf("Storing first image with JPEG quality 80\n"); ); cinfo.jpeg.quality = 80; cinfo.jpeg.force_baseline = TRUE; DF24setcompress(COMP_JPEG, &cinfo); ret = DF24putimage((const char *)JPEGFILE, jpeg_24bit_orig, JPEGX, JPEGY); RESULT("DF24putimage"); MESSAGE(6, printf("Storing second image with JPEG quality 30\n"); ); cinfo.jpeg.quality = 30; cinfo.jpeg.force_baseline = TRUE; DF24setcompress(COMP_JPEG, &cinfo); ret = DF24addimage((const char *)JPEGFILE, jpeg_24bit_orig, JPEGX, JPEGY); RESULT("DF24addimage"); MESSAGE(6, printf("Storing third image with JPEG default quality of 75\n"); ); cinfo.jpeg.quality = 75; cinfo.jpeg.force_baseline = TRUE; DF24setcompress(COMP_JPEG, &cinfo); ret = DF24addimage((const char *)JPEGFILE, jpeg_24bit_orig, JPEGX, JPEGY); RESULT("DF24addimage"); if (DF24nimages(JPEGFILE) != 3) { fprintf(stderr, " >>> DF24nimages() gives wrong number for JPEG images<<<\n"); num_errs++; } MESSAGE(5, printf("\nReading and verifying 24bit JPEG'ed images\n\n"); ); ret = DF24restart(); RESULT("DF24restart"); ret = DF24reqil(DFIL_PIXEL); RESULT("DF24reqil"); /* Get dimensions of first image */ ret = DF24getdims(JPEGFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 80 image\n"); fprintf(stderr, "xd=%d, yd=%d\n", (int)xd, (int)yd); num_errs++; } ret = DF24getimage(JPEGFILE, jpeg_24bit_temp, JPEGX, JPEGY); RESULT("DF24getimage"); /* Compress the same data using the JPEG library directly, with quality 80 */ comp_using_jpeglib(NONHDF_JPEGFILE, &end_offset, JPEGY, JPEGX, NCOMPS, 80, jpeg_24bit_orig); /* Read back the data using JPEG library directly */ decomp_using_jpeglib(NONHDF_JPEGFILE, begin_offset, JPEGY, JPEGX, NCOMPS, jpeglib_readbuf); /* Compare data decompressed by HDF against that by JPEG lib, the buffers should be identical */ if (HDmemcmp(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS)) { fprintf(stderr, "24-bit JPEG quality 80 image was incorrect\n"); print_mismatched(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS); num_errs++; } #if 0 /* will remove after finish revising JPEG tests */ if ((ret = fuzzy_memcmp(jpeg_24bit_temp, jpeg_24bit_j80, sizeof(jpeg_24bit_orig), JPEG_FUZZ)) != 0) { fprintf(stderr, "24-bit JPEG quality 80 image was incorrect\n"); fprintf(stderr, "ret=%d, sizeof(jpeg_24bit_orig)=%u\n", (int) ret, (unsigned) sizeof(jpeg_24bit_orig)); num_errs++; } #endif /* Get dimensions of second image */ ret = DF24getdims(JPEGFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 30 image\n"); fprintf(stderr, "xd=%d, yd=%d\n", (int)xd, (int)yd); num_errs++; } ret = DF24getimage(JPEGFILE, jpeg_24bit_temp, JPEGX, JPEGY); RESULT("DF24getimage"); begin_offset = end_offset; /* Compress the same data using the JPEG library directly, with quality 30 */ comp_using_jpeglib(NONHDF_JPEGFILE, &end_offset, JPEGY, JPEGX, NCOMPS, 30, jpeg_24bit_orig); /* Read back the data using JPEG library directly */ decomp_using_jpeglib(NONHDF_JPEGFILE, begin_offset, JPEGY, JPEGX, NCOMPS, jpeglib_readbuf); /* Compare data decompressed by HDF against that by JPEG lib, the buffers should be identical */ if (HDmemcmp(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS)) { fprintf(stderr, "24-bit JPEG quality 30 image was incorrect\n"); print_mismatched(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS); num_errs++; } #if 0 if ((ret = fuzzy_memcmp(jpeg_24bit_temp, jpeg_24bit_j30, sizeof(jpeg_24bit_orig), JPEG_FUZZ)) != 0) { fprintf(stderr, "24-bit JPEG quality 30 image was incorrect\n"); fprintf(stderr, "ret=%d, sizeof(jpeg_24bit_orig)=%u\n", (int) ret, (unsigned) sizeof(jpeg_24bit_orig)); num_errs++; } #endif /* Get dimensions of third image */ ret = DF24getdims(JPEGFILE, &xd, &yd, &il); RESULT("DF24getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 75 image\n"); fprintf(stderr, "xd=%d, yd=%d\n", (int)xd, (int)yd); num_errs++; } ret = DF24getimage(JPEGFILE, jpeg_24bit_temp, JPEGX, JPEGY); RESULT("DF24getimage"); begin_offset = end_offset; /* Compress the same data using the JPEG library directly, with quality 75 */ comp_using_jpeglib(NONHDF_JPEGFILE, &end_offset, JPEGY, JPEGX, NCOMPS, 75, jpeg_24bit_orig); /* Read back the data using JPEG library directly */ decomp_using_jpeglib(NONHDF_JPEGFILE, begin_offset, JPEGY, JPEGX, NCOMPS, jpeglib_readbuf); /* Compare data decompressed by HDF against that by JPEG lib, the buffers should be identical */ if (HDmemcmp(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS)) { fprintf(stderr, "24-bit JPEG quality 75 image was incorrect\n"); print_mismatched(jpeg_24bit_temp, jpeglib_readbuf, JPEGY*JPEGX*NCOMPS); num_errs++; } #if 0 if ((ret = fuzzy_memcmp(jpeg_24bit_temp, jpeg_24bit_j75, sizeof(jpeg_24bit_orig), JPEG_FUZZ)) != 0) { fprintf(stderr, "24-bit JPEG quality 75 image was incorrect\n"); fprintf(stderr, "ret=%d, sizeof(jpeg_24bit_orig)=%u\n", (int) ret, (unsigned) sizeof(jpeg_24bit_orig)); num_errs++; } #endif HDfree(jpeg_24bit_temp); /******************************************************************** Verify raw data in HDF and NON-HDF files using offsets and lengths. ********************************************************************/ /* Re-open the file with GR interface */ fid = Hopen (JPEGFILE, DFACC_RDONLY, 0); CHECK_VOID(fid, FAIL, "Hopen"); grid = GRstart (fid); CHECK_VOID(grid, FAIL, "GRstart"); /* Get the number of images in the file */ status = GRfileinfo(grid, &n_images, &n_fattrs); CHECK_VOID(status, FAIL, "GRfileinfo"); VERIFY_VOID(n_images, N_IMAGES, "GRfileinfo"); /* Open each image and get its data information. Read the block of binary data from the HDF file and the non-HDF file. Then, verify that the two buffers are identical. Note that the non-HDF file only contains the image data, thus the offset will start at 0. */ nonhdf_offset = 0; for (ii = 0; ii < n_images; ii++) { size_t read_len=0; /* Get access to each image */ riid = GRselect(grid, ii); CHECK_VOID(riid, FAIL, "GRselect"); /* Get the image's data information */ status = GRgetdatainfo(riid, 0, 1, &offset, &length); CHECK_VOID(status, FAIL, "GRgetdatainfo"); /* Allocate buffers for the data from the HDF file and non-HDF file */ hdf_buffer = (uint8 *) HDmalloc(length * sizeof(uint8)); CHECK_ALLOC(hdf_buffer, "hdf_buffer", "test_r24_jpeg" ); nonhdf_buffer = (uint8 *) HDmalloc(length * sizeof(uint8)); CHECK_ALLOC(nonhdf_buffer, "nonhdf_buffer", "test_r24_jpeg" ); /* Read the block of data from the HDF file using offset/length returned by GRgetdatainfo and verify that the specified length of data was read */ read_len = read_binary_block(JPEGFILE, offset, length, hdf_buffer); VERIFY_VOID(read_len, (size_t)length, "read_binary_block"); /* Read the block of data from the non-HDF file using nonhdf_offset and the length returned by GRgetdatainfo and verify that the specified length of data was read */ read_len = read_binary_block(NONHDF_JPEGFILE, nonhdf_offset, length, nonhdf_buffer); VERIFY_VOID(read_len, (size_t)length, "read_binary_block"); /* Compare compressed data from the HDF file against that from the non-HDF file. The two buffers should be identical */ if (HDmemcmp(hdf_buffer, nonhdf_buffer, length)) { /* Display any mismatched values for debugging */ print_mismatched(hdf_buffer, nonhdf_buffer, length); num_errs++; } /* Move forward to the next set of non-HDF data, equivalent to the next image in the HDF file JPEGFILE */ nonhdf_offset = nonhdf_offset + length; /* Close the image */ status = GRendaccess(riid); CHECK_VOID(status, FAIL, "GRendaccess"); } /* for n_images */ /* Terminate access to the GR interface and close the file */ status = GRend(grid); CHECK_VOID(status, FAIL, "GRend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } static VOID check_im_pal(int32 oldx, int32 oldy, int32 newx, int32 newy, uint8 *oldim, uint8 *newim, uint8 *oldpal, uint8 *newpal) { int error; int x, y; uint8 *op, *np; MESSAGE(5, printf("Checking image and palette.\n"); ); op = (uint8 *) oldim; np = (uint8 *) newim; if (newx != oldx || newy != oldy) printf(" >>> DIMENSIONS WRONG <<<\n\n"); error = FALSE; for (x = 0; x < oldx; x++) for (y = 0; y < oldy; y++) { if (*op != *np) { printf("\t>>>Error at %d %d, orig image=%d; new image=%d<<<\n", x, y, *op, *np); error = TRUE; } op++; np++; } if (error) { printf(" >>> Image is wrong. <<<\n"); num_errs++; } error = FALSE; for (x = 0; x < 768; x++) if (oldpal[x] != newpal[x]) { printf("\t>>>Pal error at %d, orig pal %u new pal %u<<<\n", x, oldpal[x], newpal[x]); error = TRUE; } if (error) { printf(" >>> Palette is wrong. <<<\n"); num_errs++; } } /* ------------------------------- test_r8 -------------------------------- */ #define XD1 10 #define YD1 10 #define XD2 7 #define YD2 11 #define XD3 8 #define YD3 12 #define TESTFILE_R8 "tdfr8.hdf" void test_r8(void) { comp_info cinfo; /* compression information for the JPEG */ uint8 *im3, *ii3; uint8 *im2, *ii2; uint8 *im1, *ii1; uint8 *pal1, *pal2, *ipal; int x, y; int ret, num_images = 0; uint16 ref1, ref2; int32 xd, yd; int ispal; uint8 *jpeg_8bit_temp; im1 = (uint8 *) HDmalloc(XD1 * YD1 * sizeof(uint8)); ii1 = (uint8 *) HDmalloc(XD1 * YD1 * sizeof(uint8)); if (!im1 || !ii1) { fprintf(stderr, "Out of memory!\n"); exit(1); } im2 = (uint8 *) HDmalloc(XD2 * YD2 * sizeof(uint8)); ii2 = (uint8 *) HDmalloc(XD2 * YD2 * sizeof(uint8)); if (!im2 || !ii2) { fprintf(stderr, "Out of memory!\n"); exit(1); } im3 = (uint8 *) HDmalloc(XD3 * YD3 * sizeof(uint8)); ii3 = (uint8 *) HDmalloc(XD3 * YD3 * sizeof(uint8)); if (!im3 || !ii3) { fprintf(stderr, "Out of memory!\n"); exit(1); } pal1 = (uint8 *) HDmalloc(768 * sizeof(char)); pal2 = (uint8 *) HDmalloc(768 * sizeof(char)); ipal = (uint8 *) HDmalloc(768 * sizeof(char)); if (!ipal || !pal1 || !pal2) { fprintf(stderr, "Out of memory!\n"); exit(1); } jpeg_8bit_temp = (uint8 *) HDmalloc(JPEGX * JPEGY); if (!jpeg_8bit_temp) { fprintf(stderr, "Out of memory!\n"); exit(1); } for (y = 0; y < YD1; y++) for (x = 0; x < XD1; x++) im1[y * XD1 + x] = (uint8) (x + y); for (y = 0; y < YD2; y++) for (x = 0; x < XD2; x++) im2[y * XD2 + x] = (uint8) ((2 * x + y) - 256 * ((2 * x + y) / 256)); for (y = 0; y < YD3; y++) for (x = 0; x < XD3; x++) im3[y * XD3 + x] = (uint8) ((3 * x + y) - 256 * ((3 * x + y) / 256)); for (x = 0; x < 256; x++) { pal1[3 * x] = (uint8) x; pal1[3 * x + 1] = (uint8) x; pal1[3 * x + 2] = (uint8) x; pal2[x] = (uint8) x; pal2[x + 256] = (uint8) x; pal2[x + 512] = (uint8) x; } /* start here */ MESSAGE(5, printf("Storing 8bit raster images\n"); ); ret = DFR8setpalette(pal1); RESULT("DFR8setpalette"); MESSAGE(5, printf("Putting image with no compression\n"); ); ret = DFR8putimage(TESTFILE_R8, im1, XD1, YD1, 0); RESULT("DFR8putimage"); num_images++; ref1 = DFR8lastref(); MESSAGE(5, printf("Putting image RLE compression\n"); ); ret = DFR8addimage(TESTFILE_R8, im2, XD2, YD2, DFTAG_RLE); RESULT("DFR8addimage"); num_images++; ref2 = DFR8lastref(); #ifdef DONT_TEST_IMCOMP /* QAK */ ret = DFR8setpalette(pal2); RESULT("DFR8setpalette"); MESSAGE(5, printf("Putting image IMCOMP compression\n"); ); ret = DFR8addimage(TESTFILE_R8, im3, XD3, YD3, DFTAG_IMCOMP); RESULT("DFR8addimage"); num_images++; ref3 = DFR8lastref(); #endif /* DONT_TEST_IMCOMP */ /* QAK */ ret = DFR8nimages(TESTFILE_R8); if (ret != num_images) { fprintf(stderr, " >>> WRONG NUMBER OF IMAGES <<<\n"); num_errs++; } MESSAGE(5, printf("Reading and verifying 8bit raster images\n"); ); ret = DFR8restart(); RESULT("DFR8restart"); MESSAGE(5, printf("Verifying uncompressed image\n"); ); ret = DFR8getdims(TESTFILE_R8, &xd, &yd, &ispal); RESULT("DFR8getdims"); ret = DFR8getimage(TESTFILE_R8, (uint8 *) ii1, (int32) XD1, (int32) YD1, ipal); RESULT("DFR8getimage"); check_im_pal(XD1, YD1, xd, yd, im1, ii1, pal1, ipal); MESSAGE(5, printf("Verifying RLE compressed image\n"); ); ret = DFR8getdims(TESTFILE_R8, &xd, &yd, &ispal); RESULT("DFR8getdims"); #ifdef DONT_TEST_IMCOMP /* QAK */ MESSAGE(5, printf("Verifying IMCOMP compressed image\n"); ); ret = DFR8getdims(TESTFILE_R8, &xd, &yd, &ispal); RESULT("DFR8getdims"); ret = DFR8getimage(TESTFILE_R8, (uint8 *) ii3, (int32) XD3, (int32) YD3, ipal); RESULT("DFR8getimage"); #endif /* DONT_TEST_IMCOMP */ /* QAK */ MESSAGE(5, printf("Rechecking RLE image\n"); ); ret = DFR8readref(TESTFILE_R8, ref2); RESULT("DFR8readref"); ret = DFR8getimage(TESTFILE_R8, (uint8 *) ii2, (int32) XD2, (int32) YD2, ipal); RESULT("DFR8getimage"); check_im_pal(XD2, YD2, XD2, YD2, im2, ii2, pal1, ipal); MESSAGE(5, printf("Changing palette of first image\n"); ); ret = DFR8writeref(TESTFILE_R8, ref1); RESULT("DFR8writeref"); ret = DFR8setpalette(pal2); RESULT("DFR8setpalette"); ret = DFR8addimage(TESTFILE_R8, im1, XD1, YD1, DFTAG_RLE); RESULT("DFR8addimage"); MESSAGE(5, printf("Verifying palette change\n"); ); ret = DFR8readref(TESTFILE_R8, ref1); RESULT("DFR8readref"); ret = DFR8getdims(TESTFILE_R8, &xd, &yd, &ispal); RESULT("DFR8getdims"); ret = DFR8getimage(TESTFILE_R8, (uint8 *) ii1, (int32) XD1, (int32) YD1, ipal); RESULT("DFR8getimage"); check_im_pal(XD1, YD1, xd, yd, im1, ii1, pal2, ipal); MESSAGE(5, printf("\nStoring 8-bit images with JPEG compression\n"); ); MESSAGE(6, printf("Storing first image with JPEG quality 80\n"); ); cinfo.jpeg.quality = 80; cinfo.jpeg.force_baseline = TRUE; DFR8setcompress(COMP_JPEG, &cinfo); ret = DFR8putimage(JPEGFILE, jpeg_8bit_orig, JPEGX, JPEGY, COMP_JPEG); RESULT("DFR8putimage"); MESSAGE(6, printf("Storing second image with JPEG quality 30\n"); ); cinfo.jpeg.quality = 30; cinfo.jpeg.force_baseline = TRUE; DFR8setcompress(COMP_JPEG, &cinfo); ret = DFR8addimage(JPEGFILE, jpeg_8bit_orig, JPEGX, JPEGY, COMP_JPEG); RESULT("DFR8addimage"); MESSAGE(6, printf("Storing third image with JPEG default quality of 75\n"); ); ret = DFR8addimage(JPEGFILE, jpeg_8bit_orig, JPEGX, JPEGY, COMP_JPEG); RESULT("DFR8addimage"); MESSAGE(5, printf("\nReading and verifying 8-bit JPEG'ed images\n\n"); ); ret = DFR8restart(); RESULT("DFR8restart"); ret = DFR8getdims(JPEGFILE, &xd, &yd, &ispal); RESULT("DFR8getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 80 image\n"); num_errs++; } ret = DFR8getimage(JPEGFILE, (uint8 *) jpeg_8bit_temp, JPEGX, JPEGY, NULL); RESULT("DFR8getimage"); if (HDmemcmp(jpeg_8bit_temp, jpeg_8bit_j80, sizeof(jpeg_8bit_orig))) { fprintf(stderr, "8-bit JPEG quality 80 image was incorrect\n"); num_errs++; } ret = DFR8getdims(JPEGFILE, &xd, &yd, &ispal); RESULT("DFR8getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 30 image\n"); num_errs++; } ret = DFR8getimage(JPEGFILE, (uint8 *) jpeg_8bit_temp, JPEGX, JPEGY, NULL); RESULT("DFR8getimage"); if (HDmemcmp(jpeg_8bit_temp, jpeg_8bit_j30, sizeof(jpeg_8bit_orig))) { fprintf(stderr, "8-bit JPEG quality 30 image was incorrect\n"); num_errs++; } ret = DFR8getdims(JPEGFILE, &xd, &yd, &ispal); RESULT("DFR8getdims"); if ((xd != JPEGX) || (yd != JPEGY)) { fprintf(stderr, "Returned meta-data is wrong for JPEG quality 75 image\n"); num_errs++; } ret = DFR8getimage(JPEGFILE, (uint8 *) jpeg_8bit_temp, JPEGX, JPEGY, NULL); RESULT("DFR8getimage"); if (HDmemcmp(jpeg_8bit_temp, jpeg_8bit_j75, sizeof(jpeg_8bit_orig))) { fprintf(stderr, "8-bit JPEG quality 75 image was incorrect\n"); num_errs++; } HDfree(im1); HDfree(ii1); HDfree(im2); HDfree(ii2); HDfree(im3); HDfree(ii3); HDfree(pal1); HDfree(pal2); HDfree(ipal); HDfree(jpeg_8bit_temp); /* Temporarily call to test GRgetcomptype() for hmap project; these tests will need to be reformatted. Mar 13, 2011 -BMR */ test_GRgetcomptype(); } void test_pal(void) { int i; int ret; uint16 ref1, ref2; uint8 *pal1, *pal2, *ipal; pal1 = (uint8 *) HDmalloc(768 * sizeof(uint8)); pal2 = (uint8 *) HDmalloc(768 * sizeof(uint8)); ipal = (uint8 *) HDmalloc(768 * sizeof(uint8)); if (!ipal || !pal1 || !pal2) { fprintf(stderr, "Out of memory!\n"); exit(1); } for (i = 0; i < 256; i++) { pal1[3 * i] = (uint8) i; pal1[3 * i + 1] = (uint8) i; pal1[3 * i + 2] = (uint8) i; pal2[i] = (uint8) i; pal2[i + 256] = (uint8) i; pal2[i + 512] = (uint8) i; } MESSAGE(5, printf("Adding palettes to a file\n"); ); ret = DFPputpal(TESTFILE, pal1, 0, "w"); RESULT("DFPputpal"); ref1 = DFPlastref(); ret = DFPaddpal(TESTFILE, pal2); RESULT("DFPaddpal"); ref2 = DFPlastref(); MESSAGE(5, printf("Reading and verifying palettes\n"); ); ret = DFPrestart(); RESULT("DFPrestart"); /* read and check palette 1 */ ret = DFPgetpal(TESTFILE, ipal); RESULT("DFPgetpal"); if(HDmemcmp(ipal,pal1,768)!=0) for (i = 0; i < 768; i++) if ((uint8)pal1[i] != (uint8)ipal[i]) printf("Error at %d, ipal %d pal1 %d\n", (int)i, (int)ipal[i], (int)pal1[i]); if (ref1 != DFPlastref()) { fprintf(stderr, " >>> DFPlastref() bad for palette 1 <<<\n"); num_errs++; } /* read and check palette 2 */ ret = DFPgetpal(TESTFILE, ipal); RESULT("DFPgetpal"); if(HDmemcmp(ipal,pal2,768)!=0) for (i = 0; i < 768; i++) if ((uint8)ipal[i] != (uint8)pal2[i]) printf("Error at %d, ipal %d pal2 %d\n", (int)i, (int)ipal[i], (int)pal2[i]); if (ref2 != DFPlastref()) { fprintf(stderr, " >>> DFPlastref() bad for palette 2 <<<\n"); num_errs++; } if (DFPnpals(TESTFILE) != 2) { fprintf(stderr, " >>> DFPnpals() gives wrong number <<<\n"); num_errs++; } /* recheck palette number 2 */ ret = DFPreadref(TESTFILE, ref2); RESULT("DFPreadref"); ret = DFPgetpal(TESTFILE, ipal); RESULT("DFPgetpal"); if(HDmemcmp(ipal,pal2,768)!=0) for (i = 0; i < 768; i++) if (ipal[i] != pal2[i]) printf("Error at %d, ipal %d pal2 %d\n", i, ipal[i], pal2[i]); /* recheck palette number 1 */ ret = DFPreadref(TESTFILE, ref1); RESULT("DFPreadref"); ret = DFPgetpal(TESTFILE, ipal); RESULT("DFPgetpal"); if(HDmemcmp(ipal,pal1,768)!=0) for (i = 0; i < 768; i++) if (ipal[i] != pal1[i]) printf("Error at %d, ipal %d pal1 %d\n", i, ipal[i], pal1[i]); MESSAGE(5, printf("Modifying first palette\n"); ); for (i = 0; i < 256; i++) pal1[i + 256] = (uint8) (255 - i); ret = DFPwriteref(TESTFILE, ref1); RESULT("DFPwriteref"); ret = DFPputpal(TESTFILE, pal1, 1, "a"); RESULT("DFPputpal"); ret = DFPreadref(TESTFILE, ref1); RESULT("DFPreafref"); ret = DFPgetpal(TESTFILE, ipal); RESULT("DFPgetpal"); if(HDmemcmp(ipal,pal1,768)!=0) for (i = 0; i < 768; i++) if (ipal[i] != pal1[i]) printf("(%d) Error at %d, ipal %d pal1 %d\n", __LINE__,i, ipal[i], pal1[i]); HDfree(pal1); HDfree(pal2); HDfree(ipal); } libhdf4-4.2.10/HDF_ALT/hdf/test/fortest.inc0000644000000000000000000000255312421456623015014 0ustar C $Id: fortest.inc 6034 2014-01-19 06:59:14Z epourmal $ C Common block definiton to be included by fortestF.f modules. If your C fortran compile cannot do include, you need to replace each include C statement with this file. common CleanUp, Verbosity, CleanUpCMD logical CleanUp character*80 CleanUpCMD integer Verbosity C C Predefined verbosity levels. C C Convention: C C The higher the verbosity value, the more information printed. C So, output for higher verbosity also include output of all lower C verbosity. C C Value Description C 0 None:No informational message. C 1 "All tests passed" C 2 Header of overall test C 3 Default: header and results of individual test C 4 C 5 Low:Major category of tests. C 6 C 7 Medium: Minor category of tests such as functions called. C 8 C 9High: Highest level. All information. integer VERBO_NONE, VERBO_DEF, VERBO_LO, VERBO_MED, VERBO_HI parameter ( + VERBO_NONE = 0, + VERBO_DEF = 3, + VERBO_LO = 5, + VERBO_MED = 7, + VERBO_HI = 9 +) integer FALSE, TRUE parameter ( + FALSE = 0, + TRUE = 1 +) C Tests command file parameters. C cmdf: file unit number integer cmdf character*30 cmdfilename parameter (cmdf = 1) parameter (cmdfilename = 'fortest.arg') libhdf4-4.2.10/HDF_ALT/hdf/test/fortest.h0000644000000000000000000000312612421456623014467 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: fortest.h 5444 2010-08-25 16:40:05Z byrn $ */ #ifndef __FORTEST_H #define __FORTEST_H #include "H4api_adpt.h" #include "hdf.h" /* Verbosity Environment Variable */ #define FOR_VERB "HDF_FOR_VERBOSITY" # define ngetverb H4_F77_FUNC(getverb, GETVERB) # define nhisystem H4_F77_FUNC(hisystem, HISYSTEM) # define nfixnamec H4_F77_FUNC(fixnamec, FIXNAMEC) /* FORTRAN support C-stubs for FORTRAN interface tests */ HDFFCLIBAPI FRETVAL(intf) ngetverb(void); HDFFCLIBAPI FRETVAL(intf) nhisystem(_fcd cmd, intf *cmdlen); HDFFCLIBAPI FRETVAL(intf) nfixnamec(_fcd name, intf *name_len, _fcd name_out, intf *name_len_out); #endif /* __FORTEST_H */ libhdf4-4.2.10/HDF_ALT/hdf/test/tstubsf.f0000644000000000000000000003266612421456623014504 0ustar C**************************************************************************** C* $Id: tstubsf.f 6034 2014-01-19 06:59:14Z epourmal $ * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * subroutine tstubsf (nerrors) implicit none include 'fortest.inc' integer nerrors character*20 myname parameter (myname = 'stubs') character ar0*10 character ar1*9 character ar2*30 character ar3*8 character in*20 integer dfile integer dfinfo(16) integer dlist(128) integer a0size, a1size, a2size, a3size integer ret, err, i, nd, dfenum, tag, ref, length integer t255 integer t127 integer r1 integer r3 integer r7 integer dfaccess, dfopen, dfclose, dfdesc, dfdup, dfdel, dfread, + dfwrite, dfupdate, dfget, dfput, dfsfind, dffind, + dferrno, dfishdf, dfnewref, dfnumber, dfstat data t255 /255/ data t127 /127/ data r1 /1/ data r3 /3/ data r7 /7/ data ar0 /'Testing...'/ data ar1 /'...one...'/ data ar2 /'...two...'/ data ar3 /'...three'/ call ptestban('Testing', myname) nerrors = 0 a0size = len(ar0) a1size = len(ar1) a2size = len(ar2) a3size = len(ar3) C print *, 'This program will test the DF emulation layer' C print *, 'of HDF 3.2 and beyond (FORTRAN version). Many' C print *, 'routines will be tested individually. Each test' C print *, 'will report its name and results. If all goes' C print *, 'well, all of the results will begin with "Success".' C print *, 'If a test fails, the results line will begin with' C print *, '">>>Failure". An error count is kept and printed' C print *, 'out at the end.' C print *, 'Hit to continue.' C read(5,100) in C 100 format(a) C in(1:20) = ' ' call MESSAGE(VERBO_MED, 'Testing dferrno...') ret = dferrno() if (ret .ne. 0) then print *, '>>>Failure: Returned ', ret, ' rather than 0.' nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfishdf... (should fail)') ret = dfishdf('tstubsF.hdf') dfenum = dferrno() if (ret .eq. -1) then C print *, 'Success: dfishdf failed with DFerror = ', dfenum call MESSAGE(VERBO_HI, 'Success: dfishdf did fail') else print *, '>>>Failure: Non-existent file looks like HDF file.' print *, ' Maybe was a pre-existing file named "tstubsF.hdf"' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 endif call MESSAGE(VERBO_MED, 'Testing dfopen... (new file)') dfile = dfopen('tstubsF.hdf', 6, 0) dfenum = dferrno() if (dfile .eq. 0) then print *, '>>>Failure: Error ', dfenum, ' opening file.' print *, ' Quiting.' return else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfclose...') ret = dfclose(dfile) dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure: could not close file.' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, + 'Testing dfclose... (invalid file; should fail)') ret = dfclose(dfile) dfenum = dferrno() if (ret .eq. -1) then call MESSAGE(VERBO_HI, 'Success: dfclose did fail') else print *, '>>>Failure: Close allowed on unopened file.' nerrors = nerrors + 1 endif call MESSAGE(VERBO_MED, 'Testing dfopen... (existing file)') dfile = dfopen('tstubsF.hdf', 2, 0) dfenum = dferrno() if (dfile .eq. 0) then print *, '>>>Failure: Error ', dfenum, ' opening file.' print *, ' Quiting.' return else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfput...') ret = dfput(dfile, t255, r1, ar0, a0size) dfenum = dferrno() if (ret .ne. a0size) then print *, '>>>Failure: DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfget...') ret = dfget(dfile, t255, r1, in) dfenum = dferrno() if (ret .ne. a0size) then print *, '>>>Failure: read ', ret, ' of ', a0size, ' bytes.' print *, ' String read: ', in print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else err = 0 do 10 i=1, a0size if (in(i:i) .ne. ar0(i:i)) err = 1 10 continue if (err .eq. 1) then print *, '>>>Failure: strings differ.' print *, ' String written: ', ar0 print *, ' String read: ', in nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, + 'Success: string read is the same as written.') endif endif in(1:20) = ' ' call MESSAGE(VERBO_MED, 'Testing dfaccess (write)...') ret = dfaccess(dfile, t255, r3, 'w') dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfread... (should fail)') ret = dfread(dfile, in, 5) dfenum = dferrno() if (ret .eq. -1) then call MESSAGE(VERBO_HI, 'Success: dfread did fail') else print *, '>>>Failure: Read allowed on write element.' nerrors = nerrors + 1 endif in(1:20) = ' ' call MESSAGE(VERBO_MED, 'Testing dfwrite...') ret = dfwrite(dfile, ar1, a1size) dfenum = dferrno() if (ret .ne. a1size) then print *, '>>>Failure: wrote ', ret, ' of ', a1size, ' bytes.' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfaccess (read)...') ret = dfaccess(dfile, t255, r3, 'r') dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfwrite... (should fail)') ret = dfwrite(dfile, in, 5) dfenum = dferrno() if (ret .eq. -1) then call MESSAGE(VERBO_HI, 'Success: dfwrite did fail') else print *, '>>>Failure: write allowed on read element.' nerrors = nerrors + 1 endif call MESSAGE(VERBO_MED, 'Testing dfread...') ret = dfread(dfile, in, a1size) dfenum = dferrno() if (ret .ne. a1size) then print *, '>>>Failure: read ', ret, ' of ', a1size, ' bytes.' print *, ' String read: ', in print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else err = 0 do 40 i=1, a1size if (in(i:i) .ne. ar1(i:i)) err = 1 40 continue if (err .eq. 1) then print *, '>>>Failure: strings differ.' print *, ' String written: ', ar1 print *, ' String read: ', in nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, + 'Success: string read is the same as written.') endif endif in(1:20) = ' ' call MESSAGE(VERBO_MED, 'Testing dfnumber...') nd = dfnumber(dfile, t255) dfenum = dferrno() if (nd .ne. 2) then print *, '>>>Failure:' print *, ' Saw ', nd, ' occurrances of tag 255 not than 2.' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfdesc...') ret = dfdesc(dfile, dlist, 0, 5) dfenum = dferrno() C C add one for version tag C if (ret .ne. (nd + 1)) then print *, '>>>Failure: Returned ', ret, ' rather than ', nd+1 print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfupdate') ret = dfupdate(dfile) dfenum = dferrno() if (ret .ne. 0) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfstat') ret = dfstat(dfile, dfinfo) dfenum = dferrno() if (ret .ne. 0) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfnewref...') ret = dfnewref(dfile) dfenum = dferrno() if (ret .ne. 4) then print *, '>>>Failure: Returned ref. ', ret, ' instead of 4' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dfdup...') ret = dfdup(dfile, 127, r7, t255, r3) dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else ret = dfnumber(dfile, t127) dfenum = dferrno() if (ret .ne. 1) then print *, '>>>Failure: duplicated tag not found.' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif endif call MESSAGE(VERBO_MED, 'Testing dfdel...') ret = dfdel(dfile, t127, r7) dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else ret = dfnumber(dfile, t127) dfenum = dferrno() if (ret .ne. 0) then print *, '>>>Failure: found ', ret, ' deleted tags.' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif endif call MESSAGE(VERBO_MED, 'Testing dfsfind...') ret = dfsfind(dfile, 254, 0) dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure:' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif call MESSAGE(VERBO_MED, 'Testing dffind...') ret = dfdup(dfile, 254, 4, 255, 3) if (ret .ne. 0) then print *, '>>>DFdup 1 failed.' endif ret = dfdup(dfile, 254, 5, 255, 3) if (ret .ne. 0) then print *, '>>>DFdup 2 failed.' endif ret = dfdup(dfile, 254, 6, 255, 3) if (ret .ne. 0) then print *, '>>>DFdup 3 failed.' endif do 200 i=4,6 ret = dffind(dfile, tag, ref, length) dfenum = dferrno() if (ret .eq. -1) then print *, '>>>Failure on find #', i print *, ' DFerror = ', dfenum nerrors = nerrors + 1 else if ((tag .ne. 254) .or. (ref .ne. i) .or. + (length .ne. a1size)) then print *, '>>>Failure: tag/ref found is not correct.' print *, ' Looking for:' print *, ' tag: 254' print *, ' ref: ', i print *, ' length: ', a1size print *, ' Found:' print *, ' tag: ', tag print *, ' ref: ', ref print *, ' length: ', length nerrors = nerrors + 1 else call MESSAGE(VERBO_HI, 'Success!') endif endif 200 continue ret = dfclose(dfile) dfenum = dferrno() if (ret .ne. 0) then print *, '>>>Failure: dfclose failed (probably from open aid)' print *, ' DFerror = ', dfenum nerrors = nerrors + 1 endif if (nerrors .ne. 0) then print *, ' ', nerrors, ' errors were encountered.' else if (verbosity .ge. VERBO_HI) then print *, ' >>> ALL TESTS PASSED <<<' endif endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/sdnmms.c0000644000000000000000000003726612421456623014311 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: sdnmms.c 4932 2007-09-07 17:17:23Z bmribler $ */ #include "tproto.h" static float64 f64[10][10], tf64[10][10]; static float64 f64scale[10], tf64scale[10]; static float64 f64max = (float64) 40.0, f64min = (float64) 0.0; static float64 tf64max, tf64min; static float32 f32[10][10], tf32[10][10]; static float32 f32scale[10], tf32scale[10]; static float32 f32max = (float32) 40.0, f32min = (float32) 0.0; static float32 tf32max, tf32min; static int8 i8[10][10], ti8[10][10]; static int8 i8scale[10], ti8scale[10]; static int8 i8max = 127, i8min = -128; static int8 ti8max, ti8min; static uint8 ui8[10][10], tui8[10][10]; static uint8 ui8scale[10], tui8scale[10]; static uint8 ui8max = 255, ui8min = 0; static uint8 tui8max, tui8min; static int16 i16[10][10], ti16[10][10]; static int16 i16scale[10], ti16scale[10]; static int16 i16max = 1200, i16min = -1200; static int16 ti16max, ti16min; static uint16 ui16[10][10], tui16[10][10]; static uint16 ui16scale[10], tui16scale[10]; static uint16 ui16max = 20000, ui16min = 0; static uint16 tui16max, tui16min; static int32 i32[10][10], ti32[10][10]; static int32 i32scale[10], ti32scale[10]; static int32 i32max = 99999999, i32min = -999999999; static int32 ti32max, ti32min; static uint32 ui32[10][10], tui32[10][10]; static uint32 ui32scale[10], tui32scale[10]; static uint32 ui32max = 999999999, ui32min = 0; static uint32 tui32max, tui32min; void test_sdnmms(void) { int i, j, err, err1, err2, ret; intn rank; int32 dims[2]; rank = 2; dims[0] = 10; dims[1] = 10; MESSAGE(5, printf("Creating arrays...\n"); ); for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) { f64[i][j] = (float64)((i * 40) + j); /* range: 0 ~ 4-billion */ f32[i][j] = (float32)((i * 40) + j); /* range: 0 ~ 4-billion */ i8[i][j] = (int8) ((i * 10) + j); /* range: 0 ~ 100 */ ui8[i][j] = (uint8) ((i * 20) + j); /* range: 0 ~ 200 */ i16[i][j] = (int16) ((i * 3000) + j); /* range: 0 ~ 30000 */ ui16[i][j] = (uint16) ((i * 6000) + j); /* range: 0 ~ 60000 */ i32[i][j] = (int32) ((i * 20) + j); /* range: 0 ~ 2-billion */ ui32[i][j] = (uint32) ((i * 40) + j); /* range: 0 ~ 4-billion */ } f64scale[i] = (float64)((i * 40) + j); /* range: 0 ~ 4-billion */ f32scale[i] = (float32) ((i * 40) + j); /* range: 0 ~ 4-billion */ i8scale[i] = (int8) ((i * 10) + j); /* range: 0 ~ 100 */ ui8scale[i] = (uint8) ((i * 20) + j); /* range: 0 ~ 200 */ i16scale[i] = (int16) ((i * 3000) + j); /* range: 0 ~ 30000 */ ui16scale[i] = (uint16) ((i * 6000) + j); /* range: 0 ~ 60000 */ i32scale[i] = (int32) ((i * 20) + j); /* range: 0 ~ 2-billion */ ui32scale[i] = (uint32) ((i * 40) + j); /* range: 0 ~ 4-billion */ } ret = DFSDsetdims(rank, dims); RESULT("DFSDsetdims"); MESSAGE(5, printf("Writing arrays to single file...\n"); ); ret = DFSDsetNT(DFNT_NFLOAT64); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) f64scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &f64max, (VOIDP) &f64min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) f64); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NFLOAT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) f32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &f32max, (VOIDP) &f32min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) f32); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NINT8); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) i8scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i8max, (VOIDP) &i8min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) i8); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NUINT8); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) ui8scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui8max, (VOIDP) &ui8min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) ui8); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NINT16); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) i16scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i16max, (VOIDP) &i16min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) i16); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NUINT16); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) ui16scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui16max, (VOIDP) &ui16min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) ui16); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NINT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) i32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &i32max, (VOIDP) &i32min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) i32); RESULT("DFSDadddata"); ret = DFSDsetNT(DFNT_NUINT32); RESULT("DFSDsetNT"); ret = DFSDsetdimscale(1, (int32) 10, (VOIDP) ui32scale); RESULT("DFSDsetdimscale"); ret = DFSDsetrange((VOIDP) &ui32max, (VOIDP) &ui32min); RESULT("DFSDsetrange"); ret = DFSDadddata("nntcheck.hdf", rank, dims, (VOIDP) ui32); RESULT("DFSDadddata"); MESSAGE(5, printf("Reading arrays from single file...\n"); ); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) tf64); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) tf64scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tf64max, (VOIDP) &tf64min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) tf32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) tf32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tf32max, (VOIDP) &tf32min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) ti8); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) ti8scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti8max, (VOIDP) &ti8min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) tui8); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) tui8scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui8max, (VOIDP) &tui8min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) ti16); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) ti16scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti16max, (VOIDP) &ti16min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) tui16); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) tui16scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui16max, (VOIDP) &tui16min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) ti32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) ti32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &ti32max, (VOIDP) &ti32min); RESULT("DFSDgetrange"); ret = DFSDgetdata("nntcheck.hdf", rank, dims, (VOIDP) tui32); RESULT("DFSDgetdata"); ret = DFSDgetdimscale(1, (int32) 10, (VOIDP) tui32scale); RESULT("DFSDgetdimscale"); ret = DFSDgetrange((VOIDP) &tui32max, (VOIDP) &tui32min); RESULT("DFSDgetrange"); MESSAGE(5, printf("Checking arrays from single file...\n\n"); ); err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (f64[i][j] != tf64[i][j]) err = 1; if (f64scale[i] != tf64scale[i]) err2 = 1; } if ((f64max != tf64max) || (f64min != tf64min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for float64 array.\n"); else printf("Test passed for float64 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for float64 scales.\n"); else printf("Test passed for float64 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for float64 max/min.\n"); else printf("Test passed for float64 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (f32[i][j] != tf32[i][j]) err = 1; if (f32scale[i] != tf32scale[i]) err2 = 1; } if ((f32max != tf32max) || (f32min != tf32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for float32 array.\n"); else printf("Test passed for float32 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for float32 scales.\n"); else printf("Test passed for float32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for float32 max/min.\n"); else printf("Test passed for float32 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i8[i][j] != ti8[i][j]) err = 1; if (i8scale[i] != ti8scale[i]) err2 = 1; } if ((i8max != ti8max) || (i8min != ti8min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int8 array.\n"); else printf("Test passed for int8 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int8 scales.\n"); else printf("Test passed for int8 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int8 max/min.\n"); else printf("Test passed for int8 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui8[i][j] != tui8[i][j]) err = 1; if (ui8scale[i] != tui8scale[i]) err2 = 1; } if ((ui8max != tui8max) || (ui8min != tui8min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint8 array.\n"); else printf("Test passed for uint8 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint8 scales.\n"); else printf("Test passed for uint8 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint8 max/min.\n"); else printf("Test passed for uint8 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i16[i][j] != ti16[i][j]) err = 1; if (i16scale[i] != ti16scale[i]) err2 = 1; } if ((i16max != ti16max) || (i16min != ti16min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int16 array.\n"); else printf("Test passed for int16 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int16 scales.\n"); else printf("Test passed for int16 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int16 max/min.\n"); else printf("Test passed for int16 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui16[i][j] != tui16[i][j]) err = 1; if (ui16scale[i] != tui16scale[i]) err2 = 1; } if ((ui16max != tui16max) || (ui16min != tui16min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint16 array.\n"); else printf("Test passed for uint16 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint16 scales.\n"); else printf("Test passed for uint16 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint16 max/min.\n"); else printf("Test passed for uint16 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (i32[i][j] != ti32[i][j]) err = 1; if (i32scale[i] != ti32scale[i]) err2 = 1; } if ((i32max != ti32max) || (i32min != ti32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for int32 array.\n"); else printf("Test passed for int32 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for int32 scales.\n"); else printf("Test passed for int32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for int32 max/min.\n"); else printf("Test passed for int32 max/min.\n");) ; err = 0; err1 = 0; err2 = 0; for (i = 0; i < 10; i++) { for (j = 0; j < 10; j++) if (ui32[i][j] != tui32[i][j]) err = 1; if (ui32scale[i] != tui32scale[i]) err2 = 1; } if ((ui32max != tui32max) || (ui32min != tui32min)) err1 = 1; num_errs += err + err1 + err2; MESSAGE(5, if (err == 1) printf(">>> Test failed for uint32 array.\n"); else printf("Test passed for uint32 array.\n");) ; MESSAGE(5, if (err2 == 1) printf(">>> Test failed for uint32 scales.\n"); else printf("Test passed for uint32 scales.\n");) ; MESSAGE(5, if (err1 == 1) printf(">>> Test failed for uint32 max/min.\n"); else printf("Test passed for uint32 max/min.\n");) ; } libhdf4-4.2.10/HDF_ALT/hdf/test/tutils.h0000644000000000000000000001451512421456623014331 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: tutils.h 6036 2014-01-20 17:28:01Z acheng $ */ #ifndef _TUTILS_H #define _TUTILS_H /* Define these for use in all the tests */ #ifndef TESTMASTER extern #endif int num_errs #ifdef TESTMASTER = 0 #endif , Verbosity #ifdef TESTMASTER = 0 #endif ; /* Use %ld to print the value because long could cover most cases. */ /* Used to make certain a return value _is_not_ a value. If not ture, */ /* print error messages, increment num_err and return. */ #define CHECK(ret, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s returned %ld \n",where,(int)__LINE__,__FILE__,(long)ret);\ if(ret == val) {printf("*** UNEXPECTED RETURN from %s is %ld at line %4d in %s\n", where, (long)ret, (int)__LINE__,__FILE__); num_errs++; return num_errs;} \ } while(0) #define CHECK_VOID(ret, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s returned %ld \n",where,(int)__LINE__,__FILE__,(long)ret);\ if(ret == val) {printf("*** UNEXPECTED RETURN from %s is %ld at line %4d in %s\n", where, (long)ret, (int)__LINE__,__FILE__); num_errs++; return;} \ } while(0) /* Same as CHECK except no return but continue. */ #define CHECK_CONT(ret, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s returned %ld \n",where,(int)__LINE__,__FILE__,(long)ret);\ if(ret == val) {printf("*** UNEXPECTED RETURN from %s is %ld at line %4d in %s\n", where, (long)ret, (int)__LINE__,__FILE__); num_errs++;} \ } while(0) /* If values match, display message supplied by caller. */ #define CHECK_STATUS(status, val, msg) \ do { if(status == val) printf(" %s failed at line %4d in %s\n", msg,(int)__LINE__,__FILE__);\ } while(0) /* Used to validate that 'buffer' has been successfully allocated */ #define CHECK_ALLOC(buffer, buf_name, func_name ) { \ if (buffer == NULL) {\ fprintf(stderr,"in %s: space allocation for %s failed. Terminated!\n",\ func_name, buf_name ); \ exit(1); } \ } /* Used to make certain a return value _is_ a value */ #define VERIFY(x, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s had value %ld \n",where,(int)__LINE__,__FILE__,(long)x);\ if(x != val) {printf("*** UNEXPECTED VALUE from %s is %ld at line %4d in %s\n", where, (long)x,(int)__LINE__,__FILE__); num_errs++; return(num_errs);} \ } while(0) /* Same as VERIFY except return without a value. */ #define VERIFY_VOID(x, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s had value %ld \n",where,(int)__LINE__,__FILE__,(long)x);\ if(x != val) {printf("*** UNEXPECTED VALUE from %s is %ld at line %4d in %s\n", where, (long)x,(int)__LINE__,__FILE__); num_errs++; return;} \ } while(0) /* Same as VERIFY except no return but continue. */ #define VERIFY_CONT(x, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s had value %ld \n",where,(int)__LINE__,__FILE__,(long)x);\ if(x != val) {printf("*** UNEXPECTED VALUE from %s is %ld at line %4d in %s\n", where, (long)x,(int)__LINE__,__FILE__); num_errs++;} \ } while(0) /* Same as VERIFY except that the value has type char* */ #define VERIFY_CHAR(x, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s had value %s \n",where,(int)__LINE__,__FILE__,(long)x);\ if(HDstrcmp(x, val) != 0) {printf("*** UNEXPECTED VALUE from %s is %s at line %4d in %s\n", where, (long)x,(int)__LINE__,__FILE__); num_errs++; return(num_errs);} \ } while(0) /* Same as VERIFY_CHAR except return without a value. */ #define VERIFY_CHAR_VOID(x, val, where) \ do {if (Verbosity>9) printf(" Call to HDF routine: %15s at line %4d in %s had value %s \n",where,(int)__LINE__,__FILE__,(long)x);\ if(HDstrncmp(x, val, HDstrlen(val)) != 0) {printf("*** UNEXPECTED VALUE from %s is %s at line %4d in %s\n", where, (long)x,(int)__LINE__,__FILE__); num_errs++; return;} \ } while(0) #define RESULT(a) \ do { \ if (Verbosity>8) printf(" Call to HDF routine: %15s at line %4d in %s returned %ld \n",a,(int)__LINE__,__FILE__,(long)ret); \ if (Verbosity>9) HEprint(stdout,0); \ if(ret == FAIL) {printf("*** UNEXPECTED RETURN from %s is %ld at line %4d in %s\n", a, (long)ret,(int)__LINE__,__FILE__); num_errs++;} \ } while(0) #define MESSAGE(v,a) {if (Verbosity>v) {a}} /* definitions for command strings */ #define VERBOSITY_STR "Verbosity" #define SKIP_STR "Skip" #define TEST_STR "Test" #define CLEAN_STR "Cleanup" /* Output notices */ #define H4_PASSED() {puts(" PASSED");fflush(stdout);} #define H4_FAILED() {puts("*FAILED*");fflush(stdout);} #define H4_WARNING() {puts("*WARNING*");fflush(stdout);} #define H4_SKIPPED() {puts(" -SKIP-");fflush(stdout);} /* Definition for JPEG tests */ #ifdef DEC_ALPHA #define JPEG_FUZZ 13 #else #define JPEG_FUZZ 1 #endif #define ABS(x) ((int)(x)<0 ? (-x) : x) intn fuzzy_memcmp(const void *s1, const void *s2, int32 len, intn fuzz_factor); void print_mismatched(const void *s1, const void *s2, int32 size2cmp); /* Generate the correct name for the test file, by prepending the source path if it exists, otherwise, assume it is the local directory */ intn make_datafilename(char* basename, char* testfile, unsigned int size); /* System command to use for Cleanup */ # ifdef _WIN32 # define CLEAN_CMD "del *.hdf" # else /* default is Unix */ # define CLEAN_CMD "rm -f *.hdf" # endif /* _WIN32 */ #endif /* _TUTILS_H */ libhdf4-4.2.10/HDF_ALT/hdf/test/tvattr.c0000644000000000000000000006774312421456623014337 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5912 $"; #endif /* $Id: tvattr.c 5912 2013-01-24 23:30:00Z bmribler $ */ /************************************************************** * * tvattr.c * * This program tests routines in hdf/src/vattr.c. Those routines * set or change attributes for a vgroup, a vdata or a field of * a vdata; get info about an attribute; read values of an attr. * * create_vset_stuff() creates 1 empty vgroup and 1 vgroup having 1 * vdata. write_vattr() adds attributes to the vgroups, vdata and * the fields of the vdata. It then creates new vdata and vgroup, * and adds attrs to them. read_vattr reads the attributes back, * and check their correctness. * * test_readattrtwice: tests the fix of bugzilla #486, which a * subsequent read of an attribute failed. - BMR - Dec, 2005. * **************************************************************/ #include "hdf.h" #include "tproto.h" #include "vg.h" #include #define FILENAME "tvattr.hdf" #define VGNAME0 "vgname0" #define VGNAME1 "vgname1" #define VGNAME2 "vgname2" #define VSNAME0 "vsname0" #define VSNAME1 "vsname1" #define VSNAME2 "vsname2" #define VSCLASS0 "vsclass0" #define VGCLASS2 "vgclass2" #define FLDNAME0 "fldname0" #define FLDNAME1 "fldname1" #define FLDNAME2 "fldname2" #define FLDNAMES "fldname0,fldname1" #define FLDNAMES_1 "fldname1,fldname2" #define N_RECS 3 #define ATTNAME1 "attname1" #define ATTNAME2 "attname2" #define ATTNAME3 "attname3" #define ATTNAME4 "attname4" #define ATTNAME5 "attname5" #define ATTNAME6 "attname6" #define ATTNAME7 "attname7" #define ATTNAME8 "attname8" #define ATTNAME9 "attname9" #define ATTNAME10 "attname10" #define EPS64 (float64)1.0E-14 #define EPS32 (float32)1.0E-7 #define MAX_HDF4_NAME_LENGTH 256 int32 data1[6]={0,-1,10,11,20,21}, idata1[6]; char data2[6] = {'A','B','C','D','E','F'}, idata2[6]; uint16 attr2[2] = {16, 32}, iattr2[2]; uint32 attr1[4] = {100, 132, 10032, 10064}, iattr1[2]; char attr3[6] = {'m','N','p', 'S', 't', '\0'}, iattr3[6]; float32 attr4[2] = {(float32)32.001, (float32)-34.002}, iattr4[2]; float64 attr5[2] = {64.12345, -64.12345}, iattr5[2]; static intn create_vset_stuff(void); static intn write_vattrs(void); static intn read_vattrs(void); static void test_readattrtwice(void); /* create vdatas and vgroups */ static intn create_vset_stuff(void) { int32 fid, vgid, vsid; if (FAIL == (fid = Hopen(FILENAME, DFACC_CREATE, 0))) { num_errs++; return FAIL; } if (Vstart(fid) == FAIL) { num_errs++; return FAIL; } /* Vgroup Generation */ if (FAIL == (vgid = (Vattach(fid, -1, "w")))) { num_errs++; return FAIL; } if (FAIL == Vsetname(vgid, VGNAME0)) { num_errs++; return FAIL; } if (FAIL == Vdetach(vgid)) { num_errs++; return FAIL; } /* create a vgroup and a vdata, insert the vdata into the vgroup */ if (FAIL == (vgid = (Vattach(fid, -1, "w")))) { num_errs++; return FAIL; } if (FAIL == Vsetname(vgid, VGNAME1)) { num_errs++; return FAIL; } if (FAIL == (vsid = (VSattach(fid, -1, "w")))) { num_errs++; return FAIL; } if (FAIL == VSsetname(vsid, VSNAME1)) { num_errs++; return FAIL; } if (FAIL == VSfdefine(vsid, FLDNAME1, DFNT_CHAR8, 1)) { num_errs++; return FAIL; } if (FAIL == VSfdefine(vsid, FLDNAME2, DFNT_CHAR8, 1)) { num_errs++; return FAIL; } if (FAIL == VSsetfields(vsid, FLDNAMES_1)) { num_errs++; return FAIL; } if (N_RECS != VSwrite(vsid, (unsigned char *)data2, N_RECS, FULL_INTERLACE)) { num_errs++; return FAIL; } if (FAIL == Vinsert(vgid, vsid)) { num_errs++; return FAIL; } if (FAIL == VSdetach(vsid)) { num_errs++; return FAIL; } if (FAIL == Vdetach(vgid)) { num_errs++; return FAIL; } /* close the file */ if (FAIL == Vend(fid)) { num_errs++; return FAIL; } if (FAIL == Hclose(fid)) { num_errs++; return FAIL; } return SUCCEED; } /* create_vset_stuff */ /* test attribute routines */ static intn write_vattrs(void) { int32 fid, vgid, vsid; int32 vsref, vgref; int32 fldindex, vsversion; intn n_flds; /* add attrs to the 1 vg */ if (FAIL == (fid = Hopen(FILENAME, DFACC_RDWR, -1))) { num_errs++; return FAIL; } if (Vstart(fid) == FAIL) { num_errs++; return FAIL; } if (FAIL == (vgref = Vgetid(fid, -1))) { num_errs++; return FAIL; } if (FAIL == (vgid = Vattach(fid, vgref, "w"))) { num_errs++; return FAIL; } if (FAIL == Vsetattr(vgid, ATTNAME1, DFNT_UINT32, 2, attr1)) { num_errs++; printf(">>> Vsetattr1 failed\n"); } /* change data type of existing attr, should fail */ if (FAIL != Vsetattr(vgid, ATTNAME1, DFNT_UINT16, 2, attr2)) { num_errs++; printf(">>> Vsetattr1 changes attr type, should failed\n"); } /* change order of existing attr, should fail */ if (FAIL != Vsetattr(vgid, ATTNAME1, DFNT_UINT32, 1, attr1)) { num_errs++; printf(">>> Vsetattr changes attr order, should failed\n"); } /* change values of existing attr */ if (FAIL == Vsetattr(vgid, ATTNAME1, DFNT_UINT32, 2, &attr1[2])) { num_errs++; printf(">>> Vsetattr failed in changing attr values.\n"); } if (FAIL == Vsetattr(vgid, ATTNAME2, DFNT_UINT16, 2, attr2)) { num_errs++; printf(">>> Vsetattr2 failed\n"); } if (FAIL == Vdetach(vgid)) { num_errs++; return FAIL; } /* add attr to vdata */ if (FAIL == (vsref = VSfind(fid, VSNAME1))) { num_errs++; return FAIL; } if (FAIL == (vsid = VSattach(fid, vsref, "w"))) { num_errs++; return FAIL; } if (VSET_VERSION != (vsversion = VSgetversion(vsid))) { num_errs++; printf(">>> Wrong version, should be 3, got %d \n", (int)vsversion); } /* check number of fields */ if (2 != (n_flds = VFnfields(vsid))) { num_errs++; printf(">>> Wrong number of fields, should be 2, got %d.\n", n_flds); } /* search for non-existing field */ if (FAIL != VSfindex(vsid, FLDNAME0, &fldindex)) { num_errs++; printf(">>> Search for non-existing field, should fail.\n"); } if (FAIL == VSsetattr(vsid, _HDF_VDATA, ATTNAME3, DFNT_CHAR8, 3, attr3)) { num_errs++; printf(">>> VSsetattr3 failed\n"); } if (FAIL == VSfindex(vsid, FLDNAME1, &fldindex) || fldindex != 0) { num_errs++; printf(">>> VSfindex failed in search for FLDNAME1 .\n"); } if (FAIL == VSsetattr(vsid, 0, ATTNAME4, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr4 failed\n"); } if (FAIL == VSfindex(vsid, FLDNAME2, &fldindex) || fldindex != 1) { num_errs++; printf(">>> VSfindex failed in search for FLDNAME2 .\n"); } if (FAIL == VSsetattr(vsid, 1, ATTNAME5, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr5 failed\n"); } if (FAIL != VSsetattr(vsid, 2, ATTNAME3, DFNT_CHAR8,5, attr3)) { num_errs++; printf(">>> Set attr for non-existing field, should fail\n"); } if (FAIL != VSsetattr(vsid, -2, ATTNAME3, DFNT_CHAR8,5, attr3)) { num_errs++; printf(">>> Set attr for non-existing field, should fail\n"); } /* set same attr name to different fields */ if (FAIL == VSsetattr(vsid, _HDF_VDATA, ATTNAME4, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr6 failed\n"); } if (FAIL == VSsetattr(vsid, 0, ATTNAME5, DFNT_FLOAT64,1, attr5)) { num_errs++; printf(">>> VSsetattr5 failed\n"); } /* create an attribute with the same name as an existing vdata */ if (FAIL == VSsetattr(vsid, 0, VSNAME1, DFNT_FLOAT64,1, attr5)) { num_errs++; printf(">>> VSsetattr7 failed\n"); } if (VSET_NEW_VERSION != (vsversion = VSgetversion(vsid))) { num_errs++; printf(">>> Wrong version, should be 4, got %d \n", (int)vsversion); } /* change datatype of existing attr, should fail */ if (FAIL != VSsetattr(vsid, 0, ATTNAME5, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr changes attr type, should fail.\n"); } /* change order of existing attr, should fail */ if (FAIL != VSsetattr(vsid, 0, ATTNAME5, DFNT_FLOAT64,2, attr5)) { num_errs++; printf(">>> VSsetattr changes attr order, should fail.\n"); } /* change values of existing attr */ if (FAIL == VSsetattr(vsid, 0, ATTNAME5, DFNT_FLOAT64,1, &attr5[1])) { num_errs++; printf(">>> VSsetattr failed in changing attr values.\n"); } if (FAIL == VSdetach(vsid)) { num_errs++; return FAIL; } /* create lone vdata and add attributes to it */ if (FAIL == (vsid = (VSattach(fid, -1, "w")))) { num_errs++; return FAIL; } if (FAIL == VSsetname(vsid, VSNAME0)) { num_errs++; return FAIL; } if (FAIL == VSfdefine(vsid, FLDNAME0, DFNT_INT32, 1)) { num_errs++; return FAIL; } if (FAIL == VSfdefine(vsid, FLDNAME1, DFNT_INT32, 1)) { num_errs++; return FAIL; } if (FAIL == VSsetfields(vsid, FLDNAMES)) { num_errs++; return FAIL; } if (N_RECS != VSwrite(vsid, (unsigned char *)data1, N_RECS, FULL_INTERLACE)) { num_errs++; return FAIL; } if (FAIL == VSfindex(vsid, FLDNAME0, &fldindex)) { num_errs++; printf(">>> VSfindex failed in searching for FLDNAME0.\n"); } if (FAIL == VSsetattr(vsid, 0, ATTNAME6, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr6 failed\n"); } if (FAIL == VSsetattr(vsid, _HDF_VDATA, ATTNAME7, DFNT_CHAR8,3, attr3)) { num_errs++; printf(">>> VSsetattr7 failed\n"); } if (FAIL == VSfindex(vsid, FLDNAME1, &fldindex) || fldindex != 1) { num_errs++; printf(">>> VSfindex failed in searching for FLDNAME1.\n"); } if (FAIL == VSsetattr(vsid, 0, ATTNAME8, DFNT_FLOAT32,1, attr4)) { num_errs++; printf(">>> VSsetattr8 failed\n"); } if (FAIL == VSdetach(vsid)) { num_errs++; return FAIL; } /* attach again, and modify attr */ if (FAIL == (vsref = VSfind(fid, VSNAME0))) { num_errs++; return FAIL; } if (FAIL == (vsid = VSattach(fid, vsref, "w"))) { num_errs++; return FAIL; } if (FAIL == VSsetclass(vsid, VSCLASS0)) { num_errs++; return FAIL; } if (FAIL == VSsetattr(vsid, 1, ATTNAME8, DFNT_FLOAT32,1, &attr4[1])) { num_errs++; printf(">>> VSsetattr failed in modifying attr8.\n"); } if (FAIL == VSsetattr(vsid, 0, ATTNAME9, DFNT_CHAR8,5, attr3)) { num_errs++; printf(">>> VSsetattr9 field. \n"); } if (FAIL == VSdetach(vsid)) { num_errs++; return FAIL; } /* attach again with "r" access to test VSsetattr on "r" access vdata BMR - Nov 4, 2004 */ if (FAIL == (vsref = VSfind(fid, VSNAME0))) { num_errs++; return FAIL; } if (FAIL == (vsid = VSattach(fid, vsref, "r"))) { num_errs++; return FAIL; } if (FAIL != VSsetattr(vsid, 1, "NO ATTRIBUTE", DFNT_FLOAT32,1, &attr4[1])) { num_errs++; printf(">>> VSsetattr did not fail on read access vdata.\n"); } if (FAIL == VSdetach(vsid)) { num_errs++; return FAIL; } /* create vgroup and add attrs */ if (FAIL == (vgid = (Vattach(fid, -1, "w")))) { num_errs++; return FAIL; } if (FAIL == Vsetname(vgid, VGNAME2)) { num_errs++; return FAIL; } if (FAIL == Vaddtagref(vgid, DFTAG_VH, vsref)) { num_errs++; return FAIL; } if (FAIL == Vsetclass(vgid, VGCLASS2)) { num_errs++; return FAIL; } if (FAIL == Vdetach(vgid)) { num_errs++; return FAIL; } /* attach again, add attr */ if (FAIL == (vgref = Vfind(fid, VGNAME2))) { num_errs++; return FAIL; } if (FAIL == (vgid = (Vattach(fid, vgref, "w")))) { num_errs++; return FAIL; } if (FAIL == Vsetattr(vgid, ATTNAME9, DFNT_UINT32, 1, attr1)) { num_errs++; printf(">>> Vsetattr1 failed\n"); } /* change data type of existing attr, should fail */ if (FAIL != Vsetattr(vgid, ATTNAME9, DFNT_UINT16, 1, attr2)) { num_errs++; printf(">>> Vsetattr changes attr type, should failed\n"); } if (FAIL == Vsetattr(vgid, ATTNAME10, DFNT_UINT16, 2, attr2)) { num_errs++; printf(">>> Vsetattr1 failed\n"); } if (FAIL == Vdetach(vgid)) { num_errs++; printf(">>> Vdetach failed in vgname2.\n"); } if (FAIL == Vend(fid)) { num_errs++; return FAIL; } if (FAIL == Hclose(fid)) { num_errs++; return FAIL; } return SUCCEED; } /* write_vattr */ /* Test reading routines */ static intn read_vattrs(void) { int32 fid, vgid, vsid, vgref, vsref; intn n_vgattrs, n_vsattrs, n_fldattrs; intn iattrindex, ret; int32 i_type, i_count, i_size, iversion; char iattrname[FIELDNAMELENMAX+1]; if (FAIL == (fid = Hopen(FILENAME, DFACC_RDONLY, 0))) { num_errs++; return FAIL; } if (Vstart(fid) == FAIL) { num_errs++; return FAIL; } /* Read vgroup attrs first */ if (FAIL == (vgref = Vfind(fid, VGNAME0))) { num_errs++; return FAIL; } if (FAIL == (vgid = (Vattach(fid, vgref, "r")))) { num_errs++; return FAIL; } if ((iversion = Vgetversion(vgid)) < VSET_NEW_VERSION) { num_errs++; printf(">>> Wrong Vgroup version, should be %d, got %d.\n", VSET_NEW_VERSION, (int)iversion); } if (FAIL == (n_vgattrs = Vnattrs(vgid)) || n_vgattrs != 2) { num_errs++; printf(">>> Wrong num of Vgroup0 attrs, should be %d, got %d.\n", 2, n_vgattrs); } if (0 != (iattrindex = Vfindattr(vgid, ATTNAME1))) { num_errs++; printf(">>> attname1 should be 0th attr of vgname0, "); printf("not %d.\n", iattrindex); } if (FAIL == Vattrinfo(vgid,0,iattrname,&i_type,&i_count,&i_size) || HDstrncmp(iattrname, ATTNAME1, HDstrlen(ATTNAME1)) != 0 || i_type != DFNT_UINT32 || i_count != 2 || i_size != i_count * DFKNTsize(DFNT_UINT32 | DFNT_NATIVE)) { num_errs++; printf(">>> Wrong attrinfo for attname1 of vgname0; \ got %s %d %d %d.\n", iattrname, (int)i_type,(int)i_count,(int)i_size); } if (FAIL == Vgetattr(vgid, 0, iattr1) || iattr1[0] != attr1[2] || iattr1[1] != attr1[3]) { num_errs++; printf(">>> Wrong values for attname1 of vgname0; "); printf("got %u %u, should be %u %u.\n", (unsigned)iattr1[0], (unsigned)iattr1[1], (unsigned)attr1[2], (unsigned)attr1[3]); } if (FAIL == Vattrinfo(vgid,1,iattrname,&i_type,&i_count,&i_size) || HDstrncmp(iattrname, ATTNAME2,HDstrlen(ATTNAME2)) != 0 || i_type != DFNT_UINT16 || i_count != 2 || i_size != i_count * DFKNTsize(DFNT_UINT16 | DFNT_NATIVE)) { num_errs++; printf(">>> Wrong attrinfo for attname2 of vgname0; \ got %s %d %d %d.\n", iattrname, (int)i_type,(int)i_count,(int)i_size); } if (FAIL == Vgetattr(vgid, 1, iattr2) || iattr2[0] != attr2[0] || iattr2[1] != attr2[1]) { num_errs++; printf(">>> Wrong values for attname2 of vgname0; \ got %u %u, should be %u %u.\n", iattr2[0], iattr2[1], attr2[0], attr2[1]); } if (FAIL == Vdetach(vgid)) { num_errs++; printf(">>>Vdetach failed in vgname0.\n"); } /* VGNAME1 has no attr */ if (FAIL == (vgref = Vfind(fid, VGNAME1))) { num_errs++; return FAIL; } if (FAIL == (vgid = (Vattach(fid, vgref, "r")))) { num_errs++; return FAIL; } if ((iversion = Vgetversion(vgid)) != VSET_VERSION) { num_errs++; printf(">>> Wrong Vgroup version, should be %d, got %d.\n", VSET_VERSION, (int)iversion); } if (FAIL == (n_vgattrs = Vnattrs(vgid)) || n_vgattrs != 0) { num_errs++; printf(">>> Wrong num of Vgroup1 attrs, should be %d, got %d.\n", 0, n_vgattrs); } if (FAIL == Vdetach(vgid)) { num_errs++; printf(">>>Vdetach failed in detaching vgname1.\n"); } /* VSNAME0 has 5 attrs */ if (FAIL == (vsref = VSfind(fid, VSNAME0))) { num_errs++; return FAIL; } if (FAIL == (vsid = (VSattach(fid, vsref, "r")))) { num_errs++; return FAIL; } if ((iversion = VSgetversion(vsid)) != VSET_NEW_VERSION) { num_errs++; printf(">>> Wrong Vdata version, should be %d, got %d.\n", VSET_NEW_VERSION, (int)iversion); } if (FAIL == (n_vsattrs = VSnattrs(vsid)) || n_vsattrs != 5) { num_errs++; printf(">>> Wrong num of Vsname0 attrs, should be %d, got %d.\n", 5, n_vsattrs); } /* get num of attrs of fld 1 */ if (FAIL == (n_fldattrs = VSfnattrs(vsid, 1)) || n_fldattrs != 1) { num_errs++; printf(">>> Wrong num of Vsname0 fld 1 attrs, "); printf("should be %d, got %d.\n ", 1, n_vsattrs); } /* read the 3rd attr of fld 0. The attr is char type. */ if ((FAIL == VSattrinfo(vsid, 0, 2, iattrname, &i_type, &i_count, &i_size)) || (HDstrcmp(iattrname, ATTNAME9) != 0) || (i_type != DFNT_CHAR8) || (i_count != 5) || (i_size != 5)) { num_errs++; printf(">>> Wrong attrinfo for attname9 of vsname0 fld0; "); printf(" got %s %d %d %d.\n", iattrname, (int)i_type, (int)i_count, (int)i_size); } if (FAIL == VSgetattr(vsid, 0, 2, iattr3) || iattr3[0] != attr3[0] || iattr3[1] != attr3[1] || iattr3[2] != attr3[2] || iattr3[3] != attr3[3] || iattr3[4] != attr3[4] ) { num_errs++; printf(">>> Wrong values for attname9 of vsname0; \ got %5s, should be %5s.\n", iattr3, attr3); } if (FAIL == VSdetach(vsid)) { num_errs++; printf(">>>Vsdetach failed in vsname0.\n"); } /* VSNAME1 has 2 attrs, fld0 has 3 and fld1 has 1 attr */ if (FAIL == (vsref = VSfind(fid, VSNAME1))) { num_errs++; return FAIL; } if (FAIL == (vsid = (VSattach(fid, vsref, "r")))) { num_errs++; return FAIL; } if ((iversion = VSgetversion(vsid)) != VSET_NEW_VERSION) { num_errs++; printf(">>> Wrong Vdata version, should be %d, got %d.\n", VSET_NEW_VERSION, (int)iversion); } if (FAIL == (n_vsattrs = VSnattrs(vsid)) || n_vsattrs != 6) { num_errs++; printf(">>> Wrong num of Vsname1 attrs, should be %d, ",6); printf("got %d.\n", n_vsattrs); } if (FAIL == (n_fldattrs = VSfnattrs(vsid, _HDF_VDATA)) || n_fldattrs != 2) { num_errs++; printf(">>> Wrong num of Vsname1 vdata attrs, "); printf("should be %d, got %d.\n ", 2, n_fldattrs); } /* look for non-existing attr, should fail */ if (FAIL != (iattrindex = VSfindattr(vsid, _HDF_VDATA, ATTNAME9))) { num_errs++; printf(">>> attname9 is not an attr of vdata vsname1, "); printf(" should fail.\n"); } /* use wrong findex, should fail */ if (FAIL != (iattrindex = VSfindattr(vsid, 3, ATTNAME9))) { num_errs++; printf(">>> Vdata vsname1 has only 2 fields, "); printf(" should fail.\n"); } /* use wrong findex, should fail */ if (FAIL != VSattrinfo(vsid, 4, 0, NULL, &i_type, &i_count, &i_size)) { num_errs++; printf(">>> Vdata vsname1 has only 2 fields, should fail.\n"); } /* use wrong attrindex, should fail */ if (FAIL != VSattrinfo(vsid, 1, 3, iattrname, &i_type, &i_count, NULL)) { num_errs++; printf(">>> Field1 of vsname1 has only 1 attr, should fail.\n"); } /* use wrong findex, should fail */ if (FAIL != VSgetattr(vsid, 4, 0, iattr1)) { num_errs++; printf(">>> Vdata vsname1 has only 2 fields, should fail.\n"); } /* use wrong attrindex, should fail */ if (FAIL != VSgetattr(vsid, 1, 3, iattr1)) { num_errs++; printf(">>> Field1 of vsname1 has only 1 attr, should fail.\n"); } /* get the 2nd attr */ if ((FAIL == (iattrindex = VSfindattr(vsid, _HDF_VDATA, ATTNAME4))) || (iattrindex != 1)) { num_errs++; printf(">>> attname4 should be index 1 of vsname1, not %d.\n", iattrindex); } if ((FAIL == VSattrinfo(vsid, _HDF_VDATA, iattrindex, iattrname, &i_type, &i_count, &i_size)) || (HDstrcmp(iattrname, ATTNAME4) != 0) || (i_type != DFNT_FLOAT32) || (i_count != 1) || (i_size != DFKNTsize(DFNT_FLOAT | DFNT_NATIVE))) { num_errs++; printf(">>> Wrong attrinfo for attname4 of vdata vsname1; "); printf(" got %s %d %d.\n", iattrname, (int)i_type,(int)i_count); } if (FAIL == VSgetattr(vsid, _HDF_VDATA, 1, iattr4) || (fabs((double)(iattr4[0] - attr4[0])) > fabs((double)(attr4[0]*EPS32)))) { num_errs++; printf(">>> Wrong values for attname4 of vsname1; \ got %f, should be %f.\n", iattr4[0], attr4[0]); } if (FALSE != VSisattr(vsid)) { num_errs++; printf(">>> VSisattr failed. Vsname1 is not attribute vdata.\n"); } /* get the 3rd attr of fld0. The attr name is VSNAME1 */ if ((FAIL == (iattrindex = VSfindattr(vsid, 0, VSNAME1))) || (iattrindex != 2)) { num_errs++; printf(">>> VSNAME1 should be index 2 of fld 0 of vsname1,"); printf(" not %d.\n", iattrindex); } if ((FAIL == VSattrinfo(vsid, 0, iattrindex, iattrname, &i_type, &i_count, &i_size)) || (HDstrcmp(iattrname, VSNAME1) != 0) || (i_type != DFNT_FLOAT64) || (i_count != 1) || (i_size != DFKNTsize(DFNT_FLOAT64 | DFNT_NATIVE))) { num_errs++; printf(">>> Wrong attrinfo for VSNAME1 of fld 0 of vdata vsname1; "); printf(" got %s %d %d.\n", iattrname, (int)i_type,(int)i_count); } if (FAIL == VSgetattr(vsid, 0, 2, iattr5) || (fabs((double)(iattr5[0] - attr5[0])) > fabs((double)(attr5[0]*EPS64))) ) { num_errs++; printf(">>> Wrong values for attr VSNAME1 of fld 0 of vsname1; \ got %f, should be %f.\n", iattr5[0], attr5[0]); } if (FAIL == VSdetach(vsid)) { num_errs++; printf(">>>VSdetach failed in vsname1.\n"); } /* test VSisattr for attr vdata */ if (FAIL == (vsref = VSfind(fid, ATTNAME10))) { num_errs++; return FAIL; } if (FAIL == (vsid = (VSattach(fid, vsref, "r")))) { num_errs++; return FAIL; } if (TRUE != VSisattr(vsid)) { num_errs++; printf(">>> VSisattr failed. ATTNAME10 is an attribute vdata.\n"); } if (VSET_VERSION != (iversion = VSgetversion(vsid))) { num_errs++; printf(">>> Wrong vdata version. ATTNAME10 should be of "); printf(" %d, got %d\n", VSET_VERSION, (int)iversion); } ret = VSdetach(vsid); CHECK(ret, FAIL, "VSdetach"); ret = Vend(fid); CHECK(ret, FAIL, "Vend"); ret = Hclose(fid); CHECK(ret, FAIL, "Hclose"); return 0; } static void test_readattrtwice(void) { int32 file_id, vsref, vsid; int32 findex, fattr_index; int32 data_type, count, size; int32 nfields, num_attrs, num_fattrs; char name[MAX_HDF4_NAME_LENGTH + 1]; char *buffer; int k; intn ret; file_id = Hopen(FILENAME, DFACC_READ, 0); CHECK_VOID(file_id,FAIL,"Hopen:FILENAME"); ret = Vstart(file_id); CHECK_VOID(ret,FAIL,"Vstart:file_id"); /* get the first vdata */ vsref = VSgetid(file_id, -1); if (vsref == FAIL) { num_errs++; printf(">>> VSgetid was unable to find first Vdata\n"); } /* read attributes of each vdata and its fields, then go to next vdata */ while (vsref != -1) { vsid = VSattach(file_id, vsref, "r"); CHECK_VOID(vsid,FAIL,"VSattach"); num_attrs = VSfnattrs(vsid, _HDF_VDATA); CHECK_VOID(num_attrs,FAIL,"VSfnattrs"); for (k = 0; k < num_attrs; k++) { ret = VSattrinfo(vsid, _HDF_VDATA, k, name, &data_type, &count, &size); CHECK_VOID(ret,FAIL,"VSattrinfo"); buffer = HDmalloc(size+1); CHECK_VOID(buffer,NULL,"HDmalloc"); ret = VSgetattr(vsid, _HDF_VDATA, k, buffer); CHECK_VOID(ret,FAIL,"VSgetattr"); ret = VSgetattr(vsid, _HDF_VDATA, k, buffer); if (ret == FAIL) { num_errs++; printf(">>> Reading attribute twice failed - (bugzilla 486)\n"); } HDfree(buffer); nfields = VFnfields(vsid); CHECK_VOID(nfields,FAIL,"VFnfields"); for (findex = 0; findex < nfields; findex++) { num_fattrs = VSfnattrs(vsid, findex); CHECK_VOID(num_fattrs,FAIL,"VSfnattrs"); for (fattr_index = 0; fattr_index < num_fattrs; fattr_index++) { ret = VSattrinfo(vsid, findex, fattr_index, name, &data_type, &count, &size); CHECK_VOID(ret,FAIL,"VSattrinfo"); buffer = HDmalloc(size); CHECK_VOID(buffer,NULL,"HDmalloc"); ret = VSgetattr(vsid, findex, fattr_index, buffer); CHECK_VOID(ret,FAIL,"VSgetattr"); ret = VSgetattr(vsid, findex, fattr_index, buffer); if (ret == FAIL) { num_errs++; printf(">>> Reading attribute twice failed - (bugzilla 486)\n"); } HDfree(buffer); } /* for fattr_index */ } /* for findex */ } /* for k */ ret = VSdetach(vsid); CHECK_VOID(ret,FAIL,"VSdetach"); /* find next vdata */ vsref = VSgetid(file_id, vsref); } ret = Vend(file_id); CHECK_VOID(ret,FAIL,"VSdetach"); ret = Hclose(file_id); CHECK_VOID(ret,FAIL,"Hclose"); } /* test_readattrtwice */ /* main test driver */ void test_vset_attr(void) { create_vset_stuff(); write_vattrs(); read_vattrs(); test_readattrtwice(); } /* test_vset_attr */ libhdf4-4.2.10/HDF_ALT/hdf/test/tpf.f0000644000000000000000000001625212421456623013574 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: tpf.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine tpf (number_failed) C program tpff implicit none include 'fortest.inc' C C C Test program: Writes palettes in a file. C Reads palettes from the file. C Writes palette with specified reference number. C Reads palette with specified reference number. C C Input file: none C C Output file: tpalf.hdf C C integer number_failed character*20 myname parameter (myname = 'p') integer dpppal, dpapal, dprest, dpgpal, dpnpals integer dprref, dpwref integer dplref character*64 TESTFILE character*1 CR character pal1(768), pal2(768), ipal(768) integer ret, ref integer ref1, ref2, newref1, newref2 integer i call ptestban('Testing', myname) TESTFILE = 'tpalf.hdf' CR = char(10) number_failed = 0 ref = 0 C C Initialize pal1 as {1, 2, 3, 4, 5, ...} C Initialize pal2 as {1, 1, 1, 2, 2, 2, ...} do 100 i = 0, 255 pal1(3*i + 1) = char(i) pal1(3*i + 2) = char(i) pal1(3*i + 3) = char(i) pal2(i + 1) = char(i) pal2(i + 256 + 1) = char(i) pal2(i + 512 + 1) = char(i) 100 continue C C Write out pal1, then pal2. C Keep their ref number in ref1 and ref2. call MESSAGE(VERBO_HI, 'Putting pal1 in new file.') ret = dpppal(TESTFILE, pal1, 0, 'w') call VRFY(ret, 'dpppal', number_failed) call MESSAGE(VERBO_HI, 'Getting ref1') ref1 = dplref() ref = ref1*1 call VRFY(ref, 'dplref', number_failed) C VRFY expects an integer, but ref1 is only integer*2. The C expression promotes it to an integer expression. call MESSAGE(VERBO_HI, 'Putting pal2 in file') ret = dpapal(TESTFILE, pal2) call VRFY(ret, 'dpapal', number_failed) call MESSAGE(VERBO_HI, 'Getting ref2') ref2 = dplref() ref = ref2*1 call VRFY(ref, 'dplref', number_failed) C C Reset the palettes for reading call MESSAGE(VERBO_HI, 'Restarting palette interface') ret = dprest() call VRFY(ret, 'dprest', number_failed) C C Get palette 1 and match it with pal1 call MESSAGE(VERBO_HI, 'Reading pal1') ret = dpgpal(TESTFILE, ipal) call VRFY(ret, 'dpgpal', number_failed) do 200 i=1, 768 if (ipal(i) .ne. pal1(i)) then print *, 'Error at ', i, ', ipal:', ipal(i), * ' pal1(i):', pal1(i) endif 200 continue C C verify the ref number is updated correctly too call MESSAGE(VERBO_HI, 'Getting newref1') newref1 = dplref() if (newref1 .ne. ref1) then print *, 'Error: newref1 is ', newref1, ', should be ', ref1 number_failed = number_failed + 1 endif C C Get palette 2 and match it with pal2 call MESSAGE(VERBO_HI, 'Reading pal2.') ret = dpgpal(TESTFILE, ipal) call VRFY(ret, 'dpgpal', number_failed) do 300 i=1, 768 if (ipal(i) .ne. pal2(i)) then print *, 'Error at ', i, ', ipal:', ipal(i), * ' pal2:', pal2(i) endif 300 continue C C Again verify the ref number call MESSAGE(VERBO_HI, 'Getting ref2') newref2 = dplref() if (newref2 .ne. ref2) then print *, 'Error: newref2 is ', newref2, ', should be ', ref2 number_failed = number_failed + 1 endif C C Check number of palettes call MESSAGE(VERBO_HI, 'Getting number of palettes') ret = dpnpals(TESTFILE) if (ret .ne. 2) then print *, 'Error: number of palette is ', ret, ', should be 2' number_failed = number_failed + 1 endif C C Explicitly set to palette of ref2 for reading call MESSAGE(VERBO_HI, 'Setting read ref to ref2.') ret = dprref(TESTFILE, ref2) call VRFY(ret, 'dprref', number_failed) call MESSAGE(VERBO_HI, 'Reading pal2') ret = dpgpal(TESTFILE, ipal) call VRFY(ret, 'dpgpal', number_failed) newref2 = dplref() if (newref2 .ne. ref2) then print *, 'Error: newref2 is ', newref2, ', should be ', ref2 number_failed = number_failed + 1 endif C C match it with pal2 do 400 i=1, 768 if (ipal(i) .ne. pal2(i)) then print *, 'Error at ', i, ', ipal:', ipal(i), * ' pal2:', pal2(i) endif 400 continue C C Explicitly set to palette of ref1 for reading call MESSAGE(VERBO_HI, 'Setting read ref to ref1.') ret = dprref(TESTFILE, ref1) call VRFY(ret, 'dprref', number_failed) call MESSAGE(VERBO_HI, 'Reading pal1') ret = dpgpal(TESTFILE, ipal) call VRFY(ret, 'dpgpal', number_failed) newref1 = dplref() if (newref1 .ne. ref1) then print *, 'Error: newref1 is ', newref1, ', should be ', ref1 number_failed = number_failed + 1 endif C C match it with pal1 do 500 i=1, 768 if (ipal(i) .ne. pal1(i)) then print *, 'Error at ', i, ', ipal:', ipal(i), * ' pal1:', pal1(i) endif 500 continue C C Modify the middle chunk of pal1 and replace its file copy. call MESSAGE(VERBO_HI, 'Modifying pal1') do 600 i=1,256 pal1(i+256) = char(256-i) 600 continue call MESSAGE(VERBO_HI, 'Setting write ref to ref1') ret = dpwref(TESTFILE, ref1) call VRFY(ret, 'dpwref', number_failed) call MESSAGE(VERBO_HI, 'Writing pal1') ret = dpppal(TESTFILE, pal1, 1, 'a') call VRFY(ret, 'dpppal', number_failed) ret=dplref() C print *,'last ref is: ', ret call MESSAGE(VERBO_HI, 'setting read ref to ref1') ret = dprref(TESTFILE, ref1) call VRFY(ret, 'dprref', number_failed) call MESSAGE(VERBO_HI, 'Reading pal1') ret = dpgpal(TESTFILE, ipal) call VRFY(ret, 'dpgpal', number_failed) do 700 i=1, 768 if (ipal(i) .ne. pal1(i)) then print *, 'Error at ', i, ', ipal:', ipal(i), * ' pal1:', pal1(i) endif 700 continue if (number_failed .eq. 0) then call MESSAGE(VERBO_DEF + 1, + '****** ALL TESTS SUCCESSFUL ******') else print *, '****** ', number_failed, ' TESTS FAILES ******' endif return end libhdf4-4.2.10/HDF_ALT/hdf/test/gentest.c0000644000000000000000000001440612421456623014450 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: gentest.c 5210 2009-08-21 20:27:12Z brtnfld $ */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 5210 $"; #endif /* FILE gentest.c Generate files for HDF testing. REMARKS This may be a bit of a kludge in some cases, because it's hard to determine correct output if you don't know if the routine you are generating the test is working yet. DESIGN Each test should have a seperate function which creates the datafiles necessary for testing it. BUGS/LIMITATIONS EXPORTED ROUTINES none AUTHOR Quincey Koziol MODIFICATION HISTORY 10/27/93 - Started coding. 1/20/94 - Added N-bit test generation. */ #include "hdf.h" /* Local definitions of filenames and tag/refs of data in them. */ #define BITIO_NAME "test_files/bitio.dat" #define BITIO_TAG1 1000 #define BITIO_REF1 1000 #define BITIO_SIZE1 4096 #define NBIT_NAME "test_files/nbit.dat" #define NBIT_TAG1 (uint16)1000 #define NBIT_REF1 (uint16)1000 #define NBIT_SIZE1 4096 #define NBIT_BITS1 6 static int gen_bitio_test(void); static int gen_nbit_test(void); /*-------------------------------------------------------------------------- NAME gen_bitio_test -- create datafiles for bitio test USAGE int gen_bitio_test() RETURNS returns SUCCEED or FAIL DESCRIPTION Writes out a sample dataset to the bitio datafile so that we can test bitio reading before bitio writing. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ static int gen_bitio_test(void) { int32 fid; /* file ID of bitio HDF file */ uint8 *bit_data; /* pointer to the data to store in the datafile */ intn i; /* local counting variable */ if ((fid = Hopen(BITIO_NAME, DFACC_CREATE, 0)) == FAIL) return (FAIL); if ((bit_data = (uint8 *) HDmalloc(BITIO_SIZE1 * sizeof(uint8))) == NULL) { Hclose(fid); return (FAIL); } /* end if */ for (i = 0; i < BITIO_SIZE1; i++) /* fill with pseudo-random data */ bit_data[i] = (uint8)((i * 3) % 256); if (FAIL == Hputelement(fid, BITIO_TAG1, BITIO_REF1, bit_data, BITIO_SIZE1)) { HDfree(bit_data); Hclose(fid); return (FAIL); } /* end if */ HDfree(bit_data); if (FAIL == Hclose(fid)) return (FAIL); return (SUCCEED); } /* end gen_bitio_test() */ /*-------------------------------------------------------------------------- NAME gen_nbit_test -- create datafiles for n-bit test USAGE int gen_nbit_test() RETURNS returns SUCCEED or FAIL DESCRIPTION Writes out a sample dataset to a sample datafile so that we can test n-bit writing before n-bit reading. GLOBAL VARIABLES COMMENTS, BUGS, ASSUMPTIONS EXAMPLES REVISION LOG --------------------------------------------------------------------------*/ static int gen_nbit_test(void) { int32 fid; /* file ID of n-bit HDF file */ uint8 *nbit_data; /* pointer to the initial data */ uint8 *out_data; /* pointer to the data to store in the datafile */ uint32 store; /* temporary storage for outgoing bits */ intn store_bits; /* number of bits stored */ uintn out_num; /* number of bytes to output */ intn i; /* local counting variable */ if ((fid = Hopen(NBIT_NAME, DFACC_CREATE, 0)) == FAIL) return (FAIL); if ((nbit_data = (uint8 *) HDmalloc(NBIT_SIZE1 * sizeof(uint8))) == NULL) { Hclose(fid); return (FAIL); } /* end if */ if ((out_data = (uint8 *) HDmalloc(NBIT_SIZE1 * sizeof(uint8))) == NULL) { HDfree(nbit_data); Hclose(fid); return (FAIL); } /* end if */ for (i = 0; i < NBIT_SIZE1; i++) /* fill with pseudo-random data */ nbit_data[i] = (uint8)((i * 3) % 64); store = 0; store_bits = 0; out_num = 0; for (i = 0; i < NBIT_SIZE1; i++) { /* pack the bits together */ store <<= NBIT_BITS1; store |= (uint32)nbit_data[i] & (uint32)maskc[NBIT_BITS1]; store_bits += NBIT_BITS1; if (store_bits >= (intn)BITNUM) { /* have at least a full byte */ out_data[out_num] = (uint8)((store >> (store_bits - (intn)BITNUM)) & (uint32)maskc[8]); out_num++; store_bits -= (intn)BITNUM; store >>= BITNUM; } /* end if */ } /* end for */ if (store_bits > 0) { /* push over any leftover bits to the left */ out_data[out_num] = (uint8)(store << ((intn)BITNUM - store_bits)); out_num++; } /* end if */ if (FAIL == Hputelement(fid, NBIT_TAG1, NBIT_REF1, out_data, (int32)out_num)) { HDfree(nbit_data); HDfree(out_data); Hclose(fid); return (FAIL); } /* end if */ HDfree(nbit_data); HDfree(out_data); if (FAIL == Hclose(fid)) return (FAIL); return (SUCCEED); } /* end gen_nbit_test() */ int main(int argc, char *argv[]) { /* shut compiler up */ argc=argc; argv=argv; gen_bitio_test(); gen_nbit_test(); return(0); } /* end main() */ libhdf4-4.2.10/HDF_ALT/hdf/test/tvnameclass.c0000644000000000000000000002676312421456623015330 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * Tests for vgroup's and vdata's name and class name. */ #include "hdf.h" #include "hfile.h" #include "tproto.h" #include "tutils.h" #define LONGNAMES "tlongnames.hdf" #define NONAMECLASS "tundefined.hdf" #define VGROUP1 "VGROUP1" #define VG_LONGNAME "Vgroup with more than 64 characters in length, 74 characters to be exact!" #define VG_LONGCLASS "Very long class name to classify all Vgroups with more than 64 characters in name" static void test_vglongnames(void); static void test_novgclass(void); static void test_vglongnames(void) { int32 file_id; /* File ID */ int32 vg1; /* Vdata ID */ int32 ref; /* Vdata ref */ uint16 name_len; /* Length of a vgroup's name or class name */ char *vgname, *vgclass; intn is_internal; int32 status; /* Status values from routines */ /* Open the HDF file. */ file_id = Hopen(LONGNAMES, DFACC_CREATE, 0); CHECK_VOID(file_id,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(file_id); CHECK_VOID(status,FAIL,"Vstart"); /* Create a new vgroup. */ vg1 = Vattach(file_id, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetname(vg1, VG_LONGNAME); CHECK_VOID(status,FAIL,"VSsetname"); status=Vsetclass(vg1, VG_LONGCLASS); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Create another vgroup of the same class. */ vg1 = Vattach(file_id, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetname(vg1, VGROUP1); CHECK_VOID(status,FAIL,"VSsetname"); status=Vsetclass(vg1, VG_LONGCLASS); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(file_id); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(file_id); CHECK_VOID(status,FAIL,"Hclose"); /* Re-open the HDF file. */ file_id = Hopen(LONGNAMES, DFACC_RDWR, 0); CHECK_VOID(file_id,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(file_id); CHECK_VOID(status,FAIL,"Vstart"); /* Find the long name vgroup. */ ref=Vfind(file_id,VG_LONGNAME); CHECK_VOID(ref,FAIL,"VSfind"); vg1 = Vattach(file_id, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* Test Vgisinternal */ is_internal = Vgisinternal(vg1); CHECK_VOID(is_internal, FAIL, "Vgisinternal"); VERIFY_VOID(is_internal, FALSE, "Vgisinternal"); /* get the vgroup's name */ status = Vgetnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgname, "vgname", "test_vglongnames" ); status=Vgetname(vg1, vgname); CHECK_VOID(status,FAIL,"VSgetname"); VERIFY_CHAR_VOID(vgname, VG_LONGNAME, "Vgetname"); if (vgname != NULL) HDfree(vgname); /* get the vgroup's class */ status = Vgetclassnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgclass, "vgclass", "test_vglongnames" ); status=Vgetclass(vg1, vgclass); CHECK_VOID(status,FAIL,"VSgetclass"); VERIFY_CHAR_VOID(vgclass, VG_LONGCLASS, "Vgetclass"); if (vgclass != NULL) HDfree(vgclass); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Find the vgroup VGROUP1. */ ref=Vfind(file_id,VGROUP1); CHECK_VOID(ref,FAIL,"VSfind"); vg1 = Vattach(file_id, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* get the vgroup's name */ status = Vgetnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgname, "vgname", "test_vglongnames" ); status=Vgetname(vg1, vgname); CHECK_VOID(status,FAIL,"VSgetname"); if (HDstrcmp(vgname, VGROUP1)) { num_errs++; printf(">>> Got bogus Vgroup name : %s\n", vgname); } if (vgname != NULL) HDfree(vgname); /* get the vgroup's class */ status = Vgetclassnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); CHECK_ALLOC(vgclass, "vgclass", "test_vglongnames" ); status=Vgetclass(vg1, vgclass); CHECK_VOID(status,FAIL,"VSgetclass"); if (HDstrcmp(vgclass, VG_LONGCLASS)) { num_errs++; printf(">>> Got bogus Vgroup class : %s\n", vgclass); } if (vgclass != NULL) HDfree(vgclass); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(file_id); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(file_id); CHECK_VOID(status,FAIL,"Hclose"); } /* test_vglongnames() */ static void test_undefined(void) { int32 status; /* Status values from routines */ int32 file_id; /* File ID */ int32 vg1; /* Vdata ID */ int32 ref; /* Vdata ref */ intn is_internal; /* to test Vgisinternal */ uint16 name_len; /* Length of a vgroup's name or class name */ /* to simulate calls to Vgetclass/Vgetname in older applications */ char vgname[VGNAMELENMAX+1], vgclass[VGNAMELENMAX+1]; /* Open the HDF file. */ file_id = Hopen(NONAMECLASS, DFACC_CREATE, 0); CHECK_VOID(file_id,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(file_id); CHECK_VOID(status,FAIL,"Vstart"); /* Create a vgroup which will have name set but not class */ vg1 = Vattach(file_id, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetname(vg1, VG_LONGNAME); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Create another vgroup which will have class but not name */ vg1 = Vattach(file_id, -1, "w"); CHECK_VOID(vg1,FAIL,"VSattach"); status=Vsetclass(vg1, VG_LONGCLASS); CHECK_VOID(status,FAIL,"VSsetname"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(file_id); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(file_id); CHECK_VOID(status,FAIL,"Hclose"); /* Re-open the HDF file. */ file_id = Hopen(NONAMECLASS, DFACC_RDWR, 0); CHECK_VOID(file_id,FAIL,"Hopen"); /* Initialize HDF for subsequent vgroup/vdata access. */ status = Vstart(file_id); CHECK_VOID(status,FAIL,"Vstart"); /* Find the long name vgroup. */ ref=Vfind(file_id,VG_LONGNAME); CHECK_VOID(ref,FAIL,"VSfind"); vg1 = Vattach(file_id, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* Test Vgisinternal */ is_internal = Vgisinternal(vg1); CHECK_VOID(is_internal, FAIL, "Vgisinternal"); VERIFY_VOID(is_internal, FALSE, "Vgisinternal"); /* Try getting the vgroup's class without calling first Vgetclassnamelen. This shows that bug HDFFR-1288 is fixed. */ status=Vgetclass(vg1, vgclass); CHECK_VOID(status,FAIL,"Vgetclass"); VERIFY_VOID(HDstrlen(vgclass), 0, "VSgetclass"); /* The length of the class name should be 0 */ status = Vgetclassnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetclassnamelen"); VERIFY_VOID(name_len, 0, "VSgetclassnamelen"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); /* Find the vgroup with class VG_LONGCLASS. This vgroup doesn't have a name */ ref=Vfindclass(file_id, VG_LONGCLASS); CHECK_VOID(ref,FAIL,"VSfindclass"); vg1 = Vattach(file_id, ref, "r"); CHECK_VOID(vg1,FAIL,"VSattach"); /* Try getting the vgroup's name without calling first Vgetclassnamelen. Similar to class name in bug HDFFR-1288. */ status=Vgetname(vg1, vgname); CHECK_VOID(status,FAIL,"Vgetname"); VERIFY_VOID(HDstrlen(vgname), 0, "VSgetname"); /* The length of the name should be 0 */ status = Vgetnamelen(vg1, &name_len); CHECK_VOID(status,FAIL,"Vgetnamelen"); VERIFY_VOID(name_len, 0, "VSgetnamelen"); status = Vdetach(vg1); CHECK_VOID(status,FAIL,"Vdetach"); status = Vend(file_id); CHECK_VOID(status,FAIL,"Vend"); status = Hclose(file_id); CHECK_VOID(status,FAIL,"Hclose"); } /* test_undefined() */ /**************************************************************************** * test_vgisinternal - tests the API function Vgisinternal * - Use an existing GR file created during the period when GR vgroup had no * class name, and had name set to GR_NAME * - Get each vgroup, verify that it is internal or not * Jan 6, 2012 -BMR ****************************************************************************/ #define GR_FILE "test_files/grtdfui83.hdf" static void test_vgisinternal() { int32 fid, vgroup_id; intn is_internal = FALSE; int32 vref = -1; intn ii, status; char testfile[H4_MAX_NC_NAME] = ""; char internal_array2[2] = {TRUE, TRUE}; intn num_errs = 0; /* number of errors so far */ /* Use a GR file to test Vgisinternal on internal vgroups */ /* The file GR_FILE is an existing file in the test_files directory, make_datafilename builds the file name with correct path */ if (make_datafilename(GR_FILE, testfile, H4_MAX_NC_NAME) != FAIL) { /* Open the old GR file and initialize the V interface */ fid = Hopen(testfile, DFACC_READ, 0); CHECK_VOID(fid, FAIL, "Hopen: grtdfui83.hdf"); status = Vstart(fid); CHECK_VOID(status, FAIL, "Vstart"); ii = 0; while ((vref = Vgetid(fid, vref)) != FAIL) { /* until no more vgroups */ vgroup_id = Vattach(fid, vref, "r"); /* attach to vgroup */ /* Test that the current vgroup is or is not internal as specified in the array internal_array2 */ is_internal = Vgisinternal(vgroup_id); CHECK_VOID(is_internal, FAIL, "Vgisinternal"); VERIFY_VOID(is_internal, internal_array2[ii], "Vgisinternal"); status = Vdetach(vgroup_id); CHECK_VOID(status, FAIL, "Vdetach"); ii++; /* increment vgroup index */ } /* Terminate access to the V interface and close the file */ status = Vend(fid); CHECK_VOID(status, FAIL, "Vend"); status = Hclose(fid); CHECK_VOID(status, FAIL, "Hclose"); } else { fprintf(stderr, "ERROR>>> Unable to make filename for %s\n", GR_FILE); H4_FAILED() } } /* test_vgisinternal */ void test_vnameclass(void) { int32 status; /* test Vgroups with name and class that have more than 64 characters */ test_vglongnames(); /* test Vgetname and Vgetclass when either name or class is not defined. */ test_undefined(); /* test Vgisinternal when there is no class name */ test_vgisinternal(); } /* test_vnameclass */ libhdf4-4.2.10/HDF_ALT/hdf/test/egfhi.f0000644000000000000000000001147212421456623014064 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C $Id: egfhi.f 4932 2007-09-07 17:17:23Z bmribler $ C C========================================================== c c HDF VSET Sample Program c Jason NG NCSA FEB-28-92 c c EGFHI.F c Uses High-Level routines c Creates a vset of 1 vgroup and 3 vdatas in the file 'egfhi.hdf'. c c c =========================================================== program HIGHLEVEL print *, 'This program tests the Fortran Vset High-level' print *, 'calls. It creates 3 vdatas, and then create a vgroup' print *, 'that will be linked to the 3 vdatas.' print *,' ' call DOIT end subroutine DOIT c Remove this fortran directive if your compiler doesn't support it. c It forces an error message whenever a variable is not decalred. IMPLICIT NONE integer idata(200) real rdata(200) integer conval(3,200) integer tagarray(10), refarray(10) c --- declare the HDF and VSET routines used. This is compulsory! external HOPEN, HCLOSE ,VHFSD, VHFSDM, VHFMKGP, VFSTART, VFEND integer HOPEN, VHFSD, VHFSDM, VHFMKGP integer f, i, j integer vs1, vs2, vs3, vg c --- some defined constants. see "vg.h" integer LONGTYPE parameter (LONGTYPE=24) integer REALTYPE parameter (REALTYPE=5) integer VDATATAG parameter (VDATATAG=1962) integer FULLACC parameter (FULLACC=7) c ------ generate some data ------- do 111 i=1,200 rdata(i) = i *1.001 + 500 idata(i) = i 111 continue do 112 i=1,100 do 114 j=1,3 conval(j,i) = i*j 114 continue 112 continue c ------- open hdf file ------ f = HOPEN ('egfhi.hdf'//char(0), FULLACC, 0) call VFSTART (f) c ------- store 100 floats as one field in one vdata ------ vs1 = VHFSD (f, 'MP', rdata, 100, REALTYPE, + 'melting-points', 'test') c ------- store 120 integers as one field in one vdata ------ vs2 = VHFSD (f, 'AGE', idata, 120, LONGTYPE, + 'age-of-specimens', 'test') c ------- store 100*3 values as one field (of order 3) ----- c ------- in one vdata ------ vs3 = VHFSDM (f, 'PLIST', conval, 100, LONGTYPE, + 'connectivity triplets','test',3) c --------- messages ---------------------- if (vs1 .eq. -1) then print *,'error creating melting-point vdata' else print *, 'created vdata "melting-points" with 100 elements' endif if (vs2 .eq. -1) then print *,'error creating "age-of-specimens" vdata' else print *, 'created vdata "age-of-specimens" with 120 elements' endif if (vs3 .eq. -1) then print *,'error creating "connectivity triplets" vdata' else print *, 'created vdata "connectivity triplets" with ' print *, ' 100 elements' endif c ------ make a vgroup that has links to all the above vdatas ---- tagarray(1) = VDATATAG refarray(1) = vs1 tagarray(2) = VDATATAG refarray(2) = vs2 tagarray(3) = VDATATAG refarray(3) = vs3 vg = VHFMKGP(f,tagarray,refarray,3, + 'vgroup with 3 vdatas (fortran)', 'test') if (vg .eq. -1) then print *,'error creating vgroup' else print *, 'created vgroup that links all the 3 vdatas' endif c --- all done. close the file --- call VFEND (f) call HCLOSE (f) print *,' ' print *, 'SUCCESS: created file egfhi.hdf' print *, 'Use the utility vshow to look at the results:' print *, ' vshow egfhi.hdf +' print *, 'Results should be as in the file egfhi.result' print *,' ' end libhdf4-4.2.10/HDF_ALT/hdf/test/slabwf.f0000644000000000000000000003243112421456623014256 0ustar C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C* Copyright by The HDF Group. * C* Copyright by the Board of Trustees of the University of Illinois. * C* All rights reserved. * C* * C* This file is part of HDF. The full HDF copyright notice, including * C* terms governing use, modification, and redistribution, is contained in * C* the files COPYING and Copyright.html. COPYING can be found at the root * C* of the source code distribution tree; Copyright.html can be found at * C* http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * C* access to either file, you may request a copy from help@hdfgroup.org. * C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C C $Id: slabwf.f 6034 2014-01-19 06:59:14Z epourmal $ C subroutine slabwf (num_err) C C Program to write data set using the DFSDxxx interface C C Output files: slabwf.hdf, slab1wf, slab4wf implicit none include 'fortest.inc' include '../src/hdf.inc' include '../src/dffunc.inc' integer num_err character*20 myname parameter (myname = 'slab') integer ret, np, nr,nc, di(3), st(3), sz(3), sr(3) integer rank C C FLOAT32 data variables. FLOAT32 corresponds to real*4. C If the fortran compiler does not handle real*4, C change them to the right sizes if possible. real*4 scpln(2), scrow(3), sccol(4), da(4,3,2) real*4 slab1(3,1,1), slab2(3,1,2), slab3(3,2,1) real*4 slab4(3,1,1), slab5(1,3,2) real*4 sa(4,3,2) real*4 fillvalue C integer i, j, k character*10 lcol,ucol,fcol,lrow,urow,frow,lpln,upln,fpln character*30 fn, sn, sn1, sn2, sn4 integer fnlen integer nref integer number_failed call ptestban('Testing', myname) number_failed = 0 di(1) = 4 di(2) = 3 di(3) = 2 np = 2 nr = 3 nc = 4 rank = 3 scpln(1) = 0.0 scpln(2) = 100.0 scrow(1) = 0.0 scrow(2) = 10.0 scrow(3) = 20.0 sccol(1) = 0.0 sccol(2) = 1.0 sccol(3) = 2.0 sccol(4) = 3.0 lcol = 'Column' ucol = 'Cm' fcol = 'Int32' lrow = 'Line' urow = 'Inch' frow = 'Int16' lpln = 'Time' upln = 'Second' fpln = 'Int32' fn = 'slabf.hdf' sn = 'slabwf.hdf' fillvalue = 1.0 fnlen = 30 slab1(1,1,1) = 110.0 slab1(2,1,1) = 111.0 slab1(3,1,1) = 112.0 slab2(1,1,1) = 20.0 slab2(2,1,1) = 21.0 slab2(3,1,1) = 22.0 slab2(1,1,2) = 120.0 slab2(2,1,2) = 121.0 slab2(3,1,2) = 122.0 slab3(1,1,1) = 0.0 slab3(2,1,1) = 1.0 slab3(3,1,1) = 2.0 slab3(1,2,1) = 10.0 slab3(2,2,1) = 11.0 slab3(3,2,1) = 12.0 slab4(1,1,1) = 100.0 slab4(2,1,1) = 101.0 slab4(3,1,1) = 102.0 slab5(1,1,1) = 3.0 slab5(1,2,1) = 13.0 slab5(1,3,1) = 23.0 slab5(1,1,2) = 103.0 slab5(1,2,2) = 113.0 slab5(1,3,2) = 123.0 do 200 i=1, np do 180 j=1, nr do 150 k=1, nc da(k,j,i) = scpln(i) + scrow(j) + sccol(k) C print *, da(k,j,i) 150 continue 180 continue 200 continue call MESSAGE(5,'Writing data as 5 slabs to slabwf.hdf') C print *,'\n Writing data as 5 slabs to slabwf.hdf' num_err = 0 C Set number type, dimension stuff etc ret = dssnt(DFNT_FLOAT32) call VRFY(ret,'dssnt',number_failed) ret = dssdims(rank, di) call VRFY(ret,'dssdim',number_failed) ret = dssdist(1, lcol, ucol, fcol) call VRFY(ret,'dssdist',number_failed) ret = dssdist(2, lrow, urow, frow) call VRFY(ret,'dssdist',number_failed) ret = dssdist(3, lpln, upln, fpln) call VRFY(ret,'dssdist',number_failed) ret = dssdisc(1, di(1), sccol) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(2, di(2), scrow) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(3, di(3), scpln) call VRFY(ret,'dssdisc',number_failed) C C Write it slab by slab C C set the Fill value ret = dssfill(fillvalue) call VRFY(ret,'dssfile',number_failed) sr(1) = 0 sr(2) = 0 sr(3) = 0 ret = dssdims(rank, di) call VRFY(ret,'dssdim',number_failed) ret = dssslab(sn) call VRFY(ret,'dssslab',number_failed) st(1) = 1 st(2) = 2 st(3) = 2 sz(1) = 3 sz(2) = 1 sz(3) = 1 ret = dswslab(st, sr, sz,slab1) call VRFY(ret,'dswslab',number_failed) st(1) = 1 st(2) = 3 st(3) = 1 sz(1) = 3 sz(2) = 1 sz(3) = 2 ret = dswslab(st, sr, sz, slab2) call VRFY(ret,'dswslab',number_failed) st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 3 sz(2) = 2 sz(3) = 1 ret = dswslab(st, sr, sz, slab3) call VRFY(ret,'dswslab',number_failed) st(1) = 1 st(2) = 1 st(3) = 2 sz(1) = 3 sz(2) = 1 sz(3) = 1 ret = dswslab(st, sr, sz, slab4) call VRFY(ret,'dswslab',number_failed) st(1) = 4 st(2) = 1 st(3) = 1 sz(1) = 1 sz(2) = 3 sz(3) = 2 ret = dswslab(st, sr, sz, slab5) call VRFY(ret,'dswslab',number_failed) ret = dseslab() call VRFY(ret,'dseslab',number_failed) C C Retrieve slab for verification C st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 4 sz(2) = 3 sz(3) = 2 sr(1) = 4 sr(2) = 3 sr(3) = 2 ret = dsrslab(sn, st, sz, st, sa, sr) call VRFY(ret,'dsrslab',number_failed) num_err = number_failed if ( num_err .ne. 0) then print *,'number of failures =',num_err endif call MESSAGE(5,' Verifying data ') num_err = 0 do 500 i=1, np do 400 j=1, nr do 300 k=1, nc if ( da(k,j,i) .ne. sa(k,j,i)) then num_err = num_err + 1 if (Verbosity .ge. VERBO_DEF) then call MESSAGE(VERBO_DEF, ' *** data error *** ') print *, '(k,j,i) = (', k,',', j,',', i,')', + ' da=',da(k,j,i), ', sa=',sa(k,j,i) endif endif 300 continue 400 continue 500 continue if (num_err .ne. 0) then print *,'slabwf: number of wrong values in slab =',num_err else call MESSAGE(VERBO_HI, ' *** slabwf passed *** ') endif C C slab1wf test C C call MESSAGE(5,'Writing the first 3 of 5 slabs to slab1wf.hdf') C print *,'\n Writing the first 3 of 5 slabs to slab1wf.hdf' sn1 = 'slab1wf.hdf' C Clear old info fist ret = dsclear() call VRFY(ret,'dsclear',number_failed) C Set dimension stuff etc call MESSAGE(5,'Calling dssdim to set info on SDS') ret = dssdims(rank, di) call VRFY(ret,'dssgdim',number_failed) ret = dssdist(1, lcol, ucol, fcol) call VRFY(ret,'dssdist',number_failed) ret = dssdist(2, lrow, urow, frow) call VRFY(ret,'dssdist',number_failed) ret = dssdist(3, lpln, upln, fpln) call VRFY(ret,'dssdist',number_failed) ret = dssdisc(1, di(1), sccol) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(2, di(2), scrow) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(3, di(3), scpln) call VRFY(ret,'dssdisc',number_failed) C C Write it slab by slab C sr(1) = 0 sr(2) = 0 sr(3) = 0 ret = dssdims(rank, di) call VRFY(ret,'dssdims',number_failed) ret = dssslab(sn1) call VRFY(ret,'dssslab',number_failed) st(1) = 1 st(2) = 2 st(3) = 2 sz(1) = 3 sz(2) = 1 sz(3) = 1 ret = dswslab(st, sr, sz,slab1) call VRFY(ret,'dswslab',number_failed) st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 3 sz(2) = 2 sz(3) = 1 ret = dswslab(st, sr, sz, slab3) call VRFY(ret,'dswslab',number_failed) st(1) = 4 st(2) = 1 st(3) = 1 sz(1) = 1 sz(2) = 3 sz(3) = 2 ret = dswslab(st, sr, sz, slab5) call VRFY(ret,'dswslab',number_failed) ret = dseslab() call VRFY(ret,'dseslab',number_failed) num_err = number_failed if (num_err .ne. 0) then print *,'number of failures =',num_err else call MESSAGE(VERBO_HI, ' *** slab1wf passed *** ') endif C C slab2wf test C C call MESSAGE(5,'Writing the last 2 of 5 slabs to slab1wf.hdf') C print *,'\n Writing the last 2 of 5 slabs to slab1wf.hdf' sn2 = 'slab1wf.hdf' C set ref of SDS to write to nref = 2 C C Fisrt clear all previous info and restarot to beginning of file C ret = dsclear() call VRFY(ret,'dsclear',number_failed) ret = dfsdrestart() call VRFY(ret,'dfsdrestart',number_failed) C Get relavant info on SDS call MESSAGE(5,'Calling dsigdim to get info on SDS') ret = dsgdims(sn2, rank, sz, rank) call VRFY(ret,'dsigdim',number_failed) C call MESSAGE(5,'Calling dswref to ref o SDS to write to') C set SDS to write to ret = dswref(sn2, nref) call VRFY(ret,'dswref',number_failed) call MESSAGE(5,'Calling dssslab to start access on SDS') ret = dssslab(sn2) call VRFY(ret,'dssslab',number_failed) st(1) = 1 st(2) = 3 st(3) = 1 sz(1) = 3 sz(2) = 1 sz(3) = 2 C call MESSAGE(5,'Calling dswslab to write 4of5 slabs to SDS') ret = dswslab(st, sr, sz, slab2) call VRFY(ret,'dswslab',number_failed) st(1) = 1 st(2) = 1 st(3) = 2 sz(1) = 3 sz(2) = 1 sz(3) = 1 C call MESSAGE(5,'Calling dswslab to write 5of5 slabs to SDS') ret = dswslab(st, sr, sz, slab4) call VRFY(ret,'dswslab',number_failed) call MESSAGE(5,'Calling dseslab to end access to SDS') ret = dseslab() call VRFY(ret,'dseslab',number_failed) if ( num_err .ne. 0) then print *,'number of failures =',num_err endif C C Retrieve slab for verification C st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 4 sz(2) = 3 sz(3) = 2 sr(1) = 4 sr(2) = 3 sr(3) = 2 num_err = 0 C call MESSAGE(5,'Calling dsrslab to start read access to SDS') ret = dsrslab(sn2, st, sz, st, sa, sr) call VRFY(ret,'dsrslab',number_failed) num_err = number_failed if ( num_err .ne. 0) then print *,'number of failures =',num_err endif call MESSAGE(5,' Verifying data ') num_err = 0 do 800 i=1, np do 700 j=1, nr do 600 k=1, nc if ( da(k,j,i) .ne. sa(k,j,i)) then num_err = num_err + 1 endif C print *, 'da() ',da(k,j,i) C print *, 'sa() ',sa(k,j,i) 600 continue 700 continue 800 continue if (num_err .ne. 0) then print *,'slab2wf: number of wrong values in slab =',num_err else call MESSAGE(VERBO_HI, ' *** slab2wf passed *** ') endif C C slab4wf test C call MESSAGE(5,'Writing data as 1 slab to slab4wf.hdf') C print *,'Writing data as 1 slab to slab4wf.hdf' sn4 = 'slab4wf.hdf' C C Clear previous info ret = dsclear() call VRFY(ret,'dsclear',number_failed) C Set relevant info ret = dssdims(rank, di) call VRFY(ret,'dssgdim',number_failed) ret = dssdist(1, lcol, ucol, fcol) call VRFY(ret,'dssdist',number_failed) ret = dssdist(2, lrow, urow, frow) call VRFY(ret,'dssdist',number_failed) ret = dssdist(3, lpln, upln, fpln) call VRFY(ret,'dssdist',number_failed) ret = dssdisc(1, di(1), sccol) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(2, di(2), scrow) call VRFY(ret,'dssdisc',number_failed) ret = dssdisc(3, di(3), scpln) call VRFY(ret,'dssdisc',number_failed) C C Write it as one slab C ret = dssslab(sn4) call VRFY(ret,'dssslab',number_failed) st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 4 sz(2) = 3 sz(3) = 2 ret = dswslab(st, sr, sz, da) call VRFY(ret,'dswslab',number_failed) ret = dseslab() call VRFY(ret,'dseslab',number_failed) C C Retrieve slab for verification C st(1) = 1 st(2) = 1 st(3) = 1 sz(1) = 4 sz(2) = 3 sz(3) = 2 sr(1) = 4 sr(2) = 3 sr(3) = 2 ret = dsrslab(sn4, st, sz, st, sa, sr) call VRFY(ret,'dsrslab',number_failed) num_err = number_failed if ( num_err .ne. 0) then print *,'number of failures =',num_err endif call MESSAGE(5,' Verifying data ') num_err = 0 do 902 i=1, np do 901 j=1, nr do 900 k=1, nc if ( da(k,j,i) .ne. sa(k,j,i)) then num_err = num_err + 1 endif C print *, 'da() ',da(k,j,i) C print *, 'sa() ',sa(k,j,i) 900 continue 901 continue 902 continue if (num_err .ne. 0) then print *,'slab4wf: number of wrong values in slab =',num_err else call MESSAGE(VERBO_HI, ' *** slab4wf passed *** ') endif C C return end libhdf4-4.2.10/HDF_ALT/hdf/test/CMakeTests.cmake0000644000000000000000000001275712421456623015647 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## FILE (MAKE_DIRECTORY ${PROJECT_BINARY_DIR}/testdir) #-- Copy all the dat files from the test directory into the source directory SET (HDF4_REFERENCE_TEST_FILES 8bit.dat bitio.dat gr_r24.dat greyjpeg.dat jpeg.dat litend.dat nbit.dat tmgr.dat tvattr.dat grtdfui83.hdf ) FOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/test_files/${h4_file}") #MESSAGE(STATUS " Copying ${h4_file}") ADD_CUSTOM_COMMAND ( TARGET testhdf POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_TEST_SOURCE_DIR}/test_files/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_REFERENCE_TEST_FILES}) # Remove any output file left over from previous test run ADD_TEST ( NAME testhdf-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove Block_info.hdf ChunkedGR.hdf ChunkedGR_DF.hdf ChunkedGR_NO.hdf ChunkedGR_RL.hdf ChunkedGR_SK.hdf datainfo_annot.hdf datainfo_dfri.hdf datainfo_images.hdf datainfo_linkblock.hdf datainfo_simple.hdf gr2.hdf gr_chunkcomp.hdf gr_comp.hdf gr_double_test.hdf gr_gzip.hdf gr_jpeg.hdf gr_r8.hdf nntcheck.hdf ntcheck.hdf RI_8.hdf RI_16.hdf RI_32.hdf RI_fl32.hdf RI_fl64.hdf RIchunkedziped.hdf s1w.hdf s3w.hdf s4w.hdf sdstrings.hdf swf32.hdf swf64.hdf swi8.hdf swi16.hdf swi32.hdf swin.hdf swui8.hdf swui16.hdf swui32.hdf swuin.hdf t.hdf t1.hdf t2.hdf t3.hdf t4.hdf tbitio.hdf tblocks.hdf tchunks.hdf tcomp.hdf tdf24.hdf tdfan.hdf temp.hdf thf.hdf tjpeg.hdf tlongnames.hdf tman.hdf tmgr.hdf tmgratt.hdf tmgrchk.hdf tnbit.hdf tref.hdf tuservds.hdf tuservgs.hdf tvattr.hdf tvpack.hdf tvsempty.hdf tvset.hdf tvsetext.hdf tx.hdf Tables_External_File ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "testhdf-clearall-objects") ADD_TEST ( NAME testhdf_thf0-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove thf0.hdf thf1.hdf thf2.hdf thf3.hdf thf4.hdf thf5.hdf thf6.hdf thf7.hdf thf8.hdf thf9.hdf ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf_thf0-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf_thf0-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "testhdf_thf0-clearall-objects") SET (thf_decade 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 ) FOREACH (decade ${thf_decade}) ADD_TEST ( NAME testhdf_thf${decade}-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove thf${decade}0.hdf thf${decade}1.hdf thf${decade}2.hdf thf${decade}3.hdf thf${decade}4.hdf thf${decade}5.hdf thf${decade}6.hdf thf${decade}7.hdf thf${decade}8.hdf thf${decade}9.hdf ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf_thf${decade}-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf_thf${decade}-clearall-objects PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "testhdf_thf${decade}-clearall-objects") ENDFOREACH (decade ${thf_decade}) ADD_TEST (NAME testhdf COMMAND $) SET (passRegex "All tests were successful") SET_PROPERTY (TEST testhdf PROPERTY PASS_REGULAR_EXPRESSION "${passRegex}") IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (testhdf PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "testhdf") #-- Adding test for buffer IF (NOT WIN32) ADD_TEST (NAME buffer COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (buffer PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (buffer PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "buffer") ENDIF (NOT WIN32) libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/0000755000000000000000000000000012421456623014767 5ustar libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/nbit.dat0000644000000000000000000000644612421456623016427 0ustar Ê\èè& NCSA HDF Version 4.0 Release 0, ?month? ?year? 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞý 04aga’š­ÃÍùóðÅ #QV]‚‰©²¼µãïÁ AEYqxe¢«±ÓÞýlibhdf4-4.2.10/HDF_ALT/hdf/test/test_files/grtdfui83.hdf0000644000000000000000000000505312421456623017274 0ustar  GÊ\.&Ijo,s2‡.I,Ø2ì.ôI,=2Q­ ).h–jþ, 2 NCSA HDF Version 4.0 Release 0, ?month? ?year?               j,.                                                                j,.                                                                               j,.  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111 j,.,. Image_array_5RI0.0­ ­­RIG0.0libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/jpeg.dat0000644000000000000000000000566412421456623016421 0ustar Ê\&/&®jÔ,Ø2ìô/ôÿ,ó2/ˆ, —2 «ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF post Version 4.1 Release 2, March 1998ÿØÿàJFIFÿÛC   %# , #&')*)-0-(0%()(ÿÛC   (((((((((((((((((((((((((((((((((((((((((((((((((((ÿÀ."ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÄ ÿĵw!1AQaq"2B‘¡±Á #3RðbrÑ $4á%ñ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚâãäåæçèéêòóôõö÷øùúÿÚ ?¹HÌ«÷˜©¬£ý°Nû8àÿ·BIªÁ gm.D^±bFÏâšøìoúOÿÿ€~›ý§Ú…Oüþ ¨]Uw3(_Rx¡]rŒzƒšÌÕmçžkYíßI°Äe™ÁvRp0r1€ä䞆ÆÍs6–ÐÆļÉ3+2óÐH°8 r£®EwÑá…Z1kE7ÓÝzékù^þG[‰cFœ°uì´ÒšßËÞÖû#nŠ©wuwv©k§Ç.­¼[ã^Úå6’$äüÏŽ£ -P[mRÚÝ&ÐÍu'ßâo.1ìÀ±=‡+Óœö®_ì$Ú_Y¤¯ðÞ[ï~–Öû|·Ò×¹ÑO;”©ûIájǺäÕvÙû×þï5¾Õ¢3ÖŠ(¯÷£¼F½vŒÓð3œsE\wl(¢ŠÿÙ.j,/ÿØÿàJFIFÿÛC (B+(%%(Q:=0B`Ued_U][jx™jqs[]…µ†ž£«­«g€¼Éº¦Ç™¨«¤ÿÛC(#(N++N¤n]n¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ÿÀ."ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÄ ÿĵw!1AQaq"2B‘¡±Á #3RðbrÑ $4á%ñ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚâãäåæçèéêòóôõö÷øùúÿÚ ?}&qQþûþ™þ´2žLDÜןì¼¾óÓöŸÝq&G­ƒÒ£•YŠ²˜£ã“ÏëHŠ1–hˆ’þ}kE†ºø×Þfñ)+òKîÿ‚ME1œP±€Œ¡Çù?Ê™¶UP|ÀXõRãSì?¼¾ÿêß2•k«¸¿»úü ¨¢Šç79ÀÍ-PEPÿÙ.j,/ÿØÿàJFIFÿÛC    $.' ",#(7),01444'9=82<.342ÿÛC  2!!22222222222222222222222222222222222222222222222222ÿÀ."ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÄ ÿĵw!1AQaq"2B‘¡±Á #3RðbrÑ $4á%ñ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚâãäåæçèéêòóôõö÷øùúÿÚ ?³HYW©êjþÕ'ìGŸöèY5(\kUë$lþ@šøÿì¿ú}ü þ÷Ÿ_ÿ§SÿÀKå”.âÀRhVWVzƒT/ ši`šÓ¬ñ,À»pÍçŒG\ç‚#¶…³O6žÑ£Ò¬¬¬ËÏ@ਣ޺éd*¤SXšw}9¶õÒß+Ü⫞Ɯ\žµ–šAò]MJ*¼÷)ͺAd‰©š=È8kÁ g9<¶:Œ€µP[êP@²‹È¥¸½FÛ{0ÉöéïžÕÏý®—·§®Þöýú>[{—Ê÷6†jåyaê.ë—U÷=oýÛÛ­>´QEy¬4GmÁw®9§cœÑEp¢Š(ÿÙ.j,/libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/greyjpeg.dat0000644000000000000000000000527212421456623017303 0ustar  çÊ\&/&-(É(j(,,È@2D P/PœÉ(2ì ø/øïÉ(NCSA HDF post Version 4.1 Release 2, March 1998ÿØÿàJFIFÿÛC   %# , #&')*)-0-(0%()(ÿÀ .ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÚ?ö P è  N9 ‚ ûÒQ\xÿ…€9ÿŠTàEø„Ümð·?Äu¬½E~(\]GœÚ}¼y(Æ®œó’à·$1Ï=C<Ÿì¦[yLWžzª¬¶ñÆÂ#‘ÏÝOÃ'ê5 ><Óæ+-½Ž®·¶ÿµ²c;€%2NUsÓ# %‡â›f’Ay¥kwmC4 Á'c+.åÏ7<Íw4RîlcqǦi(¢¿ÿÙ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ.j.,/-ÿØÿàJFIFÿÛC (B+(%%(Q:=0B`Ued_U][jx™jqs[]…µ†ž£«­«g€¼Éº¦Ç™¨«¤ÿÀ .ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÚ?Õ¢Š(¢ªÿÄÇþñê?âb{Zÿã¢j¬À#F£§#ëÍ#YiÃîî qRíÎ ¤Á»ïÆÓþ¨Æ€«Å; ®Ü}«”Ræ’Š+ÿÙ,/-ÿØÿàJFIFÿÛC    $.' ",#(7),01444'9=82<.342ÿÀ .ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÚ?ôŠ' ¥Á'æ‚8#”W6?á7ëÿÿþF£8oáðÿ=ó2Õ µø‰5ÂGo5œ)’Œb ÉÀ1, ç Ç¡ÏjŠWøi(‚CÏœY D"3‘þÈÁíÈÇ'ëZŸXÊUà´Ô–`[Ú‹wã®@%sžzqŽ…ì-UâºÓõYŸnø¥„B"89ÚÀ®áÛžzp9®®Š]ÍŒdãÓ4”Q_ÿÙ2 ­ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,/-libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/tmgr.dat0000644000000000000000000003321012421456623016431 0ustar  'Ê\.&Ijo,s2‡.I,Ø2ì.ôI,=2Q­6V1­ (3«™ª«;« NCSA HDF Version 4.0 Release 0, ?month? ?year?               j,.                                                                j,.                                                                               j,.RIG0.0,.Raster Image #0RI0.0Attribute value 1Image1 RIATTR0.0N RIATTR0.0C,.ªRaster Image #0RI0.0Attribute value 2*ª í;­ O3« †ª ˜;« ª ;­ v3« ­ª ¿;« )ª ;;« ©ª »:« õª :. jImage2 RIATTR0.0N RIATTR0.0C,.ªªRaster Image #0RI0.0,.Raster Image #1RI0.0Attribute value 1Image1 RIATTR0.0N RIATTR0.0C,.ª Raster Image #1RI0.0Attribute value 2Image2 RIATTR0.0N RIATTR0.0C,.ªª Raster Image #1RI0.0,.Raster Image #2RI0.0Attribute value 1Image1 RIATTR0.0N RIATTR0.0C,.ª Raster Image #2RI0.0Attribute value 2Image2 RIATTR0.0N RIATTR0.0C,.ªª Raster Image #2RI0.0Attribute value 1Test1 RIATTR0.0N RIATTR0.0CAttribute value 2Test2 RIATTR0.0N RIATTR0.0C­­­ªª RIG0.0.                       4¢.ð0j2 ,2$­3Ÿ5«2aª2i>«2Ôª2æ;«3Rª3d;j3Ô,3Ø­6!5«4ª4%>«4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"@"j,. Test Image #1RI0.0 FillValue RIATTR0.0N RIATTR0.0C,.ª Test Image #1RI0.0Attribute value 1Image1 RIATTR0.0N RIATTR0.0C,.ªª Test Image #1RI0.0Attribute value 2Image2 RIATTR0.0N RIATTR0.0C,.ªªª Test Image #1RI0.0@j,. Test Image #2RI0.0 FillValue RIATTR0.0N RIATTR0.0C,.ª Test Image #2RI0.0Attribute value 1ª5h;«5Ôª5æ;Image1 RIATTR0.0N RIATTR0.0C,.ªª Test Image #2RI0.0Attribute value 2Image2 RIATTR0.0N RIATTR0.0C,.ªªª Test Image #2RI0.0­­­ªª­­ RIG0.0libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/bitio.dat0000644000000000000000000001044612421456623016574 0ustar Ê\èè&NCSA HDF Version 3.3 Release 2, Novermber 1993 !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úý !$'*-0369ADGJMPSVY\_behknqtwz}€ƒ†‰Œ’•˜›ž¡¤§ª­°³¶¹¼¿ÂÅÈËÎÑÔ×ÚÝàãæéìïòõøûþ "%(+.147:=@CFILORUX[^adgjmpsvy|‚…ˆ‹Ž‘”—š £¦©¬¯²µ¸»¾ÁÄÇÊÍÐÓÖÙÜßâåèëîñô÷úýlibhdf4-4.2.10/HDF_ALT/hdf/test/test_files/8bit.dat0000644000000000000000000000317612421456623016336 0ustar œÊ\.&dÊ&d-ŠÉŠjŠ,ŽÈ¢2¦ /²X˲XÉŠ, È2" /.nNCSA HDF post Version 4.1 Release 2, March 1998            !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ j  ,/-            j  ,/-              Ë.n­bÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRIG0.0RIG0.0libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/README0000644000000000000000000000044412421456623015651 0ustar BMR: The file grtdfui83.hdf is added here to test Vgisinternal for the case where a GR vgroup does not have a class name as "RIG0.0" but only a name as such. This is a very rare case because the file can only be generated by the library versions sometimes in 1995. 2012/1/10 libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/tvattr.dat0000644000000000000000000000432012421456623017004 0ustar Ê\­"&«<ªˆ~­ˆ«¢ªª:«äªè:«HªK:«…ª‰:« ê Ç:« NCSA HDF post Version 4.0 Release 2, July 23, 1996vgname0ABCDEFfldname1fldname2vsname1ªvgname1'0'PVALUESattname1Attr0.0 VALUESattname2Attr0.0vgname0ªªmNpVALUESattname3Attr0.0BVALUESattname4Attr0.0BVALUESattname5Attr0.0B€ª Ë:« ª  :« Gª O9« «ª":«\ª_:«™ª:ª €~«=ªA:«{VALUESattname4Attr0.0ÀPæšÔ,=VALUESattname5Attr0.0@PæšÔ,=VALUESvsname1Attr0.0fldname1fldname2vsname1ÿÿÿÿªªª ÿÿÿÿª ª ª ÿÿÿÿ BVALUESattname6Attr0.0mNpVALUESattname7Attr0.0BVALUESattname8Attr0.0fldname0fldname1vsname0ªÿÿÿÿªªÂ VALUESattname8Attr0.0mNpStªF:­2« ª$:«^ªb;VALUESattname9Attr0.0fldname0fldname1vsname0vsclass0ªÿÿÿÿªªªªª vgname2vgclass2dVALUESattname9Attr0.0 VALUES attname10Attr0.0ª vgname2vgclass2ªªlibhdf4-4.2.10/HDF_ALT/hdf/test/test_files/litend.dat0000644000000000000000000000505012421456623016740 0ustar  Ê\¾&?je½iо‡?jƽÊÐà¾è~jf½jЀ¾ˆ~j½ NCSA HDF Version 3.3 Beta Release 1 Nov 1, 1992:3üñ:üH ;üHÐL:3  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV jjj¾½  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV jjj¾½  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV jjj¾½  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV jjj ZÐæ¾îüjê½îо üj½ Ð"¾*üj&½*Ð@¾ Høj @½ D¾½  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV  jjj¾½  !"#$()*+,-.2345678<=>?@ABFGHIJKLPQRSTUV  jjj¾½€?@@@€@ @À@ A0A@APA`ApA€A A¨A°A¸AÀAÈAÐAðAøABBB BB B$B(B,B0B4B8BHBLBPBTBXB\B`BpBtBxB|B€B‚B„BŒBŽBB’B”B–B˜B B¢B¤B¦B¨BªB¬B  jjj¾½ð?@@@@@$@&@(@*@,@.@0@4@5@6@7@8@9@:@>@?@@@€@@A@€A@B@D@€D@E@€E@F@€F@G@I@€I@J@€J@K@€K@L@N@€N@O@€O@P@@P@€P@€Q@ÀQ@R@@R@€R@ÀR@S@T@@T@€T@ÀT@U@@U@€U@@ j j j Ð ¾ ½ libhdf4-4.2.10/HDF_ALT/hdf/test/test_files/gr_r24.dat0000644000000000000000000000106712421456623016564 0ustar Ê\.&ðj,2.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNCSA HDF post Version 4.1 Release 2, March 1998                                         j,.libhdf4-4.2.10/HDF_ALT/hdf/test/tmgrattr.c0000644000000000000000000004151312421456623014642 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /**************************************************************************** * tmgrattr.c - tests the attribute functions for the multi-file GR interface * Structure of the file: * test_mgr_attr - test driver * test_mgr_fillvalues - tests with fill value attributes * test_mgr_userattr - tests with user-defined attributes * ****************************************************************************/ #include "hdf.h" #include #include "tutils.h" #include "tproto.h" #define TESTFILE "tmgratt.hdf" #define F_ATT1_VAL "Contents of First FILE Attribute" #define IMAGE1_NAME "Image 1" #define F_ATT1_NAME "File Attribute 1" #define F_ATT2_NAME "File Attribute 2" #define RI_ATT1_NAME "Image Attribute 1" #define RI_ATT2_NAME "Image Attribute 2" #define F_ATT1_N_VALUES 32 #define F_ATT2_N_VALUES 5 #define N_COMPS 4 #define RI_ATT1_VAL "Contents of IMAGE1's First Attribute" #define RI_ATT_N_VALUES 4 #define RI_ATT1_N_VALUES 36 #define RI_ATT2_N_VALUES 6 /* Pixel with fill values */ static float32 fill_pixel[RI_ATT_N_VALUES]={1.3,-2.4,1000.3,.25}; static uint8 file_attr_2[F_ATT2_N_VALUES] = {1, 2, 3, 4, 5}; /******************************************************************** Name: test_mgr_fillvalues() Description: This test routine sets fill values to an RI with GRsetattr then reads the values back with GRgetattr and verifies them. Return value: The number of errors occurred in this routine. *********************************************************************/ static int test_mgr_fillvalues() { int32 fid; /* HDF file ID */ int32 grid; /* ID for the GR interface */ int32 riid; /* ID for the RI image */ int32 attr_index; /* attribute index */ int32 dims[2]={5,7}; /* dimensions used on all images */ uint16 ref; /* RI reference number */ int32 ri_index; /* RI index */ float32 image[7][5][N_COMPS]; /* space for the image data */ VOIDP read_fill_vals=NULL; /* space for fill values read from attr */ float32 image0[7][5][N_COMPS]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2]; /* stride of image data to grab */ char attr_name[H4_MAX_GR_NAME]; int32 ntype, n_values; hdf_ntinfo_t nt_info; /* struct containing name and byte order of a num type */ int32 ret; /* generic return value */ int num_errs = 0; /* number of errors so far */ MESSAGE(8, printf("Reading fill-value attribute\n");); fid = Hopen(TESTFILE, DFACC_CREATE, 0); CHECK(fid, FAIL, "Hopen"); /* Initialize the GR interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); { /* Create empty image with default fill-values */ riid = GRcreate(grid, IMAGE1_NAME, N_COMPS, DFNT_FLOAT32, MFGR_INTERLACE_PIXEL, dims); CHECK(riid, FAIL, "GRcreate"); /* Set the fill-value */ ret = GRsetattr(riid, FILL_ATTR, DFNT_FLOAT32, RI_ATT_N_VALUES, fill_pixel); CHECK(ret, FAIL, "GRsetattr"); /* Save the ref. # for later access */ ref = GRidtoref(riid); CHECK(ref, (uint16)FAIL, "GRidtoref"); /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); /* Get the index of the newly created image */ ri_index = GRreftoindex(grid, ref); CHECK(ri_index, FAIL, "GRreftoindex"); /* Select the newly created image */ riid = GRselect(grid, ri_index); CHECK(riid, FAIL, "GRselect"); /* Buffer to read image's data in */ HDmemset(image, 0, (size_t)(dims[0]*dims[1]* N_COMPS)*sizeof(float32)); /* Fill the memory-only with the default pixel fill-value */ HDmemfill(image0, fill_pixel, sizeof(fill_pixel), sizeof(image0) / sizeof(fill_pixel)); /* Read and verify image's data, should only be fill-values */ start[0] = start[1] = 0; stride[0] = stride[1] = 1; ret = GRreadimage(riid, start, stride, dims, image); CHECK(ret, FAIL, "GRreadimage"); if (HDmemcmp(image, image0, sizeof(image0)) != 0) { MESSAGE(3, printf("Error reading data for image with user defined fill-values\n");); num_errs++; } /* Find the image's attribute named FILL_ATTR */ attr_index = GRfindattr(riid, FILL_ATTR); VERIFY(attr_index, 0, "GRfindattr"); /* Get information about the current attribute. */ ret = GRattrinfo(riid, attr_index, attr_name, &ntype, &n_values); CHECK(ret, FAIL, "GRattrinfo"); VERIFY(attr_index, 0, "GRattrinfo"); VERIFY(ntype, DFNT_FLOAT32, "GRattrinfo"); VERIFY(n_values, RI_ATT_N_VALUES, "GRattrinfo"); VERIFY_CHAR(attr_name, FILL_ATTR, "GRattrinfo"); /* Allocate a buffer to hold the attribute data. */ read_fill_vals = HDmalloc (n_values * sizeof (float32)); if (read_fill_vals == NULL) { fprintf(stderr, "Unable to allocate space for attribute data.\n"); exit(1); } /* Piggy-back a test for Hgetntinfo */ ret = Hgetntinfo(ntype, &nt_info); CHECK(ret, FAIL, "Hgetntinfo"); VERIFY_CHAR(nt_info.type_name, "float32", "Hgetntinfo"); /* Read and verify the attribute's data */ ret = GRgetattr(riid, attr_index, (VOIDP) read_fill_vals); CHECK(ret, FAIL, "GRgetattr"); if (HDmemcmp(fill_pixel, read_fill_vals, RI_ATT_N_VALUES) != 0) { MESSAGE(3, printf("Error reading values of attribute FILL_ATTR\n");); num_errs++; } /* end if */ if (read_fill_vals != NULL) HDfree(read_fill_vals); /* Close the empty image */ ret = GRendaccess(riid); CHECK(ret, FAIL, "GRendaccess"); } /* Shut down the GR interface */ ret = GRend(grid); CHECK(ret, FAIL, "GRend"); /* Close the file */ ret = Hclose(fid); CHECK(ret, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return num_errs; } /* end test_mgr_fillvalues() */ /******************************************************************** Name: test_mgr_userattr() Description: This test routine creates user-define attributes to the file and to an RI with GRsetattr then reads the values back with GRgetattr and verifies them. Return value: The number of errors occurred in this routine. *********************************************************************/ static int test_mgr_userattr() { int32 grid, riid, fid, ri_index, f_att_index, /* index of file attributes */ ri_att_index, /* index of raster image attributes */ n_values, /* number of values in an attribute */ n_rimages, /* number of raster images in the file */ n_file_attrs; /* number of file attributes */ char attr_name[H4_MAX_GR_NAME]; /* buffer to hold the attribute name */ char ri_name[H4_MAX_GR_NAME]; /* buffer to hold the image name */ int32 ncomp; /* number of components */ int32 ntype; /* number type of the components */ int32 il; /* interlace of the image data */ int32 dims[2]; /* dimension sizes of the image */ int32 n_attrs; /* number of attributes with each image */ int16 ri_attr_2[RI_ATT2_N_VALUES] = {1, 2, 3, 4, 5, 6}; VOIDP data_buf; /* buffer to hold the attribute values */ hdf_ntinfo_t nt_info; /* struct containing name and byte order of a num type */ intn status; /* status for functions returning an intn */ int num_errs = 0; /* number of errors so far */ MESSAGE(8, printf("Reading user-defined attribute\n");); fid = Hopen(TESTFILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen"); /* Initialize the GR interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); /* Set two file attributes. */ status = GRsetattr(grid, F_ATT1_NAME, DFNT_CHAR8, F_ATT1_N_VALUES, F_ATT1_VAL); CHECK(status, FAIL, "GRsetattr"); status = GRsetattr(grid, F_ATT2_NAME, DFNT_UINT8, F_ATT2_N_VALUES, (VOIDP)file_attr_2); CHECK(status, FAIL, "GRsetattr"); /* Obtain the index of the image named IMAGE1_NAME. */ ri_index = GRnametoindex(grid, IMAGE1_NAME); CHECK(ri_index, FAIL, "GRnametoindex"); /* Obtain the identifier of this image. */ riid = GRselect(grid, ri_index); CHECK(riid, FAIL, "GRselect"); /* Set two attributes to the image. */ status = GRsetattr(riid, RI_ATT1_NAME, DFNT_CHAR8, RI_ATT1_N_VALUES, RI_ATT1_VAL); CHECK(status, FAIL, "GRsetattr"); status = GRsetattr(riid, RI_ATT2_NAME, DFNT_INT16, RI_ATT2_N_VALUES, (VOIDP)ri_attr_2); CHECK(status, FAIL, "GRsetattr"); /* Terminate accesses, and close the HDF file. */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); status = GRend(grid); CHECK(status, FAIL, "GRend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Reopen the file again to read the attributes and verify their values.*/ fid = Hopen(TESTFILE, DFACC_RDWR, 0); CHECK(fid, FAIL, "Hopen"); /* Initialize the GR interface */ grid = GRstart(fid); CHECK(grid, FAIL, "GRstart"); /* Verify the number of file attributes */ status = GRfileinfo (grid, &n_rimages, &n_file_attrs); CHECK(status, FAIL, "GRfileinfo"); /* Read each file attribute and verify its values */ if (status != FAIL && n_file_attrs > 0) { for (f_att_index = 0; f_att_index < n_file_attrs; f_att_index++) { /* Get information about the current file attribute. */ status = GRattrinfo (grid, f_att_index, attr_name, &ntype, &n_values); CHECK(status, FAIL, "GRattrinfo"); /* Allocate a buffer to hold the file attribute data. Knowledge * about the data type is assumed to be available from the previous * part of the test where the correspondent GRsetattr was called. */ switch (ntype) { case DFNT_CHAR8: data_buf = malloc (n_values * sizeof (char8)); if (data_buf == NULL) { fprintf(stderr, "test_mgr_userattr: Failed to allocate memory for data buffer for char8.\n"); exit (1); } break; case DFNT_UINT8: data_buf = malloc (n_values * sizeof (uint8)); if (data_buf == NULL) { fprintf(stderr, "test_mgr_userattr: Failed to allocate memory for data buffer for uint8.\n"); exit (1); } break; default: { fprintf (stderr, "test_mgr_userattr: Unable to determine data type to allocate data buffer.\n"); exit (1); } } /* switch */ /* Read and verify the attribute values. */ status = GRgetattr (grid, f_att_index, (VOIDP)data_buf); CHECK(status, FAIL, "GRgetattr"); switch (ntype) { case DFNT_CHAR8: if (HDmemcmp(data_buf, F_ATT1_VAL, n_values) != 0) { MESSAGE(3, printf("Error reading values of attribute %s\n", attr_name);); num_errs++; } /* end if */ /* Piggy-back a test for Hgetntinfo */ status = Hgetntinfo(ntype, &nt_info); CHECK(status, FAIL, "Hgetntinfo"); VERIFY_CHAR(nt_info.type_name, "char8", "Hgetntinfo"); break; case DFNT_UINT8: if (HDmemcmp(data_buf, file_attr_2, n_values) != 0) { MESSAGE(3, printf("Error reading values of attribute %s\n", attr_name);); num_errs++; } /* end if */ /* Piggy-back a test for Hgetntinfo */ status = Hgetntinfo(ntype, &nt_info); CHECK(status, FAIL, "Hgetntinfo"); VERIFY_CHAR(nt_info.type_name, "uint8", "Hgetntinfo"); break; default: { fprintf (stderr, "test_mgr_userattr: Unable to determine data type to verify data.\n"); exit (1); } } /* switch */ /* Free the space allocated for the data buffer. */ HDfree(data_buf); } /* for */ } /* if */ /* Obtain the index of the image named IMAGE1_NAME. */ ri_index = GRnametoindex(grid, IMAGE1_NAME); CHECK(ri_index, FAIL, "GRnametoindex"); /* Obtain the identifier of this image. */ riid = GRselect(grid, ri_index); CHECK(riid, FAIL, "GRselect"); /* Get the image information */ status = GRgetiminfo(riid, ri_name, &ncomp, &ntype, &il, dims, &n_attrs); CHECK(status, FAIL, "GRgetiminfo"); /* Verify each attribute's values */ if (status != FAIL && n_attrs > 0) { for (ri_att_index = 0; ri_att_index < n_attrs; ri_att_index++) { /* Get information about the current attribute. */ status = GRattrinfo (riid, ri_att_index, attr_name, &ntype, &n_values); CHECK(status, FAIL, "GRattrinfo"); /* Allocate a buffer to hold the attribute data. Knowledge about * the data type is assumed to be available from the previous * part of the test where the correspondent GRsetattr was called. */ switch (ntype) { case DFNT_FLOAT32: data_buf = malloc (n_values * sizeof (float32)); if (data_buf == NULL) { fprintf(stderr, "test_mgr_userattr: Failed to allocate memory for data buffer for float32.\n"); exit (1); } break; case DFNT_CHAR8: data_buf = malloc (n_values * sizeof (char8)); if (data_buf == NULL) { fprintf(stderr, "test_mgr_userattr: Failed to allocate memory for data buffer for char8.\n"); exit (1); } break; case DFNT_INT16: data_buf = malloc (n_values * sizeof (int16)); if (data_buf == NULL) { fprintf(stderr, "test_mgr_userattr: Failed to allocate memory for data buffer for int16.\n"); exit (1); } break; default: { fprintf (stderr, "test_mgr_userattr: Unable to determine data type to allocate data buffer.\n"); exit (1); } } /* switch */ /* Read and verify the attribute values. */ status = GRgetattr (riid, ri_att_index, (VOIDP)data_buf); CHECK(status, FAIL, "GRgetattr"); /* Verify values from the attribute. * Knowledge about the data type is assumed to be available from * the previous part of the test. */ switch (ntype) { case DFNT_FLOAT32: if (HDmemcmp(fill_pixel, data_buf, RI_ATT_N_VALUES) != 0) { MESSAGE(3, printf("Error reading values of attribute FILL_ATTR\n");); num_errs++; } /* end if */ break; case DFNT_CHAR8: if (HDmemcmp(RI_ATT1_VAL, data_buf, RI_ATT1_N_VALUES) != 0) { MESSAGE(3, printf("Error reading values of attribute FILL_ATTR\n");); num_errs++; } /* end if */ break; case DFNT_INT16: if (HDmemcmp(ri_attr_2, data_buf, RI_ATT2_N_VALUES) != 0) { MESSAGE(3, printf("Error reading values of attribute FILL_ATTR\n");); num_errs++; } /* end if */ break; default: { fprintf (stderr, "test_mgr_userattr: Unable to determine data type to read attribute data.\n"); exit (1); } } /* switch */ /* Free the space allocated for the data buffer. */ HDfree(data_buf); } /* for */ } /* if */ /* Terminate accesses, and close the HDF file. */ status = GRendaccess(riid); CHECK(status, FAIL, "GRendaccess"); status = GRend(grid); CHECK(status, FAIL, "GRend"); status = Hclose(fid); CHECK(status, FAIL, "Hclose"); /* Return the number of errors that's been kept track of so far */ return(num_errs); } /* test_mgr_userattr */ /**************************************************************** ** ** test_mgr_attr(): Main multi-file raster attribute test routine ** ** VII. Atribute Functions ** A. GRattrinfo ** B. Read/Write Attributes ** 1. GRsetattr ** 2. GRgetattr ** C. GRfindattr ** ** test_mgr_attr is invoked by test_mgr in mgr.c. ** ****************************************************************/ /* Test driver for testing attributes in multi-file GR interface */ extern void test_mgr_attr() { int num_errs = 0; /* Output message about test being performed */ MESSAGE(5, printf("Testing Multi-file Raster Attribute routines\n");); /* Test attribute functions with fill-values attributes */ num_errs = num_errs + test_mgr_fillvalues(); /* Test attribute functions with user-defined attributes */ num_errs = num_errs + test_mgr_userattr(); if (num_errs != 0) { H4_FAILED(); } } /* test_mgr_attr() */ libhdf4-4.2.10/HDF_ALT/hdf/test/tutils.c0000644000000000000000000000645312421456623014326 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "hdf.h" #include "tutils.h" intn fuzzy_memcmp(const void *s1, const void *s2, int32 len, intn fuzz_factor) { const uint8 *t1 = (const uint8 *) s1; const uint8 *t2 = (const uint8 *) s2; while (len > 0 && (int) ABS(*t2 - *t1) <= fuzz_factor) { t1++; t2++; len--; } /* end while */ if (len == 0) return (0); else { return ((intn) (*t1 - *t2)); } } /* end fuzzy_memcmp() */ void print_mismatched(const void *s1, const void *s2, int32 size2cmp) { int ii, jj, nn=0, kk; const uint8 *t1 = (const uint8 *) s1; const uint8 *t2 = (const uint8 *) s2; for (ii = 0; ii < size2cmp; ii++) { if (ABS(*t1 - *t2) > 0) fprintf(stderr, "item#%d: HDF(%d) - JPEG(%d)\n", ii, *t1, *t2); t1++; t2++; } } /* Generate the correct name for the test file, by prepending the source path if it exists, otherwise, assume it is the local directory */ /* NOTE: should move all utilities into mfutil.c or something like that */ intn make_datafilename(char* basename, char* testfile, unsigned int size) { char *srcdir = getenv("srcdir"); char *tempfile = NULL; tempfile = (char *) HDmalloc(sizeof(char *) * (size+1)); HDmemset(tempfile, '\0', size+1); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(basename) + 1) < size)) { strcpy(tempfile, srcdir); strcat(tempfile, "/"); } /* Windows doesn't set srcdir, and generates files in a different relative path, so we need to special case here. It is best to look for the testfile in the same path, and the Windows test script will make sure to put it there first. - SJW 2007/09/19 (from tnetcdf.c) */ #ifndef _WIN32 /* This is to get to the file when the library was built without srcdir option and the test is ran by ./hdftest in the test src directory instead of by make check. - BMR 2007/08/09 */ if (srcdir == NULL) strcpy(tempfile, "./"); #endif /* _WIN32 */ /* Name of data file */ strcat(tempfile, basename); /* Verify that file name is not NULL */ if (tempfile == NULL || tempfile[0] == '\0') return FAIL; /* File name is generated, return it */ HDstrcpy(testfile, tempfile); return SUCCEED; } libhdf4-4.2.10/HDF_ALT/hdf/test/egchi.res0000644000000000000000000000502412421456623014421 0ustar # # NOTE: This file was generated on a machine where the size of # local ints and floats is 4 bytes. On machines with different # sizes the 'vsize=X' entries will be different. # FULL DUMP FILE: egchi.hdf vg:0 <1965/4> (This is an EMPTY vgroup {EXAMPLE}) has 0 entries: vg:1 <1965/5> (here is a vset with 4 links {EXAMPLE}) has 4 entries: vs:0 <1962/2> nv=100 i=0 fld [PRES] vsize=4 (pressure vals {EXAMPLE}) 0: fld [PRES], type=5, order=1 100.000000 100.000999 100.001999 100.002998 100.003998 100.004997 100.005997 100.007004 100.008003 100.009003 100.010002 100.011002 100.012001 100.013000 100.014000 100.014999 100.015999 100.016998 100.017998 100.018997 100.019997 100.021004 100.022003 100.023003 100.024002 100.025002 100.026001 100.027000 100.028000 100.028999 100.029999 100.030998 100.031998 100.032997 100.033997 100.035004 100.036003 100.037003 100.038002 100.039001 100.040001 100.041000 100.042000 100.042999 100.043999 100.044998 100.045998 100.046997 100.047997 100.049004 100.050003 100.051003 100.052002 100.053001 100.054001 100.055000 100.056000 100.056999 100.057999 100.058998 100.059998 100.060997 100.061996 100.063004 100.064003 100.065002 100.066002 100.067001 100.068001 100.069000 100.070000 100.070999 100.071999 100.072998 100.073997 100.074997 100.075996 100.077003 100.078003 100.079002 100.080002 100.081001 100.082001 100.083000 100.084000 100.084999 100.085999 100.086998 100.087997 100.088997 100.089996 100.091003 100.092003 100.093002 100.094002 100.095001 100.096001 100.097000 100.098000 100.098999 vs:1 <1962/3> nv=60 i=0 fld [COLOR] vsize=12 (rgb colors {EXAMPLE}) 0: fld [COLOR], type=24, order=3 0 100 200 1 101 201 2 102 202 3 103 203 4 104 204 5 105 205 6 106 206 7 107 207 8 108 208 9 109 209 10 110 210 11 111 211 12 112 212 13 113 213 14 114 214 15 115 215 16 116 216 17 117 217 18 118 218 19 119 219 20 120 220 21 121 221 22 122 222 23 123 223 24 124 224 25 125 225 26 126 226 27 127 227 28 128 228 29 129 229 30 130 230 31 131 231 32 132 232 33 133 233 34 134 234 35 135 235 36 136 236 37 137 237 38 138 238 39 139 239 40 140 240 41 141 241 42 142 242 43 143 243 44 144 244 45 145 245 46 146 246 47 147 247 48 148 248 49 149 249 50 150 250 51 151 251 52 152 252 53 153 253 54 154 254 55 155 255 56 156 256 57 157 257 58 158 258 59 159 259 vg:2 <1965/4> ne=0 (This is an EMPTY vgroup {EXAMPLE}) --:3 <7777/1> Unknown Tag libhdf4-4.2.10/HDF_ALT/hdf/test/tdatainfo.h0000644000000000000000000000321312421456623014747 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: tutils.h 5335 2010-01-28 06:28:23Z bmribler $ */ #ifndef _TDATAINFO_H #define _TDATAINFO_H typedef struct { int32 numtype; /* number type of data */ int32 n_values; /* number of values in an SDS, a vdata, or an RI image*/ int32* offsets; /* offset(s) of data block(s) */ int32* lengths; /* length(s) of data block(s) */ } t_hdf_datainfo_t; /* Utility functions to allocate and deallocate hdf_datainfo_t's members*/ intn alloc_info(t_hdf_datainfo_t *info, uintn info_count); void free_info(t_hdf_datainfo_t *info); /* Other utility functions */ intn readnoHDF_char(const char *filename, const int32 offset, const int32 length, const char *orig_buf); #endif /* _TDATAINFO_H */ libhdf4-4.2.10/HDF_ALT/hdf/test/chunks.c0000644000000000000000000023756612421456623014310 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6032 $"; #endif /* $Id: chunks.c 6032 2014-01-17 18:13:52Z acheng $ */ /* * This file tests the Special Chunking Element(HMCxxx) layer of the HDF library. * * NOTE: No failure conditions are tested yet.... * * Outline of Tests done: * 1. First test simple writing of 2-D element with no ghost/partial chunks. * 4x4 array of uint8, each chunk 2x2(4 bytes) -> 4 chunks(16 bytes). * Write out 12 bytes to all 4 chunks with only partial writes * to the last 2 chunks.. * Write again to last 2 chunks with whole data chunks * * 2. Now create a new chunked 2-D element with same parameters * before but write to 2 chunks of element using whole chunks. * The rest of he data should contain fill values. * * 3. Create a new element but now there will be partial chunks * because chunk lengths are not an even multiple of dimesion lengths. * Set dimension to 4x4 array with 4 chunks where each chunk is * 3x2 = 6 bytes. Real data size is 16 bytes, size with chunks is * 6 bytes x 4 chunks = 24 bytes * * 4. Now create 3-D chunked element with no partial chunks. * Write to only part of the chunked element. The rest * should be filled with fill values. * Set dimension to 4x6x8 array with 8 chunks * where each chunk is 2x3x4= 24 bytes , read data size 192 bytes * data size with chunks is 192 bytes also. * * 5. Now create another 3-D chunked element with partial chunks. * Write to part of element, rest is filled with fill value. * Set dimension to 4x6x8 array with 8 chunks , real data 192 bytes * where each chunk is 3x4x5= 60 bytes , * data size with chunks is 60 bytes x 8 chunks = 480 bytes * * 6. Now create 3-D chunked element with no partial chunks. * Write using HMCwriteChunk(). Read data back in first * using Hread() and verify. Then read data back in using * HMCreadChunk() and verify. * Set dimension to 2x3x4 array with 6 chunks * where each chunk is 1x1x4= 4 bytes , total data size 24 bytes * * 7. Now create 3-D chunked element with no partial chunks. * Set dimension to 2x3x4 array with 6 chunks. Number type is uint16 * where each chunk is 1x1x4= 4x2(nt_size) = 8 bytes , * total data size 48 bytes * * 8. Now create 3-D chunked element with no partial chunks. * Set dimension to 2x3x4 array with 6 chunks. Numbertype is float32 * where each chunk is 1x1x4= 4x4(nt_size) = 16 bytes , * total data size 96 bytes . * * 9. Create 4-D element with partial chunks. * Write only half the data out(5,000 bytes) * Set dimension to 10x10x10x10 array -> real data 10,000 bytes . * 120 chunks with chunks of 2x3x4x5 = 120 bytes, * data size with chunks is 120 bytes x 120 chunks = 14,400 bytes * * 10. *NOT ENABLED* * The rest of the tests here are commented out * They are some extra high order tests to replicate * some test done on EOS-DEM data * Set dimension to 12000x12000 array with 2,500 chunks * whith chunk of 240x240 = 57,600 bytes * * 11. Create a new element but now there will be partial chunks and Compression. * Set dimension to 4x4 array with 4 chunks where each chunk is 3x2 = 6 bytes. * Real data size is 16 bytes, size with chunks is * 6 bytes x 4 chunks = 24 bytes. * The element will be compressed with RLE scheme. * * 12. Now create 3-D chunked, Compressed element with no partial chunks. * Write using HMCwriteChunk(). Read data back in first * using Hread() and verify. Then read data back in using * HMCreadChunk() and verify. * Set dimension to 2x3x4 array with 6 chunks * where each chunk is 1x1x4= 4 bytes , total data size 24 bytes * The element is compressed using RLE scheme. * * For all the tests the data is read back in and verified. * * Routines tested using User level H-level calls: * Hstartread() -> HMCPstread() * Hstartwrite() -> HMCPstwrite() * Hread() -> HMCPread() * Hwrite() -> HMCPwrite() * Hseek() -> HMCPseek() * Hendaccess() -> HMCPendaccess() * Hinquire() -> HMCPinquire() * HDget_special_info() -> HMCPinfo() * * Routines test by direct calling of Chunking routines: * HMCcreate() * HMCsetMaxCache() * HMCwriteChunk() * HMCreadChunk() * * * Author -GeorgeV * */ #include "tproto.h" #include "hchunks.h" #define TESTFILE_NAME "tchunks.hdf" #define BUFSIZE 12288 /* Some static data buffers */ static uint8 outbuf[BUFSIZE], /* output data buffer */ inbuf[BUFSIZE]; /* input data buffer */ /* used to verify data in Test 2. */ static uint8 outbuf_2[16] = {0,0,2,3,0,0,6,7,8,9,0,0,12,13,0,0}; /* used to in Tests 1,2 */ static uint8 cptr3[4] = {10,11,14,15}; static uint8 cptr2[4] = {8,9,12,13}; static uint8 cptr1[4] = {2,3,6,7}; /* for writing/verifying some chunks used in Test 6*/ static uint8 chunk1[4] = { 0, 1, 2, 3}; static uint8 chunk2[4] = { 10, 11, 12, 13}; static uint8 chunk3[4] = { 20, 21, 22, 23}; static uint8 chunk4[4] = { 100, 101, 102, 103}; static uint8 chunk5[4] = { 110, 111, 112, 113}; static uint8 chunk6[4] = { 120, 121, 122, 123}; /* datay layout of arrays in memory */ /* for comparison in Test 8 */ static float32 f32_data[2][3][4] = { { {(float32) 0.0, (float32) 1.0, (float32) 2.0, (float32) 3.0}, {(float32) 10.0, (float32) 11.0, (float32) 12.0, (float32) 13.0}, {(float32) 20.0, (float32) 21.0, (float32) 22.0, (float32) 23.0}}, { {(float32) 100.0, (float32) 101.0, (float32) 102.0, (float32) 103.0}, {(float32) 110.0, (float32) 111.0, (float32) 112.0, (float32) 113.0}, {(float32) 120.0, (float32) 121.0, (float32) 122.0, (float32) 123.0}}}; /* for comparison in Test 7 */ static uint16 u16_data[2][3][4] = { { { 0, 1, 2, 3}, { 10, 11, 12, 13}, { 20, 21, 22, 23}}, { { 100, 101, 102, 103}, { 110, 111, 112, 113}, { 120, 121, 122, 123}}}; /* for comparison in Test 6 */ static uint8 u8_data[2][3][4] = { { { 0, 1, 2, 3}, { 10, 11, 12, 13}, { 20, 21, 22, 23}}, { { 100, 101, 102, 103}, { 110, 111, 112, 113}, { 120, 121, 122, 123}}}; /* * main entry point to tests the Special Chunking layer... * * -GeorgeV */ void test_chunks(void) { int32 fid; int32 aid1, aid2; int32 fileid, length, offset, posn; uint16 tag, ref; int16 acc_mode, special; register int i, j, k; #ifdef BIG_TEST int32 x,y; int32 nseek = 0; #endif int32 ret; HCHUNK_DEF chunk[1]; /* Chunk definition, see 'hchunks.h' */ int32 dims[5]; int32 fill_val_len = 1; uint8 fill_val_u8 = 0; /* test 6 */ uint16 fill_val_u16 = 0; /* test 7 */ float32 fill_val_f32 = (float32)0.0; /* test 8 */ uint8 inbuf_u8[2][3][4]; uint16 inbuf_u16[2][3][4]; /* input data buffer */ float32 inbuf_f32[2][3][4]; /* input data buffer */ sp_info_block_t info_block; /* special info block */ comp_info cinfo; model_info minfo; intn errors = 0; /* intialize out buffer */ for (i = 0; i < BUFSIZE; i++) outbuf[i] = (char) (i % 256); /* allocate space for chunk dimensions */ if ((chunk[0].pdims = (DIM_DEF *)HDmalloc(5*sizeof(DIM_DEF))) == NULL) { printf("test_chunks: error allocatin space for chunk dims\n"); errors++; goto done; } /* Create file first */ MESSAGE(5, printf("Creating a file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* 1.First test simple writing of 2-D element with no ghost/partial chunks. Set dimension to 4x4 array with 4 chunks where each chunk is 2x2. Write out 12 bytes to all 4 chunks with only partial writes to the last 2 chunks.. Write again to last 2 chunks with whole data chunks */ chunk[0].num_dims = 2; /* 2-D */ chunk[0].chunk_size = 4; /* 2x2 = 4 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ chunk[0].pdims[0].dim_length = 4; chunk[0].pdims[0].chunk_length = 2; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 4; chunk[0].pdims[1].chunk_length = 2; chunk[0].pdims[1].distrib_type = 1; MESSAGE(5, printf("Test 1. Create a new element as a 2-D, uint8 chunked element\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 2, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); #if 0 /* write 16 bytes out */ ret = Hwrite(aid1, 16, outbuf); if (ret != 16) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote first 16 bytes to 2-D, uint8 chunked element to file\n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); #endif /* write 12 bytes out */ ret = Hwrite(aid1, 12, outbuf); if (ret != 12) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote first 12 bytes to 2-D, uint8 chunked element to file\n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 2-D chunked element again for writing\n"); ); /* Open file for writing last 2 chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start write access tag, ref */ aid1 = Hstartwrite(fid, 1020, 2, 16); CHECK_VOID(aid1, FAIL, "Hstartwrite"); /* Try writing to last chunk in the element */ dims[0] = 1; dims[1] = 1; ret = HMCwriteChunk(aid1, dims, cptr3); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); MESSAGE(5, printf("Wrote to 4th chunk(4of4 chunks) in file\n");); /* Try writing to 2nd to last chunk in the element */ dims[0] = 1; dims[1] = 0; ret = HMCwriteChunk(aid1, dims, cptr2); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); MESSAGE(5, printf("Wrote to 3 chunk (3of4 chunks) in file\n");); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 2-D, uint8 chunked element again for reading \n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 2); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if (ref != 2 || length != 16) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } MESSAGE(5, printf("Get/Check special info data\n"); ); /* get special info about element */ ret = HDget_special_info(aid1, &info_block); CHECK_VOID(aid1, FAIL, "HDget_special_info"); /* check special info */ if (info_block.ndims != chunk[0].num_dims /* 2-D */) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* check chunk_lengths */ if (info_block.cdims != NULL) { if ((info_block.cdims[0] != 2) || (info_block.cdims[1] != 2)) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* free allocated space by routine */ HDfree(info_block.cdims); } else { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 16, inbuf); VERIFY_VOID(ret, 16, "Hread"); if (ret != 16) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 16 bytes of data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 2. Now create a new chunked 2-D element with same parameters before but write to 2 chunks of element using whole chunks. The rest of he data should contain fill values. */ /* Open file for writing again */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 2. Create another new element as a 2-D, uint8 chunked element\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 3, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* Try writing to 2 chunk in the element */ dims[0] = 1; dims[1] = 0; ret = HMCwriteChunk(aid1, dims, cptr2); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); MESSAGE(5, printf("Wrote to 3 chunk (3of4) in file\n"); ); /* Try writing to 1 chunk in the element */ dims[0] = 0; dims[1] = 1; ret = HMCwriteChunk(aid1, dims, cptr1); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); MESSAGE(5, printf("Wrote to 2nd chunk (2of4 chunks) in file\n"); ); /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* Now reopen and read back 16 bytes */ MESSAGE(5, printf("Open 2-D, uint8 chunked element again for reading \n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 3); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 3 || length != 16) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 16, inbuf); VERIFY_VOID(ret, 16, "Hread"); if (ret != 16) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data, check against 'outbuf_2' some of the data should be filled with fill value of 0 */ MESSAGE(5, printf("Verifying 16 bytes of data, there will be some fill values\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf_2[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf_2[i], inbuf[i]); errors++; } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 3. Create a new element but now there will be partial chunks because chunk lengths are not an even multiple of dimesion lengths. Set dimension to 4x4 array with 4 chunks where each chunk is 3x2 = 6 bytes. Real data size is 16 bytes, size with chunks is 6 bytes x 4 chunks = 24 bytes */ chunk[0].num_dims = 2; chunk[0].chunk_size = 6; /* 3x2 = 6 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ chunk[0].pdims[0].dim_length = 4; chunk[0].pdims[0].chunk_length = 3; /* made this 3 */ chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 4; chunk[0].pdims[1].chunk_length = 2; chunk[0].pdims[1].distrib_type = 1; /* Open file for writing odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 3. Create another new element as a 2-D, uint8 chunked element\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 5, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 16 bytes out */ ret = Hwrite(aid1, 16, outbuf); VERIFY_VOID(ret, 16, "Hwrite"); if (ret != 16) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote to 4of4 chunks (16 bytes) in file\n");); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 2-D, uint8 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 5); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 5 || length != 16) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 16, inbuf); VERIFY_VOID(ret, 16, "Hread"); if (ret != 16) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 16 bytes of data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } inbuf[i] = '\0'; } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 4. Now create 3-D chunked element with no partial chunks. Write to only part of the chunked element. The rest should be filled with fill values. Set dimension to 4x6x8 array with 8 chunks where each chunk is 2x3x4= 24 bytes , total data size 192 bytes */ chunk[0].num_dims = 3; chunk[0].chunk_size = 24; /* 2x3x4 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ chunk[0].pdims[0].dim_length = 4; chunk[0].pdims[0].chunk_length = 2; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 6; chunk[0].pdims[1].chunk_length = 3; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 8; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 1; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 4. Create another new element as a 3-D, uint8 chunked element(192 bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 6, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write only 112 bytes out */ ret = Hwrite(aid1, 112, outbuf); VERIFY_VOID(ret, 112, "Hwrite"); if (ret != 112) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote 112of192 bytes to 3-D, uint8 chunked element \n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, uint8 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 6); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 6 || length != 192) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } MESSAGE(5, printf("Get/Check special info data\n"); ); /* get special info about element */ ret = HDget_special_info(aid1, &info_block); CHECK_VOID(aid1, FAIL, "HDget_special_info"); /* check special info */ if (info_block.ndims != chunk[0].num_dims /* 2-D */) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* check chunk_lengths */ if (info_block.cdims != NULL) { if ((info_block.cdims[0] != 2) || (info_block.cdims[1] != 3) || (info_block.cdims[2] != 4)) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* free allocated space by routine */ HDfree(info_block.cdims); } else { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 112, inbuf); VERIFY_VOID(ret, 112, "Hread"); if (ret != 112) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying first 112 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } inbuf[i] = '\0'; } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 5. Now create another 3-D chunked element with partial chunks. Write to part of element, rest is filled with fill value. Set dimension to 4x6x8 array with 8 chunks , real data 192 bytes where each chunk is 3x4x5= 60 bytes , data size with chunks is 60 bytes x 8 chunks = 480 bytes */ chunk[0].num_dims = 3; chunk[0].chunk_size = 60; /* 3x4x5 = 60 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ chunk[0].pdims[0].dim_length = 4; chunk[0].pdims[0].chunk_length = 3; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 6; chunk[0].pdims[1].chunk_length = 4; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 8; chunk[0].pdims[2].chunk_length = 5; chunk[0].pdims[2].distrib_type = 1; /* set fill value to 1 */ fill_val_u8 = 1; fill_val_len = 1; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 5. Create another new element as a 3-D, uint8 chunked element(192bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 7, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* Set max chunks to cache to 3x4 = 12 chunks */ MESSAGE(5, printf("Set max # of chunks to cache for chunked element to 12 \n"); ); ret = HMCsetMaxcache(aid1, 12, 0); VERIFY_VOID(ret, 12, "HMCsetMaxcache"); /* write 112 bytes out */ ret = Hwrite(aid1, 112, outbuf); VERIFY_VOID(ret, 112, "Hwrite"); if (ret != 112) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote 112of192 bytes to 3-D, uint8 chunked element \n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, uint8 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 7); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 7 || length != 192) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 112, inbuf); VERIFY_VOID(ret, 112, "Hread"); if (ret != 112) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying data\n");); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } inbuf[i] = '\0'; } if (errors) goto done; /* read back 20 bytes now, they should be filled with fill values */ MESSAGE(5, printf("reading some more data\n");); ret = Hread(aid1, 20, inbuf); VERIFY_VOID(ret, 20, "Hread"); if (ret != 20) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying data, should be full of fill values\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != fill_val_u8) { printf("Wrong data at %d, out %d in %d\n", i, fill_val_u8, inbuf[i]); errors++; } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 6. Now create 3-D chunked element with no partial chunks. Write using HMCwriteChunk(). Read data back in first using Hread() and verify. Then read data back in using HMCreadChunk() and verify. Set dimension to 2x3x4 array with 6 chunks where each chunk is 1x1x4= 4 bytes , total data size 24 bytes */ chunk[0].num_dims = 3; chunk[0].chunk_size = 4; /* 1x1x4 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ #if 0 chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ #endif chunk[0].pdims[0].dim_length = 2; chunk[0].pdims[0].chunk_length = 1; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 3; chunk[0].pdims[1].chunk_length = 1; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 4; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 0; /* NONE */ /* set fill value to 1 */ fill_val_u8 = 1; fill_val_len = 1; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 6. Create another new element as a 3-D, uint8 chunked element(192 bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 12, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid2 = HMCcreate(fid, 1020, 18, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 24 bytes out */ ret = Hwrite(aid2, 24, u8_data); if (ret != 24) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* write data out as chunks */ MESSAGE(5, printf("Writing to 3-D, uint8 chunked element using HMCwriteChunk\n"); ); /* Write data use SDwriteChunk */ dims[0] = 0; dims[1] = 0; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk1); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 0; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk4); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 0; dims[1] = 1; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk2); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 1; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk5); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 0; dims[1] = 2; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk3); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 2; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk6); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* end access */ ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, uint8 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 12); CHECK_VOID(aid1, FAIL, "Hstartread"); /* start read access tag, ref */ aid2 = Hstartread(fid, 1020, 18); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 12 || length != 24) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } MESSAGE(5, printf("Get/Check special info data\n"); ); /* get special info about element */ ret = HDget_special_info(aid1, &info_block); CHECK_VOID(aid1, FAIL, "HDget_special_info"); /* check special info */ if (info_block.ndims != chunk[0].num_dims /* 2-D */) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* check chunk_lengths */ if (info_block.cdims != NULL) { if ((info_block.cdims[0] != 1) || (info_block.cdims[1] != 1) || (info_block.cdims[2] != 4)) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* free allocated space by routine */ HDfree(info_block.cdims); } else { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 24, inbuf_u8); VERIFY_VOID(ret, 24, "Hread"); if (ret != 24) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 24 bytes data from Hread\n"); ); for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { for (k = 0; k < 4; k++) { if (inbuf_u8[i][j][k] != u8_data[i][j][k]) { printf("Wrong data at inbuf_u8[%d][%d][%d], out %d in %d\n", i,j,k, u8_data[i][j][k], inbuf_u8[i][j][k]); errors++; } } } } if (errors) goto done; MESSAGE(5, printf("Verifying 24 bytes using HMCreadChunk\n"); ); /* read data back as chunks */ dims[0] = 0; dims[1] = 0; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk1 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk1[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk1[i], inbuf[i]); errors++; } } dims[0] = 0; dims[1] = 1; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk2 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk2[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk2[i], inbuf[i]); errors++; } } dims[0] = 0; dims[1] = 2; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk3 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk3[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk3[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 0; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk4 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk4[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk4[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 1; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk5 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk5[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk5[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 2; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk6 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk6[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk6[i], inbuf[i]); errors++; } } /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* end access and close file */ ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* The following tests will work if Number type conversion is done on the ouput data, punt for now since 'hdftest' tests these same tests with number type conversion */ /* 7. Now create 3-D chunked element with no partial chunks. Set dimension to 2x3x4 array with 6 chunks. Number type is uint16 where each chunk is 1x1x4= 4x2(nt_size) = 8 bytes , total data size 48 bytes */ chunk[0].num_dims = 3; chunk[0].chunk_size = 4; /* 1x1x4 bytes, logical */ chunk[0].nt_size = 2; /* number type size, uint16 */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ #if 0 chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ #endif chunk[0].pdims[0].dim_length = 2; chunk[0].pdims[0].chunk_length = 1; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 3; chunk[0].pdims[1].chunk_length = 1; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 4; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 0; /* NONE */ fill_val_len = 2; fill_val_u16 = 0; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 7. Create another new element as a 3-D, uint16 chunked element(48 bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 14, 1, fill_val_len, &fill_val_u16, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 48 bytes out */ ret = Hwrite(aid1, 48, u16_data); VERIFY_VOID(ret, 48, "Hwrite"); if (ret != 48) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote 48 bytes to 3-D, uint16 chunked element \n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, uint16 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 14); CHECK_VOID(aid1, FAIL, "Hstartread"); /* read back in buffer */ ret = Hread(aid1, 48, inbuf_u16); VERIFY_VOID(ret, 48, "Hread"); if (ret != 48) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 48 bytes data\n"); ); for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { for (k = 0; k < 4; k++) { if (inbuf_u16[i][j][k] != u16_data[i][j][k]) { printf("Wrong data at inbuf_u16[%d][%d][%d], out %d in %d\n", i,j,k, u16_data[i][j][k], inbuf_u16[i][j][k]); errors++; } } } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 8. Now create 3-D chunked element with no partial chunks. Set dimension to 2x3x4 array with 6 chunks. Numbertype is float32 where each chunk is 1x1x4= 4x4(nt_size) = 16 bytes , total data size 96 bytes */ chunk[0].num_dims = 3; chunk[0].chunk_size = 4; /* 1x1x4 bytes, logical */ chunk[0].nt_size = 4; /* number type size, float32 */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ #if 0 chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ #endif chunk[0].pdims[0].dim_length = 2; chunk[0].pdims[0].chunk_length = 1; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 3; chunk[0].pdims[1].chunk_length = 1; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 4; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 0; /* NONE */ fill_val_len = 4; fill_val_f32 = (float32)0.0; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 8. Create another new element as a 3-D, float32 chunked element(96 bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 15, 1, fill_val_len, &fill_val_f32, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); if (aid1 == FAIL) { HEprint(stderr,0); errors++; goto done; } /* write 96 bytes out */ ret = Hwrite(aid1, 96, f32_data); VERIFY_VOID(ret, 96, "Hwrite"); if (ret != 96) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote 96 bytes to 3-D, float32 chunked element \n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, float32 chunked element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 15); CHECK_VOID(aid1, FAIL, "Hstartread"); /* read back in buffer */ ret = Hread(aid1, 96, inbuf_f32); VERIFY_VOID(ret, 96, "Hread"); if (ret != 96) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 96 bytes data\n"); ); for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { for (k = 0; k < 4; k++) { if (inbuf_f32[i][j][k] != f32_data[i][j][k]) { printf("Wrong data at inbuf_f32[%d][%d][%d], out %f in %f\n", i,j,k, f32_data[i][j][k], inbuf_f32[i][j][k]); errors++; } } } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 9. Create 4-D element with partial chunks. Write only half the data out(5,000 bytes) Set dimension to 10x10x10x10 array real data 10,000 bytes . 120 chunks whit chunks of 2x3x4x5 = 120 bytes, data size with chunks is 120 bytes x 120 chunks = 14,400 bytes */ chunk[0].num_dims = 4; chunk[0].chunk_size = 120; chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ #if 0 chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ #endif chunk[0].pdims[0].dim_length = 10; chunk[0].pdims[0].chunk_length = 2; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 10; chunk[0].pdims[1].chunk_length = 3; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 10; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 1; chunk[0].pdims[3].dim_length = 10; chunk[0].pdims[3].chunk_length = 5; chunk[0].pdims[3].distrib_type = 1; /* set fill value to 1 */ fill_val_u8 = 1; fill_val_len = 1; /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 9. Create another new element as a 4-D, uint8 chunked element\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 3,(int)chunk[0].pdims[3].dim_length, 3,(int)chunk[0].pdims[3].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 9, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 5000 bytes out */ ret = Hwrite(aid1, 5000, outbuf); VERIFY_VOID(ret, 5000, "Hwrite"); if (ret != 5000) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote 5000of10000 bytes to 4-D chunked element \n"); ); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Open 4-D chunked element again for reading\n"); ); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 9); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 9 || length != 10000) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 5000 bytes of data\n"); ); /* read back in buffer */ ret = Hread(aid1, 5000, inbuf); VERIFY_VOID(ret, 5000, "Hread"); if (ret != 5000) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } } if (errors) goto done; /* verify some more data */ MESSAGE(5, printf("seek to 7000 bytes in element and read 1000 bytes \n"); ); /* seek past initial write buffer */ ret = Hseek(aid1, 7000, 0); VERIFY_VOID(ret, 0, "Hseek"); /* read back in buffer */ ret = Hread(aid1, 1000, inbuf); VERIFY_VOID(ret, 1000, "Hread"); if (ret != 1000) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data, should be fill values */ MESSAGE(5, printf("Verifying 1000 bytes of data, should be fill values\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != fill_val_u8) { printf("Wrong data at %d, out %d in %d\n", i, fill_val_u8, inbuf[i]); errors++; } } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); #ifdef BIG_TEST /* 10. The rest of the tests here are commented out They are some extra high order tests to replicate some test done on EOS-DEM data -GV..... Set dimension to 12000x12000 array with 2,500 chunks whith chunk of 240x240 = 57,600 bytes */ chunk[0].num_dims = 2; chunk[0].chunk_size = 57600; chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = 0; /* nothing set */ chunk[0].comp_type = COMP_CODE_NONE; /* nothing set */ chunk[0].model_type = COMP_MODEL_STDIO; /* nothing set */ chunk[0].cinfo = NULL; /* nothing set */ chunk[0].minfo = NULL; /* nothing set */ chunk[0].pdims[0].dim_length = 12000; chunk[0].pdims[0].chunk_length = 240; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 12000; chunk[0].pdims[1].chunk_length = 240; chunk[0].pdims[1].distrib_type = 1; #if 0 /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); #endif /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 10, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); for (j = 0; j < 12000; j++) { printf("%d,",j); /* write 12000 bytes out */ ret = Hwrite(aid1, 12000, outbuf); if (ret != 12000) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; } } printf("\n"); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 10); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; } /* verify the data */ MESSAGE(5, printf("Verifying data\n"); ); for (j = 0; j < 12000; j++) { if ((j % 1000) == 0) { printf("read %d,",j); /* read back in buffer */ ret = Hread(aid1, 12000, inbuf); if (ret != 12000) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; } for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } } } else { /* seek to next buffer */ ret = Hseek(aid1, 12000, 1); VERIFY_VOID(ret, 0, "Hseek"); } } /* Mimic read pattern of EOS-DEM test behaviour */ x = 1000; y = 1000; nseek = (12000 * y) + x; printf("seek to initial byte postion = %d \n",nseek); /* seek to next buffer */ ret = Hseek(aid1, nseek, 0); VERIFY_VOID(ret, 0, "Hseek"); for (j = 0; j < 11; j++) { printf("read 2000x2000 square at x=%d,y=%d\n",x,y); for (k = 0; k < 2000; k++) { /* read back in buffer */ ret = Hread(aid1, 2000, inbuf); if (ret != 2000) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; } /* seek to next buffer */ ret = Hseek(aid1, 10000, 1); VERIFY_VOID(ret, 0, "Hseek"); } x = x + 100; y = y + 1000; nseek = (12000 * y) + x; printf("seek to next byte postion = %d\n",nseek); /* seek to next buffer */ ret = Hseek(aid1, nseek, 0); VERIFY_VOID(ret, 0, "Hseek"); } /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); #endif /* BIG_TEST */ /* Chunking with Compression testing..... */ /* 11. Create a new element but now there will be partial chunks and Compression. Set dimension to 4x4 array with 4 chunks where each chunk is 3x2 = 6 bytes. Real data size is 16 bytes, size with chunks is 6 bytes x 4 chunks = 24 bytes . The element will be compressed with RLE scheme. */ chunk[0].num_dims = 2; chunk[0].chunk_size = 6; /* 3x2 = 6 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ #if 0 chunk[0].comp_type = COMP_CODE_SKPHUFF; /* Skipping Huffman */ cinfo.skphuff.skp_size = sizeof(uint8); chunk[0].comp_type = COMP_CODE_DEFLATE; /* GZIP */ cinfo.deflate.level = 6; #endif chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ chunk[0].pdims[0].dim_length = 4; chunk[0].pdims[0].chunk_length = 3; /* made this 3 */ chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 4; chunk[0].pdims[1].chunk_length = 2; chunk[0].pdims[1].distrib_type = 1; /* Open file for writing odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 11. Create another new element as a 2-D, uint8 chunked, RLE Compressed element\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 20, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 16 bytes out */ ret = Hwrite(aid1, 16, outbuf); VERIFY_VOID(ret, 16, "Hwrite"); if (ret != 16) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Wrote to 4of4 chunks (16 bytes) in file\n");); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 2-D, uint8 chunked, RLE Compressed element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 20); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 20 || length != 16) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 16, inbuf); VERIFY_VOID(ret, 16, "Hread"); if (ret != 16) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 16 bytes of data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) { printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); errors++; } inbuf[i] = '\0'; } if (errors) goto done; /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n"); ); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); /* 12. Now create 3-D chunked, Compressed element with no partial chunks. Write using HMCwriteChunk(). Read data back in first using Hread() and verify. Then read data back in using HMCreadChunk() and verify. Set dimension to 2x3x4 array with 6 chunks where each chunk is 1x1x4= 4 bytes , total data size 24 bytes The element is compressed using RLE scheme. */ chunk[0].num_dims = 3; chunk[0].chunk_size = 4; /* 1x1x4 bytes */ chunk[0].nt_size = 1; /* number type size */ chunk[0].chunk_flag = SPECIAL_COMP; /* compression */ #if 0 chunk[0].comp_type = COMP_CODE_RLE; /* RLE */ chunk[0].comp_type = COMP_CODE_SKPHUFF; /* Skipping Huffman */ cinfo.skphuff.skp_size = sizeof(uint8); #endif chunk[0].comp_type = COMP_CODE_DEFLATE; /* GZIP */ cinfo.deflate.level = 6; chunk[0].model_type = COMP_MODEL_STDIO; /* STDIO */ chunk[0].cinfo = &cinfo; /* nothing set */ chunk[0].minfo = &minfo; /* nothing set */ chunk[0].pdims[0].dim_length = 2; chunk[0].pdims[0].chunk_length = 1; chunk[0].pdims[0].distrib_type = 1; chunk[0].pdims[1].dim_length = 3; chunk[0].pdims[1].chunk_length = 1; chunk[0].pdims[1].distrib_type = 1; chunk[0].pdims[2].dim_length = 4; chunk[0].pdims[2].chunk_length = 4; chunk[0].pdims[2].distrib_type = 0; /* NONE */ /* set fill value to 1 */ fill_val_u8 = 1; fill_val_len = 1; /* Open file for writing last odd size chunks now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); MESSAGE(5, printf("Test 12. Create another new element as a 3-D, uint8 chunked, GZIP Compressed element(192 bytes)\n");); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 0,(int)chunk[0].pdims[0].dim_length, 0,(int)chunk[0].pdims[0].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 1,(int)chunk[0].pdims[1].dim_length, 1,(int)chunk[0].pdims[1].chunk_length);); MESSAGE(5, printf(" dim_length[%d]=%d, chunk_length[%d]=%d \n", 2,(int)chunk[0].pdims[2].dim_length, 2,(int)chunk[0].pdims[2].chunk_length);); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid1 = HMCcreate(fid, 1020, 21, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* Create element tag, ref, nlevels, fill_len, fill, chunk array */ aid2 = HMCcreate(fid, 1020, 22, 1, fill_val_len, &fill_val_u8, (HCHUNK_DEF *)chunk); CHECK_VOID(aid1, FAIL, "HMCcreate"); /* write 24 bytes out */ ret = Hwrite(aid2, 24, u8_data); if (ret != 24) { fprintf(stderr, "ERROR: Hwrite returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* write data out as chunks */ MESSAGE(5, printf("Writing to 3-D, uint8 chunked, GZIP Compressed element using HMCwriteChunk\n"); ); /* Write data use SDwriteChunk */ dims[0] = 0; dims[1] = 0; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk1); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 0; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk4); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 0; dims[1] = 1; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk2); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 1; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk5); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 0; dims[1] = 2; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk3); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); dims[0] = 1; dims[1] = 2; dims[2] = 0; ret = HMCwriteChunk(aid1, dims, chunk6); CHECK_VOID(ret, FAIL, "HMCwriteChunk"); /* end access */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* end access */ ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the files\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Open 3-D, uint8 chunked, GZIP Compressed element again for reading\n"); ); /* Open file for reading now */ fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); /* start read access tag, ref */ aid1 = Hstartread(fid, 1020, 21); CHECK_VOID(aid1, FAIL, "Hstartread"); /* start read access tag, ref */ aid2 = Hstartread(fid, 1020, 22); CHECK_VOID(aid1, FAIL, "Hstartread"); /* inquire about element */ ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); if (!special) { fprintf(stderr, "ERROR: Hinquire does not think element is special line %d\n", __LINE__); errors++; goto done; } /* Check values from Hinquire */ if ( ref != 21 || length != 24) { fprintf(stderr, "ERROR: Hinquire does not return the correct values \n"); fprintf(stderr, " tag =%d, ref=%d, length=%d \n",tag,ref,(int)length); errors++; goto done; } MESSAGE(5, printf("Get/Check special info data\n"); ); /* get special info about element */ ret = HDget_special_info(aid1, &info_block); CHECK_VOID(aid1, FAIL, "HDget_special_info"); /* check special info */ if (info_block.ndims != chunk[0].num_dims /* 2-D */) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* check chunk_lengths */ if (info_block.cdims != NULL) { if ((info_block.cdims[0] != 1) || (info_block.cdims[1] != 1) || (info_block.cdims[2] != 4)) { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* free allocated space by routine */ HDfree(info_block.cdims); } else { fprintf(stderr, "ERROR: HDget_specail_info does not return the correct values \n"); errors++; goto done; } /* read back in buffer */ ret = Hread(aid1, 24, inbuf_u8); VERIFY_VOID(ret, 24, "Hread"); if (ret != 24) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; goto done; } /* verify the data */ MESSAGE(5, printf("Verifying 24 bytes data from Hread\n"); ); for (i = 0; i < 2; i++) { for (j = 0; j < 3; j++) { for (k = 0; k < 4; k++) { if (inbuf_u8[i][j][k] != u8_data[i][j][k]) { printf("Wrong data at inbuf_u8[%d][%d][%d], out %d in %d\n", i,j,k, u8_data[i][j][k], inbuf_u8[i][j][k]); errors++; } } } } if (errors) goto done; MESSAGE(5, printf("Verifying 24 bytes from uint8 chunked, GZIP Compressed element using HMCreadChunk\n"); ); /* read data back as chunks */ dims[0] = 0; dims[1] = 0; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk1 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk1[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk1[i], inbuf[i]); errors++; } } dims[0] = 0; dims[1] = 1; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk2 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk2[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk2[i], inbuf[i]); errors++; } } dims[0] = 0; dims[1] = 2; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk3 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk3[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk3[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 0; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk4 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk4[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk4[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 1; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk5 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk5[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk5[i], inbuf[i]); errors++; } } dims[0] = 1; dims[1] = 2; dims[2] = 0; ret = HMCreadChunk(aid2, dims, inbuf); CHECK_VOID(ret, FAIL, "HMCreadChunk"); if (ret != 4) { fprintf(stderr, "ERROR: HMCreadChunk returned the wrong length: %d\n", (int) ret); errors++; goto done; } MESSAGE(5, printf("Verifying chunk6 4 bytes data\n"); ); for (i = 0; i < ret; i++) { if (inbuf[i] != chunk6[i]) { printf("Wrong data at %d, out %d in %d\n", i, chunk6[i], inbuf[i]); errors++; } } /* end access and close file */ ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); /* end access and close file */ ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Closing the file\n");); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); done: /* Don't forget to free dimensions allocate for chunk definition */ if (chunk[0].pdims != NULL) HDfree(chunk[0].pdims); num_errs += errors; /* increment global error count */ } /* test_chunks() */ libhdf4-4.2.10/HDF_ALT/hdf/test/file.c0000644000000000000000000001654612421456623013725 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4932 $"; #endif /* $Id: file.c 4932 2007-09-07 17:17:23Z bmribler $ */ /* * Hopen ** Create a file. ** Open an existing file. *** Normally. *** Read-only file with DFACC_WRITE. ** Open non-existent file. *** With DFACC_READ. *** With DFACC_WRITE. ** Create an illegal file. ** Open the same file twice. *** First with DFACC_WRITE then with DFACC_READ. *** First with DFACC_WRITE then with DFACC_WRITE. *** First with DFACC_READ and then with DFACC_WRITE. *** First with DFACC_ and then with DFACC_CREATE. ** Open more files than there is slots. * Hclose ** Close a proper file. ** Close with an illegal file id. *** Random file id. *** Correct tag but bad slot. * Hstartread ** Normal. ** With illegal file id. ** With illegal tag/ref. ** With wildcard. ** Open more access elements than there is space. */ #include "tproto.h" #define TESTFILE_NAME "t.hdf" #define BUF_SIZE 4096 static uint8 outbuf[BUF_SIZE], inbuf[BUF_SIZE]; void test_hfile(void) { int32 fid, fid1; int32 aid1, aid2; int32 fileid, length, offset, posn; uint16 tag, ref; int16 acc_mode, special; int32 ret; int i; intn errors = 0; intn ret_bool; for (i = 0; i < BUF_SIZE; i++) outbuf[i] = (char) (i % 256); MESSAGE(5, printf("Creating a file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_CREATE, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret_bool = (intn) Hishdf(TESTFILE_NAME); CHECK_VOID(ret_bool, FALSE, "Hishdf"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); MESSAGE(5, printf("Reading / Writing to file\n"); ); ret = Hputelement(fid, (uint16) 100, 1, (const uint8 *) "testing 100 1", (int32)HDstrlen("testing 100 1") + 1); CHECK_VOID(ret, FAIL, "Hputelement"); ret = Hputelement(fid, (uint16) 100, (uint16) 4, outbuf, 2000); CHECK_VOID(ret, FAIL, "Hputelement"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); ret = Hputelement(fid, (uint16) 103, (uint16) 2, (const uint8 *) "element 103 2", (int32)HDstrlen("element 103 2") + 1); CHECK_VOID(ret, FAIL, "Hputlement"); ret = Hgetelement(fid, (uint16) 100, (uint16) 4, inbuf); if (ret != 2000) { fprintf(stderr, "Line %d: Hgetelement returned wrong count: %d\n", (int)__LINE__, (int) ret); errors++; } for (i = 0; i < ret; i++) { if (inbuf[i] != outbuf[i]) printf("Wrong data at %d, out %d in %d\n", i, outbuf[i], inbuf[i]); inbuf[i] = '\0'; } ret = Hputelement(fid, 102, 2, outbuf, BUF_SIZE); CHECK_VOID(ret, FAIL, "Hputlement"); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); MESSAGE(5, printf("Closing and re-opening file %s\n", TESTFILE_NAME); ); fid = Hopen(TESTFILE_NAME, DFACC_RDWR, 0); CHECK_VOID(fid, FAIL, "Hopen"); ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); aid1 = Hstartread(fid, 100, 1); CHECK_VOID(aid1, FAIL, "Hstartread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); MESSAGE(5, printf("Verifying data\n\n"); ); ret = Hread(aid1, length, inbuf); if (ret != 14) { fprintf(stderr, "ERROR: Hread returned the wrong length: %d\n", (int) ret); errors++; } if (HDstrcmp((const char *) inbuf, (const char *) "testing 100 1")) { fprintf(stderr, "ERROR: Hread returned the wrong data\n"); fprintf(stderr, "\t Is: %s\n", (char *) inbuf); fprintf(stderr, "\tShould be: testing 100 1\n"); errors++; } ret = (int32)Hnewref(fid); CHECK_VOID(ret, FAIL, "Hnewref"); MESSAGE(5, printf("Testing a number of searching schemes\n"); ); ret = Hnextread(aid1, 100, DFREF_WILDCARD, DF_CURRENT); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); ret = Hnextread(aid1, 100, DFREF_WILDCARD, DF_CURRENT); if (ret != FAIL) { fprintf(stderr, "ERROR: Found a non-existant element at line %d\n", __LINE__); errors++; } ret = Hnextread(aid1, DFTAG_WILDCARD, DFREF_WILDCARD, DF_START); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); ret = Hnextread(aid1, DFTAG_WILDCARD, 3, DF_CURRENT); if (ret != FAIL) { fprintf(stderr, "ERROR: Found a non-existant element at line %d\n", __LINE__); errors++; } ret = Hnextread(aid1, DFTAG_WILDCARD, 2, DF_CURRENT); CHECK_VOID(ret, FAIL, "Hnextread"); ret = Hinquire(aid1, &fileid, &tag, &ref, &length, &offset, &posn, &acc_mode, &special); CHECK_VOID(ret, FAIL, "Hinquire"); aid2 = Hstartwrite(fid, 100, 1, 4); if (aid2 == FAIL) { fprintf(stderr, "ERROR: was not allowed to startwrite on existing object\n"); errors++; } ret = Hwrite(aid1, 4, "ABCD"); if (ret != FAIL) { fprintf(stderr, "ERROR: was allowed to write to read access object\n"); errors++; } ret = Hendaccess(aid1); CHECK_VOID(ret, FAIL, "Hendaccess"); ret = Hendaccess(aid2); CHECK_VOID(ret, FAIL, "Hendaccess"); MESSAGE(5, printf("Attempting to gain multiple access to file (is allowed)\n"); ); fid1 = Hopen(TESTFILE_NAME, DFACC_READ, 0); if (fid1 == FAIL) { fprintf(stderr, "ERROR: Failed to have two concurrent access to file\n"); errors++; } ret = (int32)Hnewref(fid1); CHECK_VOID(ret, FAIL, "Hnewref"); ret = Hclose(fid); CHECK_VOID(ret, FAIL, "Hclose"); ret = Hclose(fid1); CHECK_VOID(ret, FAIL, "Hclose"); ret_bool = (intn) Hishdf(TESTFILE_NAME); CHECK_VOID(ret_bool, FALSE, "Hishdf"); ret_bool = (intn) Hishdf(__FILE__); CHECK_VOID(ret_bool, TRUE, "Hishdf"); ret_bool = (intn) Hishdf("qqqqqqqq.qqq"); /* I sure hope it isn't there */ CHECK_VOID(ret, TRUE, "Hishdf"); } libhdf4-4.2.10/HDF_ALT/hdf/test/mgr.c0000644000000000000000000052517012421456623013571 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 5584 $"; #endif /* $Id: mgr.c 5584 2011-04-13 18:25:06Z bmribler $ */ /*********************************************************** * * Test program: mgr * * Test the multi-file raster image interface * *************************************************************/ #define TESTFILE "tmgr.hdf" #define TESTFILE2 "tmgrchk.hdf" #define DATAFILE "test_files/tmgr.dat" #define MFGR_TESTER #include "tproto.h" #include "mfgr.h" /* Local pre-processor macros */ #define XDIM 0 #define YDIM 1 #define MAX_IMG_NAME 64 /* Maximum length of image names for this test */ /* Local Data to verify image information in datafile */ const struct { const char *name; int32 ncomp; int32 nt; int32 il; int32 dimsizes[2]; int32 n_attr; } datafile_info[]= { /* This information applies to the "test_files/tmgr.dat" file */ {"Raster Image #0", 3, DFNT_UCHAR8, MFGR_INTERLACE_PIXEL, {13,15}, 2}, {"Raster Image #1", 3, DFNT_UCHAR8, MFGR_INTERLACE_LINE, {13,15}, 2}, {"Raster Image #2", 3, DFNT_UCHAR8, MFGR_INTERLACE_COMPONENT, {13,15}, 2}, {"Test Image #1", 4, DFNT_UINT16, MFGR_INTERLACE_PIXEL, {21,23}, 3}, {"Test Image #2", 2, DFNT_FLOAT64, MFGR_INTERLACE_PIXEL, {17,19}, 3} }; const uint8 image00[15][13][3]={ {{0 ,0 ,0 },{1 ,1 ,1 },{2 ,2 ,2 },{3 ,3 ,3 },{4 ,4 ,4 },{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 }}, {{1 ,1 ,1 },{2 ,2 ,2 },{3 ,3 ,3 },{4 ,4 ,4 },{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 }}, {{2 ,2 ,2 },{3 ,3 ,3 },{4 ,4 ,4 },{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 }}, {{3 ,3 ,3 },{4 ,4 ,4 },{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 }}, {{4 ,4 ,4 },{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 }}, {{5 ,5 ,5 },{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 }}, {{6 ,6 ,6 },{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 }}, {{7 ,7 ,7 },{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 }}, {{8 ,8 ,8 },{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 }}, {{9 ,9 ,9 },{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 }}, {{10 ,10 ,10 },{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 },{22 ,22 ,22 }}, {{11 ,11 ,11 },{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 },{22 ,22 ,22 },{23 ,23 ,23 }}, {{12 ,12 ,12 },{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 },{22 ,22 ,22 },{23 ,23 ,23 },{24 ,24 ,24 }}, {{13 ,13 ,13 },{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 },{22 ,22 ,22 },{23 ,23 ,23 },{24 ,24 ,24 },{25 ,25 ,25 }}, {{14 ,14 ,14 },{15 ,15 ,15 },{16 ,16 ,16 },{17 ,17 ,17 },{18 ,18 ,18 },{19 ,19 ,19 },{20 ,20 ,20 },{21 ,21 ,21 },{22 ,22 ,22 },{23 ,23 ,23 },{24 ,24 ,24 },{25 ,25 ,25 },{26 ,26 ,26 }} }; const uint8 image1[15][13][3]={ {{0 ,1 ,2 },{3 ,4 ,5 },{6 ,7 ,8 },{9 ,10 ,11 },{12 ,0 ,1 },{2 ,3 ,4 },{5 ,6 ,7 },{8 ,9 ,10 },{11 ,12 ,0 },{1 ,2 ,3 },{4 ,5 ,6 },{7 ,8 ,9 },{10 ,11 ,12 }}, {{1 ,1 ,3 },{3 ,5 ,5 },{7 ,7 ,9 },{9 ,11 ,11 },{13 ,1 ,1 },{3 ,3 ,5 },{5 ,7 ,7 },{9 ,9 ,11 },{11 ,13 ,1 },{1 ,3 ,3 },{5 ,5 ,7 },{7 ,9 ,9 },{11 ,11 ,13 }}, {{2 ,3 ,2 },{3 ,6 ,7 },{6 ,7 ,10 },{11 ,10 ,11 },{14 ,2 ,3 },{2 ,3 ,6 },{7 ,6 ,7 },{10 ,11 ,10 },{11 ,14 ,2 },{3 ,2 ,3 },{6 ,7 ,6 },{7 ,10 ,11 },{10 ,11 ,14 }}, {{3 ,3 ,3 },{3 ,7 ,7 },{7 ,7 ,11 },{11 ,11 ,11 },{15 ,3 ,3 },{3 ,3 ,7 },{7 ,7 ,7 },{11 ,11 ,11 },{11 ,15 ,3 },{3 ,3 ,3 },{7 ,7 ,7 },{7 ,11 ,11 },{11 ,11 ,15 }}, {{4 ,5 ,6 },{7 ,4 ,5 },{6 ,7 ,12 },{13 ,14 ,15 },{12 ,4 ,5 },{6 ,7 ,4 },{5 ,6 ,7 },{12 ,13 ,14 },{15 ,12 ,4 },{5 ,6 ,7 },{4 ,5 ,6 },{7 ,12 ,13 },{14 ,15 ,12 }}, {{5 ,5 ,7 },{7 ,5 ,5 },{7 ,7 ,13 },{13 ,15 ,15 },{13 ,5 ,5 },{7 ,7 ,5 },{5 ,7 ,7 },{13 ,13 ,15 },{15 ,13 ,5 },{5 ,7 ,7 },{5 ,5 ,7 },{7 ,13 ,13 },{15 ,15 ,13 }}, {{6 ,7 ,6 },{7 ,6 ,7 },{6 ,7 ,14 },{15 ,14 ,15 },{14 ,6 ,7 },{6 ,7 ,6 },{7 ,6 ,7 },{14 ,15 ,14 },{15 ,14 ,6 },{7 ,6 ,7 },{6 ,7 ,6 },{7 ,14 ,15 },{14 ,15 ,14 }}, {{7 ,7 ,7 },{7 ,7 ,7 },{7 ,7 ,15 },{15 ,15 ,15 },{15 ,7 ,7 },{7 ,7 ,7 },{7 ,7 ,7 },{15 ,15 ,15 },{15 ,15 ,7 },{7 ,7 ,7 },{7 ,7 ,7 },{7 ,15 ,15 },{15 ,15 ,15 }}, {{8 ,9 ,10 },{11 ,12 ,13 },{14 ,15 ,8 },{9 ,10 ,11 },{12 ,8 ,9 },{10 ,11 ,12 },{13 ,14 ,15 },{8 ,9 ,10 },{11 ,12 ,8 },{9 ,10 ,11 },{12 ,13 ,14 },{15 ,8 ,9 },{10 ,11 ,12 }}, {{9 ,9 ,11 },{11 ,13 ,13 },{15 ,15 ,9 },{9 ,11 ,11 },{13 ,9 ,9 },{11 ,11 ,13 },{13 ,15 ,15 },{9 ,9 ,11 },{11 ,13 ,9 },{9 ,11 ,11 },{13 ,13 ,15 },{15 ,9 ,9 },{11 ,11 ,13 }}, {{10 ,11 ,10 },{11 ,14 ,15 },{14 ,15 ,10 },{11 ,10 ,11 },{14 ,10 ,11 },{10 ,11 ,14 },{15 ,14 ,15 },{10 ,11 ,10 },{11 ,14 ,10 },{11 ,10 ,11 },{14 ,15 ,14 },{15 ,10 ,11 },{10 ,11 ,14 }}, {{11 ,11 ,11 },{11 ,15 ,15 },{15 ,15 ,11 },{11 ,11 ,11 },{15 ,11 ,11 },{11 ,11 ,15 },{15 ,15 ,15 },{11 ,11 ,11 },{11 ,15 ,11 },{11 ,11 ,11 },{15 ,15 ,15 },{15 ,11 ,11 },{11 ,11 ,15 }}, {{12 ,13 ,14 },{15 ,12 ,13 },{14 ,15 ,12 },{13 ,14 ,15 },{12 ,12 ,13 },{14 ,15 ,12 },{13 ,14 ,15 },{12 ,13 ,14 },{15 ,12 ,12 },{13 ,14 ,15 },{12 ,13 ,14 },{15 ,12 ,13 },{14 ,15 ,12 }}, {{13 ,13 ,15 },{15 ,13 ,13 },{15 ,15 ,13 },{13 ,15 ,15 },{13 ,13 ,13 },{15 ,15 ,13 },{13 ,15 ,15 },{13 ,13 ,15 },{15 ,13 ,13 },{13 ,15 ,15 },{13 ,13 ,15 },{15 ,13 ,13 },{15 ,15 ,13 }}, {{14 ,15 ,14 },{15 ,14 ,15 },{14 ,15 ,14 },{15 ,14 ,15 },{14 ,14 ,15 },{14 ,15 ,14 },{15 ,14 ,15 },{14 ,15 ,14 },{15 ,14 ,14 },{15 ,14 ,15 },{14 ,15 ,14 },{15 ,14 ,15 },{14 ,15 ,14 }} }; const uint8 image2[15][13][3]={ {{0 ,1 ,2 },{3 ,4 ,5 },{6 ,7 ,8 },{9 ,10 ,11 },{12 ,1 ,0 },{3 ,2 ,5 },{4 ,7 ,6 },{9 ,8 ,11 },{10 ,13 ,2 },{3 ,0 ,1 },{6 ,7 ,4 },{5 ,10 ,11 },{8 ,9 ,14 }}, {{3 ,2 ,1 },{0 ,7 ,6 },{5 ,4 ,11 },{10 ,9 ,8 },{15 ,4 ,5 },{6 ,7 ,0 },{1 ,2 ,3 },{12 ,13 ,14 },{15 ,8 ,5 },{4 ,7 ,6 },{1 ,0 ,3 },{2 ,13 ,12 },{15 ,14 ,9 }}, {{6 ,7 ,4 },{5 ,2 ,3 },{0 ,1 ,14 },{15 ,12 ,13 },{10 ,7 ,6 },{5 ,4 ,3 },{2 ,1 ,0 },{15 ,14 ,13 },{12 ,11 ,8 },{9 ,10 ,11 },{12 ,13 ,14 },{15 ,0 ,1 },{2 ,3 ,4 }}, {{9 ,8 ,11 },{10 ,13 ,12 },{15 ,14 ,1 },{0 ,3 ,2 },{5 ,10 ,11 },{8 ,9 ,14 },{15 ,12 ,13 },{2 ,3 ,0 },{1 ,6 ,11 },{10 ,9 ,8 },{15 ,14 ,13 },{12 ,3 ,2 },{1 ,0 ,7 }}, {{12 ,13 ,14 },{15 ,8 ,9 },{10 ,11 ,4 },{5 ,6 ,7 },{0 ,13 ,12 },{15 ,14 ,9 },{8 ,11 ,10 },{5 ,4 ,7 },{6 ,1 ,14 },{15 ,12 ,13 },{10 ,11 ,8 },{9 ,6 ,7 },{4 ,5 ,2 }}, {{0 ,1 ,2 },{3 ,4 ,5 },{6 ,7 ,8 },{9 ,10 ,11 },{12 ,1 ,0 },{3 ,2 ,5 },{4 ,7 ,6 },{9 ,8 ,11 },{10 ,13 ,2 },{3 ,0 ,1 },{6 ,7 ,4 },{5 ,10 ,11 },{8 ,9 ,14 }}, {{3 ,2 ,1 },{0 ,7 ,6 },{5 ,4 ,11 },{10 ,9 ,8 },{15 ,4 ,5 },{6 ,7 ,0 },{1 ,2 ,3 },{12 ,13 ,14 },{15 ,8 ,5 },{4 ,7 ,6 },{1 ,0 ,3 },{2 ,13 ,12 },{15 ,14 ,9 }}, {{6 ,7 ,4 },{5 ,2 ,3 },{0 ,1 ,14 },{15 ,12 ,13 },{10 ,7 ,6 },{5 ,4 ,3 },{2 ,1 ,0 },{15 ,14 ,13 },{12 ,11 ,8 },{9 ,10 ,11 },{12 ,13 ,14 },{15 ,0 ,1 },{2 ,3 ,4 }}, {{9 ,8 ,11 },{10 ,13 ,12 },{15 ,14 ,1 },{0 ,3 ,2 },{5 ,10 ,11 },{8 ,9 ,14 },{15 ,12 ,13 },{2 ,3 ,0 },{1 ,6 ,11 },{10 ,9 ,8 },{15 ,14 ,13 },{12 ,3 ,2 },{1 ,0 ,7 }}, {{12 ,13 ,14 },{15 ,8 ,9 },{10 ,11 ,4 },{5 ,6 ,7 },{0 ,13 ,12 },{15 ,14 ,9 },{8 ,11 ,10 },{5 ,4 ,7 },{6 ,1 ,14 },{15 ,12 ,13 },{10 ,11 ,8 },{9 ,6 ,7 },{4 ,5 ,2 }}, {{0 ,1 ,2 },{3 ,4 ,5 },{6 ,7 ,8 },{9 ,10 ,11 },{12 ,1 ,0 },{3 ,2 ,5 },{4 ,7 ,6 },{9 ,8 ,11 },{10 ,13 ,2 },{3 ,0 ,1 },{6 ,7 ,4 },{5 ,10 ,11 },{8 ,9 ,14 }}, {{3 ,2 ,1 },{0 ,7 ,6 },{5 ,4 ,11 },{10 ,9 ,8 },{15 ,4 ,5 },{6 ,7 ,0 },{1 ,2 ,3 },{12 ,13 ,14 },{15 ,8 ,5 },{4 ,7 ,6 },{1 ,0 ,3 },{2 ,13 ,12 },{15 ,14 ,9 }}, {{6 ,7 ,4 },{5 ,2 ,3 },{0 ,1 ,14 },{15 ,12 ,13 },{10 ,7 ,6 },{5 ,4 ,3 },{2 ,1 ,0 },{15 ,14 ,13 },{12 ,11 ,8 },{9 ,10 ,11 },{12 ,13 ,14 },{15 ,0 ,1 },{2 ,3 ,4 }}, {{9 ,8 ,11 },{10 ,13 ,12 },{15 ,14 ,1 },{0 ,3 ,2 },{5 ,10 ,11 },{8 ,9 ,14 },{15 ,12 ,13 },{2 ,3 ,0 },{1 ,6 ,11 },{10 ,9 ,8 },{15 ,14 ,13 },{12 ,3 ,2 },{1 ,0 ,7 }}, {{12 ,13 ,14 },{15 ,8 ,9 },{10 ,11 ,4 },{5 ,6 ,7 },{0 ,13 ,12 },{15 ,14 ,9 },{8 ,11 ,10 },{5 ,4 ,7 },{6 ,1 ,14 },{15 ,12 ,13 },{10 ,11 ,8 },{9 ,6 ,7 },{4 ,5 ,2 }} }; const uint16 image3[23][21][4]={ {{0 ,1 ,2 ,3 },{1 ,2 ,3 ,4 },{2 ,3 ,4 ,5 },{3 ,4 ,5 ,6 },{4 ,5 ,6 ,7 },{5 ,6 ,7 ,8 },{6 ,7 ,8 ,9 },{7 ,8 ,9 ,10 },{8 ,9 ,10 ,11 },{9 ,10 ,11 ,12 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{10 ,11 ,12 ,13 },{2 ,2 ,2 ,2 },{12 ,13 ,14 ,15 },{2 ,2 ,2 ,2 },{14 ,15 ,16 ,17 },{2 ,2 ,2 ,2 },{16 ,17 ,18 ,19 },{2 ,2 ,2 ,2 },{18 ,19 ,20 ,21 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{20 ,21 ,22 ,23 },{2 ,2 ,2 ,2 },{1 ,2 ,3 ,4 },{2 ,2 ,2 ,2 },{3 ,4 ,5 ,6 },{2 ,2 ,2 ,2 },{5 ,6 ,7 ,8 },{2 ,2 ,2 ,2 },{7 ,8 ,9 ,10 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{9 ,10 ,11 ,12 },{2 ,2 ,2 ,2 },{11 ,12 ,13 ,14 },{2 ,2 ,2 ,2 },{13 ,14 ,15 ,16 },{2 ,2 ,2 ,2 },{15 ,16 ,17 ,18 },{2 ,2 ,2 ,2 },{17 ,18 ,19 ,20 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{19 ,20 ,21 ,22 },{2 ,2 ,2 ,2 },{0 ,1 ,2 ,3 },{2 ,2 ,2 ,2 },{2 ,3 ,4 ,5 },{2 ,2 ,2 ,2 },{4 ,5 ,6 ,7 },{2 ,2 ,2 ,2 },{6 ,7 ,8 ,9 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{8 ,9 ,10 ,11 },{2 ,2 ,2 ,2 },{10 ,11 ,12 ,13 },{2 ,2 ,2 ,2 },{12 ,13 ,14 ,15 },{2 ,2 ,2 ,2 },{14 ,15 ,16 ,17 },{2 ,2 ,2 ,2 },{16 ,17 ,18 ,19 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 },{2 ,2 ,2 ,2 },{0 ,0 ,0 ,0 }}, {{18 ,19 ,20 ,21 },{19 ,20 ,21 ,22 },{20 ,21 ,22 ,23 },{0 ,1 ,2 ,3 },{1 ,2 ,3 ,4 },{2 ,3 ,4 ,5 },{3 ,4 ,5 ,6 },{4 ,5 ,6 ,7 },{5 ,6 ,7 ,8 },{6 ,7 ,8 ,9 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{7 ,8 ,9 ,10 },{8 ,9 ,10 ,11 },{9 ,10 ,11 ,12 },{10 ,11 ,12 ,13 },{11 ,12 ,13 ,14 },{12 ,13 ,14 ,15 },{13 ,14 ,15 ,16 },{14 ,15 ,16 ,17 },{15 ,16 ,17 ,18 },{16 ,17 ,18 ,19 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{17 ,18 ,19 ,20 },{18 ,19 ,20 ,21 },{19 ,20 ,21 ,22 },{20 ,21 ,22 ,23 },{0 ,1 ,2 ,3 },{1 ,2 ,3 ,4 },{2 ,3 ,4 ,5 },{3 ,4 ,5 ,6 },{4 ,5 ,6 ,7 },{5 ,6 ,7 ,8 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{6 ,7 ,8 ,9 },{7 ,8 ,9 ,10 },{8 ,9 ,10 ,11 },{9 ,10 ,11 ,12 },{10 ,11 ,12 ,13 },{11 ,12 ,13 ,14 },{12 ,13 ,14 ,15 },{13 ,14 ,15 ,16 },{14 ,15 ,16 ,17 },{15 ,16 ,17 ,18 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{16 ,17 ,18 ,19 },{17 ,18 ,19 ,20 },{18 ,19 ,20 ,21 },{19 ,20 ,21 ,22 },{20 ,21 ,22 ,23 },{0 ,1 ,2 ,3 },{1 ,2 ,3 ,4 },{2 ,3 ,4 ,5 },{3 ,4 ,5 ,6 },{4 ,5 ,6 ,7 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }}, {{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 },{0 ,0 ,0 ,0 }} }; const float64 image4[19][17][2]={ {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{6.0,6.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{9.0,9.0},{0.0,0.0}}, {{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0},{0.0,0.0}} }; static void test_mgr_init(void); static void test_mgr_image_b1a(int flag); static void test_mgr_image_b1b(int flag); static void test_mgr_image_b2a1aa(int flag); static void test_mgr_image_b2a1bb1(int flag); static void test_mgr_image_b2a1bb2(int flag); static void test_mgr_image_b2a1cc1(int flag); static void test_mgr_image_b2a1cc2(int flag); static void test_mgr_image_b2a2bb(int flag); static void test_mgr_image_b2a2cc(int flag); static void test_mgr_image_b2b1(int flag); static void test_mgr_image(int flag); static void test_mgr_index(int flag); static void test_mgr_interlace(int flag); static void test_mgr_lut(int flag); static void test_mgr_special(int flag); extern void test_mgr_attr(); extern void test_mgr_compress(); extern void test_mgr_dup_images(); /* Test outline: I. Interface Initialization A. GRstart B. GRend C. GRfileinfo II. Create Images A. GRcreate/GRselect/GRendaccess w/GRgetiminfo B. Write/Read images 1. With no Data a. Default fill value b. user defined fill value 2. With real Data a. New Image 1. With default fill value aa. Whole image bb. Sub-setted image cc. Sub-sampled image 2. With user defined vill value aa. Whole image bb. Sub-setted image cc. Sub-sampled image b. Existing Image 1. Whole image 2. Sub-setted image 3. Sub-sampled image III. ID/Ref/Index Functions A. GRidtoref B. GRreftoindex IV. Interlace Functions [Need to be implemented] A. GRreqlutil B. GRreqimageil V. Palette Functions A. GRgetlutid w/GRgetlutinfo B. Read/Write Palettes 1. GRwritelut 2. GRreadlut C. GRluttoref VI. Special Element Functions [Need to be implemented] A. GRsetexternalfile B. GRsetaccesstype VII. Atribute Functions A. GRattrinfo B. Read/Write Attributes 1. GRsetattr 2. GRgetattr C. GRfindattr VIII. Old-Style Raster Image Access A. Read data from RLE compressed image B. Create RLE compressed image & write to it (not implemented) C. Read data from 8-bit JPEG compressed image D. Create 8-bit JPEG compressed image & write to it E. Read data from 24-bit JPEG compressed image F. Create 24-bit JPEG compressed image & write to it IX. Compressed image Functions X. Chunking write/read test */ /**************************************************************** ** ** test_mgr_init(): Multi-file Raster Initialization Test Routine ** ** I. Interface Initialization ** A. GRstart ** B. GRend ** C. GRfileinfo ** ****************************************************************/ static void test_mgr_init(void) { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 n_datasets; /* number of datasets */ int32 n_attrs; /* number of attributes */ int32 ret; /* generic return value */ char datafile[512] = ""; char *srcdir = getenv("srcdir"); /* Output message about test being performed */ MESSAGE(6, printf("Testing Multi-file Raster Initialization routines\n");); MESSAGE(8, printf("Try creating a new file and checking it out\n");); /* Generate the correct name for the test file, by prepending the source path */ if (srcdir && ((strlen(srcdir) + strlen(DATAFILE) + 1) < sizeof(datafile))) { strcpy(datafile, srcdir); strcat(datafile, "/"); } strcat(datafile, DATAFILE); /* Ok, now create a new file */ fid=Hopen(TESTFILE,DFACC_RDWR,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Try initializing the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); ret=(intn)GRfileinfo(grid,&n_datasets,&n_attrs); CHECK_VOID(ret,FAIL,"GRfileinfo"); if(n_datasets!=0 || n_attrs!=0) { MESSAGE(3, printf("Error! Number of datasets/attributes in new file incorrect\n");); num_errs++; } /* end if */ /* Shut down the GR interface */ ret=GRend(grid); CHECK_VOID(ret,FAIL,"GRend"); /* Close the file */ ret=Hclose(fid); CHECK_VOID(ret,FAIL,"Hclose"); MESSAGE(8, printf("Try checking out an existing file\n");); /* Ok, now check an existing file */ fid=Hopen(datafile,DFACC_READ,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Try initializing the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); ret=(intn)GRfileinfo(grid,&n_datasets,&n_attrs); CHECK_VOID(ret,FAIL,"GRfileinfo"); if(n_datasets!=5 || n_attrs!=2) { MESSAGE(3, printf("Error! Number of datasets/attributes in existing file incorrect\n");); num_errs++; } /* end if */ /* Shut down the GR interface */ ret=GRend(grid); CHECK_VOID(ret,FAIL,"GRend"); /* Close the file */ ret=Hclose(fid); CHECK_VOID(ret,FAIL,"Hclose"); } /* end test_mgr_init() */ /* Sub-tests for test_mgr_image() */ static void test_mgr_image_b1a(int flag) { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int32 cdims[2] = {1,1}; /* chunk dims */ int32 *rcdims; /* for SDgetchunkinfo() */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ int32 cflags; /* chunk flags */ /* B1a - Read/Write images - with no Data - Default Fill Value */ MESSAGE(8, printf("Check out I/O on image with no data, using the default fill value\n");); /* Open up the existing datafile and get the image information from it */ if (flag) fid=Hopen(TESTFILE2,DFACC_RDWR,0); else fid=Hopen(TESTFILE,DFACC_RDWR,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); { int32 riid; /* RI ID for the new image */ int32 dims[2]={4,5}; /* dimensions for the empty image */ uint16 ref; /* RI ref #. */ int32 index; /* RI index # */ float32 image[5][4][3]; /* space for the image data */ float32 image0[5][4][3]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2];/* stride of image data to grab */ /* Create empty image with default fill value */ riid=GRcreate(grid,"Empty Image",3,DFNT_FLOAT32,MFGR_INTERLACE_PIXEL,dims); CHECK_VOID(riid,FAIL,"GRcreate"); /* Check if creating chunked GR */ if (flag) { /* Create chunked GR chunk is 2x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 2; cdims[1] = chunk_def.chunk_lengths[1] = 2; ret = GRsetchunk(riid, chunk_def, HDF_CHUNK); CHECK_VOID(ret,FAIL,"GRsetchunk"); /* Set Chunk cache to hold 3 chunks */ ret = GRsetchunkcache(riid, 3, 0); CHECK_VOID(ret,FAIL,"GRsetchunkcache"); } /* Save the ref. # for later access */ ref=GRidtoref(riid); CHECK_VOID(ref,(uint16)FAIL,"GRidtoref"); /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); /* Get the index of the newly created image */ index=GRreftoindex(grid,ref); CHECK_VOID(index,FAIL,"GRreftoindex"); /* Select the newly created image */ riid=GRselect(grid,index); CHECK_VOID(riid,FAIL,"GRselect"); HDmemset(image,255,(size_t)(dims[0]*dims[1]*3)*sizeof(float32)); /* '0' is the default fill value */ HDmemset(image0,0,(size_t)(dims[0]*dims[1]*3)*sizeof(float32)); start[0]=start[1]=0; stride[0]=stride[1]=1; ret=GRreadimage(riid,start,stride,dims,image); CHECK_VOID(ret,FAIL,"GRreadimage"); if(0!=HDmemcmp(image,image0,sizeof(image0))) { MESSAGE(3, printf("Error reading data for image with default fill value\n");); num_errs++; } /* end if */ /* check if we are doing chunked tests */ if (flag) { /* Get chunk lengths */ ret = GRgetchunkinfo(riid, &rchunk_def, &cflags); CHECK_VOID(ret,FAIL,"GRgetchunkinfo"); rcdims = rchunk_def.chunk_lengths; /* check chunk lengths and to see if GR is chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test. GRgetchunkinfo returned wrong values\n"); fprintf(stderr, "cdims[0]=%d,cdims[1]=%d \n",(int)cdims[0],(int)cdims[1]); fprintf(stderr, "rcdims[0]=%d,rcdims[1]=%d \n",(int)rcdims[0],(int)rcdims[1]); fprintf(stderr, "cflags =%d \n", (int)cflags ); } } /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); } /* Shut down the GR interface */ ret=GRend(grid); CHECK_VOID(ret,FAIL,"GRend"); /* Close the file */ ret=Hclose(fid); CHECK_VOID(ret,FAIL,"Hclose"); } /* end test_mgr_image_b1a() */ static void test_mgr_image_b1b(int flag) { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int32 cdims[2] = {1,1}; /* chunk dims */ int32 *rcdims; /* for SDgetchunkinfo() */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ int32 cflags; /* chunk flags */ /* B1b - Read/Write images - with no Data - User-defined Fill Value */ MESSAGE(8, printf("Check out I/O on image with no data, using User Defined fill-value\n");); /* Open up the existing datafile and get the image information from it */ if (flag) fid=Hopen(TESTFILE2,DFACC_RDWR,0); else fid=Hopen(TESTFILE,DFACC_RDWR,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); { int32 riid; /* RI ID for the new image */ int32 dims[2]={5,7}; /* dimensions for the empty image */ uint16 ref; /* RI ref #. */ int32 index; /* RI index # */ float64 image[7][5][4]; /* space for the image data */ float64 fill_pixel[4]={1.3,-2.4,1000.3,.25}; /* pixel with fill values */ float64 image0[7][5][4]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2];/* stride of image data to grab */ /* Create empty image with default fill value */ riid=GRcreate(grid,"Empty Image2",4,DFNT_FLOAT64,MFGR_INTERLACE_PIXEL,dims); CHECK_VOID(riid,FAIL,"GRcreate"); /* Set the fill-value */ ret=GRsetattr(riid,FILL_ATTR,DFNT_FLOAT64,sizeof(fill_pixel)/sizeof(float64),fill_pixel); CHECK_VOID(ret,FAIL,"GRsetattr"); /* Check if creating chunked GR */ if (flag) { /* Create chunked GR chunk is 2x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 2; cdims[1] = chunk_def.chunk_lengths[1] = 2; ret = GRsetchunk(riid, chunk_def, HDF_CHUNK); CHECK_VOID(ret,FAIL,"GRsetchunk"); } /* Save the ref. # for later access */ ref=GRidtoref(riid); CHECK_VOID(ref,(uint16)FAIL,"GRidtoref"); /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); /* Get the index of the newly created image */ index=GRreftoindex(grid,ref); CHECK_VOID(index,FAIL,"GRreftoindex"); /* Select the newly created image */ riid=GRselect(grid,index); CHECK_VOID(riid,FAIL,"GRselect"); HDmemset(image,0,(size_t)(dims[0]*dims[1]*4)*sizeof(float64)); /* fill the memory-only with the default pixel fill-value */ HDmemfill(image0,fill_pixel,sizeof(fill_pixel),sizeof(image0)/sizeof(fill_pixel)); start[0]=start[1]=0; stride[0]=stride[1]=1; ret=GRreadimage(riid,start,stride,dims,image); CHECK_VOID(ret,FAIL,"GRreadimage"); if(0!=HDmemcmp(image,image0,sizeof(image0))) { MESSAGE(3, printf("Error reading data for image with user defined fill-value\n");); num_errs++; } /* end if */ /* check if we are doing chunked tests */ if (flag) { /* Get chunk lengths */ ret = GRgetchunkinfo(riid, &rchunk_def, &cflags); CHECK_VOID(ret,FAIL,"GRgetchunkinfo"); rcdims = rchunk_def.chunk_lengths; /* check chunk lengths and to see if GR is chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test. GRgetchunkinfo returned wrong values\n"); fprintf(stderr, "cdims[0]=%d,cdims[1]=%d \n",(int)cdims[0],(int)cdims[1]); fprintf(stderr, "rcdims[0]=%d,rcdims[1]=%d \n",(int)rcdims[0],(int)rcdims[1]); fprintf(stderr, "cflags =%d \n", (int)cflags ); } } /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); } /* Shut down the GR interface */ ret=GRend(grid); CHECK_VOID(ret,FAIL,"GRend"); /* Close the file */ ret=Hclose(fid); CHECK_VOID(ret,FAIL,"Hclose"); } /* end test_mgr_image_b1b() */ static void test_mgr_image_b2a1aa(int flag) { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int32 cdims[2] = {1,1}; /* chunk dims */ int32 *rcdims; /* for SDgetchunkinfo() */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ int32 cflags; /* chunk flags */ /* B2a1aa - Read/Write images - with real Data - New Image - with Default Fill Value - Whole Image */ MESSAGE(8, printf("Check out I/O on new image with real data, with Default fill-value, Whole Image\n");); /* Open up the existing datafile and get the image information from it */ if (flag) fid=Hopen(TESTFILE2,DFACC_RDWR,0); else fid=Hopen(TESTFILE,DFACC_RDWR,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); { #ifdef TEST_XDIM #undef TEST_XDIM #endif /* TEST_XDIM */ #define TEST_XDIM 3 #ifdef TEST_YDIM #undef TEST_YDIM #endif /* TEST_YDIM */ #define TEST_YDIM 8 #ifdef TEST_NCOMP #undef TEST_NCOMP #endif /* TEST_NCOMP */ #define TEST_NCOMP 2 #ifdef TEST_VARTYPE #undef TEST_VARTYPE #endif /* TEST_VARTYPE */ #define TEST_VARTYPE int32 #ifdef TEST_NT #undef TEST_NT #endif /* TEST_NT */ #define TEST_NT DFNT_INT32 int32 riid; /* RI ID for the new image */ int32 dims[2]={TEST_XDIM,TEST_YDIM}; /* dimensions for the empty image */ uint16 ref; /* RI ref #. */ int32 index; /* RI index # */ TEST_VARTYPE image[TEST_YDIM][TEST_XDIM][TEST_NCOMP]; /* space for the image data */ TEST_VARTYPE fill_pixel[TEST_NCOMP]={1,-2}; /* pixel with fill values */ TEST_VARTYPE fill_pixel2[TEST_NCOMP]={-2,1}; /* pixel with fill values */ TEST_VARTYPE image0[TEST_YDIM][TEST_XDIM][TEST_NCOMP]; /* space for the image data */ int32 start[2]; /* start of image data to grab */ int32 stride[2];/* stride of image data to grab */ intn i,j; /* local counting variables */ /* fill the memory-only with the default pixel fill-value */ for(i=0; i(TEST_YDIM/3)) && (i<(2*TEST_YDIM/3))) && ((j>(TEST_XDIM/4)) && (j<(3*TEST_XDIM/4)))) { if((j%2)==0) HDmemcpy(&image0[i][j][0],fill_pixel,sizeof(fill_pixel)); else HDmemcpy(&image0[i][j][0],fill_pixel2,sizeof(fill_pixel2)); HDmemcpy(sub_ptr,&image0[i][j][0],TEST_NCOMP*sizeof(TEST_VARTYPE)); sub_ptr+=TEST_NCOMP; } /* end if */ } /* end for */ } /* end for */ /* initialize the disk buffer */ HDmemset(image,255,sizeof(image)); /* Create empty image with default fill value */ riid=GRcreate(grid,"Test Image B2a1bb",TEST_NCOMP,TEST_NT,MFGR_INTERLACE_PIXEL,dims); CHECK_VOID(riid,FAIL,"GRcreate"); /* Check if creating chunked GR */ if (flag) { /* Create chunked GR chunk is 2x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 2; cdims[1] = chunk_def.chunk_lengths[1] = 2; ret = GRsetchunk(riid, chunk_def, HDF_CHUNK); CHECK_VOID(ret,FAIL,"GRsetchunk"); } /* Save the ref. # for later access */ ref=GRidtoref(riid); CHECK_VOID(ref,(uint16)FAIL,"GRidtoref"); /* Create sub-setted window with only the filled pixels in it */ start[XDIM]=(TEST_XDIM/4)+1; start[YDIM]=(TEST_YDIM/3)+1; count[XDIM]=((3*TEST_XDIM/4)-(TEST_XDIM/4))-1; count[YDIM]=((2*TEST_YDIM/3)-(TEST_YDIM/3))-1; stride[XDIM]=stride[YDIM]=1; ret=GRwriteimage(riid,start,stride,count,sub_image); CHECK_VOID(ret,FAIL,"GRwriteimage"); /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); /* Get the index of the newly created image */ index=GRreftoindex(grid,ref); CHECK_VOID(index,FAIL,"GRreftoindex"); /* Select the newly created image */ riid=GRselect(grid,index); CHECK_VOID(riid,FAIL,"GRselect"); /* Get the whole image back */ start[XDIM]=start[YDIM]=0; stride[XDIM]=stride[YDIM]=1; ret=GRreadimage(riid,start,stride,dims,image); CHECK_VOID(ret,FAIL,"GRreadimage"); if(0!=HDmemcmp(image,image0,sizeof(image0))) { MESSAGE(3, printf("%d:Error reading data for new image with default fill-value, sub-setted image\n",__LINE__);); MESSAGE(8, for(i=0; i(TEST_YDIM/3)) && (i<(2*TEST_YDIM/3))) && ((j>(TEST_XDIM/4)) && (j<(3*TEST_XDIM/4)))) { HDmemcpy(sub_ptr,&image0[i][j][0],TEST_NCOMP*sizeof(TEST_VARTYPE)); sub_ptr+=TEST_NCOMP; } /* end if */ } /* end for */ } /* end for */ /* initialize the disk buffer */ HDmemset(image,255,sizeof(image)); /* Create empty image with default fill value */ riid=GRcreate(grid,"Test Image B2a1bb2",TEST_NCOMP,TEST_NT,MFGR_INTERLACE_PIXEL,dims); CHECK_VOID(riid,FAIL,"GRcreate"); /* Check if creating chunked GR */ if (flag) { /* Create chunked GR chunk is 2x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 2; cdims[1] = chunk_def.chunk_lengths[1] = 2; ret = GRsetchunk(riid, chunk_def, HDF_CHUNK); CHECK_VOID(ret,FAIL,"GRsetchunk"); /* Set Chunk cache to hold 3 chunks */ ret = GRsetchunkcache(riid, 3, 0); CHECK_VOID(ret,FAIL,"GRsetchunkcache"); } /* Save the ref. # for later access */ ref=GRidtoref(riid); CHECK_VOID(ref,(uint16)FAIL,"GRidtoref"); /* Create whole image */ start[XDIM]=start[YDIM]=0; stride[XDIM]=stride[YDIM]=1; ret=GRwriteimage(riid,start,stride,dims,image0); CHECK_VOID(ret,FAIL,"GRwriteimage"); /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); /* Get the index of the newly created image */ index=GRreftoindex(grid,ref); CHECK_VOID(index,FAIL,"GRreftoindex"); /* Select the newly created image */ riid=GRselect(grid,index); CHECK_VOID(riid,FAIL,"GRselect"); /* Get the sub-set image back */ start[XDIM]=(TEST_XDIM/4)+1; start[YDIM]=(TEST_YDIM/3)+1; count[XDIM]=((3*TEST_XDIM/4)-(TEST_XDIM/4))-1; count[YDIM]=((2*TEST_YDIM/3)-(TEST_YDIM/3))-1; stride[XDIM]=stride[YDIM]=1; ret=GRreadimage(riid,start,stride,count,image); CHECK_VOID(ret,FAIL,"GRreadimage"); if(0!=HDmemcmp(image,sub_image,(size_t)(count[XDIM]*count[YDIM])*sizeof(fill_pixel))) { MESSAGE(3, printf("%d:Error reading data for new image with default fill-value, sub-setted image\n",__LINE__);); num_errs++; } /* end if */ /* check if we are doing chunked tests */ if (flag) { /* Get chunk lengths */ ret = GRgetchunkinfo(riid, &rchunk_def, &cflags); CHECK_VOID(ret,FAIL,"GRgetchunkinfo"); rcdims = rchunk_def.chunk_lengths; /* check chunk lengths and to see if GR is chunked */ if (cdims[0] != rcdims[0] || cdims[1] != rcdims[1] || cflags != HDF_CHUNK) { fprintf(stderr, "Chunk Test. GRgetchunkinfo returned wrong values\n"); fprintf(stderr, "cdims[0]=%d,cdims[1]=%d \n",(int)cdims[0],(int)cdims[1]); fprintf(stderr, "rcdims[0]=%d,rcdims[1]=%d \n",(int)rcdims[0],(int)rcdims[1]); fprintf(stderr, "cflags =%d \n", (int)cflags ); } } /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); } /* Shut down the GR interface */ ret=GRend(grid); CHECK_VOID(ret,FAIL,"GRend"); /* Close the file */ ret=Hclose(fid); CHECK_VOID(ret,FAIL,"Hclose"); } /* end test_mgr_image_b2a1bb2() */ static void test_mgr_image_b2a1cc1(int flag) { int32 fid; /* HDF file ID */ int32 grid; /* GRID for the interface */ int32 ret; /* generic return value */ int32 cdims[2] = {1,1}; /* chunk dims */ int32 *rcdims; /* for SDgetchunkinfo() */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ HDF_CHUNK_DEF rchunk_def; /* Chunk defintion read */ int32 cflags; /* chunk flags */ /* B2a1cc - Read/Write images - with real Data - New Image - with Default Fill Value - Sub-sampled Image */ MESSAGE(8, printf("Check out I/O on new image with real data, with Default fill-value, Writing Sub-sampled Image\n");); /* Open up the existing datafile and get the image information from it */ if (flag) fid=Hopen(TESTFILE2,DFACC_RDWR,0); else fid=Hopen(TESTFILE,DFACC_RDWR,0); CHECK_VOID(fid,FAIL,"Hopen"); /* Initialize the GR interface */ grid=GRstart(fid); CHECK_VOID(grid,FAIL,"GRstart"); { #ifdef TEST_XDIM #undef TEST_XDIM #endif /* TEST_XDIM */ #define TEST_XDIM 19 #ifdef TEST_YDIM #undef TEST_YDIM #endif /* TEST_YDIM */ #define TEST_YDIM 23 #ifdef TEST_NCOMP #undef TEST_NCOMP #endif /* TEST_NCOMP */ #define TEST_NCOMP 5 #ifdef TEST_VARTYPE #undef TEST_VARTYPE #endif /* TEST_VARTYPE */ #define TEST_VARTYPE int16 #ifdef TEST_NT #undef TEST_NT #endif /* TEST_NT */ #define TEST_NT DFNT_INT16 int32 riid; /* RI ID for the new image */ int32 dims[2]={TEST_XDIM,TEST_YDIM}; /* dimensions for the empty image */ uint16 ref; /* RI ref #. */ int32 index; /* RI index # */ TEST_VARTYPE image[TEST_YDIM][TEST_XDIM][TEST_NCOMP]; /* space for the image data */ TEST_VARTYPE fill_pixel[TEST_NCOMP]={-20000,-1,4800,3,1000}; /* pixel with fill values */ TEST_VARTYPE fill_pixel2[TEST_NCOMP]={45,1230,1,32000,-32000}; /* pixel with fill values */ TEST_VARTYPE image0[TEST_YDIM][TEST_XDIM][TEST_NCOMP]; /* space for the image data */ TEST_VARTYPE sub_image[TEST_YDIM][TEST_XDIM][TEST_NCOMP]; /* space for the image data */ TEST_VARTYPE *sub_ptr; int32 start[2]; /* start of image data to use */ int32 stride[2];/* stride of image data to use */ int32 count[2]; /* # of pixels of image data to use */ intn i,j,k; /* local counting variables */ /* fill the memory-only with the default pixel fill-values */ HDmemset(image0,0,sizeof(TEST_VARTYPE)*(size_t)(TEST_YDIM*TEST_XDIM*TEST_NCOMP)); sub_ptr=(TEST_VARTYPE *)sub_image; for(i=0; i(TEST_YDIM/3)) && (i<(2*TEST_YDIM/3))) && ((j>(TEST_XDIM/4)) && (j<(3*TEST_XDIM/4)))) { if((j%2)==0) HDmemcpy(&image0[i][j][0],pixel,sizeof(pixel)); else HDmemcpy(&image0[i][j][0],pixel2,sizeof(pixel2)); HDmemcpy(sub_ptr,&image0[i][j][0],TEST_NCOMP*sizeof(TEST_VARTYPE)); sub_ptr+=TEST_NCOMP; } /* end if */ } /* end for */ } /* end for */ /* initialize the disk buffer */ HDmemset(image,255,sizeof(image)); /* Create empty image with default fill value */ riid=GRcreate(grid,"Test Image B2a2bb",TEST_NCOMP,TEST_NT,MFGR_INTERLACE_PIXEL,dims); CHECK_VOID(riid,FAIL,"GRcreate"); /* Set the fill-value */ ret=GRsetattr(riid,FILL_ATTR,TEST_NT,TEST_NCOMP,fill_pixel); CHECK_VOID(ret,FAIL,"GRsetattr"); /* Check if creating chunked GR */ if (flag) { /* Create chunked GR chunk is 2x2 which will create 6 chunks */ cdims[0] = chunk_def.chunk_lengths[0] = 2; cdims[1] = chunk_def.chunk_lengths[1] = 2; ret = GRsetchunk(riid, chunk_def, HDF_CHUNK); CHECK_VOID(ret,FAIL,"GRsetchunk"); } /* Save the ref. # for later access */ ref=GRidtoref(riid); CHECK_VOID(ref,(uint16)FAIL,"GRidtoref"); /* Create sub-setted window with only the filled pixels in it */ start[XDIM]=(TEST_XDIM/4)+1; start[YDIM]=(TEST_YDIM/3)+1; count[XDIM]=((3*TEST_XDIM/4)-(TEST_XDIM/4))-1; count[YDIM]=((2*TEST_YDIM/3)-(TEST_YDIM/3))-1; stride[XDIM]=stride[YDIM]=1; ret=GRwriteimage(riid,start,stride,count,sub_image); CHECK_VOID(ret,FAIL,"GRwriteimage"); /* Close the empty image */ ret=GRendaccess(riid); CHECK_VOID(ret,FAIL,"GRendaccess"); /* Get the index of the newly created image */ index=GRreftoindex(grid,ref); CHECK_VOID(index,FAIL,"GRreftoindex"); /* Select the newly created image */ riid=GRselect(grid,index); CHECK_VOID(riid,FAIL,"GRselect"); /* Get the whole image back */ start[XDIM]=start[YDIM]=0; stride[XDIM]=stride[YDIM]=1; ret=GRreadimage(riid,start,stride,dims,image); CHECK_VOID(ret,FAIL,"GRreadimage"); if(0!=HDmemcmp(image,image0,sizeof(image0))) { MESSAGE(3, printf("Error reading data for new image with user-defined fill-value, sub-setted image\n");); MESSAGE(8, for(i=0; i #include "gif.h" #include #include int WriteHDF(GifMemoryStruct, HDFName , GIFFileName) GIFTOMEM GifMemoryStruct; char *HDFName; char *GIFFileName; { GIFHEAD gifHead; /* GIF Header structure */ GIFIMAGEDESC gifImageDesc; /* Logical Image Descriptor struct */ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, vgroup_id, /* VGroup interface identifier */ pal_id, start[2], /* start position to write for each dimension */ edges[2], /* number of elements to be written along each dimension */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ ImageCount, CommentCount, ApplicationCount, PlainTextCount, i; /* compression structs */ uint32 comp_type; /* compression type */ comp_info c_info; /* the compression information for setcompress */ char ImageName[256]; /* Image name for the GR Image */ char CommentName[256]; char ApplicationName[256]; char PlainTextName[256]; /* reference variables */ uint32 gr_ref; /* GR reference for the VGroup */ /* Setting compression to gzip. If you want to change compression ** type or params change it here */ c_info.deflate.level = 6; comp_type = COMP_CODE_NONE; data_type = DFNT_UINT8; interlace_mode = MFGR_INTERLACE_PIXEL; /* Get the stuff from the GIFMem data struct */ gifHead = *(GifMemoryStruct.GifHeader); ImageCount = (int32)gifHead.ImageCount; CommentCount = (int32)gifHead.CommentCount; ApplicationCount = (int32)gifHead.ApplicationCount; PlainTextCount = (int32)gifHead.PlainTextCount; /*Start HDF file*/ file_id = Hopen(HDFName, DFACC_CREATE, 0); if(file_id == -1) { printf("Unable to create HDF file"); status = HEvalue(1); puts(HEstring(status)); exit(0); } if ((status = Vstart(file_id)) == -1) { printf("Could not start VGroup interface\n"); puts(HEstring(HEvalue(1))); exit(-1); } vgroup_id = Vattach(file_id , -1 , "w"); status = Vsetname(vgroup_id , GIFFileName); status = Vsetclass(vgroup_id , "GIF"); /* Put the global palette in as an attribute to the vgroup */ if (gifHead.PackedField & 0x80) { status = Vsetattr (vgroup_id, "Global Palette" , DFNT_UINT8, 3 * gifHead.TableSize , (VOIDP)gifHead.HDFPalette); if (status) { printf("Could not add global palette.\n"); puts(HEstring(HEvalue(1))); } } for (i = 0 ; i < CommentCount ; i++) { sprintf(CommentName , "Comment Extension Data %d" , (int)i); status = Vsetattr (vgroup_id , CommentName , DFNT_CHAR8 , (int32)(GifMemoryStruct.GifCommentExtension[i])->DataSize , (VOIDP)(GifMemoryStruct.GifCommentExtension[i])->CommentData); free(GifMemoryStruct.GifCommentExtension[i]); } free(GifMemoryStruct.GifCommentExtension); for (i = 0 ; i < ApplicationCount ; i++) { sprintf(ApplicationName , "Application Extension Data %d", (int)i); status = Vsetattr (vgroup_id , ApplicationName , DFNT_CHAR8 , (int32)(GifMemoryStruct.GifApplicationExtension[i])->DataSize , (VOIDP)(GifMemoryStruct.GifApplicationExtension[i])->ApplicationData); sprintf(ApplicationName , "Application Extension Dump %d", (int)i); status = Vsetattr (vgroup_id , ApplicationName , DFNT_CHAR8 , (int32)11, (VOIDP)(GifMemoryStruct.GifApplicationExtension[i])->AEDump); } for (i = 0 ; i < PlainTextCount ; i++) { sprintf(PlainTextName , "PlainText Extension Data %d", (int)i); status = Vsetattr (vgroup_id , PlainTextName , DFNT_CHAR8 , (int32)(GifMemoryStruct.GifPlainTextExtension[i])->DataSize , (VOIDP)(GifMemoryStruct.GifPlainTextExtension[i])->PlainTextData); sprintf(PlainTextName , "PlainText Extension Dump %d", (int)i); status = Vsetattr (vgroup_id , PlainTextName , DFNT_CHAR8 , (int32)15, (VOIDP)(GifMemoryStruct.GifPlainTextExtension[i])->PTEDump); } gr_id = GRstart(file_id); /* Add GR images into VGroup */ for(i = 0 ; i < ImageCount ; i++) { gifImageDesc = *(GifMemoryStruct.GifImageDesc[i]); dim_sizes[0] = gifImageDesc.ImageWidth; dim_sizes[1] = gifImageDesc.ImageHeight; start[0] = start[1] = 0; edges[0] = gifImageDesc.ImageWidth; edges[1] = gifImageDesc.ImageHeight; /* Create GR Image */ sprintf(ImageName,"Image%d",(int)i); ri_id = GRcreate (gr_id, ImageName, 1, data_type, interlace_mode, dim_sizes); /* GRSetCompress */ if ((status = GRsetcompress(ri_id, comp_type, &c_info)) == -1) { printf("Error occured while setting compression\n"); puts(HEstring(HEvalue(1))); exit(-1); } /* Write the GR Image */ if ((status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)gifImageDesc.Image)) == -1) { printf("Error occured while trying to write GR image\n"); puts(HEstring(HEvalue(1))); exit(-1); } /* Create palette */ pal_id = GRgetlutid (ri_id , 0); if ((status = GRwritelut (pal_id , 3, DFNT_UINT8, interlace_mode, 256, (VOIDP)gifImageDesc.HDFPalette)) == -1) { printf("Could not write palette\n"); puts(HEstring(HEvalue(1))); exit(-1); } /* Put both image and palette in VGroup */ gr_ref = GRidtoref(ri_id); if ((status = GRendaccess(ri_id)) == -1) { printf("Could not terminate GR access\n"); puts(HEstring(HEvalue(1))); exit(-1); } /* Adding GR to vgroup */ if((status = Vaddtagref(vgroup_id,(int32)1965,gr_ref))==-1) { printf("Could not add tag to Vgroup"); puts(HEstring(HEvalue(1))); } } /* Terminate GR access */ if ((status = GRend (gr_id))==-1) { printf("Could not end GR access\n"); puts(HEstring(HEvalue(1))); printf("Trying to continue (file may be corrupt)...\n"); } /* Terminate access to the VGroup */ if ((status = Vdetach(vgroup_id))==-1) { printf("Could not detach Vgroup\n"); puts(HEstring(HEvalue(1))); printf("Trying to continure (file may be corrupt)...\n"); } /* Terminate access to the V interface */ if ((status = Vend(file_id))==-1) { printf("Could not end VGroup access\n"); puts(HEstring(HEvalue(1))); printf("Trying to continure (file may be corrupt)... \n"); } /* Close the HDF file */ if ((status = Hclose (file_id))==-1) { printf("Could not close HDF file. Fatal Error"); puts(HEstring(HEvalue(1))); return(-1); } return(0); } libhdf4-4.2.10/HDF_ALT/hdf/util/hdf2gif.c0000644000000000000000000002327712474643755014330 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include "gif.h" #include #include #define HDFNAME "laser.hdf" #define VGROUPCLASS "RIG0.0" #define GIFNAME "temp.gif" extern int hdfWriteGIF(FILE *fp, BYTE *pic, int ptype, int w, int h, BYTE *rmap, BYTE *gmap, BYTE *bmap, BYTE *pc2ncmap, int numcols, int colorstyle, int BitsPerPixel); int EndianOrder; VOID PutByte(b , fpGif) BYTE b; FILE *fpGif; { if (fputc(b , fpGif) == EOF) { printf("File Writing Error, cannot continue"); exit(-1); } } VOID WordToByte(w , b) WORD w; BYTE *b; { if (EndianOrder == 0) /* Big Endian */ { b[0] = w & 0xFF00; b[1] = w & 0xFF; } else /* Little Endian */ { b[0] = w & 0xFF; b[1] = w & 0xFF00; } } VOID putword(w, fp) int w; FILE *fp; { /* writes a 16-bit integer in GIF order (LSB first) */ fputc(w &0xff, fp); fputc((w>>8)&0xff,fp); } int main(int argc , char **argv) { intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, pal_id, start[2], /* start position to write for each dimension */ stride[2], dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ i, index; char gr_name[256]; FILE *fpGif; int32 ncomp; int32 num_attrs; int32 num_entries; int32 n_images; int32 n_fileattributes; BYTE *Image; /* compression structs */ char *HDFName; char *GIFName; /* reference variables */ int has_local_palette; /* treated as a flag */ int loop_times; /* number of times to loop, i'm going to treat it as a yes or no */ BYTE* b; BYTE x; BYTE GlobalPalette[256][3]; BYTE Red[256]; BYTE Green[256]; BYTE Blue[256]; int RWidth, RHeight; int LeftOfs, TopOfs; int ColorMapSize, InitCodeSize, Background, BitsPerPixel; int j,nc; int w,h; int numcols = 256; int CountDown; int curx , cury; int time_out; BYTE pc2nc[256] , r1[256] , g1[256] , b1[256]; if (argc < 3) { printf("Wrong number of arguments.\nUsage:\nhdf2gif \n"); exit (-1); } HDFName = argv[1]; GIFName = argv[2]; /* Set a default 10 ms time between two consequetive images in case of multiple image file */ if (argc > 3) time_out = atoi(argv[3]); else time_out = 10; /* Do Endian Order testing and set Endian Order */ x = 0x0001; b = (BYTE *) &w; EndianOrder = (b[0] ? 1:0); start[0] = start[1] = 0; stride[0] = stride[1] = 1; /*Start HDF file*/ file_id = Hopen(HDFName, DFACC_READ, 0); if(file_id == -1) { printf("Unable to open HDF file"); status = HEvalue(1); puts(HEstring(status)); exit(0); } if (!(fpGif = fopen(GIFName , "wb"))) { printf("Error opening gif file for output. Aborting.\n"); exit (-1); } /* Open the hdf file using the GR interface and retrieve the images from it ** Note that for now the images have to be 8 bit. If they are 24 bit this ** program cannot handle it. I shall try to include it, if not please ** refer to the file hdf2gif.c in the source code for the remormat utility. ** There you should find the code to convert 24 bit images to 8 bit (GIF) */ gr_id = GRstart(file_id); if ((status = GRfileinfo(gr_id , &n_images , &n_fileattributes)) == -1) { status = HEvalue(1); puts(HEstring(status)); exit(0); } if (n_images < 1) { printf("Error: No GRimages found in hdf file. Aborting.\n"); exit (-1); } Background = 0; for (index = 0 ; index < n_images ; index++) { has_local_palette = true; ri_id = GRselect(gr_id , index); if ((pal_id = GRgetlutid(ri_id , 0)) == -1) has_local_palette = false; if (has_local_palette) { status = GRgetlutinfo(pal_id , &ncomp , &data_type , &interlace_mode , &num_entries); status = GRreadlut(pal_id , (VOIDP)&GlobalPalette); } status = GRgetiminfo(ri_id , gr_name , &ncomp , &data_type , &interlace_mode , dim_sizes , &num_attrs); if (!(data_type == DFNT_CHAR || data_type == DFNT_UCHAR || data_type == DFNT_INT8 || data_type == DFNT_UINT8 || data_type == DFNT_NINT8 || data_type == DFNT_NUINT8)) { printf("The GR data type of image %s in the hdf file appears not to be 8-bit. Trying next image...\n", gr_name); continue; } /* BUG FIX 601 - pkamat */ if (1 != ncomp) { /* not an 8-bit image */ if (3 == ncomp) { /* 24-bit image */ printf("The GR data type of image %s in the hdf file appears to be a 24-bit image. ", gr_name); printf("Use hdf2jpeg to convert this image. Trying next image... \n"); continue; } printf("The GR data type of image %s in the hdf file does not appear to be a 8-bit image. ", gr_name); printf("Trying next image... \n"); continue; } /* End BUG FIX 601 */ Image = (BYTE *)malloc(dim_sizes[0] * dim_sizes[1]); status = GRreadimage(ri_id , start , stride , dim_sizes , Image); w = dim_sizes[0]; h = dim_sizes[1]; /* If the first image does not have a palette, I make my own global color table ** Obviously this is not the best thing to do, better steps would be: ** 1. Check for either a global palette or a global attribute called palette ** 2. Check for palettes in any of the other images. */ if (!has_local_palette) { for (i = 0 ; i < 256 ; i++) { Red[i] = 255 - i; Green[i] = 255 - i; Blue[i] = 255 - i; } } else { for (i = 0 ; i < 256 ; i++){ Red[i] = GlobalPalette[i][0]; Green[i] = GlobalPalette[i][1]; Blue[i] = GlobalPalette[i][2]; } } for (i=0; i<256; i++) { pc2nc[i] = r1[i] = g1[i] = b1[i] = 0; } /* compute number of unique colors */ nc = 0; for (i=0; i= nc) break; } BitsPerPixel = i; ColorMapSize = 1 << BitsPerPixel; RWidth = dim_sizes[0]; RHeight = dim_sizes[1]; LeftOfs = TopOfs = 0; CountDown = w * h; /* # of pixels we'll be doing */ if (BitsPerPixel <= 1) InitCodeSize = 2; else InitCodeSize = BitsPerPixel; curx = cury = 0; if (!fpGif) { fprintf(stderr, "WriteGIF: file not open for writing\n" ); return (1); } /* If it is the first image we do all the header stuff that isn't required for the ** rest of the images. */ if (index == 0) { /* Write out the GIF header and logical screen descriptor */ if (n_images > 0) { fwrite("GIF89a", 1, 6, fpGif); /* the GIF magic number */ loop_times = 0; } else { fwrite("GIF87a", 1, 6, fpGif); /* the GIF magic number */ loop_times = 1; } putword(RWidth, fpGif); /* screen descriptor */ putword(RHeight, fpGif); i = 0x00; /* No, there is no color map */ i |= (8-1)<<4; /* OR in the color resolution (hardwired 8) */ i |= (BitsPerPixel - 1); /* OR in the # of bits per pixel */ fputc(i,fpGif); fputc(Background,fpGif); /* background color */ fputc(0, fpGif); /* future expansion byte */ /* If loop_times is 0 , put in the application extension to make the gif anime loop ** indefinitely */ if (!loop_times) { fputc(0x21 , fpGif); fputc(0xFF , fpGif); fputc(11 , fpGif); fwrite("NETSCAPE2.0" , 1 , 11 , fpGif); fputc(3 , fpGif); fputc(1 , fpGif); fputc(0 , fpGif); fputc(0 , fpGif); fputc(0 , fpGif); } } if (n_images > 1) { /* write a graphic control block */ fputc(0x21 , fpGif); fputc(0xF9 , fpGif); fputc(4 , fpGif); fputc(4 , fpGif); putword(time_out , fpGif); fputc(255, fpGif); fputc(0 , fpGif); } /* Put Image Descriptor ** Hardwiring Left Offset and Top Offset to 0x00 */ fputc (0x2c , fpGif); putword (0x00 , fpGif); putword (0x00 , fpGif); putword (RWidth , fpGif); putword (RHeight , fpGif); if (has_local_palette) { fputc ((0x80 | (BitsPerPixel - 1)) , fpGif); for (i=0; i hdfed.tmp 2>&1 diff hdfed.tmp $srcdir/hdfed.out1 || errors=1 /bin/rm -f storm110.hdf ntcheck.hdf hdfed.tmp else echo "** hdfed not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " hdfed might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo "/bin/rm -f storm110.hdf ntcheck.hdf hdfed.tmp " echo "cp $srcdir/testfiles/storm110.hdf $srcdir/testfiles/ntcheck.hdf . " echo "$HDFEDCMD < $srcdir/hdfed.input1 >& hdfed.tmp " echo "diff hdfed.tmp $srcdir/hdfed.out1 " echo " ******* END NOTE *************" echo "" errors=0 fi # ristosds if [ -f ristosds -a -f $HDFED ]; then echo "** Testing ristosds ***" /bin/rm -f storm*.hdf hdfed.tmp1 cp $srcdir/testfiles/storm110.hdf $srcdir/testfiles/storm120.hdf $srcdir/testfiles/storm130.hdf . $TESTS_ENVIRONMENT ./ristosds storm*.hdf -o storm.hdf > /dev/null 2>&1 $TESTS_ENVIRONMENT $HDFEDCMD < $srcdir/ristosds.input1 > hdfed.tmp1 2>&1 diff hdfed.tmp1 $srcdir/ristosds.out1 || errors=1 /bin/rm -f storm*.hdf hdfed.tmp1 else echo "** ristosds or hdfed not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " ristosds might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo " /bin/rm -f storm*.hdf hdfed.tmp1 " echo " cp $srcdir/testfiles/storm110.hdf $srcdir/testfiles/storm120.hdf $srcdir/testfiles/storm130.hdf . " echo "./ristosds storm*.hdf -o storm.hdf " echo "$HDFEDCMD < $srcdir/ristosds.input1 >& hdfed.tmp1 " echo " diff hdfed.tmp1 $srcdir/ristosds.out1" echo " ******* END NOTE *************" echo "" errors=0 fi #hdfpack if [ -f hdfpack -a -f hdfls ]; then echo "** Testing hdfpack ***" /bin/rm -f test.hdf test.blk test.pck hdfls.tmp1 cp $srcdir/testfiles/test.hdf . $TESTS_ENVIRONMENT ./hdfpack test.hdf test.pck $TESTS_ENVIRONMENT ./hdfpack -b test.hdf test.blk ($TESTS_ENVIRONMENT ./hdfls test.hdf | $SED ) > hdfls.tmp1 2>&1 ($TESTS_ENVIRONMENT ./hdfls test.pck | $SED ) >> hdfls.tmp1 2>&1 diff hdfls.tmp1 $srcdir/hdfpack.out1 || errors=1 /bin/rm -f test.hdf test.blk test.pck hdfls.tmp1 else echo "** hdfpack or hdfls not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " hdfpack might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo "/bin/rm -f test.hdf test.blk test.pck hdfls.tmp1 " echo " cp $srcdir/testfiles/test.hdf . " echo "./hdfpack test.hdf test.pck " echo "./hdfpack -b test.hdf test.blk " echo "(./hdfls test.hdf | $SED ) >& hdfls.tmp1" echo "(./hdfls test.pck | $SED ) >>& hdfls.tmp1" echo " diff hdfls.tmp1 $srcdir/hdfpack.out1 " echo " ******* END NOTE *************" echo "" errors=0 fi #hdftopal/paltohdf if [ -f hdftopal -a -f paltohdf ]; then echo "** Testing hdftopal/paltohdf ***" /bin/rm -f palette.* cp $srcdir/testfiles/palette.raw . $TESTS_ENVIRONMENT ./paltohdf palette.raw palette.hdf $TESTS_ENVIRONMENT ./hdftopal palette.hdf palette.raw.new cmp palette.raw palette.raw.new || errors=1 /bin/rm -f palette.* else echo "** hdftopal or paltohdf not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " hdftopal or paltohdf might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo " /bin/rm -f palette.* " echo " cp $srcdir/testfiles/palette.raw . " echo "./paltohdf palette.raw palette.hdf " echo "./hdftopal palette.hdf palette.raw.new " echo "cmp palette.raw palette.raw.new " echo " ******* END NOTE *************" echo "" errors=0 fi # r8tohdf/hdftor8 if [ -f r8tohdf -a -f hdftor8 -a -f hdfls ]; then echo "** Testing r8tohdf/hdftor8 ***" /bin/rm -f storm* img* palette.raw hdfls.tmp2 pal005 cp $srcdir/testfiles/storm*.raw $srcdir/testfiles/palette.raw . $TESTS_ENVIRONMENT ./r8tohdf 57 57 storm.hdf storm*.raw $TESTS_ENVIRONMENT ./r8tohdf 57 57 storm.hdf -p palette.raw -i storm110.raw $TESTS_ENVIRONMENT ./hdftor8 storm.hdf ($TESTS_ENVIRONMENT ./hdfls -l storm.hdf | $SED) > hdfls.tmp2 2>&1 diff hdfls.tmp2 $srcdir/hdftor8.out1 || errors=1 cmp img001-057.057 storm110.raw || errors=1 cmp img002-057.057 storm120.raw || errors=1 cmp img003-057.057 storm130.raw || errors=1 cmp img004-057.057 storm140.raw || errors=1 /bin/rm -f storm* img* palette.raw hdfls.tmp2 pal005 else echo "** r8tohdf, hdftor8 or hdfls not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " r8tohdf or hdftor8 might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo "/bin/rm -f storm* img* palette.raw hdfls.tmp2 pal005 " echo "cp $srcdir/testfiles/storm*.raw $srcdir/testfiles/palette.raw . " echo "./r8tohdf 57 57 storm.hdf storm*.raw " echo "./r8tohdf 57 57 storm.hdf -p palette.raw -i storm110.raw " echo "./hdftor8 storm.hdf " echo "(./hdfls -l storm.hdf | $SED) >& hdfls.tmp2 " echo " diff hdfls.tmp2 $srcdir/hdftor8.out1 " echo "cmp img001-057.057 storm110.raw " echo "cmp img002-057.057 storm120.raw " echo "cmp img003-057.057 storm130.raw " echo "cmp img004-057.057 storm140.raw " echo " ******* END NOTE *************" echo "" errors=0 fi # hdfcomp if [ -f hdfcomp -a -f hdfls ]; then echo "** Testing hdfcomp ***" /bin/rm -f storm*.hdf all*.hdf hdfls.tmp3 cp $srcdir/testfiles/storm*.hdf . $TESTS_ENVIRONMENT ./hdfcomp allstorms.hdf storm*.hdf $TESTS_ENVIRONMENT ./hdfcomp allcomp.hdf -c storm*.hdf ($TESTS_ENVIRONMENT ./hdfls -l allstorms.hdf | $SED) > hdfls.tmp3 2>&1 ($TESTS_ENVIRONMENT ./hdfls -l allcomp.hdf | $SED) >> hdfls.tmp3 2>&1 diff hdfls.tmp3 $srcdir/hdfcomp.out1 || errors=1 /bin/rm -f storm*.hdf all*.hdf hdfls.tmp3 else echo "** hdfcomp or hdfls not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " hdfcomp might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo "/bin/rm -f storm*.hdf all*.hdf hdfls.tmp3 " echo "cp $srcdir/testfiles/storm*.hdf . " echo "./hdfcomp allstorms.hdf storm*.hdf " echo "./hdfcomp allcomp.hdf -c storm*.hdf " echo "(./hdfls -l allstorms.hdf | $SED) >& hdfls.tmp3 " echo "(./hdfls -l allcomp.hdf | $SED) >>& hdfls.tmp3 " echo "diff hdfls.tmp3 $srcdir/hdfcomp.out1 " echo " ******* END NOTE *************" echo "" errors=0 fi #jpeg2hdf/hdf2jpeg if [ -f jpeg2hdf -a -f hdf2jpeg -a -f hdfls ]; then echo "** Testing jpeg2hdf/hdf2jpeg ***" /bin/rm -f jpeg.hdf jpeg_img.jpg jpeg2.jpg hdfls.tmp4 cp $srcdir/testfiles/jpeg_img.jpg . $TESTS_ENVIRONMENT ./jpeg2hdf jpeg_img.jpg jpeg.hdf $TESTS_ENVIRONMENT ./hdf2jpeg jpeg.hdf jpeg2.jpg ($TESTS_ENVIRONMENT ./hdfls -l jpeg.hdf | $SED) > hdfls.tmp4 2>&1 diff hdfls.tmp4 $srcdir/jpeg2hdf.out1 || errors=1 cmp jpeg_img.jpg jpeg2.jpg || errors=1 /bin/rm -f jpeg.hdf jpeg_img.jpg jpeg2.jpg hdfls.tmp4 else echo "** jpeg2hdf, hdf2jpeg or hdfls not available ***" fi if [ $errors -eq 1 ]; then haserr=1 echo " ********* NOTE ***************" echo " jpeg2hdf or hdf2jpeg might have failed ***" echo " The above errors could be formatting " echo " problems which can be ignored " echo " please run the following by hand to verify " echo " " echo "/bin/rm -f jpeg.hdf jpeg_img.jpg jpeg2.jpg hdfls.tmp4 " echo "cp $srcdir/testfiles/jpeg_img.jpg . " echo "./jpeg2hdf jpeg_img.jpg jpeg.hdf " echo "./hdf2jpeg jpeg.hdf jpeg2.jpg " echo "(./hdfls -l jpeg.hdf | $SED) >& hdfls.tmp4 " echo "diff hdfls.tmp4 $srcdir/jpeg2hdf.out1 " echo "cmp jpeg_img.jpg jpeg2.jpg " echo " ******* END NOTE *************" echo "" errors=0 fi ## ## fp2hdf is now called hdfimport, and is in mfhdf/hdfimport ## # # fp2hdf # if [ -f fp2hdf -a -f hdfls -a -f $HDFED ]; then # echo "** Testing fp2hdf ***" # if [ ! "$has32" ]; then # echo " $machinetype does not support float32." # echo " float32 tests skipped." # fi # # /bin/rm -f ctxtr* cb* *.hdf hdfls.tmp5 hdfed.tmp6 # ./fptest # ./fp2hdf ctxtr2 -o ctxtr2.hdf # ./fp2hdf ctxtr3 -o ctxtr3.hdf # if [ "$has32" ]; then # ./fp2hdf cb32r2 -o cb32r2.hdf # ./fp2hdf cb32r3 -o cb32r3.hdf # fi # ./fp2hdf cb64r2 -o cb64r2.hdf # ./fp2hdf cb64r3 -o cb64r3.hdf # ./fp2hdf ctxtr2 -o ctxtr2_ris.hdf -raster -e 50 50 # ./fp2hdf cb64r2 -o cb64r2_ris.hdf -raster -i 50 50 -f # (./hdfls -l ctxtr2.hdf | $SED) > hdfls.tmp5 2>&1 # (./hdfls -l ctxtr3.hdf | $SED) >> hdfls.tmp5 2>&1 # if [ "$has32" ]; then # (./hdfls -l cb32r2.hdf | $SED) >> hdfls.tmp5 2>&1 # (./hdfls -l cb32r3.hdf | $SED) >> hdfls.tmp5 2>&1 # fi # (./hdfls -l cb64r2.hdf | $SED) >> hdfls.tmp5 2>&1 # (./hdfls -l cb64r3.hdf | $SED) >> hdfls.tmp5 2>&1 # (./hdfls -l ctxtr2_ris.hdf | $SED) >> hdfls.tmp5 2>&1 # (./hdfls -l cb64r2_ris.hdf | $SED) >> hdfls.tmp5 2>&1 # if [ "$has32" ]; then # diff hdfls.tmp5 $srcdir/fp2hdf.out1 || errors=1 # $HDFEDCMD < $srcdir/fp2hdf.input1 > hdfed.tmp6 2>&1 # diff hdfed.tmp6 $srcdir/fp2hdf.out2 || errors=1 # else # diff hdfls.tmp5 $srcdir/fp2hdf.out1-32 || errors=1 # $HDFEDCMD < $srcdir/fp2hdf.input1-32 > hdfed.tmp6 2>&1 # diff hdfed.tmp6 $srcdir/fp2hdf.out2-32 || errors=1 # fi # /bin/rm -f ctxtr* cb* *.hdf hdfls.tmp5 hdfed.tmp6 # else # echo "** fp2hdf, hdfed or hdfls not available ***" # fi # # if [ $errors -eq 1 ]; then # haserr=1 # echo " ********* NOTE ***************" # echo " fp2hdf might have failed ***" # echo " The above errors could be formatting " # echo " problems which can be ignored " # echo " please run the following by hand to verify " # echo " " # echo " /bin/rm -f ctxtr* cb* *.hdf hdfls.tmp5 hdfed.tmp6" # echo " ./fptest " # echo " ./fp2hdf ctxtr2 -o ctxtr2.hdf " # echo " ./fp2hdf ctxtr3 -o ctxtr3.hdf " # if [ "$has32" ]; then # echo " ./fp2hdf cb32r2 -o cb32r2.hdf " # echo " ./fp2hdf cb32r3 -o cb32r3.hdf " # fi # echo " ./fp2hdf cb64r2 -o cb64r2.hdf " # echo " ./fp2hdf cb64r3 -o cb64r3.hdf " # echo " ./fp2hdf ctxtr2 -o ctxtr2_ris.hdf -raster -e 50 50 " # echo " ./fp2hdf cb64r2 -o cb64r2_ris.hdf -raster -i 50 50 -f " # echo "( ./hdfls -l ctxtr2.hdf | $SED) >& hdfls.tmp5 " # echo "( ./hdfls -l ctxtr3.hdf | $SED) >>& hdfls.tmp5 " # if [ "$has32" ]; then # echo "( ./hdfls -l cb32r2.hdf | $SED) >>& hdfls.tmp5 " # echo "( ./hdfls -l cb32r3.hdf | $SED) >>& hdfls.tmp5 " # fi # echo "( ./hdfls -l cb64r2.hdf | $SED) >>& hdfls.tmp5 " # echo "( ./hdfls -l cb64r3.hdf | $SED) >>& hdfls.tmp5 " # echo "( ./hdfls -l ctxtr2_ris.hdf | $SED) >>& hdfls.tmp5 " # echo "( ./hdfls -l cb64r2_ris.hdf | $SED) >>& hdfls.tmp5 " # if [ "$has32" ]; then # echo " diff hdfls.tmp5 $srcdir/fp2hdf.out1 " # echo " $HDFEDCMD < $srcdir/fp2hdf.input1 >& hdfed.tmp6 " # echo " diff hdfed.tmp6 $srcdir/fp2hdf.out2 " # else # echo " diff hdfls.tmp5 $srcdir/fp2hdf.out1-32 " # echo " $HDFEDCMD < $srcdir/fp2hdf.input1-32 >& hdfed.tmp6 " # echo " diff hdfed.tmp6 $srcdir/fp2hdf.out2-32 " # fi # echo " ******* END NOTE *************" # echo "" # errors=0 # fi # # Check errors result if [ $haserr -eq 0 ]; then echo "==============================" echo "HDF Utilities tests passed." echo "==============================" else echo "**************************************" echo "HDF Utilities tests encountered errors" echo "**************************************" fi echo "" exit $haserr libhdf4-4.2.10/HDF_ALT/hdf/util/getopt1.c0000644000000000000000000001064012421456623014354 0ustar /* getopt_long and getopt_long_only entry points for GNU getopt. Copyright (C) 1987, 88, 89, 90, 91, 92, 1993 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, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #if defined (emacs) || defined (CONFIG_BROKETS) /* We use instead of "config.h" so that a compilation using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h (which it would do because it found this file in $srcdir). */ #include #else #include "config.h" #endif #endif #include "getopt.h" #ifndef __STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #if defined (_LIBC) || !defined (__GNU_LIBRARY__) /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ #include #else char *getenv (); #endif #ifndef NULL #define NULL 0 #endif int getopt_long (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 0); } /* Like getopt_long, but '-' as well as '--' can indicate a long option. If an option that starts with '-' (not '--') doesn't match a long option, but does match a short option, it is parsed as a short option instead. */ int getopt_long_only (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 1); } #endif /* _LIBC or not __GNU_LIBRARY__. */ #ifdef TEST #include int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; int option_index = 0; static struct option long_options[] = { {"add", 1, 0, 0}, {"append", 0, 0, 0}, {"delete", 1, 0, 0}, {"verbose", 0, 0, 0}, {"create", 0, 0, 0}, {"file", 1, 0, 0}, {0, 0, 0, 0} }; c = getopt_long (argc, argv, "abc:d:0123456789", long_options, &option_index); if (c == EOF) break; switch (c) { case 0: printf ("option %s", long_options[option_index].name); if (optarg) printf (" with arg %s", optarg); printf ("\n"); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case 'd': printf ("option d with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ libhdf4-4.2.10/HDF_ALT/hdf/util/jpeg2hdf.c0000644000000000000000000004273412421456623014473 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char *RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: jpeg2hdf.c 6013 2014-01-10 21:19:02Z acheng $ */ #include "hdf.h" #ifndef I860 #include #include #include #endif /* I860 */ /* Size of the file buffer to copy through */ #define MAX_FILE_BUF 16384 typedef enum { /* JPEG marker codes */ M_SOF0 = 0xc0, M_SOF1 = 0xc1, M_SOF2 = 0xc2, M_SOF3 = 0xc3, M_SOF5 = 0xc5, M_SOF6 = 0xc6, M_SOF7 = 0xc7, M_JPG = 0xc8, M_SOF9 = 0xc9, M_SOF10 = 0xca, M_SOF11 = 0xcb, M_SOF13 = 0xcd, M_SOF14 = 0xce, M_SOF15 = 0xcf, M_DHT = 0xc4, M_DAC = 0xcc, M_RST0 = 0xd0, M_RST1 = 0xd1, M_RST2 = 0xd2, M_RST3 = 0xd3, M_RST4 = 0xd4, M_RST5 = 0xd5, M_RST6 = 0xd6, M_RST7 = 0xd7, M_SOI = 0xd8, M_EOI = 0xd9, M_SOS = 0xda, M_DQT = 0xdb, M_DNL = 0xdc, M_DRI = 0xdd, M_DHP = 0xde, M_EXP = 0xdf, M_APP0 = 0xe0, M_APP15 = 0xef, M_JPG0 = 0xf0, M_JPG13 = 0xfd, M_COM = 0xfe, M_TEM = 0x01, M_ERROR = 0x100 } JPEG_MARKER; PRIVATE int32 num_bytes; /* number of bytes until the SOS code. */ PRIVATE int32 image_width = 0; /* width of the JPEG image in pixels */ PRIVATE int32 image_height = 0; /* height of the JPEG image in pixels */ PRIVATE intn num_components = 0; /* number of components in the JPEG image */ PRIVATE uint8 file_buf[MAX_FILE_BUF]; /* size of the buffer to copy through */ /* * Routines to parse JPEG markers & save away the useful info. */ static intn jgetc(FILE * f) /* Get a 2-byte unsigned integer (e.g., a marker parameter length field) */ { intn a; a = fgetc(f); if (a != EOF) num_bytes++; return (a); } static int32 get_2bytes(FILE * f) /* Get a 2-byte unsigned integer (e.g., a marker parameter length field) */ { int32 a; a = jgetc(f); return (a << 8) + jgetc(f); } static VOID get_sof(FILE * f) /* Process a SOFn marker */ { short ci; int data_precision; (VOID) get_2bytes(f); data_precision = jgetc(f); image_height = get_2bytes(f); image_width = get_2bytes(f); num_components = jgetc(f); for (ci = 0; ci < num_components; ci++) { jgetc(f); jgetc(f); jgetc(f); } } static VOID skip_variable(FILE * f) /* Skip over an unknown or uninteresting variable-length marker */ { int32 length; length = get_2bytes(f); for (length -= 2; length > 0; length--) (VOID) jgetc(f); } static intn next_marker(FILE * f) /* Find the next JPEG marker */ /* Note that the output might not be a valid marker code, */ /* but it will never be 0 or FF */ { intn c, nbytes; nbytes = 0; do { do { /* skip any non-FF bytes */ nbytes++; c = jgetc(f); } while (c != 0xFF); do { /* skip any duplicate FFs */ nbytes++; c = jgetc(f); } while (c == 0xFF); } while (c == 0); /* repeat if it was a stuffed FF/00 */ return c; } static JPEG_MARKER process_tables(FILE * f) /* Scan and process JPEG markers that can appear in any order */ /* Return when an SOI, EOI, SOFn, or SOS is found */ { int c; while (TRUE) { c = next_marker(f); switch (c) { case M_EOI: return ((JPEG_MARKER) c); case M_SOF0: case M_SOF1: case M_SOF9: get_sof(f); return ((JPEG_MARKER) c); case M_RST0: /* these are all parameterless */ case M_RST1: case M_RST2: case M_RST3: case M_RST4: case M_RST5: case M_RST6: case M_RST7: case M_TEM: break; default: /* must be DNL, DHP, EXP, APPn, JPGn, COM, or RESn */ skip_variable(f); break; } } } /* * Initialize and read the file header (everything through the SOF marker). */ static int32 read_file_header(FILE * f) { int c; num_bytes = 0; /* reset the number of bytes into the file we are */ /* Demand an SOI marker at the start of the file --- otherwise it's * probably not a JPEG file at all. If the user interface wants to support * nonstandard headers in front of the SOI, it must skip over them itself * before calling jpeg_decompress(). */ if (jgetc(f) != 0xFF || jgetc(f) != M_SOI) return (0); /* Process markers until SOF */ c = (int)process_tables(f); switch (c) { case M_SOF0: /* ok, now we know the correct number of bytes to grab */ case M_SOF1: case M_SOF9: #ifdef OLD_WAY return (num_bytes - 2); #else return (num_bytes); #endif default: return (0); } } /*----------------------------------------------------------------------------- * Name: DFJPEGaddrig * Purpose: Write RIG struct for the new JPEG image out to HDF file * Inputs: file_id: HDF file pointer * ref: ref to write RIG with * Returns: 0 on success, -1 on failure with DFerror set * Users: hopefully only routines in this utility * Invokes: DFdistart, DFdiadd, DFdiend, DFputelement * Remarks: another really, really, nasty hack brought to you by QAK in the * interest of not decompressing the JPEG image before stuffing it * into the HDF file... *---------------------------------------------------------------------------*/ static intn DFJPEGaddrig(int32 file_id, uint16 ref, uint16 ctag) { #ifdef OLD_WAY char *FUNC = "DFJPEGaddrig"; #endif uint8 ntstring[4]; #ifdef OLD_WAY int32 lutsize; #endif int32 GroupID; uint8 *p; ntstring[0] = DFNT_VERSION; /* version */ ntstring[1] = DFNT_UCHAR; /* type */ ntstring[2] = 8; /* width: RIG data is 8-bit chars */ ntstring[3] = DFNTC_BYTE; /* class: data are numeric values */ if (Hputelement(file_id, DFTAG_NT, ref, (uint8 *) ntstring, (int32) 4) == FAIL) return FAIL; #ifdef OLD_WAY rig->datadesc[IMAGE].nt.tag = DFTAG_NT; rig->datadesc[IMAGE].nt.ref = ref; if (Ref.dims[IMAGE] == 0) { #endif p = file_buf; INT32ENCODE(p, image_width); /* width */ INT32ENCODE(p, image_height); /* height */ UINT16ENCODE(p, DFTAG_NT); /* number type */ UINT16ENCODE(p, ref); INT16ENCODE(p, num_components); /* number of components */ INT16ENCODE(p, 0); /* interlace scheme */ UINT16ENCODE(p, ctag); /* compression type */ UINT16ENCODE(p, ref); if (Hputelement(file_id, DFTAG_ID, ref, file_buf, (int32) (p - file_buf)) == FAIL) return FAIL; #ifdef OLD_WAY Ref.dims[IMAGE] = ref; } if (!Ref.lut) { /* associated lut not written to this file */ if (Grlutdata == NULL) { /* no lut associated */ HERROR(DFE_ARGS); return FAIL; } lutsize = Grwrite.datadesc[LUT].xdim * Grwrite.datadesc[LUT].ydim * Grwrite.datadesc[LUT].ncomponents; if (Hputelement(file_id, DFTAG_LUT, ref, Grlutdata, (int32) lutsize) == FAIL) return FAIL; rig->data[LUT].tag = DFTAG_LUT; rig->data[LUT].ref = ref; Ref.lut = ref; } if (Ref.dims[LUT] == 0) { uint8 *p; p = GRtbuf; INT32ENCODE(p, rig->datadesc[LUT].xdim); INT32ENCODE(p, rig->datadesc[LUT].ydim); UINT16ENCODE(p, rig->datadesc[LUT].nt.tag); UINT16ENCODE(p, rig->datadesc[LUT].nt.ref); INT16ENCODE(p, rig->datadesc[LUT].ncomponents); INT16ENCODE(p, rig->datadesc[LUT].interlace); UINT16ENCODE(p, rig->datadesc[LUT].compr.tag); UINT16ENCODE(p, rig->datadesc[LUT].compr.ref); if (Hputelement(file_id, DFTAG_LD, ref, GRtbuf, (int32) (p - GRtbuf)) == FAIL) return FAIL; Ref.dims[LUT] = ref; } #endif /* prepare to start writing rig */ /* ### NOTE: the parameter to this call may go away */ if ((GroupID = DFdisetup(10)) == FAIL) return FAIL; /* max 10 tag/refs in set */ /* add tag/ref to RIG - image description, image and lookup table */ if (DFdiput(GroupID, DFTAG_ID, ref) == FAIL) return FAIL; if (DFdiput(GroupID, DFTAG_CI, ref) == FAIL) return FAIL; #ifdef OLD_WAY if ((Ref.dims[LUT] > 0) && (DFdiput(GroupID, DFTAG_LD, (uint16) Ref.dims[LUT]) == FAIL)) return FAIL; if ((Ref.lut > 0) && (DFdiput(GroupID, rig->data[LUT].tag, rig->data[LUT].ref) == FAIL)) return FAIL; #endif /* write out RIG */ return (DFdiwrite(file_id, GroupID, DFTAG_RIG, ref)); } static VOID usage(void) { printf("USAGE: jpeg2hdf \n"); printf(" : JPEG file containing input image \n"); printf(" : HDF file to store the image\n"); exit(1); } /* end usage() */ int main(int argc, char *argv[]) { int32 off_image; /* offset of the JPEG image in the JFIF file */ int32 file_len; /* total length of the JPEG file */ #ifdef OLD_WAY int32 image_len; /* length of the image in the JPEG file (in bytes) */ #endif /* OLD_WAY */ FILE *jfif_file; /* file handle of the JFIF image */ int32 file_id; /* HDF file ID of the file to write */ uint16 wtag; /* tag number to use for the image */ uint16 wref; /* reference number to use for the image */ uint16 ctag; /* tag for the compression to do */ int32 aid; /* access ID for the JPEG image to stuff */ if (argc != 3) usage(); if (argv[1][0] == '-' || argv[1][0] == '/') /* check command line */ usage(); jfif_file = fopen(argv[1], "rb"); if (jfif_file == NULL) { printf("Error opening JPEG file: %s\n", argv[1]); exit(1); } /* end if */ off_image = read_file_header(jfif_file); if (off_image == 0 || image_width <= 0 || image_height <= 0 || num_components <= 0) { printf("Error reading JPEG file: %s, could not find a JFIF header\n", argv[1]); exit(1); } /* end if */ if (!fseek(jfif_file, 0, SEEK_END)) { file_len = (int32)ftell(jfif_file); #ifdef OLD_WAY image_len = file_len - off_image; #endif /* OLD_WAY */ fseek(jfif_file, 0, SEEK_SET); /* go back to beginning of JFIF file */ } /* end if */ else { printf("Error, cannot fseek in %s(?!)\n", argv[1]); exit(1); } /* end else */ if ((file_id = Hopen(argv[2], DFACC_RDWR, 0)) != FAIL) { wref = Hnewref(file_id); if (!wref) { printf("Error getting a reference number for HDF file: %s\n", argv[2]); Hclose(file_id); exit(1); } /* end if */ wtag = DFTAG_CI; /* yes, this is a compressed image */ #ifdef OLD_WAY if (num_components == 1) ctag = DFTAG_GREYJPEG; else if (num_components == 3) ctag = DFTAG_JPEG; #else /* OLD_WAY */ if (num_components == 1) ctag = DFTAG_GREYJPEG5; else if (num_components == 3) ctag = DFTAG_JPEG5; #endif /* OLD_WAY */ else { printf("Error, cannot support JPEG file containing %d components\n", num_components); Hclose(file_id); exit(1); } /* end else */ #ifdef OLD_WAY if (fread(file_buf, sizeof(uint8), (size_t) off_image, jfif_file) != (size_t) off_image) { printf("Error reading JFIF header from %s\n", argv[1]); exit(1); } /* end if */ if (Hputelement(file_id, ctag, wref, file_buf, off_image) == FAIL) { printf("Error writing JPEG header to HDF file: %s\n", argv[2]); exit(1); } /* end if */ if ((aid = Hstartwrite(file_id, wtag, wref, image_len)) == FAIL) { printf("Error from Hstartwrite() for JPEG image data\n"); exit(1); } /* end if */ while (image_len > MAX_FILE_BUF) { if (fread(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != MAX_FILE_BUF) { printf("Error reading JFIF image data from %s\n", argv[1]); exit(1); } /* end if */ if (Hwrite(aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error writing JPEG image data to HDF file\n"); exit(1); } /* end if */ image_len -= MAX_FILE_BUF; } /* end while */ if (image_len > 0) { if (fread(file_buf, sizeof(uint8), (size_t) image_len, jfif_file) != (size_t) image_len) { printf("Error reading JFIF image data from %s\n", argv[1]); exit(1); } /* end if */ if (Hwrite(aid, image_len, file_buf) != (int32) (image_len)) { printf("Error writing last of JPEG image data to HDF file\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(aid); /* done with JPEG data, create RIG */ if (DFJPEGaddrig(file_id, wref, ctag) == FAIL) { printf("Error writing JPEG RIG information\n"); exit(1); } /* end if */ #else /* OLD_WAY */ if ((aid=Hstartwrite(file_id, ctag, wref, 0)) == FAIL) { printf("Error writing JPEG header to HDF file: %s\n", argv[2]); exit(1); } /* end if */ Hendaccess(aid); if ((aid = Hstartwrite(file_id, wtag, wref, file_len)) == FAIL) { printf("Error from Hstartwrite() for JPEG image data\n"); exit(1); } /* end if */ while (file_len > MAX_FILE_BUF) { if (fread(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != MAX_FILE_BUF) { printf("Error reading JFIF image data from %s\n", argv[1]); exit(1); } /* end if */ if (Hwrite(aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error writing JPEG image data to HDF file\n"); exit(1); } /* end if */ file_len -= MAX_FILE_BUF; } /* end while */ if (file_len > 0) { if (fread(file_buf, sizeof(uint8), (size_t) file_len, jfif_file) != (size_t) file_len) { printf("Error reading JFIF image data from %s\n", argv[1]); exit(1); } /* end if */ if (Hwrite(aid, file_len, file_buf) != (int32) (file_len)) { printf("Error writing last of JPEG image data to HDF file\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(aid); /* done with JPEG data, create RIG */ if (DFJPEGaddrig(file_id, wref, ctag) == FAIL) { printf("Error writing JPEG RIG information\n"); exit(1); } /* end if */ #endif /* OLD_WAY */ Hclose(file_id); } /* end if */ else { printf("Error opening HDF file: %s\b", argv[2]); exit(1); } /* end else */ return (0); } /* end jpeg2hdf */ libhdf4-4.2.10/HDF_ALT/hdf/util/hdftor8.out10000644000000000000000000000226412421456623015020 0ustar storm.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 6 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes Ref no 6 4 bytes Image Palette-8 : (tag 201) Ref no 6 768 bytes Raster Image-8 : (tag 202) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Ref no 5 3249 bytes Imcomp Image-8 : (tag 204) Ref no 6 812 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Ref no 6 20 bytes Image Palette : (tag 301) Ref no 6 768 bytes Raster Image Data : (tag 302) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Ref no 5 3249 bytes Compressed Image : (tag 303) Ref no 6 812 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes Ref no 3 8 bytes Ref no 4 8 bytes Ref no 5 8 bytes Ref no 6 12 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/he_proto.h0000644000000000000000000001457512421456623014630 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: he_proto.h 4937 2007-09-10 16:36:16Z pvn $ */ /* Prototypes for hdfed functions */ int HEalias (HE_CMD * cmd); int HEannotate (HE_CMD * cmd); int HEclose (HE_CMD * cmd); int HEdelete (HE_CMD * cmd); int HEdisplay (HE_CMD * cmd); int HEdump (HE_CMD * cmd); int HEgetR8 (HE_CMD * cmd); int HEhelp (HE_CMD * cmd); int HEif (HE_CMD * cmd); int HEinfo (HE_CMD * cmd); int HEnext (HE_CMD * cmd); int HEopen (HE_CMD * cmd); int HEprev (HE_CMD * cmd); int HEput (HE_CMD * cmd); int HEputR8 (HE_CMD * cmd); int HEquit (HE_CMD * cmd); int HErevert (HE_CMD * cmd); int HEselect (HE_CMD * cmd); int HEunalias (HE_CMD * cmd); int HEwait (HE_CMD * cmd); int HEwrite (HE_CMD * cmd); int annotate (const char *editor, int ann); int backupFile (char *file); char *backupName (const char *file); int bigImg (unsigned char *targ, unsigned char *src); char *catStr (const char *s1, const char *s2); int closeFile (int keep); void cmdLoop (void); void convertTemplate (char *template, int n1, int n2, int n3, char **pname); int copyFile (char *from, char *to); char *copyStr (char *str); int delete (int curr); void deleteCmd (HE_CMD * cmd); int deleteDesc (int desc); int desc2Grp (int desc); int display (int c, int x, int y, int f, int l); int HEIdump (int32 length, int offset, char *foramt, int raw); int fileOpen (void); void fillTemplate (char **template, char **pout, char *s, char templateChar); HE_CMD *findAlias (char *str); int findDesc (tag_ref_ptr dd); HE_FUNC findFunc (char *word); int findKey (char *word); int findOpt (char *word); int32 getAnn (int ann, uint16 tag, uint16 ref, char **pBuf); HE_CMD *getCmd (void); int getCurrRig (int32 *pXdim, int32 *pYdim, char **pPalette, char **pRaster); int32 getElement (int desc, char **pdata); int getLine (char *); int getNewRef (char *file, uint16 *pRef); int getPix (void); int getR8 (int xdim, int ydim, char *image, char *pal, int compress); int getSpace (void); int getTmpName (char **pname); void goTo (int desc); int hasReference (int desc); void help (void); int info (int all, int longout, int group, int label); void infoDesc (int desc, int longout, int label); int initFile (char *file); int isGrp (uint16 tag); int isNumber (char *s); int largeSet (void); int main (int argc, char *argv[]); HE_CMD *mkDupCmd (HE_CMD * cmd); char *nextToken (char **p); char *nextWord (char **p); int numCompare (int n1, int Comp, int n2); int od (char *format, char *file); int openFile (char *file, int backup); HE_CMD *parse (void); HE_CMD *parseCmd (char **p); HE_PRED *parsePred (int argc, char *argv[]); int pixImage (int usepal); void printAlias (char *word, HE_CMD * cmd); void prompt (void); int put (char *template, int verbose); int putAnn (int ann, uint16 tag, uint16 ref, char *buf, int32 len); int putElement (char *file, uint16 tag, uint16 ref, char *data, int32 len); int putR8 (char *image, char *pal, int verbose); int putWithTempl (char *template, int n1, int n2, int n3, char *data, int length, int verbose); int quit (int status); int rImage (int usepal); int32 readFromFile (char *file, char **pBuf); int recurseDel (int curr); int removeFile (char *file); int resetPred (void); int revert (void); int rleIt (char *buf, char *bufto, int len); int satPred (DFdesc * desc, HE_PRED pred[]); int setAlias (char *str, HE_CMD * cmd); int setPal (char *pal); int updateDesc (void); int writ (char *file, uint16 tag, uint16 ref); int writeAnnot (char *file, uint16 tag, uint16 ref); int writeElt (char *file, uint16 ref, int elt); int writeGrp (char *file); int writeToFile (char *file, char *data, int32 length); libhdf4-4.2.10/HDF_ALT/hdf/util/hdf24to8.c0000644000000000000000000002334412421456623014340 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdf24to8.c 6013 2014-01-10 21:19:02Z acheng $ */ /************************************************************************** * hdf24hdf8 Quantizes a HDF RGB 24 bit "pixel" image into a 8 bit image * with RGB palette and stores it as a HDF 8-bit raster image * file. * * usage: hdf24hdf8 r24_file hdf8_file * * On Input: * -------- * * hdf24_file - File containing the HDF RGB 24-bit * raster image. * * On Output: * --------- * * hdf8_file - HDF file with one 8-bit raster image set, * i.e. 8-bit image, dimensions, and * RGB palette. * * by: NCSA * date(s): May 89, Jun 89, Aug 89, May 90 * ****************************************************************************/ typedef unsigned char UCHAR; typedef unsigned int UINT; #define NCOLORS 256 #define PALSIZE 3 * NCOLORS #define COMPRESSION 0 /* no compression */ #include #ifdef UNIX #include #endif #include "hdf.h" #define USAGE fprintf (stderr, "usage: hdf24hdf8 hdf24_file hdf8_file\n") int main (int, char *a[]); int r24r8 (int32, int32, unsigned char *, unsigned char *, int, unsigned char *); int main(int argc, char *argv[]) { int i; int32 x_dim, y_dim, size; int interlace; uint8 *r24, *r8, *pal; uint8 hdfpal[PALSIZE], *p; if (argc != 3) { USAGE; exit(1); } /* Get the HDF R24 image */ if (DF24getdims(argv[1], &x_dim, &y_dim, &interlace) < 0) { fprintf(stderr, "error: %s is not an HDF file or ", argv[1]); fprintf(stderr, "it does not contain a R24 image\n"); exit(-1); } size = x_dim * y_dim; if ((r24 = (UCHAR *) HDmalloc(size * 3)) == NULL) { fprintf(stderr, "error: malloc to hold r24 image failed\n"); exit(-1); } if (DF24getimage(argv[1], (VOIDP) r24, x_dim, y_dim) < 0) { fprintf(stderr, "error: DF24getimage failed\n"); exit(-1); } if ((r8 = (UCHAR *) HDmalloc(size)) == NULL) { fprintf(stderr, "error: malloc to hold r8 image failed\n"); exit(-1); } if ((pal = (UCHAR *) HDmalloc(PALSIZE)) == NULL) { fprintf(stderr, "error: malloc to hold palette failed\n"); exit(-1); } if (r24r8(x_dim, y_dim, r24, r8, NCOLORS, pal) == -1) { fprintf(stderr, "error: quantization failed\n"); exit(-1); } /* rearrange palette to conform to HDF requirements */ p = hdfpal; for (i = 0; i < NCOLORS; i++) { *p++ = pal[i]; *p++ = pal[i + NCOLORS]; *p++ = pal[i + NCOLORS * 2]; } if (DFR8setpalette(hdfpal) == -1) { HEprint(stderr, 0); exit(-1); } if (DFR8putimage(argv[2], (VOIDP) r8, x_dim, y_dim, COMPRESSION) == -1) { HEprint(stderr, 0); exit(-1); } HDfree((char *) r24); HDfree((char *) r8); HDfree((char *) pal); return 0; } int r24r8(int32 xres, int32 yres, UCHAR * dat24, UCHAR * dat8, int cres, UCHAR * cdat) { int ct, xct, yct; int rres, rd, rr, rn, rct; int gres, gd, gr, gn, gct; int bres, bd, br, bn, bct; int coff; UINT *idat[2]; UINT *cp, *np; UCHAR *dip, *dop, *rp, *gp, *bp; if ((idat[0] = (UINT *) HDmalloc((size_t)(6 * xres) * sizeof(UINT))) == NULL) { fprintf(stderr, "error: Memory allocation fault\n"); return -1; } idat[1] = idat[0] + (3 * xres); rres = 6; gres = 7; bres = 6; coff = 2; rr = gr = br = 255; rn = rres - 1; gn = gres - 1; bn = bres - 1; rp = cdat + coff; gp = rp + cres; bp = gp + cres; for (rct = 0; rct < rres; rct++) { for (gct = 0; gct < gres; gct++) { for (bct = 0; bct < bres; bct++) { *rp++ = (UCHAR) (rr * rct / rn); *gp++ = (UCHAR) (gr * gct / gn); *bp++ = (UCHAR) (br * bct / bn); } } } rp = cdat; gp = rp + cres; bp = gp + cres; cp = idat[0]; np = idat[1]; dip = dat24; dop = dat8; for (xct = (intn) (3 * xres); --xct >= 0;) *cp++ = (UINT)*dip++; for (yct = 0; yct < (yres - 1); yct++) { np = idat[(yct + 1) % 2]; for (xct = (intn) (3 * xres); --xct >= 0;) *np++ = (UINT)*dip++; cp = idat[yct % 2]; np = idat[(yct + 1) % 2]; if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) (ct = (rct * gres + gct) * bres + bct + coff); rd = (int)cp[0] - rp[ct]; gd = (int)cp[1] - gp[ct]; bd = (int)cp[2] - bp[ct]; cp += 3; np += 3; cp[0] += (UINT)(rd * 7 / 16); cp[1] += (UINT)(gd * 7 / 16); cp[2] += (UINT)(bd * 7 / 16); np[-3] += (UINT)(rd * 5 / 16); np[-2] += (UINT)(gd * 5 / 16); np[-1] += (UINT)(bd * 5 / 16); np[0] += (UINT)(rd / 16); np[1] += (UINT)(gd / 16); np[2] += (UINT)(bd / 16); for (xct = 2; xct < xres; xct++) { if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) (ct = (rct * gres + gct) * bres + bct + coff); rd = (int)cp[0] - rp[ct]; gd = (int)cp[1] - gp[ct]; bd = (int)cp[2] - bp[ct]; cp += 3; np += 3; cp[0] += (UINT)(rd * 7 / 16); cp[1] += (UINT)(gd * 7 / 16); cp[2] += (UINT)(bd * 7 / 16); np[-6] += (UINT)(rd * 3 / 16); np[-5] += (UINT)(gd * 3 / 16); np[-4] += (UINT)(bd * 3 / 16); np[-3] += (UINT)(rd * 5 / 16); np[-2] += (UINT)(gd * 5 / 16); np[-1] += (UINT)(bd * 5 / 16); np[0] += (UINT)(rd / 16); np[1] += (UINT)(gd / 16); np[2] += (UINT)(bd / 16); } if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) (ct = (rct * gres + gct) * bres + bct + coff); rd = (int)cp[0] - rp[ct]; gd = (int)cp[1] - gp[ct]; bd = (int)cp[2] - bp[ct]; cp += 3; np += 3; np[-6] += (UINT)(rd * 3 / 16); np[-5] += (UINT)(gd * 3 / 16); np[-4] += (UINT)(bd * 3 / 16); np[-3] += (UINT)(rd * 5 / 16); np[-2] += (UINT)(gd * 5 / 16); np[-1] += (UINT)(bd * 5 / 16); } cp = idat[yct % 2]; if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) (ct = (rct * gres + gct) * bres + bct + coff); rd = (int)cp[0] - rp[ct]; gd = (int)cp[1] - gp[ct]; bd = (int)cp[2] - bp[ct]; cp += 3; cp[0] += (UINT)(rd * 7 / 16); cp[1] += (UINT)(gd * 7 / 16); cp[2] += (UINT)(bd * 7 / 16); for (xct = 2; xct < xres; xct++) { if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) (ct = (rct * gres + gct) * bres + bct + coff); rd = (int)cp[0] - rp[ct]; gd = (int)cp[1] - gp[ct]; bd = (int)cp[2] - bp[ct]; cp += 3; cp[0] += (UINT)(rd * 7 / 16); cp[1] += (UINT)(gd * 7 / 16); cp[2] += (UINT)(bd * 7 / 16); } if ((rct = ((int)cp[0] * rn / rr)) > rn) rct = rn; if ((gct = ((int)cp[1] * gn / gr)) > gn) gct = gn; if ((bct = ((int)cp[2] * bn / br)) > bn) bct = bn; *dop++ = (UCHAR) ((rct * gres + gct) * bres + bct + coff); HDfree(idat[0]); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/util/CMakeLists.txt0000644000000000000000000002032512421456623015366 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_UTIL C CXX) INCLUDE_DIRECTORIES (${HDF4_HDFSOURCE_DIR}) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-DDOS_FS) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_TOOLS) #-- Adding tool hdfls ADD_EXECUTABLE (hdfls ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfls.c) TARGET_NAMING (hdfls ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfls " " " ") TARGET_LINK_LIBRARIES (hdfls ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdfed SET (hdfed_SRCS ${HDF4_HDF_UTIL_SOURCE_DIR}/he_cntrl.c ${HDF4_HDF_UTIL_SOURCE_DIR}/he_disp.c ${HDF4_HDF_UTIL_SOURCE_DIR}/he_file.c ${HDF4_HDF_UTIL_SOURCE_DIR}/he_main.c ) ADD_EXECUTABLE (hdfed ${hdfed_SRCS}) TARGET_NAMING (hdfed ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfed " " " ") TARGET_LINK_LIBRARIES (hdfed ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_TOOLS) IF (HDF4_BUILD_UTILS) #-- Adding utility hdf2gif SET (hdf2gif_SRCS ${HDF4_HDF_UTIL_SOURCE_DIR}/hdf2gif.c ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfgifwr.c ) ADD_EXECUTABLE (hdf2gif ${hdf2gif_SRCS}) TARGET_NAMING (hdf2gif ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf2gif " " " ") TARGET_LINK_LIBRARIES (hdf2gif ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility gif2hdf SET (gif2hdf_SRCS ${HDF4_HDF_UTIL_SOURCE_DIR}/gif2hdf.c ${HDF4_HDF_UTIL_SOURCE_DIR}/gif2mem.c ${HDF4_HDF_UTIL_SOURCE_DIR}/gifread.c ${HDF4_HDF_UTIL_SOURCE_DIR}/decompress.c ${HDF4_HDF_UTIL_SOURCE_DIR}/writehdf.c ) ADD_EXECUTABLE (gif2hdf ${gif2hdf_SRCS}) TARGET_NAMING (gif2hdf ${LIB_TYPE}) TARGET_C_PROPERTIES (gif2hdf " " " ") TARGET_LINK_LIBRARIES (gif2hdf ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdf24to8 ADD_EXECUTABLE (hdf24to8 ${HDF4_HDF_UTIL_SOURCE_DIR}/hdf24to8.c) TARGET_NAMING (hdf24to8 ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf24to8 " " " ") TARGET_LINK_LIBRARIES (hdf24to8 ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdftor8 ADD_EXECUTABLE (hdftor8 ${HDF4_HDF_UTIL_SOURCE_DIR}/hdftor8.c) TARGET_NAMING (hdftor8 ${LIB_TYPE}) TARGET_C_PROPERTIES (hdftor8 " " " ") TARGET_LINK_LIBRARIES (hdftor8 ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility ristosds ADD_EXECUTABLE (ristosds ${HDF4_HDF_UTIL_SOURCE_DIR}/ristosds.c) TARGET_NAMING (ristosds ${LIB_TYPE}) TARGET_C_PROPERTIES (ristosds " " " ") TARGET_LINK_LIBRARIES (ristosds ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdfpack ADD_EXECUTABLE (hdfpack ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfpack.c) TARGET_NAMING (hdfpack ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfpack " " " ") TARGET_LINK_LIBRARIES (hdfpack ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility paltohdf ADD_EXECUTABLE (paltohdf ${HDF4_HDF_UTIL_SOURCE_DIR}/paltohdf.c) TARGET_NAMING (paltohdf ${LIB_TYPE}) TARGET_C_PROPERTIES (paltohdf " " " ") TARGET_LINK_LIBRARIES (paltohdf ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdftopal ADD_EXECUTABLE (hdftopal ${HDF4_HDF_UTIL_SOURCE_DIR}/hdftopal.c) TARGET_NAMING (hdftopal ${LIB_TYPE}) TARGET_C_PROPERTIES (hdftopal " " " ") TARGET_LINK_LIBRARIES (hdftopal ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility r8tohdf ADD_EXECUTABLE (r8tohdf ${HDF4_HDF_UTIL_SOURCE_DIR}/r8tohdf.c) TARGET_NAMING (r8tohdf ${LIB_TYPE}) TARGET_C_PROPERTIES (r8tohdf " " " ") TARGET_LINK_LIBRARIES (r8tohdf ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdfcomp ADD_EXECUTABLE (hdfcomp ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfcomp.c) TARGET_NAMING (hdfcomp ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfcomp " " " ") TARGET_LINK_LIBRARIES (hdfcomp ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility jpeg2hdf ADD_EXECUTABLE (jpeg2hdf ${HDF4_HDF_UTIL_SOURCE_DIR}/jpeg2hdf.c) TARGET_NAMING (jpeg2hdf ${LIB_TYPE}) TARGET_C_PROPERTIES (jpeg2hdf " " " ") TARGET_LINK_LIBRARIES (jpeg2hdf ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdf2jpeg ADD_EXECUTABLE (hdf2jpeg ${HDF4_HDF_UTIL_SOURCE_DIR}/hdf2jpeg.c) TARGET_NAMING (hdf2jpeg ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf2jpeg " " " ") TARGET_LINK_LIBRARIES (hdf2jpeg ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdf8to24 ADD_EXECUTABLE (hdf8to24 ${HDF4_HDF_UTIL_SOURCE_DIR}/hdf8to24.c) TARGET_NAMING (hdf8to24 ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf8to24 " " " ") TARGET_LINK_LIBRARIES (hdf8to24 ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility hdfunpac ADD_EXECUTABLE (hdfunpac ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfunpac.c) TARGET_NAMING (hdfunpac ${LIB_TYPE}) TARGET_C_PROPERTIES (hdfunpac " " " ") TARGET_LINK_LIBRARIES (hdfunpac ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility vmake ADD_EXECUTABLE (vmake ${HDF4_HDF_UTIL_SOURCE_DIR}/vmake.c) TARGET_NAMING (vmake ${LIB_TYPE}) TARGET_C_PROPERTIES (vmake " " " ") TARGET_LINK_LIBRARIES (vmake ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) #-- Adding utility vshow ADD_EXECUTABLE (vshow ${HDF4_HDF_UTIL_SOURCE_DIR}/vshow.c) TARGET_NAMING (vshow ${LIB_TYPE}) TARGET_C_PROPERTIES (vshow " " " ") TARGET_LINK_LIBRARIES (vshow ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDIF (HDF4_BUILD_UTILS) IF (BUILD_TESTING AND HDF4_BUILD_UTILS) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING AND HDF4_BUILD_UTILS) ############################################################################## ############################################################################## ### I N S T A L L A T I O N ### ############################################################################## ############################################################################## #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- IF (HDF4_BUILD_TOOLS) INSTALL_PROGRAM_PDB (hdfls ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL_PROGRAM_PDB (hdfed ${HDF4_INSTALL_TOOLS_BIN_DIR} toolsapplications) INSTALL ( TARGETS hdfls hdfed RUNTIME DESTINATION ${HDF4_INSTALL_TOOLS_BIN_DIR} COMPONENT toolsapplications ) ENDIF (HDF4_BUILD_TOOLS) IF (HDF4_BUILD_UTILS) INSTALL_PROGRAM_PDB (gif2hdf ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdf2gif ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdf2jpeg ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdf24to8 ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdf8to24 ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdfcomp ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdfpack ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdftopal ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdftor8 ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (hdfunpac ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (jpeg2hdf ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (paltohdf ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (r8tohdf ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (ristosds ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (vmake ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL_PROGRAM_PDB (vshow ${HDF4_INSTALL_UTILS_BIN_DIR} utilsapplications) INSTALL ( TARGETS gif2hdf hdf2gif hdf2jpeg hdf24to8 hdf8to24 hdfcomp hdfpack hdftopal hdftor8 hdfunpac jpeg2hdf paltohdf r8tohdf ristosds vmake vshow RUNTIME DESTINATION ${HDF4_INSTALL_UTILS_BIN_DIR} COMPONENT utilsapplications ) ENDIF (HDF4_BUILD_UTILS) libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.out1-320000644000000000000000000001025712421456623015036 0ustar ctxtr2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes ctxtr3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 30 bytes Scientific Data : (tag 702) Ref no 2 240 bytes SciData scales : (tag 703) Ref no 2 51 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb64r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb64r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 30 bytes Scientific Data : (tag 702) Ref no 2 240 bytes SciData scales : (tag 703) Ref no 2 51 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes ctxtr2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 400 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Compressed Image : (tag 303) Ref no 2 400 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes cb64r2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Image Dimensions-8 : (tag 200) Ref no 3 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 3 2550 bytes Image Dimensions : (tag 300) Ref no 3 20 bytes Compressed Image : (tag 303) Ref no 3 2550 bytes Raster Image Group : (tag 306) Ref no 3 8 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/README.fp2hdf0000644000000000000000000000113212421456623014651 0ustar This revision of fptohdf, which we are calling fp2hdf, supports native mode floating point (both single and double precision), and 3D floating point data sets. For these additions we owe our thanks to Bob Weaver and colleagues at INEL. You should be able to compile fp2hdf, as well as the two programs for generating test data, by executing "make". Note: you will need to change some of the definitions in the makefile to conform to your system. Except for Makefile, fp2hdf.c, and this README file, all of the files in this directory are for testing fp2hdf and illustrating its use. Mike Folk libhdf4-4.2.10/HDF_ALT/hdf/util/gifread.c0000644000000000000000000003314012421456623014372 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /****************************************************************************\ ** Title: GIFREAD.C ** ** Purpose: Read the information from a GIF file. ** ** Version: 1.0 ** ** Date: March 1992 ** ** Author: James D. Murray, Anaheim, CA USA ** ** C Compilers: Borland C++ v2.0, Microsoft C v6.00a ** ** ** ** This module contains six functions which read various data structures ** ** stored in GIF 87a and 89a-format files. ** ** ** ** This module contains the following functions: ** ** ** ** ReadGifHeader - Read a GIF image file Header ** ** ReadGifImageDesc - Read a GIF Local Image Descriptor ** ** ReadGifGraphicControl - Read a GIF Graphic Control Extension block ** ** ReadGifPlainText - Read a GIF Plain Text Extension block ** ** ReadGifApplication - Read a GIF Application Extension block ** ** ReadGifComment - Read a GIF Comment Extension block ** ** ReadDataSubBlocks - Read one or more GIF data sub-blocks ** ** ** ** Copyright (C) 1991,92 by Graphics Software Labs. All rights reserved. ** \****************************************************************************/ #include #include #include "gif.h" /* External global variables */ /* WORD (*GetWord)(FILE *); ** DWORD (*GetDword)(FILE *); */ int EndianOrder; int i; WORD GetWord (MemGif) BYTE *MemGif; { register WORD w; if (EndianOrder == 1) /* LittleEndian */ { w = (WORD) (*MemGif++ & 0xFF); w |= (WORD) ((*MemGif++ & 0xFF) << 0x08); } else { w = (WORD) (*MemGif++ & 0xFF); w = ((WORD) (*MemGif++ & 0xFF)) | (w << 0x08); } return w; } BYTE GetByte (MemGif) BYTE *MemGif; { return *MemGif; } /* ** Read a GIF image BYTE Header. ** ** This function reads the Header, Logical Screen Descriptor, and ** Global Color Table (if any) from a GIF image file. The information ** is stored in a GIFHEAD structure. ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifHeader(GifHead, MemGif2) GIFHEAD *GifHead; /* Pointer to GIF header structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { register WORD i; /* Loop counter */ WORD tableSize; /* Number of entires in the Global Color Table */ GifHead->TableSize = 0; for (i = 0 ; i < 6 ; i++) { GifHead->HeaderDump[i] = *(*MemGif2)++; } if (strncmp((char *)GifHead->HeaderDump , "GIF" , 3)) { printf("The file does not appear to be a valid GIF file.\n"); exit(-1); } for (i = 0 ; i < 7 ; i++) { GifHead->LSDDump[i] = *(*MemGif2)++; } GifHead->PackedField = GifHead->LSDDump[4]; /* Check if a Global Color Table is present */ if (GifHead->PackedField & 0x80) { /* Read number of color table entries */ tableSize = (WORD) (1L << ((GifHead->PackedField & 0x07) + 1)); GifHead->TableSize = tableSize; /* Read the Global Color Table */ /* ** There are some changes made here apart from just ** reading in the global color table as would ** seem intuitively obvious. ** The colors are stored in the bottom part of the ** palette as opposed to the top */ for (i = 0; i < tableSize; i++) { GifHead->HDFPalette[i][0] = *(*MemGif2)++; GifHead->HDFPalette[i][1] = *(*MemGif2)++; GifHead->HDFPalette[i][2] = *(*MemGif2)++; } } /* Check for a FILE stream error */ /* if (ferror(FpGif)) return(-1); */ return(0); /* No FILE stream error occured */ } /* ** Read a GIF Local Image Descriptor. ** ** This function reads the Local Image Descriptor, and Local Color ** Table (if any) from a GIF image file. The information is stored ** in a GIFIMAGEDESC structure. ** ** Note that the ImageSeparator field value in the GIFIMAGEDESC ** structure is assigned by the function calling ReadGifImageDesc(). ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifImageDesc(GifImageDesc, MemGif2) GIFIMAGEDESC *GifImageDesc; /* Pointer to GIF image descriptor structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { register WORD i; /* Loop counter */ WORD tableSize; /* Number of entries in the Local Color Table */ BYTE Interlace; /* PackedField & 0x20 gives information on interlacing */ BYTE *TempPtr; int ch , ch1; GifImageDesc->TableSize = 0; for (i = 0 ; i < 9 ; i++) { GifImageDesc->GIDDump[i] = *(*MemGif2)++; } /* ** Get the relevant fields. I need ImageWidth and Height actively hence I have ** taken information from those fields. I intend to keep the GifImageDesc data ** structure as it is so that anyone needing the rest of the fields can do so ** quickly. */ if (EndianOrder == 1) /* LittleEndian */ { GifImageDesc->ImageWidth = (WORD) (GifImageDesc->GIDDump[4] & 0xFF); GifImageDesc->ImageWidth |= (WORD) ((GifImageDesc->GIDDump[5] & 0xFF) << 0x08); GifImageDesc->ImageHeight = (WORD) (GifImageDesc->GIDDump[6] & 0xFF); GifImageDesc->ImageHeight |= (WORD) ((GifImageDesc->GIDDump[7] & 0xFF) << 0x08); } else { GifImageDesc->ImageWidth = (WORD) (GifImageDesc->GIDDump[4] & 0xFF); GifImageDesc->ImageWidth = ((WORD) (GifImageDesc->GIDDump[5] & 0xFF)) | (GifImageDesc->ImageWidth << 0x08); GifImageDesc->ImageHeight = (WORD) (GifImageDesc->GIDDump[6] & 0xFF); GifImageDesc->ImageHeight = ((WORD) (GifImageDesc->GIDDump[7] & 0xFF)) | (GifImageDesc->ImageWidth << 0x08); } GifImageDesc->PackedField = GifImageDesc->GIDDump[8]; Interlace = GifImageDesc->PackedField & 0x20; /* Check if a Local Color Table is present */ if (GifImageDesc->PackedField & 0x80) { /* Read number of color table entries */ tableSize = (WORD) (1L << ((GifImageDesc->PackedField & 0x07) + 1)); GifImageDesc->TableSize = tableSize; /* Read the Local Color Table */ for (i = 0; i < tableSize; i++) { GifImageDesc->HDFPalette[i][0] = *(*MemGif2)++; GifImageDesc->HDFPalette[i][1] = *(*MemGif2)++; GifImageDesc->HDFPalette[i][2] = *(*MemGif2)++; } } /* ** Get LZW minimum Code Size */ GifImageDesc->CodeSize = (WORD)*(*MemGif2)++; /*GifImageDesc->GIFImage = ReadDataSubBlocks(FpGif);*/ if (!(GifImageDesc->GIFImage = (BYTE *)malloc((GifImageDesc->ImageWidth) * (GifImageDesc->ImageHeight)))) { printf("Out of memory"); exit(-1); } TempPtr = GifImageDesc->GIFImage; do { ch = ch1 = (int)*(*MemGif2)++; while (ch--) *TempPtr++ = *(*MemGif2)++; } while (ch1); return(0); /* No FILE stream error occured */ } /* ** Read a GIF Graphic Control Extension block. ** ** Note that the Introducer and Label field values in the GIFGRAPHICCONTROL ** structure are assigned by the function calling ReadGifGraphicControl(). ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifGraphicControl(GifGraphicControl, MemGif2) GIFGRAPHICCONTROL *GifGraphicControl; /* Pointer to GC Extension structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { for (i = 0 ; i < 5 ; i++) { GifGraphicControl->GCEDump[i] = *(*MemGif2)++; } return(0); /* No FILE stream error occured */ } /* ** Read a GIF Plain Text Extension block. ** ** Note that the Introducer and Label field values in the GIFLPLAINTEXT ** structure are assigned by the function calling ReadGifPlainText(). ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifPlainText(GifPlainText, MemGif2) GIFPLAINTEXT *GifPlainText; /* Pointer to Plain Text Extension structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { for (i = 0 ; i < 13 ; i++) { GifPlainText->PTEDump[i] = *(*MemGif2)++; } /* Read in the Plain Text data sub-blocks */ if (!(GifPlainText->PlainTextData = ReadDataSubBlocks(MemGif2 , &(GifPlainText->DataSize)))) return(1); /* GifPlainText->Terminator = 0; */ /* Check for a FILE stream error */ /* if (ferror(FpGif)) return(-1); */ return(0); /* No FILE stream error occured */ } /* ** Read a GIF Application Extension block. ** ** Note that the Introducer and Label field values in the GIFAPPLICATION ** structure are assigned by the function calling ReadGifApplication(). ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifApplication(GifApplication, MemGif2) GIFAPPLICATION *GifApplication; /* Pointer to Application Extension structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { for (i = 0 ; i < 12 ; i++) { GifApplication->AEDump[i] = *(*MemGif2)++; } /* Read in the Plain Text data sub-blocks */ if (!(GifApplication->ApplicationData = ReadDataSubBlocks(MemGif2 , &(GifApplication->DataSize)))) return(1); /* GifApplication->Terminator = 0; */ /* Check for a FILE stream error */ /* if (ferror(FpGif)) return(-1); */ return(0); /* No FILE stream error occured */ } /* ** Read a GIF Comment Extension block. ** ** Note that the Introducer and Label field values in the GIFCOMMENT ** structure are assigned by the function calling ReadGifComment(). ** ** Returns: -1 if a FILE stream error occured during the read, ** otherwise 0 if no error occured. */ int ReadGifComment(GifComment, MemGif2) GIFCOMMENT *GifComment; /* Pointer to GIF Comment Extension structure */ BYTE **MemGif2; /* GIF image file input FILE stream */ { /* Read in the Plain Text data sub-blocks */ if (!(GifComment->CommentData = ReadDataSubBlocks(MemGif2 , &(GifComment->DataSize)))) return(1); GifComment->Terminator = 0; return(0); /* No FILE stream error occured */ } /* ** Read one or more GIF data sub-blocks and write the information ** to a buffer. ** ** A GIF "sub-block" is a single count byte followed by 1 to 255 ** additional data bytes. ** ** Returns: A NULL pointer if a memory allocation error occured, ** otherwise a valid pointer if no error occured. */ BYTE * ReadDataSubBlocks(MemGif2 , DSize) BYTE **MemGif2; /* GIF image file input FILE stream */ WORD *DSize; { BYTE *ptr1; /* Pointer used to "walk the heap" */ BYTE *ptr2; /* Pointer used to mark the top of the heap */ BYTE dataSize; /* Size of the current data sub-block being read */ WORD bufSize; /* Total size of the Plain Text data buffer */ int tempcount = 0; bufSize = 0; /* The output buffer is empty */ dataSize = *(*MemGif2)++; /* Get the size of the first sub-block */ /* Allocate initial data buffer */ if (!(ptr1 = ptr2 = (BYTE *) malloc(dataSize + 1))) { printf("Out of memory. Allocation of memory for data sub-blocks for\neither Comment, Plain Text or Application Extensions failed"); return((BYTE *) NULL); } for (;;) { tempcount++; bufSize += (dataSize); /* Running total of the buffer size */ *DSize = bufSize; #ifdef NO *ptr1++ = dataSize; /* Write the data count */ #endif while (dataSize--) /* Read/write the Plain Text data */ *ptr1++ = *(*MemGif2)++; /* Check if there is another data sub-block */ if ((dataSize = *(*MemGif2)++) == 0) break; /* Block Terminator encountered */ /* Increase the buffer size to accomodate the next sub-block */ if (!(ptr1 = ptr2 = (BYTE *) realloc(ptr2, bufSize + dataSize + 1))) return((BYTE *) NULL); ptr1 += bufSize; /* Move pointer to the end of the data */ } #ifdef NO *ptr1++ = (BYTE) NULL; /* Add NULL to simulate Terminator value */ #endif *ptr1++ = '\0'; return(ptr2); /* Return a pointer to the sub-block data */ } libhdf4-4.2.10/HDF_ALT/hdf/util/hdfrseq.c0000644000000000000000000004676112421456623014442 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdfrseq.c 6013 2014-01-10 21:19:02Z acheng $ */ /* hdfrseq * Sequencer for NCSA Hierarchical Data Format files * * Display images on a remote ICR terminal * in sequence, suitable for onscreen animation. Can expand the image size * on the fly. * * This version now supports displaying an image in a window on a Silicon * Graphics Iris 4D workstation. There are bugs in this code (possibly due * to evolving system software combined with old code). * * National Center for Supercomputing Applications * University of Illinois, Urbana-Champaign * * by Tim Krauskopf * first version of seq 7/11/86 * modifications 2/20/87 * re-write 6/21/88 * Iris 4D support 6/24/89 Mike Krogh * Line padding 9/25/89 Chin-Chau Low * In-between versions re-written by Gaige B. Paulsen and Swami Natarajan * ANSI-fication & relegation to remote-only use * 6/9/92 Doug Ilg * * This program is in the public domain * */ #include "hdf.h" /* HDF includes */ #ifdef IRIS4 #include #include #endif #ifndef IRIS4 #define SCRX 1152 #define SCRY 900 #endif #ifdef IRIS4 #define SCRX 1280 #define SCRY 1024 #endif #define LUSAGE printf("\nUsage: %s [-s] [-l] [-e exp] [-p xwhere ywhere] file1 file2 . . .\n",argv[0]) #define RUSAGE printf("\nUsage: %s [-s] [-l] [-e exp] file1 file2 . . .\n",argv[0]) #define USAGE if (remote) { RUSAGE; } else { LUSAGE; } int oldcf = 0, /* old value of compression flag */ oldx = 0, oldy = 0, /* old values of xdim and ydim */ coldx = 0, coldy = 0, /* old values of xdim and ydim for CI8s */ xwhere = 0, ywhere = 0, /* where to put it on the screen */ step = 0, /* single step? */ remote = 0, /* should use ICR for remote display */ large = 0, /* should make images as large as possible */ center = 1, /* should center the images */ startpic = 1, /* for parameter counts */ oldxs = 0, oldys = 0, /* old sizes */ xsize = 0, ysize = 0, /* what final size on screen, after blow-up */ xfact = 1, yfact = 1; /* what factor for blowing up the picture */ int32 xdim = 0, ydim = 0; /* size of image on disk */ #ifdef NEEDPAD int xpad; #endif #ifdef IRIS4 int GID; unsigned short *img = NULL; int WINDOW_OPEN = 0; int16 idev, qvalue; int attached = 1; #endif char rgb[768], /* storage for a palette */ *wherebig = NULL, /* where to store small image */ *wheresmall = NULL; /* where to store image-related stuff */ int main(int, char *a[]); int getspace(void); int getpix(void); int largeset(void); int showpic(char *); int piximage(int); int rimage(int); int bigimg(unsigned char *, unsigned char *); int rleit(char *, char *, int); /*************************************************************************/ /* hdfseq * Load the images from the specified files. * Create the internal storage if needed. * * Search pattern for files: * RIG images in file * RI8 and CI8 images in file */ int main(int argc, char *argv[]) { int i, filearg; /* * Check to see if we are displaying on a local console or on a * remote ICR. This program does double duty. */ i = HDstrlen(argv[0]); if (HDstrncmp("hdfseq", argv[0] + i - 6, 6)) remote = 1; /* * Are there enough parameters? Give user information on calling. */ if (argc < 2) { printf("%s, version: 1.0 date: December 1, 1988\n", argv[0]); if (remote) { printf(" This utility displays sequences of raster-8 images\n"); printf(" from HDF files on a remote device using NCSA's\n"); printf(" Interactive Color Raster protocol.\n\n"); } if (!remote) { #ifdef SUN printf(" This utility displays sequences of raster-8 images\n"); printf(" from HDF files on the Sun console running Sunview.\n"); #endif #ifdef IRIS4 printf(" This utility displays sequences of raster-8 images\n"); printf(" from HDF files on the Iris console running 4Sight.\n"); #endif printf("\n"); } USAGE; puts(" -l make image as large as possible"); puts(" -e expansion expand image by a certain factor"); if (!remote) puts(" -p xloc yloc position on screen"); puts(" -s step through images"); exit(1); } /* * work on parms */ for (i = 1; i < argc; i++) { /* look at each parm */ if (*argv[i] == '-') switch (*(argv[i] + 1)) { case 'p': /* special position on screen */ center = 0; /* don't center */ xwhere = atoi(argv[++i]); ywhere = atoi(argv[++i]); if (xwhere > SCRX || ywhere > SCRY) { puts("\n Invalid position "); USAGE; exit(1); } startpic += 3; break; case 'e': xfact = yfact = atoi(argv[++i]); if (xfact < 1) { xfact = 1; yfact = 1; } startpic += 2; break; case 'l': /* large pic */ large = 1; startpic++; break; case 's': /* step through pics */ step = 1; startpic++; break; default: USAGE; exit(1); } } /* * Process each of the files in the command string. * */ for (filearg = startpic; filearg < argc; filearg++) showpic(argv[filearg]); #ifdef IRIS4 if ((!remote) && (img)) /* make sure we have an image */ while (1) { idev = qread(&qvalue); if (idev == REDRAW) { reshapeviewport(); if (img != NULL) { rectwrite(0, 0, (xdim - 1), (ydim - 1), img); swapbuffers(); } } } #endif exit(0); } /*************************************************************************/ /* getspace * Provide enough space in the space pointers for the operations * to all work. */ int getspace(void) { /* * Don't allocate anything if the image is the same size as before. */ if (oldx != xdim || oldy != ydim) { oldx = xdim; oldy = ydim; if (wheresmall) HDfree(wheresmall); if (NULL == (wheresmall = (char *) HDmalloc(xdim * ydim))) { puts(" Cannot allocate memory, fatal error"); exit(1); } } return (0); } #ifdef IRIS4 /* * Allocate the space for the image if displaying locally */ getpix(void) { /* * Allocation will take place because xsize and ysize will * be set before calling this routine. * */ if (!remote && (oldxs != xsize || oldys != ysize)) { oldxs = xsize; oldys = ysize; if (img) HDfree(img); if ((img = (unsigned short *) HDmalloc(xdim * ydim * sizeof(short))) == NULL) { puts(" Cannot allocate memory, fatal error"); exit(1); } } return (0); } #endif /*************************************************************************/ /* largeset * Set up the xfact, yfact, xsize and ysize for expanding the image * locally. * */ int largeset(void) { if (large) { xfact = SCRX / xdim; /* how much blow-up can we do? */ yfact = SCRY / ydim; /* calculate expansion factor */ if (xfact > yfact) xfact = yfact; else yfact = xfact; } xsize = xfact * xdim; /* re-calculate actual pixel dimensions */ ysize = yfact * ydim; #ifdef NEEDPAD /* add padding for byte boundary */ xpad = BYTEBOUND - xsize % BYTEBOUND; if (xpad == BYTEBOUND) xpad = 0; else xsize += xpad; #ifdef DEBUG printf("xpad %d\n", xpad); #endif /*DEBUG */ return (xfact > 1 || yfact > 1 || xpad > 0); /* is expansion necessary? */ #endif /*NEEDPAD */ #ifndef NEEDPAD /* make sure there is only 1 return stmt */ return (xfact > 1 || yfact > 1); /* is expansion necessary? */ #endif /*NEEDPAD */ } /*************************************************************************/ /* showpic * For each file, search for the components that we can display. * Display them according to the remote flag on or off. * */ int showpic(char *filename) { int ispal, r8_exists; oldx = xdim; oldy = ydim; /* save old values */ if (-1 == Hishdf(filename)) { printf("\'%s\' is not an HDF Format Data File.\n", filename); return (0); } /* * Search for all RIGs in this file. * Process each RIG and display. */ r8_exists = FALSE; while (1) { if (DFR8getdims(filename, &xdim, &ydim, &ispal) < 0) { if (!r8_exists) printf("There are no 8-bit images in the file %s\n", filename); break; /* all RIGs processed */ } r8_exists = TRUE; /* at least one 8-bit image found */ #ifdef DEBUG printf("xdim %d ydim %d\n", xdim, ydim); #endif /*DEBUG */ #ifdef IRIS4 if (!remote) { largeset(); /* set expansion needs */ getspace(); /* get local space for pre-expansion */ getpix(); /* allocate memory */ } #endif if (remote) getspace(); /* get space for image in mem */ /* * Try to successfully load the palette and image from the file */ if (!DFR8getimage(filename, (uint8 *) wheresmall, xdim, ydim, (uint8 *) rgb)) { if (remote) rimage(ispal); /* display remote image with [palette] */ #ifdef IRIS4 else piximage(ispal); /* display image on Iris with [palette] */ #endif } else puts(" Error loading image"); } return (0); } #ifdef IRIS4 /***********************************************************************/ /* piximage * On the Iris console, display the image as the parameters specify. * Handles centering (center) * Uses xwhere and ywhere, xsize and ysize. * Performs expansion if xfact or yfact > 1 * Takes the palette from the rgb[] if asked to. * Will pause if step=1. */ piximage(int usepal) { char *pp; int r, g, b; int j, j1, j2, k; /* * compute centering values, based on new size */ if (center) { xwhere = (SCRX - xsize) / 2; ywhere = (SCRY - ysize) / 2; if (xwhere < 0) xwhere = 0; if (ywhere < 0) ywhere = 0; } if (!WINDOW_OPEN) { WINDOW_OPEN = 1; if (step) { printf("Press to step through images or"); printf(" 'Q' to quit.\n"); } prefposition(xwhere, (xwhere + xsize), ywhere, (ywhere + ysize)); GID = winopen("hdfseq"); /* open the window */ shademodel(FLAT); /* don't worry about shading */ doublebuffer(); multimap(); gconfig(); setmap(4); color(BLACK); clear(); qdevice(REDRAW); if (step) { qdevice(QKEY); qdevice(RETKEY); qdevice(INPUTCHANGE); } } /* * Process window movement events. */ while (qtest()) { idev = qread(&qvalue); if (idev == REDRAW) { reshapeviewport(); if (img != NULL) { rectwrite(0, 0, (xdim - 1), (ydim - 1), img); swapbuffers(); } } if (idev == INPUTCHANGE) attached = qvalue; } /* * Do the image expansion, if called for. */ if (xfact > 1 || yfact > 1) rectzoom((float32) xfact, (float) yfact); /* let the iris scale it */ /* * Set the display palette to the new palette. */ if (usepal) { pp = rgb; for (j = 0; j < 256; j++) { r = (int) (*pp++); g = (int) (*pp++); b = (int) (*pp++); mapcolor(j, r, g, b); /* change the system palette */ } } /* * Convert image data to iris pixel format * flip it upside down and convert to short integers. */ for (j = 0; j < ydim; j++) { j1 = (ydim - j - 1) * xdim; j2 = j * xdim; for (k = 0; k < xdim; k++) *(img + j1 + k) = (short) (*(wheresmall + j2 + k)); } rectwrite(0, 0, (xdim - 1), (ydim - 1), img); swapbuffers(); if (step) { while (1) { idev = qread(&qvalue); if (idev == REDRAW) { reshapeviewport(); if (img != NULL) { rectwrite(0, 0, (xdim - 1), (ydim - 1), img); swapbuffers(); } } if (idev == QKEY) exit(0); if (idev == RETKEY) break; if (idev == INPUTCHANGE) attached = qvalue; } } } #endif /*****************************************************************************/ /* rimage * Remote display of the image using the ICR. * Just print the codes to stdout using the protocol. */ int rimage(int usepal) { int i, j, newxsize; char *space, *thisline, *thischar; unsigned char c; /* * Open the window with the W command */ (void) printf("\033^W;%d;%d;%ld;%ld;0;rseq^", xwhere, ywhere, (long) (xdim * xfact), (long) (ydim * yfact)); /* * If a palette should be used, send it with the M command. */ if (usepal) { (void) printf("\033^M;0;256;768;rseq^"); /* start map */ thischar = rgb; for (j = 0; j < 768; j++) { c = *thischar++; if (c > 31 && c < 123) { putchar(c); } else { putchar((c >> 6) + 123); putchar((c & 0x3f) + 32); } } } /* * Send the data for the image with RLE encoding for efficiency. * Encode each line and send it. */ space = (char *) HDmalloc(ydim + 100); thisline = wheresmall; for (i = 0; i < ydim; i++) { newxsize = rleit(thisline, space, xdim); thisline += xdim; /* increment to next line */ (void) printf("\033^R;0;%d;%d;%d;rseq^", i * xfact, xfact, newxsize); thischar = space; for (j = 0; j < newxsize; j++) { /***********************************************************************/ /* Encoding of bytes: * * 123 precedes #'s 0-63 * 124 precedes #'s 64-127 * 125 precedes #'s 128-191 * 126 precedes #'s 192-255 * overall: realchar = (specialchar - 123)*64 + (char-32) * specialchar = r div 64 + 123 * char = r mod 64 + 32 */ /***********************************************************************/ c = *thischar++; /* get byte to send */ if (c > 31 && c < 123) { putchar(c); } else { putchar((c >> 6) + 123); putchar((c & 0x3f) + 32); } } } /* * pause for the user */ if (step) { printf("Press return to continue, 'q' return to quit"); if ('q' == getchar()) exit(0); } HDfree(space); return (0); } /********************************************************************/ /* rleit * compress the data to go out with a simple run-length encoded scheme. * */ int rleit(char *buf, char *bufto, int len) { char *p, *q, *cfoll, *clead; char *begp; int i; p = buf; cfoll = bufto; /* place to copy to */ clead = cfoll + 1; begp = p; while (len > 0) { /* encode stuff until gone */ q = p + 1; i = len - 1; while (*p == *q && i + 120 > len && i) { q++; i--; } if (q > p + 2) { /* three in a row */ if (p > begp) { *cfoll = p - begp; cfoll = clead; } *cfoll++ = 128 | (q - p); /* len of seq */ *cfoll++ = *p; /* char of seq */ len -= q - p; /* subtract len of seq */ p = q; clead = cfoll + 1; begp = p; } else { *clead++ = *p++; /* copy one char */ len--; if (p > begp + 120) { *cfoll = p - begp; cfoll = clead++; begp = p; } } } /* * fill in last bytecount */ if (p > begp) *cfoll = (p - begp); else clead--; /* don't need count position */ return ((int) (clead - bufto)); /* how many stored as encoded */ } libhdf4-4.2.10/HDF_ALT/hdf/util/gif.h0000644000000000000000000001220612421456623013543 0ustar /****************************************************************************\ ** Title: GIF.H ** ** Purpose: GIF Header file ** ** Version: 1.0 ** ** Date: March 1992 ** ** Author: James D. Murray, Anaheim, CA, USA ** ** C Compilers: Borland C++ v2.0, Microsoft C v6.00a ** ** ** ** This file contains the header structures for the GIF image ** ** file format. ** ** ** ** ** ** Copyright (C) 1991 by Graphics Software Labs. All rights reserved. ** \****************************************************************************/ #include "hdf.h" #ifndef GIF_H #define GIF_H 1 #define MAX_PAL 768 /*#include "datatype.h" Data type definitions */ typedef uint8 BYTE; typedef uint16 WORD; typedef char CHAR; typedef uint8 boolean; #define false 0; #define true 1; /* Set the EndianOrder. ** The GIF Reader file should do this. ** Set EndianOrder = 0 if machine is little endian ** EndianOrder = 1 if machine is big endian. */ extern int EndianOrder; /* ** The GIF header format. ** ** This structure actually contains the header, logical screen ** descriptor, and the global color table for the GIF image. */ typedef struct _GifHeader /* Offset Description */ { BYTE PackedField; /* 0Ah Color Information */ WORD TableSize; BYTE ImageCount; /* Keep a count of the number of images */ BYTE CommentCount; BYTE ApplicationCount; BYTE PlainTextCount; BYTE HDFPalette[256][3]; BYTE HeaderDump[6]; /* BYTE array to dump header contents */ BYTE LSDDump[7]; /* Logical Screen Descriptor dump */ } GIFHEAD; /* ** The GIF Image Descriptor. */ typedef struct _GifImageDescriptor { WORD ImageWidth; /* Width of the image in pixels */ WORD ImageHeight; /* Height of the image in pixels */ BYTE PackedField; /* Image and Color Table Data Information */ WORD TableSize; WORD CodeSize; /* Minimum LZW CodeSize for image data */ BYTE HDFPalette[256][3]; BYTE GIDDump[9]; /* GifImageDescriptor dump */ BYTE *Image; /* Decompressed Raster Image */ BYTE *GIFImage; } GIFIMAGEDESC; /* ** GIF 89a Graphic Control Extension Block */ typedef struct _GifGraphicControlExtension { BYTE GCEDump[5]; /* Graphic Control Extension Dump */ } GIFGRAPHICCONTROL; /* ** GIF 89a Plain Text Extension Block */ typedef struct _GifPlainTextExtension { BYTE PTEDump[15]; /* Plain Text Extension Dump */ BYTE *PlainTextData; /* Plain Text data sub-blocks */ WORD DataSize; } GIFPLAINTEXT; /* ** GIF 89a Application Extension Block */ typedef struct _GifApplicationExtension { BYTE AEDump[14]; /* Application Extension Dump */ BYTE *ApplicationData; /* Application data sub-blocks */ WORD DataSize; } GIFAPPLICATION; /* ** GIF 89a Comment Extension Block */ typedef struct _GifCommentExtension { BYTE CEDump[2]; /* Comment Extension Dump */ BYTE *CommentData; /* Comment data sub-blocks */ WORD DataSize; BYTE Terminator; /* Block Terminator (always 0) */ } GIFCOMMENT; /* ** GIF to HDF Memory Struct ** Purpose : The gif to hdf structure is used to pass all the ** gif data to the memory, which gets caught by the hdf driver ** Its the drivers job to put the data in the appropriate places ** in the HDF file. ** I have assumed that the ImageDescriptors and GraphicControls follow ** one another, ie. I have not associated them with each other. The driver ** must assume a 1-1 correspondance. The same discussion with plain text ** extension. */ typedef struct _GifToMem { GIFHEAD *GifHeader; GIFIMAGEDESC **GifImageDesc; GIFGRAPHICCONTROL **GifGraphicControlExtension; GIFPLAINTEXT **GifPlainTextExtension; GIFAPPLICATION **GifApplicationExtension; GIFCOMMENT **GifCommentExtension; } GIFTOMEM; /* ** Function Prototypes */ /* GIF2MEM.C */ GIFTOMEM Gif2Mem(BYTE *); /* GIFREAD.C */ int ReadGifHeader(GIFHEAD *, BYTE **); int ReadGifImageDesc(GIFIMAGEDESC *, BYTE **); int ReadGifGraphicControl(GIFGRAPHICCONTROL *, BYTE **); int ReadGifPlainText(GIFPLAINTEXT *, BYTE **); int ReadGifApplication(GIFAPPLICATION *, BYTE **); int ReadGifComment(GIFCOMMENT *, BYTE **); /* WRITEHDF.C */ int WriteHDF(GIFTOMEM , CHAR * , CHAR *); BYTE *ReadDataSubBlocks(BYTE ** , WORD *); BYTE *Decompress (GIFIMAGEDESC * , GIFHEAD *); BYTE GetByte(BYTE *); WORD GetWord(BYTE *); #endif /* GIF_H */ libhdf4-4.2.10/HDF_ALT/hdf/util/Makefile.in0000644000000000000000000012354012421456623014676 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/h4cc.in $(srcdir)/h4fc.in $(srcdir)/h4redeploy.in \ $(srcdir)/testutil.sh.in $(top_srcdir)/bin/depcomp \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am bin_PROGRAMS = gif2hdf$(EXEEXT) hdf2gif$(EXEEXT) hdf2jpeg$(EXEEXT) \ hdf24to8$(EXEEXT) hdf8to24$(EXEEXT) hdfcomp$(EXEEXT) \ hdfed$(EXEEXT) hdfls$(EXEEXT) hdfpack$(EXEEXT) \ hdftopal$(EXEEXT) hdftor8$(EXEEXT) hdfunpac$(EXEEXT) \ jpeg2hdf$(EXEEXT) paltohdf$(EXEEXT) r8tohdf$(EXEEXT) \ ristosds$(EXEEXT) vmake$(EXEEXT) vshow$(EXEEXT) TESTS = $(TEST_SCRIPT) subdir = hdf/util ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = h4cc h4fc h4redeploy testutil.sh CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) am_gif2hdf_OBJECTS = gif2hdf.$(OBJEXT) gif2mem.$(OBJEXT) \ gifread.$(OBJEXT) decompress.$(OBJEXT) writehdf.$(OBJEXT) gif2hdf_OBJECTS = $(am_gif2hdf_OBJECTS) gif2hdf_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(gif2hdf_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdf24to8_OBJECTS = hdf24to8.$(OBJEXT) hdf24to8_OBJECTS = $(am_hdf24to8_OBJECTS) hdf24to8_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdf24to8_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdf2gif_OBJECTS = hdf2gif.$(OBJEXT) hdfgifwr.$(OBJEXT) hdf2gif_OBJECTS = $(am_hdf2gif_OBJECTS) hdf2gif_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdf2gif_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdf2jpeg_OBJECTS = hdf2jpeg.$(OBJEXT) hdf2jpeg_OBJECTS = $(am_hdf2jpeg_OBJECTS) hdf2jpeg_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdf2jpeg_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdf8to24_OBJECTS = hdf8to24.$(OBJEXT) hdf8to24_OBJECTS = $(am_hdf8to24_OBJECTS) hdf8to24_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdf8to24_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdfcomp_OBJECTS = hdfcomp.$(OBJEXT) hdfcomp_OBJECTS = $(am_hdfcomp_OBJECTS) hdfcomp_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdfcomp_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdfed_OBJECTS = he_cntrl.$(OBJEXT) he_disp.$(OBJEXT) \ he_file.$(OBJEXT) he_main.$(OBJEXT) hdfed_OBJECTS = $(am_hdfed_OBJECTS) hdfed_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdfed_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdfls_OBJECTS = hdfls.$(OBJEXT) hdfls_OBJECTS = $(am_hdfls_OBJECTS) hdfls_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdfls_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdfpack_OBJECTS = hdfpack.$(OBJEXT) hdfpack_OBJECTS = $(am_hdfpack_OBJECTS) hdfpack_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdfpack_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdftopal_OBJECTS = hdftopal.$(OBJEXT) hdftopal_OBJECTS = $(am_hdftopal_OBJECTS) hdftopal_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdftopal_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdftor8_OBJECTS = hdftor8.$(OBJEXT) hdftor8_OBJECTS = $(am_hdftor8_OBJECTS) hdftor8_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdftor8_LDFLAGS) \ $(LDFLAGS) -o $@ am_hdfunpac_OBJECTS = hdfunpac.$(OBJEXT) hdfunpac_OBJECTS = $(am_hdfunpac_OBJECTS) hdfunpac_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(hdfunpac_LDFLAGS) \ $(LDFLAGS) -o $@ am_jpeg2hdf_OBJECTS = jpeg2hdf.$(OBJEXT) jpeg2hdf_OBJECTS = $(am_jpeg2hdf_OBJECTS) jpeg2hdf_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(jpeg2hdf_LDFLAGS) \ $(LDFLAGS) -o $@ am_paltohdf_OBJECTS = paltohdf.$(OBJEXT) paltohdf_OBJECTS = $(am_paltohdf_OBJECTS) paltohdf_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(paltohdf_LDFLAGS) \ $(LDFLAGS) -o $@ am_r8tohdf_OBJECTS = r8tohdf.$(OBJEXT) r8tohdf_OBJECTS = $(am_r8tohdf_OBJECTS) r8tohdf_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(r8tohdf_LDFLAGS) \ $(LDFLAGS) -o $@ am_ristosds_OBJECTS = ristosds.$(OBJEXT) ristosds_OBJECTS = $(am_ristosds_OBJECTS) ristosds_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(ristosds_LDFLAGS) \ $(LDFLAGS) -o $@ am_vmake_OBJECTS = vmake.$(OBJEXT) vmake_OBJECTS = $(am_vmake_OBJECTS) vmake_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(vmake_LDFLAGS) \ $(LDFLAGS) -o $@ am_vshow_OBJECTS = vshow.$(OBJEXT) vshow_OBJECTS = $(am_vshow_OBJECTS) vshow_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(vshow_LDFLAGS) \ $(LDFLAGS) -o $@ 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; }; \ } SCRIPTS = $(bin_SCRIPTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/hdf/src depcomp = $(SHELL) $(top_srcdir)/bin/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(gif2hdf_SOURCES) $(hdf24to8_SOURCES) $(hdf2gif_SOURCES) \ $(hdf2jpeg_SOURCES) $(hdf8to24_SOURCES) $(hdfcomp_SOURCES) \ $(hdfed_SOURCES) $(hdfls_SOURCES) $(hdfpack_SOURCES) \ $(hdftopal_SOURCES) $(hdftor8_SOURCES) $(hdfunpac_SOURCES) \ $(jpeg2hdf_SOURCES) $(paltohdf_SOURCES) $(r8tohdf_SOURCES) \ $(ristosds_SOURCES) $(vmake_SOURCES) $(vshow_SOURCES) DIST_SOURCES = $(gif2hdf_SOURCES) $(hdf24to8_SOURCES) \ $(hdf2gif_SOURCES) $(hdf2jpeg_SOURCES) $(hdf8to24_SOURCES) \ $(hdfcomp_SOURCES) $(hdfed_SOURCES) $(hdfls_SOURCES) \ $(hdfpack_SOURCES) $(hdftopal_SOURCES) $(hdftor8_SOURCES) \ $(hdfunpac_SOURCES) $(jpeg2hdf_SOURCES) $(paltohdf_SOURCES) \ $(r8tohdf_SOURCES) $(ristosds_SOURCES) $(vmake_SOURCES) \ $(vshow_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. ############################################################################# ############################################################################# CHECK_CLEANFILES = *.chkexe *.chklog gif_hdf_temp/bttrfly.hdf \ gif_hdf_temp/skull.gif gif_hdf_temp/SunWheel.hdf AM_CPPFLAGS = -I$(top_srcdir)/hdf/src @HDF_BUILD_FORTRAN_FALSE@bin_SCRIPTS = h4redeploy h4cc @HDF_BUILD_FORTRAN_TRUE@bin_SCRIPTS = h4redeploy h4cc h4fc gif2hdf_SOURCES = gif2hdf.c gif2mem.c gifread.c decompress.c writehdf.c gif2hdf_LDADD = $(LIBHDF) gif2hdf_DEPENDENCIES = $(LIBHDF) gif2hdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf2gif_SOURCES = hdf2gif.c hdfgifwr.c hdf2gif_LDADD = $(LIBHDF) hdf2gif_DEPENDENCIES = $(LIBHDF) hdf2gif_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf2jpeg_SOURCES = hdf2jpeg.c hdf2jpeg_LDADD = $(LIBHDF) hdf2jpeg_DEPENDENCIES = $(LIBHDF) hdf2jpeg_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf24to8_SOURCES = hdf24to8.c hdf24to8_LDADD = $(LIBHDF) hdf24to8_DEPENDENCIES = $(LIBHDF) hdf24to8_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf8to24_SOURCES = hdf8to24.c hdf8to24_LDADD = $(LIBHDF) hdf8to24_DEPENDENCIES = $(LIBHDF) hdf8to24_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfcomp_SOURCES = hdfcomp.c hdfcomp_LDADD = $(LIBHDF) hdfcomp_DEPENDENCIES = $(LIBHDF) hdfcomp_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfed_SOURCES = he_cntrl.c he_disp.c he_file.c he_main.c hdfed_LDADD = $(LIBHDF) hdfed_DEPENDENCIES = $(LIBHDF) hdfed_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfls_SOURCES = hdfls.c hdfls_LDADD = $(LIBHDF) hdfls_DEPENDENCIES = $(LIBHDF) hdfls_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfpack_SOURCES = hdfpack.c hdfpack_LDADD = $(LIBHDF) hdfpack_DEPENDENCIES = $(LIBHDF) hdfpack_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdftopal_SOURCES = hdftopal.c hdftopal_LDADD = $(LIBHDF) hdftopal_DEPENDENCIES = $(LIBHDF) hdftopal_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdftor8_SOURCES = hdftor8.c hdftor8_LDADD = $(LIBHDF) hdftor8_DEPENDENCIES = $(LIBHDF) hdftor8_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfunpac_SOURCES = hdfunpac.c hdfunpac_LDADD = $(LIBHDF) hdfunpac_DEPENDENCIES = $(LIBHDF) hdfunpac_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) jpeg2hdf_SOURCES = jpeg2hdf.c jpeg2hdf_LDADD = $(LIBHDF) jpeg2hdf_DEPENDENCIES = $(LIBHDF) jpeg2hdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) paltohdf_SOURCES = paltohdf.c paltohdf_LDADD = $(LIBHDF) paltohdf_DEPENDENCIES = $(LIBHDF) paltohdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) r8tohdf_SOURCES = r8tohdf.c r8tohdf_LDADD = $(LIBHDF) r8tohdf_DEPENDENCIES = $(LIBHDF) r8tohdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ristosds_SOURCES = ristosds.c ristosds_LDADD = $(LIBHDF) ristosds_DEPENDENCIES = $(LIBHDF) ristosds_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) vmake_SOURCES = vmake.c vmake_LDADD = $(LIBHDF) vmake_DEPENDENCIES = $(LIBHDF) vmake_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) vshow_SOURCES = vshow.c vshow_LDADD = ../src/libdf.la vshow_DEPENDENCIES = ../src/libdf.la vshow_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ############################################################################# TEST_SCRIPT = testutil.sh check_SCRIPTS = testutil.sh check_PROGRAMS = $(bin_PROGRAMS) DISTCLEANFILES = # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.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 hdf/util/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/util/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/conclude.am: $(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): h4cc: $(top_builddir)/config.status $(srcdir)/h4cc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ h4fc: $(top_builddir)/config.status $(srcdir)/h4fc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ h4redeploy: $(top_builddir)/config.status $(srcdir)/h4redeploy.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ testutil.sh: $(top_builddir)/config.status $(srcdir)/testutil.sh.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ 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 gif2hdf$(EXEEXT): $(gif2hdf_OBJECTS) $(gif2hdf_DEPENDENCIES) $(EXTRA_gif2hdf_DEPENDENCIES) @rm -f gif2hdf$(EXEEXT) $(gif2hdf_LINK) $(gif2hdf_OBJECTS) $(gif2hdf_LDADD) $(LIBS) hdf24to8$(EXEEXT): $(hdf24to8_OBJECTS) $(hdf24to8_DEPENDENCIES) $(EXTRA_hdf24to8_DEPENDENCIES) @rm -f hdf24to8$(EXEEXT) $(hdf24to8_LINK) $(hdf24to8_OBJECTS) $(hdf24to8_LDADD) $(LIBS) hdf2gif$(EXEEXT): $(hdf2gif_OBJECTS) $(hdf2gif_DEPENDENCIES) $(EXTRA_hdf2gif_DEPENDENCIES) @rm -f hdf2gif$(EXEEXT) $(hdf2gif_LINK) $(hdf2gif_OBJECTS) $(hdf2gif_LDADD) $(LIBS) hdf2jpeg$(EXEEXT): $(hdf2jpeg_OBJECTS) $(hdf2jpeg_DEPENDENCIES) $(EXTRA_hdf2jpeg_DEPENDENCIES) @rm -f hdf2jpeg$(EXEEXT) $(hdf2jpeg_LINK) $(hdf2jpeg_OBJECTS) $(hdf2jpeg_LDADD) $(LIBS) hdf8to24$(EXEEXT): $(hdf8to24_OBJECTS) $(hdf8to24_DEPENDENCIES) $(EXTRA_hdf8to24_DEPENDENCIES) @rm -f hdf8to24$(EXEEXT) $(hdf8to24_LINK) $(hdf8to24_OBJECTS) $(hdf8to24_LDADD) $(LIBS) hdfcomp$(EXEEXT): $(hdfcomp_OBJECTS) $(hdfcomp_DEPENDENCIES) $(EXTRA_hdfcomp_DEPENDENCIES) @rm -f hdfcomp$(EXEEXT) $(hdfcomp_LINK) $(hdfcomp_OBJECTS) $(hdfcomp_LDADD) $(LIBS) hdfed$(EXEEXT): $(hdfed_OBJECTS) $(hdfed_DEPENDENCIES) $(EXTRA_hdfed_DEPENDENCIES) @rm -f hdfed$(EXEEXT) $(hdfed_LINK) $(hdfed_OBJECTS) $(hdfed_LDADD) $(LIBS) hdfls$(EXEEXT): $(hdfls_OBJECTS) $(hdfls_DEPENDENCIES) $(EXTRA_hdfls_DEPENDENCIES) @rm -f hdfls$(EXEEXT) $(hdfls_LINK) $(hdfls_OBJECTS) $(hdfls_LDADD) $(LIBS) hdfpack$(EXEEXT): $(hdfpack_OBJECTS) $(hdfpack_DEPENDENCIES) $(EXTRA_hdfpack_DEPENDENCIES) @rm -f hdfpack$(EXEEXT) $(hdfpack_LINK) $(hdfpack_OBJECTS) $(hdfpack_LDADD) $(LIBS) hdftopal$(EXEEXT): $(hdftopal_OBJECTS) $(hdftopal_DEPENDENCIES) $(EXTRA_hdftopal_DEPENDENCIES) @rm -f hdftopal$(EXEEXT) $(hdftopal_LINK) $(hdftopal_OBJECTS) $(hdftopal_LDADD) $(LIBS) hdftor8$(EXEEXT): $(hdftor8_OBJECTS) $(hdftor8_DEPENDENCIES) $(EXTRA_hdftor8_DEPENDENCIES) @rm -f hdftor8$(EXEEXT) $(hdftor8_LINK) $(hdftor8_OBJECTS) $(hdftor8_LDADD) $(LIBS) hdfunpac$(EXEEXT): $(hdfunpac_OBJECTS) $(hdfunpac_DEPENDENCIES) $(EXTRA_hdfunpac_DEPENDENCIES) @rm -f hdfunpac$(EXEEXT) $(hdfunpac_LINK) $(hdfunpac_OBJECTS) $(hdfunpac_LDADD) $(LIBS) jpeg2hdf$(EXEEXT): $(jpeg2hdf_OBJECTS) $(jpeg2hdf_DEPENDENCIES) $(EXTRA_jpeg2hdf_DEPENDENCIES) @rm -f jpeg2hdf$(EXEEXT) $(jpeg2hdf_LINK) $(jpeg2hdf_OBJECTS) $(jpeg2hdf_LDADD) $(LIBS) paltohdf$(EXEEXT): $(paltohdf_OBJECTS) $(paltohdf_DEPENDENCIES) $(EXTRA_paltohdf_DEPENDENCIES) @rm -f paltohdf$(EXEEXT) $(paltohdf_LINK) $(paltohdf_OBJECTS) $(paltohdf_LDADD) $(LIBS) r8tohdf$(EXEEXT): $(r8tohdf_OBJECTS) $(r8tohdf_DEPENDENCIES) $(EXTRA_r8tohdf_DEPENDENCIES) @rm -f r8tohdf$(EXEEXT) $(r8tohdf_LINK) $(r8tohdf_OBJECTS) $(r8tohdf_LDADD) $(LIBS) ristosds$(EXEEXT): $(ristosds_OBJECTS) $(ristosds_DEPENDENCIES) $(EXTRA_ristosds_DEPENDENCIES) @rm -f ristosds$(EXEEXT) $(ristosds_LINK) $(ristosds_OBJECTS) $(ristosds_LDADD) $(LIBS) vmake$(EXEEXT): $(vmake_OBJECTS) $(vmake_DEPENDENCIES) $(EXTRA_vmake_DEPENDENCIES) @rm -f vmake$(EXEEXT) $(vmake_LINK) $(vmake_OBJECTS) $(vmake_LDADD) $(LIBS) vshow$(EXEEXT): $(vshow_OBJECTS) $(vshow_DEPENDENCIES) $(EXTRA_vshow_DEPENDENCIES) @rm -f vshow$(EXEEXT) $(vshow_LINK) $(vshow_OBJECTS) $(vshow_LDADD) $(LIBS) install-binSCRIPTS: $(bin_SCRIPTS) @$(NORMAL_INSTALL) @list='$(bin_SCRIPTS)'; 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 \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n' \ -e 'h;s|.*|.|' \ -e 'p;x;s,.*/,,;$(transform)' | 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; \ if (++n[d] == $(am__install_max)) { \ print "f", d, files[d]; n[d] = 0; files[d] = "" } } \ else { print "f", d "/" $$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_SCRIPT) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_SCRIPT) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binSCRIPTS: @$(NORMAL_UNINSTALL) @list='$(bin_SCRIPTS)'; test -n "$(bindir)" || exit 0; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 's,.*/,,;$(transform)'`; \ dir='$(DESTDIR)$(bindir)'; $(am__uninstall_files_from_dir) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/decompress.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gif2hdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gif2mem.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gifread.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdf24to8.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdf2gif.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdf2jpeg.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdf8to24.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfcomp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfgifwr.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfls.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfpack.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdftopal.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdftor8.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdfunpac.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/he_cntrl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/he_disp.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/he_file.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/he_main.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/jpeg2hdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/paltohdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/r8tohdf.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ristosds.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vmake.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vshow.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/writehdf.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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 CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ 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: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) $(check_PROGRAMS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(PROGRAMS) $(SCRIPTS) all-local installdirs: for dir in "$(DESTDIR)$(bindir)" "$(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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-local distclean-tags dvi: dvi-am dvi-am: 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-binSCRIPTS 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 -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS uninstall-binSCRIPTS .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \ clean clean-binPROGRAMS clean-checkPROGRAMS clean-generic \ clean-libtool cscopelist ctags distclean distclean-compile \ distclean-generic distclean-libtool distclean-local \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-binPROGRAMS install-binSCRIPTS \ 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 mostlyclean-local pdf \ pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS uninstall-binSCRIPTS # Automake's distclean won't remove directories, so we can add an additional # hook target which will do so during 'make distclean'. distclean-local: -rm -rf gif_hdf_temp # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/hdf/util/getopt.c0000644000000000000000000005221612421456623014300 0ustar /* Getopt for GNU. NOTE: getopt is now part of the C library, so if you don't know what "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu before changing it! Copyright (C) 1987, 88, 89, 90, 91, 92, 1993 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, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #if defined (emacs) || defined (CONFIG_BROKETS) /* We use instead of "config.h" so that a compilation using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h (which it would do because it found this file in $srcdir). */ #include #else #include "config.h" #endif #endif #ifndef __STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif /* This tells Alpha OSF/1 not to define a getopt prototype in . */ #ifndef _NO_PROTO #define _NO_PROTO #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #if defined (_LIBC) || !defined (__GNU_LIBRARY__) /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ /* Don't include stdlib.h for non-GNU C libraries because some of them contain conflicting prototypes for getopt. */ #include #endif /* GNU C library. */ /* If GETOPT_COMPAT is defined, `+' as well as `--' can introduce a long-named option. Because this is not POSIX.2 compliant, it is being phased out. */ /* #define GETOPT_COMPAT */ /* This version of `getopt' appears to the caller like standard Unix `getopt' but it behaves differently for the user, since it allows the user to intersperse the options with the other arguments. As `getopt' works, it permutes the elements of ARGV so that, when it is done, all the options precede everything else. Thus all application programs are extended to handle flexible argument order. Setting the environment variable POSIXLY_CORRECT disables permutation. Then the behavior is completely standard. GNU application programs can use a third alternative mode in which they can distinguish the relative order of options and other arguments. */ #include "getopt.h" /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ char *optarg = 0; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns EOF, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ /* XXX 1003.2 says this must be 1 before any call. */ int optind = 0; /* The next char to be scanned in the option-element in which the last option character we returned was found. This allows us to pick up the scan where we left off. If this is zero, or a null string, it means resume the scan by advancing to the next ARGV-element. */ static char *nextchar; /* Callers store zero here to inhibit the error message for unrecognized options. */ int opterr = 1; /* Set to an option character which was unrecognized. This must be initialized on some systems to avoid linking in the system's own getopt implementation. */ int optopt = '?'; /* Describe how to deal with options that follow non-option ARGV-elements. If the caller did not specify anything, the default is REQUIRE_ORDER if the environment variable POSIXLY_CORRECT is defined, PERMUTE otherwise. REQUIRE_ORDER means don't recognize them as options; stop option processing when the first non-option is seen. This is what Unix does. This mode of operation is selected by either setting the environment variable POSIXLY_CORRECT, or using `+' as the first character of the list of option characters. PERMUTE is the default. We permute the contents of ARGV as we scan, so that eventually all the non-options are at the end. This allows options to be given in any order, even with programs that were not written to expect this. RETURN_IN_ORDER is an option available to programs that were written to expect options and other ARGV-elements in any order and that care about the ordering of the two. We describe each non-option ARGV-element as if it were the argument of an option with character code 1. Using `-' as the first character of the list of option characters selects this mode of operation. The special argument `--' forces an end of option-scanning regardless of the value of `ordering'. In the case of RETURN_IN_ORDER, only `--' can cause `getopt' to return EOF with `optind' != ARGC. */ static enum { REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER } ordering; #ifdef __GNU_LIBRARY__ /* We want to avoid inclusion of string.h with non-GNU libraries because there are many ways it can cause trouble. On some systems, it contains special magic macros that don't work in GCC. */ #include #define my_index strchr #else /* Avoid depending on library functions or files whose names are inconsistent. */ char *getenv (); static char * my_index (str, chr) const char *str; int chr; { while (*str) { if (*str == chr) return (char *) str; str++; } return 0; } /* If using GCC, we can safely declare strlen this way. If not using GCC, it is ok not to declare it. (Supposedly there are some machines where it might get a warning, but changing this conditional to __STDC__ is too risky.) */ #ifdef __GNUC__ #ifdef IN_GCC #include "gstddef.h" #else #include #endif extern size_t strlen (const char *); #endif #endif /* GNU C library. */ /* Handle permutation of arguments. */ /* Describe the part of ARGV that contains non-options that have been skipped. `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is the index after the last of them. */ static int first_nonopt; static int last_nonopt; /* Exchange two adjacent subsequences of ARGV. One subsequence is elements [first_nonopt,last_nonopt) which contains all the non-options that have been skipped so far. The other is elements [last_nonopt,optind), which contains all the options processed since those non-options were skipped. `first_nonopt' and `last_nonopt' are relocated so that they describe the new indices of the non-options in ARGV after they are moved. */ static void exchange (argv) char **argv; { int bottom = first_nonopt; int middle = last_nonopt; int top = optind; char *tem; /* Exchange the shorter segment with the far end of the longer segment. That puts the shorter segment into the right place. It leaves the longer segment in the right place overall, but it consists of two parts that need to be swapped next. */ while (top > middle && middle > bottom) { if (top - middle > middle - bottom) { /* Bottom segment is the short one. */ int len = middle - bottom; register int i; /* Swap it with the top part of the top segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[top - (middle - bottom) + i]; argv[top - (middle - bottom) + i] = tem; } /* Exclude the moved bottom segment from further swapping. */ top -= len; } else { /* Top segment is the short one. */ int len = top - middle; register int i; /* Swap it with the bottom part of the bottom segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[middle + i]; argv[middle + i] = tem; } /* Exclude the moved top segment from further swapping. */ bottom += len; } } /* Update records for the slots the non-options now occupy. */ first_nonopt += (optind - last_nonopt); last_nonopt = optind; } /* Scan elements of ARGV (whose length is ARGC) for option characters given in OPTSTRING. If an element of ARGV starts with '-', and is not exactly "-" or "--", then it is an option element. The characters of this element (aside from the initial '-') are option characters. If `getopt' is called repeatedly, it returns successively each of the option characters from each of the option elements. If `getopt' finds another option character, it returns that character, updating `optind' and `nextchar' so that the next call to `getopt' can resume the scan with the following option character or ARGV-element. If there are no more option characters, `getopt' returns `EOF'. Then `optind' is the index in ARGV of the first ARGV-element that is not an option. (The ARGV-elements have been permuted so that those that are not options now come last.) OPTSTRING is a string containing the legitimate option characters. If an option character is seen that is not listed in OPTSTRING, return '?' after printing an error message. If you set `opterr' to zero, the error message is suppressed but we still return '?'. If a char in OPTSTRING is followed by a colon, that means it wants an arg, so the following text in the same ARGV-element, or the text of the following ARGV-element, is returned in `optarg'. Two colons mean an option that wants an optional arg; if there is text in the current ARGV-element, it is returned in `optarg', otherwise `optarg' is set to zero. If OPTSTRING starts with `-' or `+', it requests different methods of handling the non-option ARGV-elements. See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above. Long-named options begin with `--' instead of `-'. Their names may be abbreviated as long as the abbreviation is unique or is an exact match for some defined option. If they have an argument, it follows the option name in the same ARGV-element, separated from the option name by a `=', or else the in next ARGV-element. When `getopt' finds a long-named option, it returns 0 if that option's `flag' field is nonzero, the value of the option's `val' field if the `flag' field is zero. The elements of ARGV aren't really const, because we permute them. But we pretend they're const in the prototype to be compatible with other systems. LONGOPTS is a vector of `struct option' terminated by an element containing a name which is zero. LONGIND returns the index in LONGOPT of the long-named option found. It is only valid when a long-named option has been found by the most recent call. If LONG_ONLY is nonzero, '-' as well as '--' can introduce long-named options. */ int _getopt_internal (argc, argv, optstring, longopts, longind, long_only) int argc; char *const *argv; const char *optstring; const struct option *longopts; int *longind; int long_only; { int option_index; optarg = 0; /* Initialize the internal data when the first call is made. Start processing options with ARGV-element 1 (since ARGV-element 0 is the program name); the sequence of previously skipped non-option ARGV-elements is empty. */ if (optind == 0) { first_nonopt = last_nonopt = optind = 1; nextchar = NULL; /* Determine how to handle the ordering of options and nonoptions. */ if (optstring[0] == '-') { ordering = RETURN_IN_ORDER; ++optstring; } else if (optstring[0] == '+') { ordering = REQUIRE_ORDER; ++optstring; } else if (getenv ("POSIXLY_CORRECT") != NULL) ordering = REQUIRE_ORDER; else ordering = PERMUTE; } if (nextchar == NULL || *nextchar == '\0') { if (ordering == PERMUTE) { /* If we have just processed some options following some non-options, exchange them so that the options come first. */ if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (last_nonopt != optind) first_nonopt = optind; /* Now skip any additional non-options and extend the range of non-options previously skipped. */ while (optind < argc && (argv[optind][0] != '-' || argv[optind][1] == '\0') #ifdef GETOPT_COMPAT && (longopts == NULL || argv[optind][0] != '+' || argv[optind][1] == '\0') #endif /* GETOPT_COMPAT */ ) optind++; last_nonopt = optind; } /* Special ARGV-element `--' means premature end of options. Skip it like a null option, then exchange with previous non-options as if it were an option, then skip everything else like a non-option. */ if (optind != argc && !strcmp (argv[optind], "--")) { optind++; if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (first_nonopt == last_nonopt) first_nonopt = optind; last_nonopt = argc; optind = argc; } /* If we have done all the ARGV-elements, stop the scan and back over any non-options that we skipped and permuted. */ if (optind == argc) { /* Set the next-arg-index to point at the non-options that we previously skipped, so the caller will digest them. */ if (first_nonopt != last_nonopt) optind = first_nonopt; return EOF; } /* If we have come to a non-option and did not permute it, either stop the scan or describe it to the caller and pass it by. */ if ((argv[optind][0] != '-' || argv[optind][1] == '\0') #ifdef GETOPT_COMPAT && (longopts == NULL || argv[optind][0] != '+' || argv[optind][1] == '\0') #endif /* GETOPT_COMPAT */ ) { if (ordering == REQUIRE_ORDER) return EOF; optarg = argv[optind++]; return 1; } /* We have found another option-ARGV-element. Start decoding its characters. */ nextchar = (argv[optind] + 1 + (longopts != NULL && argv[optind][1] == '-')); } if (longopts != NULL && ((argv[optind][0] == '-' && (argv[optind][1] == '-' || long_only)) #ifdef GETOPT_COMPAT || argv[optind][0] == '+' #endif /* GETOPT_COMPAT */ )) { const struct option *p; char *s = nextchar; int exact = 0; int ambig = 0; const struct option *pfound = NULL; int indfound; while (*s && *s != '=') s++; /* Test all options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, s - nextchar)) { if (s - nextchar == strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, "%s: option `%s' is ambiguous\n", argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; return '?'; } if (pfound != NULL) { option_index = indfound; optind++; if (*s) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = s + 1; else { if (opterr) { if (argv[optind - 1][1] == '-') /* --option */ fprintf (stderr, "%s: option `--%s' doesn't allow an argument\n", argv[0], pfound->name); else /* +option or -option */ fprintf (stderr, "%s: option `%c%s' doesn't allow an argument\n", argv[0], argv[optind - 1][0], pfound->name); } nextchar += strlen (nextchar); return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, "%s: option `%s' requires an argument\n", argv[0], argv[optind - 1]); nextchar += strlen (nextchar); return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } /* Can't find it as a long option. If this is not getopt_long_only, or the option starts with '--' or is not a valid short option, then it's an error. Otherwise interpret it as a short option. */ if (!long_only || argv[optind][1] == '-' #ifdef GETOPT_COMPAT || argv[optind][0] == '+' #endif /* GETOPT_COMPAT */ || my_index (optstring, *nextchar) == NULL) { if (opterr) { if (argv[optind][1] == '-') /* --option */ fprintf (stderr, "%s: unrecognized option `--%s'\n", argv[0], nextchar); else /* +option or -option */ fprintf (stderr, "%s: unrecognized option `%c%s'\n", argv[0], argv[optind][0], nextchar); } nextchar = (char *) ""; optind++; return '?'; } } /* Look at and handle the next option-character. */ { char c = *nextchar++; char *temp = my_index (optstring, c); /* Increment `optind' when we start to process its last character. */ if (*nextchar == '\0') ++optind; if (temp == NULL || c == ':') { if (opterr) { #if 0 if (c < 040 || c >= 0177) fprintf (stderr, "%s: unrecognized option, character code 0%o\n", argv[0], c); else fprintf (stderr, "%s: unrecognized option `-%c'\n", argv[0], c); #else /* 1003.2 specifies the format of this message. */ fprintf (stderr, "%s: illegal option -- %c\n", argv[0], c); #endif } optopt = c; return '?'; } if (temp[1] == ':') { if (temp[2] == ':') { /* This is an option that accepts an argument optionally. */ if (*nextchar != '\0') { optarg = nextchar; optind++; } else optarg = 0; nextchar = NULL; } else { /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { #if 0 fprintf (stderr, "%s: option `-%c' requires an argument\n", argv[0], c); #else /* 1003.2 specifies the format of this message. */ fprintf (stderr, "%s: option requires an argument -- %c\n", argv[0], c); #endif } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; nextchar = NULL; } } return c; } } int getopt (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { return _getopt_internal (argc, argv, optstring, (const struct option *) 0, (int *) 0, 0); } #endif /* _LIBC or not __GNU_LIBRARY__. */ #ifdef TEST /* Compile with -DTEST to make an executable for use in testing the above definition of `getopt'. */ int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; c = getopt (argc, argv, "abc:d:0123456789"); if (c == EOF) break; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ libhdf4-4.2.10/HDF_ALT/hdf/util/hdfpack.out1.10000644000000000000000000000172112421456623015176 0ustar test.hdf: Linked Blocks Indicator : (tag 20) Ref nos: 59 60 61 113 114 115 116 117 118 119 120 Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 133 141 150 158 167 SciData dimension record : (tag 701) Ref nos: 133 141 150 158 167 Scientific Data : (tag 702) Ref nos: 58 Numeric Data Group : (tag 720) Ref nos: 2 3 4 5 6 Vdata : (tag 1962) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vdata Storage : (tag 1963) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vgroup : (tag 1965) Ref nos: 122 124 126 134 142 151 159 168 171 Special Scientific Data : (tag 17086) Ref nos: 59 113 116 119 libhdf4-4.2.10/HDF_ALT/hdf/util/ristosds.c0000644000000000000000000001436612421456623014654 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: ristosds.c 6013 2014-01-10 21:19:02Z acheng $ */ /* This program converts a series raster image hdf files into */ /* a single 3D sds hdf file. Each ris hdf file contains one */ /* or more raster images. All images should be of the same */ /* dimension sizes. And, if there is a palette associated to */ /* the images, the palette should be included in the first */ /* ris file. Any subsequent palettes will be ignored. */ /* Sept. 23, 1991 */ /* USAGE: ristosds infile{ infile} -o outfile */ #include "hdf.h" #define r_imgae 2; #define r_sds 3; #define USAGE "ristosds infile{ infile} -o outfile" int main (int, char *a[]); int cntimage (char *filename, int32 *p_w, int32 *p_h, int *n_images); VOID finishing (void); int main(int argc, char *argv[]) { int i, j; int nimg, nimg0; /* nimg, nimg0 -- number of images */ int32 w, h; /* w, h -- width and height of images */ int ret, n_infile, getoutfile, ispal; int32 dimsizes[3]; char *infile, *outfile, **argv_infile; uint8 *indata, *indata0, palette[768]; uint8 *outdata, *outdata0; if (argc < 4) { printf("Usage %s.\n", USAGE); finishing(); } /* initialization */ nimg = 0; w = h = 0; n_infile = 0; /* count number of input files */ getoutfile = 0; argv_infile = &argv[1]; /* save start address of input file names. */ /* Count total number of images to be converted. */ while (--argc > 1) { /* reach -o. go to get output file name */ infile = *++argv; if (infile[0] == '-') { getoutfile = 1; break; } else { n_infile++; ret = cntimage(infile, &w, &h, &nimg); if (ret != 0) finishing(); } } nimg0 = nimg; printf("Total number of images: %d.\n", nimg); /* get output file name */ argc--; if (getoutfile == 0 || argc < 1) { /* is -o or outfile missing? */ printf("Bad command line. \n\n\t\t %s\n", USAGE); finishing(); } outfile = *++argv; /* read in images from all input files. */ outdata0 = outdata = (uint8 *) HDmalloc((size_t)(nimg * w * h) * (sizeof(uint8))); if (outdata0 == NULL) { printf("Not enough space. \n\n\n"); finishing(); } indata0 = indata = (uint8 *) HDmalloc((size_t)(nimg * w * h) * sizeof(uint8)); if (indata0 == NULL) { printf("Not enough space. \n\n\n"); finishing(); } infile = *argv_infile; ret = DFR8getdims(infile, &w, &h, &ispal); if (ispal) { DFPgetpal(infile, (char *) palette); DFR8restart(); /* in case the palette is not at the */ /* beginning of the first input file */ DFPputpal(outfile, (char *) palette, 0, "a"); } while (nimg > 0) { indata = indata0; /* Restart from the beginning of the buf */ ret = DFR8getimage(infile, indata, w, h, palette); if (ret != 0) { /* end of file. open next one */ n_infile--; if (n_infile < 1) { printf("Inconsistent number of files and images\n"); finishing(); } infile = *++argv_infile; ret = DFR8getimage(infile, indata, w, h, palette); if (ret != 0) finishing(); } /* convert image data into floating point and store in the array */ for (i = 0; i < w; i++) for (j = 0; j < h; j++) *outdata++ = *indata++; nimg--; } dimsizes[0] = nimg0; dimsizes[1] = h; dimsizes[2] = w; if (DFSDsetNT(DFNT_UINT8) == FAIL) finishing(); ret = DFSDadddata(outfile, 3, dimsizes, (VOIDP) outdata0); HDfree(outdata0); HDfree(indata0); if (ret != 0) finishing(); return (0); } VOID finishing(void) { printf("end of ristosds.\n"); exit(1); } /* count # of images */ int cntimage(char *filename, int32 *p_w, int32 *p_h, int *n_images) { int32 ret, width, height; int ispal, dimerror; dimerror = 0; ret = DFR8getdims(filename, &width, &height, &ispal); if (ret == FAIL) { HEprint(stderr, 0); finishing(); } if (*p_w == 0 && *p_h == 0) { /* the first time */ *p_w = width; *p_h = height; } while (ret == 0) { /* count # of images and check dims */ if ((width != *p_w) || (height != *p_h)) { printf("Inconsistent dims: %s .\n", filename); dimerror = -1; break; } *n_images = *n_images + 1; ret = DFR8getdims(filename, &width, &height, &ispal); } /* ready to return */ DFR8restart(); if (dimerror == -1) return (-1); else return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/Makefile.am0000644000000000000000000001051112421456623014656 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am ## Setup the different includes and preprocessor #defines we need. AM_CPPFLAGS=-I$(top_srcdir)/hdf/src ############################################################################# ## Programs to build ## ############################################################################# bin_PROGRAMS = gif2hdf hdf2gif hdf2jpeg hdf24to8 hdf8to24 hdfcomp hdfed \ hdfls hdfpack hdftopal hdftor8 hdfunpac jpeg2hdf paltohdf \ r8tohdf ristosds vmake vshow if HDF_BUILD_FORTRAN bin_SCRIPTS = h4redeploy h4cc h4fc else bin_SCRIPTS = h4redeploy h4cc endif gif2hdf_SOURCES = gif2hdf.c gif2mem.c gifread.c decompress.c writehdf.c gif2hdf_LDADD = $(LIBHDF) gif2hdf_DEPENDENCIES = $(LIBHDF) gif2hdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf2gif_SOURCES = hdf2gif.c hdfgifwr.c hdf2gif_LDADD = $(LIBHDF) hdf2gif_DEPENDENCIES = $(LIBHDF) hdf2gif_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf2jpeg_SOURCES = hdf2jpeg.c hdf2jpeg_LDADD = $(LIBHDF) hdf2jpeg_DEPENDENCIES = $(LIBHDF) hdf2jpeg_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf24to8_SOURCES = hdf24to8.c hdf24to8_LDADD = $(LIBHDF) hdf24to8_DEPENDENCIES = $(LIBHDF) hdf24to8_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdf8to24_SOURCES = hdf8to24.c hdf8to24_LDADD = $(LIBHDF) hdf8to24_DEPENDENCIES = $(LIBHDF) hdf8to24_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfcomp_SOURCES = hdfcomp.c hdfcomp_LDADD = $(LIBHDF) hdfcomp_DEPENDENCIES = $(LIBHDF) hdfcomp_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfed_SOURCES = he_cntrl.c he_disp.c he_file.c he_main.c hdfed_LDADD = $(LIBHDF) hdfed_DEPENDENCIES = $(LIBHDF) hdfed_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfls_SOURCES = hdfls.c hdfls_LDADD = $(LIBHDF) hdfls_DEPENDENCIES = $(LIBHDF) hdfls_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfpack_SOURCES = hdfpack.c hdfpack_LDADD = $(LIBHDF) hdfpack_DEPENDENCIES = $(LIBHDF) hdfpack_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdftopal_SOURCES = hdftopal.c hdftopal_LDADD = $(LIBHDF) hdftopal_DEPENDENCIES = $(LIBHDF) hdftopal_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdftor8_SOURCES = hdftor8.c hdftor8_LDADD = $(LIBHDF) hdftor8_DEPENDENCIES = $(LIBHDF) hdftor8_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) hdfunpac_SOURCES = hdfunpac.c hdfunpac_LDADD = $(LIBHDF) hdfunpac_DEPENDENCIES = $(LIBHDF) hdfunpac_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) jpeg2hdf_SOURCES = jpeg2hdf.c jpeg2hdf_LDADD = $(LIBHDF) jpeg2hdf_DEPENDENCIES = $(LIBHDF) jpeg2hdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) paltohdf_SOURCES = paltohdf.c paltohdf_LDADD = $(LIBHDF) paltohdf_DEPENDENCIES = $(LIBHDF) paltohdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) r8tohdf_SOURCES = r8tohdf.c r8tohdf_LDADD = $(LIBHDF) r8tohdf_DEPENDENCIES = $(LIBHDF) r8tohdf_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ristosds_SOURCES = ristosds.c ristosds_LDADD = $(LIBHDF) ristosds_DEPENDENCIES = $(LIBHDF) ristosds_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) vmake_SOURCES = vmake.c vmake_LDADD = $(LIBHDF) vmake_DEPENDENCIES = $(LIBHDF) vmake_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) vshow_SOURCES = vshow.c vshow_LDADD = ../src/libdf.la vshow_DEPENDENCIES = ../src/libdf.la vshow_LDFLAGS = $(LT_STATIC_EXEC) $(AM_LDFLAGS) ############################################################################# ## Testing -- Here there be dragons. ## ############################################################################# TEST_SCRIPT = testutil.sh check_SCRIPTS = testutil.sh check_PROGRAMS = $(bin_PROGRAMS) ############################################################################# ## And the cleanup ## ############################################################################# CHECK_CLEANFILES += gif_hdf_temp/bttrfly.hdf gif_hdf_temp/skull.gif \ gif_hdf_temp/SunWheel.hdf # Automake's distclean won't remove directories, so we can add an additional # hook target which will do so during 'make distclean'. distclean-local: -rm -rf gif_hdf_temp DISTCLEANFILES = include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/hdf/util/ristosds.input10000644000000000000000000000022212421456623015634 0ustar open storm.hdf prev tag = 702 info -long dump -length 20 -byte close open storm110.hdf prev tag = 302 info -long dump -length 20 -byte close quit libhdf4-4.2.10/HDF_ALT/hdf/util/fptest.c0000644000000000000000000002235012421456623014277 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "hdf.h" #ifdef _WIN32 #include #include #endif /* * Name: * fptest * * Description: * This program creates six floating point files that can be * used to test the fp2hdf program. * * June 1, 1990 * Bob Weaver, baw@inel.gov * * The file names that are created are named: * ctxtr2, type 'TEXT', size 3x4 * ctxtr3, type 'TEXT', size 3x4x5 * cb32r2, type 'FP32', size 3x4 * cb32r3, type 'FP32', size 3x4x5 * cb64r2, type 'FP64', size 3x4 * cb64r3, type 'FP64', size 3x4x5 * * row values start at 11 and increment by 1 => 11, 12, 13 * column values start at 21 and increment by 2 => 21, 23, 25, 27 * plane values start at 51 and increment by 5 => 51, 56, 61, 66, 71 * * data element value = row value + column value [+ plane value, if rank=3] */ int main(int argc, char * argv[] ) { int nrow = 3, ncol = 4, npln = 5, ione = 1; int i, j, k; FILE *sp; float32 b32r2[3][4], b32r3[5][3][4]; float32 row4[3], col4[4], pln4[5]; float32 rowo4 = (float32)11.0e0, colo4 = (float32)21.0e0, plno4 = (float32)51.0e0; float32 rowi4 = (float32)1.0e0, coli4 = (float32)2.0e0, plni4 = (float32)5.0e0; float32 ezero = (float32)0.0e0; float64 b64r2[3][4], b64r3[5][3][4]; float64 row8[3], col8[4], pln8[5]; float64 rowo8 = 11.0e0, colo8 = 21.0e0, plno8 = 51.0e0; float64 rowi8 = 1.0e0, coli8 = 2.0e0, plni8 = 5.0e0; float64 dzero = 0.0e0; const char *text = "TEXT"; const char *fp32 = "FP32"; const char *fp64 = "FP64"; /* shut compiler up */ argv=argv; argc=argc; /* * initialize the row, column, and plane vectors * * row values start at 11 and increment by 1 => 11, 12, 13 * column values start at 21 and increment by 2 => 21, 23, 25, 27 * plane values start at 51 and increment by 5 => 51, 56, 61, 66, 71 */ row4[0] = rowo4; col4[0] = colo4; pln4[0] = plno4; row8[0] = rowo8; col8[0] = colo8; pln8[0] = plno8; for (i = 1; i < nrow; i++) { row4[i] = row4[i - 1] + rowi4; row8[i] = row8[i - 1] + rowi8; } for (j = 1; j < ncol; j++) { col4[j] = col4[j - 1] + coli4; col8[j] = col8[j - 1] + coli8; } for (k = 1; k < npln; k++) { pln4[k] = pln4[k - 1] + plni4; pln8[k] = pln8[k - 1] + plni8; } /* * build array elements - rank 2 * * element value = sum of row value and col values */ for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) { b32r2[i][j] = row4[i] + col4[j]; b64r2[i][j] = row8[i] + col8[j]; } } /* * build array elements - rank 3 * * element value = sum of row value, col, and plane values */ for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) { for (k = 0; k < npln; k++) { b32r3[k][i][j] = row4[i] + col4[j] + pln4[k]; b64r3[k][i][j] = row8[i] + col8[j] + pln8[k]; } } } /* * text file - rank 2 & 3 */ /* For WINDOWS platform, file mode should be set explicitly. For text mode, set it to Text; for binary mode, set it to BINARY. */ #ifdef _WIN32 _fmode = _O_TEXT; #endif sp = fopen("ctxtr2", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", ione, nrow, ncol); (void) fprintf(sp, "%14.6E%14.6E\n", ezero, ezero); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%14.6E", row4[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", col4[j]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", b32r2[i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); sp = fopen("ctxtr3", "w"); (void) fprintf(sp, "%s\n", text); (void) fprintf(sp, "%10d%10d%10d\n", npln, nrow, ncol); (void) fprintf(sp, "%14.6E%14.6E\n", ezero, ezero); for (k = 0; k < npln; k++) (void) fprintf(sp, "%14.6E", pln4[k]); (void) fprintf(sp, "\n"); for (i = 0; i < nrow; i++) (void) fprintf(sp, "%14.6E", row4[i]); (void) fprintf(sp, "\n"); for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", col4[j]); (void) fprintf(sp, "\n"); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) { for (j = 0; j < ncol; j++) (void) fprintf(sp, "%14.6E", b32r3[k][i][j]); (void) fprintf(sp, "\n"); } (void) fclose(sp); /* * binary 32-bit file - rank 2 & 3 */ #ifdef _WIN32 _fmode = _O_BINARY; #endif sp = fopen("cb32r2", "w"); (void) fwrite(fp32, sizeof(int), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4[i], sizeof(float32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4[j], sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32r2[i][j], sizeof(float32), 1, sp); (void) fclose(sp); sp = fopen("cb32r3", "w"); (void) fwrite(fp32, sizeof(int), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); (void) fwrite((char *) &ezero, sizeof(float32), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln4[k], sizeof(float32), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row4[i], sizeof(float32), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col4[j], sizeof(float32), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b32r3[k][i][j], sizeof(float32), 1, sp); (void) fclose(sp); /* * binary 64-bit file - rank 2 & 3 */ sp = fopen("cb64r2", "w"); (void) fwrite(fp64, sizeof(int), 1, sp); (void) fwrite((char *) &ione, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row8[i], sizeof(float64), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col8[j], sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b64r2[i][j], sizeof(float64), 1, sp); (void) fclose(sp); sp = fopen("cb64r3", "w"); (void) fwrite(fp64, sizeof(int), 1, sp); (void) fwrite((char *) &npln, sizeof(int), 1, sp); (void) fwrite((char *) &nrow, sizeof(int), 1, sp); (void) fwrite((char *) &ncol, sizeof(int), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); (void) fwrite((char *) &dzero, sizeof(float64), 1, sp); for (k = 0; k < npln; k++) (void) fwrite((char *) &pln8[k], sizeof(float64), 1, sp); for (i = 0; i < nrow; i++) (void) fwrite((char *) &row8[i], sizeof(float64), 1, sp); for (j = 0; j < ncol; j++) (void) fwrite((char *) &col8[j], sizeof(float64), 1, sp); for (k = 0; k < npln; k++) for (i = 0; i < nrow; i++) for (j = 0; j < ncol; j++) (void) fwrite((char *) &b64r3[k][i][j], sizeof(float64), 1, sp); (void) fclose(sp); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/README.fp2hdf.test0000644000000000000000000000440412421456623015634 0ustar There are two sets of input files for testing fp2hdf. These files are used by the script fp2hdf.test. I. The first set consists of 2-D data sets that produce images that are cross-hatched with 10 vertical and 10 horizontal lines. These files use the following naming conventions: 't' prefix means it's a text file 'h' prefix means it's an hdf file 'h' at the end means horizontal scale is not uniform 'v' at the end means vertical scale is not uniform 'n' at the end means no scales are stored in the file dimensions are given between prefix and postfix The names of the files: (which are stored in the testfiles/fp2hdf directory) t100x100 h100x100 h100x100h h100x100hv h60x75 h60x75v h60x75n II. The second set are generated by the programs ftest.c and ftest.F. They are small files with 2-D and 3-D data sets that are easily examined by eye. Those that begin with the letter 'c' are produced with the program ftest.c, and those that begin with 'f' were produced with ftest.F. ctxtr2, type 'TEXT', size 3x4 ctxtr3, type 'TEXT', size 3x4x5 cb32r2, type 'FP32', size 3x4 cb32r3, type 'FP32', size 3x4x5 cb64r2, type 'FP64', size 3x4 cb64r3, type 'FP64', size 3x4x5 ftxtr2, type 'TEXT', size 3x4 ftxtr3, type 'TEXT', size 3x4x5 fb32r2, type 'FP32', size 3x4 fb32r3, type 'FP32', size 3x4x5 fb64r2, type 'FP64', size 3x4 fb64r3, type 'FP64', size 3x4x5 Contents of the arrays: row values start at 11 and increment by 1 => 11, 12, 13 column values start at 21 and increment by 2 => 21, 23, 25, 27 plane values start at 51 and increment by 5 => 51, 56, 61, 66, 71 data element value = row value + column value [+ plane value, if rank=3] Output files can be examined with hdfls to see if basic contents are there. Those with raster images can be displayed using NCSA Image, DataScope, etc. Those with floating point data can be examined using hdfed or DataScope. libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.test0000644000000000000000000000736412421456623014710 0ustar #! /bin/csh -f # Script for testing fp2hdf # # The input files used in this script for testing fp2hdf are # described in the file README.test. # # Output files can be examined with hdfls to see if basic # contents are there. Those with raster images can be displayed # using NCSA Image, DataScope, etc. Those with floating point # data can be examined using hdfed or DataScope. # # Note: these tests are not exhaustive. You may want to add some # of your own, especially if you are doing something a little # different from what we are testing for. You may also want to # eliminate some of these tests if they are not relevant. # set echo # text (100x100) => SDS only ./fp2hdf testfiles/fp2hdf/t100x100 -o o1 # # text => image only ./fp2hdf testfiles/fp2hdf/t100x100 -o o2 -r # # text => SDS and image ./fp2hdf testfiles/fp2hdf/t100x100 -o o3 -r -f # # hdf (100x100) => SDS and image ./fp2hdf testfiles/fp2hdf/h100x100 -o o4 -r -f # # hdf => SDS and image w palette ./fp2hdf testfiles/fp2hdf/h100x100 -o o5 -f -r -p testfiles/fp2hdf/pal.hdf # # hdf => 200x200 image, pixel replication ./fp2hdf testfiles/fp2hdf/h100x100 -o o6 -r -e 200 200 # # hdf => 200x200 image, bilinear interporlation ./fp2hdf testfiles/fp2hdf/h100x100 -o o7 -r -i 200 200 # # hdf => 40x120 interpolated image w palette ./fp2hdf testfiles/fp2hdf/h100x100 -o o8 -r -i 40 120 -p testfiles/fp2hdf/pal.hdf # # hdf => 40x120 pixel rep image w palette (should generate and error) ./fp2hdf testfiles/fp2hdf/h100x100 -o o9 -r -e 40 120 -p testfiles/fp2hdf/pal.hdf # # hdf (60x75) => 120x160 pixel rep image w palette ./fp2hdf testfiles/fp2hdf/h60x75 -o o10 -r -e 120 160 -p testfiles/fp2hdf/pal.hdf # # hdf (100x100, horizontal scale is non-uniform) => SDS and image w palette ./fp2hdf testfiles/fp2hdf/h100x100h -o o11 -f -r -p testfiles/fp2hdf/pal.hdf # # hdf (100x100, horiz and vert scales are non-uniform) => SDS and image w pal ./fp2hdf testfiles/fp2hdf/h100x100hv -o o12 -f -r -p testfiles/fp2hdf/pal.hdf # # hdf (60x75 vert scale is non-uniform) => 120x160 image with palette ./fp2hdf testfiles/fp2hdf/h60x75v -o o13 -r -e 120 160 -p testfiles/fp2hdf/pal.hdf # # hdf (60x75 no scales) => 120x150 pixel rep image with palette ./fp2hdf testfiles/fp2hdf/h60x75n -o o14 -r -e 120 150 -p testfiles/fp2hdf/pal.hdf # # From several files => a file with 100x100 images for all of them ./fp2hdf testfiles/fp2hdf/t100x100 testfiles/fp2hdf/h100x100 testfiles/fp2hdf/h100x100h testfiles/fp2hdf/h100x100hv testfiles/fp2hdf/h60x75 testfiles/fp2hdf/h60x75v -o o15 -r -e 100 100 # # Now do test on the other set of input files # # C: text (3x4) => SDS ./fp2hdf ctxtr2 -o o20 # # C: text (3x4x5) => SDS ./fp2hdf ctxtr3 -o o21 # # C: binary 32-bit (3x4) => SDS ./fp2hdf cb32r2 -o o22 # # C: binary 32-bit (3x4x5) => SDS ./fp2hdf cb32r3 -o o23 # # C: binary 64-bit (3x4) => SDS ./fp2hdf cb64r2 -o o24 # # C: binary 64-bit (3x4x5) => SDS ./fp2hdf cb64r3 -o o25 # # C: text (3x4) => image ./fp2hdf ctxtr2 -o o26 -raster -e 50 50 # # C: binary (3x4) => image and SDS ./fp2hdf cb64r2 -o o27 -raster -i 50 50 -f # # # Fortran: text (3x4) => SDS ./fp2hdf ftxtr2 -o o30 # # Fortran: text (3x4x5) => SDS ./fp2hdf ftxtr3 -o o31 # # Fortran: binary 32-bit (3x4) => SDS ./fp2hdf fb32r2 -o o32 # # Fortran: binary 32-bit (3x4x5) => SDS ./fp2hdf fb32r3 -o o33 # # Fortran: binary 64-bit (3x4) => SDS ./fp2hdf fb64r2 -o o34 # # Fortran: binary 64-bit (3x4x5) => SDS ./fp2hdf fb64r3 -o o35 # # Fortran: text (3x4) => image ./fp2hdf ftxtr2 -o o36 -raster -e 50 50 # # Fortran: binary (3x4) => image and SDS ./fp2hdf fb64r2 -o o37 -raster -i 50 50 -f # # # Compare files o20-o27 with o30-o37. They should be the same. # cmp o20 o30 cmp o21 o31 cmp o22 o32 cmp o23 o33 cmp o24 o34 cmp o25 o35 cmp o26 o36 cmp o27 o37 unset echo libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.out20000644000000000000000000001735512421456623014623 0ustar (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Scientific Data : (Tag 702) Ref 2 0: 8.300000e+01 8.500000e+01 8.700000e+01 8.900000e+01 16: 8.400000e+01 8.600000e+01 8.800000e+01 9.000000e+01 32: 8.500000e+01 8.700000e+01 8.900000e+01 9.100000e+01 48: 8.800000e+01 9.000000e+01 9.200000e+01 9.400000e+01 64: 8.900000e+01 9.100000e+01 9.300000e+01 9.500000e+01 80: 9.000000e+01 9.200000e+01 9.400000e+01 9.600000e+01 96: 9.300000e+01 9.500000e+01 9.700000e+01 9.900000e+01 112: 9.400000e+01 9.600000e+01 9.800000e+01 1.000000e+02 128: 9.500000e+01 9.700000e+01 9.900000e+01 1.010000e+02 144: 9.800000e+01 1.000000e+02 1.020000e+02 1.040000e+02 160: 9.900000e+01 1.010000e+02 1.030000e+02 1.050000e+02 176: 1.000000e+02 1.020000e+02 1.040000e+02 1.060000e+02 192: 1.030000e+02 1.050000e+02 1.070000e+02 1.090000e+02 208: 1.040000e+02 1.060000e+02 1.080000e+02 1.100000e+02 224: 1.050000e+02 1.070000e+02 1.090000e+02 1.110000e+02 240: (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Scientific Data : (Tag 702) Ref 2 0: 8.300000e+01 8.500000e+01 8.700000e+01 8.900000e+01 16: 8.400000e+01 8.600000e+01 8.800000e+01 9.000000e+01 32: 8.500000e+01 8.700000e+01 8.900000e+01 9.100000e+01 48: 8.800000e+01 9.000000e+01 9.200000e+01 9.400000e+01 64: 8.900000e+01 9.100000e+01 9.300000e+01 9.500000e+01 80: 9.000000e+01 9.200000e+01 9.400000e+01 9.600000e+01 96: 9.300000e+01 9.500000e+01 9.700000e+01 9.900000e+01 112: 9.400000e+01 9.600000e+01 9.800000e+01 1.000000e+02 128: 9.500000e+01 9.700000e+01 9.900000e+01 1.010000e+02 144: 9.800000e+01 1.000000e+02 1.020000e+02 1.040000e+02 160: 9.900000e+01 1.010000e+02 1.030000e+02 1.050000e+02 176: 1.000000e+02 1.020000e+02 1.040000e+02 1.060000e+02 192: 1.030000e+02 1.050000e+02 1.070000e+02 1.090000e+02 208: 1.040000e+02 1.060000e+02 1.080000e+02 1.100000e+02 224: 1.050000e+02 1.070000e+02 1.090000e+02 1.110000e+02 240: (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Scientific Data : (Tag 702) Ref 2 0: 8.300000e+01 8.500000e+01 8.700000e+01 8.900000e+01 16: 8.400000e+01 8.600000e+01 8.800000e+01 9.000000e+01 32: 8.500000e+01 8.700000e+01 8.900000e+01 9.100000e+01 48: 8.800000e+01 9.000000e+01 9.200000e+01 9.400000e+01 64: 8.900000e+01 9.100000e+01 9.300000e+01 9.500000e+01 80: 9.000000e+01 9.200000e+01 9.400000e+01 9.600000e+01 96: 9.300000e+01 9.500000e+01 9.700000e+01 9.900000e+01 112: 9.400000e+01 9.600000e+01 9.800000e+01 1.000000e+02 128: 9.500000e+01 9.700000e+01 9.900000e+01 1.010000e+02 144: 9.800000e+01 1.000000e+02 1.020000e+02 1.040000e+02 160: 9.900000e+01 1.010000e+02 1.030000e+02 1.050000e+02 176: 1.000000e+02 1.020000e+02 1.040000e+02 1.060000e+02 192: 1.030000e+02 1.050000e+02 1.070000e+02 1.090000e+02 208: 1.040000e+02 1.060000e+02 1.080000e+02 1.100000e+02 224: 1.050000e+02 1.070000e+02 1.090000e+02 1.110000e+02 240: (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Compressed Image : (Tag 303) Ref 2 0: 137 1 144 60 144 120 137 179 8: 137 1 144 60 144 120 137 179 16: 137 1 144 60 144 120 137 179 24: 137 1 144 60 144 120 137 179 32: 137 1 144 60 144 120 137 179 40: 137 1 144 60 144 120 137 179 48: 137 1 144 60 144 120 137 179 56: 137 1 144 60 144 120 137 179 64: 137 1 144 60 144 120 137 179 72: 137 1 144 60 144 120 137 179 80: 137 1 144 60 144 120 137 179 88: 137 1 144 60 144 120 137 179 96: 137 1 144 60 144 120 137 179 104: 137 31 144 90 144 150 137 209 112: 137 31 144 90 144 150 137 209 120: 137 31 144 90 144 150 137 209 128: 137 31 144 90 144 150 137 209 136: 137 31 144 90 144 150 137 209 144: 137 31 144 90 144 150 137 209 152: 137 31 144 90 144 150 137 209 160: 137 31 144 90 144 150 137 209 168: 137 31 144 90 144 150 137 209 176: 137 31 144 90 144 150 137 209 184: 137 31 144 90 144 150 137 209 192: 137 31 144 90 144 150 137 209 200: 137 31 144 90 144 150 137 209 208: 137 31 144 90 144 150 137 209 216: 137 31 144 90 144 150 137 209 224: 137 31 144 90 144 150 137 209 232: 137 31 144 90 144 150 137 209 240: 137 31 144 90 144 150 137 209 248: 137 31 144 90 144 150 137 209 256: 137 31 144 90 144 150 137 209 264: 137 31 144 90 144 150 137 209 272: 137 31 144 90 144 150 137 209 280: 137 31 144 90 144 150 137 209 288: 137 31 144 90 144 150 137 209 296: 137 60 144 120 144 179 137 239 304: 137 60 144 120 144 179 137 239 312: 137 60 144 120 144 179 137 239 320: 137 60 144 120 144 179 137 239 328: 137 60 144 120 144 179 137 239 336: 137 60 144 120 144 179 137 239 344: 137 60 144 120 144 179 137 239 352: 137 60 144 120 144 179 137 239 360: 137 60 144 120 144 179 137 239 368: 137 60 144 120 144 179 137 239 376: 137 60 144 120 144 179 137 239 384: 137 60 144 120 144 179 137 239 392: 137 60 144 120 144 179 137 239 400: libhdf4-4.2.10/HDF_ALT/hdf/util/hdftor8.c0000644000000000000000000003055412421456623014355 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdftor8.c 6013 2014-01-10 21:19:02Z acheng $ */ /* * hdftor8.c * Extract images from HDF file to raster files */ #include "hdf.h" #define PALETTE_SIZE 768 /* size of palette array */ #define COLOR_SIZE 256 /* size of palette color array */ /* COLOR_SIZE == PALETTE_SIZE / 3 */ #define INTERACTIVE 'i' /* interactive option */ #define RASTER_FILE 'r' /* raster filename template */ #define PALETTE_FILE 'p' /* palette filename template */ #define VERBOSE 'v' /* verbose option */ #define TEMPLATE_NUMBER '#' /* image or palette number positions */ #define TEMPLATE_XDIM '@' /* image x dim positions */ #define TEMPLATE_YDIM '%' /* image y dim positions */ const char D_RASTER_TEM[] = "img#-@.%"; /* default raster file name template */ const char D_PALETTE_TEM[] = "pal#"; /* default palette file name template */ int interactive; /* interactive option */ int verbose; /* verbose option */ int main (int argc, char *argv[]); void putRaster (const char *template, int32 xdim, int32 ydim, int imageNumber, uint8 *image); void putPalette (const char *template, int imageNumber, uint8 *palette); void convert (const char *template, int imageNumber, int32 xdim, int32 ydim, char *stringOut); void fillStr (const char **template, char **stringOut, char *string, char specialChar); char *newSpace (int32 size); const char *getTemplate (const char *type, int imageNumber); int main(int argc, char *argv[]) { int i, imageNumber, ispal, err_val; int32 xdim, ydim; char *hdfFile; uint8 *image, palette[PALETTE_SIZE]; const char *rasterTemplate = NULL, *paletteTemplate = NULL; if (argc < 2) { printf("%s, version: 1.1 date: July 1, 1992\n", argv[0]); printf("\tThis utility extracts all raster-8 images and/or\n"); printf("\tpalettes from an HDF file and stores them in two sets of\n"); printf("\tfiles containing only images and palettes, respectively.\n"); printf("Usage:\n"); printf("hdftor8 hdf_file [-i] [-v] [-r image_file] [-p pal_file]\n"); printf("\t-i: interactive (specify filenames interactively)\n"); printf("\t-v: verbose (provide descriptive messages)\n"); printf("\tImages and palettes are placed in the specified files\n"); printf("\tThe names of these files may contain special characters\n"); printf("\t\twhich will be replaced by numbers:\n"); printf("\t # replace with image or palette number\n"); printf("\t @ replace with x dim of image\n"); printf("\t %% replace with y dim of image\n"); printf("\tIf not specified, image filename defaults to img#-@.%%\n"); printf("\tIf not specified, palette filename defaults to pal.#\n\n"); exit(1); } hdfFile = argv[1]; for (i = 2; i < argc; i++) { if (*argv[i] == '-') { switch (argv[i][1]) { case INTERACTIVE: interactive = TRUE; break; case RASTER_FILE: rasterTemplate = argv[++i]; break; case PALETTE_FILE: paletteTemplate = argv[++i]; break; case VERBOSE: verbose = TRUE; break; default: printf("Illegal option: %s, skipping...\n", argv[i]); break; } } else printf("Illegal option: %s, skipping...\n", argv[i]); } if (!rasterTemplate && !interactive) rasterTemplate = D_RASTER_TEM; if (!paletteTemplate && !interactive) paletteTemplate = D_PALETTE_TEM; for (imageNumber = 1; !DFR8getdims(hdfFile, &xdim, &ydim, &ispal);) { image = (uint8 *) newSpace(xdim * ydim); if (verbose) { if (ispal) printf("Getting image and palette %d.\n", imageNumber); else printf("Getting image %d.\n", imageNumber); printf("Image dimensions : %d * %d\n", (int)xdim, (int)ydim); } if (!DFR8getimage(hdfFile, image, xdim, ydim, palette)) { putRaster(rasterTemplate, xdim, ydim, imageNumber, image); if (ispal) putPalette(paletteTemplate, imageNumber, palette); imageNumber++; } else break; } err_val = (int)HEvalue(1); if ((err_val != DFE_NOMATCH) && (err_val != DFE_NONE)) { if (verbose) HEprint(stderr, 0); exit(1); } return (0); } /* * putRaster * * Write the image to a raster image file. * * INPUT: * template : pointer to template string * xdim : x dimension of image * ydim : y dimension of image * imageNumber : (need I say more?) * image : pointer to image array */ void putRaster(const char *template, int32 xdim, int32 ydim, int imageNumber, uint8 *image) { FILE *fd; char fileName[DF_MAXFNLEN]; if (!template) /* can assume interactive (see main) */ template = getTemplate("image", imageNumber); convert(template, imageNumber, xdim, ydim, fileName); if (verbose) printf("Writing into image file : %s\n", fileName); if ((fd = fopen(fileName, "wb")) == NULL) { puts("Unable to open file. Exiting..."); exit(1); } if (fwrite(image, (size_t) xdim, (size_t) ydim, fd) != (unsigned) ydim) { puts("Unable to write to file. Exiting..."); exit(1); } if (fclose(fd)) { puts("Unable to close file. Exiting..."); exit(1); } } /* * putPalette * * Write palette array out to palette file. * * INPUT: * template : palette filename template * imageNumber : Yes, the number of the image * palette : pointer to the palette array */ void putPalette(const char *template, int imageNumber, uint8 *palette) { int i; FILE *fd; char fileName[DF_MAXFNLEN], reds[COLOR_SIZE]; char greens[COLOR_SIZE], blues[COLOR_SIZE]; if (!template) /* can assume interactive (see main) */ template = getTemplate("palette", imageNumber); convert(template, imageNumber, (int32) 1, (int32) 768, fileName); if (verbose) printf("Writing into palette file : %s\n", fileName); if ((fd = fopen(fileName, "wb")) == NULL) { puts("Unable to open file. Exiting..."); exit(1); } for (i = 0; i < COLOR_SIZE; i++) { reds[i] = *palette++; greens[i] = *palette++; blues[i] = *palette++; } if (fwrite(reds, 1, COLOR_SIZE, fd) != COLOR_SIZE) { printf("Unable to write to file. Exiting..."); exit(1); } if (fwrite(greens, 1, COLOR_SIZE, fd) != COLOR_SIZE) { printf("Unable to write to file. Exiting..."); exit(1); } if (fwrite(blues, 1, COLOR_SIZE, fd) != COLOR_SIZE) { printf("Unable to write to file. Exiting..."); exit(1); } if (fclose(fd)) { printf("Unable to close file. Exiting..."); exit(1); } } /* * convert * * Determine the file name given the template, imageNumber, x dimension * and y dimension. Replaces template special characters with the * corresponding numbers. * * INPUT: * template : file name template * imageNumber : * xdim : x dimension of image * ydim : y dimension of image * OUTPUT: * stringOut : the concocted file name */ void convert(const char *template, int imageNumber, int32 xdim, int32 ydim, char *stringOut) { char numStr[20], xStr[20], yStr[20]; sprintf(numStr, "%03d", imageNumber); sprintf(xStr, "%03d", (int)xdim); sprintf(yStr, "%03d", (int)ydim); for (; (*template);) { switch (*template) { case TEMPLATE_NUMBER: fillStr(&template, &stringOut, numStr, TEMPLATE_NUMBER); break; case TEMPLATE_XDIM: fillStr(&template, &stringOut, xStr, TEMPLATE_XDIM); break; case TEMPLATE_YDIM: fillStr(&template, &stringOut, yStr, TEMPLATE_YDIM); break; default: *stringOut++ = *template++; } } *stringOut = '\0'; } /* * fillStr * * Fill a string of special characters with a number string. * If the number string is shorter than the number of special characters * then the string is padded with '0' on the left. Else the number of the * special characters is ignored. * * INPUT: * template : pointer to pointer of string template * string : pointer to the number string * specialChar : the special character we are replacing * OUTPUT: * stringOut : pointer to pointer of converted string (not really) * BUG: Both the pointer to the template string and the pointer to the * comverted string are moved to after the position of the conversion. */ void fillStr(const char **template, char **stringOut, char *string, char specialChar) { int templateLen, stringLen, i; for (templateLen = 1; *(++(*template)) == specialChar; templateLen++) ; stringLen = (int)HDstrlen(string); for (i = templateLen - stringLen; i > 0; i--) *(*stringOut)++ = '0'; for (; (*string);) *(*stringOut)++ = *string++; } /* * newSpace * * Allocate a space with little wastage * * INPUT: * size : size of space request * RETURN: * pointer to the space allocated * * BUG: This routine can only handle one request at any time, * a second call cannot be made while the space is still * in use (somewhere else). */ char * newSpace(int32 size) { static int32 oldSize = 0; /* must be static */ static char *oldSpace = NULL; /* must be static */ if (size >= oldSize) { if (oldSpace != NULL) HDfree(oldSpace); if ((oldSpace = (char *) HDmalloc((uint32) size)) == NULL) { puts("Out of memory. Abort."); exit(1); } oldSize = size; } return oldSpace; } /* * getTemplate * * Ask the user for a file name template string. * * INPUT: * type : a description string of the type of file, * i.e. image or palette. * imageNumber : * RETURN: * pointer to template string * BUG: This routine can only handle one request at any time, * a second call cannot be made while the template is still * in use (somewhere else). */ const char * getTemplate(const char *type, int imageNumber) { static char template[DF_MAXFNLEN]; printf("This is %s %d.\nWhat template would you like?\n", type, imageNumber); scanf("%s", template); return template; } libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.test.result0000644000000000000000000000261112421456623016213 0ustar ********** This is approximately with should be written ********** ********** to the screen when you run fp2hdf.test. ********** fp2hdf t100x100 -o o1 fp2hdf t100x100 -o o2 -r fp2hdf t100x100 -o o3 -r -f fp2hdf h100x100 -o o4 -r -f fp2hdf h100x100 -o o5 -f -r -p pal.hdf fp2hdf h100x100 -o o6 -r -e 200 200 fp2hdf h100x100 -o o7 -r -i 200 200 fp2hdf h100x100 -o o8 -r -i 40 120 -p pal.hdf fp2hdf h100x100 -o o9 -r -e 40 120 -p pal.hdf Warning: cannot make image smaller using -e option. Horiz. resolution will be made the same as horiz. dimension of the dataset, which is: 100. fp2hdf h60x75 -o o10 -r -e 120 160 -p pal.hdf fp2hdf h100x100h -o o11 -f -r -p pal.hdf fp2hdf h100x100hv -o o12 -f -r -p pal.hdf fp2hdf h60x75v -o o13 -r -e 120 160 -p pal.hdf fp2hdf h60x75n -o o14 -r -e 120 150 -p pal.hdf fp2hdf t100x100 h100x100 h100x100h h100x100hv h60x75 h60x75v -o o15 -r -e 100 10 0 fp2hdf ctxtr2 -o o20 fp2hdf ctxtr3 -o o21 fp2hdf cb32r2 -o o22 fp2hdf cb32r3 -o o23 fp2hdf cb64r2 -o o24 fp2hdf cb64r3 -o o25 fp2hdf ctxtr2 -o o26 -raster -e 50 50 fp2hdf cb64r2 -o o27 -raster -i 50 50 -f fp2hdf ftxtr2 -o o30 fp2hdf ftxtr3 -o o31 fp2hdf fb32r2 -o o32 fp2hdf fb32r3 -o o33 fp2hdf fb64r2 -o o34 fp2hdf fb64r3 -o o35 fp2hdf ftxtr2 -o o36 -raster -e 50 50 fp2hdf fb64r2 -o o37 -raster -i 50 50 -f cmp o20 o30 cmp o21 o31 cmp o22 o32 cmp o23 o33 cmp o24 o34 cmp o25 o35 cmp o26 o36 cmp o27 o37 libhdf4-4.2.10/HDF_ALT/hdf/util/hdfpack.out1.20000644000000000000000000000147712421456623015207 0ustar test.pck: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 133 141 150 158 167 SciData dimension record : (tag 701) Ref nos: 133 141 150 158 167 Scientific Data : (tag 702) Ref nos: 58 59 113 116 119 Numeric Data Group : (tag 720) Ref nos: 2 3 4 5 6 Vdata : (tag 1962) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vdata Storage : (tag 1963) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vgroup : (tag 1965) Ref nos: 122 124 126 134 142 151 159 168 171 libhdf4-4.2.10/HDF_ALT/hdf/util/README.TST0000644000000000000000000003303512421456623014161 0ustar All the input data files needed to test the utilities are in the subdirectory testfiles/. Instructions on testing the HDF utility programs: hdf24to8 -- converts 24-bit raster images to hdf 8-bit images Copy head.r24.Z from the testfiles/ directory to the util/ directory. Type: uncompress head.r24.Z Execute the following in the util/ directory: cp testfiles/head.r24.Z . uncompress head.r24.Z ./hdf24to8 head.r24 head8.hdf View head8.hdf using any visualization tool available (mosaic, collage, etc). Delete head.r24 and head8.hdf when you are done. rm head.r24 head8.hdf hdfed -- hdf file editor Copy the file storm110.hdf from the testfiles/ directory to the util/ directory. Execute the following in the util/ directory: cp testfiles/storm110.hdf . ./hdfed storm110.hdf Running interactively, type the following commands: info -all prev tag = 300 info -long dump -short The latter two commands should result in the following responses: (6) Image Dimensions : (Tag 300) Ref: 110, Offset: 3459, Length: 20 (bytes) 0: 0 57 0 57 106 110 12: 1 0 0 0 Type help and experiment. Most of the information can be verified with hdfls. Be sure to type 'close' then 'quit' when you are finished and delete storm110.hdf when you are done. rm storm110.hdf Copy ntcheck.hdf from the testfiles/ directory to the util/ directory. Execute the following in the util/ directory: cp testfiles/ntcheck.hdf . ./hdfed ntcheck.hdf ntcheck.hdf will be used as an input file to test the dump function. The command: dump -help displays the list of formats supported by hdfed. Commands: prev tag= ref= and next tag= ref= move you back and forth among the objects. info -all gives the tag and reference numbers for each object. Look at the data in various objects and verify the data type. For example: next tag = 702 ref = 2 You will be past this data object and will receive the message "Reached end of file. Not moved." Repeat the command using prev instead of next. dump -float The first 5 lines of output should read as follows: 0: 0.000000e+00 1.000000e+00 2.000000e+00 3.000000e+00 16: 4.000000e+00 5.000000e+00 6.000000e+00 7.000000e+00 32: 8.000000e+00 9.000000e+00 4.000000e+01 4.100000e+01 48: 4.200000e+01 4.300000e+01 4.400000e+01 4.500000e+01 64: 4.600000e+01 4.700000e+01 4.800000e+01 4.900000e+01 next tag = 702 ref = 6 dump -short The first 5 lines of output should read as follows: 0: 0 1 2 3 4 5 12: 6 7 8 9 6000 6001 24: 6002 6003 6004 6005 6006 6007 36: 6008 6009 12000 12001 12002 12003 48: 12004 12005 12006 12007 12008 12009 The following is a cross reference of ref number and data type if you want to experiment: ref number type 2 DFNT_FLOAT32 3 DFNT_INT8 4 DFNT_UINT8 5 DFNT_INT16 6 DFNT_UINT16 7 DFNT_INT32 8 DFNT_UINT32 Type 'close' and 'quit' when you are finished. Delete ntcheck.hdf. rm ntcheck.hdf ristosds -- converts a series raster image hdf files into a single 3D sds hdf file. Copy the three HDF files storm110.hdf, storm120.hdf, and storm130.hdf from the testfiles/ directory. Execute the following in the util/ directory: cp testfiles/storm110.hdf testfiles/storm120.hdf testfiles/storm130.hdf . ./ristosds storm*.hdf -o storm.hdf Compare storm110.hdf with storm.hdf using the following commands: hdfed storm.hdf prev tag = 702 info -long (*) dump -length 20 -byte close open storm110.hdf prev tag = 302 info -long (**) dump -length 20 -byte close quit * In storm.hdf tag 702's element should be 9747 bytes. ** In storm110.hdf tag 302's element should be 1/3 of 9747, which is 3249. (It is a 57x57 image.) Compare the first few numbers in storm110's image with the first few numbers in storm.hdf's SDS. They should be the same. Remove storm*.hdf from the util/ directory before continuing. rm storm*.hdf hdfpack -- compacts an hdf file Copy the file test.hdf from the testfiles/ directory. Execute the following in the util/ directory: cp testfiles/test.hdf . ./hdfpack test.hdf test.pck ./hdfpack -b test.hdf test.blk Use hdfls to get a listing of test.hdf and test.pck. The only difference between the 2 listings should be that test.pck shouldn't have any special elements and it also shouldn't have any "Linked Block Indicators." ./hdfls test.hdf ./hdfls test.pck The file sizes should be as follows: test.hdf - 11795 test.pck - 6747 test.blk - 7599 Depending on the platform, the file sizes may be one byte off for test.pck and test.blk. Remove test.cdf, test.blk, and test.pck. rm test.hdf test.blk test.pck hdftopal/paltohdf -- converts between a raw palette and an hdf Copy the file palette.raw from the testfiles/ directory. Execute the following in the util/ directory: cp testfiles/palette.raw . ./paltohdf palette.raw palette.hdf ./hdftopal palette.hdf palette.raw.new Use hdfls with the '-l' option to examine palette.hdf. It should have an 'Image Palette-8' and an 'Image Palette,' both with length 768 bytes. They should also have the same reference number. Use the Unix utility 'cmp' or something similar to do a byte-for-byte comparison of palette.raw and palette.raw.new. They should be identical. cmp palette.raw palette.raw.new Remove palette.*. rm palette.* r8tohdf/hdftor8 -- converts between 8-bit raster images and hdf files Copy the files storm*.raw and palette.raw from the testfiles/ directory. Execute the following in the util/ directory: cp testfiles/storm*.raw . ./r8tohdf 57 57 storm.hdf storm*.raw ./r8tohdf 57 57 storm.hdf -p palette.raw -i storm110.raw ./hdftor8 storm.hdf Use hdfls with the '-l' option to examine storm.hdf. It should contain five raster image sets, one of which will be compressed under IMCOMP compression. (If you do not put the '-p' in the second r8tohdf command above, you should get an error message.) The non-compressed raster images should be the same length as the raw raster files. The compressed will be about 25% of that size. Use the Unix utility 'cmp' or something similar to do byte-for-byte comparisons on the raw raster files produced by hdftor8: cmp img001-057.057 storm110.raw cmp img002-057.057 storm120.raw cmp img003-057.057 storm130.raw cmp img004-057.057 storm140.raw There should be one more img* file than you had at the start. One of the img files may not compare exactly with any one of the raw rasters, and the rest will compare with one of the other raw rasters. There is no guarantee about the order of the produced raw rasters, but it is likely they will be produced in the order in which they went into the file, which would be increasing numerical order, with the compressed image last. Remove storm* and img* when you are done. rm storm* img* hdfcomp -- re-compress 8-bit raster hdf file Copy the files storm*.hdf from the testfiles/ directory. Execute: cp testfiles/storm*.hdf . ./hdfcomp allstorms.hdf storm*.hdf ./hdfcomp allcomp.hdf -c storm*.hdf Use hdfls with the '-l' option to examine the two HDF files. The first, allstorms.hdf, should simply hold the raster together in one file, with no compression. You can use hdfls to check the original files. The second file, allcomp.hdf, should hold all the rasters in a compress format. Run-Length Encoding (RLE) compression will result in modest savings - about 10% to 15% for these files. Remove allstorms.hdf and allcomp.hdf. rm storm*.hdf all*.hdf jpeg2hdf/hdf2jpeg Copy the file jpeg_img.jpg from the testfiles/ directory. Execute: cp testfiles/jpeg_img.jpg . ./jpeg2hdf jpeg_img.jpg jpeg.hdf ./hdf2jpeg jpeg.hdf jpeg2.jpg Use hdfls with the '-l' option to examine the HDF file. It should contain one raster image set, which will be compressed with JPEG compression. The JPEG compressed image will be 2922 bytes in size. Use the Unix utility 'cmp' or something similar to do byte-for-byte comparisons on the produced raw raster files by hdf2jpeg. The initial jpeg_img.jpg file should be an exact match for the new jpeg2.jpg file. cmp jpeg_img.jpg jpeg2.jpg Remove jpeg.hdf, jpeg_img.jpg, and jpeg2.jpg. rm jpeg.hdf jpeg_img.jpg jpeg2.jpg fp2hdf -- converts floating point 2D/3D datasets into hdf SDS or RIS. To test this utility you must first create the ASCII and binary test files with the fptest program. Then run fp2hdf on the test files that get created, and analyze the output. Following are the steps to do this: 1. Run fptest to create 2D/3D ASCII/binary test files: ./fptest FILE TYPE DIMENSIONS ---- ---- ---------- ctxtr2 TEXT 3x4 ctxtr3 TEXT 5x3x4 cb32r2 FP32 3x4 cb32r3 FP32 5x3x4 cb64r2 FP64 3x4 cb64r3 FP64 5x3x4 Following are the values of the dimension scales and arrays that get created: row scale values start at 11 and increment by 1 => 11, 12, 13 column scale values start at 21 and increment by 2 => 21, 23, 25, 27 plane scale values start at 51 and increment by 5 => 51, 56, 61, 66, 71 data element value = row scale value + column scale value [+ plane scale value, if rank=3] For an array of [3][4], data values are: 3.200000E+01 3.400000E+01 3.600000E+01 3.800000E+01 3.300000E+01 3.500000E+01 3.700000E+01 3.900000E+01 3.400000E+01 3.600000E+01 3.800000E+01 4.000000E+01 For array of [5][3][4], data values are: 8.300000E+01 8.500000E+01 8.700000E+01 8.900000E+01 8.400000E+01 8.600000E+01 8.800000E+01 9.000000E+01 8.500000E+01 8.700000E+01 8.900000E+01 9.100000E+01 8.800000E+01 9.000000E+01 9.200000E+01 9.400000E+01 8.900000E+01 9.100000E+01 9.300000E+01 9.500000E+01 9.000000E+01 9.200000E+01 9.400000E+01 9.600000E+01 9.300000E+01 9.500000E+01 9.700000E+01 9.900000E+01 9.400000E+01 9.600000E+01 9.800000E+01 1.000000E+02 9.500000E+01 9.700000E+01 9.900000E+01 1.010000E+02 9.800000E+01 1.000000E+02 1.020000E+02 1.040000E+02 9.900000E+01 1.010000E+02 1.030000E+02 1.050000E+02 1.000000E+02 1.020000E+02 1.040000E+02 1.060000E+02 1.030000E+02 1.050000E+02 1.070000E+02 1.090000E+02 1.040000E+02 1.060000E+02 1.080000E+02 1.100000E+02 1.050000E+02 1.070000E+02 1.090000E+02 1.110000E+02 2. Run fp2hdf on the test files that were created: ./fp2hdf ctxtr2 -o ctxtr2.hdf ./fp2hdf ctxtr3 -o ctxtr3.hdf ./fp2hdf cb32r2 -o cb32r2.hdf ./fp2hdf cb32r3 -o cb32r3.hdf ./fp2hdf cb64r2 -o cb64r2.hdf ./fp2hdf cb64r3 -o cb64r3.hdf ./fp2hdf ctxtr2 -o ctxtr2_ris.hdf -raster -e 50 50 ./fp2hdf cb64r2 -o cb64r2_ris.hdf -raster -i 50 50 -f 3. Use hdfls and hdfed to verify the correctness of the output *.hdf files. The rank, dimension size, number type, dimension scale and data values should agree with those listed in item 1 above. You can also use the hdp command. To use hdp from the util/ directory, type: For an SDS: ../../mfhdf/dumper/hdp dumpsds For a raster image: ../../mfhdf/dumper/hdp dumprig Collage can also be used to display the *.hdf files. Display the spreadsheet and compare the values to those in Item 1. For the Raster Images, display the image; the values are interpolated, and will not match the values as show in Item 1. ctxtr2.hdf -- 2D SDS, display spreadsheet ctxtr3.hdf -- 3D SDS, display spreadsheet along z axis. cb32r2.hdf -- 2D SDS, display spreadsheet cb32r3.hdf -- 3D SDS, display spreadsheet along z axis cb64r2.hdf -- 2D SDS, display spreadsheet cb64r3.hdf -- 3D SDS, display spreadsheet along z axis ctxtr2_ris.hdf -- RIS, display image cb64r2_ris.hdf -- 2D SDS, display spreadsheet RIS, display image 4. Remove ctxtr* and cb*. rm ctxtr* cb* *.hdf libhdf4-4.2.10/HDF_ALT/hdf/util/hdfed-w.out10000644000000000000000000001437012421456623014761 0ustar (1) Machine type : (Tag 107) Ref 4369 (2) Raster Image Data : (Tag 302) Ref 110 (3) Raster Image-8 : (Tag 202) Ref 110 (4) Number type : (Tag 106) Ref 110 (5) Image Dimensions-8 : (Tag 200) Ref 110 (6) Image Dimensions : (Tag 300) Ref 110 *(7) Raster Image Group : (Tag 306) Ref 110 (6) Image Dimensions : (Tag 300) Ref: 110, Offset: 3459, Length: 20 (bytes) 0: 0 57 0 57 106 110 12: 1 0 0 0 (1) Version Descriptor : (Tag 30) Ref 1 (2) Scientific Data : (Tag 702) Ref 2 (3) Number type : (Tag 106) Ref 2 (4) SciData dimension record : (Tag 701) Ref 2 (5) SciData scales : (Tag 703) Ref 2 (6) SciData max/min : (Tag 707) Ref 2 (7) Calibration information : (Tag 731) Ref 2 (8) Links related to the dataset : (Tag 710) Ref 2 *(9) Numeric Data Group : (Tag 720) Ref 2 (10) Scientific Data Group : (Tag 700) Ref 2 (11) Scientific Data : (Tag 702) Ref 3 (12) Number type : (Tag 106) Ref 3 (13) SciData dimension record : (Tag 701) Ref 3 (14) SciData scales : (Tag 703) Ref 3 (15) SciData max/min : (Tag 707) Ref 3 (16) Numeric Data Group : (Tag 720) Ref 3 (17) Scientific Data : (Tag 702) Ref 4 (18) Number type : (Tag 106) Ref 4 (19) SciData dimension record : (Tag 701) Ref 4 (20) SciData scales : (Tag 703) Ref 4 (21) SciData max/min : (Tag 707) Ref 4 (22) Numeric Data Group : (Tag 720) Ref 4 (23) Scientific Data : (Tag 702) Ref 5 (24) Number type : (Tag 106) Ref 5 (25) SciData dimension record : (Tag 701) Ref 5 (26) SciData scales : (Tag 703) Ref 5 (27) SciData max/min : (Tag 707) Ref 5 (28) Numeric Data Group : (Tag 720) Ref 5 (29) Scientific Data : (Tag 702) Ref 6 (30) Number type : (Tag 106) Ref 6 (31) SciData dimension record : (Tag 701) Ref 6 (32) SciData scales : (Tag 703) Ref 6 (33) SciData max/min : (Tag 707) Ref 6 (34) Numeric Data Group : (Tag 720) Ref 6 (35) Scientific Data : (Tag 702) Ref 7 (36) Number type : (Tag 106) Ref 7 (37) SciData dimension record : (Tag 701) Ref 7 (38) SciData scales : (Tag 703) Ref 7 (39) SciData max/min : (Tag 707) Ref 7 (40) Numeric Data Group : (Tag 720) Ref 7 (41) Scientific Data : (Tag 702) Ref 8 (42) Number type : (Tag 106) Ref 8 (43) SciData dimension record : (Tag 701) Ref 8 (44) SciData scales : (Tag 703) Ref 8 (45) SciData max/min : (Tag 707) Ref 8 (46) Numeric Data Group : (Tag 720) Ref 8 (2) Scientific Data : (Tag 702) Ref: 2, Offset: 294, Length: 400 (bytes) 0: 0.000000e+000 1.000000e+000 2.000000e+000 3.000000e+000 16: 4.000000e+000 5.000000e+000 6.000000e+000 7.000000e+000 32: 8.000000e+000 9.000000e+000 4.000000e+001 4.100000e+001 48: 4.200000e+001 4.300000e+001 4.400000e+001 4.500000e+001 64: 4.600000e+001 4.700000e+001 4.800000e+001 4.900000e+001 80: 8.000000e+001 8.100000e+001 8.200000e+001 8.300000e+001 96: 8.400000e+001 8.500000e+001 8.600000e+001 8.700000e+001 112: 8.800000e+001 8.900000e+001 1.200000e+002 1.210000e+002 128: 1.220000e+002 1.230000e+002 1.240000e+002 1.250000e+002 144: 1.260000e+002 1.270000e+002 1.280000e+002 1.290000e+002 160: 1.600000e+002 1.610000e+002 1.620000e+002 1.630000e+002 176: 1.640000e+002 1.650000e+002 1.660000e+002 1.670000e+002 192: 1.680000e+002 1.690000e+002 2.000000e+002 2.010000e+002 208: 2.020000e+002 2.030000e+002 2.040000e+002 2.050000e+002 224: 2.060000e+002 2.070000e+002 2.080000e+002 2.090000e+002 240: 2.400000e+002 2.410000e+002 2.420000e+002 2.430000e+002 256: 2.440000e+002 2.450000e+002 2.460000e+002 2.470000e+002 272: 2.480000e+002 2.490000e+002 2.800000e+002 2.810000e+002 288: 2.820000e+002 2.830000e+002 2.840000e+002 2.850000e+002 304: 2.860000e+002 2.870000e+002 2.880000e+002 2.890000e+002 320: 3.200000e+002 3.210000e+002 3.220000e+002 3.230000e+002 336: 3.240000e+002 3.250000e+002 3.260000e+002 3.270000e+002 352: 3.280000e+002 3.290000e+002 3.600000e+002 3.610000e+002 368: 3.620000e+002 3.630000e+002 3.640000e+002 3.650000e+002 384: 3.660000e+002 3.670000e+002 3.680000e+002 3.690000e+002 400: (29) Scientific Data : (Tag 702) Ref: 6, Offset: 1616, Length: 200 (bytes) 0: 0 1 2 3 4 5 12: 6 7 8 9 6000 6001 24: 6002 6003 6004 6005 6006 6007 36: 6008 6009 12000 12001 12002 12003 48: 12004 12005 12006 12007 12008 12009 60: 18000 18001 18002 18003 18004 18005 72: 18006 18007 18008 18009 24000 24001 84: 24002 24003 24004 24005 24006 24007 96: 24008 24009 30000 30001 30002 30003 108: 30004 30005 30006 30007 30008 30009 120: -29536 -29535 -29534 -29533 -29532 -29531 132: -29530 -29529 -29528 -29527 -23536 -23535 144: -23534 -23533 -23532 -23531 -23530 -23529 156: -23528 -23527 -17536 -17535 -17534 -17533 168: -17532 -17531 -17530 -17529 -17528 -17527 180: -11536 -11535 -11534 -11533 -11532 -11531 192: -11530 -11529 -11528 -11527 libhdf4-4.2.10/HDF_ALT/hdf/util/hdfls.c0000644000000000000000000005444612421456623014105 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdfls.c 6013 2014-01-10 21:19:02Z acheng $ */ #include "hdf.h" #include "hfile.h" #define MAXBUFF 8192 dd_t *desc_buf; intn debug = FALSE, /* Debugging is off by default */ ddblocks = FALSE, /* DD block dumping is off by default */ #ifdef DISKBLOCK_DEBUG diskblock_check = FALSE, /* check disk-block boundaries */ #endif /* DISKBLOCK_DEBUG */ sort = TRUE, /* Sorting is on by default */ longout = FALSE, /* short output by default */ labels = FALSE, /* no label info by default */ special = FALSE, /* no special info by default */ groups = FALSE; /* no group info by default */ static intn v_init_done = FALSE; /* whether the Vset interface has been */ /* initialized for this file */ uint16 only_tag = DFTAG_NULL; /* by default print info about all tags */ char *file_name; /* name of current file being listed */ int compare (const void *, const void *); int main (int, char *a[]); void lprint (int32, dd_t *, int); void print_item (int32, dd_t *, intn); void printfilever (int32 file_id); void usage(char *argv[]); int dumpDD(void); int compare(const void * aa, const void * bb) { const dd_t *a = (const dd_t *) aa; const dd_t *b = (const dd_t *) bb; if (a->tag > b->tag) return (1); if (a->tag < b->tag) return (-1); if (a->ref > b->ref) return (1); if (a->ref < b->ref) return (-1); return (0); } void print_item(int32 fid, dd_t *desc_list, intn n) { intn status; int32 len; char *name, *label_str; intn i; /* loop variable*/ printf("\tRef no %6d\t%8d bytes\n", (int)desc_list[n].ref, (int)desc_list[n].length); /* print out labels and annotations if desired */ if (labels) { /* read in all of the labels */ len = DFANgetlablen(file_name, desc_list[n].tag, desc_list[n].ref); if (len != FAIL) { label_str = (char *) HDmalloc((uint32) len + 1); status = DFANgetlabel(file_name, desc_list[n].tag, desc_list[n].ref, label_str, len + 1); label_str[len] = '\0'; if (status == FAIL) printf("\t Unable to read label\n"); else printf("\t Label: %s\n", label_str); HDfree(label_str); } /* read in all of the annotations */ len = DFANgetdesclen(file_name, desc_list[n].tag, desc_list[n].ref); if (len != FAIL) { label_str = (char *) HDmalloc((uint32) len + 1); status = DFANgetdesc(file_name, desc_list[n].tag, desc_list[n].ref, label_str, len + 1); label_str[len] = '\0'; if (status == FAIL) printf("\t Unable to read description\n"); else printf("\t Description: %s\n", label_str); HDfree(label_str); } } if ((special) && (SPECIALTAG(desc_list[n].tag))) { /* print out special info if desired */ sp_info_block_t info; int32 aid, ret; aid = Hstartread(fid, desc_list[n].tag, desc_list[n].ref); if (aid == FAIL) return; ret = HDget_special_info(aid, &info); if ((ret == FAIL) || (info.key == FAIL)) return; switch (info.key) { case SPECIAL_LINKED: printf("\tLinked Block: first %ld standard %ld per unit %ld\n", (long) info.first_len, (long) info.block_len, (long) info.nblocks); break; case SPECIAL_EXT: printf("\tExternal File: path %s offset %ld\n", info.path, (long) info.offset); break; case SPECIAL_COMP: printf("\tCompressed Element: compression type: %s modeling type %s\n", (info.comp_type == COMP_CODE_NONE ? "None" : (info.comp_type == COMP_CODE_RLE ? "Run-Length" : (info.comp_type == COMP_CODE_NBIT ? "N-Bit" : (info.comp_type == COMP_CODE_SKPHUFF ? "Skipping Huffman" : (info.comp_type == COMP_CODE_DEFLATE ? "Deflated" : "Unknown"))))), (info.model_type == COMP_MODEL_STDIO ? "Standard" : "Unknown")); break; case SPECIAL_CHUNKED: printf("\tChunked Element: \n \tlogical size: %ld\n \tnumber of dimensions: %ld \n", (long) info.chunk_size, (long) info.ndims); printf("\tarray of chunk lengths for each dimension:"); for(i=0; i < info.ndims; i++) printf("\t %ld", (long) info.cdims[i]); printf("\n"); HDfree(info.cdims); break; default: printf("\tDo not understand special element type %d\n", info.key); break; } Hendaccess(aid); } if ((groups) && (desc_list[n].tag == DFTAG_RIG || desc_list[n].tag == DFTAG_SDG || desc_list[n].tag == DFTAG_NDG || desc_list[n].tag == DFTAG_VG)) { /* print groups */ if (desc_list[n].tag != DFTAG_VG) { /* groups other than Vgroups */ int32 GroupID; DFdi elmt; printf("\tContents:\n"); if ((GroupID = DFdiread(fid, desc_list[n].tag, desc_list[n].ref)) >= 0) { while (!DFdiget(GroupID, &elmt.tag, &elmt.ref)) { name = (char *) HDgettagsname(elmt.tag); if (!name) printf("\t\t%-30s: (tag=%6d) ref=%d\n", "Unknown Tag", elmt.tag, elmt.ref); else { printf("\t\t%-30s: (tag=%6d) ref=%d\n", name, elmt.tag, elmt.ref); HDfree(name); } /* end else */ } /* end while */ } /* end if */ else printf("\t\tNone!\n"); } /* end if */ else { /* dump Vgroup tag/refs */ int32 ntagrefs; int32 vkey; int32 *tag_arr, *ref_arr; intn i; if (v_init_done == FALSE) { /* init the V routines */ v_init_done = TRUE; Vinitialize(fid); } /* end if */ if ((vkey = Vattach(fid, (int32)desc_list[n].ref, "r")) != FAIL) { ntagrefs = Vntagrefs(vkey); printf("\tContents: %d items\n", (int) ntagrefs); if (ntagrefs > 0) { tag_arr = (int32 *) HDmalloc(sizeof(int32) * (size_t)ntagrefs); ref_arr = (int32 *) HDmalloc(sizeof(int32) * (size_t)ntagrefs); if (tag_arr == NULL || ref_arr == NULL) { HDfree(tag_arr); HDfree(ref_arr); } /* end if */ else { if (Vgettagrefs(vkey, tag_arr, ref_arr, ntagrefs) != FAIL) { for (i = 0; i < ntagrefs; i++) { name = (char *) HDgettagsname((uint16) tag_arr[i]); if (!name) printf("\t\t%-30s: (tag=%6d) ref=%d\n", "Unknown Tag", (int) tag_arr[i], (int) ref_arr[i]); else { printf("\t\t%-30s: (tag=%6d) ref=%d\n", name, (int) tag_arr[i], (int) ref_arr[i]); HDfree(name); } /* end else */ } /* end for */ } /* end if */ HDfree(tag_arr); HDfree(ref_arr); } /* end else */ } /* end if */ Vdetach(vkey); } /* end if */ } /* end else */ } /* dumping groups */ } /* print_item */ void lprint(int32 fid, dd_t *desc_tmp, int num) { intn j = 0, empty = 0; uint16 prev = 0; char *name; while (j < num) { if (desc_tmp[j].tag == DFTAG_NULL) { empty++; j++; continue; /* don't print anything now */ } /* * skip this tag if the user only wants to see some tags and * this is not one of them */ if (only_tag != DFTAG_NULL && only_tag != desc_tmp[j].tag) { j++; continue; } /* ** Find and print text description of this tag */ name = (char *) HDgettagsname(desc_tmp[j].tag); if (!name) printf("\n%-30s: (tag %d)\n", "Unknown Tag", desc_tmp[j].tag); else { printf("\n%-30s: (tag %d)\n", name, desc_tmp[j].tag); HDfree(name); } /* end else */ /* ** Print out reference number information */ prev = desc_tmp[j].tag; if (longout) { while (desc_tmp[j].tag == prev && j < num) { print_item(fid, desc_tmp, j); j++; } } else { printf("\tRef nos:"); while (desc_tmp[j].tag == (uint16) prev && j < num) { printf(" %d", desc_tmp[j].ref); j++; } } } if (empty) printf("\nEmpty (tag %d): %d slots\n", DFTAG_NULL, empty); } /* print the library version of the file */ void printfilever(int32 file_id) { uint32 major, minor, release; char string[LIBVSTR_LEN+1]; if (Hgetfileversion(file_id, &major, &minor, &release, string) == SUCCEED) { string[LIBVSTR_LEN] = '\0'; /* make it a null terminated string */ printf("File library version: "); printf("Major= %u, Minor=%u, Release=%u\nString=%s\n", (unsigned)major, (unsigned)minor, (unsigned)release, string); } else printf("(Does not have libraray version information)\n"); } /* print command usage */ void usage(char *argv[]) { printf("%s, version: 2.0 date: March 1, 1994\n", argv[0]); #ifdef DISKBLOCK_DEBUG printf("%s [-o] [-l] [-d] [-v] [-g] [-s] [-h] [-x] [-t #] fn ....\n", argv[0]); #else /* DISKBLOCK_DEBUG */ printf("%s [-o] [-l] [-d] [-v] [-g] [-s] [-h] [-t #] fn ....\n", argv[0]); #endif /* DISKBLOCK_DEBUG */ printf(" This program displays information about the"); printf(" data elements in\n"); printf(" HDF file.\n"); printf(" -d: offset & length info of each element in the file\n"); printf(" -o: Ordered - display in reference number order\n"); printf(" -l: Long format - display more information\n"); printf(" -v: Verbose format - display text of annotations and labels.\n"); printf(" (Verbose format automatically puts you in Long format).\n"); printf(" -t #: List only information about a specific type of tag.\n"); printf(" For example '%s -t 700 foo.hdf' \n", argv[0]); printf(" will list information only about Scientific Data\n"); printf(" Groups.\n"); printf(" -s: Give detailed descriptions of \"special elements\"\n"); printf(" -g: List items in groups\n"); printf(" -h: Dump DD Block information\n"); #ifdef DISKBLOCK_DEBUG printf(" -x: Check disk block boundaries (also dumps DD blocks)\n"); #endif /* DISKBLOCK_DEBUG */ } /* dump the DD blocks */ int dumpDD(void) { hdf_file_t file_id; /* stdio file ID */ int32 next_block=MAGICLEN; uint8 *ddbuf; /* buffer to store the DD information */ uint8 buf[NDDS_SZ+OFFSET_SZ]; /* buffer to hold DD block info */ uint8 *b; int16 n_dds; /* number of DDs in the current block */ uint16 tag,ref; /* DD tag & ref */ int32 off,len; /* DD offset & length */ intn l; /* local counting variable */ file_id=HI_OPEN(file_name,DFACC_READ); if(OPENERR(file_id)) { printf("Error opening file: %s\n",file_name); return(FAIL); } /* end if */ while(next_block!=0) { if(HI_SEEK(file_id,next_block)==FAIL) { printf("Error seeking in file: %s\n",file_name); return(FAIL); } /* end if */ if(HI_READ(file_id,buf,NDDS_SZ+OFFSET_SZ)==FAIL) { printf("Error reading in file: %s\n",file_name); return(FAIL); } /* end if */ printf("current block: %ld,",(long)next_block); b=buf; INT16DECODE(b,n_dds); INT32DECODE(b,next_block); printf(" size of block: %ld, number of DDs:%d, next block: %ld\n",(long)(NDDS_SZ+OFFSET_SZ+(n_dds*DD_SZ)),(int)n_dds,(long)next_block); ddbuf=(uint8 *)HDmalloc(n_dds*DD_SZ); if(HI_READ(file_id,ddbuf,n_dds*DD_SZ)==FAIL) { printf("Error reading in file: %s\n",file_name); return(FAIL); } /* end if */ b=ddbuf; for(l=0; l= MAXBUFF) fprintf(stderr, "Warning: File may have more DD's than hdfls can display\n"); } HDfree(desc_buf); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/README0000644000000000000000000000247712421456623013516 0ustar In this directory there are hdf utility programs, makefiles, and a subdirectory, testfiles/, which contains all the data files needed to test the utilities. The utilities are: . hdf24to8 -- converts 24-bit raster images to hdf 8-bit images . hdfcomp -- re-compresses an 8-bit raster hdf file . hdfls -- lists basic information about an hdf file . hdfpack -- compacts an hdf file . hdftopal -- extracts a palette from an hdf file . hdftor8 -- extracts 8-bit raster images and palettes from an hdf file . hdfed -- hdf file editor . hdfunpac - unpacks an HDF file by exporting the scientific data elements (DFTAG_SD) to external object elements. This is a utility for external file handling for the parallel I/O interface on the CM5. . paltohdf -- converts a raw palette to hdf . r8tohdf -- converts 8-bit raster images to hdf . ristosds -- converts a series of raster image hdf files into a single 3D sds hdf file. . vmake -- creates vsets . vshow -- dumps out vsets in an hdf file . jpeg2hdf -- converts jpeg images to hdf raster images . hdf2jpeg -- converts hdf raster images to jpeg images . fp2hdf -- converts 2D and 3D floating point data sets into HDF SDS. libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.out2-320000644000000000000000000001455512421456623015044 0ustar (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Scientific Data : (Tag 702) Ref 2 0: 8.300000e+01 8.500000e+01 8.700000e+01 8.900000e+01 16: 8.400000e+01 8.600000e+01 8.800000e+01 9.000000e+01 32: 8.500000e+01 8.700000e+01 8.900000e+01 9.100000e+01 48: 8.800000e+01 9.000000e+01 9.200000e+01 9.400000e+01 64: 8.900000e+01 9.100000e+01 9.300000e+01 9.500000e+01 80: 9.000000e+01 9.200000e+01 9.400000e+01 9.600000e+01 96: 9.300000e+01 9.500000e+01 9.700000e+01 9.900000e+01 112: 9.400000e+01 9.600000e+01 9.800000e+01 1.000000e+02 128: 9.500000e+01 9.700000e+01 9.900000e+01 1.010000e+02 144: 9.800000e+01 1.000000e+02 1.020000e+02 1.040000e+02 160: 9.900000e+01 1.010000e+02 1.030000e+02 1.050000e+02 176: 1.000000e+02 1.020000e+02 1.040000e+02 1.060000e+02 192: 1.030000e+02 1.050000e+02 1.070000e+02 1.090000e+02 208: 1.040000e+02 1.060000e+02 1.080000e+02 1.100000e+02 224: 1.050000e+02 1.070000e+02 1.090000e+02 1.110000e+02 240: (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Scientific Data : (Tag 702) Ref 2 0: 8.300000e+01 8.500000e+01 8.700000e+01 8.900000e+01 16: 8.400000e+01 8.600000e+01 8.800000e+01 9.000000e+01 32: 8.500000e+01 8.700000e+01 8.900000e+01 9.100000e+01 48: 8.800000e+01 9.000000e+01 9.200000e+01 9.400000e+01 64: 8.900000e+01 9.100000e+01 9.300000e+01 9.500000e+01 80: 9.000000e+01 9.200000e+01 9.400000e+01 9.600000e+01 96: 9.300000e+01 9.500000e+01 9.700000e+01 9.900000e+01 112: 9.400000e+01 9.600000e+01 9.800000e+01 1.000000e+02 128: 9.500000e+01 9.700000e+01 9.900000e+01 1.010000e+02 144: 9.800000e+01 1.000000e+02 1.020000e+02 1.040000e+02 160: 9.900000e+01 1.010000e+02 1.030000e+02 1.050000e+02 176: 1.000000e+02 1.020000e+02 1.040000e+02 1.060000e+02 192: 1.030000e+02 1.050000e+02 1.070000e+02 1.090000e+02 208: 1.040000e+02 1.060000e+02 1.080000e+02 1.100000e+02 224: 1.050000e+02 1.070000e+02 1.090000e+02 1.110000e+02 240: (2) Scientific Data : (Tag 702) Ref 2 0: 3.200000e+01 3.400000e+01 3.600000e+01 3.800000e+01 16: 3.300000e+01 3.500000e+01 3.700000e+01 3.900000e+01 32: 3.400000e+01 3.600000e+01 3.800000e+01 4.000000e+01 48: (2) Compressed Image : (Tag 303) Ref 2 0: 137 1 144 60 144 120 137 179 8: 137 1 144 60 144 120 137 179 16: 137 1 144 60 144 120 137 179 24: 137 1 144 60 144 120 137 179 32: 137 1 144 60 144 120 137 179 40: 137 1 144 60 144 120 137 179 48: 137 1 144 60 144 120 137 179 56: 137 1 144 60 144 120 137 179 64: 137 1 144 60 144 120 137 179 72: 137 1 144 60 144 120 137 179 80: 137 1 144 60 144 120 137 179 88: 137 1 144 60 144 120 137 179 96: 137 1 144 60 144 120 137 179 104: 137 31 144 90 144 150 137 209 112: 137 31 144 90 144 150 137 209 120: 137 31 144 90 144 150 137 209 128: 137 31 144 90 144 150 137 209 136: 137 31 144 90 144 150 137 209 144: 137 31 144 90 144 150 137 209 152: 137 31 144 90 144 150 137 209 160: 137 31 144 90 144 150 137 209 168: 137 31 144 90 144 150 137 209 176: 137 31 144 90 144 150 137 209 184: 137 31 144 90 144 150 137 209 192: 137 31 144 90 144 150 137 209 200: 137 31 144 90 144 150 137 209 208: 137 31 144 90 144 150 137 209 216: 137 31 144 90 144 150 137 209 224: 137 31 144 90 144 150 137 209 232: 137 31 144 90 144 150 137 209 240: 137 31 144 90 144 150 137 209 248: 137 31 144 90 144 150 137 209 256: 137 31 144 90 144 150 137 209 264: 137 31 144 90 144 150 137 209 272: 137 31 144 90 144 150 137 209 280: 137 31 144 90 144 150 137 209 288: 137 31 144 90 144 150 137 209 296: 137 60 144 120 144 179 137 239 304: 137 60 144 120 144 179 137 239 312: 137 60 144 120 144 179 137 239 320: 137 60 144 120 144 179 137 239 328: 137 60 144 120 144 179 137 239 336: 137 60 144 120 144 179 137 239 344: 137 60 144 120 144 179 137 239 352: 137 60 144 120 144 179 137 239 360: 137 60 144 120 144 179 137 239 368: 137 60 144 120 144 179 137 239 376: 137 60 144 120 144 179 137 239 384: 137 60 144 120 144 179 137 239 392: 137 60 144 120 144 179 137 239 400: libhdf4-4.2.10/HDF_ALT/hdf/util/he_file.c0000644000000000000000000004206312421456623014370 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: he_file.c 6043 2014-01-21 21:09:03Z acheng $ */ /* --- he-file.c --- file and annotation manipulation routines */ #include "he.h" /* get the prototype for the wait() func. */ #if defined SUN | defined HP9000 | defined IRIX | defined UNIX386 #include #endif /* SUN | HP9000 */ #if defined _POSIX_SOURCE | defined IRIX #include #endif int HEannotate(HE_CMD * cmd) { int i; const char *editor = NULL; int ann = HE_LABEL; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("annotate [-label|-descriptor] [-editor ]"); puts("\tEdit an annotation"); puts("\t-label\t\tEdit label (default)"); puts("\t-descriptor\tEdit descriptor"); puts("\t-editor\t\tUse editor (default EDITOR env value)"); return HE_OK; case HE_LABEL: ann = HE_LABEL; break; case HE_DESCRIPTOR: ann = HE_DESCRIPTOR; break; case HE_EDITOR: if (++i < cmd->argc) editor = cmd->argv[i]; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return annotate(editor, ann); } /* Edit annontations (labels and descriptions) for the * current data element */ int annotate(const char *editor, int ann) { int32 len; /* length of annotation */ char *buf; /* annotation buffer */ char *file; /* tmp file name */ int i; int ret; /* check if any hdf file is open */ if (!fileOpen()) { noFile(); return HE_FAIL; } /* Get the annotation from hdf file */ len = getAnn(ann, currTag, he_desc[he_currDesc].ref, &buf); (void) getTmpName(&file); /* if there is prior annotation, put it into the tmp file */ if (len > 0 && buf != NULL) { /* doctor the buffer a little for the editors */ if (ann == HE_LABEL) buf[len] = '\n'; else len--; writeToFile(file, buf, len + 1); HDfree(buf); } /* make sure some editor will be used * defaults to /usr/bin/ex * but should be made a comple time option */ if (editor == NULL) { editor = (char *) getenv("EDITOR"); if (editor == NULL) editor = "/usr/bin/ex"; } /* Use the fork/wait or system methods if supported, else no support. */ #if defined(H4_HAVE_FORK) && defined(H4_HAVE_WAIT) if (fork() == 0) { /* this is the child */ if (execl(editor, editor, file, 0) == -1) fprintf(stderr, "Error while editing label.\n"); /* return control to the parent if exec fails */ exit(0); } /* the parent waits for the child to die */ wait(0); #elif defined(H4_HAVE_SYSTEM) { char cmd[256]; if (HDstrlen(editor) > 100) { fprintf(stderr, "Environment variable EDITOR too big\n"); } else { sprintf(cmd, "%s %s", editor, file); system(cmd); } } #endif /* read in edited annotation */ len = readFromFile(file, &buf); if (len <= 0 || buf == NULL) return len; /* doctor the buffer for standard format */ if (ann == HE_LABEL) { /* take out control characters from the end */ for (i = len; i >= 0 && !isgraph((int)buf[i]); i--) ; buf[i + 1] = '\0'; } /* forget the tmp file */ removeFile(file); /* write annotation to the hdf file */ ret = putAnn(ann, currTag, he_desc[he_currDesc].ref, buf, len); updateDesc(); /* clean up */ HDfree(buf); return ret; } extern int he_backup; int HEopen(HE_CMD * cmd) { int backup = YES; int i; char *file = NULL; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] != '-') { if (!file) file = cmd->argv[i]; else { fprintf(stderr, "Only one file allowed.\n"); return FAIL; } } else switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("open [-nobackup]"); puts("\t-nobackup\tDon't make a backup for this file."); return HE_OK; case HE_NOBACKUP: backup = 0; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return FAIL; default: irrOpt(cmd->argv[i]); return FAIL; } if (!file) { fprintf(stderr, "Please specify a file name.\n"); return FAIL; } return openFile(file, backup); } /* openFile -- Internal open file routine. */ /* Called by: HEopen, main */ /* Returns: HE_OK and FAIL */ int openFile(char *file, int backup) { ASSERT(file); /* only allow one file at a time */ if (fileOpen()) { fprintf(stderr, "File: %s is still open. Close before reopening.\n", he_file); return FAIL; } /* Make backup first if necessary */ if (backup) { if (backupFile(file) < 0) return FAIL; he_backup = 1; } else he_backup = 0; if (initFile(file) < 0) return FAIL; return HE_OK; } /* HEclose -- close current file */ /* Called by HEdoCmd */ int HEclose(HE_CMD * cmd) { int i; int keep = NO; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] != '-') { unkArg(cmd->argv[i]); return FAIL; } else switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("close [-keep]"); puts("\t-keep\t\tDon't delete the backup file."); return HE_OK; case HE_KEEP: keep = YES; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return FAIL; default: irrOpt(cmd->argv[i]); return FAIL; } return closeFile(keep); } int HErevert(HE_CMD * cmd) { if (cmd->argc < 2) return revert(); if (cmd->argv[1][0] != '-' || findOpt(cmd->argv[1] + 1) == HE_HELP) { puts("revert"); puts("\tDiscard all changes."); return HE_OK; } return HE_FAIL; } int HEwrite(HE_CMD * cmd) { int i; char *file; uint16 ref = 0; uint16 tag = 0; if (cmd->argc < 2 || (cmd->argv[1][0] == '-' && findOpt(cmd->argv[1] + 1) == HE_HELP)) { puts("write [-attachto ]"); puts("\tWrite an element or group into another HDF file"); puts("\t-attchto\tONLY for writing annontations"); puts("\t\t\tWhat element to attach annotation to"); return HE_OK; } file = cmd->argv[1]; for (i = 2; i < cmd->argc; i++) if (cmd->argv[i][0] != '-') file = cmd->argv[i]; else switch (findOpt(cmd->argv[i] + 1)) { case HE_ATTACHTO: tag = (uint16) atoi(cmd->argv[++i]); ref = (uint16) atoi(cmd->argv[++i]); break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } return writ(file, tag, ref); } int writ(char *file, uint16 tag, uint16 ref) { int ret; uint16 ref1; if (!fileOpen()) { noFile(); return HE_FAIL; } if (!HDstrcmp(file, he_file)) { fprintf(stderr, "Cannot write to self.\n"); return HE_FAIL; } /* handle special cases */ if (isAnnot(currTag)) return writeAnnot(file, tag, ref); if (isGrp(currTag)) return writeGrp(file); if (getNewRef(file, &ref1) < 0) return HE_FAIL; ret = writeElt(file, ref1, he_currDesc); return ret; } /* --------------------------- get a r8 from a file ----------------------- */ int HEgetR8(HE_CMD * cmd) { int i; int xdim = 0, ydim = 0; char *image, *pal = NULL; int compress = 0; if (cmd->argc < 4 || (cmd->argv[1][0] == '-' && findOpt(cmd->argv[1] + 1) == HE_HELP)) { puts("getr8 [-palette ] [-raster|-rle|-imcomp]"); puts("\tGet a r8 group from raw files"); puts("\t-palette\tRaw palette file"); puts("\t-raster\t\tNo compression (default)"); puts("\t-rle\t\tRun-length compression"); puts("\t-imcomp\t\tImcomp compression"); return HE_OK; } image = cmd->argv[1]; xdim = atoi(cmd->argv[2]); ydim = atoi(cmd->argv[3]); for (i = 4; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_PALETTE: pal = cmd->argv[++i]; break; case HE_RASTER: compress = 0; break; case HE_RLE: compress = HE_RLE; break; case HE_IMCOMP: compress = HE_IMCOMP; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return FAIL; default: irrOpt(cmd->argv[i]); return FAIL; } else { unkArg(cmd->argv[i]); return FAIL; } if (!image) { fprintf(stderr, "No image file specified.\n"); return FAIL; } if (xdim == 0 || ydim == 0) { fprintf(stderr, "No dimensions specified.\n"); return FAIL; } return getR8(xdim, ydim, image, pal, compress); } /* --------------- generic put routines ---------------------- */ int HEput(HE_CMD * cmd) { int i; int verbose = NO; char *template = (char *)"elt#.@"; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("put [-file ] [-verbose]"); puts("\tPut the raw binary of this element in a file"); puts("\t-file\t\tOut file name (default \"elt#.@\")"); puts("\t-verbose\tOutput diagnostic info"); return HE_OK; case HE_FILE: template = cmd->argv[++i]; break; case HE_VERBOSE: verbose = YES; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return put(template, verbose); } int put(char *template, int verbose) { int length; char *data; int ret; length = (int) getElement(he_currDesc, &data); if ((length <= 0) || (data == NULL)) return HE_FAIL; ret = putWithTempl(template, he_currDesc, length, 1, data, length, verbose); HDfree(data); return ret; } /* ------------------ routines to put an r8 into a file --------------------- */ int HEputR8(HE_CMD * cmd) { int i; int verbose = NO; char *image = "img#.@.%"; char *pal = "pal#"; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("putr8 [-image ] [-palette ] [-verbose]"); puts("\tPut an r8 group into raw image and palette files"); puts("\t-image\t\tImage file name template (default \"img#.@.%\")"); puts("\t-palette\tPalette file name template (default \"pal#\")"); puts("\t-verbose\tTo give output of steps taken"); return HE_OK; case HE_IMAGE: image = cmd->argv[++i]; break; case HE_PALETTE: pal = cmd->argv[++i]; break; case HE_VERBOSE: verbose = YES; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return putR8(image, pal, verbose); } int putR8(char *image, char *pal, int verbose) { int ret; int32 xdim, ydim; char *palette; char *raster; if (!fileOpen()) { noFile(); return HE_FAIL; } if (!isRig(currTag)) { fprintf(stderr, "Current element not an image group."); return HE_FAIL; } getCurrRig(&xdim, &ydim, &palette, &raster); if (raster == NULL) { fprintf(stderr, "Cannot find raster.\n"); return HE_FAIL; } ret = putWithTempl(image, he_currDesc, (int) xdim, (int) ydim, raster, (int) (xdim * ydim), verbose); HDfree(raster); if (ret < 0) return HE_FAIL; if (palette != NULL) { int i; char p[HE_PALETTE_SZ]; for (i = 0; i < HE_COLOR_SZ; i++) { p[i] = *palette++; p[HE_COLOR_SZ + i] = *palette++; p[2 * HE_COLOR_SZ + i] = *palette++; } ret = putWithTempl(pal, he_currDesc, (int) xdim, (int) ydim, p, HE_PALETTE_SZ, verbose); HDfree(palette); if (ret < 0) return HE_FAIL; } return HE_OK; } /* end of he-file.c */ libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.c0000644000000000000000000022116512421456623014150 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * Name: * fp2hdf * * Purpose: * To convert floating point data to HDF Scientific Data Set (SDS) * and/or 8-bit Raster Image Set (RIS8) format, storing the results * in an HDF file. The image data can be scaled about the mean value. * * ----------- * floating point data | | ----------> RIS8 * (SDS, ASCII text, or ---> | fp2hdf | and/or * native floating point) | | ----------> SDS * ----------- * * Synopsis: * fp2hdf -h[elp], OR * fp2hdf [...] -o[utfile] * [-r[aster] [ras_opts ...]] [-f[loat]] * * -h[elp]: * Print a helpful summary of usage, and exit. * * : * Input file(s), containing a single two-dimensional or * three-dimensional floating point array in either ASCII * text, native floating point, or HDF SDS format. If an * HDF file is used for input, it must contain an SDS. * The SDS need only contain a dimension record and the * data, but if it also contains maximum and minimum values * and/or scales for each axis, these will be used. If the * input format is ASCII text or native floating point, see * "Notes" below on how it must be organized. * * -o[utfile] : * Data from one or more input files are stored as one or * more data sets and/or images in one HDF output file, * "outfile". * * -r[aster]: * Store output as a raster image set in the output file. * * -f[loat]: * Store output as a scientific data set in the output file. * This is the default if the "-r" option is not specified. * * ras_opts ... * * -e[xpand] []: * Expand float data via pixel replication to produce the * image(s). "horiz" and "vert" give the horizontal and * vertical resolution of the image(s) to be produced; and * optionally, "depth" gives the number of images or depth * planes (for 3D input data). * * -i[nterp] []: * Apply bilinear, or trilinear, interpolation to the float * data to produce the image(s). "horiz", "vert", and "depth" * must be greater than or equal to the dimensions of the * original dataset. * If max and min are supplied in input file, this option clips * values that are greater than max or less then min, setting * them to the max and min, respectively. * * -p[alfile] : * Store the palette with the image. Get the palette from * "palfile"; which may be an HDF file containing a palette, * or a file containing a raw palette. * * -m[ean] : * If a floating point mean value is given, the image will be * scaled about the mean. The new extremes (newmax and newmin), * as given by: * * newmax = mean + max(abs(max-mean), abs(mean-min)) * newmin = mean - max(abs(max-mean), abs(mean-min)) * * will be equidistant from the mean value. If no mean value * is given, then the mean will be: 0.5 * (max + min) * * Notes: * If the input file format is ASCII text or native floating point, it * must have the following input fields: * * format * nplanes * nrows * ncols * max_value * min_value * [plane1 plane2 plane3 ...] * row1 row2 row3 ... * col1 col2 col3 ... * data1 data2 data3 ... * ... * * Where: * format: * Format designator ("TEXT", "FP32" or "FP64"). * nplanes: * Dimension of the depth axis ("1" for 2D input). * nrows: * Dimension of the vertical axis. * ncols: * Dimension of the horizontal axis. * max_value: * Maximum data value. * min_value: * Minimum data value. * plane1, plane2, plane3, ...: * Scales for depth axis. * row1, row2, row3, ...: * Scales for the vertical axis. * col1, col2, col3, ...: * Scales for the horizontal axis. * data1, data2, data3, ...: * The data ordered by rows, left to right and top * to bottom; then optionally, ordered by planes, * front to back. * * For FP32 and FP64 input format, "format", "nplanes", "nrows", "ncols", * and "nplanes" are native integers; where "format" is the integer * representation of the appropriate 4-character string (0x46503332 for * "FP32" and 0x46503634 for "FP64"). The remaining input fields are * composed of native 32-bit floating point values for FP32 input format, * or native 64-bit floating point values for FP64 input format. * * Source Availability: * This program is in the public domain, and was developed and made * available by the National Center for Supercomputing Applications, * University of Illinois, Urbana-Champaign (ftp.ncsa.uiuc.edu). * * History: * Beta version: 17-May-89 * (by Mike Folk mfolk@ncsa.uiuc.edu) * Revision to put in the mean option: 15-Sep-89 * (by Glen Mortensen gam@inel.gov) * Officially released: 01-Dec-89 * (by NCSA ftp.ncsa.uiuc.edu) * Revision to fix some bugs: 16-Mar-90 * (by Mike Folk mfolk@ncsa.uiuc.edu) * Revision to support 3D and native fp input: 15-May-90 * (by Bob Weaver baw@inel.gov) * Revision to fix bug in interp() : 17-Oct-90 * (by Fred Walsteijn nwalstyn@fys.ruu.n) * Revision to fix bug in interp() : 23-Nov-90 * Now it clips values outside of max and min. * (by Fred Walsteijn nwalstyn@fys.ruu.n) * Revision to start to use HDF 3.2 (and 3.3) library: 22-Jun-93 * Still lots to do to support other number types. * (by Chris Houck chouck@ncsa.uiuc.edu) * */ #include "hdf.h" #include #ifndef MIPSEL #include #endif /* MIPSEL */ #include #include #ifdef _WIN32 #include #include #endif /* * global macros */ #define EXPAND 1 /* -e: expand image with pixel replication */ #define INTERP 2 /* -i: expand image with interpolation */ /* * structure definition for command line options */ struct Options { char **infiles; /* pointer to list of input file names */ char outfile[32]; /* output file name */ char palfile[32]; /* palette file name, if any */ int fcount; /* number of input files */ int to_float; /* float output is desired */ int to_image; /* image output is desired */ int pal; /* output palette with image */ int ctm; /* color transform method: EXPAND or INTERP */ int exh; /* horizontal expansion factor */ int exv; /* vertical expansion factor */ int exd; /* depth expansion factor */ int hres; /* horizontal resolution of output image */ int vres; /* vertical resolution of output image */ int dres; /* depth resolution of output image */ int mean; /* scale image around a mean */ float32 meanval; /* mean value to scale the image around */ }; /* * structure definition for the input data */ struct Input { int is_hdf; /* HDF file format flag */ int is_text; /* ASCII text format flag */ int is_fp32; /* 32-bit native floating point format flag */ int is_fp64; /* 64-bit native floating point format flag */ int rank; /* number of input data dimensions */ int dims[3]; /* input dimensions - ncols, nrows, nplanes */ int is_vscale; /* vertical axis scales in the input */ int is_hscale; /* horizontal axis scales in the input */ int is_dscale; /* depth axis scales in the input */ float32 max; /* maximum value of the data */ float32 min; /* minimum value of the data */ float32 *hscale; /* horizontal scales */ float32 *vscale; /* vertical scales */ float32 *dscale; /* depth scales */ VOIDP data; /* input data */ }; /* * structure definition for the output raster images */ struct Raster { int hres; /* horizontal resolution of the image */ int vres; /* vertical resolution of the image */ int dres; /* depth resolution of the image */ unsigned char *image; }; /* * state table tokens */ #define FILNAME 0 /* filename */ #define OPT_o 1 /* output filename */ #define OPT_r 2 /* convert to image */ #define OPT_e 3 /* expand image via pixel replication */ #define OPT_i 4 /* make interpolated image */ #define NUMBR 5 /* resolution of enlarged image */ #define OPT_p 6 /* palette filename */ #define OPT_f 7 /* convert to float (default) */ #define OPT_h 8 /* request for explanation */ #define OPT_m 9 /* mean to scale around */ #define ERR 20 /* invalid token */ /* * state table for parsing the command line. */ static int state_table[17][10] = { /* token ordering: FILNAME OPT_o OPT_r OPT_e OPT_i NUMBR OPT_p OPT_f OPT_h OPT_m */ /* state 0: start */ {1, ERR, ERR, ERR, ERR, ERR, ERR, ERR, 14, ERR}, /* state 1: input files */ {1, 2, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 2: -o[utfile] */ {3, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 3: outfile */ {ERR, ERR, 4, ERR, ERR, ERR, ERR, 13, ERR, ERR}, /* state 4: -r[aster] */ {ERR, ERR, ERR, 5, 9, ERR, 10, 12, ERR, 15}, /* state 5: -e[xpand] */ {ERR, ERR, ERR, ERR, ERR, 6, ERR, ERR, ERR, ERR}, /* state 6: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, 7, ERR, ERR, ERR, ERR}, /* state 7: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, 8, 10, 12, ERR, 15}, /* state 8: -e[xpand] or -i[nterp] option argument */ {ERR, ERR, ERR, ERR, ERR, ERR, 10, 12, ERR, 15}, /* state 9: -i[nterp] */ {ERR, ERR, ERR, ERR, ERR, 6, ERR, ERR, ERR, ERR}, /* state 10: -p[alfile] */ {11, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 11: palfile */ {ERR, ERR, ERR, 5, 9, ERR, ERR, 12, ERR, 15}, /* state 12: -f[loat] (after -r[aster]) */ {ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 13: -f[loat] */ {ERR, ERR, 4, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 14: -h[elp] */ {ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR, ERR}, /* state 15: -m[ean] */ {ERR, ERR, ERR, ERR, ERR, 16, ERR, ERR, ERR, ERR}, /* state 16: mean */ {ERR, ERR, ERR, 5, 9, ERR, 10, 12, ERR, ERR} }; /* static local functions */ static int gtoken(char *s); static int process(struct Options *opt); static int gfloat(char *infile, FILE * strm, float32 *fp32, struct Input *in); static int gint(char *infile, FILE * strm, int *ival, struct Input *in); static int isnum(char *s); static int gdata(char *infile, struct Input *in, FILE *strm, int *is_maxmin); static int gdimen(char *infile, struct Input *inp, FILE *strm); static int gmaxmin(char *infile, struct Input *in, FILE *strm, int *is_maxmin); static int gscale(char *infile, struct Input *in, FILE *strm, int *is_scale); static int gtype(char *infile, struct Input *in, FILE **strm); static int indexes(float32 *scale, int dim, int *idx, int res); static int interp(struct Input *in, struct Raster *im); static int palette(char *palfile); static int pixrep(struct Input *in, struct Raster *im); /* * functions with non-integer return types */ void help(char *); void mean(struct Input *, struct Options *); void usage(char *); /* * Name: * main * * Purpose: * The driver for "fp2hdf". */ int main(int argc, char *argv[]) { struct Options opt; int i; int outfile_named = FALSE; int token; int state = 0; const char *err1 = "Invalid number of arguments: %d.\n"; const char *err2 = "Error in state table.\n"; const char *err3 = "No output file given.\n"; const char *err4 = "Program aborted.\n"; #ifdef _WIN32 _fmode = _O_BINARY; #endif /* * set 'stdout' and 'stderr' to line-buffering mode */ (void) setvbuf(stderr, (char *) NULL, _IOLBF, 0); (void) setvbuf(stdout, (char *) NULL, _IOLBF, 0); /* * validate the number of command line arguments */ if (argc < 2) { (void) fprintf(stderr, err1, argc); usage(argv[0]); goto err; } opt.to_image = FALSE; /* default: no image */ opt.to_float = FALSE; /* default: make float if no image */ /* Set FALSE here. Will be set TRUE */ /* after confirming image option is not set. */ opt.ctm = EXPAND; /* default: pixel replication */ opt.hres = 0; /* default: no expansion values */ opt.vres = 0; opt.dres = 0; opt.pal = FALSE; /* default: no palette */ opt.mean = FALSE; /* default: no mean given */ opt.fcount = 0; /* to count number of input files */ /* * parse the command line */ for (i = 1; i < argc; i++) { if ((token = gtoken(argv[i])) == ERR) { usage(argv[0]); goto err; } state = state_table[state][token]; switch (state) { case 1: /* counting input files */ opt.fcount++; break; case 2: /* -o found; look for outfile */ break; case 3: /* get outfile name */ (void) HDstrcpy(opt.outfile, argv[i]); outfile_named = TRUE; break; case 4: /* -r found */ opt.to_image = TRUE; break; case 5: /* -e found */ opt.ctm = EXPAND; break; case 6: /* horizontal resolution */ opt.hres = atoi(argv[i]); break; case 7: /* vertical resolution */ opt.vres = atoi(argv[i]); break; case 8: /* depth resolution */ opt.dres = atoi(argv[i]); break; case 9: /* -i found */ opt.ctm = INTERP; break; case 10: /* -p found */ opt.pal = TRUE; break; case 11: /* get pal filename */ (void) HDstrcpy(opt.palfile, argv[i]); break; case 12: /* -f found (after a -r) */ case 13: /* -f found (no -r yet) */ opt.to_float = TRUE; break; case 14: /* -h found; help, then exit */ help(argv[0]); exit(0); case 15: /* -m found */ opt.mean = TRUE; break; case 16: /* mean value */ opt.meanval = (float32)atof(argv[i]); break; case ERR: /* command syntax error */ default: (void) fprintf(stderr, err2); usage(argv[0]); goto err; } } /* * make sure an output file was specified */ if (!outfile_named) { (void) fprintf(stderr, err3); usage(argv[0]); goto err; } if (!opt.to_image) opt.to_float = TRUE; opt.infiles = argv + 1; /* * process the input files */ if (process(&opt)) goto err; return(0); err: (void) fprintf(stderr, err4); return(1); } /* * Name: * gdata * * Purpose: * Get the input data. */ static int gdata(char *infile, struct Input *in, FILE *strm, int *is_maxmin) { int32 i, j, k; float32 *fp32; int32 hdfdims[3]; /* order: ZYX or YX */ int32 len = in->dims[0] * in->dims[1] * in->dims[2]; const char *err1 = "Unable to get input data from file: %s.\n"; /* * extract the input data from the input file */ if (in->is_hdf == TRUE) { /* * hdfdims is ordered: ZYX or YX * in->dims is ordered: XYZ */ if (in->rank == 2) { hdfdims[0] = in->dims[1]; hdfdims[1] = in->dims[0]; } else { hdfdims[0] = in->dims[2]; hdfdims[1] = in->dims[1]; hdfdims[2] = in->dims[0]; } if (DFSDgetdata(infile, in->rank, hdfdims, in->data)) { (void) fprintf(stderr, err1, infile); goto err; } } else { for (k = 0, fp32 = (float32 *) in->data; k < in->dims[2]; k++) { for (j = 0; j < in->dims[1]; j++) { for (i = 0; i < in->dims[0]; i++, fp32++) { if (gfloat(infile, strm, fp32, in)) { (void) fprintf(stderr, err1, infile); goto err; } } } } (void) fclose(strm); } /* * derive the max/min values, if needed */ if (*is_maxmin == FALSE) { in->min = in->max = *(float32 *) in->data; for (i = 1; i < len; i++) { if (((float32 *) in->data)[i] > in->max) in->max = ((float32 *) in->data)[i]; if (((float32 *) in->data)[i] < in->min) in->min = ((float32 *) in->data)[i]; } *is_maxmin = TRUE; } #ifdef DEBUG (void) printf("\tdata:"); for (k = 0, fp32 = in->data; k < in->dims[2]; k++) { (void) printf("\n"); for (j = 0; j < in->dims[1]; j++) { (void) printf("\n\t"); for (i = 0; i < in->dims[0]; i++, fp32++) (void) printf("%E ", *fp32); } } (void) printf("\n\n\n"); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gdimen * * Purpose: * Determine the input data dimensions. */ static int gdimen(char *infile, struct Input *inp, FILE *strm) { int32 hdfdims[3]; /* order: ZYX or YX */ int32 nt; /* number type of input file */ const char *err1 = "Unable to get data dimensions from file: %s.\n"; const char *err2 = "Invalid data rank of %d in file: %s.\n"; const char *err3 = "Dimension(s) is less than '2' in file: %s.\n"; const char *err4 = "Unexpected number type from file: %s.\n"; /* * extract the rank and dimensions of the HDF input file */ if (inp->is_hdf == TRUE) { if (DFSDgetdims(infile, &inp->rank, hdfdims, 3) == FAIL) { (void) fprintf(stderr, err1, infile); goto err; } /* don't know how to deal with other numbers yet */ if (DFSDgetNT(&nt) == FAIL || nt != DFNT_FLOAT32) { (void) fprintf(stderr, err4, infile); goto err; } /* * hdfdims is ordered: ZYX or YX * inp->dims is ordered: XYZ */ if (inp->rank == 2) { inp->dims[0] = hdfdims[1]; inp->dims[1] = hdfdims[0]; inp->dims[2] = 1; } else if (inp->rank == 3) { inp->dims[0] = hdfdims[2]; inp->dims[1] = hdfdims[1]; inp->dims[2] = hdfdims[0]; } else { (void) fprintf(stderr, err2, inp->rank, infile); goto err; } /* * get the rank and dimensions from a TEXT or native floating point * format input file */ } else { if (gint(infile, strm, &inp->dims[2], inp)) { (void) fprintf(stderr, err1, infile); goto err; } if (inp->dims[2] > 1) inp->rank = 3; else inp->rank = 2; if (gint(infile, strm, &inp->dims[1], inp)) { (void) fprintf(stderr, err1, infile); goto err; } if (gint(infile, strm, &inp->dims[0], inp)) { (void) fprintf(stderr, err1, infile); goto err; } } /* * validate dimension sizes */ if ((inp->dims[0] < 2) || (inp->dims[1] < 2)) { (void) fprintf(stderr, err3, infile); goto err; } #ifdef DEBUG (void) printf("\nInput Information ...\n\n"); (void) printf("\trank:\n\n\t%d\n\n", inp->rank); (void) printf("\tdimensions (nplanes,nrows,ncols):\n\n"); (void) printf("\t%d %d %d\n\n", inp->dims[2], inp->dims[1], inp->dims[0]); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gfloat * * Purpose: * Read in a single floating point value from the input stream. The * input format may either be ASCII text , 32-bit native floating point, * or 64-bit native floating point. */ static int gfloat(char *infile, FILE * strm, float32 *fp32, struct Input *in) { float64 fp64=0.0; const char *err1 = "Unable to get 'float' value from file: %s.\n"; if (in->is_text == TRUE) { if (fscanf(strm, "%e", fp32) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else if (in->is_fp32 == TRUE) { if (fread((char *) fp32, sizeof(float32), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } else { if (fread((char *) &fp64, sizeof(float64), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } *fp32 = (float32) fp64; } return (0); err: return (1); } /* * Name: * gint * * Purpose: * Read in a single integer value from the input stream. The input * format may either be ASCII text or a native BCD of type integer. */ static int gint(char *infile, FILE * strm, int *ival, struct Input *in) { const char *err1 = "Unable to get 'int' value from file: %s.\n"; /* * process TEXT-formatted input */ if (in->is_text == TRUE) { if (fscanf(strm, "%d", ival) != 1) { (void) fprintf(stderr, err1, infile); goto err; } /* * process BCD-formatted input */ } else { if (fread((char *) ival, sizeof(int), 1, strm) != 1) { (void) fprintf(stderr, err1, infile); goto err; } } return (0); err: return (1); } /* * Name: * gmaxmin * * Purpose: * Extract the maximum and minimum data values from the input file. */ static int gmaxmin(char *infile, struct Input *in, FILE *strm, int *is_maxmin) { const char *err1 = "Unable to get max/min values from file: %s.\n"; /* * extract the max/min values from the input file */ if (in->is_hdf == TRUE) { if (!DFSDgetrange(&in->max, &in->min)) if (in->max > in->min) *is_maxmin = TRUE; } else { if (gfloat(infile, strm, &in->max, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (gfloat(infile, strm, &in->min, in)) { (void) fprintf(stderr, err1, infile); goto err; } if (in->max > in->min) *is_maxmin = TRUE; } #ifdef DEBUG (void) printf("\tinput maximum/minimum values:\n\n"); (void) printf("\t%E %E\n\n", in->max, in->min); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gscale * * Purpose: * Determine the scale for each axis. */ static int gscale(char *infile, struct Input *in, FILE *strm, int *is_scale) { int i; int32 hdfdims[3]; /* order: ZYX or YX */ const char *err1 = "Unable to get axis scale from file: %s.\n"; *is_scale = TRUE; /* * hdfdims is ordered: ZYX or YX * in->dims is ordered: XYZ */ if (in->rank == 2) { hdfdims[0] = in->dims[1]; hdfdims[1] = in->dims[0]; } else { hdfdims[0] = in->dims[2]; hdfdims[1] = in->dims[1]; hdfdims[2] = in->dims[0]; } /* * extract the scale values from the input file */ if (in->is_hdf == TRUE) { if (in->rank == 2) { if (DFSDgetdimscale(1, hdfdims[0], in->vscale)) { *is_scale = FALSE; for (i = 0; i <= hdfdims[0]; i++) in->vscale[i] = (float32) i; } if (DFSDgetdimscale(2, hdfdims[1], in->hscale)) { *is_scale = FALSE; for (i = 0; i <= hdfdims[1]; i++) in->hscale[i] = (float32) i; } } else { if (DFSDgetdimscale(1, hdfdims[0], in->dscale)) { *is_scale = FALSE; for (i = 0; i <= hdfdims[0]; i++) in->dscale[i] = (float32) i; } if (DFSDgetdimscale(2, hdfdims[1], in->vscale)) { *is_scale = FALSE; for (i = 0; i <= hdfdims[1]; i++) in->vscale[i] = (float32) i; } if (DFSDgetdimscale(3, hdfdims[2], in->hscale)) { *is_scale = FALSE; for (i = 0; i <= hdfdims[2]; i++) in->hscale[i] = (float32) i; } } } else { if (in->rank == 2) { for (i = 0; i < hdfdims[0]; i++) { if (gfloat(infile, strm, &in->vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->vscale[i] = in->vscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat(infile, strm, &in->hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->hscale[i] = in->hscale[i - 1]; } else { for (i = 0; i < hdfdims[0]; i++) { if (gfloat(infile, strm, &in->dscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->dscale[i] = in->dscale[i - 1]; for (i = 0; i < hdfdims[1]; i++) { if (gfloat(infile, strm, &in->vscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->vscale[i] = in->vscale[i - 1]; for (i = 0; i < hdfdims[2]; i++) { if (gfloat(infile, strm, &in->hscale[i], in)) { (void) fprintf(stderr, err1, infile); goto err; } } in->hscale[i] = in->hscale[i - 1]; } } #ifdef DEBUG if (in->rank == 2) { (void) printf("\tscales of the axes (vert,horiz):\n\n\t"); for (i = 0; i < hdfdims[0]; i++) (void) printf("%E ", in->vscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[1]; i++) (void) printf("%E ", in->hscale[i]); } else { (void) printf("\tscales of the axes (depth,vert,horiz):\n\n\t"); for (i = 0; i < hdfdims[0]; i++) (void) printf("%E ", in->dscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[1]; i++) (void) printf("%E ", in->vscale[i]); (void) printf("\n\t"); for (i = 0; i < hdfdims[2]; i++) (void) printf("%E ", in->hscale[i]); } (void) printf("\n\n\n"); #endif /* DEBUG */ return (0); err: return (1); } /* * Name: * gtoken * * Purpose: * Return the token identifier associated with the command line * argument. */ static int gtoken(char *s) { size_t len; int token; const char *err1 = "Illegal argument: %s.\n"; /* * identify the token type */ if (s[0] == '-') { /* option name (or negative number) */ token = ERR; len = HDstrlen(&s[1]); switch (s[1]) { case 'o': if (!HDstrncmp("outfile", &s[1], len)) token = OPT_o; break; case 'r': if (!HDstrncmp("raster", &s[1], len)) token = OPT_r; break; case 'e': if (!HDstrncmp("expand", &s[1], len)) token = OPT_e; break; case 'i': if (!HDstrncmp("interp", &s[1], len)) token = OPT_i; break; case 'p': if (!HDstrncmp("palfile", &s[1], len)) token = OPT_p; break; case 'f': if (!HDstrncmp("float", &s[1], len)) token = OPT_f; break; case 'h': if (!HDstrncmp("help", &s[1], len)) token = OPT_h; break; case 'm': if (!HDstrncmp("mean", &s[1], len)) token = OPT_m; break; default: if (isnum(s)) /* negative number? */ token = NUMBR; } if (token == ERR) (void) fprintf(stderr, err1, s); } else if (isnum(s)) /* positive number */ token = NUMBR; else /* filename */ token = FILNAME; return (token); } /* * Name: * gtype * * Purpose: * Determine the type of the input file (HDF, TEXT, FP32 or FP64). */ static int gtype(char *infile, struct Input *in, FILE **strm) { char buf[8]; const char *err1 = "Unable to open file: %s.\n"; const char *err2 = "Unable to get format tag from file: %s.\n"; const char *err3 = "Invalid file format in file: %s.\n"; /* * determine the input file format */ if (Hishdf(infile)) in->is_hdf = TRUE; else { if ((*strm = fopen(infile, "r")) == NULL) { (void) fprintf(stderr, err1, infile); goto err; } if (fread(buf, 4, 1, *strm) != 1) { (void) fprintf(stderr, err2, infile); goto err; } if (!HDmemcmp("TEXT", buf, 4) || !HDmemcmp("text", buf, 4)) { #ifdef _WIN32 _fmode = _O_TEXT; #endif in->is_text = TRUE; } else { rewind(*strm); if (fread(buf, sizeof(int), 1, *strm) != 1) { (void) fprintf(stderr, err2, infile); goto err; } if (!HDmemcmp("FP32", buf, 4) || !HDmemcmp("fp32", buf, 4)) in->is_fp32 = TRUE; else if (!HDmemcmp("FP64", buf, 4) || !HDmemcmp("fp64", buf, 4)) in->is_fp64 = TRUE; else { (void) fprintf(stderr, err3, infile); goto err; } } } return (0); err: return (1); } /* * Name: * help * * Purpose: * Print a helpful summary of command usage and features. */ void help(char *name) { (void) printf("Name:\n"); (void) printf("\t%s\n\n", name); (void) printf("Purpose:\n"); (void) printf("\tTo convert floating point data to HDF Scientific "); (void) printf("Data Set (SDS)\n"); (void) printf("\tand/or 8-bit Raster Image Set (RIS8) format, "); (void) printf("storing the results\n"); (void) printf("\tin an HDF file. The image data can be scaled "); (void) printf("about a mean value.\n\n"); (void) printf("Version:\n"); (void) printf("\tv1.1 (Apr 30, 1990)\n\n"); (void) printf("Synopsis:\n"); (void) printf("\t%s -h[elp], OR\n", name); (void) printf("\t%s [...] -o[utfile] ", name); (void) printf("\n"); (void) printf("\t\t[-r[aster] [ras_opts ...]] [-f[loat]]\n\n"); (void) printf("\t-h[elp]:\n"); (void) printf("\t\tPrint a helpful summary of usage, and exit.\n\n"); (void) printf("\tinfile(s):\n"); (void) printf("\t\tInput file(s), containing a single "); (void) printf("two-dimensional or\n"); (void) printf("\t\tthree-dimensional floating point array in "); (void) printf("either ASCII\n"); (void) printf("\t\ttext, native floating point, or HDF SDS format. "); (void) printf("If an\n"); (void) printf("\t\tHDF file is used for input, it must contain an "); (void) printf("SDS.\n"); (void) printf("\t\tThe SDS need only contain a dimension record and "); (void) printf("the\n"); (void) printf("\t\tdata, but if it also contains maximum and "); (void) printf("minimum values\n"); (void) printf("\t\tand/or scales for each axis, these will be "); (void) printf("used. If the\n"); (void) printf("\t\tinput format is ASCII text or native floating "); (void) printf("point, see\n"); (void) printf("\t\t\"Notes\" below on how it must be organized.\n\n"); (void) printf("\t-o[utfile] :\n"); (void) printf("\t\tData from one or more input files are stored as "); (void) printf("one or\n"); (void) printf("\t\tmore data sets and/or images in one HDF output "); (void) printf("file,\n\t\t\"outfile\".\n\n"); (void) printf("\t-r[aster]:\n"); (void) printf("\t\tStore output as a raster image set in the "); (void) printf("output file\n\n"); (void) printf("\t-f[loat]:\n"); (void) printf("\t\tStore output as a scientific data set in the "); (void) printf("the output file.\n"); (void) printf("\t\tThis is the default if the \"-r\" option is not "); (void) printf("specified.\n\n"); (void) printf("\tras_opts ...\n\n"); (void) printf("\t-e[xpand] []:\n"); (void) printf("\t\tExpand float data via pixel replication to "); (void) printf("produce the\n"); (void) printf("\t\timage(s). \"horiz\" and \"vert\" give the "); (void) printf("horizontal and\n"); (void) printf("\t\tvertical resolution of the image(s) to be "); (void) printf("produced; and\n"); (void) printf("\t\toptionally, \"depth\" gives the number of "); (void) printf("images or depth\n"); (void) printf("\t\tplanes (for 3D input data).\n\n"); (void) printf("\t-i[nterp] []:\n"); (void) printf("\t\tApply bilinear, or trilinear, interpolation to "); (void) printf("the float\n"); (void) printf("\t\tdata to produce the image(s). \"horiz\", "); (void) printf("\"vert\", and \"depth\"\n"); (void) printf("\t\tmust be greater than or equal to the dimensions "); (void) printf("of the\n"); (void) printf("\t\toriginal dataset.\n\n"); (void) printf("\t-p[alfile] :\n"); (void) printf("\t\tStore the palette with the image. Get the "); (void) printf("palette from\n"); (void) printf("\t\t\"palfile\"; which may be an HDF file containing "); (void) printf("a palette,\n"); (void) printf("\t\tor a file containing a raw palette.\n\n"); (void) printf("\t-m[ean] :\n"); (void) printf("\t\tIf a floating point mean value is given, the "); (void) printf("image will be\n"); (void) printf("\t\tscaled about the mean. The new extremes "); (void) printf("(newmax and newmin),\n"); (void) printf("\t\tas given by:\n\n"); (void) printf("\t\t newmax = mean + max(abs(max-mean), "); (void) printf("abs(mean-min))\n"); (void) printf("\t\t newmin = mean - max(abs(max-mean), "); (void) printf("abs(mean-min))\n\n"); (void) printf("\t\twill be equidistant from the mean value. If "); (void) printf("no mean value\n"); (void) printf("\t\tis given, then the mean will be: 0.5 * (max "); (void) printf("+ min)\n\n"); (void) printf("Notes:\n"); (void) printf("\tIf the input file format is ASCII text or native "); (void) printf("floating point, it\n"); (void) printf("\tmust have the following input fields:\n\n"); (void) printf("\t\tformat\n"); (void) printf("\t\tnplanes\n"); (void) printf("\t\tnrows\n"); (void) printf("\t\tncols\n"); (void) printf("\t\tmax_value\n"); (void) printf("\t\tmin_value\n"); (void) printf("\t\t[plane1 plane2 plane3 ...]\n"); (void) printf("\t\trow1 row2 row3 ...\n"); (void) printf("\t\tcol1 col2 col3 ...\n"); (void) printf("\t\tdata1 data2 data3 ...\n"); (void) printf("\t\t...\n\n"); (void) printf("\tWhere:\n"); (void) printf("\t\tformat:\n"); (void) printf("\t\t\tFormat designator (\"TEXT\", \"FP32\" or "); (void) printf("\"FP64\").\n"); (void) printf("\t\tnplanes:\n"); (void) printf("\t\t\tDimension of the depth axis (\"1\" for 2D "); (void) printf("input).\n"); (void) printf("\t\tnrows:\n"); (void) printf("\t\t\tDimension of the vertical axis.\n"); (void) printf("\t\tncols:\n"); (void) printf("\t\t\tDimension of the horizontal axis.\n"); (void) printf("\t\tmax_value:\n"); (void) printf("\t\t\tMaximum data value.\n"); (void) printf("\t\tmin_value:\n"); (void) printf("\t\t\tMinimum data value.\n"); (void) printf("\t\tplane1, plane2, plane3, ...:\n"); (void) printf("\t\t\tScales for depth axis.\n"); (void) printf("\t\trow1, row2, row3, ...:\n"); (void) printf("\t\t\tScales for the vertical axis.\n"); (void) printf("\t\tcol1, col2, col3, ...:\n"); (void) printf("\t\t\tScales for the horizontal axis.\n"); (void) printf("\t\tdata1, data2, data3, ...:\n"); (void) printf("\t\t\tThe data ordered by rows, left to right and "); (void) printf("top\n"); (void) printf("\t\t\tto bottom; then optionally, ordered by planes,\n"); (void) printf("\t\t\tfront to back.\n\n"); (void) printf("\tFor FP32 and FP64 input format, \"format\", "); (void) printf("\"nplanes\", \"nrows\", \"ncols\",\n"); (void) printf("\tand \"nplanes\" are native integers; where "); (void) printf("\"format\" is the integer\n"); (void) printf("\trepresentation of the appropriate 4-character "); (void) printf("string (0x46503332 for\n"); (void) printf("\t\"FP32\" and 0x46503634 for \"FP64\"). The "); (void) printf("remaining input fields are\n"); (void) printf("\tcomposed of native 32-bit floating point values for "); (void) printf("FP32 input format,\n"); (void) printf("\tor native 64-bit floating point values for FP64 "); (void) printf("input format.\n\n"); (void) printf("Examples:\n"); (void) printf("\tConvert floating point data in \"f1.txt\" to SDS "); (void) printf("format, and store it\n"); (void) printf("\tas an SDS in HDF file \"o1\":\n\n"); (void) printf("\t\t%s f1.txt -o o1\n\n", name); (void) printf("\tConvert floating point data in \"f2.hdf\" to "); (void) printf("8-bit raster format, and\n"); (void) printf("\tstore it as an RIS8 in HDF file \"o2\":\n\n"); (void) printf("\t\t%s f2.hdf -o o2 -r\n\n", name); (void) printf("\tConvert floating point data in \"f3.bin\" to "); (void) printf("8-bit raster format and\n"); (void) printf("\tSDS format, and store both the RIS8 and the SDS "); (void) printf("in HDF file \"o3\":\n\n"); (void) printf("\t\t%s f3.bin -o o3 -r -f\n\n", name); (void) printf("\tConvert floating point data in \"f4\" to a "); (void) printf("500x600 raster image, and\n"); (void) printf("\tstore the RIS8 in HDF file \"o4\". Also store a "); (void) printf("palette from \"palfile\"\n"); (void) printf("\twith the image:\n\n"); (void) printf("\t\t%s f4 -o o4 -r -e 500 600 -p palfile\n\n", name); (void) printf("\tConvert floating point data in \"f5\" to 200 "); (void) printf("planes of 500x600 raster\n"); (void) printf("\timages, and store the RIS8 in HDF file \"o5\". "); (void) printf("Also scale the image\n"); (void) printf("\tdata so that it is centered about a mean value "); (void) printf("of 10.0:\n\n"); (void) printf("\t\t%s f5 -o o5 -r -i 500 600 200 -m 10.0\n", name); return; } /* * Name: * indexes * * Purpose: * For each pixel location along an axis, determine the nearest * scale value neighbor. Return a list of indexes into the scale * array. */ static int indexes(float32 *scale, int dim, int *idx, int res) { int i, j; float32 *midpt; float32 loc; float32 delta; const char *err1 = "Unable to allocate dynamic memory.\n"; /* * determine the midpoints between scale values */ if ((midpt = (float32 *) HDmalloc((size_t) dim * sizeof(float32))) == NULL) { (void) fprintf(stderr, err1); goto err; } for (i = 0; i < dim - 1; i++) midpt[i] = (scale[i] + scale[i + 1]) * (float32)0.5; midpt[dim - 1] = scale[dim - 1] + (scale[dim - 1] - midpt[dim - 2]); /* * determine the distance between pixel locations */ delta = (scale[dim - 1] - scale[0]) / (float32)(res - 1); /* * compute indexes, keeping the index the same until the location * extends beyond the midpoint */ for (i = 1, j = 0, idx[0] = 0, loc = scale[0]; i < res; i++) { loc += delta; idx[i] = idx[i - 1]; while (loc >= midpt[j]) { idx[i] += 1; j += 1; } } /* * free dynamically allocated memory */ HDfree((char *) midpt); return (0); err: return (1); } /* * Name: * interp * * Purpose: * Use a bilinear, or trilinear, interpolation scheme to construct * the raster image(s). * * Bug revision: the line that previously read: * * hratio[i] = ((hrange > 0) ? 1.0 : -1.0) * (in->hscale[j+1] - * loc) / (in->hscale[j+1] - in->hscale[j]); * has been changed to read: * hratio[i] = (in->hscale[j+1] - loc) / (in->hscale[j+1] - in->hscale[j]); * * Similar changes were made to the corresponding lines for * computing vratio and dratio. * * Bug revision: If values occur that are outside the ranges of the * max and min values provided, these values are now "clipped" to * be the same as the max and min, respectively. */ static int interp(struct Input *in, struct Raster *im) { int i, j, k, m; int *hinc, *voff, *doff = NULL; float32 pix; float32 loc; float32 range; float32 ratio; float32 hrange, vrange, drange = (float32)0.0; float32 hdelta, vdelta, ddelta = (float32)0.0; float32 t1, t2, t3, t4, t5, t6; float32 *hratio, *vratio, *dratio = NULL; float32 *pt[8]; unsigned char *ip = im->image; const char *err1 = "Unable to allocate dynamic memory.\n"; /* * determine the range of pixel locations */ range = in->max - in->min; ratio = (float32)237.9 / range; hrange = in->hscale[in->dims[0] - 1] - in->hscale[0]; vrange = in->vscale[in->dims[1] - 1] - in->vscale[0]; if (in->rank == 3) drange = in->dscale[in->dims[2] - 1] - in->dscale[0]; /* * determine the distance between pixel locations */ hdelta = hrange / (float32)(im->hres - 1); vdelta = vrange / (float32)(im->vres - 1); if (in->rank == 3) ddelta = drange / (float32)(im->dres - 1); /* * allocate dynamic memory for the interpolation ratio buffers */ if ((hratio = (float32 *) HDmalloc((size_t) im->hres * sizeof(float32))) == NULL) { (void) fprintf(stderr, err1); goto err; } if ((vratio = (float32 *) HDmalloc((unsigned int) im->vres * sizeof(float32))) == NULL) { (void) fprintf(stderr, err1); goto err; } if (in->rank == 3) { if ((dratio = (float32 *) HDmalloc((unsigned int) im->dres * sizeof(float32))) == NULL) { (void) fprintf(stderr, err1); goto err; } } /* * allocate dynamic memory for the pixel location offset/increment * buffers */ if ((hinc = (int *) HDmalloc((unsigned int) im->hres * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } if ((voff = (int *) HDmalloc((unsigned int) (im->vres + 1) * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } if (in->rank == 3) { if ((doff = (int *) HDmalloc((unsigned int) (im->dres + 1) * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } } /* * compute the interpolation ratios and pixel location * offsets/increments for each axis */ for (i = 0, j = 0; i < im->hres; i++) { loc = hdelta * (float) i + in->hscale[0]; hinc[i] = 0; while ((j < (in->dims[0] - 2)) && ((hrange > (float32)0.0) ? (in->hscale[j + 1] < loc) : (in->hscale[j + 1] > loc))) { hinc[i] += 1; j += 1; } hratio[i] = (in->hscale[j + 1] - loc) / (in->hscale[j + 1] - in->hscale[j]); } for (i = 0, j = 0, voff[0] = 0; i < im->vres; i++) { loc = vdelta * (float) i + in->vscale[0]; while ((j < (in->dims[1] - 2)) && ((vrange > (float32)0.0) ? (in->vscale[j + 1] < loc) : (in->vscale[j + 1] > loc))) { voff[i] += 1; j += 1; } vratio[i] = (in->vscale[j + 1] - loc) / (in->vscale[j + 1] - in->vscale[j]); voff[i + 1] = voff[i]; } if (in->rank == 3) { for (i = 0, j = 0, doff[0] = 0; i < im->dres; i++) { loc = ddelta * (float) i + in->dscale[0]; while ((j < (in->dims[2] - 2)) && ((drange > (float32)0.0) ? (in->dscale[j + 1] < loc) : (in->dscale[j + 1] > loc))) { doff[i] += 1; j += 1; } dratio[i] = (in->dscale[j + 1] - loc) / (in->dscale[j + 1] - in->dscale[j]); doff[i + 1] = doff[i]; } } /* * do the interpolation for each point in the target image, taking * advantage of the fact that the target is evenly spaced along each * axis */ if (in->rank == 2) { for (i = 0; i < im->vres; i++) { pt[0] = (float32 *) in->data + (in->dims[0] * voff[i]); pt[1] = pt[0] + 1; pt[2] = pt[0] + in->dims[0]; pt[3] = pt[2] + 1; for (j = 0; j < im->hres; j++) { for (m = 0; m < 4; m++) pt[m] += hinc[j]; t1 = *pt[2] - ((*pt[2] - *pt[0]) * vratio[i]); t2 = *pt[3] - ((*pt[3] - *pt[1]) * vratio[i]); pix = t2 - ((t2 - t1) * hratio[j]); if (pix > in->max) pix = in->max; /* clip (bug fix) */ if (pix < in->min) pix = in->min; /* ditto */ *ip++ = (unsigned char)((ratio * (pix - in->min)) + (float32)1.5); } } } else { /* rank == 3 */ for (i = 0; i < im->dres; i++) { for (j = 0; j < im->vres; j++) { pt[0] = (float32 *) in->data + (in->dims[0] * voff[j]) + (in->dims[0] * in->dims[1] * doff[i]); pt[1] = pt[0] + 1; pt[2] = pt[0] + in->dims[0]; pt[3] = pt[2] + 1; pt[4] = pt[0] + (in->dims[0] * in->dims[1]); pt[5] = pt[4] + 1; pt[6] = pt[4] + in->dims[0]; pt[7] = pt[6] + 1; for (k = 0; k < im->hres; k++) { for (m = 0; m < 8; m++) pt[m] += hinc[k]; t1 = *pt[4] - ((*pt[4] - *pt[0]) * dratio[i]); t2 = *pt[6] - ((*pt[6] - *pt[2]) * dratio[i]); t3 = *pt[5] - ((*pt[5] - *pt[1]) * dratio[i]); t4 = *pt[7] - ((*pt[7] - *pt[3]) * dratio[i]); t5 = t2 - ((t2 - t1) * vratio[j]); t6 = t4 - ((t4 - t3) * vratio[j]); pix = t6 - ((t6 - t5) * hratio[k]); if (pix > in->max) pix = in->max; /* clip (bug fix) */ if (pix < in->min) pix = in->min; /* ditto */ *ip++ = (unsigned char)((ratio * (pix - in->min)) + (float32)1.5); } } } } /* * free dynamically allocated memory */ HDfree((char *) hratio); HDfree((char *) vratio); if (in->rank == 3) HDfree((char *) dratio); HDfree((char *) hinc); HDfree((char *) voff); if (in->rank == 3) HDfree((char *) doff); return (0); err: return (1); } /* * Name: * isnum * * Purpose: * Determine whether or not the string is representative of an * integer or floating point number. If it is, a non-zero value * is returned. A leading (-) to denote sign is acceptable. */ static int isnum(char *s) { char *cp; int rval = FALSE; /* * check to see if its a floating point number */ cp = s; (void) strtod(s, &cp); if ((*cp == '\0') && (cp != s)) rval = TRUE; /* * check to see if its an integer number (radix 8, 10, or 16) */ else { cp = s; (void) strtol(s, &cp, 0); if ((*cp == '\0') && (cp != s)) rval = TRUE; } return (rval); } /* * Name: * mean * * Purpose: * Reset the maximum and minimum data values to be symmetric about * the user-specified mean value. */ void mean(struct Input *in,struct Options * opt) { float32 delta, delta_max, delta_min; delta_max = (float32)fabs((double)(in->max - opt->meanval)); delta_min = (float32)fabs((double)(opt->meanval - in->min)); delta = (delta_max > delta_min) ? delta_max : delta_min; in->max = opt->meanval + delta; in->min = opt->meanval - delta; return; } /* * Name: * palette * * Purpose: * Process the (user specified) palette input file. */ static int palette(char *palfile) { unsigned char *color; unsigned char pal[1024], red[256], green[256], blue[256]; FILE *strm; int i; const char *err1 = "Unable to get palette from file: %s.\n"; const char *err2 = "Unable to open palette file: %s.\n"; const char *err3 = "Unable to set default palette.\n"; /* * extract a palette from an HDF file */ if (Hishdf(palfile)) { if (DFPgetpal(palfile, pal)) { (void) fprintf(stderr, err1, palfile); goto err; } /* * read in a raw palette file */ } else { if ((strm = fopen(palfile, "r")) == NULL) { (void) fprintf(stderr, err2, palfile); goto err; } if (fread((char *) red, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } else if (fread((char *) green, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } else if (fread((char *) blue, 1, 256, strm) != 256) { (void) fprintf(stderr, err1, palfile); goto err; } (void) fclose(strm); /* * interleave the R,G,B values */ color = pal; for (i = 0; i < 256; i++) { *color++ = red[i]; *color++ = green[i]; *color++ = blue[i]; } } /* * set up the palette as the default for subsequent images */ if (DFR8setpalette(pal)) { (void) fprintf(stderr, err3); goto err; } return (0); err: return (1); } /* * Name: * pixrep * * Purpose: * Expand the image(s) to the desired resolution using pixel * replication. */ static int pixrep(struct Input *in, struct Raster *im) { int *hidx, *vidx, *didx; int ovidx, odidx; int dummy; int32 i, j, k; float32 *dp; float32 range; float32 ratio; unsigned char *ip, *plane, *row, *pix; const char *err1 = "Unable to dynamically allocate memory.\n"; dp = (float32 *) in->data; ip = im->image; range = in->max - in->min; ratio = (float32)237.9 / range; /* * determine the scale indexes of the horizontal pixel locations */ if ((hidx = (int *) HDmalloc((unsigned int) (im->hres + 1) * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } if (indexes(in->hscale, in->dims[0], hidx, im->hres)) goto err; /* * determine the scale indexes of the vertical pixel locations */ if ((vidx = (int *) HDmalloc((unsigned int) (im->vres + 1) * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } if (indexes(in->vscale, in->dims[1], vidx, im->vres)) goto err; /* * determine the scale indexes of the depth plane locations */ dummy = 0; didx = &dummy; if (in->rank == 3) { if ((didx = (int *) HDmalloc((unsigned int) (im->dres + 1) * sizeof(int))) == NULL) { (void) fprintf(stderr, err1); goto err; } if (indexes(in->dscale, in->dims[2], didx, im->dres)) goto err; } /* * compute the expanded image */ if ((pix = (unsigned char *) HDmalloc((unsigned int) (in->dims[0] + 1))) == NULL) { (void) fprintf(stderr, err1); goto err; } for (k = 0, odidx = didx[0] - 1; k < im->dres; k++) { /* * construct a new depth plane */ if (didx[k] > odidx) { for (j = 0, ovidx = vidx[0] - 1; j < im->vres; j++) { /* * construct a new row */ if (vidx[j] > ovidx) { for (i = 0; i < in->dims[0]; i++) pix[i] = (unsigned char )((ratio * (*dp++ - in->min)) + (float32)1.5); for (i = 0; i < im->hres; i++) *ip++ = pix[hidx[i]]; /* * repeat the previous row */ } else { row = ip - im->hres; for (i = 0; i < im->hres; i++) *ip++ = *row++; } ovidx = vidx[j]; } /* * repeat the previous depth plane */ } else { plane = ip - (im->hres * im->vres); for (j = 0; j < im->vres; j++) for (i = 0; i < im->hres; i++) *ip++ = plane[(j * im->hres) + i]; } odidx = didx[k]; } /* * free dynamically allocated space */ HDfree((char *) hidx); HDfree((char *) vidx); if (in->rank == 3) HDfree((char *) didx); HDfree((char *) pix); return (0); err: return (1); } /* * Name: * process * * Purpose: * Process each input file. */ static int process(struct Options *opt) { struct Input in; struct Raster im; unsigned char *ip; int i, j; int is_maxmin; int is_scale; int32 hdfdims[3]; /* order: ZYX or YX */ int32 len; FILE *strm; int32 hdf; #ifdef DEBUG int h, v, d; #endif /* DEBUG */ const char *err1 = "Error creating HDF output file: %s.\n"; const char *err2 = "Unable to dynamically allocate memory.\n"; const char *err3a = "Warning: cannot make image smaller using -e "; const char *err3b = "option.\n\t %s resolution will be made the "; const char *err3c = "same as %s dimension of the\n\t dataset, "; const char *err3d = "which is: %d.\n\n"; const char *err4 = "Unable to write an RIS8 to the HDF output file\n"; const char *err5 = "Unable to write an SDS to the HDF output file\n"; /* * process the palette file (if one was specified) */ if (opt->pal == TRUE) if (palette(opt->palfile)) goto err; /* * create the HDF output file */ if ((hdf = Hopen(opt->outfile, DFACC_CREATE, 0)) == FAIL) { (void) fprintf(stderr, err1, opt->outfile); goto err; } (void) Hclose(hdf); /* * main loop: process input files, one per pass */ for (i = 0; i < opt->fcount; i++) { /* * initialize key parameters */ in.is_hdf = FALSE; in.is_text = FALSE; in.is_fp32 = FALSE; in.is_fp64 = FALSE; is_maxmin = FALSE; is_scale = FALSE; /* * get the file type, input data dimensions, and input data * max/min values */ if (gtype(opt->infiles[i], &in, &strm)) goto err; if (gdimen(opt->infiles[i], &in, strm)) goto err; if (gmaxmin(opt->infiles[i], &in, strm, &is_maxmin)) goto err; /* * get the scale for each axis */ if ((in.hscale = (float32 *) HDmalloc((size_t) (in.dims[0] + 1) * sizeof(float32))) == NULL) { (void) fprintf(stderr, err2); goto err; } if ((in.vscale = (float32 *) HDmalloc((size_t) (in.dims[1] + 1) * sizeof(float32))) == NULL) { (void) fprintf(stderr, err2); goto err; } if (in.rank == 3) { if ((in.dscale = (float32 *) HDmalloc((size_t) (in.dims[2] + 1) * sizeof(float32))) == NULL) { (void) fprintf(stderr, err2); goto err; } } if (gscale(opt->infiles[i], &in, strm, &is_scale)) goto err; /* * get the input data */ len = in.dims[0] * in.dims[1] * in.dims[2]; if ((in.data = (VOIDP) HDmalloc((size_t) len * sizeof(float32))) == NULL) { (void) fprintf(stderr, err2); goto err; } if (gdata(opt->infiles[i], &in, strm, &is_maxmin)) goto err; /* * put the input data in the HDF output file, in SDS format */ if (opt->to_float == TRUE) { /* * hdfdims is ordered: ZYX or YX * in.dims is ordered: XYZ */ if (in.rank == 2) { hdfdims[0] = in.dims[1]; hdfdims[1] = in.dims[0]; } else { hdfdims[0] = in.dims[2]; hdfdims[1] = in.dims[1]; hdfdims[2] = in.dims[0]; } if (DFSDsetNT(DFNT_FLOAT32)) { (void) fprintf(stderr, err5); goto err; } if (is_scale == TRUE) { if (DFSDsetdims(in.rank, hdfdims)) { (void) fprintf(stderr, err5); goto err; } if (DFSDsetrange(&in.max, &in.min)) { (void) fprintf(stderr, err5); goto err; } if (in.rank == 2) { if (DFSDsetdimscale(1, hdfdims[0], in.vscale)) { (void) fprintf(stderr, err5); goto err; } if (DFSDsetdimscale(2, hdfdims[1], in.hscale)) { (void) fprintf(stderr, err5); goto err; } } else { if (DFSDsetdimscale(1, hdfdims[0], in.dscale)) { (void) fprintf(stderr, err5); goto err; } if (DFSDsetdimscale(2, hdfdims[1], in.vscale)) { (void) fprintf(stderr, err5); goto err; } if (DFSDsetdimscale(3, hdfdims[2], in.hscale)) { (void) fprintf(stderr, err5); goto err; } } } if (DFSDadddata(opt->outfile, in.rank, hdfdims, in.data)) { (void) fprintf(stderr, err5); goto err; } } /* * put the input data in the HDF output file, in RIS8 format */ if (opt->to_image == TRUE) { /* * allocate a buffer for the output image */ im.hres = (opt->hres == 0) ? in.dims[0] : opt->hres; if ((im.hres < in.dims[0]) && (opt->ctm == EXPAND)) { (void) fprintf(stderr, err3a); (void) fprintf(stderr, err3b, "Horiz."); (void) fprintf(stderr, err3c, "horiz."); (void) fprintf(stderr, err3d, in.dims[0]); im.hres = in.dims[0]; opt->hres = in.dims[0]; } im.vres = (opt->vres == 0) ? in.dims[1] : opt->vres; if ((im.vres < in.dims[1]) && (opt->ctm == EXPAND)) { (void) fprintf(stderr, err3a); (void) fprintf(stderr, err3b, "Vert."); (void) fprintf(stderr, err3c, "vert."); (void) fprintf(stderr, err3d, in.dims[1]); im.vres = in.dims[1]; opt->vres = in.dims[1]; } im.dres = 1; if (in.rank == 3) { im.dres = (opt->dres == 0) ? in.dims[2] : opt->dres; if ((im.dres < in.dims[2]) && (opt->ctm == EXPAND)) { (void) fprintf(stderr, err3a); (void) fprintf(stderr, err3b, "Depth"); (void) fprintf(stderr, err3c, "depth"); (void) fprintf(stderr, err3d, in.dims[2]); im.dres = in.dims[2]; opt->dres = in.dims[2]; } } len = im.hres * im.vres * im.dres; if ((im.image = (unsigned char *) HDmalloc((unsigned int) len)) == NULL) { (void) fprintf(stderr, err2); goto err; } /* * reset max/min symmetrically about the mean value */ if (opt->mean == TRUE) mean(&in, opt); /* * perform pixel replication or interpolation */ if (opt->ctm == EXPAND) { if (pixrep(&in, &im)) goto err; } else { /* INTERP */ if (interp(&in, &im)) goto err; } len = im.hres * im.vres; for (j = 0, ip = im.image; j < im.dres; j++, ip += len) { if (DFR8addimage(opt->outfile, ip, im.hres, im.vres, DFTAG_RLE)) { (void) fprintf(stderr, err4); goto err; } } #ifdef DEBUG (void) printf("Output Raster Information ...\n\n"); (void) printf("\tresolution (horiz,vert,[depth]):\n\n"); if (in.rank == 2) (void) printf("\t%d %d\n\n", im.hres, im.vres); else (void) printf("\t%d %d %d\n\n", im.hres, im.vres, im.dres); if (opt->mean == TRUE) { (void) printf("\tadjusted max/min values:\n\n"); (void) printf("\t%f %f\n\n", in.max, in.min); } (void) printf("\tcolor index values:"); for (d = 0, ip = im.image; d < im.dres; d++) { (void) printf("\n"); for (v = 0; v < im.vres; v++) { (void) printf("\n"); for (h = 0; h < im.hres; h++, ip++) (void) printf("\t%d", *ip); } } (void) printf("\n"); #endif /* DEBUG */ } /* * free dynamically allocated space */ HDfree((char *) in.hscale); HDfree((char *) in.vscale); if (in.rank == 3) HDfree((char *) in.dscale); HDfree((char *) in.data); if (opt->to_image == TRUE) HDfree((char *) im.image); } return (0); err: return (1); } /* * Name: * usage * * Purpose: * Print a summary of command usage. */ void usage(char *name) { (void) fprintf(stderr, "\nUsage:\t%s -h[elp], OR\n", name); (void) fprintf(stderr, "\t%s [...] ", name); (void) fprintf(stderr, "-o[utfile] [options...]\n\n"); (void) fprintf(stderr, "\toptions...\n"); (void) fprintf(stderr, "\t -r[aster]:\n"); (void) fprintf(stderr, "\t produce an image. Could be "); (void) fprintf(stderr, "followed by:\n"); (void) fprintf(stderr, "\t -e[xpand] "); (void) fprintf(stderr, "[]:\n"); (void) fprintf(stderr, "\t resolution with pixel "); (void) fprintf(stderr, "replication\n"); (void) fprintf(stderr, "\t -i[nterp] "); (void) fprintf(stderr, "[]:\n"); (void) fprintf(stderr, "\t resolution with interpolation\n"); (void) fprintf(stderr, "\t -p[alfile] :\n"); (void) fprintf(stderr, "\t include palette from palfile\n"); (void) fprintf(stderr, "\t -m[ean] :\n"); (void) fprintf(stderr, "\t mean value to scale image "); (void) fprintf(stderr, "around\n"); (void) fprintf(stderr, "\t -f[loat]:\n"); (void) fprintf(stderr, "\t produce floating point data\n\n"); return; } libhdf4-4.2.10/HDF_ALT/hdf/util/h4redeploy.in0000755000000000000000000000712612421456623015244 0ustar #! /bin/sh ## ## Copyright by the Board of Trustees of the University of Illinois. ## All rights reserved. ## ## Update HDF4 compiler tools after the HDF4 software has been installed ## in a new location. ## For help page, use "h5redeploy -help" # Function definitions # show help page usage() { # A wonderfully informative "usage" message. echo "usage: $prog_name [OPTIONS]" echo " OPTIONS:" echo " -help|help This help message" echo " -echo Show all the shell commands executed" echo " -force No prompt, just do it" echo " -prefix=DIR New directory to find HDF4 lib/ and include/" echo " subdirectories [default: current directory]" echo " -tool=TOOL Tool to update. TOOL must be in the current" echo " directory and writable. [default: $h4tools]" echo " -show Show the commands without executing them" echo " " exit 1 } # display variable values dump_vars(){ echo "====Showing all variable values=====" echo prefix=$prefix echo h4tools=$h4tools echo "====End Showing=====" } # show actions to be taken show_action() { echo "Update the following tools because they are now installed at a new directory" for t in $foundtools; do echo "${t}:" echo " current setting=`sed -e '/^prefix=/s/prefix=//p' -e d $t`" echo " new setting="\""$prefix"\" done } # Report Error message ERROR() { echo "***ERROR***" echo "$1" } # Main # # Initialization h4tools="h4cc h4fc" # possible hdf4 tools foundtools= # tools found and will be modified fmode= # force mode, default is off prefix=`(cd ..;pwd)` # Parse options for arg in $@ ; do case "$arg" in -prefix=*) prefix="`expr "$arg" : '-prefix=\(.*\)'`" ;; -echo) set -x ;; -show) SHOW="echo" ;; -tool=*) h4tools="`expr "$arg" : '-tool=\(.*\)'`" ;; -help|help) usage ;; -force) fmode=yes ;; *) ERROR "Unknown Option($arg)" usage exit 1 ;; esac done # Sanity checks if [ ! -d $prefix ]; then ERROR "prefix($prefix) is not an existing directory" exit 1 fi for x in $h4tools; do if [ -f $x ]; then foundtools="$foundtools $x" if [ ! -w $x ]; then ERROR "h5tool($x) is not writable" exit 1 fi fi done if [ -z "$foundtools" ]; then ERROR "found no tools to modify" exit 1 fi # Show actions to be taken and get consent show_action # Ask confirmation unless fmode is on if [ x-$fmode = x- ]; then echo "Continue? (yes/no)" read ansx ans=`echo $ansx | tr "[A-Z]" "[a-z]"` if [ x-$ans != x-yes ]; then echo ABORT. No tools changed. exit 1 fi fi # Create the update commands CMDFILE=/tmp/h5redeploy.$$ touch $CMDFILE chmod 0600 $CMDFILE echo "/^prefix/c" >> $CMDFILE echo prefix=\""$prefix"\" >> $CMDFILE echo . >> $CMDFILE (echo w; echo q) >> $CMDFILE # Update them if [ "$SHOW" = "echo" ]; then echo "===Update commands are:====" cat $CMDFILE echo "===End Update commands=====" fi for t in $foundtools; do echo Update $t ... COMMAND="ed - $t" if [ "$SHOW" = "echo" ]; then echo $COMMAND else $COMMAND < $CMDFILE fi done # Cleanup rm -f $CMDFILE exit 0 # Some possible future features to add # CCBASE - Name of the alternative C compiler # CLINKERBASE - Name of the alternative linker # LDFLAGS - Path to different libraries your application will link with # (this path should include the path to the zlib library) # LIBS - Libraries your application will link with libhdf4-4.2.10/HDF_ALT/hdf/util/hdfgifwr.c0000644000000000000000000003247012421456623014576 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* * hdfgifwr.c - handles writing of GIF files. * * Contains: * hdfWriteGIF(fp, pic, ptype, w, h, rmap, gmap, bmap, numcols, colorstyle, * comment) * * Note: slightly brain-damaged, in that it'll only write non-interlaced * GIF files (in the interests of speed, or something) * */ /***************************************************************** * Portions of this code Copyright (C) 1989 by Michael Mauldin. * Permission is granted to use this file in whole or in * part for any purpose, educational, recreational or commercial, * provided that this copyright notice is retained unchanged. * This software is available to all free of charge by anonymous * FTP and in the UUNET archives. * * * Authors: Michael Mauldin (mlm@cs.cmu.edu) * David Rowley (mgardi@watdcsu.waterloo.edu) * * Based on: compress.c - File compression ala IEEE Computer, June 1984. * * Spencer W. Thomas (decvax!harpo!utah-cs!utah-gr!thomas) * Jim McKie (decvax!mcvax!jim) * Steve Davies (decvax!vax135!petsd!peora!srd) * Ken Turkowski (decvax!decwrl!turtlevax!ken) * James A. Woods (decvax!ihnp4!ames!jaw) * Joe Orost (decvax!vax135!petsd!joe) *****************************************************************/ #include #include "gif.h" #include #include typedef BYTE byte; typedef long int count_int; /* indicies into conv24MB */ #define CONV24_8BIT 0 #define CONV24_24BIT 1 #define CONV24_SEP1 2 #define CONV24_LOCK 3 #define CONV24_SEP2 4 #define CONV24_FAST 5 #define CONV24_SLOW 6 #define CONV24_BEST 7 #define CONV24_MAX 8 /* values 'picType' can take */ #define PIC8 CONV24_8BIT #define PIC24 CONV24_24BIT /* MONO returns total intensity of r,g,b components */ #define MONO(rd,gn,bl) (((rd)*11 + (gn)*16 + (bl)*5) >> 5) /*.33R+ .5G+ .17B*/ static int Width, Height; static int curx, cury; static long CountDown; static int Interlace; #ifdef __STDC__ static void putword(int, FILE *); static void compress(int, FILE *, byte *, int); static void output(int); static void cl_block(void); static void cl_hash(count_int); static void char_init(void); static void char_out(int); static void flush_char(void); #else static void putword(), compress(), output(), cl_block(), cl_hash(); static void char_init(), char_out(), flush_char(); #endif static byte pc2nc[256],r1[256],g1[256],b1[256]; void xvbzero(s, len) char *s; int len; { for ( ; len>0; len--) *s++ = 0; } /*************************************************************/ int hdfWriteGIF(fp, pic, ptype, w, h, rmap, gmap, bmap, pc2ncmap, numcols, colorstyle, BitsPerPixel) FILE *fp; byte *pic; int ptype, w,h; byte *rmap, *gmap, *bmap , *pc2ncmap; int numcols, colorstyle; int BitsPerPixel; { int RWidth, RHeight; int LeftOfs, TopOfs; int ColorMapSize, InitCodeSize, Background; int i; byte *pic8; pic8 = pic; Interlace = 0; Background = 0; for (i=0; i<256; i++) { pc2nc[i] = pc2ncmap[i]; r1[i] = rmap[i]; g1[i] = gmap[i]; b1[i] = bmap[i]; } ColorMapSize = 1 << BitsPerPixel; RWidth = Width = w; RHeight = Height = h; LeftOfs = TopOfs = 0; CountDown = w * h; /* # of pixels we'll be doing */ if (BitsPerPixel <= 1) InitCodeSize = 2; else InitCodeSize = BitsPerPixel; curx = cury = 0; if (!fp) { fprintf(stderr, "WriteGIF: file not open for writing\n" ); return (1); } compress(InitCodeSize+1, fp, pic8, w*h); if (ferror(fp)) return -1; return (0); } /******************************/ static void putword(w, fp) int w; FILE *fp; { /* writes a 16-bit integer in GIF order (LSB first) */ fputc(w &0xff, fp); fputc((w>>8)&0xff,fp); } /***********************************************************************/ static unsigned long cur_accum = 0; static int cur_bits = 0; #define MAXCODE(n_bits) ( (1 << (n_bits)) - 1) #define min(a,b) ((a>b) ? b : a) #define XV_BITS 12 /* BITS was already defined on some systems */ #define MSDOS 1 #define HSIZE 5003 /* 80% occupancy */ typedef unsigned char char_type; static int n_bits; /* number of bits/code */ static int maxbits = XV_BITS; /* user settable max # bits/code */ static int maxcode; /* maximum code, given n_bits */ static int maxmaxcode = 1 << XV_BITS; /* NEVER generate this */ static count_int htab [HSIZE]; static unsigned short codetab [HSIZE]; #define HashTabOf(i) htab[i] #define CodeTabOf(i) codetab[i] static int hsize = HSIZE; /* for dynamic table sizing */ /* * To save much memory, we overlay the table used by compress() with those * used by decompress(). The tab_prefix table is the same size and type * as the codetab. The tab_suffix table needs 2**BITS characters. We * get this from the beginning of htab. The output stack uses the rest * of htab, and contains characters. There is plenty of room for any * possible stack (stack used to be 8000 characters). */ #define tab_prefixof(i) CodeTabOf(i) #define tab_suffixof(i) ((char_type *)(htab))[i] #define de_stack ((char_type *)&tab_suffixof(1<= 0 ) goto probe; nomatch: output(ent); out_count++; ent = c; if ( free_ent < maxmaxcode ) { CodeTabOf (i) = free_ent++; /* code -> hashtable */ HashTabOf (i) = fcode; } else cl_block(); } /* Put out the final code */ output(ent); out_count++; output(EOFCode); } /***************************************************************** * TAG( output ) * * Output the given code. * Inputs: * code: A n_bits-bit integer. If == -1, then EOF. This assumes * that n_bits =< (long)wordsize - 1. * Outputs: * Outputs code to the file. * Assumptions: * Chars are 8 bits long. * Algorithm: * Maintain a BITS character long buffer (so that 8 codes will * fit in it exactly). Use the VAX insv instruction to insert each * code in turn. When the buffer fills up empty it and start over. */ static unsigned long masks[] = { 0x0000, 0x0001, 0x0003, 0x0007, 0x000F, 0x001F, 0x003F, 0x007F, 0x00FF, 0x01FF, 0x03FF, 0x07FF, 0x0FFF, 0x1FFF, 0x3FFF, 0x7FFF, 0xFFFF }; static void output(code) int code; { cur_accum &= masks[cur_bits]; if (cur_bits > 0) cur_accum |= ((long)code << cur_bits); else cur_accum = code; cur_bits += n_bits; while( cur_bits >= 8 ) { char_out( (unsigned int) (cur_accum & 0xff) ); cur_accum >>= 8; cur_bits -= 8; } /* * If the next entry is going to be too big for the code size, * then increase it, if possible. */ if (free_ent > maxcode || clear_flg) { if( clear_flg ) { maxcode = MAXCODE (n_bits = g_init_bits); clear_flg = 0; } else { n_bits++; if ( n_bits == maxbits ) maxcode = maxmaxcode; else maxcode = MAXCODE(n_bits); } } if( code == EOFCode ) { /* At EOF, write the rest of the buffer */ while( cur_bits > 0 ) { char_out( (unsigned int)(cur_accum & 0xff) ); cur_accum >>= 8; cur_bits -= 8; } flush_char(); fflush( g_outfile ); #ifdef FOO if( ferror( g_outfile ) ) FatalError("unable to write GIF file"); #endif } } /********************************/ static void cl_block () /* table clear for block compress */ { /* Clear out the hash table */ cl_hash ( (count_int) hsize ); free_ent = ClearCode + 2; clear_flg = 1; output(ClearCode); } /********************************/ static void cl_hash(hsize) /* reset code table */ register count_int hsize; { register count_int *htab_p = htab+hsize; register long i; register long m1 = -1; i = hsize - 16; do { /* might use Sys V memset(3) here */ *(htab_p-16) = m1; *(htab_p-15) = m1; *(htab_p-14) = m1; *(htab_p-13) = m1; *(htab_p-12) = m1; *(htab_p-11) = m1; *(htab_p-10) = m1; *(htab_p-9) = m1; *(htab_p-8) = m1; *(htab_p-7) = m1; *(htab_p-6) = m1; *(htab_p-5) = m1; *(htab_p-4) = m1; *(htab_p-3) = m1; *(htab_p-2) = m1; *(htab_p-1) = m1; htab_p -= 16; } while ((i -= 16) >= 0); for ( i += 16; i > 0; i-- ) *--htab_p = m1; } /****************************************************************************** * * GIF Specific routines * ******************************************************************************/ /* * Number of characters so far in this 'packet' */ static int a_count; /* * Set up the 'byte output' routine */ static void char_init() { a_count = 0; } /* * Define the storage for the packet accumulator */ static char accum[ 256 ]; /* * Add a character to the end of the current packet, and if it is 254 * characters, flush the packet to disk. */ static void char_out(c) int c; { accum[ a_count++ ] = c; if( a_count >= 254 ) flush_char(); } /* * Flush the packet to disk, and reset the accumulator */ static void flush_char() { if( a_count > 0 ) { fputc( a_count, g_outfile ); fwrite( accum, 1, a_count, g_outfile ); a_count = 0; } } libhdf4-4.2.10/HDF_ALT/hdf/util/ristosds.out10000644000000000000000000000102212421456623015303 0ustar (2) Scientific Data : (Tag 702) Ref: 2, Offset: 294, Length: 9747 (bytes) 0: 82 82 81 81 80 79 79 79 8: 78 78 78 78 78 78 78 78 16: 78 78 78 78 (2) Raster Image Data : (Tag 302) Ref: 110, Offset: 202, Length: 3249 (bytes) 0: 82 82 81 81 80 79 79 79 8: 78 78 78 78 78 78 78 78 16: 78 78 78 78 libhdf4-4.2.10/HDF_ALT/hdf/util/he.h0000644000000000000000000001133012421456623013367 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* $Id: he.h 6036 2014-01-20 17:28:01Z acheng $ */ /* he.h -- header file for HDFedit */ #include "hdf.h" #include #include /* #include */ #include /* * the following may not exist on all systems it should define stuff * like fork(), and other system calls */ #if defined (IBM6000) || defined (SUN) #include #endif /* Unix std libs */ #if defined HAVE_UNISTD_H #include #endif #ifdef DEBUG #define ASSERT(e) {if(!(e)){fprintf(stderr,"Assertion failed: file %s, line %d\n",__FILE__,__LINE__);exit(1);}} #define NOT_REACHED() {fprintf(stderr,"Should not reach: file %s, line %d\n",__FILE__,__LINE__);exit(1);} #else #define ASSERT(e) /* empty assertion */ #define NOT_REACHED() /* empty */ #endif /* DEBUG */ #define HE_ARG_SZ 30 #define HE_DESC_SZ 8192 #define HE_COLOR_SZ 256 #define HE_PALETTE_SZ 768 #define HE_BUF_SZ 1024 /* return status */ #define HE_OK 0 #define HE_FAIL -1 #define YES 1 #define NO 0 /* options */ #define HE_AMBIG -2 #define HE_NOTFOUND -1 #define HE_ALL 1 #define HE_BACKUP 2 #define HE_HELP 3 #define HE_LONGOUT 4 #define HE_NOBACKUP 5 #define HE_REMOTE 6 #define HE_VERBOSE 7 #define HE_FILE 8 #define HE_KEEP 9 #define HE_POSITION 10 #define HE_EXPANSION 11 #define HE_LARGE 12 #define HE_RDONLY 13 #define HE_BATCH 14 #define HE_OFFSET 15 #define HE_ASCII 16 #define HE_OCTAL 17 #define HE_HEX 18 #define HE_DECIMAL 19 #define HE_FLOAT 20 #define HE_DIMS 21 #define HE_IMAGE 22 #define HE_PALETTE 23 #define HE_RASTER 24 #define HE_RLE 25 #define HE_IMCOMP 26 #define HE_DOGROUP 27 #define HE_LENGTH 28 #define HE_ATTACHTO 29 #define HE_LABEL 30 #define HE_DESCRIPTOR 31 #define HE_EDITOR 32 #define HE_BYTE 33 #define HE_SHORT 34 #define HE_DOUBLE 35 #define HE_RAW 36 #define HE_USHORT 37 #define HE_UDECIMAL 38 /* label bits for predicate keys */ #define HE_PREDICATE 0x8000 #define HE_COMPARATOR 0x4000 /* predicate keys */ #define HEK_NULL 0 #define HEK_TAG 1 #define HEK_REF 2 #define HEK_EQUAL 3 #define HEK_NEQUAL 4 #define HEK_GRT 5 #define HEK_GEQUAL 6 #define HEK_LESST 7 #define HEK_LEQUAL 8 #define HEK_ALL 9 #define HEK_SUCCEED 10 #define HEK_FAIL 11 #define HEK_GROUP 12 /* argument type */ #define HE_NUMBER 1 #define HE_STRING 2 typedef int (*HE_FUNC) (void *); typedef struct he_cmd { int argc; char *argv[HE_ARG_SZ]; HE_FUNC func; struct he_cmd *sub, *next; } HE_CMD; typedef struct he_pred { int key, Comp, argType; union { int i; char *str; } arg; } HE_PRED; typedef struct DFdesc_str { uint16 tag, ref; int32 length, offset; } DFdesc , *DFdesc_ptr; typedef struct tag_ref_struct { uint16 tag; uint16 ref; } tag_ref , *tag_ref_ptr; typedef struct he_group { int desc; int size; tag_ref_ptr ddList; } HE_GROUP; extern int he_status; extern int he_numDesc; extern int he_currDesc; extern int he_numGrp; extern int he_remote; extern char *he_file; extern DFdesc he_desc[]; extern HE_GROUP he_grp[]; /* * ----------------- Convenient Macros --------------------- */ #define unkOpt(st) fprintf(stderr,"Unknown option: %s.\n",st) #define unkArg(st) fprintf(stderr,"Unknown argument: %s.\n",st) #define ambigOpt(st) fprintf(stderr,"Ambigupus option: %s.\n",st) #define irrOpt(st) fprintf(stderr,"Irrelevant option: %s.\n",st) #define noFile() fprintf(stderr,"No file is opened.\n") #define isAnnot(t) (t == DFTAG_DIL || t == DFTAG_DIA) #define isRig(t) (t == DFTAG_RIG) #define currTag (he_desc[he_currDesc].tag) #define currGrpNo (desc2Grp(he_currDesc)) #define currDesc ((DFdesc*) he_desc + he_currDesc) #include "he_proto.h" /* end of he.h */ libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.input1-320000644000000000000000000000064412421456623015365 0ustar open cb64r2.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r3.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr3.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r2_ris.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2_ris.hdf prev tag = 30 next tag = 303 info dump -byte close quit libhdf4-4.2.10/HDF_ALT/hdf/util/vshow.c0000644000000000000000000006026012421456623014142 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char *RcsId[] = "@(#)$Revision: 6043 $"; #endif /* $Id: vshow.c 6043 2014-01-21 21:09:03Z acheng $ */ /***************************************************************************** * * vshow.c * * HDF Vset utility. * * vshow: dumps out vsets in a hdf file. * * Usage: vshow file [+|-[n]] * the '+' option indicates a full dump * the '-' option indicates a full dump with one record per line * 'n' means only for the nth vdata. * * ******************************************************************************/ #define VSET_INTERFACE #include "hdf.h" static int condensed; static int32 vsdumpfull (int32 vs); static int32 fmtbyte (char *x); static int32 fmtchar (char *x); #ifdef UNUSED static int32 fmtint (char *x); #endif /* UNUSED */ static int32 fmtfloat (char *x); static int32 fmtulong (char *x); static int32 fmtlong (char *x); static int32 fmtshort (char *x); static int32 fmtdouble (char *x); static intn dumpattr (int32 vid, intn full, intn isvs); int main(int ac, char **av) { int32 vg, vgt; int32 vgotag, vgoref; int32 vs; int32 vsotag, vsoref; HFILEID f; int32 vgid = -1; int32 vsid = -1; int32 vsno = 0; int32 vstag; int32 i, t, nvg, n, ne, nv, interlace, vsize; int32 *lonevs; /* array to store refs of all lone vdatas */ int32 nlone; /* total number of lone vdatas */ uint16 name_len; /* length of vgroup's name or classname */ char fields[VSFIELDMAX*FIELDNAMELENMAX]; char *vgname, *vgclass; char vsname[VSNAMELENMAX]; char vsclass[VSNAMELENMAX]; char *name; int32 fulldump = 0, full; if (ac == 3) if (av[2][0] == '-' || av[2][0] == '+') { sscanf(&(av[2][1]), "%d", (int *)&vsno); if (vsno == 0) { printf("FULL DUMP\n"); } else { printf("FULL DUMP on vs#%ld\n", (long) vsno); } fulldump = 1; if (av[2][0] == '+') condensed = 1; else condensed = 0; } if (ac < 2) { printf("%s: dumps HDF vsets info from hdf file\n", av[0]); printf("usage: %s file [+|-[n]]\n", av[0]); printf("\t + gives full dump of all vdatas.\n"); printf("\t - gives full dump of all vdatas one record per line.\n"); printf("\t n gives full dump of vdata with id n.\n"); exit(0); } if ((f = Hopen(av[1], DFACC_READ, 0)) == FAIL) { printf("\nFile (%s) failed to open.\n", av[1]); exit(0); } Vstart(f); printf("\nFILE: %s\n", av[1]); nvg = 0; while ((vgid = Vgetid(f, vgid)) != -1) { vg = Vattach(f, vgid, "r"); if (vg == FAIL) { printf("cannot open vg id=%d\n", (int) vgid); } /* get the length of the vgname to allocate enough space */ Vgetnamelen(vg, &name_len); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgname == NULL) { printf("Error: Out of memory. Cannot allocate %d bytes space. Quit.\n", name_len+1); return(0); } Vinquire(vg, &n, vgname); if (HDstrlen(vgname) == 0) HDstrcat(vgname, "NoName"); vgotag = VQuerytag(vg); vgoref = VQueryref(vg); /* get the length of the vgname to allocate enough space */ Vgetclassnamelen(vg, &name_len); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgclass == NULL) { printf("Error: Out of memory. Cannot allocate %d bytes space. Quit.\n", name_len+1); return(0); } Vgetclass(vg, vgclass); if (HDstrlen(vgclass) == 0) HDstrcat(vgclass, "NoClass"); printf("\nvg:%d <%d/%d> (%s {%s}) has %d entries:\n", (int) nvg, (int) vgotag, (int) vgoref, vgname, vgclass, (int) n); dumpattr(vg, fulldump, 0); for (t = 0; t < Vntagrefs(vg); t++) { Vgettagref(vg, t, &vstag, &vsid); /* ------ V D A T A ---------- */ if (vstag == VSDESCTAG) { vs = VSattach(f, vsid, "r"); if (vs == FAIL) { printf("cannot open vs id=%d\n", (int) vsid); continue; } VSinquire(vs, &nv, &interlace, fields, &vsize, vsname); vsotag = VSQuerytag(vs); vsoref = VSQueryref(vs); if (HDstrlen(vsname) == 0) HDstrcat(vsname, "NoName"); VSgetclass(vs, vsclass); printf(" vs:%d <%d/%d> nv=%d i=%d fld [%s] vsize=%d (%s {%s})\n", (int) t, (int) vsotag, (int) vsoref, (int) nv, (int) interlace, fields, (int) vsize, vsname, vsclass); if (fulldump && vsno == 0) vsdumpfull(vs); else if (fulldump && vsno == vsoref) vsdumpfull(vs); /* dump attributes */ full = fulldump && (vsno == 0 || vsno == vsoref); dumpattr(vs, full, 1); VSdetach(vs); } else if (vstag == DFTAG_VG) { /* ------ V G R O U P ----- */ vgt = Vattach(f, vsid, "r"); if (vgt == FAIL) { printf("cannot open vg id=%d\n", (int) vsid); continue; } /* get length of the vgclass to allocate enough space */ Vgetclassnamelen(vgt, &name_len); vgclass = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgclass == NULL) { printf("Error: Out of memory. Cannot allocate %d bytes space. Quit.\n", name_len+1); return(0); } Vgetclass(vg, vgclass); if (HDstrlen(vgclass) == 0) HDstrcat(vgclass, "NoClass"); /* get length of the vgname to allocate enough space */ Vgetnamelen(vgt, &name_len); vgname = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgname == NULL) { printf("Error: Out of memory. Cannot allocate %d bytes space. Quit.\n", name_len+1); return(0); } Vinquire(vgt, &ne, vgname); if (HDstrlen(vgname) == 0) HDstrcat(vgname, "NoName"); vgotag = VQuerytag(vgt); vgoref = VQueryref(vgt); Vgetclass(vgt, vgclass); printf(" vg:%d <%d/%d> ne=%d (%s {%s})\n", (int) t, (int) vgotag, (int) vgoref, (int) ne, vgname, vgclass); dumpattr(vg, fulldump, 0); Vdetach(vgt); } else { name = HDgettagsname((uint16) vstag); if (!name) printf(" --:%d <%d/%d> %s\n", (int) t, (int) vstag, (int) vsid, "Unknown Tag"); else { printf(" --:%d <%d/%d> %s\n", (int) t, (int) vstag, (int) vsid, name); HDfree(name); } /* end else */ } } /* while */ Vdetach(vg); nvg++; } /* while */ if (nvg == 0) { printf("No vgroups in this file\n"); } nlone = VSlone(f, NULL, 0); if (nlone > 0) { printf("Lone vdatas:\n"); if (NULL == (lonevs = (int32 *) HDmalloc(sizeof(int) * (size_t)nlone))) { printf("%s: File has %d lone vdatas but ", av[0], (int) nlone); printf("cannot alloc lonevs space. Quit.\n"); exit(0); } VSlone(f, lonevs, nlone); for (i = 0; i < nlone; i++) { vsid = lonevs[i]; if (FAIL == (vs = VSattach(f, lonevs[i], "r"))) { printf("cannot open vs id=%d\n", (int) vsid); continue; } VSinquire(vs, &nv, &interlace, fields, &vsize, vsname); if (HDstrlen(vsname) == 0) HDstrcat(vsname, "NoName"); vsotag = VSQuerytag(vs); vsoref = VSQueryref(vs); VSgetclass(vs, vsclass); printf("L vs:%d <%d/%d> nv=%d i=%d fld [%s] vsize=%d (%s {%s})\n", (int) vsid, (int) vsotag, (int) vsoref, (int) nv, (int) interlace, fields, (int) vsize, vsname, vsclass); if (fulldump && vsno == 0) vsdumpfull(vs); else if (fulldump && vsno == vsoref) vsdumpfull(vs); full = fulldump && ( vsno == 0 || vsno == vsoref); dumpattr(vs, full, 1); VSdetach(vs); } HDfree(lonevs); } Vend(f); Hclose(f); return (0); } /* main */ static int32 cn = 0; /* ------------------------------------------------ */ /* printing functions used by vsdumpfull(). */ static int32 fmtbyte(char *x) { cn += printf("%02x ", *x); return (1); } static int32 fmtchar(char *x) { cn++; putchar(*x); return (1); } #ifdef UNUSED static int32 fmtint(char *x) { int i = 0; HDmemcpy(&i, x, sizeof(int32)); cn += printf("%d", i); return (1); } #endif /* UNUSED */ static int32 fmtfloat(char *x) { float f = (float)0.0; HDmemcpy(&f, x, sizeof(float32)); cn += printf("%f", f); return (1); } static int32 fmtulong(char *x) { unsigned l = 0; HDmemcpy(&l, x, sizeof(int32)); cn += printf("%u", l); return (1); } static int32 fmtlong(char *x) { long l = 0; HDmemcpy(&l, x, sizeof(int32)); cn += printf("%ld", l); return (1); } static int32 fmtshort(char *x) { short s = 0; HDmemcpy(&s, x, sizeof(int16)); cn += printf("%d", s); return (1); } static int32 fmtdouble(char *x) { double d = 0.0; HDmemcpy(&d, x, sizeof(float64)); cn += printf("%f", d); return (1); } #define BUFFER 1000000 /* ------------------------------------------------ */ static int32 vsdumpfull(int32 vs) { char fields[VSFIELDMAX*FIELDNAMELENMAX]; char vsname[100]; int32 j, i, t, interlace, nv, vsize; uint8 *bb, *b; DYN_VWRITELIST *w; int32 (*fmtfn[VSFIELDMAX]) (char *); int32 off[VSFIELDMAX]; int32 order[VSFIELDMAX]; int32 bufsize; /* size of the buffer we are using */ int32 chunk; /* number of rows that will fit in the buffer */ int32 done; /* number of rows we have done */ int32 count; /* number of rows to do this time through the loop */ int32 nf; /* number of fields in this Vdata */ VSinquire(vs, &nv, &interlace, fields, &vsize, vsname); if (nv * vsize > BUFFER) { bufsize = BUFFER; chunk = BUFFER / vsize; } else { bufsize = nv * vsize; chunk = nv; } done = 0; bb = (uint8 *) HDmalloc(bufsize); if (bb == NULL) { printf("vsdumpfull malloc error\n"); return (0); } VSsetfields(vs, fields); w = vswritelist(vs); nf = w->n; for (i = 0; i < w->n; i++) { printf("%d: fld [%s], type=%d, order=%d\n", (int) i, w->name[i], w->type[i], w->order[i]); order[i] = (int32)w->order[i]; off[i] = DFKNTsize(w->type[i] | DFNT_NATIVE); switch (w->type[i]) { case DFNT_CHAR: case DFNT_UCHAR: fmtfn[i] = fmtchar; break; case DFNT_UINT8: case DFNT_INT8: fmtfn[i] = fmtbyte; break; case DFNT_UINT16: case DFNT_INT16: fmtfn[i] = fmtshort; break; case DFNT_UINT32: fmtfn[i] = fmtulong; break; case DFNT_INT32: fmtfn[i] = fmtlong; break; case DFNT_FLOAT32: fmtfn[i] = fmtfloat; break; case DFNT_FLOAT64: fmtfn[i] = fmtdouble; break; default: fprintf(stderr, "sorry, type [%d] not supported\n", (int) w->type[i]); break; } } cn = 0; done = count = 0; while (done != nv) { /* figure out how many to read this time */ if ((nv - done) > chunk) count = chunk; else count = nv - done; /* read and update bookkeeping */ VSread(vs, bb, count, interlace); done += count; b = bb; /* print out the data */ for (j = 0; j < count; j++) { for (i = 0; i < nf; i++) { for (t = 0; t < order[i]; t++) { (fmtfn[i]) ((char *)b); b += off[i]; putchar(' '); cn++; } putchar(' '); cn++; } /* * if condensed == TRUE put as many as possible on one line else * put one record per line */ if (condensed) { if (cn > 65) { putchar('\n'); cn = 0; } } else { putchar('\n'); } } } /* ============================================ */ HDfree(bb); printf("\n"); return (1); } /* vsdumpfull */ /* ------------------------------------------------ */ static intn dumpattr(int32 vid, intn full, intn isvs) { intn i, j, k, cn=0; VDATA *vs; vsinstance_t *vs_inst; VGROUP *vg; vginstance_t *v; intn ret, nattrs, f_nattrs, alloc_flag=0; vs_attr_t *vs_alist; vg_attr_t *v_alist; int32 i_type, i_count, i_size, off; uint8 *buf=NULL, *ptr; int32 (*fmtfn)(char *) =NULL; char name[FIELDNAMELENMAX+1]; intn ret_val = SUCCEED; uint8 attrbuf[BUFFER]; if (isvs) { vs_inst = (vsinstance_t *)HAatom_object(vid); if (vs_inst == NULL) { printf(">>>dumpattr:failed in getting vdata instance.\n"); ret_val = FAIL; goto done; } vs = vs_inst->vs; if (vs == NULL) { printf(">>>dumpattr:Failed in getting vs. \n"); ret_val = FAIL; goto done; } if (0 == (nattrs = VSnattrs(vid))) { printf(" 0 attributes.\n"); ret_val = SUCCEED; goto done; } vs_alist = vs->alist; if (!full) { printf(" %d attributes: attr_tag/ref attr_of_field\n", nattrs); for (i=0; ifindex != (int)_HDF_VDATA) printf(" %d: %d/%d %d\n", i, vs_alist->atag, vs_alist->aref,(int)vs_alist->findex); else printf(" %d: %d/%d %s\n", i, vs_alist->atag, vs_alist->aref, "VDATA"); vs_alist++; } ret_val = SUCCEED; goto done; } printf("%d attributes:\n", nattrs); for (j=-1; jwlist.n; j++) { int32 temp; temp = (j == -1) ? (int)_HDF_VDATA : j; f_nattrs = VSfnattrs(vid, temp); if (f_nattrs == 0) continue; /* no attr for this field */ if (j == -1) printf(" Attrs of vdata:\n"); else printf(" Attrs of field %d:\n", j); for (i = 0; i>>dumpattr: failed in getting attr info.\n"); continue; } printf(" %d: name=%s type=%d count=%d size=%d\n", i, name, (int)i_type, (int)i_count, (int)i_size); if (i_size > BUFFER) { if (NULL == (buf = HDmalloc(i_size))) { printf(">>>dumpattr:can't allocate buf.\n"); continue; } alloc_flag = 1; if ( FAIL==VSgetattr(vid, temp, i, buf)) { printf(">>>dympattr: failed in VSgetattr.\n"); continue; } } else { if ( FAIL==VSgetattr(vid, temp, i, attrbuf)) { printf(">>>dympattr: failed in VSgetattr.\n"); continue; } } /* format output */ switch (i_type) { case DFNT_CHAR: case DFNT_UCHAR: fmtfn = fmtchar; break; case DFNT_UINT8: case DFNT_INT8: fmtfn = fmtbyte; break; case DFNT_UINT16: case DFNT_INT16: fmtfn = fmtshort; break; case DFNT_UINT32: fmtfn = fmtulong; break; case DFNT_INT32: fmtfn = fmtlong; break; case DFNT_FLOAT32: fmtfn = fmtfloat; break; case DFNT_FLOAT64: fmtfn = fmtdouble; break; default: printf(">>>dumpattr: sorry, type [%d] not supported\n", (int) i_type); break; } off = DFKNTsize(i_type | DFNT_NATIVE); ptr = (alloc_flag) ? buf : attrbuf; putchar('\t'); cn = 0; for (k=0; k 55) { putchar('\n'); putchar('\t'); cn = 0; } } if (cn) putchar('\n'); if (alloc_flag) { if ( buf != NULL) HDfree(buf); alloc_flag = 0; } } /* attr */ } /* field */ } /* isvs */ else { /* vgroup */ v = (vginstance_t *)HAatom_object(vid); if (v== NULL) { printf(">>>dumpattr:failed in getting vgroup instance.\n"); ret_val = FAIL; goto done; } vg = v->vg; if (vg == NULL) { printf(">>>dumpattr:Failed in getting vg. \n"); ret_val = FAIL; goto done; } if (0 == (nattrs = Vnattrs(vid))) { printf(" 0 attributes.\n"); ret_val = SUCCEED; goto done; } v_alist = vg->alist; if (!full) { printf("%d attributes: attr_tag/ref \n", nattrs); for (i=0; iatag, v_alist->aref); v_alist++; } ret_val = SUCCEED; goto done; } printf("%d attributes:\n", nattrs); for (i = 0; i>>dumpattr: failed in getting attr info.\n"); continue; } printf(" %d: name=%s type=%d count=%d size=%d\n", i, name, (int)i_type, (int)i_count, (int)i_size); if (i_size > BUFFER) { if (NULL == (buf = HDmalloc(i_size))) { printf(">>>dumpattr:can't allocate buf.\n"); continue; } alloc_flag = 1; if ( FAIL == Vgetattr(vid, i, buf)) { printf(">>>dympattr: failed in Vgetattr.\n"); continue; } } else { if ( FAIL == Vgetattr(vid, i, attrbuf)) { printf(">>>dympattr: failed in Vgetattr.\n"); continue; } } /* format output */ switch (i_type) { case DFNT_CHAR: case DFNT_UCHAR: fmtfn = fmtchar; break; case DFNT_UINT8: case DFNT_INT8: fmtfn = fmtbyte; break; case DFNT_UINT16: case DFNT_INT16: fmtfn = fmtshort; break; case DFNT_UINT32: fmtfn = fmtulong; break; case DFNT_INT32: fmtfn = fmtlong; break; case DFNT_FLOAT32: fmtfn = fmtfloat; break; case DFNT_FLOAT64: fmtfn = fmtdouble; break; default: printf(">>>dumpattr: sorry, type [%d] not supported\n", (int) i_type); break; } off = DFKNTsize(i_type | DFNT_NATIVE); ptr = (alloc_flag) ? buf : attrbuf; putchar('\t'); cn = 0; for (k=0; k 55) { putchar('\n'); putchar('\t'); cn = 0; } } if (cn) putchar('\n'); if (alloc_flag) { if ( buf != NULL) HDfree(buf); alloc_flag = 0; } } /* attr */ } /* vgroup */ ret_val = SUCCEED; done: return ret_val; } /* ------------------------------------- */ libhdf4-4.2.10/HDF_ALT/hdf/util/jpeg2hdf.out10000644000000000000000000000067712421456623015141 0ustar jpeg.hdf: 24-bit JPEG Encoding : (tag 15) Ref no 2 0 bytes Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Compressed Image : (tag 303) Ref no 2 2922 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/decompress.c0000644000000000000000000002104012421456623015131 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include #include "gif.h" #define NEXTBYTE (*ptr++) #define IMAGESEP 0x2c #define INTERLACEMASK 0x40 #define COLORMAPMASK 0x80 #define False 0 #define True 1 WORD iWIDE,iHIGH,eWIDE,eHIGH,expand,numcols,strip,nostrip; unsigned long cols[256]; char *cmd; FILE *fp; static int BitOffset = 0, /* Bit Offset of next code */ XC = 0, YC = 0, /* Output X and Y coords of current pixel */ Pass = 0, /* Used by output routine if WORDerlaced pic */ OutCount = 0, /* Decompressor output 'stack count' */ #ifdef UNUSED RWidth, RHeight, /* screen dimensions */ LeftOfs, TopOfs, /* image offset */ BitsPerPixel, /* Bits per pixel, read from GIF header */ ColorMapSize, /* number of colors */ Background, /* background color */ #endif /* UNUSED */ IWidth, IHeight, /* image dimensions */ BytesPerScanline, /* Bytes per scanline in output raster */ CodeSize, /* Code size, read from GIF header */ InitCodeSize, /* Starting code size, used during Clear */ Code, /* Value returned by ReadCode */ MaxCode, /* limiting value for current code size */ ClearCode, /* GIF clear code */ EOFCode, /* GIF end-of-information code */ CurCode, OldCode, InCode, /* Decompressor variables */ FirstFree, /* First free code, generated per GIF spec */ FreeCode, /* Decompressor, next free slot in hash table */ FinChar, /* Decompressor variable */ DataMask, /* AND mask for data size */ ReadMask; /* Code AND mask for current code size */ /*MODIFICATIONS*/ BYTE tempbyte[10]; BYTE * tempBYTEptr[10]; WORD tempint[10]; WORD ImageCount = 0; /*END MODIFICATION*/ boolean Interlace, HasColormap; BYTE *Image; /* The result array */ BYTE *RawGIF; /* The heap array to hold it, raw */ BYTE *Raster; /* The raster data stream, unblocked */ /* The hash table used by the decompressor */ int Prefix[4096]; int Suffix[4096]; /* An output array used by the decompressor */ int OutCode[1025]; /* The color map, read from the GIF header */ int numused; /* Fetch the next code from the raster data stream. The codes can be * any length from 3 to 12 bits, packed WORDo 8-bit BYTEs, so we have to * maWORDain our location in the Raster array as a BIT Offset. We compute * the BYTE Offset WORDo the raster array by dividing this by 8, pick up * three BYTEs, compute the bit Offset WORDo our 24-bit chunk, shift to * bring the desired code to the bottom, then mask it off and return it. */ int ReadCode(void) { int RawCode, ByteOffset; ByteOffset = BitOffset / 8; RawCode = Raster[ByteOffset] + (0x100 * Raster[ByteOffset + 1]); if (CodeSize >= 8) RawCode += (0x10000 * Raster[ByteOffset + 2]); RawCode >>= (BitOffset % 8); BitOffset += CodeSize; return(RawCode & ReadMask); } void AddToPixel(Index) BYTE Index; { if (YC= IHeight) { Pass++; YC = 4; } break; case 1: YC += 8; if (YC >= IHeight) { Pass++; YC = 2; } break; case 2: YC += 4; if (YC >= IHeight) { Pass++; YC = 1; } break; case 3: YC += 2; break; default: break; } } } } /* Main routine. Convert a GIF image to an HDF image */ BYTE* Decompress(GifImageDesc , GifHead) GIFIMAGEDESC *GifImageDesc; GIFHEAD *GifHead; { int i; XC = 0; YC = 0; Pass = 0; OutCount = 0; BitOffset = 0; DataMask = (WORD)((1L << ((GifHead->PackedField & 0x07) +1)) -1); Raster = GifImageDesc->GIFImage; /* Check for image seperator */ /* Now read in values from the image descriptor */ IWidth = GifImageDesc->ImageWidth; IHeight = GifImageDesc->ImageHeight; Interlace = GifImageDesc->PackedField & 0x20; /* Note that I ignore the possible existence of a local color map. * I'm told there aren't many files around that use them, and the spec * says it's defined for future use. This could lead to an error * reading some files. */ /* Start reading the raster data. First we get the WORDial code size * and compute decompressor constant values, based on this code size. */ CodeSize = GifImageDesc->CodeSize; ClearCode = (1 << CodeSize); EOFCode = ClearCode + 1; FreeCode = FirstFree = ClearCode + 2; /* The GIF spec has it that the code size is the code size used to * compute the above values is the code size given in the file, but the * code size used in compression/decompression is the code size given in * the file plus one. (thus the ++). */ CodeSize++; InitCodeSize = CodeSize; MaxCode = (1 << CodeSize); ReadMask = MaxCode - 1; /* Read the raster data. Here we just transpose it from the GIF array * to the Raster array, turning it from a series of blocks WORDo one long * data stream, which makes life much easier for ReadCode(). */ /* free(RawGIF); We're not done just yet - change made */ /* Allocate the Image */ if (!(Image = (BYTE *)malloc(IWidth*IHeight))) { printf("Out of memory"); exit(-1); } BytesPerScanline = IWidth; /* Decompress the file, continuing until you see the GIF EOF code. * One obvious enhancement is to add checking for corrupt files here. */ Code = ReadCode(); while (Code != EOFCode) { /* Clear code sets everything back to its initial value, then reads the * immediately subsequent code as uncompressed data. */ if (Code == ClearCode) { CodeSize = InitCodeSize; MaxCode = (1 << CodeSize); ReadMask = MaxCode - 1; FreeCode = FirstFree; CurCode = OldCode = Code = ReadCode(); FinChar = CurCode & DataMask; AddToPixel(FinChar); } else { /* If not a clear code, then must be data: save same as CurCode and InCode */ CurCode = InCode = Code; /* If greater or equal to FreeCode, not in the hash table yet; * repeat the last character decoded */ if (CurCode >= FreeCode) { CurCode = OldCode; OutCode[OutCount++] = FinChar; } /* Unless this code is raw data, pursue the chain poWORDed to by CurCode * through the hash table to its end; each code in the chain puts its * associated output code on the output queue. */ while (CurCode > DataMask) { if (OutCount > 1024) { /*return error message*/ } OutCode[OutCount++] = Suffix[CurCode]; CurCode = Prefix[CurCode]; } /* The last code in the chain is treated as raw data. */ FinChar = CurCode & DataMask; OutCode[OutCount++] = FinChar; /* Now we put the data out to the Output routine. * It's been stacked LIFO, so deal with it that way... */ for (i = OutCount - 1; i >= 0; i--) AddToPixel(OutCode[i]); OutCount = 0; /* Build the hash table on-the-fly. No table is stored in the file. */ Prefix[FreeCode] = OldCode; Suffix[FreeCode] = FinChar; OldCode = InCode; /* PoWORD to the next slot in the table. If we exceed the current * MaxCode value, increment the code size unless it's already 12. If it * is, do nothing: the next code decompressed better be CLEAR */ FreeCode++; if (FreeCode >= MaxCode) { if (CodeSize < 12) { CodeSize++; MaxCode *= 2; ReadMask = (1 << CodeSize) - 1; } } } Code = ReadCode(); } return Image; } libhdf4-4.2.10/HDF_ALT/hdf/util/hdfpack.out10000644000000000000000000000342012421456623015035 0ustar test.hdf: Linked Blocks Indicator : (tag 20) Ref nos: 59 60 61 113 114 115 116 117 118 119 120 Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 133 141 150 158 167 SciData dimension record : (tag 701) Ref nos: 133 141 150 158 167 Scientific Data : (tag 702) Ref nos: 58 Numeric Data Group : (tag 720) Ref nos: 2 3 4 5 6 Vdata : (tag 1962) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vdata Storage : (tag 1963) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vgroup : (tag 1965) Ref nos: 122 124 126 134 142 151 159 168 171 Special Scientific Data : (tag 17086) Ref nos: 59 113 116 119 test.pck: Version Descriptor : (tag 30) Ref nos: 1 Number type : (tag 106) Ref nos: 133 141 150 158 167 SciData dimension record : (tag 701) Ref nos: 133 141 150 158 167 Scientific Data : (tag 702) Ref nos: 58 59 113 116 119 Numeric Data Group : (tag 720) Ref nos: 2 3 4 5 6 Vdata : (tag 1962) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vdata Storage : (tag 1963) Ref nos: 121 123 125 127 128 129 130 131 132 135 136 137 138 139 140 143 144 145 146 147 148 149 152 153 154 155 156 157 160 161 162 163 164 165 166 169 170 Vgroup : (tag 1965) Ref nos: 122 124 126 134 142 151 159 168 171 libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/0000755000000000000000000000000012421456623014626 5ustar libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/skull.hdf0000644000000000000000000304327712421456623016463 0ustar ×®k31/ÊE)ËÊE)-EóÉEójHó,H÷ÈI 2I /IEËIE-Ž.ÉŽ.2‘. /‘:FtË‘:FtøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø®]ƒc,„c23ø‹ø®¾c3]”·”]c]2,ø‡ø®2c]¾“]32,3c2322cøø¯cc¾”¾“„c”¾cŽƒc3c]÷ø¨ 3†ccƒ] 3\3]3]c3322öø§ 93 99c”¾…c¾”ccc32c,”2-232óø¡9::3  3 :c]cc]ŽccŽƒc 3“¾“”3cc]2ñøž 3 9::9:94@@:@”Ž2¾¾ƒc ”Žc”c”“cc-ƒc]3ccc,îø3 39 9A@ 4::3:3cc¾”¾¾ccc¾c”Ž”c”¾cc\323cŽ]ìøš3 „:,j::9:9:9@@”¾ccc””””2,”ccc]cc]]]c]cëø˜- 3 394::9:@::@@@:A::ccc¾c”Ž“””¾”cc”cƒc ]3“23b3]2êø– 3 9:: 99 33@„:)9:@]33””323””¾”½”c]c¾”¾ccc-”“Žcc]2èø•% 3 9:3 :9:@:@@AA@@qGqAqAqi½””””¾c]ƒc¾”]”cccŽc”2233“3323èø”B :9  :99:AqAq@@j:A@AAqGkAÔ¾””¾“¾“¾cc¾“¾”ccd¾¾“Ž”Žc,]3\32,3232æø’99: 3394::9 @:@:AAjAj„:)@™23\””,2-2ŽŽŽc”¾”¾cc”2]“Ž”32,3]3åø‘ 39  3 9A…@qqr@AjA@rAqGqGqq¾cccƒ” d“””2””¾ccc”c3cc¾“c”3c2]23ãø @: :9ƒ@…:ƒA: j::9Aq@AqAqAG¾¾”Ž”¾¾”¾c¾”¾”c”¾c¾“Ž½33ccd,2cc,92]ƒc]Ýø :9 9:9::3:@::ƒ@(k@jAAGqGAAqAqAqqGŽ“””½”““”“¾c”“323Žƒc””c”¾ƒc 3,3332]ccc2ÜøŽR9 : 3 :9AA:GqAqqGkGqAjAAjqqA@qAAq¾Ž“Ž“Ž¾Ž”Ž“””¾c”c“Ž”cc¾cc,Ž¾cc323]2cc,ÜøR 3 :9@::@@9Ak@qAAqGkA@A@@qGGqA@@kG¾”“Ž“Ž¾”¾“Ž“”¾”cc¾”“Ž“¸cc¾cŽ“2cŽcc”c]2cŽ]cÝøŒ.9: 3@::@3:A:AqA:AqAqAAqGkqrAqkGqrqGk”¾“cc”½”“”ƒc"¾“¾“Ž“Ž¾”c”“Žc”]”Žc]22]3c]3Ýø‹T@ 3 ::9: G::jGk?qAGkAq@qAqxqrGrqGqHqr“¾”¾¾”¾”·”¾””¾”¾”¾“”“¾”cŽ“”]c\3”¾Ž“c]3c2cÝøŠ 3:3@@:Aj:GqGAqGƒq@GkGkqHqHwrqHqGqqG¾”¾½”¾¾“¾”¾¾“¾“¾“¾”¾”¾”¾¾””·”cc”cc2ccŽcc”,3c3Ýø‰3@ 9::@:Aq::GkqƒA,qAGkGqHqxqrGqGqrqHAk”½”¾”¾”¾”½”¾”¾”¾¾“¾½”½”ƒ¾ccŽ“]”2Ž2cŽ2c3c]23Üø‰$: 9: 9A@3A@@GkGAj@kGqAGqqrqHwGqrGqGrƒq0””¾]b”“”¾]b]“Ž“Ž“”Ž“Ž”¾“”¾“c”]”c3“-2”2c23ÜøˆG: :::3@A@@:kGqAqGrqAqAqrGrMrqrGkGkrGrGr“”“¾”¾”“”¾”“Ž”“”¸¾c¾½”¾“”¾”¾cƒc”cc3c,”3,332,Ûø‡=::99::@k@qGkqAqAqGkGqrqrqrqGqGqqHqqrqr”·¾”¾¾”“¸¾“¾¾“Ž“Ž½¾¾ƒc”¸“¾½”¾3”cc¸”3¾2,3c2Žc]Úø†5 9:: :@:kA@AkGAAqGqGkGqGqGrGqHqArqrxHwHq”””“””“¾ƒ”%”¾”¾”¾“Ž”¾””½”3¾]c”“]c]3“,c3c,,Ùø‡<:9::@3:@A@@A@qAq@qAkA@qqrHwrGkGkqHqHqrqqG””“¾¾”¾Ž½”Ž½Ž½¾¾“¾“„¾“””¾”½¾3“”]c¾,c”2cŽ2c]Ùø… 9 „:W@:@@qAkAqAkGqGk@rGrGrGkGkqHwrxqxGGrqc¾¾”¾cc]c]”¾”¾”¾”¾“”¾”¾“Ž”¾””¾]“cŽ”cc323cŽ332Ùø„_3 @:9:@:A@Ak@@A@qrGkG@qrqrGkFkMrqrqHqGqqGk””c“c”½Ž““”22¾“”c”““””“””c¾“”¾“Ž”c“Žc]c,c,c2-Ùø„` :3@@:@:@Aj:G@kGkGqqAqrGqHqAqAqrGrGxqGkGAkA½””,”c””¾”¾”¾¾”¾“Ž¾¾””¾”””ccc3c”,”c]3Øø„ 33ƒ:@:ƒ@T:A@@qqAA@qGqrGqAGqrGqqr@AqAkGqA“Ž“Ž”¾c¾“¾”“”¾¾“¾cŽ””“¾¾”“Ž“Ž“¸“”Žcc”]]“3”,c232×øƒc33A :9A@rAkr@jAkGqA@qHqrAAqAqqGrqGGkGqGqqGkc”“Ž3“Ž”“””ccc¾¾2”“¾”Ž“”“”¾“3Žc“c32Ž932ÖøƒJ 2@3@:A:@@kFA@AqGkAqqAqr@q@qA@Ak@GrqqrqGkGqA¾”¾“Ž“”“Ž]c¾”¾Ž“Ž½”¾””¾¾”¾“ƒc”c¾“”cc3]“c2]23Öøƒ 3A 9@:ƒ@-Ak@:qAqAqGrrqGAqGAj@:@AqArGrrGqGkG¾”¾¾¾Ž“”ƒc]“]”¾”¾“”“¾¾”cŽŽcŽ]]”ƒcŽcŽc“3Ž“Ž23]9,Öøg3@@3A@::@k@A:qGqA@qGqH@kAqq::GkGqqAGqqA@A@kG¾“j¾š””“”¾“¾”“¾2¾”¾c”¾¾“¾¾c9cc“”¾¾Ž3ccŽcŽc3323]Õøƒ0 @::: @@k@:AqAAjGkAr@A@qGA@qrqrrGk@A@A@rrqrŽ“„¾0“Ž“”¾¾Ž”¾””¾c¾¾””“”cc]cŽ“”“”2cŽcc32Ž2c,Õø* 3 :3A994Gk:G@qA@kAqqAqqAA:9rGrNwA@qGjAƒq HqN”¾”½”„¾””¾““”½ƒ¾#ccc2Ž“¾”¾cc”””Ž2c]c3c332,Ôø1 : 3:3A3Gq9kqAqAqq@:@@q @qrqrqr@kAqArwrH3Gkqă¾”¾¾šƒ¾!”½”¾Ž¾¾”¾“¾cŽ“Ž3½”¾dc3¾””c3ƒc 3“cc,323Óøi ,9 : A9Aq:AGqAqAq@;@rrq3rqNqHwAA@GkwrrwrwrGq”¾”½”½”¾¾š½¾””½”¾½¾Ä¾”Ä””Ž2”¾””¾”¾“”¾c2c]ccŽc23c2Óø  3 ::3k9ƒ:'qAqA@q:@@GqG xxrrwr@AqAwrHwHxr qrG¾”¾”ă¾“„¾“Ž¾”“¾¾”ƒ¾!“¾“¾”¾2¾¾”Ä”¾½Ž”“d¾3c¾3\,c3c]2-Óø23 93:@ :A9 9AGkkG @:rr @rqHwrNAjA@xrwrxqrqGrq”½„¾šƒ¾Ä”¾¾“¾¾”ľ¾”¾¾ƒ”¾¾”3½ƒ¾“Ž”,“¾Ž½c9]c2]cÓø 3 :@3ƒ:NkGq@@A2:Arw 3xrxqxr@k@AxqxrxqxGqrqGxÔ¾“¾”½”¾“¾¾Ä””“”¾¾“”½Ä¾”¾½”½”¾¾”¾”¾”“”„” 2]”3cŽ”23Òø53: 39@ :@ 3Gk@:@@:wrr xqxqxHqGAqqxrxqNr9rrGrxqɾ”¾Äƒ¾ ”¾¾š¾½”Ž½”ƒ¾%”¾¾½¾”¾”¾½¾“¾Ä¾“Ž“Ž“¾¾”c¾cc”“32-Òø; 93G:@ 9:@@k@A@r@@Aq wrxGxrwrqAqxrwHxr9HqxqxqHÔľ“”¾“ľ“„¾“”¾”¾Ä¾”Ä”¾¾½¾“””ƒ¾“¾¾”””¾”2c3c3¾,3,cÒø5 3: 3:@3:A@A@A:@@:qrqAqrwrrxGrGqAqHxrxq@:qHqHqxrɾ¾”,†¾”½”ƒ¾)c¾½”¾½¾¾”Ä”¾”½Ž½”¾¾”¾”“””½”½-2”3cc¾,”]23,Òø 3 9 ::@ 3ƒ::::::Gqr@A:GAApAqqxGr@q@kMrGAjA@AkqqAjAk@:@ŽcŽicc]d“c”ƒ¾,”¾”¾”¾š¾¾½¾½Ä”¾¾cc”½]“¾“”¾¾]c”¾¾3c3,cdc2Ïø!A@::@qAkAGkGk@q:@rqGrqr@@AA@@AjA†2rGGkA@@A@ “Ž¾Äc33“c3]¾“¾¾“¾¾Ä½¾¾½¾”¾”¾½”¾””]c¾”ƒ¾c3¾“¾”2Žc2 cc32Ïø@:G:rqGkGkG:rqAqrGkGr::ƒqAƒ@A@Aƒ @rAFk@qA@3Ži„¾73232c”¾”“¾”½¾”ľ”ľ”¾”¾¾“¾cc”¾“””¾2¾”¾¾“-c”c,c]23,ÎøD:q3:MrGkFq3@q@rGqr::GqAGkqqAk@k@3@qqA kG@3 ¾“Ž“”“c]3Žc¾“¾“¾¾Ä…¾”½¾Ä½ƒ”½”23¾”¾“”¾½”“3ƒc],923Îøf:GrqrqGAG@:AA@A@qG@:@k@qAG @AA@qqGkA9@ @k:qŽi3cc2c””¾”¾”Ä”½”¾¾”¾¾Ä“¾”Ž¾c””½”¾”“”Ž”¾Ž“ƒ32]3Ïø@3GqHqrqA@Aq@Ak@qAƒ: GAqA:jAjAƒq8GAkqA@ :2A:q”¾¾”Žccc]”¾¾Ä¾¾½¾Ä¾Ä”ľ”¾¾”½2]”“Ž”¾“„¾“”½¾c”\32]c]cÎø9Gq9 qrG@qq:9AAjG@Ak:@GqqA@qGAGjAGkAjHqAA2::q4x¾”ľ¾š„c#-“ŽÄ”½”¾Ä”¾”¾½¾¾½¾”¾“]Ž9”c¾”½”¾”¾ƒ” ,d32-23]2Ï÷4AqG: kGqr@Grr9:@Aj@:AqqAqAqrqqH@@A@@:A9q 9@ 9: ”“ƒ” “¾”Žc¾ˆ¾%½¾”¾š¾Ä¾””“]”“c¾”¾”½¾”½¾“”“]]33“ŽÏøJqq:AAqGr@kxqr3@Aq:@qGqG@qGqGq@4@:@3GkA@: iŒ”Ž“¸\33Žc”Ž“”“”¾š½”¾”Ä„¾ ”½¾“Žcc”c¾“¾”¾”¾¾“Ž½Ž”c]]232Îø,:@qAq@@GrGqAj@rG qAqr@AkGr:3@@3:A@k9Ak:ƒ32™””¾Ä¾ƒc4”3“c¾”¾½”¾¾”½”¾“¾š¾¾””c]””c”¾“¾¾½”¾”“Ž“Žc]c323 Îø2:::@qHkGkr:9:@3Aq3@AqGkAqGk@AA@AAqqG ::@ @@ 22™†¾6c”¾cŽ¾”¾¾”½¾”¾”“¾¾½”½”23“Žc¾”¾”¾”¾½¾¾”c23c2]3]Îøn: 99:GqqAqA9::@AA@AkGqA@kGA@@k3@qrqr 9A@:392É”“”“”“]c”]ccľi”¾¾”½¾”“¾”“¾”¾c”””¾“¾½”“¾””¾“Žc]2323bÎø% 3qqH@qGq:9:q:@Aqq@qGqAAqAjA@@AqGqH„F9rq 323Ô3,”c]c”]ccŽ“”cŽc¾”ľ”¾“¾”“”Ž“¸”\cŽ””¾””“”“Ž“”cc3]233,Íø@9:GqqAqrA9::ƒ@rGrAqqAkGAjrGqqHq„9:  “cc“”“¾Ä¾”¾223ccŽ“ƒ¾”¾“ƒ¾#”½¾¾”“”2]ciŽ“¾”½”¾¸“Ž“Ž“cc]c,3Íø]A9 @l@GrGkG:rrq:: qGqAqqAA9qAqq39::2™ih¾Ž”””c¾¾3]c]c¾”¾”¾½”¾¾š¾¾””“Ž“Ž9cc¾”¾¾ƒ“Ž¾¾cd,c2-2cc2Íø+@q:@@rqqrGA9:Gq3qHq: qrGqGqAA9HkG@r:9ƒÓ”½Ž“Ž“23bc]3“”½”¾¾”¾¾½ƒ¾“”Žƒc ]cŽ“¾“¾””””ƒ¾ƒc-“33c-Íø*:@H::AGqHqGq:9qG3 :qqG@:qrqrGjA9qGk3 rM::„-c™iiŽ””¾2”c3]3cc]“¾”½”½¾Ä¾š¾”¾”½””]cc-23„cŽƒ“ ”“ŽŽ“]2]2Íø!:q @jArqqA:@4A@3@A@:@4qGAGkAGkkƒAqqr3@3ƒ]™b““¾”¾Ä¾2Ž]cc,c]”¾”¾”½”ƒ¾ľ“Ž“¸“„c”cŽ„c]cŽ“Žƒc 2Ž2]93c3Ëø+q @@AkGAAq9:A3@A::@qGkqA@q:@qA@@qHqM3@A:ƒc“8c¾“”½Ž“Žcc,c]ƒc¾“3½”„¾“„¾””“Ž”¾¾”·¾Žƒc]¾¾Ž3c,332]]2,ÊøGqAk@qGƒqhGq:@:@A9::@AkGGqAq:AqGqrG93rGA:9 q”“™™“Ž“Ž”¾“Žc3ccc”cd23“¾”“ľ¾š¾”½”¸“¾¾j”“ŽcŽ“””2c2cc32c]cc2ÊøOq: @:qGkHq9:::@@9::AqAkGkGqGqrG::xxqGk:c™™Ã”¾¾“¾cc3,d,”c”2-”½¾”¾”½…¾”“”¾¾“Ž”“ŽcŽ\cŽ9cc,32]33c,ÉøX x@;Ak 3@Ak@@rq;9@qGqAkGqGkGqrqxrxrAq3c½™™½”¾¾Ä¾ccŽ“3c2”c,c¾”¾¾“”¾“¾¾š¾”½”¾”½”ƒ¾“d“c”cc3”3c”]3,33Êø+:qr:@@q@AkAA:@@AqAGA@rqGqGqqGkqHqrxxrMxAG3ƒc™Ãþ¾“””¾”]”3ƒc¾ƒc.”¾“¾¾¾”¾¾½Ä¾Ä¾¾”“¾¾”¾ŽcŽcc]c]””]”\”2“]23Éø:Mr@kqAAqGq@qAƒqr9ƒ:Arrxqrxrxrxrrxrxr@j:ƒ4]“™¾”¾“Ž“]cc]cŽd½”¾¾š¾j“”“”¾”“¾“¾”“”½””“””ƒc”2¾“¾“]”]Ž232É÷+ 9r@rNj@rqGkGqrArGxrGjAwrGxrxrMrwH@qxqxq„ci“hŽ“”ľ”c”cc]c“”c¾”¾”ƒ¾'“”¾”¾2]3¾”½Ž¾””½¾””Žccc]”¾32c]33Éõ-9Hq:@@rx@ArqrqGkGqGqrqrqx@rGqqxGxrxrx:@rN:G3„D““8¾”¾ŽÄ¾ÄŽ“cŽccŽ¾c”“¾½¾Ä¾¾”¾“”¾¾“”Ž“”½””¾”¾”“c]¾c3“,”]ccc]c2Êõ-Grq:ArwrrqxGrGqAqAqGrwNrqxqrGrGrxqxqr@A@A::q9„Žh29“¸“ľî¾ÄŽ“c2d¾2”“¾c¾”¾”¾”ƒ¾”“…¾“”·””½”½”¾Žcc¾cc32]ccŽc3]c]Éö,rG @rMrxrxqxGrqAAqrxqxHrGqGqqGrxrNqx@kqx:A „&832b¾”¾Ä¾¾Ä¾¾”Žc¾]¾cc¾”½¾”½¾š½¾¾”¾¾šƒ¾”ƒ¾”¾”½””“Ž”c]3„cc2c,Éô. 3qxxq@rMrqqGrGkGGrxqrwrrqGkqGrwrx: xqx9Aq„“2c9¾Ä¾¾Ä¾î¾Ä½Žcc¾c3Žc¾¾”‰¾”½ƒ¾ľ“”½¾“¾”¾”“2ccc]”,c32Ž]Ëô/@ @ qrqAAqAAqqHqrGqAqqGrGxrMrrxGAqGrqx qHrxAA@ƒ:i82Äèľľľ¾Ä,c,c]2c2”ƒ¾ Ä”¾“ĔľĔ¾”…¾ ”¾”¾¾“”¾¾-ƒc Žc½”c¾2cjËô9:3@qqGAqAqAFrrxrqrqx@A@kGrwrxG::q:A@rxqrxqxqq@A@G9@,3ľą¾ľĄc ]”ŽÄ¾¾“¾Äˆ¾ ½Ä¾š¾Ä”¾½ƒ¾”¾¾ccc”Ž”,Ž92ÊôL::r@rwqAxqNqxNqHqAk@q@rxGr@@:q@qH@ qrN:: 3Ak q22ľîľľľľc]]32Ž”¾Äƒ¾ Ĕľ“ľš¾”¾½„¾””½”“¾“¾2cd]3“,c323\3Ëô qqrxrwrGrrwrxqAq@A9ƒA8@Ak@::qHqrq Gqx::qGj™c9¾Ä¾¾Ä¾Ä¾¾Ä¾cŽ93”2¾¾”¾Ä”¾¾½†¾ľ¾š¾Äƒ¾”¾””c3¾2cc]c]“3,cc3,Êô qrHwrwrxrxqxHxqxAGj::…q:Aj ::AqrGxqqA@:@Gk94Abc¾Ä¾î¾Ä¾Ä¾Ž¾cc”232ľĽ¾¾Ä¾Ä”ľšƒ¾”¾¾½”¾Ä½”“”¾3¾”]cc]d]9c,3ËöGqrq qHwGrxqxHqGq:@:@GrGA@Ak k@rwrqHA@@:39:3ic“2ľľÄèľ,”¾””23¾c3ƒ¾”ľ¾”…¾þľþ¾Ä¾”¾¾”””2”“cŽcc9c32ÌõKrq r@rrq:xHqxrqr:: 9A::@kGk@:Aq qNrq@k:@:A:@@“cb2”¾”¾Ä¾Ä¾”ľ23¾c2¾¾Äƒ¾ þ¾Ä¾š¾¾”ƒ¾”ƒ¾ľ¾”½Ž“32]cc2”,c2,3Ìö @ƒAX@xAG@xrwrNqGqA:qGqAqAq@::qG xrxkA@@::qA:9:]i2”“¾Ä¾ï”¾3”¾“-c,Ä”¾½”¾¾š¾¾½¾¾Ä¾¾Ä¾Ä¾š¾“ƒ¾“”¾]c]c,””]¾ÎöG@3@@j@A@kAk@xrxqrGrq: qqGqGk@@:qqrxqxr@:q@@kGq::98¾dŽc3cc2””2cƒ¾ľă¾Ĕă¾™¾¾”„¾ ”þ¾”¾¾3„c”c2]Îö4:G-@;q:@qGk@AqxHqxqxqr:GkGkGkG xrx:GqG;qGkG@2] ƒ”cƒc¾¾”ƒ¾ c,ľ”¾¾”¾Ä”ƒ¾”þľĽ”ƒ¾”¾“”¾323,”2]Ž32Íö: @:ƒ@LAk@GqGAqxqrHqNqrGqGqGr 3Gk@@xr@ qkq@qGqAA”]:9”·”¾ÄÄ-3¾Ä¾¾”“Žc”¾¾Ä¾Ä¾½¾¾Ä¾Ãƒ¾šƒ¾”¾Ä¾”ľ“”¾c33c]32“32Í÷M::@:@;qAqqr@kGrqxwrqHqr:qG 3@@kA@A@:@:G4@:r@k“]9 ”“,2c]c¾¾Ä“¾”“3”¾”½”¾¾šƒ¾”¾¾Äƒ¾ š¾¾Ä¾¾½¾“”¾”ƒc ,”]3Ž“-ÍøqA:@::ƒ@@AA@@AGrrGrqGqGA3Ak@qA@AkGkAqA:G:A@:@: :99¸”¾ŽcŽ“c]¾¾”¾¾Äc”½¾¾Äƒ¾"ľþľ”¾Ä¾¾½¾¾”ľ”””½dc]c]¾2cc3“ÎøqGk:@@A:@k@3@:ƒ@9:: 3 9 : 9993qG:@:AkAk@kGccŽ”ccŽ“”“ŽŽcc3cc]c]c”,”,„c]áø— 9 933:94@4ˆ:‡@:@”¾“Žcƒ”“Ž“Ž“””””d“Žƒc3c]„c-cc]áø“ :ƒ:9„:@::„@7A@A@Aq@kAjA@kA:@Ž“”¾“Ž“Ž¾c¾“¾””¾”cc3]c3c-32c3cc]3àø’ 9 3@„:'9@@AAjAk@@k@kGAkGqA@A@kqAccŽ“”cccc¾”¾cƒ””¾“¾¾3cc,c2]cc]c]8àø‘<:@3 @49:@@:@:@:: A@A@Aq@kG@Ak@kGA@k¾”“Ž“¸”¾”¾“¾”\]”¾”“Žƒc ]3323c]c322]àø 9 ::@:@ƒ:@ 3::@@k@k::qA@:AjA@A@@jAG½¾¾“Ž¾“¾”¾”¾“¾”“”””c3“¾c32c2]33càø 3 ::@:@::@@A@A@q@A::FkGkƒq2GkGjAkGqk””¾”“Ž½”¾“”¾”¾”Ž“Ž”¾””c3“Ž“]c32cc3,cÞøŽ9 q@@AA::9:@j@A@A@@AqrqƒG!kGqGrqrrGq™cŽ”¾¾”cc]cŽ““Ž3““Žƒc]]cc¾3”\c-332cÞøŽ 39:@ƒ:99:9::@@A@:@kAk@G:@:A@AqGkGqGrqHc¾½”“¾“¾¾”c”””c”¾”“Ž”¾ƒc¾\323]ƒ2]ccÝøŒ 3„:9:@AA@@kAqAqkGjAqAqAqAƒqBqqAAG@qq”¾”¾“¾”¾¾”“Ž”ƒ¾““Ž“”½”¾¾cc2-c]c233,c3Ûø‹ 93::@:9ƒ:(@@:AAj:AAqAqGqrqrGqqAqrxGqqrqGrc”½””¾¾½”ƒ¾½”¾”¾d“”¾¾”””½cŽ“¾cc]cc233Üø‹V4GA@::::@@::@k@GApA@qGqGqGrqAqGA@qrGrqrrwcc””“]c”“3“”“”¾¾”””]c3Žc”cc3c33]\”Ûø‰ 3::@:9:3:@A:@qA@ƒq$GkGqkGr:qGqGAjqHqGrqNqHq¾¾Ž“¾¾”¾“”“„¾”¾””¾”½c]8””c3232cÛøˆ 39 @9::@:@Aƒ@$qA@qHqAAqrGrqAqGqGqrHrqqrGqrqrw”¾¾“”ƒ¾%”¾“Ž”¾“¾c“”“¾”“Ž”¾3”¾”Žc3c,c3c2Ùøˆ93::@ :@:@Aj:Ak@kGkGqrqGr@rqHƒr:GqqGrrwrGqGGr¾””¾¾”“¾”¾¾“””“¾ŽccŽ“¾¾“c¾3“”¾i”c¾]cc2-3Ùøˆ?9@@::@9::@:@Ak@AGqAqrGrqAqGrqqGqqGqq@::@qHqq:3\3“”½cc]“¾”¾“¸”“ƒ¾“”””cc¾¾”“-c¾i333c]Ùø‡ :@::@ : A@:q@AƒqJAqGqrGAqrqNqHqrHkGrGrGrqAqHq¾Ä“¾”¾”¾¾“Ž“”¾“¾Ž“”¾¾¾”¾”¾cc”¾c”,c”c,cc2c2Øø†_ 3:@::@q::@k@AAkGqH@qrrGrwrqGqrqqHqqxrrqrqHqxrqH¾”¾”½Ž½”¾”“¾”¾¾”“Ž“Ž“¾c¾“”¾c“]c”,“d2d¾2c,32]×ø… 9 @4@@A:@ k@@qq@ƒq,AAqGrqGrxrxGrGqxrGxqNxqxrGxqx½¾¾“Ž“¾¾”¾¾”¾”ƒ¾ “”¾”¾¾¾”½”ƒcŽ”c”c”¾,cc323Öø…a @3 @@;@@3@A@AqAGkHA@qrqxrGqrGqrqrqNqxrxqrNqxqrGr”¾”¾¾””½¾”½¾¾”¾¾“¾”¾“¾“¾”“c”¾”Ž”c“”2c¾,c233,c]Öø„5:@3@::@:@:@:@@AkGqAqrqHqGqrwrGqGqxrxrwHxqrqHqxqGþĄ¾”ƒ¾”¾¾“…¾”¾”„¾c¾”¾”-c”,c3,”2c2Öø„c 3A ::AjA@::kAkAqqGqqHqxGqrGrGqrGrxHwrqxqrGxrwrHxq™”½”¾™¾¾“Ä”¾Ã”¾”¾”½”½”½”¾”¾¾””c“¾3cc-c2Ž“c-2Õø„> 99 3@q@@A::FApGqGkGrqrGqrGqqrGrqxqrxrNrqxrqHqxqrxÔcc¾”¾cƒ¾!Ä“¾”¾”¾”“¾½”¾“”cc”“c3”c2]”33cÖø„d349 @A@k@AjAAkAqAqGqHqGqHqrGrwGxrNqxqrwHqHwrxHxqNɾ”¾”¾”¾¾“¾”¾“”¾”¾“¾“¾¾””¾¾”¾“”ŽŽ”¾2¾Ž2c,”\3]23Ôøƒd 94G9A:@A@qAAjGkGkrGkrqGqqrqxqGrrqrwrHwrrwrwrwrqxrqÔ¾¾Ä¾“¾”¾”¾¾”½”½”¾¾c¾“¾½”“¾”¾”]“””“32”,c””32Õøƒa 99A3@:k:@Aq@AqGkGGkGGqqHrGrGrqrMrxHwrqHqHqHxrNrwHx™““”“””“”½¾”¾”¾”¾”¾¾“Ž”¾””½”¾3”“¾Ž¾2¾”c]¾cŽƒc3ÔøN 9 :A9 A@:@@kAkGqAqAqAqGqqrqxGqHqrwrxqGrqGrxqxqxrxqr™¾”¾”·”¾¾”¾”½¾¾“¾“¾¾”“”ƒ¾“”¾½3c”Ž”½”c3c]c\”,c23ÓøJ k:A3Gk:k@qAFkGkGkGqGkHqNqrGrwrxGrGrqHwxrwrxHwqHwrq”¾½”¾“¾”½”¾”¾”¾¾”½”„¾“”“¾”¾”\c“cc¸“]3“c””,32Óø:3@39A9:G:@ArAqAqGqGqAqAqrqrGqrqrMrrqqrqqrxrNrwrrqrrMqŽ“Žƒ¾,c¾¾“¾Ä½”¾¾”¾½”¾”“”¸”¾c¾“”¾Ž¾cc”“]”c”,32Óøi:: A9:k9:@qGAkqGkGqqGqrGrGrGrwHrwrGrGxHxqrwrrGqNqGrq”““”“Ž“””“”¾¾“¾“”¾“¾¾”½”“ccŽ“¾””””Ž2cŽ,]“cŽc,Óøj3@ @k:@:@:Aqk@GqGqrAqArqrwqGqrqxr@qrGqrwrNqrGGqqHqrAG¾”Ž”””¾”“Ž¾”½”¾”¾”¾”¾”½”””Ž¾“Ž¾“””·Žc¾”c]cc]9]cÒø 9 9„:U@@:G@A:qAqHqGqrqNqGrrqNrw@rGrqxrMrqxAqqHqrGqGq¾¾“¾]]“”½”“¾”¾”½”“”½¾“¾”½¾¾“”¾””¾¾“3“Žƒ3ccc]3Óøj 3:9:::@@:k@:GkGqkAkGrqrGrqHwrGAqGrwGGrrxrGqHqqHwrxAr“”¾“¾¾“¾”¾¾”½”¾”¾“Ž”“Ž¾””“¾¾“”¾“””¾“”cc3“Žccc2Òø3 39:9: @::@:@kGqHAFrqNqGqGrwrrqqrqrGrqAFAqqrqrxqrƒq4GÔ¾””¾””½cc¾“¾””Ž¾½¾¾Ž“”Ž“¾””cŽ“Ž“cŽ“cŽc33ÒøG3 9::9@@49 @:Gqr@jqGrqGqrqrrMqGGqHqqAAqqrqGGrGqGrGxr@™¾”“¾“¾”½]c¾¾”¾“„¾“”¾”ƒ¾“¾Ž”d”3“ccŽc“Žccc2c,2Òø8 9:: ::@@:qA:qrq@HqrqGkGqGGqqAqrqrxAFqqHqrGqqrGqHqGqr™ƒ¾/”¾“Ž””c¾¾”¾”½”¾“”½”½”¾c“Ž““¾”¾,Ž¾2Žc]c”3¾33Òø& 3::9G:@A@: @:@GA@qGrrqHqrrqHqGrGqGq@ƒrxxwA@ qGqqrqHqɾľ“¾”½”½”Žcc¾“…¾”“”¾”ƒ¾ccc””½”””¾ccc”·”2]2Ñø"9:3G3:k@:@::@rk@rqHwGqrxGqGkGrqƒA&rxqNqrAqrGqAqHrxqGɾ””¾¾”¾”¾“Ž”“Ž“”2ƒ¾”½”½”¾“cd¾Ž“Ž½”““cŽc]c3c,32Ñø:3:@ q @A9:@qƒ:)GqGqrqGkGqAqAxrGkwrwrxqxAqGqrqxrqxGxr™”½„¾ “¾””¾½¾Ž”ƒ¾š¾c“¾¾””¾”¾¾c”¾“””Ž”]2ƒc]cc”3Ñø<::@:: :A9::G::qqHqGrGqGrAAqrxqxqrxrxGxrGqGrqxHxrNqxrÉ”¾¾Ä…¾½ƒ”½”¾”ƒ¾”“Ž“¾“2”¾”“Ž”2Ž“¾cc]c¾ƒc¾2Ñø7 :9::99@@4@@: @AqrqAqrq:AqAwqH@:xrMrxrwAqrqrxrxqxrxA@”„¾”ľš¾”¾“¾¾“¾½¾”½¾¾“Ž”¾”¾“¾¾”ƒ¾“Ž”¾c”c”“Žcc,32Ðø? 9::@ 4:@@Ak9:AqGrGqGq ApAxrqGkxrwrxqxGkGqHwrxrxxqrG3 q¾”Ľ¾”½„¾)”¾”¾“”ľľ¾”¾cc¾3¾”¾”“¾”¾“”c]“3,]3]3Ðøƒ:@:9 ƒ:,G:@kAqGkAq:AqAwrxr:xqNrxrN:qGqGrxrMxrxGxqrwrƒ¾”ƒ¾ľľ¾“¾”ƒ¾"”¾”¾”½”¾¾”2¾¾“¾¾“”“Ž“¾“33]2c”]2c]Ðøl :::@ 4@3@:9:A@GkGqGr9GkqrxGqxrxrwrwAqGkAxxrxrxq xrwrrN½š¾¾Ä¾”¾“¾”¾¾“¾”¾¾½Ä¾“¾¾”“¾¾”½”¾”¾¾”””Ž¾½3c¾c¾3]2Ðø8:: @A39:A9q3@AjAqA3GqAqNq:@rxGxrxrGqqGqrxrwrwrxrqxHxwrƒ¾Ľ¾Äƒ¾*Ľ”“Ž“¾”¾”¾¾”¾¾”“¾”¾¾“¾”¾”“Ž“Ž“”¾2]”c”223Ðøl @A3:@@A3G:Gq::AqAq qAqrqrxGqrxrwrMrGAqrrwrxrxNrwHxqxrx¾š¾¾”¾”½”¾”¾¾””“¾”½”¾½š¾½”¾“¾2”¾½¾¾“Ž“Ž½”“3c½3]]”Ðø89A@9:A@@3:3::Gq@A9GkGqHwHqrGrwHxrxqkqHqNrxqNq3rqxrwrxrM„¾ă¾Ä”½Ä”¾“Ž…¾ š¾¾”¾”¾¾“”¾“¾””¾””]2-c2]9c32Ïø j:@@k@@::qAq9:AqqGƒq&HqAGkxq@rxxGqrqxrxr@AGGrxrNqxr¾Ä“¾¾”Ôƒ¾*”½¾¾“”“¾”½¾”½”¾½”¾”¾”¾“¾”¾“Ž“”Ž”cc]32]23Ïø3A@ƒ:Aƒ:% 9AqAqGrqGrrGrGqqAj@:@@GqGrqGAGGqG:@ƒq Hwrxrw”¾¾Ä„¾”ƒ¾ ””¾¾”¾¾Ä”¾¾”„¾“”¾“¾”¾”½”“Ž“]c“3”2]29,Ïø&Gk@::GqqAqqHqqHqqHqqGr@AA@::A:rqA…qAq:qArGrqxqxr¾Ä¾”½””½¾š½”½ƒ¾%“¾“¾¾“¾½¾”½””¾”¾“¾“¾¾””¾”¾3]c3]c3Ïø:Gk@:@:9q9Gqr qGrqHqxrqArqx@A@@rqGr@A@AGqAqrGkrqHxrNx¾”ƒ¾0“¾”¾¾”¾”¾”c¾¾”¾”¾”¾”¾”“¾“¾”¾¾”“Ž“¾“¾”¾2”cc2c3,ÏøBG::@:G3@@kHw kGqGrqG@ rAkq@@rq q@3rqGAwrGqqrqxqxq¾¾Ã”¾”“¾¾“ƒ¾(½Ä”¾“¾“¾¾Ä“¾“¾¾””½”¾“¾“”¾”¾“¾”¾”]3]2Ïø&:@:q:q: A@;qqrx kGr@@Akqrqrq@:rqHq@Aƒ:GrqqHqr qGGqxrx”„¾“””¾¾”½š¾3¾“¾”ƒ¾“¾”¾ƒ”,”¾¾””Ž½””¾“¾2”“cc]93Ïø'::GGqA3q:@rGxqxr@@3AkGqGqHq@@A@rwA@@:ƒ AAqqGqHqqHqxr“¾”Ä”½Ž“¾“ƒ¾c“””¾¾½š„¾“¾½”¾“¾¾”¾¾”“¸“¾Ž3Ž3c9Ïø :G3qHk A@@qrGrq:@AkAqrq4qG„:qAk„2GqHƒqHqrqHx¾“ƒ¾0“3¾¾”¾2”Ž½¾“¾”¾¾”Ä”¾¾”¾””¾“”¾”“Ž¾“”“¾”c¾22]3ÏøIGqGqq@q@:Gqrq@qq:rAqGq:A@Ak@qGq:@:@ 3GkGkGAAqqHqqx”¾¾“¾”2”¾”½””½”¾”ƒ¾!”þ¾½¾”½”“””½¾”½”¾Žd¾2c”2d3”Ïø@qGr@AG@A@kGkG@:Gq@rkGr::@A@AAA@A@qGqGAqqrGqqAqxrNq¾“¾Ä¾¾”“ƒ¾*”¾””¾¾”þ¾”¾”ľ¾”””“¾””“¾¾“”¾“3¾Ž2]“cÏø3rG@eqAjr AqƒA:rA:@qA@9G@k9„@*AkGkArqq@GqqGqAqGrqG¾¾”¾”“¾Ž¾”“¾½”½”½¾¾”…¾”ƒ¾“Ž“Ž”c·”¾”¾”¾“¾”“cc32Ïø#GqA@q :qGq kGj:9A9A@A3 qAA9Gkqrqƒ:G@:qHqAr@;AAkGrqH@q””½”c”“¾c“¾d¾””¾¾”ľ¾™¾”þ¾™¾dc””””¾”½”¾”½dc3,3ÏøI::q@rG:9HqrAqAA@@AjA9AqGq:qrGqA: 9:@:@:A@rqGkGkGqAk@Ô”½¾¾2¾cŽi¾“¾”ƒ¾”„¾”¾”ƒ¾cc3½Ž”¾¾”½”¾“c]c23Ïø!:GAq3:qqHqrqA@k@Ak@A9AkqG:AAqG„::Aq@3A@rG@kGqr@AA™½”ƒ¾0”3c”¾“¾¾½¾š½¾Ä”½Ä¾½¾¾”½c””c“”2”“”¾“c,3c3]2,Îøn:Aj@9HqqGqq@3:@A:GqAqAqAq:@ApA9qG@AAkGk@k@AqGqqA2“”“”“]3c,”½”Ž”¾”¾¾”¾¾”¾”Ä”¾Ä”ccŽcŽ2Ž”c¾”¾cc¾32Îø9@G@A ::9AqGrGrq3A@r9:qGq:GkG:kGA:qHq@3@9A@G:A@qArAG:@ƒ””Ž“,”””½”½¾¾Ä¾½Ä¾¾½ƒ¾ “¾“Ž”2””ƒ”“¾”””¾c32322Íø'k@:3@qAqrqAqGrq9@A:q @AAkG@kG:@AjqGqr†CkA9k9AqGq:G”·”¾332”·”Ž“¾”¾“¾”¾”¾š¾”ľ¾”“Ž¾ccc¾”¾“¾”¾“Ž2c]c]3,Ìø&:AA9 AqAGr@rqrG4@j@@qqkGqAA@k@:qGAqG‡:q @:Gqqrx3q””“¾¾Ä23c”½”„¾$ľ¾½”¾½¾”¾“Ž““c”]c””½”¾””“”,32ccÍø:?:93ƒ:qqrAqGrw:@ ::r qGkq@Aq@AqAqAˆ qN3AkArxrqƒ¾”“”Ž2]9]2Ž¾”“¾”¾“¾š¾¾”¾½”¾”ƒcc”¾¾”¾½¾”Ž¾“3,]2Íøƒ: :@:HqwGrqGqqƒ:@::qGAkqGA@:AqA@‡::@ 9r9qrÉc”½”¾“¾2]32cƒ¾ă¾#”¾¾“¾Ä”¾½””dŽcc”½”¾”¾¾“””c]323Ìø%G939:wrGrGqHqr3A9:qH@::G@qGqkAj9Gq†@:„?k 39:@H2É””]]3c3¾i¾”½”¾Ä¾½¾Ä¾”¾¾”¾2cccc¾”¾¾“¾“¾”¾”]]c2Ìø&A9 A::@rqrqrqH 9@::GrqG:@kHqAq@kGkA„r@@A]A9 9r23i½”„¾*iŽc2”Ž“¾”¾¾“¾”¾”¾¾½š¾¾33cŽ”“¾”¾””¾½”¾ƒc3Ìø,GqAjM:AqNqHwr@3:GA3@@rqGkGqqGA:3Gqq:@:@: ƒ:c:G3 Éc™2”¾Äƒ¾“d¾ccƒ¾&Ä”¾Ä3¾½”¾”¾“”¾ccŽ,”¾“¾½”“¾”“”c]cc,Ìøƒm9AAr@@rqrqrGqA@kq 9A@@rAqGkAq3G3HAq@::9:9 ::2 ::3ŸÃ™™2¾¾”¾“”¾Žccc¾“”¾“”¾½”ľ“¾¾””“¾¾cc¾”,”¾”¾¾Ž“Ž¾c]33,Ìø„0@@qq@AqGxqrGA9Gq @@:@kGqGqG qGqAG:@::3 2 qqGÄ™8“2”¾cc¾“”j¾c””“¾¾”¾¾”¾”“¾“Ž“¾]d”¾”½Ž“”“Ž¾cc]“]Ìø„*@rrA@AqxGrGkF:q: :3:3 qqAkAkqrq:3A@:A::@:ƒ@?Akx™™“™2É”½”¾c“]“Ž2”c¾”¾”¾“¾¾Ä½¾”¾”“Ž”33c“¾”¾”“Ž¾¾½”Žc]”]]Ìø„8rqq:AqGrr3Gk::q@:9HqGrAG9GrGqG:9q@ q:@:@A:kxq™b“bb9b¾”„¾ c3””¾“¾“ƒ¾ ”¾”¾“¾¾“Žcƒc3cƒ ”“”“”¾cc9ÍøO 9qHwAqAqG3GqAG9:@:: kqrGkA9:qGqrAqA:3 ::@:@::xri™cbi8“2”½¾Ä¾”¾c”233¾””¾”¾”½„¾”¾“”cccŽ]3cc3cŽ”¾”“cc2]Í÷p9 9rAA@kGqqGqqk:@@q@:@@3G@@qrAq:@A@:AqAqxrA@@9c™“ib9“iÃc”¾”½”cc¾3c2,”½Ž½”¾Ä”¾™¾¾””½”cccdcc”¸cc3]23Íö9 39 @wkGA@kHqHq:@rGq:@:@ƒ:P qA@@:qGqGqqrxq:G::]™Ã™“22iÔ¾\”¾”]c]c]9,2”¾¾“¾¾”¾¾”¾¾“Ž¾”””Ž¾c“cdc”cc¾3“”Íô9 3 3@rr@k@qGƒq :@:9qA::@:Hƒqƒ@4AkAqAqqAqrHwrN9k@:c™“i™iÃ2i½”¾”Äcc32cc”c,””¾”½¾¾“ă¾”“¾”“¾¾Ž”ccŽ“¾cc]””Ìô qr:qNA@qAq4GArGkGA@A 3G„:.@@AqGqHqqGqq@:@:A:9™“˜Ã™Éß¾”¾Ä¾¾”]cc]2c¾“ƒ¾š„¾“¾¾””¾¾2,Ž“”“Ž“Ž“Žc]33“ŽÍô^@39:qHq@@qAjGr9GkGqGAk@k@qq:qqG:G33:qqrqrGrG AAxqq@GA\™2™ÃəÙ¾¾“¾“¾”c¾3]cc¾d¾3“¾”½¾”¾Ä¾Ä¾¾“ƒ” ¾2Ž“Ž“Ž“dcƒc””]Íôg@ : rwH@ArGk@GqqHkqGqxrqA@A :: rGrGrGrGqr@3AxrxGr:@2c2i“™“i“Ž”¾”¾“”b]c]”cc¾¾2¾¾”¾½”¾”¾“¾¾“¾½”¾”“Ž”ƒ cc]cŽ“3bÍôY: 3@Aqr@kwAxrkxrqGqqHqxHqx@AqAqxrwrwrwrxr@ xqxrr@qA3c2““282¾“¾\3]”c,dcc,”]”¾”““¾”¾¾Ãƒ¾ľ¾””„¾“Ž“Žiƒc3c]32]Íôs3@AqA9ArxqxxrNrrGrxrGxrrxkGkxqGrrNrHqxqrxrxrwxAqq,2™“i832”¾”¾Ä¾c]c¾c”“””¾“”¾”¾”¾”“¾“¾“”“¾”½d“Žc-c]2]c3Íö :@AjGxqrqHxrwrwrqGrƒq@xqxqx@rxqGqrwxrNr@rwxrx@: 2™2c2™¾“¾¾Ä¾Äcc”2]c”½”½¾¾””“¾“ƒ¾”¾”¾¾”¾”¾“Ž“c2”]c2]”Íör:Arwrx@xqxrqHGqxr@ArGxrNrxGqGqGqrxqxq:A:xrw 9A,, b382™™Ã¾”¾“¾”2”2cc]c””¾”¾¾“”¾”¾”cc“¾“¾“¾“¾“¾”Žc¾3c”]“”Ì÷ 3qrGqGqƒAB:xrwkHwGA@AxqrqxqrAkAkAwHrqNq@A@x :32c-2i\™™“É”½”¾”¾3]”cc]”c”ƒ¾”¾¾“¾“¾½¾¾”¾Ž””¾Ž“¾”¾”½c]]ccc”Íørqr::GƒqAA@xAGqkGjAjAxGqGqGrGqƒAKwrqr9AjAq9AA:9]cbc“b3þ”¾¾c]c”,c3“cŽ“”½”ľ”¾”¾”¾”¾½”½¾“¾¾””½Ž”3c]cc]Í÷":qNqGqAAr@qAqrqrrqr@@qGrqHqrqqGƒqAqNqx:@ƒr@“3]ch3b2™ch™ƒ¾ľÄc””32]”¾”¾”¾½„¾½”¾¾Ä”¾”¾”¾“3]“¾“”32ƒc3Í÷:qrqrqqxA@kGxxGxHwGkAƒ@2rxrNrqGr:@@qrH9rGwG:Ž2]8]32328ii¾“ľľ¾c“3]“cŽ“ƒ¾ ”¾š½¾”¾¾“„¾½”¾¾“33¾Ž¾3\]c2Í÷] : rGxHxHqGkxqrqx@kAqG::@A:xqqGqr:@Aqxqqrrqrcc]c]™c’¾Ä¾”¾“¾Žc”2]”c¾¾”½¾Ä½¾”ľľ¾”¾™ƒ¾“¾¾“¾2Ži¾23dccÎøQ9 9:wqxr@xqNrxr@AqA3@Ak@A@AGkGA@q::GGA9AwHwAc32cc2c8\ci””½¾¾”¾“c3c¾½¾”¾”„¾”½”ă¾”¾Ä”¾”¾“cŽ“c”3,]2”ÎøN k@ A@r:qxrxqxGqA@qGA@@AkqGkA@k@AAGqqkqGrqA@”cc]3bc88“½¾¾cc]cjcc¾c”¾”ƒ¾š¾”½„¾“¾Ä¾”¾¾½”¾Ž”c¾2c3“¸Îøn::::AGAr@:rMrrxqAqk9A:qGkAqAjAq@qkGGAq:qGkqG”Žcc]c8i2“i¾”¾”¾Ä”dc¾3”¾½”Ľ¾¾Ä¾š¾¾š¾¾”½¾¾”¾¾“”c”,”]3]“3Îø@ƒ:-j:@@AG:@rwrxqGGk99 qAFkGqGAqAGkqA@AqAAj”“c3ƒcbi328þ¾Ä¾Ä¾“”Žc¾2”¾”¾”¾“ƒ¾”½„¾š¾½Ä”¾¾“Ž“”\c3cÎøn9A9::@A@:jA@:qrMrrGkGGA939:@qGqA@@:Grx@::GqA”Žc]c“282ß¾¾Ä¾¾ÄŽ¾“c]9c3¾¾½¾¾Ä¾”¾“ľ”Ä“¾¾”¾”½¾“Žcd2]3c323ÎøU :9G::Aj@AjAk@rrwGqGkrqG::@GrqAkAq@rxqr@:@kG”c\333b392ɾľľ¾Ä”¾,cc¾”¾š¾“¾”Ć¾”½„¾ ””“Ž“¾c2c2]Îø 9:: qqƒ:1AFq@@AAqrrqGrqG:@qGAkGqA@xrx9:G:3A“”ccŽ993]9’cɃ¾ľă¾ 3]c¾”½¾”ƒ¾½”¾”½”ľ¾š¾“”½¾¾”j”c,”]3Ïøƒ::@@qGG9„:@:ƒ@@rGxqrqr@A::9GqAj@kGqG::kGqA”·cc:29iÃiÉľľľ¾Ä¾Ä2ccd,”¾¾”¾¾“ă¾ Ä”¾½”¾½”¾””ƒ¾c¾2]3232Ïø„$kAqr :@:@Gr:3:q:HqN3:9:Ak::@:AkGkƒ:G:3“Ž3:G3 :biÙɾă¾”¾¾Ä23Ž2¾”½¾Ä”¾”¾”“ƒ¾”¾”¾¾”½¾“cc”cc]2c3Ðø…' k: q::Gk @::@9A@A@3:9GqAGkGGkG:G@kƒ:"“@ qq @:cÃÃɾľ¾Ä¾Ä¾”Ž23”¾”¾“ƒ¾“ƒ¾”þ¾Ä“¾¾”¾cc“3]2c,Ðø…H 9 9H:GkGk @:@@q@:9:@:3rqGkGq:AqqGkGG3GŽ3GqH3: 9ŽŸ™É¾¾Ä¾¾Ä¾¾“Ž32,3¾“„¾”½”ľ”ľ”¾“¾¾”¾½¾cŽŽc23]33Ðø‡*:@-qqGqGq:: kAAq@ 9q9:Gk: rxr@AqAqAqG…:@@:@Ù¾¾Ä¾Ä¾¾Äc¾2c3“¾”¾“Ä”¾Äƒ¾½”¾½”¾”¾¾š¾¾cc”“c3¾23ÑøˆR@A qrqrqG jA@kAG::G:wrq@:qqGqGqA9 AqG:A@ ™“cc¾Ä¾Ä,c3¾¾3]3¾½”¾¾½¾”½”¾”¾¾”ƒ¾™¾¾”cc”Ž¾2”2Ñøˆc@@:: GqGqq33 2AAkGAqAq k qGq:@HqGkqrxqAqqrq:qq:cŽcŽÄ¾,cŽ¾¾Ä29”“¾”¾”¾¾”¾½”¾½”ľ¾”½“Ž“Ž½”¾2]33Ñøˆƒ:q rqHkGq: k @kG@kƒ@J:qG:@:@AqAqAqHxrq qHwrqAAq:ccc¾Ä”“”¾¾3¾”“¾¾”½¾š½¾š¾”¾¾“¾”¾c3”“”]3cÑøˆ"A:@:G3GqHqA q9A: qr@@:k@rwkGrrqƒ@%rqqNqrxqrMrxr“dc3¾¾cc”Ž½2c”j“¾Ž¾”½”ƒ¾”¾½”½”ƒ¾ c“3¾“¾Ž“9]”Òøˆb@k@@AqAAqqAA:2 3qGrqrA@@kGkGrwrGqrrxrq:qHqxGrqxqŽ“Ž“cc”]“”3c¾¾”2¾¾“¾”½”¾“¾¾”¾Ä”c]”“Ž”½3c,23Òøƒƒ@c:@A:9A@j@A:@k3 qqHqAF::Gq rqrx@rxqHqGrGxqrqGr:@¾¾Ä3”Ä”¾”“-“¾c“Ž¾Ä”“”¾¾”Äcc¾”½”¾¾2c3]Óø… :@3 @:kqGqAƒ@-qqAkG3GqA@kA@:qA9A@::xGxrGqxrwrGxr@A@Aľc¾“Žƒ¾”¾¾”]cc¾”“”¾ƒ”¾½¾cc]”“”¾”½c]329Óø…5:@:@49GAqAqAkGrG@qq:@::Aq@xqA3AA@kG@:@:@:GAqHq rGqAkÄ„¾+”¾Ä¾”“¾”¾cc3¾“Ž¾cŽiŽ“¾”2c3”½”¾¾]cc32c,Óøƒ GqHkGA9G@kAqAƒq)GqkGGA3Gk@A:r@3G::GqAqqGrqqAqG:qGk@@A¾¾šƒ¾)½”¾“Ž”¾“””¾c¾c”c”””¾¾“”¸”¾c9323Ôøƒe:qGqqA@;@kG@@rGrqAGrq@9A@qAqG3@qG:qGqrGrxGqG3qAqGqGkG¾¾½¾š¾Ä¾¾”¾“”“Ž””ccc””¾””¾“Ž“¾¾”½3cc3]cÔø„@ƒA3k9r@q@rqGqGr@- q93AAqGkq A@:qGkGqrxrqAqxrrGkqGqr½š…¾”Ä“¾”·”½Ž“ŽcŽccŽ“Ž“”“¾½Ž“ƒ” ½¾c”]”cc]Ôø‰0 qAAqGrqH-9:9 9ArHpAqAqqqrqGqqrxqGqqrxGx@rG::xƒ¾+ľľ½¾”¾“”Ž“”“Ž“ccc”2Ž“¸”””¾½””c]ccŽÕø‹ 3@:: 39 GGqAAqGqq qAq: 3HwGkHrG@ƒAxrxrq@rr@:G¾Ä¾¾Ä¾Ä¾¾”“¸“”Ž½Ž”„cd”¾c”“d¾”Ž“ccc”Ž9“Æø‹ q:@qAA@qkHjGqqGr kGA9 xqrAqx„q4xrxxqNArwrxx:¾¾Ä”¾¾”ľ¾””¾“Ž“”Žc]”c””Ž“”“”cc]cƒ”¾“]23232ÑøŠ/Aq@ qA:AkGqGkGkHqr9AqG:kqxr@xrGA:Grwrxr@@xrwrxx„¾ Ľ¾¾Ä¾¾½”Ž“”¾ƒcc”cc”¾”¾”c]”¾”¾]”Ž†…cÆø‰@kGqr @3Fq :rrqrqr@@Aq:9AGrwAƒqBG3xrxxrx@rxqHxrw”ľ¾”ľ”½¾””½3¾“¾c”cŽcŽccŽ””“”½33”“Ž½”c””„cÍøˆb@AA:q:A9 :3@:@qH9 9rqA@@Awr:H@A:xxrxqNqrqrGrwxxŽ¾Ä½¾”¾¾Ä¾¾“”]3“¾¾d“cdc””¾,”¾]c“¾Ž½”]39,Ž“Ž2Òø‰3@kGGAjA@rAqG:@rqGrGrGr@Akxr qAqAqrxqGqArMrqxqxrxw””ƒ¾(“¾”¾“”“¾c”¾”c3c3cŽ”“,”¾¾2””½””]833Õø‡_Gq q@kGAqrqGqrGqA@rqrwrwq xqx@AqAqAGqGAqxrqHqGArxrr¾½”¾š¾¾Ä¾””¾¾]“¾c22Ž¾iŽ”¾“c”2]¾cc]3Öøˆ^rqGqGkqGqrqHqkG:rxqHqHqH3AxA@qAqqrqGrrwrGxAqq@@xx¾Ä¾Ä¾¾½¾¾“Ž¾½”¾¾cc¾3”¾”¾2cc”¾””]“c]””“cc”¾Öø‰ Ar@@:9rGqHqGƒq" GkA@xqAq9AjrGqrGqrqrGrqrGqrGrqGr…¾ĔĔ¾¾”¾Ä¾Äc”¾2”½¾”]c”]2ƒ” ¾”¾””“”Õø‰>Aqr@:H9:qqA::Gr@93Gk@r A@ArqrwHqxx:@:MkqrqxGr@x”ľĔ¾¾2”“¾½”„¾ c¾”¾]”]“ƒc]c”½””Ž”¾”,¾¾cÒø‰c@qrq:qGrH:@GAkG:AqGqA@r@3:@xGrGrwrxrwqr@xxHwrqGrx¾½”¾Ä½3“¾”]92”“”¾c¾¾“”\c”ccŽ9]“¸”c”½”¾“”“”¾c”ccÐø‰@AGG9rƒq+xAjqrw:AqqGk@:@@ qrwrqqHqxr r@rxrqHqrqxxcă¾“Ž“]2”]¾¾“¾2¾“ƒ”]]“”½3¾“”””¾”¾c”¾¾”¾ÑøŠ'3::@;Nqr GqH9Ar::GA@3rq:@@:xrxrGGqrwHƒx2qxHxrcd“¾”c]”¾2cc2]c3””¾3”¾””]“Ž“”¾“¾“Ž”2]ƒcÓøŒ9G::@k:@AqrqAqr@kGkGqGqGrNqxqGrrwqxqHqxrxqrwrxrwrxqrxrMrrɾ”¾“ƒ¾%c”¾”½¾¾3¾”¾½¾“¾¾”¾c”3”]c”cc¾3cc2Ñø…:G::@G:AqqGqAq@A@qGkGrrƒq1rGxrwrNrrxxrwHqxrxrxrxrNrwrxrwrŸ¾“¾¾”¾”¾¾“¾”¾”½¾“ƒ”¾”½ƒ”cŽ½cc”¾c¾]c2Ž“]cÒø…99::@::FAAqAqGAjGkGqGrGrGrwrqrNrqMrwrrwrNqxGxqNqxrxGxqHxƒ¾ ”“”½¾Ä¾”“ƒ¾”¾”½¾“¾””¾“¾c””2„c32”2]cÑø„:A@:@ƒ:2k@AkAq@kHqAqqrqrGrHxrwqrqHxrxGxHqxrxxrxrxrwrxrxqr“„¾(”¾“¾”¾”“”¾¾½¾”¾”½¾¾“Ž””¾c]”2d2]c]]3]Ñø„ ::@:@:@:9:Gq@„A:jGrqHqGqrqwrM:rGrqqxqxqrxrwrxqxxqxxrwHqxrľ”Ľ¾¾”¾¾½¾¾½”¾šƒ¾“””¾¾“”½”9”¾c”cc”c2Ðø„ ::@:@:A:9Gk@@„q8GqAqGrqGrGx:qxxqxrGxrxqxxHxrNqxHxqNrxrwHɾ½”¾”¾¾“ľ”¾¾”ƒ¾“ƒ¾“¾”¾””Ž“]”½cd,c,”c3“3Ðø„h9:@::@q::GqA@AAqHrqHq3HqGqrqrHrxHwrxrGxrNqxqxrxrwrxrwrxrxԾľ¾Ä¾¾”¾¾Ä”½¾“¾”¾”“”¾”½¾¾“Ž“]d¾c2ŽŽ“cc]ccÐø„ 9A:@:G9qAq ƒq:rqGq rqrqHq:MqxqxrxGxrqxrxrxqxqxrxqxrxGxqŸ¾¾”““Ž“¾Ä““Ž¾šƒ¾“ƒ¾“¾”¾”“”Ž“Ž“Ž2”Žc]c3]ÐøƒT :9@::@jA:A@AkAGrqGr9rGqNqqGrrqxrqNqrqxHwrqxHxxHxqNrxNrxrxþľ¾”“¾¾”¾¾”“”¾”cc¾”¾”¾“„¾ c”“Žc”,c½ƒc]c]Ðø„?9:: :A:9@A@:qGqqHqAqHqqrqHrwrGxrMrxrqNrwrxHwrwrwrxrxqxqxqxŸ¾“¾”…¾%”¾”¾½¾”½”“¾½”¾”½”¾c”“”½”cŽŽc”c2Ïøƒ:ƒ:e@@::@@k:GkGrAqAqqHqNqqrGrxqxrqrMrxqxrwrrwrNrwrxqxrxqNrÔ¾¾“¾”¾š½¾“¾¾”¾”¾”¾¾“Ž¾”“¾”“¾¾”c]”¸“32”,]“Ž“3Ïøƒ„:f9:@:@:AAj@qqAqAqrrqrqHqxqxqxHwHqxrxrxGrwHxrwrxHxrNqxrxq™¾“¾¾”¾½”¾”¾Ä”¾½”¾½¾”¾”“¾¾”¾”¾“””c”“Ž\c”]”]]Ïøƒ9:9:„:9@kG:@HqA@AqNqNqqrGrGxrxrqxrxqxGrxrxqrwrxrwrwrxHwrxɾ¾”¾½”ƒ¾“„¾”¾”ƒ¾”¾”””½”Ž½,d”c”Žƒcc3Ïøƒj::A::@::@k@:qGqAqqrqrNqGrxrwHqxrqxHxrGqGqrNrxHxrxxrMrxrwHÔ“¾“”¾Ä”¾¾Ä”½”Ľ¾”“¾¾“¾¾“”c”Ž¾c”cŽ“c]cc]ÏøƒB:@:j:9::9:@ @:AqqrGxGqqHqqxqrxqHxrwrwAqrxrwrwrxwrMqGrxqrrwÔ¾”¾¾”ƒ“Ž“ƒ¾ ”¾”¾¾“¾¾”¾¾”¾”“¾“”Žc¾c”ŽccÏøƒj9@A:@@:G:@AA9::qr@GrqrGrqrxHxrGxxqGxrxrxqxGxrxxrxrqHrwrqNqxA“”½”“¾”¸”“”¾”2”½¾Ä”¾”¾½””“Ž“¾”¾”]c“cd”c2ÏøƒH:A9@A@:q:@AjA@:GqArwrxqGrMrwrqrwrxrxGqrMrxrrwHwrMqrxqrxxrxGr¾¾”¾¾”½”½Ž¾“ƒ¾ ”2¾¾½”¾š½”¾“ƒ””“”Ž”“Ž3c23Îø/ :@:3:@::kGAj:@rG@rxGrGrqxrqGxrHxqx:rxqrxqNqƒr GrqGqxHxqxrAwƒ¾$“¾”””¾”¾”½”“”¾””¾“¾”½”¾“Ž½”””¾c“Ž„cŽ2ŽÏø ƒ@ :A:: @jGAƒ@.r@rqxAqxqrMrrqxqrx:MrGxrNqrGqGqxrGrGqqrxGx9rÉ”„¾)“¾“¾“¾¾“Ž”½”½”“¾”“Ž¾”¾”c””½cŽcŽcc”23Îø3ƒ:=9:@39:@Ak@:A:qA@xqrqHwrrwHxqGG@qrwrxqxrqxGxrwrGqrGrwrxrrMÔ½”ƒ¾””¾”“ƒ¾”¾””„¾“¾“””ƒ¾ ”c¾2“ccŽc2Îø 9:@ @@ ::@:qAƒ@<:A@AqHwrrMrqrwr9qrHqxHqrGxGrrwrHwqG::qGrxGxrÔ”¾“Ä”½]c¾¾”¾”½„¾“”ƒ¾”Ž¾”c”¾“”c¾3cŽ]c2,c]Îø:A:3@A@:9 @:9Aƒ:jAqrwrGrqxGrN3HGrqHxqxGqqrxqxxrƒ: @qrrGxrqx™Äƒ¾*”¾”¾c”¾”¾”½”¾¾”¾“¾”“cŽ”“Ž“Ž“3cc3c,3Îø93A@9;j@3:3@@:qƒ: @qHrqx@rGƒqMGqrqrwrr@rGrxrxrw::GrqHwrxrwGkɾ¾Ä“¾¾“”¾c”“¾”¾¾“¾¾“¾”“¾”Žcc”“¾”¾“¾c3c¾33cÎø@:Aq:9@A@43@G:;@q::GqGrwGqHqrr@rrGqxxrxGAwrxwrMr rwrxqrGxqxrrGÉ„¾”“¾¾“¾¾“Ž”¾½”c¾”ľ”„¾“”“¾”Ž½”,c¾cŽ½”\3ÎømA@: :@A93@:@q::AqqGqrGrqx@HqGrrNqxAjxrxrxxr wrGxqNxrxrNwŽGÃÄ”½”¾¾”¾””¾”“ľ”cc“”¾“¾”¾””””,”d”cŽ“¾””cÏøƒAq@: 9;@3@A::qG::@qAAkGqqrG@qrqrwrqHqAxrwrMrqGrrwrxrxrwxqr™“ŽÉ¾”¾Äƒ¾“¾½”½ƒ”¾¾“¾”¸“”¾22”½¾””“¾2”½”¾“]2Ïøƒ>:G@3:@:@A:q qq:AqG2GrGqHjHqGrxrxGqqxqNrxrxrqqNrxGxqxrxxq”:9É”ƒ¾)Ľ¾¾”¾“Ž¾“¾”¾”¾½”¾”¾¾c¾”¾“”·”¾c”¾”“3c33Ïøm@@kA@@A:@kG 3 r@Gk qrqrG:rqGrxGxx@rxHxqxqx qHqrwrxrxrNrqi:xr™¾½Ä¾”¾š¾¾“Ž“”¾”½¾”¾¾“¾“¾”3“¾”Ž“”¾”””3¾2]ÏøP@A k@:jG3AqA2 @ @kGqGqHq:qxGrqxx@A@rwrxrxr9rMqGxrwrxwrxqxrxqxɾ”¾¾Ä¾¾“¾¾””½”¾”ƒ¾“¾¾”Žc½”¾”½”¾¾“Ž“Ž“Ž½]”]2]Îø":@q AqA@qGq q4@rrqHq:@rGrqrxrrƒqrrwrGqNqrrqrqxHxrNrqxNrxrx™¾Äƒ¾)“¾¾”¾“Ž”¾¾“¾”ľ”“”“”¾“¾”½””d“””c½c39Îø@@qAqqq :qq39:9Hwqq:@AqqGxqNwxGrGxGrxqxrGqGrGxrwrwrrxqxqNxɃ¾š¾¾”¾Ä”¾½”“¾”¾”½¾”½”¾Ž½Ž””¾”¾ƒ ”cŽ“, 32]ÎønGkHq:G-AqAA93GrrG:xrrGqrGqArxqGrrxqGxrxrqrGxqHxqrrwrxHxrqɾ”¾½¾¾Ä“¾½”¾¾Ž“¾”¾”½”¾”“¾“]“”¾“””Ž“”3”\33ÎøƒkqqGA9 A@@4: qqGr@rGrwGrqHqqGqHjA@ 9GqGqHqNqrxqrN:qArwrwrxxÃľľĔ¾¾”¾¾”¾“””½”½”¾”¾“Ž”¾”c¾”Ž“”Žc”]c3]ccÎø":AGr@A@d:@9AqGrqxqrwrHqrqrGqAq„:3::qHqqGk@A@A@r9Aqxrxrxqx™ƒ¾*”¾¾“¾”½”½”””¾”¾“Ž“¾”½”c”¾“”¸“¾c“”“23]Ïø'@:@:kAkq @3:GjAqGrG AAGjGAGqAq@:@:@GAƒ: GkGqGkGkqAwrq@AqNqxHxɾ”þľ¾”¾¾„” ¾“¾¾“¾”¾”¾c¾Ž“¾“¾ccŽ“Ž¾3c“3“Îø@AkqGqAG3ƒA0qrqrw k@rq::@ 3:@:@:9: @qGrqr :AqGkqGrAqGrxqxrÉ”„¾(“¾“¾”½”¾¾”“”¾””¾”½”Ž“”“¾Ž“d””·”“3ccÏøƒj@AqqGrk: qq@rwrxrqxA::G@q3A@GkAGkq9::AqHqq9qGqHrqGqrqxrxGɾ¾Ä”¾”¾”¾½”“¾”\”¸“”·”½”¾”c”Ž”“Žc¾,“””Ž2cc]Ïøƒ=qAk :qAqG9AAq@AqGqGr 2@9Ak@G@4GAqAq 9 ::9@ArqAqGqrqGGrGxqxľÄ”½ƒ”"¾¾””“¾”“¾”¾“””¾“”¾¾c””Ž“c,cc¾Ïøm AA@:qGq:AjGAkGqrqr ::@@AqA3AjGkGkGkGqAA:@A@@qGqGrAqGqrxHɔē¾¾“”¾“¾¾“3”¾”¾“¾Ž”¾“”·”c””””¾c]3Ï÷n33@3AjA@;@3 9Gkq@@;: : @@3@kG:@@kG:qGkqGk@Aj @: :AqHqGqkqGqrqþ¾Ä¾¾“””¾“”¾¾””“¾”½”¾”½”“¾cŽ“”¾“””cc”,cÏõq 9 ::@::@q ::AqHqAp::@@k@ AqAq:Aq:AqGGrq3:999:qGk@kHqHqHqNÉ”¾¾”¾“Ž”¸“c”¾””¾”½”¾¾Ž””c””Ž“cŽc”””c3Îõ43 9@:@:3G49G:qG„qA :@:A@A3:GkG:A9:GkqAq@:49ƒ <3GkAqGqAqqGqri½¾Ä¾¾”“”“¾Ž“”“¾”½Ž½¾”¾“¾“¾cŽ”3“d”“¾Ž“Žc3cÎô$ 9: 3::G@A q::A::qGrGrq@39A:q@:@kG:ƒ@:@AAk:: ::392 :9AqAqAƒr1qG“”¾”¾Ä”¾”¾”“cŽ¾”¾”¾¾”¾”¾”¾“cŽ“dcc”½Ž“”“,c]cÎó*3 : 3GkjA9:@q:@qGqrGGq @@r kGAq:@k@@:ƒ@F3 3@:@ 3“ qrGkGkGGqxGqþ”þ¾”¾“”]c”¾“¾”½”½¾“¾”¾”cc”cc¾Ž””]”cc½ÎóF 3 99 @4qGAq:@@AqGkrA@kqH@3A:9A@qk@:qG:A9qqA:@93 @:GkGqGqGqqrAqGÉ”„¾ “”Žc”¾¾”ƒ¾ ”¾”¾¾”½¾”¾ƒc Žc”½c“]c”½,cÏôs:43 @::G::A@qGqGqGAqqr :3:@kGq:GkGk@3Aq@ 33: 2:223A@qAkAqAqGqAqþ¾”ľ”“¾cc“¸”¾“¾¾“¾½”¾“¾¾”¾¾”]”c3””Ž“”c3]3,ÍòR 3 3:-@3 9:@@:rqArrqqHqq @9qrG:AAqGqA3 qG;@: 9 9Ac23jA@AFk:GqrAGr™”¾½“Žc3ccŽ”“ƒ¾ ”½”¾”¾”¾”¾½”¾cccŽ“””¾”Ž23Íó3 93 9ƒ:T :3:A@@rqHwAqrHq3@ qHqGjqGqGk qAq3:9 @3@Ai2]@qq:qA9rGqAqɾ”¾”¾¾\cc“¸“¾”½”¾”¾”½¾¾½”ƒ¾icŽƒc Ž”½”””“3]Íó 3 9:3ƒ:h9:Aq:rwrqxGqxqq9:GqAAqGkAqG9rGA @:A::“c@Hq q:GqrqGk@A½”¾¾Ã”]3cŽ“””¾”¾”½¾”¾”¾Ä¾¾šŽ9cŽ””¾”½”Ž“Ž2cÍòu@ 3 :A3 93k 3GkG@rGxHqrxGr A3 Aj@:qGqqGqHqqAjA:@:9:h”c::9 q:GqGqAA@”“¾””¾“3”¾”½¾“¾”¾“¾½””“¾“Žc3,cc”“”½Ž”½””“3cÍòv:@9A:9Aq::3@:AG:@ArqxGrxq kk@A@qHq;@rAqG3 @@:q : ™”cc9AAkGrGr3Aq™¾“¾“”¾cc¾”¾”¾½”¾”¾“¾”¾”“c33””¾“¾”¾”Žc,cÌóu@ :@@::9:: qk@k@xqqrqr3Gq 3 qq: qGqrqA39A@:9::“Ž322™qAqArwr :Ô¾”¸c]33c¾“¾“¾”¾“¾”¾”½”½Žc3cc””½”¾”½””“332ÌõGAjA@ :A@k3Aqx@AqGrGxq@Aq qqrGA@:3GA@A9::@@rG@“c2i3ÙGk9@3x“@q™¾“”ƒ¾ ic2¾c¾¾”¾¾”ƒ¾½”¾”¾””2c]c2”Ž¾”½”¾”¾”3ÌöA@@33GkA: qxGk@ArqrGr@A@„:&9::9A@k9:A:9:qqrA@c89“ch]G: @: @xrx“ƒ¾+Ô¾3c¾¾”½”¾½”¾”¾¾“¾“Žc3c]cc¾22]”¾”cc]c3“Ìöm3A9 3@A@ qrqrAqqGxqr@qA:j:AG G 3:9A@@A@:@k:: 99::2™bc38:qq @Akwr¾”½”¾”½3cc¾”¾¾”¾Ä¾½š¾”¾¾“”]cc”¾Ž“”“¾“¸“ƒc]ÌöA3:@ƒ@.39HxGqGqGqH:9Aq9A:q:@:3A3Ak@kAqqGA@: qA:A™cc…:3:@GrÃŽ¾”¾¾”ƒ$c]c¾“¾”½”¾¾”½”“Ž”¾3cc¾“Ž¾”Ž¾”¾”cc3Íõs 3@ @::@49 @rq: AqHq:GrGk@r9:39 q:@AGkAGkqk:9Aq:G™@k99@A9::Ã2“™™”½”½cŽiŽc¾”“Ž“¾”¾”½¾”¾¾”“32c]””“¾“”½Ž]2,ÌõM @:3::9 qA@@qGrqAkGqrqGq9;9 @3@@ 3kGk@qAq:GGqGrAG3A@:AGA™i™“h22i““”¾”¾¾iŽƒc¾¾“”¾½”¾¾”“”¾“Žƒc]cc332]Ž”¾“]32 Ëör:9 AAqqAqrq qAqqHqrG @:3@A::9A3kGAjG: 3Gk@33Aj:Aqkqq:b8““9hcÉ“¾¾Ä¾¾“cŽ”“Ž¾“¾¾”¾½”¾“Ž“]cŽ2ccŽc“c”3]9“3,Ì÷ 39AjHqArq kGqrqGqAjA@ ƒ@:AAqA:ƒqK::G2Gq9:qr@AxAF@GA:bicc™b“iþ”½¾”¾”Žc“c””½”¾”½”¾”½”””cŽ”,3“ŽcŽc”]ccÌ÷ @:AAq3rAqGrGkGrGxƒ@AqqrAkAqA@Aq9Aƒ@IkGk rGrGqxqxk:A@chÙÉ228Ôc¾”¾½”“3]2Ž¾“¾”¾¾”¾“¾”¾”½”d“j¾“”“”c“32c3Ì÷q2A39:GAGkGkxAqqxr@rqrqrGqGqrGkGjAA@@A::G:9kGqrqrxrxrG@Aj2™Ã™™icc8¾“¾“”c”]3“3”¾“”½”¾”¾¾”“”Ž””,”””ŽcŽccd32Ìø :k@kqAƒqGGr@qGrGGqAqAqAqA9Gk9„:A94xqGqGGqHwrG:qAA8,iic“b8ic¾”„¾(”c”c”22¾Ž“¾”½¾“¾¾”½¾“¸“3”“¾”cccc,]]Ìø!:@:9GqA qGrHqqrqHqrqrqHqrqxqGkAƒ:@@rqNqƒrCqGrAAFk:q@k82™“™™“b28¾½”¾¾”¾]“2]½Ž]¾“”¾”¾”¾”½¾””Ž“”¾23Ž”“ŽcccŽ23“Ìøp9:@:Arq krqxrGrqqHqxGrqxHxrxqGkG@AwrxxqrxGrMrAqqkAqGA@cc™b™Ã8ccß¾¾”þ”cŽ2cc¾3½”½”½”¾”¾¾½”¾“¾”23½Ž“Žc]]”Ìøo39rqrGqxGr qrqHqxrrxqHqxqrMrxqqkrqHqxrGqxGqr@qGxqxGkqAhc™2™c8c8™Ã”¾¾”½]“3]3”c¾”3¾”¾”¾½¾”¾”½”Ž½¾¾”“Ž”cc”23]3Íøo9 :GrG@rqrqG:GqxrwHwrGrxqHwrxqrNqAwrqNqrGqrrq qrrxGrAGj2b38b382™™”¾cc”c”3cc¾c¾½”\c¾½””¾½”¾”¾“””¾“¾”“Ž“c]3]92Íøn @9qrGqG@@qAqA qrqHqrqxqrrwrxrqxAGAqAxqxrqNr9rMrwrqqGA2ccbc8c2™™“¾“¾¾Ä,c¾2c]“,”Ž”Ž¾“¾”¾½”¾¾”½”¾¾“¾Žcc22]Îøƒ 3A qGqrGrGqGkAwHq@:GA@:@GrGqHqAƒ@kGrqNrq@ 3xrrMŽGkq2c2cbi2c2Ôƒ¾'”¾c¾¾c¾c”“”½”¾“”¾”¾”¾¾“¾”¾”½”Ž“Ž“Ž],3Îø„! @ 9qGqqAqr@A@qGA@k@A::@qHqGqGkAƒ@FrqqG:qGA@xqrckGAcŽ3232b™c™¾“¾”½¾c¾c¾cŽ”¾¾”¾”½”½c””½”½”””“c3]“Îø…:3:9rqHqrqHqAkqrqGrq:GkGkGkGqkqqrG@GqG:@k@rxc]“Ac”2i8„™“ƒ¾&š¾¾,”c3]3“Ž½”¾¾“”¾”¾”¾”½”¾Ž”¾“Ž”¾”3Ïø†h3:A@rqrGrq qqHqrwrG3@@::9:qrqr AGq:AkGrr@:AqG]9]]c2Ž3]3:Ù““™¾”¾“¾”¾cc2c””½”¾”¾½”¾“¾”¾¾“¾“¾”\”“c¾2c3ÎøˆA@Arqq qrwHqH@:@Ajƒ@NG:HwGqqA@AkAkqr@:qGqG]c2]”“c bi““™“¾”¾¾cc”,cŽ9”¾“¾¾”¾¾“¾”¾“¾¾”¾”]3¾c¾”3ÏøˆT:3:A9Hq qHqrqq:G:@A:Akr@kGkGqA@kGFAqA:qGrGkc2c]“29,c32™bi2þ¾Ä¾¾c”2cŽc¾”¾”¾“¾¾“¾”ƒ¾ ”“¾“¾”“¾cc¾“3Ðø‰c: p:Aq@AqrGrGqkGk9:@9@:@rGkA@qkAqGq::qrqG]c]cŽbibi2c™“2iÉ”“¾¾”¾2¾”]3“”½”½”¾¾”¾”½”½”¾”¾”½”¾“c323Ðøˆ ::A:9:A@:GqqxHqƒA@ƒ:$AqA@A@k@GqGqAqGc qG3 2cc38cc23b™“þ$“ľ23c3“3¾””¾”¾“¾“¾”¾¾”½”½”¾””d]2Ñø‰=@:3 3:G:@AjHqGqrFkqArF kGkGkGk: :qAqGkcc3A@: 3]2c28c“i“Ÿ¾”ƒ¾”ƒ33]c“¸“¾”¾”¾“¾”½”¾”¾“¾”¾”cc]Ðøˆc 9: @3@@k@A@:rGkA@qqrGk@AqGqG9:qGrAAqGA 39 9:A2ŽŽ3™“þĔÄc”c”\c”“¾”½”½”¾”½”¾“¾”¾¾“¸cc]33Ñøˆ>AA9:3Gqq::39:@:qrqHqrqA@:@Aqq:AqrqGjG3@@3 3A: :9 b2,“™Ÿ¾½„¾”””“¾¾”¾“”¾“¾”¾””½Ž“”¾”ƒc¾,Ñøˆ k@@9qGGAG:ƒ:GqGrM:@::@k @3 rqA9ƒ:993@::3q23ib™¾”¾Ä¾Ä”c””]¾”½”Ž½”¾”“¾“¾”¾”½””]”9Ñø‰ Gk::@3HkqA@„Q qG9A3A@A@@::@q::qGr9::9: ::9Gq:: b,cb™™¾Ä¾¾”½¾”]]c””½Ž¾“¾”“¾Ž¾”¾“¾Ž””½c3Òø„AA@@A@3 @A@3Gqq†P 3AqGk@AqqGqA:GkGq AGqA239:Grq :@A2928™™¾“¾¾Ä”¾”cc“3“¸”“”¾”¾”½”½””¾“”””]c]2Òø†9AjAk :@k@AkGA†P3G3Ak:9@qAqH3@3GkG3qGk: 3:@:qr::9bc2™bþ”“cc”c]¾,”“¾”½Ž“””¾”¾”·””¾“¾3c23Òø‡@A3:@:@@:@@k9 „3 3AqG k@AqAqGA3GqqHAkG9@:ƒ@::@:Abic2cŸÃÄ„¾ ””]c32”¾””½Ž½”·”¾”“”¾”½””]cc3Òøˆ9::„:Y@AA@: 3:: @kA9GqGrr:qq 3Hqq@Gk :Aq::A:A9::hc82cÉ”¾¾Ä¾¾“Žc]2¾””½Ž””¾””½”¾”½”¸2cc32Òø‡b:@A@k:@qAk:Gk@AqqG:9 d qqr kAwr9G:@qrrx@qGkqGqG:@k @jA@9:@™™Éþľ”ľ“”3”“¾“”¾“¾¾“Ž”“””¾Ž“]3c”“Óø† rGk@k@:GqGGkGk@qrqAqA3@ qHqrwAqGƒ:@r@@ArrqGqrGr::@qrGk@A@4™“™É¾”ƒ¾”¾92””¸“”¸“””¾“¸”·”“¾c“Ž”,Óø…c@GkGqG:qGkkGqAqrGqHqA@ @3rqxGkGAkAwr@GAAqGqGkHqrqr@GrG3Aq@É™™É¾Ä¾Ä¾½”¾¾2Ž”½”¾“”¾“Ž“”“”¾”¾3,”c3‡ccÊø†::@Aq@rAAqGkqGqrG„q*@A:GrqGAqA@@qGAqqrqqAGkqHqHqGqqGqq:9ArÉ“cÉ„¾Ä”„¾”“¾”Ž”½”¾Ž“¾“¸22cd“Ž3†cc3Ëø‰AA3ƒ@ZAkGqrGrqHqHq:@:AFAqA3GjAqr:GrwHAqAxqxqxqGrGk:Grq:rÉibþš¾“”¾š¾c¾¾””“Ž¾c””¾Ž]c”Ž“Ž“23cÓøŠ`3 kAqAqHqrFA@33A@kqGkGqrA@G:9kGrqAqxqxHqxrrqrrGqrAGG“b™™¾¾”¾¾”½¾“”“”c¾¾cc”½”½,Ž“Ž“33ccÒø… „]:qG:qq:993@:@A9 k:9: qA@qA94:@@A@A@xrxqqHqNqxGxqGA@qkG9cÃÄ”½¾”¾¾”¾c¾]]i”c]c””\”Ž“Ž”2]2cÕøŠ 9GqGq@A@…: ƒ:#G:G3 qqGrA99G:AqAjGkGAqHqrqHqrqAqkGƒ:@@”¾“ƒ¾Ãc¾”2ƒc Žc]“cŽ”c„”“]””]”ÕøŠ AAkGq3:@k@:ƒqNGk@qGqG3Gkqr@:Aq@@q@rqA@A@qqGqq:A@AqGqqcc]23c¾Ä”3,c¾c”]cc3cc””c¾Ž½”2]c]c“,ÕøŠ%@A@k AAA@@A@HqAG@AkAAkGGrqGkG:A@rGrƒq5rGrGr@;wrAqGkr”¾33c¾c¾¾23c¾c]c]ccŽ“cŽ“”c3]3“”¾Ž3ÕøŠ!9Ak:::9Aj:AqqAjAjAqq@:AqG:3GkA@ƒq8HqxHxq:@:qqHqqGkx2¾”½”¾”¾c”c3¾c]cccdc]c”]3]“Ž“23ÖøŠ[:@39qGqA:3Aq@r@rGrq:A:9qGk@qGkqHqGqrxqqHqqrGrqGqAGq”¾“¾”¾”½“cŽ“”c]c3“c]c¾“2“Žcc,×øŠ @@:AAqAqAqƒ:9ƒqHHq@A@:Gq:@4qrGqqHqrGxHqqHrwrGqrrGqr¾”¾”½¾”¾Ž”””Žc3c\Žc3c“Ž””,Žc”,3Øø‹Z qrqGkGqGGqGqAkqr@k@qArA::HwAqHqrqGkGkxqHqr@rGqAxq”“¾”¾”½”“”””3c\Žcc]“Ž”“¾c“”Ž“323×ø‹4AAG:AqqGkqGA@rqGAw:@: qGAq9:wrA@qrGqrqqGrxxrwAqxr@kGƒ¾½ƒ¾”¾“Ž“Žiƒc3c]3“Ž“”Ž2c”cŽ““ccÕø‹AƒqN::GqrGq:@qH3r:qHqrrqAqHAAqA@rqrGqHrqxGrxGrxGrxGk¾”¾”¾”½”¾“ŽcŽ”ccc]cc”c]3“Žƒc Ž”“Ž”]cÓøŒ^:@@@qH9:A@kG: qGxqNqx@q9AqAjAxrMAqrwHrxqxrwrqxqrM¾½¾Ä“¾”¾”¾“Ž““cc]c“3”””]”c”“”“Žc,ÒøŒ7:@Ak@qqrqGkGk 93GrqrqrGkAGkwr:9GAkAxrxxqxqxHqHxrxqr¾š¾”ƒ¾ ½¾”“cŽ”Žc]cƒ”33”ƒc ]9ccŽ”””ÓøŽT 3A:GGrq:: ::3@:@:@xqGrqGkqqGqqxqxGrGrwrqqGrNw¾¾”¾¾”Ä”¾“Ž““”¾]c“¸“c3ccŽi”””ŽÚøŽOAG@kqG::9qrq@@GqA@@rrAwA3AGqGqGrGrGqrxrrMrGxrwr”“¾½”½¾¾””]””23”“]]cc”c2Ž“ŽƒcÛøkƒAk:rqH„:@@A9:xq@:@GkqGrkrqrGrrwrMrqqr@xrx¾¾”¾”¾““cc”]]3¾232cŽ”Ž“Ž“ccÝøƒqJAqqGqHq@:qrq :G3@: @kGrqGrGxqqGxrGrqGrxGAqx”¾”ľ¾”¾”cc¾“”c¾”\cŽ”“3cc”3ßø<GqA:A@:qrqrq:MGq@A@rGr9 AqrGrqxqHr9 qGqrGrqqHq¾”½¾“¾“¾¾¾”ƒ¾i¾””¾3¾3cc]””23Þø1::Gq:@kHqHwHqqrAA3AqGq:xqrqrGrxqHqqrArqHqxAGrw”ƒ¾”¾¾“d¾“”¾”¾“¸““]c]2c¾”¾“Þø:kG@AGqGk 2 ::q@k@Aƒ:79 ::rGAGqx:GAqxrqrqGqxr½””½”¾cc”c2¾”½¾“””¾”\c¾”“¾”¾Þø:: qkGqA@qqGAqƒ:3Gk@:9:A@ 3@9qqrGk:wrqxNqGkxrq”]”¾¾cc]c]3”¾ccŽ]½”“„c],33”ÝøP:@3GAkGkA@qqAqA9 :Gk:9 qGA:Gq:3“Ž @:rGkGq]9“c“”cc”c2”c“Žc¾3]3c,cc¾”½]Üø‘H@qAqqGqAAqGkAAqG3GkqGq kqrGqAAq:qGqG@::qr@AA¾“”¾”¾¾”]ŽcŽ23]2Žc]ƒ]àø“@AqGqAqqGkGqGqAq qGrGr GrqqGqqAqrqrqqrGqGqqcc¾”“3””¾“¾cc“Žccc2ƒc2ƒc”áø“>@qG kGqAqAq@AqA3r:Gqq qqAGrqGq GxGGrGrqGrA¾”,3½Ž“Ž½”¾”¾”“Žc]ƒcŽ2]cŽâø“ :@3GqrAqGqAA@@3Mqƒ:1@:rqqGkAG-qrrqqrqxrGcc]c”Ž¾“””“¾”cŽcc“cŽ]2cdccãø•C:@3Gq qqHqkqr 3k:A@:H9rGrq qNqxGrGrGq¾”½c”“”¾”“Ž“¾¾“]9]cŽc3c3cäø–AA3GqHqq GqGr9 qq3:9:q9rqG rwƒr wrGqr“¾c]””,”½”¾“¸“””“¾“¾“Ž”2åø•B 3Gk@A9rGkrqrG39GG:3GA9@r93rGxGq qrqH¾”cc]“]”¾¾”””½Ž]]c¾”“Ž“”cåø–A3AqAkA9rqHqG 3rq3 AkGkArG@rqrxG:9Hq”c]c¾”½”c]cc”3c]”¾Ž2åø—?Gq@GkGA@:qrAqGAq :@qqG39:9rqHq@AqGqqH¾½”¾”¾“”cŽ“”33cc¾2,cŽ22æø—<AkAGkqq@GqA3@qH3qG:qH@A:@:qrGqGqr q”¾“¾“¾Ž“”cc2Ž¾]23c”céø™A9qGqHk q@:@:@GqrGrqqGƒ@ qqHq:3q”¾”¾”¾“Ž½Ž]””cccŽ3ëøš::AqG@qr@3:qrqAGqqGƒq"G::qHqqGAkGr“¾2¾cc]“c”]\cŽc“2]êø›ƒ:kAqH9GrGqrq rGrGr k::qH:qrGkƒccc”cƒ” Ž]cc”]]23êø)@9AAqq qGqGrqGkGqrGkGqGrqqHqrG”¾””¾3]cc„c”c3c2Ž“êø3 3AqGqGrrqHAkGkA@kGqrqGqHqrqqŽ”¾“¾2ccŽ“Ž¾2cc”,9]23ìøž23 kGqAqqHqqGqGkG9GkGqGrGqqGrG¾“”Ž”Ž“Ž“”]2c]9]c”ìøž1 qGqGkHqrGkGqGqkGqAqGqrGkGq”“¾“Ž“””c]dc]]cíøŸ/ AqAqrqGAk@qrqHqGqArqHqrGqq”¾”Ž“Ž“¾“Ž”cccc]“cîø -3@qGqGqqGrGrGrqArqGrqrqrHq””“¾”½Ž””“]cc]c3ïø¢$qHq qGqqrqqGqGrqqHqHqqA”“¸”“d“”¾„c¾32ïø£) qqArqHqGr@AqrGrqrGqGq@Ž¾“¾Ž“Ž”c]c]“3ðø¤& AkGqqGqGr@AqqHqMrqGq:”½””“Ž”¾c“””3c]òø¥$AqAqHkqGrAqHqrqqArGk””½”Ž½”cŽccccóø§ kGkG„qrqGqHqAqqG¾“Ž½””½cc”Ž“],óø¨ 3 qAHqHqGrqGq@Gr@”¾”¾“¸cŽ”“”]3ôøª9 9qHqqrGqrGkGkG”“¾ƒcŽ”]õø¬ 3qGqGq AqAqA“Ž¾”¸c]”“Ž“öø® rGr k@qA@¾”““3“dd“øøµc]cc”½332Ž“Žøøµƒc]”cc¸“ƒ”øøµƒcŽ“ŽcŽ“ø„ø¶]cƒŽ“3ø…øº”“”ø‡øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøĶ·-ØtÉØt2Ût /Û€FòËÛ€Fò-"rÉ"r2%r /%~FË%~F-kÉk2n /n‹E,Ën‹E,-³·UªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÃ2]ƒc]óø¬2ƒ 2c]c]c23cŠ]…c 223cc]32êø«2‡c]232]c‰c]c]cc]]cc3\†2]áøª]3‡c3,ƒc2‡ 3c]cc]c]9…c]]9ƒc],Ûø± 233]3c3ccc]‰…c,3cc‡cŽc]83,2]cc2Üøª2ƒc]3ƒ23c]3„c‡cc]]cc3]]ccc]cc]c2-c3Üøª3323c]22, ,2-23]]ƒ c]c3cŽc2„3cŽƒcƒc3ccÝø©c22222,2,,22,‡„c-cc„ ccdcc3àø¨23“2322332,,23-2232cƒc]c…c]ƒ32cŽcc]àø§$]328 3 333,,32c,3]33]ƒc]]c]2ƒ32c]c]3ßø§ 28333 9:9ƒ 2323822322,23“323]„c32ƒccc]ßø§23: 3 :933 ƒ23„2322323333c]ƒcƒc]]cc3ßø§*b9:@::93 3 3 3282323223223223,23]3c]3ƒc]3c]23]]àø¨5@@3:@:9:9::99 3829228223223,22 ,32223c]cc3c]3cc]ßø§( @:A@ 3 :@ 33@:339b29832922323,32233,ƒc]„c]]càø¦5 9@k33A9@:@@ @:3 :29b3b928383323,3233,3c]]c]c]8áø¦-3@;@@3 3 3@A 39 39:2]88]2]32]232323323\]3„c3äø¨-9: A@A@9 :3 3 399]]c39\323232]2323,3222„cãø©0 @d 9A3:@:33 93 3 4bcc3\]3c3]3]3232323323]33]cãø©39@::@3@:@@:9 3 39c2]ƒc]c23\332],3]2]232,2,äø¨ A@ @3@A:@ ƒ:!@33 ::i33]cc]c]9c]]9]2323]23,93cäø§2 93A@k 3@@Aj 9:@:AkG9::bcc232cc]2]2323]c]3]2]cãø§ @A;ƒ@4@3„: 9AFAkAF@AhƒcŽ3cc323]c2cc2]2]33c3âø¦ @33@Aj3::@@ 9ƒ@9A@:@„:“i]Ž““32cc33]32323]3]2]áø¦ @A:@@:@@A3A@A:A:Ajƒ@!:@::b”¾“ŽŽ“”¾cŽ“]cc3]32322,332,3ßø¥ :3@@4@:A:ƒ@AkqGq@AAkA@A:@“¾”¾”“”¸“””ƒc]c23c23]3c]9\3Þø¥'@::3A@kGk@k:kAGk@AqqkGjA@::hccŽccc„c3cc,]c]22c]23Þø¥:@:@@Aƒ@A@AGj@A@kGAqGqAjAqG“c”j“Žƒc Ž3c]]c3ƒc3c3\32Üø¥&@@A@k@k@AjA@@A@@kGk@AAqGqqAk™3]c”Žƒc‡c3ƒc ]2c3,3,3c23]Ûø£%:@A@:A@:@rqHqqAkAkA@AkGkGkGqGqr™“c”ƒc3\33cc]c]c3]32c323c32Úø¢:@AkGqk@:AqAqGAƒq Gk@qGqqAkƒA#GA™3¾””¾”3]2Žcc“c3,3“]c3c\32c\c]Ùø¡ƒ@?AqAqGkGq:@:@rqHrqGrqAqAqGjAqjGŒ”¾“¾“¾“¾”“”c]”ccŽc32]c]332cÙøžAG:@rAqGqqAAqGqGkA„@/AqqHqrGAkGqGqA@”“Ž“Ž”¾“¾”½ŽcŽd”,“c3c]9]cc]cÙøAqqA3A@AqAAqqGkqAƒq4rqqGqHqGqAqqrqrGqq™¸”“¾“Ž”””“dc“Ž2cccc]3\3cc3]2×ø›K@AqAG3@@kGkAjAAqGrGkGAGArqr@AkGqGqNqGrqHÃc]cŽccŽ“”Ž“Žc3“ŽcŽc,Žbc23]]c3ÖøšHAA@:q@@:qGkG@AqGkAqGqArqrqHqqGkGqqAq@:qGq™™”c””“ccŽc“Žc]“Ž3“]]3c,29ƒc]\Õø™@Aqƒ@4AkGqrGqqGkGkGkAqqGrGqrGqGrqAqGkGkGrAqÔ¾¾c”Ž”Ž“cŽ“ƒ”]“c]cc32323\ccÕø˜@:GqA@:AkAqHqAqAqqGqAqGAqGqqGrqrqrqrHqGkGkGqA™¾“¾”“¾½¾“”]””½”ƒc ]cc]]cŽ3]cŽcÔø˜P:@qkAk@qGqqGqAqHqrGqAqGkAqAqGrNqHwHqrqHqAqrq™¾”¾¾”¾””¾”“”“Ž”cŽ”d“]c9Ž2“c2c2cÔø•@A@ƒA=G@AqGqGkGkrqqGqqGqrqGqAqGkGkGrqqrMrqrxGqHÓ¾“¾“¾½”¾”¾”]c””ƒc3]c]“”]c3]3Óø”U@AAj@@k@k@qqHqGk@GrGrrGrGqHqrGrGqqGqGqHqrqNqrrwq™¾”¾”¾”¾¾”½”·”“”c¾”Žc3c2Ž“cc]3c22Óø”I:@:A@kGkqGrGkr@rGrqG:qrqrqrGqrqrqHqkGqGqGrrwHqHxr”¾½”2¾”½”¾”“”¸“Žc””cc„cŽ]c33cÓø’.@Aq@AqA@qGqrGqrGqGqqGrqGGqHqrqrGxGrqrxAqkHqqGrƒq'Gq¾”¾¾”½”¾¾“¾¾c”¾”“Ž”]ccc]“cc]iŽ]]Òø‘*@AA@:q@kGkGAqGk3AqrGrqGrqAqHqNqxrqxrMrxGqƒr wrGrGrG™“”½”¾¾“””¾”½”d””“cdƒc3Žƒccc3ÒøZ:@k@@:GkAAqqGrqqGkAqGqAqGkGqrqqGAqrGrqqrrxxGqHqxqrqq™¾”¾¾”¾”·”¾¾”¾”“”“””¾”cŽ]c2c3]c]ccÒø[A@@qAqqGqqAAq3kqGqGqrGqrqGrqGrGkxqxqHqNrwHqxxqHqHqHqþ¾“¾“¾¾”½”½¾“Ž¾”½¾¾c]“]“Ž33,32]c2c2Ñø=@A3GkAqGrqHqAxAAqrAkGqkGqHqrqHqrwHrGxqrqxqrxqGqrxwrxGÉ”¾¾c]”ƒ¾”¾”¾“”””¾“”c”cc“cc]2c32c]]ÑøŽ@A@9AqAqAqAqGqGƒqKAqGqGqHqHqqHqxqNrqxqGqGrHqGqHrqHqxHqr™¾”½””½”½”¾“”“¸”¾“¾”Ž“¾”]”c”]233c]“Ñø;@Aq@4GqGrGkGqqAqAqAGqGkHqrqqHqqrGrqrqHqxrxqxrxrqrwrxGrwrq”“„¾””“”ƒ¾c¾“”¾¾”¾”c”c”3]c32ŽcÐøŒ?::@qA@qrqGkGr@AqArAqGkqGrrqHqqHqxqHwHwrxrxrNqxrxNqHqqrqHqx¾¾”¾“ƒ¾“Ž“ƒ¾c”¾“¾””½c”¾c”2c]2c”]ÏøŒa:@AA@AqGqrA9qqA@qG@kGrGrqNqqHrwrHqrqrqxGrwrxrwHwrxqHqxrwrG¾”¾¾”¾“¾¾“”¾”¾¾cŽ“”¾3½”¾Žcc¾c]]332]9Ïø‹b:@@kGj:rqAG:qGr@qrqGqrqqGrqGqrwrxxqGxqNrqxHqGrxrxqxrxxrxrxq”¾½”c¾¾”¾”·¾Ä“¾””½”“¾”½Ž“3ccc”39]cc2Ïø‹b:@@Ak:GqArqGqGAAqHkGrGrrqGrrMrHqGrxrxqxrGqxqrGqrxGxqxNqxHx½”¾¾“”½”“¾”“”¾”¾””¾”¾”ccŽ”]3cÏø‹:@;@q @kGqx@AkqAƒqGkxrqMrrwrqrqqrwHwrrNqrxrxqƒx qxrxqrxqxq™”“„¾!”“Ž“¾c¾“¾“¾”½”¾“Ž”,“cc]c”2]c]c3ÎøŠBG:@@Aqr:GrqrqA9AAqHqGqxGrqxGrxGrGxrqrNqxrxqxHxrwHxrwHrMrqxr™¾”¾”ă¾“””¾ƒc””¾”¾”¾”¾Ž”¸2c]“cc]cÎøŠq:@kAqG@qGAqH9Gƒq7@rqGrqrGxrqrGxxrwrNqrxqxrxxqxqxrxrrwrqxHqrŸ¾½”½¾”¾”¾¾”ƒ¾”½”½3c½”¾2cc”c””]c3Îø‰A:GA@@AqA:qrqG9qrGqAqGqrGrGrqGrGxrwrxGrxxrxqNqGrrNrwrMrxxrxqxrÔ¾”ƒ¾!þ¾”“¾“¾“¾”¾”]”½””,Ž“”]2”]c”Îø‰?@r@@A@rwAqAGrAqGrA@rGqAqrqxqrGxqxrGrqxrwxHxrqxxqxqHqxrqNqxHxw™“ƒ¾š¾”¾”ƒ¾”¾”¾””¾”½ŽŽ“3”c”]3“ƒc]Íø‰f:G:@k@rr@AqrqAk@qGqkHqrMrGrwrrxqxqxxrxrxqxxrxrNqxxrxwrxrxqxrÉŽ“”½¾¾“““”¾“¾“¾¾”½”¾”¾“Ž2Ž¾]cc“Ž]c]cÍøˆD:@q:A@kGq@qGrxqGAqqGkHqqHrqqHxqNqrHqxrwNrxqxrwHxqxrxqHxrMrxrwHÔ“Ž¾”ƒ¾ ”Ž¾“¾d”¾¾”½”¾”“Ž2Ž”c]“]”“c]9]Íøˆ\:@A@jAAqx:qqGqr3qHkGqGrqqxGrqxrqxqxxHxrxqHxrxxrxrxrNxrwrxqxGrxþ¾“¾“¾”¾“”½”¾¾””½”¾”]½¾””2”ƒc”c]c2ccÍøˆg:@k@A@k@r@HqAG qHqGqArqHqrqxGxqNqrNrwrwrwxrwHxwrxqxqrxGqrNrxqGÉ”¾”¾¾”½¾¾”¾”¾“¾”½”¾“¾“””¾]c”“”c3”3]Íø‡@:@:G@AA@r@@qAqqAqrAqrGqqHwHrqxHqrqxqxrNrxrxxrxrxxHxxqrrxqrqrxrþ&“¾Ä¾”¾¾“”¾”¾””¾”¾“¾“”“Ž¾¾]“]¾c22Ìø‡I@@A:@j@kGA:qrGqAGqqHqrGrqrwrxqrxHxrxHqxqxGqrwrwHwxrqNqxHxxMrqNÉ”“¾”¾”¾Ä“ƒ¾“¾½¾¾”“¾¾”¾“”c]¾c2Žcc”]]c3]Ìø‡ƒ: @:A@Aqq@:qGrƒq:@AqqxGrGxGrGxqxqxqxrwrƒx$HxxrxrxxrxrwrwrrwrrÉ”¾¾½¾¾“Ž¾”½¾cc”ƒ¾”½¾”¾”cc”½-ci-c¾]3ccÌø‡i9:@Aj:@kGr@:rqGqHqHqqHGqrqrqxqrxrxGqrMrxqrxqxqxrxqxrwHxrxqxHxqŸ¾“”¾”Ä”¾“¾¾”¾¾”c¾“”¾”¾“¾”·cŽi2c3c“]3Ìø‡:@::@A@k„AWqHqAqGqrGqrqxGGrrGxqNqrxGrqHxxrxrNrwxrNrxqxqNrxqrxÔ¾“¾¾“¾”¾”ľ”“¾“¾”½”“¾Ž“”ŽŽ23”,c,cƒ“3cÌø†i:@:@::@AApAj@AqA@qrGr9rqHqrq@qGrqr@xrrxqrqxrMrwrxrNqxqxrxrxqxxGxÔ¾¾”¾”¾¾½¾¾“¾¾”¾”¾”¾”¾“Ž“”“”3]“cdcŽ]Íø†:@@:q@:@jA@AjGkqAGkrwHqxqrM:ƒr"GqArxqNrxGxqxrxrxqxrxrxGxrwxrNrxrɃ¾%“¾“¾Ä”ľ””¾¾½¾”½Ž½”¾“Ž”]2””Ž”2ccÍø†C@:A:A:A:A@@A@:GAkqGrqGqHq@:xxwrwHqwHqxwrxrHqxxqNrwrwHwrxxrNrqxqx™¾“„¾”ƒ¾“¾½”¾”¾“”“”¾”“””“3ccc3]ccÌø†k:@Ak@9A@@dAjAqk@@rqNqrGqG:rqrNqrqxrxrqxrxqxqNrxrxrNrxrxrwrxwrxrqÉ”¾”¾”½”½¾”¾¾”¾“¾”¾¾”·”¾Ž½””3”2c,cc3Ëø†ƒ@:@:@:„@_:Gr@@rGqrGrqqrGrwrrMrrGxrNrxGxrxqrwrwrwrxwrxrxqxrGxrx¾“”½¾š¾¾”¾½”¾”¾¾“¾“¾”½”¾”½Žjc3”ŽccŽc3Ëø†k:AA@@Ak::r:A:kwA@qrGqqGAxrwHxqxrxqxqxqxqxrwHxrNrGxrxrxrMrxHxrwrMr¾¾””“¾¾”Ô”“”½¾”¾¾”¾”¾“¾“”c””\”c2”Žc\Ëø… :@k:ƒ@@A9G:@:Gq:AqHqrGqrxrqxqHxqNrxrxrGxrxrxqxqxxrxwxHxxqxqrwHxrŸ¾“¾¾”‡¾”¾½Ä”“¾“Ž”¾Ž”3”3”Ž3cŽc\93Ëø…9:ƒ@L;@:k:@:@kAA@@AqqGkrqxHxqHqxrqxqNrwrxrMrxrNrxqxrNrwrrxGxrqrwrþ¾”½”¾Ä”¾¾c“¾¾”ƒ¾”“Ž¾“¾”“¾2cc“…cÌø…k::@:@9A@A:@3AFqA:@@rqAxGxqxqxrqrxxHxrwrxGxrxqGxqxrNqxrxqxrxqxNxrx™”½¾”¾”½¾“¾¾”¾“Ä”“¾”¾“Ž”¾“””¾3]cc”cŽ”]c]cÌøƒF 9@:A@::@:@:@3AkGk@:@qHkqrxHqxHqHwrwrwrxGxrxqxrqrxrwrxxqxrMrqxrxqxqŸ¾”…¾”¾”Ľ¾¾”½¾”½””””·”“””½cc„c,ÌøY 3@::@:9AjA::@@AqA@@kGqGrMrqrqxqrxHxrxGxrxqxrMrxxqNrxrxrxrxqxNrxrNrɾ¾š½”¾™¾¾½”¾”¾””¾“ƒ¾“Ž½”]“Ž¾c¾c]”cŽ”ÌøP:3 :@@::@A@9::@@kG:@AkqA@xrxGxrNwrwrwrxrxrGxrqGxrxrwrwHwrwHxqrxqxqxÔ½¾32c¾¾”ƒ¾“¾“¾“””“Ž”“”Ž“””“”,3ccc]“3Ì÷q3 9 9 Ak:@:Aj@3@3:@k@@:@AqArwrqrwrrxrxHwrwrwrAqHxrwxrxNrxrxrqxrxrNrx@Ô¾”¾”¾“”“”“””¾”¾”·”¾½¾”½Ž“””¾”2d”cdccŽ\Ìöq 349 43F@@:3:AA3:3@ :@A@@A@:kwrGqHrwHwrwrrxHxrGqxqxrxHwrwrxwrNxrMrwxqr@É”½”¾½”¾”·””½3½¾“¾”“¾”¾””Ž½”¾“cŽ¾2Ž]ccÍõs 3 :9:3@Ak@:@:@9 A@:qAkq@A:GAqGrwrqxrGxrGqxqrwrxrxqxrxrxrqNqAqxrxrxxH@™¾”¾¾”¾¾””¾¾”¾3¾”¾¾¾””“””Ž“”]“ccc]jÌôK 3 3::9 qA3: AjA:Aq3@@3A@r:@:qArxrxGrxqxrwrxAAwrNrwHxqxqHwrxqGqAqGqxGrxqɃ¾%“¾¾“¾“”¾½”¾”½””“,”¾”¾c”¾”]3cd]“Íó_ 9 9: :3AGA@k q@ @kAj:kGq@@:kGqqNqxqHxqHxq@qxrxqxrxrxHqxqNrrGkGqqGrxxqGþ¾Ä¾“””””½”¾i¾”“ƒ¾“””½”Žc”ƒ¾8¾”c9ÍòC 3: 33 9:9Aqk: @kq k@A::3GkG:Aqrqrqxr@qGrwGrrNqxGrxqxGqqxrxrwrGqƒA/qxrxGr:É”¾¾”½””½”¾”“¾¾”¾¾”¾”¾¾”¾“”½”cŽ“¾2Ž3cÍóP33 994@ qGqG3A@G:3@A@9 9GkAj AqNqGrGrxrGkxrwrrxrxGxqrHqNqxqNqr@k@kxrqrxrxÔ¾”ƒ¾c¾”¾¾”ƒ¾”½”ľ¾”cŽc”¾¾½c”2]“ŽÍót9: 3 : :3GkG39AqA 9qG3@ :q 9rA@kGrqxqrwAxqHqNqxqxrrNqxrxrrxqAxAxxqNxxqxqNɾ“¾¾Ä¾“c”“¾”¾”½”¾””¾“””c“”½”“¾]3”“¾Íòu 3: 9 3 3:@A:qGA@k@@A3q :9::9:Aqqr99GqHxGqAxrwrqxrNrGqxrwrwrMrAxqxqrxqrxHqAq™¾¾Ä”½¾”¾”Ž“¾c”½”¾“”¾”¾¾”cŽ”¾””cc”,”Íñ% 99 39 9: kA qqA@k@A@:A9:9 9kGqHwHƒr qGkGrqxHxrG„qxrxrxHxrwxrxrxxGxqrwiqAÉ„¾#”¾“”¾”“¾”½cc¾”¾”½”½¾””“Ž223]”]“,3Íòu943@3 : @qA:GkGq@:k@:::3:AqqGrqrqMrAqrqxrqxqxrxHqHqGqHqwqrrwrwrMrxrNr“i™™ÃÄ”½Ä”¾”¾”¾”c]¾¾”c¾“Ž¾”¾¾“”·”“Ž”“c,”Íñ 9:3 @4, qGk9qGkGkGA9@„:Y@@A@rqHwrrFrqNqHwrxHqAwrqrxrwrr@HqxHxrxrwrwrc”j@Aþ¾”¾“”½Ž½”“Ž”¾”¾“¾”½”½3Ž“””¾“¾cŽ”3½ÍòQ:9 3 :@@: @Aq kGAkGkGrGk@:@:@:xqqHqGrqxrwrxHwqGqrMrMqHqN@rwrxqxxGrxHr“Ž“A@@Ãľ“ƒ¾!”¾”½Ž“Ž“¾¾“”¾”¾¾“””¾ŽŽccd“]3Íò 3: 99A@:@3@@:@@kGk@Aƒq0 @@A@:rxHqr@qAxqxHxqxrqHqHqrrqr@@rxrGxrGrwrqxh¾xƒr)xÔ”¾¾”½”½”””“””½”¾”“Ž“¾”23”“”cccŽ2cÍñ 9 ,3::3„:#A:3:@A3Gk qH:@A3:qrwrGrxqGAGrwrxrxGƒqBrGqNxrqrqxqrqxqrNrGrxrwxrw”½¾¾Ä”¾¾”””Ž½””¾¾¾“Ž“Ž“3d”cŽc3c23Íñ 3@::39: @k::…@`k q@:AqqHqGrwrwrGrqqGkAGAxrqHqHqrxqxqHqHqGrGrGq@qxrxrxqr”¾¾š¾½”“¾”“Ž“”¾“”¾””c”Ž“Ž““Žccd2c3ÍñA :3A @:@ @@A@A@ƒ::@ @:qqGAqrqxxHxqrGqrGk@qA@@::@9AAxrqHqqxGqrqxqrrwrMrwHɾ”ƒ¾#”¾”½”¾”½””¸“¾”Ž“c”d“Ž”cc]c,cÍñv@3 , 9393:: jA3@3qAk9:@@:@:GkGqrGrG j@@:AAqqGkGqAqA9::9AqGqqHqHqrG: qNrrwrrxrɾ¾Ä½”½”½Ž¾“”Ž“Ž“Ž“””c”c”ccŽccŽ,cÍñ:3 9AG9@@:k:G@ qA ƒ:_@kAqGkGrwrqr@Aq 33A3@@:A:: :8AqAG@@::@@qrGrwHrwHwr™¾“¾”¾”¾””“¾”¾c””“Ž“”c”cŽc””c3“Ž“c-cÌò,@ ::9kAk:@:3 @@k@Aq9:9@4GA@k@AqGGqGq:A:@k:: „: 99: q2b,,Ž3ƒ@7kGrqGqAwrxqrGɾ¾Ä¾”½”½”¸“c””Ž””·”cd“Ž“]3“ccŽcc3]Ìó 3::@9:@@A: ::AkG@:@ƒ:]qqAAkGAqkG::@@AjAq99 qG33:i3”3“rqAqGrx qqGqrGxr™¾”¾“¾¾”“¾“”Ž“”,Ž“”””cccŽ“c3“d33ÍôC :@:@:9 9Aj@@@Aj::G:@AGqq@::9: 9rAjA:G@: qAq:9@3“cc””qA:GkGqc@ƒr-wrqqÉ”½”¾Ä“Ž”Ž¾”””Ž“”“cd”“]3”cŽ2“Žc]ÍôK3@@:@::3AA:Gk9:G::A3@kGkGq@9 @3 q:G9AjA@qGqA@:3“”c”c9@kGkGkGAFrHqHqŸƒ¾%“Ž”“·”j”½3”c””Ž””,”3ccŽcŽ”32ÍótA3@A@@AAq9:@Aq:@@A:FG:@kGkGkG4@@3 A:: qGkAqAqG:A: “cŽc™ :GkGkGqkGkqqNq¾¾”¾¾“Ž”“Ž½”cc””“”””c9”cc]c“Žc“Íõ@A@ƒ:@ƒ:"@:@3G;j:AkGq@AqGkGq: :qq@kGkG3Gk@„:B3:™iŽc”™3qGk@@AqAqGGqr™¾”ľ”“Ž“”””]Ž”””¾“Ž“ŽccŽc]]“Ž“c33”Íô4::94Ak@9@:@A@A2:A9Aq qAqAqAqAq :q @:qGkG:q qG::@@:„c;]c2 3 @:qAGqAqAqGþ¾½¾¾c”””c”“Ž“”¾”Ž“”ccŽcc2”cd”c“Íõd::@@9 :Gk:qA@ :@qG@qGqGkGqGqA qA:rqGqqGkGrq:@3@3@9]]cc23q:GqAAqAkqrqGr““”¾š¾dc”c””“¾”“”½””Žƒc 3””c”]23Ìõ' @A9 3::qG:@3@3:@AqAqrrqrGrqrq: qA@GrqƒA @:@:@:@AAjcb]i2@AqAqAqGAwGrGq™”„¾%i””3Ž“”¸“¸”·”Ž“¾”c]c]ccŽc”3]Ìö kA93@Aƒ@3A :qAq:rGqHwrqHqNk kqr9:@@:39AA@::3 qAcci@A@@kGƒq0GrqqHq¾”¾Ä””“Ž“d“””¾“¾”“””½”Ž“Ž“]cc]cc”cdc2cÌörFk39::9k@kq qAq@@ArwrqHqqrq@3GqG3@;@@e:@@Ak9GGqGk q™“hrq@k:@AqGrqGAqqH½”½¾¾””¾¾“¾””¸“Ž“¾”¾½”c]cc”Ž“”d“3]Ìöƒ:" A:9@A@Aq qGkr@@rrMrqxHwrGAqA3A :Aƒ@!A@qAA33GqA@k™bc3GkG@qG:qGrqAGr™¾”ƒ¾%“c]cŽc”¾””¾“”“¾¾”½””c”c,c”””“Ž3bÌöH@@:3@AA:@kGq qqGqA@AwrqHxqr kGkA@:@k@:kAkGjAA:kqG™cc2:c@4Gq::rGrqAq™ƒ¾'š¾”ccc”“Ž“¾”¾”¾“¾¾c]cd””“Ž“Ž”c3Ì÷U9 9 Aj@A@9A: qrrGkGkrGrqq@ G:qAq9A@qGkG@A@AjG@::G@“b9,9™9:AqGrqGqq ɾ“¾“¾“]]”“Ž“”½ƒ”½”¾¾”¾”2]cc3“”¾”¾”ccÌ÷q9493A9@@kA@: qHqGkGqqxqNr:33:@A@:3AqAA@9kAkGk c::29],i™3:AqqrxqH:qA¾”¾¾”]3c“Ž3”Ž“¸“Ž”“Ž“Žc,cc3”¾”””“”c]cÌø#:3::Aq@:kqrqG3HrMrqG:G9@:9@ 3GAƒqJ::GjG3AqG3@:cc’™™AqArMqG-GA@¾¾“¾”½cc3“¾”“Ž“Ž“”””c3c]”32”½”¾”]ccÌø3@3::@3Gr@@3rGrƒqCGrq@kG4@ q:A@@:3@:@kGk:9:c@3AG c,32i™ÃqGqqHqq qq™”¾¾”¾”cc¾”¾”¾¾”ƒ¾”“”Ž]cc“¾Ž”¾”c]cÌøo:@@3 qAqAAqq@ AqHq@Ark: AjA@@9kA@:G A@ c: qA:]c™Ã™™qG:AkG3’q™¾“¾½”½3””¾““¾“¾“¾“”¾Žcc]]””½”“””“]3Íø ƒ:h :qG:kGqHqqrA@@4qrG:@3@:Gk@::G@k:33@::c2:c2,™™3@rq9 ::™iqGÔ¾iŽcc¾”½”¸”¾”¾¾”¾“Ž““d½3c””Ž”½¸”cÎø„k9 3GqqA@9qGrGqrqrGqA9::G::@:9 kAAq @A::@”Ž“Žcc] @@A@:Gr93qAkqŸ¾”¾”Ž¾””½¾”¾“¾Ž“”Žc¾2ccŽ9cc””½,”Íø…\3 kG:qAqH:qrGrwHqr@q 9AqA9A@:AqApA@k 3@A”c”c,:@kqqA:93G49AGqxrq”½¾¾”“c2”””¾“”“¾”“¾Žcc]ƒcƒcŽ“c]Ïø†i qGkAGkGq@ qqHqxqGAqAqAkGkGkGkG@Ak@39:”cdc::GAG:qGcc83:kxr™™¾””½¾”¾3c¾“”¾”¾””“ŽccŽ”cjŽccŽcc”]3Íø†i qkGq qqHq3GrqqHqAk@GrqGqGkGk@qkG@A@A:@Ž“rqGqAq@qAq89™™Ã::h™“”½¾”¾”½cc”Ž“¾”½””¾”ccc”3]“cŽc]2ccÍø†] qHqrrGqr rGqxA@rwrqqHqrq@AGkG:AjA9Aq:d“c:xGxqqrqGqArqqAcbi82chiÔ¾“”¾cdcc””¾Ž“Ž“Ž“cŽ”c”ƒcŽ“Žƒc]Ïø‡fqqGq qrGq qrGqAxqHqHqqrGrq kG@@k3@A@ArrqrqHxrxqAqGAbÃib32™“i™½”¾¾“ŽcŽ””¾¾“Ž“¾“¾”“Ž3“””c]32Ïø‡( qGk qrrx3HqqAqrwrqxrNqqHxq33AAAkqkqrxƒGqxqrMrrGqGk™ibccb™“Ô¾”¾”ƒc“¾””¾”Ž“Ž””“ŽŽ“”cc32Ðø‡>A3Gq rwA@ qGqAxqHqNqrqxrwrqGAqGk@@rGrwrqrAGrxqrGqqAkG™c™bchc2ƒ™$¾½¾”¾”]c”Ž“””“”“Ž“””“¸“”3”Ž”c32Ðø‡G:: qGrAqGkGAqrwrqrMrNqrNrrGqqAqrrwrxHqrqxqAGqGqGrGkA™bcibc222™“”¾½¾”ƒc¾c3”“¾Ž½¾”¾“¸“Ž“Ž¾2c“Žcc]Ñø‡e9 9: qrGkGqqAkGqGrHwrrqxrqwrqrGAqGqrNqqrFAGk:qHqqAqGkbibc8ibci\™¾]¾”¾½cŽ2”]c”¸“””¾“¾”””””“c3Ðø‡e 3 :r@q@qrGq@AqGqqAqGxqNqHxqHrpHqHwrGAGqqA@:qqHqqGqAGccb8“2cb98c¾”ľ“3c”c]”\c”·””½Ž”””“”¾“¾Žcd]cÐø‡$3Gk 3 qGAqqGkA@AqG::qr:9 kGqGk::@@Aƒq=rGq3A:GrqGkGkr923bc892i\É”½¾¾”23“32Žb”cŽ“”½”¾”¾½”¸“”Ž¾“ŽccÑøˆAG@3@@kAqHqGqr@A:qGGqGkA::GkAƒ@C::94GAqAGrqrqHqHHqA]c2icb8“cŸÃ””¾“¾”]]3½3]c”¾”Ž”½”“¾”“¸“¾“c”c3Ñøˆck@::9A qAqrGqqGkqH3A:9qAj@@AjA@3:9AqA@3rA@9rqqc:q@9]3b8c29b™“¾“¾¾”¾”“c32Žc”“”¾“¾””¸”“””””]Ñø†eA9 k:9 9AjGk qqArGq3@Gk:@AAqqHq::@A@3:@rFA@@rGqA 9Gkcci“ibic™™“Ž¾”¾½¾332,c”½Ž””¾“¾”½”Ž“Ž3c2Ñø†G3„ 33@A::AG3GqGqƒAOqA:@3kGk@A@A@A9A@qA@kAqA:@9:A2c3c“8cb2i“™“¾½”¾”½c33c”Ž“”½”¾Ž””“”Ž“””“]3“Ñø† 9AkFk9@@A:2:Gƒ:qAƒqOG@k@ :@:@@A::@:@:@:qGk:GkGq@ :A]8c““c]hÃi™b,™”¾¾Äc¾3,3cc”¾””¾”“”¾”¾Ž“Ž“Ž92Òø‡A@k::ƒ@ZAAq:@:@3 GkqA@:@rA@A@@::@AkqAAqAq:qAq:A@:93]bi’i3ch“i™™¾“¾””c¾23cŽ“”¾“¾””“¾”“”Ž2],Òøˆ;A9:@@kAk@:@q@ 39kGA@:qrqr@kAk:@kAq@qAqAq::GqA@k@:2@i“2„“’™¾”ƒ¾”c”c2”“¸“”””¾“Ž“Ž“Ž“Ž“3cÓø‰`9 @:Ak@@:@:k:: 33qGqrGGk@A@A:G@@::qrGqA:9G]@:3@@223™“h9™™¾“¾“¾¾2]c,cŽ“Ž””Ž“¾””“Ž“Ž“c3\Óø‡ 9:@:q@ 3::@::ƒ@TA:: 3A 3Gk: 993 q3@A@qGkG@qG::@:@@:@4322Ž2]™™b“™”¾”¾”½3“c]”Ž“”“¸“””””Ž“Ž“Ž]2Ž3ccÐø‡ 9AAkAG@Aq::GqƒA:@:@:A9:A3G9q:qq:@::9AqGk:3::ƒ@:r@933c2”c™cƒ™!½”½¾dc¾3c“”“¸”“Ž“Ž“Ž“””]23cÒø†-GqqAGq@kqGG@kGq@3qqG:@@Aq@qGAk9GqH:9 kGqG3:9„:2Aqrq cq32ic2“h“Ù¾¾”¾”c”2”ŽŽ“cŽ“Ž“Ž””c“Ž2cÓø†? rGqAk@GqrqqGkGqGrGqq::A@qAAkG9Gr@@:r:GkAq qq::@@A@rcc22c]ƒ™!Ô½”¾½”2¾”iŽ“d“Ž“Ž“Ž“”dcŽ“3cÓø‰3:@A@rAGkGrGrqqGrA:@@jAqGqrGqkGr @qAqGkG3qGq9AjA@@3ƒ:)323]c™“Ù¾”¾¾”¾32]”ŽŽc”ŽiŽc“Ž23cÔø‰: 93q@AqAqqGrGƒqGq;@@:qrqrAAqqqGAqqHqƒAq:@@ƒ: @AA@q:2c]iƒ™¾½”¾¾“¾cccŽi”c“”iŽc””3]cÔø‰%9 3qA@kGqrqGrAAqAqGkA:qHqGq:qH@qr:qH„q5A@@:A9:9Aq:@A92cb2ib“™Ã™¾Ä“Ž¾c3Žc”Ž“ŽŽ“c”Ži]cÕø‰ 3GkGkAqqHqHƒq.A@k:GkG:qrwG qG3A3@AqqxHGqrqq:qG:@:q:Aq::cib2cƒ™ɾ”¾¾“c”,cŽ“”cŽicŽ”2cc]Öø‹ZAqqGqGk@A@3 :A@::Gk@GAqqAqAG3GqGrAqAqNrGqHq:@3AjA@ @ci2™Ã™Ã”¾Ä”¾c””ŽiŽ“Žc”i33cc]×ø‰[ @AA:r:@::@3@3993qG@kqGqGqAq:qqHqqGqqrqGkGrqGA3qGAqqA@Abc2™™“ɾ½¾¾”¾c2””””cc”Ž2]cØøŠU:k9A@3AGk@@:@A@::A@AqA:q qA@:@AqGq rqHqGqGqrGkGqGrqqG39rqib2“iÉ”¾š¾¾”cc-”cc””]d“ƒcdØøŠ@9AA@:AGkA@::qGrG@qAk39GqAqqAqr@3NqrqArGrqrqrrGAA@A2GAqHq9ÃÙƒ¾½Ä¾c22]32”“cc]c3ÙøŠ@Ajƒ:Sqq@GkA9:GrqkG::@:4GkqHrA:G@@qrAGAqqrMrMr@rqqAkGkqG:q8“™iɾ¾š””3c””2ccŽ9ŽcŽ3c”Ùø‹@@GqGqGk3A@A@qGqƒ:@q: qGƒq#@9qAqAApAqqxrqr@AqxqrFAkGGqq:ÓiÃÉ”ƒ¾”“Ž“3]“]ƒc3cc”ccÛø‹V ::qGkGqAA2qk qr:AGqqAqAqAAqH:Gq:AqqAqGGkNqGqGrqHqAqGkqAGqŸÉ“Éþľ“¾””3c]3cc]”c]ccÛøŒkƒA@rA@qA::q AqkG@qA3ƒq5A@@kGqrGrAqrAqAAqAqGqrwAqGqHqA@Ä“i™É¾”½”¾“cc3cc]2d“Ž„c32cc×øŒ(@q@k9:qAqGkA@rqGqA@AAq HqHq::GrGqqAqxqqGƒq/rGrqGqAAqGqqA@É2™™Ã“¾”¾¾””]2c]c”]ccŽdcŽ23Öø::9@A@:q@@qA94@:q3Gq@qqA@:ƒq8AAqGrHrqrHqGk@ArGqAqqrHqric™“™¾”“¾”“Ž“¾c]cd”c2d“”cØøŽQ G@qAqAqAqG3::Ak@:9AAqAA@:qHrqGrqqxqNqqr@AAqqrqArrGqrqqihi““¾”]”½]3cccc”]]dcÝøOqqA3GkGA3G4:9Gq@:AqrGqAq:qrGrqGrHqxrGrGrqqGqGr@qqxrG3cc““”“”“”Ž3c2cŽcc”“cÞøŽ7 AqGqAqA:@:9@@@rqHqrqA3G@AqqHqqGqGqGqrqGGqArqHqHqH“”„c½”Ž“Ž½3\3ccc]cc]2”””3ÛøŽ3Ak:GkGq::@:rq:ƒA8wrMr@@:kGqHwrGqqrGrGqHqrq@@rqxqxq””Ž¾cŽc¾“¾”c3c3c]ccãø=AGkGk:@: qHq:qqGrqr@:9Gkrwr@rrHqrqqGrwrrG@rGr@G”¾”½””d¾ƒc ]c]cc]ãø3:k@GkG: qqrG@4@:A@9:qH:qGq::@rGq:GrGrqGrGqrqGq@k”¾ƒ”½”“Ž“cc]c33i33cäø‘I:9AqGkqHqqr:Gqq AA@rq:AqA:GqGqAqxqrGqrqqGrqrrGr”“¾“¸””“Žc]cŽc2”]9,c3]âø 9kGkGAqqGGƒq@GqkGkqAqAqHqGkGkGqAqqGrGqrqqrq™Ž““Ž”“Ž”ccccc3b3]c]c23\ÒøªA@AqqGrqAAGkArqrrGqGqrGrGqGqqGrGrG““Ž”·””c”dc”cdcc]c]3]92]3c23Ñø¨CAGqAArqrMqq@qqHwHqGqrAqGqqHqrGrqrqr™¾“”“Ž“¾”“Žcccc]3]c]c]2]c]3Ñø¥GGqGqqAxqrGrrqHqHqAkGqrrwrGqBqqHqrGqGGq™”“Ž“c”Ž“”dcc]“cc3cc2c,Ðø¤HGqrqHq@qGqrwHqqrqqx@qGqxHxqrqGqqHqqGqrGqÔ”Ž”cŽcccŽ“cc32Ž9cc]2c,9cÐø¢-GkArGr@qAqHqGqqrNqxHqGrrGkGkGrrxHqqrGrAqqG“ccƒ¾“ƒcŽc”Ž“Žc”,c]c3c2]33ƒcÏø¡4GqGkFrqAAqAqrqGGqqHqrxrwrqrGqqHwrwrGqrqxGkAqA¾¾“¾”¾¾ƒ”cc”””2”Ž]]c]cc]ŽÏøŸOGqqHqqrGqGqrqrGrqHqGrwrGrqNrwqHqrqHqrrHwrrqxrq”¾”¾¾”¾“¾“Ž”Ž”2 3c2 ]2cŽ“ÎøžOA@A@qrGAqAqqHxrwGqrqrqHqxqHqqHxrxqGqGqqrGxGrGxq™¾“¾“¾“¾””½Ž“”“ŽdŽ2]cc23,]c]ÏøPGqkGkAqqAqqHqrwHrrGrGrGrqGxqxrxqxqNrrqHxqrqxrwHrŸ¾”¾”¾””·””“Ž“”cŽc“c”23]]3292ccÏø›S:GqGqGqHqGqGrqrNqrqqrwrwrqHqrGrwrHwrrwHqqGrGrGqrqq™“”¾c”””¾“cŽc]cc3cc3,3Îø›G@@:qBqAqqGkrGrwrxGrMrrGrxGrqrwHqqxrGxrxrxqGrqqHqHq“i¾”“””¾cŽ“Žcc”3”ƒc ccŽc3cÍø™:@A @;@kGk:@Aq:@3@:@:@rG@:A:GkGqAkNrxHqrxGrxrqxqxGqrqxrxqGqqGƒq1rxqxrxrGqrqN™“™™Ã¾”¾½”¾””¾”¾¾“”c”“¾”¾“cŽ“Ž”cƒcËô q@kA@@qAƒ@ikGq3 A3@: 3HqkAq:qGq:Gqxqxqx@:@rxxHrxqxrGrxGqHqGlqG rGxrxqxGrqNqq“GAß¾“¾”¾½”“¾“”2¾”¾cc¾Ž¾]cŽ“3c]32-Ëô kGkFkAG:@Aƒ@A9:9:G„@;:@Aq:GkGqqGrxGqGrGkAwrwrMrrqxGxqGqrqH3rxrxqNrxqqrqr”qAGÔƒ¾“Ž“Ž”¾¾c”¾cc”¾”3“Ž9„c3]cÌôu@AAk@k@:dAAj:@4Gq:3:AjAAj@kGqrrqGrrGrqqGqAAwrrwHqGqAqAqAqrwHqxGxrxGqHqGr“”Awrq™¾¾š”“”½”ccŽ“Ž”“¾¾i,ccŽc]]cc2Ëõ3:ƒ@:9 3AkƒAV@9r@:GA@:@@:GkGqAAqrqGrxGrrGqA@@A@@rqAqAqGrxGrqxqrqxGqqGr””rwrrwÃɾ¾“¾”¾Ž”c”“Ž“Ž”“”„c -c]cc]c3c2Ìõg9A: 94@@AqG@9A @@Aq@k@k:@kGAkG@rGqrq@:9A@:qkA@AjA:33 rxqrqHqHxGAkGkG”qxqxrwH™™“Ž”½”“ŽcŽŽ“”“Žc]c‡c]c]2Ìök3@3 :9 :@kG:jAqqA@A@:AA@A@qAAjAGkGGqG:Aq:A9G:@::AAi33@@AqqGqAkGqAcÃqrqHqGrqÔ¾”¾”“Ž”cj“Ž“ccc]3cc]ƒc]ƒcÌ÷* @ 9A:@Aq@:rGkG3kA@kG:@AkGk9 qA@kAqAqAjGƒq:A9 qjq:8\9i@AG:qqGqAqr8qHqGqrqrG™¾”¾¾½”””dcdccŽc]c33ƒc3,]ccÎ÷, ::@:@@:q:@Aqq4::@@Aj::AjAFAA:@AqGqq @:9;@ƒ:A9 @Ak ™“h,“™4AqGxAqrqxrGrGrÔ½”“Ž“Ž“Ž“ccd]ccŽcc]c],cc3cÍø%::3@A:@A@kGA:@qAjA9qGAjAjA@::3G3r@ƒ:5G:A@::GkGA3™hd,™““:Gk@Aq“:@AGqrwGk™”¾“””“Ž“ŽiŽ9]ccƒcc32c c3ccÍø'39GAkG:@:@AjA3@:GkGA9AqAqkGq@:GkG:A@:„@Dk@@qAkA™,c™ih9::@@kGG:GqqGqHqG½”¾”¾“Ž”cccdccdccccŽ3cc3c33Íøƒ:@A::q:@kG@@9 @kGk@rqGqAqGkA@:@kAFqqA@Ak:@:@3b9“2biccbc“ @ƒ:AjA@qqHqrqAÔ“”½”¾ƒcc]jcc]cŽccdccŽƒc23\Íø„kGk@ qk:A:9kGkGAqrqGrqrGqqƒ@DAkGqA3Aq @:@3cbbc8]b9bi9:@q:@AjAA@AqAGq™”¸“Ž¾cc”ccŽc3]ccŽcc]3c]ƒc]c]c3Íø„k9Aq@AkAq@3qGqqAAqHqGqGrGr3Ak@@qAA3@AAj:cŽc]9c32chik@A@9A@:@kAjAqAk™½”¾“cccŽ3ccccŽcŽ2c]cc]cc]cc3\Íø„+4AAjAqq@: :qrAqA@qrqrGrqqr@GA@A3G:9qAjAcc†c"]2i“h@AkAA@AqAqGA@qA™“”¾”¾cdcci„cŽ“Žicc332cdc]c23Íø…- :@@:G A@3:GqrGkAwHqrqqHqN:kAq@@::G @ŽccŽ2ƒc29h“4@@A@kkqAFkqqA99“¾”½¾¾ƒc]ccŽŽ“ŽŽcjc3c]dcŽcc,cÍø…:@::9AjA3:qHqGqG@rqGrMrq:9GjA3ƒ@=:qAŽccŽ,c]3322i@Aj@:GAqqAGAqGrG“”¾”¾”c3cŽ“Ž””j“cŽc]ƒc””“Žc3cÍø†=9:@:3qrA qqr@qkGqrGqr9 @:AAq k@:qA@:cccŽ“HG@@]c,cÙÃ@;@q@qHƒqHƒq$““¾¾“¾cc”¾“”jd””“Ž2cc”””“c]Îø†33@:r@@q rGrAG:rxqGqG3 @:@k@A@kG:qAŽ”cŽ@qrr]c„™1:@qr@qGrGkqHq™”“¾¾cc]]”½dŽidc¾”33cŽ“Ž“Žcc2Îø†N : qAG:qAwrqAqxqGrqAAq : jA3AkGkGqAqc“Žc@rGqc2ÙÙ3@rAqrqrGqAqG“¾”¾”dcc”ƒc“Žc¾“Ž“Ž“32”2”½””¾3]]Îø†F33@qA@kG3Hq@@AqrGqAqA9:@:@GjGkGkGkGd””c]9Aq3-22“i“™@AqHqNqqGkGk™ƒ¾“]ccŽc”ŽcŽc3]2Ž””Ž“¸cc2Ïø†X 3GAAq@AqqA@@r@Aq:AGqA ::A9AAkGqGqAAcc”ccŽGrc23ih“8-GqGrqrrGA9 É”¾”¾“3 cdc”cŽiƒc 23“Ž“””“Ž2Ïø†3 3ƒq AqGrG@4qrqH@:rw::3@@jGqGqqGqAƒc32]3“cc32ci22™bƒq HqG3@qAÔ¾“¾ƒc”¾“”“””½”dc3Ž“Ž“Ž“”“Ïø…f 9A9HqGq3rGqq:@rGqrqqGq:q:qGkAqArqA@ A]ccŽ“Ž3c23’c2i:9 rG:rGqqAAÔ½¾”]c””¸“Ž””cŽc”2dccŽcÑø†*9AqAqH9HqrGqqxHwrxGqGrqqAkAqGqGqAqq@::@]„c7c]23:9AAG3Gr9G9™“qq™¾””“Ž2”¾”“”¾“””cc,cc”ccd3Ñø‡;AqGkA9qrGkrGqqrGrqAqAGqGrGqqHqAqAA:@@:]]332cc:@AqGqkA:qGƒ:&c™i@rq”¾½¾””“Ž¾¾””·cŽ“c]cŽ3cdcc3Ñø‡:A@Aq rGqGG4rGrGqGqrGƒrJqrqHqkAAqGq::@9:933qAA@qGkGAp8:q9:GbcqGq™¾”¾”½”¾”“”“”””c3c”“cŽc3Òø‡ „:!9 qrqrqrqqGrrqrqMrGrqrGq9Gk A@3ƒ:9 39 wqqrqAkGrb™c499GqrGÔ“¾“Žc¾”””””c”]cc”]ccŽc3Òø„1:Gk9 :3:9 qGGk9rGAArqNqNqrqrMrqr:A93qAG:@qqxqƒr1GGkGqqGc“2:ArGqq™¾”¾”“c”cd“ŽcŽ9cŽc]cŽ“”c]Óø†c:3 93: 9rqGkGAjAwrqrqrMrwrqNq39:GAAqAqq3@rHwrGrrqrGqrqrGci@:qq™™”½¾¾Ž3cd“Ž”cŽ“ccŽ“cc“ŽccÓø†(AqA@q@:9 r@A@kGk@:qNrGqHrqHqrqHGAqk@AqGƒr8qr@A@rwrwHq3HqGqibi\c9“™½”¾“””2Žc”ccŽ“ccŽc33””c,Óø†cAqAk:@A@A@rGkG9rqqGrqwrxGxqrqGqGAwrqxqNqGrqGrqNqqHqqHq9“cibi™™’™”¾”¾”½ccŽc]cd”Ž“”cŽ“]“]3Óø†KkG@@A@:3:k@3qrqA@ AAkGqHqrqrGxqrGk@kAAqrGrrqGqAqrqGr9GqAqc8“bib2™™Ã”½¾”ƒc3c””“Ž”c”ccd93Óø†c ::9A@qAGq:A@rGGkq@@Ap @qGGrwGrGqqH@kqqNqA@@AkAqGqrGq:GrGkhchcbc2,™Ã™¾”¾”“Žc3”½3c“Ž”Ž“cŽc”Ž“cc]Óø†&39 :9A@kGGk@Ak@Grq:@AAkAkA@:9@A:A3: ƒ:@qkGƒ@/rqHq@AqqAG28cichcc22™”½”¾”2Ž”\3]i“c””“”“Ž“”Žƒc,Óø†c :@@A@A9::99:@A@kGAkAjGk@AkAA@::9:9::q@@A@@3rq@rGkA@A2Aqk“i2hc8cc2i“”½Ž“”]3cŽ2cd”Ž“ŽŽ“Ž“]c]9Óø†c:@kAqAk@::@9:9:A@A@:@@k9ApAkA@GAqG::@A::9GA: qGqAj3qrGc“cibch2ibiÃc¾”¾“]cccŽc””·”“]”“Ž“ccŽ2]Óø†bkGqGkGjAAq::@Gq::9 k@@kA@9:G:9:9:qqAA@A@k:3GAjA@:qAk@Aq@A22c“™238c8i’c¾”¾”2”]c”c”“”“¾c”cŽcc3cÔø†a 3Gk@qAqGqG@::GA3k @k@@:4AqrG99 rk@@A@9GqA@@kG:q3c kA““3˜“bi“ihÙ]”¾½”]c2]c”Ž¾cŽ“Žccc3Õø‡`9::AA@qqGrqrqq qrGq 3:@@Aqqk:@;@: @:3::AkAqA@q@A94@ 9Gk˜“83bi“8“c2™™“”¾¾c3 cŽ“”“cŽ“Žcc”c3,3Õø‡# @:@AkGqGGqHqAqGkGq::qAqHqGkGqAjƒ::@:qqGkA:AAj:@@A9:c3i“™“™h2“™¾¾“”2c3jc”dŽ“ccdc323Õø‡"j qk@AkGkqHqAqAqqAG:@@AAjGk qqGƒ::G9 rG@9GkkAq@::9d”,8i’““i™“¾”¾”2]cŽcccdcŽc32]Öøˆ@A:qGq@ƒ:GqqGqAGkGk@:A:qAA9 qAqAqGƒ:G@kAqAƒ@jAqA@ :9c,”]c]“™i““™“”¾“¾]”„cdŽ“cc„c33×øˆQ:q:@: AAqA::GkGkAGk:@9A@qqGq:GqGrqq@AjG@3A@:@AA@Aq@:]@32cc““’ih@“”“¾Ž9¾]cŽc…cdc]ƒc\×ø‰K Aq::@qA9:@A@:9@k@@Aj:GqrGq:4qqAqH@qAkG:9rq4@:@@:3:9A,™Ÿ“2™™“”Ž¾Äc]“]„cdƒc]ƒc]]c,Øø‰J 3::@q @@k@ :@A@AjGG:rGqr 9rGAqq:qGqqGrGqk:@:9: 9329c™Ã™i“™™½”½c3”…cƒc]c]cc3]ØøŠR@9 A@qkA@3Ak@::9:qqAqqGq rq:qGqGAqHkG:@@r@@Ak::Gk @3329c]c“i™™“™”¾”¾2c]c]c]]cc]„cccÙøŠK:Aq:@3:AG@;@@A@::A@GkAGkG3qGqAGkHqAqqrGrq;@3::@::G jA9:8\3c“’™“’™”½”¾“”c]…c]c]c]c33Úø‹&@:qGqGqkGkA@:@qqAkGA@:qGrGk@qAAqq@rGqGƒq&GrGqq:q:Gk@389]c™™Ãi™¸”ŽcŽ2c]c]c]„c-cÜø‹<@GkGkrGkGqq:@:rGqGq:933GqAAqGkqGkGrqArHqGqrqH@@A2 :338c\]ƒ™ Ù“”¾¾i]“Žƒc32cc]]3Ýø‹% A:qGkG::qGAk:qqGk 9AA9:kGA@kGqGrAqqHƒq,GrqHqq@:qGkGGqcb92c3™“Ù™¾“¾¾3”cc]c]c3cc]Ýø‹3@A@::@ƒA2AG3H@AkGq:A@ƒq@r@::@@rGqrGrqGqr@AkqAƒqG:Gbc2ch™™Ã™”¾””¾“3cƒc]ccÞøŒM 3@ :Aq9k@3Gk:@kA@A9A@A@rGqA::A@qrGqrGqrGqqrGrqG::A:Ac22cÙÙ¾½”¾”]c]c]]ãøŒ<3Ak@jAGq:GqGA:@3@AkGj:qG;qr@@qqrAGkGqrGrrHqrGqGr:@@kGqqGc82ƒ™ Ô¾”½”½3“ŽccäøŒK @@:@Ak@Aqk@:9:GqAq:@Hqq@:AqGqA@qGkGqrGqqGAqqrG@qAqGqc83ÙÙ¾“¾”ccccåø;:3A@qA@:q::@:GkGk GkqGrGk@qAr@AqrGqAqAqHq@rGqqAqGkqBq@q2„™ ¾”½””c]”Žƒcãø(::93AqGqGq@3A@A@kG@::qAqqAA@rGqAqAqqrGqGƒq"rAqHqAkHqA@A@Ac™“Ù½”¾¾“¾]c“ŽcŽ“âøŽN99GkGkG;@A@k@k@qAjA9:GqAk@qrqGAqGqHqrqGrGqGr@AAqqGA@@:A@ib“É™”¾”¾”¾cc2”c]Ž3àøE 3GkGq@A::3GqG@rGqHqrA@q@GqGqqAqrqrGrGqAAqAqqAGqrqqr::ÃÃi“iþ“¾½”½c,èø:Aq:@k9:Gqr: qqrqqGqƒA@;qrAqrGGrGqqrqA@kqGƒqHqHqG:9™É“˜™É¾¾””“Žc3èø:ƒ@-;G@qGqG: kAAGqrG93:qGkGAqGqqGqGrGrq@GqrGr9Grƒq:@Ã9™Ã™¾”½¾”c]2c]æø‘ ::9kG:AkAqAqGqƒ:$qGq:GqGqA@rAAqrqGqqA@kHqqG:qGqHA@3™ƒ™ þ¾”“c]cçø’3 qG@q:9AqGqq q9:rG:qAk@@kƒqHqGrGqGqqrGrq:GrA„3“’™™É”½”Žc]cèø’>3:@;@kGAqAq 9AqG: 9:AGA:AqGGqqrAkAAqBGqGA@AqqAcŽcci23b“””ƒcéø“+9Ak@@qGq@k::@4qGkG9 k@j@qHqrGqGqApAqqAkGqqƒA“””c™“8ci””êø”=GA@AjAAGqG:9GkG::qq AqAqqrGrArqGrqHqqrqAqAjA”dc32“2d]ccëø”79@:qA@AjAqAAkq:qrG3 3@GqHqqrqGrqqHqqHqGAqGqqŽ“cc”“”Ž23„cìø•<49AqA:A@kFk qGrGq 9AAkGqArGrqGrGqrGrqq@AqGŽ“Ž”½Ž“Ž\32cŽc”cëø—?GkGq::@kGA9Ak@q :qGqkGqGqGAqqrGrwGrHjArq””“Ž”cŽcc”“Ž”“Žæø˜5AjGq:GkA3:@:: : @kGqGqkA@r@A@rAqqr@9A@Ž”½”“¾cc]”“¾”‡”½æø™9Aq@ @@:A@:9:9:A@:qqrG::@q ƒq GkGq3AqccŽƒc,3¾”¾Š”âø™ 9:Aqƒ:.9:@@ :@A9A9Hq :qqGr@qGrGAAq qA@cŽcc¸”]2”½Žc”‰”âøš1 :@:q:9:@A::@A393 :@@AqHqqAqHq3@@:@ccdccŽ““Žc””ƒcíø›5kG@:GA@::Ap:A@::@ @k qAqAAqq::@:c,Žcc3”½d3“”cd“Žìø›Ak:@kAkGkGA@@:@:@:3 @3A@A@jƒ@ŽŽc”c¾“””,”c”“cëøœ9::GkFAjGkq:@:@:GqkA@:AjA@@ƒ: “dc”¾“¸”d“„”Žc¾Ž]ëø)3GqAqGqAGqqG:qAqGqA@@A@A:::c”“c]3“”c…2”c“ìøžq:@@kGkqA:AqAqGkG:@:9::@::ƒc]c]]“”Ž‡,îø ::3GqƒAj9GqAq@A@jG:@:q:@ƒc‡,c2]“‡3”îø¡@ q:ƒ@ A:q:@::@kGlƒ: AAc3,3]3]223øø¢A:@::@3ƒ: @AA@qG:@:@c]‡c23øø£AkGkGGAGA@j@Ak@3:9:cc2]c]3],øƒø¥AqAqkq:@::@kG::@]]cc]c232cø„ø§AqG:@:@:@ ::9493cc]9]]]ø…ø©„:cc49„c3ƒc]c23]ø†øª@ƒcc3]]3cc]]cc,3]ø‡ø®cc]2cc]cc]c32øˆø¯ 2233\3c]c223ø‰ø° 3]2cc]b3]ø‹ø±23]c]øŽøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÐ3]êøÐc\cc]çøÐ ]cc]c223]càøÐ2]„c 33\cc]2]Ýø»†c2,Œ 32c]cc]„c3Ýø¸cc„ ]c]cdc2c‰„c ],3]3c2cc2Úø³]c‰ “]“Žc]c‡3]cc]2c2c]c]cŽc23\32c]Ñø± „cc„c c3Ž”Žcc2ˆ 3c]cc3]3ƒcŽ32]]cc3ccÏø´cc„cŽc9c]3,,2-‡†cccc]cc]cc]c]cc]9Ðø±88cb “„]ƒcdŽ‡cˆ\c]c]„c]ˆc3c]3Ñø° b,i,8c9c,ƒc ]c9cŽ“Ž”]c‰3]cc]3]]2]cc]c]3]ccÑøµ bc8\cbc]-ƒc dc”””c‰2-3]ƒc 33c23cc]c]Õø±! 3@::9c2”c32ccŽ“ŽcŽc3„2cc]ccc23,cc32Õø° @ ::@: @ @cƒ2c]„c d3cŽc„“…232cc]3ccc]ccÖø¯ 33@@ @:3 :A9 92c]3c]c3cc33ƒc‰3c]c]c233]23Öøµ39 9 ƒ:923cc]3ƒc]ƒc3ccˆ 2c]cc]32,2c3Öø½ 3cc]cc]c]c]2„cdŽˆ]2]c]cƒ3]×ø¾ 98c]c]c2cc]c3]cc]c“cŽ†„c]323Øø¿:cbcc]c]]c3c2]c]ccŽ““Žƒ]c]c]ccÛø¿"::h]cc]9c]c3]c]2c]c3Ž“”]cc3]9c]Ûø±:::Š::i]cc]c]b]c23]ƒc 32””3c]ccÝø¯::3@3::@‡ƒ:b„c]cc3c]93]32]c”“c]„cÞø­%:@::@AA999 ::@:@cc]cc]cc]c\]8]3ƒc ]]cc]c]Þø«:: @:3@:@:9:::3:@q:9:@ƒc]hcb9b9]9]2]cc3c,cc]9]2Ýø«ƒ:@ …:%@::@:33::G3A@:hcbc8c8cb8b8332c]223c,ƒcÞøª3::@:9::@:9::9::@:@::@:@ A@iibcbcb9c9b2233c]c3cc]3]ßøª@ 3@„::3@:@ ƒ:@ƒ:@::@:iibibib8cb92b323cc]ƒc]ccÝøª :@:9:„:+9:99:@::@:@@:@hicibccbcbc823]2c]c3cc]Üø«: ::@9@::9::3:9ƒ:!@:@:@@:ib“hibiib9bc9\c33cc]3c3Ûø¯9:::9ƒ:: @:„:@:@:“iciibichicbi]c\ƒcƒc]cÛø°„:@ 93ƒ:@:@:@ƒ:@:ih“b“chcbib9bcc]3]cdcc]c]cÚø²:† 9:9:@ƒ:9:3A@ihi@chccbc8]3c23c]\3c]ƒcÙøº)3:::3 :@::@@“iŒi“chcbchc]c]cc3cc2c2]Ùø»":9:93@::A@@A:i@ibih“chccbc]c]cc]ƒc]]3Ùø¼(::@3@@::k@:j@““i“chcibc8c3c]2cc3],c3b]Øø¼3@A@@:@A…@A@“i’ihihchicc]ƒc3]2„c3c×ø¼A@::94Gk@::A:A@“i““c“icbbƒc]c]bƒcc]c]×ø½)3:93A@qAqGAj@:A’“h“h“h“ich]c]cc]c3]3cc2Öø½ ::@ƒ:GkqA@AjAA™“i“i“bih„c ]c]cc3c3]cc]Õø½3 :9:9@@AqAq@A@kh““h“h“iih†c ]cc,32cc]Õø½+9:: @A:@qrqrqAA“h“™@i“hc]c]c]]cc3]3cc32Ôø¼ A9 3:9: qGrGqqA“i““i“ihd„c ]c9]]cc\c]c3]Óø¼3@A:9:::3::@@rqGAF“h™h“dcc]†c ]32cc,cc]Òø¼ 9ƒ:933:@:@@rqqA“i“ccƒcŽƒc ]ccc,c3]]cc2Òø¼ :9@@ „:%@A:@k@AA@“iŽccŽccc]ccc]c32323,c3cÑø¼/9 A::@:::9@A:qG@jAA“”c“Žccccc]cc3c3]323]32Ñø»$ :399 A@A39 2A@kGk@k˜Ž“ŽiŽcŽcdc]ƒc 3c]cc2]3cÐø» @„:+@:9A:93 @A@kG@AA™Ž“Ž“ccdccŽccc2c]c3cc\Ðø»23@A@9::9:@AA:9:@A@A@kG“””cŽddcc]cccc3232cÏøº @::@ƒ:* 99::Aj3AjA:q™c”“Ži”ccdcc]33]2c]3c-Ïøº93:9 A@@::3::3: 9ƒ@Aq™d”“ŽjcŽccŽcc33c3c]9]c]cÎø¹' @: 9:@::9:@: 9:@A::A@q“c””ccŽcƒc ]]cc,2]c3c2Íø¹, @@A9::9:3:9::9 @Aj@Ak™“”c”dcdc3c]ƒc]22]2Îø¸ 3A94@::::9ƒ:qGrqrqqAkGGk™“”cc””ciŽ3cc]]ƒc3d2cÍø¸::9::ƒ@0:@:GrqHqrGqHqHqGkGk™”””cŽdc3cc2cc3c3c,3Ìø· @ƒ::rrxqrqGqxrwrqqHqqGkGq“™„”c“Ž“c”]9]cc3c323c,33Ìø·(3@@qHqrGqrGrqxrGxrNrxqGrrGqAGA¾“¸”c”ƒc3cc]3„c22Ëøµ<:GrrqHqrwrMrwGrGrqqGrqHrxqqrGqq“G¾”¾“”dc”]cc]3c]c]3c,]cc3Ëø´ GqxqNqrwGƒr1qrrqxqHrqxqxqrNqGqAAÙ”½”¾”“¾cŽcŽc“]cc23cc]9,]2Ëø²@GqrGrrwrxGrGqGxwNqHqqNqHqrMrqxrrxq™¾¾”¾“¸””“”ccŽ“3c32]2c33dÊø¯GrqrGrqxrNrxrqGqxƒr/xqHqqrwrGrqrGrwrrw™“”¾“””Ž“Ž“”cc]3,c]c3c2ŽbÊøž:EAqxrMrxG9GxqxqxrqGrqNwrqxrGrrwrwHwrqHwHq™Ž½””Ž½”“Žc”Ždc]9]“c]32c]”Êø:@A3‰HGqrGAxqrwArAqrrxHwHrxrGqrGrxqxGrGrqrqNrwrqr™””½”“¾”Ž“Ž“ccc”\c3”233cÊøƒ 9•:9:@:‰qrNƒqCGGArqqrqGqGxrwxqxxrGrwHxrxqxGxrGrqHqHqþ“Ž¾”¾”“””ŽcdcŽ“c32c33Êø 9: Š 9:@ :@ƒ:9::@: †@HqrxƒrCqrqGxGxrxqrxrxrxqxqxrqxqxHqrqxqxGqrqNq™¾”½Žc“Ž””cc”Žc3]c]cÉø : 33†„:@@:„@0:@:@@:9::::GqHqAxqrMqGxqNqrxqxrGxqHwrNrxrGqHqHqƒx'GrxqrxGqqH™“¾””“Ž”c””Žic”,cc]c2]3Éø 9: 93 ƒ6:@ :9:3 ::A@:@:@:::@:9rxqrqqrGxqrrqHrxqxrGxrqrqxrwrƒx/rqGrwrqxrwHrGrqHqqr”¾¾“Žc””cc”3c”2]2]c33c2É÷ 9 9393:9 ::3:@:9::ƒ@EA@:AA:@:9 rqHqAwHrGrqHqMrwrwrNxrqxHwxHwrxqHwrxxqrNqrxrwrxwrqxGqGŽ½”¾”„”]½Ž“”3Žcc3cc2233É÷33:3 :9 ::@3 ::@:3::@k:@j9ƒ:SrqxGqGAkqMrwrwrrxrwHxrwxrwrxrqxrNrxrwHxxrqHqHqxGxrxGrr™Ã“”¾¾“¾”9”½Ž“cŽ“32Ž“c]cc2É÷I33 9:3@@ : :9@:@:@@A:9:@A::A@GAwrqHqqxHqqrNqHwrxrxrwrrNrxqNrqxqxqxrxrwƒx(qrwrrxqxrxwÔ¾”½”¾“Ž“Ž”Ž“”¾”3]c]c,cÉöv 3 333:@A39::9::@@::@A9 @A@:@rqArGrqrNqrqxrqxqxrMrwrxrwrwrxrwrNrqxrxqxrNrqNrHwrGrGqrHxþ”¾””¾”½”“Ž“”Žcc”]9ccŽc”2ŽÈö"9 ::94 : 9 :9:::@4:@A@A9k@A@rqGƒqOxGqrwrHwHxrxGxrxrxGxrxrNwrxrwrxHwHxxrwrxrwrqHwrqNqxq™¾¾“¾“¾”¾””¾ccc]cc”]ƒcÇôƒ v39:9: 3:4@: @k@3:@:@:9:@AqrqrqAGrxqGrrwrrwrwrrqrwxrxqGrwrxxrxrMrwrxqHwrxxrwrNqrqHqrrw™“”¾”½Ž“cŽ“”“”3”ccŽc“Ž2Ž2Çô 33 3 33 93: :99:@:9‡:?qqrMrqqrHqqrMrwGrHrxxGxrNqGrxqxrxqNqxrxrxqrxrqxHxrwrxqNqxqHqɾƒ”¾”¾””¾c””cŽcc3Žc2c3Çó9 9 3:9 3: 3 @99„:e@:9:9:@9GAqGrxGrAxwrGxrxrGqxqxqxrw:xrxrNrxHxrxxrxqNrwHwHqxqxrxrxrqHwrr™¾¾½”¾“¾“””cŽcc””23“c33]Çò : :3: 33393:: 39@„:aA99AkGqrqrqGrqxGrqxrxxqGrxHGrxGkxqxrwGqAwrxwHxrxqxrxqrxGxrMxxqrqNqŸ¾”¾¾c”¾Ž”c]”“3]“c”2]Žc]22cÇñ 9 :9 3 : @3: :9:9ƒ:]@@:@A9:AqAqGrxGqrxrqxHqxqrHqGrwrwrrwAGrGqrxqxrxrxxqxrxqxHqxrwrxrrxNqrrÔ¾“¾c]”“¾“cŽ”cŽ“Ž3„c]c]Çñ 33 9: 33 3@4 :3:::: ::@ƒ:xAqGkGrwAqxGxrqrGƒxqG::xrxqNrxrwxrxxqrMrxqƒxHxxrwrGrxrwrMrrwrMþ”¾”¾¾“¾”c”¾“”“3]3c3323Çñ3 9 :9 9:9 @:399ƒ: 39::ƒ@VqrwAqGqrxqAxrwHxqrxqHqrxqqxGxrwrwrxrwrNrqqxxrxrwrxrxrxqHwHxrwrrwr™¾“¾”½¾“””¾””ccŽ”c]„c]23Çð 9 33 3: : @A9 : :9: 99@:ƒAYwrGkqHqkGrxrwrGxrxrwrwHrrxqrrMrxrxHxrwxrNrxrxxrxMxrMrwrqrqxNqHqŸ¾”¾”¾”¾¾“¾½”Žc“Ž¾3cc]ccƒ322Çïy 3 93:393 @::3993:A99@::@:kFkrxAGqqrGqAxqxrqGqG@@rNrqxqHxqxrxrMrwrxrxxrwrMrxwrxrxxrrGxqNrqxqr™¾“¾c”½”¾””¾“”Ž““”]c3cc]2-Çðy3 3 3:3 :::39 :9:@A :9::AGkGq qAAqxAqAqxHx9:rxrGqrxxrwrxrMrwrxrxrwxrxrxxrwrNrxqxqxqxrrwrxrGq™¾”½¾i¾”¾“¾¾2¾Ž“”Ž“]ccc3]c232Æðy 9 :3 :9 949: 993::@@3 @:@kGkGqAqGkxAqAxqrxArqxqHqAwHqxHxrrxrwxrxrNrwNrwrxrxqxxrNrxGxqxrNqxr™¾”¾”c¾¾”¾c”Ž“Ž”“Žcc2c]3Çð9::9 39 : 9:9 4ƒ:@:9ƒ:dAG@kGqAqGkGrGqArwHrqAGrrGkwrxqrxqxwrNxrxGxxqxrxxrxNqxxrxqxqxrqNrxqxrwq”½”¾”¾”½”½””Žiccd9c]cc3\3Æïy : 9 9: 9: 9:3 ::9:@9: ::9@kA@AqGkGqGqqAqqxqxqrqG@kGrxrNqHxrxqxrwrxrxxrxqxxrxxrxrGrxrNrxrwrxrMr™”¾”½¾“¾”¾”¾“¾c””¾c”]cc]3,cÆï93:3:3: 39 9::::@@ƒ:,G@AqAjrAqAqqAqAGrrNrqNjAqxrwrxqrqxqxrxxrxxwrƒx6rxHwqrxGxxqNqxqrwrNrwrx™¾“¾”¾”½”“¾“¸c”¾cc“Žcc-c32cŽÆïy34: 3:9 :@:9 :9:@4:::Aj@A@Aq@AqGkGkGqGqqxAkGrqHqHwrNqxxHxqNrwHxrxGxrxwrxxrxxrqxrxqxHxqxrxrq™¾”¾“]”¾ŽcŽ“Ž”“Ž””ccc]]32Æð : 999 :93@: :9ƒ:b@@:@k@A@kAjAGkqGqGkGkAxrx@xqxGqxqxrwrxrxrxrxxqxxrxrwrxxrxGxqxHqxrNqrwrxGrwr™¾“¾¾c¾”“”cc””“¾“¾“ƒc]323cÆïE 39:: 33 :3@:939@9:@:3A@AjA@@Gk@GkGkGkGkwqrwr@AqqrGrqxHqxxqxqxqxrxrƒx7rNrxxrxrxqrxGxrxrxHwrxHw™¾”¾”¾“¾”¾””d“Ž“¾Ž””¸cŽc”]“”“3Æðy 3 3 9:: @;:3::A::@@Aq@A@k@AkGkGqAq qArHqNrr@HqrwHxrwrxHxrNxrNqxxqNrxwxrwxqxrNqxrwrwrqrrwrqxq””½”¾”“Ž¾”“Ž”¾¾“¾“Žcc½]“-Æïu3 9- @@3::@3:@ 9 ::kAk@A@k@@AqAqGrGkGqxqxxqrqrrqxrHwrwrwrxqxrGxrxwrxrxHxrNqxrqxrxHxGxGrGrGr“¾”¾”“Ž“”½d“Ž½cc”ƒc”cŽ”2Æï>  3 3A9A: :9 :@3 :@@:@AFA@jA9AjAAqAqqAqGqHqrx@xGqrMrGxqrxrxrƒx rxrxwrxxrƒx2rwrxxqNrwrwrxqrwrxqr”¾““¾”“ŽŽc“Ž”“”Ž¾“”c”3]“ŽcÆïy 3 3 3G3AqA@Aq 3@@39::9:AqkG@@;@A9qAqGqGkAqrGxrxrGqrqrxqxGxqNqxrMrwxrHxrxxGxrxrwrxrqxHxrqHwrHwrGÔ¾¾cŽ“¾Ž“””¾”½Žc”“”¾c¾3Žc“3Æð3 @9 ƒ:t2A@:@::@;9 A@:@AqA@:@qA@AqGkGqAqGrq @rqGrMrGxrqxrxrGxrxrxwrwrMrxrwxHxqHqNqrwHxrxqxrqx™¾“””“¸”“Ž“¾”“Ž¾”Ž”““Ž2Æïy9:@@:33@: @k@:@ 3:9k@@:@k@k9:GqAk@qG4AGqrqGrGAqGrrqrqxHxqHwrxqrNrxxrxrxqxrxqxrxxrxrxqqxqNqHqr™¾”½¾”¾c”¾¾”“d”c3“Ž“cŽ,33,Æï9:3ƒ :::2:3 @:@::9A@kA@@A::@kƒ@@AkA9AkqHqGqrqGrxqNqHxqxrxqxrNqxqxrxxqxrNrxrxwrGxqxqNrGrrqrGq™“”ƒ¾“Ž“ƒ¾c”“]c”cc“c”3Æï:9 93@@: 3:AkA@@:G:Aƒ@ek@:@:AA@kAkGkGqAqwGrqGxrq@rxqqrxrwHrqxqrxrNxqHxrwrwrMrxxqrxHqrwrwrGwr™”Ž”¾“Ž“Ž“¾c“c”Ž“¾¾”“c]¾332cÆï 3:@:3 ƒ:949 @9::qAj@:kA@A:@A@k„@ZAFkGqGrqGArqxqr@ArMrGqxrwHxrMrwrqxrwHxrxrxqrxGrwrwrHqHqrGq™”“”½””“¾”””Ž””””½”c3c]Æï@ G:@:9:@@A 3@:@:GqA@A9A@ƒ:ak@Gk:Ak@kGkGqGkGjqrNqHwA9rqrGrqxrwrxqHqxHwrxxqNqrNqrqxHqHqxqrwHqr™”¾¾”½””½”““”Ž“”¾ŽŽc3“”2-Æð39@A3ƒ: @A@k@:@:@Aƒqg@A:@@j@Ak@GkG3A@AqqAqAqGHqrqAkxGA@rwrGrGrwHqrGqrrwHqxrxqxrGxrwrwGrqNqrqG™·”¾”¾¾”·”Ž¾¾”Ž“Ž“¾Ž“3cc]3cÇð @k A9@@k@G@kAk 9ArG:@ƒ:A:ƒ@BA@@:@k@GqHkGkqqGqxqrqrx@rMrqxqrqxqrwHqrqHqxGrxwrxrxGrrqxqrGqr™”“„¾“Ž“¾”½””¾”c“Žcc]]23232Çñy999 jAA3AAkAGqA3:q:@::@qA3@@:@::k9A@qAkGAkGGrrqAkxGqrwGqrxqHxGrGA@rxxHwrGqxrxHxqNrxqHqHqrGr™™“Ž¾“¾“d“”¾c””“”½”Ž“ccc23,c-Çñ 3 A9A@9A9::kGk@@:AA:@:qG9ƒ:@9A@A@qAqGk@@krqHqxAGqGGƒr(GGrwrqGrqGqqrwrqrxqNqrwrwqHqrwrMqGq™¾”“¾„”“¾”½””·Ž“Ž¾“¾]cc,cc32Çñr 3 kA9:@@AF3 @:G:@jA3@kG4@@A:3@A@A@kGkG@@AqxqHqrqAkrqxxqrGrGqrwrrHqGrGxrNrqxrrNqHqqGGkrqAq™¾“¾Ž½”½Ž“Ž“””·”“Ž”½”ƒc-c-2c]2ÇðP9: A99: 9 2@@:A9kGqG@ :q::@k@qA3:@dAGkG@kAqGrqrwHwxrGxqHxqrwqrNrwrwrrxrwrqxrwHƒq*GkGqrGqHqGÔ¾””¾”½c”¾¾””“ŽcŽc]3c]]9-Çñy ::9:::3 :@:@:q qAk::@@A@:9A@Aq@ @3@AkA@AqAqGrGrwrrwrGrqrxqrHqqxHqHqGxrxHxqNqqHqHqGrqrGqGrq™c”½”½¾c]”“¾cc”·”“cŽccc],9]2Èñ3:9@:9 9@A:AkGƒ:$GAG:9r:@@ @AqGq3AG::Fk@AkGAqqGrrwHxqƒxBMrNqxrxqrxwrqGqxqxqqHqqGkGrqHqrqrqr™c”¾”Ž“¾”¾¾”””cŽcŽ3\93c2Èò::@ ƒ:s9:@@kGk 9:9:k@9GqG3:k@q4 94q@@A@:@jqGqqxGrxrqHqrrxrwrGrGxqHxrxGrqHqHqGkrqrqrqrMrGq™””“¾“”Ž“¾“Ž“Ž“Žcjc38]c]\33ÈókA @:@AA@:A@3GA:@ƒ:aq;@q: : @@A@ :AqqA@:AqGkGrxqxrxxqGxqxrwrwrGrxqxrqxGqrqGrqHwHwHwGqAqGÓŽ¾”Ž”½”¾d“Ž“ccŽc”c2]c]cËóx qApA:@kk@k9:9A93A@:@@AqGq:9:Ak:@@:qGkq:@qAGkxqHqNqxrxrxGrHqHqxqrxGqHqqGAGrqrwrqrqrqrGqG“”¾“Ž“¾Žc“Žc”Ž”””c]3cc3c32Éóx kAAjGkGAAG3@:k@ ::A@kHq:A9::@@rqAGqAA3AGqrqqrxrMrGqrqxqxrxHqGrqqHqrxqrxHxrMqGGqAqkG““Ž“Ž“Ž””””“Žccc]“]c23Éóa:FkG@kGj: 943:: AkqG:9:G:9:GqA3 3 :A:qr@qA@:kHwHxqNrxqrwHqHxrwGrwrqGrGrwrxqxqrwHkGkGkGr“””½””¾”“ƒ”“Ž“Žc”„cŽ]Ž2c-2Éó :3AqAA@q @@G39:9 @A: ƒ:\ qrGAq33 @@qAAq@qGrqrGxqrqxGrqxqxGrrqHqGrxqrrMrrMrGqGqAqrGrG™½Ž”½”””½”½Ž””“c”cc]c]“c32Êôv3AG9A@9:@39AkGq::@k@@99:@AqGr:GA33 :r@@kAqqGxqrqHwrrwrNrqrqxGxqxrwrNqxrwrqGqGkGqrGrqq™”“¾]c¾“Žc]c”½Ž””cŽccc”3c3,Êõc33 qkGA @Ak@qAG 9:AkA::@A@:@@qqA3 3@qAkG@qHrqxGrqHqGxrqxGxHqqrrqNrqrxqHqHqrqAqrrqrqHq™¾”“”¾”¾½”¾”ƒdc”cdc]c22c]2Êõu @3GAq@jA:@AAq:k:G9:9@:r@@:@kAqGq:@:qG@krqrqHqxrGqxrqHqrxqqHqGxrqxrMqrqHqGqxrrMrNqxqA™“¸”½Ž½”””dc“Žcdcc”Ž32c]Êö k9A@:@kGqA@@A9q:A9:@Aqqr:@:G„:QGAkA@rGxqGqGrrqHwrGq@rGrxrwxHqxrxHqqrqrNrqrqxqG Ù”“¾””””¾cd“Ž“”ccc]c]]iÊø9 „:lGkGk@:@:Gq:AA@qHq@@q93::FAkFqrx@rqHArxqx@xrwrGqrxqxrHwrxqxqxxrMrxqxGxrGrqr™¾¾”c]”“ŽcŽ“”cŽ“Žccc]”c”]“3Êø\:3@:GkGjG::A9qH9@k@A@:@;@@3 GGkAGqrxGrw@rwrwrHwA@AqGrxrMrwrxqHxrNqrwr@:@::GrqG @™”½Žcc¾”ƒc]”“Ž“3]“Žc3”½Ž“cËøq @:9A:Gk@@qGq:@:qA@k @Aj::AAqqGkqrGrxAArqGrrwrrqxrqxrwrxrqxHxqrwrxrGr@::Gqrwrr:AÔ¾“¾”¾“¾c””c“”Ž2c”c]c¾3ccŽËøƒn::@@AkGkAqrGq;9Gqr9Ak::GqA@qAqqHwrw:qwrqxAGrGwrrxGrxHxqGrwrxrwrxGrqG@rqrGrGrMqAÓ¾”“¾¾3c]”¾]””9]cc3”2”Ëøƒf@:@:qAFkGqqH:r::Aq@A@qq@@qqHqrGqHqrHqHwrqqrxGxrxqrwrGqHrwrNrGrxqxqrGqGrwrqrqqŸ¾“¸”¾“]cc“Ž“”””c”Ž2cŽƒc“”,,Ëø„;@:A@::AqH::@:A@@AAq@qAr@;GrqGqGrqxGqrwrGxxGrxqxrNqrMrxqxrxƒq-GGArGrqxrqNqHqr™¾”¾¾“Žc¾c”¾”¾c]“¾”ccd”cÍø…k9AjG@:9::@:@kFkAj@AkGA3@qqAGAqrxrqrxG:rxqrxqxHxqGqrxrqHxqGqHqqk:wrwrNqxrGq 9 Ô¾“¾“cŽ“”cc””cŽcc]3cÌø…7:GkA@:A@@:@A@:@A@kFA@@q:AAqkqGqqHxqGrGqxHxqNrqqHqrxqxrq„A0qGrNqxHrwrrGqq™™Aß¾¾””¾c]c”ŽcdcŽ“Ž“Ž”]cdcc,2Ìø„L 9k@@:@jA@AjA:@kA@@kq:AAq@AAGqrGqGqrxqq@@rwrqrGrwrMrxHFA@q@q:rqrxrwrHqGqGikAƒ™¾“¾“””c”””d9Ž“¾2„c,3Ìø„k3:@Gq3 Ak@::9:@:G@AqG:jGkAq@kGqAqArwHrGkGA:rMrqrGrrwAjAqAq9rGxqNqrGxGkGkqAqGk™™”“¾”””“”c]“”ccc3]c23,Íø„ :GkGqA9@A@3:9@@k@:Aq:AqGq@ƒ:LGqAAG9:q@:AjA::@GqAFA@A@A9qGrqxrqrxqGkAqG]GqGkG““¾Ž”¾””3c¸“”c]¾”c]3c]233Îø„ qAqqG3Aq :@AƒqWAG:9@:@:@@@A:@: k ccc2cŽ:9AjA:qrGrGrGrMr@AqAqAqrGrq™™¾“¾¾c””]c”]c]3c¾“,c]23232Îø„ 9::GAk 3qGk3A@AAqA::A:@ƒ: @:4@:93c“Žj„c,cc]c2““9:@qqGrq@A@A@@3qxqGrqHÙ¾¾cc”c”ccƒc “c323,3c]c2Ïø…V::@@AqGr@A99AqkGAjAqGj::AGk:9@:9A@Žc”ŽcŽcc]38i’o@A@AkG@A@@j™kqGkGrqGq“™”c”c]3„cŽƒ3c,33c]22ÐøƒT:9::9:@::9Ak@4rGqAjAFqrGqGqA:FA:qGkGŽccdcc“cc]c]32ic““™::3kri:GkGqAqGkA™c¾””„c]c]]9]2c]23cc]83Ñø„$A: :@::qGG3:qrqGA@kGkGkGqq@AjGAqAqƒc33b]c]„c 2cb™i’i:9A3ƒ:'rG3 @kGqAqA™”“”¾cccc]c]2c2]9]323\93]Ñøƒ( 9A@93::@9Hqk:qGqA@A@qGqAqGqrqAqqAqG3 ,ƒc<32cd]cc]3i™™“h::@@::@@ 3GAkGAqGk™“Ž¾ccd]cc2332]c3c22]c]3\Òø6 3kA@A99::qr: AqGqqkqAkGrqrGkHqAGkGkGk39]c3]]“@Aj]ƒ2Ù.@3:: @:@9kGqAq:@@““Ž“”Žcc]]c2]cc]c]2]c]cc3Ñø  ,:qA@@: @Gƒ@Zq@AqAAGqGqqHqGqHqqAqGqGqG]cc]c3A@A@33i™Ã9A:A@:@::3@@:@kG:@A™Ž“Ž“Žcc]2c33]9]c3b3c””c3Òø3ƒ:) @::99A:q;@Aq:qrqGkAqHqAkAj:GqAqAqAq:3c]ƒc”jrqA2]i’i:@q:A@A@qƒA#@::@@:@“iŽ“Ž2]92c3\3cc]c]3c”c]Òø( 9A9:@::Gqr@@AqA:GrGA@rqqG@@AA: qqGqrGƒ>3\c23HqGq3]hi,”3@@qkGqGjA@kGqrqi”Ž“Žc]923]c]cc]c]c3“”Ži3Óø:@@Gqƒ: 39rGkAkGqƒ@:@rGrkqGk@:qGqBqA„;@@3,33]:Gk2i“22™2@:qGAqAqA@qqA@ic“”½”“,23Žccc]ccc3c”ƒÓø':@A3::94@@AqAk:GqAq;:qr@@AGk: 9AqGkGqƒ?q]3]3223]cqG3i2™ib3:@qq:qGqrGrGk““Ž½Ž”]33“”“cc]c3Žic”c”ŽiÓø :3 9AGA:: ƒ@ZA9rqqG@@rqrqA@rq@@3GkGqAqccG@32]23,d],ic“i“iAqA@rqrAqqAq““Ž”“”2]c]c]c]“Žicddcd“Ôø3:Gkƒ@O@k:A9rGrk rGxqqAqH9rkGkGkG]dqkqc3A:2d“32ih“h“bAkGrGqGqAGq@“””½Žc]c]cc]ƒc 3]32ŽccƒcÔøƒe @@kA@kA::@9HqA@ 9qqHqHqGkGqrAqGkG]cAqAA2:@kG32cd232]™“™cqGrqrGqqAAqi“Ž”c”cc]c”]c]3c23c“]c]Ôøƒ_3:3@:AkFkG:93qGqq :GqqrqrqGqGqrqAAkAqAqq3c:@Aq@Ac,ccŽ9::@@3GqrGrrGk9iic¾”½”cc”cc]2ccŽ„c2Õøƒ' @ ::9@AAq::GrqG-9rrGGqGrqAqHqHqk 9Aq„8::GkA9:c3A@k@qGkG9rGqrwGq:™¾”¾¾”Žcc”Ž“”]c3]Ž“ccc-Öøƒb :9:@A333:94qHqq :GrqrGrqxGqrqrqG: :kGA :22:@AA3@:AkGqGkGq:rGqG3i“qA™“¸“”¾c2”¾“]j]c\3c”dc3×øƒb :@:A@G@k:: 9HqrG:@r@@AqxHqrGrGxrqq:: 9: 9qG:qq:3::qqGqrGqAciqA:Gqc™q™¾”“¾¾c”””]cŽcc3ccc3×øƒ @AqqkGAG@„:@:rGkƒ:qrqHqqrqHwHq:9@:@qGkqƒ:3@ rwrNrqHkAqqG“iq9kG2iirq”¾c””c]ccc9ccc3]Žc]2×øƒ3@kGAqqAq@A@:@9qqGƒ@;xGxAqGrqqrqHGAqG: kGrGq::rGrqqxqGqHqr8“i9q3cqGAq”¾“¾“”23ƒc]ƒc cc33c32×ø@: 3ƒ@LGkGqk@:A@ArGr::@Ak@qAqGrGGqqAkGk@kGqrHqGk@:wrHqGqqGrqqic9GqGqr@A“Ž””Ž½]3ƒc ]]cc]c323Øø…S3@A9;qGkGqGq:A@::@@r::@:@@rqGrqHqGqAA: qrGqqHqGkGAqwrrGrAqrGq2cc:@rqrAÔ“Ž½Žd“3c]„c ]ccŽcc,×ø… AjGq :qGqlGqqA@:@@qqH„:2AG:qrqGkApA@2AqGrG:9::AqGrGqqqA@qiichiqAr™˜“”¾¾”‡c ccc]cd233Øø…-3@::kG@:qGqqGkGjA9 rq@:@@:@@q:@::9: 3 3 3:@A„@.AqrqHq4@qG3h“cc™™“™i“¾”¾ccŽ2]cc]ŽcŽcŽcj2c2Øø†B@k:@;:GkGkAG@A@ ::9@:: qGq @@A@:@:A@9A:93 kq:@rGr@:@AAqicbibÙ“””“”3c3c]cŽic3c]]]Øø‡@: qAq@A:GqAqqkAk@ ƒ: qqH:qA@k::ƒ@6kA@@@@AG::q@@::b@kGh“ib9bc™Ã™™”½”·”,cc]cŽ””c33cÚø‡L 93A::Ak994@AqAGkG:@9A@9A@AkGqA@@qkG:@:Aqk@@j::@A@:@”AqA2i“8chc,Ù“Ž¾”3]ƒc]d“…c]c]2Úøˆ" 3G3 @@:A@@A:9@AjA9 k@4GkA9kG:GkG„:q@A@A:Gk:@3 :GrG2ƒ“i“82c2™¸“¾”“]c]ccŽƒc3c2cÛøˆ" 2 :@:@A@A9:3@A@A@@A@:qGkG3Gq q:ƒ@-:qr9:A39A:: @:@@k2o’ibcihcÃ8””¾¾cc]cccc3cƒ]c]3Üøˆ:@A@@qG-Gk@A9AA…:qG:qGqGq:GqAqA@kG„:@A…@'39A:Aj33i““bc“iiÓŽ“”2c]c]c]c]cc33\3Üøˆ3@qkAqGqqAjA@k@@k@AqAAqqArƒ:9q:@qA@@A@:9@@:@:A@:3: 232]c“™2ih“™“8¾“Ž33c]c]9]2]3bcÝø‰U: AqAqGAqA@AqqGAq@qA::q@:GqG:@AqA:qq@A: qqA@::9 93:22-2i“hcib™“Ž”“Ž]c]232]239\3]Þø‰T:@9:Akq3GkGj@GqqGkAAjkAGkGqAqAqGk:GAAjGrGr@kA@:@:9-2 c“™bbc“ib””“]92]9]323]23]ßø‰R 3:@:A@@ qAA:qAqG3:9:qGqrAqq::A@qqAAq:qq:@@::q 33c3icc“™“ibi’i”¾c]232]2c32áø‰:: ::@@A::k9„:@AA@49GkG:qAAGqGkGƒqGqH9:::G3Aq @22c3cƒ™h9@“™””“”323233\ãøŠM9:9A:@:kA@:@::AjA3 @rGqA:@qqAq:qAGkrGkqqrq9k@Gk A833c™Ã™“™™3“”””3]3]2åø‹:34Gk::Gk ::@::GqA3Gq:qAqqAA@qGkGrqrGqqHqHqH:@A@q q\8]2,cƒ“ ™“’i“¾Ž]“3éø‹G 9 qAqGkG::9A@:@AqGk::G@:qAj:HqAqGAGqHqGqqG:@:qqAqq:9b33™™c”“i“Ž”½9êøŒF3 qAGjG:9:@A@@kGkG:@:qqH:qA@qqGrqqArqGrGkGq@kGkGqHq:98,“™™Ã“h““”Ž“cêø93G9:Aq@A@Ak9AA@kGqGqGqqAG::GrqGAqGqrqAqGkrAqGr qGk2i23]ƒ™ Ù™cŽ“”,Ž“èøH :93Gk@:@AAk@@k@::GrAqAk@qqGqrqAqGAqAqr@GkGkGqqAqA kb233™™Ã™“™”””c]cçø9@ qA@:qqG::@AqA@:qGqGA@rGrGqGrAqGkGqGr9GqAqAqGkqGGAi2h™Ãƒ™””3“êøŽD A:9::@qAqA:@kGqqGqAk@q@qqAqAqAqqrGkGkGr:GqAqGqA@kAqb23cÙÃi“Ž“¾c2êøC@AA9::q:@qAjGqq:GkAq@ q;GqAqAqqHqGqqGqAqrAA:qrGq:9:@c82™Ã™™“””Ž2]êøD3:9:@GG::A9qA:Gk::A:@qGkAAqAAGqqrAAkAGkGqq@qGrAAG:@A2c™™Ã™™c”“Ž2d3éø‘ 9Ak::9GkGƒ:4GA@@Aq:GkGk@A@qkGAGkqGqqAqAqGrqGqqk 9A2,™™Ã™””¾Ž“3cêø’3AA@ :kG:@9Ak@k9A:qAqGk@Aƒ:qqGrqHq9GqGk AqAG @A9:ƒ™““¾“Ž2êø’(AjAj@:AA99Aq:q ::@@A@kqGqGqGqGqAA@:qGƒqAk::j39™b3™ÃÓ””¾”c3cêø”>GAjA9Aj@A:AqGkGqqAk@AqGqqArqAA@k@q:rqAGrG@:: 93™™\8“o“”½Ž\3êø”=q@A@:A@9A9:qGq:AqAqGrqGqA@::@:qGA@4A:qAq]23]c™™“™Ã™“”¾“”cëø•13:kA@:93::9:3G kGkGqHqrAkGqrGkGqG@A9:q2Žicc22„™Ô½”¾cëø–;k:@@:9A:::3 @-GqAqAqqGqGqqGkGrk:AjAAqc]c3]““™“™Ã™”¾”cëø–'A@Aq:k:94@3:@:@k@AkGAqrAqGkGrqGqGkAqq„cc”c““8c™Ã“”]c33ëø—39:@A@Aƒ@:@:A2 9qAFkAA:9qHqAqGrqq:ƒGc]ŽŽci“™b™™¾“]c2]ëø˜"3GkAqA@:q:939Aq:3Gk? G:kAq@rGq: ƒ:”i”3”3™“™b]cŽ3“éø™/ kG3AkAAqA::@AA@A@@qAqA@GkA@A@r:@3c”3]c2“8ƒc323„”éøš3:GpAqAqqAk@AkG3ƒ:9:99A2 c33c]c]9cc]Ž3]]2]3ïø›,:@AkG3@:@AqGkF9:: :9:: cc]cc2c]]c32c]c“”ƒcòø#:3:9:qA994AAp3@3cc3ccd“Ž““Žc…Ž“cóøž":@AAk:A9 @:@:qA943cc]]2Ž32cŽ“”c„2Ž“dôø @q@Gk: 94:G:@ 2c3]c332]3„Ž‡”ôø¡ AkG99399A33„c33232,3Ž,côø£3 cc]3c3,]cc]223,3c”ôø§ƒc]ƒc]32]22øŽø¨ 3\3c3cc32323øø¨ ]3]2]]23233ø‘ø©2232323,ø“ø¬23ø–øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ–yɳ·2·} /·‰FkË·‰Fk-ýôÉýô2ô /G:ËG:-H:ÉH:2K: / KFH3Ë KFH3- “yÉ “y,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÚ2]àøÚcc]ßøÚ]3c]c2ÛøÚ 2cc2c]23\3]ÕøÛ 2]c]c3]9cc2Ôøº“Ž„c™ƒc ]c,3b]c]cÔøº ”cc2c3]2ƒ 2cc3\‹]cc]9c3]c223c2]Ðø½iŽccd””Žc]cŽc2Š]3c]]2323c]cc2Ïø¹8bcbiccdc“””c”2Žid”]cc†2„c2ccc]c]cc33232c]ccÇø½2“cŽ“]c”232cŽ“c]c‡,2]3]c]c]c]3c]]c]3cccÆøº::@:i“i„ccdc””]c2”cˆ ]c]32332…c ]cc]c]93Çø¶::: ƒ9iccd3ccŽ“ŽŽc-]3‰2c3cc]c3c3cc223\Èø»@A:bc33\cccccc”cc]‰3]†c2]23]c2]3c]cÈø¿ 3@@ 22cd3d„cŽcc”“]c‹2]]c]3c23]23ÍøÁ :@]8c3cd“c,”“¸”“Š2]cc]3223]c]cÎøÃ3 “3c]323ŽdccŽ“Ž]“…32]9\]3ƒ2ÐøÄ 9b8ccd2”“,2c3”ƒŽ“„cc3\93ƒ3c2ÏøÄAqiib3,cŽ2Ž”cŽ]9d“Ž‡ 3]cc]3\2,ÑøÅ@::c8cŽ„c Ž“]9c“†]c]2]9ccÔøµ: 3 bicccc„cccŽcŽ“…2]2cc×ø²3 9ƒ 3 9:‰9:bƒc]dc]dcciŽc]„cØø±9::9 :9::@: @: 9„ :@icdccƒc dd“-“Ž“ƒc]9c]Øø° :: :9 :@99ƒ:@3 :@@:@::iiccc]…c 3c]“Ž”Žc2]]3Øø° †:9 : :9:@A:3 9 :3 9@cccƒcŽc3ƒc 3“”½Ž”]cÙø± 9:::9:9ƒ:9 ::@:A9@A9@@idcŽ†c ]ccc]”““Úøµ!3: 3 99: ::9:@3A@:A“ccc]]ƒc dcc3cŽ”ŽcÚøµ 9::9:: 9:3ƒ@;@rq::@@“cdccdcc]cc]cc]“¾“cÙø·:9„ :9:@;@:@@A:q@:“cccƒc ]c]3c]cŽcØø¾3 9 9:@@:9A:GA@“ddcŽcc]ƒc]3ƒc3c]2×øÀƒ:::@Aƒ@ k@A“cccŽƒc]3cc3ƒc]c]3ÖøÀ 999A@:k@A@@jA“ccŽcc…c]c2,c]„c2cÕøÁ&:@;9 :A:@4A@A’dcic“iicbc]3c3,32c]]cÕøÀ) @@:9@:@k@@jAA@™i“hibibcch]32cc333“Žc]ÓøÁ3:3::9@:@3:AjAk“’i“i“hchcb9\]ƒcc3cc]ÔøÀ'3:@9A43@:A@@AFA““h“h“c“ibc8]3]d2,c]ƒcÒøÀ)3:9 :9:3@:@@kAji“i“iihi’iib9\9ccŽcc]cc]ÓøÀ: ::@:@A: @k::9AF“™’ƒ“bibcib9]]3”„cÒø¿ 9Ak9 @A3:9 3 @@A:A’i“ihi“i“bibƒc \c3c3cc,Ñø¾, 3 93: 99:@3@ 3:9@AA“h™““hih“cibcc3ccc]c3,Òø¾-3:3A:93: ::A@ 3 @jA™““h“i“ch“bicc3cc]3cccÑø¾%49@3::43@::@:@Ak@A@“i™i’i’iib9cc]ƒc]c]33Ñø½/ @:9 94@A:9@@:@A:qA@kG“’™““ii’cih]cc]]cc]c]ccÐø½(3A@:9:A@A9 949:AjA@qA@kFA“i’““ibciiccc‡c,Ïø¼0 9@A@:9:9:A99 :@qA@Ak@@AkF“o“h“ihc’]c]c]]cc]]2Ðø»9 39:A::3:9AA:33Gqk@AA@k™ƒ“h“i“ibiƒc dcc3]c2c]cÏø»$@::33@@A93::9 9qHqGkFkAA˜“oki’i’iƒc ]c3cd2ccÎøº& A@@A: 949::3@:A94GqGqrA@@q“™“’A“ii“h…c ]cccŽc]Íø¹,93A39@:93:9:99 39:@AqGqAqAGA“™™i’“’ichc]„c]3cccÍø¸ :@ 9:A@::@: 93:3ƒ:A@rqrqGk@qA˜“™“i“hiƒc ]ccŽ3c232]3Íø· A@A:9:@3::ƒ@::9::@A3@rGrqrAq™AG“˜i““hcc]„c c,32]cÌø¶@Aj@@3A: ::@@:A:@9 9:ƒ9": @AqHqGq“™“™““o““hcd]cc]3Ž232Ìø¶39 3:Aƒ@(:9A@3@:@::9:3:@:ApqrGqG“˜“™’“h“idccŽƒc2]c3c]]Ëø³2:@@:@:9:@A@:@:3::A@A@:94@@9::@AqGqqA™“™“o“i“iccŽƒc ]cc]c2cËø„˜ @::@@:A@„:7 9:Aj@::jA:@: 94@:9A@:qAAqAq“o“’™“h“Žcc]dcc32c3]ccÊøƒ : ‹ ‡@@:@A93:ƒ@A:@@::@:9:3:@A@:: 33:ƒ@(3:A@AkA@qqAA@A™’™“i™“cdcd9c3]c,93Êø 3 Š :@@ :@@:@A@Aƒ::Š:@@A:A@A3:@A@:@::33 A9:3kAƒ:@jA@j@HqAk:q“™“™““d“ccƒc Žc3cc]]2Êø 9 3: :…ƒ:@:ƒ@ :A@:A399:9 9‡:@@A@@A3:9:@A@@ƒ:@:@9A@A:94@@9: ƒ: 9:AjGqG@AGƒ“iddc]dcc]cc,9c3Êø 3 3939…, :9:9@349:A@:@:@A::9@ ::@@::@@A:@;@::@A:@@3Aƒ@7A@:49@A3@:@94:@9A@:9:AAk@kAjG““Ž”iŽcdccc3c2cc3cÉø) 9 3::  :@ ::3:@:@@k@::@:@: :9:@@A :ƒ@ :9:@@:@@3ƒ:'@A@k::9@:39:@@::9@4@A@: :9AAG@Aq““Ž“Žƒ”ccŽcŽcc23]c3c3É÷ 99: :9:39@@:399:@@ ::A@A:@A:@ƒ: :@ƒ:&@:A::@:3@A@::@:9:@d @@::@A: :@A:99;@ 9„:9A@9@kAjGA™“Ž“”c”cccƒc -332ccÈ÷ 33:9: 9 A: ::@;ƒ@ƒ: jA@:9::9 3„:N9:9::@@A@;3:9::@ :9::@A@@:@@:9:@@A3@@::9@94@k@A@kA@q“”””d“ddccc3cc]cÈ÷ 3:9: 3@A3939ƒ:9@:3@@::@@::@@::39:@@::@@:A@3@@::@@:9:9;@:@AdA@;@3@A@::Aƒ@':4@4@AAk@ApAq™”“Ž””c“3Ž“3c2]3]3Èõ2 9 ::3: 3 A@9:9:@ 3:A@::@A9A@:9 :@:: 9:A@@::Aƒ@ :39 9@A@ƒ:„@3:3@k@: @k4:9:@99G@k@AAk™“¾”“Ž“Žc”ŽcŽ“c333]383,2Çö 39 33:3::„: @::@k99:AjA@:@:@ƒ:"@ ::@@4@::@k3@A::@@::9:@:9@;j::@A3ƒ:99:kƒ:#:kGA@jGq™Ž“¾d“”cccŽcc3c2323Çõ 2 :3 9 @:9:@3@@9„:@:@A@A@kA::3 ::9::@:„@A::@9ƒ:?@4:: @@;@A@@3:@:@@9A@:94@A@::kF:@k@AqG™Ž“”“Ž“Ž”c”c”cc\32c,Çô 3 3 3 : :9::9„:@„:@ƒ: @@::@A9: „:N9:@Aj43@@:@; 9::@@3A9:@@A@:@:@A::@3:9@:@:9:A@:AqAAq“”Ž”Ž“cŽ“c],dc]3dcÇô: ::333:3@:4::@@::@::@ƒ:,@:@:@k@::3::9:@:A9@A:@A:@A9:@A9:@:@Aj;@:@Aƒ@"::9 @::@@:9Ak9@AjAq™““c””Žd“dƒcc32ŽÇó8 3 3:3:: 3 :: 9:@A:@:@::@@A@:A9:@:9::3:9:9:@A@:@949:ƒ@„: A@:@:@:@4ƒ:0@;@@::@4@rrqrrqxGrqGqG™™””Ž“Ž“c“Ž”c]]cŽ23c3c3Æó :@: 9 39 99:9„:99::G@9@A@k@:@:@::@ :9:9 :@A„:@9:9ƒ:3@::@@A:A@::9@:9@AjrxrxqrwrxHwHqrqHqAqk™¾”“Ž“Ž“cŽƒc 3cc2c]cc“cÅñ 39349@3 9 :@@: ƒ:9„:&@A@::@A@ :@3@@A3@:@jA@::3@:@A@:@:jAƒ:@@„r#qxrxGrxGrNqxrqxGqqrGqG™”“¾”””””ƒc 33cc2”3Åñ2 : 3:9:3 @3: 9ƒ:@ 9::@@:@A:@k@A:@:@::9:@39ƒ:J@A@@A:@;@A@@:@@A:9@rxrrwHwrxrMrxqxrwrrwrxrqrNqqrAq“””“d“Ž”ccŽ“3]c-2-Æñ, 33:::A9 9:9A@3@::@@A:@::@A@jA@:@@9:33†: @:@Aj@A9@kƒ:?k@::9rxqxwrxqrMrxrwrGxrxGrqNqxNqrqGqr™™Ž“¸”””c”cd]9c]83“2Åð 33 ::3@3:@@3 3 ::@:9ƒ: @:A@::@@k@A@†::@::9@@„:G@AjA:@@A@xrxrxrwHrxxrxrqxqxHxrqNqxqxrxqrxGrrGqA™””“Ž“”]cc]cc3]32Ž3Æð3 9: :@ @3: 9::@ …:39:A@A@jA@k@ : 9:@:@ƒ:@9ƒ:F3:@A@3qrxxrwrNrxxqxNqNqHqxqxxqrrqHqxHxqrxqGrqq™¾“”¾”cŽccŽc]c,ccÆð 3 39:3::@: 33ƒ:@A9:9A ::@k@k@Aƒ@:39ƒ:R@A@:::@::@3:rxrGqrwxrxqqGqxrxrxqrxGrqxxGxqxHqqrMrxrwGrr™”¾”””c“Ž“”ccŽcc]c]cŽ2cÅða 23 @::9:9 33:9A9: ::@:@::@A@A:@kAk@: :@@:@A@@:@A@9::AwrwrqHqxrNqxxrGrxqxxrwrxrxHxrxGrwrxrqrMƒrwHÓ”½””””cŽƒc]9c3c3cÅïƒ :3:: 9: 94 ::@ 9::9::@@:@:jA@@A@@A@3@ @A@A@:39:@:xrxGArxrƒx>rwrrGxrxqGxrxNrxGqGrwrxrwrHwrNqrqMrqx™”·””¾“Ž“Ž“Žcc]2cŽ2c3Åñ23:99 2: ::ƒ9m:@::9:9A33:@:A@:3AjAjA :9::j:@:@:A@rxrwqrwHwrxGxrwrxrwrxrxrwrxxrqrwrxqxrwrqrwrMrrGrGÙ”½Ž“Ž“ŽŽ“”ccŽ“”Ž2c]32cÅð3 : 3: :@ 9 3::ƒ:<@ 99@@:@:@@:@@94@A@2::@A@A@:rxqAxqHxrxqGrqxrxHwrxrNqxGxrxqƒx GrxGrxrNrMrrxqHqxqq™Ã””½”¾“””ƒc ””c]23cÅð 2 93:9: : 9: 9:@@„: 9;:@:@::@„:@:@k 9:ƒ@QAdqrwrGqrGrwrGxrxrGxqxrwHxqxrxrwxxrNrxqxqrMrwrrwHqrwrGrGÙ½Ž”“”””””d ”,c3c],Åð3 9 :9: 3@3:9::@9::@Aƒ:@::ƒ@3::@:A9…:rwHAxrqrwAqrxrxqxqxrxrxrƒx5rxqxHrxqxrxxrxGrxqrxqrxGrwrqr™™”¾¾Ž”””2Ž2cc]]2Æï 3 39::93 @49 :@:3A:::@Aƒ@bA@:A:A@::@@:9@@xrwrqqrMrHrxxGrwrxHxxrxwHxwrxrMrxwrxxrwrxNrxqrNqxHwrxqHqGqr™½”¾””“Ž”j”]“”c3cc3Åð!3 3 3@::9:33:@ :@3@A993@AjA@:ƒ@::@ƒ:RGrqxrNqHqxqwrwrxqNrxwrxqNrxrxrxxrxrxrMrxxHwrxrxqrqxqxrGxrqHqG™Ž“”½”“Ž“Ž“Ž“3“Žc]ƒcÄî9: 39:::@:: 94:@@949ƒ: @:A@AjA@kAƒ@Z:@GkrHwr rwGrrGrxrxrqxrxqxxrxxwrxqxxqxHwrxqxrxrwxrxxGrxGxqrxGxrx™™¾””Ž“Ž“ŽcŽc”3ccc32ŽcÃð 3 : 94@ @@3A9:: 93@@::ƒ@-k@A@k@@kA:qqGrqxrwrqrxxrqGxxqNrwrNrGxrwrxxrNrƒx3rxxrNrxwrxrwHxrqrrqNqxqrqqÃÃc¾“¾“¾¾c“cd“cŽ3ccŽ“Äð 9 3: 3@4:: ƒ@h: 3@;@@:@;@@Aj@@A@AjGrGqGrGrGxAGrwrGrqxxrwrxqxrqxrxrNwrxqxrxqxrwrxrxHxxrwxxGxrqrGxrNq™”¾”¾”c””d”cd]ƒc“ŽcÃï 3:9 q::q:9:9: @A: 3…:h@::@::@4::@AqqAqrqGqxrqGkxrxxqNrqxGrxrxxGrMrwrrwrxNxrxxrxqNrwxqxxrxrqHwHqrqxqrŸ¾”½””¾“Ž“”“Ž“]“c2]”3ccÃïy 9: @:GAq:A933:9::@:9:9:@@::@@A:@@kGqGqAqrGrwqqAwrGrqxrxrxGqNqxrxqAqxxrxrwrxrMxrxrwrrxrwHxxqxqrxGrGxq™¾”¾“Ž½””Ž“Ž“Ž3cŽ3“,c32Äï@A:3 9q@:@kG3@9:9@:@Š:@AqkGkGkGrGrqG:HqrƒxKqNrwHxqrGqrqGxrGAxrwNxrxwxrxxqxrNqxHqxrwHrxGrqxqrr™“”¾“¾Ž“””3“dc3c]3Äïƒ::99 :@A @:@::3„:i@:9::@:9:AqAGqAqGkGqqrr:qGxrGxrxqrwrxqrG:xrxxrqAxrxrqHrxxrxNrwrxqxrqHxrwrxxGrGrGÉÔ”¾”¾Ž“”¾i]]c”cc]2Åïy9:39:: :@4939A@A@93@:@::@:99::@:@@kGkGrqGqrGqNqGqrxrxqxGrrNqGxrxqxrwrwAGqrwxxqrwrxqxxrMrxGxqxqxrqxqrqGq™Ã”¾“”½”“Ž”3]“c3ccƒc3Åð : @:A::@:A@@A:@:3@:9ƒ:,99: AkGkGqGrqAqHqrrqGrwrxHxr@@9rxrwrxrNrxxrƒx5rxrNxrMrxxrxrxxrqrxHxrNrqNqrq™Ã”¾”·”Ž“Ž“3cŽc”cŽc]c]ÅïA:3:@@@:@ 3@3A:@:Aq :@:9::@:AqGjGAkGqAqHqqGqGqAqxHw:qqxrAxrxrNƒq=xrwrxqxHwrxqxrxrxxqxrwHxGrqxqxqxqHqHÔ½”¾”“Ž“c“Ž“Ž2,cc32cÄï@@ 3A:@A@:@:@ @k@kGq::@:@::@:GkGAkGjrGqAqGkGrqHqAxrx:xHxqG@rwrƒx0GrxrxxHxxrxrxxrGxqxHxxrwrwrwHxqHrGqqGÔ”½””“”””ƒc ””3c]3]cÄïy 3 @33@::A@A9:@:GA@::9 ::@:@@A@j@AjGqAqGrqHqqGrxqrwr@xrxrqxrwrHrxxqNqxxqxqxwrxxqxrxqxqNrxrGrqrGxqrqHq™¾“”·”¸”“Ž½ŽcŽc”¾„c2Æï :AGA:@:k@@k@ :@:@ƒ: A9 ::9AqkAA@qƒAY@qkGqqrGqqrqxHxxA@xGqrNrxqxwrxrxrxrxrxrNrwrxHxxrxrxqxrxqNqrqxGrqG™”¸“””“¾”””“Ž”c2c33,ÅïJ 93 33A:@@kAq:kA9::k@A9::9AqAGq@AAjGk@GrqGqGkGGrxqxqrwr@:GrwrxHqxxrwxrwrƒx3rxxrxrwrwHxqxrxGrqrqGxrqxqq™“”Ž½”¸“”“¾”cccŽ3]c32Åïy3kG j@:A@@qGAkA9@A@qA::@:GkAqk@k@Aq:kGqBqHqkqGrxHxGqGr@rwrxwrxrxxHxrNxqxHwrxwHxxrxqxrNrxqxGqHrwrHqHq™¸“¾”“”ŽŽ“ccc“cc]2]Åï39:9:A393AAk@qGA::@ƒ:2@@:@:qAqA@Aqk@@GqGqqrGGrGqrq9rrxrqqHqxrxGrwrxwrxqƒx3rxrxxqxrxrxqxqxGrxqqxrwrwGr™””]c”¸“”]9ŽcŽcŽ”cŽ2332Åð3:3G9„: F:@@AkF::9:@ƒ:Aƒ@aAq@AA@Ak@AkGkGr9kGrqxHr@xqxHqqxrNqxqNrqxxrxHrwxxqxrxrMxqNxrGrxqHqHwHrGrGq™·”“”“¾“Ž“cc”]c3322-Åðy9:: kG9A9@Ak 3@:@:9 G@qAkA@@kA@jAjGAqAqGqGkGqrGrwx@@rrwrHxrwrrxrxrHxwrxxrxrNxrwxqrxrxxqqrxqrwrqxqrq“”“Ž”½¾Žc”Žcc”\dcc]”“Åð 9G3 9 :@:„:!Gk:Gk:@:qG@kA@@k@:@AkGkGkGrqGkGrwƒrIqr@xHqxqxrMrxqxqxrxxqxrMrwrxHrxHwrwrHxGrMrrGxqHwH™Ž“”Ž“Ž””cŽc”]c]2ŽÆñ:3::949 2:9:Gq@AqA:q@@:Aj@Aƒ@]:A@qA@qGqArGqArqHwxGGr@rwrrMrrwrNrxqxGrxrxrxrxxwrwrxGrxqqrqrGxqrxrqq™”“”¾””“”cccŽ“”3cc2Åñ:AjAƒ v3::@AAqAqAqGj:Gr@::G@dA@A::qAjAAkGq:qAqGxxrrxrGqrGxrwrNrxwrNqrwHwxrwxqrxrxrqxrGrMrwrqrxGrGxGÃŽ½¾]c“Ž“Žcdc””c]c23ŽÅñ39AGj@::9::GApGq99„:ƒq@ƒ:a@A:jA@@AGj@qAqAAqGqqG9ArqxAxqrwrHwrwrrwrxrrxrxxrxHwHwrNrxqqxrGrNqGrqrqqr™””“”“”Ž“Ž“cc”¾c”cc]”“Åñ 9AqA@9@Aƒ@ kAkAA:::@Gƒ: @:@:@@AjAkq:ƒA8qAqAAqrGrqqAxqqGrMrxqrqrMrrxGxwrwHxqxrxrxqxqxHqGrxqrqqGqƒGq“Ž“¾cŽ“ŽcŽc””“c2cŽÅò @A@kAkA@kA9Aqƒ@kGqGƒ:S@::@q@:@kA@@A@@k@AqAqqGqqGrGr@AqGrqrxrMrxrwHxxrxHqrqxHxqxrxGxrwrqxrGxGrGrqrkGd”ŽƒcŽcc”c””Ž”,c2Åóy:3GA@qA@@kGAqA:AqGqA@3@:Gr:3@@:@kAqGkGkGqGqHqqGrqrG:rqrGxqxrGrwrwrqxrxxHqxrxxGrrGrxGrGqrqqGqrGqG™”“”“”cŽ“”cc””“cÆóq A3q@kGqAqA33::9A@k@@::@:qGA@4@::@@AjG@kGkGkGrGkqxqxq@xGrqxHwxrHqrGrGxqrxxqxGrwrwqGqrqrMqHqrrGrGq™¸“¸c””Ž“”Žc†c]d2cÆóy2@ @A@3@qAq :GA9:9AA:@G::G3:@@A@:9Ak@AqA@qqAkGqAGrHqrG@rqHqxrqqwHqxqrxxwrxGrqxrNqrxqHwrrqrGrGqqAk™””””c¾”¾ccŽ¾cŽŽ,3c3Æô:33AqA3@A9::A9qAA9:@k@rqƒ:^9A:@@A9@A:AkGkAGkGkGqqGrGqrq:wqGqGrNqrqHwrGxrGrqrGqrqxrHqqHqNqGqqGqGkihÔ”½”c¾”½cc””92ŽÇõ# 3G349 @3GA99:AA@3:GqH:@:Aj@kqA3:ƒ@RqGkG@kAqArqq:Gxrx@rrGrqrrMrxrGrqHwrMrxqNqHwrGrwrGqqHqGkGA““c”“¾cc”cd”c””,]cd2Çö33 9::@3:9::qA@ ƒ:a9@:@A@AqGq ::A@kGk@@AqqGrHwrqxGrGrqGrGqrqGqqGqqrGrqxGrqrqxqGrGqGkGqAqA™“ŽŽ“ŽŽ“dd½cŽ“”]323Çøƒ39 :GAq@Aj@@:9:@:qGƒ:Gq@9k@kA@AAqAqHƒq!rAxqArwrGrqqGrGqGqGrGqrGqrqrGqHqHƒqƒAqqG;@“””“””“”””cŽccc32Ž3Èøƒ :AkGkGqG33::9ƒ:Gqq9 ::@:G:9A@q@kGƒq&HqHqqAxGqHqrFArqGrAk::qrGqqAqNqrqxqrrHƒqrGrkqq™”“Ž¾½Ž¾””¾2c“¾”dc]223Èøt qAq@:AjGkG@49 @@ 9r 3A3A3:q:AqA@k@qArGrwrMrqrGrqxqrqGr@qrwrHqrqHqGAk@HqHqMqqGHqAqGGA™“cc”¾”cj½”]3””c,c33,Èø Ak@@A:qAqAƒ:AA@;@:3:9@qGqA@: ƒ@O::@@AqqxqHrrwrwrGqrGrqH@rqHqxqGqxGqrqHqxqrqrxGkqAqqAqq“cc¾cccŽ“ŽcŽcc23Éø9A@j:GA:@k9:9@ƒ3<:@:G:rGqqA :jA:qq::@AGqGqxqHrGrqGqAwrwrqGxqGrGAkqHqrwrGrGrGƒA@AGkGA@™Ž“Žc”Žcc”jƒcŽcc3,33,Éøq :jA:GjA9:@G9GrAF: @@:@qk 3:@@3@:@rGq::@kGkGqrwrwrqHrwrxGrqqGrGkqGrqrMrGqrqGAq@jAqqAq:@“™””“””“Ž”Ž“Ž“]3c2Ëøƒo@:@@kGk9AqA:qG3q3@:qH:9@9Aq: 3:qGqG:@AqAqArGrGxGqqHqrqHqHrqqGqAqGrqrqGGAq@AAqGkAkGqq™™½Ž”½Ž“”“Ž”3c]cc32Êø$ @A:@AAG:@AqGq4@:@A::Gqq:: qGq@ ƒ:>AAkG:AqGqGqrrqxqrGxrwGqGqGrqrHqGqGAqkA@kqqGkGqGqAG“™]”””3]”“Ž„c]cc]c32]Ëö` 993 :k@qk@@qqHqG:qHq: q: ::A3::939::@qAq:@AqqGqGxrxHqrGqHqqAqrGrwqGqAqAq@AqGGkGqqA@Ak“™c”“ƒ“ŽccŽc]9]cc3223Ëói 3 3 49:@A@3:@Hkq:9qq 33 :@:9: 9::@A 9A@qAqqrGrqrqrMrqGqGqqGrrGrqGAqAqAA@:qGqkqGrGAk@A@™c”cd””c]„c cc]323,Ëó 3 ƒ:9@ 3:A@q@ @3: A@:3:ƒ:93„: 9::@ 3 kAGqAGqrqHqHqrGqqGƒrqHqqGqGqGqAqrqGrqHqHjAk@A@ji“”„c”]cccƒc323]c3Ìò 3 ::: : 9:kGAkAA9Ak@A@@:@A@: ƒ:39:4@A9 qGqkAqGrwGqGqqrGrkGqHqqGqGkAkrqrGrqrGqr@Aƒ@:qAAh””¸””“ŽŽcŽc]c]3c32Ìò 9:9@:9: 2ƒ:iGkG@jA@Ak@:A::@A@q:@@ 9:Gk:GkqGkGqqrGqHrrqGAqrGxqqGqHq:rrxqNqHqwHqrA@AjAqqAqA““””“Ž”“cc3c32,3“3\3Ìòv 3::@@A@:: ::Gqk:GkG::@:k@::@qkGA9 @rAGkGqqGqArqxHqqGqGqrGqGqrGrGrAkqHwrGrqGrqrqGAqA@AqGAq@@™c””Ži]2Ž”cc]cc33\3“3cÌñV: @::@::9::@k@G :@@j:9@A9Aq@GqAkAqqAqAqHqArxqHqxqHr:kGAjrrGqGkqq@xrwHqqHqqGqAGkFkwrƒq GkG:™””””ƒd“c]3c]cc]2c]dÍò[ jA@@:A3@@:AGqq:q@kA@A9A:@@AkGkqAqGqr@rqqGrqrwrxqHjrqxqrG@@r@kHqHqHqrqrGqHrqGkGkAxrwGrGrrƒ“Ž“Ž“Žc”cc]c3c]c]2 2cÍòe9A93:@@A@;2qGqGq@@k@ ::@qAkGqAqHqA@rGrwrMrxGqrxGAqNrqrq@GrwrxqrwHwrxrwrGrqqNqGqGkHqG“c”c„c cc32c32Ž2]dÍôe :@: :@k@A@ AkqHq@:3 :@kGjGAAqAq:@AqxqGrrqGrqHqrqr@rwHqHrqrGrqNrqrHqGqGrxqNkA943GkGqA™“””c””cdc]„cƒc2]”“Íõq@@3 :3@@A3:qGq@;A ::A@AAjAq:@G:@kGqHqAqNrqGrxGxqxqrqxqxrGrwrwrGqxqrxrwrrGq:qGrGqGqAq™™Ž“Ž]9”c]cc¾33c3]cŽ2Îõ:A9::9@:3:@Ak„q ::@@jAj@Gkƒ@.kA@@kGkwrqrGrGqrqNrGxGrxGrwrGrAA@rqNqrNqGqGAqrƒqAqk::™““Ž““”ccŽ“cŽcc]3cc]c3Îöo@49@ @@:99 :@9GrGGA:@:A@qGkAG:kAqA@A@kAGGrwqrqAGqrwrqrqrwrr@GqwrqGxrxqAqA@:kGrGrHqrGqG™™””¸”3c]cŽ3“c]cc2Ï÷ @Gk@A: : @„:^qAq9:@kGkAGjq@:GkGk@k@GqqAGAqxq@:xHqNrMrGG@AqGrqHqrwAAqA@:@rqxqGrqGqGk™Ž“Ž“”c”c“”33”cŽ“ccŽ3Ðø:9A:99ƒ:c3@:9:GqA:@:Gk@kAA@A@3:9:99:A@A:qHqAA:wrqqGqrqrqqrrwr@::AFA:qrxGqHqrGAcc@™™¾”“¾”]cccŽ]cccc-2]2Ðöa:9 :9A:: @3::9:qrG9:@:GAGjAkA@A@ @A@@49:93:qr9@@:9 qHkGAxrHwr:@::@@rqqrGqqrqA@jqqA:™Ã”·””\Ž“c¾ƒcccŽ2332Ò÷ :@kGA@q@ :9GkGrGq3:@:ƒqP@@ApqAqqAj3@A:c32]32]]d3c 3 q@A@:::A@qqrGrGqrG@A@A:GqA9“i½”Ž“Žc“Ž”2Žc¾c32Ô÷ 3@:Aqk@Akƒ:[GqA9::G @AkAA:9@AA@A@qA:q93,3c23323cc:@k@bi239@3GkGkGrGrwrq@@:@@3GqGki““c”“ccŽŽcc”cŽ“Ö÷C:9 qGAjGG9:qG@k@:qq:A@qAq::kGkqAqGqA:323]2AAk2]@:@Ai“i“™23::@AqAƒq H@::A@3GqAqAqi’c”Ž“cŽc“]32]3c23×÷. ::3:GkGkAG9Hqr@ 9GA:qqGkGGqGqGkGAqHk:@223@@:9ƒ:5“A::@chc8“i™:@3@A@:9:9 @AkGqAqA“™””¾“]c33\cc,2]2×÷3:@ƒ:P@@kA:@@A::qq:rGqAqqGrkG@@4AqG@@-]@j A@:@@:qq3h“2:@ 9@3@ 3qA @k@A@:A:@ih¾”„c -3\323ŽcØ÷ :9A@:99:93ƒ:*k9:AGG9A@qGrqGA9::9@k:AG2:@;@@qA@dc:Gq]iƒ2:G9:: ƒ:@ 24kAk@@:“b33c]c]32233c“3Øø: :@„A9:@:@A:GrkA@:@r:GƒqrG:9A @3@::q:2:9G:@3rq3i“iƒ“ @k:@39::@A@@:@A@:hŽƒ”3]23323232ccÙø @3@kFkGkGƒ:D@:qGqGk@:qq:rAGqq ::2A:9@AqG3 ::kA23qG]i’i˜i3@:AA@;@ 9:A@@:39ciƒc33\332]323,3]ccÙ÷@A A@qAqAqA@::3:qr@:G3:HqHƒqBHq9:9 q: kqGq:]:9A@Ac3”“c“i™“bc:AqqAq@@:A33949:i“ccc2322323]c]„cÙøV3A,A@qAqAqA@:9GAqAj::GqrGqA@Aq:A @AqGkG:@@A9 jcA,3cc“bi™b @qGq:qAq@@:Gq82cc]c-2ƒ32cc]cc]Ûø8@A::@AqApA9::qqGqH:@qGqrGqrqGqq kqk9AqGkA@k@:@Aj:@33]ƒc&2™2 @rq:@AqGkGqAA2ccc”322c]]cc]ÛøV,@qG:qAqAqA :GrqG:9qHkGAqrGkGrGqr A9Aq AjA@:@kG@A@,223cbi“ibkGAqGqqAkGr@ji“d”3]2ƒ3233c3,Üøƒ7: 9A9:GkGqq:qG3qA:qqHqqHqrGkGqrGqAqG@@:@A@@AkAA3cAkA„@"A9AqrqHkGqAqAA“c“Ž“cc]cc]2-2cc]Üøƒ[ 4GkG:9GkGAA9:@:qA 9@AqqGqGkrGrqr:: :@49:@kA@q @@kGqqArqq:qGqGrqGkG:ApicŽŽ2cŽ“c323cccÞøƒ\3 9AkGk::Gqk@A@A:GqA@:@rqrGkGqrqHqG:@@-Gqrq:@AjAjAkAqGrqGkG:HqAqGrAqA9Abcc“Ž2”Ž23]c]]33c]3Ýøƒ 3Ap:AFƒ:Q@Aqq:qqH3@::GrG@kGqGqqGqAqG:qGqH:@@:@rqGqGrGqAqi@,AqGki“Gqq™“]”Ž“c”2]c]cc292-c2Ýøƒ*33: 99A@@A@k@:@ 9::q:9 k@A@qGAGkA@q:9AqAƒq-Gk@qGrqrqqGkGr“i ql@i’qG“™”“”2]3232c3]]2cßøƒ5 9AkG3::@AjA@A::@A3::Gq3 9:qHkqqA@k@A:GkGqHkGkA::GqGƒAƒq chc-qq™c2G™Ž“Ž¾¾],323]3]29]c]3Þøƒ. :@AA@@kGA:@9:@:AGA9 93 9:Aq:AGqA@@:@q :AAqAqƒ@AqG„q#HqHqrhi:Gq23Aqk”“”]]3]9\3c3]c32Þø„P39:@qkGqqqA::Aq@:@@4 3 A9 2AkGq4:: :9Aj 9 9:@AqrGrGq:AqqHqi’q3GqrAG”Ž“329\ƒc]b]c2àø„Q::9 AqAqAAjA@q@A:@@qGq:qA@kAqA9AA9@:@::9 A9:Gq:@rqrGq:GqAq2ici @rqrG:““””3]cc]ƒc]9,áø…, 3::3GqAqGAjAAqkAkGkAGkGqG:GkG::G@A@::@:qA@„:GqG: @qGkGi“hbc:qGq™™“””c3ƒc,c]323áø† 99„:'GkG@@qAq@AqAj@Gkq:@:q9Aqk@39:G@:@@A:G9ƒ:"3]@kGqA“hc8cb™™“™“i”3c\]c]3]223âø†S33G:@:9AkA@qAqGqA k@@:qqGAkGA:@:Gq3A@::@kA9: @crAq“™cb“b3Ù™bcŽ”]23c23232 ,ãø‡P9 kGA9 A9@kA:qA3:GjA99:GqGkGqqGkG:q:@A:@k:9:99:,Ž2qqA“™i“ii2b™™Ã™™“i2-32-,åø‡O qAkGkGkG@ApA@@A@kG9: :qAqHkGk:@kGqGq:qq AA@A@3 2 A@Ac’i™“h2ci2™“jŽ“Ž32,23æø‡*3 39AqAk::@A@@qqA3k@:GkAAqAGA@:qAq:@:Gr:ƒ@jA:942@A2c“™’™c“iib™”c32,éøˆH3@:k@q:?AkAkqAGqGkG::Gq:@:qqAq:GqAqAq4G9:A94G:A9 c223c“™2“’ci™2Ži¾Ž23ìøˆG A9AGA@Aq@G@AkGkGq:@::Aq@@:@kG9qAqGqA@A3 q:A@@qq323ci“iiih“i™Ž“ccíø‰ 3@A33@A@ƒ:9@A@kA@AAkG9:A@AqGA:GqHqAqqA@qq 9A@3Aq9b2dc“™“bi,2“hc2cŽcîøŠ39 @9@:qAj:@:Gk@kGqAqGk@:ƒqAqA@kGqGqAqH::3 @kG:c2ƒc™“i’ciic”c3íø‹C 9A:@;qA@A@:q@AA@:qqAkA:@GkGAkGkGqBqqA@k: FkGkG998]3,c™™bc™bb28c”cîøŒ3A@k@3@ƒ:8GkGk@AAqGApA:qHq@qAqqGqAA@AGq9AqAqG;bc832™™“™™ic8Žc¾3îø@A@3Aq99@AqGkƒ@/qAq@GqqAkGqAqAq@qAjAqA@qGkq@929,c“™“™“™h“cccîøŽ@@AA39@AA9A3 jAk@:@AAkGqHqAqGkGAkGkGk@A@kGqAk A2i]™““i“iiŽcŽcîøŽ43@A33@A9:kGq :@@::@jG;@:AqGqAqGkGkGq:@AqGkGA:@3b3c„™’“hcc“ïø:9A„:69:A3Gq@A3::q:@@k@AkGqqA@AqGkGk@kHqqA:@@cc\c“™Ã™™cbc¾”cïø 3:9@:9 @ 99AkGƒ:!@GqA:@@k@A@;@qqA@qAA@qqAA@3@c22iƒ™Ùic]cŽïø= A:@AA3@: :Gk9:@94@Ak@k3qGqqHkGqAkGk@@Ak@:::232c“™™Ã“cŽcïø‘3:ƒ@739::9:9 :AG@AjGAqGkAqAqG3:9Aq@GkA@9@ c2c™“Ù™bcc“Žcïø’* kA@:A::3:@39 ,AjGqqGkGkGkG::@A:G@AkG9: 3ƒc-28…™cd”“3ïø“:@39AAFA:A9AA 9 qAkAqHqG:@@:3Gk:9: 9q A3 c3ci2ÙÙb“cc3ïø”.:9kAjAq @A@:GkGAqqAqAqqGAk@GA9: 3: 3]]ci22ƒ™““c”ccïø•': A2 9 9k@k@Aq@:q@GqqAGkAqGqAk9::Gq]c3ƒc“i“2“ÙhŽiŽ]ïø– 9::@:@:Gk 3 3ƒ@';@;3 q:@qAqGqA@A323]cc]h““™i“ii”“3ïø˜@A@A9A@9 39AAA33cƒAqAqAk9ƒ3]„c3“8“’“h“ccŽc3ðø™ @AjA3 3@@:3ƒc]322@@ƒ:G:]c9„c,3cŽo“™“o“™cc”“3ðøœ c]cccc]2]3b]3]3],2cc3,2c,3c„ ““h“™““Ž“Ž3ðøŸ2]3]\cc]2c]3c]c,33232„”Ž“dc“bc™™Ž¾“ñøŸ]9]8]33]c3223‡Ž…“Žcci™“’c“”23ñø  ]2cc3c]c23“ ”™82c”3cóø¡32,2,–c]cŽ22õø£c-2˜2d9øø¿”øƒøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøæ3]cÓøæc232ÒøÆ“Žcc›2c]]3ÑøÆ ””ccc]cˆ]Žc,9\3cƒ232ÊøÄbbƒ c]cc3“ŽƒccŽcc]3c]ƒ]c]3ÉøÇc’iŽcc”“”“3„cŽ c]2]2323\c2ÈøÄ @ich32cŽ”·””2],3]2cŠcc]9c32]c3c]c3ÆøÁ9 @:@:@,ic]”cŽ2Ž“Ž23“2cc]]ˆ,cƒ] c]2232]cc,ÆøÅ:ƒ@“-cŽcc”,]]3Ž2,c‡ 329\3c]c]c3ƒc ”222,23¾øÆ@94@,“”cd“”c]c”ccŽc]3†2,32,3c32c]c3c3]c33c3½øÉAq3@“„ccŽc3“Ž2c”2cc]†33]ƒc23cc]c2c,323”c¼øËicc]cc3“32Ž2ŽŽc2‡c3c3]c3]3\3]c2]33½øÌ@ii2dd“ŽccŽ“Ž“c3,‡2]\c2,222323ƒ2c¿øÌ@j222cŽ“ccŽc,c‰ccƒ3ƒ-3]3\Åø¼ 4b92Ž“cŽ]cc”cc””]cˆ 3c]]22-,Çøº 99 ::Ž9 ƒcŽ“Ž3c”Ž“”]†]\]2ƒ3cƒ]Èø¸ :9:3 9 @:@‹!::™cŽ9iŽ3“c¾””9]2]23c32c]bÌø¸: :949: :9 @:@‰::™cc]c]c”Žcc””c3“„c]Ðø»0 :94: : :@:@ G@“bcc]c]“Ž“ŽŽ”cc”]c2Ñø½.93 :93:9 3 :@@3 kG2A@“i]cc””“Žc]“Ž“Žc]32]3Ñø½+ 39: 9:9:9@9:AA@: 9Ak@ch]iŽc”””]ccd“ccÔøÆ"3AA9:@:9@A:9:hcicc”i]c””]ÔøÆ" 3@A3A9::@:3::i’ddccdc3d“ŽcÔøÆ :9@A:9@@:@ƒ:@@ic”d“Ž“Žc”“ccÓøÇ! 499::@49A@::@A“cŽccdcd“ŽcŽƒcÑøÆ%:@@:@::@:@@A:@3:““iŽc“cc”cc3“Ž”¾]ÑøÆ%34: @A::qq@G@@“ciŽcŽcŽ9cŽ“3”“Ž“ÑøÅ : 9ƒ: 9A@A@3HqqrA“idicccd“3”“ŽÐøÅ'99 3 9: @k@A@k@Aq@A““cŽcŽcŽccc3cŽ“”ÐøÃ*:A39: 9:@393 @AAqA@“c”ccccŽ3dc,””cÏøÃ+@A33:@:@:@A@:q::@qA™cŽ“ddcc9c3cc”ccÎøÂ- 9393::9 3:9AA@A@A@A@@“jc“dcc3c]]c]cÍøÁ" ::9:@ :9 9:3 jAjAjAjAkoŽiŽccdƒc3ƒcccÎøÀ/ 9@:: 9:A:9 3::3A@A@qA@“”c“ŽcŽcccc3cc3]c]Íø¿::@Aƒ:*@@A: :9:@:@-@kA9AqA““Žc”cd3]c3]2c3cccËø¾(::99 39:33 93@ :@@ @A@AjG““ŽcŽccc„cccŽ”Ìø½4@A9 3:@: 9::A933:9:Aj3AjGkA™cŽ“Žcc”iicc]c3,ŽŽ2]cËø»,::@A@::9:A3: A@33:@:3A@A@kG@k“ic“i’ib“c]ƒc2c3c,3Ëøº9ƒ:333:9: 39:93 3:A9 3 :@k@AkGG™Ž™i“i’cbc9]2cŽ3c]2]cËø¸@@::@:::3A9::…:?A@: 33 @A@@kA™“o’“h“iichb]]c…c]cÊø… 9¯<: 9:@ 3@:: 3:9@:::93 :9:9@3 kA@:qA™““™i“h“hc9]9]c3cŽccÊø„ 3 Œ ‡::@@::‘::@:@:93 9::@ 9:::@@ƒ:9:@:9: A3@kG:q’™™“’i“c“ihb]ƒcƒŽcËø„  ‰ 93 ::@:„@:A::Œ:@@:ƒ@:@ƒ:9„@:9A@…:9„:@:99@3ƒ@ kG““™A’ihi’cc8]c,d”c9]Êøƒ 93 2 … ::9 @9:@@„A@::939Š:ƒ@:A@A@Aƒ:@:3 3ƒ: 3:„@:@:9:@3::A@ ƒ:Aq“˜i™“™“ibiib3c3“cŽÌø  333: 3„ :9: ::@Aj@ƒ:%@9:: :::9:@:@@:AA@@A::9@A@:@: 39@@ƒ:,@A:@::9A: 3@::AkAjAj@G“™““h“h“i“hic]c3cc]Êø'  9 : 9 :@9:3@:9@A@@:@:@@::9:::@ƒ:@A@:A@ƒ:59::@A:@A@9::94@3:@9A@3::9@39::@::9@:@AGkGk™h™“™“i’i“„cc]]9ccÉø"3 3 :3:9::3@ 3@::9:@kA::@:A@: ƒ:@: :@@ƒ:$9:@::@:@@33@e@:9: 3:@:: 3:9@: ::@: 9ƒ:A@:qAk@G“™“i“hi“ibicc]cc3]cÉø :3:3: :@:3::@@::@::ƒ@3:9:@3 9@::99@ƒ: @:@@:@@3 3:9ƒ@ :A::A@::9:ƒ@'::@A:9 3@kAqGGkG““™’™“i’i“bcc3ccc2cÈø23 :3: :3 @3 ::9::@:A:@Aj:@AA:: 3::@:9 @@:@::@A3„:>@::9;@A33::@@3:@:9A ::9A@@::3:9GA@:k@AkF“™“A’“ihiicc3cŽcc32Èø  39: :9 @3ƒ: :AA:@:@@:@AA:@jA9 3:: 9A:@A3 ƒ:$@@:@@ :9 39A@:@::3:@@: 39:@:9:: :::ƒqAGkFAkG“˜i™“ic’ccdcccc]]2È÷ 9: :3:9@:9@::@3@Ak 3A@jAƒ@:9:9„:@@ƒ:@@9:9A@@49:9 :9::@A@@:9@A@ƒ:):9A::9:9::rGqAjA@q“i™““o’“iicc]c]Ž9c,c]Èø.3 :3:: :@:3@@A3:@::@@:@A@kA@:: :@ 9@A::@@:ƒ@Aƒ:3:@:9@3@:@:9ƒ:@@:9@:ƒ@ƒ:!::qGqqGkAGk˜“™h“i“h“hccc32Žc”cÇ÷  : 9: ::3:@ƒ:@ƒ:@@ƒ:"@kA@k@:@3 :::@j@:@@;::9:9@:A:93 ƒ:9:@::@@A@::@:@ 3ƒ:::9:GrqHkG@jG“™ƒ“h“ihcc]cc]3cÇö 39 3:9: :3@ 3::@@::@::@@:ƒ@ :@AA::9 „: @:A::@::@@„:9:@@ƒ:@;@:9;j@k9:@A:@:9@:9ƒ:9AqGqrAqAA™“™i™“i“ibcc3c“”ccÇö :: 9: 3: : 9:@A:@ƒ: @:@::@A::j@9ƒ:9:9::ƒ@J:@j@:@::9:@@:9:A@:@A@@:9@3 ::A@j:::::99AqrGqqGkG“˜“™’i’“hcccdccc2-ccÆõ"9::9: :@ 3 93::@@::@9:@:A@:@9:@ƒ:„: 9:@:AjA:3ƒ:"@9:@:A@33:@@k@:3:@A9::33:99:@:9Aƒ: qrHqqAqA™™““™i““icccccŽ32c]Æõ : 9 3:3 3: 9ƒ:99:AA9:@Aj:@:A:@::@99: „: @::@@:@3A@;ƒ@;A9:@A@::@:@:@9@:9:A:: 9:9:9 A@xrGqAq“™™h““nibc]d]cŽ32-2cÆô9 9: 94@:: 2 9ƒ@: ::ƒ@::@A@:@@A::@: 9A@ :„@::@A@Aƒ:9::@:A9:@:@:9A@A:@ 3:::ƒ@3:„:9AjGqGkG™’™“™““i“ccƒc332dcÅô( 39 3:@:: 9::@::@@::@@3@AjA:@:@::9 „: 9:@:A@A@A:@9:ƒ@ ::@A@A@A:A9ƒ:@@:@:9ƒ:@„:9::9:GAqrGqG“™k™“h“h“hƒc c3\32cÅô3 ƒ: @:393A: @ƒ:@A@;:@:A@Aj:@:@9: 99::@::@:jA@ƒ:9@:A@A@Aj@:A::jƒ:@@;@::@:9:@@:9ƒ: 9GA:@Akq:q“ƒ™“™i“i]ccŽc]cc3Ž3Åò0  :3:@9: A9 ::@3 :@:@:@39:@Ak@A@::@:9 :@:9::@ƒ:@A@@::@;@:@@e9 ::99:ƒ@ :@A9::9:@:9Aƒ:$9:::k@:qAG:Gq“™“™h“h“ccŽ]ccc33Åò3: 99::9@:@3 39::9:9:@„:@Aƒ@ jA:A: :9:@„:9@::@ƒ:@@:@:@:A9:@@:9:@:@::@jA@:9ƒ:)A::9::9::9G:@qAq9:G“™™“™““icccŽ3dc232Åò  @ 3@A j 3 ::@ 39ƒ:ƒ@AjAAƒ@:@2::ƒ@ :@:@:@:9ƒ: @::@k9::@:@…:53:@;:9:@:@::9::9:9:GkGqAA@k™“˜™“o’cdcŽ3“c2c32cÄñ 33::9 :@@: 93A@3::9ƒ:@ @Aj:@AjAk@3 :@;@A@::ƒ@L::@:9:@9::@@:@@::@::@::9 @@:9 @@::9:::@9::9kGAkGjAG“™““™“ijcc]cŽ3c]33cÃñ 33:3ƒ:A39 9 ::@9:3@ 39:ƒA3@A3A@9: 3@@:@:: ::@ƒ: @::@;@@::Aƒ:@@::@::@3:99::3::9ˆ:ApA@AkGj™™“h™“c”ƒc “]cc]cÃñ  39::@:9 33:9::A„:@ :@@ j@:A9A@Ak :9::A::9…@::@@::@„:7@9@:A@ @A:@@:@::3A@::::9:99:99A@k@AqA™“™“icŽcdƒc2c3cÃð/ , 2 :9:@9 ::A:9@::@::@::A@:@k3Aj@::@@:@ƒ: @;jA@:@:@ƒ:@@::@A3@::@9:@A@;99@A@::9::9ƒ: 99kA9AGk@Aqƒ“™cŽiŽcŽcc]…cÃð13 3 3:9 3: 93:@@A3::A:@@:@:@3::@:AA3 @:A@:@3 ƒ@A:39ƒ:9@:@@ @ƒ:@@::@„:3@:9A:k@:9:9::9:9:9::A3@kGk@G““”“Žcccdc3Ž,c3,Ãð':3::39: 9 4:@A3 9:Ap::A:@:Ak:@@:@†:k:@:9::ƒ@ :@@:G: @::9::@@;@A::@Aj@:3:@9:9„:&9::::A@A@G:qA™Ž“Žc”c”dccc32j23Ãð ƒ )3@: 3 :9A@:9:@9:AA9:Aj:@:@A@:@:@9:@::@@ƒ: @A@e@:A@ ƒ:@A@3:@:@:@@:@@j@A::@AA::99ƒ:%99:9::qk@k@kGq““Ž“Žcc”332332Ãò$393@ 39 @49:3:: :@ 39@@A@:@k@A:@„:9ƒ:@@::ƒ@!::9::@:@@:@A9::@AjAj:A@A@9:@;@j:ƒ:'9:::94:9:AAq:GAkG™”“Ž“”ŽicccŽi3]2,Äñ 3:3: :3@3@:@:9 ƒ:@::@Aj:A@k@@:@@::@:9†:@…:@@:@:3:ƒ@=:A@:A@:@4::9A@@:@::9 9::9:::k@G:kFkG““Ž”“ŽjŽcŽ3c,c33cÃï' 3 3@: 9:@3 3@ d::3::@::@:A9A@AjA@kAkƒ: 9:@::@@9@:A…@A…:@A:Aƒ@ :9::9:9: :@…:+9:9::939:3:AGkAFAkGk™”“Ž“Žcc“c“33223c]Âï:3 ::@ @:@@3ƒ@: ::@:ƒ@ :@:@kA:@Aƒ@A:9„:: ƒ@…:9:@@:@„:@kƒ:9:@@:@ƒ:/@@:9:9::: ::9:@q9Ak@Aq™””“ŽdccŽc3c32ŽcÂï 9: @:@3:@A:: 3@:3…:9:A:@:@9:@@k::Aj ::@:@@…: @A@:: @::@3:„@ :9::A::A„:9@„:+9:::9::99::GA9A@q@G“™Ž½”Ž“ccc”3]cc]“cŽÂï  ::9@;:@@ƒ: @: ƒ@„:@@:@::@:@@A:@A::@„: 9@:@:j:@:@3 ƒ: @A@::9::…@ :9::@A@99:9ƒ:% 9::9:@:kA@A9q“™“Ž“Ž“Ž”Ždc\3]c3cÂï 3 9:@39 3:k9ƒ: 9ƒ:@::@ƒ:A::@AA@A@:@@93::9:9::@ƒ:@;@„:%@@::9;@k::::AjA:A::@::@@A:94:99::9ƒ:9AqApAq4Gq““Ž“Ž“”cc”“32“cc,Ãï69: :@A @GA@:2 ::@:@:@:9@:@::Aj@::j@:@4:::::9:@:9:…@:@:@@:@::9::@:@A@::9„:.@Aj39499:::rwHrwrqHqGqAq™””Ž“Žc“Žc33]33Äð9:@k@@kqA@kG::@:@:@:@ƒ:@:@99AA:@@:@:9„:9„:ƒ:@;@:A@A@A:9::@ƒ: 9:3::9A@:@:9„:*9xrxrqxqrwrwrGxrqGqAqG“””“Ž“Ž“Žcc]9323Ãð @@A:-ƒAk@@ƒ:!@:@::@::@:@::9:3@::@A:@::9:9::@@†:I@Aj@Aj3::@::@@::@:9:@:@@:AxrxrMrrNrwxHrxGrxHxrqMrqrGkG™“Ž“Žc”cŽc3c3]c32Äï ::3@:ƒ9'A@@3 :9:3:@@:@:@::@::A@@:@:3A:@9 :::9ƒ:ƒ@9::@49:@:9:@@:ƒ@3,3]@39@: : 3AqAA:@@AqAwrxGqGqAqHGqqGq:qxqxGqqGGAqqGkGkGqBqAƒqAjAG““c””ccŽc]cc]2Ìó::A3:@j::AqAq :k„]32-23„@Q :A:9 @:@@::qGk :jAqGqqrGrqqAqAqHqrGqGrAjGqq@k@@qGqGqAqAqGAAqA@@chŽcc”“Žc]”dccÎò@ƒ:g@@A@3 @ qqH3G:,c]c,3232,32-::@@A j@3A@::qAGkG:AqArGqqGAqAqrqqGqArqGkGAqHAqGkGkGkqGqA@k@k@@A“h]3“”·]2„cccd32ÍòX:9AkAq:: @3:qGqrq:c3c]c]232ccqG:94q::@ @3@@:GkGqA9A@q@AArqrGqGqHqGrGkG@k@AkqGkGqGqqAG…:@@A:hƒcƒc 3]cc]3c23Îò#4@9k@::@@: :AqGrqG@:c]33,A3qArqAƒ: @@ :A@;@rqAkGƒq7AAqkGAqrqrqHqrqG@AjAqGqAAqGqkH:@;@::9@@::@@“””ccŽccŽƒc¾33ÏòT39::3A@A9A@::@@qrGAk:@A2GkGkAqGqAF9:Gqkq@:qqGrGqAqGqqGqHqqGxHwrAGAAkkGAAqGqqAq:A@@ƒ:9A@A@::@A“b“”cŽ“Žc”“]]2322Ïò :@:@GqA@:k:@ƒ:5q@A@q:A@@k qGAqqA3GrqGqrqHqrqGq 3GqHqrqGqGqAAFk@q@G„qƒA@A:@@A::@Ak@k@k„:h“2cƒc Ž3]3c3],Ðò 9„:qAkG@ ƒ:6@:@qqrqG@@:k@:AqAAqqAqGr: qGrqGqGqrqGqBkGqGkAkAqqAkqGr…A(j@k@:@kqkAq@qAG@@::9:hi]cŽc]cŽ232]c,c2Ðòq 9 :9@A@Aqkq9:A@::rGqG::@A@@AjGkGqGqqHkAqxqGrqrrGrrqGqAAqGk@AGkGGkAjqApA@:xqGqAqGGkGkG:9:: @:8c]c323c3]2]9\32ccÑó 3:@::qGkGA 9::@::@Aqk@@kAk@A@kƒAqA@ApHqrqGrwrwrGrqGƒq-rxGkGqAqAqA@:rqqrGqAqqGkGk::9:9A@::8cc”cŽ“…c]332]Ñôƒ:T@::A@@kGA::@:@:Gq:A@@kGqAjGkFA@@:qAqrMrqHrGrqqHqqHqHqG:qqGj@qGrwrwGGqGkGkGk@:@:9AAƒ@“i]ccŽ“ccŽc]c323223cÑôJ@@:@:9Gk@@93:@:@A:qAq::@kA@AqA@Gk@kAk@AqGrGrqwrGrMrqrqGqqAq:GrrqHqqHqHqkGkƒA@A@:rGqAq@k3i“c]ccc]ƒc3]23,Òô A@:AAk9ƒ:?@::G:j@@G::A@Aq@@Aj@@;@@Ak@@AjAqHqGqAqrGqH@r@rqHrqGrqHqqGqGqrGƒq!G:@rGqAqAk@Abcc”cc, ,c]c]c3cÒô[A3pAGAA9:@::qG::A::@:@@qAk@AAk:@AqA@A@kAGjrqrGrAFkxqrqrGxqqGqrGqrGqrAAqqHqHq@3 kG@A@qAih„c]3323]32c3b32cÓõk::AjGkGqAA::G::G3@qG:kq@:A9@k@G:@k3 @k@GAqGqrwrrGrGqGrqHqrGqqH@:qGrqrGrqq@;qGqAk@k:GcŒŽcŽcc]cc]9]c]3]ÔõS@9A:@kGjGqA@@99Aj:@Aq:@:@AqG::@:@:qA@:9@::@3rxGkG9rqrGrGqqHq:AGjrGrqrwrxGqA:qrqGqAƒ@ :™ic¾”dƒc]c2322Ôö_ 3 :9AkGqk@:@:G::Gk@:GqAqkGq@@;@A@3G::@:c :@ qG::qGrqGAA@@qqrGqrqHqH@:@3AGqHqrGqAkAkhc“cŽcc„c]c]c]Öö3:93A 9AA@A@:@Aƒ:E@AA@3AqAqGkrGq:@k@k 9::c@@ :c:9AAjAjrrHqqrGrw:@::@AqGkGqGkG:9::i“„c “33cc-]3cØö 9AjA3GkqAqA:@:@:qAjA@@kGqGAA3ƒ:CGA@::A@qAj:A3c:9Gc“A@@qxGr33A@qGkqGqAqAq::q:9“™cŽ”3c”]c9“Ùõ8 949A@AA9:GAjG::9::qGq9:@:r9kq:qG:q@@:@@k9A:@::@A@:33Giƒ“@ 3@@AkGqGrqGAqGkGƒ:GAA:™“Ž23]c]“3cc]“-Ùõ 9 9Aq@@A:9qAqƒ:ƒ@HA:A3@@GrGAqr3Ak@:A@Aq:A@qG@:@]33,cih““@@9:3:@@kGqGqqA:3:99Gqq@bih”“cc]…c]cÚöL 3:9A@:@@:9: @ ::qGqqA@::rGrqqGqkG:93qGq:3 kAk”@]322cbibc“ A@:@AkGk 3 @ƒA:@@:cbc]cc3c,33\ÝöI 9A 94:@:A@A@kG:@GkGr:@:GkqGA::Gk:Gk@:kGkGcGkFkA2cŽ9b2™22 ::@:34Gƒ:9:9@:4h„c]”3c]â÷ :9AqA@@k@Aj„@ kq:r@:@:AGAkAƒq,GqGk@:3G:ccAqAA@]cc”ccci“83@@:@A@:3@:9@@ƒ: 38cb””]22â÷Y :@Ak:Ak@A:A3:@:@:G::@qqAqqrGGrqAq AGk::3cc@kG2::]“Ž““h2™c @kG@kA@:9 @;::9:39b9,]232,äø 39@:@q@G3A@39…:>Gq@@:qGqr@AkGqq:9@A:AA@@@]“ŽGGhc“AqkG@kAA::3@GA2b9]„c,3åø1 :9: @kG9k@A:@A:@GkG9::@qGGk@qGrGq::A-:@@j:kAq:„A"qkG@k@AAqAA@qFqGqG4jAjc9\3\33, ]2åø?: A: 3 GkA@Aq@A@@:9:99GqkGAqAqqGqH:@GqGqH:@@A@ j@qAqAqqGqq:@AƒqAkAqA:@2ch33c]23232åø3AjA2:9:AqGjA@k@kAj:Gr q ƒ:Gk„Aj@A3Aƒq+G:@:3@qAqGqqGrAqGq@qAqGk@Aq @ci]c]cc323,2æø: A A@A@A@AAqAGk  qA@kGƒ@*j:@:: qAGkrqA@:GkGqAqHqGqqiqAA@rGqGq 3@Ab]„c,,32èø 33:@qk@k@k@kGjAqAq@@:qAƒ@.-GkA:@::99 k@A@A@:Ak qGr@:qArG“c:qGc“GkG3A223ƒc2,332éø(3@ @A@G:@@AA@j@A@qA:9::@:A@qA:G@::@ ::ƒ@ A2 q:@AkAkGkGƒqc“:qk™“GqqG“i]8c]3c]23éøƒ@@339::@:jAAkGkGj„:8GkqAq jAkG@3::G::A::qG:@AqqGqA@rGqGi’:GG2c2qA:hcŽc3\c32ëø„6 9:@AkGkAk@GkGk9G::GkGqAq:@@k:G:@qGq:k@:A9:qGqrA@:qAƒqi8:q 83qAA“cc”¾232íø…39:A@k„@=AkFkGqAq@:Gk@A@qA:AF:qA:@@@ @kA9GrG@kGkG“cbc qkqqHj@“c”ðø…3Aƒ@0A@A9@A@ 3@A@A9AGjA9Gq@::AA9::qqA@j @k3 ,“@AqAqƒi h3@GrGq“dƒðø†F @:3@kA:@:@kA3@@::9:A@::AAq:pGkGA3Gq:A@9A::9 c3qAG““’“cb:qA“™ci“Žccðøˆ@:@A2ƒ:1Ak:9::q:@A99A@@:jA::GkqGk@: 33 qAFAkc29rqA“i™™b38ƒ™““hccŽccðø‡D ::@3@:GjG AqA@:qAAk:@:A@A@kGGkGA@@qGq q@kGk8::@@A˜™“™i2“Ù™23c””ñøˆ 3@A::3:AjGk@A@AqqG:@ƒqAkFk@Aƒq!AAq :@ @qAcb2Žc“i2b“8ch™™“cc¾ccñøˆ3@33ƒ:'9:A@G:@:@kGk::GAq@AAqAqAAqA3 9AjAAq8c8„c““bii“ib,™hc],ñø‰A 3:@: :@3AkA9:@G@:qGkAqAqAqG:@::Gq@AAkGkb923cŽi“8ch“2i““cŽcòøŠ@A@::9 39Aj::3@@A:AkGqAqAq@k@k@@qA::qAqG929\3“Ž’™“ib2chc“cc” òøŠ:3@3@@AA39:@ @ ::q9:9:@GkFAAGkGA9A@:qAqAk@2c8c,c™™“hc89,hƒcŽ3óøŒ9:Ak@@A@:: 9:9@:qG::@@kGkApAAj@k jAGkGjA:@2cŽ™“™““i\cib„cóø(3@@3 9 @k 9:: k@A@:A@kG::9:@AqA@@kG@@:9ƒci]c™“™i˜i8i8]3ôøŽ7:@@3@:kA@@3:GqGAqAjA@:ApAGkA@A@k@:@::@dc]c23c“™’““i“2]ƒcôø9:@:@3@3 :AjAkGqAqA:GkGkG39A@AkA@3cc]3b82]c™™i“hcb9]c]ôø‘6@;3c3@3@A@ApAqAqGjAq 9:G::@kGkccc3232cb™“™™“bc]ccõø•'3c3]cc@kAAqAqA@9:Ak@3 3@9A3cc32c829…™b33ccõø•1]8]9\3]:9:@@Ak:AG:@A@@A94Gkcc]]3,322i’™Ã™™22]cöø–32c]c3ccƒ: FAk9A@kGk3ƒ:2c]9]„c 2cb™“™“™b3cc]öø—323,,322,]cA@qA@A@ „c,]„c]92†™\9]ccöø™]c323…23: 93A2cc]33]]ccƒc h™Ã™½b2c]“Ž÷ø™]32,ƒc]9d]32“icb“™iicb3cc÷ø«]9,…“dbb“i“™“hb3c]c÷ø³Ž”ci™™“h“™2c]cøøµƒ“ i“hc8“]c3øø´,”]9bibcbi32cdcøø´23c““hci“Žc“,øø¹ o““hicc“Žøø¹ccb„cøƒøºcc2-c3ø„øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÔ“Ž“œ2ÇøÑ bi”cc3™]c]ÆøÑhƒ2dccc‡]2]922Åø̓: @i22ccƒcc]ƒcccƒ3,ÄøÐ@@;@ci“8-cŽ]”¾””]2]cŒ2]cc\33„23¾øÑ @@j2ii]c”“”“]cŒ]c32322ƒ,3]2½øÒ3A@A@2ŽcŽcc¾”·”322]c]Šcc]3]332c3¼øÓ@k@:“ic“d””“33c,‰23,23223323c2»øÕ :“i2Ž“c3“ŽŽc]c3c]‡2,3,c32232c],ºø „ ŽA9838dŽ33“cŽ“ ]cc2cˆ-cc]2-3cc]32-ƒ,¶ø 3 3Ž 3 “ij“]3”,c]c…23]2323,cc]2322c2c³øÃ339 3:3 “iŽƒc””2Ž¾ƒc”]c„3]c2323232323, ]cŽc³øÆ 9 93@ ‹@“iccdc””“,cc]cc]c2cc]3„,323,ƒ]32]c³øÆ @3 :@A@: @ †@A’cŽcc”c”] ,3”c]]833232]3ƒ323†233µøÊ 933 @3@:@ƒ@A8cc”cc”3\c2,”]ccƒ]cÈøÎ%@:@@3A@3AG::b923”Žcccc-”2c3223ÉøÎ" 3 3@3A@3 ::::bcc3c3ccdcŽ“”c]3ÌøÍ":9 3 :@:A@j9q 3@@8Ž“3”cc”””3cÍøÍ% :@:@3 9:A@A3@:@;“c”Žccc”””]c3ÊøÌ @3 :9 A@:@@A@3A:@i™ƒccŽcc””“cc2”ÉøÊ@:3 :9:A9@A@e@AA@3A@i]ƒc”ŽcŽc”Žc3·”ÉøÈ 3:@A9 3:@A@k@ƒ:@k@@qA“hc]33c“Ž“cc,“ŽicËøÇ9: 3 3 3@:9::@@A@kƒ@Aq“™]“Ž“Ž“Žc]cŽcŽÊøÅ :9:9@:@ƒ:"9: 9A@jA@AAjA:@i“c”””ŽccŽiccÉøÃ' ::9@A: 9:93 93@::A@:jAA:@::hic]cŽc“Žƒc3Ž“cÊøŠ:¶:@9ƒ:39„:@: ::@ ::@@Aq@kƒ@“ic“c]“c3c”ŽcÉø‰ ‹§::@A@:::@:9:@A3:9ƒ:@:@@A@AkAA’idŽcd“]”c]Èø‰ 3 ‰ 3 ::@@:@@:A@::•†:349ƒ: @A9 :9::„:9AjAqkG:@qiiciŽc“Žc”32cŽ“cÈø‡3 9 39… 9: :@9:@@AA@A@Ak:‘ƒ: 3@:@@: ƒ::ƒ "9 3::@93 9::jA@A@qAqq:““cddcŽƒcŽ”Èø‡ƒ 3: :„:3@::A@k@k 393 :9:‡:@:@:@:„@:@ 3:@@:9:@:993ƒ:' :: ::::@Ak@Ak@qH@“icjcc3c3”¾Çø† 93 : 9: :@949::„@:@„:@4:::::@:@@Aƒ@A@@;@:@ƒ:69:@@: 9::: @9:9:3::@:@A:@AGqqA@™jcdcd33““dÇø†$ 3 : 99 3 3@ 9:::Ak@::@:@A:9: ::@ƒ:,@AA@:A@;@::::@@::@A@:@::9:@::9: :@A9 ::ƒ@:jAqGAkidccc“cccŽc”cÆø…3 :9:3@9: ƒ:@:9:@@A::@ @j@ :9::9:@@::939:9…: @:A:@:2 ::9ƒ:@@:@@ƒ:&9 ::@::3@k@A@:@:@k™i“d“cŽcŽccŽŽÆø†9: 99 :4:3 9::@::@::@@:@…: ::9:@::@::Aƒ:A:@:9@A@:@3@:9:@::9‡:9ƒ:@@::9::@AjAAkA@A@“cŽcŽccƒcc]”“cÆø…. 9 : : 3 @99:@@::@@:@Aj::@A@:9:@::9:@:@@:@:ƒ@ 39:@@A…:ƒ@#A:9@@:@:@:9::@9: ::@A@@:@k@kG““cdƒcdc3]ƒcÆø… 9 3:9 :3:3: ::9:AA@:@A:@k@@ 3ƒ:@A@@k 3@:9499:A„:@j:@: „:#9:A@::@9:@kA@9::99Ak@@AA@@“”iŽƒc cc9c3]Åøƒ 9 93:@@: @@ @::@„: @@A@A@:39:@„:3ƒ:@::@@:Aƒ@::@A@3::9:@:: 9:@ƒ:@:3 „: 9 @A@k:@k@qidŽccŽccŽ3cc-ccÄø! 2 9 39@:@9A:@::@:@@:@kAkk@„:@::@:Aƒ:@@::@ 39:9:3:@A@„:ƒ@„:@:@ „:$9::@:93@AjA@A@Ak™““c“Žccc32Žcc,cÄø : 33 @9ƒ:3@ ::@:@::@:@::@AFA@@: 9 9:9:†@A 29:9‡: @@:@A@@: ƒ::ƒ@::9:@@::@::4:@@Ak@q@AA™Žc“ŽcŽ„c]ccŽcÄø3 ƒ:9 ::@@:@::@:@:@@k:@kA9: 9::ƒ:@::9::Aƒ: @:9@@:@;@:jƒ:9::@@: …:'@@A93@:@9Ak @AqAq@™c”cc“Žc]cc3cc3Äø# 3 93:@::3@3:@:k@:9A:@:@:A@::@A9ƒ:9…: @@::@:@:@ƒ:@::3:9:@:@A:@::9ƒ:9::9:@ 9::93 ƒ:3@AjAkGkA™”d“dcc]3,dc]Äø:33„:?@ : 9:@:3:A@k@:A:@@::@::9 ::9:9:@A@::@:@:@9:@:9A@::@::@@::9Aƒ@ƒ:@::@…:9ƒ:@:9@A@@kFk““d”c…c2”c23Äø/  3 @:@: 39:@A@ 9:@:9::@jA:@@:@:@ 9:: 9:@:@„:29A9::@:@:@::@A@::9@:@::9@:9@::@::@@:9::3Aq@@AGƒ“di“iic]c]3c,c]cÃø::@:: 2 3 ::@@3ƒ:@:„@!A@:@k:@::93@@9: @:A::@@:@:@@A:9Aƒ:@@:Aƒ: @@A::9:@@ „:9ƒ::@::9@AkAkGqi““i“hcc]c3cc3ccÄø9::3A@3 33@ƒ:9:@:A9:A:jA:@:: : ƒ:9ƒ: @:@@:@::@…:@::@@:Aj@:9:9::9ƒ:@„:9@::@„:@:@ @A@:qA™“i’i“hib]3cccÄ÷? 3::9A9: 3 AA3@::@A3 @:@@A@k:@:99:9:@::@:k@@A:9A:@:@:@:@:ƒ@Aƒ:ƒ:/@: 3::9:::9:9:@9 :@33@AqAq™™“™i“i“bc9]cccŽdÄ÷%3: 9 99:@ 99:9:99A:9:@A@;@jA@:@9 3ƒ:9::9ƒ:3@@A@:@:@::@A@A@@:A::@@:@A::@9::9:@::@:9A9:@A93 : Aƒ@Aq“™“™’i’iibb3cŽ”Äö : „: 9 39ƒ: 4:9::@@:k@@;@:@:ƒ @…:@9:@::@@A@A@:@@::j:@ƒ:7@:9:9::@9::9:@::@@A93 ::@3 @3:@k@Aq“n“i“i“hic\32””cÃö-: 3@:@3 @ 3 :9::::3 k@@:Aj@@::::@:@@:@9ƒ:@ƒ:@:j@A:@k@@::@:9:@„:9@:@:@::9@:@ ƒ:@…:9@A@kAkGG“™““’ihcibc9]c3cÃö:3:9@ 9:33:@9:9 : 39:ƒA99@A@A@3 93@@:@@::@:9::9::@A::@k@@A9:A9@:A9@:@:@:9:9::@@ƒ:9ƒ:?:@9:A::AFAkq“™™i™“ib“i8]2c33cÃô 9 :::9 :@ ƒ:@ 9 @::@A:@@:3A@k@A99…: 9:@::@@::ƒ@:@@::@::@:9: :9:A:@ƒ: @::9A:@:@::?„::@:@qk@AG˜“’“h“i“bi\cc]c3cÃô3 9::::933@@:@:3@:@::ƒ@8:@A3@Ak@:: @:@:9::@@:@::@@:Ak:Aj:A@A:@:9::9:9:@:@:::@::ƒ@&::9@::::@:G9:qAGjq“™A™ih“hib9c]323cÃó 9 :9: 3:: 3 :@@:ƒ:@:@@::@:@@:@@A@::@::@ƒ:@@A@@:@ 3@::9A:@ƒ:@::@@::::A@:9ƒ:9:@;ƒ:@:9::9::9:kA:GkAAGqGƒ“ ibi“chcc]c3cÃó&3 39::@: 3 9:@; 3::@:@::@::k::@::j9ƒ:@@::@ƒ:3 ƒ: A:9:@::@:@:ƒ@AA:9: 9„: 9@@9::@:9„: @:@:@:GqA@q@jAq“i˜i“i’ibi‡c2cc3Ãó+ 9 :93::9 3@:@:: 9AA@:@A:@:G9::@::9::@::@ƒ: @@:@@:@:@@ƒ:ƒ@A93:@::@9:@:@:9:::@„: 9::@:@9„:@qGqAAq@AA“™“’“iciibcc3cc]cÂò?3:39 3@ 9@ 9@3@ 9:3A:@@:A9:@:@@::@:9:@@::@;@:@::@:@ @::9ƒ:@::Aƒ:@:@ƒ:9A@: :9::9@:9ƒ:@9@::GƒqAA@@kF““i“h“b“ƒc]cŽcÂò)3 :49: : 24@:@3 :@::@@9@@k:A@A:@::@::ƒ:@ƒ:@@3 @:93::9:9:@ƒ:@@:@:9@„:@:@@Aƒ:@9:@ƒ:@:9ƒ:@:qAGqAq@AkA™h™““hch„c3”Âò  :@9: @3 @ :@: :@::9::@4ƒ@k„@:@::„::9ƒ:@„:A@ƒ:@:@@:::@:@:@A@@:9::3:9:9…:%9::@:9::@qrGqAjAF““™“h“iihcc]cc3cÃñ 93::@@3: k@::9ƒ:<9A@:@:AkA@kAkA:@::9: 9:@::@@:A@@:@::: A:@:@A@@:@:@:A::@@A„:9:9ƒ:?::9@ƒ:@AGkqGAjAqi“™i“h“chcc]c32cÂñ3::ƒ:@@3@A@ :@:@::@@:A@A:@@A@AjA:9ƒ:9::9 @ƒ:9:@::@9ƒ:@:@@:j;@A:AjA:9:9A@::@:9ƒ:9„:9ƒ:::3GqHqƒAq’™’i“i’ib]cc3c3Ãòƒ:#@3@:9 :3@::9:@::@:@A@:@j::@k@:@@A …:@ƒ:9:@ƒ:@::9A::9::@:AA@ƒ:9::9:::@A@::9::9::9:::@„:9 qqrGqk@G“i™“h“icb„c]ccÁñ 9@:9:AA9: A:@94@:@…: @::@@::@Aƒ@ d :9@9::9ƒ:ƒ@:@:@A@:9ƒ@::@:@:9::9:9:@A::@:9:9@:9@†: @9:: AqkAG@k™““h“ihicc]c]c3cÁñ3 :::@:@k@3:@ ::@:@:@:@@:@::A@@A@:@;9 3:: :9:@9:@ƒ:@::9::A::A@:9::@:9:@:9:@::9:@„:9„:&9::9::9:39AjGGqkAGk˜“™i“bcbcc]cŽc3cÁñ @:: AA@3@Aƒ:@:@:@:@:@::@@:@k@:@j:93: @„:9„: @@:@::::@@:@ƒ: 9:9::@@::@ƒ: @::::9@…:@::9 9@:AqGq9AG“™“h“ibƒc3cc33Áð : 9A3@:@3A:@:ƒ@ :@::@::@::@ƒ:@:@;@:9::9:9@:99::@:@::„@A@:@:9„: @:@A@:9:9ƒ:@::@9ƒ:@9:9@:993:A:9A@qA:q“™i™“ihib…c323Áðƒ:A@A9A@q@:@ @kA:@:@@::@ƒ:@„:@ƒ:99:::9ƒ:@::@A„@Aj49::@„:A@@…: @:@@::9:9:9ƒ:::9ƒ: @@A:qAk9:GA™’“i’i“c]c]c23c]Áñ9::@jAAjGkGAj::@@:@ƒ:I@:@@A@A@@:@3:@:9 ::9::9:@9::@4:@;9::9:@::@9:9::@::@:@:@A@:9::9@:::9ƒ: 9 :@:9GqA:qA™“™““ihic]cc]cc2cÀñ$ 9: @AkGqAj9:@:@:A@:@:@A:@::@:: @ƒ: 9:::9:9:@:@:@@:9@49: @:@@::@„:9:9ƒ: @:@::9::„:9::9:9@ :@9AkGqAk:Gk™’™i’i“]„c3c-3cÀð>9: 9@A@,:AAqA@kA::@:@A:@:@A@:@:@:@:@A@@:: 9:9::3::@::@::@::@„:A@A@:9:::@@:@::@::ƒ:9:@:ƒ:…:kFAqA@9AG““™i“hicc]3c23,Àï @ƒ:<9:A:?3:GA9Aq@::@@:@::@k@k::@39:9@@:@:493@9 ::@::@:@A@@::@A†: 9A@::A@A@„:%9::9:::9::9:@9@:@:@Ak@@kAq@™i’“i“bƒc3]c ,3cÀï 3ƒ:@4 @::3Aq9AA9ƒ:@:@:@:9:@@:3 ::A@::9 @:9 ƒ:@9:@ƒ:'@@;::@:9:9:@9::@@A@::9:@@A9:::9:9:9ƒ: @:9:@:9AA@A9A“™™i’icc3cc3c2Áï 9:9 Ap9A@::3 9A-A@:::@‡:9 :@:@::3::9::9::9ƒ::@::@9:9A9::@@…: @:9::9A@@A@ƒ:9:9„:$9:@::9::@A3@kAj@k™’““iicd23ccŽÁð:3 9A:AqqG3@ 9:ƒ@Ak@:@::@::@:393:@@ƒ:@A:ƒ::9:9@:9;@::::A ::9::Aƒ@39AAj:@:@::9@:9ƒ:9ƒ:@:@A@@qA3@A“G“h“cƒc]3]cÁï9:9 : @k9AAq:@@3 :AjGkƒ:@3@:@ ::@]:A:@:@@::9@9„:#@:::@@::9:@:@:: ::@:Ad::9A9:@::@ƒ:(9::@:9 :3@9:: jAk@AAjG“’o“cdcŽcc]22Áï< ::3:G:@@:G:A 39::9:9 9A:@:@3::@39:9::@A@:: :3:::@;@::ƒ@A::@3 9:9::…:@A::9::ƒ:'9::93 :@:9 kFAApA@koŽ“icŽcccd]cc-Áð9::@ qGqƒ:Aq:@@::@:@@:@::9:@ ::@:9:9ƒ:ƒ@W:@::9:@::3:@A::A::9A:9::@::9: :9:@9A:@::9@99::99:33@:@:: @kA9Ak@A™“Žc“ccdc]ccÂð-::@:3 :@:@:Gk@:@:A@:9: @:::@@: @3:9@:A:A@ƒ:::9 ::93@:@:9:@:::9::@ƒ: 9:::9 @@:@@…:(9::49 :@::@k@G:@A3@koŽiŽcŽcc3c3cÀð::@:@A2ƒ:F:@qAq33:9:A9 9 3A::@A@A@]ƒ:+@::@9::9 : ::@@:9A:::: 9:@:928@@9::A::@„: 9:@:9 3 ƒ:@::A:AjAq@ qA““Ž“cc]cc]icŽÀï @::@: AG9 @AkGkAA9:@A@: 3Aƒ@ :93:@:@34:@ƒ:@:9 „:9 3A@:9: 3@::3:@ƒ:i3„: 9@@:@@:@@:ƒ:% :3:99:@:@@q A@Ak9AF“”ŽiŽcc3cŽc,dÁïE3 :A@A:93@:3::qA@A@@ 3A@3@3:@kA9::@Aj:3@:9::@@::@:@9:3@A3 339 3@†:i9„:1A9::@@::@9:9 :9 :::::ApAj@A kA™”ccdc3Áð#9::@@:q q:@A@:q:@:3 qA3 @AA:@:9A::@„:ƒ:@ 9ƒ:):9::9: 39:::@:A::9@:@:?c3::@:9:@A::@::9„:%9: 99:99:@::@A@Ak@Ap“c””cdccŽccc3Áï* @::A@:Gq @393:@39 qA@@:k@@A@3A@A@:@ @::@ƒ:9::@@::9::::3@::@@ @::„:::„@:@:93:9ƒ: :3 3:::@:ƒ@kA@A3@kA™”cŽcccŽ]cÁîB ::@jA3 33 :: 3 9 :q@A@@3 j:kApA9:@ ::9:@@:9: 3:@:9 ::9: :9 @„:@ƒ:;@9::@:9 9:@:9::::@:@9 3:@:9:@:@;:@AjA@9A@™“c””icdccc2Áî"99AGkFA9 3:9 q:qAqAA9Ak: 3A:A9@ƒ:` ::::@@:: 3 9@: :@A:@9::9:@:@::@:@::@::3@::@: @@:9:::9 9 ::@:A@@kqAGjA:@ki™”cŽccc3ŽÁè2 9::4: 3@AjAA@::@Gq@A:q@kF3 @3 9@:G::9@A:39:@3 ƒ:9 3:: ::@@:@::9ƒ:@:@9::9::::: @ƒ:@„:9@:@ : 3„:@:@:AGjA@Aj A’™djccŽc]3cÁç/ :::9::3 3@A@k@:@::qAqGA@AA@:@@:3 k@: ::@GA:ƒ@C3:: 9 :@3:@@:@:@::3 9:@@::9:@:@9@@A:3@A:@:@9 ::9::rxqxGqHrxrqqHƒqGkGƒ“jŽccŽ92ŽÁæ 99::9:9ƒ:E 3 9AjAA@AkGk@AqkGj@kAqAqA@Gk@9 9Ak9@: 3: :3:@3@@Aj@:3::3::;@:@:9…: @A@9:@A@:xrƒx"rNrqrqxrxqrwqrwrGxqrGkGkG“™cŽ”ccŽƒc]c3cÁæ249 9::@ @9:3 kA2@kG@qGkGAqGkAA@k@Aq@9A::@@::9 ƒ:X3 :@9 @:@:A@AGjA@AA@k@949:9@: xrxrGkwrqrxrrwrwrxGrxqNrGrHwHqqrGqGrqAq@““ŽiŽc“Žc23c]3cÁæ33::@:@:9:@99@ƒA\@: kGqA:qAGq@:G@@::AA9@@::@:9::99:@3:::9@::@:k@ 399: 9 : AxxrMAwrwr@rGrxGxqxHxrxrGrqxrwrwrƒqHrwrrGqGAkG““Žcdc]2c3\Áæy::@@:@:: A:@3:9:3:9qAqA@:G3:@q:k@A:@k@A@:@::9;@ :: 39: 3 9;@:9 3 9@rrxqrrxqqxqxrrxrxqxqGAqxrxqxqxGxxqHwrxHqHxGrqHqNqqGrq@“™c”j”“c]3]cÁå :9@::A@@9:@3@: @:„@%A3Aq:@@AkGAj@AjAqA@:@:9 9: : :9ƒ:G9:AqqGrxrxNqrGwrGrrxrwrwrGrxrxqrxqxxGGrxqrxqrNqxqrqqHqxqqGrqAqG“™Ž“cƒc]c33Âæy9: ::@AA3:@:3@::A::9 3@::A@@:A@AG@k@k @A3:@49 : 9A:@GqHqqHrqGrwrrwrqxrwxqGGrxrxxGxqxxrxHxrqqrxqxHxqxqGrGxGrqrGrqHqAqqi““dd“Žc-c3c,c2Âç 9@:ƒ@3A:@@A :3@@A@@A3 qA39:@::@:@kqAA@k@49::9::9AqqGkƒqFGrqGrwrHqrGxHqGrxrqqGxxqxrxxrxGxxqxrHqHxqxrqGqrrwrqGrGqGrqrGqG““””ƒc]323Ãè :@:AjA@93 j : 3 39 :: kGAq3A9„:gqAq:@A@9::AkGq@kGAqGqHrGqrqHrwrGxrwrxqrNxrxrxrNqxqHxqxrxrxqxqGrxqNqHqrxrGrqqrGqrGqAqA™™ccŽ””2c]cc]c32cÁèy@::@::@:: 39@@3 @3A@@qG@:kGA@A@:9G@A9@@:AA@GA@qAGAkGkqAqGqHqGqxqrG:xrqHqrwrMrwrwrxrxqxxrwrwHqHxrwrrqrqGrwGqGrGqrGqGkGqA“cc“cdc]i3cÂéy@:@:@@:93: 9:: 39A@:@kA:@Aqk 3@k@:A@jA@k:ApAqkGAjAqGkGqGrqqGrqrGrGqqGqxrxGrxrxrNrxqxHxrqNrxrxqxqxrMrxHxqrHqArqrGqrGqAqAA™“Ž”dcc]cc”2]Âê 9::3:@;@: @ƒ:y@AjA@::qA99AA: :@j;@:A@kG:AGk@A@AqkGkGrGqBqqHqqGqGrGkNqxqGrwrwrwrNxqxrxrwHqHqxrNqrxqwrxGqGrwxGqHqGkGqqA““dcŽcc3c3cÂë 9 9:@3@:3 @:@:@A@q@A::3 „@h:@A@q:@qA@kGjAq@k@@AqGkqGrqGqrMrq:rqGqrqNrqxrNrxHwrxqrMrqrwrwrxqrxqHqHqrqrqrrGrqGqqGrAAp“Ž“Žicjc]c]3cÂì : @: A@A:9ƒ:y k@3A@@::@ @:3:@dGk:qGrA k@@:GA@AAkAjGAqGqGrqGrqrGqHqrrMrqqHqrqGqxrqrGqrxGxrxrNqxGrwrxrwHxGGrwAqGqBqrAqA“hcŽccŽc]c]9Âî„:8@::9: 9 @A kAjrqqA:@q:@qAq 3@:9 @A:k@k@jx@AkGk@kqGrqGrGƒqErMrqrGrqxGrqGrxGqrxGrxqNqxrxrxqHxqHxqrqqHqGqrqGqqAq@™“”jdccc”cc]Âïƒ:9„: @3:qqGqGqHqqAƒ: ::ƒ@Aƒ@_k :@@AjAA@@A@qAqHqGkHqqrGrGrxqxrxGrwrwrqGrqxGqxqrxrxqHwrGxqrwrxGrqHqGkrGrqGqAAq“i”c”c]3]3cÃðd@:999 ::@GqAqAAkAGq9::9A3@:@k:@A@:@j@AGjAAqqAq@GqArqGqAqrGqqrNqxqxGrGrNrqGqrrGrAxqxrGxqrxqxHqHqrqNƒqGrqAGkAqG@™”¾cŽ“]33c]3Äñy9 :A3:9::AqGqqAGjGqA@::@: @:@:Aj:@:A@k@AjGAqAAqkrqGqqHqGqrGrqxrHxqrq@rwr@:xxrxq@rNqGqrqNqrrqxqxGqrGrGqGAqAq:AqA“Ž”cdc2]cc2cÄð99A93ƒ:H@kGkAAjAqGA:9A@@::A@:@@Aq:@kAAq@kAqq@AGqGrGqqGrGqrGrGqxqxxr@rrxr@:Gxq@A@ƒrxGrrxGxGrGrqHqrqrrqGkGqGqA“™i“ƒc c3c]83,Äï+ :A3 @::@AAqAAqG@4Aj@@3::@9:@k::@q@;Fk@Aƒ@AAkAqAqAqHkqGrGrƒq6H@AqHq@@Grwr@rrxrx@xqwrxwqrxrqxqrqrwGrGAqAqAqAqA˜““ŽŽƒc]c3]2Åï::@:j: :9::AjA@@qA@@:AG::@: : :@Gq:@:3@k@Ak@q@AFkGkG:qHƒq :@::@:@33:9@:@:@:Ak@@:94::3@A@:@@A@j@kqrqGrwrqHqrqGkq@@:A:ƒA kGkqA:@::@†:9:: ::9::9: 3 bc“3ccc23,×òƒ:Nqq:AjA@A@@A:@3@:@:@A:@AG@A::@Aj::kA@A:@@rxqHqxGqGqG:GkGqA@jA@@k@:@@3@@3qA@A@A…@ :@9 399bƒc32cc-2c×ñ@ 9:@A@@A@k:@@k@:@;@:qA@@kGkAqAq::99A::@@A@@GqGq:AqrqG:qA:@kGkƒ:)@ rqrqHqAk@ApAjA@k@3 :3 @232cc3]2]3c3]×òi33A@:@kA@A@4@:@:@:qA@:@:qGqqAG:Ak@:@:@c:A@k@kGAq@AAqkG:qrqrqHwqHqAqGGAjAG:@k@A@9 3 @::9832]cc]cc]3c2Ùò :9A,:A@kk@:@:3@„:7@:3A@@kAGk@3:9:@:@::q 3AA@qkGkqrHxrqGGqGqGAqqAq@kAjG@kqƒ:94 k@:A:3@cb32cƒ]c3232,Úò49 :A@:@A@:A:ƒ@UqGqq@:A:qAjGqGq 9:: :qAqAqG3AAGA93GqAqqBqAqAAqGkG@k@:kA@G@A9@@A:@3::8c2c3]c32c]3Úó :9 39:@qAk@A@ƒ:SAqH@;@@qGqGrqrG3:@:3GqAq:@:9k@ 9 qGkGqGqGqq@:9:qGqHqGqA:9HqA:@:@:@29c3]]23\9]2-cÜó39 :@@A@AAjG@k@qAƒ:F@:@@kAkG::A@ 9A:9 qA:@A@A:@]“Ž““@A@:qHqAqGqHqHqAqr@A:9qqGq::@@:icc]ƒc2c3]]2Ýô3ƒ:ƒ@:@A@@A9@ƒ:<@:@AGk@@qGqAqA@A@:@kGj@A9]c3c232“::qqrGkGkrqG3::9 k@rGAA@Aƒ:\bc]“c]c3c23cÞõ39:9:9@Ad @k@A:k@:@Aq:@kqAqrqHkGqG@3:@A@@:A@k ,”]3ƒ2 ihcrGrG:AAqAAG@AqA@k@k9@:3 ci]ƒc]]3\]]ßö:::@:@@A@k@AFkG93 3ƒ:FFAGk:@AkG:@::@:k:@A::3223383“i“::k:3@:@GkFk@A@@A3 AkA99cb3]cc”c23cà÷"@::AqAkkAjAkAk@:@@k @AkAj:@AqAkG:ƒ@6k@q::@qAAkGkq@A@i@@A@:@:@@kGAk@3 @@9:9:“89ccc]32]3âö ::9@@k@A@AAqG@„:EGAq:GjG Aq@Aq@qAjAqGq@kA3@ApAGkGjAkA3ApA@@A: 3:933::9: 23b3c,9æ÷@AA@@A@@:@k@qGGqA:@AjAGk@k@::9ƒ:.@AqArGk@@3kAAqkGqGqGq:@Ak@Aj@:::  cb8c22ƒ3]23ç÷P :@::@@k:9A@ :3Aq@A:jGAk@Gk:@@A939AqGkG::kApAGkGkGkqG:qAGk@@AkqAq@@Aj“™2322ŽiƒéøP::@@e@ 9:@k3@ A@jAAjA@@kGGAk@:9:Gk:9::@33A@qAq qqGkiAq@kGkG@AAq :2832233]2ìø 93:9:9:A@Aƒ:>kGk@9@@:qAq:9A@AA9: :A@::G::@@A@:3@GkGqc9@qGkGqk@qA@b9\98-222ïø :: 9 k9 q:@A@A@4@::Gk@A:ƒ@+AkGkG@:@@3@AkqkGA@qHqibc:GqA“GqA9::8c8]233,ñøƒ 2„:9 @AqG@jAk@A:Gƒ@/Aq@kAkG@k@:@A:@A3@GAqq@:qAkGAc::GkiqGkGb232]]9óøƒE39@@:@3Aj@@::GkGk::@:k@AkFAq@A9@:3kAk ,9@kGqGqih8:qGb9qAc8c2]92ôø„BA@ 9@ 99Gk@@:qAGkG@A:@kAq@AAk@GAAb,A@Akq““cb kGc2qGci]cöø…ƒ:>@@9A::3 @3@A@:AqA@jAjGkG@qA@k9:99@9ci“9AkA“™™h3 qAqqrG:“\]“Žöø‡9ƒ:@:@@:@: @@A:@ApAA@kA@94:3@::@ƒA:b8:A@qA™“™cb2GqGq bc3c÷øŠ]3\3: ,@::qk39A@qkGqA„@AqA@:@k@@c28::@ihbih3i:q““iÃ8ƒc3÷ø‹0c3c\c::@:3::kA@A@AjA:A:9kGk k@cc8]c”’ic“™2“ƒ™c“]Žc÷ø‹9232c3c:@AqAAk@:@A@@k@A:@@k@ AjA@9]b32Ži28“i’i™“hc3“cøøŒ7323,2@AjAGk::@@k@Aj@@kG:kA9:9 32c892ci““i’3’c“ib3“]øøŽ2332]@AAjAFAGk:AAjAA@ƒ:9: c]]9,i,cc™“™“h9iih“hƒc]cøø]23]@q@AqAjAq@@AA2:A:9Akƒc32222]c“™“h““2bc8c3]ccøø”.3:@kGA9A@j:@ :39]c]c22c2c™“™i“hc8,c2]8Ž2øø–+:9@@@@49@:@:3@ c]9],32-83]cc“™h“cbc8cc3\øƒø›kƒA@:@cc]ƒc323]922ibc“™“ihc23]cø„øž"2:@-2,32]3,22cc]c82c™“™“hii8922c3ø„ø¡ c3cc32]9]ƒc23bc™“™™,b3233ø…ø¢]c3”cccc]92i™b™“™bc23]ø†ø© ccc-8]22„™“™83c\ø†ø©Ž]3“h“8“™“’“82]3ø‡ø©3ccbcic2™“™“i32c]ø‡ø­cibiih“™2823c3øˆø­ci“h“ch“22]]2øˆø® ccbcb8]33ccø‰ø¯ ci“c2cbc2,cøŠø¯ ci™bibcc]3øŠø° cc223]9ø‹ø°]c]]c3øøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ|72 —? / —KHrË —KHr- ß½É ß½2 â½ / âÉI!Ë âÉI!- +êÉ +ê2 .ê / .öJ5Ë .öJ5- y+É y+2 |+ ,/ - øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøßb“”,ÕøÚ 9ƒ ih23Žcc]2ccÒøÜ @@:322ƒc]3ÒøÝ :@:A223Ž“”ccc2332]cºøÍ3Aq@i“b2Žc9”¾cc3ccŒ2]9]]·øÍ:  k@22ic2cc]”¾”,3]c‹2]c2232·øÎ 3 Œ@A22ic3“”¾”c‹3cc]33¹øÐ: 3 9Š:3@A28Žcc]2Ž“”½]ƒc]ˆ232322ƒ2]3³øÓ33 3@:‰3@A“cƒc ”¸“Ž33cc]‡,2-2323,3]23²ø‘ Ä ‰ @“cdc¾“”,“]3cc22†23]92]3232c,22±ø’:Â@@3@::@ †'@r29\3cc”c23ccc32c]3c232-,2-33²ø’‹ ´ @3:@:@A3::ƒ):9929bcŽ3”323,Žcc]]223,23]]23°øŽ: 3‡ 3 9:@:@:¨% ::@93@  3@@3:@ 9:@ 3:h“cccc]”ƒc 3c33]323ƒ,c2c3,3,c«øŽ  9 3 93 :@3:@A@A@@:A@:9Ÿ :::9 @@A9 ƒ9!: :A @:9G: @9:i“cŽccc]i2Ž32]23ˆ]332-ƒ22c«ø 3::3:9: :: :9::A@AjAA@@9: ::™…:@ˆ:9ƒ:"@:@@k33A3:@:@chccd2cŽc3]2”c’,ŽcŽcªøŽ 9 3 @::3:93@9:@@:@@9ƒ:3 9 9:9:@:@::@:@…:@ƒ::@:@::@@9 9ƒ:$@ 33 @ 3G39:3A’icdcccŽ]9cŽc32’3,22c«ø 9 3 ::9: :@9 ::::@A„:@:3::@::9:@:„@:@:ƒ@:@: „@ : 9 9 9 9ƒ:&: :9::9@3@:@A9Aq:@Ab]3cc]cc“]c“Žc]ÂøŒ  3„:4 :@3::@:9@:@@9@@:A:: 9:49:@A@:A:A@@AA:@@:@:9:39…:@@::ƒ@%:93 3 @::@@A9@::cb3“Ž]cdc]“3Ž“ccÂø‹ 33 9:9@ :@::@:@:@:A::A::@:‡: 39:9:9:3:939ƒ: 3:@:@„:@9ƒ:@:9:9…: ::3@AkA9A@::hc3“Žc“Žc]3”2,”]]ÂøŠ 3 :9ƒ:+ @3 9A :@:@:@::A@::@9:@:9@@:@@::A:@:A::A:ƒ@„: @@::393 9 ƒ:::9:9 @:@3:A@k@ƒ:ibc]c3ƒc]3ccÂø‹93 3ƒ:@ ,ƒ@::@:A3@A@:p:@:ƒ:/@A:@:@::A@@:A@@:@@:@:@:9 ::9::@::@:: @@: ::ƒ: @A:qA@k@@:c8j32cc2c“ccÃøˆ 499@ :@:9Aƒ:@:@:9A@k@AA:9 9 ::9:: 9::ƒ@3@:9 39 „: 9:@‰:99ƒ:'9:9:9@@3:@@::@AkA9:Abic”cc]cŽ”Ž232Àø‡3 3 :9: @@::9:@@::@ƒ:@AkAj@@: 3 9 :@:@ƒ:Aƒ:A:9AAƒ:9ƒ@„:@@::::@ƒ:9 3::@3@…:@kG@:q@A@k@i“cccŽccŽ“cccÀøƒ2239 9::3::3@:ƒ:9::@:@:@ApA:@: 93:9ƒ:ƒ@:ƒ@6:@@:@39@::@:A:@9 :@:::@::@9 9:@ 3:@:@:@::@@Aq@kA@@iƒc]cƒc”cd]3¿ø†33„: 3: :„@::@ƒ:ƒ@:@Aƒ:9 ::9ƒ:9@A3::9 : @::9 ƒ:9 :@::@9:@:@:@ƒ:&@::@@:9@:: @@kAkAq@Aq:“cdcŽdccc3Âø… 9 @:9 9:@:33:@;@4@::ƒ@ :@k::@k9:: „:@::Aƒ:@::@@::@ƒ:@:@:A@„:@ƒ:@@:@:@†: @::@93Aq@@AA@kAq™cc]]3“Žc]cŽccÂø„ 3 3„: @:: A:@:39 9:A@:Aƒ:@„:9:9::@@:@@:@@ @ƒ:@:@:@@:@@:@: @:9ƒ:ƒ:„@„: ;@::@Apk„@ci“”c]i33ccÁø„ 39:@:9::3:@:@:9:ƒ@:@Aj@:@:@: 9:9:ƒ:9:94@:9@::9::9:@:@::@„:.@::@::@@: A:::@:9@:@AAq@;@@ic”cc]93cŽcÁø„ :94@3::@@ @@ ƒ:$@:A39:@:@:@@:@:3@@:: :@::@:9A::A@…:A:@:@::@:@9:@:@„:@::@†:@:@A9qGqq:@i’cc¾cc”c33cÁøƒ 3 9:93: 3 jƒ:3@:@„:@:A@:A: ::4:9::@:@@:@ƒ:@@:@kA9:@9A@:@…:@†:@:@::@ƒ: @9@::@:A:@kHqGA@“c“cccc]2c”cÁø2ƒ:9 3:@: 3:33:@:@@AA@AjA@ƒ:3@99::9::@:A@::9†:@::9::@:@:@:@9@:@:@@:9ƒ:@@::@@::3:@:@@k@AkGk@A@“icc]ƒcŽƒc]Àø ƒ: :@: 39:3ƒ:„@:@A9::9 9:::9:9@A@„:@:@:9:A::@:@@k„:@:@@ƒ:,@@:@ @@: 9:@:9:@:@:@@AqGq:k@“hccŽcd3c]c”“Àø 3:9:3:@: 2 :: 9 3::::@::kƒ@;@@„:@ƒ:@„: @@:9@::@@:ƒ@ :@@:@:@:@3 ƒ:@9::@„:93:A@4 9:Aq:@kqH@:@i“c]ƒcc22Ž”¿øƒ99:9:@ƒ:* 3@:9: :@: 3:AkGAkA:@::9:@:@:9::@@::@@A:ƒ@:@:ƒ@ :AjA:@::@ƒ:@::@ƒ:@:9@::@„:@@@::@:Gqq:A@ciƒc c]cd]c“c¿ø :: @::9:9::3@ƒ:@:@@93ƒ@ k@@9::@:@…:9:@ ƒ:9@A::A@Aƒ: @::9:@:@:ƒ@9::@:@::@@::@::@:@:@3::@A:@:ƒ@k’“cdd„c3d¿ð]c22,993 3ƒ: ::@„:@9@:@9:@A3A@@A: „:'99:@:@:@:9:A::@A9Aj:9:A:9:A: :9A:@::ƒ:@ƒ:'@::@:@::@:@ @:@k@AA:@Ai“ccccd23]cc¿ó,33 ::9 : @@:::@9::9@::„: A@9 kAj9::@:@„:@:@::@::9A:9Aj:@A:9:@::@@…: @:@:@@::?ƒ:&@::@::@:@:@:3@A@:@jA:jA’dcc]cc]cc3”3¿÷ƒ:F:93@A:::@ :9A@:@::@@Aq@@::@@A::9::::@::@::@::@A@A:@@::A:9AA@9:@…:@ƒ:@:@ƒ:%@:@9:@:@::9:A@A@A@A@“cdcdcc2]cc¾÷ :3:@9: 9:: @@A 9@@::A@ƒ:@:@3::9…:9::9 ƒ:A9::@::@A9:@39 93::9 9@@„:@…:@:ƒ:@:9:@:@::@@d@Aj@Akiccc]ƒc]c3c¾ö :99 : :@::93 9 ƒ:@:@:@@qA:@:@:A:@:9::9@:@:@A@…:@::9Aƒ: @::A@:@:@@„: @9::?:@:9 @@:ƒ @: :@:@::Aq:@A:jA’dcŽƒc]cc]3c]¾ö:9: 3@:@9:@@9::9:9:@:A@A:kGƒ:7@@::9 :@:::@:@:@:@9A@9A9::@@::@@:@@::@:@;@@:9@:@ :9„:@ƒ:@:3 @:A9@@AAk@A:@icŽ„cc33,iŽ¾õ :9 :@†:@:9:ƒ:@:@:k@@Aj@@:@ƒ:":9:39:9:9: :33:93@:@:9:9@:3A3Aƒ: :@ƒ:@ƒ:(@:@:@:@::@:@::@3 @@4:Aq@A3@AkicccŽ]c3ƒc¿õ 9:3::@:@:9:ƒ:3:@9ƒ:@:AkA@AAjA::9:9:@ ƒ:ƒ:@ƒ:@::@::9Aƒ:@:::9:@::@:@::9@::ƒ@;@„:$@:@:@::@::@9:@k@Ak@@A˜ddccc]c]ccc¿õ9 @9: @:9: @ @@„:@:@:G9@k@A@k:@ƒ:9 @:: :@:@@::@@:A:@:@:@:@:99ƒ: @:@:@:9::@@:9…:@:@:9::@„:@:33@:AjGAk@“c“cdƒc]c3c3¿õ:9 „: :@3:A:@ƒ: @:AA@:k::@Aj:ƒ@9‡:@::@:9A9:9:9A9:@:@:@;@:@:@:@…: @@:3:@::@ƒ:'@:@:@:@9@::@ 33@@AjAFki“dcc]]9c2,3c¾õ! 2:9@:@A:@@@:@@9::@:@:G::@A@:@ƒ:9:::9:@9::@:A:9„:#@:@::@:@@:@::@:@::9@:@A:@::@::@9::@…:@:@::::9:A@AkA“cdcdƒc]cŽcc¿õ3::@ ::@3:AG::@ƒ:ƒ@ :@:j:@AjA@3@ ƒ:@9::@9†:@ @ @A::@:@:@:@:A@:@:@:93 „:@„:(@:@:@:@@:@:@:@3:: 3Gk:F@A“ccŽcc]c]]2¿ô3@:@:q 9Aj:@::@:@AA::@3@AG:ƒ@:@3:ƒ: 9@:9@:@::9ƒ:@:@:@::@:@::@@‡: @@:@::@::?::@„:@ƒ:@::@:@::@ @@::@kojcƒc3ccc¿ó/ @3 3@::9G3@AG:@:@:@:@:@:@:@@:@:@::3:3:9::9:9ƒ:@:9ƒ:9A::@:@„:?@::A:9:@@9:@A::9::::@:9@:@9:@:@:@::9:@3@Ak @kid“iibcc\cc]Ž¿ò 3@3 ::9Aq kA@@k::@@A::@::@:@ƒ:@ƒ::9:9::9:::9‡@:@A@ƒ:9@ƒ:@::9A@A@A9::@:@:@ƒ:$@::@::@::@:@:: 9:: 3@@k9A™“c™h“hcb33„c¿ò# A3 kGk@A@3Gq:@A:@:A:@:@39AkAj@::9„:9ƒ:9:::9:@;@:A:A@ƒ: @@::9::@9A:9‡:9::9ƒ:::@::@:@::@::9ƒ:@: @A@@A™“™“iichc8]3cŽ¿ï :3@@3@@Aq:AA3A@:@ƒ:@ƒ:@Aƒ@ƒ:@ƒ: 9 :9 9::ƒ:9„:@A9:@:9:@::@@ƒ:@@:9@@:9::@::::@„:'9@:9::@:@:@:@::@:qAjAkF“i’“’icb83\cŽc¿ï=9: 3: @k@A qGqAkA@:@@:@:@@k@A::@:@@:: 9::9 39:9:@:9A@:9„:@::9::ƒ@::@…: 9::@:9:9:@:@ƒ:@:@::@::9::@:: :9qA@@Aq“™ƒi ’cc83]2¿î @@::9G3:AAj kAqG@q:@@::@::@Ak@ƒ:# 3: ::@: 99: :9 ::9:@:9A@::@:9:@::…:@„:@:@:9::@:::9:@:ƒ:"@::@:9:@:9@@:A@k@kG“’“h“chc2323Ž3¿íM 3@3:k:@kA3GqAj9:9:@@::@@:@:@:@ :9@:9:: : :9@9:@:@:@k@@:A::@@:9@:9::@ƒ:„@4A@:@9::@9@:9@::@::9@9: :9:@::9r@A@Ako“™ihcbib]2c¿í$9::9 3@3:q:FA@kAq@AAGkA@:@@:@::@:@ƒ:@:@:9: 9:9:9:9„:@A:AA@:@9A:@:@:9:@:9„:@@ƒ::9::@…:%@:@:9:::@9 @A@4GAjAqA˜“i’iibcc]c3,c¿ì „: ƒ:@@A:G:@k@@A:qAq@Aj::@:@ƒ:]3 3 ƒ:' : 94: ::9:@:9A@:9A9::@::@:9:@A:@:@@„:29::@::@::?9:::@::99:@::3@Aq9A@:@Aq“i’i“bib83c2c¿ì99@:39@ƒ:"G:3A:@::9 3@ 94:@:3:@:@:@:9::@:@:@ƒ:@9: 93@A@:3A@:9A:9ƒ@ :A@:@:@A@j@A…:@:9:@…:&@:@::9::@::@::GA@k@@k:G“i“ibci8c]c3c3¿ê ƒ: 3 9::: q9:qG:99:AkAG@@::@:@„::@::@:@@:@: 93ƒ:9ƒ:k@::@:9:@::@:9::@„:@:ƒ@:?::@ƒ:+?::9:::@::3@::@:@:kqA@A:@:qG’ih“bcbcc]c]¿ê9:99:9:@:9::q:GkG9:A 9@@k@k@†:9:9:@@:9::@@A:: : :9:9@@:@Aƒ@ƒ:B@4@::9:@::@9@:@Aj::9::?:@:::9@::@3A:@:@::@AGkAj@A:A“i“iichc3b3ƒc¾êƒ  ::@::9G:Gqq:Aj3::9„: @:@ 9@::@A3ƒ:9A:ƒ@:9@:993::@:@kA:@:@:3@:ƒ: @@A@3:@:A@@„:†:?::@9 :@„:@:@:GkGqA@:@@“h“b“bib9]3\c,¿ä: 9 :9::@:@ ::@A@3 ::k:k@@93„: 9@::A3 :@@9::@@k@ƒ: :: :9†:9Aƒ: :3@:9 ƒ:9@9:@::@::?::@::@9::@:: 3@:@:@:@::9@kGqA@@:@A“i“hi8c]c]c3c¿â9::9ƒ:9:9:@:2:3:@A9 qGq:9GAƒ:::@3::@ 9:9:@; 9ƒ:#@:@;9:9:3::::@:@9@:: 9 9@@A@:9@„:@„:@ƒ:9@ƒ:)::@: :@:@:@:@ :@AAq@k::A’i’iiccb9\9c,c]¾á „:@@ƒ:,49: 9@:A@q A@3:Ak@AGkGA kGk 9:@39:@3:::@„:9:2ƒ:9 : @::@::@9:@…:@:9::@9:@@::9:9@::9@:@„:"@:@:@:@:@:: jqGA@@3@“i“h“hib]c]cc3¿á 3::@ƒ:@::@ 9ƒ:@@A@A33ƒ:"F@qqAqA:9@:93 @3: ::9::@::9:@: ƒ:9:33@:9„: ƒ:ƒ@ƒ: 9@@9:A:@:@…:9@ƒ:9:@ƒ:!9:@:@:@3@:AkAjA: A“h“iibc8]3c2]2¿áƒ: :@:@9:@: : @:@;j@:9 @9::Gkƒ@9:9 3 @k@@:A@@ƒ:@ƒ:::9::@@ƒ: 3@ 9:3 „:3c2::9 33@@:@::?:@ƒ:*@:@:@9@:@:A:: @: :@q@A:j@A“i’ci“2c]c3cc¿á :9 @:@@„:W@:@3:@:@A@A39:: :@kGA@:3:A9:@93A@;@@A::@::9@@:9:@@:99:: 3@39 9:@:9:@:@:9:h 94@:@;@:@„:@9:9::9 9: :@A:@ƒ:33@AAqA@@A“h“ihchc32c]c]¿á9ƒ:%@::@@99@A: :@k@:@q @@k@Gq@:9G3:Gkƒ:@ j39 9:9@A@A 3 @ 39„: :9 9:93 9 :i3ƒ:89:@::@::9:9:@:::: 9 :@::@:9: A:9@Ak::@““ihhcb3c]c]3¿âH9@@k@@;@:@A@9 :@Ak 3Gq 39 k 3: 33AA@ AG9: A@A:@ :3@::99:9493 :@9:@ƒ:@@A:@: :@:9::@:@4@:@:@@Aƒ:@ƒ:(9 :9 3@:@:@:A:39@@3A@A9:@k@“iihc8c]c]c3c¿â „:3AjA::@k::33::@A@3 3  93@@:@3@j::9@::@@A@:@:9::@ƒ: :A@:3…: 9:@::@@A@:9@„:@:@:@:@@ƒ:@@:9ƒ:9 3: 9:@:@:@:@9@A3A@kƒ:@“o’c“cb32c]c2c¿ã99:9Aƒ@: :ƒ@ 9:@@AA@@3:@::GkG:Ak A9 3A@@„:q9:9::@9: @::@A3 99:::9: 3„: 9:9:@:9„:@:93…:?: :: 99ƒ:@:@:@:3:A@qA@ƒ:A“i“hibcc3]9c,Àäƒ:M@A@A93@;@ 3:@k@k:9:AG:q::@@A29:@:@:k9 :qAA :9:3@3@::@::@@AA@:@::@A@::9@ƒ: 9 9:@:@ƒ: @:@„:*9:9 :::@:@;@::9@Ak@k j @@“h“ibib]8]c2cc¿ä"::9AjA:3@k@A9 ::@qGAGq@@AqAq@:kGƒA :93AA9 :@q:9ƒ: „:@@:3@@:A@k@A:@::9@@:@::9:9„: @:@::9@„:@::9: :9:9:@:@„:@:A@@A@3A:A““ihccb9]3c3]c¿åƒ:y@:@39 @k@:@:@A@:@kAAk@@q:@@AjAqAqAAFk:3:@:@@:9: 33A9:kA@@:@@:@:9@;@A::9::9:9:@9 A:@@;@:9@:@@::3 9 ::@:: 3 @::@A,A@@jA::@jih“i’cc]c]2cc]¿æI:9::@ 9:3A@@:@kA::GqGkA:Gq:AGkG@:@3 @::9::@: 9 :@9:@49:@@k@A3:@:9 @3@ƒ:#:9:::@A:9A9@:@@::9:@:: :9::9:@„:@::@@jA:@@:AA“i’ci8c3c2c]cÀæ::ƒ: 9 ::9::3:9„@qAkGk:AkGk@Aq:@A@k@3@@9ƒ:3 …: …:@:AkAA:jAA@A9:9::9:9ƒ@ :3A:@A@49„:@9: 9: :@:@:@::@@:@:A@:@Aƒ: @@“i“hcb3c]ƒc]c¿è'3:9::@ 3@ ;@k@k Aj@:@@9Ak@A@dG@:ƒ:#:@:9:93 399:@:@:q@q3:A@:q@: 9:ƒ: @;9:9@:@:@@ƒ:@: :@3 ::@::@:„@:A::j @:@@k@“h“ibcc]c,cc]Àê:::@: @ƒ:"9:@AA@A@kG @:@A@@k@@AkAk9:@::@3 ƒ: @…:@9 3 9 :@:@:9 :„:@@3:::Aƒ: @:@:@9::@::…:ƒ@A:@:9@A: @k@Aj::@@i“hicc]cc]3,Àê ::@…: @3::9:9A3 2ƒ:<@:@k@A@;@@A@@ A@::9 99 @A@AGAAp:AAj9@:9:@: ::9:9 A9 ::@:@ƒ:9: „:"@::@::@:@:Aj:AkAk9@3@@3A@3@A@“iibƒc]cc2ŽÀì :9:39:@@ƒ:yA9:qG3G 2 :@:@Aj9:k@qAk@k:9 :@:3A@@jAjqAA@:q@ ::: :@: @:9@::99:@::@::@:@:@ :@9@:@:@:@@:@G9: 3A@::A9A@“h“cc]cc]c3cÁë:9ƒ: @A@::9:@@::Aƒ@6kGqAk:@:@4@GkA@q9:9:@333  9A@kGjAA9 Aj ::@@:993„: @:@::@:@:@ƒ:!@3:@:9::@::A@@:A@kA9: @@A:@@:3@A“ƒcc]c]c2cÁì,:9::@:A@:39A:9A@kq;@kGq@:@: @@AjA@:@:@:9 ƒ:@A3ƒ:3GkA@@:@:999ƒ:ƒA9:@9:: : 2::@@:@9 ƒ:@ƒ:@@j:@:k@A@:9:@-ƒ@A3@“hƒc]ƒc3c,cÀí$ @ 3 2 39:Aq@A@@:GkAA@9 3AkA@:@3„:1@:3:9 3@@ @@:@A@:@A:@:9A@:@9:9::93::93:@::AA@ƒ: 99 99AA@A:„@3 ::@A@;j::9A“iccc3]c2c,Áï=4999 ::AAjA@:@qG9::93:@@k@Ak::933@@A3@::k]22i2cc99ƒ:9:9ƒ: @„:"@A:@:@@3:9:@:9 9:@:@k:@kA::k:9:„@::9:@icŽc]cc]c]cŽÁô: 9:3GjGAjG@;:3:9: @A@Ak@ƒ:9A:@…:9@3@b89“j™bc: 3@:@ƒ:9 :9: @@:9:@::@ƒ:93 3@@:A@@A@Aƒ@ :3@ @:;j;ƒ:@iccc]c]ccÁì(  :93@::@ :A@qA:@k@99:@@jA@A:3FA@@ƒ:@:@93 @:i3’“i“8b83@…:9„: :@:9:@:@A:@:::9: @:A9A@k@k:@kAƒ:3::@@:::@cŽƒc]c3„cÁì 39:@ A9„:ƒ@-kAk@A9: 323333:?AAk@A3c3 :9:9 :2cbc“i“iƒc9:::@:9:@39A@A@Aƒ:@:ƒ@,:@: :@::9Aj:A@@:@@:9@@@A:@9::@@icŽc]cc2c]Âë :@:A jA9::@9ƒ:GA@2A]32323]AAq@@kG3 AqAq„:&9c,3c““i’82:: 3@:9:::@:@:@A@A@:9@A„:@9ƒ:@:A@Ak@@:A@:: 3Ak@@;@:@:AŒcc„cŽc-2Âê :@ @@k9 A…:@:@ƒqrGqrqq@3@A@3@ ::@Aƒ@3A2:@A@@:  @kcc“h“i9:@3:@:::39 :@A:k@:jA@:@::@@„:9ƒ@AjA@A@::@:9:9@@q:@ƒ: @i“cŽc]c]ƒc2cÂêy: :j@A:A9@:@@:@:qHqGqrGqG A@33@A@k@Aj:AkA@AAjGqA@A2AjA:GAG“i’2c9 9:@9::@ 9:393A@@::3@:A@3:@AqAkGkqrqAqqk@:AGq;q@A:@3@i“„c3c-2]Âêy@::@A@9qA@3 :@::@AqGrGkAAkA3:G3A@kjAAq:@kApAAkAkAkGkA@kqqGqGqrqGrqGqrHwrqGqrrGArrqx:rxqNr@rqxArrwrxrqNqGrqrGrGqqrGqGkA@A@:ihƒcd]cc2-cÂé :@@:A3 3A9: @@:@AkGkqG@AqGqƒ:i :Gk9AqGqA@qAq@GkFq@qAq@GAqqArqGrqGrqHxrrwrGAxqAwAwrrxqHrqxAqGrFrwrxrwrqHqrMrqGqGrqGrAqGk@Ajiccdccc2cÂé$ 9::kA@@:A@3 3:A@AjGqAqAjG:@ @:@2::ƒ@R:AqGkA@kGAqAA@AqkGAqGqGqGrqHqrqwHxqrqAxrxAAw@rxqxxqx@rGrqrGxGrNqqGrqrxqHkGqAqqGkGƒ@ hc]cc]c3cÂê&:@:@k@@:kAqA@@ :9AqGkGkA3q@:@:@@: @:Aƒ@5:@:@:@k@ApA@qGkGqAkrGqrGqrGxrGrxqHqqxqxqrGxqxrGrrwAqƒxrqxqrGqqHqxGqqrGkqHqGkA@e@icd„c]3]3Ãéƒ:y@:@Ak@ @Aj::@k@AkAAqA:9AA@@: :@:@@k:@A:k :@:@A@kA@kAqGkGqGqrGqrGqrGA@qrxqHqxrxrGxrxHqxwrxrxqrqGArGrqHqrxqrGqGqGrqGkGk@A“ icd]c32]Ãé9…:$F:A@k@:9::@A@GjAq9@ kA@;j::A@3A:@:@k„@Y:@:k@A@kA@AkGkGrGqArGqHqrjqGrGrqGxqNqrqxqxqrNrwrxrNrqGqrGrqGqA@rGrAqAqAqAqAqAh“cŽcc3,3]cÄé):@@:: :@@A@::@:@:kGqG:9A@kG@Aj@3:A9@Ak9ƒAS:kAjAGk@AwAkGkGkGqrqGqrqrq@HqGqqGxrqxrwrNrxGxrwrHwrwrwHqGqrwrGqAAqqGqGrGkAqA@qAi’cƒc3232cÄêy@3@@9@@kq3:Ak:@:@9rqr@A::d::@:3A@G3Aj@q@A@k@GkAkG@kGkGkGqHqGrGqAwrrGkHqrxGrGrwrqrrwHrwrxHqrqqGqrGqHqGkwrrGkGkGqGqGA@:ciƒc3c3cÄê…: @kGG:9A@k@ƒ: GqGkAj :9@@:@:: @@ƒ:^GqAqA@kAqA@q@qGApAqGkGqrkqrGqGrqGqqrwrqrwrHqNqxrwrqHqxrMrGrrGrqrqGkHwGqAqGkAqA@j:“h“3cŽŽc3]2”]Äêy:@:@:AkAA:q@@:@:@ qqAqAA93::@:A9::@3@A@@A3: @A@qA@qAqkG@kGqkGGqGqrGrGrqHqGGqHqHwrqrwHqrNqxqGqqHqqrqxGrGqGrqAqAqAqA@Aj 3 iic]cc]2]cc“]Äê:::@49Aj9AG@A„:2@AqGq:@9:9:A@::]@:@AjAk@@939@A@@:AkA@AqGqGqkGkAqHƒq5GrqGrqGqrqGqHqrGqGqrGrqHqqrHwGrqqrqr@AqGqkGA@kAA@@“cƒc]9\3c9Äêy9:@:@AApAGkq::@:@k@AkG@AA :@@k:9c@A@:: q::A@A39:A@A@Aj@AkGlGrGqGqqHqGrqrqHqrGrGqAxqHqGrqrGqrqrNqqHqGrGqH@qAqrGqAkG@q@@: icc]cc]9ƒcÅê3@A@k@GkGAqA@:@: :AkGq„:3A:A: AjA@9@:: ƒ@U;9:@k@jGAA@AkGqGqAqHqqGrqNqxqrGrqqrGqrGqqGrGrqNqxqHqqrqGrGqqAqHq:A@qAq@A:cbc]c]cc]23Æë/ :A:@kGkGkG@3@:A9:qGqr:9@: kG@@A:3@Ak@:@@k@Aƒ:@A@kAjkG@kAqAqGqGrqGqqArNrxqGƒr%GqrqrGqqrqrrGrqHqGrqqrrGqGkAqAq@qA@k@ˆc]32Æê 9:9:@@AkGqƒ:„@3qrGqA::@3::9AjAk Aj@:Aƒ@VAjGk@:AjA@AGkGqGqA@krqkHqqBGkwrwrxrwNqx@xHxr:xNxqGqGqqHqGqGqGkGqA@qG@AA:@@i“cŽc]c3cÇê:Aƒ:&Gj3:9@:A:A3AqGqA:k@93@::@A@3@@::Akƒ:&9A@:@A@jAjAqAqAqqGAqHqrGqqH@qHq::qrG:ƒq+H@@qqHqqrHqqrqHqGkGqAqAqAj:kGj:ihcdcŽ3]2cÇé& ::9:9 kGk@::@::3@ qArq::GA:@9 Ak@::@ƒ:RAjA@@:A9: @@kA@@AqqGqAqGqGqGqrGqrqHq9rq@Hqxr@HqxqAqHqrGqqHqGqAqAqGkGkGA@AAq@A:i“„c22c]Èéy 9:9:3GkAG@A:@::@A3AqqGGq39@: 9AA@:9:G@:@@A:k@::93 k@A@k@AG:qAqArkGkGArxqxqHrGxqArqHqqArqr@:qxrNqqrHqqHqArqGq:Aj@A@k@ibƒc]c3-cÈé 3 ƒ: jG@k@Aq::9:99qrq GA 3:9:ƒ@]A@dc3:@kFAq:@ ::@kAGkGkq@AqqGqrGqq::GGq@qrrGqxqxrxqxGrGqHqG:qHqGqGqAqAGkGAjA@k@A:icc]c32]23Éê :9:9AG3A@@kGA@ @:@ƒ: G99kq@A@ƒ:T@k@A:@]@AkAq : @:A9@@AqAjGAq@AAqHqqGrG:qrGrGqrqHqHwGqHqxqqrqGrqGkGkqHkqGk@AkFAk@A@:h„c]32cc32Éê9 :: 3@:33GqAq@:@::@ƒ:hAGk k@kAq j:@:3]@@ :::3@A:@@qAqqAA@A@kGArqr:: qqArGqqrxqrGqrGqHqGqqHqGkGqqAqGAqqAkG@A::@“Ž]cc3]c3Êë3 @3@: …:9@:@„@3GqGk@A@:9:3AG3 3 8c33 3:„@KA@:9AA@AAqqkqAqk::GqG@qrGqGqHwGqHqrqHqGqrqArqGqGqAGAqA@AAFAjA:@9chŽicc232]Ëê 9:9A:Aj@9 FA:@;ƒ@kA:A@kGkG@kG3GqG::]2AkA@::Gk@3A@jA::@k@kAAGqqGGq:GqGkGqGkGrqrrGqGrqqHqrGrGqGrkGkqAqAk@k@kA@:93:hicc32]cËë8 :9: 3@:@A93@@:@@e@:qA@Ak@r@Ak@Aqq:@:qrGA@@:AjGk:A@AA@9:…@@kGqHqrq::qGqGkGkqGqGqAqAqGqGqGqGqAqGqAqAAjG@AA@:@@::ci\c]c32c3ŽÌëy 9::@::@A@;:@A93 @A@:@k@@AqA@@AkA:AqAqGrjA@k@GkFkAjAkG:@kAkA@qAqGrxGxqrGrqAqGrGkGkGqGrAqArqrGqAqrqHkGAkGj::@k:9@cb8]3c3]32Íëƒ:@Aq:@k@@ƒ:YAk@:kG:@AkAq@Ak@Gq:FkGqrqA@3 3 @qkAF:AqA9:A@qGkGkGk@GqAGkAAqqHqqHqqHqrqqrrqGqGrkGkAGjGjGkƒ:ƒ@:@:ƒc33]323,Îë8 33:GA3@:@:@3@@Ak3 j:@:qG@@k@kA@:AqAqGA@A3:93 @@;q3@qAƒ:AqA@AkG@kGk9GqAAqƒA,kAqrqGGrGqGAkAqGkGA@kGA@:@@Aj::@c823\32c9cÎìx9 9:@:A@A::A@@:@@A:@@:Aj;@AqAq@AGkGr@:kGqHqrqGk@G:qA9@Aq@k@@AkArxr3GkGkqGjAqGAGkAAqAqAAqGkG:qqGq:@A@:@::@ bc33cc323ÐìO :9: :@A, k9@A9:@:k@@A@@k@@kA@:Gk@kGqqAqGqrqGrGkGk@AGkG:9GkGqAkG9:@Gk@A@AqGqG„q%GqqGqGqqGqA@k:@A:@A::@:@@::]c2c]2,32Ðí" 9::3 39:9A::A:@:@:@;@dGAA@Aq:@:@qƒ@A@rqGqA@@:9:@AqqAq@k::GAqqGkA9qƒAjA@@AjGkGGrqrGqGrGkA@kA@@:@ƒ:@:jA::2c8]332c32]Ñí 9::9ƒ:m:@A@j::@A::@@Ak@jA3 q@3A@A:A@kGqA@A@:qHqqrGr@AqG9A@kAqqGqHqrwr99@A@AA@::AA@A:AjAAjA@AqA@:@@j3::9 c23c23,33Òî<:::@:A@@A@A@:@@k:A@:A@@A@A9@AjAj@A@kGkGkqrqHqrqqxA@kG:kFƒAkA@@AAFAAk@kkqAqqGqkqqAqGkGk„@A@:: :9 :bcc3c]232Óï :9 :@:@@kƒ@Kk:@jA:@AjA@:@kGkAk9:A@::@AAjGkGqHwqHqNqGqrAq@@:kFkF@Aj@kAj@A@A:9@:AqAGGqG::ƒ@:9;@:949:: :22cc2]]c3]ÔîR:@: :@A@9:A::9A@@AjAqq::@:k@qAG93 @:@jA@:GkGrqHqqGqrG@qAq::9@::Aj:@AqAAkAqwr 9::9„:@:@AkG:@::@3 c32cc3c]2Öï 3 9@kAqA@k@GA@k:@AkGG:…@ A@AA@A@A:Aƒ@:qGrqqHqrGkGkA@:@AGkGkGAqA@A…@A:@:@@A@kGq:9:@@::@@39 ƒ3:2ccƒ]2,9×ï! : :9@AjA:@AjAjA@:99q@:AjAAk@Ajqrƒ3$93Ak3::@qHqqHqGkGq@A::9A:@@::9A@k@k@…:@;@@3†: ::3@ 3: 22]ƒc3]2ØðF993A:@Aq:@@AkA@::@;:A@@AkGkG@qGq : qA@AG@A@@:GkA:GkAq9AA@9:393::9:9:9ƒ:9::9…:@@:@::9:9 9338]33c]c2Úð ::@@::9:@A99AqAƒ@:@d@:@A9:4@:@@:@A@ƒ:*9@A@:AG9A:Gk:9Ak@ @:@@::9 999:@@A@:@@:@ƒ:9:  3 22232cc]3Üñ 9:3  ::@@:@AkA:@3:ƒA@3:qG@AkA3:9Aj@@ƒ:;3@::kF:@9AA9:@:@3A 9@ qr: 93 3 33 @3:22c2c]2c]ÝòM39:@:@3 9;@Aj@A@:@@ @j:qGqr9:@:9@:@A@A:q@k9@@:@kAkA@@kAG@kGAk@A@A:@:@::@:@…:9 ,9322cc]c3àó 9A::9:@ƒ:2AGj:3@Aj:@@A@@ AA@A@:: @kA9:@Ab@:3: @G:kAGk@A@kAƒ@k:@::3:@ƒ: :933 2293c]32áô:99@@:9:9 @9kAG@:: :@A@;3ƒ@'k@A ::qGq AAj9AkGAq@3@@GjA@kA@AjA3@A:9ƒ@ƒ: ::3:9: ::829,3\c33äø :::AqA@@:@:@„:.kA@A:33 :9:GkGk:@@:9AkAjGkGkA9: qGqqkGAqGkA@qƒA@ qA@@3@G32,32 22,äø 3]39@:33 kGk„@D:@qk@@: 3@:kGkGAq@4A@q@AAqAqAq@k:AAqG@kqGAjAq::3 qGkG334932332]2çø2]cA@: 3GkA@:kƒ@*AG:A@k@A@@ 3933@@:AjAqAFkG@A@jG@- 9@A@A…@ƒ:9 : „233“32c]çø#3232, @@9@A@:AAjAq@@k@:3A:::@@ …:93GqqGc:kAA@:@ƒ:@jA::A::@@A@3 29c9]2]2cêøƒ ,33\:@@Aj:ƒ@3A@@k@A@AG@:@-@A3:@AqAA@@kAAkhqGq@k@@:@AA93:2:9 39„2c2,,c,ìøƒ3c23c::@k@:@AjA:k@A@k@k:@Aƒ:.@ k@@qA@AkGqcc:GkbAA@@kA b:c8382923223]3íø…H2:A@kG ::@AkGk::@:@AqA:@@: 9ch @@Aj@AFc:GqiiqkA3383bc2832]323]23ïøˆ2@kAAqƒ:@@:9ƒ@.::@k@::@@]bcd@:AqA™cb:Gkb9kGqAb9229c]]2322…cðøŠ@k@Apƒ:0@@:@;3:@: j@:A@3ch93:q@Aq“™hc qGcbGkG:cc]c,3øøŠ A@AjA@A@q:@:ƒ@(:A@9A: 39]2cb89@Aq@“™hc82kGbiG9:22c,323øƒø‹0@A@@A@A@:@A@:@:9:9: c32c9]::ibc“2c2AAqGk::b9ƒ3ø†øŒ3:9Aj jAƒ:kAA3A]c]2]33b2ƒcc2i“8ci9q:q™“832ø†øŽ/3 :::3:9, 3cc]c,23,32323cŽhi“’i’c““ci“2]]32ø‡ø“):9::323]23\93,23]2]c“i“h“ii“b“hc2ccøˆø–c23ƒc c3,32cb32cc“™“ih9bi“™“™823cc]øˆø—3]23233]]3223c“˜“bc8ƒ2iib9232øŠø™ 22c3\„c382c“™“ib,3cb]c,3c]øŠødƒcc223b™“hicihc8c32c]ø‹øcc]cŽƒc322i“i“hchc2,323]øø¢3]c“i8cbi’i“bcb232]9øø¢cch22c™““i“ib 222øø¢c]ichch“i™hi“,]øø£cibc2™“™“ib2c3ø‘ø£]h““ibih2“i]23]ø‘ø£]cb9bcbci223c]ø’ø¤ ]i“b2iic23ø“ø¤ cciicb8b]2]cø”ø¥ c]8292c3ø•ø¥ ]232c]23cø–ø§2,23ø™øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/ - øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø› ø¨øš3 ø§ø™ 3 : 3† øø„23’: :99 :933 : 9:@:@ø˜ø…,2 :9499 : 9 9:@A@@A::@A@ø’ø– 39ƒ:9 93 3: :@:A@Aƒ@:Aj::ø‘ø• :9ƒ:99:399:@A@d3:3: 9 93:9¡ âø‹2ˆ 99:@9: : ƒ: ::@@::A@@3 3@:: @::@:@›99Œ @Abb2cÉø”3:9„:$:99 @:9@:@@4@::@@: :39 99:@:A@@::@ƒ:@:•9AA9‰ 3G::9””c]cÇø‘ 9::9:, : 3A:9:A::3@:@„: 3:9:9:: :@:ƒ@:ƒ@:@ƒ: @:@:@:@::Œ 3:: ˆ :9:G23“]cc2]Åø2 3 3: @:: :@A9:9:ƒ@"3@::@::9: ::@@::@@:A:: 3A:@:@::ƒ@ƒ:@@…:  @:A9@@A @‰3Gƒ: 23c]c]”“cc,3Áø 3:: 2:@9::@„:'@::9:@@::A@:@ :93:@:@@::@@::k@:9A9: :9ƒ:@:@:@:9@@:9::@A@3A j 3@A9‡3Gqbcb2”””Žc3““Ž¿øŽ 3:9:„:@9::@9„: :AA@A:@9 @„:J@A9:3:@:@::@@::A@:@@:@A:@:@ 4 : 3::9:94 399 3:@ 9: @9A:@292Ž”“c¾“3”\¿øŽ3:9:@::9::9:@::@:@:9@AqA@ƒ:3:9::@ƒ:@@ƒ: 9 3 @@:@:@ƒ:@:@:ƒ@,::@A:A:@@::@AA@3 3 :99 39:@22c2”]3””,c3cˆ,232]3c¯øŒ534:9 @::9 9 :@::::9G::@@:@@::9: :@:@@::@::@A:9A@ƒ: 9::@:9@:@ƒ:-@3::@@:9@;@:@@::@@3:9:::3 :3 @38,cc2”¾”,“,‡ 232c]c]c\3®ò2, 99…: : 3::@:9A9…:%@@:j@:: 9:9::@::9339 @:@@:@A:@::@:A„:9:9 3 3::@@3: ƒ:, : A9@ :9A@9Ak28cc]3”“”]9cc]2]2332322323¯ñc, 232,3„,2ƒ:9::@::@@:@3::@ƒ: 9 @@:@A::@A9: 9:9:@:A::9A::949ƒ:@@:@:@::@:@::@…:*@@ 93 9:3 2 99:A:@3 :9: A@cc]ccŽ“Ž2]3]cƒ3 2]]3,33„,23ªó%,2,,223]c39 :@ 3::@4@:@:3 9:@ƒ:@A@:9ƒ:9:393ƒ:@@::@::@:@@::@3ƒ:@:9:@:@::@@:@@ƒ: @@:3@:9ƒ: 3@:@::3@3ibccc]”¾“]3c232„2c„2]23]32]ªø33,33]9c33@: @:@„: ::@: :@:@ :@„:@@:: :9:: :@@::9: @9::@:@::9Aƒ:@@ƒ: @@::9:@99ƒ:@: ƒ:9 3: G3@:9G 3::b933c]“]2Ž2]c]‹c2322323©ø2cc22]cc93 ::@:9:@@:@: 9::@:@:@::@A:9 399:9ƒ:9::9:A::@A:@ :@A@:@:@:@:@ƒ:@:@::9: 9:9:9„:@ kG3::@A:@93b82c””]c”iŽc2cˆ 3232323©ø 32]c3: ƒ:7@:: 3: 3@:9:@:@:@k@@::9 :9:3:::@::@:@9A@9:@::@A:3@9„:…:@†:9 @:@ A:@@9 3 9GA9Aj :9 ƒc ]½3c“”,c3Ž3c‰,-232,©ø„,23@: 9:9::999:@ 3 9@ƒ:.@@:@::9::::::9:@@:@:A9 3A@@9A:@9A:@:@:@A9:@ƒ: 9@@::@::@3@ƒ: @: 9: :3:9:93::9i]c3c2Žc,c223cƒc¥ø†3::9 9:@3 A 3 9: ::@ 39:@:@:Aƒ@†: 9::9 @:@::„: @@4@:A9 9A„: @::@:@9@:@::@ƒ:(@::@3:@:: :99 :9@::AA3::ibcc]cccc2dcc‘2cc¥ø‡::: :3 @- 3: 9:9ƒ:(@:9 @kG3::9 @:?::9 :9:@::9::@:@@:9A::9::„@::@:@„:@::ƒ@ ƒ@A:@:@@3 : : ::@A9A:@bic]c]ƒc2,c3c]2]32d¥ø…": 9 @j @:3@9::9::9@::@3A9A@-@:„: @:::9:@:@::@@A@ƒ: @@::@:@::@:@„:ƒ:@…:3@:@ƒ:@:A9 93 9:GkG9@:@ci]ƒc ]cd]cc23•c¥ø„ 9: 9:@3:@:@9@†:@@A@@3ƒ@A:9:9:9…:…:@:@:@:@:A@@A:@:@:@:@:@::ƒ@:@:@:@:@ƒ:99: @33: 3::GkG@„:bc]c]c]“c]¾2”]3¹ø„3:2:@4@: ::: :@:@@ƒ: A@AA:@AA9::@„:@:9@:@9:9A@AjA:@Aƒ@ :@@A:@::@ :@@ƒ:1@:@::@:@:@:@:: @@:: 3 @ qA@k9@:9c23]9\3]cc23“]c¹øƒ 3: @A::@: :@9:2:93 :@:@@q:j„:@:9:9 9 :?::@:9:@:@::@@::@ƒ:j:A3:@@ƒ:@::@@:@:@:9:@@: @:@…: @3::: 9:@GA:@:cb9“cc”“],”3¾]c]¸øƒ:9@:9@:@::@9: :@:@ƒ: AA@@::9@::99…: 9 ::9:9A:9Ak9Aj:94@:@9A::@::@@ƒ:@::@:@ƒ:)@:@A:@9::@:@ :@:@:q:@:A:@bc]c3Žc3“,”cc¹øƒ:;@:9:@@@:9:3@ƒ: @A9qA@::@…:9: 9:@ƒ:@@::@3@A@9::A:A@::@A:9A9@ƒ:@::@::@::9::39@:„@ƒ:3:F:qGqAk9@:8c3cc]“]23c]¹øƒ:@:@::@::A:93ƒ:6A::@::@@Ak@:9::9 :33:::@::@:9@::9A::9A:3::3:9A:@9Aƒ:@::@@9:@::@:@::@ A:A3@:@:@ 3ƒ:GkGkG::@cbcc]c]cccccc¹î ‹29 :@::@: 9@3 @:9:@::@:AkAp:@:@:93:: 39::9:@: :9ƒ:A:9::9A@9A 39::@:@„: @::@:@:@:@:@…:949:@@3@:3@ 3GA9::h…c ]c]cŽc¸í:@Š @::9@:A@A::@:::9A::„@:A@A::9:9::93 ƒ:@9:@::::93:@9:9@:3:@:9†:-9@:@:@@::@:A:@:@@:@@:@: @::@ @3 q:A@kG:@ch]c]„cicc3]¸í:9‰@::9 :@:@k@@::9ƒ:@Fƒ:5@:@@Aj@:9:9:::::9:3:9A::@@:9A::9A: 939:@::@:@@::@„:@:@:@:@:A:@::@:@:@ƒ:9:::@@q@A@Abiƒc]c]]3]c»í::3… @:9 @::@:@:@@::@@:@:Gƒ:@A::@:9 :9::9„:9ƒ:":94 ::@:9::9A:9 @:@ @@::@::@9:@ƒ:%@:@::@::@:@:@:@:: :@:qAAjAj“ic]c”…c»ì@4@ 3:„99:3ƒ:@::3@@ƒ:@@ƒ:j@@:@j„:93:9::9::9::9A:9„: 39::@::9A†: @::@::@:@ƒ:@::9ƒ@:@:@::9ƒ@A::qHqrqAA™“c3c]”cc3]c]»ê ::@9: :@ 9ƒ ::9 3:@@:9 :@::@@ƒ:@ @AA:Aƒ: : ::949:3ƒ: @::9@@:9?ƒ:@:@:@:@:@:9::@:@::@9:@::@:@„::@;9:@;@@:A:j9:@:AqGq:@@bc”ƒcc23cc»êƒ:3:@ƒ:53 @:9AA@9;@:: @@:@A::@:@@Aj@@:@9 39 9:::99:@94ƒ:9:9 @@ƒ:@ƒ:?@::@@:@::9@:@: @:@:@:@@::@:@:@::@@:@3:::G9@qAG:@@ic·”]cŽ]2]»ê(::@A @A9:93A9:k:9@:q3qA:@:@:9@:@:A@…:9 ::9:9:9 ::9:@:9::@‡:@@A@„:@:@ƒ:@„:@::@:@:@::@:@::@:3 @e@:A3 9„:@kGq::@chc”]c“c3cc»è::@3 @k@k3@3G:AA3 9ƒ: Gq4Aj::A„:/A@kAk9:::9:9:39::9 :3:@:@@:A::@@:@@3@:@99@@„:9::@::@@::@:@:@@::@:@:@:3 ƒ@: 9 :G:qGkG::@“icc]c3Žc2]cŽºç::@ƒ:#9:@A@@A94@kF::GqGrG9GA@Aq:@9:GjA@ƒ:39::9 9: 94 9::94@::@:A@j@A@A@::;:@4A:@:@@:@@:@:@ƒ:@:@:@ƒ:)@:@:@:@:@@@;9 3 9@ kGqA::@ih3c\c]cc”ºâƒ:#  9:9::@@:9: :3AA: qGrAq3:AjA@@ƒ:!9AAq@:9@@@9:: 349: :@@::A::9ƒ:9ƒ:9@@::9@:@::@::@„:@:@:@ƒ:@@:@:@:@:@:@:@@:99 33…:@„: icc]cc]3]“”¹à @9:3 3:@@ 9 „:-3::@j :@kA3AAG3G:@::@::@ApAA::3::9: 93 :ƒ:#9:@:3@:9A::9::@9 ;@:9@:3:A@@:@@:@ƒ:'@:@:@:@:@::@:@:@:@:j::9 :@:@@:@::@:h]ƒc]cc,3c]ºß„:ƒ@\9::@:@A@9:@:@:9::q:@@Aq 2qGkGk@:@::@@:A@:?::::@:: 99::9:::@:@:A::::@:::@:@:3:@:3@::@:Aƒ:@:@::@:@:@::@@:@:@;@:@3:@: @ƒ:@:@:9@bcc]c]c]cc3ccºß3::9 3ƒ 9ƒ: @49: @@ 3ƒ:9A:qA qGkGkA@99:@A@ƒ:" 9:9: :: 9 3499:@9::@:@@k@::9A:9„:@:A@A@:@ƒ:&@:@:9@:@::@::@:@::@;@:@:@:39: :@::@:@ƒ:@9:ii]ƒc]9]c”]ºß 9@:„@:@„:9ƒAj@3:@:@:@3@3AqG:39AA:@Aj:@9†:+@ ::949 934@@4@A@A@@A@:@@4@::@:@@:@A@@:9ƒ:@…:/@::@:@:@:A::@:@:k:::3@A93::@@: ::ibcc]c]c]9]»Þ3@:@:@;@j:@::9 3 @9„:@::@:qA@qAqAqGA„:@„:9:@:@:@ƒ: :::94@ƒ:A:99A::9A:@::@::9@;@::@;:9„:4@:@@:@:@:@:@:@:@:@A@@:@::3 3 9:Gk:@9:@cic]c]83b]22»ßO:@::A@@;@::3:@@:@9 @:@3@@q3G@A:@A@kqGA@:@::@9933 :9::@: 9 9::@:9@::@A:9„:@::@9:@9::@jA@A:@9::9@:@ƒ:,@:@:@:@:@:d:@::@:3 39::q:@:: :h“cc]c]]2]3ccºÞ @; @k:@@ƒ:, 3:@:9: 3@:@::@AqAA::@@k@A:39:3:9:@:9@:@:@:ƒ@:@39 : :94::9A:94@:9 :@@:@:ƒ@j::9::@:@:@::@:@ƒ:@:@ƒ:@:@:@:@@::34@ 9 ::@G::9:@ib]„c9]92c»ß:93@k@A@:@:@:@4: :A@:@A:ƒq:@:9@@Ak3@: :A: ƒ:+9:@:A@::939@@A@@A@@:9A:: 3::@:@:A@::9ƒ:@ƒ: @:@:@::@:@;@:A:@:@:@3@:@4@ :9 :@ƒ: kbcc]c]]c]c]¼ß ƒ:2A@k@kA@::@:@:3 3 :@A:@@@qGGq:@3 k@Ak@A9::39:@:9ƒ: @Aj:99A9::9„:@:@k@A:@:9@A3::@:@::@@ƒ: @::@:@:@:@ƒ: @::@:@:@@:@„::@@9A9„:@::9@A„c]c2c3c]3»à ::@9:@:@A:@qAƒ: 39:@@k :@,@Aqr:AA9:39A@A@9ƒ:9:„@ A@:3:939ƒ:@:@4:@:: @@:93 :@:3A:@:@@:@@ƒ:)@::@:@9:@:@::@:@::@:@:@3 3 3 9@A@::@@cc]ƒc]9\c]¼à@„: AAkF:k@A9:@ :9:@A:393::A:@:9„:9:@ƒ:!@:99::@::@::9: :@3:@:@::@::@9ƒ: @@@A@@3@::@A„:@:@:@:@::@::@@ƒ:@ƒ::@:: :9::3:A:@::@@“ƒc]cc]3cc¼á9::„@:@@:@@::33:@4@kF:9Gq@:jƒ: 9„:, @:@:@@::9::@:@A9:: :@::99 @:@:9@@A9:3 3@:@ƒ:@A:ƒ@A@@::9ƒ:@:9:@:@::@::@:@9:@:: 9::@: ƒ@j:@;hc]cc]c]2¾á; @:9AjA:@3@A@:3@:@:@@AAq kA9:3AF:GqAG@Gqq:@:c 3:9::@::94:ƒ@ :@:3@::9†:9 @:A93 :@:9A:@::@:@:@:?:@@…:@:@::9:3:@::9@39:9 @kƒ: @@ƒc]cc23]c¼âƒ:\@::@@AjA@@ ,@A@AjA@: :9:9A:q@kG:9: 3 ::9:@::9::A@9 :@::93: :3 :@:@@@:@A:9:@:@4@A:9@†:@ƒ:+@:@:@:@::: :@:@: :@:9:@3 @@9:9Acic]c]]32¾â!::9:@:3:9AAk9: @AjAkGjA9:A :Gkƒ@::9:@3@A@:@:@ 9@ @„:@:9 939 9A3:@@3::@;ƒ@:9:@@49@j::@:@:@9:@:@„: @::@@39::@„:@:A:: -@r : @’‡c]ƒc¼ä.99:: 9; jA9:3A@@A@kA@9:@:@:qGA@;9:GkGq:A@:@@„:@A@:3 9 3 3 3 : :9 33 3ƒ33ƒ:@:3:@A@@„:3@::@:::@:@:: 4@@::@@::9 9:9 @@:93Aicc]c8]32c]¼ä#:: 3: :@ 9@A9A9A9k@A@q 9 Ak@qqA::@ƒ: @A::@@k:: @:@j::@::9:9: @:@3:9ƒ:@ƒ:@::9 3::A@::A@:@::@::@:9@ƒ:@94ƒ@::@:@:@: : 9:2A:@: @“]„c823]c½æ6:@:@39:A@A:9::@A93Gq3 2 AqG3@@kG3GkG:@@@A:3:@;:99„:9:9:9:@A9 9:@:9ƒ:@3 ƒ:9Aƒ:@ƒ:@::@:9@::@:@ @„:@:@@::3:9 : : :@::@A“ƒchcb232]½æƒ:;@: ::33: :@:A@: :@:9:43A9@k:G@j:jA::9@::9::9: @:@A:9†: @A:@ 93  :ƒ@::9A:9:@:@:@:@:::@::@ @:†@:@:@:@9 :39:@:@3A@“c“bib923c½æ::9ƒ:@@:: 9ƒ:@AjA3@@„:!GqAA@@:q3GA3:9Gq::@9:@@:@@A@9 3ƒ:@:@:@@A@k:@@:9::@:9 jƒ:@„: 9 @:@::@:@…:"A:@;@4::@A@A3 :: @::9A@“ihccb3223c½ç<@993::@@3::@:@@@qGA:A:@:Ak@@:A@:k@9:Ak::33:3@@::3@@ƒ9@ƒ: @A@:9@::@„:ƒ@ƒ:@@:@…:-9::::@::@:@@:@:@:@3@A9@@:q:@:9A@“i“b9b92,]½èS:::@@:@A9 @:@@k@::kGkA@qqGq9@Ak@Ak9@A3:@::99::9;:9:@@AAk@A@: :@:@j:3:@:33@:@ƒ:@:@@::@:@9@:::@9::9ƒ@;j::@ƒ:@3 @4 : q:@: @ki’ibcb823,c½é39::@@A@A::@A:Gk99qAq@:GqG;k@GjAG3 A99::@:A@A::@9ƒ:&AA@k@A@@A@9::Ak:::9::3 @:@:@::9:@:@…:9 :3 3A:@@A::3@ƒ:339@3@::@3A@“i“b92933]½ê:@:Ad :93@kAA@kA qAqGqrqGGkGƒ@A9A3:@::@3@A9:@ƒ:„@kƒ@k@:@::ƒ@H9:9::39:3A::@:@@:@:@@:@:9: 343::@Aj;@::@:9: 94 :@A@:@:3A@“bicb92]2c¾ó#@:AG2A@A2A@A::GkqAk::AkA:9:@A9:@ @ƒ:"@9::@A:@A@4@A::9@:A@::3949: 9 @Aƒ@:@::@:@ƒ:/::33@:@@:@3@:3:9@3:9A@A@:: 9Akibch9b23233½ò293@:@@k@ @k:G:@AAƒ@ok@Ap@ :: :33:3@::39::@k:@:9:@@::A9:@:: 9::A39Aj@;@A@:@:@A::@9:: :9:@:@:@@:@A:9: :@@::@jA:@:3 kF“ib9\98]2]\½ñ]329 9: @A@@-G939ƒ:/jA@AqAkA@@:9:: @ 9@: @:@:@::@@:AkAk:@@A@A99 : 3ƒ: 3A:@@k::@::@:@::9 „:&@:@;k@@:39@::9@::@Aq@::9Achcbc823323¾í0,3223]@ 3:33A93:Aq:@:Ak@A@@Aj: GA:9:@:: @AAƒ@:949:9:3@kAj 3:9: :9 9@:@A@@…:@@:9 ::9@::@Aƒ@:@:9 @;@@4 9:@:A„: 9:ibic8c8]23]¾ê 232cc322ƒ(:9:@@:G::@qG9:9:@9AjA@AjA@3:9::@k@AkƒA@@:3::A@ƒ: @A: 9:@3@ ƒ:@„: @::@::@A:399†:&@:A:@:: ::@@: 3@@Ak@:::@chcb2923]c3c½é @39::2„:9 @ƒ:\qAA@@kGk@: @@3AA@k@A@::@::@:9 3 qApA:@AA9@@A:@99:9: @:93:@:@:@:@@3@:@:@:9 :::@:?: 33A:: ƒ@d:@:9::G:9 9@:ibic82b32]b¾é@ƒ: @ 3:3:: „:4@9Aq@A@kGAA@9: :@@k@A@:@@:: 3 @@3993@AqAjG3A@:9:: ƒ: :: 9 @:@ ::@333::@:@ƒ:@ƒ:„@:@3@:j;A@:::„@ :3@:cibc8332ƒ3¾ç@Aƒ@AA3 3A„@G9::GAAk@@Ak@@3 :9:@kA9Aj:@k:99:@: 3 :: @k@: 9: @A9:9A@A99:9::@A@3:@:ƒ@ @:@@:9:@…:&@::@::@:@A:9::@;9:@:k: :@ibcbc2232]2¾æ @@3;@qA39A:9:A„:qAqA@A,…:0c3 @Ak@AA:@: 9:@A:: @::@Ak@:Gkk::@A9@:9 9 9…:3:A:@:9 33:@:@:†@Aƒ@A:@:@@:: @:@:A :3 @chcb9b32,c¿æd3A3@AjA@3 G::@:@@9:GkGqk@@:@:@@c]@:AGkFk 33@::@:99393@@j:AF:@:@@:@:9::9: :3:9:@@9@A@::@A@:: : @:@„: @:A@:A:@:k::@ƒ:3::@::93@cichc8,ƒ3]¿å: :@A@k:39:@::@: @:@A@A@:A@ƒ:2:q@kA@33:A@:@„:[@ :2c8]8,A@3:9 @@439 :@@;:@:@::@:@A93@::@::@@:@:@Ad@::3 @:@@:@ 3:@:@39 3@chcb9232]2c¿ç4 :@k@A@3GkA::@:3@@3 j 2::9:92- 39 @@] :9A@4 @::9 ƒ@2cbc8ci2i9::9:9:494: @ƒ: @:@:@3:@A9ƒ:.@:9:@:@:A@:@@:AqA9@94::3@:@: ::9 @chcb29233cÀæ:@:@Ak@A9 3:9@:ƒ@;@:AkG 32]23]c39:ƒc8]c2-bc] q:9 423c3i“@“cb :9 :9 9 99@:@:@:@:A:@@:@:9:@ ƒ:(@:A@@:@Ak@Aj: ::9A9 :@3@:9 9:@cibc823\3Áåƒ::@:k@Aj: A:: @;@@:@3@A@:kAA@A:@@3@@4@Ak:Gq: 3A@ A92c8,ccƒ“ib9:33:9:3:@:A@::@:@:@@„: 9 39 :ƒ@kA@:jAƒ@: :9ƒ:@ ::@ƒ:9 @:ibcb92323\Àå9@:„@AA@3q@A9@k@@:A@rqqrGGjAƒ@":A9:@::@@: :@::Gqk@:9:b32]c“n“hcbƒ:@:33:@@:@A@kA9A:@A:@ƒ:9 3@@:A@A@jA@AAj4::@@: 9::3@ƒ:3 3@cbi83232]cÀæ-:@:@::q@AAqAq3 @k@::qHqGqqGqr:A@q 3 @::@:@@ƒ:@:Gk3 3@]ci“i8c@@::9:3, ƒ:>94@k@@A9:@:@:@:9:@A:@@;j:Ak@:@A93:9@399: :@ 9 ::ichc8b32]3ÁæyA@@;@:GkAq@Aj@ :@:9@AkGqqHqkAA9@kAqGk:9:@3@:9::@:q@@AqAqAA“ih“82A9A::9@:@::@3 @A@j:Aj:@@:@:@:@AkA@@A@:A@:@3@9:@3:@::@::33:@bib]8332]3Áå ::ƒ@ Ak9@@k@A@ƒ:AAƒ@kGrqGA@k@@A@3AAq@:A@A:A:@ƒ:A@AkG@A9ƒAi“239 3 k3:@„:„@ :@:@3::@A3ƒ:@::AjA@:@:@k@@4:@@@: @ƒ:@: 93@:cc8c2]2]9\Áå @::@4@ƒ:WA @A9:9:@jAjAqGqAq@AA@:qA9A@A9::@kq:::@q@:@k@:@jA9cb3822:9:9:: 9:9::A:A::@ @:3:@9:„@#Aj@Ak@:Ak@9: 3A:3 3A9:@::9 ::chcb8ƒ3,]ÂåU9:9A@:9 9Gq93qA9:@:A@AkAqGqA@3qAj@:@:@kA9AkGA:@:@:@AqA@Aqq:A@c]c83232:9:9@@:@@:@:9ƒ:@9…:9:@A:k@@:@A@@:@::9 9 9: @3ƒ:@9:@::hchc23\3cÃå :@…:5AqAqkGA@A@@k@GkGkA@49A@@A@:@GkAG@kF:A@::AkGqk@AG:@]ƒc““ihi83ƒ:9 :9 9;ƒ@:@:4:: :@A@Aƒ@':A@k@:@:@@: :9::3@::@9:3:@:cb98]32]9Ãæ89:@@:GkGA3:Gk@k@A:A@kAAq@3:@A@k:@Aj: 9k@kGk:GkG@@Ak@A@kƒ@c]cc“i“839:kG9:9„:@ƒ:@@::@@:@k@;@k:@:A@:@:: 9: ƒ:@::@ƒ: 9ƒ: hcb]9]3\cÃäU 3:k@@kFk@GkGq@:@:@jA@:qG: @@k@@A3@A:@ :@@AqAq@kq@AFk@:@A3:d“Žc“i’cb4A3Gk4::9:@ƒ:@…:@:@@A@jA@@AjAjA:@93::9 3 @:@ƒ:::@:bc9]]8332Ãä] :9::@:AqAqkAq@A@@;@:@k@:qr:3:@: 93:9A::@@Ak@@3GGAk@kAGkAk@@qGic8i2293:AA9:@:@3 @:@A:@9„:@k:A@k:A@A@@:: :9@3: @ƒ:9:9:@:hcc]9\3]23Ãä9ƒ:b@A@kAAAqAAjA@@:k@::GqGG 9:AA9A@:933@:@@AA@:3Aq:@AkFqAGkA@q @kGqccb:: @@93A9A@:Ak@::@:9:9:9:A:@@:ƒ@$k@Ak:9:3 ::A@::3:@: :3@:c]c]323c]cÃä:::@ApA@qAj@:A:kG@ƒ:qHqq:A@@kAjA@ :3kA@@kƒ@K ::@@qAAjAGkGkGkGkGqGqGqrqA:@: 9: 33:9:9: 999@AkA:A@:A@@9 9 9 @:@k3:9ƒ: :bc9]c]2ÄãX 3::@:@3:GkGkG::9A@@:A:9GqGkG:@@qA @@9:@3A@k3AAk@:@@:A@@Aq@kGjAkGqGqArGkAGqqAA :Gk ::@ƒ: 9 :@A@:Aƒ@kƒ@"j@4 3:@3A9:@@A399:9::9cc]8]32c3Ää 9ƒ:M :@qA3:9:@:Aj@k@:@AAqG:@:@39@jAjA:9;@::A@q@Ak@@:@:kA@AA@qAqGkGkHqqAqrqHqApqqrƒ9(GA@q::qrq@k::k@A@Aj;@;@:@:@ @:: j::@::9ƒ: 9:cc]c]3b3]Åä9 :@@qGAqG@A9@:9 :A@ k@kGkƒ:K9@:A@Ak @@:qA@k@AqA@kAkq@AjAjA@qGkGkGqAAqGqGqrGrGrGAArqrGAqxGAAqGkGAkGkA@qƒ@ Aq:9:3:99„:G9: :::b9cc3]3ccÅä…:k@q@A@A„:q@@kAqGqqG:9: 3@A@@:@::A@@AjAGjAqA@G@GkG@@AkAAkGAqqAkqGrqrGqrqrqxqqGqr:@Gq@kqrqAA@qAq@k@AkAjAA::@AAq@AG9A:9::9:8cƒ]b3c]Åä_:9  @:3:@A@k::9:A@qAqHqrGA 3AjA::9:9:@k@Gk@:@@kGkkAGkAqApA@GqAqAqGqGqGqrGrM@rqHqAqMrkAqrA@ƒqAqAq:@@A@A@@:@::@9H@@kA@:3 ƒ: 8]9c3c2]Æåƒ:y@@3:::kAG@3@:@AqGkG:q 3:9:@:@A@3A@A3@@AA@@3 9ApAq@qAk@kAqGqGqGkrGqGrqr@rxrqGrrxwAqrx@AqH3@@qG@rqrqxqrAqGkGqr:qGk9:: :::bc]c]c2]Çät9:@::@ 3@qAqk::@3:A3Gqq:: @@:9:@:@@:]@k A:@,A@@ 3@@AkAGqGAqA@AqArqGqrGkqG:qHwrxqGqrqxxGrqrx@rxAq@rGqrrGrqGkGqGqƒAqGA@A@@::b9]c]b3]Èä 9ƒ:3@39@:9 @9::@: @: kAqAG3kAA3A :A3c3@:kA@:@k@:9 Aƒ@BkGkqGkqqAqGqAqGrGrqGrqxGrGqrNrGkxqHqAqGqAqrGrGxqqGkG@qqHqAjGk@kAj@ƒ: b9c]c]923Çä9::3ƒ:@@:933A9ƒ:@A:3@rqG:GjA9 9:Aq9:cƒ@[:qA@@AkA:39:@:A@A@qAGqGkGrAqAqqGrqGqrxAqHqqxqGrwrqGxrqrGrqrqAGrqGkAqHqAkGk@Gk@A@::8cb3cc2]2Èå:9:@9A:A@A::@@ kG2:@::G::q@9ƒ:Ap 93@]]AkGkG:k9AFkƒ:NA@jAk@@AkGqAqAqGq:HqqHrGqGqrqGrGrqHrGrqrwHwrwrGqAqGAqAqrqqAGk@AqGA@@::bc9\c2]cÉå „:OGk@k@:@: @@:9: A@:@::qGq 9:@Aq9 39]@A@qAqAA@kG:@:@AA@Ak@kAqGqqGkA@qqGrqrGkGrqNƒqH„q)GxGrqrGrGqGAqAqGkGqGAkFAk@A@j::@:bc9]c]c3Éæ9::@ ƒ:`@::9:Ak@A jAk@@9AqAq: Gk@A: 3c 9:A@@39 9A:@A:@k@jAG@A@kGkGqA@rGrAqHqGkGAqAqHqqHqHrqrqHqGxqrqqA@ƒqGA@kGkGjAq@A@Ak@c8ƒc]cËå 3::3@@:@ƒ:FkA@@A@A@AA9AqA 3 qA99 ƒ:\@@@9A3@@3@A@AjAqqGAk@AkGqqAqqGqqGqkGqqGqAqqHqqNqGqrqHqGAGkqGAq:AAqr@A@A@@kA::98cc]]9]2Éæ 9„:  3 : A@9:@k@k@q@Aq@qqAq@A9: 9ƒ:\Ak9:3:@ :@ 3AjAq9A@AkGkGkGqArqHqAqGrGqGkGrA@rGqr@GqrGAGkGkGqGkrGqAjAqGk@AjA@A9:99cb]9c2cdÉç*3 9@::9 k@:9k@::A@A@9:A@AAqGAAkqAqG9:@99„G:@:A@k9A@AAkApAqG@qAqqGqAqGkA@rqrGqAqGkqG@qAqGkApAqGkqGqGkGkAq::A@k@Aƒ: @9bc2323Êæ99A ƒ:y@4@::A:9:3@@@3Aj@@rq@9AGqG:@G: AqA@A9::k@k:@A:@jG@kAqAqkGqGrGqGqqAkGrrwrAqrqGqAqHkAkGqqGqqGkAAkGkGA@@qqA@::@::9c9c]323Ëç 3399A@Aƒ@t::@:@:kA@:@:AqAAk@kGk@kA:@qqAq@:AqG@@:@::@AkGApA@@qGkGkAqrAGkG@:GqG:qxrrAqrqx@GqGrqHkGGkGqAGkFA@qA9:@@::9 28]233]cËçy3@A3A@k:@k:@@:@:@A@@AkA:qA@@A@qA@:qGkqrGA@AkGkG:@::@@3:@GkAqAk@AqGkGkAA@rxqr@qAr::GGq:GqGqrqrrGAqAqAqAAqqAk@q::@:@A9::29]232c,cÌç :93:@:q@A::@ƒ:@A@jA„@YA@:AjGkGkG:AqGqGr@39:@:@:kA@AA@:9:A@AqAA@:qHqGkFqArwr:@qqG@qkG::GqH:GGqkGkGkGkGjAA@A@:@AA„: 9cb3c]c]9,Íé,:@AkG@@:A@@:@A@:k@Ak@kA@kAqAqAq@AkGrq@AA@ƒ:NAGkGjkG:@::@jA@qq:@:qAGkq:GAGq:Hqrq@HqqrqGqq:qAqAqAqAqAAq@k@k@:A9:@@:c8]cc2c3Îéƒ:(@@Aj@:@jA@3A3A@@Aj@A@k9A@A::qGjAGkq@AqA3„9=@@AA@kG3A@:qAAqAqAqAkxGrqkqGkqHGAqqHqHGqrGqAxqr@AqG@k@@Aq@Aqƒ: @::938]cc3]Ðê39@ƒ: :@;@: @:@@k@;@@::@A3@Gƒ:Z@:@GqAAqqGrHq49q9GkGk@kGAApAqAqAG9:AqA:MkGAGkqqGrqGqkGqrAqAGGkGAk@Gk@@:@A3@:9:@9 8cc]3c]2Ïë 39@@:9:@AjAk@k@A@k@k 9Aƒ@^k@@:@A::@:qGqGrqqrqGkAqA:GkGAjAjA@qAqrqr9A@qGkGrqqAqGrGkGqGrGAqAqkG@kG@kA@Ak@@3@::@3 c23c22cÐî3@::ƒ@n:: A@k@@A@qA::@:kAAk9@@qAk@rqrAqAG@AqGkA@kG9:@GAjAAq@@AxqxrGkGkG@AqGqqGkGqkGkqGqGkGqqAkGj@A::q:@@:: :823]23-3Ñî3]c9„:#@3@AkA@3qA:@AjAA@q@A9;@3@A@rGqAq:A@ƒ: @:AkA9:qAƒ@:AA@kAA@AqAq@kGkGAA@kAGAqAqAAkAkAA@@A@Aj@:@:: 3c8cc3]23cÑîp232-@3@3j@A@k@A3@k@A@j @@A@3:9@AqGkGAqqrqqHwrqAFkA:9GqAk@:@GqAk9@AjGkGqAq@kAAjAk@AqApAF@AjAk@@:@::@:93 3bccƒcÓðp23:@AAqA@Ak@@:@9A@A@kA@3:qq @::@@:@kGqrGrGqrGqrAFk@A@:A@k@k9Aqw jAA@GAkGkAqGqGqGqAAqAAk@k@qA@:@:@ 39 932,332,Ôð 33]3@kG::@ƒ:3 @A:@k:9@@3:GqG::@ 3A@:@kGqrqrGqrqGkAG9A@@k@qGA9:@A„@+kk@@:A@kAkGkGqApAkFA@@A@@:@:3 :@949323]c,Õñ\3\@ : 9A@k@:ƒ@99:GkGq::A39:@A@::9:AqGqGrGqHq@@kA:kAAk@kGkAqr@3;:@AAqAqA„@Ak@@:@Ak@:@:@A:9::@:9 3232cÖó432:@:3Aq@:qA::@AjGqAG3:9:AjA:9::@GrqrGqGqA3@AqA@:ƒ@3A:9:@@:rF::@:@kGjGkqAqAAkGkG@@:@::3:: 993 229,cc]×õ,:@:A@@Ak@:@Aƒ:"@;@:@:@AAjA@:@:@GGqrqGk@A3@:FjAk9ƒ:@:@A:9:@@:@:9:@@::Aj@@„:@ƒ:33ƒ: 22323Ú÷@:@Aj::@@AkA@:@ƒ: @::9AjGqA@9A@ƒ:@@A:@rqGkGr :GA@@Ak@:A@@:9::3ƒAkAƒ@:@:@@:@:@3:@: 2ƒ823c,Üø@:@A:@:@:@@:@@ƒ9 ::A@k@A@::Ak9:@:@:@A…@ :93:9 Ak:@:@ƒ:"Grqq93kAkA@A@::3:9 3 9 93]3cÝø= 3AkGk@k:@:A@;:A@:@:FkA@:9 :@kFAAqrqG:@A@e@:: 9::@@:33 3:9ƒ:3@ 39:93:3@A9 9:322823]\3Þø @@kG…: Ak@:3 93„:@@ :9„:+@@A::3@:@:GkGq qHq39 3@:@:33 :@ 9:339ƒ:  223-2]áø @AkG@k@9:@9„:@9AA99@::k@:A@@9 3qG@AA3@@:@A@::@@A@qqGqAAG ::9: :::9:3 9 ,ƒ2232ãø3:@:@@::@::3::@@9:@::@c3@k@AA: Aqkqh@;94@:jA@A@†:9:939:9: 3 33,22333]3äø  3 :@@A:9…:8@A3 3@k2ib9bA@@@k@AicqA@9AAqAk:@A:::9:4 :9 :2ƒ 2, ,32èø„639:@:: @@33@]22]323bib3c@AjA@:@b :q@A3@qA@@qkG@:A@ƒ:A@: @q222-2-23cëø‰.:@@:3c33]9]323232c8]3::@@A@kcb::Aq83Gk@ 3:@:@ƒ: G@9:3 ,22ƒ332ïø‹?3cc]cc2]2323]23c8c@AA@kAhc82:Gkc kGk b:@::9:3:28323232]2òøŒ]…c632-23c]2c23c:jAh“ib38 q8b @Aqb9b283b92232223322-2ôøŒ,3]2-,3223]c]282cccb3““822 kGi,GkA223c3„ 323233\]9õø‘ 3c2-]3b3832ƒc#i“h™8cc2AqAqAq 823cc]3]3\323,3232øø•3]…c83cc“’“™29’cAqi“i’232,32‰232]øø•c2ccc2b]c“™ib92ch““bb“ii3ccøø•]ccŽcc238cc“™“8c22“i2™“9,2,cø’ø—]3bc283b“i’cbiib92“iƒ2ccø“ø—3cbi“bci“iibiib2c2c232]ø•ø—bc23h9bibhiibccb22c3,93ø•ø—]cchc2i“i“hhch23]32ø˜ø—3cbc2c“’™“c™i8,]c2ø™ø˜]ib9b8cbibc’3]3ø›ø˜]hcbc9b9“hc3øžø˜cciibihi3232øø™ ]]82c2i,3,3øŸø™ cc29223232ø øš,3\323,cø¢øœ23ø¦øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/ - øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø‰22ø¸øøÄøøÄøøÄøŽ22ø´øøÄøœ]c]ø¥ø’23ˆ 22,c  øø’32 33 3 9øšø¡3 33ƒ ø—øŸ 9 3 3 :9 3 3ø“ô,2¡ 3 9:9 99:3:3 : @:øôc3,322]š 9 2::9 39 9 993@A:@@A@øö,3323™ : 3:99949:3 3::@:@A@ƒ:ƒ@ø‰÷2,323,– 939 93::3: 99 ::ƒ@ƒ3::@A@: 9ø‡ø2ƒ,:@ @ƒ:93:„:3:9A3 @:@@9 33@: 9:ø„ø„/323232]3\32c32]22 :94:@::9:: 9 @:9:::9@4@„:9 3 :@ƒ:@::øø„Ccc,3]cc2c3]c3]]23]3::99::9:9@::@:9:@@::@9::@9 :9:@@9 :@@:@::@:õø…322c]„c*]2c2c3c239:@:9:::9:9::9: :: @@::A@A:99…:@@3 :@:@ƒ:@:òø‰%cc]c]cc]3]b33 :3 939:3 9::99:9:A…@„: :ƒ:@::ƒ@ :@:@@ƒ:@:îø‰c3]3c]3c]23 :@3 @:3:::@3„: :9ƒ:$@kAk::@ 39::@@3 @9A@::@@9 :@::@:@@ëø‰Kcc2]8 39: 9:: :@:3:9 @:@9:A9@@A@@:9:999::@::@A3 3::@::9A9::9A@A:9@èø‰@3,c332324:@3 3@::@:@::@@::@::A:A:@:9:3:93::9A:93A@ 3:A@…:@Aƒ:@:@:äø‹Pc]],]c9:@::@@3:99:9@3::::3 :@:@:@9@::493:9@@ 3 9@:9@A3:@:@@:@@99:@:@4@:@áøŒcc23: 9: 9:9:: :9 9:9::9:@†:.9:3:3@:@::9@A3 3 :9AA9:@::9;@;::3:9A@:: 9 Ýø‹323] : 9ƒ:@3:9:: 3:9 ::9„:9@::9::93 ::@3:9::3@::@::@k@ƒ:@@:@9A@A:::@:: „@ ×øŒ,3:ƒ:9::@@:: 3:@93::@:„@::@@::339:9@4@;3 9:::@@…:9@:9A9::9@;:9@@3 9@3AA::3GÕøŒ33::9:::@:: 3:9…:A@:A@ 3 :9 :3:::9:@:9A@: j@A@:9@@::@::@:@::9:9:A@::@:939:q:Óî “ 2:@49:9„: 3 @9:3ƒ: @@:@@:@:3ƒ:"3:9:93@@::9:@:99A:@3:A@:9:9@ƒ:ƒ@43:@:@@A@A9:@33Ðî :“ :9:9::ƒ:@ 9::93::@ 3:AG:@:9:9:: ƒ:@::9::9: A@:3A::3ƒ:@A:@„:@::9: 3:@:9@A@33 :::Ìí:@’ 9:ƒ:@ƒ:3:39::9::9 @@4@@:@:49 ƒ:9:3:@::9A@:4@@k3@A@@9 A9ƒ:9:ƒ@ :@::@@:@:9 39ƒ: A3Aj 3: 9A9 AÆì:9:9 :9@:: @@ 33A9:9:@::AkG3@:@ƒ:%9 :9:::4:9::@A9:@:4@A39:9A@:@::@ƒ:ƒ@ƒ: 9::3@A@: j:G@3 A@::99:3: qAAbi2Âë :@:@A3::@Œ: 9;@:@9@@3 @:A@::@::ƒ@AjA:@Aj:9::99„:9::9@::@@A:9@:9:@;@ƒ:9:@@ƒ:::Aƒ:#9 @@:3@@ 9 @3 k@ ::3: q3“8cc¿ê :@:@9 33@Œ: 9:@9 AA3:Ak@@3 9ƒ:@:Aj@A::@::4::3::9:@:3@:9A@3Aƒ:@A@::@::@@:@::ƒ@-::9:9:@::3::93@:k@4 3@ 33A@@3A9G223”cc¼ê :@::A949::9ŒP @:@ 3Ak@@k@A3:9::@:9Aq@@:9:@9:3:9:9::9:@4:A9@@:@::@:Aj::@:@@:@:@::9:@@:ƒ:@: @A9:@:: 3: 33 9ƒ:k:932Ž]ccc3¹è :@:9::@9A::Š' 3@: :@G:kAGk ::@:@@:GA::9::9 :- 3„:R9:@: :A@:3A@:A@@A@k:@@A@:@:@@::9::A:9@@:@:@:3A@499 :3 9: 33 @ 3GAG23232cŽc23¸ç:@:@A93:@A@:9‰ 93@ 3@kAj:3A„@6:9::@A@::@:: 9:3 :99 @9@::9::@3::@9Ak:@k@@ 3@@:@‡:4@:9::9A@: ::@ 3@@A@93 :9 :9 9:A93q:8\3“,”cŽc3½Ž\c2´â@:@@:@:: :9A@k3@ˆ:933Aƒ@:@G@3:@:@A::A@k9„@339 :3:4:9::@3:ƒ:3@@:3@:@@:3@:@4@:A@;9::@:@:ƒ@:@ƒ:99@@A:A@ƒ: : 3: A:k ::@@ :3292””]”½c”2ƒ3,2±á@A:@:: A3@:@:ƒ@: A@:†C :3 k@A@:3Ak@::9@A9:9A@94@Ae@:9: 99:::9::3@: 9@:9A:@3:@A@3A„:&9A:9@:@:A:A:@@:: 9;@99:@:@:: 9339A2ƒ:9 :283c”½”,”ƒ 233232]2¬ß @:@:@: 3:@@A9:9Aƒ:@9::@A@ƒ 9 A@A@@k@: FAA3@A@„: @A9@:9::3: ƒ:49:9:::9A:9A@:3 :3@:3@@: 9 j@:9@:@:@::@:@:@@:@A@@::9ƒ:@:@A:@:99 9 9 q ::@32c2]3¾ƒ”2„ c,2333\3©Þ 9:@3 3A@ƒ: @::A@3:@@ƒ:@A@@A3 3: jA@d:: :3:j@@:@k9::F„:k9„:. 9::9 :::9@: :9A@:99A: :9@: 3@: ::A::9::@:@ƒ:@@:@:@:@@A:A:ƒ@9 3ƒ 3:93@AA3A:2c322c“¸“3ccˆ23c2]§Þ/9::A@@A3 3::@:@::@3A@:@:@k@3 :3@:@@:: 9:@:@†:.@Aq:@:9 9: 9 :3:9 4@:9A::9:: @:99:@3:9::9 @ƒ:9::@:@ƒ: 9:A::3:3 @:@„: 3@4 9 39 q G:Ak9@:99b3]cŽ”]c]† 332]2]]2§Þ A@@A@jA„@ :: :@@A@:9…:9 3 @@„:=9 :A9AA@:9@@Aj@::9: 99 :9 93::@ :@:@::9@::3: @: 3@:@@:Aj„:9@ƒ:@@:@:@ƒ:,@9@4@@A9:@@: :9:3 :3 q9 @A:93:8]23¾”32c32† ]232332-2¥ÞG@AjA@;@AkA@:@:9::A@A@4:::9A:9:k::@:9A9:94@@:9: jA@@::93: :93:: 9ƒ:W9 :@49;@:9@::9: @: A:@ :9:@@:@:@:A@:@:@:@:@:9 k@::9::@@3 3 29 9 :9:9:@ :83]92”23“333‡ 2]323323¥Þ @A@@k@k@@„:9:943:9:@@Aƒ:*qG:@9AG;@:9@3::AjAAkA9::339 3:33: @…:9@ƒ: †:@: 3A@:9::@@::@:@::@:@:ƒ@:@:@A: @@:@:@:: : 3: 3ƒ:AA :3 b232]c]232Ž2Š223]2¥Þ 3::3@A@A@:ƒ@ 9:Aƒ@k@A@A@:9::Gk@:q@:jƒ:NqGq:3@kG@k@:9::9 9 9 3 3:::@:@@::@::9@9:@@:@:9:@@:3@@::@@:@:@::@:@:;@:A@:@ƒ:&@3@@:@:: 9: 9 3A9Aq9 9 b233“”¾”ccdŒ,3¦à :AAkGd@@Aƒ:9:@::@A@@393A::GkG ƒ:9 GqƒA&@:@AGkA@:9::9 :393::39:@3@@:@A@@A@…:@:@Aƒ:9:@::@:@:@::@::@ƒ:1@@:@:A@:@@:A3@3A:@93:3 3:Gq:@ k 9398]3½3“¾]3]Œcc2,c¢ß:„@kA@:jƒ:G 3:::@A:9 @@:9@Ajq::9GAqrqGkpA@A@jAp:93:9: 9 :::4@ 9A::9@:@3A@:ƒ@:†@::@::@†: @:@3@::9:A:9ƒ: @:@@: ::@:ƒ @3 3Aq :99 :c2c2]3,c3323Œ2-cc¢ß :@@:@AkAA@@Aƒ@„:0@:9 kA3:A@@r:@kq@Aq:9AA:@jA:A9:9: @::3: 93: 93…:@:A@::3@@::9:@:A3:@;@@::@…:@: @ƒ:@@:@94ƒ@)::@::3@@:@399: 399Gk@3: 3:39]3c323]22”]Ž2d¢ß:@ƒ:)@kFkG@kGk:@:9@:@3@A@9:9@:q::@GAAqG3A@@kAƒ@:: @:3 3::3 994:…@XAj::9 A::9:@A::3@:@3A:@:: :?:@:@::@@:@:@::9@;@:@:@@:::@ 3:9 9:3@::9 :bc]\c3ccc]“3c³à::9:A@@A@@kA@A@: :A@:3A„:D@Aq9:GkGj3kGkG@:9Ak:94@@:9:@:9:43949::3A:@A@::9A@3::@:3@:9 @@„:>@:@::@:@@:@:@@:@:@:@::@;@::@:@3 : :999Aq : 9c8]39c]cc,3cc32³à ƒ:@:@@::@@j@3:3:9:@ 9ƒ@C:@A:A@AqA9AqAq@kA:@:93 @3 93::@ 3 9 9 :@ @:@:A@A@:93@:9@A@:: A:…@<:@:@:@:@:@:A:@::@;@:@3:@@j@::@3A39:3 :4Gk@3 3: c3\32]2c]µà ::@:Ak@A3„A::@A 9: :AA@:A:@:q@qA qGqA39„:9@3:@@ƒ: ::@3 34@:3ƒ:@k:@:@:Aƒ:N@:@:@A@A:j:A:A:@::@:@:@:@:@:A@:@:@:@:3 3;@@:A@A3A3:9qGqAG:9: b33½33c3cc3c3]²ây::@::3@99k@k@9Ak@A3@:9@@k@:9A@:qHjA:qGqGr3:: ::: :9 @:@:9 33:3:@3@:93@:@3A::@@::@4@:@k@@A:@@3@:@:@:@:@:@:A@:@:A@:A@:@ '@@;@3 3@@A@A9::GkGkA9::8b3”½””c,”]c]²â9:9:99AAF: „@3ƒ:@kAA::9AA9AAjGk rkGAG:9::99„:@:A@:9@49A@A:@:A:3:@::@:@:ƒ:G@:@@::A@:@:@:@:@:@;@:@:@:@:@j:@::3@@A:3 3@k@3G @3 qA9 9:b9\”]3“Ž½ ”cc³ãy:9:: @kA9Aj:A3:3::A@j@@:k@qq:@AA@@A39A::99::@@:@kA9333@3:@:@A@A9:9@::@@A@@A:A@94@:k:93A:@::@:@::@:@:@dA:j@:A:@:@:%@;@9 9 :9::@Aq:@AqG49:9\3c2]2323cc³äa::9:@k 9Ak:@AA:@3@@@kG:A9AqGq:@jk@G@3A@:93@@A@@A@A9: A9 9 :9:@::@@A::@ , 3::j:9 9:@:@@A:@:@ƒ:@A::@:@:@@:@;@:@@A::@@::3 3:ƒ@: 3:q@AkG::8c3]c]3cc,c´äƒ:S@:3@@::@k: @:9:@Aq @@AqHqGAA3@:AAk9 :9::@;@:j:9 9:@93:@:@A3@::@:3:@A:9::@:@:@…:9@:@:@:@@::@:@:@A:@:@:@@:@:@@::9 99:A@:94@Aq@A9:99b3bŽ2„c],´ä::9:3::3A@A9A@3@A@qA@kG3@:ƒq :@k9A:9:9A:@ƒ:29::@k9 @3::@@39@:@:3;@@::9@A@33 @:@3A@:@@@:@:@ƒ:5@@:@:@:j:@A:@:A:@:@;93:@3 9A3:3rGAk9::8]]39]3\c]·ä @: ::@ :, 3: @AAqAqA„:\49A:9@:A:: 99:@@:@:@:99:: @A:93 @:@::3@@k 3 :@:@3 @3@ A:@@3@;:@::@:@:@:@:@:@:A:@:@j:@:j@: ƒ: @3@3 3 9kƒq9@:cbcc\3233]·å„:ƒ@:@:93 3 k@kqAGk:@Gq 3 @:@ 39Gƒ:@A@ƒ:i@3AA@:A@::94: 3A@::@:: 3:393A@3A@Aj@:@:A@@:k:@:@:@:k:@:A:@:@:@;@@;@;@3 9@:@3A 99 943:AGk9 :@i3]c”“¾]c2·ç :@@A@A3ƒ:W@kA@kGqG9A:@9AA9kG:A9:G3@:@:@A:@@k:@3@@33: :@A @:@@::@3@::@3:@A:@::@:j:@:@:@A:@::@ƒ:.@:@k:@:@j:@:@A::9A@A3A3: 99:qGA99:@b2]]”]3c·ç*9::@::@A@9 @::@ @@A@qAk9:@4 93G:A9:q:@3 3ƒ:@@A@@: 9:: 3 9:@@::@Ak9 :ƒ @49ƒ:@3 @@k@:@::@::j:@::@@:@:@:ƒ@(:A:@:: :@: 93@A@A9 9:GqA9;:@ccŽ“cc2,c]·é0@A:k@k@:3@@::9@:k@AqA@:@:4GkA@::@Gk@AA@:::jA@Aƒ:.@ 3 @@:2: 3:@:@@k@ 9@@A3@::9A::@::@:A@:@ƒ:0@:@;@Aj;@@::@39:99 : 93@A@qGk93 :@cbc”]c33·ï:@A@A:93@@:qAq:::9qGkƒ@A:Gk@::@:9::@k::@†:@ƒ:ƒ:A39 3A:@A3:@@:9 @A94@:@:@:@:@@::@:@:@:@d:@:@:@:@: :: 339 3A@kA9ƒ:A49::bccŽ“d3\c·é 2-232,A@:jAƒ:A@A@3Gk9 :@:GqA:@Ak@qA@:@:Gƒ:-@:9:@@:9 3:999:9 ::@9@A39 9:3 3AjA:@::@:@„:@::@:„@+:@:@::@:9:@:@@: : 9 33:3:9 3:@9h]“33\c””·æ3\32cc3223@:G@ƒ:K:A:3 :AqGk9 @kGqA@@k@:@:k9@@:A::@:GA93:@:@A:@:@k@4:9: : 39 9A@@Aj:@:@::„@5::@:@:A:;:@:@:@::@:@:9A3@9:3: 99 9:@:3 99cbc33\3c3\·çc]3,233c 9:AqAk:„@ :@A@@@3@@ƒ:A:q:@::9@:9@A@k 9 @:@:A@ƒ: 9@49::9@ƒ: @A:@:A:@:@…: @::@:@:@j::@ƒ:%9::@:@4:@4 3 :3:9:33 9:9c923\33c]¸å2::2ˆ6]93@:@A@9::qrGkA@:kA3@A@::9A9:9:G4:::9AA@k@@3 3:@:„@A@@3 A 9:@@ 9@dA::@@ƒ:ƒ@:@:@:@:@:@@:9::9Aƒ:!@::3: 9 A3339 9: 3 :283]332]c¹æ3ˆƒc„:K@:AA9:@Gk@qq:A@: :k:9A@9:@@99@@:@:@::@A@@kA:@k:@:AA@A@j3::93 A:9:@:@:@„:4@:@:@:@:@49 :9@A:@@::@:3:9:33@3 3::9 3 9:b923\3]2ºå:99†G]c]23 9:@@k9GA9kGk@GAqGkAj:@:kA:@:@AA3A:@3@:@AA@:@AjA@3:@::@k@3 33 @ƒ:@@::@::@::@::@:@::@:@3:9:@A:@„:!@:A:: :@ 3A@3Gk: 3 :cb3\3293c¹æ::AA::ƒgcc-23]@9AkAkq AqAqqrGqAqA@A@9: 99:Aj9A@:A@ @@AjAjA:AA@@::@@k@@39 33 @@:A@:@:@:@:@9:@::@:@:@:3 ::@:@@:ƒ@:@:@@:: @:33Akƒ:939:9c3]33]22ºç29@@:9@]c]c]cc: 39A@A3@A@A:Gkq:GA@kGA:3::A@3A@:9ƒ:,@k@@A@@j@k@:@:A@AA3::49A::@:@:3:@::@A:@:@ƒ:!@@ @@:@@;@:@;@@:: :93@3::33 9A93ƒ 9:bc2]8233ºåY@A9A:A@:3] c3ccc3:@A@: jAq:@A@AjAq@k:::93@ 9@:@:9::@A:@j4:9::@:@Ak@9:93 3 3@:@::@49ƒ:@::@„:@ƒ:A:@@;:@:ƒ@!::@:39: @ 39 :3:339:9c83]33]2»ä5 A@:9AqAG:3::9:A23]9: 23@ 9:9:@:@Aq@AA@@:: @::@A:…@A:@A9A@::@4@@3: 9 9 9 ƒ@AjA@::ƒ@:@ƒ: @9: ::@:@::ƒ@%A:A::@:9 : :3A33 3@:: 3 :8]3b323]»ã:9@:@;@kGk 9::ƒ: 9@:@9 Aqkƒ:I9:9@A:k@@A:@3 3 @4@3 Ak@;@:9:@4A@A:@@9:@: 33 3@3A@:@A:@:@@;@::@:@: :@9ƒ:+@@:Ad@@d@::;9 ::9@A3 9::9 9 ::c3c3\3232ºã3@@;k@AjGk:A::G@:9@::A@AjG@:Gqq33 :qA:@j q@@:3@ƒ:)@AAjA@:9:9:9:@:@3@:3 9 9 :3 k:@e@@A@:@:@@„:39:@::9:9A@j@@;@@: A@3A:3:9 3@Aj @::33 @bb3\332]9»ä<@;@G@kA@:93G:@j@:AA:@::@A,@:@GkG:@k Aj@AA@@;3@@3@:93 qAk@ƒ:::@3 ƒAL 3 9:3:9@:@@A:j@::@;:@:9@:@3@ ::3A:A:A@:@:3@:j3A39:9 :Ap: :@  9::c3c3b332¼ã:ƒ@ kAq@A@3qƒ:A@k@@9ƒ: GkGq@Aq:@A 2@ƒ:$9@@:@@:3A4A3: 9 :A:@@33AA@::2@:9:ƒ 9:@Aƒ:@::@:ƒ@ƒ:3:::9:@AjA@@k:@:@A:: @3@: :33 @ :93 9 ::b9\]3\32¼â:@:A@AjAGj:: 9@Aƒ@1A@A@3qGqAk :@::39::AkG3Ak:k@:3:93:3:k@G:AA9@ƒ::3:339 :@:@:@:@ƒ:@::3@ 9 :9:::@:k@@;3::…:93: @3 3 3@:A3 :3::8]9]9],¼âf:@::@@AjAA9k::@@:k@:@A qGkGq:@@:@: ::@GkGA@::@3:A ::9@::@39:@A:@93@A3 9 ::@:@:@::9:@@:A@A@3 3:ƒ:@:Aˆ@":99 @3: 9:A@3A9 3:@:99 :bc9\3\3,3¼ãƒ@Nk@@AqG@3 Aq@k:@AjAj:qGkG:qAqA@c9kAqAk9:::@:A:@3:9:@3A@ 3 3:@::A3 93 :9 ƒ:A@@:@: @:@j::3 99::@::@@:Ak:@;::9: ::@: : 2A@9A3j:93@:8c3]92323¼ãPA:@:A@kAk@:AjA@:@AjAA@A:@Aq @:@:]:  q@:@2c2,3 ::@:3 :9@:@:@k:@A3 : 9@3 39:@ƒ: 3:@A@:@:A@@ ƒ:02A:@k@@A@@9:: 3@@: 99: A@A939:3 ::b3c\23]½á= 9@:A@jAkGAk9AGqAA3A@AjA@:@3: :@:@@:993 93Acc3cc]c3:@93:@4@3ƒ298:@@3„: 333:@:@:ƒ@ :@:@:@k@:3ƒ: 9@:k@:@3@:@…: @@:ƒ@:::93A9 :A93: 9@c8c]832¾á ƒ:@::@:9GGkAq@3jA@::@: :9@:9]ƒ:p@@cccŽcc2c:: @ 9322c8cbk@ 9:333:@:@:@A@A@:AjA:9 3 @: @:@@::@:@A3A@:: 3@@;@A-@A9:9 9:3@:39::i]3b922]½á9@::@@„:3@3G@@A3:Ak@9::33@@A@AA„@Q: ::9@k:Aq:3:3A@AkG32c8chc]3223339 99 @:@:@::j:@@A:@::9:3 @:@::@::@@:@@::3@@:ƒ@:3:9:9:3 9 :3 3 @:ibb9\23¾à :9:@ƒ:U ::93A@:@:@GA9@G@ qAkAj@k@::G3@ @:@AqAG:3@ 2 @323,2c]i™““9;933 4@A:@::A@:@AA33@Aƒ: @:@:@::@:ƒ@ :AA@:@@:@@ƒ:@: :@ƒ: 3A9 j:39:@cc8c23¾à9::@@:Gk9:9GG3@qƒ:"@:qAkA3qGqqGqA:A:@k @3A::AA:9 AkAƒ:92323ci’ihb 3@A3 3ƒ@ :A@j:@:@:@ƒ:99:: @::@@:A@:A@@d@k@;@@A:@:@:@3::@ 3A9:99:39 @cbi822,3¾ß:@ƒ: A@k@AAqAq :Aqƒ@ :A@A@AqqHqqAƒq @:Gqq::99ƒ:@@4:F:A@9 23]cŽ“iicb 3@34„:@jA@A@4@@:@:@ 9@3 9ƒ:@@:@:k:A@:@@:@:@Aƒ: 9A:@A@:A@@ƒ: 3 :@chc2322¿ßƒ:@:ƒ@ AkGkAq9qƒAjA@qk@AAqAqHqGGA@@kA A@: ƒ@:9ƒ:-9A@k:3 9@Ži“’i29@:A949: @3@: @AjA9A:k@:@::@: ƒ:@:AdA„@:A:3@::j::@:@@:9A:@9ƒ:A99 33@:ib9b22-¿Þ2 9@::@::kGAqA@:GkGq9:A@k@Ak@qGqGqrk:k@AA93@@ 9Aj ƒ:;9::@A@@GAkAqci]h22:@3: 3@::@:@A:@:@A@:@:@:9: 9 @k@@A@::Aƒ@A3@:ƒ@::3 :@3 3:@9 9 9@@cb23232¿Þ ƒ:`@:@@:k@ApAkGkAqAA9@AA@kFqAqrkGq@A@AjAAq :3@A@k9:9Aq@::q@G9@k@ci22 3 : 39 :9@A:@dA:@3@:@:@::9 3ƒ@:@:Aj@AjAjAk@:@†:  393A9 9ƒ: 9 : 3:“b9ƒ2,3¿ÞV9:@:@3A@GkG3@A@A@AjAAj@qAqAGkGGqr::qA@ :jA9kGkAjA9:G::GkA@:AkAA@AAbb323:9 9A4@:@::ƒ@4@:@k@3 @:@A:A@:@Ak@@A@@:@:3:9ƒ::3 A9A3@@: 3: 3@99\92322ÀßY :@:@@:qA@qqAk:A@@A@A@AqAAqkG: @@Aj@A@A3AAGj:: @:@:@qG::FkG:j]cc8922:: 3@3:@A@:@::@„: @:@:@::kƒ@ k@AA:@kA9:9 @ƒ:A3 9 @9A9:9 3 99\9822ÃÞ@ 3:@:: k@kGkAq 9:@kAj:@k:@k@kGqG3@@:AAj j:jGkA@:Gk: 3::@@kAq@:ƒcƒ“28 9:3:39:@dA@: ƒ:9:@3::ƒ@ :q@kA:A@@k@:@A9: @:: @3@ 33:3 ƒ:3:9 :39b9,3ÁÞ…: 9::GAq3ƒ:F@:9A@qA@:A9@@qrq Ak9 jAqA@Ak@GAqAG9::A@@:@AkGŽ“di’ic23 9 33: ::@::ƒ@:@ 3@ƒ:@A@@A@:k@@:A@:@:3@ƒ:@99A: 9 9 2 9:@ 3 3 99bƒ2 ,ÁÝ 3@:@:ƒ@NA:kGAG@:9@: @AAjA@: :@rGr kGA3: :@@: Aj9Aqk:@@:@kA::F:ccc“ih99 :3A:@:9:@ƒ:@:3 ƒ@4Aj@;@j:@@Aj@k@@::@:9 @ @:@::3A@:9:3 3339:2c83,32ÁÞ^9 ::@@:3 pAq:@@::9:AjAA:9:@rGqq :@k@kA9::@@:3: qAGG:AqA:q@33ŽccŽiŽi“bc39:Ak@@::3:@A@3@:@ƒ:3@Ak@A:@:A@;@A@e::@3@::99A3 9 @94::9 3: :99b22-3ÂÞO::@@::@:99:3:@::A::9A@@:@@kqqHq @AGA@A9:k@@:@q@k9GkG@@AqGccc”]8ci82 :9AFƒ:A9AAk@:jA::9::@@A@A@jA:@@k@@:@@9:@ 9: 3@A3 9@3: ::9 3: 3:2322ÃÞC 9:9::::@G kG@@A3:9A9A@-AGqHk9A3@:@,:@:9 9:@A@AkG:kGkAjGAkAAccƒcbbib:A@A3@ :9 3:@ƒ:9:@ƒ: jA@:A@@A@A@:@ƒ:"::3:: 9 @@3@ A39:49 3 39:8c2233ÃÞE :@:A@@A@:3 @kAk9 :9:@3 q@kAAG:3@@:9:9: :: 9 k@AkF@ qAqG:k@:9@A: 39ƒc 83@Aj@:@: ƒ:@ƒ::@99 3@A@@k@kA:jAj@;@@:9:9 :33 k 3 3A949 9 99 :99b2,3ÃÞ„:B@:9::@A@3@9 ::9::A :A:qqGjA9 :@::@:3@3:A3GAjAAk@9AqA@AGk@k::9:]iƒ2 A:@4:@@ ƒ:9:9::9 @:9A:@A@k@A@A@d:: „:3: 3 @9A99 3:::339:8]23-ÄÞy9 9@ 3:Aq:@k:3:3:9AGAj:Fk@GqrA@ j9 :@@33AG:@@:A@3@AA@9AqAjAGAA3@:G:829c@:9AA9A:339@:::::Aj@:9Ak@@A@:k@A9:3:93 :@ :AA9 k93 3:3: 948822-2ÄÞT 9:3@::@Aq:@A:3@ kkG::3GAqAqqA9::AA3:]c@@k@: j:@:q@k@ ::@@kpA@A@qA@A22ch:@j:9: 9ƒ ;2 9:@AA9A@@Aj@A@@A@: :9 3:@9 3:@j@::G39: :9: 3c832323ÄÞ 9:@A @@39:9ƒ:y :@::@9:9 @qAqA@A99Ap 23@:9Ak@AGA9AqAAj@:@:AGkGkAqAq3Gqc2:@:@:: @33@ , :9@:A9A@:@Ak:@:j::9: @9@: @33@499::@ 3::99\8323ÅßH 39 :@-G::9:@kAq::9@3AkGAq9 39Ak ]23@ AF:qAj:AGjAA@:@:@@kG@kGkAAqAƒqE 9:: 9A@A3::@@3:A@94@AjAA@@A@:: 3:@@4 A3@3 A9 39:49:3::93b92-2Åßf9:@A3::9:k 93AF393AG:33:3qGAkAA9A9 \33:@:9kG3@A@k@Gk9Aq@::@AjA@qApAqAAGqrGqA3 @j39::AA9:9 ::@:@k@@…:$@@:@:@@:@:@ @k@A ::9 @3:3 :8\2323Æßb: 3333 A@3AG9A@ :@ :3A:@::q@G@kA@4 99: 3:cc:A@@ k@A3AAkG@kA@kA@qAGkGqk@@;@GqkGAA49 9@3:3::@A@„:(939@:@::@:@:3@::3@A2@9 :333@9483832,2Çàb::::A @jA9::9:k9:@A@3A@A@@:@:qq:A93@33@A3cqAj::@A39Gq@qAq@A@q@GkGkGkGAqq:AqGq@3:@4 9:: @AjA@ƒ:@@;::@ƒ:9ƒ: :33A@433@3:92c2233Çá ::9kA@Aƒ@&::@:qA@q@k@A9:qGA@A949AA2A:cGkGqA9 ƒ@U AkGkGkG@AkAqApAqAqGq@qGkA@qrGGkG3::9:@A@::@@:@@:@:9::9 @3 3AA9 :93 :3:943823,3Èá 3@A:@Ak@3@;::@@:@AjƒAt@kAA9AkG33: :3]AjA:]qGkAA@9kA@:9:GkGAkk@@AqAqGqG@;qHqrGqkGrq:@krG@A@@:@:@:@:@;:9@9::@: 3A@9Aj39 : : 3:9 b232323Èäy@ @@Aq@@:@:3@::@:jG3qqAAq@qG 393\9]GA9:]:9 @@: kGk@3@:q@qGqAjA@A@kAqqGqGqrGrqGr:GqGr@@rqGqrqq@@:@@: :@:9 3 9 3AkA 33::@ 93:3832-22Èä3j:kGA: ƒ@,::@:3@A@:@AjG:@krGAG3]@@kA933cc:9AkA:3ƒ@MAkGqAAqAqGqGkGkrGqGqAqGqqHq::qGr:@qAGAk@A@A9Ak@:@3 33::G93: 9:::48]3\323Éä2332„:"@::9A@A@:A@k@@Ak@:GAjqA@3 99A@ cc2„:9AAp::@A:A@@qAqqAjGkqrGqGkGkrGrqrGrAqGq:qr9GkG:@:Ak@:@:@ƒ:@q 9Ak:@k: :9:9 93 32]2323Éå223::ƒ@1k: @:A9AjAj@;k@@:qqAA::qGqG 3 :9 399::@AjA@AA@:AjƒA(@qGqAqAGqkGqHqGqqGArwqqAqGrA@rAqA:k@@A@jƒ:@::@3:: @@:9 3@:: : 382]3232Êæ(33\:949A @A@@k@A@AA@AAk@GqAq@GkGqAjA9@kGƒAƒ@3A@@:33@@A@@k@A@AkGAqAqGkGqkGkqAqHrxAqrwAAqG jG@A@j†:@:@:AqAqq:A3@:93@3 3932232Ëæ+2]c:@9:@:j@k@:9Ak@q@jG@AqAAqAjGkGAkG:@39Ak@ƒ:kAA@ 3@Ak@Ak@k@AqkGkAGkGqHkGƒq)GqrwAqHqrqGrqAqkqA@A:9@9@qH@:qGqGq@ ::ƒ 3 282]3Ìç,3@ 3A@A@AA:@A@ƒATkAj:AjGqAAq:@AqArGr@@:GkGq@k@@3 k@@AjAA@k@@GkGkGkGkGqqHqAqr@AqGrqGqAqqGqGqA@kG9AqrGAƒq:A 33ƒ:3 393 2c3323Ìè"32-@3@:9:k@@kGjAj@9:@AG@kAqAq:@kGƒqZG49GkGqGA3A@3A9Ak@GjAqAAk@qGq::GqqArqrrGGAqGqrGxGqHqrGkGkAAqGkGqrqAA@AjAG: 939:39232]32Íê#,2 kAk::A@:@AA@@A::9AkGA@:G@kA@qAqHƒ:-9@kGkG@3:::@AkAA@q@qAA::AGqkGrGqHqGAjqGrGqqAƒqHqArqGqqAqGqrGAq@:qAkA@@A:@ƒ: 923232,3Íì^Gk@:@:9: j:@:q@@:G::@@:9:G@kAGqq:@G:@:@kAqA@A@9A@GjGk@AApAq@qAqGqGqGqAk@AqrGkAGqrGrAqqGrGqGrqƒAqA@AAkGF@:k9:@@:: 223233ÎíG:@ 9@A@:A@kGk@AA:@:jA@A@:k@AkqHAqq4::@AkGkAjAq9AkGk@AqAqAqAqGkGkrqAkGqƒA.kG@qkGqAqGqGqAqqrGqAj@Aj@jAqA:jA:@AA:9 383233\Ïí@9@A3A@k@k@@3AAj@k@@AjA3ƒ@%::@GkqA9G99:@A@qAG@:9@AAqAj@@kGqAqGqƒA.@qAGkqGqAq:GkGkGqqHkGkGqrA@AkGA@Ak@A@@:@@99: @ƒ23223ÏïY:@:@A@:AA3@A@Ak@ qqA@:A@:@@qAqGqAqrG:9qA@kAq::@@ApAA@qGkGAkAqAq@AkqqrGk@:AAqGq:GkAqAqGAƒ@ kGqkq:9AjA:@„: :39832]3Ðð @@A@@:@:@A:Akƒ@U: :: ,:9AkAqGrAkrGqqGqAqAGjAA::@:A@k@AkGkG@A@q@Aq:AwGrqrGq@kA:AAkG:@A@kAkA@k@A@:GqG@„: @ 9 223]23cÐï k::k@@::@j @„:3GkGkƒ:@@AqqGAqGAqAqGAjAAG9@k@qA@@Aƒ::Gkq@@kAqr@AAqG:wrqx qAjAF@kGk@A@qGkAG@::A@3::@:33 223223Ñð3:G@…:;@::@@9AGjA99@ @3 :@rGqAjA@k@:kGA3@j :A@AjAk@kG@@:Ark:9AqqGƒq:AGA:qrwr@:qAkGqkA…@kG::@ƒ: 993 29223,cÒïr @kGk9:9@A9:@A:9:: :9 :A@k3@::qGqqrGrGqqAqAA@9Ak@A@AqAqAk9qqNq:AGq:GrG:Gkq::GA@@rqGqA@A@k@AdA@:@:G:9: 9 2233,3Óð@:@ƒ: 93::9:9: 9:9ƒ:N j@A@ @@::AGAqqGrqHqqAqA9:AqAjA@qGqqA@@rGqAGkGqqA@qAGF:kG:@Ak@A@jA@A:@k@@:939ƒ: 3 2322,cÔñ :9@::@ 99: 3 3ƒ@:AjA@::@::kqGrqGrqGr@@kA9:FA:ƒ@:@rqqAkG:qqAqA@AkG„q A@k@AjA@k@A@Aƒ@„:9:A:9 2923,3Õò343:9:9 9:9:@9 9:9:@A:@@4:@:9AqGqqGrqqrAFA@@:@k@ƒ:!@A@3rGk@AA@q@kGqAqA@AqGq:A@rqjAj…:@:9:3: 3223323Ö÷. 3 3@:9 ]3]339:3c:@::99:@:GrGkGAG@qqAk@A:@@Aƒ@kqHƒ@qGk@@AkGkGk@AAkA@@AjA@@A@@:@@:@ƒ: 33 223]c3×ø 39cc]c2c]2c2323ch3@::@ƒ:@:kGqAq:A :G@::kA@jAƒ:3@@rr@:@AkAjAA@:@AkFkG:kA@qA@@;:@A::3:99: 3 223]2]Øøc]3ƒc]32332]cbic@A:@: k::@:„q :kG:@„: qA9 @: :@Aƒ@ Aq@@A@@A@:@Aƒ@:@:j@@::@:9: 9 32223,3Ùø]c,3-22323]3cb9]@:AjA@kGƒ::@3qG39@@9 ::9:rqq‡:@kAkAj@A@j@;@A@ƒ:@ƒ:9 9: 2232-]29Úø„322-23„2]8cbccŽc:@A@A@93Gq9::@ :: 9 Aƒ:9 …:q:9:@G@ƒ:9A@kAk@A@:j:AA@:394 3 223239Ýø‰ 323]]c32icc„@$k::k:9:::GqGk-933@A@:@:3::::9Aƒ@G:@@:9ƒ:@::9:9: 39 22232,ÞøŠ3]cc]38223c3;@;@@“>8\@:F ƒ:@:GqHq9:9:9Gq 3@A9ƒ:k@:@@A:@:9A@:@ 39 3 22,3-c3ÞøŠ23…c8]c2cc:@““8cc2:Ak3 @:9…:-@GkG3:: 393Gq @A:@9:9:499 : 39 2 3 223]3âøŠ 3cc2c28]ƒc+bi2“b9293GF3F3:@AA99:3:9 @@:333:3 @ƒ:::3 3222,32æøŠ4232cŽc2c8]c“i““8cbi’2 kc™AA@kG9::AA@:39 33 3 3 3 ƒ3 :@ 3,3323æø‹H3]cbi283hc““h829ii“2:9A@k@:9cb39A9::@::9:@:9223 333 22,223,33233éøŒ2ci“28]cih“9cb2b“ichci:“2ƒcŽ3„23 382323]83-3,32322íø‹2]c22chb“ibb2i9,“2™“8“ib]c3,ƒ]9]3ƒ222]3\-,2,323óø‹ ]9bciibii8cƒi,2i8\ii“b23,-ˆ2232„3,2c3ø…ø‹3]b9b8cchbib2c2c8,88323]Œ33ƒ2 23øˆøŒcbc8]8““ii’iihc2c]]323ø øŒ33bc8c88“bci22cc]3ø¢øŒb]c8c2ic“bc2-cc,ø¦øŒ]9b82chih323c,ø¨ø ]3382,]2,32øªøŽ 22]c3]32ø¬ø323]ø¯øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/ - ½é/ |ýL#Ë |ýL#- É É É 2 Ì /Ì,M¶ËÌ,M¶-âÉâ2â /îN¾ËîN¾-k¬Ék¬2n¬ /n¸O1øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø]2ø²ø’2ø±øøÄøøÄøøÄøøÄøøÄø¡]ø¢ø—23\‡2c]ø ø—233‡3,2øžø¦,cøœø]c232¡2øšø2]c2]3¡33\ø˜ø„2-3\3¡23,ø–ø„32,23]£3c3ø”øˆ322¤ƒ2ø’ø‹3¥]3]øøŠ3c22Ÿ2 ,22øøŠc2ƒ3,œ 39: 3 ,33]øøŠ 23,3\232,–22:: :9 3222ø‹ø 3ccc323\22,3: ::9 :9 3 3]3ø‰øcdƒc ]c3]33,32,„]c3]392::9 9 33: 33 9ƒ2ø‡ø2cc,c]c]c]8]3c]c322]c]cc2 ::9:3 :999333 ]]cø…øŽ3-cc3]9]93c2]9]c]c322c]2:3:9:9 :9 93: 9 9@932øƒø.22]2322c]\323\329]332 3 @:@339499 93 39:@ƒ:@3:3cøø63cc3]323]3c3]\3c\] :@3@@43:3:3: 9::@@::AA99:,2÷ø8c]cc3,322c\c92]3c3 :9@@AA39 : ::9  33 3@:@::@9:@A 9]cõò:@“:2]32c2-32c]c]c @:@:3:9: 399939:9:: 3:94@A@: 9 23óñ:@“23,c]ƒc/-8]c]3c] 3@: :9:@: 34@9:3 :@9 9:3::33:93ƒ: c]ññ @’.2332c2]c]23cc]cc 933@@::@:::9 :@: 99 :9:94@ƒ: 3::: :@:ƒ@:23ïï: 3@;323,33]cc32]cc 33A@9A::@:@9:9A: 3:33:A@@ @A@9 9::9:@@…:32]íî :@9@:Œ/2c]3\3]cc]c]cc2@@:9: A394:@A3::9 :9:9AAj@9ƒ: 9::9:@:43ƒ:@:@9íí @@A@:: 3: ŠB3c2]322]323c29::3::A@::@@9 : 3 9::9 ::AjA:: 3 :9:@4 :3A@3:9ƒ:@@3êì :@A9:@:@ 93Š42cc33]3323]323 @:@@ k@::@:: 39 j@:9: :@3::A9:9@33„:jA9ƒ:@:@@ƒ:93èê:@@ ::@4@:@::Š3]3c\]…c79:3@A39@A9AA9:AA::999:@::@9::@3 93:@ @:9A: 9@94@A3…:@A:\æå:ƒA@@:A:ƒ@Aj::Š2]c2]cc3]]3:: 9A3@:: @A9: 3ƒ9@;9…:!:::39 :3A@3:3@;@93:A@9:9::ƒ@3ää A@A@ 9::@A9ƒ:AA@::Š cc]3c]2]c2 :@9 9:@A:@A:3 9 : „:@ƒ:9ƒ:#@3 3:9: ::9:A3 : 3A jA:: 99AA@A92âá:@Ak@@;39:A:@:k@kG99:ˆ2]c]]2c3c2:3@: k:@A@:@39:9: :9:@::::@@::@99 3 9ƒ:99:3::9@:@:::9::@A@@k:9A93àà ::@:@@Aj 9:@9@:qAFAj:Aˆƒc 23]c2]:@A3 ƒ@5:: :3:: 99:: AG:@:@: 3 343@:4@: @9:: A:@9A@A9ƒ:9A9ƒ:@A@3ßà9ƒ:@ -9:@::@@:k:9A@ƒ:@@:9„]c]]3c]339A@@::@::@@:@ƒ: 39:: :@@9:@A3::939:333ƒ: 3:9A:@3@:@A:@k:9:9::@A@9A@A9 @Ýà::FAjA@A9 3::@:@A@@:@@9ƒ:A:„]ƒc23\c3ƒ:?@:@A:@:@::9A@:@:A@kA9::@:9 3: 9: :9:9@::9: @:@@:93:@A@3A@ƒ: ::9A@@3Ûß,@A@kA@AjA@A9 :@Ak@:9AkA@@A@@A@]92232]3:@4@„:ƒ@A@ƒ:*9:G:@:@A@AGkA@@::9::39: :9: 3@3A@::@:A:3ƒ:A@@3:9:A9::9A@3:9A@A@9ÙàNAqAFkA:@Ak@:@:@3:@A@A@@Aj@kA@k2c3]c]:@ 39:9:@@Ak@::9:@@AkG::9:@jA@:@:@34::9„: @ƒ: @@:9A@A3@ @@„:949:@;@:9A@:9 @k9: ::×á 9A@k@A9:@@ƒ:@:@AjAkƒ:@A@k@ 9]2]c9A 3:A:@k 3ƒ:"A@qAkF:@:9AA@:9::343:9 3::::@ ƒ:@A:93@:Ak: 9@:9A@:9„:9:9ƒ:@ ƒ:A@:Õá::9A@k@A@::@:9 ƒ:9ƒ:@ƒ::@ 3 cc]cAA@@3:9A@kA99::FkGkAGk: jA:@:93::9 9 3 9::9::3::3ƒ@ A::@:@:3:3ƒ@ƒ:;@9:9@A9 :@A@:9@3A@@:Óà:@:A@AqA@:A@3 9ƒ@9 9ƒ@ :@::@:: cc]ƒ@3::@A9:9@:GG@AjGkG9@@A3@ƒ: 9 :33: 99::@ 99:Aj@@„:@:3ƒ@„: 9::3@A@A@ƒ:9 ::9:A3kA9@ :Ñà :9@AkFAj@k@A„:A@…A@3A„@:@ @::3:@9::AqAqkA@@A94@A3„@! 4933:9::3@ 3:3@::3: A@@3A@:@@‡::@::9:9A9:@::@39@AA3:3A@9 Ïà3:@A@@:@A@Aj:@ 3:@:AjApA:9Ak:@:943: 9:@::9:AkGkGA@kƒ@0k @k9:;9:99 93 939:: 9 3@;9 @::@:3A@k@3:@@:@:„@:@@:::A@::9::9 Aj@:9@Ak::ÍàU@@A94@qkAG@@AF :9:@Ak@:99:@:A@AqA9:@:::A@qAqAq:@G::3 jGA3@@3:: : 33 9:9 93A@4:: ƒ@ 3:@@A@ A@A@Aƒ@":@A:A@::A9@::9 9 @33 ::A9A,:q@2Ëà::9ƒALGjAkqAk@@:@:@@A9::@:3 j@@3 @::9:@kGAjAG3@:k9:@A@Ak:@:39: 39 39: :3@;@ 9 9@9ƒ: @@:A33@@:3:@A@:Aj@3::99A:9ƒ:@::@A@3:@k@ :G:3 93Éà@:::@k@@k@AApA::@ƒ:@@„:5 @A@;@@::A@AA@k@A@:3@@A A@k@A@A9:@9 93 3 :9:9: 3@„: @::@:339A@:3@:@k:@39::9 9::@A9„::9:9:3A3G@3::92Çâ)@@:@Aj@:AjGkG:@:3 3 :9:3 @k@3:@A99Gk@k@Gƒ@6k:AAq 3@AjA99: 3@3 : 33::9 3:9@4 9:3@:3:: @:339: @@ƒ:9 A9::@;ƒ:9@@::@399 A@ k j:A :3 A3Åâ::@::AA@9AG@@k::9@:Aƒ@R:@@:::@:@;qG@:@@:Ad@A@:@q 9Ak@9 9 333 : 33::9@: 39;@: 3::@: : @: ::3@:@A::†@ƒ: 9A@:@3@A:3Aƒ@9:99 :92:993ÃãG@@:@3A:kAkA@@:@9:@;:@Aj:Aq:@3@@ql@A@A,@:A::@q 3A@939 94 3 339:3::@ƒ:3A:9 :993:9 @9ƒ: jA9A@@ƒ:@::A:Aƒ@::@:9„:3:@:A@39 ::3 33 32Áãl::9:939@GkGk: q@3@3 kA9Aq@ ::@lGq@@dGqG:9:@3 jGk39::9 3 39 3 :@ @A:@:@:9:: 3:::93:: @:@@: ::9:9:@@:@…:!@::9A@:9 A@:9: 39:393 3 9:9::8c¿ã- 3 : 3 :@kFAqAAqA@:Aq@@9AA:9@:AqGkAAAqAA3: ƒq$3: 3::3 33 : 9:@ 3A@:@A:@A9::9@@ƒ:3 3@@:3::9:::„:9:ƒ@Aƒ@3@@A:j@3A9 3 ƒ @ 3::@9:A323½ã@ ƒ:C@:AAAkF:9@A@A3FAq Ak9:@:GA@qG9k@@r@kGqGGA:9:@ ::933 3::9::@@:ƒ@:@3Aƒ@::@::9@:9:3::@„:@::@@99A@A:@::Aƒ:9A„: 3A9 333@9 ƒ:A3 ::22c»ãa @ 9::k99Ak@@AjA@3:9 @9:@:@@k@rqr@@:@qrqr@kGk93::3:9::@3 93A :@@:A93A:@3A@:@: @:@@:@:9: 3@@:ƒ@:@@:@@:A„:(9:3::@@::9@@A@:3 @ 3 : A@A:93G 32]c¹är:j:::9:9A@:@@Ak@A9A3:3@:A@:AqqH:@A:AAqGqGkG9:@A339 :: 3 9@3:@:@@A@;@@3 @A@;3@A:@A:@:3@:@:@:@;@@;@@::A:@@::@:9ƒ@;@@A:A::3: 93 33ƒ@ 3 3Aq@A223cc·å::9:3Aƒ Y@A@:kGAjA@9 @@:@qA@qA::@@kGkGqG:q@A3:9A@@3:94::9 : 3 @:3A::@jA:3A:@3@:@:@:3@:@ A:@:A:@:@„:ƒ@::ƒ@+A@:@3 :@::@:j@39 93:  3:::A@: j 282i2]2¶æW: @A@k@-9A:@kA@A3:@A::AAqAA@A@@kGqA::qAG:A:3@::::F:@ 39 9:: @@:3@:@@::3 @:A@:3@:@3ƒ@/::@:@3:@:@@;@;@@::@::@;:93@@::@:@A3 : 9 39 9 3ƒ:9 G2 ,“icc]c]3´è:@ ƒ@)33 ::@:9@9A9:9AjGk@q@@;qAqq qAAqqA93@Aƒ: AA@:@ 9:ƒ@j:@3A@:@;@@ @::9:: @::@:;@:3…: 9::@3„:)@::@A@:@ Aj::@A@:9: 3 3k9:@ :@3A3 2,ƒcc22²é"@:@e@A3:9@3  :@::9@AqGA3qA@qqHk ƒq!Gq33:@A@j@:@k 33@3 :@;@: 3@:@3@„:@@ƒ:@ƒ:@@„::9@: : ƒ: 939:@A@::j@„:(9:j:A99 3 3  3G3A99 3GAA2 ”]cc,33,°ã2]„K@k:@A@3::@:G3::@A:9AAk9:A:@A9qGAqGqA:::9:@A@A@q 93 ::@9A@@A9: @:@::@:„@:ƒ@;@:@@:@@:@:@:@@:„@6::@:9:@;@@:@49;:@:: 33 9  33 :A@: kpA22Ž2c,c3“2332]®äJ]9\2 :@@A@@9A:9@::AjA9 kGA@@AkGkH:@kG:A3GAq ::@Aj@k@33A9 9::9:A:3@3 3@ƒ:ƒ@;3A@@A::ƒ@A@:@:@:@:@:@:@:A:@@„:@@:@@:@A@:@@:33 : 39ƒ 39@:@3A 22323”]”2”¸232c¬â$23]c3,23,c@A@A3:qA@A:Apq4@@kGƒqn:GkA@q3A:@@:@;@@: 3::A@3@:@A3@:A@::@@A:@@3@::j9@A::j @:A:@@:@@:@A@:@;@::93A@:@;@@3::A@@3: 3:39:3 k@@j:3ƒ2”c””„,3]¬â]c2„R32-23c jAjA@-: kApAqAGq@AkGqH@A3:@::qA:AjAk@A:3@:@@3 @::@: @:@@ : :A23::@A93 ;ƒ@":3:@:@@;@:Ad@:@dA@:@@:@::@::@:A9 @ƒ::9 3  2G3@A4A 3@ 232”2,”„33c2]2©å @…HcccA@A@k:@:9AqA@AqkG4@:rGq:k:9 3Gk@:@9A@@:::@A:9 :@A::3@A@:3 9Aj 9„:@:@ƒ:@ @;@:@:@:@:A@:@:@@:@:A@@:94ƒ@$:3@@:@3 9:3 92 3A3@G3 @A223,3c””]„\32]9232§å:…cc]c]cAj@A9:@: k@q@kGq:ƒ@5:@A3::@A:9 9:@@:A@k@A3@@:33 @@:@@3 9:@A@3 9:@@:@@„:D@;@:@:@:@@;@:@A:@;jA:@@:@:: @k@@:A@:@:3: 3 3 3 3@3: 93G3@3322Ž“Ž½cc„233]3]]¦ã:99ƒbc]c]cc]c3@AA9::@3A:AqGq::Ak 2@:@99:G3A@:@kAA@3 :@3 3 3:@k:@:A@::9:9A@A3@::@:A@::@3@@:@j:@::@j:@:„@:@@;@:@:@3@A:A:9@;: @39 @9 9„ 9A 3@: 3283c”3†223c]9¥ä:: ƒ*]cc]c23c::@:AG3: 339AqAAq:A@9 @@AA: :Aj3:ƒ@k@:@3 3 3 :@@:@@:@„:T393@:@@:A@:@A: @@;j:@;@@;@:@:@e@:A:@:j@A@:@3 @@j::@@::9:9: 339kjA9A 232, ””232†,3232c]¥æ+93c]cc3232@3@3:q@::@:qrGk9A9 :3AA::@k3Aƒ o@::@@::@: 3 @@94 @;jA9:9:;:@ 3:@@-@:9@@A:@@:@@:@:@@;@@:@:j@:A:@:k:@: k@;@A3@949 3: :3 3G4@A3:32233,2Ž33,ˆ232]2¤ç]9]3cc]3,3]c ::3:@:@A@;qGqA@ƒ:GAq@j@:GA@kq:: @:A:@:@ƒ:1k:@9 2 :9@A@ A3 @:A: 9::@d@:@:@;@:@d@:@:@;@A:ƒ@;ƒ@:A9@A@:3@ @A@: @3 9 kG9A9:ƒ 2232”c2ˆ-2]9]¤ã$: ]A3 393c]cc :9@A:::@qAq9:A99ƒqA@:@kq@@A933@2@AAƒ@: 9‡: 3@:Aj@9:ƒ@J3:@A:@:@;@:@:@;@:@:A:j@:@k:@j::A@:@::@: 93AjA93@ @:3 3AA93 :33 23223“”cdŠc2],£ã'@9@A:Aq@:@,2cc]:94@99Ak q:@4G9AA3Hq:ƒAwqG::@@G@:k::@jA@k@3 : 9:@9::9 9@A@@:@A:3 :@:@@:@:@:@:k@@:@A:@@:@A:@:@;@@:@@::A@:3 3 @AA:3: 9 :G394 3 322 ,”Ž¾9c3ˆ]32c£â9 Ak@:@@:AA@@4c3]32ƒ )@::9::Gq@3j :9A@qA:q::@:3@:@:@A@k@3 ƒ@:A@@:@:A3@3:33@ 9ƒ:>9:A:@::@:@@:@;@:j:@:@:@@A:@@:Aj;@93@: 9 :2:@: 993 39Ak @:3 ƒ2 ”2323]“3Š2c]£Ý02,2:: @:@:qAp@:39]c]23233:@A::9AqHq:Aj@A@@A@ƒ:@:A:@9@@:@AjA@A33:@AjAƒ:ZAjA3A@3 : 39:@@4@:@A@:@:A@;@:j:@:A:Aj;@:@k:@:@@:3::@:9::@::@A9 9 3 q@3@3 322332,2Ž“332‹Ž¤ß 3:9:GjAAqAƒ:J99 cc]239:A:FAqA9GkAAq::A3:@j:@q @:@k:@::@@::@@ 3@:@:@::@ 3:: @::@@Aƒ@3A::@:A:@j@:@:@:@@:@:@@k:@@:@:: :@::3 @:@@3: 3 qƒA9A33923,3c3c33“3°ày2:A@kAAkFkGq93A:9 cc3:@A9kA3G3AqA:qGA@j: @:9:: :9@A33A@::@A@A:@:@3:@@:@@A9 :3 @:@ 3::@A:@::@:@d@::A@:@:A:@@A@dA:@@;@A@+:@@:@:@3:93AA2:@AA9:Gq@k 9A3 23232cc]2]]“3°àM3:AjA@q@AAqG:3 :@@::A3@@Ak:@@:3@GkGqq:A@q@A 39 :AjAG3::@@k@k@:qA@A:@A@@:@A„@S49: 3@:@3@;@@:@:@:@@:@:@:@@::j:A@@:@:@::A:@:@:@399AA@339:3k@93A3 232332]ccj,2°áy@@A@kGkGjA@::@:AqAj@A:@k@@  : Ak::Gk@AqAAqq:9: jA9A@:9:AA@A:@:AjA@@::k@:k@33A3 @:9::@:A@@:@j:@:@;@:@:@::AjA:@@:@;@@:@:9(::933A@3: 9A@@ GA@:@33@323“””cŽ²á\Aj@A@AjGAk:9:9GqAqA@@:A@3Ak939Ak@AF:@Aq@AkGk:3: A3j::@:@k@:@:GAj@;9@:A9:: @39A::@A:@@d:@ƒ:8@:@:@:@:@:@:@:@:A@:@:@e@3:9@:49@:A3:399A:339A@A3 32„3,”]c2cc3°à7 :A@:kA@qAq:@ AqAqAG:k@k@@A::3 q:@::@@:@qAq :: :99@4A„@:A@:@k9AA@j:@Ak@ 3:3ƒ @:9@@ƒ:@@:@:@:@:@:@;@:k@:@:@::@Aj:@@ ƒ:@:9 3 @9A94 9@: 3Gk@A9 : 39ƒ2,2”,3c]±ß^3kAk@AjAqAG9q3k@@k@AAG:A@A@qAqA@:@: 3:@:G::@9A3: ::@3AA@A@::@:@@k@::@@Ak 3 3@::@:@9 A:@„: @:A:@d@:@:@:Aˆ:@:@@4@A: :39A@:3ƒ: 3 qG@A3 99 22„3]c2cŽc±Þ" :@@Ak@A@qAq@3:A:@A@AjApA@k3@k@Gkƒ@yqqA9 @k@@::@A@9 9::@ k@k@@:9A9A@A::@4@:9 2 3 @:@A@A:A:3@A@:@@:@:@:@:@:@4:9:9::9:@@:@@:@A93 : 3A@A 3 3 3qAq3 :: 39232]\92Ž²Þr:@@:@@A@k@GkAA:9@A@kA@A@A::9:@@:G@@kAq kG3 @A:@AjAA@3A@3@33AAk@:9::@@:@@3@: 3 2 3 j::@e@@:@:@:@:@:@:@:@::@: 3::@A„@-:@@::@49@:@:3 :39AjA9 2 9Aq: 3@93923,2]9,2c³Ý9 :@ƒ:@::@kGqA9:AkAjAjA:jAƒ@":qkqGqA@AAq jAk9A:@9k9 A9@; :9@A@ƒ:9::@::@:9 3::A@A@@:@:@:@k:@…:@:@:@3 ƒ@:@@;@:@ƒ:%@:9 : 9:@3 3 Aj@9A kGq 3 :: 23233,3·Û„:3@:9@::@@Ak:AqGq@3AGk@G@A94ƒG-kr@Aj@9:9 jGA9A@A::93 :9 33 jA@@::@:3 : 33ƒ 3:@::@:@:@:@:@:@:@@„:73 :@:@A@A:@:@:A:@:9:3: ::@9 :99 :3A9qG: 3 9:bc2]2232·Ûƒ@:@:@A::qA:kGk@ƒA9@A@kA@3GqqrG@kG:A3ƒ:+GkG3Aj@@3Ak:@ 39@A@A:@4Ak@@:9A3 93 :@A@@…:@:@::@„::3 @::@@A:@:@:j@A@:@@:@A:@@ 9A@39: 9: :Gk3 3:bc23]”3·ÛZ:@:@::@:@@Ak993:@@AqAj9@3Gk@ApAA::qGkA@AjA9 qAqAqc,3A@k@  9: @::@j :9@AA@3: 3 3 3:@:@:@@ƒ:"@:@:@::@:9@@9@:9::@::@k@A:@:k@::Aƒ::9:3A@ 3 9 :33@ 3 9:b9c3“]¸Ú 9:A@:@@A@k@ƒAE:::9@A@A@@kA9::@:@:3A@@A@@:99:@@ccc] ::@3 ::@:@AA9::3@@3 @33 9:ƒ@:k:A9ƒ@ƒ: 9:@:::: @ƒ:9:@k@:@k@A@::@:93:@9ƒ:3 3Aj A393 3 3 9 9 9b3c32¸ÚT 9:@:@A:jA@kFq9@AqG3Gq::@@q::9:@::9 :@::@:A@3 9AcŽ]c2c3@3 3 2@A@393::9 ::9 : 3:@ƒ:3ƒ@G:A3A@A@A:9 3 9::9::@:@A@A@:@::@: 9::9@3:9 A jAA9 3 3 93 :3 8]92¸Ù4 3: @@:jA@AkGAA:qAq:Aq:@:AAGA9GkG33 Aj3:93 3]AA@3ƒc3] 9 3: 2c23@ƒ:"A39::3 39@@: 9 3:A@:3@:@k@@4 3:9…:2@:A@Ad@:@A93 ::@9: ::3Aj@ k 3 :3 9:3b3“2¹Ù$9 :3@k:A@@AjAj@3@A: qGkA@j@kAqAq:9„@:@::9A@9:@:9Aqc3 @3Aq :ƒ283h28@A@:: 3:@4@A:@A@@:@A@:@:@;:9 9:9::@:@@:@Aj@A@::@ƒ@#A9 @: 3 3 3:A@99 33:9 3 39b2322ºÙ :@:ƒ@y::q::GA:AAk@AkGqA@kA@qA@qA@ 3AkA@:@:9Ak:@::AAqA@3 @3 @:22383hccbi2A2: 3 3@:@:@@:A@4@@d@:AjA3 3 :@::@:@:A@A@:A3:@:jA:k9:!A93 :9 @939A:339 :933 b3,33ºØ 9:@„:y :@A@kGjA@kFAqAq:@AqAqAA@:9GqGk@:@::AF 9 :@q:@ k 9 393,23cihc“22 3 ;@::@:@:@jA3@A@A::9 3:9@::@:@:@@AdA@:@Ak::@@:@@9 ƒ:9A3A::: 3 :3 3 3 2-2,2ºØ@3:@:A:@3 9AqAqA9qG@kAkA@AkGqApAkAqGqqGqq:A9Akq::9Gk::39AA9:,ƒ3i“i“2ƒ@#9:@:9A@@::A@@3@Aj:3@ :@: 3@@A@:Aƒ@k@:@@9ƒ:$9::@ @::9 9A@3A 33 3 39: 3 9232-»×x :@@A@@:@k:9AGk AkA93GAp@A@AqA:9 GkqBqArAqG@kA@::9 :9: :@kA:: \ccŽh“hc83A33@:9:@:Ak@:@A:@:@:@:@:3 @:@@:@:@:9;jA@:Aƒ:'3::9: :9 3 94@AA23A3 : 33 382-232»× 9:@A9„:J9:9A@9@:9::@kA@k@kAqAG:qGqGqqGqGe@@A@::9:A: 9:A9@A9: 9ccc“cb9@3 9 :@3: ƒ@A3@@:@…:ƒ@:ƒ@::A:@:@39 @A:@9ƒ:&9:@:339 @3 :9 q@@:@3 9:9 3 93233,»×ƒ:@:9:39:@kGk:::: GkG9Aƒ@k@3GkGkHqrA@@:A@jƒ:3@@39:9AAj:GAA3Aiib2AA@33@4@A@:AjA@AjAA@: :@:3:@ƒ:„@3A@;@A@A:@::9 9A:@@:9:3A3 39 @: k :39 9 392232,3¼× 3 93@:@::9ƒ:W qA@:@:9 9A@kGkA@A@3 qGkqGq::@Ak@qA:9A@A9:3jA@:@qA9Ac3\i23:@@3 ::@:@:A@:@A:@d@@:@: ƒ:@A:k:@eƒ@/:k:@:3:@A@@;9@;: :j @ :3@:@9 93 3 :2323,2¼Ø3: @ƒ:AAƒ@q 9ƒ:U93::GkA@k@:@:@AkGqA::A@A3:Gq@@Aj ::Aq@::Gk@9Aq:cb 9 3 @@9 3@:@@:k3@:@@;@::93::@:ƒ@ :@A@k:A@@:ƒ@'A:@:@AA:@3@:k39A 399 : 33 39 32 2-½Øn33@::@G::@A9A3A@39:9@AqAF:@kAqA@qA:3::GjA3@A@4 qG:3:::G::A@::@Ac89:: ::3:@A::@A@3@@A@@:@:: 3 j;@k@:„@+k:@:@e@::@:@3@:: 9:9A@A39AA39 33 :22323¿ØR33A 9:A99::3@A3 jAk@ @ kA9@:k@AG@jHqqGAGkAk@ q:A9AqA: 9: ::@kFkG9::c]2b2, 9:: 3:ƒ@ƒ:@:Aƒ:3 3 3 9@@: 3@AA@k:A:@@A:ƒ@:@A:3ƒ:@93:kF::A@3A@ 3 3 9 923,2¿ØP: 33@@A:GkA@3:9AA9::9@Ak@A@kA@qHq:Aq@ G:@Aq:kAq9::9:@@AGk@AAk“c“i“23 93 @„: @:@3::9:@:3::@@:A@A@:@k@:@A@@49„:$A:@d@9:@:: 99 :9 @49@3: 33\2323ÀØ93A3 ::@33A939 9„Ay@9A@A@2AqrqG39 9:j:k@A@:@GA:9@@Ak@G:j@ccŽciibb :9 :@:9::@:@: @::9:@::@A@::d:A@A@@k@k:@A@::@@::@:@:@@:3 3:3A9 3 3 3 9 923,2-¿Ù9:9 99 93:9:9:9A: 3AAjG9: k@3GkGqGr939 GA9:@@:3Gk@::qkƒ:@j:@]”“di“92: :@@::3@:ƒ@ :94@:@:@:@:Aƒ@k@kA:ƒ@A:ƒ@&:@@:@A:@:A@ 3 A39 9:: :33 3:223232¿Ù 3†::„AkG9A:@9::q39AkG@kGkAA94@:3Aƒ:G:@@:3A@:GG@:9:@A …c'c“9:2:@ @k::9AA :@;:9 3@:A@:AjA@jA@A@Aƒ@;k@:@3‡:9 ::@::Aj@A3AA@ 3 3 :9 232-ÁÚ` 9@: @3 @jA993 k@q 9::@A@@kGAqA@k@A@322::993k@ 939qkG::@ jc]ccŽc]89b8A@3A@93 @j: @::A@:@:@Aƒ@ A@k@k@k@A:@@ƒ:(9:9::@:9 39 ,@@3A:9@@kG,A 33 9:38322]ÀÛr3@A33A@Aj3 :@A 9:AA9 @k q@qGqA9A93232@@A:9@ @A@ AqAqAq :9]c]]3]ccb929:@A9 39 3:@:3@:@:A:@:jAAj;@:@A@@k@@k9::9@ƒ:"@ 9 333A 3: 99 A k 3 3 :94b323,ÂÛR23@@:@AjA@3A::Aj9:@:@:q@A3 k::qqG:A3323@3:c9: 33@A@qGA@:q@:@qc39 2c]9b3:@A33: 9:@ƒ: 2:@:@:Aƒ@%A@j:Aj@;@k@::@@:@:::@@3: :@k 9: 3@ƒ9 29 998922ÄÜ2]3 :A@A: @:9A9:@A:@kA3@9G9ƒA0:99323 3 9:3 :G3k@AAk@k:Gq:@:@AkG3,c223@@9 : ƒ:@„:=9 @:k@AjAjA:A@A@@A@A::@:@@::4@:9 3A39@k@ 43 9 3 :3c232ÄÜ3233@kGj@:@::9A::q@9AG@:: AkGk@„:- 9 k : c9@:@:Aq@jAAq qAqAqAq@AA: 29 9AA3@: 2ƒ: 9:9949:@A@@;…@.k:@:k@:9:@;:A@:@@439@:9A@39 39: 39 9 9b22ÅÝ 3]93AG:3@ƒ: 9:ƒA=j3:9:9:@qGA@3 93 k@ 3 ]cqA@ 3A@3AjG:GqAq:@:Aj@:9“b:@@: 93 @ƒ 3::@A@3AjA@k@;jA@A:@@ƒ:&:9::93A3 3@: :9 A3:: 9: 3 9 ::2c22ÅÝ,c3]@ ::ƒ@:9ƒ:K@k@A:A@A@:Gkk@G33q@A2A8ŽGkA@kG:9GAk@:AqA@A9:GA@:™i2249::@:3 333@@A93ƒ@4A@@A@Aj@@;9::9:9:9 :@3 3 :@ 3@33 3: 3 9 :9 b923ÅÞi2, :@::A:9 @:@@:@@GkGqA:@A@qq3223AG:]3c\::3GkGAkGAk@3GkGkGkG3@@@c: ::3: Aj:: : @:3AA@:k@;j:@A::@3 ƒ:&:: 93 A: 99@A3A3A-: 9 :399::8c22-Äß32@kƒ@k@ƒ@=A@A9:qA@kAq:@qGA3]@3A9@3c]ccG3G@:@3qGqA :GkGkGk9A@kA3G@k@ ƒ@93 ::@3 9:9 @@A:@k@@A@k9: 9::@933 @ 92A34399::k 9 9:ƒ 9 b2ÈàI,3: @:@3@:Ak@kA::AGkGqA@q:Gkq323A@@Akb22c qGkAjAAq@A:@@:@@AjGAjAk9Aq@4 3ƒ:39::@3 : 3:@::k@A@@Aƒ:*9:: 9 33@:39 A@ 9@@49 9 3:9 3::3 3 232]Çá23: A@:3@A:@ƒ@K:@:3qGAk@AA939 @:9:cd,dqAqA@Aj Ak@@k@@::AGk@AAqG@:@ @A@A@: :@ 3 3@A@A@@:@ƒ:.@:3 93:@3 3 ::3A39 :39:A3 3 3:: 3 323ÆãY3@,9A@ @qA@:k@k@@ :kGAqGqGA93@A:9c3qGqk9jAqAqA@@:@:Gk@k@GkAAq :@jAk@A9 3 99:@Aj:@:@ƒ:-939 A:@@:@@:::3 3: ::A@9 3 3: 39 9 3 223cÈä:Aƒ:yAj@:3AA@kA@@ApA::qAqAqAj:cŽbi::9A@9@@ 9Gkqk@q@:qA@qAAq@qk@:@AGk@33: :9@A@::@:93A::@::@:9@A333@@A3: q 3933:3 3 22Êäy:AkAq:@k@@Aq@:GjAk@::9GqAqAq::2cŽib8cii:: @A@3GAGk@Ak@AAqGjAqAGkqAjA9 94 9 @:@::@:@:A@A@::@::9A@:A3@39A@k@ ::9:3 ::3: 9 3 92322Èå&99 9:99 39AqAkG@AkG:qqAkGk@ 3 94::8ƒ:7@33kk@ kqAqAq@ApA@kGAqA@GAqGA3 3@3@A@:@:@A@:@:j::@:9…: 9@@49 3 :: k 9 3 9 :9: 9 23Êæ%:A9:@A3 9AApAkAjGkGAqAGkGAqGqG9:@9 3ƒ:5:9 qGk@3@AqAqA@Ak@GkApGqq:@:qGk 9 4 :@:@A:@d@A@:@@:9ƒ:":9::: Ak3:9:q 3 :9 : 9 3 322ÌèA@A@@Ak:@kAG@qAƒ@:AqAq@qGkqAA@A@kGAF @:G3ƒA&:A9:GqAqkGAkAqAAkAqA@::qG::3@:A@:@:@Aƒ:@:@ †:"3A@:9 j9 3@ :9A 3 93:9 : 3 322 ,Êè @AjAjA@A 99ƒ:>9:9;q@AqAAkGqAkG@::GkAk@:kA:@k@@:@:@qAGq@@qGqGqAGkGqGkG::@ @‡:9„:(3 :@@93@:9 9 9A@::9 3:3@ 9 33 322]ÌçT3A@:A@@k@@kA9A@A:9AGkGkGqAq:@Gj;@@3Gk@:@A@9@@kA@@A:@qAqqAA@kAqAqAqA:G,GqGqqAk :9::@ƒ:@:@@33: 3:3@ 49 3:9@„: :9 3 9 233Íæ' @jAk:@::GA@qGjA@k:9A@:9Gk@@kGqqrqGqGƒqAAjA@@::@@A:@qAqAjAG@jAqGƒq)GqrAqrG:@2@@:9:99@::@4;:@A3 3 A9 : j@A@ƒ::9 9 9:3 3222Ìæy3@AAk@::9@@k: kA@A@:Aj@@:9AA@AkGqGr3:GkGrGk@Ak@3@AjAkA:AqGqqAqGkGkGkGrAqqGq4qGkG:@A 3 :9@A::@3 9 9:39Ak::9:: : 9 4 9 22ÏçQ:@:@G@::@A3A@@AqAjAG@AAjA@:qAkGAqG4@::GqGk@:G@@4A@Ak@ApA@qHAkGkGqAqGqqGrGqAGkGq3Gƒq*AqG:@:9:@:9@@4 9  3AA9: 9 39::99 32-Ïè$::9:9 39A@::GjA@q@:jGA9:@@:ApAqrAGqƒ:0AqA:k@@:A@ApAA@A:kGkGkGkGkGkAqGkHqGkGA::qAq:GqAƒ:$A:@:A33 A@3A@qk9: 3:3:: 9 ,2,Îêy:94@:3993 9:9 @: :q@4@A@:@kAAqG9:@@:GkG3@A3:@k@A@kAjA@qAqA@qAqAqGkGqqAqAqqA:@AAqGk9@ @A9 :9: 9k A@:AG:A3::: 3 32,Ïí 33: 3:A@:@k 2AAk::@Ak@qGq:9 ƒ:TApA@@A@A@AkGq@Aq@A@qAqAAqAqGkGkA qAqHApAqqA@A @A@j:@3::9:A@9k@@k 2 93:3 9: 222ÐîP ]c93Ak3@A@::9A:9 qA@qAGkGqq::Gk@k@k9@kFkAk@AkG@@kGq@AqAqAqGqr@qrqGkGAAqA@ƒ:"kG:999: :99:@9 @3 9 :: 2 2 ,Ñî]\32ƒc ]c2] 93:99 ƒ@BA2:AAqqAAqqGGqAqAGk@A:@AAq@Aq@kA::9:9AqGkGqrGqrHwrqAqqwAqkqA:@::9 ƒ: 39@AkGk@: 3@3 339 322, ,Ñï 23,332,232ƒ3W@;@:A::@@kGqqGkGqqGqAqAGkG9::qAq@AAqqGkGAqGkGqGqGrGqqrGqGqHqqAGq@kG:@: : qGqG::@AGkG:9ƒ: 9  33-,Òño3,3323,3]c3c8@:@::@:@::GqAqAA@kGqAk@A@::9@:Aq@@qGkGkGkGqqGkGrqqG:@GkGqqG:qAqA@qA@:3@kGqqG:@3 3:@: :3 2,2ÔôT2,32322c]ccic3@::A@::GkGqrA@:qAq9Ak9A::@:GkA@qAGkGqAqArqA@:A:qAqGkH@AkGqAq:@k@A@kA@ƒAk@@:@9ƒ: 393 ,2 3Óö332]9]c2bcc@A:@9ƒ: GqrqGqrGqAƒ@A9A@:ƒ@;k@;qGkAqGk@@A@AAj@A@kA@k@kGqAA@AA@AjAGjAqq@:@::3:333 3ƒ3,Ô÷823]cc3]8c8]:9:: ::9AkGqAqGqGqAkA::@qAqA:@:9:@G@@:AkA949ƒA k@A@AkGqAAjG„qAGqqGqAA@::@@A@9:@ 9 232Ö÷ 3]cc]c83’9„c*“@A3F:9AGkGqrkrqA@Ap::@A@kA@AA::kAk99:GkGƒq,GAq:@A@Ak@qGkGA@qAqA:A@j::@A:@49::94 3, ,Ö÷2ƒcMcc83cc:k@A@@:@kGqAAGqGqAjA9:AjA@@qkFA@:9GAAqkqG::qGqkGk@kGk@qAqA@kAqA@:@@„:@k@::39 2-2Ø÷(23cccb8]3c@::@k:99qAqAjAAqqGAGA3:GAjƒAƒq6@qrqq:@HqqA@r:GqqA@k@A@A@A@k@@:@:k@A9A@ ::94@3 :3,2Ùø3]c]2icb„c :A@:@@c9\ƒ:.Gq@:@ rqk:@@9@@:@@:qHq:@Hq@@q:rqG:AA@rGqA@k@@ƒ:@ƒ:A@@:A99ƒ: 9 9 92,-Ùø23bi28ƒc)‡“ibi““cbc8:A@:3qAq:@A@@A:@;::9:@:qqr@k:„AGAk@q3G::@qq::@Aj@Aƒ@:@:@9 @A99 93 b, 3ÚøK2-i“i23bcc“i’i2“hii8c q qA9:: q k@ @Aj@A::Gqr@ @r@A@q@kp@@AG@k@@A@::GkqA@:@ƒ:@k@A93:3 8,2323,Úø53bhcbibch“i“289“hc“29Ab“Aj: :Gq:@3:9:@:9::Gr::G@A@ƒ: AAkqAGk:@ƒ: @@:@:@::@„:3 @3 3232 ,Ü÷H2]8chibi“hc882i“,b““28AjA“@39 9AjA3 3@3 99GqG:9:@:@jA@@AjAFAq:@AkA@@::@…:9:@9:34932,ßø 3cb9bcc8ƒc:@A@:9AkkG@k::@ 94@A@:@: 3@A@Aq:A@A99A@:9@:3A@A@k@AAk@k@:@:ƒ@1A39::@: 39:99 9: 9: @@:@: :@@k@::@A:A@@A3@A@:2ÝäA349: 9A3GkG@@::9:GAk@::ƒ3 AjA@:@k:9 ƒ:" :@Aq@jAqAkG@@:qAkqGk@339: 39: ƒ: 3:@::@::3@ 3:@:@A@:9:9ƒ:93Aj:9:2Üå!@3 :3:@AqAkA@@ ::@AjA@@:GkA@k…@33ƒ@H:qA@Ak::@:@:qAqGqA::3: : 33:93:9: 9:: ::@@3A@::9 :9:3A:3@:9A9::@A ÛåA@ 9„:[ 3AjGqAq9: 3@@A@:kA@k@A9AkA@A3::@:@AkG:@:9:A@k@AqqAGkG@@ 39 39 3@3@@ 9:: @:9: @:9 @:@A@:ƒ@4@::@A@A9:@Aj ÚåX@k@:9::9G@qAAqA::G3 9k93A@kA@qA@q@Ak9::@@A:@:@:@:AjAqqG 39::A:39:9 3:3:@:: 33@:@ @ƒ:@:A@k: ::9 A99Aƒ:@AAj@3Øæ89:9 9:A3GjA@:Gk@A9 AGkG@@kAqA3G3 @Aj@:Aj:@:@qqGqGqHqAjƒA@:9::ƒ 3 :9 9 @3@@:3@:@ƒ:@9 3:3@:@A@::@A99A9:9:A99×çƒ:N@A@39 :Aq@9A@AjAqAkF@kAGkFA@3A@k@@A:@:AqqAqAqGrqG:@kG993 3 33: 3 :@3:: :9:ƒ:@:3ƒ@:@:ƒ@ :9:94::9:@kƒ: @A39A@A9Öé[ jA@A3@@A:kGjA@3:G:kAqAGkq:@A@A@::qAqGkGqAqAqAqA::9:3 3 3 9 33:@ 2:: @93@@4@A@ 3@:A@A::@„:::99::@:99:9:9AjA@4Õã]]„wA@9:@ k@:G@AqAA:@@A@@Aq:GAq:@k@kA@qAk@GkGkGqG:qA9 @ 3 3 3: 9:: @:@:@:3 :9 3@:@@k@3@A:@:9::@:A@A@3@A9:@:9::8Óá`2cc]]2323,@A::A2:qAq@@9AkAq:9:GkqA:@AFkqH@AjGkGAAk@AqG3A:33 39 @3:@:9949 : 39: @@:@:@4 ƒ@k@@A@:@@:A@::9AjA@ :@A 94@49:Òá4232]923cc]@A@@A@3: @:A@A@:@@A9@:9Aq:9:AjAqGqk@GkA@kƒ@k@AA9:G:9@@kG@AqGrqr9G@k@AqGr@Aq: : 3:33 @: @:@:@k:@@:A@:@ƒ: @33 9 @:@j:9ƒ@„:ƒ@A9A@A9::A@4:93:: 3AA@AÌã8 :9]]cc]ccc33 kAkA@k@@3:@::9:AqqAjGqrG@Gk@A@rqrqGqA:@„:K 3 :@ @:A:A@:93A@:@@: @@::::@:A@::4::3::9:@;@@A:9:9:@:9 9 @A:9@: jAk:2Êã99:3c]c3cc]ck@ApAqGkAƒ:n9A@:9:GAqAqAA@@kAqAjGqGr@qAA@:9@@9 @4@@:3@@:@j:@: :jA@- j@;@:9:9433 39 9::9A @@e@@j::@A:@:39::39 @AApAF:2Éä]3ƒcccƒ]T3c9A@Aq9@@:@@A:kG3jAqqAq:k@AqAqGkrG:A@@j::AA:@3::@::@@::3@A:@@::9 :@:A:@: ::@@::@:ƒ@:@ƒ:9A@@„:9:@@A:@ A9:@k@kA@A:2Çâ7] @cc]3ccc33c232A:@A9:@9::@:@G:k:GqGA3GGk@qGk@@A@j: kAƒ@Rk 9 3 9:@A:@ :@@;:@:: @:@@9 :@@::A::@:@@;@A@A:@:@49:@A@A::93@:@A:3AAA@3 @:@3::2Æá]@@3ƒcK]]c ]\232c9::A9:A:@::qqAq:kGq: @3GAqrG3 qqHqA@AkA@3 :A9 3:93@@:@:3 @@:@:9ƒ:3: :@@:Aƒ@:@A:@j::@@:@;@9:Aƒ@A::9A:@9:@k@k3@:A 3ÆÛ 2,,2::332]c:9:9]]32cˆ3@@: A@ƒ:qAAG3GkG@kA@k@AqGqqGkG9::ƒ@!: :9:@:AA:3@3 3:@::@:@@:: j::3ƒ@ ;@@:@@A:A::@:ƒ@ƒ::-@j:@A@::9A9::Ak9:: 3348ÄÜO,322 ::33:22dcc3A@Ak@3A@@:3GqkG:qGq:@q@AqG@kGlG::Aq:A@k99:@:@@::@@k :@@…:&@:A@;@3@@: ;jA9:3::33 :9:@@e@;@@A:9:9ƒ:@ƒ:9A@:993:9 ::33i2ÂÝ32-c9:@99@::93 cƒ]Kc] @:9AqG:@ kGqAqqA:AA@qGrqAAqA@9qA@jA@4@:@: 3:@3: :@@;@:@A@jA2 @:A@@-@ƒ:399::9 :@@;@@j:Aj@::@@A@@:9@A@@A:33 9 3:9493ÁÝ23323 ::GAqAG@]cc3232c@ƒ:# qA::9@@:3GArq@k3 rqG:q 2:: 3A@A@ ƒ: 3@@ 9 @jA9::k@3ƒ:ƒ@:@:@Aƒ@ ::@:@:@33:@3@A9::@:@:@3@A@:3Ajƒ:3::3 9,A9 93cÀÝy3\33]G@:3Gk:AjA@kAcc23,Aj:9A@3@:43AGqqGAqAA@r:G: : qGqAk@:3@:3A:@jA@3 ::@@A:93:4 3:A@@:@;@@;@:@:@:: :: 3:@@A@: @:9@::A@A::343::::@39 c¾Ý 23c\c::@ :ƒ@.AjAG:c]cc323@@: 39Ak:@@ qGqq@A@k@::k99 ::9Aƒ@ 3ƒ 3A@@:@A:@„:@@Aj …:% :@@dA9A@:@@:A@:@A@:@:@:3::A:@k:@49@@„:@A:9 93: 3  :@:@:923½Ý"32]3:@3@kqAqAqGq:@c]c]22 @@A:::ƒ@(:krGkG:AqGA:F9qAA@A@A@:@: 2 @@k:@:@@:ƒ@ ::@A 9:@:?@…:# 3:@e@@:@;@:@:@@:@@:@@:@@A:@A@A:@:ƒ@A9 9 9 9:3@A::AA 32c¼ÝZ232]A@@AkGGkGkGkG@::@]cc23:AjA@@:@Aj;@GqrGq:@A2:3A::q49Aq3@:k@:@: @k@9:@@kA::@:949@: ::@:ƒ@?:9::@@:@:@:j@:k@@;@@;@@::9::@@A::93A:j@49 : 3 3 @k@:@j:j3c»Ý233kA@k@AqA@qAqq@ƒ:79 c]:@@A@:@k@ @::qGrGkA3 @Aj@:@@A9 3 k@Ak@@::3:: 33 ƒ:=3@@::@:@@ @;@:@ @@:@@:@;@:A@:@:@k@:@;@::9A@;@@::@:@@A@:9 39:ƒ -9A:@9@4:98]c¹Ü232,AjAAqAqAqAqGƒ:@@::9 AjAk,@kGƒ:q@4Gk:9@9 kGA@:G:@kG:ƒ@A@k9 @:@@: 2 ƒ@2 :@ :@:@@4@:@A@A:@A:@:@@:@A@:@:Aj@:@:@Aj@k@:9A@ƒ:3: 9 399:AA3A9 9: 2c]¸Ü+,3::3A@k@@A@qAGjA@::9A@::9A@q@4:GAk:9Gq@3Gƒ:J qGjAk @qA@k: :@kA@Ak ::9 :@::3 @:@j 3 ::@::99:A@:j:@:j@:@:@;@:jA@@:@:@:@†:#@@@k@:@ 3: 39 :: 9 3@:@k9AA23c2·Ü7339@@kA@AkqGqkGk@:@:@:9 ::A :@:: 3Gq:rGq3:@ 3G3AGqqA„: :A@kAjA @A@@k@ƒ: @3 3@A:3@:@3ƒ:@@:@A@;@A:@k:@j:@:@;jA@A@;ƒ@(:9@:A::A@:9: 9 : @3 9 2::@:@3 A@233\¶Ü'@9A@@Aq@A@qAqGA@A :qGqrGAqA@]9A:9::ƒA!:Ak@3@3G@:@::9::@@:@@93@A:A@A„@4:9@ 3:@ -::@:A@:@:@j:@@:@@;@:A@:@@:@:j@A:@:39A@j:3@„:9 :993 @:3:3AA9Ak@22c3c´Ú @::3A@k@kAqAqGkqA2:9A@kAGq…@yk :39 :G3GkF: k@@ ::Ak@Ak@@:39@k@@A:@3@@k9::@k@::3 9:@@ @@;@:@:@:A:@A:@@::@A:k@;@;@:jA@ 3@A:@ @@:@ :39 33 39 3A3:@3 @A823323³Ù :@:@:@::ƒ@9:@qAGkAA::93Gk@kqA:kA933 :3@@k qG::@9@9 @::AkG 3AA@Aj@ƒ:k3:@A@:A@3 A3 ::9 :ƒ@49@@e@:A@jA:j@:A@@dƒ@:ƒ@ jA::@4Aj@@ƒ@ 39 A 93:3 : :A9 3 3,icb3]2³Øy ::@A@@:@:9:@:@AkGqAp:9A:AGAGkAqGk@Gk99: kAA@@kG9:A:4G33 @q jA9:k@kA@@:A@A:A@:@@:3 3:@ :@:A@:@;@:@:@::@@::@d@:A@;@AdA:@@A@::9@;@:@:kƒ: 99 : 9 93 9@39 k h]32,±×F::AjA@A@@A::@@AqAq9::AG:q@kAGkGk@AqA3 ::q jA:@qA::GqA: 3:A9 A@:@@Akƒ:/pA@@:@k@:@A 2@3 3 :@:@d@A@:@:@@;@@:A@:A@:@@:@j:ƒ@3;@:@@:@@k@:A@:@9A9 :939 3: -@4:A: @A@,c]c232c¯ÖG9:@:@A@k:Ak@AkAk qAG3@Gk@A@qApAjGAk@GAqAqAk:@:@A:@:q@A:9 A:9::@@:A9ƒ:AqA@3 @A::k:@;@ƒ:T@::3@:@:@:@:k@:@:@:@:@:A:k@A@;@:j:Aj;@@jA:A9@@:A944 : 9 @A3:@:9:9jA2Ž“3c,3323®Öy : :@Aj:@AjAAjG@93 q3kGqGqAA@kGAjG@3q:@qAGkA@A@-@A:@A::99 3@::9A@A@A@@:@@: k@:@:k9:@@ : :@:@::@A@d@:A:@:@kA:j:@A@j@:@:@@k@A:ƒ@0A: @@:3Ak99:9393 93k @AAGk @ ,”3c”,2-\­ÕQ 9:9:3@AAk@Aq@AkGAG:@A :qAkG9k9AkGAkAA::@Aq@GjAj:Gk3@@:9 A39:G3AjAj:9A@:@@:@:@ƒA@3 93@3„@ƒ:"@:A@:@:@;@@:@A:@:A:@A@A:@:@@:A:j@3ƒ:+9:3@ @A:9 3 @3 9 A33 j 9 ,3”\c”3233]¬Ôj4 3@: AjAFk@AqAFkA:@k39@AqAq:@:GkG@qGj @A3GqAk@AkGGA93:@2A@ -A@@3@@A::9A:@A9:@3@jA3 9 :@A@e@3A@@:@:@@:ƒ@H:@:@:@j:@A@j;@jA@A:@j@:3@:@ 9 :k@:@:3 9: 9: 3 3 : 2”3“23\922«Ó 9: ƒ@#A@k@AAjA@k@9:@ GA:qAA@AA@kGk@kGA3::ƒqyGqA@:9:9AAq@:@Ak9A@9A3: k@@::9:@@::@3A@ 2 3@:@@:@3 jA:@@:k:@;j:@:@:@;@:@;@@:@:@d@A:::@:39: : @@:39: 933 3 99@@,9,“Ž“Ž,9]3]3ªÓ33 :@3@;k@: k@:9Aq@A:qAqkqGkG@kq@:GkG@kAq:GqGrqGqA@ƒ:y9GkAA@q:9:@k 9A@:@:9::@:@ :3 2 ::@e@@;@@3:@;@4::@:@A:@A:@@k@::@A@:A@:@:::9:@: : @3:k::943, A3@: :932””] ]23\92c©Òy 39:@A@A@@3 9 :Ak9AGk:G3Gqk@:@@k39:@:::qGqH3AqkG:@kGGj@A@3:A3@A 39@A::@:@A@:@A9  3 9A@@:@A@::@:@:@:@::@@:@:j:@:A@@ A@:j;@:@@Aƒ@:@ƒ:$93:@:@::: 94 9:k333:, ,“Ž“cƒ23,32¨Ò 9:: @kƒ:=9GkApAkGAjAq@A@AkGqAA@AqA:::9::9 qA@AjAG93AkG@]c3:A@@393 ::ƒ@e::9;@:39@33:@:j;@::@:@:@:@:@:@:@:A:@;@@:@;j:@A:@@j;@:9:@:@:@@39:@::@A9: 9 9@3 : :k2c”,„3,323]3§ÒW 3 93 @9:9@:3:9AGjA@9@AjA@qAqAqk@kGAqGkGA @:9:@kA@39:3@Ac32 ::@3::@@Ad@::AjA@3: 3 ƒ:@A@:@:9A:@:A@:@:@::@:@::@@::9:@ƒ:@:@;@…:@;9A3::94@A@9::3ƒ:9A 93: 23, 2†23,cc§Ò 9: :3A@ƒ:1A@::3Gk9 k@A@AkGk@@AAGkAqAAq 9:9AA:: 23c3Accƒ3:@ 9@ @::@A3::3A@A9 ::@::@@A3::@:@:@:@:@:@::@:@@::94::9†:193::@@::9:A@:9:@A:@:339Ak 9@:3 ,2,”,†32332§Ò):9:@ A9:::3:9:@:9G33 qAG@kGqqAqAjG9„:6A@:@232-9@:3cc33A93@9:3 :@3@:9 33@::@:@;@9@@:@„:@::@::@:3 ,:3:@@A†@:ƒ@.:@@:4 @:A9k@@3GAA A@3::9 32-cc,…2]23§Ò.:@ 3A3@A:k9: @::@Aj9:9::@Gkq@AkAqAqG3 kG9:@@ƒ:393Aƒ:%GkG:@3GA,9 2c8c :AA93: :: @@:: 3@@ƒ:@Aƒ:@ƒ:F@@3:@@:@A:@@:A@A@k@A::@:A:A@:93:A99:9AA@3@@k ,q: @: 9 ic”Žc]†323¨Ò:@33 k93@:GA@@:@@qƒA:9:3AqA@kG@qGk 3k: qA@@:@9AA@ƒ:*@qAq:@ 3: 292ch2b:9AA39:@:@@:@:3:A@:9:ƒ@9:@::@e@@::@:@@:@A@k@d:@:@ƒ:.@:@9A9:9:9A@: :@k:3 A33AG@@3 93,¾33c‡2-c¨ÒI @ 3A9A@A qA9::@k AkF:@ 9 3:GkG9AkGkFA:G3Gqqk::3@k@9 :@Aq@@3 32,29bchƒc 8A@3 :@::@:A:„@":@:@A:k@A@:93 @::@@::A:@;j:@@A:@:A„@-:94::@A:3 A@:99:A:93::kAj 33 2,3“3“²Ó`39 @9:9: 9:9:@@A:94:9 @:@qA3@A@AkG3:3GqAGqGqAkAFq::9A@3A39A@: 93,32iibi223:@::@:@@::A@3:@A:ƒ@ ;@:3 9@@…:>9:@k@@A:@@A@j::A::993A99 :9A9AA :99@949@ 49 3 ,, 2cŽ“33²Ói3 9::3-:A9Aq:A@3 @A@A3: @kGkGk@k@@3@ qGrqAqAGq@A 9 3A33 Ak@:3]c“Žc“ibi2 ::@3@A@:@:jA@A@j:@4@@:33„:9:@:ƒ@3A:@k@;j:A@::@:@:@ 9: 9: :k: 3:3 :G3:A333 223ƒ23ƒ±ÓO23A3-AA9A@q:@@4933@A@9:3:A@qAG@A@@k3GkqAqGrGkG:@3:::3@: 3@ @::cŽcih“2 3 ƒ: A@k@:9A@3@;@„:M39 3@::9:@::@@:@;@@k@@A@@:@:@93A::3@: 93 394@Ak9 :9:: 3G:@@4 3 23,c3]3“±Ô62]@A3@@:: ::3: @:3A3@ 9A@Ak@k@:kA9 qGqGkGqk:@kA:3„:t9 9A@k@3 :cib“833 3@ ::3@:A3A@::@@:@:9 :@@::@::@:@@:A@jA:A@:@::@:@:4@:@ :@:9A39:@A3@A:: Aj:@ 39 3,Ž”]2Ž²ÔS23239@ 39AA@A9AA:9: A@A@Aj:@A@kAFA93AqBqGr9 @kqA@G3A9 @A9 3@kA:A@3ciib,G@@ :3@@:ƒ@Aƒ@T:@:@::@@3@;: :: @@:Aj@:A@3@:@k:94:9::@:9:@: :9 :9A@@:AA99qA@@-3 32“cc3c3²Õb33]2@ 3@A@jAk@A9:@::AjAjA9kGk@AkAAGkGqGk9:A@A9Aq : @: 9AA@A@kGA3]]b9333 @::@:Aj:@kA@::3:@:Aˆ@CAj@@A@Aj@3 @::@:@@A9::9:9:@:3AA9:39::9:k9 3 AqA9: 32,3”3]23c3²ÕN233]32A@@A@@:9:9:A@kG9:GA3A9Ak@A@@kGjAqGkA::kAG:@k@:3:AqkGjGkG3:99b9 4:3„:@@:A@:@kƒ@OA@3@:A:k@;@d@;:9;@k@;@Ak@:@A::@:3: ::9:9:k9A@ :9:9:AqqG9 3 2-232323³Õ ,23c] @Aj@::9ƒ:?@A3 k93@kG9AGjAA9AkAqqG3:9Gk@@:Gq:: :3 :@qAA@j:@Ac3 :ƒ@::@39A:@;@::@3„:G@::@A@:@@49@A@@A@:@:@:@::@@:@9 3::9 Ak9A9::AqGq3332,]33]´ÖW322]@A@k::G 39Aj:::@ 3A@@kGkA:qAFqGrA:GkGk @3 9Gqq 9@A@AjA@A:@]b8]3 3:9A@:@:A@A3ƒ@:@::3::„@k:@A@:@A3@A::@†:9:9A99ƒ: ::9Aƒ@3AG9::AqA::93  22ƒ\2µ×J23239AA:@@:3 9:A@:q@kAAkF9AqqGqqG::9@qG9:q:9::Gk:9 3AkG@k@3cci“82 :ƒ:9A:@3…:@:Aƒ:9:@:@:A:ƒ@:kƒ@6A@:j@:@::99@::3A@:: @9 99A3kA9:3:3 39 233ºØ,3A@:@:3@3:@ƒ:yqAA@qApA@Ak@@kGkGl@3:@ :AkG3AGA::GkG::@A@@k@AcŽcii“2:@:::@:@::@:@::2 3 3:9: j@A:k@@;@k:@A@:@394@::9:A9:9 93:49A@ GjGA::::9 232,3»Ù-2:@ :@3@@::9:AF9:AqAAk jq:@qG@A@ A3::c::Gjƒ@qAq„:@:@cccci’2 3:@A3 @:ƒ@9:@9 @:ƒ@E;@@:@ :@A@:Aj@A@::394A@@:A@:49:@A:3 9A3::9:9:Ak9A3:9 39948,33“”ºÚk3@3@@A@@;9::9jA:@kAp9  3G:AqkA@3Aj 23\AAdA:qAG:9:@A@c]cddc“ic3:@3@@3@:A::9 9@:@:@A@A@A::k@@:@@A:@Aƒ@A@:@;ƒ@ :949:A39 ::@:99 :9:@A9  3 9ƒ 22 23“»Û 33@Aj:A:@†:y@@:AA::@3qG:AqGk@kG393]“3]:@A@@3A@@:GqqAkc]c]cc]8cbA@ @: 3:@:A@::3: :@:@:j::@:@@AjA:k@@:j;@:@A@k@:A:@A@:: 9AA993GA9A:9A:3 333 23323]c,»Ü4:@A@ ::@:@A@@A@Aj@ 9:@::AqGAAjAA@A32c3@3 @3:@Aqqƒ:ecc3]9]2c8c@::k9:: :@:3@:@@:@k:@k@A@Aj:AjA@:@@:A:9::@Ad@:@@:93@::::@A:3:@::9A:9::: 333 , 22c]¼ÜH@::9A:3@AkGk@@kA@3:@@kG3Aqk@9:Aq3“d@33@A9k qG9::b3223c29,::@ :„:@:@:@A@:ƒ@A@A@Aƒ@A@kAA@k@::@::@@:@A†:#3@39Aj:9@@:ApAGA@39 39 3 9233¾Ý%@A3@@3@Aq:@ : :@ kGkG:@9A@@ 9@:@-2c]ƒcN@AG39A@AA3GqGqG::2:33]8b2@ k @::9@:@:@@::@::A@k@:k@3:A@:@@jA@:@A@::@A:@:@9:@@ƒ::@4:3A:9AA,G3 9 : 3 322¿Ý :3AqA::AjAƒ@j:@:qAqGk@:@kAk@:A2c3„c$::@A93AjAGkHkGqqAkGA9 23 @@k:@@::@…:G3@@k@A@A@94@Aj@Ak@:A@@:@:9:@::@kA9:@::9::9 AA3 :9:@::3 3 9 3 3-ÀÞh@A@A9:@AG@kA@A@AkGkGkG@;FAq @:,,3c]94q@: 3GAjAq@A:qG:@AjA9i]@:@::@ 3@:949A@A:@dA@:@@A:@@A@kA:@49ƒ:(@@::9@:@::@: ::jA9:A99:: 334 3 2ƒ¿Þ 2 :k9:993„:@k@k@::GqAkAqAq:@3dc“i2iAq@ qGqA@kA@:qA:@:Gk@i22 :@A@3 3 3 ƒ:9:@@d@A@@A@e@@k@k:@:@:ƒ@:@::@„:!A@3:9:9AkA3:9 33 33 2Ãßy2A @:@ 3: k@A@@:3GqGk@qA9A@c“3ihi,9G:3GkA:9GkG@qGqqAk@AA“2Ak@::@@3 339:@@:@:A@:A@:j:@A:@A:@:@::@;::@3 : :9: jAA@449:9 AF3 GA39 93 9 322Â߃@\AkA@A:j@3GkAqAGk:AqAG@:3:ŽcŽc“2:GkG3AqqG39AkA:kGqG:@jAF3@A::@A:3 @:: :A@ k:@@k@A:A@@A:@@„:/99:@:@@:93 @:3@A9 : 9k9::j:@ :3 39 232Âßy9:Ak@A@kA9:: Aq@AqAF@kGkqAqG3:cccib2 qGkG3G:@: qGjA:AAk@::@kAAjA3 @:@ 3::@3 @3 @@::A@:@@jAj@@k::@:@A:A@:@A3:33,9:A@@A9 ::9 :39 3ƒ ,ÄÞ3@ƒ:K@k@qA9:9GAkGjAkG:93qGkGAcccbi8:qAq qA@: qGAq qqG@AqGAjG:@@2:Aj @::@ 3@ƒ:@@k@A@A@ƒ:9ƒ:-@9::9::@@A3: kA93A9:k@A::99 :33 33 ,ÅÞZ3A:Gk@A@@A9: AqAqAqGkGk@qGkGAqkqc32i““i9 :@ 3AkAq@k@AjAqkGkG9@A@@;@A@k 3@@3 3@@::@AjA@:kƒ:3 ƒ:@9ƒ:93@A:@:939@ :9 ::AjAG9ƒ: 93 33 22,Ä߃:$@A::9 @@3Aq@qAqAqGA:qAqqA@: 9:9:hciƒ279kG9AqA@:A@@kGkGk:@Aj:@@kAF@3:9:3A@k@@k::@A@::9 9::9@„:+@3:9 339:@44:: 2:3A@3:G39::3 9 2ÅßP 9:9::9@@A3G9:9:9:@k:GqAGqAqq 9:@@“223’™9 kAq:q@;@@AqAGk@qG4@@kA3 3 ::A@ƒ:@:9:@:@9ƒ:1: :93:4A :9 9 9:: 3AA9 ::9: :93 9 22-Æáy 39@3 A:3 kA9AAk9:AGqAGkqAqGkGk k9:3@::@ 3: 3@A9kGjA:A@qA@AAkA@Aj A 9::9@::@:@:9:: 3 39: 9A9:@:9 k393 :3:9 9A@93Ak9: 3:: 3 3 ,Çãy 3@93k3GqAA@kGkGkGAqAqGqAqG@AGAG:3::9 q@A3GkG@@jA@kAkFAjAkA3@:3@@::@:@@:@;@@:@@:@@A9:@3:: 9 A@3: @AA3:9:: 3 3:  3 3 22Èä5] 333AqA3AGjA@:9AqAqAAqAkGq@4Aqk@q@A@q 9Gq@3:GkqAAƒ@AjAqkG @G@Aj :@:@:@:Aƒ@7A:@:@:@A:9::9 9:: 3@:: 93 3G339@ q 39339 3 22,ÈäQ3c23c3 39 @qAAqA@:A:9qGk@@qA@@93GA:@:q:9AqAq@ qAGq@kAk@GkAGqkqq@3 @::@:A@:@;@A…:@::@A:@A3@:3 9: @A9:9„::: 93::9 : 33ƒ2Êå23233c3c23Aq@qAq@@k@:@ƒAkGkA@:ƒ@:ƒA9 ƒA:9:qAqA@kAk@GqƒAqGqA3@@ƒ:@::@j:„@::9ƒ:+@::@A449 : 939: :9 Aq9:9 : :49 3 23Ëæ23\-2ƒ3A93::9 k@A9A:qq@AqAqGk:qkƒq!AA2Aj@:9:qGkq@AFkGk@qAAkGq 3:@3 ƒ:@†:3 ::@9„:9@A3:3A@ 9:: „: 3@A9  39 3 9 322Ëé)323232]FA:9:: qG:@@:9AkGqAq ::GHqGkA @Aqƒ:@AqGAq@Ak@qAqqGkA@@::@:@9@ƒ:@::3:@…:(@ 3:93 @3AA9:: kF9 k 393 9 33 323Íë),3233]3 A@@A@A:9:@:@AkGq qA::qGkG93AjA9Aƒ@;qqAqƒAqA@AqGƒ:AF3:@ƒ:@:9:@:ƒ@-3@@:9 A9:: 339::9AG3:@ 9334 33 32Îì>23\c23c2 3 :9A@4@:A:@AkGkGq@@AkGk:AA@:@Ak@@:GqAq@k@qAkAqAq9qAƒ:%@:9 3 @:@A: :9: :3@: 3A3AF3@:@ 3:ƒ: :9 : 39 3 2Ííw33]3c332ibAj:@:4 qAFkGk@3::@GkGG,GjA9:@Ak@A:qGkAFAkGFkGkGAqGA9:99:@@:: @@::@@39 9AA399@ k:: 3G3:@9:3::9 3 3 2Ðí23ƒc]b2cb :9::@3 jA@AqAG9ƒ:&GkG3A@A::@A@kAkAqGkAjA@A@kGqAqqGqGqA ƒ:1@:39A:@A@: :3A34:9 k@A9::A::9:9 9934:3 ,Ïì,3ƒc/]cb3hc9A@:@@ @kGq@qAGq:9:Gk9AjA9:AjAG@q@AqGqGƒqAGqAqqGkGqHqkAj@ ::9:3:@:jA@:3A9 39 9A@A9::9Ak:99 ::9 3 ,Ðìw23]cc2c8c3]c@A9:99A@AqGqAqGAq:AG3GA@A@kA@k@Ak@AqAkAAqAqAqGqGrkqH qGq:@9: 3::9@4:9:3::9 ::::G: :: 33 ,,Ñí23c,2c823cc2: A„:1qqHkAqkGqAq9Aqq9@AqAqqAAjA@qAqAqAqGkGkqAGqAqAqA3@ƒ:9 9@3:3:39kGk9@@Aƒ:23 9:33:3 ,Òí32cc83h…c<::@3Aj9:@@:GqAqA@qAqGkGkAA9Aq@AApA@A@kGApAqAqAqAqGqqGkGkGqGƒA@3 :: 9 9 :3 A9„: 9@:@:3: 9ƒ 2Óí2,ci22c82c]3@@:@A @„:[qGqqA@@kGk@A@::9AqAjAAqk@@kGAAqAqAGkAqAkAAj :kGk9kGk 3:9 @A, @AA9:@::@::3: 2:9 332,Ôìs232“i2c8ccii:3@::@3Ab3AqAqGk@AqA:@k9::@AqAFk@A@:@kq@A@qAqAGkGGqAAqAqGqGqG:9:9A::3AjkG@jAq::9:9:99 33Õì"332chchccic“ihi2i““ibc8::@AqAkGqGAƒ@MAA@::@Ak@AqqGAA939AkG@qAqrGqqGkAqAkGk @::A9: 9 ::A@:kG::: 94 9432,Öì2\9bibchibic“i,c“ihcb9c@:@ƒA0qGqkqqAkG::F:9@@qA@qkqGqkGqGAqqGqrqqAqqGAjAAqG:9ƒ:9 9:9::ƒ@AAq,:939: 39 9 ÙìS38c2c8“cb822ihb8“ii2“9:@:@kGkGGqH@kA9::AA::@A@:GAkAqAqkqGkGkGGqArGrAGjqAj:9:9 :ƒ :ƒ3@k:: :3 3 2Úì]3ƒ2h3cb9b9bc““2 c“’289 @:3GkG@kGkqA@qA:@jGjA@:qA@qAqAqAGkGqAqqrGqGqqkGGqAAF::9 3kqk@AGA@@:@339 9332Ûì>2]8238iihc2ibc2b“i239A@“ 99Ak@::AkG@k9:AA@kAAk94GqAGkGqGkGqA…:)AGkqAqGk@q@:@:GAGq::@A:@3 93333 3Üì3c322ibc“ibc2ihcc8b“2i:„@PA@: qAq qqA@@ q@A@jAFA@:@A@:@A@:A:@@:@@AkGAqGk kA@AAj:@:@@kG::3 9: :3 : 2Ýì82]238cbch“bichcbic8ii22 :3c@:99AqA@A@:93:9A@kGk@:9:93ƒ:/93;@@Aj@:@::GkFAkq@A@@Aj::9::99 :9:: 39 23Þí232,„2„2.,83\i89\2c 3A@3G3@k:A@@:@:9:qGk:GqGAkGqA:ƒq$A@@A@:@qAqAq@@:@:@::@@A9: 9:9 9 99ƒ2Ýî2332ƒ3c]ƒc d]cccc]„cJ,349A@4:@@A:@:: 9:GqA:qqG::qG:@Aqq43AjAA@@:@@AAkAk@A::AqA 3 3 99: 322áñ233,3322-323,2323,2ƒ3:9A@ 3:394@:9HqA:qƒAkGqAqGrGAGqGA@@k@:@kAqƒ@A@kGq@:@:99:43: 2âø• @34@3ƒ 3 9 :qG9:…@A@kGqk:@ƒqAA@:@::@AkAk@ƒ:@3 ƒ: 9: 3ƒ32áø–C3 3 3 3:9 3GkG3G::@:A:jA@kAG :A::Gk:@::@@:@:@9:::9 @:@ 3 3 322ãø™@A@3 3@ :9 qA„: @j::9A@@k„@::qG::@…:9::@:9:: 3 9 22äøš&2-29 3: 3:3q 9::@:@:@AjAAkA@3:@::kAqƒ@::9::9 @:9 3 23,ãøœ32,28 3 9 9: 9::49 :9:@:@Aƒ:9:9::9 9: @:33 , 22çø,332332c 3  :@ƒ:$@::9@:@A@3:9AFA: 9:: 9: :@ 32,èø 2,2-23 q:: 93 :9 9„:9: 9:9ƒ: 3 33 ƒ232-êø¨ , 3:3 :@9„:939 @:: 3 3 922333íø®":9 9 3 33 39 2 ,22,22,ìø¯9 -  : 3 322,2-23cïø³2]32\2,223,2-2ôø·3333,2,3, 2,õøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø¨2ø›øøÄøøÄøøÄøøÄøøÄøøÄø—]32øªø—cc22Ž23ø˜ø—,c33,,3\†]ø‘ø˜,232c•ccøø™3c3–]2øø™2,2—23øŽøš33˜,2øø›,,—ccøŒø232—3øŒø›2›,ø‹ø2š23øŠø›2c3šc]ø‰øœc3]23‹222øˆø,,3š32ø‡øœ3 \3,˜2]cø†ø‰@:‘ 2]c“c32,—32ø…ø†: @: 22-22ŽcŽc33—32]ø„ø„A@@3@’ 333]“9]cc22—32ø„ø  Ap:A:@A@Ž2]32c3c]]c3]2“c]øƒò@A @q@kA:9:: @:9ˆ]c,cc32]ccŽc3]9]2c3,–2øï@ƒAq@ 33Ak@@A9A:@ j::‡ƒc33]23c]cc],c2]c2c2323”32øí:@A@@qAk@ :G@A@:A@A:‡2cc]\c232c33c]92ƒ3]c3]2”]cøì A@@k:9@A@k ƒ: @@AkAq:@:… 23]33]2c]3c,ƒc 232,322]c3c]’c]c÷ìA@k@:: :@39: qAk @q@k@A93…]cc]c3c33cc32cc3233,c]9\3\c],‘232öì:3GkGqAq3AG3::kF:@A@Aj :…cc]3ƒc2]232-cd]3\cc]]9]33cc,3‘32]õìAqAqAqA@::9:@::kAk@G93„#]c]c2]c2cc32cc3]3cc]c]8]23,2‘ccõí :GkGqAqA@: „: @:Fq@kA:@ƒ3ƒc]3ƒc3,cc3]33c3c]cŽcc3c]3c]233]2cŒ,3ôê:@@:AqAqGAjAq3@:@q9ƒA@:@@;c3ƒc6]c]cc]3c]c,c]8332c3c3cc\9]2]93\2c]c]232]2]3223óê":AAj@@:@Ak9GA 33kGA9k@@A@@:]c\cc3ƒc]c\cc]c2]c3]3ccƒ3]9]ƒc332233223,3c]9c3323]òëU@A@A@@k@G::q9:39A@A3AjA:j:2cc3]\c]cc]3]cc3c]c3b3]c3ccŽ2c]c]3\32-32,23,3232322]2,c,ƒcñëkGkkA@kA@::9: @;qA@3GAjA@Aƒc c]3c]c23c3c]ƒc ]23]3b32c32]9\c]3]3223 \3c,2ƒ3 9 2,32ðê#9 kGGkAq@@:G 9:@@ jA kGAkAjAkc]3c]„c2]cc]c3c]233]ccccc3„c]3]23322]c 394@: 3]2ïéJ qAqA3@@:@kGk :9A:@3Fj@AFA@@A2]c]c]c3c]c]cc]32cc2]ccdcc33c]2]cc]2c3\ƒ39 39AA@@49 3c]îê$@::3@A@kAGk@A:9A@::@A:@@kAk@kAcc]]ƒc]c]cc]cc]2]323]cc3-ƒc]2323c32 9:9:9A@93@::9 32cîê :@k@AjGqAq@@3:@Aj::@Ak@A@A@A3ƒc232]ƒc 23cc3cc…c%3c]c2c3c3]]293:9 :9:AA93A 3:A3 332íêRkGA39AAkAFAqA@3k@AAq:@A@j@kAj cc]3]232c3,3,23]32]c33cc]]323 99: : ::9@@9:@@ƒ: @A@:333cìé3 @k@ @k@@kAqAqAq 3A:pAGk@AA:@@9 c]c2c3233c]c332cc„c32ccc3:  333:99Aƒ:@Aƒ: @ 3 :@ 39 3cëé"9:A@q 3@A@@qAqGkA399:AkGk9Ak@@A@3 „cc]3c3c\3]cc3c3]2ƒ3 3 9:9: 3:9:A@:9@Aƒ:@A@@::3 9::93]cêè) 3@:94::AqA:qAkFG: :@@Aq@:9Aq:A9:3c]ccƒ@3232cc]2]3:9 3 3:9„:@::A@@::AA:@@q993:3 :93 :32éé AA9:9:9Akƒ@Gkk@ƒ:AjA@3Aƒ@::„c e@A:@3]3]ƒc3c:3Gk:9:3::@:@:GG@:@qAq@:kGƒ:@ 2 3 3 :@9ccèé@q…:99 @kGk@::@99AGk@ 3A,AA@ ]ƒ:4@AkA:@c32]32qqG3949@:@:AA@@:Gk@:@kA:9:9@::@: :::3ƒ:@39:‡cçéL:9 :@:::AGkGA9: 3AG3@@A@:9 j9Aq9::qAq@A@ ccc]cAq 3 :@:@:Gk@k@Ak@@qqAq@:ƒA@@ ƒ@33:@:99 Aj:@2çæ,ƒd@9399::99A@kGkAG@@:@:AqA@49 : kA@Aq@AqAq@k:ccc:94 @:: :Ak:@::A@:Gk:@A@AAp@@:@kG@;9 : 3: :@: A 3ææcƒ: ::@ 9AGk9:ApGk@:: :qAk@A9:9:A@kG:@AqAAq99ccc 3@@39::qƒ@kGk@@qAG::@kAjAA3AA3 3A@:@ ƒ: 993: @@93]åã2]c]cc„ Ak9A9AAkG:: 2 AjA@kA::GqA„@BkAp343]AA@:qA@AAq:@@A:@:@:AkGk@AA@@:@3Gq:::q@A:3:@ : 99:: 9:3äâ+]232c]c23\3@jA@:3:FAjA@qAA3@:9A@qG:qAq@;kƒ@4:933: ::Aq:@kG: „:*@:@AjGk@AjAkGqAq ::9:Ak:3  : ::@:A@32ãç)c3]c3-:A@3 @AjAA::qq@@A9A@qAkGAjAkFAk@Aƒ:?A@]G::9@:@:3 @qqGkGqAAqA@@:9:@:FkGqAq: :9: 9:3:93@:9 3:99,âéI2-2c23A@3:@Aj@GjAA@k9AqAA@@kGAq kG@A9:@q@kkGkG:@:q@@qAA@qqApAqGkAAGkG@ƒ: @: 99: @:9:A@::@A:@A9:9:2áê9c3ck3@A@::@A:kGAqA@ kG@jAqAq@q@@kA9@AqA@ @:q:@@A@;@qAj„Ak@qA@q@q„: @:3: 2@3 ƒ:9 3: 3:  9:93 càè7]cc2323GA@@A@3 9@qGk@k@:@kA@AqAqA@A:9A93G3@:3 :@::3@q„A.qFkFAqAkGkA@:@@:@:3 9 3@:9::@93:A ::j3::3ƒ:àç2]cc]ƒc&3::@k@39AA@kGA@:AA@q@kGkGk @:3 3@A3::„@kA@AqAk@qqAkAqGAjGƒ@':@:@:93 9:9: 3@ 9 : ::3:: :9@:@:2ßå\ @A@c3cc:@@A@: @@::@@:9@kAA::@@9 @3 @@A@:@:@:@AkA@qqAqAqGqAFqAqAGkqAkAqA3::3 :9 :3 @ƒ:@9:9 :9:@ A:9ƒ:hÞâ23]c:9:cccdcc] 3 9:AjA@„:q@@:9ƒ@A@:9:9 :9kGAqAqA@Aq@A„@7A::@:A@@kAqGA@A@3 9;9 @ 39:: :@:9 9 :@@:@@jA99::cÝÚ,…]cc]cc9:9ccŽc‡…c-3@] kA@9:9G@AA@k@Ak::@3::q:@AAjAq@A@kA@AjAAjAƒ@4k@k@AqqGqkA9::9 :9:: 3:@:: 3@: ::@AA:k@:: 9 @AÝÛ2,22c]c]2 ]c]]„c-]ƒcA:3 9:3AAk@@k@Aƒ@23@A:@GrG:qAqA@A@kA@j@A@@;@kAkGA@33GqqAA994::@4 ƒ::@A@:@9:9::9@:A@:@A99:@ÜÜA--39::c]3cc]cc]c]3c,c3G3AGqGkGkA@AjA:3 :@@qrGkGkFAqqAqGqqAqqlƒqGƒqrGqA::A:: :49:9 9@:: 2„:9 :@@: @:9 3:9 A@kÛÝ2323@ƒ:3cc]ƒ:N]32c2c-2AApAqAqA@A@k@A:@::@kAA9:@::@kGAqqrGkGrGqGHqqHrGqAqG@::9:9:@:@43::…:@9: @A:@@A9Aj@:3@ :@3A@k9ÚÝ 3,32]:9 ƒ@63bŽ32c32AqAqA@qAq@Ak@:@@G@@9A@A@kGAqAqGqAGqAqGqqArqG…: 9:: ƒ:+9 9@A@::@:@: @@::93 ,9 :94 9:@:A@:9:3ÙÝf2323]39AA2:9:9A@]23c,3 @@94@AjA@ kG:Aq:A:kAk@AAqkGqrrqAkGqrqBqGqGq::@:9 ::@@:: :: 93 : :@:@A@ƒ:@@::@@: @@:@:@k9:9A@ ØÜ2323]83@A @A@:3cc2-ƒc4399:@k @A@AjA@94@kG@dA@qGkpGqqGqHqGqAqAAqAqArG:G@9ƒ:@:A@:@@949:A9:@A:@@:@:k@:@‡:99::@:@A:9AkA9×Üy32]3c,c] :2A94cc3]c]ccc]AA::A9@:jG@:@3@Ak@@3AkAqAqAqHqrqG@:qAGkGkGqqG:939A@:@:9 @A::939 39 -9 39@@A:@99: :::9AjA 9:3AFA@:ÖÜ'232]c]32]c9 9::9c9c]33cc3@A@@kAAk@@4:ƒ@A@3@AqqGkAqqHqHq:qA939AG„:9 2:@@:@:@::Aj@:@ƒ:::9:@:9: 9@:k@@:A:ƒ@:93 A:99::@9:9:3ÕÜP2-3232c3cqAA9:Gk@qA4c3\2]k@3GkGq@;9:@A@k@k:@qHqGkGrqrq@AqGkHq:99::3 :: :@A:ƒ@;@3 @@ƒ:'9: 93 99::@@k@:@:AA@@:9:9AA3:@@ÕÛY,3232]3c\9 @@4GqAAqGk@]c,33c @:9AA3@A3::A@qA3@AqGqGqGqA@GAqAkGqGqHAqq:::@:@:@j:@::9 :@;ƒ@:: 9: :@::9:@:@A@A@kƒ@k:3@:A3:9::AA9ÔÛI2323]2c] 3@A3@@Ak@Ak@Aqcc23\3A@:@qAkG@A@:9kGq:q:GkrAqA@AAqqAqAGqrqAqG : ƒ::@@4 :A:@:@@k@@;@@A99 3 :: :9:jA:@A@:k@:::9A@::9@k@:ÓÚP23]323]3cGAk@qAqqGkAGqAAc]3,3 k::@3GqAkFk@:GkGG:GkGqq@Ak@qAqAGkqGqAqG-9 2:3@:@:ƒ@5:@::9:3@Aj:: 3@::@::@j:A@93 3:9 :9@@:@:: 9:A9A@@:ÒÚ33\3\9\,GkGAkGAqAqGƒq$@:c]2c ::9@@:@:q:GkGk:qqrGA@qGkGƒq@Aq:A@ƒ:@:3AA:@3:3:@:: j:@@:@„:3 9-9A:@@;:@@:9 9 ƒ:@A@:9:@A394@3ÑÙY23\392:A::Aq@qAqAqGkGkGGk:cc]339@@A:3 @:: qqGq:GHqA@qA:AqGrG:@A@qGq:@::@@:@@3::3 :@@:9ƒ:@49A:@::93 9 399ƒ:@@A@3 @:9 :@939:9A9:9ÐÙB2323:@::@9AAqAqAqGkGkGqqA@:A]32 @AjA@: k@: :Aq qqGkAkqAqAqqA:kGq…:#9 @A:9:@:: :@@;9A@@A9::@@ @::@@ƒ:@3 :9:@;@@AA@:: 3@ 9: @: 9 ÏØS, :@A::@A@q@k@@AkAqAGqAA@:@: 3 3A@A@@k G::939:G3GrqA@Gq@qGAAqGqqA :9 ::94 @@:@ƒ:9::@A@:@:3@@:3:@A@:A„@A@:@A3@@k:k9:3::@93ƒ: :A@::A@]Î×a2 3A@:@:qAkAqGkGqGqGk@kAjA:Aj9 qAj@3:@Aj3:@ 4qGkGqA@kGAqqA@qq:qq : 9@::@@: 9 3@:@A@@@„:@@dA@d@;@e@@A:@ Aƒ@A@:9ƒ:  @9jA3AqÎÖR 3AAjAq@@AjA@AqAqAqGqGq@AA@9:@k:9Aq@3] 9A:Ak@A@qGrrqAqAk9Hqk@A:Aq 33 , 3@A@jAƒ39:@:A3:3@@;@:@9@;@A@:@Aƒ@!:@j@:@A94:3::@A3:@:9 :93A@99:9ÍÕq:A@AkAA@:@@:9@@AqAqkGk:A@@3@@A9:@3::@:@AkG@@3@::rAqGqqAqAGk@:3::Gq@:@ @ 3:@A@:@:::@A@: 9 :j@@::@A9::9:3:33 ƒ: A@:j@::@@ƒ:A@@:@:9@ :@ :@AÌÓ 3::@@qApAjA:@ƒ:6@:AGkGqA:@@A:kGkq :239:@:qGkG::A@: qrqHq@Aq@@::G:F9:A@ƒ:2:@3::@@:@:@@3:@kƒ:9 3 @:A:@@::@@9 9 †:A:@::@Aƒ@:ƒ: A9ƒ:9A@:9A@:ËÓ_3:: 3A@k@AAjA@@:9:@kGqAqA3@3A@qAAqqAG3A29:k::q@@rGrqGAqA::@@A3Gk@A:@@: :@ :@;jA:@A:9@A 9ƒ:9 :@@j@;@:@:A:@::@:ƒ@:@@A@:k@Aj:9:@A93:@A3A3ÊÑf3:: :@@39AGkAqAqAkAA@:AqAqGk@::@3Hq@qGqA@A2:9::@3@:Gq:99AGkG3@A@k@@qG4AjAk:3:: 93::@@:3@::9::@„:3 @:A@:ƒ@:@:A::@:@k@@: ƒ:A3A:::93A@AkAA8ÉÐ$ :9:@@A@A 9AkG@AjGkG@kAqqGkG@@AAq:qƒAuqAAjAkA::@: q@:rG: 9::@ q@k@;@Ak::@A@AA :@3@@3: 3 9:::@:A:@:9:@:@@d@@;@:@;j::9 3::@A@::9:9:@k@9:Akq@3qA99ÈÐd9: @A@3@jAkG@kqAGqAkGAp@3GqA:@kFA@Aq@kAjAqAF99: @:G:@@Ak9: qkGkGAq:3@:k@k@j @A@A:@:9@k3 :@ :@:ƒ@:@ @:@:@;@@:k@@:@@::9 9„:@@:A9@:99A@A@ @ƒAkk92ÇÏ 9 :3AAƒ@;kGApAqGk@qAA@::3@qAqqAk@qGAqGqGqkAGqqk kG94Aj4 9 3 3Gq@A9ƒ:@A@@AA3k@k@A::@3A@:@ …:33@@;@A@:@A:@@;@A:ƒ@#:@:@@A::@:3@A::9Aj:9A3jGAA:3ÆÏi9:9@@kGjA@A3@A:A@A@Ak@@:AGA@rGkGAAqkAqAqAGAqAq:@9A:9@AkG kA@kA@k:G9 A@k@@:4 @A@j@@3 :@@-@::@:::ƒ@4d@;j@:j:@@d@A:A@A:@e@@:jA@33:@9:@:@@A99:9 @@33cÅÎ ::93: @3 ::@A3:@@9kGjA9@A9kƒ:3GƒqAAFkGqGkqAjG: ƒ:G3@A@qqAq9@:3: @AG: 3G@AAƒ:83@:A::@A@23:::@ :9;@@;j:A@@:A@A:A@A:@j:@:@k:::@A@:@3ƒ@:@A::A@4::9:A@ 9 cÄÎ 3@9:3AA@3ƒ:P9A@k9Aq:A9:qkG99A::qAG:3G:GkGkG@AqGqGq9 9A@:Gq ::A@ 9:kk@3Ak@j::9AA39A@::@A:@ƒ  :@: :Aƒ@1:@;@@:@:@:@@A:AjA:@@:9:3@:AA@;@3@@::::9 :39ƒ:@ÄÎy @4@@9A9:@9:3:A:GAkGAqGG4kGqAG@kG:j:qGkAqAq@@kAqAGkG::@@:qG@Aq 39:G3@A@:Fk9:@kF jA@:9:3 3:::@:3@Aj:@;@@j@;j@A:j:@*:@@:@@;@@:: @A@j:@k@: ::Aj@9993A9: 394bÃÎB3 3:3A@k93::A3@@3Gk@k@kG9 kGqq@kGAqqAq@qGk @AjGqAA:@k3@4 ::93ƒ _@@A:@:@:9::AG:@3A@@:: 3::,:@:@@:@:A:@:A:@@:@:@A:AjA@Ad@@:@@A@k@A@::9:A:@@443:349 3:::2ÂÏ^@3 A9:A9 qA:939:@:: pAA@3Gk@@AqAqAqA@A9qGqAqAq kGAk:@:qA@A@3::9: @33A:k@@::9:@:3:@:9@Aj:@@3 ƒ: @@:3A@A@:ƒ@:@A@;@k@@:@@:@:A@Aj;@@-ƒ:@A@9 @j@@::9:: 3: 9::933ÁÎI2 39@::@A: 9A::@::@@:9A@3kA@AjAqGqAq@kG3:GkGq @:@qAqAkGkGkG:9::@A3G@3ƒ@Z::@:@@:@:@AA9A::@:@@:3:@:@:@@:k:Aj:@j:@:A@:A@k@@:@:@A:@:9::@:9 jA:@A@::3: 9 : 3 ::@393ÀÎ33ƒ @:9:„@GAA9:@::3 3GAq::AqGkAAqA@qq9ƒ:9 qqGkqGq@9::9 : kAkAjA9 A@„:N@@A:@A@dA94@9@:@ @A@Ad@;9@@:@A:A@;@@d@:@:Ad@;@@:k@@9@A@: @:@:: :3 9:9: 9 :ƒ@:3c¿Î+22]@3@A9:AkGk99AA@A qG@9k 2 qGq@@kGqAkGq…:Q :qGGrqAA:@:@A3@@q9A@AG 3Aj@:99:@@::3@A@@ , @A@;@:@::@:@@:A@A:@@:@@:A@A@k@@A:@kƒ@$::3 Aj::3:A::9:9: : :39 9 :A94 \c¾Ï23@A3 kA@A9:qGƒ:k@k@qGkAA@ 9A3GkGkGqAqGkAqAG@ @3:qrGAqqA@AqGA@A99ApA3 39::@:@::@: @@3:@:@j@:k@@:@:A@:j:@k:@:k@:@:@:A:ƒ@):A:A@@:3@A@: @:@@:9 :93 :9439:@A92c½Ï ,3]933@@k@: ƒ:9@:@:A@k9 93 qGqAqAqGkGqGq@k 3]@::@kGAA23@Ak2-3::A@93 :ƒ@'::3:@A::392@;@:@;@A3@@;@:@:j:A@:@@A:ƒ@2e@A@j@A:@Aj@@;@3 @@:9 @k@3:9 3 :3 39 9 39:9AA@A,½ÎL23c2]3@ A:@A:AGk@:A@93:3 39AqAqGkGrkGkAA3:@:@G::A“3:kAc23 :39:9:@AAƒ:[9A@3 @9: 9A@:@::@:@::@@::@@;@@:A@:@@;j:@@:@;@d@;@:Aj@: @k@A:A@:9: :993@::9::k9 ::c¼Ï,ƒ3Xc:@9::99:3 @@3 9A@A@@3:@ qAq:AkGqGqGk 3 @:@@:q:3c :cŽ23 3:@:@@::9:Ak@3 @ 3::@:kƒ:K@j::@:AjA3@:@:@j:A:j@A@;@k@@A@@j@A:@;@:@A:@:3@:@:9 k9 : 3 @-: 9@@: A3923»ÐG22]c]@49:A@A@:: 3 933@Ak : 3GqAq A@AkAAqA9qG:94@:99 9A :@:G2339A9 :@ƒ:*9 k@A@@3:@::@A@99@A@::@:@:@:@@;@A:@:@:@:ƒ@3:A:j;@;@@jA@j:@:@k@@@:: :9 9 :3:: 9: :9@3 :32ºÐy332]c@@ @;j@k@Aj:@9 :3@A::3GkGqAqk@@k@Aq q: ::@: 3@A@9 @kA:9A9 3 :@ :@:9A@k :@::@@j:::@:@:@:@:@A:@j:@:@A:@A@e@A@:A„@e@:@:@A3@A:99A:@: ƒ:3:: :9:::AA9::99]¹Ñ2323:A@k@@A@::G@3 ƒ: 3Aƒ@3AqGkGA@@A9@kGq@qAG339A@@49 kG@A@ :3 8cbcb:9:@:93…: @9 A@A39:@Aƒ:I@A@::@:A@@:@d@A:@@Ad@@j:AjA@@;@A:9:@:: :9A@A3939: 9 :9 39:@@:@ 9 9c]¸Ò ,32@:@@;Aƒ:q„:K@A@@@k@A@k@AqAqAj@A@A@: qGqqAqAAjA: 3@Aq@k@3 23b989c8:9A:@:9@@::3 :@3:ƒ@„:@:@ƒ:@;@:A:@@:@@:@:A@:A:ƒ@::9ƒ:%99:3Aj::3: :9 ::9 : 39 3 :9223c·Òk233@A3AjG9kG AF3k@k::@Aj kA:AjA@AAjAjA3 qqGAqGk9AA@3 A:jA@:93232chcb9@kA:9::@A@@3:A@:@k:@9:@@::@:@:@:ƒ@…:9@A:A@@A@@:k::9::@:4:9@A:93 : 3 9:3: 9A9 3: @cc¶Ó2ƒ3[ qA:G39: @A9:A@:9 3GGj:GqAq@AA9:G9qAqAkGkAAj @:3@GA3 3A@::3c]3chcb399::@@::@A:3@:@:@@;9ƒ:@@::933 d:939…:6@d@d@;@::9@:@@: :93: @::9:99:39 39 93AA3999,]2¶Ô32 3ƒ@f:99:@:399:@:A9 kAq@:GkGk@jA :94GqAqAqGqAq::9q:99:3@@: 3i“ib:3 A@A@@k@ ::@:@A:@A@::3@@::@@:@A„:9@::@::ƒ@+:9:A@;@:: 3@::@A::39 9 399A::9:9:392ƒ23µÕ23 Ak@::A@: 3@9:@A@:qA@@:A:Aq@ƒA3j9 9AGqAqGqG39:@9:3 :: @:A9 ccichci3:99@k::3@:3„@:k@@::9:3 @A::@;::@:„@Aƒ@ƒ:3 „:.@::@@::9:@:@k@:99 :39: 9::@:A9@2c323´Õ,A@Akƒ@NA3::4AqG:kGkGkG@qqAqApAA2AqAqqHqq 3:G:Gk3 9A 2@:qA@k 9dibi3 @A3 :@@ @A 3@Aƒ:@:@: 9 @9:@:@@A@@A@:A@;jAƒ@A„@:@::@ƒ:'9 @:@::::93:39A@::2A2,3\³Ö_@Ak@A93: @@::kG:kFkGjAkApAqA@k:GqAqAqA3:AGk::G@3 39AqA93A@k ccb9@3:@:@@A:k@:@:@:@@::943 9‡:"9::@::@;@j@@:@@;:@j;:@A:9:3@A:33Aƒ:!@:::33:3:@3:@9]3]2²ÖA@:9 Aƒ:;@::9:A@AkGAAqA3qAqA3@:GkGkGqG29qAG 9k :3 :A@:kGAj3b9b ƒ:9:@:A:@@Aj::@@;@:@ @@9ƒ:9:@::@ƒ:@:Aj@A:@A:@@::ƒ@1:@@A99A@9:@@::9::9 9:9:: ::9:A3“2c233²ÖG@Aj::3@@9::A9A@:@:@:jA@ 3AA@q k@qqGqqA33kGk3@Aqq 3:9q kGk :9832:…:@@3@:A@:3:@:@:3@ƒ:+@@:@:@@::9@:@@A@:A@dA@@:@A::9A@A:39:@A::9:@ƒ: ::39: 3: :3:833”]2±× @3 9A::@Aƒ@)k@@kG@@Aj:@:q:@AqGqHqArq23q:9Aq@Gr3 9ƒAq@@3:@@c2 ,:9@:@@:@3A@@Aƒ@4:@:33 : :@:@@:A@@A:@AdA@jA@@;j@;::@:9:j:39A9ƒ@!3: :949::93::92222c332°×.3Ak @9AqAjA3 AjAk@ :@qA9:qqAAqqGq:33ckG:9qƒA)@: q:jA9;@ @]3823::@:@::A3 jAd@;@:3@;ƒ@;@A@3 :@@A@:@kƒ@@A:@:A@:A@::9:@A:94:9:: 3A@49A@9::  ::: 94:23Ž33,c3]]¯Ø<233@@3A@kGA@AA3 9A@k @:@@4:G:qAqA:@c]c:9 3Aqq:k9:GqA@A9@Akƒc“22 ::9 @: 39@::„@K::94:@:Aj@@d@:Ak@AjA@@:A@:@@A:@j@:j@@::9::93 A@:9:A@AkA93:33 „ 3i2]83¯Ù< :A::93kAk@jA@:9A@3@Ak@:q@:GqG:Ždc]cc:GAGkGA:GqA:@:3A]cƒci2 @@ 3Aƒ@ ‰: :9::@:@;@Aƒ@K:A@@e@3 k@:k93A :9A@:@::9:@4@9:@::@:@3@@Aq@ : 9 2c32Ž]32323®Ø 9A@@:: 39ƒ:@kƒ@: @@AqA9GkA@qk3…cc9kAƒ@7:qG::@A]cccch“3:9@@@::@:@@:9:9 :9:@:@A@@:@:@;@39A@Aƒ@ A93: 39„:7@3::499::@A9::@k::A@3@A,3 3393,c”2]]9]c\­ØC39AjAA @q@@:9A@@A::3qqAq@A9AAk3cccdd 9@@k@ kqq::@]c3c]ccib2 ƒ:@k:@@ƒ: 9:@:@3 9ƒ:@:k@A@k@@A:@k@A:k@A::A:@@A@:@ƒ:#9:@:9A3 :9A9:9:3:A:9AkA: 3 :„Ž”92]2c3c¬Øn:@::jAkAA:jA:: jA@ GkGqk@A9@:“3ccŽc“:;9Ak@3GqGq::c3\cc322:@@:@4@;j:93:@@:@A@:A@@3@@;@:@;@@:@:@:@:@::ƒ@ :A@:9:::@ƒ:&@9:: 3A@A9 @:3@:A  @:9 49:2,“Žiƒ2233c]]­× A:kGA9A@@qƒ:I@@ kGAjAqGkGqA@A@kGc,3“b2ic@:@@49A9 A:Gqq233c]83b::@ :::@:@A:@@3 :@@Aƒ@;@:@@jA@jAdA@AjA@†:@@k@@ƒ:,@ :@:::39Ak::9:9:99A@3 33 ””]„-223¯ØE::GjA@AjAA@@:@@:Gk@A@A:9rAqk@kGkcciiiibq:A@qG:AA:3@:qGA323c2282@ @ƒ:@: :@:@A:A@Ad@:;@94@AA:@:Aƒ@:@ƒ:@@:@9„:9A3@:9 :3 :3@4::„@:@:: 9:9:33 ,chcc3c„23±Ø99:9ƒ:E99:9 ::@qqAqjA9 qGA@AkGŽhc,2bc“qkA@3:9AjA39Hq:: 332: @3::9:@:3ƒ:"@@:j@A@Aj@49Aj@Aj@@;@k@:39:9499:@ƒ:)9: 9:@A:9::9:3A:: AA@:9::A34@9 :8„Ž23·Ùi33@:9:@A@A?:qAq@qAqA:qAq@@Aqcch29’icqGA33GAFA qqG::Gk 33:@ : 3::@::@@::@A:@k@:@:@@A@:A:Aj@:A@@A:ƒ@:Aƒ@*:3A@::@: :3 AA9 9: 9:kF:3:@9:4 3 …2Ž23·Û>3:@ 3@ 33:AqGkGAqAq@GqAk3: 9b“ci““9GqkG@3 qkAj qGrq::G3h ƒ:Y9 3@:9: @jA@@A@A@A@:A@:k@@k@::3@::@A@:A@@A:A9:@::9 3@A9::j9 4A ::9A:9@AG3AA9:: 93,ƒ33]9]·Ûg3]9 3 9:@4@3GkGqAqGqGlqGq Gqq :“ibi’cqGk9kqGqAGk@AqGq9:233@9@A@3 3 @:@4@A:j:@::3:@@k@A@A@@A:@::@A@ƒ:-@dAj:949:@A:9:@:9A@@39::@:@:93A9: 33ƒ ,c2c2¶Ü323 3ƒ E9 q:3GqAqAqG@4:qGqGk b8c“i“ qAqG33q: :qAk@::H::A@ @39:@3: 39:@:9A@ƒ:P@A:@A@:@@:k@A:@:@::@jA@@:@:@A:@:9:993:@AA::A39GA9::@A@:9A 9332,c]3·Ý423233 39 3AG:3 3 ::qG@kGkGkGqc“hi82:qAq3kG:3GqA9Gƒq@:k@ 33ƒ: :9 3:@: ::@@Aj@:@jA@kA@@Aj@:@ƒ:<@;@:A:@::@:@ 33A 3: k@:9:@@: kG:9AqG9 43 3 2”c]d2”¸Ý_23,3223]9k9:qGA39;@:rGqGqAAk9i““8cq:@A9A:@@9:AGk:GqAA@k@ :@3:@3 9@:@j::@@;@:A@:A:@Ad@::@„:ƒ@j:@9::@: @:9A9:99Ak:9 ƒ:9A@G:3@A: 9 3 3392c3c3],·ß3223323\Gk9 qAq@:Gq:GqkGl@: 39ƒ:28\i“icqGk :: qAq:rGq:GkA@k@A3 9:@ : @A@:@A@:@:jAƒ@=j::A@@:@@:@@::@:@@:@:@:9:@3: ::@A93: 9:Gk9kG:39: 3  2…2322-¸áD3,232]c33 qAqA@kGqkGqGqqGqG 9@:@:8i’iq339GqqGAq:AqGq:@k@A@k 3:39ƒ:9:@k:ƒ@A@dA:A:@@;:@A::@:@ƒ:A@:@@ƒ: ::@A:9:A9 G@ƒ:@:A@k 3: 3  2ˆ]ºâd33233cc :GqAqA@3GGkGkAqGqkGkAG33@:@A@:: kAqqAA9GkA@AqGAjG@@ 94 :@A@@A@A@Aj;@:@:@@::@@:::::39:: 3ƒ:)@::99A9:9@A93::9@::@G39: 3 2 2,…3]»âM22]]23]cAqAqAqA@4qGrGqAqHkGGqAAG3:@k3:99 qA@AjA9:GqAqGqAAjA3 :9A@jA:@::j@:@„:9::9::†@ ::A@ ::@9ƒ@'344AA9 :@3AGA9::@33 3 3 3 323Áã-23„c kG3:Gk@@Aƒ:7GkGkGkqAqk@Aq 9@@3 Aq q:GA@:qAqk:@@Ak @@:@ 3A:@:@:@:A@ƒ:9 :9::@…:$k::@@39:39Ak33 :9:@9 33:9Aj:GAGƒ9499 9 3 23”Àã 23c]c]Gk:39:: q@A39:Gk@AqG@@9Aq…A):93G@AqGqq@::qGGqAkFA33 :@:@:@:@:@:9::@@9„:@ƒ:9::99:@::: 9 Aƒ@':3 9:9::GA9::G:k949 3 33232ŽÁä†cbi @:@3:A@:G:k@AkGk@A@kƒ@Mj@qA: qAj::AqA@@AkqAqAkG@:3:@:@@:@k:@A9: :: 9: 9@::@::9:9A3@:@9::93:33A@A9 ƒ:3AA@:::9 3:9 39 3 233Ââ 23c]c]cbihc3ƒ @9ƒ:7@:GjAGkGkG:qq;AqA@3GqqA@3GqqA:@AAqA@q 3@:9:@A:@:@A@:A:ƒ@8A@@: 999:4 9 : 9 A@A9:@k9:9kF:::9-9 3 3„23,cÃã2]ccc8“bcck9ƒ:y9:@@:GkGkGkG:AqGqGk: qGkGA3GkAq@@jA@qAAq @:@::@@k:A@jA@::Aj::A@:@:A9::@:9A@4:@@:93A9:9A9:AA:AAqAp 3 339 32Äã!32]c29bib9]cc @:9:@ @Aj:GkGkG2::GƒqG:9kGA@::@GqAqAA@kApA@ j:@ „:@@:@::@ƒ:=@@A::@A9@:39399:3:9 :9 9::9939@:A9 ,: 93: 2 ,,ÆãD,iib3“c3c]cc2Ak@@A33G::GjGkAG::qHAk: Gk9A:9::qGqAkGAqAkGqA :@,::@@„:ƒ@:@„:@@k:@: 3:3A@9 :33ƒ:" ::@A@ ::9@3 33 3 9 3 ,Æâ<2,i“2bccbcc]:@333:3GkAGkGk9::AkGG@3A@ qqA:@AqAq@k@A@GjAƒq@:@…:@†:;@@::@@:@A3:@: 9 j::9: ::3AFA93Aj kGk9:3 3 39 3 23ÉáS2332chc8cbicc9@@A3AG9::@A@q@q@@::@Gkk@ kAk:@A@kGqAqAqAq@qAAqGr::@ @:9@@:@::@::9@„:/9:933 3 @kF3AjA9:: ::A9:: 9 33 3-Íá 322ibiibiƒcD“23A@@kA9@@A@kAAqAkG9::qGq@ q@::@k@A@qGqGAjAAqAq@Ak@933 @:@A@9:@Aƒ:5@:A@499:A3::9:3 9 3:9A:9q93 kF: 39 93 ,Êá23\2cbc“ibi]i“ciƒ:9ƒ:,A@A@qAq@AkGq:9Aq@qA@:@AAjA:qAqAqAqAqAqA@qAƒ:@„:@:3 @9:9 93 :: 3@:3@@A@ƒ:A39 :A9ƒ::: q3 93 : 3 2Îá!322c83bc“ibi’ib2“@@:@@3c9::qGqGqƒA`:Gk@AjA:@@qA@@AqAqA@kGk@GkG::9@ :@:@:A@A@:939AA@:@:9 @A 3 3 9::9@:@::@:@3:9:A 39 9 3 ,Ïá 2c8232i8b9\ƒ2 “i2iibicbch ƒ:KqHkAq@qA9G:kAG@@:A@kAkA@qGqA@qAqAqAq9:@j ::@:9Aj::@A3:@3:@ :AA:9:93„: ƒ:9 GAA 943 -23Ðáy323822,ccbcicibc““ibcibA@@:@AqqAAkGqAqAqqAkAjGk@G@qAAkqAq@AqAAqAGkqA:@@9:9:@:@A@39:3A9 3 k@39@j:::3@:@ kGj::9A23 3943 3 ÓáE2323iic2™ibi2ih9bh“ib2i9;@9:GqqGq@:qAqGkAF:AkFAjAAjA@rqGkA@qAqGkGk ƒ: : 3 @j:@A99A93:9A Akƒ@39AA@9:A@ 9: 9: 3  ÑâL23bchci’“ihih,c8““h92:@@A:9AqGkAA@AqA@AqA9:@qAqAqAq@AqGqqGqq:AqAqGqGk@3 :ƒ:@A949: ::3939ƒ: 3q99:@3 3 9 39 9 3 222Òã232]ƒ2"i2chc82i“8i22“:@““9:@:A@AqkG:q@:@@ƒ:GkGkA@@AjAGkAAqAGkGqqGqqGqAƒ@k9:993:9:3:9:4ƒ:3Akƒ:G39 9 349 3 32Ôå,32 2c2322329bcci2@ƒ:F4@:9AkGqAqAq:@k:G9@AqAFkGk@@kGkGkGqGkGkGkGkGqk@ :: 9: :9: 9:: 9A9„:G9@::ƒ:9 39:9 3 3 2Õè&, ,3322cb3,82c8 :@@3kG@:GkGqAqA@Ajƒ:6AqAk@AA@AA@AqAkGkGqGkGrAqG@A@A:: 393 :99 ::9 :@3ƒ:ƒ:: :ƒ 3  ,Õí2ƒ3l,223b322322cch3kA@@qkA@Ak:@AG:9@A@GkFk@@qk@A@qAqAkGqGkqGkqk@@::9 94994 AjA:@kA@::GAG9::9: 39: 33 3 ,2×òP323,2322,cc@@9kqAq@AFA:@kA@:@k@@rqqA:Gk@kA@qA@kAqAG3qGk@@3::@9 A@ 3A9:@ƒ:@Aq::99 349 3 3 23Øøb2 2,3bA:Ak9AqkGj:@ApAq@@kA@GkGqGqGApAAqAG@k@A@@k:AqAqA 3k9kA@@A:: @::9q 9:9 9 3 3,Úø‡ 3233@@3A9GAk@ :@A@Ak:G@AkGkAkGkGƒq GqqrGq@;A@q@AqA3 3AG ::Gk@qAF::ƒ@::@:9 339:3 3 3 2ÜøŠ 4@@3G3„@3qAk@AGk@:qAGkGkGkGAqAqGrqAƒqAAq9::9A3@9AA@@AqAƒ:9ƒ:ƒ 9 3 3 ßø‹S 3::k :A@3@k@kA@:9@@:GkGkGqAqAqGkGqGqAq@33:@ 994 3@@3qA?: 99 39:9 3 3 ,Þø‹- 3 93@ 3:@A@:@::@qA@:AjA:@@:kGqGqGqqHqkGk@AGkƒ:! 3 :@::Gk9 3@43:4 3 3 2àø @ 9A3:39:@:9::qG:qG39::@ˆ: 3„A&qA@@::@kGkG:q3:@:G39:9 3 9: 3 2áøŽK3:@- A 3@:q::Aq:AqG:qGA@q::@:@AA@q@q@kA@@ ::@Aq@:@@:@334 3:: 392ãøE2 3@39: 3G:9G::Gk::qq:@G@@A@jGkGkAqG@k@A@:99 :943 k :9: 993 3  „,âø‘H339: 93k9A:9Aq@@G::Gq::qA@A:@:9@@AjA@Ad@@A::9 9::9::3 :33 ,2, ãø’*,323 33 kG3::@:A:@@A@qAAqkq@@A:AkA@AkG::ƒ@: 9 9:3:33:9  3äø” ,22,c 9kƒ:9@@k@@AAq:@:Ak@:@@::@@A@::@„:349:3: 3 2 ,æø— ,23 k : 9„:@4939 q::@Gq:ƒ@kAj@::Aj:9:A99 99 93 323,èø›2 39 9 9:@:@A@A@@ƒ:ApA„:9::„@AA:9:: 3:9 23éøž :3@: : 3:@A:Aƒ@ ::qq::3@A„:9:: 9: 22ëøŸ3: @9ƒ:9ƒ:@…:@@::9:3 9:@9 942323,íø¢+9 :: 9 3:@:39@4:9:9 9393:9 2  2]2ïøž2…(9 33 ::9:39:3@:: 9 3 3:: 32,3c2 ðø§ 3„ 33 ::9  3 3 2,2223,òøª 23, 3-ƒ„2 323 2,ôø­23232322232,32232øø²23,-23,3, ,ø„ø¹,ø‰øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø¶cøøµ,2øøøÄøøÄøøÄø¶2øø¥2]2,ø›ø¥2c]3ø›ø§3ø›ø¦223‹23øø¦3,”]ø‡ø¦,32“2cø†ø¨3”c]ø…ø¨2•2ø…ø§c–32ø„ø¦,2,”3ø„ø¦2c2•22øƒø–:Ž223c–32øø’:@:2Ž,3]–3øø„ƒ A… 9A@@ @@3]2c322•23øø@:@kq3 Gk Aq:@:A 23\3c32,•]øø:@AG@Aq: qAqqA@@:ƒA , 2]c3c–2ø÷@AkAj@Ak@A9k@:@:3A:A@ˆc]c3,]3]cŽ“•32÷ö kAq@ƒ:@AjA :@A@:@@3Ap:…„c2cc32c“3c2dŽ2“2]÷÷9:AqG9: @Aj ::@:qAA@kA:„]cc‡c]]c3\c]c3]c32]“c]öökGqAqAqq:qG:9 kG :qkGGjƒ23]„c323c3cŽ9]]cc32’ccöõA3:GkGqGkG kG3:Gk3@A@k@A3ƒc ]3c]c23]2ƒc ]3]3]92“2õô!AG@:G:kGqA:3::@ k@AkG@A9:cc]c]ƒcc3,c3d]32cc2c\3]3‘332ôô k@kA@@kGAjAA @:99:G@k@k 93†c]c3]c32ccŽ2]3]232]]‘\côó: 3G@kA@@kA@@q3@:@AGkG@A3@:ccƒ]ƒcc2c]ccŽcc329]23c23‘]cóñ A99AkGk@kA@q::Aj :3GA9AjA@A:@c]…cc32ccŽc3cc”]23]3\3c]\3óò>AA @qGqGAjGA@:q::k@k@A@j@@:]cc]c]cc]]c33c]323,cc3]8]323òò@q@39AkGqA@k@k:949@:qA@AjAA:@@c3]]cccd]cc323c3d23c3c]c]3]c,Ž3\3ñò k::q@3A@:@A3A;@@AjAq:AjA„c]cc3„c,c3c32c]ccc]9\9\9]c,ccñð# @3:AGA A@AqAkG@34@@:@kGAqGA@A]c]„c]ƒc3cc]]3c3]9]c,c3]]22ððE3@: qkG9k@kAqAFkA:99A@:3AAjAkGk@@c]c]c3]cc]]3cccc3“cc]c3c]2323,23]ðï$ A@AGk :@@q@kA9@A 3@::@AF@kGk@Aƒc]3ƒc-2cƒc3]]9Žcc]c3c3]3232Ž23ïï@qAkAq@3AA@@AGqGk@3A„@:jAkGkA@A@32cc]]ƒc33cd338]3“2]i]\c2c]3323Œ2c]îð9qAk9: 3@jAAqkAqAqA3AjAk@A@A@Gk@k@]]3323c-2]cc]3]cc]2]33ƒc33c]ƒc]22]3Œcîð(Aq@ 9:9:kG@qAqAA@ 9:GkG:k@j@A@AAc3\32ƒc 3cc38323ƒccŽcc]9]3]c332c]c2,‡323íêc]2ƒ$@ : 3:@:99Aj:AqAq@9:9:@AqAF3A@k@9@cƒc 3c23]c]cƒ3]c3cccc3\3222322332„,]2íè2c]9ƒA2 99„:'9:@AG@kG3: :qAqA3AAk@A@4cccc3c]3],3ƒc%3c]c3cdc,]c3c2cc,3-22]3232c323,cìé,c]]c :A:: ::@AjkGAkƒ:9AAjA99AG@@4cdccŽ2c]2]9cc3]ƒc323„c]]c]32c32-2323,3]3]2cëì3]cc3]2]9,A 99:G3@AGk@9:@:9AGq@ kA:@9:cccc]]32c3]…c#c3cc33c3cc232]cc]33232]]2]232cííS9]b323:3@AAkGkGkGk@@3 AqA@A@@3F,A:93]]c]c3@@Gc3]]ccd]23ccc32]]3]923,3b-232ƒ3c232]]êí]c2323@@kGk qG:@kGGk@A3@Aqk@k@4A@AAc32:k@k:k33c2cc,3232233]cc3c3c2]3]233233\23\323 2êë2ƒc3Ž23@A2 9:9:AGjGƒ::kFAq :G@:k@qƒ:(@AA@A@ 2]dcc33]2c]3c3]2]3c2,]9\]2:ƒ3 :9 3 3 ,éè ]23]c]33ƒ*23Aq 9A@kAkG:@Aj:@AAk99::Aq@AA@:qAqAj:ƒc]ƒc&2c3]cc]cc9kG: \9:39 9:4:99:@AéÝ,2…&]c2c3]ccccc,32: 3:9AFkGk@qG@3@:k@ƒA>:9AG@@k@AqAqG@:dcc3]c3]32] : : ,: q 9:3::933 ::9 A@:@:éß22]cc3]c9cdccŽc]kGk@@:@kAƒ@AkƒA 3:@:FkG:Gkq:ƒ@1kGkGjA:3c]c]93]3,32 qAq , 999-3::: 9::A@@ƒ:9AAcçÞ2-32cc]„c3::AkƒcD3GkG@:@3Gk:qGq@k@9:@AkFk@kGA@:kAGkG@A@33c2]c]2c3qGq q 3@A::9::ƒ: 93: ::@A@ƒ:@A::@3çß5233c23c3@9:ccdccc 9:AA 39:AkGk@A Ak@GkAAFkqAqAƒ@"33::]2332]cGqq:9:9 3::99:@:@:@„:9@A::3:9@A@::@9G æß32323:@: @c]: ƒcc3c3:@@j9@ AqGq„@Gk@A@qAqA@Aq@;@„:ƒc0cc39 q:::@:A@@:@;@@A@:@@:@A3::@9:@A:@:@@A@:@æà[323\3@A2: 3c3ccc]]3c3@- : k@Ak@qA::Ad@ k@kGkGk@qAjA::FG@3]ccc3:A:9:39A@A@@A@A@kAk@:@3GA…@k:@@::@A:@:k:9åß232332] ::3cc@„:ƒc42c:@:@ qAq@:@:@:@A@k@A@qAq@ k9@AjAkAG]c:: @kAA9@„:$3@:j4:G@@AkGkA@@3GkG@A@:k@q:@j:@@A:cäÞE23]3\3]c9:9 3@A@c3]c32]c3c33Aq@A9: ::@k@Aq:@GkG ::@;:GAq@kq33:G3 ƒ@qA@AqG@kAAF@:@k:qA@@kAkGƒ:@qAG@:@:: q49:9äÞ+2,32]c]39AkAA:jA33\c,3,cc:3:@@4:Aq@A@A:ƒ@EA@:::9399::GA3 @Gq:@::@A@@kGk@A@k@kqqAG@@kGqqA@A@kA@:@;@A:9: 3 @ãÝ1,332cc3239Ak@9: c,c]3,i]2cAkGAqA9AqAk@k@k@:A:@ƒ:"9:@;@:@k@-@Aqq@@A:k3G@@A3@A@@;ƒ@rqAqAAk@kGkAjA@@ˆ: 39ãÝ232332]c]]9 A3 2ƒc33ƒc4-2:ApAqGkGAq@A@A@@A:2Ak 9:@3A3@qk@49A@@kA:@j@GAkAƒq @:@:@A:kAGq:ƒ@Aq@qGkGk@j:9::AAâÜ233]32]c3]c9cc3c]c]]ƒc\ƒc\,39AqGkGqAqAq@k@@:3@:Gk qAA kG3@ k9:@:@;@@A:AAjA@qGAAqArqqAqAqAqAAjA@AAk@A@:9;::G::9: 93]áÛ=232323]c]bc]]c]cc]9]cc]cc]cc]c23:A:93GkGk@Ak:9::AkF ::9kk ƒ: @@:@AjA@k„:'@AkAqAqqGkGqGq@@AjGAkqqG3@:@:9  3:@@„:áÛ 32]3]\3c3]3ƒc#]3 c 9c]c33]c3,:99:3kA@G@A@ „:D@@A@Aq@qAqGqGrA@AqAG@A@qqGkGkGqAqGkGkGkGk@:@AqGk@:@ :@k:::@G@àÚ!2332]23\3c2cc]c:GAj:@qA 93323ccGƒ: 9 A@kA::339A„@@jAqrqG:@qAqAƒq4AAqjAqqGkGApGqAqAAqqAqAqGqq:@ 3@ :9 29:kA@::93àÙD,323232c3c]c]cc9@k@A:GkqAkG9q2]23AGA3Aj:Gq@qA@3@Aj:@:qHqqGqA@qGkGqƒA5q@qAGkAAqAqqHkGAqqAGkGkGq;@@A@23 A9:9 :A99ßÙ2323233232c33 3GkAA9AjGqAqGA…3cAjA99:GkG::@33Gq:ƒACqAkG::@AkAqGrAkGjGkA@k@A@AjA@kGkqGkGkGkGkG@:A,9:@:: :::9:::9: ƒ:2Þ×e,323,332]3c 3 @9AqGqqGkGAqAqAA@232]9@@AAGqA:@3 AAkA@@jqGA@:AqA@@AqAqGqAqrGk@Aq@kFA@:@@AA@qGkGAqAkA9 „:::9A@:@:: 29 :@@:99 Þ×y23233 ::@A:@@k:GqAqAqGqqGkGkGkG,2324@@3Gk@9AqG3@@9A@AqGk@k@qGkAkGqAqAqqHqqGrqGrqAkGqAqkGkA@qAq@G93:9: :9::@ 2 :@::9:3::9ÝÕy239:9AFA@@k @@kGqAqGkGkGqGqGk: 2]3Gk:@@A3GkGq:: qAkAA@AqGAkGqGkGqGrqHqGqGqrqGrqGrqrGAj@rGkA@ @@:9AA:::A:3::@A@: :@@::@ÝÓy 3 3:kG:@Aj@:@qA@qAk@qGrGqAqkGkG@:3]22 @:A@qGkGq:@AjGAjAq@kGqqGqqrqqrGrqAqAqGrqGrqqHqqrGqA@9::A9::::9:99A@@ k@: 9A@A9::ÜÓl 33:G9A@kGkGkA3GkGkGqAAkAqAqGqGqkGj323 3A:3::AqAqA@3@AkqGqr@rqGrkGrGrGrqqGAqrGrGrqGrqxq@::A@j@A9@:9k@@ƒ:@ƒ: @@@:A:@A9:9:::]ÛÑ1:9 :@@A:3:GAqAqA@3GkGkGkGqGqAqAqBqGAk@@] 2A@q@@:ƒ@?: qA @:qGqG@A@rqGqAqqGrqGr@@qGqqGqqrGr@::@@A@:94 @@@94::@@ƒ:A@:k:9A@3 93:@AÛÐ3::A@ƒ:Y@:@k@qAGjA@9@:GkGkGkGqqHkGkAjA@A@3Ak@@:@@A:@:@q3::GqGk@AqGrqGqHqrGrqA@rGkGkGkGGqG:G:@A@jƒ:%33 3A::@:@:A:@:@3 9::A93 @: 9ÚÎS3::9 @@k@3AjA@:GkGkAqAA@:9@AqGqqHqGq@qAGAj::3G@3AA:k9::@: q@qHkG::qqGrqGqrqqGA@qA„:Gq::@:@@:9A@:@ƒ:#9: 33:9:@@k@: j@@:9A::@39:3@AÚÍ@:9: jA@ kG@:9AqAqGkGjA@::@:kAAkAqGAk@k9:@Aq 3 @@jA 3A@3 qHƒq::GrqHqrA@AGqkqGqqGqrG„: :@@:: @Aƒ@$::93A@ ::@:@::9:9A9 3:99:@ k@@ÙÎh9A9@ @A93GkA@qAqGkGkGkGkA@:AGqGqGk::GA9:A@@k: :@k::@A:9kG@::qqGkH@qqGrqGAkGkGqGrAqArqG:qq@:@@k@:3@;jA@A„:" 9 39@3::@@A9:::49:A3:3A9AAk2ØÍj:A@A:33A3 qApAkGkGkGkGqAqAk@kGkGkGq@@k@q:::c:@@A993:: qA::@A@qG3HqrGr@qAqAqGqGkGqrqGr:33 :@:9 -ƒ@…:3 9A@:@@:9:93:99 k@Aj9::ØÍy AkA9:9: 9AqAA@:GkGqAqGkFA@k@qGkGq:@AAqAGqGr 93@A@;AAq@A3::@:@;@k qrGq@qA:GkGqrqrGqGAq::@::9@@::A@AjA@;99 39:@ , :@AA@:A::ƒ: @A9::A@×ËK2 jAF33@3kG9::Fk99@:GkGkAqAq3GqqAA:@jA9AqqrqqGk::qGqA@@A9@A:@@rrGqAAƒq:GqqHqAk@kG9 k@Aƒ:@@;:3ƒ:@@;@:: @A3@:@::@:@jA:„@ @A@A:9:k@×Ë2 Aj3A:9@:A kA9„:9:@9Aƒ@oAjA@::AAj@AAkG@:GAqGrGqA3 3 qA9qA@:@@k:qHqrqqAGqGAkGrq:GGqH@A@@:@9::9::A@j::93@@::3 @A:@A: :A@@AjA:A9Aj:9ƒ:@A@AAÖË323 9A:kAp 9::@3ƒA6@:kAk@@A@:@AjAqqGqA@:qqAqGkAAjG99:9A:q::9:@3GqqrGAqGkHƒqAqGrqqHd@AjA3@9@@@:@A@@:::Aƒ:!@9 3@@:@::3@A@j:A3@::9A9:jÖËm,32A 3@:Aq q 3:9A:9A3:9GkF:AjA@3AqAGkGkAk:GqAqrGkGAk:@:: @@::A@A rGqGkGqk:@GAqA:93 9A@A:99 :@A3Aj@A@@:ƒ@ƒ: @::A3 3@::@:3 Aj:9:@@A9Ak9@ÕËf2323@@A::GjA93A@:9@@3:q:G@@qqAqGA:qGqG3AqAGqAqqAF: A@3kG@:qA@:qrqrqAqAG q:9GqG@3::@:@:@::@@A: ƒ:@A:@::ƒ@A@@:@ƒ:39„:9: 9@4@:Aj:9:93A@ÔË32323j3k9:A99A@Ak:3 :@AqAkAkGq:A:93::Gqq:GqGkqGqGƒq 9A:q::@qG:@rGrGqAqq j:G:Aƒ: :9 @@::ƒ@4:@k99@@;j@:@AjA@A:@A@:@@A:@ 9:9@@:39A9A@: 39:AkAÔË7,]32 3 3AGA A@A3:9 @@::3AFA@qH:3GkG9GkGr@kAqAqGkGkGrAƒq+ kG:Aqqr@3GkqGAG@AA@::qGk::@ ::39A@::@@ ƒ:.3@ :@;94@@d@AjA@j@:A@:@A@@:A:@k:@9  A@@A@ÓË232]c 3A9Aj:99A@A@qG33ƒ@C3Aj 3k@ @AkGkAqA@Gk@GqrGqGkGqGqG@3Gq::AA@ 3 G@kk@j@Ak9 9@@9jAj ƒ:7@A33: 399:@j@A@@:93 3@A:A:A@:@4@@e@A@@:9 @:: jA99AÓÌy23]cc:@3AA@AAjkqGq3AA9:A9 2A: @@j@GqGA@qAk:@kGqAkAGkGr::9 :@@A3A93@:qAAkA:3G::@A2A@A@@A@A9 ::::@:9:A:@dA::@@:33 :@@jA:@@A@@A@@4ƒ: 39A9A9@:ÒÌ%323]c3:9A@@k@A@ qH3:@A9:@39 2::A:qAƒqQA@qG:rGqrGqkGqAqq:: k@AjqGk3@ 3A@::9A@:AAjA@@j::j 3 :9:@:@:@:9:9:@;@::39ƒ:@:A@3:@k:9::9 9 9„:9ÑÌk,323]c A2:A@k@@k:@:9@3::A3G@3:A3 qAqGlGkAAqGqGkGqAq4@@AqG:9A9A@AkG3k39 kq@: @:@:-@k@;@::3:@4::A@@:@ƒ:@:ƒ@:ƒ@ @::@::@:k:9ƒ:9@@:A9:: :A@:ÑÍ 222c@k39ƒ:@A…:'@:@:qGA93:@3GqrG@qGkGq qrGqrAG9AkGqqGkƒ:ƒ@BAq :@ 3Aq 2A@:3: @@::@@3@::::: 3::@:@@:A@;@A@:@:9 @@::@A@::ƒ@:@:@: @93@9@4A@ÐÎ 23]3@A3@9:ƒ@+A3 ::@: @k@49 3rGkAkGkGkGk ::GqA9AqAGkA„@"::@@k@A :@q jA@33:@kAk:9:A@ @:ƒ4:99::@A@:A@@:j@:jA:@;:3@:@Aj@@:A@A:@:A@:@:3@3AA9kAÐÎJ232cAj9:@@;@k9 39 3 3 2:AqGqAqGqGkGkG::@::q9@@::9:GkAAk@:3 2A@: @ƒ::9AkAƒ@A@:@::33 @@::@:@:@;@@dA@:A:@:Aƒ@:3@:A@A:3@A:::@9:3AA9A @q@ÏÏ.332kA9::@A@@A@:Akk9 :9A@@jA ::@qAqGqkGqGqAqGk9ƒ:9A@qGrqAG@jG3:@ @-9A:@ƒ:!@:AG::3AjA9: 2 :::@ :@@A:@j;@@Aƒ@&Aj@:j:@:: ::@j@:9:@@93:A993:9::9ÎÏ 2]33A@A@@:Aƒ:-k@@: :9:@AA2:3@AqqAqGkGrqGq@AAF:: qkGkGrqrƒ: :9kA Ak@:@9:@:@j:@A@ƒ: ::@@::A:@:@:ƒ@ ::j;@:@;@A„@:399;::A:9 ::A:A99:9A 9:@ÎÐl2339 39Ak9:@qA@@::@: k@: 3 @qHk:AqHkGkqH@k924@GkHqq::9@ @qAGk@k3@A@: @:@4: @@k@@- 3:@::@ j@A@k@A:A:Aƒ@k@Aj@:AdA:@:A@@:@@ƒ@:@k@::99@: A@ÍÐ(,2 3@A@G:AqA@k@Aj@k @A3 qAqGAqAkGkƒq& 332@4GqGGq:Gq:@:9:@q 3:@::@;@:ƒ@ A3A:@: 3@:A:@:@:@j@@j;@:@::@;„@A@@:@A@@A:@3A@49@:9AA@kAj@ÍÑ3 AGkA@9:93:Aq:3@A@:ƒ@A@@3GƒqGkGq@@ƒA&::2-@@:@:Ak3 @kA2 3:@: :@:@:93@:@„:Dk@3@@: 3@:@@:@;@@;@;@:@A@;jA@@j;@:j;@@:9:@:@4 jA9:@k9@k9A@A AAÌÑ2k@q:@ƒ:):@3 @A9:A94:@d @49HkGqAG:@kAq:A@q@@:AqGƒc/qqc2- :3:9::@:: @:@::3@A::@A@@::@A:k@@dAƒ@k@:@dƒ@':A@@A@:@Ad::3@@:99 ::9:@A@:@ k@9jA9ËÑW3AjAGA93@@:@:@ 3:3A@A9: qAqA9:GkGkqA@A@3@k ql@A9:: 3  ::23:A:9AA:9 ::@@;9:3;@ƒ:>@:@@:@@:@:@@:k:@A@:A@;@@dA:jA@@:@@9A@A::@A@: @:@@;9AAA@@ËÑU2AA@3 ::@AA39::Aq@:A3AqGkA9:GkGA@k@k@:: q@A@:3 @39:@Ac9A9 @A@9:9::Ak :9@Aƒ:9@:k:@A:@@;@AdA@@A:@Aƒ@dAƒ@:@;jA@A9 @;@j:A@@A:kƒ: A9: 2AjkAÊÑY2A3@:93@:9::@: 9AqA@@kGq@@q@::GkGq@A@AkFA@:A@:k 3@@4:kA9:393 9Aj:  @@Ak3 :@j@:9Aƒ@ @dA:j@:ƒ@233@@d@:k:@@:A@Aj:@@:@:2@:A@::9::3@A@:93:A9A@ÊÒZ2A9 3A@::@:A@qAq:qAqAAqA:A :qGkGjA@:@Akq:3qrqGk@@A:9 @AFk:9::bcbA :9 k@A3:9A@:@:@:@;ƒ:ƒ@9;@@;@;@A@;@:@@A:A@dA:@A@;jA@:::@@::9:@:@@::9:::39::@ÉÒ,3@3@ƒ:b@A:@A:9AqAqGkGq:@3@GkGk@A33 kG :GqGrAqA@k3 jkGkA3b383b::3::9 @A@3::@::9:@@;@9:@@j@@:@@A@;ƒ@dAƒ@:„@ :@@9:@A@3@A@A@@:9::3 ::9A:AÈÓ6233AG3 :@:G@jAjA@:@AqAqAq:@ kGqAqAA99 ::qqHqA@AqA @ƒAO@@39323b9c:@ 9::@@: j:A3@:A@@::@:@:A:A::A:A@d@@j;@;@@A:k@;j;@A:@93@@:@3 @:@@ƒ:A: :9:3::3ÈÔ 23:@:@:@AkƒA0GjAGkA:@@ AkkGkG@@k::9,:?GqqGkGkGjA33Aqj3 3@;ƒ3!2chchAk@4@:@:@@ @@3:@@:@:@@Aj:@@:ƒ@j:@;@;„@A:j@@A:ƒ@ j:@4Ak@;9 jƒ:k@93:9: :949::9ÇÓA : :G::9AjGkFj::@kGj@:A3@qAkGqAqA@@:2dqGqArGqAqqA 9@AqA9::3c3ƒcchA@@:@:9;@:@A::@A@49::@ƒ:@:@e@;„@ jA:k:jA@;ƒ@$AdA:A@3::@@:3:::@:::943394@:ÇÓ:9Aj9 ::9:3GkAG@3:9AAj@@Aƒ@kGqAjA@qGqHqqrGqA 99ƒ:(9 2@:G: ccibc3A@@:@:@:3::@:@@:3A@;ƒ@::„@:AdA:ƒ@A„@(;j;@@:@@A9A@A@@:A@:9:3:3:3:9 3 33ÆÓh:@@AAjA@:39:GjAA@:AF@::@:3@:AqA9:A@:qAqkGA@:@kAqG:G394 @kG@3 3cŽcbi8@:3:@A :@@:@::@Ad@::@@:@:A:@:A:@A:ƒ@;@A:@e@A„@$:A@d@ @:Aj:A@:@49:9 9: : ::43:9ÆÒ:@@;@:9AkAA9 9::@@A:9:Ak@::Aƒ<@:GqqGqHqGkGk9qGkG:qGkG3A@k @@3 c8c23A9:@:@3@:3@A@@:@A:@@ƒ:?@@:9::@:k:@:@:jAj@A@@:j;@k:@A@;@:k@@: d@:9:3:4 9::9:  A9:ÅÓS:@AjA9AFk@@:A@::@A@@A@@:9@@Aj@::qHqArqqAqGc”G:GqG4@kGA:99AA@kGk 9cb89::@@49:A@: :@ƒ:@Aƒ: 9:33@;@39@…:@:@:@AdA@@A@@:@@:3@@:@3„@:3:3:99 99 39:@:9: ÄÓK :@@:@A@AqA@::@:@k@3AjA::@AkAA:@q@kGqGrGkcŽGq4Gk9AAkq :9Aq:AqG923:@::@:ƒ@ƒ:@:@::939 9 :@ƒ:ƒ@:99:9ƒ: @A:@A@A@:@k@;ƒ:@A:: A:Aƒ:9A9 9 9: 4 9: 2 A@3ÄÓ:33:@kAjA@:@:@3:9A::9:qGk@q:@r@AqAA::dcqG:9G49@ q 3Aƒ@,39 8::9::@:@@ A:A@:@@k::: 9 :9:A::@;:@@;@…:0@:j@:j:A@::9:@::9:@::@9 :3: 9: :3@939 3Aj 9ÃÔM393@@9 :9 :@@: G3A@G:GqGqGAqGA@kqq:jj:: :GkGqr 3@A:@39A2c9:@:@A:3@kƒ@ -:@:@::@;9…:9@@:@A‡@„: @A@:::@kƒ:!@3:39@A:9: :9393@ :3:9 9 @]ÂÔa339Aj9A@A@k@@: ::qqAkAqqGrqqA9kqAAG2“c”d9r94GqA ::G@k@: 3cb233@:: 9A3:@Aj;@ @@A9@:@::@:@@:@ƒ:@::A@A@Aƒ@:@::@ƒ:@@:ƒ@!::9:A@:9:9:94493:3994 3A9::ÂÔP2]23 3 3@3 9A@:3@:GqAq@qHqAqGAA:@:9“9bcid“i29GqGj :@k@3@cc]ci2A 9@@:3@::@@A@„:@;3@:@@::@A::@ƒ: @:j:A@dA@A@@„:@:@A:@@9: 3:A@ƒ: : 93: :9 ::@:::ÁÕJ323234@9::3 3@ @qGkAA:qHqk@A@:,ii“i“i2 :AqA@;q::@q: 3c,ccbc2: :A@@@ƒ:@:@:9:9A„@ :@@:ƒ@:9::@A@@;@@:j;†@;@:: @ƒ: @:3@A:9:3949::9: 3:k::: ÁÖ/2]2- 3 3 @ q3GkAqqGk:qGqAqAqA2cbc8’i:@3 jkƒ@ :qG:@cc3ccbi2 :j :@:3:@:9:3@::9ƒ:@;@dA@@3@A@:@A:ƒ@e@@k:A@:@;jA:j@::9:@@:9: ƒ:99ƒ: :: 9::A39A9 2 ÀØ>3223,33::33:GqrGqGqGq:GkG:ApA22iihcib3G:3A@:qAk9 qr@:c]c2cb9„:@:@::9: 9 3::@:ƒ@;@@A:A@:k@A:@@;@@A„@A@::@@A::::@k3ƒ: @A@ƒ: 9:9 :9 9:33A :9 2¿ØI32323]3]339GrAqGqAqGq qGqq@AA2ch““bi2:q@@Aj:@A: qGq::c32c:@:9@: @@93:„@O :9:@:Aj@@e@@:@A@A@:@:jAj@;@k:@j@@;:9:@A@@:9A@:9j:@k:@9:9 @4:9::9 9::A9: 939ÀÙy32323c\c :4Gq9GlqHqkHAqrGA:@39i“8ci“ihA3qAAq9:A9: AqrG323289@:9:@::A:@9 :@:@@A:: @:A@@:Aj:3@jA@d @@;@j@;@A:A@:::@j::9 @ƒ:!9A@::@:::3:9 9 :99 9::9:@ :]¾Ú2-23]ƒc qGk::@GqAƒq94q qkG3i““h22::q qA@9::qA:3@:@qG23@,@::@@3:@A@;@k:AjA:ƒ@-@@;@jA@:3 A@@A3:@@A::@@:@:,A:9ƒ:939:@@ƒ:@@:A::99499:939: 99 9 :¾Û23]2ƒc:qG3qqA::GqH@qAqAqAA9h9299qGq:GqA9::9Gq9 @qr:39:@3 ::@ƒ:@@:ƒ@:@@AjA3@Aj@A@@A@3@k@:@A@3@9:@„:@:@::A@ƒ:A@: ::A„:93 9 9 99:94:99 @:2½ÛL32323c]c q3GqAq9::Aq@kGqGkGAibcb qAGk9 :3 :AAq:Gq:@ 9::9:2:@::9@:@:@:AAjƒ:#9@A@:@;jA:@@A:@@:@A::@A@3:9:@@:@::3ƒ:(9:9::9@::@9:9:9:99949::: ::c¼Û_,3c3c]c3“ :GkGAA9qG:rGqrGAk@\9b““@kGA:9G::qqAGj qrG:3 :@A9 3::9 AjA:@:k@A@@: @@k@A@@:k@:@@;@„:@@:@A@@ƒ:@:: 9::3A@@A9:ƒ@: 9949::93:9::3A3 22-¼Ûcc]„cS]2“:qGqqAAqqGqqGqkG@3:ci“::9Aq ::qGqGkGqqGqrG@3 :9A2 39@:3@@:A@@A@:A@jA@:A:jA@@Aƒ:@dƒ@::@:@jA::@:3:9@@@:9:@kƒ:!9AA9494@3::9:9: :@A9::232»Ú:2]cc]cc3i“ qAqAqG@kHqArAqGqq:3:@2G3 b 3GqG: :kGkA@qr:@3ƒ:(: ::@ AAj:@::@3:@@:Aj@@;@@;j@A93:3@:9„:9: ƒ:, ::9:3::9:9A:A@:39:9: 9:9:9:::b2¼ÚF23cc3bbihqA94GqkAA9AqGqrAqHqG39:@2“c9Gq rq: qGqA@:A@9:@:@ :39:3@ƒ:@@k:9A:Aj@;@A@:@@A@@Aƒ@#4:9::@::@A9::@:@ ::9AA9::Aj9:k@:9ƒA@@:9::9:9:,c33ºÚN23]]c3hc9hcc3G:9::GjAAqGqGkGqAA9A3 @:c9kGk @qqGkGAq:qq:A@A3:::9 9A9: @;@::ƒ@;ƒ@j;@„: j:AjA@@A:@ƒ: @:9:9:99@: 9„:%99:9A9A@q9  : 3:9:,22cc»Ûcbi88“ibicc 3„:QqAj:AqGrqGkGkG3::@AAq q :: qAqA :GrGA@k 9:@:A@39@@j::@@e@@k:A@@j:@3::@A:@@A:ƒ@:::9A@ : A9 :3A@9 AjA:9::9A@::A:33 3 993-2¹Ù2ƒi$b3“bcbccc  93Aq@G::qAqAqGkAG@ @k9ƒ: 9 3GqqGk@:ƒq$GkG  3:@:@:9:A@::@:@A@@A@:k:@:@A::ƒ@B;j@@Aj::9@::@:@:3 ::9A94::A@:9 ::@3:A@9::3 3:3 323,c23]3¸Øf232chbchc833]b394:@:A@:A:@qAAqA@@kAk@:@@::A3 qqGrAq:rGr:Aj 9 @A@@:@:@k:A:@@A@:k:@::@:A:9:@@;j@A:@ƒ:†:49 3 :9 :99:9@@:9:9::Ap: 9 39 3 2]cc3\2¸ØJ323bc2ichŽcŽ9]8cAG:@@@::jA:Gk@qGk@9AFAkAG:9 qAA@kGA:GkGqGAk9A:@jA:k:@A„@'::@k@@A:@@A:9::@:@@A:@Ad::@A:@:@@::9Ajƒ:-9AA9:@A: 3:3: :93:39 ,c8,3c3233·×',22cbihcihc]9b:@ 3@:: A@::GqAqA@Aqƒ@1k@q:949 qAj@A9:qGk@kFA@@:@::@:@:@:k::@::@:@:@:@::ƒ@::@:@@:@::@:@9:3:9ƒ:@:ƒ:,@::3@3 3AkA:::9:::3 33 3232Ž32]]2·×232c8ci2“i’cŽc“2cƒ@::9k399A@k@kGkGkG:@rkAqGA:3k@3GqqA@:qGAqqAk::9A@@:@:9:@@„:94::@@-:@::@@A::@-@ƒ:@:94 9:9 9@k9:ƒ@ AA3:?A@k@93::A:9:9: 93: 3,ƒ233]3]]¶Ö23b9223bci“ihi“bc8:@4@AGƒ:1A9A@@AqAqA,:GqGqk@:9GqGAAqHqAk@qqGqG@A@:@@;@A@;9ƒ:@:9:9„:ƒ@A :3994:@:@:@@:9@:49 ƒ:2@A::9:A@43:@::A@ @:G:: 3 9  , 32]2c2¶×3ƒ23ci8b8cb2ih23:qA9…::3G:@qAqAG9rqGqGq3rGqk@::qGAA@AqArkGk: @j:@k@A@9 :9 @::@:@…:j@ƒ: 9 3::@@„:1:9:9:9:9::@:3A@A@:@@@kG@:3 :9 3 23c,3ƒ32¹×2329’i,ccb92cc“bc9“@…:)@@93GkGkG@kA:9HkAkG: qAqGk9:GqqA@kAqGqAF„:@A@@A:A@@A9499:@:@:@„:@@:9…: @::@„:.@A9:@AA939Aq9:99Aj@@:@:39 3 32,c23¾×y,328i“8“™“bch2832bi“i’i @iAk:AqAGk@@9::@qGq:9AkA@AA::qGq@A@AkAqAq::@::@::@j:@A:@@A::39:@::9::3:993@j@9 9:9A@:9:Aj:3…:ƒ:@ ;@::93 9:ƒ ,3,”ÀØD233]8“h9h3ii“8c2i“i“hchc9AG9AqAk@qA9 :GqAA@3GAqq:@:9GkHqk@@qAGkA:@ƒ:V@k@;@:@@;@jA:@A:3:93@A@@:4 :::: 9A@::9:@@AA99:FA@G 3@2qG3:9 : 3,,3Ž2¿ÚG,2]2232chc’ibc2ih“8c““@Aj::@qGkAGk9::Gqq: qAk@qA@:AqqAAqAqAjGk@:@@:@::ƒ@::@jAƒ:'@@::@@:9:33::9: k :@:9A3::AjA93A@:3ƒ:Ak: ƒ: q 3 9 93†3c2c3c¿Ü@32]829bcibi8,i“8b2:@A@:@@qGqqAGkA9AqA: qAA@kA:@qGqqAkGkGAqGkƒ:@:334†:L@@ :9;@:9A@A3:9339:@ 3:9A939: 3A:9@9::qAqA9: 33 33-c]3c,c,¾Þy3,3,382bc8,cb8329:@@:3 :rGqAk@A:9Gq3GkG2:@Ap:AAqAqAGjAq@AqA39 :@@A@@:@@:@:@@:@A@3 3:9@:9:@:: A@A 3A@A9@::AA9::GjG: ::9A@:9 9 3 3 cc]3Áá2323,dbcib2@A@2ƒ:v9@:@qGkAqqA:GA:GkA :@@Aq@AqqGqAGkAqqAqGq@:@:@A:9A@::@:@:k9::@:4@A93:3@k::@A:9 ::3:9:9A:kG9@9 -:3 9 3 3 ,ƒ3c2d2Áã:323239i,2c::9:9A:A9:AqGAGqA@k9kFk9@:kGAjA@rAqAkFGAqAGqrƒ:A:9 @…:'@:99:9 :9A@:3:3:9:9:9:9Ak3AA@A:ƒ:Aq9 943 33 9,9„3\3232Àæ323\328cb::@@:@::GƒqAA@:qGqGqAGAk@AkGkG@@qGqAkAqGkGA@q::9:@Aj :9:93 @;@A:933::4„: ƒ:!@A93Gk99 :@:F4333 3 3 32ƒ2332]2ÁêL]2]]2922ccii@A9::A@kGkAAqAqAk:@GkFkGkAAqkGAqAqAqkqAA9::9A@:@@A3: :3@:9:: ƒ: 3 @k93ƒ:$99:3: AqA999 3 33393 3 3,„22]3Âí@32],2c@::@AAqAFqAqA@qG::GkAAq@qA@qqA@qAq@GkG9:::@:@AjA9:9@@„:.99 :9: 9:3A94kAjG9A@AA @:qA9  39 949ƒ 3 ,2Êð\3,2]8849GkGkGkAk@:@A@q:@kGqqAGkGkGrAqApAqAqG::@ 3@@4::49:@ : jA@3: @AA@9: @949Aj 2„:A:: 2 3:43 3 3,]3Êô!3,3:3@A@jAFqAqAkA@::@AqAqAkGAkGqƒA qAGkAqA@@:ƒ:ƒ@@A9A@ 3 3::9 :399 ::9A39:9Ak ::qAqA9 j3: 3 9: :9 3 2c2Ëõ 32] @3A@@qAA@qA@@:q:@qAG@kFk@AqAƒqP@qAqGkG-::99:@A:3::@:9:9A@A3:@A@A::9:: 9::A 9::A@q9::3 33:9 3 -2-3Ì÷B2c @9AA9kAkAq:@@A@:@kGkGA@k@kGqAGkG@kGkGqG: 9 ,:9::39: 3: k9„:)9 @:@:: ::@:9 3AGk 99 :3 3 3,232ÎøG3 33A@:Gq@A@:@kA::Gk@kGkG@@kGkGkGkGq qAqqGk 3:3::9 3:: G@9@@::9ƒ:@ ƒ:@339::Gk@: : 3 3,23Ðø> 9:9A93Gk@@:@@q@@:GAjGk@A@A@AqAqGkGqqGqA9A@:: 39:994 :9Ak9ƒ:@@3@qAG3kAp:9 kAƒ: 94933 3 -Ñø 9:9A3A@@A3qƒA;q@@kG@qAjA@k@A@qAqAqAqAqGq@:99:39 :9::@@AA:39kA99::FAƒ:9AFA:9 3 3 3 ,2,2Óø/:@ 3@: @A:jA k@kAk@A@AqGqqrGkGkAqAqAqGqGr:@@Aƒ: :9 9A„:&3AGA9::A:3 9:Aq3::9 33 3 22Ôøƒc23 A3 :@A@3@A@FAk@9AkGkGqGq@AjGAAqAqAq::qA@@ 93G@A9:@kA32:@:99:@:@k9 99 9:9: 3 3 3 -,Öø…]::9@3:A@:@kAkFAk9GkAAqAkGqA@q@A@qAqG:qrAj::3 k39  @::@A@:@3::@:: 9 :949 : 3 3 3 2Úø…"23 3@9::9:@kA@::@qAqAqAqAqqr@kƒA@:A@kG@:G3: AkG3:Aƒ:!@GkG:343 994 3 33 3,-Ùø‡ ,9 :39:::@qGA9:@:GqAqGqAGqrGƒq:@@AqA:3„:'Gk@@AAk9 9:@:A9: :@ 3::3 2 9 3 2 2ßøˆ-,3:9: @::q:AkA:G3A::@AkGqkGqArGAqAqA39:Aq…@"kGA::@::@:9::3 ::9 9 3 9 3 2àø‰@32-c3q9AGjG:qA@@:@@::GkGqAqAqGkGk3 ::3 3 kG:@:@:@9:39ƒ:9 3 3 3 3 ,áø‹,- 3 k@9A:q9:Aq:qqA9ƒ:79:GqGkGqA@@:3qG3 9:A@k@q:9 :@: 9493 3 33 3,áøŽK-2: AA99:@@k@:Aq:GqG::9A@@Ak@kAkG:AkAA3 93@Aq9 :9 3::9: 3 33 3 3 22ãø3 j9A3ƒ:@:@AG:Aq:Ak@@:@Ak@A@Aq@@:@9Gj„:@: 33:: 3 9 33  2åø“A3 ::9@:k@:@Aq:GA@ƒ:,kGjAjG@:@A39 9 A@:3@3 99::3:9 33 3 3 ,22çø“ 3@:3 ::@kƒ@A@@:k@@A@:@AA@:AjA@ :9 :9ƒ:3439 9 9 3 2éø” :9: @ƒ:@::@k::Gk@Aj@Ajƒ@:@:@39::99 939 3 3 3 3 2íø•3::@93 @:@:A@::@qA:@:9ƒ:Aƒ:@A: 9::3:9: 33 3 322îø–62 3::9:@:@@:@:@A:@:@A@k:@@:9:9 99: 9 3 3 22,ðø™ 3 93 9::9ƒ:&99:qG:9499:9@::@ ::29 93 3 3 ,3ñø› 33 3:@:: :9ƒ: :A::9A9:9 3- 3 22 ,óøœ3ƒ 3 9 9::94::99 3 3 93-ƒ232õøŸ 29 39:4ƒ 3  39393:3 3,-,,öø¡"3322  239 9 ::322232øø¥32-223,22222232323,øƒø¨323c-3-2-c3,,32øˆø«,-2„cø‘øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄ·Ën¸O1-¾¯É¾¯2Á¯ /Á»OÁËÁ»OÁ-|É|2| /ˆOÙˈOÙ-daÉda2ga /gmO§ËgmO§UªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÄ,cöøøÄøµ,øŽø´2øŽø´,3,Œ2øøµ2øŽø¶3øø´2Œ22øøµ3‹3øøµ2øŽø’ Ÿ,23]ôøŽ@@AGj@A@…::]2,2côø‹ 3@AkG:@Aq::AGGk@: :@2c33,Ž3]cóø‹ GqAqGj;q:@@ qA2Aq: k2-322323óøŠ :ƒ@:q 9A@Aj9A@ q :9: 22c3,2óø‰::3:kGqq:k@A:@:A3@@:@@‰23,ƒ32]c232òøˆ:G 3GAqAGq:@@@:k@A@ 3 A‡,2]32]22d233‘3òøˆkGq:Gk:qGqG:q :qqAq39A@@4…c333233]c, \,23ñø‡$:3GkGk@G9Gkr@ k 9:Aq @AGkGA@93]cc]]„c 2232323]c32]ñø…":: 3Gk@A@AkGq:@:9:@q@kAqAj3c3]ƒc]cc]]]2c2]‘2ñø„ Aj 3GkGqAj@Ak@kA :@9:AqAG@A ]ƒc]ƒccc3cŽiŽŽ”“332ðøƒ#@AA3:qGqA@@k9AA@39:@4AF@k@k33cc]ƒc]cc32ccc33cŽ“ccðø<9 @3q @:GqkGkA@A:@q@: Aq@kA@A3c3ccc]c]c33ŽcŽc]2]c]øˆø":@3@:k:@GrGAjAjAq::9 q::@k@Aj@:ƒc cc3]3]ƒc3“39cƒc33\ïø 9AA@GqAk 3@A@ƒ:9: :@A@k@@:@:cccd]22ƒc3]3c,Ž33]c,223ïø?@ kGkAqGkG:@A@@kAG@q 3::AjAA@A@:ccŽcdcc,3c3c]92d c\3c3]3,Œ3ccîø(@:AqA2GkGk9:@qkGkqA@3 ::@@k@Aj:Ac]cccƒcc3c32Žc“]c323c2]9c‡îï23c]„)@ kG :Aq:AkAGqAAq@:93A:@AAqAqA@ccccŽc]ƒcŽ2Žccd233\]]23\Ž3îï32]c]„? kG3:9:94@@A@@AjGq:@ :@::jA@qAjA]cc3cdcc39]d“2]c3c233c332]íñ/23bc]@39G:@::::k jqGqAG:3@:@:@AjAGqAA@cŽc]ƒcŽc,3\93c3c323cc\]c2,2‹32íó]dc]cƒ >3::@::9:FA qBqkGk A@@k:@A@qAqq@ccdccc,9cccd\c]cc-c33c]9Œcíóƒc \3]c:@9::@„:6k@AqAGjA3AkA@@k@kGA@;jc]c]cc-3c]cc33“3ccŽ]cc2c]]3Œcìð2„c.3c232c: 9: 9@::@q@@kAG:3:@Aq:A@Akq@@A3]9]cc2ƒccd2]c3“Ž2c]]c3322c‹2]ìäX,,]c2]c23]c]c]23c]23cA 9A::@GkAqAq3::@@qAGk@@G@;j2]cd3c]d33c3]c3cc]c,c]cc,‹32ëå32]c33ƒc4ccŽc32c3,:@kA9:G3GqAG@A9:9AGkGjG:kA3@c9c32ƒc]]]23\9]“3c]c3c3\3]cc2‰2ëå23c\ccdccccƒ*,3:@@GqA:Gq:GkGjA3G 94@k@AkGk@@A9cc33c3]„c2cc]3\932c]c3232]23‰ccëåZ2-c33cc3cŽccdc23k q:9G:AkAkG@:3A9AqGq kGk@3dc]cc]2323]c3229cŽ2cŽic3c]c3232Š3êåZ23233\3c]cc:3cc]c-,c k3: ::FkGqA@:3GAkAk@Gk@::c9]23c]23cdd33]]b3]8],33‰]2êä,323]23::3cc]]@::GAƒcE2cA3 ::qAkFAq@@: :qAF:@AA:ccd3c32c33c ]cccc33c9]c]cc]322ˆ3]êäB23]2329@A3@c3::cccc3ckGq@:@::FAkGkAk33:Gkk9Aj@A2cc]c]3]c]„c]c,c]ccŽcŽ3c]3cc]9]]ˆccéã,33232]c :3::3\ccc33ƒcH]c qA@::9::A@qA@AGk:G@G@ k@Ak@A33c:cA8 3c23]c33c23cc]c29\3]]239\3†ccéã232c]9]33@3 @Aƒ:c]3c: 9::@9ApA@kGqA@@A:k@kƒ:@G@kA@3:@A@@Acccd3c2]c23]]ƒc ]]cc32,cc,…2]2èá,32332323\:AA@::ƒ@:ƒc]]c@ :ƒ@2: 94@@qAqq@A@:@AAF:GkA@@k@@Gk@k:@3cŽ\3]23cc9]ƒc]9]cc]23,32,„33èá/232323]]cc:@k@A:@:3cc]3c233j:ckA:9A 3AqqGkA@kƒ@kA:Gkq@A@AkAqGqA9d…c23c23]c323]232]\332,33ƒ2]èß233232]c]8cc]:GAq@3:9]c2],2c]ƒc?:@:9qAqGkG@: @k@k@q:jGGk@:AqAqAA@A3]ccŽ23]2c]cc]c2c]]23c„3,23c,2éÞ232323]]c3c]3c293:9]cc,3c3„cN4 AqAkAkGq;@j@AkAA@GkGk @k@qAGq@j:]c3]cc]3b32cc232]3]9\33\323]2233,2, ]332,æÝ ,323\3232c]3ƒcc]]c3]\c]9c32]2]3-cc@3qA@A@@::@:@;@A@AjAqAqAjAA@@qAjA9 ]c3b3\3]33]233cc]8]3c2c332c,3c3232”32åÜ23232-3]2c3\c]cc3ƒc3ƒc]ccƒc,-]@„:93„:D@@AjAjA@qAqAAq@A@:3 : 32ccc3ccc233c3c,32323]32]3]23]23]3]8]23]3äÛB232323232]c3cc]c]]2]2]9]c]c33cc-2AkGA9q :@:F::@@AA@AqAGqqA@jƒ:09 cc]c]c]cc3cc]9]]3c2c32]232c222]332c2äÙF23,3,32-23c]c3\32c]29]3cc]c]cc3\33]c,A9AqGqGqA@kG@kA@:@@:qGkGAq3@:Aƒ@c]ƒc(3]cc3]9::3qG:q 23q: 233]9]32233å×@2,323233]9]c]c233]3cc,323:GqAc3 c32c]22c q:GkGkGqGkA@k@@d@@49ƒ: @: ApAqAkŽc„c cqqGq q94 ƒ:9: AGq 9:93 3: :9 äÔA,23 :239232 ]c3cc]232:9:AAqG@k9:232]22:@ kGkGqAqAq@A@:@;::@ƒ:@3::9:A:@AAccc]d9:GrGq…:@A3: 2 3:94:9 3:9::93 ãÒ2, 9 †: @@::@:@AkG3 :@GkFkG:@AqGqA3c2ƒ:9:@ qGkGkA@@:@@kGAkƒ:33@:@:Aq ]cc:@:@Gƒ: 9@A3 3::9: @@ 3::9:93ƒ:ƒ 9::áÏ,23:@;@ƒ:49::qA:::@A@k@@kG3@qGqqA9kAqGkAqA32]2 q:@9 :kGqA@@kƒ:)@AkF9:9@q:@G:@k@3:q :@:AkqA@:9:9@@:9ƒ:@:-:@::3 39@ƒ:9::@áÎ2ƒ/@@@3G3@A @@q:A@qGkAjAAk@3:@HkGrqGqAqAqqGk]32:„AO:AGkAAjA@ 3 3GkA9 qAGAG3:qGAA9G3qq:93 k@AA@A@A@@:@@:@:3:9::@:: 9@@3G:: àÎ3 :@ƒ:B :9A@@:k@A3GkGqGqGq@ 9G:GqqGkGrGqGqGkGkAc3,kFq9Aj:@qAG39:9:9@:@ƒ:(qkG@kG3@::@::GqG@;@A@qA@::@:93AjA@kA@@:ƒ@„:@@Aƒ:9::àÍ%, ::A@@3:AAkA9@Ak9GkGkGkAkGqAkGkGqHƒq"HqkHqGA@k]:GA@qqGqAqAqAA 3A@A:@::ƒ@0Aq @ 3::q3:::@qA@j@A@AjA@AjA@@:kGAjA@3A:AA9@:@ƒ:9::@A:@àÌX2 9k9A@A3A@kG3GkG:9:qAqqGkG3GqGqGkAkGqGkGqqGkqAG,ck@k AqGkA@:@q GkGjG:@@AkGj:::@:AG„:A@qrG::k@A@kqGA:kA@A@3A@AAkƒ@A@@:@::AA:@::9:ßË[,3 3GA@@@9Aq:@:AqA@::GqGkGAq:@:qArqGqAkHqrGqrGqA:2 qA@@kAq@AqA3::@k9jAk@:A@AApqGk@::@:ƒ@":: kA@A@qA@A@jA@AjAkGk9qA@@A3@A@k3„@:3ƒ:@GÞËY22 9AqA2:9:Ak qAqAqqArAqGA9A::qGqGrqGqAqAqAqGq:3kAA@qA9AqqGq:9A@qG:@kA@kAqqHqA@qGqƒ@Ajƒ:"9A@kAkAk@A@:@A@@qGAA@@3A@kAqA@A@:3ƒ@A:@:ÞËy3, 3A2 ::@A:9:GqGkFkGqGqqGkqAjA::@AqGqqGqAqGrGkA:92 k:9A@@qAqGkGAkG:@kAGkqGkqrqGqA@kGqrqGAAG@Aq::@A@AqqkGq:@A@@jAqrA:qG@@::@@AAk9A@:@3@@ÝËy,32 A3AA9@:G-G-GqAGqArAqqGqGqA:@@AkqHqBqqGkGkGq@AkG@Gj :3GkGkGk @::Ak@AqGkAGG@:@AkGrqAGqrqkqqAkFAq@qkGAqAqqr@eAAkGqA@@kAjAkGkq@A:@9A::ßË 2,3A3 9@ƒ:ykGkG:qAk:qGqAqArGqG@AjAGkAqGrGkGqAA@@A@k@A@A9AkGqA:@:@:9GqqGqrFkA@kGkA@@qGrqAAGAGkGAkqGqGkGqAqGrGqGqApAqq::@AAq@kA@@:A@:2 9:ÞËy2332A@j :@A9GqA q:9:G::@rGqGqAqAk@AqAqGq:@AqGkAk:@3@AjA@A@@: 2q@3AAqAqAAkqGqG@kAk@qGkqkGkGkFGqqAqAqAqAkGkGkGk@@AqG @@jAAqG@A@:93ƒ: ÞËc]c23jA kA@:qA q99::@9::@A:qkGkAq@AqAqGkGq:qAkG:@@A3 @:Aj@@3 :@:@GkAkGkGkGqqGkGkGqGqHkHqGqAjAFkƒA&kGkGqGqAqAqGqGkG:AkAkG@:q@:3::@ @k@ÝÊ232]33q 3:@qA39k::@ƒ:@A:@:ƒAmqA@k9:@AqqGkH9AqA::@jG3@@Akq :3AAqGk kGqGqqAqGqrqqBqGqqGqGrqGrAjGk@A@qGqAqAqGkAkAqAqG@:Gqk@:@A:Aj 3:AÝË,33c\ 9 9Ak::9@A9::@@:@Aƒ:BjA@kGAA::qGqrA@Ak@AjGk@A: Aj:@A:3:@Aq@Aq3@@qrGqFrqHqHqGrqrGrrqGrƒq*HqGkGk@;@qAqGqAqGqGqGqA@3 A93Ak:@:9:ÝËd32]cc393 :GAp k9A@::@:Aq: k@A@k@@9Gr:@AjGAj:9AqqG3:@A3:9 :9A@3@A3G@rGqHqAkGqrqGqrqHqqrGrqGrGrqrƒq&A@kAAqGkGqAqAk@:AjA@k:9A99@:::GAÜË$232]c] Aq9Ak@::@A39 :@:kGk:9qG@@kFA„:SA@@kAqA@:AGrGq 39 :9@:9:@qA@@4@qrGk@@AqqGrqGrGqrGqrGqAqqHqGrGrqGqGkAkAAqAGkGA:@::9ƒ:@:9 :9A9ÝÌ'2-9]9]@:@kG@AA9@ Ak9 @:@::GkqGA@Aqq qGƒqMGqAq@@qqGkqrG33AAGA::GqA@3rGqrGA:@qHqrGrqrGqrGA@AjHqqrwHqxGrqrGpApqAqA9:9Aj„:@ 9: 39A:@9:ÝÍ:3\c] AAkGkFkA:3FAAq3@@:3GAkqqA@qGqAGrqGqAA:GqkHqGqq kƒq.G@ 3:@:@9rGqqA:qrqrGqrGqrGrGjAkGqHqGqrGqrqNqrGƒA:@ƒ:9:9ƒ@ƒ: @:  ::9ƒ:ÜÌ2233c2qA:@kGkA9Aƒqc Ak@::k@@Aqq:AqA@:qAqG3rGqGqrAGk@ qA:j@:3@A3@rG:9rGrqrGqrGAqqAApGqqGqGqGqrGr@:@:33@@A:A@@ƒ:::@@A@:9: A 99ÜÍ932]32k@:kA9AAq r:3AA3@:@3 3Gr @:@k :GrqGkGqAqrGqGkA@ƒ: 9:AqG9A@@3A@k:qHqwGqGAqGqqGqr„:+qBqG@:qG@::@@ 39::@:@:@:@@A@ :@A::93@:@::ÜÍ 332c Aq9AFk ƒ:y@kG@@:9@:@:@:Gk::G3:@kAkGqGqA:qHqGqGkqGkA@:::Gk@:@kA9:qGrqrHqHqAkGkqHqqAqGqHqG@:A:A@A@@9:3:9A@@;@@A:9A@:@:@:A9A@:9::ÜÍ 2]3ckFA: ::ƒ@ k@A3:ƒ:6@: 3 3 @:GkGkAqAk9qAqrqHqq:@9:3A@Ak@@:qrqGxqqAƒq9AqGqqHqHqGrqqr9:9:2;A3::33A:93AjA9:::9A:@A@A:9::ÛÎf2]] kA@:@kA@:@:A3 k:@:@A3qAA3AG:@@:GqGkGqA @qAqGqHqGq 9 9q@@:@4GrGrqHqGqGr:AqHqrqGkrGqqA@ 3:@:…@::3ƒA:„:@@4@k9:9: :9:ÛÏy]:9@kA@@:@k@:9: : 3 qHj 9A, 3kGkGqAqAqA@:rGrqGqHqqGqq:rGr::qA@@GkqrGxqA@rGkGqAqrGGk@G@A3 :@@:A@;jA@:: A@:@:@A9::99@@3A9 2@:A@ÚÎU2,c :3A3 @k@::9:A@:3 3 3 @A@33@qrqGqAqAqqr@qqGqlGkGkrGrGqGq9 GqA@;: wHqqGkGqqGqrGƒq4:@499 @:@A@@::@@:9 ::39:99 A@@:::4A: @@:3:3:ÚÎi33,@Gq@@9A9:AA@q@@:  ::93 93 :A:GqGrAqGqAGrGrqHqGkGqGqqAAq@jGqA@9rqrGrAqqH:@:AkGHq@:@::@@;@A@e:9:ƒ:99@„: 3:9@::„9 @@39:9:9A@ÚÏ23AAqAqA::@kGkƒAAj:@d:: @A@3::qGkGkAqAqqGqqGqAqqGqAA93 @:@A@k@:rqrqGqGqAA@:ƒq ::@:;j@33 @@:ƒ@:A: 3 @@:@:@@:A@@::49ƒ: 9AA@AjA@ÙÎg,2 qAqAq::@9:@39:@::@@3:@k@k9 @qrGkGqqGqAq:qHqHqk:AqGqq::A3@:k@ @3 GGqAA@;@:q@A:9@A:9A@: @:@Aƒ:#@:@:@3@A::@@k@A@@: ::9A@kA@kÙÎjqAj:GA3@ 3 :@::Aq 3@;@@ Aq 3@qHqqGqHqrGqH::@qqHG:@kGkHq9A A@r@A39 j@A@k@j::9AA@@A::@:9:A9:3@Aj@::ƒ@:@@::@9ƒ:@A:AjA@A@:@:A9:9ÙÎ&,3@GA9 339 @: @@:@:@3:3@A 39:GqG:ƒqGqArqAqƒ:ƒqX:GqGqqGA:9:@kAkG:9 kAkA:G: AjA2AA3A3:3933 :A@;@A@A@A@: 9@A,A@:@@A@A@9::9AAØÏ29:9:9ƒ:\ :9Aj@:3 :9A@@ @:@: A9qHkAGlGqrqGqGAA:@::A3::GqA@@A::@Gk@:9 9 q@:9:@A@@::k::9A9:Aƒ@$:9:@dA@d@A@: 39:@A39A@k@kA:9::9:A@ØÏ23ƒ: @@::@A3 ::9AA@q43qq2@AqGƒq:GkGqGrqAj@A2::@:@ƒA9:kG@:3@k ::3 q@::9A3ƒ@93: @:ƒ&9::@A::@:A:k::9 @@A@dA@@:3::@: 33A@9@ƒ:3AjØÐ 23 :@ 3@:@:@ƒ:K 3GkqA@G9:GqG:3qHqAqGkGA3Gq3cŽic::9qk@rGkk@@@:@@A@qA:33@A9;::@@3:@„:@@:@@::ƒ@„: 3@A@@k:@3@:@:: 9:@:9:@:AAAA@×Ñh2393A@ @:@::@GqGqAqG@Ak@GqGkA@:@kGrGkG:A@AA]ccŽ9:GAqqrqGGk3 ::94A: 3:@AAkAjA9:@9::9:@A:@:9:::ƒ@:3 3 j;@@:@A@:ƒ@: 9:A:A9@99:×Ñ0:3::k@3@::qAk@AqGk@kqGkGAkq@:3A@qAqG:k@@j,d“ŽƒcU @:qGHq::@@A3@kAkA@:99:@:Ap:9A@A3:  99 9:A@:@@A:@;@@::3:9:@A:@:@;@A9A:@@:A9ƒ:@AÖÐr 93Gq@@ kAGkGkGjA3@GqAqAqkG@:@@:@AqGkA@A:9cc @k@A@::kGq:G:@::@@@@A::@:@ : k@:::2:@@:@::@@:@A@:@@A@@:@@ @ƒ:@@:@A@j@@:A@:A:9:9::AjÖÐy@::qA3::9AkGqAFAqAAk@qGqAqG:A:A@rqGqA@@jA:@]ccqq@@;@q:@AA:@@:9::9 @::3: @@A9: ::@:: :@@:@A@:k@Ad@dA@;@3:@@::Aj3 @k@@:9 @: 3AjAÖÏY@:A@kGG::@99AqAqk @qGk@A:AqG:@k@3@qGlGk@;AjG@@AjqHqrAj9 3 9c33 k: 39:@@A3::@::@::k @@9ƒ@4::@:A@@:j@:@:@A:@@j:@@ @A:@@;@:9::@:3::9 :9 k@A@AÕÎ 3Aq@:9„AL9:AqApA9 kGA:@A3Ak:A9HkGqq:@3@AqkG::GkA@A :3A::@:AA@k:9 @:@:9::@3@„:5@:k@@dA@;@A@A@:@A:@A:@- @:jA@@::@@:A9::: 9A3A3@ÕÏ$3:AA@:ApkAA99:Gk@:@3GjAk@AkGG@39GqqƒAf@3 :GkGk@AqA@k j:Ak :@ @A::3::@::9 :@::@:9@:k@:@;@@:@@d@:k@@dA@:@A:2:@@:k@:A@A@:A:@9:9 :@ƒ:ÕÏH :9:@@9AAFkG::@::@A9::AFA:pA@:]@qGrG@jA39::q@@qrqqGk@3:Ap @:93:9A29 ƒ: @:@9: „:@@ A@:@A@@:AjA@A@@::@A@:k„@4 3@@A@:@dA:@jƒ: :: 9: 9:ÔÐm 39A@;qkAqA@:Aq:@A9::@:@A:@@3AqAqAj;@3]c::A@rGrGAA@: 3GAk@9 c8b :3 3@A 3@@A9:@@:@::@@;@dA@@:@;@e@A@::ƒ@;@;@@: ƒ:@@4:ƒ@::@9 @93A9@::ÔÏ$2]:@@:9Gk@q@:@::@::@3@::@::@:@qGqrƒ@2c]2@ƒqaGqGk@qAA@k :9b22cbA@3Aj@ :@@e9::@A3@@e@::@@:k@Aj:@@:A@k:@A@j@:A@9@A:@@: :@:9@49: A@A9AÓÏ#2339Ak@:@ :9:@@:@Aq@AjAjA::@: qƒA5dcdcAqHkGrqHjA@qAqq@A@-:3398c2::3@Ak9@A@@ :@;@:9;ƒ@4:@@;@@:@:A@:@j@@A:j:@;@j@:@jA@::39:A94@@:@A9@kk@ÓÐ 323c99:AjƒAX:@A@kAq@:@AqA@ @A@q@A39:@A:@qGqGqHqAAqqA@@A@k 9::9c,33bc 3:@ @:k 3:@@:9::@:A@:k@@;jAƒ@)k:A:@@A@A@@A:A@:@A:jA@@:9A@:@A3:3AAAÓÐ 23,3 2 9:9A@kƒ@ A@ 3@:kA@ƒ: j@AkAjA@Gqrƒq/GqrkGqqAqGk@::@:q@:3cc]b8ck@:9@:3@@3@:@::9:ƒ@ 4@@:@k@@:@;„@'A:j:@:Ad@@:j:::@:@4 :@:@A:9:::9A3jAÒÑ 2]2,@  39@q;k@j:9:@GqA@9@AkGkAƒ@rqGAqHqqGAq;:9GkG::@::@@:A9 ƒc cibAGk::@ƒ:A :@A@49::A:j:@A:@:A@k3@;@:jA@A@k@@;@A@::9::@@99@;:@@9:9:3@::9ÒÒ2„3; 34  qA A@::qAqA:qqGqG@:rqAqqHqrAqAq@ qGqA@:q:@AqA@3 ƒc 8c2:@@:A@9ƒ:@@:@9:„@7A@::@A@:@:@@:k@:@;@:@;@@j:@@9@A@A4:@@::3:9A9A:9A@ÑÓK2,232] 3 2@@3@A@qHqAqqHqrGqk@qH@qAqqGkGkcr@qrAq:@rGq@:A3@: ]]9bc9@@@@: „:A@AjA3:A:A:@:k@@d@A@A@;@@A@A@jA@@:A@A:@3@A@d@:@;:9:@ A@A: k:@AÑÔ% ,3c3cc: @ 4 jA9AqqAqAqrGqrAA:qqAAqAƒ:+jqG3GqG:@qGk::@@Aq 29b2:@:@ dA@-@@:@:@:9 ƒ@::ƒ@4;@A@:j:@jA:@:j:A:@k@:@@k:@@A@A:Aj@@:A:@kA@3@:@A3ÑÔ62323]c]933993 3GqqGkGqA::qGqqA@:Aq@Aqic:G;3Gk:AkGƒ:Gk@@22@ƒ:@ƒ@)::@:@@:A::@:@@k:A:@@:jA:@A:@@k@A@@A:@Aj;ƒ@: 9::@::@:9A@@:@@:@A@@ 9A@ÐÔ.,3232c]c3@: 3q@rGrGqqGq::qHqAk@9: “ii“3bci“9qƒ:@AAqq@:@:A@3@ƒ:@:@@-@::@@:@:@@…:@:@:@:jA:@@;@@k:@:@;@jA:ƒ@;@;@-:9@:A9:: :@::A9:@A9AqÐÕ23]3ccƒ !:9 q qqGkHqqG:@GqqGA@::“i’28i“hƒ:b@qGqr93@:@@k2:@::@ :A@::@;@::3@::9:949:@:@:A@@dA@@A@A@@;@@;@j@Aj@9 A@@j:9A9@:k@@949 3A3Ak@@ÏÖ3\cc]c]2c3qHqrƒq6HqGA:qHqAjGA@“i’ 2ich3::k:qqAqH9A:c]22 A9 @@3@@A@:ƒ@C:9 933:@@::3@@:@A@:A:@:j;@@j@@;@:@:@49@A:@ @:@A:@A:9:::3A@AÏÔ]ƒc;dcc2c]cGq q:3:HqGkrq qqGqAjAkhi22c3@A3@kqAGqAA@]2]cckƒ@;@ Ad@@j:@:A:@33:::@ƒ:@@@„: @@k@A@@j;@;j@AjA@:9A:k@:9A@::@:@ƒ: ::9:9@AkÏÓQ2c]c]ccc]ci““ 3 qHq qrGqG:qHqA:A@i2““299qG3A9AkGkA@q@:Aq9c9b2:A,:@::@A@A:@:@::ƒ@4„::@::@:A993:@:@:A:Aƒ@$A:@:@; 3@A@@;3:@:@@:9:3:9:9::93ÎÓ,3ƒc@cci2““™“9::9GqG9AqqA3:q qG3392iihikG@@kAF::Aq@@Ajq@]bcic:@:: @ƒ:9;@„:@9 :@:@@„:@:ƒ@;:@ƒ:-@@j@@;@:@@k@A@9 @@;@3::A::::99:3:9:::ÍÓ?233]cŽ8c“ch™i“:GqHqqA::@HqAGAkGq 9bc8,c8kA3Aq :FAk3 qH@-28@„:@::9::3@9:9:@:A@3…@„:@Ad„@ƒ:A:A@jAj;@::@:@:k@@: @@:j@ƒ:3ƒ: 99:3:: @@ÍÒ,c]hcb“ih“iii :qqGqGq:@A@ƒq/Gqq 3ii“9:Gk@:qA@qq::qA:9Hq@@23@:9:@@39:9: 3:@ƒ:@@k@@::@;@:9:@::@A@;@„:@:@;ƒ@%A@::33A:@A:2:A::@99:: 9 :339:3:ÌÐ[23c2ch“9bi“c™hccqGqHkGr@ qqrGqHqr@AA“’@:GkG:@GqAq @:G::qrq;22:::@A@9:@@ 9::@@:@@A@A3 „@:9::@@Aj„@ƒ:@@:A„: 9:@@A:39Aƒ@9:: 9:4:9 :939: 3ÌÐX,32cibc“hihccdcqq qqGqAqqH@rqqGAkAjo“i@:qGk::qAA9A:qG:39Gr@: @A@ :@A:A@@A@@3::A@:@:ƒ@3:A@A@ƒ:@:@;@Aƒ@'::@3::9@A9@::@::9A:@:: :93:9:: :4:ƒ@:ËÏ 2322cbb9“biƒc4]cc q: :qlqA k@qHqrG@@ 3:““ kG:9:q:@:@kG:3A@Gq39@„:%@j@ d@;@A:9::@k:A@k:@A@:@A9:@A@A:@d@;ƒ@*::@::@@;@@:@9 ::::99::: :393::9:3 @3ËÏO229bc“hciŽ3ih3 @4:qA@:qGqGqqrq  @kG@qG :9G:@ qGkG@@:r@ : @:@:@@::@:Ajƒ@)A@ :@Aj:@A:@k@k::@@Aj@jA@:@j;@k@@:@:@:@;@„:9AjA@::::9: ::3::@ 3:ÌÎ2,32ibcbc“ii““d9bcbik 3:9::qqAqrGkGqr 3@@bcc]9ƒ:! qrAqG;qqA@2 @:9A:A:@:@A@;:@@-ƒ@A@A:@3@A:@@@@;@;@@A@:ƒ@;ƒ@#A:@:3::9:9A::9:3:9:39 :@ 99::9ÍÎG323223i2“h“i“c]bc@iAq  9q@A:GqHqGq 3: :c2c: G@qrqqGkqrG@A 94@ƒ:,@::@Aj@:@:@3@A:@k@@A3 @@:@j@@A@:k@;@Ad@@:Adƒ:"9@@:: 9 :@@:93@499:9:@34:  ËÎ238232ƒcC“i“hcii229:: @@j@@:A@kq@:qAqrAkG@k::A 3 qqHq: qAqGrqrq@, 39:: @@:ƒ@A@:@;3@A:j@:Aj:@3@;ƒ@6A:@dA@@:j@@A:@:::9::@::9::@3AA@::4: 93: A33::393ËÎJ,232“bc8b8ci“bc88@jA23 ::9@:G::qGqAqAqAG@:jGAqqGq:@r@rGq@@rGA@9 9 @:3ƒ:#@e@::k9@A@@A:A@@A::@@k@;j@A@:@;@A:A…:@A@:9ƒ:9@ :@ƒ:9:9:::39:::9ƒ::ÊÏ23“ib2™c8cb“i“cƒ:;AGk3: 9::@k@AAkGAq@:jA@Ak:k qA@:q::qA:@A@jA: ::9@:9@:@::ƒ@;@::@Aj@;@:@:@:@:@::-9ƒ@:2@:9:@ƒ:9ƒ@: 3@:@A9::@:3ƒ: :939A9 @ÊÏ,,3229“i“bcchihc28@:9AkG::9:A@AAG:qAqGk@@ k…@!3@ kG:AHqGkq@A:A@::@A@: @A@:@A:ƒ@ jA@@;@@jA::@Aƒ:@:@@;93ƒ: @A@@::@9:9AAƒ:9A:k@ƒ: :: 9: :49:9ƒ :ÊÑ023]22™2i8bi2382cii@::G:@:@@:3AjA@qGkGkG:9@A@kG:@ƒ: 3GqqqAqH@qr:ƒ@::@3::@k@::@Aj;@;@dA@jAƒ@:3ƒ@::@A:@A@ƒ:@:@:@:@@A3:99:@ƒ:@:9:3:9: 3@3:9: :2@:ÉÓ2„2i“i“b9’ƒ“@:@::@ 3:qA@kGqGkG:A@kAkqƒ:3qHqHqGq:@rGqAq:A@::@@A@::@@:Aƒ@A@:@4 @A@@A3:9:@::@@:A@:@:@::9…:#:A@A:2@@::@::: :9:3:9A3 9: ÉÔb32 38cbibcb2ii’ihi’@i2:@A@k:Gq:qGkAqAqqG@qGG@ :: qqA@rqAA@qrqGk@@::@A@j::@:k@@k:j:A@::3@:k:@A@49:9…:9:9::@::@::::9::9:9A:@ƒ: 93::9 ƒ: 9:: -::3 ÈÖN,2-223ibich“ibci“c’::Aq@:9:qGAkGkG@qGlqAqA::9::AGkA@qG:qGqHkG@;@:@:A@:@:A@A:@Aƒ@%:@@:@:@A@j:A@A::@::@A@ 3::9@:@:::@ƒ:@ƒ:@:9:39:9:99:::9 9È×C32328bc8,ii“8c’i“A@@::AqAGkGqA@k::qGqGq:9:: qGk@qA@k@krAqqAq:@:9:@ƒ:ƒ@jA@@:;:@:@:@::@A:@@Aƒ@::@@ƒ:@@::A ::9::9A@A9::ƒ@:ƒ:: :3:9 9::2::4 ÉÙ„38cibbcƒ249@@k@@:@A@qAqkGk@9 AkAqGA9:G3GkF3GAqAA@GqAGkG@k:9:@†:@::@:j@A„:@@j:A:@@;jA::9::9: 99:@:A:9ƒ:99A@A9:99949:9:9ƒ:  :9 Aj9ÆÛ923,8c2i2@:kA@@:3@::kGqAqGk 3:GqGkA:9GqqGqA9:@rAp:qqAqGkƒ@A::ƒ@99„:@:A::ƒ@::A@A@@k:@@::9::@@A 3::@:9@ƒ:9A@„:9 9 9:9:9:9::9 :9::@9 ÇÝ6]23c]h2A::bi:@ 9A@:qGAAqG3:@qAk@:9AqAAqA:@rqqAA@qAqqƒA@:@@3†: 9::@@j;ƒ@:@:jA@ƒ:@@:„: @@:9::9::ƒ:"@k9:9A:k@A:::::3::2:9 3 Çß2-232c9ƒ: @@k 9: @ƒqA@3:9HqG:9HkG@A@q::GqGkƒAMqHqAq@k@A:@@ 3@:@:@::@A: 3:@;j:@::@::9A@@:@:@:: 9 @:: k@ 9:::9A:9:9 9:9::9„:  :3 9 39ÆàA232c2829@:A@:3:3@:rGqqAG@4Gqq :qAqAqqA@:qGrApAqqGqGk@@:@A:A@A 9 ƒ@ƒ: j@@A9::@:@:@ƒ: @:@::9@@:9: ƒ:99:: A@A:9@::@AA9ƒ: :93:@3A9   cÅäF-2322cih:@:::@qGlGk@q9AqA9GqAkGq:A@:rGqqA@AAkqGq::@k:@:@:@A94::@:@::Aƒ:9ƒ:@:„@::99…:#9Ak9 :@::99A:94::9A@Ak999:3ƒ: :9, ,ÅåC2 , ,2“i::@A:GqqA@rG4GA::AqAqAA@q:@AqGqAq@qGAkA ::@:@:jA@@:@:9:9:@„: @@:::@:A@;@ƒ:@:99:9ƒ:'9A@A::@A3::9::9:9 :: 9:  3 : ƒ2Äè02Ž22ih9A@:kGqGk:A@k@9qAqGq@@kG@k@rqGkAqAqAqG3@3‰:@@;4:9:@:3†: :@::@ @A9ƒ:,A@::@A99 @@:Aj9::9A@Ak:33 9:9 ,3Æê.23b3]A::@A@A@:qAqGqAkAA@AkGAkGqHqGkGkGkGk@A„@:@:@A ƒ:&@@::93 @A9:99 j@::@ 9:9::@A9::9A@9ƒ:3 9:9ƒ:Ak9:9: 939:9 3322c,Ãë032]c3@:@kAqqA@qGrAqAq@kGqkGAAqqAkGkGkGk @::@ƒ:@@j:9ƒ:I9: ::@@:9 9A@A9933::@A9::9::9:@A:3::9AA::@39 @:3 @:3 9 3233ÃìT32c2 :qAkGk@AqAqGqGk@AqAkGAj@kGqr@qGkGkGk 2::A@@::@@Ak3::A@A3 ::9A@::9:@:ƒ:-@A@:A93: ::@AjG:9:::@@9::9394 3 2 ,922,cÄí.,c3:9A@@:AGjA@:AkGq:@AqGkGqGA@qGrGkGqAqGqGA@3ƒ:@„:9…: 39:9:@:9 933ƒ@:9 ::9:@A@:9 9:jGj::@:3 ƒ:Aj:„ 9 2 22c-2ÃïL22 :9A@@:qA@qqAAjG@@kGkGkGkqAqGqAqAqGqAqr:@:@::9:99 A9:: 33A@93@::AA9:3 9 ƒ: @AA9::9 :9ƒ:&A::@::9:A9Aq:? :9 :93:33 922c,3Ãñy:93A9Aq@kGAq9Ak:@qGqAqAqAqArqAqAqAqGkG:@A@@:9 @A999:9A@A:3:: @AA: A:9:@A9:9@@A3A:3@9::@A@:@@::9k:9:39 3 29,cc3c3Ãð\2 :@3A9AqAkGq:@G@:AkGqGkGqAqGkGAqGkGkGkG,::9:9AA2 ,:3A 9:999:::9AjA:9::9 :@:9 9::ƒA#@@: @A@;@ 3 3 9 : 333 232,32]2Âñ': 9:@k::AqAq@A@kA:@qAqAGkGkAqGqAqAqAqGqƒ:@Aƒ:9:9:@::9 9 :: :9 : ƒ:9:A9: 9ƒ:1AqA3:AA:@:Fk9 2::@d@ 9 9 3 9 93,23]c3cÂðT2::94@ @9AGqA@:AqA@:GkGkGjGAqqrGkAqGkGkG:@@A@:9::9:@::@::993:A9:9::9:@:Aj:@93ƒ:GjA@:::kA:: 39:: ƒ:9 3  32c 2]9\]3ÁñH2 A3@4j@A@Aj@Aq@:AqAqAqAjAGkGqqGqAqAqA@::::9A@A 3 9A@@A9  @A9:3ƒ:@G3:3Ak@9Aj: 2 ƒ:@@Gj: A399333 23c2Éò13: 33AjA@:AqAqA@kGAqA@A@qGkGqAA@kGqA9::939:99ƒ:A@:3ƒ<3Aj  39AAFA993 :9AFA9 : ::9AA@9A9 39 39: 3,33ccÊò(,2A@3@3 @k@9AkGkA@@k@AqAqA@kGAqqAqGqAqGƒ:3 3 ::Aj393AGk @ƒ:69 943@A@AAk3 3:@:@AkF:3 3 , 9333 3 2,3ŽËô2ƒ #3 :3AA@:@kFkG@Ak@qqA:Aq@kAGqAqrGkGqƒ$:9::9:9 93 2A9:9:9::Ap43:9:Aj:3 ƒ:%@G@::9:   39 9 9 3 2 22,-c2]9]Êõv3\3 3@3A@A@AAkGk9AGkGq@qAqAqAqAqAqq qAG:9 94::@A@: ::9:3::9@A3 @:@:@Ak:9 93939 3 :3 9 3 2cc]c3],Éö-3c : 93@:9:@qAA9AqAqGq A@qAqAqGqGkGqA3:9  …:9:9@::99: @:@:@33ƒ: 9Ak@@:9 23… 3 :9 94 3 32,2,c3“2Ëøc39:ƒ: 9:Aq@::qAqAƒqYAAq@qAkGkGq::@: 9k9:93 AA9::@::G::@: 3 :@::@Aq9 94 :9:@ 3 393::3 3 9 3 3,-3332Ëø329: 3:9G:@qqA9:GkGAGkGqƒA$q@GqAqGq@@:@A@ :33Fk:99Ak@q 9 ƒ: @9:9 @ƒ:9 39:99 9 3 3…3ƒ]222Ìø,  9G::@:AA@:9@:qkGqAƒqA@kAqAqBqH: @2 3A@qA : ƒ:0kAA::3AkAF:: ::9AkAF33 9:43 4 3 2  -c,…3]3Íø„#39 A9AA9k@@rGA:@kGqAGkGqA@AA@@:@9„:AA2 ::@@:@:@@:9ƒ:+9k@@::3 kG9:Aq@:: 9 9 3 3 3 32]2cÔø… 2 393@3A@ƒ:S@k@ :@:AqqGqAqrqqA@:qkG:@:pAA@:@k@:9::@@::A3 3::9AGjA 3 393: 3 33 3 3,Øø† A q:9::FA:ƒ@Pq @::GkGqGqGqqA@A933:A@@kkAq9: @:@AqA@::99:9  , 23 : 9 3 9 3 2 , 2,232×ø‰*@ 3 ::@@:q::Ak@q::9AqkGqAAqkA39A@A@AqA:@ƒ:,@AqA:99 33:999 3 333 3 9 3 32323Úøˆ 3 9 ::9::@:G:Ak@rGƒ: GqAqAqAG3 9ƒ33A@:::@@::9   3 9:33: 33 333 , 2,3,2,Üø‰3@ 9:3@ :A@k@@:@Aj@@A@A@9Aƒ@5AjA :9:Ak@:@9: 9:9::@3:9:39 3 3 9 9 3 2 3222àø‰R2:9: @:@3@A@A@:AA@@kAkAk@AkAqA@@A99kGAk9 3@@:99:: 3 3 933 3 3,2, ,áøŒ: ::3:@:@3@k@@k@ ƒ:6FA@jAq:9 39:9:@ 3-3::9:9 : 3 39333 3 3,2,åøC3 39: @:@A::@AjA@@::A:@:@33 A@:3339 :9: 3 339 9 4 9 3 3 22ìø2393@9:9A:@::@qA@::@k@@:@ƒA9::3:9 9::9:339 33 93ƒ 3 ,ƒ3éø 33 399:@@:9ƒ:-@9949 q:@::9333: :93: 339 3 9 3 3 2 2,ïø2 : 3ƒ:29 9@@::A@@A@:99@A3 9 :9:9 9 3 39 9 3 3 3 3 ,23ðø•43 3 949:@ 94 93 : :9::9333 3 3 3 3 3 3 222óø”,23 3: ::9 ::@@::@ 33:3 3 3 33 3 ƒ2÷ø–&-232 93 3 3:93@:@:@@:3 3 3 3 3 ƒ2øƒø˜&,32c  3 3: 34 3  322,22ø†øš,3223,229 3 3 3 2ƒ22 , øˆøž ,232232ƒ2ƒ2 2,32-,øŠøŸ3ƒ, 223, ,3233, , ,øø­, ø•øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøÂ2]Žcéøž@£3cŽ,éøš 9AkAG@:A@žcøø™ 9AqqGqk@@qŸ,2÷ø™::@AAqA@:A@GA:9 –2Œ,ìø—@G::9:: 93GA@4qqGA@„:,3øø”9Gk:@@kGkG:Aj:9A@q::9@’32‰,22îø’A@:@:AqGk@AGqqGk@@9:@3@:‘]232Š3ïø 9AAk:qqA@k9AqqGq::A:@A923cc,,øø" :@kFA93qHkGkG:qHkqG9Gq@@;@ 3 @‰ 232]2, 23øøŽ#:9A9Ak9 A@qAGk@AqG@:3:GkGkq9:Aq@:…22323]232]32-‰23]ëø$ @@::@G3:qrqqA@AA9;A9:G :GAkGA9…c]3]2,3]c”3c32Œcëø23\2„:9AkA@@:q:@qGGqA@@k@kG3:@:9kAqGk3ccc]3c,]3cc,23c2-2Š]c]êø3\]3„,A3:GqGk@qGqA rq:AjA@Ak@:@::A@qAjAA c]cŽ32]ƒc 23]3cc2]322êøƒ]c]„:@AqGkAG3AqGq3 @kA@k@G: k3A@A@A2 cc]cc]c3c3bcc]2]c23‹3cêø…]iƒ;9 qAq3GqAqA@A@jA@::9:93 3G3 q@k@3 c]cc,cc]23]cd233]3,Š23êî,Ž93 kqA 3::qG:@:AqGqA@q @:ƒ@:@@:@ccdcc]c]9c]cdc22c]‹]êî 22]c]2]c232ˆc ]cG:q:„:Ak@qrAkAG:3 :9A: k@ƒ: cŽcc]c3]2]]ƒc Ž3cc-3]Œ2êï ]c9]c]ccc]ƒc 3]]2,c :9@:@ƒ:/@@Ak@A@Gj@@ 3::@@k@@::@ccd]2]c3“ccdci2]c”“ŽŒ3]éí23,2]2cc3ŽŽc]c2ƒ39@A @A@:9:@A@A@qqG;3 @@9:AAqA::cdc32ccŽc]c“]c]c323“Œ23éí ,23c32c]3„ccc-2cc2c::9::@ƒ: jAkqGkqA@ƒ:AjGAqAGcccc]ccŽc]i]c33]c3c2]2ƒ3c3‰3\éíR323223c3cŽccdcc3ccc:@ :: :@:G@ qGAqGk @@9:A@qAq:jc]cccci3c3\3c333cc]‹céë,32…33„cHcccc,32-2::kGjG@:@@kGqAk@A2:AA@@AkGqAqc]cdcŽ]333“c”c]c]]cc\3,ˆ,êê,3232\32]@A\]3ƒc*::c3c]-::@:Gq3:@3AqAkAG@3:@k:@k@AqAq:…cŽc2]cccd3cc2]]23‰3]èêX232]]c3]c]@A33c3::3Gcc,-ckGqA9GkkGkG@k3::@A@@A:qAq@@]dcc]239]ccŽiŽc2]]3c39],ˆ29èè ,-2323232c39ƒ: cŽ:@: ƒ3#2323kq@:qG4GkAjA@:9:9GkAjA@qA@:@ƒcŽc33ccc]“3c]c3c]\9\3\c‰3èå,2323232323\c33:@9: @: :ƒc@2c]]c3::9::A@:9AFA@:G9 qAqAG@k@@A:dc3cccddc3\c323,cc‰ccèä2323232]]c3c]3:A@@3Aƒ: 33]cc3]cqG3: 3ƒ@%AkAqA@:9@AAp3A@@A@@Žc]c3cccŽ9cƒc 3c3]9]32‰]èã ,-233]]9]3ƒc>3c:9AA@:@@:@@Acc2:cc]qAq:@:@:kAkFkGq:2GAkqG kk:@k@ccccŽcŽƒccc3c3“,c]\c]2‡232çàK,233232232c]b]]3\32:FkG3: 3@c]3@:]cqH::@@:GkGAq@@::AqAAkA2GG:: dcc3]ƒc]]3c]3cŽ3Ž2c923cc3‡]3çÝ,23,3,2323]3\c33„c9]cc49:]c]c,932c,cA@:@::@::9A:AGkqAqA:9:Gj@GkkG:@c3c]23ƒc]9cc3\c]c“3“cc]c]c]c,†2çØ 22,323,32ƒ3_]23233]2c]c]3\c3c3]8cc]2] ,ccc32:@:@:9 jG@AqA@AA2:GkA@q@:]]c233]2,3]c]2cc33“Ž2c]c2,9]3223‡ccçÔ]223,322,::32]2c]3c]cc3]ƒc;]9]2]cc]c32c33]cc]3cc@Ak@:3Ak@AqAqq :AFk A@Ak cc]]23c3ƒcc32333cc]c32]9]cˆ]çÒ[,22 3 ::@AA9:9:33\32,3\3\c]]2c3c]c]c]c]2c,32c:::qA9::qGqAq@:AjA93AjA@c9]c2]iŽƒc]3]c3cdc]c3\32c3†32çÒ2 9: ƒ@Aƒ@ :@:@:@@  ƒcV]9,33c]c2c3cccccc]2,ccA9:GkA9 :GqqG:@@::@A@::@:Gk:c]3c]cccŽc2d9dcc3\3c3]2]c‡]3æÑ2-3 9 @@;@k@::9::@„:@kƒ:ƒc]22cc]ƒc!]c]c2c3]c32 3c:3:GkGAkGkGk@:Aƒ@*kA9G9AqAG@9k@ c3Žccc33c3]cc3\9]3c]†2cæÏ,3 9 3 :-@@A9::ƒAdq:FqA9::@:@33]3b3c]c]2 Žc3c]]c,c: 9:GkFk kGq:@AkA@k@G:AqAq:@@:A@q@:Gk9c]cŽ9ccccc]c]3c,,32,…ccæÏD2c 3:: qAk@:9A:q@q:FAA@@qA@:qAkGA@q43c:@@:qGqc2323cck93A9:@A:@ƒ:1A@@kAAk@kGkG:@kAqkA@ 3Ac32c23]c3Žc”]c3bcccc3†]æÏC3,:9AqAqA@::AkGk9AjAj qAqGqAGk@kGkGG9::AAqAqA@42], A@kA:qGj:@ƒ:@@k…@+AkFkG:@AjGAqA@@:cc3]2cc33\]9\3c]c,3c322„23æÎ 2,3:Aq9G@qƒ:q:@AG:@qGA:AqAƒq GkGkAGk@AGƒqAq:@AkƒcC,cc:@AqAqAq:A@39A@@:AjA@kGAqAjAqAqAqAjAc]cŽc3c3cc23]c3c]32323]23„3\æÏ32] A„:qA @::G:@::qAqA:@qqHGkqGA@9q@AjqGrGq:GkGkqGc-]c@@qGkGqGqAqAGk@A@A@:qAqAk@G@AqAqG@:9]ccc]323]]i]cc]cc]32-c]3ƒccåÎ23233 3:G:9k 9@ƒ:7@qGqA:@qGqqHqAq:qG:qGrGqqHqGkGqGkq 3qk@4@@kGkGkGkG@Ajƒ:4AqGkGqk@@:@AjA3 c3,33c2]2c3ccŽ233]c]cc,23223c,,cåÎ ]232@k@@:9Aƒ@s:GqrGkGq@qBqGkGq:GqrGkGkqHqqHqqGkGrGq , A:@:A@ qGqGq:@:@:@@:9Aq:G@:A:9:: c]9]3]93c]]9]c3832]3323,223åÍK2]3233AGk@AjA:@k9qq@qqGkG-GqqHqqAqA:AqqGrGqAqHqqHqGqqrA :GkG@@::kGkGA@;@@ƒ:@: ::@9 @:@:9A]ƒc!cc\323,cc2]c]]2c]2c3,c-233]åÎ=3c]33qA kG@@::GGkAqGqGkGqHqqArGqq:A:qHqqAAqqHqqrqHAq@k:9Gkƒ:AGkGk@@j::AqAq::9: 3:39A@:@„cc„c]cc]ic3]2c9]3c,332],8åÍ3223c\32::A@:kGqG:q:;@q qGrqGqHkG@AAqqHqqHqqGrGƒqAA@@k@:9Aq@kGA@A::3GkGkA@ƒ:/3:4:9Akc]cdc3cc,cc,3]923]2]233c]322c],cäÍ3,c]c339:9kA:q q„:N@A:2:qGqrAqGqk@@AAqqHqGkGqArGqGkG]qAAqGqGkGkq3:9 ApA::9:9:9::@:@@AcdccŽc]ƒc3c]2]]3b3c2]23c22],c233,ãÍ23,9c]c: A:9G::q:G::@:@„:AqGqqHqGqAk@kAƒq(rAqAqqGkqG:9qGAj kGqAqAGAG9:9A9:9:AG:G„:AkG c]„ccc]cd23@G]ƒ3c2]ƒ3 ,9],23]32áÏ32c]2 qA9:qGq:9:@@:@:q:ƒ@0AAqHqqkHqqAAFkGrGqGqGqHqHqkGqA@AqAqA@@d@k AkAƒ:6@@:GkGGq @::c]]3,ccŽc:: qHq qqq]b]3\32]233]23]32áÎy2323cc@@AqA@::@@:A:3::@:A@:@::qHqAAq@kGkGkGrqrAqAqGq:@q@qAq:@AkGkG3 kG@G@:@:@::GkG,Aq:@:GG\3@:@:9qGqq:: : 3: c3]9232233b32-3ßÏ<3]c3]c k:GkGkG9A@Aj:G@:@@:k9A@:A@kGkA@kGqAqGqGqAqqAqA@AAqA9ƒ@, 9AqAqA:9qAkq::@:@k:qq:::kqA9rq@:@: A:: „:9 39 kG]c3]323]2c2àÎj23]23\3kG:kGkGkG:: :9A:@:A:@:k@AjGkA:9GkGqqAr@qHqHkG:@@:@AA:A3AqGqAq9:GqG9:@A@AG@:: 9::@ A 3q kGkGƒ: 9:: 9:9: 99 93ƒ,3323,ßÎr322332cGk@:AqAqA9: 3:A9A3:G:9@kGAjAA@F:@rqGrGqGAkGkGkGk:3Ak@9A9kGkGkGA:AkGqGkAj:3@Aq@Aq::9:GqGq99:99„: :339 999áÎj2]3\33AqA@AjGkGk::9GkG @::9AGqA@kA@:q:GqqBqA:GkGq@:@AqAjAk:@GqAG93@q@:A@@qGAk@AqAqA@3:GkGk 3@kG;@A@ƒ:@AjA@@ƒ:@43 :93 3: àÏ,9c3qA@:@A@9:ƒ@[k:qGq33@@:3AqqA@q@:A9:AAjA@kGk:@A:@q @AG@A3::3:9@@A@@kAkAqAqqGqqGqA@:@3 @A@:qqA@kGqqA„:A@@::@:@:9 ::9 ::9:9: ÝÐ]3\ Aj@ƒ:6q :@::Aqqq: @3:9:qA@@qAq:9Gr@qAAqAqGkGk@A3 jk9 ƒ:4@@::kA9AqGAqqGAqrHqr@kAqq@A@@:@Aq::A@AA@@:@3 @A@@@„: 9:9 3 3 3 ÜÏ 2c2k3:@@@…:f3GqAA:3AA@;9A@AkGq:qGrGqqGqAq::Gqq3 @:@AA2 2 @A@AqA9AqAqqGqAqAq@:qA@AqHqqAjA@A@A@k@k@kGqG@@d qqAAƒ@‡:9:9::9::ÛÏ, 23:: @:kGkq…@xqA@A3:@:9A@A:qr@:GkGkqGqkGkG@:qGqG39:@3 :A@kGk:qGA:AqGkGqAqA@@kAAq9qGqAqGAkAjA:@A@qG@A@kAkA@@A@k@A:@@ 9: 9::9::@ÚÏ 2,3 :qA9: kGƒ:/@AA93:qA:@::@@:kA2:GqAAq@;Gq qGkGkqrGrqr:: @ƒ:F@@: @Aqk9GkGqGkGqrGqGA@A@rGqrqqGkGkG:kA@kAk9@A@AjA@@A@:@::@A@@:@:@:@ƒ:ÚÐy33G:qGqA:9AA9:9:9A:39::9A@:9AqA@:G3 :@@::9GqGk@qHkqGqGrGk 9:@Ak3AkG9:@@qrqGrGkGrqqAkA@rGAAqAqGkGkFkAApAqr:@@AjrAjqq Ak @jA:@: „:9:ÚÎy,39AjGkGk@:Gj9A@kA@@4  9A 933: 9@A:kGA3qrGqG:kGqGrGrGqqkqG:kAFqG@AqH@rGqHqAkGqGqGqGqqAqqAqAqAqAqA@q@AkAGqk@A@qqA A @A@:A:@„:9@@::@ÙÎx2AqAqGkG:@AA:jAkG@k@:@::: 3AqH@ :A:@:@GkGAqGr::qGrqGqkqG3qGqq@qrqAq@:@rqrqGkGqqrqHqrqGqqHqqAAqGkG@qqGqA@qAGqA@:A:ƒ@d3ƒ@qAkƒ@„:9@:ÙÎh,3A9GA: 39 kG9:9AkA@A4k :@9 @@:3A9::@kqAqGqqGkGqrGqrGrGqA@:4Gr@AArA@@:qrGqH@kGkHqrGqGrrHqqGrqqA@AqƒAkGqAqAqGqrq@AkAqAGqAk::@A@3@@:@ƒ:@ØÏy23k99@9:3 9 ::33Ak@@:@: 39349 3 @:qGkGqkGrAAqAqGrGqqAqAk9:9:AkGq:FA::qHqrqA@qGqHqqHqqGqrGrqHqrqA@qAjAqAqAqAkAqGkAFkA@:@Aƒ@ :@:@:A@@3@@AØÏ(3c ::3: ::@:39@@A9::@q3:@: :@AA@9@k:9Hƒq^GqHkq@qAAqqrGrqr@A: :@AjGA3@k9:qGqGA@rqrqrGrqrrGqrqHqGqxqrqAG@AqGqGqGkGqGkA@qqG::@kAjAqA@94@ƒ:@ØÐy2c3::9 3@@A:@A9@AqA @A::3:9@AA3 @:G:qGrAqGqGqHqAjHqGrqGrq 9 9A@A@:kA@:@AqjrqHqGrqqHqrqGqrqGrGqHqrqAjA@@kqAkGkGkGqG:AkGjAA@A@A:@A:9A@:@:×Ð`32c3@3 @;9:AkA@A@@-k@ @3Aj kqHqGqArqAqqAqqHqqGrGqrG3@9:@3A:@@A@::@q@GrqxqHqHqGqHqAGAƒq&HqqNqrwAkA@:GkGqAGkGkG:@A@@jAq@j@:@@3ÛÐ2::3@k@A@j@A@:@@ƒ3l:3 qA@Aj: 9 3A qqrqGkGrqAGqHqqHqAqqGqGq:qAq@@kGjA@rGrqrGrGqGqGqAqGk@kAGqqHqrGrqqGkGAqGkGkGkGkGqq:@rqƒ: ::: ÛÏ , ::@Aq@kA :@ƒ:y@: 9 AqAqG3 @@: j@:qHqGkrGrGqqr@qrGrqGqHqGrqHqHqA3A:@qA:qqkrGrwrGq AjqGqAGqqrGqqHqqNqHqGkGk@qGkGjGkG@A3 @A:@3 3kA@ÚÏA@@k9AAƒ@ƒ:q@q@qqAqqA@kG3:q:AA3ƒqHqHƒqTrGGqH:qGrqqGlqGqAAj@q 9A@kA@:rHqxqHqGkqqAk@GqGkqq::GqHqqGrqrqrqrGkA@AjAGk 3A:949ƒ:@::AÚÏAk@AqA9 jAk@qAqƒAOqGqGkA@k:@Aqqr9A qHqAkqGrGqqAqq@@AqHqqGkAq@: qA@kGqA@:@qqHqrqGqHqq@AqrqHqGGrƒ:%GqGqGrGx:FA@:9A@:9A@39: 3 94A9@@:9ÛÎ 9 @k@:Gk ƒ:dGqAqGqkGA:qAqGqGGqGqGA:FqGqrGqGqGrGrqHkG::@qqHq:GAqqG49G@A@AqqA@:rGrwGqAqrGr@AqGrqGrqGqqGqAA@qq 94ƒ@9::3@@:9@@A9:9:3 AkÚÎy 3@AqAkk@:9AqGkG kq@A@qkGqkGqBq@A:3AqGqrGrkGqrGqAAk@::HqG:kGqHqG4j:AA@@: qrwqHrAqGqrGqGrqHqrGqqHqr@@:A@4A@:@@:@::@A@A@A:9::: :9ÝÌ@233::@@A::GkAA9::GqA9 AqAkAGqGqGkq:@:9 AqrGqqG@A@qrGj@@c@@:A:@qGƒq A949A@k@Aƒ:<rGrqGqrGqHqrqGqA@@kA@:@@;Aj@::339:94AjA9:9A@@:@@::A9A9::ÝÍ"3 3::@@:GkGkA9::qAq3kGq@AAkGrG:@ƒ:e@A@qArGk@A:AdŽd:@:3@AA:GrAA9 k@qrq@k9GkGqAqGr:@GA:qr@@A@:A9:@@A3: 9A:@:A@:: @:@:k:@ 93 3ÝÌt232 9 3@A9kGqG@A9::Gq:3kGq:@AqkAAAk@qrGqqA@:“d“c”c@ :@jA@3@@:q:@GAG:: A@qAqAq:q@::@@:@;94:::9A3@: 3…: 9A@3j::@„:@9ÝÍ4232:kA9A@9AqAq@AG:@@A9AAk@@kGq:q@q:@:rGqGk@A:ŽccŽ„c”Ž9:AqAqGkAqA:@Aj ,ƒ:kA@ƒ:@:@:@@9::@:@::@:@@3@::9:9 ƒ@::@::@:@A:A:::@ÜÍy,32] q9@3 9Ak@A@:@;@::AjA:qAGk@ :AqqGrq:@:@@A2d“ŽŽj: 9@AqqrGkA@@:@k::@ q@A3G:::@AA:3:@A@A9:@A3 3 3@@:99::9:9AAA9A9 9::9ÜÍ 2-,c::Akƒ:@@j:@:@::@9:@G:@3 ƒ@-::qGrqA:A:AqAjAqc@@A@:kGGrqGk@ :G G:@9 ƒ@3:@39A33949493@:@@A@:@: 3@@ƒ:ƒ@A99@:3::3 @: 9:ÜÎj23,3:9:@AFAk@A:@kA@::9:2@:A:kAqGqGqA@qGkGq:@AGqrqr@k@A@kGqA:@q@AjA::3::AkAA@:9@:@ :@:@@;@:@;@dA„@:: @:3A:@@;949:@@ @@33@3 AÜÏ,323 3:@ ,A@A@qAAqA939A3:ƒ@A@kGqrGr:@@::GkG3@kGqNqƒAO9cq :@A 9: @:39@: @:9AkA:@A39:::@@::@@A:@@3e@A@@: 3A:@:@Aj@A@: :@2 ::9:kÜÐ232]3 @AqAjA@k@q9A@A@A@ƒ:B2cqGkq@:@Ž::qGA3GkGAkGjGj39:Ak@:3 ::@9 @:@k9 @@A9:9 ::9@A:@ƒ:%@k@::@@:k@A:3 @:@A@A:@:3:@:9:93A@ÜÐ22]]9k 3 Ak@AGA::@@:kAkA:„crG:A@:c]32@@:3ƒ@Tqr@AA: :A@@9k::@@4 @:::@k9 @4@33 9A@3:99::93 @:Aj@@:39@2@jA@@::A9A9A@AÜÑ?232c]92:: 39 qGk93::A:@@G@:@:AjA@Ak@]Žc2”@A9A@krGrqGk:@@A3:ƒAE9:F3:3:: 9::@A9: :@:@@A9::@@ ::@:@:@3 j@:A@@33@@:A@:A@@A:@A9k@ÜÑF,33cc]cc:@: @:A9@A@@rqk@:@:@kAqAk 9::c”@k@@rGqrGqA@ 3Aj :9:@:: 3 ƒ:)@@::9:@3:@@::@:@:@;@A@@:A@A:: 3A@@:A@9ƒ:@9:k@:Aj@A9A9A@ÛÑ 32,c]c3 @„:M9 9k@j@qGqGjAkGqAq@GkAqGAkA@qGrkGrqGqA@j@@qGA9cb3 :@:@:99:@: :k::9@:@Aƒ@j:@A@:@:@@:: 3A@j::@ƒ: 9 9@:9A:9†:ÛÑy,3]Žcc:@39 :9 9:A:AqHkGkqGqAqA@k@qHqqG@qArGqqGrqA@AqAA@3 :bcb::39@A: 3@:@@3:@:A@e@:k:A@;@@:AjA@@3 :9;@A@A:@@A9 :9:9A„:9:@@ÛÐ]c3ccc: @Aj ƒ:GG:GqqrGqGrqrqGqA@GrqGrqrqrqqHqrGkGkG@k@A3 9-383bA@@A@3 ::::@: @@A@:ƒ@A@@:@j:Aj:@:A:ƒ@ƒ:@@::@@:A@::9:9:A9AkÛÏy2c]ccdc]3cc:A39 q@3qHqGqAqrGxGrqGkAqqGqGrGrGGAkG:@GkGjAA:99:,3\9824@@kA9@9:3@:@:@:@:@A:A:j:A@A:@@A@@:@@Ad@:@@:@A@@k@Aj:@A::@:@9A@ÛÏy,cc]“cc3c2c] q qAqrqGqrqG:qqHqGq@qAqAqqrGqkGk@ qqAq:9@@A::cc3bc 3 @A@ :@:@A;@A:j@@jA@@:k@@;@:@;jA:@@ @A@k:@k3A@@:@A:@@:@:9A@ÚÎZ, c]iŽdc]c““™““™ qHqAqGrqHqGr9AqqrGk@HAAqAG9:AG3G@qrGqH@A@k@q cc]9bcA @3@:3::@@;9j@:@ƒ: A:@;@@:Aj@:kƒ@k:@:3@:@A@::9;@:@:A::9†:ÚÎA]cŽ8chc8“™i™i’ q q@ :qGqrqGr@:GrGqA@j@@AqAiqqAqqrGqAjrGAk 3ƒc,“ibk@2:A3 @@;@@3@@;@k@A@:@Aj@;@@:A@:@;@@A:@ƒ:@jA@::9ƒ:9:99ƒ: :99@AÚË ,2Žhchichƒib“™’“’“ii 3 :@@:rGqHqAq@qGqAqƒ:&32b“i“i3 r@ qq:A@qq@:@:c]8\89:@:9::„@4::ƒ@ :@:@Aj:@A@:kƒ@$A:@@:@k::9 ::@A:@A@:A:9:: @: A9@AÚË]cichcc’““b“i“o“8@„:6qrGrqqrqA rqrAGkG@ci““’™  :@:Aq:AqAG:qG29\9b@:@:9ƒ:=@:k3:@:A:@A@d@:A@:j@@:;j@@:k@:@@A@39::@@:Aj@@::@: 93A@AjAÚÉE222cbib“bi“ihi“c“cdq@:@:@Gqq rGqHqqrGq@@A@c’ihii“39:@:@qA@kGk :G:ƒ2 :@:@k@@:@„@ @:ƒ@4dA:@A@A@:@A:A@@:A:@@;@A@:@:::@A:::A:@A:@:9 k3A@ÚÈ2,32cbcbci“h“iccŽck q qqHqq:@AqqA qr@:Ajibcbcƒ@A9 @:qq:Gkq:39 ƒ:@A@@4:@:@:A:49:@;@;ƒ@ :@:@dA@:@j:A@@k:Aj@:jA@@@:k:@: ƒ@k@:: @:3:9AjÙÇ2323298cb“h“i“c”c]ci ƒqGrqGrG:@ArG3GqGkqƒiK“:Aq 9A9q:GqrqGqHq@3@@@:@:3@A:@:j:9::@@j@:AdA@k@A@:k@;@@d@:@@:A@A:@;jAƒ@:93@::9:@9 :99::9A:ÙÈ],3222ci“i““™c“Žcc3ibi3Gr@rGqqGk qqAqGkAqrG 2bb8:qA3A9:A:qGAqGkqr92A@:jA@::@:@:9A::@::A…@:@:@:„@(A3A@A@A@j:@@Aj@:A:@A@:A@:9:: :: A:9Ùȃ2ycib]™h“i“Ž3bchci:3G@ qHqrAqHqqAqrGqGkc2i:A2A@@A3GkGkAAqGA@cb 3@: @@;@A@@:3@@:9::@:AdA:A@A:AjA:A:@@:@:j:A@A:j:@9::@j:A9@3@::@9A@:@::ÙÈI, 2“32c8“™“’c”3hii“b3Aq 3@::qGqqHqGrGqr@:Ab3:@kG@Aj9AqG:: jAAq@A@A2::@ƒ:ƒ@E3@:A@44:9:3 :@:@:j:@@:@@jA:A@k@A@:@:A@A:: 9@A:@:3@AAA@@:9A3A9 :@AØÈ232i™“bc88ii“ih23b“:iqA 3„:urAk:GkqqrGqAA@c8@kGk@:: qAq:@qGqA9AjA@2::@::@AdA::@:@@:3 333@@3A@:A@A@:A:@j@:@:@AjA@j:@@: @:@:A9 @k:@@:A9@9:3A@ØÊP28,™i23bbcicb9b9@@q@ 3 3@9GGkqHqGrAj@ bc@GkG:@@rqGAq: kGk9:@r@::9:9:9@@::9„:@@:9:@ƒ:'@33@@:j;@jA:A@A@Ad@:@;@A:@@jA@k@:9A:@:ƒ:9 „:9AjAØËc]2ƒ“Pbicbi’i“ib:A@“:@3@A@G::kGA qrqGqrq bcAqq::qHkG:@@qG::rqA:@A3: 3 ::9::@@ @A@…:@:@AAƒ@ :A@@:@d@@A@;ƒ@dA@;:9A:@:Aj:@:9A9:9@A-9AØË3328cb9bi29hib3@@„: ƒ:'3::G@q:GrqGrGq :8k kG : 9G::A@:q@:qrGqƒ@-A99:@3 @::@@;j:@@::9:@:@::::@:@k@A@;@:@@j;ƒ@:@::9:A@@A:@ 9:A:A:@@ ::9ØÌP223229b““8]2ci“3:@qGk9 9::jAAq@@qHqqrq 3c3 3@:q:@k@Aq:@:@rqA:A:A @A@@3:@::ƒ@j ƒ@:@„:ƒ@049:@:@:@:jA@k:@@A:k@:9::@@:::@3 @:@@:@@::33:@A×Í-2 28cc“ibibi’i“@@::@A9ƒ:2@“@:@q;@qqGrGAkA9“::@@9A:GqA9AAqG::j@@-@A@A3ƒ@A:A@A@-@:A::9@@;@@::9;@AdA@:@@A:Aj@:@:3@:A@:9::3@:@:@A3A:@A@A×ÏU323228b9b2i““o“@A:@:@:@@ i @kG@AqHkGkGA2:A’: ::q q@rqAqGA@Aq3@::@ :@d@A94@:@:jA@ :ƒ@„:@A@:@ƒ:ƒ@ A@;@@j:@A@ƒ:@A@d@3:::A:::9AAAAj@×ÐZ2329bici2ih““i“h@ :@@493i3 @Aq:AkGqAqAk:@A9 q qGqrAqqGqGAj@r@ @@::@:@A@A@:A@A::@k @;@@:9ƒ:jA@ƒ:*@:@:j@;@;@A:@3 @:@A@: @@A@:k:@@:9A3@@9:A×Ñ23,922bi2i“hbi“id8] 9ƒ@':kAq@@qAqAp:@@qAj qqGlqqrGqlqAqqr:@;ƒ:@k:@:A@A@j@A@::j@A@A:9@@:@A@@ƒ:)@A:A@j@:@@;@Aj:@3 @:@@::@:9::9 :AjAÖÓ?32Ž82i““bic““8“::@qA:A:@ jGkAqGqGq::A@:@A3 qGq@H@rGqGrGr @@:„@A::@@,:A@jA@@:;@d@@ƒ:A@:@:A@ƒ:ƒ@:A@Ad@@3@@:A: 9:ƒ:A@:9:9j k@A@@ÖÔ23\cb92ƒ2RikG@:AG@AjA:@:qAAqqGlG@:@@qq@ :3:A@qA@qGqAqrq@A::9A@k@::@A@@A:A@;@:@A@A:9:@@A@k:„@:@:k„:@::3A:j@@3A@:@:@j@ƒ: 9::33AjA×Õ=323]cc2i@AjGA::jAGk@9:Gq@GlGkAq:A@AkG:@@::G@:k:qrGA@qHj:99ƒ:@:@@3@;@:@jAj@A3@:@::@A:j;ƒ@:A@:@3::@9@:9:@@A@;3 :@:@„:93:9: ƒ: @kÖÖ 32322cjA@@:@99@AkGA::qHqAqqGAAƒqGqqAj::93AqAqGqkqAA@G9 :@@A9@;ƒ@j:A@A:@A@3@A:::@A@@A@e@:j@A@ƒ:@A:@::@:39@@A::9 :9 :9ƒ: 9A9::39 9ÕØ3222cƒ:“@„:(@:Aj: AqqGqA@j9GrAqAA@A:@::GqAqHqHqHq@r@ƒ:MA@49;@@;@:@@k:@Aj: :@j@A@d@A:j@@A@::@A@:@:@@;@@:::@;@d:9::99::9 9::9::: ÕÙD2-c2]9@::@::A@@A3GqAqAA@A3GqGqqA@3::@3qGqrqGqG39AqrA@@Aj::@@j@A:Aƒ@A:@A:@:A:@A@:@A@;@:A@:Ad„@:@@:A@…:@:::::9::9 :9:933@@ÓÛR2-22 @@A@:@:j:@3 kGqAqk@3;kqHq@::@::Gqr:@ArqqA rqqGk@@:9:@A;@d@@e@;j@Aj:@:@::@Ajƒ:@jA@jA@:@A:A@::3ƒ:99:@@A9:9:4:943:94„:3@AÓÜ 23232cij:A@ƒ:(A3 @qAkAGq 3GAqGkA@:q@ qGA@rFAqA@qrGrG@Aƒ:@A@:@A@A@:@@A@@:9@;@::@:@:3@A:@ƒ:@:3ƒ:"@@9:94@A9::949::3:3:3::9ÓÞX2-,i“::9:9G9 @AqG@kA 9qqGkA@::G:qrAqAqr@A@A3qrqG::9:@A@jA@:k:@@493:A:A3@:@::@A@@3 :: 2ƒ: 9@A:9@@;9:3ƒ::9:9 9::94:3:9 :9:3 Òà0,ci’:@:k :k@qrqGqA3AqGA@:9qq:HqGk9GAqqA@qHGqq„: @:@A:jA@@:@::…@A994@:@:@:A9:9:@@:9A†:":::@3@A9: ::3:3994:3:9  @Òá*-82ic 3 3@@AqGr@:@@Aqrq9:GAqGk@qA@AqrGkGƒq*AGq@@9:@A:@:@:@:A@@::AjA:A@39:9;@@A@@::@:@ƒ: @9:9@@A:@:9Aƒ: :9:9:9:4@ 3::23:@:Ñâ3232c33@AA:qGrGA:q3AqGƒ:"qrGqAAq@:@qGqAkGrGqrA@::949::@:@Ajƒ: @::@@j@A@::9…:.@:@:@::@@:A@::3::@:@9:9::9 9:3@39:9@3:9ÓãH2]c3kGj@:qqAj:GA@q:@:GqGkAqA@A@rqrqGkGqAqGk@ :@::9A::@:@:@:A@A:@;@A†:@9:@ƒ: ˆ: 9:@@: @A9::3:9: :: 3:::3 33Óäc3]29 3A:@A:@A@k@AA9:GkGkGqA@q@AqGqHkAAqqHqGAj3::@::@ :@@A@:@@k@:@jA@jA:@:@A@3 ::9@@::@9:9@A:9A:…:::3:9:9::9::: 3 Óæy 3 9A@Ak@kGAjA@qAqGrGAjqGk:AqHqGjGAqqrA@@;@9 @@::@@3:@:@:@:@A@A:@A@::9:9::@::@:@:@@:::9::9;@:@9::9::9::3:49:::3Óç2 :3@:@kGqGk@AAq:rGqAk@kAGkAqAƒq!AqAqGqGq:@@A@49:@::@A@3 :A@:AdA:@ƒ:@9:A9ƒ: @@ 9::9::ƒ:@@:A::::: 9 9ƒ:9 :Óæ?3 @::@::@AkFkqGqGqAqGA@qGq@AqGrGqGqAqArq:@;@::3@:@::@Aj::@:„@::9@A:9A@A: 93@:A9::9A@A9ƒ:ƒ: 9:39:9:::9:9: :93Ôç2243:@9A@@k@GqG@AkqGqAkGqAqAqAqqGrAqAkGqAq :2:@:A@ƒ:@…:@ƒ: 3A9::@A:@„:@:@3:@::ƒ@3„:9:9Aƒ:2:: :9:: @:3::33 : ÓèR93 3:93A:Gk@kGk@AAqA@qAqqAqAAGqrqqGqGkGqG3@:A@k@: 93:9:@:@@:9@:@::@:@:@::9::3 …:@@:::ƒ@ A@::9:::939„:A@ : 9Óç3:: ::@::@GkGqqAqA@AqqAqGƒq8AAqGrAqGqAqAq:@:@;::@@::@:9:9::@:A@@:@:9:@:9 333@:„:ƒ@…:9::::949:99:::2 3 Òç,3:@9:@ƒ:#@kGkGkGk@Aj:AqGqAqAqAkGqqGkqAqGk ::ƒ@A@94@:9:93A3:9::@:3 :94:9…:A„:&@@9 9::9:9:@3:9:9::9:9::9:::3 3 Òè23A49@:AqAqƒA)kGA@AqGrqHqGqAqHqAqGqArGq:@::k@::99:3A3ƒ@4:9 „: @@:@::9@A9:9…:!A3::@@:AA@A9:9:::::: 39 :Òé%2 9::A9A@qGq@k@q@@kGkGqAqAqGqqGqArGƒq(Gr9: 9:9::94:@A@ ::9:9 @j@::@:::99::9ƒ:@@ƒ:"@A@@:99:9993 ::9:: :9 -39A3ÑèK,32Aj 9 q kAAkA@GAqA@:qGkGqAqGkHqAqGqkHqAqH9 3 @A:9:@9:9::@::3AA:9939: ƒ:9A@::9AA@9::993@::A@@ „::9ƒ: : :3@9Ðêg3 39:3:FkFA:jAqA@AqqGkGkGkGqrqGkGqGkGqA::A@:@: 949:A3:@39 94 @33::@@::@AA9:9::3@A@9;:9:@: k@A9…:99::39: 9 2 Ïëy,3 3@Ak@:GkGqqAAkGqAqAAqAqHqAqHkGqHk9:9::9:: @A@:3 ::9A93@A:9:@::99::9:@;3:@A::A:9::3:99:99::  332 3 Ïë12c:3:3 @ k@:qAqAq@AqAqGkqAqGqGqAqqGqkG:::::@::ƒ9 , 9:99A@A 33 9 ::ƒ:@A@::Aj@@ 9 39 9 ::9::@A ƒ: 2 9A: 3ÐìV,32  33k@:AGkGk@qAkGAGk@kGkqr@GkGqGq:A@A9:99: 4: ::3::9:9:::9AA@::@kA:9949 ƒ: 9A9::@::@@:kA@: 2 3 9: , 3 Ïî:2393: :9A:9qAqGAAqAqqAAGAqGAqrAqAqAqA9:9:3 @@A:9:93  ƒ:::@k@@Aj:9:9:393@::AA@:@A@AA9 9 ::3:9::3: 29 :32,Ïï'2] : 9@@::GkAq:@qGrqk@kGkGGkGrGqqG: „:"Aj:@@93 -:A9:9:9A:9::9 3: @A@3ƒ: @GjA9:@:@2„:@:@ :9 9 ::9 3332Îð 333 9::@ƒ:;GkGjAAqGqGqGkAqkGqGqAkG:@:9 :@A9 3 3 :@:k@3 3 3@ 9 @:@:A„:A9…::9A@3 ƒ:@@3  9 @39::2   22Ïð239 ƒ:4@G@@qGA@kGkGrq qAGkGkGqrGkG::333:9@Aj k@A9 : ƒ:@A:@:939 39:@9A@ƒ: @A9Ak@:@A3:39:9 :9:9 23,c22Îò'- 333@:9A:AkA@:qGkGqG3GkGqAqAqGq3A9:ƒ:3A:@k@ 3 :339AjA?:ƒ9:9 ƒ:@kƒ: AFkA@:: :ƒ@::9A : ::3 39 282c,Îò%22 3::A3Aj:@@::@@qAqAqqAkGqAqGkGqAAƒ:M9G@A9 2:9:9:AA:9 ::::3AG9@AAFA@:9: 33@@A@@:9:k:9:9: 32 9 c2-2-23Íï3ƒ-- :9::@A@@k@qr@:qGqAGqAAkGkGqAq:Ak9: 9:9:…::39 399:@A@::AjA::933 3ƒ:AA9ƒ:@:: 3 9 3: 3 9 2232Ðô2 2@:9„:!A9:A@:@;qAqqGqqGkGkGqGqA99 3 @kAƒ:@9 :3 :@„: AjA 3 2 3 ƒ:9A9@:@@kA9:3 :99 3 3ƒ 9339 222c3Ñõ23: 3@:@A:@A@q:@:GkGkGqAAqAkGqA@3 3Gk k@99 :9 A„:@9:A9 39 @:@A@@:@AqAA:@A9ƒ 3 :49ƒ:93 : 3,332]Ñõ:, 33 9:@:k@@k@AqA9::rGqqGqq@AAkG::Gk:Aj 3::9 @kF:@: 3„:19kA@::qAk:9:9:3 3 3,9: 93 3 3 3 2,9],33Ðõ ] 3:9::ƒ@Ak::AA@@:qAqAqHƒq::q::AG2:@:@:@::Gj ::9: 2 ƒ:49@:AGjA:9:93 :393 3 3 333 94 3 , -2,23]cÐø ::9ƒ:ƒ@GjAAqG::GqAqAGA@@9@ƒA@:9A@:@9::9:9::A@A@:::9 2:3@::@33: :9 39 33 39 39  22 ,†]]Ðø:9:::@3GkA@::@k@ƒ:PGqAkGkGk:Aq@kFk39::::@::9ApAk:9 3 :::::  3 3 93:33 3 3 -23,dÖø6, 3 ::9:@:3@@k@@A@A9@: 3GkGqA93@@::@::@:@AA@:@:@9 3ƒ:@A9ƒ:%AkA9: 9:39939493: 3 3  - 2, 2]]Øø33: ƒ:#@A@3@AAqqA@A@kAp@:@:  9: ::@:@:Aq@ƒ:339:Aq@qA@@q 49 394: 9ƒ 3 33 2 2,2]2]3c3c×øƒ"3 9 @: @A@::@@: ::qA@A@AqqG3:ApA„:<9: 3 3 9 3A2 393 3 39 3 3 9 39 3 322223322×ø„ , 3 9 9:3 „:=@k@k:3A@kAqA:9:G:9:   3::3:393:3 9339 :3 3 3 33 3 3ƒ 3,333,332 ,×ø†3 :3:@:ƒ@ƒ:@:@@AjA:@:9A@@- 9: j:99@ƒ:&3 9:3 3 3 9 3 933 3 3 3 33 2c2ƒ3\3232Ùø†,3ƒ 3::9:@::::9::@::GA39 9:3: †:,9 9:3: 339 9 33 3 3 3 3 3 ,33]c„3]3Úøˆ 293  3 @@qƒ@@::@:Gq::@ 99 9949:9: 3 3 3 3339 9 433 3 3 2 2  223223ˆcÜø‰B2,2 3 39:4::94:@@:3::9::9:4: 9 3 3 39 9 9339 44 3 33 3 3 ƒ23233,æø‹33, :9:3 9493:9:9 :333 3 9 3334 9 9 3 3ƒ 3 222223,2éøŒB-2 - 3 3 : :@::99 9 3  3 39393 9 333 3 33322-,-22îøŽ ,3]2  3ƒ@%::@:3 39 933 3 3 3 9 3 3 2  22 ,„3ôø+23,322 33 33339@ 3 3 3 3 3 3 3 2,ƒ2,ø„ø”,2322 9 933 3 3 3 2  …222 , øˆø–],-232 3 „2,ƒ2,22,øøš,32,33,2-3333ø—øž322 2-øžøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøª 9@Aø•ø¨ 9:AƒqAG øø¦@A3@:@qAqq:@@køøž 3 :@ 9:q „:GAq:Akø‘ø 9:@ ƒ:Gq:@@A@kG3k@:3øø2]22‰ ::@AAkA@@::GqA@kGAqGkA@:GqAGA—,êø23,]3†#:9:A:9G@:9:9qHqqAA9qGqA@:q:Gk9@::”3,êø]2‹3,3]…"@ 9 F@@Aqq:9BqGkGkGkGkGqq:::G9: ƒ:’2ìøcc23ˆ323“…"A::qkqA@:q@:A@qHk@G:qGqAq:9:@:@–,ëø,3ƒ]c2323c]c,3cƒ"9:qGGkAjAGqA@:qHqGkG:kG:q G::@A”2,Ž2Þø ,9]c]c„c2c“Ž2:GqAqAqG39AqA@ƒqGA:@Aq::qGq@:‘,3ì÷,-3cc]ccc]]†c*]3@AkGqG 9HqHqq Gr:j@k@@A@9:qAq:9 9::Œ232-ìö323232]c]2Žcccc]c]ƒ3,]cG:qAƒ: qAqq:@Aj@ƒA@3Ak:999AGAAqA@ˆ 23c,c332ìõ23232323c3cdƒc@Žc]2]23c3@94G9::qG::A@A@@j::k@:@::@kAq@k 3cc,322-32c32],…2,åó ,2]]23,32]c:„cdƒc, c2-ccA@3@A9:@:A@Aƒq'rA@:: 3Aq AAGjAqAc]2c32323232-223,ìï),232233233\c]cc9@@3]ccc33,c2c3A9:A@ƒ:,@@kAAGA@kG3kA@ j@@A@3 c]c]232,c]c,3c33íì 2,23233]232ƒ3,c23@AjA9:AAjA@:@:j9GrqAqHAkA::GkAAqqAGq@rGqrAqr@A@@A9:…@ ::@::9::@:@ƒ:@:ƒ@:@;@A@;@@:@d@@ 9:@A@:Aƒ:9„: @::9::9::@à×U-23i@A@A9:A@@3:q:AGkGqAqAq@qGqAkGk@A@@:jAqA@AqqGqrw@@Aj:A:@A::k@3 @@:9@:A@93:@A:kƒ@%:j@@e@A@A:@ @;@:@:39@:@::9: :A:àÙ,,2ijA@@:k: qGG3qHqrGAƒ@a:qGqGkGk@4@::@A@k@AqHqrqHqA::@A@@k@k@:A@-@@A::@@:@A:9:@@:@;@A:A:@@:j:@A3:@@k:9:@A:@A:A:@9@ ,::àÙ!, ci:@:@: qAk: 9qGqAq: 3:qAqkGA„@ƒ:@q@ƒqrqrGAj::@k:@:„@ :@:@:9:@;@@ƒ:@A:@j:ƒ@!AdA@A:@ :@@:@ @@:@@@:A9A@A9:àÛ3322“b@:@:qAqG93AAqAqGq:GAqHqAjAj;@@:9rGrqHq: Aqr@ƒ: :A@A@;ƒ:@kƒ@4::@:@@ƒ:@@;@A@e@:@@:@@d ƒ: A:jA::4@„:9 k9:àÛ42322c9:3kGA9:AA@qGkAkA9kGkGkG@@:@@A:qGqrqHqGqGA@q:9ƒ@A@@:jA@@:@@:@;@99@@k:A@ƒ:@@:j:@@A@A@:A99:ƒ@ :A@:@3 :39: 9„:A@àÜx2Ž89::@@k A@jAqrGkG AqGkGk:@:A,:GqrAAqqrGk:kAG@A:@;j:A@A@dA@-@A@j: :A:@@:@@::@dA@A@:@d@;j:: @AdA2A@: 3@ @ @:9 jAàÜ33,93:3q@AqGq:Gk@3ƒq+AG@:@r@rqG:GkGqGrA9Gqq:@@:@@:jA:@A@@A@:A::„@A:@k:@::@:@:A@;ƒ@:3A„@::9:@3@A@AjAA2 9AàÞJc 9qA3GA@@rqH@@qG3GrGk::@qGAqGqA:qqAGqAF:qHqA@Aj:@A@@k@@k@-@@::@@e@@k:„@9;ƒ@#:j@A:@3 @@e@;:3A::@: j@@A:: ::9àÞ c: :9A3qA:qHk@Ak 3GqA:@@qAq@ƒq:GrGkqAjGrqr@@A:A@A:@@;@ƒ:@:@@A@@:A@@::A:A@@;:@A:@@; @eƒ@:9 k@@:@::@:9@3:9:@AßÞwc :@@:A3Gk@A@@k@@A@kG@::qGrqkGAqA@k@rGqA9rGqA@j@Ad@@;j@A@:9@:@k:@:Aj:@A@:@@:@3:::@::32:@A:: 9:@::A:A@:A9:3A:A@@ßà@239 3@@:Gk@kA@k@@Ak@:@qrqG:qHkqA@AGqqGkAqGrqA@;@@A:@@;@jA:9;@::ƒ@:A@Ad@A:jA:@:@:@::9:@A:@@:3@::„@::@:: @@:@Ak@ßßD22:9:39@A:@AqGqG3AAq@qGGk:r@Gq@AjqrGqGkGrqG:@@k:@@k39 A@@4@@:@:Ajƒ: @@;@@:@A@@:ƒ@!::@::@:: @A:@::Aj@::9:9:3 ::AßÞB,2 93:@::@@:qAA9@kG-@qArq9kGkGAA@rGrqGkAqqGr::@:@::@::93A@@39:@ƒ:2@ 3:@@j;@@:j;@:@;@@:@:9:9@:@:@:@:@: 9:A:: ,A9Ajßß?39:: 9::@qA@AjAAk@q qHqGqkGAkGq@kqqrGrGqGqHqq:9:@:A@:@@ @@;@A@„:ƒ@3@A:@@Ad@:@@Ad@@A@::9@;@@2…: 4:9:9::9A9ƒ@ßß,:9: 9ƒ: @:kGkqGA@AƒqrAqAqAqqƒAqGrqAqAqqHq::@@:@ƒ:@:j@A@;@9:@;@:@3Œ:3†:9:-„:99 9:999: :9@Aßß,:Ak::@::@:@@Gƒq8:qArGqAqAGqGqAjGqrqGqAqArqG@::@::@@::@A@d@@A::9::@@A@::ƒ@::9@@:9:@@:9:9:9@::9::9 9ˆ:9 ,Aßà32 Gƒ::9A@:qAqArGqAGqA@qAqqAr@qGrGrqrGqGqGr:@::@@3@A@:@A@A@e@A@49ƒ:@A@@A@A@:@A@@:@A@@::;@@:::ƒ:99:9:9: 93ßßC,32:9@@@:@AqGqGqAkAAkGqGqrGqAqqrGqGqGkGqr:@::@ -:@:@dA::@@jA@ƒ:…:@:@†:9:::9…:::@:9@:94:94:9„: :9Þß33AAƒ:'9A:kAqAqAkGAq@jGqrqAqqHkGrGrqrGkGrGq@:3ƒ:@@94@@:@@A@A@:@@::ƒ@.9@:@::9:@@:::A9::@3@9:99:::99:::9::Þá&,2@933:9GkGqAAqqGAAkGqGrGqGqAqqGrGƒqAqkA@:@::A@9 :A@d@:@„:@9„:33:9 3ƒ:94†: 9A@A:: :94ƒ: ::93: 9:9 939@Üâ+]39 3@:9kGA:ApAqq@AqGrqGqBqqGrGrqqHqHqGqƒ:39::@::@3:@:A@ƒ: ƒ: 9::@::@@„:@:?::@„::9:9:9::9 9:9 9:  @;Üâ1c 3:9 4@ kq@@AkGqAjAqGkrGqGrAqqGrGqGkqHqA @@:ƒ:@A@ƒ:*@:9:@Aj::@@::9@:A9@9:A@:9AjA @j::9:9 ƒ::9 : :9: , 92 Ûã@,3:3 9@3GAq:qGqHk@GqqGqAqrGqGrqGqrqGrqA@k @::9949:3@:@::@:@†:3:: 9::9::9„:„:9:3::9:93@3:9:3 3 : 3Ûä53229 :@:AqA:qGkGqAkGrAqrGqkGrqGrGqGqGqq::9 :93:9ƒ:@:@A:@::@@:@:@::3@:@:9ƒ::9::@:@:::@ƒ::j: 9:9::9:@ÚäI2-23  3: q@:@qGkGkGkGqGkGkGqqrqqGlqHqHq@::@:9:@A @::9::@Aj@A:9::@@::9@@ƒ:@Aƒ:@@A9:„@:9::9:: 9::3 9„: @ 3 9;@:ÚæN2, :3 : 2:@@AkGqGAAqGkGqGkGkHqGrAqGqkqH@A9::3:93 :9 93 3 ::9: 9:: 3 3 3:9: „:@ƒ:ƒ:@::::9:9:9::3 2 :9Üæ:2  2 :9:@A@:qArqAqAqrGkGkGqGrGqqrGrGq:9:3:::@3:9:3:@ƒ:@@A9ƒ:@3@:@:9:@:?:99@:9:::9 :9:3ƒ: 4::  3 Ýç&23 3 :9@:A@:qGq@qAqGkGkGqGrqqHqGqAqr„:G9:A@ @:::@@A@:@@:9A@:9:@A9::@A:9:@A@::@@A@:9:9:9: 9:::::9 ,:9 , ÜçC,339::qA::@kGkG:qAqGk@AqkGAqqAqGqHq::::@:9:3:99 :3 ::9 :3:99„: 9:339:9ƒ:9::@3:9ƒ:9:3ƒ: 9:  :3 Üä2ƒ;33::9A9@qAAqqA@AqGqr@qAGqqGrGkGkqG@ :9 33  3::3@: j:: ƒ:ƒ ::::9ƒ:#9A3:99:@49::9: 9:9::9:339 9: 3Üè:,: 9::@A:@:@AAq@@rqAqHqGkGkGqqHqGrAk9 3@A:9:9:99AA@3@A„:1@A::9A@A::A@A9:@A@::A@@ @@:9:9::9::9:::A33 3Ýén222 ::9@:Aj@k@kA:AqGqGrkGkGkGkGrkGq@A@9:@A9 9 339:9: 939 9::99:9:99:9:9:9:99:949 9:9:9:9::9:33 : 3Ýé2 : @…:*@AqA@qA@AqAqGqGkGqAqqGqGk@3: 3 3 3 3:ƒ:@„:Aƒ: A9:9A :93@A 94@:::3::9::9:ƒ:33 ÞìE:@3:9@@:A@:AjA@qrqGlGqAqHqGrkGqG39 33:@ @A:94:9A@A9::@jA9:AjA::Aƒ@:@A@@ƒ:9:ƒ@3 ::9:„: @ ,  3Þê$,339A 3::@A@@k@@AjA@AqqGqqAqAqAqGrqAƒ: A@ @k@A33„:9ƒ:9::9::ƒ9::3 3 33 9:@AjA@:9ƒ:9:9::9:@33:ÞìO 33:9:@:A@kA@AqA@qBqAqHkGkGqqGqG::@AkkAj 9: 2:9 3 :@ 9 :99@ :3@:3::3 ƒ: :99:9@::ƒ: 23@ 9Ýí83:3:9A9:@q@AqqA:qGqGqGkGkGkHkA3:9::99 :9:: 3@A:9::…:@Aƒ@9„:Akƒ:Aj:9:@ƒ:@ ::::9:9 :3 A9: Ýí!]3@:@@49A:@Ak@A@A3@rGrkGqAqGqGqAƒ @†: :9:A:k@:@@Ak@:@A@3 3ƒA::@A„@AGA:@ƒ:@A@„: 2 : 33:3:Ûí2  93@:ƒ@=:A@q@AjG:@qGqqGqAAkqG:pA2A@::@:9:9:393 :99 9: 939::39 @9:@ƒ:@::@9: 9ƒ:9Ak@@999 , j 9„: Úî, 9 : ƒ:A:qAA@kAAqr::AqAƒqKA:@:AqA3:@ 9 : 3::93:9 AA:9:AA9:9AA::@@A:9:9@@3:9::@:9:9: 3: 3:94 9ƒ: 3Úï 2: :3:@:@@9A„@A@ƒ:qHqHqAƒ::@:ƒ:C9: k@::@39jAj@:@A@A::AjGj:AkFA:A@A:9A::@A@34::33 9 ::9: :@:Ûð29 9:@:Aj3::k:@Aƒ@ qƒA2pG@:kG3@A@::A@kGA::@:@333 3 3 299::9:9::99:3 :ƒ@:@A@4 3:3 9:::: 3Üð&, 3 39::@AA@@:@kAjA@A3q@kGqGAkG3@A:9ƒ:9:9:3 3 :: ::ƒ 9: :9:  @:@;@ƒ:3„:3 ::9„ ::3 22Ûò 29 :39:3 @::ƒ@3@:qAGkG@kG39:@:39::9ƒ:::9A9:9:@::kAƒ: Aj:@::kA::@A@ƒ:@@::9:@ 2:: 3:9: 32::9 22,Úò, 3 3:ƒ@%3:@:A@AA@:q@@AA@;9:::@:@@Aq:@:@:9A@Aƒ:59A@GjA@jGAG::AFkG:@kAj::3 3:: A:9:9 3 3 : 38c23Ûóa, 3 3 -:9::@:qA@:3:@jqGq k::@:AA@A@::AAj@:@9 :9 3 2:-9:333 2 9:99339 93 349 3„2Ûô-23293 9 9:@::@:A@A@qH::@AG99::9@::9999 3 ƒ: :: 3@@::9: 39939ƒ: 3 3: 33  823cc-Ûõe,-3 :99q@@Aj994@::@@:k3  39  3499:9AkA9:9A@::9:@@: 2 239 :9 :93  -9 3 \2232-232Úöƒ2_ 39 :4::39A@@:9:qAq :3 3:93 3:993- @AqA@AkAA9: 3 23 3:9 :9349 3:9 33 333 3 2922c233Ü÷K2, 3:933:@A:::@::9:9:9:@A@:@:: 9:9 3 2 :349 943 43 3 9„ 3 2 3 3 2,23323]ÝøJ3c32 3 3:994933::@::3:::9:3949:3: 9 9 9 33  3 3 ::39:943:93 9 3 ƒ3 3 2ƒ23,23ßøƒ,, ƒ 9:@ƒ: 9:: 9 39 3… 83 3 3 33 3 933 33 9 3 933 3 :3 3  3 3322c]ßø„J-3,2933 @ :9 :3 3 3 39393933 9 333 9 933 9 3 3 3 9 3 9 3 2 …2 -,ccc32ßø†Q,2,: 3:9 93@@:9 33 3 939 9333 949 933 3 3 93 3 9 3 2  3 2,32-]3“Žåø‡Ec2-2: 3 49@ 3 3 9 93 3 33 39 943 3 3 33 3 3 3 2 2 3 32ƒ23,cc32æø‹,,2,… ?3 3 3 3 9 3 33 3 3 33 3 3 3 3 2  2 3 22,223,3c3]çøŽ, ,2,2322  2 3 3 3ƒ 3 3 2 3ƒ   22,…2, ]c33]3232i2åø -,,22,2,3…233  23ƒ2,2,ƒ2222,3-3,32†233,æø”-22, 3,222,22,ƒ22ƒ2,ƒ , ,33, ,32,3‰]c2éøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄ®„-·ÚÉ·Ú2ºÚ /ºæO ˺æO - ïÉ ï2 ï / ûN1Ë ûN1-[,É[,2^, /^8MLË^8ML-«„UªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø™]c2ø§øc]‰2c]2œ ø‰øŽ,c23\‡,c3]2Œ ˆ49: 9Aø†ø3]cc32†3233‹39 q@@ @@AG3@:AqGA@Aø„ç,› 223223c233cc„,23† :9ƒ:A:AA3 A:@k@ @A9:qkqG øæ232,,“,]33223c]3c]c]c-c„ k 9::G@:@jGAj@:qG3kA@A9:G:9:k@øã2,23329-,,2‡,232323\22c2Žc„c]]iŽ,ƒ@G3@@AqA@@qA:9ƒ:GqAjƒAq::Aøá,233\„: 9„32-22,,23223,323]932-3c]„c Žc]cc]cc]c„:3 qGkGjAkG-9:kGqAq@AjGkG@::øá+c]239::@A39@32323333233232323]2]c\3]c:†c]c32-c3@:9GqAqAqA@AA@A@ƒAkGqqAqGk@:G:÷à^23c]:9::@A93AA@9kG:332322-23]3]]232c]3cc2]@:c]cc]c2232A2qkGqAA39:qqA:@3qqGAA:GkGqA:G:AAöà`2]32@:@A::A@A@kAAjA:3]332]23b32]c]323cc3:@Acdc-9c323232- 9:Gk3qAqAq@qGqq@k9AqkG39::9:9 ôß+2c]Aq:qqAqAq@AG@@:@:\323c]3]cc]2c]c239„:093cc2]2Ž2,c3::Gq::@:qGqG3 3GkGA@:AqGq:: 3ƒ:óÝ]2-23c:GqA:GqAqqGAqƒ:@:3: c323cc323cc23 @Aƒ@/dc3c @:2cŽŽc @A3@::@HqA:A3@qH@jA@A:: 3 :9@:@öÝ223c@:: qqAqAq:@@kqƒ:1@:qG]cc]bcc32]39:@@k@c k::Žc,c]@:9;@A@:A:ƒ@A@@kA@:ƒ@3 qG::@÷Ý2]332]Aq:@GA@q@@:@G qGk@:@@]]c]3]]c]2:AA@A39:ƒc3@@:9c3ƒc!@A9:@@k@:@k@kqA@k@A:3 k@GA: •2àÜ123]2,c3AkAkA:qq@k:A@qkAqqGkGq:@::9]2c3233qqk@@ƒ:]c3@A:G:3] @:A::@A:@„AqkG@:9:3@:9:jA@93 ‘2-àÜe,cc33c:GqGq3@AkAAG@:Aq@ rGqAAqGqG::3c3]b]3:@A9c]c]]9]2cc:93:3@:@:@kFk@Ak@:A 9 kA @AAqAAG@:,ãÜ"]]239q:G kGA@q@k@Aq 3AqG:qAkGk…:=2]9]9c]c ,cc]232]233] qq::GAAq:A@@AjA@A@Ak@9G2AjA@@k@33,23ãÜ33]c23c]@@:jqAqq@A@:A@3A@A:@AjGAA@  @3c3\cc]9cc]„c]2933ƒckGGkqA 3@:k@4GƒqA:4G: ƒ@kAqA ,22322]2c,233,äÜ"2c3329:A@@AqGA k@q:q@:jAqGrq@„q2:@: c]32,cc]323]@@]\cck@:@qA3 @:@:@AkGAqA9 :9„:@;@@39c23]]23]]cc3]232âÛ,23,3\cc@kqA@:kG:@kGrGqq:qHqqA@kGGrGkG: „c dccŽ32A:ƒc8ŽcA::9:Gq:@qq:A@kGk@Gk:: @:@::@93cc]]c]2232cc32c,,ãÛ5,c]32]c:qG:@GkA2Gr:qG@qrAqHqqGr@qAqrGqr@kGkccccƒ+cAk 2,39 GrGk@A@Aq:qGq:@Ak@::@Ak:39:cc,ƒc,933,ccŽ323 ˆ2ÚÚS23323cc]:9Ak@@kG@3 q:Gr:qA@qGrqGAAkGqqHqA@kGAqcŽcŽcc,c,3c]2Žc@:3qAq A@jG:@GkA@:„@%:9:@@G3:]c]3c3c,c3c]d]23c3]222ÞÛy3c23]c3:q@AqqG ,G:qAqA@rqGq33A@rGrqGqAGqGkG ccc332cc2cA@:4:@:@kAAkGAjA@kA3 @A3@kA@]c3c32c323cc]c2c3-c]b2-2ßÛ2c3\3239:GqAqqGlq @A:@…@rGr „qMGrqrqAkGkqGc:@3]c]c,cŽc@A::@3@kAqq@Ak@A@:9 39A@:@:Aj:23c]]c]]9]3c3cc,2cƒ32âÛ2]32,ccqAq@HqGAk@:@@:A@Ak@;@qG3qrGrHqAqGqG9:9:@k„:@@q3cc: @::@:@@GqAkFAj:3 9 @A9::9GA@3cc]c]9]cc32]]3]32323ãÛWc,33GqGqGA:qAqG@:A:@k@:@3@A@q 3GrqqGqHqq;qGr@A@AqGAAqG3cc23 2@:@AkAGkAkG: 3Gk@„: Aq cc3c]ƒcc]c92cc,32323ÞÚd,232:9AqAqAkAq:qGqqr@@j:A@3A@@k:q @rqGrqrqGA@rqGqAqqrqqGAqqcc A9 :@:G::@qAkGqG:9G3GA@:@9k:@ccƒcccŽc3,3]c3]23ƒ]ßÚ 332: kG:Aƒ:nGA3GrAq::@A@A:@AqA@Ak@AqHqGqHqA@qGrGqrGqHqqAqA@-c k: @:@qA:: kG@qAqG3Gk@k@A@::A@::c33c3]c]cc32cc2232]cßÙ*22Ž3G@A@99:9qA3GqGq A:99@A:@@A@@A@AqqrGƒq=AAkqqGqrGqrGqGqG@2A@ 9::kGqA9qAqAkGk@AkG@GqAkA:@::@,cc,c932]ƒc3cc-]32cc]3]ßØ c3@ q jA†:3@:@3Ak9@:493@kA@k@@kAqHqrGqHk@@HqrGqrGqrqAqkqk@3ƒ:2GqAq:@3@@qAGk@9AkAq@@:@:2c3]Ž3]\9dc,]c23”],ƒ23ßØa]2q3Gq @qqG::@:Ak@::9@;@@AA9AAj:@;:GjAqGqrGqqAkqGrqGrqHqHqGAqG:@ :@@AqAqAqAqGkA9@ jGkG:@:3]ˆcŽc3cŽ3]3”„]8ßØxc,GqGkGkqGkG::3GqGAA9::@A39GkGk:9:9AApGqHqqHq@AGqGrqGrqGqrqGrqA@@AjA@::9AkGqAqG::A@AAqA:: 2cc]c]ccd39\,”j,ƒ3àÖ2]c3q qA3GrGq@:9 qq@@ƒ:;@ 9GkA@Ak@A9:@AAjAqAqHkGkGrqHqGqrqGrAGqGkAjA@kAq@: 9AqAq::ƒ@:2@@9]cdccƒc Ži]3cc]ƒ3]2„càÖQ23cG3Gk @kG::9:A:AA:@:@@A2Arq@@qGq:94@:@AkGqA@qGkqGqqrqHqGrqqAqqA@qGkGqA@:3@Gƒ:!@@3:A3A@k3c3cccŽccŽccc33c\cc2,ƒc3cc]à×N,2c::3: 3 3GAA@qq@A3@:A@AAqG:@;@@: @@:kAkAq@A3GkqHqGrGqrGqrqA@k@:@AqAqA:ƒ:@:AA:ƒ@$3@A]923cccc]cd]cc]3c]3]3cc]23bà׃32ƒ:99 :93Aj@Gq9::9:@j@r: kGqqƒ:X @:@:3AFkA:@ qGrGrqGqAqqHqGk@A@A@A@kGqA@k jAG:9k@@A3::@:c]23]c]cc]]cccc3c2,33c]2232]3àÖy,2]c]2323:: 93AAq 3A@AAkGA33Gk@9@:3A@@qAkA@G:@:qqAqAqGqqHqGqAG@@kA@j: qGqqAG@k:@:G@:jAA@Ak@]c]cc33c3c]c3cc]c3c2]]c32ccàÖc3c9:@:c3@A@@:@@3ƒ:9kGk@AjGq 94Aƒ: ::@:qG9:Aq3A@rGqqGqkHqGqqGqkAk…:4GkqAqAj@A:@@:@A@@qqA9A@c]c2cc]9]cccc]232]39]c,3cáÕ2:3 AG::3@:kG3 3 9::9:@AAqA3„:[9:@9 :@A: @k:9:@qqHqrGqGqlGkGrG3GGq9AAjGGqA@A:@@:@:@kAkAG::@::,cc33]]\c]cŽ]cŽ23c]cc\323]áÔS3::qAjA@@4GkA@@k@:9AAk9@Aj  @A@3:3@@:3AqGqkAqGqAqHkAqGqGkGkAk@Gk@@AAkG@@:@ƒ:)@qAqA@q:9:@@ k@: c2cc3ci]“c32c3c]c2-8]áÎTc]2]32A9::@qGkqGqAkqq@AAG::@kGk@;3AG99::@3 GAk 3GkGqG3::@;AqGqAqGrqrGq GqAqGk@@k@„:-@:9::AkGk@:@AqAkA@@::c3c2cd]2cc3c]2]c3c2]3áÐ+c23q99AkG@qGkGk:A:q@k9:@Gk@Aj@q :A@ qGƒqKA@A@qqA@ qGqAqAk@@kGqAqAk:qAqAqGA@kG9:393:@:@:@qG:AkGAqGkA@3Akccd]c3dc]ƒc]c32ccáÐ+23c9A::AqAkGkHqAGAA:@:AkG@kGAq:@@:qAkƒ:q93GqA3qGrqGA@GqAqGkGqGq::ƒ@7kGjAAkA9 A@A::qA:q:@qAkG@k@cccccc]32]9]c,3,32áÐ32]9ƒ:39@A@A:qG:@@:qA:qA9AkGq 9@:@3qAGq@:rGq 3:GkGqGƒqkGqAqH3A@:3@A@kAƒ@ :G93@::9„:9::@@qGk@::c]3cŽ]3Žcdƒc 3]c]2]3âÐy,2c4@ 3@:@@9@Aq3Ak@qqAFk@qA3@A9: @:A3@@::@3@A@AG39:@::GkHqqHq qAqA9A:AkA9949AqA:3@:: 9 ::@::9 @::3c3c9,cc3cc]c c]8]3cc,âÑ)c]:9A3Gk:@kGqA@:GqGkGkGqGq3 3AkA,Gk94@kƒAU9 :qA@@;AAk@:G3GqAqAqqGq::Aq@Gk:AGqAk9 :G@::3:93@::9:9 ]c2]c3cc]c]]9]]223]32âÐ42]cc99GqGAqGkGqA@:qAqqHqAqGrqAqGjA@A93:@q@A: @3:„@=GkA9qAqGkAGqH:@@3Gk@:GkGqGA93A@A3: G9: @AA]c]c]3c2d32cŽcŽƒc 3]8]323c,ãÑT,c]9:qqA3qGqqA@AAjHqG3GkAqGkGkGq@A9::9GkG3@k@k@@kqkqAqAqqGrqAG@qkqq3@A:@@qGkAk ƒq)@3:9A933A9@]cc]9]3]c]]322cc]cc]c32-cc2ãÑy,c :@@k @rAGk:@:qGqrGqAqAqA@qAq @4@:@ 39 @A@A@AqGGqAGqGqrGAj:qrGrGq :9: :qGk@AqGAA::9:3Ak:9:Acc]3b2c]cc33]c3]2c]232,c]ãÑ 3]A9: ::Gk:kGkG3@AqGk::qGkGqqƒA]3:GqA: :k@3:qrGrqkGkGAjAqHqGqrG:A::9: 3 99 3@:@:@::@GA:@@32c3\33]c3cd“]9]9]cc,39,3cãÑ(,232c3 2:@qA@@qAkGkG;q@:9:GqArGqqGqq::ƒ?3qA9GrGqqGGqGkGk@qGqrqGqqk@A @A@@:3 A3:GkGk@Ak:q:cc]c3ƒccc323c]c\3]c3]232ãÓ3]39 :@:qA@qAGkƒ@2;@:GqGqAqGqqGqGqrqA@q@A@ qrqGrGkqrGrA@ qrqHqHqArGAƒ@5jAjAk A@j@k@qGrq@@Gk ::ccdcdc]c3\cc392,]c2]3âÒ232]9]9 3 3:qAAj@A@@;ƒ@ :qlG@qkHqBqrG:9AA k:qrGqrqrGrGƒq: qGAqqGqqHqqq::AqA@qq@@3:A@A@@A::@ 93cd,cc2332cc3c]c3]ƒc-]93c33âÒy,3]c]3q3: AG qAA@k@k@:j;9:@q@AAqGqqG::@4@39rqGqrGqGrqGrqHqAqqGrqHqqG:rGq:@: q3GqB3GqGk:kAkGkG,  3AG3c3c]]223c]b3]c,23232,3\âÒ 32c3b3:3@3ƒqAqGkAqƒ:@AA@:@AqGr:@:@@ƒ:@GrqHA@rqGrqGqqG kAqHqGrqHq:@qHqAqA 3Gq9ArGk@:GqGkGk@A@3 2Aqccƒc33\33]8]c323,2323ccáÑ/23c]2c]3@3 9 :AGkAGkG@:9::kAqkGkAA:@:399: kGƒq*@qHqGrqHqrqGrqqrGqqH@:qqA:qAq GkGqGqGkGƒqAqq„A9A:@:H33c]]23b3]2c3cc,3, \3]3àÏc]c”c]c]cA9A:3:qAqAkG@ƒ:hG@kGkG@kGkG9:A AqqHqGrGqrqGqrGq qrqHqGrqrq:G @:@qG@qqGkrGkGqAqGrGAGkqq@A@: 3qG::9::9q3c,32]3,32cc2àÍh,2]c3c3]icc9A@9G: qGqA@::9: 33 @ 3 @kGkG:@:kAGqGrqrqHqGrGqrArGqqHqGrGqr:kA@ @AjqAqGq3AAqAqAqAqkGAƒqk:AA9@@3:9AkqGc]23232]3]2àË,32c]“ƒchc]:A:9A3:9 kGkq 3 A9:3@9:@:j:9 @@3::@k@rqGqGqqGrqqHqA@rGrqrAqqGr @:@A,Aj rGqA@AqAqrGqGqGAq@:GGAq93Gƒ:G3A@ qqA]323]2 232àÈ2”„cŽ“dŽcc32 3:9 @@:Aƒ@- 39@:9:@:@:AjAAc32::@:G@qrGqrGrA@;qGrqGqAkAqGƒqAGrGqk@:@:@:q@@kAA@:AqqrqrqqqGk::@kAG:::GqA9A@::A,323,3,3,ÞÅ,”]2cbiŽ“c]„c3@:Ak@::@Aj;@:A::A@:@:@@A@]c2-]@@rqHqrGqq::@@AqGA@Aƒ@*qrHqHqGkGqG 3: rG4GkF:rwrGrGqGqAqGG:AqAƒq::@9A3@A9 939 32323c23ÞÃ223b9bchibib9c9bcc]cŽŽ@A@@:ƒ@q:9:@A@qAAk@k@@,c:qHqqGrqA:@ŽcŽAjAjAA@qqHqrqHqGr kA9Aq@9AAk@qHqrMkGqAqGkAqk@AqGGq:@::Aq:@:399 233,cc2]3,ÞÅ2cc8cb32“ii™“h“ci“™“™2ŽƒtqkG4:@:@@kAAjA@qH:@k”cHqrqGrq:@::ic”cc,@k@rqr@AAqAjA3qAAqAqG@@AqrqrGAqqGrqGqAq@:qkGG:@:@G:@@: : 3 3,323ßÄO32cbc8c22ih“™“™ih™“™“™c“o““ qAqG:@A@Aq@:A@rqqr@@d“3qHqGrq@@A@ccŽcŽcŽ c@A@rƒ@:kGqAA9: :@@qA@q:@kAwGGk@qGrqqrGqGkA@GkqG:A939:@Aq:@:3 Aƒ323]ÞÅ2c,c29“™““˜“™“™“™’™ƒ“_˜iqGk@::qA@@qrqHqGr:@A@Aqqrq@@::G:3c“Ž“d“c2,A@AAkGqqrGq3AkqAkG3Ak k@:AqAqAAqrGrGqGkGqAqAƒqA@4@:Aƒ@ƒ:399Ab]3223c,ÚÄ2b9hi3““˜““o“i““™“™i“nƒ“]@A9:r:rG,@rqHwqrq AjAk@AqG:A::Gqq qA”Žcc332A@9@@::GqqAGkG@qGkA3G@3@@rq @:qxqGqqrqGrqAqGkƒAjA@A:@;@;@:9@ : 92]32323ÛÆ™™,ƒcy“o“i˜“ic“”cb8i“ihi@::9Gq:qqGrqHqqrGrG3GkqGkAq@@qA::@GŽidb]cc,3@k::@@:qHq 3@A@qAqG@3@ 3rG 2AqrGrrGrGqrGqGkGqAGkGA@@k@q:@k@@::933 c]]22ÚÄ2]2ibi’“™™““”„cyŽc qA@:4rHqAqrqHqGqqr 3MrqGkGqGŽ @:9AqAŽcc :9AAk@A@qA@ k@kAAqkG:@3Grq qrGrqGrqGqHqGrqGqGq@AjAjA@@:A9:A@:@::@33233ÛÅS]89bcbi™“™””c]c]cic qAk 99 @A@rq GrwrqHqG3qrGrqGkGkGG:@:@AqAq32cŽrqr@A9:A@kAƒ:39 A@q@AqA@3Aq::qHqrMrqxGrqGqqAqrqrqr@AqA@A@Aj 9@:A@„: 9 93ÜÆyc2“™22c3’i”33ii“b““i3GkG9::@Aq@AqG:3qHqHqrG3NqrwHqrAAkqA::@qAqAqk@qAkGrq@:GkA@qq@@A3qqG@@3@AqNqqxqrGqAqAAqAqGkGrGGqAƒ@qq:@A@49ƒ: G@:@:33 3ÜÅ92223ibch“i“3hc’iichi3 Aj:: :Gj@qqr@rqrwHq@3@rGrqGqGqGƒqWr@AqGA3 @:@AqGAGA@@AjrGrGk@3AAkqA@ :ArqqHqHqGqrGqkGrqGqGrqrG@e@qAkAjAqG:@@: @:939 9ÜÆr-c23bihcc8“hc82““hic™@@k@ 9: qkrHqGqHqrqrGAGqrqxqGkGqrHqHq@:kG@k@Ak@qq@k:@:qG3GqqA@:GjGAqk@kGqrqxGrqGqrqA@qGƒAqkGqqrGA@:G@AAkA@::@„:9: 33 ÙÇy232ibch2“i“bch“i’ibA@A3:qrGGrqqHq:@rGqHqkAqGrGrqArqGqqrqrGqqGqrqGrxHqA@3@:q@A:: :@A9: @A@kHqHkGqGrqHqr:Gkqk@kAAqGrGqq;@:k@jGkG9:@k@A9:9: 93 ØÇV322ch“9h“™i“ic“::iiqk::qrqHqrGrA@rqxqG@rqrqGrFrqGrGqHwrGqrGqHqrqqrGk3 :93A3†:*@:3AqGq@qGqqHqrG@:qHqGk@qGqAqrqHq@@qAA@AkGƒ: @A@::9333×Ç2329bi™“82i’chiƒ@@:bqGA3q 9:G@rGrqqA@qHqrqqrMrGqAA@qAqAqrqrGqAqrqrMr@A@A::@4 9ƒ:B@:A@:@ :qA@AqGrkGrqGqqHqqGqGqkGqGqGqr:@:Aq@@Aqq::@::9@::@ : 4ÖÈK23229hi8cbii’A@:@ckG 3 9::@A@qrwHqA@qGqGrqNqrqGk@::GkGqHwAAkGAqHq@@A@jA@ƒ:=@3A@@A@k9:99:3@:@qqA:G:q@ArqqGrrGkGk:GkGrqHqr@@:Ak@kGA@@:G9…::@933ÖÉ/, 2\cb9ch““i“AkG::GkG39 3@:@AqHqqrqGrqG qrGAƒ@/A939Aq9::@qAqA@@AkA@qA::@:: 3@::@:A9 3 A@ :9;ƒ@A@@rG@ƒA(qrqGqGq::AAqqGqAA@9A@Aq@A@@:@::@:33 ::ÖÊy2383bibci™h“G@kGk@9A: :@A3@:@AqqHqrqrGqqAq@k@;@“:G:A@rAGqrqAqAAj:3:3@@:9 9A@3 @9 3:@:49::A:@:33 9GrqAqHqAqAqGrqqAj@qA@AjqkAk::@@::33 9ÖÊ3ƒ2Scib2ih“™“A@qAGk 93@@:“i“:@@rGqNqGqHqGqGk@@“™:@:qGk@rqGrq9 k@A83 :@9@:: kAG9ƒ:;93@:@@:9:@@3::9A: ::9:@@kAqGqHqAA:kGk@AA9Ak9::9@:9@:: 3ÕË`3,c82“8“c™“™’A@Ak@3::9@@qA@rq@3GrqrqrrqH“™A@:3::rGqrqGGAkFA8]@@::@:::F9 :93:9:9A@ƒ:@ƒ:99:39:@@A @A9@49Aƒq@A@jA@qA@A@:@:: :33 ÕÌH323c™ii“™’“i“q@A@G 3 :™“9A@@kGr qrGqHqGr@ic@AA@ :9::@Aj @GrqAkGkA22 ƒ: 9394@3 3ƒ::@@:@:9:@A@9:A 9 94@ƒ:9::@@ A:Gj:GkA jAjA::ƒ@A9 9 3:ÕÌ2-22b2“h“ii’i@3ƒ@k@ƒ:Bb8c2@;@kGq9HqrqrqG@c@hkGk@39:: jAq@AkqA@A@qr82 3@A@:3:@ ::9:::@ƒ:ƒ@.:@::39: ::@: @:@::94@3:@9 A::?@AAq q @A:k„:9 ÕÍ2ƒc$8232’“™i“@;@A:A@cici““9 qAr 3qHqNAkƒ@.::@k@@A@A@A@Ak@GA@kGqrq9b3:kA9@99::@:3 ƒ@6;@@:@:@:: ::9::::@A9:@::3::::@3 @Aq3@A:99:::ÕÎ2323“hii\ib™“93ƒ9i“˜“hc kGkG3A@xƒq#H:kGkG@Aj kG:@@j @qA3AqqGqG2993ƒ: @@::::99Aƒ: @:A:@:@@:3„@$ ::9:9;@ @:k@ 39:A3:3 9:::@„:ÔÏ,8cii’A@qG:A@Gkƒ:3™““i839AGkAkGrGrwrGkAjAqA@A:9qq; qq 3qGqAqq3k@ @:ƒ@G: :@:@:@:@::@::99;@@:@A:@:::@9 @@A@:@::@A@ :-@A2: 939 3 39  99:ÔÏL ]2bkGqkGkGq@kGqAA@:™’“™ qAqqAFrqrGqrqGAk@A@@qHk qGA3GrqG3H@@ 3@::A:@::ƒ@;ƒ@6;@@;@:9 9@3::@@A:@: :@9Ad::A:3@: :@:949 :@ :@: 3@AÜÐy,3ch::@A@kA@A@AAjA@:ii99AqGqGkGqGrqGkGqAkGqrGqG@Aq3GqrG qr949:@A@@A@:@;@j:A:@@:@@A@@::@ 33@:j@:3@:@;9::9:@ A:k:@A99: 39:@9A@ÜÑo2,c:@:i“i@kAkqGA@@qG“::9GrqAqGrqr@ qqA9@kqrGqkr@k qAqHq qr::@:@:@3::@@j:A@:jA:k@:@:A@A:@@ A@A:@ 9:9@:@@:…: @:9 @@3ƒ:ƒ:9:ÝÒ32@:Aƒ@D:AjAGkqqqAq“@ 9kGqAqqGqGAqG 949:GqGqH@AqGrGq kGq::@A@A33@:A:A@:ƒ@:ƒ@+A:j@:j@;@33@:A@:: @:@A@::9:@:@:@@A3: 9:ƒ AÞÒ5,32@kAj:@A@jGAGk@“™:A@AqrGrGrqAkA3cc3::A@Aqr@kA9rƒqGAqAqA@: @d 3@:@@j@::@:A:A@;@d@A:@A:@@3 3@@:@:3@@-@A@::9::A:k:A@ 9 9:ãÓ-2A@AA::@AAqk@A::hi:k@AqAƒq_GrqA9A@@ 3@@A@kA@AAq@AqGq:@kGk::@: 9@A@;@::@@;@j@@d@@A:@@;@@k:@:9A:k@: 9: 3@@A::@:39 9: 9:@:9äÕ?2,ckFk@@kG@q@@::8bA@AqrGqHqrGq:9A@A9 9@@AjAq@AqGrA@:Gq:@::9ƒ:@@j::@:j@;@;@A:@@:@j:@:A@3 :„@…:@;@@::9: 3@:@: :ƒ:äÖJ”ihA@k@@k@3 ;q:92k9@qqAqGqGrG:@:@9q:rA@:GkAqr@A:qrG@3 @:9::@@;@A@;@A:ƒ@:@@:Aj;@@;@@:A@ƒ: A:@9:@@3@@:@ƒ: @ 3@:3:9:å×D22ŽbA@A@A@3qGq2 :qHqrGrqAqA9:G@A3qG:qGqrqGAqqAj@rqr@A93:::@::@:ƒ@:@Ad@A:j@:@@:A@:ƒ@3@:@@:@;@:: 3AjA9:9::3 9 ƒ:åÖy23bi9@AjA:3GAqAqc:9GqrGqr@ qAqA@kq:AqqrAqqrrqrGA@@GqH:9: 39 9:@@:Aj:Aj@:@:@@;@A:A@:@k:A:3@@:A@:@@:@39@;@ :@99::9 @@åÖW23223: @: qAqAq::GkGqrGq@:@qGq:AAqAq:GGqGqqGrq@kArw@@@: 9 :Aj:@@:A:A@:@;@:j@:@j:ƒ@: @;@:jA,:@@:3@@@@@A@ 3AæÖ_,Ž2::9:qGqA :9GAqAGkGqG3GkG:qGAqAA@@rArqArqqH3GqAGA@;@949393:@:@;@@:@j;@j@@;@@;@A:A:@3:@:ƒ@ @;@@3ƒ: ::3@j@jƒ@æ×:323 :9::@AA2c9:qAqGqGkGq kGkGkGjA@jA:qGkFrA@qHqq AAq@dAƒ:::@@ @:@j;@@:@@:A:@:A@:@@j@A:93A@;@-9@;@::9@:9:4:A@3@kAæØ%c2:9:qGj,:qA@kGkqAqqAqGqAkAG@A@ƒ:@A@kAqrGr jqr@:@j @@:9ƒ:@:Aƒ@;@A:ƒ@Aj:@j;@;@:@3 @@j::@@A„: @:9::9::@@æØm]2@::kG] 9AqAAqrGrGkG3HqAqrG@@j@A9@:@rq @AqqrqqNrq:@A@@:@:::@:3@:@;j@:@j;@d@:@;@ :@@:A3:@;@@:9::j@@:@: ‡:@çØ;22 :@3::92:qAk@rqqG@A: qqGkGk@A:AjA@:qrG3@qrGw AqqH:@@;@3ƒ:9:@@:A@@:A@:@@:A:A@@:@j:Aj@„:@::@:@ @;@@A:@:9:@çØ3,33@:A  :A9@qA@wHq@:qqAqHqA@Aƒ@:qA:@rGqqrGrqHkGAxq:@@:A@@@::9:@::@e@@:k:A@:@@:@k:@@:@: 9ƒ@ A@@A:39:ƒ: @A9A@:A@çØ22 ::3 :@AAkGA@A@;q: ƒqGA:@drqA@rqGr AqrGrGqqGqr:@A:jƒ@ƒ: @:@@49@;ƒ@):@@;jA:@@;@A@: @:A:@-@::@::9:9 @:: @k@AçÚ*2 :::9:9A::@qAkAk@:@@GrAk@@AqGqAqrqGq:qqHƒqG:GkG:ƒ@A::ƒ@:9:@A@3A@:@;@k:@@:@:A@:@:@-ƒ@d@: 3@:::@:3@:3::9 9AjçØn,339:: 9;@@:@A@qqGq 9:AqA@@:qqrGqAqGqr:GrqGqHqA:kqr@@Aj@:@:@:A@94:@:A:3@@:j@:@@;@A@:j@A:@ ::@A:: @A@@:@: @:…:@AçÙ2@:ƒ@149:Aj@k@A@Aj 3AqA3::qrGqrGkGrGq:GqAqqGkG:wHq@A@;@„:@j;@:„@-3::@;@@;@@d@:@A:@j ::@:@@3:@:2@:@@::9:9:@èÙ@,::@ 9::@::@Ak@kA9AqG3@qGrGqG:qHkGq:AkGAqHkG:qrqH@k@@k@:@:A@3ƒ:@;@3:@@:@@dA@@A:@j;@3 @@A:A:@@ƒ:@A:3:A3A@ A@èÙG329:qA@@:@::@@AqGAq@:q qHqqGrqGkGkG:@A@kqrqGkqGqNqA@:@@A@j@:9:@@:jA9ƒ:@A:A@:@;@j;@@: @d@:j@:3…: @: 3: 9A,A@kèØ322b9:q::A@:@:@:@qrG@ rqqHqrGqAkG@qAqAqGxGqGAqrGrƒ@k:A@,:@„:@:A@::@A9:@:j@:A@@:@@:A:3@@;@ƒ: @:9:@: @:3::@ 9@AèÙ733 :@:@@:A@kAqqGqrqGqHqqHqqAqAqqrAqAqrqqHqGqrqq@;@A@…: @@@:@j::@A„: @:A@:j:A:ƒ@3::ƒ@:3@A:@A: ::::@::@@èÚ^22:AA@:@A:j@@AAqHqGrqAqGr@AqGkGrGAq@qrGrGqqAqHqH@j:@k@:9::@A@A:@A@:@@::@:@:@@;@@j;@:9:@;@ ƒ@:@:k9@99:9;:èÚ]2 3G:@:@::@qAqqGrGkGkGkGqGkHƒq,GkGqGrqqGkqHqqr@4A@@3@:@:@:@@;@@A::@9 @@A:ƒ@!;@@::9::@@:2:AdA:@: @:A3A@: @::èÚ ,3b9:3@ƒ:V9:GqGrkGkGqAqAqAqrqGrGkGqrqHqGrGqqHqr@:94@A@4:@::@:@d@@e@:@A:@@::j;@d@@:34@@:A: :@@:3ƒ:9ƒ:@A@::éÛ c2 9:@3„:4GkqGkGkGkGkGAqrGqGqrGqGrqwrGqGrGrqG@:9@@;@@3@::@A:@;„@::@@3„:"@@;@3 @@:A@j:9::@3 9:::9::9:@3 9éÜo3,2 9: 9:@3GkGkGqAqrGjqGqHqrGqrGqHqHqrqAqqHq@::@;@jA@A3:9::@@::Ad@@;@@::@ 9:3 @:A@j:: :@: 3@A:@::9 ::9 AéÝ;39:99Aj:AqG@kGrGqAAqrGqqGrqGqkrqrGqHqHqqr@@::@@:A@@3::ƒ@3:ƒ@+A:j:A@9@@::9@:Aj:A:9@@9@:@A@:A:9: k@éÜX2]2- A :3:A9GqkAqrqqGkAGqrGrqGrqGGqHqGqqAqGrG@;@:@A@jA@A3::@:@:@:A:@A@:@;@:@::@:j@:@ „:A:@@:@@@:@A 3 9AéÞ?99:3 99:kGG:qGrGkGqqGqrGrqGrkGrqrqHqrqGqr@:@:@A:@e@A9:9:A:@…:%@:@@::@:@@:@:A:@3@@: :@:j:@::@2:„:éÞ433 :3 @4:qkAqGqGqAGqrGqqGrqGqrGqHqqGqHqrGA3@:@k:A„@;9 9:@A9:9@9::„:"@A:@::9: @:@:j@:@-@A:@A9:@3 9A:9@éÞ=,93: 3A9::A@A@rGrqGkGqrGrqGrqGrqHqGrqHqqGq:@3@:@@jA:A@@A9:ƒ:9A@;9::@@::3 3::93@@;@@:ƒ@ƒ:9ƒ: @3@A:A@Aéß , :9:@::@AjAqqGqAqqAqGqGrGqrGƒqrGqqHqr„:!:@;@@:@k:@::@:@::@:9@A@:9:@@:9„:@@, :@‡: 9:9: @@:k@éÞ5--9 9:94@9A@A@@ArqAqArGrqrAqGqrGrGqrGrqHq:@@A::@:@…: @:@@A9:@:@:@…:@:@ƒ:9:::9::9: 9: ::9: 2A2 9:éß:, 9: :@::Aj@A@qGrqGqGqqAGqqHqGrqGrGqGqqH9949:9:@A::9: 9ƒ:9: :9ƒ:9@:99:: 9:9::@@::9„:99:9::9 A9A@éà2:3„:ƒ@&AqkAqGkA@qArGkGkqHqrGqqrqrGrq43:::@ƒ:@@A9:9@4:@9:: 9:@::ƒ@::†::::9…: 9:::3 :@:éá22 :9G@@A@::A@kqHq@AqrGqqGqGqqHqrGrGqrGqA@ ::9::@:ƒ@„: @A@9::@:@„:#9::@::@:9@::9:@49: 999::::9 @jAéá73 3:@::qA@k@A@AqAA@qGqrAqArGqqrGkGrGqr:9:93:9:@AjA:@†: 39@@:9ƒ:"::3 39A:A@:3:93::::9::9::9@Aéá339::A9ƒ:@qA@kGAqjAqrGqrGqqArGqrGƒqHq3@ ::9: 93::9ƒ:9::@:@ƒ:3::9@@:9:;ƒ:9:9::9::3:3:9:99:393éá3, ::9::@:A@@qAjAA@AqrGqqHqGqrGqqAGrqGA@A3@::3 :@ƒ:3@@:9:9:@:9:9ƒ:9::@A@3:::@::9:::::„: ::éã3„:8@:@kAkA@@qqAqAqGrG:qkGqGrGrqGrq :9 949A@@A@:@:@A::3 9 ƒ:@A::99::@A@:9ƒ:9: :3@949:9 :@ 33éâ33 3ƒ:1@A@@kG:AA:A@qrGqqArGkqGqqHqGq: 9:3:3933::9@A@:9@ƒ: 9::93 :A@::9†:@: ::99:939::9::3:9@æâ 323 9@@9:ƒ@kAkq@kF:AAqqBqHqqHqrGrƒqA:3 9 ::A @393 94A:9:@A:@…:&9::9:@A@@::9:9:9:3::99: 39 :9:2A@;æâ523 3 3::@AjA@G@A@Aqq@kAqGqqGkGqGqGrk 9 9 9 @k@k @@49ƒ:(993::@@::@@::::9:@A::9:9::4@A9 ƒ:  3  3:æã222 3:9A::Ak:qAq@@A:@@qrGqHqAqArqGqr 3 39 3:9: 3…:A@::9ƒ: 99 93:@@ƒ:!@@::9:@::3::9::3 :9::3 32 :3 åä, 3: 9:„@2A@qAq:A@:A@qHqqGkGqGkrGq jA:@A:3:9 9 9A@:9@@ƒ:::9:9:9@A@@::9:9:@:ƒ: 4:9:: :9 9„ 2åäI2 39:3@:Aj:GkAqAkG9A@qHqrGqArGqqGAj9A@@:9::9A3:::9:9::@A9:A@:::@:ƒ:A9::9:9::9::99 :33@ , 33:@ååj, 3@::@:@A9:@A@qAqq:qkGqArAqqGrq::::3:3 39A@A@:9A@A::::9:9:9A@A@:9@@:9:@:9:::9::94:9: 9: 3 3 94åå0,3 3@:@::@A:9Ak@@AA::GrGqqAAqG:9:9: :: 9: 3ƒ:'9A@A9:AjA9@:A99:9::A@;39A9:::9:9::4…: , :  9 çç29: :9::AjG:@@k@kƒ@:qqAqGq@A:A:::99:9: 3A9ƒ:6:3:9::@A:@A@A94@: 39A@A@:9:::::99:9@9 3 @, 3 çæ.,3 93: :@ @:@@qGkAkA rqAkG::@:@3 :::@A@@Aƒ:#@:@93:9:9Aj@:A@3@::949::9:9„:::99 j :9 2çè1c,9 :@9::9A:@@A@3@G@k qAkGk@3 :9:3 3393 39 @kA„:@A@:9 @:34 3:A„:@@ : 9ƒ::9:9ƒ: @33 9: 3 çé, 33 :@A@q:@AdA@3AqGqA3AqGqA@„: 3@ƒ: 9 :9 939 9A„:„:%:3939AA@39::9::9:::9  2 33 èé32:33 :::@AqG:9kGkƒ@ qG3A:@:@q@@A9ƒ:9 :3A@ƒ: 9 9 9 9:@AAkƒ:@A::9 ,@A9::ƒ:9ƒ: 2:33 : éé',233@3::9@:@:@A::9AA@kA@3 9:9::AA…: A9A@A99AAƒ: 3::9:9G9Ak@A9:@@:9:9@ƒ:9::9  3  2 êê$ ,299 9::AqAkA@@kAA9AjGqq::@:9::ƒ9 333 3A@AjA9:AjA::9 ::@:@::@ƒ:@A 39ƒ: 9:3 3 2:3 ëì-2 ƒ:9:@:9A9:99@@A@;@ƒ:@AkG…:49 9::9:: 3 3 :9G@A?:A@A:9::93AAj 3::9@::: 3ƒ 9ëí22: 9ƒ:@ƒ:AA94@:@@A:9@AkFk:@9:A@AA9ƒ:9G9:: 3 3 :9:ApA:@A@A „:9:A@::@9 3::@339ëî33 9 9:9:9AA@qrqkq3 2ƒ:9 9 jA@:9AAjA:@:@kƒ:'  3:9:9A@::@A@::9:: 93 @ 3 9 3éî82,3 3 9:::99::@@ 3 9 3 3 9 3 :3:3::@:AFA@::Ajƒ:#3 ::@@::@k@::93@39 2 2 93 èñ32 3 9:A@@::9:A9:: @ƒ: 9 3 3 ::9ƒ 299::9:9ApAG::kA@9:@:A:: 3@: :3:33 : , :3 3çò 2233 9 3 3„:G3:99ƒ:@:9:3@:9 3:AAjƒ: 3:@ 3 9:9A@k@…:@9ƒ: 3::9:33 :ƒ9 : 3 :3 çñ-,c32949:9@::: 9 :3 94::9:9 3qAA9:A@„:@39:9 3ƒ 3 ::9A@ :@: 93 ::  9:3 :3èõB32::39:@:@ 3 3 3 3 39439::9 k@A9:@:@:3: 2 2:9:33ƒ:9 :9:3 9 3 3éö2- 9:@@3 33339 3„ 3„ &3 9    2 ,9 3  -: 9 9 33„ 3 3 : 283éø;2-223 - 33 9 9 :3393 3393 3 392 3:9:39 39 2:333ƒ:9 3 9 2 2 3 33322èøS23323 3 3 3 3 3 9 933 333 9 9 3494:49 : 3934939 93333 33 9 323h32éøƒK23,2,3 3 3 9 3 3 3 94339 3 3339 3 33 99 9 4 3 :: 9 3 9 9: 2 29„23éø†M3,322,22 2  3 333 9 3 3 943 3 3 33 3433 9 9 3  3 3 249: 32322332éøŠ -3,,22 ƒ +3 3 3 3 3 3 3 3 39 3 3 34 3 3 3333 3„ 3292c2323éø, ƒ2,322   3 3 3 3 3 2 3 3 3 3 99 3 3 3  3…23]232-ìø—„2,2  2  2 2  3 2 3ƒ 3 2  3ƒ2 23,9]32ìø›,22,ƒ2ƒ2322, 3 2 , 3,ƒ2 22,c,ccðø§ 22,2,2223ƒ2222-cc-c33233ðø¨, 3---22,32c,2,3,cc23öø°2332323,3]32,c3÷øÀƒ3,2ôøÀ2]23øøÄ÷øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄô,øÆñ,,9,2,øÄî,23]3]ƒ322øÂí2]33299:9: ,,ø¿ì23c2c3:9::9: ]2 ,”c]cø¦ë,c3]2:A@A@A9A@@32322c2]‰c]3øšé2]c]]c@k:@::A@k@A@32-ƒ2,2,,2,23]c32‡]cc2ø™é2-]9]9:A@qG:qA@ @33AkA92…3232]ƒ32,23c\33†2c2-2ø˜é%323]ck@:3qqqGkkGAG@A@: 23,2, 2323ƒ223]9]ƒc„2]3c3ø˜è]322]cAG3H:HkqGkqAkFk::32ƒ3,]232c3232c,ccc]c]ƒ323\ø˜è.cc2cc]@kGA9:@@A AkGk@@::@:@3\239]232-]3]c3…c 2c3,3c ø‰è&\]3cc:9G:qA9A@kk@kGq@@:AAq 3@:]3\3]]ƒc23]„c :]c]c]ccŽ… A ::9@@A3Aø…ç2c33]@:q:q A@AqA@qA@;@q@3ƒ:@G]„c2323cc2Žc::cc]c]8]3ƒc3„Gƒ9::A@:3kA@3@A@9 9 òç23]23c3]@A@:G3rqA@qAAk@qq qGqGq::@]3]3]3c]\3 2@:@„c]c32]c2ƒ9A3A@@kA::@Ak@9A:@@k;GAk9@@ðæ@,32c]9j@A@A@3qGkG3Gk@A@rG:3rGkGq::@c\9cc,323::@@::3c]9]c,32ƒ:9kGqG@@q@AG:@:qGq3@ƒ:GkA@ïå$2]23]9]cAAk9k AkGkGkGk@AjA9AqGqAA@ƒ: ]23c3 @AkƒA+@3]c]2,@A:GAqAkAk@qq9:9: qA:9 qAqA îæ]322]2]:@qGqA@@AqAƒ@q@@„Aqq;@kAqGA@:93c:@Aƒ@ :@9c322332„:@kGkGqG3A jA:9GqGkA@@3G9: íå23233]9]::kAqAAjA@k@rq@:qjƒAƒ@?Aq@:9::2c::A,A@9ccŽ3@@A:32c] 9@:qG 39:qqG@A@kAqkG@kAAq3j@íå532-223] :qA@jAqA9GqG:qr@qq:qrqGkA:9:3]9:@A@::4ƒc)3Aj::cc]32@;9Gk :@:GkGkAj@ :G@q jGA@: îäA23223]2:9@qGAkrGqA3 q: qG qGk qqHqGqAqGqG:@3]c93@:9]c-c9A@@:ƒc G:::@AqGkGA@3Aqkq@@AkGq:îä;2]3]c 9qGrqAqAqGq Aq:qqqrAqGrqqH@qGqGqk@:2c3 : 3c]c3ƒc%3@c :k94@Ak:@:qGkq 3qGGq;9AqAqA:kGíãe,32c 93GqHkGqAAqqBq@A@@A@@qAqGqHqqAkGrqAG:: cc]c],c223c3]]3c d@@:@A@@A@A:@:@ @kqA@:@qGq9:9Aìâ#2333:9:AkGqq@A@@qGqGk@@jA@k@:G@rƒq 9AqAqGqq@qccc3ƒc,]32c]c]39\ @A: @@k @:k@A@A@A :@@::3G:k9ìá]]2 \39AkG@A49qk:ArqAqA:@@A@A@k@kAAqH93AqqHqrGr@Akcc]c232]2d]c]8 :k@@3::@@d@@AkAq:k@jA@ƒ: @3 3 : êá?2 q 4G3AF::9::G39GqHq@A:k@k k@9A@qGq:GqHqqGqrGA@qAq]c3c, @]ƒc$d ,G:@kGAq3A @:ApAkGqG49: @A3 G9:@ƒ:êà 2]qGqGqq jAq„:9A:@lGqk@:@:A@A@AA@kAq:rqqGrqHƒq4AqGqc]3,@Acccc@q:@GkGAG::Aj@A@AjA@@::: 2A9: íÝ22]2 k:qG3GqGqG:@ƒ:. @34@AjAjqAj:@Aq:3GrGrGkGqHqAkAAGc23:ƒc#k::G@:qGk3:93@A@:qA@A:@A:3 @:3A3:íÞ,3,2c]G@lG3 qkGq::3qAkG::9@ 9AAG@AqAG@AA@ƒq"GrqrG:@qqGjA:@:@,c:-23:::kG3: 9„:9:AkGq@@k9 kA9@AA@ ìà:33 ::@:q kGqH:A9:9:qGqA9:@k:933@A@k@k@kAqHqrGqGqArGr@A@Aƒ:@„c]9:@qqA@:@GG:ƒ@qAqAk :9A@9A:@j@@3 @êÞ23]c2ƒ:-99 3 @@:: A @A@A@:99:A  k@A@A@A@qAqGqrGrAk…qAƒq.@AqrccA@G@k9 ::9 Aqk@:qAqAq@A@: 9::@@A@A@k :êÞ]c]23c9 :3:k@k@@:9q@k@…:A@A9kqG@@kk@:@kGqrGqqGkGAqHGrqGrGr@AqccA@::@:@9A@@A@A@qAA@Ak@@„:G:@:@kA3“,2×Ý]c:9:::@3:k@A@:rG3A3Aƒ@A@3:GrqAk@A::@kGAAqqHqrGqAƒqGrqGqqr@qqd3 : :@„:Ak@qAkG@k@:@A@:::@@:943 39“2ÙÔc]†:9@ 3ƒA9:: @A@ƒ:@A@qq 9„:R@k@::qGA@qGq:G3 @jAqGqHqqAqAGrqGqrGrG:AA:399 :3 @ @@AqAkFkA@A:j ,:@3@@A93c3233232‹,,2ÙÕcc2]22:G A:@qqGk @:9 q„:3 :: Gk@:9A@Aqr@3q:::3@kA@Aƒq HqA@qqGrqAqGƒq:@@:A3::@:@::9AkGkAG@::@:9 @A3:Aj:9]23c]22-]]2c,,3c2-Û×m32]:9A@::AqAqAq kG33GA@@33 9:qGAAkAqA:@qGrG:9@;@@::GkGqqAqArqGrGrqHqH@kAq :@:@qA::@qGq@kAk9: 3:@3:@3A:cc3ƒc,322]c,3]2,,Ü×,c„:jGqAq@GqqGq@qGk@A qƒ:a9@kFqAq 9:Aq@A9: @@:A3AqAA@qAqGqHqqGrqGqr@qG3:@:GkGq::qAkGkGq@:3G@A9::GA93c32cc3]2232]3, ]Ý×u2c3:@@:@:AqAqAqG3G:AkAqG:9AA9::AA@qA::9k:: kkAjG3GAqA@3GqGrqGrqGrqr:AqAA::@3Gk ::GkGAqAq 9AqA@3:GkGkcc]]c]32c3ƒc ,3]c]232ÜØ]2ƒ:#@:@@A@A:qHqA3A@ kGk9 @AGAq 3AqAk ƒ:U :9@AAkFkAjA@A3HqqHqGrqAGqGkGqA@A@qG9:@9A9:Gj@:9A@k@q9Aq@Ac3cc]9]]c]c232-8c232-Ü×23c@: @:kqq:A@qqA@qq::9@@A3@ƒq:ƒ@ Aj3 9:@@:3ƒ@Ak@qG@k@qqGrqqAqGrqrGqrqGk@k@„:,4@qAqAA@ 3Aq@:Aq::@c]cc]c]cc]9,]c,323]3]32Š2cÐ×,3]c:@ qA GqkqG3Ak@GqGkGA@@;qAGAqkqGA:@A3 ƒ:@4A„@7AA::A qHkGAqGqAqGqrGA:AqGAqA 93GqAqAAj :3@AA9::9::]cƒccc3ccƒ3cc]2232Û×y,9]c:@3Gq kG3GqHqAG@rqGkAq:qG3 33:q:A@qG, A@3 :33qG:3:@qqGqqAqrqHqqGqA@:@@k@Gk@: :GkGq::@@Ak:GA9::2c3]ccccc3c]23\c32332ÜÙy923::@3Gk:qGqGq@;@qrGqAqA9 @:: @::9@@:3AqA33qAA39AGqqGA@kGqrArGqGqqHkGkA@:@:AkGk@3@:qA:9:9@:A9:k9::9cc]cc]c]ccd3c23cc]2,32ÝØ[2]]A949A@Aq AqqlGk@AqAqGqGqAq3 3 3:@:A:GkGG:@@3 qqAq@k::@AqGqqAkHkGqqGq:@@k@GkGAG3@:9::@ƒ:!@:F:3232c3\33cc]c3cc3]c32323Ý×e,33cG9:: @:q:9AGkGk@AqGqqlGkGqrGk@G::AG@9:9A@@A@:qGqGAA3 GqqAGqrGkGqGqAqrAq:9:: qqk@A A@:A@9::A@3ƒc]„c]ccc]c2323,323ÜØy9\3]@ 3@A@qA:AqGqA@AqHqGqGkHqqGkqA@kq: :9::k@::@:@@q:3GqqGqAkA@AqAqrqAGkqA:9:AGAqGk@k@kAA:@:jAcc3c]ccdc3cc3,3,ƒc3]ÝØy]2c3: :3@AqA@qqAq qAqqG:rqGkGAqAGqGAA:9::@Aq:94@kA9 3GkGqG@Ak@AqGAqqA:Aq::@@qqAq@:@AA@k@:: k:@ccccdccdccc]3c3]232Žc]]Ý×^23c3\ 93 3@@qA@qGkqGqAqr::GqAqqA@kGk@q:@::@kGAA99@A@::@::rqAqGqAqqGGq:qAGAGkA@Aq@;@:j@@:@:ƒ@ƒ:cd3ccŽ]cd33c]2],3“c2,3ÝÖ2]3c::@3G3AkA ƒAA@:@::ƒqGqqr@Ak@A9:@3 qk39 3 @@:@Akƒ:'GqqGkGqAqAk:qkqGqA:@::@:@@4@::G@A@@:@]ƒc ,dccc32c]ƒc 2-233Ž3ÞÓc]cŽ„c* @ @: q:9Gk@k@k@k@A@: qHqHkGqrG@AjGqA: 3ƒA6jA@k:@@kGAF:3Grq:AA@A@:@GkG:q@k9A9@:::q@k@:kA9A@c]ƒc,cc3ƒc]c]2-ƒc]]ÞÍ,,,cc]9c]c]c3:39:@4GqGqA@G@@:@93@GqqGrG„qG;  39kA@k@AqqAqAqAqGrqGAAjƒq3@A@A@A::A@9A3ƒ:"A@AqA@9: j: Žcc]]cc]2c]9]233,9]c2ƒcÞÈ ,“Žcccc]…c#]“]c]G:@3@qAq qkkAk@: krGAAkGkGHƒqVk@:@ 3 @qA9:qGqGkApAqGqAqq@AGrG:@kAkA99@::A9A:@@:@k@AqAA::A@ cc]9]c]ccc]cc,]]9]2]cßÆ,223…2ƒcŽ“Žcc3c“:Ajƒ:GqAqAAqG@A9AG@:k@@qHqqArG@3A@3 9Aq@9HqHqrAqGqGqlGkAA@kqGk:@Aq@@:A9AGk3„:AkAj@qAqAjA::c]3ƒcd3cc3,c2c]3323ÞÇ)23hcc9chih“”“cŽc32::@A:@A:G: qGk 2AkA9ƒ:4@A@A@AqGrq::@AA2A]3 qqGqrGkGqrAGk@AF:rqGqHqGk::@kGƒqA9::9ƒ: kGkAGjGAj@:c]ccƒc 3c3]3c3\c3ßÇy2“™8bci\“i“8ccc3cc 3 :9: @@:3GqGq@:@::@3@kqkA@q4@:@::39 @3HqrGrrGqGqGqGqkG@3qqGqrGqqA@ @AqAGkAAG@9 39 3:@@qAkG@:AAcc,ccŽ3c3\c]cc]c]22ÞÇ"i““b9b289“h““9b9]c]cŽ“@AAq:@k@AkGƒ:39 9 33@AGq:AG„:ƒ:@ qqGrGqrqrGrkrGAkqGkHqAqHƒ:29AqGqqA@3@:@3:93:@:@AqA@k:c33]83c33cc]c]9\32ßÇ 2cic83’iiƒ™i’ih“ic@A@q::AF@:@:::@ƒ: 3ƒ@[kqAF:9@A:qHrqAjAGqGrqGqrq qqHqGqrGqq :9 ::@A3 qk@ A9 k9: 3@:9 2cŽ23c]cc,c]22c3c23àÆ-]™™ibc“i““’““™“i““™“™“3AqAck@A:@@:@A@@::ƒ@@:A@kGk@AjA9qGqGqA@rqrqGrqHqGqAGqArqGqArG@j j3:@A3GGA94@3: ƒ: 9: 9 ]cc32]ƒcdcc3c]c]c]2-2ßÆc™“bƒcy“˜“™™“˜“™™’™“™i“’3c”qA@@;:3::@A@q:A:@j:@G@AA:@AkGkqHqrGqGrqGrqG3 qqGqGqrGqqr@A:@A@A:9 9k93A:9 @3 3:9,c]2]ccccd c]2]c]cc,3,ßÇ03b9“ic“™™i“o“i“’™“™“’i™i™“cqGqk:@:@@:@AjAGk@Aƒ@\::Ak@39@AjAAqGqqGrqHqGqGrq 3ArqrqHqqA::G@@kA9G@kA4:@qGq43@@]c]c32d32cc2c3c]c3c]c2 ]233ÞÇ\ƒ2ychi““™“™“c”c“o““’“h“iqAqG@A@3AkA@@:AjAkA@::9:A@A:k@qqHkGrqGrGqkGrqA3GqGrGqqHqr::qq:AqA3qA@:@ @A@AqGq@::@]c3c23cc]c]dd]c]cc]c3c,3c23ßÈy3“™““n“™™”Ž”“”cd“bihi“™i“@AA9“Žq@@@qk@A@qqr:@c]ck:AqrGrqqHqqA@kGrqGqG rqrGqHqqHq@:GqAq 3GqA@:39:qk@:@r:@Ac]c3c]c332ccc3c]3b]232]2,ßÈc™2h2chƒ““Ž“]„c Žci3™A99ii“qr@rGqAqrqxHqq:9ƒc6 qqGrqGrGq::A@AqGqrGk @rGqrAqGqG:qA@kG3GqA39 qGGkG@:@ƒ: 3]2c]ccccc]ƒc ]c3c]3232cc-ßÈ]2ci“ic“i“33iicƒ“micc3GqGk@:c’AGrqrGqrqHwrGqrGr]A@qrqrGrqGk@::ccqrGAqGkGkqGqqAqHqq4A@: qAqA@AqGrk@:qGkGAj9cc323]23cc3c3]ƒc b]323c323ßÉyc2chcbhb™i™8“’i’c8“h]c3HkG3 933Aj@HqqAGrqrGrqxqkAj@;qHqqG@A@::“Ž“3k@A@kGGrqHqAqAqkA@q@@A3qrGkGq:@GkAqAkA@Ac]cc]c]c33c]c32]9232c]32àÈ2,22cbii“b98]™“bi“ci9AqGkƒ:@3G@AAk@GkAqrMqrGqHA9AqAƒ@ q:A@::“c2d“cƒDcAjA@kqGrqrqGqAqAp : @ @qGqA@:rGkGqqGAqk@Accc]c]9]cc]cc]2-23,cc,àÈ;, 23bi™2i“i““hib™hkAA@A9:3AqAFkGA9AqrGqrqq94GqrAkrGAƒ:M@:ŽŽc3]3,:A@rqGqGrGkrG@::@kA3@AqGr qr@AkAGqGkAGqA@]23c]c]2c]cc3c23]23]cáÉq2Ž29™“™2h“’™ii“™::i@q@j ::AAqqAkq@ArqrqHqH9GrqGr@Gqq@qGq Gjc”2c::kA@rqHA@qGqq 3 :: qqAkGkA@AqAqqAqAq@kƒqA@@33c3c]c3cc]2-2c3c3âÊy3228“i2cibc’™@A:hi@qA94:99rqGqqHqqr qHwHwqA9AqrwrGkGqAqG3Ak c,Ž2cA@AjGA@k@kGkGAq A9kGA9GkAq@AqqHqqGqAGAAGqA:qG::b]3\cc3]c2]c]3àÊB29“’8“ihchi“AAj@9“qqAq G:: rGrqrGrG3@rqrqHA9AqHqqGqAkGkG@AqG”ƒcE3]j@A@k:GA@A@rqA9:qAqqAkGqA@qqHqqHqrG3k@@3GkG3A@:@::3c]23,33]92]àÊ3ƒ2yc“hc™™““™qGA@\GqG3Aq :qqrGxqGq @rGrqqGkGrqNrqGqGkGk:9AqcŽccc2A939A:9@j:kqGrA2:@AAqGkGAq@ArqHwGk kGAqGk9:Gk9:9::9939Ac3ƒ23,]8àËO,”29“c8ch™™hk@k@:@lG3 93 @:@@A@rqHqrAqAwrGrGkGqqrqHqkGqGrGq@kcc,Ž3 3@rA@::ƒ@7HqGk AAqAqA9AkG@:qGrqrGAqGkGkGA:GkG3:kG Aq33,3232c]àËK22288ch““™“iqAqGq:Gk@9 9:39:AkAAqGrqqGAqqHqq@kGrGrqGqGrqrqrr@q- :9: qrGqƒ@c2c82™“™’ihkG@Ak@9 :9@:i“cqr@3@AqxqG qqGrGrwHqHqrqqAAqGrqGqxGGƒqA@Aj@@G@A:qAA@qƒ:1GkGAqGkG3A9 @qr @:@:qqArGkGq@@qAqA:3A@:@33 2]2]2ƒ3ßÌ, ƒcbihii“i“@qA@kƒ:s9 “h™“@@AkGqH2rqrGqqAqrwAGA@@:AqAkGrqrAqAqqrwrqrqAj@:@:qqG:@@qGk@kGkG@: qrqq3AqrqHqGqqGqAqAAqAGk9:@k:9 3 2323,22ßÍ2,]89“2b““h“A39A@@:9ƒ rcb™c:qAGkqr@rGqrGrGq AAj@A:@@kGqAqHqrGqGrGrGrMr@A9Aq@GqAq::A@q@@ 3@3GqGq qqHqqrqGrGqAqGk@GkGk@@ 3@:9 9 ,3c3]2ÞÎ729’ic“hii@AjA@A::2“8ibi:@AjGGqA9HqGrqqGqkAq@@:k:@A„:FAqAqrqqrqrGkA9::ƒA9@q 9AkGkA@3AA3:GrHqqHqGrqGrqGrqAqAq@@G::@::@:: , 2]23ÞÎC,3,9bi““bi“hc“@A@k@b8cbc™2i@A@kGrq:GrqqHrqrGq“i::qG@k@q@::kGkGGrGƒ@BApA3@:@k:@49AGkGkGk @kqGrqwHqrwrGqqArqAqGqAq@AjA::9::@3::@ 32-2ÞÎh3]cbGA@qGkq@@:9:Ai“™ch““™bc9:AqGq:qqHwrqHq:9:A:A@A 3GqGG@q@Ak@A@@A3@@A2Aq:93: @@A@AqGrqHqrqGGqƒA qGqGkGkqGk@Aƒ@::@::9 3323,ÝÏy,cb@kAqAqAAkAqA@:™“h3b“™:9GqGqA:AqrGrwA@ AA@@99:3qqAqrGqAGkAq:9333A: : @:3@k:@kGkqHqGqGqrGqqGA@kGkGqHqHq@A:@ @ @A3 : 332]ÞÐ,2A@@2A@qA@q@Aj@@™“29“™hƒ:SAqAqGAqxqHq@:@:jGkA3 ::9:HqGqrqrq 9AjAA 9A9:@@A@@qkqA9A 3@qGqG@kAqGrGqrGk:@qAqGrƒqG:jA@::@3@A@:9 32]cÝÑyc“@:A@i“@qA@AkA@:““i’i“i @:qGrqAqGrqrq:@::AkF@3A9::AGjAAqGrGq :qA@2 @A@AA@:@ 3@:@A@@:qAAk@;qGqkqrGrA9:AqA@;qGGrqr:@k@:@ 3:@9::332ÛÒP2k@@:@:AqAqGjAA@’2i“h:3:9AqqGqArqNqHq Aq@A@A@@:GkAGqAjHqqrAkGkG: @::@,::93ƒ:494@A@kAA9@qGHqGrqA:qGkA@@AqkGAq::GA@:@ 3::@9 3]923ÛÓyiAkAk@:@AkGqGq@qG ™“i“@::qHqAqrwGrqxq jGkGk@3qAq:@kqAkGkGA@ApAGk@9:A23:A 3A3:@:@:@@:9 jG:AkG::qGqqGqGkAj@AqGqGq@:@k@: qA9:A9: c2-2ÛÓtŽ,cGjGA@Aq@qAqA3Gkq2“c@9qrqGqGqrqHq rGkGkAA::@:G@9:GkA@k@Aqq@:@3::jA:A9::@:A@:3@A@qA@k@qrqHqqHkGqAqAqAqqHqƒ:@AA@:9: :93 ],ÚÒg3ibqAkq@kGAqAA@::i™AGkGqHqrHqGr@@ qGkG3@A@@qGqq 3GA9@qGqqHq A9::3::@ :93 94@:@@A@:::3 :qA@qrAƒqGAkkGkGkGq::G@dA@@:A@9 9 ÝÔT2iikGA@AjAqAjA::™“™”Gk@ArqGqrqrqAAjGqA@A@kqrGqG3AqqA9AqqHkGq:@: 9:@3 :: 3::@ƒ:-@A@:9::@::Gq@A@rqAqG3AGqGrGq:kA@k@A9A:9:3 3ÜÓy232cb@k@AjAAq9A:9:“˜kGAkwGqrGrGqHjA kG9k@ qrGqr:AGqH3qGrG3 @:A93:@::::9@@A@9:@@d@3: 3@: @:3GGkGkAq9AkGkqH:9@A @kG9:A93  ÛÔy,8c:@:AA@@9 qG:@2“G:9rqrGqrqHqqA9k:9::AqqHr@k:@GqrqG3rq@9::@ 393::@94@:@::A3:9:9:@ :@A@49q:@AA@AkGqqG:9A3 @@A:3:9: 3  ÚÓ2322ƒ:AFk@k qAqGq29c@3:qHqHqGqHqxG:@A::A:Ak@rGq @qAqqrGqH3 qH:@::@ 9ƒ::@::@ 3::@:@9:: 9@ƒ::9@A:@@:@:q@qAqGA:@@@ƒ:39: 2 ÚÓ3299ƒ:6@qGqAkA““’:A:qGxqqGrqrqrG9A@@:@q@AAqA@kAA9HqGrq 3Gr@@ƒ:@:9ƒ:?@:9 3@:@A@:@:@@A9; 94@ @@9::9::@A3q:@AqGk@:k@@k@@:A:9 93 93ÙÓ2323::@:@AqAqG™“@:9GqrqHrq@ƒGkG3ƒ:#9q: @:qAk@qAqAqqGqAqGk@@::@:@:@:@ƒ:@::@::@ƒ:1:9:3A:k@3@:: 9:@: @: 3A@rGq::@;@:q:@:939 3 ØÓ2-22:@ƒ:@AAq“h2:@:GqAGqAqGƒ:)qGkGq:9Hq:qq @qAApGrGk@AkGq 3:@:@@;@@:ƒ@:@::9:@:@:@@: 3@ ::@:…:"9A :k: @:@:Ak@:A@@A@ k ::@3 9 3 ×ÔN22 :@ q@,cc-::GqAqqAqGqr::qq:AG::q:@rGq@rA3GkqGkA@@Aq :@:@@:@@:@:@;@:A@ƒ:@@ƒ: @@:9 :999: ƒ@$:9@A3@:3A:3@A@@A@@:jA@:@:3:A3 9×Ó.,3229: jGqq3c 9qrGkGqGkGqGq qGA:qAqAAG:@qHkƒqG3@rGkG@Aqrq::@@:A@;@@;@:ƒ@:@ƒ:*4:9@;@:99@A3 ::@@:@:9@3::@@A2:::9:A9::ƒ@::9ƒ:: 3 ×ÓF, 2: :@k9Ž“: :GqGkGrrGqkAAqAkG:GjApAq@AqAGrG3GrqrGk@AqrG@@:A@:@::ƒ@A:;:@:„@ƒ: @@:A:@::@:@„:#9A:39 :9 @A9 :93:@kA:q9 :9 9:3-×Ô22 ƒ:@ @:: :@:AqqAqrqqGkGq qGƒq AGkA@:A@A2AqqG qrGqrG@qrG@:A@:j:ƒ@e@:jƒ@j;@::ƒ@: @@:@@3:@ 9;ƒ@$@@ @A@3 3:@3:@3:A@::@4AF@::9 3 9×Ôr, 3@@33@3:@AkFrGkGqHq:@A@qrAqGAk@G:@Aj@A@kGrk AqrMqrqAqr:@:jA:@;@:@:A:@:A:@@A@:A:@3@;j@: @: 3:::@@::j@A:99 ƒ:@ 3@A3 993@@: @3 ×Ô_3 3@@:A ::@:k@@rqAAGj@::ArGqGkGqA9AjA@Aj@AAqGkGqqrGAAqGq::@:@@A:jA:@@:A@::@::@:@@:3:@:@@33@ƒ@':9:@:3@: :j:9 @: @:: : :3::3A39 93×Ô33@;ƒ@ ::@kAFA@AAqqƒAq@:AqqrAqA@@A@A:@k:@Aqq qAqHq9kGkG3@:@A:@:@@:@:A@:j@@:Aj@A:@A::A:A::@j;@::9:9::A:@ 92 @:@39: 9:@ 3 93 :×Ôd2,9A@:3A3:@:qAk@k@qGqqA9:@qrGqA@:@k@qkAAqrqr @AqrwH3Gqqr 9:@:@A:@;@@j:@:@;@@:@:@j:@:9:@:@@33@:@@:@ƒ:@ƒ:@:3: :93 @::3 A@3 ƒ 3 ×Óy]329:q 9:@@A@@qAGAqAA3@@AqGk@@A@:qrqAjqHqGq rqqHqrqrGr3:@:@j@@dA:@:A:@:@;@A:A@:949@@:A:@ -@A:9:@ @@3@@: A@39:3@ƒ 3@AAˆ9:ÖÒ2328ƒ:CrG @@A@:@A@qAk@q @Ak@:A@AjqrGqArGrqrG3rwHqxG33Grq::@3:@;@;@@:@A:ƒ@e@@d@:@:A9@:;@@:9ƒ::@@A9:99A@ƒ:…:„ 99âÒy32,39 @ :2:@kAk@@e@qGAAqkqA9A::qHqGrGkGqrGq@GqGqrGqrGqAqH9::@ :@:@:@A:@@dA:@:@@:A@j: :@:@;@:9:@:3@:@::9@ :3:@ 3@:9 :@:„ AAâÓL, 22 9q@: ::A@@kAG@@AjqG@G3 qqrqqGrq@qGrqqHqrqGrqrqGrGqrw:::3@@k:@:@::@@:ƒ@ ;@@:@;@3@:ƒ@ :@;@@: @Ad@ƒ: 3 : ::@ 3@9êÔ]ƒ43q@@Aj@A@kAkAqqHr:@rqrGqGrq::GrqGrGkGqHqGrGq@:qAGƒ::::@3:@@Aj;@@:A@:A:@:A@:@@3A@;@dA3::9::@A@:@ 9@33@3: 9:@ëÔTc32 3 @@:@A:@A@jGqrGqqrqGrGrqH::GqAqAqqAA@qAqqGqA@:rqr@@:99:@A:@:@:@:@d@:@j@:j:Ajƒ:@:@@: :@::3@: …::@ 3ƒ:ìÕ2ƒ9A3:9A@ƒ:[@@rqHqrqHqGqqrGrqGqGkGkGAGkGkGqrGrAq:rMrG::@: @::@@A@;@:@;@:A:@;@A@:A: 9:@;@3:@:@:A@,@@:…:39::ìÕr]23@ ::9@@:@:qGqqGrGrqrGrGqGqqGkGkGqqAq@qrGrqqGqHqrq:@::9::@A3@:@@:j@:@@:@@::@@@@3@A:@@ 9:@@3:3: @: @@:9:: @íÕ]2 3:…:e@:@lGrqGqGqGqGqAqGqGqrGrqAqAqHqrqGrArqqNq:@:@: :@@:94@:k@:@;@:Ad@A@:@@:@3:@@:@::@;@ ::@ 9:3:@ @;: 9 @í×H3 :@@::9:q:qGqGkGkGkGkGqAqBqrGqqGqGqrqrGqrGqqNqr:@:A@93A:@: 9@:@;@@:ƒ@:@:k:@@: ::@;@:9:@@-@ƒ:@ƒ:2A@@AjîÖp, 29:@3:9:A9GkrGkGqqHrqAqGrqrGrqHkHqGrGxqHqqHqrGq@@;@@43:@:@::@:@@:@:@:A:@@:@;j 39:@@: :@A:@@: ,@::9::9: d@Aî×f22::9:9::q@rGqA@qrGrqGqArqGrqGrqGqrqrqHqqGqqHqrr@@:93::@@A:39:A:@;@j;@d@;@A@:@ :@@;@-@@:j: ::@@: …::@;îØ4::39::@:@::qGkAqHqqGkGqrqrGrqxGrqGrGxqrGrGrqqH9@;ƒ:@:@:@:@@::@:j:@@:ƒ@:j:@:3@:@@::@::@::@:3@: @: 9ƒ:@ïØ>,: 9 :A@:@@rG@rqqrHqGqGrGrqGrGqrGqrqHqGrqqGrwr::@@:@:A::@„:@@;@:A@;@;@@;@ƒ:@:A@:39@„:@::@3@:@: 9@AïØ 339439:Gƒ:2AkGkGrGqqlGrqqHwrqrqGrqHwqrqqGrqHqr@:@@::@:@@::@@3ƒ:@@:@:@@:j:@@:3@::@:@: @;@@:@:9„: ::@@AðØ, ƒ:e9::@::@qAkGqqrG3GqqHqrGqHqHqqHqrGrGrqHqrM@3@::@:@@:@@:@;@9:@:@A@Ad@@A@;@3 @@:@@-@@:@ :@@::@: ::@ ,A:ðÚ^93:@3@::A@AqAFAqHqrGqGrqHqrqqNqqGrwrqGxqHqqHqA :9::@:A:A:@:@:::@::j:@;@:@@:3@:@A:@ ::@:39;@ „:9„:@@ðÚ 3:9:ƒ@-k@@AjGkAqGrqrqHqqGrGrqrGrqHqHqrGqrGrq@@3:@A:ƒ@ jA::@@3@:@A:@@:@:@e :@:@:@:9::9ƒ: @:39@9 @9 ::ñØ 239::@;ƒ@'kAG@kGqrGqGqqHqrwqGqHqrwrqqrGrwHqwA@A3@ƒ:@ƒ:@:@:@;9:A:@@;@@Ad@@ƒ:@:A@:: @: 3@:9 A: 3@@3@AñÚ 3@ƒ::k@A@jAqAqGqrGrGqqHqGrrGqrGrGrMrqqHqrG@;@@ ::@:@3@;@@::@: ƒ:@@:j:@::9::@@:3@:@: ƒ@ :3@:39;9Aj@ñØc3239@:A@@k@A@@AjGrqGqAkGrqGrGqrqGrqqGrqHqrqqA@jA@39 @:A:@@:A::@@:9::@:A@; 9::@@;@:@Aj: @:j9:@: ƒ: 2@AòØd29:3@@k:@Ak@kAjAAqAqqAAqGrqGqGqHqxGrqHqwHqNq@A:@A@49:@:@:@@:@@:@::9::@:3::@@;@j :@:@@:9A: @:@:„:@:òÛH49:A9@:@@A@qAqAGkGAqAqrGqrqrGrqqrGrwrGrqqr@@Aj:A@3:@@4::@j;@@::@@A9:3 ƒ@;@jƒ:9:@:3„: 9::@@4@:9::òÙ, :9@ƒ:'A@k@qA@AqqAqGk@rqrGAqGqqHqHqqHqrqHq@:A:ƒ@…:A@9„:@:A@:@::9@@:@:@@::ƒ:@: :@…: 9 @A2@::òÛ34 :…@kAqAjA@qqGAqGqGrqGrqHƒqGrwGrqwH: :@:AjA9:@::9:@@ƒ:9@;:@@ƒ:A@@::3:3@@3@@: 99:9:: 3@ @::óÚƒ9::Aƒ:@GkAGqƒAJqqArqrGr@qHqrGrqGrqGrGr@@::9::@::@3:@:@::9::@::@::@::@;9 9@::::@:: :: …:3:9óÙ@,2 4 9A@:9GkA@qqGq@k@@kGqHqq@rqGqrGrGqrqrq:@:@:9:@:9:9A@ @::@:ƒ@%:9::@@3:9: 3@:: :@: :@::::99: @AóÚ+3939@:Ak@Aq:@kGkAq:GAqwrGrGqqHqqrqHqHqH9ƒ: @:@@A99::9ƒ:@†:@@ƒ::3@@:@ :@:@:@j:@@:@@: @A 3ƒ@óÜ 39 ƒ:ƒ@$kGA@qAAqGA@kGrGqqHqHqHqGrqGxq9 9@A@A„:9;@ :33:9:::9:@::9ƒ:@A: @:A-@:A::@ƒ:33 9:AôÛ22 3:9@:A@:kG@Akq@AkqAAqrqH…q7HqqHqqH:33:@j:@:@::@A9::9 :@@:9::9::::::k:@::9@ƒ: @3 9@3ƒ:ôÛ-, 3::A@@A:Gk:@GqA@A@@k@rGqGrGHqrGxqGrq:3A…:9„: @:ƒ@ƒ: 9:@@:39ƒ@ƒ:9…:@:9:93@ @A::9@ôÞ>3 99;:j@:@qqGkqAqq:GAqrqrGkqGqrqHqq:3@:j@:@: @@9@:3::9::@ƒ:@:9…:@:9::9::9::@:33:: -@AõÜ/324:9::A@:GAk:GA@qAq:@GqHqqGqrGqGqrG:39A::ƒ@ƒ:9ƒ:9ƒ:@:9„:@9ƒ: :99::::9ƒ: 9::@õÜ02 ::::@k:qA@:kGAAqqA@qqGrqGqqHrqG39@AA d 9:@ƒ:9 : 9:@@:: 9@@9: 3A@@:9„:::9::939 @: :@AôÝ=c, 3 9:@@:@9AqA@Aqq@AA@@;qGqHqHqqrq :@j @@: 3 @A@:9: 3 3::@„:4@::@„:@:9„:493„:3 @3@kõßG2 ::9:@::@:9@@3GkApAk@AqrGqqAqAqH@A394 ::@::9:39A@@:9:9::: @A@3„:999:99::99 9:9ƒ:õà*3 3::9:A@:A@A@A@qGqA@AqrqHqGqGqAj::9:3 „:@:@9Aj::9: 3:@@:9:3ƒ@9: ƒ:ƒ:9 9:9::9ƒ: @õÞ?32 :3:: :Aq@k@jAAkGkqA9AqAkqA@A9393::9A99A@A9::93 @A@::9„:@@A…:9:9ƒ::3:999:: 2A@õÞ,,c3 3 @9:9:@@kA@kk@AkG9AqAGkA9:: 33 @A@ƒ:9:9:9A@ƒ:93:9:@:9A:@:: ::::93:::9ƒ:9: 33õà ,3::: @:ƒ@OqGq kGqGk9AqGkG3 9: 9 3 9:@:9A@::49@:9: 9@A@:9: @@:9:9A9:3::9 94:::: ::õâ, 9:@„: q:@; k@A@::ƒA*qqG39 :9A@:A9:::9A@A9:99 @A@@::3:9:@Ajƒ:@ 9::::9::::93:9: :9õá2 3:@::@:@r@k@AkG@::pAkƒA 9 2 3939A@ƒ:79 3:9:A@A9::9:@::@A9: :@A@: 9::949:3A@339:9 2 :3 9:òáM]3, 39:@:@:@@Aq:@qkG@A@GjA:@A  49:@A:@:3:9A@::@A94@A@::9@@::9:9::ƒ:9 9 ƒ: 9: 2 9:A@òä22  9::@::9:@@A::@@3Aƒq:9A@kAƒ:9 9 :@Aƒ:"3 :9A@k@:3:9:@A@@49:@ ::9:@93ƒ: 9:: 3  9 òâ2ƒ23: 9:@„: @k@::@@kAAƒ:'9:9A9::9 :9 33A@:A@:93 @A3@@:493A3@„:9::9:33@::9:: :3: 3:3 ñæ233ƒ 3@@::9:@:qA@q@A@@Gƒ:A: 3:A9A@:9:33::@ @:@3 ::@:::@3AA9:99:::@3: :3 39 33 3 3ñå23:9 39A@::@@Aq@AkAGƒ:9 3 3 3@A9Ak9 k@„:3 3…: 99:9:9ƒ:9::9ƒ: 9 :: 9 3 @:@ðä-2]3 33: 94Aj::9A@A, 9:k9:9:@A9: 3 :@k@ƒ:39:@A@:: 3:9A@A49::9„:3„:9 9 93 39 93ðæ0-232:9 ::Gk9::@:qq:9 3 93A@k@:4::93 A@:9AA„:@k:9:@:Aj@ 9 ::99ƒ::: 3 3 :9 9 óéC22: ::9:::@:: :3@ 39 A@:9::AA9::9 A@jA9::A@kA9::jA::9„:: :999 3@ 3@3 3óì2 :„:K@@::9:9@@::9 33:: 9@AjA:: 2 :9:@AA9::@:@::@::9 9::9:9:9 :9:9 A 3:39:9 ôê723, 29::@A2 3 :3:9:3 :9 3:@::Fk::9 :@kA9:9 †:@ 9ƒ: ::@:: :: 3„ 3 ôí32 3 :3 -3 9 :9ƒ: 9:A@3:::9:A@ƒ:( 9:@A@A39@AAj:39@9:9@: 3 39:9 3:3 õì32- 9: 3 9 3 3 3ƒ 39: ,AG:9:39:@Aq@:: 39:9A„:@ @A::@: 9 3 3 : 3 ÷î+,22 3 3 9 9 3333:9::A@:@A3:@ 94Gƒ:@3:@Aj:@::@:9A:9::33: 33@3øð2322- 3 3 33 3 3 3ƒ 3:3@AAƒ:&9A@k@::@@::@A@999@  3 3: 3øó/, ,  3 3 9 9 3 33 9 3339@:@@::3 @:9:@ƒ: 39:@ : 3 33 3 @39 øô-,2222  3 3 9 9 9 3 9492 3 ::3 3 ƒ:9@@: 2:3::9: 3 3 3 3øöG2-223 3 3 3 9 3 93 9 3: 39:9 9 , :@3 3::3@33:9 :9 3 ÷øF,,22  3 3 33 3 9 339: :3 3 :9 9 9: k@:9: 39 :3 :33 öø†,,2 3 3 3 9 3 9 3ƒ 9 :93393 92 :9ƒ3: @ ::9:9 2:3 3: 3 õøˆ>2,   3 3 3 3 93 3 3  43:394:: 99 3  : 3 9: 3 :3öøŒ922,  2 3 3 3 3 3 9 3:33 3 9:39 3 3 3 2  3:33÷ø5222 2 3 2 3 3 3 3 33333: 3 399 3 3 3 3@ 8,øø‘-,22 ,  3  3 9 3… 3ƒ  39 33 39 3 2b322÷ø˜,2,-3 2 33929 3333:3 3 8cci23øøš#2222 3 2 3 3 3 3 3  3 32ƒ2c2c2øø›--,ƒ2    2  3 232 22c23233øøŸ-2†2,2‡2,,22ƒ3c33,øø¡22--2-3c2-3, --23cc3322ø„ø¦223ƒc3,3ƒ23c,c-ø‰ø­3\93d]23cc2ø‰ø¯23c]øø¯ 3232c23øŒø±]23øŽø³3øøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø‹,ø¸ø„ ,,2]92ø·øƒ2„3]23232,øµø,9]\32:93::32ø´÷2,]c3c23@A9:::2ø²÷33,9]c]c:k@AAj::9:2ø±ö2]9]c]8]@A@q:@A@A@ 3ø¯õ2]22]9]q @@33 Gq::3@A@A:2ø­õ3c-9]\Akq: qGAkAj@ 3,ø«õ]22c]9@3qG3 AqGkGAkA@Ak@A22ø©ô#,92cc3:@qA:Gk::AqA2GqAq@A@@332,2,‰cø›ó 2323]3c::AqqG9 @kGAkAqGkAjAA@ ƒ3 2 ,,23]cøšò2332-“]]:FA@:Ak kA@qAFkGq@@„:9 2,32,]9,-223\øšó23]]32ckAk@A@G9 qGkAkG:A@;@@kGƒ:„3 2]323]c]ø™ñ32-223c2Žc@AFk9A@3GkGq@qG@kAqqG@3:9::\322],32c3232†c]c]øŽñ233]2ƒc*::qGGkG3 qAqAqAk@kFAqA9GkGA9:3]3c232]c3]3‡\cc]øð 32,3\3]39ƒ#Aq @A@kGAkG@AAkGq:AqGqGk:F32-]3]c22„c†3c2cøï 2]33c3c]ƒ:+ qqAk@kA@k9 @q3@AkAAqqrqG:::]8]8233c]c]…]23]2øŒî2,32c]9 GqGkGA3:GqAG3qqG@:qk@GqAkAGk9:32]c2ƒc33cc2ƒ3232øì'223c]::3GqqAqGkqGqkG9 rGAqqG 3@:AAƒ@kGG:9c]3] ],c@@]c]ƒ23cøì,,c : : 9GqAqHqqAAkGqGqk:@qqqGk@qGq :kqGAjƒA32 9:3::c3c],ccøë232qqA3q kAA@kA:9qA:kGk@ƒA'@Aq AqGkqGqHqqGkF9:@9 3AF::]2332]93… 9 @ø„èG2]3 qG-GqG:@q@:93q@:GqHq@AjAk@AjAqAAqqGqrGqA::: @@9@@A:@AAc233]]…G:3@:9ƒ öèF32,c, 3A@ qA93GkG@:A3k:9GkGqA@A@A@q@Aq kGqrGqkAqGqAq:3A3A@:93c2c]22c…9A9A@:::jAAóçG232c3@k @qq qGqAr@@:9A:AqGrqAk@@k@AA@@AAkGqGrGqGkGqAA9A:3:23c3c]23c† : 3Aj@A:99A@@ ðè]c]c23„:=Aq:AqGqA@:@@9qAqGk@:A@k@kAjG@qHk:9AkGkGqA99@3 c3,c9@k:„A:qAqGAk9AAk9::@A@íÞ2‡5]cc33A:9::93 q:@kA92:GrAA:9A@k@Aq9Aq:@kGqq:@AqGƒqA3;@ cŽ3„ckA@:,ƒ :9 @kGkG@AkAjGA@:@:q 9A èÞ#c]322 q 3A@:99::9:9:@A3@:3A@:A@ƒq+A3k99A:G@:AqAq:@qqGqrGrG:GA:3c2c32 A@k@ ƒ39 :qAqAqAjAqG 3:9:Gk: @k@3çß c232-:Gqƒ@d:qGA@:9 ::@@A@@A jqqAA@@A@3:@A@Ak@kGk@Aq:AqHqAqAqqr@k@c33cc,ccqA2 @::Aq3 9:j:49:G::9:@A@åàF,cc:@qA@:A:qGqqAA@AqAk::@A93:qGqA@k@A:::A9 @AqAqAGA@qqHqqAqHAAFAAcc]„cŽc]ƒc:3 k@9G@:@AGqAA@A@@AqGk@@ AjA@äà2c3ƒ:@@kAqGkAAqqqAqGq9::@: qH33A@ƒ:@:9 39Ak@A@k@qAqHqGkGƒq AkqAq2c3]ƒc$]3cc, @@A::@kA:@@kGqGk@A3@:qA@A3 A@åá]2:@@k@@AqGqAqGqGqAA 3„:9kƒ: @@k@ :qrGqƒ@@kG@AkGqkqHqHqG@@ApA,2c]32]8]c3 @A::9 @AkGjAAkGk@A3GkG :@:@9::ãà"]32:A@3A@AkAqAqrqAqqqA: ::GAƒ:LA@A2@HqqAAk@A@@kGkGqHqqGrA:qq 9AA]c]32]c] ,Aj: @jAA@@ApA::3kGkq: jAq :@3ãà 9:@:A3A:ƒ@82“cb8“™“™A@GqGqrqH:qArqqGrGkGqrqGr:@qA:9AA9kA@qAqHqHq99AqAjGƒq!AqAk@:@@3@;9:A99@::3 @A9:9::]3,æØFq@A™’GkFkG:@::qAA@i,28c“™“˜“@r:qArGqq qGqHqrqqGqAqHqqAAkG9:A::3G@AqG„q0A:3AqAAqGqAqGk@AA;:9:::AA9::9 :9 ::22c22,2âÖy22 @:™bGkGkqA@:9:9“chi™“™8b8ci™AqAGkqrH9qHqrqrGr qHqrqHGq@GkGc2cc2]cAqqAGrA9 qGqqGkGAkGqAA@qA@ 9A@3 j@:9@A c]]c32ƒ3]càÕA,c2k@::3GkGGkG::b3™bichi\A29\bc@qGkGGq 3GrqGqHwq :qGrGqqrGkAkA„c>] :qGkG3GqHqGqGkGqAq qGkq@:@A9: ::4:@:99]c]c9c]]33]]c2,,2ƒ,„23ÒÕy,2qGkG@AAqqA@j@A9c8chc\9cAk c8c™:qGkqxGq@qHqrqHqrqrqrqHqAq@Aj3c]]39: kAqAqAqqArkGqkA9 :@kGqA@3@:@@Ak@::942323]c]cc]b3]ƒc 332]32ØÕs]2cGkGk@kGqqGA@A hi““™bi’AqGqG:@:qGrqG::qGqGq9GrGqHqGrqGqAqGA33 2 9:@A@AqAqAqGAqGqGq ::9@qG:kFA:@@k@A:FA: 23c22†c]2],2,33c233×Õ<23“ qGkAGqGkqAk@:22i“™ci“2qAq:@@rGrqr@:rqrqrGr39A@qHqxGqrƒq#rGq]23:9 2A@qAqGrqGAqAq kG@4 :@@A@ƒ:@AqA@k@@Acc]3]]3cc]c32ccƒ3c]23232×ÕQ3,cqAqGk@qAqGqG@A2c82™2™2A:k@:qGrGqGrGrGrqGr 9Aqq@@kGGqGGAqG:] 3 9GkGkGƒq4AqG9q@kA@:: k:9 :3993 3@cc]cc232]cc]2cc323\3c]]2-2×Õi22ibqGkAqAqGlGkqAqA““hc™22“@:9@AqGkGqqGrqqHqGrqGqGq;:AAqkHqkAqr9c:3 2 39AqAqGrArAqkGkAGj@9qA93@ 4Aƒ@;ƒc ]ccc]23cƒ] 2]cc]8]]32ØÔ3,]:@Aq@GkGqAqAq qGqƒicc322:@A:@qrqrGrqqHqqrqGr:3Aƒ@8A@AqqGAqqHq@] 2@;@ kGqAqGqqGAA@:A9AAkGA@3 ::@9:AkA@:c]‡c,cc2323c]3]2323ØÔy]c8:@q:AkGkGkGkGA94i’iŒ“Žc232Aq@@rGrGqqGrGrqNq@:@ @kGk qkGqGkqGrqH:@ @393 qAqGqr@:3@kA9 AkG@939 : 9A@A@ApA@:9]c]c]c33]cc33c2322,323ÙÓy2c38,@@;:@Gk@AAq:AjA:9i,cŽ“3]h2™GqAqrqHrGrGrqrGrG@:3A@AqG::@@AqGrqHqqAAq@: @::Gk:A@:@ AqG:9Ak@k94 :99 @::kGjAk@A9cc]332]cc322]23]2-9232ÙÓ ]2b2i:39@ƒ:@@3 9@Gk“cc]]cc9qGrAqGrƒqarqrMrqqr:@:G3Gk :2AkA@rqGGkGqr::@:qq ::@Ak:3 qAq@k@@: 3:GqAkA9GkGA@@::]c]c23c]2]]3,23c3\33,×Ór23-2 @:A@@:A@qAGkGq™““Žc“”c]qG:qAqrMrGrGrqrMrGkA9qA@AjG99@@:@@kGkAqrwr: @q9G9:9@q@ q@A@A3 3G@GkGkGAq9Gk9@;9@ƒc3]]ƒc3233ƒc]‰c]ÐÓh3292 9A@3:@:@qGqAqAk2™”Ž“Žc:9:@A@rqGrqrwrwHqrqrFA::@kAAkA9:::9 :qAqGqGrGqqHq 3GkG4qGA3@A@:9 qAkqGkAGj…::: ]c]ƒc2]cc,32]cc]2ÜÒ,3ƒ2 ƒ:n :@qqGkAq892]3c“Ž@:;@rqrqHqrMrGrqr@A Gk:@: 3@9 9:qGqAkA@qAqrqrqHqq:@3GqG3Gk@33qAqAFkGq q:GqGA@39]c2cc]ƒc 3,32]c]]cc3ÝÔ0, :9:99AqG2ci\8282@:@::@qqrqHwrqrqrwHwA@@kA„@ A:9::AqBqGƒ:, AFA@rwHq::qkA9:A:AqGkGA:@AkA@A@qAqq@:@3,„c ]]c]22-9]ƒc32ÝÒS2299:Ak:@kq32“hci“i3@;@AqGrGrGxqrGxGxGrqr@@kGkG:@33:9 :GkGqAqrqGq3 k@A@AqAGqA@ƒA/::AjAkGkq@qqGqA@jAq@:AqA@:3]33]cc]232c3c]c2c]cÝÐT,229: ,A@@9 :3c3 9:@A3@rqqrGqrqGqGqqrqrqxGr qGqAq3 @kAAqAqAqGkAqGrqG9AAjA@qGkG:ƒq0A@:qGA@AjGqAqGkGjA@kGrA@qAA@9c]\cc323c3]]cc33]c,ÝÐ3223:kGkAq:3@:9::@@AjA@qGrGqqGqGkAqHq@GGqGqqqG:ƒ@:: :9:@:GqGk@GqqGrq 39@qqA9:@;GkG2GkGk@qAG:qArGkAqGqGqAqAƒ@:]ƒcc]cc]c2]]c2c2ÞÐyc-, : kAFq: Gk@A:@kAAqGkGrqGqHrrGqGrqH:@qrG4G3::A@: 2qGrqGkGkAqAjArqG @: AGk q:@:@@kG::qGkGqk:GqA@AqAqrqHkA@k::@:cdc3„c]c9]c]23ÞÏ]c, 3GkA3Gƒ:@@AGAjqGkGkGrqrƒq'GkqHq 9qG3Gq:9::9::@3GrqGrAq@93:GA@qA@A„q)A@@ ::@kA@qAqAqAqG:Gk@:qGkGqGqGqA@k@:q:ƒc 2]]c3c]]bc233ÞÏ[23,q @;q@3 qG::@qAjGqGkGkGrqGGrHr:@GqG3GkG4A@:9A@::AAkGqrGq9 qGqA9AA@:jAGk@kAk:G@Aj qAƒ@( qAq@A@:9::GAAqk:qAq@ :A9c]c]3c]cc]9,3,2ßÏ.3283@:@:q @rq9AGkAqAkGqAqGqGrqGq:@ qkrAqA:@@ƒ:G:@AqGjAqHq qAqAqA:9@kqGA@kGA3GAA@:k:k@3AqqAkAAk:@93HqGqq9AGAq@@AkA:ƒc ]cc]c]c2 3àÎd23,92A9;@3 q9A@ @kG9GqAqAqGqqrGqAq: kAqA@A9AkG:9qGq;3:G@AqAqAqA:@9GrqGrAkqH:A@kpAGA9A:9AGkGjG394ƒAjAq4::kAqGk@A@kGkc]c]c]cc223]áÏF223:@ :3Gq 3qAAqqAAqAGkqHqGrqGk @@qHpAqqAF3qGrA@3GqGqqAk@AqA@:qHqqHƒq!AG93q::@33Gk99A9:Aq 9@@k :9G3ƒ:9GAqAq:@9AG]c]c]c]233c]áÏy32394:@:qAAqA@kGAqA3AqAqGrAqA @:@qrAqAqAkAGkG:3AqqrA3@Aq@AqAqGqrGqG4:3@ @:@A3 G@ :@@:9A@@:A@A3GqGrGqGqGqqAqA@::qG ]c3c2232]c22àÏy23 3 :@:A@@AkGq@kGqApAqGrkGkG:@e@rGqGAqA@AjA@qAGkGAq qqGkGkGqrGqrq rqqA@A3 : qAjA@3qA9:3:@:3 qGkqqGrGkGkGAkGk@:@k c\3323c2-áÎ.,323G@k9@k@kFkAAqA@qGkAq@qGq:@@AqGqrqAqA@@ƒ:T@AjGqGqqrGqG3GkGkGqrAGqrG 3 39:9::AAj kAA: @qGqqAqHqqGqqGrAqAq@A@A@k33232cc332áÐ,22 3:@::AAGkApAqAkGqGAAqrqr@qkG:@AA@@:@@:ƒ@TA@@;qrGqGrq4@AqGqAA@@qAqAk9@: @::@@3:AqG:9:9qAA3@Aq:AGkAqBqqAqGqA@:3@A3 c23‡]232áÐ"2 : 9:@:9@q:@AA@q@@kGkqqHwHqH:G9ƒ:)@:A::@k@Aj::k@@kGrqA9GrqqGqAjAkAqGk@ :3@ƒ:@„:9@AjA GkGkG3::qGqGkAAƒ@AqAk@:ƒ@3k3]9c3ãÑ%2 3:9:9A:AA@@k@@AkGrqHqrqrqrq949:@@r„q#GkqAq A@A@AkGqGkrGqHqqGAjAqq:@A9@3ƒ@:3ƒ@+@::A3@kGq@A :AkAAqGqq@@qAG:@kA@3@ 2c]]2ãÓH3 ::@kG@:@A@kA@qGrqNqNqNqHqHqrqrGqGrqrGGq @k@kqqGqAqGqrqrGkAkGqHq:3:@„:@…:+@::@9::GkAkG9G:@kFk@qqGkG-AqAjA@A:@ :9 ]23äÐy2 :3:@;q::@k@:AqqA@rqrqrqrqrwrGrGqrGqHqGkAqrqqrGGrq:@AkGrGr:qrGrqq:: 9 :93 ::@ :@:@::@::AFkGk9kGqGAqGqGk39A@Aq@k:@::3:29]äÐQ23 @@:GA@@:A@@:qGr@AqGqG@GGrGrqqHwrGrqGr@rqHqGrGqqGq @AqGrqwAqGqH9 93::@9 :@ƒ:,3:: :@@ 9 :qAA@A@4qGq4AqA9A@kGkGA@9:: ]]8äÍ 2, 3 :@@„:N@@:jGAqA@qrrGqrkGqqGGrqrqrqHqqGqrqHqqrAq qqrqrqGr:9A@qq  9 ::@: @@: ::@3ƒ:#@: 3GjAqA9AqAqqr@A@::@qqAk::9:9c]äÐ"239:@:@:q@@dAqAkG@AqGrGkGqGqGqqAƒG5qGqAAkGGqqHqAFqqHqGrGrq9:qrG9:9::3 94@:@@:33:9:9:@ ƒ:#@39@3 kGAqGqGrGqAkA@9AqAqG9:3@ ]cäÑ3 ƒ:@A::A@:@Aqq@AkqrqqGqGrqrrHƒq3kAqGqkGAkGqr:GkqHqrqrGrwAqGqHqq:::::@::9:A@3@:@@„:@@:9::A 9:9AjA@Ak@:AAƒ@:AAqAA9::43cäÎH,, :9:3:k@@:qA@qAA@qAqHqArqrGrGqGrGqGqlGrqqGqAGq@AGkGqHqxqGrqrGqr 9::@„:ƒ@ ::@@:A:A9:@ 9: @::3ƒ: qkGkG:kqqA@:jA@kG3:39 3äÍ 233::@Aƒ@?kA@kAAq@kGqqHqxGrqrqqGkGrrGrqGqGqqGkGkGkGAqqHqA@qGqrG:@:3:@ ‡:.@ :@::@: @:@: :::9:3 9qGk9:qA@A@@k@q 99 ::åÏC, 3 94:Gj:AAqAGjGk@rGrGqGrqxGqHqrrqrGrwrrqHqAqGkqrGqqHqGq@AAkGq@:@ƒ:@:@:@3::9@@:@ƒ: 9 @3:@:3 :@3 ƒ:ƒ:GqA:Gk@@dGA@AqA339:æÎ,34@:@@Ak@AqkGkGAqqGƒq;HqrqGrGqNqrwrGqHwqGqrqHqxqrqqrAA@jAGrq:@:@@: :@@; :@:@ 3:9ƒ:9ƒ:%@3:9:@39@: ::@AqqAqA@Ak@jAAq ::33äÌ:]2 3 @A@Ak9AFqAGkGqGqGrGlGqrGxqqrqrHwHqrwrHqrGrGrqHqHqHƒq rqrqq@:@:@:@„: @:9@:@9ƒ: 9 @: ::@@ 3ƒ:93 :9:@:G9AqAq@A@kGk9:9A3:äÍy,-9:A@:jA9AqAqApAqAkGqqGqrGrqHqHqxqrGqGrqqHqrqrqNqrqGqGrxGrGr@:@;@:@::9:@:@::3: :@::9 @@39 :@3A3@@:: 3:::@A39:9A::@ AqA3@: A 9äÎy22:@@:@AAqG:qAqAqAqGkGrqGrwrqrGxqHqrqrqHqHqrGqHqrqGrqrGqrqrq@:@:@:@:@@ ::@:@:::9@ @9:@: 3 @::@@ 3:: @:9::@:@: 9:@:@k @q :9:93: ãÍE22 ::3@k@q@A@Ak@qGkGkGkGrqHqHqMrqrwHwHqxqxqrGrqxqHwrGqGrxGxG@:@:@:@„:4@ 39::@@3:@:3:@ 3:@: 9:@: :9:9:9A::94@:GAq „: 9 ãÍ],, 9@:@:@@AjAqGqAqAqAqGqGrqrwrrqNqrqrqHqHqHqqxGqrqHqrGrqGrqr@:@:@:@:@@:@:3::@:@::9:@:::@ƒ:$@::3j 9 :: @@:@@9A@k@A:9: 3ãÐO2 :@:@;@A@kAkAGkGqGkrGqqHqHqGqrGrMrwrwrqrMrqrHqNqrwrqxqrG@:@:A:@:A:@A:@::9:@:@†: ::@@ 9: „:9ƒ:2 @:A@:: 9q:A@q::9A2@ ãÎ= :@:@:@@qqA@GjAqqGqGAqHqrwqGqHqqGrqHqHqNqrGxqqrqrGrMrGrw:@ƒ:C@:@:@::@:@:@: @:@::@: 9:@: :: @:9::@::@:9 3 3@@:@::@:9Ak49:: 3 ãÎy,39:9@::@AkA@@kGqGrqAqqGkqHqGkGrqHqrxqrwHqqrqHxGrMqxqrqrG@:@:@@:@:@:@:@:@:@3::@:@ :@ 3::3@:@::@::@: 9::9 33 j:@;:3@3 G9 :9:3 ãÌ^,3 ::@@:k@GkAqqAqAqGrqrGqGqHqGrqxrqNqHqrqHqNqrqrqrGrGxGx@;:@:@:@A:@:@:@:@::::@:@3:@:9 ::@…:#@ :@:@4:3: ,AA9 :@:9 :: :349 3âÏ3 9ƒ:yAA@k@AqHkGqGrqHqqArGqrqrrGxqqHqrMrqrqrMrMrqxqrqrq@@::@:@:@:@A:@:@:@::9:@:A::@:9::@::@@::@9 ::@: 9 9 @@A3 3: @9:3 9 9:@3@3 âÎZ2 3::@@q@:A@kGqAAqqAqqHqGkAkGrMrqrGrqxqrwHwHqrqrGrGrGxG@;@::@::@:@::@:@;@:@:::@:9:: :9:@„:&@:@4:@:9 :@: 32@:A9@39 -::A9 3âÎ2 9ƒ:BA@qG@qGkqGrGrGqAqqGGqqrqxqGrqHwHqrqrwHqxqqxqrq3@:@:@:@:A:@:@k:@:j@ƒ:@:@::@ƒ:, ::@::@::9:@: 9:@: :39: @@A3 9 3 94: @3âÍ ,93:@:ƒ@/qkAkGAqrqGqrqGqHqkHqHxGrGqxqrqxHwHqrwHrGrMr ;@ƒ:@:@:@:@:@:@:@;@@:@:@A39:ƒ@,:39:@:9@ @: 3:@ ::@@: ::@:j@ 3 3 399:9:3 âÍS, 3 3::@:A:qAAqqAqGqAqGrqAqGAqqrqxqArqHxGrqqrqNqrwrqr@9 @:@:@:@:@:A:@A:@:@39:@:@:@„:*@:@::@: ::@:: :3@::@393 :@A:3 :99::„ 9áÐO93@:9A@@Aq@qAAjHqrqrGrGqkGqHwrHrwrMrqrwHqHqrqHqHw:@ d@:@:@:@:@:@:@:@:A@4:::@ƒ:@:@:A@ƒ:'9:@:3@A:93 :@@33:@ 33:@@3@: :9A@@33âÍ , 3 @::@AjƒAZqqAAqGAqHqqGkGkGqrqwrGrqrwHrwrqxHwrwrH@:A3@:@:@:@;@:j:@@:@:93:@:@@;:@:@::@:@::@::@ :@3 9ƒ: @ 3@9:9: 9 :3ƒ 3 âÌc,, 93:@:@A@kq@AqAƒqiGAqq qGrAqGrHrwrxqHrwrqHxqrqHrw:@:3::@:@:@:@@;@:k:@@:@:@:@:@:@:@: @:@::@: : :@: :@: :@jA9: @A3@:3 39 ƒ:3, áÎ23 „:t@:@Ak@A@qHqAqGqArqGkGqrwrGrGxqrGrxqHqNqxq9: 94:@:@:A::@:@:@:@:A::9::A@:@:@: :@:@::@ 3@:3:@@93: 9::@3 : 33@@ 3@:9 „: áÍ2 9 9ƒ:*@A@qAqAq@AqqAqrGqGqqrGrqNqxqrMrwrGqrwrrG@:ƒ@:@ƒ:<@:@:@:@:@:@:@:9::@:@:3:9:@::@:@::@ 3::@:34 ::@@ ::9:: 33 3ƒ@33…9:3âÎZ,4 39:A@:@@AqA@@qGrGqrGqHqAqrwrqrGrqrrwrxGrqx@:A:A:@3@:@:@:@:@:A:@:@:A::@:@:@ :@:@:9:@Aƒ: @ @ :@:  @:3::@:: 3: 9:A@ 3 … 3 áÌP2 ::::k@:A:qqAAkG:qGqkGkGqAGqHxqrwHwHqHqrwH::@@:9@;::@:@:@:@:@d@:@:@3 :@:@ƒ:@:@„:@:@::3@39:3 :2@: @9:@:„ 9 :@:A99 †3áÎg,-3 :9A9@:q@A@AqqGkGkGqGqrGqAqrqHqHqrqxqxrMr@ :@:@::@9::@:A:@;@:@:@;@:39:@:@:@::@:@::@:3 9::@: @ :@ ƒ:@ƒ:… 3: k9:@3 † âÎl 3::@A@::q@:qA:qGqqAkArGrqAGqrqxqHwrGrGrq:@:@:@::@::@:@:@:@j:@:A:@:@:@:@:@ ::@:@ ::@::@:3:@39@39:3@99::‡ : @A‹3áÎ.-2,9 :9@A@:9A@:A@:kGAqA@qqGrqAqNqH9rqrxqxq:@ƒ:%@:A:@:@:@:@@:@:@;@:@@::@:@:A:@:@:@:3„:@: 9 @::A: ::@::ˆ3@:9ŽáÎX2393::@:qAA@AkqAqAk@rqGAqrGq@rqrqGrGqHqr:@ :@:9:@: ::@:A:@;@:@@:3@::@:@:@:@:@: :@:@ƒ: @::3@:@3@::@‹AñÏ7]29@9:@AkGj@AGqAFA:Grq:GqqH:@qGrGqrqxHw9 @@93:@@:@:9ƒ:'@@:@@:@:@39::@:@:@:9::@ :@:@:@:9@:@ 3„:@:ø†Î2] 9: :@:@kGk jAƒqFGqGrqAqHqqA@rGqGqGqr9 :@4:::@:@::@:@:@:@:k:@::@:@:A:9 @:@::@:3:@::@ƒ:@:: 9 3@ø‡Ñ122 3:9:9A@@AqAqAqHqkqGqGAqrq@:qGrqAqG: 9:@3::@@„:9::@A:@:A:9:@:@:@A@: 3@:@3„:9@: :@::@: 9@::øˆÐ?22 2 :::9A:@qA@GkAqGqGrk@AqGrGrqqHq::9:9: 3@::@:9:@:@:@33@:39„:@:@„: @:@: :@@ƒ: @:@::@:: :@;@ø‰Ò23 ƒ:94:@A@kAj@AqAA@qHqA@qGqrGrq:ƒ:@@9 ƒ:$3::@::@3 9 :9 :@:@:@:99::@::@:@@:9„: 9 9::9@@øŠÐ3239 ::@9::@GkA@AqqAkAƒqGrkGqqH::3:::@ ::@:@:9@@…:9:@:@:@:@@:A 3:@„:@@:39:@:@: @::2:@Aø‹Ñ03233:@A::@kG@Aj@HqG@AAq4GqAqG9:@@4:: :9: 9ƒ:@3:@ƒ:@:@A:@:A@@:@:@:9†: ::9::@: 9:øŒÒ 32 : :ƒ@+::@AjA@@Aqk@qA9GrqH@3:@@:9@@::99 9::3:9ƒ:@@:@:@@ƒ:@@:@: @:@@:@:3 9 :9 :@:AøŒÓ,23j :@:@::9AqA@dAAqGqAqAqƒ: 3::93:93:@:9::3@@A:A::@ƒ:3„:@:3:@:@ :39@:929: ::@@øÕJ23:@:@:A@@:@:qAAjG:kGqGq : 9::9 A9:4:3@ :9 94@::9:39:3 3 9:@::9::@:3„: @ : :@: ::@øŽÔ<32 9:3: jAkqH@AjAq@@GqA3 9@A@3 993:9 :@:99 99@99:: ƒ@:@: 3 9„:@:@ 93::@:3@@:øŽØ*3 9k:9A@AjqA@AGqrAq A::9A9: A@ 939:: @„:@@3„:3@ƒ:@3: 2:@:@ 9::9 :: :@9 :@:øÔJ22 3 3@3 3@A@r@kAAqqA3 @3 @:9:3@::9A@ 39 9:@;933:@@: :@:@:@@: 3ƒ:9:33ƒ:@:øÕ13,2 39 : @3 A@qA@3G3A9:A93399949A9:9@4::3@ƒ:9: ƒ@;@:@@;@:3 3::@ ::9 :@: 9:@ø‘Õ3233 3 33@@39:AqA9k:: 9 3 ::A@k :3@3 :3:9 A@9ƒ:@4@;99:@::3 @A:@@:: 9 ƒ:@:: @::ø‘×;23 :9 :A 9:G G993:9 : 9A33@:9:@A:9 A@: 9949 9 9:@ :9„:@@j:@ ƒ:@ :@: 9ƒ:ø’Ù=223:9 @@::9:3:9:99 39 j:9 9:39:93A9::@A9::@A9:@3@9 9:9„:@::@:@393:9 39:ø’Ù,ƒ> 3::39 39 @ :34A@@39: 9A@ :9 9 9:: ::9::9:@3@:: 9:9ƒ: 2 3 @:3 @@ø“ÜM2 43 33 @4 @A3A@::9A::39A94 @@:9::9 :@:::@949:9 ::9::@3 39 3::@;ø“ÛM2 3 3 3 939-@@9A@3:@A9: 9:@:9@A33@A9:@:3:93::@: 993 @; ::@ø”Þ 2 3333 9ƒ:.A3:9A9 : 3A@: @AA393:9@A@:49:@: 93::9::3ƒ: ::@39::ø•Ý2 3 9 3 399: 3ƒ:0 @jA:994@k@9@AA9 :@A33:@ 949:9:94::9 9 9 9ƒ@ø•Þ2„3 :93 ::94:9A-@:9A@@:@Aƒ3#@:3:@@A9@94::9::9499:::9: @:: ::ø–á, 2 2 :9 9 @A94@:9: ƒ: @:@ 9:@A9 @9:4999 :9 3:9:A9ƒ:3 9:ø–â5 , 2 9 9 3: k3@:99 A@A3 9:: ::9 @dA@::9:9::3:3ƒ: 9:9:@: 9:@@ø–ã,„ 53 94 393 :9:A@9:9A@: 3@33 @49::9::::9 ::3:ƒ:9ƒ:ø—â8,2 3 3 939 9::9 9AAk99A:9A9:@:@A@@:9:3:9 :9 9„:9:3 9ø˜ç) , 3 9 3 9 39A9:9:9:A9:9 :9:Aj:3:9ƒ::9:@:3 9::94ƒ @ø—æ', 3 3 : 9 3A@:A::A@A9 :A@ ::@ :9„: 9::9 9:3:9ƒ 939:ø—ë:3 , 93 3 3@::3@A@3@:9:@k9:@@Aj:99:: 949:9:::9 3 :9 ø—é(23 3 : 9 3 9::AjA:33:9A:9::@3::9:3…:@:9:9::339 : ø•ê?3  39 3  @:@A9::@A::@:@A@: ::9 9:9 3:9::3 3 3 39 3:@ø“ë ,3 3ƒ3 :99ƒ:A@ 3 ƒ:@:9:9ƒ: 9:9::9 3 :9 33 9 ø”ï% 2 3 39 3:343 @@3 :@9 9:@A9::9::9ƒ:9:@:: :9 39 3:ø•ð 2 3 3 9 39 :A39:Aƒ: k@A3::9:9::9 3 3:: 3 3 9 9 ø“ï:23 39 3 9:9 3 9:@:9:A3::9:9: 9:: 3 9 9: 9333:ø“ñ92 2 33 3399 ::@:@A@@A@:::9@@:3 @@: 3 @9 :3: 3@ø’ó2 3 3 9 3 339:: ::9:93A::9…:A3 3: 339 39 ø•ô2 3 3 3 3 9 3 9 3 ƒ:@9::9: 3 3:33 9 3:9 3ø–ö/3 3 9 9 9 : 9339:9 : 33 3:39 93 9: 3ø—õ.22 3 3 3 3:9 3@93@9:9 @:99 3:3:@ 3: ø™ø2  3 3 9 :3 :4ƒ @A:3:::9:@: 3øžøƒ 23 3 99:: 3 393: 9 3:: : 9ø¡ø„,ƒ3 3 9:9 39:93:: 9 3 9 3 ø øƒ!23 33 ::::3:9@3- 3ø ø…!329 3 3 393:9: :9 : 3 øžø‰3…3 9  3 3 9:3 øø‡,cƒ223 3 :333 3 93 9 3:3øœø‰ ,c2, 2 : 9  , @:3 3@ 3ø›øŠ ,,223 3:9 33 øøŒc23,2-2232 2  23b8cøŸøŒ ]3c]c3, …2cƒ23ƒ2øžøŒ23232c323,323323c29øŸø 23c]2c,ƒ c32cc3cc3ø øŽ,32cc]33„3ƒc2]]ø ø33,33c„,…32ø£ø“c2ø­øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø2ƒ2,2ø øœ ,]c33232øžøš233cc32]32-3\3ø›ø™2]2]c]]2c]32 3øšø˜2]]9]cc323@kAk3 3ø™ø—32-c3cc2Aq@ :@AjG:@ 3ø˜ø–23cc\,3@k 3@k:AG3A@@ ø–ø”232]33c:@ 9AqAq3AkA@, :ø–ø’2, 23]2c]c@:kAG::k@G:kGA2 :ø”ø#22]-2]32]9]c:AkAp:@qG@:@k@kA@A9ø”ø‡]…%,]33,23323c]c2 G@AA@kAq::A@GAj 3::ø’ô2,‰,cc]2332 :]232c3]@:@k@3@AqA9AjAq@qAk@@:ø‘õc3‰)]c2c323AqAq93 3 3 :@:k@@: kGkG@A@AA@ƒ:øõc232ƒ/,c]]33:3 kG@qA 9 3qGkGkG9:G:AqGA3Akqq@k@:@øö3cc: @k 3G@3:ƒ@:AqAq :@@qAqGjAA@kAq:GjA9AqGAƒ: 9 øö7cc]3@:@qGq@@Aj@@ @kAjGkG9:A:@:qAGjA3 @A@:qA@@kAqAG9: 3ø÷7]32]@@3:AA@AqGkqA @:q:9AqAqAA3@:@ GqkGjAG9:A@@kFkG@A@ øŽö922]c9Ak@Ak kAqkGrG@d @::AqAkA@k@ kAkG@kGk9 3@:AqAGkq:3 3øã]23\Œ=]2339 A@A@@kFkAqGqqr@3:99AqGjA@A2 q@@kAGkkGqA3 9AkG9Gq@ øŒâ8cb322,‰*c]c3@A@jA39GAAFqAqAAG@:::9:@AA@@ kG:AqAƒ@AqA@AqAq@kAkGk@@3†,ø„à 2c29bŽ332Š32Ž23@49 qAjAkAqAqqkGq„:"@Aj9:3 qAkGkGkAk@k k@qA@3G@GkGA@@,ƒ2,ø…Þ,23“™2i8bc]3ƒ2„@23cc@:Aq kAqA:9GqG:GqGAqG 39@: @:qq:GkG9AGkG@kGk9A:k@3 @32øˆÞV2Ž8“22i““2icc]cc23232]@k@:@:@AjqqA@:AkqA:93:GAj::@@q:AqGqA@Ak@q kGkGA@A:@3 ,øˆÝ23]8“228i2chc8ccƒ]2,32]3k ::A@@kGkGrƒ:@AqqG4kqq::F:kGkGAƒq @kFAk@AqA@3kGjA:@3 ]øˆÝ32c2™23322cchƒc-]c233232@39Aq:9AAqAq:GqqG:GkG9AGA @::A9Aj„Aj:Ak@:G@@k GkGkGk@@A2øˆÝ2]i“2”i8chi“„cC3]23] :4@9:AqAAqGAqGqrqGkG::qq:qG:@k:@9:@k@@ 39AG:kqAGkGkGqAGA:3 øˆÝW3ci“i23hih9]cc]23,33@@: ::k@qqGjAqAqGkGkAk@@3Gqq:@@:A@AG:@ @@:GA:pAqAqAq@kG::øˆÜc2™“˜“™2icbii“ƒcE]3]38Ak@:@9:9:GAkGA@@kGrGkGqGqAA@rG9@AAqAq:@@kA9@33:kF:qAqAqGk@@q@@:ø‡ÝX,3™“™“™“i“h“i’i2]c2“392]3Gk AA:9:@AqkGkGkGk@AqGqA@kAkq@@kG@@:k@A@4@ Aq:GkGqGk9AA@A@@ˆ]öÞ32c™b™“™h™“i“i“™233]2]c39 pA9ƒ:9G:@qAqAqGkGqAqkAqqAG:AA@:@k@AAk@9:qA@ qAAqA:@::@k@k:3 „2ccõÞX]™“h“i™““™h“h““bi]c32c] 3A@3@@Gq::GqAqGqGkAqA@AqGq::9qAqr@:AqqG:9GqqA@A9:qA@:AqA@Ak@@ƒ:ƒ2]c]ôÜ ]8™““™“ƒ™“i“hichƒcE3:@AqG:@qA@:A::qA9GkG::GkGqAAkAA@ kGqqHk9@A9:@Ak:@AjA@:GjApAGkq@Gk 9„]cc2ôÜ]c3,8ch™™““”i“™bib]2::Gk9:AqG:j@kGAq:kGkGqqGkGqGjG@kqGk:9GkG:94GAk@@:qAkA9:GkAqAqAAqA9 @9ƒ323]cóÞ2iiƒ“R˜™™””ci“i“™“3cA99 @@qk@H@@kqGqGkG:AqAqGkAqAq:Gq@::GqGr:AjG@;GqGqA@kGAqGjGk@qA9:ƒA23323ôÝ7,c2“™hi8“™“Ž“Žcc“˜i’i2kGAqAA@;@qA:GqA kGqkGkGqq@qGqqG„:@ƒ:#kGq:AA@@qAqAq9AqGkAGkG@Aq@::9 32]cõÜcc“bi29\i™c]c“Žcƒ“1i“2GkGkA@k@Aq:9qGq:GkG3Gq@;@AqrGqAq::::@ @: 99:9„:9:kGkGqAqAqAkA@:ƒ23]cõÞC2,2ibibc8“ihcccŽci“˜ciGkGkA@k@3:GkGkq:Gk@A@A@AkGkAAqGA@:9 @: :: 9ƒ:9:9 :Gk@qAqAqGqAF:@@c2]2õÝ?339hic“2ib“cbdc”2“i“i“AjG@A9AGkGqGq:@A:@AjA:@qGqGAjAk@:: :ƒ@9: 9ƒ:Aƒ:kGA@qAqAqAj: :@-:@@AõÝbc22“™“ib™“hi2“8ic”8i’cc“Ž2:9qAq:AqA:Aq:qA:3:@qGqkq:@GqG3@@kq:43:A:? @@:Gk94GqA@kGGkq@23kAj@„ 3îÝN]c™b“hib9“i“29““i”cbihc“Ž23:GkG::@:@kG@qAq9kGkrGrGq:qHk kqGA@:qAG@k:@:ƒ@kGqGqkGAq: ,2A@A:ƒ @A3 @ìÝc“28cc“™“’“i“’i’ƒcY2c9“9::qA2qAAq:@@::kGk:AAqAGqGqqAG:qAqGAq:@:AAqAkkGjGk@@qAqkGqGkGq3:]cA@3 99@ 3:êÝo]8““ibc™“h“i’GkGA“cdc3GkGqAqAkAqGkG3:9:]A39:3@A@kAqGqkGq@Aq:@:@A@qAq@:9:AAk@:AqGqGkAqAkGG:3 @ kA: :@ :èÛ,]chi“b™™i™“GqAjƒc @AqGqAqAqGA3@qG@:A@33ƒ:9:@:3GAAkGAAkGkG@A@:j@kA@A@::ƒ@A@Ak::GqGqGAkGkGk ƒ -9:9 @kAk„:çÝE3bc“™™““hi“qGq:9\Ž 2:kAqAqG9 3@q9::@@3 qGq@@AA::9 jAqGqqGkGq;@3::@AƒqA@@:Aj@kGq@:qAqAqqAq@Aqƒ 9:@@A@AF3 @:@@äÜQ22chcb™“™i’“GqG4b2 kGqA:q3 9c3::3 AqAqA:@q:qG3 kGkG94G@:@:kGqAG@A:kGA9:ƒA G:qGqAqAGkGk@k : @@::k@kAjA@A@:@äÚy232“™iibchibi“qHqG3 kGqGkGA9 93:9AA@A9: @k@A@qAqqrGk@qGq qAqAq 9::@::3Grqq:@@Aj@: @kF:kGkHkGqkGkG9:::jA::@A3kAjGA::@@áÛN,3b2ii“hcibiqqAqA@AqrGk @:3AA::@A:9Aq:A@@kGqGqGqAA:: :@qGkA9:9:9:: :@@;@jƒA)2G2;qGqGqGkGqAG:9@::@:9A@A@k@ 9A2 ::A@AßÛ32“i2hichcib@qGkG:@qGq„:@Gk:@@k@AqrGqqAqAqkGqr9Ak9@ƒ:ƒ@< 3 : 9 2 333Aq:9A,AqGrqAqAqGkqA:@A@9A@@k@:@A@A@A@3 ::9AÞÜ,9““qA’™chcq:HqAk @r::@:ƒ@`A@:@kGkGkGqqG9GkGrqGqGqGqHq@;@-:: :: :Aq@:G:: @G:9GkGkGqAqGqAqAqG9A: jA@kGk@@kAjAk@A3@A9@ÜÚ82,8™@@qA@cbqG@:qG@@:@A@:9A@kA@k@@kGkGqGrqrqHkG@;qHqqHƒqD4@:99:@@3 Aq:G::AkAqq@AkGqGkqAqqHkGkG3:3A::@A@A@AjA@k@A@9A3 9A@ÛÛ, ,iAkGqkGkcb“qAkG:k@@k::A3@kƒ:A@9AqG3qGqGqrGƒ:LqGkqHqHq:33 @:93:9A@:A@@jA@3G3A qAqGqAGkGkG3:A:Ak@q:9AjAj@A@@A@:3 9Ak@3@ÚÜy32kGqGkAG:@iAqGk@@;::9:h2@ :@Gq::AqGkGqHqlGqr:?:GkGAqrGq 9 3: 3 9:39AjA@Aq qGqAqqAqAqqGqAqAFk@:k@A@A:@A@A@kA933@A@A@A@@9ÙÛy232q ::ibGk@q::qGkGkA@@9 ci““822@:@Gk:GqrqGqr@@qGqrGqAqqr:@k::@:rGqGkGGkGqGkG@3AkG3:qGkGkHqGkGq@A@9:93 93@@;@AjAAkAk@k@k@::ÙÛ2-2c q::2GqAqG:@@qAGj::8c2ch“ƒ™`2::@kA@kGqHqGqAqGlGqrqrHq:@:A9::GkGrGkGqAqAqqAqAGkA::GkGAqqAqGkG::9 9A:@A3Aj@kGk@@3@G@A@@: @:ÙÚc322cGqGq: kGqGk@;„:hcichi2“i“™™c::G@@qHqqrqHqGƒqMGqGrqG:9@:@9Aq@@AkGqAqAqqAGkGAq:q@9:@kGk@AqA@::3:@A@A@kA@@A::AGjAA9:@j:@@k 9ÙÚi],2cqGkGkGkGkGAq:98“i22b3b9“˜™“™b:GjrAAqGrGqqHkHqHqHqA@qqHqqr qAqGk@qGqAqAqAqAkGjGA: qA@@AqAqA@3 :@AkAƒ@::93@:FkA@k@A@ 3A@3:ÚÚm23i qGqAAqAqq@:@:2i’ii“™2cb™“™™“ibGkGqAkqGrG3qGrqqrqAqGqGqHq: qGkGqAqAqrGkGqA@qAAkGqqr@A@Ak@Gq:9A:9@A3@k@A@ƒ:kA@A@ƒ:@49AA9:ÙÚZ]2chqAkGkGqGrAA@3 2ibihi2cc2“™“hi“qGqqAGqq rGqrGGqGqGkArqqG: kGqGkGqGqAqGkGkA@kGkGqG::ƒ@A@-::A@3::@GkAjAƒ@:A@k@@:9::9 394ÚÙ[3“c8cGqGqAqAqGqkG:@:c““™2232G 8“™““::@qGqrrGqqrGqqlGr qqGqGrq::jGkGkGAqArGkGqAqG@:qGqHqAq„: @j :@9AqAGk@@;@9:@@Aƒ: @:AÝØ%\c98:qArA@qAqkGqAj@ch“™bi“b2GkqGqGbƒ@8rGrqHqq;@AqrGqqq:HqArGqA@A::A@A9kGqAqGkGqkG@:@:qkAAjA93„@::@AGkA@kFk@@:A@@;„9 39:93ÜØ\]9]b2:@qG:@kGqGqGkGk@@c8“i“i23“AGkqq::G:AqrqrG@@AqGqArHqGqrqqGr@@k@Gk@3AqAkGkGqqGqA@:@9:@qƒA k@A@3AA99ApA@A@::@jA:24 : 3 :Þ×h32]8:AA@:kGkGkGkG:AAqGAb22™“22i2GkGA:GjA@qGGq@rqrGrqrG::qrGrGrqGrA@A@c:3AAFqAqqArGAjAqqA@qGqGq9 k@k 99ƒ: k@3 3 3 :9 @::@@@ Ý×U2]2“A2:3@:9:@@Aq:Aj@Aqkic™“892““ 9AkG:A@kGkGqHqGrqGqGrq::GqrqGrqAkGj@]AkAqGArGqq49ƒAqAqAƒq9:9ƒAkA@Aq@Gk: : 39 k9:: 3 949ÝÖ23b32 9A@:@:@:: :@AA9ƒifbcccb2ocikG@jqrqrq:rqGrqGrqqGqG:qGA:qAGqqAA@A9:39 qkGqqA:A@q@AqAqAHqA ::pA:@AkG@:qA9 3 9:@: 3@ @3: ÞÕ ,,223:A@A3ƒ:5@qqAqAq9:“hc“Žc983hcbqqrAGqHqHqGqqHqrGqHqrqGrq:@AqqHƒq#rq9A9 :qGkGkGkqAk@qGAqAq3:9@A@@:@ƒ:@A@9@ƒ: ::@3@@9A::@ÝÕ2-, ƒ:y9: ::@AqAAqA:hc]”“Ž82““hqGAGkGrqrwGrHqrqGr::@:@qA@A:AqGqrAAqGq :kAqGkGkGkGqGqAGkA@kGA:@:kA@39:9::9:A@:@@ :A3 @::@9 ÝÔr3,2 3:@ 3  3Gq qAq@q™,”3c3,”bc™:9 :@kGqqHqGrqrqNqrq@:@: ::A9qAAqGqqA@rq:@Aq AqAGkGkGkGkGkGkGq@@@3@@3GA 3::@ƒ: 3:99@::9Aƒ:ÜÓ222 3ƒ:y@q@@kA9b:99b3”c”:@:9::@qqrqGrqGrqrMrqrGq@A:qAqqGkG]2rqGqAqG9@:99A@kGkGqAqGkG@k@qAAkA:@A93Ak2A ::@3A9A:: 33@::@ÞÑ2332ƒ:^ qAqAk:3::chc@c8c @3:@:@:A9rqrHqGrqGrqrMrqrGrqG3AjAAqAAqAq2GrGrqGr:@:AAj @qGkGqA@@kqGA3GkGqqƒ:k: @j:G@3A@@9  :: àÒcc2 3: qAGkG 3AG9ƒ:c9A:Ak@9@GrqrGqGrGqrqGrqxGrqrGq@Aqr9@Aq@GjAqGc]@rGrqq@:3@A: kGqAqGqAGkA3:@qAqA:@A 9G@::9 3@k AjA:èÐq2c]322 33 jAqAqA2q@qA@A@GAAjGq:ArqGrGqGrqGkGxqHqrqNqxr@@AA@:@AkG9A:@A3c3 @kGrGA@: 9@@qGkGkAqqA@q9:@@GqA@Gj:kA39ƒ:@A@3::@éÑ!]32qG 9A@kG3 AqH@:Aq:q@kGqGqGqHƒq>GkGkGqqGrqHwrqrGr@:9Aq A@AkG39 jA32- @kGqAjr9::3:AqGkGqAkAAG@ƒ:@:kAA@ ::9  9:3:9::éÐ$2329: 33A@3 3@Gqr9qqG:GqGqqBqGkrqHƒrSqrGArqr@:qGrwr@ Ak@:@jAj@q 3 Aj 93c3@AqA@AqH:9:GqAqGqG3jAqAA3 @@Ap :j@@A::9A ::êÑ3ƒ2#k :@A@9Aq:Aq:AGkG:qA9BqGqkGrGqqMrMƒqrMr@: qHqG3ApA@ƒ:> 3 3 9 qAGk G@kGqA@rqG: :G::@A::A@@3Ap@@:@k 9@:A@k@A3cc]32éÐNc]83 39:G3:A@rq:GqAqGqAqG3qGkHqrwrGrqGr::@Hq 3G:qqHqGqAA@@99 :3:qAqGk@@k@Aƒq*GrqqGqq ::@k9AkA3 k:9qA94@:A9A@::33]c2]éÐ*23b399: @A@@q@qAqGkqGkGqAqGqrGrqrGqqG:Gƒq GqA3::Gqk:ƒ@):43A@AAqAGqAqG:9@q AqAqHqrG:3@q: @A@qqƒAkGA@3 99::9: @c\c32]c,32,2äÏy,322q9G:3@k@:Ak@kGqqHAqGkGqArqGrqNqqHq qArGAkAq@::9::@:A: 3:399AqAqA3qGqHk9:A@AqAqq3GqG3Gk@AAq@qA39 A3 3:@@ @3,]c 3c33]3,3ãÏ6,3G3kG :A:@qA@GkHAjAqqGkAqGrxqGqGrq@:@qA@Aq:::ƒ:693 2GkGqHAkGqAjAGkGqqG::Gk@A@qG4 qGk kG@kAqAA9Ak qAƒ:@,]23]c]c]232c3,âÏ&,32,q 39:@j@:Gk@qGkGkGkAqGrAqGqGqAq:ƒ@;qr@kG3A@:9:ƒ@':AqGrqGqAp@3qA@qqHqA@:@qAqGqAqAkA@3G::ƒ@:9 qAqAq@q@@A9AAc32]c]ƒc]c]c23,…,„2ÕÏ-:9ƒ:y9A:A:qAq::qA@qAAqAqqAqArqG;@A@;qqGA@qA@k9HqkGq:3Aq@kGrqqA3 9::qAqHkr :@:AqqAqq:GqAqA@:39AqAqAqAqAqA@AAjAAjc33]cc]3223cc,2 \c,2ÚÐm322: :@ :@:@kFkGA@@Aq@AjGkGqGAqrqHq:AjqqGqr@kA:@AAqGqA@ 39AGAqG qAqGAAq@:A:@:qqAqGq:G::@GkG:@q@AAqAqA@@:GjGqƒ:9:G3 cc2c]b332cc,323222ÙÏ 223 9:9ƒ:@qGq@:AqA@kGAqqrrqrqNqrq:GAGAqƒA_@q::@@kGk@3AGqqkA@k:GkAkGj9:@A@@AqGqk@::@Aj@AkqA@@AkGq@qqA@AkGAqA@: 3cc]]c3c]c]]3932cc,32,3ÙÎ+223@@3 @A@AqGA:@Aq@@kAqqGrMrwHqrqHwqG93: ƒ@:ƒ@A:A@kGAkGkGA3:A@k@Gk@@AqqAqqkG:@k3::9::@AqA9:Gqk@k@qGkGAqk@:@@:qƒ:cc]cc2]c]3b32]c]c]3]23ÚÍF],22 : 3@AjGq:@Akq:A@AqqH@rqHqrwHwrGr3::@94@::9::@@:@:qGkG3qGqqGAkA@ƒqDHqGqGqAqG:@ ::G::Aj@:q:kGqAqG:qAqqGAAqA@qG:F:932,33c3cc32c]23232323ÚÍy2  3@:@A3@:A@k@@A@qqHqAkGqqGArqrqGrqHqGrqAqqH::@:@A:@:9rGrqGqq3GkGAqGrqArG3:A@k@A39:G@kGA9 AGqGkGqA:GqAkAjGqqAqA@kA: 332c223,23232-2323ÛÍ2,-33 ::@A@@:@kG:@A@qlGkG@qrrGrqGqGrqrMrqrGqGkGqAƒqVAk@A@@AqqHqA:Aq@qGkGrq rqGq3AAjA :::@3 qk@AAqAqqGkGA9GqkGqGqqA@::@2cc]c]32-233,323ÜÍj2-, 9@::9A:qA@k@@kAqGk@AjrGqrGqGkGqGGrqHqrqGqAqqAAq @AjA@AqAqG4GqqGkGqA@qAqqGrA@k@ApA@qA@:qAqAjA:GA::Ajƒ:GqAqlGkA@@:@33]cc,2323c]c]3ÝÌ:,322 3 ::3:9:qA@A:qAkqGkGAqGrxGqGqqGkGkqGAqqGr 9GkHpqrqqHƒqE:GqqGqrGrqGA@A:qGAq:@::9:Aq@:@A9:: GkG9k99:9 @::AAqGkkA@::9c]232-ƒ]„c]ÞËr2,2 39: 9:@AA@@kAGkGGqAq@qqGrqGkrHrqrGrqAqAqqrGkGqGrqHqGqrGqH3GAkGqrGrkqAjA@qG::@:@@ 3A@@k:@@qAq:4 @A@k@qG93ƒAq@@:9:A9323,39ƒc]c,2ßËg,3,3 3:A@Aj@@:AqAqqAqGkqHrqrqrHwqrGrqGqqGAGAqAAkAqrMqrqHqGk:9:qGqrGqGAAqGqrA::@: 3@ 3AqAq:@3A@kG93:ƒ@A3 33::9@k@Ak::3332c3c]cc232ˆ,3cÕËFc22 3 3:@A@@A@kAq@qGqAqAGrqGrGrwqrHwrGqrGqkqqGqAjG@qGqHqGkA3rGqHqkGqrƒq rqrGq@@3:@: ƒ:0q@AA@@A@k:9 9:@;3GkGkGqAG9@qA@9:@42c3]c]c]2]cáËM3232 3@@k@3AkGkqrGkGqGqqrGqqrGGrqqHqrGqGrHqHqqrGqGAqkqHjGqGrqGqHqHqH::GAqGr„:8::@::@9 kAj 3Ak@@:@ qqAqqGkGqGkGkkA@kA9::Gc]cc]cc3]c]àË2-223::ƒA@kGA:GqGkGkAqrGkGrGƒq0HqrGqGrqrqqGrqHqrGkqAGkAAqrGqHqrqqGq:9@@qGq::@3ƒ:4@::@: @ qAF393qAAqGAkGqqrGqAqG@@A@: qA]c]c]cc2c3áÊ=2,2 3 9:@3@@Aqq@@AAqGqqGkGqGkGrGrqNqrqrqHqNrqrqrGqqGkGqAq@AAƒqIGqHqA9rGrqHq 9:@::@@ 39:9:A@k93GAGqG3@AqAAGAkGqAkA@k:@:Aq3cc3b]c323áÊn, 23: 3:A@Aj:@@AAjAjGkGAkGrGqGqrqHqrqHqNqrwrqNqHwrqHqGkGkGrqqAGrqrGqrGqqGqkA9 3@:@:@@3 ::@:::@kG3A@qkAqG4@9ƒqAkGkGjA@q@:@:c]c]cc,32âÊ-223 :@:@AqA@k@AqGqGkqGkGqk rGqxrMrqrqxGrGrƒq HqrqrGqqHqwHƒqGGkG@qrHqrG3::9@: ƒ: ƒ:@ƒ:* 2: @kA@A@:k:9AA@AqAF:AkGA@: @:cc]23232ãÈ 232 : ƒ@yA:@k@rqAqAqAqHqArqrqrGrqrwGxGrqrwrHqrqGrGqrGrqrqqHqHqAA@;AqGqG 399 A:@3:@:9@:@ 39 9 3@A3kG@Aq:: k@AjGqAk9@qqA:3@:cc232-2-ãÉM,, 339@:Aj@@A@rGAjGqArGqrqGGqGrwrMrrqrrwHqHqxqNqrGxqGrqHqHqqGqqA@d@AjG33ƒ: @:@3:@@ „:)@::9 3: 3FAkAq3Gkqq@qAqAq @AAj::@: ,32c3åÈS322, :@@:A:jkAqqAAqrGqrqGqqArqHqrqGqGrGrwrwrGrqHqqrGrqrwrqHqrGqrqrqqH39 93:@9 3ƒ:@ƒ: @@†:%9 2 kGjGA:@AqHq 3A@G3:q@@:@9:3]c]23äÈy]22 :39 k@AkGG@qAprGqqGqHqHqqGqrGxqHqrGwqGrGrwrqxqHqrGqHqGrGqGrqHqNqH99: : 3:@:@:@ :@@::@:@:@:9: 3 3A@A9@A9AqAq kG3 :G:AA@::ƒc23åÉN2-399::@@AkkAAqGqrGkrGqrqrHqGqrGqqGrqHqGrrwHqHqHqxqrGqrqwrGqrGrqrq  3:9:9„: @::33:@::@::9ƒ:" 39 9:@k:qGkGkGqGq@A@k@kG:3@3 ]2-2åÉ22 33ƒ::@k@G@qqAqHqAGqrGrwHwrqGqGrGrqxqHqrqrqqrqqxGrqxGrGrGrqGqqHqƒ:@ :@@ ::ƒ@33 :@:@:@3:@ ::@:@:93 3: G3A@qGqAqAq@:A3kGq : 3232æÈy2-2, 3:::@@A@k@rGkAqqGrqrGqrqrGqAqArqxHqrqrGxGrMrGrGrqHqrqrGrqrrGrq@39::@::@ :@:@39:@::@: ::@: :9:3: ::3@Aq:AA@:9AAj ::9Ak@A9: cèÈX323 9 94@9A@kAAqGqAqGkrGqqGrGqGrrGrwrqxrMrqrqrqrGqqrwHqGqNqxqNqqxG@::@:@: 3::@3:@A::@:@ƒ:) @:2:@ @ @9:@3 39@A@kGkqA94AqG::@@A@k3 3èÉy22 :3::@::Aq@AqGkGqrGqrNqrqxrGkqGrqHqHqrGqNqNrwrHqHqqrqrqHqrqHqr@:@ ::@@: 9::@::@ :@A9:@3:@: ::@k :9 3@ 9@@AqAqG3k:G@ :@A@kA9 :èÈN322 9:@A:qAk@qAqqHqAqqrGrGrGqGqGrqrwrxqGrrxqrGxqxqrMrGxqrGxqrM::@:@ :@:@3 9ƒ:@:@3:@ƒ:@: @:@:3@3@:: 2: 3 A@:@qAqA:G:@ƒ:@:@A93 3èÉd22 :3@3:@@AjGAqGAqqGqHqrqxqxqrGkGqHwHqNrqqxGrwrrqHwrqrqGrqrGrq:@::@:@::@:@:@@::@:@3@:@9: 2@:@: @ @ƒ: 333@A@AkGqAq:@:@A@jA@3ƒ èÈ 2-22 : : Aƒ@7A@kGqAAqAqqHwGqHqHqqHqrqrxrqrGrqrwHwHwrqHxGrqHwrwH@:@:@„:=@:@:@:@ 3:@::@:9 @:@3::@93::93 9:@3 3:@qA@k@@::q:@Ak 339 çÈU23 9:9:@::kAk@qqAqGkAxqrGrqqGqGrGqHqqNqxqNrMrrqrGrqrqxqNqrG:@:@:@:@:@ ::@:@: 3 @::@…:@ :: :@:A39@: ƒ: @@A39:9 qAGkA„@A@A 9:çÇ, ,23: ƒ:Z@@:@GAAqGkqAGqHqqHqHqrqqGrqHwrrAqrqrwrxqrMrMrGrqrw:@:@::@::@@:3 9::@::: 9:::@::3@:@@:3:@„:9@9::@:@A@3@33G@@kA::@k@399çÈ<“ 22: 9@::A@@k@kAqHqqAkqHqqrqGqHqAqqrrwrwHwrNrGrMrqrqrwrGrƒ:F@:@:@::@:@ 9::@::9:@3@9@ :@ :::@ 9:@:@4 ::@A@:@ @ 3 :@Aj:9A@k 3 3 çÈI3,2 3 9@:@@d@Aq@G@kGqAGqq@HqxrGqqrGrMrGxrqxqrwrxqrxGxrGrw:@:@:@:@::@:A:@ƒ:@ƒ:9@:9: ::3:@@@3:@:@ „: 9„:@A@3A@939:A::@AA33@:çÇ:,22, 3;@:qAAjAqkA@qHjAqH@qGGqrGqGqrqxrqNrrMrrMrrMrrqxqxƒ:@:@@::@:@:@::@9::@@…: @: 3@@:3:: ƒ:@@3 @9@ƒ:9:@@:A:@…: 9::@k@9 :çÈM332 39:9@:AqA@A@qAAqG@qrqqrqAqGrqHqGrqNqrwrrwrqxqrqxGrN::@9:@:A:@:@:@@:@:: 9„: @: ::9::@ƒ:'@:9 3@3-: @:9::Aj@:@A 9@:33@A@3 :9:çÈ8232 3:: @:A@qqAAqq@qk:@GqHqGqArqHqAqrxqGqHwrGxHqGrMrx:@ƒ:&@::@:@:@::@;@:99::@:@ :@ 9:@@ @@ @:: @ƒ: @9 93ƒ:ƒ@A@:Aj3 :A: 9A@k9: 3çÇ23ƒ2N ::94@jA@qGkGAqHGkGrAqGkrAxqrqrGqHrr@rqxrqxrGrrq@@:@:@::@:@:@:@:@:@:::@:@:9@ƒ: 9 :3::@3:9@:@…: 9 :@:@;jA:@: @39:9 3AA@ 3AçÉy323 ::@ @:A@AqAqAqkGqqGqArqHjGrGqGrqxqxGrrGxrGxkwr :@:@:@::@::@A::@:@:@:9::@ 3:@::@:@@::@:@::@:@:@3 3 9 3@A@::99:4 :3k9 3çÈ82322 9::@:@:@kAqGk qGqAkG:qxqAqrwrA@rxGr@qxqrwrqG@: @:@…: @:@:@:@::@ƒ: 9:@:@::@: 9ƒ:-@:@:@::@:@3: :@: 39 39 @j:@ 4 :9 9 339 ::çÉI, 22 9 :@::@:qAAqG3GkGrqr@rGrxGrHqrG@rqq:rGxHqxH:@@3::@@:@@::@::@:@:@:@:@ƒ:@ƒ:2 :: @:: @:@::@ 3@ @9 :9 : 3 :3@:@3:9@:9 3 3 :39 èÉX232233:@@A:@:@kGqqGqGqHq@qrGqGqqxqA@rxGGqxqxrw@::@3@::@:@:@::@:@:@:@::9:@@::@::@:@:39@ƒ:@ :@ƒ:" ::3: :93 3@: @:@::@93 3: :33çÊK323 :@3A@j:@:@AkAqAkGqqHqHqrqAqHqx@kGqqAqHqrG@::@3:@:@::@:@:@::@:@:@3:@:@…:3@:@: ::@3 :@3::@:3:3@3 9 3 @@49A:@@3 9 3 393@ çÈ'c,322 9: :@A@k@A@@qGqAqAAqqAGqxGkGqHrGqƒr GqG@:@:@:9ƒ:@:@::@:@:@@:@:A3@ƒ::A:@:@:@ @:@:@:@:3@3:9 :@: @:3:3 :3@@3 33 3: 3  34:çÊ 2 99: @AA@:j@AqGkAkGqHqqArqGk„q HwHqr@::@ƒ:$@ :@::@:@:@::@::A:@:@:@:@@:@::@ ::@@ƒ:*@ 3@:@: 3 @:3: 3:3:@: AA3 3 9 3 9 39éÊ3,22ƒ:>9:@jGA@AAqAqGkGkqrAqGqqHqHqHqrqx:::@:@@:9::@:@:@::@:@:@@:@@;9ƒ::@::@@:@3:@::@:@ ::@ @@ 3:9 : @@ 9 3@j@@39 4 933 :3 çË&22 93A3@kAk:@AjAqAGAqGwAqHqrGrqqrMr…:.@@;@: :@::@:@:@:@::@:@::9:@:@:@::@:@ @:@:@::@ƒ:%@::9 3:@@3 39: 93A@A: 3:3 q :93 @3èË,32 399A@3A@@q:@ƒA>qq@qGrqAqG:qqHq:3@:@:@::@:@:@:@:@:@:@:@:@:@:@::@:@3 9:@3::@ƒ:-@::3@ :@@3 @: :: 3:A 3:: 3:9@: 3@3 3 3çÌ/32 3 9AA:@A@kG@k@jGqAAqA@qGrqHqr@3: @3::@::@ƒ:@:@:@:@:@:@::@3:@:@:@ƒ:@ƒ:@:@@:@::@:@3::A: ƒ:3 3@:3@ 39@:: :3:3 3„::3èÌ1,22 3 :9A9q3AGkGqGAkGqAqq::qGqrG:93@@494@::@::@ƒ:"@:@:@:A:@:@3 ::@::@:@::@@::@:@::@@ƒ: @ƒ:93:@: @::3 9 ;@3:@3 9 9 † çÌk-23::9:GA9kGkAqqAqGqGAAqrGr99::3 @; 9:@:@:9 @:@:@:@:@:@:@:@::@:@::@:@:@::9:@:@::@3@ 3:@39: @:@@3:9:: @ƒ3 @@3@@:394…9èÍ32, 9::kG:@AqGkGqAk:ƒqHqA9:39@A93:9@@„:93::@:@::@:@:33::@:@:@@ :@:@ƒ:*@:@ 3:@3:@9 @: 9::@ ::@@:::@3 :@ @:@4 9† èÍ22 …:9:@:A@qAqA@:GkH3@3:: 9„: ::@43@::@@:@A:@;@3„:@: -@:@:: :@: :@: :@„: @: @:3@::@ƒ:3@ :939A:A9 9 …3èÎ<329:@9::@Aj:AqAqqA:G39:39@: :9:9 ::939::@:@:@:@:@3@::ƒ@ :@@:@::@@:39„:@:@ ::@9:@9:@3::@:@:@A† 9: :9@@9 2ðÎ,- @„: @AG9A@rGq 3 9::3 @9@3: 9 9::@„:@3::3:9ƒ:@:@::@ƒ:9ƒ:@:@:@:@ƒ:39ƒ: @@49: @9:@::‡ 9 3@A3:A 3ðÏ-2339@:::@j::@A3@A@39:9:: 49 :9:9 9 :@@9ƒ:03:34::@::@:@ :@::@::@:: :@:@::@ ::@:@:@::@‰ :3AAèÐ - :9@93ƒAP:k k9:A@A@:93@: 9 9::@9:@3@:@@:@:@:@:@:@:@::@:@:@ ::@ 2:@:@::@: 93@::@:@A@‹3AøÏ\2]2:;@: 993G:9A9A9A@4 : 9: :4@::@:9:@::@:@:@:@:A:@ :99::@: :@:@::@: :@ ::@: ::@::  èÐ-2, 33 9 :9:393:993 A3 4:@:3A33:@„:@;@:A:@@:3 94::@ƒ: @:@:@:: @„: @:: 33:@ø’ÓV29 3 93 33:::3: 9 49:@:39A@9::@@: 33@9 9@:@:@:@@:3@:@@:@: 9:@:@::9A:@:@@::2@:@::ø“Ó53 9 : 39 @3333  9A33@A:: 39:9@@;9: :3::93:3„:@:@: 9ƒ:@ƒ:@:@:93::@@::@@ø•Ò7,2 3 34 3 3 A@: 3A9 @:9 :93:3@: 9 @A:@:933 9 9„:@ :@:ƒ@:9„:9ƒ:@: 3:@:ø–Ô2-- 3 9: 9 jAA@3:99@A9 3;9: 4@9 3:9@A:@ƒ:@:: ::@:@: 9@9ƒ:3:@:ø—Ô@, 93 33 3 :@3 @@ 9: 9A3:@A2 93A@::39 9:@:@ 3@ 3 299::@ @†: 9 3:@ :@:@ø˜Ö'22 3 3339: 9 j4 9 k@j933@49@@3ƒ: @@:: :@:@::@…:9ƒ: :93:@: ::@:ø™×233 3 33: 3:3: j AA3 A@ 93@A:9:93:3A9:@:@Aƒ: 9: ƒ:@@::9::@43::øšÙH 3 9 : 9  9@ @:9:99A9 3:@@3::@@::@ 3@@::@@: 3@:@:9::9: ::9 @:@ø›Ø+2 39 339 A:j@k9@ 3::@3:@@:9:@4@3@ƒ:@:9A@k@:A:@: :9::@„:@:øœÙF,33 9 33 :3 jAA@::  @A9 @93:@-9:9:4@::3:9A:@3 33:::@: @:@øÛ# 3 3 9: 99 @:3@39A9kA3@Aj39A@@„: 9 @:9::9 9:@„:@ 3ƒ: @:@::øÙE2,3 3 93 ::k:9:9::@@ 9A@3:4@A9:3:93::3:3@:9:@ : 9: 9:9:9øžÛB2  3 99@39:: @A 9: 9::A9 @k3@:@3@:3@:::9 :9: :99 3@33 3:9øŸÜ!,2 2 33 94 Ak3@3 : 9:3:9A@ƒ:9:39: :33:94@9:9 39 ƒ@ø ß7 ,3 3 3933FA9A:9@Aj : 3@;@9:@ @:9 :99::::9 :@ ::@…:ø¡Ý42  333 3@::9::@:93@@::33 99 :9::9: :3ƒ:9: 9:9:ø¡ß2-3 3 33 :9:@A@3„: 3:3::@9 :93 33 :3:@ 9 3 9:@@ø¢à9  9 3 9 @kkA3:99::@A::9::9::9 3: 99:A @@:93@ø£à9,2 3 3 33 : @: @9@A :A9::::94 :9393:99::9: 9:ø£â633 9 3 93::3 9:9k@9:@@k:3:9:3:9: 9: 399 9@4 :9:@ø¤â", 2 9 9 9: 39: A@:3:9A@3::49„:9:@3„:9:9 :ø¥â2ƒ 3 3 3 9ƒ A@9;@ƒ:99:99:9 9 39 39::9 3 9:ø¤ã-22 3 3@ 3:3A3:3 ƒ:@::9: :9 39: 3:9 :9: 3@ø¥ä2,23 3 3 9 33:AA9 9::9:9:9 :9399:9:: 3 3:ø¦æ1,22 3 393 3::@::9@A:9::9 3:3:9::9:33 9ø¥è22 2 3 39 : @:9::A@k :3†:9:9 :3 : 9:3 : ø¢è, 3ƒ 3 9 ƒ :@@9 ƒ:99:9::@3: 3@: 3 3 3@ø¡é,2 33 3 3 @:::@AAj:9:9:ƒ:9: 3:9 33:93: ø¡ë12233 339A3@9:A9::9:@:333 3: : 933 3 ø ì23 9 9: 9 9A@A9: 9…:9: 3A93 39: 34:3ø¡ë2,2 3 9: 33 3 9 3 9 3:: 9 3:99 3:99 ::øŸï%2 3:9 339 :@A:A::9 33 :3 :9 ƒ:3  ø í,, 2, 9:: 3 3 @j@: :9:93:93@ 94:3ø£ï),2  :9 939:@@39:3: :: 3:::: 3 ø¤ñ3 2 9 3 4::@ :: 9 3:9ø­ò3,3 3 :9::3:@:@@399ø°ïc],2† 499:93 33 ø°î223323c223 9 :9:9:9@343ø°í c-3322332ƒ 93„ : 3  3ø®îc22-,32c2ƒ3 33 99 :9ƒ ø¬ñ c3]c]], ,,22 33 :3 3::3 ø«ó233c3c]332 9 3 :39 :9 9øªôc223c]c2332232388 3 ø¬ó32c-2cc]c32,3, \223b9bø¯ô]c,2cc-,22323c]c22ø®÷33… ,32c,c2cc3ø°÷23]3]†2„3]3,c]ø¯÷32]c‹,9ƒcø¯øccøÁøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø¨,232,ø•ø¦ ,3322]3232ø“ø¥ 232c]3c23323ø’ø¤323]c3c]3c]232,øøˆ2™]23\9]c]2c]c]@A- øø‰2’3\32,23c]3c\cA@@@@:A@@ øŽð232Žd,23„]c„22,3]9,32c]232::G3 A:AjG9:øŒï28]c”]223cc2ƒ3]82 33c]3c3c]@9AjGkG3 kAƒ@øŒë ,232cci232Œ'c32::9:qA,@j]3AA9232]]bc:AA@Ak:Gƒ@kA:3:øŠë38““ƒ23]]3‹33]2c@AAqG::A@A@ƒ@k@A3]3@@AjA:@@kA@::A@@3ø‰é238]™ciibbh]3ˆ]23c] @kA93A3@@A:ƒq:@kGAkA9 :@A@AqA:@@k@k@@9ø‰é33]88“282“8“9c\3‰2]]29 k@@:AqAqAqqGAq:AqAp 9::qqAk9:@:@99A@A@@A øˆéL2,c2i2c8“2cbi2c23c],329 A@A@@9:@AqAqqGq::@AkkA@::GkGA@k@A9AAk@qA@kA@:9ø‡é32]““82Ž™2iib„c:]22233: 93q3AG@@kGAqAqG::qAGkA@::Gk@A@@k@:jAA@kA@@j::ø‡èO2, ,c“™““i2cbibcc]c3,332]2 jG: @AkAqAqAqAqA3G,:qA@q@A@@ 9@-A@A::@k@GjqA@@::ø…è,3“™’™“™ccbiic]3]23232]9@ƒ:'k@@qA@:AqAqGqGkG:::A@qAk@-Gk@Gk@A9G@kƒAkA: 93ø…èO,28c“™™““hcbicc]c232-23]3:9 AqAA@AjAqAq::AkGkAq9:@kA@A@@qAk@Gk@qA9 @@jG@A9 ø…è ,ibi“™™hƒibƒc+]3232339::@:@q9:kGkGq:9:@AqG@A:@k9::@A9ƒ@Ak9 kGk@AAjAk: ø„çR23™™“™“˜““ib“h“b9c]323\ @ 3@@3:A@GkFk:GAqGqA3Aq 3AqG 39@ :qq::GAkG3AkG@A::3øƒçB, 2,™“™“™™““hic™“,3“3233q@3:@;@:@:kGqGAjGkGq:GqA:9AqH:9 @A9:AqGƒ: F:Ak@@k@93ø„èR,3,i2™“˜™™“Žibi2232]2k9A ::@q::GqAqGkAGkGqGqAq::Gk ::39Ak:@kGqGq:Ak@Aq@ :AqA@:øçTc2™“i™“™™Ž“cchib9c,3c3:k9Aq9A:9A@AqAq@AqAqkGkGqA9:qq@:@:9:A@kAqG:AjAq@ jA@AjA:øæ ]3bi“hb“™“™d“Žb“cbc2c:3:GAj@ƒ:2Gq:@qGkGqAqAGkGqGkAGGq::@A::9GA@kA@qA@@kAqA@k@AjA:øæS2]29hc8c8™™”cii“ib3@AAkA9: G@@kG::qG:kGkGk@@AkGk@::q 3@@GAjAq@@AjAA@q@kG @9ƒ:øçU3bcbccbci“ic”]cc“h““3]@:9:9AAqkA@:qAqA:GkGkGAkGqAGqGkGA@Aqk@@:@::qAG:qA@AkAjA::øç;c2,i“8ci8bi’“c”cii’i2q:9A@kGA@k@@Aqq:qAq:kGk@@kGk:9AjƒA@A@Ak 9@:@qAkGk@AqAj@:,öçV]c™ibi2“cib9bcccci“i“2AqAA@A3GkGA@AkAG:GqAqGqGkGA@k@@3GqA@qq:@k@Aq:33:Gk@ApAAjAGA@@:÷å72]“b“i“8ibib3“cŽc,™chqAqq@:@:qq@:GqAkGq:AqAqAjA@ƒAqAqqGqq:AkG@ ::G:G:kGqGAjAjA::÷å']“biib““h“i2biic”c,cciAqA@A@k@@::qAƒq*AqGkGqAqAqGkAj9GkG:@:AG3 q@:9:Gk@:@qAkqAGkƒ:÷åY2-cci“b™™““™ci8k9iŽ89’cc“,Ak@Ak A@AqAGq:qA9AqG@@kGqGqGqGk@;:qqGq @AA@A9G:@@9GqG3@@A@:öä=c2chi““™“™h™kA@::c3c8]ib9 22 :9qAjGkqG:AA:@AjAAqGkqHkA@qƒ@::rGrkAq@jAqq;@4GA:kA9:ƒ@öã,32 2““8b™“hih““ƒq*:@c3,qGkG ,::AqA@qA:@A::@q::@A@jAkGqGqAq„:@3A@9Ak@AkGAq@9:@k@AAj:A@õä2-ƒ2i“b9hcic“iqGGc8cc3 :@rGkAq9A@qƒA@:@@qAk@GkG9::@GkGAk@Aƒ:@Ak @3:9G@::qAAq:A@@ApƒAjA9õä(238i“i“bibch“qGqA39kGk:@:@qAAGkG3Apk@@ƒ:Gk33@A@kGqqGA@A@@3 @:ƒ:@:@:33:Gk@kAjGjAA9õã\ 2™“8bi“chch“GqqGkGqGkGAq::G9k3Aq:9432Ak q3 3AkGkGkq:@q:@:9@A2::9:@@::3:AqGkAFA@AjA9õâG,c23iqqA8cbcch:rGAk:AAqqAAq 9k 39:@A@@:c qGqGA@39:qGrAq3Gq3@AkA3…:@:A @@kGAjAkAkG@:2]cðã322“@AqG:@chcGAqqA„@2qG39:9 3@A9A@@AA9 @A@k@@-AA33AqAG9AqA qGq::Gƒ:9A@:q@@kGAFkFAk:]cc]ïâ2,39i@qAƒqA@cAq@Gk@:@:rGƒ:A@A@@ :@jA9:Aƒq6kA@;qGkGqA9Gq@kAqA@3Gq::@@A@A@G:@@3@AkG3AjAqA@@:9]9ccïãa3229kG™cGqA@A’cGqGq:@qAjA:Ajq@A-:@kAq4GkGqGAqApAqAqAq@:Aq AqAkGkA@:@A@qqAjA3:A:@:@GkGAq@49:Ac2-ðâbc33bAAq:“2qGk:9cqAqAqAA@Ak9A:GAkqk@A@A9AqGkGAAkGkGkG:@@3 jG:GkG@A@AjAkGkG9:Gk@qA::GkGkGkAA::23cðâ]283bqGq:qAAG:9cGqrA@kƒ@:9A9AGƒ: @kA9GkqGk…q1AqAqGqqAA@::qA9Gk@@3:9@AAqG@:@:@A@:qAq@qGq@A@3]2ðá ]2c2irqG4kƒqSG:@AqGk@:@A:9i™“93:@:Gq@:qGqqGAqBGqAG@AkGkqqGq:k:9@A@3@4AqqGkA@k@q::@qAqAkAq@9,9ñá)32c3GkGqGqAGkGAk@::GA@:kc’2™“8i:@A@qƒAqqGqqAjqqA:qGGkGkG3AA„: :9:GqqGk@:Aq@@AqGqAqAG@qA3@AjAïàD\c,3h qGqAkGkGq:A@:@:@“]8“2cci2i““i::G@kA@@qHqrAqGr@ :@AkGqHqGq@@A„:3 :Hq@A@AA:qAq:@AqGkAqGqA:3ïßF3cic8rqAqAGkGqrG:@3“29b8“cch2“i22bcc@kAGk@AqqGqGkG::qGkGqAAqkGk 3:9ƒ:@:39@AjAjAGk@A:qAqGk@kGA@ ïÞd]c]bcb:GqGqAqGqAqqA@:™ib238c829’™b922c@@:kGqqAqBqGrqGAqGqqGqqGrqGA@::9:9A@::93 qG@@Aj:AqGkG@qAkƒ@3 êÝo323b92@@:qA:AqAkAqGAk:@ ’ic““™cb“™“™22Ž@:@qGqHkAqqGkGqqAqAqkHqrG::39 @9:: 3A@:G::9Aqk2@::@@Aq@kGkA@k9:3::èÜq,2]b2:AA ::@AqGqGqqAqA:2cih“h™biG“™“™32cc:cqqAqGqAqGr kGrrGqGrqAk9:3 @:3 33@A:q:@AqAq:c@A@qqGAkAG@kA@ ::9:@:çÜr2 292933::9A@kAqAAqApAih“i“i“2cqG™™“hc“c::A@rqGrqqGqGqrGqAqAA@GGqq::rqGqA3@@:@AqAAqAj qkGkqAGqk@G@:939@:A@::æÛ 2-222:3@A@ƒ:93@:AqAƒ@\qqA“bi2822Gkq“ib8“A:A@qrGrqrGrkGrqGkGqGqAqqkGAq k@A@qGAGkGA@:AjGqGqAAqGGqAjAGkAk@3A:@@:A@9:åÙw2]2393:@:A9:@AqG39A@;GAk™““™2™3qAGqqi:@qG@A@kGqHq@:@AkHqGkqrGqAqGqqG3A9@AqAkAqAqk@q AqkGqAqkGAqGk@AqG@k@@:@k@AA:äØ232233ƒ::9:A3 ::GkAGk@93ƒ2Yh““83’2AkGkc@A@@j:AAjAq@:rGqqGkqGGkqGqAqAq4 AqAqAqGk@qAqGqq3GAqAqAqAkqGkGk@q9A@::@@3 jA ƒ@á×2cŽƒ2v 9::@@A@@:@A@:q@Aq:3iic™“8838i29:Gqqq:A:rqqGAqGrGqGqGkHqrGkGrAqH@::FkGk@AqAGkGAkGAAkGkG9AqGGkGqA@ @@3@A@A3A:@:Ak::áÖ8c322 3:9 @rkGkA:33:9AkGA“iib™“ib9\8“ccbAAGrAqGqGrqqGƒq rGkGqq:GqGƒqGkAG@@kAGkGkGk@k@AkGk@A@ƒ:AkAqGkGk:@A ::ƒ@ ::@3A@:: @ÞÖ 33]233 3AjAGkGqq @@ 3 39G,2ƒc%3:: 39: 33:9AAkqrGqGrGqHqqHkGr@:AqBqHƒq-::AAq@A@qGqAGk@@kGApk@9:FA@qGkGkG:@jA9:@kAk@Aƒ@A@ 9A@ÝÕ\2]2c k3 9AAqkG@ qqAq:@A@::@ AG:9:@@:@:3:@Gq:GqGrqGrGkrGrGqqGqGr:qr@AqGAqA:@:q 9AqkGkG@qAƒ@AqGƒ:@A:kGkGk9 A@::@A@9@:Aj;jAj 94@ÜÓ2]c2]cb @:3@AjAq 3 kqrr@AApqGq@AqkqrGqHqGqHkGqGrqHƒq:GqrqrqGrqqHq:qAqrGqr9GqAkG@:: 3qGkGAkGkAqA:kGqkH@::jAGkG@ ƒ: 9A:9AjA@:ƒ@A@A@@3 ÛÓy2]9,2 A9:@AA@9 qq@Aq@:qGqHkGqqHqGqAqrqrAqGrqGrqGqHqGqGrxqrGqAqA@AGqAA@:kqqGqq@:qAkA@qGkGqAp:@kGqq@9:A@qG@3:99:3 3@4@A@kA3@A933@@3@ÚÓ_2332c:3:@A3@:GkrH@A9GqAqq:qGrqGqqGrqGqAGqAqGqAqrqHqrqHqqHGqrGq;@3AkApAk:GGrqHqqA@cAGqAkGqGkGAƒ:&GAqAG9Ak:@:3 :@A@:@ 9:@A@AA33 @@AA@ :ÙÓy32329293G@@3@@qA@qG9qGlGqHqArqGqAq:qGrqrrqrqrqGqGqHqqHqrHqqr@qGq::9:A@2AqGqrGA:@99Aq@qGkGj@@GqA:A@k@3::: @@A@@AjA@AjkAp@9:@A:3@A3ØÒWc323,2 qkq: AqAjAqAkGqGkGqrGAqGqrGrHqrGrMrwHqAkGrqr@rqHwqxr@:GkA” 9::9:3323@rqrq@qq k:ƒA(qqGk9AkAj@kA@@ @:@@3@A3:A::@A@::Aq:AA3ƒ@3A::ØÒc,3ƒ2[qA:Gq @kGk@AqAGkqGqrAGqqAqGqGqqrGxqrGqqHqAqrMr:GrqrHq@A:c A9AAGk::@3]2ŽGrGq:Gk c99qqGrA9::Aƒ@:GkqA3@@:9 ::9ƒ@ j@:9:3@@A@A@ƒ:A::9 ×ÓH23,2 G39::@:@k@:@Aq@qHkG@kqGqGrkrqHqrwrGrqHq:@@rqr@@9rGqqr qA@3GkG3qGA@@ƒc53AqrGrq kGGqA3GAkGkA@kGkGq :A@3@::AkAkAA@A:@A@k@@kƒ@:@@ƒ:×Ñm2,3,3:3::9:AA:AAqGkAqqGkqAGqAqGqGqqHqHqrqGr: qGq qA:9rGr @k3Gk@3AqA:c]cc9AGqGq3@3AqAkGAqApAqA@kG@qG4@@ƒ:G9A@G@kAj@::@@Aj„:93@@k 3ØÑ33ƒ2D:::@9 :@:q@@qqGk:AAqAqAAkGqrGrGrqGqGrq qGqqA9AqA:rqGjA9::AkGA@@A@]„c4]c kAqqH:9: AqAqkFkGk@q@A@kA:9A@AAk9 3@kAFk@:@::@A9ƒ: ;@::ØÐy2,2839::9 jAkFAqrG::G@qAG@Aq@qAqGkAqGrqrGqA@@A:r@AqA@9 qGqA@::99@Aj ::@Žc323:9AGkG@;939@qAGkA@GAAk@AAq:@kk9Ak@A::@ @:9A@::3:9ƒ:99 9:ØÏ!]c32,92 3:3AA@@qqH@@:AjGAj:kGkAqƒrqqrqGqrƒ@\A:@qA@kG9@qGkG:@A9:3 9 3@@932-93GqGk@qH9: qGqAGkq:G@k@@:9:@A9:@AGk@k:: 3 @Aj: 9:9:@@4 ÛÏ=23,,39 @:@kA@::@k@qGA@@AqAqqGrGwHqHqrrGrAA@jqqG@@A9::3::9„:G3 @@ 3 kGkGA jGkqqH@rqG3::AqAjGA9kAG3@@3:@A:@AjA@:G@3@::94 9: 3::ÝÏ9232 :@:Ak@@A@@AkAAjAjAkGqrGAjGrqxqNqGrwAq:GArqA@qA@A9ƒ:43 393qk 3@:AAqAqAkqAAq qkqGrq :AqAqAqk:Fk @;AA9:@@…:9A3 3 :3 @@:9:99ÝÎ]3,2 33:@::9:@A@kkGƒ@AkGqqGqA@kAqqGqrqrqGr@k93@A@:kƒ:13GqAq:@:qAGqAq 3GjAGjA3GjA :GqGqHqkGqGkGG:@A2ƒqA:@A3A9:9:9:9:::9A@3:: ::9ÞÍ 32-223 :9„:m@Aqk@A@AjkGkqHkAGkqGxGrGAqHwHqx 3: ::9@@::@GqGAG:: @@qAqGqA@kGkqGqAqAqq:9AAkqGrAq9::9k@:A:@AGkG:3 qA ::Aƒ: 9:3 933 9 :ÞÌ022,23 99 9::G@kG@A@jAGkGGqAGkqGqrqqrGqAqAqrqxGƒqW :3 ::9:AkG::qkAk@qGkGk@@:A@:qGqHA9:AqAAqqG3 9:3A@@:AkGk9@ q9 A2:@:@@ :@A:: : 9:ÞË93c33823 339:AF@A@@::qAkGkqGkqGAqGqHqHqAqGkGqGrqqHqGqAq3ƒ:?@:qqAkGqAGrkGqA3 k9kG::GkqG@:AFkGAkG3kG:::A9@@:@AA:@Aj:3@ƒ: 39A9 @@9: 94ÞË:232]233 ::A@kAjAkqAqAqGqG4GqqAqrrqrGqGkGkGkGAqHqqHqAqqG@…:IAqGkAG3 @:@AkAG@AAqGqkGAjA::qAqqGqGqGqk9Aq ::@AjG,AA3:@3A9 @ @:94@ƒ:ÞË+]232c2 3:@@Aq@:qAA@AqqrGkGqqAAqxGrGqrqrqrGƒq:GAqqHqqAqGqAqGq:9:AkFqk9A:@Aj::@j 9A:9:Gk@:GqGkGqk qA A†@3:@@:9:3 Aj 3@A29:@ @: ÞÉs,, ,2233::@Ak@@3GqqAqr@GkA:qGrqxGqrqxGrGxqrGrGqqAAjGr AqAA@q @A@@:qrqGGqA@k@:GqqHqA9@A:@qGqqGA3GqGA:A2Aj:AkA:k ƒ@: : :@@:A@:3 3:k:@3ÞÊ 3c223 9 9:@Aƒ@n;@AqG@@AAqGkGrqHqAqGrGqqGrqHqqGrAqGkAAqqA@@kqrGq@@::AAqqAq39A@@qGkqrGkG@:A@qH3@:q4GkqAqA@:@AjGkA@q :@;99:@3:93ƒ:@„3 3@:ßÊy3\22 3@:: @:k:@A@AkAjAjGqGkGq qqArqGrGrqGqHqqGqAqGk@G@@eGqHqqArqGq:GqAq GqAAkAGqGqAqAq:qAk9 q::@:GkA@::AqA@3G@kA2 3 9 ƒ:::êÈ92323233:@k@@A@k@k@AAqrGkGqAqqHqGqGrqrqHrqqHqrqrGqGkqAƒ@#kqGqqGqkGqAqAqrGkqGAqAqHqAq 3@A9A93ƒ:@@:3Gj::qAkGqqAq@A@@:: @ ::ìÇy223,23 ::3@@AAjA@kGrqqGqGqAqqAqGrqrqGrMrqqHqqHqHqrGqrGqkAAGqHqHkHqAq3kAqGqGqq@@::A@rqGq::@A99A@A @A9GqG:GjG@AkGAk@A:@@::ðÇy,c]c3 :3::AkAjA@@qGrqGGqGkGqGrGkrG3GrqrqxGrqNqqrqxqGrGqHqAkAqkGq@@ 3GqG:GAkGrAqAq:@qA@rG::9::AkAk@kA:qkq:GkqA@3@@kAjA@@3@ïÈc323239ƒ:+@G@A@@rqAqGqAqkGrqrqrqGGqrqHqNrqrGqrrMrGrqr„qGqGkAGA@;qqrrGƒq3AqqGqAkAqG:q@A@:A:@GkGjA@A93AqGGq:@@GqAqGk@@@k9 2ïÈvc329 :::3@:kAqGkAqAkGrrqrGrGqHqrAqxrwrqNqxrMrqrqGrGGrHqrAkFk@kAj@GqrGkGqGqHqqGqrGqqA@3kA@3::q@:@Aq qApAqkGqAqAqGqAqGƒ:A@@3 îÇ3,3ƒ2y3:::@@AFkAqGAqqGqqGqGrqrGrqqGGAqHqxqGqGrqHwrqGrqqGrqGqGqqGqA@AqGqHqrAqA:4AGqqGk@A9A@@: :@:A@kGkG@A9HqAq:GkAqGAkAq9::A9 ,2êÆy23c,323:9@:@:kAApAk@rHqHqrGrqGrwrGrqrqGrwHqrqrGqrGrGrqHqqGrqGrGrqGrqAqqAqGqG39Gq@kAG4:A3 @k@:Ak@@A3::qqAkA:AqG:kGqAkGqA GAqA@A932-2éÇ2322 …:y@A@ApAAqGqqGqqHqGqrxGrqxrGqrqqHqGqHqqGqrwrqHqrGqGrqqrGrqGqqHAqAkAqrHqGqGq::@@3 ::@k@AA@kG:@: AqG::q3:@A39AqAqjGkG9A3c3232,çÇy233299::@:@A:@AqGkGArGkGqqrrGrqGrGxqHqGGqrrqrHrqHqrMrqwHqrqGqAqqGrqHkq@@A@:GqrqrA39:: 3 @@3 GjA@:93@:A@@q@k@9 :: 3 A9GqAG kG:@:@:]32]ƒ3æÆ2Ž232 :@ƒ: AjAjAqAqAƒqYHqrGrwrqGxqrGqqHqrqrMrwqxqrwHqrGrqqHqrGrGrqGqGqGkA:@@AqGrG33 3::@3 Ak@3A@:qAj:Gq ::9:…@kAqAqAjA::9:323]22æÅH,323233::::@A9A@qAqAqGqrqHqqHwHqrxqrGrwqGrrqrHrGxGrqrwGqHqrGrqrqGrGkGkHƒq9rqqAq9:: 9:: 33  3 k@Gk ::@AAq: 3 ::@ -G9A9 @A9::943ƒc ,-223,2ÞÆi23,22:@::9GkA@kAGkGqrGqHqGrqrqrGrMrqGArqHwHwqxqrqrMrqrGqrGrqGqHqqrGqGqrGrqGrq::@@::@3333 3 9AkG A@:Aƒ:qGq@ƒqAqGk3 jA@:: 3c,233]23],àÅ23232: :@9:@AFkA@qAqqHqGƒqwrwHwGrwrqHqqGkHqrqrNkGqHqrGrqrGqxqHqrqHqGrkqGrqNrq@ :@ 3::3:93: 39 A2kAjA@393kAAqqAAqHqGqGqAA@kG:3:@3]3\323cc22323ÝÄ Ž3233 @„:K@A@qGkGqGqqArHqHqrrqrHwrqrGkGwrwHwrqGrxqxrMrGrqHqGqGrqHqrGrGqGqGAA :: 9:3ƒ:7 9 3 39AAqAj9:AqGkq::@A@kqAqAkGk@@A333232]cc,33]23,ÞÅ23,3299:::@AjAAjGkGkGrƒqpGrxqNqxqrGrqGqrrwrrMrqrMrqxrqqrGqrqrqGqrqxqrqHq:9 993:9:@:@ :: @ 3 :9A@G:3Ak@@Gq:9 @39AAqAqA@q:A@3 2232323ƒ2323ßÅy32322 ::9 :k@GkGA@qGqAGrHqqGrqrGrGqNqGxrGrGrMrrwHxqrNqrNqrwrGqHqrGxGrGqGq4 :943::@ @:@ :: 3 3 3 3A93:@@AqA:q3 3:@@qAA@qA@AjA::9-,332332-àÃy,2323239:9::@AjGkqGkqGqkGqrGrqN@rwrxqrqGqrqxqrwrGrqrwrGrqGrGrqHqGrqqrqHq43 9:: @A:@@3::@399:: 9333@@A@k@@k9k@@ 3GA:@k@3G@@A@9AG3232c]c]23áÄy323]8834::@:Aq@AqAqAArGkGqrGqrqA@qHqrGrqGrGrGxr@@rwHrqxqxGqrMrqqrGrGrMq 3::99:@3::@ 9::@:: 3@3 9 3 A@k@AA@A@3A@3 3k@:AGA:k@k:9 jc]c]ƒc]cãÅV”\3b3 9:@@:9AAqA9Aq@qAqAqGrxGrwrrGqHwrGkqxqxrGrrwrwrNqHqrqrqrMrGxqrq3 3 9 3::@: 9:@ƒ:+@:@: @3 3 39::@kAkA9@AkGqG:@k@jG::G: ::ƒc]c-äÄ2ƒ3@8b3 @@:@:@@qAqqAqGqGkqr@qrqHqqGkqrGrqHqHqxrwrHqHqrxqxHwHwrqrqrM „:C 3 @939:@3@:@ @:@ :93 3:3 3 3:Aq@Gq@::AqGrqGkGkG:q@3::c]c32,åÅy2]2c83:@A@A:AAkGqHqGrkGqGqHqHqqHqrGrwrwHqrqxGr@xqxrxqHrqxrqHqHqGr:: :3 ::3: ::@:@::@ ::@3@: :9 : 9 39 3A3@@:@@3GkAGq@A@kGA@::3b]c323ãÄJ,3238399:Aj:@@qAqGrqGqrGrGqrqGqrMrGqrHqrGqHrxqAqxHwrwrGqrMrwrqN@3@9:@:3@@…:1@:@:@:@::3 @@:@@:3 : 33 3 :93AA:qA9:AqAqAqA9:@@ƒ:9cc]c]2æÄ3]2c83ƒ: @AAjA@AqqAqrAƒq'GrGqGrqrqGrwrqqxqxqxAxrqxqHrwrwHrqrMr:@ƒ:F9:@@:@@:9:@:@ :@: @@:@:A::@:: 39 9 339:9::@qAq AqAqAqAq::A@k9A:3c233‡,]ÜÄy232]2c :9:9AqA@k@qGqGqGrGrqqrqAqNqGkqHwHqHqHxqqHwrHxqxGrrwrxq:@::@@:@::@:@ :@:@:3@:@34@@:@:3@A:@:3 3:3 :3@A@AA9k@GkG:„@ k:@G:92323çÅB2338b::::@Aq@A@AkGkHqqrGArGrAqrrqGrqrxrGqxqrGxrwrqxqrxGrw:@::@::@ƒ:@„:@3@::@ 3ƒ: @::33@@ :@ƒ:%33 3::@::@:k@k@AqG:3:@@;9kGk ::2èÄ9,Ž2]989:@::9AAkGjAAqGqrGqrGqxqGqxGrrGxqHwkGrxr@rqNqxHrMrx„:B@::@:@ @@:@3:@:@:@@ :@:@:@@ 9::@::@:@ 93: 3@:3::39@AA9AqkG @AkG3:„@33,éÅ2322] ƒ:5@:9AFkA@qAqAqrGqGqHqrGrwrwGrxqrGqGrw@xrrxqrwA@:@:@::@ƒ:@:@:A@33::@:@::@:@@„:- :@ :@3@::9 9 3:@:A: :@@kGA@@3@jAq9A:A@A33êÄ2]382 9@9A@:Aƒq&AAkAqGrqGkrqGrqGrHqrGqxrGrqrGkNqxGrxr@ƒ:@@:@::@:@:@:@:@@:@@: :@@A3:@::@ @:@3: ::9::3@ 3@ @:@Aj@@kA@k@k@:Gƒ: k:@:@3 2êÄD,323292 ::A@:9:AGqqA@qqGqHqGrqxGqrwrGqrGxAqrwrqrqrxq@::@:@::@:@::@:@ƒ: @;@A::@ ::@:@ƒ:.@:9:: :@:@9: 3 9 39A@@A3@@::GqGkA9:9A::@A3ëÄ<32323239A:@:GA::qAGkAGkHqqGqrGrqHqrwqHqrq@rMrNqHwH:@:@::@9:@ƒ:„: 3@:@@: 3::39ƒ:1@@:9: @:@:3@: :: 9 3 :94@A@A@3@@:qAqAqAk:@:@A@3ìÅ622]839:9::qq9:GqqGjGqAqrqGqqrxqGqH@rxqxrqrqrxq@:@:@:@ƒ:@:@:@:@:ƒ@ 9:4:@9:@:@„:0: @:@3@::9:@@: 3 9 33@d@A3:A@3GA@9:@ q@:@j : ëÆ723329 :9::GA@A:AqGqAk@GrGrAGqHqGrqA@rGqHwHw:: @:@:::9„:@ƒ:@…:@:@ƒ:@::@::9:@@3::9ƒ:@…: 99 :3::3A@A@9 :9 -@4@A34@:A 9ëÆ0,32383:@:@k:q:9qHkGr@qArqqGqqHqrqrqqHqrqr@::@3@†:ƒ@I::@:?::@:@:@::@:9:@4@::@ 3:::@:::A 9:@: @: 3@@ 9:: 39: :A@@9: 99@A, -ëÇ]2323:9:@@:@qG:GƒqGrGqqGqBqr@rGq xrqGƒ@ ::@: @:@:@:@ƒ: @:@:@::@:@„:@ƒ:8@:: :@::3@: @:939:@::@9:@:@3A@4:@@3:49:3@A@3 : @A ëÇ2c29 :@@:@A@qA:AqHAƒq)ArGqqGqrqrG3Gx:@::@:@:@3::@::@:@:@:@:@::@ƒ:@9::@9:: 3::@3:@:@:3 @ A @@„: ƒ: ƒ@:A3: 9 94 :k:39@:k@3ëÆC2-32239:A:@:@Aq@A:qqGrGqGq:HqGrGxq ::@:@@;:@: ::@:@::9:@::@:@:@:@:@ƒ:=@:@ @:@ 9:3:@:@ :@::3@::3@::39:9:9:A@A:9A:@: 3 3@9: @:A@ ::ëÇ;23229::@:A::@:qkG:AqGrqAr@qrqrq: 9@@:@:@@::@3:9:@:@:@::@::@ƒ:@:@::@ƒ::@3::3: @: @:9:: @: @@ : @3@::9::j@@:@@4:9 3::3A3@@- @ìÈ&3232 :@j@:A@AqG@@rqqHqA@qH 9@@ ::@:@ƒ:E@::@:@:@::@:@:@:@:@:@::@::9@:@ @ :@:@3@A:@:3@:3 :93 3 3::9@:AA@:@ƒ:9 3@: 9@A@A3 9 ëÇ!22322 39:AA@:jAGk@:qArqG@;9AA:9…:@::9:ƒ:@::@:@„: @::@:@:@@ƒ:<@:@:@3:9 @ :@:3@:@ @:@3 @: 9 3::::9@jA:A@9 3 3A9 :9A@3 9ëÈ-2322::ƒ@:A:@qAqA@qG@AjA@::@@33@:@9:@::@3::@:@:@::@@:@::@::@4@:@:@…:7 9 :@3::@@:@:@:@::@:9 3 9 :3@@3A@:@jA33@3 933: j: :3ëÇ=223223 9::@k::qG33 3@A3@::@39 @::@:@:@ :@::@::@::@::@@:@ƒ:9:@ƒ:(@@9@ ::@::@ 9::@:A3@:3@:@::9 3 3A@A@k@ƒ:@: 3: 3 9 3 39@ìÈ -,323@::9ƒ 39A 3 3:9::9:: 3@:93:@ƒ:X@ :9:@:@:@:@:@:@::@:@@::@:@:@: :@3:@:3@:@:A::@@39:@ @:@: 9 39 99A@A@:@9 9 3: 9:33  3 ìÉ>2322 4 :3 93 Aq@ 3 @9: :93A9 :@@::@::@:@::@::@::@:@:@:@„:@::@:@ @:@ :@:@:@ 3@ 9: @::@ƒ: : @:@j:@4@:4 3 3 :3 3ìÉ3,3233993 3 3 jA3 @: 3 9ƒ@::„:@ƒ:@:@:@::@::@:@:@:@ƒ:@@:@:@:@::3:@:3:@:@::@ @::@:@A3@:9 9 3jA:3A@@3:3 9:3 3 @: 33ìÉ92322 3 : 33 :9 3:9A3@:@3:A- :9:@::@:::@:@::@:@:@:@:@ƒ:C::@:@: :@@3@:@@:@:@3@:33::@:3:: : @:3 3@@3:@;@: @:3 :33 33 :ìÊy23232 3 33 9 3: 3 :@9:9:@9 : :@@9:@3:@::@:@::@:@::@:@::@:@:@:@:@A :@:@:@:@ @@ @: :@ :@:@3 9 3 3 @3::@A39@3:9 3 9 3 9 íÊy, 232 3 9 3 : :3 @AA,49 3: 93:@3 9:3 9:@:@:@:@:@:@:@ :@::@:@ 3 :@:93:@:A:A3::@3:@3 3@: @::93: 33:3:: 33 9:349 3: 3:íÌ:2323 933 9 3 33:@943A3:9 9 :9 ::@99:@:@::@:@:@: @:@:@ƒ:> :@:@:3:@::@:@:@ :: @:@ 9 939 @:@: 3@;@A@k3: :9 39 9 9íÌ3,322 3 3 339 3 33 A9: 3:3:@:9::@::@:@:@:@: ƒ:@:@:@@:@ƒ::@:@::@:@:@:@3@:@:A@949 :@:A@4:3 @AjA@:39 3 93 3949 :: íË7,,32 3 3 9999:33@A33 9:: 39@::@ 9::@:@:@:93@:@ƒ::@::@:@:@:@:@:@:@::@::@:@:@3 : 3@:9:3@@ :39:@A@@3 :9: :: 9ƒ :3 íÍ ƒ2 3 9 3 : 399:@A3A@3:-9 9:3@ 49ƒ: :@ ƒ:A@A:@:@:@:@ 3:@:@…:5@:@:@A9::@3:@::3@::9: 3:@@A9 3:@A:@A@3: 39 3399 îÌ/,32 33 9:9 4 3@ @k 9 @ ::3A@3 :@9: 33ƒ:@::@:@ƒ:0@::@:@:@:@:: :@:: : @@:3:: : @3@@:: 33@A@:j@3@„: 9: 9 :: îÍ*,232 3 33 9 9 99A@493 3A3:@ 3 9:9:::@ƒ:9::@:@:@:@:@:9:@:: 2ƒ:+@ 3 ::::9::A 9 9:@: : 933 9A:@4@49:9 @ „3 3 3îÍC,23 9 3 93: @@9:33@33:3@: 3 :@:9@:@:@::@::@:@@:3:9:::@ :@:@ƒ:+@:@::@@::@ 9:@:A3@:3:@@: 39 39@ @A@@ 93:ƒ 3 3:îσ2- 33 3  3; 9 9:@9A: 3: @@ :9:@:@:@:@::@„:@:@ƒ:@::@::@:@:: ::@39:@:@@:@:3:@@Aƒ:3@ 9 4:@9A@A:2 39„3ïÑK32 9 333:3@3A 3@ 3: 3@: 9:@:A3 3A::@:@:@:@ 94@@A:@ :@:: :@9 @:@:9 @@„:9::@@::@@:9 93 :9:3@:j:9 39‡3ïÑ)223 33 3 9:@ 3@3 A3 9@A3: 3@3 9: 3::9ƒ: @„:%@3:: :@9::@:@::@::@: 3::@::@:@::@:@:A† 399::A@:9  † ðÏV222 9 9 3 9:A@ A@k@@:949@: 33@ 39 :9:33 9 ::@:@::@::9@:@@:@::@ :@:9 2 @@4:@:A::@:‰ 93@:9:@ :: ‡ ðÒM 223 :9 9 3@A:2A:@3 @A 39@ 3 :: 3 9:@:@:39:9:@:@:: 9::@::@::@3::@@:@:@: 9:@:ƒ@Œ3:@3AAƒ:9ˆðÓ23 3: 3 3 j: 39:: A2@3 3A39ƒ:9 „:@@:9„:@@:@ƒ:@ ::@:@:@::@:@: 333:@Ž@A@ˆøÓƒ2 3 3 3ƒ 9:: 9A2 A33A 3:39 9 ƒ@:@ 3: 33@::@::@:3ƒ:@ƒ:9: :@::ƒ@::øžÓ(323 39 33 :9:@:9:@3 9 @333A@@4@3:@A:ƒ@:33::@:@ 9 9::99:@:@::@:@:Aø Ò 2,329 3 3 3 3 :A@A 9:A3@A@:93@ƒ: :9:@:@::@::@ƒ:@„:@:@: ::@9 3::@:ø¡Ô$]223 3 2 39:9@3: @ 3@3 :@@49:9:9„: @A:@ 3 9ƒ: 9:94 3:@ƒ:@:@ø£Ö2 3 3 9ƒ @ :A9 A3:@A934@9A::3@:3@9::@@Aƒ@::9:@:3 :@:@9 ::@:@ø¤Õ3232 93 33 3 39@ :3 @Aƒ@::@ :@3@:@::@;:: „: 9 ::@: 39@:ø¥Ø>223 3 33: 3@ A93 9 jA33::9::93:9A ::@:@3::999 @3:9::@:@:ø¦Ö*229 3 3 3 3 :AAj33A@@: 9:::::3@33ƒ:@@…: @:@: :@::@ø¨×3ƒ2'9 3 39:2 A94:9:A@@::::9 : @ 9:3@:9…: 3::@:9 9:@:ø©Ù'2329 3 3 3 :3@ 9A@::3939:@9:9493: ƒ:@  9 9::9::@::øªØ223 9 3 93 39 9A9:Aƒ:@ 3 9:3:::3@ :93 9: : 9:9ø«Ù-ƒ2933 3 3 @9A3 349@„: : 9:3:9::@9 3: 9 9 @::ø¬Û 32 3 ::33 ::9A@:9:499 9:39ƒ 3::9 ::9:@ 39:@:ø­Û*2232 93 9 3 , 9::3A3 999 9 ::9:3 9:@33ƒ 9 9ƒ:ø®Ü13,2 3 3 393 : 9: :949:3:3 9 3:4@ A@@::9:@:ø¯Û),323 33 ::3 3 :9@39 :9 ::9: 33:4@ƒ:9 4:ø°Û032-22 3 29 : 3 :3::93:: 3: 34:9 ::93@: ::@@ø±Ý,32 3 :9 9 :3 9A@@99:ƒ: 99 : 9:3:9:9::ø±Þ,322 3 3: :G:9AA::49 99 ::93349:: 3:ø²Þ2-ƒ2 33 39 2Ak@ 3:9„: 94 9 :9 @ : 3 39:ø²ß+-22 33 : :@q:9 :93:9:9: 9:99:3 3 99ø²ß2,32 : 39::AA939:::::ƒ: : 39 3 3 ø²á,2-23 9 3 933  949;9:9:@3 9:9 3 9 : ø¯à.3222:9 3 9433A@ 9A33 3 9 39: 3 39 3:ø®á-, ,2 2 :9 39 9:9 @A3:@:3 :3 9 : 93 3::ø®â*232 : 3 9 39 ::9 : 3 3 39: 3:9ƒ ø­ã,-,2-9@3ƒ:9 ƒ:39:9:9 9 :93 :93ø­âc23,, 3 9 : @A3ƒ:99:: ::3:9 99:33:ø¬ã]9,3222: 33@: 9ƒ:9;: :9::9::93ø°Ý,2„3232cc323 3::9:@9 :3Š  3ø±Ü!23]22,23c3c3,22 :: :@@:9:ø¿Ûc2323ƒ32]]c],33b29 :93@ 3 : ø¿Üc3,c]]2c3cc,2-„ 23 :39:9ø¿Þ ,3c323]cc23232 , 3 33ø¾à c232]c,2cc,332,22 9 9 3: ø¼á!,332cc]3c2]c3,3223 3 :23øºá32]3c23c2c32329c2ƒ23 93 ø¹á 3]93]2c3,„ Ž3c\323238ƒ 3ø¹â 22\32],c… “33233]ƒ2cø¾å3233]9„32ƒ “]32]c2828ø¼å32]c]Œ2,3c3,3ø¿æƒcŽ3223cø¾ç]c’ccø¿øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ¬2œ /œJSËœJS-ægÉæg2ég /ésI˜ËésI˜-3 É3 26 /6H‰Ë6H‰-~ É~ 2  ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø223\ø¼ø22]22ƒcø»ö ]c3329“8ch33Š2ø¯ö23\9bi2c83b]23ˆcø¯ö3cb9“28“8chc]ˆž23øõ ,2ci2cbc28ƒc]‡Ž232”,32]22øŽõ32]2,i“8cb9cbccb‡ c“ cc2-2cc…,,† 232]3223ø‹õ23““™“28ch“83]ƒ'2-2c]c]@@A39AA2233]22]3223]c]c3]23øŠõ,c23“™™“™i2cb9bƒc]…323]c :kA3k9::@:@3c2ƒ2 ]]c3c]23\3\3ø‰ö2ib“™˜“cb9“bccc32ƒc3]29 kƒ@:AA@A@ƒ:q :A93]c3c]c]cc]c332::ø‡ó@2Ž™™i“™“™ib8c9]c]3232,ccA3 @@A@@k9AqAqGqAqA::cc3c]29A@99:ƒ@ø†óD,c™“™’™“h“cb2bcc3]23232c]c:qAq3 @q@AqAqAq:@A@@c23@: A@AA9A@A@ø…óE,3hc™“™™“ibcci9]3]2,32]33j9A:: @@AAkA@kGkGkG3k@k@@3]:@Aj@@:: j::ø„òG3, hc“™“™“™hc8ih“c23233c2A:9:AjA@jA@:GkGkGqAq @94:9AAk@Ak3A@k@@;@@:øƒñ 222“ihb„™9Žcbci2]3232] 3:9:A::G@4A@k@k@AqAqAA3AA@A9:@A@3 :9A@@:@4ƒ@øñ;,3,8“c8c™’™ccbi2323 3:@:@@:9@k@qAqAG@99AApA:@:k@A@9kƒ@ @@A33@@A:@:øòE,ccib2cbc™™j]8““2”3239AG@3:@::@A:AjGq9:AG:qA:k@:A@@kA@:@;::3A@:@„: øð 2”c’icb9bƒ“cd8i283]2]:9kƒ:,@@:@qGqAqAAkqAqAk:@@kA@@A::@:@:9A:@kA@A:÷ð"2-c2chcibo“icŽ“cc“ib3@A@:A3GA9Aƒ:)@AAqAk@AGkG@qA9::@qA@:@kAjA@AA@@;@@Aj@:9 öï&c32ib32i2ci’bcdccbih3@jA@G@k@3:@Aqƒ@&kGAq@kGkGkG3::Gqq j;Fk:@Aj:kk@@k@Aq:9 öîQcc2ci“8b“™bic9b”cŽci“c\3A@::93AGqA@qAdGqAqAqAqGqAkG@:qA:: @A@99 k@@3::@A@A:9 õî ]2-9bi“b9ƒ“Dhbc88Žccchii3q:93AAqA@k@:GkGkGAq@AjAG@qAA3k33@AA:AkG3AA@A:@k@A3 õî232b™™22™“™™“™i“c@@”““i]h3GƒA2GjA:@A@AkAq:@k@AqA:kAqAq9:G:9A@:9AjGAq@AjAj:@A@@:õîR32c23“™29’i“h“™Gk@A:Ž22ccGkqApAk@:kGj@A@q:GqAkkFApAG:@:A9 @@::A@kFk:@:@A@@k:9:ôìc23i™ƒ“J8cbi“i“qGk::“c”2cb@@A:@Aq@q::@qA@:qGqAqGkG@AkGkGq 3k@@kGkGAGA@AA@@k:@ 3ôìU]“3™“˜b@ib9bch“GkGqbc3]2 : 3 @@A3@A3 GkAGk@AGkG:GkGkA@jGk::@AGkA@@k@@jAj@k@:AA@3óìJ32322qGqGAbc8ci’GqAG “ k@@:qAqAjA:9:A@@kGq:@qGkqAqApA@A:@ qGjAq3:@A@:AjƒAjA@kƒ@A9òì73]bcAqBqq:8cb“iqGqk@kGkGqA::@AjA3@GA@jA@AkG:qA9AqGkAAjƒ@k@qAAGG39A@kGApAA@A@:@d:9òë3c2383GqGchAA@ibGqAqGA@AqAqA@@:q@A@A@j@AA@:@Aq:@A:@Aƒ@!kGkq qAqq:kGAA9kA:9Ak@@:2A@::òë,3\99Aq3“iqq:AikAAqqA:qAqAqAk@:@ ,: k@3:@jƒA(j:AjAkA@qAGqAqAG:@@k@qGAj: 9:GkAkA@A@:3òê>3c839qHq 2Gr@@3qqGk:9:@@q 9:9@::@@ :9A@:qG:@@k@GqA :A@kqAqAƒ@A:@@kq @: 9AAj@AFk@:A@@:ñé2]2b qGq39qGeA9qGkG:@„A#9:AGAAk@3::@@A:: kG:@:AqkG3@@AGkGjƒ:j@:A@A3 2AA99A:@qAq@@A:9ñè\3ccc9BqGqGkqGqG4cAqqGAk@k@:9::kG@@: A@kGkGjGkGkA@::9Gk:3Gk@A@q:@ @k9:@3 kA@A@q@:3GAd@@3ðç2c]2c GkGkGkGAqqGkFAAqqAƒ@@A9@:qqkG::qAAq3GAkGk@@k@AqA@G:@ kG@AAj:9@: A@@ApA3qAqA@Ak@3::9 ðæ^]32b92,83GkGAkAqAqAAkApAGkGjAk@:\8q@@:@ jApA:AqqGAqGq@A@kGk@@kk@k @@4@@94@:@@:qGAk@@:9A:A:ðåƒ2J9,@A3GqGk@AqAqGq:9@A:@kA@Ab““8cc:Ž@:@: k@A@qGqqAqAqAqA@AjG::A3Aq:@A@A:9ƒ:A@:39kƒA@@:9:9ïãP,323,™:A@3 ::@kG@qGkGq:cbi™““™2i™29bŽ“cŽ:@AAq:qAGkGkGkGAqqAqAqA9 AkG9:qAqk@@:ƒ@ ::A3:AjG@@A„:ïá_232,22c3 3 @A@kGkGqAA9422c88“™2bc™22”cc::qq@A@@:qGqGqAq@qGkAqAq:@3AA3AGkG9:@A@:@:9@::@AqAj„@9ïàM,cc,38c 9::@:9 3@@kA@kA@A3i283“ib9bii“8ccŽ@@GqkAqAqrGkGkAqGr:9GAqAkG3FAq@ƒ:@A:@A@::AAGqAk@A:k@A:ïß^cŽ8322 39:: 3 :9: :9@AAjA:9ci2b2bc83’i“bicA@A3AqqGq:GkGkG@:3GqAq@AqAFk k@:@A@A@qk:A3:@:k@A„@:@;ðÝg23]282 39::9:qG@:: 3@:Ak@@A@:hcii“ic““™“cc] j:9:GrGqG:qGkG:AqGAqAq@:qAq:A@A@@3A@qGAjA9 9A@@AjAAk@@ðÜ 2322329ƒ:' AAqAkGA@:@:qA@9A:@kG@“i“2c’iG’™bcc3@„:2@qAqA@kGkGkAqAkGA:qAqA9@k@4@::@AqqG:3AkG:A@jA:@3ïÙj23]c233:: :@@kGqAkq: :@3 kA99Aqc’i2ihqqG“Žcc:@:@@GqHqrqGk qAqGqqApAqGqGk:@@:9@::qqAqqA@:q9::jA@A@ƒ:îÙ']cc]29b @A @@AkAqA@3GkqqGA:@@9 q““hi“ƒ2CikGkG82cc@AjG:@:AqqGrqGqAqAqGAqAqqG:9 :A: ::@GrGA@k:G9::GA@k@@3 :îØS323]23b839:@:k@@93GqAAGqrGk@AA@q:A@AqA9  9:AkG3“@kGk:@:AjAAqGq::@AqqrAq:@A::A:39ƒ:3 93::qA@A@kG:Aq@9Ak@A9îØ232338c2:9::Ak@ :@AGqr@kq@ 3G„qNHq@AqqrG:qAqA9 33AA@kA@qAqGqAA:qHqA@AqGjGA@@qqAAG3@:@9:::93AjAGk9GkqAqGA@@ cí×2-23„2E99A@q@:@qGkAqr:9GqGqqGq;GkGAqrG@qqAqGqAqGqq9:@AAqGkGqqGqqGqkGkAGkkƒA qjGA:@:@@A:9:3 3@AqAGqA@kA@kcíØ9c3]3293G49Gk@:@Aqq@@A9GAqArAqBqqrqrqGAqqHqGqAqGkAGAqGkqkGƒqAkAkGkGqAqA@qqGkGkFAqA3„ :@A@:@:GqqAq@@:AqAj@A3îÖ23„2b q94@ 9AA@A::@kAqAqGqqrqHA@GqGqAqGqrqrAqAAjqGkGqGqAkHqGqGAqrGqAGqr@AqAqqAqAq 2@qkAk:9A@;qAAqAk::@ƒA@kAî×p3]2323G3::@:A::@jAkGkGA@qrq:@AGqqAAqqHqArqHqrqHqqHqAqGrAqGqGqArqqHqGkqAqqA@qAGkGk@:AA:@Aq@AA@:9GkGkc3@:@AqjA@A@@íÖ6232,92::9:A93:@A:A@@GkwkHq:GA@kGqq@rGqrqGrwHwrwrGqqAAƒq9AqGkrGqrGqqA:9GAr@@AkGkGAk@@jA@@A@q@k@:AqA:G@A@kGkG@k@@A:ìÖr]23282 9:: 9 @A@:q@rqrqAG9@AqAkGqGqGq:rGrqrrqHqHqrGAqGrGrrqrGqrGqrGrGk@Aqqrqrq@Aq@G9::A@kAk@AqA:q@q3qAkAqA@@k@Aj@@ìÓ#]2323,92: 3 @:k@k@qGr@:@:AAkGA@@kƒAPkGr@qrMqHwrqxGq:@rqrqA@GrqHqqHAqqGq@A@:GqAG9qAq@;99A@k9AGjAq@G:@GqGkGkGjA@qAA:A@ëÓv23232,3 @j@@AA@:94@@:@:qqG@@:kA@qkGkGqGqHqrqHqHqr:rqGrwH@:qrGqrG:@qGrAA3@A@AkA:GqrGq:9@@Aq@@A@qAk qAqAqAqA@Ak@@k3@ëÓ c]2-2 3 3@ƒ:iAj9@:@:@kGkA@@;jAkGjrGqqrqG;qqrGqrqqqGqHqrq@::qHqrGj::GkAqA3Aj@3@9:AqGkGqA9;k@A@kA:@kGk@Aq qAqAqqGA@@: 3êÑ 2]322833 39ƒ: 9:9A@:GAqGAƒ@_A:@rGqqHqAAqNqrqGrGrqGAA@AqG9:Aq:@qrGr@@c39AjGApA 332qGqrqr:qqGAq@A@kA:@A:A@@A3G@AkA@kA@k3 9èÐ3c2323 9 999A@AqA@@;@:Ak„q\GqAG@@AqqHqrqGqqr@AjA@:rq:GkG:@GrqGcd]ckGA2A@A: 2c3, rGrG:: q@AjA@q@@:@kGk:9AkFqA@k@q:@ ::çÏy23]c328 33 99A@kA@Aj:Aj:kAqqAGqHAkGk@kqqGkAqGrqHqk@@:qqG:GkG3 3q@AqA@kccA93:@A2 3c]]ccqqGr@Ak@AkA@A@A:@qAqG:@@AqAq@A:@A@ƒ:çÍy23,223233 3 ::A@kA@k@AGkAAFkGAqqAkGkAqGqHqHqGqrGqqHA:AqGq:AqA3:9 qA@AkAA@j::3:cc: 3:GrqGkGkAk@qApAj@3AkGq9:9:qAq@A9 :@:@:@:@:åÎ 2Ž,9b299 9ƒ@WkAA@@AqkA@qAkGqqGqAqG@qGqrGqqAkG@rGrq@3 kAG@Aq@@:qGq:@9@3AqGk::@ 3c]c]c3GkGqGk:FA@AqƒA@:3GqAG4:@@AA@A@:Aƒ:@A@@3äÌ 2c]c3223 …:wAA@@k@3GkGqqrwr@AkGqGkAqGrrqrGkGAkA@rqrqrqG:k:@q::3AkAq:: k qAGA@]\3c2c]b:GqAqG3:AjGkGqj:9kAjGG::kGd@:9@k@:3@ãÌ?,c]c3839: @9:@:@:@A:@A@@A@::Gq@AqkHqqrqrGrqrGqqGkFAqHqHqqG99: „:E 993: G3qA9c23c]3]2c:AqAq: 9qGkG@3@:AA:A@@:9:9A: ::@;@@:@A9::àË2ƒ3Q2,22 39::@k@A:q@k@AjAA@AqGqAqrqH@AqGqGrMrrqGqqAA@xqGkqGA9 :@AGq@k9 : 33 ::cc]…c#33cAqGq:@rGkG@3GkA::@@q j: 9: jA@:ƒ@ k:@@ ::àÊ32,cc,33:::9A@k@k@A@kA@k@qqGkGqAGq qGAqrqGqqGrqH„qC@rGGkq@k 99:@kGA@A:GqAk @:cqqA:@@]\ qkG:@GkGAk@k@A@@::@kA:::@@ƒ: @:AA@A:@:@„:ßÉ7,cd3c]883 ::9:@qA@A@A@kGqqrGkGqAqAkGAqqrqAqGqGqHqGrqGqGƒA>qqGAGk ::@k9:@k:GkGkF A@kAAqk9 GkAqHq:qqA3GkAAGjAj@AjAqG3„:9:@:9@3@@::@:@@@ÞÊ3c\32c ƒ: 3:@A::k@kƒqwGqAqAGkGqAqGkqGrGqGqGrrqGqqGkGAqkGjA:AqAkG@@k9AAkGjAA@kGkGk@jA@Aj@AGkAq@:qGqHqG kG@k@Ak@:A@@G3:9 @@A: ;9A@k::@AjA3@ÝÈq223,9]329:@:@:@@AjAqGqGAkAqAk@qArqGqGr@Aqr9rGqGrqHqrGqrAGkA@AqqAq:A@k99Aq@AjGk:qGAq:@@kA@AkqA9:GrAqGq3@q@Ak9@Aƒ@k A::3@:@A::::ƒ@ j@:@ : ÜÈ-23c,22…::9A:@AqGAkGkGAqGqGrqxGrrqrqqA@rGrqArqrqGqGkGqqGqq@A::@G:@k …:@A@:@9kAG: j:qAGkG3::qGqlGƒA&@@AG9Ak:A3A@:: @:3 9@:@j@::kA@3 A:@3:ÛÇy2323]3@9:A@Ak@AkGkGAqrqrrwHqGqqHqGrGqA9rqrxqHqHqrqGrqHqrGqqA@:qkqGqG:@kqqrqGA:@@Aj:@AA:pAAqr:@AqAGqq@qAjAk k@:@Aj@@ 9:9:@k::9A:A@AjA@:ƒ@:@ :ÚÉ 3]2]c9::@ ƒ@ik@AjGkGqqGrMqGkqGqHqqrqGrqr@xGrGrwrqHqHqrGqrGqAqGq::GrGkGkGkAGqAqAq@A@@::@@AqAq@AA@kGkGkGkAqA@qA@@A3@A@Aƒ:ƒAkA@@:9 2:AA@k@ƒ:@:@ÛÆy,2]2]3299 A@:@::@AqAqGqGkqGrAqHqrqrrMrHwrG rAqqrMrGqqrqrGrqGqqHqAqA@AjGkGqAAqkAqAAk @::qA:33 :9Gk@k@AqAqAqG 3:3A@:@3:@k@9339@@:@AA:: 9Aj@@A9:@:@::9ÙÆ72332c2::@::A:Ak@AGqGkqGrqGqrqHqHwrqGrqrwrqGAqrGqqGGqHƒq.HqArqGqGkA@AqGkGqA@GA@3qGqAj@kGkG@kF:3GqA@@AqAƒqGq: 3::@:@:@@: A@Aƒ@kA@@:93A@Ak@A@A:@9ÙÇF323]823@@:@@:@qAjAqqGAqHqrGrwGqrqHqrwHqrGqqGAqqGkrGkGrGrqGqGqkGr@jA@@ƒ:@k33A@qGkGkA@AqGk@A@:@qAƒq/GqGAAqAG9:@:Ak@k:@:k@Gk::@:@:@::@:A@:@k:9:::ÙÅy]33]2]893::A:@:@qGkGkGkrqrqHqqHqrGrwrGqrqNqxrHqqrHrqHqqGqrGqrqrGqGqAAjAA@::qAqGGqA@kGkGA@kGqAAjA:A@qHq @:qAqGkA@:@@qGAG:@:…@ kA9::9A@:@@ƒ:9@::@A9 ÙÅ2“]233bƒ:pA9@:k@A@kGqGqGGqHqqGrqGqrHqxHwrrA@xqqGxqxqxrrGrwrGqGqGkrGqqGkqA@@qGrqqAqAAqAqAkF::@AA3:A@:@3 qq:Ak@k@@A@AkpA3 …:A@k 9 3@A@:9::@ƒ:@@: 3ÙÅG332]2c2:9A@::@AkA@qAqGrqGrqGrqrGrrwrGqrrMqxAArqrrGrGqGqqHqrqHqHqGqkGAqGƒq2AqAGqGqAqAqGkFA@A9AjqGkG3A:q:qGAAq@A@::@:k@:A3 pƒ:9@ 3@ƒ:93: :9:@:9:3:ÚÄ23\ƒ3782::@::@kG@kGqAkGqAqqGqrGrqxGrwrxGrrqrqGqGqNqrwrrGrqGrGƒq5HkGrAqrGrGkGkGkGkGqAqGq rqrkGk@@A@k3:@q:GqqA@qA@@:9:ƒ@A9AAk9ƒ:33 ::3 ::9@: ::ÚÃhc,33\c]83:@:@@AkGqqGqAqrGrGrGrqxGrwrGqrwrqNqqArqrwHqHqGqrqGrqGkqGrqqGqqAqGqGkAqAqGk@3:@qGqAGkA9AG 3 3„:& 9AAj:A@A@ kAq:9:A9:9::9 :9:3:ßà 22c38c9„:u@:@AjAGkGqGqrqqArwrGrwrxqHxqrqrqxHqxGrqrxqAqrGrqGrGGqrGqHqGrqHkGkG::@A@qHqrA:AqGk@:@@k3@A9@A:9AkA9 jA3:G:@k:„:9A33@@„:@:ßÃ3M]3cbc :@@A@AjAqAqG:qHqAGrqqHqqxrGrxqrNqNGqrqGrxqNqrGqxGxqrqrqArqrGqqBqGqAqAqG„:AqrqGqG@ƒ:1@@A:@Gq 3@A@AA@9 qG:kAk 3G@ @3@ 9::@: :9 :3:@9áÃ223\c8cb9:AjA@:GAƒq:GrkGkqGrrwrGrqxqHGqx3rqAGqrqHqrxqxGrrqNqNqGrGqHqGqGqkGqAqA„q@AGqGk@ƒ:ƒ:&@jAqA@k@k@9 @kG9G@A@qAk@@: 3 9:@ 2:@ƒ:@ ::áÃy,323]b9b::A@AjA@kqGAqrGqqHqrGxGrAwHrwrqGrqNqqGqHwrwrGrGrqrqrrqrqqrGqqrGkHqrGkGqGrHGqkGk:9:::9A@::@AkGj:Gk@33 kGqkq:k@A@kG@A:@::9A 3 :3@ :99:9áÃ*23]cc]h::@:kF:AqAAqqAqqHqqHqqAqrFrAwrGrGAwƒr#GrqrqHxqGqrMrMqNqNqHqqHqGrqGqGqrAqGƒq*Gq:AA:@9:@@:@:@kG:@:GA qGqAqHAGqGqAA3@:j„:9 :: @;@@: 3 áÃy3,23c]c@:@:AqA@k@GkGGrqHqq@HqGqrqrAwrqrqrqNqrqxGxqrxrqrqxrqrGqrqGrqGqGqrqrGqGqAqHk::9:@k@@ A@::k9A@@:AA9@qGkGkGq@kA:qkGqkG:AF::@@29:@d@:@:âÃy23]c3cb:@:@@:Gk@GkAGkqGrqHqrqqGrrMqArxxGqHwrwrGrrqxGrwHwHqrNqrqHqrGqArkGqHqrGqqG::@@:::3A3:@k:GAG@Ak:@k@::qGkG:qA@qAAqAGkGk9 @3 @::349AA:@âÃy323\cbc:@@::@qGkG@qAqGrGqrGrGrqGrqxAqGrqrwrrGrwqNrqxrqrrqxqrwHqrGqrrqGqHqGqGrG;::@:: @::3@:@::@j@k3@3@9:@:@4@Gk:GkA@q@A@k@@AAk9@ƒ: 9 3:@:3âÄN]23c8i:@AA@::qAqAqAkGqqHqqxrGrqrGrwrqHqHrMrqrHqrwHqAxMrxGrNrqxqrGqNqrqqHqrq:9@ƒ:19 9::9 :@:@@3 A@A@@ :A@:@A@qAq:Gq 94@:9AqGjA@A3: † 93:9 âÂ223c3bc8:@j::q:@GkGkGqAƒq2HqHqxGrwrGrwrqGwrqxGqqNqrxGqrrwrqxqrGrGxqrqGqHqq: „:%@A :3::9 9:A9:3 3 j@A3@:9G:Ak:Gk@3: 9„: 3AqAAjA@:3îÃy3]cc]bc::@:GA@:qqAqqAqGrGrqxqqGrGqGrqNqrrqxrxGrqrMrAqxGrNqHqGrwrGrGqrGq:39 ::@:: : 3:9 : @ 3AkAA39:Ak@Aq9 33: 9:@: :AGjGA@:9@îÂH32]23c8:9AAk@:AqAqGqGqAqqrGrGrqqrrqHwrxqNqHwrqGrGrqAxqxqrxqrqGrqxqrG94„: 9A9::@:@33ƒ: 3:93@9AGj AA@qA@Aq::@ƒ:@GqGrAjAqAjG:9:îÂ2]23cc8ƒ:ƒ@Bk@q@GAqGkGqHqGrqqGrHwHwrqrNrqxrqxGqrxqqxqHrxGrwHxqrGrG943:: @:@@3ƒ: 99::9493 33ƒ:#@Akk@A:Aq:9 :kG3Gq::@qqAqA@@:@4 íÂJ]23c]3b:9::A@AAq;@qkGrqAqrqGrGrqqrxqHqxqxGrwHrqrxqNArxwrqxrrqqNr@ 9 :9 @:9ƒ:8:@9 ::4 3:3 9:A::@9AGkGjA@9 q@GkG3G::@;GAqG@:: 99 íÂy3323c]b:@:@@jqG@:rGqrGrGqGrqxqHqNqxqHqxrqxrxqGxGrqAwrrMrqN@G@:@@:3:: :9:9:43@:99:3 9 9 :@@::9:@A@ 339;@@qGqq::9: 9 AjGkq@k@@::íÁ.c\232]9b: @::A@AqAqqAGqrqAqAqGrxqHqxrqrxGrxGrwƒrxrxqrMrrwr94:@3ƒ:C 399: 9: :::@ 9:A::3: 3 3 9::::q::A@kA:qAG:@ @3Aq:@AA@A@A3 @íÂbc-23]c8c@:@@k@A@kHq@:rGqrqGrqrGrqrGxGqrxAqxrx@GqGxqxrrw@:@9:@ 3@:939:9 @: 3::@:@: @: 39 3 94ƒ:@@ƒ:@@:Aq::@q:@49 @::@kGjAj:@ @ìÃF-2c]bc@:kA@Ak@Aqr@AqrqGrqGqHwrGxqrrxGxqGqGr@rrqrNq@::@::9::94 3:9 3 ƒ:$:3@:@:@3@A3 :@ @39 9 @::9:9:::@A@:„@3A@9 qGƒ: 9@A@A@@::íÃj,3]c8c8:@A@j@A@kqGAqAqHqGqHqrqrqrGx@xrq:rrqG@rwN::@::@::@: @:@ ::3 99::9 @:@:@ :@@3::3: : 33 9 ::@3@ 3ƒ@:@A:9:AA3 q@:@A@ƒ:@A3:íÃ.23b3b38:@@kAAjAGAqAqAFrqrqqGrGwGqrqrwrGqNqGq3 ƒ:S@:@4@:@@: :@3 ::@@ 33:: @:3::@39:A9:@:39 :3 9 9@:3 34@kAkGA3::@qGkG:@A:@:@j3 @íÄ53]33b:@:@AkG@k@qqGqqAqGrGrqrqArGqrHwrG:3 : :9:@:@::@„:@A9:@3@„:9 :9::@:: A:@:@ƒ:+@ :9 9 94A@3@ 9A@qGkG:9:qqHqAjA:9A:: @,ìÃ/3\cc3b93:@:qGk@GAAqqAAkqHwrGqHwrqHqx::@:@ 39::@…:@::@@:@:@:@:@3 :9:@3:9:9:3ƒ@:ƒ@%::@ @: 39 39: @:94@A:@:9A@ 3AAkG:ƒ@ :AA9 k22èÃ,233c]8b:9:@Ak@AjAjGrqAFrqrxGrqrG:@:@::@:9 :@ƒ:@@:@::@„:@A@„:@A@@ƒ:>994@A@:@:3::A3::93::9 94 9:9:9:9::@:A@qAA9:@Aqk@A94:p:@:33ƒc…223ßÃ232]2c84@:@qAqA@kGqGkAqGrq„@::@::9:@: 9:9:@ƒ:@:@:9@:@::@@::@@::@Aƒ:@:@:3@…:@ 9: 3@3393 39:4ƒ@!AjAkGq@AqAjAG@kA9:A:3:9c]c]3]2,,ãÃ#32]9]8c9::@A@AqGA@rqH33:@@::A99:@…:9ƒ: @::@:@::9:@:ƒ:@ƒ:@„:@3ƒ: @3::@4::@ ƒ@:@9: :9: :33 9::3ƒ:9:9@@::kAq@Akq@:::@9,232]-2åÃ2]3\338:9::AjA339 :ƒ 9:@::@:: :@@:99::@:@:9::@:@„: ?::@3@@:@9::@3:@@9::9@@A:A:@ƒ:0::9 9333::9:: :9:A@kGGq9 Gk@::3@@4 9]332,33åÄ%32c3\c2: 3 9 :3 @3::@:@@A93 ,:@:@ƒ:a@:@::@::@::@:@::@:@@A:@:::@A@@:@3 :9 @;@3:@@3@:@:: 9 9 933:A@@A9:9:@AqAqAG-@GA@9 Ak9 cc]232çÃ92]32c3b99 9 339 :: 3 9:::@:@::@::@:@@:@ :@:@9::@:@::@„:K@::@@49:@::@:A3@:@A:@:94:@3A::@:949 9:3:@:@:9A:9: :9:@AqkG::qA3@AG3]c],éÃ323]]32c9 33 :933@ ::3:@;3 ƒ: @:@:@:@::@„:@ƒ:@::9:@::9 @:@:@A:@ƒ:<@@::@:@::9@3:@:@:@:3: 3:::@:@39:A9:: :@k@::@:q93:@:9322ëÄ232cc]849 3: 39AA@,@@: ƒ:' 9@:@:@:A:@: 3::@::99:@::@:@:@:@3:@A@3ƒ@3@:@:@:@::@@::3::@3@„:'3: 9::@::@: @A:9:@3:@Gq:qA::33::@ ]-ëÄ'3232]38:9 33@9 9 A:@::3@9 :@:@:@:@:@ƒ:@::@::::@::@:@:@@3ƒ:(@:3:: 3:@:@@:@:@49:@::::@: 334 @:A@Aƒ:9 ƒ:@:AqA:G9::3 9:@323ìÄ2,32]c8499 :94@A@@ƒ: @3 ::::@ƒ:@3 ƒ: 9:@:@:?:@::9@„:+:@@:A :9 @@;@:A::@:9 ::3::@9:9 3: 99 9:@k„@A@:9::Aq@3G3::Aƒ:3íÄ323]3b993 :9 :::9:jAƒ: 33ƒ:9:@@:@: :9@@:@ƒ:@ƒ: @:@::@:@:@ƒ: @:@:A::@:@@ƒ: 3@::@:@A@4:9 93:3:9A@Ak@kA@ƒ: 9:A@:A3: 9@3:@ðÅ32323]8: : 3:949 @ :393 9 @ƒ:@ƒ:@3::@::@::@::@::@:@:9:@:@::@ƒ:<@:9:@::9::@3@:9::9: @:@3::3 994@@A@9A@@:99 :@3:@9:@3:@: ïÅ=232]2c39 3 9 9939 9: 3A3@:@:@::@ @:9:@::@::@::@:9::@::@@„:@@:@„: @:3:@3:3ƒ:@::@::9 @:39:::@kƒ:@: ::A@9A @A 3@@†2,3åÆ;,32388:9 333:39 @: 33 @@ 9:@9:@ :9:@::@::@::?::@:@::@:ƒ:9@„:9:@ 3@93:@3@:@:9A@ƒ:@:3: 94 ::9:@A@9:@:ƒ@3:@3:93@:@ïÅ%3232]2c2: 94 3 9 9AA@:3:@A 33:::@3ƒ:@@:@ƒ:@::@ƒ:@::@:@:@:@::9@ :9 : :@ @;3 @ƒ:)3 @:@: @:9:@A::9:A:94:94@49:9: @ : @:ïÅ!23,3283b9 :9 39339@ 9 3 9 9:@…:@::@::@:@:@::@:@::@:†:::@3:::9::@4:@3:39@:@ƒ:93ƒ:9A@@:@:9:::9::::99 ::9::@:3ïÆ92323b8:3: 3343 3: 3 :9 :@@:@:@:@9:@:@:@::@::@::@9@:@:ƒ@:@:@3@:@3:@3:@9::3@@Aƒ:(A:@:9 9:@: @k@@:A9@:9: :9 9 3::9::@@: ïÆ,3,b9\ƒ9 9 3 9:9 3 39: 9…:@::@:@ƒ:@::@:@@„: @3:A@::@ƒ:=@3:: @: ::@ @ @:@:@:9@@:: 9 ::3@:3A9:3A9A:@ 3:99: @: :ïÆ232329b: 333:: 9 @k:ƒ:3:@ƒ:&9::@:@:@:@:@::@:@@:3:@:j::@:@:@ 9:3@:ƒ@33:@A:@:9:@4:@@93@@::9@A@A@:@: 943 :A3:49@A3 ïÇ3ƒ2$c2:994 3 9:@3 39:333:99:@:@:@ƒ:@:@ƒ:@:@@::@ƒ:@:@ƒ:;3@ :@3 :A@4@:9@:A3 @:3: : @:: ::@k@:A::93: 99 :9A9: 2:@3 ðÇ,-298c9: 9 AA3ƒ 3 : 3:: 4@ƒ:@:@:@ƒ:@:@:@A:@::@:@:9:@ 9:@ :@A3:ƒ@0:@;@@:@: :3:94:9:3:@9A@A:j@:: 9 :::3@43: 3ðÇ522c8c9 3 93:@:9 33: @:39@ ::@ :@:@::@:@:@:@::@:9ƒ:E@:@::@:@@ :@39:@3@:A:A@9;:9:@@:9 9 9 @39:@Aj:@AA33A3 9::@ 3 :,:@ðÇ32ƒ2c8: 3 9 :@A 3 3A@:3: :@ƒ::@:@:@::@:@::@:@:@::@:@::@ƒ:=3@::4@:A@@39:@:9:@4@:@A:3:3 93A@A@@:: @: 9 3 9::99@: :9ðÇ:,229b39:9 3::q@9 A33:@:@A:3@::9@::@::@::@:@:: :@::@::@ƒ:ƒ@::@:A@:@3@:A3@::9: 9 Aƒ:#:3:39:4@k:@@3:9:9::9 3: : :3 3ñÈ.3,229b99 9493:A@33@ :@:@9 ::9 3:@:@:@:@::ƒ@J::@::@:@ @:@A9@::@:@@:3:@ @:3@ @:@:@:@3 @:33A:9:@@;3:99 394 949:3:3ñÈ&23,32b99: 3 9G@:9A393:9 3 @::::9ƒ:Q@ 9::@:@::@:: 3 :@:4:@:@;@:3@3 :@::A:@:9::@ 933:@@:9A@@93::@:3:93:: :òÈ>3,292c3:9 33::@:@ 3@ 3: 3@::9:9 9:@@:@:9:@:@:@:@:@:@::@ƒ:9@A@@:@::A:@:3@:@9::@@:@:4 3 3::@494@:3@@ :9: @@4 :39 òÉ/2-22c899 3 39A:@3:3A39 93 @:@:A@@3 ::A::@:@ƒ:@::@ƒ:@@:@:@ƒ:&@:39:@3:@@4: :@:A:9:: 9 3@: :::9A9ƒ: 3A@ 2 3 29òÉ&23229\84933:9:@: 9 @@3: 9A@3 9:@::@ƒ:O@:@:@::@@::@:@@:@:@@:@:@@::@3 ::@:@:3@:9::9::9 3394@99@:9 :93: 9::99:9 3 93 óÉ 32, 229b39„ 9:@:A3A3 3@:@ 3 3::@@:@@:@ƒ: @:@::@::@::@ˆ:@@: @A9ƒ:@::9 : 3@9;@:: 3 ::ƒA9:39 ƒ: 3 : 3:: 33óÊ.,322329\:49 94@:9 @A39 3A@:3: 3@::@::@:@:@:@ƒ:9::@@: 9@:@@ :@:kƒ:1@@::@3 3: @:A @@:399 ::@k@ 3:9::9::9 993:39 óË8-22b9::9 39@333@39A@3:-39 ::@:@:@:@9:9:@@::9:A: 3„:9 ::@@::93 @::@3ƒ@3@@9:3 A :: :9:A@A@9: 9 ƒ: ::33 õË=2,292cb: 9 9:99: 9 @@33:@ 9@3 3:@: ,::4:@:@:@:@::@@:@@„:43 @:@:@3:@ 3: 9: :A:@@9 94@99A@A@:9:99 3993 9 ôÌ 3289ƒ:"9349A 339A3 9 :: 3:@: 3:9A@:@ƒ: @:: :@:@:ƒ:@:@:ƒ@/::@A 94::@:A9@@:9 33:k:A3@49A:::9 :: 3: 3 öÎ123b2b8: 3 93: k @A3 @@9 3@@::@:@ ::@:@:@::A@:@ƒ: :@ƒ:69 ::@::@:3 @:@::@@3A:3:::3:@:@:@949:9449:93 3 3õÌ*]223ccb::39 99Aj: 3 9:3::@ @ @:@ 9:@3:@ƒ: 9„:ƒ@::@::ƒ@:@:@3@@ƒ:*A@@:9@: 3:@@: 3 : 9:: @4@9 :93 :  : 339 öÏ%288c8:: 33 :9A3: 9 @@ 3 @d 9@::3: ƒ:ƒ@ :9:9@::@@ƒ:@…:3 :@;:@:@3: 3@:@A::@: @:49:@:9A@:9:99:9 3 3 õÍ32]292cb:: 9: :: 3 j ;9@33A9;9::@::@ ::@:@:@:: „:3@::@9 :3:@@3@:@:@:@A:ƒ@::393: ƒ: 99:@@:: 3 :…93 ÷ÍA3229b9:9 9 3: 93 @3A@j @:3:@::@:@::@: 9@:@::@::9@:@::@9:@:@:@„: @@:A@:@:@;ˆ 99::AAk 9: 3 … øÎ'3,223\i::93 9: :3@@A39:9:9 @: ::„:@A:: 9„:@9: ::@:9 3@::@@:Ž9:AA::@9:9 9ø‰Ð329]389 :3 ::9 : @@3@3::9ƒ: 9::@A@39 949@…:@:9::@::@:@ :@@:@:@A@;9:@@:A:9 3ˆ ,÷ÏC23,32]3b:9 99:33:34:3@ : :@::@j::@::::9 99:9:::@:9 3:@:A@:’9@‰ø‹Ñ>323c293:: 3 :3 9A@3: :@393@ 3:94:@::@: 9@:: 4@:@::9 2 :@:ø­Ð=23232]8c39 3933A3A9 :9:::9:: 9:: 9 39::9 3::@:9 ::@::@­ øÐ)23\33]843@@394@3 9::3 ::33: @3@::@ƒ:9: :@9::ƒ 9::@:ø°Ñ%3,3232c8:9 3 3339A9:3:99339 ::3ƒ:9: :@ƒ: 9@::@::ø²Ñ7,323]32]:@33: 3:3:: :3 3:3:: @@: 3::@: ::@::ø´Ñ$c2322]38:9:@ 3 A393A3: 9 :: 3 9:9ƒ:99 3:@9 ƒ:@::ø¶Ò323323223 @39@@A3 9: 39:33 9: 9::9 :9 3 3 3 9:9ø·Ò%]32323\99:34 Ak@3 3: 9:: 3 9: :@3†:@ ƒ@3ø¸Ò&c32323283:9 @AqG33:9 9 39: 3 93;ƒ 9 9::@;ø¹Ó*323]23]39: 3@@A@k 3: :: 9: 39 9:9@::99ƒ:@ø»Ô ]3,3]223 9 ƒ3:@9 33 93::3 9:3:@:: 3:@ø¼Ô*c3\32338:93: :: :3 9: 9 3: 3:94@::9@4ø¾Õ)c3b323223 :93:9:@@3:: 39:39@ ::@3 :@ø¾Ö'33,322923 9 @A9 :3A@@:3@ : @: :3 3@ ø¿Ö 2]c232232:9 ƒ3 :9::3:A@3@3@ 3 3 9øÀÔ ]cc]c3c,2c8ƒ:3A: :3:33@ƒ 3 9 33ø¿Õ,cc]3c]c33bc@9 @@j :93:9 :33 9:9433 3ø»Õ,cc2c32232 3993@A3 99:: 9 3 3 3 3 3 ø»Ô23ƒc,33,2\9 : 9:@ 2@:9„9:9 3@9 9 3349ø»Ë,22…2323]]ƒc23c3339 :: @A@@†:: 39 3 :3 3øºÊ233„23]2,22]cŽ3]\3299:3@4 ‡:9 :33 943 ø¹Écc3,,2,323323323]c233cb3„ 3@@3Š 99 9 :ø¸Ê23„c32ƒccccc]b3c3,38 3@@393ø½Í 232-c],„c -c2]c23ƒ2 9A@@::øÍÎ d23232Ž3c]3233c]]332,3 3 øÎÏ3233ƒ2332Ž22]9]3]]8c92 : øÍÐ32]2ƒ,3cc]ccc“3c]cb93 ƒ9 øÊÐ3]3ƒ32,3c23… ]“3]23]8ƒ93 øÈÑ \,]23cc]ˆ””“]c3\22 :: 3øÉÕ232]ccˆ2Ž“c332928 9:øÅÔ332c]3‰3””\33,83,8øËÔ2c]cc3cc]„22øÉÖc]’,23“ŽøÌíŽcøÌøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø,23,]9ø°ø‹]23ƒ28c\]ø¯øŠ 23c38cichiicø®øŠ 32b9\c8“h]]ø­ø‰22,ci22cb9bc8ø­ø‰3]2ccbcc“ibc]ø¬øˆ,c232i“™bibcicc…c2ø¥ø‡2,c“™™“>2chc]c…cŽø¥ø‡,8“h“™’™Ž898b33„cø¤ø‡2,32™i™“™“hi2“bccc]cd23\øŸø…"2,cb“™“h™ci22ccc]c2cc]9]øø…%, bic™“™“ih\23c]c3232c]3322::  øšø…*222ihc˜“™“i9b9,3]3]2,9]232c]:@A@9A9ø•øƒ'2,-cibic™™c8c8c2,3323]c]9 :@:93Aƒ@ƒ:ø“øƒ*32c3icibcbi“™c]8cb]c32,3,c]9:2 :@A39AkƒAkA2†232øˆø&c2-c2,hc2chc’™“cc29cc32-323cc@39::9ƒ@AqA@qkFAqA2,32]c3]]2ø‡ø9]23cc8c82cbci““™cc“h322c] @:::@A@k@A:q@A@GkG@3@3232ƒ23,3ø…ø@2c322ibi““8ci’i“Žc2c23233] 9:@:A@:@k@::9::@kGkAqA @@,3]c3]9]23ø„øA2238“2ii“i“biibcc“]c8i2,32:@A@:@:j:@:A:@:@@A@kGkGjAjA:c3c]c3]3\3øƒ÷$]32c™“2’i’™ib8c“Žccbc232k@@kA3: :„@AjA@:@3 kFA@ @:c]2:@2c32øƒö=2c32“8“™“2“i“™ibc“d9cihcA@@A@3Gk@:@;:kGqAqAk@@Ak@@:: @@3A@ƒA3:9::øö32]2ƒ™ b:G29bbi’™GAƒ:1cbcib3@:@A@k: 93G@A@AjA@A@AkG@-:@@4@:9A@@A@@A@@::÷õ?23]38“:@qG38cci™“AqG::““bibG:@:9:@@AqA@kk@@AkGkA@@kA@ 339A:@@Aƒ39@A@@:öõFc]2c9qGqAk928b““GkGjiŽ2c9kGkA@AAjAG@A@9@kGAjGk@@qGqk: @ 3:@::@:k@ƒ:9õô)3]2c8:: ccbG39cchqGk@AŽ22cAqAjA99:@::qƒAqk@A@Ak@kGkG:@qkG3@Aƒ:@A::@:@:ôóH22,829qA2 b“G@:bcGAqGk@AGAG@:Ak@A:A@3Ak@j@GA@@j@@3A@Aq:@AqA @:k99:: @…:óñP23]3cbGqGqi“qG@38k@qAA@AkGkA@@9AA@@:@kAGj:@:@kqAA@A@A9AkGk::@:@k@A@::9@@::@9 óï233„2L983GkqAciqq:38iqGq3@@kG@k@;9@:j:k@@3@:qAAk@@AqkA@k@A@@A@9A@3@:@ 3 Ak:9 9:@òîU,2]]292b: AAqGqAGkA 3bGkGq ::kGk3::9 @::A@@:@AqA@qGq:@Ak@kAk@AAk3A@::@@A@@::9:3 ñêY,2333229b9b33@kAqAkAGqA “qGqAkAq@A@ 9@:Aq::@ 93A@:99:GkAGkGkG@@kFkGkG3A@A:@Ak@k 39:AA93ñécc,3„2;92::@3GkGq@@AFkAp@kGAqAqG@AjA99;GkG@:@:39::@A 3 qAkAq@k@A@ƒ:@@qAjA@jAq@A@A3:@@:ñæZc223,23b  3::3:AAjAqAA9AqA@qAkA@Ak9 9@Gkq::G@A@kAjAAk@A9G@AA@j::@@3GA@kG@kAGAkG:@A9ƒ: ðåZ2-c-2,32 39 :: 3@:@AkGkG3A@k@AqAjA@9@@:qGq@:9AkGA9AApAA@@3AjAkGA: @kGk@AkGA@j@@3@A:ƒ@:9ðä523c]223 9 ::@@kA@A@@:@jAFk@@32ccqG3c2]q::A@;@9:ƒ@:9Aƒq@@;:9Aq@AjGk@AjAƒ@ jA3@;@A@j::@ƒ:ðâ:,c]]22983 :@3A@@A@kGkA:@93:AA@A@3ibc“h™,b32Ž23::@A@3AkAƒq&HqAAq@A@:G@kA@A@A@k@:@:A@kG:@@A:9 9@ ïà`233232c8c 9A::@::k@jAAq@9kAqHq@::@32chi““2928]“Ž23Ak@A@ kG@:@:G@k@kAj:@A@@:k@jA:Ak@@kGk@@kAjA@ƒ:@::îßQ]2]238c8:9:@@kA@::3G@rGAqGqGk9:: 389bci™28323“ŽccA3:kG9 @A:@qqAGApAGqq:qA@@:„@;@AkG@3 k@@„: í߃cG”3]284:93:AqA39@GqAkqqAjGqk::@@qGkb828cbc22Ž“c A@qq ]qrqA:AGkkAA@qrƒAjA@k@::@k9:@:3 p j 3A@A@9 9íÞi223]2,2:9::@Aq @AqAqAqA 9AkGGAqAGk@Gk::AkAchi2cŽ“c3@jAG3cGqGkG9kG@q:qAqGk@Aj:AA::@4@ jA@: 9A@j::9 íÜk,33,32: 3 ::@:@A@A@A:@:FkAGqAqAqGk@kGkGqrwrwA9:9 dc,:A@::9::@:qA:Ak@A:@9q@Aq@AAjA@9;@9::A@A@k@@: :@: íÜ023],89Aq :@:A@:99:kAjA@kAG@qAqAqGqrGrqGqGAG:G@ƒA8GAc2@:@:AAG::GqGq@Gk@9A@GAjA@A@A@@k@Aj:@@Aj@:Gk::A::@:íÛ@2]332292b9 9::3:@A@:A@A@kGk@rqrqA9AAqG@q:GkqAqkq@@kk@kA@kG9:9„:qAqAqAA@k@A@k@AjAj AqAqƒ:@:A@:kGqƒ@::9 ìÙ,23]c,2ƒ: 3 :„@;@kƒqUGqqHj :GkG93Aq:@AqGq:rMrrqGA@@AAkGk:@:AAFk:GqGkGkGkGqAjAA:@A@A@Aj 3:3A@@:@:Ak 3 3ìÚ]3,92 9  ::@::@;@jAG3 @:@:„@NkA@AqGqAqArqrHqrqrGrxqqr@q@qAGA:pAkGA@::9:9AqqGkA@qqAjAj:9::A@A@:@:k@:99A@:@::ìØ]ƒc832 3393:9: :39„:@ƒ:AGkAkGƒ:7@Aj:@A@::GqqHwrqxqHqGqAAqAq@qAqGk@k@qAGA@@qAApAAq@A@::Aƒ@k@ƒ: @9::A@::@:33ëÕ'2c3c2cc\833 9 : 33A@:GAq@AG@:@:@:@:@kƒ@ AAqAqG9rGrqHqHqrqGqqAqqAqAkGAqA@ƒA'qAqA@k@AAj@ 9AAFA:@A:@A9:: 9:@AkG:@:9ëÕ]2232c2 9 3 9:@A@k@@A:j@†: @kAqqGqGrƒqGqGq::qGrwrqNqxqB@AAqqGkFkAjG„qGkGjAr@kA:qAjk9@::ƒ@q: ::@A@@:@::3ëÒw2]2d2]3b33: 2@:@@AjA@:A@@AA9A@kFkGAqGrGkqAA:@rqrA@rGrqHqHqrG:AjqqHqrGqGqGkGqGkGkGAqqAGApA@A@Ak :@:qkqAq99:@3Aj@:9:@:ëÑ,3ƒc328: 3ƒ:h@@Aj:@::3Ak@@:AjGAk@qqGk@AG@::@:AqGqGqqGrwrqx::qHrwqH@rqGkGqAkGqAqAjHqAjAAjAk@k@:93: @GqGAA@:: 9 :@4@: ëÑ92]]c3ƒ23:9@ 9: ƒ:@ƒ:@GjAkwrxqqGqAqA@kGkkGƒqGA:qAqAqqH@A@kGƒq.HrGk@@rrGqAqAqGqA@AkGqAqAGjAAF A:9::kGk@AkG3ƒ:@@:: ëÐ]2-c]2- 3 :@@:@A@:GA@@:@:ƒ@H::AGkA:GqGAjGGkGqBqkGqHqGq A@kA@kG 399@:@qqGqr@:GkGk@AFrAq@:qA@k:4993ƒ:9Ak@Gk9@@:@:9ëÏF2cc]c]9b 3::9A:@kqqA@k@@A@A@@;A@@AkG@qAqkqHqrqrGqA@A@:qkGk@Ap@@:@::ƒA@rHrGq::qGqA@kAjGqqG:„@:qAq@:@ƒ: AkAG3AA:: ƒ:ëÍ 233]2c32cb 3:@@::A@qA@@:@rqqkqr„q(A@kAqrrMA@qGqGqAkA@j:@HqA@:AkGk:GkGk@@Aƒq-3A:GqA::Aj9kGA:9A@AjA:GAA9:@9:qG,GkG@kAq@: ëÍ 2c]232,92:3:@„:9A:k@kƒqGkGAGA@AAGkG@qGGqkq:@kGrqGƒqH@:rqGqqqGkG:qAq::@kA939::@Aƒ@$AAjkG9Aqr:: @:@k@ q@A9AqGkGkG@A@k:@ëÌO,32c3]929 @:::@:@AqGqAGAAqAqqAjA@kqAqAkAqGGqH@rAAqAGqGqk@@qrGkGAq@@Aq 3@ k2„:%@@:AjAk@@: k9rGqAq 39A@A@:3@kGkGkG@:jƒ@:ëËy323]3c]b 39:9:A@@AqA@AkGkqA@rqrqHqrqGqGqGqArrqrAq@qAqAqAqGkGA:AqAq :3A@::9GkGA2:@:Aj :9@A:@ qGqrGqA :@k@A@AkGkGk@:@A@kA@A3ëÊy2]232cc2cb:@A@:@@:Aq@AqAqAqGqqHqHqqrGqGkqHqAq@:GqqAqGqqGkAqAqAq:qGkA@ 9@34G:kG@A@:@AqA@A:@kA3A::Aqqr9k @@AdAA@qAGkG@::A@@k:@ëÊy23]2-32cb:@:A::@::A@AjAqGqqrGqqGqGqGqGkGqqrGqG:qHqqAqGrAqAGkAA@A@r@q:@3:kGq::AjA9:@k @k@c]A@@:93rGqGG:@:@AjA@q:3Gkk@k@:@:@:ëÉ 323c2c]2:ƒ@s:@A@:q@kGkGqAGkGqAkAqHqrqrrGrGqkqr9rxrGrqGqG:kGq@k@@::A@:k 9 3:AG:AG@@A@c]c2@@:@:HqrGrkGk@@:@k@G:9AGqA@A@:A@:@êÉU2-2c3]3bc ::@;@:@:qGqGkGqqGkGrrqHqxrqHqHqrGqrGrGq@GqrqrqrAqGAkGqA@:qGkG@k :@Aq@3]@@„:(@33]3]]33@:GqqA@@A@e@:@kAA:qAqAq@:@jA::êÉk]c3c32c@:@A@k@:A@kAAqAqGkrGrqHqxqGqGqrwGqqHqrGrGrAqGrGqGqGqqGqGkqA:GkAA@:3@@:A@3 3A3@@9:9393c22c33@kGAkGk„@A9:Gq:@qkGk@A:@:@êÉpc2]32]b9:@:@::@:qAqGkGkGrGqqGqqGqHqHqHqHrGqrGqqrqqGrqGqAqrqGrqAqHqAq:9@3@:G-@3:9:GqAk:cc-22]3,c]@qAqAq@Ak:A@ƒ: 9AA:9A@:ƒ@::êÇ22332]c89b9:@k@:@kGAkGqqGƒqGHqrGrqGrqArqxqqrxGrA@xHrwAqAGkAGAqGqGqkGkGAqk 2@@ :kA@A@:A@Ak9-]2332-3ƒc]GqAqAƒ@jA:@@:GkA@kA@qAk:@ :éÇy2]”cc\c::A::@AGkFqAqAqGrGqHqqHrqrGqxqHqHqqrqqA@qrqGrqrqGkGkqBqAAqAqAk@9AGrqA:@A@@k@k@k@ 3Gk@:93-23kGqG:kAkA@@:@@kGk @AkAq:@::êÆ 32]3c\]iib::„@BAjAjGkGqGrqAqrqrGqrMrqrGxrqrGqHwHq@rGrqxqHqqrGqGqGqG9qGkG:@AqAAqA3ƒ:/@@:qA@A:@:@Aj:3\323cqrq:G@k@G@k::@AkG3:9AFA@A@kêÅ2]23\ƒcWbc9::@AkA@A@qAqGr:GqrGqHqqrwrqHqxqrMrxGrqrqA@qGrGrqHqGkAqGkqAqAqAq@:@Aqk@G@A@qGkA9k9:„@":2Gk@:GqG:kGAkA3@: @qAq 9kkA@:@:êÅ3323„cCib::@A@ApAkGqArqGqrGqArqHxHqHqqxHqHqxqrAqNqxrGqrqGqqHqqHqrGkGkGAqA@ƒ:*qAGk@jA:AAGk9A@@94@::GAqAG3@:rGkGk@@k@3A:ƒ@ 3:A@k@3:ëÅ,c2c]„c@:@@AqAk@AqAqGqAqqrGrƒq:xqxrxHwrxqxqHwrFrrqGrrMrqHqqHqqGqrGqGkGkGkG:@:99: @AjGj@@Aƒ:"@:@AqAjAq@3:@qAGkG:@k@A@9:@::9:AGƒ@:ëÄ2233]3„cq:@@AjAjGqAqGqArqHqGrqHwHrqHwrqrwAr@rx9rqAwrqxqrqrqHApGqHqAqAqGkG@AkGj::@kq :qAqA:9 3:@:@A@AkA::AqGkGq@@:A@A:@:@„:9A:9A3 êÄy]3]2cc]ch@@:A@A@Aq@qAqqGqqHqrwrqrFrqxHwrxqx@AqHqxrGrGrGxGrMqqHqGkGqGkAqAkApAAqGA:qAqqAk@qAAp::A@:9AjA@q:@GkGqkGA:q@A@@::AkG9 9::3@:9éÄy223]c2cci:AjA@@:qGkGkGqArqrGrGrGrAGrqrqArGr@:qxHwAqrwrqrqrqGrqrrqGkGAqqGqAqqAqAqA@HqAGA:AjAA@@AqA@:@A@A@AqAqAqAj@;@j;@: @@:A 39: @:@ƒ:èÃy3,3]c3]cch:@A@k@kqGkGkGkGqHqGrqqrwqr@xGxGArwrxqAxqrxrqHqGrGxGqrqHqGrqrGkGqGqAqAqAqAkA@kGkA@kG@k9@AkG@A9qkGj@qGqGqAq@@A3:@:@::pƒ: 9@@:9:@çà ]22c3ccch:k:ƒ@ƒAWqGqGqHqqHqqHq@HxqGrqrxqqGrxGqrNqrwrwrqxqr:GqHqrqGrGqqGrqAqGqGqA@Gj@AkFk@Gk@A@:9A@j;@AqGƒAqAqqHqA@A@@A@:A3@ @A@ƒ::@ æÃ_3]3cccic@A@k@kq@AqkGrqAqGqrqrGrwrrqqHwrGrqGqqrqrwHrMrGrGrMrqrqGqHqqAqGkGqGkAAk@Ak@A9AGkGAkGk@ƒ:9::@A9Ak„qrGrqG::jA:@j:@:9:@@:@:@:@:@:æÂy]2]c]c”]hc@:qAAqA@kGrqHqqrqHqHwrxqHqGrqHqqxrqHrGxGrqqrqxGrqrqHqxrqrGqGqrAkArGqAqG@Ak@:9:@k3 @qGAA@:qA@qH: 9A@AkA9:: ƒ: @;ƒ: @A@@::@@ãÂc]3c2…cyb@:AqAGk@rAqGqrGGqqHqrwHqxGrwHqGrqNqGqxqrGrGrGrxqHwrqGqHwGrqAqGqGkGkGkGkq@AA@q 9AqrAk:@qAjA@AjA@:99AA9AAkFk3:3A@@::3@:@::@k@9ƒ:9â 2c2c3]c]cb:ƒ@\Aj@@rGjAAqGrqHqqrMrqHqqrqqrqxrqrxrqHxrqwHqrqGkGxrGrqrqHqrGkGkGkGkGqAqGjqGqAqA@qG@G::GAk@:3@ƒ:#9@@kGAkA:9 kA@9: @:k @:@:@:9::âÂv]32]c]3cbc@@Aj@AAqqrG@qrqGrqGrqrGqqrHwHxrMrMrxGrwrwrGrqGxrGqrqxqHqNqrGqqHqrGApGqGqGkAAqqAAq@AkG33Gk@G@@ @A:9kA@:jA@qƒ: @@:: :9@@„:@@:@::ƒ@ àÂc2323ƒcMih::A@kAkGGqAqAqHqrqGrGqrrHwrqrwrrqxrwrqHrxrqGqqrGkwHqHwrqrqrqHqqGqqAkGkqGkGqƒA)qAkA@@:: @kAkAk @kA:qGq:@AjGA::@::@@3:9„:3@ƒ:@A@ @;@3àÁc]23,c]ƒcyiA@jAAq@kA@qrAGqqHqrqrGqqxqHxrNqxHqxHqxxqGxGxrGrFrrwrqrGrGxGqqHqGkGqGqAqGqAqG93:@9:@A9@:@@G@q 2 :@:GkGA@A@k9:@AjA@A 3 jAA@33::@@kA33 3ßÂQ323c]cb:jA@kA@GqAqrGq@ArqxGGqGrHxrqqxqxqrxqxrGxrxqrrxrxAwrHwHwrwrqrGrqGrGkHqqGkƒ: 393…:@AkAkG3@: @:@qqkA3@kA:G@kFA::3ƒ@@9AA: :@k@A9:@:9 ÞÃ23]„cyh:@AkGkGkGkGqqAAqqNqrqGqrqxqNrxrHxGxrxGxrwrNqxqNqAxqxrqrGrGqHqGrqqAq AA G3 :@3: 9:@:9:@@:@k@9; 2@:A9 q qA9@Ak@A@:@@k@A::9Aj@9 :A@AjA9„:ÞÃU32c3c]hc:A@qA@kGkAqGr@qqGrqHqqHqxHxqxGxqrxqxAqrxrxqGrxqxrxqHqNqxqrqxqA3AA9Aq@@kAkG:@Aƒ:$@: ::@A3:@AAq@kA2A@@;@:3 G9::@@:@::ƒ@j:9:@A:3 jA@AA::@:9ÝÁ,,c]„cKh:jA@qAqGApGkqrHqGqGrqGqrqxqrrqrGxqxrGxrwH@xqGrrwrrxqrqr:@ 9@9::@Ak@A9:9ƒ:899 @:993k@@AAFAqA@k@@ qAq qA@:@kG:@:;@:@ :@:9@:Aj@k„@ƒ:ÝÁ]3cc]ƒc)@:Ak@qGkGAqGrqxqAqrqrrGrNqrMGrwrrNAqxqxrwƒr qGxrM @ @@ƒ: 9: ::3A9 3 9:@33 3 :3::4ƒ:/9:@AjGjA:qA@@3A@:qAqA@:3 q@k3:@:9A 39A@A:@A9@A@ƒ:@:ÜÁ7ccc]c]cbi:@@AqGqAk@qArGrGqGrGxqxqrrGrqGrwrqxAxrqNA@:@:ƒ@:3@A::9 : :9::9 qA9„:9@:@ A9::9:9@@:@:@kA@:@kGkAqqA@qGqqA@@kAA@@:9::9: 9;@:9ƒ:@:@3ƒ: ÜÁc]c3„c*b@:kGAkqGkGkGqxqrGkrqrNrqNqqrqG:Gxr@::@:3@…:_A@3 @@:94939:A:@A@AAqA@@::@::9A@9 @: 3@::@::A@AkG:q@qGkGkGrAqGkGA9A::9A9 3@:@9::@::@ :@@ 3Ü ,3c\]c]hc:ƒ@(qAqAqqGkHqHqqGrMrwrxqr@@::@:::@::@:@:@@ƒ:Q@3:@A39 : @4@@ :@39::::@@A@:3:@3:@3@:: :GA@@k@:AjG@AAqGkG:qGkG:kApAp::9 :3 :9 3…:@ƒ:@39ÜÁ32c2c]c]ch::A@kGAqHqAqqrwH:@A@Aƒ@A@:@::@3ƒ:@9ƒ:'9::@@:A 9A3:9: 9@3:@ 3::@@A@@:@3:@: @ƒ:@:@:Gkq@A@3 @@4@jA:@kG:qAAk:@GkƒA99:3@:9:3 :9::@:@:: ÝÁ]c]3]9ccbc@:3 „:@::@:: 9Aj@:@A:@:@:: 9 …:(@::@:@ 99: 39493:@::@94:@:@k:@: @@: 3ƒ:9@:@ 3@:A@3@A3k@@:A@:q@k@Aq@@:@AkFkF3 9 : 93:@99::@49: ÞÁ7,c2c]c]9c:@ :@:?::@@3 939:A@:AjA@:@:@:: ::@:9:9:@@4„:@ 94::9 ::@@49:ƒ:@:3 ,@::99::@@39 Aƒ@*:Ak9:@AkAqGAqG:: 3 39AAqAA@3@:9 @@::9äÁ3c]3c]cc]h::@3ƒ:99:949;@:@:@@:@„:@9:99:9ƒ:::@:9:@933:9: 9: 9ƒ:@ƒ:?@:@:@3:9 3::@:@ 39AkAk @3@kA@9 9 33:9:99:9@Aq@A@3 9 3:: 9ƒ:äÁ82]]38cc]i: 9 @9::@4::@:@A@;jA@::9@;9 3:::@:@:9 :@@ƒ:A@:9ƒ:9 3 @ƒ:@9:: 9: 9::@:9:@:@ƒ:(@Ap @@kAqApAq3 9 @ :::qGA@k@A@@A3@A9::9ƒ::äÁ+3c2]c3‡ccb@ 3 @::9::@9:@@:@:@@::@::9::9: 9 …:^9:@@::@:A9:@:43::9:@:@:@9::9: 93394:93 ::@A 9AA3@k@A@A @: :@kGkGk@:GkAk@@Ad@:9: 9:3 9::åÁ2]3c2]cc]c:33:9:@:@ ƒ:A::@ˆ:::3:3::@::@A@:9:@4@:@:3:9::ƒ ::3 9:: :@ 39:@ƒ:,9@:@@:39 k@A@:@k:9A@kGq:A9AA:@@Aqq@A::@A@ƒ::9åÁ]2]3]„ci: 9ƒ:ƒ: :…@:@:…@ ::9 9 :::9…:9„:#@A9::9 :9:9:9@:9 ::99:@ 3:9:99@„:.A::9 @A@k:@3::@:@AqG:@ :@3AkG@A::9 3 :@:: 39:æÁ329\23c]cb@3:9:9@:3:@33A:A9ƒ:@::@:: 33@3:@:@:@@:@@ƒ: @:3:@:3ƒ:ƒ:D 9:3::39:: ::9::@:@:@@::3@A93kG:@:qqAq:A9:@3G@kAj@:: 39:9:: æÁc]]39]cc]i: :9@::@3:9@@ @@ƒ:@::@:@:9 9 :::@ƒ:9ƒ:…@ 49 ::@@39ƒ:9:: :@3@:9:3::9: ::@:@@ƒ:(@]@9:A9:9@@k@:A@qAk9: @:9GkA@@3 :: @:èÁ 2c3\3c]ccb@:ƒ:@ :: ::@:@3 9@@::@:@3:@::@ƒ:/@3:@::@;@@39:9 39::::9:9:@:@A:: 9 :94::@„:@:9 :9: :@:A:@: :3@A9:qqG49Aƒ@ :::9 3@:èÂ'c3]9]c8cc::3: 3::@39 :@:@::9;@4::@: 3:9„:@„:[@::@::@:A9::99:: 9 @:@::@:@::@::9: 9:9::@9:::9:9: :99:@::@@:Aq::@kA@::3:3 9:çÁ!232]\9]bch:@: 9@::@: :@@A339@@ƒ: 9: ::@::?:@ƒ:@„:+@3::@@4::9::3A9::A:@:A@:@9: 99 ::@::@:@ƒ:9†:AAk@3:A::9kG:9:@:@ƒ::îÁ3]32c]b9bi::99ƒ:@:: 9::j::@::@:@@ƒ:@:@::@ƒ:@:9@„:&@@:A: 3@:99 :@:@:::@9::93::34993@ƒ:@::@3 :@9@AqGA@: 9@qHqG;@„:@@3:îÁ\923]38cbc@: 3:::9:@9 @:: 3 ƒ:@::9::@::@:9:@ƒ:ƒ:J?@@A:@9@9::9:@:9:@::3:@4:@9::94 93: 9 9 :9:: 3:9::@A@:kGk: ::@kqA: @@ƒ:9:îÂ2]3b3bcibi:9: ::@: :@@: :3:@@:@:@:@@:@::@:?:@9„:@@ƒ: A@:A @::9ƒ:49A9@;@ƒ:@:@:: 3::39@A993 9ƒ::@::9ƒ@93:@AAG:@::@:: 9 îÁ*3]23328chch::3:::@ 9;@:9::@@:@:@:@: @::@ƒ:@…: @:@:@4@:@:@ƒ:5@::9:::@@A@:@@:@@:@3@:93:: :9@ : 3:A@Aj:9@AkGkAA„@ k@:@39@: @ îÁ223]2c8cbic@3:9„::3 3:9@3@:@::@:@ :@ƒ:?:@:@:@9:@@:@::9@A:@::9„:@:@A:@ƒ:@A3ƒ:/@:9: 9 2:: @@3:9:@@A@::@ :Gq@qAq;@A@k@: A9 :ïÂ]9223bcibi: 3 @:@ 3 3:: ::@ƒ:@:3 ::@:::9:@@†:ƒ@::@9ƒ:ƒ:@9::@9ƒ:9::@3:@9ƒ: 993 : 99„:ƒ:@:@†:9AGkG3A3Aq:: k93ïÃ+]3292bich@33 93:: :9 39@::9@:@:@: 9:@::@9:9ƒ:@::„:A@Aƒ: 9::9@::49ƒ:9@ 3@A::9:@::9:999:ƒ:@Ak ::9:ƒ@AkGqAq3GA@9 :@ :ïÂ.23232cbchc@3 3 @@:@9@::@::@::@:@4::@9::@::@ƒ:@:9@:@9::@@::@@A@ƒ:9::9:@A@A:@@399:3: :4ƒ:!9::9::@9:@::9@:A@@qGkG9kG:9:@A9 ïÂ]3,ƒ2#9bic@@ 9AA@A3: @A@:@:@::@ 9::@::@ƒ:@@::9„:@„:@:ƒ@„:9::@:@A:A:@@94:@::3:9:9:99 ƒ:@:@ƒ:9:@ƒ:@A::A@::Gk@:@Aj ðÂ!232329bchi:@3 9:jA:A3:3 ::@:@: ƒ:9:@::@„:@:@:@:@9:@:9 ::9@::ƒ:@:@:@ƒ: @::@::9::@4ƒ: ƒ:@@A9 @:9@::9:@k@q9:q:A9 :@A3ðÂ]323b9bcib@3 ƒ@:39:3@4@:@9::@ƒ:@ƒ: @:@::@9::9:@„:@@4::9 :@99:@:@::9::@3@ƒ::::9: 99 :9@@:@@A‰:@@AA:GA9:339::9ð 322]bc8ch@ 3:@Aqq::3::@::9:@ „:@:@::@„:@„:@@:„@:A9:99ƒ:6@@:@::@ @::@3@::94::49 93@::@@::k9:@@99::Aq39k:9ƒ 3:òÂ\332329bcic:9ƒ: qA@ 9:@†:@:@:@:@::@9:@9:@:@„: @;@::@3::@;ƒ@::@ƒ:9::@9::@::@:@:9::9:9:@ƒ: @;9:@::@@…:@@A 9G:: j 9 c,íÂ3c3ƒ2 cbibh: 3:@ƒA :9@:9@4@:@::9ƒ:@ƒ:@::@::@::::?::@@„:K@:@@:@:A:@@:@:@9:@4 9 9::@: 9::: :@@AA@::@::@::9::@:9::@:9: :232,2êÂ2]23329bcci::9 ::@jA9  3 ƒ:"@::@@::@:@:@:::@::@:@::3:9:@@:@„:@:@A:9:9 3: :@::@„:!9:: @:9::A@k@AA@A@::@9:9@:@:@@ƒ: :@:22323ëÂc3\382cbhc@: 3:@:GkA:: 3@ @ƒ:@:@:ƒ:@9@ƒ:@„:@@ƒ:(:@:@::9@::@9::A::@:9:@9::9:@439:9 ::9ƒ@ Aj@A9:@::9ƒ:@:@A:@3:@ 9::32, ,íÃ)]232]8cbib:@3@:A@k::93:@33:@:@::@:@@9ƒ: @:?:@:@::@„: @:@A3@:A:@„:!@:@:@:4:: @::9: :49:::A@kA@k@„: :9:@:@…: 9:9òÃ3]328c8cibA 3@ƒ:FA3ƒ: @:9 ƒ: @:@:@::@:@@„: @:9@::@:@„:3:@9::9:::@:A9:@@:@:@:99::9…:9:AjAƒ@:@:9A :@:@::@:3 :@ òÃ\9232c8cbic@93::@A:j3ƒ@ƒ:3@:@:@ƒ:@::@::@:@::::@ƒ:9::9::@:: @@:A9:@A3@„:@::@:@:::99 @ƒ:@:G9A@A9 A:9:99ƒ:@::9::9ôÃ(3]3\89\ibchk@ @::q:@ 3 43::@ :@:@::@::@…: @:@3::@:ƒ@:@@:9;3@A:@:9::@ƒ:0:9 3@:@::3::9: @:9::@A::@k9:A@9 :9 9:@@:::@ óÄ23322cbchi@A3 :@A9::@3  9:9 @ƒ:@:@:@:9@@:@:@@ƒ:@@„: @::@ :@@4:@3ƒ: @@:3@@:@::@:@„:@:::@k@:@:A3:9:9:9::3@:9ƒ: 9ƒ:óÅ&232c8cbci“@ 3:@::@ 393 :: 9:@::@:@:@ƒ: @:@@::@:@ƒ:@@ƒ:*@393:: @A9:A9:@:9:9:@:@:9@::@9:@AA@:@@9‡:9:::9 ::9 @:93óÄ 2,283biihc@@3@:@3:: 4 3@:: 9:@ƒ:@ƒ:„:@@†:@:@3@@:@@A:@@93:@9:A@4@:ƒ:-9:@::4:9:3A@3@:9:@ :@9::9: 3:::3 :@ :óÄ c] 29b9bihk@…: 9:39 @@:@9:9::@::@:@:9@::@:@:@ƒ:@:@:A9:@::A@::A@:@@9:@9:: :9ƒ:9@ƒ:9:@@A@@4@A9@@4:9 9ƒ:9ƒ: :949ôÅ+]2,29bcbii@:9:@: 9@3@@:9:A3 9: 3::@:@†:#@@::@::@ ::@::@A9:@@:@:A@::@99:39ƒ:@:9ƒ:jA@@:@:: 93: @@:::9 :9: ôÄKc2323b2ib“i@:9A9 3@@49 49@:@:::@@:9::@::@@:@:@:9@:@@@::@9:@:@@::Aj:@Aƒ:2@ :9:9 :9:9 :@@A@:A:@A:93:4::9 ::9:@3 9::23,ðÅ"332-8c8cibi@;::3::9A@3: :3 :@:@::9ƒ:@@::@@::@:9 ::@A„:@:A@A9:A:9:@A::@9ƒ@*::9:3@3 9A3A@k@@:@::A@ 3 :9 9:::33 õÅ\c382cbƒcj@:9@:@:@: 39 3:@:@:@:@ƒ:@ƒ:@:@:@:@„:@:9@:ƒ@:@…:59:@:9::3A:@::3:39 9 9:AjA@A:@: :@9: 9 39A3: @3 3 õÆ]3]3b…c-@@:@:@:3 3: 3 ::@:@:@:9@::@:@@: @::@:@: @ƒ:#@:Aj:A9:@9@4:@A @9@;@:9 :9 39:9::ƒ@:@3:@: ::9: 3::3@3:: 3öÇ)c23]9c]cbc@:::@:: @ ::3:39:@:@::@::@::@ƒ:@::@::@@„:@:@@;@3:@@ ::@:@9„:@: 39 :@::@:9A:j :@ƒ:9 : 3::: ::öÆ]323c]…c@:9:9@:9@3@3:@ @@ 3„:@ƒ:"@::@::@::@::@@:@:@:@:@:@:@4@@3@:@ƒ: 99:9@:3:93:ƒ:@:@A@„: 9::@::ƒ: :9:9 :÷Æc23\c]c]cb@:9::: :@@ 9@@ƒ: 9:9::@A:9:@:@:@9ƒ:9:@:@:A93:@ :A@ƒ:9@9::ƒ::4:9:@::@Aj:9 A9 ::9 3:9:9ƒ: 3÷Æc]2]3c3„c!@: ::@:@:9A9:A3@:@::9@A::3:@:@…:::@::@:@:@::3@@9„:/@ :@:@:9:@:9:3 99A@:9:@:A::9A9:@:::::3:: 3øÆc]c3\c]b]cch:3„:@::9@@ 3ƒ:@9::9:@@†:@:ƒ@„:@::@@:@:@A99::ƒ@/:9:::::9:: 9 3@A::@::A9::9::@: 3@ 39:3 3øÇ2c33c3c]ƒc"@::9:@9:9: A3@ 9@@: :: @::@:@:@@ ƒ: @:@:@: ::@ƒ:@ ƒ: @ :3:: :@::@:::9 3 ::@AAG9:@::ƒ:9:3 3:9:: 39øÇ3,c2]c3c]cb:9ƒ::: :3: :3::@@ 3::@:: 9:@::9„:::@ƒ:@3 @: 3::9 @9:@9@:@:9„: :9:9:ApAj :9„: @: :9:9: 3ƒ øÇ]]9]2c]c]i::9:9„:9:@ 3@ 3:@::9: :ƒ@„:@:„@:@„:; :@:@::@@:@A3@A3@:@3:399::4@:@AjA@::9:9::@:::9:9399øÇ1c]2]c]9\cbi: ::@@::@: 9: @ ::@::@:9:9;@::9:@:@:@ƒ:@@ @ƒ:7@@:@:9 3339 :@A@A:@@9 3@Aj@A@3 @@:::@9:@:9 :4 øƒÇc3c3c2]c]cb@:9q99ƒ::33@ @@:: 9::9:@::@: ‹: @::39:@:@A:@„:)A::@@::39::3::@A:@3::@: @:3:::99 3 øƒÇƒcA]b3c3cc9c::::AkA9:9:3 9: @3@@:@ : @ 9 9:9@:@@:@:@:9:::@:@::A9ƒ:9@@9@:3::: :::9:@:@ƒ: @9::33@„:99 ø„Ç(cŽc]3c2]]cb:@9A9AqA@A9@::::3@4::@@::3ƒ: 3 ::@::@::„@ƒ:4@:@@:@ :9 9: :A:@@:39:9 ::@ @A@:9A::9: :: 9: 33ø„Ç%”cc]]c3b3bc:9::GkF::@: 3: 3:: @@::@„:9::@:@::99 3ƒ:5@:@:: A@:@@:@A:@@A@::9:@:9 :@9:9:@A@: :9::99:: 2ø†È(cc]92c]c]8c::kAqG:@::3 9 3:9 ::9 ƒ@ :93::@ƒ:@:: ƒ:@:@k:@:@@;j:@@:949 9ƒ:4@@:@:3:3 : 3: 3:ø‡É'cc]c]c]9]bi::9:@GkAk:: 9339::j:@@ 9ƒ:93:2 ::9:@9 :@@:@ 3:@:A@@A‹3 93:@A@kA::9„3 93ø†Écƒc ]8]c3bc@::9:ƒ@ 92:3 :9 3ƒ:@ƒ:9 9:@:@::9 3::@@:@@“3A::@A@:A9@: :†:33ø‡Ê,c]3]c3]ccb99:@:@A:9: 33 33@ 3:: 9@::@ƒ: 9 ::@:@::@:–@@A@:AjA@k: 2:9ˆ:ø‡Ë]ƒc"c323bc9: :@k:@:9 :: 2:3@:@::9 3ƒ:@:9:@ƒ:9ƒ:@¥ ‹9ø‡Ëcc2c]c3i8:@@3 @:@A:ƒ@: 3@: 93 3::9:  ::@:@:ø¾Ë]c]3ƒc32]ci:: 3:@:@::@;@:@3 : „:@ 9†:@:øÀÉccc2cŽc3\i::@9: @:@3ƒ:3493@ 24::3 2 9øÃÊ.2cd]c3c2]9b8:@ 3: :@:@:: 93 @9A:@ 39:@A3øÄÊ(3cc9]c]3c]c94 @393 @@::9: 3:3::9:3 @ƒ:øÇÌ]cd,92cc]c22:: ::3@: 93 ƒ: ::9:3:øÉË']cc”]2cc]89\3 9@ ::@39 @:39::@@øÊË&2]\”3]3cc3,29 3@;@:99:@393 3 3 :3øË»,2,‡,3ƒ2]c2c2]cc]cc28: 3@ „:: ƒ:9 3 9ø̹232 …2,32ƒ3ccŽŽ2]cc]]9c2cc:9@::† :33 3 øʹ#cd223,2, 23222,cc”3]9cc]c]]9b…:‡ 3 9:: 39ƒ øǹc32ƒ"23c,332-33cc]“c3cc]9]c]8c@ @Š::33 ƒ3:øÆ»,Ž3c]c2323\3]232ƒ3 cc3ci3 3 3  øÆ¿c3232ƒ,c32323]ccc33c]ccb23 3 33 9 9øÄ¿2,32ƒ33232233]9]3]c“2”“]c92:9 9„øÃÀ 3]3\22]3,3†2c-””c3]]cb::øÚÀ]92cƒ323cc]†3]22Ž“¾ƒc]9ƒ:øØÁ23ƒ33\c]3Š3“Ž”Žc3c2:9@ø×Å223,ƒcŠ2]”½”“]c]2c:::øÔÅ-2]c]3‹3””]cci289ƒ:øÓÄ23cc]Œ2…]9c3øÙÇ3c” 2]c3c28cøÕßcc”øØ᎓øÙøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøš,,ø§ø– ]22]c232]ø¥ø– 298322ccø¥ø” 2c-cb3hciiccø¤ø“ 23c“b2c’i]ø¤ø’3]]22chcchcbc]ø£ø‘ 2]2cch2ichcƒi]ø£ø‘,]2ic™™“™2ibicø£ø23™hi““™bcbibccø¢ø3,22cb““˜i“822“c]ø¢ø2]23chcii“bib3“ib3]ø¢ø3238,2cibi’i™b382ccƒc]cøø‹]c23c]ibibii““h232cŽƒc]ccøøŠ2c,3]c2c22cb™“™c223„c]]c,øšøŠ#23288““2829bi“™“c]8,]]323232c3]cø—øˆ2c32c“™™i“29ch““˜c]238c3223ƒcc22]ø–øˆ(]c3cb“b“i’“ih“icc223]2-3c]2]332399ø”ø‡/23]32“ih“™ii“i“ibc-232222c]cc3 3:: ::: øŽø†)c32b™™G@G:hc8“’2idcc8c3233cc]@9 kAA9:ƒ@ @@:3 øŒø†$323b99:AqkA@]8\iicb@:]8c22,]c :9: „@ A@:kA@k@@A@ø‹øƒ7,22c22::A“8qq29bi™“@GkA99bc339 9A3AA@::@:@:AjA@A@@A@øŠø:2c]c, b:GkGbcAG38““˜Gk@G: bcb3@@:@@ @:93A:@:@::@kAkk@øŠð+c]c]c,2323]cc29bGkGk9bqG:ch“Ak@@:cb3@Aƒ:3G:@:ƒ@:ƒ@::9G@Aq@øŠï4,2]2,332238cb9b 3 @qGciqA:8Ak@GA@Aj29h:@@j:GkA:@ƒ:kkAk@::3Gk@A:,ø‡í-,33222838\cb9c Ak@:k@cqG:,ibGkq:@Ak@A@3 „:ƒ@ k@AjA@A@@A„@ A:@,@32]c2øƒí c2232c238ƒ3@ 9 39k@A:@A@@kGqcGkGA@kAGk@A:3@AA:@Ak@A@AjA@@k::Aj@ ::c23,øƒê]2ƒ3b922 3ƒ@::@::@A@A9:@:@@kAA@bGƒq* 39::@:9 @@::9A9:@Aj@AqA@A@:@@9@@ ,323øç2]23“3\ƒ23 : ƒ:@A:A@k@k@:: 2:qA@jAkGAAqAA„@$39:33 3AjA@k@A@kA@j@A:@kAk 3 :@A]32øçU2332323: 99 qAqG3 ::qA@AqGk@GrAq:A@GkqAAjG:kAkAAGAqAk::  @:@Gk@::@k@AGq 3 @::c]3øåW23]2,23G@3 A@kG3@AjGkAkGkqAAqAqAG3:9A@qqAkG@q4@@:qAqA@9:33:@@Ak:@::@:@:@@kqA@9:@øä23]23,929::4::3:9 ƒ:F@:@9:@@ A@@AjA@k@AA@3AGkFkA94@k@3GqG:: @@A@:@4@@A@::@@k@A:: 9:9::@33ôá`232,98, 3339: ::@:@3@:@:A@@kAq@A@qAGj@A@39 :@8q:@:@A@@:@k@Ak3@A@j@:A@@3:Gk@@::@:::A:óà2]ƒc ,322 9 …:+@:@:9@:@:AjA@kAkAjAAq@:AkAA@@:@cA@A:AjAk9ƒ:@:9Gƒq :A@3@;@@A@Aƒ@ 3 3:@::9 òÝ>2]2]c-838: 2: 933 9 93 :rq :33A9:@::9Gj:@:kG::@ @@:ƒ@%A9: Gk@AqH: :A@A:3@:@kq@:A@:@ 9: 9 ñÜ2]cc33ƒ2 2  „:@:@:@:@A@@:99:9ƒ:@:@:@ @kA9:9Aq:A:Aq:@Aj9ƒ:&@A@::@@:3::@A@j@@:@:@AkA9:@A:3:@@:9:3 ð܃c 322c 99 3ƒ:@:@:@ˆ:J9:::::9::39::@AA9AGAq9GjA:@@;@Ak@kq 3@ qrG@qAqAA@:@:@A:@:A@k@:@AA@;@::ðÙ]2c]c]232 3:3 „: :9::@:: ƒ@N:@9::@:A@k@@:9:@@:@:9:A@qqAqqHqqrq@:@3AA 939qGk@Ak@@jA@Aq:9:@k@kAA@:k@k@3: :ï×)223]c]c]: 3 9 9A@@:@@9AqA@kA@:@;@@:A@@„AGkAGkG@A:pAAqGqHqqHqrGq:ƒ@k@A@A@k@A@A@A@;:qkAAƒ@A@q@@AqAGA@:3 3ïÖ3,cc3cc32c3 9 @::@:qGA::@::@:9::9 qrrAjAkqAj:@A::@ƒ::GkGjAqAqHqqHqrAA@:A@@3@39kAq:q::@9GAq@:AjA9:@@:3@@j: 9@:îÔ223]c2]b32: :@3::9@ƒ: @:@::qGqGAqAƒ:L@@A@A@Aj@A@jAqA@:@:qAqrGrqrGrqxGqkGkG@A@4@A:9AGjAq::@kA@@j:@A:@AdA@A@::@ ::îÓp23,3c]3c]i3 :9 :9@A@A@:kqAqGqGkqAqGqAqAAjAjGkAA@@A@AkGk@@qAAGqqHqrGqrqGAk@kAjA@A@A@9AA@A@A:@k@;@A@:k@A@Aj:@::ƒ9îÒ2-23c32c 9::9A@ƒ:kAk@AAqAk@;@AA@:@:@Aƒ@:3Mrwqr„q'A@kA9Aq@ArwrwrGr@:@@GqqA@@:q@A3@q33@AjAƒ@::@@::A:@A::9ƒ:: íÑ232c,3]9b9b9:A@@ƒ:…@Aj@A@qG„qrƒqOGqk@k@A@k@AkAAGqrG@::GkGkGq@A9:9@@AqqGr@AjA@k@:@:GA@@qA@;@:@:@::p::p:93 9:9 íÐ,323]c3]]2::@:@::@@:A@:kAGƒq6HqGrGrGqHqrGqGqA@AAqGk9:qAqAqGq:9AqAA@AAGArqrqHqGkqAkƒA!q:@AjA@k@@k@kA@:@:@@:A A:2: ::9 ìÐ232]cc23b93@:@::Aƒ@qkqA@AkGqAkAkAA@qƒAqƒALqAqkG3rwr@G@@A@kAG:9Aq@kGkqqGrGrqA:@rGqAp@qAqAA@@A:@@:@k:@:A@::@Aj:A:9 9ìÎ'c]cc33]32cb@::@Ak9@:A@kGAq@qGqAAFkGwqqGƒqQAjAqAqA@qG9AGqAkq@AkGk::9Gk@3A@:@33: q@AqrGkA::Gk@k@jqq::@A3 k@k: @:@:@3Gk: :3 ëÎ,233\32ccb@::@@„:dGkAGkAAqAqGqqrGrrGrqrHqqHqGqqGkGkGkGqA@AqA@qAFA:9GqA:@qAqA 3 A@qGqAqA@kG@A@;GAA@A:kA@@AA@:@@:kA:Gk@ƒ: ëÍ2 ]2c3]8cbA9@A@:@@AjGkAƒqKGqAqrGqqGqGqAqGqGqqGkGqGqrqxrqrqqAqA@kAjA9AA@kGAA:@q@A:jAqrqGq@:Gk@@k@qAjAj„@ A339@A:@A@@ƒ:@9:ëÌc3c23ƒc88ch:::@::@AjGA@qGGqAqqHqGrAqAqrGkGkGrGqGkGrAqG::NqGrqGk…@8;9kG@@k9qAAj@A@AqHq:@:qGk@Ak@rAA@A@kA:@@:@:@39A@:@ @:4ëËy]c,c]cc“c9 ::@AkGk@AqqAqAqAqHqAqqrqGrqHqqGrqqrAqGqqGqAq:GqGqHkGkAAk@::@@k@ @Aq9@:AjA,]::GqA3GA@qAqq@A@Aj@:@:@AA39:Aj3@::99 êË2323ccŽcib::@A@k@A@k@GAkGqAƒq>rGrGqHqqHqqHqrGrGqArrG:qGq::kGkGqAGjA@A@::@A@k:A:9 39c] 3 Gq ƒ:@k@AqGk3@@:A@;@†: @: @ 3ëÊi2]c]cc]cŽ“@::@kAGkqGAqqAqqGkGrGqAqrGqHqqrGrqrqGrqGqq ::rrGAqA@A@kGqqAqA@:@A3:9@ @@3]@:@@ 3AF3A@k qAG9„:@:@:qGqG3 @@33:::êÉ23cc23]ƒc0ii:@@A@k@Gk@kGqGqGkGqGrqqHqqrqrGrqxHqHqrqGrGqr:Gƒq"Grq@k@kGqAkGk@::@:@ 93GkAq@3@:@k@@ƒ:A@ @qk9q:@:@:@3@AkG:@@:AA9ƒ: êÉ23]33]…ce@@AjA@AkGAqAqAqrGqrGk:HqqHqHqxrwHqxqqxGrq@rGq::GGrqGqGqA@AkGjG@Aj::@: AkFA:@]c@A@A@A:9:2 ,AG3qHq:99ƒ:@AjA@kAj::9 3 éÈ323c2ƒch’c@k@A@k@@kqGqGqGkqHqrGxqxG@@rqHGqqrGrGqrwrGrrqNqkGqGqlGqAq@AqAk@AA@3 :9:@A:q::9Ak9:3:k@3 @@: qGqGqA A@ƒ: @AjAGkG39ƒ:9 éÈ]c2,ƒcyc“c@@AqA@A@qGqAqAkGqGqrGqqHqrqr@rwqH:xrqG@rH9rGqrqGrqGkGqAqGkqrAF@:k@@A2::@:j@AFA9::@:@@GA3::@:q::qrAq3: @:@9:ApAq 99:éÇTc23]ccŽcih:AjA@jAqAAqGqGqHqlGqrqHqqHqG@@rqrG:qNq:@3Gqr@GqrGrqHqGqAqGGqAkAq@Ak@:@A9ƒ:&@k@:@@3 Ak@::@3@A:GqGq@ j:@:@::9:AAƒ:@:93éÇ]32…cjŽc“ijA:AjAqGkAqAqAqqGqrGqHqqArxrr:xHwr@xrxrrxrxqxAGqqGrqqBqAkGkGqA@A@@A@::qAA@A@A@:@AA3AA@@::9 ::@A9qHqG43ƒ@:@::AGjG:@::9:êÆy223d]cc]bA@@qGAkAq@qAqGrrGrGqrGqrHwqrqGqGrqrqGqrMqGrxHxkqGrqGqGqq@qAkAApAqAj@k@::@Ak@:@@kA@3@@jAAF @:9:Aqrq:A::9;G kGkGjA:@: ëÆ3c3ƒc1]c]cci:@AkApA@@rGqAqqGrqrGqrqGrrqNqrqGqrGrqGrqrqGƒqHqrGqHqrGAqHqAqA@AjA@AA@9ƒ@-A3::@:@@A@ :jA@93:@::qGAA@@:@AkGjGqAAp@A@9:êŃc]]c]ƒc4i@@AjAGAkGkrqGkAqqGrGqGrqxqNqrGrqrGAqxGqGqHqrrNqxqHƒqDHkGqGkGqGkA@Ak@k@@;:3Aj@::G3::@Aj]9:@@A9 @A@qqA@k:@:@:qGkA@qA:@@4:êÄT3c3\3cc]cd’:@AAj@kGqGGqA@xHqrqrqrrGrGqrGqHqGqqHqrqArqGqGqGrGqqHqqGkAqqGqqGq@@Ak@@:ƒ@/3 ::@kA@@:@:c::Aj::93@:GkqA@::@:@@Aq qA93A::9:êÄy\”c]c2]cc]cii3 k@AqGkAqq@qrGkGqHqHwGrqqGqrwrxrrwrwHrxqHqGqrqGrrGqHqrGqGkGkGkAqkGqAAkAkAA3:9@@A@k @::k@::9 9AkGqGq ::@:@ Ak:A@AA99@:@:êÄ%33c2]“Žc]i’i:@@kGkGqAGkHrqGqqrqHqrqGƒr/xqHqrMrrNqrwrqxqrrGrqGqrqqHqrGrqHqAqAAGkGq@GkFkƒ@GkGkƒ:@A3:9:@@ƒ:3A@kGrq ::@:k@G9:qqG@„:@êÄ]“]]3…cyib:AkGqGkAqqAqrwrGkHqHwqGrqNqxGxrxqxqxqrqNqHqHxqrGqArqH@qrGqAqqGqAqk@AqAk@AqAAkAqAA@9G@k9A9::@ :9 @@rGq3@:@:9Ak9Ak@;9@:9@êÄyc232cciiqG@kGkGqGqGqGr@AqGrqrrGqGrqxrxqxHrwHxrxqrxxqrMqrGqqN@rqHqrqHqrGkGGk@Aq@AkFA@@A:@kA9A@A3A99:A@@k@A@3@qkHA@::@:9::Aj@@ ::@::éÄW]32,3cŽcŽc“hkAqAqA@qAqAqqHjAqqGxGqrAqxrxqHxqxqrxqNqHwrqNqrGrqGqAqrGqqGqqHqAqAkGjAGjA@k:„@&A@@A:j@A3@A::@@:Gk9::GAjAk@A:9 :@A@A:kƒ:@:9éÃy2c3cŽccci“@AkGAqrqGqrGqrGxrGqqrGqGkxGxrwrxrNqrxrxqrxrxqHqxrr@AqrqHqrGqqGqAqGqA@kA@A@@:@d jAj:@A:@:@:@;@k@::AqAApA@k@ :@@Aj jAF:@ƒ:éÃy3c,3c]ccdi:@@AjqGqHkGqrGrqrqrGrqxrqxrxqxAqNqrxqNqrGxqNrqGrxqxArwHqqHqqHqAkGqAqGk@ApAkA::@: 9A@:A@@3:@A:@@:q AAqGqAq9: @:qAGk@:@A@:@:éÂ]2c„c\ccibk@@qAGqqGqrGqGrwHqGqGrqNrGxqHAwArxqNqxr@r@AxqxqAqNrwrrwrGqrGqArGqAqAqA@AqAq@q@kGkAk@k@ƒ:" :@:3A@qAjGkqGkA@A@3 3Aj 9A@kA@:: éÂc,c„cQdi“@A@AqkGrAqGqAqrqxrqrqNrwrxqrGqrAprrqrrwrwrAwArqGqrqxGxGqrGrqGrqGqGkA@qkG@qAqƒA&kGAjGqGA9Aq93::@kGAA@qGqGA@@::@ :9A 3ƒ@:::éÂyc2c]c]cch:@kA@qGqGrrGqrGrGqGqrqrxrqNqGrwrAwHxqN:xHwrAqxrGAxqrxrqHqrGrqGqqAqGqA@GkAAq@AjG@k@A:Gk@A9AA@ q: kq@kGkGqqA:@:@:3:qA9A@A:@@êÂc,3cc]…c'“i@3::@;q:rq@:@AqG@rrHGGAqGA@::A@::9::ƒ@13993 @::@:9 989“i“AGk:@k@ j@AqGAjAApAj:AjAAƒ@3 @@ qGqrGrqrq::@:@:@9A:@k@:3:êÂc2cc3c]Žci“::@:@@qA@ ƒ:a@:@:A@jAj@:@::9::@::@@:@A@:A@;@:@ :9:::@: @:\i“h“cA@  , @:@k@: @A@@A@:@3@3A@A3@qrGqqGrGq:@:@ƒ: 9A39A@: @:êÃ-c„cci:@:@:@;@A@:3:@:A@jGA@A@@†:)@:@@::9Ak@A@:@@::93:9::33::c’i“icc]2,c9ƒ:"@kGqA39Ak@AkA@ ]3232]]A A@G:@ƒ: 9::A@ k:@:3ëƒc3]c]cŽcci@@::9ƒ@k@3@::@k:@A@:k@:3@:@ :@:@:A:@ƒ:@k@kA3ƒ:9:@:::3cb9“c™“c989: 9ƒ:- 3c 3@@AjG::3  3,32:99A@kAk@:@:@::k @:: 3ìÁ]cc3„cŽc“„::Aƒ: :9:A@@:k@A@A9A:@399„:@:@:@@::9:@39@9‡:B@:cb8““i“2“,9: 3::@:9:9A@kA39A@k@@@::3A@:@Aq@A:9:@9@ 9:9 9ìÁYccc]c]ccci@::9 :@@:@9: @@:A@A@jA@:@: 39:9:@:@::9@: @:: :9@@:@:9 9c8“@™8c8: @:9„:@:@ƒ:@@Aj@A@3@:3:@:q@kAqA3: :ôÁ3cc]c]cc]cŽci@:::@A@@: @3A@:k@jA@@::@9 :9:@@ :9:@ƒ:@kƒ:9@ ::@9: :@3::bc8i„2A:@A9A@@9 94::@@k@Aƒ@9 ƒ:Gk@@;@Aq@::33 3:9ïÂ3cc3„ci“A9:ƒ@'dA@:94@k@@:A@kA, 9: 3:::@kA:@:@:9:@9ƒ:I9:9::@A9:@:@@A:@k:A@3@:93 3@ :9:@:94@:AjAk 3 kAGkG:@k@AAq:9  3 :9íÀ#c,c3c]c]cd“h@3;@;@3@::@:A@@:@:@@†:@::@:ƒ@ : 3 3::::ƒA@:9:9:@3A@AAk @:: A@ƒ:, 9:@:@:@A@@A@3:A9@qAq@Ak@jG9@493:A@@:@::ìÁc3]c]ƒc]ii@A:9@k@@A@33GjA@;@:k:@:@9„:9ˆ:@:@:@@„:ƒ97::@::A@3kAqFA@k9 3 3 @::::AjA:kAq@:@:AqAq@@A@Aƒ:k9::@Aƒ:@99:ëÁ]2ƒc]ccii“@@4@@4@:3 9:A@:@@:@@:@ƒ:@ @ƒ:ƒ@:@ƒ:@9:9:@: :@ :@: ::3@3A@::qAGAkƒ@A3:@: 9::@AAjA@A93A@Aƒ:9 q3Gk:9A@9:@@::3: :ëÁ13c]cc]cch“hAk:9A@3A@3@:@kA@:k@A:@:@:@::@::9:49ƒ: @:@:: 9A „:.: :@:9:@ AkG:AjAq@A@@39:339::@k@ApA@A@k:q@@„: 3 A9:9:: 9::@ƒ:@::ëÁ"]c]c]cbi“i@@::@@A@A3:@A3@:@A:@:@„::@ƒ:$@::@:@:9@A::: @@::9::39:@:A:39 3 9‡:!@ :: 3@::@:9AAjA@A@@:A@:@3Aq:@ƒA@…:@ @ƒ:9:êÀ]ccc]ƒchi’iA@A@:j@::@@:Aj:@@ƒ:>@:3 :@39::@:@@A@:@9:9@A::9::39@A:A@: AGk@@:@:993 39::9A :ƒ:3@Aj@:k@3Aq9A:@:qA qƒ@: @3@::: è¿c3cc]cc2cbi“i’A@ƒ:@A:ƒ@8:@:@::@:@::@:9:3:9@:::4@:@:@4;@::9:9:9:A@AjA:pAjA:@…: …:& :3@:9::@@kAA@:Gk@AApA:AFkAq@k:@499:9ƒ:93ƒ:9::æÀQ\cc]c2ccib“i“@k:@@A@@j:@:@::@:@::9: 3 9@:@:@9:@@A::@::@k:9:::::@j9:9:@@ @@Aƒ@9:9A::@:9 :@::::A3:@@kGAj@Aq@@kGqA::Ak@@:A@ :::@:9:ç¿-]cc,c]]cbci’i“@A9@:jAjAA:@@: 3 :9A9: 939::A†:@:@:@3 A9:::9„:@:A@„:C@@;j@Ak3@9 9 :9;@@::@ 23Ak@GkAqAjA@@:qA@q@kG:@@A@:@:@k@33:@::@:å¿cc3c33c8chi“h“A9A3A@:@A@@ƒ:@:@†: :3::@:@9:@ƒ:@:@3::9„:9::ƒ@::9@@A:k@A:@@3:@…: …:/Gk: :@@3::@AqAG:@qAq:A@AqqGq@::39A@A@3:A@A3:9ä¿O]c2]c\]chch“i“@ @3@3G@k@;9:9@:@:@:9:3:9::9:@::@ :9:@:@A9 9:9:@:9:@;@:::@@Aƒ@::@::@3@: @9: kG@::A@A9@@3 @kƒ:G:q@::9AA@A9 3@@A3 :@@A@:@:äÀ2]c3c3bcic“h“Aƒ:@Ak@A:3 :@:@@:@::: 9: :@:9ƒ: 9:@:@:9„:9:: ƒ:@ 9:9::9:993 @A:@ƒ: 9::9499A@ƒ:+@@k 3:A3@A@qAq:@;: :@k@@A93@A:@3:@AjA:9: ã¿c,cc]2c8ihi’“ij::9 @Ak3@@:9:@ƒ: @:@3 :3 :9ƒ::ƒ@::@A9ƒ: @@:::@9:@@Aƒ:@:9…:B :j@:39::@::9@:@@A@@::@3@@A93@:A:9 9 3 9AdA:9 3::@A9:@A@::9:9â¿.c3c]c3b3b“ci“@G:@9A@k@A9 :@:@:A@:9 9:3::9@:9ƒ@;ƒ:@::@::@::@: :@:A@@:@ƒ:F@@ 39:3:9::@:: ::AjA3::GA3:kA9 :3 @ 339Gq Aj@: 9@A@:A@@k@A@: â¿+3]cc]3biibi’i“@:: k@@3@A3::@:@:@: 3 :99:@†:@:@:@:ƒ:Yi:-9 3 9::949: 9::9:3 @3 A@A:9::99 3@ @::9Gq9A:3:@qq:A3::3G@j@A@: 3:Aj:99:@:@::9::á¿2cc]9\9bi“b“i“ƒ@AqAA@ , @::@:@:@3:9:9…:?ƒ:9:@:@@:3:9 Œ:9:@„:9@: 93@3 9:9::9:@„:@ƒ:'@::A@A@:@9 A::A99:@@Gk@::@4@:A@@:@ :@„: @;@:@ :: á¿ c]2c]c2ibii“hAkA:@Aq@A3:@3::@:@A„: 9::@9::@::@:@:@:9 :9::839 :@@9ƒ :: 9: :9:@::@::99::@„:2@@A:j@A@39 33:@:AqG:@9A3 @AjA:@:9: @::@:@:3::? á¿$,c3]3c2ic’i““hG39@A@q: 9::@:@::9::@…:@:?ƒ::@:@A@4:3@:9@::@ƒ:@:3ƒ:9::@ 99„: 9@„:,@:9::993 A, 3 3@A9:GqAqA@k::9 3@@A@:@:9: :@„:@::9: 3á¿2ƒc]9bib“ih““@ @AjqGk :@:@:@:@:@ƒ:@:@::9ƒ:?„:9:A9„: 9:@::@@:@:9@@:@::@33ƒ:@ƒ: 99::@9: @ƒ:-9:@3kGA jAqAq:AG9: A@4q@k:@4399 @:@:@::@:á¾$]c-c]2ccbii’ii’A:@@AqAA@94:@:@;@::„:9:@…:@9::@::@:@:9@A@@: 3 ::@::@…: 9 3:9:A:@@ƒ:9 @::93 @::3@::::@kA::ƒq 3A@:9::@ƒ:9ƒ:9ƒ:â¿'c2c]c]bcbi““i@A9AdAqAq::9:@:@::@:3 :@9@…:?:9::@:@@9:@:: ƒ: -:ƒ:@ƒ: @::9: :9ƒ:@k@A: :9A@: 3 q@:@:39„:9@:G9:G::3@A@::@:@::9::3::ãÀc]3c3bichi’““@:@@AqGkG:@:@ƒ:@:@3:@ƒ:9::?ƒ:@ƒ:@@A:A93„@ƒ:9::3„@:ƒ@=:@::9:3::@9:@@A:9@:@3@A:@@: :9:::9::4Aj:qGq:G3:::@9: 3 ƒ é¾,cc]c2]c8ch“iih“G:@:AjGkG::@:@:@@3 :@::9::@ƒ: 9:::@k@:@…:@:9:@@ @ƒ:@AA@@:@@:99 93::ƒ@ ::9::@:9::9…:@AAk@A9@::GkG:q@ :9ƒ:9:9:9:ê¿ ccc]bchciŒi“Aq:@@AAkGk@:@::@:3„:@‡:ƒ:@::@A@:@::@:@39:@:A9:9A9:A@ƒ:9:9::3 9ƒ: @;9@:@@:9„:@:@:@:@kG@k:4 9::Gq:k :9@:9ƒ ƒ:9ê¿,,c3]c8ccbii’i™A:Ad@@Aq@::@::@:9::@9::?:@9@@ƒ:9@ƒ: 9:@:AjA@:ƒ@A@:@A9::@:9A@:9A@::::9@:@:@:@„:&9::9@::@ :@@94:9 9:::@3:G:@:@: :@:9ì¿c,3c]8chch“i““qA@@kA9Aq@ ::@:9„:@::@„: @::@::9::@:@Aƒ:@A@„:@:@:9@::@k :@:99:3:3: :9ƒ:& 3 3::@@:@::@:@kGk:A@Ak@:G:q:@:93:@ƒ:ì¿%c2]9bcbii“h“’Gq@A@q9A@:99:@ ::9:@::ƒ: 9:@::9::?@@ƒ: 9@:@::9::@::@ƒ:@@A@@ƒ:9ƒ:99:92: :@:@::@:@ƒ:@:@:@AAqGG@@qAG:qA9G:3@ 3:9:9í¿]233,8cchib™“™AAj@Aq 9:@ƒ: :9:::@9:9:@:„:@9::@AAƒ@::9…: @::@@::@:k@Ajƒ@8:@::4: 94@::@:93::@:@:@@:@:@:9:3AqqA jA@:k::@: í¿2Ž2338chc“i““iqA@AjG:@ƒ: @:9::@:@::@…:9:@9ƒ:@::9::@„: @::9::9::@ƒ:@::@A4:@„::9 :9:3:9:: : ƒ:AA@Aƒ:@:@:@AkGkAq3AAk:9A:::@î¿2d2]2cbchi’i™’Gk@A@q4@3:@ƒ:@:@:@ƒ: @:@:@:::?‡:@::@::ƒ@G:9:@:9:@9:@@::@:::9 :993::@@3:@:@@jAj@:@:@:@:Gk@GqA jA@@ :9 ::ï¿]c338cbi“i““™Aq@k@r9:ƒ:9@…: 9@::9::9@„: 9@9:9:@9:@@ƒ:@::9A:9@49A@9ƒ:9ƒ: 9:9: :: ::@:ƒ:!9@@A@@::@:@:@::@k kG:GkG:9@;2 :9ￃc&]\8cchi’i’“™A:@A@ @:@:9::@:@:@@::@:@:@ƒ:@9„:@:@:9:A9@:@9::@@ƒ:'@@A::A@@:::::9::9:9::9:@:@GkA39;@:@Aƒ:A@@qG3ƒ@qAq 3@ 3ò¿#cc3]bic“i“c™“F3AjA3 :: @::@:@::@…:9@:::@9:@9@@A@@ƒ:@‰:@@A@:ƒ@:@::9ƒ:9ƒ:*9:::9:@::@:@:@:@::@@:@:k@:Ak qk:9: 3A3 ò¿„c*3cbchi’cik@9A@A2@::9::@:@::@::?:@:@::?:@„:@Aƒ:A99:@::@:@:@:@::A†:@:::99:9:: :3::@:@:@:@ƒ:@@::@:@:@kG@3G9:@ 3 @3ó¿c]Ž]3„ccŽiŽ“Gƒ:@@ „:@@::@:@::@::::@…:?:@:@:9…:A@:@:@:9:@:@:@::9::@::@::9ƒ:)::9:::@:A@Ak@4@@:@A:@::@::@A3k:@:@3 9ô¿c3c\„c%cdij@A:Ak 9:9::@:@::@::@:@@9::@:?ƒ:1 9:9::@:@:@:@:@:@:@::A@3@@::@::9:@:9:@9::3@9:Aƒ@:A@::ƒ@::@:@:Gk@3@:@ƒ:@3õ¿ccc]c]cdccoAq@@A@3:3:@ƒ:@::@::@9::@:@::@@ƒ::@:@@:@:@:@:@:@:@ƒ: 9::@:9::@ƒ:9::ƒ: @@kA::@@:@„:@:@:@::@:@:: 3õ¾%]2,3c]9]cccŽcŽ“@kAAk@:9 9 ::@@::@::?ƒ:@ƒ:@:::@ƒ:9::@:@ƒ:@@;@:@:@:@:9::9:@ƒ:@::@9†:%9A@@:A@@:@k:@AA@::@:@:k:9:@@::@33:ô¿3c3c]cccdc“iq@GjGj@::3 @ƒ:@::@::@::@:9::::@„:@@:@A9@::9:A::@A::@A::@ƒ: @:@::::99…: A@kAj@:A@:@@„:@:9A:@: @:: ::õ¿ƒc3ƒcccŽciAj@AA@A@@ƒ:@@::@:@†:…@ 3@:@:@9@:@::@ƒ:::@ƒ: @:9:@:@@::@@„:9:::@:9@:@A@A@AkF:@ƒ:9@:3:9: :3A:@:9@33:õ¿*ccc2c]cccdijA@9A@kA:9@@ 3:9@::@@:9@::@‰:$@: :@::9:49@:9:9@:@:9 :33: 9:9:9 ƒ: ƒ:@:@jAk@@A:@:@9::9ƒ: @:@9::@:: ::9õ¾c33ƒc]dcc“A@:Ak@q@::@:: @::@ƒ:@:::9:@@::9:@@ƒ: @:@A::@::@@ƒ:@::A:@:A@:@:@: :@:3 :9:@:@::GA:ƒ@:@ƒ:9:::ƒ:@:@3 :9:ö¾3c]]c]cccŽci@Aƒ@Ak@::@:@@3:@  9@@ ::@…:@:@:@:ƒ@:9A@9:Aƒ:A:9:A9::9:@@::@„: 9::9@:@@„:jGjA:@A:@9: 3 3::@:: : 9: ö¾c3…c]ƒcŽ“GjAjA:@A@::@::@9:@†:@ƒ: @::9::@:9 ƒ: 3 3:@9@@:9A::@„: 9ƒ:9@9::9ƒ:#9A:@:@:GA::@k93A@: @@::9:@9 2 : 3÷¾cc32ccŽccdcc“@A@A„@;9::@†:6@:9:@::@9:@:@::@::9:@@A:@A:9:A@:A@A@::@@:@:@@:: :@ƒ:ƒ@::@@k@@…:@A:: ::::@@ :: ƒ:ø¿]“3c]]ƒcci@k:@k@;j@@ :@@:@::@:@:@::@„:@:@ ::@„:Aj::@ƒ:@A9A@:@A9::@::@::@ƒ:+@:::9AAk 9A@3@:@:9@::9:@9:@@:A@3:3:@3,õ¿cc]23cƒcŽcd““ƒ@9A@@A:A: 3:@:@:@::@::@::@:@: 9:@@::9:@::@:9:@A:@k9:@::9@„: @99::@: :„@3A@„:@ƒ:@†: 3:9: 393ƒ32c]ð¿cŽc]ƒc]Žccc“hA@::@:@j@::9ƒ: @::@::@::ƒ:@::9@:A@::@:9:@A9::ƒ@:@A@::9: @@:@:ƒ:(@::9:@@A:A@3:@:@@::@: 9:9:9::@3:9 ø¿c”]ccŽƒcƒci“@A@qrk:@::@@Aƒ: 9:@:@:@@:@:@…:@::@:@@A::@@A:@:A@:ƒ@Aƒ: @:9::@:@::ƒ: qkAG@A: 3ƒ: ::@ ::@…:9øƒ¿”c32ccc]dib@:@rGqA:k@:ƒ9ƒ@$3 :::@::9@:@: 9::@:@:@k::@A:@::@ƒ:@@::@ˆ:@9„@:@@:@@::9: 993:: 2 ::@3::39øÀ“”c]c-cŽcccc““Ak:qAq@@ƒ@::3@ƒ: :@A3@:@:@:@:@„:@:A@::@::@::@::@ƒ:ƒ@ƒ:9:9:@:3„:@A@:j;@::9:9:3@@: ƒ: øÀ]ccƒcdcihA@@qGkA@kA::@:9::@:@:@:@ƒ:@ƒ:@:@::@:@@:@::9:9A9…:%9:9:A@:@:9::: 9:9A@k@AAjA@:@: 3:9ƒ ::@3 9:@:, øÁcŽc3ccccc““ij;qGqq:ƒ@ ::@:9::@ƒ: @::@:9:9@@ƒ:9@:@:k9@::@ k@:@@ƒ:1A:@:@:9::99: :@:@:@:@:9:@:@3@::A3 2:3:::9 9øƒÁc3]cc”]cŽcci’:@GrGq:A@:@…:@::@ƒ:?::@@:@ƒ:2@::@:@:A::::9A@:@@:9@@::@:9::@; :9:@:A:@A:@3A:@ƒ::: @@:93@::93ø„Á,9Žc3]]Žc”¾]“i@:A:kA@::@:9@:9@@99@:::@ƒ:@:@:@::@:@ @99::@:9A9 :9…:ƒ:9 3@::@@:k@A:@@ƒ:9@:A@3ƒ:@9: 3 ø„Á]“cccc”]c“”cbiƒ@(AqAA@::@@::9:@:@ :@:9@:9:9@ :@@A:@:Aƒ:@ƒ: @k:@:@:@ƒ:9:9„:@ƒ:@:@k:93 9 @::@ 3:@@ 9ƒ: 3 9ø„Â]cc]cƒ#3]]c“kAk@Aj@kGk 3@@9:@:@::@::@:@:@ƒ:@ƒ:9:A@:@jƒ:@@:@::@@::@@::@ƒ:3::9A@@:A@@:Aƒ:A9@A@:9 9:@3 ::@ 9 3ø…Â3dƒcŽi”cccc™@AAjGAqAA@@3::@:: :@‡:@@:@ƒ: @:@:39:9: 9ƒ:5 :9 ::9@::9@:9: 9:@:A@:@k:@:@:@9::@:: 3: 3::9:33ø†¿ 23c”cc]†c @kFAkAA@j:@:@„:39A:99@†:@:9@:@;@:@@: @:@A:@:A:@†:9 9 9@:@kA@::@:@::@:@ƒ:94@ 3ƒ: 9 3323øƒÀ4ccc”cŽcc]Ži“:A@@kp@@AqA::@:9@ :@: 39@:@::::@ƒ:ƒ@„:9Aj::@ƒ:F::@@:@: 9 9 ::@AqApƒ:@::9:@:9:9@:3@:3 3 ø‡À233c””cc]cŽ“cib@@4GAAƒ: @@: @@:: :9:9ƒ:9…:@::@:@:3 :@9 9 9 :@9@@ƒ:)9 :@9::33:@A@@A@A9::@@:@:A9:@:::9 39øˆÃcŽ,cc33d9bA:@9k@kG:@Aƒ:,9::9 A: 9:@9@:9:9@9:@:@:@k:@:G:@:A:@@:@@„:@9ƒ: @:j@@ @@ƒ:@@: :ƒ:3ø‰Â]93“3ƒcg2cc]ch:@:@A@k@3@:: 9:9@3@@: 9 3::::@:@:@:@A:@::@A::@A::@:@;@::@::@:@A@:A:@:@: @: 3@ :@9:9 : 3ø‰Â!3c”23]3cŽcŽ“3bc::@A9GA@@33@: :9„:3 ::@ƒ:9„:@„:93::93:99:9:9:9 ƒ:$9::::@9@:@@::@@:@:9:::3@39 3 3 øŠÂ-]c”2”3,cc3“Ž“3bi:9A9:@k:@:: 9 9 :@::9:@:@ƒ:@9 : ƒ:!@@:AA@:@A:@:@A@:9:::9 :@@:A@:@:@„:@: @: @:@: 3 øŒÂ c]”½]]“Ž„c]c]8@A3qA9A@:@ @3ƒ:9 ::@:@4943 9:@:@: ƒ:@@:@A:ƒ@A:@„:@9:9 :A„:@k:@9::39:@ :9::3 : ,øŒ«]2,’ ,9]”c3c”cc„c&“i@:: 9A3 @33 :@::9: :@::@9@:@::@:ƒ@:@:A@@:@;j@@::@:9::9::99@:@…:9: 9ƒ: 3 3 øŒªcc3“.c2]2dc3cŽci“@:@@49@3 k:@:@4:9:9::9::@ƒ:@:@™:: 49:@ƒA@Ak@::3::9:3@ 9:3 ø«cŽc22„,232ˆ23]23c3c]ccƒc“i94@ 9G3A@3A@ @:9:3@A@ :@::@Ÿ9@AA@@AjAj@: @: 99ƒ 9  ø«233ƒ2c3]2ƒ22323]c2cc2Ž“]ƒcŽc“h43@::A9 @@3 @94@:@ ¨ :A@A::9 3 ‡93 33øŽ°32Ž]c3ƒ,,232„cŽ233c¾3Žcb3894:ƒ@ @4A:ƒ@3:´3Š ø²23,222332c]cc]]„c]2dc¾cc38]8q@†3@9@:3:@Â:-ø±32,c332-]3\9]2†33c3]Ž,”“¾ccci@ ˆ3 3 Ã9ø‘²3332323233‡]cc32”“Ž“ccŽcc“@A3‰@@393 øÓ³ \]23,32323ˆcc]ccŽ½”¸,]cd23@@ @Š: 3 :øд„32]c]c‹Žc“”¾“”3cc“22Aj Œ 3: 3 øη,323cc3‹c]2,”””]cc3b“22Ak  9øÍ·3]c]]3Œ]cŽ2c”¾]c”29“i@Aq  øͺƒc 3“”3]cc“cŽŽƒ2A@:@3øÝÒŽc3ƒc322@@AøÜÒ cc2ccŽ29“cƒ3øÚÕ2Ž”“”høßøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/- ­/‚rGË‚rG-ÉŠÉÉŠ2ÌŠ /Ì–F¹ËÌ–F¹- OÉ O2 O / [H£Ë [H£- ^þÉ ^þ2 aþ / b JùøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø£,ø øž2]23322øžø32,3ƒ233]øøœ 2,c29\9ccøøš2]]ccibihc]øœøœ ]ibccbcihcøœø˜23]icibichcbcøœø–23]c28““b™“™bii“]øœø•3]2]22cbii’i“22biccø›ø“2]22382cihi8“2ch]ø›ø’]c228]8cchcih“8c“2ccø›ø‘cc,2c“i“2cbi“h“ib2ic]cø›ø‘2]32ch™i“ibch““]92cc2-øšø]2]2]3‡c328““i““h82ic“ic223ccccøšøc323ƒ2!323,329\ @@A@3ci2c™’“c3bcd]cøšö]2322323233,2„cƒ2 :9AkG@@c8ƒ“ih]22]ƒc3]ø™õc232]ƒ23ƒ29„232:AA@“8kG22“hibcc]33c32322ƒ,ø”ð:2,2323239238b 3 c9:2c qGAb9kA29ib9c@: 2b32,3,-229]]ø’ï]3323228233 :9:: ƒ:@::9q2cGq38““@k@A: 2323,3]…c]cø’ê2]2cc2]3223229Aƒ :AAq @:Akƒ@AqA@kG9cAqA@@ƒ:22-29]9]]c]323 øæI2323]32-222 @A3 339:@949:99A@AkA@A@AqAAh“@@k@@28cc232,c]c :@399:øå3c]]„2?2c2:: 39 3 93:93 :9::9:@:@::qAkG3A@A@:ŽAb83@3c @ 33A@::@ƒ: 3øŠâ]232]c]232 3@393:9ƒ:9:: : kAA@@::@:…@:@:@3q@A@A@:@@::@:A@@„: @A@:@: ø‡ß22]9]cc]8c  : 3 @:@3:::3 3:: :99@@3 3GqrqrqAƒ@ :A9A:3 9:@Aƒ: 9: 39 @@ƒ:@@A:@:@:ø†ß+c]c2]c22::9::393:: 9:9:9:93 9:9  9 @ƒ: 3:rqqAq@@:ƒ:39ƒ:@G::@::@9::39Ak@::ø†Ü2]c32c32c 3 3 9 @ƒ:@:9A@A@AAGAk9: 3qq:9ƒ:,@: 39 9: ::@:A@AqGqq: 99 3:@@:@@:AA@@4Fk@A:ø†Û 2]c]]2]cb92ƒ:@@ƒ:29::@A:@@:@k@::@@A@A@A:3::@@::@A@A::3 q@@3@@A3@ 93„A qA9A@:@A@„: @k@ø†Ù5]c233“c329b:9:@::9:@ 9@@:@@;@::@qkA@:@:@9:@A@: :@A@:„@$AG: 3qrq:3@@99:qAp:3A33 ,:@:9@@:ø†Ùc3232]29b94::9@ƒ:@AkGqAjAq@kGAqGkƒqAAkƒ:9r @:@„:!939AjA@AAGGrqHA9:GA:@:@:@@:: @A„:9ø…ÖY,23323238c2@9::@@: ::A@kA@A@AkA@A@@kA@A@AkFAG@@:9:rqrq9@:A@:@:A@@k@kGkGqq:9@3@:@A@A3 @ƒ:@: :@ø„Öb2322cc]]2c894:@@:9A@@k@k@Ak@k@GqqAqkGqqGj@AjA@:@:@:@@:@AkGkGA@@:AqqrGkGqGrGqA @::@k@k@qqGqA@:@A3@ø„Ôc2-c3]dib: :9ƒ:>A@AjA@A@qGqAGkGkGqAAqGqkGkGqAj@AkA@@:A@A@@Aqk@::@A@qqHqrGqrGk@ƒ:9 Aƒ:4@:@:@:A 9 9øÓ=]233cc”ib3 :3A@@AjA@kGjAAkGkGkAqAqGkAkAGAkAqAGkAGk@@Aqrqrƒ@(A@:9:@ArGqqGrqGrGk@:: 3Gq@:@A:9::@:j:AqøÒg]2cŽ2cc]3cc““9@A@jA@k@A@AA@kGAjGkGqA@qqGqGkGk@@AqAq@kFk@A@A@A:A::@A@3A@@qrHqqrqqGAA@A:3 :3:j@:@::@:@ƒAøÑ2ƒcI23]cccch:@:A@k@A@A@kqqAqGkG@AqqAqqGrAqAqqGqAqGkA@AAGkqr@kG::jA@:kA3@A@3@ƒ:@:@:kFq@:::@rk::@:@@ƒ:9:9øÐ>23]]3c33cib:@@Aj@A@k@kA@GkGkGk@kAqGqGqAqGqGqGkGqqAqGqqAjAGkƒqx:@@:@@9Aj@AGAG@AkGkqHq:@ƒ:@@GA:@:@qG3:@ øÏc,332„cS“c@@:A@A@k:GqA@qAqGqAGqGkAqAqHqkrqGrqGrGrqGkqGqA9AkGAAqGqAk@:@:AA3:qAqkqqGqGAjG::@ƒ:@A@:94GkA@::@9÷Ïq]2323Ž”ci’:@Ak:@:@@kAqAkGkAqkqGqGAwrrqHqHqrAkrqrAGkGrAqGkxqrF3GAkG@A@A@@kFA@q3GrGrqrAqA@::9:@3::@:9@A:@: @: ôÏ323„cEŽci:@A:@@:kqAGk@AqAqGqGqkGqqAqGqq:qGqAGqGqqAqqGqGkGAGqr@:A@k@:@::9:Aƒ@A9:33k@AqA@Ak9:@A@ †: 9A@3 93:ñÍ[c2”2cc33cc]ihA@:@k@qGqAkGqq@qAqAqHqAqGkG:Gq:rGqqGrGA9rrxrAqAq3GAqG:@:qq:@::9:@;jA::@::G@AƒqA@@A@:@::@:@:@:@A@4A@::ñÌ]c3]ƒc ]c]cb:@k@q„A::qGAqArGqqHqqGrqAqƒrq9GqGq3rqG3GqGq:qrqHkGkqAqA:A@kƒ: ::@@ƒ:93qAqGqA:9A@AjA:9:@:9ƒ:k:@@q::ñÌ]cƒc)]ccci“@A@AA@jAqGqrGkGqGqGrqGkrGqrGqGqGA„rNqGqq3Gk9Gx@A@A@kGkG9Aƒ@!A:::A:@A@@3 AqHqqA@:@k:@:@::@:@:„@:A@: ðË23c]c]„c,33i@:kAj@kA@qAqqGq@kGkAqAqHqqHqrrqHqqAqGAjA„rxrw::Ak„q5A@A@kG:@A@k@::9@Aq@A@Ak@qqGr@A:A@:@:qA9::@:9;@: @@9 ïÊyc]3c3c]Ž]c“i“:@A@AAqGkGqA@:rGqGqrGrqrGqGqGGqGqGqGkqGAFrG@GqrG@A@GGqAqGkGk@AjA@@:9@:@9::@k@A@ 3::@:qqA@q:GA@@;@::@A@@,A939ïÉ]”c3c\ƒc5Ži’@:A@kqGkGqAqGqrqGkrGqqGrqrGqAqAkqHqrAAqr@kGkqGqGrƒq:AkAqAkGj@AjG:@:@A:@:: :@AjA9:A9A:qGqAk:@kA@::3@@A:k@A9@ îÉc3\23ƒchŽ“cii:@kGGkGk@qAkqrNrqGAqGrqHwGqrqrqNqqGrqwHqqA@qGkGqqHqHqGqAqAq@A@AkA@q:::93 9:@@:@A9: 3 3A@G:GkA@:9@ƒ:A3:9 3ïÈMc]“3]33”]”“@qGq@k@GqGqGqHqG@AqqHqGr@rqHqHqrqHrqrxqrGrwrrGqAkGqGkqAqGkG@@kƒ@k@:@:@:: @::@ƒ:@Aq@:@: qk@qAq::G::@A99 : 94îÈQcŽ32ci]“dci“@GkAkGkqGkGkHqqAqrrGqrqGqAqrrxqNrqxGqHqxqGrGqGrrqGkGqGkGq:@kAGkA@:ƒ@::@39:9:: 93Aq„: 9::@: AqA@„: @:@:@:: íÈcc2c3ƒcvŽci“A@@AqGqHqqHkqGqqrwrqHqGrq@rGxqrwrMrrqrGrGrqrrqqHqHkArqGqA9AAkGAjA@::A:@@ ::A@A@:@AA9A9:AqAqAqGq94:@: @:A::@: 3íÈyc,3cŽc]c“di@AkqAqAqqAqAqHqGrHqHqqGrqH@:qrNrqrxqxGxqxrqGqNqGqqGqAqrGk@Aq@AjAGkA:@:@::99@@:9::@kG9 @::@kG@@3Aq qG99:9:@@k@:A9:íÇT2]c2c]cc”c“ijA@AqAqGqArqGqrqrqrGqHqrqrrqNqqx@GrGrqrqHwrGxrqGrqHqxGqA@qGAkGqAqApAj‡:@A3:A@k :9AAFk@A@q3Hqq 9ƒ: @ A@@::9: ëÆ"c]2c3Žcc”ccŽi“@@kGkGqArqGxqGqHqN„qVrGxqNrqxHqr@rwGGrxqrGqrqxqGqrqrGqAkGqqAqApAk@AAq@@:9:@:@::9 :k :ApAkAk@AAqGqG: :@:@-3ƒ@:@3ëÆcƒ3Mcc]cŽcc“i@A:@:qGqAxqrrAqqAqrGrGxrqxqxrqAqG@@rrq:xxqGkNqHrqrHwr:@qAqAqAqGAq„@ AkA@@::9:ƒ:ƒ@399A@ @ @jA:qAqƒ@ :A99 kA3: :ëÆ]2cŽccc”ci@j:ƒ@:qAAq:rG@AqAG@AqAA@GAGqGGqGqr:@rGrG:xrqr@rxqA@rqNjHqGkGqGAqƒA1q:@@A@@A@@;::@9:@A@A :A2:9@;@k@:GkA :@AkAA3::3ëÆ[cc3dcdjŽc“@9A:r@qG@@:qAGj:AqAq@kAqqAqqAqAGqAqqGk@:GrG@r@r@AqrqrqHqGkGkqAqjG@k@:@jA:Aƒ@ :A9:@:k@3 3A:@qGAqAqA@9A@kƒ@::39ëÅc]2Žccccc“i@@:3:@AqAAƒ::9@@kGkqGqGA@@kAAqHAqqAqrrGkGqrx@qrwrGx@AqNqxGqrGqGk@@AkA@A„:*@j:A:@9 :@:@A@A3A:@: kA94qGqq::@k:@A:A9 ëÅ-cc“3ccŽcŽiŽc“A@: :@k@k@:9:@:A@AA@qA:jA@A3ƒ:&@rqGqrGrq@AGrqxAkqxAqrqrGkGkGqAkG@kAk„@:A:@@4ƒ@ƒ:3:ƒ@:9@A9:@GqA::@:@:AjGkA@99êÅyc3cŽcc]ccŽ“Žij: @@kA@Gk9 A:@@kAjAA@@Ak@93:9@:@:: :@9A@A:q:@AAFAqGkGGqGkGqqAqAqAkF@Aj:@;@@9::@@;@:9: @3@;9:@:3G3Aqq:@:: @@:@AqGk@49 êÄ[ccc3c33c”c“™@:3::@Ak9 jA@:A@AGk@@k@A9 3949: 3 9 3 A@@::A@k@2A@:3GkAA@AAqGA@kA@A::@ƒ:39ƒ:@ ƒ:qA@@3@;9 Ak@GlG@ƒ: A:9:3 qG9 2êÄc,]ƒc&]cd“ŽhAA 3AjG9A3@A@k@A:jA@@A@: 3 :ƒ: @: 3:9 93@:@:ƒ@:29’c“iƒ GqrqqGk@:qAj@@A@:@A@@::@::@@ @ƒ: @9 jA@qGq3::@@:AGkG3:33êÄccd„c^ciŽi““Gj:@AA3AA@@AjA@:@Ap:AjA9: 9:@A@ A2 :@A: ::@A3::c2iibic9Ž“ccŽ“iAk@GAq:@k@@jA@:@::@9ƒ:@3:@:@49A9 3GqH3@:@kGj@A@4@ êÃKc,c]cc‡cddi“i“@::@Aj@Ap::@@A@@:k@AAjA@3::9:@A:9::9::@::@:@:kG9:@b2ci’bcƒc]ci33A:G39:@;@A:ƒ@A…:3@ 9@:@AA@k qAq9:@:GkAGk@:9:39êÂc2„ccci’“˜“G 9A@A:3A::@kAkA„@ k@A9:@: @„:(@@:: ::@:9:9Gk::@::ibii“i“Žccc@A@@k: ƒ:@k@A::@:@Aq9:9 A::AjA9: qq @ƒ: qAq@@A:: 4êÂ(c]cccdci“i“i“@:k@k@G@3@:@:@@jA@:@A@Aƒ: ::@@:@:@@A@ ::@ƒ:@ 9:@@bi“’i“ic]d@kAk@„:-@:@@Aj:@:@AjA@A@:9:@A@: :9Gq@:: @@:3@A@:94 ëÃ]ccd‡ƒc0“h“™’Gk:@A:AjA @:@:@kAA@:@k@:@::9@::9:@Ak@k9:@Aƒ:@@:3 bi™“˜“„cA@@qA„@:@@A:qGA:9A9:@A@@k@„:@:3::@rAA@:9:A@:Gkk::@9ëÂ]ccŽcƒc#ih“i“iA@@A@9Aq3@A:@AApA@d@::99::9ƒ:2@:@::@: @ @:@9:@:9 :c22929cc]@k@:qGk@AkGj;3@qA9ƒ:#3Gk@:A3:@9:9:G9:@qAq@A:9Aq 9kGG9 9 ëÁƒcc32]ƒci“i’™“p@3@@k@A3:A@@:j@:AjA„:@A:„: @A:@@:@399†: 938c2b„c9AA@A@:A@kGk@@3@:Gk @A9A@A3@ @::A9GkG@qAqGqA33@: A::3@:3 êÁc]3…c5b“h“™i“A3 @AAk @@:jA@AA@kA9::9Aj::99:@@A@@:k@A@:A:@ƒ: G : 3ib9ƒ“7kGk@:@qqA:qG@A@A::@9:@Ak@:93@A@::qAkAGqrGq@:3::@k@Aƒ:ëÁƒcc]c]iihƒ“l˜“G@3Ak@@Ak@:A@k@@k@9::@: @:@::@:@@Aj:3:A:@@@@::?:@@:9 @cb8“o““cAj@kAq@AqA@:@@:@A@4Aj@:3: 3A@@A:@G@kGqGrqAƒ: 9A@@k:9:@:êÁcd3…c%’c“i™“iqA:@A@k 9@:@A@@:AA:@::39::@@ƒ:A@A:@@:9ƒ:3 :9::@ƒ:*9cc“’™iŽc]: 3 93Gk@k@:@kA@@A@:@@:Gk@k@ƒ:qqGkqGk@ƒ: A@k@@A9::9êÀ2c]c]c]ii’i’“™“ƒ@k@kFAk@A@:k@Aj@:@ 93…:"@:@:@k@@A@A@@:@39:9:A@ 3: chbo““™ƒc732c@::@@AqAq::AjA3@k::A@49AA@AkGkGArGrGrG:@9@@A@@::93:ê¿c3,dƒc]ibi“i“i˜“Gk3AA@kAFA@:ƒ@A: 39 @9@::ƒ@ ::@Aj@A3@ƒ:=:@A994@3@ cc“i˜““cbcb Gk @k:A@3GA@qAG9:@A@:@jAjA@qA93Ak@ƒ:::::@ƒ: 3ê¿"c323cc3ccbc’i’“™“Gk 9A9GAj@k:@:k@ƒ:99 „:ƒ@:A:@@;9A:@3::9::9@;:@ƒ:%9:bh™™A“h3b82:9:@:cc3ccc3]]c:2,c]ƒc3@: 39:@@: :9:@;:@::9:ê¿'c3cc2‡ccii“i™“™AG9:@qAkG:@:@:@:@:@:9ƒ: 99@:@:9:@ƒ:@:@3 :@ƒ:J@:A@::@:9 :ic8i2bcA::: :3cc]c::Ajc2:3:@3]3j:9:::@A:9::92:@:@@:ë¿#,c23c‡cc]bi’i’“o’kG::AApA9A@:@:@::@‡: ;@:A:@A:ƒ@PA@3@:::9@:@:9@@::9:@:“28999A@,:9::9 3 9  :@A@A:A329:::9A@:q:@: 9:99A:@ƒ: :ê¾c3c3ƒc,9i“i“i™“™Ak9 pAA9Ak:@:@:@:@::@:: 9:@@k@@:@3ƒ:@„:@ƒ:>@::@:@A:@:@:@:GkAjA@4:3@::@9 3 33:@Aj:@3@c@:9@A::A:GkAq ƒ:A2 :@ƒ:ë¾%]2dc3c]cbc’i’““˜“G9 qAk@:@ @@:@A:@:9„:3„: @::3 :: @::@ƒ:M9:@A::G:::@:9Aq:@9 9:::::@3: @@jA9A:@A@A:@ ]394:: :9qA@ApA3@ :3@A@:@:@:ë¾!ccc]cc]chi“i“o““GqAAGk@3::@::@„:@::@ƒ:3@@:@:@:@@k@:@:@:9:A@k@@99:3A:9 : 3AAq@3@@: 39:A:@ 3…:%k9A@j@3 ,Aq@A@::9@@kG3 9 @3 kA:9:ì¾/c3cŽc]c8ci’“™h“™’GkA@jA@9 @@k@::9:@:9 @::@9: …:@:@ƒ:9:@::@@:: :@:9@k@ApAkA9ƒ:239 3 :@:@:@A@A@:: 39:@kAGk9:@:A@@:3 :3:39:9 :í¾*cccc3cc’ci“i™“™“A9@AAqA@4@@3 9::@::9::@ƒ:ƒ@ ::9: A@:9:ƒ@::@ƒ:F@3::@:9:@ @k:G@AA: 3 3:@ :@A3::GkG9kAq3A@:q@q:::@q99 3 : 3@ í¾+c3cc]ccbibi’™“˜“™AAkFqAk@9::@A:9:: 94:3@ƒ: A@A@:@@::9ƒ:A@ƒ:@9A@3@@::@:3:@9Aq@kF@k@@kƒ:& 39:Fk@kAAF3A9A3@9:AA:@3-G:93]3:ò½7]ccc]ccic“i““i“™@q@AkGkFAA@A:@::9: 9 9:@A9993A@@:A9ƒ:C@:@:@@:9:9:A@AA@::9:: 3:9@@;@A@k 3 9::@3 G:@AjAA@@:@AA:9:qGq 3: 3ø½cd3ƒcb“h“h™“F“GqAqAqGkAj@@::@ƒ:9 :9@A@@::@:@A@Aj:9::@ƒ:9::::@k:@A9AA@Aƒ@,;:@@:@:@@:: 3:9:@:@@kG@k:@A:j@A:9:: 9:@ 3ø½.cc2cci’ii““™“™qr@AqqGqG:@;@:@:9: 3:9:9::@@ƒ: @Aj:@:: AA:@„: 9::@A@:@@::„@A@@Aƒ:9:3@@:3:A:@::@3A„@:@Ak@A@@9AA@:@ 3ø½;cŽccd]cchci’i’i“™™GqAA@AqAq3@:k@:@ : :9::@@;@:9@A@:@A9:9k?ƒ:@:@:@:ƒ@k9::@A3kA@k@@:933:939:ƒ: :@@;9:Akƒ:AjAGqqA:9AjAqk ø½.9]9]cc’ii““™h™“qqAqkGkGq @A@:9: :2@: 9::@:@…:@:A9:@:9::@::@:AjA::„@A@k@:@…:,@:: :@99:@::@@A:9:@AjG@kG@kG:GkGk@3@@::9ò½32c]]cbiib““h“ƒ™qGA@q@Aq:@:@A@: 3@ 3: „: A:9:9:A@@;9 „:H@:@@::@:@A:9:@Ak:k@AAkA9:@@::@:@@:@A:9 3:3:q@@:Aq@:GkA@A:qA@k@A: @jA@@:ò½"cc39]c8c’ii™“™™Ã™kqAkA@kA@:@@j:93ƒ: :9:9:@::@ƒ: @@k@@:99:@ƒ:B@:@:@@A@::@:A@@A@k@@9 ::@@ :AA94:::3 :Aq::9GAjA@@:q3GqA@@Aq3 A@ƒ:3 ñ¼4c,333b]bii“’“™™“™™GA@qq:@A@:@;@:::9: ::@@::@:@@::@„:@ƒ:"9@@ ::@@k@:9:: kA@@3AA@@:49 3Aƒ:' ::q :9GA@ 3@Ak@A:A9A:A@:G:@::@3:9ð¼c32”c]c9b““i™’ƒ™“qkAAqA@A@:@:9„::@9ƒ:9:9:@:@ƒ:9ƒ:@@„:J@A@@A@AjA:@::9:9:49A@:@:9@:: @:9G3@:GkG9:A@k 9k9@A:pAA9A:@:, @:@:3 :3: ï¼$c]“Ž2c]cbii’“™“™“™ÃGAqAqA@k:@:@::@:9ƒ:9@::„:Z@:@A9:@:@@: @ 3 j:9::@A@:9:9:: 9:9:A@:3::9 @:99@3@:@:@:@9:@k :AA@@:93@:k @3@:@@ 3::39:î¼=c]ccc]9cb“o“i™™“™qAjG:A@::@:: :@::@:9:@:9@:@@A@:@::9::2:ƒ@:@::@@k9 :@A9 @3:9ƒ:9@3„: 9 ::4@A@@A33ƒA99:G33:@::Gq@3:@ kq : 3 9 í¼"cc3Žcc]bii’™“’””“qAGq9k::@:@:@ƒ:9:9ƒ: 9::@:@:@:@:3 3iƒ:@:@ƒ: @:9: 3 3@A ƒ:9ƒ::@:93@::9:9::k::9q„:Gƒ:@@kH:@@ 2 :@k9: 3:: 3ì¼ 2Žc“c]cc“i““™“Ž““™qAqAq@@:@::9ƒ:@:ƒ:9„:/@:@AkA9::9::8“:9:3A:9 : 93: :393 39 3 :@:@†:):::@:@9AG:@A99:@:AqA@A9::k @:@::9:9:93ì»/]“Žc”c]cci“cŽ“Ž™AqqGkG9:@:9 ::@::9:?:::9@„:@9ƒ:@@:8:@:@:@::3 @::A@@3 ::@ƒ:@A::9@A::@:@:9: „: 3: 3@q::@:G:@ƒ:@ 9:A@:@ 3:::ë»+c3“]2dcccŽ”Ž“Ž““qG:AAq4::@3 :@::@9::::9…:9@:AA::@:@ :@::@A@:@@„:99A@ 39„:@:ƒ@*::@@:3::9 ::@@ @@A@ 2 @:9A@@:q:kG:@39Aj„: :ƒ@ƒ:ê»"c]2c32cd“d”””™Aq@kqA9:3::9:@ƒ:::@:@:99::@:@@:ƒ@;ƒ:@A3 ƒ:@@:::@A :@:@@A::@:9ƒ:@ƒ:- 3::@3::9@: :A@:99AkA9GkG::AAk @:9 39@:@33ê»cc-”dƒc Ž“c”“Ž™qA@AGq::9:@::@:9::@:@:9…:*@@AjA9@;@:3:9@@:3 93 @@:9@:@k39:9::@:3@:@ƒ:@::@:@:@ƒ:@@@;@3:39:@A: 9:9:Aj@:@@q qƒ:  : @AA::é»c2c]2cƒd“Ž”““GqAqkA@ƒ:9„:@:…::9:9:AjA@::9A@A9:@:@:: @:@„: @:@:9:@:@ƒ:@:@‡:9@ƒ: :9:@A:@9„:9::@9::Gk:9 3@:@3@:9Aj@:94 è»*3ccŽccŽcd“Ž”c”Ž™AqGkG@A@:@::@:@9:9::?@„::@@A@„:@@::94ƒ@ 3:@:k::@:@ƒ:9„:/@::@@A@:9:@:@::99 3 jAjA:A@3 9A 3::qGkGG3 : ƒ: @:9:AA:@9:èº c]cŽccŽ]cŽi””c™qAqAqAjA::@@ƒ:@ƒ:@„:G9:@@:@::@9:@:@3@9:@:3:@A@@:@:@:@:@:::@@::@@AjA999@:@4:3@@:@@9:@A„@: ƒ:AqA9q: 93:9@:9„@A@éº,c]c3“9dcŽ“d“Ž“Ž“GkG@kAGj@@::@:9:9@:9@:9…:,@:@@A:@A@A:: @:A:A::9:@A@A@A::9::@@::@AjA@„: @AA:@:9 :@:@ƒ:@33@;:@@:9:9Aq:A@:::4 ƒ:k:@::3 çº22,c“]”ciŽc“Ž“Ž““G@qA@q:A@:@::@:@::::@:@:9:9@„:@ƒ:99AAj:@k@:@::9A::@k@j@:@:3: :::@A@:@9:@k9:@:3@:@4@:@ :@ƒ:9:qAq:G9: kG::@@:9:9A@@:A9ƒ:çº!c3ccdd“Ž“Žc”“™k:qAkG:@A:@:@„:@::@9::9:@A@@:@:@…:@ƒ:@@:@: @:9A@::@ƒ: @::9:9@@:@„:/33@ :@:9 @:@:@@:A:@:GAq:@A@:G:AG9A99:3 :@:3 93ƒ:ç¹+”c,c]c“ccŽc“d”™™AGA@qGk@@::@::@:9::9:@„:9:@::A@::@@9@:9:9A@„:@ƒ:9@ƒ:@:@ƒ:„:3@:@:@@ƒ:9ƒ:A:@A3:ƒ@!:@:3 G:@qqA@:q39A::9 39:@:@:A99@èº.c3cc]Žcc”dj™“GjkGqAA@:@::@:9@:@:@::99@„:@:@:@ˆ:@@A@:@:@:@:A:@:A::999:9@ @ƒ:@::9::@ @:@AjA@:;@ƒ:@33 :qGqAA:@ƒ:  9 3 3@ƒ: 蹃c 3]c9Ž”c”“Ž““™kGAkApA@::@::@ƒ:::@…:9@::9@::@@:@@99ƒ:9::@@:Aƒ@:@:9@:: ‡:+@3@::@:9::@:@:@A::9::9 @:G@AkAkG:@@:: 93…:@9 9:99è¸1ccŽ“,c2c”cŽ“dd“d™™AjG@Ak@kG::@::@:@:?::@9:9@‹:@A@9†:@:@@kAkƒ@:@@:@ 9@::9:@3@::@ƒ:  :@:@k@Aj„@A@k::9A9G@k:@A:: 99ƒ:::3:: é¹#cd2cŽ3ccŽ“”c“AGAqApAGk@@::9@†:@::@„:ƒ@A:@@:9A…:@9:::9A@:@@::A…:= :::9:::@:@ 3@:@kAAk@:@:AjA@:A::@A,AA@9AjA3:3 @9 3::@ ê¹ cŽccc]9Ž”cŽiŽc“Ž™@kFkAAk@Ak:@ƒ:@:?:@:9ƒ:9ƒ@Aƒ@ A9::@@9:@::ƒ@::@:9A@::@::@@::„:@94@ƒ:A@ ::@:AjG@:@A:kAƒ@k9:@k@ qqA9AA@:@@ƒ:ñº1c””]c3“””“Žc™qAqApAFkG@@:@:@::@::@:9@::@;†:@„: 9::9@A:@:@ƒ:?A:9@::3@::::3:9 :@:@:@:@A@AkG:@:@A@@;@A::@A3AG3:@:@3@:@ñ¹%c””32c”cjŽc”™“GqrGqqAAjA@::@:9@ƒ:?::@::@ 39@::@@:@9:9@ƒ:9::@@A@:„@<:@ :@::9::@::@:9: ::@@:@AkkGjA@:@@k@@:k@jA@@ :q3@::@-3A3:󺔔c3cŽ3””“Žc““™™AqAGkA99r@@ƒ:@::@…:9@@ƒ:9::@@A@AA@::@:::@…: A::@:@:9@ƒ: ?::@:99::@A:„@Aƒ@:kA@A:@Ak@:Aj@:@:@A @@: @39ó¹!ccc”]23”½Žc”Ž““qAqrqG@A3AA:@„:@:@@:9ƒ:@::::@:@:k@:@:@@Ak9:@ƒ:@:@„:@ƒ:9:@ @„:+@ 9:@:@jAk@Aj::Ak@Aj@@dA@@AA:@:@@3: 3 3 :ô¸OccŽ“ŽŽcc3½””“Ž”¾¾““™GqGkGk@ jA@:@9:@9:@:@@ :@:@::9:9@:@:@:@:@::@:@:A@99:@9::@†:@„:@@ :9::@@k@AkA9:@@:G@@A:ƒ@AjA3j:@::A39  @õ»'””ccccŽ“”¾™“AqGqA@rAGj@::::@:@‰:ƒ@::A@3:@:@@::@::@ƒ:Aƒ:9@:@:@:9@:@:@9:: 9:@::AA@@A@A:@:kA@:@;@:@A@ 3@:@@9A:9:öº#c”c”ccŽ“”“”ccc™“Gkrqr@AjA :@9@ƒ:@ 9::?::9@::@:@:@‡:@†:@9A9:9ƒ: 9@::@:@:9@ƒ:*9A@A:AjA::k@@:@k@:@:@:jA:33 3@A:@9:A-4::õ¹cc-cŽiccŽ”Žc”Ž™qGqHqAjGkƒ:9::@ƒ:@ƒ:!::@@ 9::@::@:9:@:@:@@::@:9 @ 99ƒ:@„:@::@: „@#A@q@@A@:kA@:@::jA:9@ @3@:@:@@: 3@÷º!c,”cŽdŽiŽ“Žc”“™AqGqqGA@A@:@@…:@ƒ:9:@9:@:@…:@@9@A@ƒ:@:@:@„:9@:A:@:999:@9:@::@::AjA@A@kA@k@@:@:@@::@:@@: A3 ::@339@÷º ]ccj”c““dƒ”cŽ™AqAqGkAk@:@:@:9:@::@:@@ƒ: @9:@::@:9Aƒ:@::ƒ@ :@3: A@ƒ:@†:-  ::@9:@:k@k@q@@:@k:@:@:@::49 :@ 39@; : 9ø¹“]ccc””d”Ž“Ži””™“GrqGkGqA„:@::@:@9:@::9::@A@ 9 ::@:A@::A†:;@@::@@: ::?::9::@:3@:@3@:@:Gk@@::@::@:@:@4@@:9:@:@:@@:9 ø¹$ccŽ33”“¾“c¾””“@kGqqGq@:9:9::@†:@:@:@ƒ:@ƒ:A:@::ƒ9-@:@:9A9@:A:@:@@::@:::@::9 ::@:@A:@:A@:@: @:A…:9ƒ: 3::@:@:3 3: øº cc””“3”Žd”¾”“i“GqGrGAAk::ƒ:>@9:@:@:@::@@::@:@::9A::A@A9AAF:@A9:9::@@::9@:@:@ :@@:9:@:@::ƒ@:@:@@:9:9@:@:::@3@3 9::øƒº2Žcc]¾“-2Ž”cciŽ“Žc“ijGkGqk@qGAk@:::@:9:@::@:A:@ƒ:@@::FA9A@A:jA::A::ƒ@ ::@:@:@9::9@ƒ:9:@ƒ: A9k:@;@A:9@@ @:@:@: @:@ : @3øƒ¹*3cc”¾2]”½c2””]“Ž“c““AAqAA@A9Ap:@:@@::@:@„:!9:@:@:@@::@:@::@k:@Aj@:@@::@::@:@…:@ƒ:@:AA@:@@A:G@:@::@:@A:3@Aƒ: 3@@3::3@:ø…º9“3]]½”3c]”c,”“cŽ“”cc“@@qqAjA:AA@:9A:@::@:@:@:@3::@::@@:ƒ@Aƒ@ ::@@k@:9:@ƒ:@:@:@„:@9:ƒ@: j@94@:@:@:@:9:@ƒ::9@A:: 9:: ø„»c]9¾¾cc3ccccc“AGkGqq:q9„:@ƒ:@::@::@:@::@:@:@AkAk@@:@:ƒ@::@::@:@::939:ƒ @@3@A A9 @:A::@:@„:@ :9:A9:93::9 ø…».cc2]”“]”¾2cŽŽŽdc“@kGqGAA::@A@::9@::9:@:@„:@@:@:A:@:A:@:A:AA@A@:@A::@9ƒ:@ƒ: 39::A@:39:@Aj@ƒ:@3:9::3A9:@: : 3ø†»(],cc]23¾”c”“c””™AGqkr@j@@::39@::@ƒ:@„:@:@:A@:j@::@@::@@::@:@::@„:"@:@::@ 99@;@@:@@::@:: 3:@@3::: 3ƒ: @: 9::9:ø…Ÿc›c]c3]ƒc”cŽ“d“Ž™AkGqƒA@r:@:@ @„:@::@:@:9ƒ:@:k: :@„:@:@ƒ:@:ƒ@:@::@…: ::@:@:@::@ƒ:3939 9::9: :@:@„:9 ø‡Ÿcc2˜”,c“Ž”“Ž”cŽ“Žc”™Aq@AApA@@„: 9::@9::@ƒ: @@:@::@@ƒ:@:Fk:9Ak9::@@;@:@:@ƒ:@39ƒ:"@kA@:@:@:@:@: 3934 @@:3 :@:: 3ø‡Ÿcc]—ƒcŽ“33“3“Ž“cŽ““@@A@jAkA@A9@@„:%@:@:@:@@::@::@9:9:9@::A::@@:@:@:@:@:@„: 93:@@A@@:@ƒ:@:@:@3ƒ: @ @:A 9ƒ: 9 ø‡ŸcŽc3—$cc]cŽ9]c\Ž”¾“3cdi“@:q:GqG:q::@: 9@ƒ:@ƒ:9::@9:@:@:A@:9:@@:9:A::@A@:j:9ƒ:@@39:A:A@@;@:@:3@@;@ ::ƒ@3 ,A9949:@322,ø„£32–,c3“”]c3ccŽ”¾“chi:@A:qA@:qG:A9::9 ::9:@ƒ: @:@A:@@:@ƒ: @@:99::9:@„:9:@: 3„@)::@jA@:@A@:@::@Ak 3 @@:: @::: 3]33cc,ø¥c3“3222(cŽ3“cc]iccccŽcibi:q@AjA:qAk9@ :94@:@„: @:@ 9:9„:ƒ@Aƒ:G:@:Aƒ@: ƒ: @ƒ: A@:3A:@k@@3 ƒ:9A:@9 :9:3:9@@ƒ: 9322-cø¥c]2-3]3‘]ccŽ“Žcc3¾”Žc”“AA@:@@q:@Aƒ: :@9::@:@:@:@9::A@:@::: :93:@@„:@::@:@:9:@:AjA::ƒ@ƒ:@@A9@A@d@::@A: ƒ:@ øŠ¥ c]23223,]cŒ„cƒc””“Žc”“Ž““™@:9:3AA@@q:@9 3„ :@:9…:@:@A::@:@k:@:A@:@9:9:@:@ƒ:::@@A@@:Ak@A:@;@9A:@k@:@:9:@3ƒ:@ 3 øŒ¦M-23323,2223232]23\3,2Žc]cŽ“Ž”cŽicbqq:A9G@k:GqA9:9:@939:@:: ::9ƒ: G@::Gk:@A::@A@:@::9:3: :@@kApA@A„@ƒ:@A::@@ @ ::@@3 33øŒ¬ 323223c3c,ƒc]ƒc$d“Ž“””¾“”2ccŽhc G::949A@:AA9A:Aƒ:9„:@:@9@:ƒ@*:A39 9:9::A@:@:@A:::@: :@:AjAAj@:j;@j:@@„: A@-3:@:: 3ø­23ƒc],‹,223“32¾“”¾”]”c™bcAj@ 9AA9::9:@:@:@::@:@ƒ:@:A@:A@:@A@@:GA29:: :9ƒ:&@A9 @@3A@@A@A::@9;@:@;j::@3@::@3 øŽ­3]2]]3c]‹cccŽ¾”“¸”½¾c”c™bcG::9A3Aqk@„:19@:@3@ 9 :9::9:9:q:@:kA@:k@:@A@:@A9@@:9 :@::q:@:„@::@::@A@3@3:9::9:4 ø°3c\Ž(]c“Ž”¾”””“”]]™iqq:9 AAGq: ::@:@:@ƒ:@:@;::@:@::93:: @:@A@@:3:@:@…:@A@:@j;@k@:@AA93: 3@::@:: ø‘Á"ccŽ”c”“Ž½cŽ2”]““@Hq@@9@3 @:93†:@:@::ƒ@:@:@@A:„@:A@3::3@::@::9:A@:9:@A:@@::ƒ@:9A::9ƒ:: 9 3 ø‘Ã!cc]3“Ž“””¾cŽc”bcG@A:A 9:q A@ Œ:@::@A:@@A:@A@jA:@99ƒ:!@ @kF:@::@@k::@::49:@3@:::: 9 3ø’Éc¸“”]c“¾”cbAjG:„ AAqAk@:9”@d@:@@::@:: 93 @„:9@;@A@ƒ:9 3: @ƒ:ƒ93 ø’Î ”“Ž“c™“GqA:ˆ@A :9œ::9:@ 93 :A@A:@k:9:3: 9ƒ:9@:4: ƒ,øÑ”½“™ƒ@:‹3:Ÿ:A:GjA@kGj@k9:: : :@ :99ƒ: 9 3 32øø”@A@AA@::9: 3:9:ƒ:@93 ø”ø›@:3 ƒ :93 9::3ø–ø¦9: 393ø–ø© 3ø—øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø¥2]2øšø£2]3c]23ø™ø¡ 23222332ø˜øŸ 2,33]ibicbccø˜ø‰2222‹2323c32biib“bicc]ø—ö,]c2ƒ c]2-3]33]3ˆ]3,3]822chc’i9bihcø—ñ23223223,32]3b232832,2…]c2b8cc2cib9b““„cø—î 2c3,232232ƒƒ2'3c22c,,223]c,i““ibhcbcchi28hcø—é&2]cc23b9222322 ::9 3 3 232 39 3cƒ29“i“i2“iibihcb2ƒcø—ç c2Žc3,3b9ƒ2233 ,  9A3 9 :3 9A:9::@:: 9@@“ihchcib982ccø—äcc]3\2823 3ƒ:09 93 3@@49:9::@:: 3  3 @:@:A@@3bcc“hc22iic]ø—ãB2c32]83933 3 93::@ A::3:9:9::93@@:@3 949@::@A@“™“38,ib]cø—ß23c33229::94::3ƒ @:@::9:@:@A::A@@A:9 9: q 39G„:3:@@“™22dcc23ø–Þ]3\3c3”9b9 3ƒ:99:@@ƒ: @@:@:@::@::9ƒ:@AkA 3: A3:9 qG9 ::9]3ccc]ø–܃cG323]cc]c“ 3 9 @:@:A@:k@@::@A@A@AjA@GkGA9@:9A@@3 9 :9: 9 93G::92cŽ]cø–Û12,2d232Žb9b@ 3@@::@::@@;qAA@@A:@9Aj@A@k@@:qAA@Aƒ:@@3G3 :3ƒ: 3AqA9::cc]cø–Ú3]9,d9Ž“cc8:9:@:ƒ@:@:@:@Ap@k@k@krqHqA@kA@::@:@kƒ@:@::rq 3:@9:GA3 22ø•Øc2]23“]jcch„:=@@;@;@kG:@kAAkAA@A@@Aq@qAGkApAqA:@:@@:A@@:3Gq@3 :9:@q :9:kA ø•×2,c]cŽ9dc32i“9:9 ƒ:(@A@k@A@jAGjGkAkA@AAk@kFqGAkGjAk@Aj@;@:qHƒ:@A9: :9qG:33,2ø‘Ö,3c32Ž„c@2c]8:A9:@:@qGkjA@A@A@k@AqApA@@qrqAqAqk@AjG@Ak@A@::@:qqH:@Aj::@ƒ: A@qG3]cøÕc2”2]cc]c]ccch::@@A@Akƒ:>@AqAjAqAqAqGkGk@AqA9 3GAq@AqqA@k@qk@@:@:qr@::9 3Gq:@AAkq@3 c]øÔc]3cc,c9c,3ii::@A@k„@BAGqqAqAqAGkGkGAjAk@@AAj qGA:@AqA@AA::@A:@rGq@3: :@3::Gqq@AAqG3: øÓ9233cc,dc3ih:@:@:@AkAqA@@AkG@k@kFkGkGqGGkGqxq 3AjAkGA„q"G:@A2:@qG3@:9@::qGrqqGkG: 9:: :øŠÒcc”32c39cŽ“Žib:9:@:qAkGjAk@::GqqAGkGqGkGkGkqGkGkx@rx@ q3@ Gqr j@Arq:q:@::::GqGqAqqG:3 3: :: ø‡Ñc]“3]]jc]”i::@@AAqA@kGApAƒq-HkGkGAqGqqGqAAqGqAA@@AxqrqAkAqAAqA@xq:@::9„:@rArqGr:@:9::9 39:3ø†Ð_c“3]32“Žc]“Žci“GA@kA@@AjGqAqGkAAqGkFkAkGqAqAq@Ak@Ak@:q:GA@qrrG@k@rqxq@:AA3@@::::A@@:qAq@A 9ƒ: : 9:ø„Ï cc332]cŽcc„cY“i@k@ApAkqGkGkGqGk@:qqHqGqqHkAqGkqGqqAG:@AkF:Gqqrqr@AGq:9@A@3 : 39@:@qAq@A@AjAG @@AjAA:9ø„Ïic33]c“ccŽ“cŽihAj@AqAqAqGkGAqAqGqHqrGqAAk:GqqrGqrGqGqqrqGkG:AGA@xqqA@AjA::A@9:9 ::@AqGqqAkAqq:qAq 3@:ø„Ïcc22cdcd“cŽi@k@AAkGAqƒAOqkGqArqqGqqrAqG9:GrqrGrqHkGrGqAqq@AjG@kGG:@:Ak@A@:A A@:::qGkHkGq@GA9: 99:@ 9ø΃c-2Žccdc]c“@A@kFAqqAƒqGqAqqGrGrGGqGqAƒqGrwrGrqrqGqqGAqAqAk@AkAqk@@A@jƒ@k:@:9@:@::GqGkA@q:@3Aq:9:3:øÎ ]2]3c”3]ƒcMŽiŽo“@AjA:@AqqGqGrGqAqGqqGkqGrqqHrGrxHqrqNqGqHqkGqrGqGq@@k@AAjA@AAd:@A::@:9:@…:9AAq : :A9: 9 øÍ c]32”cƒcŽcb@@3@@:@kGƒ:3Gqq…AJqGrqqHqqrqGqqG9GqqArqHqqAqGkAqAq@AqG@kAj@:@:A@9:: ::@:@:Gk@Aq:@39:: ::@9 ÷Ì)c]c\”c3c]cŽii@A3@@qqAq9A@:3GqAjAq3AkƒA.@AqHqr@Gk::rGkAqqHqGqrGAkGA@Aqk@A@A::@9:A:9:3„:9:@AjGq:: :99 :@A:÷Ì!]c3“cŽ23c]cŽ“Žc“@A @A:qH3GrqH@Aƒ 4: @@AjAqqA@A@GkqGA9rGq3rqGAqGrjAqq:@AqAk93@A@:@::ƒ:ƒ@ :3@AqA::9: ƒ:Ak@:9öËi]ccŽi]c]cd“c““@-:@jAA@qA:Gq:Aq@j@k@::@@AqAq@@k@AqrqAqGkqqGq:qrqG@qHq@kAF:@@::@A@9:93:9A@: 949GkGq@:ƒ@:9::93õËc3iŽcc]c“d”c™@A@@A@qAkA9ƒ:@kA@:@@A@@:kFAqqrA@qGƒA2q:qH@3@rAqqrq:rqr G:@AA@A@d:@: :94:3@@A:::qAA@ƒ:@„:9:õÊc3“c3„cŽc“dŽ“A@:9AkAjG@:9:ƒ@A@rq@k:@@krGqGqAA@ƒq=GG:q:@AqGqqHqG:Grqr:q@@kAjA@@:@39:393:@AAjA9:9:Aj:r@::@99 9:õÉ]c3c]3ccŽc™“™@A@: :@GA3:ƒ:K@AjA3 : @:@:AqAqG:r@kAAqrAqAqr qAqH:rq:@GqGqAqA@k@Ak@;@: :: :AjAA9: :A@Gqƒ:@A9:9:õÉ c”cccŽcŽcƒ“ i“Gj:@:k@k9ƒ: 9::@A@:A@@ƒ:39@ Gk@@kGqAqGq@@rGr@Aƒq3@rGq:qGqGqAqA@@A@A@::@:94@::99 @::39AqG@3GAk :::3ôÉ,3c3ccŽccii“h™’A @A@qA:@9ƒ:VGkApA:k@:@@;A@:@;@@A:@ :qrqrqq@kHrGA@qGq;@rqGk@AkAjAj@A:9A: 9:@@:A@k@:944AA9:@A::9:ôÈc32,c”cccdihƒ“ ™Aq:kFk kG„: ::@@:q@::„@(3:@AjA93@:9Ab98“™:qqr@kGr@@A@:AAkFAq@:@ƒ:9@:@ ƒ:@@A@:9:9:9AjG::@q9:: 3 òÇc2ƒcƒc"Žch““i™h“A@A@Ak@ k@:9:3@@kA@kA@:@„:$@:@kA@: :: “2b™c@A@G:qGAkqAk9qGkAƒ@;@@‡::Aj3@ƒ::939:AqA9A :9:@òÇ cc-Ž3cƒci“h““™“G@k@q:Aq 99ƒ:E@A@k@@::@::@Gk@3GAj@:@9Ak9c:c@k@: 29:k@@AqAA:Gqq:A@@:@@:9G:@::9AA 9„:GAk3@@A:@:9 A@ñÇ]cc3„cPbi““™“ojAjAA@@A@39:@:9Aj@@A:9@:@:@:AA@:@@:@:9::@kA@“@AqA3283@A@3A@@::@:k@:A:@ƒ:9ƒ:k9@@::@:A9:AqkqG9::9 kñÇnccŽcŽcc]ci“h“i˜““GkG@kAqA2::@AkGA@A@:@:@A@:GkGj @@:kA@A 93:Aq:i@@kGq2] @3Ak@qqkG:@A9:@jA:@:9::?:9:9:@:@:@9ƒ: qG3q::: @ñÅccc†cC“h“i™“™“Fj@GjAF:@:@@qA@k@A:A@Aj kGkA9:AkGAk@3 3@Abi’A@k“283::@@ƒA qGkG@A@;:@@ƒ:9A3ƒ:A@::9 @A9::9 q:GG 9AjòÄ,ccŽƒcŽcc]“ihƒ“+’™“GkAAkAqAp::@AkAj@A@k@k@A 2 3@Aj@ jGA:9ƒA!9:cbici“ch32A@9 k@jGkG9:@k:9@A@:9ƒ:ƒ @:@:9 :Ak@ƒ: AqAkq : 3ñÅ533cccc““i’A™“™@A@AjG@ kA@::GjGA@@A@kAk2 333 3ƒ:.93 pAk@2ii’ih23hA@A3: 3A@@::3:@ @kA9:@:@:3 3„:9AjGk@GA:9@AqAG:@3 ñÄ33“dƒc*]ibi’iA™“™“G::qA@:3@A@@:GkA@k@k@G9 :9::@ƒAK 3@::AA9Aq@A@22“c29’iAj@3@@A@:A@AA99:3 k:@ :9:: ::9:AAGkAk@@A@k:@j:@::9ðà c\323c]3ƒchi““™’™“Gq9A@@:qAkAk:@kGj@Aƒ: 3::ƒ@O:@9@::9AjA@Aq@A39hibcci2: @A@@k:@:k9 :Gq @:3 ::?::::@AjAFk@A@kk9@GqA:@:99îÂc33\32c„cJh““i’i™“™A9Aq9;GAqG@@:@AA@A@@:3:9:9:@;@:@3 9 :@A@kA::22cch““cc:@AdA:@ƒ:)@:GkG:3:@ @::@:99:GkA@A2AAG:AqAqA: @kƒ@íÂ?c\93dcc]ic“@“™™“™˜GkA3GkjG@kA::@j@k@k@::99::9:9:3 3: A@jƒ@'A3829biihicc]9A 3@A99::9AqA: ::9 : ƒ:9::@:9 qAj @qAqG::A:@:AíÂcŽ3cc„cyh““ii“™“™“q9 GkGAkA@@kFA@:@A@A9::9::A:@:@A9:@93:3@:AAk@9c2i’cicŽcŽc2923GAq93:939:9:@ 3 :@:@ 9::@:Aq: @qG::@@j @A:@:ìÁ)2ccŽ]cccci“h™’™“˜“GA3GkA@9Gk@@AjA@:@Aj„: @k:: 3 @Aƒ:&: :kF:@ h8c““hc“cd“Ž823::@AA@ 4 ƒ:!@ @@::@@:39::93:9Aq:qAq::@A@3A3:íÀc3,2„cHcdbi’i““™“™“™q:GkG@:9A3@A@A@:@:@A@:9 2;@:9@:@:9:A@:@ @9:Gk::@9:2c“h“™“ƒc4d“3@:9Ak9Ak@A3@@:@Ak:@@A::@ :9: GkA9GqA9@A::@:9 íÀccc]]ƒcib“i“™ccc]o@A@AqA9AGjA@@A9@A9 33@q::@ 9@A33G@q kGq :@jA@qAqí¿']3Ž9ccdcihi“™’“™’™™A@AkAGA9@@A:qAAkƒ: 9::9::9: …@†:0@::9@:A3@@ici˜“™dŽcq:qAj@A@@3GAjA@:A@k@3 3 q@ƒ:@:9: k 3 qG3@@:@AkGkGíÀcccŽ…c2““i’“™i™G“Gq:@@q@k:AA@@AjG9:@:9::9A9::@:kAkA@:@:@ƒ:H@A: A@: 2h232“™]cAAGkGk@@:@3A@kA@@AAq99AA@ :: :@:9 :3Gk:@k:@:9AGk ìÀ&2Ždcc]cch““i™“™“GÃqAAqAk@@:@@:kG::@ƒ: 3@A 3@:9::ƒ@:3:@A@ @@::9:3@ c22cb9„c+Aq@@qAA@k9A@Aj@Aj:Aj@:A@ :3@@:9@9:9 3Aq: ƒ:AAkFk íÁ“d“„c “ii’i’“™’ƒ™qApAq@A@A:@@kG::@:3:@@…:@:A@A:9@: :9:9ƒ:F@:@ :@3cb9c“iAkGkA@kGk@@Ak@A9AqA@:Gk:@@:@: :@k@::A9@AqG:9:@@kFAk:9ì¿*,cdc3cic’i““™i™“™Ã™qAqAqGkAq:k@@k9: 3ƒ:9@@:„@Vk@A@:A9:@@A:9:@:::3 hc8c’™““AkF@@AqAA:q@@A@A@Aj9AG:A@@:3@kGA::A@kGkGq:@AA@k@93 @3ê¾c“Ž2c]ƒc’ii’i™“„™ qrGkGkGqG:@ƒ:@:9:9 :9ƒ: @:@@;jA@kƒ@k ::ƒ@$:@A@@:3@i2ch“i™”GA:kGkFk9AA@dAj@@ƒ:!@qqj@3:9GkA9:9GAqAqqG::GkGA@:3 3ì½cŽ“3Žƒc-bi“h““™’™Ã™ÃqGqAqGkGk@::@::: @A:9@::@:@A@:@ƒ:PA@A2 k@:@:@k:@:@cbci““™““c]3 93GAAqA@A@@A:kA@GkA@:A9 G@AAqAAqqGkGq:@:@:3@9: 3 ì¾3c]ƒc ]cbi“i““o“ƒ™ ÙrGkGkGkG:@ƒ:g@::9::9::@@::@Aj@:A@kA:@:@: :: ::@39::2ib™h™“cc3cc:3:@Aq@kA@:qA@A@@A@:qA@j@AjA:AqAqGrG:9A@:GA3 3ì¾2Ž“33]ƒc ic’“™“˜™™Ãƒ™ qAqG@AqA:@@:9„:9:9:@:@A:@@::A:@A@jA@3ƒ:J@@,A@A3::A:2ib“™“™c]c@3@@AjGkGjA9:AjA3@j :9::qAA@kGAjA@qAqGk@Ak:kGk@3ì¾]c3“]2ƒc#hi“o“™™“™Ã™ÃqGkG:@kG::@:::@:: 9@…:A@@::ƒ@ A@:@9@:@A„:C:938ic™“™icibbA: :qA:@:3GqAq9AA@A@::A@k@AqAGjAA@AqGk 9@Aj9 ì½.3c2”c33cc““’™“™™Ã™“™qHqAq@kAj@:9::@9:939::†@ƒ:@jA@3@†:@:ƒ@B::9:bcb“ib2ib23:k@kAGk@::@AkG@AA9@:@A::@A@kAFkGkFk@k@ 39::AqA9í¼c]c2d“Ž\3ccih“™“™™““”¸™qqAqrA@G„:@: :: 9::@:k@A@;jƒ@:Aj;@ƒ:L@:@A@@:@@:: 3::9“88cbA9A:@A2cc3]cc]c@:3939:3 @@k@9 :@@9::@:@93: 3ì¼*c3,ccc“™i™™˜¾””™qHqA@Ak@:9:@A:9:9@„:@A:39333Aj:@@:@9ƒ: @k::@kA:::@ƒ:bc23::Aj:::3ƒc32„c ]2:@:9: c]ƒc„: ƒ: 9 3::@:A99 í¼ccdŽƒc"Žc“™Ž“Ž“”™qAqAjG@:@::9:: @::9ƒ@::3:@@A…:%@::@G@@9@A@9:: 9 G9:G@A9@@:3A:::3]ƒc&]32c:@@3 @A c23:9::99:A3::::@@A33 í¼2cŽc2ŽƒcŽ“Ž“”“Ž“”·™“qGqq: k:@:9::99„:/A@k:@:9A:@:@:@:@::@Aj:@:Aj: A@3 3AA93A3 3:ƒ@:@:ƒc&]3:@;@:q@@jcc:9@ ::@kA 93A@:9 ::ì¼ 3”c]2ccc””Ž“”Ž“”™qqrGr@:G:@ƒ:9 3A@::@::9:@::@@A@:@:9ƒ:H@AAG@;:@ ::@9:@:@k:k@:@99 :A@; 9:3A@c:k@@:@:AAc]39::@:@@: :GqA9 39„:3ì»c]c“ƒ3&dd””“Ž“Ž½Ž™qGAqq:@ ::@ 9 : 99A@@:9ƒA:9:A@kƒ: @@A@9::@,::9ƒ@k @@AjAAGk@9::3 …:-@-:9 ::@G:@:@A:j@3- :39:@::@kA: : ::9 3ìº>c2c3Ž2”cc””””“Ž“™qAkAq@:@k9: 3 @9:A@k@::3@j:::@@:9@A:@ƒ:@ @ 9A::A@@::@k@@3A@:†:„@ -9:jA:@@j…:3 9@@A9::@A:@@k 23: 3:@::3 ìº2c,cŽc92ccŽ“”””””ÃHkGqH@A@ : 9 ::3:9A@A9@@AAƒ@A„:@:A@:@ƒ:9 :kAjA@4@:9::@:@A@k933 ƒ3(::@ 3:q:AkAA@@9A 3 dAjA:3939qG9 :9 @ƒ:9 íºLŽc323]”]“Ž”””“Ž½Ž™™qGqrqAjA33@3:9::@A@A::@kAj:@:@:@::A@::9@:9:@AG9@:9„:=@:3@@k@AkAA@9A9:@@::qA::@GjA9A9:@33Ak9 :4Gk:39:3:9@:3 íºA2Žc”2”]”c””””””™qkGqGqA@@:3@::9:9Aj@A9@A@@A@A:@9A@@::@:@ƒ:A@k@:kAA:@@A@A:@@Aƒ@AjA9„:*9: 3Gq@@kAAj@@:3 @49 AqG39Gq 9 3 :@:9:îº"]9c3cŽ“ccŽ“Ž””””“@AqHkAk@A:ƒ:9 ƒ:@A@ƒ:\k@A@j@::A@::@:@::@:@@:GkA@:@@AjA@k@Ak@AjA@A@4::@ A9:A @:A@q@@;@:@A@@3@:@:: 49 9::9 :@A@î¹.cc]“Ž232Žj”””“Ž“”ÃqGqAq@Gk@:3:9::9::9A3„:$@9AA:9@kA@::@:@:@:@:AjA@@:@:A@3AG@kG„: 2A@9 :@j: 3:ƒ@j:9@:A::@@A:@A:@3@9:ˆ„:3@î¸c]ccŽƒc"2Ž“Žc””“Ž“Ž“¸™™qGkAG@kG::@9:9@ƒ:79:@:9@:@Aj@: 99:@::@:A@:@:A@@:@AjAjAAjAk@A@::9:9: 2 3:9ƒ:::A@::A@::@:@jAqAqAG::@‰: 9ï¸$c]cc2c]3c””“Ž“Ž“Ž”“™qArGkqAAj@:9„:'9:@9::@:::@A@A:3 :@::@@::AkFAj:@@Akƒ@ AqAq@:@ :@„:, 9AA:9@:jA@A@:@:@Ak9AqGk@qAAkA@A 3:9 3ð¸.”ccŽcc2Ž“”cŽ”“Ž“Ž“¾™qqGkGrpAA :::9::9:9„@ƒ:@k@„: 9:@:k9:@:@…:<3AjA@:kAFkA9::3@:@: 93@3@A9:4:@:k:@@:@@AkGkAAqq@A@kG3  õ¸#“Ž33c]3ccŽ“”“Ž“Ž“””™qA@AqGAqA@9„:9ƒ:+3:9::A@:@:9:9A@:@ ::@@::@AkGkG9:@ 3@@Aq@A@ƒ:@ @:A@@ @33„:Gk@A:qAk:@:9@ qAp@ 3 :2ö¸!,c“]23cccŽ“Ž“Ž””””™“GkqqAqAq@ƒ:9::99@::@:@:@Aƒ:@A@ :@3AA::@@AFkA::9:39ƒ:Aƒ@:@:9 3:9@A@:9 9:„@-A…@:A@3@:AAk3:÷·(c””2c”cj“Ž“Ž“””™“qGrGkGkGk:@:9:9„:9::@@k@k:9:Aj@3:@@Aj@ƒ:@k:@:@:9„:" 9:@q:@A3:94@:9 :::@:A::A@Ak@3 @k„:AjG ƒ@A3 :9÷¶ccŽc33…c!¸”””“Ž”™rGqAqAqAqA9::::99:9ƒ:9;@@::@:99:22@:A@@A:„@A9::@99@:@@A@:ƒ@ƒ:) ::@::9:@:jG:93kG39Aq@:A@:qq::k99: ö¶cƒc%2]Žc]cc””Ž“”ÙÃqGkGAqAG::@9:9::@ƒ::ƒ@>Ak9:::ii:@:@k@@:Ak@A: 9 3:::2:@:49:::@::@@:: 3Aq: :3A@„:@3:@:939GA@::Gq A@ö¶"d”¾”Žcc”]””“”ŽÄ”¾™™qGkGqAqjƒ:)::@:9::9:@::@9 ::@Ajcb:@:A9:9:99:3 9 :ƒ@:::@ƒ:/9 ::@::99A@A:::@ 99 3A@@A@A 3::@AAk@A:9A@@:ö¶*c””Žccc,cc”¾Ž“Ž¾¾“”ÃGrGqAqGkG:?::9:@ƒ:9ƒ:@@AA:@@A@:9:@:@k@A::ƒ A3:3 kA@: 3 3 @@A3::@:9@AjA@@ 3 @A:9:Gk@@kG39AAk@A::2 3A93:@@ô·G“Ž“cŽccd2c”¾½”¾š¾”½™qqA:3Gr99:9::@:9:9:9:@Aj@:@AjA3@:@@33 3@:ƒ:$@@ 9::9:99 ::949@:93:@A@@:dA93:@@ ƒ: k@A3:9:9A@@k:@:9 q:@9ô·ŽiŽcc””“cŽ3””“ƒ¾”™rGqqGq:rHq::9:9:@ƒ: 9:@A@A::@A@3„:@Ak 9 ::@@:9:A@94@…:2@@A@:::@: :@k@;@A@:@kAk@:9:AG@qA @A:9qAG:@:GqAƒ:ô·+Ž“Ž“Žccc3c”””“”cÃqrAqAq:x@A9:::@::ƒ:L9:@k@@3@A@A9:@Aj@339:@;jA9:@k3:@:@:@Aj:@:9A@::3:@::@k@@: 3A@@: 394:@@3@ƒ: k@::qG :@9ôµ(c2-”¾“”ŽcŽc¾“””½”Ž”“¾™™qGqAAG:qA:@:@†:@::@A@„:jA@9 @AA@ 3A3 ƒ:@:: @::ƒAjA@ƒ: @3:@::@:9…: @:@:@::A 99A3@ :@: F::@:9@: @ó´2cŽ2c”3c”“d“Ž“Ž“Ž”½”¾””ÃxqGkGqqAG::9::9::?::@ƒ:@9::@AjA::9:@:@3@::3:@A@9:::„@9:@A@…:A 9::@@A@@:3@AkAkFƒ:9 9: @:qqAG:39 94ôµ#c2c]c“Ž””]“””“Ž“”¾“Ž½”™qrrGrAqA9„:9„::@:@9„:@A@3::@::@:39A@@::„@?4:A3AA93:@A::9::A@:: @:AjA: kFAAk :@@A:@q::3@ AjAq 33:9 óµ,2]dc”””””””””“Ž“ÃGqrqGkGk9:?:@:9@9ƒ:@…:ƒ@A@:: ::ƒ@ :A@A@:@::A:@ƒ:@ƒ: 9:@::@A9ƒ:@::@::@@A@3:9:kFkƒ@@„: :@::3G3G9 : 9 3 òµ'cc¾cŽ“d¾9”“Ž“¾Ž“Ž¾“¾Ž““AGrqGqAG@@::9ƒ: :9::@A@@:9ƒ:9:AF3@ 3::@39AA@@A@@k@@ƒ:@:@@::@AjAAj:9@:@:3ƒ:% jA @@:A3@@Ad::::qG:@G3:9A:3: 3òµ#cŽcdc”¾“]]”Ž””½¾Ž“Ž”™qqGqGkqA@…:9:9::@@::A@:@::@:@::„@M:@::9@kAjA@A:@3:@@AA@:A@AjAF9 ::@:@93 :3@@A@@::@:G:@kAFkG2qAkAAk@:3@@:9 9ñµ632””cc¾”c”¾“cŽ“Ž¾“”“Ž™™qqrGrqHj@::@9::@:9::@:9@:@ƒ:@ƒ:@AA@A@::3A:9A@k@k@ƒ: 9:9A:@@:q@@ƒ:'3@A:9 :9 k:@dA@A@:qAq@ j:AAqG:A2A3A@ƒ:9:@ ñ¶#c3cc¾”2]c¾”2c””“ÓqG::qHpA:@ˆ:9:@:@A::@:A9:@9::@k@k:::@::@ƒ:;@:@:@::94@A:@:@::9 A@A@:@4@@A:A@j@k@@:A@:: @@Aqq@ 93@:9ƒ ::3 ð¶+c”2c]¾¾cccÄŽ23”””¾Ž“™qGrq:9A9 ::@9:?::9ƒ:„@"::@A@::@:9:9@:@:@A9::9A:9:@::@@::9ƒ:&@k@:@:: :@3:@:99 A:@:@:A:A:A:@@:@@k@kƒAA@3: 3@3@:: î¶#,””32¾”¾cc]“Ž¾¾“”¾¾“Ž™AqrGGkrqr9„:::@:@:Ak::@:@@k@@3@ƒ:A@A@:@A9@:@@::@Aƒ:@:ƒ@ :@:@@„:!9::@:A:@jAk@@kAp:@::k@3 @3:@kG3@ƒ: 3A@A:99 î·.c]“Ž¾¾“]3¾”””””“Ž“™qGrqAG9HGA@:9@:9:9:@@:ƒ@::@:@ƒ:@::@ƒ:@:9A@A@::A@:A@@:@: @ƒ:893@3::3:9::@ :@@Ak@A@3 @A@3@A@A@::@AGjAq:@@A 9:@@:@ 3î´%”3”c”c¾”c]“””¾“Ž“”Ž““qGkGk@kqA„:@:@ƒ:@ƒ:@ƒ:@@ƒ:@ƒ:9::9ƒ:jAA:@A@@::@3:@::@::@ @:@ƒ::3:@:@k@AkA@@Aj::9@@3@ƒ:qqA9AG: @3:@A:@Akï´ “32cc3½3ƒc3”¾“Ž“ƒ”””¾™qHkGq@@G:@@9::9:@: 3ƒ:#@:@A::@::@:9@A:@@:@::@:@:j::@:@:@:9ƒ:83:@: :::3 :@@kAGjAF@k@:@AG:3 3:9:@:A3:9@:23@A@j@A@ î´ 3“c]]3“]ƒ”“]2Ž“Ž”¾¾“”¾™™kqqr@k@ƒ:-@::9@:9::@:@AjA@A@@:9:@:@A@::@@::@A:@:@: @ƒ:9„:…@0:3@@:@;qAkG:@;@@Ak@@A3::@ :@A3 @:Ak@3@A@:@::@î—c,œ&Ž“d2¾]“”½”””“”“”¸“””™qGrGrG@AA:3ƒ:9@†: @:@:@@AjAk:@ƒ:@A@jA@@A@:9A::9@:@:3:@:@:9„:/@: @:@;@k@qAq:@j:kA@:@k 9: @@::9A@@A@:@@:@4:9ƒ:î–”23š%“Žc”c”]3\c”Žc”Žc“Ž“Ž™kG:rGkA,@:@…::::9::@:@:@@:ƒ@:: :@::@„:@:@@:@ƒ:93@::@9ƒ: @:@ƒ:/@;@kGAqAG:@:AGk@@A:A@A3-@@3A@:Aj :@::@@49:î–cc”2˜3cc”Žc3“ccŽ“¾c”ľŽ™“GkwGkGqx@A9:@9@:9::@::@@ ƒ:@ƒ:@ƒ:@3:@:@:@:@:@:3:@::@ƒ: @::@:@@39::@:ƒ@k@k@A9„@#kA@@:kFk9Aj @@::A:3@@33939A@@:@î–cdc”]˜$Ž“c”“Žc¾”ŽcŽ¾”¾c¾¾”“Ž™“™AkGqAqrGjƒ::9::9::@:@:@:@3„: @:@:@9@:3:@:@†:B@:9:@:@:@:@:@@:@@;kAAGAjA@A:kAGj@A@kA@ A3 @A::@@9A@, 9 ::33 9:ï—3232]]—+Žc,c”½””c“”¾¾j“˜“GkGkwrGk@:@:9::ƒ@ƒ:@@ƒ:@@„:ƒ:@ƒ: @:9::9:9@ƒ:9@::@:@@:@::9::@:q@q@k@A@@dGkG:A@:@A@3 3 3:@:@A3: 3:@ …:ï›cƒc]22“+c“cŽ33cc”¾”cŽc“Ž”“Ž“™AqAGAAjGAj::@@::@ƒ:@:9A::@ A:@9@@::@: @:9Aƒ:@:::@ƒ: :@:@A::4„:*A@A:@A@j@;@kG:@j@Aj@A:9 @@:A:@j :@33 33ƒ:@:ð c,33c]c,cŽ“„"”””cc¾¾“d“Ž””“Ž™q9 3q@ @k@9:@:9„:„: @k@:9@4@:@:@ƒ:@ :@:@:@:9:9@ƒ:@ƒ:@::ƒ@/9AkF::q@A@kGAk@@;@:A::9: ,@@3 @:@:@9 :: 3@@:@ñœ]cc32„c3‘&Žc”]”iŽc”Ž“Ž“¾Ž“Ž““Ž”“GAqAqAqrqA::@ƒ:9:@@: 2A@@:@:@:@A3@:ƒ@::@@: 9::9:@@:@:@@„: ƒ@:A@A@@AA@@kAq@:ƒ@k@::@9 @: @::A:9::@3:øœ ]232,3,,23$c3“Ž“”c””“Ž“cŽ¾cŽ“Ž™“wAqGk@rwA@A„:!@:@A@::@@:3:3@::A@::@A::@:@:@:@ƒ: @A@:@:@::@:ƒ@::ƒ@&:@k@j:AGk@:@:A@:@::@ :@4:2:@:3@: @3ø32c32332,2‹6c]c”2Ž¾”¾”“Ž”¾¾””\3“Ž““™qAAqAqAGkG@::?:@:@::3::A:@:@ƒ:@@A:@:A@::@@:3ƒ:@@9„: 39::@ƒ:@ƒ:kA@kAAj@@:@A:jA@ƒ:94k:@@3@:9 9øƒž]c3]c323232Š&ccŽ2“cc“]c“¾“¾“]cŽ“”c“i™qAqA9A@Ak@A…:@A:@:9::@:A@::@A9:@9@:@9Aƒ:@@ƒ:9:@:3@„:@:ƒ@:A:@A@@A@@A:@@:ƒ@::@:@@:@3::A@: :4øƒ¡ b]3c323]‹I3”23cc]””cc¾”¾”c“Ž”“i“GjAqGkqqr@:@:@::9 :@@:@AjA@::@@:Ak@3A@A::@::@:9…:@:@@ @:@3@A:@@:kF„:@:@:4„::@:@:3@A ::@::@ø„£ c2c]cc]3]2Š$“3c]¾¾¾”,¾”¾¾“Ž¾¾”ÃirwAAqGAqHq@ƒ:@ƒ:9„:O@A@@:@AjAkFA@:Ak@:@:@::9:@@:@:@:@:@3A:9@;kFA@k:@:@@::99:9@::@:9@:@:@93::3Aø…¦ƒc”2232Š1Ž”c]¾”“”“¾”½”¾””c½¾iÙqrGjGkGqGk@@9:9:@:9@:@:kƒ@k::@:Aj:@@A@:@@†:59A9:@::@;@:@:@4@kGkAj@@:@:3@::@ @;@@::A:@@k@ 9 9:ø…ª cc,c]c]23†Lc”“3¾“¾”¾””½¾¾“Ž“”Ž™rwAA@qA@Aq;9::@:::@:@:@:@:@@A@:9@:Ak@@:@:@:9@@::@…:+@:9:@@ :G@k@A@:@::@A@@4:@@: 3@:@;3@3@: 9ø‡­ cc3c]2]32ƒ)c¾Ž3“Žc”¾””¾”¾”¾”“irxA3:q@k@A@::@ƒ:@:@::@ƒ:@::@@A@@9:A9::@@„:@:@::9ƒ:@A: :@:@9 @:A@:@:@ƒ:@:@:3:A@:9@ ::9Aø‡±…c]c]”c2c,cc”“”¾½”¾c”ƒ¾c““Gk@qGq k@A@9:9::@:@:AA9„:@@::@ƒ: AAj@:A:@:::@„:9 @9 ::@:@:94 @:jƒ:@‡: 9 9A@j::9 ƒ::øˆ´3c32c22cb™@ci“™”“¾¾“”“””“2GA@AkGqqH9@k::@::9::ƒ@:AFƒ:A@:A:A@@:@:@@:@:@@ƒ:-@::93@;@9::@kA@@:jA@:@::3@9@:@ A:3::33:9øŠ¸'dc3323@:@2@ :3@:@“™““˜“™™qx@qAqHkA @@„:.@:@A::@:@k::F:3@jAp:@@:@A:@:@:@A9:@ ::@@3:@:@…: :: @ @:A:@ ,@@:@@ 3: 3øŠ¼Fc3299:3:: 3:3 q::ArqA :993 :k9::@:@@:A:@::Fk@::A@::@;@:@:@:@;@„:3 9@::@:A@@::@: @:@@33@:93 „:@4ƒ:39ø‹¿,3829 3 ::9393@::@:k @@ 2::@3 :@:@k@ƒ:9A:@A@@::@@:@:@:@::@ƒ: @@A@:A@Aƒ:9:ƒ@:@A@3@@A@;3 @:@:9 :@::3 ø‹Ã332:9 @ 9: ::@: 3@AqGq ƒ:#9A@@::@A3:@:9@::@Aj:9::@:@::@::@:ƒ@39;@Aj:@A@@:@:9 A@j::3:AAƒ@ 9A@A3:@:@33øŒÉF9:9 9: : 9A@:@qqrqG3G::A@:9:@@:@@9:@A@A@:A@@::94:@@4::j A@@:A@49:Akƒ@:Aj:A:@A@@k@3:Aj@3A9:@  3øÌ2: 3 :9 @@3:@GqAqA:9@Aƒ:9:A@:@;9 9:39:A@:@Aƒ@::ƒ@,:@:@;j@A@@ApA@A:9:9A@k@3 3:@@:: @: :@33øŽÐ 894 3:@@;@„:#9 :9:@:@:39@:Gk@:@A@:9:@kA:A:9A:@„:@3A@A@kAAk@@:Aƒ@:@AjA3@A: :@3::@;::3 øÔ<99 3 :@::@@::9::@:@A::A3:@Ak@::A@::@@:@@::@4:: @@k@kApA@kƒ@ k@4@A@A::@A@ƒ: „:@39ø×=]A39@:@:@:@4@:@;@:@:G@:@kA33@:G:@:@jA:@::9 @3 jA@A@AAkG:@;@4ƒ@:j:@:9:A@ @:@@3 3 ø‘Ú 3b:9::@:9@@…:-j@A:A@@:GA39:9:A:@::9@A39 @@:k@@j@A@@Aj9A@:A@ƒ: :::33::@:3ø”Ü 23cA@@:;ƒ@%:9@:@:93@A:k@@:A@@::@::@;9:A@kGA@:@@ƒ:9:@:@kA@9A39A@3::@:@3  ,ø’ß32-239†:C@:@A:@@9:@@:A@A:@:@@A9:@:@33@Ak:9A@@::kAj 3:: @: 39@9 ,323øŽãL32323@9:@:@@::@::Ak:j: @:@::9::@AA9::@A@AjA:9@@A:9A3 @::93@::3 ]9-2-,øæƒ] 2]3] :@@:@Aƒ@:@::93:3@@;9@Ak@A@9::@k@ƒ:@:99A@3@:@@::@9:3 ]c]9]c2ƒcøŒê13b2]323:94::@A3@@A:93: 3:9933@@A@:@:@:9 :@:@@ƒ:@ 3 ‡3øí"323,]2c39:A@@:9@:A@qA@A:Gk@A::@Aƒ: 3:3@:A@„: 9 3øšñ3323,ƒ2]…:@:GkA@@kGA:@::9 9:9 ::@„:@ 99 øšõ33,†c::9„:G@k@:@ƒ: 9ƒ:@ƒ:@3 39 3øšø3323‡cc9:3:k9:39::9:9::@ 3:: øœø„,32Œ3394:::::39 93øœø‡32 33:93 9: :ƒ øžø‹,]2ø´øc]ø³øøÄøøÄøøÄø§22ø›øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄócc]c,2,23232ø¹îƒc],3ƒ2 3]2382c2]2c]ø¸ìc]]c]c223,23223223322ø¶é!]c]c2c38322,   93 3 99ø²çƒc'9\39283: 3393 :9:3:9:39 q : 3 9ø«å)]2,c3c9]22:3 :99 :3::9::9 AA@439:9 ƒ:ø©ã223cd]c3cchc33::9ƒ:3:::@:@::99:@::@:@ 9 93 ø¦â2] ]c3†c 9 ::@ 9 ::ƒ@9:@@:@:@ Aq::@ƒ:9:@ :@3ˆ232ø™à,c3]]9]]c22c3bi:@::@@::@A@@:A…:A@ƒ:9 @@::@@„:@: 9:232,3\3232ø–à“3]cc23dcbc99:@„:9:9 :q@:@@::@A@A@@:3:@:@A:@ƒ:3@:3:::22223ø–Þc322cƒcŽib9 9:9:9@@A@A:kGA@::ƒ@k@k@:@::Gq:@:A:ƒ@ 9: 9 3: icii]b3ø•Ü83233cc]d9ih4:9:A@A@:@Aj@: 3@qGk:@A@A@A:@:@A:@jA:@…:9: 2 3 :’cccø•Û 2”233cŽccŽƒc'iŒiAj@A::@::AqA@A@qAqAA@A@kA@k@@A@Aqq:ƒ@:AA@ƒ: 3: qA93 38ibcø•ÙN]2Ž232]c9cccib@@;@:@A@Aq@AjAkA@:@kA9:@@kAqA:k@k@GqHk@:9:j@::@39 k@ 3 3icø•Øcc323,ƒc(cŽccŽbc@;@@kA@k@@AjA@A@qAkGqqGkAk@Aq@Aƒ: A@:3 qrGAƒ@:@A9 3Gq::@3ø•× cc2c3,cŽ]ƒcF]cdc“@@:@A@A@Ak@@:qAqA@qGqGkGk@A@3AqAj@Gk:@@9qrq::@A@::9:GqG : @@ ø“Ö,cc]2d9cc3ccic::@k@:2 jAAqGqAk@qGkAqAAGƒ@$3G@qGkG@kA@::9@3r@@r::@Ak9 33:3ø“Ö]]32dƒcc3cŽƒcE@:9 3:Aq :q3Aq:@AAk@GAjAkqAkA3GqqGkGqGkAkAA@@Gqr@:qqrA9 9Gk@:øÕc]23„c]3ccŽci::939AqGqƒ:8:@@qGk@kGqGqGkGqArrGqAqqA@GkA@A3: qqGqq GqA@:39Aq@A3 øŽÔc]c3“ŽƒcQcccci@9: @:AqAqAq@@:@AjAq:3 A@AjGqAqGAkAqGqA@kGjAjA@:@Hqq;G:9::9 : 3 q::G@3øÓK]cc2dcc]cŽcŽcŽ“i@@:3:GqA@9 : Aq@r@:A@Ak@@j:3AA@qGk:@@ kAqA@qG@A@A::9;@ ƒ:::99 93:Ap:@A:øŒÓMccŽc3cc]cdcci“i“A39:@kG::qrq kGkGk@@A@@A@;@G:@AkAqqA3Gq:@:qAk@kAjAA9A@j9ƒ:: 3 :AqAA@@ø‹Ò/ccc3c]cccd““h“@k: @:A::@k Gqq@A@A@33@:k@A@ƒ:9ApA@k9G: @AkAqAA@q@@Ak9::A9ƒ: 9:@@39AqAjAkAø‹Ñ ]c2c]3cc3ƒc%di’ii“™@: @:A@kA 3q @:@:@ :A@k@kG„:A@kG3qq:@qAAqrw:qGkƒ@AA@@:@„: : 3GqGkG@:øŠÐ c]2c]cc]cƒc“bi“’i@A@@j:AjAF:99 ::@„:8@:9:@AqAq:9:@AqGGr A@rq:AA3GkGkA@qqAA:@::999 9AA:@AkA9øŠÑc3-cŽˆci““i™“A@:@A@k@93:@ @@:Aƒ@6:Aq: :Ak@qG9:@AjG::@qkAqqAq@A@3Gr@AqAq@k@:@:9:49 9Aqkƒ@A@ø‰Ïec22cccc]cc“h“h“’i@k@k@A@AA9 :3@AkkA::qA@93qqAkG::@:@@kAGqG9AGkGkG3:@A9qG @@:: 39:393GGkGk@@:øˆÎc2ŽŽcc3…cZbic“i“o“G:@Aj9Aq9 3:@:@A@A@@:@:3A@@:A@Gk9Aq:AkGq:q:AAkGk@G::@A9Aqr@4@@:9::9 44qGqAq@kA ø‡Í]cc,c3ƒc]cchib“h™“’Aj@@k@: @A3 ƒ:D@:kAp@kGk:::kG@A@@AqqG@qA:AqGqAq@A:qAq@34@Ak@@:@:9: :9 9::qG:A9A3ø‡ÍƒcŽc3c]ƒc@icb“i““i™A3A@A:Ak 39::9@::@@A:AkG:9:GAkk@:A@@A2“i“AqGqq:@@k:9rwrƒ@AkFAA:@ƒ:99 3 @@ƒ:@::  øƒÌc]cc]2…ch““i“@™’™“@A@k:@G@„:G::93Aj@@:@::„@:qAk@k:2bi“hkG4kAqG:qAA:Aƒ:Aq@:@…:9 3 k:@@:@qG94:@: øÌc3c]ƒc-]ccbi’i@“™“™Ak@@Ak@3 :99A:@::9@:@::@Aj:@:ƒ@7kGA9i’ii“ @kG qq:AGq:@@:@:9@@:@:993A@A@kG:A99 3 3 øÊ c]2c3]cc]„chcƒ“2™“oAAq@@Ak@Gk@:9:@:@@Ak@::AA@A@@AA:AkAGkG,:ii““hƒ:@b::AkF:A@:@9:@A:@ƒ:9: 3@:@:9A@kA:3 k93 ÷Ê2c]]c„c.]ic“h“i˜i™jGk @k@A@@Aq : :@:k@A:9:@@A@jAk@j@Apƒ:(Aq@“’i““i™:A83GA99A@:9AAq::@::99 3:: @„: @Ak@: :9 4 9÷ÉZc]23cc]ccŽcbi“i“™i“™“™A@@Ak@k@:9:@@A@Aq@: @k@-@:Gk@AkA::@:9ii’i“˜“hcqA:“i9 :@k:@kA@93ƒ::9 :@:@::@AG@: 93 3÷Èc]c]cdƒc#]cci’“h“’“™“™ApAk@@A@k :9:@AjA9:@99„:@AAqA@@Gƒ@:kA@:bii“™“ibcGqA™A233@::@@9GA9:93:93@A:9:@:k9::9 : öÇ2cc”ƒccch“ii“™A™’™“Gk@A:AjGƒ:S@Aq:@@;:@ 9A:@99Aq::@::A@kA92i“’™“’i™8kA™’ii8 ::GA9 :Aj: @9: : 9:@Ak@@::@@3:: :3@@3õÇx3]ccŽccc]cciib“’iA@™“™AjA3GjAq k:9 k@:@A:G::@A@@A@A@@:@:@k@k9G32c“i“™“™bcA@Ak9A@3@kAqAk@:3: ::9 9:9:@::9::@:@G33 @:õÆ 2]c3c]c]ƒc]“i“i“™™“™“GA:k@G@3A@:: @:@A@kAj@:@k@k @::q:@499:GkG2ih“h“hcc2@jA @::@A@q@:@:: 9::@9:9 39 „: 9:GqA9:3 9 óÆ 3cc3c“c3ƒc!“h“h“™’“™“˜“q@kG@kA@3::99:@:@:@@A„:J@AjA:qAA@:: @ Gcb™“i@iihib339@k k@@qAA@:3A@:::9 4 3949 9@::9Gq k@:3 9 óÅ2cƒcŽ]„ci““i’i™“™i™qGqA@A@k @A@ƒ:@A9„:9:@@kG:@9AqA::@A3 2c22“™bƒ:c283@A3:3@@AqAq@A:q@ƒ::: 9 9::3:9:49AA@@: 93óÄR]cŽdc3cccb“hi““™“i˜Ã™r@:@@kA9:@kG@G:3:@:@@A@:@A@kA@A@@j: 9 qc82ci@:@q99\2A@ ƒAkƒ:$Gk@:GqG:@:9 93 93@ @A9 9AAqq3A@3 óÅ”c“”c2cii“i“’i™’“ƒ™eÃqAA:kGj::@AqAk:@:@Ak@kA@kGk@ 3@:@A:: 3ikA2ck@qAAb3c@4q@qG@ 9:3 3q:39@3@: 39::@A3::9GAG@Ak3óà c]cc2]cc]„chi’i“i“™™Ã™ÃGrFk@@:@A:@qAqƒ@T:AqA@A9:9AGk@@kAqkGk 3 b@A@2“i@qAqG23:@:@:AqqAk:@::: :9: 3:339:939A@::9:q@qGk 3óÄ]i,3c3c]cc“i“i“’™™“„™ qqAGqAqA@ƒ: @AqA@AjAFk9ƒ K939:A@9AAq3Aq:k:ci3::Gk83\::@:@AqAqG3:@@ 3::@A9 9:9A94:AA9: @:9 q::G@3óÃc“3]2]„cih“h“™“„™;ÙqrGkAqAAkG::GkG:AkGA@3 9393 : 99:@:@9::@A:G@9bibi“h“83:A@ƒ:3Gk @::ƒ@ :9:9 : @A99:@k: :: :AqGA9 òÂ(c333cc]dcc“i““˜™“™™Ãq™™qAqA@q@q@:@Ap:ƒ@k@:9 :ƒ 3 A3 :@:AA9:@kGA2cb™bci“2ƒ@k@@A@Aƒ@k:@;ƒ:9 3A3 , : 393@@k:9:@9Gk:933òÂcc]3ccci’“™™“ƒ™5ÓŽÃqqGAqAkAAq9@AA@k@A9: 9:@:@@A@jA:3:@kAGk@Ak@8“icƒ23iic3@:AjAk@:GkAq933:3 :@3:4:@A:9:@: kkGA93òÀc3cŽ3““3]ccii“™“ƒ™$·””“™HkGk@GjGjAA@:jAA@A93::A:@:k@@A@ƒ:E :@A@Aq@Aq3bib?bib23@:A9@@q:@k:9::@Aq@A@33::9 ::@9:9A@A3 @: @A@kA3òÀy2]3c2”cccdŽ™“˜“™“”””ÙqGkwA@k@A@A:@@AjA9:: ::A@k@@39:9::@k@@kG:@28ccb““j3\i3@A:Aq@:@::GqGkAjA: 9 q3:: 939 3 @k@jA@A9óÀ+3]8]2dŽccc““i“Ž“Ž“¸“Ž™qqAq::AA@AjA::@kA‡:P@:@9:@4: : 9@A@k@G392c2chi“i“cŽi28,:@;@:@AqAqAq@:@9:A@3:G::9:3A q@ 3@A@A:@@ òÀ5]cc3c”ccŽc””“Ž“””“Ž“™kGAq@Ap@:AjG:@@A99:9:9@A:@k„:9::93 9Aj q 3 23282ch“hcƒc“329ƒ:9::GkGA@…: @@::9:k AqA@3 @3q:: ò¿ƒc$]3ccŽcŽ“Ž”“Ž“Ž”¾™qGkGrAA:qAAjƒ:9… 9@A@:9@A@„: ƒ:9 Ak 3:i2cii“™idcc“23233A@A„: 9:k@:@@939@::9:99A@kG3 3GAAp3ò¿3cŽ“dc2c3”cc”“Ž“Ž“Ž½””™qrqr@AqA@k@qA@:@3:933@A@k„: 9A@@:9: :9:@qƒ@; , 2i’i“G““ŽcŽ2,:@qAF99:: @@;:9A:9 9@A@:9AqA39@kGkAó¾(c]3“c]33”c”Ž“Ž“Ž”“Ž“¸“™qHrq@@k@@Gk:@ƒ:7: @:@Ak@9:@@:@A@:@@3:@: ::@:@@:“i“™“™“ccc3AkA:A94:ƒA :@k@::99ƒ:AA:9:9:@A@3@AkG9ó¾-2]3]3½3ccŽ”””“Ž“¾Ž“™ÃGrqNA@@AkA9::@9:3„:S9::@A@:A@@::@ @:@3 :@A:Akhi’™“™™cŽc9kA@kGq9A@k@j A@:@A 9:4:@:@q@ 9Aq::39AqA9:ò½23],2c”32Ž“cŽ“”“Ž“Ž“””“Ž™qrAqqAjA:@9:: 3 3@A99ƒ:@A@AjA3@:@:@:A9 2:AkA@32cbicƒ“ƒc,kA@qG@k:@:G@AAj@:@k@qA3:9::@A@4::GA3GkG3ƒ ð½]c33“Žc]c2“Ž“Ž“Ž””””¾”™kGqrGAqA9::@9:9: 3:@:@A:@k@G9A@Aj†:BkAj@333i,cbii™““3k@@kGkFA9G@@A@AjA9:GkGk9A@::9GAk @: @A@kG9 @ƒ:3 î»2cc]2ƒc6]“Ž””“””””™™qqAGjqGk99::49:@:@@::@:@A:9:@:@A :ƒ@BA3@@A9A:@ :i8ich““™“c]G39AAq@kGk:@:kA@A3::GkG k@A3GAqG@3@Ak@jAqG::„@A: íºc]ƒc3ƒc9]ccŽ“Ž“Ž”””“Ž“Ž™qGAqAA@kA::9: 99:@AA:@A9A@:@@kAk@39Akƒ@A@A@:3 3“2ih““™“™c]9ƒ: 9:GAk@@kAƒ@#kG@:qA@:AkG@kqkA@3@A@AqGkG::@AkG9:í¹yccc,cŽcŽcc]cd“Ž“”“”¾”™™qkGkxkGA@:::9 9:@:@k9:@::@:Ak@@:A::9:@;::k@3:9A:,ic™“˜™“cc]c@@::@kG@kGAj@kGk@:Gj@@AqkA@Gq@A9AkGkGqq @ƒ:k:î¹,c”Žc ]ccŽc]“Ž“”Ž“Ž¾Ž“““GqrxqG:q3:39 …:ƒ@WA@k@:@jAAk@9@9: @@3FAk@Aj ::2ib™“o“™c2c@A@AGjAGkAA@A@A@@AA:k@qAGjA@Ak@AAkFAqqA::k@@Að¹c”Ž23„c0cc”“Ž“Ž“”“Ž“c¾™ÉqrGxAGkGk9: ::9:@::@AA:k@AjA:ƒ@NA3:9@:@33A:9 Ak bib™“™bi3bic:@::3G::qG::jG3:k99:9A:FkG@k@AkGqAq@AAq:@@Ak@9ï¸Ac,ccc]8]cŽcc]Ž“Ž“Ž“ŽŽ¾”ÙxGrAqAjGq: 9 3@::@:@AAjA@@A@A@AjA9:@ƒ:,@;@@:@:@::9 3:92“8bchcb93@A:kG:@2AGkG::@ƒA@A@kG@AAk@A@:@kGj„Ak@A9 ï¸Bc]c]c33cŽ“Ž“cŽc”¾”i¾Ä¾™™qrqAqAqqA3:9@A::@A@k9:9:Aj:AjAA@:@:9ƒ:AkAA:k@@::@: :c2c8c22ƒ:1Aj:3Aq:@:Ak@A@k@@A9@@k@@Ad@A@qAjA@@:A@2@@:@9 3:í· cŽ””“”„c c””¾½ccŽƒ¾#”ÉÃHqApAqGA93 @;@::@Aj@:::@@A@:9@…:K@:@@G@:@G::9@9Ak@@:A8A9A@@A9c3cc9 99:9@Ak9::3:@A@A@j: kG3 :@AA@::Ak ï¶2”cŽc”Žc]cŽ,””½cdŽ”ľľ™™qGkGqGkG39::9A9@:@ƒ:%@:@@Aj::@::@99:@A@:@:k@3A@A3 9:@:kGƒ:Gk:Aj: ccc]:c] ƒ:@@: 9 @k@k:@:99 @ƒ: 2@::FA2 ï¶92Žc“3cc”Ž“”]cŽ“Ž“¾“¾”½c™ÃxqGAqqHq:: :Aq@::@@A@:9A@@ƒ:@:@:@::AAGjAjA@„:9@:@Ak9AGk@:@3G9@@3:cc]c]ƒc] @::@::@-9@:@@ƒ:@@:@9 3:9 9kA3ï¶?iŽc””“”cdŽ“c”“¾”¾”¾”¾ÃÉr@:rAAqq: :pAA@:9Ak@A::@kA@A@::@ƒ:7@:9A@9:@:A@A@9A@A@AA:Aj@:3::9AA:@@3c]9]@@:@::@:93@:@„:@@:94:Gk 9::Aj@ð¶9cŽ”dcc”cŽ“i””Ž“3,3“¾½¾“”ÃNq@@qAjx::9: kFk9: @k9::@@kƒ:&@@A::9:@::3 Ak:@k@kA:@d j@@A3@:9 @Ajƒ: 32c3]c:Gƒ:A@3A9;@:: 9: ::qAq ::: ï¶1i32ccŽcŽ“Ž”Ž½”“¾”¾”¾”¾”¾“ÃqrGkr@AxA 9:@A@AA@@ƒA9:ƒ@):9::3:@:@: 9:9A@A@3 :9@@A:@3AAj:@@A@::@Aƒ@*9:]c39:Gk@:9@:A9 9@@3 9:3::GkG3:9:3ï¶72Ž”¾3c”Ž“c“”Ž“¸”“¾“¾“¾“¾”™rqGGrFkGk 9:AjAjA9AjApA9Aƒ: @@:F::@:ƒ:, @kGk:@@A9:@A3@A@:A9: :@3:@:A:]c:@@:G:@:ƒ@: ,:@:: 3@::@qA :@ƒ 3ï¶E3,dc“”3c¾ccŽ“Ž“¾”Ž“¾”Ž“ŽÃMqArxA@k:99AA@:9:AA@:@:@:@:9::@:9::@9ƒ@ k@@kAk 9:@@ƒ:9@@Ak9:9:3 9A@@:@ 39:G::k:@@:33 339 :@A33@499 q43:@3 3 ï´c2Ž2”Ž”“cc¾¾ccŽ“¾¾“Ž“”ƒ¾”™™kGrxkGk@:9ƒ:.9::9:@9A@94:@:@A@:@:9:@::@:A:GkGAp@:A@;j:9@:k@„A1 3 9::3 @3:GkG@@AjA@:A@A@: @@3: A99q :9 @::3 ð³ ,33“”“Žƒc+]šc¾¾¾”“3¾¾“”“Ž”ÃxqrxAqAG:999:@@::@::Aƒ@:@A:@::@::A@:@:AjAk9::AjAq@ƒA@Aq@k@k@:@: :kG :9A@@A@AA@ƒ:ƒ:3 9 :9::A@43:3::99ï´,“Ž3¾”jc]¾2]c”“”¾“33¾“Ž”¾”ÃHqxGqGqq:::9ƒ:4@:@:A@k@A:@ -::@::@AF:@:qA@G@@AG@Gk Aq@qk@@A@AFk93ƒ: q3:9 Ad@k::ƒ@:A9 :@9: :: 3:9:: @::3 ð´"3iŽ9323,¾”32Ž”cŽ¾½”c”¾¾”½™qrGƒq GA@:9: :@Aƒ:1@A@k@@:A::@::@::@:Aq@:@AkAkA@q@kA@@A:@:qAA9 : „: 3:Aƒ@::@::@::ƒ@kGAA:@A3:9 :k::@:@  ï´ c3c]“cƒ¾3cc3¾cƒ¾””ƒ¾Ä”¾qHqqHqB@jA9:3::3ƒ@>A99A@A:3:@:3@::G9:@:Ak@:A:k@ApGk@AqAGk@@:@::3@:9 :9G@: G:@kA:ƒ@k9:@::qGkqAkA39: @AkG 39 93 ïµo32c””Ž”cÄ“33\””b]Ľ”½3c¾“”ÃwHrqxr@A9:::99AAj::A9Aj@@:@: @AqAA::GjGAqA9:9AkAFk@Aq@Ak:3::9@: 9;9 Ak@:9::@3:@ƒ:@A9:qGkqGAjG9A@:9:9@:9 :: 3 ð³c23Ž“Žccc3”¾“¾c¾¾“¾”“Žƒ¾A“”¾”ÃGk@xAqk::::9::@:@:@:9::AA@A9::9:@q:@@AkGjG9:A9 qA@kGAkG9@:ƒ@1:@:@::@2 @3::@@ :A:9@A@A@:: :9:AqAk@@33 9 @:9 ñ³-c]2”“]”c¾¾“¾”¾]“””Ž“Ž“¾”¾½”½™rqA@@rq9::ƒ:0@A@@::A9:@kA33@A@A@A@@;@k@Ak:@: 333Ap:9:::A@Aƒ:(9 AA@kA@@3:@jG@:kAk:@:9 @:qAGkG39:3ƒ: 3ñ´y23]32”¾c¾”¾”½”¾3¾“Ž“Ž¾“¾¾“Ž”¾™qxrGkGxrG::9:9:@@kAA@A@3:A@@3A@k@k@A:@@A@A9::G:3 9:@:@:A@@A@k@@939:3@A@A99 :A:A9:Aq:9:3: 3 3@AjA 9ƒ:@3@@ñ´33\”Žc3c¾¾“¾¾”“Ž“¾”“Žƒ”½”™qAGkGqrGk9„:a@A@j9Aj::@:ii@d@@AAk@jAk@k9@:A@9: @ :@:A::A@k9: 3:@: 3:@@:qkA:39ApA:A2:A9::@Ak@@Gq 3 : :@:3@ò”2Ÿ ]2Žc“”¾“”c¾ƒc%¾”””¾“”½”½Ž“ÙrGkGk:Gk:::::@jAAƒ:Gk:h“b:@:Ak@:A@3 3@ A jA99 @ƒ:Gjƒ@9ƒ: 333A9::9AGq G 3@@k@::@9ƒ: kG@Aq : @: 39ó’””]c23™)”c9]”½Ž“”“3”“Ž“”“ŽŽ“””Ž™qqGqqAFqGƒ:b9::9A:@@:@@A@A9c@3 :qA@@k9 @:9 k@9 9:3::@3 @A@3@A@::@3 @A39 q@3 :A@AGqG3 @:@:9@:k@9:@::9::ô’c“¸2cc]™“3\3c“””¾”¾c”c””¾”“”ƒ¾8“Ž™“Gr:93AAq:99::@@kA@:Ak@q::@:@3 3AjAGA93 3G9A3A@::ƒ@5A::k3@:@::@:@::@3 3@A@A::39A@3:3AA92@AkA@@:: qA94:ö’ccŽ“,c™ ]”c]2Ž“Ž“Ž…¾”½¾””¾¾Ä¾“”™ÃqqxrApAqGƒ:`9::A@@k@k@AA@@:@@AA9::3A99:@ :9A@A@:93@@:k@:9@::@@A:A@33 AjA@9 39 9:qA@:3GAq::Aj@:@9Gq:ö“]ƒc]cƒ223, 3“”c3c3ƒ¾y“¾”Ä“¾””½Ž”]2¾¾”\3ß™rGqG3AAj@9@::@@k@: A@q@::@:AjA@:39@:@::@A@A 3:@:9 9494 @A94:@@3:@:@@jA9 39:A@qA 3:@@AqA93A@GA:@:AkG9ö•c]ccc3]33]2Žcc”2c¾ƒc$¾“¾”¾”½”½”“¾”“¾””¾”ÃGqGkx9:G::9:9:ƒ@KA@j@AAj::AkAAp:::@A@@:@AjA99::9:@:@:@@::9:@::9@A@kA@A@k: 9:AqAq:94 kGk@: ƒ: kk@:@@k:9õ–”Ž“323Ž)c“Ž3¾¾”½””“Ž½””Žc¾¾”Ž¾““™rqrxrxAq…: @::@k:@:k@AA„@:@: 9@@kA9 @A@4@::@:@:ƒA+@:9::9@Ak@:@AjA@::3 qAG:A@9 :@@k:@:@9 ƒ::AA:: õ˜ cccŽŽ“323,Ž“”c”2””½”]c”½”¾“¾¾””Ä”Ž”“™@GAxAGqG:99ƒ: 9:@A:AFkG3@ƒ:7@@A3@:3 3:@::9: :@:Ak@q@9A93@@ :3@AA:@:@AA@:3A@@Aj:9@ƒ: @A: 9:@A@A9:q9 :9õ—c]3c”2233232]2‹ cŽccŽ2c¾”ƒ¾“”Ž½Ž”””¾¾cc“™rƒqAqAkGƒ:ƒ@:9:@@:AA9 @:@:@:3 @A:ƒ@E::9A9:99::G@GA@kA@A9A :9:@k9@@Aj@:j :@@:q@A@::3:9:@A3@:@k@9: A9::õ—39dccc]c]\c2]9,‰ycc””,c¾”½¾”¾”“””“ccc”””™™xqH9qGqq@:9:@::@@:A:9@::9:@33A@3:@AjA::@A@A94@::AjAk9@:@:@;93 :9: :@k@A@: @93AkGAkA9@@:9:93A@A3G:@A33@3 õ˜cc]cc]„ccd]3c2ˆ3,ccŽŽ¾”“Ž\¾””“Ž¾”¾”¸cc]“Ž“ŽÃ™xqrGkx3qG:@@:@:@:@ƒ:-@AAjA@9 39A@A@:Aj:@A9@:@3 3A@A@:@A:k@:9:@4@„: Aj:3 3 3G@q„A9AA@:@q9:k3939:@: @ õ˜ƒc]3c3”3223c‰.c3ciŽ3¾¾“Ž“”¾¾2¾”“”½c””¾“”ÃrGqrGrxrGk:@:@A„:@A9…:@A@A9:33A:jAA@k@AA@:Aƒ@9::@:k@AA9:@A@3@:A@A@:9 9A@ƒ:9Aj@A:3@A3qAGGA :A@:AA9Ajõšccc]“Ž22]3cŽ23‡3c”“Ž½c“3cŽ“””c]c¾¾”¾cŽ„¾P”™™xGrqrGqAq::AAk9@@:Aj:@@A?:@kAjA:@@k@@k@@Aj@:A@::A@@:@k@ApA:9A:@::@Aj@kA33 3Aƒ@:A@@:qA9A9: AjAqq q 3 ::9:: õ› cc”cŽ„c‰.c3Ž¾”]“]c]c””¾¾“]2¾”¾”¾½32ľ“ÙrqrGGkGkG:@:@Gƒ:.@AA@AkA::A@AA@::9:@A@A@AjA3 j@3AjAk:AG@A@A@::@…:'@A@@3@@Ak3G:@A:qGk@3:9@@A@:: @@::3öœd3\332cc2]]c3‡2”c]22” ]c”¾“ƒ¾ľ¾½¾”¾””“¾”™™xq@qqGqGk:@:@ƒ:[@@::@:@9:9:@kF::@A@::@@k@A:@A@:@@ k:9@k@k@k:3:@:9 9@@:3A@: @AjAjA3GkA A@q:@39 :@k9A:@@: ö cc323]cc]cc3ˆG,c”“Ž”¾c2”½¾”¾¾”¾”“”¾š¾“¾¾“Ž¾““xrq:Grr9:AG:@::@@:@:@@:@3:@:9@::Ak@:@A9ƒ:B@:@::@::9 @:A@A:@:@:9 :: @9:: @@:@k@A@A@@A@@k p q:: k@kG :3 , 3öŸ cc”232c3ŠcŽcŽc¾”cc”“”¾½Ä¾2ŽÄƒ¾”¾“ƒ¾™xxGrqGrrGqk99:9@:qA9…:9@:@::„@ :k@A::@A@:@@„:@:@Ak@„:9:@@A@:@:3@:A@k:ƒ@ kAj@::G@A@Aƒ: GAAk@:@::9÷ ƒc¾,]3Œc”“c¾½c]c¾”¾”¾”¾”ƒ¾Hľ“¾¾Ä¾¾“™rxqHqxAqAG:::AAkAk@Aq9:@ :@::@:9:A@A@:@k::@k::@3@@:@@ :@9@@:@…:'@::@@kAq@AjAqAA@kAj9A:99:9@k9:Gj@@3÷¢cd2‹2,cd¾””¾”ihÙb¾“”2““¾Äƒc“”“cikxGqrAqGqA9„:@@G@k@Aƒ:9:@ƒ:A:@AjAjAAF:Aj:@:@ …:49A3 :@3 9:@:@:A:@kGA:33 q@3G@A394@:G:A@A@AA93@÷£c”c]2]‰cŽ¾¾½2™2bci™“c™ÃÙÉÃ3]ƒ™ ÃÉ™™rqGqGqAqAƒ:9@ƒ:=@Aq@:::A@A@k9@:@@A:@jAF:@@::@:@@:@@ 3@@::@::3:@:@@kAAjGk@Aƒ@ƒ:@3@:A@Ak: 9Gjƒ:: ø¥ƒc323‰2dƒc“™c“bq9GA@G:rxrGqƒ™$Ù™Ãxqq:Aqq9:qG@@: @:@@:@A::@9:@k@AFƒ:9A:9@ƒ:@:@::@9„:393@:@@ @ :A@kAkFkGk@@A:kAkG:9::A93:@@A3 :@A@-:ø§d\32‡8”2c“ii“b3@: 9kAq:9:wr9:9rrG3xrxGq::GrAGk@::9A:@:@::9@@„:@k::@ :@:A@:@:@: :@ƒ:@:@::@:A:@:@,@:@:qAqGkG:@A@jAqƒ@: :A@ 3A@A@3@Aj  :3÷¨cŽc2]3†3ci23:9:q: @k9GAGqHAAGkq9rxGrq @AjG::@A:9::9…:Q 9::@::@:AjAj:@3@A:: @:@:@:@ @::@: @:A@kAqAqA@@:@:Gk@:A@k:9A9@@:94@@A@- 3 :: öªcc”]c2…Ž232kGƒA6q :9:3 :3 Aq9qqGkArGArwrGk9Aq:@:9:@:@:@99:9:9 9::@9ƒ:@::@:@ƒ:9:@ƒ:8@::@3A:@::@:@:qAqAq:@@;@kqA@A@:kA39 3@;@:@A@j: 2 3@:@3õ¬c32„1c22ikGpAA39:9: 2 3 qAqAqGqqAqrGqA:AG3@:@3@3 ƒ:@:::@…:@@:9:@:@::9:@::@:@::@ƒ: 9::@@k@kGkGƒ@ A:jGkGA@:kG@3 3@ @:@A@3:@A33@ ƒ@ õ®Ž2ccƒ-ƒ28Ak9G:3 :9:::A@39:@@…:@A@A@@:9:9: AAƒ:@@A@::@:3@:9A@ :@:…:@:@:@:@:@:@::99@:@AA@kGk@A@j@Aq@@:k@Ak@9: @3:Aj 3:@3:3 @@:kA@õ¯Qc]d,23]32@@ :9:93::99:@ :: @@:9::99A3: q:9A:@:2:@A::9A3@@::@:@:@9A@3::@@:@ƒ: @:@:A9:9ƒ:@4AjAqAA@k@A:qAA@;ƒ@A@@4:3 k::@@3ƒ@ :3@Ak@A@-õ±Ž“3„3c2c33 99:49:3Ak„:&3GA39 G3:kGk:Gk9:@:@A3@::@@:: :9@:: 3„::@ƒ:0@:@:@:A@:@3:@:@3kA@:@jA@@kGkG@j@Aj;@:@99::@::@…: 3@A@@:k õ³32„Jc8c3: 49A :9:9 @@3 @kGrqq:@A3@A39AGA::@@::9:9:@:@@:@::@@:9@:9:9::@:@:@ƒ:0@:@;@@:@:@A@qAq@@AkGkG:@;@:A@::@:@A 99:A:@: 3„:@ƒ:3ôµ c]3,22A39ƒ:@9@ƒ: 3A9 :qqGqH94@:q@Aq,@AkAƒ@A@::A@Aƒ:@A@:@ƒ: 9ƒ@:@:@:@‡: @:@AqAq@A@kAq:@A:@k@@:ƒ@:9@k3@::@:@ 3@A@@A@9:@õ¶>3\323b: @ 9 :39:3 :9Ak:AGkrqHwGqGA@rA@@A@:k:@:@@Ak9:@ A@ƒ:+ @@::3A: 9;@::@:@@:@@A::9@AkG:AkGA@@:@jA@A„::9@:@:@: @ 9 @:k@A3@:õ¸c3ƒY32 99 :9A9:@@9AG3:@qrGk:Ak@Aj:jA@@:G@kGAj@:AAj:@@:9@:93@:@: 3@::9::@:@k@:@9Ak@:@k„@:@k@;@::@:@:@ 99ƒ:@ 39::@::9 k@3Aöº2ƒ ,,3 :93 :9„:9@:@ƒ::::@ƒ:@„:@k@A9ƒ:@A@:ƒ@:@:@‡:.3@:@:@ @@:@:3@:@;9A@@: A@::k@@:A@:9::@33@4 :ƒ@: 3@A:@:33@÷À29:4 3: 9@:A@A:3::39ƒ: 9:9::@@A@ƒ:@A@:9:AqA@::@Aƒ:F@ 9:@ @@:@@:A:@@:@: @@kGk:@::9@:@@:49:3@:@@: 3@A@@3@:9: @A@::@:@:@ ö 333:9 3…: @@::@::@:@:ƒ:@@::9:@@::@A@:3A@k9::@:9ƒ:A@@:@::ƒ@;@:A@AkqAq@A@@39„:9 3 @:@::3@:@;ƒ@ 3 9: 339„:@;÷Â233 :@:3:@:@@;9@: @ƒ:%:@@:A9:A@:@@:k@:@A@:A@:@A@3:j@:@4†:3:@ƒ:AqAAjAƒ:"A@:@A@@:@: 3A@A@j3A 3@ @@3:9 3ƒ@:øÄ232939 :9:9:@@::3:ƒ:@A@„:8@A@::kA@@::j@:@A:k@:@:3:@:3 99::@:@@:9Aq9::9:@:@@A@jA@3ƒ:@AA@@A:@;9 :@:3A@3øˆÇ23 3:9@„:::@:@9:@ :@@:@@3:@:AF@ƒ:9A@@:@q@:@:@A†: 9 @@A3:9Aq 9:@::@…:@@:@:9k@Aj:@:9 ƒ:943@@;@øˆÉ2A@9:: ::::@ˆ:3A@@ƒ:9:A:@@Aƒ:@@::A@:A:@::3:9: A3:9:@:9:9::@:A@A:@@ :3 3 @:3@A@494 :9  @3ø‹É ]c3:::@„:@:@9@:@:@@::3:@:9:k k@::@@A:@:ƒ@dA:@ƒ:2 @@jA@A@A::@::: @:@j: 3:@A@ :4@@3:3 39: 94@A@ø‹Ë339 ::@@ @::@ƒ:3@:@:@A99@:A@@39::A@@::@:@:@:@:@:9:@AA3 jA@:9: @Aƒ:@A@ @@AjA3 :3:@:@@ „:3:@AøŒÍ29bA3@:@@::@@ :@::AjA@ƒ: kG@@AA@:94@::@ƒ:@@:@3@A@A@jA9:@@ƒ:@Ajƒ@„: k@A@3@39@„: ƒ:9:94@@øÏ,c29;ƒ: @: @@::@:@@ƒ:GA@@:3:„@.:@@:@:9:@Aj4 @A@j3@A@A:AkA@@39@A@3:@Aj:9 :„@ 9::@ 34@@øÑ$29b3:9::33@@:@@@:Aj:@@:A@@:3::@A:@ƒ:5@:@@:@:@ A@:k@:Gj@A@:A@::9A@kA@: @A3@@AA@:3::39:@AøÓ33b@A:@ƒ:@@ƒ:q@@::kAp;@:A@A:9@::@@A@„:.3@:kA@A@kGA@k@A@Aj:@Ak@A9 3::@A::3:@:9: A@øÖ c“hA: 9@Aƒ:9::@ A@@ƒ:%@kA@:A@:@A9::@:9 ::@:@@k@@kGk@A@j:@@:ƒ@ ::A9 ::@339: ƒ:3ø•Ò,…13’294 @:@:9:@A@:@@A:G@:@9:jA@@::3A@A9 @A@qAA@:A@kƒ@A3A@;@@:A:j:9@@:: :ƒ@ ø–Ó]23…38:9::@A„:>@::@2:A@:A@:9A::@@A39 :@:@kGjA:@:@@::3@A@@kAk3: @A@A3 @:@:33ø—Õ],…%2cb 3@:@@::@:@:@:9:@k@:9@@Aj::@::@kA ƒ@:@kA@::9A@k@:3@:@k@:k @@:@9ø˜×323†32c @@:@j:@::@A:9: @;jƒ:)@::AjAq@3;9:A@k:@9AA@949A 9A@A3:@::9:ø™Ø]22-3]…$3]3 ::@::@::@::@@::99:A:@:9 A39:@kƒ@ƒ:@33 3A@:@j33A::3 ø›Ú3c\9‡:3233 @::@A@3@Ak@: @A:@:Ak@A@kG:9:@@AA@@:3 :3 9:@@;:@::@ 3øÛ3c,23]‡ 2]3c 3@::@ƒ:@:k …@Aj@A@A:@ƒ:9:9: 9 @:@:A9::@:3øÝ33]8Š2]3c::3::9::9:@;j:@::qAj@:ƒ:9@@ :@:@A@::@::9 9øžß],3]‹,39„:9:@:@::9::@@::A:@ƒ: ::@:@„:3 ]øá3c229223cƒ:9:9:9:9::@@::@:@:93@:@„: 99 :3]c3c,-ø›â]]]2*383]c: 943 :39:: 9:9:9::@3 3 ]]]3ø›ä33]”]c]9]cŽ3ƒ 39:9:93:::3 @ ]c]322,23\3ø˜æ2323˜322]c2c]c:9 9: 9 ƒ2323b3]3233232ø—ç]]2,›2ƒ3\3]Œ 32c]c]3c]2c]3ø–é33¯3„c]c]]ccø–ë\,°]2]c9]2ø–í32øÍî32,2øÊð33øÊò23øÈø,cc,ø³õ2]‰]…ccø´÷22]2øÁøcøÁø”]ø¯øøÄøøÄøš23\3ø¦øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/-øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø]c]cø¾÷223…c,23ø¹ò2]c,cc]]c2],2, 232ø·ð]cc2cc]3228 8ƒ2cb]c3ø´ïcc23-3cc3b9b3b3bc 2]ø²ë&c23c]c23cb9 3 3 33 3 3 3   ø«éc]2ƒc&3cc]8923 339:9::@9:3 993:9 39 9 ø¦çcc,2cc3]cc]]cbc33„ 94ƒ:9;@:@: :9:3 AA9 3 3ø¤å c33cc]c]c]„cb:@@::39::9::: 9ƒ:93:ƒ: 99:9: 9  ø¡å83,cc]c]c2]cc]82:: ::9::@:@:@@:@A@:94:9:3kA9:9: 99 øŸä]2ƒc ]c]2]cc]3bcƒ:@::@:@9:::9:@:93 9 9:@ƒ: 9 9A: 9 3 øžá22]ƒc3c]c2c]ƒc2ƒ9:399::@:A@@;@:A@AkA@A:@::@@ƒ: A@ ::33:3 øœà'c33cc32]]c]c]cc]cc93:9 3:9433@@:9:Aƒ@:k@:9::@3::jA@:@ 9  ø›ß 23cc2c]c2ƒc]…c9„: @„:@A@„:@„:@:@@A::ƒ@A@9 9 G3 :93 øšÝ ]c]c-c]c]c]„cich:: :9@:9:@@9AjA:@A@3@@3:9Aq:ƒ@::@kA@:@::9 kG:: 93 ø™Ü*c]cc]cc]2cc]c]chibi@:@:@ : Ak@:@A@qqH:AAƒ@Ak@33AAjAqqAA@A@:9:Gq:@A9 ø˜Û]ƒc2c]cc]c]c9bibi“h:@9ƒ:& 99A@A3@A::q@@k@kA:@::@ 3 @A@@::jAk:@ƒ:k 33ø—Ú]…cF]2]cc]8cbibichc@::@:@A@:3A:9:9@AA:@qG:@@3A@9:9:Ak::@@::@@:9AG q ø–Ùcc2,cc]cc]3c8cbibic’i@::ƒ@ :9:@:@kGA@ƒ:AjA@:@:3@@AA@:39A9:A::@:@ƒ:AqA9 Aø”Ù]2ƒc ]2]9]8cbccƒi’A:@„:A@:@:3 @k:@kGq ƒ@::@: ::ƒq@3@:G@A:9:@A9::@3 jAqkø”×2ƒc&]c]3c]8cbchib“bi“@:9:9@:@A3:  9: 3 3@ƒ:@ƒ:"@:9:@;@@ 3 k9A9::G:A@::@ qAAGkG: ø‘Öc]ƒc3]cc]cbcb9ibii’i“@ƒ:9;@Aj:@ @@:3: 3@ ::„@A9 @:Aƒ@39@:@:A@Aq:9A93:993 q@:ø‘Õ]ƒc]]cc3]c8c8ibi“h“i“@@3:@:@3@A: ƒ:3ƒ:?::9@3: j;@A@:3 @:A@ A3ƒ:@A9:@::@A9:: : 3 3øÔc]cc3ƒcR]c]bc8ci“hi“i’i@:@:@@:@A:39:@9:@@:@@AA@::@kk@A @A@kA9qA@ 93@A@A@@:q:A9A@@393 :øŽÔc2]ccƒ]4c]9bichc’i“h““Ak:@@4@A::@ @: :93A@A::@A@“ G:@k@33@ƒ:@A:r@AjA9:: : :@k:343A@øÓ]33cƒc%]c]8ch“ch“i““i’A@:A3@A@A9::3:99 ::99;ƒ@.:kGk@““i:9A9@@A@3@3Gr@:@:@AA9::@@:9 :3 :2A@:ø‹Ó2]cc3]]ƒc8chii’i“h“i“@A@:@A@Aj:@: ƒ:6A::j“A@:@:@@99AA 94A9kA:@:@@AA:@:j @3 :A:@:9 3 @:9:øŠÐ]2ƒc]ƒcT]c2ibc“b“i“i“h“A:@@A@3 2 ::@:@:@9A@@AAhcb“@A@A4A@q@A9::@A@AkAjAj@:33 9:9::@4 3 : 2ƒA9ø‰Ïc2cc3ƒc\23cbici’i“i“h““@A9:@k9A@@::3:@@ AjAk3@kib™“@k:?A@k::GA@:jA@G:@:A3G@3 ;@::@@: 33 k@A::øˆÎ#]ccc3c]]c]ccb“hii’i““@™™q@A@:@:kƒ@3@:A::@:9G@:GAqAA83@:@kG9:9Ak3ƒ@ƒ: 9AG3qHq@399ƒ: 99 3 AjA@:ø‡Î]cc-cc]ƒcHbchiic’i“i’i™™qqA2:@A@@A33 @:@:q@:kAk@3GkGkq@@b2AAkA 3AFA@3A“@::@kGq@A9ƒ: 3ƒ9 4 33@A@@Aø‡Í2ccc]9]cchichhi“h“„™Oq@A@:3A@:9 :@;:AkA@@GA@::9A@@AkAA“˜“™ q@@kG@@3A9A@3 @A@4@993 3:939  k@k@@3ø†Ì2cc-ccŽ3c]cbccbi“ii““ƒ™=“™qG@A@:A@39 @:@@kF:@@:@j A@k@Ak@Aq@99“’™::A@kAqch kG3Gk 2A9ƒ:39: 99 3 3Gq@A@3ø†Ëƒc3c3cc]cc8chih“’““™“™“™™k„:j@†:D@k@Ak@AkA@A39::G:@Aj:2chi“b@:AGkA9ck:@@:: @:@9:3 9: 33:kGkAq:@ø…Ê ]]c32,c]„ch“i“i“™’ƒ™™™q@:9::@:9::@„:@@k@GkA:9:AGk@:@A::bci“iiƒ:%9GAbqAGk@AqGkA9::@@3:9:3 33:GkAG:@ø…Ê2d3]ƒc]…ci’i“™’™™““Ž“™kGA@A@:@@:::9@„:?G@k:9::@@:@q:A::828i’™hc@GjAjcGqAA@:@qAA@9 @: 3:@ 3 3 @Aj: @ø…È32]i3\Žc]9ciƒ“’“™“”“Ž“Ž™qAjAjA:@4@:: ƒ@ƒ: @:@@:GA:@A:@qƒ@/2“™“ih3@A@AhkGk@“@kAApAqA@:A3 :A@3 3@@::9Aø„È2Ž23ƒc13cd“o““d“Ž“Ž““qA@A@A@@A93@:@@;A@@::@ @A9:k@j@ƒ:,qAkGbib““i:qAqAA2 A“A@q@::@:kA@:@@:3 3Aƒ@:k@ø„È ]dcc3ŽƒcQd““Ž“Ž“Ž“Ž™Gk@k@k@::9A@A@AjA::@AjA:@A@@AAkGAq@Aq2i“ibbi::qAq3A2hAq@@:@@:AF@ƒ:3 :A9 ƒ3AkAq@@3øƒÇƒc/]23ŽccccŽc”””c”Ž“™AkAA@A@A:3:@:@kAkF@39Aƒ@k@:q:@@39 k:@Ac2ibi““hƒ@$cG@k kA:9A:kGkk:@::@33 j:9 @k@A:@ øƒÆ2c]]b]cc“]cdc””ŽiŽ“Ž“”c™q@Gq:@j:9:AkA9:@k:: ƒ:9AjAqA:AqA8c8 @:2“8“i’“c@cbbA“hi’::GqAF::@@9A:39: 3@:ƒ@A3øƒÅwc,233c3]c3dccd“”””Ž™kGk@:@A@:: 3@AqA@AG@A:9G:kG:Aq:9A22:9:::“i“h“i™bi AAi“A8“3::qAkA:@::@A99::A3@::A:3 9 øÅ$cc3“Ž9,c3cŽ“d“Žj”””™GA@q jAƒ::ƒ@ k:@k9:@Aj„@5k@::@::49::’i“i™“™ib:kFbchA@A@A@q@:@@::Aq93:9A, ƒ:@@34@øÄ(]c3]c3\cd“ccdc””””“d™Aqrx@AAj:@Aƒ:/Ak@A@A:@@AAk:A@:G:9 :9:@ A9:i’i“˜“hcb:9A@@:@AAƒ@kA:@9@: @: 3@: @39:@@A@3 öÄccƒc$3”cdiŽ“Ž“Ž“Ž“d““qGrqAjA@@A@::ƒ@@::q9@::9q@@k:Gk@3@A@:qAqci“™“i“b92:94@::@kk@;qG@@::@:@A::@9:3ƒ : :@3A:3 3öÃ2c]c,cd3c”ccd”Ž“Ž”“d””™@kAqqA@k@Ak@9@A3:9:4ƒ:.A@:AG9kG@:3A@A@Aq28ch2i’™8c2 A3@:@AG:qGkAjGq…:@: 39 3@:2A@:q 3 öÂ2]3ƒcƒc"3cŽc”iŽ“”Ž“”“™kGqrGk@G@kGk:@„:@GA@:FkAq@kA@A„::kA9:223““8:@:c28c@3A kAk@@::@q@:rGq 9:9:3:9:9: 3:@:AqAq 9 öƒc'cŽ3cc3cŽ“cŽc”Ži”Ž™™qrGrG@kA:AjGƒ:1@@GkAq:AkFAkG@AjA@9 @99:2292“hAA:A28c8A9:9AFkGj:@„:G::9:@ @@:9 9„:Gk 9 3õÁ ]cccŽ“c]]ƒc_d“Ž”””j””™kGqqA@AqApA@A@@AqAk@q@:9GkAFk@::qAkG @A@8c@k@kFk922A3:Gk:Gk@A@:9@:@9::4:@„:9A3 :@::9@A@3õÀ ]]3c]cc]c3ƒ(dc”“c”¾d““GqGAq@k@@AkG:kGjAGG3:9 ƒ:AAk9GAq@3 3cbA@,ciƒ@AqAb3ƒ:*@9GkGkGqkA:@:@::9:9@:::: :3:9:AkG:3 óÀc„c$c]cccŽc”“cŽc”“Ž“cŽ”¾ŸqGkAkAGkA:qAƒ@AAq@39::3:9:9:ƒ@A9 9A@GkA“h:49 2832@k@@4::GkG3ƒ@A::@„:9k9ƒ@3„:AqGk:@ 3ó¿ 2c]c,ccdc3ƒcZ”Žc”Žc¾¾É™qAqAwAjA@@:@kAj@@:3 :9::: 9:Ak@49 3A@:3@cbi2“i“8]:A@9:G@GjGk@:@A@k@:@:@ƒ::GA :: 9 @::@AqG@:q ó¾ ”c]23c]ƒcIŽcŽcc”¾”cc¾Ä¾”ÃÉr@AxqGAjA::@A@A::39:993 33A@::39@@AqA@kG3Abi“82“™2ccƒ@ƒ:(kAA::GA@A@@:@3@:@::3393 @3 3:@:9::qAG3ó½y]c”c3”2]ccŽc2”db””½”“c¾Ä¾¾Ä™™qxrqAk@AF::@k@:9:@ ::A@AG@k@::::@kG jG@3G2c8c828cbcc@:@A@@:q@:qAqk::@:@:A9A::::A3@ 3 :9 :9GA9k ó¾eccŽ“Ž]cccc3”3¾½dŽ¾Ä¾”¾¾™qqrFAG@qAk:@@A:9: :9::@@k@k@A9@::@::@:@AkGkAbc229cbiii\ckG::9@k::@@…:@3:@:@:@A93@ @@: @:AqAG2ó¼yc,c32dcccŽcŽ“Ž”c”¾”“¾”¾¾Ä¾9qrHGkAkqr@@::@:@::3@::@:@AA@k@A@::A@kA@kA: b9b2c8““c]i™22@:@;@9:@:@qG: A@: 3:9 @9 : 3 @::9AqA ò¼yc3cc”ccŽcc“Ž“c]”c¾”¾¾Ä¾”¾“Éx@kFkGGAk9::9 3: 9:@:@::q@::9:9:: jA@k@G9@b92cb“i“cc22“]c33@A@AqGkAq:9A@3@ @A9:: 3 :94:9: qAjA3òº>ccŽcc]cŽcŽccŽd””“”½]c¾”¾”¾“¾”ÃrGkAGk@::@:: ::3 3:@A::@:@ƒ:A: 9:9Aq@A:23b28c8““™“icŽi2323:@:@AGqAG@:3@:9:@k@::3 9: 3…@ òº ”cŽcŽ“”ƒc6c“”“¾Ž“”¾”½”¾“¾”¾™xrq@qqGq9:::9: 9@A@A:@9@:@:@::@@A„:6A@328c29bi“o“@™cc“,32c :@k@:@::qk@@AA@3 A@:@@A@33ƒ:A@k::3òº8c2Žc“d“ccŽcc¾¾Äd”Ž“¾”¾”¾”½”¾“™qGGrGAqA 9 3 9 @3@k@9…:K@@:@:3@@:@:9:: 2c::c“bi’™“cc”8323@@kA@::@::G:Aj@::93::@:jA@:9 3:kA9@9ò¹5c]]ccc2cŽ¾šc¾”¾¾“¾3“¾¾”¾”™ÃrAkxkxrq:9 933@:: ƒ:9 ƒ@ A@A3@A: 3:@Aƒ:@ 2@:G’i““™“™233]A:A:Gk„:@::9A@A9A:@::@: :@4 @9AA@9ò¹2d]“ƒ”]cŽƒc¾cŽ“ƒ¾ “32Ž”“¾“d™q@G@xGrx@4 9:@:@:@ƒ: @AjA@k@::@9:@:@49:@A22A9:“ib8™“™„c,2@@AkG9: q@Gkk@@AkG@::@::@:3:@A33@39:A@A@ò¸c3,32Ž¾c”¾]iŽ”¾“”3,„¾ÄŽ¾¾Ÿrr@krq@Ak9 9†:@:„@)AjA@:@:: @@;:9 @Ak 8k@chi“ih“Žcc:A9Aq@kƒ@!Ak@AA@:@@kG@:@:: @A@k q @::@kAó·-cc23cc”c-3”c23”3Ä”¾“ľ“”ľÃqAGqxG@kƒ:A9:ƒ@N:@:A@;jAA@:@::@@;:@@93: j:9i329bch“iicAqAA@@A@Ak:@@Aj:@::kAjA9A@9@@:q@kF3 kƒ:A@q3ò·,33]cc””“]“”h¾”c”¾¾Ä†¾ă¾”™wrxrAk@@39A@„:E@::@@k@AjAk :AjA@:@k:@ @:93i“2iibc““™AGkGjAj:q:9AA@3@:@A@A@AAq kA:@ƒ:AA9A3@ @: jAA3ò¶c3]c“cŽ“3Ž“”„¾L3½¾”ľš½”ľ¾Ä¾¾qHqAFkFA@ 3::9@@::9@A@A@kA@A@39AG@k 3@:A:@:@@32cbci˜i““cA@ƒ:(@:A@:ApA::@Ak@j@k@Aq@:@A@::Fk9 3 @:A@q ó¶ 3“ccc3”cƒ¾””½¾9¾”cc¾¾”¾¾Ä”¾”¾wrƒqGrkA:99:@A@A@A3@:kAGjAjAƒ@F:@@::9A@@3:A3 c8cbi“i’i3k:@AG@kGk@@Ak:kGk@AkG:qAAk@3@::A:@3 :@k@Aô¶3“Ždcd“¾”¾Ä¾½„¾ ½¾”¾¾”¾½”ƒ¾i½¾”xrGGrG@@3 ::@Ak@:@A@A@@k@@:A9A@k@4@ 9A@:: 9@“8cbih“™““]8:9:k@A@A@@:@:@A@A3:GqGk9qA@:Aq:9: Aq :@@9 ôµ2c23cŽcŽc¾”¾¾c”“”Ä2””““”“”¾¾“”“Ãxqxx@A:@3:9:@ƒ:A@:k@ƒ:N@AAjG3:@A@:9A@@k:@::9“cibi““™“c]3:@:@:@kqA:@:Ak@k @kGkG AqAqA@G:3 :@:kAq3ôµa,3c”“”””¾”“¾¾ccŽ“¾c¾¾””¾”“”””™rxrxA3k::@::@A@@j:@9:@:@k@AA@:9:@:: j::@:99A@G3hc““™h™9]@ƒ:ƒ@:@:qA9@:GjG:Gkƒ@k@kGqAjG 3@qqAGA9ô”cc]cœ7cc]“Ž””c¾¾”¾“””¾¾cccŽ“””””¾”ÙqGG@kG @:: @@jA@A@ƒA:9@AjAj@„:A@3 AkA9:AA@322c™i™˜ƒ“ƒci@AkAqAqAqA:@@kƒ@:@A:@AAq@AqAA::@@A:qAqk 3ò’“”¾c”ƒcš;2]c3¾”c¾¾“¾”c”¾”cŽc¾”3”¾¾”¾c™qGkq:Aqr:@@:AA@kA@k@j@ƒ:@A@A@::ƒ@73:9G@::9A3 :@2“h“™chi323:@:@: @kAp::AA@k3@:k@kGkGk@qGƒ@ k:k@@AGkA39ò’]¾“Ž“32šc3]c”“c”c“”…¾y“¾c¾¾”½¾Ä¾”¾½ciiqrAAq@xAq9:AjA::@j@:A@A@A@ jA:9::@:@ @@A@ :@@3A@3“83bci“bcb::@@3: k@9A@ApA: ::G:Gk@qAA@:k@A:GqA@j@@q :ñ’]c]“Žcc‡]„c]Žc2]cc”¸9¸“c¾Ä¾”ľľc]¾“¾”¾că¾”cÃi“qAGjGAkFA::@AjG@„:@A@kAk ˆ:4AjA::j:@:: @:A3“ibih229]:@:@ 9A@:@ k@qA93Ak9@:qAqAƒ@k@:qAqAqA:AA@@A@Að””cƒƒc322Œc,]c]c3“¾”cŽ”ˆ¾“3]¾”¾ƒcÄ”¾cßrqqr@:GkA@3ƒ@]A:@:@@k@k@:@:@99:@9AjA9A@A@A@@:3@3@:@::::9@@::3Ak@:A@k@AG:A@kGA@:GkG@:@k@A@A::Gk@@3 @:k@kð–”]”dc2,ccdc]]Œ ”c32cc”ƒ¾½¾”¾“”“¾”¾¾”½”½…¾Q½c¾”ÉrGrA@qAq@:@AkAj: :@A@A@@::9::::A@AA:@k@3 3::39:9 ::A@:@:A@AA@3c]c] 2@@:AjAƒ@:9:@kG:@@k@A@k39:@:@3Aj:@A@ð•ccƒ c“¾”3cƒc3]cc†2Ž“3”c]cc”¾”¾¾Ä¾”ƒ¾“¾“¾¾”¾”“d”¾””Ãxƒ@AAkqAA9AA@AG:@jA@:@::@9@::9:@qAj9::@A:@Aj:@ AjkFk:@kAq@kA@cc3b ƒ:3@@:k:9 3:9:A@::3: j ƒ::@A:ó–cc¾Ž“”]c3]c]c3“33†C3½Ž33c¾¾“”“¾”\3“¾¾”¾Ä”¾c“¾ccdÉ™rxA::qAFk@@k@q@::AjAk@@:9::9ƒ: 9:G:@k9AqA@A@k@A:AkGƒ@ :@3@@@c]3@‡:@9A@A:: 9:@:@::@:9A@9 @@::@Aò—”cdcŽ“cŽ”cc2c]cŽc†3””“c33””“”ƒ¾*Ä”¾”¾¾Äc¾½cd¾”ccc““w:@k9A@qAA@AjAAk:@AG@…:A…:,@9 AjAG3@:9:A@;@9AG949A@3 @:A@:c@@:@:9@ƒ:@A@::9:Aj::@A@:@::A:@@Aj9ò—”Ž“””Ž“ccd“c“32„c3ccŽ23cľ”ľ¾½”““¾”“”ƒc7“Žc”Ž¾™ÉxrGGx@Ax@k::Gj@A9:@:9:@@ :9@:9 99:3@AFk 9 @A@ƒ:2A@@3:9: 3 @kA@dc]: :@:@A@::Aƒ: @@Aj3@@3 :@ƒ:k::@::ò— ”c“Ž“Ž“2†3cŽ”]]„?2cŽ“”c]3¾¾2”c¾Ä”¾¾”¾¾””Ž“c”¾Ä¾¾™xrqrxkGq@A@:@AAj@:@::@3:@ƒ::@ƒ:"@:@kA@qA3@A:@k@ @:A:@A@@:@AAj@:@ ƒc# 9:GqA99A@3@@@3 :@: :A@:9GA:A@@ò—Ž“dccƒ”ƒ3]2cc”“†<3“Žc¾232”¾¾”¾”“¾cc”½¾“Ž¾“ŽÄ¾¾”¾ÉxrxqGAqqAj::9@A@@::@A@ƒ:@ ƒ:J9@:@@:GkAGkG:@:@G:@@:j:@:@:3399A@:@:32,:@A:A@::@:3:k :@@A99 :j@::A939@Aó˜c]“d2ƒŽƒ3cc¾3‡1cŽc“Ž“3cc¾¾2”½”¾””cd¾”½”“Ž¾Ä¾Ä¾¾”ÃxqGAqAkGAA@:ƒ@>;@:@:@@::@:9@:@@::@::AkFAk@@kA@:@kAk@:@::@::3A@: @:Gk@A93ƒ: :9: @q:9 43 ::9A: k@ò™”23]¾“],“ccŽ“¾3†cc”Žcc¾c]3¾¾”¾“Ž“„¾#”¾”¾cc¾¾Ã™xrqA@@x:j9:@Ak@k@:@ ::9:9ƒ:.@A:@::Gk@Gk@GkAFkA2Ak@A@GAkGA9@ @@::9:@::@Aq:„@: q@ @::: 3@::@9q3 @3 󙔎cc]c3“””Ž”]ˆŽƒc ”“¾d”“¾¾”½ƒ¾Kľccľ¾““¾¾”¾”c¾™Gxqx@A@rG:@A@@AA@@3kA:@:Gk@::@A@G@@A@kFkA99AGAqAqk@AjAkƒ: j:@ q 3:@ƒ:A:A9A9A:2::@:@A:3:9A@9 @ 3ôš ”“]32cc]2ƒcŽcc9…,3“c””“¾¾c”]c”¾¾Ä¾Ä„¾P”¾¾Ä¾”¾¾““¾¾™rrHxrx@rqA9:9AjAj ::A3@::G@@::@@kAkAjAkGAqA@AkApA@@AqAAFA9A9 3:@‡: @@39::@::9:::Gk9@: 9:3 3: ó›Žcc]]cc”ŽŽc]c‡”ccƒ¾Qc¾“”c]Ä“¾”¾Ä¾Ä¾“¾”¾¾“”¾Ä¾Ä¾™xwrwAkqqH@A@:3Ak@A@j:@ k@:Gk:9:9AGkFk:@AkGkG@kGjA@k„@'kkG:9::@:A@9:G 9@::@A@::9AA::qGkG@: @„: 39 3ôœ ccc]cc2”“32‰"Ž”Ž“]ľ¾c”¾¾”¾”½¾¾Ä¾”“¾¾Ä¾¾“¾cŽƒ¾DÉxrqGkGAqr@k@:@9 Ak@A@3:GA@:AqA@A@kGAG@::9AFk@AkGA@@;@k:9:@::9:AGk@ƒ:#@:A@AkG@3@A@qGkGkGk@A339::9:9 : ,óœ Žcc]cŽ2Ž3]‰c””””2¾”¾c9¾¾½”¾¾Äƒ¾E]ľ¾Ä”™i“iŸÃxrHqrwr@A@A:: :9AqA@:i9k@@j@A@AjAAjG:9A9:9AqAkGjAk@:k@:ƒ@:9: kGk 9::@::3@9ƒ:A3ƒ: 3 qA:A@::ƒ:4 93óccŽƒc]2‹c¾“d¾“c¾¾Ä”]2™Ãƒ™y¾”¾“c™i¾¾“Ž“ßÃÉ“™Awx@@A@rqA9@A3 9A@k93@A@A@AkAq:Gq@Aj:@@: ::9:9AGk9@:@@A@A@::@:q@GA@A@@:AAq@@A@:3G3 9k@A@qA::G9:: 2óžc”]cc‹]]”“]“cc¾3¾¾c2™“™É“i™ÃƒÉ“™’„É(™™ÉÃÊÉ™xrqxr@@rq@: :@:3G@:4@AjAjAGjA9AAƒ: @:A3:94@A@„:@:A@Ak@…:*@ 3AjGj33AAj:A@:@@A9 A@93:9AqAG9 3 9 2 óžcc”“cŽ““”]cŽƒ¾22™23™“ƒ™ÃiÉÉÙ;“rÉ“™“ÉßÙÃxrHxxAqGr@:9:9A@:ibi :@AkA@@A@:993@@Ak@9:: @@k„@6:@@k::@:99-9@:@A@A 3 qG:@kG:k@::@@3GAjAA:9Ak: 3 :3 óŸ]Ž“],Š3]””“c¾¾c3™Ãi8i“™“GqxAq@rxrxG„xrrq…xgqxAqAqr@:A@AqA@@:99kG@qAk@:@:A9:A9AA99@@:A@::AAkAkG:@: A::@::9Ak@::@33@AA@::93Gq@A99@9@ @33ó “Ž“Žc33‹Oc,]”]cc™ci’3’Gk9AqqArAGAxxr@A@xxGr@xrxxrqqrqGA::@k@k@b@:@::@::@kF::9:9A@A:99:3ƒ:9:@@:Aj9@:99:::9@A9:@„:@@k @3:AqAq39@A:@ƒ: A23@::9::9 ó¡”c2c23Š]”“”“Ž“”™Ã™ibiq:GkGrq9rƒqAwAkA@kqA@A@rxGA@A@Aq9:AFAGƒ:V@A@A:@:@:A9:39Aj @: :::@Ak@k@:@ @ :9 :9Ak9::@A@::@A:9:@ 9GqA9A3@kG::99A:: :Gq : 3ô¢cc¾”\‰L2”¾],™™b™i:rG@:qAqG:@::qrqqrGxrqrqNq:qx@@AqA@Akk@@3@:kAq@:9::9- :9::@ ƒ@?A39jA@A@A9::@@A3:9A9 AA9:9::@AjA:9: 3 kAA99GkGq:A@::@:Aq:õ£c]”32ˆ<,3c““Žc8,A@rq@r9r@::9:::qq@:@@G@AAFrqrA@rrqAr@@k@@A@3AFk„:ƒ@:99:@ƒ:@kA@@3„:@@kG:9Aƒ:/@:@A:99AA:: 9:@@qG:: :::pAA::G::@A:@3@A9:õ¤””3ˆc,”,i“bkA@A@rƒ:G3 :@3@AqH@:rqr@@:rwƒ@#AkGq:@AGk@3AAjA::@:@AAk4@A@A9 3A@ƒ:9@::9A@3A9A@@:@@ƒ:)3@A3::@AqA@@9:9AAkG@: 3 @A@:@@@::@õ¥”c\32† ,”c]h, qrƒq+ 99:Aq 9 @A@A@@qAqxrqGxrxr:@@qr@:kFA9A@:„@A9::@kA9@AkA@A@@:ƒ@A 9ƒ@5A9:A@k:@A::@A393A@9::9AqA::3:A99GA:@k@9 3@@@A:@ :9 ö¦c]c]c]…I2d¾2ci23@qHqH::9:FA39 93r::@:qAqGrGkAxrxGkA@q@::@Ak9A@:qA@:9::93::Aj@„:.9::@:AkA@;@3:@:::@:@@Aj :@:: @A::G93A9 : 2:ƒ@49@A@k:@::j: 3ö§cc”cc…@]cc32@ qqH2 9:@::9k 3:q@qrAqGkqGqGkGGkGqA@AA@3:9:Aj:AkA94@ƒ:ƒ@FA:@3@:@;kGkFA@:k:@99:A@@;jA@:9 9::@:@:kG3A::@k :3A3: :A9@:3 3:9A  ö¨Žc… cci223:qGA3 9::9::A 3::@rGk@ƒA(kA@q@qGkGkq@A@::@A@::99 :9Ak:@:@::kA:@3„:G@kAGkA@@A@:9Aj;„@A@:: ƒ:!9:qGAqG9:@@Aj:@AA@3:Gk 3 A@Ak@93ö©“”†y2c]bi8Aq99 :9::@: 3 3::AqG:@k@A@k@AkqA@@:qk@@::9::@@A3:AAF@:@:AA@@9A:GjAqAp:9GjAj:: :9A@k@kAjAA@@3@@4:GkAqA:9A::@A 3@9qAqAq@:9@:@ 94@öªŽ”cƒ]c“2Aq 9 3ƒ:-@3 3:A@:9:qA@AjA@9:A@qq;@Aqr@@AA:@Aj@A@@k@kƒ:Aj@k9A:@:3:@A::@„:5A99 : kG:@A:AjAjA @A99:9Aq@AA@q q :9:Gk@::G:3@93 @ö«c]cƒcc,c8cƒ 3: 9:ƒ: 3 3AjAG@:qqxƒ@-r@@A:GqG@rGrAjG9AqAAk@:: @@Aq@A@@:@Ak@A@A@k:ƒ@ :Ap @@:@@Aƒ@(k@A@:3@3A@A@@3ApAk9 Aj::::A 3:@k@ :::÷¬“”…c23b 99: 3::9:@ 9G3qA@AjAAGqƒrg@:AqA@@kqA@@A@: 9 @kFA@:@9:A@@k@kAAk9:@:@:k@A::A@AjA:9::3 @:jAk@::@9::kA@kAAG:@Gk9 9:G3:9:@Aq9 :99÷®…$,3c22q: 3:9::@ 99Aq@:@@kGrGqr@@ƒq HqGrrq@k@@ƒ:@:k:A@ƒ:K@@A@Aq@G3GA3ApAGj@Aq:@Ak9:A: 3@@;@A@:3: :3GkGA@jAqkGG:9A9G49 :@AjA 9: 3 ÷¯“…32cq :93 3:ƒ:Q@3:@:q:A@@rGqqHrr@AqGkA@k G::3@:9@:@Ak@::k:AjA@:9A@@9: k@@AjA@k@A 9::@ 9AjA@k 3ƒ@! @AjA@k:qAqAA@q 3:q@Aj:k 3 9 ÷°32ƒ02]3223 39:: 9 3:9@A::9:@Ak@A994:wrwA@:A@q:GkA9ƒ:9::„@:@G@@::9ƒ:/@A@A@: :@kGkA@@:: :9:::@@k@99:@:@kGk@kA9AA@k@:ƒ@@:GqGAA@A9k:3ø± 33c], A9 :93 @9:9@@A:@:@A9ƒ:?::qGq:94@@kGk:@:AA9::3:@AkA:@A@:@::@4::9@@:GAp::993::9 9:ƒA&3@;@Aq@A@@GqA@:@Ak9A@k3 qA@3@3qAk@ 9 ø²„3223G39 :99:: 3::@AA@@…:9 9:9::9 ::@:@@G9:@:@k@:@:…@Hk@k@:@@A:@::@A:@kA::9::@3:@A@:@:@@:@@kGk@k:AkGjAk@k@::@@3@@:9 @3A@3:ø¹ -2::@:: ƒ::@:9::@::@9 9:::@ @:9:@ƒ:@::9A@:GA9::AjAAqA@:Akƒ:?„:@:9A@ :@:@4@ƒ::@:@AqAGA9:9GkA9A@:@:@4ƒ: @3@@:@A :3øº2 3@3:3@@:@9q:@A:9:9„:R@;@:4@::::9::@@49:@kA9:Ak@@9A@kG@@:@::@:@::@:@ :@:@ 49 :@:@@:@kGkGqk::AA@A9:@:@9ƒ:9 @Aƒ:@:94-:ø¹cc2q 49 : :@„:)@:3:@:@@3A@9@::@ k:@ 3:94:@@:GAG:@:9…:@:9@ƒ:@::9:@@ƒ:@:@::@:@kGkAqAGA…@kAGk:3:A@k@@:9A:@A3 øƒº3,2A:3: 9: 3:9::9::@ :99ƒ:b@4@:A@A:@::@:@:39 :4@@::jAkA@:@9@:@::@::@:9@:9:A:@@:@:@:@:qGkGkG:@j@;@kA@@:@ 993@:@:@3 @A@33ø„½L2 :@@ 99 :::9: :9::9A@:9:@:@A:@3:9: ::9::9:G@:: @:@:@3@::9@@::@3@ƒ:,9:@;@qkAAqAGk@::@kGk@@:@@3:: 3@A:94@:@@A39 ø„¼32 3 :9:::9 :ƒ@ƒ:%@9::9:@@::@A@ j:@43@@A @:9::@::9:@:@ƒ:3 :@::@ƒ:2A ::99::@:@kGqGkAq@@:@AkGA@@AkAk::@::@A@@;93: ø…¼72]23 9 9:: 99::@: @::9::@::kGk::@3 9:@: :@39:@: @:ƒ:@::9:@::@::@:ƒ@0:9 :@:@@:qAqAq@@:@@kGk@@:k@Aj 3@ 39@A:@@:3@:@ ø…¾3,2A93„: @::9:A:: 9ƒ:9:A:GkF@@k:A@ @@:9::@:A@:3::9 @ƒ:9:@::ƒ@5:A@@::994@:AkAG@kG@A@A:qAqA@:@@k@@:@:49:@A@3:@:9ø†¿333 3:9: :::99:@::9ƒ:9:@:9;qGG@A3:3 A@: @3::@ 39:@…:@::ƒ@::3ƒ:@GA@A@3A:@Aj;jAqƒ@AjA:@:: ::@@A:@:3 :  ø‡À62] 9:9 @3:: 93 @:9:@::9A::qk@@:AA3:@@4@A@::9::3ƒ: 9@:@:@A@A:@:„@-3::@k@@qA@@:@qAq::A:@:@A@:@3:9@@::@9A:339:9ø†À ,3c2:9::93:@‡: 9:99:@Aƒ@A3:@q„@:@A@::9:@:33@@:@:@:@ˆ:.@A9::@qAqAjA@kGA@:@@:A@A::@3:@;A9:9:@: :3:ø†Â,92 3A::9@A@@:@:@ƒ:'@A:@@3@;9:A@: kA:qA@@49@:@:4@::k:@:@:@ƒ:@:@@:@@:@:9 @AkG:@AkA:@:A@:Aj„: 3@Aj9:@:A 3 23@:@: ø„Ã32 9:@: @k:@::9:@@::@;9:@:ƒ@ A@3:Gk@k@@A„: @33 @:@4:@ 3:@:@:A:@::Aj:@@kˆ@kƒ@A@:2 @A3::@A-9 @:@:: 2øƒÃ232 3 :@:3:: 9ƒ:@ƒ: @:@ A@A3@::ƒ@: A@:33@@3339ƒ:@@@:@:3 @:@@::@:qGk@A@: A@k:@k:A:@;::@:39@d:9:@:@3:@::@:@A øƒÅ,22Aq9::99 9@…:)@:@@3@@::A9:A:Aj::G3 ::9 9: : @:@:@3@@:@ƒ: @AkqAqGA:393ƒ:9 @jA@@ƒ:3:@:AG9ƒ:@9 :3@:@A@A@@3øƒÆ 2cbA9@„: 9::@:@:@::@ƒ:9A@::@@:@@A:@@Aƒ@333ƒ@@:3::A:@:A@3::9GkGk@@A@: ::@:9A@k:@:@:A@@:A9:949 9 :@@k:AjøƒÇ,9c @::99 9A@@ 9:@::@ƒ:ƒ@:Aj @@:@@:9;@:: @@ƒ: 3ƒ:@@jA93A::G:@A@:@9„@":@::@@:3:@@k@;@3@@3: 3A@@jA:@@A3ø„É,33:@99A9 :@:A@@A3@ƒ:AjA@A4@„:@:@:@:@;@93@9ƒ@ A:3A@:9 9A3ƒ:@„:A:3:@:::@A@A9ƒ@4:9:3ƒ@;@@A:ƒ@ø„Ê!]823 3:9:4@3@:@:@:9@::@Aj@:@::j@ƒ:9@:A@:Aj:@: 3 @AjAA@A@::9 9:@A:@@::@9::@A@:3 @A@dA@;@33 ƒ: 9A@:3A@@kA3A::øƒË 2-82 @: 9„:@:@::AAG@@A@:kA@A@@:9:@@:j@ƒ:A@:9 Aj@Aj 3:@A94 @: :9::@A@@A@A@3: :@j:@@A@: 9 3 :@@A:@::@Aj:@ø„Í2]ci@:3 :@:: @::A@j:@e9AkF@@:9ƒ: 9::@::@@:9 @k@A::@A@:k@A:9:@A@:@„:jA@@3A 3@9 ::ƒ3 94 9@@AjA@ƒ:9Ak3ø…Ï=c“i2A 9 9@@A93::@@:AAq@;:3@:@:: @3 A@;@ @;@@:@A@AjA:@k@::A9@:ƒ@(:@@A@k9A99@9 j:@@ : 3 9A@k@A@k@A9:3@@ø…ÐJ2“ib3@A@Aj:9:@:Aj@:9@:A@::@@::9A@@:@::@:3@Aj@:@qAqA@A9:@Ak:3A@kAj9::9:A„:9A:: :@Aj: Aƒ:9@: @A@ø…Ñ,c93 A…:@ƒ: @::@:A@k@@…: @@;@:@:9 9AA9ƒ:A@:AqA@:@A@: 3:A@A9AA9ƒ:„@:9 @::@339 9 @A@:@:Aø…Êcˆ329339:@::A@:@…:@@:: :„@A99:Aj@4AjAAkG@::@kF@@A@d9A„@:@:3ƒ:@@A3 3::9:9A3:3A@::93::k:3ø‡Ë2-ˆ,“983@::@:@A@9ƒ:@:@@:@A:9:A@@3 „:9@GjA@::AAk:@:3A@@3AjA93AA 3@@A: 3:9:@3:9:@A@93@ 9 @@øˆÌcŠO,3c 9@::9::@@:@:@:@;@:93A@:k@A@9:@Aq@A:9:9@k@@::3A@A@3 3 A@@3:39 ::@::9 Aƒ@AjAøÍ]2]‰2c3c @A:@:@@A9ƒ:?93A@A@A::@:@:Aq@:@k 3 :A@Ak9A@k@4 3@:@:@@A@A:@:@::9:A::3@;@:ø’Î323‹2c3:@:@:k@::@9 A@k::3@A3ƒ@ kA@k:@A3:@kƒ@ƒ: @:9::@:@Aj:k3@:@:3:9:A@@:@A@kø“Ïc,‹ 3]3]Ak:@:@ @ƒ:ƒ@ @93ƒ:@@A@:Gk@:39:AA@k@@jƒ@ :@@A@ „: ƒ jAj@A@:@ø“Ïccc]‹2,cc3:Ak@::9 ƒ:@:@:9:9„:ƒ@A@::A@:9:A@A:A3@:@Ad k@:@:† @:@jø•Ð2]c3 33]c @::@::9ƒ:@A@„:!9:@AjA@k@A@::@:A@@k@3 ::@:@::9:9‰3:@ø—Ñ]c223ƒc9 9ƒ:@ƒ:„@:@@:@A:@A@jA@j:@AjA3@:@:@ƒ:@:‰:@Aø—Òc]]23]]d99:99::A:@A…:@:j@;@@A@A@@3:@:@@„:9 :Œ@@ø˜Ó2Žc3“3]c:9:ƒ:9:9 9:9@ƒ:@@…:3 3@:@;ƒ:9 3 ø¦Ôcc•22]3]c99: ::: :9…:@::9:9:@::@9: 3 ø¨Õ]2c]2–2c]32Žc3c3 3  3::93: ƒ: 9ø¬Ö332š ]c]c2]c“Žcc9cc33:33 2]3]c2ø¨×cc,3]2Ž23d2 ]2]2-c3]]cc32323232]cc3ø¦Ø23c3Œ2c3“23]3c22]9cc]23,32,2 23]ø§Ù]c\§3,cc]c3cc]c3]c3c]cø¥Ú]c2§ƒc]2]c23]32ccc]c2ø¤Û3233¦]c]c]2]…c,,32c3,ø£Ü]c§2c]c32ƒc ]]cc3c32,3ø£Ý]c2¥3c]2c3,]c3cc23c]3223ø¢Þ2]3¥2„c]323]c]32,c23]]9,ø ßc©]c]3c]c23]3]3c3b]cø à232ª2cc3„c2]c]3c3ø á],«]\c]…cc]cøŸâc2ª33ccc…cøŸã233® cŽ32ccc3øŸä]ø×åc23øÔæ]øÕç]øÔè2c2cc,ø¿é3cøÀê2]cøÏì2]øÎøˆ2cøºøøÄøøÄø23]2ø±øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄ £ŠË b Jù- ­ÉÉ ­É2 °É /! °ÕM&Ë! °ÕM&-! ýûÉ! ýû2! û /" O Ë" O -" P'É" P'2" S' /# S3PWË# S3PWUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/ - øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø‹2ø¸ø„232322ƒ32øµø23,3]2]32332323,2ø³õ 232-c2c3cƒ2 ,2c2,]3ø²ñ 2]2]]c]8,]3ƒ2 32328238c8]ø±î ]]2c3232ƒ322329 93 3 3 ø­ícc]ƒ3 233\3\32 33993:93::9 3: 3ø¨ì,2]232\c]2c]9]833 3 : : 3 33 9 93::  ø¤ê02]23323c33c38b9bc 99 :9: :33@:9:9: :: :93 33:ø¢è52]33]]23238bc2cb99:: 3 9 3:: 3::9:3:9 ::93 øŸæ92]]223233b2b38b9b93:33 3 93 3949:93:339 339:: øä#2]]]]323b2389bcbc8:9 3: 3 3::ƒ: 3 @:9 349::349@:ø›ã]c]c32382382]b9b9b:: 3 3 :3ƒ: 3 393@:3ƒ:9‡: @::9::ø™â]9]3]3\323b2cb9bcbc:9 @::@::3ƒ :@:9…::3ƒ:::9::9:G3:3 3 ø˜á 2c,]2]23ƒ28c8cbchccb:@49: 9:@:@@3 @9:: 3 3:::: 39:@::939:9 @, ø—ß2]]3]233292ccbcb9hchi:3@„:9:@9@9:9:Aq::3:::9:9::9 9ƒ: 9 ::3:@Aø–Ý23c]c23c]82cbc8c>cicib:@ƒ:9:9:9 ::A 9 A9ƒ@::@@ 3@„: 3::99 @ 93Aø”Ü!]c]c23]9\23b98cbichchc@::3:9:„:@:99:3 :@::A@@9 9ƒ:9: 3 :94 39: 3@3ø”Û7]cc]23]23\38c8cbchcbibch:9 ::9:@:@:9@: 3 ::3::::3:9 ƒ:::9:3 :99 A9 3@A ø’Ú2c]23c32338c8cbcbichci““Aƒ:9„:/ 9A:33A@A3:399 33GAq@:: 3 ::92A9 3:ø’Ù53]]cc2]38b3bc8cbibc“™h“™@::::@9@:@: 33:9 3 :@@: 9„:9:9: :@@9: :: 3 9: :ø‘×2c]ƒc 233\9b3b8cb„i’i““iA@9„:: 9 93:33 :@:ƒ@4::@ƒ:9ƒ:@:G2 :39: @:3 øÖ]cc]2]32]c2cbcchii’“i“™c“Fkƒ:89::93 A@3 3@:@:3@:A:@:::9::9::@ 3 @kAj 2: Aj: 3@øÕ]c]3ƒcS3cc]cc8chcib““i“cik9:::@::@@:@@::93 3@@3@::3 :@::@:@9 3@ 3::@:: :9 9::@øÔ2cc2c]c]2c]ccbƒi ’iccciq@@ƒ:::@:93: 3:9:9449 9::9:9@:ƒ@ƒ: @:::@::99 ƒ93 @:3 øÓ3cc3ƒc]2c]…c)cccdcdc“@: :@:9: @A@:: 9:@:@3@@:@3„@ƒ:@ƒ:@:: :qƒ:9†:39A øŒÑ']cc]2,c,c]c3c]ccdcdccd“AA::3 :9…:@4@::@;@:@ A::@ƒ:Aƒ@9:@::@::@::@ 9:3:: 3::øŒÐ422c2Žc-cc3c]c]ccŽccccŽcci’A@:@9:9::@:@:@@::@@:@:ƒA)@, :@@::A:@:: 9:@@kG::@::9: :39 3 933øŒÐcc]c,c2c3c]3cccdddcŽc™Aƒ@@:::99 3 @:39@3AA@@k@j::““™i:@A@A:9@3: :A@kG:@@ :q: 9 :99 49 ø‹Ï ]c3cc-323cc„cQŽccccci@k:@k@:: :A@@39::::9AjA@@:9@i˜i“@:@@j:A@:9kA@k@Gk::@Aq993:A::@ 3 ø‹Î2cc]c]ƒc]„cccddcdd“i“Aƒ@B3:@@9:::@:9:@@::@A@A:AAq““i“@::@:@39:@qA9A9:Aq9q:9:@@::94 2øŠÍ2]3cc3c2c3]cccŽ„c"”cccc“@::@4::9@A::@:@3 @:AA9:2“„@:A9i’9:33 @A @ƒ:GkA:@:@qA3: 9 3:@:3 øŠÌ ]c]cc,c,]d]ƒc]ccccŽƒc Žcc“™A@xrƒ@@:@3:@3::@@::jA@:@Ab““AjA@9AAGA3::k:3 @:@:G@:@:@3 @: 9 93:@:A3 øŠË3ƒc"]2ccc3cc]cccŽŽcccŽ“cc“™Ajrq@@Aƒ:5:9@@:@;GA@A@@AkAi22A@Ak@k@kG:9GA@:@9:@@3Ak@A@@:G349„ kGk-9:ø‡Ê 2]cc]c]c]ƒccc]c”ƒc2Žcc]”¾ibAxGqAAj@@39 :@A:@Aj:9k@:@A@kG8“A@@:Gk:9@ kƒ@A@4AkA9: kAq:A@: 3 339kAA 9 ø†Ë c]ccc33c2]ƒcŽ“ƒc]Žc]cƒ¾™ÃA@qqGk@A9: 9ƒ:@Ak@@ƒA6@::@kGkAk8jA@@:9@A@:AjA@Ap:@9:@G@A@@Aj@ 3: 99Ak99ø†Écc]2ƒc]c]]3ƒcŽ“]3Ž“”“c¾¾”¾¾™™qqAqA:Ak: :ƒ@ Ak@AA@j@k@:@:„@/kAi“@k@ 3Ak@k3@“:@A@ :@@:kGd@A@A3993A 9@A:: ø…È2c,ccc3…c ]Ž”c¾”23c„¾R™¾™qqGq:@A@A@:@:AA@Aq:jAA@A2AjAkAjAGjA“i“i“@:@A@A@ j kA@kAq@ AkAkG9: 4 3 :@A3A:@ø…Ç2]c]93]]cccc”c¾¾ccƒ¾ľľ¾™GA@A:Aj@:@::@:@kƒ@A@k@A9:99:A@kG9bih“hiƒ@$:qA22AA@k:9:Aq@:9qGk::G3:9 j@3@A ø„Æcc3cc]ƒcccŽcŽc3“”¾””ƒ¾Uľc™™q:@r@@:@9:Gk@@:@AkAqA@k9:::A:@A9:9cc“i“b::@kAqc@k@@:@@AqA:@Ak@:@::A9:A::3Aj ø„Å ]cŽ3c]c]ƒc]Žc“cc“Ž“¾jľ””“ŽÉrxrƒq A@4@@:@3@::ƒ@(k9::A3@:@::@::8ic’i“c@@:@AAbGkG@:@A@kA„@A@:9:@ 3:@@@k3ø„Äd]22c33cc]¾¾”ÄŽ“Ž”¾Ž“3“””¾”½”½”™rqr@@:qG3@;@A@A@@::3A@A3@A:AAj@Aq@::2c™“hb4AkAji8kG@A3AAkGAjGkAqAƒ:@ :9 9:9:@::øƒÄ c3ccŽ“3]c]c”ƒ¾"c”¾“¾¾“3,¾¾”“Ž”Ãx@@:A:G::@@k@Ajƒ:A@A3 ƒ@j:@A99AA98i’“ic9AFAG\92:@kƒ@:9@ƒ:@3@9@3@3 :@ 3 @øƒÃA]c]c3cc9c“”“c¾””½c33cc””¾Žc™Gk@A@A@A9@;A@kAA@3ApA@:hAk@AAqƒA@k@k2ci“hi::kGkF,22Gk:9„:@A:9:A9GA3:::A3:øƒÁcc2ƒc:c]cŽ3””Ž”½”Ž¾¾”½¾Äc¾™“G@@k@Aj3 k@kA@@k@@9A@:kA9Akƒ@5k99AA@A8c’o“cb:@:F3AAicqA:99AGj@:9:9A::@@:393:FAøƒÀecc3,c,¾ccc“3c”¾¾Ä¾3¾”cc¾¾cc¾Ä¾¾Ä™::qrGkGG3:@G@9:A@A@:9:@Aj@A@q:A@A28:k@b2i2c˜“8@Ajc2@khihi9:@AjAA„: ƒ: @:@@9A@:A:øÀc-cŽƒ”cddc¾“”“¾2¾¾ccľľcc¾¾Ä¾¾ÉqrxrGqrq:9A@k::9@:9 AAjAA@kA@:@22322::89b9“i““2c@Aih3:“2: @k@A9@@:9@A9„:@3A@Aƒ:ø¿]2-cic,cc”¾ÄcŽ½¾¾Ä¾c””ƒ¾(”c¾¾Ä¾¾”ÃGqHwrrwH9jAG@A@A9;@k@A9AjAFkAkƒ239b@:ci“hc˜iich Aj@cib@:9A@A@q@:A:9A:@@:@3 :@A:3::9ø¾cc2ƒc ]”3cc33”“¾¾“…¾Ä]“Ž“”¾¾c¾c”¾¾ŸqAxqGr@::3ƒ:399A3A@:9:@A9:9AA9 23283@92“i““c™’ci9@A::’ :Aq:qAqAƒ@:@ƒ: @3 :@:3 @:ø¾]2]3cŽ“]23“”¾¾ÄŽ””ľ9…¾a½”½”¾¾”½”¾qr@rGq@AA9 99 9 393:A@@k:@Aj:2232qAA@“2h“h“ihc333:G@kA@qGkA@kGA3@:9:::9:9:3A@ ø¾2c3…cƒ¾”“ƒ¾ ľ¾c¾“”¾“¾ƒ”%c“””xGrqA@A@k9:9:kAk@:A@AqAAkAAkGƒ9+3:A:2b9““™“ibi2 3@3@k G@@;@q@AqkG:9:@:9…: 3Aj@ø˜“Ž“ƒc]c3„cŽc”Ž¾”¾¾¾½¾Äc”¾cc”“ƒ^d”ŽiÃrwA@@Ad@A::AAk@AGA@Aq@Ak@@q@@:94Ak9:9ci’2i“hb32“@: @A@k3:@@:@::G3:: ::@A:::@A:@A@:ø– “¾¾“”¾””]c›Icc,cc]c]”3ľ“¾”dc”¾¾c]c””Žc””“Ži“™qGkGkG:@@AGjGAq@99:@@k@@kG9AkAA ƒ@3:32i @@:99b29@:9 kA:Gƒ:@„:@::@9:9@@9:@A@9 :kA ÷– 32¾¾”“]c]‡ccc]3]“dcŽ]d”c“c¾¾Äƒ¾ ľc]c”¾½cc…¾9“™kGkGqƒ:@k@AAjA9…:1@:@A@k:GApA9@:A::@22c@A:AA@9bi:A9:GjGqGk::A@A@:9„: ::A 3@A9 3@@A2÷—cc”¾”cƒ “]3c¾””c“2cc“c“c”cŽ¾Ä”¾Ä¾Ä¾c2”½”…¾ľ”¾“cbGrxq:Gk@A@@k@9: ::9::@ƒ:A@k@9 @:A99::9bcƒ@.jAb2]:9A@3@:@kG39@Ap:@@A@:::: @@A3@3: :@: ö˜]“¾cƒ¾¾”¾c“”“Žcc]“”2„]c3]””c Žc”c”¾”ƒ¾ľ”¾¾c¾”½”“”¾¾Ä½¾”“™“xxr@ƒ:@Ak9:: 3ƒ:,@:: 3:@93G@A:3@3A@AA2bibc3A 2923Ak@:9AqAG3:@ƒA@k@:@@:@:@::3A:k 9: 2@:3@ö™cƒc¾””½¾cŽ”“d3]9””]c3„y2cc]c3Žc3d“¾¾Ä¾¾2]c½”¾cc¾¾”“”¾”“Ž”Érq@A@:9A@::3::9:99 ::39@AqAA@kG389c2i“’i,2@:@:9:kAqA: @k@k@A@k@A:@A:@39:ƒ@: :A@k ö™””]c”¾½”¾”“Ž“ccc¾“”]2„3c]ƒc”c2”¾“ƒ¾ľc””¾¾”¾¾”¾”ƒ¾”†¾ÉxG@AqGƒ:9:9:ƒ@L:A@: 9A@:@3::AkAq@@k@93bbi2“i“2c32:9 @A:GkF:qGkG@A@@:A@@9:@:@@: @;@Aj jAqA9 õ™”Ž“””\c]”¾”¸ccƒc””½ccƒ]]2c]c3½””¾”¾”“”¾Äc”¾“¾½Ä2¾¾„c”¾ƒc Ér@AqA@A@9@ „: @AjAkAkƒ@C:: @ @ bAA@:9ccb928b838“2ii@k@:Gk:AqAq:@k@Aj:A:: jA@::39@:@3 qAG99õ›“”c¾¾”Ž2c“¾cŽƒ]”“Ž”¾cƒ2c]ccc”””“¾”½¾¾Äƒ¾ “¾”d¾”½cc¾¾„cEÃix@:kAjA3:9: @:@:AqAFA@:k@@:@:@:99jAkA@ch92293i’c3,2“i“8]@@:@:@:@@Aƒ:@:9:k k@:@ : @: 3:@ƒ:Aôš2¸„”½”¾“¾”‡”½”½3“Ž…Žc3„c ]c3””¾””¾Ä„¾ ”¾¾c“3cc¾”„cb¾¾É™qrAFAAq3:33 9@:@@:@k@q:A@::3 kAk9:@9:b9bc8“’““cc9bbi]3]A@A@:A@AjG39A:@:@@A@A@3 9:@: @:kG@kô› ”½””¾”“]3†cc”Ž”]3ƒ<3c“]2]c]cc”¾¾c½¾“¾ŽÄ¾Ä“¾”¾cŽc¾cc¾¾Ä¾ÉÃxG@k@q9:4:9::@ƒ:@A::@ƒ:C9 9:FA::92c82c8“i“™““]c“cbc2k@kGkqAkG9 k@3A 99A:j @3::33 @9AjA ôš c¾”½””cƒ“ƒ]c3”¾¾cc2c”j9c]3ccƒ¾]”„¾“Ž”“””¾c”¾”“3¾¾Äƒ¾Ÿxrq:qrG3: @A@A@@ƒ:…@$:@::@:@::AFA:@8c2c8ch““nAŽ“Ž™2292]A3…@Aq@kA@: A@9: k@@: :@::3GAq99ó›”¾“Ž,ƒ¾”23”¾3½¾cƒ]]”Žc”]c]c]ľă¾)“¾”¾“Ž”½”¾“”“¾ŽÄ”¾Ä¾Ãxx@GqGr::@3q@A:@ƒ:Aj;@A„@)A9:@9:9::2c9:““bc™““ic23 ::A@k@:GqA„@ A9::@ @:@3 ƒ:@3k@@ ó›c¾”Ž2cƒ ”·]32]“””“3„]“]3cc“Žcc]ccc¾¾c“2 ¾Ä¾¾“”¾ƒ¾”“Ž“¾”“¾¾ÉxrxkGqr:3::A@::9:@@ƒ: @@jA:A@@3 @ƒ:<c:GG“i™bi™“jc“832AjGk:@@A@:A@kAkA9:@@:@k@3 :9: 3@:9:9ó›]”½”¾ccc¾9]¾”¾”½Ž””23ƒ 2cc]2”c”cƒ=Äc“d¾¾½¾Ä¾Ä¾¾“ŽÄ¾Ä¾Ž“¾Ä¾¾”¾¾ŸxrxrA@r9@:@9@:@3 Ak@@Ak@;@9Aj:A@…:;8bA:@“’cih“™Ž“32:@@Aq@:A@:@j@:A@k@@k@A@k:@4 9@A@2AA@:9óœ]”¾ccƒ ]c“¾“¾”c½”„ ,dc3c]”ƒc Ži¾]cccƒ¾tľľ”¾¾”½¾¾Ä¾c¾Ä¾“qA@A@x::A:@A:@A@A@k@A@k@::A:@k 9:@ c2k9A2ih““c™9]”@AkGkA9:@::@:A:@:A9@AA:2:@A@99 @kA 3kG3: 󜔽ccŽ“c]c3“Ž”½d½„cccŽb-“ccd¾c”¾””ŽÄ¾¾š„¾bľ“”¾Ä¾Ä”¾Ä¾Ä¾¾Äxxr@kxr::9A@:@@A@k@kAFA::@@ @:@39 :9A3 8i92cci“i“ic“:Aj:Gk@@:GkGkA9kAj@:@k9A A@ƒ: AA@kA3 G3@@: ò2”ŽccŽ””¾”“]c†33ƒc3d””c¾“¾”Ä…¾ľľ¾”cÄ…¾”bÉ]cc”xrxGqGqqƒ:8A@:@k@A@@k:9::9 :@:@ : :9:93“92ic“’™““A @AjA::G@Ak@@::ƒ@9@A@@3jA9k@:@Aq@@A3::@:òžcŽcŽ“”¾“”¾cc‡a23,”c“c”¾¾]¾¾”“¾¾Ä¾š¾¾Ä¾¾Ä¾ÄÃľľc“c™™ÉÃÉrxxAqAxr@:9@@k:AjAjA@:9A@Aj:@k@::2A:: :A 32i8biihickƒ: @@A39AAk@3@„:@AjAkG9A3A@:@:@k:@3ƒ:@AA3òž”“Ž“””c]¾“]3ˆ3]“c¾c¾šc¾¾“¾””c™ÃɃ™"¾Ä¾¾ccɓľ”“ÃÃÉÃÉ™ÃxxqxqGrwA9AA:@@ƒA@@A::@:G@:3::@:A@:9:39c8cchcƒcA@9:A9A@3@q@@ :9AG@ƒ:@Aq3::@A9: @A:: 9@@:óŸ ”ccŽ“Žc¾3‰*32”“Ž”Ž””c¾Ä¾”½Ž“™ÃÉ™™ÃÉɾ¾“ÓiÉÉÙÉÃʃÉY™xrxA@rr@:@k::@k@j@Aj9A@@k3A:93AA@9:@9 :i8“ib“i““]c@:@:@:@kA3Ak@::Ak@:Gk@kG:G j9Aq3:q @ƒ 3:@3óŸ Ž”“Ž“”cŠ!3]“-c“”¾“¾””]ľ“™Ã™É“ÙßÃÉÉi™™ƒÉÊ“™™ÉŸÃ™™Ax@A@kwrG:„@):@AA::A:@Ak@ @:@A@j@:3 :9Ahc2“bi“’i™3]c@Aƒ@:@G…:ƒ@A9:qAGk::@::@:@::3…@:@3óŸ c”3”2”Œy2¾c,”cc¾cbi™9“™™Ãəə™AÉ“™“xr@AAGxxrxAkAxxrxrxrAG@:AA3@:@k@:@A99:@@A:3@A@@:A:@: 8“ibci“i“’c23: @;jA@k@:@9AAk@A:GkGA9 :GGA:@:@ ƒ:@Ak ô ]cc”¾,Œ,”]¾Ž2c¾¾3ßÃi„™ÃÉ™xk@Aqƒx rA@xrxxrqG„x_rqGkGqrk@jG@::@@AkFk::@A9@::9:A:9 A@kc2b“i“˜™“8332:9k@AqAG:@AAp:9AjA@kG@:@9kqAq@A:@A@Aq@k@ ô 3\””33‹,c”c¾cc¾¾i3ÉÓh“™ÃrGrxxqA@qGrxx@qrqxrwrqGrƒx qGqGrwA@Ak@ƒ:PA@A@A:@::9A@3@AAj::qA@9 i8c8“ib“o3]9@3:AkGk@@qkAA@AA@:@::@::AG@AjGA@@:j ::G@Ak ô¡”“”39\Š*2]”“¾ccj”™ÃŸ“i“@qqrxrGkqrqHqx@rGqqxrGƒqVxrxrxAjxr@:@A@A@k@k@k9:9:@::A@::@:@::q9:@:32““ib“i“22c@:@ @@9A@A@q@:q9:@A9::@@jAkGAkAjƒ:@q:9@A@jô¡””]”Š73,cŽ¾c]c¾j™É™™“hi@krGqrx xrNrxrrxqrxrNAkxHxrxx@A@Aqx:ƒ@?jAkFA@ 9:9:@:@A@A@A@A@::::9A™ibi“882c@: @3949@;@:@3A::3AkGkƒAqAjGkG:@:@A@Ak@:kAô¢””“”‹4c2ccccŽ””ÙÃÉ““™“q@GkGqHw:G@3wAwGqxrNrwqGrxrGqrxrxxƒ@AkAA@A„:9: ƒ: 9AjA9:@@3@@…: 3:9@,c33 9 : AA:@3 3…@Gk„@jA@:G:@:9:@Aqq@AA@@:ô¢c]”2‰^”,c,¾]“28ÙÃcGqAxqrGkAqqA@:krAxrA@GqqrAqGqGkxGkGqArr:A@k@k @9:93:9A@A@::@k:A@3:G@@: 3:@:3ƒ:,]:@3:@k@:@k@A@AkA@kGA@A:@qAq::@:@:GkGAk@@:õ£cc”cŠ23cc¾”ŽicGAqxr@x:GqƒAƒ@)AqwA:qr@qAGqrGkGqAxqGqAqxwAjA@@::9::999ƒA"k9:9@:Gk@A @@3:9:A@k:9@@@: cc]„@A@j@ƒ:@kG:9k@Aƒ: @:@:@39AqA::ö¤]¾“-Š:,¾c]””2™hcwAqrxAx3 k 9@:k @r@@qrGxr@qqGqrqGqqGxrxq@rrA@Ajƒ:993:9:39 :@AA@k@Aj::AAƒ@2:kAk@@:Aq@k:3:c]9:@A:j 4@@3@9:93A@@:@ 3:@ :3:@ø¤“Ž”“32ˆ5¾”¾c9™Ã@kqGGx@x9A3:@@A:9r:rrGkGAqrHqGqH3GrqqxAAqrƒ@:::@ƒ: 9:493@:@Ajƒ:@A:@:qA 3AFA@A@@:AGƒ@3]bƒ:"33@A:@AA:@: 3:Aj 3:@:3 A9 3::3 ô¥“Ž”,‡r233¾c™bc:@rqrqr3:@@:@k@:qGqx@qAqrqGkGkxrxAAqGkGx::99 @:9:9:9::::@AAjAGA9:@A@:3:@Ak@39AAj @:@A@]@: @:3::@ƒ:@A@:@3:9 @:@:A@3A@:9:@@:9@:@ò¥Ž½“3]†2,“¾¾3iib99A:xrNq q9„:@@:GqGrxrG@rwrxA@xrxxAqAqqG„:@ƒ:R: 9::9::@::GkGkGAq :jGAq:@: kAAjA@A33A@j ]:9:9:9@A9AjA@:: 3@::@A@Aj@4G@:@A@Aó¦]cd9]…?33¾ccb“A@:q:9::9: :9::@@A3xAkGqrGk@rxrGqAxxqGjGqGqGq:@::9:9ƒ:9A@ƒ:HAq@AjGj@Aq9AqA@@::@GjG@@k@Aq@::@: :@::@:AkA39A@:@: 3 9:@9393:A9kAk:@:@ó¦c]”½cc…y23”ciibG:qrrG::9: 9:9:@::@3x@xAkAqAqGqAkGqrqrHqrGkrG :@:9 99:@A9::@ApAkG9:AkGkA9@@AkA9::@A:@:9:A@:@:::9:@:A@G@: ::3@ :: 3@@AA 3 9ƒ:G@9:ö§c“Žc]…3,“c,2c8r@ :9::9 3…:M9 rAqx@AqGqGrGqGqAxGxqrA@qGk@43G::AA@@:AGAjAG@@AkGAqAF:AkApAq:Gk@@A@3@kAA9„:GAk@kA9::9::9:@ A@499A@@:9qƒ:ö¨Ž“”†3” “k@kA3 ::9::q3: ƒ: @r@r@x:@Aƒq8HqqGkqxqGkGqAqrGqA k4@A@q@A@kGk@GkAjAkGjGk9::ApAqAAq@Aj„:3Aƒ@3AG†@:@:9:AG 9@:j3A9 A@@:@:AG@:@ö¨“”¾†dcc™2Gqrq::9::: :::?Aq@@:qrqrGqGqGrqGAqAxrGkGqrrGq9:9:@AjAk@:@:GkAFk::GAkAG:AjAAk@ApAkAA@:9::„:9A::A@„:@: k:@k :A@Aq::@AjAA@@3:@::õ©”½c„k338“2 q G:: ::9: :9::r:GAA@GkqHkrqAqAqAqAxqqAGGrx@Ac:Gk@@:GkAkGkGkAG:@@kGjG:FAjGAq@AAFkFk::@: :@A2:9„:@:A99:AA@3:qGA@33 39::@: @@öª]3d„:”2383 q 393:9::9q3:q::G:qGrqqAqAqrxAGkGkGqGkGrqrqAq9AA9Aƒ@Q;@kG9:9G@qAp9A@@:Gk@kAAjG@:k@k:GA9@@3A3AkA9:A@3@A@@q:Aq:9A@kAqA::A@A:@@33@A@:ô«3“c„yŽ3““2Gq: :99:q9q:GqqGqqAGqxqxrGAqArqGkMrGxqAAj @k@Ak@qAq9AGkA@@;@k9:@:@A@qG@A:@A@@:kG::@: qAqkAAj@: :3A@9A3@: :@ kAjG99@q::  ø«“”,3…“3\22r9r99 :9::A99r9q:rGkƒA@k@rNrGqqGqqrGqrqrwA@:9ƒ:AqƒAqA:@:q::@@:A:@ƒ:*@kAkA9@@3@A@@:@@:@:qGk @qAGA@:@@qA::@ 93Gƒ:9:@::AqAq:@: ,÷¬Ž“,…`323i2G:9:G43: 9@3q3H@rqrGkGkGAxkGqqrAqGqGrGA@:ch::kG@kFk@A@:@3:@kAG::9:A@Ap:@::A@k@AjA:AA:ƒ@ :@:9:q@@kƒ:@:@A9 kGj:GqAA@A:Gq::3 ÷­”†323ib :9 9:9:: q3A@A@A@rwrq@AqAj:9:rwrxA kAGkGjc@ƒ:D@:@kAqAG:qA@A:k:@k@:@:9AqAA@A93@A@kAAjA@:j@::@:@:GAkAAqAG@qG:@A3@Aƒ: Fk@k@:@A:G3A÷­”… 3cc“:q 39ƒ:'3 k@@@:3@GA9AAq@:99:xAGkAjAqAi:@:„@A@@AjG@„:qA9:@3:@:9:@j@@A@AjAƒ@ Aj@@:@::@A:@:ƒ@q 9kG:9Aj@  :ƒ@ :99A@::@:@:99ö®22„ \cqr@ „:# 9 Aq:Gk:9AkA@9:9:99::93@A9AjAGj@@ƒ:AAj3@A@:q3@:@:@:G9ƒ: @A9:AA:@k@:@Ak:@A@:@ƒ:AkG:@:qkG:@:@3 kGA33 3@AjA@ @@ƒ:9qG3 ö¯Ž„c8c“@493A9 9::3:A@:@:@:3A@;9@@9@:@:@:3:9:9:@:@:@@:@:G9ƒ:@:@:: 3ƒ@jA2@;ƒ@:qAqA@::jAj@:9ƒ: @:@33 3:øˆÂ5]c229 :939 9A ::@:AjA@3@;9: :kG:A::@:3: 3: 9:@::@ƒ:@:ƒ@::9:9 :9:@@A:q@;@@::kGA@:@:@@ƒ: 3: @:: @:3@ :9:øŠÃ:c33:34A:9::99::@33@;99 :@@9A@@A@3 99:@: :@::@::@Aƒ:Gƒ:(@:@: 9:qAqA@:@kGkGk:@:@::@@ 3 A:@@::@3ƒ:9:øŠÄ]ƒ2 :@ @4@ƒ:@:@;@::@A@9@:A@3:kA @:: : :9‡:@@3ƒ:1@:9::@:@:A9:Gk:@@AkG::@:@:@@A:3:9Aj@A39::@ 9øŒÇ[322 3 3@9@:9A@3A@:@A:@3@:A@:Gj ::@ 393 :@: @:: :9:@:9:@::Gq:@::G:@AjA@:@:@:@::j:Aƒ@ :A9:@::3øŒÈg322@33::@::9:@39:@:::A@j:@@A@3@@: 399::@@:@:@3@@:@@399 3GqAq@:@ k@:@::@@:@@:@: 3A@qA@;93::@:9:9 øÉ\]9ii@4 9:9::9: 3A@AjA@k@ @::kGk@:@@ :@:@::@93@:@A@@ 4 3 AqA:A@:9 ::9:3@:@;j:3 3@A@:@A9ƒ: : øÉ]c’i2…:;:: 9A39@A@: @:@:9:A@::3@:@:@:@ 3@A@@Ak@@9 @A9A@@:A:9ƒ@::ƒ@3 A@qAƒ@ :k@: 9 @:3@øŽÊ c,i“2 :@@:ƒ@::9::Ak@@:@:::9:ƒ@:@;ƒ: 9 j@ƒ: @::@:A3:3:ƒ:#9::@;@;@:@;@Aj@@:@:@;@:9 93 ::@:@:øÌci3@;:@A@d:@A3:9@3@A3A39‡:@:ƒ@:@A@: A@:k@A3A@@3 :33:@3Aƒ@ 3@@A::9AkGq@;@:q:@:@ 3 @3@A:3 9øŒÍc]2i3@:@::@::3ƒ:9 A:@:@AA@:@ƒ:-@:@A@@d@A:j@:@@:9Ak@:9A @A:@9:A@AA@j@:Aj@:Aƒ@:@34 ::3:A:@:@:øŒÃc‰ c3c2i3::3…@:@:93:@@k@:@@:9:9@@A@„:!@4@A@3:@:@:A@A@: @k@@:A@:A:94 ::ƒ@A:@:k@:9: 3@ 99A@@::@:::øŠÄ]cŠ"c232@::@::@: 39 :3@:@3A3:@A:A::kƒ@3::9AA@A::qAqA@j@:@:@@ƒ:@j3@:@@;@@33: 3 :9 A@:ƒ@ƒ: 9:@ø‰Äc‹]c299 ƒ:ƒ@A@3::::@@:@::@93ƒ@3::A@AjA9@@3 ƒ@0k9;@ A@;@@3 3A3:@@:@@3A@:@3: 3:k@kA:k@:@@::@Aø‰ÅŒa]]cc :@3@::@A:939:3@:9A9A@;@:A @A:kA@A3@4:3jA@A@3 k@k@:: 9A@A33 33@499 : ::9::@A@@::A:@:A@@Aø‰Åcc,Œ23]c …:@3ƒ: :: A@A@4ƒ@:9A9:3 ƒ@9:@A3:@AjA:@9:9 :@::@:@@::@A: 33@A@A@::@@AjA@k@k@-ø‰Æcc2Ž9c]c3@ 9@A@:@9A@@::93: @49:@:9::9@3@A@A99:@A:@A@A@k@::@„:@@:9:: 3„:A@A@jA@:ƒ@Aj@@A@3øŠÆ33Ž ,c3cA@:@ƒ: 93 9: @ƒ:9„:9‡:/49 A::@3:@:@: @@:3 9@@A@4: 2 9 9:@k9:AjA::kAjƒAjA øŠÇcc‘c32 39:ƒ@:@ :@@:@ƒ:@@:@:@:@@:@@:@:@::@9:3@@:@4@„:$9@A@:A39 @::9 @@A:@:@@k:9:AFk@Aj :ø‰Çcc 2,c]c A@…: @;@Aj: @A::ƒ@ ;@@;@@:@:ƒ@1:@@:@:@@:@:9@A:@:3@:@::@@Ak@::@A@@:@A@A@@A@kA:@:ø‰È3]]c 2ccA9::9 9:9ƒ:@399„:@:@:@A@@:A:A@::@;@A@3:@: 33:„: 9Ak@A::@j@A:Ak@AjA@::@A9:øŠÈ2cc’ ,d]c:3ƒ:$@:@:: 9::@@A@@Ad@k:A@j::@@:@@3 ::@:@ƒ: 9:9A@A@@jAAk@:9AkF::@@:ƒ@ø‹Éc”322ccŽ933 3::@:@ƒ:ƒ@:Ad@A@A@@:A:@A:Aj„:@ƒ:!9 3::9:@:9:@:@: jGk::@@:@:Aj@:A@ø‹Écdc]• ,cc]9 39„:@:@3::9::9A@:@k:ƒ@:k::@:@:9:9:ƒ@:9ƒ: @:@@:@@A@A@9ƒ:@@A:AjAkø‹Ê23]2]”33c„3 3 33 3ƒ:@:@ƒ:/9::9 @::@::43 :@A::@ 9 A@k@3:@::9A@:9::@@k@A@øŒÊ239]–2]c2]ƒc cc]c] - 9„:9::939 3 9 3ƒ::9::AA:9A@@: :3:@A@:@Aƒ:A@AøŽËc23cc3c]9]]32cc2:c3cƒ 3Ž9@::@kA:@@A@k@k „3øÌcc2ž3]3c322c2333323ccc,33c3 ::Ak@@3:Ak:@Aø—Ì32Ž23¢]]2dcc3]c]c,3]9]23\3 :@kFA@A@kFøšÍ2c32¤]c33232233\323cccAk@A3@AAøšÍcc¬ 23c]9]3c]]„c9ƒ@k@ø›Î]cc]©33]]2c2]29]]3cƒ:øžÏ3]9©\c]923]3cc]2c]]c:9:øžÏc3]©]32]32]c]]9]2c3c]Ž3øŸÐcc©]ƒc239\9cc]c32]c3:ø Ñc]§2322]3]23]2]c]c2]2232ø­Ñ232¥ 32]c3\93c3]2…cŽ323ø­Òcc]¥3]2cc]cc2]2c]cc]2cc]ø«Òcc‰23š2c]2c3c3\c]332c]ccc3ø«Óc32†]3\š,c3ccŽ3c3c32,33c32dc]9øªÔ]32¢ 23,cŽcc2cc3ƒc ]232,]]c3c\øªÔc¤ 3cc]323]3ƒc 2]cc3c]3]øªÕc2£3]„c]3cc3dc]3c]8]23ø©Õ,33£22c]c]cc2c]cc]3ccc,c]ø¨Öc]2£3]9]c]33cdc]8]3cŽ9ccø¨×c¥ccƒccc‡c]c]cø¨×]232£ccŽ…cd]c]„cccø§Ø233¨]cc]ƒc„ccc]cø§Ø]c¬c]]cŽcŽ]cdddcø§Ùc® c]icccŽcø§Ú,2° ]c3“”c3ø§ÚcøáÛ]øàøøÄÜ]øßÝ92cøÊÝ],cŽøËÞ2c]øÛà3cøÚöcøÅøøÄøøÄøˆ,ø»øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/!-!øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄø‰2,22,3ø´ø…2,23 , 323cø±ø22, ,32,32,ƒ2322ø¯ô ,2,,3,32ƒƒ2 232223-ø¯ñ22-22232232   ø¯ð"2-2,3232232 3 39 2 - ::9 øªí+223,-223223223223 3:99 3:9 3 3 33  ø¤ë23, ,2223229283833„:9399 33 3 ƒ 3ø¡è422-2,32232323822928]93:99 3:3::9 3 39:93 ø ç 323,32 ,2 ƒ283838\9c9 33 43:: 9ƒ:3 3 3 3 33 øžå 2232-22ƒ2/32328]8ccbc@:93 :9::99: 93@c::9:@3:3: 3 2 3øœã@2332,323,32929b8cbcbiccb@:: :@3: 9: 9:4@:@:9:993  3 3 :ø™â]c,3,ƒ3292283b3ibcc]c]b@@ @:@3ƒ 33 ::93 3 ƒ:3:9:A393@: 933 :ø˜à23c2]232]3]]9]c]9\c3]9]3bcƒ:@:: 333 q49:@„:9::99 3 : 3 3 3 ø–Þ,232ƒ3)2]9\9\9]c]c]3c]c]9b9:@ 3 3:9 A2 9 ::9„::9:3„: @:39:9 3 ø–Þc,c\3c23]]c]2c3b3ƒc53b]b@:9 3 9 3:9:@3AA:G:@ 99@:33 9 9 9:9:: :3 3ø“Û232,ƒc2]23329]cc]]cƒ]5b]c9::333::::9::99:9: 3 :::@:9::9 :9:9:9 9 3ø”Ú3c]ƒ3 c]3c]c]]23ƒc38cc33b:@39939 :3 :@AA„:9 :9:@::9:@:@::9 ƒ::93: 3ø’Ú-\cc232]32]c9cc]2]3c323hi::3  3 3 3 @:@:@ƒ:@A@A 3 3  ::@::ƒ9 :99::99 3ø×]2]93]323c323c]cc]ƒc.232Ž“i::9:3 3:9@::@::A@A3Fk@@Aj 39 9::@ƒ: : 9::99  ø×+c323233c]c3,]c]¾¾”¾¾”™::9:3:93G33:ƒ@ 39:9:A9Aj@ƒ: :: 23 @:@:9::::33:3 3øŽÖ,323,232]c]cc3c¾¾2332ă¾>“¾““@9 : 3 A3AA@4@A3 :3A@@:9:@;GAj9A@@: G3 ::9:3: : 9  -øŽÔ]ccc3233]c]cŽc”¾¾”“ƒ¾#š¾Ä¾”“qAqrq@@:@9 -@A39: 9:9A@@;:@„:@@ƒ:@39: 9: 9:93:3:3 9øŽÔc23]2c3”“”c¾”““”c,”Ä]ƒ¾@““@rwA@::@3:3 9:9:9 9 3Aj@A::9A@:3:99 A@:3:::3:: 9 3 ø‹Ñ232,32]ccd¾“¾c””ƒ¾Kc”“Ž“¾”“”“™qkG@:@:9 3A@A@:9:3@@:AA@:39 @A3@@A@:9:3:A39 3: 9: 9 3 33 øŠÑac3cc33]c”½¾Ä¾¾23]c¾”“Ž“”ŽÄŽ“d“rrA@A:@A 3:3 3 j3::A@:4@@j@::@@A99 @A:3 3@::@ 39: :9 93::G::øŠÎc]c2c3…c”ƒ¾6Ä2]c“c3]]“¾”c3“˜r@9:9:@:3@A3@@::9A@:3@;::@: ::…@3:@ƒ: G 933:93 :9:3ø‹ÎK“]Ž¾]cc]“¾¾cľ”¾”c9]]¾”¾33¾3½¾8A@:G:@::@A@:@39::::33AA3@9 @:@:@:AdA…:@@j4AA3 : 933A 3ø‰Î cc“3Ž¾”¾¾c”¾”ă¾!”3¾¾Ä¾Ä“¾“¾¾”Ã@qGr@:A3@@3 AAjA 9…:9:9 :@:@::@@:@::9:@ ::@Aƒ@3 3 : 3 33 ø‰Ë233]2ccc¾“”½”¾c”„¾cc¾½”¾¾”¾¾”ľ¾Ä¾™q:3:9:G3ƒ:ƒ@3::9„@!:@@A@:@A@A:@k@A@:@A49 :A@@k@3 ƒ9 :3 99ø‰¦£]]c2cŽc]c¾”¾”ƒ¾½Ä¾Äcc¾”¾¾“ľ¾“„¾”¾G::::9: 9:@ƒ:53@@::A@;:94@::@3@k@:@:@j:@A9A :99@A@@ :3::9: :øˆŸ“¾”“¾“”ƒc‡ƒ”“”cc]ƒc;]c3c]c”¾“¾“]cc¾¾Ä¾c¾“¾“”¾“”“¾”“”“¾™q@9A@A@3::3@@A9;@A@A::ƒ@3::@„:@@Aƒ:@@:39A@::93A@:@: 3 999 39øˆŸ…¾c†ƒc””¾¾”cc“”½”†c32ƒcA”\c3]¾”¾”¾¾Ä¾Ä¾c””¾”]3c]c]cccÃGrqGrqrA@@A3@A9:@A@k@k@AkA: 9@Aƒ@$k@::9:: :A@k@:@:9:Aj@k 33:9 : 9 9ø† ¾”¾¾ƒ¾¾cƒ¾“”Žccƒ¾Žc‡cc]c3c”]“ccƒ¾ľ¾š¾¾c”c\“cc]cƒc]ÉÃrwHqrqx:@:9::9ƒ:2A@A@AjA9“i“@:A@A:9@A::3@@A@@A@:@::A@@ @:;:9 ::øˆ ”Ä”“ƒŽ2”¾”¾c”“¾Ž“cc¾”¾”cc† 2-c32c]c3cŽƒ¾Ľ¾Äƒ¾32,2¾”¾332¾¾”¾¾ƒi6q@rGq9:3@::::@:@jAj@A@@“i’iij@:@:A@39:GAk@k:@k@A@@ƒ: 3@@:@33 3 3ø‡ “”cƒc¾”¾¾½Ä”¾¾”¾“cŽc¾”ƒ¾”c…]2c3]cc]“Ž”c¾Ä¾“¾”ľc”½„”U¾¾”¾½¾”¾Ä¾“¾2:@:qrG:@3@A9A@ 3:@@::i@A@A@A@““i“Aj::@:k:@:3A@@:@AkAk@:92:3933 ø† 3¾¾]dƒ¾“Ä„¾”¾Ž“c]“¾“¾“Ž†Pc]2c3]3“Ž9c”¾¾Ä¾ccc¾”½”¾¾”½””¾¾”½”¾”™@qG::@A3 3:@:@A:AA@:@““33@j:9“’ kA9:9@Aƒ@:9@k@:@:ƒ@ :@@A@ @@-3 ø†¡ “c”“Ž“¾“¾”ƒc“ƒ¾ “d3]¾¾”¾””„3,c3”]„cjŽc]c¾¾”¾¾c¾”¾¾”¾“Ž½¾¾”¾½”½¾”¾“¾Ãr:A@A@k4@:A:@:k@@k@:A@i2iAA@: AG@:9:A:@3A:@A@A:@A::@:@;jA@k93 3 :, ø…¢]“¾c¾¾Ä”ƒ¾dc”2„”Ô¾c¾“„„c2“32]c]c“”¾”½“”“¾Ä¾““c-“”¾¾“¾”¾”¾¾332Ér@Aj9339:ƒ@A@3@@3:ƒ@#A22AA@k@kA@A::jG@@:: @j:3AkkAj:A@Aƒ@ 3  39 - ø…¢3ƒ¾”„¾”¾”¾…cc…¾cc…c]cŽ2Ž“]c3”½¾¾”†¾””¾”c]”¾“¾c3“”“ƒ2L¾ÉÃxqr@AA9A@A:@kAjA3Ak@:@kAk@A99@@Aq@@9@3AAkA@A9AA@:9AqAG@AjAjA@:: 3 ::3ø…¢½”¾”½”¾“ƒc† cc”“”¾Äc…]ƒc2Ž“c”ccŽ”¾”¾¾”¾Ä”¾“ƒ¾#”cc¾”c¾¾2]]¾”¾¾9rNr@@A@:@:AkA@A@A@Aƒ@ ;@@AA@A2Ak@ƒ:3:@:9@AjA33::9Aƒ@kk@A@A@ƒ:  33 @: 2 ø„¡ ””½¾¾”¾cƒ“ƒ]c]”½„¾dƒy3]c3cc]9,”c¾Ä““¾¾Ã”¾“¾”½”¾¾½32c¾“3ľľ¾Ä¾ÉrwA@k@A:@kFAjA@k@k@k AjAk@jAjAb@:@9A@A@A:@A@@:::@AjA GkAq@3::@kA93@: , øƒ¡ 2¾”¾”Ã3ƒ”cc”¾””c¾Äc‡]cccƒ3ƒ¾”¾”„¾#“””¾¾”¾”“¾Ž2¾Ä”¾¾”É™x@AkG:93@AjA@kƒ@:GA:3 9@@Aq@Akiici3@::@:@:jAƒ@:3 3Aj@93kA9:ApAk 3 køƒ¡Ž“”¾¾“]9„½”cƒcƒ¾“cc†$,c]cc]c]ci¾Ä¾Ä3¾“¾Ä¾Ä]c½”¾“¾ÄŽ”“„¾4“¾¾ÉÃxq@@::@ @@A@A@A@k@399@@AA9AA:9:b“chcAj::@k @A9A„:@AqAA@AA@A@3: 2::3 ø„¡¾”¾¾cƒ¾Ž…¾”½”¾„]2c32cŽ„c ŽcŽÄ¾¾“Ž“¾”ƒ¾:ľ]¾“”¾¾”c]”ľ¾”¾”Érx:A@q@A@eA@:jAj4A:A@A:@@:jA9:hii“ch3ƒ@$Aq k@:3@:@k@A@k@k@k@@::3 A@A493 3øƒ¢cƒ¾ccƒ23c”“”…¾”¾cŽƒcc]…c7]cc””ccŽ“””¾Ä¾¾Ä¾iŽ“¾¾“”¾”]ľc2ľÉrN@@r:Aj@@A:@@:@@Aƒ@8;9AkA9::@cbi’““b :A:@@b9A@A3 AqAqG3@GAqA:: 9k39:@A33 øƒ¢c¾šŽ“Ž””¾”¾™¾“”… c3]3cŽ„cŽ”cc”¾”“¾”¾¾”ľŽ“”ƒ¾½]2„¾Nhrxqrqx@AAk@94@@;93@;@@:3@: @A3c29’i8 k@kAA23@k@@k@:9:3 :93::994A 3 @@3:9 3øƒ¢3c¾¾”“¾””c”¾”c†c]…c 3c”]¾”“¾cˆ¾ľľ¾“¾Ä¾¾Ä”¾¾™c8ɾ@xqrGxrƒ@ A:9::@@AAjƒ3-:GAq@k@A@ibi“ic33 j9b 3:GA:9:9@A@9 33@9ƒ:3 9: 3ø£“cƒc d¾“”¾¾”¾“¾c†:]2c]c3]cc]c]¾9¾“¾”¾“¾Ä¾Ä¾Ä¾Ä¾¾Ä¾d“ľ¾“¾¾ŸÃÉÃÉÉrxGrqrwA:kƒ@':9 k:@A@A9:j::AGjA@c“hib3 @@Ak@:@9 kFƒ:@A@A@::3:@ @::9Aq::3 øƒ£ Ž“Ž“Ž””½”¾ƒ¾”\c†9ƒcc3ccc¾¾”¾¾””ÉÉ„™¾Äƒ¾Q“ɓɾľ”ÉßÃÉ Ãxr@:@xr@A@A:A:@A:@A@A@A3AG:bb:@:ch““bicAk@]:@A9A3:@Ak@k9:@::@@ƒ: @ kG:9 9øƒ¤”½”“”¾“”“”¾2ˆsc2-ccŽ2”d¾¾cŽÄ¾“”½¾™ÃəÙÉÉÃľ“ÉÉ“ŸÉÔ¾ÃÉÃÉÉÃÉxr:@: Ak @:93@A@@93AjA@:9bcic::h29iih2i9A@cb32::@::@AjAA@:A@:@:ƒ9 ::@A:@ :øƒ¥ Ž”¸“”¾”¾d¾2ˆ3]c2,”c”“Ž¾“”¾că¾”¾™Ã™Éƒ™ ÃÃÉÉÃəʓ™ÃƒÉVßÉÉÄÉÉirxGrqx: @d :@933A:Aj k:3 988cb::8cb“h““ibcb:@329b :9Ak9:Aq@A@A3@@ :A:A:@k@3øƒ¥ “Ž”½”½””“”‰y2c]3“Žc¸”¾”¾“”cc™Ä““™™Ã™Ã™ÃÙÉßÉi“h“™rŸciiqrxHxrx@xqrMr3@A3 4AG:k@A@@:@ \2c8c:ciibci“bcb :@:9c 3@@A@AGkGAjAjA393A@Aj ::9 9 3øƒ¥ ”“¾”¾]”ŽŠ&,9]cŽ“”“¾“¾“”¾cÙ“™™Ã™™ÉÉÄ™™xAA@A@xrxƒ@?:xrx:@:@rxrGx@r@AjAk@A@@kG9@Ak@A9 2c8c@k@8“hci’iib9c9A 3 @A9Akƒ@k@@kGA@::@@9A„:A :øƒ¥ 2Ž“¾”“]¾“‹/3]c2”c¸“c]c3¾¾3c™2™Ã™ÃÉßrwqrAj@rxrx@Arxxrwr@rƒx rx::rw@kAF„@BA@A:AjAGj 23@2c b2““h“i“ih2:3 9@A@A:@@kA@A@3 3: :@3 @:@Aj 9ø¥32Ž“¸¾c]‹ 323“3,c”Žc”ƒ¾2ÉÙ™“™Ã™GqrxrGxAxrƒxrAwrrxxrxrwrxxw:@:wrA9ƒ:2AjA:j@k9@A@Ak883 8c8c9i2i“ib“b22:k-33Gk9:@A@:@Aƒ@:394@::@3A@:ø¥23“¾”¾cc‹c]2ƒ¾“”c½Ž“3ßÙ“™™qxGrƒxrxqxqrxrwrxqxqxqHwHqrGxrwrGr9„:C@@A@A@:@@jA@:29bc:82ch:@:3@2923@A:@3A@qAAG:k@kA@:A@:@::@ : @: @A9ø¦Ž”“”“c,Š<32c]c”¾“c””½””ÃÉÙ™“’r@ rqxrGxrxrxwrxrwrxHxrxqrxrwrrGrqxr:ƒ@:9:@d:AAkAA933b92A9:bcc@:ƒ@*A2“9:@A @A@A9:jGA@AjA::jA::@9:99pA::9:ø¦“¾Ž”¾‹c2c3c¾c¾”3½¾”¾“Ƀ™“™GA@xrqxxrqxxwrxxHGxxrxw„xU@xrxqxGrxq :@:@@::3A@9AFk@: 9 :@k@29b2@::A:29,A@@:3Akq9::@kAp:@@jA:@:@AA:A: :9:A9:ø¦Ž“¾ƒc¾‰+2Ž”cc¾c¾¾c¾iÙÉÄÉc™™:r@rqrMrx9:qHGrwxrqG@ƒrHqrAxxHxrwAqA::@@ƒ:D:9A@:3 @Ak@@AjAA2c8c2“ib92299:3: 3@GA9:A@qAA@A@A@A@@k@A@:939A9AA ø§”“Ž¾”\‰-3cc½cc¾“]cbÃÃÉ2rqq @rxxGqr@AG:@qqrqrx9@AAwr…@ rw:@::@r@@:Aƒ:9: @:ƒ@*kG3A@A@k8cb2i“i22,c2 @:A@k@3AkAAkGjAjAjƒ: @Aq@:@3A@jA2ø§]“”½”3‰Wc“]d3”]”¾ccii@rxGqxx3xqrqHq@k@@3rGGqH rrxqxrwrxrxrxrwrxrG3@AjA@A@A@k: 3:@ 3:@k@:Abicc…2*33]83833A@A3AGkq@G@A@:@A@@ 39 3 AA9AjA@ :ø§]]”]‰%c3]c2¾¾”“¾i“hkA:xAxr@rNrw::G@;3 xAxrƒqrqrxGrGrqGxGrGrGwx:@A@k@qA:ƒ@A:A3@:9A@A@k@ihb2923™“c232cb23b3A3AjG:@A:j@k@:q::A9:A9A9A3@:@:A9÷¨9“¾”2ˆI2¾c2c¾”“]c™’iqGrqxAxx@:@::G3@q@kGr@:GGrMrqxqrwHqrxxqxrAr@@k@AqAjAk@A:9 „A:9@::@2cb98ci’“oc]i22c23GjG:@@k@@A:@A::@q :A@j39A::9 j ÷¨¾”]c‰ 3¾3”Ž¾¾“Žb™ƒr2qxGxAwA@ 3:A3AAjAAwrwrxqrqNrqNrqqrwrxxqqAx@:@A@A„@CA:@39@j3 :93@:c82c2“i“i“cb“i,c32Ak@kA@kAj:Ak@@3A9:pA@A::@4:@ ÷¨”“”“]ˆ62]“¾¾š”™bi:@xrxrwrq 9A:3:@@qr@@qrxrxrGxqrwrr@GrHqxGƒAOwr@3:@k@A@A:j:@@;@@A@:9b9b3c8ch“’“˜Žc™c3,22 @@AAjA@A@:9A@AAj :: :@:A94:::9÷©Ž½”32‡4]¾c¾cc]™“iq:@@xqxr 3G:k@:F:@AAqAqrxGqGqrxrGrGqxrxqHƒqGk@:@@::@Aj@:@Aƒ: @„::9:\:9:“i“8i“i““822322 :@k@Gk@kA@A:qA@@::@A@3Ak9 :@A@Aö©“Ž“¾33†y32¾”¾cib™qHqrA@: q@k:@:AAqr@@rGrxrqrGrMrxqrGxxrxqrGqrGrx@A@@:@AkA:jA@A93A@@:A:2iG@A’“hi“h“j“cc2AGjAk9A@A@@q@A@@jA3:@k@k@ @:3 :@k@A3õ©]]”3\†Wc3“2¾c™“bH:@qr@A:q:@:G @:F:qG:@qrqGxxAAqxrwxA@xrw@A@qHqxqrAkA::@k@A@A@k@A3@@:99c8kAk@iƒ“0™“oc“83]@k@AAGA@k@A@Ak@kAA3:@A@A@::9 @3:@A99õª2”“]c… 2]cŽc”™cb@:ƒx9qq@q:G:33:A3@qr@:rGqxrq:@qGrGAA@kxxrxrrqxqrNqA@k@A@3Aj::3ƒ@ :3943c8“G@chi™’i™“cŽ“c AGk9::ƒ@AjA@:@Aq9A:9:9AjA@:AkA@A:@3: õª]”¾23…,3\c“”\9’iq:q::::G :@:@@A:A@:@9AqrGqHxrqrwrƒxqHwrxwNrqGrqx@@A@kAA@@9ƒ:A999@ 98“Akiib“™„“dƒ@(j@kA@@3@;jAAkAjAj@:G:9A3G@@:@kFA3G9AA3 3ôª“”“3]…]3Ž¾38] x:Gq:9:9qr„:6A@j:A9AkGxxq wrNqxrqqrqxrMrqrGxrxqHqAk@@:9::3:@:@9:3Aƒ::94ib8“h“c8“o’ŽGj3A:A9:@A@A9kAp jG@A:@ k9:@:9A::@:Aj kq@39õ«¾”2…=3c\”“ŽÃ8q:xrx9:qr::@:39A3@q:AGkr@:qrqxrGxrNqHqxxrGrqGrxxqrƒ@ 3 3@A@3ƒ:Aƒ@ : 9AG23bccbiƒcA9 93:A@jAk@:9ƒ:9::@:::: A@:@@:9: @A9:ô«”¾“3…9“]”¾™™bG:9Hw::9:G:9 @:3::G:Gr@@kwHxrxNrqxqrwrqxrqHxxqGrqƒx @Ak:9@A@Ak„:C9@:A@::3:2992cbichic@A@:A9@A::G@::@A:9::k9::@j33A:::3:9::ó¬¾2… ”c“cc™™cq „:#9:A9r:@@:@@:qAqAAqGqqGqrwHqHqHxGqHƒqXrxqrGr@@A@@:@:@Aj@@: A@A9@A9:c\9’9h]i“c3]@:k@@::@ 9Aj:@:Aj@:A@@A:@A9A 9 Ak: 3:9 ::@ô¬32”c„9¾Žc™b:q:9:::9rG:q9A@@::9r@rxrGrqHqxrqqHqqrxqxHqxHxqrqƒ:O@A:AAk@:A@ :@k@A@49:A9“2cbi“ic“c]cG@Ak@: 9:AA A@AjA:@kAq9:Ak9kAq::3@:9:9 ô­3c„5]”¾chc8r9:9::@qq:G:@:@:@:AwrqrGqGrxxNqrGqGxrGrGqrƒx@:G9:@:39:@@: „@A:@: @:2]82i“i“˜2“ƒc b3@AAk9:ƒ9:@k@A@:@ƒA @:@GG@@A:@ ƒ@ 9: ô­”]c„9“2”cc2r:49 99r:G@:@:3:@:@AqrwHwrGkqrwrAqGrqrx:qAxqx:@@ƒA @@:@@A:@Aƒ34A::3@k 9@: 2cbbii“i3::AjGƒA 9 A:93@:@A:q9ƒ:qAqA@A@@3Aj 9 @@: õ®”3]ƒy3Ž32cc™2q:@x:9:9Hw :: :@@:@kqxGrqH@qGxrAGqAqrGq GkGqr@A @@jAk@::@@4@A9:@Aj@:@AqA:A@3™“i’““™]2b3@99kF:@jA::AA@::@::9@::Ak@kƒ@ :@A94@:A@õ®“3„1“]2]3™8rH@:G:::qr: :@: qGrrxGqqAkGqA@k xqxrw kƒ@ :AjA3A@A:@ƒ:@:@:ƒ@"A:@::@9@:k@“™ii“@8339:A@3 :@A@:Gƒ@:@:@k@A@A@Ap:@A@:k@A@k@9 @:@õ®”2„?“c332]:q@3:949: q:93@:A@AkGqNrx:@qG3A@q 9@r@A@3@AAjA:@A@A@@,93…: @AAkAjA3::ƒ@79322“8A:b8::9A::3:@@:3@kA::jA949:@AkAGk@k@A::@GAA3:@kõ¯”¾„y]c-“22r9 ::9@:::qq @qGqq@:@A3:@AA9:@@A@:A@:@A@k@::9:3 99@@:3@@Gq@kG@AkA:::k@93 :: 3k93@ ::3:F:@:AAGAGj@ApAAjA399:@k99:9::õ°“ŽƒTc””239r3:9:3::Aq @ @Ar@r:qr::39 9Aq@3:@;@k9@Aj:@A@:93 3334@Ak3:@A@AkA@Ak@@39 ƒ:3@@:92::@: :@@ƒ:@kA:@:9A@q@jAjA@A:@::9 ƒ:ƒA@A9:õ°Ž2ƒccc]”2™2 9:4:A@q3 kq:A@qH:@:3: 9 @kG:Aj@A A@A@@::99:439 93 ::@@:9::Aj@:Ac:93@@k9 3@@:9 2ƒ:@@: @:A:@kAGk9:@Aj:9„: 3AFk@Aj ÷°ƒZ]”]cbc29@ 3:9:9:kq@HqAqGqq@q 3::9:3::Gk:@@A@@:@j:3:3 33393 9 94::@@:AkAG2@A@AqAG:@AAjA::ƒA @A3 c3c@:@:@::@9::@k 99A@@ 3:ƒ: 3AAj:3÷°”,ƒ=““]cik 3: :9AGrqqAGq@;@q @9443:@A@k:@;3::9 9:99393:ƒ@*9 kGjGk@A@::G3::@AA@Aq@@,AjAAc]93::3@:9ƒ:@:9@:@:A@:@4@ @:@@3Gj:: ÷±”2„-Žc2i2G9 :9::q 9H@@kGrqrG::9:9 :3Ak9:@:Aj:9‡:/3 :34@:94:9AqA@A@qAk@:@qAq:9A933Ak@@AjAc:cƒ: 9:@ @@:AA@A@3:3@@A::A@3 A:3ø±3ƒy]“3]i29k3 349::GqqrqGqHq:@:94393@@:@A:@A@ :@9 9A9:3A@:9AAqA@k@A@AqAq q@A@::@AAGjA@Ak:@A@A3@:9@A9@A3 kGkA93 :@: :9@kAGkF:9@ø²2ƒ+3c2ci2@3:9 33 :k9ArGr@:q@4@:9449:9::9@:ƒ@A:  949A:kAGjA@AA@AkGkA@kq@AqAkAAjGk:@kA@k@GA@:@k@:@::3:@:Aj 3ƒ@:@@3:9@:A@kA@:3@ø²3ƒycŽc,ic :9393G:: qq @q 9:4994:@A@@::Ak@AjA@kA3G@GkA@@k@k@k@@qAkGAkGk@:@qAqAk9@Aq@Gk:99AA@33 3 A@9A@: A33@k :@:@: A Ak993::9:A@ø²2„]“3bchrƒ:y3: : k9GrqH9:94@499@:AjA:99G@:A@kG9A3@k:@Aq:GkAGkGAk @GjAFk9:@A@A@qGAAj@Ak@A94@k:: @A3@k:A@A9: :9A:@:Aq3 A@A@@::@9÷³3ƒV””\32iqq:9493: q :3GqA:9 9:9:9:;@@:A9:3A@kGkGkb@A@@:@kGk99:@kG@3@AkGk:G@k@kA@kAjAAƒ@/A:9 @@q@@AGA::9:9: Ak9:@k@kG:33Ak:@:A@@A@::9õ³]„:”2c2@A::9: 9339 qkGq:: :3:jA99A:@:3A@qAj@A@AjAqAq@GƒA@@qA9:qƒ@@:9A@@AGk@AqA@k@A:jA@3@kGkA@k:@j:9::9 39AG@:AAG@A@9 @@Ak@@A3k@@::õ¸"2Ž3bi: :943 3 q:q:Gq::949:9::@Aƒ:@:AAjAA:@ :9AGkGkGk@@jAjA@A9ƒAAjA@:@k@:@k@A@qAG@::@A@3Gq :Gk@:@A@@:@A@:3@kA99kjAkA:3:@::@:933ö¸2ccc@3ƒ:l933:G:GqqGq::9:::@::99AkAjAAj:9@3A@k@AkFAqAA@A::@:@@:@A@@AkAkG9:@kGA@kA9@A3A qAq9AGkG@A::3A:@:A@@AAAp…@AqG:@;@:ø¸y]”,i: 3:9::9 3Ak@qHqBq:@9 9::::@AA@AqA@@c@:@ q@AjAGkA@kq@k@G:AjA@:@k@j@AF::@:@Aj@@k@@A@93GqAAj33Aj3:@ qA99A9A@k@A@kG kG:@kGqq@k:ø¹)c2cb 9:9:9:9 3@Aq:Gq:@::: 93A@9A@k@Aq@„:>9 AkGAjAF:@A@A@:q@@Ak:@k@AAqAj:@@:A@AkA@AjA@AkA:@A@kG:AA 9:9ƒ:@:@:3 @:A@k @kGkGk@A9:÷¹”22@3:9::: @k@ qG„:\9:@:A@4@k@ApA@A9AA@@kApA@k3@AjA@qA@:@3@@A::qAq@A3:AjA@kG@@Aj:k:@::@k@A@@:@q::AA::G@A:q@3 @ƒ: q @:@G::GG3öº””233…:Y9: @A3qA:9 :9AA9::k9:GA@:@k@AjAkqA: AjA@ k@:@k@kAjA :@:@9@A:@A@A@k@Gkk@A@A@@A:@qAAjA@qkGƒ@k9:39A: :9kG:@A3::94::q÷ºU2Ž,3 :3::9:q:Gq::9AAq9:9::AjGk@:A@A@A@A@j9@ @:@3:A@A9A@:3A::93A@A:A@jA@A@k@Gkƒ@,k :@A@qGqAkGqAkA@@: k qA@:@:9:@:k 99 @A::@öº<23“cb :: 3:9::@:: 3:3A@:943:AqA:GkqAqk@jG :Ak93::@3A9ƒ:! @@9:AGkGk@jA:AjAjAA@AjA:@k@k@A@kƒ@A@:9Aj:39 9 9:A9ƒ: @@A@3:A@@ öº(329:::9 9 3:A:@qqG::99A9::9AA9:@:jAƒ9 A@Aq:Gk@: ƒ:A@kA9:9A::9@kGkA@AA9:ƒ@A9kG9 @k@@ @k@A3…:Gk9AG9 9A:3 :3 :@@A3@A33@kq3ö»2d“b 3::: 3::3@q:G:q39ƒ: A9AAp3:@:G„A5k@9:@AGAA99: jA@A::@A93A@A@GkGqk9@A@A::@:kAA@A:: @3@ƒ:GkAGk93GkG3::Aq9 39@ q@:Aƒ:AA33õ»ci2„:/@ 9 :G: :G:: :@9:@@AA9:@kFk@@G3 :3@kjGA3@A3:9ƒ@ Aj:A@kAjA@kA:@A39@@:: kGk@j:@:9ƒ:ƒ@!qA9AG::@:A@9AA: 9 3A q:3 9 jGAõ¼ Ž“23 :9@„:9:3k:9 9::@::@:9:Aƒ:D9A@k3A3A@A@k9 A@G:@::@@A@A@GA@A@@q A@k:@:A@@:FkGAA3@:9@@AAjAq k9: ƒ@A@3F:9 39q:3k A@:kõ¼2d8: 9:9:9:::3 9„:MGAqA@: kF9:@@: @A@::9:@@A3 @k@@kGAkAqAqkA9qkGkA3Aj::Ak k@:AAjAq@3@ : qAqAGkG9ƒ:Aƒ:@A:q 3A :G:3G3:A@õ¼3ib @ 99: : qG:3:9 :qAq9ƒ:'A9:Ak@:k@:@G:3 k9A@@k@:@:9 9:9:GjAA9AqAƒ@6A@@A@A:9@@k@AA9: @3:9:AqAq:qGj@@k@jG3@@:3:@3@ :9:÷¼.323b:29 3::9:93:G3:@:3@:A:9A9: :@A@A9@Ak@@ƒ: @Ak@3@:: @ƒ:C@@AqAqA9 3:9:A9:q@k9A@:@q@@::9A@:A@qAqAqGkGA@;@3::Gk 94@q 39 9: :÷½ycc2c :3 :3@:@:G::A: ::GAq :99:Aq@::@Ak:@:k@A@::@@::9AGkG@A@@:3 @:9@:AAAGjA@:A@A: :@ @A@ApAqA@qk@3Gk:G::3 A qGr@:3::3÷½9cŽkF: 9:@3@3 qq:@:@::99:Gj9: 9:9Ak:9:@:@A:Ap::9@@:Aƒ@CkAqA@9kA@A@3:A:@kFj@:@A:k@A2:@k9kqqAqA@kAA:3 Gk9@ 9kGdG:@kA@9 @ø¾ ,32@@3:: 9 ƒ:AGG9:@:A9:@9: A@:FAA@ƒ:Ap:A@:9AA@:3@A„@„: 9:@:@3 :GjƒA:9::@k@::A GGAqAAkq:9AqA:„@:9AGkG3 :qGq 33ø¾$9,2::@9::@:@9 9kG3:: 9AkG:3:AA9Ajƒ:BqA99@:A@:@A:@@e@3:AkAk :@::AGk 9:@::@Aq@::@: 9::9A@k::GkFAAGkGA2Aƒ:@ 9A@@k q 34 :ø¾b329294@@: @:@3:GkG::GkG9:9::39A9::@:@:k:@kApAk9A99:9A@k9:@A@@k9 93A9@:AjAA@:@: @::9:G:jA@kq„@kA@@:@33qA9k qA@A93 ø¿ 33“A ::†:D9 3G:qA@::@::@::@:@A9:AjA3:@@AkG@;kA A:@Aj:GAk@@:@9 : @A:@:@@kA@:@ƒ:%@::q@A@k@GkkA@qAk@: GqGAkGqA9:  3ø¿c322i9:: 39:9@Aq:9:9ƒ:2G:9: ::qAq9:@:G:9:@A@@k@@Aj@@:@A@kGqA:@:3@3Aj@Akƒ@ kAj::99AAƒ:GqA::9A:9 ::9A::@A39ƒ:-93ø¿cŽ23ƒ2A jƒ 2:9 k9ƒ:*qGq: :@9::FA::@:@9:A3@::9A@kAAk9A:@Ak@93ƒ: @:@@A@Aq:ƒ@A„:#Aq@q:GpAkG@9A@@@::3@::3 @A:3: øƒÁ232cA2 3 3: A…:9:@: ƒ:ƒ: 9AG3 AAp ƒ:59:@9:9::@:@AF39 9:9:9A@:@AA@::9:@qGkGkG@kAGkGA::A:3ƒ: :@:@ @jA9 9 3ø„Â83,2b  3 9::3:G9:@: :@:@::9Aq:@9AA:9A@:A:::99…:@A:9:::@A::9ƒ:9A@GkGkGAk@A@kGjA@@:9 9: 9A@3ƒ: A@3: 9 -9øƒÃ-2i:3 3@3 9GAƒ@:@3 q@;@::3:A::939AAj@@:9„: 9::9:9@:@::9ƒ:1 3A9::9:AAqA@qAGj@::@qAq k@3 9 :3::@@:@9 3394 ø„Å3“b@ @3: 3: ƒ: ƒ:@:@3:9:@ 39AGƒ:9:9A:@9@:::9ƒ: @ @:3 9:9ƒ: G@@k@k@Ajƒ:@:9@@A@@ 3 93:9::@ƒ: ::3 ø†Ç)2ich:3 @:9@33 9@::9AqA@@::@: q::9:9†:9:‡:9:9: 99::GGkGkG@AAk„:9A@AAƒ:9 3:4:9::9@3@:: øˆÆccbi22::@::3 @:@@A„:@Aqƒ: 9:9 9:9ƒ:@:9::9::9@@ƒ:9 …:*@:jGkqAq:?::FAA@k9:9::9:@::@@AA 9:,øˆÆ3bi3ƒ:#99::9 - :@:::@@@: 3A:3::99 39ƒ:9::9ƒ@:: 9 :: @:@:@AqA@@:@::GkAj@:: ƒ:@:::9@:: @@:9::ø‰Ç c,i:9:ƒ: 9:939::@@:@3AA::9:  9ƒ: 9::9@::@Aƒ:@3:@:@: @::q @:@:@:Aq@A@ƒ: 39 9Aƒ: @:93:::9 9øŠÉŽc929„: 9: 3 ::‡:ƒ@ :9- 9ƒ:9:::A@::@:: : :9Aq:qAG3:@ƒ:qAAj@:ƒ@@ 33:A@::9:@: 3 ø‹Écc“83:@@:9:334@9:@@3@ƒ:.G:@::3 ::99::99:@@:@ @::3:qAqA3::9q::@:@A@qƒ:3 33: A:@@:@: 39 9@4 2øŒÉ]22i:@::@::@:: 9A 9: ::93Gƒ: @:::?:@::ƒ@#:@::9:@:@:@ @AqA@9@::9@:Ak@:9:@ 3A3ƒ ::@@A@:@393AA3@9 ø¿Š”,32i’:::9:@4@:9 : : 3@@:: 3„:@9:@3ƒ:9GA3A@@::A@::@@3:@q:@::A:@:ƒ@ A9A9:9:@@k:3 ::@@3@:: øŽ¿cŒNc],c4@::: 9:3:G3 @:  9:9::@:@@ 9@:@@A:33::9A::@3@@::@: @:@@::3 j:@:@99ƒ: @Ak@:@Aƒ:ø‘¿cŒ:c,3,39:9:@:@::: 933:3@::@@:@::@ kqq@:@k@::9@A@k :ƒ@ : @: :9:::@„::@::3@;:33: 9 ø‘ÀŽ3Œc,c]c:::9:: ::@ƒ: 9:: @@:@::@:9 3@ƒ:@3ƒ@: k@:@3ƒ: :q:::3AA3†:ƒ@ ::3 A3@@: 3ø“Àc“3Ž!c3c]9:::@93:9:::A@@A: ::@ 3A…:1@@::@;@: @@A: @3 3 :: qqG::@GGk::9 9@3@ @3 9ø”Àc]Ž'c23c9::@:: :@93 :j:3AkG::@ 3@:9@39„:@3:@ƒ: qk:@:9:9@…:@Gk@:@3A3 3:3 99 ø“Àc”,Ž ]cc : ƒ:33@ƒ: 3@::@3kAA@:9:„:@9::9 9ƒ:9@:A :::3 9:@:@:@::@@A3 ƒ@ @@k@;@ø“Á3‘3cc@:@ƒ: :@: 9:9:9:@:@:9ƒ:@:::9ƒ:) @::9A99:9::9:9:::@:@:A3:@: 3 jAjA@A:@ø“Ác3‘2-c]3]@:@ :3@::9 :@:@ 3@„:9ƒ:9::@:::3:@4:†:9A3@@:3:9 @: 3 :9:A@AjA@:ø“ÁŽ” c2cc@ @@:: @„: ::@„:9@@9:@:@ ::9::9:3:9::9@:@:::9:: @: @3 3@:@A@kAk@AjAø“Ác2•3c]]2@::9:@:@:@9ƒ:<39:3: : :@:@@:@;9:@:@:@:@:@::99@@33@ @33 jG3@kAqA@@A@:@ø“ÂcŽc]c“]ƒc399 3@:@::@:@:@::@:@:@:@…:9 3A@ 9 39393:@ƒ:A@3 AA9AA:@GjApA:k@::ø’Â3”c]•cc3cƒ 33::9: 3 :@:@:@::@ƒ:@::@:@ƒ:$@:@:;@:::@A@3A@k@@3@:@:kGAAj@@A:@:ø’Â2cc—,3]c3]c 3 9::9::3:9ƒ:@@:@@::@:@:@:@:@:@ :9„:9 9 AAqƒ:@::@:@Aj@:@Ak@:@::ø‘Ãd2˜ c3ccc2cc3 33…:%9:@@:@:@:A@:@:@:@:@:@::9::: 9 :3@qƒ@3:@@:@:AA@A@k@@ƒ:9:øÃŽc,˜'233]]3]233 9 3 3 9 3A@:@:@:A:@;@3ƒ:ƒ!:@ @:9AAkA@A@A:9@A@jAkGA@A:9@::93øŽÃc2dc3™]cƒ22]233,2-23::9ƒ:@:9:393 AkAk :@@:@:9A@@kƒ@3:@A@@AjGk@j::@:@AAøŽÄ2c]šƒc3ƒcc]3232ccc2- @@; …93 kFA@3@:@::@ 9:@A@3:ƒAjA:@qA:@A@@:@::@øŽÄŽc32 ,c2c3]323]]c]3323]]‰A@9@AjA :@k@:@ƒ:9A@3:@k@AjAA@@:@:@AA:A@3øŽÄc3¥c2323233c,]322‰9::@@Aq@A@A@:: Ak9: :@Aƒ@ kAk@@:kA:p@@:øÅ”c2© cc223‰#:@:@;@@::@:@:9:@@:G@AkF:Ak@Gj@A@AjƒA3øÅ3c]3¨5dc33c]3\3c323]@AA:@k@::@:@: :9A@kGk@:Aj@:Ak@Ak@kƒ@kAAøÅ23c23©3„c,””„ ccAjA@:Ak@:@ƒ: :jA@k:@ApAAƒ@ Ak@GA@A@Ap::øŽÆ,c32©2]ccdcc,”c”c”c]2A9AjA@Akƒ:@9 Aj:@@A@:Aq@kAq@:93A@jA3@øÆcŽªc]3ƒcƒc3c]2Žc]AGjA@:9:ƒ@3::@ƒ:@kA@@:A@A@A jA@ øÆcc”©9c2]c3cd]c]3cc3c””A93:9@@:@:A@3@@:@@:@Ap :@k@qA@@@::jøÇc”]2¨ c3Ž]d†c]“Ž“Ž@A9:@AA@ƒ:3:ƒA:@ jAA3ƒ@ :@AjAj@kAAøÇ2”]¨]c]„cccccƒc3”@9ƒAjAjA@:9A@@:39:@:9:A:@@k@A::A@ø‘Èc]¨ 3cc”3c]c]cc]ƒc'c @:@A@A@@::9Aqk@A9A:AA@kA@;@:A@:@ø’ÈcŽ¨]c23c2-3cc3Žcc3cŽccƒ@::kA@3:@AqA@@A@AjA9@@kƒ@j:@ø“Èc2§c3]2]2c23]2cŽcc]32Ž‰9@Ak@A@AjA@@A3øœÉ3c32¦ 2c]c39]3ƒcŽccƒc3“cˆ :@AqAq @k3 øžÉ23]¦c32c]c]c3cccŽcc]cc‰ @:@@k@kAø ÉcŽ23¦c3]23cc,ccŽcŽ„c]cc]c‹ :@A@@ø¡Êc,§]c]cc,cccc”Ž”cc]]cŠ:@:ø¤Êc¦ 22c3c]3c3ƒc ŽcciŽcc3“ŽŠ:@@ø¤Ê232]¥]33cc]c32]cccŽcŽ”Žc]“3‰@:ø¥Ëc,3¥2c\c9cc]ccd”cc]92”cø°Ëc¤2]c3c]c3ccŽ]]9cccŽc”23ø¯Ìc,¤c3]c]cc]2c9c]2cc]9c”ccø¯ÌcŽ¢23]2c]cŽ3ccŽ]cc2]c3…cŽcø¯Ì,c3ƒ23œ2c93cc“ccc]ic]cc]c]cŽ„cø¯Íc]3]bœ3]2]cdc32]3ccŽƒc Žcc2dc]ø¯Ícc¢33cŽc2]2]3“Ž””]“cŽcƒc]3ø®Íc¢c2cc3c3,cc”Žccc]3“Ž”c]3]3ø®Î,9]¡3]3ƒc ]ccc]“cd„cŽ“cŽ“cø®Îcc2¢c2c]c]cc]9cŽc“3ŽccŽccŽ“ø®Îc£,c]cc”3ccŽcc”cŽ“Ž“Žø­Ïc£]c”c”ƒd“Ž”cdcŽid“djjø­Ïcc¦dcdcc””cc”“Žƒø­Ï,c3«“cƒc ]cŽ“Ž“Žc”“ø­Ðc,­ dcŽj”c””ƒcø­Ðc3°c”ƒcŽ“Žcø­øøÄÑc2øéÑ]øêÒcøéÒc,Šc…]cøÔÒ]ccc“ŽøÓÓ3c]øæÕcøæíøÍøøÄ÷2øÄø,øÂøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/"-"øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøŽ,2,ø³ø†,22,3\22c]ø¯ø2,32232„32ø®ô2]2232]2322323„ 3282cø­ï,,23, 23,32232--229 ƒ3 3 3 3  ø¨é]22,3,232-33,23ƒ23 3:9:9 3 3 3 3 ø¥ê23-, ]32,322“Ž“329 33ƒ 3 2 39 9 3 94 ø£æ ccdcŽcƒ¾”c”“„¾!”2 3 9 39 9:9 3 3 :3 39 3: 9ø åc¾”¾¾”¾ƒc/“c”¾”¾”¾”¾”i3:933: :9 9 9 9 3 9 3 3  øâ>c22¾¾2c¾”Ľ””¾”¾“”½¾¾Ä”ci3: 9 3 9::39:: 93:9: 9 9 9 3 33 øœá]3”Ž¾”…¾ ”]9]ccccŽc¾„c:933ƒ::9ƒ:9:: 9 9:33 3   3 ø™© “”½”¾“¾c†c¾”½¾”“Žcc”¾½cc,2c¾“¾“¾“¾¾š¾Ä“¾¾ƒc33”c]c¾23”b: 9: 99:3 ƒ 3 33 933334„3 3 ø—©,””„¾””†”„¾“””cƒ¾”cc ”c””“ŽŽÄ„¾%c”c¾½¾½¾¾c¾””½”bqG , 9 @q3:@@ƒ:9 ƒ: 9: 39 93 3 3ƒ ø”ª“¸¾Ä¾“„c¾“”¾”i¾”Ä“Ž“”¾Ä¾¾“”cM]23”½Ž“”c“¾Ä¾Äc¾”¾¾””¾”“¾¾½”¾¾™:A2  3 39:@:3::9 9 99 9 9: 39 33 ø“ª¾”“¾2ƒc¾”‰¾“Ž”¸c„¾š¾“Ž‹ ,2223c323„¾Ž”¾Äc¾”½ƒ¾½”ƒ¾ ”¾¾“”“@qG:9ƒ: ::Ak: 9 3 @„:9 ƒ:93: 949 3 9 393ø’ªc¾2]ƒcƒ¾”½”¾Ä¾Ä¾¾”““]9¾Ä¾¾””‹c3c]3]“„¾/“¾”Ľ¾¾”½””““Ž“”““””“@:A::9::G39 3@:9 3G::@„:9: 9:9 33 3  9 øª]¾”cccŽÄ¾Ä¾“”“¾¾š“Ž”]9ƒ¾”½”“Š 2ccc]9]9¾¾Äƒ¾#”¾¾”“”c3Žc32,3cc”¾”Ùk:: :9: ::ƒ "Gk :@:39:9:9: :33 9:99 3 23  ø«¾c“Žcƒ¾”¾¾””Ä”\23ƒ¾Ä“”¾‹Žcc”c¾c“”¾”¾”““”””¾”½c¾¾ƒ”8¾“¾¾8cGq:A:@ :9:: 9:jA@@:@:3:::9::9: 3 3 3 39 3ø¬3“”¾Ä¾Ä¾½¾”¾“”33ƒ Ž¾½Ä¾¾cŽ‰62,2c3¾¾c¾cŽ¾¾“¾“¾9d“Ž“Ž”¾”¾¾”¾¾“¾¾¾”ÃGA2@k9 9 :@3ƒ:"9@:3AkG9:3:9:: :9 9:39 33 9 3ø«2¾”…¾”ľĎ† cc¾”¾¾Ä“Ž†c3]32,c]cc,¾”“cƒ¾ ”¾cc”2”½”ƒ¾ þ¾”¾”¾¾™9k„: GA3 9 @@GAkAp 9::9 : :9::9 ƒ: ::9:399 øŽ«3½ƒ¾Ä”ÄiŽ† cc¾¾Ä”“Ž‡ c23cc]c””„¾'Ä”¾“¾”¾¾””¾”““”Ž“”“ÉqGqGrwr@3:@:@„:@A@ A:9A@A9:  ƒ:@ƒ: 9 9 33 3 øŒ« “¾”¾”¾¾“Ž“ƒ“ƒ ”ŽÄ¾¾”“¾Ž‰]c32ƒc3”¾“¾”Ä„¾”¾½”„¾2”½]¾¾¾”¾”¾¾™qrAqGrw 99A::ƒ@:@ƒ: @::9:AA@933@:9:9:99:9 943 3øŒª 3¾3¾Ä½¾¾9]ƒ””“¾¾Ä¾¾iŽi†c,3¾c”]c-c¾¾“Ž¾½”¾”¾Ä¾”ƒ¾)ľ”c]”“Ž¾Ä¾“¾”½™rGqG:: 3:9 9@Aj:AjA3@jA„@kF:3 3: 39 @::@: :: 9 3 øŠª \”\ľ”¾ccƒŽ“”Ž”¾š¾”¾”Ž‡&c]]cc]“c”c“¾¾Ä”“¾”““¾“¾¾“”¾½”½”]””Ä”ƒ¾”¾¾qrAq::@3@AA9A@:3ƒ:9A:A@:@:@3:@ : 3„: ::9:3 9 3 ø‰ª3“]¾¾Äcƒ3c“”ˆ¾Ô“…c]2c3ccŽccŽÄƒ¾X”¾¾”¾”¾¾2¾Ä”“¾”¾b”¾¾Ä“¾¾“ÉH@::3 3 3 3 9:A@AA9@jAkAq@A@A::A:33 :@:9: 9 9 9 33øˆ«”š¾¾cc32]“”Ž“¾”ľľÄc”‡icc3cccc3cd¾¾cc¾¾“”½¾¾“¾”¾“Ž”¾“¾c]”“¾¾,”¾ÉrqGAq4:39A39:9::9:@2 :A@@::@A@::@:3 k9 :@::9: 3 3  ø‰«¾¾c2”½”¾¾“¾Ž“¾¾“¾¾c‰]ƒc dc]ccc¾c“”„¾””¾”ƒ¾”c¾”¾“”¾¾™23”¾™w 3GA93†:. :: 9A@@3 ::@::9::@9A@@A9 3Gk9 9:::9 :2:3øˆ«cc¾ÄŽ“¾”¾“¾”“¾¾Ä”c‰32]ccc]cc”d“”c¾¾”¾”ƒ¾ľ½š¾¾“Ž¾¾”¾”¾™“™ƒ2rr@::q 3::@A@9:9 93A@kAƒ:# jA9:93 k@k:@@3@ A:AA93 :3: :9 9 ø‡« cc”Ž“”Žƒ¾”„¾”¾ˆ]2c223Žc]cc”3“ƒ¾ ”“™™¾Ã™Ã¾Äƒ¾-iŸi¾½”½¾™ÉÉÃÙÃGq:: 99:9:9A::9A@@A@A@993„:9:9: :@::@jk: :: 9: :3 3ø‡«3¾“„” ¾”½”½¾”ľ2‰'c2]c]c]9c3cc]¾”¾”¾¾“¾™Ã™™Ã™É¾¾Ä”ÉÃÃÉ™ƒ¾F™ÉÃÉÉŸÃxr@k9 @A@:9@A@::@k@j::@AA9:@A@:9:@9AA9:3 9 39 3 933 ø†¬”Ž½”½ƒ¾ľ”“¾¾2Š cc323]2,2c¾“””½”¾¾™™Ãƒ™-ٟÔÄÉÊÉ™™ÃÉÉŸÉßÚÉÉrrxqr@3@@ @A:9:3Ak@:9A@„: @::9::9…: 9 9 :3@ :9:  39 ø†¬½”¾””¾“¾”“Ž”¾Œ cŽ23c]“””Žcƒ¾“Ž„™Ä™ÃÉßÃÉÃÉ“™ÃŸ™ÉÃÙğÃccwHqHq ˆ: 9:@A:9:@A@:ƒ@Aƒ@A@4@3A@@A@33393 3A9:3: 3 ø…­””…¾“”“‹ 3c]c3¾”cƒ¾!“c™8Ž“™™Ã™“™™ÃÙÙÃÃÉ9bcixx3brxr†xAqxrwr:@A@@:99:@:: 9A3::9@@:A@:AA@k:@ @3AjA@A93 399:3:99:9  ø„­Ž“ƒ¾š¾“””·‹]2]cc]”½¾Ä”¾¾ccÙ“™“ƒ™ÃÃɃ™„x!rxrxxrwrxrNqxqr 3rNq@r9:@AjA9:@:@‡:+@;@;::@Aj@::@Aj:@@Aj@A 93 94A@:33 : 3-ø„® ¾¾”¾½c¾“ŒƒcŽ“c ”“Ž“”32Ù“™˜Ã™ÃÉ™ƒqrq:99rwr9:rqrx@xrwxqxrqN:ƒ@:A3@A:@A@A9A@@A:@A@j@@k@A@:@A93@:@AAjA9 9:;2A:3: 3 øƒ­ “”“¾Ä¾cŽcŒw3]c]“cŽcc-¾”¾c2ÄÉ™“™“™ÃGAqGrGrGAxrrMrxArxrwHwrrxxHrxqNrqA@Aj3A@:AAjA@::Aj@@A9AA@A:@k:Aj 3 3:jA@A@@A33@:3 39 3 3 3øƒ­ ,Ž”¾”¾“”‹x3\3cc”¾cc¾“¾c3ÙÙ“™™rGqqxrqqrGxrxqxrqxxrxrqrNxrwxqNrwrq9@A::@:Aj@A@:@99:@;j::@j@A::@@A@3 @A:9:3@k:A2@ 99 3 33øƒ®“¾½¾dc‹!2c]cc”¾c¾”¾¾™Ã™É™™“˜rxqGrxxrGxq„xrNxrxwxxrwrxrxrxrxrGxƒ:9::FAAjAkA::4@A@@AAj:@ƒ: @:@k@@:A99:AA@@;@9:3 3@3 3 3 øƒ­ƒ””¾“‹ 3\3“c¾c¾“c¾”ƒ¾ ™ÃŸÃ™“™HqrrrƒxqrxrxrxxqxxrxrxxHxxwrxx 3qr@@ƒ:9@@k@k@AFk9A“h“@k@k@A:9:@:@k@A@@k@:A@@q:kA@AA:3 33øƒ®·”“”¾”‹L]c3””¾c¾]3”¾“ßÉÃÉÙ“qqAxxrwrxx:G@@rwrxrxrwrGqGqqHxqHqqrqxH@:9:Aj@:A@AjA:@b„i@A@k:@A 9:@AAjA@:@AAjA@ƒ:k@3 93: 3 3ø®”½””¾2Šy2c,c¾c”c“™É™ÃŸ32™@HqxqrMrxx AqAqxrMrwHwHqxxrxrqxrwxxHxqA@@A@A@A9i“@A@@:@c’i, jA:@:@3 @:3 @::@@k@A@A@943:: ::9 3 øƒ®“”¾¾2]‰y32]”c””¾¾ci“ŸÃ™rqAwA@qxxHxrqA@AqqAqHxrxrxrqxrrxqxrMrrHwr@r@:@A:@k: @““9A@A3i“b 39:9@A@3Aj:@Aj::@A@@k@:j:A@9 93 933@ 3 3ø®3¾“¾¾ cˆR2]3”“Ž¾c¾”¾¾“h“qrGqqr::xrxqrw:@Aj@@rqxrwrwr@rGxGxrGrrqwrrx@r@Aj@@:@::@:i“@A@9 @Aƒ:@:Aƒ@"AAjA:@k@kA@@:AG@AA9:3 9:::@3 3ø®23¾”¾2]‡y]322¾c¾”¾“”™““GqrG3Grx@ @::AA@qA@AqHxrxxr9Axq 933xMr 3rA@A:3@A@9::@@cbAk@Ak@A@@::@Aj:A:A@:9:AkA@AjAjAj:A :9:@9 3A ø®23¾”“]‡2”,””c¾¾“cÃiÃhx:@ xrGqxƒ:c9G@q:G:rGkqwHqxrrwrxrxrxxrxrxrxqrx3@k@A@@:A@A@A@c9@A@Aj@:::@A@A@:9A@A9A@A@k@AAjA@::9AkA3@:: 33 ø¯2”¾”2‡33cc¾¾c¾””Žh™™rw:xxrwAx:„@8A3:@@AqGqxrqHwrNrxxrwrxGxrwrwrxqH@3AAjA:k@AjAj:@k@k@::@„:&jAk@:3::9:@k@@AjAjA@9::@@kG3A3A9 3 3 ø¯Ž¾”c,†3c2cc”c¾“”™c“qrGxrqxr@q„: :A@@k@rqrƒxrwrxqxxHxrqxrxHxrGqx@@::Ak@Aƒ@A@k@ciƒ@ :9:@@::@A:@:9ƒ:@@:A9 3 @A9:A@ q A3333ø¯“”“cd†P\3]¾c¾Ž”ÃÙb@@rxrwHqx::G:G:@:q@@k:@r xrxrxGrxrxHwxrqxxHwxqxArqA:@:? 33@k:3AkA@@„cA@…:$k@ ::@@AA@jA@Aj@@A::9:9A393  9 3 ø¯Ž½”c3†Wc]9½c¾iÉ™“x:@rGqrxrq::@:@@3Gq:qH@AqxrxrxrwrxMrxr9@xrxqxG:@@x@A@3@:A@ @A@:@A9::chbc23A…@$A@A2::@AjAk@@AjGAj@:9:A::3 393 ø¯2]¾¾c2…Bc]c2cc¾cŽichrw:xrqG: G@:@:@:@k@Gkr@rxxqNqxGrwrrwrxrrNqxrGqkrrx :@ƒ:<@::jAA39A::hc“i]8 @Ak@A3@9:A9 kAGAk@A@A@49 @4A3:9:9:q93ø¯3”¾”¾3…]9ƒ];c¾ÉÉchrHxqxGq:@:q:A@@:q::Aq@rqrwrxqxrGrGxrxqAxqxrGxkxHwxr@ƒ:9ƒ::@ k@:@:9ci’i“b3@@A@k@4@@::@A@393 93:93 : 3@:: 9@:: 9ø°2¾“¾2…]2…c/™Ãih::@ArxG::@q:A@:AAqr@A@rMrxHxrNjAwrxq:@@xxrƒxrxrxrwrƒ@:@A@3:@Aƒ@3A“22ib3 :k@A@A@3 3:@k::A:@:@:3@::93 3AA ::9 ø°2Ž¾”3…32c]”c¾cÃo“r@r@@:9: 3:@::Gj3GkMr@@:Axrwrx9::@r@:@:xrƒxrxrwHqxxrx@:A9A@A3:Gƒ: A@@:c“bc8::@@j:3@:@ 9::9ApAA@3ƒ@:: :99A3Gk393: ø°”“”]\„“]cc”¾”]ibxr@qx@ƒ:q:@ƒ:3@A@rqA9:kxqxrMrxxrxrxxrNrxqNqxHxxqHwrx:@:@@j@@ j:bhƒ:1@bi“8c jAA@ @:@:::9@:@@:@A@;:@:@::GkkF @9 :3ø°¾“cc…]c]“ƒ¾uhcxqxrxA@:: q@:@@A3@kq@A9AGrxGx3xrwrwxrNqxqxrxrwrwqrxrxG :@: ::3iicc9:9i“ihch3A@k:33 ::9 A@:A@k@@A@3:9:9AG3AA3„:ø±”¾]c„=]”cc”¾™™ib@4xxrG:q::A@:Aq:G9:@:Akwx rxxGxrxHxwrxrxHwrxxrGxr„x@k@@kAj:Ahchic::chi’ci2cbAb:9:: :@A@AjAA@;j@A9:@@k9 :9 9:@ø±“”]c„ ”½c¾™Ãhc9ƒ@U9:9 :@G:3@:A@Aq:Gr@A@rrwxrxrxrxwrxxGrwrxrMqGrxrwr::@A:@@A@3 chchi@9cib9bib29b :9 :3@„:k@Aq@:@A@k@::A9@ :@9A3:@ø±,”¾c]ƒ¾¾”¾”“™ir:A@Aƒ: ƒ:!@::@:3G@AqqA@xqxrqxqGxqrxrHxqrxrwƒr)xqxrN@:@:@@3 3@:hc:9@Ahi“29“icbcb3 99 ƒ@:@@Ak@A@k3 @A9:9:@@,@4A@:Aø³“ccƒy2¾¾”¾“™“’x9@A:9: 9:9@@@:@@:@kGr@xrxGrNrxrxrMrwrqrxwHxxGxqHxqx:@A@AjA@:@:c @3cc3bibibchcb9h9239A :-@Aj @A@jA@A@k@::::9:: 9Aq@9ø²,”¾]ƒ"”]c¾”Ù::@A9:qrr::@:k@A:@@Axrƒx]rwrGqxrxrxGrwNrxrGrqxr99:Aj@A@AkAA@9cbih89b3c2ihc2ii\:9A@:@AjA@k@@AAk@A@@A@@:@:9:9A:: :ø²“Žccƒ2]9c9]2c”””23]c]c3c””A3AjGkG3::Gk@@:@A@A@A3Gk kAkGA@k@k@Aø–À”]2¤>cc,cŽc2c¸”23cc3\32Ž“c@AA@kG @:@qAAkGk@k@@3G3:@GjAq::@@::ø–Àcc3¥33c”ƒc4c3””¾”2]3¾”¾2ŽŽqAqAq :jAAqGjGk@@:@::@AkGkGApA:@:ø–Á2Ž“3¥3…c6]d\3\”233cc“2cGk@A3GA@@kGAkG@A:@@A@:@@G:@kAq:@: ø•Á,d22¦]c]c,„c4]9]”c”””cc”qGkGj:@k@@3AqAjA@A@:@@AkAj@AGk@:99 ø”ÁcŽ2¦=c]Ž“”“d”cŽ“”¾”@:@AA9GA@39AG@@;jA:@k@@AA@jA::@9ø”Á”c3¦>3d2c“cŽ””Ž“3“Ž“]”””½”cA:@@kA:jA9:@:k@@A9::@kAjAqAk@A:@:3ø“Ác”“¦@23c2ŽŽ“c””“cŽ2”cc””Ž”A3@A@q@A@A:9::@Aj:@AApAqAqAGj:@::9:@ø‘”¾]]¤,c]cŽ“””””Ž„c+]“¾“Ž“¾ @kAk@A@k :@:39A:jGA@AqApAA::@::A ø‘Â,”“3¥:3c3dd””j]cŽ“ŽŽ“¾”“33ApGAj @:AAq: 9:@A9AkAq@@::Fqƒ@A9ø’“3]¦$ccd2”c“3“Ž“d“Ž”“Žc”·”:AFAkA@:kƒ@AA:A@@kFkA@A:Aj:AqA@:3ø‘ÂcŽ3\§Žƒc3“Žƒc2””“””cc””@@kAF39:@@:@qkGjAj@AAqApAkFkA@AAq9 ø’“33§<2c]ccŽ“Žc,3”Ž“Ž3“Ž”“k@Ak9 @3A@kA@Ak@@AAj9AGkAGk@G@k@3 ø“ÃŽ“2§.23ccc]3“”c33“ŽiŽ“]c“Ž“ŽAq@A9:@::3A@:9AAkGk@ƒ: GjAqAqA@A9Aø“ÃŽ32¦c,ƒc83cŽ\i ”“”ŽccŽ“Ž“kAq::@:G: @:@:@:@:qAq:A@kGAq@kG@3A:ø’Ã,“”]¦3c]”]c]2 dc,”””ƒc ”AqA@:@AqA2:@„:@GA@AGjGAjA@AkAk @:ø’ÃŽ23¦;cdc]2cc33\cdc3,””Žc]“@@:A@qA 9@:@@:@Aj 3@kAkFAk@q@G93ø”Ãc”23¦;cc]c9c]cc3”“32””“c”Ž“AAkFk@k :AA:A3@qA3AF@qAqA@A@:@Aø”Ä3\¦$]ccŽ“]c]cc]cŽ”“Ž”ŽiŽcŽGkGA@A@::ƒqAj:@A@@k@AAqAq@k@kA@ø”Ä”3¦;c3c3cŽc2]c”“Ž”““Ž“Žc@k@9::@:9AGkAA @k@A:@k@AjAA@:AjAø”Å32¥:cc2c“32”””“Ž“ŽŽ“jcc@Ak@:@AjAGj @:@k@3AqAqAFkA@@Gø•ÄŽ23¥83“]33]”Žc33””””“”Ž“Žcc”AjAk3Ak@GqA jAkG@A3G@k@AkGj ø—Ä3\¤123”c3“”3”””Ž“Ž“Ž“cŽ”A@:@AkGkG@A@kGj 3„9:ø™Å“33¤d]23“]“3c]c“”””“Ž“Žd“Žc“ƒ :G@k@@q@k@k 3ø¢Åc32¤c93c]c3]cŽ“Ž“””3“”“Ž“”Ž… :A@A@AkFø¤ÅŽ2¥cd3c]ƒc3“ŽiŽ”“Ž“Ž23”Ž]“†9::@k@ø¦Æ“33¤2Ž3“Ž“]ccŽc“Ž”cŽ“”“c]†„:ø¨ÅŽ2¥c]cc“ccŽc“Ž“ccŽccŽccŽ””†9 9ø©Æc32£c]92Žc]Žƒc]c]3ccc””“cŽ”‡ øªÆ33¢23]c]92“c]3“Žcj]3”ƒcŽ”“Ž“ø²Æc23¢2]cc]c]3c]“3”2dc3“Ž”“Ž”“d“ø²ÆŽ2¢cc]2c”]cŽc23“””c”“Ž]8ŽdŽø²Ç32Ÿ,3…cŽccc,Ž”“Ž“ccŽ“Ž“Žc“ccø²Æc“3]]ž 2”3cŽ3ƒc3”“”””cc]3“”“dc”ccø±Ç32Ÿ"3c3ccc93cŽ“Ž“Ž”]””””Žø±Çc33 !c]d3]3c,Ž“d””c3“Ž“Ž“”””¾“ø±Ç3\¡‡c]3“Ž“c]iŽc”cŽ””Ž“”Ž“”“Žø±È“3¢c]c]]c2cc3”c”“””“Ž“¾Ž“¸”ø±È3¤,9cŽj]“””3”“Ž“Ž¾“Ž“”Ž“”“”ø±Èc3¤””“Ž“Ž””“Ž”“”cŽ“¸“¾¾Ž“ø±È3«“Ž“ŽcŽc]c””cŽ“””¾ø±Èc2¯”cc“Ž“Ž“Ž”“Ž”¾ccø±É3±Ž“”Ž“””“Ž“Ž“ø±É2cøñÉc3øñÉc\øñÉc33øðÉc2‹23…cøÜÊ,cccŽ“øÚÊ33øïÌc]™øÔøøÄøøÄô,øÇøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄ ¥Ø-# ¤PÉ# ¤P2# §P /$ §\R Ë$ §\R -$ ùgÉ$ ùg2$ üg /% üsR~Ë% üsR~-% NñÉ% Nñ2% Qñ /& QýPÛË& QýPÛ-& ¢ØUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/#-#øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄÒc”¾¾øâÆc¾”¾½”“cc„¾cc˜””cc¾“¾”cƒø¸´ 2”“¾¾”½Ž“†”¾¾Ä¾”“¾]cŽ¾Ä¾Ä¾“c–ƒc ”2,3“¾cc¾¾2…ø¸´]¾¾”¾¾“Ž“”32Ž“”“”¾¾š¾“”¾cc¾Äƒ¾“””•c””¾¾ƒ”…”¾„”ø¸µ ”½¾“¾2cƒ¾”½”…¾”¾“””c„¾š¾““¾¾Ž“”„¾“¾]”“”¾“””,3ccøµµƒ¾33c¾¾Ä¾”¾”½¾Ä¾Ä“Ž¾]c¾¾Ä¾“¾”“cƒc””¾½š¾”“Ž¾“¾”¾“”¾“”ø¶µ!”¾Ä2c]¾¾Ä¾¾½”½””¾¾“”½”]c]ľ”“¾” c“]cd”½”„¾iŽ“3c]3]3]]3]323bøµµ½¾2Ž“¾Ä¾¾”¾š¾””¾ƒc ]“¾¾”Ä””#2¾¾Ä”Ž”½”¾”¾9”¾¾“”““¾¾½i”“22ø°·3ƒ¾š¾Ä„¾½”ccƒ Ž“d¾Ä¾Ä¾“Ž“‘(]3¾¾Ä¾¾“¾Ž“”¾”¾¾”¾”Ž”¾”¾¾”i  ,ø®¶c¾š¾Äƒ¾““”“Ž… cŽ“¾”¾¾”Ž’3“3“””“3”c]¾½”‡c]¾¾c@j 33 2,ø­¶“ƒ¾”¾Ä¾”Ž“Ž“”ƒ”¾¾Ä¾“¾““””3]“Ž“Ž“cc33c”“cƒ¾ƒ“¾”¾b:  -2 ø®µ”¾¾Äƒ¾“”””·””·¾Ä¾”¾“””2”½”„¾ ”“Ž”Ž½”“””cƒ¾””¾¾Ä”“ 3 3 3 3 2ø­µ ”¾c¾”½Äccƒ“”¾””„¾ľ¾“Ž’ c””¾¾“”“Š¾“Ž¾¾Ä2”¾“””“A33 9 3 3 3 ø¨µ“¾c¾¾Äcƒcc”ƒ¾ ľĔľ“cŽ:,“cc¾”¾”¾“¾¾c”“¾¾“¾”¾¾“”33½c¾¾“¾Ž“”“: 2  3 3 3  ø¥µ”“c¾¾c„c¾”¾“‡¾c””Ž!””c32”½”½¾¾”¾¾“¸”“¾”ľ“Ž“”“d¾¾”ƒ¾”““3 3499:4993:39933ø¢µ ·”¾¾cd”Ž”ƒ¾”¾”¾¾Ä¾Äƒc2ƒ]=cŽ”¾¾]”¾¾“¾””½””½¾“Ž“Ž“”¾Ä“”¾Ä¾”q9::93 3934 3 3  øžµ ””¾c½”½”ƒ¾ ½”½”¾¾š]cŒI,”c½Ž”“c“¾cc“¾“¾”¾“Ž””“c¾“Ž”“¾¾™i]c™r9 3 3 3:9 9 339 9 3 93  øœ´3””“”””¾¾”ƒ¾”¾Ã¾c2¾¾c”“”¾3cŽc¾”¾”¾“ƒ¾(”¾“¸”Ž™”””¾8iŒicc™q@A3@93 3:3:93 ƒ: 9::9:9 ø™µ¾]”¾¾”“¾Ä¾Ä¾”½¾¾32c]9]cc“Ž“Ž¾¾““™“ƒ™72¾”¾“”98c”½Ž¾ÄcÉÉ™“™qA@rq 33 94 9 ::9: 33 39 33 ø˜µ“¾“Ž½”…¾“”“¾”2]2cc]c]cŽ””¾™¾¾i’™Ãƒ™7ɾ”¾™Ã“™™”¾Ä“ÉÃÉÉ™™k@A9 3 3 9:333 3: 9:9 333 9 9ø—µ”¾”“¾”¾¾Ä¾¾”¾”¾¾]3ƒc]c]ƒc ¾¾”¾cŽih߃“™“™™ÉÃÉÉi“’“ÉÉÄ™(“ÉÉqA9@A93 3:: 39:994 33 : 3::ø•¶“Ž“”½ƒ¾Ä“”“Ž]2]2ccŽc]c]cc¾½”i“’““™“i™h„™ “ÉÉch“™““É„™Ù“2GqGk:3Gk@@qA9„:9 3:: 3 33 3ƒ 3 3ø“· “Ž¾¾”ľ“”” 2”2ccc¾c„c™ih“i™i™“hÙ™“x™ÃqGA„x2GqqrxrxxkGkqG: :9 @::33:9::3 93 93339 93 9 ø‘·]ƒ¾ľ“Ž¾”22c3¾c…¾icƒ™“2ƒ™G’™™Ã™™qxrwrxrqqrxrxrxqxxrxxrxq:3 9: ,: :3: 9 99:3 :993 93 93 : :99ø·¾”ă¾“Ž“Ž33Ž3„¾?Ä”¾¾c-™Ã™““™“™™:A@AqrqqHqqHxrqHqGqrGA@xqGqGrqGq::A@3 @@ 3 ƒ:943:99: :9 9: : ø¸¾½¾š¾”ŽD23c22c¾¾““32ÃÉ“h™“™˜k@@kAjGqAxxqGqqGAxxqGqG:xrxqHqrGk 9: 9A:9:@Aƒ:9 3:9 393 9 3 39 3 øŽ¸¾šƒ¾“ŽŽ 2]]3Ž”2cƒ¾3c™Éc2™“’xrArqGqHqxrxxqHqr„xqHqƒxrxqGrqG3:9 39 9„@ 3 3 @::93:93 :3 9 : 3 9 ø·“”½¾”¾“2Œ2329c¾c3¾¾”ľ™“ƒ™=“™xrGqxxrGqrxxrxrqGxrxrxrqxrxrxxrx@r 9@:9AAq@AqAk::9:9::9@ƒ: 93 9 3 ::9 ,9 øŒ·Ž“”„¾ ŒC32]cc]¾”¾¾Ä¾¾É“™É““hrGqGrxrwrxrwHxqNrxrxqxrxxArxqxrxrxrx: ::9A@ƒ3 9ƒ:::3 :9: 39 339 3:ƒ 3 ø‹·“¾Ž“”¾Ä,‹ 2]ccŽc”““”i„™FÉÃÉ“iqGArxqrNrx@:qAqqrwrGqGxqrwrGGAxqxqxG939::@::@:9 93 249 …: 93 : 939 3ø‹·Ž“¾¾“¾cŒg2cŽ“””¾i’™Ã™Ã@qG@qkxwrxqx9@@:qAGrxHxqGqAxxH@qqkGrxN:q9@A:@@Aq@kGkA9AkG:: 3:99 93: 93 9:3: 9ø‹·,c¾¾”2Š 23,dc”c¸½””“™“:xqGAq:@AxxrxHx:@ƒ:H@kxxrwrx4GkGAqAqGAqGqkGr9;@:@:@@A@AG:99A9:: 9 949::9: :9 399 9 ø‰·¾¾Ä¾ccŠl,¾”cci¾”¾Ã™“GxrxqrAAkxqGqGq::@AG:@rrxqxrxGqGrxrxxqrxrxrxqG::@:A:@:A@:@:@A:@:: 93 3 9: @ :: : 3 9: 3 3øˆ·,”ƒ¾cŽŠc”c¾“cÉ™hiqAq@AGkq@ „:>@:@k@@rGqxHxwrGqqrxwr@GqrwrxqGq kAA9AjA2A,AkAj@AkFA9:: 9 9:Aƒ39:39 9 93 3øˆ¸”ľ2cˆo232”d¾”cÉÙ“rG9 qAqG 39::9A@@A@:rqxxrwrx@rGqGrxAqrGqGrx@rG3A@:9:@A@q@G@:@Ak9:949: 39:39:934 : 9:3 ø‡·””½”“]3‡3233”“””iicwr:„xAqr::„@:k@qrGxrxrxqƒrqrqrGqHqGqHr3993::@ƒ:(@: :kAk3@: 3 9 94 ::GkA::39 q: 3 ø†·”””3‡¾cc¾cc¾”Óh“rƒxqqrqGrq9:@9:A:q@@:GAqxrwHqƒxrwN…x rxrxrxxqAƒ:0::A@q:@k@9A9A@A:@:@@3G:q:G9::3: : :33 ø…·“¾“Ž“3‡s32¾cc¾”cÃÉ“bA9rGqHqHq@@ A:9:AGq:A:AqkGqxrxrxrwNrxrwrxGxqxrxr@q@:9::?: @ 3@A@@:@A@:@: 3 :9::::9 9:39:9 9 ø…·Ž“¸“Ž2…J,3c2”c”c“Éi“x9xrq:3::3:@:@Aj q@A@AqGrxrxwHxxrxrxxrxGrxrwrx@Aq:@:39:: 3ƒ:::@@„: :jA@:93 A@k@:: A@3 :9: 93 -ø„¸c¾¾“-…Cc\3]”cc¾™ibixrrxqH93:@@:@:9k::@k@xrxrwHxrwrxrxwr:xxrxx3:GxAAƒ:09:@Ak@@39Ak:9:9AAjA:::kA:: A3:: :3:: 3ø„·,¾Ä”¾2…[23c]c”d“hcqGqrrqGq33G::@ :q:GG@@3rwrxxrwxGrxwrxxqGqrxqGAxqrx::@:: A@k@@9: ::@:99 Aƒ@:9: 233 9:9 9::ƒ ø„¸ƒ¾„v2]c3c“ccÉicx9:GqGrq 9 3kA@:@q:@k@;3GxrNqxxrqrGxrxH9rrGxr@rxrxxr:9:9:@AjA@AAjAA@k:@A@A::@9:Ak:9 99:39:9AA@::3 @33ø…·,¾¾2„93]3\”Ž¾cŽb“xr9rGk9::3@@:@:@k@:GGq 3xrxqxrxAGqrqxr@rxxr„xqxrxwƒ: A@A::@Aj@:AjAƒ:#@k:9:@:@::9: :3939kG:9:3:: 39 øƒ¸””ƒcƒ+2c3c“¾¾c“ihx9rxAq9:9:r@@@::A3 q:Arqrxwrxƒ 39rx xqxxrwxrwrxHxwrx::@:ƒ@ :@@::3 9::@ƒ: @:@@:9:9 ::93 9A:9::3 : øƒ¸¾cdƒc]9cŽƒ¾$h“rrxHxqA9:9 @:@A::@krx@A3qGqxrxrxw„x!rxxrxGxrxrNrqqrxNr9@:9::@A9::@A9Aƒ@A@A„@3Ak@Aj :3 ::A@ @A 3: :3:3øƒ¸”“cƒ]c¾]c“¾™ÉiiwrFrwA9 ƒ: G::@@:GkGrq@3AxrxHwrxrxrxrwxrNqƒxArwxxGrxqxx@:A::@:@:9:@A@@A@k@k@::@A@3k@AA9499 9kj 3:9: 3 3ø¸”cŽƒy3]”¾c¾“”Ù“hAkGk::9:9:@k@:@:9A@rwA :kGqrwxrMrxxrwxHxxrxxrxxrxqxxrxrx@A@:@:@::A@@jAd@A@A:@:@:33@:A@k@A9:9A393 33 3: 93 øºy¾]3¾¾Ã]”¾”½™Ãi:@qAG9:4::@G: ::3:A::@qAAwrxrxrxxrwxrxxrqxxrxqNAGrxrx 3A@A::@k@A:AA@A@:k@k:@:Ak9@k@AjA9: :: @A493: 9 ø¹ƒ¾c“¾¾Ä¾¾“”™É2@3GkG:9: Gƒ:#@:@A@Gq@GqA@xrxqNrwrqHxrxrxwHqxxrxxƒq=xxw::@A@j@:@A@@j@k@:k@@A@:@Aj393:kA@@:@:93k ::333 øº”½9”c¾3ľ”·™Ã:3GkA9ƒ:G:@::9AqAk9A@q@rƒxTrxxrGqxqxNwrrqxrMxrqHqrHx@:Ak@:@:A:9:AA@:@A@A@:@AjA ::@::FkA@AAj:@ 33::939 3ø¹”c]2]cc¾\¾””Ã:@3@Gk:@:ƒ@':@Aq:G@A@:rrxxrxwrxGkHqHqrxqNxrxr9GrqHƒ::@A@AjAAj::9:@kA@k@k:@::9:Aj::@@:A@A@@A9@@:9:: 33 9ø¹“Žc”]c”cc“”Ã2:r@AqA9q„:>@:@:@@:@rjAqxrxwrx:@@qq99 :9xrxx 3:9A@::@:@@k@A@k@:@@ii3@AjAA9ƒ:$@ AjAF:Ak@AjA@k:@9:4: 3:3 9 3ø¹4”c32c]c3c¾ÃÉ@r@@rA3G:G@@:@:@:Aj:@qHqxrNrxAqAG3 ƒ: GAxrx99:„@:Aƒ@#AjAA@:9ichcA@A9:@@3jA@A@3:9A@A@k@ƒ:3 99…: @@39A9 ø¹y”c¾]”2]ccÉ,3:qG3 9 q:q::@:A@j:@AqHqxrwxr@Gk:9 ::3GkGx@:9:A::@k@jA:i:“@q@A:ib“i2:k@::@ 3A:Aj::9A@k@@:@@AA@: 943@: 3AA9 9493øº”½”¾“c]¾¾iiq:G3 :9::@rƒ@::@:A@qGrxrxxrx@Aƒ@ : 9:9:@:9ƒ:@:@AA@A93:@i:@A@“ib: ƒ:*@@A3@A@k@A@:A@A@k:@:kApA93:9 :@A@:9 4øº””¾¾2Ž3¾“¾bi:qr @3H:@ƒ:q:@@:@A@rkxqxr :9„:9 3…:„@:@:@:ƒ:'9499c@k@@ @A@:@@:@:@Aj:AFkA9Aj@AA@@AGjƒA:9AAG3A93:3øºU,¾“]”c“¾”Éib@: 9:q ::G:A:kq@A3xGxrx 9 ::@::@@3 9@:@@;@A@A@@kAj@::A@::@@AjAjAj@ƒ:)@@A@A@9A@@:9AAj@Ak@kA@j:9Ak@k 3:3: 9øº“c]cc3cc”c™i“ƒ@1: qr 3q@:@k@Gqr:qxrGxw :3@::9A 3 ::@@:@kA@:@-A@ƒA:@kAA@ƒ:3@A@A@@::9A@AjA@@::@::A@qA@kAG@kG:9A@: :::9: 9 øºFŽcc¾c2¾”™™biq;@:qGq 9@:A@qqrrxqHxr3 9 :@93A::9:@AkA@AjAk@:@3Aj@9ƒ@:„@“AjA::@ 9::AjA@39ƒ: 9::9::@@:@@ƒ:@:3@:@93: @:3 øº“cccƒ¾#”““™Ã™r@@:q:r 9:3@@rAxGxqqxx 3 3 2ƒ: 9::Ak@:ƒ@"A@A@:@:@9 3:A@3AA@::b 9A:9: @@:Aj„:!9::@AA9@:AkA:@99: 3@:9: 9::933øº?cc33”¾¾“Ž™“i@q@;qqrq@: @;wGkxrxGrw 9 9 :@ 3: 3@A:Ak:k@k@k@„:AjA@kA@3@k::i9\83@k 399Aƒ "99:A@qA:GjGjA:@3: 3::9:33:@: :3 øº=ŽcŽ2¾c]”““™’Arq9 :qrMrx@AjrrxAq@qrx3 3:3@3:@3@:@:@@:: ƒ:2@:9:9 @@k k::h“83h9@@AA@9::9:: 9A@A@9:  3 9ƒ ::G : ::9 øº“cƒ¾c23””b™“@A::kHwƒr0@AxqGxrxxrxr@3:@A:99:A:2@A:@:A@:9::@9AA: 9ƒ:@::hi““833A@k@AA3ƒ: :@@:9:A9ƒ:3ƒ:9:3@ Gk G3:9 :33ø»)c]”cc]c]“™™“@@:9AqrqxGx@@rqrxqxrN ::3 :3ƒ:3ƒ:O jA @k@:@k@GA::A@Aj AA@:@cbibib :@@Aj:@ 9 9:@:9:@kA@::@:::@k9G3@9@39 ø»;c2¾]2]“Ž™Ã™A@3:G:q@ 3rxrrMrxrwr ::@9 ::9:9 9: 3 @:@:@@:@ƒ:9::„@3@@::@A:2i“cb339 :A::9@A9::9ƒ: „@A:@::kA9::3A :9 :Aø»f””]”c”i™™jA3:::rwrxrxxqrxAxrk@: 3GG 9 3::@:::@::@3@:A:@::A:3 @:h“@99ch™82:kAk@99::@@ ::@:ƒ@„:j:@: @A@::99 3:@ø»Jc”\c¾2¾Äc“™™r:9:qr@rx@qxqrx Fr@ @A39 kkA33:@9:A:9:@::@AA:@jA:@@qA93cbiiƒ:2c“ic293A@A3 @ 9: 3A::@:GkA@A:@@::@:-@9A Aq A:ø»33¾”ƒ¾ƒ“"xwx :rqH@rqNrxHxqxrr@@k:G:3@G:9: ƒ:kFƒ:@:@kGk9@@:@@:@:“i“b“:9ƒ2i“b93Gj3 :@@3:99:AAjGkAj3::@„:@ƒ:33 kA39:ø¼y2]“¾¾Ä”i™@r3qHwq@r@rwrwrxrq@A@9:3: 9:9::9:@9AA9::@@A@k@A:@@:kA:@3ibii9::i22ibb8c 9 :9:@@AA@A@A9 k@A9@A:F:A9G 9:ø¼E¾3¾c23¾8™q@49Gr:@G@:x:@x@rMrxx3::9: 9:: :9A::3A9:9@:AjAAGkG:A@Aq@:@„:5 9 cicbci,8c23A9 AGk@A:jGjAjA@A@AjA:q:k:G::2GAø¼/”½”c]3cc™™k@ : qxrq: @Ar@Aqqxrx9 :G 9439: @@3„:+@AkA@@:k@AjAk@AA9:ihibciibbi8b2923b38:@@49ƒ@3:@AAkGAq@kAjA@AAGGAj::@Aqø»y2]3¾3b2c3Ùq;9 3@rqA@3@@qr@rGrwrr: :3: 3 3A@3A 9 :@@A@@kAj@@AkG:@@k@:@cb9i3b9b3943:i3b @:: 9A@A3:Aq@AjG@kA@A@AqkAqG:9@Akø»O”cc2]¾3¾c“™q@ 9 :xHr@rqGrxxrGrx3@ @A3A@ 2:3 @@:@kA@GAA9:@k@ k@@:@:@-@k:8cbƒ9-49922: 2: :@:kA GjAq@AkG@k@k@2q9q9A:A kFø»C2]cc¾2¾¾cibq:9 3@9rrAxGqrxrwxG@3: 3G:3::933 ::@:Ak@A@@Aj::@ @@Gk…:@:@:ƒ2 3i92222:@9ƒ: Gkq3Aq@Ak@AqAFk@A33@@:@::@93:ø¼&]”¾”2¾”cci:@ 9 @3r q@rqGrxGxrA@ :3 2@„:U@9:: :@:@AjA@::@::3::@::@9:h:@ @cii2bi22323832::9:9A@@AkG@qA@kA@@::A@A@::@::@::ø¼2¾2„¾Ic’c@:: 3rrA@rqGrxrxr@@-9:3A@@::@::@:@@:@A@:@@::@:@:@@::@:@@:3@k@i“8]8ƒ“ i“3b9229@ :9:A@k@@Ak@k@ApA:k9::ƒ@:@A::@@ø¼<”¾¾3¾š¾cibq@3 3x9@:@r@rqr@rwx@A:93 3G A@:@A@kA@@k@kAk 3 @„:9@…:::8cƒ2cbib@“ci\232A@ƒAjA@A@@AAG@AA@@4@:A::@kG:@:A@ø¼5½3¾“]2¾c2™A@3 9:@:qqAqG@@xrA@@:9:@9@Ak23A:@A@::@3AAƒ@FAj@A@A:9AA:9chcchcb2ic2cbccbc8b@3@qAAk@k:q@kk@@:::G@::Aq:3@@;ø¼"3½3“]c2™“q:3 :G9qH@rr@A@Ak@::A@ƒ:Bq: 3Gk@kA3Ak q@kAk@Ak@@k@A@kG9cch:b:A98ic™“hch8c232 :Aq@A:9:„@:@ƒ: qAk:9:A9;@:ø¼%“c]”32c¾™™G:39:qrrq@qGr9rq@3:@@A@:Aƒ@=9A@3AAp @G3 kG@Aq@AkA@:k@@:h :q9@Ak8““™““iccb22,233 jAk@Gƒ:@A@kA@:@@kApAG:@:@@jƒ:ø¼y-c]c¾3”¾2“q:9 3G:r@ArGrrxGrx A3: 39 k@; kA @k9:AjA3FAk@A@AFk@A::@A9:2:29“@@Aj“™’™“’cic83A@@AAFkA@G:@:kG@k@:AGkGj :@A:9A:ø»n]c23½”½¾”bi:@ 3:3GxA@rqqxqqxr 9@:q::9G:3 9@:@@::@A@Ak@AqA@jA@Aj9:@:A c2bc:Abi“c™i™“cih2@A@A@A@@jA@qkAq:qAk@ƒ: @@:A@A3@:k4Gøƒ»4c3¾c”¾”¾¾ib@Ak Ar@::xGqHxGrw 3 qA@: qA3:@::@:@AjAƒ@#k@k@@AjA@::@ 33c8“8cchii“hii3AA9ƒ:"@Aj::AkAAFkAA@A@:@@:q:9@k9:@:GkkGø¼E½”]2¾¾“¾hc@:9 939:@@:@qHqrqrx 9 qA@:9A@k :9::A@:9A@@:@:AF;@k@:@@: k@Aƒ: @:8i,†2)cc@jA@:::@@A@qAkGjAjGk:@@3:: :9 :@@:3Gøƒ¼”ƒ¾]92¾”2cq@:3:rr:9q:qq@@Gxr3 3@A@:@3 9::::@@A9@:k@3 3@39 :9::kG@@:93@22c292ccbc2A@kAk k:kG„@:ƒ@:@:9A3@9:9 ,::k::39ø½C2¾”c3¾™q:A3 9xqH:G:G;@:@A @9Aq:9Aq::@@ 39::@::@::A::@: :493A@Aƒ:83“9\“ih“i8c2cAGqAq9:@AjAk 3 3 3:9:@:@:: A:@:@@: 9:3ø½632¾c¾2,2™q@::3 :Gx9r9rq@@:Aj@3 :AG3GAG9@A9 Gk@3@A@:ApAƒ@k@@3@@@:@@9: qA9„“/i’icc232kGAGAAAk:Aq::@::@:@::@@ jG9AG@39@ ø¾&2c”\c”2™@:9 3qrqq:GArrqrx 3:9Aj:3Gj4ƒ:3 AA@:@:A@A@k@A@:ƒA(@:@k:@93Ak98™“h““™“9,2 jqkGk:@@:Fk@Gƒ:@:@;::@kAA:k3:A ø¾93]¾3¾”cciq@ 9 :Gr9r:x@xrGxr9::9@3AA@@3@:9@k@ :@:jA@A@Aj…:@k9::9AApAA9“ƒ™ i@“c82 GAƒ@:: 3…:9@:@:9::q@@A9:F:@9493 9÷¾,¾“ƒ¾cbc:@339r9N9r@rwAxq3ƒ: @::@@Ak :@ƒ:Aj::9A@k9:: 9 @:@A@„A@jAAƒ@cbi“9Gb3c93G::k:@:3:@::@@9:3ƒ:@@A@@jA9:A@kA9 ÷¿?”¾8¾”cih:33 :q ::9r@rxqrx33@::9;jA@@::@:@:A@:@@A:A@@3 939@k@ƒq:GkF:32chch::c22 Ak:@:@:@: ƒ@ƒ:@AAGA@A@:@AkAA :9Gk: 9ø¿“]¾”¾c“b:G9 3 r@ƒ:@:@:Grw ƒ:@: ƒ@Aƒ@/:  - 2 3 3 3::@A@AA@3:@3 3292cibi“2 qA@ƒ:$@@Aj :k@:93AqkG@:3@@AjGk@k9: qA3 3÷¿Y”]9]½c™2@kAq9Aq@rM::A@9@A3@A@ 9:@::@;9:3@:jA:@A-kG@A:@@A@k@k@AA22 9 29228\::@:G:@9ƒ:A3: 9 „:9 ::@:3::9AkGA9:@A@Aø¿>2”\c]““3qAqA9 r94wrr9@r:@:A@:k@3 3 3 3::9GqA@k@:qAA::q:@@;@Aƒ@<:@kG 3 :99:94:3 k@: 9:9 9: :@:9@A@AjA@@A@::9AjG:@AqkG3øÀ+3c33™2G@A@3@: rqNr@rxrx9 99:9 3:9:9:AA@ƒqO@:AqqG@@Ak:@@qkAk@AkGj  kA A A3:3::9:99::99:3 A@kGkGk@::@@::kG:@A:G@9 ÷À\¾]¾ci23Aqq@: qGxqr@rwrqr A„:[AA@4@::94 4GkA@AjA:@::@AA@A@A@kAAk3@@:@::p:@:9 :3 3 3 3@4:@@AjA@kG@:@::3 3 3 3:@:@:3øÀy”¾“Äc“iqxrH@:Aqrq:w@rNrxx 9 :@@kG:jA:@:@Aq@@A@@3@:qA@@qAj@@kAj:Gq@G ::9qAAq@ 33@ @3@::9::A@: 3A@  393:9:3 :@kGk øÀ(2¾¾”¾c“ixqxq@: GqH:r@rq@xq 3@@AAqAk @:9Gƒ@.qGkAkGkG:@kA@kGAA:@@A@@kGkG2@A@A@@Ak@ 3 94 9:†:@@::Gk@kGk: :@:Aj k@: 2øÁS“3¾¾cihc qx:93 q:@@rxArx 3A@@kGkGk@9Aqkr:AkGqGqGqGAkGqqAq@@3::@A@k@AkGkqkqA@AkGk ƒ:" @: @:FA: kFkGkG@A@ @:3@AGkGA@ 3:øƒÁy”¾2¾i“br r@ 9qr::@:@@xAq @k:@33G:AqGqG@@AqAqAqA::GkAAqAqA39::@:Gk@@AqAGAqA@:A99:@@A@:qA@:9 dkGkGA@@Aqk@@:@kGj@k: @:øÁ2¾33ƒc9hc9A3 q3:qHq4@qq9:@A@ @A@@kGkHkA@3AqGqAq@:q@@j@qGkG9 @ƒ:@A@k@:GqkG2:q@::@:AjAƒ@3 3ƒ kAG:@:j:k 9 q:AqA@Aq„@øÁ>23½3]c“bc3@ 3 : qqrq@:rN3@Aqkq@kA9AqGqkG3GqAqGAjAA@: kGkGkAƒ@<9::kA@A@:AFk Gk@AAq@A@AdA99 :9:@:@jA@@:Gq::AGkGA3GAkAkAq::öÁyŽ”b39c9b3@ 93 3AAqrq@@::AqGqAq@AqA9AqGq kGqAk@AqqA@3GkGkGqq;@@:9@Gk@@:qA@3AG:@ApA@@:q@3AG4::@kG@qr:@kA 9qA@@jq@k@:q@A@9:ôÁ23¾23]cÃ239:3 @:A wrN@:Hƒ: GkAAqAA@k ƒ:Aq@GkGqGqk Aqk AqAGkAAqA„:+AqAk@:9:@@k@:qA:@;qAq9:@:qGqq;q:GjAGk@ƒA @A9@:q :ó cc,”2323“8 9 @9rqr@r:q9:9::@q@ƒ: 2:@@A@;:@AkqAG3qG3Aq@kFkG@kƒ@;:@AqA@@AqAq@A ::qGqGkq:AqGkGkGAk@@:9:@Aq@Aq93A@k@:9A@qG39ôÂy”3¾3c2“82q k33A@@rxrx@ 9qGk:9A@@:A:9::@k@@Gq3 G::qGA@: :@: :@@k@qGjA@kGAk33:GkGkqGAqGkAqGkA@:@@A@AkA@k:3@G: 3@H::9A3óÂy2”9½d¾33c8A3G3 :3@q3GAwr@r9GqGqk@:@A3:@A@A@A:3@@:@:A@::3Gq::@::k@AAqAAqAq:AGq qGqkGAqGkGq @:qA@3 ::@k qqAAG Ak 3@39:3 9óÃB32Ž¾8]8c2 q 9 3 rG:qrG@rx 9rA:9A@Ak@A93q3qA@A9::q: :qAkG@:@@:Gƒ@kGqAqA@qkA kGkGqA…:"q9:AqGkGq:@ q@:93:@q @@3 Aq AóÃ023\9”¾]c2b™ k3 9 9:rqqGr9r:9A@::Gk@3:@@AqAjƒ Jk:3GkG@kAj@:@kAj:AqAqAj@AGk@kkGq @:@q@@ A::@:qAqGq:k:99: : -qkHq q: ôÄ]339]c8c“ 39 3::A@@3rGqrrNq9 ƒ:.qGq@ @:A:GkG@33:93GqGqqAGAk::@GA3GkG@kGkGkGkƒ:' :@:qAq 3qG::@AqAkG:9A: 2 :@A:G949 :öÄ/c]c”]8ccbbA3:::kAqGr:xqxrr3GqAqAq ::@:@@kAƒ@ A:qAq k@k@ @kG3GqAqAqAqG9G@:ƒ@%:qGqGk qqG:9GAq:3:q: 3A:@:@q:39 :9ö¾c…c]c¾”“Ž“3ibr@:9ƒ:YG qGqAA@AGk9 @@qGq @kA@@kGkA:@@qAq xq:qAAjA@q3GkG::GqAk:9: :@3 3 AkG3:9 3::3AAƒ@ Akq9:9: ÷¾c…Eccc,]¾¾cic qHq::93@3Arqx@rwAxq3A@k 3@A@j AqAqGkAqGqqGq qq@qA 3Gƒ:9Aq::GA3@A3:qA@k@AA ::ƒ:::Aq::@3A@::3 9 9 ö¾…7c””“3¾c2’9b G::9 :3G@:@AxrGrxrA@A@:@@A2A@@A39 3rGƒq>rx @@A@@A3:G3@A@ qA@: k@ qGqqA@:9:9 ::9 @3:F:9 :@A@::@9 9 ÷¾Žc…)Ž“d“-“¾c]8i\9:@: 3 3:q A:q9:@qrw:3@A::@ƒ:;3@3 @3xrqrHqHqrw:@kAkq:@:AqAq:@k::F@:@;:qxGqG:: 9::@@…: @k@:@: :3: 3ö¿¾…c””½”3“3¾”¾3]q8ƒq: @3:@:rxArGAAk9A@3@Ad::ƒ@Iqq@A:@:@:q@A@A@34ApA@@:ApAqA9@@:@@kq:AkGqrqG3: :39@@:@@:@:@:@3:@: 3ø¾“c„x,”,3222¾ccq3HGq:@@A::q99rqxqAq3: ::r@;qAG-q@@:@qHqr@r:@@9 ::@A3 @:@AAj:qA:@qGk9:: : @A:@:@Aj@::@A@:@9939 ÷¾“Ž”„f2”c”Ž3”¾¾c qq3q::33@AqrGAqxrwHqj@@rwr@:@:rwGr4:3 3GqAwr@:@43G993qr::@@:@AqA@ AkA:::3: j@@kAAqƒ:9A3q@A94 3 ø¾”…K,3”232”,“cc qGq:@:3 qG:@rGrqA@:@:xrxrx:@rxrqG3rx A@:@ 3: @3@:rNrMqxrƒ:(@ 3rqq@:?3: :: @@kG:@@: @@A@ ::9: :39 3ø¾”…)3c32c3”,”¸”c3HqGqG@3: 3:q@xqxqG3qG@:„@:Gƒ3A @@qAq:A@A ::@rr 939::qGqq:9rqGrGA r@::9q:@;@::@3@A:: :@:@3: : ø¾”„,32]ƒcm3c“]¾]cG9AkG::GGA::qG@rqH@Adxrqrrx9:9@:@rGk@:,:9:qx:9:xrq GAG33qq@r@:@A@:@@:AjA::@:9:@k@::39 ø¾”¾†0233cc3”¾“]c]qq k@ 9kq q:@: 3: 9:rGqGr9 ƒA8@:@r@ 2;@:3:@Aq:GqGq:Gk:94::@:@@@@:kAk:9:@::@:q::9ƒ:9 ,ø¿¾¾…[33c]ccŽ,2”cc:Gq q:@:AGA9GqGr@339::qrqr9A@::@qkG:qrG@:9: @ :@Ak@rqH3@@:@qrGqrq:@kqAƒ:@9 A@qƒ: 9:A: @3 øƒ¾“cc‰m,ccc”3¾”c 3: qrq@j@:49 :G3 :9 ::@::9:@:qAq::9:9A:9:Gkq@:9@@rGqqrqr:@:rGr:@: @:@::@AqA:@::9@ ::9 3@ø…¾Ž”c‰,2]3”23¾“ŽŽc 9GwA@;@@ 3 ::93::9GqH :@@ƒ:GA@:GkG:A@qAGq: 3:9:Gr@Aƒ@:@:qGA @@:qAG@k: :@:@„:9 9 94 ø†¾“cŠ3]\3323\32”“3] @3Grq@3  9ƒ:+3:qG3Hqq::3A9G:@:qG3::@:GkGqG:9 GqGqGqrrƒ:qH3qqkGq„:@:@@9:9:9:49 øŠ¾”]c‹*“cc323c3]]“cc3:GrGqA9 33:3GlGrq:@::Gqƒ:*qGkA qGq:qAqAr@AqG4qrrGqG 99 :qG@:@::@@:9„: 9:: : 9 øŠ¾Ž“dI32]\”“Žcc3 3:3Gk@A@3 9 @A@3:3@9: 9 @:@AjGqAqA@Aqq:Ak@qA@A9GqHqqHq:9@Aƒ: @@Aƒ: @:9: 99@:9øŠ¿¾¾c]c]”c”,]23 3@3 394 9ƒ:9:G@ƒ:;9: 3 9A@AAqGqG:A2 @k 3 3@@AkA:93349:@:@@e:@qG qAq : 39ƒ:9øŠ¿¾“¾”$]c]“]“¾3\3G9 @:@9 9::Aq::A@:3 3ƒ:k@@kr3qq 3::9: 3 33:@A9:9 @„: 3:99 3 @:@3 q:A 3øŠ¿“¾cc•'3]””]c”½33A3 3 33::933  33 3 3„ 3 9: 39 99:@kA@:@ƒ:@9:9 „:9:93 Aj :kFk øŠ¾”c]™“c¾¾”3c 9 : k@: 9 :3 ƒ3 39::93 ƒ90 3 2::933G3qxrq:@:: qr@::3AG3@A3 :AqA9øŠ¾“Žcc”cƒ,”2¾”cc]23cc3:@33ƒ: 3 93@:@:@:@@ƒAkƒA,:9: 9:: 3:rGr rqrq qH3qqrq:: @399 99:øŠ¾”cc”d„ ”]”¾2”¾¾ƒc]3@4Grqq :q ƒ:GAG:A@ƒqrw@j@A:ƒ3%@Hq qHqG::rM3@rq qHq :@ 9Ak@ AA ø‹¾”¾¾]“cc„4“¾c¾“”¾”¾23c23]q933233q]3229:@k@rH@A@Aqr@G@Aqq:AGƒ:9qq49:A:@:@ @3@@: ƒ@ƒk@ø‹¿”½”]•c„4”3cc”½3“]]2323cc323,323233\33Gk:G@:3 3@ 33 qGAqAjƒ@::ƒ ƒ@::94A 3 3 :@3Aø‘¿”¾¾”› cc2¾c¾]ƒc:¾¾“Ž¾,2c323,32,239 kGGk@:qA@A:@@A@kGk@A3q4:q@A3::A@::9:ø˜¿”½]œC2Ž2-”3c3c]”“”2”]c”¾”¾”¾3: qAqA@qGkGk@@kAA@k@G3 @@AqGjA:@Ak@@A:øš¾”“cc?2Ž223]232”¾”¾”]]c¾“¾”¾ccA@99kG¾”kG:9Aq@@A@:@:3 :3GkG@@:@G@„:ø™¿”c3”, ,3c,323½””c]c]¾”½c]c]cŽ„c”½G:Ak@:@3:@A@@:@ @kG:@::@:ƒ@:ø™¿”cž”c2232]3c¾Ž½Ž“]3“”¾”“”3\332…¾3@qA9@; @:@kAA:2AA:3:@@:kA@@:ø™¿”cdž”2c-c2]2cc”“¾ƒc0Ž”¾“¾¾]c23cc”¾”2”Ak:A@kqrqqAjA9AjA9A@@k AjAjAø™¿”¾“]žB2Ž”Ž2c3]32Žccc“¾¾”¾3c3“Ž“”“]””“¾G9A@: qGAqGq@49A@qA:@:9qA@A9ø™À¾”,2ž “3“cŽ3232]“ƒ”2Ž“]cc]”¾cc\3\Ž“]]c]]”::@kkGqAqAA:AA3G::9AAqq:9ø™À”2Ÿ2333“3\ 3]“Ž”Ž„c½”„c%”¾”“]c“¾”@@:9AkGkAAqA:@99A9::AqGkGA:ø™¿]3Ÿ32-2233\]3“””“c]„c)]c]¾“]c3]“¾:q:@q q k@q999A@A:9AqA@k ø™¿c”9] 123]323”23c]“Ž2”Žcc¾”¾”Ž“¾”¾”¾””qA:9Gk:qA@4…: @9:@Aq:@:2ø™¿]c¡?232323”,2]”“Ž3cc]¾“¾”“¾“”¾“Ž2:k:AqA@A@kG9::@@kA@Aq:@A@ ø™¿””½¢ 32Ž2cŽcc3c2ƒ”0“¾”¾”“”””Ž¾¾”¾¾“Ž“:GqAGkqqGqA :GA9q jGGk@k: ø˜À¾¾3] @2Ž”cc“Ž”c,c,”¾”¾“¾”]c¾”½”c½”“¾”¾@@AqA@A:@kGjAqkGkA3AqAAq@::ø˜À¾”b¡?“3c]”d½¾32Ž]“¾”¾”·”¾cc”Ž”¾“¾””:@kGqq@qGA@@A3Gq @AFA@j@A@@:ø˜À,c3¡-ccƒc73“Ž2“3¾“”½”“”cŽ”“”¾”½”@@kGqAqAqqA:: 3A9AjAkGA@@k9@ø˜À”ƒc¡”cŽc”,Žc“Ž“,”¾”¾”¸”½”“Žƒ”!½”¾”¾:qAqAqAqAAkGj@ q:@AkGjA::9 9ø˜À”c]¡?”]”“”Ž“””¾”,33½”¾“”Ž“Žc”¾”½¾GqAkG:AqGqAjA@k@::G@kGkGk@::ø˜À”]c¡?323“-“”Ž”½”“”,32¾”“Ž½”¾“¾”3½”“Ž“¾@kGGk9::@:@@A@:@::kG@A@qAG::ø˜À”¾c¢>c]232,“¾”“¸”½3233¾¾”“”·”¾“¾Ž“¾”cA@kAG:@Gk@A:k:@:A@@kAjAqAj@:ø˜À”½”2¢4,32332]””“Žd2Ž\3½Ž¾””½””]”¾“¾”k@GkG9A:3@:@A@:@qAƒ@AkGqA:@ ø—Áƒ¾£>232]c]c2”Ž¾“Žc323c]”“¾“Ž¾“”¾”½AqAqA2A@@ @:q::@AqqA@@qA9:9:9ø—À”c2¢A2Ž239c332“Ž”i¾3c]9]“¾”¾“Žcc”¾”AqAkG:qAk:9:@kGAqkGkGkA:: ø•À“]c¢B”2Žc3]c¾“Ž””3“3\c”¾“¾”¾“]”¾GqAqA@@:A9:@ :@3GkGkGk@GqA9::93 ø”ÀŽ“Žc¢BŽcjc23]]9“¾“]”¾“3]2”¾Ž½”¾””23“kGq9A:@kA :9:A@9AA@qA@A@A@:9::@ø”À”cc¢.,3“”dc”Ž2cc]“¸”“Ž“Ž]c3\”¾”“¾”“Ž””qAA:k@A@kGkƒ@A@qAqAq„:@q@:@:ø”À””]£B2]”cc2”¾23”]“,”“”2c3]“¾”½Ž¾“¾”¾G9:@A9A@:GqA@k@:kGkGAjGq@:AG:@:ø“¾2¤@23cc]c¸”“3c2]c]””Ž“33½””½””½”::@:9@k@A:@@Aq::qGkAqGkG:@qA::ø””¾¤ 32]cc]c”¾33ƒc0¾“Ž½””2232¸”“¾Ž“Žj@:@A:@Aj@qA@qG4GkAqGkGqkG@;q::ø”Ácc ]„)Žc”]cc]“Žcccc”¾””½Ž¾”,3“Ž”“”@A@k@ :@@ƒ:@:qA::9A@qAqGkq@ @ø•Ác]¤ c”2c23ccƒc¸”“¾¾”“””]“”c·”¾:@qGA2…:9 AAq@@AjAAqAqGkG3A@ø”Ácc£Accc]””2]c”Ž]]””½”¾”“¾Ž½”“¾”¾c”¾GkGk 3AAj9 k@kqqAAjAqGkGqA39:ø”ÁŽcc¤?c”3]“Ž“-c¾“”3c½”¸“¾”½”¾“¸””””qAqG:@k@rGk AqGGkGqGqAq kG: 9ø•Á“]¤>]22”c”cc”¾2”””“¾”Ž¾“”¾”“¾””qGkq:@GqGkG3@AqqGkGkGk@A9:@:ø–””¾£>c3Ž“,3c]c]”“”¾c¾”¾“”¾¾“Ž”“,”¾””kG :AkAqAA3@q:AqAqGqAGA@A:A@ø–Âc2£]2”¾2Žc2c]“Žc”“Ž“¾”¾”½ƒ”%¾“Ž¾”2¾“:@:@kG@AqAA:@kGqAqAqq@k:FkAø–Á”]c£c]]“”“]3“]cc]3½Ž”½”·”ƒ%2-“”cAA3AqAqAkq@A@ qAqGqAqG@@AjAø–Ác“]c£;]“3],”c”¸c”cc2”¾“Ž””””””Ž“Ž”::@Aq9:A9@:qqA2 qAqAqAql@ø™Á”]c£”ƒc4Ž2c“Ž“]]”””””””””””9kFAqGqG:A qA @: :@@:øšÁ”]9¢22Ž“c“cŽ”½Žc””c”“cŽ“Ž“Ž“”¾”½”¾“ qGkG:@Ak@k 99:ø£Â”“3¢)3“3”“c]2c¾Ž“”¾Ž“Ž”“””“”·””½Ž”“¸3 A,:…@Aø¦Ã¾½£"c3Ž2Ž2-cc”””ccŽ“Ž“Ž”½””“¾””„9 :A:Aø¨Âc]£",]“cŽ“2Ž“c]”c””cŽ2”¾¾“”Ž½”¸“¸“„ 93ø«Âƒc£"cc]2c]2”“3cc””“¸“”””“¸c”“””“Ž… ø¬Âc]¢233cc]cŽŽ]”]c]2””¾Ž“””“Žƒ”¾”·”“ø²Âcc¢#cc]ccŽ“c3“cc”Ž½””Ž“Ž\”½”””Žø²ÂŽc]¡$cŽc]c“ŽccŽc¾“””¾“¾3]2”¾””“””½”ø²Àc]”2 2Ž“c2ŽcŽ”]9]“Ž“¸“ƒ”j2””½””½Ž”·””·ø²À23¾2Ÿ&3]“c]Ži9c”3\”“”Ž“Ž½]c]]“¾”””½””¾“¾ø²Â“ccŸ&\9]ccŽcŽc3“”Žc\]“d“c””¾”¾¾“¾Ž½”¾Ž”ø²Ã]c ]c332†c”·“]”””c”·”½”“”¾“¾”½”½”ø²Ãc]¢#3cc]]9]2]“cc”“”d”¾”½”¸”·””½”Ž¾”½ø²Ãc£"“c323”ŽŽcŽ¾”¾c”½”“Ž¾c“”¾“Ž¾“¾“”ø²Ãc¥ 3“”¾”“”“”¾“””¸”½c]cŽ“””c¾”ø²Ä”©c””””Žc“]ccŽ“ŽcŽ“Ž½”·ccø²Ãcc±Ž“”””””“””“”¾”Ž½ø²Ãc]´”½”¾”“¾¾“¾Ž“¾“”ø²ÃccøöÃcŽcøöÔøèÃc¾32“cøàăc‘c””øÞÅ,cøõÇ›c“øÖøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/$-$øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄÝc†cøÖÑcc¾¾“¾”“”c”¾½”ccø׿ “”½”¾“¾“ˆc…¾“¾”]cŽ„¾cøؾ]¾¾”ƒ¾”””c”¾¾Ä”Ä””¾c]”ľē””øØ¿ c¾½”¾“Ž“”]ƒ¾”¾Äƒ¾“¸“c¾¾½”¾“cøÙ¿#”¾¾9]3¾¾Ä”¾”¾”¾”¾”Ä“””c]”ľ¾“døÚ¿c¾¾2c2¾¾”½¾¾“¾¾”½Ä¾“¸”c]ă¾iŽ˜cc”½ccc”½”c2]ø°¿¾”cc]¾¾Ä¾¾”¾š¾”½¾ccc”ƒ¾½”“”“”2¾3c]ccƒ¾Ž“Žc]c…cø°Ác¾¾š¾”¾½š¾½¾”¾cƒ ”Ž“¾¾š¾Äc”2]3b]“”¾“”“”Šcø°Àccƒ¾ ½¾Ä”””“”…ŽiŽÄƒ¾“Žc• c¾¾cc”¾”¾d‹Žø°¿”¾“¾š¾”¾“¸]“„”“”ƒ¾”“”“]¾¾”¾¾cŽcc”2„3””ø¶¿”½c„¾ccƒ“””½¾“„¾”ľ“Ž”‘,“”c2cccc”“Ž3]2cŽ“¾½”]cc3ø±¿””Ä”cƒcŽ¾”¾¾”¾Ä¾½cc•Ž“¾¾„cc32]¾”ƒcc¾¾3½¾“ø¯¾c¾”¾”c””cŽc¾¾”„¾½ƒ¾iŽ•c”¾¾”“Ž¾c”¾”¾¾”¾c]¾¾3¾c]¾¾”,ø¯¾ c¾””¾c”“”ƒ¾ š¾¾”ĽĔÄ23–”¾”¾”ľ””¾¾”¾¾”ƒc ¾”¾Äcšcccø¯¾c¾“Ž¾8¾”¾Ž½”¾¾½”¾½ƒ¾33—c”¾2ƒ¾”¾“cc¾”½“c3“cc¾c¾¾c“2ø¯¾¾”2“”¾“”“”¾¾š¾”“””¾Äc— c”,3“““Ž„c“Žc”c]]”]9ci:ø¯¾ c¾2Ž”¾”¸“¸„¾“¾”½¾—]c3c]9¾”3c”cÉ””ŽŽˆc ]Ä™2cdb92ø®¾”¾“”½”¾¾Ä”“”¾“¾—'c,c2ccc¾¾“c8i“chch”cd“bcc¾ÃÉ8““i ø¯¿”¾”¾”¾Ä„¾“”•+2”3c]c]¾¾”cbch“™““bcc]o“ic¾cÉÉÃÉihj 2ø®¿“”“¾“ƒ¾š“Ž•$c”33cc”cchb9b™“bibii’ÙÉÙÉbcßÃcƒi“ÃÉA ø¯ÀŽ”…¾“Ž”/2”,c2]2c3™™bccbcibc™ibi’iißÃ9bGcbÃ92rwr r@3 ø®À2„¾š“”“•0,,¾¾]c3]bibc8cb9bi“™h“A@rxr@Ak@rxr@A@Axrxw:@A3 ø®Á¾¾š¾¾“Ž“’,2¾3Ä”¾”c\9Ó2i“i“iqGAƒ@rxqxr@Awrxxr@kwxrxrx@3 32ø­À 2”¾¾½¾”Ž,“32”¾3¾¾cciÙbih“qqƒ:@:xkAAGAqxrG q Gqr 3xw Ak 9 2ø­À”¾Ä”¾“322Ž3323¾Ä¾¾2ÃÉÃi%c:qN9:9:@A@xwr@@A@:xxr@A@@xrxr@Gqr 3ø­À”“¾“ƒ¾2Ž 2]33cc¾2¾¾“¾¾ƒi ““’“9xrqqHqAjArxrxxrkxxrxxrjAxrƒxrAq 3 ø­À”¾¾”ƒ¾%c]9c¾cjÉŸ“h““hc@rxGrqrqrxqqGqqGqx…qHqxqGqGqq@r93ø­À”“¾¾“c“#,3c],¾Ži““i“ÉÃÉic@@ xrqHqNq:@@:ƒr@@A:Nr@@ ::qH:@94ø­Á¾¾”c2ccccŽ”“cn“™::Gr@@A@r„x q 9 ::@:Aƒ@A@A:@qr@rrq:rq@@A 3 3ƒ ø¨Á¾”ľ3Œ2]ƒc&]“”¾”“™“ 9@ :@A:jxxrqrw 4 9@r@@rxrx@Aq„:9:x@A@A@rx933 33„ ø¤Á„¾ÄcŒ33]cŽ”¾i’ibqxrr@:k:GrA@G@9 :@ƒ:@AAjxqA@k@xqxGx@@rxqxr@A9: 3 9„9: ø¢Á”ľ¾c‹>,cc“Žc“cc’ii@:@@:@@A@2 393 3:9::@@A2rGrqrq @:xrx:@A@rxr@@k9 9ƒ: 3:: 3 93 3 øžÀ“¾¾“3ŠƒccŽ“ŽÉbi9qr xrG:kF 3 3ƒ 9::@AkGk„x&Nr@kxrwrxAjrxqxrx@: 999 9 93 39 3 3øœÀ”“”“”Šc]ccŽ“Ž™ci rG3xrwr@A3 3393:9ƒ:1@:qGqrqrqxAqAwrNr@AAwrNqx@A3 9 93:9 9 93::3 9 øšÀ””Ž½,‰2c¾”ccÃÉib@xrqGAqAqGrq 9: :9::@::GqrxGxxr@@A@Axrƒ@k@xrx:Ak:3 : 949…: 9:9 3 3 ø˜À”“Ž”,ˆ>“dc”dÉÉchr :xqrGkGk 33 93:9:@:@qqrNqrrMrxxqxrxqxrqxrxrwxx@ƒ 9„:9„:  :9 99:9 ø—Á¾¾”2‡Z3]ccŽc™Ãch:x xxqr9 3339: :::@@:A@AxrxwrxxrxrxrxxrGxGrwxrrA9kq9:@:99 9939:: 9393 ø•À”¾¾Ä,†2]“]c”c™“bi rxrwrNq 3ƒ E3::9:Gq::@k@GqrqHxqxqxrwxqxGrxrqHxx@A@@A9 9 93:9::: 39 33 33 9ø“Áƒ¾ĆB23]”ÉÃi8rxqGqGkA9 33 ::9::Gk::@:xrrwrxqrGxrNrxHxqxrx:rqx@A…:9::9:9:39:3993 33:3:ø’À¾š¾†23„c[”Écb3 :xqG:33 33 :9::9::9@G:qGqxrNrxxAqrwxrxAjAxrwA@rwHx3:99A@::9::@ 3 34 :9::9 3:9ø‘À“”c…c3]2]¾¾”“i9r xrGq :3 3 9 :9::@ :GA:qrxrxqxwrGkGxrxq9rx@Axrwrrxrx :9:@9:: : :93:99:43: 3 9: 3øÀŽc”„ 3\3c””¾i™hƒx”¾¾c¾2¾”“™™ÃF:q:GqGq:x@xrwHwxqrxx::@39 @: ::@A::A9::@:Aƒ:@9:@:Ak@:@:AA3939 :@:@:3@:ƒ@:9:9:9:@:9::3 ::3: 9 9 øƒ¿D,Žc“,¾3ľ¾“Ž™Ã™x:3rrr:qxrrxrwrrGxq@93A 3 39 3:9@@3:@@9@AAj:9:@@ƒ:@@„:-3@AA@AjAA@:@:3AAk@A:9:933::9G:2:: 93: 9 øƒ¿D“”3¾3¾¾Ä¾“Ž™™rxr:Gxq:q:xqxqNqrGqA@AA9 9:9 3 3@@::9:@:@ @jA9@@Ajƒ@:@@:9A@A@@AjA@Aj:@:@: @A@A@ƒ:9A3@: :: :9:: 9 39øƒÀ>c2Ž2¾2¾¾“Ž™™@@qq9rrGxGrxHxrxxrxxAjA9::: 393@:AA@Ak@:AA3@ƒ:8A@A:@A:@A@Aj@k:@A@k@@A@:3@@,Ak@k@:::9:99:@:9949 3øƒÁx¾3c3¾2¾”“™kA :: Gxrxqxqxxqxqxrx@ :94@@9 :A@:k@:@k@@ :j9 AA@jAjA:@kAj@:kA@@:@k@A:@A@::9A:A@A@@:@k3 3 @:::A933:øƒÁ9]\3¾2Ä3c”“™Ã@@q:q:qxrxr@rx:xHxqxr399: 3 :kAAk@A@A:@@ƒ:/@jAA@:@@:@:AA@@A@:A@A@:@k@393:::k@AjA3A@A@ „: @@A: 94 øƒÁ 23¾šccc]¾™™kA rAq:xq:N@A@xqqxrƒx9: :ƒ: @A93@Ak@2Akƒ:@:Aƒ@):AjA::9AjA@jAjA:@@A@ :: ::@:9@A@A q:@3„: @@A99A393øÀ]”¾¾2c¾-cc™ÃFAwqrƒ@Aq@AkAqNrxxrw 9:3@A,: 9:9:@::9ƒ:A9:9@:ƒ@k@:A@ƒ:@9A@kA@A:@:j3:A@9:9::AAjA@99ƒ::9@:A9A: 3: :ø¿%c2¾2¾¾3¾¾j“A@krw@A@A@ k@qxxGrxrwH: …:9@:9 9A@::9:@:9@:A@A:@Ak@A:?@::A@A@k9:@::jAk@:A@@AjA@@…:9:::9@39 3:ø¿3]2323¾2¾¾cijA9HƒrI:rAkwrrwrqxqx @@3:9::@ 3::@:9:9A@::@A@@j@c@@Aj@::i“ck@k:@:3:@:@:@:9„@„:@A9:9: @:q A3 3 393 ø¿%2”232¾”2¾Äc““G@rwrwxwx@GrxGxrGrxr@k ƒ:9A@3 †:H@::@:A@k@4:c:i,A@A:hcbi:@A@::@: @@A@A9:@kAk::@@k@A9 9 @A 93 9 3 3ø¿”c3¾¾”¾i“@Aq@ArGrxAkxrqxrqƒxA@ 9:@: 9:@:@:@::A9ƒ:%@A@9 3 i::@k bci:@::@@:@Ak@AjAk::@:@Aƒ@AjAGk9A3@-3@:: :9 3: 3ø¿H“3]32¾2¾2¾ib™qAqA@xrxqGAw:GxxGrx@Ak 2:93A9:3:A9 Aj@:@A::@k9::@A99:b@@:„@/:@@:@:AjA@A@@:3Ak@:@AjA@k94A@ 3A: 39 9::9 ø¿-¾2¾2¾¾ccc-™™r@r@qrw:@rqAqxA@:AqA@3 : 3A:9Aƒ@A2ƒA::@@k@A@:@AjA:9ƒ:@Ak:@:@ƒ:"AjA@::9::93AG@k@AjAA@ 99:9 9 ,G3ƒ:::9 ø¿>2¾”¾¾”cc-c¾8ÃqA@A @A:@rAxqAk9GkG2 3 :@ 3: @:@kAAjAF@:9: @A9…:@::@A@A@@:3::@@A@k 9ƒ: :9A@:9:A@ƒ: 3 3: 9 9Gkƒ:::9:ø¿#3¾¾2¾¾3¾2”¾8™r@kw:A@@AqxAqrx@rxqA ƒ9: 3A::@:@@Aj@;9:9:AA@AF @ƒ:3bAj@A3 3@:k@:9: 9:9AjAA9AAkF:9@ 9 9:3G3@::9:øƒ¿]2¾c32…¾““@AAr3x:3xr@AwrxrGƒxZ2 kA 3 9 -3::@:9:@3:93:@3939:@::@@:9:2@:3 k@::@@::9:9:@@A@@::9::9 3 3 3@ 9:9 9:9 ::9ø¿13cc2¾”Ä”¾Äh“Ax@@qxr qGk@rGxxqrxr qG9 39 @@Ajƒ:@@A93ƒ:AA @@::@::832ƒ9.A@@A:@:9 3::::93:@A9 9::9:9: Aq A@3 3A39Aø¿“ƒc1¾¾2¾½¾i“@k@AqxqkAGrwrqxGxrxr3:3: 9::9AAjAA@:@A@ƒAB9:@GjA3::9:9::ih“2c9:@AjAA:99:::9: 9A39::@:@:@A@3A2 @33@3 :A9ø¿6¾cŽc]3¾”c¾”™“GGk@rHx qqA@rqxrrxwr:@@39 : Aj9 9:: ::ƒ9@:A:@ƒ:2bccb93A::@::93 3…:A…:A@:@3 ::::3: G3:9:øÀ3]3¾22¾2¾¾8™qAƒ@xq3AqGkwHx:@xr@ :9::ƒ9:9A@::9:9Gk9:A@:9Aq@ 3A3„@:ib899@ 9A9@A@3:ƒAF:9:Ak@G9::9:@;@::@:@A@ƒ: „:øÀ2ƒ¾„c132ÙrpArr@AG@rqAqr@A@AGkA93@  ::3A::@:@AkAG3::@„:=@ ihi:3 3i’i2, 9 k@A33:9 393AApAGkA9::9A:@@::@:@:@:3@9ø½:2]¾”½šc¾3¾¾8ÃrA@x9A@k@@qAxGqA@x@@3 :@k9A:9A99:@A@A@k@Gƒ:?G9:3ii“@49ccib92: @kA9:: A : AA::@Aq@AjA9AjA:@q:k@A:@ Aq:øƒ½-cc23¾3¾3¾¾c¾c“i@qAqrxq@r@:x@Ax@qrxA3 9A@ Ak3ƒ:L :@kAp@AkA@@:kAA9:9i9i39h29b229:9: 9j:@qkG9::@kAGAk@kA@k@AA:GA@q::2GA9øƒ½=]2]c2]Ä2¾¾“i“@Ajxrwrxrx:xrkxrqxr 2:9A:2A: ::@@AAFkA@@AqAjGƒ@=3::9:h:9:Gcbcicc8c 33 ::9:@:@:@AkFAjGA@GjGA3q9q:::@ kG9øÀ3ƒcR¾¾2¾”“ojrN@@rHwrx:xqGrxGxxrx: 39 ::@@@AjAkA@Aj jG@Ak:::icih]bc8c2b82c223: ::@ƒ: AG::FA@kAjGkAAj@ 9:@@:@@9 q3:øƒÀƒcA3¾¾Ä¾i““@rq@rxrwH@rxAwrqrxx: :@:9@@3@A@A@q@Gk@:@Ak@@kGA9::9@:kGƒ2 3 3 9b:@:@ƒ: @AqAkkAjA@GkApAjA@3@ @@;k@:@;@@ƒ:øÀR3]c]29¾2¾c9qGqHrwrGxr@r@Ax:qxr@ :3@::@: :A2:k@AAj @A@3G:Ak@:@::99::b28c89 ’,:ƒ@:@:Gj@Gk@kAFkAAGk@39;@:@„:3@:øƒÁ;23¾¾c3cŽccqHqqrrw:@A@A@@A@AGkAq A@:@A:j@:@@A@jA@@:A3:@::@ƒ:;h:3:ii“3b3’“ii2A:: 3::@::@:AA@qA@kF@@9 :@:@::G:@:@@øÁ-]”½”ccc“”™bqGqHqA@AjAj:k@@kAFk3@@:@@:G:@:@…:@j:@:@:9:@:@::::@cbƒ2 9b9bc3b9:9 ƒ"A@A@A@@jA@kAAFk:A:9::Aq@:@k::@:@øÁ-23¾¾c3¾Ž““c:Gqrq:rx@x@Ax@qxx@@3G::@k:A@:Ak„@:@…:G9 ih“ibc2i2ccbc™“bc3 @…q@kGjA@:AFk@kA@::9:GA@::@9@:@:ø„Á232”c¾3¾“Ž™b@AxrAGkwƒr/x@xrGrrx@ kG3@Gk:Aq@AA:@;qA@:@A@GkA9“ihccA:ƒ@“™“8cc8A@:3 :A@k@:A@kAqAƒ@:: GkkGk@:@:ƒ:øƒÁ]32cƒ¾qÄ”™“rqrwA@GrxMrxAxrqxxr:@ @AkFkAk@kAjGkAA@k@ApA9cbch9b@@A@““i’i“b3cjA@@9AqAA@93@:@::@::@kG@qA :@::@::øƒÀ23ƒcL¾¾š¾“™™xxxA::wrrwr@xrGrwrx:3 j@k:Gj Aq@AG@@kGkG::A@:9cib2c3A@\o“™i™“ih2ƒ$@;@@:@:AjAkA::@:@kA@::@:GkA93@:A:Apø„¿H,32]c]¾2¾”Ž“™h@r@xqrxqxxAxqxrxxG3::9A:@AAj @k@k@AjA@q::@@:9@38ci28ƒ“/h“’o3ijA@:k@:kA:@:@AFkG9:@Ak@:3@@:@k@G3::@G9AAøƒÀx3”23”½3c¾“™““i@AkqxrM:rx@xr@xrGr:3 9:@::@@A@2@Ak@@A@@A@:@:@9c“3hc222i2A@@3::@A@@AkAFkA@Aj@A@::A::@@3  kA9kGø„À7c½”¸c¾”ccŽ“™i““@qHwr@A@kA@kGqrx 33::@:9:@@::AjGA@@Ajƒ:>99:@kA::b2cibc922c@AkG :9k@@kFkAGk@k@A9::99:9:::@Ap3 ø„À%cŽ“23¾¾2cc”Ãh“@Aq:A:q@@r@@rGAwx3 ƒ:@3A@:@:A@k@3A:9:93AA@qƒ:3G9c“™bccbc8i2kGkqA:Gk@AkGk@qA@A::9@93A::A::ø…Àc2Ž”,2¾¾3c””Ã3@Gƒ@xr@rx@rqq@AA@ 9::93::9Aƒ: 3  A:9ƒ@":3@kAGb“™™i“i“2cAGAq9:@A@@:@ƒ:3 3 ::3::9 :@:@:3 2ø…À ,”½””]9¾2ƒckÉ;k:@Arqxqrrwrr@Aj@: kA3AA@::AqG:@:GjqA@::@;qG:AqGkG“™“h@@323jGkA@@k@:Gk9:9::?:99: Aq:Aq:9:ø…À””¾½3¾¾c]Žcd”2ƒ@< -:qGq GqGqG@A::9 @A2AA9Gk@qA9kA@::9::@:qAqG:kGA@@A@™““qk2ƒ GkGjGkA@@kGAG9@ƒ: 9: kFA9kA3ƒ: 3ø„ÀP,¾”2¾23½”ccc¾Ãk::q:@r@Ax:kx:kx@93::9:@9qG::@@3:q:@9 @:GkGk:@qk@kbici™:@@3ƒ&k@:: 9::9:3 93::3:@AkA@AF @A  øƒÁ>2Ž”3323¾2]32¾c™c39H:9:xrGrxAxxAxr@:9 GkqG:@qGq::GA9:@:@:Aƒ@A@3 2ibibib“GA@@„: @ 3::@:9 9 3 ƒ::@@:@::jAj@:3 øÁh3½”c¾“cc¾¾cc“b:q::@rx@xr@rxAxrx:@3qHq:GqkGqBqGq::Gk::@:@:@k@:“c3 bcb8cbc9393@k@:A:@93A3@A9 AqA@Ak@Gƒ:AkFk @@:@ 3 3øÁ ]“”2Ž3¾¾2cŽÄ¾ccib™qH@:GkAqqAwr@ƒq::ƒ:GGk@@A@@A:A@9:9:@@kA@::@Aj39bcc8cbb A@A@@::@:: :@A:9 jAq::9:@@qAkG„:Aq 3 øÁ&Ž22]2”¾c3¾cc9Ã:q::3x:x@:rwrxr@Gr@„:GkA:Aƒq::A:G@;ƒ@:@kAA:99 3 9 :jƒ:#9:9 @::9:@3A@:@::9:A9 kGjA::FkAjA3øÁ:“¾“Ž233¾c“”c2“ii@@:rqrwr:xrGxxrqxr:@q:@Gk@qqAqG:@Aqq@ƒ:@:@r2ƒA2qGkAAkk  2 9 39 9:3@:qAqA::@:9 AqAp:@AqA øÁLŽ“Ž“-”]ic¾”¾”¾c’“qGGkAwHrx9NxqrxxGrxx@@G:@qGkHqH::qqGkAq::@:@ rx9:9:9Ak9ƒ:* 93A@@::9 9 2@A:qAq::@:@: jGA:@:G@939øÁ ”Ž“2”¾]…¾“d™“rqxqA:GkqrGGqGqqGqƒ:@3AqGqGk@:G:AqGqG3@:@rqr@:Aƒ@A@@:9 „9A†:ƒ;@@@:9@A9:9:2 …: øÁT”””¾32¾”¾2ľi™irxA3@:Nqrqr@HrxGxx@3GqHqkGAk@k@:@qAqAq :rwrxGrA@3GkGkG@:AjA@ƒ:9G:9:@@::@kAqƒA@Aq 3@AAGkG@j:9 øƒÁ\””½”½”]c¾cc3¾iŽ2™’i@qA@3r@qrwHxrqxrxrxr9AkqGrAjA q:AqGqGkxrwrGrxrx@:AqAq:q@:A@AAq::@:Gƒ:@@:AqGjq@qHAq@kG: @::3:A@ƒ ñÁgc””¾“¾”2]cc”c“Ž“Ži“ @qA9 qHrwrxGrwrxrx @AqGkGGj qG:qAqk xxqrxGrwrxr93GkGqGA3@k@@:@qG3 k@:@@qGqAƒ:@2::9@:::3A@G@ƒ9: 3ñÁ”¾c,”“¾3¾c]]¾2…¾“rwrAqxr3 GkGkGAGqGqr9: :ƒq ƒqJGqAqA@A@A 9qAqGqGrqGkq@:Ak@AAkGk GkGkA@A:A@::@3A@A@A@:@::@A@k@99: :òÁy”¾ccŽ3cc2932¾2”¾“r wAr@k9qq@rqqrxAxrGrx@AGAAxr@AAkGAqGqAjA@jA@Aqr@AkG@:@GkkG@kFkGA@qqA@rGk@kGk@:@9A@A9A@3@:@:@@k@ @499::3@ñÁy“”¾]cd“c]cc]3cc2cŽ“:x@AA9qH:xrGxqAwrxqrx@kqxrxxkGqAxqrqA@A@AqrGAxrGq@k@kAGxrqrGAkGjAqqG@rqGkxAqr@3AAj9;k:AAj:@:kA @:39 A@ñÁ"¾“c9-3¾]c”¾¾d“”xkG3Gkq@ 9ƒ@Ak@ƒAxqxAqrxwrxAqAwrqGq„:"9:99:9::@A@kGkxrxwrqxA@A@AA:3qGk @ƒ: qrGkGA„@3„: G2: 9: 3:óÁR”¾”cd”22]c,32¾”¾”,¾¾crq qHr3 rr@rw:kw@qH@:qHqAGkGjGkAA :9:9:39:@A@kA :9A…:)@k@:9rGq: 3@:@@3G@@A@:@A@:@@::@:A:@ :9 óÁy””½””“Ž“3cc32c]¾c¾c¾cAw@qr3xqrxrx@xrGrx@Aq@xqqrAxq@:@99rGAwrr@ :@k@qqxrx@A@@xGw3@@rxqr @:9:@@3AkAj@A@jA@:@r@Aq@3@:39: ôÁA¾”””3,”,33cc22ccc:G@Aq rwHwrAxrqrqxAqArqHqxqHqqrA@rx9ƒ:2@ r3:@AxrxGx@kAxrqrHq:rwHq q:::3AAF:@AjAAjqA9q: @ƒ:9 93ôÂ1¾¾”“¾”,92322,”¾”¾¾””qrxr@AkA@:9:G9:A@:9A…@:@@ 93:Aq@Aq:@9…@!AA@:99A@A@q :9: @9::@r@A3:@:@:@ƒ:A@@A: @99: ô¾“¾””¾”]c]]c32½¾”,ƒ”;qxqxxqGq43:Gk::q :3:rr9A:A::AGArGAkGkGk@::Ak:9:3rqH:@A@ƒq @@qGqrr3G@Aƒ@:A@:A@:@A::@q@ƒ:3: 2ôÁy““Ž2¾“¾2]c2”Žcc,”2cd¾2,c:x@rkG:3r::@:q:A@@AxqxH@@:@AjAqqkGqAqG@:@:@A@rxqHwrwAjqGA@ArGkGr93AAj@k:3@kA@jA@AjqAqA@:9: 3öÁ3Ž””,3]3c232,”]3¾Žc3cŽ“:Gk@qAqGGq:9A:  3 9ƒ:H@k@qAqGkG@@: 9A@:9AkGqGq ::@::AA::qG:xrGq:rGA@GkAq@:@:@A::@::9:9 õÀ”“Ž““””32332”c3Ä”2ƒ¾b”““ŽqrxrrqxrqGr:@@:@k@qrw:Gk@AA@rqG@rAk 39j: :A3GAqArqrq3jAj@xq::A@A@A@@3A@@A@A@:@::@@A:@: 3:÷Ày“Ž“Ž“-””323]“]]c22¾2d¾2¾¾2,”“HrxAqGqGq@@A@AqxHr@@AqAjrqG:rwAj 9@: ::@@39AxqNqArrq@AAqr::@q@k@k@3A@jAj@:k:9:A::@: : 3 öÀb”¾cc,”“c]3cŽ9]323,cc33c3: G@A:AAk::@kA@k@A9 3@A3 9@@:9@ 3 99AA@AqAk qGGk@A@@:@::@„:9†:@:Gƒ: 9@::2 ::÷Á¾¾”]cc]]cc2Ž32c\32¾3ƒ¾ 2”c]c]cc:jƒ:@3„@Aƒ@rwr@Aq„@rqAAqGk:9:A3:@33:ƒ@ qrAkGk@Aj@:@ƒ:9„@Aƒ@:ƒ@A::@::@:9 , 9 ÷Á”ƒ¾ƒc c3c“33“ƒ3H23”2¾”“,¾Ž¾Äc¾¾”“@3Gk@;qkGdArqHxqA:qA;qqA:qqAq::9 3@:@A@3:qrqxq@:qGqGAA„@AA@:G@A@:A@A:@::9:9: 3A@93øÁ.c¾Äcc]ccŽcc]j,322¾2c32¾”c“¾c¾”¾:@::999:…@ƒ:)@@rw:A@9:: :qAGqG3:3 qA@@::@@: 3:933 ƒ: 3 3::93@@k99: :: @3A øÀ”ƒ]c]ccd3”c232-]ccc]„c dc“”:3  „: @A:kƒ@::@AqAqAGkGkGGqqAqHkAƒ@A@4:9 33 3 @::9@:@:„qH3Hqrƒ: 9 :::3øÀ:“Ž“d“c32ccc3”“]Ž“]c33”¾¾¾Ž¾¾2cŽ“::rqG :j:@9 3::@Aƒ@ AqAqqGrqGqHqqGqqr@:9 @A@:q:xrxrƒ@A:@3:@: 9qqH9::3 :9:3øÀ2”“Žc,3cd”]cc”Žc]2¾c,”“2¾3¾c¾”¾¾Ä¾cq AA„:A 9 ::kAkqqGkGqArrxrGkGAk: 3Aj:A:@:rqxG@A::@@::@:9:: 3 9:9: 9:3::ø…À“Ž“Žcƒ3ƒc”“]c,c3223]9]c]cŽc”2cŽ2¾¾”¾ƒc@9: :@::93:99 A@kGqGkwAqA2:@ :@@A:9@:rq@::@::rqr@:A:@:@:9:ƒ ƒ@ƒ ø„Áƒ¾3ƒ323cc]c3cŽcc,332]c3c¾c¾¾”Žcc2ľcccŽ“rq@qr@AGAƒr%x9:9:3 3 3AwrxrwAqArwr@ArrqAArxqxr9qHƒ@::@9::qk9:3ø…À¾¾š¾2ƒ2]cc]c]ƒcUc3]2]c\c3¾¾¾“,”Ž“Ž¾””¾¾”¾”]9]9]“Ž“Nq@A@A@rx@A@AAwrHGk@qA3rqqN@@A@rxq 3H@k::9ƒ: ::G: ø‹Áƒ¾3„1”Ž23]2Žcc]c3]“Žc3\3,¾”2 “¾“d“Ž¾“¾2¾¾“”ă¾4ľ qq3 2@@3”9:kG qGq r::9:9A@xrwrGqrwAGq :9::@ø‹À“”“c\…>3“Ž23]ccc,cŽ2”]“c3cdic]ccŽc“”¾cc2iŽc¾š¾¾Ž” 3@A@rƒ¾9Gkk„:@:qrqr@A@rqGqrG rq 2:@: øŒÀ””‰Ž“]”2c23,23c]c323ƒc&¾”¾”cŽcccŽcc]23”c¾¾i”c””Ž”i¾ƒA"k@Gk::GqG qN@A3 @:@A9A@@ : 3AqøŒÀ”””Š]9]”-„]2””½c3]33cc¾”]cc”ƒc¾”¾”¾c”¾c]¾”¾”¾3“Žc“„¾cc@jA@AkAqGqrqqGkqG::@A3„: @@3::qA3øŒÀ””cƒ&3”,3”9c]c¾c3ccc¾¾“Ž“c”]9¾½¾”\ƒcdj¾šc”ŽqGqA:qGqqHqGqGq3ƒ:@:9:9:9::9::A øŒÀ”“Ž“ŽŽƒF3“],c2c]cc2]c3ŽcccŽcc½”c“cŽcc]”“Žc]c]\3qGqA@qGqA@AqAqr3:9ƒ:9::@ @:@::ø‹Áƒ¾”c„,3c”c-9cc]cd2]c”23¾¾”¾¾”¾””]„¾$”¾”“¾”½””¾”¾qq9 :rGk@kGA@:939:…: @:@::@::9ø‹Á„¾“c„ ”3c]c,”½]]ƒc-cccŽ“”2¾”“Ž“”½”2¾š¾c”¾”¾“”½”qHq:@A@:@ƒ:@:A@:@:@3999A9G::G3øŒÁ¾™¾Žc„ 22323c”cc]„c(”]cc”232”dŽ“3¾ccdc¾“cdc¾¾GrG3A:kƒ@ :@3949@:A„: 3:: k@qAG:ø‹À“cc– Ž”,3]c]cƒc ]Žc]ccc¾”ƒ¾“ŽiŽƒ¾”¾“”¾„c””c39 99::A:: 2 @„:9:: A:::GkG2ø‹ÀŽƒc– 2”c23c“¾,ŽƒcccŽcdc]¾“¾“””““”¾ÄcŽ“Ž„¾*d¾½¾Aq3AA9q :9 ::99::993 q9: 9::q:øŒÀ”cd–V,32]3\33233c]c”ccc¾¾””¾””Ž”“”jc”¾cd“c”¾@AG:::qq3@::9 ::A9:9:A@A@3ø‹À”c]c—T232c2”¾2-c,23c]cc]cc¾”“2Ž¾“Ž“”Ž”“Ž““Ž“””23¾@@::@:A9@GqG@:@@::@AA3Ak@ :k@9øŒÀƒ¾]˜A]3”””“””¾”\]3c]cc¾”¾2””“Ž”“”¾”¾”¾”¾”¾”¾”¾”]c3: qqA@@: kA::A@ƒ:@@3G@9:949 øÁ”ľ2™P9]“”,¾,”½¾c3c3cd2¾””·¾“Ž“¾¾“¾“¾”¾¾Ä¾½”½”“ qrGqk@A9AAq::@@:9:A@G:9 k : øŽÁƒ¾3™=23,”“”]]c]”\c3cc¾3½””¾“”¾c]cc”¾¾”½”½”¾”¾”¾”:3AqGqGq@3@@3Gƒ: @@::3@A@k@ø‘Ác¾i3™]”3“,c]c”“cc3]ƒc)”]3¾½”¾¾”¾¾”“¾“¾¾””¾½¾¾½”½: :GkAAq::A@Akƒ@ :@A@: A@3 k ø’À”“™J2””½]ccc]“¾,”¾c,c]“]c¾¾”¾½”¾¾””¾”½¾“”¾””¾¾”:q9 :3AqG:9AG::@@Aj:@@jA3 @ø”À“””š],”c]”ƒc>]”2”” ]c“]9¾½”¾¾“¾¾””“¾”””½¾”¾½:Aq qG@rq: j k9@:kGA@@;9ø–À”d›&c3c]c]”cc”c”,c3c”3¾¾”¾¾”½¾“Ž¾”½”½ƒc¾¾”9GqG:9:@::A@ƒ:Gkqq49ø™ÀŽ“Ž“œC]c2c]c,cŽ”¾2¾”2c2]3“]c¾“¾š¾”¾”½”¾”¾”¾”“¾”¾qHkqG: 3 qAq:9A@qGGq ø™Á¾¾-›c]c]3”“Žcc”””]c]c2cƒ¾ ½¾”½”¾”ccƒ¾”½¾@GkG3qG3@A@k@A:@AqkGk ø™Áƒ¾Äœ]cc2d”“Ž“,c””“”\3„c¾”¾”…¾”c]¾”¾¾”“kGqGqAq9:9:@9:AqGq;@øšÁ¾š¾2233c]”“Ž¾“¸”]]„c¾¾½”¾“¾š¾¾c¾½”ƒ¾GkGkGqAk @qA:@qAq@3øšÀ“.,¾”,”Ž“”¾”“¾”¾“”c3]cc”¾”Ä”¾½¾”c¾¾“¾”qrGƒ: A@@qG::AqGƒAø™À“Ž”cž@]¾]“””“¾””¾”½”¾c]ccĽ”¾¾”¾½”“¾”ľ¾GqAqqG@::AkGk:GAqAj@@øšÀŽ“ŽžBccc,”,”¾”½d¾”½”¾¾”]ccŽcc¾¾“¾¾”¾””¾¾”½”qq:GkGk@:@qG kqAqAAq:A3ø˜À“ŽiŸ&3””2”½”“¾”¾”¾“Ž“c]ccd”¾¾“¾¾½”“ƒ¾ Gq:AqAq::@ k9„@:ƒ@A: ø˜Á“ŽžB“Ž,“”””cc¾”½”“-c”cccŽc¾Ä”¾š¾”¾”½”,G:GkG@:@Aq ::@AkA94:@@3ø˜Á¾¾Ÿ”c],”,””]c]3¾”¾¾¾”]”…c#¾¾½¾”½¾””¾¾”q:: q::@:@:@::Ak@GAqq:3ø™Â¾¾žBc23]]“,”2Ž“,9\”½”,”¾¾¾”ccc¾”¾¾”¾½¾”½¾G :3@::@A@:@:@AqAqAqG:ø˜Â¾2ž0cc]cŽ“-cc3]c3¾”¾”½””¾“¾]”cc¾”½¾””¾”¾”q3:GAƒ:k@:k:@kGkGkGk: ø˜Á“ŽcŸ7Žc]c3cŽ“c]”c”\”,”¾¾“¾”]“Ž”cŽcÄ”¾½”½¾”¾G qAqAkA:@@Gƒ@kGkG@:ø˜Á“ŽŸ22323”“ccc2c¾cc¾c“”¾“323\„c¾”¾”¾”½¾q 3qGk:A:@kqq;ƒ@A9:94 ø—ÁŽc“ 3“-c2”Ž ¾2-”2ƒc.Žc¾”¾¾””]c”cc½”¾½””q @@kG9@:2kGGqA:qAq@A:ø˜Á“Žc AŽ“2”Ž,“c¾“½”3Ž]cŽc“”½”½¾½”c]“]cc”¾”\Gk@AAk @3:@@AkqG@kG@qA::@ø—Á¾” C“”¸“¾c,”¾”¾“3cc””¾¾””¾¾”3]”¾9¾”¾@@AjAFk :@:qGAqrAkAqqG:9 ø•Á¾¾ 0,”2Ž“ŽccŽc2”½ŽŽc3“cŽ”¾”¾½¾”½”¾3\”¾“¾”@:A9AkGk„@:kGAqq9A@A@3:3:ø”¾2 +cc]””cc]cc]¾cc3½cd”½¾“¾”¾”¾¾“¾”“2”Ž”“¾@@:ƒ@:A@k:A@AqA@Ak:3:9kG::ø”Á“cŽ E2]c]2,cc,ccc,c¾”cc¾”¾¾”¾“¾“¾”¾¾”¾¾22¾”:q@;@A@q@Aq:39GqkGAqGq:Gq:@ ø“ÁŽc¡C3c232”, ” c2””cc¾”¾“¾¾”¾”¾¾“¾”½”¾”¾¾@A@k@jA3A9:G@ qGqAqGqHq::G::ø”Á“Ž“¡C3c””,¾”,c¾¾“¾,””¾”¾”½¾”½”¾”½”¾”c¾”qk@A::99::Gk94AkGqkGkG@::@ø”ÁcŽ¡ ,3]]”“¾ƒc5,”¾””¾”“¾½”¾”¾¾”½”¾”¾“¾cc¾GA 3@@: : @qAG9@A@AqGqkq: ø–Á”c¢Ac23c””cd2”¾½Ž“¾”¾½¾“¾”““¾“Ž“Žqk@@A@qq 3A@kG:AjA@rGqr:ø•Á”¾2¡C323½”23dc””c]”¾”¾”¾”“Ž“Ž”Ž“”Ž“”¾GA@kqAGkAqqqrq@A@qqGkGqG:9ø”Áƒ¾¡C3c”¾”3”233c¾¾cŽc“¾“¾“”¾“Ž“Ž¾¾”¾“Ž½”q:9AAqGkG@qGrAGqGkqArqHq:ø”Á2¾2¡Cc2c¸“¾¾“3”]2c”½c”¾”¾”cc””¾“”¾¾“Ž¾”¾G:@kGAkG-AAqqqGrqGqAA@q2G ø”Á“d¢@c2”¾”¾”½c3¾“”]c]”½¾¾”¾”½”¾¾“¾”¾“¾¾kAGjAqGk@A@G:qGrGkGjA::@ø–Áj¡B,cdcc¾c,”3½”¾”]¾”“Ž”“”Ž“¾”¾“¾¾”½¾”¾”k 9::3 3qG:@@kGkqGrqGA9:@ø•Á”¡*c3c,ccc”]”¾“¾2c”¾¾”“Ž“”½”¾”“¾”¾½”½@9:„@:Ak@A@qGkrGqqƒ:Aø–Ád“¢,”,c”,”cŽ“32¾ƒ”2”¾“”¾3ƒ¾”„¾”¾”¾:GqGkGk::qqA2HqGqGlGr9@@kø–Á“d¢>”“¾”Ž3c¾¾c”·”23“¾¾”““”½”¾“””½”½¾”qGkA:qA@@ qHqAkA3AqAAG3ø˜Á”¾2¢<¾Ž”“,”c2”“Žc”“¾,¾”¾¾¾Ž”“3¾””¾¾””½Hq :@@:A@@:Aj9 Ap3øšÁ,¾¾ 2,c¾Ž2””23”]9”Ž2”¾”½”¾”½”·”,¾¾““”½”¾:: 394@:3ø¦Á“d“¡'23c]c3c3½””]“Žc,¾”¾”½””“Ž“”2-”¾””¾”¾“¾ƒ øªÁd¢&3\3c]c2Ž]2Žcc¾”½”“”¾¾”3¾¾“¾“¾“¾“¾”¾ø°Á”“¡'2Ž“cc]ccŽ“cŽic”“””½Ž¾“”“]2¾”¾“””¾¾”¾“¾ø°Ád¢”dƒ””c]”¾¾”“¾]3]”½¾”¾“¾“ƒ¾”¾ø°Á“¢c3d“d“Ž“]c”“¾”“”]Ž“c¾“¾”¾¾”ƒ¾”“¾“¾ø°»2]2ƒŽc¡(]“d2cŽc”“”¾”c]¾c””¾”¾¾”½”½””½¾”¾¾”ø°»23„“]Ÿ*3\93,cŽc“ccŽd”“¾]¾”¾”””¾¾”½”¾”¾½”¾”¾“¾¾ø°Ác” )c]“cc233]cc3“”c”“¾“¾”½”“¾”¾“¾””¾“¾¾”“ø°ÁŽ“¡Žc]”232Ž”Žc”½”¾””c¾”¾“¾3]“ƒŽ””½”¾ø°Á”¤$Ž2”¾“Ž“”¾Ž“”·””23]“”Ži”“¾“”]cø°Ác“Ž¦”“””Ži¾”“¾”½d“Ž“Ž¾¾”“Ž“Žƒ¾”¾Ž¾“¾ø°ÁŽ“¶”½”¾¾“Ž”½”¾½”½”ø°Á””øøÁc¾2ŽcøéÁ2”cc•øàÁ]”c“c””øßÄcŸøÖÄ,c­“øÈøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/%-%øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄåcøÖÚ]“¾“”½Žƒcc„3]øÏÇc“¾”“ŽŠ]c¾¾”¾¾”““3Ž”¾“¾“cøÐÆc¾”¾”¾“Ž“”½]c]cc¾“ƒ¾“Ž””]]”½¾”ŽøÐÇ$c¾¾“¾c“d“¾”¾”¾”½”¾“¾”¾“”“¸cc”¾”¾“ccøÑÇ”¾¾c]¾¾”½”½”¾”¾¾”¾“””¸ƒc]½¾¾”ƒcøÒÇ!c¾“32¾”¾¾”¾”¾“¾¾“¾c”·”“”¾”““”øÔÇ!2”c¾”½”¾½”½”¾“¾¾c“Ž””¾“¾¾”]cøÔÈcd½¾”¾”“”Ž“Ž””ƒ” “Žc”¾”¾cc]øÖÈŽc¾””¾¾”¾””½”½¾”¾”½””› c]“”,2ccø´Ç“”½”½cc“Ž“”¾ƒ”¾”½¾””–”“323½”¾”ccŽ”“cø°Ç””¾””¾c””“ŽcŽƒ¾ ”½¾½¾¾”¾c]— ”½”¾]3]Ž„iŽƒc]ƒ23ø«Ç“¾”½cc””·”¾š¾“¾¾”¾””½¾˜\2”¾23““39jŽŠø«Æc¾Ž”ƒ¾”¾”„¾”¾½”½3˜]cc”ƒ¾ ”]3\]3c3cø¶Æ ¾”“”“”“”“ƒ¾“¾““ƒ¾˜“”“¾”¾”¾½”¾”“¾“”]2…”]”½”ø«Ç”Ži„¾ Ž¾¾”¾“”cŽ””˜ 2]c¾¾2]c]ƒc23]“”]c2]3¾”,¾“cŽcø«Ç¾”Ž“”“¾¾”½”“Ž32š]cc,””“cŽcc]]2]c]cc22¾2¾ccƒøªÇ“”“”¾¾”½¾”“cc3]3¾“Žccß3,”]ƒc]9”]33¾”]3]ŸŽiøªÇ ””¾”¾¾”¾cš#2]ccc“”cc]Ãi“hi22É™”Ã8c8b““3“ÉÃi22ø«È 2”¾½”¾ccœ]…cŽ\22ii23b38cbcbc229b88982É9bøªÈ 3¾¾”¾¾“””›%c32323\232382cbc 32988983:c8c]qq 332øªÈ2”ƒ¾“Ž”—”2,3cÓc2chcbc:3@9rw„: @rwA9:GqHr9q:ø«È ¾”½”“3“-2”¾”¾c]28™“28c829: 9::qHrq:93rqHq49rqxHrø«È””¾”¾”3’/]2”23¾½”¾883™b8iiqrG: 9rq:qx:qwr:qrH9xqx9:ø«Èc“¾“ƒ¾2]c2”Ž2¾”¾¾”ÃÃÉ,ic“9Hq kAj::rqHqr9::qrwHx9:xHrrx::øªÉ””ƒ¾cc23”“Ž“ÉbbcŸÃ™É839rqqAqGGkGr@A@A@AqxGAAqAxqrwxqHw:øªÉ¾¾”ccŽ23232”,”cbcibcbÉc :r3HxGkqA3 939:933393 9 9 3 9ø­É¾¾”½c2,c]c“Ž”™“i8 ƒ:!@3:rxqrqH9 3 9:GAq 3 3 3 33 ø­Éľľc3c3c3“¾c™’9b:39G:9 Gr9::99 3:39Gqrqr9@:3 3 3 33ø­Èc¾”cŒ7232c]c]cÃbcqG3rr49Gk :393399rqHq: : 9Gq 9 3Grqø«È”“Žc‹2]c]ƒc ™ÃibNq4 33ƒ: 93 3: 9 3ƒ kG9:9:3rqq qqHƒqHq:ø«Èc””“‹#2cc3]¾3i’92@rqrqx:: 33 9 3 3 3ƒ:qH9::9HqrqH9rHrqrq:ø«Èd“¾”,‰2]”¾ƒc3ÃÃ28xqA:@@:@Ax3 33 9 9 939 rqGqAqA 99rMr9:qwrMr:ø«É“¾”,‰;cc]cc]™ÃŸbr9:rqHw :93 33 3: 3 :AA9A@Aqrxrw::rHqrG::Hqrwr9ø«È2ƒ¾‰<,c]3c™“bcxxxqxr 39 9 933 33:9:ArqAAwrG:9:wA@x:9:wrxG:rø«É¾”¾”ˆ 3]“Žcihc2rqAƒ@: 9: : 34 3 : :9:ƒqxqrqxrrHxrqrqxAqHwrrw:ø«È”¾¾‡?c2c3¾É]8rx9Hq33933943 9 9 :3@:::@HrwHxGwrwqGxrN@rxrrMr::øªÈc““…*ccŽcc”½”“iwAxqG39 9 : 39 33:9A9:qGqqGƒqrrGƒr GqkxqGwrrGqGqøªÈcŽcŽc…,2]2””Ãih“rxxrqA 3:3 : 99 9 94Aq9A9AxrrxHrƒ@rwHw9H:9rxr:GqqrrøªÈic†]cƒ¾;™™“iwrGqGAk9 9 93 : 3@:k@A@:9HrqNqrw:@:@:xr:GqqHqGqGqrNqxøªÈ3cŽ2„.232¾”¾“™™’i:GqA39 :34 3::3@:9@A9 qxqxrGrqHƒrwHqrrGrwrxrxA@xrGøªÈ2¾¾ƒ2¾”ƒ¾=”¾Ã™™::qqG3 9 93 9 :3 :9AA@k :@:rxGxqxqxqNqrwrMrwrrMrwAAqrwrøªÈcƒ¾ƒC¾”¾¾”½”“™Ã:qGqr:39 9 :9: A9:9 ,@:GqGqqHqHrwrMrrqxrxqGrxAxqxGrxøªÈKcc¾c3¾¾”“¾¾”¾Ék:GqBq3: : 3:@3 99qG:@@:qqGrrG@AqxGrrwHxqHwrx99@rxrq:3ø©ÈOccd,3”½”“¾“ÃÉA9qGqA9: 3 9  9AqG4x::rqHrxrxr@ArxrwrGkGxrxr@A:Aqxq939 9 ø¥ÉJ”c,cc¾””¾ÉqAq:A:94 3 3 9:@@3Aj:9rqxqxqx@@j@@rxGrwrqrw@A@A9: 9::3ƒ: 9 ø£É.Žc3]c”c”™É:AGq:9:3@:9: @A@kF:rxrGrGrG†:339rrx9 49 3  …: 9:3:3ø É*“3¾ccŽc3¾¾Éi“G:@: :33q4 9:9@k@3AAA@xrƒx(:@:@ ::: 9Nqr9 3 3 :9::9:9: :33:9 3øžÈ 3¾¾c]c]“¾”““i9:93:9 : @3@;ƒ::2Grxqrwr9:9 9:9:::3 ƒ:3 3 …:99:39 ::9:3 9 ø›ÉL¾”]cc]c]”“Ãhi9:q:333:@@9A@:93: kxrwr:333 qA@ 3:9:: 3 9 399::3ƒ: 9:@:3::9 ø™ÈDc“Ž”2”c¾“”Ù“i@rG33: A3 3:9:@:3GqGrwrrx 3 3 3: 3 3 3: 9:::9 3 9ƒ:939ƒ:9:@: 3:9::93 ø˜È-Ž“¾”½¾¾”“™™“ÃrwA:9 39 :99;@Aq:xqrxr::99ƒ:::9::93@::9 :@A@@ @ƒ:::@ƒ: 9::9:3::3ø—ÈPcc2”,¾”¾”¾™™2rwA@:9  @: 9G:3@:qHwrw ::93:@::@:@99: : @A9:::@k@: ::@:93:9…: ::9399:9ø•È1cŽc]2”2¾Ä“¾“ÓGqG:3 k9:9 9A3 93xHxqrxH@: :@::@„:@399ƒ:GA:@3 :@9:@:@: „:99:33: 9:9ø”È„c^¾¾ ¾”““™™Aq4993 A,: :3xqrwHqxqx@: :G3:@@3@:@: :: @@399 99: :: 9:@:9:9::49::49: 939 : ø’È0c3¾2””¾™Ã™AG33:9 9 9q:xqHxrxqHxr 3 3@:: @k„: :A„:9„: 9:@A@:@ƒ: 993:9 9::ƒ:4:9:9ø‘Çd””]]2ccŽ½”ÙGkG3:A9: 2A ::qxrwrGqr::9: 393@:@:G 93 3:G9 3A@ 3:: jAk@:@@:@:@3:99::3::93 3 ø‘Ç\2”]ccŽ“¾”iÙqAq9:39::3@GrMrqGxrwr@:@:@:: 3 3@:3999 3  3A: 3:A@G:@:@::A:9:9::9:9ƒ:394:9 øÆA2”¾”¾cc,”¾“™™ÃG:9k@3q9:GAqxqrxrGrxH@::@:@:3:9 : 3::3:993:3ƒ9$ 393:@:@;@3 3 3 3: 9: 9:393::øŽÇ'¾“¾2”-ľ¾”“™™q:9GH: ::qGqrqxrMrqxq:@::ƒ@3:@943 93:9:94:: 9339:9: 93 3 99::@9: : 9: ƒ:9:4 33øŽÅ33,¾”¾¾¾”¾“™Ã™r4q9Aq:@rAGqHwrx9A@A@A@3 3 ::@3 3ƒ 4:9AA3 3 3A@@:A::93 9:9 ::@::@:: 9399::9:9 :9øÅ2-ƒ¾?2¾¾”“™jA:q:AG:qGrjxqHqrxG@A,@:9: 9 3 3::93993 3 39 9@:A@::ƒ 3AAkA::99…: 3 3„:9: 9ƒ:4øŒÄ43]cc“d2¾c”¾“ÃGAqqAAGqr@rqxAxrxxGqrrq3@A9 ::39::ƒ:94 39 9 „:@:†@ 9G@@:@39:3 @G2 3 :99ƒ:: 9øŒÅ0“c”c3cc,“c™rpA3xqrqGqxHwAxq:qGrxxr3:9393ƒ:@ƒ: 9 3 A„@ jAkAk33 33:@:3 3 23@A9 :@ƒ: 9::39 :ø‹Ã,c”]2Ž¾cc3cdÃrAGAqxrxrqxrGqG rxxqxxr9:3„: 39::@ 93 :@@ƒ:@;@A@:@ 9:  3 9:9…:9:3@@AG:9::9:::3øŠÄ1“,”23”¾cc¾”oq@kGr@krqNrq@rAkqxqrxHw9 3:@::9ƒ 3 3 ::A@393@:@j:A@@k@A:@@:939::9::@:: Ak@k93@9ƒ: 93ø‰Ä,3]„¾c¾¾”““AGkqr@xrA@ qxGqHxrqx„:3@: 3:3393 39 :@k:ƒA:@:A@3A@AjA@:@A:@…: :@:9 G:3 „: 9::3@9: ø‰Ä623”½”¾š¾¾¾¾Žo“GkFqG @@3@AqrxqGrwx @A@: A@3 ::9:9:9ƒ:7 3 jA9::@k@k@A@jAjA::@:@:3 @:9:3 3 3@99::9:93øˆÅ%”¾“¾c¾¾¾š“™@kAkGk3@ qrxqxrxqxrrxA:ƒ9 3 3 93„: @::9:9::9ƒ:ƒ@+:93@A@A@9:@:@::Aj::3:9 :: 9@: :9 3øˆÄ5c”“¾cľ¾b™rGq@r@:xAqrxGrwHqrNw j@ 3339 :@@:@…:@Aƒ:0@9@@;@A@A@:Aj::A:9: @4:@:::@: @:3:3 AA@::9@39ø‰Äq]iŽ”“dc¾iŽ8™ÃqAq:xqqqGrqrxrxGxr@A3 93: : @:@: ::9:9@A@:9@:A@A93A@Aj@A@A@@A@:j9: 3:: @A3 @3::9k@:: @:3 @3ø‡Ãrc]cc,c,dŽ¾¾cŸrGq@Hw:rGkN@qNqAxkGq:@: 9:jA:A:@j:9 9@A:@@A:@:@3: 3@k@;@@j::@A::9 9 @:@A93 :9@:9: @3::ø‡ÃV2”cc ¾”c¾”Äb™qA@@rr9rGq@rqAqAqxqr::9 39:@Aj@:AA:9:@:@Ak@9:9@3 49:9 3A@@;@:@Aj 3 ƒ:9@:3 3 3@:::9393A93:39ø†Ã Ž½-”2¾¾cc¾ƒ¾2™“Gkq@rw @r kNqAGqrxHq9:3@A:@Aj::@:@::@:@A@::@ƒ:09 3@A@:Aj::@:@A@Aj::@: 33 @:@: jA9 :9:9493ø†Ã“”¾¾c¾”2ƒ¾š¾¾o“Gƒr#N@ArwrGqrxqGqxrx:3@A@3::::@:@: ƒ:!39 3@3:9A@A3 @A@3 9 3::@k@@A3::9ƒ:@9: 3 3:A:9:: :33: ø†Ã,c¾¾”¾¾”¾¾¾½™“@qG@kAjrq@Arwrxrqxqxx3k@: „:9 :Aj 9:@ ::@:ƒ@:@Ajƒ@-3 :@@ƒ:9;ƒ@„:@9ƒ:AA 93:@:9 : 93ø†Ã/]c¾c2c¾Ä“”™“ÉrG@k@:AwGqxqrxrxGxrN3:3A::9::@ƒ:@9:9A::@@A@AA@A@@AA:A@A@@A@Aƒ@"A::k@:@:9@:@::9j:AA3 :@:93:3ø…Ã,cc“cŽcŽ“¾]8ÙqA@rx9rGkGrxGxqxrxr:: 3 :ƒ@:::4ƒ@:@:@:k@:@k@k:@@k@:@:k@ƒ:@k@@ 3„:9::@: :9k 3@::4: 9 ø…ÃBc¾cŽcŽic”3cÉ™xkqxG:qrGqArxrGA@GGqA3, 3:@@A:9@3 @:@A:@:@:@:@k@„:.@:9::@:3 :@@:@A@:@:@:@:9::9::9 :@:@A:9 934ø…Ä7¾”c3¾d]ľ™ÃqGrrx GqrGqqrGjGkAqA3: @@Ak93:A@2A@Ajƒ:9@A:@::A::@:@::@@A@:@@;9::@k@A@::9::A3:@:@:9:@:@ @A939:ø…Ãt”¾¾2¾”9¾,¾¾““™HqGxq:qAq:AxGAkqGxrq: :A:@4@:jA@Aj@49@@Aj@:A@@ :9:@A@AjAjA@k:@A9:@AjA@:@::@9:: @::@:@@k9 :94ø…Ãc,¾”ƒ¾m2¾¾Ä”¾““™GrAGAqGrqGkGqxrqxrx9::@k@k@9:@A@AjA3@@A@A@A@jA@j A@AjA@A@A@A:@:@A@3@A@A@:@:k@ 9 3:@:@A3:@A33:9ø…Ã+c¾¾c”¾¾Ä”¾¾ÄŽ™“qrqkGkAG@xAqxrGrxwr :A@:ƒAF9Aj@k@ 9A:@:k@A:A@A@@k@A@:jA@k@:@@:@:@: @k@A@:A@Aj :@:@:A94 99 ø…Ã4“d”c¾š¾¾¾¾““hGqrGq@xqq@rxAxxqGxrx9:9::9Aj:9A@A@ƒ:@AA@A@d@@k@e@@Aj@:A@@;@:k 9„:3:@AjAA:@k:Aƒ: 9:9 @ 3 3:9 ø…ÃŽ½cƒc,¾¾2¾“™cqHqrrAxrr@rxqqxrqxr@ 3: @@::9k@ƒ:/@A@jA:@AA:@:@A@@:@A@k:9A@34@::@:9:@@:k9:A:: ƒ: A9@39 993 ø„ÃK“¾ŽiŽ¾“ÄŽi¾ci@qrMrwrwr@xqGrGAAGqAq :3@;9::9:@A:9:@::@:@:@:j:@:@k@A:@k@:ƒ@'A:@:9: @A@k:@::99:::@:9:A :93: 3ø„À92,3”Ž¾””Ž“3¾”Ãh@rqrxrMrx@AqAqAq@qGq@:9A9:9:@:9::@:ƒ@:@k@9::9:9 @k@A3:@ƒ:9@A@:9@:AjA@::9…::@ 3:@9:9 49 3ø„À,]c2”c¾¾”“ľ“™“iqGxxGrxAqGkAqGqqrqA:9 „:@ƒ:9:@A@A@k@:A@3@::A3@A@9„: „:9 A@ƒ:9:@A@9:@@@3@:49:: 9:9 ø„À c”2Ž¾¾”3“„¾:”Ù™qrxrqAqAqGkxrAqxrG3::9@:@:9::A:Aj@3:9c@@;@:i“2 ;j„: 9@:@@4 jA@A@k9@AjA@ƒ::k 3A9 :9 9: ::ø„Ã4”,c“¾¾2¾¾Ä¾Ä”™™Ã xrxGkGkArGAxqxGrxr3@:AA@@::9::9ƒA  @:@kb9b :@@::: @A@k@A@@„:@A:@k@A@93A@:3 3A9:: ::99 ø„Ã=cŽccŽ“¾¾Ä”2¾¾“¸™ÃAGxrGqx@Awrqrxrqxxr :@@kFAk@::9:@@393A@k39„:/8:@A@A@::@k@@Aj@:3@Aj:9A@A@:9493 93 9@@4:@9ƒ: ø…Ãuccc””c¾¾Ž¾”“Ù™qAxqrxr@xrGwrxGrx@qA:9@:A@A@:9 :@:@AjA@ 9::@A::9k@49:@@A@::94:: @A 9:@j4@3: 3 9 A3A:@9 :3@ 2ø„Ä3cŽ“Žc¾2”¾”Ùqk wrwAxqqrx:GxAAx…:@kƒ@39349Aj@A ::@:ƒ@ ::9::@A@@k ƒ:#39@k@@3A@A@33 9: jA 3A9 93::jA ø„Äc323iƒ¾H“Ž“”¾”É™“qGq xr@xrGr@Grqqxrx:9993@  A@3A 3@k::94@:@k:: @@:j:39 9†:9@@3 3:93@A:3:F3 @@9:93:@9ø„ÄG23c3¾š¾Ž“Ž“¾¾™™kr3xArGqGkGqxGqGqG33A:3A@kA94k@A3:9:@::22:A @@jƒ:A:: 9@@ 99 A3 3Aƒ:@:ƒ@ @::3:@:@k:A::ø„ÄD3cc3c3¾¾2”””™GqA9AqAkxAqAxrqqAqA39 :Ak 3 3@3 k9:@ 3::i2:9ƒ:-@A9:9 9: ::@:499A@A99 3 :@A@k:@A@9A:A@3:@:ø„Ät]]c¾c32¾Ž””“,ÉqqAA:qxAGqxA9rxxGrGk9:A@@ApA@:9A@Ak :@A:3:hcicb: @A@A@:94:9:A@9@Ak@AA@:@:@:@@9:A@qA:AkAø„Ã']cc]”32Ž2c”””¾ÃAqGq@Awrqxrx qrqGkGƒ:A@kAAjA4A9:@9: @:@ b8b8c9A9ƒ:*@:@ 3@; kA kAjAAjA:9:Ak@A@A:kA@Ap:3G@qø„Á)23229¾cc””Ž“”“ŽcÉ2::A@kxrwAqqr@@Arxkƒ@AkGj@AkG99:AkA3“c@ c“ƒ20:3 @@A3:94@:@kFk 9A@qAFkA@G@k@A9k@q::G: kG3ø„Á&2Ž“Ž2]2ccŽ¾¾c””,Ž¾“Ž“cb@r@A:qH@@GGrGkƒx,:Gk@A@AApA@AA@:@: ::3 @39b9b3::9Aj@: 9A9::9ƒ:9@:Ak@AjA@kAk@A3:@:@@:@:93Gk::ø„À]cc”23”ƒcÄŽc¾c¾¾coißrƒ@=GkxrkGrxAwrx:GqGkGj@AkAjAj k9:9i9:3:9 c82:9 A:3 944A@AAƒ@A@AApAFAk@ 9:@@AjA@::@@: ø„ÀK3”c”¾]cŽc“c3“¾Äc“hiÃxAjrxAxqxkxqxrqNqA@k@A@k@9AG@A@GA@::9 9 ““i“i2ƒ: @:: ƒ@jAqk@k@@kGjAAk@A@3@ …:9A@:A@:ø„Àx]c“Ž¾¾½””“]3”c¾j“É“™q@ArwrxrxGrxx 93rxrGkq 9A:9AjA:k@@:@339283 3™“22:9Aj 3A@ :@AA@AjA@kFAj@: 9::@9kA:@@k 2ø„À82”,”½”,”¾3¾””½Ž“¾Äc¾¾”“™“3qHqqNqrwxrqxrGqxxr@GqA@:3@A@ƒ:=9:9:@:9c“i2:rNq c@A:@ :@:@:9Aj@@Ak@A@A@49:@:A@:@@k@::@3 ø„Á”¾””2”¾“¾2¾”d2”¾¾Ä¾”“™rƒx4Gq3G:xAwHxrqxrx@qAkA@@:@@:9::@: :@Aib22@ wr 9cA@:9ƒ"AjA@k@@:A@k@A@k@A:AqAA@:@:9@4::ø„Á1c”“”¾”]”2¾“,¾Ä2¾¾”™Ã™rxqHrG@rxrwrx rwrrAqG„:@:AA9 ii’icb8A@A83rxrxr93@†!@@AA@:@k@@AkG@::9Fk@qA@:@:: :?:ø„Á2,”ƒ¾K”½c3cŽŽ“ ¾2 ¾“”™Ã™™qrGqrqAwrxqrwr9AwxrG:@:A@k@qA3hib2c2:3 rqxqxqNxk:@… 3:@:@:@:Akƒ@k@3 AqAj3::9:@Aø…ÃO¾“”½””cc”½3iŽ”“c,”¾”¾™“™GkqrqArwrN AqxrGrrwr@qGk@:Gk@Aihii292:xxqHxrNrxrx:@… kAk@A3 @A::9„::Aq@ ::@::@ø…Âcc¾””¾¾c,¾¾c,]3c¾”„¾5“”q::xNxwrxrqxxqrxrGxxr@@A@:@:@@ji“b“2cb2 qArwGxqxrxxƒ:9ƒ: @9:@@-@qkA9:A:@9::@@j::9@:9Gkø…ÂccŽ½”ƒ¾ c3”d”“Žcƒ¾ľ”½xxGkwrGrwHxrqGqGqqrqxrrƒqBrq 3 qrGch 3GqGqAq:rqGqHqrGAqA9AA@qGqAGqqGq 9GqGA@:3A@:9H@AkG@øƒÃy¾”½”½¾”c3“c3¾3¾ÄÄ”ArqAGrq:GqqGrr 3 GxAGqxrGGqHkxrqGqqrGrqG3 @:@@:39GqrqGqrqAwrqGqGqGqAAjGrq jkAAA@:9Aqk@Gj :@:øþ“Ž”ƒ¾c323d“ƒc¾i]”¾¾“qGkGGq: rqGƒxQAqxrGqxxrqrqxrwrqHqGxxqAk@kAxrGqkxArGqHqHqGxrqrGqkGkGkAq:AAk 2Gk@9AkAqkAA@A: @Aö ,”¾“¾”Äcƒ¾ dcc”c9”¾2ƒ¾b”qr:9rxr@xAqrxxAxqx:rxxGqGqGrGrqGrqGkA@kwrxrGGrxqqGkqGkAqAAFrrGkrGAqG@rGk@GA@:9GA@:A@q@::9:kqAóÓ”Ž“ƒ¾ c”¾c”Žƒ¾k2¾¾“3ľ“ xr9rxxrxqxqxqrGq:9rrHqrGrGrqGqq @@Arxqxr@k@AAqAG:@:Gk@3A@AkAFkq::@qAqr@kA9:Aqk:q@A@k@A:@@A@:3ñÂy”Ž¾“¾”c”¾c””“2¾¾Ž¾“3¾”Ax3:GrqGAqGGql kqxrG@qqGxx9:@A:: 3Ad@@ 3@ 3GqGq3 3 qGqGjA@@qAA@@:qrq G@@:9AqGAGk@k@@3:@ :@k@@ 9::9”ƒ¾>,3i3cŽcc,”,c¾““Ž¾2cc¾“Aq q9GqqHqrAqxxAqxrxAGrrqxqGr9:AkA@@:„@AjAqAqqH@rxqAqAq@r@:Aq@rrqG:ƒ3:rGkG:jGq@AA3Aƒ:AA:@49: ð Ž“c3ľcƒ¾vc”c32dc]c”¾”]”¾¾ xxA3xxrqxxAqxx xxr@qGxrxGrxqG:@@: - -@: :9GqAqxrxxrGqAxrqrqAxqxGrq:@A9:AjG3AAjH@q3@@:@@q::: 9: ïÂy,””“”“¾cc3¾cccc3”c¾¾”2¾¾9\¾Ä“Axx3 xxqrxxAqA33GqqAqAG3GAAkFr@@rx@AwrGkx::AqGkGAqAq:@:@:@:xqAA@A:@:AGkG3A@@9A:AG:q@: q@@:@9::3ïÃ5cd“¸””¾c2cdc”c3¾c¾Ä2Ž¾2c”¾Ž“kx 9AxHqAG3A@rqA@Aƒ:@kGkF3ƒ:. j@krrwA9:9 3 3339@:@: ::@::@@:39:AwkG@9G@kAƒ@k@@AA@q: ::9 :9ï c””“¾¾ccƒ3ccc,c3,3cc”ccc¾Ž“¸“¸”“dc¾¾”¾¾”¾“¾”¾“¾¾”¾@x@:9qAkGq:: øšÄ”¾ž]c”¾c]cd“Ž”cc”¾¾”“”Žcƒ¾“¾¾“¾”¾½¾¾”½¾¾øªÄ”¾ž32¾”“”ƒ¾ “Ž“”]c¾¾”cƒ¾iŽ“¾¾”ľ”½¾”¾”¾”¾”Ä”½øªÄ“¾”Ÿcƒccƒ”!½Žc¾”“¾c”“””¾”¾””½”½”¾”½”½”½cc½”¾øªºc,,…Ž”½ž-]cddcc“¾”“Ž½c]”½¾”½”¾“¾“¾”¾”2¾cj””“”]”øªÃ”¾”.2c]cdc¾“”,323”d”¾””·”Ž“Ž¾c“Ž“Ž¾¾“”½”¸“3øªÃ“¾Ä]Ž”]ccic¾“Ž3””d“”¾“¾“¾””ƒ¾“Ž“Ž”ľ¾”¾”“¾¾øªÃƒ¾8¦”¾“¾”“Ž‡ Ž“Ž“”¾š¾¾”“øµÃ3ľ]øõÄc¾“c•cƒ™¾2øÀžc]–”ŠŽ“Š3øÅøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿÉ& ¢Ø2& ¦ž /' ¦ªN&Ë' ¦ªN&-' ôÐÉ' ôÐ2' ÷Ð /( ÷ÜK×Ë( ÷ÜK×-( C³É( C³2( F³  Qý: Qý: Qý: Qý:,/&-&øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄêcøÑÍ‘ 2””“2ƒc„2øËÌ c¾”“”cƒcƒ2]”¾“¾”Ž””33Ž“Ž“3]øËÌ$”½¾”¾c”””“¾“”¾”½”“”]c2””“¾c3øÌÌ"””¾c””“”””¾”¾”“Ž“Ž”Žcc]¾“¸”23øÎÌ!33“Ž”¸“”Ž“¾”½¾”Ž“”c“Ž“Ž“ŽøÏÌ 23cd“¾“Ž“”“”Ž½”¾”“Žc””“Ž“3øÐÍ]“c”Ž”¾”¸“”Ž”“ƒ” ”””¾”33øÑÍcd““c”Ž“c]”½”½””“¾cøÓÌc”c”ŽccŽ””c”¾“¾Ž””¾323øÔÌcŽc””¾“Ž“Ž¾”¾”¾”¾“Ž“ŽøÙÌ“Žcc¾“¾”“¾“¾¾½””½”2›2”“ƒƒ3øµÍ ”cc””¾”“””¾”„c]3]›3¾¾”¾ƒc2cø±Ì”cŽ“”·”¾¾cc]œ2Ž½2Ž½”¾Žc”ŽŽccø¬ÍŽc”½””¾“Ž]3]œ,2””3c”“3933223]”“cŽ“ø¨Î 39”Ž½”c]8›!223” “¾]””“¸3cc3c]2”“¸ccŽ“Žø§Î 2]“¾“”Ž“Ž“›!3332¾”Ž™”2c“”dc2,”ccŽø¨Î 3””¾c›\32Ž”””cc™c2ƒ9™Ã™Ž“2„cƒ™cø©Î cc¾“Ž“d¾3œ"cŽ“”c22“ii“8\8c8cb929“ccb323bc8ø§Îc”¾¾“¾— “Ž“,ccŽhƒ2cbcbb8b9c82382cbc8b29bcbøªÎc”½”¾”c“2ƒ”$½”3c‡™ic98983229 :GkGkq 3:AGq 9:GqHøªÎ,Ž””¾¾c“'c3cc™™,™Ã™cb22,2c::3kGqGqAG qqGrAq „q@ø¨Î¾“¾“]‘\c3i,22icihcb qq:ƒ@:@r9 3::9rq::qGq qHqHqH ø§Î,”¾”¾cc,c33“ƒiŒbc2A q:GqGrq 3@„:: :9@::3:39ø«Îcc¾“¾]cŽ.c2Ž292“22bc2989@3q 3G3 :3 :9 9:9:9: 24 9::9ø«Î„cŽ“”‹ ]233c™Ã9ƒi$ch2: 3 A3 3 99 9 3 9 9::994 ø¬Î]cŽ“,Š23c2,2“™b,@qqGq q k9 33:93 3 343:93:9:9:39ø¬Î2”“¾Š32]c“”3Ã22crqHqAqAqrqG3 3 3 9 93:94::3: 9499ø¬Î,”¾”,‰32Žc3]2™™92A qqrq: 9:9 3 9 93 9 9GqA9:939:3::94ø­Î2”¾”,ˆ8]22”2“c22qAqqHqGr33 :39 9:9 9: A 3GqG3494::Gø©Îcc¾“Žˆ832Ž”™Ã:rqGA9:@9::933 : 9 9: 3qqA@AjA3 qGkHq:: @A qø©Î]c¾c‡:,32””i“q@rGqA:@49 333:9:9 qqG:qqHq 3 qqGq qrqqG3ø¨Îc]ccŽ†c2”™ibiqrGqq@3 94„:"3::2:9:AqAqHqqGqGqHqrGq:qGqHqG ø§Ïcc†=cc¾””““biqHq@A@;9333:99 94 ,: 3AA@AjHqAqqAkGqrAqGrGqrAjø§Î23¾”‡<¾”½”’iibrqAq: :93:94::9 9 :33q::qqrqG39rGrGq A qGk 3AAqGø§Î3\”¾…>¾”“¾Ž“™Ãc@@qGA39: 99 9:394 9:3G9 qGrGqrq3 rqqr:qAkAkGAkqGqø§Ï]”c“¾“¾”“”¸ÉÉ@qGqq9:33ƒ:) :39 @:@:9:GqGq qGqGqqGqGqGq@qqGqq@:qrGø¦ÏG3c”””·”“”ÃG:kHk@:9 :::394:93:: 3rqAA@qGrqHqGlGkrGr@rqH@rGA@rø¦Ï#c“””c””¾ÃjGq:@@43:943 39ƒ: :GrGrqqrH9rGqAqqHqGrqH@Aqrqq 3ø§Ï)]“Ž3“Ž“¾”™ÉqA:Gqr 349: 9:3 AqAqG:GƒqHwHq:9 rrqHAqAqqGr9:9:::ø¨Ï0]i32,”33“””“i:Aq: 9:3 949: 3-@ @3rGkGqGkq9 ƒ: 9kqqGA93:9ø®Î"]c¾”,33c]“Ž“h“ 3:9 39 3 3 ::„@ @qrqrqH9 :9:9:rGr9:9ø®Ï>c“32“c]”“”Ãi“ :G3 949 94:9: 9 :3@33rqr:@:@ :: 9::9:@ 39:ø¯ÏcŽ“]3c]”“Ž““ih:qG39 93  ƒ3:@3ƒ rGrG:9:9:: :9ƒ::99:9ƒ:ø¯Ï9]c”“¾”¾™™bÃrqG3:39:3 33 9: q9rxqx@@:::939::@ :933„:@ø¯Ï3cc”Ž”¾½””“biAGA@:9:3 @3@::9G:9Hqqr 9::93::3…:@@::9ø¯Ï4]cc¾“”¾“¾”™“k@k9:9 : 9:  9G949rqHqH39::::@94:9:„@A:@@: ø¯Ï=“¾]¾”¾“Ž”™Ã“Gk::3 A3 9q :GrGqGrwrw::@ 993::93:@::@:9 3ø°Î 2””c½”c”ƒ™!jG:949G3@ 9@ 3:qqrwrqr9 93@9: …: @:@:@:: 9:ø°Ì/2,]”·ccŽ””ÙÃG:9:q 3 3 kxGrHwAGG::93 @4:9ƒ: @9:@::3„:ø°Ì@233“cŽ”½”“™ÃA9:9 k9 A3 q9GrqqxGqrrq@ :9@:@ 9 9::@9:9::@:9:: ø°Ì3]c]cd”ƒ¾5“Ž™™k 9A9A9 @3qrGrGqkGr@3 9 9:3::99::9 : :::9 ø°Ì*“c2”]”c“¾”¾“ÙqA9 k3:93GqrGrqrHqG@:@:3 „:@: 9:9: 993:3 9ø±ËDcc¾”c½¾c¾“¾“Ž™™AA9:3:GAqrGrw:Gqr@::: :9:@:@39:: ::33: 9: 39:ø­Ë”Ž½”]”c”¾c”ÃqA994Aƒ:0qqAqGqAqrGrqr3 9393@:3:9439 9339394:9 :ø©Ê,3“Ž“”]ƒ Ž”i™qAA@:„@qAqrqrrGrwrwr9::::949ƒ:@ ::3939 3::„:933ø¦É23“Ž“Ž\3”¾ƒ“qGkƒ@,:@kGqGrGxqxrGrGr49Ak49 3:@::99: :33:9:ƒ:9…::9ø£É&33]c¾c3c”c¾“¾™iq9Gr:rqAkrGrqGAqrGxrxƒ:)9:9:9:99 A9 :9:333@::@::::99:3:9ø¡È*2,ccŽ”c”]“¾””“™AA@@:AqAGqrAkqGrqrw:@:@„:9„: ƒ9 :9::339: :@:99:9::9::93øŸÇ23c3”½c¾¾c”“¾iÃqqrqAƒqƒ@"rqGrqHwH3@A99:3:@:9:: 39:::9: ‡:9::…:9 9ƒ: 3øÈ'c]“3”“¾¾c¾”c”]i™™qGqGkG@ 3AqGrxqGrqx:@ƒ:@ƒ:@„:9: : @:3:3@@99ƒ:::@93::9 9::99øœÇ*]]c]¾¾“”¾c¾c”¾hÙrGkG@:@kGrGrqHqqrx::3@ƒA9A9:@::::9@ ::@:A@3ƒ: @::@::@::@ƒ:9ƒ:9 :9ø™ÈG2”“””“Ž“3¾¾™™ÃqGA@:@rGkqrqrwrGGqGq:k@::A@:::3@@3: 9::@@::::@@ƒ:94:9ƒ:@::9ƒ:9ø˜È””3½”3cc]”¾ƒ™rGjk:rqGGrGqHAGrqrqr9 :99:@ƒ::A@@ 3::933@::::@@9ƒ:9ƒ: :99:9::9::ø—ÇJ3c,”2Ž””¾c¾¾“™““G3rG:GrkG:qrFk@rwHrM::9 9 :kG39:9:A:@93: 9::@A3@:@ƒ:@„: 99::399:9ø–Ç=\cccŽ¾¾c¾”“¾¾™“™qGqq:w@q qrGqqrqrwr :@::939 9: 3 :9:@: 49ƒ: @: jA@@::ƒ@:9:99†:9:9ƒ: ø•ÇRc]c]¾c¾”¾¾”¾””¾“ŸÃrGrG:@HrqGrqrHqNqHxq :39 :: 33:9339 9 @@9::@:A@A@@:@:@:::9ƒ: :@::: :9ø“ÈW”¾¾c”½”“¾¾“¸“]hÙwkrw kqrkwHwrwrqrq 9:9:939:9::9: :39:: @::@@j@;@:A3 33:3:9:ƒ:3:99:9:9ø’ÇN”½”¾”“¾”“¾”“3¾™™ÃrG@A3GqGqrHqrxGrMrGk3:; 9 3 ::9 9  : 3@3@3:: 3A@@3 9 9ƒ:@:@9:ƒ: @9::9 3 ø’ÇDc”,”””Ž¾¾“™™qGkA:AqGkxqxGrGkGkG9 39:3993:::: 33:9:9:@9ƒ:3943::@:@::@::93@ƒ: 9:::::9øÇF”,”c””Ži¾Ä””™™rGqG:qGr:GrqGqAqrqq ::3::3:9: @3 3 :@3A@:@:@‡: @:@:@:9 : 9„:9::3::øÇ ccŽ“”¾c¾ƒ¾““™qr:q:Grq:GrxAkGqxHx:9ˆ:9 39 99:93A@:@3@ 3ƒ@A@@9:@:@ 3A9 :9:@::: 9::9øÇ9¾”c¾”½¾Äc”¾¾““™qx9H@qrM:qGrwqqHqrq3:: 9@9@:@::99 93ƒ:@@Aƒ@A3 @:A@::@3@: 3:-@:3 @Aƒ: @:9: ::øŽÆ923¾”¾“”¾”¾¾””“¾”™“GrGr@qGrrqqGrHrqxqxH:: 9 : :@:9 9 : @ƒ:@@;3@Ad@@: 3 3@:3 :9 9: : ƒ@:k9:@ƒ:9::9:4øÇ0”¾¾“Ž¾”½”¾”“Žc’i:rqq@rqA@xGqrwrGxH9q3: 33 ƒ:33@@::@ 3:@@A@:3@9 3 9:@…: @::9:A:@@ƒ:9ƒ:@ :9øÇ ½”¾”“Ž“ƒ”&”¾”ÓGqxrAqGk@rrGrqxAqqGr 3:9:: 39ƒ:@:3:9::ƒ@ 33 :9: 33 „:@:@@:: @@::3 @::@:9@::3øŒÇE¾“¾cŽ“Ž“¸“¾”¾¾“™“AxrxxGr@AwrqrGqGqHqq ::3::9 :99@A:@@A:@@;@jA@A@Aƒ@ƒ:@@ƒ:@:399ƒ39 3@:9„:@: :3øŒÇ9cŽ“”””“”¾¾”¾¾™Ã™qxwrqrA@rGGqGrqrrqr 9:9:@9:@::9 3 :@Aƒ:@3:@A@@:k@;@:@:@:9ƒ @:9: ::3: 3A@@::9:øŒÇ”””¾¾”¸“]¾Ä½”™Ã™9HxrGqGƒqAqrGqrMrq : @:@@†:4@A9:9@3@:@@:k@A@:@:@@ 3 :@9:@:: 9::3:3@A@:3@::3@:ø‹Æ)c¾”“Ž“¾”¾“]¾”c“¾¾”ßÃÉqrxGqqrHqrrqqHqxr 3ƒ@„:@3ƒ:9@„:1@@A@::3:9@A@:3@:3 ::9@::@3@:@ @A3: :@:::: :@ 9øŠÆJc¾¾””¾¾“2”¾c””¾“¾ÃÉ™rGxqAGAqrGwHxxrwxGq:@A3@:9:? @:9:@@;@@4@A@::@::@@ƒ:@::@9:: k::@::@3@::9::@9: @: øŠÆE“”“Ž“”“”¾Žc2¾]“¾”¾¾”É™Ãqr:qrAwrGrxqrxqH@r::99::9::@A@A:9:@:@@: 9@A@Aƒ@;ƒ@:@: 3 3@A9 :39 :@ @A@…:ƒ:9øŠÆŽ¾¾Ž¾“”“]3“”¾“¾“¾¾Éƒ™UqN@qArwrwrx9Hx@rxr@;93@@:Aj@@::@ 3 3 3:@AjA:k:@AjA::9:: :: 93 3 @:@3:@k@@349:9 9ø‰Ã9]2“¾“”“Ž”¾¾¾c¾”¾”¾”¾Ã™2rrq:GqrxHqGrqrxqqHq@: ::9A:@@A…:29:3:@:94@:@:@:@A3@@::@::9: 9:@ :9:3@:3::@@49 9:9 ø‰Â]8,””“Ž“””“ƒ¾`2”“¾“¾“¾”É2GxGq@rM:qGqGxxqxGrqA9@@:3@@:3 3@@9:39 @A@: :@:@3@@:A@::@@::9::@::@:: @@:@::@ 3 ::ø‰Æ1Ž¾”Ž“”·”¾¾””Ž¾”¾”½]É9qrqHrGqAxrrqrxrrqrGr9;@:@ƒ:93 9 @9@:A3 @A93 93ƒ:@@:@@9:@::@@::@@:3 A:@ƒ: 9:93 ø‰ÆJ““d“Ž“””“¾Ä”“”¾“”¾“ÃcGqAwkGqrxxGqxxNqGxqA @@3 :@A@@:@:A:@:@A33 9::@:@„:AA: …: @:@9@9 @:ƒ@3 j33:ø‰Ç1Ž””””Ž“””·””¾¾“Ž™8AAxrAqrxqxrGAkxrqr@r:94 :ƒ@:@;jA@@A@A:@:@@:@@;ƒ@#:@@:@@:@:@:@:@: :@:@::3@A9A@9:39:øˆÇT“Ž“””¾“c]3””“Ž¾¾”™™ÃÉqxAxqGxrxAqGqxHqGqr@@:A:@Aj@:@Aj@:j:@A@:A@:@@;@A@Aj3@:@:@„:A9:@:k@::9::9:A9 :9øˆÇ c”cŽc”ƒ¾ 2,”½¾¾””“™“ÉrxAwrAGAqqxqxrx@rƒq A@::@:A:A@:Aƒ:Aj@:@@:A3@@::@:A@A:@„:@@3:@:@A::@A :: 9:4øˆÇc]“”]cƒ”¾¾”“Ž¾2”¾“™™“™xqGrxƒqxrHrwrxGGrAqƒ:@k@:@:@@::@@::@;9@@A…:@@:jA:ƒ@::@3@: 3:@:@:@ 9 4393øˆÇcŽ9c¾3“¾¾“”¾“”“Ž2ccƒ¾#“ÙxkwGrxGqxr9:@:rrxqGrq@@A@@AjA33ƒ:ƒ@ A@kA:j@ :@@::„@::@::@A9A: :@:@3:93 39ƒ:øˆÇBc3c¾2Ž”½””””]3¾¾Ä¾Ä¾”Ù™rrxqrrxrxx:rGwrxrGqrq:@k@A@@A@3@@A@;jƒ@)A@:3rq:3:A:A@:@:A@::@3@:@: @:2 ::9 3ø‡Çc]c3¾”¾“]”¾“c¾Ä¾”ƒ¾,“™™ÃŸxxHqxrxqxGxrqHxqxqGqHkA@:@k:@@A@:@::@;@ƒ:'@3rx9@@:@:jA@3 :j@:@: @:@:3:9:9:3::3ø‡Çncc2¾“”¾¾”¾9”Žc¾¾”½”¾¾”ÃÉÃÙxqqxq@:rrwHx:xxrrGrqA@@k@A:@:@A@j::@A@:@:3Nqxrr@:@AA@:A3@::@:@-93 3 @ @4: 9:93ø‡ÇcŽc¾”c¾“,¾¾“¾“¾½”¾¾”“”cƒ¾:šÃÙrxHArNqxrwrw:@@rxrGqrqA:@AjA@j;A@@:j::3 xqxrxxrxr@k:@@ƒ:@ƒ:@:: @2A949:3: ø‡Æc”¾¾c¾””“¾Ž“Ž”¾”“¾”cƒ¾<”ÉA@:xwxrxrxrGxqHqxqx@rGqq@:@:A:@@:@A:@@9rqGrxGxrqx@A@::9@ƒ:@ 9 @2 :9:3:@39 ø‡Â 2cdc””ƒ¾ ”“”””¾”ƒ¾"”,”ľ“rx:@qrqGxr::GrrxqGxrxrGqGrrx…:0r@3:@49HqGrGrxqxHx@@k@@r:@::@3rqqA:3@A9::::@ ƒ9AøÂc,3“Žc“Žcc¾Ä¾“]“¾“”“¾“”ƒ¾2”“¾¾xxq:GrqrxqxƒqxGr:xrwrxqrqxrGƒqGxrxA9rqrqGqAqxrwƒr#qqrGrr93HqrGAqrGr94:39A:39:qH@øÁ"c”d“Ž“3“Ž¾¾”c3Ž“Ž¾”¾¾”“¾Ä¾”ƒ¾X”¾qH@xrwHxHwrrwr::GxxrxHwrGqxrqrqxqGkA::AkGA@::@qNrGqqrwrrGqrqGqqG@:qrG:3:@@ @AAqq:A@öÁcc3”¾””””¾¾šƒ¾“”Ž½”2¾¾2¾”¾¾””¾Ä¾“Gq@:xxrwrƒ:qMxq:ƒxBqxrqxHxrMrGxAqGkGk@qAk@xGqrqqxHqHrwrqGrGqGrqAkAqrGq :@: :q@qAAq:@õÁycc3½”“¾“”½”¾¾“¾Ž“”“¾32”ccc¾Ä¾“¾¾Ä”rq:@rxxqHwrGqqrrx@@rGrHwrrwqrqxrqGk9AAqA9q qrrxGxGqrqGqGqGqGrqqGrqG:A9GqqA3::9qAA@@kG3@:ôÁ]c,Ž“Ž”¾“Ž¾9¾Ä,””“Ž½Ž¾,”c”¾¾””¾¾””½¾“xx:@qGrxqHwxqGrMrqA@Aqxr:::GGAq@::A@k@xrx qGGkqrGrGqG„:3GqAAqGqq:qA@: 3G::GqAkqA:9@A::óÂŽ2”“”¾””½c]”¾¸“]c”“”2¾”]ƒ¾“¾“¾¾“”Žƒ¾ r:rA@rxqrrxƒ:#qHxqrGqGqG@A@qA@A9A@AFkqxr::qAqHqA@…:AqAqGkrGA@:x@AqAq:qGkGA@q@@Aƒ:AòÁa¾”cŽ¾“¾cc“¾,”¾“Ž“Ž¾2”½32ľ”¾”¾¾“c¾¾Ä¾MAj::xxGrGq@GrqxrqGrqrxqq::@::Gk@kAGAGGA9::qqxq::9:qGrqƒ:AqGjA@rqA3q@:@GkAq@qAAkG@@::@:ñÁ(“Ž“Ž”“¸”Ž”¾”¾”¾”“”¾,”¾3]“¾“d9¾¾c¾”ƒ¾xx::GxxqrGrxqHƒxAqxGrxGqr@@kqA@9A„:2qGqGrGrGGrxGrqqHwA@kGkAqqG@3A@:qrFAr@qq@qA3::9@::𔓎9¾”“”cc¾”¾“¾”“Ž“Ž“Ž“”bƒcă¾b2¾¾c¾½”¾”½xG@qrxrxxrwr@@qrwArqGq4GxqGqA@A@k@qFkG@AqqxqrqxqrGrGxrxqAq@rxAqA3@krGqGkqGAAqAA@:@:@A@9 ïÂ2c¾½”½¾]\cŽ“¾”¾“””·”“Ž”]¾”¾”¾”Ä]”“”¾“”“¾”¾q:A@:GƒxGrxq:AGkG@@::@qAqAqr:93AkGk::@AGqHqGqrxAFkA@AqGrxqxAq@A:xGkG:AqqA@q@::@ƒ:@:A3 îÂc”¾„”¾c””½”ƒc”Ž¾“Žcƒ¾“”¾¾2¾¾2ƒ¾c”ƒ¾Mxqxq:qxrMrxrGkGqA@kGqGqA:A@:rx@9:9qrq@A::qH:@:Aj::9:9A@@:9::@@qAq:qAGqAk@Aqƒ:9@A:@9îÂ?]c”¾½”½¾“Ž2¾”]¾”¾,“””2c“¾”¾“¾¾9]””“¾¾”½””¾”xxH9HqxrqHwr9:94@…:A@k@9HqAAqGkGrx:9:9ƒ:+@:@:@@A@A@k@AAGq@;AqA:GA@qA@A@kG:9G::@9A:3:íÃd2¾“Ž”¾”¾3¾”¾23½¾””¾3c”“¾”]c]¾½¾“Ž”Ä”¾½”c½”¾¾”qrGrwrqrGrH@:9:GqAj:3GkG@qrr@A@@::9GGAqG993GqA9:GƒqGkApAq:qqAkGk@qAqG:q:@Gƒ:9 íÄ,¾”2¾”½”½3¾¾Ä¾2”¾Ž“”c]”]3¾¾”½”¾¾”“¾¾“cc]…¾GqGqH„xqxqHqGqGA@kG::9:AqGkƒ:qGrAqqA@rrGqqGqkGqrGrq„AGAqG@qGAAq@kGqG;:@::9 9íÄ>¾”]“¾”¾”“”½3”c””c3cc”““¾¾Ä¾”¾“Ž“cc]¾¾”32ľš¾qxrqxqxGqrqHqƒr3qrqxrxrrxqrxGAqGrxrxqrqxqGrqHkGqAqArqGqApk@k@:Aqk@qƒA qAq3@:3:3:íÄ“¾]”¾”“Ž“”¾“”¾c”Ž“Žƒcj¾¾”“¾”¾½””¾¾”c”¾“]3¾¾½¾”rwHqGqrGrwrqNqGqGrGqrMrwHxqrwrqxrwrHwHqrqGrqGkHqGqA@AkAA@A@k@AqGAqq@kG@k@: @:9 : íÄ”c”“Ž“Ž¾”¾”¾“Ž””ƒc ¾”“¾”“Žccƒ¾ c””23b3¾Ä†¾/”qrqHGqAqGrqGrqHqxrqrNxrxxHwrxqxqHqHqqAAqG:kAqAƒ@qAqGA@@Ak@AqA@:AA:Gƒ: 3:9íÄc”“Ž“Ž“””“¾“¾¾“Ž“d“”3]]3”2]3ƒ¾”c”¾“¾”]\”””“”¾Ä¾Ä¾”¾”¾ƒ@ A@kGkGrqNqxqƒx7qrwHqxxrGrrqrqqA::9:@A@qAjAk@:qAk@qkA@kA@Ak@qA@k9:: 9íÄcŽ¾“Ž”½Ž”¾”Ž“¾Žc]“Ž“3““„¾“”¾½c½””½””]¾¾“¸“”¾¾”“¾“„¾F@:kA@qGqqrxrHxGrxrxrxrxGqxGxGG:@:@@AjA@A@@:@:qA@qAqAAq@AjA@@kG3@:@ :îÄ?“”¾“Ž“”]¾¾½”]cc¾c32”Ž“”]”¾”¾”½”¾”cc¾¾“”¾”“Ž“”¾“”¾”“¾”¾”“ƒ” ¾¾GqGqqAqqGxqxqxAqGr::qq::GA@@A@„:@@::9:@@:GjAAqA@q:Gƒ: ::3 9îÄ cŽ“Ž¾“Ž]8ƒ¾-”,”¾23“Ž“Ž“Ž¾“¾½””½c”¾”¾cc¾”“”Ž“]c]c]”¾“ƒc“Ž“¸“¾“…¾ľAGqGAGƒ@/A:@¾GG:Aqqkqkq:rwrGkA@::@:A@:@Aq@@qG@3:9 9@93îÄ=c¾“”¾“c]¾š¾¾Ž“”]“¾32¾“Ž“Ž“¾”¾”½””c¾¾”¾c”½”¾”]c”“Ž“”½”¾”¾”„¾”¾¾”ľĔ…¾@:kA@kG¾¾Aq@AqGAGrxqrqxqGkAq:@„:@::@Akq;G:Gk: 3 3îÄ12Ž””¾”¾”“¾3“Ž“Ž“Ž“”¾”2”¾¾”]”¾¾”]3“”½”cƒ¾”ˆ¾”“c„¾”„¾“¾”‰¾ ½¾9:9:GkAjƒGrGrGkFA@A@:A@q@A@::GqGk:G: @ 39ïÄ8Ž””½”¾”“¾””c2cc]””Ž“”“c”]“¾“c½”c½”¾¾]]”½””,”¾½”¾”„¾Ä”c”¾Ä“¾”8¾”¾“¾”¾š¾“¾”¾”¾9ƒ:&9AqqkGq:9AGk@qAAq@qrr9:qG@:qGk@39:@3 :îÄy“”2”¾”¾”“Ž”¾”3c3¾”23””Ž“¾Žc“]””Ž“”cc¾”“”2”¾“”23¾¾Ã”¾c“”””“¾¾32¾]3\”¾“¾“¾”¾¾½Äcc:GA@AAFAA::9::k@Aq@qAqAwqAqr::@:9 @ 9: 3ïÄ8]”]“”½”¾“¾“¾2ŽŽ¾3½””Ž“Žcc”c,”Ž“]]¾¾”¾]\3Ž“Ž“”¾¾ƒc#c””½Žc“¾”“¾Ä¾c¾”¾¾“¾”¾”c¾AjAjAjAƒ:@::9GqGq:AqAA@::Gqr@:@@„:3 @3ðÄ!c“]”¾”””¾3“”“Ž2”]3“”””Žƒc¾”“c“¾“¾”¾¾9]”¾”½”ƒ¾ ”¾”¾¾”“¾”†¾6”“¾¾”¾”½,¾”¾qqrxwAq@xqrGqGkGk:9:@@:@kAA9@@::9:::3 ðÄ42-c“Žc3ľ¾2ŽiŽccŽ“3”“Žc”c”“Ž¾”“Ž”]c]¾”½”¾½¾“ƒ”“¾¾Ä¾¾“ƒ¾0””“”¾Äc”¾”“¾¾½”Ž“”¾”qHqG::rqrMqqHqrqAjqGqAjAk:ƒ@ƒ: 9 9: 9:3 ðÄ%2”¾”j]2¾Ä¾c””]c”¾cŽ“Ž“Ž“¾”“¾”ƒcƒc¾”¾””ƒ¾½¾”ƒ¾DÄ”¾”½”¾Ä¸“]2]c“¾“¾”“cŽ“””GqA@qAwHwAqHqqH@AGr@GAAqG@@;@:3:@::9:@9ñÄy”¾¾”¾½”3¾Ä¾cŽi”]c”]“””“”Ž“Ž“¾c2Ž”cŽcŽc32¾¾“¾”“¾”¾”½”c“¾¾”¾½¾”¾”¾”¾”cdcc””¾Gk@@qAGk 3rGqq :99AqAk@qA@kA9: @A 3: 9@ 3ñÄK“¾”½”¾“”¾””cŽ“¾23c2Žcc2¸“””Ž¾”3“Ž¾¾š½”“cc¾“¾¾”¾¾cccdc¾½cd”½¾“¾”¾”‹¾9…:@:@„: A::93@qAqAkƒ: @::: :@A9 ñÄI””“ŽcŽ“””23”“3diŽ2”¾¾32Ž½”““¾½32¾””¾”Ž”“Ž“””“”“¾”¾”¾¾Ä¾¾Ä“”¾”¾¾“ƒ¾ľľš¾”½Ä¾@9:99::@:9:GAq@ƒA k@ 3G@@:@:@„: ?:@:3òÄ%””Ž“cŽc“Ž“]”¾”“dcŽ“¾23”Ž”ŽŽƒc“”½””½Ž“”¾¾“Ž“Ž¾¾Ä¾Ä½”„¾“””¾¾”½”“¾¾“Ž½”¾”¾::::xGqqHrƒqG„q AqA@:@::@A9 993 : 9òÃ:2””“”””””cc¾c,”c”Ž”2”d2cc“Ž“”“”Ž“¾””“¾”¾¾”¾”“”ƒ¾”¾¾”Ä…¾8½”¾¾”¾”cc]“¾”¾“”qAqrGqkGqrwHqGqGkH@qAqr3Ak93@: 2: 9:93:3òÄ5Ž”¾½””c¾¾,ccc”c]“”“]3”c¸”Ž“””“Ž”¾¾”¾””¾½”ƒ¾““Ž½”“¾“¾”¾”¾”Ä“¾“¾“ƒ”-¾“¾“”xr9GAqGkGAx@qHkG:A@Aqq @q@:@ 39 A3:9óÄ6“””Ž“Ž3¾Ä-“c3¾¾3“Ž¾Žcc¾¾“”¾“ŽŽ“Ž”“¾””½Ž¾“”¾”¾“ƒ¾ ”””¾”¾¾”½¾Ä‰¾½¾”„¾&::Gk@A:9:33::@:@k@@:::A@ 3 :: @:9:9ôÃ:“Ž¾“¾“¾32¾¾,”c323”¾2Ž““”d\”¾””ccc¾¾¾“”¾”¾c¾“”¾”¾Ä„¾””¾¾“ľ”¾½”¾š½”ă¾,”¾”¾Ä¾:9 399: : 9 9 9 3 93 949:94 3:@kAqG: ôÃ2Ž“”cŽ””3ľ¾””-2”¾iŽŽ“ “¾“]c3¾ÄŽc”c”½”Ž½”¾“ƒ¾ “¾”½¾¾Ä¾Ä¾¾Ãƒ¾9”½”c”½¾”¾”½”“¾“¾“¾”93433949 394:3339 :@A@ qG@3ôÃD“Ž“¸“”j””½”¾c23“”Ž”cŽ“]””Ž¾¾“2”¾c¾c¾”“Ž½””“¾”¾“¾””¾”¾“¾¾”¾”Ä…¾”¾¾ccc¾¾”””3::@A…:@:33 9 3 3 9A:@:@Aj9õÄ@””””½”¾33 ¸c]3“”iŽc”“”¾c-“¾c””¾“¸””c¾”¾½”¾”¾“c¾¾Ä¾Ä”ƒ¾”¾šƒ¾“¾¾”¾”„¾(“”“333A@:@ 9 3 933 33 9:A@AjA:@jAA@9õÄ “¾]“Ž“””ƒ”]2]“„c"2””Žc”]”¾“Ž“3“]”“¾¾2”“¾½]“¾””½„¾cc¾”¾½¾š½¾¾½¾š¾Ä¾Äƒ¾”ă¾ ””:9:393Aƒ:9 3  39AG3qG@Ak@A@@:@@3÷Ä@Ž“3cŽ”¾½”33“]c””i“Ž\¾c332”¾”,”Ž“”¾Ž“¾”¾”¾“¾””¾”¾¾c“¾Ä”ƒ¾š¾Ä„¾/”¾“¾š½”“¾Ä¾½AqGA@: 9 99::9@99::9AAqAjAA2:@@33 ÷ÄB2]c”c“Ž“Ž””cccc]d”·33]Ž”“cc,c”¾¾2”“¾”½Ž”¾“”¾Ž“¾½”¾Ã¾¾cc]¾½”ƒ¾“”¾“ľą¾”„¾AAqqr@ 3 3A9:ƒA@ q93Ak:@AqG:A3 øÅ8c3“¸c”32ľ,c]ccŽc”]“”cc“3“”Žc”c”3”¾”Ž“Ž“]”¾”½”Ž“¾¾“†¾ šc¾¾“””½”„¾+”½”¾”½”“¾Ä@k@ 3:AqGAqA9GkAq9AA:@G3 9kGkA@ øÇ;”“”]3¾Äc3”““Žc2¾Ž“Ž“””c3½”“Ž“Žc”””“¾”“¾””Žš¾Ä”„¾ă¾ ”¾¾“¾“ľ¾Äƒ¾ ”¾¾::qGqG@ƒ:Aq@49GkAqGkqAqAk9Gq3 øÇ8¾3c\9¾¾,cc]]”]cc32]2Žc]3”””3”2]2¾””c”””“”¾”½”¾””ƒ¾6Ľ¾”¾¾“¾¾½”¾Ä¾¾”¾”½”¾“¾”@GqHq3G::9:@A@A@3@AqA@@:A 3 ø„ÈD“Ž“Ž½””cc]“c]”3c“”“23“Ž3¾¾”c”¾½Ž”“¾¾”Ž½”¾¾“”“¾”¾”¾Ä“¾Ä¾Ä”ƒ¾$”ľ¾Ä¾”¾¾“¾qGkqH3@ :9 3A@A :@kGkAqø‰È”””¾“„c ]””c”Ž“¾¾3””c”“”¾“Ž¾cc]“Žƒ” ”¾¾“¾¾”¾“¾¾Ä„¾”„¾š„¾!Ô¾“¾”¾”q:GqGqGq::9:q@AjA3@A@Aq@Aø‰È cŽ”“”¾ƒc3””3“Ž”2Ž“Ž“”¾c”“c„” 2”½Ž“¾”¾”“¾”“¾“¾”½”¾Ä¾¾š½¾¾Ä½Ä”ƒ¾”¾Ä“¾@:qAAkGk@ : @A3@9@:@@kApø‰Ê?32Ž¾“¾””¾c]c“Ž“3¾¾”2c”Ž“d¾”“3¾¾c]¾½¾3”“Ž“”“”Ž“¾¾”¾”¾Ä”½”ƒ¾šƒ¾”½”¾¾½ƒ¾”@AAkGkG3@::@3Aj@A3Ak@@3:@øˆË*c”¾””¸”ccŽ2Ž3“”2cc]””“””¸“Ž”¾¾9]¾”½”¾ƒ ccŽ“”¾“¾¾“Ž”½„¾ă¾(½š¾¾”“”¾š¾Ä¾¾@kF:@k: :@A@9AA@@@k@AA@:: ø‡ÌA3¾¾“¾“]cc“Žcc3c”cŽ“””“¾¾\9“¾”“Ž”3¾¾c¾“Ž¾“¾c“¾””¾”½”ľš…¾”“ƒ¾”½¾AGk@A@:@9A@3939 @3AGkGk9:ø‰Ë<2c¾ÄŽ]]23\3]3cc2d¾”Ž“Žc”¾“”“””c]c¾¾“”¾c””¾”Ž“¾”¾“¾“„¾“ƒ¾$š½¾“¾¾”½¾”¾@qGA:q: 393 : 3q @@k@@ Aø‰Ë3]ľ‡iŽ“33c¾c“Ž8Ž¾”c”¸””¾¾”cƒ””“¾”“”“Ž”¾”¾”¾”¾”¾¾Äƒ¾"”¾¾”½¾¾Ä¾¾::@:@@3 @:A jAA3A@AA:9øŠÌ”¾½‡E3“Ž2Ž2¾””Ž“Ž“””¾¾,“”¾”½¾”“¾”½cc]]”“¾“¾“¾½”½¾Ä¾”½Ä¾Ä¾”¾”¾”¾”¾9 ƒqAk@:@AAqAq 99AjA:ø‹Ì“¾””†#3,””2”c”“Ž¾””¾”Ž“”””¾ccŽ¾”„¾c”””¾”¾”¾”½ƒ¾#”¾”¾½¾”ľ¾Ä”@k G:A@ :@@q@A: :A9kø‹Ì”½‰-“cd,¾c”””½c”½¾,2Ž½”½Ž¾”¾¾3½”¾“”2”]“Ž“¾””“ƒ¾“¾”¾š¾¾½¾Ä”ľ¾½ƒ¾@A:3:@:@ jA3@@:3@3GA3ø‹Ì”¾‰"3”¾2”cŽ“]“”Ž“”-“Ž””½¾”¾3¾”½”ƒ¾2”232¸“¸”¾”¾¾”½¾”¾š„¾½”ľš¾@rq 9:@:@@3ƒ: @:9@A: 3øˆÌ”¾”ˆ!2c””2Ž2Ž“Ž”cŽ“Ž¾“Ž“¾”“¾¾”½9½”ƒ¾”¾””Ž””½”½”½¾”¾½¾¾“¾Ä”†¾@rq @ :9A3::@@::@@99ø‹Ì”Š&3”½Ž“¾3c”“¾”3“Ž“””“Ž“”¾”“¾”¾”½””½”½”ƒ¾1,”¾¾”“¾”¾””¾Ä¾”¾¾Ä¾”¾“¾@r93::3 kGA @3:9::@4øŠË2]Ä,‡92””3]c¾]”¾Ž“¾2¾Žc¾”¾“3Ž”¾¾”½”¾”““”¾“”¾”½”½”ƒ¾½”¾Ä½Ä¾¾3 :: @39ƒ@k ƒ:@@:A:9:øŠÉ2]c¾Ä¾„?c]cc33””c,3c”“c¾3Ž”3¾”½””½”¾]2””½”¾”¾”½”¾“Ž”¾“¾Ž¾½”¾”¾“¾šƒ¾”¾¾”¾:qx@3 9 A::9:@@A@ 9Aq øŠÊcŽ“¾”…c7”c3”c”2¾]”“d2“c\¾”¾3Ž¾29¾¾”¾“¾½””””“¾¾”“¾”¾“ƒ¾!”¾¾š½Ä¾Ä¾ÄG9H: 9:G:@3:@@ :q@kGAø‹Ë“Ž¾¾Š023”¾”cŽ“3“Ž“Ž“Ž]c“¾”“Ž™¾”\”¾½¾¾”¾,c¾”¾¾”…¾”½”½”ƒ¾”ƒ¾Gq:9:3:q:::: 3:GkAA@k@3øŠË”“¾ŒV]“”c”¾”””“c¾¾”¾¾“”¾¾”3½”¾”¾¾“Ž”½”¾¾”¾“¾”¾š¾“”¾”¾“¾”¾¾Ä“¾qGA@A::@34 9:A@j 9 ø‹ËŽ“¾”Œ73”cŽ”“Ž“¾Ž”¾”2”¾”“¾“]”“¾¾Ä””,”¾”,”Ľ¾””¾½“”¾“¾¾“ƒ¾ľ k@@k9::@::33 :@@3AAk@ø‹Ë“Ž”½Œ'22Žcc””¾”“¾¾“”¾”¾Ž2”¾“”½¾“Ž½”“ƒ¾”ƒ¾)“Ž””¾“¾””“”Ž“”¾Ä@ qkG::@Ak@A9 2:A@:@qGA3øŠË”¾43]-c””2¾c”””””½cc¾“Ž””¾””¾“¾”½¾Ä¾¾”ľ”½””“„¾“¾”¾“rqAGkA9A@AqG3:@@@k@q3ø‹Ëc¾Ä&“”c,c“cŽ“Ž”“¾”23¾¾”””“””½”””¾ƒ”¾¾Ä„¾”¾Ž“”ƒ¾”½”¾ 2r@3A@qGqqA::3:@A@Aø‹Ë]ľ/”c]]”cc”¾”“”¾”“¾¾¾¾c¾Ž½”””“Ž“¾“¾½¾”½”¾“ƒ¾“”·””ľ”¾39G:3A@krGq ƒ@: @:AøŒË]ľ1cc”¾”]“¾¾”¾”¾Ž“¾”“¾””“”¾“Ž”¾”]cŽ”¾¾”¾Ä¾”ă¾”““¾”,¾¾G:@qrGqAqGkA @k::93 k9øŒË“¾”Ž3Ž2-c2Ž“””¾“Ž½”“”Ž“,””½Ž“¾Ž““¾]c“Ž“”¾”þ”½¾¾“¾”ƒ¾332¾¾”¾q:@AAqr@qGA@k @@A@@3øŽË””½Žc”„c!3”¾”½Ž“”¾Žc”Ž“¾””“cŽcc”c””ƒ¾ ”¾¾”¾”ľ“¾“„¾”½Ä¾G:@3Aq @Ak@@9A@:A3øË”¾”‘LŽ“””””“”¾”c]“”¾c¾Ž”]“¾””¾¾½”¾¾“¾¾“¾”¾”¾”¾š¾“¾”¾”39: 3Gk kGk@A3@A,:øË“”½”‘Kcd]ccŽ“””Ž½”¾c]cc¾¾“Žc]”¾“Ž½”¾Ä¾¾Ä”¾¾“¾“¾“¾¾½¾”¾“¾¾ @@ kGkG@@k9 :9:ø‘ËŽ”¾¾‘ƒc]”]c”¾“Ž“¾”½”]¾c”½””2cƒ¾“cƒ¾&”½”¾½”ľ”¾”¾¾š¾¾”½””½r@3:@ 9:@:3:9: ø‘Ë”½”‘/Žcc½c””c”¾”¾“c””¾3¾¾“¾¾¾Ä¾”¾¾”¾¾”½”ƒc¾c3“””¾G@A::3@@:@Aq9:ø’Ëc¾¾’IcŽccd”]”“¾“¾c“cŽ“”2¾¾š¾”¾”“”“¾Ä¾½”¾¾“Ž“Ž“¾¾“Ž”¾½Gq::9A @A@@kGk ø“Ëc¾Ä’ c”3”c„c=,ŽccŽ”””¾2Ž”½¾¾“¾¾“¾¾”¾Ä”“”“Ž“Ž¾¾Ä””¾”¾¾G3:@A:@jkHqAG93ø’˾”– ¾”3j¾¾”2iŽc]¾“Ž“Ž“¾3“¾”¾”“cŽƒ¾“¾¾”½Ž“ŽÄ¾”¾¾Ä¾¾Äƒ¾@ :@qA:qGqGkA9 ø’Ë”¾–¾c¾¾”¾”2Žc]cc3½”ƒcŽ”“¾”“¾c¾Ä¾Ä¾”½¾”ƒ¾“¾¾Ã¾”¾”¾“¾”3 :Gkqq:kGqA@:ø’Ë“¾“•“c,”¾”“¾,cc3c¾””,c””¾¾””†¾ Ä”¾¾”½¾Ä¾¾”¾½ƒ¾Ä¾Ä @2A@qGq:@A@,@ø’Ì”¾–Žd¾“””¾“3””2¾“¾cŽ””“ƒ¾“ƒ¾'Ĕľ¾“¾“¾¾š¾¾Ä¾”¾”Ô¾”½@: :AAqqHk@Aq:93ø‘Ì”¾–(2”c”¾¾c””]”½”””””¾¾”¾2”½”¾¾½”¾”¾”„¾”½¾Ä…¾ľA::99AAqqGk@Gq9ø‘̽”–3“Ž“Žc”2c,2”d¾”c¾ƒ¾ă¾”¾“¾Ä¾Ä¾“¾“¾”ľľ¾”ľšƒ¾ƒ@r:@k@GrG@kGk3øÌ”¾– Ž“3”½””]c]c¾¾¾¾“¾¾“”¾”¾“2¾”½ˆ¾!”“¾¾”¾¾Ä¾½¾¾½Ä¾93 q:G:@qkArq: G ø̾2˜,””·”cc¾””¾¾”¾””¾½Ä„¾ ”¾š¾Ä¾Ä¾Ä„¾½Ä”¾¾Ä”¾¾”¾GrqGAqGq:AAqqGq k@ øŽÌ™$2c”“¾3¾]”¾½”¾“¾“¾¾“”“¾¾”ľľ”¾¾”¾”ƒ¾"ľš¾”½¾”“¾“¾Ä¾AAGkGkAqG@qqHqrq9Ak9øËľ™Ic¾”9c”¾“¾”¾”“””Ž”“¾¾”¾¾Ä¾½Ä¾½Ä”“”“¾“”¾“¾¾””¾¾FkG@:G:qkGAqAGAG3G: øŒË¾Ä™=cŽ23]“Ž“”¾”½”””¾“Žc”““¾“¾¾”¾”“¾c¾¾”¾”¾”¾¾“¾”@:kAjA:qHƒ: GkGjqG3: øŒËcľ¾˜-c3c”””½Ž“”¾”½”¾“Ž“”“¾¾”¾“¾“¾¾]c¾”ľ“”…¾ “¾A@@qqGƒq @::qqArqG:3øŒËŽ¾¾Ä˜(]3“]“d“Ž“Ž3c”]c¾”]c¾”“-¾”¾Ä”“”¾””c¾¾Ä†¾”½”¾”½A3AqH3ArGAqAqH@qGqAøËľ¾™“”]Ž”2”]9”]9¾“¾c]¾”½”¾Ä…¾'2”“¾”¾”¾”¾™¾”¾“¾”q k@r@kGrqqGqA@qrA@ø˾ľ˜”cc¾3¾¾2]”¾\”¾”½]ƒc Ž“Ž““Žcccƒ¾ ”½¾½”½”¾”½”ƒ¾G3Gr:@Aƒq HqqAq:GqAjøËcľ3˜C]””2¾”23”¾9“322cŽcc¾”¾“Ž”“cŽi¾¾”¾¾””¾¾”¾“¾¾”¾“¾A@A@@AqGGrqHqqGƒ:@: øŒÊc¾Ä]9ˆ3½Ž]”“3½”“33]cŽcŽ”cc¾”¾ccƒ¾9ƒ¾%ľ¾“¾”½”¾””½¾”¾“¾G33q:rqGqHqr: @: 9øŒÊľ2˜+c]“cc¾Žc]2]c“”“c¾”¾½c”½””¾¾Ä””“”“”¾¾”¾ƒc”“”¾“@:9qq qGrqqHqGq3@3øË”¾Ä3˜ƒcE2cŽ¾”¾¾Äd¾”¾Ž””½”c”cľ33¾c]“cc¾¾”“¾“”¾¾: 3:GrGqrGqGqrqHq::ø˾ľ2–$c]c3ccc”ľ“”“”¾c]¾½”¾””¾c“Ž“„¾cŽ“”ľ¾”Ž¾¾”ƒ@qGrqqArrGrq @:ø½23“Š¾”¾”•Icd3c,Žcc”“3c”]cc””¾”½Ž“Ž”¾Ä”¾GAGkGk qq9@A99A:rGrqAAGqAwq:@:øŽçDc“ccc”cc”Ž]”½”“”d”¾½ @A@A::@:@:qGkGk@@qG@A@A::Aq@A@39 3j  ø‘çcŽ]c”c¾¾“c]32c3ƒc#cG33“:9:A:9 @3 3 3:3@:@::@@3ƒ  ø—ç,cccŽc33,cc]c]3,3c]ccŽG9:jŽc 2“Ž” @j:ˆø ç)ccŽc“Ž“]9-c]c232c]“cŽ””“Ž“Ž“Ž“Ž”ø¬é ]2cc]”]2ƒc]332Ž3c]3ccŽ“d””3”“”ø¬é']2cc3]c]c3c\223]c2d3c“d“d“Ž“Ž“Ž“Žø¬ò3ƒ233223,c3]2cŽ”cŽ“Žcø®øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/'-'øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄâc…c]cøÏÏc”c]…c„ ,“Ž“Žcc2ccƒ,2øÊÎ$”“”“ccc,cc”“Ž“”j””c]ccc3c3øÊÎ"ccŽ””cŽccŽ¾”½””¾cicdc]”cŽ22øÌÏ]„cŽcŽc“”Žc”¾“¸cŽiŽ„ccŽcøÍÏc]cc]c¾c”“Ž“2Ž“””“ŽcŽŽ2øÏÐc„c]cŽ“Žc¾”cŽ½”cŽ“ccøÑÏcc]Ž”¾”“Žc”¾”“ŽccŽ“cøÕÏcŽ”c”“”d“”“”½¾”c2øÖÐc”“cŽ”¾”Ž3323ccœ“ø»Ðc]cƒ””cc2,Ÿ”Ž“øºÐ c3cc””“Ž“,2¡]c””øºÒ ]“ŽcŽcŽc c]ƒc “,c]c]†]cø©Ñ3c]“”„cœc]cc3\]”Žj232c]ccc”“Žø¨Òc]cc]”2š232¾“ccc3”“”3cc]ccƒc”ø¨Ò2]”””]c•$cc,32Žc”¾cŽ22,i““iciic822ci““ø©Ò2c“Ž¾2c” cŽ“c32cƒ222“i“hc8cbbcbib9cii28icbcø§Ò3Ž“¾cc’"]c]ccic,Ž2i™cci2“™8,@AichcbA28ƒ2ø¬Ñ,3c””c]c’ƒc%2c2ii““iibcb 93rG j@@AbAAjAb3qAqAø©Ò\3½Žcc]c3,cb™™“’ibcbc@AAqA@3ƒ:@::k@: 3: 3G 2AkFAø§Ò9]“c3“™2298\ihcAq @3 ƒ@::@::@ƒ: 3 3:AFø©Ò2]””Œ.c”“™8ic“iib3bA9 :9::@3 ::9: 3:9:9:9::ø«Ò2Ž“”23‰,3Ž23“™2ibkGq@A@A@q :@ 3: ::9:33 : 9 @ƒ:@ø«Ò3]“Ž2‰2]“c“™™bihkGkGk933:94: 3ƒ9:9 943:9499 3 3 ø¬Ó23dˆ2cc2cbAqA@ @::3 939:: †: 9:9 3:9:994ø¬Ó33ccˆcd™iibiGqAq:9qƒ: 3 2 33 :9@::9ƒ: 9 9:::@ø­Ó\cc,†c]””““bbc@::G::A ƒ: 39 9: :3:9::9 9 39„:ø­Ó3“Ž2…%3“Ž““ch9cqA@k::@3@9 9 3 9 ::9:9q…:9:: 3 9 ø®Ò“32”„4c¾“Ž™™“G@kG@@9 @3: ::934333::9A:@AAFAA@:GAjA@:ƒ@AGø§Ô,ccƒ%”¾”™2:AqAq @:@::9 : : 93: kGqG…:q:k@AjA@Ak@A@A@::@ø¦Ôdc”ƒ”"¾ÃA:qAq:@:@39 9339 93 @:@A3Gƒ@A@A9Aq kG:@:@::@kAø¦Ô%c””c¾“cc2@kGqG:@:3::9449 :: ƒq k@A3Ak@k@A@k@ApA9AkGk:9GkGø¥ÔCc]3””cŽ“Ž™ik@9G- @:3::39 9:94 AqGqAq@ kAjA@qAGkGkFAqGAkø¥ÔA3“”·c32ciib3G :@:99:3:9:3: A:@A@AkGk::@:@:G:qA9::9::@@ø§Ô;”,”33”“chc:Ak::93:: ::@::3@::3:9kGkq@::@::@3Aq 3:@ø­Ô2cc3c3“Ž“Ž™hÙqAF3ƒ::9 ::„:qGA3 @@ƒ:@::@::@:ƒ@9::ø­Ô.3c3c¾“””“2iqG::3:9: 9:3@9:3::q:qGj@A@::@:9ƒ:@::@…:ø®Ô42]c]”¾”½i“i@:@9::9:: 9 :3GGrq A::@@::9:@:@: 9„:@ø¯Ô+,”c”c½”¾cŽ™““Aj4:3 :9: 3 kqAqGk ::@::9…: :@:@:? 9ø¯Ò8,ccŽ½”]”c““™˜AA9349:: 2 3k9AqGqAqG:9::39::@: :9::3ƒ:ø¯Ñ;23”2””½]c”Ž“Ž™“Ap::33::3G9qAqkG3::9:@:::9:@99:9::ø°Ñ;]“c,c¾]9¾“¾”“™: 9 :33 3qAqG@:A@ :@:4:@:99:: 9 99 :: ø°Ñ']cŽc,c”¾””˜“Gj: :3@:3G9AkqrqGqk::@ƒ:@:9ƒ: @: : 9 3ø²Ñ,c2c]c”“c¾“¾”“™@A93::33G3 qGGAGkG::@ 9::9 9ƒ: ::9:9: 3:ø±Ñ23,c”¸c¾”c™™Aj @k@A9AqqGƒq ƒ:q :9:@ @ƒ:@9†:9::9ø±Ñ:,””c3“”c¾”d™kAA9kA3 A@AA@rAkGqGqG3@:: :@:: 9::?9:@:9::ø±Ð 3”“]2Ž½3”ƒ$“GjG@Ak9AAqk@@kAqGkqGq:9:@:: 9::@ƒ:9 ::ø²Îc]\””Žc2cŽc”“”Ži“GAk 3 :ƒ@qAqGkqrGqr 9ƒ: 3:@@:99:9ƒ:ƒ@ø²Í:,c3“¾“cŽ”c·”“”™@qA@@:@AkAAqA@AqGqr:@:@::9 @::@ ::::@ƒ:ø²Í*2””2¾cc”½c”¾ŽciÃGkG39qAFq9AqrAqGq4@::@…:9‡:@:@:@ø²Í4,”]3”Žc”””½2¾b™qAq:@:@Ak:GqqGqGqBq @::9::@3:9::„@A@A:ø³Í.23c,”“”c¾Ž¾d””““™AqAGqA@:@qAqHqkGqGq:9 9::9ƒ: 99AA@Aj:93ø³Í7cc2c”¾c2”c2”½Ž™“™A3@k:AqGqHqGkG:qGrr9::93::39:@:@@„:ø³Ê+,2c”]½”¾],c””¾”½“™’qG::@AkqGqkrAkGrqrw@ƒ: 9@:9:@:@ƒ:9:9ø³Ë33]c”c¾”c””¾“¸“”“™™rG:GqGAq:AG@A@qGqG3:9::9:9:3„:9…:9ø³Êc]”””ƒ#”c”¾“¾”¾chÙqG:qqAq:GqqrqrqrGr 9ƒ:@::::ƒ:@::ø´Ê>c2cc½]c”“]”“¾”“¾2¾”™ÃGk:G:qAqAqrGqGqGqqAk:@::@9:9::9:9::9: ø´Ê>cŽcc]”½”¾c¾Ž¾Ž”¾™™rG::qGqAqqGrqHqrAAq@::943:9499::9 9ø´Ê03c]c]”¾”“Ž“¾”2”½””“™q::@qGqqHqrGqAA@kqH ::@ :9ƒ: :499 ::øµÊ=c2Ž2”“”½”¾”¾¾”¾™“qx@AqAqGqHqAqAqqGxq39:9::::9:9:9 9:9:øµÊ]“Ž2¾”·””¾”½¾“¾ƒ“HqqrGkrGkqrA@qGrqGq ƒ:9ƒ: @ ::9 944 9ø´ÊC“Ž“3“¾”Ž”“”¾”,”¾””™™@rGqqHqqHqxGqrqGrqH3:39:@:9:949:99:9:99ø¯Ê?”3¾c”“”Ž¾½””¾“¾“™rxrxqHqrGqAqGqqGqGqG::9: 9::9 99 :94:9…::ø¬ÊB”c2””“Ž“¾¾”¾”“¾”¾“™“wrxGrwAqrGqGrAGlqrr3:9 :9: 39:939:9::9@ƒ:9:9ø©É2cŽ¾””¾”·”2”“ƒ¾”¾“ŽÃ™GrwxqAAqGqA„qGrGx„: 39:99: 93ƒ:@:@ƒ: 9::9:::9ø¦É-3“¾3”½Ž“””3¾“”c¾“¾”¾™ÉÃrGrGq@rqGqGrHqrGr9:9ƒ:9 :::9 ƒ:9ƒ:@ƒ:9::„::ø£É'2-”¾2”¾“Ž2”2¾”¸c¾¾”½”ÃÉ™ÉrqqGAqGrqrqrGƒq ƒ:…:@3::9ƒ:@:9:@9::@@99„:94ø¢É32¾“3“”¸“3”¾3,”“]”½¾”¾¾ÉßÃxrAqqrGAqGrGqHrqHq::99ƒ:@ƒ: 3@9::@::::@9„::@::9ø Ê3“”,¾“”¾½¾23½”c¾¾”ƒ¾,ęßrxrGqHqqHqq qqH@qr 9:@@ 9:@::@@ 9:@:@:9ƒ@:9:„:@: „:øžÉ,cŽ“”¸”½”¾”]2”¾cƒ¾½šƒ¾=™Ã8rwrAqxAqrGrGrwrGqr::@A:9:@:9@:A ::@@::9:::@:@::9: @:9øÉ%2¾”,”“¾,”¾¾22Ž3½”¾”¾“¾”\Ÿ3xrqxAqqGrƒqrxrqHwG9:3@::9 9@:9A9@A:@ƒ:@:@::9ƒ:ƒ9:9ƒ:ø›É,”¾¾””2¾”½3”¾¾9¾”¾Ãƒ¾ľc“wxGqGqGrqGGrxqNqrrx::9 :3 9„:3 A@A@A::@A@:@:@::9@::…: øšÉ8¾”¾¾”2”¾”¾”½””½”¾”¾”¾“”icArGkGrGqrr@rxrqNqrG399 3 :„@3@k@:j@A@@A:99:9::@:@:9::99:ø™ÉQ,¾”½”¾”¾”½”½”¾”¾”¾¾”cc“Ž“ÙÉkwAqArrwrGxqxxqxqGr:3 3 :3::@ A:@A@A@k3934@9::@ƒ:9…: ø—È;]2”¾”½”“Ž½”¾¾”¾“¾“”½”¾c2¾”Ž™“ßrqAxwrNqrGrGqHqrGrwr9:39 @ƒ:@93A@d9 :4:9@::@9ƒ: @::@9:9::ø–Ç]c¾¾”“¸”“¾“¾”½”¾c¾”¾½”2”½Ž“ƒ™ÙqGqrxqxqqrrGqrGqrGrGr9:3@@‡::9 :ƒ@A:@:::9:@9:9:9::9:ø•Å22c”¾“¾”“¾Ž2””½3¾cc¾”¾”,3”„¾ŸÃrGrGqGrGrMrqxxrxqrwrqr::ƒ:@:@:994::9@:@:A::9 @:‡:9:9ø•Å>3323”¾¾“Ž“¾,”¸”c”¾¾2”¾¾¾cc]3¾”½”“™™qxxrr qqrq@ArwHqNrGxrM3::ƒ@"3@::@::@@:@A:@93Ak:@:@@:@:@:@ ::ø”ÆG,3“,”“¾”¾3¾“¾]¾”¾Ž“¾”¾8¾¾“¾”¾“ŽÃÃÉrxxq qHqH@A@xqrqrqxqrG:@@;9 9@@:A@ƒ:@„: 3qx:@@A9@@:9::9 :9ø’ÇZ3¾Ž“Ž“”¾””c¾½”“¾”“¾3¾¾”Ľ”¾“ÃÉ™ÉÃxGrqrxqrqxrGxqNqHxqGqA:@:3;9 @:@@3:99 :9rGAGkG:@::@„:@@A:9 ø‘Ç2d”½””,¾c”¾cc¾”¾”ƒ¾3½”“„¾ ”¾Ä¾”ÉÃÉrƒxGrGqG:@xrxqqrxArxƒ@A9 3:93: : : kqrxxqAkGkGAA9:@„:9:9ø‘Ç ,c2””“Ž¾”]“”c¾¾“c¾“¾9¾¾”¾”“3ƒ¾B”¾Gr@xrxqqrrqAAkGqHqHqqrqrr9:3: 9 3@:@9 qrGxrxrwqrGk@@A@:@ @::4øÈc,Ž“¸“Ž“]””¾”¾3¾”¾¾2¾¾½ƒ¾Ä2¾”¾“¾GqAqNrqNƒxqqGrxqrqNqGrGxrx@A@Aqxrx„:qHkGxqqHqqAqAkqAA@:@@::@AøÈ32Ž“”Žc“”¾c¾¾Ä2¾“¾c¾¾“c¾š¾¾3ƒ¾ă¾8Ärqxrx@@AqHqqrNxrxrxxqxrrG@Aqxrwr@:9HwrqqxHxxrxqGqAqqxr@ƒ:qrqA GõÈ32Ž“,”¾”2¾Ž½cƒ¾X2”¾”¾¾””¾¾“¾“¾“”ľ¾””qGAxrxqHqrG9@@A@rwrxrwxAqqrxrNrwA@rqGr:GjrxqNrrwrxGrwA:qxGxAqqGqA‹qk@ôÈi]””2”¾2”¾c¾Ä2”¾”½¾2¾¾c¾”¾¾”¾”“c¾”Ľ”qx@rxxr@xxrr@krwrxHwrNrqrGqrwrxqA@A@:A@qGA@A@xqrNqrwrqqArqrGqGA@:ŠAkGq:óÈ2,””¾¾”,”¾“]”¾2]“¾”¾39¾c¾¾“”“ƒ¾ƒ¾F”¾¾r@xqxrwA@@9GrqN@rxrxqxrwrxHxqrGrq@AjGqGkqqrrqxqxrGrGrGAFrqGqqA:qGqA†9:G:qƒ:òÈ^32Ž”2”¾“c¾””¾]”¾”\c¾¾Ä“Žc¾Ä¾c¾š½”¾Ä¾ÄrxGAxrxrrGqrqqGqAqxqNrxqxqxrxq:A@A@;@qGrGqxHqrxAqqrƒq xAqHkG@A93… A:GjAA@:@òÈ\2“Ž”2”¾”””“”¾¾3¾”“¾3”½c¾”¾”c¾”¾”¾”¾c¾¾Ä¾”qqAxqxqrrxNrrGrwHqr@@AGqGqAA@:AjGkqrkGrGqrMrGqAƒ@:HqqGqqGk:@4GqGA qAqA@q:@9:ñÈ, “Ž,””c”””¾“]“¾”“]¾”cƒ¾½¾¾½”“¾¾½cľ¾“¾rx@rxrGxƒ@"AqxqrqGrGqkGkGAqA@@qAkGxr9AqqrGrqGƒ@ A:rGqGqArqGq:q@rGr:@qq@q@kG:@:@:ðÉ&]””¾¾“]“¾Ž¾”¾“¾”¾¾3¾Äc¾“”¾”“””c¾¾Äƒ¾”ƒ¾@xrxAxrƒxAqrxHqrqrGqA@Ak@qrA@GkGqGqA@A@rwr:@e@rwrqqrGrGqA::G:@::@AqHAA@Gq@Aƒ:ðÇ]2c]“Ž¾”¾3¾“”c¾¾2c”½”¾b”¾cƒ¾“„¾Z½”¾”š”“”ľ¾xAGj@xrxrxrwxrGxqrAqqGkGqGk:9qGrqHqrqrwrGk@rqrGr@:@kGqAA@qrqA:qqGqAjq:qA@k::ðÅ%c”9¾½¾3“Ž]c“¾2-”¾“¾3¾½c¾“Žc¾Ä¾”ˆ¾ “”¾Ä¾wrG@rƒxqxHGqxqHƒ@2rqAqGk9AG@A@AqAqxGrxrGrGxqrGrAGqAqAqAqG3@@Gr@q:GrAƒ:G@:9@ïÄ33c3Ž“”¾Žc””¾”½3]”¾2”¾¾c”¾c”¾”¾”½¾”½šc2¾Ä¾“Ž¾¾”…¾xqrxrxxrxrGjA@rGqGA@@A@kAƒq.rGqGrxqrqwrGxqrwAkA@@rqAqrG:AqqA:AqG@::@k@@4:îÃc32Ž“¾”\¾““c”¾¾c¾”¾¾ƒ” “¾”c¾¾“”¾”…¾Y2”¾¾””““¾”ľ”qHqxqxqxxrxrqqrGq:r3A@@kGrGqAqAqHwGrGrqrGGkG@qrqqGqGqAqAqA@q:qr9G@:@:A:A@íÃ5”]2”Ži¾””¾Ž2”“”c¾“3“¾½¾”\””¾”¾½i¾”¾”2¾”¾”¾¾”“]ƒ¾L“¾xqHwxrxxqxqxNrxrxA@A:xx:q@:A:9A@A@A@A@AGj@@rqGqHqrqrqAGkq:GqA::@q::@::@39íÂ8,”32Ž“”¾“,”“”2¸”½c¾”¾¾”¾”¾c”c¾“¾“”Äd¾Ä½¾”¾““”¾¾”c”ă¾'ľxrrMrrNrxrxqxqrwrwrxrxxrxrxrxxrrxqrxqƒr qGrGqqGqHqGk@GAGqGA9@Gl@:49:@@íà c“3cc¾”Ž¾¾3“Ž”c¾“”¾“¾”]“c¾ƒc¾”½”¾¾š¾“¾”Ž“”¾“]¾¾“că¾H”ľ¾ÄqxqNrGrGrrwrqxqxrxqxqxxrwxrwrqrMqNrqGkrGrGkGAGkAjAqq:GA@@kA:99:@ :AìÃ,Ž9Ž“¾”“”cŽ”]“¾“””¾,”¾”¾“]””¾”]”¾”¾¾Ä¾”„¾ c¾¾“”¾”¾”¾Ä„¾”ƒ¾AxrqqrqMrHxrNrwHxrxxrwrxqxrMrqrrqqGqGqG:qGqkAjGAqA:Aq@:k:@:G:A:3@@ìÔ¾c2”¾”½”¾cc¾“c”Žccƒ¾0“¾“Ž”“Ž“Ž“¾]½”½”¾¾“”¾Ä¾¾“”c¾½¾š¾¾“¾”Ãľ¾š¾¾ÄƒG3]232cd¾Ä32]c”]¾”“”¾“]¾”d½”3”¾“¾¾“¾“¾“¾½””¾”¾”“¾¾”¾“¸“ƒ¾š“„¾ ”½¾¾Ä¾Ä¾”ƒ¾ ľ9:9@ 3 AAƒ@3 :ø‡Ñd3232-“¾¾3]ccc”“”¸”¾2”¾””¾”¾“¾”“””¾”¾”c]”¾“”·”¾”½”c”]¾“¾¾¾š¾¾“¾Ä¾¾”¾¾Ä”¾”¾¾@:3::993 kAkA@3:ø‡Ó>]32cŽ”¾½”2]32¾””“”¾cc]c“¾“¾3”¾”½”¾¾¾c”¾“¾”¾“]Žc”¾,”¾¾””ƒ¾!“¾¾Ä”¾Ä¾½Ä¾½¾Ä½”@:3@@ 3A@Aj::ø‡Ô“Ž“¾”¾“”c]2”½”]”·”¾¾¾“3Ž¾”¾]”„¾”]“”¾“c¾”¾¾“¾¾”2c¾“”¾¾™ƒ¾“”¾”¾Ä„¾”¾”¾”¾””“:@::A@3 3GkG::3øˆÔ72c3”¾¾“]cŽ”\”“¾2”¾“¾“”½”c“¾”½”¾c]”¾¾c¾½”¾¾”¾“3¾”¾“„¾ ”ľ¾Ã¾”¾”½”½”ƒ¾“ƒ¾”@;99AAkAq9A@k9@ø‰Ô?cc]i¾”“Žc”]cc¾“cŽ”c¾””¾”c¾c”¾½”2¾½”c”¾¾”½”¾”2””¾¾”ľ½¾¾”ƒ¾Ôƒ¾ Ä“¾š¾”½”]@ƒ: 9:@AqkGA::ø‰Ö@2Ž¾¾”¾”]ccŽ¾cc”c,”¾“Ž””2]¾¾c”½”¾¾š¾”¾¾“¾”¾½”2¾”½Ž½¾“”¾”½¾”½”ƒ¾š¾””“ƒ¾9\¾: qAAq q::@:F@ ø‰×[Ä2c¾““c¾3c””c¾“¾”2”]¾”c¾”“¾”¾”¾”¾“¾¾”¾¾”¾”¸“¾”¾”¾”¾“¾”¾”¾”¾”ľ½¾¾”½”¾¾”¾3@qG@9@:@:3@:øŠÖ]d¾332””Žc”\3Ž½3”¾”½c,¾¾“”¾¾“”¾“¾”½”¾“¾”¾“¾“¾“””]c“c¾”¾”¾½”¾½”½¾”¾¾cc¾”½¾”3 3A::A::Ak@ ø‰×"Ä2c¾”c”]2””c½”¾Žc3”¾”“¾Ž½”]cƒ¾7”¾¾Ä”¾¾”¾“”]“Ž”½¾“¾”¾”ľ”¾¾”ľ¾3ľ¾”½ 9q @@:@:9@@3 ø‰×c¾¾,”“¾c3“3””cŽ“¾“2”“¾”½”ƒ¾$9½¾¾Äš¾“¾“”“¾]]“Žci¾¾”¾”¾“¾“”“¾“”½”…¾ľ”k 3:@A@9::@AA93øˆ×<”¾c3“Ž¾”¾¾c2]¾“Ž¾32,”¾¾”]”¾“¾””“¾”¾“¾”¾”9]”½”¾¾Ä¾“¾¾”ƒ¾”“¾”¾¾“¾”ľ”½”½:@9:9:@AAjAA9øˆ×c¾¾c,c”½”½”3”c¾3“”¾“3]ƒc¾”¾“¾¾”½”¾¾“””Ž½c]3½¾”†¾ ”½¾”“¾¾Ž“¾“ƒ¾½¾“¾”¾”9::@3 @AjA@Aq@Aøˆ×¾”2 ¾c¾”Ž“Ž]2Ž”2Ž“”¾2ƒ¾D3¾“¾“”¾¾”“¾”¾¾c¾”2c3c¾”¾”c¾š¾Ä”¾”¾½”¾“¾Ž”Ä”cc”“¾¾ @A@q 3 k@k@AjAøˆÉc-”Ä2,Ž“3½”9c“¾c¾”¾2””¾“¾”¾Ž¾“”¾”¾¾c2”½”Ž3cƒ¾“2¾¾“”“¾½¾”¾”½”c”ƒ¾c””¾”q@:qAqA9GA@q::9øˆÉ2ŒS22¾¾2”]c]”c]]cc¾]”””,¾”½””½”¾¾“”c¾c“Ž¾“Ž“¾2¾”½”¾2”½Ž¾¾”¾½”“Žjc¾š¾Ä¾cd¾½”¾q@:Gƒq kGkGqG@øˆÈŽ‡"2]3Ž3”c32¾”]i,33½”¾¾”¾”¾“„¾”¾””¾¾”3¾“¾¾”2¾”“”¾¾š¾¾“”„¾”½”¾¾Ä¾”¾¾GAqArGA3A@:GkGkøˆÒ>“2cÄ“c323¾“Ž“Ž“]“Ž¾¾2”½”¾”¾”¾Ä¾¾“c3,”¾“¾”¾2¾¾”¾””“¾Ž¾¾“ƒ¾ľ”¾”¾š„¾”½”¾½”¾¾@qq@A@ q@kAqA9øˆØ\¾ÄŽŽc23\””cŽ33”½””2”Ž½¾¾“¾¾“¾Ä¾c2¾“”¾“Ž23¾“¾“¾¾”“¾Ä¾Ä¾Ä¾”¾½”¾½¾Ä¾”½”¾¾”¾¾Ä”q:A@@k @A@kG3øˆØ¾Ä¾,3cŽ“Ži”2c”]¾””¾“”“ƒ¾””3¾”“Ž“”¾cc“Ž“¾¾“„¾Ä„¾½”¾¾”ľ¾“¾¾”¾“¾Ä”½¾A9Aƒ:@::@@AAø‰Ø:¾Ä¾3cc]3“Ž\3c,”Ž“¾¾”¾¾””“¾“c¾”¾“3¾“]c”¾”¾¾””c”¾¾Ä¾šƒ¾ ”ľ“¾”ľľĄ¾ľGA:@@:@k9@kAjø‰×cî¾Äƒ1””c2”2”3]c2c¾”½”c]cc]¾23¾“-cc”Ž½3¾”¾¾,¾“¾Äƒ¾ľľ½¾”„¾ľ¾”¾™ƒ¾ 39 3Aj AA9 kø‰×A¾Ä¾]3c¾¾,””2]c¾c””,cc¾39cc]c3c¾“¾c””¾¾½Ä¾“ľ”¾¾Ä¾Ä¾Ä¾Ä¾ƒc“¾Ä¾Ä¾Ä¾¾Ä¾9::@ q3::øŠ×Qc¾Ä¾Äc22”3c¾”cc””2c¾¾“]]c”3¾”¾””¾“¾¾”¾¾š¾”¾¾“¾¾Ä¾¾Ä¾¾Ä¾¾cc¾”¾¾Ä””¾@@ƒ:qAG:øŒ×1ľ]cŽŽc2””2]¾¾ccŽ¾¾”¾”¾”c,””“c”¾,¾¾”¾¾Ã”„¾cc¾”¾¾Ä¾”¾Ä¾¾Ä¾2ƒ¾“”¾¾“¾¾A9:qG@Aj:ø׎¾Ä3ƒR”32-2”Ž32”¾“c¾“”“”c”“c]¾23”½”2”¾“”¾”¾Ä¾Ä¾¾c]Ľ”¾¾½”c¾¾”“””½¾”¾”“Aq 9Aq@A: øŒÖ“ľîƒ!“ŽcŽ“¾“3c¾”¾3“¾”””c,c]¾””¾¾”ƒ¾”“ƒ¾“¾¾Ä¾¾ƒ¾”“3c¾cc¾”¾””…¾ “”qAq3 AjA@øŒ×ľľ3ƒ!]2””“Ž2c”½3¾”½””,”]c,”¾¾“¾“¾“ƒ¾”“¾¾”““cc¾”i¾¾Äîƒc¾¾Ä¾”¾”¾“”“”“Ž“@qH@A@qAøŒ×¾Äéľ2ƒ3c,3]3]]¸”3½”¾Ž“Ž“cc”¾“”ƒ¾””“”“Ž¾““Ž””3cƒ¾"”“Ž“”¾”]”¾”“¾¾“¾”¾“¾”¾¾”k:qq@:qAq3ø‹Ø¾Ä¾Ä¾ƒ+c”“,”22c2c”“¾¾”¾“Žc¾”¾“¾”¾“Žcc¾Ž“c¾½3ƒ¾ľƒc¾¾“¾¾”¾”“¾“¾Ž½”“¾9A::G:qAqAø‹àc3323,„c%Ž3”¾½¾]c]cc¾”¾”““Ž¾¾”¾c”½c]¾””id„c]¾¾”¾”“”½”¾Ž”“¾”¾”¾A@A3qAAqG@øŠâ.]c2,c]”]2¾”¾”2ccÄ]]c½”½Ž¾“”cc¾””c]c¾”¾cc¾¾ƒc]¾¾“¾¾“¸¾”“¾\3]ƒ””qx@:@qGqqr@ø‰ãR23c]”c2Ž“¾¾3Ž¾ÄŽ“”Ž“¾cd¾“]”½cŽcc¾”½cc¾¾””¾¾Ä“”“”¾“¾Ä”]c¾¾iŽ”“”¾@qH@kAAkA@A@@ø‡ãS323c]]]2””½”2c]“Ž“”c¾]c”“ccc”c”¾”¾3]”““Ž½Ä¾Ž¾”¾cc]c¾”¾¾“”Ž¾¾Aqq:@A@kqAA:ø†ä3c”2,3””]32Ž“Ž]c¾”cc3ƒc4]”c¾”½”\c“¾Ž“”]cŽcc¾”¾¾qqrq@qG:3G@qGrGq3:qqGAqq:ø†å3c32 ,3“Ž“cc2cc”“3¾”“]”ccƒ¾2””¾]c”Ž”“¾ŽcGqG:qqGrGxAjrGrq qr@r@qrGr@GrqAqAqø†çc232Ž“Žcc,½”]cƒ¾%23]]”]”“Ž“c]c3“¾“rrwGqr@rqqrxGrwr9;xƒrGqHq:AqGqGrA9 AqG@ø†Å“¾3]2 332-2”½ƒc,””2¾”c23c”“]]¾cƒ:0AprqrrwrrqGrqGrGrqrGrG:@qGG@@Aqrq@@AqrqqGk99rGkø†Äc]c2 O23,””]]2Ž“Ž,ccc¾“¾A9: @:AqHGAGAwrGrqHqGqHqxqqAkGkG::j:9 3:3@ qHqqHA: k@Aø…êM23¾”c3”,9]“ŽcA kA:@:@qq@@kGj@qkGqqHqqrqA@qGGr9@qrGq:@ 3 G: q rAqGrqGq @qø…ëM,,c¾”]2”c]3c@@kAFkAj A@k@Ak@rqrrGqG::GA@:qrqG3qGrx:@4GkAjAqq qAqAqqHq:3ø„ê+c3,d2c]3c]3Fk@A@k:GkA@kAjA@qGqGrM@kGqGqq@„:Gq::rxqr:@@qGA@xHq@qGqAqrqrx :ø…ç92c,3“3]2c]2”@kAj:@:3A@@q:@@:9:GrqrrGqAqkHrqxqGqrHqG@G:ƒ@A@3Aqr@ƒr AqxHxq@@Aø…ë,3c3“””22”A@@:@:AqGq…:2@4qAGq@qHqHqqGrrGqGrq94@:@AkqAA@:9 kMr@qHqqr@A@@ø…ìJ23,2Ž”¾,3393GkGkA9GA@9 @3GkqGqAkAkGGqrMqHq9HGqG:@:qGqk@q::@:@Aqq :3::ø†ìI2Ž32”¾”¾2cc3 9AApA@k@3:@A3@GqHqGAp@qr: ::qArqqrqqAqGrGqAqG:@::3:: 99ø‡ì,2”¾23”“23233\: qA::G::@:@A…:'@A:rGq 9:qGqGArGAqGAk@qrGrqq::9 3 3AGøˆí"3“Ž¾3\c33]239 39 :@::@::@q@3@3Aƒ@A qAGƒ:399A@;jƒA@qA„:9øí<””½323]2]2-2@ 333@:@AAG:A@39:49:3 3  33 2@::@:@ø“íƒ)c2cc,33232 2 3@Ak:@@k@q::49 3 9 99„: 394::3k@ø•íƒ”cŽ„c]c2ƒc']3, 93@@ :@kAAq@”9:9:@:@;:@:@:9 :9@@ø™í2“3\3]3c‡Žc]33]c]332c 3@Aj@:G9:@@” 9 qGq :3::@øí¸“223…c]2]3223\32-2]A,23ƒcc””“¾ø¨í(cŽc]c3]cc]cc32c]c3]c,32G@@323233,Ž”¸”cø§îƒc]c,„c3233]cc]9,c]c]c]2]3\c“”¾“”]ø§ï&33c]232Žc]]3cc2c]c3c]332323233””“Ž“Žø§ð&,cc]9]2cc2]2,c]c”“Ž“ŽŽ””“Ž¾””“ø¦õ2-2,322ƒcŽc”””“”c“Ž“Žc”“¾”ø§ø323]c“cc]”””ŽiŽ“Ž]“ø©øƒ3,]3dc”””””Ž““ø«ø† ]c2cc3”ƒd“c“ŽŽø«ø†23]32]“ŽiŽ“Ž”Ž”cø«øŒ33c”cø°øøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄøøÄUªU«3f™Ìÿ**3*f*™*Ì*ÿUU3UfU™UÌUÿ3f™Ìÿªª3ªfª™ªÌªÿÔÔ3ÔfÔ™ÔÌÔÿÿÿ3ÿfÿ™ÿÌÿÿ3333f3™3Ì3ÿ3*3*33*f3*™3*Ì3*ÿ3U3U33Uf3U™3UÌ3Uÿ3333f3™3Ì3ÿ3ª3ª33ªf3ª™3ªÌ3ªÿ3Ô3Ô33Ôf3Ô™3ÔÌ3Ôÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™fÌfÿf*f*3f*ff*™f*Ìf*ÿfUfU3fUffU™fUÌfUÿff3fff™fÌfÿfªfª3fªffª™fªÌfªÿfÔfÔ3fÔffÔ™fÔÌfÔÿfÿfÿ3fÿffÿ™fÿÌfÿÿ™™3™f™™™Ì™ÿ™*™*3™*f™*™™*Ì™*ÿ™U™U3™Uf™U™™UÌ™Uÿ™™3™f™™™Ì™ÿ™ª™ª3™ªf™ª™™ªÌ™ªÿ™Ô™Ô3™Ôf™Ô™™ÔÌ™Ôÿ™ÿ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌÌ3ÌfÌ™ÌÌÌÿÌ*Ì*3Ì*fÌ*™Ì*ÌÌ*ÿÌUÌU3ÌUfÌU™ÌUÌÌUÿÌÌ3ÌfÌ™ÌÌÌÿ̪̪3̪f̪™ÌªÌ̪ÿÌÔÌÔ3ÌÔfÌÔ™ÌÔÌÌÔÿÌÿÌÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿÿ3ÿfÿ™ÿÌÿÿÿ*ÿ*3ÿ*fÿ*™ÿ*Ìÿ*ÿÿUÿU3ÿUfÿU™ÿUÌÿUÿÿÿ3ÿfÿ™ÿÌÿÿÿªÿª3ÿªfÿª™ÿªÌÿªÿÿÔÿÔ3ÿÔfÿÔ™ÿÔÌÿÔÿÿÿÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿTªÿUªÿ,/(-(libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/head.r80000644000000000000000000025037012421456623016011 0ustar 333333939333339333933393d393333333393339993j39^93939d9933333333339933^9dd9d9d3dd33d3d99393333333399d3d9d9d9^9d3d3ddd99d9^9333933333939399^9d3333d9d3dd9d9d9ddd393d93d993333393393d33933939d9ddd9d9dddd99d9^93d9d3393933339339ddd933d93d9^9d99d39d9d9d9^9d3d99^993d39393333939^93393d39d9^d9d9^9d9ddd9d3d9d9d9dd39^9d3d339333333933939^93d9d9^d9dddddddd9d9d9d9d9ddd93d9393d9d3d999339993dd3d939d933d9d99dd9d9d9ddddddd9dd9ddd9ddd9d939^9^3d3333393^9939d9d3dddd9d9dd9dddd9d9d9d39ddd9dd9d93d9d3d3d939399393399d339d3d9^d3d939d9dddddd9dd9dd9d9dd9d9d9dddddd3d3993d9^93d39393933d9d3dd9d3993d3dddd99dddd?dd9dddddd9dddd9d99d9dd9dd9^99^939^d3393393d39^993939d3d93ddd9dddd9jdddddd9dd9dddd9ddddddd9ddd9d339d3d399d3d3393d9d3d9d3ddddddddd9jdd9djdd9dd?dddddjddj9dd9d9d9dddd9ddd9d3d99^9^99393393d9d3d9d9dd9dddj999dddj9ddjddddddjd9j9ddjddjddjddd9d9d9d9dd9d9^939d9^d3d3939^9d3d9d93d3dd9d9ddddddddddjdd?djdjdjdddd9d9dd9dd9dddjddd9d9dd9d9d9d39d999d339d39d9d39ddd9ddddjdd9ddd?djd9jddddjd9dd9djddjdjdjddjd?dd9jdddd9ddd9^d9d3d3d3d9933339d9d3d9d9d9dd9dj9dddd9djdjddjdjjdjdjdjdjdjdjddjdjdd9ddddddj9d9dd9dd93d9d9d9^9^d39939d3d3d93d9d^d9dddddjd9djddddjdddddjdddjdjdjdjdddddjdjddjd9jdddddd9d9dd9dd3d3d9d99d3d3393d99d9d9^9d9dd9d9ddddddd9djd9ddjdjd9jdddjdjddjjjdjdjdd9jddddjd9d9ddd9d9d9d99d39d3d39d33393d9d^9d3d9d9d9ddddjd9d?d9djdddd9jdd9djdjdjdjdjdddjddddjjddjdj9djdjddddd9dd9dd3d9d3d9d939d339^9d9d9d9dd9ddddd9d9ddjddddjd9djdjddjddddjdjddddjjdjdjjdddjddddjdddddj9jddd9d9dd9d9d9^9dd93993d9d9d3d9^d9d3d9d9ddddj9dd9d9ddddjdddj9jjjdjdjdjjdjddjdjdjjddjdjdddj9jd9ddjdddd9d9dd3d99^93dd3d3399^9^9d9d99d9ddddd9dj9ddjddjdjdjddjd9dddj•jddjdjdjdjdjdjddjdjdjdjdjdddddddd9d9dd9d9d9d^9d9^993d9339d3d9d93d3d3dd9d9d9dddddddd9ddd9djddjdjjdddjjdjjdjdjddjddjjdjdjdddj9ddjdj9jddjddddd9d39d9d9d9dd9^9339^9d9d9dd9dd9d3dd9dddj9jd?djdjdjdjddjdjdddjjdj•djj•djdjdjdjdjdjdjddjdjdjdddd9d9d9ddddd9d3d3d9^99d9d339d9d9d3d9d3d9ddd9dddd9ddddddddd9ddjdjdjdjjj•djdjdjdjdjj•djjdjdjdjjdjdjddd9jddjddd9d9d9d9dd9d9dd9d^93d9339d3d9^9d93d9d9d9dd9d9jddjd9jdj9jdjdjdjdjdjddjjjdjjjjjdjj•djdjddjdjdjdjddj9d9ddddddd9dd9d9d9^9d9d9^9d33d9d9d9d9dd9dd9ddd9dddddjdd9djddjddddjddjdjdj•djdjdjjddjdjdjjdjjd•djdjdjddjdjdddjdd?dd9ddd9dd9^d9d9d9d9d9d9339d9dd3d9d3d9d9ddd9dd9jd9ddjdjdjdjdjjjdjjddj•djjd•j•jj•j•j•j•dd•jdjdjdddjddjdd9jdddd9jd9d9dd9d9d9dd9d^9d3d9d33d9dd3d9d9dd9d3dd9dd9dddjdd9dddjdddjdddddjdjjdjdjjdjdjdjdj•j•jjjjdjjjdjj•djddjdddjdjdddddd9dd9dd9dd9dd9dd9d3d9939d9d9d9d9d9dd9dd9dd9ddjddjdjdjddjdjdjdjjdjdj•d•j•j•jj•j•jdjd•d•jd•djjdddjjdjddjddd9djd9j9dd9ddd9d9dd9d9d9d9d9d^93d93dd3dd9d^9dd9d9dd9dddd9dddd9jdjdjddjdjdjdjdj•j•djjjjd•j•j•jdjdjdjjdj•jjddjdjjdjjdjddddddddd99dddd9dd3d9dd9^9d9d399d9d9d9d9dd9d9dddd9dddd9djdj9jddjdjdjdj•jd•j•jdjjj•jjj•j•jjdjj•j•j•jd•jdjd•jdjjddjddjddj9jd9j9ddd9d9dd3dddd9ddd9d9d933dd3dd9dd9dd9ddd399ddd99ddjd9ddjdjdjdjdj•djjjj••jd•d••jjj••j•d•jdj•j•djd•djd•djjdjdjdd9jddjddddddddd9d9d9d9d9d9ddd3dd93d9d9d9^9dd9ddd9d9dddjddddj9djjdjdjddjj•jdjd•jdjj•djdjj•jj•jj•j•jj•jdjdjd•jjjdjjjjdjdjdjddjdddj9dj9d9dddd9dd9dd9d93dd9d3d39d9^d9dd9d9dd9ddddddjd9dd9ddddjdjdjd•jdjdj•djd•j•jj••j•j•jjjdjd•dj•j••jjj•d•jd•djjjdjdjdjddjddjd9djd9d9dd9dd9ddddd9d9d993d9d9d9dd9dddd9d9d9d9dd9dd9djdjdjdjd•jjd•j•djj•jj•j•••p•j•j•j•j•j•jj•djj•••djjj•jjjjdjddjdjddd9jdddjddddd9d9dd9dd99dd9d9d^d9d9d3dd9dd9dd9d9ddddd9dd9dddjddjdjdjddjdjdj•djd•j•jdjjjj•j•jd•jj•j•j•j•j•jdjj•j•djj•jjdjjddjdjdjddjdddd9d9dd9dd9ddddd9dddd99d3933d9d99dd9ddd9ddd9d9dddddd?dd9jddjjdj••djd•jdj•djjj•djjdjdjjj•j•j•jj•••j•jdj•jjjdjdj•djjdjdjddjd9jdjddd9ddd9ddd9d9dd9d9ddd9ddd9d9dddd9dd9d9dd9dddd9d9d?dddjjdjjjj•jj•jjd•jjj•jj•d••j••j••j•j•jj•jjjjj•j••jd•j••j•djd•dj•ddjddjddd9jdjdd9ddd9dd9dd9dd9d9d9d9d93d9d9d9dd9ddd9ddd9d9dddddd9j•ddjdjjj•j••j•djj•d•jd•j•p•j•j•jj•j•j•jjj•jjj•j•j•j•dj•jj•jjjddjjdjdjddjdd9d9jd9ddd9dd9dd9dd9dd3dd9d39ddd9ddd9ddd9ddd9dddd9d?dd9•jdjjd•jjj•jjjd•j•djj••jj•j•jj•j•j•j•j•j••j••j•j•jj•jjj•jd•jdd•d•jd•djdddjddjdddddd9d9dd9dd9dd9dd9d9dd9d9^9d9dd9ddd9ddd9dd9d9ddjddjj•jdjd••jj•jj•d•jj•dj•j•j•j•dj•jjjd•jjjjjj••j••j•j•jj•j•jjj•j•jjjdjjjj•jdjddd9djdd9dddd9dd9dddd9dddd9d9d39d9ddd9dd9ddd9dd9ddjddjd9djddjdd›•jj•j•jj••••j•›j•j•j•j•j•j••›•j••j••jj•jjj••j••jj•jjjjjd•j•jjddjjddjdjdddjddj9ddd9dd9d9ddd9d9dd9d93d9dd9ddd9dd9dddjdd9d9dd9djjdjdj•dj••jjj•jj›•›j•›jjd•jj•j••j•j••jj•j••j•j•jj•jj•••j•jjjjd•jd•j•j•d•jdjjdjdjd9djdddj9dd9ddddd9dddd9dd9ddddd9dd9ddd9ddd?d9ddjdddjddjdjdj•dj•jj•j•j•j•jdj•jd•j•›••j•jj•j•j••j•jj•›•j•••j••jj•j••••••j••j››•j›dj•jdjdjdjdd9jd9dd9ddd9d9ddd9d9d9dd3d39d9dd9dd9ddd?dddd9d9d9dddjjd•djjjj•j•jj•j•jdj••jj•j•j•jj••••j••j•j•jj•j•••p•›j•j•jj•j•jj•j•››••››d•jd•j•djdddjddjdddjdd?ddjdd9dddddd9d9d39dddd9dddd9dddd9dddddjdjdjjdjdj•d•jd••••j•j•••jj••j•j•jj•›j›j›•p•j•j••j•jj•jj•j•j••j•j•j•j•›•j•jj•›j••jdjjdjjd9djddd?ddddd9dd9dj9d9d9ddd9d9dd9dddd9ddjd9jdd9d?dddjdjdjd••›Æj••›•j•j•j••j•j›•›•jj•j•›••j•j••›•›•›••j•jj•jj•j•j›•j•j•jjjj››••jd•›••jj•djdjdjdddjddd9jdddjddd9ddddd9dd9d9d9dd9d9dd9d9ddd9dddddjddjddjdj•›•j›jj•jj•j•j•j•••›j•••›••›j•j••j•j›j•j›••p••••••j•j•j•j•j••••d•p•›j•jjj•jdj•jdjddjd9ddjdd9jd9dj9dd9d?dd9ddd93dddddjd9djddd9djdjdjd9jddd›Æj•›jj•j•jj•••j•j•j•j›j•j›•›j••j•›•›j•j•j••j•p••››j›j•j•j•j•j•j•››j•••›•j•j•j••jjjdjddjdjdd9dddddjdddddddddd9d9d39d9d9d9ddd9ddjddddd9djddjj›››jdj•dj••••j•pj••j›•jj••›•jj••j•j•j•›j•j•jj•j••j•›••›•›j•j•j•j•jj•››Ì•j›•j•›Æj•jdj•jdjdjdd9jdjd9d9d9d9d?d9d9dddd9dd9dddddd9ddd?d9dj9jdddjdj›d•jddj›•j•j›››•j•j••jjj••›•j••jÌÌ›››•›••›•›•››•j›•jj•j•j••j•j•j•jjd•››››•›››••››•›j•d••djdjjdjdddjddddjdddddjdd9d9dd99dd9d9d9jdd?dddjddddjdjj•djdjddj•›•›j•••••jÆÌj•j•››•›•j›Ì•jÌ•›•›j•›j••›•›••j••j•j•j•p••j•j›•Æ›••••j••›››j•››••jjjjjddddjd›d9d9dj9ddjd9d9ddd9d9dd9d9ddddjdd9ddddd9djddjdddjdjj•j›dj•j•j•›jjjÆ›j•j•›Æ››j•›•›•••jj••›j•›j›j›•››•››•›•›•›•j•›j•j•›Ì›j›j•j••›››•d›••j•j•j•jdjddd›djdjddd9dddjdd9dddd9d39dd9d9dd9dddd?ddjdd9jddjjdjdÌj•dd›•d•›•j•›Æ›j•›Æ››•j••››•››j•j•jj••›•••••›j•›•j›•›j•›•›•j•j•j›•››••ÌÌ•›ÆÆ›››j•›j•jjdjdjj•jd›djddddjdd9dd9dj9d9dd9dd9dddddjddd?dddddddjdjdj•Ìj•ÌÆj•d››d›j›••›•›j•›Ì››•j•j›•j•jd•j››•›•›•j›j›››•›j•›•›••j›•j›jÌÆj•j•›››j•ÌÌj•ÌÆ›•››••j•›jd•dj•d›djdd?dd9djd9jddddd9ddd99dd9d9dd9dddd9jd?dd9dddd¡ddýÆÌdj››dj•••››››ÆÆ››ÌÆ››Æ›Æ¡••j•j•››•››•j››•j•›››•›•j›•››j•›•••ÆÌ›ÌÌÌ›•Æ›••ÌÌ›•ÌÆ››››•j••jjdjjdjjdjjdddddjddddd9d9djd9d9dd3dddddd?dd?ddddjddjdjjdjÌdýÒd•djdjdjj•››Æ›Æ››Æ›•›•›Æ››Æ›››Ìý›•›•›••›•››Æ›••••››•›j•j••jjjjj•ÌÆÌÌÆ››Æ›››Ìý››ÆÌ••›••jÆ••jjddj•dÆjdjdj9dd9jd9dddd9ddd9d99dd9d9ddddddd?dd9djdjddjjdd•djdjdjd••Ì•›Æ¡•››››•j••›››•›•››ÆÌ›•››•›j•›•›Æ››•j›j•›•›••›››•j•jjd›››••ÌÌ›••›••¡ÆÌÆ•›•›jj››j•djdd›9•d9ddddjdddddj9ddd9ddddd9ddddj9d?jdjddjdddddjdjddj•jdddj•j•ÌÌ››Æ›•›•››•j•›j•››•••›•••›•••››•›››››››••›•›•j›j•••››•›••jÆ›•j•ÌÆ›•›•›•¡ÆÌ›››•jj••j•jj•j›jdjddjd9dd9dj9ddd9jd9d9d99dd9jd9dddddddddjdjdjddjdjj•jdjjj••¡•›ÌÌj•›››Æ••››››••j•›j››j•p•p••›•›•›•›•››•›•›•••›j›•••›››Ì•jý›ÆÌjÌ›Ìý•›Ì÷p•Ì››•›dj••j•dj•d•jddj9djdjddddd9jdddddd9d9dd9dddddjd9jd9j9ddjdjdjjddjddjj••j•›•ÌÌ••››Æ›•p›Æ›Æ•›••ÌÌ›•›Æj•j•›j›j•››•›••››•›j›•p•›•p›››•›ÆÌ•jÆ›ÌÆjÌÌÌÌ›jÌ÷•›j•j•›djjdjj•jddjjdddddd9dj9jdddd9d9d9dd9^9ddd9dd?ddddjdddjddd9dddjdjdjdj•j••›•›Æ››Æ›Æ››Ì›Æ›•j››››Æ̛ƛ•••j•••›•›››•›j•›•›••›••›••••›››ÌÆÌj•›Æ¡ÆÆÌÌ›•jd›››•j•j››djjddjj›•jdddjdjdjdddddj9ddjddd9dd9ddjddjddd9ddd9jddj9jdjdjdjdjd›d•j››j››Æ̛̛››ÌÆÆ¡•j››Æ›•››››•››››››j›••••j••j•›j•p•j•jj•jj••›ÆÌ›ÆjjÌÆ¡›ÌÆ››Æjd•››••›d••j•dj•dd›•djddj9ddd?dd9dddd9d9dd9d9dd9d9d9ddjdj9jddjdddj•djddjd•j•j•jÆ›•›Æ›ÆÌ››Æ›ÌÌÌ›•ÌýÆÌ›•j•›•›››•›•›••››j•›•›Æj••›••›j•›j•j•j•››Ìƛƛ›Æ›Æ›››Æ›Æ››•›•››•jjd•jjÆdj•jdj9ddjdddjdjdj9djddd9ddd9dddddjd9dddddddd?djddjdjdj•j›•jj•j•›Æ››ÌÌÌ›•››÷›•Ì÷ýÒ÷Ò•›Æ›ÆÌ•›•›••›•›•›•›•››››•p•p•›•›•›•››•››ÆÌ››Æ›Æ››Æ››Æ̛ƛ›•jj•j›••jjjdjj•jddjddj9ddd9ddddd9d9dd9d9dd9d9ddddj9djdj9ddjdjddjddjd›•jd•j••Ì›››Æ›Æ›•ÆÆj•››••••›•››››››››•››j›•››•p•••››••›••›•›•›•››Æ••››Æ››ÆÌ›••›Æ›•›j•Æp•j•••jjÆjd›j•d•djddjddjdjddjdj9djddd9d99dddd9djd?dddjdddjdjddjdddjdjj•›d•j•p•›•››››•›Æ››•››››•p››••›Æ››••›››››•j›•›•›››››•j•››•j›•››•››››••›Æ››ÌÌ›j›ÆÌ›•›•››•j•j›••j••dj•jjddjddjdd9dd9dd9dddd?ddddd9dddddddddjdd9jddjddjdjdjdddj›Æj••›•›•››Æ›•›Æ›››Æ››››Æ››•››•››•j•j•›•››•››•›››ÆÆÌ››•j›•›•››•›Æ›››ÌÌÌÌÌ›•›÷ÌÌÌÌÆ›•››•›•jj•jj•jj•djjdj•d9dd?ddjdjdddjd?dddd9d9dd9d?d9jdd9djddjdddjdddjdjdj••jdjjj››•›››››ÆÌÌ›ÆÌÆ›•››Æ››•j›•›••••j•••••›••j•›Æ›ÌÆ››Æ›››••››››Æ››ÆÌÌÌÌÌ›•›Ì÷ÌÆ¡Ì›•››ÆÌdjd•••›•jjdjdjdjjdjddjddjd?dddddd9dj9d9dddddddddjdjdddj9djdjdjdjddjdjdj›j•›j•ÆÆ›•Ì›•›•›››››•••j÷Ì›••›››j••j•j›•›››•›•pÆ››Æ››Æ›•jj•››››ÆÆ›•j••›Æ››•jjÆÆÌÆj•››ÌÌdjj•j›d›••jddjddddjddj9dddd9jdjdd9dd9ddd9djdjd9dd9dj9ddjddjjdjjdjj•j•jd•j›j•›Ì•jÌ÷Ì›•›•››Æ••›j•jýÌ•›ÆÌ•››››››››•›•›j•••¡Æ›Æ››••››••›•›Æ¡Æ››•›•›››••jj›Æ¡Æ••j•››•djjj•dj•jjddjdjddjddddjdjddd9d9dddd9dddd9d9djddjdddjdjdjdddddjdjjj•j•d››dÆ›››÷›››•››Æ››››››Ì›•j•›•›Ì›•›•›••›•››•›•››››•›•›•j›•››•››››››ÆÆ››ÌÆ›•›ÆÌ••›•jj••j••›j•d•jdj›jjdjddjdd9jdjd9ddjdjdddj9dd9d9djdddd9ddjdjdddjdjdjdjdjdd••jj•••›Ì›ÆÌÌÌ›•›Æ›Ìƛƛ›•›••›•››•›•›•›››•›››•›•›•›Æ•j•›j•›•›•Æ¡•••Æ›Æ››Ì•›ÌÆ››•¡Ìj•››•j›jjj••j•jjjddjjddjdd9jddjdddjdd9ddj9ddd9dddddd9djdjdjdd9djdjddjddjdjdj›•j•j•›jƛƛ›ÆÌ›ÆÌ•››Æ›ÌÆÆ›••›•›•››››•›••›•›••›j••››j•›j••›•››››•›•j••››››Æ›•Ì››••••j•›•›j••jj•j•djjj•jdjdjdjddjd9djdjddjdddd9jd99dd?ddjdddd9jdjddjddjdjjjddjd›djj•›Ì•››•›Æ¡Æ›ÌÌ̛ƛÌÌ››•››•›•p•ÌÆ›•››•›•›•p••›j•›•j•j•p•j››•››•›•p••›Æ››Æ››Æ›››j›•j•›j•›••dj•j•jdjd•j•djdddjdddjddd9dd9jdj9dddddddddjd9d?ddjddddjdjdjdddj•jjd•jdÆÆ•››•›ÌÌ•››ÆÌÆÌ›ý••››ÆÌ•›››••j›››jj•j›•››››•››•j•›•••››•›››•››•Æ››•jÆ›ÌÆ››•›•›•›•››•j•›j•jd•j•d•jdjdddjjddjdddjdjdjdjdddddd9d9d9djd9djdddjddjdjdjjddjdjjddj•••››jÌ›••ÌÌ›•›››Æ¡›Ì÷Ò•›››Æ››Æ›•j•••j••j›•›•›••••›j•jj•›j›•›•›››•›››Ì›››•››ÌÌ››Æ›•›•p•j›•j•jj•j›jjjj•ddjjdddjdd?djd9ddd9dd9d9jdd9d9dd9dddddjdddd9jdjddjddjd•jdj•j•›j•›jj›››•ÌÌÆÌ›•›•j•›ÆÆ››••p•››ýj•Ì››•›•j••j•››•››••›j••j•›Æ›••••››Æ››•j÷ÌÆ•••››››••j•›j•j•dj••jddjdjdjjjddjddjddjdjddjdjddd9ddd9dddjd9dj9dd?djddjdjddjjdjddjdjjj••››••››•Æ›ÆÌ›•›Æ›•›Æ¡Æ››•j•›››ýý•j››•›•›j•j››››•›››••j••j››•›j•››››Æ›Æ•jÌÌ›j•›••›•›j•j•jd••jd•dj••jdjdddjddjjddjdd9jddddjddjd9ddd9ddjddddjddddjd•jddjddddjdjj•d•j•j›••ÌÆÌÌÆ¡ÆÌý›››››ý›Æ›Æ››Ì••••››•›•›››•››››•Æ›Ì›››››››ÌÆ›•••››••••›Æ›Ìdj•j•›•›››•›••jj•jj••jjjd•›dddjdjdjdjddddjdddd?djd9dddd99dddjddd?djddjjddjjddjdjdjddjd••j••››••›ÆÌ›››Æ›ýÌÌ›•›Æýý›Æ›Æ›Æ¡•›j•›•›•›Æ›››•›•›ÌÆÌÆ›ÆƛƛÌ̛ƛ›•›•›j•jÌÆÌÌj•jj•›•›››•›•••jdjj•jjdjdjjdjdjddjjdjdj9djdjdddddd9d?ddddjd9d9jddddjddjdddddjddddjdj••j•›j•››››Ì›Ì÷ýý›•ýý••Ì•›•›•››››Æ›•››•›•›››•›•••›•››•j••›•›•ÌÌÆ››››››››ÌÆ›››••›•ÆÌ››••››•p•j•jd•j••jdjddjddjdjdddjddjddd9jdj9jddddd99dddjddddd?dddd9jdjdjdjdjddjdjjj•›j•›•••›››Ìýj››ýd›ÆÌÆ›•›››•›•›•›››•›•›•›››››•›•›•›•j•››•›ÌÌ›››ÆƛƛÆÌ•›Æ›Æp•››ÆÌ››j•››•›•›•j•dj•jdd•jdjdjdddjddjddjdjdddddd9dj9jd9djdd9djd9jddj9jddjdjddjddjddjj•j•j•›››•››Ì÷Ì››••dÒý››Ì››Ìƛƛơƛ•›•›j•›•••••jj•jdd¡››••›•›••••››››•››ÌÌÌ›››•›•j••›Æ•›››••j›•jjjdjdj•jdjdjjjdjjddjdd9djdjdjddj9ddddd9djdjddddjdddÆdjddjdjdd?djdjj•j•››•jÆ››Ì÷Ì›•ÌÌjd÷ýýÆ›•Ì››Ì››Æ›ÌÆ››•j•›•jj•j••›Æjj›Æ››•›j••›j•j•›Æ››•Æ›Ì̛ƛ›•››j›•›››•›››•›j•›Æjjdjdddjdddjddjdjdjdjddd9jdj9ddd9d9ddddd9djddd9jdýjdjddjdjdddjdjj•••›•ÌÆ›ÆÌý•›Ì÷ÌÌj››Æ››ÌÌ›ÌÆ›››Æ››Æ̛ƛ•›••›•ÒÌýÒ•Æ•›••›•Ìj›j•›•››››››ÌÌ•›››ÆÆÌ››ÆÌ›Æ̛ƛ›•›••j•››•ddjddjdjddjddjjddddjdjddjddd9dddd9dj9jddd?djdjdjdd9dj9djdjddd•j•j›j›››•jÌÆ››ÌÌÌÌ•›Æ›Æ›Ì÷Ìƛ̛•Æ›Æ›Ì›››››•j›j›•ÌÌ÷››•›•›•›ÆÌj•j•››Æ›•Æ›÷ÌÆ••›Ìƛƛ›Ì̛ƛƛ÷ÒÆ›››••••j•jdjddjdjdjdddjdj9dddjddjd9ddjd9ddddddjdddddÌddjdjddjddddjdj•jj•j•Ì•››ÌÆ¡ÆÌ÷›Æ›•››››Æ›•ý›Æ›Æ›››››Æ̛ƛƛ›Æ›ÆÆ̛̛›››››Æ››Ì›Æ›››•j••››››ÌÌÌÆ››››ÆÆ››Æ›ÌÆ›ÌÌ÷›Æ››•p•jjjddjddjdddjjddddjdj9ddjd9dddddd9ddjd9ddjd?d›dj9ddjddjdjd9jjdj›•››ÆÌÆýý››ý̛ơÆÌ̛ƛƛ›•›Æ›Æ›Æ›Æ››Æ››››Æ›Æ›››Æ›Æ››•›››Æ¡Æ›Æ››››••j•››•››ÆÌ̛ƛ›Æ¡Æ››Æ›Ì•››ÌÆ››•›•›jdd•djdjddjdjdjjdjdddjdddddd9j9jdd9djddjd9ddj›dddjddjjdjdjd•jj•›•›ÆÌÌýý›•ýýÆ›j•››•››Æ›Ì•››Æ¡Ì››•ÌÌÆ››•›•›•›•››››››Æ››•›•››Æ›Æ›Æ›››Æ›ÆÆ››Æ›Æ›ÌÌý÷Ò÷ÌýýýýÌÆ››•ÌÆ››•›••djjddd9djdddddjdd9jddj9j9d9dddd9d9dddj9djddjdddjddd9jdjddjdj•ÆÌÆÌÌÆjýýýÌÌý›››•ÌÆ››Æ››••›››Æ›Æ›ý›•Ì›ÌÆ›•››•›•›••›Æ›•›Æ›•›•››››Æ›ÆÆ››Æ¡››•Ì››ÆÌÆýÒ÷Ì÷ÌýýýýÌÌ÷Ì›ÌýÆÌÌ›ÌÆjjdjjddddjdjdddjddd9ddddjddj9dd9dddjddddjdddddjd?jdjddjdj•jýÌÌ›•ýÌjjýýÌÌ•›››Æ›ýý›Æýý•Ì›•›››Æ›ýý››Æ›Ì̛ƛ››››››ÌÆ›››››Æ››››Æ››Æ›Æ¡››•›Æ›ÌÌÌÌÌÌýýÌýÒýÌýýýÌÌÌÌÌÆÌýÌÌ›ÌÌýdjdjdjd?dddjdjddjdjdjddd9dddddd9d9ddj9dd9jdj9dddjddjdjd›dýý›•jdÌÌ•Ìý÷•Ì›Ì÷›Ì÷ý›Æýý•p•›››Æ›››÷ý›Æ›ÆÌÆ››Æ›Æ›Æ››Æ̛ƕƛ›Æ›Æ•›››››ÆÆ››››ÆÆÌÌÌÌÌÌÆýÌ÷÷ýý›ÆýýýýýýÌÌýýd••jÆ›•Ìdjddddj9djdd9djdddj9jdd9d9d9dddjdddjdddddjdjdjdjdddj••ýj›ddÌÌÌ•ýýý¡•›d›Ì÷ÌÆ¡ÌÌÆ¡Æ›››Æ›Æ›ÆÌý›››ÆÌÌ››•››•›Æ›ÌÆ•›››Æ›ÆÌ››Æ›Æ›Æ¡Ì›Æ›ÆÆÌÌýýý÷Ìj›ÌÌÒ÷Ò÷›ÌýýýÌýýýýýýj•›››•jdjdjdjddddjdjdd9djdddddd9djd9ddd9jdddjd?ddddjd•jdjdj•p•j•jýýýýÌÌÌý•ÌÆdj÷ýýÒýýÌÆý̛ƛ›ÆÌ››ý÷Æ›››ýÆ›››•››Æ››ÆÌ›•››Æ››Æ›Æ›Æ›››ÆÆÆ››››Ì÷ýýý›÷Ì••Ìý÷Ò÷ÌÌÆ››››•j››ÌÌÌÆ››dj›•jdddjdj9dddjdjdddjd9d9jdd9d9djdd9jdjdddjdjddjdjd•j•j••d›ýýýýýÌýj÷ÒÆÌdýýýýýýýýÌ››Æ›Æ›Æ›ÆÌý›Ì›Æýý›Æ›Æƛƛƛ›››ÌÌÌÆ››››Ì̛ƛƛ›Æ›Æ››ÆÌÌý›ÆÒÌj•ýý÷¡÷ÌÌÌÆ•››••›•ÌÌ››•ýdddjjdd9ddjdjd9ddd?dd9dddd9dd9dddjddd9jdjdd9djddjdjjd••jjj•›Æjjýý›ÆýÌÌ›•99ýýÌÌ÷Òýý››ÆÌÌ›››ÌýÆÆ›››ý››Æ›Æ¡ÆÌ›ÆÌ›ÆÆÌÆÌ›ÆÆ››Æ›››ýÆ¡Æ››Ì›Æ›•ýÌ›÷ýýý›Æ¡ÆÌýýýýj•ÌÌdj•jddd9•›jddjdjdjddddjdjdddddjd9d9ddd9dd9dd9djddddjdjdjdjjddddjdjdj›Æj••›ýÌÌý÷Ìj••jddÌ÷ÌýýýýÆ›ÆÌÆ››ÌÌÌ›››Æ›Æ›››Æ››ÆÌ››Æ››››Æ››ÆÆ››Æ›ÆýýÆ›ÌÆÌ÷p•••ýýÌý÷ÒÆ¡ÆÌ›ýÌýýýj•Ì›jdj•9ddd•jjj•djdd9jd?ddd?dj9ddjd9dd9dd9ddjdjdddjdj9dj›ddjddddjdj••ÌÆÌ››•›•››ýýÌ•ÌÌÌýdý›ý÷ÌÌý›Ì›ÆÌÌ›ÆÌ›ÌÆ››Æ››Æ›ÆÆ››Æ››Æ››Æ›Æ›Æ›¡Æ›Æ››Ìý›ÌÌ››•j››Ì›ýýÒýýýÌÌý•›ýýÌý÷ýýÌÌ•jÆ›djjddjdjjddjdddddjddddjdd9ddd9jd99ddd9dd9djddddjddddddd9jdj•jÆÌ›ýý÷›››•››ýýÒÌÌýýdj››ÌýÌÌÆ›››ÌÌÌÆÆ››Æ›››Æ›››››Æ››Æ›Æ›››››››Æ›Æ›ÌÆ›ÌÌ›ÆÌÌ•j›Æ››››÷ý÷ýýý÷j›ýýýýýýÌýÌÌýj•›Æjdjdddddjdddjdjdd9dj9ddjddjddddddd9jdjdjdd9jd9djdd?d9djdd•jÌÒÌÌý÷ýýÌÌÆÆÌÌ÷Ìý÷Ì›dd›ÆÌýÌÆ››ÆÆ›ÆÆ››Ì›Æƛƛ›Æ›Æ›››Æ››ÌÆÌ›ÆÆ››››ý›•Æ›ÌÆ̛̕jƛ̛÷÷›ýÌ››•›jdýjdÆ›ÌÌýýÌÌýýÌÌÌ›•jdddjdjdjdd9ddjdjddj9dd9d9dj9d9dddddd9djddjjdddddddjjj›ýý÷ýÌÌýÒýý÷ÌÒÆÌÌýÌýýÌýjd››÷ÌÌ̛ƛƛ›Æ¡ÆÆÆÌÌ››ÆÆ›››Æ›Æ››ÆÌÌÆ̛ƛÆÆ›ýý››Æ›ÆÌÆj•›Æ››•›ýýÌ››•›djÆ›d•jÌÌÌýý÷Ìýý÷ÌÌÆd•jjjdddjdjdjd9ddddddddjdjdddd9ddd9djddjddjdddd?d9djj•Æ›ÌÌý÷ÌÌƛƛÌÌýÆ›››÷ýýýýÆddjj•••j••››››Æ›ÌÌÌÌ›››››•›››››Æ›Ì̛̛ƛ›››ÆýÆ›››•ýÒ÷ý››•Æ››ý÷›ÆÆ›jd››djjÌ•Æ›ÆÌ›ÆÆÌÌÌýý¡Ì•jjdd9dddddjddj9jdj9dd9dd9jdd9djdd9ddd9ddd9ddddj•››ÌÆ›ýýýý›››››ÌÆÌýÌÌÆÌýýýýýÌdjdjj•j•jj•›Æ››ÆÌ›Ì̛ƛƛ›•›Æ››Æ›÷ÌÆÆ›››Æ›Æ̛̛›•›•ýýÌÌ›•›››÷›•¡›ddÆ›ddd›•››Æ¡Æ››ÌÆ›ÌÆýÆýý•j•jdd9jjddj9ddd9ddjdd9dddj9dd9djdjd›jjd9dj9ddj•j÷ÌÆ›ýýýý›Æ›Æ››ÆÌ››•›jj•jý÷Ìd›••jj•jjjdj••››ý÷ÌÌƛƛ›Æ››Æ››Æ›ÌÌ›››ÆÌ•›››ÌÆÌ•›››j•ÌÌÌ››•jjd›••›ýj•jj›Æ•›ÌÆýýýÌýýýýýÌÒýÌýj•djdddd?dddjddjdjdddd9d9dd9ddd9ddjdjddd9ddjjdj•ÌÌÌ›ýýýýÌ›÷ÌÌýÌÆ›Æj›••j•jýÌýj•j•jj•ddjd9••›ÌÌÌÆÆ¡ÆÆ››Æ››Æ›ÌÆ›ÌƛƛÌÌ•›Æ›Ì•›•›d•ÌÆ›ÌÆj•djÆ•›j›ýý••Æ››ý•›Ì›ýÆÒýÌýýýýý•›ý•Ìj•jd?dddd9djddd9d9d9ddjddddjddjdd9jdddjdjdjjj•ÌÌý÷ýýýýÆÌÒ÷ÌÌÌÌÆ›Ædjddj•ddj›dd›••j›÷Æ•››Ì›•›Æ¡Æ•›•›››•ÌÆ›ÆÌ››ÌÌ›››Æ››Æ•›ÆÌ••››ÌÆ›•••j•dj9dj•jdjjj•ddjddjjjd•ýýýýýÌj•››Æj•jdjddjjddd9jddjdddd9dd99dd9ddjddjd9ddddjd••›ýÌ›ýýÌÌÌÌÌýý›•j›››•jdjdjddjdd•9dj••›Ì›j•›ÌÆ›•›ÌÌ›•j›•Æ›ÌÌÆÒÆý›ÌÆ›•Æ››››Æ¡ÌÌ›jÆÌÌÌ•››djdjdddjdj•j•jdjdjjjd•jdj••ýýýÌÌýƛ̕›jdjddddjdjddd9dj9d9dddjdd9ddj9djddddd?djdj•Ò÷Ì÷›Æýý÷ÒÌÌýý››•dÆ›•jjdjdd9jdjdjd9dd››••j•›•››•j•›››Æ››ÆÌÌ÷ÌÌý÷ÌÌ•›•›••›•ýýdjd•j•jjd›•››Æ›jdjj•djd•jdjjjjdj••››•ýýýÆýýÌÌÆÌ•jjdjd9djd9djddddddj9d9d9ddj9djddd9jddjdj•jýÌýý›ÌÌÌýÆÆ•jd•j•jj•j›÷ýÌýjddjdjddjdjd››••jj›•››•••›•›Æ››ÌÌÌÌÌ›ýýÌÌ•j•›j››ýdddjdj•djjd››••jdj•djdjd9•j•j••›•››jj•››•ýýýÌÆ¡Æj•j•djddddjdd9j9d9d9ddd9ddddddjdj9dddjdjj•›÷Ìýý›ýÌÌ÷Òj•j•ddj•jj•j÷Òýýdjdjdjddj•jddjj•••j››Æ›j•ÌÌ›››•›ÆÌÌÆ•jýýýý››j•j•j•ýÌj•9›djd›•jjdjdjjjdddd9•j•djj•••›•›•jÆÆýýýý›ÆÌ›•jd›djd9jdd9dddddddd9ddd9d9ddjddddd9jdj•d•›ÌÆÌÆÌ•›•›j•j•j•j•djdddjdjdddj•dý›dj••jdd99•j••›››››Æ››•››Æ›ÌÆÌÌ›•ýý››•ýj•j•jýÌjdddd••d9ddj•dddddjdddddjj••j•jj••jjdjj›•›•ý›Ìj›•jdjddddjdjdj9d9jddd?ddddj9dd9d9jddjdj•››Ì›ÌÌÆj•j••jj•j•›jdddd93ddjdjddjd››d9••jjdddjj•j••››Æ›Æ›ý•Ìýý›ÌÌÌ›•Ìý••››•j••ýdj3ddjjjddjd9d9djjdd9jjjdjdjdjdj33dddj•j•›•ýýÆÌj•••jdjdjd9ddddddd9d9ddd9d9ddj•ddddjdjj•j••Æ¡ÆÌjjj•jjd•j•jdjddjddd9dd9djjdd9djjdj•j›ýdj•jj•j•›Æ›Æ›ýý›ÆýÆ›ÆÌý››Ìý››dd••›ýjdjdjdj3d9dd3ýÆdddd9•›Æ›ÆÌ›ÌÆ›››Æ›››••j•jd›Ì››•j•j›djdd9jddjd?dj9dddj9ddddjddj9jddjddj•›››Ìƛ̛•j•djddjdjdjdj39333djdddddjdjdj•jýýj•jd•j••››ÌÆÌÌÆÌ̡ƛƛ›•ÆýýdjjjÆ¡ddddjdjdd9dd9ýý9jd9dj•jÆ›•››››Æ›Æ¡Æ›•p•9dd›››››••›jjdjddddjd9ddddd9d9ddd9ddd9dddd9jdjdj•›••j›ddjdjj•jjjdjdd›•››Æ››Ì÷Ì93d9d9jddd9djdd9•9•••jÆÌÌ›ý››ýÌ›ÌÌƛƛƛ›ÌdÌdÌÆjddjjjÌÌddddjdjdd9djj•jjjÆ¡Ìd•••››››ý••dd•›ÌÌÆj••j•jÌ••djdjdddjddj9ddd9ddjddd9jdjd9jddj•jjd•››Ì•jdjddjd•djdj••j•›››•ýÌÌÌ3d9dd9d9ddddd9d3jd•p•jÌÌÌ÷›Æýýƛƛ›Æ¡›Æ››dj››ÆÆ9jd•jÆýj•pjdjdjjd•j•ddjj•ÆÌ›››•›•Æ›ýýjjjd•›Ì••jj•dÌÆ›jdjddjdjd9ddd9dddddd99dd9djdddjddj•d•›djdj•j•j••›j•djj››Æ›•›•j•jÆÌÌddddjdd9dd9dddddddjd›•ýýÌý›ÌÌ›ÌÌ÷››•Ì›ýýj•Ìdjj•jddd3•jj•dj•jd•dd›•›dd››ddj••j•›•›ýýý•jd››djj••››•›j•jdjdjddjd9djd9d9d9jdddjdd9djddjjjj•j›Ìj•ddj•j•››÷jjdjjd›››ý••j•›ÌÆ›dd9ddjdd99ddjdjdjdddd›•ýýj÷ÌÌ›•ÌÌÌ››ÌÆýý••›d•••jdd9››Ìjdd•j•dj›•››jd›ddjdjj••j›•ýýýýdd›dj•j•j›•jdj•jdjddj9ddjdd9dd9ddjd9dd9ddddjddjdj•d›d•jj•ýýdjj•dddjÆdÆd•j•›››ÌÆjjjj•›ddddÌ•d9jdjdjdd?d9d›ÌÌýÒÌÆ››•jÆ••›ýýý•jÆjd9djdÌjjddddjjdddjdj›39^3j•›››Æ›j•j•ddd9j››•›››djjÆjÆ›j•djddddjddjddd9dd9d9dddjdd9jddddjd›dÆjj•jjj÷Ìdjdj›Æ•›››djjj•›•Ìdjdd•dÌjdjd9j›ddjdjdjj•9dd›÷j÷ÆÌÆ›••››››Æ›ýýÌ•›d9jddÌj•djjdjdd9d9jÆƛƛ•j•›••›Æ›•j•jd9dj•››•››•3dj•›Æ›Ædjddjdjdd9dd9dddj9ddd99ddjddd›djddjd›››Æjddd•jÌÌ•j•›››Ìj•›•djd9dd›››•jd9›9•jddddjdjd•dýýýdjj›•Ìýýý̛̛›››Æ››ýýj›•j•d›jd››dd•jddddj•j›•›•jjjjjdjjj•j•dj››››ddj•jd››•›dj›djdjddjddjdj›dd9ddd9dddd9djd9jjdjjd•djd•••j•ý››333d9›ý•jdd››jdd•j››•Æ›Ì››d•9•jd9ddddjjjdýÌdjd››ÌÌýýýÌÆ›•Æ›Ì›•››•jdddj•j••dj•jdjddjdd••›•›Æj•djjd•dj•jjdd›•›Ædd9d›ÌÆjdj•j•jjdjd9d9ddd›d9jd9ddd?d9dddddddjdjdjddjj•j•jjÆ›››››•d÷ýj•››•›•jdd››•›Æ››•›d›•dddjdjddýýÌd•j••›•Æ›ýý››››•››ÌýýÆ›jdjjdjdjÌj•jddd›djdj99•jjjÌÆ33ddd9jd•jdd9dddÌÌdd›ÆÌdjj•9••jddjdddjdjd›ddddd9d9dddd9jd9jddddjj•Ìj•jdÌ›d9••›ÆÆdjjÌ›•›dj•j•›j•dj••ýÌÆ›•j•››d•jdjddýýjddjd›j›ýýjƛƕ››•ÌÌýý•djdddjddj•jjjdd̛ƛý÷Ì•••jÌ›jd9dj•j•d9ddjjjÌÌ÷›dddd•Æd›jddjdddjjddjýdj9d9ddjdd9ddddddjd9jdjjÆÌj•dÌ››•9•jÆ›j•j••9ddjjddÌ›•jjjýÌÌÆ››•j••jdjjdjddjdddjdjdÌÆjÆÆ•j›•››••›Æjdjdjdjdjd•÷Ì÷jjd›››ÆýýÌ¡•j•jÆ›j•djjd•jdd3jdddý›•›9jdj•›jdddddjd›jdddýdddjdd9dd9dd9jdj9ddjddjdjdjjýdj•›d•jd939d9dddjjjjd•j•›ÌýjdÌ›››››››jdjddddjjddjdjdÌj•›Ì¡•j••››••›j•dddddjddjÌÌd›Æ›••››jd••9Ì››Æ›ýý•dddjj•jjjjdd33djÌÌj•Ì›9ddd›jddj•jddj9jd9d9ddjdd9dddjddjdddjdjddj•ÌÌj•÷Òdj9dd3dd9ddjjdd•jj•j•›ýýjjÆÆ•››Æddd93d9jj•djddjjÌÌÆ•j•j•jjj•›Ì÷jjdjdjddddj›÷j››•›j•›Ìdj•››Æ›Æ›ýÌ››djdj•djddddjjddýd•ý›•d9›•jdjdjddjdddjd9dd9dd9ddjdd9jddjdjdj•ýdjd›d››dd•d93d9djd›ÆýýÌÌÆÆ›ÌÌÆ›•›dj››•›››››ÆddddjddjddddÌƛ̕››•j••j•›Ì•jddj9dj9•3d39•›Ì››••ÌÌÌýýýý•››÷d›Ì÷ÒÆÆ›ÌÌddd9j›jjddj•jj›ý••jdjddddj9djd9ddd9ddjd9dddjddd9jdj•j•›•jdd›•ddjdj3jdddd›ÌÌýýÌÌÆ›››Æ̛ƕ›dd››Æ›Æ››d9dÌdddd9djdjj••jÌÌÌ••›••j››ddjdddjddjdjÌÌ•j÷Ì››•jÆÌÌýÌýý•›Ìýd››Ì̛ƛ÷9d9dd›Æj•djj•j•jjjdddd?ddddjdddd9dd9dd99ddj9ddjdddd››dd939Æjjjdj•ddj•dd9dÒÆÌddj•j›•ÆÌÆ››Æ›››dÌýjdÆ•d9399dj•9ddjdj•j›ÌÌÆýj•››•j•jddddjdddj9d›ý›•›•djjÆ¡ýýÌ÷›Æ¡›ÆÌÌdd•ÌÌj›ÆÌ9ddj•÷›ÌÌdj•j•d•j•jjjddjdddjd9ddd9ddjdddddjdd9dd9dddddd›•››jj•j›9djddjdýÌ››››•›•››ÌÌÆ›ÆÆ›jjýýjj•›dd9•dj9dd9jdj•j•••jj•jj•›djjdjd9dj9jdddÌ›››•9•j••Æý÷ý›››ÆÆ››Æ›j•jÌÆddÌdj•dj•Ò÷jd•djjjd••jdddddjjddjd9djd9d9d9djdddjdjdjdjd›››Ìddjjdj•j•ddd9dddj•›Æ›ý•›ÆýýýÌÌ›ý›ÌýýÆÆÌÌÌ93•d9dddjjdddd•j•›•jdj•jdj••ddjddjddd93jjÌ••j•j›•j•j•pddjÆÌý›dýý›Æ›•Ìjddj•›d›ýÌddjjddjd¡dddjdjdjdjd9dd9dddddd9djd9jdddddjd››djd››ddjjj•›9dddjjj›jÆ››ýý›Ì›ÆýýÆÌýýÆÌýý¡ÆÌdd9•j9d9dddddjdj•j•ddj•j••jjjjddjddjddÆjd•ÌÌ›•jÆ››•j•d›•jdjÌ÷9ddý›ÆÌ›•djd›9jd››Æj•›dddj›ddjdd9dd9dd9jddddd9d9jdd9ddddj9j9djdj•djdd››ÌÆÒÆ›•dd›d9Ìd•ÌÌÌ›ÆÌ•jý›››dj›ýý›››••›÷jddjddýdjdjjddjjd•9jj•j•j••j•jddd9dd9jÌjddd•j••jdjjjjdÆ¡j›÷ÌjddddÌ›ýdýjÌj›dýdýd9dj•jýjÌ››ý•9djddjdjdýjd9dj9ddd9dddjdddddddjdjjýd9dd›ý›Æ›Æjdd›9dÌd›ÌÌýÆ››d•›Æ›••dý•›Æ››j›jjjddd9dddjjddjddjdd•j•j•j•›•jjdjdd?ddj›^d9jdjj•j•j•djdÌdd÷Ò•jd993dÌÌdjÆ›•ddddd9•djj÷jÌÌd›jjdd9jdddjýjddd9dd9ddddddjdjdjddddjdÆÌýÌj3ddjdýÌ•9dd›jdjÆÌÌÌý÷•j•j››››9Ì››››•d••dddýd9d9djdd9dddjdjj•jjjjddjdjdddddjdÆ99ddd›••jd••djdjddjj•jdddd›››9ÌÌÌÌý•9dj9jdjj•j›djýÆ›dd››djdjjdddjdddd9dj9j9djddjddj9jd9djd›ÆddjddjjýÌ•ddd›Æjý›ÌÆÌ÷9•j›••›•dýÌ÷›Æ›ddd›•9dýjd93dddddjdjdjj•dj•d•jjddjdjd?dd9›d39dddjjd›•jddd3j›dd9ddd9ƛƛ•dýÌ›ýýd›ddddddj››ÆdjÆjd›Æddjdjdjjdd9d9jdddddd9djdd?dddddjjd›d›ddjdj•jÆ›9jddÌÌýý•÷jý›ÆjýÆý›ýddÌÌý̛ƛ̛dÒ•jd9ddddj9djd9djddjjdj•jjd•dddddddjddjd399ddd9d9jdddj9dd9d9d9•ÌÌÒÆýÌý›•ý›•›d9d9dddd•djd›ýdýjjÌdjddÌÆjdddd9dd9dd9dddjddjdj9d›djd9Ì9djdd•j3ddjdjÌÌýýý9dýý›Æj•ýý›djdÌÌ÷ÌÌ›››dd•›3d9d9dddd9djddjdjd•jjjjjdjdj9dd9ddjÌjdd9Ìd3•j9djdddj^dd9•j•ÆÌÆý÷›dýý•jdddddjd›djdddýdÌdd•d›djÌÆdj9d9dddj9ddjdjdjdjdddjdddddýdddj9››dddjddjÌýýÌdÌÌÌÌÆ¡dj9d9ddj›9ÆÆ›•d9ddd9ddddjd?ddjdddddjdjddj•ddd9ddjdddd9ddddd››ddjdddddjjddjjdjý¡Æ•ÌÌÌj•jýýÆjdj9d9•›jdjdddj9djdjÆjd›jddddd9d9ddddjddjddjddjdddjddýjjdjd••j9ddddj•ýýÌd•ý›Ì›Æd›Ædd3933d9Ì››d39›jjddýjddddddj›d9dddjdjjdjjddddd9d?dd3jdjd››dd9djdjdjdjdjjddýý›jjjÌÌd•jý››d9dddj•›jjdjd9jddd›•›jjdjdj9d9ddjd9d9›djdjdjjjd9jdd9jÌýýýÌj•9ddd9Òd››•÷Ì›jý››››dj•jd9d393d3d•djd•dÆj9dd9d9jd9ddjddjdj•jddddd9d9jddddjddjddd•Ìj9•9d9d•jjdÆ›•›9Æ›ÆƛƛÌjddÌd•dddj9dj•dddddjd•9jý›Ìd•jddddddd9ddd9dddddjdjdjdddd3jd›ddýýÌ••99djddd›•j•jjÌýƛƛjdjdd9ddjddd99dd¡dÌ›dd9ýdjddddddd?ddjjddddd9ddjdd9djd9djdd9d›•d›9ddjddj•jj›÷jd›Æ››Æ›•Ì•jdj•9d9dddd›•jddj9jÌjdddÌý•j•djd9d?ddd?dd9ddjdjddjddjd›9dddjdd›ÌdÌ÷9dddddÌÌj›•djdd•j•›••››dd›djdjd•ý›ddjdd3Ìdd9d9jdj9dd9dddjdjdj9d9d9dd9dd›3jddýÒ›ddd›•ddddj••›Æ•dj•jj•d¡djdj•ddjd9ddj9dddd9dddd9Æ•Ì•jjdjddddd9dddddddjddjjdj÷9djd9d9djddjjÌÌdddj9jÆÌjÆj•›•jjdj•›Æ¡•d›dddjdjjd››ddd9ddd?dddjddddd9ddjj•jd9ddd9ddd9d9d9›dd99ýý››ddj•9jdjjj•›Ì›9ddjdd9ýddjdjdjddd9djjddjddjdd››ýÌj•jddj9d9jddd9j9ddjdjdjd•ýýÌddddjd››j•ddjd9jdd9jÌý•dd›Æ›Æ••›•j•j››jdjd9d9d9dd9d9d?dddjdd9d9ddj•›•9d9ddd9ddd9ddddddjd9d›dÌ•›d9ddddd›d•j›•••jjjdj•›jddÌdj•9jddjddddjdjddÌÌ›Æýýýdjdjddddd9dj9dd9•jdjd•jýýdj9dd9j•ÆÆjjdjddddddj•ýýdj9Æ››ÌjÆ›•j›dýý››dddd÷d9dddddddd9d9dddd?dd›j•jddjjdd9d9dd9d9ddddddjdd››dd9d9jd›•j••›j›••›Æ›•djdj›ddjdd99d›jjdjddd9ýÌƛ̛ýýdjddd?ddd9ddd9jd›ddjdÌjýý•›ddjdd9jdddjdjddj9dÌ›››dj•39d3››•jýÆÌj•d•d99ddjÆýdjjd9djdddd?ddd9jdjd••j••jddddd9ddd9djd9d•jd9•d9dddd9djddjjj•›››•ÌÌ•›•jýddjd9dd9ƛƛddjjd››djj•d›ddjddd9d9dd99ddddjjdjÆ›dýÒ››9dddddjddd›jj3dddÌÆÆ›jd••›•›jdjýÌdÌÆjdddddjÌ9dýjddddd9dj9ddd9ddjd•ý9dd›dd9d9djd9dd9dj›d9••dd9d39d9ddjdjdjjj›•j•¡••j•ddddddd3••›Æ››jdd9•d9djdjdjddj9ddddjddd3ddjdddjdÆjd›ýÆÌ^d9djdj››Æj•dd9d9ddjjddjjjjdÆ›dd3j›ddjd?dddddjÌjjd›9dd9ddd9djddddjd9jdjdd9dd9dd9ddd93djd9jjd93dd9dd9djýd•jÆ•jd•jjddddj9jjj›j›Ì›djd9ddjdd•j›•jdjddd9d9d9d9dd9ddjjjdjdj››•Ì›››•jd9Æƛ̛d9djjd9dddjdjjdd››d›››d››j•jdÌjd9dddj3•ddjddd9djd9dd?ddjdd••jd9ddd›dd9d9ddddd9djdd99dd9dddÆýýdj•›•›••jdd?ddjddýddj••›››ddddd9djd•d•jdjddjddddddd99ddjdddjjdj•›djddd9djd•jjÆÌ›ddddddd999dj•ddddd•j•jdjd›•d9dddjjdjjdd9dj9ddddd9ddddjdj9djdd9ddd›9dd9dd9j9›ddddddd9d39››jjjjýýjddjjjd›Æ›d39d›djý•››•djjjjjj••jdjjdjddj9d9j9d9j3dd9djdjdd•j•jddjdddj•j•››jÆÌdj9dj39d•3jdjd›j•j•jj•dj•d››ý9d9jdd3ddd9jdd9ddj9ddd›djdjdjdjddd9d9dd›dd9dddd›dd•jjd9dddd9•›••jjýÆjdjdd•›•›ddd9ddjýj›››•ddjjj•jjddjdjddd9dddjddd9j9dddjdjjdjjddjdddjdj•jjdjddj3j•d9ddjddjjd•›ýjd•••jjj››^dddd9d99ddd9dddddýdj9››d9jdddjdjd9dddjd99d9ddjddd9d›Æj•j•jddd›ý›ÆÆd›››dd9jd•jýdjdd›•Æ••dd•›dd•jj•djdjdddddjddd9ddd9dddddjddjddjddj•djddjj•jjd•jdjdj•9djd›jÆjdddd9dý÷j›››•j•d9ddddjdddddd9dddjdj9ddddd›jdj•jj•jjdd9d9ddddd9d9d9dd›d9ÌÆj•39djddýý››j››ddjdjjdjýjdjÌÆÌ››jjd›•jd•jj•dddjjdjd9d9ddd9djdd99dddjdjdjdjddjdd?djj•ýýýý•j›•j•dÌddjdddj••j•››ddÆÒÆÆdj3d9d›d9d›9dddd9d9ddd9dj9››dj•jj•jd•ddd9dd9d9d9d9ddd9dddj›ý›•jd9339ÌÌÆdd›33dddd93djdjdjjjdj›•jj•›jj•djdjddjddjddd9ddjdddjdddjddjdjdj•djdddjj••ýýýýý›Æ›•›jdÌ›djÆj•›•j•›•9dd¡÷¡dj3›•dÌÆ9›d9dd9djdd9d9djdjdýýÆÆ9ddddjjdj9dd9dddd9dd9dddj9ddjý››•j•dddjdÌ››››•jjd9dddjj›dj•j•jd›Æjj••jdjddjdjddjddj9dd9d9d9dd9dd9jdddjddddd?dd•j••jj•ddjdj•djj33•j93Æ›Ìýý9dd›•93jdj›Æ››jddd9djd9d9ddd9ddddýÌjdjdjjdd9ddd9jd9d9dd9ddd9d•ý••››Ì›•j››dddddjdjdÆÌj›dÆ›•dÌÆÌÌ•j•••jj•jdjjdjddjdj9dd9dddd9d9ddjddjdjddj9jdddj•j•j•jddjj•jdj•j•3jj•99Æ›ýd•›››jdddýd››Æ›ddd9dddd9ddddddjdddjdddjdjdj•djdddd9d939dd9dd9dj9d9d›ýj•j›ýý›•••Ìd9djdjd›Æj››ddÆ›jdÌÌÆÌj•›•j•j•djdjdjddddddddd9jdddd9ddjddjddddddjd›Æjjj•›jdÌ›••›••ÌÌÆ›ÌÆÌdddd›jjjddýý••›dÌÌjd9d9ddd9ddd9d?d9ddjd9j9djdjdjdjdjddd›d9dd9dd9dddd9d3dddj•d•••jýÌýý•d9dddddddjÆjd››jdj••jjdjjddj•dddddd?djdj9d9dd9d9dddjddjddjdjdddj›jjd•›j•Æ››j›•›•›Æj›•Ìd››99d›dd•ýý›•jjÌÌ•ddd9ddddjd9djdddjdddjddddjjdjddjdjd9dd›ddd9dd9dd9dddd9d99djjdj››÷ÌýýÌddjdjd99dý››jd›Æ•dj•••jd•jjdj•jjdjdddd9dd9dddd9dj9ddjddjd9dd9jd9dddj•j•jj•jÆÆdjjjd›••j9•ddd33djýýýý›•››dd9dddd9d9dddd9dd9ddj9dd9j›••djdjd•djd9dd9jjddd9dd9dd9d9dd39ddjddjÌÌýÒ•j››j•›d›ÆjjÆ›•djjj•jjj•jd••jj•jdddjdjdjdddd9jddd9ddj9dj9djdjddddjjdj•djd•jÆÌjj•jdjdjjdddd›dddj›Ìýýýý››djd9d9dddjdd9ddd9ddj9ýdjddd›jj•j•jdjdddd939ddd9dd9dd9ddjd9ddd3d›jdjÌÆýýý•››Æ›jd›ÆÆjd››•ddjj•dj•jjdj•jd•jjddd9dd9d9jd9d9d›9dddjdddjdd9djddj•j••jdjddj9ddjdjddjdd9›jddjd››ÌÌ•jjd•9ddd9dd9d9ddj9djdd9ddddjdjddd•jdddjd•jd9d3dd9dd9ddddd9dddd9d9d9dddjdÌÌ÷jdddjddjd¡Æjdddjddjjjdj••jjj•djdjdjdjdjddd9ddddd9ddjddjdddddddd?dj•jjddjjdjdddj••jjdddd9ddjjjÌÌ•Ì•9•j›3dd9ddddjddj9ddd9dddd9ddddý9j•jdjjdjddjjdd›dd9dd9dd9d9dd9d9ddd9d9d9•dÌÒdj•jj•›djdýddjdj9djjd•jdjj•ddjjdjdjddddd9dddd9d?dd9dddjd9jd?dj9dj•dddjjdddjdddjdjdddj››djÌƛƕ•j•j9j3dd9dd9d9dd9dddd9jdd?ddd999ddddd9dddddjddÆ›d99d3ddd9dd9dddddd9d9dd9ddd›Æd9djddj•j••jdjddddddjjdj•jdd•j••jjddjdj9jdjd9d9dddd¡dd9jdddddddddjjdd9j•djjddddjdjd9dd•jd›ÆÌ››•jj•djjdd9dd9ddddjdjd9djdddddd?dddddjdjjdddjdddj9d¡•dd9d9d9d9ddd9jd9jdddddd9d9dd939d3jdjjj•djdjdjjdjdddj•jjj•jjd•djdddddddd9djd9dÌ9djddjdjdj9djdddjdjdd9dddj9ddddddjjdjdjdjÆ›j•ddjd3ddd9dd9d9dddddjd9dd?ddddd9dd9jd9dd9jdjjdddddjdd9dd9dddd9dddddddj9d9dd9ddddjj9d9••›jjjdjdddjdjdjdj•jdj•j•djddjdjd?ddd9dddddÌ•ddddd9dd9ddjd9dddddddddjjdjdd?ddjdddjdddjddd99ddddd9dd9ddddd?dj9dddjddj9d?dd9d93jjd›dd››jjjjd9d9dd9ddddd9dd9jd9j9dddddddd9jddjdj••3jdjd•j•jdjddjdjddddj•dj•j•djd9ddddj9ddd?dd9ÌÌ9djdjdjddjddddjdjjjddjddddddjddjdjdjddjjjdjdjdddd?dddddd9jdjdddddjd9jddddd9d99d•j•jdjd9•Ìjdjdd99dd9d9djdjdd9dddddjd9d9jdddjdddjdj•jjjdj•djddjjddjjddjdjjddjj•jjdjdjdddd9dd9ddÌÌddd9dd9djd9ddjdd9ddd?ddjd9jddjddjdjjdjdjddjddjdjdddj9d?dddddd9djd9dddd9dj9dddd9dddddjddddjdddd9dd39d9dd9dd9jdd9d9dddjddd9jddjdjjddjj••j•jj•jjddjddjdjddddjj•jjd•djd9dj9ddj9djdÌÌ9djdjdjddddj9djddjjdddjdjddjddjdjddjdjdjdjdjdjjddj9dddddd?ddjdjddjddjd9ddd9d9dddddj9ddj339399dd9d9^9ddddd9dddjdjdd?jd9d9dddjjddjjddjj••j•dj••jjdjdjdjdjdjdjddddjjddjddd9dddddddýdddddddd?ddddd9ddddjdjdjddjdjddjdjdjdj•dj•djjddd9ddd9jd9jdd9djdd9djd9dj39d9dd9d9d9d3dd99dddd9d9ddddd9d9djddjddddjddddjddddjddjdj•jdjddddjdjdjd•jddjdjdjdjdj•djdddddddj9dd9djdd›9dj9jd?dddj9jdjjdjdjdjddjddjdjdjdjdjjjjdjdjdddjddjdddjddjdjdjdjdddjdj3ddd9d9d933ddjdddjdjd9ddd99d9d9ddj9dd9jd9dd9jd•jdjd9jddjddjdjdjjjdjdjd•jd•djdjdjddjdjjdjjjdjd?ddd9jd9d9d›ddddddddjddddddjd9ddjdjddjdjddjdjdj•djdjdjddjd9jdjddjdddj•jddjdddd?djdÌd9d9d9^9^9d9d99d9d99ddd9d9dddddd9ddjdddjddjddddpddjdjjjddj•dj•jj•jd•jj•jjj•j•jdjdjdd›•ddjdjddd9ddddddddý9dd9jd9jd9jdj9ddddjdjddjdjddjdjdjjdjdjdjddjdddjddjd9djdjjddjddjd?ddj•dÌ9dd9dd9djdjddddddddddd9d3dd9dd9ddjddj9ddjdjdj9ddjjdjdjjjdjjddjjjj•jjd•j•j•djd•j•ddjddjjdjdddjddd9dd9djdýddjddddddddddjdjd9djdjddjjdjjjjjjdj•jdj•jdjjjdjdjdjdjdddjddjjdddjýdjdddd9d9dddd9d9d9399d393dd9dd9d9ddd9ddjddjdjdj•djdj•dddjjjdj•d•j•j••d•••jjdjdj••dj•jj•jjdjdjdjdjd9dddjdd9jdÒ9dd9jd9jdjdjddd9jdjddd9jdjddjd•jjdj•ddjdjdj•djdjdjddj•jj•jjj••jdddýddjd9dddd9d9ddddd9dddjdd9ddd9ddddj9djddjdddjdjjj›djdjjjdd•d•jjjj•j•j••jj••j•j•jj•jdd•jdjd•djddjdddjd9d9d9ddýýddjdddddd9djdjdddjdjjj•j•djj•jjjj•jdj•jdjdjdjdjddjd•j••j›d•›jdjdjýdjddd9d9dddd9dd9ddjdddj››d99dd9d9dddd9j•9jjdddj•››dd••j•djjd•jjd•jjj•›jj›••›••dj›Æjj•jjjdjdjdjdjd9jddd›ddjý9ddd?dj9jddd9jdjdjdj•djdjdj•d•jjd•jj•djd•j•djddjjjd›•›dj›djj••jddjÌd9dj9ddd9d99dd9ddddjddd›dddd9djdddd9dddjdd››jjdj•jjjd››jjd•j•jjj•j•d•j•›d••›•j•jjd›•j•jjd•dj•ddjdddddd?dj•jjddd9ddddddjdjdddjddjddjdj••••jj•••j•djjdjdjdddjd•dj••j•jÌ•j•ýj•djýdjddddd9d9d9ddd9d9jddjjdjdd9jddddjd9jd9ddjdj•›d••j••djdj••jjjj•••dj•j•j•j››jj››››ÆÌ•jjj•›djjjddjjddjd9ddddd›››ý9djdjdjdddjdjjjddjdjddj•›j›jd•jj•jj•j•j••ddjjdjjd•jj•j››djýý•jddýýdjd9jd9dddddj9dddd9jddjddd9dd9djdjddddÌdd9d›•j•j•›•›djdj••jdd›•jdj••j••j•••j•›••›Æj•jd›•d•djdjdjdddd9jd9jj3dýdddd9dd9jddjddjdjdjj••›Æj•j•››••j•jj•j•jddjjd•j•j•j•d›Æ•jýýjÆ›dj›Ìddddd9dd9d›9dd9dddjddjdjdjdddd›dj9d9dÌÌjjdj••jÌ›•››•›djdj••jjdj•›djd›•jj••›••j››•››Ì•••j•jjdjjddjdd?ddd9ddjddd9ddjdjdddj9ddjddjdjjjÆ›•jj•›•›jj•••jjdjjj•jj•j•••›Ì̛̛›ddÌÆjdÌddj9ddd¡ddj•›dddd9ddjddjddjd9d››ddddddjÌdjdd›djÌ››ÌÌÆ››••jj•j•jdj••jjd››•›•jÌ›••Ì›•›Æ›j›••j•ddjdjdjdd9ddddjdddjdd9d9dd?dddjddjdjd•j•j•jj••j•jdj•jj••jjdjd•jd•••›j›››ÌÆÌÆ›•jjjdjddjdjd9dÆ9ddjdd9d9d9ddjddjdddjdj•9d9d9djdjdd¡d›•ýýÆÌÆÌÆ›jj•j•j•j•djj•jj•›Æ•›••Ì›•jÌÆjÌ›••›j•jdjd•djdddj9d9djddd99djdddjddjdjdjdjdjjjj•›j•dj••j••j•jjj•j•j••jdj•j••›•Ì÷¡ÆÆÆ›•djÆjjddjjdjd9djdd›ddjÌd•p•›››ýÌj9dd•djddd9djddd›d›Ì÷ýýýýÌÆÌ•j•jjj••jj•j•••jj›››Ì››Ìý•››jÆÌ•j•›jjÆdjjddjdddddd9•djdýdd9dd9ddddjdjdjddjdd••j•jj•j•j•j•j•j•j•j•›jd••p•››•ÌÌÌÆýÌÌ››jdÌddd9ddd9dddd9›d9›jdj••›•›ýýdd›•jdj9d9•dd9ddjdjÆ›ÌÒý›Æ››ÌÌÆjj•jj•j•j•j••j••Æ›Æ›››Ì•›••jÌ•jjÆ›•jdjdjdjdj9d9ddjjd›Ædddjddjdjddjddjdjdj•jj•jdj•›•jj•••j•j•j•••j•›››•j•››ÆÌýýÌÒÆ›d•›Æ›djdjdd9d9dd›djdddj›•›•jdd9ýÌjd9ddj•?dddjd9d›ÆÌýýý›ÆÌÆ̛ƕjj›•j•j•›jj•›j•j•jÌÌ•›Ì•ÌÌdj›•jd›jjdjdjddjddddjddjd›j9dd9djd9djddjdjdjd•j•››•j•j•j•j•j›j•j••j›j•››•›••›Ì•›ÌÌýýÌ››Æj•›ýd9dd9djdd9djdjjdjýý•›ddjjd9Ìdddd9djdd9d9ddjdddÌ÷Ì÷ÌÌ›››Æ¡Æ›••›j•j•••jj••j•pdd÷Ì›•›•¡••••›j•d•jdjdjddd9d9d9djjddddjddddjddjddjddjd•jd›Æjj›•j••›Æ¡d••›jj›••jjÆ›•j››ÌÌÌÌýÌýýÆ›ýÆ››ýddjdjddddjdd••3›•ýýdddd3dddjjdd9jdd9ddjjj››ýýÌÌÌÌÌÆ››Æ›Æ›j›•j•››ÆÌÆj››ÆÆ›•jÌÆÌÆ››Ìj›››•d›••jddjdjdjddjd•dd9d9dd9d?ddj9djdjdjjdjd›jdjÀ›•j›››Æj•›•d••›j•jÆ›••Ì›Æ›Æ›Æ›Ìýý››Ìddýý9dd9djdj9ddj›•3j•dddÌ›39dd99d99dÆ›ddd9ddddÌ›Ìý›÷ÌÌÌÆÌÆ¡ÌÌ›•j›••j››ÆÌÌ•››Æ¡Æ•››ÌÌ•››••›jdjjjjdjddddd9d9d9Ìjjjdddjddddddjddjdjdjdjd•djÆj••›ÆÌj›››j•ÌÌj•jÆ›•j¡Æ››ÌÌ››››ýý›ÆÌÌd9›dddddjddd›jd3d9ddjj›Ì››33djd›dÌdd9Æjd9ddddjdÌÆÌÌÆ››ÆÌÌ››ÆÌ̛ƕj››••››Ì›Æ›ýýÆ›jÆ›ÆÌ››Æ›j•djd•d•djdjdjdddddd›ddjd9dd9dj9jddjdjdj•djjdj››djj•››•››Æd•ÌÌjdjÆÌjjÌÆÌÆ›•›ÌÌÌÆ›ýÆ›•Ìýjdjd9d9d3d›jdd9dd›ý›Æ›Æ•j•9djÆjÌddd9ddjdd9ddjÆ¡Æý›ÌÆ¡ÆÌÆ››••››Æ•j•›j••jÌÆ›ýýÒ•jj÷›››››•›•j•j•jdjdjddd9d9j9d•›ddjddjdddddjddjddjjd•j•d›•j•›•›››ÌÌj•Ò›•j•Æ¡d•ÌÌýÌj›Æ›÷Ìƛƛ›Æ››ýdjddjd993ddddjd››d••››››•j9÷9jddd9d9djdjd9dd?dÌÆÌ̛ƛ̛›ÌÆ››•j››Æ•j›•jj•jÌ•ýýýý››ýÆ›•›•›•jÆj•jdjdddjdjdddddd9jdddd9d9djdjddjdjdddj•jj•jj••j›Æ›Ì÷d•Ì÷›•ÌýÌ›•›ÆÆÌÆÌÆ›•ÌÌ÷Ì›ÆÌ›ý•Ìddjdd9d•dj9jd›ddjjjj•›Ìýýddýýdddddjdd•j›dd9dddÌÌjÆÌ•›ÆÆ››Ì÷ÌÌýýÌÌÌ›dÌÆ›d››Ì›÷ýý••ÌÌ›•››•jÆ›jjj•jjdjdddj9d9djdj•jddddjdd9dj9djdjdjd•jdj••j•ý÷Ò÷ýdjÌÌýÌ›Ì÷›•ÌÆ›ÌÆÌ›Æý››ÌýÌÆ›ÌÌýýÆýdd9d3jddddd9•›ddddj•›Æýýjd›ý•9jd39d›ddd9ddd›ÌdjdÌÌ›•¡Æ›ÌÌÌÌýýÆÌÆÌ›dÌÆ›d›Æ››ýýj•››d›•Æ•j›j›dj•dddjddddjd9dj•j›d9d9ddjdddjddddjjjdj••jj••ýÒÆýjj÷ý•››ÌÌÌÌÌýý››Ìý››ý÷››÷ÒÆÌýýÆÒj•j9d9dddjdjddjdd3jdj•ÌýdddÌýjÆ393ddÌjjddd9d¡›•ýýÌ›•ýý›ÆÌÆÌÆj•›ÆÒýý›Æ¡Æ•›››••›•j••jj•›j•jd•›•jdjdjdd?d9dddd›jd•jdddj9ddjddjdjdjdj•djdj•›ÌÌ››ÆÌ÷Ìýý›÷ÌÌ÷•›Ìýý›ýýÌ›Ìý››ÆÌ››÷ýÌÆjjddddj3j9d999dd9›3ddd9ddjd9•ýj›d›ÆÌd9•9^9ddd›ÌÆ›ýƛƛ•ý›Æ››ÌÌ››•ÌÌýýÌÆÌ››•›ÆÌ•›j•Ò÷j••j•›•j›•ddjdddjddddd9jdd3Æ¡›9d9ddjd9jddjddjddjdj••j•ÌÆ›•Ì›ÌÒýý››Æ››ýýÌÌ÷ýýýÆÌÌ÷››Æ¡•›››djd•Ìdd9jdddddddddd3jddjdd9ddddýjddd›9dd9dd93dÌdddÌÌÌÌ›››››ÆÆÌÆ››ýý›ÆÆÌ›ýÆýÌÌýÌýÌ››Ìýj•j›•jdj•›jddjdjddjd9jddj9djddddddd9dddjddjdjjdjdj•›•j›Ì››ÆÌÆ÷ý•›Æ›Æ›ýýý÷Òýýý›ÆÒ÷›››ÆÌ•Æjdd9dÌ9ddjddjÒdddj•jdj›d9dddd?dddjdddjýd›d93dd9d9d››ýÌÌ̛ƛ̛ơÌÌÆ›ýýÆ››ÌÆ›ÆÌÌýýýýý•›ÆÌj•›•›jdj••djjdjdjd9ddd9j›^ddjd9d9jddjdjddjdddjd•djj•••Ì•›ÆÌ•¡Ì•ÌýýÌýÌ÷Ìýýýýýý•›ÌÌÌÆ››ÌÌýýjjdjjd9ddd9dýd9ýdj9dd›dddjddd9dd•99jjddd•9jd9dd››jjÌÌ÷Ì››ÆÆÌ›ÆÆÌÆÌÌÌýÌýýýÌ››•Ìýý›•d›Ì•jÌj•djdj•›jd•dddddjd9ddd›d9jddddddjd9ddjddjdjdjj•dj›jjÌ•j››•Ì•›ÌýýÌÆÒýÌÒýýýýý›››÷›ÆÌ››ÌÌý••dddddd9ddjdddÒdd•3d9dd9d9jdd9d›jÆ•jddjjddd•9dÌ÷ýd•ÌÌ÷›Æ››Æ›Ì›Ì¡Æ÷Òý÷ýýýÌÆÌ•jý÷›Ìd›Ì•Ì÷jjjdj•›djdjdjd?dddjddj›3jdjd9d9ddddjdd9jddjdd•j•dd••Ì›•›•jýÌýÌÌÌÆýÌýý÷ý÷›ýýÆÆ››››ÆÆ›Æ÷ýjj9ddjdd9d9jdjd9dýd9ddjjdddjdjddjÆdj•d9›djddj9djdj•ÌÌ›››››››Æ›ÌÌÌ÷ýýýýýýÌÌÆ›ýýýÆjdÌ•j÷j•Æjd›•jdjddjddd9ddd9jdjd›•›ddj9dj9djddjddjdjj•jj•jÌÌ÷Ì›dýýýýÆÌ›ýÌÌýýýÌÆ›ý›Ì››Æ››Ì››ýÒ•jdd9•jd››•j•9dÌ9Ìý9dÌjdd9›d›d9dd¡d•jjdjÆdj9dd9dÌ›•j››ýÌÆƛƛƛƛÆÌÌýÌýýýýÌÌj›ýýý¡jdÆ¡•j•j•ddjdÌdjddj9djdd9jdd33•d›9dddjddddjddjdjjdjdjj•Ì•ÌýÌd›››•Ì¡Æýý÷ýýýýÒÆ›ýƛƛ›•››Æ›ýýddd9d9•9›3djdddddÌýddÌdjd9^9›Æ›djdjjjddd39ddÌ9^9d•›•›•›ÌÌ›››››ÌÆ››ÌÌýýýÒýý››j•Æ¡›ýÆÌÌÌjÆjjdÌjdÌÌjdjdddjdd9jddd93djdjddjdddjd9djddjddjdj•jdÌýjÆ›j•›››ÆÌÆýýýÒýýýýÌÌ̛ƛ›Æ›Ì›Æ›Ìýddjjdddddddjddj›››dd9djddjddjdÌdddd›•3›dd›d3ddÌjj›Æ››Æ÷ý÷›Æ›Æ›ÆÒ›ÌýÌýÆýÆÌj••jÌÆÆý›÷Ì•››Æd•jdjd›ddjdjdddjdd9d›jd9ddj9d9d9ddjdjddjdjdjd•j•j›ý•Ì›•ý•›ýýýÒýýýýý÷ýÌÌÆÌ̛ƛƛÌÆÌÆÌÌd•j••9jddddjdd9d›djd9•ddd9djd3d9d93d3d›d››dd9dÌÌÌjƛƛÌÒ÷Ì›››››÷÷ÌÌÌý›ÌÆÌÆÌjdýÌ›Æjýj•›•djjjd•jdjddddd?d9ddddjdd›dddddjdjddddjddddjd•j•jdÆÌ›dj•ýj•ýý÷ÌýýýýÌýýÌ›ÌÆÌÆ›››Æ›Æ›•jý9d•dj›d9dj•jddjdýdjd3j•¡99d39djj3jj9d9dj•›dd9dd›•÷ýj›››ý÷ÒÌÌƛƛÆÒÌÌÌÌ÷¡÷ÌÌjdÆýý›djÆj•›j••dj›dd›djdjdjddddjdj›9djjd9dddd9dj9ddjdjddjj•j•d›Æ•jj÷Ò••ýýÌÌýý÷ÒÌÌýý››ÆÌ̛ƛƛ›››•j›jj•djd•dd›j›››dýdjddjdÌÆddd•j33•d9djddÌ•9d9djjýj••›•ýýÌÌÌ››Æ››ÆÌÆ÷ÌÌÌýÌýd››ÌÌ››••¡jd•›jjd›jjdddjddddd9dj9ddddjdjd9djdjddjdjdjdjddjdjjd›•jýÆÒ•›•ýýýÌýýýý÷ÌýýÆ››ÌÌ››››ÆÌÆ››^dj÷dd9djd9d••Ì39j•d›9ddddddd3d9dj3dddjdjdÌdÌddj3dj•›d›•jýýÆÆ›ÆÆÌ››ÆÌýýÌÆýýý9•Ì›÷Æ›•jÆÆjdjdjdj•djdjddj9jdd9ddd•9dd••9dd9ddddddjddjdjddjd•j›•jÌÌ›ý››ýýýýÆýýýÌ÷ýýÌÆ›ÌÌƛƛƛƛ›dÌ9÷jdÆjdj9ddjdýdd•j••9djjd›d9d93djdd9dÌddjd¡d9dj•jÆ›d›•›jýý›Æ››ÆÌÆ››ýÌÌýýýýdý•›ÌÌÆ¡Ìj›•jdjdj•jdjddjddd9djdd?ddj9djdddj9jd?ddjdjddjdjjj•j••›•›÷››ýýÌýÌýýýýÒýÌÌÌÌÆÌÆ›››•j••dÌÌdjj3jdjdd9djÌ÷d9Æ•›dd9ddj3jddd•dd9ddÒÆ›9ddddd•ÌÌ›•9djj•d››ÆÌÆ¡ÆÌÌ››ýýýýýýýdjýÌÆjÌÆ•j•j•d•jdj•djddjdd?djddddd9d›jdd9dddddddjdd9djddjd••d•p•••ÌÌ›ÆdýÌ÷ýýýýýýýÌý÷ÌÌÆ¡ÆÌ•ÌÌjd››d•d•j›jdjddÌÆÌ¡djd999d3jd9dd›j99dd9jdj••djjjdj•ýj›ddjjd›•Æ›•Ì›ÆÌÌý•ÆýýýýÌjd•jÌÌjÌ››jÆjjj•›jjdjddjd9dddd9d?dj39Ædddd9jdjdddjdjdjdjdjj•jj•j•ÒÆÆ››Ì›•›ÌÒýýýýÌÌÆÌÌÆ¡ÆÆ››››dj›dÌ9j•d9dddddd››Æ›ddddd•d9dd››Ædjd9d9djjj•jjÆ›dd9ÆdjdÆÌ›ÆÒý››››ÆÌýýýýýýýýÆ•ÌÌdÆj›Æjd•j•djddd›jdjddjddj9dddd9•›d9›9ddjd9dj9dddddjddj•d•›jdýjjÌ›ÆÌÌ•jÆýýýýýÌÆÌÆÒÌÌ›››•›d•›dÌÌdj›jdjj3d93•3dýjddd9›dÌd33Ìjddddjdjdd3j•jdjj››dd›jjddÌÆ››÷̛ƛ̛ÌýýÌýýýý¡ÆÌÌjjÌ•Ì•d•j›jj•d›Ædjddddj9dddd9jddddddddd9jdddjdjdjddjd›jdj›••Ò÷jd››÷ýÌ›ÌÌÆ››ÌÆ›ý›ÆÌƛƛ›•ÌjÌÌÌdd•jdddd9jd›d9d9d9djdjddd9ddd9dj••jjdd9jdj•dd•j›››dý3d9››Æ››ÌÌÌÌÆÆÆ›ÌýýýÌÆ››ýýj›ýÆ›dÌ•jdddj›djdd?ddjdd9ddddd9jdd9ddddj9ddjd9jdjdjj•dd›•jý•j›ÆýýÌÆýÌ̛ƛƛýý››Ì››÷›Ì›•jÆjdjddd9dj••Æ››d9ddd›dddd99djdjdd9›•jd9j•j••›•dddddddd9•››ÆÌ›ÆÌÆÌ››ÌýÌÌÆýdÌ•›ýýjÌýýd9j›jddjdjddddjddd9dddd?djdddd9ddjddddjddjdddjdd•jjj›Ìj•Ì•››ýýýj››ýÌÌ÷ÌÌÌýý›•››ÆÌ•j›d933›djdjdd››ÌÌ›d•›d9d9j9jdddd9ddj••›d9djddj•jý•j›39d93j•›•››ÆÆ››››Æ›ý÷ýý•pd›ýýÆ÷•dýdjÆdj›jdjdjjjdjdjdjdd9dddd9djjd9d9djdddjddjdjddj•›••jÌ••ÌjÆ÷ýýýý›ÆýýÌÌÌýÌÌý̛̕›Ìj•Æ›•dd›djd9dd››3ý÷›•›ddd9›^ýÌd9d9dÌ›j•9ddd3•ddd•¡d›dd••djý÷››ÆÌ›ý›Æý•›•›ýýýý•dýýý›Ì›jýdÌÌ•j›Ìddjdd•djdddddj9djd9jdddjdd9ddd?dd9jddjddjdd›j›d›ýjdjýÌÌjdýÆ›ýýÌÌýýýÌÌÆÌýýÌÌd•›Æ•jdjjd9ýjd›ddj9d93d9d›••9ÌÌ39ddd››••d9ddd9djjÆÌd9•j›•ýÒý÷›•Ì›÷››ýý››››ýýÌÒýýýý›Ì••jjÆj•jÌÆddjd•jdddj9jdddd9ddd9dd99ddjdddjddjdd9jddjdd•j÷››jdýýÌÌdjÆýýýÌÌýýýýÌ›Æý›ÆÌdjdj9ddddd•d9ýdjjddd3jdddýýýdd››•djjƛ̛jdd9jdddddj3339››^9ýýÌÌ››ÆýýÆÆýýýý÷dýýý›•j•jd››j•››d•jdddd?dddd9jd9dd9djdjdddd9jddjjdjdjdjdjdjdjÆÆÌdd•j›Æjý›ýý÷ýÌýýýýý›ÆÌÌd9dddddd9djj•jdýjdddddjdd?•Ìý›d¡dÆdddj››Æ›jjddd9jdj9dddjd9^9›››Æ9ýÆÌ•›ÆÌýý›ýýýýýjÌÌ›•jdjdj•›•j›djdjdj9jddjdjddddjdd9dd9d9ddddd?dddjddd9j•jdjdj•Ò÷›j•››dýÌÆÒýÌ÷ýýýýý›j›•ddý›ÌÌ¡•jjjj•jýjdd9jdjdd›9›•›ÆdýjjdjýýÌý÷dd9dddjdddjjj•3dd›•d9ýd›››››ÆÒýÆÌÌÌÌÆÌýÌÆ•j•jdý•dj›•jdjddddddjdd9dd9d9ddjddjddd?djdddjddjdjdjdjd•jd•j÷››jý•›ýý›Ì÷ýýýýýýý›•›d9dÒÆ9Æ›•dd•djÆ›dd9ddjjdjj÷ýdd9jýýýdj•›ýÆýÌÒdj9d9ddj93dddd9•j›d›Æd•›•›•›÷ÒýÌÌÌÌÌÌýj•jd›ÌdÒdÌj•dddjdjdjdjddjdjdjdd9dj9ddd9dddddjddjddjdddjdj›jdjjdj••ýý›ýýýÌÌýýýýýýýjÌ›dddjý›dj›ddjdjdd›dd9d9dddd››÷Òdjdjjjj•›ÆÌýýÌ›dddddd9ddd9dÌýd›ÆÌd›ddj••j››Ì÷ýýýýý÷ýj•›jjÆÆjd•jd•j›jdddjddd9jddd9d9dddd9›dddd?dd9dddjddjjd•jd•›jd››d›dÆýý›dýýýÆýýýýýýÌdd9•j•ý9••dj9ddjdd›jjddjdddd›Ì›÷ýj•jddd›ýÌdýÌÆjddj9ddd9d•jd9ddÌÆÒd9d•p•j•ÆÌÌýýýý÷Ò•j›Æ›•Ì›jd•j•jd›jdjddjdjdddjddddd9d9Æ›d9ddddjdjd9djdddjddjjÆddýý•d9j›ýýj•ýýÌ›››÷ÒýÌdd•››j›j9dd•3jd33dj•ddddÒjjÌÌÆ›ýý33››jjdýýdjdd9djdd›djjddjÌ›d›9ÆÌ9dýÌÌ••¡›ÌÌÌÌÌj•››•›ý•››d•jj•j•jddd•jd9ddjd9d9j9djdjdd›dd9dj9dddjdjdj9ddjj•d›Ìjdýjjý•ÆÌÌÆjÌýÌÌÆÌÒ÷ýd9•›•›d›jddjdj›d9d9•jddjdÒ÷dd›Æ›jdj•j•j•9ýÌÌ›ddd9ddjj•›djd9›33dýý9›dýýýÌý•›ÆÌÌÌÌÆ•›Æ›•ýýjjdjdj•j•jdddjjddjdddjddddd9d9ddjd9ddddjd9jdd9ddjdjdjddÌÆj•d•ýdýÌ••ÆÌýýÌýÌ÷›•j÷Ìdjd›•••j•djjdddddjd›•j•djd››•jdjj•jddý÷ÌÌ››d9djj393j3dddd›ddýýddjd•j•›››•ýýýý÷Òý›j›ý•j•djd›jd›•jdjdddddjd?ddjd9ddddd9dj9d9dd9jddjdjjdddjdjddjÌ•j›dÌjd•pÆ¡÷ýýýýýÌý•Ò÷j9jdd9ddý99jjjjdjd›•jjdjdd••›ddd›•›Æ›Ì•••jddd9d••jddjj3jdjd•39dj3jdjj›Æ›ÆýýýÌ÷ýý•›•Æ•Ìjd•Æjj••jdddj9jddddjd9jdd9d9j39dddjdddjddddjdjddjjdjj•›j›•jÌj•jÆjÆÌýýÌý›ýÌÌÌjdddddj9dd9ddddj•›djjjd9dýpddd›•›•››•Ò››•›d9•3djd•›•jjdÌdj•9jj33j•d••ÌÆ¡ÌÌýýÌÌý÷ÌÆ›¡•j•›jd•j•ddjdjdddj9jddjdddjdddddjd9d9djdddjdjjdddjddjd•j•••jÌÌd•jjjÌýýÆÒ›ÆÆý›Ì›ý›jd9jddj›3dddddjj•jddjÆd9ý3d9dÌý›Æ››ýÌÆ›››ÆjÌdjjj›••jddÌdjjÆ9dd9^jjdÌÌ÷ÌÆÌýýÆÒýýÌ¡•›djjddÌ•ddj9ddjdjddddjddd9d9dj›Ì93dddddj9ddjddjdjddddj•jjdj•ÆÌdj•›djýýÌ÷›Æ¡Ì•d•Ìdj•djjdj•dddjjjd•jjjdd9dj•j•jdýý››Æý÷›Æ›ÆjÌ÷jdj›djddýdjdd33›djd›ÌÌÌÌýýýýÆÆÒ÷jÆ•jd•ddÌÌjddjjjdjdd9djddj9ddddddjdd9d9jddjdd9djdddjdjddjdý›d››Æj›••›djýýÆýÌ•Ì9dj›j›ÌÌÌÌdjdjdjdjdjjdd›d›ddjÆÌ›Æýýýýý›•Ò÷›››•dÌÌ9d››Ì•Æ›djdjjd9dd››ddd›Ì÷ýÌýýýýÌ›ýd››jdjjjjÆddjdjd•dd9djdd9dddd?dj9d9dddddd9djdjddjdjj›djdd9ýýjdjÆdj›•ddjÆÌÌ›j•dd››••››÷ÌÌddjdjjddddddd›dd9j÷›Æ››ÌýýýýÆ›÷››•›››d›Æ9d›•jÌÌdjd•ddd›j•›djÌÆÌÌýýýýÌýÌýj•››jd›djdjdjjdjjdddj›djdjdjdd9dd9dd?djdddjdjdd9djjdj•ddýd•djj›Ìý›djÌ•Ì›•djjý•j÷•››ÌÌdj•jd3d›jdýÒ••ddj÷Ò››Æ›ÌÌýýj33›Æ››››Ædd››dj•jj••djdj•jdj›››dýdýÌÌjdýÌý›÷jÆ›•jjdjjjdj•jd•jdj9d›dddd9d9ddddddddddd?ddd9jdjdjdjd›j›djjdj›Æ›ýýdd›››dddjdýýjÌ•jÆ›•dj•jj3Æ›djý•››dj›•••dd››Æ›Æj•›››•jd•j•9d›dj•j•jjd9jd9ÆjdÆ›jýdýýÌÌdÌ÷Ì•jdj•dddj›•ddjddjddddddjddj9jddjdd?d9j9djdddjdddddjddd•jdj•ddjd••dýýýd››Æjd›dj›ýý•jj›djdj•Ìj•ýdj•ýý•jd›Æ››dj9d›Æ¡ÆÌ••››djdj•›jdd¡d›•dÌ•j•djdd9•›dýddd9dd•jj›Ìj•djdjdjýýjdjddddjjdjdjjddddddd9ddd9dddd9djddjdjddjdjddj•›djddjd››jjjd››Æ›d›d•›•ý•d›•÷›jd•Ì•jdj•Ò÷ýýjd››•j››ÆjjÆ•j•›››dj••jj÷ýjddj••›j•j•jÆÌÌd3•ÌÌÆjjdjdj••›•jjdjÆ¡•Ìýddddjjj•dddd9dddj9jdjdjd9d9ddjdd9ddjd9jdddj›•dd›ddjj•jdýddjd›Æ›jj÷j›ÆÌÌjj•jÒ›djjÌjdjd›•ýjÆ›j•j››Æ›•jj›•j•›jd•››•jdýjdj•9••dd9››djÆjd•ý›Ìddj•›jýýÌjd•djýj•ýjjjjjddjjdjdjddjdddddd9ddjddd9d9jdj9dddjjdjdjdjddpdj•jjdd•jÌd››jd÷Ò•Ì›j••››ÆÆÆd•jÆdjjd•9j÷ýýÆjdýý››ÆÆ››•›ÌÌ•jÆ››••Æ››dýdjj•9jd›•››d•jd9›Æ›jj•jddýýÌ•jjdjÆ›•›dd•d•jddddd9ddj9ddjd?djd9d99ddjdddddjdjdddjddjjdj•ddjdddjj•jd›•d•ýý•ý•jÌÌÆj›ý›jdd›djjddÒÌýý¡ÆjýýÆ•››ýÆ››Æj•Æ››•››››j•9••9ddjÌd9Æ••jdj•›jjdj•›djýÌjjd•jdÆ¡dýjdjdjddjdjjdjdddjdjdddd9dddd9djdjdjddd9jdddddjj•jÌddjjdddjddd•jdýý›Ò•j÷Ìjd•jÆdj››•jÌdjjÆ›•ý3jddý•jd›ý›•›•j››•j›jj›•ÌÌd9›•j÷9dddd›djdÌjd•›d÷››•jý÷jjjddjÆÌýjd•dddjddddjd9dd9dd9djdddj9djddd9ddj9jddjjdjdd•jjÆjj•jdjddÌÌdj•jÆj•j••Ìjd›•j›ddÌdddÌ›d•››•ý9dj••››•j3dj›••dd›Ì÷••ýÆd9dd›dddjdÌjjÆjd÷ýj••jjÆ››dÌÌjd•ddjjjýýddjdjddjdjdj9d9djjddjd9dd9ddd9djdj9ddddjdjdjdjjdd•jdj•jdjd››ddjjjÌjd›••jýý••jdjdjdd›jddjj9ddpd›••››÷jjjjj›•ÌÌÌÌdjd›djdj›ddd•››jdjdjjjd•j›d›ÌÆÌjddjdd›•jdjddjdjjd9djd›ddddddd9dd9jd9dddjdddddjddddjddjdjj›dj•j•jddjdjddý•Ìý›djj••ýj•djdjdjdj•›ddddj••dddd›•••Ò÷••••›jdddjdddddý›››djj•Æjjdj••jÌ›•Æjýýj•djdjdj•j•›djdddjddddd9›d99dd?djdddd9d9d9ddjdjdd9jd9djdj•dd•dj•jÆdjj÷Ìýjjjý÷Ì›•Ìd›jjddjdj•jdjÌd9d9dd•jjjd›jd9jj9dÌjj•›9djdjd•p•9ýý›ÆdÌjdjdÌjdjd›•d•j÷j›ýd•Ìdjdjddýý•›•djdd9dj9d9jd›ddddddd9ddddjd9jddjdddjddjjddjdjjddddjj•›ÌýddddjdjjÌÌdddjd›dddjdj›ÌÆ›jd9d9••d•dÌÌÌÆÌ›3d9dÌÆjd9djj3jddý•›÷›ýjdd9djÌÌÆ›ÆjÌÌdjddjdÒÌjddddjddddjd•djddd9jdj9jddj9dddddjjdjddjdddd›djdd›•j9djddjj•dd9d3dddddjjÌÌ›djjj•dddjd•93•djddÌÌÌdÌÆj3d9ddÆdddddjdddjd›jýdýýddj9dd•j››dÌÌddjjdddÌddjd9djdjdjd9•djd9ddj9ddd9d9ddjd?ddjddj9d9djddjdjdÌ•jjddjdddj•9ddd9dddÌÆd3d9^93djÆÆÌÌd›Ìjdjdjd9Ì3•9j•d33dÌjd9¡djdjd9djdd•jý÷9ddÆddj•••¡Æd9dý›djjddj›djjddjdjdjdd9jdjdddjddddd9d9ddjdj•dddjddjjd•jdd››jÌjdjdÌýj•99dj›d•9dj9djd›9j•dd›j››ddddjddjd9›j•j•••jddddddd9d›dÒ•pdj›d9ddjdjdd›ddjjdd›djdjddddddjddjddjdjddd9d9dddjdddd9jdddjÌddjddjjdÆ•jÌj•ddÌdd9d9ddddj9d9›Æ›j•jd9d•ÆjÒjjd›dddjdjdj•jjjddjd9d9dd•dddddddj••9ddddÒddddýjj•j•d9jdjd9dddddjddjdjdj9dd9dd?dddj9d9jdddjjýddjj•ý•jdjdjdj›d9ý9d››djddddd››ý÷››••dd›jdjjdd››d9dýýdd9d?d9d99djdpd9ýÌddjdýd••jddjdjd9•jdj9jddjd9d9d9ddjddddjdjddddjdddjýýddjjÌ•jddjýddÌ39dd›3›dd93ddj3dýýÌ›jd›jjd›Æ›dd›Æ›Ì›•jÌ•jj•dd39djdddjdddjjd•jdjdjÆjjdddd9jjdd9ddd9ddd9ddd9djdj9dddjdjdjjdjddjd9djÌ•ý9djÌýdj••d9ddddjd9ddj•jýÆÌ3ddj•dj••›j•j›Æ›Æý÷•jjddd9dd9Ìdd9•jj3dÌdjdÌdjdj›Æjd9jdddddjjdddd9d9ddjd9ddd9ddjddjjdd•ddjdjdjdddjjj•ddjddÆdj•Ìd9ddd9dd9djjdjjddjjd9d›djd3333•››ýýjdddjdd9339Æ9d›•ýd›jdjjddd•jdd›ddj9d9dddd9jdýdjdddddjdjdddjddjdd9jddjddjdjd•djdj•Òd99ddýd3Òdddjddd9^jjd•j•d9dd9d9ddjd9d9djjddjd9•j9d3Æd•›dj9••d›jdjdjdjÌddjd›j•d9djjdýýdd9j9dd9ddj9ddjdjjddjd9dýdjddjjddd•dddd›dj9ÆÌý3jdj9d9dý•›•››Æjdd33d3d33jdddjdd››jddd9dd9djd•jd9dÆjddjÌddÌjjjd›djýdddddj9jdddd9dddjddjdd9ddjddd›djddjj•djdjdjj9d3Æjdjjjdd9ddjj•››Æ›Æjj3jdd9jdd3jdj•j9•dd•›39d•j••d›j•ddj›djjjddjdjdddjdj9ddjdd9d9ddjd9djddjdjddj9d››ddjj•jddddj›ddd›jddd›ýd9ddÌ››Æ›ýýýýýýjjÌÌÌÌj•9ddddd•93jdj9ddjjdd›djd•dd›ddjddd9ddÌdddddjdd9ddddj9djdjdjjdj›dÌdddjdjjddÌÌ99j••jd›Æý9dÆÌ››•Ì›ý÷ýýý•jÆÌÌ÷Ì•9dddjdjd3dj3›••j›••djddddjdd•djdjd9dd9dd9d9dd9dddj9ddddddj•dddd•jd¡ddjdjjdjÌýÆdddj•3dÌ›9•d9jjÀ›•ÌÆ›ýýýýýÆÌj•jjdÆjd9Ìj•d9d9Æ9•dj3›Æ››d9ddjddj9jdddÌdjdjddpdddjÒdd9dddjdjdjjdjjdjdjddd›djjdjÆdjýÆjdjj›^d›dddjd›ýd›ÌÌýýýý›dd•jdjdjjd9djdddd9d›dd››ddd?d9j•dj›ddjdjdd9dddj9d9djdd9jdjddjdjddddjdd››jjdÌdjd››dÌ•9d›d›ýdddj•¡ÆÌÌýýdddddd•›ýýýjÆ›9dd9d9›9djd9›•dddÌÌýdd9djd9djdjddddddjdjdddjddddjd9jd9dý›ýdddÌdj•j›dddÌddýýjjdj•djdjd9d9jdj9dýýýýjÆ›ddd••9^jjdjddjjdjj›Ìddjd›ddddddj9d9d9dddd9ddj9djdjdjddýý›÷Òdd¡Ì9ýd›•jdd››3djd9djdjdd3ddjdÆýdddjddd›99ýý›ý•jddjddjdÌdjdjdddd9Ò›djdddddddjd9djdddÌdddjddjý››Æýý9d•••d›•ýjddýjd9ddjddjddd›jjddj3339••jdýÆj›Æd›ddÌÌÌ÷jddd9jd9ý÷d9•jd9d9djddjdjÌdjdjdjjdjÆjÌddj9jdj•dd9ýjjd›ddjdj•›•ÌÌ›dddd›jj••dd•jd›jddd›ÆÌ›Ìdjdjd9dÌÌjj›dddddd9dd9d9d9djddj•dddjdjdý•›djdjjddd•›dj•›•j•j•jjd•ýjd•j9dd9dd9ddjj÷jddjddjd›•dd9djdjd9djdj•›ddjd›dj›jdddýý•›dd9›j9ddÌÌ›Ædd9Ìdj9d9jjddjddjd›•›Ìd9d9djddddjd••jjddd9dddjdj9ý›d9d3d›dddjÆ›9djÌdd›ý››d9jddjj•ddd9dddjdddjjddjjjdjjddjdddÆ¡djj9j›jjdj9ýddjýdj•ddjddj9dddjd9ddjdjjddddjdjddjjddd›d9ddjjd3ÌdÆd•›ddÌ÷ddddjjddd9d9d9djd9djddÆ›jd•jddjddjdjddd÷jÌjÌ9ÌÌÌdjdd99jd9^djdddjd•jd9d9djÌdjjddÌdjdjdddd›•j•ddÌ››Æjddjddd9ddjd9›j›dddjddjj•d›ddd›Ædjd›djýdýdddÌÆ›d9djddjj•d›3jdj99djdddj›d›d9•jjdd•›ddÌd9d9933dddjd9d3dd••9dddÒd3j•jdj•jjdÌÌd39djdÌÌÌj3jdjdjjjd›Æý•9•›ddjd›3dd•¡djdjddjd93jdÌdÌd›3•j•j••››jd9djdÒdddjdddjddddÆd9›ÌÌ3d›jddjddjjdj9jÆÌÆd3dj•dd›d›ýÌdýddjÌ›d››Ìdd9•›3jjlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/ntcheck.hdf0000644000000000000000000000577212421456623016743 0ustar âÊ\¾&j¶½º¿Ð*ÃúÛ$Æ&Ð.¼.¾Fdjª½®¿Ä ÃÐÐÒNCSA HDF Version 3.3 Release 3, February 1994?€@@@@€@ @À@àAAB B$B(B,B0B4B8B<B@BDB B¢B¤B¦B¨BªB¬B®B°B²BðBòBôBöBøBúBüBþCCC C!C"C#C$C%C&C'C(C)CHCICJCKCLCMCNCOCPCQCpCqCrCsCtCuCvCwCxCyCŒCŒ€CC€CŽCŽ€CC€CC€C C €C¡C¡€C¢C¢€C£C£€C¤C¤€C´C´€CµCµ€C¶C¶€C·C·€C¸C¸€  jjjA BHB´CC*CRCzC‘C¥C¹B @$@;?øм¾½¿ÃÛÆœžŸ ¡¢£¤¥°±²³´µ¶·¸¹ÄÅÆÇÈÉÊËÌÍØÙÚÛÜÝÞßàáìíîïðñòóôõ ()*+,-./01<=>?@ABCDEPQRSTUVWXY jjj¦ºÎâö 2FZ€¾½¿ÃH¾¨dj ½¿& Ã2Ð4¾DÈj ½¿&Ã<Ð@¾PÈj½¿2 ()*+,-./01<=>?@ABCDEPQRSTUVWXYdefghijklmxyz{|}~€ŒŽ‘’“”• ¡¢£¤¥¦§¨©´µ¶·¸¹º»¼½ jjj 2FZn‚–ª¾ÿ¾½¿ÃŠÐŠÑŠÒŠÓŠÔŠÕŠÖŠ×ŠØŠÙ¢@¢A¢B¢C¢D¢E¢F¢G¢H¢I¹°¹±¹²¹³¹´¹µ¹¶¹·¹¸¹¹Ñ Ñ!Ñ"Ñ#Ñ$Ñ%Ñ&Ñ'Ñ(Ñ)èè‘è’è“è”è•è–è—è˜è™ pqrstuvwxy.à.á.â.ã.ä.å.æ.ç.è.éFPFQFRFSFTFUFVFWFXFY]À]Á]Â]Ã]Ä]Å]Æ]Ç]È]É jjjŠÚ¢J¹ºÑ*èš z.êFZ]Ê°ûP¾½¿Ã pqrstuvwxy.à.á.â.ã.ä.å.æ.ç.è.éFPFQFRFSFTFUFVFWFXFY]À]Á]Â]Ã]Ä]Å]Æ]Ç]È]Éu0u1u2u3u4u5u6u7u8u9Œ Œ¡Œ¢Œ£Œ¤Œ¥Œ¦Œ§Œ¨Œ©¤¤¤¤¤¤¤¤¤¤»€»»‚»ƒ»„»…»†»‡»ˆ»‰ÒðÒñÒòÒóÒôÒõÒöÒ÷ÒøÒù jjj z.êFZ]Êu:Œª¤»ŠÒúÃо"j ²½ ¶¿ Ì*à öÐ þ¾ j ž½ ¢¿ ¸*à âÐ êN ¾½¿Ãÿûl ÿûl!ÿûl"ÿûl#ÿûl$ÿûl%ÿûl&ÿûl'ÿûl(ÿûl)ÿüV€ÿüVÿüV‚ÿüVƒÿüV„ÿüV…ÿüV†ÿüV‡ÿüVˆÿüV‰ÿý@àÿý@áÿý@âÿý@ãÿý@äÿý@åÿý@æÿý@çÿý@èÿý@éÿþ+@ÿþ+Aÿþ+Bÿþ+Cÿþ+Dÿþ+Eÿþ+Fÿþ+Gÿþ+Hÿþ+Iÿÿ ÿÿ¡ÿÿ¢ÿÿ£ÿÿ¤ÿÿ¥ÿÿ¦ÿÿ§ÿÿ¨ÿÿ© ê`êaêbêcêdêeêfêgêhêiÔÀÔÁÔÂÔÃÔÄÔÅÔÆÔÇÔÈÔÉ¿ ¿!¿"¿#¿$¿%¿&¿'¿(¿)©€©©‚©ƒ©„©…©†©‡©ˆ©‰  jjjÿûl*ÿüVŠÿý@êÿþ+Jÿÿª êjÔÊ¿*©ŠõàÿÄe6¾½¿Ã ׄׄׄׄׄׄׄׄׄׄ /¯/¯/¯/¯/¯/¯/¯/¯/¯/¯ G†ŒG†ŒG†ŒG†ŒG†ŒG†ŒG†ŒG†ŒG†ŒG†Œ _^_^_^_^_^_^_^_^_^_^ w5”w5”w5”w5”w5”w5”w5”w5”w5”w5”           ¦äœ¦äœ¦äœ¦äœ¦äœ¦äœ¦äœ¦äœ¦äœ¦äœ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ ¾¼ Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤Ö“¤   jjj ׄ /¯ G†Œ _^ w5”  ¦äœ ¾¼ Ö“¤ ;šÉÿ¾½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/tvattr.hdf0000644000000000000000000000432012421456623016634 0ustar Ê\­"&«<ªˆ~­ˆ«¢ªª:«äªè:«HªK:«…ª‰:« ê Ç:« NCSA HDF post Version 4.0 Release 2, July 23, 1996vgname0ABCDEFfldname1fldname2vsname1ªvgname1'0'PVALUESattname1Attr0.0 VALUESattname2Attr0.0vgname0ªªmNpVALUESattname3Attr0.0BVALUESattname4Attr0.0BVALUESattname5Attr0.0B€ª Ë:« ª  :« Gª O9« «ª":«\ª_:«™ª:ª €~«=ªA:«{VALUESattname4Attr0.0ÀPæšÔ,=VALUESattname5Attr0.0@PæšÔ,=VALUESvsname1Attr0.0fldname1fldname2vsname1ÿÿÿÿªªª ÿÿÿÿª ª ª ÿÿÿÿ BVALUESattname6Attr0.0mNpVALUESattname7Attr0.0BVALUESattname8Attr0.0fldname0fldname1vsname0ªÿÿÿÿªªÂ VALUESattname8Attr0.0mNpStªF:­2« ª$:«^ªb;VALUESattname9Attr0.0fldname0fldname1vsname0vsclass0ªÿÿÿÿªªªªª vgname2vgclass2dVALUESattname9Attr0.0 VALUES attname10Attr0.0ª vgname2vgclass2ªªlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm130.raw0000644000000000000000000000626112421456623016736 0ustar UTTTUUUTTTUUUVVWXYYZ[\\]^^_``aaa`_]ZVQKFDEGKOSVX[\^_``aaaUTTTUUUTTTUUUVVWXYYZ[\\]^__``aaa`_]ZVQKFDEGKOSVX[\^_``aaaUTTUUUUUUUUUUVVWXYZZ[\\]^__``aaa`_]ZVQKFDEGKOSVXZ\^_``aaaTTTTUUUUTUUUUVVWXYZZ[\\]^__`aaaa`_]ZVQKFDEGKOSVXZ\]__`aaaTTTTUUUTTUUUUVVWXYZ[[\]]^_``aaaa`_]ZVQKFDEGKOSVXZ\]^_``aaTTTTUUUUUUUVVVWXXYZ[[\]]^_``aaaa`_][WQKFDEGKORVXZ\]^_```aTTTTUUUUUUUUVVWXXYZ[\\]^^_``aaaa`_][WQKFDEGKORUXZ\]^__```TTTTUUUUUUUVVVWXXYZ[\]]^^_`aaaaaa_][WQKFDEGJNRUXZ[]^^__``TSTUUUUUUUVVVWXXYZ[[\]]^__`aaaaaa_][WQKFDDGJNRUXZ[]]^____SSTTUUUUUUVVVWXXYZ[\\]^^_``aabbaa`][WQKFDDGJNRUXZ[\]^^___SSSTUUUUUVVVWWXXYZ[\]]^^_`aabbbaa`^[WQKFCDFJNRUXZ[\]^^^^_SRRSTUUVVVVWWXYYZ[\\]^^__`aabbbba`^[WRKFCDFJNRUXZ[\]^^^^^TRRSSTUUVVVWXXYZZ[\]^^__``abbbbba`^[WRKECCFJNRUXZ[\]^^^__TSRSTTUUVVVWXXYZ[\]]^__``aabbbbba`^\XSLEBCFJNRVXZ[\]^^___TSRRSTUVVWWWXYZ[\\]^__```abbcccbba_\YSLEBCFJOSVXZ\]]^__``UTSSTUVVWXXXXXY[\]]^__``aabcccccba_]YTMEABFJOSVYZ\]^__`aaUTSRRTVXXXYYYYZ[\^^__``aabccdddccb`^ZUMEABFKOSWY[\^_``abbXWVTRRTVXZZ[\\\\]^__```abbcddddddca^[VNFABFKPTWY[]^_aabccXXXXWUUUVXZ\]^^^^_`aaaaabccdeeeedcb_\WOF@AFKPTWZ\^_`bcdddha[XXXXYYYY[]^_```abbbbbbcddefffedb`]XPG@AFKPTXZ\^`acdeff€zpd\YYZ[\]^_`abbabbccbbccdeffgffeca^YRG@@FKQUX[]_`bcefgg”ˆ|nd^\\]_`acdeedcccddccddefgggfedb^ZSH@@FLQUX[]_abdeghhŸ˜Žtjda`aabcefggfeddedddeefghhgfeb_[TI@@FLQUX[]_acdfghh£ œ•Œvnjhhgggghhihhgfeeeeeffghhhgfc`\UKA?FLQUX[]_acdfghi¡›—”Ž†~wspooonnnmlkjihgfffffgghiihfda]WLA?ELQUX[]_abdefgh˜’‘‘ˆƒ~zxvvuuutsrpnljihgfffghiiiigeb^XNB?ELQUX[]_`bcdeggŽŽŽ‹‡„€~|{zzzyyxwurnkihgffghijjihfc_YOC>ELQUX[]^`abcdeeˆ‹Ž‹ˆ…ƒ€}|{{zzywsokihggghijjjigd`ZQD>ELPUXZ\]_``abcdŠŒŽ’““’‘ŽŒ‰‡„}|{zywtokiggghijkkjgda[SE>ELPTWZ[]^__`aabŒ‘”•–––•”“’Ž‹‡ƒ|zzywsnjhggghjkkjheb]TG?DLPTWY[\]^__``a‘”•–––––—˜™˜—”‹†€{xxxvrliggghjkkkifc^VI?DLPTWY[]^__``aa“••••–˜›ž›˜•’ˆyuuvtojggghiklljgd_WJ@DLPTWZ\^_`abbbb‘”••–—šŸŸœ™”‘‘‘Ž‰wsstqkhgghikllkhe`YMADLQUX[^`bcdeeff’““”—›žž™”‘”––”Œ†}sprrmhffgiklmljfb[OBCLQVZ]`cefghhii‘‘‘•šžœ—’‘–¢¤¢œ”†unnpnigfgikmmmkhc]QDCLRW[_cehikllll‘”˜š›™•‘”œ¦¯³³­¤™„}vmknnjgfgikmnnlie_TFCLRX]behklnopqq‘•—˜–”‘’– ¬¸¿À»²¦˜‹xslhkmkgfgilnoomkgaWIDLSY_dhkmoqrrss‘•––”’’— ­»ÅÉź­Ÿ‘…yqniehlkhghjlnppolid[LEKT[afjmpqsuvvv’•”“‘’–žª¹ÆÍÊÀ²¡’…zpigfceklighjmoqqpnkf^PFKT\bhlprtuwy{}‘’‘‘‘•›¦´ÃÌÍƸ¦“ƒvmfa`badjlihiknprrrpmhaUHKT]djnrtvxyz{~Ž‘‘‘’˜ ¬»ÇÍʾ®š†uha]Z[^_cjmjijloqsttrokdZLLT]ekptwyz{{{{Ž‘‘”›¤°¾ÈËÄ·¤{j^XUTW\^cknljkmprtuutqmh^PMT]flrvy{}~~~}Ž‘•œ¦²¿Çƾ°ˆtdXSQQU[^elomkmortvwwvspkbVOT]fmsx{~€‚Ž‘•¦²½ÃÁ¹ª˜…rbWRPQV\`goqnmoqsvxxxwurmf[RU]fnuy}€‚ƒ„„…Ž”œ¥°º¾¼´¦•ƒrcYTRTY^dkrrpoqsuwyzzywtpjaWV]fou{~ƒ…†‡ˆŽ“š¢¬µ¹·¯£”„tg^XWY^chputrqsuwyz{{zyvrme\Y^fov{‚„†ˆŠŽŽŽ—ž§¯³±« “…xlc_]_chntwvttuwy{||}|zxupi`\`gov{‚…‡‹“ŽŒŽ“š¡©¬«§ž“‡{qjfefjntxzxvvxy{|}}~}{yvqle`bhov{ƒ†‰‘–ŒŽŽ‹‹•›¢¦¦¢›’ˆvpmlmpty{{yxxz{|}~~~~|zwtnhdeiov{ƒ‡‹”œŠ‹‹‹‰ˆŠ•›Ÿ ž™’Š‚{vtsuwz}~}{z{|}~~~}{xtpkghkpv{€…‰‘š¨ˆ‰‰‰ˆ††Š”˜š™–‘‹…€|zz{}€€~}|}}~~~}{xuqmjjlqv|†ŠŽ–¥¶‡‡‡‡†…ƒ…‰‘””“Œ‡„€€‚‚‚€~~~}{xuqnllnrw~ƒ‡Ž—£²¾††……„ƒƒ‡‹ŽŽ‹‰†„„ƒ„„„„ƒ€€€€€~}|zwurommotz…Ž™¤®·¿……„ƒ‚‚€~…ˆŠ‹‹‹Šˆˆ‡‡‡††…„‚€€€~~}{ywtqnmnrw|ƒœ¥«°µº„„‚‚€~}}€ƒ†ˆ‰‰‰ˆˆˆˆˆˆ‡†„ƒ‚€€~~}|zxurpooqsw¤¨«¯³µ„ƒ‚€~~}||~‚…‡ˆ‰‰‰‰‰‰ˆ‡†„ƒ‚€€~}}{zxvsqpooqv€›¡¤¦ª¯±²„ƒ‚€~}}|||~„†ˆ‰ŠŠŠ‰ˆ‡…„‚€€~~}|{zxvtrqpoqu}Š–¡£¦ª®°°libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/test.hdf0000644000000000000000000007310312421456623016274 0ustar È j\«yiϪyiÓ6­zj «{j)ª{jE3­|jx«}j” ª}j´3­~jç«kªk3«€k:ª€kB6«kxªk€6«‚k¶ª‚k¾6«ƒkôªƒkü6«„l2ª„lM6j…lƒ½…l‡Ðl ­†l©I«‡lòª‡lö3«ˆm)ªˆm16«‰mgª‰mo6«Šm¥ªŠm­6«‹m㪋më6«Œn!ªŒn/6jne½niÐn ­Žn‹J«nÕªnÙ3«o ªo6«‘oJª‘oR6«’oˆª’o6«“oƪ“oÎ6«”pª”p6«•pOª•pS8j–p‹½–pÐp¥ ­—p±M«˜pþª˜q3«™q6ª™q>6«šqtªšq|6«›q²ª›qº6«œqðªœqø6«r.(ªrV6jžrŒ½žrÐr® ­ŸrºN« sª s3«¡sAª¡sI6«¢sª¢s‡6«£s½ª£sÅ6«¤sûª¤t6«¥t9(ª¥ta6«¦t—ª¦tŸ8j§t×½§tÛÐtù ­¨uS«©uXª©u`3«ªu“8ªªuË3­«uþE¾:à;?àB¾;</=8q]ÛB¾q]ãr]ós_>ta>B¾taNua^vbªwfªÀB¾whjxhzNCSA HDF Version 3.3 Release 2, Novermber 1993VALUESrecord DimVal0.0ªrecordUDim0.0VALUESixx DimVal0.0ª ixxDim0.0VALUESiyy DimVal0.0ª iyyDim0.0onesVALUESUNITSAttr0.0À_ÀVALUESVALIDMINAttr0.0@_ÀVALUESVALIDMAXAttr0.0À_ÀVALUESSCALEMINAttr0.0@_ÀVALUESSCALEMAXAttr0.0Byte sized integer variableVALUESFIELDNAMAttr0.0jjjj½ ­­ªªªªªªj½Ð ByteVar0.0onesVALUESUNITSAttr0.0ÀßÿÀVALUESVALIDMINAttr0.0@ßÿÀVALUESVALIDMAXAttr0.0ÀßÿÀVALUESSCALEMINAttr0.0@ßÿÀVALUESSCALEMAXAttr0.0Short variableVALUESFIELDNAMAttr0.0jjjj½ ­­ªªªªªªj½Ð ShortVar0.0onesVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Long Integer variableVALUESFIELDNAMAttr0.0ÿÿÿÿVALUES _FillValueAttr0.0 j$j$j$j$½$ ­­ªªªªªªªj½Ð  !"#$$LongVar0.0flotsVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Single Precision Floating Point variable(((VALUESFIELDNAMAttr0.0 j,j,j,j,j,½, ­­­ªªªªªªj½Ð &'()*+,,FloatVar0.0dflotsVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Double Precision Floating Point variable(((VALUESFIELDNAMAttr0.0ÀÇ€VALUES _FillValueAttr0.0@j5j5j5j5j5½5 ­­­ªªªªªªªj½Ð ./0123455DoubleVar0.0test.cdfVALUESTITLEAttr0.0Id: cdftest.c,v 1.10.2.1 1994/01/07 20:24:12 chouck Exp 888VALUESRCSIDAttr0.0 ­­­­­­­­ªª %-678test.cdfCDF0.0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB{ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ­­ªªªªªªªj½Ð¾  !"#$$:LongVar0.0?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\8€<;= ­­­ªªªªªªj½Ð¾ &'()*+,,;FloatVar0.0B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”@-øTB˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆBÈBÊBÌBÎBÐBÒBÔBÖBØBÚBÜBÞBàBâBäBæBèBêBìBîBðBòBôBöBøBúBüBþCCCCCCCCCC C C C C CCCCCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C,C-C.C/C0C1C2C3C4C5C6C7C8C9C:C;C<C=C>C?C@CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZC[C\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~CC€C€€CC€C‚C‚€CƒCƒ€C„C„€C…C…€C†C†€C‡C‡€CˆCˆ€C‰C‰€CŠCŠ€C‹C‹€CŒCŒ€CC€CŽCŽ€CC€CC€C‘C‘€C’C’€C“C“€C”C”€C•C•€C–C–€C—C—€C˜C˜€C™C™€CšCš€C›C›€CœCœ€CC€CžCž€CŸCŸ€C C €C¡C¡€C¢C¢€C£C£€C¤C¤€C¥C¥€C¦C¦€C§C§€C¨C¨€C©C©€CªCª€C«C«€C¬C¬€C­C­€C®C®€C¯C¯€C°C°€C±C±€C²C²€C³C³€C´C´€CµCµ€C¶C¶€C·C·€C¸C¸€C¹C¹€CºCº€C»C»€C¼C¼€C½C½€C¾C¾€C¿C¿€CÀCÀ€CÁCÁ€CÂC€CÃCÀCÄCÄ€CÅCÅ€CÆCÆ€CÇCÇ€CÈCÈ€CÉCÉ€CÊCÊ€CËCË€CÌCÌ€CÍCÍ€CÎC΀CÏCÏ€CÐCЀCÑCÑ€CÒCÒ€CÓCÓ€CÔCÔ€CÕCÕ€CÖCÖ€C×C×€CØCØ€CÙCÙ€CÚCÚ€CÛCÛ€CÜCÜ€CÝCÝ€CÞCÞ€CßC߀VALUESrecord DimVal0.0ª>recordUDim0.0VALUESixx DimVal0.0ª@ixxDim0.0VALUESiyy DimVal0.0ªBiyyDim0.0onesVALUESUNITSAttr0.0À_ÀVALUESVALIDMINAttr0.0@_ÀVALUESVALIDMAXAttr0.0À_ÀVALUESSCALEMINAttr0.0@_ÀVALUESSCALEMAXAttr0.0Byte sized integer variableVALUESFIELDNAMAttr0.0jJjJjJjJ½J ­­ªªªªªªj½Ð?ADEFGHIJJByteVar0.0onesVALUESUNITSAttr0.0ÀßÿÀVALUESVALIDMINAttr0.0@ßÿÀVALUESVALIDMAXAttr0.0ÀßÿÀVALUESSCALEMINAttr0.0@ßÿÀVALUESSCALEMAXAttr0.0Short variableVALUESFIELDNAMAttr0.0jRjRjRjR½R ­­ªªªªªªj½Ð?CLMNOPQRRShortVar0.0onesVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Long Integer variableVALUESFIELDNAMAttr0.0ÿÿÿÿVALUES _FillValueAttr0.0 j[j[j[¾:j[½[ ­­ªªªªªªª¾j½ÐACTUVWXYZ:[[LongVar0.0flotsVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Single Precision Floating Point variable(((VALUESFIELDNAMAttr0.0 jcjcjcjc¾;jc½c ­­­ªªªªªª¾j½Ð?AC]^_`ab;ccFloatVar0.0dflotsVALUESUNITSAttr0.08ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Double Precision Floating Point variable(((VALUESFIELDNAMAttr0.0ÀÇ€VALUES _FillValueAttr0.0@jljljljljl½l ­­­ªªªªªªªj½Ð?ACefghijkllDoubleVar0.0test.cdfVALUESTITLEAttr0.0Id: cdftest.c,v 1.10.2.1 1994/01/07 20:24:12 chouck Exp 888VALUESRCSIDAttr0.0 ­­­­­­­­ªª?ACKS\dmnotest.cdfCDF0.0BThe reA@€rqs ­­ªªªªªªj½Ð¾?ADEFGHIJJqByteVar0.0d death had long devastated the country.€€€€€€€€0€utv ­­ªªªªªªj½Ð¾?CLMNOPQRRtShortVar0.0€€€€€€€€€a€€€€€€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€@ ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€Àp€xw­­­ªªªªªªªj½Ð¾?ACefghijkllwDoubleVar0.0VALUESrecord DimVal0.0ªyrecordUDim0.0VALUESixx DimVal0.0ª{ixxDim0.0VALUESiyy DimVal0.0ª}iyyDim0.0onesVALUESUNITSAttr0.0À_ÀVALUESVALIDMINAttr0.0@_ÀVALUESVALIDMAXAttr0.0À_ÀVALUESSCALEMINAttr0.0@_ÀVALUESSCALEMAXAttr0.0Byte sized integer variableVALUESFIELDNAMAttr0.0j…j…j…¾qj…½… ­­ªªªªªª¾j½Ðz|€‚ƒ„q……ByteVar0.0onesVALUESUNITSAttr0.0ÀßÿÀVALUESVALIDMINAttr0.0@ßÿÀVALUESVALIDMAXAttr0.0ÀßÿÀVALUESSCALEMINAttr0.0@ßÿÀVALUESSCALEMAXAttr0.0Short variableVALUESFIELDNAMAttr0.0jjj¾tj½ ­­ªªªªªª¾j½Ðz~‡ˆ‰Š‹ŒtShortVar0.0onesVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Long Integer variableVALUESFIELDNAMAttr0.0ÿÿÿÿVALUES _FillValueAttr0.0 j–j–j–¾:j–½– ­­ªªªªªªª¾j½Ð|~‘’“”•:––LongVar0.0flotsVALUESUNITSAttr0.0ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Single Precision Floating Point variable(((VALUESFIELDNAMAttr0.0 jžjžjžjž¾;jž½ž ­­­ªªªªªª¾j½Ðz|~˜™š›œ;žžFloatVar0.0dflotsVALUESUNITSAttr0.0´ÁßÿÿÿÀVALUESVALIDMINAttr0.0AßÿÿÿÀVALUESVALIDMAXAttr0.0ÁßÿÿÿÀVALUESSCALEMINAttr0.0AßÿÿÿÀVALUESSCALEMAXAttr0.0Double Precision Floating Point variable(((VALUESFIELDNAMAttr0.0ÀÇ€VALUES _FillValueAttr0.0@j§j§j§j§¾wj§½§­­­ªªªªªªª¾j½Ðz|~ ¡¢£¤¥¦w§§DoubleVar0.0test.cdfVALUESTITLEAttr0.0Id: cdftest.c,v 1.10.2.1 1994/01/07 20:24:12 chouck Exp 888VALUESRCSIDAttr0.0 ­­­­­­­­ªªz|~†Ž—Ÿ¨©ªtest.cdfCDF0.0libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/jpeg_img.jpg0000644000000000000000000000555212421456623017120 0ustar ÿØÿÛ„   (1#%(:3=<9387@H\N@DWE78PmQW_bghg>Mqypdx\egc//cB8BBcccccccccccccccccccccccccccccccccccccccccccccccccÿÀ€€!ÿÄÒ }!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÚ?½gpæÕÇÀ=jܺ€œÕøîw·ÎvpïLºP];óŠŠévÇqD@©lõ3DHÞÈÒmw5ϼ†âòL(œ`v®†Æ *;÷«È ÒºŠ¥4 ·N*j„ä­U¹³FSòÖ=Ü^FTK…ž uúlŒ-YX¹À¦ß9ŽQ÷ª/µ;,‘–À:UÉl„g8<“IzpTcµ#;HOSúSµ&0X6ÇòÔ :Ÿa\ö‰šà±“šéã\•2Œ ñUÈɦ¹Àª“8®Vs¼VCŸš»= $³'#µ6¡±U$qÀÅS¼Ô%·‚7çÈ*Íœ“ÏÉ1ï‘ô«\²ã®*{_ºìÜdà{Õ p¯ÙÜ}çðOþ½3B¶òmC0Ã?5´ª)X`T$’pi­ÀÍT™ñTe“XºŸÌk)þõz;ÙÛ[€Ávdã"¢…Fù”õݤn plš}’ïÞûvñ€;T²Aô©T6©é÷Ÿ°öŸ©1R?¹`îÞôHܲjµi|’¼3éV÷îi¤sLU9’©KYwi¸ÅaÍz…ÈýÑ;7cœU3¸¡Ü¤w,±¤ƒ 2pi«Œm) '˜7çíFNð ò>ìc·¹¬ë÷T™L‡{ƒ–ÇE•M/RiYwàvÍ,¶Ï £ʵ,ç2D ëS™@¨ZåsŒÔ̧½RœäðjŒÝ b\ JkÔeÄÀuÇžÒ?—‰>ð&ŸnCAœ•‰qHí€|° ÿxô_z®˜Øv6?4‡«ŸjfÔ2„ùsüGÖ²gµG› æŸ*¼(TUë!ûœô¨on<¥55ôŒçkb£[©ÉÆìÕ•’r¹#5˸a† g\Ÿ5ê,Aš6´[·a³ô¢4òƒàž8«,Ù@zÕk¢V¼á û£«ŸJŽKŽê: ñ©•™‰Þ>ƒµU¸´©Á¨’Sµ˜7µ^#ƒ¦+šÕn79Pk=`%7õ«væ8“÷±Œç·Zt·1¡;:zUyYf\Š¡*žkÓ³YìcK·]„3 çÖ–2p8aÍXŒAU5T œÈzî/­Elã`"?áQÕÏ©©•˜1 r{ÓÈÜ:âˆáýj=Ráb„¨<×- .åz·hŸ!Ï5+¬Aó Åeê;÷!ª°–ì8©LlFH¯D5Jé$óãeÆÌüÙíN+ó ¼jÕ¨TNÇë;Xe;¶gdonªZ±ÚJ¬>üŸÝ‚¬)¾\ã¶jÊãíÛµ`êR´’“Š y ·n0ʵ,)*üÚθ²œ ÔQÛyoœqDä@®Ô“U¯t_œŒÝêÀŠ5·' §zdçžéôŸ¬#y“µe±Ý» ¡hFÅ »‡ðF;ŸSWFârø-ß*d9#< ‡Q¸HãÂ7>ÕÎÜÈÎx5»“i­XS¥Z8^RR–P:¡4¹=k·ó9©£@ÊY‡¦ï'Vè J2 |ݳ֪ê±ï·gbv¢’«cÚ+ÄáØ!ZJN`vöPÑ‘œÞ¹­LO˜,Hõ¬á3ùZÓãidgíZÁ¶b•åâ©O7^j„²UWjôc2>;µp¯ËŽÂª¿ÊÇð©#9^àõ¢ä/—¹Ç ócÔŠÁEx.¶ÈF?Ôö­Y°ïnµKí‘Ùn†™sj—k½Xc„ö ²œœŒÕèQcPbœç& ‘ȪLÄÕG<Ôj$Šª¥‰=z\1ì@1Z‘ºU ‰ ÈÈö§@à¶2?ý*IWqPFFyȬ«èrèç«;K!ÿdt©¼Ï>ÑeþµVXce Ta¿SžÆæ>S±_cYÅî"o™X¥MÒ’àûÔîx¡äUI*»j}=B»ÌÒì8õ¯Eܾ¼u¦±Î@ª³—¥VGÄÖÇÖ­œ§¨öïøÔ7*ά£—p"°ÉçBV´E‚#RUïŠYP¼D/9éYæââÙŽåbµZ{ç—Œ`gÒ¢P¤‚ÀTã0*'#š«+uªìNx>•,ïä@°‚ÈysÔ×sæ8<ýá‚GûG üH²ïp3Ï°ê:$”Žž¾ß_zÌl¬¸ ñÓŠÑ…÷ħ#wlšd„WÃÈÉáW·âj”ë±T,0>ìƧŠ1ªg8QüªWHÝpÊ f]ZCÉUûVdÐmn*.W½W‘ÈÏ5]ä’jÜAÀéŠFóŸ{ÙêI¯F1ÞHÎÜÿzýF¸B1ʯOp£ú±§©*0Ç:ŸÔþ|U{È7®åÎáëÉüjYŠbZ$ª>~3­?±«@ͪ@á3­A«B0ªB43«CgªCk6«D¡ªD¥6«EÛªEß6«FªF6«GOªGj6«H ªH¡8jIÙ­J'E«KªK"3«LUªLY6«MªM“6«NɪNÍ6«OªO6«P=ªPK6jQ­R)ÆB«SêSÇ3«TúªTþ6«U4ªU86«VnªVr6«W¨ªW¬6NCSA HDF Version 3.2 Beta Release 2 June 4, 1992÷z"`  hVALUESrecord DimVal0.0ªrecordUDim0.0¨ VALUESixx DimVal0.07ªixxDim0.0XVALUESiyy DimVal0.07ªiyyDim0.0XonesVALUESUNITSAttr0.07ÂþVALUESVALIDMINAttr0.0BþVALUESVALIDMAXAttr0.0ÂþVALUESSCALEMINAttr0.0BþVALUESSCALEMAXAttr0.0Byte sized integer variableVALUESFIELDNAMAttr0.0-VALUES _FillValueAttr0.0 ­­ªªªªªªªj ByteVar0.0÷onesVALUESUNITSAttr0.07ÆÿþVALUESVALIDMINAttr0.0FÿþVALUESVALIDMAXAttr0.0ÆÿþVALUESSCALEMINAttr0.0FÿþVALUESSCALEMAXAttr0.0Short variableVALUESFIELDNAMAttr0.0 ­­ªªªªªªjShortVar0.0onesVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.02$«XâªX÷6«Y-ªY18­ZiA«[ªª[¯3«\âª\æ6«] ª] 6«^ Vª^ Z6«_ ª_ ”6«` Ê(ª` ò6­a!(B«b!jªb!p3«c!£ªc!§6«d!ݪd!á6«e"ªe"6«f"Qªf"U6«g"‹(ªg"³6«h"éªh"ñ8ji#)­j-ÈK«k#tªk#|3«l#¯4ªl#ã3­m$En$[ ªn$g6«6´ª6367®´ª7b6G«7˜8¨9:;Long Integer variableVALUESFIELDNAMAttr0.0ÿÿÿÿVALUES _FillValueAttr0.0 ­­ªªªªªªªj LongVar0.0÷flotsVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.0Single Precision Floating Point variable(((VALUESFIELDNAMAttr0.0 ­­­ªªªªªªj"#$%&'(FloatVar0.0sdflotsVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.0Double Precision Floating Point variable(((VALUESFIELDNAMAttr0.0ÀÇ€VALUES _FillValueAttr0.0@ ­­­ªªªªªªªj*+,-./01DoubleVar0.07test.cdfVALUESTITLEAttr0.07$Id: cdftest.c,v 1.31 1991/10/07 18:59:43 russ Exp $444VALUESRCSIDAttr0.07 ­­­­­­­­ªª!)234test.cdfCDF0.0÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB{ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ-DATA0.0Data0.0Data0.0 ­­ªªªªªªªjª 6LongVar0.0?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0hDATA0.0Data0.0Data0.0 879:; ­­­ªªªªªªjª"#$%&'(7FloatVar0.0zB4B8B<B@BDBHBLBPBTBXB\B`Bd@-øTBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”B–B˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆBÈBÊBÌBÎBÐBÒBÔBÖBØBÚBÜBÞBàBâBäBæBèBêBìBîBðBòBôBöBøBúBüBþCCCCCCCCCC C C C C CCCCCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C,C-C.C/C0C1C2C3C4C5C6C7C8C9C:C;C<C=C>C?C@CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZC[C\C]C^C_C`CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC{C|C}C~CC€C€€CC€C‚C‚€CƒCƒ€C„C„€C…C…€C†C†€C‡C‡€CˆCˆ€C‰C‰€CŠCŠ€C‹C‹€CŒCŒ€CC€CŽCŽ€CC€CC€C‘C‘€C’C’€C“C“€C”C”€C•C•€C–C–€C—C—€C˜C˜€C™C™€CšCš€C›C›€CœCœ€CC€CžCž€CŸCŸ€C C €C¡C¡€C¢C¢€C£C£€C¤C¤€C¥C¥€C¦C¦€C§C§€C¨C¨€C©C©€CªCª€C«C«€C¬C¬€C­C­€C®C®€C¯C¯€C°C°€C±C±€C²C²€C³C³€VALUESrecord DimVal0.0ª<recordUDim0.0¨ VALUESixx DimVal0.07ª>ixxDim0.0XVALUESiyy DimVal0.07ª@iyyDim0.0XonesVALUESUNITSAttr0.07ÂþVALUESVALIDMINAttr0.0BþVALUESVALIDMAXAttr0.0ÂþVALUESSCALEMINAttr0.0BþVALUESSCALEMAXAttr0.0Byte sized integer variableVALUESFIELDNAMAttr0.0-VALUES _FillValueAttr0.0 ­­ªªªªªªªj=?BCDEFGHIByteVar0.0÷onesVALUESUNITSAttr0.07ÆÿþVALUESVALIDMINAttr0.0FÿþVALUESVALIDMAXAttr0.0ÆÿþVALUESSCALEMINAttr0.0FÿþVALUESSCALEMAXAttr0.0Short variableVALUESFIELDNAMAttr0.0 ­­ªªªªªªj=AKLMNOPQShortVar0.0onesVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.0Long Integer variableVALUESFIELDNAMAttr0.0ÿÿÿÿVALUES _FillValueAttr0.0 ­­ªªªªªªªª?ASTUVWXY6LongVar0.0flotsVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.0Single Precision Floating Point variable(((VALUESFIELDNAMAttr0.0 ­­­ªªªªªªª=?A[\]^_`7FloatVar0.0dflotsVALUESUNITSAttr0.07ÏVALUESVALIDMINAttr0.0OVALUESVALIDMAXAttr0.0ÏVALUESSCALEMINAttr0.0OVALUESSCALEMAXAttr0.0Double Precision Floating Point variable(((VALUESFIELDNAMAttr0.0ÀÇ€VALUES _FillValueAttr0.0@ ­­­ªªªªªªªj=?AbcdefghiDoubleVar0.07test.cdfVALUESTITLEAttr0.07$Id: cdftest.c,v 1.31 1991/10/07 18:59:43 russ Exp $444VALUESRCSIDAttr0.07 ­­­­­­­­ªª=?AJRZajkltest.cdfCDF0.0÷BThe red AdeHDATA0.0Data0.0Data0.02G«n&ûo' p'bq)b ªq)n6G«q)¤r)´s*t,hªt-p6G«t-¦u-¶Honp ­­ªªªªªªªjª=?BCDEFGHInByteVar0.0÷ath ha-d long d-evastate-d the co-untry.t-rying ag-ain TIT€€€€€€ DATA0.0Data0.0Data0.0rqs ­­ªªªªªªjª=AKLMNOPQqShortVar0.0zaÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€@ !ûTD-ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€ÀÇ€-DATA0.0Data0.0Data0.0hut ­­­ªªªªªªªjª=?AbcdefghitDoubleVar0.0libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/jet2.hdf0000644000000000000000000035426212421456623016171 0ustar k.dÊÔÀÊdÊÔÀ-dÕŠÉdÕŠjdØŠÈdØŽ,dØ’2dئ  =4' ]VMA0ljhcX0mkjjib<kihhiidI%lihhiih]EmigghjjgY; oigghjkjdV qifefikljd7skfedehklkX*vmgdcdfillc?wohdadegjmiR0 wqjdadefhll_A  wsmfadghhjlgO. "(,047:<=>><:840)# srojcahjjjkj[A !)1;BJPW^bfjmpqrsssrpmib[RH=.$ monkgahklkkkaM, (4>GOW_dhknqsuwxyz{||}}||{xvqleWK>1$ fhjkjbejmllkeU8 !+5@JU]chmqsuwxyz{||}~~€€}zsj`TF2% _aehjdchmnllh\C&  $0?KU_gnqtuvwxxyyzzz{{||}~~€‚‚‚ƒƒ‚zrhUE5& Z\_ciibflonmjbO0!  )7ESckpstuvvwwxxxxxwwwwwwwxyz{|~€‚ƒƒƒƒƒƒ€xl[I5 YZ]`cidbenonleUD6% &4JXdmrstuuvvuusqonmlllmmnnopqrstuvwy{|~€ƒƒƒƒ„ƒ‚xlS>+XY[_bhgcbjnnlfZG>2$*:IXflorttttsqnlkjiiijjkklmmnopqrstuvwxy{|}~€‚ƒ„„„ƒ~seS?, WXZ]cgheackmlg\JA9/ &;JXckrssssqomkigffffghijlmopqrtuvvwwxxxyzz{|}~€‚ƒ„„………‚|qcQ5" WWX\dghgc]ehie]KB<6, #3DZfnrsssqonjgdcbcdefhjlnqsvx{|~€‚‚‚‚€~~~~~~€‚ƒ„……††…ƒ}sZD. WWX\fiihf_Zaca]LB=96  .BVhqrsssrpkfb__``bcegjmrw|…ŠŽ‘”–˜™™™˜–•“ŽŠˆ…ƒ€€€‚ƒ„…††‡‡†…}lT:! ZZ[_hlkjhf[VVYYSG?<:0  ,J^kqrssrpld`^]]_`adgnu}…—ž¤©®²µ·¹º»»»»º¹·¶³°¬¨¤Ÿš”‹ˆ…„„„……†‡‡‡‡†„}nW1 ]]`fklkjih`XSQRPKE@=7# &;Qelprrqnid`]\\]^bfmu‹•¤«²¶¹»½¿ÀÁÁÂÂÂÁÁÁÀ¿½¼º¸µ³°­©¤ ›–Œ‰‡††‡‡‡‡‡†„uY=$`aejmmkjiie_WPMLKGC?;+ /EXgpqqqoid`\Z[\^bgr{†‘›§®³¸¼ÀÁÃÃÄÄÄÄÄÃÃÂÂÁÁÀÀ¿¾½¼º¹·¶³±®ª¦ ›–‘Šˆˆ‡‡‡‡‡†ƒu`G,cdhmnljiiihe_VLHHGEB>2  7N`lpqpolg_[YYY]agpz‹˜£¬´»¾ÁÃÄÄÄÄÄÄÃÂÁÀ¿½¼»ºº¹¹¹¹¹¹¸¸··¶µµ³²®ª¥Ÿ™’Ž‹‰ˆˆ‡‡‡‡„{iP3fgknnhgghiiie^QFEEDC@8$7]hnqrpnhaZWWWY[cn|Œ›«´º¾ÁÃÄÅÅÅÅÄÃÁÀ½º¸µ³¯­¬ª©©©ª«­¯±²³´µµµ´³²²°­ª¢›•‹‰ˆˆ‡‡‡†t\/ gilnngefgiiigbWFDCCBA<*/Kdmpqqoh_YVTVX\do‡—¥±¹¿ÂÃÄÅÅÄÃÂÀ½¹µ±¬¥Ÿš•Š†‚}{{|}„ˆ’—ž¤©­°±±±°¯®¬¨£œ’Šˆˆ‡‡‡„€hD%hikmngeefhhhe_VFCBBBA=,6Oakppole\WUUVZcp€¤¯·¼ÁÃÄÄÄÃÂÀ½¹´­§ ™‘‡€zsngc_\YWWWWX[^bglu}…•Ÿ¥ª­®®­¬ª§¡š”ŽŠˆˆ‡†…|hL-gikmnifefhhfa[TGBAAAA>. :Rbkopnib[TSTW\jzŠ›ª¶¼ÀÃÄÄÄÃÁ¿º¶°©¢—Ž…|sha[UPLIGECBBBBBDEHJNTY`gp}‡‘™¡¨«¬¬«¨¤Ÿš“Šˆ‡‡…|kQ0ghjlmjgfghgc\URJC@@AA>. 3Xelopmg`XTQTX_k‚–¥±»ÀÃÄÄÄÃÁ¾»¶®¦”‰{pg]ULGC?=;:999999999::;<>@CHNXbny†–ž¤¨ª«ª¨¥Ÿ–Œ‰ˆ‡…pU'fgijkkihhih]UPPNEA@AA>-4Vjmnoog\UQPRWbr‡¡¯¹¿ÃÅÅÅÄ¿»¶°©œ„xk[QIB=9877666667777778888999:;<>BHP\pœ¥ª««ª©£›“‰ˆ‡†‚zO*defghkjjklaUPPQPIC@AA=* !@\jmnnkeWROOR]nƒ™«º¿ÃÅÅÅÃÁ¾»´¬¢—Šwh[PF=:76555555666666677777788888999:;<>DLYi{‘Ÿ¦ªª©§¤”Œ‰ˆ‡…|^:cccdfgijkm[RPQRPHCAAA9$@XglmmibYQOOT]tŠ®¹ÂÄÅÅÄÁ¿»¶°¤—Š{lZNE?:76555555555566666666777777888899::;=@ELVj|‹™¤¨¨¨¥ –‹ˆ‡ƒw^>bbaacdgikmXQPQQNFBAA@4 =WekmmibYQMOU`qŽ¢±»ÂÅÅÄÃÁ½¸²©Ÿ}n`RE>:7544444555555555555555666666777888999:;<>BNZiz‹œ¤¨¨¦ š“Ž‰‡ƒv_=ba`_`bdgjmZRQQNJDBAB?,-XeklljbXQMNTasŠ§µ¾ÃÆÆÄ¿¼¶®¤—‰rbTI@965444444444445555554444444555556667788899::;>BKYj„”Ÿ¥§¦£–‰‡ƒxb/ba`__``chmbSPPIFCBBB85433333333344444333322222222222221111112222223334466789:<>BI\q„• ¦¤Ÿ™‘‰„u\6`a```a`__`kWMJMHC:+)L`ikid\SJIN[oŠ«ºÂÆÇƾºµ«ŒyeNC;7433322233334444433322222222211111000000000111222233445689:;<>ESf{‘¡¤¤¡šŠ„w\&`````aba__geSEKE=/ A[gjjf_TLHJVk…¡¼ÃÆÇÆþºµ®ž‹vbO?9643322222333444443322222111111000/////......///01122233345789:;=AK[r“Ÿ¤¤£›‘‹…}O$ `````accb_`gZHBA5$*\eijg^SKGHUl‡¢¹ÆÇÆÅý¸²ª„nZJ>654332222233444443321111111110000/////.....-------../012233345689;<>BJe~’ ¥¤Ÿ–Žˆ|X0```__aceea`fbVA91" @chigcWMHHLeœ³ÂÇÇÅÿ¸²©‹o[K?854332222234444443221111111110000////////.....--------..01223344569:<>AM_uŠœ¤£Ÿ˜…uU/ _____acege`ce^H2)-Rgihd^PIHKVx•­¾ÇÇÆÿº³ªžx[K@85432222223344444322111111110000000000000000////..--,,,,--./123334568:;=BK[o†œ¢¢Ÿ˜„qS*_____acehhbbdbT0" <_iif`XJGIRd‹§ºÅÈÆÄÀ»µ¬ {dK?85432221223445544321111111110000000000011111111100//.--,,,,,-.0123334579;=@HUi‰™¡¢ •„rP __^__acfhjgbceb9!+Lejgb[QFFM\uŸ·ÃÈÈÄÁ¼·°¤“~hR?854322111234455543211111111100000011111111111222233221/.-,,,,,,-/023334568;=?DMj†˜¢£ –Œƒw;^^^__cfhikkfddgY/=\hid]SIDJXoŽ¶ÂÈÈÆÁ¼¶¯§“}fRA75432111123455554321111111110001111111111111111222333444320.,,+++,-/02334447:<>@I]w £¡™…sB^^^_`egikklifdfaC"  'Hahh`WNFEOc ¿ÆÈÆþ·±¨ƒlWF:54321111234555543211111111111111111110//.....//00123344554420.-,++,,./23344569;>BK[rŒŸ¡Ÿ™Že=]^^_afhjklmlhefeT33Qdgf\RJEHWq°ÆÈÇÄÀº³« ‘s\J>743221112245555532211111111111111110/..-,,,,,--./002234455655320.,+++,-/12344568;>BJYp‘œ Ÿ˜ˆz\5]^^`bgikklmmjgef`D ?XfgcXNHEKa ¼ÊÈƽµ®¤–ƒcOA853321111235565543211111111111111100.-,++++++,,-../012344566666531/,,++,-/12344468<>BHUxœ¡ ’‡tV&\]^`dijkllmmljefeS4 !J_fg_SKFEPm®ÅËÇÿ¹±¨›ŠtTD:6432111123456654321111111111122210/-+*****+++,,-.//0123445666777653/-,+++,.02444458<>AEXwž¢ž„pM\]_afjkkkllmmlgff`M#1SbeeZOIFG[€¢¼ÉÊÄÀ»´ªžŽy`E;643210001345665542111111111122221/,+*)***++,-.//0111223344566677777642/-+++,-/2344457:>@ESm‰¡‘ƒv9\^`cgkkkkkklmljffdV6  854310001245666543211111111122210.+*)))*+,-./0011222223344556677777776420.,++,-02344567:>BHVlŠŸŸš^.\^`dhkkkkjjklmlggf^IE[ddbRJFGMs›·ÇÊÇ¿º´«Œv^I964321000134566654321111111122210.+))))*,-./0112222222233344566777777776420-,++,-02345568:?BIWo’ž˜ŒtK% \^aeikkkkjijkmmhgfcX M^dc_NHEHR€§¾ÉÊļ¶°¦–jS@65321000123556654322111111122220.+)()*+,.0011222222222222333456677777777653/-,++,.02455568]_bfjkkkjihijlmiggea. T`db]KFDIY±ÄÊÉÁº³¬¢v^I;5432000012455665432221111122221.+)(()+-/011122222233322221112355677777777652/-,++,.02455669=@CG]•  Ž~Z/ ]_bgkkkjjighijmkhgfeA*ZadaXHEENdºÇÊɽ¶¯¦š€gQ@7432100011355555532222211222222.*(((*,.0011122345678876532110//0235667777776420.,+,,.0345567:=@CI\z•¡ŸŒxX#^_cgkkkjihgghilkhgffN" 1]bc_UFDFRm§¾ÈÉǺ³«¡“v]I;6432000012355555432222222222220*(((),./0011235:>CGJMMLJGA<841////02356677776542/-,,,-.1345679;>AENc~š¡™ˆlD^_cgkkkjiggggillhggfW*7^bb^SEDHWv¯ÂÉÉÅ·°¨œ‹lUC8532100001235555543222222222221-(''(*./000135:@IPV[`deeda[TLE=620./01345666666531/-,,,-0245568:753210001123455553222222222221/*''(),//00026BDHTl–Ÿ›Žz=^`chkkkjhgfffhlliggga:  C`ba[ODDK_†½ÆÊÇÀ³ª ‘{ZF;643100001223445543222222222220-(''(+.///016>GRZbglptx{}ƒƒ|r`RE:2///024455665532/-,,,-/245668:=ADFJR™¡š†],^`cgkkkjhffffhlligggdA $),-,)%! )9ELOOG9)  "Jab`ZMDDLcÁÈÊƽ°§š‰qP@854210000123344444322222222231.*'&'*-.///15?IQW\cgkmpsvy}€„…†††‚whXG820/023455555431/-,+,.0256679;ACEFIZ˜ œ}M% ^_cgkkkjigffgillhffgeE!  ,7AFJMOPONLIEA@CIU[_ab`ZRF5 &Nab`YLCDMf•ÃÈÊÅ»®¤–ƒjJ=644200000122334444322222222320,(&&(+.../039DKQWZ\[YWVVY]bit{…‡‡„~tdL?61/023445554420.-,,-/146678:?CEFHOi‡ž¡Šh=^_bgkkkkiggfhjmlgffhfH# )5@IPVXZ\]^^]]\ZXXY\begiiihe_U@+ *Qab`XKCDNh˜ÄÉÊŹ¬¢’}cE;64310000112233343332222222332/+'&&),....15>@BFKV`ju‡‰ˆ„|gTD92012345554421/-,,,.0356679=CFGHJWs‘¢˜}U* ]_bfkkkkjhggikmlgefhgJ% $5JSXZ[[[[\]^_``acccdeghiijjjiihaO6 -Tbb_XJCDOj›ÅÊÊÄ·ªŸŽx]A954310000112233333332222222332.)&%'*-.../17=EIIGA841////0139ALZi{ƒˆ‹‹€nZG91112344544310.-,,-/256678854310000112223333332222223331,(&%'+-.../27=CC@90-,,++,,,,--/27B\r‹ŽŽ‡v_G5211244444321/-,,-.156678;@FJLJJPe¤˜€\)\_adjkklllkllmmgddfifI%  DRXZ[XRKFA>==>@DIOV]dfghhhgggffffghiihdZ 3Ubb_XKCCOkœÆÊÉõ¥™†mS;743200000122222333333222233331+'%%(,----.26;;93.,++++++++,,,,,-.3@Un…‘ŽƒlI;412344444310.-,,-/35677:>EKPOLLSgž£—yK\^`cjkklllmmmmleddfieE$  2ERWXVRJEA><:9:;=AFMU]defffgffffedcccefggdI"  4Ubb_XKCDNjœÆÊÉ´¤—ƒiO:643200001122222233333333333330*&%%),----.15773/,++++++++++,,,,,,.2;Ja‚‘Ž…eL=42234444321/-,,-.356779=CIQSPMNUŒŸœˆg&[^`bikkklmmmmljdcdfhcA# '9ITVURNIB?<:9889:<@FMU^deeffffedba`___`aceg_B$  4Ubb_XLCDMgšÆÊÉ´¤–€gL9643200001122222223333333333330)&%%),-----0233/-++++++++++++++++++,/6Ce}‹’‘~cL;42334444310--,-.256778CHOX`giihgc^ZWUTTUWZ\\]]_efaL 25(2Sbb`YMCCJa’ÆËÊô£”}cI8543200011222222222233333333330)&$%)+,,,,,-//.,,++++++++++++********++/Ca‘•Žx\A4333444321.----036778:@GOZ[YUOMs”¥q=U\^`djjjiijjhd``adggT2 .HPOKIHGEDCBA@?=;988;>BFNYcjkjhd_VSQPPPQSVY[\\\]^dfe`5 @B:' ,Oab`[OCCH[ˆÃÊÊĶ¤“|bG7543110111222222222233333333330*&$$(*,,,,,,---,,,,,,,,+++*****)(('(()*+.?[€“”{Z;533444431/.---/357789?FMZ]^\ULW{¤Ž\0S\^_bjjjhgggda`_begfL. 4ELLJIHHIGEDCCB@=;99:>BFP\dikjga[UPNLKJKMPSW[\\\]^`ceeYG3$%3AC;( 'Kaba\QDCFW¿ÊËÅ·¥”}bG7543110112222222222233333333331*&$$'*+,+++,,---,,,,,,,++***)))('&%%&')*,3De‹’’ˆqH;544444320.---/257789>FMY^a_[OPlŽ¥›sEQ[^_aijjifedb`_`cefcC, 4FKKIJMMLKIFEEDB@=;:;>CHNZdikjf`YSNIGEDDFHLPTZ[\\]^_`cee]O@32=DD<  E_aa]SDCESuºÈÌƹ¦•~cH7533111112222222222233333333332+'$$&)*+++++,,-,,,,,,,++**)(((('&%$##$&)*-6K|“ƒYC844444430/---.257889>EMW_bb`TO^{¡¡‡Z, OZ^^_hijifcba``aded];) *JKJHKPTURLIGFEDB@=<>?ADHLQXZ\\]___`bddbZG<>BFMU^hiig`TNHC=::;<=>@CHMUY[\]_``_^^__^]MECGLI.4[`a_YHCCK`ªÄÍɾª˜fK7533111112222222112223333333333.)%$%&()*++++++,,,,,+*)(((''''&&%$!  %(*,.NwŒ““~[D74444441/.--.147889=CMV]cff`TQ_Š¤Ÿ‚V"KY]]^cgijidbaaaddc\J++DKGFMWbed_XQJIIHGCA@@BJU_gkje_WOGA;878888789<@EMTXZ\^abbba_]\[ZSMJKOK6 $T^a`\KECGS›¾ÌËÁ­œ…jN85332111122222221122233443333431,'%%&&'')**++++++*)(((((((('''&%$!!&)+,8`‘“ŒmQ<54444420/...147889V_`_RHCDIz­ÆÍÇ´¤sU;64321111233322221222334443334431,'&&&&&&&'''(''''''(()+,,--..-,*% "'*+0Giˆ“‘€eI85555431/../1478993.+(&%%%&&&&&&%$###$&()+++++,.4:@GKPSY^bcddddec`]YTB' &CY_^UKDCHk™ÁÏǹ§rK=6321111123333332222234554443344442.+*))****++,-.////000011246773*##'*+-6Su’y]B765554310013699::=CLSUWY^fgd^TY~–¡n7CTZ[ZYROQY^_[TK3! (FMHDBCP^glmlllkigec_ZOF=5.)(''()*+,,--,+*(&%$#%&()******,049?EJPW^bccccddc`]ZP8 7R^^XOFBE\‰µÍË¿®˜{RA74211111234444433222345554433444442/-+*+++,,--..////000112367883*# $'*+-7Su‘y^B76555432111479:::>DLRTUW[dfe`UWu¡ ~ECTZZZYQJGKPPJA5 5KMFBABP]ejkkkjhfb^YRH:2,)(()*+,/011222210-+(&$$%&')))))))*+-19>ELU^abcccddc`]YI0 ,H\][RHBCQw¦ÊÍõ „ZE:421111123445554333334555544334444431/-,,,--...///00011223689993)# !%(+,.:Vw‘Œx]B7665543211258:::;>DMQRSTWbeeaWVmŠ ¡‹S' BSYZZYQG@>?:2'  %?NMDA@ANZbgiigfc_VLB80+*)))-.011122233444420-*'$$%&(())))))))*,/5EMPPQRT_debYVf„ž¢•a1BRXYYZWJ<51)# 2JPKC???GOTWXWQLF>50-,++,-/11111111223445666641.)&$$%''((((((())*+-0==AEHHGD>:62/-,,-./00110000000123457899752.*'%$%&&''((((()))*+08DR]bccddcba\R'#;X[ZUJBCLfšÈÌȼ©`J;4211101245788887555556666543333344555554433333334455678:;;:71'$##$(+,-.6Pn‡iP=766665444469:;;;;@FMMLKLMX`cb\U\x–£Ÿ}LAPVWWYYTI;4/)$ +CQRIA=<;<==<:731/----./001100000///00134679:;;972.+(%%%&&''''((((())+.6AP]accdcbb`\;$ .RXZWOCBFX¿ÊÊólR@622110123579999976666666665433333445555555555555566789:;<:72,%$$$&*,-.0?\w‹zaJ;76666544458:;;;;R\accccbb`N1# &HUYXSEBCNi°ÅÌȽ›z]F93211001357::;::987777777764333233345555566666667778:;;<;83-($$%&),-.04Ki€Ž‰qXD97666655556:;<<;;NSTUWYYUL@<84-! >OUTGA=;8431/..----/001123333110////01269;<=>>??><72.,(&&&&''&&%%%&&'()*+-?Q\accccbb[?,"#77666666668;<<<;;=BHKKHFFFP[`a^UWlˆ££–l9:4'  +HTVUGA>;820/....../11233444430////0247:<==>>??@@@?=93/,*))(''&&%%%%&&'()**,7HXabbcbb`R;)&/GTXXPFBCHx©ÄÎ̺}_G74211001359;<==<<;:9999887654322111122344555677899:::95/+('&')+-./03=Np…Ž‹pVD97777666778;===<<<>CIKJFEDEMY_`^UVhƒ¢¤œwE9IOPPRVXXVNIEA;- 4MVWUGA><820..-../012233443310/./01579:;<==>>???????<94.,+*)(('&%%%&&&'())**.7EXabbbbaZF2(,?NWXSICBDb•¸ÊÎĬŽnR<6311001248:<=>>=<<;::::997643211100112233445667888741.+)(((*,-./038777777789:<>>=<<<>DIJIFDDDLX^_]TVf€¡¥Ÿ~O7GMNMNUXXWQMJFA0 >=;72/-+*)('&&&&'(((())**+.7FZ`bbbb^O<+,8HUWUMEAAR§ÄÎ˹Ÿ€`D:4210001269;=>?>>=<;;;;;:97642110////00112334454421.,+)))*+,../02;K^sˆŒŠ‚qQB:777777889;<>>>=<<<50..-../01223221//./03589:::::9877666778:;;;951.,+*)('''()******++*+-4MZ`bbbaVE0-4CQWVPHB@Gh“¹ÌÏį’qN@7321000147:=>???>>=<<<<;:9763210/..--..//00000/.-+***)*+,-.//02:K^q‚ŒŠƒu_D;87778889:;=>??>=<<<@EIIGEDDDKV\^\TTb{Ÿ§£Š`(1@FGGHOUXXUROJC- HV[[XJC@?=72/.-../012110/.../2689:::976410//...//034688730.,+*)(((*+,,,,---,+++,9N[abba[M6.1>MVVSKC?BT{§ÈÐ˽¥…\H<5211000258<>?@@??>===<<;:975310/-,,+********)))))))*+,-.//0026KasŠ‹„vcL;8778889:;<=?????=<<=BFIIFDDDDJU[][ST`yž¨¥h/.:@AABJQVWUQME:#!LW\\ZLD@??;61.---......../2579:99741/-,++***++++++,-.//000.-++***++,,,,-.0431.++,9KZabb^S>=<:86421/-,+**)(((((((()**,-.////0126@Rn|…‰Š€p]K<878889:;<=?@@@@@>=<<>CGIIEDDDDJTZ[ZSS_w©¦•q8 +5:<<P^ba^T?/08DSVUQJB>BQn›ÃÍÏÆ´ŒnVD93210000247;>?@A@@@@@@?>=;86420.-,+*))))))*+,-..///000014?@AA@@?>===?EHIHEDDDEJTY[YRR^vœ©§˜v> )045538?FIHC;0#'QY]][QFA???=:74100012356898752/.,+**))))******+++++,,-----,,,,,,,,----./14:AA?91,-5CW``^U@/06BQVVSME??G[²ÆÏÎÄ£„hQ@63210000248;=?@@@@@@@@@?>;:86420/.--,,,--..//0000000138CScrˆˆ…}pYJ@97899:;=>?@AAAA@@?>===AFHIHDDDDEISXYXQR]vœª¨›|D(+-..*+/3550(*SZ]][SHA>>??><:6555579::9741.,**))))))))****++++++,,,,-----,,,,----./0158AMgœ¸ÊÑθœ~cL;632100001479<>?@@@@@@@@?><;9864322111112111111011147>H\mz„ˆ‰„zkZF>:889:;<=?@ABBBAA@@?====CGHHGDDDEEIRWXWQQ]uœª©€J&'''' .T[]][UKC===>>>=<<;;;;;:72-+**)))))))))***++,,--------------......//0248>DKORSRPJ4/.19RWVN;-.4?OVVUQKC??DQ¥¿ÎÔʳ—y]D;632100001247:=>?@@@@@@?>==<;988765544332211111124;FTe{ƒ‡ˆ‰…wfTD;9899;<=>?ABCCCBAA@@>===>EHIHFDDDEFIQVWVPQ]uœ«© „O%$"   /U[]]\VMD=9:;====<;:81,***))))(())))*+-.024678::::::987543322223458;>BGPV\bijgc_\I80/1;BC?4,,3?OWWURNFA>>A^ƒ¥¿ÏÔʸž]J=6311000000124689;<==>>==<;:9887654432211111249@Qap}…‡ˆˆ„|eSG?;99:;<=?@ACDDDCCBAA@?>==>AGHHHFDDEFGIPTVUPP\uœ«ª¢‰V%#!  /TZ]]\WNE=8678997631/-,++*(((((*+-/157:<>ACEFHIJKKLLKKKJIHGGFGGIJMPTY^ckpuy|}{voi[E7003541+)*3APWWVSOHD@==JhŠªÃÒÐǶžy`M@84321100001223457788888876654432221111234:AJVdt|‚…ˆ‡‚ym]LD?;::;<=>@BCDDEDDCCBA@@?>>>@CHHHGEEEFGGIOSUTOP\u¬«£Œ[ %#   1SZ]]\XPG>74334443321/,)(''()+.158;=ACFHJMNPRSUVWXYZZ[\\\]]]^_acehmquz…ˆ‹ŽˆymVB410/,(&&)4CQWXVTPJFB?;@Rn¯ÊÐÏÆ·–|eRC8543211111111223333443333322221112358@ACDEEEEDDCBAA@??>>@BFHHHGEEFGHHJNRSSOP\vž¬«¤Ž_ $" 4SZ]]]ZSI?72100123331.)%$%'*-16<@CFIKMOQRTVXY[]^`acdfgijlnoqsux{~‚‡‹’–™œŸŸžœ™“‰~iQ<20-($#$)7FSXXWURMHEA<<<;<=>@ACDFFFFFEDDCBAA@???@BDGHHGFEEGIIJJNQRQOP\w ¬¬¥d $"  !8SY\]][VMA831002440)" !"$&+16<@EHJLNPRSUVY[\^`bdfgikmopruwy|~ƒ‡‹“˜›ž¡¤§¨©ª««©§£š~dI41-($#$,:ITXXWVSOJGC><;BTs¢¼ÌÓÔɸ¢‰pTE<753322111000000000111223457=<<<=>?BDEFGGGGFFEDDCBAA@@@@BDGHHHGFFFIJKKKMOQPNO]x¡­¬¦’g" $!  #,:OW[[[[YTK?655663+$!#$%(.4:@EJMPRUX[]`cfiknpsuwy{}ƒ…ˆ‹Ž‘•›Ÿ¢¥¨«¬®¯°±²²³³³²²°­¡–‚fD40*%#%/=KUYZYWTPMJGC><;>Hq”²ÈÒÔÏƸ¤†p\K@9754332222233457:=AGPYbku‡ŒŽ‘’’‘‹…{obQID@?>====>?ACEGHHHHHGGFFEDDCBAAAAACEGHHHGGFFHLMNMLMNOONO]y£®­§”k%%!#-49?MTYZZZYVQH?<:96,$ !#$%&(07?EKQTX[^behknrtwy|ƒ†ˆ‹Ž‘”˜¡¥¨«®¯°±±²³³³´´´´´´´´´´³­¤–~\;3-)&'/=KV[[[YVQMKIFB><;>PmŒªÃÑÒÏÉÁ¯‹yhWNGC@>>?@BFJOU[cjpv{€ƒ‡Š‹†xpd\UOJDA?>>==>?@BDFGHIIIIIHHGGFEDDCCBBCCDFGHHHHGGGGJOPPOMMNNNMO^{¥®­¨–n'&"#.9BHKQUWXYYYXUOFB>81$  "$%&')2;CKQWZ^beimpsvy|~ƒ‡‰Œ’–šž£§¬¯²³µµµµµµµµµµµµµµµµµµµµµ³®¥”vK;1+))0;:@Pgƒ¢¿ÊÏÏÍÄ»¯£•„zrlheeghkptx|€…ˆ‹ŽŒ‡‚~ytlf`ZTLGDB@?>>>>?@ACEGHIJJJJJJJIHHGGFEEDDDDEEFGHHHHHGGGHMRTTRMMMMMMN_}¦¯®¨—q)($ "'/;GQUVVWWXXXWVSLE>5*  #%&'(+6@HOU[_cgkpsvy|€ƒ…ˆ‹’•˜›¡¦«¯²¶····¶¶¶µµµµ¶¶¶¶¶¶¶¶µµµµµµ´°¥‘bH7/,,1;IU]^^\YTPMKIGEA=:;?K^xžµÃËÍÌÉÅ¿¸­¥ž™”‘‘‘“”–—˜——•’Œ‰…‚~ytlf`YSLHECA@@?????@@ACEFHIKKLLLKKKKJJIHHHGFFFFFFGGHHHHHHHGGHIQVXWVNMLLLLN`¨°®©˜s+-*$ 0@MUYYYXXWVVUSME;0$!$'()*,9CLSY_dimqvz}€„ˆ‹Ž‘”™ ¥©±µ¸ºº¹¸¸·¶µµµµµ¶¶··¸¹¹¸¸·¶µµµµ¶¶µ²¨[B3..1:GT]__^[VROLIHGDA<;;>DQp§¼ÇËÉÇž»·´°­ª§¥¢Ÿš—”Ž‡wnbZSNIEDBAA@@@@?????@ABDEGIJKLMMMMMMLLKKKJIIIHHHHHHHHHHHHHHHHHHHIKVZ\\ZPMLLLLNaª°®©˜u-!$%$"  !,;MSWYYXWVTRME;0% !$)***,1ALU\bjotx}‚†‰•™œ £©­³¸½¿¾¾¼»·µ´´´´µ¶¸º½¿ÂÄÆÇÇÇÆÄÀ¼¸¶µµµ¶¶µ¦ƒ_B2/06AP]`aa^YUQNKHHGEB=<;<=DTi€—¯¹¿ÀÀ½º·³°«§£ž˜ƒxlaTNIFCBAA@@@@@@AAAABBCEFGIJKLMMNOOOOONNMMLLKKKJJJJJIIIIIHHHHHHHHHHHIJMQ\acb`TNLKKKNc„¬±¯©™w/"$$$#!%.5=FOVWVUSNH?4)%&),-+*+/8IS[bhpuy~‚ˆŒ”—œ £¨¬³¸¼¿ÀÀ½º·´³³³´¶¹¼¾ÁÄÈËÍÏÑÒÓÓÒÑÎÊÅÀº¶µ¶¶¶±~\>114FIKLJF@=;94.*-4?LY`gnt{†‹–šŸ£§¬±·½ÁÄÄ¿º³¯®¯±µ¸¼¿ÁÄÇÊÍÑÕ×ØÚÛÛÜÜÜÜÜÛØÕÑǾ¹·¶¶µ«—vH:349LX`efd_YSNKJIHGFEC@=;;;<=@DINTXXVTPJGFEEFGHIKMOQRSTUUUUUUUUUUUUUUUUTTTSSRRQQPPOONNMMMLLLLKKKKKKJJJJIIIIIIJJJKLNRW]bmrttq`TNKJJNg‹°³¯ªšz2&&&%%$$####$%'(+-./02222210.,*'%#"""#%*0;ABA?:4.*(*3@LV`gnu{‚ˆ“˜ž£§«¯¶¼ÂÆÇÆý¶­¬¬®±·½¾ÀÁÂÆÉÍÒÕÙÛÜÜÝÝÝÝÝÝÝÞÝÛØÒÊÁ¹··¶µ¬™eH823?P\cggd^WPLJIHGGGFDA=;;;<<=>?@AAAAAABCEGJMOQSTUUVVVVVVVVVVVVUUUUUUUTTTSRRQPPOONNNMMMMLLLLLLLLLKKKKKKKKKKKKLMNOSX^dirxzzxeWOKIJNh±´°ª›z23322211111112346789:<<<<<;986420.,*'&%%%&''''''(*.=HQY_jqx~ƒ‹‘–›¡§«°´ºÃÈÉÉǾ±ª§¨¬³¸¼¾¿¿ÀÁÄËÑÕØÚÛÛÛÚØÕÕÕÖØÛÝÞßßÛ×ÏƼ···µ±“nO:23>M[dhhfaZPLJHHGGGFEC@?===<<<==>?@ADGIKLMLKIFCBBCDEGJMOQQRRSSSSSSRRRRQQPPPOOONNNNNNNOOPPPPPPPPPPPPPPPOPPPQRSTW\agmqy‚€n]RLIJOj²´°ª›{3<<<<;;;;::;;;<=>?@AABCCCBA@?=<:875310.-+++++,.04:ALSZahry„Š’˜¢¨®³¸¾ÅÉÊÉ嫨§¨­·º¼½¾½½¿ÂÈÏÓÖØÙ×ÔÐËÇÄÂÃÄÆËÑ×ÛÞÞÜØÐÇ»¸·¶µ©mP:26?L\fggeaXRMJHGGGFFEDBA@>====>?ACFIJJIFA=964210//12468>BGJMOPQQQQQQQQPPPPOOOPPQRRSTUVVVWWWWXXWWWWVVVVVVVWXY[_cinsv|ƒ†‡†ubTMIJOl‘³´°ª›{3FFEEEEDDDDDDEEFGGHHIIIIIIHGFECA@?=<:987544457:>BHNV\cjqz€†‹‘™Ÿ¤ª®µ»ÁÆËËÈ¿µ«£¥ª°¶¼½½¼ºº»¿ÄÊÑÓÕÕÓÎÈþº¸¸¹º½ÂÆÌÒØÞßÝÙÑļ¹··³£ŠkM746?M_dffd_YTOKHHGGFFEDCB@?>>?ACEGIJHEA=97554455431/-,,/269=CFJLNOPPPPPPPPQQRSTVXYZ[\]^^^________^^^]]]]]^_acfjoswz†ŠŒ‹}gXNJJPm“´µ°ªš{3OOOOONNNNNNNNNOOOPPPQQPPPONMLKIHGFEDCBA@@@ABDHKPTY_fmsz‡’˜ ¦«±µ½ÃÉÍÍȾ±¥ £ª²¹½½¼º¸··º¿ÆÌÐÒÒÐËý¸´²²´µ·º½ÀÃÈÏÚÞßÞÚÎü¹¸·²¢‰iE935=S^ceec_[VQLJIHGGFFEDBBBBCFHJJJGB=965679;>@BCB>:50,)((*-38=AEHJLMNOPPQRSUWY[^_abcdeeffgggggffffeeedeeefhjmqtx{}‰Ž…n\OJJPn•´µ°©š{2YYXXXXXWWWWWWWWXXXXXXXXWWVUTSRQPONMLLKKKKKLNPSVZ^ckqw|‰Ž”™Ÿ§­²·¼ÆÌÎÎ̼¨ŸŸ«¶¼¾½»·µ´´µ¹ÀÆÌÎÎÍÉÄ»¶²°°±³µ·º½ÀÃÆÈÑÙÞàßØÍû¸¸·±£‰]F713@R^ccb`^\XSPLJIHGGGFFGHIKLLKJG>85445578;?CHLPRPKD;0*'%%&'*-29>BFILNPQRTWY\_bcefghijkllmmmmmmllllkkkllmnpruwz}€ƒ‹‘••uaQKKQo–µµ°ªšz2eeeeeedddddcccccccccbbbaa`_^]\[ZZYXXWWWWXYZ\^beimqw|†Œ“˜£©±¶»ÁÈÏÐÎƶš™›¡°½¾¾¼·²²³³³µºÀÇÊËËÈû²®¬¬®²¶»ÀÃÆÇÇÈÉÌÑØÞàßÙÏÅ»¸¸·³ª‡hN;12;JX`_^^\[YWUSQONNMMMNNNNMKGA943344455559?GNU[\[WQG?81,'&&&'(*-15527>FKKIGFFHKMNNNKHC>82100110/...13457;CNZiqvwumf^VNE@<9766789<9:;<<;:741/////.,+++-03557=FQ]mu{}|ume]ULFB?>=>?@BEGILOTY^bfjmpruxz{}~€€‚‚‚‚‚‚ƒ„†‰‹Ž•šœ ¥ªª¦’tVRXv›·¶±©–o(¡¡¡¡¡¡   ŸŸžœœš™˜—–•”“’ŽŒ‹‹‹‹‹‹‹ŒŽ’”–˜œž¡¤¦ª­°´¸¾ÂÇÎÔÕÑ¿¥ˆ”¥µ¾¾ºµ±¯®¯²¶º»»¹¸·¸¼¿ÁÁ¿µ­©¨®¾ÎÛâåååååååååæååäâààáââáÜÔ˼ººº¸´£zdO<6458;<<;:7542100/.--...-+*))*.13568?IUaqy‚yqi`WNIECBBCDFGIJLORX]aeimpruxz|~€‚‚ƒƒƒ„„„„„……††‡‡‰Š‹Œ’•—› ¢¤¨¬¬ª˜|[UZwœ·¶±©•l&««««ªªªª©©¨§¦¦¥£¢¡ žœš™˜—–•””““’’’““”•–˜šœž¡¤¦©«­±´·º¿ÃÈÎÔÖÓÁ§…¤´½¾ºµ±¯®¯³¹¾ÁÁÀ¼¹¸¸¼¾ÀÀ½²«¨¨²ÆÕàäåååååååååååååäâáââââßÚÑÈÀ»»»º¹²¥”€kRD;6568898641/.,++**++++*))))+/2456:CMYfu…‡†}tkbYPKHFFFGHJKLMORV\aehkpsux{}‚„……†††‡‡‡‡‡ˆ‰ŠŠ‹Ž‘“–™›ž¡¦§©«®®¬ž„`W\y·¶±©“i$ ´´´´´´´³³²±±°¯®¬«©¨§¥£¢¡Ÿžœ››šššššš››ž ¢¤¦¨«®°²´¸º½ÁÄÉÏÔ×ÖÉ©‘…ˆ¡´½¾¼´±¯®¯³ºÁÇÈÈÅ¿¹·¸»¾¿¿º¯©§¨¸ÍÛãåååååååååååååååäãããããáÝ×Ïƽ¼»»»º´©›ˆm[K@9656666420.,*)((())))())*-14567=HS^j{…‹ŠvlbYPLJIIIJKLMNPSV[`dhknsvy{~ƒ„†‡ˆ‰‰ŠŠŠŠŠŠ‹ŒŒŽ‘“•–˜œŸ¡¤§«­®¯°°¯£Œf[_{ž·¶±¨’e! ¾¾¾¾¾½½½¼¼»º¹¸·µ´²±¯­«©¨¦¤£¢¡¡      ¡¢£¥§ª¬®°³µ·¹»½ÀÃÇÉÐÖØ×Õ®Žƒ‡•¸½¾¼¶°®­®±»ÄËÏÐÏÉÁ¹··»½¾½¸­§§©¿ÔßäååååååååååååååååäääããâàÛÕÌÀ½»»»¼»·¯£ŒyfUF;533444320-+*)(((((())+-035678BNYdp‚’’ƒwlaXPMLKKLLMMNPSW[`ehkorvy|„†‡‰Š‹ŒŒŽŽ‘‘’“”–—™› £¦©¬°²²²²²±¨’l^c~ ¸¶±§a ÊÊÊÊÊÊÊÊÉÉÈÇÆÄÃÁ¿½¼º¸¶´³±°¯®­¬¬««««¬­®¯±³µ·¹º½¾ÀÁÃÅÈËÎÒÙÙØй…ˆš·¿¾ºµ¯¬¬¯µ¾ÊÐÔ××Ö͹¶·¹»¼¼µ«¦¦ªÇÙâåååååååååååååååååååäääãáßÛÕÉÁ½¼¼¼¼¼»·¬ž~lWK@955443320/.,+++++-.0235679=MYcmz™œš“ƒuh]UOMLLMMNNPRW[_bfjmptw|„†‰ŠŒŽ‘’“”•–—™š›œŸ ¡£¤§©«­°µ¶¶¶µ´³­šudh‚¢¸µ±¦Œ[ ÔÔÔÔÔÔÔÔÓÓÒÑÏÎÍÊÈÆÄ¿¼º¸¶´³²±±±°°°±±²³µ¶¹»½¾ÀÂÄÆÇÉÌÏÑÔ×ÚÚѽ•€†™¯½¾»µ°««¯¶¾ÇÐÔ×ØÙ×Îú¶¶¸º»º´©¥¦«ËÜãååååååååååååååååååååååãâàÝÙÏÇÁ½¼¼¼½½¼¸°¦š‹vhZND;865432210////001245668>GWajv…œ¢£ž“pdZSNMMMNOPSUX]`cfjnqux|€ƒ†ˆŠŒŽ‘’“”•—˜š›œžŸ ¢£¤¥§¨©ª¬®¯°²¶¸¸¸·¶µ¯Ÿ{im†¤¸µ°¤‰VÝÝÝÞÞÞÞÞÝÝÜÚÙ×ÖÓÑÏÍËÈÅÃÀ¾»º¸··¶¶¶¶¶·¹º¼¾ÁÃÅÇÈÊÌÍÏÐÓÕ×ØÚÛÖÀ¢„‚–«»¿¼¶°«©­µ¾ÇÎÔ×ØÙÙØÏ嶶¸¹º¹³¨¤¥¬ÎÝäååååååååååååååååååååååäâàßÜÕÍÆÀ½¼¼½¾¾¾»¶®¤“…wi\MF@;854332222223345679>GSait‚”¨«¨Ÿyj_VQNNNOQSVX[^behknswz~…‡ŠŒŽ‘’”•—˜™›Ÿ ¢£¥¦¨©ª«¬­®¯°±²³´µ¸¹ºº¹·¶²¢nr‰¦¸µ°£…QççççèèèèççæåãáßÜÚ×ÕÒÏÍËÈÆÃÁÀ¾½½¼¼¼½¿ÀÂÅÇÊÌÍÏÐÒÓÔÕÖØÙÚÛÛÙÉ©Šª¹¾½¸°«¨ª³½ÆÍÒÖØÙÚÚØÐÅ»¶µ·¸¸¸²¨£¥¬ÐÞäåååååååååååååååååææææåäâáßÞÙÓÌÅ¿¼¼½½¾ÀÀ¾¼·« “†xg[QIB<97544434445667:@IS^ir€‘¥³²ªŠrdYSONOQSUY\_adgjmpty|€ƒ†‰ŒŽ‘”•—˜šœž ¢¤¦¨©«¬®¯¯°±²³³´µ¶¶···¹º»»º¹¸´¦‡sw¨·µ°¡KðñññòòñññññðïíëçãßÛ×ÔÑÏÎÌÊÈÇÆÅÄÄÄÅÅÇÉËÍÏÑÒÓÔÕÖÖ×ØÙÚÛÛÜÛÕ­Ž‚ªº¿½º³ª§¨­½ÄËÐÔØÙÚÚÚØÑÆ»µµ¶···²§£¤«ÐÞäåååååååååååååååååæææææåãáàßÝØÑÊþ¼¼¼½¿ÁÂÂÁ¼µ«¡”ƒvj_UJD?;86656677789BMWahr£¶»¶©—i]UPOPRUX[_bdfilosvz‚†‰‹Ž’”–˜š› £¥¨ª¬®°±²³´µ¶¶··¸¸¸¹¹¹ººº»»¼¼»º¹µ©y|‘ª·µ°Ÿ}FüûùöôñðïïðññòóóòñðíéâÝØÔÒÏÎÍÌÌËËËÌÌÎÐÒÔÖ××ØØÙÙÚÛÜÝÝÝÝÛÖ¢…}ˆ¦À¿½¹µ¦¤¦¬¹ÃÉÏÔØÚÛÛÛÛÙÑǽ¶µµ¶¶¶²¨££¨ÎÞäååäåååååååååååååææææææåãâàßÞÜØÒÊ¿½¼¼½¿ÁÃÅÅÿ¹±£˜Œ€uh_WQKEB@>==>AFNZagnv‡™¬»ÄÀ±†p[TRQRW[_bdgiknqux|€ƒ‡Š’”–˜š ¢¥¨«®°²´¶·¹ºº»»»»»»»»»»»»»»»¼¼¼¼½¼»º·¬“ƒ–¬·´¯›v> ´µ¶¹¾ÂÇÈÈÆÄÆÉÍÓÜãéìëéæâÝÙÕÒÑÐÏÏÏÏÐÑÕ×ØØØ×××××ÙÚÛÛØËÀ²¡||¥ºÀ½ºµ­¢¢¨±¼ÆÍÓ×ÚÛÛÛÛÛÙÓÉ¿¸´µµµµ²©£¡¥ÈÜãääääåååååååååååæææææææåãâàßÞÞÛÖÐÇ¿½¼¼¾¿ÂÄÆÇÆþ´ª •‹}skc\UQNLLNQUZ`fkr}Šž¯½ÆÈ»¥ŒucVTSUY^bdgilnqtw|€ƒ‡ŠŽ“•—šŸ¢¤¨«®±³¶¸º»¼¼½½½½½½½½½¼¼¼¼¼¼¼¼¼¼¼½½½½¼»¸®–„ˆš¯·´®—p8 ”¢±½ÅÊÎÏÏÍÌÌÌÌÌÐÖÜâèëêèäàÛØÕÔÓÒÓÔÖØÛÚÙÔÊÅÆÉËËÆ»¯ ‘„€}ysyŒ¤¸Á¾º¶°¤Ÿ¢ª´¾ÊÑÖÙÛÛÛÛÛÛÚÔ̺µ´´µ´²ª£ ¢ÁØâäääääååååæææææææææææææåãâàßßÞÝÚÔËÅÁ¾½¼½¾ÀÂÆÈÉÉÆÀ¹°§†~vogca__`cfilrz…’ ³ÀÉËÆ­’zgZUVX\aehjlnrux|„ˆ‹Ž‘”—™›ž¡¤§ª­±´·¹»½½¾¿¿ÀÀÀÀÀ¿¿¿¿¿¾¾¾¾¾½½½½½½½½½½¼¼¹°™‰Œž±·´­“i1 ˜²ÈØàââââââáÞÙÓÏÎÑÖßèêêèæáÞÛØ××ØÚÜÞÙͶ¥š›œ™Œ{iVGGP^lw¨¹ÂÁº¸²©£¬·ÁÎÕØÚÛÛÛÛÛÛÛÖÏŽ¶´´´´²«¤  ¸ÓàäääääääååæææææææææææææäãáàßßßÞÜ×ÏÈÃÀ¾½¼½¾ÁÅÈËÌÌÈüµ¬ —ˆzvtrqqrsvyƒœª¶ÅÌÎɼ—|i\WX[_dhlnpruy}€„ˆ“•˜› £¦ª­±´·º¼¾ÀÁÁÂÂÂÂÃÃÃÃÃÂÂÂÂÂÁÁÀÀÀÀ¿¿¿¿¿¾¾¾¾½¼º±œ‘¢³·´«b+ºÒÝâããââááááááàÙÒÏÏÒáçêêêæäáÞÜÝßààÞÊ mbSH>2$'6Pcr€±¾ÃÁ½¸µ¬¡™š¢­¸ÄÒ×ÙÚÚÛÛÛÛÛÛÙÒÊÀ¸µ´³³²¬¥ ž®ÍÞääääããääååæææææææææææåäâáàßßßßÝÚÑËÆ¿½½½¾ÀÅÈËÍÎÍÉľ¸®¦Ÿ˜‘‹†ƒ}{{~„Ÿ«µ¾ÇÐÒÍÀ¥{g\XX]bgkmprux|…‰‘•—šœŸ£¦©­°µ¸»¾ÀÂÃÃÄÄÅÆÆÇÇÇÇÇÇÇÇÇÇÆÆÅÅÄÄÄÃÃÂÁÁÀÀ¿¿¾½½»²Ÿ‘–¥´·³ªŠ[%ÅØàââàßßßààààááàÚÔÏÏÓÜäéêéèåããææÚ¸s;)  1Iav‡˜¦¹ÄÄÁ½¸¶®¢˜–˜ ¬ºÉÖØÙÙÙÚÛÛÛÜÜÛ×ÐǼ·´³³²®§¡ž¢¾ÔâääãããããääååååææææåååäâáàààßßßÞÚÒËÆ¿½½½¾ÁÆÉÌÏÑÑÏÌÇÀ·°©£•‘’™¢«´¼ÂÈÎÓÓ̶—u_\\^ckortvz}…Š“—š £¦©­²µ¹¼¿ÂÄÅÆÇÈÈÉÊËÌÌÌÍÍÍÎÎÎÎÎÎÍÍÌÌËÊÊÉÈÈÇÆÅÄÃÂÁÀ¾½»³¡—œª¶·³¦‚PÍÛáâáßßßßàààààááÞØÒÏÓÛãèêêéèçç⽊W/  2Sgx…˜¢¯ºÂŽ¹·µ§œ•”–ž¬¼ÍØØØØØÙÛÛÛÜÜÜÚÖÎÁº¶³³±¯©£žŸ±ÈÜãäããããããããääääääääããâááàààààßÜØÏÉÄÁ¾½¾¿ÂÅÊÎÑÓÔÔÒÏÌƾ¸²­¨¤££¤§¬±·¼ÀÇÌÑÓÔÇ«Žte^_bglrtwz}ƒ‡Œ”š¡¤¨­°´¸»¿ÁÄÅÇÈÉÊËËÌÍÍÍÎÎÎÏÏÏÏÏÐÐÐÐÐÐÏÏÏÏÎÍÍÌËÊÉÈÇÅÄÃÁ¿¾»´¢š ¬··²¢{HÏÜáâáÞÞßàáààààááßÙÓÑÓÛãéêêêéæÞ«uF"'A\x†‘™Ÿ«µ¾ÄÅþº¸·° —““•¬¿ÑÙØ×ÕÕØÚÛÜÜÜÝÜÙÔÈ¿¹´³±°¬¦Ÿ¦»ÒáäããããââââãããããããâââááàààààßÝÙÓËÅ¿¿ÀÂÅÈÌÐÒÔÖÖÕÓÑÎÊÅÀ¼¸µ´³´¶¸½ÀÃÇËÏÒÓΡ†reachlquy|€„ˆ”˜œ ¥ª®²¶º¾ÀÃÅÇÈÉÊËÌÌÌÍÍÎÎÎÏÏÏÏÏÏÐÐÐÐÐÑÑÑÑÑÑÑÑÑÐÐÏÎÍÌÌÊÈÇÅ¿¾¼´¤ž¤¯··±žs@ÎÜáááÞÝÞàáààààáàÞÙÔÒÖÞåéëêéãÒ´_0 -Kh~—Ÿ¦¯»ÂÆÆÄÁ»¹¸·ª›”““”œ­ÂÕØ×ÔÓÓ×ÙÛÛÜÜÝÝÜÙÏŽ·³±°­©¡Ÿ­ÃÚâããããââââââââââáááááàààààßÝÙÓÍÅÁ¿¾¿ÃÇÊÎÑÔÕÖ×ÖÕÓÑÎÌÉÆÄÂÁÀÀÁÂÄÇÉËÎÑÓÐÇ·Ÿyjddflrvz}‚†‹‘–¡¦ª®³·»¿ÂÆÈÉÊËËËËÌÌÌÌÌÌÌÌÌÍÍÍÎÎÏÏÏÐÐÐÐÑÑÑÑÒÒÒÒÒÒÒÑÑÐÏÎÍËÉÇÄÀ¿¼´¥¡¨±¸¶°˜j7ÍÛáááÞÝÝÞàáááááÞÚ×ÕÔÛäéëëêæÏ¡X ,Qn‚¦®·¿ÆÇÇż¹¸¸·¢—“““”œ®ÅÖØÕÒÏÐÕØÙÛÜÜÝÝÝÝ×Íû´±°®«¥œ¡°ËàâãããââââââáááááááááàààààÞØÑÊľ¼¼¾ÀÅÈÌÏÒÔÕÖÖÕÔÒÐÍËÉÈÇÆÅÅÆÇÉËÎÐÒÓÔÐÁ¦ˆoffhlrwz}€…Œ’˜ž£ª°µ»¿ÄÇÈÉÊÊËËÌÌÌËËÊÊÉÉÉÈÈÇÇÇÈÉÊËÌÍÎÏÏÐÐÐÑÑÑÒÒÒÒÓÓÓÓÓÒÑÑÏÎÌÉÆÁÀ¼´¦¤¬´¸¶¯‘a/ ÆØàáâÞÝÝÝÝÝÝÝÜÛÙÙÙÜáèêêêèئj4'[u‰˜¦´»ÁÅÇÈÇÅÁ¿º¹¹¸´›•“““”›°ÈØØÒÍÊËÐÓÖØÚÛÜÝÝÞÜ×ÏÅ»³±¯­«¡œ «ÍÛáããââââââáááááááàààßÞÜØÏȾ»ºº»½¿ÃÅÇÉÊÌÌÌÌÌËËÊÊÊÉÉÉÉÊÌÎÏÐÐÑÑÏɺ•}oihjoty}„‰–¥«±¶¼ÂÅÇÈÉÉÊÊÊÉÇÆÄÂÀ¼¸µ±®«ª©¨¨¨©«­°´¸»¿ÃÈÊÍÎÐÑÑÑÒÒÒÒÓÔÔÔÔÔÓÓÒÐÏÌÈÂÀ¼´¨§°¶¸¶«†T$½ÓÝàâàßÞÝÝÝÝÝÝÝÝßâäæéèã׿P- $Iu‹«¶¿ÂÅÇÈÇÅÃÁ¾ººº·°˜–••”•œ²ËØ×ÐÊÆÆÊÎÑÓÖØÚÜÜÝÝÛÖÏĸ³°®¬¦  ²É×ßâââáááááááàààßßÞÛØÔÐÊÄÀ½»ººº¼½¿ÁÃÄÆÇÈÉÉÊÊÊÊËËËÌÍÎÎÏÏÏÏÏÎÈ»«™ˆxropty~‚†‹’˜Ÿ¦®·¼¿ÂÄÇÈÈÇÆÄÀ¼¸³¬§¢žš—•“‘Œ‹‹‹Ž’•šž£©¯¸½ÃÇËÎÐÑÒÒÒÒÓÓÔÕÕÔÔÔÓÒÐÎÉÃÁ»³©ª³·¸µ¨|I¯Ê×ÝáààßßÞÞÞßßàáâäåäÞ͵•o8@h ®¹ÀÄÆÇÈÇÆÄÂÀ¾º»»·­˜˜˜—••´ÍØÖÍÆÂÀÃÇÊÍÐÔ×ÙÚÜÝÜÚÖÎÁ¹´°­ª¤Ÿœ›¢²ÄÓÝááááààßßÞÝÜÛÚØÖÒÏËÇÿ½¼»º»¼½¿ÀÃÄÆÇÈÊÊËÌÍÎÎÎÏÏÐÐÐÐÏÍÊŽ´¤—Š~uqsux}„Š–§­³¸½ÂÄÅÆÅÁ¾¹´¯¨£žš•Œ‰†„‚€€~}}}}}~ƒ†ŠŽ”š¤¬´¼ÂÉÌÏÑÒÒÒÓÓÔÕÕÕÕÕÔÓÒÏÊÃÁ»³«­µ¸¸´£q?¼ÌÔÜÞßßßßßßàààßÝÙÒÇ°‘lE" 6_ƒ¡±»ÂÅÆÇÈÇÇÅÃÂÁ¾¼¼¼·ªš››š–•ž·ÏØÕËþº»¿ÁÄÈÌÑÔ×ÙÜÜÜÛ×̺´¯¬¨£ž›™ ­¾ÏÜÞßàßÞÝÜÛÚØÖÔÒÏËÈÅÃÁ¿¿¾¾¿ÀÁÃÅÆÉÊËÍÎÏÏÐÐÑÑÒÒÑÑÏÎËÈļµ«Ÿ‘zvtux|†‹”š¢ª²»¿ÃÄÅÃÁ¾ºµ­¦Ÿ˜‘Š…‚}|{{zzyyyyyyyyyxwwwwxz|‚‡‘š£­¶ÀÆËÎÑÑÒÒÓÔÕÕÖÖÖÕÔÓÐÊÄÁº²­¯·¹·³›f5Š§¹ÅÑ×ÚÜÜÝÝÝÝÜÚÔÊ·{H* (S}š³¾ÃÅÅÇÇÇÇÆÅÄÿ½¾½·¨žŸ—– ¹Ñ×ÓÉÀº´³µ¶¹½ÂÈÌÐÔÙÚÜÜÛ×ÎÄ»³®¬¨£œ™˜š¢³Î×ÝàßßÝÜÛÙÖÔÒÐÎÊÈÆÄÃÃÃÅÇÉÍÏÑÓÔÕÖÖÖÖÕÕÕÔÓÒÒÑÏÍÉú°£’‡zwuuvx|…Œ”¥°·½ÁÃÅÅÅÄÁ¸®£˜Ž…€~|{zzzyyyzzz{{{{{{{zzyyxwvvuuuvxz€ˆ‘œ¦´½ÄÊÎÑÑÒÓÔÕÕÖÖÖÖÕÔÑËÅÁº²®³¹¹¶±’Y+ rƒš¦­±´´²¬¥š‹y\F2" Nz›°ÁÃÄÅÅÇÇÇÇÆÆÆÅÃÀ¿À¿¸©£¤¤ —–¤¼Ò×Ñƽ¶­©§¦§ª¯µ»ÁÇÏÓ×ÚÛÛØÓËÁµ°­ª§žš—––ž®¿ÎÙÜÝÝÜÛÚØ×ÖÕÔÓÓÔÕÖÖ××ØØØ×××ÖÕÕÔÒÐÍÊÆÁ¹±©¡™‡‚}||}~€…Š•šŸ¥«²¹¿ÂÅÅļ±¤—‹}{zyyyyyz|~€‚„ˆŠ’””””’‹‡„|zxvtssssuy‡‘¡¬·ÀÈÍÏÑÒÓÔÕÖÖ×ÖÖÕÒËÅÁ¹²°¶º¹µ®‚Hfnsw{}zxsmd^VMC6," 0iªºÃÃÄÄÅÇÇÇÇÇÈÈÆÄÁÁÂÀº¬¨¨§¡––¦¿ÓÖÐż´ª£Ÿœ›œž£©¯¶ÀÇÍÓ×ÚÙ×ÓÎú³®«¦¡™––› §³ÂËÒÖ×ØØ××ÖÖÕÕÕÕÕÕÕÔÔÒÐÍÊÆÀ»·²­§£žš–’Œ‰†ƒ‚€€€‚„ˆŒ’™¡©±»¿ÃÅƺ¯¤™Žˆƒ|zyyz{~†‹˜¢§«¯²³´µ¶¶µ´³°­©¤Ÿ—‘Šƒ}xurqqqsw|…“Ÿ«¶ÀÉÌÏÐÒÔÕÖ×××ÖÕÒËÆ¿¸²²¹º¸³ªs;^aba_\XTPKEA=83/*#  L‚¢´ÀÃÃÃÄÅÇÇÇÇÈÉÉÇÅÂÃý±¬¬©¡––©ÁÓÖÐÄ»²¨Ÿš”‘“—£®µ¾ÆÍÕ×Ø×ÕÎƾ¶°«¨¤Ÿ›—•”•š¥«²·»ÁÃÅÆÇÈÇÇÆÄÂÀ¾»¸´°¬©¥ ™–’ŽŒ‰‡…„ƒ‚‚‚ƒ„…‡‰Ž”š¡§°¶»ÀÄÅÁ»³«¡˜‡€{yxxy|€„Š˜Ÿ¥«°¶º¾ÁÄÆÇÈÈÉÉÉÈÈÇÅÃÀ¼¸±©¡˜Žƒ|vrpooqu{‡“Ÿ¬¸ÃÈÌÏÑÓÕÖ××××ÕÑËƾ·³´»º·°£c/YYYWSKGDBA@@?>=:6/'h—¯»ÃÃÂÂÃÆÈÇÇÈÉËÊÈÅÄÅÅÄ¿µ°¯© •–¬ÃÔÖÐĺ²¨—Š‡„…ˆ‹™¡©³½ÉÐÔÖÖÕÑËú²®ª§£™–“‘‘’”—œ£§ª¬­®®­«©¦£ œ˜“‹‰‡†……„„„„„……†‡ˆ‰”™Ÿ§®¶½ÄÉÉÇÿµªž‘…|xvvvxz}†Ž•ž¦®¸¿ÄÇÊÍÎÏÏÐÐÑÑÑÑÑÑÑÑÑÐÏÎÌÊÅ¿¸¯¤•‰wrnmnps}‡”¡®¼ÄÉÍÏÒÔÖ××××ÕÑËż¶´¶¼º¶­šR$ UVVUSJFCAAEIMPRNH@6)  $¤¶¾ÄÂÀÁÃÆÈÇÇÈÊÌËÈÆÆÇÇÅÁ¹³°¨ž•–®ÅÔÕÐÄ»²¨–Ž‡ƒ~||}„Š’›¥¶ÂÌÔÖ×ÖÕÒ̾µ¯«¨¦£ ˜“‘ŽŽŽŽŽŽŽŽŒ‹Š‰ˆˆˆ‡‡‡††††††‡‡ˆ‰Š“—›£«³»ÃËÏÒÔÓɹ©™Œ€{wtssstuw}…›§¶¿ÅÉÌÎÏÐÐÑÑÑÑÑÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÐÎÉú«Žwolllnt~‰–¤µ¾ÆÊÎÑÔÖ××××ÕÐËû¶¶¸½¹´¨ŽBSTUUTMIGGJ^fjji_VJ<- 7–¯»ÀÄÁ¿ÀÂÆÆÆÇÉÌÍËÉÉÉÊÊÇ»²­¤›”–°ÆÔÕÑȾ´¬ ˜‰ƒ~zxwvwxz~ƒ›ª¸ÇÒÕÖÖÖÔÎƼ³¬©¦¥£ žœ™—•“’‘ŽŽŒŒŒŒŒŒŒŒŽ‘“•˜š¡§¯¶½ÃÉÐÓÕÖÕÇ´¢’ˆ|yvtrqqqru|†’¡´¾ÅÊÍÏÏÐÐÑÑÑÑÑÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÓÓÓÓÓÓÓÒÒÐ̶§–†unkjjmt~Š—ª·ÀÇÌÐÓÕ×ØØ×ÔÏÊÀ¹··»½¸±Ÿy-SUVWVRONQ[ptutocWH9( @±»ÀÄÁ¿¿ÀÃÄÅÈËÎÎÌËËÌÌÊÆ¿¶¬§ ™”–¯ÅÓÕÒËļ³§ž–‰‚~{ywvvvwy}‚Š•£·ÃÍÓÖÖÔÑÍÈ¿¸±¬¨¤¢ Ÿ›™˜—–••••””””””••–—™œŸ£¨­´¹¾ÃÇËÍÏÐμ«Ÿ˜•‹…€{wspoooqw€‹©³»ÁÈËÍÏÐÐÑÑÑÒÒÓÓÓÔÔÔÕÕÕÕÕÕÕÔÔÔÔÓÓÓÓÓÓÓÓÓÒÒÐËö§•~slihjow‚Ž£±¼ÄÊÏÓÕ×ØØ×ÓÎɾ¹·¹½¼¶¬”e SVYZZWUU[k|~~zrcSB2# Dž±»ÀÄÂÀ¿¿ÁÄÆÊÎÏÏÍÍÎÎÌÇ¿µª¤¡œ—“•­ÂÑÓÒÎÉý²ª¢›”‹†‚~{xvuuuuwz‡–£±¾ÉÑÔÕÕÓÍÈþ¹²®«©¦¤¢¡ ŸžœžŸ¡¢¦©¬¯²·º¾ÁÅÉÌÍÊÁ­§¥¤£™Ž‡~{xtqnmklpvƒŽš¤¯¼ÃÉÌÎÐÐÑÑÒÒÓÓÔÕÕÖÖÖ×××××ØØØ××××ÖÖÕÕÔÔÔÓÓÓÓÓÓÒÐ˵¤‰yoighlr{‡›«¸ÂÉÏÒÕ×ØØ×ÒÍǼ¹¸º¾º´¥‡RSY]_`]\^gz„…ƒ|q]J8)Bœ¯¹¿ÄÄÁÀÀÂÅÉÍÐÐÐÐÐÏÎǼ¯£šš›š–’“¨¾ÎÑÑÐÍÊÇ¿¹²«¥š”Ž‰„~{xvutttuv{„Ÿ®¿ÈÎÒÔÕÕÓÐËÅÀ¼¸¶²±¯®­¬««¬¬®°²´·»ÀÄÈÌÏÎËǽº·°¢„}zzz||{yuqmjgglrz…‘¥´¿ÇËÎÏÐÐÑÒÒÓÓÔÕÖÖ×ØØÙÙÙÙÚÚÚÚÚÚÚÙÙÙÙÙØØ×ÖÖÕÔÔÓÓÓÓÒÒÐËÁ±•sjffinv€•¦µÀÈÎÒÕ×ØÙÖÑËĺ¹¹¼¿¸±œw> T]cffcbiu†‹Š„ykP<, :–«¶½ÅÆÅÃÃÄÊÎÑÒÒÒÒÑÏ˹¥•Š„–—•‘‘¢¸ËÏÐÐÏÎÎËÉÅÀº°¨ ™’Š„€|xutsssstv{„˜©¸ÅÎÔÖÖÖÖÖÕÓÐÌÈÆÄÃÃÅÆÈÉÊÍÏÑÒÓÔÕÕÔÔÐƵ ŠunlowˆŠŠ…~vmd`]^_cj•©ºÅËÍÏÏÐÐÑÑÒÓÔÕÖ×ØÙÙÙÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÙÙØ×ÖÕÔÓÓÓÓÒÒÏɽ¢‹ylfdgkqz£³¿ÇÎÓÖ×ØÙÕÏÉÁº¹»½¿¶­‘e+Ucjmmlnx…Š€oW7* +… ­µÀÇÈÉÊÌÑÒÓÓÓÓÑÍ°xlgg€Ž””Ž–¬ÁÉÌÎÏÏÏÏÏÏÏÎÊž·¯¥–ˆ‚}ywtsrrrruxˆ•§´ÀÉÐÕØÚÜÝÝÜÛÚÙ×××××ÖÕÔÑÍÁ¯œ‰zjilt”••‘‰|oc\ZYYZ]fv‹¢·ÅÊÍÎÏÐÐÑÑÒÓÕÖ×ØÙÙÙÚÚÚÚÚÚÚÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÚÚÚÚÙØ×ÖÔÔÓÓÒÒÒÏÈ°—‚qfcehlt‹ ±¾ÇÏÓÖØÙØÓÍžºº½¾½²£|IVfnqrsyƒ“‘†t^H5' r”£©±ÄÊÌÎÑÓÔÔÔÓÑÊ»¦Œtib__n„Ž‘ŒŽŸ³¿ÄÉÌÍÍÏÏÐÐÐÏÍÊÆÀ·°©¡š‘Œ‡‚zwusrrsuw{‡Ž–Ÿ©°·¼ÁÄÇÈÊÊÉÆÀ¸® ˜‰‚}|ƒˆŽ‘’••ƒxmea]ZYY^frƒž¬¸ÁÈÌÎÏÐÐÑÒÔÕÖ×ØØÙÙÚÚÚÚÚÛÛÛÜÝÞÞßßààààààßÞÝÝÜÜÛÛÛÛÛÚÚÚÙ×ÖÕÔÓÒÒÒÐ͹ ‰vhcefjq‰Ÿ±¿ÈÐÔ×ØÙ×ÑÊüº»¾¾¹®–h5Wiruvzƒ“–~jWG9, Y†˜œ ´ÄËÏÒÓÔÔÓÑƶ Šyjc_\[bu…Š‰“¢°¶½ÂÅÆÊÌÎÏÐÐÑÐÎËÄ¿¸°©Ÿ™“Ž‹†‚~{xutrrqrtw{€†‹’•—™šš˜•’Š„€€…‹’˜š”‹}skb[WWX[`kzŠ›«¾ÆÊÍÎÏÐÑÒÓÕÖ×ØØÙÙÚÚÚÚÚÛÜÜÝÞßàáããäååæååååäãâáàßÞÝÜÛÛÛÛÛÚÙØÖÔÓÒÒÒÑÏÀ¨zjcdehn‰ ³ÀÉÑÕ×ØØÕÎÇÀ»»½¿½µ©…S$Xmvyz‚”——ŠvfZSI<-;sŒ’‘´ÂÊÏÑÑÐÍDz›‡xrlheb]]hzŠ‰…‡œ£ª°´¶½ÁÄÈËÍÏÑÑÐÍÉľ¶­¦Ÿ™•‘ŽŠ‡ƒ~{xvusrrrrrrsssrrrqpoopqs{„Œ”™Ÿ¡££¢œ•Œr`ZWVVX[`iuŒ ±ÀÈÍÎÏÐÐÑÒÔÕÖØÙÙÙÙÚÚÚÚÛÛÜÝÞßáâãåæçèèéééééééèççæäãáàÞÝÜÛÛÛÛÚÙ×ÕÔÓÒÒÒÑů–kccdgmŠ¢´ÂËÒÖØØØÓËľ»»¾¿»± p>Zpy|~Š”™™–‚qjijiYL<'\‹‰„•¬ÀÆÌÌÈÀ²”‚zvtuyyrd]_m~‹Œ„€€…Œ”™š §®µ½ÄÊÎÑÒÓÒÐËÄ»²©¡›—•“’Š‡„‚~{xvtsrrqqrsuy~‡‘”—›Ÿ¡£¥¦¦¥£Ÿ|l`YVUUVW_ft…š¸ÃÊÍÎÏÏÐÑÒÕ×ØÙÙÙÙÚÚÚÚÚÛÜÝÞßàáâäåææçèééêêêêêêéééèèçæåäâàÝÜÜÛÛÛÚÙ×ÔÓÒÒÒÑÉ´œƒmccdgm¥·ÄÌÔ×ØØØÐÈÁ½»¼À¾¸­’Y* ]t~€ƒ‘™œš’|xy|}wng\I1 &Z…‹wu|‰˜Ÿ¢Ÿ—ˆ~|{}†“–˜–rdbl„Œ‰‚zywvvvuuwz†•¤´ÂÌÓÖØØÕÐÊÁ·¬¡œ˜–•”“’‘‘‘“•—™››Ÿ£§ª­®®ª¥›Ž}ia[XVUWY^gv‹¡¶ÅÌÎÏÏÐÑÒÔÖØÙÙÙÙÙÚÚÚÚÛÜÝÞßààáââãäåæçèèéééééèèèèèèèèççæååäáßÝÜÜÛÛÚØÖÓÒÒÒÒ̺¡‡pdccgp”«»ÇÏÕØÙØÖËÿ¼¼¿À¹¯¦s:]vƒ…”›™Ž€„ˆ‰ƒ{si[H4 3a‡‚uqu~ŠŒŠ†~~‚‰–˜šššŽzjep‰Š„|xurqppnnnnorz†•¦¼ÈÏÔÖÕÓÏɳ«¤žš˜–•””““’’’’““”•–˜šŸ£¦©¬®°±±¯«¡•‰|pc]YWVX]dn|˜­¼ÆÌÎÏÐÐÒÔÖ×ØÙÙÙÙÙÚÚÚÛÜÝÞÞßßààáááâãäååææææååååääåååææææææåäãáßÝÜÜÛÛÙÖÔÓÒÒÒͼ¤‰qdcchu›°¿ÊÑÖØØ×ÒÇÁ½¼½ÀÀ¶¨™U& ]xƒ…‡•œž™…ˆŒ‡€viUF4 8i†}snpx~€€€„‰”–˜šœ›Ž{jez†‡yurponljigfdeipz‘§¸ÆÏÕÖÕÓÏż³«¥ œš™˜—————˜™š›ž £¥¨«®±³´µ³°¬¥—‹sh^ZXXY_gt„˜´ÂÉÍÎÏÐÒÓÕ×ØÙÙÙÙÙÙÚÚÛÜÜÝÞßßßßßßßßàáâãääääääãããããããããääåååååääâáßÝÜÜÛÚ×ÔÓÒÒÒν¥Šrecdk{£¶ÃÌÓØØØÕÏÿ½½¾Á¼±Ÿ„:]y„‡‰•œž™‰Ž“•–•‘‹‚u_QC2:u€{rmlu{€‚ƒ‰Ž‘“•—™›žœŽydg|‡ˆ~wtqpnmljhfa^[YXe}•«½ÏÔÕÖÖÑËû²ª¦¤¡ žœœœœž ¢¦¨«­°³´¶··¶³®§ž„xmcZYYZ^iw‰ž´ÇÌÎÏÏÑÒÔÖØÙÙÙÙÙÙÙÚÚÛÜÝÝÞÞÞÞÞÝÝÝÝÞßàââããããããããâââââââââãääååääãâàÞÜÜÛÚ×ÔÓÒÒÒξ¥Šsecen…«»ÇÏÔØØ×ÒÊÀ¾½¾¿Àµ©’j" [y…‰Š•œ™Ž”˜šš™˜”hXK?2 Arƒ€ujks}„‰ŒŽ‘’”–šŸž›Žo]kŒ‰{xurqqppnld_ZUQMUi‚¿ÍÓÕ×ÕÓÏÉÀ¶°«©§¤£¢¡¡¡¢£¥§©«®±³·¹º»º·²¬£™Š}pe^ZZ\`fwŒ¢·ÈÍÎÏÐÑÓÖØÙÙÙÙÙÙÙÙÚÛÛÜÝÝÝÞÝÝÜÛÛÛÜÝÞßáââããããããããããâââââââââããäääãâáßÝÜÜÚ×ÔÓÒÒÒν¥Šsedgt³ÁËÑ×ØØÕÏž½½¿Á¿®JWv…‰‹”œ™’’˜›››šš™˜–eRD=# "Qy…soqv†Š‹‹‹‘—  Ÿœ•c[dw‹‚}zxz}|uj]RJECI[‰§¾ÌÔ×ÕÕÓÏƽ¶°¬©§¥¤£¤¥¦©«°³¶¸º¼¼¼¼»¶°©Ÿ”ƒvkb][]aiv“ª½ÊÎÏÏÑÒÔØØÙÙÙÙÙÙÙÙÚÛÛÜÜÜÜÜÛÚÙÚÚÛÛÜÞßááâââãããããããããããããâââââââããããâáàÞÝÜÚ×ÔÓÒÒÒλ¡‡refm€¢½ÇÏÕØØ×ÐÈÀ½½¾ÀÀ¶¥ˆ^%Tq‚‰Œ“›š”•š››šššš›š’x]G>/ 8^wz{{{|~€€€‚ˆŽ”›¡¡ Ÿœ„f[ar‹‰†‚€‚„……„ƒ~ugQG@>?Sr’±ÊÕÕÕÔÒÎÊüµ°­«©¨¨¨ª¬®³µ¸º¼½½¾½»¶¯§‘rha]]aiwŠ¨»ÇÍÏÐÑÓÕ×ØÙÙÙÙÙÙÙÙÚÛÛÛÜÜÛÚÙÙÙÙÙÚÛÜÞàáââââããããããããããããããããââââââããââáàÞÞÜÚ×ÓÓÒÒÒ̸ž„pfgvŽ¯ÃËÒ×ØØÓÌÄ¿¾¾¿À¿©˜q@Rk~‰Œ“›š•˜›››ššš›žœŠlM<4!*F^mv{€‚ƒƒ„†‹•š ¡¢¡Ÿ–{dW\u„‰‰†……†‡‡ˆˆˆ„|gTE:46Gb…«ÌÒÕÕÔÒÐËÆ¿·³°®¬ª««­°´¸º¼¾¾¿¾¾¼µ®¥šŽ{of`]_gt†œ¸ÆÌÏÐÑÓÕ×ØÙÙÙÙÙÙÙÙÚÚÛÛÛÛÚÙØØØØÙÚÛÝßááââââââââââââããããããããããâââââââââáàßÞÜÙÖÓÓÒÒÑɳšmhkŸ¹ÇÏÕØØÖÏÇÁ¾¾¿À¾¸ …W' Qfy‡“š›—š››š™™šœŸ¡¡™}Y:3*0FWeu}‚‡‹“–™›Ÿ¡¢¢ ž‘x^PYqŠŒ‰‰ˆˆˆˆ‰‹‹‹€jS@3+,:U|´ÇÒÖÖÔÒÐÍÈ¿ºµ²¯­¬­®±¶¹¼¿¿¿¿¿¾¼µ­£˜‹xmd`^do€•¬ÄÌÏÐÑÒÕ×ØÙÙÙÙÙÙÙÙÚÚÚÛÚÚÙØ××××ØÚÛÝßáâââââââââááááâââââãããããããâââââââááßßÞÛØÕÓÒÒÒÑÅ­”~ljs¯ÁËÓ×ØØÓÉÿ¾¾À¿º­—k;P`s„Ž“š›˜›œ›™™™šž¢¥¦¢l9++'H[m|Š—›Ÿ ¢¢¢ xRHOg€ŽŒ‹‰ˆˆŠ‹ŽŽ…nR6)%%,A…±ÊÕ×ÖÓÒÐÎÇÀ»¶²¯®¯°²·»¾¿ÀÀÀ¿¾»´¬¢–ˆujc``izŽ¤ºÍÏÐÑÒÔÖØØÙÙÙÙÙÙÙÙÚÚÚÚÙØ××ÖÖ××ÙÜßáââââââááààààààààáááâââãããããâââáááááàßßÞÛ×ÔÒÒÒÒÑÀ§Žxllƒ¢¼ÆÐÖØØ×ÍÄÀ¾¾ÀÀ¾µ¡‡M!Q[m•›œš››š™™™›¡¨®¯«¡‡U%'0Hj—›Ÿ ¡¢¡ ž–‚MCBPqŽŽŒŠ‹ŒŽ‘‡uU,$ 4gœÅ×ØÖÔÒÑÎÊÄ¿¹´±°±²¸»¾ÀÀÁÀÀ¾»´« “…rhbadu‰ž´ÇÏÐÑÒÓÖØØÙÙÙÙÙÙÙÙÙÚÙÙØ×ÖÖÕÖÖØÛÞáâââââáààßßßßßßßÞÞÞÞÞßßàáâãããããâáááááààßßÜÙÕÓÒÒÒÐ͵Ÿ…qmvŸ¸ÆËÖØØÖÒÄÀ¿¿¿À¾³¤—Y& QYk€–››œ›š™™™›¢©±³±©”n" ;UlŒ•™œž ¡ Ÿœ•qO>;Gs‡ŽŽ’“’Œ€k?)!7b•ÄØØ×ÕÒÏÌÈý·´²²³¸¼¿ÀÁÁÁÀ¾»³ªŸ‘‚ofbcj~“©½ËÐÑÒÓÕ×ØØÙÙÙÙÙÙÙÙÙÙÙØ×ÖÕÕÕÖØÛÞáââââáàßßßßßßßÞÞÝÝÜÜÜÝÝÞßàáâããããâááààààßßÞÛ×ÔÒÒÒÑÎǯ‘|qp’±ÁÊÑ×Ø×ÓÊÁ¿¿¿À¿·ª—4QWj‘—œ›œ›š™™š›¡©³¶´¯ & .D[pŠ‘–šžŸž‹iJ3-Lp…‘‘‘’“•–•‘ˆzQ1 9a˜ÍÕØ×ÔÒÎËÇ»·µµµ¸½¿ÀÁÁÁÀ¾»³©€mecfo‡²ÃÎÑÑÒÔÖØØØØØØÙÙÙÙÙÙÙØ×ÖÕÔÕÕØÛÞàâââáàßÞÞßßßßßÞÝÜÜÜÜÜÜÜÜÝÞßáâãããâááààààßßÞÜÙÕÓÒÒÑÐË¡…wu~«¾ÈÎÕØØÔÍÄ¿¿¿¿À»­ž†[QVj‚’˜œž›œššššš› §²·¶´©1  4Kcr~‡Ž•™›žš„a<"'Moˆ‘“”•–˜™˜•Žƒb=#6b±ËÖÙ×ÔÑÎËÇÀ»¸··¸½¿ÁÁÁÁÀ¾»³©œŽ~ledju¥¹ÈÐÑÒÓÕ×ØØØØØØØÙÙÙÙØØ×ÖÔÔÔÕÖÚÝàáâáàßÞÝÝÞßßßßÞÝÜÜÜÜÜÜÜÜÜÝÝßáâãããâáàààßßßÞÝÚÖÔÒÒÑÑÎǸ}w~•½ÆÍÒ×ØÕÎÆÀ¿¿¿¿¾²¢Žl4RWl„“™žœœ››››››¢­µ¶µ®ŸE:N^lx…Ž•šœœ—~V#"It“•—˜šœ›™”ŒrN, 0‚¶ÐÙØ×ÔÑÍÉÄ¿»ºº»¾¿ÁÁÁÁÀ¾»²¨›Œ|jefn|–¬¿ÌÑÒÓÔÖ×ØØØØØØØØØØØØ×ÖÕÔÔÔÕØÜßáââàßÝÝÜÝÞßààßÝÜÜÜÜÜÜÜÜÜÜÝÞßáâãããâáàßßßÞÞÝÜØÔÒÒÑÑÐÌÀ§}y}³ÇÌÑÖØ×ÐÈÁ¿¿¿¿¾¹¤˜vFSZqˆ“šžœœ›œ›››¢²¶¶²¥V &6H_r‚—›š”|G 6jŽ“—™›œ›™—“~c@  8z¯ÐÙØ×ÕÒÎÉÆ¿¾¾¿ÀÁÁÁÁÀ¾»²§™Šyifisƒž³ÄÎÒÓÓÕÖ×ØØØØØØØØØØØ×ÖÕÔÓÔÕ×ÚÞàááàÞÜÛÛÜÞßàààÞÝÜÜÜÜÜÜÜÜÜÜÝÞàââããâáßßÞÞÞÝÝÜØÔÒÑÑÑÐÍ¿§†}–³ÆÍÓÖ××ÐÆÁÀ¿¿¿½µ§™wET_u‹”›žžœœœžŸœ››ž¬´¶³«b% $Ž”ž§ª–“’‘”™Ÿžœ™–’‚\/ ‘™¡¥Ÿ•“’‘•šž  Ÿš˜’xN#” ž”‘‘‘‘’›žŸŸŸž›™l@”š“‘‘‘›žœ›œ™‹]1””Š‘‘”Ÿ™—–—™›œ›—vD‹‰Š‘‘“™›—••–—˜˜•\/Š†‡Š‘‘‘”š˜–•••••“ŠyA †ƒ†Š‘‘‘”™—–••”“‘Š{^(‚‚†‹‘‘”—––••”’Œ~e@€‚†‹‘’•–—––•”eC€‚†‹‘’•–——–”“sQ.€‚†‹‘’”–—–•”’‡c=€‚†‹‘‘’”–—–”“‘~R,€‚†Œ‘‘‘’”––•”’p@€‚†‹‘‘‘’“••”’‰W' €…‹‘‘‘’“•”’Œ>€…‹‘’’“””“‘†p'€€„Š‘’““”“‘Œ|X€ƒ‰‘’“““‘Ž‡o:‚ˆ’’‘ŽŽ‹vN‚†‹ŽŽŽ‚]. ‚…‰ŒŒ‰l@€€„‡Š‹ŒŒ‹{L#€€„‡ˆ‹Œ‹ˆ^' ‚ƒ„†Š‹Šk ‚ƒ„…ˆ‹Še4 „…†ˆŠ‰~a;‡‡ˆ‰‰}a9‰‰‰‰†^,ˆ†}hBiXC-7)  ƒ‡‹“—›Ÿ£§«¯³·»¿ÃÇËÏÓ×Ûßãçëïó÷ûÿÿÿÿ ÿÿÿÿÿÿ#ÿ'ÿ+ÿ/ÿ3ÿ7ÿ;ÿ?ÿCÿGÿKÿOÿSÿWÿ[ÿ_ÿcÿgÿkÿoÿsÿwÿ{ÿÿƒÿ‡ÿ‹ÿÿ“ÿ—ÿ›ÿŸÿ£ÿ§ÿ«ÿ¯ÿ³ÿ·ÿ»ÿ¿ÿÃÿÇÿËÿÏÿÓÿ×ÿÛÿßÿãÿçÿëÿïÿóÿ÷ÿûÿÿÿÿÿÿûÿ÷ ÿóÿïÿëÿçÿãÿß#ÿÛ'ÿ×+ÿÓ/ÿÏ3ÿË7ÿÇ;ÿÃ?ÿ¿Cÿ»Gÿ·Kÿ³Oÿ¯Sÿ«Wÿ§[ÿ£_ÿŸcÿ›gÿ—kÿ“oÿsÿ‹wÿ‡{ÿƒÿƒÿ{‡ÿw‹ÿsÿo“ÿk—ÿg›ÿcŸÿ_£ÿ[§ÿW«ÿS¯ÿO³ÿK·ÿG»ÿC¿ÿ?Ãÿ;Çÿ7Ëÿ3Ïÿ/Óÿ+×ÿ'Ûÿ#ßÿãÿçÿëÿïÿóÿ ÷ÿûÿÿÿÿûÿ÷ÿóÿïÿëÿçÿãÿßÿÛÿ×ÿÓÿÏÿËÿÇÿÃÿ¿ÿ»ÿ·ÿ³ÿ¯ÿ«ÿ§ÿ£ÿŸÿ›ÿ—ÿ“ÿÿ‹ÿ‡ÿƒÿÿ{ÿwÿsÿoÿkÿgÿcÿ_ÿ[ÿWÿSÿOÿKÿGÿCÿ?ÿ;ÿ7ÿ3ÿ/ÿ+ÿ'ÿ#ÿÿÿÿÿÿ ÿÿÿúöñíéäàÛ×ÓÎÊÅÁ½¸´¯«§¢ž™•‘Œˆƒ,,jd,d.d-dlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/README0000644000000000000000000000235112421456623015507 0ustar This directory contains files that can be used for testing hdf. File types can be determined by their extensions: .hdf - HDF file. Could contain any number of different HDF objects .r24 - HDF file containing one or more 24-bit raster image sets .r8 - HDF file containing one or more 8-bit raster image sets, with color palettes possible also included .sd - HDF file containing one or more scientific data sets .pal - HDF file containing one or more color palettes .raw - non-HDF file containing binary data (image, float data, etc.) .txt - non-HDF file containing ascii data .Z - files compressed with Unix compress. Use uncompress to uncompress them. head.r24 - isosurface rendering of human head palette.raw - contains a raw palette storm110.raw - raw image of data from storm simulation storm120.raw - raw image of data from storm simulation storm130.raw - raw image of data from storm simulation storm140.raw - raw image of data from storm simulation storm110.hdf - hdf image of data from storm simulation storm120.hdf - hdf image of data from storm simulation storm130.hdf - hdf image of data from storm simulation storm140.hdf - hdf image of data from storm simulation libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/head.r240000644000000000000000000077172212421456623016100 0ustar k.Êòèjó²,ó¶2óÊAAAGGG---888333DDDHHHHHHHHHDDD333???AAABBBEEE===...::::::999444777@@@@@@@@@@@@@@@EEE@@@@@@DDD<<<===888777CCC,,,999:::444FFFHHHCCCddd;;;BBB@@@BBBBBB<<<;;;;;;JJJJJJ;;;111***666888777???555;;;555BBBKKKBBB@@@???BBBKKKKKKTTTPPPQQQPPPJJJJJJOOOOOOCCCCCCJJJLLLLLLMMMKKK:::???444555444???111???222:::===KKKHHHIIIBBBFFFCCCSSSPPPRRRMMMQQQQQQOOOIII:::[[[[[[VVVVVVEEEPPPPPPGGGGGGAAA777999@@@888BBB???777<<>>444777BBBOOOPPPJJJJJJSSSRRRRRRQQQYYYXXXXXXXXXXXXVVV@@@BBBBBB>>>HHHCCCMMMEEEKKK<<<,,,BBBEEE@@@???222???CCCFFFHHHBBB///DDDDDD888:::@@@???QQQTTTTTTYYYYYYQQQQQQZZZZZZYYYYYYXXX???PPPNNNNNNEEEEEECCCCCCUUUKKK555666===999<<>>>>>@@@;;;GGGGGGPPP]]]???>>>///III@@@>>>AAANNNGGGIIIRRRRRRPPPOOOJJJJJJRRRRRRQQQQQQTTTSSSOOOOOOOOO===UUUEEEJJJKKKKKKKKK666IIIDDDGGG999<<<444DDDCCC777;;;======BBBBBBFFF666JJJDDDAAA@@@IIIMMMKKKOOOVVVOOORRRRRRLLLLLLLLLLLLYYYTTTTTTQQQQQQJJJIIIKKKQQQTTTRRRRRRLLLOOOBBBBBBEEELLLLLLAAAJJJ;;;;;;AAACCC<<<===DDD===555888DDD777>>>>>>CCCDDD@@@DDDFFFNNNPPPMMMPPPVVVVVVXXXdddffffffQQQXXXYYYWWWWWWUUUUUURRRRRRRRRTTTTTTTTTWWWVVVVVVTTTJJJIIIGGGFFFBBBCCCLLLPPPKKK444GGGKKKAAAFFF@@@:::BBBCCCFFFBBBNNNNNN>>>MMMMMMAAAAAAPPPKKKEEEBBBWWWQQQ\\\IIIIII]]]RRRRRRUUUWWWXXXXXXRRRRRR``````YYYYYYXXXUUUUUUUUUWWWWWWVVVVVVOOOOOOOOOOOOHHHOOOOOOAAAHHHKKKFFF;;;CCCDDD???===EEE??????EEE444IIIJJJGGGGGGCCCLLLKKKPPPGGGHHHQQQQQQXXXFFFFFFRRRRRRNNNNNN^^^aaa``````JJJJJJUUUXXXWWWWWWFFFSSSRRR[[[ZZZZZZ^^^^^^^^^WWWLLLLLLRRRRRRVVVQQQCCCHHHGGGEEEEEEDDD;;;;;;EEE>>>???FFF>>>EEECCCIIIEEE777FFFFFFDDD>>>LLLRRRRRR777TTTTTTCCCLLLOOONNNWWWZZZ___aaaaaaYYYYYY___]]]VVVVVVVVVSSSSSSSSSUUUZZZXXXVVVVVVVVVPPPPPPaaa]]][[[[[[YYYJJJIIIAAAEEEDDDAAAEEEHHHGGG???EEEBBB<<>>@@@IIIKKKBBBGGGUUUOOOOOOTTT@@@LLLCCCBBBHHH???___[[[WWWhhhSSSSSSTTTbbbccc[[[[[[______TTTUUUYYYYYY^^^\\\\\\SSSSSS```]]]^^^WWWVVVLLLMMMYYYYYYSSSdddMMMOOOUUUMMMIIILLLCCCGGGOOO@@@???<<>>???FFF???@@@>>>IIIIIIFFFHHHGGGFFFBBBEEEOOOFFFFFFOOODDDLLLaaaaaa[[[[[[eeebbbbbb^^^^^^______[[[[[[\\\\\\^^^______^^^cccdddbbbaaaOOOPPP]]]ZZZSSSZZZ^^^VVVXXXZZZddddddNNNNNNEEE>>>???PPPCCCGGGEEEBBBHHHJJJEEEGGGEEEBBBIIIDDDLLLLLLKKKHHHSSSSSSJJJFFFIIIQQQQQQ^^^kkk______KKKZZZ[[[bbbbbbYYYYYY___bbb```VVVVVV]]]]]]``````_______________^^^^^^^^^]]]YYYUUUUUU\\\\\\^^^]]]```______\\\HHHfffLLL\\\HHHEEEOOOOOOLLLFFFBBBBBBIIIIIIKKKDDDDDD===HHHLLLFFFHHHGGGLLLNNNQQQPPPLLLJJJRRRSSSSSSQQQaaakkkdddGGGFFFUUUXXX___ccccccUUU\\\aaahhhggg___aaa^^^^^^^^^ffffff\\\\\\______cccbbbbbbbbbccccccddddddccc[[[\\\UUUWWWWWWUUUOOOMMMWWWYYYZZZVVVKKKKKKDDDDDD<<>>>>>:::’’’’’’««««««ÃÃË‹‹„„„„„„~~~~~~WWWWWWZZZZZZddd¦¦¦®®®vvv³³³ŸŸŸšššYYYpppyyy°°°mmm¸¸¸¸¸¸mmmƒƒƒggglll]]]eeebbbcccfffZZZccckkk^^^YYY[[[XXX\\\UUUXXXbbbYYY^^^ccc^^^eeeaaaaaaXXXfffcccaaa___aaapppnnn™™™```»»»nnn{{{}}}‚‚‚õõõÎÎÎmmmuuupppggg¯¯¯¯¯¯–––©©©©©©©©©```rrr}}}rrr———˜˜˜£££ÃÃÃcccvvvbbb```yyyiiiÅÅňˆˆ\\\rrreeeXXX|||¦¦¦[[[ccciiiiiivvvYYYtttxxx{{{LLLWWWaaa­­­ÜÜÜ{{{ìììÃÃÃÉÉÉÁÁÁ–––£££££££££¥¥¥´´´´´´ÿÿÿÿÿÿÞÞÞƒƒƒ^^^\\\ccc^^^eeeÜÜÜeeeyyykkkzzznnnnnnpppppp```BBBVVV^^^nnn«««¼¼¼±±±©©©«««ŽŽŽ’’’§§§«««­­­‹‹‹„„„~~~WWWWWW[[[ŒŒŒŒŒŒžžž©©©‰‰‰³³³ŸŸŸššš???YYYyyy˜˜˜°°°¸¸¸¢¢¢¸¸¸mmmsssbbbaaahhhggg___cccfffZZZcccccc^^^YYY[[[XXX\\\WWWUUU^^^XXXTTTZZZVVV^^^kkk___\\\XXXªªªdddrrraaaaaapppppp™™™™™™°°°»»»{{{{{{RRRjjjƒƒƒ‚‚‚ÎÎÎÎÎÎ{{{{{{{{{¯¯¯¯¯¯¯¯¯ËËËrrr………˜˜˜ŒŒŒbbbrrrUUUKKKKKKccc¥¥¥¥¥¥¥¥¥ƒƒƒƒƒƒiiiSSS”””TTT€€€€€€ZZZRRRbbbcccgggggguuuuuu€€€^^^ÿÿÿÿÿÿÿÿÿaaaccc   |||ÕÕÕÿÿÿÿÿÿÿÿÿææ涶¶¶¶¶¡¡¡¡¡¡¨¨¨¨¨¨´´´´´´———ÿÿÿçç熆†ªªª’’’ccckkk˜˜˜tttvvv```jjj}}}{{{aaa\\\\\\bbbkkk………………˜˜˜‘‘‘““““““yyyyyyyyyyyyqqqqqqssssssyyyyyy………………gggggg¦¦¦¦¦¦™™™™™™cccQQQzzzzzz€€€QQQ­­­˜˜˜••••••iiiiii¢¢¢iiisssgggaaa___hhhgggddd___ddd^^^eee©©©\\\XXX[[[ZZZ\\\XXXWWW^^^\\\]]]WWW[[[\\\kkk```\\\ggguuucccgggpppbbb‰‰‰]]]|||tttƒƒƒ†††€€€ñññ©©©©©©===>>>QQQNNN¢¢¢õõõ~~~lllaaa¦¦¦œœœwwwvvvZZZŠŠŠŠŠŠ©©©©©©™™™®®®µµµººº¤¤¤¢¢¢RRR”””PPP€€€€€€ZZZOOObbbQQQggg```uuuyyy€€€[[[ÿÿÿËËËaaaccc      ÕÕÕÕÕÕÿÿÿÿÿÿæææææ涶¶§§§¡¡¡«««¨¨¨ÍÍͧ§§——————¥¥¥‚‚‚nnnkkkiii___kkk˜˜˜tttvvvbbbjjj}}}}}}aaaaaa\\\```kkkkkkfff………˜˜˜“““žžž¾¾¾yyyyyypppqqqqqqnnnssssssyyyyyy………gggWWWWWW¦¦¦¥¥¥™™™ÂÂÂccc[[[QQQQQQ©©©ÖÖÖ©©©ooorrriii‚‚‚xxxŽŽŽyyyiiidddzzz___OOOXXXaaaeee^^^ddd©©©\\\XXX]]]ZZZ\\\XXXWWW\\\]]]bbb[[[```\\\iii```WWWgggeeefffgggpppdddoooeee^^^wwwƒƒƒƒƒƒ|||†††ªªªªªª§§§§§§¨¨¨¨¨¨………TTTõõõõõõ~~~~~~¦¦¦¦¦¦œœœœœœvvvvvvYYYYYYžžž™™™™™™ºººººº¤¤¤¤¤¤©©©ggg‘‘‘‘‘‘``````ZZZƒƒƒ``````nnnQQQüüüüüüÜÜÜjjj•••eee………………      ´´´´´´ÿÿÿÿÿÿ®®®®®®®®®ššššššœœœœœœÓÓÓÿÿÿÿÿÿ¹¹¹¡¡¡|||nnnnnniii```kkkiii}}}ÆÆƇ‡‡„„„ttttttYYY___–––oooppppppmmmDDDDDD||||||ÌÌ̾¾¾000000RRRRRRYYYVVVssssss~~~~~~``````UUU]]]aaaaaaÎÎÎÎÎÎ[[[[[[¡¡¡³³³ÖÖÖ___rrrrrr‚‚‚XXXŽŽŽŽŽŽiiiiiieeezzz^^^YYYgggbbbdddcccddd©©©\\\bbb\\\\\\YYY\\\TTT[[[\\\bbb[[[```ZZZ______^^^bbbddd```___eeesss‚‚‚ÀÀÀxxx„„„gggaaaÍÍÍ£££UUURRRƒƒƒŸŸŸ©©©ÆÆÆaaa{{{|||ÚÚÚ™™™‘‘‘mmmlllƒƒƒƒƒƒŠŠŠŸŸŸˆˆˆ„„„lllrrr………‹‹‹ôôôÄÄÄ«««¤¤¤ˆˆˆ‚‚‚†††©©©ZZZƒƒƒ‹‹‹ZZZnnnnnn^^^üüüÿÿÿggg]]]eee………jjj   lll´´´ÿÿÿÿÿÿrrr®®®®®®®®®”””šššœœœÉÉÉÓÓÓÿÿÿÿÿÿ‡‡‡kkkmmmfffiiicccmmmiiihhhkkk‡‡‡„„„tttkkkYYY ^^^ßßߟŸŸ······þþþðððÅÅňˆˆ||||||ÌÌÌ«««|||TTTNNNpppppp‚‚‚~~~~~~ WWWWWWWWWWWWuuuuuutttÎÎÎïïïäääšššhhh]]]___qqq“““¼¼¼XXX–––rrreeehhhbbbhhh]]]bbb‰‰‰uuuccccccdddÿÿÿYYYccc\\\[[[XXX\\\ZZZaaa\\\\\\XXXYYY^^^___```^^^bbbccc```aaaeeeeeevvvvvvÀÀÀÀÀÀ„„„„„„aaaÍÍÍ££££££‡‡‡RRRƒƒƒƒƒƒÆÆÆ¢¢¢{{{{{{||||||‘‘‘TTTUUU^^^yyyyyyfffjjjçç矟Ÿ„„„„„„rrrrrrôôôôôôÄÄÄÄÄĤ¤¤¤¤¤‚‚‚‚‚‚llldddwwwwwwVVVeee```aaayyyeee______iiifffssshhhÀÀÀÀÀÀppp···¾¾¾‰‰‰‰‰‰ŠŠŠŠŠŠ¦¦¦¦¦¦‹‹‹‹‹‹³³³³³³„„„gggmmmfffccceeemmmffffff___ŠŠŠäääßßßßßßuuuuuuPPPŸŸŸŸŸŸŸŸŸ···þþþþþþÅÅÅÅÅňˆˆˆˆˆ||||||««««««}}} rrrrrrrrrrrroooˆˆˆ‡‡‡WWWXXX???nnnnnnFFFsssççç–––šššššš]]]xxxaaa```•••³³³rrr```iii___]]]\\\aaabbb°°°hhheeeaaadddÿÿÿfffcccYYYbbbXXXXXXZZZaaa```]]]\\\YYY^^^```fff^^^```ggg```fffbbbZZZxxxWWWssslllttt{{{ñññggg}}}˜˜˜ªªªeeeˆˆˆpppmmmBBBCCCCCCLLLYYYVVVSSS___jjjyyyqqquuummmkkkxxxxxx‘‘‘™™™ßßßýýýwwwrrrÉÉÉ´´´¢¢¢¤¤¤¸¸¸§§§hhh^^^wwwaaaVVVccc___yyy|||______fff```ssspppÀÀÀrrr‰‰‰½½½¾¾¾¾¾¾‰‰‰………ŠŠŠ™™™¦¦¦ªªª‹‹‹†††³³³vvv„„„cccfffccceeebbbffffff___ŠŠŠµµµáááaaa©©©»»»•••“““££££££mmmfffŒŒŒŒŒŒVVVÁÁÁ©©©ªªª³³³µµµþþþÿÿÿ‡‡‡ddd`````````ooo‡‡‡‡‡‡uuuuuuqqqqqqfff//////kkkrrrÌÌÌÇÇÇrrrƒƒƒÕÕÕ   HHHSSSddd\\\˜˜˜kkkkkkdddccc™™™gggaaa```dddaaaeee```YYYVVVYYYWWW]]]^^^```]]]\\\```aaaaaafffaaa```ggg```fffbbbqqq\\\xxxZZZooottt{{{ñññÂÂÂ}}}}}}îîîîîînnnpppBBBJJJIIIOOOVVVYYYXXX______rrrqqqqqqmmmmmmxxxxxxxxxxxx™™™™™™ýýýýýýrrrrrr´´´´´´¤¤¤¤¤¤hhhjjjbbbBBBFFFSSS``````vvvvvvggghhhgggeeejjjuuuÔÔÔÔÔÔ···ŠŠŠ‹‹‹‹‹‹xxx|||xxxuuuuuu››››››ààààààwwwwwwddddddbbbfffaaadddaaa\\\lllµµµáááaaaœœœ©©©••••••““““““£££ãããfffkkkŒŒŒ£££©©©©©©©©©³³³³³³ÿÿÿ ×××———•••sssqqqvvvvvvvvv```uuu]]]ZZZNNNbbbuuuuuuXXXrrrööörrrƒƒƒÿÿÿ      ___VVV˜˜˜˜˜˜kkkkkkdddccciii```aaabbbdddaaaeeeaaaXXXYYYVVVWWW]]]\\\^^^]]]]]]```aaaaaaccc___eeebbb^^^hhhbbbmmmxxxttt‘‘‘÷÷÷lllƒƒƒddd™™™TTT«««©©©___ccczzzwwwLLL777TTTUUU^^^tttlll“““ÍÍÍÿÿÿÿÿÿÎÎÎÞÞÞ¹¹¹¾¾¾¡¡¡åååÀÀÀ¨¨¨›››mmmlll›››¡¡¡“““®®®ªªªªªª¦¦¦¤¤¤¤¤¤WWW______```uuueeeggghhhfffeeejjjmmmÔÔÔ°°°······‹‹‹¡¡¡¡¡¡„„„‡‡‡wwwqqq›››©©©×××wwwnnncccdddaaaWWWbbbeee___‹‹‹---WWW222YYY„„„¨¨¨ÞÞÞœœœ‹‹‹‹‹‹ÂÂÂÂÂÂííííííõõõÿÿÿÿÿÿ———˜˜˜ªªªäääUUU®®®×××ååååå嬬¬½½½¯¯¯ÅÅÅÜÜÜaaa```ZZZ\\\iii¬¬¬zzz{{{ccccccccc{{{|||   ÿÿÿxxx˜˜˜„„„eeehhh___bbbfff```fffbbbdddddd```^^^XXXZZZZZZVVVYYY]]]^^^^^^^^^```cccbbbbbb]]]eeebbb^^^jjjfffnnnxxxttt‘‘‘‘‘‘ƒƒƒrrrdddddd¸¸¸xxx______ccccccwww===ppp]]]]]][[[dddÍÍÍÍÍÍÿÿÿÿÿÿÎÎÎÎÎι¹¹¹¹¹¡¡¡¡¡¡ÀÀÀÀÀÀ¨¨¨¨¨¨llllll¡¡¡¡¡¡®®®®®®ªªªªªª¤¤¤UUUSSS```ÇÇÇaaaddd^^^______ZZZfffddddddwwwŠŠŠ‰‰‰‰‰‰ÓÓÓÍÍÍÍÍ͇‡‡‡‡‡™™™™™™•••{{{™™™™™™iiiiiibbbbbb___hhhdddfff___mmm]]]gggÑÑÑâââ„„„„„„ÞÞÞÞÞÞœœœœœœ‹‹‹ŠŠŠÂÂÂÊÊÊíííõõõèèèÿÿÿÿÿÿ˜˜˜˜˜˜ääääääbbb®®®œœœÞÞÞÓÓÓ¬¬¬¼¼¼¯¯¯ÜÜÜMMMJJJZZZWWWccc¬¬¬¬¬¬{{{{{{eeemmm{{{{{{||||||xxxxxxsss___aaagggdddbbbeee^^^fffaaadddcccddd^^^^^^ZZZZZZVVVYYY]]]bbb]]]ZZZbbbaaacccbbbddd]]]aaa```^^^ZZZ___©©©©©©VVVdddFFFFFFFFFªªªlllwwwwwwjjjpppŒŒŒcccUUUzzzzzz___]]]]]]\\\ðððÎÎÎÒÒÒ^^^^^^zzz‚‚‚€€€   ©©©ÙÙÙÀÀÀ±±±®®®¶¶¶¥¥¥      pppÁÁÁÿÿÿyyyqqqªªªgggTTT***FFFUUUeee^^^SSSZZZ___dddcccwwwŠŠŠ‰‰‰˜˜˜ÓÓÓÍÍÍÍÍÍÿÿÿ‡‡‡™™™¨¨¨ŽŽŽlll™™™uuuhhhbbb___```hhhddd]]]]]]………JJJeee§§§ÿÿÿ©©©•••ddd}}}xxx¹¹¹¹¹¹óóóóóóÝÝÝààବ¬»»»···©©©­­­ÜÜÜÅÅÅ___iii………ÓÓÓÓÓÓuuu©©©½½½ÄÄÄQQQjjj]]]bbb‰‰‰ìì줤¤ãããÄÄÄnnnvvv{{{vvv‹‹‹|||ooonnnddd```___eeeaaadddddddddXXXXXXZZZZZZYYYWWW\\\]]]]]]\\\bbbbbb^^^cccccc]]]aaa___^^^[[[ZZZ[[[nnn```dddfff¦¦¦ªªªªªªwwwwwwppp………ŒŒŒŒŒŒUUUgggzzz]]]]]]^^^```ÿÿÿÒÒÒ©©©©©©¢¢¢ŸŸŸ      “““­­­   ÙÙÙÙÙÙ±±±±±±¶¶¶¶¶¶   sssppppppÿÿÿÿÿÿqqqqqqTTT^^^LLL‡‡‡eeeeeeZZZaaaTTT```kkkccc~~~~~~|||‘‘‘eeeƒƒƒƒƒƒsssssshhhhhhrrrhhhfff^^^^^^eeedddUUUgggdddQQQoooÙÙÙ———©©©©©©VVV{{{{{{ƒƒƒŽŽŽ¹¹¹ýýýóóóÿÿÿ°°°¬¬¬¬¬¬······­­­­­­ÅÅÅŽŽŽ………………‚‚‚ÓÓÓ¹¹¹cccXXXÄÄÄdddzzz€€€bbb‰‰‰‰‰‰ããããããnnnnnnmmmqqquuuWWW‹‹‹‹‹‹ooocccggg``````ddd{{{hhhfffbbbdddTTTXXX[[[]]]YYYWWW\\\]]]ZZZ]]]fffbbb___cccbbbaaabbb```]]]cccaaannn^^^©©©©©©©©©¼¼¼```iiiqqqrrrmmmpppƒƒƒ‡‡‡‡‡‡UUUcccTTT\\\\\\eeeeee}}}}}}¬¬¬ªªªªªªõõõ“““³³³±±±ÿÿÿÿÿÿúúúàà຺ºµµµþþþ¥¥¥ÈÈÈÿÿÿÿÿÿÉÉɺººâââÎÎÎÎÎÎUUUJJJŠŠŠaaaJJJaaaccceeeeeelll^^^]]]kkkccc†††~~~|||›››eeeeeeoooƒƒƒssslllŠŠŠhhhaaahhhfff^^^gggdddaaa]]]SSS333iiioooÙÙÙ›››}}}yyyuuu¨¨¨†††‰‰‰„„„sss’’’’’’lllXXXmmm²²²ÞÞÞÿÿÿ­­­PPPÿÿÿÿÿÿ´´´´´´––––––¹¹¹kkkffffffhhh———aaa¥¥¥üüüãããZZZ___bbbpppWWWYYY|||rrr```¼¼¼bbbfffaaa]]]^^^dddbbbeeehhhdddiii___VVV\\\[[[]]]ZZZXXX\\\\\\___VVV]]]jjjbbb___cccbbbaaabbbdddcccjjjccc©©©©©©NNN{{{bbb©©©©©©```iiirrrrrr~~~ppp‡‡‡´´´LLLYYYYYY\\\€€€eeemmm}}}¼¼¼ªªªªªªõõõõõõ³³³³³³³³³···úúúúúúººººººþþþþþþÈÈÈÈÈÈÿÿÿÿÿÿººººººÎÎÎ]]]JJJJJJŠŠŠlllMMMVVVPPPeeeaaaaaa^^^]]]gggccc~~~~~~ˆˆˆˆˆˆdddddd†††ƒƒƒƒƒƒ††††††wwwwwwxxxxxxaaaeeeccc```gggcccaaa]]]¶¶¶„„„hhhwwwÙÙÙÙÙÙœœœœœœuuuÊÊʨ¨¨¨¨¨‰‰‰‰‰‰„„„^^^’’’‹‹‹lll\\\mmmÞÞÞÞÞÞMMM]]]ZZZÿÿÿµµµ´´´¿¿¿kkkwwwfff———PPPxxxbbb¥¥¥¥¥¥¯¯¯”””»»»lllaaaeee|||¶¶¶UUUbbbeeefff]]]]]]^^^ddd```cccccc```iii___]]]\\\[[[\\\YYYXXXZZZ\\\___VVV[[[___eeeaaabbbdddaaabbb\\\[[[oooggg}}}”””XXXnnn______©©©———ÇÇǵµµæææµµµµµµvvvZZZ^^^©©©YYY[[[ÄÄÄjjj“““ÔÔÔÔÔÔÅÅŪªª±±±ìììyyywwwþþþ¯¯¯¡¡¡   nnngggºººþþþþþþ©©©¯¯¯¡¡¡ŠŠŠ£££òòòqqqqqqbbbiii^^^OOOÿÿÿgggcccgggwwwfff___eeeccc~~~dddˆˆˆ\\\ddd††††††‚‚‚ƒƒƒ„„„†††wwwxxxzzzaaa```___\\\bbbbbb^^^xxx»»»tttVVVdddbbb~~~~~~‚‚‚‚‚‚VVVtttrrrpppqqqkkk¾¾¾¾¾¾xxx¥¥¥ðððÊÊÊbbb\\\bbbbbb½½½½½½ûûûkkkÿÿÿwwwÆÆÆsss¨¨¨^^^ÿÿÿhhhõõõXXXRRRTTTddd‚‚‚lllñññnnnÒÒÒœœœÿÿÿWWW___hhh]]]___aaaaaaeeefffýýýsssbbbWWWZZZ\\\YYYXXXZZZ\\\___ZZZ\\\___eeeaaabbbdddaaaaaa\\\[[[oooggg}}}nnnüüüXXXWWW___ZZZ¦¦¦ÿÿÿµµµµµµµµµ´´´vvv```^^^©©©OOO[[[ÄÄÄjjj›››ÔÔÔÔÔÔúúú±±± ­­­œœœtttwww¯¯¯¯¯¯   ‰‰‰•••UUUþþþŒŒŒ¯¯¯±±±¡¡¡¡¡¡€€€ŸŸŸxxxxxxqqqbbbiiiYYYOOObbbgggcccwwwwww^^^___eeeeeedddfff^^^^^^†††††††††‚‚‚‚‚‚„„„„„„zzzzzzhhh```___\\\ZZZbbb^^^rrr¬¬¬IIIcccWWWlllbbb~~~~~~‚‚‚||||||rrrqqqkkk¾¾¾xxxPPPðððððð dddddd\\\BBBBBBJJJÉÉÉÍÍÍkkkwwwÆÆƨ¨¨ƒƒƒ```^^^hhhXXXjjjNNNŒŒŒddd‚‚‚{{{ñññsssÒÒÒÒÒÒvvv———wwwwww^^^^^^]]]aaafffaaagggdddýýýssscccXXX___ZZZYYYWWWZZZ\\\WWW]]]ggg^^^fffgggbbbeeegggeee```ccc^^^^^^uuuZZZÁÁÁÁÁÁòòòÆÆÆwww333ffffffjjjkkkôôôÙÙÙŒŒŒ\\\OOOddd­­­nnn___wwwÅÅÅÖÖÖÐÐÐÐÐÐòòòòòò………‰‰‰………†††¦¦¦¡¡¡££££££LLLàà௯¯§§§®®®¡¡¡¡¡¡^^^‡‡‡‘‘‘XXXXXX^^^ÿÿÿgggOOOTTTMMMXXXttt\\\^^^]]]eeeaaaccchhhppplll~~~~~~uuuuuurrrrrrooo```zzzdddqqqdddddd```]]]\\\bbb\\\···IIIKKKSSS\\\\\\¯¯¯‰‰‰‰‰‰„„„dddŒŒŒŒŒŒllllllOOO„„„eeebbbhhhyyyyyyuuu```cccYYY\\\®®®TTTÕÕÕÕÕÕÕÕÕÕÕÕþþþ„„„_________\\\fff\\\ggg‚‚‚‚‚‚yyy¤¤¤mmmoooÿÿÿ²²²²²²aaaQQQ©©©©©©]]]yyycccmmmmmm\\\pppdddddd[[[^^^WWW\\\WWW[[[___WWWfffYYYbbbhhhfffggghhhcccgggeee```ddd^^^ZZZ^^^ttt\\\ÁÁÁÀÀÀYYYrrrsss``````ssssssôôôÙÙÙŒŒŒTTTddd[[[­­­­­­oooÿÿÿ›››ÕÕÕÆÆÆÐÐÐòòòWWW‰‰‰vvv”””††††††££££££LLLøøøàààààà   §§§¡¡¡QQQ^^^^^^‘‘‘‘‘‘XXX^^^ÿÿÿccc\\\NNN???aaa]]]\\\^^^]]]eeeaaahhhhhhŠŠŠlll~~~hhhzzzwwwwwwxxxxxxqqq```dddooodddcccccc``````eee\\\fff@@@KKKRRR\\\\\\kkkkkkdddŒŒŒeeelllcccccc111eee¬¬¬hhhWWWOOOZZZ```___YYY®®®®®®¼¼¼¢¢¢\\\ÿÿÿÕÕÕ–––þþþþþþ\\\®®®```\\\SSS\\\^^^WWW‚‚‚¤¤¤¤¤¤¢¢¢mmmwww²²²mmm___­­­©©©ZZZ]]]yyycccmmmmmmpppxxxbbbccc[[[^^^\\\\\\[[[[[[___WWWjjjYYY]]]hhhffffffddddddeeebbb^^^^^^```{{{iiieee™™™SSS²²²WWW\\\nnngggeeeƒƒƒƒƒƒ¯¯¯¶¶¶KKKmmmfff[[[ÖÖÖËËËýýýÿÿÿ›››çççlllÿÿÿ°°°°°°„„„ÿÿÿ···ÿÿÿ¸¸¸ÿÿÿ```hhhÎÎÎÊÊÊýýýææ昘˜ÄÄÄ©©©ÜÜÜ©©©^^^ððð”””aaa]]]ZZZJJJcccQQQaaa^^^]]]``````cccbbbiiiiiiaaaaaauuusssrrrxxxxxxwwwwwwlllˆˆˆcccbbbbbbaaa^^^```___dddcccdddxxxOOO444OOORRRRRR[[[[[[VVV___DDDvvvUUUbbb\\\oooLLLTTTTTTQQQTTTRRRVVVNNN………××××××âââ½½½êêêêêêÿÿÿ––––––ÿÿÿ¤¤¤___\\\SSSXXXaaa^^^^^^ggg–––fffqqqIII½½½ÿÿÿhhhíííyyy}}}äääddddddiiiiiiÌÌÌÃÃÃbbbcccWWWWWW\\\XXX[[[\\\^^^WWW^^^XXX]]]dddcccfffcccdddfffdddbbb^^^```©©©iiiiiiSSSSSSÁÁÁWWW\\\uuugggeee‹‹‹ƒƒƒ>>>KKKiiimmmcccaaaÖÖÖÖÖÖýýýýýýððð\\\lllÿÿÿæææ°°°±±±|||ÿÿÿÿÿÿ———```hhhhhhÊÊÊÊÊÊææææææÄÄÄ©©©¢¢¢©©©KKK^^^””””””;;;^^^HHHcccKKK___ccc```]]]```bbbbbbiiiaaaaaaaaasssjjjrrrrrrxxxxxxwwwllllllcccbbbbbbaaa^^^^^^___ZZZbbbPPPxxxÌÌÌwww^^^RRRRRRÊÊÊDDDDDD………vvvUUUdddaaaoooLLLmmmmmmNNNjjjXXXBBB‹‹‹………………´´´½½½ ½½½êêêììì–––oooÿÿÿÿÿÿ‰‰‰___aaacccXXXbbbccc^^^–––gggfffqqq]]]WWWÿÿÿhhhÁÁÁyyy[[[{{{dddœœœhhhdddÌÌÌÃÃÃcccdddWWW[[[TTTWWW[[[^^^^^^XXX___[[[~~~dddggghhhdddeeevvvddd___ddd___aaa___\\\^^^dddÿÿÿWWW```bbbgggRRR››››››aaaXXXccceeebbb```|||ÞÞÞÿÿÿÿÿÿçççbbb³³³ÑÑÑ××××××µµµµµµ^^^hhhPPPTTTQQQNNNtttppp¦¦¦NNN«««ÄÄÄ©©©‰‰‰```YYY[[[^^^dddYYYcccaaa```dddccc^^^```aaa___bbbbbbaaa]]]^^^^^^ppppppkkkkkknnnnnnxxx```cccZZZYYY]]]aaaggg[[[]]][[[___TTTSSSuuu___\\\ZZZ¦¦¦   ooo___```mmmmmm]]]cccaaaqqqqqqiiihhhkkkmmmaaalllþþþ¹¹¹¹¹¹••• ÍÍÍÍÍÍäääooo‚‚‚sssÿÿÿÿÿÿ³³³```aaa```\\\XXXccc}}}nnnpppZZZaaaaaakkkRRRWWWfff^^^hhhÄÄÄkkkccc¬¬¬pppcccdddWWWZZZXXXWWWXXX^^^bbbXXX^^^[[[~~~bbbgggllldddhhhvvvddd___```bbbaaa___ggggggdddÿÿÿyyyxxxbbb|||ggg}}}›››aaa\\\cccYYYddd```||||||ÿÿÿÿÿÿÃÃÃbbb‹‹‹ÿÿÿ¤¤¤××פ¤¤µµµeeeŸŸŸÅÅÅTTT[[[???AAAAAAAAANNNNNNÄÄÄ©©©™™™```:::777œœœsssssscccTTTÿÿÿdddcccbbb]]]aaa]]]bbbbbb°°°```[[[[[[^^^aaakkknnnnnnxxxxxxuuuuuuZZZZZZ]]]aaabbb[[[\\\]]]___WWW777\\\]]]fffZZZ      ddd```OOO___]]]aaacccqqquuuiiihhhrrrrrrllleeeSSSþþþþþþ¹¹¹sssssssssÍÍÍÖÖÖooo‚‚‚sssÿÿÿªªªªªª[[[aaa```cccXXXccc©©©}}}nnngggeeeaaaaaakkkkkkTTT^^^¨¨¨···jjj~~~nnnpppcccdddVVVZZZYYYXXX[[[___bbbUUU]]]ZZZ›››bbbhhhmmmdddkkkyyyooooooccc^^^cccccc``````cccÍÍÍÿÿÿÿÿÿìììÛÛÛsssIIIRRRYYYccc]]]ÞÞÞbbb      ˆˆˆöööÃÃí­­|||ùùù©©©©©©©©©©©©kkk‚‚‚qqq^^^CCC___<<<;;;;;;JJJJJJJJJ———bbbgggddd•••bbb¶¶¶bbbTTT]]]ccc\\\___ZZZ```]]]___\\\ccc^^^```^^^ccccccwwwwwwwwwmmm\\\``````XXX\\\\\\\\\\\\YYY]]]``````___```ggggggYYY```jjj’’’ÓÓÓmmmMMM|||RRRYYY]]]ccc‹‹‹wwwkkkjjj¯¯¯¯¯¯~~~œœœTTT¸¸¸³³³³³³¹¹¹²²²¸¸¸žžžÏÏÏ~~~mmmkkkÊÊÊWWWˆˆˆ[[[YYY```cccUUU^^^‹‹‹‹‹‹fff___\\\hhhTTTsssbbbŒŒŒZZZmmmþþþ¼¼¼ËËËiiivvviiibbbdddXXXZZZYYYYYY[[[___^^^VVV\\\___\\\___cccgggmmmdddgggnnnmmmoooddd^^^fff+++fff```©©©YYYnnnÿÿÿÿÿÿÛÛÛ€€€SSSKKKbbbccc]]]___]]]   “““ˆˆˆˆˆˆ‰‰‰nnnßßßùùù´´´©©©³³³©©©pppkkkqqqeeejjjIIIOOOaaakkkooo^^^ccc???RRRbbb\\\ÀÀÀdddÁÁÁÁÁÁbbbWWWNNNÿÿÿ^^^___```[[[___]]]\\\`````````\\\cccrrrwwwYYYYYY[[[[[[VVVXXXXXX\\\]]][[[\\\]]]___```ccc___SSShhh[[[cccRRR\\\’’’’’’mmm–––MMMRRRqqqqqq[[[bbbiii‹‹‹sssxxx¡¡¡ììì~~~TTT¸¸¸¸¸¸••••••¹¹¹žžžžžžÏÏÏ~~~mmmjjjzzzŒŒŒ```]]]YYY```ccc^^^^^^‹‹‹‹‹‹fff___[[[aaaTTTsssÔÔÔkkkZZZYYYmmmËËËðððˆˆˆ}}}qqqiiifffdddXXX]]]\\\YYY[[[[[[^^^VVVaaa___```]]]cccgggllliiilllooommm^^^eeebbb“““^^^RRRZZZ___mmmbbbYYY¾¾¾¿¿¿mmmÇÇÇæææLLL```bbbhhh\\\]]]×××ÅÅÅmmm¸¸¸qqqlllqqqqqqkkkŽŽŽ€€€€€€œœœŒŒŒ‹‹‹···ZZZkkk§§§cccccchhhhhhuuuwwwþþþªªªRRRaaauuu ___VVV<<<ÅÅÅbbb]]]]]]]]][[[aaaaaammmTTTXXX\\\^^^ZZZfff]]]|||ddddddbbbbbbWWWTTTXXXXXXXXX]]]UUUPPPVVV\\\›››MMMpppggg[[[ ÿÿÿôôô£££[[[XXXnnnŽŽŽŽŽŽ[[[bbbdddfffuuuŠŠŠºººººº‹‹‹TTT„„„ƒƒƒ………………ŠŠŠVVV¾¾¾iiikkkiiihhh“““LLL]]]aaabbbVVV^^^]]]~~~RRRccc```bbbhhhMMMbbb\\\MMM[[[ZZZ¬¬¬ÞÞÞ………}}}ppphhheeedddXXX```ZZZ]]]\\\[[[```VVV```]]]```dddmmmgggfffiiilllooooooààà[[[bbb………^^^RRRZZZXXXXXXmmmbbbYYYmmmçççÇÇÇSSS```bbbhhh\\\eeeÅÅÅÃÃÄ„„ÁÁÁqqqŠŠŠ©©©qqqyyykkknnnrrrœœœœœœ······€€€rrr§§§eeeccc```hhhhhhwwwwwwYYYªªªªªªTTTYYYWWWWWWZZZXXX``````]]]]]]]]]```aaa```]]]___^^^XXX^^^___xxx|||||||||ccc[[[bbbWWWTTTVVVXXXXXX]]]XXXSSSSSSWWWZZZ›››UUUggg444RRRÿÿÿÿÿÿ££££££ZZZnnnmmmŽŽŽ___bbbbbbfffuuu{{{¯¯¯ººº•••TTT]]]aaafff^^^[[[VVVÿÿÿiiihhhkkkfffiiijjjjjjaaabbbZZZTTT]]]ggguuu```aaabbbhhh[[[ppp]]]hhh£££§§§ýýýßßßwwwrrrllleeedddXXX```\\\]]]\\\[[[___VVV```\\\``````lllgggdddmmmmmmpppÿÿÿÿÿÿ¶¶¶ccc^^^XXX^^^gggYYY§§§ºººpppxxxWWW\\\nnnZZZ```cccbbbWWWNNNxxxäääüüü„„„eeeWWW´´´´´´¯¯¯¯¯¯‚‚‚‚‚‚³³³~~~}}}ttt¦¦¦«««gggccceeebbbOOOTTTLLLQQQLLL```VVVZZZMMMSSSZZZ]]]___^^^^^^aaaaaa^^^^^^\\\YYYXXX]]]___’’’’’’………PPPPPPRRRRRR______TTTTTTYYYYYYZZZVVV\\\\\\WWW^^^QQQ]]]VVVWWW©©©eeeÉÉÉžžž©©©iii777dddYYYaaa___```œœœiii|||}}}¦¦¦ŽŽŽtttyyyyyySSS‡‡‡‡‡‡”””qqqeeehhh¾¾¾\\\‚‚‚‚‚‚[[[```ZZZ^^^___pppeeeVVVbbbnnnhhhcccZZZ\\\äää¾¾¾¯¯¯­­­ÿÿÿüüüùùùhhhhhhjjjhhhgggXXX___\\\]]]XXX^^^\\\YYY]]]ccc```ŒŒŒmmmdddmmmmmmÿÿÿÿÿÿhhhdddVVVaaa^^^]]]yyyººººººxxxxxxrrrnnnZZZ```cccbbbWWW^^^xxxxxxüüüüüüeeefffSSS´´´±±±¯¯¯××ׂ‚‚³³³³³³{{{¦¦¦qqqÿÿÿÿÿÿ¨¨¨£££bbbPPPTTTVVVõõõ```SSSPPP```aaaaaaSSS^^^___^^^\\\aaa\\\]]]\\\ZZZXXX]]]]]]hhh’’’}}}………………bbbddd|||___YYYTTTYYYYYYYYYVVVTTT[[[ZZZWWW___hhhZZZWWWWWWyyygggNNNžžžžžžeeeWWWVVVYYYXXX______œœœœœœ}}}}}}———¦¦¦‰‰‰›››‡‡‡°°°°°°   ‡‡‡qqqqqqjjjppp°°°\\\ggg‚‚‚YYY```HHHVVV___‘‘‘~~~mmmgggooohhhcccbbbYYYäääää䯯¯¯¯¯æææ«««ùùùùùùhhhhhhdddgggXXX___\\\XXXWWW^^^XXXYYYXXX___bbbfffŽŽŽlllcccmmmmmm½½½qqqÿÿÿÿÿÿ•••ŸŸŸZZZ^^^^^^iiiOOO]]]gggfffaaahhhggggggwwwjjjZZZ```\\\]]]ÌÌ̬¬¬²²²¢¢¢iiilll‰‰‰>>>;;;iii'''ŸŸŸ‹‹‹tttÿÿÿ½½½ÉÉÉrrrvvvvvvyyy___RRROOOddddddfffÃÃÃÿÿÿ```nnnmmmbbb]]]]]]^^^]]]```[[[ZZZ[[[^^^[[[[[[[[[hhhoooooooooŠŠŠŠŠŠfffYYYYYYYYY[[[[[[]]]ZZZXXX[[[XXX\\\www___VVVYYY‡‡‡†††___III‹‹‹YYYOOOFFFXXXZZZ```___aaagggggggggqqquuurrr££££££¥¥¥‘‘‘ÇÇÇÇÇlj‰‰”””———pppñññbbbbbbaaaVVVZZZYYYYYYQQQ±±±µµµ¸¸¸”””aaa___………aaaWWW      aaauuulllˆˆˆ___ŸŸŸffffffcccddd\\\VVV[[[WWWWWW^^^WWWZZZFFF___bbbfffffflllmmmmmmmmm½½½½½½fffÿÿÿèè蟟ŸŸŸŸPPP^^^dddYYY]]]mmmgggaaaaaaggg¬¬¬wwwjjjBBB```\\\]]]ÌÌÌÌÌ̲²²²²²mmmttt‰‰‰‰‰‰ŽŽŽŽŽŽ˜˜˜†††rrrpppüüüÊÊÊqqqÉÉÉÉÉÉvvvfffaaaaaaeeeddddddÏÏÏLLLfffÿÿÿjjjmmm___aaaZZZ]]]]]]```\\\ZZZZZZ]]]]]][[[[[[[[[}}}eeeÿÿÿ@@@QQQddd¡¡¡]]]dddYYYWWWYYY \\\]]]XXXVVVWWWYYYZZZ\\\___©©©VVVTTT††††††^^^[[[EEEbbbJJJFFFZZZWWW___XXX{{{ggggggqqqqqqxxxppp‚‚‚£££‘‘‘‚‚‚‡‡‡ÇÇlj‰‰”””yyyyyylllbbb^^^aaa^^^YYYYYY---‰‰‰±±±¸¸¸¸¸¸¸¸¸___YYY[[[WWW   VVVVVVfffllllllttt___kkkfffcccddd\\\WWW[[[WWWWWW```YYY[[[\\\AAA______dddfffiiigggmmmlll···eeefff¢¢¢ÿÿÿÏÏÏÏÏÏGGGbbbPPPbbb„„„\\\ggg¶¶¶›››¹¹¹hhh{{{eeeOOO[[[SSSVVVXXXXXXttttttddd^^^rrrzzz~~~‚‚‚WWW®®®®®®dddddd,,,tttŸŸŸooo``````^^^^^^fffccceeeRRRWWWkkkÑÑÑ€€€yyyWWW•••]]]^^^ZZZXXX\\\[[[ZZZ]]]]]][[[[[[aaaXXX______hhh LLLoooooonnn]]]YYYYYYYYY[[[YYY]]]ZZZYYYWWWZZZYYYRRR777iiiiiiXXXQQQpppwww]]]LLLAAAUUU\\\HHHXXX\\\XXXVVVhhhÿÿÿlll„„„„„„¶¶¶———kkkmmm‰‰‰xxxxxxggg[[[fffdddyyy@@@qqq{{{jjj šššttt©©©ÝÝÝ¡¡¡aaagggbbbZZZUUUXXXhhhhhhNNN‚‚‚‚‚‚žžž………vvviiigggbbbbbb\\\WWW___[[[WWW```YYYYYY^^^UUU]]]fffdddfffhhhrrrmmmmmmeeeooo¢¢¢¢¢¢‰‰‰ÏÏÏššš¦¦¦lllVVVRRRÁÁÁ¶¶¶¶¶¶¹¹¹¹¹¹VVVTTT___jjjqqqWWWWWWVVV]]]aaaggggggrrrggg___¦¦¦®®®eeeˆˆˆ¤¤¤¤¤¤rrrŸŸŸŸŸŸnnn………uuu^^^ÔÔÔcccYYY^^^WWWhhhbbbqqqFFFŽŽŽZZZ___ZZZbbb]]]]]]XXX[[[\\\aaaZZZgggZZZ]]]fff^^^jjjdddddd‹‹‹ˆˆˆddddddWWWZZZZZZ ]]]©©©ZZZ[[[OOOWWW[[[YYYTTTUUUiiiXXXQQQbbbwww]]]KKKKKKAAAQQQ[[[YYYTTT\\\VVVÄÄÄÿÿÿÿÿÿ[[[„„„„„„——————‰‰‰‰‰‰xxx[[[YYY___RRReeemmmVVVZZZÿÿÿjjj]]]†††©©©¡¡¡¡¡¡gggYYYNNNgggcccXXXcccuuuZZZ‚‚‚jjj………‚‚‚iiigggdddbbb]]]VVVbbb[[[WWW^^^\\\UUUMMMIIIbbb^^^gggdddiiikkkvvvlllkkkwww†††°°°hhhjjjjjjKKK^^^aaa```}}}aaa„„„„„„ttt¶¶¶ÉÉɤ¤¤mmmMMMggg______UUUYYYOOOMMMHHHiiiiiittt]]]]]]^^^bbbTTTˆˆˆ„„„tttdddqqqqqqggg¨¨¨™™™ MMMZZZYYYUUUhhhdddwwwOOOooooooaaaaaabbbWWW]]]YYYaaa[[[aaa\\\ZZZVVV]]]]]]``````jjjjjjdddJJJfffjjjjjjWWWWWWZZZZZZWWW©©©PPPXXXXXXWWWRRRYYYYYYqqqQQQ©©©]]]kkkVVV[[[mmmPPPYYYYYY[[[;;;;;;³³³œœœ|||}}}}}}rrrÿÿÿÿÿÿkkkeeedddwwwvvvqqqTTTžžž······OOOFFFKKKUUU¨¨¨mmmcccÿÿÿ‹‹‹›››©©©˜˜˜ZZZeee|||{{{xxxrrrqqqiiilllhhhuuuhhhgggfffcccccc]]]VVV\\\\\\WWW^^^YYYggg111\\\bbb^^^ddddddiiikkkiiikkkttt††††††jjjjjjeeejjjgggZZZ^^^ooo}}}ˆˆˆ„„„ªªª”””tttÉÉÉÉÉÉmmmmmmCCCbbbpppBBBQQQ[[[|||JJJhhhmmmtttttt€€€………………‡‡‡tttzzzkkkqqq†††ddd®®®™™™ðððMMMZZZUUUooohhhddd888iiihhhSSS[[[``````YYYUUU______```[[[XXXUUUZZZ©©©ZZZhhhjjjffffffoooooollllllUUUWWWWWWTTTXXXhhhWWW©©©aaaMMMRRRXXX___YYY[[[©©©XXXZZZŒŒŒwwwmmmmmmRRR```______NNNIIIœœœœœœŒŒŒƒƒƒrrroooÿÿÿ¼¼¼lllkkkkkk[[[[[[žžžžžž———···OOOaaaaaaUUUUUUccc†††ÿÿÿ………©©©¢¢¢˜˜˜˜˜˜SSS[[[yyy rrrqqqqqq€€€llliiikkkhhhgggfffcccccc]]]UUU\\\\\\```___]]]gggUUURRRkkkVVV^^^cccgggjjjggg{{{kkklllxxxllldddaaadddkkk]]]cccbbbcccˆˆˆˆˆˆssskkkmmm}}}``````pppHHHhhh‚‚‚[[[HHHNNNaaattt]]][[[}}}nnnsssxxxªªªíí툈ˆRRR”””“““‰‰‰„„„kkkkkkŸŸŸ   NNNKKKhhhfff```MMMVVVVVVCCCZZZ[[[```VVVYYY___]]]aaa___ÿÿÿ```kkk[[[©©©©©©]]]]]]jjjjjjfffgggooollllll```UUUWWWWWWWWWhhhXXXJJJJJJZZZMMMXXX______UUURRRXXX^^^VVV“““¾¾¾|||€€€||||||zzzlll```]]]§§§ôôô³³³±±±···aaa¨¨¨¨¨¨¬¬¬OOOiiiYYYpppppp}}}}}}ÿÿÿaaaooohhh___­­­³³³††††††aaaVVV‰‰‰–––gggmmm‚‚‚}}}www€€€llllllkkknnnnnnaaabbbcccbbbbbb]]]VVV]]]YYY\\\```]]]^^^\\\^^^kkkZZZ```eeegggbbbfffmmmdddlllggggggbbb‹‹‹dddzzz```bbbkkkvvvˆˆˆnnnssssss}}}ttt```eeepppkkkzzzOOO[[[€€€^^^¡¡¡€€€¼¼¼tttXXXWWWWWWZZZLLLnnnííííí퉉‰©©©““““““„„„„„„^^^TTTOOOZZZ]]]hhhhhh^^^YYYVVVTTTVVV^^^]]]\\\ZZZ______[[[ccc\\\ZZZ^^^gggXXXSSS©©©ddddddyyyzzzzzzyyyyyyuuuuuu[[[[[[VVVUUUXXX]]]YYY]]]PPPYYYRRRUUUSSS\\\YYYbbbfff©©©VVV```¾¾¾¾¾¾|||€€€@@@@@@ddd```cccWWWôôôôôô±±±±±±jjjªªª¨¨¨OOOkkkgggffflllppp^^^}}}ÿÿÿiii\\\hhhÓÓÓ­­­ÆÆƳ³³’’’††† sssbbb––––––bbbmmm}}}www€€€€€€aaakkkaaannnqqqbbbcccbbbbbb]]]VVV]]]YYYZZZ___\\\^^^aaaaaaWWW\\\```cccaaaccchhhfffdddkkkkkkmmmgggffffff^^^``````ssssssuuuþþþÿÿÿÿÿÿÿÿÿ“““www›››{{{{{{dddÑÑÑeeelllgggqqqiiicccwww„„„„„„––––––VVVccc½½½ððð¾¾¾¾¾¾jjjjjjFFF___XXXZZZ³³³YYYTTTWWW©©©VVV^^^]]]\\\YYYZZZ___ZZZ\\\YYY^^^ZZZ]]]cccQQQ©©©©©©dddmmmyyyyyyzzzzzzyyyyyyuuummm[[[VVVVVVXXXcccYYY]]]NNNRRROOOQQQSSS]]]YYY\\\RRRTTTTTTbbb‰‰‰«««ÿÿÿ˜˜˜˜˜˜mmmmmmMMM::::::BBBÔÔÔÔÔÔ²²²WWWWWW§§§999AAAVVVVVVXXXjjjAAA,,,]]]sssssstttTTTƒƒƒzzzvvvssssss™™™™™™vvvxxx–––‘‘‘wwwyyyyyycccrrrfffpppbbbaaahhhcccdddbbbccc```WWWYYY[[[ZZZ___[[[]]]aaaWWW\\\aaabbbbbbdddhhhfffkkkkkkkkkssseeefff```]]]```mmmsss–––ÿÿÿþþþÿÿÿÿÿÿÿÿÿŸŸŸµµµ¥¥¥®®®{{{dddÑÑÑeee|||°°°jjj™™™†††„„„¡¡¡–––RRRVVVccc½½½ððð¾¾¾___jjjDDD““““““^^^××׳³³YYY©©©OOONNNWWW\\\]]][[[[[[VVVXXXQQQWWWQQQXXXddd___qqqbbbÿÿÿÿÿÿ¾¾¾¾¾¾WWWWWWWWWaaaaaauuuuuuccccccSSSSSSYYYVVVWWW^^^hhhWWWNNNTTTYYYXXXYYY]]]^^^fff]]]ZZZXXXyyyÿÿÿ©©©˜˜˜–––mmmvvvYYY\\\lllpppttt××ײ²²©©©§§§žžž–––~~~~~~hhhLLLkkkaaa]]]sssvvv¢¢¢TTTƒƒƒ‚‚‚zzzyyyssskkk™™™¼¼¼vvv{{{‘‘‘‘‘‘yyytttnnncccffffffffffffdddeeedddbbbbbb```WWWWWW[[[ZZZ^^^ZZZXXX\\\PPPUUU___bbbeeebbbfffhhhdddhhhiiidddbbb^^^^^^fffbbbcccjjj}}}uuu}}}|||bbbaaaxxxlllpppeeehhhyyy777777}}}}}}GGGDDD¶¶¶°°°°°°ÿÿÿÿÿÿRRRXXXjjj©©©‘‘‘JJJ<<>>šššqqqfffffftttfff¢¢¢¢¢¢ÖÖÖÖÖÖ‡‡‡‡‡‡vvvvvvHHH\\\VVV[[[VVV[[[___``````WWW___]]][[[]]]]]]]]]]]]YYYZZZPPPWWWbbbaaa}}}aaahhhZZZeeeeeeooohhhhhhhhhhhh}}}}}}WWWWWWYYY,,,^^^MMMXXXWWWVVVYYYZZZ[[[ZZZZZZZZZYYY\\\\\\ZZZXXXWWWZZZTTTPPPFFFPPPVVVnnnooobbbÒÒÒêêêêêêllllll^^^hhhggggggOOOhhhhhhºººººº}}}QQQddddddjjjjjjkkkkkkwwwwwwooommm„„„„„„ooommmuuuuuueeekkkmmmjjjjjjaaaaaabbbbbb``````YYYXXX^^^[[[[[[ZZZ^^^^^^XXXZZZ^^^```gggdddbbbaaaccceee^^^^^^___aaaaaabbbmmmtttvvveeeeeeooooooiiinnn___\\\aaaeee‰‰‰„„„rrrwwwgggddd```ZZZZZZbbbnnnfff|||yyyÙÙÙÉÉÉ¢¢¢ÖÖÖ}}}HHH|||vvv›››DDDVVVWWWWWWQQQ]]]^^^___bbb\\\]]]```]]]\\\]]]]]]]]]VVV[[[ZZZ___[[[UUUaaa^^^```ÿÿÿ\\\ooofffoooooohhhhhhhhhVVV}}}xxxWWWYYY©©©___\\\MMMYYYVVVRRR\\\[[[ZZZWWWXXXZZZ[[[[[[ZZZYYYSSSTTTXXXTTTTTTSSSPPPRRR‚‚‚nnn···êêêaaahhhššššššgggkkkhhhÿÿÿWWWiiigggbbbqqqHHH^^^jjjttttttlllwwwvvvooolll„„„„„„sssllluuuqqqkkkgggkkknnncccaaabbbccc``````^^^WWWYYY[[[[[[\\\[[[```YYYaaa^^^cccccceeebbbaaaccc^^^aaaccc___^^^aaawwwwww\\\\\\[[[zzzmmmnnndddcccccc```aaa```jjjrrrrrrVVVVVVcccoooªªªªªªaaalllÃÃÃÃÃÃ¥¥¥²²²{{{{{{qqqOOO||||||AAAIIIXXXSSSXXXXXX^^^]]]______[[[\\\```]]]ZZZ^^^]]]aaa```aaa^^^``````ZZZHHHVVVQQQWWW```]]]]]]]]]FFFFFFrrrVVVVVVffffffdddVVV······XXXJJJJJJOOOAAA\\\[[[WWWXXXVVV[[[WWWXXXZZZ[[[[[[YYY[[[WWWRRRXXXXXXXXXSSSSSSRRR```¤¤¤···aaaHHHhhhhhhZZZZZZ||||||yyyyyyeeeiiikkkdddbbbkkkkkkfffdddppppppiiiqqq~~~~~~ggghhhƒƒƒƒƒƒ~~~‚‚‚vvvvvvaaafffooodddaaaaaaaaaaaabbb^^^WWWYYY[[[ZZZ]]][[[XXX¾¾¾```^^^```bbbeeebbbbbbaaa^^^aaaccc______aaawww^^^fffYYYzzzzzzYYYnnnnnnddd___``````iiilllrrrVVV]]]]]]jjj sssllllll™™™ÃÃÃÌÌ̲²²–––{{{||||||qqquuuuuuEEE^^^XXXUUUTTTVVVYYYZZZ\\\]]]___bbbbbb```]]]ZZZ^^^\\\aaa]]]aaa^^^```[[[[[[YYYTTTaaa\\\eee```oooooo``````ddddddbbbaaahhheeeZZZUUU···ŒŒŒ```ZZZRRROOOWWW[[[WWWXXXVVV[[[YYYXXXYYY^^^```]]]]]]eeeaaaUUU\\\\\\\\\TTTUUUXXX```]]]PPP===<<>>999QQQcccëëëjjjjjjTTTeeeZZZ\\\[[[···––––––ÿÿÿÿÿÿ¸¸¸³³³•••ÿÿÿÿÿÿµµµµµµ¹¹¹¹¹¹ÄÄÄÄÄÄ‚‚‚ŠŠŠ¸¸¸¸¸¸òòòòòòÿÿÿŸŸŸ¼¼¼ÉÉÉ´´´‡‡‡–––§§§³³³ŽŽŽ“““½½½‚‚‚ƒƒƒ˜˜˜‘‘‘ssssssŒŒŒŒŒŒ’’’ŠŠŠ|||nnnŒŒŒ   wwwwwwfffhhhhhhdddfff```cccccc[[[YYY\\\aaa\\\³³³}}}FFF‹‹‹iii[[[^^^\\\``````aaaaaa```dddfffdddfffdddcccmmmuuulllssskkktttqqqrrr———ÝÝݨ¨¨¨¨¨¼¼¼¾¾¾èèèÍÍÍÿÿÿÿÿÿïïïØØØÙÙÙØØØ•••¼¼¼¼¼¼ÿÿÿÿÿÿ©©©òòòÿÿÿ¼¼¼¯¯¯ÖÖÖôôô¨¨¨§§§ºººååå©©©···æææþþþÁÁÁÁÁÁyyy|||bbb]]]]]]OOOmmm111lllOOOYYYFFFOOOIII```gggOOO©©©<<>>[[[üüü``````^^^[[[[[[ˆˆˆhhhÆÆÆggg444444ÂÂÂtttmmmRRR______kkkiiittt]]]]]]***uuuzzzzzzYYYtttzzz£££¥¥¥WWWWWW©©©ssssssFFFnnnÃÃÃÃÃﯯõõõØØØ   ÀÀÀ¬¬¬ÍÍÍ»»»ÐÐÐÿÿÿöööõõõÿÿÿÿÿÿÿÿÿÿÿÿ¼¼¼¼¼¼ÖÖÖÖÖÖwwwwwwÔÔÔÔÔÔiii†††‹‹‹–––qqqssssss^^^¯¯¯¯¯¯lllggg]]]bbbaaa```jjj]]]aaaZZZ]]][[[[[[```ZZZkkkTTTccc]]]___XXX[[[]]]^^^eeebbb```\\\```fffeeedddcccddddddkkkddd“““zzzeeehhhªªªrrr‹‹‹ïïïïïïmmmmmm   ªªªëëëÿÿÿ¶¶¶¶¶¶ËËËééé···­­­®®®ÝÝÝ···²²²üüü¶¶¶¶¶¶ÊÊÊÊÊʧ§§§§§›››¶¶¶|||ÕÕÕÎÎÎÎÎÎ]]]ccc‘‘‘iii___LLLoooTTTTTTjjjjjj©©©___JJJJJJDDD\\\[[[bbbooocccaaabbb```[[[@@@gggdddbbbSSScccfffŽŽŽŽŽŽyyyyyyGGGgggZZZuuuuuuuuuzzzlllYYYzzzzzz¥¥¥¥¥¥©©©eeeÿÿÿ>>>OOOOOO¡¡¡´´´´´´§§§§§§ØØØØØØÒÒÒÒÒÒ³³³³³³»»»»»»ÝÝÝäääÿÿÿÿÿÿËËËËËË™™™¶¶¶ÿÿÿõõõssssssšššýýýÃÃÃiiiÄÄÄ‹‹‹uuujjjbbbfffqqq¯¯¯cccfff^^^fffbbb___fffjjj```[[[WWWWWWZZZ[[[bbb___LLLhhh```WWWZZZ\\\^^^fff]]]```\\\eeeaaaeeebbbbbbfffdddmmmaaauuuzzz~~~eeekkk©©©{{{ÿÿÿ‚‚‚ƒƒƒ   °°°ÿÿÿÿÿÿÄÄÄÄÄÄéééééé······®®®®®®······üüüüüü¶¶¶§§§ÊÊÊ«««§§§åååÌÌ̶¶¶||||||ÎÎÎooo]]]eee___nnn___XXXjjjjjj   †††µµµ˜˜˜˜˜˜___RRR\\\[[[[[[hhhcccaaabbbFFFFFFggghhhhhhcccZZZSSSSSS”””ŽŽŽyyyRRRNNN rrrssssss’’’———“““ccccccbbbOOOeeeeeeccccccOOO———¡¡¡¡¡¡´´´ÀÀÀ§§§­­­ØØئ¦¦ÒÒÒ«««³³³»»»òòòäääááḸ¸ÿÿÿoooËËË™™™™™™ÿÿÿÿÿÿsssÌÌÌýýýýýýhhhTTTiii···tttgggiiidddfffqqqcccdddeeeccciiicccbbb```\\\aaa\\\XXX]]][[[fffbbb___iiiddd```XXXYYY\\\___^^^```eeebbbbbbdddeeebbbbbbfffbbbhhhgggfff“““mmm~~~kkk©©©ÂÂÂ{{{{{{ÝÝÝ{{{   °°°ÿÿÿÿÿÿÿÿÿŒŒŒŸŸŸŸŸŸÿÿÿÛÛÛÊÊÊêêêËËËËËËËËËÿÿÿÿÿÿ™™™™™™žžžžžžÊÊÊÊÊʃƒƒƒƒƒ£££RRRKKK,,,+++©©©nnnnnnXXXeeeaaaaaa   µµµµµµðð𘘘^^^•••›››dddZZZUUUSSScccJJJvvvdddcccVVV\\\UUURRRkkklll‰‰‰””””””YYYWWWZZZrrrrrr```qqq’’’rrrÿÿÿ“““ccc¬¬¬YYY[[[======eee——————¡¡¡¡¡¡¡¡¡ÀÀÀÀÀÀ­­­­­­¦¦¦¦¦¦««««««òòòòòòÿÿÿÿÿÿfffÿÿÿýýý¶¶¶ïïïeeeýýýbbbttt³³³iiimmmttt¦¦¦mmmdddmmmmmmccc}}}lllhhhiiicccggg```bbb^^^^^^ZZZ]]]___```cccSSS\\\dddooobbbZZZXXXaaa``````aaabbbddddddeeeddddddgggbbbhhhgggddd“““°°°‚‚‚˜˜˜lll××ד““”””¿¿¿{{{µµµðððÿÿÿÿÿÿÿÿÿÿÿÿŸŸŸ¼¼¼ÿÿÿÿÿÿÊÊÊÊÊÊËËËÿÿÿËËËËËËÿÿÿÔÔÔ™™™ÑÑÑžžž¬¬¬ÊÊʃƒƒŒŒŒ¶¶¶£££ŒŒŒaaaXXX©©©KKK{{{QQQUUUnnnOOO¦¦¦¦¦¦EEEðððððð––––––›››cccZZZZZZCCC©©©PPPòòòÆÆÆaaaMMM\\\SSScccÀÀÀ¥¥¥ƒƒƒcccYYYWWWZZZDDDrrr```ccc___ŒŒŒ¾¾¾hhh¬¬¬ZZZhhhŠŠŠfffiiiöööñññ“““™™™ÊÊÊÊÊʵµµéé颢¢­­­ÿÿÿ———£££’’’®®®òòòÿÿÿÿÿÿÿÿÿfffÿÿÿÿÿÿÿÿÿ¶¶¶ÕÕÕýýýbbbÌÌÌÌÌ̆††yyy«««ÄÄÄlllccclll```ccc}}}lllddddddccccccaaabbbccc^^^TTT___^^^\\\ccc\\\\\\bbbttt^^^XXXXXX___```cccaaabbbaaacccpppccceeegggddddddhhhccc```°°°sss˜˜˜lll©©©úúú}}}uuummmþþþÖÖÖÐÐІ††gggÿÿÿ¶¶¶¶¶¶ÿÿÿÿÿÿÙÙÙÞÞÞÿÿÿÿÿÿÿÿÿØØØØØØÈÈÈÈÈÈÿÿÿÿÿÿÍÍÍÍÍÍkkkŒŒŒ¶¶¶¶¶¶ŒŒŒŒŒŒXXXsss{{{PPPUUUÿÿÿnnnMMM¦¦¦EEEooooooRRRPPPPPPGGGYYY???aaa©©©ŽŽŽŒŒŒcccÆÆÆÆÆÆ111SSSSSScccccc¥¥¥¥¥¥………………]]]YYYXXXXXXaaa[[[ZZZ___ŒŒŒ¾¾¾ÅÅÅZZZZZZŠŠŠŠŠŠööööööññññññ™™™™™™ÊÊʵµµéé颢¢¢¢¢ÿÿÿÿÿÿ££££££®®®®®®ÿÿÿÿÿÿââââââÿÿÿÿÿÿÿÿÿÿÿÿ¤¤¤ææ扉‰sssoooÌÌÌ‹‹‹ƒƒƒ†††ÄÄı±±cccccckkk```†††hhhZZZddddddccccccccc___bbb___[[[ZZZ\\\^^^```ZZZZZZaaaUUUXXXWWW___```bbbccc]]]bbbccc^^^oooddddddbbbdddkkkccccccfffjjj‚‚‚}}}ÜÜܵµµ———sssdddþþþóóóÐÐÐÐÐÐgggyyy¶¶¶ñññÿÿÿÿÿÿÙÙÙÙÙÙÿÿÿÿÿÿÿÿÿÿÿÿØØا§§ÈÈÈÿÿÿ§§§¨¨¨ÍÍÍkkk```ffffffNNNNNNhhhhhhgggggg‚‚‚XXXPPPÿÿÿ||||||ooommm\\\ZZZ<<>> mmmmmm„„„[[[ŽŽŽ555LLLLLLvvv>>>rrriii|||ttt¥¥¥±±±   ¾¾¾ÿÿÿÿÿÿÿÿÿææææææÿÿÿÿÿÿšššššš†††ÅÅņ††¾¾¾ooolllvvvÃÃÃvvvttt”””jjjccceeedddddd```eeeaaafff]]]eeeeeefff[[[fffZZZ```\\\[[[\\\^^^;;;FFFYYY[[[\\\```bbb___```bbbgggfffdddaaaxxxddd```bbbbbbffftttiiikkkjjj˜˜˜}}}ŸŸŸ€€€ÜÜÜeee‹‹‹}}}¼¼¼{{{ºººÐÐÐþþþþþþÛÛÛîîî···üüüçççÒÒÒÒÒÒtttvvv]]]]]]YYYYYY``````TTTkkkJJJ CCCaaa``````]]]jjj••••••sssssswwwwww```EEE^^^ÿÿÿŽŽŽPPP\\\aaa£££››››››ššš‘‘‘±±±………åå妦¦¦¦¦”””™™™XXX]]]sssJJJ```ppppppŒŒŒ©©©zzzzzzeee___ÃÃÃmmmrrr„„„[[[\\\€€€666666rrrrrriii†††ËËËÁÁÁÁÁÁÔÔÔÔÔÔÿÿÿÿÿÿÞÞÞÞÞÞóóóëëëááᶶ¶›››ÅÅņ††ƒƒƒ‰‰‰¥¥¥llliii~~~vvv~~~eee^^^ccceeeeeeddd```eeebbbccc___eee^^^fff```___\\\``````[[[\\\ZZZfffhhhYYYWWW[[[[[[ccc___```bbb______fffaaaxxxdddcccaaadddcccccciiinnn———”””}}}ŒŒŒÌÌÌÌÌÌeeeŠŠŠrrrlll~~~ÐÐÐÿÿÿþþþ¿¿¿ïï﨨¨······çç窪ªÒÒÒ   ñññªªªvvv______ooosss```kkkžžž<<<```aaa``````]]]jjj„„„•••sssfffmmmmmm°°°aaaMMMÿÿÿCCCRRRRRRWWW¾¾¾ùùùµµµµµµ©©©©©©îîîååå©©©©©©¬¬¬¬¬¬±±±lllÝÝÝeee```zzzppp©©©‹‹‹………zzzeee___ÃÃÃmmmrrrrrr°°°SSSUUUUUUGGGCCCxxxqqq```ËËËÞÞÞíííÁÁÁ¿¿¿ÔÔÔÿÿÿÿÿÿ½½½ÞÞÞóóóóóóááᶶ¶››››››sssqqqtttfff^^^ÍÍÍŒŒŒgggbbbeeebbbbbbgggjjjdddggg___bbbaaabbbhhhccc___aaa___XXX^^^```^^^¾¾¾¾¾¾WWWCCC]]]]]]\\\bbbaaadddccc___aaafffaaaooofffaaacccdddcccbbbbbbhhh„„„uuupppkkkvvvxxx¸¸¸ÌÌÌfffŠŠŠŠŠŠ­­­llleeeÿÿÿÿÿÿÆÆÆúúú«««½½½½½½ÍÍÍ}}}ZZZ   ËËË[[[vvv†††\\\ssssssffftttžžž___VVVVVVqqqqqqxxxjjj„„„„„„fffpppmmm[[[RRRaaa yyy€€€ˆˆˆWWWùùùùùùµµµ¤¤¤©©©ÿÿÿîîî¹¹¹©©©¬¬¬³³³lllçççÝÝÝeeeeeezzzzzz £££iiimmmhhhjjjçççkkkkkkQQQTTT??????———hhhkkkqqq™™™ÞÞÞÞÞÞÖÖÖÖÖÖÿÿÿÿÿÿÿÿÿÿÿÿ¼¼¼¼¼¼òòòòòòvvvªªª———lllnnnssshhheeeÍÍÍÍÍÍvvvXXXfffgggsssuuugggjjjgggggg\\\^^^aaaaaaccclll^^^\\\\\\XXX[[[``````tttdddZZZ[[[[[[___```bbb^^^cccbbbcccbbbaaaqqqfffffffffkkkjjjkkk```ccckkkhhhÿÿÿ¨¨¨aaa–––¸¸¸¸¸¸hhh«««€€€ƒƒƒ›››eee|||ÿÿÿÿÿÿ¾¾¾úúú½½½ŽŽŽÍÍÍZZZ^^^qqq£££ˆˆˆ¥¥¥ÌÌÌÞÞÞÎÎÎÎÎÎkkkkkk___eeeccciii]]]qqqjjjjjjnnnnnnVVV©©©PPP©©©SSSVVVuuu½½½½½½µµµµµµýýýýýýÿÿÿÿÿÿÿÿÿèèèèèè——————žžž‘‘‘[[[æææ¹¹¹SSSSSS§§§§§§ËËË€€€ÈÈÈ£££mmmhhhjjjjjjttt^^^QQQYYY^^^žžžžžžhhhhhh___¯¯¯ÓÓÓÞÞÞÿÿÿÖÖÖòòòÿÿÿÿÿÿÿÿÿÖÖÖ¼¼¼òòòhhhªªªªªªllllllrrrrrrqqqqqq¹¹¹iiiaaajjjjjjrrruuuuuueee___[[[```hhh^^^bbb______^^^^^^]]]]]]ZZZbbbTTTWWWQQQRRR^^^___^^^```bbb]]]^^^dddddddddaaadddcccaaafffsss§§§iiiiiihhhcccTTTÿÿÿÿÿÿvvvkkk~~~¸¸¸hhh~~~«««ƒƒƒ\\\eeerrrÎÎÎÎÎÎÐÐн½½€€€€€€lllddd­­­££££££ˆˆˆ¥¥¥¢¢¢ÞÞÞÍÍÍÎÎÎeee^^^hhhpppqqq{{{RRRnnn[[[\\\nnn```VVV©©©UUUSSSSSSuuuííí¨¨¨½½½ªªªµµµÙÙÙýýýõõõÿÿÿÿÿÿÉÉÉèèè±±±———¦¦¦£££žžž²²²[[[¹¹¹¹¹¹SSSVVV§§§€€€€€€ÈÈÈÈÈÈhhhfffZZZ”””```pppYYY©©©~~~žžž£££hhhfffÐÐЯ¯¯ÓÓÓÓÓÓÿÿÿÿÿÿÿÿÿÿÿÿôôôôôôçççççç~~~~~~˜˜˜ªªªsssuuuhhh¡¡¡nnnqqqiiiaaannn………€€€cccmmm{{{___\\\^^^___¤¤¤mmmccceee______ccc^^^cccWWW```aaaZZZ\\\^^^bbb]]]eee^^^bbbaaaiiicccdddccc``````eeetttpppmmmfffˆˆˆccc]]]ÿÿÿmmmvvvhhhuuubbb©©©ËËËÿÿÿ¨¨¨eeeeeeÎÎΗ——ÈÈÈ•••€€€hhhlllpppÿÿÿÞÞÞˆˆˆ¶¶¶°°°ÍÍÍÎÎÎeeepppzzzpppfffAAARRR²²²fffhhhóóóóóó|||–––ggggggxxxíííííí¨¨¨¨¨¨ªªªªªªÙÙÙÙÙÙõõõÿÿÿ‚‚‚777777±±±±±±¦¦¦¦¦¦££££££²²²[[[VVV¤¤¤¤¤¤pppppp€€€}}}{{{¡¡¡€€€fffmmmZZZppp‰‰‰fffmmmmmm££££££   fffýýýaaaÿÿÿÂÂÂÖÖÖ{{{bbbþþþÖÖÖôôô›››çççlllÄÄĘ˜˜˜˜˜sssuuuWWWqqqooojjjwwwrrrnnn‚‚‚xxxccc{{{{{{___fff\\\]]]¤¤¤mmmccc^^^bbb^^^cccYYY^^^]]]```\\\[[[___aaaYYY]]]```dddaaaaaaiiiccc^^^fffcccggg```ttthhhmmmhhhˆˆˆŽŽŽeeejjjmmmhhhuuu©©©©©©¥¥¥ÿÿÿööömmmeeeŸŸŸŸŸŸµµµsss]]]]]]lllpppÿÿÿÿÿÿÞÞÞˆˆˆmmm°°°¥¥¥~~~fffyyy‰‰‰‰‰‰pppAAA²²²²²²]]]|||óó󘘘———“““gggaaa´´´‰‰‰‰‰‰………ggg\\\’’’«««³³³»»»ººº‚‚‚………“““‘‘‘¡¡¡‘‘‘lllmmm………ŒŒŒŒŒŒVVVVVV¤¤¤pppeee€€€}}}{{{{{{€€€kkkmmmVVVppp^^^XXX©©©www___ÅÅÅ   pppýýýaaaÿÿÿÿÿÿÖÖÖÖÖÖbbbÖÖÖååååå厎Žyyyhhhmmm\\\______uuu¬¬¬ŽŽŽlllfffrrrjjj[[[dddbbbgggaaa___iii[[[|||```\\\]]]\\\bbb___\\\aaaVVV^^^```\\\aaa^^^ZZZ``````dddaaabbbbbbfffbbb___ccciiikkkddddddgggƒƒƒeeepppŒŒŒfffjjjffflll••••••iiiÿÿÿÿÿÿöööeeeŸŸŸ¤¤¤µµµsss]]]£££iiiiii£££ÿÿÿÿÿÿ‡‡‡‡‡‡mmm°°°lll~~~iiiooo‰‰‰ÍÍÍrrr‚‚‚ýýýaaa„„„„„„ñññÿÿÿ““““““aaa¥¥¥´´´´´´‰‰‰gggggg\\\\\\««««««»»»»»»ººº““““““¡¡¡¡¡¡llllllmmmmmmŒŒŒŒŒŒ‚‚‚VVVVVV½½½ddd••••••pppÔÔÔ‡‡‡}}}nnnpppppp^^^RRR~~~œœœ___ÿÿÿpppcccWWWZZZccccccˆˆˆ‰‰‰bbb™™™åååmmm}}}gggiii\\\hhhbbb‰‰‰ÿÿÿÿÿÿsss^^^cccccc\\\\\\dddoookkkcccaaaaaaddd|||```\\\cccaaaaaabbb```___[[[```]]]YYYaaa___``````___]]]aaabbbbbbdddfffbbbbbb^^^kkkfffdddgggYYYggg€€€pppdddfffffflll\\\•••´´´iiixxxuuuddd¤¤¤¤¤¤µµµµµµ___£££iiiƒƒƒ££££££ÿÿÿ~~~fffššš€€€ççç   uuuooo€€€ÍÍÍ‚‚‚‚‚‚aaaaaa„„„ññññññÿÿÿþþþ{{{___–––˜˜˜˜˜˜nnn©©©©©©¸¸¸mmmvvv½½½–––………ƒƒƒ²²²²²²¤¤¤iiiooo™™™wwwnnnôôôôôô{{{ddddddzzz•••¡¡¡ppp‡‡‡}}}mmmÈÈÈÈÈÈÈÈÈddd888ŠŠŠßßßÃÃò²²aaapppZZZssscccccc‰‰‰‰‰‰™™™™™™kkk†††hhhmmmËËËÃÃƆ†ÌÌÌÿÿÿggg______fffiiioooooo’’’bbbdddeeebbb___hhh^^^___```aaa```___eee^^^aaaZZZ^^^^^^YYY______```\\\___aaaaaa___eeedddbbbdddddd___dddhhh¼¼¼………eeecccbbbccchhh|||‹‹‹{{{fffùùùcccuuuuuuddd¤¤¤°°°µµµnnniiièè膆†›››»»»»»»ììì~~~fffššš€€€ççç   fffooo{{{ÕÕÕ€€€ooooooooo’’’’’’ ÿÿÿ{{{µµµ–––‡‡‡˜˜˜nnnªªª©©©©©©¼¼¼|||vvvvvv––––––ƒƒƒƒƒƒ²²²iiiiii¤¤¤   ™™™iiinnnôôô{{{dddzzzzzzHHH‹‹‹ŽŽŽgggdddQQQ©©©©©©___gggÈÈÈdddfffŠŠŠòòòÃÃÃÃÃÃaaarrr………………–––xxxÿÿÿþþþÜÜÜkkkssshhhvvvýýýyyy†††ÿÿÿrrrrrrnnnxxxnnniiiooosssqqqdddiii```aaa[[[```^^^___eeecccaaa___eee\\\bbbZZZbbbXXXZZZ]]]```___[[[fff___```___aaadddbbbkkk|||bbbiiihhhhhh```rrrfff```aaappp|||‹‹‹nnnfffcccuuuÌÌÌccc¡¡¡¡¡¡uuunnnèèèßß߆††ËËË»»»}}}||||||···¢¢¢¢¢¢ÇÇǺººeeeyyy{{{¶¶¶eeeooooooeee’’’VVVoooæææþþþõõõÄÄÄmmmoooÿÿÿÿÿÿªªªªªª¸¸¸¸¸¸§§§§§§   §§§ÀÀÀÀÀÀ‡‡‡}}}µµµ¡¡¡¡¡¡’’’’’’¹¹¹ŸŸŸŸŸŸYYYÿÿÿ[[[vvvxxx‹‹‹WWWcccTTTššššššœœœ   gggˆˆˆkkkkkkEEE˜˜˜¾¾¾®®®}}}rrr………~~~bbbfffÿÿÿÿÿÿÜÜÜkkkqqqlllnnn²²²¹¹¹±±±pppiiivvvsssjjjcccbbbccc___aaa```aaa^^^aaaaaahhh\\\dddeeeaaa^^^ddd]]]YYYbbbYYYZZZ]]]ZZZ___eeeiii___bbbcccdddeeebbbbbbkkkcccggg```^^^lllrrrfffrrraaabbbkkk[[[```]]]ccc———uuubbb¡¡¡€€€wwwwwwþþþñññ›››ÿÿÿ„„„ÖÖÖÖÖÖ···sss¢¢¢ôôôºººccclll___¢¢¢hhhrrruuueeeZZZ```ææææææþþþþþþÄÄÄÄÄÄoooÿÿÿÿÿÿªªª›››žžž¸¸¸ûûû§§§      ÀÀÀ‡‡‡‡‡‡µµµžžž¡¡¡šššššš££££££€€€‘‘‘DDDˆˆˆˆˆˆXXXXXXUUUsssÝÝÝ^^^EEEÉÉɈˆˆlllgggkkk˜˜˜˜˜˜uuuuuuoooooo˜˜˜˜˜˜kkkfffÿÿÿééérrryyyqqqzzzllllll¹¹¹¹¹¹mmmèèèuuulllvvveeeooocccdddbbb___```kkkddd^^^aaa___hhhjjjdddddd^^^aaaYYYcccVVVYYY```XXX^^^[[[```eee^^^aaaccccccdddeee```\\\^^^kkkccc```^^^llloooppp–––………ÄÄÄ```kkkfffnnn[[[SSSmmmlllccceee~~~mmmmmmþþþþþþ›››óóó„„„ÞÞÞÞÞÞgggmmm———ooo¯¯¯ggglll°°°¢¢¢ˆˆˆrrrËËËiiijjj€€€ªªªªªª‹‹‹ôôôEEEooogggUUUÿÿÿ———jjj]]]›››ûûû¨¨¨      fff©©©žžžžžžtttœœœzzzzzz¬¬¬£££ÐÐÐÐÐÐWWWZZZ§§§………………çççUUU^^^^^^XXXXXXllllllhhhçççrrrrrr””””””nnnÝÝÝ°°°˜˜˜ƒƒƒwwwÿÿÿééérrrrrrzzz‚‚‚``````yyy©©©èèèýýýuuuhhhvvveeeccc]]]gggiiieeegggkkkhhh^^^XXX]]]YYYZZZddd```[[[```cccaaa___]]]___\\\^^^ccc``````bbbaaaccciii```ZZZhhh```[[[kkknnnlllcccbbblll†††fffoooÄÄÄeeettt˜˜˜kkkiiillllllWWWÏÏÏÏÏÏ___ooo›››bbb‚‚‚ŒŒŒŒŒŒÞÞÞkkkggg——————nnn¯¯¯dddeeeÖÖÖbbbbbbWWWËË˪ªªddd………§§§ªªª‹‹‹ôôôBBBoooooo‹‹‹‹‹‹¡¡¡¡¡¡‡‡‡‡‡‡000hhhkkk   eeeddd¡¡¡ÞÞÞÞÞÞ““““““õõõºººeeeCCCWWWZZZ§§§ggg^^^ZZZoooUUUÓÓÓ………¼¼¼nnnmmmçççííírrr”””nnnnnn°°°°°°¡¡¡rrrØØØØØØnnnggg‚‚‚```bbbaaayyyyyyýýýýýý___bbbdddeeebbb```lllggggggggg]]]zzzTTTVVVXXXZZZiiiiii___[[[iii```]]]\\\\\\^^^ZZZZZZ```[[[bbbbbb```aaaYYYbbb```\\\hhhggg\\\uuullliiimmmbbb‹‹‹fffhhhŒŒŒuuuhhhttt‡‡‡iiibbblll\\\ªªªªªª```[[[iii„„„zzzÂlllŒŒŒŒŒŒ‰‰‰rrrÿÿÿÿÿÿ„„„ŠŠŠooodddeeebbbbbb]]]]]]©©©www\\\cccwwwwwwHHHVVV___‹‹‹rrr¡¡¡˜˜˜‡‡‡¬¬¬åååsssvvvvvvvvvfff¡¡¡šššÞÞÞÃÃÃÃÃÃÖÖÖ\\\eeeeee¦¦¦oooqqqjjjhhh›››ccc``````“““¼¼¼mmmmmmffffffxxxxxx{{{ccc€€€€€€°°°hhh¡¡¡¿¿¿°°°ØØØnnnggg```llldddddd¦¦¦ˆˆˆ{{{pppaaabbbdddooofffsssˆˆˆZZZ[[[^^^‚‚‚XXX¤¤¤]]]______iii^^^]]]aaa___```VVVZZZ```ZZZ\\\[[[```[[[aaacccdddaaafff[[[fff^^^ccchhh\\\uuuiiiaaa‡‡‡ccceeeuuuœœœfffuuuƒƒƒ“““nnn___jjjtttcccnnn```dddüüü„„„ëëëÿÿÿ›››gggyyyyyy‰‰‰‰‰‰ÿÿÿ„„„„„„bbboooddd|||mmmmmmhhhggg“““©©©NNN\\\[[[aaaxxx……………… fffUUU[[[UUU˜˜˜˜˜˜åååååå———‹‹‹‹‹‹ššššššyyyggg^^^^^^ƒƒƒXXX[[[\\\\\\]]]ÿÿÿ¬¬¬ŸŸŸnnnddd¶¶¶kkkqqqnnnfff”””xxx{{{ÍÍÍ···€€€°°°hhhÿÿÿÿÿÿ………………ffffffeeelllddddddˆˆˆˆˆˆ{{{———pppmmmeeeaaafffsss]]]QQQdddYYYYYYUUU¤¤¤\\\JJJJJJZZZ]]]^^^bbbaaa^^^^^^]]]^^^WWW]]]ZZZ```ZZZdddcccdddbbb```ooo\\\^^^bbbeeeZZZdddiiiaaafff‡‡‡hhh]]]‰‰‰[[[{{{ƒƒƒmmm±±±nnnvvv€€€ÜÜÜÜÜÜÿÿÿjjjrrr„„„êêêëëëÔÔÔ››››››ÓÓÓWWW²²²ffftttQQQfff}}}dddgggˆˆˆmmmpppnnn×××SSS[[[[[[SSSgggaaa………………rrrrrr]]]¤¤¤|||[[[ZZZfffmmmKKKiiiÙÙÙeee‡‡‡‡‡‡OOOZZZeee^^^†††XXX‘‘‘‘‘‘QQQÿÿÿÿÿÿ¾¾¾jjjÜÜÜvvvhhhddddddÕÕÕqqqqqqnnnnnn““““““ccc………€€€ãããfff±±±ÿÿÿeee………ØØØfff}}}fffiiigggfffÿÿÿêêê———¤¤¤‚‚‚dddeeeaaa]]]WWWbbbbbbZZZYYYPPPnnnnnn\\\©©©YYY```\\\___aaaaaa```ZZZTTTaaaZZZ___cccVVVaaaooojjjbbbooofff___bbbddd___ddddddvvvggggggpppccccccƒƒƒ[[[^^^^^^hhhhhh|||‹‹‹¯¯¯ÜÜÜÿÿÿVVVQQQVVVlllfffgggssssssÓÓÓÓÓÓWWWqqqffftttfffªªªbbb[[[fff{{{mmmppp¥¥¥××׶¶¶±±±nnn```???RRRRRR‡‡‡ŒŒŒWWWXXXÐÐÐËËËÝÝÝ»»»ãã㦦¦///bbbOOObbbÒÒÒºººtttPPPOOOTTTssssss???jjjdddmmmÿÿÿŒŒŒ¨¨¨æææ«««ÿÿÿooo]]]XXXCCCppppppãããããã±±±±±±¾¾¾lllßßßßßßJJJuuueeebbbgggfffêêêêêêuuuiiibbb\\\cccfff^^^```aaabbbdddXXXˆˆˆaaa~~~aaaWWW___XXX```dddaaa]]]```YYY]]]ccc[[[```]]]bbbaaa\\\ffftttVVVfff___aaahhhZZZaaadddaaa———gggdddjjjggg””””””iii^^^eeerrrppp]]]llllllŒŒŒaaajjjQQQVVVCCCUUUUUUffffffHHHrrrvvvËËËââ⤤¤bbb|||fffvvvvvviiiiiieeesssnnnŠŠŠ>>>???ƒƒƒRRRmmmccchhhÞÞÞ ÐÐÐËËËnnn»»»»»»kkk:::MMMKKKbbbjjjºººeeeYYYcccdddmmmnnnYYYYYYeeemmmYYY”””sssÿÿÿfffýýýÿÿÿ[[[\\\{{{JJJ\\\VVV}}}†††ŒŒŒ¢¢¢lll½½½ßßßRRRggguuuiiidddiii___ÊÊÊ\\\dddiiiYYY\\\[[[kkkgggfffbbbccckkkXXXˆˆˆ___cccYYY___XXX```gggZZZZZZ]]][[[]]]]]]YYY]]]```bbbbbb^^^fffbbb†††```fffbbbaaahhhZZZaaagggmmmccc………gggdddgggËËË”””uuussscccdddjjj]]]YYYllltttMMMjjj______FFFRRRbbbggg ËË˵µµeee---TTTOOO@@@CCC%%%fffaaa¶¶¶¶¶¶ÌÌÌÞÞÞMMM™™™ääärrrmmmmmmccc^^^\\\OOOÐÐÐBBB~~~SSSzzzzzzsssDDDHHHÓÓÓjjjgggYYY´´´cccdddmmmnnnYYYTTTUUU{{{```rrrŠŠŠbbbýýýëëëGGG[[[]]]ÁÁÁ[[[aaa††††††ŒŒŒŒŒŒ½½½½½½```PPPcccõõõ¯¯¯dddiii„„„\\\\\\nnn©©©cccqqqlllkkkgggffffffyyyeeedddjjj___bbbjjjeee___nnnggg```hhh```bbb^^^VVVcccYYY\\\YYYaaabbbffffffkkk‰‰‰eeedddaaabbbeee[[[mmmmmmccc………mmmdddfff±±±±±±jjjuuuÕÕÕddddddjjjiiiÅÅÅóóómmm„„„HHHZZZbbbggg©©©iii………BBB[[[~~~@@@WWWwwweee«««UUUooocccccc¡¡¡ttt££££££mmm```^^^bbbsssSSSzzzzzzOOODDDœœœˆˆˆ~~~~~~‚‚‚•••gggcccggggggccccccWWWVVVWWWWWW©©©[[[ëëë[[[hhh¶¶¶WWW\\\\\\\\\mmm[[[gggcccccc   dddaaaxxxiii___nnn©©©cccqqquuuyyy^^^^^^dddbbbaaadddjjj___^^^nnneeeccceeeddddddooo```]]]XXXZZZYYYZZZ]]]___aaabbb]]][[[[[[bbbaaaggg___\\\eeeÉÉÉ]]]llliiifffddddddmmmfff±±±‰‰‰vvvçççhhh‚‚‚___eeeÅÅÅmmmmmmRRRRRR^^^OOObbbhhhbbbiiiPPP NNNSSS¢¢¢ ««««««rrr“““gggdddKKKddd   £££mmmëëëyyyqqqbbb™™™UUUbbbbbbqqqqqqqqqaaa………~~~rrr‚‚‚bbbcccgggSSS<<>>>>> ‰‰‰‡‡‡ OOOPPPmmm\\\^^^tttkkkdddbbbLLLmmm¸¸¸ÊÊÊÊÊÊddd;;;dddttt™™™]]]ggg±±±LLL   ÿÿÿ×××dddðððooo]]]mmm××פ¤¤hhh°°°¤¤¤ÅÅÅccc]]]UUU˜˜˜¤¤¤AAA………………Hj,.libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/SunWheel.gif0000644000000000000000000003444312421456623017057 0ustar GIF89addôÿÿÿÖB)çZ1ÞR)÷„1ÿœBÿœ9ÿ¥B÷œ1ïŒÿ­9ÿ­1÷œÿÆcÿ­ÿ¥ÿïÎÿ½1ÿ½ÿÎ)ÿçŒÿÞBÿÖÿÖÿçcÿÞ!ÿï{ÿ÷µÿÿïÎ1Î1Î1!ÿ NETSCAPE2.0!þGifBuilder 0.5 by Yves Piguet!ù ÿ,ddþ ŽdižhŠn[Êœ*ÏtmËÜ…BuÿÀ Pâ+A$¡rÉMF‰Ò¬ª8T+ ’h‰v\Ú4ÆÜʨq¹œÉp TûHÌí"|,Ï67 v1mz{VoM T…‡ˆa1L<…†•Z’ Mu„…Œ M’nJžb¬U…AG³ ®mD¹6^%·”2¦³žsÇ3 Êx·Þ'ѳ ÔÍØ5Ð #©ÕaH ~#ŽÀ›ôaìíL=hÎ_1~0ì{e±BÆ„PÀ4Уxl ®³¸0A<‡þpᑾ@ñýÀh„Ø@AGA@úsFš=ÎiµÒÓ9`½(2˜ä‡†.•ÎÚP°'ƒŽE˜Yãèµ=€‰áѳPG/óèM©ÁAßMD/ÈÙ5̾1xNUÆ¡.ŵÌ‚ *í^l»>Å7£Æq(^,å`gÑ.ôÒtê¾ýý|ˆªä}E…fö7x“aœßRáÔ ‚ƒ Ò%‚ú¥ëO•=SCFLJ:|K².|EêÊÇ´E®ÛN5$4™_(!Fe ÛZkž@ìª1G_V°Ë);28_LC¥é`˜ ½þÎÓ*xïÛœ½}ƒ›íåž:>åâ€nþþýGOGã EOtcœôR‚ àÄ´¨HQŒŠÅד”ØsÒÔÁhm5Ã]2dx\zÝùcä¨cŽ ØÒB¬¸„%@Î .—]5 ãPFy@Ž°X c'—h)‚"V®ôTf8p€ ¤©fš0¥ŠuƒC‹$S—ÆÉž“P®©@~º™cœž|7C†R$J¨AS¢ùgBú(›ƒ:Ö2.ªŽ}F@€‘Fj*àd„^5g˜‹F`¦šŽ*0Á¬´šA¬oVx©/BjZ •¢9k´ÒJì·ª9%«:R>úê@ýjYl%–˜A±€šJí4#˜±žbRLPŽÕ×ç£ÄÊš=ÛÊŠliNiŸ@^ÎA(&™j4íiZ;A”@Äv;ey¶Í2ž ÿr. „å«?:ë5.øÃR §` ‹‚RTPAbîÃÀ˜›† 鬬J0,¾ äºRÍïÐP® `0gV°ÂØö´í½ù¢  n, w%WãfÂÇÎ+õÏN[í× Lಠr– “`Ó­AÆ]€ôШ[D%ÔECÛÄcÜD݆J¸Y°­¤PâýÚ E ÌgA¿&ÈÂàJ.þv@ŒÃ"ô·ô<à@´NA Œ|?h>‹r=u(±†×Sé³Úê-ÅÕ8»A²‡»ö(âÞU” z-½SO@À§§k´ PP‰>GÞ°u0õ Þ¦ÒgàþûðO=· =U˜#"Çf€ïõ×kÓ±&à²hË:Ñ=ØA íÌ·"€€| œà§ˆºå8 ®‹Mëò÷¹üÇM:‹Þ+ø ‚ úRP¢\! )ɧáß«þ„, `˜”Óbè«ç8ëÌêIŽÞµ& ít˜[!B‰$±'œ‚žŸ†h¦)§|þ‡*¢¦$¥2N©Äób=zãž0K à[ŒÁNµ#*¥Ñ‹ˆ@2Z;)€qa’ÀZà µÁH$øl§Ex €„ ŒCüà@„Ácgìà BÒ,Ú^>€á¼"FƒIÑûVƒëˆRJ™…·s»v=:{ðXV8CÆÉzKŽêF¨¿Ñ¸HÔ™åN0ÙíA&,Y‹^:bŸõt%(x‰3ÉP°0ø`š"j‹)J9•K6+y*F° »½ G–#Ê‚;ö™L4À¶lÌç™_mÑà<ŠØLÎu~àgj˜5Bv%49ÙG<ŽQîôŒ çý gHô`;µƒ™ÍaUP@š€TÊS¢ÇOgV73×8D¬ d *šqb‚¤õD„)¦ACâÂ/î´uΚJXd¢4È¡'Š‹-‡ * Ä*«à’©– …Á@7™%Ä2Û$CNÚˆ1+ù€¦o¹".4 ²Â¡APjÕÙqš+ Ê09D`€„Üc‘HÊ"@`‘ÇÑÃ4o(„å…‘ ê^(AÄ–sÝ‹]¬ ÑT ®{ã4¾Ñð ³Ø @bD ¸D+€ o–ºZ%dÀPÛ’ä™Úâ°xm t;•œÖ·íèÍaq± †±Èeí1z Ϊ9® hØ‚VAEÕî \1} • Ro+k©ZaEê¥5\÷~—ñemsÉ“ÇÞG̯Ž°+@ú/Š­x‡á¥ã xC’<ÁñÌ q©ÁÇ!ù ÿ,ddþ Ždiž$‡’Û¶¾p,Ï4ШðÕ|ïÏ Ü«"ùÆǶI4ƒI5A$”瑘òWu\¢H*Z.ºw “ß#Ê¥Û&ÞØFryÂár}0 …b3{sK(…N4W‚‹of–C’4–‡˜U•–$„ž3 –ŠLy¥+|°X&’w³%§œ0½´&°· K»¼1Ç°Á+Å3È¢ Í Ä#¶–ŸCtÖƒâÙs\»ä/Ø¢/„ ç2¯êÈ»1÷·¤%ôù©#¾ eá@ÝÀUÔcŸ³‚êÌÅa‡gb¿ŠÙ$H{Qqý0D”´f  (l÷ÂßÁ94åsÀ®@*ˆÜ‰ æ h7/ð{wP_·-áp`VèAU1tâsTóæÓŽ¥(ô|€¡†‚¤¨Hzmæ¦Ø†ž &¡d¾’²-{Žª¤o2„JjÒ˜]K «.¬·RÒ„À Ð^Ð`‚Ú¿?‹aè…>ÉKG¼•|‡²KMØb5ÁE²»“ƒÑ¶uy`†f#FFkN“äÂo(˜WÒCv¦Ð@Âá˜D®^eÆ s,ÓGKÞží8™êBÐàü·wϹgœ>šsűe—‡T DXiÉ[Úy碋*úåž[¥Y‚†ã J¦"`£Œ@€ øX@œê„†I¡ eÙe¢ L 묥F«˜¨"3k&E¤[ÊÁ¬³;­]ih6³°ëG79P@—ýw›Á†f@쎉êØ0UgG ¥Škêhë±x*0d®c9ô÷Àcdhµ‰«ŠÊÚ%ÐÁ°ÜÊ[ƒ&>µËbdä•*ÀÕNðrÙ$ðÂvgbOMp)40A”°ÈË墲>'°ñâÚ`ŸwL™°z“¼ÂU|-ZÚÂËå¼êI bþHÁ³2@P#Za®l,»@ÃÌó©¶ÙC’Tàõ’*ø{RÏ cRÅÆ[€ÞÜÃ'5Ÿz*–=ÁÏãäm‰Ú6 $Û„=1¦4ïb¥´Â|72 ŽÂ«°··\'¢K8lxƒˆ;:þ,Þs¦'s%ÅHc•ÖÇ›Õa%‰nô¡²ñ7¸Tx2Ây=ẅOWæX ‹øâ@Zbƒ”Ò9"¹ˆq}*F¦Ù–M:H$<±…aÞDà’Ù]Î äœ ÁñMLã+°í$POª‹]Œ6=±¨ ôÑGGD€IHsŽ¤ðË‚Œ©KSLÈ˼™k‡Q8€:6èÂe…à—èã -èb䲆X q™‹ˆ`‹¹& 8pNIPó›‘DR¸Ð,h€4¸„ÆrOZäó/^Q‚…xSP&4&ý[DjÚq ­žSý|[s !¢”¢O(ƒE3™y¢†˜@ éƒƒ6ã `ñÑMÌ.¸—'Gé,i²Ô¦‘àèÒFPÊ9@³MY$A²)—HQ4IÍolZ5x:”djJ&Œ´ŒÝyÆænªž@,Ä° OOðÐ;†«øÌSn™]` Ž[1ë 0ÐË[Ä” ^ó¡TZ u€…IOÀªˆçâX«^12‡?&§/€á:ÙDHP*D:Eà›¯Nö(sà,VòWhdö´¾he.ûWb.¶$˜Ï_§Á…ݾ⵸候 K‚äDÔ©™Ä-$v+žÄ@pÊM_YWÝè–"(0‚uiAFÕÒ !ù ÿ,ddþ ŽdižhÙ4ië¾p,Ç;ßx®‹%nßnH,Š8Ÿ¦fl:g”%rqF@€SNi@*aÀ0¹¡DÖóƒ0 È"” LàçŸjFÀgŒ}Eˆª0P™'Nå€ÞFÀ\¤Š~Fð矖N (‹òD#)PA4°ã\>ÍðpÄ5ä@,yiíµ—Á¥AZ)£)Õ`sÑbfE@'^å°¤w{ø¥¥}f@Ë­}j*¤…ýÿÀ9g´Z-^E8òÚ«¬(ëàMXšëd^FD°£)y†¥ŸtÓ×Tªë{ßÄ;Ýd⎛!œÒ®Hè{ä AÅÀafJ+G·&Ì.ÃåÐ@x0짳W*Ù„lªwc/óz¡Ç~ø¦B`€zɱŽzý±<±³¸cÁ­TN8³u ø¸:W2@æXP©¦ìîÚ["D˜z´ž¹Zº³[{8íg j¶;]FX 0…  9ë³O@À˜OíÀZ7@ À©X@—79¿(€Ú.øà¤M€  Fö ¼q‘¼®Òé‰ €G ŠHööÛ/f:þ›ÿ=m)K[Æ.P è\>À@”D ¸™ J€ÀèŽû˜£K½p±;Sç ´žeu•Àh¯æ¸ëþïdNK-05æf,‘yBëËOdŠÏkzûPåd$ÿsäñĸYcp{oo‹B Én.º!C €ü6D¿J€ m?bŸ…€” ¥ G¸8ˆ(;Â8`Ê Ü í~-ØÀ@L@@ I) 7°&]ˆƒÞXP1Š@Æ%¡pSx,à€Êel6@¡lpÐ8äp ȘJ!B$‚«‡¶¸&‘žà©x€,X‘þI’Dʶ¨¼|Ña„ƒ®ó½Òéë:AÒÉ–ÌCÜÈ&3•£ø¸AÂQ¡ƒó*že~“ÄkviUžˆƒƒé¥6x_xPw…›½D atRȆâ6AhPz8R<טLŒÞØÅ£*Ø7u7”lÂlÂHU+¥Ä…aöV»DÀ0? r€1ZÚòŽ(Ê ( ÄJT'ÐÊD £K^Z"å¬B7˜ ^YÑІ¼³LöãdÄ š¤Œyg yN ô ˜¢FÌ-ãS„0²v”Š6ÖRþSÅÑ=É",L(OK‘ÁÃÔ;•0š®HBõ¡Ï ,dmÙÚÄE¥Nåi‚‘úo'}>Á€¼Š`L]0&<’¥)€Ù˘Å.ƒ8ŒIuàRø$ †;5A&°$à3°g%p‘ƨv¥èè¡:z\PÓ«/(f:š ´Â@;N` JcÓ“q­_ÖêVX”^@¨k_w°1ím XlàDb)Vêc×9“e„!ù ÿ,ddþ Ždižhj>š*rn,Ït=6är˜íÿÀD"‘]‚Ȥ­q)Æ$¥tz’4euKâDkÎI<¸hÆ¢³i.pŠKcN£+Y›~Ѫf0v[ ‚2Vpc( fmƒS 4Šp(ˆ’R—1|M~%¤Ÿ¡¢'‘.Ž‰©ª$€ N°B«d•_*™|-x¾Á* ¯)Å Ñ.{¹MØÏ=Ò×Ã*àr*LÝMÏÏÇã&M³œà›*CëìíÚAÖ?LŒRÔòÊE²\༣Aƒ§þl„‘§C»èRPÈçÙ­"ˆ90‰" åýHôzÖB…ƒ©Š“A䢒IÔ-Š@¡çÑ©Ì Êp&Á׈S à =áxA*M©rÑIuƒO;ˆòQ8ãA®”[Äæó”`a‰—Tgªˆ€PÓ®© ½¡öJ ¸©ön™ˆ7«R}›Dq÷¦@*„ ÃáWUÜÅ"¸.J¡AÜ$›’/8¡y\7ŸÐ 3 ++—Ú4j < z¦r…-Ó -œ]¼3C‚ËGy†J”ÓDîjF‡Òù nˆÊ€ãÝ°=8Lp×bf%'À`±]úìÉÃÞôWèJQíSú c0Ù¡ññÕ3»æžóþ¨ ‚lACžµu%.¸4ÒÀ¸EPAPà Z @(¦ˆ¢X˜ ¸E“Cù}Œ&TЕ¤xÀ@€¢®…‡H~s48Ž°G'p€ Tie• $V J!8Ÿ8=åöÝÀQ?^©@¸©%Š öÆÅvKþBD€BRù&œ€ú'–t†¦Õ”¸gá‰mF@€jo*Ðc’A!É@ÝY”Vú©À¤–ji¢n‰\“TüÖ©…C¾I%©”Zj­ j¥}i %.^à@VÂikR˜­pÊeS‡7ý.¶ùg­£fÐͲ£æ§B®ÁƒTDÚ°TiìOÔÚ,¸P;Y>IqØpÁ~šîŸ¤~À»@«³¹4øK¬ÆÀ€lÀðì઻n¯´~«jÂM@n "=uq7঻.²]-ëm•á®ÃŸg"lPqø69D‘j©1©Ú¶Üqʘ®UÀ¶§2D8ð%JsD©¾0P`>=þLj‹TÝúm žÉqy‰ÄöJQD¨5Ëp¤÷žË úcØ'¯uhes’6Ý ;w*‰´æJï³}7]A„§ÄD ÛA†7[þ+ÝM,n*¤–ÖÛ·*%¼D.@*@é±Ûº<Ò{ºª+š©È¥¯g üðÄOà:¨~|±Ò@ QR'í´g‰ëP¼Çðœ`\˜WxôpN*€ðAéŸÿ(÷[8Þ|‰iùïôç§ÿAûzs°h( Ý/WÀ €A¥ìò{†F‹uÅ€ÿºÒ·¾E¯p-aRAž–„é†Q­sӥđž˜ì)ør[ž#. Þツ¤ Étk9†Í|ŠfÔèÈ i¡ØkA¸”Š†ôÄn„‡‚ØÔÖ4|å® þÏñEóa˜16™ÊX“#¥`Œ÷°ùEÝD€*Ð¥/1Be"§œHÐŒ¯Ò!É‚À‚«’F2P"|æe='0á;añM~Ê@ y±'j@#;Ù_A_Ø™Ž÷¦›ñú< îjЋvÃ*ÈØÖvNxöS N“È#¨‚QDEžì 2ÑR@ £D¨3KÐ µ€TuDå[N²…ŠQÀ¤5s£‘b…–XóÔæ ‚úª„ ³AN­Ìnj DE,¡…;îK©ô@D9 ÚP—8Ô¬# ƒ/&ƒÚ¨­xë WÈU#0!:eЊ†5‹°hOVÅ÷·t¢¯5hÍn¸í®]ÍcM`¿Ø€Ž@,\)`Òè0hXfP†É¶S\]-–!1¨V¶H˜€kIäYÜJg·#°Bl}ëƒÃtb°Ä…Gv*Š!ù ÿ,ddþ ŽdižhªZ[y´j,Ït]W)vïÿ@‘&ÃA‚ȤR˜¨’ÈrJ­QäB©zIÝo%‘ØJ`_oî+!_.NúûW7äÇ[2§‡©n{G}S|Td oph…JˆIyŽ ‘A"fvH‹de™qœ@ZPoRHc¦ ™o›ª@z¯„>³´µ½¸=Á{ Ä3ÇÀÈ™kÅ=[¨)²ÎµÉÒ> »ÞˆË#WÎdÖÂè4ÚiÔÞä·$—ëXô<>T)Ço¤!úNÑæÃU Ü󧙾vÞ@ÙXôîK)Œ±€]A6ýÆ TUJâÄaxJ¾„÷‹R¡³@ò“  ä3r PР† 8p8:!ßJUMN|“OAz Ö=ØZ•L¼>]¥N•9Öç,'$6PX«¡M$øÖM¥ju®YS‰ hp€Ž„VF%‰éìêÂu¦¶¹›ƒÃŒQ:"!ÜÍnå©aõEà@$Ã4”éôÖ5ñÜÌÎ0ph@Z°—г “6%›_ÉŽ8Z(®ÖÓûæ:Z\XµˆäÞ~Á©O¸shÅuЃ ¶©çØ}>®S‚r*B)ˆ{u–iìSËãÅùÂ>Í»T›œ…ûŠÕI7úÍÓ*¡Ç `àþ*`?]u±}ôÝ ’_zcàá‡h@!áK’™@_‰ÁczS` À8Þh€!*£0=ˆÁ9i¹òc&z˜£ì#iK8f˜x¢”„h#“MvÙ%—:Fùãv6‰¥Œ4À$xé¥0©‡üHÔg'8n©À€:g~ö˜!™>¬Ö_Œ"2i# h¤Šcˆ‹îT! `ðWHÏ9PŽMJšÁ}÷e i“aúˆÝxB[IPQjEéJréŸx£êŸ•:"vY9" D•@BÁDý¢ªÉ% `[‘²ª@ˆ» [‹'pP`€®f=à@ ˆs^&ðyíüäHi«ÀéçZ  ³¨=KÏ·7v h¦è{£¡!© ¬?äy—)óö£d©œ:•ª[ç|¯3‡lŒ ’Ö‚ìÈîàáÉŽ$¬ZHPã²K6Lé N4©“àÍÏM(¡ñ] `T Ð€ŠLÕÕoX ê—*]‹Îú8ÐâÀÌ‚] =ÕRr&ÐŽVj²«_ç±Õ]¸uT°, -éG-Ÿ¬Fjµ_ŽÀ è snr(•+رU@¶ #܇ Äiþª°$O@›&S«M§ÄiÕÀå2hÁˆsSï(€çÔnûítN¡‡A<4àÀðMV€¹ééMš;Œ>úŽC;àüìÆ°ëUo“|Ypëße¢WíMÂ)€ðAéŸÏfõtc)9K˜ù1w~~ú´ß¦±Ç:*ÄÖ³ëñÃ@1«0€Lߺ™b¸‡QiZ’œ6h²m‚Þ¸S ´ ¥Hƒ Ñ@¸‡wU Õ@W8Îä‚è†zÜ™æG$ iÀ]=0 s@'‰H‡;ÜÔ*+[™‹†7¼ëEñ9PÆ À'„—(ƒþ³!#®7?.c'›@à86Á°œíYD^)¹_\æL”SR"1-zt!së¢s('Â9 ñ8 K}²ŸB¨)û áu3þÀ‰Þˆ¤\œÓå]@ k†çÉ òe3€õcIÊ Y`L £ðTQH¢™!¦. ‘Јú“ƒPÒºyL±2pТÞpÀ-†WN$ɨKA‡$äŸ#B¦&О<´6Í™VDZ‚ñe4-ø!ŽªŠ fB+ Þý#ÎTƒ©.E&k¡V¾’LÓ©4`º¯Yõí¡HX™œ8TáÚÔ\OPTÐF­(à)÷*ƒ>¾¢<-­„€JØÂZã ÍÐ+ ²ÙX+XC Çh¤€Îʪ  YD4”Ѐxv}„F;˜ÁžÖ¬I…ªQ…»¾ÄèÌk‹…xX€ª»õÁ”£–݆!ù ÿ,ddþ Ždiž%„Ž×¶¾p,Ï4°Q0öpuïÿ3îÅI8€È$ò1|IåF¥¬® ’æÊ‘Ø!žu\¢H1nóÃ>ÈpRã"‰=]ŸYBÃ#tZ'w].4 h~q€G+xxQ3‰|Œœ‹'“ 3Xœušps¦ž$„xo2œŠ(†¨5ª¦ }O¡§0f´‚#ǹ0—´«T¡°2‰¦Ê¸Ë3ÕÎt Òx1ÎY'ѾÛ1ŽÞ¦âkiÞ•­yì4Íï´¯xÚ(Ý8Åá*9|4Üí£3éÁ:úhe¡P=„1J-„wïE1o 8PˆÐPŒŸ ý0PxX.à¾;ÃV˜{'´ ¨8lÈpçA…0l¤ÕqÅ.oÒnÛ & +\ÒLÀRÓY/CÂ×4Á“‡rJ  @˜ ƒ9»ŒC׉0¤z“°•Px†Â‚š«`C¾rÄ^ð2âî$z³aM[7Š"\Z ã“t“Øe‰ 5†%¶lÍ&úùóøÞ¡—fÄဌ®x ¡ˆœ6·…Ÿjj0pÅè <u¦XqXÅÆô#Ñ.R«;Ðr´÷áÖÎt3ÂR}% €_%b}Ïè‚;-SU½úƒêñ½9èž??\T õ—–€´þ&¨à\U]A Dà@˜" (h)Äe'Á¬œÀ[†ïX @,¶È¢&Þ…rUW!¨•€ÈzùY`@‹)ä,ð™ W88}@àÀBÛ!¡zø)¸b`(àå—^`‘ÒIñt±Ý‰ì‘÷ øc`*pfc²8UšÒÔXâX‘xy案ÚA˜z¾£ZlŸ}È^ðí³"`¢ˆ@€ üX@ZÊ%§œt9Z—lûDÀå—…z9Á¬´†A¬ ‰¢1+¤Jƒa],T¤…έ´;Á­_ÉãPÿ‘€ý€¢¥__ž‰lr˜²w†Ší®]Tðà-œ…DPét*z¬dðηô.»h®£føè$Ž¡'¼ªè¬°P.‘S.˜¦b¨D̉«ªì ,üÆ2Zf‚:p‘ÀJ¨ž3¹j¬lk»¯®$7´`V®¼Q®k[oŒC}«¯—D&øÔ ø œë©ñ¬öŠ%ôAöÛŸJ'ÁAÏþøô¬@o”ì¾Ðßdl »Ú™û,'+~Í-?ÑbÁ·‡òlvp4X:¤ù6Áû5'ÐÆ.ËïÈ4UÎ5.x‚÷¼è±s›²þx­›Šk±)N6Ðå5HÉg° ©À§ÛÞ+ôhʯ£  ÞœMVP„ýd·˜ÀžÁñÈ'?ÁëÜJó9¹é.ƒPÀàÖ.Èå‹Ö^»˜ÊNà€÷ÅÏ\€\ Îníš9÷· €ðAõϯ©ùC? µ¹ÜBÆ”1PÉ~öËߦfV´ôC}©Ø-XT@‡Éo€¢ˆV5ÁØd/šØ>Fô˜ê3, ˜öµ/~ lCù 4 ÿ]ÎRÛ‹W„Ä%½€d¨á* žW(ç'ÀÐ;@¤!9‘H]zâ7pm„¾€À-’V)êGTþ.*’¦pX©FPš‡b¸QgŒ\ÀJÀ:¾iG#4M ÞÇ8R  Î}\¢=ꨈœËÏC DÈtÞÖØG8î mÛ¢P!e‘ódpò@ÉàHÀY²ÎpÄ#BB‰Ò‰€…DÈúT1 c\H“`)<4áMX¢É d¢¡¢•þ€@|&Q—V<M¡˜‘ °FDd#ÄÉ56àæ(¨MÖzÀŸw|Ð ÛÜÇ$ˆyjJ£™…XA1`f1ðË$$95@ „#X3e º’ÄszqÊ?ʉJÐÀr]¸¥4Š<¡ýa“7\Yƒ Là„6„¡KÀ”0‰r$€‰þà8¬{‡5êŒjjMmüü•Ÿ´Cò$‹ÙÝ$à{Î…r¥Ô´'„lg;‚0¡ \hNux»‚0 ¯‘Ç4%KÜ,õˆ@Áo›» s bœÔ•‚ 8Ê*„!ù ÿ,ddþ Ždiž¨é4ië¾p,—Æ•DÍ|ïÿɆ4þŽÈd “ЈrF¥t:s$0ÊE7½Q¿)J"±i\.,% nÓcÉY"ÝXÜø<ñ˜ï’tyxqg[^Gƒ„†‡H|) C=… r‡‰<œ'‹ ¡™1c}ž[=b¤$E±ª<c|¯~3{$ r¹º3£½¿si/{W" ÀÊ3½Î‘•VÜCÄÙ3ܾÎ[Ð$Ó½Œ‡\é1ôcîs0€ÐÀ7,< Úc»vîìU0ÈQOðÀPèƒb€[40{xðÞ+'xý&áE’HÜ&¸èéž ~hh Ñ+žœnà{•Q£„o<’t¨/æ¡Ë#'B²J2Øòš ™Ùcµ ÒnÑ€çVgŒà³Q¹|Ž:À÷X_ ðŒ —d…9|^uC0H…-oÑšˆ®O›J8pØÀ™ó±’}²{[˜´Æ1'YsaÚƒCC;cÐËñ/ƒ˜À:S-…C8v d»£\²?{¨ês#mÙ¤Ý=tÀ!Âó|fÁ.¼»'­×Ã6Ú>ºˆ÷ШWßýÁÚAY[í8þ¼ýC½dGañ‹~Z e÷øÊOùþQJ-°ÁÃ&±aŒ}X`¡Ðö6”°ÁDHñ0 Iúšd(PÀŠ,®¨€ç!¸”DàÀ0G@Sh@ÀâDyÀŠÔ÷ P-‚„8L>¦b À•X^i€G^š†LÆ´ L„Yœ3B™¥5®É劒&"ÁR˜îi%›5öÙ'ŸZ œL>PÁ˜?ÈèÖ/*ªø駰©€ ×ÕzyE  vs¾•Xî©À¨¦zi¦vy V=nf³2Ò¢ž ɦ•¨Fjª¾NÀ*–GF¥èû‘€V4AøWEý äu[T€e¿f`¡…üÚæ¥ÚþÒJ²Oó_ ÚÂ{ §&Ÿ¾žšÁ/áž*lW WQˆMø_öÄ0 ’žd{À•ÜNÐÒuàë¸Gþ¨´¥ÅH|A»oa üʨ ó‰ê9“Àô¨—îü¥¤ à °w ”Ü'ªá¶o¿åbøÎÉ—ó {ûX¸?çœ)†l°Èhêì½K÷Ê/‘Oõw($ÃÁN#HÀò«¢†¨ †*’ªÒg¸Â”áþI$Ûì*,÷XŸ1@æXЫ°Nã´1X'´àmúJ÷‰«)¹ þ…,+÷X‘ TÚ-¾LO@¤N߇L nFºK Z³_÷–˜žÁïÀØꬺêÝQŸ×Æ7à¼ÔºCåü®¾ú–e;`}ïjëÝR·ÐØu€¼Á­=¡0õ¬ €ðAñ¿i÷A{]zNÅ³Û Á<µ‘ ` 8à^Zr¦CpIg¥{_ü>P¿HuÏ_æêÕ ”H€PšSúΰ" Ë}€u4 f0L~ÛDD¨A”°dYR›ÚœV€³ý‚ƒKAìvÔÉ4Štkj!•^"Â:õ L4l…lp$#YñHQL±#ÿñ -þQ”bw€©!I‹¿øF <"ìäÐ@ÆfÈÀY YÍ¢6Àôõ‰0¡NPEýCh^»J|ÆàÅÿX@ˆ|Ô=¢ƒHÏqd‘ÔA­`g£”UÒk˜ñc¸ORˆf#€b=<è=¦‡’p9^ÔdA¶A è,_A›]*§D\d‡§6à.YH&j#áljã:tY¯¬P‡¤PÅb'̘s© 4ÂB! MÀX¯AR h|]ØqÌX(ªÇKÞªy™j(ê˜"Hf9íÃ[ºc*~” RØ蘿¨‡ygŸŠ–?`²>ÐP%;€–qÞ.Z8ýÐ@'ÔéÝÌA˜T¦'ÐQͤ@ê±g> a/jz äÆÚ6»‚ý" ?åÆB|€ 7$÷XŠ§nÀRoT7 y²Óüô§ =P.üÑÈ´šÀ¯Se‰P€|C©Cµk°#ÆŽ“«‰*RÌ´~•£?9,JŸã„’ºM°>=FˆT×xT}"˜Æe1«#ä½ ÿëœ  8Z»Äy„|Íè#ž°R³ˆäN:ƒ¾Îá+pè'n[ð9Äf«ebêp3ÐX$g«0X‡L† ƒO!¡ý\‡r©‹\Ì Íån.R3ŠwPçyq:Ýõ¦#êÅC!ù ÿ,ddþ Ždižhjn¥¾p,ÏtÉIdj\íÿ@Yã"9a4Á¤2‘\Æâr ë)‡OãƒÊMm2® “xš$6Ýt‰õ@û(ãœI’«ïG¢âÃ^.v" {w†ƒ :3[$f ‡†„m3c #‰”–@k„ŠV0œ:y¨•£> *z„P1¬·„²?‹)¨ À0Ž¾„HÁ5¹Fƪ)~Ë ÆnÐ3ž(ÆÇ0Ú˨‘ß3èâ&åì)Mé¿í4öð$ÍŠŒlÝû“j  \[¢ìI u^ÀHäS pºÍ£~ÂQºÊfÖõ¬›Ý8„P¶¿£J®…²å“JàfL4\\»ÛÉcžGyùíCR`˜ §þý& ƧÒY@@ ÁiÑI0A€‡©dtèa‡ Xà WAh€P&B d ãŒthæQÁwÑQbB§=à@ Ø‘Í#p€ 4éd“PãVÎ6ÕãŸ|lÐÐ#0Êø¤D0¦”Æ'—ò bh»ÔÈ$™eÖY'P¦Ùœ.1IlÙq(f`§@¦0 `g\œ„ã@(éäœ L é¦ŒF€é”`AÊÅ‘ÚH&“šF°é¦ªNà©“5ŽÆ§%d6âàd™«fÀ ƒ¬ZfžTÎ$jc“ª$&ªfšA:Áfꪙý Ô8ÓF}Òð@uûÚ­¸ZJ§¦0P¨:lµ|yA5Ø&ô‚›N¥4Éë$pî¤Jl\ÑÈ„­ö¦S­¾ûÊš*µ jCßH0f²j„sÕ滯¯B;m“Ö¦3±–Ù¾€ÑKo‘4Þ@R2¬é³!?ܱ£÷t§HÊ1X¶Z,̬ Œ6k*¢J¬R[€êEwPFô:P¤Ž<s‡Iƒ É×Xì2BmJho9“ ø†Ê.¹æ;î8ÿ1@œXª«ì›0VDq±ÁAGÖ§ª^Ñ7§†2ÚîàÆùE Ų́€¢½B+þòÊ.åŽ[8M\ô"×Q Ày°Ç.û›àiÄ ?`JŽi£äf†z”­Nà€ð®C\@²Æ»Ä·÷Ô ¼§ @|ÐöÖª¼à#²}îR$¥ÝÁ[ýÜ qÉàê¡û7d×!ú®V?ÀàÙ1ü·:ÙÜ–ðÁå~v{µ¨Å®,-|+š¬À‹Áz¿”æÆô?%ëMÆñkz¤ dh'°ÇˆP#¹°F“K *â2X%0 Mж%a+lÔ‡lT¾eø¢+ Z§Ð»[YÀPÌhŒŒö`P¤ûM5,ˆL¤&‹þ*{‚ABðçXQ3è1 4#*'#„˜g–r P eDEÔÊt€ñdUßÓ‘Yñ;iÔ†1¬t‡ª8hðc:Öx!¨ŽðËÜFñ‰@’X!S40´Õð‡>Rœ¢UF!…TàÇ"UÏÖsɨ´Æè8Aù²rYJÅHÀ Ec °1»+/—q27ðAbù†ci‚eâÓÀ!ÍB@5¸ 2J3,§ÍdÉaGR?9š‰esM :91Ô2Ý@æØç%á3Òè& F³•¹‘9çì¤(dÂ`› 5O0žu@qË ðø0B“Å ²t¬,• ]Zƒ"v¢è)é>CÎö  7ÆñA›a ̽Ӧ'Ð@&¥rGÜ`†+ÀP_°Ó8Ted£\ÂR›Ve¨ðç ÊXSÌo©á!3ú²¬‰Ъ>j“ Œ¡V«\ƒZÛq‹0`.«xLÉBÖÙžbÐaO¥‰À*rŒñ®³"ì7AÎ8(¶'1ÅÈúؘNHieÛxY'Pv³i¸ ª Z\Ö³´ÐˆjC;libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm130.hdf0000644000000000000000000000663712421456623016715 0ustar k.‚Ê ±Ê‚Ê ±j‚ {È‚ ,‚ ƒ2‚ —ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =ÿúäA‹ =UTTTUUUTTTUUUVVWXYYZ[\\]^^_``aaa`_]ZVQKFDEGKOSVX[\^_``aaaUTTTUUUTTTUUUVVWXYYZ[\\]^__``aaa`_]ZVQKFDEGKOSVX[\^_``aaaUTTUUUUUUUUUUVVWXYZZ[\\]^__``aaa`_]ZVQKFDEGKOSVXZ\^_``aaaTTTTUUUUTUUUUVVWXYZZ[\\]^__`aaaa`_]ZVQKFDEGKOSVXZ\]__`aaaTTTTUUUTTUUUUVVWXYZ[[\]]^_``aaaa`_]ZVQKFDEGKOSVXZ\]^_``aaTTTTUUUUUUUVVVWXXYZ[[\]]^_``aaaa`_][WQKFDEGKORVXZ\]^_```aTTTTUUUUUUUUVVWXXYZ[\\]^^_``aaaa`_][WQKFDEGKORUXZ\]^__```TTTTUUUUUUUVVVWXXYZ[\]]^^_`aaaaaa_][WQKFDEGJNRUXZ[]^^__``TSTUUUUUUUVVVWXXYZ[[\]]^__`aaaaaa_][WQKFDDGJNRUXZ[]]^____SSTTUUUUUUVVVWXXYZ[\\]^^_``aabbaa`][WQKFDDGJNRUXZ[\]^^___SSSTUUUUUVVVWWXXYZ[\]]^^_`aabbbaa`^[WQKFCDFJNRUXZ[\]^^^^_SRRSTUUVVVVWWXYYZ[\\]^^__`aabbbba`^[WRKFCDFJNRUXZ[\]^^^^^TRRSSTUUVVVWXXYZZ[\]^^__``abbbbba`^[WRKECCFJNRUXZ[\]^^^__TSRSTTUUVVVWXXYZ[\]]^__``aabbbbba`^\XSLEBCFJNRVXZ[\]^^___TSRRSTUVVWWWXYZ[\\]^__```abbcccbba_\YSLEBCFJOSVXZ\]]^__``UTSSTUVVWXXXXXY[\]]^__``aabcccccba_]YTMEABFJOSVYZ\]^__`aaUTSRRTVXXXYYYYZ[\^^__``aabccdddccb`^ZUMEABFKOSWY[\^_``abbXWVTRRTVXZZ[\\\\]^__```abbcddddddca^[VNFABFKPTWY[]^_aabccXXXXWUUUVXZ\]^^^^_`aaaaabccdeeeedcb_\WOF@AFKPTWZ\^_`bcdddha[XXXXYYYY[]^_```abbbbbbcddefffedb`]XPG@AFKPTXZ\^`acdeff€zpd\YYZ[\]^_`abbabbccbbccdeffgffeca^YRG@@FKQUX[]_`bcefgg”ˆ|nd^\\]_`acdeedcccddccddefgggfedb^ZSH@@FLQUX[]_abdeghhŸ˜Žtjda`aabcefggfeddedddeefghhgfeb_[TI@@FLQUX[]_acdfghh£ œ•Œvnjhhgggghhihhgfeeeeeffghhhgfc`\UKA?FLQUX[]_acdfghi¡›—”Ž†~wspooonnnmlkjihgfffffgghiihfda]WLA?ELQUX[]_abdefgh˜’‘‘ˆƒ~zxvvuuutsrpnljihgfffghiiiigeb^XNB?ELQUX[]_`bcdeggŽŽŽ‹‡„€~|{zzzyyxwurnkihgffghijjihfc_YOC>ELQUX[]^`abcdeeˆ‹Ž‹ˆ…ƒ€}|{{zzywsokihggghijjjigd`ZQD>ELPUXZ\]_``abcdŠŒŽ’““’‘ŽŒ‰‡„}|{zywtokiggghijkkjgda[SE>ELPTWZ[]^__`aabŒ‘”•–––•”“’Ž‹‡ƒ|zzywsnjhggghjkkjheb]TG?DLPTWY[\]^__``a‘”•–––––—˜™˜—”‹†€{xxxvrliggghjkkkifc^VI?DLPTWY[]^__``aa“••••–˜›ž›˜•’ˆyuuvtojggghiklljgd_WJ@DLPTWZ\^_`abbbb‘”••–—šŸŸœ™”‘‘‘Ž‰wsstqkhgghikllkhe`YMADLQUX[^`bcdeeff’““”—›žž™”‘”––”Œ†}sprrmhffgiklmljfb[OBCLQVZ]`cefghhii‘‘‘•šžœ—’‘–¢¤¢œ”†unnpnigfgikmmmkhc]QDCLRW[_cehikllll‘”˜š›™•‘”œ¦¯³³­¤™„}vmknnjgfgikmnnlie_TFCLRX]behklnopqq‘•—˜–”‘’– ¬¸¿À»²¦˜‹xslhkmkgfgilnoomkgaWIDLSY_dhkmoqrrss‘•––”’’— ­»ÅÉź­Ÿ‘…yqniehlkhghjlnppolid[LEKT[afjmpqsuvvv’•”“‘’–žª¹ÆÍÊÀ²¡’…zpigfceklighjmoqqpnkf^PFKT\bhlprtuwy{}‘’‘‘‘•›¦´ÃÌÍƸ¦“ƒvmfa`badjlihiknprrrpmhaUHKT]djnrtvxyz{~Ž‘‘‘’˜ ¬»ÇÍʾ®š†uha]Z[^_cjmjijloqsttrokdZLLT]ekptwyz{{{{Ž‘‘”›¤°¾ÈËÄ·¤{j^XUTW\^cknljkmprtuutqmh^PMT]flrvy{}~~~}Ž‘•œ¦²¿Çƾ°ˆtdXSQQU[^elomkmortvwwvspkbVOT]fmsx{~€‚Ž‘•¦²½ÃÁ¹ª˜…rbWRPQV\`goqnmoqsvxxxwurmf[RU]fnuy}€‚ƒ„„…Ž”œ¥°º¾¼´¦•ƒrcYTRTY^dkrrpoqsuwyzzywtpjaWV]fou{~ƒ…†‡ˆŽ“š¢¬µ¹·¯£”„tg^XWY^chputrqsuwyz{{zyvrme\Y^fov{‚„†ˆŠŽŽŽ—ž§¯³±« “…xlc_]_chntwvttuwy{||}|zxupi`\`gov{‚…‡‹“ŽŒŽ“š¡©¬«§ž“‡{qjfefjntxzxvvxy{|}}~}{yvqle`bhov{ƒ†‰‘–ŒŽŽ‹‹•›¢¦¦¢›’ˆvpmlmpty{{yxxz{|}~~~~|zwtnhdeiov{ƒ‡‹”œŠ‹‹‹‰ˆŠ•›Ÿ ž™’Š‚{vtsuwz}~}{z{|}~~~}{xtpkghkpv{€…‰‘š¨ˆ‰‰‰ˆ††Š”˜š™–‘‹…€|zz{}€€~}|}}~~~}{xuqmjjlqv|†ŠŽ–¥¶‡‡‡‡†…ƒ…‰‘””“Œ‡„€€‚‚‚€~~~}{xuqnllnrw~ƒ‡Ž—£²¾††……„ƒƒ‡‹ŽŽ‹‰†„„ƒ„„„„ƒ€€€€€~}|zwurommotz…Ž™¤®·¿……„ƒ‚‚€~…ˆŠ‹‹‹Šˆˆ‡‡‡††…„‚€€€~~}{ywtqnmnrw|ƒœ¥«°µº„„‚‚€~}}€ƒ†ˆ‰‰‰ˆˆˆˆˆˆ‡†„ƒ‚€€~~}|zxurpooqsw¤¨«¯³µ„ƒ‚€~~}||~‚…‡ˆ‰‰‰‰‰‰ˆ‡†„ƒ‚€€~}}{zxvsqpooqv€›¡¤¦ª¯±²„ƒ‚€~}}|||~„†ˆ‰ŠŠŠ‰ˆ‡…„‚€€~~}|{zxvtrqpoqu}Š–¡£¦ª®°°9999j‚,‚.‚libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm120.raw0000644000000000000000000000626112421456623016735 0ustar RRRRQQQPPPOOOOOOPQRSUVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRRQQQPPPOOOOOOPQRSUVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRRQQQPPPOOOOOOPQRSTVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRQQQQPPPOOOOOOPQRSTVXY[]^___^\YVRNJHFFGIKMNPRSUVWWXXXYYRRRQQQPPPPOOOOOOPQRSTVXY[\^___]\YVRNJHFFGIKLNPRSUVWXXXYYYRRRQQQPPPPOOOOOOPQRSTVXY[\^___]\YVRNJHFFGIKLNPRSUVWXXXYYYRRQQQQPPPOOOOOOOPPRSTVWY[\^^_^]\YVRNJHFFGIKLNPRSUVWXXXYYYRRQQQQPPPOOOOOOOPPQSTVWY[\^^_^]\YVRNKHFFGIKLNPRSUVWXXYYYZRQQQQPPPPOOONNOOPPQSTVWY[\]^_^]\YVRNKHFFGIKMNPRTUVWXYYYZZQQQQPPPPOOOONNNOOPQRTUWYZ\]^_^]\YVRNKHFFGIKMNPRTUWXXYYZZ[QQQPPPPOOONNNNNNOPQRTUWXZ\]^^^]\YVRNKHFFGIKMNPRTUWXYYZZ[[PPPPPOOOONNNNNNNNOPRSUVXZ\]^^^]\YVRNKHFFGIKMOPRTVWXYZZ[[\OOOOOONNNNNMMMMNNOPQRTVXZ[]^^^]\YVRNKHFFGIKMOQRTVXYZZ[[\\NNNNNNNMMMMMMMMMMNOPRTUWY[]^^^^\YVRNKHFFGIKMOQSUVXYZZ[\\]LLMMMMMMLLLLLLLLMMNOQSUWYZ\^^^^\ZVRNKHFFGIKMOQSUVXYZ[[\]]JKKLLLLLKKKKKKKKLLMNPRTVXZ\]^_^]ZWSNKHFFGIKMOQSUWXYZ[[\\]GHIJJJJJJJJJJJJKKLLNOQSUWY[]^_^][WSOKHFFGIKMOQSUVXYZZ[[\]EEFFGHIIIIIIIIIJJKLMNPRTVY[]^__^[XTOKHGFHIKMOQSUVXYZZZ[[\?ABCDEFGGHHHHHIIIJKLMOQSVX[]^__^\YTPLHGFHIKMOQSUVXYYZZZ[[@>=?@BCDEEFFFGGHHIJLMNPRUXZ\^_`_]YUPLIGGHIKMOQSTVWXYYYZZZC@><<>@BDEFFGHHIIJJKLNPRTWZ\^```^ZVQMIGGHIKMOQRTVWXYYYYYYWWUOHC@ACEGHJLMNPPQQPPPRTWY\^`a`_\WRMJHGHIKMOQRTVWXXXXXXXmnmg]SLGFGIKMPRTVWXXXWVTTVY\^`aa`]YSNJHGHIKMOQRTVWXXXXXXXkuyulc[VSSTVY\_`aaa`_^]\ZXY\^`bba^ZUOKIHHIKMOQRTVWXXXXXXXfr~wojgffgjloqrrqomifca`^[\^abcb_[VQLIHHJKMOQSTVWXYYXXXWzˆˆ€wsrsuwy{}~}{xtojfdc`^^accca]XRMJIIJLMOQSUVXYYYYXXXk|‹Ž‡}xwxz}€‚ƒƒ‚‚‚€~{wqkfddb`acddb^YTOKIIJLNOQSUWXYZZZYYY„Ž‘Œƒ|{}‚…‡†…†ˆ‡„~|yslfddcaceec`[UPLJJKLNPRTVXYZ[[[ZZY{ˆ‘“†ƒ†ŠŒ‹ˆ‰Œˆ…‚€~{yslfeecceedb]WRNKKKMOQSUWYZ\]]]\\\~…”‰……ˆ‹ŽŠŠ‰†……„|yvpieedcefec_YTOLKLNOQSVXZ\]^__^^^ƒ‰”‘Šˆ‰‹ŽŒ’”Œ‰‘’ˆ€ytqkededeffda[VQNMMNPRTWY[]_`aaaa`ƒŠ‘“ŒŒ”—Ž‹“¡Ÿ˜‚xqmjeceeefgeb]XSPNNOQSVXZ]_`bccddd†‹’‘’•˜”‹•¤­¬¤—Š~skgfcaceefgfd`ZURPOQRUWY\^`bdeffgg‡‹‘‘‘’Ž“™™“¤²´«~sjc`a`_beeghheb]XTRQRTVX[]`bdeghhiiˆŒ‘‘‘‘‘—š•Ž›¯·²¤‘pf_ZY[\]adegiigd_[WTSSUWZ\_aceghijkkŠ‘‘’Ž’˜˜‘¤µ·¬›†sdZURRUX[`efhjjifb]YVUUWY[^`befhjkllmŒ‘‘“™–Ž”©¶²¦”k\SNLNRVY`eghkkjhe`\YXWXZ\_adfhiklmmn‹ŒŽŽ”—”Œ–ª³­ ŽzhYPKIKPUZaghjlmljgd`\ZZZ\^`beghjkmmno‹‹ŒŒŽŽ”•‘‹•¨®¨›ŠxfYOJILQV\dijlnnnmjgc`]\\]_acegiklmnopŠŠŠ‹Œ‹““Š’£©¢–†vgZQLLNSY`hklnpppolifc`_^_`bdfhiklmnoq‰Š‰Š‹‹‹Š‘‘ˆœ£ž’„uh\TPPSX^flnnqrrrqolifcaaabcefhjklmnpr‡ˆ‡‡ˆŠ‰‰‹Œ†ˆ”œ™ƒvj`ZWWZ_elppqtuutsqolifdcbcdeghiklmoru††……†‡ˆˆ‰ŒŽŒ…ƒ‹””„xnfa_`chmqstuvwvvusqnkhfdddefghijlmptx††„„…‡‡‡‡‰Œ‹…ƒŠŽ‹„|smihilpsvwxxyyxxvurpmjhfeeeffgijkou{}„„ƒƒ„…†††‡‰Š…~}†‡„ytqqrtwz|||||{zywusqnkigfeeefggimt|ƒ‡ƒƒ‚ƒ„…………†ˆ†€zz~‚€}zyyz|~€€€~}{zxvsqnligfeeeeegkou|ƒˆ‚€‚‚‚ƒƒ‚„……{wwz|}~}}~‚ƒ‚‚€~}{yxuspnkigeedccehkowƒ‹€€€€€€‚ƒ}xttvxz{}~€‚‚‚€}|zywtromjhgecbbdefjt„‘˜š€~~~~~zusrstvxz|}~~}|{zxwurpnligecbbcbagu‡–Ÿ¡ ~}~~~}}||}}|xurqrstvwyzz{{zyxwvtspnljhedcca^^fxŠ˜¢¦¦£~}}}}~~~}}}|{{{{zxusrqrstuvwwwwvvusrpnljhfedb_\]gw‡•Ÿ¥§¦¤~}|}}}|}||||{zzzzywutrrrrsstttttsrqpnlkihfda^[]fs‚š¢¦§¦¥}|||||{{zzz{{zyyyyxwvtsrrqqqrrrqqponmljigda]\^ep|ˆ”ž¥¨§¦¥}{{{{{zzyyyyyyyyyyyxwvtsrqppppppoonmljhfc`]]_emw€‹– ¦¨¨¦¤|{{{{{zzyxxyxxxyyyyyyxvusrponmmllkjigec`_^^afmtz‚™£¨©¨§§|zz{zzzzyxxyyxxyyyyyyyxxwvusqpnmlkjihfeedegimrw|ƒŽ›¤©ª¨¦¦|{z{zzzzxxxyxxxyyyyyyxxxwvvuuttsrqqponmllllnpty}„›¤©ª¨¦¥libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm110.raw0000644000000000000000000000626112421456623016734 0ustar RRQQPOOONNNNNNNNNNNNOOPQRSSTUVWXYZZZZYXXWVUTTTTTTTTUUUUVVQPPPOONNNMMNNNNNNNNNNOPQRRSTUVWXYZZZZYXWWVUTTTTTTTTUUUUVVOOOONNNMMMMMMMMMMMMNNOPPQRSTUVWXYZZZZYXWVVUTTTTTTTTUUUUVVNNOONNMMMLLLLLMMMMMMNNOPQRSSTVWXYYZZYYXWVVUTTTTTTTTUUUUVVMNOONNMMLLLLLLLLLLMMMNOPPQRSTUVXXYYYYYXWVUUTTTTTTTTUUUUVWNOOOONNMMLLLLLLLLLLMMNNOPQRSTUVWXYYYYXXWVUUTTTTTTTTUUUUVWQQPPOONNMMLLLLLLLLLLMMNOPQQRSUVWXXYYXXWWVUTTTTTTTTTUUUVVWSSRQPOONNMMMLLLLLLLLMMNNOPQRSTUVWXXXXXWVUUTTTTTTTTTUUUVVWWVTSQPPONNNMMMLLLLLLLMMNOPPQRTUVWXXXXWWVUUTTSSSTTTTUUUVVW[YVTRQPPOONNMMMLLLLLLMMNNOPQRSTVWWXXWWVUUTTSSSSSTTTUUUVVW[ZVSRQQPPPONNMMMLLLLLLMMNNOPQRTUVWWWWVVUTTSSSSSSTTTUUUVVW]XTRQQQQPPOONNMMLLLLLLLLMNNOPRSTUVWWVVUTTSSSSSSSTTTUUUVVW[XSPOPPPPPOONMMLLLKKKKKLLMMNPQRTUVVVVUUTSSSRRSSSSTTTUUVVW^VPNNOOOOOONNMMLLKKKJJJKKLLMOPQSTUVVUUTTSSRRRRSSSTTTUUUVWYRNMMNNOONNNMLLKKJJJIIIJJKKLMOPRSTUUUUTSSRRRRRRSSTTTUUUVWUPLKLMMMNMMMLLKJJIIHHHHHIIJKLNOQSTUUUTTSRRRRRRRSSTTTUUUVWHLJJKKLLLLLKKJJIHHGGGGFGGHHJKLNPRSTTTTSSRRQQQRRRSSTTUUVVWDHHHIJJJJJJJIIHHGFFEEEEEEFGHIKMOQRSTTTSRRQQQQRRRSSTTUUVVWACEFGGHHHHHHHGFFEDDCCBBBCDDFGIKMPQSSTSSRRQQQQQRRSSTTUUVWX=?ACDDEEEFFFEEDDCBBA@@??@ABCEGILNPRSSSSRRQQQQQRRSSTUUUVWX:;>@AAABBBBBBBBAA@?>>==<==>@BEGJMOQRSSRRQQQQQQRRSTTUUVVWX78;<=====>>>>>>==<;:988889;BFIMOQRRRRQQQQQRRSSTUUVVWXY568::87655667788888876520..16:>CGKNPQRRRQQQQQRRSTTUUVWXXY=<<==;:877779:;<>@BDDDB@;61-/5:@EJMPQRRRRQQRRRSSTUUVWWXYZ79=ABBA?>=>?@BEHLNQSVXXVRJA70/5@BEJMOPQTWZ]`bcddddddcba_][Y[`iˆropsuwxxyyyywxwrswpcVMGEEFILNQTX[^`bbbbbccbba`^][YWVX[_€uonprtvwxxwwxvvwtoquskbZUSSUWZ]_aaa`________^\[YWTQNKIF¶£~ß±×RBH•X ƒƒ¨Õ£\9ÞHÄ]‰…|€Š"ýÑI*ªxÞmÙE©—]sÎ9kœy‹ ª™Æ9ã £â•CE¤Ç0Àœ3Ì8\€Ñg25HÕ"7$S…Ÿ\Ä©'0b6À0\ÃÅr™ùàCfRq)09Ò0%°ôØgXŠ£m,•0L{ŽŽäcuš§ùçñé÷\¬]=„iT”–zéHì Ù)CX¦›r™Öš®®‚fâs3›ÞY åê«s™ˆ˜T+­dÞ\ÑQ+ §$Éç¬Tã¹çž¶…ÑÈj«É¶+/yî™kî±ã>tczþ™4ÝJþ¥×k£ ÝÈ’[6!û.DYPà ۉÁüÑÅg¬ñÆwìñÇ ‡,òÈ$—lòÉ(?!ùÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðÆ‚î  †»‚s¦$¸‡I;äÀ™)'á½/m¼üpïŸÇƒá‰)ÆË8pd&E¸ã%j×¼…©Ï§Á>ÿðÅ™Å7/Nõ$¥yäZCˆ•àœ~M Qm*™JË`AŠÛ5\0¼±°”"Å>ÿV ôh‡„ '…°xÃЋ›µ, P»ÔàÈ/ÞJ%HÀMš0²/±À”î,"ñ©l¾ÀÀfÍè]šk=;­æm €Ÿ\‰âßÏ?÷4AáJÓÈZ_nVZS8.^Zþx©fÃÑ'G>‰(„ÃÀ:8‰x…¢É§)X¬éÌÅ+Šf¼3é%Œ$ç#Ž¸`Ä=#Ýs š4¡DrI ¨HÉtP\t%G¸ò‰&Ÿ"‚!àÓ Ž<`'(@Þ|8’JuÒH4Ü’%F¸ðI'0&X!IZ2"‘"0â0ü2ÒH…ÐMr…¨I'Dº2ÅHü1R\Â(£SZ‰PHY@ŽtBÉ „©À ”xI@"¸àÒK1·N# ⊠.¹Pç¤0 J2@’ŽDg íáTˆ#ŽÈÉ'Ž<ªÀ#C’È¥z;ÕÁCþý1e#Ÿ #Œ”@˜B‰­Dré„KàQew é3IvRÄ›o‚)&Ð`%T‡ E÷HsŽè°3@˜°3.;Ì@­K?8Ñ>{œÎ1ÍPFo|ÈëÅpÁâ Ó 0i~ôÁ)jtñ'´ƒBàF]ÜP¥EîLÀF$¥@¢+.àCSDˆh‰$‰ Æul,Ñ ‹Ì Ɇ¸B Ë'@‚&®(‘D­–(0ÒdIÄáH.E;ÒS+õÔG'Ѳ$U@r!S=RR¤çÒJtÃH.0H!pŠ@òK)ŸH$FVµŽáÀ¯š˜àR0r"rŒXB†ÑÈÝÁEÄ&ˆ,À‰B€>#qîÈ.}ÞH3È;‘#ýí‚& h²8ƒ0(D$|W€Â“è óDz¼ä‚4?#ís¶ð…<@bihQ??X(O¹ó-IÍGn‘²rÅÐÓ@÷t ×LxkT/AÐH0öÈ~$ÿüô×oÿýøç¯ÿþü÷ïÿÿ  h‘€!ùÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðF„rˆ°£ßÀ9Q ”c$ypbʉ g&œ„òŒ¤1ò>ÿÈ£ 2O‘7äÄ‘YSf–#­u+%òÇ¿>ÿ蛀€/o_F˜I–éM„"iøº0r¤º@Oîi+K)šê™°klÜ@}1ÕÄH øT üSF‰AG e‰åÍ yË–í{¡Ú4£Þ²HáT¢IŽ*çðóÄE'#¨ª°Ñ-l^½zû¶­¦­&M%P¨ó³ØO‰ vdæ¦6åôeÁkR¦ |rAÈ’@ëþÔâI“NVnÙ¸  f³›ÑÒ€¢“+š\Lq'R)Ž$áŠ& Ì÷Ü^g Þè¤É'œtâ‚ð€:"$Ä'ö¿Œ$Gt{%4¶Dà%"XÒ‰}¶…®DȈ Œ|èEWÐÑdN:µõ`'vü@E¾x]I1E¢B!µE á "$I!Ÿ8’¥ ´¥R$Ƈ>#!ò S$—¥$xB @rŸ®!Ò$îeRBú@%Òƒœ@ø ‹IŠ0I'žéŠ!GŠ$%‚ƒ&N!Pi‘œ B@’(á‹""Ò sÄ‘&þz8G›®‘å‘£ö!VR¸’Ä‘ÔÑcSX9T¨XÓL3ìL¤ì,#N3DDF 3¹#‘<Ä(ãÌ2TTñ HúÀ nPÁÅ2Ïs‡2é£Q k´¡HGéÃ#YC]Ü0¬÷L WŒDD‡øà† x‚H\ƒfMÉ#"!#%ŸAÒÃ42"à'Iˆ´ƒMziÇóáûƒT:ß» Ì"m'®"©€máÜ£:?³ DP*Å9í!I$àˆ “„ÛLól „4±R3$!…" Á Z/]ÒÁ#R´!Ü#’”"8‰øX¤ÏóÅ—G<ôCYrË«‘Ýti;’m} ¬ÜpÔ‘©F¢û^>ü­”^{|¤ýöÜwïý÷à‡/þøä—oþù觯þú!ùÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðF‡ò¸!áœ?Ô9(ŽK9.á”|(€ÜÄ'òfŒ~zb”I´(Äjdk1£_Á: ²m@`¨Õ—DaÎtH J œøìwìY‹^% –_[D ñAPˆ)¾fÑÂNß´€·6œ ÊF-VK®¬ü7Ï CµlЪ‚u¨Z¬mؘfŠ=ýP4ÄËTkS¿„ˆT†ú! )Œ¶TY¥ÍU­—ádÆéh "38í0ŠÉÎ+g…øA–>)ÁS F®ˆþ`±6zQ¶Ш1(‘+HDppï舋þþ–.üa°š|b ü#Ÿ¸’NÜU…€ `Éž I8Àæ¥Q?„‰@‚˜€Œq?ð§Zé0avŸHÁâ œtòÉŒU©¦ZDîàÈ'BºÀâv¢É8„˜Lñd€#(Á}Èçˆ å ™÷H¤#ÅœsF5ˆ³ÌTÉadex8%?y “F]DÌÀ]“>ýƒÏ0ÈçÚhÐÅúa•–<Ác)¼bÄ>Ð !4€é•çÁä‘Eßz`‰‘¸@ª‘8ÂI åµ Ø«ý'>ì ’|åݨ°ź€.¤„SŽÄWf¦ª1Ñö1RN(‘„(කʡ-Dz˜PˆR €$‘#½îܺ%©D!&”Ó: ˜`D7ô•¨eCñë>ÔKDÉ5AD—5þ¥¨Kœj¤¥à“<(˜P@™Ò- GÇQZàýP– kš£JHËà”°.õÑè@ý A5PÇ™rè4ôÓPG-õÔTWmõÕXg­õÖ\wíõ×!ù ÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðF‰sþü XGN‡ùôÀ‘Çâ9ð Ô—À‡GƒõàÀ‰£s¥Ï•c`‘'– SþdÉRgS0¬(/‹‚ê–jeÚÒ¢ Qå¾Ue`Nž>›rý©Ñ†1Ä*«”«Z§Z5Rˆ÷Ÿ˜,ÔŹ‹WkZQ´\x%T< Û-,G#„‡8ä"Ú»kCë z(33S8LNK™µÆ8J¦àDÊÏ­%÷|½BÊŸ?MŽÈ­´FuŒøùs¤€¹£³Ô(OÈŠß&Ž€i½µ0P‹óVþ8úÝèÈÖ†AûÔˆo £?} !ê‰[w^‹ú\Xø­ÀE}¼¢-¥Q?¤ñ› Wœa™ÃEØ@LO«-(Ç=å; ÃZ r7F`áƒBÀPaz” h!?ì Ev·bWuÀ;‹†±V™EýÀ€Âl(ˆ@ê©õQ IÌF d'dk.1[(Èd‹$Z1Û4Ìá}„}†–XA…^N6¤EpÔ =Ìàewé}¤Ç ¿õPÆ?ë„h¨rÔóÑ7ôƒ„F×; OWuÜTמjé¡O¥ †*ꨤ–jꩨ¦ªêª¬¶êê«°²!ù ÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðF‡ò¸!áœ?Ô9(ŽK9.á”|(€ÜÄ'òfŒ~zb”I´(Äjdk1£_Á: ²m@`¨Õ—DaÎtH J œøìwìY‹^% –_[D ñAPˆ)¾fÑÂNß´€·6œ ÊF-VK®¬ü7Ï CµlЪ‚u¨Z¬mؘfŠ=ýP4ÄËTkS¿„ˆT†ú! )Œ¶TY¥ÍU­—ádÆéh "38í0ŠÉÎ+g…øA–>)ÁS F®ˆþ`±6zQ¶Ш1(‘+HDppï舋þþ–.üa°š|b ü#Ÿ¸’NÜU…€ `Éž I8Àæ¥Q?„‰@‚˜€Œq?ð§Zé0avŸHÁâ œtòÉŒU©¦ZDîàÈ'BºÀâv¢É8„˜Lñd€#(Á}Èçˆ å ™÷H¤#ÅœsF5ˆ³ÌTÉadex8%?y “F]DÌÀ]“>ýƒÏ0ÈçÚhÐÅúa•–<Ác)¼bÄ>Ð !4€é•çÁä‘Eßz`‰‘¸@ª‘8ÂI åµ Ø«ý'>ì ’|åݨ°ź€.¤„SŽÄWf¦ª1Ñö1RN(‘„(කʡ-Dz˜PˆR €$‘#½îܺ%©D!&”Ó: ˜`D7ô•¨eCñë>ÔKDÉ5AD—5þ¥¨Kœj¤¥à“<(˜P@™Ò- GÇQZàýP– kš£JHËà”°.õÑè@ý A5PÇ™rè4ôÓPG-õÔTWmõÕXg­õÖ\wíõ×!ù ÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðF„rˆ°£ßÀ9Q ”c$ypbʉ g&œ„òŒ¤1ò>ÿÈ£ 2O‘7äÄ‘YSf–#­u+%òÇ¿>ÿ蛀€/o_F˜I–éM„"iøº0r¤º@Oîi+K)šê™°klÜ@}1ÕÄH øT üSF‰AG e‰åÍ yË–í{¡Ú4£Þ²HáT¢IŽ*çðóÄE'#¨ª°Ñ-l^½zû¶­¦­&M%P¨ó³ØO‰ vdæ¦6åôeÁkR¦ |rAÈ’@ëþÔâI“NVnÙ¸  f³›ÑÒ€¢“+š\Lq'R)Ž$áŠ& Ì÷Ü^g Þè¤É'œtâ‚ð€:"$Ä'ö¿Œ$Gt{%4¶Dà%"XÒ‰}¶…®DȈ Œ|èEWÐÑdN:µõ`'vü@E¾x]I1E¢B!µE á "$I!Ÿ8’¥ ´¥R$Ƈ>#!ò S$—¥$xB @rŸ®!Ò$îeRBú@%Òƒœ@ø ‹IŠ0I'žéŠ!GŠ$%‚ƒ&N!Pi‘œ B@’(á‹""Ò sÄ‘&þz8G›®‘å‘£ö!VR¸’Ä‘ÔÑcSX9T¨XÓL3ìL¤ì,#N3DDF 3¹#‘<Ä(ãÌ2TTñ HúÀ nPÁÅ2Ïs‡2é£Q k´¡HGéÃ#YC]Ü0¬÷L WŒDD‡øà† x‚H\ƒfMÉ#"!#%ŸAÒÃ42"à'Iˆ´ƒMziÇóáûƒT:ß» Ì"m'®"©€máÜ£:?³ DP*Å9í!I$àˆ “„ÛLól „4±R3$!…" Á Z/]ÒÁ#R´!Ü#’”"8‰øX¤ÏóÅ—G<ôCYrË«‘Ýti;’m} ¬ÜpÔ‘©F¢û^>ü­”^{|¤ýöÜwïý÷à‡/þøä—oþù觯þú!ù ÿ,22‡!% ) !% !&# !!!!!))!)1!!!)!)))))1119?FJ!R!F" Z%c!c)51F;c)Z< ;2"111)19;;=F9H?+PP'OJB=FLJRVRRJRRRRZZZJJZRRZZZk)o-s1{-k1k9u3 {9„6{9„BŒ1Œ9Ž<”=œBhLk`˜BšRcP3cc1nK'ƒV3hm+vo)ˆyƒ1ok@„mGˆŒ5–”9cZR{cR„cRscZccckccœkJskZhme„„R”{J”{Rœ{JœˆR”Zœœckkkksssss{ss{{s{{{{{„„{k„{{’…u„„„ŒˆŒ””””””œœœœœ¥B­BµJ¥B¥J­F­R§Z#µJµR½J½R½RÆR ÆZÐZ ÖZÖcÞZÞcÞcçcçcïcïcïkïk÷k÷k÷sÿkÿs¥œ­sµŒ)­ 5­¥Bµ­B­µJ­ŒRµµ9µµBµµJ½µÆsÆ„)ÿ{ÿ„ÎÆÖÎƽ1ÈÀAƽJÊÆJÎÆRÎÎRÞÖçÚ ÿïÿ÷ÿÿîê9ÖÎRàÚN­ŒZ¥”Z­”Z­”c¥”s¥œc¥¥cÆ¥kÆ­kµµsƵsƽ{ιwÎÆ{Ö½{ÖÆ{ÎÎZÖ΄Þ΄ÞÞRçÞRçÞZççZïçZïïZ÷ïZ÷ïcÿ÷Zÿ÷cÿÿcÿÿkÿÿsÞÖ„çÖ„ÞÖŒçÞŒïÞŒ­œ”µ­”÷ï”÷÷œÿ÷œ¥¥¥­¥¥ÿÿ¥¥¥­­­­µ­­µµµ½½µ½½½½½Æ½ÆÆÆÆÆÆÎÎÎÎÎÖÖÖÞÞÞççççïïïïï÷÷÷÷÷ÿÿÿÿþÿ H° Áƒ*\È°¡Ã‡#J\`"ÄŠ-FĈðÆ‚î  †»‚s¦$¸‡I;äÀ™)'á½/m¼üpïŸÇƒá‰)ÆË8pd&E¸ã%j×¼…©Ï§Á>ÿðÅ™Å7/Nõ$¥yäZCˆ•àœ~M Qm*™JË`AŠÛ5\0¼±°”"Å>ÿV ôh‡„ '…°xÃЋ›µ, P»ÔàÈ/ÞJ%HÀMš0²/±À”î,"ñ©l¾ÀÀfÍè]šk=;­æm €Ÿ\‰âßÏ?÷4AáJÓÈZ_nVZS8.^Zþx©fÃÑ'G>‰(„ÃÀ:8‰x…¢É§)X¬éÌÅ+Šf¼3é%Œ$ç#Ž¸`Ä=#Ýs š4¡DrI ¨HÉtP\t%G¸ò‰&Ÿ"‚!àÓ Ž<`'(@Þ|8’JuÒH4Ü’%F¸ðI'0&X!IZ2"‘"0â0ü2ÒH…ÐMr…¨I'Dº2ÅHü1R\Â(£SZ‰PHY@ŽtBÉ „©À ”xI@"¸àÒK1·N# ⊠.¹Pç¤0 J2@’ŽDg íáTˆ#ŽÈÉ'Ž<ªÀ#C’È¥z;ÕÁCþý1e#Ÿ #Œ”@˜B‰­Dré„KàQew é3IvRÄ›o‚)&Ð`%T‡ E÷HsŽè°3@˜°3.;Ì@­K?8Ñ>{œÎ1ÍPFo|ÈëÅpÁâ Ó 0i~ôÁ)jtñ'´ƒBàF]ÜP¥EîLÀF$¥@¢+.àCSDˆh‰$‰ Æul,Ñ ‹Ì Ɇ¸B Ë'@‚&®(‘D­–(0ÒdIÄáH.E;ÒS+õÔG'Ѳ$U@r!S=RR¤çÒJtÃH.0H!pŠ@òK)ŸH$FVµŽáÀ¯š˜àR0r"rŒXB†ÑÈÝÁEÄ&ˆ,À‰B€>#qîÈ.}ÞH3È;‘#ýí‚& h²8ƒ0(D$|W€Â“è óDz¼ä‚4?#ís¶ð…<@bihQ??X(O¹ó-IÍGn‘²rÅÐÓ@÷t ×LxkT/AÐH0öÈ~$ÿüô×oÿýøç¯ÿþü÷ïÿÿ  h‘€;libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm120.hdf0000644000000000000000000000663712421456623016714 0ustar k.xÊ ±ÊxÊ ±jx {Èx ,x ƒ2x —ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™ÿúäAu™™RRRRQQQPPPOOOOOOPQRSUVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRRQQQPPPOOOOOOPQRSUVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRRQQQPPPOOOOOOPQRSTVXY[]^___^\YVRNKHFFGIKMNPRSUVWWXXXYYRRRQQQQPPPOOOOOOPQRSTVXY[]^___^\YVRNJHFFGIKMNPRSUVWWXXXYYRRRQQQPPPPOOOOOOPQRSTVXY[\^___]\YVRNJHFFGIKLNPRSUVWXXXYYYRRRQQQPPPPOOOOOOPQRSTVXY[\^___]\YVRNJHFFGIKLNPRSUVWXXXYYYRRQQQQPPPOOOOOOOPPRSTVWY[\^^_^]\YVRNJHFFGIKLNPRSUVWXXXYYYRRQQQQPPPOOOOOOOPPQSTVWY[\^^_^]\YVRNKHFFGIKLNPRSUVWXXYYYZRQQQQPPPPOOONNOOPPQSTVWY[\]^_^]\YVRNKHFFGIKMNPRTUVWXYYYZZQQQQPPPPOOOONNNOOPQRTUWYZ\]^_^]\YVRNKHFFGIKMNPRTUWXXYYZZ[QQQPPPPOOONNNNNNOPQRTUWXZ\]^^^]\YVRNKHFFGIKMNPRTUWXYYZZ[[PPPPPOOOONNNNNNNNOPRSUVXZ\]^^^]\YVRNKHFFGIKMOPRTVWXYZZ[[\OOOOOONNNNNMMMMNNOPQRTVXZ[]^^^]\YVRNKHFFGIKMOQRTVXYZZ[[\\NNNNNNNMMMMMMMMMMNOPRTUWY[]^^^^\YVRNKHFFGIKMOQSUVXYZZ[\\]LLMMMMMMLLLLLLLLMMNOQSUWYZ\^^^^\ZVRNKHFFGIKMOQSUVXYZ[[\]]JKKLLLLLKKKKKKKKLLMNPRTVXZ\]^_^]ZWSNKHFFGIKMOQSUWXYZ[[\\]GHIJJJJJJJJJJJJKKLLNOQSUWY[]^_^][WSOKHFFGIKMOQSUVXYZZ[[\]EEFFGHIIIIIIIIIJJKLMNPRTVY[]^__^[XTOKHGFHIKMOQSUVXYZZZ[[\?ABCDEFGGHHHHHIIIJKLMOQSVX[]^__^\YTPLHGFHIKMOQSUVXYYZZZ[[@>=?@BCDEEFFFGGHHIJLMNPRUXZ\^_`_]YUPLIGGHIKMOQSTVWXYYYZZZC@><<>@BDEFFGHHIIJJKLNPRTWZ\^```^ZVQMIGGHIKMOQRTVWXYYYYYYWWUOHC@ACEGHJLMNPPQQPPPRTWY\^`a`_\WRMJHGHIKMOQRTVWXXXXXXXmnmg]SLGFGIKMPRTVWXXXWVTTVY\^`aa`]YSNJHGHIKMOQRTVWXXXXXXXkuyulc[VSSTVY\_`aaa`_^]\ZXY\^`bba^ZUOKIHHIKMOQRTVWXXXXXXXfr~wojgffgjloqrrqomifca`^[\^abcb_[VQLIHHJKMOQSTVWXYYXXXWzˆˆ€wsrsuwy{}~}{xtojfdc`^^accca]XRMJIIJLMOQSUVXYYYYXXXk|‹Ž‡}xwxz}€‚ƒƒ‚‚‚€~{wqkfddb`acddb^YTOKIIJLNOQSUWXYZZZYYY„Ž‘Œƒ|{}‚…‡†…†ˆ‡„~|yslfddcaceec`[UPLJJKLNPRTVXYZ[[[ZZY{ˆ‘“†ƒ†ŠŒ‹ˆ‰Œˆ…‚€~{yslfeecceedb]WRNKKKMOQSUWYZ\]]]\\\~…”‰……ˆ‹ŽŠŠ‰†……„|yvpieedcefec_YTOLKLNOQSVXZ\]^__^^^ƒ‰”‘Šˆ‰‹ŽŒ’”Œ‰‘’ˆ€ytqkededeffda[VQNMMNPRTWY[]_`aaaa`ƒŠ‘“ŒŒ”—Ž‹“¡Ÿ˜‚xqmjeceeefgeb]XSPNNOQSVXZ]_`bccddd†‹’‘’•˜”‹•¤­¬¤—Š~skgfcaceefgfd`ZURPOQRUWY\^`bdeffgg‡‹‘‘‘’Ž“™™“¤²´«~sjc`a`_beeghheb]XTRQRTVX[]`bdeghhiiˆŒ‘‘‘‘‘—š•Ž›¯·²¤‘pf_ZY[\]adegiigd_[WTSSUWZ\_aceghijkkŠ‘‘’Ž’˜˜‘¤µ·¬›†sdZURRUX[`efhjjifb]YVUUWY[^`befhjkllmŒ‘‘“™–Ž”©¶²¦”k\SNLNRVY`eghkkjhe`\YXWXZ\_adfhiklmmn‹ŒŽŽ”—”Œ–ª³­ ŽzhYPKIKPUZaghjlmljgd`\ZZZ\^`beghjkmmno‹‹ŒŒŽŽ”•‘‹•¨®¨›ŠxfYOJILQV\dijlnnnmjgc`]\\]_acegiklmnopŠŠŠ‹Œ‹““Š’£©¢–†vgZQLLNSY`hklnpppolifc`_^_`bdfhiklmnoq‰Š‰Š‹‹‹Š‘‘ˆœ£ž’„uh\TPPSX^flnnqrrrqolifcaaabcefhjklmnpr‡ˆ‡‡ˆŠ‰‰‹Œ†ˆ”œ™ƒvj`ZWWZ_elppqtuutsqolifdcbcdeghiklmoru††……†‡ˆˆ‰ŒŽŒ…ƒ‹””„xnfa_`chmqstuvwvvusqnkhfdddefghijlmptx††„„…‡‡‡‡‰Œ‹…ƒŠŽ‹„|smihilpsvwxxyyxxvurpmjhfeeeffgijkou{}„„ƒƒ„…†††‡‰Š…~}†‡„ytqqrtwz|||||{zywusqnkigfeeefggimt|ƒ‡ƒƒ‚ƒ„…………†ˆ†€zz~‚€}zyyz|~€€€~}{zxvsqnligfeeeeegkou|ƒˆ‚€‚‚‚ƒƒ‚„……{wwz|}~}}~‚ƒ‚‚€~}{yxuspnkigeedccehkowƒ‹€€€€€€‚ƒ}xttvxz{}~€‚‚‚€}|zywtromjhgecbbdefjt„‘˜š€~~~~~zusrstvxz|}~~}|{zxwurpnligecbbcbagu‡–Ÿ¡ ~}~~~}}||}}|xurqrstvwyzz{{zyxwvtspnljhedcca^^fxŠ˜¢¦¦£~}}}}~~~}}}|{{{{zxusrqrstuvwwwwvvusrpnljhfedb_\]gw‡•Ÿ¥§¦¤~}|}}}|}||||{zzzzywutrrrrsstttttsrqpnlkihfda^[]fs‚š¢¦§¦¥}|||||{{zzz{{zyyyyxwvtsrrqqqrrrqqponmljigda]\^ep|ˆ”ž¥¨§¦¥}{{{{{zzyyyyyyyyyyyxwvtsrqppppppoonmljhfc`]]_emw€‹– ¦¨¨¦¤|{{{{{zzyxxyxxxyyyyyyxvusrponmmllkjigec`_^^afmtz‚™£¨©¨§§|zz{zzzzyxxyyxxyyyyyyyxxwvusqpnmlkjihfeedegimrw|ƒŽ›¤©ª¨¦¦|{z{zzzzxxxyxxxyyyyyyxxxwvvuuttsrqqponmllllnpty}„›¤©ª¨¦¥9999jx,x.xlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/0000755000000000000000000000000012421456623015777 5ustar libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h100x100hv0000644000000000000000000012013612421456623017344 0ustar k¾Êœ@j ½¿$"àF¼ Nÿþÿþÿþÿþÿþÿþÿþÿþÿþ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@àAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@APAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPA`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApA€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€AˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXB\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`BdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxB|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†BˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜BšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨BªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªB¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸BºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºB¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾BÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈ ddjjjDzDz@DzÀD{€D|€D}ÀD@D€€D€D‚ DƒàD…@D†ÀDˆ`DŠ DŒDŽD D’`D”ÀD—@D™àDœ DŸ€D¢€D¥ D¨àD¬@D¯ÀD³`D· D»D¿Dà DÇ`DËÀDÐ@DÔàDÙ DÞ€Dã€Dè DíàDó@DøÀDþ`EEEE E0E`E EðEPEÀE"@E%ÐE)pE- E0àE4°E8E<€E@€EDEH°ELàEQ EUpEYÐE^@EbÀEgPEkðEp Eu`Ez0EE‚E„€E‡E‰˜EŒ0EŽÐE‘xE”(E–àE™ EœhEŸ8E¢E¤ðE§ØEªÈE­ÀE°ÀE³ÈE¶ØE¹ðDzDz@DzÀD{€D|€D}ÀD@D€€D€D‚ DƒàD…@D†ÀDˆ`DŠ DŒDŽD D’`D”ÀD—@D™àDœ DŸ€D¢€D¥ D¨àD¬@D¯ÀD³`D· D»D¿Dà DÇ`DËÀDÐ@DÔàDÙ DÞ€Dã€Dè DíàDó@DøÀDþ`EEEE E0E`E EðEPEÀE"@E%ÐE)pE- E0àE4°E8E<€E@€EDEH°ELàEQ EUpEYÐE^@EbÀEgPEkðEp Eu`Ez0EE‚E„€E‡E‰˜EŒ0EŽÐE‘xE”(E–àE™ EœhEŸ8E¢E¤ðE§ØEªÈE­ÀE°ÀE³ÈE¶ØE¹ðBȾ½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/pal.hdf0000644000000000000000000000171212421456623017237 0ustar kÉÊ`(`(`(`(`(`(`(`(`(`(`(`(`(`(ÿ|ÿxþsÿoþjÿfþaÿ]þXÿTþOÿKþFÿBþ=ÿ9þ4ÿ0þ+ÿ'þ"ÿþÿþÿ þÿþÿþ ÿþÿþÿ!þ&ÿ*þ/ÿ3þ8ÿ<þAÿEþJÿNþSÿWþ\ÿ`þeÿiþnÿrþwÿzþ€ÿƒþ‰ÿŒþ’ÿ•þ›ÿžþ¤ÿ§þ­ÿ°þ¶ÿ¹þ¿ÿÂþÈÿËþÑÿÔþÚÿÝþãÿæþìÿðþõÿùþþÿþúÿ÷þñÿîþèÿåþßÿÜþÖÿÓþÍÿÊþÄÿÁþ»ÿ¸þ²ÿ¯þ©ÿ¦þ ÿþ—ÿ”þŽÿ‹þ…ÿ‚þ}ÿyþtÿpþkÿgþbÿ^þYÿUþPÿLþGÿCþ>ÿ:þ5ÿ1þ,ÿ(þ#ÿþÿþÿ þÿþÿ þÿþÿþ ÿ%þ)ÿ.þ2ÿ7þ;ÿ@þDÿIþMÿRþVÿ[þ_ÿdþhÿmþqÿvþ{ÿ~þ„ÿ‡þÿþ–ÿ™þŸÿ¢þ¨ÿ«þ±ÿ´þºÿ½þÃÿÆþÌÿÏþÕÿØþÞÿáþçÿêþðÿóþùÿüþÿüþ÷ÿóþîÿêþåÿáþÜÿØþÓÿÏþÊÿÆþÁÿ½þ¸ÿ´þ¯ÿ«þ¦ÿ¢þÿ™þ”ÿþ‹ÿ‡þƒÿ~þzÿuþqÿlþhÿcþ_ÿZþVÿQþMÿHþDÿ?þ;ÿ6þ2ÿ-þ)ÿ$þ ÿþÿþÿ ÿlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h100x1000000644000000000000000000012013612421456623017006 0ustar k¾Êœ@j ½¿$"àF¼ Nÿþÿþÿþÿþÿþÿþÿþÿþÿþ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@àAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@APAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPA`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApA€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€AˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXB\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`BdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxB|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†BˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜BšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨BªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªB¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸BºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºB¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾BÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈ ddjjj?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”B–B˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆ?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”B–B˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆBȾ½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h60x75n0000644000000000000000000003562012421456623017047 0ustar k¾Ê:˜j;b½;fÃ;|¼;„ ÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@àAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@APAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPA`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBH 2KjjjBH¾½Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h100x100h0000644000000000000000000012013612421456623017156 0ustar k¾Êœ@j ½¿$"àF¼ Nÿþÿþÿþÿþÿþÿþÿþÿþÿþ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@à@àAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@APAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPA`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApA€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€AˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A˜A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÈAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXB\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B\B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`BdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxBxB|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B€B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B‚B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B„B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†B†BˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBˆBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŠBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBŒBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B’B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B”B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B–B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜B˜BšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBšBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBœBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžBžB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¤B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¦B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨B¨BªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªBªB¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B¬B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B®B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B°B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B²B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B´B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸B¸BºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºBºB¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¼B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾B¾BÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÀBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÂBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÄBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÆBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈBÈ ddjjj?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”B–B˜BšBœBžB B¢B¤B¦B¨BªB¬B®B°B²B´B¶B¸BºB¼B¾BÀBÂBÄBÆDzDz@DzÀD{€D|€D}ÀD@D€€D€D‚ DƒàD…@D†ÀDˆ`DŠ DŒDŽD D’`D”ÀD—@D™àDœ DŸ€D¢€D¥ D¨àD¬@D¯ÀD³`D· D»D¿Dà DÇ`DËÀDÐ@DÔàDÙ DÞ€Dã€Dè DíàDó@DøÀDþ`EEEE E0E`E EðEPEÀE"@E%ÐE)pE- E0àE4°E8E<€E@€EDEH°ELàEQ EUpEYÐE^@EbÀEgPEkðEp Eu`Ez0EE‚E„€E‡E‰˜EŒ0EŽÐE‘xE”(E–àE™ EœhEŸ8E¢E¤ðE§ØEªÈE­ÀE°ÀE³ÈE¶ØE¹ðBȾ½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/t100x1000000644000000000000000000021452412421456623017027 0ustar TEXT 1 100 100 100.000000 0.000000 0.000000 1.000000 2.000000 3.000000 4.000000 5.000000 6.000000 7.000000 8.000000 9.000000 10.000000 11.000000 12.000000 13.000000 14.000000 15.000000 16.000000 17.000000 18.000000 19.000000 20.000000 21.000000 22.000000 23.000000 24.000000 25.000000 26.000000 27.000000 28.000000 29.000000 30.000000 31.000000 32.000000 33.000000 34.000000 35.000000 36.000000 37.000000 38.000000 39.000000 40.000000 41.000000 42.000000 43.000000 44.000000 45.000000 46.000000 47.000000 48.000000 49.000000 50.000000 51.000000 52.000000 53.000000 54.000000 55.000000 56.000000 57.000000 58.000000 59.000000 60.000000 61.000000 62.000000 63.000000 64.000000 65.000000 66.000000 67.000000 68.000000 69.000000 70.000000 71.000000 72.000000 73.000000 74.000000 75.000000 76.000000 77.000000 78.000000 79.000000 80.000000 81.000000 82.000000 83.000000 84.000000 85.000000 86.000000 87.000000 88.000000 89.000000 90.000000 91.000000 92.000000 93.000000 94.000000 95.000000 96.000000 97.000000 98.000000 99.000000 0.000000 1.000000 2.000000 3.000000 4.000000 5.000000 6.000000 7.000000 8.000000 9.000000 10.000000 11.000000 12.000000 13.000000 14.000000 15.000000 16.000000 17.000000 18.000000 19.000000 20.000000 21.000000 22.000000 23.000000 24.000000 25.000000 26.000000 27.000000 28.000000 29.000000 30.000000 31.000000 32.000000 33.000000 34.000000 35.000000 36.000000 37.000000 38.000000 39.000000 40.000000 41.000000 42.000000 43.000000 44.000000 45.000000 46.000000 47.000000 48.000000 49.000000 50.000000 51.000000 52.000000 53.000000 54.000000 55.000000 56.000000 57.000000 58.000000 59.000000 60.000000 61.000000 62.000000 63.000000 64.000000 65.000000 66.000000 67.000000 68.000000 69.000000 70.000000 71.000000 72.000000 73.000000 74.000000 75.000000 76.000000 77.000000 78.000000 79.000000 80.000000 81.000000 82.000000 83.000000 84.000000 85.000000 86.000000 87.000000 88.000000 89.000000 90.000000 91.000000 92.000000 93.000000 94.000000 95.000000 96.000000 97.000000 98.000000 99.000000 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 4.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 6.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 8.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 9.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 10.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 12.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 13.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 14.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 15.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 16.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 18.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 19.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 22.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 23.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 24.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 25.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 26.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 27.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 30.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 32.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 33.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 34.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 35.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 36.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 37.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 38.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 39.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 40.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 42.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 43.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 44.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 45.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 46.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 47.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 48.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 49.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 50.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 52.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 53.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 54.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 55.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 56.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 57.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 58.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 59.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 60.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 62.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 63.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 64.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 65.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 66.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 67.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 68.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 69.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 70.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 72.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 73.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 74.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 75.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 76.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 77.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 78.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 79.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 82.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 83.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 84.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 86.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 87.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 88.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 89.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 92.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 93.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 94.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 96.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 97.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 98.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 99.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 0.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h60x750000644000000000000000000004455212421456623016675 0ustar k¾ÊFPjG½G¿G4ÃIR¼IZÿþÿþÿþÿþÿþÿþÿþÿþÿþ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@ÀAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApA€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€AˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXB`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`BdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBp <Kjjj?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBl?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”Bp¾½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/fp2hdf/h60x75v0000644000000000000000000004455212421456623017063 0ustar k¾ÊFPjG½G¿G4ÃIR¼IZÿþ ÿþ ÿþ ÿþ ÿþ ÿþ ÿþ ÿþ ÿþ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@€@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@À@ÀAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`A`ApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApApA€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€A€AˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAˆAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A¨A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A°A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸A¸AÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÀAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAÐAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAØAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAàAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAèAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðAðBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B$B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B(B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@BHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBHBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBLBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBPBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBTBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXBXB`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`B`BdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBdBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBhBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBpBp <KjjjDzDz@DzÀD{€D|€D}ÀD@D€€D€D‚ DƒàD…@D†ÀDˆ`DŠ DŒDŽD D’`D”ÀD—@D™àDœ DŸ€D¢€D¥ D¨àD¬@D¯ÀD³`D· D»D¿Dà DÇ`DËÀDÐ@DÔàDÙ DÞ€Dã€Dè DíàDó@DøÀDþ`EEEE E0E`E EðEPEÀE"@E%ÐE)pE- ?€@@@@€@ @À@àAAA A0A@APA`ApA€AˆAA˜A A¨A°A¸AÀAÈAÐAØAàAèAðAøBBBB BBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBXB\B`BdBhBlBpBtBxB|B€B‚B„B†BˆBŠBŒBŽBB’B”Bp¾½¿Ãlibhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/palette.raw0000644000000000000000000000140012421456623016772 0ustar  #'+/37;?CGKOSW[_cgkosw{ƒ‡‹“—›Ÿ£§«¯³·»¿ÃÇËÏÓ×Ûßãçëïó÷ûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúöñíéäàÛ×ÓÎÊÅÁ½¸´¯«§¢ž™•‘Œˆƒ #'+/37;?CGKOSW[_cgkosw{ƒ‡‹“—›Ÿ£§«¯³·»¿ÃÇËÏÓ×Ûßãçëïó÷ûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿû÷óïëçãßÛ×ÓÏËÇÿ»·³¯«§£Ÿ›—“‹‡ƒ{wsokgc_[WSOKGC?;73/+'# ƒ‡‹“—›Ÿ£§«¯³·»¿ÃÇËÏÓ×Ûßãçëïó÷ûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿû÷óïëçãßÛ×ÓÏËÇÿ»·³¯«§£Ÿ›—“‹‡ƒ{wsokgc_[WSOKGC?;73/+'# libhdf4-4.2.10/HDF_ALT/hdf/util/testfiles/storm110.hdf0000644000000000000000000000663712421456623016713 0ustar k.nÊ ±ÊnÊ ±jn {Èn ,n ƒ2n —ÿúäA@záÿúäA@záÿúäA@záÿúäA@záÿúäA@záÿúäA@záÿúäA@záÿúäA@záÿúäA@záRRQQPOOONNNNNNNNNNNNOOPQRSSTUVWXYZZZZYXXWVUTTTTTTTTUUUUVVQPPPOONNNMMNNNNNNNNNNOPQRRSTUVWXYZZZZYXWWVUTTTTTTTTUUUUVVOOOONNNMMMMMMMMMMMMNNOPPQRSTUVWXYZZZZYXWVVUTTTTTTTTUUUUVVNNOONNMMMLLLLLMMMMMMNNOPQRSSTVWXYYZZYYXWVVUTTTTTTTTUUUUVVMNOONNMMLLLLLLLLLLMMMNOPPQRSTUVXXYYYYYXWVUUTTTTTTTTUUUUVWNOOOONNMMLLLLLLLLLLMMNNOPQRSTUVWXYYYYXXWVUUTTTTTTTTUUUUVWQQPPOONNMMLLLLLLLLLLMMNOPQQRSUVWXXYYXXWWVUTTTTTTTTTUUUVVWSSRQPOONNMMMLLLLLLLLMMNNOPQRSTUVWXXXXXWVUUTTTTTTTTTUUUVVWWVTSQPPONNNMMMLLLLLLLMMNOPPQRTUVWXXXXWWVUUTTSSSTTTTUUUVVW[YVTRQPPOONNMMMLLLLLLMMNNOPQRSTVWWXXWWVUUTTSSSSSTTTUUUVVW[ZVSRQQPPPONNMMMLLLLLLMMNNOPQRTUVWWWWVVUTTSSSSSSTTTUUUVVW]XTRQQQQPPOONNMMLLLLLLLLMNNOPRSTUVWWVVUTTSSSSSSSTTTUUUVVW[XSPOPPPPPOONMMLLLKKKKKLLMMNPQRTUVVVVUUTSSSRRSSSSTTTUUVVW^VPNNOOOOOONNMMLLKKKJJJKKLLMOPQSTUVVUUTTSSRRRRSSSTTTUUUVWYRNMMNNOONNNMLLKKJJJIIIJJKKLMOPRSTUUUUTSSRRRRRRSSTTTUUUVWUPLKLMMMNMMMLLKJJIIHHHHHIIJKLNOQSTUUUTTSRRRRRRRSSTTTUUUVWHLJJKKLLLLLKKJJIHHGGGGFGGHHJKLNPRSTTTTSSRRQQQRRRSSTTUUVVWDHHHIJJJJJJJIIHHGFFEEEEEEFGHIKMOQRSTTTSRRQQQQRRRSSTTUUVVWACEFGGHHHHHHHGFFEDDCCBBBCDDFGIKMPQSSTSSRRQQQQQRRSSTTUUVWX=?ACDDEEEFFFEEDDCBBA@@??@ABCEGILNPRSSSSRRQQQQQRRSSTUUUVWX:;>@AAABBBBBBBBAA@?>>==<==>@BEGJMOQRSSRRQQQQQQRRSTTUUVVWX78;<=====>>>>>>==<;:988889;BFIMOQRRRRQQQQQRRSSTUUVVWXY568::87655667788888876520..16:>CGKNPQRRRQQQQQRRSTTUUVWXXY=<<==;:877779:;<>@BDDDB@;61-/5:@EJMPQRRRRQQRRRSSTUUVWWXYZ79=ABBA?>=>?@BEHLNQSVXXVRJA70/5@BEJMOPQTWZ]`bcddddddcba_][Y[`iˆropsuwxxyyyywxwrswpcVMGEEFILNQTX[^`bbbbbccbba`^][YWVX[_€uonprtvwxxwwxvvwtoquskbZUSSUWZ]_aaa`________^\[YWTQNKIF" echo " OPTIONS:" echo " -help This help message." echo " -echo Show all the shell commands executed" echo " -prefix=DIR Prefix directory to find HDF4 lib/ and include/" echo " subdirectories [default: $prefix]" echo " -show Show the commands without executing them" echo " " echo " - the normal compile line options for your compiler." echo " $prog_name uses the same compiler you used to compile" echo " HDF4. Check with your compiler's man pages for more" echo " information on which options are needed." echo " " echo " You can override the compiler, linker, and whether or not to use static" echo " or shared libraries to compile your program by setting the following" echo " environment variables accordingly:" echo " " echo " HDF4_F77 - use a different Fortran 77 compiler" echo " HDF4_F77LINKER - use a different linker" echo " " exit 1 } if test "$#" = "0"; then # No parameters specified, issue usage statement and exit. usage fi for arg in $@ ; do if test "x$get_output_file" = "xyes"; then link_args="$link_args $arg" output_file="$arg" get_output_file="no" continue fi case "$arg" in -c) allargs="$allargs $arg" compile_args="$compile_args $arg" if test "x$do_link" = "xyes" -a -n "$output_file"; then compile_args="$compile_args -o $outputfile" fi do_link="no" dash_c="yes" ;; -o) allargs="$allargs $arg" dash_o="yes" if test "x$dash_c" = "xyes"; then compile_args="$compile_args $arg" else link_args="$link_args $arg" do_link="yes" get_output_file="yes" fi ;; -E|-M) allargs="$allargs $arg" compile_args="$compile_args $arg" dash_c="yes" do_link="no" ;; -l*) libraries=" $libraries $arg " allargs="$allargs $arg" ;; -prefix=*) prefix="`expr "$arg" : '-prefix=\(.*\)'`" ;; -echo) set -x ;; -show) SHOW="echo" ;; -help) usage ;; *\"*) qarg="'"$arg"'" allargs="$allargs $qarg" ;; *\'*) qarg='\"'"$arg"'\"' allargs="$allargs $qarg" ;; *) allargs="$allargs $qarg" if test -s "$arg"; then ext=`expr "$arg" : '.*\(\..*\)'` if [ "$ext" = ".f" -o "$ext" = ".F" -o "$ext" = ".f90" -o \ "$ext" = ".for" -o "$ext" = ".FOR" -o "$ext" = ".F90" ] ; then do_compile="yes" compile_args="$compile_args $arg" fname=`basename $arg $ext` link_objs="$link_objs $fname.o" elif test "x$ext" = "x.o"; then if test "x$dash_c" = "xyes"; then compile_args="$compile_args $arg" else do_link="yes" link_objs="$link_objs $arg" fi elif test "x$ext" = "x.a"; then # This is an archive that we're linking in libraries=" $libraries $arg " else compile_args="$compile_args $arg" link_args="$link_args $arg" fi else compile_args="$compile_args $arg" link_args="$link_args $arg" fi ;; esac done if test "x$do_compile" = "xyes"; then if test "x$dash_c" != "xyes"; then compile_args="-c $compile_args" fi $SHOW $F77 -I$includedir $FFLAGS $compile_args status=$? if test "$status" != "0"; then exit $status fi fi if test "x$do_link" = "xyes"; then libraries=" $libraries -lmfhdf -ldf " link_args="$link_args -L${libdir}" for lib in $libraries; do if echo $link_args | grep " $lib " > /dev/null || echo $link_args | grep " $lib$" > /dev/null; then : else link_args="$link_args $lib " fi done # The LIBS are just a bunch of -l* libraries necessary for the HDF4 # module. It's okay if they're included twice in the compile line. link_args="$link_args $LIBS" $SHOW $F77LINKER $FFLAGS $LDFLAGS $link_objs $link_args status=$? fi exit $status libhdf4-4.2.10/HDF_ALT/hdf/util/hdftopal.c0000644000000000000000000000573512421456623014603 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdftopal.c 6013 2014-01-10 21:19:02Z acheng $ */ /* * hdftopal.c * Version: 1.0 date: August 1, 1989 * This utility converts a palette from an HDF file * to a raw palette in a raw palette file. * The outgoing palette will have 768 bytes: First * 256 red values, then 256 greens, then 256 blues. * * by Mike Folk * first version of hdftopal: 8/01/89 * * This program is in the public domain * */ #include "hdf.h" int main(int argc, char *argv[]); int rawpalconv(char *hdffile, char *rawpalfile); int main(int argc, char *argv[]) { if (argc != 3) { printf("Usage:\n"); printf(" %s hdffile rawpalfile \n\n", argv[0]); printf("%s, version: 1.1 date: July 1, 1992\n\n", argv[0]); printf(" This utility converts a palette from an HDF file \n"); printf(" to a raw palette in a raw palette file.\n\n"); printf(" The outgoing palette will have 768 bytes: First \n"); printf(" 256 red values, then 256 greens, then 256 blues.\n\n"); exit(1); } rawpalconv(argv[1], argv[2]); return (0); } /* * rawpalconv(palfile, outfile) sets the palette */ int rawpalconv(char *hdffile, char *rawpalfile) { uint8 palspace[1024], reds[256], greens[256], blues[256], *p; FILE *fp; int j, ret; ret = DFPgetpal(hdffile, (char *) palspace); if (ret < 0) { printf("Error in reading file %s\n", hdffile); exit(1); } p = palspace; for (j = 0; j < 256; j++) { reds[j] = *p++; greens[j] = *p++; blues[j] = *p++; } fp = fopen(rawpalfile, "wb"); if (fp == NULL) { printf("Error opening raw palette file %s\n", rawpalfile); exit(1); } fwrite(reds, 1, 256, fp); fwrite(greens, 1, 256, fp); fwrite(blues, 1, 256, fp); fclose(fp); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/he_main.c0000644000000000000000000007241112421456623014375 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6036 $"; #endif /* $Id: he_main.c 6036 2014-01-20 17:28:01Z acheng $ */ /****************************************************************************** * he - HDF editor * * This program has a long history, starting with its creation as a tool to * help HDF developers work at a low-level on HDF files. It has evolved into * user-level program, though it is still designed for small editing tasks on * HDF files. * * he allows sophisticated HDF users to manipulate the elements in an HDF file. * These manipulations include selecting groups and showing information about * them, dumping them to the output, writing them to new files, deleting them, * inserting them, replacing, say, the palette of an r8 group, and editing the * text labels and descriptions of any element. * * he will NOT allow the user to *arbitrarily* modify binary data in the file * or any element, though it allows modification of tag and reference numbers * within strict constraints. The user should not attempt to alter individual * bytes. It is acceptable, however, to replace an element with another of * the same type. * * he can be used both interactively or in "batch" mode. Here is a sample * batch program: * * #!/bin/csh -f * set file=$1 * shift * he -batch $file -nobackup << EOF * info -all -group $* * close * quit * EOF * * This makes use of C-shell variable substitution to pass a filename to he, * invokes he, and then lists out on separate lines the commands to give once * he is running. The $* trailing the info command is also C-shell variable * substitution. * * List of commands: annotate dump if open putr8 unalias * close getr8 info prev revert wait * delete help next put select write * display * * Predicates are of the form TAG = 3 IMAGE_SIZE < 1000 LABEL = "abc" * Type -help for usage of . DO NOT type the command * without arguments and expect help. Some commands delete objects and do not * need any arguments. If you are learning to use he, try it on an expendable * file. *****************************************************************************/ /* ------ he.c ------- main() main HDF interfacing routines */ #include "he.h" #include #ifndef _WIN32 #include #endif /* the return status of last command executed */ int he_status = HE_OK; /* is this on the console or remote terminals? this should eventually be detected automatically */ int he_remote = YES; /* is this batch mode or interactive? */ extern int he_batch; int main(int argc, char *argv[]) { int backup = YES; /* Backup files when opening? */ int i; char *fileName = NULL; for (i = 1; i < argc; i++) { if (argv[i][0] == '-') { switch (findOpt(argv[i] + 1)) { case HE_HELP: printf("he [] [-nobackup] [-batch]\n"); help(); quit(0); break; case HE_BATCH: he_batch = YES; break; case HE_REMOTE: he_remote = YES; break; case HE_NOBACKUP: backup = NO; break; case HE_BACKUP: backup = YES; break; case HE_NOTFOUND: unkOpt(argv[i]); quit(1); /* does not return */ break; case HE_AMBIG: ambigOpt(argv[i]); quit(1); break; default: irrOpt(argv[i]); quit(1); /* does not return */ break; } } else { /* Must be a filename */ if (!fileName) fileName = argv[i]; else fprintf(stderr, "Single file only. %s not open.\n", argv[i]); } } /* if there is a file name given in the command line, open it */ if (fileName) he_status = openFile(fileName, backup); /* read, execute loop */ cmdLoop(); if (fileOpen()) closeFile(YES); /* close with keep */ quit(0); return 0; } /* cmdLoop -- read commands and execute them */ void cmdLoop(void) { HE_CMD *cmd; for (cmd = getCmd(); cmd; cmd = getCmd()) { if (cmd->func) he_status = (*cmd->func) (cmd); else { fprintf(stderr, "Unknown command: %s.\n", cmd->argv[0]); he_status = HE_FAIL; } deleteCmd(cmd); } } int he_currDesc; int he_numDesc; int he_numGrp; int he_backup; char *he_file; DFdesc he_desc[HE_DESC_SZ]; HE_GROUP he_grp[HE_DESC_SZ]; int32 getElement(int desc, char **pdata) { int32 length; int32 fid; length = he_desc[desc].length; /* alloc memory to read the element in */ *pdata = (char *) HDmalloc(length); if (*pdata == NULL) return FAIL; /* read in the element and check for error */ if ((fid = Hopen(he_file, DFACC_READ, 0)) == (int32) NULL) { HEprint(stderr, 0); return FAIL; } if (Hgetelement(fid, he_desc[desc].tag, he_desc[desc].ref, (unsigned char *) (*pdata)) < 0) { HDfree(*pdata); fprintf(stderr, "Cannot read element.\n"); return FAIL; } Hclose(fid); return length; } /* the tmp directory, currently set for unix */ #define TDIR "/tmp/" int getTmpName(char **pname) { int length; static int count = 0; char s[32]; (void) sprintf(s, "%she%d.%d", TDIR, (int)getpid(), count); count++; length = (int)HDstrlen(s); if (length <= 0) return FAIL; *pname = (char *) HDmalloc(length + 1); HDstrcpy(*pname, s); return length; } int writeToFile(char *file, char *data, int32 length) { FILE *fd; int written; fd = fopen(file, "w"); if (fd == NULL) return FAIL; written = (int)fwrite(data, sizeof(char), (size_t) length, fd); if (written != length) { fprintf(stderr, "Error in write.\n"); return FAIL; } fclose(fd); return HE_OK; } int removeFile(char *file) { return remove((const char *) file); } /* is a file currently opened */ int fileOpen(void) { return (he_file != NULL); } char * backupName(const char *file) { return catStr(file, "$hdfed$"); } int backupFile(char *file) { char *back; /* backup file name */ back = backupName(file); return copyFile(file, back); } int copyFile(char *from, char *to) { int num_read; char buf[HE_BUF_SZ]; /* copying buffer */ FILE *fp; FILE *bfp; /* open the hdf file for backing up */ if ((fp = fopen(from, "r")) == NULL) { fprintf(stderr, "Unable to open file: <%s>\n", from); return FAIL; } if ((bfp = fopen(to, "w")) == NULL) { fclose(fp); fprintf(stderr, "Unable to open backup file.\n"); return FAIL; } /* copy the contents from hdf file to backup file */ while ((num_read = (int)fread(buf, 1, HE_BUF_SZ, fp)) > 0) fwrite(buf, 1, (size_t)num_read, bfp); fclose(fp); fclose(bfp); return HE_OK; } int updateDesc(void) { int32 fid; int32 groupID; int32 aid, status; int i, j; if ((fid = Hopen(he_file, DFACC_READ, 0)) == 0) { printf("failed opening\n"); HEprint(stdout, 0); return FAIL; } aid = Hstartread(fid, DFTAG_WILDCARD, DFREF_WILDCARD); if (aid == FAIL) { HEprint(stderr, 0); return FAIL; } status = SUCCEED; for (i = 0; (i < HE_DESC_SZ) && (status != FAIL); i++) { Hinquire(aid, NULL, &he_desc[i].tag, &he_desc[i].ref, &he_desc[i].length, &he_desc[i].offset, NULL, (int16 *) NULL, (int16 *) NULL); status = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); } he_numDesc = i; /* get informations about the groups */ he_numGrp = 0; for (i = 0; i < he_numDesc; i++) { if (isGrp(he_desc[i].tag)) { he_grp[he_numGrp].desc = i; /* he_grp[he_numGrp].size = (int) (he_desc[i].length / sizeof(tag_ref)); he_grp[he_numGrp].ddList = (tag_ref_ptr) HDmalloc(he_desc[i].length); */ he_grp[he_numGrp].size = (int) (he_desc[i].length / 4); he_grp[he_numGrp].ddList = (tag_ref_ptr) HDmalloc(he_grp[he_numGrp].size*sizeof(tag_ref)); if (!he_grp[he_numGrp].ddList) { fprintf(stderr, "Out of memory. Closing file.\n"); closeFile(1); /* keep the backup */ return FAIL; } groupID = DFdiread(fid, he_desc[i].tag, he_desc[i].ref); if (groupID < 0) { HEprint(stderr, 0); return FAIL; } for (j = 0; j < he_grp[he_numGrp].size; j++) DFdiget(groupID, &he_grp[he_numGrp].ddList[j].tag, &he_grp[he_numGrp].ddList[j].ref); he_numGrp++; } } Hendaccess(aid); Hclose(fid); return SUCCEED; } int initFile(char *file) { if (he_file) HDfree(he_file); he_file = copyStr(file); if (updateDesc() < 0) return FAIL; /* if there are groups in this file, go to the first group tag */ /* otherwise, just go to the first element */ if (he_numGrp > 0) he_currDesc = he_grp[0].desc; else he_currDesc = 0; return resetPred(); } int closeFile(int keep) { int i; char *back; if (!fileOpen()) { fprintf(stderr, "No open file to close.\n"); return FAIL; } /* free some dynamic storages */ if (he_backup && !keep) { back = backupName(he_file); (void) removeFile(back); HDfree(back); } HDfree(he_file); he_file = NULL; for (i = 0; i < he_numGrp; i++) HDfree(he_grp[i].ddList); return HE_OK; } int getR8(int xdim, int ydim, char *image, char *pal, int compress) { FILE *fp; int32 length; char *buf; if (!fileOpen()) { noFile(); return FAIL; } if (pal) if (setPal(pal) < 0) /* Error already signalled by setPal */ return FAIL; length = xdim * ydim; buf = (char *) HDmalloc(length); if ((fp = fopen(image, "r")) == NULL) { fprintf(stderr, "Error opening image file: %s.\n", image); return FAIL; } if (fread(buf, (size_t)xdim, (size_t)ydim, fp) < (size_t)ydim) { fprintf(stderr, "Error reading image file: %s.\n", image); return FAIL; } fclose(fp); if (DFR8addimage(he_file, buf, (int32) xdim, (int32) ydim, (uint16) compress) < 0) { HEprint(stderr, 0); return FAIL; } HDfree(buf); if (updateDesc() < 0) return FAIL; return HE_OK; } int setPal(char *pal) { FILE *fp; char reds[HE_COLOR_SZ], greens[HE_COLOR_SZ], blues[HE_COLOR_SZ]; char palette[HE_PALETTE_SZ]; char *p; int i; if ((fp = fopen(pal, "r")) == NULL) { fprintf(stderr, "Error opening palette file: %s.\n", pal); return FAIL; } if (fread(reds, 1, HE_COLOR_SZ, fp) < HE_COLOR_SZ || fread(greens, 1, HE_COLOR_SZ, fp) < HE_COLOR_SZ || fread(blues, 1, HE_COLOR_SZ, fp) < HE_COLOR_SZ) { fprintf(stderr, "Error reading palette file: %s.\n", pal); return FAIL; } /* convert sun palette to hdf palette */ p = palette; for (i = 0; i < HE_COLOR_SZ; i++) { *p++ = reds[i]; *p++ = greens[i]; *p++ = blues[i]; } if (DFR8setpalette((uint8 *) palette) < 0) { fputs("Error setting palette.\n", stderr); return FAIL; } return HE_OK; } int findDesc(tag_ref_ptr dd) { int i; for (i = 0; i < he_numDesc; i++) if ((he_desc[i].tag == dd->tag) && (he_desc[i].ref == dd->ref)) return i; return FAIL; } int desc2Grp(int desc) { int i; for (i = 0; i < he_numGrp; i++) if (he_grp[i].desc == desc) return i; NOT_REACHED(); return FAIL; } int hasReference(int desc) { int i, j; for (i = 0; i < he_numGrp; i++) for (j = 0; j < he_grp[i].size; j++) if (he_grp[i].ddList[j].tag == he_desc[desc].tag && he_grp[i].ddList[j].ref == he_desc[desc].ref) return YES; return NO; } int deleteDesc(int desc) { int32 fid; if ((fid = Hopen(he_file, DFACC_WRITE, 0)) == (int32) NULL) { HEprint(stderr, 0); return FAIL; } if (Hdeldd(fid, he_desc[desc].tag, he_desc[desc].ref) == FAIL) { HEprint(stderr, 0); return FAIL; } return Hclose(fid); } int getCurrRig(int32 *pXdim, int32 *pYdim, char **pPalette, char **pRaster) { int ispal; goTo(he_currDesc); if (DFR8getdims(he_file, pXdim, pYdim, &ispal) < 0) { fprintf(stderr, "Error getting image group.\n"); HEprint(stderr, 0); return FAIL; } if (ispal) *pPalette = (char *) HDmalloc(HE_PALETTE_SZ); else *pPalette = (char *) NULL; *pRaster = (char *) HDmalloc((size_t)(*pXdim) * (size_t)(*pYdim)); if (DFR8getimage(he_file, (unsigned char *) *pRaster, *pXdim, *pYdim, (unsigned char *) *pPalette) == FAIL) { fprintf(stderr, "Error getting image group.\n"); HEprint(stderr, 0); return FAIL; } return HE_OK; } int putWithTempl(char *template, int n1, int n2, int n3, char *data, int length, int verbose) { char *file; int ret; convertTemplate(template, n1, n2, n3, &file); if (verbose) printf("Writing to file: %s\n", file); ret = writeToFile(file, data, length); HDfree(file); return ret; } int revert(void) { char *back; back = backupName(he_file); if (copyFile(back, he_file) < 0) return FAIL; return initFile(he_file); } int writeElt(char *file, uint16 ref, int elt) { int ret; char *data; int32 eltLength; char *p; uint16 rank; int i; uint16 ntTag; uint16 ntRef; tag_ref_ptr ntDesc; int nt; eltLength = getElement(elt, &data); if (eltLength <= 0) { fprintf(stderr, "Cannot get element: tag %d ref %d.\n", he_desc[elt].tag, he_desc[elt].ref); return FAIL; } /* special case */ if (he_desc[elt].tag == DFTAG_SDD) { /* lots of hack here */ /* assume that the number types are of the same ref as this elt */ p = data; /* get the rank */ /* NOTE: UINT16READ and UINT16WRITE advances p */ UINT16DECODE(p, rank); /* move to the NT of the data */ p += (rank * 4); UINT16DECODE(p, ntTag); UINT16DECODE(p, ntRef); /* set up to write the number type element */ ntDesc = (tag_ref_ptr) HDmalloc(sizeof(tag_ref)); ntDesc->tag = ntTag; ntDesc->ref = ntRef; nt = findDesc(ntDesc); HDfree(ntDesc); writeElt(file, ref, nt); p -= 2; UINT16ENCODE(p, ref); /* do the NT of scales */ for (i = 0; (uint16) i < rank; i++) { p += 2; UINT16ENCODE(p, ref); } } ret = putElement(file, he_desc[elt].tag, ref, data, eltLength); HDfree(data); return ret; } int putElement(char *file, uint16 tag, uint16 ref, char *data, int32 len) { int32 ret; int32 fid; if ((fid = Hopen(file, DFACC_READ | DFACC_WRITE, 0)) == FAIL) /* a little tricky here */ if (HEvalue(0) != DFE_FNF || (fid = Hopen(file, DFACC_ALL, 0)) == FAIL) { HEprint(stderr, 0); return FAIL; } if ((ret = Hputelement(fid, tag, ref, (unsigned char *) data, len)) < 0) { HEprint(stderr, 0); return (int) ret; } return Hclose(fid); } int writeGrp(char *file) { int i; uint16 ref; int grp; int elt; int ret; int32 fid; int32 gid; getNewRef(file, &ref); grp = currGrpNo; gid = DFdisetup(he_grp[grp].size); for (i = 0; i < he_grp[grp].size; i++) { elt = findDesc(he_grp[grp].ddList + i); if (elt >= 0) writeElt(file, ref, elt); /* update the group dd list */ DFdiput(gid, he_grp[grp].ddList[i].tag, ref); } /* do the group now */ if ((fid = Hopen(file, DFACC_READ | DFACC_WRITE, 0)) == FAIL) { HEprint(stderr, 0); return FAIL; } if ((ret = DFdiwrite(fid, gid, currTag, ref)) < 0) { HEprint(stderr, 0); return ret; } return Hclose(fid); } int getNewRef(char *file, uint16 *pRef) { int32 fid; if ((fid = Hopen(file, DFACC_READ | DFACC_WRITE, 0)) == FAIL) /* a little tricky here */ if (HEvalue(0) != DFE_FNF || (fid = Hopen(file, DFACC_ALL, 0)) == FAIL) { HEprint(stderr, 0); return FAIL; } *pRef = Hnewref(fid); return Hclose(fid); } int writeAnnot(char *file, uint16 tag, uint16 ref) { char *data; int32 eltLength; intn tmp; char *p; uint16 newRef; while (tag == 0) { printf("Attach to what tag? (> 0)"); scanf("%d", &tmp); tag = (uint16) tmp; } while (ref == 0) { printf("Attach to what ref? (> 0)"); scanf("%d", &tmp); ref = (uint16) tmp; } eltLength = getElement(he_currDesc, &data); if (eltLength <= 0) { fprintf(stderr, "Cannot get element: tag %d ref %d.\n", he_desc[he_currDesc].tag, he_desc[he_currDesc].ref); return FAIL; } p = data; /* * This is really ugly... */ UINT16ENCODE(p, tag); UINT16ENCODE(p, ref); if (getNewRef(file, &newRef) < 0) { fprintf(stderr, "Error getting new ref number.\n"); return FAIL; } return putElement(file, he_desc[he_currDesc].tag, newRef, data, eltLength); } int32 getAnn(int ann, uint16 tag, uint16 ref, char **pBuf) { int32 len; if (ann == HE_LABEL) { len = DFANgetlablen(he_file, tag, ref); if (len > 0) { *pBuf = (char *) HDmalloc((size_t)(len + 1)); DFANgetlabel(he_file, tag, ref, *pBuf, len + 1); } else *pBuf = NULL; } else { len = DFANgetdesclen(he_file, tag, ref); if (len > 0) { *pBuf = (char *) HDmalloc((size_t)len); DFANgetdesc(he_file, tag, ref, *pBuf, len); } else *pBuf = NULL; } return len; } int putAnn(int ann, uint16 tag, uint16 ref, char *buf, int32 len) { int ret; if (ann == HE_LABEL) ret = DFANputlabel(he_file, tag, ref, buf); else ret = DFANputdesc(he_file, tag, ref, buf, len); if (ret < 0) HEprint(stderr, 0); return ret; } int32 readFromFile(char *file, char **pBuf) { FILE *fp; int32 soFar; int32 bufLen; int32 num_read; fp = fopen(file, "r"); if (fp == NULL) return FAIL; soFar = 0; bufLen = 0; for (num_read = HE_BUF_SZ; num_read == HE_BUF_SZ; soFar += num_read) { bufLen += HE_BUF_SZ; if (bufLen == HE_BUF_SZ) *pBuf = (char *) HDmalloc(bufLen); else *pBuf = (char *) HDrealloc(*pBuf, bufLen); if (*pBuf == NULL) return FAIL; num_read = (int32)fread((*pBuf) + soFar, 1, HE_BUF_SZ, fp); } *pBuf = (char *) HDrealloc(*pBuf, soFar + 1); (*pBuf)[soFar] = '\0'; fclose(fp); return soFar; } /* ---- table for operators -------- */ struct { const char *str; int key; } he_optTab[] = { { "readonly", HE_RDONLY } , { "all", HE_ALL } , { "backup", HE_BACKUP } , { "batch", HE_BATCH } , { "help", HE_HELP } , { "longout", HE_LONGOUT } , { "nobackup", HE_NOBACKUP } , { "remote", HE_REMOTE } , { "verbose", HE_VERBOSE } , { "position", HE_POSITION } , { "expansion", HE_EXPANSION } , { "large", HE_LARGE } , { "offset", HE_OFFSET } , { "ascii", HE_ASCII } , { "octal", HE_OCTAL } , { "hexadecimal", HE_HEX } , { "decimal", HE_DECIMAL } , { "float", HE_FLOAT } , { "dimensions", HE_DIMS } , { "image", HE_IMAGE } , { "palette", HE_PALETTE } , { "raster", HE_RASTER } , { "rle", HE_RLE } , { "compress", HE_RLE } , { "imcomp", HE_IMCOMP } , { "group", HE_DOGROUP } , { "file", HE_FILE } , { "keep", HE_KEEP } , { "length", HE_LENGTH } , { "attachto", HE_ATTACHTO } , { "label", HE_LABEL } , { "descriptor", HE_DESCRIPTOR } , { "editor", HE_EDITOR } , { "byte", HE_BYTE } , { "short", HE_SHORT } , { "double", HE_DOUBLE } , { "ushort", HE_USHORT } , { "udecimal", HE_UDECIMAL } , { "raw", HE_RAW } , }; int findOpt(char *word) { unsigned len; int found = -1; uintn i; len = HDstrlen(word); for (i = 0; i < sizeof(he_optTab) / sizeof(he_optTab[0]); i++) if (!HDstrncmp(he_optTab[i].str, word, len)) { /* exact match */ if (HDstrlen(he_optTab[i].str) == len) return he_optTab[i].key; if (found < 0) found = (int)i; else return HE_AMBIG; } if (found < 0) return HE_NOTFOUND; return he_optTab[found].key; } char * catStr(const char *s, const char *s1) { char *t; t = (char *) HDmalloc(HDstrlen(s) + HDstrlen(s1) + 1); HDstrcpy(t, s); HDstrcat(t, s1); return t; } char * copyStr(char *s) { char *t; t = (char *) HDmalloc(HDstrlen(s) + 1); HDstrcpy(t, s); return t; } int isGrp(uint16 tag) { switch (tag) { case DFTAG_RIG: case DFTAG_SDG: case DFTAG_NDG: /* and other group tags */ return 1; default: return 0; } } int HEquit(HE_CMD * cmd) { if (cmd->argc > 1) { puts("quit"); puts("\tQuits this application."); return HE_OK; } return quit(0); } int quit(int status) { if (fileOpen()) { if (closeFile(0) < 0) return HE_FAIL; } exit(status); return(status); /* never excuted. Just to shut up some comilers */ } int HEhelp(HE_CMD * dummy) { /* shut compiler up */ dummy = dummy; help(); return HE_OK; } void help(void) { /* print some help informations */ printf("hdfed allows sophisticated HDF users to manipulate the elements in"); printf(" an HDF file.\nThese manipulations include selecting groups and "); printf("showing information about\nthem, dumping them to the output, "); printf("writing them to new files, deleting them,\ninserting them, "); printf("replacing, say, the palette of an r8 group, and editing the\n"); printf("text labels and descriptions of any element.\n\n"); printf("hdfed will NOT allow the user to *arbitrarily* modify binary data "); printf("in the file or\nany element, though it allows modification of tag "); printf("and reference numbers within\nstrict constraints. The user should"); printf(" not attempt to alter individual bytes. It\nis acceptable,"); printf(" however, to replace an element with another of the same type.\n\n"); printf("hdfed can be used both interactively or in 'batch' mode. See the "); printf("\"HDF Calling\nInterfaces and Utilities\" manual section on hdfed "); printf("for an example.\n\n"); printf("List of commands:"); printf("\tannotate dump if open putr8 unalias\n"); printf("\t\t\tclose getr8 info prev revert wait\n"); printf("\t\t\tdelete help next put select write\n"); printf("\nPredicates for 'if' 'select' 'next' and 'prev' are of the form\n"); printf("\ttag = 3 ref = 2 image_size < 1000 label = \"abc\"\n"); printf("Type -help for usage of . DO NOT type the"); printf(" command without\narguments and expect help. Some commands delete"); printf(" objects and do not need any\narguments. If you are learning to "); printf("use hdfed, try it on an expendable file.\n"); } int HEwait(HE_CMD * cmd) { int c; if (cmd->argv[1][0] == '-' && findOpt(cmd->argv[1] + 1) == HE_HELP) { printf("wait []\n"); printf("\tPrints message and then wait for user to hit return\n"); return HE_OK; } printf("%s\nPress return to continue.", cmd->argv[1]); do c = getchar(); while (c != '\n'); return HE_OK; } void deleteCmd(HE_CMD * cmd) { intn i; if (cmd == NULL) return; if (cmd->next != NULL) deleteCmd(cmd->next); if (cmd->sub != NULL) deleteCmd(cmd->sub); for (i = 0; i < cmd->argc; i++) if (cmd->argv[i] != NULL) HDfree(cmd->argv[i]); HDfree(cmd); } /* -------------- routines to manipulate templates --------------------- */ #define TEMPLATE_CHAR1 '#' #define TEMPLATE_CHAR2 '@' #define TEMPLATE_CHAR3 '%' void convertTemplate(char *template, int n1, int n2, int n3, char **pname) { char s1[20], s2[20], s3[20]; char *t; sprintf(s1, "%1d", n1); sprintf(s2, "%1d", n2); sprintf(s3, "%1d", n3); *pname = t = (char *) HDmalloc(HDstrlen(template) + 61); while (*template) switch (*template) { case TEMPLATE_CHAR1: fillTemplate(&template, &t, s1, TEMPLATE_CHAR1); break; case TEMPLATE_CHAR2: fillTemplate(&template, &t, s2, TEMPLATE_CHAR2); break; case TEMPLATE_CHAR3: fillTemplate(&template, &t, s3, TEMPLATE_CHAR3); break; default: *t++ = *template++; } *t = '\0'; } void fillTemplate(char **template, char **pout, char *s, char templateChar) { int templateLen, sLen; /* count length of template to replace */ for (templateLen = 0; **template == templateChar; (*template)++, templateLen++) ; sLen = (int)HDstrlen(s); /* fill with zero's if the space reserved in template is longer than the length of s */ for (; templateLen > sLen; templateLen--) *(*pout)++ = '0'; while (*s) *(*pout)++ = *s++; } /* end of he-main.c */ libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.input10000644000000000000000000000105412421456623015137 0ustar open cb32r2.hdf prev tag = 30 next tag = 702 info dump -float close open cb32r3.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r2.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r3.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr3.hdf prev tag = 30 next tag = 702 info dump -float close open cb64r2_ris.hdf prev tag = 30 next tag = 702 info dump -float close open ctxtr2_ris.hdf prev tag = 30 next tag = 303 info dump -byte close quit libhdf4-4.2.10/HDF_ALT/hdf/util/hdfed.out10000644000000000000000000001437012421456623014515 0ustar (1) Machine type : (Tag 107) Ref 4369 (2) Raster Image Data : (Tag 302) Ref 110 (3) Raster Image-8 : (Tag 202) Ref 110 (4) Number type : (Tag 106) Ref 110 (5) Image Dimensions-8 : (Tag 200) Ref 110 (6) Image Dimensions : (Tag 300) Ref 110 *(7) Raster Image Group : (Tag 306) Ref 110 (6) Image Dimensions : (Tag 300) Ref: 110, Offset: 3459, Length: 20 (bytes) 0: 0 57 0 57 106 110 12: 1 0 0 0 (1) Version Descriptor : (Tag 30) Ref 1 (2) Scientific Data : (Tag 702) Ref 2 (3) Number type : (Tag 106) Ref 2 (4) SciData dimension record : (Tag 701) Ref 2 (5) SciData scales : (Tag 703) Ref 2 (6) SciData max/min : (Tag 707) Ref 2 (7) Calibration information : (Tag 731) Ref 2 (8) Links related to the dataset : (Tag 710) Ref 2 *(9) Numeric Data Group : (Tag 720) Ref 2 (10) Scientific Data Group : (Tag 700) Ref 2 (11) Scientific Data : (Tag 702) Ref 3 (12) Number type : (Tag 106) Ref 3 (13) SciData dimension record : (Tag 701) Ref 3 (14) SciData scales : (Tag 703) Ref 3 (15) SciData max/min : (Tag 707) Ref 3 (16) Numeric Data Group : (Tag 720) Ref 3 (17) Scientific Data : (Tag 702) Ref 4 (18) Number type : (Tag 106) Ref 4 (19) SciData dimension record : (Tag 701) Ref 4 (20) SciData scales : (Tag 703) Ref 4 (21) SciData max/min : (Tag 707) Ref 4 (22) Numeric Data Group : (Tag 720) Ref 4 (23) Scientific Data : (Tag 702) Ref 5 (24) Number type : (Tag 106) Ref 5 (25) SciData dimension record : (Tag 701) Ref 5 (26) SciData scales : (Tag 703) Ref 5 (27) SciData max/min : (Tag 707) Ref 5 (28) Numeric Data Group : (Tag 720) Ref 5 (29) Scientific Data : (Tag 702) Ref 6 (30) Number type : (Tag 106) Ref 6 (31) SciData dimension record : (Tag 701) Ref 6 (32) SciData scales : (Tag 703) Ref 6 (33) SciData max/min : (Tag 707) Ref 6 (34) Numeric Data Group : (Tag 720) Ref 6 (35) Scientific Data : (Tag 702) Ref 7 (36) Number type : (Tag 106) Ref 7 (37) SciData dimension record : (Tag 701) Ref 7 (38) SciData scales : (Tag 703) Ref 7 (39) SciData max/min : (Tag 707) Ref 7 (40) Numeric Data Group : (Tag 720) Ref 7 (41) Scientific Data : (Tag 702) Ref 8 (42) Number type : (Tag 106) Ref 8 (43) SciData dimension record : (Tag 701) Ref 8 (44) SciData scales : (Tag 703) Ref 8 (45) SciData max/min : (Tag 707) Ref 8 (46) Numeric Data Group : (Tag 720) Ref 8 (2) Scientific Data : (Tag 702) Ref: 2, Offset: 294, Length: 400 (bytes) 0: 0.000000e+00 1.000000e+00 2.000000e+00 3.000000e+00 16: 4.000000e+00 5.000000e+00 6.000000e+00 7.000000e+00 32: 8.000000e+00 9.000000e+00 4.000000e+01 4.100000e+01 48: 4.200000e+01 4.300000e+01 4.400000e+01 4.500000e+01 64: 4.600000e+01 4.700000e+01 4.800000e+01 4.900000e+01 80: 8.000000e+01 8.100000e+01 8.200000e+01 8.300000e+01 96: 8.400000e+01 8.500000e+01 8.600000e+01 8.700000e+01 112: 8.800000e+01 8.900000e+01 1.200000e+02 1.210000e+02 128: 1.220000e+02 1.230000e+02 1.240000e+02 1.250000e+02 144: 1.260000e+02 1.270000e+02 1.280000e+02 1.290000e+02 160: 1.600000e+02 1.610000e+02 1.620000e+02 1.630000e+02 176: 1.640000e+02 1.650000e+02 1.660000e+02 1.670000e+02 192: 1.680000e+02 1.690000e+02 2.000000e+02 2.010000e+02 208: 2.020000e+02 2.030000e+02 2.040000e+02 2.050000e+02 224: 2.060000e+02 2.070000e+02 2.080000e+02 2.090000e+02 240: 2.400000e+02 2.410000e+02 2.420000e+02 2.430000e+02 256: 2.440000e+02 2.450000e+02 2.460000e+02 2.470000e+02 272: 2.480000e+02 2.490000e+02 2.800000e+02 2.810000e+02 288: 2.820000e+02 2.830000e+02 2.840000e+02 2.850000e+02 304: 2.860000e+02 2.870000e+02 2.880000e+02 2.890000e+02 320: 3.200000e+02 3.210000e+02 3.220000e+02 3.230000e+02 336: 3.240000e+02 3.250000e+02 3.260000e+02 3.270000e+02 352: 3.280000e+02 3.290000e+02 3.600000e+02 3.610000e+02 368: 3.620000e+02 3.630000e+02 3.640000e+02 3.650000e+02 384: 3.660000e+02 3.670000e+02 3.680000e+02 3.690000e+02 400: (29) Scientific Data : (Tag 702) Ref: 6, Offset: 1616, Length: 200 (bytes) 0: 0 1 2 3 4 5 12: 6 7 8 9 6000 6001 24: 6002 6003 6004 6005 6006 6007 36: 6008 6009 12000 12001 12002 12003 48: 12004 12005 12006 12007 12008 12009 60: 18000 18001 18002 18003 18004 18005 72: 18006 18007 18008 18009 24000 24001 84: 24002 24003 24004 24005 24006 24007 96: 24008 24009 30000 30001 30002 30003 108: 30004 30005 30006 30007 30008 30009 120: -29536 -29535 -29534 -29533 -29532 -29531 132: -29530 -29529 -29528 -29527 -23536 -23535 144: -23534 -23533 -23532 -23531 -23530 -23529 156: -23528 -23527 -17536 -17535 -17534 -17533 168: -17532 -17531 -17530 -17529 -17528 -17527 180: -11536 -11535 -11534 -11533 -11532 -11531 192: -11530 -11529 -11528 -11527 libhdf4-4.2.10/HDF_ALT/hdf/util/hdfcomp.out1.10000644000000000000000000000156612421456623015225 0ustar allstorms.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Raster Image-8 : (tag 202) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Ref no 3 20 bytes Ref no 4 20 bytes Raster Image Data : (tag 302) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes Ref no 3 8 bytes Ref no 4 8 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/0000755000000000000000000000000012421456623015036 5ustar libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/PalToHDF.project.hqx0000644000000000000000000015622512421456623020601 0ustar (This file must be converted with BinHex 4.0) :%&"KE&4[5%4',R"bEfTPBh3!68e3FN0A588!!!!!SQB!!!!!qf4MEfpX!!!!!J! !!#J!!*c#!!#FkJ!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!3J!!!%-!!!"%!!!!43! !!$i!!!""!!!!4J!!!%F!!!")!!!!23!!!%!!!!"*!!!!9!!!!&8!!!"@!!!!5J! !!%X!!!"-!!!!63!!!%i!!!"2!!!!8!!!!&%!!!"5!!!!8`!!!$m!!!"A!!!!@!! !!&N!!!"D!!!!"3!!!!B!!!!(!!!!#!!!!!%!!!!%!!!!#3!!!!S!!!!,!!!!!!! !!!-!!!!-!!!!$3!!!!i!!!!2!!!!%!!!!"%!!!!5!!!!%`!!!"3!!!!9!!!!&J! !!"F!!!!B!!!!'3!!!!)!!!!D!!!!'`!!!"`!!!!G!!!!*!!!!#8!!!!Q!!!!*`! !!#!!!!!M!!!!+!!!!#N!!!!U!!!!(`!!!#)!!!!V!!!!,!!!!#d!!!!Z!!!!,`! !!$!!!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!!h!!!!1!!!!#%!!!!j!!!!1J! !!$X!!!!m!!!!G`!!!(J!!!"j!!!!HJ!!!(-!!!"f!!!!H`!!!(`!!!"p!!!!FJ! !!(8!!!"q!!!!I`!!!)!!!!#"!!!!JJ!!!)-!!!#%!!!!K3!!!)B!!!#(!!!!L!! !!(3!!!#1!!!!M`!!!*!!!!!!N3!!!)S!!!#0!!!!NJ!!!*-!!!#8!!!!L3!!!)` !!!#9!!!!PJ!!!*F!!!#B!!!!Q3!!!*S!!!#E!!!!R!!!!*d!!!#H!!!!R`!!!)X !!!#P!!!!TJ!!!+F!!!#S!!!!S3!!!+3!!!#T!!!!UJ!!!+X!!!#J!!!!S`!!!+` !!!#Y!!!!VJ!!!+m!!!#`!!!!X3!!!,)!!!#c!!!!Y!!!!,8!!!#f!!!!SJ!!!'! !!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!"P!!!!CJ!!!&X!!!"H!!!!C`!!!'J !!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!"[!!!!F!!!!(%!!!"G!!!![!!!!,d !!!#q!!!![`!!!,J!!!#l!!!!`!!!!-%!!!$#!!!!Y`!!!,S!!!$$!!!!a!!!!-8 !!!$'!!!!a`!!!-J!!!$*!!!!bJ!!!-X!!!$-!!!!c3!!!,N!!!$6!!!!e!!!!08 !!!$@!!!!c`!!!0)!!!$A!!!!f!!!!0N!!!$1!!!!d3!!!0S!!!$E!!!!h!!!!0d !!!$H!!!!h`!!!1!!!!$K!!!!iJ!!!1-!!!$N!!!!d!!!!1S!!!$V!!!!l!!!!1d !!!$Q!!!!k3!!!1i!!!$[!!!!m!!!!18!!!$S!!!!m3!!!2)!!!$c!!!!p!!!!28 !!!$f!!!!p`!!!2J!!!$j!!!!qJ!!!2X!!!$R!!!!(J!!!!!!!!!!!!!!!!!!!!! !!!$m!!!"!!!!'ZN!!"`!!!!!r!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% "#!!!!!!!%3!!!!)!!!!!!!!!(`!!!!0RFfpL!!!!*J!!!!3$D@13!!!!!$8!!!! &!3%"!3!!!%3!!!!'!!!!!!!!!&%!!!!(!!!!!!!!!&i!!!!)!!!!!3!!!'`!!!! *'HB!!!!!!(!!!!!+!!"LC3!!!(m!!!!,C%9[BJ!!!*8!!!!-C(3!!!!!!+)!!!! 0!!!!!!!!!,S!!!!1!!!!!!!!!03!!!!2rZ!!C!!!!1d!!!!3BQTN!!!!!3!!!!! 4!"R4!!!!!3S!!!!5!!!!!!!!!4`!!!!6!2rrr`!!!6)!!!!8Ef*UC!!!!8-!!!! 9!!!!!!!!!9)!!!!@!!!!!!!!!9m!!!!A!!$rr`!!!@d!!!!B!)G[BJ!!!A3!!!! CF(3!!!!!!B8!!!!D!!!!!!!!!C3!!!!E!!!!!!!!!D3!!!!FE'&MC3!!!E)!!!! G!!!pC`!!!Em!!!!H&J!3!3!!!FF!!!!I'!!!!!!!!GS!!!!Jr`!!'3!!!H`!!!! K!!!"J!!!!J!!!!!L!!!!!!!!!K-!!!!M!!!!!!!!!KX!!!!NZG!!!!!!!LS!!!! PG'`!!!!!!MN!!!!Q!j'*`!!!!NX!!!!REA0dEJ!!!Q)!!!!S!!!$N3!!!Qi!!!! T!#KYF`!!!S!!!!!U!!!!!!!!!T!!!!!!+fplEhX!!!+F!!!!,!#JHf!!!!+T!!! !,3!!!M!!!!+j!!!!,J!!!"3!!!,-!!!!,`!!!!!!!!,N!!!!-!!!!!!!!!,a!!! !-3!!!!!!!!-%!!!!-J!!!!!!!!-5!!!!-`!!!!!!!!-I!!!!0!!!!!!!!!-X!!! !03!!!!!!!!-l!!!!0J!!!!!!!!03!!!!0`!!!!!!!!0C!!!!1!!!!!!!!!0S!!! !13!!!!!!!!0c!!!!1J!!!!!!!!0m!!!!1`!!!!!!!!10!!!!2!!!!!!!!!1K!!! !23!!!!!!!!1k!!!!2J!!!!!!!!21!!!!2`!!!!!!!!2G!!!!3!!!!!!!!!2V!!! !33!!!!!!!!2j!!!!3J!!!!!!!!3)!!!!3`!!!!!!!!3D!!!!4!!!!!!!!!3a!!! !43!!!!!!!!3p!!!!4J!!!!!!!!42!!!!4`!!!!!!!!4F!!!!5!!!!!!!!!4S!!! !53!!!!!!!!4[!!!!5J!!!!!!!!4j!!!!5`!!!!!!!!5"!!!!6!!!!!!!!!5-!!! !63!!!!!!!!59!!!!6J!!!!!!!!5J!!!!6`!!!!!!!!5U!!!!8!!!!!!!!!5h!!! !83!!!!!!!!6!!!!!8J!!!!!!!!6-!!!!8`!!!!!!!!6@!!!!9!!!!!!!!!6I!!! !93!!!!!!!!6V!!!!9J!!!!!!!!6e!!!!9`!!!!!!!!8!!!!!@!!!!!!!!!8+!!! !@3!!!!!!!!8A!!!!@J!!!!!!!!8L!!!!@`!!!!!!!!8X!!!!A!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!! !)!!!!!S!!!!5!!!!5J!!!%i!!!!Q!!!!8!!!!#N!!!")!!!!8`!!!&F!!!!a!!! !,J!!!$i!!!!m!!!!@J!!!%B!!!"$!!!!1!!!!$8!!!!K!!!!!!!!!"-!!!!&!!! !!3!!!%X!!!"-!!!!*`!!!#8!!!!U!!!!+!!!!%m!!!"0!!!!83!!!&)!!!!M!!! !*!!!!%N!!!!L!!!!9!!!!&8!!!"B!!!!9J!!!!X!!!!F!!!!,`!!!#d!!!!b!!! !-!!!!#X!!!!X!!!!!`!!!"3!!!!3!!!!(3!!!!i!!!!p!!!!2`!!!$X!!!"!!!! !1J!!!!3!!!!0!!!!'J!!!!`!!!!E!!!!$`!!!"i!!!!4!!!!(`!!!!B!!!!9!!! !"`!!!"B!!!"E!!!!@3!!!!N!!!!C!!!!&`!!!!J!!!!B!!!!4!!!!%)!!!"(!!! !43!!!%%!!!!f!!!!0!!!!$N!!!!h!!!!-`!!!!!!!!!!!!!!!!!!!!!!!!"F!!! !B!!!"6N!!!J!!!!!A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-!!(rr!!!!!(rr!!! !!(rr!!!!!(rr!!!!!J%!!!B#!!!!!!!"!3!"!3!!!!%!!!!"!!!!!!%"!!!"!3! "!!!(!3!"!3!"!3!!!!%!!!N!!3!"!3!!$%eKBdKPB@4PFR-ZD'KKBbjS!!!!!!! !!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!`%"!3%"!3%!!3!!!3%"!!!!!!!!!!! !$J!"!!!!!!%"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!!!!%!!3!#!!!!!!!!!!!!!!!!!`)!!3%!!3!!!!!!!!!!!!!!!!!!!!!!!!! "!!!!!J!!!!-!!!!%!!!!"3!!!!B!!!!,!!!!"`!!!!`!!!!)!!!!$3!!!!N!!!! 2!!!!#J!!!!i!!!!3!!!!%3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'plEhY[Hfpl!!!!%3!!!#!"!!%!!#%"!!!D!3!!'3% !!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3%!!#%!!3%"!!!"!3! "!!!"!3!"!!!!!!!!!!!!!!%"!!%!!3%!!3!"!!!!!J!!!"`!!!!!!!!!!!!!!!! !!!!!!!-!!!!'!!!!!`!!!!Dc4M0prrqVeJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!A!%!!!%!!!!!!!! !!!3!!!!!@l&hSii!!!$e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J!!"4"6P0 *)%0[ER0[E'8J0MKV,QpeG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!r2cmr39"36!!!!B"BJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cm !!!!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!! #!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!3!!38j655"$EfjcEfaP)$BiDcT$GA0dEfd J5f9jGfpbC(-!38j655"$EfjcEfaP)$BiDcT"Bf0PFh-J8'&dD(-!38j655"$Efj cEfaP)$BiDcT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)$BiDcT'D@aP)%e KF("TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3R9TE'3J4AKdFQ&c!%&18dNJ3fpZFfp XC5!f1'Xk0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcSf1%XJ4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MK V1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ3fpYF'PXCA)!38j 655"$EfjcEfaP)$BiDcT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1N0 '66Bi5`""6P0*)%0[ER0[E'8J0MKV1NP5)%p`G'PYDATPFJ""6P0*)%0[ER0[E'8 J0MKV1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"3FQpUC@0d!%& 18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"@63""6P0*)%0[ER0[E'8J0MKV1NeKBdp6)%e PFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8'&cBf&X)%0[EA"TE'9b!%&18dN J3fpZFfpXC5!f1'Xk8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk8&" $)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcT38%-J4'PcBA0cC@eLE'9b!%&18dN J3fpZFfpXC5!f1'Xk8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"348B !38j655"$EfjcEfaP)$BiDcT38%-J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1P" 33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P*PHL"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%0 [C'9(C@i!38j655"$EfjcEfaP)$BiDcTi1$BJ6'PZDf9b!%&18dNJ3fpZFfpXC5! f1'XkH$Jf)&"bEfTPBh3!8(*[DQ9MG#"'D@aP)%aTFh3!38j655"$EfjcEfaP)&" 33cT$GA0dEfdJ5f9jGfpbC(-!38j655"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(- !38j655"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)&" 33cT'D@aP)%eKF("TEQGc!%&18dNJ3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cSf1%X J4'PcBA0cC@eLE'9b!%&18dNJ3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ""6P0*)%0 [ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ3fp YF'PXCA)!38j655"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0 [E'8J8&"$1N0'66Bi5`""6P0*)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0 *)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5" 3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5"@63""6P0*)%0[ER0[E'8J8&" $1NeKBdp6)%ePFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)%0[EA" TE'9b!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k8&"$)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&" $1P"33b"348B!38j655"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%0[ER0 [E'8J8&"$1P"33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5" 38%-kH$Jf)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1N0eFh4 [E5",CAPhEh*NF`""6P0*)%-J3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%&18dN J3b"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&" $1MBi5b"%DA0KFh0PE@*XCA)!38j655"$)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA) !38j655"$)%0[ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&" 33cT$,d-V+b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQP ZCh-!38j655"$)%0[ER0[E'8J8&"$1N0'66Bi5`""6P0*)%-J3fpZFfpXC5"38%- k59)J6h"dD@eTHQ9b!%&18dNJ3b"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@j PE!""6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)%0[EA"TE'9b!%&18dNJ3b"$Efj cEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$)%0[ER0[E'8J8&"$1P"33b" $Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@eLE'9b!%&18dN J3b"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cT38%- J8%9'!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%-J3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3b"$EfjcEfaP)&"33cT5CASJ3fpYF'P XCA)!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3b"$EfjcEfa P)&"33cT+BACK)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j 655"$)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0 *)%-J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!D'4QE(-J8&"$1N0eFh4[E5",CAP hEh*NF`"SC'CXFb"38%-k3@0MCA0c)&"KG'Kc!'KNCQac)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QE(-J8&"$1NCTE'8J6@&`F'PZCh-!D'4QE(-J8&"$1N*eD@aN)%9 iG(*KF`"SC'CXFb"38%-k0MK,)%0[C'9(C@i!D'4QE(-J8&"$1MBi5b"%DA0KFh0 PE@*XCA)!D'4QE(-J8&"$1MBi5b"-D@jVCA)!D'4QE(-J8&"$1MBi5b"3FQpUC@0 d!'KNCQac)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CXFb"38%-k3bp$+bXJ9f&bEQP ZCh-!D'4QE(-J8&"$1N0'66Bi5`"SC'CXFb"38%-k59)J6h"dD@eTHQ9b!'KNCQa c)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CXFb"38%-k8'&cBf&X)%0[EA"TE'9 b!'KNCQac)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QE(-J8&"$1P"33b"$Ef4P4f9 Z!'KNCQac)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCQac)&"33cT38%-J6'PZDf9 b!'KNCQac)&"33cT38%-J8%9'!'KNCQac)&"33cT38%-J8(*[DQ9MG!"SC'CXFb" 38%-k8&"$3A0Y)&"KEQ9X!'KNCQac)&"33cT5CASJ3fpYF'PXCA)!CR!bD'4Q)&" 33cT$GA0dEfdJ5f9jGfpbC(-!CR!bD'4Q)&"33cT"Bf0PFh-J8'&dD(-!CR!bD'4 Q)&"33cT8BA*RCA3J8f9dG'PZCh-!CR!bD'4Q)&"33cT'D@aP)%eKF("TEQGc!'C `-QKNCL"38%-k3R9TE'3J4AKdFQ&c!'C`-QKNCL"38%-k0MK,)%0[C'9(C@i!CR! bD'4Q)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'C`-QKNCL"38%-k0MK,)%aTEQYPFJ" QF$*SC'BJ8&"$1MBi5b"3FQpUC@0d!'C`-QKNCL"38%-k3bp$+bXJ3fpYF'PXCA) !CR!bD'4Q)&"33cT$,d-V+b"ABA*ZD@jRF`"QF$*SC'BJ8&"$1N0'66Bi5`"QF$* SC'BJ8&"$1NP5)%p`G'PYDATPFJ"QF$*SC'BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!'C`-QKNCL"38%-k8'&cBf&X)%0[EA"TE'9b!'C`-QKNCL"38%-k8'&cBf&X)&G KFQjTEQGc!'C`-QKNCL"38%-k8&"$)%0[C'9(C@i!CR!bD'4Q)&"33cT38%-J4'P cBA0cC@eLE'9b!'C`-QKNCL"38%-k8&"$)%aTEQYPFJ"QF$*SC'BJ8&"$1P"33b" 348B!CR!bD'4Q)&"33cT38%-J8(*[DQ9MG!"QF$*SC'BJ8&"$1P"33d&cE5"3B@j PE!"QF$*SC'BJ8&"$1P*PHL"$Efe`D@aPFJ"SC'Bb0(4[1#"38%-k3h9cG'pY)%Y PHAG[FQ4c!'KNCM)dG'mi)&"33cT"Bf0PFh-J8'&dD(-!D'4Q-M4dEcJJ8&"$1P4 KFQGPG#"6CA4dD@jRF`"SC'Bb0(4[1#"38%-k4QPXC5"0BA"`D@jRF`"SC'Bb0(4 [1#"38%-k3R9TE'3J4AKdFQ&c!'KNCM)dG'mi)&"33cSf1%XJ3fpNC8GPEJ"SC'B b0(4[1#"38%-k0MK,)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k0MK,)%aTEQY PFJ"SC'Bb0(4[1#"38%-k0MK,)&"bEfTPBh3!D'4Q-M4dEcJJ8&"$1N-[3bXV)%0 [EA"TE'9b!'KNCM)dG'mi)&"33cT$,d-V+b"ABA*ZD@jRF`"SC'Bb0(4[1#"38%- k3dC00MK,!'KNCM)dG'mi)&"33cT*8L"2F(4TE@PkCA)!D'4Q-M4dEcJJ8&"$1Ne KBdp6)%ePFQGP)&"KEQ9X!'KNCM)dG'mi)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4 Q-M4dEcJJ8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'Bb0(4[1#"38%-k8&"$)%0[C'9 (C@i!D'4Q-M4dEcJJ8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4Q-M4dEcJJ8&"$1P" 33b"-D@jVCA)!D'4Q-M4dEcJJ8&"$1P"33b"348B!D'4Q-M4dEcJJ8&"$1P"33b" 3FQpUC@0d!'KNCM)dG'mi)&"33cT38%0"FfdJ8'&ZC@`!D'4Q-M4dEcJJ8&"$1P* PHL"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QBfpYF#" 38%-k3@0MCA0c)&"KG'Kc!'KNCQ0[EA!J8&"$1P4KFQGPG#"6CA4dD@jRF`"SC'C MEfe`)&"33cT'D@aP)%eKF("TEQGc!'KNCQ0[EA!J8&"$1N*eD@aN)%9iG(*KF`" SC'CMEfe`)&"33cSf1%XJ3fpNC8GPEJ"SC'CMEfe`)&"33cSf1%XJ4'PcBA0cC@e LE'9b!'KNCQ0[EA!J8&"$1MBi5b"-D@jVCA)!D'4QBfpYF#"38%-k0MK,)&"bEfT PBh3!D'4QBfpYF#"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QBfpYF#"38%-k3bp$+bX J9f&bEQPZCh-!D'4QBfpYF#"38%-k3dC00MK,!'KNCQ0[EA!J8&"$1NP5)%p`G'P YDATPFJ"SC'CMEfe`)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CMEfe`)&"33cT 3BA0MB@`J3fpYF'PXCA)!D'4QBfpYF#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQ0 [EA!J8&"$1P"33b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1P"33b"%DA0KFh0PE@*XCA) !D'4QBfpYF#"38%-k8&"$)%aTEQYPFJ"SC'CMEfe`)&"33cT38%-J8%9'!'KNCQ0 [EA!J8&"$1P"33b"3FQpUC@0d!'KNCQ0[EA!J8&"$1P"33d&cE5"3B@jPE!"SC'C MEfe`)&"33cT5CASJ3fpYF'PXCA)!D'4QF'&MDb"38%-k3h9cG'pY)%YPHAG[FQ4 c!'KNCR"KBfXJ8&"$1N&MBf9cFb"3BA4SF`"SC'C`B@0V)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QF'&MDb"38%-k4QPXC5"0BA"`D@jRF`"SC'C`B@0V)&"33cT#G@P XC#"&H(4bBA-!D'4QF'&MDb"38%-k0MK,)%0[C'9(C@i!D'4QF'&MDb"38%-k0MK ,)%4TFf&cFf9YBQaPFJ"SC'C`B@0V)&"33cSf1%XJ6'PZDf9b!'KNCR"KBfXJ8&" $1MBi5b"3FQpUC@0d!'KNCR"KBfXJ8&"$1N-[3bXV)%0[EA"TE'9b!'KNCR"KBfX J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR"KBfXJ8&"$1N0'66Bi5`"SC'C`B@0V)&" 33cT*8L"2F(4TE@PkCA)!D'4QF'&MDb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4 QF'&MDb"38%-k8'&cBf&X)%0[EA"TE'9b!'KNCR"KBfXJ8&"$1P"KFf0KE#"ABA* ZD@jRF`"SC'C`B@0V)&"33cT38%-J3fpNC8GPEJ"SC'C`B@0V)&"33cT38%-J4'P cBA0cC@eLE'9b!'KNCR"KBfXJ8&"$1P"33b"-D@jVCA)!D'4QF'&MDb"38%-k8&" $)&"&4J"SC'C`B@0V)&"33cT38%-J8(*[DQ9MG!"SC'C`B@0V)&"33cT38%0"Ffd J8'&ZC@`!D'4QF'&MDb"38%-k8Q9k)%0[EA"TE'9b!'KNCR4[F'&X)&"33cT$GA0 dEfdJ5f9jGfpbC(-!D'4QG'p`B@`J8&"$1N&MBf9cFb"3BA4SF`"SC'CdEh"KE#" 38%-k9'&bCf9d)&0PG(4TEQGc!'KNCR4[F'&X)&"33cT'D@aP)%eKF("TEQGc!'K NCR4[F'&X)&"33cT#G@PXC#"&H(4bBA-!D'4QG'p`B@`J8&"$1MBi5b"$Ef4P4f9 Z!'KNCR4[F'&X)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCR4[F'&X)&"33cSf1%X J6'PZDf9b!'KNCR4[F'&X)&"33cSf1%XJ8(*[DQ9MG!"SC'CdEh"KE#"38%-k3bp $+bXJ3fpYF'PXCA)!D'4QG'p`B@`J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR4[F'& X)&"33cT$4Ndf1%X!D'4QG'p`B@`J8&"$1NP5)%p`G'PYDATPFJ"SC'CdEh"KE#" 38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QG'p`B@`J8&"$1P"KFf0KE#"$Efe`D@a PFJ"SC'CdEh"KE#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCR4[F'&X)&"33cT38%- J3fpNC8GPEJ"SC'CdEh"KE#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'CdEh"KE#" 38%-k8&"$)%aTEQYPFJ"SC'CdEh"KE#"38%-k8&"$)&"&4J"SC'CdEh"KE#"38%- k8&"$)&"bEfTPBh3!D'4QG'p`B@`J8&"$1P"33d&cE5"3B@jPE!"SC'CdEh"KE#" 38%-k8Q9k)%0[EA"TE'9b!&"KE&4[5%4')&"33cT$GA0dEfdJ5f9jGfpbC(-!8'& X9'p)4%BJ8&"$1N&MBf9cFb"3BA4SF`"3B@a8EdK%4L"38%-k9'&bCf9d)&0PG(4 TEQGc!&"KE&4[5%4')&"33cT'D@aP)%eKF("TEQGc!&"KE&4[5%4')&"33cT#G@P XC#"&H(4bBA-!8'&X9'p)4%BJ8&"$1MBi5b"$Ef4P4f9Z!&"KE&4[5%4')&"33cS f1%XJ4'PcBA0cC@eLE'9b!&"KE&4[5%4')&"33cSf1%XJ6'PZDf9b!&"KE&4[5%4 ')&"33cSf1%XJ8(*[DQ9MG!"3B@a8EdK%4L"38%-k3bp$+bXJ3fpYF'PXCA)!8'& X9'p)4%BJ8&"$1N-[3bXV)&GKFQjTEQGc!&"KE&4[5%4')&"33cT$4Ndf1%X!8'& X9'p)4%BJ8&"$1NP5)%p`G'PYDATPFJ"3B@a8EdK%4L"38%-k6@&M6e-J6@9bCf8 J8'&ZC@`!8'&X9'p)4%BJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"3B@a8EdK%4L"38%- k8'&cBf&X)&GKFQjTEQGc!&"KE&4[5%4')&"33cT38%-J3fpNC8GPEJ"3B@a8EdK %4L"38%-k8&"$)%4TFf&cFf9YBQaPFJ"3B@a8EdK%4L"38%-k8&"$)%aTEQYPFJ" 3B@a8EdK%4L"38%-k8&"$)&"&4J"3B@a8EdK%4L"38%-k8&"$)&"bEfTPBh3!8'& X9'p)4%BJ8&"$1P"33d&cE5"3B@jPE!"3B@a8EdK%4L"38%-k8Q9k)%0[EA"TE'9 b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%&18dNJ3fp ZFfpXC5!f1'X!4QPbFh3J8f9RE@9ZG!!kB5j[GA3!6'PL)%PYF'pbG#!f1%X!69" A)%PYF'pbG#!f1%X!3Q&XE'p[EL")C@a`!%eA)%-[3bXV)$Bi5`"09b"3BA0MB@` J0MK,!&*PHJ"348BJ5@e`Eh*d)$Bi5`!k38j655"$EfjcEfaP)$BiDbj[GA3!5'9 XE'pAEh*XC#jM!%e66#"$,MBi5b"'B5JdD9miC#NZ6'PL!%e66#"$+bXZ0MK,)%C K+$4TAcKN+5j-D@)!6@&dD%aTBMBi5b"'B5JdD5miC#NZ6'PL!%e66#"5G@jdD@e P0MK,,NaTBJ"0B@028bjXD@)!690-)&0*6e9B,MBi5bj-D@)!1N&18dNJ3fpZFfp XC5"38%-ZEh9d!%&18dNJ3fpZFfpXC5"38%-!6'PL)%PYF'pbG#"38%-!69FJ3bp $+bXJ8&"$!%eA)&"KFf0KE#"38%-!8&"$3A0Y!&K$6dC')%PYF'pbG#"38%-!8%9 ')%PYF'pbG#"38%-!690-)%-V+bj38%-Z6'PL!%e66#"$,P"33bj-D@)!5@jdCA* QB@0P6'PL!%eKG'K-D@)!690-)&*eER4TE@938%-Z6'PL!%e66#"658p9@#j38%- Z6'PL!$T"6P0*)%-J3fpZFfpXC5"38%-!38j655"$)%0[ER0[E'8J8&"$!'KNCQa c,Q-!D'4QE'PL,P"33bjXD@)!D'4QE'PL,R"bEfTPBh3!D'4Q)%aTBL!f1%XJ4'9 LG@F!1QKNCMBiDbj'BA)S0'N[1'3T,QaTBJ"SC'BJ6'PL)$Bi5`"SC'BJ6'PL)&" 33b"%C@*eC`!kD'4QE'PL,P"33bjXD@)!D'4Q)%aTBL"38%-!DR"PCbj38%-ZE'P L!'T`C@GXD@)ZF(*[DQ9MG!"UF'9R)%aTBL!f1%XJ4'9LG@F!1QT`C@Ff1'XZ4Q& b+$4T,cKN+5jXD@)!DR"PCb"-D@)J0MK,!'T`C@FJ6'PL)&"33b"%C@*eC`!kDR" PCbj38%-ZE'PL!'T`C@FJ6'PL)&"33`"kE'PL,R"bEfTPBh3!HQaTBL!f1%XJ4'9 LG@F!1RSf1'XZ4Q&b+$4T,cKN+5jXD@)!HQaTBL!f1%X!HQaTBL"38%-J4'9LG@F !1RSZ8&"$,QaTBJ"kE'PL)&"33`"YCQKNCQaTBLj`FQpUC@0d!'eQD'4Q)%aTBL! f1%XJ4'9LG@F!1QeQD'4Q0MKV,NCKFLJdD5miC#NZE'PL!'eND'4Q)%aTBL"38%- J4'9LG@F!1QeQD'4Q,P"33bjXD@)!E@CSC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&" $!(KNFQaTBLj`FQpUC@0d!(KNFL"-D@)J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4 T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4b)%aTBL"38%-J4'9LG@F!1RKNFLj38%- ZE'PL!(KNFL"-D@)J8&"$!$TSC'CXF`"SC'CXFb"38%-!1QC`-QKNCJ"QF$*SC'B J8&"$!'C`-QKNCLjM!'KNCM)dG'mi,Q-!1QKNCM)dG'mi!'KNCM)dG'mi)&"33`! kD'4QBfpYF!"SC'CMEfe`)&"33`"SC'CMEfe`,Q-!1QKNCR"KBfX!D'4QF'&MDb" 38%-!D'4QF'&MDbjM!'KNCR4[F'&X,Q-!1NK%4R4[8'&X!'KNCR4[F'&X)&"33`" `B@adEfKNCLjM!$T3B@adEdK%4J"3B@a8EdK%4L"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&8Np29!!!!!!!!!!!!!!!!!4 (8P93!!!!!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3!!)8G599!!!!!!!!!!!Jj"6P0 *)%aTBR*KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP-43%!!!e(8P93!!!!!!! !!!%06@&M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8"!!!,4NP-43%!!!a(8P9 3!!!!!!!!!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8)8(*[DQ9MG(-!!!!&4NP -43%!!""'58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a&!3!!&8C*6%8"!!!@4NP -43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!3!!#8ePFQGP)%peG!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e033da&!3!!&NC*6%8"!!!A4NP -43%!!"K'58a&!3!!'8C*6%8"!!!D!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!!Q!!! !*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!!!!!! V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!!!,`! !!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"-!!!! %!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13!!!!! &!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!!!!!! !!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`%!!"S&!3% !!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!!!!%B !!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!$%%eKBdp6)&"33b"-D@jVCA) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!a 3B@a8EdK%4L"38%0$C5"38%-!!!!!!!!!!!!!!!!!!!%k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!'`J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AepcG'&bG!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!! %4%a(@'0VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!!!!!3!"!!!!!!!!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH("XEh*P,Q9 iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J! $!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N#H`!!!!! !!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !"J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!)8'&XG'p )4%C[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!NC*6%8"!!!K4NP-43%!!#" (8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP-43%!!!P'58a&!3!!#%C *6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a &!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!! &#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP -43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80XBA0cCA-ZHQP `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!"S"!!!C!3!!'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`% !!!`"!!!0!3!!(J%!!"m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!! !!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d!"`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9 iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!(D'4QF'& MDcK[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!8C*6%8"!!!I4e*98!!!!!! !!!!#$N&18dNJ6'PLFQ&bD@9c!!!!!dC*6%8"!!!*4NP-43%!!!K'58a&!3!!$8G 599!!!!!!!!!!!3e0B@-J6'PLFQ&bD@9c!!!!!dC*6%8"!!!+4NP-43%!!!Y'58a &!3!!$%G599!!!!!!!!!!"!G)4%C-D@*c!!!!"NG599!!!!!!!!!!"3K3FQpUC@0 dF`!!!!9'58a&!3!!%%C*6%8"!!!54NP-43%!!"0'58a&!3!!&%C*6%8"!!!94NP -43%!!"C'58a&!3!!&dC*6%8"!!!B4NP-43%!!"P'58a&!3!!'J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!)!!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!9K,QpeG!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93' 3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!)!!!!!!!!!2`!!!!0 cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C3D@j5!!!!ZJ!!!!G K8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T0C@je!!!"03!!!!Y d3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!jTE'a$!!!"U!!!!!p 6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"*(CA4$!!!#)`!!!"0 PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C(CA4$!!!#R`!!!"G d3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T$G'`,!!!$%3!!!"Y XG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j%FQ&R!!!$K`!!!"p 8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#)!!!!'!!!$q3!!!#1 [H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B!!!!!!!!%G3!!!#F !!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S!!!!!!!!%lJ!!!#X !!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i!!!!!!!!&A`!!!#m !!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$)!!!!!!!!&h3!!!$- !!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B!!!!!!!!'83!!!$F !!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S!!!!!!!!'bJ!!!$X !!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i!!!!!!!!(3`!!!$m !!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%)!!!!!!!!(a`!!!%- !!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B!!!!!!!!)4`!!!%F !!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S!!!!!!!!)a3!!!%X !!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i!!!!!!!!*6`!!!%m !!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&)!!!!!!!!*b`!!!&- !!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B!!!!!!!!+5J!!!&F !!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S!!!!!!!!+a!!!!&X !!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i!!!!!!!!,,J!!!&m !!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!')!!!!!!!!,MJ!!!'- !!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B!!!!!!!!,k`!!!'F !!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S!!!!!!!!-53!!!'X !!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i!!!!!!!!-U3!!!'m !!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!()!!!!!!!!-r`!!!(- !!!!!!!!0'J!!!(3!!!!!!!!0-J!!!(8!!!!!!!!063!!!(B!!!!!!!!0CJ!!!(F !!!!!!!!0IJ!!!(J!!!!!!!!0P3!!!(N!!!!!!!!0X3!!!(S!!!!!!!!0a`!!!(X !!!!!!!!0hJ!!!(`!!!!!!!!0q!!!!(d!!!!!!!!1%J!!!(i!!!!!!!!1*!!!!(m !!!!!!!!12!!!!)!!!!!!!!!1@3!!!)%!!!!!!!!1G!!!!))!!!!!!!!1M`!!!)- !!!!!!!!1TJ!!!)3!!!!!!!!1`J!!!)8!!!!!!!!1f!!!!)B!!!!!!!!1k`!!!)F !!!!!!!!2!J!!!)J!!!!!!!!2'J!!!)N!!!!!!!!2-J!!!)S!!!!!!!!26`!!!)X !!!!!!!!2D3!!!)`!!!!!!!!2KJ!!!)d!!!!!!!!2S3!!!)i!!!!!!!!2Z`!!!)m !!!!!!!!2e!!!!*!!!!!!!!!!$r)!!!#4!!!!!!!!%!S!!!#5!!!!!!!!%#-!!!# 6!!!!!!!!%$m!!!#8!!!!!!!!%&X!!!#9!!!!!!!!%'m!!!#@!!!!!!!!%)N!!!# A!!!!!!!!%+J!!!#B!!!!!!!!%-8!!!#C!!!!!!!!%1)!!!#D!!!!!!!!%2X!!!# E!!!!!!!!%4N!!!#F!!!!!!!!%6%!!!#G!!!!!!!!%8B!!!#H!!!!!!!!%9m!!!# I!!!!!!!!%AN!!!#J!!!!!!!!%C-!!!#K!!!!!!!!%Dm!!!#L!!!!!!!!%FJ!!!# M!!!!!!!!%H3!!!#N!!!!!!!!%Ii!!!#P!!!!!!!!%KF!!!#Q!!!!!!!!%Lm!!!# R!!!!!!!!%N`!!!#S!!!!!!!!%Q-!!!#T!!!!!!!!%RX!!!#U!!!!!!!!%TB!!!# V!!!!!!!!%V%!!!#X!!!!!!!!%X3!!!#Y!!!!!!!!%Yd!!!#Z!!!!!!!!%[X!!!# [!!!!!!!!%aF!!!#`!!!!!!!!%c-!!!#a!!!!!!!!%dX!!!#b!!!!!!!!%fJ!!!# c!!!!!!!!%hm!!!#d!!!!!!!!%j-!!!#e!!!!!!!!%kX!!!#f!!!!!!!!%m3!!!# h!!!!!!!!%pd!!!#i!!!!!!!!%rN!!!#j!!!!!!!!&")!!!#k!!!!!!!!&#i!!!# l!!!!!!!!&%J!!!#m!!!!!!!!&'%!!!#p!!!!!!!!&(N!!!#q!!!!!!!!&*B!!!# r!!!!!!!!&+d!!!$!!!!!!!!!&-8!!!$"!!!!!!!!&1!!!!$#!!!!!!!!&2X!!!$ $!!!!!!!!&3i!!!$%!!!!!!!!&5F!!!$&!!!!!!!!&88!!!$'!!!!!!!!&@%!!!$ (!!!!!!!!&Ad!!!$)!!!!!!!!&C8!!!$*!!!!!!!!&E)!!!$+!!!!!!!!&FN!!!$ ,!!!!!!!!&Gd!!!$-!!!!!!!!&I8!!!$0!!!!!!!!&Ji!!!$1!!!!!!!!&LF!!!$ 2!!!!!!!!&N3!!!$3!!!!!!!!&Pi!!!$4!!!!!!!!&RX!!!$5!!!!!!!!&TB!!!$ 6!!!!!!!!&V!!!!$8!!!!!!!!&XN!!!$9!!!!!!!!&ZF!!!$@!!!!!!!!&[m!!!$ A!!!!!!!!&aJ!!!$B!!!!!!!!&c3!!!$C!!!!!!!!&e!!!!$D!!!!!!!!&f3!!!$ E!!!!!!!!&hi!!!$F!!!!!!!!&jd!!!$G!!!!!!!!&lS!!!$H!!!!!!!!&pF!!!$ I!!!!!!!!&r!!!!$J!!!!!!!!'!i!!!$K!!!!!!!!'#B!!!$L!!!!!!!!'$X!!!$ M!!!!!!!!'&3!!!$N!!!!!!!!''i!!!$P!!!!!!!!')J!!!$Q!!!!!!!!'+8!!!$ R!!!!!!!!',m!!!$S!!!!!!!!'0`!!!$T!!!!!!!!'2F!!!$U!!!!!!!!'4%!!!$ V!!!!!!!!'5S!!!$X!!!!!!!!'8J!!!$Y!!!!!!!!'@!!!!$Z!!!!!!!!'AN!!!$ [!!!!!!!!'C8!!!$`!!!!!!!!'E%!!!$a!!!!!!!!'F8!!!$b!!!!!!!!'Gm!!!$ c!!!!!!!!'Ii!!!$d!!!!!!!!'KX!!!$e!!!!!!!!'MJ!!!$f!!!!!!!!'P%!!!$ h!!!!!!!!'Qm!!!$i!!!!!!!!'SF!!!$j!!!!!!!!'T`!!!$k!!!!!!!!'V8!!!$ l!!!!!!!!'Xm!!!$m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!'!!!!"`!&!!!!#8!!!!`!!6S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!"!!%k1MTcFQ-k!%Bd,M&b-L!Y)(*PE'9 KFf8kD'4Q1R9dD@`k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!!!!!`!"1MSkDR"PCcS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!!3!!6Sk1RTXD@)k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!! &!!%k1MSkE@CSC'BkE'PLFh*M1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"J!"1MSk1Qe QD'4Q1RKNFMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!J!!6Sk!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!,!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#" -D@*bBA*j1Ne66#"3FQ9MEfe`D@aPC#")C@&NCA)k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%k3!!!"!!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T 08d`J3cS!D@pb1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!%!!!!%!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-V+cS !!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4r)#J!!!! "!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q3!!2,Qac rrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!!!!34r)#J !!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX$M)q3!!2 ,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjYJ!!!!!J4 r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2,Qj!!!ib 2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!!!!mC8E!! !!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!!!!`!"N!! $M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!!!!!!$adN d!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!14MZ`$bja 3!ib2N!!"r`%!3!!!!J!#1NeKBdp6)&0eF("[FR3k!%p-!iXSb!2,QS!$M)q3!!2 ,QVcrrrrr!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4 r)#J!!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q 3!!2,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!! !!34r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX $M)q3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjY J!!!!!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2 ,Qj!!!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!! !!mC8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!! !!`!"N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!! !!!!$adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!1 4MZ`$bja3!ib2N!!"r`%!3!!!!`!#1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!")!!!!!!"!!!)!!!!'`)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!#3!!!"`#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!S !!!!G!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!,!!!!(J)!!!! !!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!$!!!!"m#!!!!!!!!!3!"!`! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!d!!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!3!!!!*3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!%J!!!#d#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"- !!!!d!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!8!!!!1`)!!!! !!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!&3!!!%)#!!!!!!!!!3!"!J! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"B!!!!U"3!!!!%!!"!!!3-!!!!!!!!!!!! !!!#"!!!!!!!!!!!"!!!A!!!!-J8!!!!"!!!5!!%$!!!!!!!!!!!!!!!!J3!!!!! !!!!!!3!!'!!!!$N&!!!!!3!!%`!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"N !!!"("3!!!!%!!"8!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!D!!!!2`8!!!! "!!!8!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!)3!!!&S#!!!!!!!!!3!"!3! !!!!!!!!!!!!!!!%!!!!!!!!!!!%!!#%!!!"D!J!!!!!!!!%!!3%!!!!!!!!!!!! !!!!"!!!!!!!!!!!!!!!%!!!!"J!!!!8$DI'!8%&B3&S!CAKM*'*L!fRES!0TlQ! !!!!!!!!"F!1B"2"TH&*[G@jN#%PZDA3$DGZJ#%PZDA4(FQ&Q#%p`C@j3Eh*d$8a [Bf&X9'p(E'pLB@`04fa[BQ&X9'p-Ef0KE!T(!)l'J1X!!"3!!!!Jrrrff!!!!!! !!!!!!3!"!!2Kim!!MXF3k`!!&!!!!#$rrrEX!!!!!!!!!!!"!!%!!q(M`!#1ac$ V!!!%!!!%%2rrp[K-D@)J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfp Z)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3 J0MK,!!!!)!!'D""[D@jd3%")5c"!@J!$D4U3!!0T2&$V!!!8!!!!)!!'D#4XC84 KG'&!3$096d`$D4U3!!0T2($V!!!8!!!!)!!'D"a5C@0d3$)`!$p%Ed3$D4U3!!0 T2*!!k`!!&!!!!#!!"QJSBf9!3&&"48Y,8%*9!fNDN!!$D6b`k`!!&!!!!#!!"QJ J8fpeFQ0P3%"!@J!r!fNDN!!$D6c3k`!!&!!!!#!!"QJ-!!!!!!!!!!!!!!!!!!! !!!0T22$V!!!8!!!!)!!'ClaTF'*[BA*N4'&dB8!$D4U3!!0T24$V!!!-!!!!-!! 'Cl3!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!!3!fPVi!0T26$VB!!3!!!#`!! 'CkJ!!3!(6QpZC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8e08()!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!3!!!!%TKGQ%J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!! !!"&"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"$6iaV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"$E(0c!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"+DR*Q,QTbCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"09d0%!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,QKdE@`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QTKGQ%!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"D59!J!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%! !!!"DDA"'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'! !!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!!!!!!!,Q0XBA0c!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!,RTTF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0B@028b!f1%XJ6'PZDf9b!!!!!!! !!!!!!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!6d*+)!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jcC@F!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!6@&M6e-J6@9bCf8 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%& `F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4 &@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(* cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e KBdp6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@) J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" 3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b" $,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp '4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348B J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&!!!!"03b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!53da98`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"!!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6d*+)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j MB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jME(-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!68-J3faKFh-J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j MF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j NC@B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j `BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j `BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jdF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9fPZ-c) JH$Jf)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!%&4&@&3ZB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)>EP* $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFQ9c!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!>EP*PFb"*EA"[FR3!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!ZE'PL!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!ZEf*U!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%pLDL"*EA" [FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C!ZF3!!"'q!!!F!'ecG()!!!! !!!!!!!!!"N#mC!!!8X!!!!`!EA0dE!!!!!!!!!!!!!!'3,b3!!!!!#J!!!3!EA0 dEJ!!!!!!!!!!!!!!!!!!!!!%+!!!!#KYFh4T!!!!!!!!!!!!!!C!ZH3!!#fq!!! )!'ecG()!!!2S!!!!!!!!"N#pa!!!"&!!!!5!EA0dE!!!!qJ!!!!!!!!'3,[S!!! )d!!!!B"YFh4Z!!!$k!!!!!!!!!C!Z9!!!(F`!!!&!'edF'`!!!!"!!!!!!!!"N# km!!!#fm!!!#!EA4`F`!!!!%!!!!!!!!'3,eN!!!-8!!!!"KYG(0X!!!!!3!!!!! !!!!!!!!!!!T3!!!!+'ecG'N!!!2S!!!!!!!!"N#h2!!!$'J!!!)XEA"cD3!!!qJ !!!!!!!!'3,QX!!!1P!!!!KTYG'GX!!!$k!!!!!!!!!!!!!!!!![[!!!!$QedF'N !!!!"!!!!!!!!"N#pB!!!#rd!!!!`EA4XE`!!!!%!!!!!!!!'3,53!!!!0Ei!!!% P8%acG!!!bFd!!!!I!!!!!!!!!!"(N!!!!!!ZF(*PCJ!"5j)!!!!Y!!!!!!!!!!" ,M`!!"%P`FQ9Q!!)#V`!!!#i!!!!!!!!!!"'k!!!!"("bC@B!!G[X!!!!,`!!!!! !!!!!5d8!!!!NF(*PCJ!"j%%!!!!k!!!!!!!!!!",D3!!!!T`FQ9Q!!(98!!!!$X !!!!!!!!!!&(N!!!!NR"bC@B!!GeE!!!!2!!!!!!!!!!!8RB!!!"+F(*PCJ!"l@m !!!!p!!!!!!!!!!!mK3!!!#j`FQ9Q!!%$lJ!!!&8!!!!!!!!!!$bc!!!%5A"bC@B !!9B&!!!!9J!!!!!!!!!!32`!!!!%F(*PCJ!"CCm!!!"A!!!!!!!!!!""!!!!!#4 `FQ9Q!!#M0`!!!&J!!!!!!!!!!%%N!!!!#R"bC@B!!)J8!!!!@3!!!!!!!!!!35i !!!#5F(*PCJ!!UkF!!!"D!!!!!!!!!!""`!!!!%T`FQ9Q!!%9C`!!!&X!!!!!!!! !!$Gb!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!#RJ!!!!DF(*PCJ!ATYS!!!$Q!!! !!!!!!!"H`!!!'("`FQ9Q!"HdaJ!!!1F!!!!!!!!!!$Mb!!!#C("bC@B!&jI4!!! !k!!!!!!!!!!!I$!!!##kF(*PCJ!AFSX!!!$T!!!!!!!!!!!+NJ!!!!4`FQ9Q!"G VMJ!!!1S!!!!!!!!!!!U@!!!!'("bC@B!&jU8!!!!k`!!!!!!!!!!#Ui!!!!+F(* PCJ!AZ6N!!!$X!!!!!!!!!!!+Z!!!!!j`FQ9Q!"Hp,!!!!1d!!!!!!!!!!"#Z!!! !aR"bC@B!'"#h!!!!lJ!!!!!!!!!!#XB!!!!iF(*PCJ!AF0S!!!$[!!!!!!!!!!! +rJ!!!!a`FQ9Q!"Fla3!!!2!!!!!!!!!!!%)+!!!"fR"bC@B!&b%'!!!!m3!!!!! !!!!!#`S!!!!-F(*PCJ!A23X!!!$b!!!!!!!!!!!fi`!!!'*`FQ9Q!"I9VJ!!!2- !!!!!!!!!!!X@!!!!1("bC@B!&jX#!!!!p!!!!!!!!!!!#di!!!!0F(*PCJ!AU8m !!!$e!!!!!!!!!!!,@`!!!"4`FQ9Q!"He(!!!!2B!!!!!!!!!!!`Y!!!!#R"bC@B !&fJ'!!!!p`!!!!!!!!!!1eB!!!$%F(*PCJ!ATX!!!!$i!!!!!!!!!!"$j!!!!4C `FQ9Q!"H5DJ!!!2N!!!!!!!!!!%6k!!!!ZR"bC@B!&jbq!!!!qJ!!!!!!!!!!%A3 !!!!ZF(*PCJ!APpJ!!!$l!!!!!!!!!!"([J!!!Ja`FQ9Q!"IZ%3!!!2`!!%qI!!! : libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdfcomp.project.hqx0000644000000000000000000014612412421456623020655 0ustar (This file must be converted with BinHex 4.0) :$fKNCQ0[EA!ZF(*[DQ9MG!"069"b3eG*43!!!!#@CJ!!!!"'I@0[Ef`!!!!#!!! !+!!!N!$#!!#3!1S!!!9m!!!!0J%!!!!!!!!!!!!!!!!!!!!!!!!"Bb4#3J!!!#% !!!!#!!!!!!!!!$m!!!!$FfJ)8!!!!'!!!!!%!fRZd!!!!(m!!!!&#N&NC!!!!*d !!!!'8'PZ8J!!!,S!!!!(B9"[D3!!!0`!!!!)68PdC3!!!2J!!!!*G&*PF`!!!48 !!!!+6@9ZG3!!!68!!!!,G%0[EJ!!!98!!!!-3fpZG!!!!@d!!!!0Eh0P3`!!!BX !!!!1D@aX3`!!!DJ!!!!28fK[G`!!!FB!!!!35'PNC3!!!Gm!!!!46@pfC3!!!J) !!!!54f9d3`!!!L-!!!!6CA4$8J!!!N3!!!!8HQ9$E`!!!Q%!!!!9E'PdC3!!!S- !!!!@4f9d3`!!!Tm!!!!AG%08D3!!!VJ!!!!BG'a@B3!!!Y8!!!!CD@j$G!!!![- !!!!D3h4X#`!!!a%!!!!EE(9P#3!!!c%!!!!FE!P6C3!!!di!!!!G9'9cG!!!!fS !!!!H4(*KC`!!!iF!!!!I9(*KB`!!!jN!!!!J$%4bB3!!!lS!!!!K!!!"J!!!!pJ !!!!L!!!!"J!!!rN!!!!MVhK&A`!!""J!!!!N!!!!!!!!"$B!!!!P!!!!!!!!"&- !!!!Q!!!!!!!!"(8!!!!R!!!!!!!!"*%!!!!S!!!!!!!!"+i!!!!T!!!!!!!!"-i !!!!U!!!!!!!!"1i!!!!V!!!!!!!!"3B!!!!X!!!!!!!!"53!!!!Y!!!!!!!!"8% !!!!Z!!!!!!!!"9m!!!![!!!!!!!!"AJ!!!!`!!!!!!!!"CX!!!!a!!!!!!!!"E` !!!!b!!!!!!!!"Gd!!!!c!!!!!!!!"IS!!!!d!!!!!!!!"K`!!!!e!!!!!!!!"MJ !!!!f!!!!!!!!"P%!!!!h!!!!!!!!"Qi!!!!i!!!!!!!!"S`!!!!j!!!!!!!!"US !!!!k!!!!!!!!"XS!!!!l!!!!!!!!"ZF!!!!m!!!!!!!!"`-!!!!p!!!!!!!!"b! !!!!q!!!!!!!!"d-!!!!r!!!!!!!!"f-!!!"!!!!!!!!!"iB!!!""!!!!!!!!"kF !!!"#!!!!!!!!"mF!!!"$!!!!!!!!"qB!!!"%!!!!!!!!#!S!!!"&!!!!!!!!##J !!!"'!!!!!!!!#%F!!!"(!!!!!!!!#'N!!!")!!!!!!!!#)X!!!"*!!!!!!!!#+8 !!!"+!!!!!!!!#-8!!!",!!!!!!!!#1S!!!"-!!!!!!!!#3d!!!"0!!!!!!!!#6! !!!"1!!!!!!!!#8m!!!"2!!!!!!!!#A-!!!"3!!!!!!!!#C%!!!"4!!!!!!!!#D` !!!"5!!!!!!!!#FX!!!"6!!!!!!!!#HX!!!"8!!!!!!!!#JX!!!"9!!!!!!!!#LS !!!"@!!!!!!!!#NS!!!"A!!!!!!!!#Q8!!!"B!!!!!!!!#SF!!!"C!!!!!!!!#UB !!!"D!!!!!!!!#X3!!!"E!!!!!!!!#Z-!!!"F!!!!!!!!#[d!!!"G!!!!!!!!#a3 !!!"H!!!!!!!!#bi!!!"I!!!!!!!!#dB!!!"J!!!!!!!!#ed!!!"K!!!!!!!!#h- !!!"L!!!!!!!!#ii!!!"M!!!!!!!!#k-!!!"N!!!!!!!!#lN!!!"P!!!!!!!!#p) !!!"Q!!!!!!!!#qX!!!"R!!!!!!!!#r`!!!"S!!!!!!!!$"-!!!"T!!!!!!!!$#m !!!"U!!!!!!!!$%N!!!"V!!!!!!!!$'-!!!"X!!!!!!!!$(N!!!"Y!!!!!!!!$*3 !!!"Z!!!!!!!!$+N!!!"[!!!!!!!!$,X!!!"`!!!!!!!!$0%!!!"a!!!!!!!!$1J !!!"b!!!!!!!!$2m!!!"c!!!!!!!!$4S!!!"d!!!!!!!!$6)!!!"e!!!!!!!!$8d !!!"f!!!!!!!!$@B!!!"h!!!!!!!!$Ai!!!"i!!!!!!!!$C8!!!"j!!!!!!!!$E% !!!"k!!!!!!!!$FF!!!"l!!!!!!!!$Gi!!!"m!!!!!!!!$IJ!!!"p!!!!!!!!$K) !!!"q!!!!!!!!$L3!!!"r!!!!!!!!$M`!!!#!!!!!!!!!$PN!!!#"!!!!!!!!$R3 !!!##!!!!!!!!$Sm!!!#$!!!!!!!!$UB!!!#%!!!!!!!!$X)!!!#&!!!!!!!!$YJ !!!#'!!!!!!!!$ZX!!!#(!!!!!!!!$`)!!!#)!!!!!!!!$aS!!!#*!!!!!!!!$c) !!!#+!!!!!!!!$dm!!!#,!!!!!!!!$fN!!!#-!!!!!!!!$iB!!!#0!!!!!!!!$k% !!!#1!!!!!!!!$lX!!!#2!!!!!!!!$p3!!!#3!!!!!!!!!!rb!!!!N3!!!!!!!"! +!!!!NJ!!!!!!!"!M!!!!N`!!!!!!!"!r!!!!P!!!!!!!!""E!!!!P3!!!!!!!"" [!!!!PJ!!!!!!!"#*!!!!P`!!!!!!!"#S!!!!Q!!!!!!!!"$&!!!!Q3!!!!!!!"$ L!!!!QJ!!!!!!!"$l!!!!Q`!!!!!!!"%C!!!!R!!!!!!!!"%a!!!!R3!!!!!!!"& '!!!!RJ!!!!!!!"&I!!!!R`!!!!!!!"&j!!!!S!!!!!!!!"'6!!!!S3!!!!!!!"' [!!!!SJ!!!!!!!"()!!!!S`!!!!!!!"(N!!!!T!!!!!!!!"(q!!!!T3!!!!!!!") A!!!!TJ!!!!!!!")[!!!!T`!!!!!!!"*-!!!!U!!!!!!!!"*M!!!!U3!!!!!!!"* l!!!!UJ!!!!!!!"+@!!!!U`!!!!!!!"+a!!!!V!!!!!!!!",%!!!!V3!!!!!!!", G!!!!VJ!!!!!!!",l!!!!V`!!!!!!!"-A!!!!X!!!!!!!!"-c!!!!X3!!!!!!!"0 ,!!!!XJ!!!!!!!"0S!!!!X`!!!!!!!"0r!!!!Y!!!!!!!!"16!!!!Y3!!!!!!!"1 V!!!!YJ!!!!!!!"2%!!!!Y`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#h!!!!`!!!%pd!!"3 !!!!!Y`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8`!!!'!!!!6@!!!)!!!!!&-!!!! !!!!!!!!!!!!!!!!!!!!!!!!$!!"rr`!!!!"rr`!!!!"rr`!!!!"rr`!!!!)"!!! '!J!!!!!!!3%!!3%!!!!"!!!!!3!!!!!"!3!!!3%!!3!!"`%!!3%!!3%!!!!"!!! $!3%"!3%"!3!"!!!"!3%!!!!!!!!!!!!#!!!!!!!!!!!!!!!!!3%"!!!"!3!"!!! !!J!!!#!!!!!+!!!!%J!!!%S!!!"1!!!!*J!!!&!!!!!T!!!!5!!!!$%!!!!Z!!! !2J!!!$`!!!"'!!!!3`!!!$J!!!!e!!!!)3!!!!!!!!!6!!!!"3!!!!%!!!",!!! !6!!!!#F!!!!P!!!!+J!!!#J!!!"2!!!!63!!!&%!!!"5!!!!)`!!!#3!!!"*!!! !)J!!!!X!!!!F!!!!,`!!!#d!!!!b!!!!-!!!!#X!!!!X!!!!!`!!!"3!!!!3!!! !(3!!!!i!!!!p!!!!2`!!!$X!!!"!!!!!1J!!!!3!!!!0!!!!'J!!!!`!!!!E!!! !$`!!!"i!!!!4!!!!(`!!!!B!!!!9!!!!"`!!!"B!!!!*!!!!'3!!!"F!!!!)!!! !'!!!!%3!!!"#!!!!4`!!!%8!!!""!!!!0J!!!$3!!!!j!!!!0`!!!$-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!%!!!!#!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!!!!!J!!!!0!!! !#3!!!!m!!!!+!!!!$J!!!"!!!!!4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!EhY[HfplEhX!!!!4!!!!)!%!!3!!(J%!!"S "!!!C!3!!'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`%!!!`"!!!0!3!!(J!$!J! "!3!"!!!!!!!!!!!!!!!!!3%!!3!"!3!"!!%!!!!#!!!!(!!!!!!!!!!!!!!!!!! !!!!!3J!!!%-!!!"%!!!!43!!!$i!!!""!!!!4J!!!%F!!!")!!!!23!!!%!!!!" *!!!!9!!!!&8!!!"@!!!!5J!!!%X!!!"-!!!!63!!!%i!!!"2!!!!8!!!!&%!!!" 5!!!!8`!!!$m!!!"A!!!!@!!!!&N!!!"D!!!!"3!!!!B!!!!(!!!!#!!!!!%!!!! %!!!!#3!!!!S!!!!,!!!!!!!!!!-!!!!-!!!!$3!!!!i!!!!2!!!!%!!!!"%!!!! 5!!!!%`!!!"3!!!!9!!!!&J!!!"F!!!!B!!!!'3!!!!)!!!!D!!!!'`!!!"`!!!! G!!!!*!!!!#8!!!!Q!!!!*`!!!#!!!!!M!!!!+!!!!#N!!!!U!!!!(`!!!#)!!!! V!!!!,!!!!#d!!!!Z!!!!,`!!!$!!!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!! h!!!!1!!!!#%!!!!j!!!!1J!!!$X!!!!m!!!!G`!!!(J!!!"j!!!!HJ!!!(-!!!" f!!!!H`!!!(`!!!"p!!!!FJ!!!(8!!!"q!!!!I`!!!)!!!!#"!!!!JJ!!!)-!!!# %!!!!K3!!!)B!!!#(!!!!L!!!!(3!!!#1!!!!M`!!!*!!!!!!N3!!!)S!!!#0!!! !NJ!!!*-!!!#8!!!!L3!!!)`!!!#9!!!!PJ!!!*F!!!#B!!!!Q3!!!*S!!!#E!!! !R!!!!*d!!!#H!!!!R`!!!)X!!!#P!!!!TJ!!!+F!!!#S!!!!S3!!!+3!!!#T!!! !UJ!!!+X!!!#J!!!!S`!!!+`!!!#Y!!!!VJ!!!+m!!!#`!!!!X3!!!,)!!!#c!!! !Y!!!!,8!!!#f!!!!SJ!!!'!!!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!"P!!! !CJ!!!&X!!!"H!!!!C`!!!'J!!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!"[!!! !F!!!!(%!!!"G!!!!(J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!-!!!!'!!!!!`!!!!Dc4L0Rrrr53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!"!!""6P0*)%0[ER0[E'8J0MKV1N0eFh4[E5" ,CAPhEh*NF`""6P0*)%0[ER0[E'8J0MKV1N&MBf9cFb"3BA4SF`""6P0*)%0[ER0 [E'8J0MKV1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J0MKV1NCTE'8J6@& `F'PZCh-!38j655"$EfjcEfaP)$BiDcT#G@PXC#"&H(4bBA-!38j655"$EfjcEfa P)$BiDcSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)$BiDcSf1%XJ6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'X k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT$,d-V+b"$Efe`D@aPFJ""6P0 *)%0[ER0[E'8J0MKV1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3dC 00MK,!%&18dNJ3fpZFfpXC5!f1'Xk59)J6h"dD@eTHQ9b!%&18dNJ3fpZFfpXC5! f1'Xk5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)$BiDcT+BACK)&"bEfTPBh3!38j 655"$EfjcEfaP)$BiDcT+BACK)&C0!%&18dNJ3fpZFfpXC5!f1'Xk6@&M6e-J6@9 bCf8J8'&ZC@`!38j655"$EfjcEfaP)$BiDcT3BA0MB@`J3fpYF'PXCA)!38j655" $EfjcEfaP)$BiDcT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT38%- J3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1P"33b"%DA0KFh0PE@*XCA)!38j655" $EfjcEfaP)$BiDcT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"&4J" "6P0*)%0[ER0[E'8J0MKV1P"33b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk8&" $3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8Q9k)%0[EA"TE'9b!%&18dNJ3fp ZFfpXC5!f1'Xk9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcTi1$BJ3fp NC8GPEJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"-D@jVCA)!38j655"$EfjcEfaP)$B iDcTi1$BJ8(*[DQ9MG!"3FQpUC@0d)%CTE'8J6'PcG!""6P0*)%0[ER0[E'8J8&" $1N0eFh4[E5",CAPhEh*NF`""6P0*)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`" "6P0*)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j 655"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1MBi5b" %DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%&18dNJ3fp ZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)&"33cT$,d-V+b"$Efe `D@aPFJ""6P0*)%0[ER0[E'8J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k3dC00MK,!%&18dNJ3fpZFfpXC5"38%-k59)J6h"dD@eTHQ9b!%&18dN J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)&"33cT+BACK)&" bEfTPBh3!38j655"$EfjcEfaP)&"33cT+BACK)&C0!%&18dNJ3fpZFfpXC5"38%- k6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'P XCA)!38j655"$EfjcEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfa P)&"33cT38%-J3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5"38%- k8&"$)&"&4J""6P0*)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9 b!%&18dNJ3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655" $EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k3h9cG'p Y)%YPHAG[FQ4c!%&18dNJ3b"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(-!38j655" $)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%-J3fpZFfpXC5"38%- k4QPXC5"0BA"`D@jRF`""6P0*)%-J3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%- k0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&" $1N-[3bXV)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@j RF`""6P0*)%-J3fpZFfpXC5"38%-k3dC00MK,!%&18dNJ3b"$EfjcEfaP)&"33cT *8L"2F(4TE@PkCA)!38j655"$)%0[ER0[E'8J8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!%&18dNJ3b"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'PXCA)!38j655"$)%0[ER0 [E'8J8&"$1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%0 [C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@*XCA)!38j655" $)%0[ER0[E'8J8&"$1P"33b"-D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1P"33b" 348B!38j655"$)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3b"$EfjcEfa P)&"33cT38%0"FfdJ8'&ZC@`!38j655"$)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$)%0[ER0[E'8 J8&"$1NTKGQ%J8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"@63""6P0 *)%-J3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&" $1RJi0L"$Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3b"$EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!"SC'CXFb"38%-k3h9cG'pY)%YPHAG [FQ4c!'KNCQac)&"33cT"Bf0PFh-J8'&dD(-!D'4QE(-J8&"$1P4KFQGPG#"6CA4 dD@jRF`"SC'CXFb"38%-k4QPXC5"0BA"`D@jRF`"SC'CXFb"38%-k3R9TE'3J4AK dFQ&c!'KNCQac)&"33cSf1%XJ3fpNC8GPEJ"SC'CXFb"38%-k0MK,)%4TFf&cFf9 YBQaPFJ"SC'CXFb"38%-k0MK,)%aTEQYPFJ"SC'CXFb"38%-k0MK,)&"bEfTPBh3 !D'4QE(-J8&"$1N-[3bXV)%0[EA"TE'9b!'KNCQac)&"33cT$,d-V+b"ABA*ZD@j RF`"SC'CXFb"38%-k3dC00MK,!'KNCQac)&"33cT*8L"2F(4TE@PkCA)!D'4QE(- J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQac)&"33cT3BA0MB@`J3fpYF'PXCA) !D'4QE(-J8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'CXFb"38%-k8&"$)%0[C'9(C@i !D'4QE(-J8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4QE(-J8&"$1P"33b"-D@jVCA) !D'4QE(-J8&"$1P"33b"348B!D'4QE(-J8&"$1P"33b"3FQpUC@0d!'KNCQac)&" 33cT38%0"FfdJ8'&ZC@`!D'4QE(-J8&"$1P*PHL"$Efe`D@aPFJ"QF$*SC'BJ8&" $1N0eFh4[E5",CAPhEh*NF`"QF$*SC'BJ8&"$1N&MBf9cFb"3BA4SF`"QF$*SC'B J8&"$1P4KFQGPG#"6CA4dD@jRF`"QF$*SC'BJ8&"$1NCTE'8J6@&`F'PZCh-!CR! bD'4Q)&"33cT#G@PXC#"&H(4bBA-!CR!bD'4Q)&"33cSf1%XJ3fpNC8GPEJ"QF$* SC'BJ8&"$1MBi5b"%DA0KFh0PE@*XCA)!CR!bD'4Q)&"33cSf1%XJ6'PZDf9b!'C `-QKNCL"38%-k0MK,)&"bEfTPBh3!CR!bD'4Q)&"33cT$,d-V+b"$Efe`D@aPFJ" QF$*SC'BJ8&"$1N-[3bXV)&GKFQjTEQGc!'C`-QKNCL"38%-k3dC00MK,!'C`-QK NCL"38%-k59)J6h"dD@eTHQ9b!'C`-QKNCL"38%-k6@&M6e-J6@9bCf8J8'&ZC@` !CR!bD'4Q)&"33cT3BA0MB@`J3fpYF'PXCA)!CR!bD'4Q)&"33cT3BA0MB@`J9f& bEQPZCh-!CR!bD'4Q)&"33cT38%-J3fpNC8GPEJ"QF$*SC'BJ8&"$1P"33b"%DA0 KFh0PE@*XCA)!CR!bD'4Q)&"33cT38%-J6'PZDf9b!'C`-QKNCL"38%-k8&"$)&" &4J"QF$*SC'BJ8&"$1P"33b"3FQpUC@0d!'C`-QKNCL"38%-k8&"$3A0Y)&"KEQ9 X!'C`-QKNCL"38%-k8Q9k)%0[EA"TE'9b!'KNCM)dG'mi)&"33cT$GA0dEfdJ5f9 jGfpbC(-!D'4Q-M4dEcJJ8&"$1N&MBf9cFb"3BA4SF`"SC'Bb0(4[1#"38%-k9'& bCf9d)&0PG(4TEQGc!'KNCM)dG'mi)&"33cT'D@aP)%eKF("TEQGc!'KNCM)dG'm i)&"33cT#G@PXC#"&H(4bBA-!D'4Q-M4dEcJJ8&"$1MBi5b"$Ef4P4f9Z!'KNCM) dG'mi)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCM)dG'mi)&"33cSf1%XJ6'PZDf9 b!'KNCM)dG'mi)&"33cSf1%XJ8(*[DQ9MG!"SC'Bb0(4[1#"38%-k3bp$+bXJ3fp YF'PXCA)!D'4Q-M4dEcJJ8&"$1N-[3bXV)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT $4Ndf1%X!D'4Q-M4dEcJJ8&"$1NP5)%p`G'PYDATPFJ"SC'Bb0(4[1#"38%-k6@& M6e-J6@9bCf8J8'&ZC@`!D'4Q-M4dEcJJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'B b0(4[1#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT38%-J3fpNC8G PEJ"SC'Bb0(4[1#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k8&" $)%aTEQYPFJ"SC'Bb0(4[1#"38%-k8&"$)&"&4J"SC'Bb0(4[1#"38%-k8&"$)&" bEfTPBh3!D'4Q-M4dEcJJ8&"$1P"33d&cE5"3B@jPE!"SC'Bb0(4[1#"38%-k8Q9 k)%0[EA"TE'9b!'KNCQ0[EA!J8&"$1N0eFh4[E5",CAPhEh*NF`"SC'CMEfe`)&" 33cT"Bf0PFh-J8'&dD(-!D'4QBfpYF#"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQ0 [EA!J8&"$1NCTE'8J6@&`F'PZCh-!D'4QBfpYF#"38%-k3R9TE'3J4AKdFQ&c!'K NCQ0[EA!J8&"$1MBi5b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1MBi5b"%DA0KFh0PE@* XCA)!D'4QBfpYF#"38%-k0MK,)%aTEQYPFJ"SC'CMEfe`)&"33cSf1%XJ8(*[DQ9 MG!"SC'CMEfe`)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$,d-V+b" ABA*ZD@jRF`"SC'CMEfe`)&"33cT$4Ndf1%X!D'4QBfpYF#"38%-k59)J6h"dD@e THQ9b!'KNCQ0[EA!J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQ0[EA!J8&"$1P" KFf0KE#"$Efe`D@aPFJ"SC'CMEfe`)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QBfp YF#"38%-k8&"$)%0[C'9(C@i!D'4QBfpYF#"38%-k8&"$)%4TFf&cFf9YBQaPFJ" SC'CMEfe`)&"33cT38%-J6'PZDf9b!'KNCQ0[EA!J8&"$1P"33b"348B!D'4QBfp YF#"38%-k8&"$)&"bEfTPBh3!D'4QBfpYF#"38%-k8&"$3A0Y)&"KEQ9X!'KNCQ0 [EA!J8&"$1P*PHL"$Efe`D@aPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%&18dNJ3fpZFfpXC5!f1'X!4QPbFh3J8f9RE@9ZG!!kB5j[GA3!6'P L)%PYF'pbG#!f1%X!69"A)%PYF'pbG#!f1%X!3Q&XE'p[EL")C@a`!%eA)%-[3bX V)$Bi5`"09b"3BA0MB@`J0MK,!&*PHJ"348BJ5@e`Eh*d)$Bi5`!k38j655"$Efj cEfaP)$BiDbj[GA3!5'9XE'pAEh*XC#jM!%e66#"$,MBi5b"'B5JdD9miC#NZ6'P L!%e66#"$+bXZ0MK,)%CK+$4TAcKN+5j-D@)!6@&dD%aTBMBi5b"'B5JdD5miC#N Z6'PL!%e66#"5G@jdD@eP0MK,,NaTBJ"0B@028bjXD@)!690-)&0*6e9B,MBi5bj -D@)!1N&18dNJ3fpZFfpXC5"38%-ZEh9d!%&18dNJ3fpZFfpXC5"38%-!6'PL)%P YF'pbG#"38%-!69FJ3bp$+bXJ8&"$!%eA)&"KFf0KE#"38%-!8&"$3A0Y!&K$6dC ')%PYF'pbG#"38%-!8%9')%PYF'pbG#"38%-!690-)%-V+bj38%-Z6'PL!%e66#" $,P"33bj-D@)!5@jdCA*QB@0P6'PL!%eKG'K-D@)!690-)&*eER4TE@938%-Z6'P L!%e66#"658p9@#j38%-Z6'PL!$T"6P0*)%-J3fpZFfpXC5"38%-!38j655"$)%0 [ER0[E'8J8&"$!'KNCQac,Q-!D'4QE'PL,P"33bjXD@)!D'4QE'PL,R"bEfTPBh3 !D'4Q)%aTBL!f1%XJ4'9LG@F!1QKNCMBiDbj'BA)S0'N[1'3T,QaTBJ"SC'BJ6'P L)$Bi5`"SC'BJ6'PL)&"33b"%C@*eC`!kD'4QE'PL,P"33bjXD@)!D'4Q)%aTBL" 38%-!DR"PCbj38%-ZE'PL!'T`C@GXD@)ZF(*[DQ9MG!"UF'9R)%aTBL!f1%XJ4'9 LG@F!1QT`C@Ff1'XZ4Q&b+$4T,cKN+5jXD@)!DR"PCb"-D@)J0MK,!'T`C@FJ6'P L)&"33b"%C@*eC`!kDR"PCbj38%-ZE'PL!'T`C@FJ6'PL)&"33`"kE'PL,R"bEfT PBh3!HQaTBL!f1%XJ4'9LG@F!1RSf1'XZ4Q&b+$4T,cKN+5jXD@)!HQaTBL!f1%X !HQaTBL"38%-J4'9LG@F!1RSZ8&"$,QaTBJ"kE'PL)&"33`"YCQKNCQaTBLj`FQp UC@0d!'eQD'4Q)%aTBL!f1%XJ4'9LG@F!1QeQD'4Q0MKV,NCKFLJdD5miC#NZE'P L!'eND'4Q)%aTBL"38%-J4'9LG@F!1QeQD'4Q,P"33bjXD@)!E@CSC'BJ6'PL)$B i5`"YCQKNCL"-D@)J8&"$!(KNFQaTBLj`FQpUC@0d!(KNFL"-D@)J0MK,)%4PBR9 R!$TiC()f1'XZ4Q&b+$4T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4b)%aTBL"38%- J4'9LG@F!1RKNFLj38%-ZE'PL!(KNFL"-D@)J8&"$!$TSC'CXF`"SC'CXFb"38%- !1QC`-QKNCJ"QF$*SC'BJ8&"$!'C`-QKNCLjM!'KNCM)dG'mi,Q-!1QKNCM)dG'm i!'KNCM)dG'mi)&"33`!kD'4QBfpYF!"SC'CMEfe`)&"33`"SC'CMEfe`,Q-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J!!"4"6P0 *)%0[ER0[E'8J0MKV,QpeG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!r2cmr39"36!!!!B"BJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cm !!!!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!! *!!%!!3%!!!a0B@0)C@&NCA*c,QKSB@-ZD!!!!!!!!!!!!!!!!!!!!3!!!!!!!!! !!!!!!!!!!!!!!!!!!!%"#!!!!!!!%3!!!!)!!!!!!!!!(`!!!!0RFfpL!!!!*J! !!!3$D@13!!!!!$8!!!!&!3%"!3!!!%3!!!!'!!!!!!!!!&%!!!!(!!!!!!!!!&i !!!!)!!!!!3!!!'`!!!!*'HB!!!!!!(!!!!!+!!"LC3!!!(m!!!!,C%9[BJ!!!*8 !!!!-C(3!!!!!!+)!!!!0!!!!!!!!!,S!!!!1!!!!!!!!!03!!!!2rZ!!C!!!!1d !!!!3BQTN!!!!!3!!!!!4!"R4!!!!!3S!!!!5!!!!!!!!!4`!!!!6!2rrr`!!!6) !!!!8Ef*UC!!!!8-!!!!9!!!!!!!!!9)!!!!@!!!!!!!!!9m!!!!A!!$rr`!!!@d !!!!B!)G[BJ!!!A3!!!!CF(3!!!!!!B8!!!!D!!!!!!!!!C3!!!!E!!!!!!!!!D3 !!!!FE'&MC3!!!E)!!!!G!!!pC`!!!Em!!!!H&J!3!3!!!FF!!!!I'!!!!!!!!GS !!!!Jr`!!'3!!!H`!!!!K!!!"J!!!!J!!!!!L!!!!!!!!!K-!!!!M!!!!!!!!!KX !!!!NZG!!!!!!!LS!!!!PG'`!!!!!!MN!!!!Q!j'*`!!!!NX!!!!REA0dEJ!!!Q) !!!!S!!!$N3!!!Qi!!!!T!#KYF`!!!S!!!!!U!!!!!!!!!T!!!!!!+fplEhX!!!+ F!!!!,!#JHf!!!!+T!!!!,3!!!M!!!!+j!!!!,J!!!"3!!!,-!!!!,`!!!!!!!!, N!!!!-!!!!!!!!!,a!!!!-3!!!!!!!!-%!!!!-J!!!!!!!!-5!!!!-`!!!!!!!!- I!!!!0!!!!!!!!!-X!!!!03!!!!!!!!-l!!!!0J!!!!!!!!03!!!!0`!!!!!!!!0 C!!!!1!!!!!!!!!0S!!!!13!!!!!!!!0c!!!!1J!!!!!!!!0m!!!!1`!!!!!!!!1 0!!!!2!!!!!!!!!1K!!!!23!!!!!!!!1k!!!!2J!!!!!!!!21!!!!2`!!!!!!!!2 G!!!!3!!!!!!!!!2V!!!!33!!!!!!!!2j!!!!3J!!!!!!!!3)!!!!3`!!!!!!!!3 D!!!!4!!!!!!!!!3a!!!!43!!!!!!!!3p!!!!4J!!!!!!!!42!!!!4`!!!!!!!!4 F!!!!5!!!!!!!!!4S!!!!53!!!!!!!!4[!!!!5J!!!!!!!!4j!!!!5`!!!!!!!!5 "!!!!6!!!!!!!!!5-!!!!63!!!!!!!!59!!!!6J!!!!!!!!5J!!!!6`!!!!!!!!5 U!!!!8!!!!!!!!!5h!!!!83!!!!!!!!6!!!!!8J!!!!!!!!6-!!!!8`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!!8J%!!!%!!!!!!!!!!!3!!!!!8E&hNGB!!"Gc!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&8Np29!!!!!!!!!!!!!!!!!4(8P93!!! !!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3!!(NG599!!!!!!!!!!!Jj"6P0*)%aTBR* KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP-43%!!!e(8P93!!!!!!!!!!%06@& M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8"!!!,4NP-43%!!!a(8P93!!!!!!! !!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8)8(*[DQ9MG(-!!!!&4NP-43%!!"" '58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a&!3!!&8C*6%8"!!!@4NP-43%!!"G '58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!3!!#8ePFQGP)%peG!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp "8&"-!!%"!!!%4%a(@'0VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!3!"!!)!!!!#!!)!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr39"36!!"!3!!"%4-4eK MDfPN8(*[DPG68%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3%!!"!!!!!%!!!!!#B !!!!R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!!!!!! !!#X!!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$!!!!! [!!!!!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3!!%`! !!!3!!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!!j!!! !!!8!!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8!!!! !!!!!2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!3!!'J8 "!3!"!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!!!!!! !4J!!!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!-36@&M6e-J8&"$)%aTEQY PFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !#fKNCQ0[EA!J8&"$3faP)&"33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!p+BACK3faKFh0 PFbjkDA!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N%!!!!(!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK`E'pbCA)!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5@9iF'a[FQ8 ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!!"!!"!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! #!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!+6Np138e&,N9B43!!!!! !!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!!"#3*l!!! !!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!GSC'C MEfe`1'pZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!(d!!!"p!!!!%! !!&M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!5J!!!!6`!!!!!!!!5 U!!!!8!!!!!!!!!5h!!!!83!!!!!!!!6!!!!!8J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!"!!!"fKNCQ0[EA!iEfjcEfaP)&"33bj[GA3!!!!!!!!!!!"13e0 "39"36!!!!I3!!!(d!!!!3!!!@-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!!!!!!!93'3!!%*!RX!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!r2cmr39"36!!"!3!!"%4-4eKMDfPN8(*[DPG68%- !!`)!!3%!!3!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`! !!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d !"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9 d)%9iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!&!!!3! "!!%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!"@%ZEh9 d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!" 9!C!!!3N#H`!!!!!!!!!!!!!!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM)J,5"bC@a PBA0P1QKNCMTeG'PX1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!!!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!!!!%!!%k1MTkE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!! !"3!"1MSk1QeQD'4Q1QaTBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!6Sk1MT YCQKNCMTiC()k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3 J6'PLFQ&bH6T08d`J8(*PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"1N!!!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRN k690-)%-k!'P[FMT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3"!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$+bX k!!2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib!S!!! !!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!!$bjX Frrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!%%Ib! S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib2N!! $bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!!!!!) %Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ3!!1 -Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2'9'` !!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!-!!C! !!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!!!!mG *0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBlX!mZ F8!1-Mj!!!Im"!%!!!!)!!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU!!ib2N!! $bjUmrrrrr`2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'` %Ib!S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib 2N!!$bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!! !!!%%Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fp l!ib2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZ EB!!!!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi $bjZ3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!! !!!2'9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!! !!!-!!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J !!!!!!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3 $NBlX!mZF8!1-Mj!!!Im"!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!5!!!!!!!!%!"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!&069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!439"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!3dq-D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!5QTbCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jUBACK!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"!!!!!@QP`4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#jME'&cF`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J0MK,)%a TEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%& `F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e 36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p #5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4 &@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4 &@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4 &@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4 &@&3ZFf9R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(* cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0 dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!%e KBdp6)%ePFQGP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@a XEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#j LD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j M+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j MF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j PH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j `BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j `F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!! !!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j NEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!%N0-99-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!>EM-b)(Ji0L"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K8,Q-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!! !!!!!!!!!!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R*PF`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!!!,QaTBJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!)!!!!'`) !!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#3!!!"`#!!!!!!!!!3! "!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!S!!!!G!J!!!!!!!!%!!3-!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!,!!!!(J)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!$!!!!"m#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!d!!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!3!!!!*3) !!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%J!!!#d#!!!!!!!!!3! "!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"-!!!!d!J!!!!!!!!%!!3)!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!8!!!!1`)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!&3!!!%)#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!"B!!!!U"3!!!!%!!"!!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!A!!!!-J8 !!!!"!!!5!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'!!!!$N&!!!!!3!!%`! "!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"N!!!"("3!!!!%!!"8!!3-!!!!!!!! !!!!!!!#"!!!!!!!!!!!"!!!D!!!!2`8!!!!"!!!8!!%$!!!!!!!!!!!!!!!!J3! !!!!!!!!!!3!!(J!!!&-#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!% !!"i!!!"6!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!%!!!!"J! !!!8$DI'!8%&B3&S!CAKM*'*L!fRES!0TlQ!!!!!!!!!"F!1B"2"TH&*[G@jN#%P ZDA3$DGZJ#%PZDA4(FQ&Q#%p`C@j3Eh*d$8a[Bf&X9'p(E'pLB@`04fa[BQ&X9'p -Ef0KE!T(!)l'J1X!!"3!!!!Jrrrff!!!!!!!!!!!!3!"!!2Kim!!MXF3k`!!&!! !!#$rrrEX!!!!!!!!!!!"!!%!!q(M`!#1ac$V!!!%!!!%%2rrp[K-D@)J5@e`Eh* d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ0MK,!%e A)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!!!!)!!'D""[D@jd3%")5c" !@J!$D4U3!!0T2&$V!!!8!!!!)!!'D#4XC84KG'&!3$096d`$D4U3!!0T2($V!!! 8!!!!)!!'D"a5C@0d3$)`!$p%Ed3$D4U3!!0T2*!!k`!!&!!!!#!!"QJSBf9!3&& "48Y,8%*9!fNDN!!$D6b`k`!!&!!!!#!!"QJJ8fpeFQ0P3%"!@J!r!fNDN!!$D6c 3k`!!&!!!!#!!"QJ-!!!!!!!!!!!!!!!!!!!!!!0T22$V!!!8!!!!)!!'ClaTF'* [BA*N4'&dB8!$D4U3!!0T24$V!!!-!!!!-!!'Cl3!!3!!!!)!!!!F!!!!!!!!!!! !!!!!!!!!!!!3!fPVi!0T26$VB!!3!!!#`!!'CkJ'3,ai!!!4[J!!&!"YFh4b!!! !!!!!!!!!!!C!ZZJ!!!!S!!!*!'ecG'`!!!!!!!!!!!!!"N#mC!!!$'J!!!-!EA0 dEJ!!!!!!!!!!!!!!!!!!!!!*+!!!!#KYFh4T!!!!!!!!!!!!!!C!["`!!#@q!!! )!'ecG()!!!2S!!!!!!!!"N#m'!!!,V`!!!5!EA0dE!!!!qJ!!!!!!!!'3,aB!!! *p3!!!B"YFh4Z!!!$k!!!!!!!!!C![$`!!)[U!!!&!'edF'`!!!!"!!!!!!!!"N# m`!!!#h8!!!#!EA4`F`!!!!%!!!!!!!!'3,bX!!!-8!!!!"KYG(0X!!!!!3!!!!! !!!!!!!!!!!P3!!!!+'ecG'N!!!2S!!!!!!!!"N#mF!!!$fJ!!!)XEA"cD3!!!qJ !!!!!!!!'3,QX!!!c2!!!!KTYG'GX!!!$k!!!!!!!!!!!!!!!!![e!!!!$QedF'N !!!!"!!!!!!!!"N#mr!!!$!-!!!!`EA4XE`!!!!%!!!!!!!!'3,R!!!!e9J!!!59 36(0d!!$*c3!!!"m!!!!!!!!!!%H3!!!!!#j`FQ9Q!!&,NJ!!!#d!!!!!!!!!!%Z 2!!!%5A"bC@B!!J+[!!!!,J!!!!!!!!!!%ES!!!!%F(*PCJ!"fq`!!!![!!!!!!! !!!",43!!!#4`FQ9Q!!(N33!!!$S!!!!!!!!!!%YT!!!!#R"bC@B!!G93!!!!1`! !!!!!!!!!8H3!!!#5F(*PCJ!"h9X!!!!m!!!!!!!!!!"5GJ!!!%T`FQ9Q!!(YE`! !!$d!!!!!!!!!!$b&!!!!,R"bC@B!!32Z!!!!93!!!!!!!!!!2,-!!!4*F(*PCJ! "9J8!!!"@!!!!!!!!!!"!r!!!!!4`FQ9Q!!&PR`!!!&F!!!!!!!!!!%%!!!!!*(" bC@B!!+-h!!!!@!!!!!!!!!!!353!!!!+F(*PCJ!!L"3!!!"C!!!!!!!!!!"",J! !!**`FQ9Q!!#VT`!!!&S!!!!!!!!!!%(!!!!!5R"bC@B!!49R!!!!@`!!!!!!!!! !0h)!!!'!EA0`D3!!!!%!!!!!!!!!!!!!!!!*H!!!!"T`FQ9Q!"2+A3!!!+%!!!! !!!!!!&,!!!!BF("bC@B!%c,m!!!!SJ!!!!!!!!!!12)!!!*NF(*PCJ!5c`i!!!# M!!!!!!!!!!"V-!!!),T`FQ9Q!"0D1`!!!+3!!!!!!!!!!!Q5!!!!"("bC@B!%i' E!!!!T3!!!!!!!!!!#CB!!!!BF(*PCJ!6K'%!!!#Q!!!!!!!!!!!*VJ!!!!T`FQ9 Q!"1VrJ!!!+F!!!!!!!!!!!Qi!!!!$R"bC@B!%cC&!!!!U!!!!!!!!!!!,Ei!!!$ 'F(*PCJ!6GHB!!!#T!!!!!!!!!!!ZK!!!!$K`FQ9Q!",q@3!!!+S!!!!!!!!!!!R '!!!!$("bC@B!%b*p!!!!U`!!!!!!!!!!3JS!!!(DF(*PCJ!5hY8!!!#X!!!!!!! !!!!*dJ!!!!a`FQ9Q!"-Yd!!!!+d!!!!!!!!!!$Cl!!!!BR"bC@B!%c6D!!!!VJ! !!!!!!!!!0Yd!!!!iF(*PCJ!6NX!!!!#[!!!!!!!!!!!*hJ!!!!e`FQ9Q!"-kP!! !!,!!!!!!!!!!!!`c!!!!&("bC@B!%eL*!!!!X3!!!!!!!!!!#HX!!!!+F(*PCJ! 5mI3!!!#b!!!!!!!!!!!l9J!!!-4`FQ9Q!"-A0J!!!,-!!!!!!!!!!%2N!!!"&R" bC@B!%cT,!!!!Y!!!!!!!!!!!42S!!!#kF(*PCJ!6@iJ!!!#e!!!!!!!!!!!h&3! !!#j`FQ9Q!"1I#!!!!,B!!!!!!!!!!%Hq!!!#$("bC@B!%caU!!!!Y`!!ST8!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/R8ToHDF.project.hqx0000644000000000000000000017671612421456623020365 0ustar (This file must be converted with BinHex 4.0) :$e)i9'p)4%BZF(*[DQ9MG!"069"b3eG*43!!!!#keJ!!!!"ZAf0[Ef`!!!!#!!! !+!!!Y6)!!,9D!!!&I!!!!$B"!!!!!!!!!!!!!!!!!!"#!!!!3`!!!%3!!!"&!!! !2J!!!%%!!!"'!!!!4`!!!%J!!!!p!!!!3!!!!%N!!!"8!!!!93!!!&B!!!"+!!! !5`!!!%`!!!"0!!!!6J!!!%m!!!"3!!!!83!!!&)!!!"6!!!!2`!!!&F!!!"B!!! !@3!!!&S!!!!&!!!!"J!!!!F!!!!)!!!!!3!!!!3!!!!*!!!!#J!!!!X!!!!!!!! !!`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3!!!")!!!!6!!!!&!!!!"8!!!!@!!! !&`!!!"J!!!!C!!!!!J!!!"S!!!!E!!!!(!!!!"d!!!!N!!!!*3!!!#B!!!!R!!! !)!!!!#-!!!!S!!!!+3!!!#S!!!!I!!!!)J!!!#X!!!!X!!!!,3!!!#i!!!![!!! !-!!!!$%!!!!b!!!!-`!!!$3!!!!e!!!!0J!!!$F!!!!i!!!!)3!!!$N!!!!k!!! !1`!!!$`!!!"h!!!!H!!!!(N!!!"k!!!!F`!!!(B!!!"l!!!!I!!!!(d!!!"b!!! !G3!!!(i!!!"r!!!!J!!!!)%!!!##!!!!J`!!!)3!!!#&!!!!KJ!!!)F!!!#)!!! !G!!!!)i!!!#2!!!!N!!!!!#4!!!!LJ!!!)d!!!#5!!!!N`!!!*3!!!#*!!!!M!! !!*8!!!#@!!!!P`!!!*J!!!#C!!!!QJ!!!*X!!!#F!!!!R3!!!*i!!!#I!!!!L`! !!+8!!!#Q!!!!T`!!!+J!!!#K!!!!T!!!!+N!!!#U!!!!U`!!!+!!!!#M!!!!V!! !!+d!!!#Z!!!!V`!!!,!!!!#a!!!!XJ!!!,-!!!#d!!!!Y3!!!,B!!!#L!!!!B!! !!'%!!!"L!!!!B`!!!&`!!!"I!!!!C!!!!'8!!!"Q!!!!@`!!!&i!!!"R!!!!D!! !!'N!!!"U!!!!D`!!!'`!!!"Y!!!!EJ!!!'m!!!"`!!!!F3!!!&d!!!#m!!!![3! !!,i!!!#r!!!!Z!!!!,X!!!$!!!!!`3!!!-)!!!#h!!!!ZJ!!!--!!!$%!!!!a3! !!-B!!!$(!!!!b!!!!-N!!!$+!!!!b`!!!-`!!!$0!!!!Z3!!!0-!!!$8!!!!e3! !!0B!!!$2!!!!dJ!!!0F!!!$B!!!!f3!!!-i!!!$4!!!!fJ!!!0X!!!$F!!!!h3! !!0i!!!$I!!!!i!!!!1%!!!$L!!!!i`!!!13!!!$3!!!!kJ!!!1X!!!$X!!!!l3! !!1B!!!$T!!!!lJ!!!1m!!!$`!!!!j3!!!1J!!!$a!!!!mJ!!!2-!!!$d!!!!p3! !!2B!!!$h!!!!q!!!!2N!!!$k!!!!q`!!!1F!!!!H!!!"!3!!!3)!!!%$!!!""!! !!2d!!!%!!!!""3!!!3B!!!%(!!!!r!!!!2m!!!%)!!!"#3!!!3S!!!%,!!!"$!! !!3d!!!%1!!!"$`!!!4!!!!%4!!!"%J!!!2i!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"%`!!!5!!!"dc!!!J!!! !!4-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!3J!!!!!!"%!!!!#!!!!!!! !!"m!!!!$Ch0[BJ!!!#B!!!!%!fPMN!!!!!!e!!!!"3%"!3%!!!"%!!!!"J!!!!! !!!"4!!!!"`!!!!!!!!"H!!!!#!!!!!%!!!"X!!!!#4RQ!!!!!!"`!!!!#J!!BQ8 !!!"r!!!!#f4&Ef)!!!#9!!!!$'4d!!!!!!#L!!!!$3!!!!!!!!#k!!!!$J!!!!! !!!$8!!!!$rlJ!'3!!!$Y!!!!%'*UC!!!!!%!!!!!%3!Cd3!!!!%+!!!!%J!!!!! !!!%F!!!!%`$rrrm!!!%b!!!!&'pLDQ3!!!&$!!!!&3!!!!!!!!&5!!!!&J!!!!! !!!&I!!!!&`!!rrm!!!&Y!!!!'!#(Ef)!!!&d!!!!'A"d!!!!!!'&!!!!'J!!!!! !!!'8!!!!'`!!!!!!!!'N!!!!('aKBf8!!!'b!!!!(3!!2@F!!!'r!!!!(KB!%!% !!!((!!!!(aJ!!!!!!!(D!!!!)2m!!"N!!!(X!!!!)3!!!B!!!!)!!!!!)J!!!!! !!!)6!!!!)`!!!!!!!!)E!!!!*,R3!!!!!!)U!!!!*A4X!!!!!!)j!!!!*J14LF! !!!*,!!!!*fecG'i!!!*L!!!!+!!!!j%!!!*Z!!!!+3!SEA-!!!+!!!!!+J!!!!! !!!+3!!!!!#Y[Hfpl!!!#R!!!!#`!S(YJ!!!#U3!!!#d!!!)`!!!#Z3!!!#i!!!! 8!!!#c!!!!#m!!!!!!!!#j!!!!$!!!!!!!!!#m3!!!$%!!!!!!!!$"!!!!$)!!!! !!!!$%J!!!$-!!!!!!!!$(`!!!$3!!!!!!!!$,!!!!$8!!!!!!!!$1`!!!$B!!!! !!!!$8!!!!$F!!!!!!!!$@3!!!$J!!!!!!!!$D!!!!$N!!!!!!!!$F`!!!$S!!!! !!!!$I!!!!$X!!!!!!!!$M3!!!$`!!!!!!!!$S3!!!$d!!!!!!!!$ZJ!!!$i!!!! !!!!$cJ!!!$m!!!!!!!!$h3!!!%!!!!!!!!!$k`!!!%%!!!!!!!!$q3!!!%)!!!! !!!!%#!!!!%-!!!!!!!!%'J!!!%3!!!!!!!!%-3!!!%8!!!!!!!!%23!!!%B!!!! !!!!%6`!!!%F!!!!!!!!%A!!!!%J!!!!!!!!%D!!!!%N!!!!!!!!%E`!!!%S!!!! !!!!%H3!!!%X!!!!!!!!%J3!!!%`!!!!!!!!%M!!!!%d!!!!!!!!%P3!!!%i!!!! !!!!%S!!!!%m!!!!!!!!%UJ!!!&!!!!!!!!!%Y`!!!&%!!!!!!!!%`!!!!&)!!!! !!!!%c!!!!&-!!!!!!!!%eJ!!!&3!!!!!!!!%h`!!!&8!!!!!!!!%k`!!!&B!!!! !!!!%p3!!!&F!!!!!!!!&!!!!!&J!!!!!!!!&#J!!!&N!!!!!!!!&&`!!!&S!!!! !!!!&)J!!!&X!!!!!!!!&,!!!!&`!!!!!!!!&13!!!&d!!!!!!!!&3`!!!&i!!!! !!!!&6!!!!&m!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!#!!!!!+!!!!%J!!!%S!!!" 1!!!!*J!!!&!!!!!T!!!!5!!!!&-!!!"A!!!!-3!!!#i!!!!q!!!!2!!!!&S!!!" G!!!!4J!!!%-!!!!i!!!!03!!!#%!!!!!!!!!%`!!!!8!!!!"!!!!5`!!!%`!!!! R!!!!*3!!!#S!!!!S!!!!6`!!!%d!!!"4!!!!8J!!!#-!!!!N!!!!53!!!#)!!!" 8!!!!93!!!&J!!!"@!!!!#`!!!"`!!!![!!!!,3!!!$)!!!!`!!!!+`!!!#`!!!! $!!!!&!!!!"!!!!!G!!!!$J!!!$d!!!!r!!!!1`!!!%!!!!!k!!!!"!!!!!d!!!! D!!!!$!!!!"X!!!!2!!!!(J!!!"%!!!!I!!!!"J!!!"8!!!!(!!!!&J!!!&X!!!" C!!!!#3!!!"N!!!!A!!!!AJ!!!&`!!!!)!!!!'!!!!%3!!!"#!!!!4`!!!%8!!!" "!!!!0J!!!$3!!!!j!!!!0`!!!$-!!!!!!!!!A`!!!'!!!!9B!!!)!!!!!&m!!!! !!!!!!!!!!!!!!!!!!!!!!!!$!!"rr`!!!!"rr`!!!!"rr`!!!!"rr`!!!!)"!!! '!J!!!!!!!3%!!3%!!!!"!!!!!3!!!!!"!3!!!3%!!3!!"`%!!3%!!3%!!!!"!!! $!3%"!3%"!3!"!!!"!3%!!!!!!!!!!!!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!#!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!!!!!J!!!!0!!!!#3!!!!m !!!!+!!!!$J!!!"!!!!!4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!EhY[HfplEhX!!!!4!!!!)!%!!3!!)J%!!"S"!!!C!3! !'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`%!!!`"!!!0!3!!)J!$!J!"!3!"!!! !!!!!!!!!!!!!!!%"!3!!!3%!!3!"!3!"!!%!!!!#!!!!(!!!!!!!!!!!!!!!!!! !!!!!!`!!!!B!!!!$!!!!"V0'-i!!!!em!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!"I!3!!!3!!!!!!!!! !"!!!!!"HXAHVdIrrU8i!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!&%&18dN J3fpZFfpXC5!f1'XZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!$mr2cp"8&"-!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`! !!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!N !!3!"!3!!$%eKBdKPB@4PFR-ZD'KKBbjS!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!"!!""6P0*)%0[ER0[E'8J0MKV1N0eFh4[E5" ,CAPhEh*NF`""6P0*)%0[ER0[E'8J0MKV1N&MBf9cFb"3BA4SF`""6P0*)%0[ER0 [E'8J0MKV1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J0MKV1NCTE'8J6@& `F'PZCh-!38j655"$EfjcEfaP)$BiDcT#G@PXC#"&H(4bBA-!38j655"$EfjcEfa P)$BiDcSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)$BiDcSf1%XJ6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'X k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT$,d-V+b"$Efe`D@aPFJ""6P0 *)%0[ER0[E'8J0MKV1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3dC 00MK,!%&18dNJ3fpZFfpXC5!f1'Xk59)J6h"dD@eTHQ9b!%&18dNJ3fpZFfpXC5! f1'Xk5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)$BiDcT+BACK)&"bEfTPBh3!38j 655"$EfjcEfaP)$BiDcT+BACK)&C0!%&18dNJ3fpZFfpXC5!f1'Xk6@&M6e-J6@9 bCf8J8'&ZC@`!38j655"$EfjcEfaP)$BiDcT3BA0MB@`J3fpYF'PXCA)!38j655" $EfjcEfaP)$BiDcT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT38%- J3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1P"33b"%DA0KFh0PE@*XCA)!38j655" $EfjcEfaP)$BiDcT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"&4J" "6P0*)%0[ER0[E'8J0MKV1P"33b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk8&" $3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8Q9k)%0[EA"TE'9b!%&18dNJ3fp ZFfpXC5!f1'Xk9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcTi1$BJ3fp NC8GPEJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"-D@jVCA)!38j655"$EfjcEfaP)$B iDcTi1$BJ8(*[DQ9MG!"3FQpUC@0d)%CTE'8J6'PcG!""6P0*)%0[ER0[E'8J8&" $1N0eFh4[E5",CAPhEh*NF`""6P0*)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`" "6P0*)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j 655"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1MBi5b" %DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%&18dNJ3fp ZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)&"33cT$,d-V+b"$Efe `D@aPFJ""6P0*)%0[ER0[E'8J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k3dC00MK,!%&18dNJ3fpZFfpXC5"38%-k59)J6h"dD@eTHQ9b!%&18dN J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)&"33cT+BACK)&" bEfTPBh3!38j655"$EfjcEfaP)&"33cT+BACK)&C0!%&18dNJ3fpZFfpXC5"38%- k6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'P XCA)!38j655"$EfjcEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfa P)&"33cT38%-J3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5"38%- k8&"$)&"&4J""6P0*)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9 b!%&18dNJ3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655" $EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k3h9cG'p Y)%YPHAG[FQ4c!%&18dNJ3b"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(-!38j655" $)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%-J3fpZFfpXC5"38%- k4QPXC5"0BA"`D@jRF`""6P0*)%-J3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%- k0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&" $1N-[3bXV)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@j RF`""6P0*)%-J3fpZFfpXC5"38%-k3dC00MK,!%&18dNJ3b"$EfjcEfaP)&"33cT *8L"2F(4TE@PkCA)!38j655"$)%0[ER0[E'8J8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!%&18dNJ3b"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'PXCA)!38j655"$)%0[ER0 [E'8J8&"$1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%0 [C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@*XCA)!38j655" $)%0[ER0[E'8J8&"$1P"33b"-D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1P"33b" 348B!38j655"$)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3b"$EfjcEfa P)&"33cT38%0"FfdJ8'&ZC@`!38j655"$)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$)%0[ER0[E'8 J8&"$1NTKGQ%J8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"@63""6P0 *)%-J3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&" $1RJi0L"$Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3b"$EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!"SC'CXFb"38%-k3h9cG'pY)%YPHAG [FQ4c!'KNCQac)&"33cT"Bf0PFh-J8'&dD(-!D'4QE(-J8&"$1P4KFQGPG#"6CA4 dD@jRF`"SC'CXFb"38%-k4QPXC5"0BA"`D@jRF`"SC'CXFb"38%-k3R9TE'3J4AK dFQ&c!'KNCQac)&"33cSf1%XJ3fpNC8GPEJ"SC'CXFb"38%-k0MK,)%4TFf&cFf9 YBQaPFJ"SC'CXFb"38%-k0MK,)%aTEQYPFJ"SC'CXFb"38%-k0MK,)&"bEfTPBh3 !D'4QE(-J8&"$1N-[3bXV)%0[EA"TE'9b!'KNCQac)&"33cT$,d-V+b"ABA*ZD@j RF`"SC'CXFb"38%-k3dC00MK,!'KNCQac)&"33cT*8L"2F(4TE@PkCA)!D'4QE(- J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQac)&"33cT3BA0MB@`J3fpYF'PXCA) !D'4QE(-J8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'CXFb"38%-k8&"$)%0[C'9(C@i !D'4QE(-J8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4QE(-J8&"$1P"33b"-D@jVCA) !D'4QE(-J8&"$1P"33b"348B!D'4QE(-J8&"$1P"33b"3FQpUC@0d!'KNCQac)&" 33cT38%0"FfdJ8'&ZC@`!D'4QE(-J8&"$1P*PHL"$Efe`D@aPFJ"QF$*SC'BJ8&" $1N0eFh4[E5",CAPhEh*NF`"QF$*SC'BJ8&"$1N&MBf9cFb"3BA4SF`"QF$*SC'B J8&"$1P4KFQGPG#"6CA4dD@jRF`"QF$*SC'BJ8&"$1NCTE'8J6@&`F'PZCh-!CR! bD'4Q)&"33cT#G@PXC#"&H(4bBA-!CR!bD'4Q)&"33cSf1%XJ3fpNC8GPEJ"QF$* SC'BJ8&"$1MBi5b"%DA0KFh0PE@*XCA)!CR!bD'4Q)&"33cSf1%XJ6'PZDf9b!'C `-QKNCL"38%-k0MK,)&"bEfTPBh3!CR!bD'4Q)&"33cT$,d-V+b"$Efe`D@aPFJ" QF$*SC'BJ8&"$1N-[3bXV)&GKFQjTEQGc!'C`-QKNCL"38%-k3dC00MK,!'C`-QK NCL"38%-k59)J6h"dD@eTHQ9b!'C`-QKNCL"38%-k6@&M6e-J6@9bCf8J8'&ZC@` !CR!bD'4Q)&"33cT3BA0MB@`J3fpYF'PXCA)!CR!bD'4Q)&"33cT3BA0MB@`J9f& bEQPZCh-!CR!bD'4Q)&"33cT38%-J3fpNC8GPEJ"QF$*SC'BJ8&"$1P"33b"%DA0 KFh0PE@*XCA)!CR!bD'4Q)&"33cT38%-J6'PZDf9b!'C`-QKNCL"38%-k8&"$)&" &4J"QF$*SC'BJ8&"$1P"33b"3FQpUC@0d!'C`-QKNCL"38%-k8&"$3A0Y)&"KEQ9 X!'C`-QKNCL"38%-k8Q9k)%0[EA"TE'9b!'KNCM)dG'mi)&"33cT$GA0dEfdJ5f9 jGfpbC(-!D'4Q-M4dEcJJ8&"$1N&MBf9cFb"3BA4SF`"SC'Bb0(4[1#"38%-k9'& bCf9d)&0PG(4TEQGc!'KNCM)dG'mi)&"33cT'D@aP)%eKF("TEQGc!'KNCM)dG'm i)&"33cT#G@PXC#"&H(4bBA-!D'4Q-M4dEcJJ8&"$1MBi5b"$Ef4P4f9Z!'KNCM) dG'mi)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCM)dG'mi)&"33cSf1%XJ6'PZDf9 b!'KNCM)dG'mi)&"33cSf1%XJ8(*[DQ9MG!"SC'Bb0(4[1#"38%-k3bp$+bXJ3fp YF'PXCA)!D'4Q-M4dEcJJ8&"$1N-[3bXV)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT $4Ndf1%X!D'4Q-M4dEcJJ8&"$1NP5)%p`G'PYDATPFJ"SC'Bb0(4[1#"38%-k6@& M6e-J6@9bCf8J8'&ZC@`!D'4Q-M4dEcJJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'B b0(4[1#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT38%-J3fpNC8G PEJ"SC'Bb0(4[1#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k8&" $)%aTEQYPFJ"SC'Bb0(4[1#"38%-k8&"$)&"&4J"SC'Bb0(4[1#"38%-k8&"$)&" bEfTPBh3!D'4Q-M4dEcJJ8&"$1P"33d&cE5"3B@jPE!"SC'Bb0(4[1#"38%-k8Q9 k)%0[EA"TE'9b!'KNCQ0[EA!J8&"$1N0eFh4[E5",CAPhEh*NF`"SC'CMEfe`)&" 33cT"Bf0PFh-J8'&dD(-!D'4QBfpYF#"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQ0 [EA!J8&"$1NCTE'8J6@&`F'PZCh-!D'4QBfpYF#"38%-k3R9TE'3J4AKdFQ&c!'K NCQ0[EA!J8&"$1MBi5b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1MBi5b"%DA0KFh0PE@* XCA)!D'4QBfpYF#"38%-k0MK,)%aTEQYPFJ"SC'CMEfe`)&"33cSf1%XJ8(*[DQ9 MG!"SC'CMEfe`)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$,d-V+b" ABA*ZD@jRF`"SC'CMEfe`)&"33cT$4Ndf1%X!D'4QBfpYF#"38%-k59)J6h"dD@e THQ9b!'KNCQ0[EA!J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQ0[EA!J8&"$1P" KFf0KE#"$Efe`D@aPFJ"SC'CMEfe`)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QBfp YF#"38%-k8&"$)%0[C'9(C@i!D'4QBfpYF#"38%-k8&"$)%4TFf&cFf9YBQaPFJ" SC'CMEfe`)&"33cT38%-J6'PZDf9b!'KNCQ0[EA!J8&"$1P"33b"348B!D'4QBfp YF#"38%-k8&"$)&"bEfTPBh3!D'4QBfpYF#"38%-k8&"$3A0Y)&"KEQ9X!'KNCQ0 [EA!J8&"$1P*PHL"$Efe`D@aPFJ"SC'C`B@0V)&"33cT$GA0dEfdJ5f9jGfpbC(- !D'4QF'&MDb"38%-k3@0MCA0c)&"KG'Kc!'KNCR"KBfXJ8&"$1P4KFQGPG#"6CA4 dD@jRF`"SC'C`B@0V)&"33cT'D@aP)%eKF("TEQGc!'KNCR"KBfXJ8&"$1N*eD@a N)%9iG(*KF`"SC'C`B@0V)&"33cSf1%XJ3fpNC8GPEJ"SC'C`B@0V)&"33cSf1%X J4'PcBA0cC@eLE'9b!'KNCR"KBfXJ8&"$1MBi5b"-D@jVCA)!D'4QF'&MDb"38%- k0MK,)&"bEfTPBh3!D'4QF'&MDb"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QF'&MDb" 38%-k3bp$+bXJ9f&bEQPZCh-!D'4QF'&MDb"38%-k3dC00MK,!'KNCR"KBfXJ8&" $1NP5)%p`G'PYDATPFJ"SC'C`B@0V)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'C `B@0V)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4QF'&MDb"38%-k8'&cBf&X)&GKFQj TEQGc!'KNCR"KBfXJ8&"$1P"33b"$Ef4P4f9Z!'KNCR"KBfXJ8&"$1P"33b"%DA0 KFh0PE@*XCA)!D'4QF'&MDb"38%-k8&"$)%aTEQYPFJ"SC'C`B@0V)&"33cT38%- J8%9'!'KNCR"KBfXJ8&"$1P"33b"3FQpUC@0d!'KNCR"KBfXJ8&"$1P"33d&cE5" 3B@jPE!"SC'C`B@0V)&"33cT5CASJ3fpYF'PXCA)!D'4QG'p`B@`J8&"$1N0eFh4 [E5",CAPhEh*NF`"SC'CdEh"KE#"38%-k3@0MCA0c)&"KG'Kc!'KNCR4[F'&X)&" 33cT8BA*RCA3J8f9dG'PZCh-!D'4QG'p`B@`J8&"$1NCTE'8J6@&`F'PZCh-!D'4 QG'p`B@`J8&"$1N*eD@aN)%9iG(*KF`"SC'CdEh"KE#"38%-k0MK,)%0[C'9(C@i !D'4QG'p`B@`J8&"$1MBi5b"%DA0KFh0PE@*XCA)!D'4QG'p`B@`J8&"$1MBi5b" -D@jVCA)!D'4QG'p`B@`J8&"$1MBi5b"3FQpUC@0d!'KNCR4[F'&X)&"33cT$,d- V+b"$Efe`D@aPFJ"SC'CdEh"KE#"38%-k3bp$+bXJ9f&bEQPZCh-!D'4QG'p`B@` J8&"$1N0'66Bi5`"SC'CdEh"KE#"38%-k59)J6h"dD@eTHQ9b!'KNCR4[F'&X)&" 33cT0B@028b"0CA*RC5"3B@jPE!"SC'CdEh"KE#"38%-k8'&cBf&X)%0[EA"TE'9 b!'KNCR4[F'&X)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QG'p`B@`J8&"$1P"33b" $Ef4P4f9Z!'KNCR4[F'&X)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCR4[F'&X)&" 33cT38%-J6'PZDf9b!'KNCR4[F'&X)&"33cT38%-J8%9'!'KNCR4[F'&X)&"33cT 38%-J8(*[DQ9MG!"SC'CdEh"KE#"38%-k8&"$3A0Y)&"KEQ9X!'KNCR4[F'&X)&" 33cT5CASJ3fpYF'PXCA)!8'&X9'p)4%BJ8&"$1N0eFh4[E5",CAPhEh*NF`"3B@a 8EdK%4L"38%-k3@0MCA0c)&"KG'Kc!&"KE&4[5%4')&"33cT8BA*RCA3J8f9dG'P ZCh-!8'&X9'p)4%BJ8&"$1NCTE'8J6@&`F'PZCh-!8'&X9'p)4%BJ8&"$1N*eD@a N)%9iG(*KF`"3B@a8EdK%4L"38%-k0MK,)%0[C'9(C@i!8'&X9'p)4%BJ8&"$1MB i5b"%DA0KFh0PE@*XCA)!8'&X9'p)4%BJ8&"$1MBi5b"-D@jVCA)!8'&X9'p)4%B J8&"$1MBi5b"3FQpUC@0d!&"KE&4[5%4')&"33cT$,d-V+b"$Efe`D@aPFJ"3B@a 8EdK%4L"38%-k3bp$+bXJ9f&bEQPZCh-!8'&X9'p)4%BJ8&"$1N0'66Bi5`"3B@a 8EdK%4L"38%-k59)J6h"dD@eTHQ9b!&"KE&4[5%4')&"33cT0B@028b"0CA*RC5" 3B@jPE!"3B@a8EdK%4L"38%-k8'&cBf&X)%0[EA"TE'9b!&"KE&4[5%4')&"33cT 3BA0MB@`J9f&bEQPZCh-!8'&X9'p)4%BJ8&"$1P"33b"$Ef4P4f9Z!&"KE&4[5%4 ')&"33cT38%-J4'PcBA0cC@eLE'9b!&"KE&4[5%4')&"33cT38%-J6'PZDf9b!&" KE&4[5%4')&"33cT38%-J8%9'!&"KE&4[5%4')&"33cT38%-J8(*[DQ9MG!"3B@a 8EdK%4L"38%-k8&"$3A0Y)&"KEQ9X!&"KE&4[5%4')&"33cT5CASJ3fpYF'PXCA) !8MK8EdK%4L"38%-k3h9cG'pY)%YPHAG[FQ4c!&)i9'p)4%BJ8&"$1N&MBf9cFb" 3BA4SF`"51&4[5%4')&"33cT8BA*RCA3J8f9dG'PZCh-!8MK8EdK%4L"38%-k4QP XC5"0BA"`D@jRF`"51&4[5%4')&"33cT#G@PXC#"&H(4bBA-!8MK8EdK%4L"38%- k0MK,)%0[C'9(C@i!8MK8EdK%4L"38%-k0MK,)%4TFf&cFf9YBQaPFJ"51&4[5%4 ')&"33cSf1%XJ6'PZDf9b!&)i9'p)4%BJ8&"$1MBi5b"3FQpUC@0d!&)i9'p)4%B J8&"$1N-[3bXV)%0[EA"TE'9b!&)i9'p)4%BJ8&"$1N-[3bXV)&GKFQjTEQGc!&) i9'p)4%BJ8&"$1N0'66Bi5`"51&4[5%4')&"33cT*8L"2F(4TE@PkCA)!8MK8EdK %4L"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!8MK8EdK%4L"38%-k8'&cBf&X)%0[EA" TE'9b!&)i9'p)4%BJ8&"$1P"KFf0KE#"ABA*ZD@jRF`"51&4[5%4')&"33cT38%- J3fpNC8GPEJ"51&4[5%4')&"33cT38%-J4'PcBA0cC@eLE'9b!&)i9'p)4%BJ8&" $1P"33b"-D@jVCA)!8MK8EdK%4L"38%-k8&"$)&"&4J"51&4[5%4')&"33cT38%- J8(*[DQ9MG!"51&4[5%4')&"33cT38%0"FfdJ8'&ZC@`!8MK8EdK%4L"38%-k8Q9 k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!"9*26e3!!!!!!!!!!!!!!!!%4e*98!!!!!!!!!!$"e0[GA* MCA-!!!!"4NP-43%!!#*(8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP -43%!!!P'58a&!3!!#%C*6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA- !!!!$4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR- !!!!'4e*98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a &!3!!%dC*6%8"!!!84NP-43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a &!3!!'8C*6%8"!!!D!!-36@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#e)i9'p)4%BJ8&"$3d0P)&" 33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!3!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!AepcG'&bG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!i!!3! !!!!"!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!! "!!%!'%C*6%8"!!!C4NP-43%!!"S!!!!!!!!!!!!!"3%!!"!!!!!%!!!!!#B!!!! R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!!!!!!!!#X !!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$!!!!![!!! !!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3!!%`!!!!3 !!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!!j!!!!!!8 !!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8!!!!!!!! !2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!3!!'J8"!3! "!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!!!!!!!4J! !!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!%!!!P0CA*RC5"2GA3!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! r2cmr39"36!!"!3!!"%4-4eKMDfPN8(*[DPG68%-!"X)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!"e)iG'p)4%C'EfjcEfaP)&"33bj [GA3!!!!!!!!!!!"I5%4'39"36!!!!I3!!!(d!!!!3!!!@-!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!!!!!! !93'3!!%*!RX!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!! %4%a(@'0VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!!!!!3!"!!!!!!!!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH("XEh*P,Q9 iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J! $!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N#H`!!!!! !!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&#G$6d4&*b!R4%&835F J*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!)8'&XG'p )4%C[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!NC*6%8"!!!K4NP-43%!!#* (8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP-43%!!!P'58a&!3!!#%C *6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a &!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!! &#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP -43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80XBA0cCA-ZHQP `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!"S"!!!C!3!!'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`% !!!`"!!!0!3!!(J%!!"m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!! !!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d!"`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9 iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!(D'4QF'& MDcK[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!8C*6%8"!!!I4e*98!!!!!! !!!!#$N&18dNJ6'PLFQ&bD@9c!!!!!dC*6%8"!!!*4NP-43%!!!K'58a&!3!!$8G 599!!!!!!!!!!!3e0B@-J6'PLFQ&bD@9c!!!!!dC*6%8"!!!+4NP-43%!!!Y'58a &!3!!$%G599!!!!!!!!!!"!G)4%C-D@*c!!!!"NG599!!!!!!!!!!"3K3FQpUC@0 dF`!!!!9'58a&!3!!%%C*6%8"!!!54NP-43%!!"0'58a&!3!!&%C*6%8"!!!94NP -43%!!"C'58a&!3!!&dC*6%8"!!!B4NP-43%!!"P'58a&!3!!'J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!)!!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!9K,QpeG!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93' 3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!)!!!!!!!!!2`!!!!0 cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C3D@j5!!!!ZJ!!!!G K8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T0C@je!!!"03!!!!Y d3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!jTE'a$!!!"U!!!!!p 6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"*(CA4$!!!#)`!!!"0 PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C(CA4$!!!#R`!!!"G d3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T$G'`,!!!$%3!!!"Y XG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j%FQ&R!!!$K`!!!"p 8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#)!!!!'!!!$q3!!!#1 [H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B!!!!!!!!%G3!!!#F !!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S!!!!!!!!%lJ!!!#X !!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i!!!!!!!!&A`!!!#m !!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$)!!!!!!!!&h3!!!$- !!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B!!!!!!!!'83!!!$F !!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S!!!!!!!!'bJ!!!$X !!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i!!!!!!!!(3`!!!$m !!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%)!!!!!!!!(a`!!!%- !!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B!!!!!!!!)4`!!!%F !!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S!!!!!!!!)a3!!!%X !!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i!!!!!!!!*6`!!!%m !!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&)!!!!!!!!*b`!!!&- !!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B!!!!!!!!+5J!!!&F !!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S!!!!!!!!+a!!!!&X !!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i!!!!!!!!,,J!!!&m !!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!')!!!!!!!!,MJ!!!'- !!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B!!!!!!!!,k`!!!'F !!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S!!!!!!!!-53!!!'X !!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i!!!!!!!!-U3!!!'m !!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!()!!!!!!!!-r`!!!(- !!!!!!!!0'J!!!(3!!!!!!!!0-J!!!(8!!!!!!!!063!!!(B!!!!!!!!0CJ!!!(F !!!!!!!!0IJ!!!(J!!!!!!!!0P3!!!(N!!!!!!!!0X3!!!(S!!!!!!!!0a`!!!(X !!!!!!!!0hJ!!!(`!!!!!!!!0q!!!!(d!!!!!!!!1%J!!!(i!!!!!!!!1*!!!!(m !!!!!!!!12!!!!)!!!!!!!!!1@3!!!)%!!!!!!!!1G!!!!))!!!!!!!!1M`!!!)- !!!!!!!!1TJ!!!)3!!!!!!!!1`J!!!)8!!!!!!!!1f!!!!)B!!!!!!!!1k`!!!)F !!!!!!!!2!J!!!)J!!!!!!!!2'J!!!)N!!!!!!!!2-J!!!)S!!!!!!!!26`!!!)X !!!!!!!!2D3!!!)`!!!!!!!!2KJ!!!)d!!!!!!!!2S3!!!)i!!!!!!!!2Z`!!!)m !!!!!!!!2e!!!!*!!!!!!!!!!$r)!!!#4!!!!!!!!%!S!!!#5!!!!!!!!%#-!!!# 6!!!!!!!!%$m!!!#8!!!!!!!!%&X!!!#9!!!!!!!!%'m!!!#@!!!!!!!!%)N!!!# A!!!!!!!!%+J!!!#B!!!!!!!!%-8!!!#C!!!!!!!!%1)!!!#D!!!!!!!!%2X!!!# E!!!!!!!!%4N!!!#F!!!!!!!!%6%!!!#G!!!!!!!!%8B!!!#H!!!!!!!!%9m!!!# I!!!!!!!!%AN!!!#J!!!!!!!!%C-!!!#K!!!!!!!!%Dm!!!#L!!!!!!!!%FJ!!!# M!!!!!!!!%H3!!!#N!!!!!!!!%Ii!!!#P!!!!!!!!%KF!!!#Q!!!!!!!!%Lm!!!# R!!!!!!!!%N`!!!#S!!!!!!!!%Q-!!!#T!!!!!!!!%RX!!!#U!!!!!!!!%TB!!!# V!!!!!!!!%V%!!!#X!!!!!!!!%X3!!!#Y!!!!!!!!%Yd!!!#Z!!!!!!!!%[X!!!# [!!!!!!!!%aF!!!#`!!!!!!!!%c-!!!#a!!!!!!!!%dX!!!#b!!!!!!!!%fJ!!!# c!!!!!!!!%hm!!!#d!!!!!!!!%j-!!!#e!!!!!!!!%kX!!!#f!!!!!!!!%m3!!!# h!!!!!!!!%pd!!!#i!!!!!!!!%rN!!!#j!!!!!!!!&")!!!#k!!!!!!!!&#i!!!# l!!!!!!!!&%J!!!#m!!!!!!!!&'%!!!#p!!!!!!!!&(N!!!#q!!!!!!!!&*B!!!# r!!!!!!!!&+d!!!$!!!!!!!!!&-8!!!$"!!!!!!!!&1!!!!$#!!!!!!!!&2X!!!$ $!!!!!!!!&3i!!!$%!!!!!!!!&5F!!!$&!!!!!!!!&88!!!$'!!!!!!!!&@%!!!$ (!!!!!!!!&Ad!!!$)!!!!!!!!&C8!!!$*!!!!!!!!&E)!!!$+!!!!!!!!&FN!!!$ ,!!!!!!!!&Gd!!!$-!!!!!!!!&I8!!!$0!!!!!!!!&Ji!!!$1!!!!!!!!&LF!!!$ 2!!!!!!!!&N3!!!$3!!!!!!!!&Pi!!!$4!!!!!!!!&RX!!!$5!!!!!!!!&TB!!!$ 6!!!!!!!!&V!!!!$8!!!!!!!!&XN!!!$9!!!!!!!!&ZF!!!$@!!!!!!!!&[m!!!$ A!!!!!!!!&aJ!!!$B!!!!!!!!&c3!!!$C!!!!!!!!&e!!!!$D!!!!!!!!&f3!!!$ E!!!!!!!!&hi!!!$F!!!!!!!!&jd!!!$G!!!!!!!!&lS!!!$H!!!!!!!!&pF!!!$ I!!!!!!!!&r!!!!$J!!!!!!!!'!i!!!$K!!!!!!!!'#B!!!$L!!!!!!!!'$X!!!$ M!!!!!!!!'&3!!!$N!!!!!!!!''i!!!$P!!!!!!!!')J!!!$Q!!!!!!!!'+8!!!$ R!!!!!!!!',m!!!$S!!!!!!!!'0`!!!$T!!!!!!!!'2F!!!$U!!!!!!!!'4%!!!$ V!!!!!!!!'5S!!!$X!!!!!!!!'8J!!!$Y!!!!!!!!'@!!!!$Z!!!!!!!!'AN!!!$ [!!!!!!!!'C8!!!$`!!!!!!!!'E%!!!$a!!!!!!!!'F8!!!$b!!!!!!!!'Gm!!!$ c!!!!!!!!'Ii!!!$d!!!!!!!!'KX!!!$e!!!!!!!!'MJ!!!$f!!!!!!!!'P%!!!$ h!!!!!!!!'Qm!!!$i!!!!!!!!'SF!!!$j!!!!!!!!'T`!!!$k!!!!!!!!'V8!!!$ l!!!!!!!!'Xm!!!$m!!!!!!!!'ZN!!!$p!!!!!!!!'`8!!!$q!!!!!!!!'ai!!!$ r!!!!!!!!'cS!!!%!!!!!!!!!'e3!!!%"!!!!!!!!'fd!!!%#!!!!!!!!'i8!!!% $!!!!!!!!'k)!!!%%!!!!!!!!'lN!!!%&!!!!!!!!'p%!!!%'!!!!!!!!'q`!!!% (!!!!!!!!(!F!!!%)!!!!!!!!("S!!!%*!!!!!!!!($-!!!%+!!!!!!!!(&%!!!% ,!!!!!!!!('d!!!%-!!!!!!!!()N!!!%0!!!!!!!!(+%!!!%1!!!!!!!!(,i!!!% 2!!!!!!!!(08!!!%3!!!!!!!!(1N!!!%4!!!!!!!!(3%!!!%5!!!!!!!!(4S!!!% 6!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%&18dNJ3fpZFfpXC5!f1'X!4QPbFh3J8f9RE@9ZG!! kB5j[GA3!6'PL)%PYF'pbG#!f1%X!69"A)%PYF'pbG#!f1%X!3Q&XE'p[EL")C@a `!%eA)%-[3bXV)$Bi5`"09b"3BA0MB@`J0MK,!&*PHJ"348BJ5@e`Eh*d)$Bi5`! k38j655"$EfjcEfaP)$BiDbj[GA3!5'9XE'pAEh*XC#jM!%e66#"$,MBi5b"'B5J dD9miC#NZ6'PL!%e66#"$+bXZ0MK,)%CK+$4TAcKN+5j-D@)!6@&dD%aTBMBi5b" 'B5JdD5miC#NZ6'PL!%e66#"5G@jdD@eP0MK,,NaTBJ"0B@028bjXD@)!690-)&0 *6e9B,MBi5bj-D@)!1N&18dNJ3fpZFfpXC5"38%-ZEh9d!%&18dNJ3fpZFfpXC5" 38%-!6'PL)%PYF'pbG#"38%-!69FJ3bp$+bXJ8&"$!%eA)&"KFf0KE#"38%-!8&" $3A0Y!&K$6dC')%PYF'pbG#"38%-!8%9')%PYF'pbG#"38%-!690-)%-V+bj38%- Z6'PL!%e66#"$,P"33bj-D@)!5@jdCA*QB@0P6'PL!%eKG'K-D@)!690-)&*eER4 TE@938%-Z6'PL!%e66#"658p9@#j38%-Z6'PL!$T"6P0*)%-J3fpZFfpXC5"38%- !38j655"$)%0[ER0[E'8J8&"$!'KNCQac,Q-!D'4QE'PL,P"33bjXD@)!D'4QE'P L,R"bEfTPBh3!D'4Q)%aTBL!f1%XJ4'9LG@F!1QKNCMBiDbj'BA)S0'N[1'3T,Qa TBJ"SC'BJ6'PL)$Bi5`"SC'BJ6'PL)&"33b"%C@*eC`!kD'4QE'PL,P"33bjXD@) !D'4Q)%aTBL"38%-!DR"PCbj38%-ZE'PL!'T`C@GXD@)ZF(*[DQ9MG!"UF'9R)%a TBL!f1%XJ4'9LG@F!1QT`C@Ff1'XZ4Q&b+$4T,cKN+5jXD@)!DR"PCb"-D@)J0MK ,!'T`C@FJ6'PL)&"33b"%C@*eC`!kDR"PCbj38%-ZE'PL!'T`C@FJ6'PL)&"33`" kE'PL,R"bEfTPBh3!HQaTBL!f1%XJ4'9LG@F!1RSf1'XZ4Q&b+$4T,cKN+5jXD@) !HQaTBL!f1%X!HQaTBL"38%-J4'9LG@F!1RSZ8&"$,QaTBJ"kE'PL)&"33`"YCQK NCQaTBLj`FQpUC@0d!'eQD'4Q)%aTBL!f1%XJ4'9LG@F!1QeQD'4Q0MKV,NCKFLJ dD5miC#NZE'PL!'eND'4Q)%aTBL"38%-J4'9LG@F!1QeQD'4Q,P"33bjXD@)!E@C SC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&"$!(KNFQaTBLj`FQpUC@0d!(KNFL"-D@) J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4 b)%aTBL"38%-J4'9LG@F!1RKNFLj38%-ZE'PL!(KNFL"-D@)J8&"$!$TSC'CXF`" SC'CXFb"38%-!1QC`-QKNCJ"QF$*SC'BJ8&"$!'C`-QKNCLjM!'KNCM)dG'mi,Q- !1QKNCM)dG'mi!'KNCM)dG'mi)&"33`!kD'4QBfpYF!"SC'CMEfe`)&"33`"SC'C MEfe`,Q-!1QKNCR"KBfX!D'4QF'&MDb"38%-!D'4QF'&MDbjM!'KNCR4[F'&X,Q- !1NK%4R4[8'&X!'KNCR4[F'&X)&"33`"`B@adEfKNCLjM!$T3B@adEdK%4J"3B@a 8EdK%4L"38%-!FMKdEfKNCLjM!$T51(4[5%4'!&)i9'p)4%BJ8&"$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"J!"1MSk1Qe QD'4Q1RKNFMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!J!!6Sk!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!,!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#" -D@*bBA*j1Ne66#"3FQ9MEfe`D@aPC#")C@&NCA)k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%k3!!!"!!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T 08d`J3cS!D@pb1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!%!!!!%!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-V+cS !!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4r)#J!!!! "!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q3!!2,Qac rrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!!!!34r)#J !!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX$M)q3!!2 ,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjYJ!!!!!J4 r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2,Qj!!!ib 2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!!!!mC8E!! !!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!!!!`!"N!! $M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!!!!!!$adN d!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!14MZ`$bja 3!ib2N!!"r`%!3!!!!J!#1NeKBdp6)&0eF("[FR3k!%p-!iXSb!2,QS!$M)q3!!2 ,QVcrrrrr!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4 r)#J!!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q 3!!2,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!! !!34r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX $M)q3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjY J!!!!!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2 ,Qj!!!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!! !!mC8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!! !!`!"N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!! !!!!$adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!1 4MZ`$bja3!ib2N!!"r`%!3!!!!`!#1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!")!!!!!!"!!!)!!!!'`)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!#3!!!"`#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!S !!!!G!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!,!!!!(J)!!!! !!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!$!!!!"m#!!!!!!!!!3!"!`! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!d!!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!3!!!!*3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!%J!!!#d#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"- !!!!d!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!8!!!!1`)!!!! !!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!&3!!!%)#!!!!!!!!!3!"!J! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"B!!!!U"3!!!!%!!"!!!3-!!!!!!!!!!!! !!!#"!!!!!!!!!!!"!!!A!!!!-J8!!!!"!!!5!!%$!!!!!!!!!!!!!!!!J3!!!!! !!!!!!3!!'!!!!$N&!!!!!3!!%`!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"N !!!"("3!!!!%!!"8!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!D!!!!2`8!!!! "!!!8!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!)J!!!&d#!!!!!!!!!3!"!3! !!!!!!!!!!!!!!!%!!!!!!!!!!!%!!#)!!!"G!J!!!!!!!!%!!3%!!!!!!!!!!!! !!!!"!!!!!!!!!!!!!!!%!!!!"J!!!!8$DI'!8%&B3&S!CAKM*'*L!fRES!0TlQ! !!!!!!!!"F!1B"2"TH&*[G@jN#%PZDA3$DGZJ#%PZDA4(FQ&Q#%p`C@j3Eh*d$8a [Bf&X9'p(E'pLB@`04fa[BQ&X9'p-Ef0KE!T(!)l'J1X!!"3!!!!Jrrrff!!!!!! !!!!!!3!"!!2Kim!!MXF3k`!!&!!!!#$rrrEX!!!!!!!!!!!"!!%!!q(M`!#1ac$ V!!!%!!!%%2rrp[K-D@)J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfp Z)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3 J0MK,!!!!)!!'D""[D@jd3%")5c"!@J!$D4U3!!0T2&$V!!!8!!!!)!!'D#4XC84 KG'&!3$096d`$D4U3!!0T2($V!!!8!!!!)!!'D"a5C@0d3$)`!$p%Ed3$D4U3!!0 T2*!!k`!!&!!!!#!!"QJSBf9!3&&"48Y,8%*9!fNDN!!$D6b`k`!!&!!!!#!!"QJ J8fpeFQ0P3%"!@J!r!fNDN!!$D6c3k`!!&!!!!#!!"QJ-!!!!!!!!!!!!!!!!!!! !!!0T22$V!!!8!!!!)!!'ClaTF'*[BA*N4'&dB8!$D4U3!!0T24$V!!!-!!!!-!! 'Cl3!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!!3!fPVi!0T26$VB!!3!!!#`!! 'CkJ!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM)J,5"bC@aPBA0P1QKNCMTeG'PX1J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!! !!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!%!!%k1MT kE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"3!"1MSk1QeQD'4Q1Qa TBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!6Sk1MTYCQKNCMTiC()k!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J8(* PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"1N! !!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k!'P[FMT0CA4 bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!"!!)k6@9 dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$+bXk!!2,QS!!&9``"(mQX!! !!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib!S!!!!!32,QX!$M)q3!!!!!X3 $aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!!$bjXFrrrrr`2,QZ#%!!5#"(m QX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!%%Ib!S!!!!!32,Qb!$M)q3!!! !!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib2N!!$bjYmrrrrr`2,Qd!!&9` `"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!!!!!)%Ib!S!mZGN!!$bjY`!ib 2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ3!!1-Mj!!!mZEh2rrrrm$bjZ J!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2'9'`!!!!"rrrrrJ2,R"J!!!! !!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!-!!C!!!ib2N!!!#!!)!!!!!!2 ,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!!!!mG*0!!!!!)!!!!$rrrrr`2 ,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBlX!mZF8!1-Mj!!!Im"!%!!!!) !!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU!!ib2N!!$bjUmrrrrr`2,QS!!&9` `"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib!S!!!!!32,QX!$M)q 3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!!$bjXFrrrrr`2,QZ# %!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!%%Ib!S!!!!!32,Qb! $M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib2N!!$bjYmrrrrr`2 ,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!!!!!)%Ib!S!mZGN!! $bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ3!!1-Mj!!!mZEh2r rrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2'9'`!!!!"rrrrrJ2 ,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!-!!C!!!ib2N!!!#!! )!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!!!!mG*0!!!!!)!!!! $rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBlX!mZF8!1-Mj!!!Im "!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5!!!!!!!!% !"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&069"b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!439" 36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3dq -D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5QT bCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P0 53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jUBACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!@QP `4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0 bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#jME'&cF`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J0MK,)%aTEQYPFJ!!!!!!!!!!!!! !!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p#5L!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFf9R!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!%eKBdp6)%ePFQGP!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q* S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"bFh*M!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0B@028b" 38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'p bG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf& X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jc!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@%024NBJ5@e `Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'p bG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%N0-99-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZBh!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'9Q!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>EM-b)(Ji0L" -D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B !!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$J f!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!" 849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B !!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!" 849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"AD@j53`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R*PF`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!!!,QaTBJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2BQSJ5@e`Eh*d)(J i0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'3-"S!!!4[J!!)!"YFh4b!!!!!!!!!!! !!!C!ZcJ!!&,!!!!0J'ecG'`!!!!!!!!!!!!!"N$![!!!!#J!!!5!EA0dEJ!!!!! !!!!!!!!!!!!!!!!%U!!!!#KYFh4T!!!!!!!!!!!!!!C![-3!!'"!!!!)!'ecG() !!!2S!!!!!!!!"N#pP!!!"0!!!!5!EA0dE!!!!qJ!!!!!!!!'3-$3!!!*8!!!!B" YFh4Z!!!$k!!!!!!!!!C!Zc`!!(F`!!!&!'edF'`!!!!"!!!!!!!!"N#pE!!!#fm !!!#!EA4`F`!!!!%!!!!!!!!'3,c8!!!-8!!!!"KYG(0X!!!!!3!!!!!!!!!!!!! !!!V3!!!!+'ecG'N!!!2S!!!!!!!!"N#kR!!!$'J!!!)XEA"cD3!!!qJ!!!!!!!! '3,Lm!!!1P!!!!KTYG'GX!!!$k!!!!!!!!!!!!!!!!![[!!!!$QedF'N!!!!"!!! !!!!!"N#p[!!!#rd!!!!`EA4XE`!!!!%!!!!!!!!'3,LJ!!!a[J!!!5936(0d!!$ *c3!!!"m!!!!!!!!!!%H3!!!!!#j`FQ9Q!!&,NJ!!!#d!!!!!!!!!!%Z2!!!%5A" bC@B!!J+[!!!!,J!!!!!!!!!!%ES!!!!%F(*PCJ!"fq`!!!![!!!!!!!!!!",43! !!#4`FQ9Q!!(N33!!!$S!!!!!!!!!!%YT!!!!#R"bC@B!!G93!!!!1`!!!!!!!!! !8H3!!!#5F(*PCJ!"h9X!!!!m!!!!!!!!!!"5GJ!!!%T`FQ9Q!!(YE`!!!$d!!!! !!!!!!$b&!!!!,R"bC@B!!32Z!!!!93!!!!!!!!!!2,-!!!4*F(*PCJ!"9J8!!!" @!!!!!!!!!!"!r!!!!!4`FQ9Q!!&PR`!!!&F!!!!!!!!!!%%!!!!!*("bC@B!!+- h!!!!@!!!!!!!!!!!353!!!!+F(*PCJ!!L"3!!!"C!!!!!!!!!!"",J!!!**`FQ9 Q!!#VT`!!!&S!!!!!!!!!!%(!!!!!5R"bC@B!!49R!!!!@`!!!!!!!!!!0h)!!!' !EA0`D3!!!!%!!!!!!!!!!!!!!!!+q!!!!"T`FQ9Q!"RBa3!!!2d!!!!!!!!!!(` `!!!BF("bC@B!'E*X!!!!rJ!!!!!!!!!!-Z-!!!*NF(*PCJ!C(rS!!!$r!!!!!!! !!!#8S!!!),T`FQ9Q!"QBQ3!!!3!!!!!!!!!!!!X5!!!!"("bC@B!'CmY!!!"!3! !!!!!!!!!#aB!!!!BF(*PCJ!CMci!!!%#!!!!!!!!!!!,,J!!!!T`FQ9Q!"Pd#J! !!3-!!!!!!!!!!!Xi!!!!$R"bC@B!'Ar'!!!""!!!!!!!!!!!%+i!!!$'F(*PCJ! CpZ)!!!%&!!!!!!!!!!!4G!!!!$K`FQ9Q!"QKd`!!!3B!!!!!!!!!!!Y'!!!!$(" bC@B!'@-P!!!""`!!!!!!!!!!08F!!!(DF(*PCJ!CC!-!!!%)!!!!!!!!!!!,8J! !!!a`FQ9Q!"NKM3!!!3N!!!!!!!!!!$Mb!!!!BR"bC@B!'Fp0!!!"#J!!!!!!!!! !0b%!!!!iF(*PCJ!C&&i!!!%,!!!!!!!!!!!,AJ!!!!e`FQ9Q!"NfA!!!!3`!!!! !!!!!!!`Y!!!!&("bC@B!'Gr&!!!"$3!!!!!!!!!!$%%!!!!+F(*PCJ!Ch#m!!!% 1!!!!!!!!!!!j9!!!!-4`FQ9Q!"Q6IJ!!!3m!!!!!!!!!!$SB!!!"&R"bC@B!'69 '!!!"%!!!!!!!!!!!1bi!!!#kF(*PCJ!CLTi!!!%4!!!!!!!!!!!lk!!!!#j`FQ9 Q!"QL%3!!!4)!!!!!!!!!!%)+!!!#$("bC@B!'IB2!!!"%`!!Pf!!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/fp2hdf.project.hqx0000644000000000000000000014261212421456623020404 0ustar (This file must be converted with BinHex 4.0) :$QC`-QKNCLj`FQpUC@0d!%e08(*$9dP&!!!!!*&Q!!!!!0$BBfp[E!!!!!)!!!! S!!#,`J!!LqS!!!9m!!!!0J%!!!!!!!!!!!!!!!!!!!!!!!!"Bb4#3J!!!#%!!!! #!!!!!!!!!$m!!!!$FfJ)8!!!!'!!!!!%!fRZd!!!!(m!!!!&#N&NC!!!!*d!!!! '8'PZ8J!!!,S!!!!(B9"[D3!!!0`!!!!)68PdC3!!!2J!!!!*G&*PF`!!!48!!!! +6@9ZG3!!!68!!!!,G%0[EJ!!!98!!!!-3fpZG!!!!@d!!!!0Eh0P3`!!!BX!!!! 1D@aX3`!!!DJ!!!!28fK[G`!!!FB!!!!35'PNC3!!!Gm!!!!46@pfC3!!!J)!!!! 54f9d3`!!!L-!!!!6CA4$8J!!!N3!!!!8HQ9$E`!!!Q%!!!!9E'PdC3!!!S-!!!! @4f9d3`!!!Tm!!!!AG%08D3!!!VJ!!!!BG'a@B3!!!Y8!!!!CD@j$G!!!![-!!!! D3h4X#`!!!a%!!!!EE(9P#3!!!c%!!!!FE!P6C3!!!di!!!!G9'9cG!!!!fS!!!! H4(*KC`!!!iF!!!!I9(*KB`!!!jN!!!!J$%4bB3!!!lS!!!!K!!!"J!!!!pJ!!!! L!!!!"J!!!rN!!!!MVhK&A`!!""J!!!!N!!!!!!!!"$B!!!!P!!!!!!!!"&-!!!! Q!!!!!!!!"(8!!!!R!!!!!!!!"*%!!!!S!!!!!!!!"+i!!!!T!!!!!!!!"-i!!!! U!!!!!!!!"1i!!!!V!!!!!!!!"3B!!!!X!!!!!!!!"53!!!!Y!!!!!!!!"8%!!!! Z!!!!!!!!"9m!!!![!!!!!!!!"AJ!!!!`!!!!!!!!"CX!!!!a!!!!!!!!"E`!!!! b!!!!!!!!"Gd!!!!c!!!!!!!!"IS!!!!d!!!!!!!!"K`!!!!e!!!!!!!!"MJ!!!! f!!!!!!!!"P%!!!!h!!!!!!!!"Qi!!!!i!!!!!!!!"S`!!!!j!!!!!!!!"US!!!! k!!!!!!!!"XS!!!!l!!!!!!!!"ZF!!!!m!!!!!!!!"`-!!!!p!!!!!!!!"b!!!!! q!!!!!!!!"d-!!!!r!!!!!!!!"f-!!!"!!!!!!!!!"iB!!!""!!!!!!!!"kF!!!" #!!!!!!!!"mF!!!"$!!!!!!!!"qB!!!"%!!!!!!!!#!S!!!"&!!!!!!!!##J!!!" '!!!!!!!!#%F!!!"(!!!!!!!!#'N!!!")!!!!!!!!#)X!!!"*!!!!!!!!#+8!!!" +!!!!!!!!#-8!!!",!!!!!!!!#1S!!!"-!!!!!!!!#3d!!!"0!!!!!!!!#6!!!!" 1!!!!!!!!#8m!!!"2!!!!!!!!#A-!!!"3!!!!!!!!#C%!!!"4!!!!!!!!#D`!!!" 5!!!!!!!!#FX!!!"6!!!!!!!!#HX!!!"8!!!!!!!!#JX!!!"9!!!!!!!!#LS!!!" @!!!!!!!!#NS!!!"A!!!!!!!!#Q8!!!"B!!!!!!!!#SF!!!"C!!!!!!!!#UB!!!" D!!!!!!!!#X3!!!"E!!!!!!!!#Z-!!!"F!!!!!!!!#[d!!!"G!!!!!!!!#a3!!!" H!!!!!!!!#bi!!!"I!!!!!!!!#dB!!!"J!!!!!!!!#ed!!!"K!!!!!!!!#h-!!!" L!!!!!!!!#ii!!!"M!!!!!!!!#k-!!!"N!!!!!!!!#lN!!!"P!!!!!!!!#p)!!!" Q!!!!!!!!#qX!!!"R!!!!!!!!#r`!!!"S!!!!!!!!$"-!!!"T!!!!!!!!$#m!!!" U!!!!!!!!$%N!!!"V!!!!!!!!$'-!!!"X!!!!!!!!$(N!!!"Y!!!!!!!!$*3!!!" Z!!!!!!!!$+N!!!"[!!!!!!!!$,X!!!"`!!!!!!!!$0%!!!"a!!!!!!!!$1J!!!" b!!!!!!!!$2m!!!"c!!!!!!!!$4S!!!"d!!!!!!!!$6)!!!"e!!!!!!!!$8d!!!" f!!!!!!!!$@B!!!"h!!!!!!!!$Ai!!!"i!!!!!!!!$C8!!!"j!!!!!!!!$E%!!!" k!!!!!!!!$FF!!!"l!!!!!!!!$Gi!!!"m!!!!!!!!$IJ!!!"p!!!!!!!!$K)!!!" q!!!!!!!!$L3!!!"r!!!!!!!!$M`!!!#!!!!!!!!!$PN!!!#"!!!!!!!!$R3!!!# #!!!!!!!!$Sm!!!#$!!!!!!!!$UB!!!#%!!!!!!!!$X)!!!#&!!!!!!!!$YJ!!!# '!!!!!!!!$ZX!!!#(!!!!!!!!$`)!!!#)!!!!!!!!$aS!!!#*!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)N!!!#J!!!2-J!!%!!!!!# *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!)!!!!!S!!!!5!!!!5J!!!#B!!!! T!!!!5!!!!$%!!!!Z!!!!2J!!!$`!!!"'!!!!3`!!!$J!!!!e!!!!)3!!!!!!!!! 6!!!!"3!!!!%!!!",!!!!6!!!!#F!!!!P!!!!+J!!!#J!!!!M!!!!*!!!!%N!!!! L!!!!#`!!!"`!!!![!!!!,3!!!$)!!!!`!!!!+`!!!#`!!!!$!!!!&!!!!"!!!!! G!!!!$J!!!$d!!!!r!!!!1`!!!%!!!!!k!!!!"!!!!!d!!!!D!!!!$!!!!"X!!!! 2!!!!(J!!!"%!!!!I!!!!"J!!!"8!!!!(!!!!&J!!!!N!!!!C!!!!&`!!!!J!!!! B!!!!4!!!!%)!!!"(!!!!43!!!%%!!!!f!!!!0!!!!$N!!!!h!!!!-`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0!!!!B!!!"*8!!!J!!!!!63!!!!!!!!! !!!!!!!!!!!!!!!!!!!-!!(rr!!!!!(rr!!!!!(rr!!!!!(rr!!!!!J%!!!B#!!! !!!!"!3!"!3!!!!%!!!!"!!!!!!%"!!!"!3!"!!!(!3!"!3!"!3!!!!%!!!-"!3% "!3%"!!%!!!%"!3!!!!!!!!!!!!)!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!!!!! !!3!!!!)!!!!$!!!!"!!!!!8!!!!'!!!!#`!!!!F!!!!-!!!!#!!!!!d!!!!*!!! !$`!!!!S!!!!1!!!!%!!!!"%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"[HfplEhY[H`!!!"%!!!!J!3!"!!!F!3!!'J%!!"N "!!!B!3!!&`%!!"B"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d"!!!F!!%!!!!&8Np 29!!!!!!!!!!!!!!!!!4(8P93!!!!!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3!!(%G 599!!!!!!!!!!!Jj"6P0*)%aTBR*KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP -43%!!!e(8P93!!!!!!!!!!%06@&M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8 "!!!,4NP-43%!!!a(8P93!!!!!!!!!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8 )8(*[DQ9MG(-!!!!&4NP-43%!!""'58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a &!3!!&8C*6%8"!!!@4NP-43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!"S !#3!"!!%"!!!-6@&M5'9KC'9bFbjSD'&M,QJ!!!!!!!!!!!!!!!!!!!%!!!!!!!! !!!!!!!!!!!!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!3!"!!%"!!%!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!" #!!!!3`!!!%3!!!"&!!!!2J!!!%%!!!"'!!!!4`!!!%J!!!!p!!!!3!!!!%N!!!" 8!!!!93!!!&B!!!"+!!!!5`!!!%`!!!"0!!!!6J!!!%m!!!"3!!!!83!!!&)!!!" 6!!!!2`!!!&F!!!"B!!!!@3!!!&S!!!!&!!!!"J!!!!F!!!!)!!!!!3!!!!3!!!! *!!!!#J!!!!X!!!!!!!!!!`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3!!!")!!!! 6!!!!&!!!!"8!!!!@!!!!&`!!!"J!!!!C!!!!!J!!!"S!!!!E!!!!(!!!!"d!!!! N!!!!*3!!!#B!!!!R!!!!)!!!!#-!!!!S!!!!+3!!!#S!!!!I!!!!)J!!!#X!!!! X!!!!,3!!!#i!!!![!!!!-!!!!$%!!!!b!!!!-`!!!$3!!!!e!!!!0J!!!$F!!!! i!!!!)3!!!$N!!!!k!!!!1`!!!$`!!!"h!!!!H!!!!(N!!!"k!!!!F`!!!(B!!!" l!!!!I!!!!(d!!!"b!!!!G3!!!(i!!!"r!!!!J!!!!)%!!!##!!!!J`!!!)3!!!# &!!!!KJ!!!)F!!!#)!!!!G!!!!'!!!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!" P!!!!CJ!!!&X!!!"H!!!!C`!!!'J!!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!" [!!!!F!!!!(%!!!"G!!!!(J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!`!!!!B!!!!$!!!!"V0')fN!!(U'!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!*6@9 bCf8J6h9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$!!-#!!% "!!%!!!!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3!!!3!!!!!!!!!!!!%"#!!!!!!!%3!!!!)!!!!!!!!!(`! !!!0RFfpL!!!!*J!!!!3$D@13!!!!!$8!!!!&!3%"!3!!!%3!!!!'!!!!!!!!!&% !!!!(!!!!!!!!!&i!!!!)!!!!!3!!!'`!!!!*'HB!!!!!!(!!!!!+!!"LC3!!!(m !!!!,C%9[BJ!!!*8!!!!-C(3!!!!!!+)!!!!0!!!!!!!!!,S!!!!1!!!!!!!!!03 !!!!2rZ!!C!!!!1d!!!!3BQTN!!!!!3!!!!!4!"R4!!!!!3S!!!!5!!!!!!!!!4` !!!!6!2rrr`!!!6)!!!!8Ef*UC!!!!8-!!!!9!!!!!!!!!9)!!!!@!!!!!!!!!9m !!!!A!!$rr`!!!@d!!!!B!)G[BJ!!!A3!!!!CF(3!!!!!!B8!!!!D!!!!!!!!!C3 !!!!E!!!!!!!!!D3!!!!FE'&MC3!!!E)!!!!G!!!pC`!!!Em!!!!H&J!3!3!!!FF !!!!I'!!!!!!!!GS!!!!Jr`!!'3!!!H`!!!!K!!!"J!!!!J!!!!!L!!!!!!!!!K- !!!!M!!!!!!!!!KX!!!!NZG!!!!!!!LS!!!!PG'`!!!!!!MN!!!!Q!j'*`!!!!NX !!!!REA0dEJ!!!Q)!!!!S!!!$N3!!!Qi!!!!T!#KYF`!!!S!!!!!U!!!!!!!!!T! !!!!!+fplEhX!!!+F!!!!,!#JHf!!!!+T!!!!,3!!!M!!!!+j!!!!,J!!!"3!!!, -!!!!,`!!!!!!!!,N!!!!-!!!!!!!!!,a!!!!-3!!!!!!!!-%!!!!-J!!!!!!!!- 5!!!!-`!!!!!!!!-I!!!!0!!!!!!!!!-X!!!!03!!!!!!!!-l!!!!0J!!!!!!!!0 3!!!!0`!!!!!!!!0C!!!!1!!!!!!!!!0S!!!!13!!!!!!!!0c!!!!1J!!!!!!!!0 m!!!!1`!!!!!!!!10!!!!2!!!!!!!!!1K!!!!23!!!!!!!!1k!!!!2J!!!!!!!!2 1!!!!2`!!!!!!!!2G!!!!3!!!!!!!!!2V!!!!33!!!!!!!!2j!!!!3J!!!!!!!!3 )!!!!3`!!!!!!!!3D!!!!4!!!!!!!!!3a!!!!43!!!!!!!!3p!!!!4J!!!!!!!!4 2!!!!4`!!!!!!!!4F!!!!5!!!!!!!!!4S!!!!53!!!!!!!!4[!!!!5J!!!!!!!!4 j!!!!5`!!!!!!!!5"!!!!6!!!!!!!!!5-!!!!63!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!$D6c3k`!!&!!!!#!!"QJ-!!!!!!!!!!!!!!! !!!!!!!0T22$V!!!8!!!!)!!'ClaTF'*[BA*N4'&dB8!$D4U3!!0T24$V!!!-!!! !-!!'Cl3!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!!3!fPVi!0T26$VB!!3!!! #`!!'CkK"6P0*)%0[ER0[E'8J0MKV1N0eFh4[E5",CAPhEh*NF`""6P0*)%0[ER0 [E'8J0MKV1N&MBf9cFb"3BA4SF`""6P0*)%0[ER0[E'8J0MKV1P4KFQGPG#"6CA4 dD@jRF`""6P0*)%0[ER0[E'8J0MKV1NCTE'8J6@&`F'PZCh-!38j655"$EfjcEfa P)$BiDcT#G@PXC#"&H(4bBA-!38j655"$EfjcEfaP)$BiDcSf1%XJ3fpNC8GPEJ" "6P0*)%0[ER0[E'8J0MKV1MBi5b"%DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)$B iDcSf1%XJ6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)&"bEfTPBh3!38j655" $EfjcEfaP)$BiDcT$,d-V+b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J0MKV1N-[3bX V)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3dC00MK,!%&18dNJ3fpZFfpXC5! f1'Xk59)J6h"dD@eTHQ9b!%&18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"2GA4`GA3!38j 655"$EfjcEfaP)$BiDcT+BACK)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT+BAC K)&C0!%&18dNJ3fpZFfpXC5!f1'Xk6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$Efj cEfaP)$BiDcT3BA0MB@`J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcT3BA0MB@` J9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT38%-J3fpNC8GPEJ""6P0*)%0[ER0 [E'8J0MKV1P"33b"%DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)$BiDcT38%-J6'P ZDf9b!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"&4J""6P0*)%0[ER0[E'8J0MKV1P" 33b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk8&"$3A0Y)&"KEQ9X!%&18dNJ3fp ZFfpXC5!f1'Xk8Q9k)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'Xk9fPZ8N-J3fp YF'PXCA)!38j655"$EfjcEfaP)$BiDcTi1$BJ3fpNC8GPEJ""6P0*)%0[ER0[E'8 J0MKV1RJi0L"-D@jVCA)!38j655"$EfjcEfaP)$BiDcTi1$BJ8(*[DQ9MG!"3FQp UC@0d)%CTE'8J6'PcG!""6P0*)%0[ER0[E'8J8&"$1N0eFh4[E5",CAPhEh*NF`" "6P0*)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`""6P0*)%0[ER0[E'8J8&"$1P4 KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J8&"$1NCTE'8J6@&`F'PZCh-!38j 655"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j655"$EfjcEfaP)&"33cSf1%X J3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1MBi5b"%DA0KFh0PE@*XCA)!38j655" $EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%&18dNJ3fpZFfpXC5"38%-k0MK,)&"bEfT PBh3!38j655"$EfjcEfaP)&"33cT$,d-V+b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8 J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5"38%-k3dC00MK,!%&18dN J3fpZFfpXC5"38%-k59)J6h"dD@eTHQ9b!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5" 2GA4`GA3!38j655"$EfjcEfaP)&"33cT+BACK)&"bEfTPBh3!38j655"$EfjcEfa P)&"33cT+BACK)&C0!%&18dNJ3fpZFfpXC5"38%-k6@&M6e-J6@9bCf8J8'&ZC@` !38j655"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'PXCA)!38j655"$EfjcEfaP)&" 33cT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfaP)&"33cT38%-J3fpNC8GPEJ" "6P0*)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)&" 33cT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5"38%-k8&"$)&"&4J""6P0*)%0[ER0 [E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k8&"$3A0Y)&"KEQ9 X!%&18dNJ3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5"38%- k9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)&"33cTi1$BJ3fpNC8GPEJ""6P0 *)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655"$EfjcEfaP)&"33cTi1$BJ8(* [DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3b" $EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(-!38j655"$)%0[ER0[E'8J8&"$1P4KFQG PG#"6CA4dD@jRF`""6P0*)%-J3fpZFfpXC5"38%-k4QPXC5"0BA"`D@jRF`""6P0 *)%-J3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%&18dNJ3b"$EfjcEfaP)&"33cS f1%XJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-k0MK,)%4TFf&cFf9YBQaPFJ" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ""6P0*)%-J3fpZFfpXC5"38%- k0MK,)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1N-[3bXV)%0[EA"TE'9b!%& 18dNJ3b"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@jRF`""6P0*)%-J3fpZFfpXC5" 38%-k3dC00MK,!%&18dNJ3b"$EfjcEfaP)&"33cT*8L"2F(4TE@PkCA)!38j655" $)%0[ER0[E'8J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!%&18dNJ3b"$EfjcEfaP)&" 33cT3BA0MB@`J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&"$1P"KFf0KE#"ABA* ZD@jRF`""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%0[C'9(C@i!38j655"$)%0[ER0 [E'8J8&"$1P"33b"%DA0KFh0PE@*XCA)!38j655"$)%0[ER0[E'8J8&"$1P"33b" -D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1P"33b"348B!38j655"$)%0[ER0[E'8 J8&"$1P"33b"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT38%0"FfdJ8'&ZC@` !38j655"$)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5" 38%-k5Q&fB5"2GA4`GA3!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J8(*[DQ9MG!" "6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"@63""6P0*)%-J3fpZFfpXC5"38%-k9fP Z8N-J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&"$1RJi0L"$Ef4P4f9Z!%&18dN J3b"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cTi1$B J8(*[DQ9MG!"SC'CXFb"38%-k3h9cG'pY)%YPHAG[FQ4c!'KNCQac)&"33cT"Bf0 PFh-J8'&dD(-!D'4QE(-J8&"$1P4KFQGPG#"6CA4dD@jRF`"SC'CXFb"38%-k4QP XC5"0BA"`D@jRF`"SC'CXFb"38%-k3R9TE'3J4AKdFQ&c!'KNCQac)&"33cSf1%X J3fpNC8GPEJ"SC'CXFb"38%-k0MK,)%4TFf&cFf9YBQaPFJ"SC'CXFb"38%-k0MK ,)%aTEQYPFJ"SC'CXFb"38%-k0MK,)&"bEfTPBh3!D'4QE(-J8&"$1N-[3bXV)%0 [EA"TE'9b!'KNCQac)&"33cT$,d-V+b"ABA*ZD@jRF`"SC'CXFb"38%-k3dC00MK ,!'KNCQac)&"33cT*8L"2F(4TE@PkCA)!D'4QE(-J8&"$1NeKBdp6)%ePFQGP)&" KEQ9X!'KNCQac)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4QE(-J8&"$1P"KFf0KE#" ABA*ZD@jRF`"SC'CXFb"38%-k8&"$)%0[C'9(C@i!D'4QE(-J8&"$1P"33b"%DA0 KFh0PE@*XCA)!D'4QE(-J8&"$1P"33b"-D@jVCA)!D'4QE(-J8&"$1P"33b"348B !D'4QE(-J8&"$1P"33b"3FQpUC@0d!'KNCQac)&"33cT38%0"FfdJ8'&ZC@`!D'4 QE(-J8&"$1P*PHL"$Efe`D@aPFJ"QF$*SC'BJ8&"$1N0eFh4[E5",CAPhEh*NF`" QF$*SC'BJ8&"$1N&MBf9cFb"3BA4SF`"QF$*SC'BJ8&"$1P4KFQGPG#"6CA4dD@j RF`"QF$*SC'BJ8&"$1NCTE'8J6@&`F'PZCh-!CR!bD'4Q)&"33cT#G@PXC#"&H(4 bBA-!CR!bD'4Q)&"33cSf1%XJ3fpNC8GPEJ"QF$*SC'BJ8&"$1MBi5b"%DA0KFh0 PE@*XCA)!CR!bD'4Q)&"33cSf1%XJ6'PZDf9b!'C`-QKNCL"38%-k0MK,)&"bEfT PBh3!CR!bD'4Q)&"33cT$,d-V+b"$Efe`D@aPFJ"QF$*SC'BJ8&"$1N-[3bXV)&G KFQjTEQGc!'C`-QKNCL"38%-k3dC00MK,!'C`-QKNCL"38%-k59)J6h"dD@eTHQ9 b!'C`-QKNCL"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!CR!bD'4Q)&"33cT3BA0MB@` J3fpYF'PXCA)!CR!bD'4Q)&"33cT3BA0MB@`J9f&bEQPZCh-!CR!bD'4Q)&"33cT 38%-J3fpNC8GPEJ"QF$*SC'BJ8&"$1P"33b"%DA0KFh0PE@*XCA)!CR!bD'4Q)&" 33cT38%-J6'PZDf9b!'C`-QKNCL"38%-k8&"$)&"&4J"QF$*SC'BJ8&"$1P"33b" 3FQpUC@0d!'C`-QKNCL"38%-k8&"$3A0Y)&"KEQ9X!'C`-QKNCL"38%-k8Q9k)%0 [EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!38j655"$EfjcEfaP)$BiD`"'DA*cG#"6C@G YC@jd!$TK,QpeG!"-D@)J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfp Z)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3 J0MK,!$T"6P0*)%0[ER0[E'8J0MKV,QpeG!")C@aXEeG[FQaN,Q-!690-)%-Z0MK ,)%CK+$4TAcKN+5j-D@)!690-)%-V+bif1%XJ4Q%S0'PI1'3T,NaTBJ"0BA4S6'P L0MK,)%CK+$4T,cKN+5j-D@)!690-)&*eER4TE@8f1%XZ6'PL!%eKBdp6,QaTBJ" 08d`J8dP299JZ0MK,,NaTBJ!k38j655"$EfjcEfaP)&"33bj[GA3!38j655"$Efj cEfaP)&"33`"-D@)J5@e`Eh*d)&"33`"09b"$,d-V+b"38%-!69FJ8'&cBf&X)&" 33`"38%0"Ffd!@%024NBJ5@e`Eh*d)&"33`"348BJ5@e`Eh*d)&"33`"08d`J3bX V,P"33bj-D@)!690-)%-Z8&"$,NaTBJ"*ER4PFQCKBf9-D@)!6@&dD%aTBJ"08d` J8R9ZG'PYC9"33bj-D@)!690-)&0*6e9B,P"33bj-D@)!1N&18dNJ3b"$EfjcEfa P)&"33`""6P0*)%-J3fpZFfpXC5"38%-!D'4QE(-ZB`"SC'CXD@)Z8&"$,QaTBJ" SC'CXD@)ZF(*[DQ9MG!"SC'BJ6'PL)$Bi5b"%C@*eC`!kD'4Q0MKV,NCKFLJdD5m iC#NZE'PL!'KNCL"-D@)J0MK,!'KNCL"-D@)J8&"$)%4PBR9R!$TSC'CXD@)Z8&" $,QaTBJ"SC'BJ6'PL)&"33`"UF'9R,P"33bjXD@)!DR"PCfaTBLj`FQpUC@0d!'T `C@FJ6'PL)$Bi5b"%C@*eC`!kDR"PCcBiDbj'BA)S0'N[1'3T,QaTBJ"UF'9R)%a TBL!f1%X!DR"PCb"-D@)J8&"$)%4PBR9R!$TUF'9R,P"33bjXD@)!DR"PCb"-D@) J8&"$!(TXD@)ZF(*[DQ9MG!"kE'PL)$Bi5b"%C@*eC`!kHMBiDbj'BA)S0'N[1'3 T,QaTBJ"kE'PL)$Bi5`"kE'PL)&"33b"%C@*eC`!kHLj38%-ZE'PL!(TXD@)J8&" $!'eQD'4QE'PL,R"bEfTPBh3!E@CSC'BJ6'PL)$Bi5b"%C@*eC`!kE@CSC'Bf1'X Z4Q&b+$4T,cKN+5jXD@)!E@4SC'BJ6'PL)&"33b"%C@*eC`!kE@CSC'BZ8&"$,Qa TBJ"YCQKNCL"-D@)J0MK,!'eQD'4Q)%aTBL"38%-!H'4bE'PL,R"bEfTPBh3!H'4 b)%aTBL!f1%XJ4'9LG@F!1RKNFMBiDbj'BA)S0'N[1'3T,QaTBJ"iC()J6'PL)$B i5`"iC()J6'PL)&"33b"%C@*eC`!kH'4b,P"33bjXD@)!H'4b)%aTBL"38%-!1QK NCQac!'KNCQac)&"33`!kCR!bD'4Q!'C`-QKNCL"38%-!CR!bD'4Q,Q-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!)!!!!'`)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !#3!!!"`#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!S!!!!G!J! !!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!,!!!!(J)!!!!!!!!"!!% $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!$!!!!"m#!!!!!!!!!3!"!`!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!!d!!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!3!!!!*3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !%J!!!#d#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"-!!!!d!J! !!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!8!!!!1`)!!!!!!!!"!!% #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!&3!!!%)#!!!!!!!!!3!"!J!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!"B!!!!U"3!!!!%!!"!!!3-!!!!!!!!!!!!!!!#"!!! !!!!!!!!"!!!A!!!!-J8!!!!"!!!5!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3! !'!!!!$N&!!!!!3!!%`!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"N!!!"("3! !!!%!!"8!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!D!!!!2`8!!!!"!!!8!!% $!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!(!!!!%d#!!!!!!!!!3!"!3!!!!!!!!! !!!!!!!%!!!!!!!!!!!%!!"`!!!"0!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!! !!!!!!!!!!!!%!!!!"J!!!!8$DI'!8%&B3&S!CAKM*'*L!fRES!0TlQ!!!!!!!!! "F!1B"2"TH&*[G@jN#%PZDA3$DGZJ#%PZDA4(FQ&Q#%p`C@j3Eh*d$8a[Bf&X9'p (E'pLB@`04fa[BQ&X9'p-Ef0KE!T(!)l'J1X!!"3!!!!Jrrrff!!!!!!!!!!!!3! "!!2Kim!!MXF3k`!!&!!!!#$rrrEX!!!!!!!!!!!"!!%!!q(M`!#1ac$V!!!%!!! %%2rrp[K-D@)J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(! !69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!!! !)!!'D""[D@jd3%")5c"!@J!$D4U3!!0T2&$V!!!8!!!!)!!'D#4XC84KG'&!3$0 96d`$D4U3!!0T2($V!!!8!!!!)!!'D"a5C@0d3$)`!$p%Ed3$D4U3!!0T2*!!k`! !&!!!!#!!"QJSBf9!3&&"48Y,8%*9!fNDN!!$D6b`k`!!&!!!!#!!"QJJ8fpeFQ0 P3%"!@J!r!fNDN!!$D6c3k`!!&!!!!#!!"QJ-!!!!!!!!!!!!!!!!!!!!!!0T22$ V!!!8!!!!)!!'ClaTF'*[BA*N4'&dB8!$D4U3!!0T24$V!!!-!!!!-!!'Cl3!!3! !!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!!3!fPVi!0T26$VB!!3!!!#`!!'CkJ!!3! !!!956dp8!!!!!!!!!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!NC*6%8 "!!!E4NP-43%!!"a(8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP-43% !!!P'58a&!3!!#%C*6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!! $4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!! '4e*98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3! !%dC*6%8"!!!84NP-43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3! !'8C*6%8"!!!D!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!838j655"$EfjcEfaP)$BiDbj[GA3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d& 38%`!!!'!@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr!!!!!!!!!!!!93'3!!%*!RX !!!!!!!!!!!!!!!!!!!'!!!!!!!!!!!!!!!!!!!!!"X)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3%!!"!!!!!%!!! !!#B!!!!R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!! !!!!!!#X!!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$! !!!![!!!!!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3! !%`!!!!3!!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!! j!!!!!!8!!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8 !!!!!!!!!2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!3! !'J8"!3!"!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!! !!!!!4J!!!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!-36@&M6e-J8&"$)%a TEQYPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!#QC`-QKNCL"38%0cEfaP)&"33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5!!!!!!!!!!!!!!!!!!!!B!!!p+BACK3fa KFh0PFbjkDA!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N%!!!!(!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK`E'pbCA)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5@9iF'a [FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!!"!!"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!#!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!+6Np138e&,N9B43! !!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!!"#3* l!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!%!!!'CR!bD'4Q)%0[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!$mr2cp"8&" -!!!"p!!!!I3!!!"!!!"B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!! !!J"3!!%!!3!"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3 R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e0 33`!$!J!"!3!"!!!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!!B!!!p+BACK3faKFh0 PFbjkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!"-!3!!!3!!!!! !!!!!"!!!!!",XAH&Y`!!6!d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"*)%-J3fp ZFfpXC5"38%-ZEh9d!!!!!!!!!!!!2cmr2d&38%`!!!'!!!!"J!!!!%!!!&M!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cm r2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!% !!!d!"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9 bEQ9d)%9iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!&! !!3!"!!%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!"@% ZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!! !"!"9!C!!!3N#H`!!!!!!!!!!!!!!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM)J,5" bC@aPBA0P1QKNCMTeG'PX1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!!!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!%!!%k1MTkE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!!"3!"1MSk1QeQD'4Q1QaTBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!6S k1MTYCQKNCMTiC()k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4KEQ4 KFQ3J6'PLFQ&bH6T08d`J8(*PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"1N!!!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR* KFRNk690-)%-k!'P[FMT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%- k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3"!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#" $+bXk!!2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib! S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!! $bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!% %Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib 2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!! !!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ 3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2 '9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!- !!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!! !!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBl X!mZF8!1-Mj!!!Im"!%!!!!)!!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU!!ib 2N!!$bjUmrrrrr`2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2 '9'`%Ib!S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!! I!ib2N!!$bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZ E!!!!!!%%Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m !(fpl!ib2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!! !!mZEB!!!!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1 @,Bi$bjZ3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm 3!!!!!!2'9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp -!!!!!!-!!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2 '9#J!!!!!!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4 dSD3$NBlX!mZF8!1-Mj!!!Im"!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!5!!!!!!!!%!"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!&069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!439"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!3dq-D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!5QTbCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jUBAC K!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"!!!!!@QP`4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#jME'& cF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J0MK ,)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%p#5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9 XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!! !!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!! !!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZFf9R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!! !!%eKBdp6)%ePFQGP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39" 36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e -3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G $4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9 B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9 B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9 B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jc!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'p MG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfK XBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!%N0-99-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!>EM-b)(Ji0L"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K8,Q- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" `G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R* PF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!!!,Qa TBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'3,YJ!!! @[J!!%!"YFh4b!!!!!!!!!!!!!!C![B!!!!!S!!!(J'ecG'`!!!!!!!!!!!!!"N# lC!!!$'J!!!+!EA0dEJ!!!!!!!!!!!!!!!!!!!!!(U!!!!#KYFh4T!!!!!!!!!!! !!!C!Zh!!!#Dq!!!)!'ecG()!!!2S!!!!!!!!"N#lG!!!%Ei!!!5!EA0dE!!!!qJ !!!!!!!!'3,Yi!!!(d!!!!B"YFh4Z!!!$k!!!!!!!!!C!Zi3!!#kq!!!&!'edF'` !!!!"!!!!!!!!"N#lL!!!#I8!!!#!EA4`F`!!!!%!!!!!!!!'3,Z-!!!-8!!!!"K YG(0X!!!!!3!!!!!!!!!!!!!!!!P3!!!!+'ecG'N!!!2S!!!!!!!!"N#m$!!!$ZJ !!!)XEA"cD3!!!qJ!!!!!!!!'3,`!!!"([J!!!KTYG'GX!!!$k!!!!!!!!!!!!!! !!!Te!!!!$QedF'N!!!!"!!!!!!!!"N#lN!!!!!U$!!!!-'edE'm!!!!"!!!!!!! !"N#k)!!!#V-!!!%P8%acG!!!bFd!!!!I!!!!!!!!!!"(N!!!!!!ZF(*PCJ!"5j) !!!!Y!!!!!!!!!!",M`!!"%P`FQ9Q!!)#V`!!!#i!!!!!!!!!!"'k!!!!"("bC@B !!G[X!!!!,`!!!!!!!!!!5d8!!!!NF(*PCJ!"j%%!!!!k!!!!!!!!!!",D3!!!!T `FQ9Q!!(98!!!!$X!!!!!!!!!!&(N!!!!NR"bC@B!!GeE!!!!2!!!!!!!!!!!8RB !!!"+F(*PCJ!"l@m!!!!p!!!!!!!!!!!mK3!!!#j`FQ9Q!!%$lJ!!!&8!!!!!!!! !!$bc!!!%5A"bC@B!!9B&!!!!9J!!!!!!!!!!32`!!!!%F(*PCJ!"CCm!!!"A!!! !!!!!!!""!!!!!#4`FQ9Q!!#M0`!!!&J!!!!!!!!!!%%N!!!!#R"bC@B!!)J8!!! !@3!!!!!!!!!!35i!!!#5F(*PCJ!!UkF!!!"D!!!!!!!!!!""`!!!!%T`FQ9Q!!% 9C`!!!&X!!!!!!!!!!$Gb!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!#AJ!!!!DF(* PCJ!3i1N!!!"c!!!!!!!!!!"5`!!!'("`FQ9Q!"#'B!!!!(3!!!!!!!!!!$Mb!!! #C("bC@B!%(Xe!!!!G3!!!!!!!!!!Dc!!!##kF(*PCJ!4"P-!!!"f!!!!!!!!!!! *NJ!!!!4`FQ9Q!"#B8!!!!(F!!!!!!!!!!!Q@!!!!'("bC@B!%"9B!!!!H!!!!!! !!!!!#Di!!!!+F(*PCJ!3V&B!!!"j!!!!!!!!!!!*Z!!!!!j`FQ9Q!""pV3!!!(S !!!!!!!!!!$9B!!!!aR"bC@B!%%EG!!!!H`!!!!!!!!!!#pX!!!!iF(*PCJ!3aa! !!!"m!!!!!!!!!!!*aJ!!!!a`FQ9Q!"!K3!!!!(d!!!!!!!!!!%)+!!!"fR"bC@B !%%Rr!!!!IJ!!!!!!!!!!#G)!!!!-F(*PCJ!3@rJ!!!"r!!!!!!!!!!!4&!!!!'* `FQ9Q!"!d(3!!!)!!!!!!!!!!!!`6!!!!1("bC@B!%+1G!!!!J3!!!!!!!!!!#Gi !!!!0F(*PCJ!3l4i!!!##!!!!!!!!!!!4GJ!!!"4`FQ9Q!"#KE3!!!)-!!!!!!!! !!!RV!!!!#R"bC@B!%&S9!!!!K!!!!!!!!!!!0Ki!!!$%F(*PCJ!3HqB!!!#&!!! !!!!!!!!l9J!!!4C`FQ9Q!""r'J!!!)B!!!!!!!!!!%2N!!!!ZR"bC@B!%,m4!!! !K`!!!!!!!!!!%BS!!!!ZF(*PCJ!3+Ki!!!#)!!!!!!!!!!"%RJ!!!Ja`FQ9Q!"" VcJ!!!)N!!,Lm!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdftopal.project.hqx0000644000000000000000000017424612421456623021044 0ustar (This file must be converted with BinHex 4.0) :%'KNCR4[F'&X,R"bEfTPBh3!68e3FN0A588!!!!!Yb!!!!!!QTjMEfpX!!!!!J! !!#J!!,&m!!#aT!!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!3J!!!%-!!!"%!!!!43! !!$i!!!""!!!!4J!!!%F!!!")!!!!23!!!%!!!!"*!!!!9!!!!&8!!!"@!!!!5J! !!%X!!!"-!!!!63!!!%i!!!"2!!!!8!!!!&%!!!"5!!!!8`!!!$m!!!"A!!!!@!! !!&N!!!"D!!!!"3!!!!B!!!!(!!!!#!!!!!%!!!!%!!!!#3!!!!S!!!!,!!!!!!! !!!-!!!!-!!!!$3!!!!i!!!!2!!!!%!!!!"%!!!!5!!!!%`!!!"3!!!!9!!!!&J! !!"F!!!!B!!!!'3!!!!)!!!!D!!!!'`!!!"`!!!!G!!!!*!!!!#8!!!!Q!!!!*`! !!#!!!!!M!!!!+!!!!#N!!!!U!!!!(`!!!#)!!!!V!!!!,!!!!#d!!!!Z!!!!,`! !!$!!!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!!h!!!!1!!!!#%!!!!j!!!!1J! !!$X!!!!m!!!!G`!!!(J!!!"j!!!!HJ!!!(-!!!"f!!!!H`!!!(`!!!"p!!!!FJ! !!(8!!!"q!!!!I`!!!)!!!!#"!!!!JJ!!!)-!!!#%!!!!K3!!!)B!!!#(!!!!L!! !!(3!!!#1!!!!M`!!!*!!!!!!N3!!!)S!!!#0!!!!NJ!!!*-!!!#8!!!!L3!!!)` !!!#9!!!!PJ!!!*F!!!#B!!!!Q3!!!*S!!!#E!!!!R!!!!*d!!!#H!!!!R`!!!)X !!!#P!!!!TJ!!!+F!!!#S!!!!S3!!!+3!!!#T!!!!UJ!!!+X!!!#J!!!!S`!!!+` !!!#Y!!!!VJ!!!+m!!!#`!!!!X3!!!,)!!!#c!!!!Y!!!!,8!!!#f!!!!SJ!!!'! !!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!"P!!!!CJ!!!&X!!!"H!!!!C`!!!'J !!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!"[!!!!F!!!!(%!!!"G!!!![!!!!,d !!!#q!!!![`!!!,J!!!#l!!!!`!!!!-%!!!$#!!!!Y`!!!,S!!!$$!!!!a!!!!-8 !!!$'!!!!a`!!!-J!!!$*!!!!bJ!!!-X!!!$-!!!!c3!!!,N!!!$6!!!!e!!!!08 !!!$@!!!!c`!!!0)!!!$A!!!!f!!!!0N!!!$1!!!!d3!!!0S!!!$E!!!!h!!!!0d !!!$H!!!!h`!!!1!!!!$K!!!!iJ!!!1-!!!$N!!!!d!!!!"i!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!$P!!!"!!!!')J!!"`!!!!!j3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% "#!!!!!!!%3!!!!)!!!!!!!!!(`!!!!0RFfpL!!!!*J!!!!3$D@13!!!!!$8!!!! &!3%"!3!!!%3!!!!'!!!!!!!!!&%!!!!(!!!!!!!!!&i!!!!)!!!!!3!!!'`!!!! *'HB!!!!!!(!!!!!+!!"LC3!!!(m!!!!,C%9[BJ!!!*8!!!!-C(3!!!!!!+)!!!! 0!!!!!!!!!,S!!!!1!!!!!!!!!03!!!!2rZ!!C!!!!1d!!!!3BQTN!!!!!3!!!!! 4!"R4!!!!!3S!!!!5!!!!!!!!!4`!!!!6!2rrr`!!!6)!!!!8Ef*UC!!!!8-!!!! 9!!!!!!!!!9)!!!!@!!!!!!!!!9m!!!!A!!$rr`!!!@d!!!!B!)G[BJ!!!A3!!!! CF(3!!!!!!B8!!!!D!!!!!!!!!C3!!!!E!!!!!!!!!D3!!!!FE'&MC3!!!E)!!!! G!!!pC`!!!Em!!!!H&J!3!3!!!FF!!!!I'!!!!!!!!GS!!!!Jr`!!'3!!!H`!!!! K!!!"J!!!!J!!!!!L!!!!!!!!!K-!!!!M!!!!!!!!!KX!!!!NZG!!!!!!!LS!!!! PG'`!!!!!!MN!!!!Q!j'*`!!!!NX!!!!REA0dEJ!!!Q)!!!!S!!!$N3!!!Qi!!!! T!#KYF`!!!S!!!!!U!!!!!!!!!T!!!!!!+fplEhX!!!+F!!!!,!#JHf!!!!+T!!! !,3!!!M!!!!+j!!!!,J!!!"3!!!,-!!!!,`!!!!!!!!,N!!!!-!!!!!!!!!,a!!! !-3!!!!!!!!-%!!!!-J!!!!!!!!-5!!!!-`!!!!!!!!-I!!!!0!!!!!!!!!-X!!! !03!!!!!!!!-l!!!!0J!!!!!!!!03!!!!0`!!!!!!!!0C!!!!1!!!!!!!!!0S!!! !13!!!!!!!!0c!!!!1J!!!!!!!!0m!!!!1`!!!!!!!!10!!!!2!!!!!!!!!1K!!! !23!!!!!!!!1k!!!!2J!!!!!!!!21!!!!2`!!!!!!!!2G!!!!3!!!!!!!!!2V!!! !33!!!!!!!!2j!!!!3J!!!!!!!!3)!!!!3`!!!!!!!!3D!!!!4!!!!!!!!!3a!!! !43!!!!!!!!3p!!!!4J!!!!!!!!42!!!!4`!!!!!!!!4F!!!!5!!!!!!!!!4S!!! !53!!!!!!!!4[!!!!5J!!!!!!!!4j!!!!5`!!!!!!!!5"!!!!6!!!!!!!!!5-!!! !63!!!!!!!!59!!!!6J!!!!!!!!5J!!!!6`!!!!!!!!5U!!!!8!!!!!!!!!5h!!! !83!!!!!!!!6!!!!!8J!!!!!!!!6-!!!!8`!!!!!!!!6@!!!!9!!!!!!!!!6I!!! !93!!!!!!!!6V!!!!9J!!!!!!!!6e!!!!9`!!!!!!!!8!!!!!@!!!!!!!!!8+!!! !@3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!! !)!!!!!S!!!!5!!!!5J!!!%i!!!!Q!!!!8!!!!#N!!!")!!!!8`!!!&F!!!!a!!! !,J!!!$i!!!!m!!!!4J!!!%-!!!!i!!!!03!!!#%!!!!!!!!!%`!!!!8!!!!"!!! !5`!!!%`!!!!R!!!!*3!!!#S!!!!S!!!!6`!!!%d!!!"4!!!!8J!!!#-!!!!N!!! !53!!!#)!!!"8!!!!93!!!&J!!!"@!!!!#`!!!"`!!!![!!!!,3!!!$)!!!!`!!! !+`!!!#`!!!!$!!!!&!!!!"!!!!!G!!!!$J!!!$d!!!!r!!!!1`!!!%!!!!!k!!! !"!!!!!d!!!!D!!!!$!!!!"X!!!!2!!!!(J!!!"%!!!!I!!!!"J!!!"8!!!!(!!! !&J!!!!N!!!!C!!!!&`!!!!J!!!!B!!!!4!!!!%)!!!"(!!!!43!!!%%!!!!f!!! !0!!!!$N!!!!h!!!!-`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"C!!! !B!!!"4F!!!J!!!!!@3!!!!!!!!!!!!!!!!!!!!!!!!!!!!-!!(rr!!!!!(rr!!! !!(rr!!!!!(rr!!!!!J%!!!B#!!!!!!!"!3!"!3!!!!%!!!!"!!!!!!%"!!!"!3! "!!!(!3!"!3!"!3!!!!%!!!N!!3!"!3!!$%eKBdKPB@4PFR-ZD'KKBbjS!!!!!!! !!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!`%"!3%"!3%!!3!!!3%"!!!!!!!!!!! !$J!"!!!!!!%"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!!!!%!!3!#!!!!!!!!!!!!!!!!!`)!!3%!!3!!!!!!!!!!!!!!!!!!!3%!!3! !!!!!!!!"!!!!!J!!!!-!!!!%!!!!"3!!!!B!!!!,!!!!"`!!!!`!!!!)!!!!$3! !!!N!!!!2!!!!#J!!!!i!!!!3!!!!%3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'plEhY[Hfpl!!!!%3!!!#!"!!%!!#!"!!! D!3!!'3%!!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3%!!#!!!3% "!!!"!3!"!!!!!!!!!!!!!!%"!!%!!3%!!3!"!!!!!J!!!"`!!!!!!!!!!!!!!!! !!!!!!!-!!!!'!!!!!`!!!!Dc4L5ZrrqjF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!@3%!!!%!!!!!!!! !!!3!!!!!@,&hS#3!!(6N!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J!!"4"6P0 *)%0[ER0[E'8J0MKV,QpeG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!r2cmr39"36!!!!B"BJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cm !!!!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!! #!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!3!!38j655"$EfjcEfaP)$BiDcT$GA0dEfd J5f9jGfpbC(-!38j655"$EfjcEfaP)$BiDcT"Bf0PFh-J8'&dD(-!38j655"$Efj cEfaP)$BiDcT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)$BiDcT'D@aP)%e KF("TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3R9TE'3J4AKdFQ&c!%&18dNJ3fpZFfp XC5!f1'Xk0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcSf1%XJ4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MK V1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ3fpYF'PXCA)!38j 655"$EfjcEfaP)$BiDcT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1N0 '66Bi5`""6P0*)%0[ER0[E'8J0MKV1NP5)%p`G'PYDATPFJ""6P0*)%0[ER0[E'8 J0MKV1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"3FQpUC@0d!%& 18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"@63""6P0*)%0[ER0[E'8J0MKV1NeKBdp6)%e PFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8'&cBf&X)%0[EA"TE'9b!%&18dN J3fpZFfpXC5!f1'Xk8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk8&" $)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcT38%-J4'PcBA0cC@eLE'9b!%&18dN J3fpZFfpXC5!f1'Xk8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"348B !38j655"$EfjcEfaP)$BiDcT38%-J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1P" 33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P*PHL"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%0 [C'9(C@i!38j655"$EfjcEfaP)$BiDcTi1$BJ6'PZDf9b!%&18dNJ3fpZFfpXC5! f1'XkH$Jf)&"bEfTPBh3!8(*[DQ9MG#"'D@aP)%aTFh3!38j655"$EfjcEfaP)&" 33cT$GA0dEfdJ5f9jGfpbC(-!38j655"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(- !38j655"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)&" 33cT'D@aP)%eKF("TEQGc!%&18dNJ3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cSf1%X J4'PcBA0cC@eLE'9b!%&18dNJ3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ""6P0*)%0 [ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ3fp YF'PXCA)!38j655"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0 [E'8J8&"$1N0'66Bi5`""6P0*)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0 *)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5" 3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5"@63""6P0*)%0[ER0[E'8J8&" $1NeKBdp6)%ePFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)%0[EA" TE'9b!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k8&"$)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&" $1P"33b"348B!38j655"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%0[ER0 [E'8J8&"$1P"33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5" 38%-kH$Jf)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1N0eFh4 [E5",CAPhEh*NF`""6P0*)%-J3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%&18dN J3b"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&" $1MBi5b"%DA0KFh0PE@*XCA)!38j655"$)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA) !38j655"$)%0[ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&" 33cT$,d-V+b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQP ZCh-!38j655"$)%0[ER0[E'8J8&"$1N0'66Bi5`""6P0*)%-J3fpZFfpXC5"38%- k59)J6h"dD@eTHQ9b!%&18dNJ3b"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@j PE!""6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)%0[EA"TE'9b!%&18dNJ3b"$Efj cEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$)%0[ER0[E'8J8&"$1P"33b" $Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@eLE'9b!%&18dN J3b"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cT38%- J8%9'!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%-J3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3b"$EfjcEfaP)&"33cT5CASJ3fpYF'P XCA)!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3b"$EfjcEfa P)&"33cT+BACK)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j 655"$)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0 *)%-J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!D'4QE(-J8&"$1N0eFh4[E5",CAP hEh*NF`"SC'CXFb"38%-k3@0MCA0c)&"KG'Kc!'KNCQac)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QE(-J8&"$1NCTE'8J6@&`F'PZCh-!D'4QE(-J8&"$1N*eD@aN)%9 iG(*KF`"SC'CXFb"38%-k0MK,)%0[C'9(C@i!D'4QE(-J8&"$1MBi5b"%DA0KFh0 PE@*XCA)!D'4QE(-J8&"$1MBi5b"-D@jVCA)!D'4QE(-J8&"$1MBi5b"3FQpUC@0 d!'KNCQac)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CXFb"38%-k3bp$+bXJ9f&bEQP ZCh-!D'4QE(-J8&"$1N0'66Bi5`"SC'CXFb"38%-k59)J6h"dD@eTHQ9b!'KNCQa c)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CXFb"38%-k8'&cBf&X)%0[EA"TE'9 b!'KNCQac)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QE(-J8&"$1P"33b"$Ef4P4f9 Z!'KNCQac)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCQac)&"33cT38%-J6'PZDf9 b!'KNCQac)&"33cT38%-J8%9'!'KNCQac)&"33cT38%-J8(*[DQ9MG!"SC'CXFb" 38%-k8&"$3A0Y)&"KEQ9X!'KNCQac)&"33cT5CASJ3fpYF'PXCA)!CR!bD'4Q)&" 33cT$GA0dEfdJ5f9jGfpbC(-!CR!bD'4Q)&"33cT"Bf0PFh-J8'&dD(-!CR!bD'4 Q)&"33cT8BA*RCA3J8f9dG'PZCh-!CR!bD'4Q)&"33cT'D@aP)%eKF("TEQGc!'C `-QKNCL"38%-k3R9TE'3J4AKdFQ&c!'C`-QKNCL"38%-k0MK,)%0[C'9(C@i!CR! bD'4Q)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'C`-QKNCL"38%-k0MK,)%aTEQYPFJ" QF$*SC'BJ8&"$1MBi5b"3FQpUC@0d!'C`-QKNCL"38%-k3bp$+bXJ3fpYF'PXCA) !CR!bD'4Q)&"33cT$,d-V+b"ABA*ZD@jRF`"QF$*SC'BJ8&"$1N0'66Bi5`"QF$* SC'BJ8&"$1NP5)%p`G'PYDATPFJ"QF$*SC'BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!'C`-QKNCL"38%-k8'&cBf&X)%0[EA"TE'9b!'C`-QKNCL"38%-k8'&cBf&X)&G KFQjTEQGc!'C`-QKNCL"38%-k8&"$)%0[C'9(C@i!CR!bD'4Q)&"33cT38%-J4'P cBA0cC@eLE'9b!'C`-QKNCL"38%-k8&"$)%aTEQYPFJ"QF$*SC'BJ8&"$1P"33b" 348B!CR!bD'4Q)&"33cT38%-J8(*[DQ9MG!"QF$*SC'BJ8&"$1P"33d&cE5"3B@j PE!"QF$*SC'BJ8&"$1P*PHL"$Efe`D@aPFJ"SC'Bb0(4[1#"38%-k3h9cG'pY)%Y PHAG[FQ4c!'KNCM)dG'mi)&"33cT"Bf0PFh-J8'&dD(-!D'4Q-M4dEcJJ8&"$1P4 KFQGPG#"6CA4dD@jRF`"SC'Bb0(4[1#"38%-k4QPXC5"0BA"`D@jRF`"SC'Bb0(4 [1#"38%-k3R9TE'3J4AKdFQ&c!'KNCM)dG'mi)&"33cSf1%XJ3fpNC8GPEJ"SC'B b0(4[1#"38%-k0MK,)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k0MK,)%aTEQY PFJ"SC'Bb0(4[1#"38%-k0MK,)&"bEfTPBh3!D'4Q-M4dEcJJ8&"$1N-[3bXV)%0 [EA"TE'9b!'KNCM)dG'mi)&"33cT$,d-V+b"ABA*ZD@jRF`"SC'Bb0(4[1#"38%- k3dC00MK,!'KNCM)dG'mi)&"33cT*8L"2F(4TE@PkCA)!D'4Q-M4dEcJJ8&"$1Ne KBdp6)%ePFQGP)&"KEQ9X!'KNCM)dG'mi)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4 Q-M4dEcJJ8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'Bb0(4[1#"38%-k8&"$)%0[C'9 (C@i!D'4Q-M4dEcJJ8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4Q-M4dEcJJ8&"$1P" 33b"-D@jVCA)!D'4Q-M4dEcJJ8&"$1P"33b"348B!D'4Q-M4dEcJJ8&"$1P"33b" 3FQpUC@0d!'KNCM)dG'mi)&"33cT38%0"FfdJ8'&ZC@`!D'4Q-M4dEcJJ8&"$1P* PHL"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QBfpYF#" 38%-k3@0MCA0c)&"KG'Kc!'KNCQ0[EA!J8&"$1P4KFQGPG#"6CA4dD@jRF`"SC'C MEfe`)&"33cT'D@aP)%eKF("TEQGc!'KNCQ0[EA!J8&"$1N*eD@aN)%9iG(*KF`" SC'CMEfe`)&"33cSf1%XJ3fpNC8GPEJ"SC'CMEfe`)&"33cSf1%XJ4'PcBA0cC@e LE'9b!'KNCQ0[EA!J8&"$1MBi5b"-D@jVCA)!D'4QBfpYF#"38%-k0MK,)&"bEfT PBh3!D'4QBfpYF#"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QBfpYF#"38%-k3bp$+bX J9f&bEQPZCh-!D'4QBfpYF#"38%-k3dC00MK,!'KNCQ0[EA!J8&"$1NP5)%p`G'P YDATPFJ"SC'CMEfe`)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CMEfe`)&"33cT 3BA0MB@`J3fpYF'PXCA)!D'4QBfpYF#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQ0 [EA!J8&"$1P"33b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1P"33b"%DA0KFh0PE@*XCA) !D'4QBfpYF#"38%-k8&"$)%aTEQYPFJ"SC'CMEfe`)&"33cT38%-J8%9'!'KNCQ0 [EA!J8&"$1P"33b"3FQpUC@0d!'KNCQ0[EA!J8&"$1P"33d&cE5"3B@jPE!"SC'C MEfe`)&"33cT5CASJ3fpYF'PXCA)!D'4QF'&MDb"38%-k3h9cG'pY)%YPHAG[FQ4 c!'KNCR"KBfXJ8&"$1N&MBf9cFb"3BA4SF`"SC'C`B@0V)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QF'&MDb"38%-k4QPXC5"0BA"`D@jRF`"SC'C`B@0V)&"33cT#G@P XC#"&H(4bBA-!D'4QF'&MDb"38%-k0MK,)%0[C'9(C@i!D'4QF'&MDb"38%-k0MK ,)%4TFf&cFf9YBQaPFJ"SC'C`B@0V)&"33cSf1%XJ6'PZDf9b!'KNCR"KBfXJ8&" $1MBi5b"3FQpUC@0d!'KNCR"KBfXJ8&"$1N-[3bXV)%0[EA"TE'9b!'KNCR"KBfX J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR"KBfXJ8&"$1N0'66Bi5`"SC'C`B@0V)&" 33cT*8L"2F(4TE@PkCA)!D'4QF'&MDb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4 QF'&MDb"38%-k8'&cBf&X)%0[EA"TE'9b!'KNCR"KBfXJ8&"$1P"KFf0KE#"ABA* ZD@jRF`"SC'C`B@0V)&"33cT38%-J3fpNC8GPEJ"SC'C`B@0V)&"33cT38%-J4'P cBA0cC@eLE'9b!'KNCR"KBfXJ8&"$1P"33b"-D@jVCA)!D'4QF'&MDb"38%-k8&" $)&"&4J"SC'C`B@0V)&"33cT38%-J8(*[DQ9MG!"SC'C`B@0V)&"33cT38%0"Ffd J8'&ZC@`!D'4QF'&MDb"38%-k8Q9k)%0[EA"TE'9b!'KNCR4[F'&X)&"33cT$GA0 dEfdJ5f9jGfpbC(-!D'4QG'p`B@`J8&"$1N&MBf9cFb"3BA4SF`"SC'CdEh"KE#" 38%-k9'&bCf9d)&0PG(4TEQGc!'KNCR4[F'&X)&"33cT'D@aP)%eKF("TEQGc!'K NCR4[F'&X)&"33cT#G@PXC#"&H(4bBA-!D'4QG'p`B@`J8&"$1MBi5b"$Ef4P4f9 Z!'KNCR4[F'&X)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCR4[F'&X)&"33cSf1%X J6'PZDf9b!'KNCR4[F'&X)&"33cSf1%XJ8(*[DQ9MG!"SC'CdEh"KE#"38%-k3bp $+bXJ3fpYF'PXCA)!D'4QG'p`B@`J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR4[F'& X)&"33cT$4Ndf1%X!D'4QG'p`B@`J8&"$1NP5)%p`G'PYDATPFJ"SC'CdEh"KE#" 38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QG'p`B@`J8&"$1P"KFf0KE#"$Efe`D@a PFJ"SC'CdEh"KE#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCR4[F'&X)&"33cT38%- J3fpNC8GPEJ"SC'CdEh"KE#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'CdEh"KE#" 38%-k8&"$)%aTEQYPFJ"SC'CdEh"KE#"38%-k8&"$)&"&4J"SC'CdEh"KE#"38%- k8&"$)&"bEfTPBh3!D'4QG'p`B@`J8&"$1P"33d&cE5"3B@jPE!"SC'CdEh"KE#" 38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%&18dNJ3fp ZFfpXC5!f1'X!4QPbFh3J8f9RE@9ZG!!kB5j[GA3!6'PL)%PYF'pbG#!f1%X!69" A)%PYF'pbG#!f1%X!3Q&XE'p[EL")C@a`!%eA)%-[3bXV)$Bi5`"09b"3BA0MB@` J0MK,!&*PHJ"348BJ5@e`Eh*d)$Bi5`!k38j655"$EfjcEfaP)$BiDbj[GA3!5'9 XE'pAEh*XC#jM!%e66#"$,MBi5b"'B5JdD9miC#NZ6'PL!%e66#"$+bXZ0MK,)%C K+$4TAcKN+5j-D@)!6@&dD%aTBMBi5b"'B5JdD5miC#NZ6'PL!%e66#"5G@jdD@e P0MK,,NaTBJ"0B@028bjXD@)!690-)&0*6e9B,MBi5bj-D@)!1N&18dNJ3fpZFfp XC5"38%-ZEh9d!%&18dNJ3fpZFfpXC5"38%-!6'PL)%PYF'pbG#"38%-!69FJ3bp $+bXJ8&"$!%eA)&"KFf0KE#"38%-!8&"$3A0Y!&K$6dC')%PYF'pbG#"38%-!8%9 ')%PYF'pbG#"38%-!690-)%-V+bj38%-Z6'PL!%e66#"$,P"33bj-D@)!5@jdCA* QB@0P6'PL!%eKG'K-D@)!690-)&*eER4TE@938%-Z6'PL!%e66#"658p9@#j38%- Z6'PL!$T"6P0*)%-J3fpZFfpXC5"38%-!38j655"$)%0[ER0[E'8J8&"$!'KNCQa c,Q-!D'4QE'PL,P"33bjXD@)!D'4QE'PL,R"bEfTPBh3!D'4Q)%aTBL!f1%XJ4'9 LG@F!1QKNCMBiDbj'BA)S0'N[1'3T,QaTBJ"SC'BJ6'PL)$Bi5`"SC'BJ6'PL)&" 33b"%C@*eC`!kD'4QE'PL,P"33bjXD@)!D'4Q)%aTBL"38%-!DR"PCbj38%-ZE'P L!'T`C@GXD@)ZF(*[DQ9MG!"UF'9R)%aTBL!f1%XJ4'9LG@F!1QT`C@Ff1'XZ4Q& b+$4T,cKN+5jXD@)!DR"PCb"-D@)J0MK,!'T`C@FJ6'PL)&"33b"%C@*eC`!kDR" PCbj38%-ZE'PL!'T`C@FJ6'PL)&"33`"kE'PL,R"bEfTPBh3!HQaTBL!f1%XJ4'9 LG@F!1RSf1'XZ4Q&b+$4T,cKN+5jXD@)!HQaTBL!f1%X!HQaTBL"38%-J4'9LG@F !1RSZ8&"$,QaTBJ"kE'PL)&"33`"YCQKNCQaTBLj`FQpUC@0d!'eQD'4Q)%aTBL! f1%XJ4'9LG@F!1QeQD'4Q0MKV,NCKFLJdD5miC#NZE'PL!'eND'4Q)%aTBL"38%- J4'9LG@F!1QeQD'4Q,P"33bjXD@)!E@CSC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&" $!(KNFQaTBLj`FQpUC@0d!(KNFL"-D@)J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4 T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4b)%aTBL"38%-J4'9LG@F!1RKNFLj38%- ZE'PL!(KNFL"-D@)J8&"$!$TSC'CXF`"SC'CXFb"38%-!1QC`-QKNCJ"QF$*SC'B J8&"$!'C`-QKNCLjM!'KNCM)dG'mi,Q-!1QKNCM)dG'mi!'KNCM)dG'mi)&"33`! kD'4QBfpYF!"SC'CMEfe`)&"33`"SC'CMEfe`,Q-!1QKNCR"KBfX!D'4QF'&MDb" 38%-!D'4QF'&MDbjM!'KNCR4[F'&X,Q-!1NK%4R4[8'&X!'KNCR4[F'&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&8Np29!!!!!!!!!!!!!!!!!4 (8P93!!!!!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3!!)%G599!!!!!!!!!!!Jj"6P0 *)%aTBR*KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP-43%!!!e(8P93!!!!!!! !!!%06@&M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8"!!!,4NP-43%!!!a(8P9 3!!!!!!!!!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8)8(*[DQ9MG(-!!!!&4NP -43%!!""'58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a&!3!!&8C*6%8"!!!@4NP -43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!3!!#8ePFQGP)%peG!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e033da&!3!!&NC*6%8"!!!A4NP -43%!!"K'58a&!3!!'8C*6%8"!!!D!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!!Q!!! !*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!!!!!! V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!!!,`! !!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"-!!!! %!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13!!!!! &!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!!!!!! !!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`%!!"S&!3% !!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!!!!%B !!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!$%%eKBdp6)&"33b"-D@jVCA) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!a SC'CdEh"KE#"38%0$C5"38%-!!!!!!!!!!!!!!!!!!!%k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!'`J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AepcG'&bG!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!! %4%a(@'0VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!!!!!3!"!!!!!!!!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH("XEh*P,Q9 iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J! $!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N#H`!!!!! !!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !"J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!)5%4'G'p 3B@a[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!'`J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AepcG'&bG!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80XBA0cCA-ZHQP `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!"S"!!!C!3!!'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`% !!!`"!!!0!3!!(J%!!"m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!! !!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d!"`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9 iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!(D'4QF'& MDcK[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!8C*6%8"!!!I4e*98!!!!!! !!!!#$N&18dNJ6'PLFQ&bD@9c!!!!!dC*6%8"!!!*4NP-43%!!!K'58a&!3!!$8G 599!!!!!!!!!!!3e0B@-J6'PLFQ&bD@9c!!!!!dC*6%8"!!!+4NP-43%!!!Y'58a &!3!!$%G599!!!!!!!!!!"!G)4%C-D@*c!!!!"NG599!!!!!!!!!!"3K3FQpUC@0 dF`!!!!9'58a&!3!!%%C*6%8"!!!54NP-43%!!"0'58a&!3!!&%C*6%8"!!!94NP -43%!!"C'58a&!3!!&dC*6%8"!!!B4NP-43%!!"P'58a&!3!!'J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!)!!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!9K,QpeG!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93' 3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!)!!!!!!!!!2`!!!!0 cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C3D@j5!!!!ZJ!!!!G K8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T0C@je!!!"03!!!!Y d3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!jTE'a$!!!"U!!!!!p 6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"*(CA4$!!!#)`!!!"0 PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C(CA4$!!!#R`!!!"G d3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T$G'`,!!!$%3!!!"Y XG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j%FQ&R!!!$K`!!!"p 8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#)!!!!'!!!$q3!!!#1 [H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B!!!!!!!!%G3!!!#F !!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S!!!!!!!!%lJ!!!#X !!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i!!!!!!!!&A`!!!#m !!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$)!!!!!!!!&h3!!!$- !!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B!!!!!!!!'83!!!$F !!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S!!!!!!!!'bJ!!!$X !!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i!!!!!!!!(3`!!!$m !!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%)!!!!!!!!(a`!!!%- !!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B!!!!!!!!)4`!!!%F !!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S!!!!!!!!)a3!!!%X !!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i!!!!!!!!*6`!!!%m !!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&)!!!!!!!!*b`!!!&- !!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B!!!!!!!!+5J!!!&F !!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S!!!!!!!!+a!!!!&X !!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i!!!!!!!!,,J!!!&m !!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!')!!!!!!!!,MJ!!!'- !!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B!!!!!!!!,k`!!!'F !!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S!!!!!!!!-53!!!'X !!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i!!!!!!!!-U3!!!'m !!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!()!!!!!!!!-r`!!!(- !!!!!!!!0'J!!!(3!!!!!!!!0-J!!!(8!!!!!!!!063!!!(B!!!!!!!!0CJ!!!(F !!!!!!!!0IJ!!!(J!!!!!!!!0P3!!!(N!!!!!!!!0X3!!!(S!!!!!!!!0a`!!!(X !!!!!!!!0hJ!!!(`!!!!!!!!0q!!!!(d!!!!!!!!1%J!!!(i!!!!!!!!1*!!!!(m !!!!!!!!12!!!!)!!!!!!!!!1@3!!!)%!!!!!!!!1G!!!!))!!!!!!!!1M`!!!)- !!!!!!!!1TJ!!!)3!!!!!!!!1`J!!!)8!!!!!!!!1f!!!!)B!!!!!!!!1k`!!!)F !!!!!!!!2!J!!!)J!!!!!!!!2'J!!!)N!!!!!!!!2-J!!!)S!!!!!!!!26`!!!)X !!!!!!!!2D3!!!)`!!!!!!!!2KJ!!!)d!!!!!!!!2S3!!!)i!!!!!!!!2Z`!!!)m !!!!!!!!2e!!!!*!!!!!!!!!!$r)!!!#4!!!!!!!!%!S!!!#5!!!!!!!!%#-!!!# 6!!!!!!!!%$m!!!#8!!!!!!!!%&X!!!#9!!!!!!!!%'m!!!#@!!!!!!!!%)N!!!# A!!!!!!!!%+J!!!#B!!!!!!!!%-8!!!#C!!!!!!!!%1)!!!#D!!!!!!!!%2X!!!# E!!!!!!!!%4N!!!#F!!!!!!!!%6%!!!#G!!!!!!!!%8B!!!#H!!!!!!!!%9m!!!# I!!!!!!!!%AN!!!#J!!!!!!!!%C-!!!#K!!!!!!!!%Dm!!!#L!!!!!!!!%FJ!!!# M!!!!!!!!%H3!!!#N!!!!!!!!%Ii!!!#P!!!!!!!!%KF!!!#Q!!!!!!!!%Lm!!!# R!!!!!!!!%N`!!!#S!!!!!!!!%Q-!!!#T!!!!!!!!%RX!!!#U!!!!!!!!%TB!!!# V!!!!!!!!%V%!!!#X!!!!!!!!%X3!!!#Y!!!!!!!!%Yd!!!#Z!!!!!!!!%[X!!!# [!!!!!!!!%aF!!!#`!!!!!!!!%c-!!!#a!!!!!!!!%dX!!!#b!!!!!!!!%fJ!!!# c!!!!!!!!%hm!!!#d!!!!!!!!%j-!!!#e!!!!!!!!%kX!!!#f!!!!!!!!%m3!!!# h!!!!!!!!%pd!!!#i!!!!!!!!%rN!!!#j!!!!!!!!&")!!!#k!!!!!!!!&#i!!!# l!!!!!!!!&%J!!!#m!!!!!!!!&'%!!!#p!!!!!!!!&(N!!!#q!!!!!!!!&*B!!!# r!!!!!!!!&+d!!!$!!!!!!!!!&-8!!!$"!!!!!!!!&1!!!!$#!!!!!!!!&2X!!!$ $!!!!!!!!&3i!!!$%!!!!!!!!&5F!!!$&!!!!!!!!&88!!!$'!!!!!!!!&@%!!!$ (!!!!!!!!&Ad!!!$)!!!!!!!!&C8!!!$*!!!!!!!!&E)!!!$+!!!!!!!!&FN!!!$ ,!!!!!!!!&Gd!!!$-!!!!!!!!&I8!!!$0!!!!!!!!&Ji!!!$1!!!!!!!!&LF!!!$ 2!!!!!!!!&N3!!!$3!!!!!!!!&Pi!!!$4!!!!!!!!&RX!!!$5!!!!!!!!&TB!!!$ 6!!!!!!!!&V!!!!$8!!!!!!!!&XN!!!$9!!!!!!!!&ZF!!!$@!!!!!!!!&[m!!!$ A!!!!!!!!&aJ!!!$B!!!!!!!!&c3!!!$C!!!!!!!!&e!!!!$D!!!!!!!!&f3!!!$ E!!!!!!!!&hi!!!$F!!!!!!!!&jd!!!$G!!!!!!!!&lS!!!$H!!!!!!!!&pF!!!$ I!!!!!!!!&r!!!!$J!!!!!!!!'!i!!!$K!!!!!!!!'#B!!!$L!!!!!!!!'$X!!!$ M!!!!!!!!'&3!!!$N!!!!!!!!''i!!!$P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!'!!!!"`!&!!!!#8!!!!`!!6S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!"!!%k1MTcFQ-k!%Bd,M&b-L!Y)(*PE'9 KFf8kD'4Q1R9dD@`k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!!!!!`!"1MSkDR"PCcS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!!3!!6Sk1RTXD@)k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!! &!!%k1MSkE@CSC'BkE'PLFh*M1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"J!"1MSk1Qe QD'4Q1RKNFMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!J!!6Sk!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!,!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#" -D@*bBA*j1Ne66#"3FQ9MEfe`D@aPC#")C@&NCA)k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%k3!!!"!!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T 08d`J3cS!D@pb1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!%!!!!%!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-V+cS !!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4r)#J!!!! "!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q3!!2,Qac rrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!!!!34r)#J !!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX$M)q3!!2 ,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjYJ!!!!!J4 r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2,Qj!!!ib 2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!!!!mC8E!! !!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!!!!`!"N!! $M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!!!!!!$adN d!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!14MZ`$bja 3!ib2N!!"r`%!3!!!!J!#1NeKBdp6)&0eF("[FR3k!%p-!iXSb!2,QS!$M)q3!!2 ,QVcrrrrr!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4 r)#J!!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q 3!!2,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!! !!34r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX $M)q3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjY J!!!!!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2 ,Qj!!!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!! !!mC8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!! !!`!"N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!! !!!!$adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!1 4MZ`$bja3!ib2N!!"r`%!3!!!!`!#1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!")!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4 eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!6@& M6e-J6@9bCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a [EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eKBdp6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q* S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q- V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9 iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" `G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"B3dp'4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4 [B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&!!!!"03b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!53da98`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!68e-3J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'p bG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6d*+)!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jME(-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!68-J3faKFh-J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jNC@B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jNEf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 3!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf& X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jdF`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9fPZ-c)JH$Jf)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!%&4&@&3ZB`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)>EP*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFQ9c!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>EP*PFb"*EA"[FR3!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!ZE'PL!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3JH$Jf!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!ZEf*U!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%pLDL"*EA"[FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!J!!!!E!J! !!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!*!!!!(!)!!!!!!!!"!!% $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#J!!!"d#!!!!!!!!!3!"!`!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!!X!!!!H!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!-!!!!(`)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !$3!!!#!#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"!!!!!P!J! !!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!5!!!!,3)!!!!!!!!"!!% #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%`!!!$3#!!!!!!!!!3!"!J!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!"3!!!!l!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!9!!!!3J)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !&J!!!#S&!!!!!3!!%!!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"F!!!!b"3! !!!%!!")!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!B!!!!138!!!!"!!!6!!% $!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'3!!!%F&!!!!!3!!&3!"!`!!!!!!!!! !!!!!!)%!!!!!!!!!!!%!!"S!!!!r"3!!!!%!!"3!!3-!!!!!!!!!!!!!!!#"!!! !!!!!!!!"!!!J!!!!9`)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3! !)!!!!&F#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!3!!!!'!!! !"30TmB"339K!@J"PH'-NBQ)$DGZJ!fRZB!!!!!!!!!&`!jJ%m'Pi8QpeEQ3)5@j TG!0Tfk!)5@jTG%GbB@B)6h"PEP"[FR306'pMB@a8EdGXEf*KE!e(E'pLB@a8Eda [Bf&X#NF!MXD!k`!!&!!!!#$rrrEB!!!!!!!!!!!"!!%!!q(M`!#1aa$V!!!8!!! !)2rrpZ`!!!!!!!!!!!%!!3!$iH2!!)l(-1X!!!3!!!33rrrfq%aTBL"*EA"[FR3 J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[EfiJ5'9XF!"09b"$,d-V+b!f1%X!69F J8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#!f1%X!!!!J!!CS%'pTER4!3%K,-%" D!!0T'T!!!fNm81X!!"3!!!!J!!CS*'aP4'&dB8"!-e926!0T'T!!!fNmF1X!!"3 !!!!J!!CS(&*PBh4!-M!!2d4[4!0T'T!!!fNmN!$V!!!8!!!!)!!'D#KMC8"!88& &5dY33P8$D4U3!!0T2,$V!!!8!!!!)!!'D#"6Eh9bBf9!3%"D!$m$D4U3!!0T20$ V!!!8!!!!)!!'D!`!!!!!!!!!!!!!!!!!!!!!!fNmm1X!!"3!!!!J!!CR['P`BQp KFQ4%BA4K3!0T'T!!!fNp%1X!!!`!!!!`!!CRY!!"!!!!!J!!!"`!!!!!!!!!!!! !!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!CRU!!"!!G1EfjP!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"68e3FJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!5Q&fB5" -D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%8&38%`!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%02M'X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%0XFh-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%TUFQBZDR*Q!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !%!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[Efi J5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD(4YE!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZDQ&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&T*8#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!&TTF%B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!!!!!!!ZBfaKFh-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZHQP`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!! !!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"58e*$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#X V!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!! !!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,R0PC`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!! !!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&!!!!"0B@028b"0CA*RC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! (39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!! !!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%a TBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%* KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!! !!!!!!!!!J!!!!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&" 33d&cE3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dB!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dC')%PYF'pbG#"38%-!!!!!!!!!!!! !!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&" &4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!%e$)%aTEQYPFJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!"*$6&96!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"068a #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"23NS J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08&FJ5@e`Eh*d)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0XF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"03b"$E'&cFb"$Efe`D@a PFJ!!!!!!!!!!!!!!!!!!!)!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q4PCJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K 8,R4c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!!!!!! !!!!!!!!39%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!! !!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'& cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'& cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jbB`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ9fPZ8N-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jbCA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9fPZ8Q9 c)%PYF'pbG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"3!!!!!!!!!#jXD@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%P YF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j[BQS!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6f*U)%PYF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!! !!!!!!!!!"N#l&!!!%Ei!!"`!EA0dFJ!!!!!!!!!!!!!'3,XJ!!"5`!!!$!"YFh4 X!!!!!!!!!!!!!!C!Za!!!!!S!!!%!'ecG'i!!!!!!!!!!!!!!!!!!!!!"#J!!!! SEA0dD3!!!!!!!!!!!!!'3,Z-!!!Y[J!!#!"YFh4b!!!$k!!!!!!!!!C!ZqJ!!!4 3!!!%J'ecG'`!!!2S!!!!!!!!"N#l$!!!#0!!!!'!EA0dEJ!!!qJ!!!!!!!!'3,Z !!!#,kJ!!"3"YG("X!!!!!3!!!!!!!!C![C!!!!!,G3!!!)"YG("c!!!!!3!!!!! !!!C!Zq3!!!a3!!!!''edFf`!!!!"!!!!!!!!!!!!!!!!#P!!!!!SEA0dD3!!!qJ !!!!!!!!'3,`X!!!-D!!!!LaYF(0T!!!$k!!!!!!!!!C!ZH3!!!k8!!!#'QedCf` !!!2S!!!!!!!!!!!!!!!!#r8!!!!1EA4`D3!!!!%!!!!!!!!'3,`!!!!-!`!!!$" YG'a[!!!!!3!!!!!!!!C!Z`3!!$@q!!!"*9"-Fh3!!-R0!!!!(`!!!!!!!!!!4j! !!!!!,R"bC@B!!8Z5!!!!,3!!!!!!!!!!5im!!!4*F(*PCJ!#!Um!!!!Z!!!!!!! !!!!4ZJ!!!!4`FQ9Q!!(El!!!!#m!!!!!!!!!!%Y&!!!!*("bC@B!!H4"!!!!1J! !!!!!!!!!5fN!!!!+F(*PCJ!"e9!!!!!l!!!!!!!!!!"4j!!!!**`FQ9Q!!(G@`! !!$`!!!!!!!!!!&*f!!!!5R"bC@B!!He[!!!!23!!!!!!!!!!2)8!!!!ZF(*PCJ! "!qi!!!"9!!!!!!!!!!!mX`!!"%P`FQ9Q!!&@"3!!!&B!!!!!!!!!!%$m!!!!"(" bC@B!!@@I!!!!9`!!!!!!!!!!33!!!!!NF(*PCJ!!ScF!!!"B!!!!!!!!!!""*!! !!!T`FQ9Q!!#)&!!!!&N!!!!!!!!!!%%Z!!!!NR"bC@B!!+ZR!!!!@J!!!!!!!!! !3F!!!!"+F(*PCJ!"&@F!!!"E!!!!!!!!!!!hFJ!!!B"YFh"T!!!!!3!!!!!!!!! !!!!!!!Ti!!!!'R"bC@B!&`2B!!!!c`!!!!!!!!!!AX!!!"K`F(*PCJ!@S33!!!$ 3!!!!!!!!!!!imJ!!!Q4`FQ9Q!"Fd[!!!!0%!!!!!!!!!!*!!kJ!!),T`FQ9Q!"C C63!!!0)!!!!!!!!!!!U5!!!!"("bC@B!&akH!!!!d`!!!!!!!!!!#TB!!!!BF(* PCJ!@@qF!!!$8!!!!!!!!!!!+VJ!!!!T`FQ9Q!"EEA!!!!08!!!!!!!!!!!Ui!!! !$R"bC@B!&XP"!!!!eJ!!!!!!!!!!%+i!!!$'F(*PCJ!@d*F!!!$A!!!!!!!!!!! +aJ!!!$K`FQ9Q!"C6H`!!!0J!!!!!!!!!!!Vq!!!!$("bC@B!&UX9!!!!f3!!!!! !!!!!3JS!!!(DF(*PCJ!@a%!!!!$D!!!!!!!!!!!,#J!!!!a`FQ9Q!"FiI`!!!0X !!!!!!!!!!$EM!!!!BR"bC@B!&a-k!!!!h!!!!!!!!!!!#aB!!!!iF(*PCJ!A'J- !!!$G!!!!!!!!!!!,6J!!!!e`FQ9Q!"DELJ!!!0i!!!!!!!!!!!YE!!!!&("bC@B !&S11!!!!h`!!!!!!!!!!$$-!!!!+F(*PCJ!@[l`!!!$J!!!!!!!!!!!l9J!!!-4 `FQ9Q!"ECR!!!!1%!!!!!!!!!!%2N!!!"&R"bC@B!&T(V!!!!iJ!!!!!!!!!!42S !!!#kF(*PCJ!@be`!!!$M!!!!!!!!!!!4G!!!!#j`FQ9Q!"ELK!!!!13!!!!!!!! !!%Hq!!!#$("bC@B!&bJf!!!!j3!!q-3!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdfpack.project.hqx0000644000000000000000000014742612421456623020643 0ustar (This file must be converted with BinHex 4.0) :$fKNCR"KBfXZF(*[DQ9MG!"069"b3eG*43!!!!#BFJ!!!!!4"'0[Ef`!!!!#!!! !+!!!NXi!!*,f!!!&I!!!!$B"!!!!!!!!!!!!!!!!!!!!!!!!!@-N3N)!!!!K!!! !!J!!!!!!!!!r!!!!!h0S#&!!!!"J!!!!"!0TlY!!!!"r!!!!"3T"C'3!!!#G!!! !"P"TEP)!!!#k!!!!"f&3EfN!!!$F!!!!#%e*G'8!!!$i!!!!#A45CA-!!!%9!!! !#NePER8!!!%e!!!!#h4$Efi!!!&9!!!!$%0[ER3!!!&Y!!!!$@pcC8-!!!',!!! !$QPXE%-!!!'S!!!!$e0SEhF!!!('!!!!%%KTC'8!!!(I!!!!%8e[GQ8!!!)#!!! !%NGPG%-!!!)M!!!!%f9d3e)!!!*%!!!!&(TP3fm!!!*K!!!!&@aTG'8!!!+$!!! !&NGPG%-!!!+I!!!!&h4$9'N!!!+i!!!!'(4X9Q%!!!,9!!!!'@PZ3h3!!!,c!!! !'N0dE!X!!!-4!!!!'faeC3N!!!-a!!!!('`*8f8!!!01!!!!(94PFh3!!!0U!!! !(N4bB@F!!!1(!!!!(e4bB@-!!!1C!!!!)!a%FQ%!!!1k!!!!)3!!!B!!!!2B!!! !)J!!!!B!!!2j!!!!)kpi49m!!!3B!!!!*!!!!!!!!!3f!!!!*3!!!!!!!!46!!! !*J!!!!!!!!4e!!!!*`!!!!!!!!54!!!!+!!!!!!!!!5Z!!!!+3!!!!!!!!61!!! !+J!!!!!!!!6Z!!!!+`!!!!!!!!8'!!!!,!!!!!!!!!8N!!!!,3!!!!!!!!9"!!! !,J!!!!!!!!9I!!!!,`!!!!!!!!9i!!!!-!!!!!!!!!@E!!!!-3!!!!!!!!@m!!! !-J!!!!!!!!AG!!!!-`!!!!!!!!Ak!!!!0!!!!!!!!!BF!!!!03!!!!!!!!Bi!!! !0J!!!!!!!!C4!!!!0`!!!!!!!!CZ!!!!1!!!!!!!!!D-!!!!13!!!!!!!!DU!!! !1J!!!!!!!!E+!!!!1`!!!!!!!!ER!!!!2!!!!!!!!!F$!!!!23!!!!!!!!FJ!!! !2J!!!!!!!!G$!!!!2`!!!!!!!!GM!!!!3!!!!!!!!!H'!!!!33!!!!!!!!HR!!! !3J!!!!!!!!I(!!!!3`!!!!!!!!IQ!!!!4!!!!!!!!!J+!!!!43!!!!!!!!JS!!! !4J!!!!!!!!K(!!!!4`!!!!!!!!KT!!!!5!!!!!!!!!L,!!!!53!!!!!!!!LP!!! !5J!!!!!!!!M&!!!!5`!!!!!!!!MU!!!!6!!!!!!!!!N0!!!!63!!!!!!!!N`!!! !6J!!!!!!!!P2!!!!6`!!!!!!!!Pc!!!!8!!!!!!!!!Q4!!!!83!!!!!!!!QX!!! !8J!!!!!!!!R,!!!!8`!!!!!!!!RV!!!!9!!!!!!!!!S,!!!!93!!!!!!!!SU!!! !9J!!!!!!!!T+!!!!9`!!!!!!!!TP!!!!@!!!!!!!!!U(!!!!@3!!!!!!!!UQ!!! !@J!!!!!!!!V%!!!!@`!!!!!!!!VM!!!!A!!!!!!!!!Vp!!!!A3!!!!!!!!X8!!! !AJ!!!!!!!!XZ!!!!A`!!!!!!!!Y'!!!!B!!!!!!!!!YG!!!!B3!!!!!!!!Yc!!! !BJ!!!!!!!!Z1!!!!B`!!!!!!!!ZM!!!!C!!!!!!!!!Zj!!!!C3!!!!!!!![5!!! !CJ!!!!!!!![V!!!!C`!!!!!!!![m!!!!D!!!!!!!!!`6!!!!D3!!!!!!!!`[!!! !DJ!!!!!!!!a*!!!!D`!!!!!!!!aM!!!!E!!!!!!!!!aj!!!!E3!!!!!!!!b8!!! !EJ!!!!!!!!bT!!!!E`!!!!!!!!bl!!!!F!!!!!!!!!c4!!!!F3!!!!!!!!cS!!! !FJ!!!!!!!!cr!!!!F`!!!!!!!!dD!!!!G!!!!!!!!!db!!!!G3!!!!!!!!e0!!! !GJ!!!!!!!!eQ!!!!G`!!!!!!!!eq!!!!H!!!!!!!!!f9!!!!H3!!!!!!!!fa!!! !HJ!!!!!!!!h(!!!!H`!!!!!!!!hH!!!!I!!!!!!!!!hi!!!!I3!!!!!!!!i5!!! !IJ!!!!!!!!iN!!!!I`!!!!!!!!im!!!!J!!!!!!!!!jC!!!!J3!!!!!!!!jd!!! !JJ!!!!!!!!k2!!!!J`!!!!!!!!kQ!!!!K!!!!!!!!!l#!!!!K3!!!!!!!!lB!!! !KJ!!!!!!!!lV!!!!K`!!!!!!!!m#!!!!L!!!!!!!!!mD!!!!L3!!!!!!!!mb!!! !LJ!!!!!!!!p2!!!!L`!!!!!!!!pT!!!!M!!!!!!!!!q'!!!!M3!!!!!!!!qK!!! !MJ!!!!!!!!ql!!!!M`!!!!!!!!r8!!!!N!!!!!!!!!!2mJ!!!*%!!!!!!!!3#J! !!*)!!!!!!!!3)`!!!*-!!!!!!!!32`!!!*3!!!!!!!!3@`!!!*8!!!!!!!!3E`! !!*B!!!!!!!!3L3!!!*F!!!!!!!!3U!!!!*J!!!!!!!!3a3!!!*N!!!!!!!!3iJ! !!*S!!!!!!!!3q`!!!*X!!!!!!!!4'3!!!*`!!!!!!!!4-3!!!*d!!!!!!!!44J! !!*i!!!!!!!!4A`!!!*m!!!!!!!!4H3!!!+!!!!!!!!!4N`!!!+%!!!!!!!!4V`! !!+)!!!!!!!!4b!!!!+-!!!!!!!!4j!!!!+3!!!!!!!!4rJ!!!+8!!!!!!!!5&`! !!+B!!!!!!!!5,`!!!+F!!!!!!!!56!!!!+J!!!!!!!!5B`!!!+N!!!!!!!!5H`! !!+S!!!!!!!!5PJ!!!+X!!!!!!!!5X3!!!+`!!!!!!!!5a!!!!+d!!!!!!!!5h3! !!+i!!!!!!!!5q`!!!+m!!!!!!!!6&`!!!,!!!!!!!!!6-`!!!,%!!!!!!!!65`! !!,)!!!!!!!!6D!!!!,-!!!!!!!!6I`!!!,3!!!!!!!!6N`!!!,8!!!!!!!!6U`! !!,B!!!!!!!!6a!!!!,F!!!!!!!!6h3!!!,J!!!!!!!!6q3!!!,N!!!!!!!!8%J! !!,S!!!!!!!!8,J!!!,X!!!!!!!!85!!!!,`!!!!!!!!8B3!!!,d!!!!!!!!8H3! !!,i!!!!!!!!8PJ!!!,m!!!!!!!!8V3!!!-!!!!!!!!!8a3!!!-%!!!!!!!!8i!! !!-)!!!!!!!!8q`!!!--!!!!!!!!9$J!!!-3!!!!!!!!9*`!!!-8!!!!!!!!943! !!-B!!!!!!!!9B3!!!-F!!!!!!!!9I3!!!-J!!!!!!!!9P3!!!-N!!!!!!!!9XJ! !!-S!!!!!!!!9b3!!!-X!!!!!!!!9h3!!!-`!!!!!!!!9p3!!!-d!!!!!!!!@$J! !!-i!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!cJ!!!1!!!"BR!!!B!!! !!-i!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&B!!!"J!!!%p3!!#!!!!!"@!!!!!!! !!!!!!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm!!!!!Irm!!!!!Irm!!!!#!3!!"J) !!!!!!!%"!!%"!!!!!3!!!!%!!!!!!3%!!!%"!!%!!!F"!!%"!!%"!!!!!3!!!`% "!3%"!3%!!3!!!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!!! !!!!"!!!!!J!!!!-!!!!%!!!!"3!!!!B!!!!,!!!!"`!!!!`!!!!)!!!!$3!!!!N !!!!2!!!!#J!!!!i!!!!3!!!!%3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!'plEhY[Hfpl!!!!%3!!!#!"!!%!!"m"!!!D!3! !'3%!!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3%!!"m!!`)!!3% !!3!!!!!!!!!!!!!!!!%"!!%!!3%!!3!"!!!!!J!!!"`!!!!!!!!!!!!!!!!!!!! !!%)!!!"$!!!!4!!!!%8!!!!q!!!!33!!!%B!!!"(!!!!5!!!!$d!!!"!!!!!53! !!&3!!!"9!!!!9J!!!%S!!!",!!!!6!!!!%d!!!"1!!!!6`!!!&!!!!"4!!!!8J! !!&-!!!!r!!!!9`!!!&J!!!"C!!!!@J!!!!8!!!!'!!!!"`!!!!J!!!!"!!!!"!! !!!N!!!!+!!!!#`!!!!!!!!!$!!!!$!!!!!d!!!!1!!!!$`!!!"!!!!!4!!!!%J! !!"-!!!!8!!!!&3!!!"B!!!!A!!!!'!!!!"N!!!!#!!!!'J!!!"X!!!!F!!!!(3! !!#3!!!!P!!!!*J!!!#F!!!!J!!!!)`!!!#J!!!!T!!!!+J!!!"m!!!!L!!!!+`! !!#`!!!!Y!!!!,J!!!#m!!!!`!!!!-3!!!$)!!!!c!!!!0!!!!$8!!!!f!!!!0`! !!$J!!!!K!!!!13!!!$S!!!!l!!!!2!!!!(F!!!"i!!!!H3!!!(S!!!"c!!!!GJ! !!(X!!!"m!!!!I3!!!()!!!"e!!!!IJ!!!(m!!!#!!!!!J3!!!))!!!#$!!!!K!! !!)8!!!#'!!!!K`!!!)J!!!"d!!!!MJ!!!)m!!!#3!!!!!*%!!!#+!!!!M3!!!*) !!!#6!!!!P!!!!)N!!!#-!!!!P3!!!*B!!!#A!!!!Q!!!!*N!!!#D!!!!Q`!!!*` !!!#G!!!!RJ!!!*m!!!#,!!!!T3!!!+B!!!#R!!!!U!!!!+%!!!#N!!!!U3!!!+S !!!#V!!!!S!!!!+-!!!#X!!!!V3!!!+i!!!#[!!!!X!!!!,%!!!#b!!!!X`!!!,3 !!!#e!!!!YJ!!!+)!!!"J!!!!B3!!!')!!!"M!!!!A!!!!&m!!!"N!!!!C3!!!'B !!!"E!!!!AJ!!!'F!!!"S!!!!D3!!!'S!!!"V!!!!E!!!!'d!!!"Z!!!!E`!!!(! !!!"a!!!!A3!!!,`!!!#p!!!![J!!!,m!!!#i!!!!Z`!!!-!!!!$"!!!!`J!!!,F !!!#k!!!!``!!!-3!!!$&!!!!aJ!!!-F!!!$)!!!!b3!!!-S!!!$,!!!!c!!!!-d !!!#j!!!!(J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!J!!!!#J!!!") !!!"+!!!!6J!!!#B!!!"3!!!!+3!!!%J!!!"6!!!!-3!!!#i!!!!q!!!!2!!!!%B !!!"$!!!!1!!!!$8!!!!K!!!!!!!!!"-!!!!&!!!!!3!!!%X!!!"-!!!!*`!!!#8 !!!!U!!!!+!!!!%m!!!"0!!!!83!!!&)!!!!M!!!!*!!!!%N!!!!L!!!!9!!!!&8 !!!!,!!!!(!!!!#m!!!!Y!!!!-J!!!$!!!!!V!!!!,!!!!!-!!!!8!!!!%!!!!"d !!!!1!!!!23!!!$m!!!!l!!!!3!!!!$S!!!!%!!!!$3!!!"S!!!!-!!!!'`!!!!m !!!!H!!!!%3!!!"m!!!!'!!!!&3!!!!F!!!!@!!!!#3!!!"N!!!!A!!!!#!!!!"J !!!"%!!!!3J!!!%F!!!"&!!!!33!!!$B!!!!d!!!!13!!!$F!!!!c!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*!!%!!3%!!!a0B@0)C@& NCA*c,QKSB@-ZD!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!3!!38j655"$EfjcEfaP)$BiDcT$GA0dEfdJ5f9 jGfpbC(-!38j655"$EfjcEfaP)$BiDcT"Bf0PFh-J8'&dD(-!38j655"$EfjcEfa P)$BiDcT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)$BiDcT'D@aP)%eKF(" TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3R9TE'3J4AKdFQ&c!%&18dNJ3fpZFfpXC5! f1'Xk0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcSf1%XJ4'PcBA0cC@eLE'9 b!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1MB i5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ3fpYF'PXCA)!38j655" $EfjcEfaP)$BiDcT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1N0'66B i5`""6P0*)%0[ER0[E'8J0MKV1NP5)%p`G'PYDATPFJ""6P0*)%0[ER0[E'8J0MK V1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"3FQpUC@0d!%&18dN J3fpZFfpXC5!f1'Xk5Q&fB5"@63""6P0*)%0[ER0[E'8J0MKV1NeKBdp6)%ePFQG P)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8'&cBf&X)%0[EA"TE'9b!%&18dNJ3fp ZFfpXC5!f1'Xk8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)%0 [C'9(C@i!38j655"$EfjcEfaP)$BiDcT38%-J4'PcBA0cC@eLE'9b!%&18dNJ3fp ZFfpXC5!f1'Xk8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"348B!38j 655"$EfjcEfaP)$BiDcT38%-J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1P"33d& cE5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P*PHL"$Efe`D@aPFJ""6P0*)%0[ER0 [E'8J0MKV1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%0[C'9 (C@i!38j655"$EfjcEfaP)$BiDcTi1$BJ6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'X kH$Jf)&"bEfTPBh3!8(*[DQ9MG#"'D@aP)%aTFh3!38j655"$EfjcEfaP)&"33cT $GA0dEfdJ5f9jGfpbC(-!38j655"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(-!38j 655"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)&"33cT 'D@aP)%eKF("TEQGc!%&18dNJ3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%&18dN J3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cSf1%XJ4'P cBA0cC@eLE'9b!%&18dNJ3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ""6P0*)%0[ER0 [E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ3fpYF'P XCA)!38j655"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0[E'8 J8&"$1N0'66Bi5`""6P0*)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0*)%0 [ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5"3FQp UC@0d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5"@63""6P0*)%0[ER0[E'8J8&"$1Ne KBdp6)%ePFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)%0[EA"TE'9 b!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5" 38%-k8&"$)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@eLE'9 b!%&18dNJ3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&"$1P" 33b"348B!38j655"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%0[ER0[E'8 J8&"$1P"33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@aPFJ" "6P0*)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5"38%- kH$Jf)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dNJ3fp ZFfpXC5"38%-kH$Jf)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1N0eFh4[E5" ,CAPhEh*NF`""6P0*)%-J3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%&18dNJ3b" $EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$)%0[ER0[E'8J8&"$1NC TE'8J6@&`F'PZCh-!38j655"$)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`""6P0 *)%-J3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1MB i5b"%DA0KFh0PE@*XCA)!38j655"$)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA)!38j 655"$)%0[ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT $,d-V+b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQPZCh- !38j655"$)%0[ER0[E'8J8&"$1N0'66Bi5`""6P0*)%-J3fpZFfpXC5"38%-k59) J6h"dD@eTHQ9b!%&18dNJ3b"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@jPE!" "6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfa P)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$)%0[ER0[E'8J8&"$1P"33b"$Ef4 P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@eLE'9b!%&18dNJ3b" $EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J8%9 '!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5" 38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3b"$EfjcEfaP)&"33cT5CASJ3fpYF'PXCA) !38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3b"$EfjcEfaP)&" 33cT+BACK)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j655" $)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT i1$BJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0*)%- J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!D'4QE(-J8&"$1N0eFh4[E5",CAPhEh* NF`"SC'CXFb"38%-k3@0MCA0c)&"KG'Kc!'KNCQac)&"33cT8BA*RCA3J8f9dG'P ZCh-!D'4QE(-J8&"$1NCTE'8J6@&`F'PZCh-!D'4QE(-J8&"$1N*eD@aN)%9iG(* KF`"SC'CXFb"38%-k0MK,)%0[C'9(C@i!D'4QE(-J8&"$1MBi5b"%DA0KFh0PE@* XCA)!D'4QE(-J8&"$1MBi5b"-D@jVCA)!D'4QE(-J8&"$1MBi5b"3FQpUC@0d!'K NCQac)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CXFb"38%-k3bp$+bXJ9f&bEQPZCh- !D'4QE(-J8&"$1N0'66Bi5`"SC'CXFb"38%-k59)J6h"dD@eTHQ9b!'KNCQac)&" 33cT0B@028b"0CA*RC5"3B@jPE!"SC'CXFb"38%-k8'&cBf&X)%0[EA"TE'9b!'K NCQac)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QE(-J8&"$1P"33b"$Ef4P4f9Z!'K NCQac)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCQac)&"33cT38%-J6'PZDf9b!'K NCQac)&"33cT38%-J8%9'!'KNCQac)&"33cT38%-J8(*[DQ9MG!"SC'CXFb"38%- k8&"$3A0Y)&"KEQ9X!'KNCQac)&"33cT5CASJ3fpYF'PXCA)!CR!bD'4Q)&"33cT $GA0dEfdJ5f9jGfpbC(-!CR!bD'4Q)&"33cT"Bf0PFh-J8'&dD(-!CR!bD'4Q)&" 33cT8BA*RCA3J8f9dG'PZCh-!CR!bD'4Q)&"33cT'D@aP)%eKF("TEQGc!'C`-QK NCL"38%-k3R9TE'3J4AKdFQ&c!'C`-QKNCL"38%-k0MK,)%0[C'9(C@i!CR!bD'4 Q)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'C`-QKNCL"38%-k0MK,)%aTEQYPFJ"QF$* SC'BJ8&"$1MBi5b"3FQpUC@0d!'C`-QKNCL"38%-k3bp$+bXJ3fpYF'PXCA)!CR! bD'4Q)&"33cT$,d-V+b"ABA*ZD@jRF`"QF$*SC'BJ8&"$1N0'66Bi5`"QF$*SC'B J8&"$1NP5)%p`G'PYDATPFJ"QF$*SC'BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'C `-QKNCL"38%-k8'&cBf&X)%0[EA"TE'9b!'C`-QKNCL"38%-k8'&cBf&X)&GKFQj TEQGc!'C`-QKNCL"38%-k8&"$)%0[C'9(C@i!CR!bD'4Q)&"33cT38%-J4'PcBA0 cC@eLE'9b!'C`-QKNCL"38%-k8&"$)%aTEQYPFJ"QF$*SC'BJ8&"$1P"33b"348B !CR!bD'4Q)&"33cT38%-J8(*[DQ9MG!"QF$*SC'BJ8&"$1P"33d&cE5"3B@jPE!" QF$*SC'BJ8&"$1P*PHL"$Efe`D@aPFJ"SC'Bb0(4[1#"38%-k3h9cG'pY)%YPHAG [FQ4c!'KNCM)dG'mi)&"33cT"Bf0PFh-J8'&dD(-!D'4Q-M4dEcJJ8&"$1P4KFQG PG#"6CA4dD@jRF`"SC'Bb0(4[1#"38%-k4QPXC5"0BA"`D@jRF`"SC'Bb0(4[1#" 38%-k3R9TE'3J4AKdFQ&c!'KNCM)dG'mi)&"33cSf1%XJ3fpNC8GPEJ"SC'Bb0(4 [1#"38%-k0MK,)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k0MK,)%aTEQYPFJ" SC'Bb0(4[1#"38%-k0MK,)&"bEfTPBh3!D'4Q-M4dEcJJ8&"$1N-[3bXV)%0[EA" TE'9b!'KNCM)dG'mi)&"33cT$,d-V+b"ABA*ZD@jRF`"SC'Bb0(4[1#"38%-k3dC 00MK,!'KNCM)dG'mi)&"33cT*8L"2F(4TE@PkCA)!D'4Q-M4dEcJJ8&"$1NeKBdp 6)%ePFQGP)&"KEQ9X!'KNCM)dG'mi)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4Q-M4 dEcJJ8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'Bb0(4[1#"38%-k8&"$)%0[C'9(C@i !D'4Q-M4dEcJJ8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4Q-M4dEcJJ8&"$1P"33b" -D@jVCA)!D'4Q-M4dEcJJ8&"$1P"33b"348B!D'4Q-M4dEcJJ8&"$1P"33b"3FQp UC@0d!'KNCM)dG'mi)&"33cT38%0"FfdJ8'&ZC@`!D'4Q-M4dEcJJ8&"$1P*PHL" $Efe`D@aPFJ"SC'CMEfe`)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QBfpYF#"38%- k3@0MCA0c)&"KG'Kc!'KNCQ0[EA!J8&"$1P4KFQGPG#"6CA4dD@jRF`"SC'CMEfe `)&"33cT'D@aP)%eKF("TEQGc!'KNCQ0[EA!J8&"$1N*eD@aN)%9iG(*KF`"SC'C MEfe`)&"33cSf1%XJ3fpNC8GPEJ"SC'CMEfe`)&"33cSf1%XJ4'PcBA0cC@eLE'9 b!'KNCQ0[EA!J8&"$1MBi5b"-D@jVCA)!D'4QBfpYF#"38%-k0MK,)&"bEfTPBh3 !D'4QBfpYF#"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QBfpYF#"38%-k3bp$+bXJ9f& bEQPZCh-!D'4QBfpYF#"38%-k3dC00MK,!'KNCQ0[EA!J8&"$1NP5)%p`G'PYDAT PFJ"SC'CMEfe`)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CMEfe`)&"33cT3BA0 MB@`J3fpYF'PXCA)!D'4QBfpYF#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQ0[EA! J8&"$1P"33b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4 QBfpYF#"38%-k8&"$)%aTEQYPFJ"SC'CMEfe`)&"33cT38%-J8%9'!'KNCQ0[EA! J8&"$1P"33b"3FQpUC@0d!'KNCQ0[EA!J8&"$1P"33d&cE5"3B@jPE!"SC'CMEfe `)&"33cT5CASJ3fpYF'PXCA)!D'4QF'&MDb"38%-k3h9cG'pY)%YPHAG[FQ4c!'K NCR"KBfXJ8&"$1N&MBf9cFb"3BA4SF`"SC'C`B@0V)&"33cT8BA*RCA3J8f9dG'P ZCh-!D'4QF'&MDb"38%-k4QPXC5"0BA"`D@jRF`"SC'C`B@0V)&"33cT#G@PXC#" &H(4bBA-!D'4QF'&MDb"38%-k0MK,)%0[C'9(C@i!D'4QF'&MDb"38%-k0MK,)%4 TFf&cFf9YBQaPFJ"SC'C`B@0V)&"33cSf1%XJ6'PZDf9b!'KNCR"KBfXJ8&"$1MB i5b"3FQpUC@0d!'KNCR"KBfXJ8&"$1N-[3bXV)%0[EA"TE'9b!'KNCR"KBfXJ8&" $1N-[3bXV)&GKFQjTEQGc!'KNCR"KBfXJ8&"$1N0'66Bi5`"SC'C`B@0V)&"33cT *8L"2F(4TE@PkCA)!D'4QF'&MDb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QF'& MDb"38%-k8'&cBf&X)%0[EA"TE'9b!'KNCR"KBfXJ8&"$1P"KFf0KE#"ABA*ZD@j RF`"SC'C`B@0V)&"33cT38%-J3fpNC8GPEJ"SC'C`B@0V)&"33cT38%-J4'PcBA0 cC@eLE'9b!'KNCR"KBfXJ8&"$1P"33b"-D@jVCA)!D'4QF'&MDb"38%-k8&"$)&" &4J"SC'C`B@0V)&"33cT38%-J8(*[DQ9MG!"SC'C`B@0V)&"33cT38%0"FfdJ8'& ZC@`!D'4QF'&MDb"38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!38j655"$EfjcEfaP)$BiD`"'DA*cG#"6C@G YC@jd!$TK,QpeG!"-D@)J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfp Z)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3 J0MK,!$T"6P0*)%0[ER0[E'8J0MKV,QpeG!")C@aXEeG[FQaN,Q-!690-)%-Z0MK ,)%CK+$4TAcKN+5j-D@)!690-)%-V+bif1%XJ4Q%S0'PI1'3T,NaTBJ"0BA4S6'P L0MK,)%CK+$4T,cKN+5j-D@)!690-)&*eER4TE@8f1%XZ6'PL!%eKBdp6,QaTBJ" 08d`J8dP299JZ0MK,,NaTBJ!k38j655"$EfjcEfaP)&"33bj[GA3!38j655"$Efj cEfaP)&"33`"-D@)J5@e`Eh*d)&"33`"09b"$,d-V+b"38%-!69FJ8'&cBf&X)&" 33`"38%0"Ffd!@%024NBJ5@e`Eh*d)&"33`"348BJ5@e`Eh*d)&"33`"08d`J3bX V,P"33bj-D@)!690-)%-Z8&"$,NaTBJ"*ER4PFQCKBf9-D@)!6@&dD%aTBJ"08d` J8R9ZG'PYC9"33bj-D@)!690-)&0*6e9B,P"33bj-D@)!1N&18dNJ3b"$EfjcEfa P)&"33`""6P0*)%-J3fpZFfpXC5"38%-!D'4QE(-ZB`"SC'CXD@)Z8&"$,QaTBJ" SC'CXD@)ZF(*[DQ9MG!"SC'BJ6'PL)$Bi5b"%C@*eC`!kD'4Q0MKV,NCKFLJdD5m iC#NZE'PL!'KNCL"-D@)J0MK,!'KNCL"-D@)J8&"$)%4PBR9R!$TSC'CXD@)Z8&" $,QaTBJ"SC'BJ6'PL)&"33`"UF'9R,P"33bjXD@)!DR"PCfaTBLj`FQpUC@0d!'T `C@FJ6'PL)$Bi5b"%C@*eC`!kDR"PCcBiDbj'BA)S0'N[1'3T,QaTBJ"UF'9R)%a TBL!f1%X!DR"PCb"-D@)J8&"$)%4PBR9R!$TUF'9R,P"33bjXD@)!DR"PCb"-D@) J8&"$!(TXD@)ZF(*[DQ9MG!"kE'PL)$Bi5b"%C@*eC`!kHMBiDbj'BA)S0'N[1'3 T,QaTBJ"kE'PL)$Bi5`"kE'PL)&"33b"%C@*eC`!kHLj38%-ZE'PL!(TXD@)J8&" $!'eQD'4QE'PL,R"bEfTPBh3!E@CSC'BJ6'PL)$Bi5b"%C@*eC`!kE@CSC'Bf1'X Z4Q&b+$4T,cKN+5jXD@)!E@4SC'BJ6'PL)&"33b"%C@*eC`!kE@CSC'BZ8&"$,Qa TBJ"YCQKNCL"-D@)J0MK,!'eQD'4Q)%aTBL"38%-!H'4bE'PL,R"bEfTPBh3!H'4 b)%aTBL!f1%XJ4'9LG@F!1RKNFMBiDbj'BA)S0'N[1'3T,QaTBJ"iC()J6'PL)$B i5`"iC()J6'PL)&"33b"%C@*eC`!kH'4b,P"33bjXD@)!H'4b)%aTBL"38%-!1QK NCQac!'KNCQac)&"33`!kCR!bD'4Q!'C`-QKNCL"38%-!CR!bD'4Q,Q-!D'4Q-M4 dEcJZB`!kD'4Q-M4dEcJ!D'4Q-M4dEcJJ8&"$!$TSC'CMEfe`!'KNCQ0[EA!J8&" $!'KNCQ0[EA!ZB`!kD'4QF'&MD`"SC'C`B@0V)&"33`"SC'C`B@0V,Q-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3%)!!!!!!!4!!!!!J!!!!!!!!!I!!!!!fGcEf)!!!!Q!!! !"!0TBj!!!!!!03!!!!8"!3%"!!!!4!!!!!B!!!!!!!!!83!!!!F!!!!!!!!!AJ! !!!J!!!!"!!!!E!!!!!NCjJ!!!!!!F!!!!!S!!'*P!!!!I`!!!!YN4@pL!!!!P3! !!!aNG!!!!!!!SJ!!!!d!!!!!!!!!ZJ!!!!i!!!!!!!!!e!!!!!rqi!"N!!!!l3! !!""LDQ3!!!!"!!!!!"%!'G%!!!!"#J!!!")!!!!!!!!"(!!!!"-!rrrr!!!"-J! !!"4[BQTN!!!"3`!!!"8!!!!!!!!"8J!!!"B!!!!!!!!"A`!!!"F!!2rr!!!"E3! !!"J!KfpL!!!"G!!!!"P`G!!!!!!"K3!!!"S!!!!!!!!"P!!!!"X!!!!!!!!"T!! !!"aXB@0P!!!"XJ!!!"d!!$eR!!!"[`!!!"i@!"!"!!!"a`!!!"mB!!!!!!!"fJ! !!#$r!!!C!!!"l!!!!#%!!!'!!!!#!!!!!#)!!!!!!!!#%`!!!#-!!!!!!!!#'`! !!#5jd!!!!!!#+J!!!#9dE!!!!!!#13!!!#B$NBR!!!!#5`!!!#GYFh4Z!!!#BJ! !!#J!!!14!!!#EJ!!!#N!+'ec!!!#J!!!!#S!!!!!!!!#N!!!!!!VEhY[H`!!!T` !!!!X!+"lB!!!!UN!!!!Y!!!#-!!!!VN!!!!Z!!!!&!!!!X`!!!![!!!!!!!!!Z3 !!!!`!!!!!!!!![%!!!!a!!!!!!!!!`3!!!!b!!!!!!!!!a)!!!!c!!!!!!!!!am !!!!d!!!!!!!!!b`!!!!e!!!!!!!!!cX!!!!f!!!!!!!!!e!!!!!h!!!!!!!!!eN !!!!i!!!!!!!!!fJ!!!!j!!!!!!!!!h-!!!!k!!!!!!!!!h`!!!!l!!!!!!!!!id !!!!m!!!!!!!!!k%!!!!p!!!!!!!!!lS!!!!q!!!!!!!!!mi!!!!r!!!!!!!!!pd !!!"!!!!!!!!!!qX!!!""!!!!!!!!!rN!!!"#!!!!!!!!"!J!!!"$!!!!!!!!""S !!!"%!!!!!!!!"$%!!!"&!!!!!!!!"$d!!!"'!!!!!!!!"%m!!!"(!!!!!!!!"&` !!!")!!!!!!!!"'J!!!"*!!!!!!!!"'m!!!"+!!!!!!!!"(N!!!",!!!!!!!!")% !!!"-!!!!!!!!")`!!!"0!!!!!!!!"*8!!!"1!!!!!!!!"+!!!!"2!!!!!!!!"+S !!!"3!!!!!!!!",F!!!"4!!!!!!!!"-!!!!"5!!!!!!!!"-`!!!"6!!!!!!!!"0B !!!"8!!!!!!!!"0m!!!"9!!!!!!!!"1X!!!"@!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!"9*26e3!!!!!!!!!!!!!!!!%4e*98!!!!!!!!!!$"e0[GA* MCA-!!!!"4NP-43%!!"p(8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP -43%!!!P'58a&!3!!#%C*6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA- !!!!$4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR- !!!!'4e*98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a &!3!!%dC*6%8"!!!84NP-43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a &!3!!'8C*6%8"!!!D4NP-43%!!"S!!!!!!!!!!!!!"3%!!"!!!!!%!!!!!#B!!!! R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!!!!!!!!#X !!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$!!!!![!!! !!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3!!%`!!!!3 !!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!!j!!!!!!8 !!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8!!!!!!!! !2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!3!!'J8"!3! "!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!!!!!!!4J! !!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!!!!`!!!!B!!!!$!!!!"V0'*,! !!$c%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!)!!!838j655"$EfjcEfaP)$BiDbj[GA3!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!!'!@)!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!r2cmr!!!!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!!!!!' !!!!!!!!!!!!!!!!!!!!!!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!! %4%a(@'0VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!!!!!!3!"!!!!!!!!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH("XEh*P,Q9 iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J! $!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N#H`!!!!! !!!!!!!!!!!!"!!!!93%!!!%!!!!!!!!!!!3!!!!!9,&hP,)!!(5K!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!-36@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#fKNCR"KBfXJ8&"$3fa P)&"33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!!B!!!p+BACK3faKFh0PFbjkDA! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!%!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!'J%!!"N"!!!B!3!!&`%!!"B"!!!)!3!!#3%!!!S"!!!,!3! !$!%!!!d"!!!H!3!!(`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%r2cmr!!!!!!! !!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!"!%!!!-"!!!!!3!!!3%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3!(!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK `E'pbCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!5@9iF'a[FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!GSC'C`B@0 V1'pZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!(d!!!"p!!!!%!!!&M !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!"@%ZEh9d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C! !!3N#H`!!!!!!!!!!!!!!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM)J,5"bC@aPBA0 P1QKNCMTeG'PX1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!!!!%!!%k1MTkE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"3! "1MSk1QeQD'4Q1QaTBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!6Sk1MTYCQK NCMTiC()k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'P LFQ&bH6T08d`J8(*PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"1N!!!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690 -)%-k!'P[FMT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-k!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3"!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$+bXk!!2 ,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib!S!!!!!32 ,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!!$bjXFrrr rr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!%%Ib!S!!! !!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib2N!!$bjY mrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!!!!!)%Ib! S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ3!!1-Mj! !!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2'9'`!!!! "rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!-!!C!!!ib 2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!!!!mG*0!! !!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBlX!mZF8!1 -Mj!!!Im"!%!!!!)!!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU!!ib2N!!$bjU mrrrrr`2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib! S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!! $bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!% %Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib 2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!! !!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ 3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2 '9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!- !!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!! !!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBl X!mZF8!1-Mj!!!Im"!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!5!!!!!!!!%!"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!439"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"J!!!!3dq-D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!5QTbCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jUBACK!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9 k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"!!!!!@QP`4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#jME'&cF`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69F J5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J0MK,)%aTEQY PFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'` !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%p#5L! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3 ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3 ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3 ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!! !!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZFf9R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!%eKBdp 6)%ePFQGP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfp Z)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jPH(! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!! !!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!! !!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jc!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !%N0-99-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!J!! !!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!! !!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!! !!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!>EM-b)(Ji0L"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K8,Q-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!! !!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!! !!!!!!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R*PF`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!!!,QaTBJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!)!!!!'`)!!!! !!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#3!!!"`#!!!!!!!!!3!"!`! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!S!!!!G!J!!!!!!!!%!!3-!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!,!!!!(J)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!$!!!!"m#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!d !!!!J!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!3!!!!*3)!!!! !!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%J!!!#d#!!!!!!!!!3!"!J! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"-!!!!d!J!!!!!!!!%!!3)!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!8!!!!1`)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!!&3!!!%)#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"B !!!!U"3!!!!%!!"!!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!A!!!!-J8!!!! "!!!5!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'!!!!$N&!!!!!3!!%`!"!`! !!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"N!!!"("3!!!!%!!"8!!3-!!!!!!!!!!!! !!!#"!!!!!!!!!!!"!!!D!!!!2`8!!!!"!!!8!!%$!!!!!!!!!!!!!!!!J3!!!!! !!!!!!3!!(`!!!&B#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!"m !!!"@!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!%!!!!"J!!!!8 $DI'!8%&B3&S!CAKM*'*L!fRES!0TlQ!!!!!!!!!"F!1B"2"TH&*[G@jN#%PZDA3 $DGZJ#%PZDA4(FQ&Q#%p`C@j3Eh*d$8a[Bf&X9'p(E'pLB@`04fa[BQ&X9'p-Ef0 KE!T(!)l'J1X!!"3!!!!Jrrrff!!!!!!!!!!!!3!"!!2Kim!!MXF3k`!!&!!!!#$ rrrEX!!!!!!!!!!!"!!%!!q(M`!#1ac$V!!!%!!!%%2rrp[K-D@)J5@e`Eh*d)$B i5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&" KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!!!!)!!'D""[D@jd3%")5c"!@J! $D4U3!!0T2&$V!!!8!!!!)!!'D#4XC84KG'&!3$096d`$D4U3!!0T2($V!!!8!!! !)!!'D"a5C@0d3$)`!$p%Ed3$D4U3!!0T2*!!k`!!&!!!!#!!"QJSBf9!3&&"48Y ,8%*9!fNDN!!$D6b`k`!!&!!!!#!!"QJJ8fpeFQ0P3%"!@J!r!fNDN!!$D6c3k`! !&!!!!#!!"QJ-!!!!!!!!!!!!!!!!!!!!!!0T22$V!!!8!!!!)!!'ClaTF'*[BA* N4'&dB8!$D4U3!!0T24$V!!!-!!!!-!!'Cl3!!3!!!!)!!!!F!!!!!!!!!!!!!!! !!!!!!!!3!fPVi!0T26$VB!!3!!!#`!!'CkJ!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C![DJ!!"'q!!!B!'ecG()!!!!!!!!!!!! !"N#k*!!!!#J!!!U!EA0dE!!!!!!!!!!!!!!'3,h)!!!-D!!!!i"YFh4Z!!!!!!! !!!!!!!!!!!!!!!US!!!!+'ecG'N!!!!!!!!!!!!!"N#pX!!!+Ei!!!J!EA0dFJ! !!qJ!!!!!!!!'3,fd!!!a[J!!")"YFh4X!!!$k!!!!!!!!!C![EJ!!!rS!!!"J'e cG'i!!!2S!!!!!!!!"N#kd!!!LqS!!!8!EA4`E!!!!!%!!!!!!!!'3,UF!!!,G3! !!)"YG("c!!!!!3!!!!!!!!C![$3!!!a3!!!!''edFf`!!!!"!!!!!!!!!!!!!!! !#Y!!!!!SEA0dD3!!!qJ!!!!!!!!'3,X3!!!imJ!!!LaYF(0T!!!$k!!!!!!!!!C !ZM`!!%)+!!!#'QedCf`!!!2S!!!!!!!!!!!!!!!!#r8!!!!1EA4`D3!!!!%!!!! !!!!'3,a`!!!-!`!!!$"YG'a[!!!!!3!!!!!!!!C!ZL!!!$Bq!!!"*9"-Fh3!!-R 0!!!!(`!!!!!!!!!!4j!!!!!!,R"bC@B!!8Z5!!!!,3!!!!!!!!!!5im!!!4*F(* PCJ!#!Um!!!!Z!!!!!!!!!!!4ZJ!!!!4`FQ9Q!!(El!!!!#m!!!!!!!!!!%Y&!!! !*("bC@B!!H4"!!!!1J!!!!!!!!!!5fN!!!!+F(*PCJ!"e9!!!!!l!!!!!!!!!!" 4j!!!!**`FQ9Q!!(G@`!!!$`!!!!!!!!!!&*f!!!!5R"bC@B!!He[!!!!23!!!!! !!!!!2)8!!!!ZF(*PCJ!"!qi!!!"9!!!!!!!!!!!mX`!!"%P`FQ9Q!!&@"3!!!&B !!!!!!!!!!%$m!!!!"("bC@B!!@@I!!!!9`!!!!!!!!!!33!!!!!NF(*PCJ!!ScF !!!"B!!!!!!!!!!""*!!!!!T`FQ9Q!!#)&!!!!&N!!!!!!!!!!%%Z!!!!NR"bC@B !!+ZR!!!!@J!!!!!!!!!!3F!!!!"+F(*PCJ!"&@F!!!"E!!!!!!!!!!!hFJ!!!B" YFh"T!!!!!3!!!!!!!!!!!!!!!!Vi!!!!'R"bC@B!%q'5!!!!Z!!!!!!!!!!!8X! !!"K`F(*PCJ!8%G)!!!#j!!!!!!!!!!"%*!!!!Q4`FQ9Q!"2GT3!!!,S!!!!!!!! !!'X`!!!JZR"bC@B!&%M(!!!!Z`!!!!!!!!!!#a)!!!!%F(*PCJ!6iYN!!!#m!!! !!!!!!!!,&J!!!"K`FQ9Q!"2TU`!!!,d!!!!!!!!!!!XZ!!!!#R"bC@B!%p0F!!! ![J!!!!!!!!!!#cJ!!!!1F(*PCJ!8%[B!!!#r!!!!!!!!!!!l(J!!!-C`FQ9Q!"1 Lj3!!!-!!!!!!!!!!!"&S!!!!1("bC@B!&$mr!!!!`3!!!!!!!!!!#dB!!!!-F(* PCJ!8!E%!!!$#!!!!!!!!!!"([J!!!GT`FQ9Q!"1J'J!!!--!!!!!!!!!!!Y5!!! !$("bC@B!%iMX!!!!a!!!!!!!!!!!1q3!!!"LF(*PCJ!6bIF!!!$&!!!!!!!!!!! m4J!!!$K`FQ9Q!"3M``!!!-B!!!!!!!!!!!YH!!!!$A"bC@B!&&88!!!!a`!!!!! !!!!!$$-!!!!8F(*PCJ!86Ed!!!$)!!!!!!!!!!!,D`!!!!T`FQ9Q!"4ZA!!!!-N !!!!!!!!!!%D)!!!!a("bC@B!%qMe!!!!bJ!!!!!!!!!!5CJ!!!%@F(*PCJ!6cCd !!!$,!!!!!!!!!!"2f!!!!,T`FQ9Q!"1Zh3!!!-`!!!!!!!!!!%G-!!!!,R"bC@B !%l(@!!!!c3!!!!!!!!!!N!$U!!!#$("bC@B!%pVa!!!!cJ!!Rjd!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdfls.project.hqx0000644000000000000000000014261112421456623020332 0ustar (This file must be converted with BinHex 4.0) :$@KNCQac,R"bEfTPBh3!68e3FN0A588!!!!!N@B!!!!!kLPMEfpX!!!!!J!!!#J !!)[#!!#,kJ!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!) !!!!!!!!!2`!!!!0cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C 3D@j5!!!!ZJ!!!!GK8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T 0C@je!!!"03!!!!Yd3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!j TE'a$!!!"U!!!!!p6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"* (CA4$!!!#)`!!!"0PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C (CA4$!!!#R`!!!"Gd3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T $G'`,!!!$%3!!!"YXG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j %FQ&R!!!$K`!!!"p8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#) !!!!'!!!$q3!!!#1[H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B !!!!!!!!%G3!!!#F!!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S !!!!!!!!%lJ!!!#X!!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i !!!!!!!!&A`!!!#m!!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$) !!!!!!!!&h3!!!$-!!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B !!!!!!!!'83!!!$F!!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S !!!!!!!!'bJ!!!$X!!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i !!!!!!!!(3`!!!$m!!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%) !!!!!!!!(a`!!!%-!!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B !!!!!!!!)4`!!!%F!!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S !!!!!!!!)a3!!!%X!!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i !!!!!!!!*6`!!!%m!!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&) !!!!!!!!*b`!!!&-!!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B !!!!!!!!+5J!!!&F!!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S !!!!!!!!+a!!!!&X!!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i !!!!!!!!,,J!!!&m!!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!') !!!!!!!!,MJ!!!'-!!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B !!!!!!!!,k`!!!'F!!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S !!!!!!!!-53!!!'X!!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i !!!!!!!!-U3!!!'m!!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!() !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3J!!!%-!!!"%!!!!43!!!$i !!!""!!!!4J!!!%F!!!")!!!!23!!!%!!!!"*!!!!9!!!!&8!!!"@!!!!5J!!!%X !!!"-!!!!63!!!%i!!!"2!!!!8!!!!&%!!!"5!!!!8`!!!$m!!!"A!!!!@!!!!&N !!!"D!!!!"3!!!!B!!!!(!!!!#!!!!!%!!!!%!!!!#3!!!!S!!!!,!!!!!!!!!!- !!!!-!!!!$3!!!!i!!!!2!!!!%!!!!"%!!!!5!!!!%`!!!"3!!!!9!!!!&J!!!"F !!!!B!!!!'3!!!!)!!!!D!!!!'`!!!"`!!!!G!!!!*!!!!#8!!!!Q!!!!*`!!!#! !!!!M!!!!+!!!!#N!!!!U!!!!(`!!!#)!!!!V!!!!,!!!!#d!!!!Z!!!!,`!!!$! !!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!!h!!!!1!!!!#%!!!!j!!!!1J!!!$X !!!!m!!!!B!!!!'%!!!"L!!!!B`!!!&`!!!"I!!!!C!!!!'8!!!"Q!!!!@`!!!&i !!!"R!!!!D!!!!'N!!!"U!!!!D`!!!'`!!!"Y!!!!EJ!!!'m!!!"`!!!!F3!!!&d !!!!H!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"b!!!!J!!!$2m!!"!!!!!!FJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!J!!!#!!!!!+!!!!%J!!!#B!!!!T!!!!5!!!!$%!!!!Z!!!!2J!!!$` !!!"'!!!!3`!!!$J!!!!e!!!!)3!!!!!!!!!6!!!!"3!!!!%!!!!R!!!!*3!!!#S !!!!S!!!!)`!!!#3!!!"*!!!!)J!!!!X!!!!F!!!!,`!!!#d!!!!b!!!!-!!!!#X !!!!X!!!!!`!!!"3!!!!3!!!!(3!!!!i!!!!p!!!!2`!!!$X!!!"!!!!!1J!!!!3 !!!!0!!!!'J!!!!`!!!!E!!!!$`!!!"i!!!!4!!!!(`!!!!B!!!!9!!!!"`!!!"B !!!!*!!!!'3!!!"F!!!!)!!!!'!!!!%3!!!"#!!!!4`!!!%8!!!""!!!!0J!!!$3 !!!!j!!!!0`!!!$-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!5J!!!'!!!!4j!!!)!!!!!%S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!J!!!!-!!!!%!!!!"3!!!"!!!!!'!!!!#`!!!!F!!!!-!!!!#!!!!!d !!!!*!!!!$`!!!!S!!!!1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!'plEhY[Hfpl!!!!%3!!!#!"!!%!!"X"!!!D!3! !'3%!!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3%!!"X!!`!!Irm !!!!!Irm!!!!!Irm!!!!!Irm!!!!#!3!!"J)!!!!!!!%"!!%"!!!!!3!!!!%!!!! !!3%!!!%"!!%!!!F"!!%"!!%"!!!!!3!!#!!!&%&18dNJ3fpZFfpXC5!f1'XZEh9 d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp "8&"-!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`!!!!!!!!!!!&8"N!!"#3* l!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!N!!3!"!3!!$%eKBdKPB@4 PFR-ZD'KKBbjS!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!`%"!3%"!3% !!3!!!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!-#!!%"!!%!!!!!!!!!!!!!!!! !!3%"!!!"!3!"!!!"!3%!!!%"!!%!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3%)!!!!!!!4!!!!!J!!!!!!!!!I!!!!!fGcEf)!!!!Q!!!!"!0TBj!!!!! !03!!!!8"!3%"!!!!4!!!!!B!!!!!!!!!83!!!!F!!!!!!!!!AJ!!!!J!!!!"!!! !E!!!!!NCjJ!!!!!!F!!!!!S!!'*P!!!!I`!!!!YN4@pL!!!!P3!!!!aNG!!!!!! !SJ!!!!d!!!!!!!!!ZJ!!!!i!!!!!!!!!e!!!!!rqi!"N!!!!l3!!!""LDQ3!!!! "!!!!!"%!'G%!!!!"#J!!!")!!!!!!!!"(!!!!"-!rrrr!!!"-J!!!"4[BQTN!!! "3`!!!"8!!!!!!!!"8J!!!"B!!!!!!!!"A`!!!"F!!2rr!!!"E3!!!"J!KfpL!!! "G!!!!"P`G!!!!!!"K3!!!"S!!!!!!!!"P!!!!"X!!!!!!!!"T!!!!"aXB@0P!!! "XJ!!!"d!!$eR!!!"[`!!!"i@!"!"!!!"a`!!!"mB!!!!!!!"fJ!!!#$r!!!C!!! "l!!!!#%!!!'!!!!#!!!!!#)!!!!!!!!#%`!!!#-!!!!!!!!#'`!!!#5jd!!!!!! #+J!!!#9dE!!!!!!#13!!!#B$NBR!!!!#5`!!!#GYFh4Z!!!#BJ!!!#J!!!14!!! #EJ!!!#N!+'ec!!!#J!!!!#S!!!!!!!!#N!!!!!!VEhY[H`!!!T`!!!!X!+"lB!! !!UN!!!!Y!!!#-!!!!VN!!!!Z!!!!&!!!!X`!!!![!!!!!!!!!Z3!!!!`!!!!!!! !![%!!!!a!!!!!!!!!`3!!!!b!!!!!!!!!a)!!!!c!!!!!!!!!am!!!!d!!!!!!! !!b`!!!!e!!!!!!!!!cX!!!!f!!!!!!!!!e!!!!!h!!!!!!!!!eN!!!!i!!!!!!! !!fJ!!!!j!!!!!!!!!h-!!!!k!!!!!!!!!h`!!!!l!!!!!!!!!id!!!!m!!!!!!! !!k%!!!!p!!!!!!!!!lS!!!!q!!!!!!!!!mi!!!!r!!!!!!!!!pd!!!"!!!!!!!! !!qX!!!""!!!!!!!!!rN!!!"#!!!!!!!!"!J!!!"$!!!!!!!!""S!!!"%!!!!!!! !"$%!!!"&!!!!!!!!"$d!!!"'!!!!!!!!"%m!!!"(!!!!!!!!"&`!!!")!!!!!!! !"'J!!!"*!!!!!!!!"'m!!!"+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!*6@9bCf8J6h9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e" $!!i!!3!!!!!"!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!!!!!"!!%!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3%!!!%"!!%"!!!"!!!"!!!)!!!!'`)!!!!!!!!"!!%$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3!!#3!!!"`#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!! !!!!!!!%!!!S!!!!G!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!! ,!!!!(J)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!$!!!!"m#!!! !!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!d!!!!J!J!!!!!!!!%!!3- !!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!3!!!!*3)!!!!!!!!"!!%#!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3!!%J!!!#d#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!! !!!!!!!%!!"-!!!!d!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!! 8!!!!1`)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!&3!!!%)#!!! !!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"B!!!!U"3!!!!%!!"!!!3- !!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!A!!!!-J8!!!!"!!!5!!%$!!!!!!!!!!! !!!!!J3!!!!!!!!!!!3!!'!!!!$N&!!!!!3!!%`!"!`!!!!!!!!!!!!!!!)%!!!! !!!!!!!%!!"N!!!"("3!!!!%!!"8!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!! D!!!!2`8!!!!"!!!8!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'`!!!#-#!!! !!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!3!$iH2!!)l'B1X!!!3!!!# 3!2rrp[!!!!!#!!!!!!!!!!%!!!!$!!!!"!!!!!B!!!!&!fRaJ&""@%"D!'9iBb4 LBJ0Tfk!$DHjJ!!!!!!!!!A!$Q!6`DAK5Eh9ZC!K*EQPd!fRES!K*EQPd4h*KCJK 2F'9Z8'pbG!e-Ef0KE&4[4fa[BQ&X$8GXEf*KE&4[6'pMB@`+4`#1aS$V!!!8!!! !)2rrpYJ!!!!!!!!!!!%!!3!$iH2!!)l(%1X!!"3!!!!Jrrrfl!!!!!!!!!!!!3! "!!2Kim!!MXF`k`!!"!!!""$rrrEi6'PL)%PYF'pbG#!f1%X!69"A)%PYF'pbG#! f1%X!3Q&XE'p[EL")C@a`!%eA)%-[3bXV)$Bi5`"09b"3BA0MB@`J0MK,!&*PHJ" 348BJ5@e`Eh*d)$Bi5`!!!#!!"QJ3EfPZG%"!5%X`3&S!!fNDN!!$D6a3k`!!&!! !!#!!"QJNE'9%BA4K3%!c98p-!fNDN!!$D6a`k`!!&!!!!#!!"QJF8Q9MG%!b-!! r4'p%!fNDN!!$D6b3!1X!!"3!!!!J!!CS+'0P3%"4389,5e"#930T'T!!!fNmX1X !!"3!!!!J!!CS)&0[GA*MC8"!3&S!2`0T'T!!!fNmd1X!!"3!!!!J!!CS$!!!!!! !!!!!!!!!!!!!!!!$D6c`k`!!&!!!!#!!"QHmDA"LEf&bC%4KG'&!!fNDN!!$D6d 3k`!!$!!!!$!!"QHd!!%!!!!#!!!!(!!!!!!!!!!!!!!!!!!!!!!!%!0TDq!$D6d `kf!!%!!!!X!!"QHS!!-#!!%"!!%!!!!!!!!!!!!!!!""6P0*)%0[ER0[E'8J0MK V!%CTFR0d)&0PCfePER3!1Q%ZEh9d!%aTBL"*EA"[FR3J0MK,!%e39b"*EA"[FR3 J0MK,!%*KE'a[EfiJ5'9XF!"09b"$,d-V+b!f1%X!69FJ8'&cBf&X)$Bi5`"5CAS !8%9')%PYF'pbG#!f1%X!1N&18dNJ3fpZFfpXC5!f1'XZEh9d!%KPE'a[9fpbE'3 ZB`"08d`J3bif1%XJ4Q%S0'PI1'3T,NaTBJ"08d`J3bXV,MBi5b"'B5JdD9miC#N Z6'PL!%eKG'K-D@)f1%XJ4Q%S0'N[1'3T,NaTBJ"08d`J8R9ZG'PYC6Bi5bj-D@) !6@&M6e-ZE'PL!%e66#"658p9@#if1%XZ6'PL!$T"6P0*)%0[ER0[E'8J8&"$,Qp eG!""6P0*)%0[ER0[E'8J8&"$!%aTBL"*EA"[FR3J8&"$!%eA)%-[3bXV)&"33`" 09b"3BA0MB@`J8&"$!&"33d&cE3"B3dp'4L"*EA"[FR3J8&"$!&"&4L"*EA"[FR3 J8&"$!%e66#"$+bXZ8&"$,NaTBJ"08d`J3bj38%-Z6'PL!%PZG'9bCQ&MC8aTBJ" 0BA4S6'PL!%e66#"5G@jdD@eP8&"$,NaTBJ"08d`J8dP299JZ8&"$,NaTBJ!k38j 655"$)%0[ER0[E'8J8&"$!%&18dNJ3b"$EfjcEfaP)&"33`"SC'CXFbjM!'KNCQa TBLj38%-ZE'PL!'KNCQaTBLj`FQpUC@0d!'KNCL"-D@)J0MK,)%4PBR9R!$TSC'B f1'XZ4Q&b+$4T,cKN+5jXD@)!D'4Q)%aTBL!f1%X!D'4Q)%aTBL"38%-J4'9LG@F !1QKNCQaTBLj38%-ZE'PL!'KNCL"-D@)J8&"$!'T`C@FZ8&"$,QaTBJ"UF'9RE'P L,R"bEfTPBh3!DR"PCb"-D@)J0MK,)%4PBR9R!$TUF'9R0MKV,NCKFLJdD5miC#N ZE'PL!'T`C@FJ6'PL)$Bi5`"UF'9R)%aTBL"38%-J4'9LG@F!1QT`C@FZ8&"$,Qa TBJ"UF'9R)%aTBL"38%-!HQaTBLj`FQpUC@0d!(TXD@)J0MK,)%4PBR9R!$Tk0MK V,NCKFLJdD5miC#NZE'PL!(TXD@)J0MK,!(TXD@)J8&"$)%4PBR9R!$Tk,P"33bj XD@)!HQaTBL"38%-!E@CSC'CXD@)ZF(*[DQ9MG!"YCQKNCL"-D@)J0MK,)%4PBR9 R!$TYCQKNCMBiDbj'BA)S0'N[1'3T,QaTBJ"YC'KNCL"-D@)J8&"$)%4PBR9R!$T YCQKNCLj38%-ZE'PL!'eQD'4Q)%aTBL!f1%X!E@CSC'BJ6'PL)&"33`"iC(*XD@) ZF(*[DQ9MG!"iC()J6'PL)$Bi5b"%C@*eC`!kH'4b0MKV,NCKFLJdD5miC#NZE'P L!(KNFL"-D@)J0MK,!(KNFL"-D@)J8&"$)%4PBR9R!$TiC()Z8&"$,QaTBJ"iC() J6'PL)&"33`!kD'4QE(-!D'4QE(-J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!-!!!!'!!!!!`!!!!Dc4L35!!!@5J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!!5J%!!!%!!!!!!!!!!!3!!!!!5E&hERS!!#Gc!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!-36@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#@KNCQac)&"33fjcEfaP)&"33`!!!!! !!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!! !!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !AepcG'&bG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!"!$D@[ J!fNp-1YJ!"!!!!,!!!CRU%&18dNJ3fpZFfpXC5!f1'Xk3h9cG'pY)%YPHAG[FQ4 c!%&18dNJ3fpZFfpXC5!f1'Xk3@0MCA0c)&"KG'Kc!%&18dNJ3fpZFfpXC5!f1'X k9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk4QPXC5"0BA"`D@jRF`" "6P0*)%0[ER0[E'8J0MKV1N*eD@aN)%9iG(*KF`""6P0*)%0[ER0[E'8J0MKV1MB i5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%4TFf&cFf9YBQaPFJ""6P0 *)%0[ER0[E'8J0MKV1MBi5b"-D@jVCA)!38j655"$EfjcEfaP)$BiDcSf1%XJ8(* [DQ9MG!""6P0*)%0[ER0[E'8J0MKV1N-[3bXV)%0[EA"TE'9b!%&18dNJ3fpZFfp XC5!f1'Xk3bp$+bXJ9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT$4Ndf1%X!38j 655"$EfjcEfaP)$BiDcT*8L"2F(4TE@PkCA)!38j655"$EfjcEfaP)$BiDcT+BAC K)%peG("eG!""6P0*)%0[ER0[E'8J0MKV1NTKGQ%J8(*[DQ9MG!""6P0*)%0[ER0 [E'8J0MKV1NTKGQ%J9Nd!38j655"$EfjcEfaP)$BiDcT0B@028b"0CA*RC5"3B@j PE!""6P0*)%0[ER0[E'8J0MKV1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%0[ER0[E'8 J0MKV1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1P"33b"$Ef4P4f9 Z!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8 J0MKV1P"33b"-D@jVCA)!38j655"$EfjcEfaP)$BiDcT38%-J8%9'!%&18dNJ3fp ZFfpXC5!f1'Xk8&"$)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT38%0"FfdJ8'& ZC@`!38j655"$EfjcEfaP)$BiDcT5CASJ3fpYF'PXCA)!38j655"$EfjcEfaP)$B iDcTAD@j53b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"$Ef4P4f9Z!%& 18dNJ3fpZFfpXC5!f1'XkH$Jf)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1RJi0L" 3FQpUC@0d!&"bEfTPBh3J4QPXC5"-DA0d!%&18dNJ3fpZFfpXC5"38%-k3h9cG'p Y)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%&18dNJ3fp ZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fpZFfpXC5"38%-k4QPXC5" 0BA"`D@jRF`""6P0*)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`""6P0*)%0[ER0 [E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-k0MK,)%4TFf&cFf9 YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA)!38j655"$EfjcEfaP)&" 33cSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0[E'8J8&"$1N-[3bXV)%0[EA"TE'9b!%& 18dNJ3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQPZCh-!38j655"$EfjcEfaP)&"33cT $4Ndf1%X!38j655"$EfjcEfaP)&"33cT*8L"2F(4TE@PkCA)!38j655"$EfjcEfa P)&"33cT+BACK)%peG("eG!""6P0*)%0[ER0[E'8J8&"$1NTKGQ%J8(*[DQ9MG!" "6P0*)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j655"$EfjcEfaP)&"33cT0B@028b" 0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe`D@aPFJ""6P0 *)%0[ER0[E'8J8&"$1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J8&"$1P" 33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-k8&"$)%4TFf&cFf9YBQaPFJ""6P0 *)%0[ER0[E'8J8&"$1P"33b"-D@jVCA)!38j655"$EfjcEfaP)&"33cT38%-J8%9 '!%&18dNJ3fpZFfpXC5"38%-k8&"$)&"bEfTPBh3!38j655"$EfjcEfaP)&"33cT 38%0"FfdJ8'&ZC@`!38j655"$EfjcEfaP)&"33cT5CASJ3fpYF'PXCA)!38j655" $EfjcEfaP)&"33cTAD@j53b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J8&"$1RJi0L" $Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0*)%0[ER0[E'8 J8&"$1RJi0L"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT$GA0dEfdJ5f9jGfp bC(-!38j655"$)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`""6P0*)%-J3fpZFfp XC5"38%-k9'&bCf9d)&0PG(4TEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT'D@aP)%e KF("TEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j655"$)%0 [ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cSf1%XJ4'P cBA0cC@eLE'9b!%&18dNJ3b"$EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%&18dNJ3b" $EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k3bp$+bX J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dN J3b"$EfjcEfaP)&"33cT$4Ndf1%X!38j655"$)%0[ER0[E'8J8&"$1NP5)%p`G'P YDATPFJ""6P0*)%-J3fpZFfpXC5"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!38j655" $)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%- k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J3fpNC8GPEJ" "6P0*)%-J3fpZFfpXC5"38%-k8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfp XC5"38%-k8&"$)%aTEQYPFJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)&"&4J""6P0 *)%-J3fpZFfpXC5"38%-k8&"$)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1P" 33d&cE5"3B@jPE!""6P0*)%-J3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9b!%&18dN J3b"$EfjcEfaP)&"33cT+BACK)%peG("eG!""6P0*)%-J3fpZFfpXC5"38%-k5Q& fB5"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT+BACK)&C0!%&18dNJ3b"$Efj cEfaP)&"33cTAD@j53b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%0 [C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655"$)%0[ER0 [E'8J8&"$1RJi0L"3FQpUC@0d!'KNCQac)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4 QE(-J8&"$1N&MBf9cFb"3BA4SF`"SC'CXFb"38%-k9'&bCf9d)&0PG(4TEQGc!'K NCQac)&"33cT'D@aP)%eKF("TEQGc!'KNCQac)&"33cT#G@PXC#"&H(4bBA-!D'4 QE(-J8&"$1MBi5b"$Ef4P4f9Z!'KNCQac)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'K NCQac)&"33cSf1%XJ6'PZDf9b!'KNCQac)&"33cSf1%XJ8(*[DQ9MG!"SC'CXFb" 38%-k3bp$+bXJ3fpYF'PXCA)!D'4QE(-J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCQa c)&"33cT$4Ndf1%X!D'4QE(-J8&"$1NP5)%p`G'PYDATPFJ"SC'CXFb"38%-k6@& M6e-J6@9bCf8J8'&ZC@`!D'4QE(-J8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'CXFb" 38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQac)&"33cT38%-J3fpNC8GPEJ"SC'CXFb" 38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'CXFb"38%-k8&"$)%aTEQYPFJ"SC'CXFb" 38%-k8&"$)&"&4J"SC'CXFb"38%-k8&"$)&"bEfTPBh3!D'4QE(-J8&"$1P"33d& cE5"3B@jPE!"SC'CXFb"38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!3!!%!!!!!3!!!! !*J!!!#F!!!!!"3!!!!!!!!!S!!!!*`!!!!!&!!!!!!!!!#N!!!!U!!!!!!8!!!! !!!!!+`!!!#S"!!!@"3%"!!%!!")!!!!%!!!!!#i!!!![!!!!!!8!!!!!!!!!-!! !!#m!!!!!"3!!!!!!!!!a!!!!-J!!!!!&!!!!!!!!!$-!!!!b!3!!&`8"!3!"!!! 6!!!!"!!!!!!e!!!!0J!!!!!&!!!!!!!!!$F!!!!f!!!!!!8!!!!!!!!!1!!!!$N !!!!!"3!!!!!!!!!k!!!!13%!!"J&!3%!!3!!&!!!!!3!!!!!2!!!!$d!!!!!"3! !!!!!!!!q!!!!2`!!!!!&!!!!!!!!!%!!!!!p!!!!!!8!!!!!!!!!33!!!$m"!!! D"3%"!!%!!"8!!!!%!!!!!%-!!!"%!!!!!!8!!!!!!!!!43!!!%3!!!!!"3!!!!! !!!"'!!!!4`!!!!!&!!!!!!!!!%J!!!"(!3!!'38"!3!!"X)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!"@KNCQac3b"$EfjcEfaP)&" 33bj[GA3!!!!!!!!!!!!r2cmr39"36!!!!I3!!!(d!!!!3!!!@-!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm!!!! !!!!!93'3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cm r2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%J!!!!!!!!!!!!!!!!!!!'!!!25Q&fB80 XBA0cCA-ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH(" XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N #H`!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&#G$6d4&*b! R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!!"9*26e3!!!!!!!!!!!!!!!!%4e*98!!!!!!!!!!$"e0[GA* MCA-!!!!"4NP-43%!!"Y(8P93!!!!!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP -43%!!!P'58a&!3!!#%C*6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA- !!!!$4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR- !!!!'4e*98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a &!3!!%dC*6%8"!!!84NP-43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a &!3!!'8C*6%8"!!!D!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP -43%!!!T'58a&!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e* 98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC *6%8"!!!84NP-43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C *6%8"!!!D8(*[DQ9MG(-!!!!&4NP-43%!!""'58a&!3!!%NC*6%8"!!!64NP-43% !!"4'58a&!3!!&8C*6%8"!!!@4NP-43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43% !!"S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e0 33`!$!J!"!3!"!!!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!!B!!!p+BACK3faKFh0 PFbjkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!! Q!!!!*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!! !!!!V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!! !,`!!!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"- !!!!%!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13! !!!!&!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!! !!!!!!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`!!!!! &!!!!!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!! !!%B!!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!"*"6P0*)%-J3fp ZFfpXC5"38%-ZEh9d!!!!!!!!!!!!2cmr2d&38%`!!!'!!!!"J!!!!%!!!&M!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cm r2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!% !!!d!"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9 bEQ9d)%9iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!&! !!3!"!!%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!"@% ZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!! !"!"9!C!!!3N#H`!!!!!!!!!!!!!!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM)J,5" bC@aPBA0P1QKNCMTeG'PX1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!!!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!%!!%k1MTkE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!!"3!"1MSk1QeQD'4Q1QaTBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B!!6S k1MTYCQKNCMTiC()k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4KEQ4 KFQ3J6'PLFQ&bH6T08d`J8(*PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"1N!!!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR* KFRNk690-)%-k!'P[FMT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%- k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3"!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#" $+bXk!!2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'`%Ib! S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib2N!! $bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!!!!!% %Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fpl!ib 2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZEB!! !!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi$bjZ 3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!!!!!2 '9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!!!!!- !!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J!!!! !!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3$NBl X!mZF8!1-Mj!!!Im"!%!!!!)!!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU!!ib 2N!!$bjUmrrrrr`2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2 '9'`%Ib!S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!! I!ib2N!!$bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZ E!!!!!!%%Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m !(fpl!ib2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!! !!mZEB!!!!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1 @,Bi$bjZ3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm 3!!!!!!2'9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp -!!!!!!-!!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2 '9#J!!!!!!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4 dSD3$NBlX!mZF8!1-Mj!!!Im"!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!5!!!!!!!!%!"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!&069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!439"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!3dq-D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!5QTbCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jUBAC K!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"!!!!!@QP`4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#jME'& cF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e-J0MK ,)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%p#5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9 XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!%!! !!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!! !!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZFf9R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3 J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!! !!%eKBdp6)%ePFQGP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39" 36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e -3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G $4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9 B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9 B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9 B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jc!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!C'p MG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfK XBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!%N0-99-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!>EM-b)(Ji0L"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K8,Q- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" `G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R* PF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!!!,Qa TBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'3,VB!!! RFJ!!%!"YFh4b!!!!!!!!!!!!!!C!Zf`!!!!S!!!'!'ecG'`!!!!!!!!!!!!!"N# j$!!!"LJ!!!)!EA0dEJ!!!!!!!!!!!!!!!!!!!!!)+!!!!#KYFh4T!!!!!!!!!!! !!!C!Zf3!!"E5!!!)!'ecG()!!!2S!!!!!!!!"N#pJ!!!$'J!!!5!EA0dE!!!!qJ !!!!!!!!'3,YJ!!!)8!!!!B"YFh4Z!!!$k!!!!!!!!!C![!!!!"'q!!!&!'edF'` !!!!"!!!!!!!!"N#m$!!!#IJ!!!#!EA4`F`!!!!%!!!!!!!!'3,Yi!!!-8!!!!"K YG(0X!!!!!3!!!!!!!!!!!!!!!!R3!!!!+'ecG'N!!!2S!!!!!!!!"N#je!!!(Y) !!!)XEA"cD3!!!qJ!!!!!!!!'3,S`!!!JrJ!!!KTYG'GX!!!$k!!!!!!!!!!!!!! !!!Ti!!!!$QedF'N!!!!"!!!!!!!!"N#lG!!!#SB!!!!`EA4XE`!!!!%!!!!!!!! '3,bX!!"%&J!!!5936(0d!!$*c3!!!"m!!!!!!!!!!%H3!!!!!#j`FQ9Q!!&,NJ! !!#d!!!!!!!!!!%Z2!!!%5A"bC@B!!J+[!!!!,J!!!!!!!!!!%ES!!!!%F(*PCJ! "fq`!!!![!!!!!!!!!!",43!!!#4`FQ9Q!!(N33!!!$S!!!!!!!!!!%YT!!!!#R" bC@B!!G93!!!!1`!!!!!!!!!!8H3!!!#5F(*PCJ!"h9X!!!!m!!!!!!!!!!"5GJ! !!%T`FQ9Q!!(YE`!!!$d!!!!!!!!!!$b&!!!!,R"bC@B!!32Z!!!!93!!!!!!!!! !2,-!!!4*F(*PCJ!"9J8!!!"@!!!!!!!!!!"!r!!!!!4`FQ9Q!!&PR`!!!&F!!!! !!!!!!%%!!!!!*("bC@B!!+-h!!!!@!!!!!!!!!!!353!!!!+F(*PCJ!!L"3!!!" C!!!!!!!!!!"",J!!!**`FQ9Q!!#VT`!!!&S!!!!!!!!!!%(!!!!!5R"bC@B!!49 R!!!!@`!!!!!!!!!!0h)!!!'!EA0`D3!!!!%!!!!!!!!!!!!!!!!+YJ!!!"T`FQ9 Q!!@H#`!!!&`!!!!!!!!!!&,!!!!BF("bC@B!"4"N!!!!A3!!!!!!!!!!)aJ!!!* NF(*PCJ!&1G8!!!"H!!!!!!!!!!"V-!!!),T`FQ9Q!!@B9!!!!&m!!!!!!!!!!!V 3!!!!"("bC@B!"C3N!!!!B!!!!!!!!!!!#Y3!!!!BF(*PCJ!&M83!!!"K!!!!!!! !!!!+l!!!!!T`FQ9Q!!9-H3!!!')!!!!!!!!!!!Vf!!!!$R"bC@B!"@&(!!!!B`! !!!!!!!!!#`3!!!$'F(*PCJ!&2SJ!!!"N!!!!!!!!!!!,bJ!!!$K`FQ9Q!!8-k`! !!'8!!!!!!!!!!!`#!!!!$("bC@B!"1AB!!!!CJ!!!!!!!!!!*A`!!!(DF(*PCJ! &PpB!!!"R!!!!!!!!!!!-$J!!!!a`FQ9Q!!9'e!!!!'J!!!!!!!!!!"$S!!!!BR" bC@B!"25Y!!!!D3!!!!!!!!!!%8S!!!!iF(*PCJ!&5k3!!!"U!!!!!!!!!!!-'J! !!!e`FQ9Q!!6C+J!!!'X!!!!!!!!!!!`R!!!!&("bC@B!"4ZC!!!!E!!!!!!!!!! !$$X!!!!+F(*PCJ!&Uhd!!!"Y!!!!!!!!!!!imJ!!!-4`FQ9Q!!9@#3!!!'i!!!! !!!!!!$Qf!!!"&R"bC@B!"6dY!!!!E`!!!!!!!!!!1X`!!!#kF(*PCJ!&-eJ!!!" `!!!!!!!!!!!4JJ!!!#j`FQ9Q!!6,J3!!!(%!!!!!!!!!!%)+!!!#$("bC@B!"@l B!!!!FJ!!hHF!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/vshow.project.hqx0000644000000000000000000014612412421456623020403 0ustar (This file must be converted with BinHex 4.0) :$ACcD'ph,R"bEfTPBh3!68e3FN0A588!!!!!PQB!!!!!hkpMEfpX!!!!!J!!!#J !!*!!`J!!N!$U!!!&I!!!!$B"!!!!!!!!!!!!!!!!!!!!!!!!!@-N3N)!!!!K!!! !!J!!!!!!!!!r!!!!!h0S#&!!!!"J!!!!"!0TlY!!!!"r!!!!"3T"C'3!!!#G!!! !"P"TEP)!!!#k!!!!"f&3EfN!!!$F!!!!#%e*G'8!!!$i!!!!#A45CA-!!!%9!!! !#NePER8!!!%e!!!!#h4$Efi!!!&9!!!!$%0[ER3!!!&Y!!!!$@pcC8-!!!',!!! !$QPXE%-!!!'S!!!!$e0SEhF!!!('!!!!%%KTC'8!!!(I!!!!%8e[GQ8!!!)#!!! !%NGPG%-!!!)M!!!!%f9d3e)!!!*%!!!!&(TP3fm!!!*K!!!!&@aTG'8!!!+$!!! !&NGPG%-!!!+I!!!!&h4$9'N!!!+i!!!!'(4X9Q%!!!,9!!!!'@PZ3h3!!!,c!!! !'N0dE!X!!!-4!!!!'faeC3N!!!-a!!!!('`*8f8!!!01!!!!(94PFh3!!!0U!!! !(N4bB@F!!!1(!!!!(e4bB@-!!!1C!!!!)!a%FQ%!!!1k!!!!)3!!!B!!!!2B!!! !)J!!!!B!!!2j!!!!)kpi49m!!!3B!!!!*!!!!!!!!!3f!!!!*3!!!!!!!!46!!! !*J!!!!!!!!4e!!!!*`!!!!!!!!54!!!!+!!!!!!!!!5Z!!!!+3!!!!!!!!61!!! !+J!!!!!!!!6Z!!!!+`!!!!!!!!8'!!!!,!!!!!!!!!8N!!!!,3!!!!!!!!9"!!! !,J!!!!!!!!9I!!!!,`!!!!!!!!9i!!!!-!!!!!!!!!@E!!!!-3!!!!!!!!@m!!! !-J!!!!!!!!AG!!!!-`!!!!!!!!Ak!!!!0!!!!!!!!!BF!!!!03!!!!!!!!Bi!!! !0J!!!!!!!!C4!!!!0`!!!!!!!!CZ!!!!1!!!!!!!!!D-!!!!13!!!!!!!!DU!!! !1J!!!!!!!!E+!!!!1`!!!!!!!!ER!!!!2!!!!!!!!!F$!!!!23!!!!!!!!FJ!!! !2J!!!!!!!!G$!!!!2`!!!!!!!!GM!!!!3!!!!!!!!!H'!!!!33!!!!!!!!HR!!! !3J!!!!!!!!I(!!!!3`!!!!!!!!IQ!!!!4!!!!!!!!!J+!!!!43!!!!!!!!JS!!! !4J!!!!!!!!K(!!!!4`!!!!!!!!KT!!!!5!!!!!!!!!L,!!!!53!!!!!!!!LP!!! !5J!!!!!!!!M&!!!!5`!!!!!!!!MU!!!!6!!!!!!!!!N0!!!!63!!!!!!!!N`!!! !6J!!!!!!!!P2!!!!6`!!!!!!!!Pc!!!!8!!!!!!!!!Q4!!!!83!!!!!!!!QX!!! !8J!!!!!!!!R,!!!!8`!!!!!!!!RV!!!!9!!!!!!!!!S,!!!!93!!!!!!!!SU!!! !9J!!!!!!!!T+!!!!9`!!!!!!!!TP!!!!@!!!!!!!!!U(!!!!@3!!!!!!!!UQ!!! !@J!!!!!!!!V%!!!!@`!!!!!!!!VM!!!!A!!!!!!!!!Vp!!!!A3!!!!!!!!X8!!! !AJ!!!!!!!!XZ!!!!A`!!!!!!!!Y'!!!!B!!!!!!!!!YG!!!!B3!!!!!!!!Yc!!! !BJ!!!!!!!!Z1!!!!B`!!!!!!!!ZM!!!!C!!!!!!!!!Zj!!!!C3!!!!!!!![5!!! !CJ!!!!!!!![V!!!!C`!!!!!!!![m!!!!D!!!!!!!!!`6!!!!D3!!!!!!!!`[!!! !DJ!!!!!!!!a*!!!!D`!!!!!!!!aM!!!!E!!!!!!!!!aj!!!!E3!!!!!!!!b8!!! !EJ!!!!!!!!bT!!!!E`!!!!!!!!bl!!!!F!!!!!!!!!c4!!!!F3!!!!!!!!cS!!! !FJ!!!!!!!!cr!!!!F`!!!!!!!!dC!!!!G!!!!!!!!!d`!!!!G3!!!!!!!!e+!!! !GJ!!!!!!!!eL!!!!G`!!!!!!!!ej!!!!H!!!!!!!!!f2!!!!H3!!!!!!!!fU!!! !HJ!!!!!!!!fr!!!!H`!!!!!!!!h9!!!!I!!!!!!!!!hZ!!!!I3!!!!!!!!i(!!! !IJ!!!!!!!!iB!!!!I`!!!!!!!!i[!!!!J!!!!!!!!!j,!!!!J3!!!!!!!!jP!!! !JJ!!!!!!!!jr!!!!J`!!!!!!!!k9!!!!K!!!!!!!!!k`!!!!K3!!!!!!!!l&!!! !KJ!!!!!!!!lA!!!!K`!!!!!!!!lY!!!!L!!!!!!!!!m%!!!!L3!!!!!!!!mE!!! !LJ!!!!!!!!me!!!!L`!!!!!!!!p-!!!!M!!!!!!!!!pQ!!!!M3!!!!!!!!pq!!! !MJ!!!!!!!!q9!!!!M`!!!!!!!!qV!!!!N!!!!!!!!!!2aJ!!!*%!!!!!!!!2f`! !!*)!!!!!!!!2m3!!!*-!!!!!!!!3#J!!!*3!!!!!!!!3)`!!!*8!!!!!!!!30!! !!*B!!!!!!!!35`!!!*F!!!!!!!!3C`!!!*J!!!!!!!!3J3!!!*N!!!!!!!!3Q`! !!*S!!!!!!!!3X3!!!*X!!!!!!!!3c!!!!*`!!!!!!!!3i3!!!*d!!!!!!!!3m`! !!*i!!!!!!!!4#3!!!*m!!!!!!!!4)!!!!+!!!!!!!!!!S!!!!+!!!"%h!!!8!!! !!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!J!!!!#J!!!")!!!!Q!!!!6`! !!#N!!!")!!!!-3!!!#i!!!!q!!!!2!!!!&%!!!"'!!!!3`!!!$J!!!!e!!!!)3! !!!!!!!!6!!!!"3!!!!%!!!!R!!!!*3!!!#S!!!!S!!!!8!!!!#-!!!!N!!!!53! !!#)!!!!,!!!!6J!!!%S!!!",!!!!6!!!!%d!!!!F!!!!,`!!!#d!!!!b!!!!-!! !!#X!!!!X!!!!!`!!!"3!!!!3!!!!(3!!!!i!!!!p!!!!2`!!!$X!!!"!!!!!1J! !!!3!!!!0!!!!'J!!!!`!!!!E!!!!$`!!!"i!!!!4!!!!(`!!!!B!!!!9!!!!"`! !!"B!!!!*!!!!'3!!!"F!!!!)!!!!8J!!!&-!!!!B!!!!4!!!!%)!!!"(!!!!43! !!%%!!!!f!!!!0!!!!$N!!!!h!!!!-`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&3!!!"J!!!%e`!!#!!!!!"8!!!!!!! !!!!!!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm!!!!!Irm!!!!!Irm!!!!#!3!!"J) !!!!!!!%"!!%"!!!!!3!!!!%!!!!!!3%!!!%"!!%!!!F"!!%"!!%"!!!!!3!!!3% "!!!"!3!"!!!!!!!!!!%!!!!#!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!! !!!J!!!!0!!!!#3!!!!m!!!!+!!!!$J!!!"!!!!!4!!!!%J!!!"-!!!!8!!!!&3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!EhY[HfplEhX!!`%"!3%"!3% !!3!!!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!!!%3!!!#!"!!%!!#%"!!!D!3! !'3%!!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3%!!#%!#!!!&%& 18dNJ3fpZFfpXC5!f1'XZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cm r2`!!!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!! !!!N!!3!"!3!!$%eKBdKPB@4PFR-ZD'KKBbjS!!!!!!!!!!!!!!!!!!!"!!!!!!! !!!!!!!!!!!!!!3!!#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0 VD@43FQpU9e033`!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!!!!!!3!"!!!!!!%!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!! !!!"#!!!!3`!!!%3!!!"&!!!!2J!!!%%!!!"'!!!!4`!!!%J!!!!p!!!!3!!!!%N !!!"8!!!!93!!!&B!!!"+!!!!5`!!!%`!!!"0!!!!6J!!!%m!!!"3!!!!83!!!&) !!!"6!!!!2`!!!&F!!!"B!!!!@3!!!&S!!!!&!!!!"J!!!!F!!!!)!!!!!3!!!!3 !!!!*!!!!#J!!!!X!!!!!!!!!!`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3!!!") !!!!6!!!!&!!!!"8!!!!@!!!!&`!!!"J!!!!C!!!!!J!!!"S!!!!E!!!!(!!!!"d !!!!N!!!!*3!!!#B!!!!R!!!!)!!!!#-!!!!S!!!!+3!!!#S!!!!I!!!!)J!!!#X !!!!X!!!!,3!!!#i!!!![!!!!-!!!!$%!!!!b!!!!-`!!!$3!!!!e!!!!0J!!!$F !!!!i!!!!)3!!!$N!!!!k!!!!1`!!!$`!!!"h!!!!H!!!!(N!!!"k!!!!F`!!!(B !!!"l!!!!I!!!!(d!!!"b!!!!G3!!!(i!!!"r!!!!J!!!!)%!!!##!!!!J`!!!)3 !!!#&!!!!KJ!!!)F!!!#)!!!!G!!!!'!!!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3 !!!"P!!!!CJ!!!&X!!!"H!!!!C`!!!'J!!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i !!!"[!!!!F!!!!(%!!!"G!!!!(J!!!)i!!!#2!!!!N!!!!!#4!!!!LJ!!!)d!!!# 5!!!!N`!!!*3!!!#*!!!!M!!!!*8!!!#@!!!!P`!!!*J!!!#C!!!!QJ!!!*X!!!# F!!!!R3!!!*i!!!#I!!!!L`!!!!-!!!!'!!!!!`!!!!Dc4NHT!!!V13!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`) !!3%!!3!!!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e033`! #!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!3!!!3%!!3%!!!%!!%&18dNJ3fpZFfpXC5!f1'X!4QPbFh3J8f9 RE@9ZG!!kB5j[GA3!6'PL)%PYF'pbG#!f1%X!69"A)%PYF'pbG#!f1%X!3Q&XE'p [EL")C@a`!%eA)%-[3bXV)$Bi5`"09b"3BA0MB@`J0MK,!&*PHJ"348BJ5@e`Eh* d)$Bi5`!k38j655"$EfjcEfaP)$BiDbj[GA3!5'9XE'pAEh*XC#jM!%e66#"$,MB i5b"'B5JdD9miC#NZ6'PL!%e66#"$+bXZ0MK,)%CK+$4TAcKN+5j-D@)!6@&dD%a TBMBi5b"'B5JdD5miC#NZ6'PL!%e66#"5G@jdD@eP0MK,,NaTBJ"0B@028bjXD@) !690-)&0*6e9B,MBi5bj-D@)!1N&18dNJ3fpZFfpXC5"38%-ZEh9d!%&18dNJ3fp ZFfpXC5"38%-!6'PL)%PYF'pbG#"38%-!69FJ3bp$+bXJ8&"$!%eA)&"KFf0KE#" 38%-!8&"$3A0Y!&K$6dC')%PYF'pbG#"38%-!8%9')%PYF'pbG#"38%-!690-)%- V+bj38%-Z6'PL!%e66#"$,P"33bj-D@)!5@jdCA*QB@0P6'PL!%eKG'K-D@)!690 -)&*eER4TE@938%-Z6'PL!%e66#"658p9@#j38%-Z6'PL!$T"6P0*)%-J3fpZFfp XC5"38%-!38j655"$)%0[ER0[E'8J8&"$!'KNCQac,Q-!D'4QE'PL,P"33bjXD@) !D'4QE'PL,R"bEfTPBh3!D'4Q)%aTBL!f1%XJ4'9LG@F!1QKNCMBiDbj'BA)S0'N [1'3T,QaTBJ"SC'BJ6'PL)$Bi5`"SC'BJ6'PL)&"33b"%C@*eC`!kD'4QE'PL,P" 33bjXD@)!D'4Q)%aTBL"38%-!DR"PCbj38%-ZE'PL!'T`C@GXD@)ZF(*[DQ9MG!" UF'9R)%aTBL!f1%XJ4'9LG@F!1QT`C@Ff1'XZ4Q&b+$4T,cKN+5jXD@)!DR"PCb" -D@)J0MK,!'T`C@FJ6'PL)&"33b"%C@*eC`!kDR"PCbj38%-ZE'PL!'T`C@FJ6'P L)&"33`"kE'PL,R"bEfTPBh3!HQaTBL!f1%XJ4'9LG@F!1RSf1'XZ4Q&b+$4T,cK N+5jXD@)!HQaTBL!f1%X!HQaTBL"38%-J4'9LG@F!1RSZ8&"$,QaTBJ"kE'PL)&" 33`"YCQKNCQaTBLj`FQpUC@0d!'eQD'4Q)%aTBL!f1%XJ4'9LG@F!1QeQD'4Q0MK V,NCKFLJdD5miC#NZE'PL!'eND'4Q)%aTBL"38%-J4'9LG@F!1QeQD'4Q,P"33bj XD@)!E@CSC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&"$!(KNFQaTBLj`FQpUC@0d!(K NFL"-D@)J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4T,cKN+5jXD@)!H'4b)%aTBL! f1%X!H'4b)%aTBL"38%-J4'9LG@F!1RKNFLj38%-ZE'PL!(KNFL"-D@)J8&"$!$T SC'CXF`"SC'CXFb"38%-!D'9IC'PcF#jM!'KPAfCTE'8ZB`"SC9pYB@PZ,Q-!D'9 IF(*[G'mZD!"SC9pMER4bE#jM!$TSC'CPC!"SC'CPC#"38%-!1RCcD'ph!(CcD'p h)&"33`"fFfK[GbjM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%"#!!!!!!!%3!!!!)!!!!!!!!!(`!!!!0RFfpL!!!!*J! !!!3$D@13!!!!!$8!!!!&!3%"!3!!!%3!!!!'!!!!!!!!!&%!!!!(!!!!!!!!!&i !!!!)!!!!!3!!!'`!!!!*'HB!!!!!!(!!!!!+!!"LC3!!!(m!!!!,C%9[BJ!!!*8 !!!!-C(3!!!!!!+)!!!!0!!!!!!!!!,S!!!!1!!!!!!!!!03!!!!2rZ!!C!!!!1d !!!!3BQTN!!!!!3!!!!!4!"R4!!!!!3S!!!!5!!!!!!!!!4`!!!!6!2rrr`!!!6) !!!!8Ef*UC!!!!8-!!!!9!!!!!!!!!9)!!!!@!!!!!!!!!9m!!!!A!!$rr`!!!@d !!!!B!)G[BJ!!!A3!!!!CF(3!!!!!!B8!!!!D!!!!!!!!!C3!!!!E!!!!!!!!!D3 !!!!FE'&MC3!!!E)!!!!G!!!pC`!!!Em!!!!H&J!3!3!!!FF!!!!I'!!!!!!!!GS !!!!Jr`!!'3!!!H`!!!!K!!!"J!!!!J!!!!!L!!!!!!!!!K-!!!!M!!!!!!!!!KX !!!!NZG!!!!!!!LS!!!!PG'`!!!!!!MN!!!!Q!j'*`!!!!NX!!!!REA0dEJ!!!Q) !!!!S!!!$N3!!!Qi!!!!T!#KYF`!!!S!!!!!U!!!!!!!!!T!!!!!!+fplEhX!!!+ F!!!!,!#JHf!!!!+T!!!!,3!!!M!!!!+j!!!!,J!!!"3!!!,-!!!!,`!!!!!!!!, N!!!!-!!!!!!!!!,a!!!!-3!!!!!!!!-%!!!!-J!!!!!!!!-5!!!!-`!!!!!!!!- I!!!!0!!!!!!!!!-X!!!!03!!!!!!!!-l!!!!0J!!!!!!!!03!!!!0`!!!!!!!!0 C!!!!1!!!!!!!!!0S!!!!13!!!!!!!!0c!!!!1J!!!!!!!!0m!!!!1`!!!!!!!!1 0!!!!2!!!!!!!!!1K!!!!23!!!!!!!!1k!!!!2J!!!!!!!!21!!!!2`!!!!!!!!2 G!!!!3!!!!!!!!!2V!!!!33!!!!!!!!2j!!!!3J!!!!!!!!3)!!!!3`!!!!!!!!3 D!!!!4!!!!!!!!!3a!!!!43!!!!!!!!3p!!!!4J!!!!!!!!42!!!!4`!!!!!!!!4 F!!!!5!!!!!!!!!4S!!!!53!!!!!!!!4[!!!!5J!!!!!!!!4j!!!!5`!!!!!!!!5 $!!!!6!!!!!!!!!50!!!!63!!!!!!!!5A!!!!6J!!!!!!!!5L!!!!6`!!!!!!!!5 Y!!!!8!!!!!!!!!5d!!!!83!!!!!!!!5q!!!!8J!!!!!!!!6&!!!!8`!!!!!!!!6 2!!!!9!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!D!3!!'3%!!"J"!!!A!3!!&J%!!!J"!!!*!3!!#J%!!!X"!!! -!3!!$3%!!"`"!!!G!3!!(J%!!"m"!!!J!3!!)HX!!!`!!!!`!!CRY!!"!!!!!J! !!"`!!!!!!!!!!!!!!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!CRU%&18dNJ3fp ZFfpXC5!f1'Xk3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5!f1'Xk3@0MCA0 c)&"KG'Kc!%&18dNJ3fpZFfpXC5!f1'Xk9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fp ZFfpXC5!f1'Xk4QPXC5"0BA"`D@jRF`""6P0*)%0[ER0[E'8J0MKV1N*eD@aN)%9 iG(*KF`""6P0*)%0[ER0[E'8J0MKV1MBi5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5! f1'Xk0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"-D@jVCA) !38j655"$EfjcEfaP)$BiDcSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1N- [3bXV)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ9f&bEQPZCh-!38j 655"$EfjcEfaP)$BiDcT$4Ndf1%X!38j655"$EfjcEfaP)$BiDcT*8L"2F(4TE@P kCA)!38j655"$EfjcEfaP)$BiDcT+BACK)%peG("eG!""6P0*)%0[ER0[E'8J0MK V1NTKGQ%J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1NTKGQ%J9Nd!38j655"$Efj cEfaP)$BiDcT0B@028b"0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P"KFf0 KE#"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J0MKV1P"KFf0KE#"ABA*ZD@jRF`""6P0 *)%0[ER0[E'8J0MKV1P"33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)%4 TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"-D@jVCA)!38j655"$Efj cEfaP)$BiDcT38%-J8%9'!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"bEfTPBh3!38j 655"$EfjcEfaP)$BiDcT38%0"FfdJ8'&ZC@`!38j655"$EfjcEfaP)$BiDcT5CAS J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcTAD@j53b"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1RJi0L"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%aTEQY PFJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"3FQpUC@0d!&"bEfTPBh3J4QPXC5"-DA0 d!%&18dNJ3fpZFfpXC5"38%-k3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5" 38%-k3@0MCA0c)&"KG'Kc!%&18dNJ3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQG c!%&18dNJ3fpZFfpXC5"38%-k4QPXC5"0BA"`D@jRF`""6P0*)%0[ER0[E'8J8&" $1N*eD@aN)%9iG(*KF`""6P0*)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dN J3fpZFfpXC5"38%-k0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1MB i5b"-D@jVCA)!38j655"$EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0 [E'8J8&"$1N-[3bXV)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ9f& bEQPZCh-!38j655"$EfjcEfaP)&"33cT$4Ndf1%X!38j655"$EfjcEfaP)&"33cT *8L"2F(4TE@PkCA)!38j655"$EfjcEfaP)&"33cT+BACK)%peG("eG!""6P0*)%0 [ER0[E'8J8&"$1NTKGQ%J8(*[DQ9MG!""6P0*)%0[ER0[E'8J8&"$1NTKGQ%J9Nd !38j655"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8 J8&"$1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J8&"$1P"KFf0KE#"ABA* ZD@jRF`""6P0*)%0[ER0[E'8J8&"$1P"33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5" 38%-k8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1P"33b"-D@jVCA) !38j655"$EfjcEfaP)&"33cT38%-J8%9'!%&18dNJ3fpZFfpXC5"38%-k8&"$)&" bEfTPBh3!38j655"$EfjcEfaP)&"33cT38%0"FfdJ8'&ZC@`!38j655"$EfjcEfa P)&"33cT5CASJ3fpYF'PXCA)!38j655"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%- kH$Jf)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"3FQpUC@0d!%&18dNJ3b" $EfjcEfaP)&"33cT$GA0dEfdJ5f9jGfpbC(-!38j655"$)%0[ER0[E'8J8&"$1N& MBf9cFb"3BA4SF`""6P0*)%-J3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQGc!%& 18dNJ3b"$EfjcEfaP)&"33cT'D@aP)%eKF("TEQGc!%&18dNJ3b"$EfjcEfaP)&" 33cT#G@PXC#"&H(4bBA-!38j655"$)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ4'PcBA0cC@eLE'9b!%&18dNJ3b"$EfjcEfa P)&"33cSf1%XJ6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!" "6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ3fpYF'PXCA)!38j655"$)%0[ER0[E'8 J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT$4Ndf1%X!38j 655"$)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0*)%-J3fpZFfpXC5"38%- k6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe `D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3b" $EfjcEfaP)&"33cT38%-J3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%4 TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%- J3fpZFfpXC5"38%-k8&"$)&"&4J""6P0*)%-J3fpZFfpXC5"38%-k8&"$)&"bEfT PBh3!38j655"$)%0[ER0[E'8J8&"$1P"33d&cE5"3B@jPE!""6P0*)%-J3fpZFfp XC5"38%-k8Q9k)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT+BACK)%peG(" eG!""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"3FQpUC@0d!%&18dNJ3b"$EfjcEfa P)&"33cT+BACK)&C0!%&18dNJ3b"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@aPFJ" "6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&" $1RJi0L"-D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1RJi0L"3FQpUC@0d!'KNCQa c)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QE(-J8&"$1N&MBf9cFb"3BA4SF`"SC'C XFb"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQac)&"33cT'D@aP)%eKF("TEQGc!'K NCQac)&"33cT#G@PXC#"&H(4bBA-!D'4QE(-J8&"$1MBi5b"$Ef4P4f9Z!'KNCQa c)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCQac)&"33cSf1%XJ6'PZDf9b!'KNCQa c)&"33cSf1%XJ8(*[DQ9MG!"SC'CXFb"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QE(- J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCQac)&"33cT$4Ndf1%X!D'4QE(-J8&"$1NP 5)%p`G'PYDATPFJ"SC'CXFb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QE(-J8&" $1P"KFf0KE#"$Efe`D@aPFJ"SC'CXFb"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQa c)&"33cT38%-J3fpNC8GPEJ"SC'CXFb"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'C XFb"38%-k8&"$)%aTEQYPFJ"SC'CXFb"38%-k8&"$)&"&4J"SC'CXFb"38%-k8&" $)&"bEfTPBh3!D'4QE(-J8&"$1P"33d&cE5"3B@jPE!"SC'CXFb"38%-k8Q9k)%0 [EA"TE'9b!'KNCQ9N)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QC@3J8&"$1N&MBf9 cFb"3BA4SF`"SC'CPC#"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQ9N)&"33cT'D@a P)%eKF("TEQGc!'KNCQ9N)&"33cT#G@PXC#"&H(4bBA-!D'4QC@3J8&"$1MBi5b" $Ef4P4f9Z!'KNCQ9N)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCQ9N)&"33cSf1%X J6'PZDf9b!'KNCQ9N)&"33cSf1%XJ8(*[DQ9MG!"SC'CPC#"38%-k3bp$+bXJ3fp YF'PXCA)!D'4QC@3J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCQ9N)&"33cT$4Ndf1%X !D'4QC@3J8&"$1NP5)%p`G'PYDATPFJ"SC'CPC#"38%-k6@&M6e-J6@9bCf8J8'& ZC@`!D'4QC@3J8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'CPC#"38%-k8'&cBf&X)&G KFQjTEQGc!'KNCQ9N)&"33cT38%-J3fpNC8GPEJ"SC'CPC#"38%-k8&"$)%4TFf& cFf9YBQaPFJ"SC'CPC#"38%-k8&"$)%aTEQYPFJ"SC'CPC#"38%-k8&"$)&"&4J" SC'CPC#"38%-k8&"$)&"bEfTPBh3!D'4QC@3J8&"$1P"33d&cE5"3B@jPE!"SC'C PC#"38%-k8Q9k)%0[EA"TE'9b!(CcD'ph)&"33cT$GA0dEfdJ5f9jGfpbC(-!GR0 SEhFJ8&"$1N&MBf9cFb"3BA4SF`"fFfK[Gb"38%-k9'&bCf9d)&0PG(4TEQGc!(C cD'ph)&"33cT'D@aP)%eKF("TEQGc!(CcD'ph)&"33cT#G@PXC#"&H(4bBA-!GR0 SEhFJ8&"$1MBi5b"$Ef4P4f9Z!(CcD'ph)&"33cSf1%XJ4'PcBA0cC@eLE'9b!(C cD'ph)&"33cSf1%XJ6'PZDf9b!(CcD'ph)&"33cSf1%XJ8(*[DQ9MG!"fFfK[Gb" 38%-k3bp$+bXJ3fpYF'PXCA)!GR0SEhFJ8&"$1N-[3bXV)&GKFQjTEQGc!(CcD'p h)&"33cT$4Ndf1%X!GR0SEhFJ8&"$1NP5)%p`G'PYDATPFJ"fFfK[Gb"38%-k6@& M6e-J6@9bCf8J8'&ZC@`!GR0SEhFJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"fFfK[Gb" 38%-k8'&cBf&X)&GKFQjTEQGc!(CcD'ph)&"33cT38%-J3fpNC8GPEJ"fFfK[Gb" 38%-k8&"$)%4TFf&cFf9YBQaPFJ"fFfK[Gb"38%-k8&"$)%aTEQYPFJ"fFfK[Gb" 38%-k8&"$)&"&4J"fFfK[Gb"38%-k8&"$)&"bEfTPBh3!GR0SEhFJ8&"$1P"33d& cE5"3B@jPE!"fFfK[Gb"38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!&-"!!!"!!!!!!!!!!!%!!! !!&+c4MlGrrq663!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"9*26e3!!!! !!!!!!!!!!!!%4e*98!!!!!!!!!!$"e0[GA*MCA-!!!!"4NP-43%!!#&(8P93!!! !!!!!!!)138j655"-D@*bBA*TCA-!!!!$4NP-43%!!!P'58a&!3!!#%C*6%8"!!! 04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a&!3!!#dC *6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!!&#&"bEfT PBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP-43%!!"9 '58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!E#!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!!Q!!! !*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!!!!!! V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!!!,`! !!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"-!!!! %!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13!!!!! &!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!!!!!! !!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`%!!"S&!3% !!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!!!!%B !!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!$%%eKBdp6)&"33b"-D@jVCA) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!P fFfK[Gb"38%0ZFfpXC5"38%-!!!!!!!!!!!!!!!!!!!%k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!!!!!!!"J!!$dTKGQ&$E'&cFf9 c,RTTF!!!!!!!!!!!!!!!!!!!!!"D59!J5N&@33!!!!F!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!690*44&*ER4PFQjPG#"&H("XEh*PFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"*CAK`E'pbC5j PH'8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!3"!!!$!3!!!!!%!!%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!) !!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!T16dj"688Z49K&!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93'3!!%*!RX!!!! !!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!AepcG'&bG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!3!!!9fFfK[Gd-J3fpZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!I 3!!!$k!!!!%!!!&M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!#!&! !!3!"!!%!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!"!!! *6@9bCf8J6h9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$!!- #!!%"!!%!!!!!!!!!!!!!!!!!!3%"!!!"!3!"!!!!"J!!$dTKGQ&$E'&cFf9c,RT TF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!%N&18dNJ3b"$EfjcEfa P)&"33bj[GA3!!!!!!!!!!!!r2cmr39"36!!!!B!!!!'!!!!!3!!!@-!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6mr2cm !!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%r2cmr!!! !!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!"!%!!!-"!!!!!3!!!3%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3! (!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3 J4AK`E'pbCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!5@9iF'a[FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!8!!"!!% !!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!"3R3dp%45FJ*d4"9%%R)#G35808*`!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!"!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!#!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!&B5j[GA3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8 "N!!"#3*l!!!!!!!!!!!!!!!'!!!!"`!&!!!!#8!!!!`!!6S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!"!!%k1MTcFQ-k!%Bd,M&b-L!Y)(*PE'9 KFf8kD'4Q1R9dD@`k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!!!!!`!"1MSkDR"PCcS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!!3!!6Sk1RTXD@)k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!! &!!%k1MSkE@CSC'BkE'PLFh*M1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"J!"1MSk1Qe QD'4Q1RKNFMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!J!!6Sk!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!,!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#" -D@*bBA*j1Ne66#"3FQ9MEfe`D@aPC#")C@&NCA)k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%k3!!!"!!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T 08d`J3cS!D@pb1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!%!!!!%!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%-V+cS !!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4r)#J!!!! "!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q3!!2,Qac rrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!!!!34r)#J !!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX$M)q3!!2 ,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjYJ!!!!!J4 r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2,Qj!!!ib 2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!!!!mC8E!! !!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!!!!`!"N!! $M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!!!!!!$adN d!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!14MZ`$bja 3!ib2N!!"r`%!3!!!!J!#1NeKBdp6)&0eF("[FR3k!%p-!iXSb!2,QS!$M)q3!!2 ,QVcrrrrr!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4 r)#J!!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q 3!!2,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!! !!34r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX $M)q3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjY J!!!!!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2 ,Qj!!!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!! !!mC8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!! !!`!"N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!! !!!!$adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!1 4MZ`$bja3!ib2N!!"r`%!3!!!!`!#1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!")!!!!!!!!3!(6QpZC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!8e08()!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%TKGQ%J6'PZDf9b!!!!!!!!!!!!!!! !!!!!!!!!!!!!!"&"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"$6iaV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"$E(0c!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"+DR*Q,QTbCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"09d0%!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,QKdE@`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QTKGQ%!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"D59!J!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%!!!!"DDA"'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!!!!!!!,Q0XBA0c!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!,RTTF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0B@028b!f1%XJ6'P ZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A" `E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69" -4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!6d* +)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9 B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9 B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9 B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jcC@F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0 bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4 eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!6@& M6e-J6@9bCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a [EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eKBdp6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q* S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q- V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9 iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" `G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"B3dp'4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4 [B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&!!!!"03b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!53da98`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!68e-3J!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'p bG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6d*+)!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jME(-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!68-J3faKFh-J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jNC@B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jNEf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 3!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf& X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jdF`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9fPZ-c)JH$Jf)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!%&4&@&3ZB`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!! !!!!!!!!!!!!!J!!!!&4&@&3ZFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA)>EP*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFQ9c!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>EP*PFb"*EA"[FR3!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!ZE'PL!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3JH$Jf!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!ZEf*U!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%pLDL"*EA"[FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!J!!!!E!J! !!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!*!!!!(!)!!!!!!!!"!!% $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#J!!!"d#!!!!!!!!!3!"!`!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!!X!!!!H!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!-!!!!(`)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !$3!!!#!#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"!!!!!P!J! !!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!5!!!!,3)!!!!!!!!"!!% #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%`!!!$3#!!!!!!!!!3!"!J!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!"3!!!!l!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!9!!!!3J)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !&J!!!#S&!!!!!3!!%!!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"F!!!!b"3! !!!%!!")!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!B!!!!138!!!!"!!!6!!% $!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'3!!!%F&!!!!!3!!&3!"!`!!!!!!!!! !!!!!!)%!!!!!!!!!!!%!!"S!!!!r"3!!!!%!!"3!!3-!!!!!!!!!!!!!!!#"!!! !!!!!!!!"!!!K!!!!9!)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3! !)3!!!&3#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!#%!!!"8!J! !!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!"!!!K!!!!9!)!!!!!!!!"!!% "!!!!!!!!!!!!!!!!!3!!!!!!!!!!!3!!)3!!!&3#!!!!!!!!!3!"!3!!!!!!!!! !!!!!!!%!!!!!!!!!!!%!!#%!!!"8!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!! !!!!!!!!!!!!!!!!!!!%!!3!$iH2!!)l(-1X!!!3!!!33rrrfq%aTBL"*EA"[FR3 J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[EfiJ5'9XF!"09b"$,d-V+b!f1%X!69F J8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#!f1%X!!!!J!!CS%'pTER4!3%K,-%" D!!0T'T!!!fNm81X!!"3!!!!J!!CS*'aP4'&dB8"!-e926!0T'T!!!fNmF1X!!"3 !!!!J!!CS(&*PBh4!-M!!2d4[4!0T'T!!!fNmN!$V!!!8!!!!)!!'D#KMC8"!88& &5dY33P8$D4U3!!0T2,$V!!!8!!!!)!!'D#"6Eh9bBf9!3%"D!$m$D4U3!!0T20$ V!!!8!!!!)!!'D!`!!!!!!!!!!!!!!!!!!!!!!fNmm1X!!"3!!!!J!!CR['P`BQp KFQ4%BA4K3!0T'T!!!fNp%1X!!!`!!!!`!!CRY!!"!!!!!J!!!"`!!!!!!!!!!!! !!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!CRU!C![-!!!"kq!!!8!'ecG()!!!! !!!!!!!!!"N#lE!!!!#J!!!H!EA0dE!!!!!!!!!!!!!!'3,`8!!!-D!!!!S"YFh4 Z!!!!!!!!!!!!!!!!!!!!!!HS!!!!+'ecG'N!!!!!!!!!!!!!"N#mP!!!%Ei!!!J !EA0dFJ!!!qJ!!!!!!!!'3,XX!!!C[J!!")"YFh4X!!!$k!!!!!!!!!C!Z5`!!!I 3!!!"J'ecG'i!!!2S!!!!!!!!"N#jA!!!LqS!!!8!EA4`E!!!!!%!!!!!!!!'3,P N!!!*d!!!!)"YG("c!!!!!3!!!!!!!!C!ZAJ!!!a3!!!!''edFf`!!!!"!!!!!!! !!!!!!!!!#9!!!!!SEA0dD3!!!qJ!!!!!!!!'3,Fm!!!1k!!!!LaYF(0T!!!$k!! !!!!!!!C!Z*`!!$+q!!!#'QedCf`!!!2S!!!!!!!!!!!!!!!!#R8!!!!1EA4`D3! !!!%!!!!!!!!'3,Pm!!!+J`!!!$"YG'a[!!!!!3!!!!!!!!C!Zp`!!$6B!!!"*9" -Fh3!!-R0!!!!(`!!!!!!!!!!4j!!!!!!,R"bC@B!!8Z5!!!!,3!!!!!!!!!!5im !!!4*F(*PCJ!#!Um!!!!Z!!!!!!!!!!!4ZJ!!!!4`FQ9Q!!(El!!!!#m!!!!!!!! !!%Y&!!!!*("bC@B!!H4"!!!!1J!!!!!!!!!!5fN!!!!+F(*PCJ!"e9!!!!!l!!! !!!!!!!"4j!!!!**`FQ9Q!!(G@`!!!$`!!!!!!!!!!&*f!!!!5R"bC@B!!He[!!! !23!!!!!!!!!!2)8!!!!ZF(*PCJ!"!qi!!!"9!!!!!!!!!!!mX`!!"%P`FQ9Q!!& @"3!!!&B!!!!!!!!!!%$m!!!!"("bC@B!!@@I!!!!9`!!!!!!!!!!33!!!!!NF(* PCJ!!ScF!!!"B!!!!!!!!!!""*!!!!!T`FQ9Q!!#)&!!!!&N!!!!!!!!!!%%Z!!! !NR"bC@B!!+ZR!!!!@J!!!!!!!!!!3F!!!!"+F(*PCJ!"&@F!!!"E!!!!!!!!!!! hFJ!!!B"YFh"T!!!!!3!!!!!!!!!!!!!!!!Pi!!!!'R"bC@B!'ShK!!!!LJ!!!!! !!!!!8X!!!"K`F(*PCJ!DUN!!!!#,!!!!!!!!!!!imJ!!!Q4`FQ9Q!"T8RJ!!!)` !!!!!!!!!!'X`!!!JZR"bC@B!'PZM!!!!M3!!!!!!!!!!#C)!!!!%F(*PCJ!D@L3 !!!#1!!!!!!!!!!!*PJ!!!"K`FQ9Q!"XI"3!!!)m!!!!!!!!!!!QZ!!!!#R"bC@B !'U5P!!!!N!!!!!!!!!!!!!Qi!!!!$R"bC@B!'QiZ!!!!N3!!!!!!!!!!#V-!!!$ 'F(*PCJ!DU8B!!!#5!!!!!!!!!!!,H3!!!$K`FQ9Q!"TX)`!!!*-!!!!!!!!!!!T 3!!!!$("bC@B!'TA2!!!!P!!!!!!!!!!!3JS!!!(DF(*PCJ!DHdd!!!#9!!!!!!! !!!!+A!!!!!a`FQ9Q!"X%@!!!!*B!!!!!!!!!!!Za!!!!BR"bC@B!'Nfk!!!!P`! !!!!!!!!!$"-!!!!iF(*PCJ!Dr--!!!#B!!!!!!!!!!!+D!!!!!e`FQ9Q!"TUD`! !!*N!!!!!!!!!!"%8!!!!&("bC@B!'TcD!!!!QJ!!!!!!!!!!#FB!!!!+F(*PCJ! DYYd!!!#E!!!!!!!!!!!er3!!!-4`FQ9Q!"U#E!!!!*`!!!!!!!!!!$Y@!!!"&R" bC@B!'Tbl!!!!R3!!!!!!!!!!3q3!!!#kF(*PCJ!DX`F!!!#H!!!!!!!!!!!4+!! !!#j`FQ9Q!"U(F`!!!*m!!!!!!!!!!%5H!!!#$("bC@B!'R)i!!!!S!!!3Bd!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdf24to8.project.hqx0000644000000000000000000014262112421456623020575 0ustar (This file must be converted with BinHex 4.0) :%'KNCM)dG'mi,R"bEfTPBh3!68e3FN0A588!!!!!N@B!!!!!bY&MEfpX!!!!!J! !!#J!!)[#!!#,kJ!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3! !!!)!!!!!!!!!2`!!!!0cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3! !!!C3D@j5!!!!ZJ!!!!GK8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3! !!!T0C@je!!!"03!!!!Yd3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`! !!!jTE'a$!!!"U!!!!!p6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J! !!"*(CA4$!!!#)`!!!"0PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`! !!"C(CA4$!!!#R`!!!"Gd3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`! !!"T$G'`,!!!$%3!!!"YXG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ! !!"j%FQ&R!!!$K`!!!"p8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!! !!#)!!!!'!!!$q3!!!#1[H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`! !!#B!!!!!!!!%G3!!!#F!!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ! !!#S!!!!!!!!%lJ!!!#X!!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33! !!#i!!!!!!!!&A`!!!#m!!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!! !!$)!!!!!!!!&h3!!!$-!!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!! !!$B!!!!!!!!'83!!!$F!!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ! !!$S!!!!!!!!'bJ!!!$X!!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!! !!$i!!!!!!!!(3`!!!$m!!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`! !!%)!!!!!!!!(a`!!!%-!!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!! !!%B!!!!!!!!)4`!!!%F!!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3! !!%S!!!!!!!!)a3!!!%X!!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!! !!%i!!!!!!!!*6`!!!%m!!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!! !!&)!!!!!!!!*b`!!!&-!!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J! !!&B!!!!!!!!+5J!!!&F!!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ! !!&S!!!!!!!!+a!!!!&X!!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!! !!&i!!!!!!!!,,J!!!&m!!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`! !!')!!!!!!!!,MJ!!!'-!!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ! !!'B!!!!!!!!,k`!!!'F!!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`! !!'S!!!!!!!!-53!!!'X!!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!! !!'i!!!!!!!!-U3!!!'m!!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!! !!()!!!!!!!!-r`!!!(-!!!!!!!!0'J!!!(3!!!!!!!!0-J!!!(8!!!!!!!!063! !!(B!!!!!!!!0CJ!!!(F!!!!!!!!0IJ!!!(J!!!!!!!!0P3!!!(N!!!!!!!!0X3! !!(S!!!!!!!!0a`!!!(X!!!!!!!!0hJ!!!(`!!!!!!!!0q!!!!(d!!!!!!!!1%J! !!(i!!!!!!!!1*!!!!(m!!!!!!!!12!!!!)!!!!!!!!!1@3!!!)%!!!!!!!!1G!! !!))!!!!!!!!1M`!!!)-!!!!!!!!1TJ!!!)3!!!!!!!!1`J!!!)8!!!!!!!!1f!! !!)B!!!!!!!!1k`!!!)F!!!!!!!!2!J!!!)J!!!!!!!!2'J!!!)N!!!!!!!!2-J! !!)S!!!!!!!!26`!!!)X!!!!!!!!2D3!!!)`!!!!!!!!2KJ!!!)d!!!!!!!!2S3! !!)i!!!!!!!!2Z`!!!)m!!!!!!!!2e!!!!*!!!!!!!!!!$r)!!!#4!!!!!!!!%!S !!!#5!!!!!!!!%#-!!!#6!!!!!!!!%$m!!!#8!!!!!!!!%&X!!!#9!!!!!!!!%'m !!!#@!!!!!!!!%)N!!!#A!!!!!!!!%+J!!!#B!!!!!!!!%-8!!!#C!!!!!!!!%1) !!!#D!!!!!!!!%2X!!!#E!!!!!!!!%4N!!!#F!!!!!!!!%6%!!!#G!!!!!!!!%8B !!!#H!!!!!!!!%9m!!!#I!!!!!!!!%AN!!!#J!!!!!!!!!+!!!!#J!!!4N`!!&!! !!!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!)!!!!!S!!!!5!!!!5J!!!%i !!!!Q!!!!+3!!!%J!!!!a!!!!,J!!!$i!!!!m!!!!4J!!!%-!!!!i!!!!03!!!#% !!!!!!!!!%`!!!!8!!!!"!!!!5`!!!%`!!!!R!!!!*3!!!#S!!!!S!!!!6`!!!%d !!!!M!!!!*!!!!%N!!!!L!!!!#`!!!"`!!!![!!!!,3!!!$)!!!!`!!!!+`!!!#` !!!!$!!!!&!!!!"!!!!!G!!!!$J!!!$d!!!!r!!!!1`!!!%!!!!!k!!!!"!!!!!d !!!!D!!!!$!!!!"X!!!!2!!!!(J!!!"%!!!!I!!!!"J!!!"8!!!!(!!!!&J!!!!N !!!!C!!!!&`!!!!J!!!!B!!!!4!!!!%)!!!"(!!!!43!!!%%!!!!f!!!!0!!!!$N !!!!h!!!!-`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!B!!!",F!!!J!!!!!8!!!!!! !!!!!!!!!!!!!!!!!!!!!!!-!!(rr!!!!!(rr!!!!!(rr!!!!!(rr!!!!!J%!!!B #!!!!!!!"!3!"!3!!!!%!!!!"!!!!!!%"!!!"!3!"!!!(!3!"!3!"!3!!!!%!!!- "!3%"!3%"!!%!!!%"!3!!!!!!!!!!!!)!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!! !!!!!!3!!!!)!!!!$!!!!"!!!!!8!!!!'!!!!#`!!!!F!!!!-!!!!#!!!!!d!!!! *!!!!$`!!!!S!!!!1!!!!%!!!!"%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"[HfplEhY[H`!!!"%!!!!J!3!"!!!G!3!!'J% !!"N"!!!B!3!!&`%!!"B"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d"!!!G!!%!!!! &8Np29!!!!!!!!!!!!!!!!!4(8P93!!!!!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3! !(8G599!!!!!!!!!!!Jj"6P0*)%aTBR*KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!! )4NP-43%!!!e(8P93!!!!!!!!!!%06@&M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC *6%8"!!!,4NP-43%!!!a(8P93!!!!!!!!!!3(5%4'6'PLF`!!!!C(8P93!!!!!!! !!!8)8(*[DQ9MG(-!!!!&4NP-43%!!""'58a&!3!!%NC*6%8"!!!64NP-43%!!"4 '58a&!3!!&8C*6%8"!!!@4NP-43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43%!!"S !#3!"!!%"!!!-6@&M5'9KC'9bFbjSD'&M,QJ!!!!!!!!!!!!!!!!!!!%!!!!!!!! !!!!!!!!!!!!1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!3!"!3!"!!%"!!%!!3!!!!)!!!!F!!!!!!!!!!!!!!!!!!! !!!"#!!!!3`!!!%3!!!"&!!!!2J!!!%%!!!"'!!!!4`!!!%J!!!!p!!!!3!!!!%N !!!"8!!!!93!!!&B!!!"+!!!!5`!!!%`!!!"0!!!!6J!!!%m!!!"3!!!!83!!!&) !!!"6!!!!2`!!!&F!!!"B!!!!@3!!!&S!!!!&!!!!"J!!!!F!!!!)!!!!!3!!!!3 !!!!*!!!!#J!!!!X!!!!!!!!!!`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3!!!") !!!!6!!!!&!!!!"8!!!!@!!!!&`!!!"J!!!!C!!!!!J!!!"S!!!!E!!!!(!!!!"d !!!!N!!!!*3!!!#B!!!!R!!!!)!!!!#-!!!!S!!!!+3!!!#S!!!!I!!!!)J!!!#X !!!!X!!!!,3!!!#i!!!![!!!!-!!!!$%!!!!b!!!!-`!!!$3!!!!e!!!!0J!!!$F !!!!i!!!!)3!!!$N!!!!k!!!!1`!!!$`!!!"h!!!!H!!!!(N!!!"k!!!!F`!!!(B !!!"l!!!!I!!!!(d!!!"b!!!!G3!!!(i!!!"r!!!!J!!!!)%!!!##!!!!J`!!!)3 !!!#&!!!!KJ!!!)F!!!#)!!!!G!!!!)i!!!#2!!!!N!!!!!#4!!!!LJ!!!)d!!!# 5!!!!N`!!!*3!!!#*!!!!M!!!!*8!!!#@!!!!P`!!!*J!!!#C!!!!QJ!!!*X!!!# F!!!!R3!!!*i!!!#I!!!!L`!!!'!!!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!" P!!!!CJ!!!&X!!!"H!!!!C`!!!'J!!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!" [!!!!F!!!!(%!!!"G!!!!(J!!!!-!!!!'!!!!!`!!!!Dc4L0SrrrPQ!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !#8ePFQGP)%peG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&"-!!%"!!!%4%a(@'0VD@43FQpU9e033`! $!J!"!3!"!!!!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!!!%!!%&18dNJ3fpZFfpXC5!f1'Xk3h9cG'pY)%Y PHAG[FQ4c!%&18dNJ3fpZFfpXC5!f1'Xk3@0MCA0c)&"KG'Kc!%&18dNJ3fpZFfp XC5!f1'Xk9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk4QPXC5"0BA" `D@jRF`""6P0*)%0[ER0[E'8J0MKV1N*eD@aN)%9iG(*KF`""6P0*)%0[ER0[E'8 J0MKV1MBi5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%4TFf&cFf9YBQa PFJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"-D@jVCA)!38j655"$EfjcEfaP)$BiDcS f1%XJ8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1N-[3bXV)%0[EA"TE'9b!%&18dN J3fpZFfpXC5!f1'Xk3bp$+bXJ9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT$4Nd f1%X!38j655"$EfjcEfaP)$BiDcT*8L"2F(4TE@PkCA)!38j655"$EfjcEfaP)$B iDcT+BACK)%peG("eG!""6P0*)%0[ER0[E'8J0MKV1NTKGQ%J8(*[DQ9MG!""6P0 *)%0[ER0[E'8J0MKV1NTKGQ%J9Nd!38j655"$EfjcEfaP)$BiDcT0B@028b"0CA* RC5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1P"33b" $Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%0 [ER0[E'8J0MKV1P"33b"-D@jVCA)!38j655"$EfjcEfaP)$BiDcT38%-J8%9'!%& 18dNJ3fpZFfpXC5!f1'Xk8&"$)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT38%0 "FfdJ8'&ZC@`!38j655"$EfjcEfaP)$BiDcT5CASJ3fpYF'PXCA)!38j655"$Efj cEfaP)$BiDcTAD@j53b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"$Ef4 P4f9Z!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MK V1RJi0L"3FQpUC@0d!&"bEfTPBh3J4QPXC5"-DA0d!%&18dNJ3fpZFfpXC5"38%- k3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%& 18dNJ3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fpZFfpXC5"38%- k4QPXC5"0BA"`D@jRF`""6P0*)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`""6P0 *)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-k0MK,)%4 TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA)!38j655"$Efj cEfaP)&"33cSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0[E'8J8&"$1N-[3bXV)%0[EA" TE'9b!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQPZCh-!38j655"$EfjcEfa P)&"33cT$4Ndf1%X!38j655"$EfjcEfaP)&"33cT*8L"2F(4TE@PkCA)!38j655" $EfjcEfaP)&"33cT+BACK)%peG("eG!""6P0*)%0[ER0[E'8J8&"$1NTKGQ%J8(* [DQ9MG!""6P0*)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j655"$EfjcEfaP)&"33cT 0B@028b"0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%0[ER0[E'8 J8&"$1P"33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-k8&"$)%4TFf&cFf9YBQa PFJ""6P0*)%0[ER0[E'8J8&"$1P"33b"-D@jVCA)!38j655"$EfjcEfaP)&"33cT 38%-J8%9'!%&18dNJ3fpZFfpXC5"38%-k8&"$)&"bEfTPBh3!38j655"$EfjcEfa P)&"33cT38%0"FfdJ8'&ZC@`!38j655"$EfjcEfaP)&"33cT5CASJ3fpYF'PXCA) !38j655"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J8&" $1RJi0L"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0*)%0 [ER0[E'8J8&"$1RJi0L"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT$GA0dEfd J5f9jGfpbC(-!38j655"$)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`""6P0*)%- J3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT 'D@aP)%eKF("TEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j 655"$)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cS f1%XJ4'PcBA0cC@eLE'9b!%&18dNJ3b"$EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%- k3bp$+bXJ3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&"$1N-[3bXV)&GKFQjTEQG c!%&18dNJ3b"$EfjcEfaP)&"33cT$4Ndf1%X!38j655"$)%0[ER0[E'8J8&"$1NP 5)%p`G'PYDATPFJ""6P0*)%-J3fpZFfpXC5"38%-k6@&M6e-J6@9bCf8J8'&ZC@` !38j655"$)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%-J3fpZFfp XC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J3fp NC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%- J3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)&" &4J""6P0*)%-J3fpZFfpXC5"38%-k8&"$)&"bEfTPBh3!38j655"$)%0[ER0[E'8 J8&"$1P"33d&cE5"3B@jPE!""6P0*)%-J3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9 b!%&18dNJ3b"$EfjcEfaP)&"33cT+BACK)%peG("eG!""6P0*)%-J3fpZFfpXC5" 38%-k5Q&fB5"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&"33cT+BACK)&C0!%&18dN J3b"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%- kH$Jf)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655" $)%0[ER0[E'8J8&"$1RJi0L"3FQpUC@0d!'KNCQac)&"33cT$GA0dEfdJ5f9jGfp bC(-!D'4QE(-J8&"$1N&MBf9cFb"3BA4SF`"SC'CXFb"38%-k9'&bCf9d)&0PG(4 TEQGc!'KNCQac)&"33cT'D@aP)%eKF("TEQGc!'KNCQac)&"33cT#G@PXC#"&H(4 bBA-!D'4QE(-J8&"$1MBi5b"$Ef4P4f9Z!'KNCQac)&"33cSf1%XJ4'PcBA0cC@e LE'9b!'KNCQac)&"33cSf1%XJ6'PZDf9b!'KNCQac)&"33cSf1%XJ8(*[DQ9MG!" SC'CXFb"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QE(-J8&"$1N-[3bXV)&GKFQjTEQG c!'KNCQac)&"33cT$4Ndf1%X!D'4QE(-J8&"$1NP5)%p`G'PYDATPFJ"SC'CXFb" 38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QE(-J8&"$1P"KFf0KE#"$Efe`D@aPFJ" SC'CXFb"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQac)&"33cT38%-J3fpNC8GPEJ" SC'CXFb"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'CXFb"38%-k8&"$)%aTEQYPFJ" SC'CXFb"38%-k8&"$)&"&4J"SC'CXFb"38%-k8&"$)&"bEfTPBh3!D'4QE(-J8&" $1P"33d&cE5"3B@jPE!"SC'CXFb"38%-k8Q9k)%0[EA"TE'9b!'C`-QKNCL"38%- k3h9cG'pY)%YPHAG[FQ4c!'C`-QKNCL"38%-k3@0MCA0c)&"KG'Kc!'C`-QKNCL" 38%-k9'&bCf9d)&0PG(4TEQGc!'C`-QKNCL"38%-k4QPXC5"0BA"`D@jRF`"QF$* SC'BJ8&"$1N*eD@aN)%9iG(*KF`"QF$*SC'BJ8&"$1MBi5b"$Ef4P4f9Z!'C`-QK NCL"38%-k0MK,)%4TFf&cFf9YBQaPFJ"QF$*SC'BJ8&"$1MBi5b"-D@jVCA)!CR! bD'4Q)&"33cSf1%XJ8(*[DQ9MG!"QF$*SC'BJ8&"$1N-[3bXV)%0[EA"TE'9b!'C `-QKNCL"38%-k3bp$+bXJ9f&bEQPZCh-!CR!bD'4Q)&"33cT$4Ndf1%X!CR!bD'4 Q)&"33cT*8L"2F(4TE@PkCA)!CR!bD'4Q)&"33cT0B@028b"0CA*RC5"3B@jPE!" QF$*SC'BJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"QF$*SC'BJ8&"$1P"KFf0KE#"ABA* ZD@jRF`"QF$*SC'BJ8&"$1P"33b"$Ef4P4f9Z!'C`-QKNCL"38%-k8&"$)%4TFf& cFf9YBQaPFJ"QF$*SC'BJ8&"$1P"33b"-D@jVCA)!CR!bD'4Q)&"33cT38%-J8%9 '!'C`-QKNCL"38%-k8&"$)&"bEfTPBh3!CR!bD'4Q)&"33cT38%0"FfdJ8'&ZC@` !CR!bD'4Q)&"33cT5CASJ3fpYF'PXCA)!D'4Q-M4dEcJJ8&"$1N0eFh4[E5",CAP hEh*NF`"SC'Bb0(4[1#"38%-k3@0MCA0c)&"KG'Kc!'KNCM)dG'mi)&"33cT8BA* RCA3J8f9dG'PZCh-!D'4Q-M4dEcJJ8&"$1NCTE'8J6@&`F'PZCh-!D'4Q-M4dEcJ J8&"$1N*eD@aN)%9iG(*KF`"SC'Bb0(4[1#"38%-k0MK,)%0[C'9(C@i!D'4Q-M4 dEcJJ8&"$1MBi5b"%DA0KFh0PE@*XCA)!D'4Q-M4dEcJJ8&"$1MBi5b"-D@jVCA) !D'4Q-M4dEcJJ8&"$1MBi5b"3FQpUC@0d!'KNCM)dG'mi)&"33cT$,d-V+b"$Efe `D@aPFJ"SC'Bb0(4[1#"38%-k3bp$+bXJ9f&bEQPZCh-!D'4Q-M4dEcJJ8&"$1N0 '66Bi5`"SC'Bb0(4[1#"38%-k59)J6h"dD@eTHQ9b!'KNCM)dG'mi)&"33cT0B@0 28b"0CA*RC5"3B@jPE!"SC'Bb0(4[1#"38%-k8'&cBf&X)%0[EA"TE'9b!'KNCM) dG'mi)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4Q-M4dEcJJ8&"$1P"33b"$Ef4P4f9 Z!'KNCM)dG'mi)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCM)dG'mi)&"33cT38%- J6'PZDf9b!'KNCM)dG'mi)&"33cT38%-J8%9'!'KNCM)dG'mi)&"33cT38%-J8(* [DQ9MG!"SC'Bb0(4[1#"38%-k8&"$3A0Y)&"KEQ9X!'KNCM)dG'mi)&"33cT5CAS J3fpYF'PXCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!38j655"$EfjcEfaP)$BiD`"'DA*cG#"6C@GYC@jd!$TK,QpeG!"-D@) J5@e`Eh*d)$Bi5`"08&FJ5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bX J0MK,!%eA)&"KFf0KE#!f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!$T"6P0*)%0[ER0 [E'8J0MKV,QpeG!")C@aXEeG[FQaN,Q-!690-)%-Z0MK,)%CK+$4TAcKN+5j-D@) !690-)%-V+bif1%XJ4Q%S0'PI1'3T,NaTBJ"0BA4S6'PL0MK,)%CK+$4T,cKN+5j -D@)!690-)&*eER4TE@8f1%XZ6'PL!%eKBdp6,QaTBJ"08d`J8dP299JZ0MK,,Na TBJ!k38j655"$EfjcEfaP)&"33bj[GA3!38j655"$EfjcEfaP)&"33`"-D@)J5@e `Eh*d)&"33`"09b"$,d-V+b"38%-!69FJ8'&cBf&X)&"33`"38%0"Ffd!@%024NB J5@e`Eh*d)&"33`"348BJ5@e`Eh*d)&"33`"08d`J3bXV,P"33bj-D@)!690-)%- Z8&"$,NaTBJ"*ER4PFQCKBf9-D@)!6@&dD%aTBJ"08d`J8R9ZG'PYC9"33bj-D@) !690-)&0*6e9B,P"33bj-D@)!1N&18dNJ3b"$EfjcEfaP)&"33`""6P0*)%-J3fp ZFfpXC5"38%-!D'4QE(-ZB`"SC'CXD@)Z8&"$,QaTBJ"SC'CXD@)ZF(*[DQ9MG!" SC'BJ6'PL)$Bi5b"%C@*eC`!kD'4Q0MKV,NCKFLJdD5miC#NZE'PL!'KNCL"-D@) J0MK,!'KNCL"-D@)J8&"$)%4PBR9R!$TSC'CXD@)Z8&"$,QaTBJ"SC'BJ6'PL)&" 33`"UF'9R,P"33bjXD@)!DR"PCfaTBLj`FQpUC@0d!'T`C@FJ6'PL)$Bi5b"%C@* eC`!kDR"PCcBiDbj'BA)S0'N[1'3T,QaTBJ"UF'9R)%aTBL!f1%X!DR"PCb"-D@) J8&"$)%4PBR9R!$TUF'9R,P"33bjXD@)!DR"PCb"-D@)J8&"$!(TXD@)ZF(*[DQ9 MG!"kE'PL)$Bi5b"%C@*eC`!kHMBiDbj'BA)S0'N[1'3T,QaTBJ"kE'PL)$Bi5`" kE'PL)&"33b"%C@*eC`!kHLj38%-ZE'PL!(TXD@)J8&"$!'eQD'4QE'PL,R"bEfT PBh3!E@CSC'BJ6'PL)$Bi5b"%C@*eC`!kE@CSC'Bf1'XZ4Q&b+$4T,cKN+5jXD@) !E@4SC'BJ6'PL)&"33b"%C@*eC`!kE@CSC'BZ8&"$,QaTBJ"YCQKNCL"-D@)J0MK ,!'eQD'4Q)%aTBL"38%-!H'4bE'PL,R"bEfTPBh3!H'4b)%aTBL!f1%XJ4'9LG@F !1RKNFMBiDbj'BA)S0'N[1'3T,QaTBJ"iC()J6'PL)$Bi5`"iC()J6'PL)&"33b" %C@*eC`!kH'4b,P"33bjXD@)!H'4b)%aTBL"38%-!1QKNCQac!'KNCQac)&"33`! kCR!bD'4Q!'C`-QKNCL"38%-!CR!bD'4Q,Q-!D'4Q-M4dEcJZB`!kD'4Q-M4dEcJ !D'4Q-M4dEcJJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!&%&18dN J3fpZFfpXC5!f1'XZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!$mr2cp"8&"-!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`! !!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!%!!!J!!!!E!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!*!!!!(!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#J!!!"d #!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!X!!!!H!J!!!!!!!!% !!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!-!!!!(`)!!!!!!!!"!!%$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!$3!!!#!#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!! !!!!!!!!!!!%!!"!!!!!P!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!! "!!!5!!!!,3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%`!!!$3 #!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"3!!!!l!J!!!!!!!!% !!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!9!!!!3J)!!!!!!!!"!!%#!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3!!&J!!!#S&!!!!!3!!%!!"!`!!!!!!!!!!!!!!!)% !!!!!!!!!!!%!!"F!!!!b"3!!!!%!!")!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!! "!!!B!!!!138!!!!"!!!6!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'3!!!%F &!!!!!3!!&3!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"S!!!!r"3!!!!%!!"3 !!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!G!!!!6J)!!!!!!!!"!!%"!!!!!!! !!!!!!!!!!3!!!!!!!!!!!3!!(3!!!%i#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!% !!!!!!!!!!!!!!!3!!!!'!!!!"30TmB"339K!@J"PH'-NBQ)$DGZJ!fRZB!!!!!! !!!&`!jJ%m'Pi8QpeEQ3)5@jTG!0Tfk!)5@jTG%GbB@B)6h"PEP"[FR306'pMB@a 8EdGXEf*KE!e(E'pLB@a8Eda[Bf&X#NF!MXD!k`!!&!!!!#$rrrEB!!!!!!!!!!! "!!%!!q(M`!#1aa$V!!!8!!!!)2rrpZ`!!!!!!!!!!!%!!3!$iH2!!)l(-1X!!!3 !!!33rrrfq%aTBL"*EA"[FR3J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[EfiJ5'9 XF!"09b"$,d-V+b!f1%X!69FJ8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#!f1%X !!!!J!!CS%'pTER4!3%K,-%"D!!0T'T!!!fNm81X!!"3!!!!J!!CS*'aP4'&dB8" !-e926!0T'T!!!fNmF1X!!"3!!!!J!!CS(&*PBh4!-M!!2d4[4!0T'T!!!fNmN!$ V!!!8!!!!)!!'D#KMC8"!88&&5dY33P8$D4U3!!0T2,$V!!!8!!!!)!!'D#"6Eh9 bBf9!3%"D!$m$D4U3!!0T20$V!!!8!!!!)!!'D!`!!!!!!!!!!!!!!!!!!!!!!fN mm1X!!"3!!!!J!!CR['P`BQpKFQ4%BA4K3!0T'T!!!fNp%1X!!!`!!!!`!!CRY!! "!!!!!J!!!"`!!!!!!!!!!!!!!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!CRU!! !!!%!!!"3!3!!!3!!!!!!!!!!"!!!!!"2XAH3!#Arrp)L!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!%!!!)D'4Q-M4dEcK[ER0[E'8J8&"$,QpeG!!!!!!!!!! !!$mr2cp"8&"-!!!"p!!!!I3!!!"!!!"B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3%!!"!!!!! %!!!!!#B!!!!R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!! &!!!!!!!!!#X!!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!! !!$!!!!![!!!!!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3% !!3!!%`!!!!3!!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J !!!!j!!!!!!8!!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!! !!!8!!!!!!!!!2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!! r!3!!'J8"!3!"!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8 !!!!!!!!!4J!!!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!-36@&M6e-J8&" $)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!$'KNCM)dG'mi)&"33faP)&"33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5!!!!!!!!!!!!!!!!!!!!B!!!p+BAC K3faKFh0PFbjkDA!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N%!!!!(!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK`E'pbCA) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5@9 iF'a[FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!!"!!"!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!#!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!+6Np138e&,N9 B43!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!! "#3*l!!!!!!!!!!!!!!!!!!!!!!!"!3J!!!!!!"%!!!!#!!!!!!!!!"m!!!!$Ch0 [BJ!!!#B!!!!%!fPMN!!!!!!e!!!!"3%"!3%!!!"%!!!!"J!!!!!!!!"4!!!!"`! !!!!!!!"H!!!!#!!!!!%!!!"X!!!!#4RQ!!!!!!"`!!!!#J!!BQ8!!!"r!!!!#f4 &Ef)!!!#9!!!!$'4d!!!!!!#L!!!!$3!!!!!!!!#k!!!!$J!!!!!!!!$8!!!!$rl J!'3!!!$Y!!!!%'*UC!!!!!%!!!!!%3!Cd3!!!!%+!!!!%J!!!!!!!!%F!!!!%`$ rrrm!!!%b!!!!&'pLDQ3!!!&$!!!!&3!!!!!!!!&5!!!!&J!!!!!!!!&I!!!!&`! !rrm!!!&Y!!!!'!#(Ef)!!!&d!!!!'A"d!!!!!!'&!!!!'J!!!!!!!!'8!!!!'`! !!!!!!!'N!!!!('aKBf8!!!'b!!!!(3!!2@F!!!'r!!!!(KB!%!%!!!((!!!!(aJ !!!!!!!(D!!!!)2m!!"N!!!(X!!!!)3!!!B!!!!)!!!!!)J!!!!!!!!)6!!!!)`! !!!!!!!)E!!!!*,R3!!!!!!)U!!!!*A4X!!!!!!)j!!!!*J14LF!!!!*,!!!!*fe cG'i!!!*L!!!!+!!!!j%!!!*Z!!!!+3!SEA-!!!+!!!!!+J!!!!!!!!+3!!!!!#Y [Hfpl!!!#R!!!!#`!S(YJ!!!#U3!!!#d!!!)`!!!#Z3!!!#i!!!!8!!!#c!!!!#m !!!!!!!!#j!!!!$!!!!!!!!!#m3!!!$%!!!!!!!!$"!!!!$)!!!!!!!!$%J!!!$- !!!!!!!!$(`!!!$3!!!!!!!!$,!!!!$8!!!!!!!!$1`!!!$B!!!!!!!!$8!!!!$F !!!!!!!!$@3!!!$J!!!!!!!!$D!!!!$N!!!!!!!!$F`!!!$S!!!!!!!!$I!!!!$X !!!!!!!!$M3!!!$`!!!!!!!!$S3!!!$d!!!!!!!!$ZJ!!!$i!!!!!!!!$cJ!!!$m !!!!!!!!$h3!!!%!!!!!!!!!$k`!!!%%!!!!!!!!$q3!!!%)!!!!!!!!%#!!!!%- !!!!!!!!%'J!!!%3!!!!!!!!%-3!!!%8!!!!!!!!%23!!!%B!!!!!!!!%6`!!!%F !!!!!!!!%A!!!!%J!!!!!!!!%D!!!!%N!!!!!!!!%E`!!!%S!!!!!!!!%H3!!!%X !!!!!!!!%J3!!!%`!!!!!!!!%M!!!!%d!!!!!!!!%P3!!!%i!!!!!!!!%S!!!!%m !!!!!!!!%UJ!!!&!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!%!!!P0CA*RC5"2GA3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr39"36!!"!3!!"%4-4eKMDfPN8(* [DPG68%-!!`)!!3%!!3!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80 XBA0cCA-ZHQP`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!! !!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA* d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!55" $)%0[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!$mr2cp"8&"-!!!"J!!!!B!!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!6mr2cm!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!"!!!"!3!!#!%!!!N"!!!+!3!!#`% !!!`"!!!0!!F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!690*44& *ER4PFQjPG#"&H("XEh*PFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"*CAK`E'pbC5jPH'8!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!J"3!!%!!3!"!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3 R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!)!!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!% !!!9K,QpeG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!! %!!!!!!3!93'3!!%*!RX!!!!!!!!!!!!!!!B!!!!(!!8!!!!*3!!!$!!"1J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!%!!6Sk1R0bBcS!4M3Z-A) b)#dJFQ9XC@&cC6TSC'BkGA4TE$S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!$!!%k1MTUF'9R1J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!!!!"!!"1MSkHQaTBMS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!!!!8!!6Sk1MTYCQKNCMTXD@*cFQ-k!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!! '!!%k1MSkE@CSC'BkH'4b1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!#!!"1MS!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!%!!!!X!!MT0CA4bEhGPFQYc)&0 dB@jNBA*N)%aTBR*KFRNk690-)&"bC@0[EA"TE'9N)%KPB@4PFMS!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!6T!!!!%!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#" -D@*bBA*j1Ne66#"$1J"TEh)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne 66#"$1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!3!!!!3!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T 08d`J3bXV1J!$bjU!!"9F-!4r*V!!!!!"!!%!!32,R9J$bjXF!!!!!!2,QU!$aP4 X"(mJ+!!!!!%$bjV!!ib2N!!!!!,%!mCI2!2,QZ!$M)q3!!4l6d`!!!1,*d!!(`1 -Mj!!!mZE(2rrrrm$bjVJK!!%JJ4r*V!$bj[`!mZDm!2,R9J$bjYm!!!!!!2,Q`! !!!!""(mJ+!!!!!%$bjXJ!ib2N!!!!!,%!mCI2!2,Qd!$M)q3!!4l6daHGJ!I!"p [H`1-Mj!!!mZEI2rrrrm$bjY!!"9F-!4r*V!Z,LjX!mZEB!2,R9J$bj[F!!!!!!2 ,Qf!!!!!#"(mJ+!2,RC!!!mZEF!1-Mj!!!!!#a!2'Ac`$bjZJ!mZEF!4l6d`$PLf 1!mZEN!!$M)q3!!2,Qpcrrrrr!mZES!!!!!!%IbD`!mZEq!2,Qm!@'#UD!mG2%!! !!!!$aP4X!!!!!Irrrri$bj`B!!!!!!!9A$!!!!,%!mCI2!2,R!!#riZ8"(Y26!! !!!!$!!'3!!1-Mj!!!!J!#!!!!!!$bj`!!"9I0!336p`!!!!!!!!!!!!9A$!$aP3 S!!!!!!2(563!!!!#!!!!!rrrrrm$bj``!"9F-!14R!!!!!!!!mZF3!!#"%`%G+' N!j'1l!2,R&!$M)q3!!(r!3"!!!!#!!)k6@&M6e-J8h9`F'pbG$S!6d`$LbM)!mZ DJ!1-Mj!!!mZD[2rrrrm$bjU!!"9F-!4r*V!!!!!"!!%!!32,R9J$bjXF!!!!!!2 ,QU!$aP4X"(mJ+!!!!!%$bjV!!ib2N!!!!!,%!mCI2!2,QZ!$M)q3!!4l6d`!!!1 ,*d!!(`1-Mj!!!mZE(2rrrrm$bjVJK!!%JJ4r*V!$bj[`!mZDm!2,R9J$bjYm!!! !!!2,Q`!!!!!""(mJ+!!!!!%$bjXJ!ib2N!!!!!,%!mCI2!2,Qd!$M)q3!!4l6da HGJ!I!"p[H`1-Mj!!!mZEI2rrrrm$bjY!!"9F-!4r*V!Z,LjX!mZEB!2,R9J$bj[ F!!!!!!2,Qf!!!!!#"(mJ+!2,RC!!!mZEF!1-Mj!!!!!#a!2'Ac`$bjZJ!mZEF!4 l6d`$PLf1!mZEN!!$M)q3!!2,Qpcrrrrr!mZES!!!!!!%IbD`!mZEq!2,Qm!@'#U D!mG2%!!!!!!$aP4X!!!!!Irrrri$bj`B!!!!!!!9A$!!!!,%!mCI2!2,R!!#riZ 8"(Y26!!!!!!$!!'3!!1-Mj!!!!J!#!!!!!!$bj`!!"9I0!336p`!!!!!!!!!!!! 9A$!$aP3S!!!!!!2(563!!!!#!!!!!rrrrrm$bj``!"9F-!14R!!!!!!!!mZF3!! #"%`%G+'N!j'1l!2,R&!$M)q3!!(r!3"!!!!$!!)k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%J!!!!!!!"!!G1EfjP!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"68e3FJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!5Q&fB5"-D@jVCA)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!%8&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'` !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!%02M'X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%0XFh- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%TUFQBZDR*Q!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!%eA3d3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3 ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD(4YE!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3 ZDQ&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&T*8#! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!&TTF%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!! ZBfaKFh-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZHQP`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eKBdp 6)$Bi5b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e `Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08&FJ5@e `Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"58e*$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfp Z)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!"!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0 MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d- V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!)!!!!"849K8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0 MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"849K8,R0PC`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e `Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&!!!!"0B@028b"0CA*RC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(39"36!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"J!!!!9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!3Q&XE'p[EL")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jb!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6@&M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!! !'d&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%e06%)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3 J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9 XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&" 33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&" 33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!%!! !!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&" 33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!! !!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"33d&cE3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dB!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&K$6dC')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!! !!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!(0SE')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3 J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!%e$)%aTEQYPFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!"*$6&96!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"068a#!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" -D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"23NSJ!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0XF`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"03b"$E'&cFb"$Efe`D@aPFJ!!!!!!!!! !!!!!!!!!!)!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q4PCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q4[B`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!"!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R4c!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"AD@ic-L"i1$BJ6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!39%9 B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jMF(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9 B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9 B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J! !!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jbB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!69FJ9fPZ8N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9 B9#jbCA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9fPZ8Q9c)%PYF'pbG!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!!!! !!#jXD@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"i1$B !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#j[BQS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!6f*U)%PYF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"N# k2!!!%Ei!!"3!EA0dFJ!!!!!!!!!!!!!'3,US!!!!+!!!"i"YFh4X!!!!!!!!!!! !!!C!ZY3!!!aS!!!#J'ecG'i!!!!!!!!!!!!!!!!!!!!!"kJ!!!!SEA0dD3!!!!! !!!!!!!!'3,VF!!!P[J!!#!"YFh4b!!!$k!!!!!!!!!C!ZZ!!!%)+!!!%J'ecG'` !!!2S!!!!!!!!"N#kj!!!"p!!!!'!EA0dEJ!!!qJ!!!!!!!!'3,V`!!!Z[J!!"3" YG("X!!!!!3!!!!!!!!C!Z`3!!!Re!!!!J'edF(-!!!!"!!!!!!!!"N#l#!!!$&! !!!!BEA4cE!!!!!%!!!!!!!!!!!!!!!!*8!!!!#KYFh4T!!!$k!!!!!!!!!C!['J !!!lS!!!#,'e`FfN!!!2S!!!!!!!!"N#p#!!!-li!!!)DEA4RE!!!!qJ!!!!!!!! !!!!!!!!+G3!!!!jYG("T!!!!!3!!!!!!!!C!Z``!!!U$!!!!-'edE'm!!!!"!!! !!!!!"N#m8!!!#V-!!!%P8%acG!!!bFd!!!!I!!!!!!!!!!"(N!!!!!!ZF(*PCJ! "5j)!!!!Y!!!!!!!!!!",M`!!"%P`FQ9Q!!)#V`!!!#i!!!!!!!!!!"'k!!!!"(" bC@B!!G[X!!!!,`!!!!!!!!!!5d8!!!!NF(*PCJ!"j%%!!!!k!!!!!!!!!!",D3! !!!T`FQ9Q!!(98!!!!$X!!!!!!!!!!&(N!!!!NR"bC@B!!GeE!!!!2!!!!!!!!!! !8RB!!!"+F(*PCJ!"l@m!!!!p!!!!!!!!!!!mK3!!!#j`FQ9Q!!%$lJ!!!&8!!!! !!!!!!$bc!!!%5A"bC@B!!9B&!!!!9J!!!!!!!!!!32`!!!!%F(*PCJ!"CCm!!!" A!!!!!!!!!!""!!!!!#4`FQ9Q!!#M0`!!!&J!!!!!!!!!!%%N!!!!#R"bC@B!!)J 8!!!!@3!!!!!!!!!!35i!!!#5F(*PCJ!!UkF!!!"D!!!!!!!!!!""`!!!!%T`FQ9 Q!!%9C`!!!&X!!!!!!!!!!$Gb!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!#AJ!!!! DF(*PCJ!5mLS!!!#+!!!!!!!!!!"5`!!!'("`FQ9Q!"+Je!!!!)X!!!!!!!!!!$M b!!!#C("bC@B!%X6C!!!!M!!!!!!!!!!!Dc!!!##kF(*PCJ!5N!"Y!!!!M3!!!!! !!!!!#C)!!!!%F(*PCJ!5hR3!!!#1!!!!!!!!!!!*PJ!!!"K`FQ9Q!"+8p!!!!)m !!!!!!!!!!!QZ!!!!#R"bC@B!%e*P!!!!N!!!!!!!!!!!!!Qi!!!!$R"bC@B!%f8 i!!!!N3!!!!!!!!!!,Ei!!!$'F(*PCJ!62SF!!!#5!!!!!!!!!!!,f!!!!$K`FQ9 Q!"-Xq3!!!*-!!!!!!!!!!!R'!!!!$("bC@B!%VKI!!!!P!!!!!!!!!!!4li!!!( DF(*PCJ!64C`!!!#9!!!!!!!!!!!*dJ!!!!a`FQ9Q!",K'`!!!*B!!!!!!!!!!"% 8!!!!BR"bC@B!%h4S!!!!P`!!!!!!!!!!$"!!!!!iF(*PCJ!6$'F!!!#B!!!!!!! !!!!*hJ!!!!e`FQ9Q!"-4d!!!!*N!!!!!!!!!!"&f!!!!&("bC@B!%eq"!!!!QJ! !!!!!!!!!#HX!!!!+F(*PCJ!5j5S!!!#E!!!!!!!!!!!ef!!!!-4`FQ9Q!",i'!! !!*`!!!!!!!!!!$Y@!!!"&R"bC@B!%XH%!!!!R3!!!!!!!!!!0T`!!!#kF(*PCJ! 5M%J!!!#H!!!!!!!!!!!4LJ!!!#j`FQ9Q!"+Pc3!!!*m!!!!!!!!!!%rB!!!#$(" bC@B!%[&C!!!!S!!!`'X!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/RISToHDF.project.hqx0000644000000000000000000017211112421456623020512 0ustar (This file must be converted with BinHex 4.0) :%&**8e4[5%4',R"bEfTPBh3!68e3FN0A588!!!!!XqB!!!!!&HpMEfpX!!!!!J! !!#J!!+j#!!#ZDJ!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!3J!!!%-!!!"%!!!!43! !!$i!!!""!!!!4J!!!%F!!!")!!!!23!!!%!!!!"*!!!!9!!!!&8!!!"@!!!!5J! !!%X!!!"-!!!!63!!!%i!!!"2!!!!8!!!!&%!!!"5!!!!8`!!!$m!!!"A!!!!@!! !!&N!!!"D!!!!"3!!!!B!!!!(!!!!#!!!!!%!!!!%!!!!#3!!!!S!!!!,!!!!!!! !!!-!!!!-!!!!$3!!!!i!!!!2!!!!%!!!!"%!!!!5!!!!%`!!!"3!!!!9!!!!&J! !!"F!!!!B!!!!'3!!!!)!!!!D!!!!'`!!!"`!!!!G!!!!*!!!!#8!!!!Q!!!!*`! !!#!!!!!M!!!!+!!!!#N!!!!U!!!!(`!!!#)!!!!V!!!!,!!!!#d!!!!Z!!!!,`! !!$!!!!!a!!!!-J!!!$-!!!!d!!!!03!!!$B!!!!h!!!!1!!!!#%!!!!j!!!!1J! !!$X!!!!m!!!!G`!!!(J!!!"j!!!!HJ!!!(-!!!"f!!!!H`!!!(`!!!"p!!!!FJ! !!(8!!!"q!!!!I`!!!)!!!!#"!!!!JJ!!!)-!!!#%!!!!K3!!!)B!!!#(!!!!L!! !!(3!!!#1!!!!M`!!!*!!!!!!N3!!!)S!!!#0!!!!NJ!!!*-!!!#8!!!!L3!!!)` !!!#9!!!!PJ!!!*F!!!#B!!!!Q3!!!*S!!!#E!!!!R!!!!*d!!!#H!!!!R`!!!)X !!!#P!!!!TJ!!!+F!!!#S!!!!S3!!!+3!!!#T!!!!UJ!!!+X!!!#J!!!!S`!!!+` !!!#Y!!!!VJ!!!+m!!!#`!!!!X3!!!,)!!!#c!!!!Y!!!!,8!!!#f!!!!SJ!!!'! !!!"K!!!!BJ!!!'-!!!"F!!!!A`!!!'3!!!"P!!!!CJ!!!&X!!!"H!!!!C`!!!'J !!!"T!!!!DJ!!!'X!!!"X!!!!E3!!!'i!!!"[!!!!F!!!!(%!!!"G!!!![!!!!,d !!!#q!!!![`!!!,J!!!#l!!!!`!!!!-%!!!$#!!!!Y`!!!,S!!!$$!!!!a!!!!-8 !!!$'!!!!a`!!!-J!!!$*!!!!bJ!!!-X!!!$-!!!!c3!!!,N!!!$6!!!!e!!!!08 !!!$@!!!!c`!!!0)!!!$A!!!!f!!!!0N!!!$1!!!!d3!!!0S!!!$E!!!!h!!!!0d !!!$H!!!!h`!!!1!!!!$K!!!!iJ!!!1-!!!$N!!!!d!!!!1S!!!$V!!!!l!!!!1d !!!$Q!!!!k3!!!1i!!!$[!!!!m!!!!18!!!$S!!!!m3!!!2)!!!$c!!!!p!!!!28 !!!$f!!!!p`!!!2J!!!$j!!!!qJ!!!2X!!!$R!!!!(J!!!3%!!!%#!!!"!`!!!33 !!!$p!!!"!!!!!38!!!%'!!!""`!!!2`!!!$r!!!"#!!!!3N!!!%+!!!"#`!!!3` !!!%0!!!"$J!!!3m!!!%3!!!"%3!!!4)!!!$q!!!"'!!!!4N!!!%D!!!"'`!!!43 !!!%A!!!"(!!!!4d!!!%H!!!"%`!!!4B!!!%I!!!")!!!!5%!!!%L!!!")`!!!53 !!!%P!!!"*J!!!5F!!!%S!!!"+3!!!48!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"+J!!!8!!!"q8!!!J!!!!!5S!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!3J!!!!!!"%!!!!#!!!!!!!!!"m!!!!$Ch0[BJ!!!#B !!!!%!fPMN!!!!!!e!!!!"3%"!3%!!!"%!!!!"J!!!!!!!!"4!!!!"`!!!!!!!!" H!!!!#!!!!!%!!!"X!!!!#4RQ!!!!!!"`!!!!#J!!BQ8!!!"r!!!!#f4&Ef)!!!# 9!!!!$'4d!!!!!!#L!!!!$3!!!!!!!!#k!!!!$J!!!!!!!!$8!!!!$rlJ!'3!!!$ Y!!!!%'*UC!!!!!%!!!!!%3!Cd3!!!!%+!!!!%J!!!!!!!!%F!!!!%`$rrrm!!!% b!!!!&'pLDQ3!!!&$!!!!&3!!!!!!!!&5!!!!&J!!!!!!!!&I!!!!&`!!rrm!!!& Y!!!!'!#(Ef)!!!&d!!!!'A"d!!!!!!'&!!!!'J!!!!!!!!'8!!!!'`!!!!!!!!' N!!!!('aKBf8!!!'b!!!!(3!!2@F!!!'r!!!!(KB!%!%!!!((!!!!(aJ!!!!!!!( D!!!!)2m!!"N!!!(X!!!!)3!!!B!!!!)!!!!!)J!!!!!!!!)6!!!!)`!!!!!!!!) E!!!!*,R3!!!!!!)U!!!!*A4X!!!!!!)j!!!!*J14LF!!!!*,!!!!*fecG'i!!!* L!!!!+!!!!j%!!!*Z!!!!+3!SEA-!!!+!!!!!+J!!!!!!!!+3!!!!!#Y[Hfpl!!! #R!!!!#`!S(YJ!!!#U3!!!#d!!!)`!!!#Z3!!!#i!!!!8!!!#c!!!!#m!!!!!!!! #j!!!!$!!!!!!!!!#m3!!!$%!!!!!!!!$"!!!!$)!!!!!!!!$%J!!!$-!!!!!!!! $(`!!!$3!!!!!!!!$,!!!!$8!!!!!!!!$1`!!!$B!!!!!!!!$8!!!!$F!!!!!!!! $@3!!!$J!!!!!!!!$D!!!!$N!!!!!!!!$F`!!!$S!!!!!!!!$I!!!!$X!!!!!!!! $M3!!!$`!!!!!!!!$S3!!!$d!!!!!!!!$ZJ!!!$i!!!!!!!!$cJ!!!$m!!!!!!!! $h3!!!%!!!!!!!!!$k`!!!%%!!!!!!!!$q3!!!%)!!!!!!!!%#!!!!%-!!!!!!!! %'J!!!%3!!!!!!!!%-3!!!%8!!!!!!!!%23!!!%B!!!!!!!!%6`!!!%F!!!!!!!! %A!!!!%J!!!!!!!!%D!!!!%N!!!!!!!!%E`!!!%S!!!!!!!!%H3!!!%X!!!!!!!! %J3!!!%`!!!!!!!!%M!!!!%d!!!!!!!!%P3!!!%i!!!!!!!!%S!!!!%m!!!!!!!! %UJ!!!&!!!!!!!!!%Y`!!!&%!!!!!!!!%`!!!!&)!!!!!!!!%c!!!!&-!!!!!!!! %eJ!!!&3!!!!!!!!%h`!!!&8!!!!!!!!%k`!!!&B!!!!!!!!%p3!!!&F!!!!!!!! &!!!!!&J!!!!!!!!&#J!!!&N!!!!!!!!&&`!!!&S!!!!!!!!&)J!!!&X!!!!!!!! &,!!!!&`!!!!!!!!&13!!!&d!!!!!!!!&3`!!!&i!!!!!!!!&6!!!!&m!!!!!!!! &@!!!!'!!!!!!!!!&B`!!!'%!!!!!!!!&E3!!!')!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!-!!(rr!!!!!(rr!!!!!(rr!!!!!(rr!!!!!!!!!!!!!!%!!!! #!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!!!!!J!!!!0!!!!#3!!!!m!!!! +!!!!$J!!!"!!!!!4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!EhY[HfplEhX!!!!4!!!!)!%!!3!!)`%!!"S"!!!C!3!!'!% !!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`%!!!`"!!!0!3!!)`!#!3!!"J)!!!!!!!% "!!%"!!!!!3!!!!%!!!!!!3%!!!%"!!%!!3!"!!!!!J!!!"`!!!!!!!!!!!!!!!! !!!!!!!)!!!!J!!!!#J!!!")!!!"+!!!!6J!!!#B!!!"3!!!!+3!!!%J!!!"6!!! !9`!!!$%!!!!Z!!!!2J!!!$`!!!"D!!!!A3!!!'!!!!"'!!!!3`!!!$J!!!!e!!! !)3!!!!!!!!!6!!!!"3!!!!%!!!",!!!!6!!!!#F!!!!P!!!!+J!!!#J!!!"2!!! !63!!!&%!!!"5!!!!)`!!!#3!!!"*!!!!)J!!!&3!!!"9!!!!@!!!!&B!!!!,!!! !(!!!!#m!!!!Y!!!!-J!!!$!!!!!V!!!!,!!!!!-!!!!8!!!!%!!!!"d!!!!1!!! !23!!!$m!!!!l!!!!3!!!!$S!!!!%!!!!$3!!!"S!!!!-!!!!'`!!!!m!!!!H!!! !%3!!!"m!!!!'!!!!&3!!!!F!!!!@!!!!@`!!!&N!!!!*!!!!'3!!!"F!!!"H!!! !A!!!!!J!!!"K!!!!A`!!!"J!!!"%!!!!3J!!!%F!!!"&!!!!33!!!$B!!!!d!!! !13!!!$F!!!!c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!BJ!!!)!!!!9k!!! )!!!!!')!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-!!!!'!!!!!`!!!!Dc4M1#!!! `[`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!"`%!!3%!!3%!!!!"!!!)!!!838j655"$EfjcEfaP)$BiDbj[GA3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%` !!!'!@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!r2cmr!!!!!!!!!!!!93'3!!%*!RX!!!! !!!!!!!!!!!!!!!'!!!!!!!!!!!!!!!!!!!!!!`%"!3%"!3%!!3!!!3%"!!!!!!! !!!!!!J!!!!!!!!!!!!!!!!!!!3!!!3!!38j655"$EfjcEfaP)$BiDcT$GA0dEfd J5f9jGfpbC(-!38j655"$EfjcEfaP)$BiDcT"Bf0PFh-J8'&dD(-!38j655"$Efj cEfaP)$BiDcT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)$BiDcT'D@aP)%e KF("TEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3R9TE'3J4AKdFQ&c!%&18dNJ3fpZFfp XC5!f1'Xk0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcSf1%XJ4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5!f1'Xk0MK,)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MK V1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ3fpYF'PXCA)!38j 655"$EfjcEfaP)$BiDcT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0[E'8J0MKV1N0 '66Bi5`""6P0*)%0[ER0[E'8J0MKV1NP5)%p`G'PYDATPFJ""6P0*)%0[ER0[E'8 J0MKV1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"3FQpUC@0d!%& 18dNJ3fpZFfpXC5!f1'Xk5Q&fB5"@63""6P0*)%0[ER0[E'8J0MKV1NeKBdp6)%e PFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8'&cBf&X)%0[EA"TE'9b!%&18dN J3fpZFfpXC5!f1'Xk8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk8&" $)%0[C'9(C@i!38j655"$EfjcEfaP)$BiDcT38%-J4'PcBA0cC@eLE'9b!%&18dN J3fpZFfpXC5!f1'Xk8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"348B !38j655"$EfjcEfaP)$BiDcT38%-J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1P" 33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P*PHL"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%0 [C'9(C@i!38j655"$EfjcEfaP)$BiDcTi1$BJ6'PZDf9b!%&18dNJ3fpZFfpXC5! f1'XkH$Jf)&"bEfTPBh3!8(*[DQ9MG#"'D@aP)%aTFh3!38j655"$EfjcEfaP)&" 33cT$GA0dEfdJ5f9jGfpbC(-!38j655"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(- !38j655"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$EfjcEfaP)&" 33cT'D@aP)%eKF("TEQGc!%&18dNJ3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cSf1%X J4'PcBA0cC@eLE'9b!%&18dNJ3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ""6P0*)%0 [ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ3fp YF'PXCA)!38j655"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@jRF`""6P0*)%0[ER0 [E'8J8&"$1N0'66Bi5`""6P0*)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0 *)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5" 3FQpUC@0d!%&18dNJ3fpZFfpXC5"38%-k5Q&fB5"@63""6P0*)%0[ER0[E'8J8&" $1NeKBdp6)%ePFQGP)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)%0[EA" TE'9b!%&18dNJ3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k8&"$)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@e LE'9b!%&18dNJ3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&" $1P"33b"348B!38j655"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%0[ER0 [E'8J8&"$1P"33d&cE5"3B@jPE!""6P0*)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5" 38%-kH$Jf)%0[C'9(C@i!38j655"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1N0eFh4 [E5",CAPhEh*NF`""6P0*)%-J3fpZFfpXC5"38%-k3@0MCA0c)&"KG'Kc!%&18dN J3b"$EfjcEfaP)&"33cT8BA*RCA3J8f9dG'PZCh-!38j655"$)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$)%0[ER0[E'8J8&"$1N*eD@aN)%9iG(*KF`" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&" $1MBi5b"%DA0KFh0PE@*XCA)!38j655"$)%0[ER0[E'8J8&"$1MBi5b"-D@jVCA) !38j655"$)%0[ER0[E'8J8&"$1MBi5b"3FQpUC@0d!%&18dNJ3b"$EfjcEfaP)&" 33cT$,d-V+b"$Efe`D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ9f&bEQP ZCh-!38j655"$)%0[ER0[E'8J8&"$1N0'66Bi5`""6P0*)%-J3fpZFfpXC5"38%- k59)J6h"dD@eTHQ9b!%&18dNJ3b"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@j PE!""6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)%0[EA"TE'9b!%&18dNJ3b"$Efj cEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$)%0[ER0[E'8J8&"$1P"33b" $Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J4'PcBA0cC@eLE'9b!%&18dN J3b"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cT38%- J8%9'!%&18dNJ3b"$EfjcEfaP)&"33cT38%-J8(*[DQ9MG!""6P0*)%-J3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3b"$EfjcEfaP)&"33cT5CASJ3fpYF'P XCA)!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J6h9dF(9d!%&18dNJ3b"$EfjcEfa P)&"33cT+BACK)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&"$1NTKGQ%J9Nd!38j 655"$)%0[ER0[E'8J8&"$1PGTEP*$)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%aTEQYPFJ""6P0 *)%-J3fpZFfpXC5"38%-kH$Jf)&"bEfTPBh3!D'4QE(-J8&"$1N0eFh4[E5",CAP hEh*NF`"SC'CXFb"38%-k3@0MCA0c)&"KG'Kc!'KNCQac)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QE(-J8&"$1NCTE'8J6@&`F'PZCh-!D'4QE(-J8&"$1N*eD@aN)%9 iG(*KF`"SC'CXFb"38%-k0MK,)%0[C'9(C@i!D'4QE(-J8&"$1MBi5b"%DA0KFh0 PE@*XCA)!D'4QE(-J8&"$1MBi5b"-D@jVCA)!D'4QE(-J8&"$1MBi5b"3FQpUC@0 d!'KNCQac)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CXFb"38%-k3bp$+bXJ9f&bEQP ZCh-!D'4QE(-J8&"$1N0'66Bi5`"SC'CXFb"38%-k59)J6h"dD@eTHQ9b!'KNCQa c)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CXFb"38%-k8'&cBf&X)%0[EA"TE'9 b!'KNCQac)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QE(-J8&"$1P"33b"$Ef4P4f9 Z!'KNCQac)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCQac)&"33cT38%-J6'PZDf9 b!'KNCQac)&"33cT38%-J8%9'!'KNCQac)&"33cT38%-J8(*[DQ9MG!"SC'CXFb" 38%-k8&"$3A0Y)&"KEQ9X!'KNCQac)&"33cT5CASJ3fpYF'PXCA)!CR!bD'4Q)&" 33cT$GA0dEfdJ5f9jGfpbC(-!CR!bD'4Q)&"33cT"Bf0PFh-J8'&dD(-!CR!bD'4 Q)&"33cT8BA*RCA3J8f9dG'PZCh-!CR!bD'4Q)&"33cT'D@aP)%eKF("TEQGc!'C `-QKNCL"38%-k3R9TE'3J4AKdFQ&c!'C`-QKNCL"38%-k0MK,)%0[C'9(C@i!CR! bD'4Q)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'C`-QKNCL"38%-k0MK,)%aTEQYPFJ" QF$*SC'BJ8&"$1MBi5b"3FQpUC@0d!'C`-QKNCL"38%-k3bp$+bXJ3fpYF'PXCA) !CR!bD'4Q)&"33cT$,d-V+b"ABA*ZD@jRF`"QF$*SC'BJ8&"$1N0'66Bi5`"QF$* SC'BJ8&"$1NP5)%p`G'PYDATPFJ"QF$*SC'BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!'C`-QKNCL"38%-k8'&cBf&X)%0[EA"TE'9b!'C`-QKNCL"38%-k8'&cBf&X)&G KFQjTEQGc!'C`-QKNCL"38%-k8&"$)%0[C'9(C@i!CR!bD'4Q)&"33cT38%-J4'P cBA0cC@eLE'9b!'C`-QKNCL"38%-k8&"$)%aTEQYPFJ"QF$*SC'BJ8&"$1P"33b" 348B!CR!bD'4Q)&"33cT38%-J8(*[DQ9MG!"QF$*SC'BJ8&"$1P"33d&cE5"3B@j PE!"QF$*SC'BJ8&"$1P*PHL"$Efe`D@aPFJ"SC'Bb0(4[1#"38%-k3h9cG'pY)%Y PHAG[FQ4c!'KNCM)dG'mi)&"33cT"Bf0PFh-J8'&dD(-!D'4Q-M4dEcJJ8&"$1P4 KFQGPG#"6CA4dD@jRF`"SC'Bb0(4[1#"38%-k4QPXC5"0BA"`D@jRF`"SC'Bb0(4 [1#"38%-k3R9TE'3J4AKdFQ&c!'KNCM)dG'mi)&"33cSf1%XJ3fpNC8GPEJ"SC'B b0(4[1#"38%-k0MK,)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k0MK,)%aTEQY PFJ"SC'Bb0(4[1#"38%-k0MK,)&"bEfTPBh3!D'4Q-M4dEcJJ8&"$1N-[3bXV)%0 [EA"TE'9b!'KNCM)dG'mi)&"33cT$,d-V+b"ABA*ZD@jRF`"SC'Bb0(4[1#"38%- k3dC00MK,!'KNCM)dG'mi)&"33cT*8L"2F(4TE@PkCA)!D'4Q-M4dEcJJ8&"$1Ne KBdp6)%ePFQGP)&"KEQ9X!'KNCM)dG'mi)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4 Q-M4dEcJJ8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'Bb0(4[1#"38%-k8&"$)%0[C'9 (C@i!D'4Q-M4dEcJJ8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4Q-M4dEcJJ8&"$1P" 33b"-D@jVCA)!D'4Q-M4dEcJJ8&"$1P"33b"348B!D'4Q-M4dEcJJ8&"$1P"33b" 3FQpUC@0d!'KNCM)dG'mi)&"33cT38%0"FfdJ8'&ZC@`!D'4Q-M4dEcJJ8&"$1P* PHL"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QBfpYF#" 38%-k3@0MCA0c)&"KG'Kc!'KNCQ0[EA!J8&"$1P4KFQGPG#"6CA4dD@jRF`"SC'C MEfe`)&"33cT'D@aP)%eKF("TEQGc!'KNCQ0[EA!J8&"$1N*eD@aN)%9iG(*KF`" SC'CMEfe`)&"33cSf1%XJ3fpNC8GPEJ"SC'CMEfe`)&"33cSf1%XJ4'PcBA0cC@e LE'9b!'KNCQ0[EA!J8&"$1MBi5b"-D@jVCA)!D'4QBfpYF#"38%-k0MK,)&"bEfT PBh3!D'4QBfpYF#"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QBfpYF#"38%-k3bp$+bX J9f&bEQPZCh-!D'4QBfpYF#"38%-k3dC00MK,!'KNCQ0[EA!J8&"$1NP5)%p`G'P YDATPFJ"SC'CMEfe`)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'CMEfe`)&"33cT 3BA0MB@`J3fpYF'PXCA)!D'4QBfpYF#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQ0 [EA!J8&"$1P"33b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1P"33b"%DA0KFh0PE@*XCA) !D'4QBfpYF#"38%-k8&"$)%aTEQYPFJ"SC'CMEfe`)&"33cT38%-J8%9'!'KNCQ0 [EA!J8&"$1P"33b"3FQpUC@0d!'KNCQ0[EA!J8&"$1P"33d&cE5"3B@jPE!"SC'C MEfe`)&"33cT5CASJ3fpYF'PXCA)!D'4QF'&MDb"38%-k3h9cG'pY)%YPHAG[FQ4 c!'KNCR"KBfXJ8&"$1N&MBf9cFb"3BA4SF`"SC'C`B@0V)&"33cT8BA*RCA3J8f9 dG'PZCh-!D'4QF'&MDb"38%-k4QPXC5"0BA"`D@jRF`"SC'C`B@0V)&"33cT#G@P XC#"&H(4bBA-!D'4QF'&MDb"38%-k0MK,)%0[C'9(C@i!D'4QF'&MDb"38%-k0MK ,)%4TFf&cFf9YBQaPFJ"SC'C`B@0V)&"33cSf1%XJ6'PZDf9b!'KNCR"KBfXJ8&" $1MBi5b"3FQpUC@0d!'KNCR"KBfXJ8&"$1N-[3bXV)%0[EA"TE'9b!'KNCR"KBfX J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR"KBfXJ8&"$1N0'66Bi5`"SC'C`B@0V)&" 33cT*8L"2F(4TE@PkCA)!D'4QF'&MDb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4 QF'&MDb"38%-k8'&cBf&X)%0[EA"TE'9b!'KNCR"KBfXJ8&"$1P"KFf0KE#"ABA* ZD@jRF`"SC'C`B@0V)&"33cT38%-J3fpNC8GPEJ"SC'C`B@0V)&"33cT38%-J4'P cBA0cC@eLE'9b!'KNCR"KBfXJ8&"$1P"33b"-D@jVCA)!D'4QF'&MDb"38%-k8&" $)&"&4J"SC'C`B@0V)&"33cT38%-J8(*[DQ9MG!"SC'C`B@0V)&"33cT38%0"Ffd J8'&ZC@`!D'4QF'&MDb"38%-k8Q9k)%0[EA"TE'9b!'KNCR4[F'&X)&"33cT$GA0 dEfdJ5f9jGfpbC(-!D'4QG'p`B@`J8&"$1N&MBf9cFb"3BA4SF`"SC'CdEh"KE#" 38%-k9'&bCf9d)&0PG(4TEQGc!'KNCR4[F'&X)&"33cT'D@aP)%eKF("TEQGc!'K NCR4[F'&X)&"33cT#G@PXC#"&H(4bBA-!D'4QG'p`B@`J8&"$1MBi5b"$Ef4P4f9 Z!'KNCR4[F'&X)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCR4[F'&X)&"33cSf1%X J6'PZDf9b!'KNCR4[F'&X)&"33cSf1%XJ8(*[DQ9MG!"SC'CdEh"KE#"38%-k3bp $+bXJ3fpYF'PXCA)!D'4QG'p`B@`J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCR4[F'& X)&"33cT$4Ndf1%X!D'4QG'p`B@`J8&"$1NP5)%p`G'PYDATPFJ"SC'CdEh"KE#" 38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QG'p`B@`J8&"$1P"KFf0KE#"$Efe`D@a PFJ"SC'CdEh"KE#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCR4[F'&X)&"33cT38%- J3fpNC8GPEJ"SC'CdEh"KE#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'CdEh"KE#" 38%-k8&"$)%aTEQYPFJ"SC'CdEh"KE#"38%-k8&"$)&"&4J"SC'CdEh"KE#"38%- k8&"$)&"bEfTPBh3!D'4QG'p`B@`J8&"$1P"33d&cE5"3B@jPE!"SC'CdEh"KE#" 38%-k8Q9k)%0[EA"TE'9b!&"KE&4[5%4')&"33cT$GA0dEfdJ5f9jGfpbC(-!8'& X9'p)4%BJ8&"$1N&MBf9cFb"3BA4SF`"3B@a8EdK%4L"38%-k9'&bCf9d)&0PG(4 TEQGc!&"KE&4[5%4')&"33cT'D@aP)%eKF("TEQGc!&"KE&4[5%4')&"33cT#G@P XC#"&H(4bBA-!8'&X9'p)4%BJ8&"$1MBi5b"$Ef4P4f9Z!&"KE&4[5%4')&"33cS f1%XJ4'PcBA0cC@eLE'9b!&"KE&4[5%4')&"33cSf1%XJ6'PZDf9b!&"KE&4[5%4 ')&"33cSf1%XJ8(*[DQ9MG!"3B@a8EdK%4L"38%-k3bp$+bXJ3fpYF'PXCA)!8'& X9'p)4%BJ8&"$1N-[3bXV)&GKFQjTEQGc!&"KE&4[5%4')&"33cT$4Ndf1%X!8'& X9'p)4%BJ8&"$1NP5)%p`G'PYDATPFJ"3B@a8EdK%4L"38%-k6@&M6e-J6@9bCf8 J8'&ZC@`!8'&X9'p)4%BJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"3B@a8EdK%4L"38%- k8'&cBf&X)&GKFQjTEQGc!&"KE&4[5%4')&"33cT38%-J3fpNC8GPEJ"3B@a8EdK %4L"38%-k8&"$)%4TFf&cFf9YBQaPFJ"3B@a8EdK%4L"38%-k8&"$)%aTEQYPFJ" 3B@a8EdK%4L"38%-k8&"$)&"&4J"3B@a8EdK%4L"38%-k8&"$)&"bEfTPBh3!8'& X9'p)4%BJ8&"$1P"33d&cE5"3B@jPE!"3B@a8EdK%4L"38%-k8Q9k)%0[EA"TE'9 b!&)i9'p)4%BJ8&"$1N0eFh4[E5",CAPhEh*NF`"51&4[5%4')&"33cT"Bf0PFh- J8'&dD(-!8MK8EdK%4L"38%-k9'&bCf9d)&0PG(4TEQGc!&)i9'p)4%BJ8&"$1NC TE'8J6@&`F'PZCh-!8MK8EdK%4L"38%-k3R9TE'3J4AKdFQ&c!&)i9'p)4%BJ8&" $1MBi5b"$Ef4P4f9Z!&)i9'p)4%BJ8&"$1MBi5b"%DA0KFh0PE@*XCA)!8MK8EdK %4L"38%-k0MK,)%aTEQYPFJ"51&4[5%4')&"33cSf1%XJ8(*[DQ9MG!"51&4[5%4 ')&"33cT$,d-V+b"$Efe`D@aPFJ"51&4[5%4')&"33cT$,d-V+b"ABA*ZD@jRF`" 51&4[5%4')&"33cT$4Ndf1%X!8MK8EdK%4L"38%-k59)J6h"dD@eTHQ9b!&)i9'p )4%BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!&)i9'p)4%BJ8&"$1P"KFf0KE#"$Efe `D@aPFJ"51&4[5%4')&"33cT3BA0MB@`J9f&bEQPZCh-!8MK8EdK%4L"38%-k8&" $)%0[C'9(C@i!8MK8EdK%4L"38%-k8&"$)%4TFf&cFf9YBQaPFJ"51&4[5%4')&" 33cT38%-J6'PZDf9b!&)i9'p)4%BJ8&"$1P"33b"348B!8MK8EdK%4L"38%-k8&" $)&"bEfTPBh3!8MK8EdK%4L"38%-k8&"$3A0Y)&"KEQ9X!&)i9'p)4%BJ8&"$1P* PHL"$Efe`D@aPFJ"5590dEdK%4L"38%-k3h9cG'pY)%YPHAG[FQ4c!&**8h4[5%4 ')&"33cT"Bf0PFh-J8'&dD(-!8NP6G'p)4%BJ8&"$1P4KFQGPG#"6CA4dD@jRF`" 5590dEdK%4L"38%-k4QPXC5"0BA"`D@jRF`"5590dEdK%4L"38%-k3R9TE'3J4AK dFQ&c!&**8h4[5%4')&"33cSf1%XJ3fpNC8GPEJ"5590dEdK%4L"38%-k0MK,)%4 TFf&cFf9YBQaPFJ"5590dEdK%4L"38%-k0MK,)%aTEQYPFJ"5590dEdK%4L"38%- k0MK,)&"bEfTPBh3!8NP6G'p)4%BJ8&"$1N-[3bXV)%0[EA"TE'9b!&**8h4[5%4 ')&"33cT$,d-V+b"ABA*ZD@jRF`"5590dEdK%4L"38%-k3dC00MK,!&**8h4[5%4 ')&"33cT*8L"2F(4TE@PkCA)!8NP6G'p)4%BJ8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!&**8h4[5%4')&"33cT3BA0MB@`J3fpYF'PXCA)!8NP6G'p)4%BJ8&"$1P"KFf0 KE#"ABA*ZD@jRF`"5590dEdK%4L"38%-k8&"$)%0[C'9(C@i!8NP6G'p)4%BJ8&" $1P"33b"%DA0KFh0PE@*XCA)!8NP6G'p)4%BJ8&"$1P"33b"-D@jVCA)!8NP6G'p )4%BJ8&"$1P"33b"348B!8NP6G'p)4%BJ8&"$1P"33b"3FQpUC@0d!&**8h4[5%4 ')&"33cT38%0"FfdJ8'&ZC@`!8NP6G'p)4%BJ8&"$1P*PHL"$Efe`D@aPFJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!"!!!!BJ%!!!%!!!!!!!!!!!3!!!!!BE&hV)B!!$(C!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&8Np29!!!!!!!!!!!!!!!!!4(8P93!!! !!!!!!!-(8fpeFQ0PF`!!!!&'58a&!3!!)dG599!!!!!!!!!!!Jj"6P0*)%aTBR* KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP-43%!!!e(8P93!!!!!!!!!!%06@& M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8"!!!,4NP-43%!!!a(8P93!!!!!!! !!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8)8(*[DQ9MG(-!!!!&4NP-43%!!"" '58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a&!3!!&8C*6%8"!!!@4NP-43%!!"G '58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!a"0B@028b"38%-J6'PZDf9b!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-8NP6G'p )4%BJ8&"$3f8J8&"$!!!!!!!!!!!!!!!!!!!"1J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!3%"!!!"!3!"!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!!Q!!! !*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!!!!!! V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!!!,`! !!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"-!!!! %!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13!!!!! &!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!!!!!! !!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`%!!"S&!3% !!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!!!!%B !!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!*!!%!!3%!!!a0B@0)C@&NCA* c,QKSB@-ZD!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!! !!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AepcG'& bG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!%!!!P0CA*RC5"2GA3!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!r2cmr39"36!!"!3!!"%4-4eKMDfPN8(*[DPG68%-!$J!"!!!!!!%"!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!%!!3!$!J!"!3! "!!!!!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!"!!!!!!!!!!!'!!!25Q&fB80XBA0cCA- ZHQP`!!!!!!!!!!!!!!!!!!!!!&T*8#"+39C"!!!!"`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9iF'a[FQ9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%PPH("XEh*P,Q9 iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!"!%!!!-"!!!!!!3!!3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J! $!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!#Nj26N&045j&@%8!!!!!!!! !!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C!!!3N#H`!!!!! !!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!! )8NP6G'p)4%C[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3 !!!"!!!"B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!8!!"!!%!!3! "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!"3R3dp%45FJ*d4"9%%R)#G35808*`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-43%!!!P'58a&!3!!#%C *6%8"!!!04e*98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a &!3!!#dC*6%8"!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!! &#&"bEfTPBh4c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP -43%!!"9'58a&!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!3%!!!%"!!%!!!!'!!!25Q&fB80XBA0cCA-ZHQP `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!J"3!!%!!3!"!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!&#G$6d4&*b!R4%&835FJ*e"*3e3R!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!"S"!!!C!3!!'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`% !!!`"!!!0!3!!(J%!!"m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!! !!!"9!C!!!3N#H`!!!!!!!!!!!!!!!J!!!!)!!J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!3"!!!$!3!!!!%!!!%"!!!)!3!!#3%!!!S"!!!,!3!!$!%!!!d!"`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08dP&%8PZG'9bEQ9d)%9 iF'a[FQ9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%PPH("XEh*P,Q9iC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!(D'4QF'& MDcK[ER0[E'8J8&"$,QpeG!!!!!!!!!!!!&p)4%C"8&"-!!!"p!!!!I3!!!"!!!" B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!"2cmr2`!!!!!!!!"9!C!!!3N#H`!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!! !!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!!8C*6%8"!!!I4e*98!!!!!! !!!!#$N&18dNJ6'PLFQ&bD@9c!!!!!dC*6%8"!!!*4NP-43%!!!K'58a&!3!!$8G 599!!!!!!!!!!!3e0B@-J6'PLFQ&bD@9c!!!!!dC*6%8"!!!+4NP-43%!!!Y'58a &!3!!$%G599!!!!!!!!!!"!G)4%C-D@*c!!!!"NG599!!!!!!!!!!"3K3FQpUC@0 dF`!!!!9'58a&!3!!%%C*6%8"!!!54NP-43%!!"0'58a&!3!!&%C*6%8"!!!94NP -43%!!"C'58a&!3!!&dC*6%8"!!!B4NP-43%!!"P'58a&!3!!'J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!%!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!)!!`!+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%!!!9K,QpeG!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!"!!!!!!%!!!%!!!!!!3!93' 3!!%*!RX!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!)!!!!!!!!!2`!!!!0 cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C3D@j5!!!!ZJ!!!!G K8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T0C@je!!!"03!!!!Y d3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!jTE'a$!!!"U!!!!!p 6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"*(CA4$!!!#)`!!!"0 PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C(CA4$!!!#R`!!!"G d3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T$G'`,!!!$%3!!!"Y XG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j%FQ&R!!!$K`!!!"p 8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#)!!!!'!!!$q3!!!#1 [H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B!!!!!!!!%G3!!!#F !!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S!!!!!!!!%lJ!!!#X !!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i!!!!!!!!&A`!!!#m !!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$)!!!!!!!!&h3!!!$- !!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B!!!!!!!!'83!!!$F !!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S!!!!!!!!'bJ!!!$X !!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i!!!!!!!!(3`!!!$m !!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%)!!!!!!!!(a`!!!%- !!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B!!!!!!!!)4`!!!%F !!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S!!!!!!!!)a3!!!%X !!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i!!!!!!!!*6`!!!%m !!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&)!!!!!!!!*b`!!!&- !!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B!!!!!!!!+5J!!!&F !!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S!!!!!!!!+a!!!!&X !!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i!!!!!!!!,,J!!!&m !!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!')!!!!!!!!,MJ!!!'- !!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B!!!!!!!!,k`!!!'F !!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S!!!!!!!!-53!!!'X !!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i!!!!!!!!-U3!!!'m !!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!()!!!!!!!!-r`!!!(- !!!!!!!!0'J!!!(3!!!!!!!!0-J!!!(8!!!!!!!!063!!!(B!!!!!!!!0CJ!!!(F !!!!!!!!0IJ!!!(J!!!!!!!!0P3!!!(N!!!!!!!!0X3!!!(S!!!!!!!!0a`!!!(X !!!!!!!!0hJ!!!(`!!!!!!!!0q!!!!(d!!!!!!!!1%J!!!(i!!!!!!!!1*!!!!(m !!!!!!!!12!!!!)!!!!!!!!!1@3!!!)%!!!!!!!!1G!!!!))!!!!!!!!1M`!!!)- !!!!!!!!1TJ!!!)3!!!!!!!!1`J!!!)8!!!!!!!!1f!!!!)B!!!!!!!!1k`!!!)F !!!!!!!!2!J!!!)J!!!!!!!!2'J!!!)N!!!!!!!!2-J!!!)S!!!!!!!!26`!!!)X !!!!!!!!2D3!!!)`!!!!!!!!2KJ!!!)d!!!!!!!!2S3!!!)i!!!!!!!!2Z`!!!)m !!!!!!!!2e!!!!*!!!!!!!!!!$r)!!!#4!!!!!!!!%!S!!!#5!!!!!!!!%#-!!!# 6!!!!!!!!%$m!!!#8!!!!!!!!%&X!!!#9!!!!!!!!%'m!!!#@!!!!!!!!%)N!!!# A!!!!!!!!%+J!!!#B!!!!!!!!%-8!!!#C!!!!!!!!%1)!!!#D!!!!!!!!%2X!!!# E!!!!!!!!%4N!!!#F!!!!!!!!%6%!!!#G!!!!!!!!%8B!!!#H!!!!!!!!%9m!!!# I!!!!!!!!%AN!!!#J!!!!!!!!%C-!!!#K!!!!!!!!%Dm!!!#L!!!!!!!!%FJ!!!# M!!!!!!!!%H3!!!#N!!!!!!!!%Ii!!!#P!!!!!!!!%KF!!!#Q!!!!!!!!%Lm!!!# R!!!!!!!!%N`!!!#S!!!!!!!!%Q-!!!#T!!!!!!!!%RX!!!#U!!!!!!!!%TB!!!# V!!!!!!!!%V%!!!#X!!!!!!!!%X3!!!#Y!!!!!!!!%Yd!!!#Z!!!!!!!!%[X!!!# [!!!!!!!!%aF!!!#`!!!!!!!!%c-!!!#a!!!!!!!!%dX!!!#b!!!!!!!!%fJ!!!# c!!!!!!!!%hm!!!#d!!!!!!!!%j-!!!#e!!!!!!!!%kX!!!#f!!!!!!!!%m3!!!# h!!!!!!!!%pd!!!#i!!!!!!!!%rN!!!#j!!!!!!!!&")!!!#k!!!!!!!!&#i!!!# l!!!!!!!!&%J!!!#m!!!!!!!!&'%!!!#p!!!!!!!!&(N!!!#q!!!!!!!!&*B!!!# r!!!!!!!!&+d!!!$!!!!!!!!!&-8!!!$"!!!!!!!!&1!!!!$#!!!!!!!!&2X!!!$ $!!!!!!!!&3i!!!$%!!!!!!!!&5F!!!$&!!!!!!!!&88!!!$'!!!!!!!!&@%!!!$ (!!!!!!!!&Ad!!!$)!!!!!!!!&C8!!!$*!!!!!!!!&E)!!!$+!!!!!!!!&FN!!!$ ,!!!!!!!!&Gd!!!$-!!!!!!!!&I8!!!$0!!!!!!!!&Ji!!!$1!!!!!!!!&LF!!!$ 2!!!!!!!!&N3!!!$3!!!!!!!!&Pi!!!$4!!!!!!!!&RX!!!$5!!!!!!!!&TB!!!$ 6!!!!!!!!&V!!!!$8!!!!!!!!&XN!!!$9!!!!!!!!&ZF!!!$@!!!!!!!!&[m!!!$ A!!!!!!!!&aJ!!!$B!!!!!!!!&c3!!!$C!!!!!!!!&e!!!!$D!!!!!!!!&f3!!!$ E!!!!!!!!&hi!!!$F!!!!!!!!&jd!!!$G!!!!!!!!&lS!!!$H!!!!!!!!&pF!!!$ I!!!!!!!!&r!!!!$J!!!!!!!!'!i!!!$K!!!!!!!!'#B!!!$L!!!!!!!!'$X!!!$ M!!!!!!!!'&3!!!$N!!!!!!!!''i!!!$P!!!!!!!!')J!!!$Q!!!!!!!!'+8!!!$ R!!!!!!!!',m!!!$S!!!!!!!!'0`!!!$T!!!!!!!!'2F!!!$U!!!!!!!!'4%!!!$ V!!!!!!!!'5S!!!$X!!!!!!!!'8J!!!$Y!!!!!!!!'@!!!!$Z!!!!!!!!'AN!!!$ [!!!!!!!!'C8!!!$`!!!!!!!!'E%!!!$a!!!!!!!!'F8!!!$b!!!!!!!!'Gm!!!$ c!!!!!!!!'Ii!!!$d!!!!!!!!'KX!!!$e!!!!!!!!'MJ!!!$f!!!!!!!!'P%!!!$ h!!!!!!!!'Qm!!!$i!!!!!!!!'SF!!!$j!!!!!!!!'T`!!!$k!!!!!!!!'V8!!!$ l!!!!!!!!'Xm!!!$m!!!!!!!!'ZN!!!$p!!!!!!!!'`8!!!$q!!!!!!!!'ai!!!$ r!!!!!!!!'cS!!!%!!!!!!!!!'e3!!!%"!!!!!!!!'fd!!!%#!!!!!!!!'i8!!!% $!!!!!!!!'k)!!!%%!!!!!!!!'lN!!!%&!!!!!!!!'p%!!!%'!!!!!!!!'q`!!!% (!!!!!!!!(!F!!!%)!!!!!!!!("S!!!%*!!!!!!!!($-!!!%+!!!!!!!!(&%!!!% ,!!!!!!!!('d!!!%-!!!!!!!!()N!!!%0!!!!!!!!(+%!!!%1!!!!!!!!(,i!!!% 2!!!!!!!!(08!!!%3!!!!!!!!(1N!!!%4!!!!!!!!(3%!!!%5!!!!!!!!(4S!!!% 6!!!!!!!!(6-!!!%8!!!!!!!!(9!!!!%9!!!!!!!!(@S!!!%@!!!!!!!!(BF!!!% A!!!!!!!!(D)!!!%B!!!!!!!!(E`!!!%C!!!!!!!!(G8!!!%D!!!!!!!!(I-!!!% E!!!!!!!!(JX!!!%F!!!!!!!!(L3!!!%G!!!!!!!!(N!!!!%H!!!!!!!!(P`!!!% I!!!!!!!!(R!!!!%J!!!!!!!!(SS!!!%K!!!!!!!!(UN!!!%L!!!!!!!!(XB!!!% M!!!!!!!!(Z-!!!%N!!!!!!!!([`!!!%P!!!!!!!!(aS!!!%Q!!!!!!!!(c)!!!% R!!!!!!!!(dF!!!%S!!!!!!!!(f!!!!%T!!!!!!!!(hS!!!%U!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!#"38%-!8%9')%PYF'pbG#"38%-!690-)%-V+bj38%- Z6'PL!%e66#"$,P"33bj-D@)!5@jdCA*QB@0P6'PL!%eKG'K-D@)!690-)&*eER4 TE@938%-Z6'PL!%e66#"658p9@#j38%-Z6'PL!$T"6P0*)%-J3fpZFfpXC5"38%- !38j655"$)%0[ER0[E'8J8&"$!'KNCQac,Q-!D'4QE'PL,P"33bjXD@)!D'4QE'P L,R"bEfTPBh3!D'4Q)%aTBL!f1%XJ4'9LG@F!1QKNCMBiDbj'BA)S0'N[1'3T,Qa TBJ"SC'BJ6'PL)$Bi5`"SC'BJ6'PL)&"33b"%C@*eC`!kD'4QE'PL,P"33bjXD@) !D'4Q)%aTBL"38%-!DR"PCbj38%-ZE'PL!'T`C@GXD@)ZF(*[DQ9MG!"UF'9R)%a TBL!f1%XJ4'9LG@F!1QT`C@Ff1'XZ4Q&b+$4T,cKN+5jXD@)!DR"PCb"-D@)J0MK ,!'T`C@FJ6'PL)&"33b"%C@*eC`!kDR"PCbj38%-ZE'PL!'T`C@FJ6'PL)&"33`" kE'PL,R"bEfTPBh3!HQaTBL!f1%XJ4'9LG@F!1RSf1'XZ4Q&b+$4T,cKN+5jXD@) !HQaTBL!f1%X!HQaTBL"38%-J4'9LG@F!1RSZ8&"$,QaTBJ"kE'PL)&"33`"YCQK NCQaTBLj`FQpUC@0d!'eQD'4Q)%aTBL!f1%XJ4'9LG@F!1QeQD'4Q0MKV,NCKFLJ dD5miC#NZE'PL!'eND'4Q)%aTBL"38%-J4'9LG@F!1QeQD'4Q,P"33bjXD@)!E@C SC'BJ6'PL)$Bi5`"YCQKNCL"-D@)J8&"$!(KNFQaTBLj`FQpUC@0d!(KNFL"-D@) J0MK,)%4PBR9R!$TiC()f1'XZ4Q&b+$4T,cKN+5jXD@)!H'4b)%aTBL!f1%X!H'4 b)%aTBL"38%-J4'9LG@F!1RKNFLj38%-ZE'PL!(KNFL"-D@)J8&"$!$TSC'CXF`" SC'CXFb"38%-!1QC`-QKNCJ"QF$*SC'BJ8&"$!'C`-QKNCLjM!'KNCM)dG'mi,Q- !1QKNCM)dG'mi!'KNCM)dG'mi)&"33`!kD'4QBfpYF!"SC'CMEfe`)&"33`"SC'C MEfe`,Q-!1QKNCR"KBfX!D'4QF'&MDb"38%-!D'4QF'&MDbjM!'KNCR4[F'&X,Q- !1NK%4R4[8'&X!'KNCR4[F'&X)&"33`"`B@adEfKNCLjM!$T3B@adEdK%4J"3B@a 8EdK%4L"38%-!FMKdEfKNCLjM!$T51(4[5%4'!&)i9'p)4%BJ8&"$!(*TFh4[Ff4 c,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!#!!!!"X#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!N!!!! F!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!+!!!!(3)!!!!!!!! "!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#`!!!"i#!!!!!!!!!3!"!`!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!!!`!!!!I!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!0!!!!)!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!! !!3!!%!!!!#8#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!")!!!! Y!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!6!!!!0!)!!!!!!!! "!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!&!!!!$X#!!!!!!!!!3!"!J!!!!! !!!!!!!!!!!!!!!!!!!!!!!%!!"8!!!"#!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!! !!!!!!!!!!!!"!!!@!!!!+J8!!!!"!!!3!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!! !!3!!&`!!!$)&!!!!!3!!%J!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"J!!!! j"3!!!!%!!"-!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!C!!!!4`8!!!!"!!! 9!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'J!!!$m&!!!!!3!!&!!"!`!!!!! !!!!!!!!!!)%!!!!!!!!!!!%!!#-!!!"J!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!! "!!!!!!!!!!!"!!!M!!!!B!)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!3!!!!!!!!! !!!!!"!!!!!B!!!!&!fRaJ&""@%"D!'9iBb4LBJ0Tfk!$DHjJ!!!!!!!!!A!$Q!6 `DAK5Eh9ZC!K*EQPd!fRES!K*EQPd4h*KCJK2F'9Z8'pbG!e-Ef0KE&4[4fa[BQ& X$8GXEf*KE&4[6'pMB@`+4`#1aS$V!!!8!!!!)2rrpYJ!!!!!!!!!!!%!!3!$iH2 !!)l(%1X!!"3!!!!Jrrrfl!!!!!!!!!!!!3!"!!2Kim!!MXF`k`!!"!!!""$rrrE i6'PL)%PYF'pbG#!f1%X!69"A)%PYF'pbG#!f1%X!3Q&XE'p[EL")C@a`!%eA)%- [3bXV)$Bi5`"09b"3BA0MB@`J0MK,!&*PHJ"348BJ5@e`Eh*d)$Bi5`!!!#!!"QJ 3EfPZG%"!5%X`3&S!!fNDN!!$D6a3k`!!&!!!!#!!"QJNE'9%BA4K3%!c98p-!fN DN!!$D6a`k`!!&!!!!#!!"QJF8Q9MG%!b-!!r4'p%!fNDN!!$D6b3!1X!!"3!!!! J!!CS+'0P3%"4389,5e"#930T'T!!!fNmX1X!!"3!!!!J!!CS)&0[GA*MC8"!3&S !2`0T'T!!!fNmd1X!!"3!!!!J!!CS$!!!!!!!!!!!!!!!!!!!!!!$D6c`k`!!&!! !!#!!"QHmDA"LEf&bC%4KG'&!!fNDN!!$D6d3k`!!$!!!!$!!"QHd!!%!!!!#!!! !(!!!!!!!!!!!!!!!!!!!!!!!%!0TDq!$D6d`kf!!%!!!!X!!"QHS38j655"$Efj cEfaP)$BiD`"'DA*cG#"6C@GYC@jd!$TK,QpeG!"-D@)J5@e`Eh*d)$Bi5`"08&F J5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#! f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!$T"6P0*)%0[ER0[E'8J0MKV,QpeG!")C@a XEeG[FQaN,Q-!690-)%-Z0MK,)%CK+$4TAcKN+5j-D@)!690-)%-V+bif1%XJ4Q% S0'PI1'3T,NaTBJ"0BA4S6'PL0MK,)%CK+$4T,cKN+5j-D@)!690-)&*eER4TE@8 f1%XZ6'PL!%eKBdp6,QaTBJ"08d`J8dP299JZ0MK,,NaTBJ!k38j655"$EfjcEfa P)&"33bj[GA3!38j655"$EfjcEfaP)&"33`"-D@)J5@e`Eh*d)&"33`"09b"$,d- V+b"38%-!69FJ8'&cBf&X)&"33`"38%0"Ffd!@%024NBJ5@e`Eh*d)&"33`"348B J5@e`Eh*d)&"33`"08d`J3bXV,P"33bj-D@)!690-)%-Z8&"$,NaTBJ"*ER4PFQC KBf9-D@)!6@&dD%aTBJ"08d`J8R9ZG'PYC9"33bj-D@)!690-)&0*6e9B,P"33bj -D@)!1N&18dNJ3b"$EfjcEfaP)&"33`""6P0*)%-J3fpZFfpXC5"38%-!D'4QE(- ZB`"SC'CXD@)Z8&"$,QaTBJ"SC'CXD@)ZF(*[DQ9MG!"SC'BJ6'PL)$Bi5b"%C@* eC`!kD'4Q0MKV,NCKFLJdD5miC#NZE'PL!'KNCL"-D@)J0MK,!'KNCL"-D@)J8&" $)%4PBR9R!$TSC'CXD@)Z8&"$,QaTBJ"SC'BJ6'PL)&"33`"UF'9R,P"33bjXD@) !DR"PCfaTBLj`FQpUC@0d!'T`C@FJ6'PL)$Bi5b"%C@*eC`!kDR"PCcBiDbj'BA) S0'N[1'3T,QaTBJ"UF'9R)%aTBL!f1%X!DR"PCb"-D@)J8&"$)%4PBR9R!$TUF'9 R,P"33bjXD@)!DR"PCb"-D@)J8&"$!(TXD@)ZF(*[DQ9MG!"kE'PL)$Bi5b"%C@* eC`!kHMBiDbj'BA)S0'N[1'3T,QaTBJ"kE'PL)$Bi5`"kE'PL)&"33b"%C@*eC`! kHLj38%-ZE'PL!(TXD@)J8&"$!'eQD'4QE'PL,R"bEfTPBh3!E@CSC'BJ6'PL)$B i5b"%C@*eC`!kE@CSC'Bf1'XZ4Q&b+$4T,cKN+5jXD@)!E@4SC'BJ6'PL)&"33b" %C@*eC`!kE@CSC'BZ8&"$,QaTBJ"YCQKNCL"-D@)J0MK,!'eQD'4Q)%aTBL"38%- !H'4bE'PL,R"bEfTPBh3!H'4b)%aTBL!f1%XJ4'9LG@F!1RKNFMBiDbj'BA)S0'N [1'3T,QaTBJ"iC()J6'PL)$Bi5`"iC()J6'PL)&"33b"%C@*eC`!kH'4b,P"33bj XD@)!H'4b)%aTBL"38%-!1QKNCQac!'KNCQac)&"33`!kCR!bD'4Q!'C`-QKNCL" 38%-!CR!bD'4Q,Q-!D'4Q-M4dEcJZB`!kD'4Q-M4dEcJ!D'4Q-M4dEcJJ8&"$!$T SC'CMEfe`!'KNCQ0[EA!J8&"$!'KNCQ0[EA!ZB`!kD'4QF'&MD`"SC'C`B@0V)&" 33`"SC'C`B@0V,Q-!D'4QG'p`B@`ZB`!k5%4'G'p3B@`!D'4QG'p`B@`J8&"$!(" KE(4[D'4Q,Q-!1P"KE(4[5%4'!&"KE&4[5%4')&"33`"b1(4[D'4Q,Q-!1P)iG'p )4%B!8MK8EdK%4L"38%-!FQPcG'pcC(-ZB`!k8NP6G'p)4%B!8NP6G'p)4%BJ8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!F!"3!!!!P!!!!-!!%k!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!3!"1MSkFh*M1J"'0#iaFM) J,5"bC@aPBA0P1QKNCMTeG'PX1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!-!!6Sk1QT`C@Fk!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!!!!%!!%k1MTkE'PL1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!!!!!"3!"1MSk1QeQD'4Q1QaTBR0bBcS!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!B !!6Sk1MTYCQKNCMTiC()k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!)!!%k1J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!#`!#1NePG(*[Gf9bDh-J8h4 KEQ4KFQ3J6'PLFQ&bH6T08d`J8(*PBfpYF'PXC@3J5'9KC'9b1J!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"1N!!!!3!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%a TBR*KFRNk690-)%-k!'P[FMT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690 -)%-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3"!!!!"!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne 66#"$+bXk!!2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZDS!2'9'` %Ib!S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iXR3!!I!ib 2N!!$bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!!!!mZE!!! !!!%%Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&jf!"m!(fp l!ib2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp`!!!!!!mZ EB!!!!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y26!1@,Bi $bjZ3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS$adm3!!! !!!2'9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3%Hdp-!!! !!!-!!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9F-!2'9#J !!!!!!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!)%6!4dSD3 $NBlX!mZF8!1-Mj!!!Im"!%!!!!)!!MT0B@028b"6GA"`Eh*d1J"26!1,+-J$bjU !!ib2N!!$bjUmrrrrr`2,QS!!&9``"(mQX!!!!!%!!3!"!mZG@!2,Qa`!!!!!!mZ DS!2'9'`%Ib!S!!!!!32,QX!$M)q3!!!!!X3$aPmm!mZDi!1-Mj!!"(Y26!!!!iX R3!!I!ib2N!!$bjXFrrrrr`2,QZ#%!!5#"(mQX!2,Qr!$bjV`!mZG@!2,Qh`!!!! !!mZE!!!!!!%%Ib!S!!!!!32,Qb!$M)q3!!!!!X3$aPmm!mZE3!1-Mj!!"(Y26&j f!"m!(fpl!ib2N!!$bjYmrrrrr`2,Qd!!&9``"(mQX#iZ,Q`$bjYJ!mZG@!2,Qp` !!!!!!mZEB!!!!!)%Ib!S!mZGN!!$bjY`!ib2N!!!!!,%!mCI2!2,Qk!$bjY`"(Y 26!1@,Bi$bjZ3!!1-Mj!!!mZEh2rrrrm$bjZJ!!!!!!4r*V!$bj[i!mZE`"BB+TS $adm3!!!!!!2'9'`!!!!"rrrrrJ2,R"J!!!!!!"9F-!!!!X3$aPmm!mZF!!,rLj3 %Hdp-!!!!!!-!!C!!!ib2N!!!#!!)!!!!!!2,R!!!&9md"""2h!!!!!!!!!!!!"9 F-!2'9#J!!!!!!mG*0!!!!!)!!!!$rrrrr`2,R$!!&9``!j'F!!!!!!!$bja!!!) %6!4dSD3$NBlX!mZF8!1-Mj!!!Im"!%!!!!-!!MS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!5!!!!!!!!%!"dj[EQ8!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!&069"b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"+BACK)%aTEQYPFJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!439"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!3dq-D`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3facF`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!5QTbCLjUFQB!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!69G$4!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9B9#j LD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jSG'eX!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j UBACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@NP3)!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"!!!!!@QP`4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!#j ME'&cF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jkDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69FJ5Q&fB3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@&M6e- J0MK,)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!%p#5L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*68N-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[Efi J5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZCAK`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !%!!!!&4&@&3ZF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZF'0S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bX V)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!! !J!!!!&4&@&3ZF("e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0 KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!&4&@&3ZFf9R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA" [FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !8!!!!%eKBdp6)%ePFQGP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!G"8&"-!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'aL!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"0B@028b"38%-J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!! E39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !68e-3J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69G$4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!! !9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&" 33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&" $!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!! !9%9B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)&" 33`!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jc!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8&"$3A0Y!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!@%024J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!@%024NBJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#" 38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8%9')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!68-J6'PZDf9b!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!%N0-99-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%e06%)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%a TBL"*EA"[FR3J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%p#5L!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e39b"*EA"[FR3J0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBfac!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e$)%0XBA0c)%0[EA"TE'9b!!!!!!!!!!! !!!!!!!!!J!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh"`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZC'9Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZC'pM!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!%!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)&"KFf0KE#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!! !!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e A)%-[3bXV)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZG(-!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!>EM-b)(Ji0L"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!""849K 8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K 8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"i1$B!!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K 8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`JH$Jf!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R*M!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"AD@j53`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R*PF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@j5CA-J5@e`Eh*d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!!!!!! !,QaTBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)(Ji0J! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,QpLDJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"2BQSJ5@e`Eh*d)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'3,Z !!!!4[J!!)!"YFh4b!!!!!!!!!!!!!!C![A3!!&,!!!!2!'ecG'`!!!!!!!!!!!! !"N#mE!!!!#J!!!8!EA0dEJ!!!!!!!!!!!!!!!!!!!!!&+!!!!#KYFh4T!!!!!!! !!!!!!!C!ZJJ!!'e!!!!)!'ecG()!!!2S!!!!!!!!"N#k(!!!"9!!!!B!EA0dE!! !!qJ!!!!!!!!'3,V3!!!-D!!!!J"YFh4Z!!!$k!!!!!!!!!C!Zq`!!'K!!!!&!'e dF'`!!!!"!!!!!!!!"N#kQ!!!#fX!!!#!EA4`F`!!!!%!!!!!!!!'3,S3!!!-8!! !!"KYG(0X!!!!!3!!!!!!!!!!!!!!!!jS!!!!+'ecG'N!!!2S!!!!!!!!"N#m3!! !$T!!!!!#,'e`FfN!!!2S!!!!!!!!"N#l)!!!-Ei!!!)DEA4RE!!!!qJ!!!!!!!! !!!!!!!!,k`!!!!jYG("T!!!!!3!!!!!!!!C!Zj`!!![j!!!!-'edE'm!!!!"!!! !!!!!"N#l"!!!-pJ!!!%P8%acG!!!bFd!!!!I!!!!!!!!!!"(N!!!!!!ZF(*PCJ! "5j)!!!!Y!!!!!!!!!!",M`!!"%P`FQ9Q!!)#V`!!!#i!!!!!!!!!!"'k!!!!"(" bC@B!!G[X!!!!,`!!!!!!!!!!5d8!!!!NF(*PCJ!"j%%!!!!k!!!!!!!!!!",D3! !!!T`FQ9Q!!(98!!!!$X!!!!!!!!!!&(N!!!!NR"bC@B!!GeE!!!!2!!!!!!!!!! !8RB!!!"+F(*PCJ!"l@m!!!!p!!!!!!!!!!!mK3!!!#j`FQ9Q!!%$lJ!!!&8!!!! !!!!!!$bc!!!%5A"bC@B!!9B&!!!!9J!!!!!!!!!!32`!!!!%F(*PCJ!"CCm!!!" A!!!!!!!!!!""!!!!!#4`FQ9Q!!#M0`!!!&J!!!!!!!!!!%%N!!!!#R"bC@B!!)J 8!!!!@3!!!!!!!!!!35i!!!#5F(*PCJ!!UkF!!!"D!!!!!!!!!!""`!!!!%T`FQ9 Q!!%9C`!!!&X!!!!!!!!!!$Gb!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!#e!!!!! DF(*PCJ!CLAB!!!%8!!!!!!!!!!"e3!!!'("`FQ9Q!"QFK`!!!48!!!!!!!!!!$6 p!!!#C("bC@B!'@L!!!!"&J!!!!!!!!!!ME!!!##kF(*PCJ!CZfN!!!%A!!!!!!! !!!!-+3!!!!4`FQ9Q!"R4m3!!!4J!!!!!!!!!!!`Y!!!!'("bC@B!'LUZ!!!"'3! !!!!!!!!!$%8!!!!+F(*PCJ!D#&3!!!%D!!!!!!!!!!!3[!!!!!j`FQ9Q!"R1V3! !!4X!!!!!!!!!!"$+!!!!aR"bC@B!'Gr*!!!"(!!!!!!!!!!!12)!!!!iF(*PCJ! D#(%!!!%G!!!!!!!!!!!4N!!!!!!-F(*PCJ!D)Id!!!%H!!!!!!!!!!!j+J!!!GT `FQ9Q!"PdB`!!!4m!!!!!!!!!!"'F!!!!$("bC@B!'K5h!!!")!!!!!!!!!!!1`3 !!!"LF(*PCJ!Cji3!!!%K!!!!!!!!!!!lCJ!!!$K`FQ9Q!"PNE!!!!5)!!!!!!!! !!"'S!!!!$A"bC@B!'C!!bJ!!!5-!!!!!!!!!!$ZH!!!!&("bC@B!'@)%!!!"*!! !!!!!!!!!0f%!!!!+F(*PCJ!CXDi!!!%P!!!!!!!!!!!lXJ!!!-4`FQ9Q!"RXq!! !!5B!!!!!!!!!!%)+!!!"&R"bC@B!'90)!!!"*`!!!!!!!!!!3b!!!!#kF(*PCJ! C9Q`!!!%S!!!!!!!!!!"$fJ!!!#j`FQ9Q!"Q)MJ!!!5N!!!!!!!!!!%3)!!!#$(" bC@B!'HG,!!!"+J!!pN8!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdfed.project.hqx0000644000000000000000000014261112421456623020304 0ustar (This file must be converted with BinHex 4.0) :$@KNCQ9N,R"bEfTPBh3!68e3FN0A588!!!!!N@B!!!!!HrCMEfpX!!!!!J!!!#J !!)[#!!#,kJ!!"A`!!!!f!3!!!!!!!!!!!!!!!!!!!!!!!!&M*%*#!!!!)3!!!!) !!!!!!!!!2`!!!!0cD!K3!!!!B!!!!!3$DHl3!!!!I`!!!!8+3@4N!!!!R3!!!!C 3D@j5!!!!ZJ!!!!GK8'pT!!!!h!!!!!K05A4P!!!!q!!!!!Pd8Q9c!!!"&3!!!!T 0C@je!!!"03!!!!Yd3fpZ!!!"93!!!!a$Efjd!!!"E3!!!!e[Ff9$!!!"L`!!!!j TE'a$!!!"U!!!!!p6D'ph!!!"aJ!!!"")D@4P!!!"h`!!!"&0EhCP!!!#!J!!!"* (CA4$!!!#)`!!!"0PG%05!!!#4!!!!"4kC80[!!!#B3!!!"9XDA4P!!!#J`!!!"C (CA4$!!!#R`!!!"Gd3e4T!!!#Z!!!!"KdE&CK!!!#e3!!!"PTEN0d!!!#m`!!!"T $G'`,!!!$%3!!!"YXG@8*!!!$-3!!!"aX#90P!!!$6J!!!"e8CA0d!!!$DJ!!!"j %FQ&R!!!$K`!!!"p8FQ&M!!!$Q3!!!#!-4(*K!!!$ZJ!!!#%!!!'!!!!$f!!!!#) !!!!'!!!$q3!!!#1[H%9I!!!%'!!!!#3!!!!!!!!%0J!!!#8!!!!!!!!%8`!!!#B !!!!!!!!%G3!!!#F!!!!!!!!%N3!!!#J!!!!!!!!%VJ!!!#N!!!!!!!!%cJ!!!#S !!!!!!!!%lJ!!!#X!!!!!!!!&"J!!!#`!!!!!!!!&*!!!!#d!!!!!!!!&33!!!#i !!!!!!!!&A`!!!#m!!!!!!!!&H!!!!$!!!!!!!!!&Q`!!!$%!!!!!!!!&[!!!!$) !!!!!!!!&h3!!!$-!!!!!!!!&qJ!!!$3!!!!!!!!'(!!!!$8!!!!!!!!'1!!!!$B !!!!!!!!'83!!!$F!!!!!!!!'EJ!!!$J!!!!!!!!'M!!!!$N!!!!!!!!'UJ!!!$S !!!!!!!!'bJ!!!$X!!!!!!!!'j`!!!$`!!!!!!!!(!`!!!$d!!!!!!!!()!!!!$i !!!!!!!!(3`!!!$m!!!!!!!!(B`!!!%!!!!!!!!!(KJ!!!%%!!!!!!!!(T`!!!%) !!!!!!!!(a`!!!%-!!!!!!!!(jJ!!!%3!!!!!!!!)#J!!!%8!!!!!!!!)+!!!!%B !!!!!!!!)4`!!!%F!!!!!!!!)D3!!!%J!!!!!!!!)L`!!!%N!!!!!!!!)T3!!!%S !!!!!!!!)a3!!!%X!!!!!!!!)kJ!!!%`!!!!!!!!*$3!!!%d!!!!!!!!*-!!!!%i !!!!!!!!*6`!!!%m!!!!!!!!*F`!!!&!!!!!!!!!*N3!!!&%!!!!!!!!*V!!!!&) !!!!!!!!*b`!!!&-!!!!!!!!*k`!!!&3!!!!!!!!+#`!!!&8!!!!!!!!++J!!!&B !!!!!!!!+5J!!!&F!!!!!!!!+C3!!!&J!!!!!!!!+K`!!!&N!!!!!!!!+TJ!!!&S !!!!!!!!+a!!!!&X!!!!!!!!+i`!!!&`!!!!!!!!+r3!!!&d!!!!!!!!,&!!!!&i !!!!!!!!,,J!!!&m!!!!!!!!,4J!!!'!!!!!!!!!,A3!!!'%!!!!!!!!,F`!!!') !!!!!!!!,MJ!!!'-!!!!!!!!,S`!!!'3!!!!!!!!,Z3!!!'8!!!!!!!!,dJ!!!'B !!!!!!!!,k`!!!'F!!!!!!!!,r!!!!'J!!!!!!!!-%`!!!'N!!!!!!!!-,`!!!'S !!!!!!!!-53!!!'X!!!!!!!!-B`!!!'`!!!!!!!!-H3!!!'d!!!!!!!!-P!!!!'i !!!!!!!!-U3!!!'m!!!!!!!!-Z`!!!(!!!!!!!!!-d3!!!(%!!!!!!!!-k!!!!() !!!!!!!!-r`!!!(-!!!!!!!!0'3!!!(3!!!!!!!!0-!!!!(8!!!!!!!!05J!!!(B !!!!!!!!0BJ!!!(F!!!!!!!!0H3!!!(J!!!!!!!!0M`!!!(N!!!!!!!!0UJ!!!(S !!!!!!!!0[`!!!(X!!!!!!!!0e3!!!(`!!!!!!!!0lJ!!!(d!!!!!!!!1"`!!!(i !!!!!!!!1'!!!!(m!!!!!!!!1,`!!!)!!!!!!!!!15`!!!)%!!!!!!!!1C3!!!)) !!!!!!!!1I`!!!)-!!!!!!!!1P3!!!)3!!!!!!!!1X!!!!)8!!!!!!!!1a3!!!)B !!!!!!!!1e`!!!)F!!!!!!!!1l3!!!)J!!!!!!!!2"!!!!)N!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!L3!!!+!!!!mE!!!3!!!!!)N !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!J!!!!#J!!!")!!!!Q!!!!6`!!!#N !!!")!!!!-3!!!#i!!!!q!!!!2!!!!%B!!!"$!!!!1!!!!$8!!!!K!!!!!!!!!"- !!!!&!!!!!3!!!#F!!!!P!!!!+J!!!#J!!!"3!!!!)`!!!#3!!!"*!!!!)J!!!!X !!!"1!!!!5J!!!%X!!!"-!!!!63!!!"`!!!![!!!!,3!!!$)!!!!`!!!!+`!!!#` !!!!$!!!!&!!!!"!!!!!G!!!!$J!!!$d!!!!r!!!!1`!!!%!!!!!k!!!!"!!!!!d !!!!D!!!!$!!!!"X!!!!2!!!!(J!!!"%!!!!I!!!!"J!!!"8!!!!(!!!!&J!!!!N !!!!C!!!!&`!!!!J!!!!B!!!!4!!!!%)!!!"(!!!!43!!!%%!!!!f!!!!0!!!!$N !!!!h!!!!-`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&%!!!"J!!!%[J!!#!!!!!"4!!!!!!!!!!! !!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm!!!!!Irm!!!!!Irm!!!!#!3!!"J)!!!! !!!%"!!%"!!!!!3!!!!%!!!!!!3%!!!%"!!%!!!F"!!%"!!%"!!!!!3!!!3%"!!! "!3!"!!!!!!!!!!%!!!!#!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!!!!!J !!!!0!!!!#3!!!!m!!!!+!!!!$J!!!"!!!!!4!!!!%J!!!"-!!!!8!!!!&3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!EhY[HfplEhX!!`%"!3%"!3%!!3! !!3%"!!!!!!!!!!!!!J!!!!!!!!!!!!!!!!!!!!!!&3!!!#!"!!%!!#!!!3!!!!9 56dp8!!!!!!!!!!!!!!!!"%G599!!!!!!!!!!!`G6Eh9bBf9c!!!!"8C*6%8"!!! F4NP-43%!!"e'58a&!3!!(NC*6%8"!!!I4NP-43%!!#"(8P93!!!!!!!!!!)138j 655"-D@*bBA*TCA-!!!!$4NP-43%!!!P'58a&!3!!#%C*6%8"!!!04e*98!!!!!! !!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a&!3!!#dC*6%8"!!!-4e* 98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!!&#&"bEfTPBh4c!!!!"8C *6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP-43%!!"9'58a&!3!!&NC *6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!N!!3!"!3!!$%eKBdKPB@4 PFR-ZD'KKBbjS!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!$J!"!!!!!!% "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!%!!3! $!J!"!3!"!!!!!!!!!!!!!!!!!3!"!!!!!J!!!"`!!!!!!!!!!!!!!!!!!!!!!%) !!!"$!!!!4!!!!%8!!!!q!!!!33!!!%B!!!"(!!!!5!!!!$d!!!"!!!!!53!!!&3 !!!"9!!!!9J!!!%S!!!",!!!!6!!!!%d!!!"1!!!!6`!!!&!!!!"4!!!!8J!!!&- !!!!r!!!!9`!!!&J!!!"C!!!!@J!!!!8!!!!'!!!!"`!!!!J!!!!"!!!!"!!!!!N !!!!+!!!!#`!!!!!!!!!$!!!!$!!!!!d!!!!1!!!!$`!!!"!!!!!4!!!!%J!!!"- !!!!8!!!!&3!!!"B!!!!A!!!!'!!!!"N!!!!#!!!!'J!!!"X!!!!F!!!!(3!!!#3 !!!!P!!!!*J!!!#F!!!!J!!!!)`!!!#J!!!!T!!!!+J!!!"m!!!!L!!!!+`!!!#` !!!!Y!!!!,J!!!#m!!!!`!!!!-3!!!$)!!!!c!!!!0!!!!$8!!!!f!!!!0`!!!$J !!!!K!!!!13!!!$S!!!!l!!!!2!!!!(F!!!"i!!!!H3!!!(S!!!"c!!!!GJ!!!(X !!!"m!!!!I3!!!()!!!"e!!!!IJ!!!(m!!!#!!!!!J3!!!))!!!#$!!!!K!!!!)8 !!!#'!!!!K`!!!)J!!!"d!!!!B!!!!'%!!!"L!!!!B`!!!&`!!!"I!!!!C!!!!'8 !!!"Q!!!!@`!!!&i!!!"R!!!!D!!!!'N!!!"U!!!!D`!!!'`!!!"Y!!!!EJ!!!'m !!!"`!!!!F3!!!&d!!!!H!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!$!!!!"J!!!!-!!!!'XdBMCJ!!BTm!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!P0CA* RC5"2GA3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!r2cmr39"36!!"!3!!"%4-4eKMDfPN8(*[DPG68%-!!J!!!!) !!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3%!!!%"!!%"!!!"!!""6P0*)%0[ER0[E'8J0MKV!%CTFR0d)&0PCfePER3 !1Q%ZEh9d!%aTBL"*EA"[FR3J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[EfiJ5'9 XF!"09b"$,d-V+b!f1%X!69FJ8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#!f1%X !1N&18dNJ3fpZFfpXC5!f1'XZEh9d!%KPE'a[9fpbE'3ZB`"08d`J3bif1%XJ4Q% S0'PI1'3T,NaTBJ"08d`J3bXV,MBi5b"'B5JdD9miC#NZ6'PL!%eKG'K-D@)f1%X J4Q%S0'N[1'3T,NaTBJ"08d`J8R9ZG'PYC6Bi5bj-D@)!6@&M6e-ZE'PL!%e66#" 658p9@#if1%XZ6'PL!$T"6P0*)%0[ER0[E'8J8&"$,QpeG!""6P0*)%0[ER0[E'8 J8&"$!%aTBL"*EA"[FR3J8&"$!%eA)%-[3bXV)&"33`"09b"3BA0MB@`J8&"$!&" 33d&cE3"B3dp'4L"*EA"[FR3J8&"$!&"&4L"*EA"[FR3J8&"$!%e66#"$+bXZ8&" $,NaTBJ"08d`J3bj38%-Z6'PL!%PZG'9bCQ&MC8aTBJ"0BA4S6'PL!%e66#"5G@j dD@eP8&"$,NaTBJ"08d`J8dP299JZ8&"$,NaTBJ!k38j655"$)%0[ER0[E'8J8&" $!%&18dNJ3b"$EfjcEfaP)&"33`"SC'CXFbjM!'KNCQaTBLj38%-ZE'PL!'KNCQa TBLj`FQpUC@0d!'KNCL"-D@)J0MK,)%4PBR9R!$TSC'Bf1'XZ4Q&b+$4T,cKN+5j XD@)!D'4Q)%aTBL!f1%X!D'4Q)%aTBL"38%-J4'9LG@F!1QKNCQaTBLj38%-ZE'P L!'KNCL"-D@)J8&"$!'T`C@FZ8&"$,QaTBJ"UF'9RE'PL,R"bEfTPBh3!DR"PCb" -D@)J0MK,)%4PBR9R!$TUF'9R0MKV,NCKFLJdD5miC#NZE'PL!'T`C@FJ6'PL)$B i5`"UF'9R)%aTBL"38%-J4'9LG@F!1QT`C@FZ8&"$,QaTBJ"UF'9R)%aTBL"38%- !HQaTBLj`FQpUC@0d!(TXD@)J0MK,)%4PBR9R!$Tk0MKV,NCKFLJdD5miC#NZE'P L!(TXD@)J0MK,!(TXD@)J8&"$)%4PBR9R!$Tk,P"33bjXD@)!HQaTBL"38%-!E@C SC'CXD@)ZF(*[DQ9MG!"YCQKNCL"-D@)J0MK,)%4PBR9R!$TYCQKNCMBiDbj'BA) S0'N[1'3T,QaTBJ"YC'KNCL"-D@)J8&"$)%4PBR9R!$TYCQKNCLj38%-ZE'PL!'e QD'4Q)%aTBL!f1%X!E@CSC'BJ6'PL)&"33`"iC(*XD@)ZF(*[DQ9MG!"iC()J6'P L)$Bi5b"%C@*eC`!kH'4b0MKV,NCKFLJdD5miC#NZE'PL!(KNFL"-D@)J0MK,!(K NFL"-D@)J8&"$)%4PBR9R!$TiC()Z8&"$,QaTBJ"iC()J6'PL)&"33`!kD'4QE(- !D'4QE(-J8&"$!'KPAf4TFh!ZB`"SC9pQD@aP,Q-!D'9IE@&TELjM!'KPAh"bEh4 [,QJ!D'9IBfjdFQ`ZB`!kD'4QC@3!D'4QC@3J8&"$!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!!!J!!!!E!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!*!!! !(!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#J!!!"d#!!!!!!! !!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!X!!!!H!J!!!!!!!!%!!3-!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!-!!!!(`)!!!!!!!!"!!%$!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!$3!!!#!#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!!"!!!!!P!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!5!!! !,3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%`!!!$3#!!!!!!! !!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"3!!!!l!J!!!!!!!!%!!3)!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!9!!!!3J)!!!!!!!!"!!%#!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!&J!!!#S&!!!!!3!!%!!"!`!!!!!!!!!!!!!!!)%!!!!!!!! !!!%!!"F!!!!b"3!!!!%!!")!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!B!!! !138!!!!"!!!6!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'3!!!%F&!!!!!3! !&3!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"S!!!!r"3!!!!%!!"3!!3-!!!! !!!!!!!!!!!#"!!!!!!!!!!!"!!!F!!!!5`)!!!!!!!!"!!%"!!!!!!!!!!!!!!! !!3!!!!!!!!!!!3!!(3!!!%`#!!!!!!!!!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!! !!!%!!"i!!!"0!J!!!!!!!!%!!3%!!!!!!!!!!!!!!!!"!!!!!!!!!!!"!!!I!!! !6J)!!!!!!!!"!!%"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!)!!!!%m#!!!!!!! !!3!"!3!!!!!!!!!!!!!!!!%!!!!!!!!!!!%!!#!!!!"2!J!!!!!!!!%!!3%!!!! !!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!%!!3!$iH2!!)l(-1X!!!3!!!33rrr fq%aTBL"*EA"[FR3J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[EfiJ5'9XF!"09b" $,d-V+b!f1%X!69FJ8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#!f1%X!!!!J!!C S%'pTER4!3%K,-%"D!!0T'T!!!fNm81X!!"3!!!!J!!CS*'aP4'&dB8"!-e926!0 T'T!!!fNmF1X!!"3!!!!J!!CS(&*PBh4!-M!!2d4[4!0T'T!!!fNmN!$V!!!8!!! !)!!'D#KMC8"!88&&5dY33P8$D4U3!!0T2,$V!!!8!!!!)!!'D#"6Eh9bBf9!3%" D!$m$D4U3!!0T20$V!!!8!!!!)!!'D!`!!!!!!!!!!!!!!!!!!!!!!fNmm1X!!"3 !!!!J!!CR['P`BQpKFQ4%BA4K3!0T'T!!!fNp%1X!!!`!!!!`!!CRY!!"!!!!!J! !!"`!!!!!!!!!!!!!!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!CRU%&18dNJ3fp ZFfpXC5!f1'Xk3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5!f1'Xk3@0MCA0 c)&"KG'Kc!%&18dNJ3fpZFfpXC5!f1'Xk9'&bCf9d)&0PG(4TEQGc!%&18dNJ3fp ZFfpXC5!f1'Xk4QPXC5"0BA"`D@jRF`""6P0*)%0[ER0[E'8J0MKV1N*eD@aN)%9 iG(*KF`""6P0*)%0[ER0[E'8J0MKV1MBi5b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5! f1'Xk0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"-D@jVCA) !38j655"$EfjcEfaP)$BiDcSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1N- [3bXV)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5!f1'Xk3bp$+bXJ9f&bEQPZCh-!38j 655"$EfjcEfaP)$BiDcT$4Ndf1%X!38j655"$EfjcEfaP)$BiDcT*8L"2F(4TE@P kCA)!38j655"$EfjcEfaP)$BiDcT+BACK)%peG("eG!""6P0*)%0[ER0[E'8J0MK V1NTKGQ%J8(*[DQ9MG!""6P0*)%0[ER0[E'8J0MKV1NTKGQ%J9Nd!38j655"$Efj cEfaP)$BiDcT0B@028b"0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8J0MKV1P"KFf0 KE#"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J0MKV1P"KFf0KE#"ABA*ZD@jRF`""6P0 *)%0[ER0[E'8J0MKV1P"33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)%4 TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J0MKV1P"33b"-D@jVCA)!38j655"$Efj cEfaP)$BiDcT38%-J8%9'!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"bEfTPBh3!38j 655"$EfjcEfaP)$BiDcT38%0"FfdJ8'&ZC@`!38j655"$EfjcEfaP)$BiDcT5CAS J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcTAD@j53b"$Efe`D@aPFJ""6P0*)%0 [ER0[E'8J0MKV1RJi0L"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5!f1'XkH$Jf)%aTEQY PFJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"3FQpUC@0d!&"bEfTPBh3J4QPXC5"-DA0 d!%&18dNJ3fpZFfpXC5"38%-k3h9cG'pY)%YPHAG[FQ4c!%&18dNJ3fpZFfpXC5" 38%-k3@0MCA0c)&"KG'Kc!%&18dNJ3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQG c!%&18dNJ3fpZFfpXC5"38%-k4QPXC5"0BA"`D@jRF`""6P0*)%0[ER0[E'8J8&" $1N*eD@aN)%9iG(*KF`""6P0*)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%&18dN J3fpZFfpXC5"38%-k0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1MB i5b"-D@jVCA)!38j655"$EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!""6P0*)%0[ER0 [E'8J8&"$1N-[3bXV)%0[EA"TE'9b!%&18dNJ3fpZFfpXC5"38%-k3bp$+bXJ9f& bEQPZCh-!38j655"$EfjcEfaP)&"33cT$4Ndf1%X!38j655"$EfjcEfaP)&"33cT *8L"2F(4TE@PkCA)!38j655"$EfjcEfaP)&"33cT+BACK)%peG("eG!""6P0*)%0 [ER0[E'8J8&"$1NTKGQ%J8(*[DQ9MG!""6P0*)%0[ER0[E'8J8&"$1NTKGQ%J9Nd !38j655"$EfjcEfaP)&"33cT0B@028b"0CA*RC5"3B@jPE!""6P0*)%0[ER0[E'8 J8&"$1P"KFf0KE#"$Efe`D@aPFJ""6P0*)%0[ER0[E'8J8&"$1P"KFf0KE#"ABA* ZD@jRF`""6P0*)%0[ER0[E'8J8&"$1P"33b"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5" 38%-k8&"$)%4TFf&cFf9YBQaPFJ""6P0*)%0[ER0[E'8J8&"$1P"33b"-D@jVCA) !38j655"$EfjcEfaP)&"33cT38%-J8%9'!%&18dNJ3fpZFfpXC5"38%-k8&"$)&" bEfTPBh3!38j655"$EfjcEfaP)&"33cT38%0"FfdJ8'&ZC@`!38j655"$EfjcEfa P)&"33cT5CASJ3fpYF'PXCA)!38j655"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@a PFJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"$Ef4P4f9Z!%&18dNJ3fpZFfpXC5"38%- kH$Jf)%aTEQYPFJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"3FQpUC@0d!%&18dNJ3b" $EfjcEfaP)&"33cT$GA0dEfdJ5f9jGfpbC(-!38j655"$)%0[ER0[E'8J8&"$1N& MBf9cFb"3BA4SF`""6P0*)%-J3fpZFfpXC5"38%-k9'&bCf9d)&0PG(4TEQGc!%& 18dNJ3b"$EfjcEfaP)&"33cT'D@aP)%eKF("TEQGc!%&18dNJ3b"$EfjcEfaP)&" 33cT#G@PXC#"&H(4bBA-!38j655"$)%0[ER0[E'8J8&"$1MBi5b"$Ef4P4f9Z!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ4'PcBA0cC@eLE'9b!%&18dNJ3b"$EfjcEfa P)&"33cSf1%XJ6'PZDf9b!%&18dNJ3b"$EfjcEfaP)&"33cSf1%XJ8(*[DQ9MG!" "6P0*)%-J3fpZFfpXC5"38%-k3bp$+bXJ3fpYF'PXCA)!38j655"$)%0[ER0[E'8 J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3b"$EfjcEfaP)&"33cT$4Ndf1%X!38j 655"$)%0[ER0[E'8J8&"$1NP5)%p`G'PYDATPFJ""6P0*)%-J3fpZFfpXC5"38%- k6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$)%0[ER0[E'8J8&"$1P"KFf0KE#"$Efe `D@aPFJ""6P0*)%-J3fpZFfpXC5"38%-k8'&cBf&X)&GKFQjTEQGc!%&18dNJ3b" $EfjcEfaP)&"33cT38%-J3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%4 TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%aTEQYPFJ""6P0*)%- J3fpZFfpXC5"38%-k8&"$)&"&4J""6P0*)%-J3fpZFfpXC5"38%-k8&"$)&"bEfT PBh3!38j655"$)%0[ER0[E'8J8&"$1P"33d&cE5"3B@jPE!""6P0*)%-J3fpZFfp XC5"38%-k8Q9k)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT+BACK)%peG(" eG!""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"3FQpUC@0d!%&18dNJ3b"$EfjcEfa P)&"33cT+BACK)&C0!%&18dNJ3b"$EfjcEfaP)&"33cTAD@j53b"$Efe`D@aPFJ" "6P0*)%-J3fpZFfpXC5"38%-kH$Jf)%0[C'9(C@i!38j655"$)%0[ER0[E'8J8&" $1RJi0L"-D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1RJi0L"3FQpUC@0d!'KNCQa c)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QE(-J8&"$1N&MBf9cFb"3BA4SF`"SC'C XFb"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQac)&"33cT'D@aP)%eKF("TEQGc!'K NCQac)&"33cT#G@PXC#"&H(4bBA-!D'4QE(-J8&"$1MBi5b"$Ef4P4f9Z!'KNCQa c)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCQac)&"33cSf1%XJ6'PZDf9b!'KNCQa c)&"33cSf1%XJ8(*[DQ9MG!"SC'CXFb"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QE(- J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCQac)&"33cT$4Ndf1%X!D'4QE(-J8&"$1NP 5)%p`G'PYDATPFJ"SC'CXFb"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QE(-J8&" $1P"KFf0KE#"$Efe`D@aPFJ"SC'CXFb"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCQa c)&"33cT38%-J3fpNC8GPEJ"SC'CXFb"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'C XFb"38%-k8&"$)%aTEQYPFJ"SC'CXFb"38%-k8&"$)&"&4J"SC'CXFb"38%-k8&" $)&"bEfTPBh3!D'4QE(-J8&"$1P"33d&cE5"3B@jPE!"SC'CXFb"38%-k8Q9k)%0 [EA"TE'9b!'KNCQ9N)&"33cT$GA0dEfdJ5f9jGfpbC(-!D'4QC@3J8&"$1N&MBf9 cFb"3BA4SF`"SC'CPC#"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQ9N)&"33cT'D@a P)%eKF("TEQGc!'KNCQ9N)&"33cT#G@PXC#"&H(4bBA-!D'4QC@3J8&"$1MBi5b" $Ef4P4f9Z!'KNCQ9N)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCQ9N)&"33cSf1%X J6'PZDf9b!'KNCQ9N)&"33cSf1%XJ8(*[DQ9MG!"SC'CPC#"38%-k3bp$+bXJ3fp YF'PXCA)!D'4QC@3J8&"$1N-[3bXV)&GKFQjTEQGc!'KNCQ9N)&"33cT$4Ndf1%X !D'4QC@3J8&"$1NP5)%p`G'PYDATPFJ"SC'CPC#"38%-k6@&M6e-J6@9bCf8J8'& ZC@`!D'4QC@3J8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'CPC#"38%-k8'&cBf&X)&G KFQjTEQGc!'KNCQ9N)&"33cT38%-J3fpNC8GPEJ"SC'CPC#"38%-k8&"$)%4TFf& cFf9YBQaPFJ"SC'CPC#"38%-k8&"$)%aTEQYPFJ"SC'CPC#"38%-k8&"$)&"&4J" SC'CPC#"38%-k8&"$)&"bEfTPBh3!D'4QC@3J8&"$1P"33d&cE5"3B@jPE!"SC'C PC#"38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!3%)!!!!!!!4!!!!!J!!!!!!!!!I!!!!!fGcEf)!!!! Q!!!!"!0TBj!!!!!!03!!!!8"!3%"!!!!4!!!!!B!!!!!!!!!83!!!!F!!!!!!!! !AJ!!!!J!!!!"!!!!E!!!!!NCjJ!!!!!!F!!!!!S!!'*P!!!!I`!!!!YN4@pL!!! !P3!!!!aNG!!!!!!!SJ!!!!d!!!!!!!!!ZJ!!!!i!!!!!!!!!e!!!!!rqi!"N!!! !l3!!!""LDQ3!!!!"!!!!!"%!'G%!!!!"#J!!!")!!!!!!!!"(!!!!"-!rrrr!!! "-J!!!"4[BQTN!!!"3`!!!"8!!!!!!!!"8J!!!"B!!!!!!!!"A`!!!"F!!2rr!!! "E3!!!"J!KfpL!!!"G!!!!"P`G!!!!!!"K3!!!"S!!!!!!!!"P!!!!"X!!!!!!!! "T!!!!"aXB@0P!!!"XJ!!!"d!!$eR!!!"[`!!!"i@!"!"!!!"a`!!!"mB!!!!!!! "fJ!!!#$r!!!C!!!"l!!!!#%!!!'!!!!#!!!!!#)!!!!!!!!#%`!!!#-!!!!!!!! #'`!!!#5jd!!!!!!#+J!!!#9dE!!!!!!#13!!!#B$NBR!!!!#5`!!!#GYFh4Z!!! #BJ!!!#J!!!14!!!#EJ!!!#N!+'ec!!!#J!!!!#S!!!!!!!!#N!!!!!!VEhY[H`! !!T`!!!!X!+"lB!!!!UN!!!!Y!!!#-!!!!VN!!!!Z!!!!&!!!!X`!!!![!!!!!!! !!Z3!!!!`!!!!!!!!![%!!!!a!!!!!!!!!`3!!!!b!!!!!!!!!a)!!!!c!!!!!!! !!am!!!!d!!!!!!!!!b`!!!!e!!!!!!!!!cX!!!!f!!!!!!!!!e!!!!!h!!!!!!! !!eN!!!!i!!!!!!!!!fJ!!!!j!!!!!!!!!h-!!!!k!!!!!!!!!h`!!!!l!!!!!!! !!id!!!!m!!!!!!!!!k%!!!!p!!!!!!!!!lS!!!!q!!!!!!!!!mi!!!!r!!!!!!! !!pd!!!"!!!!!!!!!!qX!!!""!!!!!!!!!rN!!!"#!!!!!!!!"!J!!!"$!!!!!!! !""S!!!"%!!!!!!!!"$%!!!"&!!!!!!!!"$d!!!"'!!!!!!!!"%m!!!"(!!!!!!! !"&`!!!")!!!!!!!!"'J!!!"*!!!!!!!!"'m!!!"+!!!!!!!!"(N!!!",!!!!!!! !")-!!!"-!!!!!!!!")d!!!"0!!!!!!!!"*F!!!"1!!!!!!!!"+)!!!"2!!!!!!! !"+d!!!"3!!!!!!!!",3!!!"4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!!"4!3!!!3!!!!!!!!!!"!!!!!"3XAH[NIrrdd`!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!&%&18dNJ3fpZFfpXC5!f1'XZEh9d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$mr2cp"8&" -!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`!!!!!!!!!!!&8"N!!"#3*l!!! !!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" IAh0dBA*d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8"!!!3!!!!"!!!!!! Q!!!!*`!!!!!&!!!!!!!!!#J!!!!R!!!!!!8!!!!!!!!!+3!!!#S!!!!!"3!!!!! !!!!V!!!!+J%!!"B&!3%!!3!!%J!!!!3!!!!!,J!!!#m!!!!!"3!!!!!!!!!`!!! !,`!!!!!&!!!!!!!!!$%!!!!b!!!!!!8!!!!!!!!!-`!!!$)"!!!A"3%"!!%!!"- !!!!%!!!!!$8!!!!f!!!!!!8!!!!!!!!!0`!!!$B!!!!!"3!!!!!!!!!i!!!!13! !!!!&!!!!!!!!!$S!!!!j!3!!'!8"!3!"!!!8!!!!"!!!!!!m!!!!23!!!!!&!!! !!!!!!$i!!!!r!!!!!!8!!!!!!!!!3!!!!$d!!!!!"3!!!!!!!!""!!!!2`%!!"S &!3%!!3!!&3!!!!3!!!!!3`!!!%3!!!!!"3!!!!!!!!"&!!!!4!!!!!!&!!!!!!! !!%B!!!"(!!!!!!8!!!!!!!!!5!!!!%F"!!!C"3%"!!!$%%eKBdp6)&"33b"-D@j VCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!PSC'CPC#"38%0ZFfpXC5"38%-!!!!!!!!!!!!!!!!!!!%k!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"2cmr2`!!!!! !!!"9!C!!!3N#H`!!!!!!!!!!!!!"!!!D!3!!'3%!!"J"!!!A!3!!&J%!!!J"!!! *!3!!#J%!!!X"!!!-!3!!$3%!!"`"!!!G!3!!(J%!!"m"!!!J!!3!!!9SC'CPC%- J3fpZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!(d!!!"p!!!!%!!!&M !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!!!!B!!!p+BACK3fa KFh0PFbjkDA!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N%!!!!(!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK`E'pbCA)!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5@9iF'a [FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!!"!!"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!#!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!+6Np138e&,N9B43! !!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!!"#3* l!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!3!'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!8!! "!!%!!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3R3dp%45FJ*d4"9%%R)#G35808*`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! "!!!*6@9bCf8J6h9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e" $!!-#!!%"!!%!!!!!!!!!!!!!!!!!!3%"!!!"!3!"!!!!"J!!$dTKGQ&$E'&cFf9 c,RTTF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3%!!"!!!!!%!!!!!#B !!!!R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!!!!!! !!#X!!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$!!!!! [!!!!!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3!!%`! !!!3!!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!!j!!! !!!8!!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8!!!! !!!!!2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!!!!!!8 !!!!"!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!!!!!! !4J!!!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!%N&18dNJ3b"$Efj cEfaP)&"33bj[GA3!!!!!!!!!!!!r2cmr39"36!!!!B!!!!'!!!!!3!!!@-!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6m r2cm!!!!!!!!!93'3!!%*!RX!!!!!!!!!!!!!!!)!!!!#!!)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%r2cm r!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!"!%!!!-"!!!!!3!!!3%!!!J"!!!*!3!!#J%!!!X"!!!-!3! !$3!(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA* ZCA3J4AK`E'pbCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!5@9iF'a[FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!8!! "!!%!!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3R3dp%45FJ*d4"9%%R)#G35808*`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!"!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!#!!-!#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!&B5j [GA3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!! %!&8"N!!"#3*l!!!!!!!!!!!!!!!'!!!!"`!&!!!!#8!!!!`!!6S!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!"!!%k1MTcFQ-k!%Bd,M&b-L!Y)(* PE'9KFf8kD'4Q1R9dD@`k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%!!!!!!`!"1MSkDR"PCcS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!!!!!!3!!6Sk1RTXD@)k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !!!!&!!%k1MSkE@CSC'BkE'PLFh*M1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!"J!"1MS k1QeQD'4Q1RKNFMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!J!!6Sk!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3"!!!!,!!)k6@9dFQphCA*VFb"6G'&ZC'& bC#"-D@*bBA*j1Ne66#"3FQ9MEfe`D@aPC#")C@&NCA)k!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!%k3!!!"!!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ& bH6T08d`J3cS!D@pb1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3cS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!"!%!!!!%!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%aTBR*KFRNk690-)%- V+cS!!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC8E!4r)#J !!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m$M)q3!!2 ,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX!!!!!!34 r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`!IEhX$M)q 3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!!$bjYJ!!! !!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jBYMJ2,Qj! !!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a!!!!!!!mC 8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d`!!!!!!`! "N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC8+!!!!!! $adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5KT!14MZ` $bja3!ib2N!!"r`%!3!!!!J!#1NeKBdp6)&0eF("[FR3k!%p-!iXSb!2,QS!$M)q 3!!2,QVcrrrrr!mZDJ!!9A$!%IbD`!!!!!3!"!!%$bjeB!mZE(!!!!!!$bjUJ!mC 8E!4r)#J!!!!"!mZD`!1-Mj!!!!!#a!2'Ac`$bjVJ!ib2N!!%Hdp-!!!$LbG!!"m $M)q3!!2,Qacrrrrr!mZDi)3!"))%IbD`!mZEm!2,Q[!$bjeB!mZEI!!!!!!$bjX !!!!!!34r)#J!!!!"!mZE)!1-Mj!!!!!#a!2'Ac`$bjY!!ib2N!!%Hdp-ARB!(`! IEhX$M)q3!!2,Qhcrrrrr!mZE3!!9A$!%IbD`,LiZE!2,Qf!$bjeB!mZEh!!!!!! $bjYJ!!!!!J4r)#J$bjf3!!2,Qh!$M)q3!!!!!X3$aPmm!mZES!2,Qh!%Hdp-!jB YMJ2,Qj!!!ib2N!!$bj[Frrrrr`2,Qk!!!!!!"(mQX!2,QrJ$bj[!&KJUQJ2(6a! !!!!!!mC8E!!!!!(rrrrq!mZF'!!!!!!!&9``!!!#a!2'Ac`$bj`!![q,P!4l6d` !!!!!!`!"N!!$M)q3!!!)!!J!!!!!!mZF!!!9Ac3%%%rF!!!!!!!!!!!!&9``!mC 8+!!!!!!$adNd!!!!!J!!!!2rrrrr!mZF-!!9A$!$NC`!!!!!!!2,R%!!!J4-"(5 KT!14MZ`$bja3!ib2N!!"r`%!3!!!!`!#1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!")!!!!!!!!3!(6QpZC3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!8e08()!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!%TKGQ%J6'PZDf9b!!!!!!!!!!! !!!!!!!!!!!!!!!!!!"&"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"$6iaV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"$E(0c!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"+DR*Q,QTbCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"09d0%!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,QKdE@`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QTKGQ% !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"D59!J!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%!!!!"DDA"'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0e!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!!!!!!!,Q0XBA0 c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"+BACK!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!,RTTF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!"09b"+BACK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"0B@028b!f1%X J6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!E39"36!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !3A"`E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!68e-3J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69G$4!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !6d*+)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !9%9B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jPH(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!! !9%9B9#j`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#j`BfJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK ,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!! !9%9B9#j`F(8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$B i5`!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !9%9B9#jcC@F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C'pMG3!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!! !FR0bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!8%9')%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!! !Fh4eBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%9')%PYF'pbG#! f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!! !6@&M6e-J6@9bCf8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"d&38%`!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&*68N-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%* KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!%eKBdp6)&"33b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!"Y"8&" -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"068a #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"-D@)J5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09d0 %!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K 8,Q*S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q0`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,Q9iF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K 8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"3BA0MB@`J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b"38%-!!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"09b"$,d-V+b"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K 8,R"`G3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J8&"$!!! !!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K 8,R-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"38%0"Ffd!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!"B3dp'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"B3dp'4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!"NEf0 e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"cD'a L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)&"33`! !!!!!!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!"348BJ5@e`Eh*d)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&!!!!"03b"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!53da98`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!68e-3J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!69"-4J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6'PL)%P YF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6d*+)!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69"A)%PYF'pbG#!f1%X!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jM+bX!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jME(-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!68-J3faKFh-J3fpYF'PXCA)!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#jNC@B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jNEf-!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!3!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'& cBf&X)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!! !!!#!!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp $+bXJ0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#jdF`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!9fPZ-c)JH$Jf)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!%&4&@&3ZB`! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBf- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh" `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0 S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!! !!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)%-[3bXV)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF(" e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"i1$B!!!!!!!! !!!!!!!!!!!!!!!!!J!!!!&4&@&3ZFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%eA)>EP*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZFQ9 c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>EP*PFb"*EA"[FR3!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!ZE'P L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3JH$Jf!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!ZEf*U!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!%pLDL"*EA"[FR3JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!C![63!!"k q!!!3!'ecG()!!!!!!!!!!!!!"N#mA!!!!#J!!!H!EA0dE!!!!!!!!!!!!!!'3,` X!!!-D!!!!S"YFh4Z!!!!!!!!!!!!!!!!!!!!!!HS!!!!+'ecG'N!!!!!!!!!!!! !"N#mG!!!%Ei!!!J!EA0dFJ!!!qJ!!!!!!!!'3,U8!!!Z[J!!")"YFh4X!!!$k!! !!!!!!!C![0J!!!I3!!!"J'ecG'i!!!2S!!!!!!!!"N#mT!!!'Ei!!!8!EA4`E!! !!!%!!!!!!!!'3,``!!!*d!!!!)"YG("c!!!!!3!!!!!!!!C!ZPJ!!!a3!!!!''e dFf`!!!!"!!!!!!!!!!!!!!!!#9!!!!!SEA0dD3!!!qJ!!!!!!!!'3,S-!!!1k!! !!LaYF(0T!!!$k!!!!!!!!!C!ZH`!!$-q!!!#'QedCf`!!!2S!!!!!!!!!!!!!!! !#RJ!!!!1EA4`D3!!!!%!!!!!!!!'3,b3!!!!1iB!!!"!EA4XE`!!!!%!!!!!!!! '3,R%!!!+KJ!!!8936(0d!!$*c3!!!"m!!!!!!!!!!%H3!!!!!#j`FQ9Q!!&,NJ! !!#d!!!!!!!!!!%Z2!!!%5A"bC@B!!J+[!!!!,J!!!!!!!!!!%ES!!!!%F(*PCJ! "fq`!!!![!!!!!!!!!!",43!!!#4`FQ9Q!!(N33!!!$S!!!!!!!!!!%YT!!!!#R" bC@B!!G93!!!!1`!!!!!!!!!!8H3!!!#5F(*PCJ!"h9X!!!!m!!!!!!!!!!"5GJ! !!%T`FQ9Q!!(YE`!!!$d!!!!!!!!!!$b&!!!!,R"bC@B!!32Z!!!!93!!!!!!!!! !2,-!!!4*F(*PCJ!"9J8!!!"@!!!!!!!!!!"!r!!!!!4`FQ9Q!!&PR`!!!&F!!!! !!!!!!%%!!!!!*("bC@B!!+-h!!!!@!!!!!!!!!!!353!!!!+F(*PCJ!!L"3!!!" C!!!!!!!!!!"",J!!!**`FQ9Q!!#VT`!!!&S!!!!!!!!!!%(!!!!!5R"bC@B!!49 R!!!!@`!!!!!!!!!!0h)!!!'!EA0`D3!!!!%!!!!!!!!!!!!!!!!*H!!!!"T`FQ9 Q!"UD%!!!!(-!!!!!!!!!!&,!!!!BF("bC@B!'T@E!!!!G!!!!!!!!!!!12)!!!* NF(*PCJ!DZL!!!!"e!!!!!!!!!!"V-!!!),T`FQ9Q!"Sa9`!!!(B!!!!!!!!!!!Q 5!!!!"("bC@B!'Z5&!!!!G`!!!!!!!!!!#CB!!!!BF(*PCJ!DJH-!!!"i!!!!!!! !!!!*VJ!!!!T`FQ9Q!"S'q`!!!(N!!!!!!!!!!!Qi!!!!$R"bC@B!'HXf!!!!HJ! !!!!!!!!!09J!!!$'F(*PCJ!D[bS!!!"l!!!!!!!!!!!,b`!!!$K`FQ9Q!"SCY`! !!(`!!!!!!!!!!!T3!!!!$("bC@B!'I-a!!!!I3!!!!!!!!!!3JS!!!(DF(*PCJ! DfN-!!!"q!!!!!!!!!!!+A!!!!!a`FQ9Q!"RfA!!!!(m!!!!!!!!!!"%8!!!!BR" bC@B!'Uf6!!!!J!!!!!!!!!!!$!-!!!!iF(*PCJ!D)A)!!!#"!!!!!!!!!!!+D!! !!!e`FQ9Q!"U+8`!!!))!!!!!!!!!!!`l!!!!&("bC@B!'I"'!!!!J`!!!!!!!!! !#FB!!!!+F(*PCJ!D)d!!!!#%!!!!!!!!!!!f(J!!!-4`FQ9Q!"R[X3!!!)8!!!! !!!!!!%2N!!!"&R"bC@B!'KV*!!!!KJ!!!!!!!!!!1mB!!!#kF(*PCJ!D2Nd!!!# (!!!!!!!!!!!4GJ!!!#j`FQ9Q!"Ucm!!!!)J!!!!!!!!!!%6k!!!#$("bC@B!'X6 I!!!!L3!!bfX!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/MacProjects/hdftoR8.project.hqx0000644000000000000000000015622012421456623020551 0ustar (This file must be converted with BinHex 4.0) :$fKNCR4[8MJZF(*[DQ9MG!"069"b3eG*43!!!!#LCJ!!!!!$5f0[Ef`!!!!#!!! !+!!!R-)!!*cU!!!&I!!!!$B"!!!!!!!!!!!!!!!!!!"#!!!!3`!!!%3!!!"&!!! !2J!!!%%!!!"'!!!!4`!!!%J!!!!p!!!!3!!!!%N!!!"8!!!!93!!!&B!!!"+!!! !5`!!!%`!!!"0!!!!6J!!!%m!!!"3!!!!83!!!&)!!!"6!!!!2`!!!&F!!!"B!!! !@3!!!&S!!!!&!!!!"J!!!!F!!!!)!!!!!3!!!!3!!!!*!!!!#J!!!!X!!!!!!!! !!`!!!!`!!!!0!!!!$J!!!!m!!!!3!!!!%3!!!")!!!!6!!!!&!!!!"8!!!!@!!! !&`!!!"J!!!!C!!!!!J!!!"S!!!!E!!!!(!!!!"d!!!!N!!!!*3!!!#B!!!!R!!! !)!!!!#-!!!!S!!!!+3!!!#S!!!!I!!!!)J!!!#X!!!!X!!!!,3!!!#i!!!![!!! !-!!!!$%!!!!b!!!!-`!!!$3!!!!e!!!!0J!!!$F!!!!i!!!!)3!!!$N!!!!k!!! !1`!!!$`!!!"h!!!!H!!!!(N!!!"k!!!!F`!!!(B!!!"l!!!!I!!!!(d!!!"b!!! !G3!!!(i!!!"r!!!!J!!!!)%!!!##!!!!J`!!!)3!!!#&!!!!KJ!!!)F!!!#)!!! !G!!!!)i!!!#2!!!!N!!!!!#4!!!!LJ!!!)d!!!#5!!!!N`!!!*3!!!#*!!!!M!! !!*8!!!#@!!!!P`!!!*J!!!#C!!!!QJ!!!*X!!!#F!!!!R3!!!*i!!!#I!!!!L`! !!+8!!!#Q!!!!T`!!!+J!!!#K!!!!T!!!!+N!!!#U!!!!U`!!!+!!!!#M!!!!V!! !!+d!!!#Z!!!!V`!!!,!!!!#a!!!!XJ!!!,-!!!#d!!!!Y3!!!,B!!!#L!!!!B!! !!'%!!!"L!!!!B`!!!&`!!!"I!!!!C!!!!'8!!!"Q!!!!@`!!!&i!!!"R!!!!D!! !!'N!!!"U!!!!D`!!!'`!!!"Y!!!!EJ!!!'m!!!"`!!!!F3!!!&d!!!#m!!!![3! !!,i!!!#r!!!!Z!!!!,X!!!$!!!!!`3!!!-)!!!#h!!!!ZJ!!!--!!!$%!!!!a3! !!-B!!!$(!!!!b!!!!-N!!!$+!!!!b`!!!-`!!!$0!!!!Z3!!!0-!!!$8!!!!e3! !!0B!!!$2!!!!dJ!!!0F!!!$B!!!!f3!!!-i!!!$4!!!!fJ!!!0X!!!$F!!!!h3! !!0i!!!$I!!!!i!!!!1%!!!$L!!!!i`!!!13!!!$3!!!!kJ!!!1X!!!$X!!!!l3! !!1B!!!$T!!!!lJ!!!1m!!!$`!!!!j3!!!1J!!!$a!!!!mJ!!!2-!!!$d!!!!p3! !!2B!!!$h!!!!q!!!!2N!!!$k!!!!q`!!!1F!!!!H!!!!!!!!!!!!!!!!!!!!!!! !!2`!!!%!!!!DdJ!!(!!!!!$m!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3% )!!!!!!!4!!!!!J!!!!!!!!!I!!!!!fGcEf)!!!!Q!!!!"!0TBj!!!!!!03!!!!8 "!3%"!!!!4!!!!!B!!!!!!!!!83!!!!F!!!!!!!!!AJ!!!!J!!!!"!!!!E!!!!!N CjJ!!!!!!F!!!!!S!!'*P!!!!I`!!!!YN4@pL!!!!P3!!!!aNG!!!!!!!SJ!!!!d !!!!!!!!!ZJ!!!!i!!!!!!!!!e!!!!!rqi!"N!!!!l3!!!""LDQ3!!!!"!!!!!"% !'G%!!!!"#J!!!")!!!!!!!!"(!!!!"-!rrrr!!!"-J!!!"4[BQTN!!!"3`!!!"8 !!!!!!!!"8J!!!"B!!!!!!!!"A`!!!"F!!2rr!!!"E3!!!"J!KfpL!!!"G!!!!"P `G!!!!!!"K3!!!"S!!!!!!!!"P!!!!"X!!!!!!!!"T!!!!"aXB@0P!!!"XJ!!!"d !!$eR!!!"[`!!!"i@!"!"!!!"a`!!!"mB!!!!!!!"fJ!!!#$r!!!C!!!"l!!!!#% !!!'!!!!#!!!!!#)!!!!!!!!#%`!!!#-!!!!!!!!#'`!!!#5jd!!!!!!#+J!!!#9 dE!!!!!!#13!!!#B$NBR!!!!#5`!!!#GYFh4Z!!!#BJ!!!#J!!!14!!!#EJ!!!#N !+'ec!!!#J!!!!#S!!!!!!!!#N!!!!!!VEhY[H`!!!T`!!!!X!+"lB!!!!UN!!!! Y!!!#-!!!!VN!!!!Z!!!!&!!!!X`!!!![!!!!!!!!!Z3!!!!`!!!!!!!!![%!!!! a!!!!!!!!!`3!!!!b!!!!!!!!!a)!!!!c!!!!!!!!!am!!!!d!!!!!!!!!b`!!!! e!!!!!!!!!cX!!!!f!!!!!!!!!e!!!!!h!!!!!!!!!eN!!!!i!!!!!!!!!fJ!!!! j!!!!!!!!!h-!!!!k!!!!!!!!!h`!!!!l!!!!!!!!!id!!!!m!!!!!!!!!k%!!!! p!!!!!!!!!lS!!!!q!!!!!!!!!mi!!!!r!!!!!!!!!pd!!!"!!!!!!!!!!qX!!!" "!!!!!!!!!rN!!!"#!!!!!!!!"!J!!!"$!!!!!!!!""S!!!"%!!!!!!!!"$%!!!" &!!!!!!!!"$d!!!"'!!!!!!!!"%m!!!"(!!!!!!!!"&`!!!")!!!!!!!!"'J!!!" *!!!!!!!!"'m!!!"+!!!!!!!!"(N!!!",!!!!!!!!")%!!!"-!!!!!!!!")`!!!" 0!!!!!!!!"*8!!!"1!!!!!!!!"+!!!!"2!!!!!!!!"+S!!!"3!!!!!!!!",F!!!" 4!!!!!!!!"-!!!!"5!!!!!!!!"-`!!!"6!!!!!!!!"0B!!!"8!!!!!!!!"0m!!!" 9!!!!!!!!"1X!!!"@!!!!!!!!"28!!!"A!!!!!!!!"3!!!!"B!!!!!!!!"3S!!!" C!!!!!!!!"4F!!!"D!!!!!!!!"5%!!!"E!!!!!!!!"5S!!!"F!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!! J!!!!#J!!!")!!!"+!!!!6J!!!#B!!!"3!!!!+3!!!%J!!!"6!!!!9`!!!&S!!!! a!!!!,J!!!$i!!!!m!!!!4J!!!%-!!!!i!!!!03!!!#%!!!!!!!!!%`!!!!8!!!! "!!!!5`!!!%`!!!!R!!!!*3!!!#S!!!!S!!!!6`!!!%d!!!"4!!!!8J!!!#-!!!! N!!!!53!!!#)!!!"8!!!!93!!!&J!!!"@!!!!@`!!!&N!!!!,!!!!(!!!!#m!!!! Y!!!!-J!!!$!!!!!V!!!!,!!!!!-!!!!8!!!!%!!!!"d!!!!1!!!!23!!!$m!!!! l!!!!3!!!!$S!!!!%!!!!$3!!!"S!!!!-!!!!'`!!!!m!!!!H!!!!%3!!!"m!!!! '!!!!&3!!!!F!!!!@!!!!#3!!!"N!!!!A!!!!#!!!!"J!!!"%!!!!3J!!!%F!!!" &!!!!33!!!$B!!!!d!!!!13!!!$F!!!!c!!!!!!!!!!!!!!!!!!!!!!!!!&`!!!" J!!!&0J!!#!!!!!"F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`!!Irm!!!!!Irm!!!! !Irm!!!!!Irm!!!!#!3!!"J)!!!!!!!%"!!%"!!!!!3!!!!%!!!!!!3%!!!%"!!% !!!F"!!%"!!%"!!!!!3!!#3!"!!%"!!!-6@&M5'9KC'9bFbjSD'&M,QJ!!!!!!!! !!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!$!3%"!3%"!3!"!!!"!3%!!!!!!!!!!!! 1!!%!!!!!!3%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! !!!!!!3!"!!)!!!!!!!!!!!!!!!!$!J!"!3!"!!!!!!!!!!!!!!!!!!!!!!!!!!% !!!!#!!!!!`!!!!3!!!!&!!!!"J!!!!X!!!!(!!!!$!!!!!J!!!!0!!!!#3!!!!m !!!!+!!!!$J!!!"!!!!!4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!EhY[HfplEhX!!!!4!!!!)!%!!3!!)3%!!"S"!!!C!3! !'!%!!"F"!!!@!3!!#!%!!!N"!!!+!3!!#`%!!!`"!!!0!3!!)3!"!3%!!!%"!!% !!!%"!!%!!!!!!!!!!!!!!3%!!3!"!3!"!!%!!!!#!!!!(!!!!!!!!!!!!!!!!!! !!!!!!`!!!!B!!!!$!!!!"V0'-h%!!&Q#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!"F!3!!!3!!!!!!!!! !"!!!!!"EXAHKY3!!%0%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!&%&18dN J3fpZFfpXC5!f1'XZEh9d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!$mr2cp"8&"-!!!"J&L!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2`! !!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!!!!!"J!!!!!!!!!!!!!!!!!!!!!) !!!!#!!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!"!!""6P0*)%0[ER0[E'8J0MKV1N0eFh4[E5" ,CAPhEh*NF`""6P0*)%0[ER0[E'8J0MKV1N&MBf9cFb"3BA4SF`""6P0*)%0[ER0 [E'8J0MKV1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J0MKV1NCTE'8J6@& `F'PZCh-!38j655"$EfjcEfaP)$BiDcT#G@PXC#"&H(4bBA-!38j655"$EfjcEfa P)$BiDcSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1MBi5b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)$BiDcSf1%XJ6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'X k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)$BiDcT$,d-V+b"$Efe`D@aPFJ""6P0 *)%0[ER0[E'8J0MKV1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfpXC5!f1'Xk3dC 00MK,!%&18dNJ3fpZFfpXC5!f1'Xk59)J6h"dD@eTHQ9b!%&18dNJ3fpZFfpXC5! f1'Xk5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)$BiDcT+BACK)&"bEfTPBh3!38j 655"$EfjcEfaP)$BiDcT+BACK)&C0!%&18dNJ3fpZFfpXC5!f1'Xk6@&M6e-J6@9 bCf8J8'&ZC@`!38j655"$EfjcEfaP)$BiDcT3BA0MB@`J3fpYF'PXCA)!38j655" $EfjcEfaP)$BiDcT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfaP)$BiDcT38%- J3fpNC8GPEJ""6P0*)%0[ER0[E'8J0MKV1P"33b"%DA0KFh0PE@*XCA)!38j655" $EfjcEfaP)$BiDcT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5!f1'Xk8&"$)&"&4J" "6P0*)%0[ER0[E'8J0MKV1P"33b"3FQpUC@0d!%&18dNJ3fpZFfpXC5!f1'Xk8&" $3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5!f1'Xk8Q9k)%0[EA"TE'9b!%&18dNJ3fp ZFfpXC5!f1'Xk9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)$BiDcTi1$BJ3fp NC8GPEJ""6P0*)%0[ER0[E'8J0MKV1RJi0L"-D@jVCA)!38j655"$EfjcEfaP)$B iDcTi1$BJ8(*[DQ9MG!"3FQpUC@0d)%CTE'8J6'PcG!""6P0*)%0[ER0[E'8J8&" $1N0eFh4[E5",CAPhEh*NF`""6P0*)%0[ER0[E'8J8&"$1N&MBf9cFb"3BA4SF`" "6P0*)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%0[ER0[E'8J8&" $1NCTE'8J6@&`F'PZCh-!38j655"$EfjcEfaP)&"33cT#G@PXC#"&H(4bBA-!38j 655"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1MBi5b" %DA0KFh0PE@*XCA)!38j655"$EfjcEfaP)&"33cSf1%XJ6'PZDf9b!%&18dNJ3fp ZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$EfjcEfaP)&"33cT$,d-V+b"$Efe `D@aPFJ""6P0*)%0[ER0[E'8J8&"$1N-[3bXV)&GKFQjTEQGc!%&18dNJ3fpZFfp XC5"38%-k3dC00MK,!%&18dNJ3fpZFfpXC5"38%-k59)J6h"dD@eTHQ9b!%&18dN J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$EfjcEfaP)&"33cT+BACK)&" bEfTPBh3!38j655"$EfjcEfaP)&"33cT+BACK)&C0!%&18dNJ3fpZFfpXC5"38%- k6@&M6e-J6@9bCf8J8'&ZC@`!38j655"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'P XCA)!38j655"$EfjcEfaP)&"33cT3BA0MB@`J9f&bEQPZCh-!38j655"$EfjcEfa P)&"33cT38%-J3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@* XCA)!38j655"$EfjcEfaP)&"33cT38%-J6'PZDf9b!%&18dNJ3fpZFfpXC5"38%- k8&"$)&"&4J""6P0*)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3fpZFfp XC5"38%-k8&"$3A0Y)&"KEQ9X!%&18dNJ3fpZFfpXC5"38%-k8Q9k)%0[EA"TE'9 b!%&18dNJ3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$EfjcEfaP)&" 33cTi1$BJ3fpNC8GPEJ""6P0*)%0[ER0[E'8J8&"$1RJi0L"-D@jVCA)!38j655" $EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k3h9cG'p Y)%YPHAG[FQ4c!%&18dNJ3b"$EfjcEfaP)&"33cT"Bf0PFh-J8'&dD(-!38j655" $)%0[ER0[E'8J8&"$1P4KFQGPG#"6CA4dD@jRF`""6P0*)%-J3fpZFfpXC5"38%- k4QPXC5"0BA"`D@jRF`""6P0*)%-J3fpZFfpXC5"38%-k3R9TE'3J4AKdFQ&c!%& 18dNJ3b"$EfjcEfaP)&"33cSf1%XJ3fpNC8GPEJ""6P0*)%-J3fpZFfpXC5"38%- k0MK,)%4TFf&cFf9YBQaPFJ""6P0*)%-J3fpZFfpXC5"38%-k0MK,)%aTEQYPFJ" "6P0*)%-J3fpZFfpXC5"38%-k0MK,)&"bEfTPBh3!38j655"$)%0[ER0[E'8J8&" $1N-[3bXV)%0[EA"TE'9b!%&18dNJ3b"$EfjcEfaP)&"33cT$,d-V+b"ABA*ZD@j RF`""6P0*)%-J3fpZFfpXC5"38%-k3dC00MK,!%&18dNJ3b"$EfjcEfaP)&"33cT *8L"2F(4TE@PkCA)!38j655"$)%0[ER0[E'8J8&"$1NeKBdp6)%ePFQGP)&"KEQ9 X!%&18dNJ3b"$EfjcEfaP)&"33cT3BA0MB@`J3fpYF'PXCA)!38j655"$)%0[ER0 [E'8J8&"$1P"KFf0KE#"ABA*ZD@jRF`""6P0*)%-J3fpZFfpXC5"38%-k8&"$)%0 [C'9(C@i!38j655"$)%0[ER0[E'8J8&"$1P"33b"%DA0KFh0PE@*XCA)!38j655" $)%0[ER0[E'8J8&"$1P"33b"-D@jVCA)!38j655"$)%0[ER0[E'8J8&"$1P"33b" 348B!38j655"$)%0[ER0[E'8J8&"$1P"33b"3FQpUC@0d!%&18dNJ3b"$EfjcEfa P)&"33cT38%0"FfdJ8'&ZC@`!38j655"$)%0[ER0[E'8J8&"$1P*PHL"$Efe`D@a PFJ""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"2GA4`GA3!38j655"$)%0[ER0[E'8 J8&"$1NTKGQ%J8(*[DQ9MG!""6P0*)%-J3fpZFfpXC5"38%-k5Q&fB5"@63""6P0 *)%-J3fpZFfpXC5"38%-k9fPZ8N-J3fpYF'PXCA)!38j655"$)%0[ER0[E'8J8&" $1RJi0L"$Ef4P4f9Z!%&18dNJ3b"$EfjcEfaP)&"33cTi1$BJ6'PZDf9b!%&18dN J3b"$EfjcEfaP)&"33cTi1$BJ8(*[DQ9MG!"SC'CXFb"38%-k3h9cG'pY)%YPHAG [FQ4c!'KNCQac)&"33cT"Bf0PFh-J8'&dD(-!D'4QE(-J8&"$1P4KFQGPG#"6CA4 dD@jRF`"SC'CXFb"38%-k4QPXC5"0BA"`D@jRF`"SC'CXFb"38%-k3R9TE'3J4AK dFQ&c!'KNCQac)&"33cSf1%XJ3fpNC8GPEJ"SC'CXFb"38%-k0MK,)%4TFf&cFf9 YBQaPFJ"SC'CXFb"38%-k0MK,)%aTEQYPFJ"SC'CXFb"38%-k0MK,)&"bEfTPBh3 !D'4QE(-J8&"$1N-[3bXV)%0[EA"TE'9b!'KNCQac)&"33cT$,d-V+b"ABA*ZD@j RF`"SC'CXFb"38%-k3dC00MK,!'KNCQac)&"33cT*8L"2F(4TE@PkCA)!D'4QE(- J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQac)&"33cT3BA0MB@`J3fpYF'PXCA) !D'4QE(-J8&"$1P"KFf0KE#"ABA*ZD@jRF`"SC'CXFb"38%-k8&"$)%0[C'9(C@i !D'4QE(-J8&"$1P"33b"%DA0KFh0PE@*XCA)!D'4QE(-J8&"$1P"33b"-D@jVCA) !D'4QE(-J8&"$1P"33b"348B!D'4QE(-J8&"$1P"33b"3FQpUC@0d!'KNCQac)&" 33cT38%0"FfdJ8'&ZC@`!D'4QE(-J8&"$1P*PHL"$Efe`D@aPFJ"QF$*SC'BJ8&" $1N0eFh4[E5",CAPhEh*NF`"QF$*SC'BJ8&"$1N&MBf9cFb"3BA4SF`"QF$*SC'B J8&"$1P4KFQGPG#"6CA4dD@jRF`"QF$*SC'BJ8&"$1NCTE'8J6@&`F'PZCh-!CR! bD'4Q)&"33cT#G@PXC#"&H(4bBA-!CR!bD'4Q)&"33cSf1%XJ3fpNC8GPEJ"QF$* SC'BJ8&"$1MBi5b"%DA0KFh0PE@*XCA)!CR!bD'4Q)&"33cSf1%XJ6'PZDf9b!'C `-QKNCL"38%-k0MK,)&"bEfTPBh3!CR!bD'4Q)&"33cT$,d-V+b"$Efe`D@aPFJ" QF$*SC'BJ8&"$1N-[3bXV)&GKFQjTEQGc!'C`-QKNCL"38%-k3dC00MK,!'C`-QK NCL"38%-k59)J6h"dD@eTHQ9b!'C`-QKNCL"38%-k6@&M6e-J6@9bCf8J8'&ZC@` !CR!bD'4Q)&"33cT3BA0MB@`J3fpYF'PXCA)!CR!bD'4Q)&"33cT3BA0MB@`J9f& bEQPZCh-!CR!bD'4Q)&"33cT38%-J3fpNC8GPEJ"QF$*SC'BJ8&"$1P"33b"%DA0 KFh0PE@*XCA)!CR!bD'4Q)&"33cT38%-J6'PZDf9b!'C`-QKNCL"38%-k8&"$)&" &4J"QF$*SC'BJ8&"$1P"33b"3FQpUC@0d!'C`-QKNCL"38%-k8&"$3A0Y)&"KEQ9 X!'C`-QKNCL"38%-k8Q9k)%0[EA"TE'9b!'KNCM)dG'mi)&"33cT$GA0dEfdJ5f9 jGfpbC(-!D'4Q-M4dEcJJ8&"$1N&MBf9cFb"3BA4SF`"SC'Bb0(4[1#"38%-k9'& bCf9d)&0PG(4TEQGc!'KNCM)dG'mi)&"33cT'D@aP)%eKF("TEQGc!'KNCM)dG'm i)&"33cT#G@PXC#"&H(4bBA-!D'4Q-M4dEcJJ8&"$1MBi5b"$Ef4P4f9Z!'KNCM) dG'mi)&"33cSf1%XJ4'PcBA0cC@eLE'9b!'KNCM)dG'mi)&"33cSf1%XJ6'PZDf9 b!'KNCM)dG'mi)&"33cSf1%XJ8(*[DQ9MG!"SC'Bb0(4[1#"38%-k3bp$+bXJ3fp YF'PXCA)!D'4Q-M4dEcJJ8&"$1N-[3bXV)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT $4Ndf1%X!D'4Q-M4dEcJJ8&"$1NP5)%p`G'PYDATPFJ"SC'Bb0(4[1#"38%-k6@& M6e-J6@9bCf8J8'&ZC@`!D'4Q-M4dEcJJ8&"$1P"KFf0KE#"$Efe`D@aPFJ"SC'B b0(4[1#"38%-k8'&cBf&X)&GKFQjTEQGc!'KNCM)dG'mi)&"33cT38%-J3fpNC8G PEJ"SC'Bb0(4[1#"38%-k8&"$)%4TFf&cFf9YBQaPFJ"SC'Bb0(4[1#"38%-k8&" $)%aTEQYPFJ"SC'Bb0(4[1#"38%-k8&"$)&"&4J"SC'Bb0(4[1#"38%-k8&"$)&" bEfTPBh3!D'4Q-M4dEcJJ8&"$1P"33d&cE5"3B@jPE!"SC'Bb0(4[1#"38%-k8Q9 k)%0[EA"TE'9b!'KNCQ0[EA!J8&"$1N0eFh4[E5",CAPhEh*NF`"SC'CMEfe`)&" 33cT"Bf0PFh-J8'&dD(-!D'4QBfpYF#"38%-k9'&bCf9d)&0PG(4TEQGc!'KNCQ0 [EA!J8&"$1NCTE'8J6@&`F'PZCh-!D'4QBfpYF#"38%-k3R9TE'3J4AKdFQ&c!'K NCQ0[EA!J8&"$1MBi5b"$Ef4P4f9Z!'KNCQ0[EA!J8&"$1MBi5b"%DA0KFh0PE@* XCA)!D'4QBfpYF#"38%-k0MK,)%aTEQYPFJ"SC'CMEfe`)&"33cSf1%XJ8(*[DQ9 MG!"SC'CMEfe`)&"33cT$,d-V+b"$Efe`D@aPFJ"SC'CMEfe`)&"33cT$,d-V+b" ABA*ZD@jRF`"SC'CMEfe`)&"33cT$4Ndf1%X!D'4QBfpYF#"38%-k59)J6h"dD@e THQ9b!'KNCQ0[EA!J8&"$1NeKBdp6)%ePFQGP)&"KEQ9X!'KNCQ0[EA!J8&"$1P" KFf0KE#"$Efe`D@aPFJ"SC'CMEfe`)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QBfp YF#"38%-k8&"$)%0[C'9(C@i!D'4QBfpYF#"38%-k8&"$)%4TFf&cFf9YBQaPFJ" SC'CMEfe`)&"33cT38%-J6'PZDf9b!'KNCQ0[EA!J8&"$1P"33b"348B!D'4QBfp YF#"38%-k8&"$)&"bEfTPBh3!D'4QBfpYF#"38%-k8&"$3A0Y)&"KEQ9X!'KNCQ0 [EA!J8&"$1P*PHL"$Efe`D@aPFJ"SC'C`B@0V)&"33cT$GA0dEfdJ5f9jGfpbC(- !D'4QF'&MDb"38%-k3@0MCA0c)&"KG'Kc!'KNCR"KBfXJ8&"$1P4KFQGPG#"6CA4 dD@jRF`"SC'C`B@0V)&"33cT'D@aP)%eKF("TEQGc!'KNCR"KBfXJ8&"$1N*eD@a N)%9iG(*KF`"SC'C`B@0V)&"33cSf1%XJ3fpNC8GPEJ"SC'C`B@0V)&"33cSf1%X J4'PcBA0cC@eLE'9b!'KNCR"KBfXJ8&"$1MBi5b"-D@jVCA)!D'4QF'&MDb"38%- k0MK,)&"bEfTPBh3!D'4QF'&MDb"38%-k3bp$+bXJ3fpYF'PXCA)!D'4QF'&MDb" 38%-k3bp$+bXJ9f&bEQPZCh-!D'4QF'&MDb"38%-k3dC00MK,!'KNCR"KBfXJ8&" $1NP5)%p`G'PYDATPFJ"SC'C`B@0V)&"33cT0B@028b"0CA*RC5"3B@jPE!"SC'C `B@0V)&"33cT3BA0MB@`J3fpYF'PXCA)!D'4QF'&MDb"38%-k8'&cBf&X)&GKFQj TEQGc!'KNCR"KBfXJ8&"$1P"33b"$Ef4P4f9Z!'KNCR"KBfXJ8&"$1P"33b"%DA0 KFh0PE@*XCA)!D'4QF'&MDb"38%-k8&"$)%aTEQYPFJ"SC'C`B@0V)&"33cT38%- J8%9'!'KNCR"KBfXJ8&"$1P"33b"3FQpUC@0d!'KNCR"KBfXJ8&"$1P"33d&cE5" 3B@jPE!"SC'C`B@0V)&"33cT5CASJ3fpYF'PXCA)!D'4QG'p`B@`J8&"$1N0eFh4 [E5",CAPhEh*NF`"SC'CdEh"KE#"38%-k3@0MCA0c)&"KG'Kc!'KNCR4[F'&X)&" 33cT8BA*RCA3J8f9dG'PZCh-!D'4QG'p`B@`J8&"$1NCTE'8J6@&`F'PZCh-!D'4 QG'p`B@`J8&"$1N*eD@aN)%9iG(*KF`"SC'CdEh"KE#"38%-k0MK,)%0[C'9(C@i !D'4QG'p`B@`J8&"$1MBi5b"%DA0KFh0PE@*XCA)!D'4QG'p`B@`J8&"$1MBi5b" -D@jVCA)!D'4QG'p`B@`J8&"$1MBi5b"3FQpUC@0d!'KNCR4[F'&X)&"33cT$,d- V+b"$Efe`D@aPFJ"SC'CdEh"KE#"38%-k3bp$+bXJ9f&bEQPZCh-!D'4QG'p`B@` J8&"$1N0'66Bi5`"SC'CdEh"KE#"38%-k59)J6h"dD@eTHQ9b!'KNCR4[F'&X)&" 33cT0B@028b"0CA*RC5"3B@jPE!"SC'CdEh"KE#"38%-k8'&cBf&X)%0[EA"TE'9 b!'KNCR4[F'&X)&"33cT3BA0MB@`J9f&bEQPZCh-!D'4QG'p`B@`J8&"$1P"33b" $Ef4P4f9Z!'KNCR4[F'&X)&"33cT38%-J4'PcBA0cC@eLE'9b!'KNCR4[F'&X)&" 33cT38%-J6'PZDf9b!'KNCR4[F'&X)&"33cT38%-J8%9'!'KNCR4[F'&X)&"33cT 38%-J8(*[DQ9MG!"SC'CdEh"KE#"38%-k8&"$3A0Y)&"KEQ9X!'KNCR4[F'&X)&" 33cT5CASJ3fpYF'PXCA)!D'4QG'p51#"38%-k3h9cG'pY)%YPHAG[FQ4c!'KNCR4 [8MJJ8&"$1N&MBf9cFb"3BA4SF`"SC'CdEe)i)&"33cT8BA*RCA3J8f9dG'PZCh- !D'4QG'p51#"38%-k4QPXC5"0BA"`D@jRF`"SC'CdEe)i)&"33cT#G@PXC#"&H(4 bBA-!D'4QG'p51#"38%-k0MK,)%0[C'9(C@i!D'4QG'p51#"38%-k0MK,)%4TFf& cFf9YBQaPFJ"SC'CdEe)i)&"33cSf1%XJ6'PZDf9b!'KNCR4[8MJJ8&"$1MBi5b" 3FQpUC@0d!'KNCR4[8MJJ8&"$1N-[3bXV)%0[EA"TE'9b!'KNCR4[8MJJ8&"$1N- [3bXV)&GKFQjTEQGc!'KNCR4[8MJJ8&"$1N0'66Bi5`"SC'CdEe)i)&"33cT*8L" 2F(4TE@PkCA)!D'4QG'p51#"38%-k6@&M6e-J6@9bCf8J8'&ZC@`!D'4QG'p51#" 38%-k8'&cBf&X)%0[EA"TE'9b!'KNCR4[8MJJ8&"$1P"KFf0KE#"ABA*ZD@jRF`" SC'CdEe)i)&"33cT38%-J3fpNC8GPEJ"SC'CdEe)i)&"33cT38%-J4'PcBA0cC@e LE'9b!'KNCR4[8MJJ8&"$1P"33b"-D@jVCA)!D'4QG'p51#"38%-k8&"$)&"&4J" SC'CdEe)i)&"33cT38%-J8(*[DQ9MG!"SC'CdEe)i)&"33cT38%0"FfdJ8'&ZC@` !D'4QG'p51#"38%-k8Q9k)%0[EA"TE'9b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!38j655"$Efj cEfaP)$BiD`"'DA*cG#"6C@GYC@jd!$TK,QpeG!"-D@)J5@e`Eh*d)$Bi5`"08&F J5@e`Eh*d)$Bi5`"#B@aXEfpZ)%KPE(!!69FJ3bp$+bXJ0MK,!%eA)&"KFf0KE#! f1%X!8Q9k!&"&4L"*EA"[FR3J0MK,!$T"6P0*)%0[ER0[E'8J0MKV,QpeG!")C@a XEeG[FQaN,Q-!690-)%-Z0MK,)%CK+$4TAcKN+5j-D@)!690-)%-V+bif1%XJ4Q% S0'PI1'3T,NaTBJ"0BA4S6'PL0MK,)%CK+$4T,cKN+5j-D@)!690-)&*eER4TE@8 f1%XZ6'PL!%eKBdp6,QaTBJ"08d`J8dP299JZ0MK,,NaTBJ!k38j655"$EfjcEfa P)&"33bj[GA3!38j655"$EfjcEfaP)&"33`"-D@)J5@e`Eh*d)&"33`"09b"$,d- V+b"38%-!69FJ8'&cBf&X)&"33`"38%0"Ffd!@%024NBJ5@e`Eh*d)&"33`"348B J5@e`Eh*d)&"33`"08d`J3bXV,P"33bj-D@)!690-)%-Z8&"$,NaTBJ"*ER4PFQC KBf9-D@)!6@&dD%aTBJ"08d`J8R9ZG'PYC9"33bj-D@)!690-)&0*6e9B,P"33bj -D@)!1N&18dNJ3b"$EfjcEfaP)&"33`""6P0*)%-J3fpZFfpXC5"38%-!D'4QE(- ZB`"SC'CXD@)Z8&"$,QaTBJ"SC'CXD@)ZF(*[DQ9MG!"SC'BJ6'PL)$Bi5b"%C@* eC`!kD'4Q0MKV,NCKFLJdD5miC#NZE'PL!'KNCL"-D@)J0MK,!'KNCL"-D@)J8&" $)%4PBR9R!$TSC'CXD@)Z8&"$,QaTBJ"SC'BJ6'PL)&"33`"UF'9R,P"33bjXD@) !DR"PCfaTBLj`FQpUC@0d!'T`C@FJ6'PL)$Bi5b"%C@*eC`!kDR"PCcBiDbj'BA) S0'N[1'3T,QaTBJ"UF'9R)%aTBL!f1%X!DR"PCb"-D@)J8&"$)%4PBR9R!$TUF'9 R,P"33bjXD@)!DR"PCb"-D@)J8&"$!(TXD@)ZF(*[DQ9MG!"kE'PL)$Bi5b"%C@* eC`!kHMBiDbj'BA)S0'N[1'3T,QaTBJ"kE'PL)$Bi5`"kE'PL)&"33b"%C@*eC`! kHLj38%-ZE'PL!(TXD@)J8&"$!'eQD'4QE'PL,R"bEfTPBh3!E@CSC'BJ6'PL)$B i5b"%C@*eC`!kE@CSC'Bf1'XZ4Q&b+$4T,cKN+5jXD@)!E@4SC'BJ6'PL)&"33b" %C@*eC`!kE@CSC'BZ8&"$,QaTBJ"YCQKNCL"-D@)J0MK,!'eQD'4Q)%aTBL"38%- !H'4bE'PL,R"bEfTPBh3!H'4b)%aTBL!f1%XJ4'9LG@F!1RKNFMBiDbj'BA)S0'N [1'3T,QaTBJ"iC()J6'PL)$Bi5`"iC()J6'PL)&"33b"%C@*eC`!kH'4b,P"33bj XD@)!H'4b)%aTBL"38%-!1QKNCQac!'KNCQac)&"33`!kCR!bD'4Q!'C`-QKNCL" 38%-!CR!bD'4Q,Q-!D'4Q-M4dEcJZB`!kD'4Q-M4dEcJ!D'4Q-M4dEcJJ8&"$!$T SC'CMEfe`!'KNCQ0[EA!J8&"$!'KNCQ0[EA!ZB`!kD'4QF'&MD`"SC'C`B@0V)&" 33`"SC'C`B@0V,Q-!D'4QG'p`B@`ZB`!k5%4'G'p3B@`!D'4QG'p`B@`J8&"$!'K NCR4[FMJZB`!k5%4'G'p51!"SC'CdEe)i)&"33`!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!956dp8!!!!!!!!!!!!!!!!"%G 599!!!!!!!!!!!`G6Eh9bBf9c!!!!!8C*6%8"!!!K4e*98!!!!!!!!!!#$N&18dN J6'PLFQ&bD@9c!!!!!dC*6%8"!!!*4NP-43%!!!K'58a&!3!!$8G599!!!!!!!!! !!3e0B@-J6'PLFQ&bD@9c!!!!!dC*6%8"!!!+4NP-43%!!!Y'58a&!3!!$%G599! !!!!!!!!!"!G)4%C-D@*c!!!!"NG599!!!!!!!!!!"3K3FQpUC@0dF`!!!!9'58a &!3!!%%C*6%8"!!!54NP-43%!!"0'58a&!3!!&%C*6%8"!!!94NP-43%!!"C'58a &!3!!&dC*6%8"!!!B4NP-43%!!"P'58a&!3!!'J!"!!!*6@9bCf8J6h9d!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !2cmr2d&38%`!!3%!!!4%6%GBBfYTC&"bEfTA8e"$6%8"!!!@4NP-43%!!"G'58a &!3!!'%C*6%8"!!!C4NP-43%!!"S!!!!!!!!!!!!!"3%!!"!!!!!%!!!!!#B!!!! R!!!!!!8!!!!!!!!!+!!!!#F!!!!!"3!!!!!!!!!T!!!!+J!!!!!&!!!!!!!!!#X !!!!U!3!!&J8"!3!"!!!5!!!!"!!!!!!Z!!!!,`!!!!!&!!!!!!!!!$!!!!![!!! !!!8!!!!!!!!!-3!!!$)!!!!!"3!!!!!!!!!c!!!!-J%!!"F&!3%!!3!!%`!!!!3 !!!!!03!!!$B!!!!!"3!!!!!!!!!h!!!!0J!!!!!&!!!!!!!!!$J!!!!j!!!!!!8 !!!!!!!!!1J!!!$N"!!!B"3%"!!%!!"3!!!!%!!!!!$`!!!!p!!!!!!8!!!!!!!! !2J!!!$m!!!!!"3!!!!!!!!"!!!!!23!!!!!&!!!!!!!!!%%!!!!r!3!!'J8"!3! "!!!9!!!!"!!!!!"$!!!!4!!!!!!&!!!!!!!!!%8!!!"%!!!!!!8!!!!!!!!!4J! !!%F!!!!!"3!!!!!!!!")!!!!4`%!!"N&!3%!!!-36@&M6e-J8&"$)%aTEQYPFJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#fK NCR4[8MJJ8&"$3d0P)&"33`!!!!!!!!!!!!!!!!!!!6S!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!E#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"IAh0dBA*d!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!2cmr2d&38%`!!3%!!!4 %6%GBBfYTC&"bEfTA8e"$!!i!!3!!!!!"!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!"!!!!!!!"!!%!!!!!!!!!!!B!!!p+BACK3faKFh0PFbj kDA!!!!!!!!!!!!!!!!!!!!!!@NP3)%T"9N%!!!!(!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK`E'pbCA)!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5@9iF'a[FQ8ZCAK P!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!%!3!!!`%!!!!!"!!"!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!- !#J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!"!!!+6Np138e&,N9B43!!!!!!!!! !!!!!!!!!!!!!!!!!!!"!!!!!!!3!!!!!"!!!"!!!!!!%!&8"N!!"#3*l!!!!!!! !!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!&pIFh4KFR3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3! '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!G)4%CdEe) iE'pZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!(d!!!"p!!!!%!!!&M !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!"!!!!"9*26e3!!!!!!!! !!!!!!!!%4e*98!!!!!!!!!!$"e0[GA*MCA-!!!!#4NP-43%!!#"'58a&!3!!)8G 599!!!!!!!!!!!Jj"6P0*)%aTBR*KFQPPF`!!!!0'58a&!3!!#8C*6%8"!!!)4NP -43%!!!e(8P93!!!!!!!!!!%06@&M)%aTBR*KFQPPF`!!!!0'58a&!3!!#NC*6%8 "!!!,4NP-43%!!!a(8P93!!!!!!!!!!3(5%4'6'PLF`!!!!C(8P93!!!!!!!!!!8 )8(*[DQ9MG(-!!!!&4NP-43%!!""'58a&!3!!%NC*6%8"!!!64NP-43%!!"4'58a &!3!!&8C*6%8"!!!@4NP-43%!!"G'58a&!3!!'%C*6%8"!!!C4NP-43%!!"S!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!%"!3!!!3%!!3!!!!B!!!p+BACK3faKFh0PFbjkDA! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!&!!!3!"!!%!!3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!8*d024%8R)#G%394"*b!R8%P$9#F!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!'J%!!"N"!!!B!3!!&`%!!"B"!!!)!3!!#3%!!!S"!!!,!3! !$!%!!!d"!!!H!3!!(`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%r2cmr!!!!!!! !!&8"N!!"#3*l!!!!!!!!!!!!!!!#!!!!!J!#!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!"!%!!!-"!!!!!3!!!3%!!!J"!!!*!3!!#J%!!!X"!!!-!3!!$3!(!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%e658845@jdCA*ZCA3J4AK `E'pbCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!5@9iF'a[FQ8ZCAKP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!GSC'C`B@0 V1'pZFfpXC5"38%-ZEh9d!!!!!!!!!!!!AdK%4N&38%`!!!(d!!!"p!!!!%!!!&M !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%r2cmr!!!!!!!!!&8"N!!"#3*l!!!!!!!!!!!!!!!"!!!!"9*26e3!!!!!!!! !!!!!!!!%4e*98!!!!!!!!!!$"e0[GA*MCA-!!!!"4NP-43%!!"p(8P93!!!!!!! !!!)138j655"-D@*bBA*TCA-!!!!$4NP-43%!!!P'58a&!3!!#%C*6%8"!!!04e* 98!!!!!!!!!!"$8eKBb"-D@*bBA*TCA-!!!!$4NP-43%!!!T'58a&!3!!#dC*6%8 "!!!-4e*98!!!!!!!!!!%"dK%4NaTBR-!!!!'4e*98!!!!!!!!!!&#&"bEfTPBh4 c!!!!"8C*6%8"!!!34NP-43%!!"*'58a&!3!!%dC*6%8"!!!84NP-43%!!"9'58a &!3!!&NC*6%8"!!!A4NP-43%!!"K'58a&!3!!'8C*6%8"!!!D!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!3!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!J!$!!S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!3!!"@%ZEh9d!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!!%!!!!!!3!!!3!!!!!"!"9!C! !!3N#H`!!!!!!!!!!!!!!!!!!!!!!!@-N3N)!!!!K!!!!!J!!!!!!!!!r!!!!!h0 S#&!!!!"J!!!!"!0TlY!!!!"r!!!!"3T"C'3!!!#G!!!!"P"TEP)!!!#k!!!!"f& 3EfN!!!$F!!!!#%e*G'8!!!$i!!!!#A45CA-!!!%9!!!!#NePER8!!!%e!!!!#h4 $Efi!!!&9!!!!$%0[ER3!!!&Y!!!!$@pcC8-!!!',!!!!$QPXE%-!!!'S!!!!$e0 SEhF!!!('!!!!%%KTC'8!!!(I!!!!%8e[GQ8!!!)#!!!!%NGPG%-!!!)M!!!!%f9 d3e)!!!*%!!!!&(TP3fm!!!*K!!!!&@aTG'8!!!+$!!!!&NGPG%-!!!+I!!!!&h4 $9'N!!!+i!!!!'(4X9Q%!!!,9!!!!'@PZ3h3!!!,c!!!!'N0dE!X!!!-4!!!!'fa eC3N!!!-a!!!!('`*8f8!!!01!!!!(94PFh3!!!0U!!!!(N4bB@F!!!1(!!!!(e4 bB@-!!!1C!!!!)!a%FQ%!!!1k!!!!)3!!!B!!!!2B!!!!)J!!!!B!!!2j!!!!)kp i49m!!!3B!!!!*!!!!!!!!!3f!!!!*3!!!!!!!!46!!!!*J!!!!!!!!4e!!!!*`! !!!!!!!54!!!!+!!!!!!!!!5Z!!!!+3!!!!!!!!61!!!!+J!!!!!!!!6Z!!!!+`! !!!!!!!8'!!!!,!!!!!!!!!8N!!!!,3!!!!!!!!9"!!!!,J!!!!!!!!9I!!!!,`! !!!!!!!9i!!!!-!!!!!!!!!@E!!!!-3!!!!!!!!@m!!!!-J!!!!!!!!AG!!!!-`! !!!!!!!Ak!!!!0!!!!!!!!!BF!!!!03!!!!!!!!Bi!!!!0J!!!!!!!!C4!!!!0`! !!!!!!!CZ!!!!1!!!!!!!!!D-!!!!13!!!!!!!!DU!!!!1J!!!!!!!!E+!!!!1`! !!!!!!!ER!!!!2!!!!!!!!!F$!!!!23!!!!!!!!FJ!!!!2J!!!!!!!!G$!!!!2`! !!!!!!!GM!!!!3!!!!!!!!!H'!!!!33!!!!!!!!HR!!!!3J!!!!!!!!I(!!!!3`! !!!!!!!IQ!!!!4!!!!!!!!!J+!!!!43!!!!!!!!JS!!!!4J!!!!!!!!K(!!!!4`! !!!!!!!KT!!!!5!!!!!!!!!L,!!!!53!!!!!!!!LP!!!!5J!!!!!!!!M&!!!!5`! !!!!!!!MU!!!!6!!!!!!!!!N0!!!!63!!!!!!!!N`!!!!6J!!!!!!!!P2!!!!6`! !!!!!!!Pc!!!!8!!!!!!!!!Q4!!!!83!!!!!!!!QX!!!!8J!!!!!!!!R,!!!!8`! !!!!!!!RV!!!!9!!!!!!!!!S,!!!!93!!!!!!!!SU!!!!9J!!!!!!!!T+!!!!9`! !!!!!!!TP!!!!@!!!!!!!!!U(!!!!@3!!!!!!!!UQ!!!!@J!!!!!!!!V%!!!!@`! !!!!!!!VM!!!!A!!!!!!!!!Vp!!!!A3!!!!!!!!X8!!!!AJ!!!!!!!!XZ!!!!A`! !!!!!!!Y'!!!!B!!!!!!!!!YG!!!!B3!!!!!!!!Yc!!!!BJ!!!!!!!!Z1!!!!B`! !!!!!!!ZM!!!!C!!!!!!!!!Zj!!!!C3!!!!!!!![5!!!!CJ!!!!!!!![V!!!!C`! !!!!!!![m!!!!D!!!!!!!!!`6!!!!D3!!!!!!!!`[!!!!DJ!!!!!!!!a*!!!!D`! !!!!!!!aM!!!!E!!!!!!!!!aj!!!!E3!!!!!!!!b8!!!!EJ!!!!!!!!bT!!!!E`! !!!!!!!bl!!!!F!!!!!!!!!c4!!!!F3!!!!!!!!cS!!!!FJ!!!!!!!!cr!!!!F`! !!!!!!!dD!!!!G!!!!!!!!!db!!!!G3!!!!!!!!e0!!!!GJ!!!!!!!!eQ!!!!G`! !!!!!!!eq!!!!H!!!!!!!!!f9!!!!H3!!!!!!!!fa!!!!HJ!!!!!!!!h(!!!!H`! !!!!!!!hH!!!!I!!!!!!!!!hi!!!!I3!!!!!!!!i5!!!!IJ!!!!!!!!iN!!!!I`! !!!!!!!im!!!!J!!!!!!!!!jC!!!!J3!!!!!!!!jd!!!!JJ!!!!!!!!k2!!!!J`! !!!!!!!kQ!!!!K!!!!!!!!!l#!!!!K3!!!!!!!!lB!!!!KJ!!!!!!!!lV!!!!K`! !!!!!!!m#!!!!L!!!!!!!!!mD!!!!L3!!!!!!!!mb!!!!LJ!!!!!!!!p2!!!!L`! !!!!!!!pT!!!!M!!!!!!!!!q'!!!!M3!!!!!!!!qK!!!!MJ!!!!!!!!ql!!!!M`! !!!!!!!r8!!!!N!!!!!!!!!!2mJ!!!*%!!!!!!!!3#J!!!*)!!!!!!!!3)`!!!*- !!!!!!!!32`!!!*3!!!!!!!!3@`!!!*8!!!!!!!!3E`!!!*B!!!!!!!!3L3!!!*F !!!!!!!!3U!!!!*J!!!!!!!!3a3!!!*N!!!!!!!!3iJ!!!*S!!!!!!!!3q`!!!*X !!!!!!!!4'3!!!*`!!!!!!!!4-3!!!*d!!!!!!!!44J!!!*i!!!!!!!!4A`!!!*m !!!!!!!!4H3!!!+!!!!!!!!!4N`!!!+%!!!!!!!!4V`!!!+)!!!!!!!!4b!!!!+- !!!!!!!!4j!!!!+3!!!!!!!!4rJ!!!+8!!!!!!!!5&`!!!+B!!!!!!!!5,`!!!+F !!!!!!!!56!!!!+J!!!!!!!!5B`!!!+N!!!!!!!!5H`!!!+S!!!!!!!!5PJ!!!+X !!!!!!!!5X3!!!+`!!!!!!!!5a!!!!+d!!!!!!!!5h3!!!+i!!!!!!!!5q`!!!+m !!!!!!!!6&`!!!,!!!!!!!!!6-`!!!,%!!!!!!!!65`!!!,)!!!!!!!!6D!!!!,- !!!!!!!!6I`!!!,3!!!!!!!!6N`!!!,8!!!!!!!!6U`!!!,B!!!!!!!!6a!!!!,F !!!!!!!!6h3!!!,J!!!!!!!!6q3!!!,N!!!!!!!!8%J!!!,S!!!!!!!!8,J!!!,X !!!!!!!!85!!!!,`!!!!!!!!8B3!!!,d!!!!!!!!8H3!!!,i!!!!!!!!8PJ!!!,m !!!!!!!!8V3!!!-!!!!!!!!!8a3!!!-%!!!!!!!!8i!!!!-)!!!!!!!!8q`!!!-- !!!!!!!!9$J!!!-3!!!!!!!!9*`!!!-8!!!!!!!!943!!!-B!!!!!!!!9B3!!!-F !!!!!!!!9I3!!!-J!!!!!!!!9P3!!!-N!!!!!!!!9XJ!!!-S!!!!!!!!9b3!!!-X !!!!!!!!9h3!!!-`!!!!!!!!9p3!!!-d!!!!!!!!@$J!!!-i!!!!!!!!@*`!!!-m !!!!!!!!@4!!!!0!!!!!!!!!@AJ!!!0%!!!!!!!!@H`!!!0)!!!!!!!!@PJ!!!0- !!!!!!!!@X!!!!03!!!!!!!!@b3!!!08!!!!!!!!@j`!!!0B!!!!!!!!@r`!!!0F !!!!!!!!A'!!!!0J!!!!!!!!A0!!!!0N!!!!!!!!A8!!!!0S!!!!!!!!AC!!!!0X !!!!!!!!AIJ!!!0`!!!!!!!!AR3!!!0d!!!!!!!!AZJ!!!0i!!!!!!!!Ae`!!!0m !!!!!!!!Am!!!!1!!!!!!!!!B$J!!!1%!!!!!!!!B*J!!!1)!!!!!!!!B1`!!!1- !!!!!!!!B9!!!!13!!!!!!!!BEJ!!!18!!!!!!!!BL!!!!1B!!!!!!!!BT!!!!1F !!!!!!!!B[3!!!1J!!!!!!!!Bf3!!!1N!!!!!!!!Bm`!!!1S!!!!!!!!C$!!!!1X !!!!!!!!C*!!!!1`!!!!!!!!C33!!!1d!!!!!!!!C@!!!!1i!!!!!!!!CF!!!!1m !!!!!!!!CL`!!!2!!!!!!!!!CTJ!!!2%!!!!!!!!CZ3!!!2)!!!!!!!!CdJ!!!2- !!!!!!!!Cm!!!!23!!!!!!!!D$!!!!28!!!!!!!!D+!!!!2B!!!!!!!!D3!!!!2F !!!!!!!!DA3!!!2J!!!!!!!!DG!!!!2N!!!!!!!!DL!!!!2S!!!!!!!!DS!!!!2X !!!!!!!!DZ3!!!2`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!B!!!!(!!8!!!!*3!!!$!!"1J!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!%!!6Sk1R0bBcS!4M3Z-A)b)#dJFQ9XC@& cC6TSC'BkGA4TE$S!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!3!!!!!$!!%k1MTUF'9R1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!!!!!"!!"1MSkHQaTBMS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!8 !!6Sk1MTYCQKNCMTXD@*cFQ-k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!!'!!%k1MSkE@C SC'BkH'4b1J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!#!!"1MS!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!"!%!!!!X!!MT0CA4bEhGPFQYc)&0dB@jNBA*N)%a TBR*KFRNk690-)&"bC@0[EA"TE'9N)%KPB@4PFMS!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!6T!!!!%!!)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne 66#"$1J"TEh)k6@9dFQphCA*VFb"6G'&ZC'&bC#"-D@*bBA*j1Ne66#"$1J!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!%!3!!!!3!#1NePG(*[Gf9bDh-J8h4KEQ4KFQ3J6'PLFQ&bH6T08d`J3bXV1J! $bjU!!"9F-!4r*V!!!!!"!!%!!32,R9J$bjXF!!!!!!2,QU!$aP4X"(mJ+!!!!!% $bjV!!ib2N!!!!!,%!mCI2!2,QZ!$M)q3!!4l6d`!!!1,*d!!(`1-Mj!!!mZE(2r rrrm$bjVJK!!%JJ4r*V!$bj[`!mZDm!2,R9J$bjYm!!!!!!2,Q`!!!!!""(mJ+!! !!!%$bjXJ!ib2N!!!!!,%!mCI2!2,Qd!$M)q3!!4l6daHGJ!I!"p[H`1-Mj!!!mZ EI2rrrrm$bjY!!"9F-!4r*V!Z,LjX!mZEB!2,R9J$bj[F!!!!!!2,Qf!!!!!#"(m J+!2,RC!!!mZEF!1-Mj!!!!!#a!2'Ac`$bjZJ!mZEF!4l6d`$PLf1!mZEN!!$M)q 3!!2,Qpcrrrrr!mZES!!!!!!%IbD`!mZEq!2,Qm!@'#UD!mG2%!!!!!!$aP4X!!! !!Irrrri$bj`B!!!!!!!9A$!!!!,%!mCI2!2,R!!#riZ8"(Y26!!!!!!$!!'3!!1 -Mj!!!!J!#!!!!!!$bj`!!"9I0!336p`!!!!!!!!!!!!9A$!$aP3S!!!!!!2(563 !!!!#!!!!!rrrrrm$bj``!"9F-!14R!!!!!!!!mZF3!!#"%`%G+'N!j'1l!2,R&! $M)q3!!(r!3"!!!!#!!)k6@&M6e-J8h9`F'pbG$S!6d`$LbM)!mZDJ!1-Mj!!!mZ D[2rrrrm$bjU!!"9F-!4r*V!!!!!"!!%!!32,R9J$bjXF!!!!!!2,QU!$aP4X"(m J+!!!!!%$bjV!!ib2N!!!!!,%!mCI2!2,QZ!$M)q3!!4l6d`!!!1,*d!!(`1-Mj! !!mZE(2rrrrm$bjVJK!!%JJ4r*V!$bj[`!mZDm!2,R9J$bjYm!!!!!!2,Q`!!!!! ""(mJ+!!!!!%$bjXJ!ib2N!!!!!,%!mCI2!2,Qd!$M)q3!!4l6daHGJ!I!"p[H`1 -Mj!!!mZEI2rrrrm$bjY!!"9F-!4r*V!Z,LjX!mZEB!2,R9J$bj[F!!!!!!2,Qf! !!!!#"(mJ+!2,RC!!!mZEF!1-Mj!!!!!#a!2'Ac`$bjZJ!mZEF!4l6d`$PLf1!mZ EN!!$M)q3!!2,Qpcrrrrr!mZES!!!!!!%IbD`!mZEq!2,Qm!@'#UD!mG2%!!!!!! $aP4X!!!!!Irrrri$bj`B!!!!!!!9A$!!!!,%!mCI2!2,R!!#riZ8"(Y26!!!!!! $!!'3!!1-Mj!!!!J!#!!!!!!$bj`!!"9I0!336p`!!!!!!!!!!!!9A$!$aP3S!!! !!!2(563!!!!#!!!!!rrrrrm$bj``!"9F-!14R!!!!!!!!mZF3!!#"%`%G+'N!j' 1l!2,R&!$M)q3!!(r!3"!!!!$!!)k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!%J!!!!!!%!!!J!!!!E!J!!!!!!!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!*!!!!(!)!!!!!!!!"!!%$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!#J! !!"d#!!!!!!!!!3!"!`!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!X!!!!H!J!!!!! !!!%!!3-!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!-!!!!(`)!!!!!!!!"!!%$!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!$3!!!#!#!!!!!!!!!3!"!`!!!!!!!!!!!!! !!!!!!!!!!!!!!!%!!"!!!!!P!J!!!!!!!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!! !!!!"!!!5!!!!,3)!!!!!!!!"!!%#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!%`! !!$3#!!!!!!!!!3!"!J!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!"3!!!!l!J!!!!! !!!%!!3)!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!9!!!!3J)!!!!!!!!"!!%#!!! !!!!!!!!!!!!!!!!!!!!!!!!!!3!!&J!!!#S&!!!!!3!!%!!"!`!!!!!!!!!!!!! !!)%!!!!!!!!!!!%!!"F!!!!b"3!!!!%!!")!!3-!!!!!!!!!!!!!!!#"!!!!!!! !!!!"!!!B!!!!138!!!!"!!!6!!%$!!!!!!!!!!!!!!!!J3!!!!!!!!!!!3!!'3! !!%F&!!!!!3!!&3!"!`!!!!!!!!!!!!!!!)%!!!!!!!!!!!%!!"S!!!!r"3!!!!% !!"3!!3-!!!!!!!!!!!!!!!#"!!!!!!!!!!!"!!!K!!!!@J)!!!!!!!!"!!%"!!! !!!!!!!!!!!!!!3!!!!!!!!!!!3!!)3!!!&S#!!!!!!!!!3!"!3!!!!!!!!!!!!! !!!%!!!!!!!!!!!!!!!3!!!!'!!!!"30TmB"339K!@J"PH'-NBQ)$DGZJ!fRZB!! !!!!!!!&`!jJ%m'Pi8QpeEQ3)5@jTG!0Tfk!)5@jTG%GbB@B)6h"PEP"[FR306'p MB@a8EdGXEf*KE!e(E'pLB@a8Eda[Bf&X#NF!MXD!k`!!&!!!!#$rrrEB!!!!!!! !!!!"!!%!!q(M`!#1aa$V!!!8!!!!)2rrpZ`!!!!!!!!!!!%!!3!$iH2!!)l(-1X !!!3!!!33rrrfq%aTBL"*EA"[FR3J0MK,!%e39b"*EA"[FR3J0MK,!%*KE'a[Efi J5'9XF!"09b"$,d-V+b!f1%X!69FJ8'&cBf&X)$Bi5`"5CAS!8%9')%PYF'pbG#! f1%X!!!!J!!CS%'pTER4!3%K,-%"D!!0T'T!!!fNm81X!!"3!!!!J!!CS*'aP4'& dB8"!-e926!0T'T!!!fNmF1X!!"3!!!!J!!CS(&*PBh4!-M!!2d4[4!0T'T!!!fN mN!$V!!!8!!!!)!!'D#KMC8"!88&&5dY33P8$D4U3!!0T2,$V!!!8!!!!)!!'D#" 6Eh9bBf9!3%"D!$m$D4U3!!0T20$V!!!8!!!!)!!'D!`!!!!!!!!!!!!!!!!!!!! !!fNmm1X!!"3!!!!J!!CR['P`BQpKFQ4%BA4K3!0T'T!!!fNp%1X!!!`!!!!`!!C RY!!"!!!!!J!!!"`!!!!!!!!!!!!!!!!!!!!!!"!$D@[J!fNp-1YJ!"!!!!,!!!C RU!!"!!G1EfjP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"68e3FJ!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"!!!!!5Q&fB5"-D@jVCA)!!!!!!!!!!!!!!!!!!!!!!!!!!!! !%8&38%`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!%02M'X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%0XFh-!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!%TUFQBZDR*Q!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!%eA3d3!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZD(4YE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZDQ&fB3!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&T*8#!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!! !!&TTF%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!! !!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!!!!!!!ZBfaKFh-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!ZHQP`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%TKGQ%!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eKBdp6)$Bi5b"-D@jVCA)!!!!!!!! !!!!!!!!!!!!!!"Y"8&"-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!""F("X!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"068a#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" -D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!"09d0%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"23NSJ!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!"58e*$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"849K8,Q*S!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"#B@aXEfpZ)%KPE(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q0M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q9iF!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,QJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,R!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"849K8,R"KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!! !!!!!!!!!!)!!!!"849K8,R"MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R"`G3!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!! !!!!!!!!!!)!!!!"849K8,R)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 5CAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R0PC`!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!"NEf0e!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!!!"bFh*M!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!'!!!!"cD'aL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"cG(9L!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"348BJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&!!!!"0B@028b"0CA*RC3! !!!!!!!!!!!!!!!!!!!!!!!!!!!!(39"36!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!3A" `E!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!8P053`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"J!!!!9%9 B9#jLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3Q&XE'p[EL")C@a`!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jb!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!8Q9k!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!FR0 bB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"J!!!!FfKXBJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6@& M6e-J8&"$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!'d&38%`!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!%&`F'`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!%e06%)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!%e36%B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%aTBL" *EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA3d3!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!&*68N-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!&4&@&3ZBQJ!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%*KE'a[EfiJ5'9XF!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBbXV!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZBh!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZBh"`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZCAK`!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!&4&@&3ZF!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&4&@&3ZF'&c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&" KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF'0S!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%-[3bXV)&"33`!!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZF'0S+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%eA)%- [3bXV)&"33`!!!!!!!!!!!!!!!!!!!!!!!!!!J!!!!&4&@&3ZF("e!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!%eA)&"KFf0KE#"38%-!!!!!!!!!!!!!!!!!!!! !!!!!J!!!!&4&@&3ZFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&*PHJ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&4&@&3ZF`!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&"33d&cE3!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!&K$6dB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&K$6dC ')%PYF'pbG#"38%-!!!!!!!!!!!!!!!!!!!!!!!!!!'4[Bh8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!B!!!!(*cFQ-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!!!!(0SE')!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L"*EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!! !!!!!!!!!!(0dG@)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&"&4L" *EA"[FR3J8&"$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ZC'pM!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!8!!!!%e$)%aTEQYPFJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"*$6&96!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!%!!!!"068a#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"08%a'!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"-D@)J5@e`Eh*d)$Bi5`!!!!! !!!!!!!!!!!!!!!!!!!!!!!"23NSJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"08&FJ5@e`Eh*d)$Bi5`!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q-V+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0 M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0XF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"03b"$E'&cFb"$Efe`D@aPFJ!!!!!!!!!!!!!!!!!!!)!!!!"849K8,Q0 `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q0`F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,Q4 PCJ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,Q4[B`!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!"849K8,QJ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"3BA0MB@`J0MK,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K8,R" KF`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"3BA0MB@`J0MK,!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!"849K8,R"MD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!"09b"$,d-V+b!f1%X!!!!!!!!!!!!!!!!!!!!!!!!!!)!!!!"849K8,R" MD#XV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"09b"$,d-V+b!f1%X!!!!!!!! !!!!!!!!!!!!!!!!!!)!!!!"849K8,R4c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"AD@ic-L" i1$BJ6'PZDf9b!!!!!!!!!!!!!!!!!!!!!!!39%9B9#jM!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jM+bX!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMB`!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jMF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jMF(!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#jS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!9%9B9#j`!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!9%9B9#j`BA-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf& X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#j`BfJ!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bXJH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#j`BfJV+`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ3bp$+bX JH$Jf!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!9%9B9#j`F(8!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!69FJ8'&cBf&X)(Ji0J!!!!!!!!!!!!!!!!!!!!!!!!# !!!!!9%9B9#jbB`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!69FJ9fPZ8N- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9%9B9#jbCA-!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!9fPZ8Q9c)%PYF'pbG!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!#jNEf-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"3!!!!!!!!!#jXD@)!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!6'PL)%PYF'pbG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!#j[BQS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!6f*U)%PYF'p bG#"i1$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"N#pV!!!%Ei!!"`!EA0dFJ!!!!! !!!!!!!!'3,V8!!"5`!!!$!"YFh4X!!!!!!!!!!!!!!C!ZN!!!!!S!!!%!'ecG'i !!!!!!!!!!!!!!!!!!!!!"#J!!!!SEA0dD3!!!!!!!!!!!!!'3,`-!!!Y[J!!#!" YFh4b!!!$k!!!!!!!!!C![FJ!!!43!!!%J'ecG'`!!!2S!!!!!!!!"N#k*!!!#0! !!!'!EA0dEJ!!!qJ!!!!!!!!'3,a`!!"h-!!!"3"YG("X!!!!!3!!!!!!!!C!ZM` !!!Y[!!!!J'edF(-!!!!"!!!!!!!!"N#l%!!!$&!!!!!BEA4cE!!!!!%!!!!!!!! !!!!!!!!+8!!!!#KYFh4T!!!$k!!!!!!!!!C!Y&J!!!aS!!!#,'e`FfN!!!2S!!! !!!!!"N#dA!!!$T3!!!)DEA4RE!!!!qJ!!!!!!!!!!!!!!!!,l`!!!!jYG("T!!! !!3!!!!!!!!C![EJ!!![p!!!!-'edE'm!!!!"!!!!!!!!"N#dF!!!0Ei!!!%P8%a cG!!!bFd!!!!I!!!!!!!!!!"(N!!!!!!ZF(*PCJ!"5j)!!!!Y!!!!!!!!!!",M`! !"%P`FQ9Q!!)#V`!!!#i!!!!!!!!!!"'k!!!!"("bC@B!!G[X!!!!,`!!!!!!!!! !5d8!!!!NF(*PCJ!"j%%!!!!k!!!!!!!!!!",D3!!!!T`FQ9Q!!(98!!!!$X!!!! !!!!!!&(N!!!!NR"bC@B!!GeE!!!!2!!!!!!!!!!!8RB!!!"+F(*PCJ!"l@m!!!! p!!!!!!!!!!!mK3!!!#j`FQ9Q!!%$lJ!!!&8!!!!!!!!!!$bc!!!%5A"bC@B!!9B &!!!!9J!!!!!!!!!!32`!!!!%F(*PCJ!"CCm!!!"A!!!!!!!!!!""!!!!!#4`FQ9 Q!!#M0`!!!&J!!!!!!!!!!%%N!!!!#R"bC@B!!)J8!!!!@3!!!!!!!!!!35i!!!# 5F(*PCJ!!UkF!!!"D!!!!!!!!!!""`!!!!%T`FQ9Q!!%9C`!!!&X!!!!!!!!!!$G b!!!"J'ecF'N!!!!"!!!!!!!!!!!!!!!!#RJ!!!!DF(*PCJ!AP0m!!!$Q!!!!!!! !!!"H`!!!'("`FQ9Q!"HAl3!!!1F!!!!!!!!!!$Mb!!!#C("bC@B!&`X[!!!!k!! !!!!!!!!!I$!!!##kF(*PCJ!A$4X!!!$T!!!!!!!!!!!+NJ!!!!4`FQ9Q!"Fh13! !!1S!!!!!!!!!!!U@!!!!'("bC@B!&cbk!!!!k`!!!!!!!!!!#Ui!!!!+F(*PCJ! AIe%!!!$X!!!!!!!!!!!+Z!!!!!j`FQ9Q!"GZ&!!!!1d!!!!!!!!!!"#Z!!!!aR" bC@B!&VEd!!!!lJ!!!!!!!!!!#XB!!!!iF(*PCJ!A)qd!!!$[!!!!!!!!!!!+rJ! !!!a`FQ9Q!"F0U!!!!2!!!!!!!!!!!%)+!!!"fR"bC@B!&[eI!!!!m3!!!!!!!!! !#`S!!!!-F(*PCJ!@m6B!!!$b!!!!!!!!!!!fi`!!!'*`FQ9Q!"D`M`!!!2-!!!! !!!!!!!X@!!!!1("bC@B!&ZYc!!!!p!!!!!!!!!!!#di!!!!0F(*PCJ!ABA-!!!$ e!!!!!!!!!!!,@`!!!"4`FQ9Q!"GLI`!!!2B!!!!!!!!!!!`Y!!!!#R"bC@B!&`5 S!!!!p`!!!!!!!!!!1eB!!!$%F(*PCJ!A'58!!!$i!!!!!!!!!!"$j!!!!4C`FQ9 Q!"G)DJ!!!2N!!!!!!!!!!%6k!!!!ZR"bC@B!&UMa!!!!qJ!!!!!!!!!!%A3!!!! ZF(*PCJ!@ca%!!!$l!!!!!!!!!!"([J!!!Ja`FQ9Q!"E053!!!2`!!$+i!!!: libhdf4-4.2.10/HDF_ALT/hdf/util/hdf8to24.c0000644000000000000000000003576712421456623014354 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdf8to24.c 6013 2014-01-10 21:19:02Z acheng $ */ #include "hdf.h" #ifndef I860 #include #include #endif /* I860 */ /* Exception checking macro */ #define EXCHECK(a,b) if(a) goto b /* Static variables */ uint8 red_comp[256], green_comp[256], blue_comp[256]; comp_info cinfo; /* compression structure */ static intn magnify(uint8 *from_buffer, uint8 *to_buffer, int32 from_x0, int32 from_y0, int32 from_x1, int32 from_y1, int32 from_width, int32 from_height, int32 to_width, int32 to_height); static intn convert8to24(uint8 *img8_buf, uint8 *img24_buf, int32 img_xdim, int32 img_ydim); static VOID usage(void); /********************************************************************** * Function : magnify * Purpose : Magnify an image by independant X and Y magnification * factors. Note that the coordinates which specify * the area in the "from" image are _inclusive_, i.e. * if you would like to magnify the entire image, the * "from" coordinates should be specified as: * (0,0) and ((width-1),(height-1)), where "width" * and "height" are the width and height of the image * (respectively) in pixels. * Parameters : * from_buffer - pointer to the buffer which contains the image * to magnify * to_buffer - pointer to the buffer in which to place the * magnified image * from_x0, from_y0 - Upper Left Corner (ULC) of the rectangular * area in the image to magnify * from_x1, from_y1 - Lower Right Corner (LRC) of the rectangular * area in the image to magnify * from_width, from_height - the width and height of the image * to magnify (or "from" image) * to_width, to_height - the width and height of the magnified * image (or "to" image) * Returns : (TRUE) for success, (FALSE) for error * Calls : * Called by : **********************************************************************/ static intn magnify(uint8 *from_buffer, uint8 *to_buffer, int32 from_x0, int32 from_y0, int32 from_x1, int32 from_y1, int32 from_width, int32 from_height, int32 to_width, int32 to_height) { uint8 *buf_off, /* the current offset into the magnified data */ *last_buf, /* pointer to the last useful magnified line */ *y_off, /* the y offset into the data block */ *last_y_coor, /* pointer to the last line copied */ **y_coor; /* pointers to image data */ float64 temp_val, /* temporary value for holding double results */ wind_width, /* the width of the window to magnify */ wind_height; /* the height of the window to magnify */ int32 u, v; /* local unsigned counting variables */ int32 *x_coor, /* the X coor. lookup table */ *x_coor_temp; /* temporary pointer to the x lookup table */ if (from_width == 0 || from_height == 0) /* check for bad image dimensions */ return (FALSE); if (to_width == 0 || to_height == 0) /* check for bad image dimensions */ return (FALSE); if (from_x0 > from_x1 || from_y0 > from_y1) /* check for an invalid window */ return (FALSE); /* find width and height of the window to magnify */ wind_width = (float64)((from_x1 - from_x0) + 1); wind_height = (float64)((from_y1 - from_y0) + 1); /* allocate room for the x coordinate lookup table */ x_coor = (int32 *) HDmalloc((int32) ((size_t)to_width * sizeof(int32))); EXCHECK(x_coor == NULL, XCoorFailed); /* check if malloc() failed */ temp_val = wind_width / (float64) to_width; for (u = 0; u < to_width; u++) /* calculate the x coordinate lookup table */ x_coor[u] = ((uint16) ((float64) u * temp_val) + from_x0); /* allocate room for the array of pointers */ y_coor = (uint8 **) HDmalloc((int32) ((size_t)to_height * sizeof(uint8 *))); EXCHECK(y_coor == NULL, YCoorFailed); /* check if malloc() failed */ temp_val = wind_height / (float64) to_height; for (u = 0; u < to_height; u++) /* calculate the y coordinates */ y_coor[u] = from_buffer + ((uint32) ((float64) u * temp_val) + (uint32)from_y0) * (uint32)from_width; last_buf = to_buffer; /* set the previous line pointer */ buf_off = to_buffer; /* set the pointer to the "to" image */ last_y_coor = NULL; /* force to calculate the first line */ for (u = 0; u < to_height; u++) { /* go through each magnified line */ /* if this line is not the same as the previous one, then make it again */ if (y_coor[u] != last_y_coor) { last_y_coor = y_off = y_coor[u]; x_coor_temp = x_coor; /* assign the temporary pointer */ last_buf = buf_off; /* set the pointer to the previous line */ for (v = 0; v < to_width; v++) /* go through each line magnifying it */ *buf_off++ = y_off[*x_coor_temp++]; } /* end if */ /* this line is the same as the previous one, just copy it */ else { HDmemcpy(buf_off, last_buf, to_width); /* copy the previous line */ buf_off += to_width; /* advance the buffer offset pointer */ } /* end else */ } /* end for */ HDfree((char *) y_coor); HDfree((char *) x_coor); return (TRUE); YCoorFailed: /* Failed to allocate memory for the Y coor. lookup table */ HDfree((VOIDP) x_coor); XCoorFailed: /* Failed to allocate memory for the X coor. lookup table */ return (FALSE); } /* end magnify() */ /********************************************************************** * Function : convert8to24 * Purpose : Convert an 8-bit image to a 24-bit image, using the * palette components already set up. * Parameters : * img_8_buf - pointer to the buffer which contains the 8-bit image * img24_buf - pointer to the buffer in which to place the * 24-bit image * img_xdim, img_ydim - the width and height of the images * Returns : (TRUE) for success, (FALSE) for error * Calls : * Called by : **********************************************************************/ static intn convert8to24(uint8 *img8_buf, uint8 *img24_buf, int32 img_xdim, int32 img_ydim) { uint32 pixels; /* local counting variable */ if (img_xdim <= 0 || img_ydim <= 0) /* check for bad image dimensions */ return (FALSE); if (img8_buf == NULL || img24_buf == NULL) /* check for invalid images */ return (FALSE); pixels = (uint32)(img_xdim * img_ydim); /* get the number of pixels to process */ while (pixels > 0) { /* do all the pixels */ *img24_buf++ = red_comp[*img8_buf]; *img24_buf++ = green_comp[*img8_buf]; *img24_buf++ = blue_comp[*img8_buf]; img8_buf++; pixels--; } /* end while */ return (TRUE); } /* end convert8to24() */ static VOID usage(void) { printf("USAGE: make24 [-s] [-j] \n"); printf(" -s : set scale for magnifying the 8-bit input file.\n"); printf(" scales between 0 and 1 shrink the image, scales\n"); printf(" greater than 1 expand the image. Defaults to 1\n"); printf(" -j[quality] : use JPEG compression to store the 24-bit image\n"); printf(" Defaults to no compression, or quality level\n"); printf(" 75, if no quality is specified\n"); printf(" : HDF file which contains an 8-bit image\n"); printf(" : HDF file to store the 24-bit image\n"); exit(1); } /* end usage() */ int main(int argc, char *argv[]) { intn do_jpeg = FALSE; /* flag to indicate JPEG compression */ intn jpeg_qual = 75; /* JPEG quality factor */ intn do_scale = FALSE; /* flag to indicate whether to scale images */ float32 img_scale = (float32) 1.0; /* scaling factor */ int32 xdim, ydim; /* dimensions of the image to convert */ intn ispal; /* whether there's a palette with the image */ uint8 *img_buf; /* buffer to store the image in */ uint8 *img24_buf; /* buffer to store the 24-bit image in */ uint8 *pal_buf = NULL; /* buffer to store the palette in */ intn file = 1; /* the arguement the files start at */ intn i; /* local counting variable */ if (argc < 3) usage(); if (argv[1][0] == '-' || argv[1][0] == '/') { /* check command line */ if ((argv[1][1] != 's' && argv[1][1] != 'j') || argc < 4) usage(); while (argv[file][0] == '-' || argv[file][0] == '/') { switch (argv[file][1]) { case 's': if ((img_scale = (float32) atof(&argv[file][2])) <= (float32)0.0) { /* check for valid scale */ printf("Bad scale, must be greater than 0\n"); return (1); } /* end if */ do_scale = TRUE; break; case 'j': if ((jpeg_qual = atoi(&argv[file][2])) <= 0 || jpeg_qual > 100) { printf("Bad JPEG quality setting, should be between\n"); printf("1 and 100, using default value of 75\n"); jpeg_qual = 75; } /* end if */ do_jpeg = TRUE; break; default: usage(); } /* end switch */ file++; } /* end while */ } /* end if */ /* get the image dimensions */ if (DFR8getdims(argv[file], &xdim, &ydim, &ispal) == FAIL) { printf("Error, bad dimensions in file: %s\n", argv[file]); HEprint(stdout, 0); return (1); } /* end if */ if ((img_buf = (uint8 *) HDmalloc((size_t)(xdim * ydim))) == NULL) { printf("Error, cannot allocate space for %dx%d image\n", (int)xdim, (int)ydim); return (1); } /* end if */ if (ispal) { if ((pal_buf = (uint8 *) HDmalloc(768)) == NULL) { printf("Error, cannot allocate space for image palette\n"); return (1); } /* end if */ } /* end if */ else printf("No palette associated with image, using default grey scale converion\n"); if (DFR8getimage(argv[file], img_buf, xdim, ydim, (ispal ? pal_buf : NULL)) == FAIL) { printf("Error reading image\n"); HEprint(stdout, 0); return (1); } /* end if */ if (do_scale) { /* check whether we should scale the image */ uint8 *scaled_image; /* storage for the scaled image */ int32 new_xdim, new_ydim; /* the new image's x and y dim. */ new_xdim = (int32) (img_scale * (float32)xdim); /* calc. new image's dimensions */ new_ydim = (int32) (img_scale * (float32)ydim); if ((scaled_image = (uint8 *) HDmalloc((size_t)(new_xdim * new_ydim))) == NULL) { printf("Error, cannot allocate space for %dx%d scaled image\n", (int)new_xdim, (int)new_ydim); return (1); } /* end if */ if (!magnify(img_buf, scaled_image, 0, 0, xdim - 1, ydim - 1, xdim, ydim, new_xdim, new_ydim)) { printf("Error scaling image, out of memory or bad dimensions\n"); return (1); } /* end if */ HDfree((VOIDP) img_buf); /* free the old image */ img_buf = scaled_image; /* use the new image for further processing */ xdim = new_xdim; ydim = new_ydim; } /* end if */ /* Generate the RGB components for the 8 -> 24 bit converter */ if (ispal) { uint8 *pal_ptr = pal_buf; /* temporary pointer into the palette */ for (i = 0; i < 256; i++) { red_comp[i] = *pal_ptr++; green_comp[i] = *pal_ptr++; blue_comp[i] = *pal_ptr++; } /* end for */ } /* end if */ else { /* no palette, use a greyscale palette */ for (i = 0; i < 256; i++) red_comp[i] = green_comp[i] = blue_comp[i] = (uint8) i; } /* end else */ /* allocate space for the 24-bit image */ if ((img24_buf = (uint8 *) HDmalloc((size_t)(xdim * ydim * 3))) == NULL) { printf("Error, cannot allocate space for %dx%d 24-bit image\n", (int)xdim, (int)ydim); return (1); } /* end if */ /* convert the image */ if (!convert8to24(img_buf, img24_buf, xdim, ydim)) { printf("Error converting 8-bit image to 24-bit image\n"); return (1); } /* end if */ if (do_jpeg) { /* set up JPEG compression if necessary */ cinfo.jpeg.quality = jpeg_qual; /* set JPEG comp. parameters */ cinfo.jpeg.force_baseline = TRUE; DF24setcompress(COMP_JPEG, &cinfo); /* set compression parameters */ } /* end if */ /* store 24-bit image */ if (DF24putimage(argv[file + 1], (VOIDP) img24_buf, xdim, ydim) == FAIL) { printf("Error storing 24-bit image\n"); HEprint(stdout, 0); return (1); } /* end if */ return (0); } /* end make24 */ libhdf4-4.2.10/HDF_ALT/hdf/util/hdf2jpeg.c0000644000000000000000000004122212421456623014462 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdf2jpeg.c 6013 2014-01-10 21:19:02Z acheng $ */ #include "hdf.h" #include "hfile.h" /* Size of the file buffer to copy through */ #define MAX_FILE_BUF 16384 PRIVATE uint8 file_buf[MAX_FILE_BUF]; /* size of the buffer to copy through */ static VOID usage(void); static VOID usage(void) { printf("USAGE: hdf2jpeg \n"); printf(" : the HDF file to extract JPEG images from\n"); printf(" : template for the name \n"); printf(" of the JPEG file(s) to contain\n"); printf(" the images extracted from the HDF\n"); printf(" file. The name may contain\n"); printf(" the special character: '#'\n"); printf(" The '#' character will be replaced\n"); printf(" by the reference number of the HDF\n"); printf(" image being extracted.\n"); printf(" The default format is: file.#.jpg\n"); exit(1); } /* end usage() */ int main(int argc, char *argv[]) { int32 fid, aid, data_aid; int n, status; FILE *jfif_file; /* file ptr for the JFIF file to create */ dd_t image_desc; intn jfif_formatted = 0; /* whether the jfif filename has a'#' in it */ char jfif_name[128]; /* name of the JPEG file to create */ char scratch[128]; /* name of the JPEG file to create */ char *jfif_char; /* location of the '#' char */ /* * If a file name has not been supplied print the usage message */ if (argc < 3) usage(); if ((jfif_char = (char *) HDstrchr(argv[2], '#')) == NULL) HDstrcpy(jfif_name, argv[2]); /* copy the JPEG file name */ else { if (jfif_char > argv[2]) { /* copy initial portion */ HDstrncpy(jfif_name, argv[2], (size_t) (jfif_char - argv[2])); jfif_name[jfif_char - argv[2]] = '\0'; /* terminate the string */ } /* end if */ HDstrcat(jfif_name, "%d"); /* append formatter */ HDstrcat(jfif_name, jfif_char + 1); /* complete the name */ jfif_formatted = TRUE; } /* end else */ fid = Hopen(argv[1], DFACC_READ, -1); if (fid == FAIL) { printf("Error opening HDF file: %s\n", argv[1]); exit(1); } /* end if */ n = 0; aid = Hstartread(fid, DFTAG_JPEG, DFREF_WILDCARD); if (aid != FAIL) { do { n++; /* increment the number of images found */ Hinquire(aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); if (Hread(aid, image_desc.length, file_buf) != image_desc.length) { printf("Error reading %d'th JPEG image from HDF file\n", n); exit(1); } /* end if */ if (jfif_formatted == TRUE) { sprintf(scratch, jfif_name, image_desc.ref); jfif_file = fopen(scratch, "wb"); } /* end if */ else { jfif_file = fopen(jfif_name, "wb"); } /* end else */ if (jfif_file == NULL) { printf("error opening JFIF output file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing to JPEG file\n"); exit(1); } /* end if */ data_aid = Hstartread(fid, DFTAG_CI, image_desc.ref); Hinquire(data_aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); while (image_desc.length > MAX_FILE_BUF) { if (Hread(data_aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != MAX_FILE_BUF) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ image_desc.length -= MAX_FILE_BUF; } /* end while */ if (image_desc.length > 0) { if (Hread(data_aid, image_desc.length, file_buf) != (int32) (image_desc.length)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(data_aid); /* let go of the JPEG data AID */ fclose(jfif_file); /* close the JFIF file */ status = Hnextread(aid, DFTAG_JPEG, DFREF_WILDCARD, DF_CURRENT); } while (status == SUCCEED); Hendaccess(aid); } /* end if */ aid = Hstartread(fid, DFTAG_GREYJPEG, DFREF_WILDCARD); if (aid != FAIL) { do { n++; /* increment the number of images found */ Hinquire(aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); if (Hread(aid, image_desc.length, file_buf) != image_desc.length) { printf("Error reading %d'th JPEG image from HDF file\n", n); exit(1); } /* end if */ if (jfif_formatted == TRUE) { sprintf(scratch, jfif_name, image_desc.ref); jfif_file = fopen(scratch, "wb"); } /* end if */ else { jfif_file = fopen(jfif_name, "wb"); } /* end else */ if (jfif_file == NULL) { printf("error opening JFIF output file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing to JPEG file\n"); exit(1); } /* end if */ data_aid = Hstartread(fid, DFTAG_CI, image_desc.ref); Hinquire(data_aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); while (image_desc.length > MAX_FILE_BUF) { if (Hread(data_aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != (size_t) MAX_FILE_BUF) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ image_desc.length -= MAX_FILE_BUF; } /* end while */ if (image_desc.length > 0) { if (Hread(data_aid, image_desc.length, file_buf) != (int32) (image_desc.length)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(data_aid); /* let go of the JPEG data AID */ fclose(jfif_file); /* close the JFIF file */ status = Hnextread(aid, DFTAG_GREYJPEG, DFREF_WILDCARD, DF_CURRENT); } while (status == SUCCEED); Hendaccess(aid); } /* end if */ /* Handle new-style JPEG5 images */ aid = Hstartread(fid, DFTAG_JPEG5, DFREF_WILDCARD); if (aid != FAIL) { do { Hinquire(aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); n++; /* increment the number of images found */ if (jfif_formatted == TRUE) { sprintf(scratch, jfif_name, image_desc.ref); jfif_file = fopen(scratch, "wb"); } /* end if */ else { jfif_file = fopen(jfif_name, "wb"); } /* end else */ if (jfif_file == NULL) { printf("error opening JFIF output file\n"); exit(1); } /* end if */ data_aid = Hstartread(fid, DFTAG_CI, image_desc.ref); Hinquire(data_aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); while (image_desc.length > MAX_FILE_BUF) { if (Hread(data_aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != MAX_FILE_BUF) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ image_desc.length -= MAX_FILE_BUF; } /* end while */ if (image_desc.length > 0) { if (Hread(data_aid, image_desc.length, file_buf) != (int32) (image_desc.length)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(data_aid); /* let go of the JPEG data AID */ fclose(jfif_file); /* close the JFIF file */ status = Hnextread(aid, DFTAG_JPEG5, DFREF_WILDCARD, DF_CURRENT); } while (status == SUCCEED); Hendaccess(aid); } /* end if */ /* Handle new-style GREYJPEG5 images */ aid = Hstartread(fid, DFTAG_GREYJPEG5, DFREF_WILDCARD); if (aid != FAIL) { do { n++; /* increment the number of images found */ Hinquire(aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); if (jfif_formatted == TRUE) { sprintf(scratch, jfif_name, image_desc.ref); jfif_file = fopen(scratch, "wb"); } /* end if */ else { jfif_file = fopen(jfif_name, "wb"); } /* end else */ if (jfif_file == NULL) { printf("error opening JFIF output file\n"); exit(1); } /* end if */ data_aid = Hstartread(fid, DFTAG_CI, image_desc.ref); Hinquire(data_aid, NULL, &image_desc.tag, &image_desc.ref, &image_desc.length, &image_desc.offset, NULL, NULL, NULL); while (image_desc.length > MAX_FILE_BUF) { if (Hread(data_aid, MAX_FILE_BUF, file_buf) != (int32) (MAX_FILE_BUF)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), MAX_FILE_BUF, jfif_file) != (size_t) MAX_FILE_BUF) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ image_desc.length -= MAX_FILE_BUF; } /* end while */ if (image_desc.length > 0) { if (Hread(data_aid, image_desc.length, file_buf) != (int32) (image_desc.length)) { printf("Error reading JPEG image data from HDF file\n"); exit(1); } /* end if */ if (fwrite(file_buf, sizeof(uint8), (size_t) image_desc.length, jfif_file) != (size_t) image_desc.length) { printf("Error writing JPEG image data\n"); exit(1); } /* end if */ } /* end if */ Hendaccess(data_aid); /* let go of the JPEG data AID */ fclose(jfif_file); /* close the JFIF file */ status = Hnextread(aid, DFTAG_GREYJPEG5, DFREF_WILDCARD, DF_CURRENT); } while (status == SUCCEED); Hendaccess(aid); } /* end if */ if (n == 0) printf("Error, no JPEG images found in HDF file\n"); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/he_disp.c0000644000000000000000000002667412421456623014422 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4937 $"; #endif /* $Id: he_disp.c 4937 2007-09-10 16:36:16Z pvn $ */ /* display.c -- contains code for displaying an image using ICR * this code is plucked from hdfrseq.c */ #include "he.h" #define SCRX 1152 #define SCRY 900 /* HEdisplay -- stub function for displaying an image using ICR */ int HEdisplay(HE_CMD * cmd) { #ifndef IBM6000 int i; int center = 1; int xwhere = 0; int ywhere = 0; int factor = 1; int large = 0; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: printf("display [-position ] [-expansion ] [-large]\n"); printf("\t-position\tImage position on console screen\n"); printf("\t-expansion\tImage expansion factor\n"); printf("\t-large\t\tMake image as large as posible\n"); return HE_OK; case HE_POSITION: center = 0; xwhere = atoi(cmd->argv[++i]); ywhere = atoi(cmd->argv[++i]); if ((xwhere < 0) || (xwhere > SCRX) || (ywhere < 0) || (ywhere > SCRY)) { fprintf(stderr, "Invalid position.\n"); return HE_FAIL; } break; case HE_EXPANSION: factor = atoi(cmd->argv[++i]); if (factor < 1) factor = 1; break; case HE_LARGE: large = 1; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return display(center, xwhere, ywhere, factor, large); #else printf("Display routines do not work on this platform.\n"); return 1; #endif } void goTo(int desc) { /* goto element of he_desc[desc] */ /* ask swami */ /* right now this only works for r8 */ DFR8readref(he_file, he_desc[desc].ref); } #ifndef IBM6000 /* Skip it all */ int oldcf = 0; /* old value of compression flag */ int32 oldx = 0, oldy = 0; /* old values of xdim and ydim */ int coldx = 0, coldy = 0; /* old values of xdim and ydim for CI8s */ int32 xdim = 0, ydim = 0; /* size of image on disk */ int xwhere, ywhere; /* where to put it on the screen */ int ispal; int large; /* should make images as large as possible */ int center; /* should center the images */ int oldxs = 0, oldys = 0; /* old sizes */ int xsize = 0, ysize = 0; /* what final size on screen, after blow-up */ int factor; unsigned char rgb[768]; /* storage for a palette */ char *wherebig = NULL; /* where to store small image */ uint8 *wheresmall = NULL; /* where to store image-related stuff */ int getSpace(void) { /* * Don't allocate anything if the image is the same size as before. */ if (oldx != xdim || oldy != ydim) { oldx = xdim; oldy = ydim; if (wheresmall) HDfree(wheresmall); if (NULL == (wheresmall = (uint8 *) HDmalloc((size_t)(xdim * ydim)))) { printf(" Cannot allocate memory, fatal error\n"); exit(1); } } return (0); } /*************************************************************************/ /* largeset * Set up the xfact, yfact, xsize and ysize for expanding the image * locally. * */ int largeSet(void) { int tmp; if (large) { factor = (int) (SCRX / xdim); /* how much blow-up can we do? */ /* calculate expansion factor */ tmp = (int) (SCRY / ydim); /* take minimum expansion factor */ if (factor > tmp) factor = tmp; } xsize = (int) (factor * xdim); /* re-calculate actual pixel dimensions */ ysize = (int) (factor * ydim); return (factor > 1); /* is expansion necessary? */ } int display(int c, int x, int y, int f, int l) { center = c; xwhere = x; ywhere = y; factor = f; large = l; if (!isRig(he_desc[he_currDesc].tag)) { fprintf(stderr, "Current element not a image group.\n"); return HE_FAIL; } goTo(he_currDesc); if (DFR8getdims(he_file, &xdim, &ydim, &ispal) < 0) { fprintf(stderr, "Error getting image group.\n"); return HE_FAIL; } if (he_remote) getSpace(); /* get space for image in mem */ /* * Try to successfully load the palette and image from the file */ if (DFR8getimage(he_file, wheresmall, xdim, ydim, rgb) < 0) { fprintf(stderr, "Error getting image group.\n"); return HE_FAIL; } if (he_remote) rImage(ispal); /* display remote image with [palette] */ return HE_OK; } /*****************************************************************************/ /* rimage * Remote display of the image using the ICR. * Just print the codes to stdout using the protocol. */ int rImage(int usepal) { int i, j, newxsize; int8 *thisline, *space, *thischar; unsigned char c; /* * Open the window with the W command */ printf("\033^W;%d;%d;%ld;%ld;0;rseq^", xwhere, ywhere, (long) (xdim * factor), (long) (ydim * factor)); /* * If a palette should be used, send it with the M command. */ if (usepal) { (void) printf("\033^M;0;256;768;rseq^"); /* start map */ thischar = (int8 *) rgb; for (j = 0; j < 768; j++) { c = (unsigned char)*thischar++; if ((unsigned)c > (unsigned)31 && (unsigned)c < (unsigned)123) { putchar((int)c); } else { putchar((int)(((unsigned)c >> 6) + (unsigned)123)); putchar((int)((c & 0x3f) + 32)); } } } /* * Send the data for the image with RLE encoding for efficiency. * Encode each line and send it. */ space = (int8 *) HDmalloc(ydim + 128); thisline = (int8 *) wheresmall; for (i = 0; i < ydim; i++) { newxsize = rleIt((char *) thisline, (char *) space, (int) xdim); thisline += xdim; /* increment to next line */ (void) printf("\033^R;0;%d;%d;%d;rseq^", i * factor, factor, newxsize); thischar = space; for (j = 0; j < newxsize; j++) { /***********************************************************************/ /* Encoding of bytes: * * 123 precedes #'s 0-63 * 124 precedes #'s 64-127 * 125 precedes #'s 128-191 * 126 precedes #'s 192-255 * overall: realchar = (specialchar - 123)*64 + (char-32) * specialchar = r div 64 + 123 * char = r mod 64 + 32 */ /***********************************************************************/ c = (unsigned char)*thischar++; /* get byte to send */ if ((unsigned)c > (unsigned)31 && (unsigned)c < (unsigned)123) { putchar((int)c); } else { putchar((int)((unsigned)(c >> 6) + (unsigned)123)); putchar((int)((c & 0x3f) + 32)); } } } /* * pause for the user */ HDfree(space); return HE_OK; } /*****************************************************************************/ /* expandimg * copy an image memory to memory, expanding byte by byte to get a larger image. * no aliasing, just byte replication */ int bigImg(unsigned char *targ, unsigned char *src) { int i, j, line; unsigned char *p, *q, *oldq; for (line = 0; line < ydim; line++) { p = src + line * xdim; oldq = q = targ + line * xsize * factor; for (i = 0; i < xdim; i++, p++) for (j = 0; j < factor; j++) *q++ = *p; for (i = 1; i < factor; i++) { HDmemcpy(q, oldq, xsize); /* make one copy of the line */ q += xsize; } } return HE_OK; } /********************************************************************/ /* rleit * compress the data to go out with a simple run-length encoded scheme. * */ int rleIt(char *buf, char *bufto, int len) { char *p, *q, *cfoll, *clead; char *begp; int i; p = buf; cfoll = bufto; /* place to copy to */ clead = cfoll + 1; begp = p; while (len > 0) { /* encode stuff until gone */ q = p + 1; i = len - 1; while (*p == *q && i + 120 > len && i) { q++; i--; } if (q > p + 2) { /* three in a row */ if (p > begp) { *cfoll = (char) (p - begp); cfoll = clead; } *cfoll++ = (char) (128 | (q - p)); /* len of seq */ *cfoll++ = *p; /* char of seq */ len -= (int) (q - p); /* subtract len of seq */ p = q; clead = cfoll + 1; begp = p; } else { *clead++ = *p++; /* copy one char */ len--; if (p > begp + 120) { *cfoll = (char) (p - begp); cfoll = clead++; begp = p; } } } /* * fill in last bytecount */ if (p > begp) *cfoll = (char) (p - begp); else clead--; /* don't need count position */ return ((int) (clead - bufto)); /* how many stored as encoded */ } #endif /* IBM6000 */ /* end of display.c */ libhdf4-4.2.10/HDF_ALT/hdf/util/hdfcomp.out1.20000644000000000000000000000156412421456623015224 0ustar allcomp.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 2921 bytes Ref no 3 3058 bytes Ref no 4 3156 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Ref no 3 20 bytes Ref no 4 20 bytes Compressed Image : (tag 303) Ref no 2 2921 bytes Ref no 3 3058 bytes Ref no 4 3156 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes Ref no 3 8 bytes Ref no 4 8 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/hdfcomp.c0000644000000000000000000002676312421456623014426 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "$Revision: 6013 $"; #endif /* $Id: hdfcomp.c 6013 2014-01-10 21:19:02Z acheng $ */ /* * hdfcomp.c * Re-compress Raster-8 HDF file */ #include "hdf.h" uint8 *space; uint8 palette[768]; int32 xdim, ydim; int ispal; int main(int argc, char *argv[]) { int i; char *outfile; intn jpeg_qual=75; /* JPEG quality factor */ uint16 prevref, writeref, compress = (uint16) 0; comp_info cinfo; /* compression structure */ int32 out_fid; /* file ID for the output file */ intn copy_flabel, /* flag to indicate to copy file labels */ copy_fdesc, /* flag to indicate to copy file descriptions */ copy_ilabel, /* flag to indicate to copy image labels */ copy_idesc; /* flag to indicate to copy image descriptions */ char *annbuf=NULL; /* buffer to store annotations in */ int32 annbuflen=0; /* length of the annotation buffer */ if (argc < 3) { printf("%s, version: 1.3 date: October 15, 1994\n", argv[0]); printf(" This utility will read in raster-8 images from an\n"); printf(" HDF file and create a new HDF containing the\n"); printf(" images in a compressed format. Images will be\n"); printf(" appended to outfile, if it exists.\n\n"); printf("Usage:\n"); printf(" hdfcomp outfile {[-c],[-r],[-i],[-j]} imagefile ...\n"); printf(" {[-c],[-r],[-i],[-j]} imagefile\n"); printf(" -r: Store without compression (default)\n"); printf(" -c: Store using RLE compression\n"); printf(" -i: Store using IMCOMP compression (requires a"); printf(" palette in the HDF file)\n"); printf(" -j: Store using JPEG compression\n"); printf(" with a quality factor from 1-100, 75 default\n"); exit(1); } outfile = argv[1]; /* open the output file so that we can write Annotations into it easily */ if((out_fid=Hopen(outfile,DFACC_ALL,0))==FAIL) { printf("Error opening output file: %s\n",outfile); exit(1); } /* end if */ for (i = 2; i < argc; i++) { /* turn all the flags on (default settings) */ copy_flabel=copy_fdesc=copy_ilabel=copy_idesc=TRUE; if (*argv[i] == '-') { switch (argv[i][1]) { case 'r': /* raster */ compress = (uint16) 0; break; case 'c': /* RLE */ compress = COMP_RLE; break; case 'i': /* IMCOMP */ compress = COMP_IMCOMP; break; case 'j': /* JPEG */ compress = COMP_JPEG; if((jpeg_qual=atoi(&argv[i][2]))<=0 || jpeg_qual>100) { printf("Bad JPEG quality setting, should be between\n"); printf("1 and 100, using default value of 75\n"); jpeg_qual=75; } /* end if */ cinfo.jpeg.quality=jpeg_qual; /* set JPEG parameters */ cinfo.jpeg.force_baseline=TRUE; break; default: printf("Illegal option: %s, skipping....\n", argv[i]); break; } } else { /* file name */ /* copy the file annotations and labels over */ if(copy_flabel==TRUE || copy_fdesc==TRUE) { intn isfirst; /* flip-flop for first image */ int32 annlen; /* length of the annotation to copy */ int32 old_fid; /* file ID for the old and new files */ if((old_fid=Hopen(argv[i],DFACC_READ,0))==FAIL) { printf("Error opening input file: %s, skipping to next file\n",argv[i]); continue; } /* end if */ if(copy_flabel==TRUE) { isfirst=1; while((annlen=DFANgetfidlen(old_fid,isfirst))!=FAIL) { if(annbuflen==0 || annlen>annbuflen) { if(annbuflen!=0) HDfree(annbuf); if((annbuf=(char *)HDmalloc(annlen))==NULL) { printf("Error allocating buffer for annotation, aborting!\n"); exit(1); } /* end if */ annbuflen=annlen; } /* end if */ if(DFANgetfid(old_fid,annbuf,annbuflen,isfirst)==FAIL) printf("Error reading file annotation from file:%s, continuing\n",argv[i]); else { if(DFANaddfid(out_fid,annbuf)==FAIL) printf("Error wriring annotation to file:%s, continuing\n",outfile); } /* end else */ isfirst=0; /* get the next label from the file */ } /* end while */ } /* end if */ if(copy_fdesc==TRUE) { isfirst=1; while((annlen=DFANgetfdslen(old_fid,isfirst))!=FAIL) { if(annbuflen==0 || annlen>annbuflen) { if(annbuflen!=0) HDfree(annbuf); if((annbuf=(char *)HDmalloc(annlen))==NULL) { printf("Error allocating buffer for annotation, aborting!\n"); exit(1); } /* end if */ annbuflen=annlen; } /* end if */ if(DFANgetfds(old_fid,annbuf,annbuflen,isfirst)==FAIL) printf("Error reading file annotation from file:%s, continuing\n",argv[i]); else { if(DFANaddfds(out_fid,annbuf,annlen)==FAIL) printf("Error wriring annotation to file:%s, continuing\n",outfile); } /* end else */ isfirst=0; /* get the next label from the file */ } /* end while */ } /* end if */ } /* end if */ /* copy the images over */ while (DFR8getdims(argv[i], &xdim, &ydim, &ispal) >= 0) { prevref = DFR8lastref(); if ((space = (uint8 *) HDmalloc((size_t)(xdim * ydim))) == NULL) { printf("Not enough memory to convert image"); exit(1); } if (DFR8getimage(argv[i], space, xdim, ydim, palette) < 0) { printf("Error reading image from file %s\n", argv[i]); exit(1); } if (ispal) DFR8setpalette((uint8 *) palette); else if (compress == DFTAG_IMC) { printf("Couldn't find palette for IMCOMP compression\n"); exit(1); } writeref=Hnewref(out_fid); DFR8writeref(outfile, writeref); if(compress) DFR8setcompress((int32)compress,&cinfo); if (DFR8addimage(outfile, (VOIDP) space, xdim, ydim, compress)<0) { printf("Error writing image to file %s\n", outfile); exit(1); } /* sequence through the annotations for this image */ if(copy_ilabel==TRUE || copy_idesc==TRUE) { uint16 image_tag=DFTAG_RIG; /* tag to look for image annotations with */ int32 annlen; /* length of the annotation to copy */ if(copy_ilabel==TRUE) { if((annlen=DFANgetlablen(argv[i],image_tag,prevref))!=FAIL) { if(annbuflen==0 || annlen>annbuflen) { if(annbuflen!=0) HDfree(annbuf); if((annbuf=(char *)HDmalloc(annlen))==NULL) { printf("Error allocating buffer for annotation, aborting!\n"); exit(1); } /* end if */ annbuflen=annlen; } /* end if */ if(DFANgetlabel(argv[i],image_tag,prevref,annbuf,annbuflen)==FAIL) printf("Error reading annotation from file:%s, continuing\n",argv[i]); else if(DFANputlabel(outfile,image_tag,writeref,annbuf)==FAIL) printf("Error writing annotation to file:%s, continuing\n",outfile); } /* end if */ } /* end if */ if(copy_idesc==TRUE) { if((annlen=DFANgetdesclen(argv[i],image_tag,prevref))!=FAIL) { if(annbuflen==0 || annlen>annbuflen) { if(annbuflen!=0) HDfree(annbuf); if((annbuf=(char *)HDmalloc(annlen))==NULL) { printf("Error allocating buffer for annotation, aborting!\n"); exit(1); } /* end if */ annbuflen=annlen; } /* end if */ if(DFANgetdesc(argv[i],image_tag,prevref,annbuf,annbuflen)==FAIL) printf("Error reading annotation from file:%s, continuing\n",argv[i]); else if(DFANputdesc(outfile,image_tag,writeref,annbuf,annlen)==FAIL) printf("Error writing annotation to file:%s, continuing\n",outfile); } /* end if */ } /* end if */ } /* end if */ /* sequence past this image */ DFR8readref(argv[i], prevref); DFR8getdims(argv[i], &xdim, &ydim, &ispal); HDfree((VOIDP)space); } } } Hclose(out_fid); /* remember to close the file */ if(annbuflen!=0) /* and free the buffer space */ HDfree(annbuf); return(0); } libhdf4-4.2.10/HDF_ALT/hdf/util/gif2hdf.c0000644000000000000000000000673412421456623014313 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #include #include "gif.h" #include int main(argv , argc) int argv; char *argc[]; { GIFTOMEM GifMemoryStruct; GIFIMAGEDESC gifImageDesc; FILE *fpGif; int32 i,ImageCount; int32 filesize; BYTE *MemGif; BYTE *StartPos; char GIFFileName[256]; char HDFFileName[256]; /* Initialize all GifMemoryStruct pointers to null ** to prevent hassles later on */ GifMemoryStruct.GifHeader = NULL; GifMemoryStruct.GifImageDesc = NULL; GifMemoryStruct.GifGraphicControlExtension = NULL; GifMemoryStruct.GifPlainTextExtension = NULL; GifMemoryStruct.GifApplicationExtension = NULL; GifMemoryStruct.GifCommentExtension = NULL; if (argv<3) { printf("\n\nWrong Usage. Use:\ngif2hdf \n\n"); return(-1); } strncpy(GIFFileName , argc[1] , VSNAMELENMAX - 1); strncpy(HDFFileName , argc[2] , VSNAMELENMAX - 1); GIFFileName[VSNAMELENMAX - 1] = '\0'; HDFFileName[VSNAMELENMAX - 1] = '\0'; if (!(fpGif = fopen(GIFFileName,"rb"))) { printf("Unable to open GIF file for reading.\n"); printf("Filename (including path) must be less than %d charachters in length\n",VSNAMELENMAX); exit(-1); } /* Get the whole file into memory. Mem's much faster than I/O */ fseek(fpGif, 0L , 2); filesize = ftell(fpGif); fseek(fpGif, 0L , 0); if (filesize == 0) printf("File Size Zero"); if (!(MemGif = StartPos = (BYTE *)malloc(filesize))) { printf("Out of memory"); exit (-1); } if (fread(MemGif,filesize,1,fpGif) != 1) { printf("Corrupted Input File"); exit(-1); } fseek(fpGif,0L,0); /* ** Call Gif2Mem and break the whole file into parts. ** Gif2Mem also calls decompresses the images so we don't ** have to worry about that */ GifMemoryStruct = Gif2Mem(MemGif); if (ferror(fpGif)) { printf("File Stream Error\n\n"); exit(-1); } fclose(fpGif); /* Call WriteHDF from here. Go ahead and change WriteHDF to write ** whatever format you want */ if (WriteHDF(GifMemoryStruct , argc[2] , argc[1])) printf("HDF Write Error\n\n"); /* Free all buffers */ ImageCount = (int32)(GifMemoryStruct.GifHeader)->ImageCount; for(i = 0 ; i < ImageCount ; i++) { gifImageDesc = *(GifMemoryStruct.GifImageDesc[i]); if (gifImageDesc.Image != NULL) free(gifImageDesc.Image); if (GifMemoryStruct.GifGraphicControlExtension[i] != NULL) free(GifMemoryStruct.GifGraphicControlExtension[i]); } free(StartPos); free (GifMemoryStruct.GifHeader); if (GifMemoryStruct.GifApplicationExtension != NULL) free (GifMemoryStruct.GifApplicationExtension); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/r8tohdf.c0000644000000000000000000001372712421456623014360 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: r8tohdf.c 6013 2014-01-10 21:19:02Z acheng $ */ /* * r8tohdf.c * Encoding of raster images in HDF files */ /* The intrepretation of arguments has changed a little. A -p introduces a palette which will be used for subsequent images, till another -p. -i and -c introduce a series of images/compressed images */ #include "hdf.h" int32 xdim, ydim; int main(int argc, char *argv[]); int palconv(char *palfile); int imconv(char *outfile, char *imfile, uint16 compress); int main(int argc, char *argv[]) { int i, is_pal = 0, image = 1; char *outfile; uint16 compress = (uint16) 0; if (argc < 5) { printf("%s, version: 1.1 date: July 1, 1992\n", argv[0]); printf(" This utility converts one or more raw raster-8 images to\n"); printf(" HDF RIS8 format and writes them to an HDF file.\n\n"); printf("Usage:\n"); printf(" %s xdim ydim outfile [-p palfile] ", argv[0]); printf("{[-r],[-c],[-i]} imagefile\n"); printf("\t\t\t\t... [-p palfile] {[-r],[-c],[-i]} imagefile ...\n"); printf(" -r: Store without compression (default)\n"); printf(" -c: Store using RLE compression\n"); printf(" -i: Store using IMCOMP compression\n\n"); printf("* r8tohdf can take any number of images and palettes\n"); printf("* Compression, palette, apply to all subsequent images.\n"); printf("* All images are assumed to be the same dimensions.\n\n"); exit(1); } xdim = atoi(argv[1]); ydim = atoi(argv[2]); if (xdim < 1 || ydim < 1) { printf("Must specify xdim and ydim\n"); exit(1); } outfile = argv[3]; for (i = 4; i < argc; i++) { if (*argv[i] == '-') { switch (argv[i][1]) { case 'p': /* palette */ is_pal = 1; image = 0; break; case 'r': /* raster */ image = 1; compress = (uint16) 0; break; case 'c': /* RLE */ image = 1; compress = DFTAG_RLE; break; case 'i': /* IMCOMP */ image = 1; compress = DFTAG_IMC; break; default: printf("Illegal option: %s, skipping....\n", argv[i]); break; } } else { /* file name */ if (image) { if (compress == DFTAG_IMC && is_pal == 0) { printf("Illegal options. If imcomp compression (-i) "); printf("chosen, you must supply a palette.\n"); printf("Program aborted.\n"); exit(1); } imconv(outfile, argv[i], compress); } else { palconv(argv[i]); image = 1; } } } return (0); } /* * palconv(file) sets the palette */ int palconv(char *palfile) { uint8 palspace[1024], reds[256], greens[256], blues[256]; uint8 *p; FILE *fp; int j, ret; fp = fopen(palfile, "rb"); if (fp == NULL) { printf(" Error opening palette file %s\n", palfile); exit(1); } fread(reds, 1, 256, fp); fread(greens, 1, 256, fp); fread(blues, 1, 256, fp); fclose(fp); p = palspace; for (j = 0; j < 256; j++) { *p++ = reds[j]; *p++ = greens[j]; *p++ = blues[j]; } ret = DFR8setpalette(palspace); if (ret < 0) { printf(" Error: %d, in writing palette %s\n", ret, palfile); exit(1); } return (0); } int imconv(char *outfile, char *imfile, uint16 compress) { int ret; char *space; FILE *fp; if ((fp = fopen(imfile, "rb")) == NULL) { printf("Error opening image file\n"); exit(1); } if ((space = (char *) HDmalloc((size_t) (xdim * ydim))) == NULL) { printf("Not enough memory to convert image\n"); exit(1); } if ((ret = (int)fread(space, (size_t) xdim, (size_t) ydim, fp)) <= 0) { printf("Cannot read image file\n"); fclose(fp); exit(1); } ret = DFR8addimage(outfile, space, xdim, ydim, compress); if (ret < 0) { printf(" Error: %d, in writing image %s\n", HEvalue(1), outfile); exit(1); } HDfree(space); fclose(fp); return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/he_cntrl.c0000644000000000000000000013406612421456623014600 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 4937 $"; #endif /* $Id: he_cntrl.c 4937 2007-09-10 16:36:16Z pvn $ */ /* ------ he-cntrl.c ------ This file contains much of the contol mechanisms for HDFed - Many of the command line functions - The parsing functions - predicate handling */ #include "he.h" /* --- HEif --- executes commands if predicates are satisfied */ int HEif(HE_CMD * cmd) { HE_PRED *pred; /* predicates */ HE_CMD *cmdTail; /* last cmd we've seen in the sublist */ if (cmd->argc == 2 && !HDstrcmp(cmd->argv[1], "-help")) { puts("if []"); puts(" *"); puts("end"); puts("\tExecutes commands if predicates are satisfied by element"); return HE_OK; } /* parse the predicates on this command */ pred = parsePred(cmd->argc, cmd->argv); if (!pred) return FAIL; /* execute the sub list only is the predicates are satisfied */ if (satPred(currDesc, pred)) { /* go through sub-list until an end is encountered */ for (cmdTail = cmd->sub; cmdTail && HDstrcmp(cmdTail->argv[0], "end"); cmdTail = cmdTail->next) if (cmdTail->func) he_status = (*cmdTail->func) (cmdTail); else { fprintf(stderr, "Unrecognized command: %s\n", cmd->argv[0]); return FAIL; } } return HE_OK; } /* --- HEselect --- step through all the elements in a file and execute if predicates are satisfied */ int HEselect(HE_CMD * cmd) { int t_currDesc; /* tmp var */ HE_PRED *pred; /* predicate structure */ HE_CMD *cmdTail; /* last cmd we've seen in the sublist */ if (cmd->argc == 2 && !HDstrcmp(cmd->argv[1], "-help")) { puts("select []"); puts(" *"); puts("end"); puts("\tSteps through all elements in the file that satisfies the"); puts("\tpredicates and execute the commands on them."); return HE_OK; } /* generate predicate structure for this predicate list */ pred = parsePred(cmd->argc, cmd->argv); if (!pred) return FAIL; /* save the curr desc index */ t_currDesc = he_currDesc; /* step through all elements */ for (he_currDesc = 0; he_currDesc < he_numDesc; he_currDesc++) if (currTag != DFTAG_NULL && satPred(currDesc, pred)) { for (cmdTail = cmd->sub; HDstrcmp(cmdTail->argv[0], "end"); cmdTail = cmdTail->next) if (cmdTail->func) he_status = (*cmdTail->func) (cmdTail); else { fprintf(stderr, "Unrecognized command: %s\n", cmdTail->argv[0]); he_status = FAIL; } } /* restore he_currDesc */ he_currDesc = t_currDesc; return HE_OK; } /* --- move to the next item --- */ extern HE_PRED *he_predicates; int HEnext(HE_CMD * cmd) { int tmp; HE_PRED *predicates; if (cmd->argc == 2 && !HDstrcmp(cmd->argv[1], "-help")) { puts("next []"); puts("\tMove to the next element that satisfies the predicate"); return HE_OK; } if (!fileOpen()) { noFile(); return HE_FAIL; } predicates = parsePred(cmd->argc, cmd->argv); /* the following code assumes that parsePred() returns NULL if error, */ /* a predicate struct with no key if empty predicate list */ if (!predicates) return HE_FAIL; /* replace this only if it is non-empty */ if (predicates[0].key != 0) { if (he_predicates) HDfree(he_predicates); he_predicates = predicates; } tmp = he_currDesc; do { if (tmp >= he_numDesc - 1) { fprintf(stderr, "Reached end of file. Not moved.\n"); return HE_FAIL; } tmp++; } while (he_desc[tmp].tag == DFTAG_NULL || !satPred(he_desc + tmp, he_predicates)); he_currDesc = tmp; return HE_OK; } /* ---------- Move to previous item -------------- */ int HEprev(HE_CMD * cmd) { int tmp; HE_PRED *predicates; if (cmd->argc == 2 && !HDstrcmp(cmd->argv[1], "-help")) { puts("prev []"); puts("\tMove to the next element that satisfies the predicate"); return HE_OK; } if (!fileOpen()) { noFile(); return HE_FAIL; } predicates = parsePred(cmd->argc, cmd->argv); /* the following code assumes that parsePred() returns NULL if error, a predicate struct with no key if empty predicate list */ if (!predicates) return HE_FAIL; if (predicates[0].key != 0) { if (he_predicates) HDfree(he_predicates); he_predicates = predicates; } tmp = he_currDesc; do { if (tmp <= 0) { fprintf(stderr, "Reached beginning of file. Not moved.\n"); return HE_FAIL; } tmp--; } while (he_desc[tmp].tag == DFTAG_NULL || !satPred(he_desc + tmp, he_predicates)); he_currDesc = tmp; return HE_OK; } /* ----------- routines to call od on some objects ----------- */ int HEdump(HE_CMD * cmd) { int i; int offset = 0, raw = 0; char format[] = "-o"; int32 length = 0; /* zero is special, means all */ for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: printf("dump [-offset ] [-length ]\n"); printf("\t[-decimal|-short|-byte|-hexadecimal|-float|-double|-ascii|\n"); printf("\t[-udecimal|-ushort|-octal|]\n"); printf("\tDisplay the contents of the current object\n"); printf("\t-offset Start offset\n"); printf("\t-length Length (bytes) to look at\n"); printf("\t-decimal Decimal format [32 bit integers]\n"); printf("\t-short Decimal format [16 bit integers]\n"); printf("\t-byte Decimal format [8 bit integers]\n"); printf("\t-hexadecimal Hexadecimal format\n"); printf("\t-float Float format [32 bit floats]\n"); printf("\t-double Float format [64 bit floats]\n"); printf("\t-ascii Ascii format\n"); printf("\t-udecimal Unsigned Decimal format [32 bit integers]\n"); printf("\t-ushort Unsigned Decimal format [16 bit integers]\n"); printf("\t-octal Octal format [Default]\n"); return HE_OK; case HE_OFFSET: offset = atoi(cmd->argv[++i]); break; case HE_LENGTH: length = atoi(cmd->argv[++i]); if (length <= 0) { fprintf(stderr, "Illegal length: %s, ignored.\n", cmd->argv[i]); length = 0; } break; case HE_DECIMAL: HDstrcpy(format,"-i"); break; case HE_UDECIMAL: HDstrcpy(format,"-d"); break; case HE_SHORT: HDstrcpy(format,"-j"); break; case HE_USHORT: HDstrcpy(format,"-s"); break; case HE_BYTE: HDstrcpy(format,"-b"); break; case HE_OCTAL: HDstrcpy(format,"-o"); break; case HE_HEX: HDstrcpy(format,"-x"); break; case HE_FLOAT: HDstrcpy(format,"-f"); break; case HE_DOUBLE: HDstrcpy(format,"-e"); break; case HE_ASCII: HDstrcpy(format,"-a"); break; case HE_RAW: raw = DFNT_NATIVE; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return HEIdump(length, offset, format, raw); } #define MAX_LINE 60 /* * Run 'od' on a segment of the current data element */ int HEIdump(int32 length, int offset, char *format, int raw_flag) { int32 eltLength; int32 i; int len = 0; char *data; if (!fileOpen()) { noFile(); return HE_FAIL; } eltLength = getElement(he_currDesc, &data); if (eltLength <= 0) { fprintf(stderr, "Unable to get element.\n"); return HE_FAIL; } /* adjust the offset, negative offset implies starting from end. then check to see if offset is in range */ if (offset < 0) offset += (int) eltLength; if (offset < 0 || offset > eltLength) { fprintf(stderr, "Illegal offset. Setting offset to 0.\n"); offset = 0; } /* adjust the length if it falls beyond the end of the element */ if (length == 0 || length > (eltLength - offset)) length = eltLength - offset; /* * Dump the data to the console */ switch (format[1]) { case 'i': { int32 *idata; idata = (int32 *) HDmalloc(length / 4 * sizeof(int32)); DFKconvert((VOIDP) (data + offset), (VOIDP) idata, DFNT_INT32 | raw_flag, length / 4, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 4; i++) { printf("%11d ", (int) idata[i]); if (++len > 4) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 4)); } } printf("\n"); HDfree((VOIDP) idata); } break; case 'd': { uint32 *idata; idata = (uint32 *) HDmalloc(length / 4 * sizeof(int32)); DFKconvert((VOIDP) (data + offset), (VOIDP) idata, DFNT_UINT32 | raw_flag, length / 4, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 4; i++) { printf("%11u ", (int) idata[i]); if (++len > 4) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 4)); } } printf("\n"); HDfree((VOIDP) idata); } break; case 'j': { int16 *sdata; sdata = (int16 *) HDmalloc(length / 2 * sizeof(int16)); DFKconvert((VOIDP) (data + offset), (VOIDP) sdata, DFNT_INT16 | raw_flag, length / 2, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 2; i++) { printf("%10d ", sdata[i]); if (++len > 5) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 2)); } } printf("\n"); HDfree((VOIDP) sdata); } break; case 's': { uint16 *sdata; sdata = (uint16 *) HDmalloc(length / 2 * sizeof(uint16)); DFKconvert((VOIDP) (data + offset), (VOIDP) sdata, DFNT_UINT16 | raw_flag, length / 2, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 2; i++) { printf("%10d ", sdata[i]); if (++len > 5) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 2)); } } printf("\n"); HDfree((VOIDP) sdata); } break; case 'b': { uint8 *bdata; bdata = (uint8 *) HDmalloc(length); DFKconvert((VOIDP) (data + offset), (VOIDP) bdata, DFNT_UINT8 | raw_flag, length, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length; i++) { printf("%6d ", bdata[i]); if (++len > 7) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1))); } } printf("\n"); HDfree((VOIDP) bdata); } break; case 'x': { intn *idata; intn sizeintn; sizeintn = sizeof(intn); idata = (intn *) HDmalloc((size_t)(length / 4 * sizeintn)); DFKconvert((VOIDP) (data + offset), (VOIDP) idata, DFNT_NINT32 | raw_flag, length / 4, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / sizeintn; i++) { printf("%10x ", idata[i]); if (++len > 5) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * sizeintn)); } } printf("\n"); HDfree((VOIDP) idata); } break; case 'o': { intn *idata; intn sizeintn; sizeintn = sizeof(intn); idata = (intn *) HDmalloc((size_t)(length / 4 * sizeintn)); DFKconvert((VOIDP) (data + offset), (VOIDP) idata, DFNT_NINT32 | raw_flag, length / 4, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / sizeintn; i++) { printf("%10o ", idata[i]); if (++len > 4) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * sizeintn)); } } printf("\n"); HDfree((VOIDP) idata); } break; case 'a': { char *cdata; cdata = (char *) (data + offset); printf("%8d: ", offset); for (i = 0; i < length; i++) { if (cdata[i] != '\0') printf("%c", cdata[i]); else printf(" "); if (++len > 40) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1))); } } printf("\n"); } break; case 'f': { float32 *fdata; fdata = (float32 *) HDmalloc(length / 4 * sizeof(float32)); DFKconvert((VOIDP) (data + offset), (VOIDP) fdata, DFNT_FLOAT32 | raw_flag, length / 4, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 4; i++) { printf("%15e", fdata[i]); if (++len > 3) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 4)); } } printf("\n"); HDfree((VOIDP) fdata); } break; case 'e': { float64 *fdata; fdata = (float64 *) HDmalloc(length / 8 * sizeof(float64)); DFKconvert((VOIDP) (data + offset), (VOIDP) fdata, DFNT_FLOAT64 | raw_flag, length / 8, DFACC_READ, 0, 0); printf("%8d: ", offset); for (i = 0; i < length / 8; i++) { printf("%30e", fdata[i]); if (++len > 1) { len = 0; printf("\n%8d: ", (int) (offset + (i + 1) * 8)); } } printf("\n"); HDfree((VOIDP) fdata); } break; default: printf("Doing the default thang\n"); break; } HDfree(data); return HE_OK; } /* ------------------ Print 'info' ----------------- */ int HEinfo(HE_CMD * cmd) { int i; int all = NO; int longout = NO; int group = NO; int label = NO; for (i = 1; i < cmd->argc; i++) if (cmd->argv[i][0] == '-') switch (findOpt(cmd->argv[i] + 1)) { case HE_HELP: puts("info [-all] [-long] [-group] [-label]"); puts("\t-all\t\tShow info for all elements in file"); puts("\t-long\t\tShow more info"); puts("\t-group\t\tOrganize info in group(s)"); puts("\t-label\t\tShow label if any"); return HE_OK; case HE_LONGOUT: longout = YES; break; case HE_ALL: all = YES; break; case HE_LABEL: label = YES; break; case HE_DOGROUP: group = YES; break; case HE_NOTFOUND: unkOpt(cmd->argv[i]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[i]); return HE_FAIL; default: irrOpt(cmd->argv[i]); return HE_FAIL; } else { unkArg(cmd->argv[i]); return HE_FAIL; } return info(all, longout, group, label); } /* *Show info about data elements */ int info(int all, int longout, int group, int label) { int idx; int empty = 0; int start, end; int d; int *mark; int i, j; if (!fileOpen()) { noFile(); return HE_OK; } if (!group || (!isGrp(currTag) && !all)) { if (all) { start = 0; end = he_numDesc - 1; } else start = end = he_currDesc; for (i = start; i <= end; i++) if (he_desc[i].tag == DFTAG_NULL) empty++; else { if (all && i == he_currDesc) printf("*"); else printf(" "); printf("(%d) ", i + 1); /* 1 based */ infoDesc(i, longout, label); } if (empty > 0) printf("Empty (tag %d) : %d slots.\n", DFTAG_NULL, empty); } else { mark = (int *) HDcalloc(he_numDesc, sizeof(int)); if (all) { start = 0; end = he_numGrp - 1; } else { if (he_numGrp == 0) { fprintf(stderr, "There is no group in this file.\n"); return HE_FAIL; } start = end = currGrpNo; } for (i = start; i <= end; i++) { printf("**Group %d:\n", i + 1); /* 1 based */ idx = he_grp[i].desc; infoDesc(idx, longout, label); mark[idx] = YES; for (j = 0; j < he_grp[i].size; j++) if ((d = findDesc(he_grp[i].ddList + j)) >= 0) { mark[d] = 1; infoDesc(d, longout, 0); } else fprintf(stderr, "**Tag: %d, Ref: %d not in descriptors list!\n", he_grp[i].ddList[j].tag, he_grp[i].ddList[j].ref); } if (all) { puts("\n**These do not belong to any group:"); for (i = 0; i < he_numDesc; i++) if (!mark[i]) { if (he_desc[i].tag == DFTAG_NULL) empty++; else infoDesc(i, longout, label); } if (empty > 0) printf("Empty (tag %d) : %d slots.\n", DFTAG_NULL, empty); } } return HE_OK; } void infoDesc(int desc, int longout, int label) { char *s; char *name; name = HDgettagsname(he_desc[desc].tag); if (!name) printf("\t%-30s: (Tag %d)", "Unknown Tag", he_desc[desc].tag); else { printf("\t%-30s: (Tag %d)", name, he_desc[desc].tag); HDfree(name); } /* end else */ if (longout) printf("\n\tRef: %d, Offset: %ld, Length: %ld (bytes)\n", he_desc[desc].ref, (long) he_desc[desc].offset, (long) he_desc[desc].length); else printf(" Ref %d\n", he_desc[desc].ref); if (label) { getAnn(HE_LABEL, he_desc[desc].tag, he_desc[desc].ref, &s); if (s != NULL) printf("\tLabel: %s\n", s); } } /* ---------- HEdelete --- 'stub' function for delete */ int HEdelete(HE_CMD * cmd) { if (cmd->argc < 2) return delete(he_currDesc); else { if (cmd->argv[1][0] != '-') { unkArg(cmd->argv[1]); return HE_FAIL; } else switch (findOpt(cmd->argv[1] + 1)) { case HE_HELP: puts("delete"); puts("\tDelete this element or group."); return HE_OK; case HE_NOTFOUND: unkOpt(cmd->argv[1]); return HE_FAIL; case HE_AMBIG: ambigOpt(cmd->argv[1]); return HE_FAIL; default: irrOpt(cmd->argv[1]); return HE_FAIL; } } } /* delete -- deletes a group and its elts or an elt from current hdf file */ int delete(int curr) { int ret; /* check if any file is open */ if (!fileOpen()) { noFile(); return HE_FAIL; } /* call the actual routine to do it, the update the descriptor list */ ret = recurseDel(curr); updateDesc(); return ret; } /* recurseDel -- this function recursively tries to delete some elts from a file. if the current elt is a group, it will call itself on the elts of the group. else, it will check if any group references the elt, and actually deletes it if there is no other references */ int recurseDel(int curr) { int d, currGrp; int i; if (isGrp(he_desc[curr].tag)) { /* if this is a group, do its elts then itself */ /* find the index of the group */ currGrp = desc2Grp(curr); /* step through the elts of this group */ for (i = 0; i < he_grp[currGrp].size; i++) { d = findDesc(he_grp[currGrp].ddList + i); if (d >= 0) { /* null this so it will not report that this is a multiple * copy of itself */ he_grp[currGrp].ddList[i].tag = DFTAG_NULL; he_grp[currGrp].ddList[i].ref = 0; /* Try to delete this component */ if (recurseDel(d) < 0) return HE_FAIL; } } /* tried all components, now delete self */ if (!hasReference(curr)) if (deleteDesc(curr) < 0) return HE_FAIL; } else /* not a group, actually delete this only if there is no group referencing it */ if (!hasReference(curr)) if (deleteDesc(curr) < 0) return HE_FAIL; return HE_OK; } /* some char const for the get/parse routines */ #define CR '\n' #define SPACE ' ' #define TAB '\t' #define QUOTE '"' #define BREAK '\003' /* C-c */ #define ESCAPE '\\' /* Quote escape */ #define COMMENT '!' /* Comment a line if first character */ /* max line size -- change this if you type longer than this in one line */ #define HE_LINE_SZ 512 /* command separator */ #define HE_SEPARATOR ';' /* is this in batch mode or interactive? */ int he_batch = NO; /* nesting when if/select is encountered */ int he_nestLevel = 0; /* prompt is actually "he" */ const char *he_prompt = ">"; #define he_nestChar '>' /* table to associate command to the function -- add additional functions anywhere in the table BEFORE the Marker {0,0} entry */ struct { const char *str; HE_FUNC func; } he_funcTab[] = { { "open", (HE_FUNC) HEopen } , { "close", (HE_FUNC) HEclose } , { "next", (HE_FUNC) HEnext } , { "prev", (HE_FUNC) HEprev } , { "alias", (HE_FUNC) HEalias } , { "unalias", (HE_FUNC) HEunalias } , { "display", (HE_FUNC) HEdisplay } , { "info", (HE_FUNC) HEinfo } , { "list", (HE_FUNC) HEinfo } , { "if", (HE_FUNC) HEif } , { "select", (HE_FUNC) HEselect } , { "wait", (HE_FUNC) HEwait } , { "delete", (HE_FUNC) HEdelete } , { "quit", (HE_FUNC) HEquit } , { "dump", (HE_FUNC) HEdump } , { "getr8", (HE_FUNC) HEgetR8 } , { "putr8", (HE_FUNC) HEputR8 } , { "put", (HE_FUNC) HEput } , { "revert", (HE_FUNC) HErevert } , { "write", (HE_FUNC) HEwrite } , { "annotate", (HE_FUNC) HEannotate } , { "help", (HE_FUNC) HEhelp } , { "end", (HE_FUNC) 0 } , }; HE_FUNC findFunc(char *fword) { unsigned len; int found = -1; uintn i; len = HDstrlen((const char *) fword); for (i = 0; i < sizeof(he_funcTab) / sizeof(he_funcTab[0]); i++) if (!HDstrncmp(he_funcTab[i].str, (const char *) fword, len)) { /* check for exact match */ if (HDstrlen(he_funcTab[i].str) == len) return he_funcTab[i].func; if (found < 0) found = (int)i; else { fprintf(stderr, "Ambiguous command: %s.\n", fword); return NULL; } } if (found < 0) return NULL; else return he_funcTab[found].func; } /* prompt -- printout prompt according to the nesting level */ void prompt(void) { if (!he_nestLevel) printf("hdfed%s ", he_prompt); else { int i; printf(" %s ", he_prompt); for (i = he_nestLevel; i; i--) putchar(he_nestChar); putchar(' '); } } /* reads a line of input into p */ /* Skips all initial spaces and empty commands */ /* always returns with at least a word in p, unless eof */ /* if eof and p is not empty, return HE_OK, else if no word, return EOF */ int getLine(char *p) { static int ch = 0; do { if (!he_batch && (ch != EOF)) prompt(); ch = getc(stdin); if (ch == COMMENT) { /* Skip this line */ do ch = getchar(); while ((ch != CR) && (ch != EOF)); } else while ((ch == SPACE) || (ch == TAB) || (ch == HE_SEPARATOR)) ch = getchar(); if (ch == EOF) return EOF; } while (ch == CR); while ((ch != EOF) && (ch != CR)) switch (ch) { case ESCAPE: ch = getchar(); if (!(ch == CR)) *p++ = (char) ch; ch = getchar(); break; case QUOTE: ch = getchar(); while (ch != QUOTE) { if (ch == ESCAPE) ch = getchar(); *p++ = (char) ch; ch = getchar(); } ch = getchar(); /* Skip over the QUOTE */ break; case SPACE: case TAB: *p++ = SPACE; while ((ch == SPACE) || (ch == TAB)) ch = getchar(); break; case HE_SEPARATOR: if (!isspace((int)*(p - 1))) *p++ = SPACE; *p++ = HE_SEPARATOR; ch = SPACE; /* Ensure next is a space */ break; default: *p++ = (char) ch; ch = getchar(); break; } *p++ = '\0'; return ch; } /* copy the next (space-delimited) word and advance the pointer as a side effect */ char * nextWord(char **p) { char *word; char *s, *q; unsigned len; q = *p; while (*q && isspace((int)*q)) q++; if (!(*q)) { *p = q; return NULL; } s = q; while (*s && !isspace((int)*s)) s++; len = (unsigned) (s - q); word = (char *) HDmalloc(len + 1); HDstrncpy(word, q, len); word[len] = '\0'; *p = s; while (**p && (isspace((int)**p))) (*p)++; return word; } HE_CMD * parseCmd(char **p) { char *word; HE_CMD *cmd; HE_CMD *aliasCmd; HE_CMD *cmdTail; if (!(**p)) return NULL; cmd = (HE_CMD *) HDcalloc(1, sizeof(HE_CMD)); cmd->next = cmd->sub = (HE_CMD *) NULL; cmd->argc = 1; cmd->argv[0] = nextWord(p); if ((aliasCmd = findAlias(cmd->argv[0])) != NULL) cmd = aliasCmd; else cmd->func = findFunc(cmd->argv[0]); if ((cmd->func == (HE_FUNC) HEalias) || (cmd->func == (HE_FUNC) HEwait)) { /* let the alias command handle the parsing */ cmd->argv[1] = copyStr(*p); cmd->argc = 2; **p = '\0'; } else { cmdTail = cmd; while (cmdTail->next) cmdTail = cmdTail->next; for (word = nextWord(p); word && HDstrcmp(word, ";"); word = nextWord(p), cmdTail->argc++) cmdTail->argv[cmdTail->argc] = word; while (**p && (isspace((int)**p) || (**p == ';'))) (*p)++; } return cmd; } /* Inputs a line and returns cmd list of line */ HE_CMD * parse(void) { static char line[HE_LINE_SZ]; static char *ptr; int notDone = 1; HE_CMD *cmd; HE_CMD *cmdTail; if (getLine(line) == EOF) return NULL; ptr = line; cmdTail = cmd = parseCmd(&ptr); while (cmdTail->next) cmdTail = cmdTail->next; while (notDone) { cmdTail->next = parseCmd(&ptr); notDone = (cmdTail->next != NULL); while (cmdTail->next) cmdTail = cmdTail->next; } return cmd; } HE_CMD * getCmd(void) { static HE_CMD *cmdList; HE_CMD *cmd; HE_CMD *cmdTail; if (!cmdList) cmdList = parse(); if (!cmdList) return NULL; cmd = cmdList; if (cmdList) cmdList = cmdList->next; cmd->next = (HE_CMD *) NULL; /* Cut off links since these will be */ /* accessed later */ if (cmd && ((cmd->func == (HE_FUNC) HEif) || (cmd->func == (HE_FUNC) HEselect)) && !((cmd->argc > 1) && (cmd->argv[1][0] == '-') && (findOpt(cmd->argv[1] + 1) == HE_HELP))) { he_nestLevel++; cmd->sub = getCmd(); for (cmdTail = cmd->sub; cmdTail && HDstrcmp(cmdTail->argv[0], "end"); /* while != "end" */ cmdTail = cmdTail->next) cmdTail->next = getCmd(); he_nestLevel--; } return cmd; } #define HE_ALIAS_SZ 256 struct he_alias { char *str; HE_CMD *cmd; } he_aliasTab[HE_ALIAS_SZ]; int he_numAlias = 0; int setAlias(char *str, HE_CMD * cmd) { int i; for (i = 0; i < he_numAlias; i++) if (!HDstrcmp(str, he_aliasTab[i].str)) { he_aliasTab[i].cmd = cmd; return HE_OK; } if (he_numAlias == HE_ALIAS_SZ) { fprintf(stderr, "Alias table full.\n"); return HE_FAIL; } he_aliasTab[he_numAlias].str = str; he_aliasTab[he_numAlias++].cmd = cmd; return HE_OK; } HE_CMD * mkDupCmd(HE_CMD * cmd) { int i; HE_CMD *dupCmd; dupCmd = (HE_CMD *) HDcalloc(1, sizeof(HE_CMD)); dupCmd->func = cmd->func; dupCmd->argc = cmd->argc; dupCmd->next = dupCmd->sub = (HE_CMD *) NULL; for (i = 0; i < cmd->argc; i++) dupCmd->argv[i] = copyStr(cmd->argv[i]); return dupCmd; } HE_CMD * findAlias(char *str) { int i; HE_CMD *cmd; HE_CMD *dupCmd; HE_CMD *cmdTail; for (i = 0; i < he_numAlias; i++) if (!HDstrcmp(str, he_aliasTab[i].str)) { cmd = he_aliasTab[i].cmd; dupCmd = mkDupCmd(cmd); cmd = cmd->next; for (cmdTail = dupCmd; cmd; cmd = cmd->next, cmdTail = cmdTail->next) cmdTail->next = mkDupCmd(cmd); return dupCmd; } return NULL; } int HEunalias(HE_CMD * cmd) { int a, i, j; for (a = 1; a < cmd->argc; a++) for (i = 0; i < he_numAlias; i++) if (!HDstrcmp(cmd->argv[a], he_aliasTab[i].str)) { he_numAlias--; for (j = i; j < he_numAlias; j++) { he_aliasTab[j].str = he_aliasTab[j + 1].str; he_aliasTab[j].cmd = he_aliasTab[j + 1].cmd; } break; } return HE_OK; } void printAlias(char *word, HE_CMD * cmd) { int j; printf("%s:", word); for (; cmd; cmd = cmd->next) { printf("\t"); for (j = 0; j < cmd->argc; j++) printf("%s ", cmd->argv[j]); puts(""); } } int HEalias(HE_CMD * cmd) { char *s; char *word; int i; HE_CMD *cmdTail; s = cmd->argv[1]; word = nextWord(&s); if (!word) { for (i = 0; i < he_numAlias; i++) printAlias(he_aliasTab[i].str, he_aliasTab[i].cmd); return HE_OK; } cmd = parseCmd(&s); if (!cmd) { cmd = findAlias(word); printAlias(word, cmd); return HE_OK; } for (cmdTail = cmd; cmdTail->next; cmdTail = cmdTail->next) /*EMPTY */ ; while ((cmdTail->next = parseCmd(&s)) != NULL) for (; cmdTail->next; cmdTail = cmdTail->next) /*EMPTY */ ; return setAlias(word, cmd); } HE_PRED *he_predicates; /* resetPred -- for setting the he_predicates to point to a pred of only group, this is the default when a file is opened */ int resetPred(void) { if (he_predicates != NULL) HDfree(he_predicates); he_predicates = (HE_PRED *) HDcalloc(2, sizeof(HE_PRED)); he_predicates[0].key = HEK_GROUP; he_predicates[1].key = 0; return HE_OK; } struct { const char *str; int key; } he_keyTab[] = { { "!=", HEK_NEQUAL | HE_COMPARATOR } , { "<", HEK_LESST | HE_COMPARATOR } , { "<=", HEK_LEQUAL | HE_COMPARATOR } , { "==", HEK_EQUAL | HE_COMPARATOR } , { ">", HEK_GRT | HE_COMPARATOR } , { ">=", HEK_GEQUAL | HE_COMPARATOR } , { "all", HEK_ALL | HE_PREDICATE } , { "any", HEK_ALL | HE_PREDICATE } , { "ref", HEK_REF | HE_PREDICATE } , { "succeed", HEK_SUCCEED | HE_PREDICATE } , { "fail", HEK_FAIL | HE_PREDICATE } , { "tag", HEK_TAG | HE_PREDICATE } , { "group", HEK_GROUP | HE_PREDICATE } , /* Finish this later */ }; int findKey(char *word) { uintn i; unsigned len; int found = -1; len = HDstrlen(word); for (i = 0; i < sizeof(he_keyTab) / sizeof(he_keyTab[0]); i++) if (!HDstrncmp(he_keyTab[i].str, word, len)) { /* if this is an exact match, just return */ if (HDstrlen(he_keyTab[i].str) == len) return he_keyTab[i].key; if (found < 0) found = (int)i; else { fprintf(stderr, "Ambiguous: %s.\n", word); return HE_NOTFOUND; } } if (found < 0) { fprintf(stderr, "Predicate/comparator: %s not found.\n", word); return HE_NOTFOUND; } return he_keyTab[found].key; } int isNumber(char *s) { for (; *s; s++) if (!isdigit((int) *s)) return NO; return YES; } #define HE_PRED_SZ HE_ARG_SZ HE_PRED * parsePred(int argc, char *argv[]) { HE_PRED *pred; int predNum = -1; int state = 0; int key = 0; int i; char *s; char *tok; pred = (HE_PRED *) HDcalloc(HE_PRED_SZ, sizeof(HE_PRED)); for (i = 1; i < argc; i++) { s = argv[i]; while (*s) { if (state != 2) tok = nextToken(&s); else tok = nextWord(&s); if (!tok) break; if (state != 2) { if ((key = findKey(tok)) == HE_NOTFOUND) { HDfree(pred); return NULL; } HDfree(tok); } switch (state) { case 0: /* Ready to accept a predicate */ if (!(key & HE_PREDICATE)) { fprintf(stderr, "Parse error: %s.\n", argv[i]); HDfree(pred); return NULL; } pred[++predNum].key = key & ~(HE_PREDICATE | HE_COMPARATOR); state = 1; break; case 1: /* Can be a comparator for previous pred or a new predicate */ if (key & HE_PREDICATE) { pred[++predNum].key = key & ~(HE_PREDICATE | HE_COMPARATOR); } else if (key & HE_COMPARATOR) { pred[predNum].Comp = key & ~(HE_PREDICATE | HE_COMPARATOR); state = 2; } else { fprintf(stderr, "Parse error: %s.\n", argv[i]); HDfree(pred); return NULL; } break; case 2: /* Looking for an argument */ if (isNumber(tok)) { pred[predNum].argType = HE_NUMBER; pred[predNum].arg.i = atoi(tok); } else { pred[predNum].argType = HE_STRING; pred[predNum].arg.str = copyStr(tok); } state = 0; break; default: NOT_REACHED(); break; } } } pred[++predNum].key = 0; return pred; } int satPred(DFdesc * desc, HE_PRED pred[]) { int i; if (!pred) return YES; for (i = 0; pred[i].key; i++) { switch (pred[i].key) { case HEK_ALL: return YES; /* Always satisfied */ case HEK_GROUP: if (!isGrp(desc->tag)) return NO; break; case HEK_TAG: if (pred[i].argType != HE_NUMBER) { fprintf(stderr, "Argument to tag predicate not a number."); return NO; } if (!numCompare((int) desc->tag, pred[i].Comp, pred[i].arg.i)) return NO; break; case HEK_REF: if (pred[i].argType != HE_NUMBER) { fprintf(stderr, "Argument to ref predicate not a number."); return NO; } if (!numCompare((int) desc->ref, pred[i].Comp, pred[i].arg.i)) return NO; break; case HEK_SUCCEED: return (he_status == 0); case HEK_FAIL: return (he_status != 0); default: NOT_REACHED(); break; } } return 1; } char * nextToken(char **p) { char *s, *q; char *tok; if (!(**p)) return NULL; s = *p; if (isalnum((int)**p)) while (isalnum((int)*s)) s++; else while (*s && !isalnum((int)*s)) s++; q = tok = (char *) HDmalloc((s - (*p)) + 1); while (*p != s) *q++ = *(*p)++; *q = '\0'; return tok; } int numCompare(int n1, int Comp, int n2) { switch (Comp) { case HEK_EQUAL: return (n1 == n2); case HEK_NEQUAL: return (n1 != n2); case HEK_GRT: return (n1 > n2); case HEK_GEQUAL: return (n1 >= n2); case HEK_LESST: return (n1 < n2); case HEK_LEQUAL: return (n1 <= n2); default: NOT_REACHED(); break; } return NO; } /* end of cntrl.c */ libhdf4-4.2.10/HDF_ALT/hdf/util/paltohdf.c0000644000000000000000000000614312421456623014575 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#) $Revision: 6013 $" #endif /* $Id: paltohdf.c 6013 2014-01-10 21:19:02Z acheng $ */ /* * paltohdf.c * Version: 1.0 date: August 1, 1989 * This utility converts a raw palette to hdf format * The incoming palette is assumed to have 768 bytes: * 256 red values, 256 greens, and 256 blues. * The palette in the HDF file will have the RGB values * interlaced: RGB RGB ... (This is standard HDF format.) * * by Mike Folk * first version of paltohdf: 8/01/89 * * This program is in the public domain */ #include "hdf.h" int main(int argc, char *argv[]); int palconv(char *palfile, char *outfile); int main(int argc, char *argv[]) { if (argc != 3) { printf("Usage:\n"); printf(" %s rawpalfile hdffile \n\n", argv[0]); printf("%s, version: 1.1 date: July 1, 1992\n\n", argv[0]); printf("\tThis utility converts a raw palette to hdf format \n\n"); printf("\tThe incoming palette is assumed to have 768 bytes:\n"); printf("\t256 red values, 256 greens, and 256 blues.\n\n"); printf("\tThe palette in the HDF file will have the RGB values\n"); printf("\tinterlaced: RGB RGB ... (standard HDF format).\n\n"); exit(1); } palconv(argv[1], argv[2]); return (0); } /* * palconv(palfile, outfile) sets the palette */ int palconv(char *palfile, char *outfile) { unsigned char palspace[1024], reds[256], greens[256], blues[256], *p; FILE *fp; int j, ret; fp = fopen(palfile, "r"); if (fp == NULL) { printf(" Error opening palette file %s\n", palfile); exit(1); } fread(reds, 1, 256, fp); fread(greens, 1, 256, fp); fread(blues, 1, 256, fp); fclose(fp); p = palspace; for (j = 0; j < 256; j++) { *p++ = reds[j]; *p++ = greens[j]; *p++ = blues[j]; } ret = DFPaddpal(outfile, (VOIDP) palspace); if (ret < 0) { printf(" Error: %d, in writing palette %s\n", ret, palfile); exit(1); } return (0); } libhdf4-4.2.10/HDF_ALT/hdf/util/CMakeTests.cmake0000644000000000000000000004576112421456623015646 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## ############################################################################## # -------------------------------------------------------------------- # Copy all the files from the test directory into the source directory # -------------------------------------------------------------------- ############################################################################## IF (HDF4_BUILD_TOOLS) #-- Copy all the hdfls data files from the source directory into the test directory SET (HDF4_LS_TEST_FILES hdfcomp.out1.1 hdfcomp.out1.2 hdfed.input1 # hdfed.out1 hdfpack.out1.1 hdfpack.out1.2 hdftor8.out1 jpeg2hdf.out1 ristosds.input1 ristosds.out1 ) FOREACH (h4_file ${HDF4_LS_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfls POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_LS_TEST_FILES}) IF (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdfls POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfed-w.out1 ${PROJECT_BINARY_DIR}/hdfed.out1 ) ELSE (WIN32 AND NOT CYGWIN) ADD_CUSTOM_COMMAND ( TARGET hdfls POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/hdfed.out1 ${PROJECT_BINARY_DIR}/hdfed.out1 ) ENDIF (WIN32 AND NOT CYGWIN) #-- Copy all the hdfed data files from the source directory into the test directory SET (HDF4_HDFED_TEST_FILES storm110.hdf ntcheck.hdf ) FOREACH (h4_file ${HDF4_HDFED_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfed POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_HDFED_TEST_FILES}) ENDIF (HDF4_BUILD_TOOLS) #-- Copy all the hdf2gif data files from the source directory into the test directory SET (HDF4_HDF2GIF_TEST_FILES skull.hdf ) FOREACH (h4_file ${HDF4_HDF2GIF_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdf2gif POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_HDF2GIF_TEST_FILES}) #-- Copy all the gif2hdf data files from the source directory into the test directory SET (HDF4_GIF2HDF_TEST_FILES SunWheel.gif bttrfly.gif ) FOREACH (h4_file ${HDF4_GIF2HDF_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET gif2hdf POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_GIF2HDF_TEST_FILES}) #-- Copy all the hdftor8 data files from the source directory into the test directory SET (HDF4_HDFTOR8_TEST_FILES head.r24 head.r8 ) FOREACH (h4_file ${HDF4_HDFTOR8_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdftor8 POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_HDFTOR8_TEST_FILES}) #-- Copy all the ristosds data files from the source directory into the test directory SET (HDF4_RISTOSDS_TEST_FILES storm110.hdf storm120.hdf storm130.hdf ) FOREACH (h4_file ${HDF4_RISTOSDS_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET ristosds POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_RISTOSDS_TEST_FILES}) #-- Copy all the hdfpack data files from the source directory into the test directory SET (HDF4_HDFPACK_TEST_FILES test.hdf ) FOREACH (h4_file ${HDF4_HDFPACK_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfpack POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_HDFPACK_TEST_FILES}) #-- Copy all the paltohdf data files from the source directory into the test directory SET (HDF4_PALTOHDF_TEST_FILES palette.raw ) FOREACH (h4_file ${HDF4_PALTOHDF_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET paltohdf POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_PALTOHDF_TEST_FILES}) #-- Copy all the r8tohdf data files from the source directory into the test directory SET (HDF4_R8TOHDF_TEST_FILES storm110.raw storm120.raw storm130.raw storm140.raw ) FOREACH (h4_file ${HDF4_R8TOHDF_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET r8tohdf POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_R8TOHDF_TEST_FILES}) #-- Copy all the hdfcomp data files from the source directory into the test directory SET (HDF4_HDFCOMP_TEST_FILES storm110.hdf storm120.hdf storm130.hdf ) FOREACH (h4_file ${HDF4_HDFCOMP_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET hdfcomp POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_HDFCOMP_TEST_FILES}) #-- Copy all the jpeg2hdf data files from the source directory into the test directory SET (HDF4_JPEG2HDF_TEST_FILES jpeg_img.jpg ) FOREACH (h4_file ${HDF4_JPEG2HDF_TEST_FILES}) SET (dest "${PROJECT_BINARY_DIR}/${h4_file}") #MESSAGE (STATUS " Copying ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} to ${PROJECT_BINARY_DIR}/") ADD_CUSTOM_COMMAND ( TARGET jpeg2hdf POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy_if_different ${HDF4_HDF_UTIL_SOURCE_DIR}/testfiles/${h4_file} ${dest} ) ENDFOREACH (h4_file ${HDF4_JPEG2HDF_TEST_FILES}) ############################################################################## ############################################################################## ### T H E T E S T S M A C R O S ### ############################################################################## ############################################################################## IF (HDF4_BUILD_TOOLS) MACRO (ADD_LS_TEST_NOL testfile resultfile resultcode) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HDFLS_NOL-${testfile} COMMAND $ ${testfile}) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HDFLS_NOL-${testfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${testfile}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=${testfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_FILTER:STRING=(File library|String)[^\n]+\n" -D "TEST_REFERENCE=${resultfile}" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDFLS_NOL-${testfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDFLS_NOL-${testfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDFLS_NOL-${testfile}") ENDMACRO (ADD_LS_TEST_NOL) MACRO (ADD_LS_TEST testfile resultfile resultcode) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HDFLS-${testfile} COMMAND $ -l ${testfile}) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HDFLS-${testfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-l;${testfile}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_OUTPUT=${testfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_FILTER:STRING=(File library|String)[^\n]+\n" -D "TEST_REFERENCE=${resultfile}" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDFLS-${testfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDFLS-${testfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDFLS-${testfile}") ENDMACRO (ADD_LS_TEST) MACRO (ADD_H4_TEST_ED testfile resultfile resultcode) IF (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST (NAME HEDIT-${testfile} COMMAND $ -batch) ELSE (HDF4_ENABLE_USING_MEMCHECKER) ADD_TEST ( NAME HEDIT-${testfile} COMMAND "${CMAKE_COMMAND}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=-batch" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" -D "TEST_INPUT=${testfile}" -D "TEST_OUTPUT=${testfile}.tmp" -D "TEST_EXPECT=${resultcode}" -D "TEST_REFERENCE=${resultfile}" -P "${HDF4_RESOURCES_DIR}/runTest.cmake" ) ENDIF (HDF4_ENABLE_USING_MEMCHECKER) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HEDIT-${testfile} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HEDIT-${testfile} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HEDIT-${testfile}") ENDMACRO (ADD_H4_TEST_ED) ENDIF (HDF4_BUILD_TOOLS) MACRO (ADD_H4_TEST testname testfile) ADD_TEST (NAME ${testname} COMMAND $ ${ARGN}) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "${testname}") ENDMACRO (ADD_H4_TEST) MACRO (ADD_CMP_TEST testname reffile testfile) ADD_TEST (NAME ${testname} COMMAND ${CMAKE_COMMAND} -E compare_files ${reffile} ${testfile}) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "${testname}") ENDMACRO (ADD_CMP_TEST) MACRO (ADD_H4Q_TEST testname testfile) ADD_TEST (NAME ${testname} COMMAND $ ${ARGN} > /dev/null 2>&1) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (${testname} PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "${testname}") ENDMACRO (ADD_H4Q_TEST) ############################################################################## ############################################################################## ### T H E T E S T S ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME hdfgif-clear-refs COMMAND ${CMAKE_COMMAND} -E remove skull.gif SunWheel.hdf bttrfly.hdf head8.hdf img001-263.328 hdfed.input1.tmp hdfed.input1.tmp.err storm.hdf ristosds.input1.tmp ristosds.input1.tmp.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfgif-clear-refs PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfgif-clear-refs PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdfgif-clear-refs") ADD_H4_TEST (testhdf2gif hdf2gif skull.hdf skull.gif) ADD_H4_TEST (testgif2hdf-sunwheel gif2hdf SunWheel.gif SunWheel.hdf) ADD_H4_TEST (testgif2hdf-butterfly gif2hdf bttrfly.gif bttrfly.hdf) ADD_H4_TEST (testhdf24to8 hdf24to8 head.r24 head8.hdf) ADD_H4_TEST (testhdftor8 hdftor8 head8.hdf) ADD_CMP_TEST (hdfr8comp img001-263.328 head.r8) IF (HDF4_BUILD_TOOLS) ADD_H4_TEST_ED (hdfed.input1 hdfed.out1 0) ENDIF (HDF4_BUILD_TOOLS) ADD_H4Q_TEST (testristosds ristosds storm110.hdf storm120.hdf storm130.hdf -o storm.hdf) IF (HDF4_BUILD_TOOLS) ADD_H4_TEST_ED (ristosds.input1 ristosds.out1 0) ENDIF (HDF4_BUILD_TOOLS) # Remove any output file left over from previous test run ADD_TEST ( NAME hdfpack-clear-refs COMMAND ${CMAKE_COMMAND} -E remove test.pck test.blk test.hdf.tmp test.hdf.tmp.err test.pck.tmp test.pck.tmp.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfpack-clear-refs PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfpack-clear-refs PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdfpack-clear-refs") ADD_H4_TEST (testhdfpack hdfpack test.hdf test.pck) ADD_H4_TEST (testhdfpack-block hdfpack -b test.hdf test.blk) IF (HDF4_BUILD_TOOLS) ADD_LS_TEST_NOL (test.hdf hdfpack.out1.1 0) ADD_LS_TEST_NOL (test.pck hdfpack.out1.2 0) ENDIF (HDF4_BUILD_TOOLS) # Remove any output file left over from previous test run ADD_TEST ( NAME hdfpalette-clear-refs COMMAND ${CMAKE_COMMAND} -E remove pal001 pal005 palette.hdf palette.raw.new storm.hdf storm.hdf.tmp storm.hdf.tmp.err img001-057.057 img002-057.057 img003-057.057 img004-057.057 img005-057.057 allstorms.hdf allstorms.hdf.tmp allstorms.hdf.tmp.err allcomp.hdf allcomp.hdf.tmp allcomp.hdf.tmp.err ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfpalette-clear-refs PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfpalette-clear-refs PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdfpalette-clear-refs") ADD_H4_TEST (testpaltohdf paltohdf palette.raw palette.hdf) ADD_H4_TEST (testhdftopal hdftopal palette.hdf palette.raw.new) ADD_CMP_TEST (palettecomp palette.raw palette.raw.new) ADD_H4_TEST (testr8tohdf-storm r8tohdf 57 57 storm.hdf storm110.raw storm120.raw storm130.raw storm140.raw) ADD_H4_TEST (testr8tohdf-palette r8tohdf 57 57 storm.hdf -p palette.raw -i storm110.raw) ADD_H4_TEST (testhdftor8-storm hdftor8 storm.hdf) IF (HDF4_BUILD_TOOLS) ADD_LS_TEST (storm.hdf hdftor8.out1 0) ENDIF (HDF4_BUILD_TOOLS) ADD_CMP_TEST (storm110comp img001-057.057 storm110.raw) ADD_CMP_TEST (storm120comp img002-057.057 storm120.raw) ADD_CMP_TEST (storm130comp img003-057.057 storm130.raw) ADD_CMP_TEST (storm140comp img004-057.057 storm140.raw) ADD_H4_TEST (testhdfcomp-storms hdfcomp allstorms.hdf storm110.hdf storm120.hdf storm130.hdf) ADD_H4_TEST (testhdfcomp hdfcomp allcomp.hdf -c storm110.hdf storm120.hdf storm130.hdf) IF (HDF4_BUILD_TOOLS) ADD_LS_TEST (allstorms.hdf hdfcomp.out1.1 0) ADD_LS_TEST (allcomp.hdf hdfcomp.out1.2 0) ENDIF (HDF4_BUILD_TOOLS) # Remove any output file left over from previous test run ADD_TEST ( NAME hdfjpeg-clear-refs COMMAND ${CMAKE_COMMAND} -E remove jpeg.hdf jpeg.hdf.tmp jpeg.hdf.tmp.err jpeg2.jpg ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfjpeg-clear-refs PROPERTIES DEPENDS ${last_test} LABELS ${PROJECT_NAME}) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdfjpeg-clear-refs PROPERTIES LABELS ${PROJECT_NAME}) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdfjpeg-clear-refs") ADD_H4_TEST (testjpeg2hdf jpeg2hdf jpeg_img.jpg jpeg.hdf) ADD_H4_TEST (testhdf2jpeg hdf2jpeg jpeg.hdf jpeg2.jpg) IF (HDF4_BUILD_TOOLS) ADD_LS_TEST (jpeg.hdf jpeg2hdf.out1 0) ENDIF (HDF4_BUILD_TOOLS) ADD_CMP_TEST (jpeg2comp jpeg_img.jpg jpeg2.jpg) # ADD_H4_TEST (hdf8to24 hdf8to24) # ADD_H4_TEST (hdfunpac hdfunpac) # ADD_H4_TEST (vmake vmake) # ADD_H4_TEST (vshow vshow) libhdf4-4.2.10/HDF_ALT/hdf/util/vcompat.c0000644000000000000000000000323112421456623014440 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: vcompat.c 6013 2014-01-10 21:19:02Z acheng $ */ #include #include "hdf.h" int main(int argc, char *argv[]) { if (argc != 2) { fprintf(stderr, "%s: converts HDF vset v1.0 files to v2.0\n", argv[0]); fprintf(stderr, "Usage: %s hdf-file\n", argv[0]); exit(0); } if (0 == vcheckcompat(argv[1])) { vmakecompat(argv[1]); fprintf(stderr, "file [%s] is now compatible\n", argv[1]); } else fprintf(stderr, "file [%s] already compatible with r2.0\n", argv[1]); return (0); } /* main */ /* ------------------------------------------------------------------ */ libhdf4-4.2.10/HDF_ALT/hdf/util/hdfcomp.out10000644000000000000000000000335212421456623015061 0ustar allstorms.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Raster Image-8 : (tag 202) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Ref no 3 20 bytes Ref no 4 20 bytes Raster Image Data : (tag 302) Ref no 2 3249 bytes Ref no 3 3249 bytes Ref no 4 3249 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes Ref no 3 8 bytes Ref no 4 8 bytes allcomp.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes Ref no 3 4 bytes Ref no 4 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 2921 bytes Ref no 3 3058 bytes Ref no 4 3156 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Ref no 3 20 bytes Ref no 4 20 bytes Compressed Image : (tag 303) Ref no 2 2921 bytes Ref no 3 3058 bytes Ref no 4 3156 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes Ref no 3 8 bytes Ref no 4 8 bytes libhdf4-4.2.10/HDF_ALT/hdf/util/h4cc.in0000755000000000000000000001535412421456623014010 0ustar #! /bin/sh ## ## Copyright by the Board of Trustees of the University of Illinois. ## All rights reserved. ## ############################################################################ ## ## ## Things You May Have to Modify: ## ## ## ## If the following paths don't point to the place were HDF4 is installed ## ## on your system (i.e., you received a binary distribution or moved the ## ## files from the originally installed directory to another directory) ## ## then modify them accordingly to represent the new paths. ## ## ## ############################################################################ prefix="@prefix@" exec_prefix="@exec_prefix@" libdir="@libdir@" includedir="@includedir@" ############################################################################ ## ## ## You shouldn't have to modify anything below this line. ## ## ## ############################################################################ host_os="@host_os@" prog_name="`basename $0`" allargs="" compile_args="" libraries="" link_args="" link_objs="" do_link="yes" do_compile="no" dash_o="no" dash_c="no" get_output_file="no" SHOW="eval" CCBASE="@CC@" CLINKERBASE="@CC@" CFLAGS="@CFLAGS@" CPPFLAGS="@CPPFLAGS@" LDFLAGS="@LDFLAGS@" LIBS="@LIBS@" CC="${HDF4_CC:-$CCBASE}" CLINKER="${HDF4_CLINKER:-$CLINKERBASE}" USE_SHARED_LIB="${HDF4_USE_SHLIB:-no}" usage() { # A wonderfully informative "usage" message. echo "usage: $prog_name [OPTIONS] " echo " OPTIONS:" echo " -help This help message." echo " -echo Show all the shell commands executed" echo " -prefix=DIR Prefix directory to find HDF4 lib/ and include/" echo " subdirectories [default: $prefix]" echo " -show Show the commands without executing them" echo " -shlib Compile with shared HDF4 libraries." echo " -noshlib Compile with static HDF4 libraries [default]" echo " " echo " - the normal compile line options for your compiler." echo " $prog_name uses the same compiler you used to compile" echo " HDF4. Check with your compiler's man pages for more" echo " information on which options are needed." echo " " echo " You can override the compiler, linker, and whether or not to use static" echo " or shared libraries to compile your program by setting the following" echo " environment variables accordingly:" echo " " echo " HDF4_CC - use a different C compiler" echo " HDF4_CLINKER - use a different linker" echo " HDF4_USE_SHLIB=[yes|no] - use shared or static version of the HDF4 library" echo " [default: no]" echo " " exit 1 } if test "$#" = "0"; then # No parameters specified, issue usage statement and exit. usage fi for arg in $@ ; do if test "x$get_output_file" = "xyes"; then link_args="$link_args $arg" output_file="$arg" get_output_file="no" continue fi case "$arg" in -c) allargs="$allargs $arg" compile_args="$compile_args $arg" if test "x$do_link" = "xyes" -a -n "$output_file"; then compile_args="$compile_args -o $outputfile" fi do_link="no" dash_c="yes" ;; -o) allargs="$allargs $arg" dash_o="yes" if test "x$dash_c" = "xyes"; then compile_args="$compile_args $arg" else link_args="$link_args $arg" do_link="yes" get_output_file="yes" fi ;; -E|-M) allargs="$allargs $arg" compile_args="$compile_args $arg" dash_c="yes" do_link="no" ;; -l*) libraries=" $libraries $arg " allargs="$allargs $arg" ;; -prefix=*) prefix="`expr "$arg" : '-prefix=\(.*\)'`" ;; -echo) set -x ;; -show) SHOW="echo" ;; -shlib) USE_SHARED_LIB="yes" ;; -noshlib) USE_SHARED_LIB="no" ;; -help) usage ;; *\"*) qarg="'"$arg"'" allargs="$allargs $qarg" ;; *\'*) qarg='\"'"$arg"'\"' allargs="$allargs $qarg" ;; *) allargs="$allargs $qarg" if test -s "$arg"; then ext=`expr "$arg" : '.*\(\..*\)'` if test "x$ext" = "x.c"; then do_compile="yes" compile_args="$compile_args $arg" fname=`basename $arg .c` link_objs="$link_objs $fname.o" elif test "x$ext" = "x.o"; then if test "x$dash_c" = "xyes"; then compile_args="$compile_args $arg" else do_link="yes" link_objs="$link_objs $arg" fi elif test "x$ext" = "x.a"; then # This is an archive that we're linking in libraries=" $libraries $arg " else compile_args="$compile_args $arg" link_args="$link_args $arg" fi else compile_args="$compile_args $arg" link_args="$link_args $arg" fi ;; esac done if test "x$do_compile" = "xyes"; then if test "x$dash_c" != "xyes"; then compile_args="-c $compile_args" fi $SHOW $CC -I$includedir $CPPFLAGS $CFLAGS $compile_args status=$? if test "$status" != "0"; then exit $status fi fi if test "x$do_link" = "xyes"; then libraries=" $libraries -lmfhdf -ldf " link_args="$link_args -L${libdir}" if test "x$USE_SHARED_LIB" != "xyes"; then # The "-ldf" & "-lmfhdf" flags are in here already...This is a static # compile though, so change it to the static version (.a) of the library. new_libraries="" for lib in $libraries; do case "$lib" in -ldf) new_libraries="$new_libraries ${libdir}/libdf.a" ;; -lmfhdf) new_libraries="$new_libraries ${libdir}/libmfhdf.a" ;; *) new_libraries="$new_libraries $lib" ;; esac done libraries="$new_libraries" fi for lib in $libraries; do if echo $link_args | grep " $lib " > /dev/null || echo $link_args | grep " $lib$" > /dev/null; then : else link_args="$link_args $lib " fi done # The LIBS are just a bunch of -l* libraries necessary for the HDF4 # module. It's okay if they're included twice in the compile line. link_args="$link_args $LIBS" $SHOW $CLINKER $CFLAGS $LDFLAGS $link_objs $link_args status=$? fi exit $status libhdf4-4.2.10/HDF_ALT/hdf/util/vmake.c0000644000000000000000000003525112421456623014101 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char *RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: vmake.c 6013 2014-01-10 21:19:02Z acheng $ */ /***************************************************************************** * * vmake.c * * HDF Vset utility. * * vmake: utility creates vsets. May be used in 3 ways: * (1) add a new vgroup. * (2) add a new vdata from ascii data. * (3) link vgroups and vdatas to a vgroup. * * USAGE: * (1) vmake file vgname * (2) vmake file vsname {format} {ascii data stream} * (3) vmake file -l vgref v1 v2 ... vn * * ******************************************************************************/ #include "hdf.h" /* * Prototypes of local functions */ int32 vsetlink (char *hfile, int32 vgid, int32 ids[], int32 n); int32 vgadd (char *hfile, char *vgname); int32 inpdata (unsigned char **bp); void vsadd (char *hfile, char *vsname, char *format); int32 scanit (char *string, char ***fields, int32 **type, int32 **order); int32 savfld (char *ss, int p1, int p2); int32 compact (char *ss, char *dd); int32 savtype (char *ss, int p1, int p2); int32 separate (char *ss, char *fmt, int32 *num); int show_help_msg (void); void showfmttypes (void); /* * Main entry point */ int main(int ac, char **av) { char *hfile, *vgname, *vsname, *fmt; if (ac < 3) { show_help_msg(); exit(0); } else if (ac == 3) { if (!HDstrcmp(av[2], "-l")) { show_help_msg(); exit(0); } hfile = av[1]; vgname = av[2]; vgadd(hfile, vgname); } else if (ac == 4) { if (!HDstrcmp(av[2], "-l")) { show_help_msg(); exit(0); } hfile = av[1]; vsname = av[2]; fmt = av[3]; vsadd(hfile, vsname, fmt); } else if (!HDstrcmp(av[2], "-l")) { int i; int32 n; int32 vgref, ids[50]; hfile = av[1]; sscanf(av[3], "%d", (int *)&vgref); for (n = 0, i = 4; i < ac; i++, n++) { sscanf(av[i], "%d", (int *)&ids[n]); } vsetlink(hfile, vgref, ids, n); } else { show_help_msg(); exit(0); } return (0); } /* main */ void showfmttypes(void) { fprintf(stderr, "\tvalid fmt types: \n"); fprintf(stderr, "\t c - char (char in HDF file) \n"); fprintf(stderr, "\t b - byte (int8 in HDF file) \n"); fprintf(stderr, "\t s - short (int16 in HDF file) \n"); fprintf(stderr, "\t l - long (int32 in HDF file) \n"); fprintf(stderr, "\t f - float (float32 in HDF file) \n"); } int show_help_msg(void) { printf("\nvmake: creates vsets.\n"); printf("\nUSAGE:\n"); printf(" (1) vmake file vgname (adds a new vgroup)\n"); printf(" (2) vmake file vsname format (adds a new vdata)\n"); printf(" (3) vmake file -l vgref v1 .. vn (links v1 v2 .. vn into vgref)\n"); printf("\nwhere\n"); printf(" vgref is the ref of a vgroup\n"); printf(" v1,..,vn are refs of vgroups and vdatas\n"); printf(" format is \n"); printf(" field is any text string\n"); printf(" fmt is one of the following optionally preceded by a decimal.\n"); showfmttypes(); printf("\nTo create a vdata, vmake reads ascii data from stdin\n"); printf("EXAMPLES:\n"); printf("\t cat dat.txt | vmake hh.hdf \"triangles\" \"PLIST3=3l\"\n"); printf("\t vmake abc.hdf \"xyvals\" \"X=d,Y=f\" < abc.dat\n"); printf("\n"); return (1); } /* show_help_msg */ /* ------------------------------------------------------- */ int32 vsetlink(char *hfile, int32 vgid, int32 ids[], int32 n) { HFILEID f; int32 vgmain, vg; int32 vs; int32 err = 0; int32 i; f = Hopen(hfile, DFACC_ALL, 0); if (f == FAIL) { fprintf(stderr, "cannot open %s. \n", hfile); exit(0); } Vinitialize(f); vgmain = Vattach(f, vgid, "w"); if (vgmain == FAIL) { fprintf(stderr, "0\n"); Vfinish(f); Hclose(f); exit(-1); } for (i = 0; i < n; i++) { if (-1 != vexistvg(f, (uint16) ids[i])) { if ((vg = Vattach(f, ids[i], "r")) != FAIL) { if (Vinsert(vgmain, vg) == -1) { /* is really VGROUP* */ err = 1; fprintf(stderr, "insert a vg (%d)fails!!\n", (int) ids[i]); } Vdetach(vg); } } else if (-1 != vexistvs(f, (uint16) ids[i])) { if ((vs = VSattach(f, ids[i], "r")) != FAIL) { if (Vinsert(vgmain, vs) == FAIL) { err = 1; fprintf(stderr, "insert a vs (%d)fails!!\n", (int) ids[i]); } VSdetach(vs); } } else { fprintf(stderr, "no such vgroup or vdata [%d]\n", (int) ids[i]); err = 1; } } Vdetach(vgmain); Vfinish(f); Hclose(f); if (err) exit(-1); else fprintf(stderr, "1\n"); /* success */ return (1); } /* vsetlink */ /* ------------------------------------------------------- */ /* add a (new) vgroup to the file */ int32 vgadd(char *hfile, char *vgname) { HFILEID f; int32 ref; int32 vg; f = Hopen(hfile, DFACC_ALL, 0); if (f == FAIL) { fprintf(stderr, "cannot open %s. \n", hfile); exit(0); } Vinitialize(f); vg = Vattach(f, -1, "w"); if (vg == FAIL) { fprintf(stderr, "cannot attach vg\n"); exit(0); } ref = VQueryref(vg); Vsetname(vg, vgname); Vdetach(vg); Vfinish(f); Hclose(f); fprintf(stderr, "%d\n", (int) ref); return (1); } /* vgadd */ /* ------------------------------------------------------- */ /* add a (new) vdata to the file. Data will be ascii and will come in from stdin according to the format (c-style). */ void vsadd(char *hfile, char *vsname, char *format) { int32 ret, i, n, nwritten; unsigned char *buf; char **fields; int32 *type, *order, nfld; char allfields[100]; HFILEID f; int32 vs; int32 ref, ftype; nfld = scanit(format, &fields, &type, &order); if (nfld < 1) { fprintf(stderr, "bad fields\n"); exit(-1); } if ((f = Hopen(hfile, DFACC_ALL, 0)) == FAIL) { fprintf(stderr, "cannot open %s. \n", hfile); exit(-1); } Vinitialize(f); vs = VSattach(f, -1, "w"); ref = VSQueryref(vs); printf("vsadd: ref is %d\n", (int) ref); allfields[0] = '\0'; for (i = 0; i < nfld; i++) { switch (type[i]) { case 'c': ftype = DFNT_CHAR; break; case 's': ftype = DFNT_INT16; break; case 'f': ftype = DFNT_FLOAT32; break; case 'l': ftype = DFNT_INT32; break; case 'b': ftype = DFNT_INT8; break; case 'D': ftype = DFNT_DOUBLE; break; default: fprintf(stderr, "bad type [%c]\n", (char) type[i]); showfmttypes(); exit(-1); break; } ret = VSfdefine(vs, fields[i], ftype, order[i]); HDstrcat(allfields, fields[i]); HDstrcat(allfields, ","); } i = (int32)HDstrlen(allfields); allfields[i - 1] = '\0'; /* remove last comma */ VSsetname(vs, vsname); ret = VSsetfields(vs, allfields); nwritten = 0; while ((n = inpdata(&buf)) > 0) { /* printf("inpdata rets n=%d .. ",n); */ ret = VSwrite(vs, buf, n, FULL_INTERLACE); printf("+%d \n", (int) ret); nwritten += n; if (ret < 1) fprintf(stderr, "Vswrite stat=%d\n", (int) ret); } VSdetach(vs); Vfinish(f); Hclose(f); fprintf(stderr, "%d, %d\n", (int) ref, (int) nwritten); return; } /* vsadd */ /* ------------------------------------------------------------------ */ /* This part of the code deals with formatting stdin input data. */ /* ------------------------------------------------------------------ */ #include #define MAXVAR 32 static char *fldptr[MAXVAR]; static char flds[MAXVAR][100]; static char fmts[MAXVAR]; static int32 fords[MAXVAR]; static int32 ftyp[MAXVAR]; static int ntotal = 0; /* scanf functions */ static int32 inplong(VOIDP x) { int32 val, ret; ret = scanf("%d ", (int *)&val); *(int32 *)x = (int32) val; return (ret); } static int32 inpshort(VOIDP x) { int ret, val; ret = scanf("%d ", &val); *(int16 *)x = (int16) val; return (ret); } static int32 inpbyte(VOIDP x) { int ret; int val; ret = scanf("%d ", &val); *(int8 *)x = (int8) val; return (ret); } static int32 inpfloat(VOIDP x) { int ret; float val; ret = scanf("%f ", &val); *(float32 *)x = (float32) val; return (ret); } static int32 inpchar(VOIDP x) { return (scanf("%c ", (char *)x)); } #define BUFSIZE 40000 unsigned char inpbuffer[BUFSIZE]; int32 inpdata(unsigned char **bp) { int32 totalsize, nread, t, i, j, k; unsigned char *b; int32 maxrec; int32 (*inpfn[MAXVAR]) (VOIDP); int32 inpsiz[MAXVAR]; for (i = 0; i < ntotal; i++) { switch (fmts[i]) { case 'c': inpfn[i] = inpchar; inpsiz[i] = sizeof(char); break; case 'b': inpfn[i] = inpbyte; inpsiz[i] = sizeof(int8); break; case 's': inpfn[i] = inpshort; inpsiz[i] = sizeof(short); break; case 'l': inpfn[i] = inplong; inpsiz[i] = sizeof(long); break; case 'f': inpfn[i] = inpfloat; inpsiz[i] = sizeof(float); break; default: printf("inpdata: fmt routine for [%c] not ready\n", fmts[i]); } } for (totalsize = 0, i = 0; i < ntotal; i++) totalsize += (fords[i] * inpsiz[i]); maxrec = BUFSIZE / totalsize - 1; /* begin reading in the ascii data from stdin */ *bp = b = inpbuffer; for (nread = 0, j = 0; j < maxrec; j++, nread++) { for (i = 0; i < ntotal; i++) { for (k = 0; k < fords[i]; k++) { t = (inpfn[i]) (b); if (t == EOF) return (nread); b += inpsiz[i]; } } } return (nread); /* no of recs read */ } /* inpdata */ int32 scanit(char *string, char ***fields, int32 **type, int32 **order) { int32 ns, i; int32 p1, p2; char ss[300]; int32 c; compact(string, ss); ns = (int32)HDstrlen(ss); ss[ns++] = ','; p1 = p2 = 0; for (i = 0; i < ns; i++) { c = (int32)ss[i]; if (c == '=') { p2 = i; savfld(ss, (int) p1, (int) (p2 - 1)); p1 = p2 + 1; } else if (c == ',') { p2 = i; savtype(ss, (int) p1, (int) (p2 - 1)); p1 = p2 + 1; } } for (i = 0; i < ntotal; i++) { fldptr[i] = flds[i]; ftyp[i] = (int32)fmts[i]; } *type = ftyp; *order = fords; *fields = fldptr; return (ntotal); } /* scanit */ int32 compact(char *ss, char *dd) { int i, t, n = (int)HDstrlen(ss); for (t = 0, i = 0; i < n; i++) if (ss[i] != ' ') { dd[t++] = ss[i]; } dd[t] = '\0'; return (1); } /* ------------------------------------------------------------------ */ int32 savfld(char *ss, int p1, int p2) { int32 t = p2 - p1 + 1; HDstrncpy(flds[ntotal], &ss[p1], (size_t) t); flds[ntotal][t] = '\0'; return (1); } /* savfld */ int32 savtype(char *ss, int p1, int p2) { char temp[20]; int32 t = p2 - p1 + 1; HDstrncpy(temp, &ss[p1], (size_t)(p2 - p1 + 1)); temp[t] = '\0'; separate(temp, &fmts[ntotal], &fords[ntotal]); ntotal++; return (1); } int32 separate(char *ss, char *fmt, int32 *num) { int32 i, n; i = 0; n = (int32)HDstrlen(ss); while (i < n) { if (ss[i] < '0' || ss[i] > '9') break; i++; } if (i > 0) sscanf(ss, "%d", (int *)num); else *num = 1; *fmt = ss[i]; return (1); } /* ------------------------------------------------------------------ */ libhdf4-4.2.10/HDF_ALT/hdf/util/HELINK.OPT0000644000000000000000000000004112421456623014155 0ustar sys$common:[syslib]tpushr/share libhdf4-4.2.10/HDF_ALT/hdf/util/hdfunpac.c0000644000000000000000000001316012421456623014561 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdfunpac.c 6013 2014-01-10 21:19:02Z acheng $ */ /* ** FILE ** hdfunpac.c ** USAGE ** hdfunpac [options] ** DESCRIPTION ** This program unpacks an HDF file by exporting the scientific data ** elements (DFTAG_SD) to external object elements. ** Options are: ** -d Use as the external filename. ** Default is "DataFile". */ #include "hdf.h" #include #include #include #include #define DefaultDatafile "DataFile" /* Prototypes declaration */ int main (int, char *a[]); void hdferror (void); void error (const char *); void usage (void); /* variables */ char *progname; /* the name this program is invoked, i.e. argv[0] */ int main(int argc, char *argv[]) { int32 infile, aid, ret; char *filename; char datafilename[DF_MAXFNLEN]; uint16 tag; uint16 ref; int32 offset, fileoffset; int32 length; int16 special; /* Get invocation name of program */ progname = *argv++; argc--; /* parse arguments */ while (argc > 0 && **argv == '-') { switch ((*argv)[1]) { case 'd': argc--; argv++; if (argc > 0) { strcpy(datafilename, *argv++); argc--; } else { usage(); exit(1); } break; default: usage(); exit(1); } } if (argc == 1) { filename = *argv++; argc--; } else { usage(); exit(1); } if (datafilename[0] == '\0') strcpy(datafilename, DefaultDatafile); /* Check to make sure input file is HDF */ ret = (int) Hishdf(filename); if (ret == FALSE) { error("given file is not an HDF file\n"); } /* check if datafile already exists. If so, set offset to its length. */ { struct stat buf; if (stat(datafilename, &buf) == 0) { printf("External file %s already exists. Using append mode.\n", datafilename); fileoffset = (int32)buf.st_size; } else fileoffset = 0; } /* Open HDF file */ infile = Hopen(filename, DFACC_RDWR, 0); if (infile == FAIL) { error("Can't open the HDF file\n"); } /* Process the file */ ret = aid = Hstartread(infile, DFTAG_SD, DFREF_WILDCARD); while (ret != FAIL) { /* * Get data about the current one */ ret = Hinquire(aid, NULL, &tag, &ref, &length, &offset, NULL, NULL, &special); /* check the tag value since external element object are returned the same. */ if (tag == DFTAG_SD) { printf("moving Scientific Data (%d,%d) to %s\n", tag, ref, datafilename); ret = HXcreate(infile, tag, ref, datafilename, fileoffset, length); fileoffset += length; } /* * Move to the next one */ ret = Hnextread(aid, DFTAG_SD, DFREF_WILDCARD, DF_CURRENT); } /* * Close the access element */ ret = Hendaccess(aid); if (ret == FAIL) hdferror(); /* done; close files */ Hclose(infile); return (0); } /* ** NAME ** hdferror -- print out HDF error number ** USAGE ** int hdferror() ** RETURNS ** none ** DESCRIPTION ** Print an HDF error number to stderr. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This routine terminates the program with code 1. ** EXAMPLES */ void hdferror(void) { HEprint(stderr, 0); exit(1); } /* ** NAME ** error -- print error to stderr ** USAGE ** int error(string); ** char *string; IN: pointer to error description string ** RETURNS ** none ** DESCRIPTION ** Print an HDF error number to stderr. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This routine terminates the program with code 1. ** EXAMPLES */ void error(const char *string) { fprintf(stderr, "%s: %s\n", progname, string); exit(1); } void usage(void) { fprintf(stderr, "Usage: %s [-d ] \n", progname); } libhdf4-4.2.10/HDF_ALT/hdf/util/hdfpack.c0000644000000000000000000004577012421456623014405 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ #ifdef RCSID static char RcsId[] = "@(#)$Revision: 6013 $"; #endif /* $Id: hdfpack.c 6013 2014-01-10 21:19:02Z acheng $ */ /* ** FILE ** hdfpack.c ** USAGE ** hdfpack [options] ** DESCRIPTION ** This program will compact an HDF file by reading in all the data ** elements in the file and writing them out to a new file. ** Options are: ** -b Don't coalesce linked-block elements ** -i Interactive mode; prompt for each linked-block element ** -d# Force the output file to have # DDs per DD block ** -t# Force output file to have # linked blocks per table entry ** -x Keep external objects external ** -r rename external objects ** Only one of options b and i can be specified. ** COMMENTS, BUGS, ASSUMPTIONS ** Both arguments must be supplied to the program and they cannot be ** identical. ** You must have enough additional disk space for the compacted file. */ #include "hdf.h" #include "herr.h" #include "hfile.h" #include #include typedef struct mydd_t { uint16 tag; uint16 ref; int32 offset; int32 length; int16 special; } mydd_t; /* Static function prototypes */ int promptblocks (mydd_t * dd); VOID copy_blocks (mydd_t * dd, int32 infile, int32 outfile); VOID merge_blocks (mydd_t * dd, int32 infile, int32 outfile); int main (int, char *a[]); static VOID usage (char *); static VOID hdferror (void); static VOID error (const char *); int desc_comp (const void *d1, const void *d2); unsigned char *data; char invoke[81]; int32 data_size; int32 nblk = 0; char *from_file = NULL; char *to_file = NULL; int main(int argc, char *argv[]) { int i, num_desc, fnum, merge; int32 infile, outfile, aid, ret; mydd_t *dlist; int32 oldoff, oldlen; int blocks = 1; int intr = 0; int16 ndds = 0; int optset = 0; intn external = FALSE; char *tmp, fname[2][80]; CONSTR(FUNC, "main"); /* ** Get invocation name of program */ tmp = (char *) NULL; HDstrcpy(invoke, strtok(argv[0], "/]\\\0")); for (;;) { if (tmp != NULL) HDstrcpy(invoke, tmp); if ((tmp = strtok((char *) NULL, "/]\\\0")) == NULL) break; } if (argc < 3) { usage(invoke); exit(1); } /* ** Get option flags */ fnum = 0; i = 1; while (i < argc) { if (argv[i][0] == '-') { switch (argv[i][1]) { case 'b': if (optset == 0) { blocks = 0; optset = 1; } else { error("incompatible options: -i and -b"); } break; case 'i': if (optset == 0) { intr = 1; blocks = 0; optset = 1; } else { error("incompatible options: -i and -b"); } break; case 'd': ndds = (int16) atoi(&argv[i][2]); break; case 't': nblk = atoi(&argv[i][2]); break; case 'x': external = TRUE; break; case 'r': from_file = argv[++i]; to_file = argv[++i]; break; default: fprintf(stderr, "Unknown option -%c ignored\n", argv[i][1]); break; } } else { if (fnum < 2) { HDstrcpy(fname[fnum], argv[i]); fnum++; } } i++; } /* ** Enough [unique] file arguments? */ if ((fnum != 2) || (HDstrcmp(fname[0], fname[1]) == 0)) { error("need 2 unique file names"); } if (from_file && to_file) printf("Going to rename external file %s to %s\n", from_file, to_file); /* ** Check to make sure input file is HDF */ ret = (int) Hishdf(fname[0]); if (ret == FALSE) hdferror(); /* ** Open input and output files */ infile = Hopen(fname[0], DFACC_READ, 0); if (infile == FAIL) hdferror(); outfile = Hopen(fname[1], DFACC_CREATE, ndds); if (outfile == FAIL) hdferror(); /* ** See how many data elements there ** are and make room for their DD's */ num_desc = (int) Hnumber(infile, DFTAG_WILDCARD); if (num_desc == FAIL) hdferror(); dlist = (mydd_t *) HDmalloc(num_desc * sizeof(*dlist)); if (dlist == NULL) error("\tWow! That file must be HUGE!\n\tThere isn't enough memory to hold the DD's.\n"); /* ** Allocate data buffer - try 1 Meg first, work down */ data_size = 1048576; /* 1 MB */ data = NULL; while ((data = (unsigned char *) HDmalloc(data_size)) == NULL) data_size /= 2; /* okay then, cut request by half */ /* ** Get all DD's for data elements */ aid = Hstartread(infile, DFTAG_WILDCARD, DFREF_WILDCARD); if (aid == FAIL) { printf("MAJOR PROBLEM: Hstartread for DD's; line %d\n", __LINE__); hdferror(); } for (i = 0; i < num_desc; i++) { /* * Get data about the current one */ Hinquire(aid, NULL, &dlist[i].tag, &dlist[i].ref, &dlist[i].length, &dlist[i].offset, NULL, NULL, &dlist[i].special); /* * Move to the next one */ ret = Hnextread(aid, DFTAG_WILDCARD, DFREF_WILDCARD, DF_CURRENT); /* * Fail if there are none left and we expect more */ if ((ret == FAIL) && (i + 1 < num_desc)) { printf("MAJOR PROBLEM: DDs; only got %d of %d; line %d\n", i, num_desc, __LINE__); hdferror(); } } /* * Close the access element */ ret = Hendaccess(aid); if (ret == FAIL) hdferror(); /* ** Sort DD's by offset to make it easy to ** find DD's that point to the same data */ qsort((char *) dlist, (size_t)num_desc, sizeof(*dlist), desc_comp); oldoff = -2; oldlen = -2; for (i = 0; i < num_desc; i++) { if (((dlist[i].tag != DFTAG_NULL) && (dlist[i].tag != DFTAG_VERSION)) && (dlist[i].tag != DFTAG_LINKED)) { if ((dlist[i].offset != oldoff) || (dlist[i].length != oldlen)) { /* ** if this DD points to different data, read the data ** from the old file and write it to the new file */ switch (dlist[i].special) { case SPECIAL_LINKED: if (intr == 1) merge = promptblocks(&dlist[i]); else merge = blocks; if (merge == 0) { copy_blocks(&dlist[i], infile, outfile); } else { merge_blocks(&dlist[i], infile, outfile); } break; case SPECIAL_EXT: if (external) { sp_info_block_t info; int32 aid1, new_aid; char *name; /* get file name and offset */ aid1 = Hstartread(infile, dlist[i].tag, dlist[i].ref); if (aid1 == FAIL) continue; ret = HDget_special_info(aid1, &info); if ((ret == FAIL) || (info.key != SPECIAL_EXT)) continue; /* see if should be renamed */ if (from_file && !HDstrcmp(info.path, from_file)) name = to_file; else name = info.path; /* create the new one */ new_aid = HXcreate(outfile, BASETAG(dlist[i].tag), dlist[i].ref, name, info.offset, dlist[i].length); /* close the elements */ Hendaccess(aid1); Hendaccess(new_aid); } else { /* pull into the file */ merge_blocks(&dlist[i], infile, outfile); } break; case SPECIAL_COMP: /* This code assumes that you'd like to leave the compressed data that way and not expand it */ { int32 aid, len; VOIDP *buf; /* Read in old compressed data description */ if((aid=Hstartaccess(infile,dlist[i].tag,dlist[i].ref,DFACC_READ))==FAIL) continue; HQuerylength(aid,&len); buf=HDmalloc(len); Hread(aid,len,buf); Hendaccess(aid); /* Write compressed data description into new file */ if((aid=Hstartaccess(outfile,dlist[i].tag,dlist[i].ref,DFACC_WRITE))==FAIL) continue; Hwrite(aid,len,buf); Hendaccess(aid); HDfree(buf); } break; default: merge_blocks(&dlist[i], infile, outfile); break; } /* switch (special) */ } else { /* ** otherwise, just make a new DD for same data */ ret = Hdupdd(outfile, dlist[i].tag, dlist[i].ref, dlist[i - 1].tag, dlist[i - 1].ref); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } } } /* ** save offset of data to check against next DD */ oldoff = dlist[i].offset; } /* ** Rename any matching external elements */ if (from_file && to_file) { } /* ** done; close files */ Hclose(infile); Hclose(outfile); return (0); } /* ** NAME ** promptblocks */ int promptblocks(mydd_t * dd) { char ans[80]; printf("Would you like to coalesce the following linked-block element:\n"); printf("\ttag = %d\n\tref = %d\n(y/n): ", dd->tag, dd->ref); fgets(ans,80,stdin); if ((ans[0] == 'y') || (ans[0] == 'Y')) return (1); else return (0); } /* ** NAME ** copy_blocks -- move a linked-block element; preserve blocking */ VOID copy_blocks(mydd_t * dd, int32 infile, int32 outfile) { int32 inaid, ret, rdret, outaid; sp_info_block_t info; CONSTR(FUNC, "copy_blocks"); inaid = Hstartread(infile, dd->tag, dd->ref); ret = HDget_special_info(inaid, &info); if ((ret != SUCCEED) || (info.key != SPECIAL_LINKED)) { HERROR(DFE_GENAPP); hdferror(); } /* ** copy first block */ outaid = Hstartwrite(outfile, BASETAG(dd->tag), dd->ref, info.first_len); if (outaid == FAIL) { HERROR(DFE_GENAPP); hdferror(); } rdret = 0; while (rdret < info.first_len) { ret = Hread(inaid, (data_size < info.first_len) ? data_size : info.first_len, data); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } rdret += ret; ret = Hwrite(outaid, ret, data); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } } ret = Hendaccess(outaid); /* ** promote to linked-block element */ if (nblk > 0) info.nblocks = nblk; outaid = HLcreate(outfile, BASETAG(dd->tag), dd->ref, info.block_len, info.nblocks); if (outaid == FAIL) { HERROR(DFE_GENAPP); hdferror(); } /* ** copy remaining blocks */ rdret = data_size; while (rdret == data_size) { rdret = Hread(inaid, data_size, data); if (rdret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } if (rdret != 0) { ret = Hwrite(outaid, rdret, data); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } } } Hendaccess(outaid); } /* ** NAME ** merge_blocks */ VOID merge_blocks(mydd_t * dd, int32 infile, int32 outfile) { int32 inaid, outaid, ret, len; CONSTR(FUNC, "merge_blocks"); inaid = Hstartread(infile, dd->tag, dd->ref); if (inaid == FAIL) { HERROR(DFE_GENAPP); hdferror(); } outaid = Hstartaccess(outfile,BASETAG(dd->tag),dd->ref,DFACC_WRITE); if (outaid == FAIL) { HERROR(DFE_GENAPP); hdferror(); } while (dd->length > 0) { dd->length -= (len = Hread(inaid, data_size, data)); if (len == FAIL) { HERROR(DFE_GENAPP); hdferror(); } ret = Hwrite(outaid, len, data); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } } ret = Hendaccess(inaid); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } ret = Hendaccess(outaid); if (ret == FAIL) { HERROR(DFE_GENAPP); hdferror(); } } /* ** NAME ** usage -- print out usage template ** USAGE ** int usage() ** RETURNS ** none ** DESCRIPTION ** Print hdfpack's usage template to stdout. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES */ static VOID usage(char *name) { fprintf(stderr, "Usage: %s [-i | -b] [-d#] [-t#] [-x] [-r ] \n", name); fprintf(stderr, "\t-t# : reset the linked block sizing\n"); fprintf(stderr, "\t-d# : reset the number of DDs per DD block\n"); fprintf(stderr, "\t-i : interactively merge linked blocks\n"); fprintf(stderr, "\t-b : maintain linked blocking sizes\n"); fprintf(stderr, "\t-x : keep external elements external\n"); fprintf(stderr, "\t-r :\n"); fprintf(stderr, "\t change external element names matching to \n"); } /* ** NAME ** hdferror -- print out HDF error number ** USAGE ** int hdferror() ** RETURNS ** none ** DESCRIPTION ** Print an HDF error number to stderr. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This routine terminates the program with code 1. ** EXAMPLES */ static VOID hdferror(void) { HEprint(stderr, 0); exit(1); } /* ** NAME ** error -- print error to stderr ** USAGE ** int error(string); ** char *string; IN: pointer to error description string ** RETURNS ** none ** DESCRIPTION ** Print an HDF error number to stderr. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** This routine terminates the program with code 1. ** EXAMPLES */ static VOID error(const char *string) { fprintf(stderr, "%s: %s\n", invoke, string); exit(1); } /* ** NAME ** desc_comp -- compare two DD's by offset ** USAGE ** int desc_cmp(d1, d2) ** mydd_t *d1 IN: pointer to a DD ** mydd_t *d2 IN: pointer to a DD ** RETURNS ** A number less than, greater than, or equal to 0, according to ** whether d1's offset is less than, greater than, or equal to ** d2's offset. ** DESCRIPTION ** A pointer to this routine is passed to qsort() as the comparison ** function for the sort. ** GLOBAL VARIABLES ** COMMENTS, BUGS, ASSUMPTIONS ** EXAMPLES */ int desc_comp(const void *d1, const void *d2) { return ((int) (((const mydd_t *) d1)->offset - ((const mydd_t *) d2)->offset)); } libhdf4-4.2.10/HDF_ALT/hdf/util/hdfed.input10000644000000000000000000000034412421456623015041 0ustar open storm110.hdf info -all prev tag = 300 info -long dump -short close open ntcheck.hdf info -all prev tag = 30 ref = 1 next tag = 702 ref = 2 info -long dump -float next tag = 702 ref = 6 info -long dump -short close quit libhdf4-4.2.10/HDF_ALT/hdf/util/gif2mem.c0000644000000000000000000002612112421456623014320 0ustar /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF. The full HDF copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at * * http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* ** This file contains snippets of code from James Murray's original file ** to display the GIF header information, but most of it has been modified to ** suit gif2hdf */ /****************************************************************************\ ** Title: GIFHEAD.C ** ** Purpose: Display the data in a GIF image file. ** ** Version: 1.0 ** ** Date: March 1992 ** ** Author: James D. Murray, Anaheim, CA, USA ** ** C Compilers: Borland C++ v2.0, Microsoft C v6.00a ** ** ** ** GIFHEAD displays all real information contained within a GIF image ** ** file, including all color tables and extension block information. ** ** GIFHEAD reads both GIF 87a abd 89a-format files. ** ** ** ** Copyright (C) 1991-92 by Graphics Software Labs. All rights reserved. ** \****************************************************************************/ #include #include "gif.h" #include #define GIF_VERSION "1.00" extern int EndianOrder; GIFTOMEM Gif2Mem(MemGif) BYTE *MemGif; { /* ** The gif structure outline for passing data to memory ** is given in gif.h ** These pointers are redunant, should take them out in ver. 2 */ GIFHEAD *gifHead; /* GIF Header structure */ GIFIMAGEDESC **gifImageDesc; /* Logical Image Descriptor struct */ GIFPLAINTEXT **gifPlainText; /* Plain Text Extension structure */ GIFAPPLICATION **gifApplication; /* Application Extension structure */ GIFCOMMENT **gifComment; /* Comment Extension structure */ GIFGRAPHICCONTROL **gifGraphicControl; /* Graphic Control Extension strct */ GIFTOMEM GifMemoryStruct; register WORD i; /* Loop counter */ BYTE Identifier; /* Extension block identifier holder */ BYTE Label; /* Extension block label holder */ BYTE ImageCount; /* Count of the number of images in the file */ BYTE ImageArray; /* Keep the size of the array to store Images */ BYTE CommentCount; BYTE CommentArray; BYTE ApplicationCount; BYTE ApplicationArray; BYTE PlainTextCount; BYTE PlainTextArray; BYTE GCEflag; BYTE aTemp; BYTE j; BYTE w; /* Two more variables needed only while testing */ BYTE *b; /* Endian Ordering */ /* Allocate memory for the GIF structures */ /* Plug the structs into GifMemoryStruct at the end */ /****************************************************/ if (!(gifHead = (GIFHEAD *)malloc(sizeof(GIFHEAD)))) { printf("Could not allocate memory for gifHead\n"); exit(-1); } /* ** The next three have to grow dynamically so we leave them ** for now and let realloc handle it later on. */ gifImageDesc = NULL; gifPlainText = NULL; gifGraphicControl = NULL; gifComment = NULL; gifApplication = NULL; /******************************/ /* Memory allocation complete */ /* Carry out Endian Testing and set Endian Order */ w = 0x0001; b = (BYTE *) &w; EndianOrder = (b[0] ? 1 : 0); /* Read the GIF image file header information */ ReadGifHeader(gifHead, &MemGif); /* Check for FILE stream error */ /* if (ferror(fpGif)) { fputs("GIFHEAD: Error reading header information!\n", stderr); exit(-3); } */ /* ** Identify, read, and display block information. */ ImageCount = ImageArray = 0; CommentCount = CommentArray = 0; ApplicationCount = ApplicationArray = 0; PlainTextCount = PlainTextArray = 0; GCEflag = 0; for (;;) { Identifier = *MemGif++; switch (Identifier) { case 0x3B: /* Trailer */ /* The counts are stored to make it easier while ** putting stuff into the HDF file and then ** deallocating space. */ gifHead->ImageCount = ImageCount; gifHead->CommentCount = CommentCount; gifHead->ApplicationCount = ApplicationCount; gifHead->PlainTextCount = PlainTextCount; /* putting stuff into the gif2mem structure */ GifMemoryStruct.GifHeader = gifHead; GifMemoryStruct.GifImageDesc = gifImageDesc; GifMemoryStruct.GifPlainTextExtension = gifPlainText; GifMemoryStruct.GifApplicationExtension = gifApplication; GifMemoryStruct.GifCommentExtension = gifComment; GifMemoryStruct.GifGraphicControlExtension = gifGraphicControl; /* return the struct */ return GifMemoryStruct; case 0x2C: /* Image Descriptor */ /* If there was no image descriptor before this increase image count. ** If an imagedescriptor was present, reset GCEflag */ if (GCEflag == 0) ImageCount++; else GCEflag = 0; if (ImageCount > ImageArray) { aTemp = ImageArray; ImageArray = (ImageArray << 1) + 1; if (!(gifImageDesc = (GIFIMAGEDESC **)realloc(gifImageDesc , sizeof(GIFIMAGEDESC *) * ImageArray))) { printf("Out of memory!"); exit(-1); } if (!(gifGraphicControl = (GIFGRAPHICCONTROL **)realloc(gifGraphicControl , sizeof(GIFGRAPHICCONTROL *) * ImageArray))) { printf("Out of memory!"); exit(-1); } for (j = aTemp ; j < ImageArray ; j++) { gifGraphicControl[j] = NULL; gifImageDesc[j] = NULL; } } if(!(gifImageDesc[ImageCount-1] = (GIFIMAGEDESC*)malloc(sizeof(GIFIMAGEDESC)))) { printf("Out of memory!"); exit(-1); } if (ReadGifImageDesc(gifImageDesc[ImageCount-1], &MemGif) == -1) fputs("Error reading Image Descriptor information\n", stderr); /* ** Decompress the Image */ gifImageDesc[ImageCount-1]->Image = Decompress(gifImageDesc[ImageCount-1] , gifHead); free(gifImageDesc[ImageCount-1]->GIFImage); /* ** Convert the local palette into an HDF compatible palette ** In case the local color table is present, it is written out as the HDFPalette ** If it is absent the global table is written as the HDFPalette. */ if (!((gifImageDesc[ImageCount-1]->PackedField) & 0x80)) { /* Check to see if the global color table exists.... */ if (gifHead->PackedField & 0x80) { for (i=0 ; iTableSize ; i++) { gifImageDesc[ImageCount-1]->HDFPalette[i][0] = gifHead->HDFPalette[i][0]; gifImageDesc[ImageCount-1]->HDFPalette[i][1] = gifHead->HDFPalette[i][1]; gifImageDesc[ImageCount-1]->HDFPalette[i][2] = gifHead->HDFPalette[i][2]; } } gifImageDesc[ImageCount-1]->TableSize = gifHead->TableSize; } break; case 0x21: /* Extension Block */ Label = *MemGif++; switch (Label) { case 0x01: /* Plain Text Extension */ puts("Plain Text Extension\n"); PlainTextCount++; if (PlainTextCount > PlainTextArray) PlainTextArray = (PlainTextArray << 1) + 1; if (!(gifPlainText = (GIFPLAINTEXT **)realloc(gifPlainText , sizeof(GIFPLAINTEXT *) * PlainTextArray))) { printf("Out of memory!"); exit(-1); } if(!(gifPlainText[PlainTextCount - 1] = (GIFPLAINTEXT*)malloc(sizeof(GIFPLAINTEXT)))) { printf("Out of memory!"); exit(-1); } if (ReadGifPlainText(gifPlainText[PlainTextCount - 1], &MemGif)) fprintf(stderr, "Error reading Plain Text Extension information.\n"); break; case 0xFE: /* Comment Extension */ CommentCount++; if (CommentCount > CommentArray) CommentArray = (CommentArray << 1) + 1; if (!(gifComment = (GIFCOMMENT **)realloc(gifComment , sizeof(GIFCOMMENT *) * CommentArray))) { printf("Out of memory!"); exit(-1); } if(!(gifComment[CommentCount - 1] = (GIFCOMMENT *)malloc(sizeof(GIFCOMMENT)))) { printf("Out of memory!"); exit(-1); } if (ReadGifComment(gifComment[CommentCount - 1], &MemGif)) fprintf(stderr, "Error reading Comment Extension information\n"); break; case 0xF9: /* Graphic Control Extension */ if (GCEflag == 0 ) ImageCount++; GCEflag = 1; if (ImageCount > ImageArray) { aTemp = ImageArray; ImageArray = (ImageArray << 1) + 1; if (!(gifGraphicControl = (GIFGRAPHICCONTROL **)realloc(gifGraphicControl , sizeof(GIFGRAPHICCONTROL *) * ImageArray))) { printf("Out of memory!"); exit(-1); } if (!(gifImageDesc = (GIFIMAGEDESC **)realloc(gifImageDesc , sizeof(GIFIMAGEDESC *) * ImageArray))) { printf("Out of memory!"); exit(-1); } for (j = aTemp ; j < ImageArray ; j++) { gifGraphicControl[j] = NULL; gifImageDesc[j] = NULL; } } if(!(gifGraphicControl[ImageCount-1] = (GIFGRAPHICCONTROL*)malloc(sizeof(GIFGRAPHICCONTROL)))) { printf("Out of memory!"); exit(-1); } if (ReadGifGraphicControl(gifGraphicControl[ImageCount-1], &MemGif)) fprintf(stderr, "Error reading Graphic Control Extension information\n"); if (!*MemGif++ == 0) fprintf(stderr, "Error reading Graphic Control Extension\n"); break; case 0xFF: /* Application Extension */ ApplicationCount++; if (ApplicationCount > ApplicationArray) ApplicationArray = (ApplicationArray << 1) + 1; if (!(gifApplication = (GIFAPPLICATION **)realloc(gifApplication , sizeof(GIFAPPLICATION *) * ApplicationArray))) { printf("Out of memory!"); exit(-1); } if(!(gifApplication[ApplicationCount - 1] = (GIFAPPLICATION *)malloc(sizeof(GIFAPPLICATION)))) { printf("Out of memory!"); exit(-1); } if (ReadGifApplication(gifApplication[ApplicationCount - 1], &MemGif)) fprintf(stderr, "Error reading Application Extension information\n"); break; default: printf("Unknown Extension Label: 0x%02x\n", Label); break; } break; default: fprintf(stderr, "Unknown Block Separator Character: 0x%02x\n", Identifier); } } } libhdf4-4.2.10/HDF_ALT/hdf/util/fp2hdf.out10000644000000000000000000001275112421456623014615 0ustar ctxtr2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes ctxtr3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 30 bytes Scientific Data : (tag 702) Ref no 2 240 bytes SciData scales : (tag 703) Ref no 2 51 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb32r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb32r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 30 bytes Scientific Data : (tag 702) Ref no 2 240 bytes SciData scales : (tag 703) Ref no 2 51 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb64r2.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes cb64r3.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 30 bytes Scientific Data : (tag 702) Ref no 2 240 bytes SciData scales : (tag 703) Ref no 2 51 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes ctxtr2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Image Dimensions-8 : (tag 200) Ref no 2 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 2 400 bytes Image Dimensions : (tag 300) Ref no 2 20 bytes Compressed Image : (tag 303) Ref no 2 400 bytes Raster Image Group : (tag 306) Ref no 2 8 bytes cb64r2_ris.hdf: Version Descriptor : (tag 30) Ref no 1 92 bytes Number type : (tag 106) Ref no 2 4 bytes Ref no 3 4 bytes Image Dimensions-8 : (tag 200) Ref no 3 4 bytes RLE Compressed Image-8 : (tag 203) Ref no 3 2550 bytes Image Dimensions : (tag 300) Ref no 3 20 bytes Compressed Image : (tag 303) Ref no 3 2550 bytes Raster Image Group : (tag 306) Ref no 3 8 bytes Scientific Data Group : (tag 700) Ref no 2 20 bytes SciData dimension record : (tag 701) Ref no 2 22 bytes Scientific Data : (tag 702) Ref no 2 48 bytes SciData scales : (tag 703) Ref no 2 30 bytes SciData max/min : (tag 707) Ref no 2 8 bytes Links related to the dataset : (tag 710) Ref no 2 8 bytes Numeric Data Group : (tag 720) Ref no 2 20 bytes libhdf4-4.2.10/HDF_ALT/hdf/examples/0000755000000000000000000000000012474643755013501 5ustar libhdf4-4.2.10/HDF_ALT/hdf/examples/Makefile.in0000644000000000000000000006315712474643755015562 0ustar # Makefile.in generated by automake 1.12.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2012 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@ ############################################################################# ############################################################################# # We can't tell automake about example programs, because they need to be # built using h4cc (or h4fc, etc.) instead of the standard compilers. # This creates some extra work for us. VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } 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@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/bin/mkinstalldirs \ $(top_srcdir)/config/commence.am \ $(top_srcdir)/config/conclude.am \ $(top_srcdir)/config/examples.am TESTS = $(TEST_PROG) subdir = hdf/examples ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs CONFIG_HEADER = $(top_builddir)/hdf/src/h4config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = $(am__tty_colors_dummy) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BUILD_FORTRAN = @BUILD_FORTRAN@ BUILD_NETCDF = @BUILD_NETCDF@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_VERSION = @CC_VERSION@ CFLAGS = @CFLAGS@ CONFIG_DATE = @CONFIG_DATE@ CONFIG_MODE = @CONFIG_MODE@ CONFIG_USER = @CONFIG_USER@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DEPRECATED_SYMBOLS = @DEPRECATED_SYMBOLS@ DIFF = @DIFF@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ F77_VERSION = @F77_VERSION@ FFLAGS = @FFLAGS@ FGREP = @FGREP@ FLIBS = @FLIBS@ GREP = @GREP@ H4_VERSION = @H4_VERSION@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LEX = @LEX@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LL_PATH = @LL_PATH@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_STATIC_EXEC = @LT_STATIC_EXEC@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEQN = @NEQN@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SETX = @SETX@ SET_MAKE = @SET_MAKE@ SHARED_EXTENSION = @SHARED_EXTENSION@ SHELL = @SHELL@ STATIC_EXEC = @STATIC_EXEC@ STATIC_SHARED = @STATIC_SHARED@ STRIP = @STRIP@ SZIP_INFO = @SZIP_INFO@ TBL = @TBL@ TEST_FORTRAN_NETCDF = @TEST_FORTRAN_NETCDF@ UNAME_INFO = @UNAME_INFO@ USE_COMP_SZIP = @USE_COMP_SZIP@ VERSION = @VERSION@ YACC = @YACC@ 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@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ enable_shared = @enable_shared@ enable_static = @enable_static@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc @HDF_BUILD_XDR_TRUE@XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs @HDF_BUILD_SHARED_TRUE@AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog *.hdf DEFINES = -DNDEBUG -DHDF ############################################################################# ############################################################################# EXAMPLE_PROG = VD_create_vdatas VD_write_mixed_vdata \ VD_write_mixed_vdata_struct VD_write_to_vdata \ VD_read_from_vdata VD_read_mixed_vdata \ VD_set_get_vdata_attr VD_create_onefield_vdatas \ VD_get_vdata_info VD_locate_vdata VG_create_vgroup \ VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup \ VG_set_get_vgroup_attr VG_vgroup_contents \ VG_get_vgroup_info GR_create_and_write_image \ GR_modify_image GR_set_attribute GR_get_attribute \ GR_write_palette GR_read_palette GR_image_info \ GR_read_image GR_write_chunks GR_read_chunks \ AN_create_annotation AN_get_annotation_info AN_read_annotation TEST_PROG = $(EXAMPLE_PROG) # These are the C example files to be installed INSTALL_FILES = VD_read_from_vdata.c VD_read_mixed_vdata.c \ VD_set_get_vdata_attr.c VD_write_mixed_vdata.c \ VD_write_mixed_vdata_struct.c VD_write_to_vdata.c \ VD_create_onefield_vdatas.c VD_create_vdatas.c \ VD_get_vdata_info.c VD_locate_vdata.c \ VG_insert_vdatas_to_vgroup.c VG_set_get_vgroup_attr.c \ VG_vgroup_contents.c VG_add_sds_to_vgroup.c \ VG_create_vgroup.c VG_get_vgroup_info.c \ GR_create_and_write_image.c GR_get_attribute.c \ GR_image_info.c GR_modify_image.c GR_read_image.c \ GR_read_palette.c GR_set_attribute.c \ GR_write_palette.c GR_write_chunks.c GR_read_chunks.c \ AN_create_annotation.c AN_get_annotation_info.c \ AN_read_annotation.c INSTALL_SCRIPT_FILES = run-c-ex.sh INSTALL_TOP_SCRIPT_FILES = run-all-ex.sh INSTALL_TOP_FILES = README # Where to install example files EXAMPLEDIR = $(prefix)/examples/c EXAMPLETOPDIR = $(prefix)/examples DISTCLEANFILES = *.chkexe *.chklog @BUILD_SHARED_SZIP_CONDITIONAL_TRUE@LD_LIBRARY_PATH = $(LL_PATH) # Assume that all tests in this directory are examples, and tell # conclude.am when to build them. EXTRA_PROG = $(EXAMPLE_PROG) # We need to tell automake what to clean MOSTLYCLEANFILES = *.o $(EXAMPLE_PROG) CLEANFILES = $(EXAMPLE_PROG) # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = TEST_PROG_CHKEXE = $(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH = $(TEST_SCRIPT:=.chkexe_) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.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 hdf/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign hdf/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/config/commence.am $(top_srcdir)/config/examples.am $(top_srcdir)/config/conclude.am: $(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): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: cscope cscopelist: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile all-local 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 "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) 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) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) 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 mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-data-local 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: installcheck-local maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool \ mostlyclean-local pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-local .MAKE: check-am install-am install-strip .PHONY: all all-am all-local check check-TESTS check-am clean \ clean-generic clean-libtool distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am \ install-data-local 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 installcheck-local installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am uninstall uninstall-am uninstall-local # How to build C programs using h4cc $(EXTRA_PROG): $(H4CC) $(H4CC) $(H4CCFLAGS) $(CFLAGS) -o $@ $(srcdir)/$@.c; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal C compiler, not h4cc. # C Programs VD_read_from_vdata: $(srcdir)/VD_read_from_vdata.c VD_read_mixed_vdata: $(srcdir)/VD_read_mixed_vdata.c VD_set_get_vdata_attr: $(srcdir)/VD_set_get_vdata_attr.c VD_write_mixed_vdata: $(srcdir)/VD_write_mixed_vdata.c VD_write_mixed_vdata_struct: $(srcdir)/VD_write_mixed_vdata_struct.c VD_write_to_vdata: $(srcdir)/VD_write_to_vdata.c VD_create_onefield_vdatas: $(srcdir)/VD_create_onefield_vdatas.c VD_create_vdatas: $(srcdir)/VD_create_vdatas.c VD_get_vdata_info: $(srcdir)/VD_get_vdata_info.c VD_locate_vdata: $(srcdir)/VD_locate_vdata.c VG_insert_vdatas_to_vgroup: $(srcdir)/VG_insert_vdatas_to_vgroup.c VG_set_get_vgroup_attr: $(srcdir)/VG_set_get_vgroup_attr.c VG_vgroup_contents: $(srcdir)/VG_vgroup_contents.c VG_add_sds_to_vgroup: $(srcdir)/VG_add_sds_to_vgroup.c VG_create_vgroup: $(srcdir)/VG_create_vgroup.c VG_get_vgroup_info: $(srcdir)/VG_get_vgroup_info.c GR_create_and_write_image: $(srcdir)/GR_create_and_write_image.c GR_get_attribute: $(srcdir)/GR_get_attribute.c GR_image_info: $(srcdir)/GR_image_info.c GR_modify_image: $(srcdir)/GR_modify_image.c GR_read_chunks: $(srcdir)/GR_read_chunks.c GR_read_image: $(srcdir)/GR_read_image.c GR_read_palette: $(srcdir)/GR_read_palette.c GR_set_attribute: $(srcdir)/GR_set_attribute.c GR_write_chunks: $(srcdir)/GR_write_chunks.c GR_write_palette: $(srcdir)/GR_write_palette.c AN_create_annotation: $(srcdir)/AN_create_annotation.c AN_get_annotation_info: $(srcdir)/AN_get_annotation_info.c AN_read_annotation: $(srcdir)/AN_read_annotation.c # How to create EXAMPLEDIR if it doesn't already exist $(DESTDIR)$(EXAMPLEDIR): mkdir -p $@ # Install and uninstall rules. We install the source files, not the # example programs themselves. install-data-local: @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-local: @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples install-examples: $(DESTDIR)$(EXAMPLEDIR) @for f in X $(INSTALL_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLEDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ fi; \ done @for f in X $(INSTALL_TOP_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLETOPDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_TOP_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ fi; \ done uninstall-examples: @if test -n "$(INSTALL_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_FILES); \ fi @if test -n "$(INSTALL_SCRIPT_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_SCRIPT_FILES); \ fi @if test -n "$(INSTALL_TOP_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_FILES); \ fi @if test -n "$(INSTALL_TOP_SCRIPT_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_SCRIPT_FILES); \ fi installcheck-local: @if test "$(STATIC_SHARED)" = "static, shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ $(MAKE) $(AM_MAKEFLAGS) clean; \ H5CCFLAGS="" $(MAKE) $(AM_MAKEFLAGS) check; \ elif test "$(STATIC_SHARED)" = "shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ else \ $(MAKE) $(AM_MAKEFLAGS) check; \ fi # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi # 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: libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_modify_image.c0000644000000000000000000001014312421456623016651 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" #define X1_LENGTH 5 /* number of columns in the first image being modified */ #define Y1_LENGTH 2 /* number of rows in the first image being modified */ #define N1_COMPS 2 /* number of components in the first image */ #define IMAGE1_NAME "Image Array 1" #define IMAGE2_NAME "Image Array 2" #define X2_LENGTH 6 /* number of columns in the second image */ #define Y2_LENGTH 4 /* number of rows in the second image */ #define N2_COMPS 3 /* number of components in the second image */ int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri1_id, /* raster image identifier */ start1[2], /* start position to write for each dimension */ edges1[2], /* number of elements to be written along each dimension */ ri2_id, /* raster image identifier */ start2[2], /* start position to write for each dimension */ edges2[2], /* number of elements to be written along each dimension */ dims_sizes[2], /* sizes of the two dimensions of the image array */ data_type, /* data type of the image data */ interlace_mode; /* interlace mode of the image */ int16 i, j; /* indices for the dimensions */ int16 image1_buf[Y1_LENGTH][X1_LENGTH][N1_COMPS]; /* data of first image */ char image2_buf[Y2_LENGTH][X2_LENGTH][N2_COMPS]; /* data of second image*/ /********************** End of variable declaration **********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Select the first raster image in the file. */ ri1_id = GRselect (gr_id, 0); /* * Fill the first image data buffer with values. */ for (i = 0; i < Y1_LENGTH; i++) { for (j = 0; j < X1_LENGTH; j++) { image1_buf[i][j][0] = 0; /* first component */ image1_buf[i][j][1] = 0; /* second component */ } } /* * Define the size of the data to be written, i.e., start from the origin * and go as long as the length of each dimension. */ start1[0] = start1[1] = 0; edges1[0] = X1_LENGTH; edges1[1] = Y1_LENGTH; /* * Write the data in the buffer into the image array. */ status = GRwriteimage (ri1_id, start1, NULL, edges1, (VOIDP)image1_buf); /* * Set the interlace mode and dimensions of the second image. */ data_type = DFNT_CHAR8; interlace_mode = MFGR_INTERLACE_PIXEL; dims_sizes[0] = X2_LENGTH; dims_sizes[1] = Y2_LENGTH; /* * Create the second image in the file. */ ri2_id = GRcreate (gr_id, IMAGE2_NAME, N2_COMPS, data_type, interlace_mode, dims_sizes); /* * Fill the second image data buffer with values. */ for (i = 0; i < Y2_LENGTH; i++) { for (j = 0; j < X2_LENGTH; j++) { image2_buf[i][j][0] = 'A'; /* first component */ image2_buf[i][j][1] = 'B'; /* second component */ image2_buf[i][j][2] = 'C'; /* third component */ } } /* * Define the size of the data to be written, i.e., start from the origin * and go as long as the length of each dimension. */ for (i = 0; i < 2; i++) { start2[i] = 0; edges2[i] = dims_sizes[i]; } /* * Write the data in the buffer into the second image array. */ status = GRwriteimage (ri2_id, start2, NULL, edges2, (VOIDP)image2_buf); /* * Terminate access to the raster images and to the GR interface, and * close the HDF file. */ status = GRendaccess (ri1_id); status = GRendaccess (ri2_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_get_vgroup_info.c0000644000000000000000000000633312421456623017426 0ustar #include "hdf.h" #define FILE_NAME "General_Vgroups.hdf" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vgroup_id; int32 lone_vg_number, /* current lone vgroup number */ num_of_lones = 0; /* number of lone vgroups */ int32 *ref_array; /* buffer to hold the ref numbers of lone vgroups */ char *vgroup_name, *vgroup_class; uint16 name_len; /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Get and print the names and class names of all the lone vgroups. * First, call Vlone with num_of_lones set to 0 to get the number of * lone vgroups in the file, but not to get their reference numbers. */ num_of_lones = Vlone (file_id, NULL, num_of_lones ); /* * Then, if there are any lone vgroups, */ if (num_of_lones > 0) { /* * use the num_of_lones returned to allocate sufficient space for the * buffer ref_array to hold the reference numbers of all lone vgroups, */ ref_array = (int32 *) malloc(sizeof(int32) * num_of_lones); /* * and call Vlone again to retrieve the reference numbers into * the buffer ref_array. */ num_of_lones = Vlone (file_id, ref_array, num_of_lones); /* * Display the name and class of each lone vgroup. */ fprintf(stderr, "Lone vgroups in this file are:\n"); for (lone_vg_number = 0; lone_vg_number < num_of_lones; lone_vg_number++) { /* * Attach to the current vgroup then get and display its * name and class. Note: the current vgroup must be detached before * moving to the next. */ vgroup_id = Vattach (file_id, ref_array[lone_vg_number], "r"); status_32 = Vgetnamelen(vgroup_id, &name_len); vgroup_name = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgroup_name == NULL) { fprintf(stderr, "Not enough memory for vgroup_name!\n"); exit(1); } status_32 = Vgetname (vgroup_id, vgroup_name); status_32 = Vgetclassnamelen(vgroup_id, &name_len); vgroup_class = (char *) HDmalloc(sizeof(char *) * (name_len+1)); if (vgroup_class == NULL) { fprintf(stderr, "Not enough memory for vgroup_class!\n"); exit(1); } status_32 = Vgetclass (vgroup_id, vgroup_class); fprintf(stderr, " Vgroup name %s and class %s\n", vgroup_name, vgroup_class); status_32 = Vdetach (vgroup_id); if (vgroup_name != NULL) HDfree(vgroup_name); if (vgroup_class != NULL) HDfree(vgroup_class); } /* for */ } /* if */ /* * Terminate access to the V interface and close the file. */ status_n = Vend (file_id); status_n = Hclose (file_id); /* * Free the space allocated by this program. */ free (ref_array); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_insert_vdatas_to_vgroup.c0000644000000000000000000001304312421456623021200 0ustar #include "hdf.h" #define FILE_NAME "General_Vgroups.hdf" #define N_RECORDS 30 /* number of records in the vdatas */ #define ORDER 3 /* order of field FIELD_VD2 */ #define VG_NAME "Vertices" #define VG_CLASS "Vertex Set" #define VD1_NAME "X,Y Coordinates" /* first vdata to hold X,Y...*/ #define VD1_CLASS "Position" /*...values of the vertices */ #define VD2_NAME "Temperature" /* second vdata to hold the...*/ #define VD2_CLASS "Property List" /*...temperature field */ #define VD3_NAME "Node List" /* third vdata to hold...*/ #define VD3_CLASS "Mesh" /*...the list of nodes */ #define FIELD1_VD1 "PX" /* first field of first vdata - X values */ #define FIELD2_VD1 "PY"/* second field of first vdata - Y values */ #define FIELD_VD2 "TMP"/* field of third vdata */ #define FIELD_VD3 "PLIST"/* field of second vdata */ #define FIELDNAME_LIST "PX,PY" /* field name list for first vdata */ /* Note that the second and third vdatas can use the field names as the field name lists unless more fields are added to a vdata. Then a field name list is needed for that vdata */ int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vgroup_id, vdata1_id, vdata2_id, vdata3_id; int32 num_of_records, /* number of records actually written */ vd_index; /* position of a vdata in the vgroup */ int8 i, j, k = 0; float32 pxy[N_RECORDS][2] = /* buffer for data of the first vdata */ {-1.5, 2.3, -1.5, 1.98, -2.4, .67, -3.4, 1.46, -.65, 3.1, -.62, 1.23, -.4, 3.8, -3.55, 2.3, -1.43, 2.44, .23, 1.13, -1.4, 5.43, -1.4, 5.8, -3.4, 3.85, -.55, .3, -.21, 1.22, -1.44, 1.9, -1.4, 2.8, .94, 1.78, -.4, 2.32, -.87, 1.99, -.54, 4.11, -1.5, 1.35, -1.4, 2.21, -.22, 1.8, -1.1, 4.55, -.44, .54, -1.11, 3.93, -.76, 1.9, -2.34, 1.7, -2.2, 1.21}; float32 tmp[N_RECORDS]; /* buffer for data of the second vdata */ int16 plist[N_RECORDS][3]; /* buffer for data of the third vdata */ /********************** End of variable declaration ***********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Buffer the data for the second and third vdatas. */ for (i = 0; i < N_RECORDS; i++) for (j = 0; j < ORDER; j++) plist[i][j] = ++k; for (i = 0; i < N_RECORDS; i++) tmp[i] = i * 10.0; /* * Create the vgroup then set its name and class. Note that the vgroup's * reference number is set to -1 for creating and the access mode is "w" for * writing. */ vgroup_id = Vattach (file_id, -1, "w"); status_32 = Vsetname (vgroup_id, VG_NAME); status_32 = Vsetclass (vgroup_id, VG_CLASS); /* * Create the first vdata then set its name and class. Note that the vdata's * reference number is set to -1 for creating and the access mode is "w" for * writing. */ vdata1_id = VSattach (file_id, -1, "w"); status_32 = VSsetname (vdata1_id, VD1_NAME); status_32 = VSsetclass (vdata1_id, VD1_CLASS); /* * Introduce and define the fields of the first vdata. */ status_n = VSfdefine (vdata1_id, FIELD1_VD1, DFNT_FLOAT32, 1); status_n = VSfdefine (vdata1_id, FIELD2_VD1, DFNT_FLOAT32, 1); status_n = VSsetfields (vdata1_id, FIELDNAME_LIST); /* * Write the buffered data into the first vdata with full interlace mode. */ num_of_records = VSwrite (vdata1_id, (uint8 *)pxy, N_RECORDS, FULL_INTERLACE); /* * Insert the vdata into the vgroup using its identifier. */ vd_index = Vinsert (vgroup_id, vdata1_id); /* * Detach from the first vdata. */ status_32 = VSdetach (vdata1_id); /* * Create, write, and insert the second vdata to the vgroup using * steps similar to those used for the first vdata. */ vdata2_id = VSattach (file_id, -1, "w"); status_32 = VSsetname (vdata2_id, VD2_NAME); status_32 = VSsetclass (vdata2_id, VD2_CLASS); status_n = VSfdefine (vdata2_id, FIELD_VD2, DFNT_FLOAT32, 1); status_n = VSsetfields (vdata2_id, FIELD_VD2); num_of_records = VSwrite (vdata2_id, (uint8 *)tmp, N_RECORDS, FULL_INTERLACE); vd_index = Vinsert (vgroup_id, vdata2_id); status_32 = VSdetach (vdata2_id); /* * Create, write, and insert the third vdata to the vgroup using * steps similar to those used for the first and second vdatas. */ vdata3_id = VSattach (file_id, -1, "w"); status_32 = VSsetname (vdata3_id, VD3_NAME); status_32 = VSsetclass (vdata3_id, VD3_CLASS); status_n = VSfdefine (vdata3_id, FIELD_VD3, DFNT_INT16, 3); status_n = VSsetfields (vdata3_id, FIELD_VD3); num_of_records = VSwrite (vdata3_id, (uint8 *)plist, N_RECORDS, FULL_INTERLACE); vd_index = Vinsert (vgroup_id, vdata3_id); status_32 = VSdetach (vdata3_id); /* * Terminate access to the vgroup "Vertices". */ status_32 = Vdetach (vgroup_id); /* * Terminate access to the V interface and close the HDF file. */ status_n = Vend (file_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_create_onefield_vdatas.c0000644000000000000000000000451612421456623020702 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define CLASS1_NAME "5x1 Array" #define CLASS2_NAME "6x4 Array" #define VDATA1_NAME "First Vdata" #define VDATA2_NAME "Second Vdata" #define FIELD1_NAME "Single-component Field" #define FIELD2_NAME "Multi-component Field" #define N_RECORDS_1 5 /* number of records the first vdata contains */ #define N_RECORDS_2 6 /* number of records the second vdata contains */ #define ORDER_2 4 /* order of the field in the second vdata */ /* Note that the order of the field in the first vdata is 1 */ int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32; /* returned status for functions returning an int32 */ int32 file_id, vdata1_ref, vdata2_ref; /* * Define an array to buffer the data of the first vdata. */ char8 vdata1_buf [N_RECORDS_1] = {'V', 'D', 'A', 'T', 'A'}; /* * Define an array to buffer the data of the second vdata. */ int32 vdata2_buf [N_RECORDS_2][ORDER_2] = {{1, 2, 3, 4}, {2, 4, 6, 8}, {3, 6, 9, 12}, {4, 8, 12, 16}, {5, 10, 15, 20}, {6, 12, 18, 24}}; /********************** End of variable declaration **********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Create the first vdata and populate it with data from the vdata1_buf * array. Note that the buffer vdata1_buf is cast to (uint8 *) for the * benefit of generic data type. */ vdata1_ref = VHstoredata (file_id, FIELD1_NAME, (uint8 *)vdata1_buf, N_RECORDS_1, DFNT_CHAR8, VDATA1_NAME, CLASS1_NAME); /* * Create the second vdata and populate it with data from the vdata2_buf * array. */ vdata2_ref = VHstoredatam (file_id, FIELD2_NAME, (uint8 *)vdata2_buf, N_RECORDS_2, DFNT_INT32, VDATA2_NAME, CLASS2_NAME, ORDER_2); /* * Terminate access to the VS interface and close the HDF file. */ status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/AN_read_annotation.c0000644000000000000000000000564012421456623017361 0ustar #include "hdf.h" #define FILE_NAME "General_HDFobjects.hdf" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, /* HDF file identifier */ an_id, /* AN interface identifier */ ann_id, /* an annotation identifier */ index, /* position of an annotation in all of the same type*/ ann_length, /* length of the text in an annotation */ n_file_labels, n_file_descs, n_data_labels, n_data_descs; char *ann_buf; /* buffer to hold the read annotation */ /********************** End of variable declaration **********************/ /* * Open the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the AN interface. */ an_id = ANstart (file_id); /* * Get the annotation information, e.g., the numbers of file labels, file * descriptions, data labels, and data descriptions. */ status_n = ANfileinfo (an_id, &n_file_labels, &n_file_descs, &n_data_labels, &n_data_descs); /* * Get the data labels. Note that this for loop can be used to * obtain the contents of each kind of annotation with the appropriate * number of annotations and the type of annotation, i.e., replace * n_data_labels with n_file_labels, n_file_descs, or n_data_descs, and * AN_DATA_LABEL with AN_FILE_LABEL, AN_FILE_DESC, or AN_DATA_DESC, * respectively. */ for (index = 0; index < n_data_labels; index++) { /* * Get the identifier of the current data label. */ ann_id = ANselect (an_id, index, AN_DATA_LABEL); /* * Get the length of the data label. */ ann_length = ANannlen (ann_id); /* * Allocate space for the buffer to hold the data label text. */ ann_buf = malloc ((ann_length+1) * sizeof (char)); /* * Read and display the data label. Note that the size of the buffer, * i.e., the third parameter, is 1 character more than the length of * the data label; that is for the null character. It is not the case * when a description is retrieved because the description does not * necessarily end with a null character. * */ status_32 = ANreadann (ann_id, ann_buf, ann_length+1); printf ("Data label index: %d\n", index); printf ("Data label contents: %s\n", ann_buf); /* * Terminate access to the current data label. */ status_n = ANendaccess (ann_id); /* * Free the space allocated for the annotation buffer. */ free (ann_buf); } /* * Terminate access to the AN interface and close the HDF file. */ status_32 = ANend (an_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/CMakeLists.txt0000644000000000000000000000314512421456623016230 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4_HDF_EXAMPLES C CXX) #----------------------------------------------------------------------------- # Define Sources #----------------------------------------------------------------------------- SET (examples VD_create_vdatas VD_write_mixed_vdata VD_write_mixed_vdata_struct VD_write_to_vdata VD_read_from_vdata VD_read_mixed_vdata VD_set_get_vdata_attr VD_create_onefield_vdatas VD_get_vdata_info VD_locate_vdata VG_create_vgroup # VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup VG_set_get_vgroup_attr VG_vgroup_contents VG_get_vgroup_info GR_create_and_write_image GR_modify_image GR_set_attribute GR_get_attribute GR_write_chunks GR_write_palette GR_image_info GR_read_chunks GR_read_image AN_create_annotation AN_get_annotation_info AN_read_annotation ) FOREACH (example ${examples}) ADD_EXECUTABLE (hdf_${example} ${HDF4_HDF_EXAMPLES_SOURCE_DIR}/${example}.c) TARGET_NAMING (hdf_${example} ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf_${example} " " " ") TARGET_LINK_LIBRARIES (hdf_${example} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) ENDFOREACH (example ${examples}) ADD_EXECUTABLE (hdf_VG_add_sds_to_vgroup ${HDF4_HDF_EXAMPLES_SOURCE_DIR}/VG_add_sds_to_vgroup.c) TARGET_NAMING (hdf_VG_add_sds_to_vgroup ${LIB_TYPE}) TARGET_C_PROPERTIES (hdf_VG_add_sds_to_vgroup " " " ") TARGET_LINK_LIBRARIES (hdf_VG_add_sds_to_vgroup ${HDF4_MF_LIB_TARGET} ${HDF4_SRC_LIB_TARGET} ${LINK_LIBS}) IF (BUILD_TESTING) INCLUDE (CMakeTests.cmake) ENDIF (BUILD_TESTING) libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_read_image.c0000644000000000000000000001007012421456623016274 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" #define N_COMPS 2 #define X_LENGTH 10 /* number of columns of the entire image */ #define Y_LENGTH 5 /* number of rows of the entire image */ #define PART_COLS 2 /* number of columns read for partial image */ #define PART_ROWS 3 /* number of rows read for partial image */ #define SKIP_COLS 5 /* number of columns read for skipped image */ #define SKIP_ROWS 3 /* number of rows read for skipped image */ #define COLS_PART_START 3 /* starting column to read partial image */ #define ROWS_PART_START 1 /* starting row to read partial image */ #define COLS_SKIP_START 1 /* starting column to read skipped image */ #define ROWS_SKIP_START 0 /* starting row to read skipped image */ #define N_STRIDES 2 /* number of elements to skip on each dim. */ int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 index; int32 file_id, gr_id, ri_id, start[2], /* start position to write for each dimension */ edges[2], /* number of elements to bewritten along each dimension */ stride[2], /* number of elements to skip on each dimension */ dim_sizes[2]; /* dimension sizes of the image array */ int16 entire_image[Y_LENGTH][X_LENGTH][N_COMPS], partial_image[PART_ROWS][PART_COLS][N_COMPS], skipped_image[SKIP_ROWS][SKIP_COLS][N_COMPS]; int32 i, j; /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Select the first raster image in the file. */ ri_id = GRselect (gr_id, 0); /* * Define the size of the data to be read, i.e., start from the origin * and go as long as the length of each dimension. */ start[0] = start[1] = 0; edges[0] = X_LENGTH; edges[1] = Y_LENGTH; /* * Read the data from the raster image array. */ status = GRreadimage (ri_id, start, NULL, edges, (VOIDP)entire_image); /* * Display only the first component of the image since the two components * have the same data in this example. */ printf ("First component of the entire image:\n"); for (i = 0; i < Y_LENGTH; i++) { for (j = 0; j < X_LENGTH; j++) printf ("%d ", entire_image[i][j][0]); printf ("\n"); } /* * Define the size of the data to be read. */ start[0] = COLS_PART_START; start[1] = ROWS_PART_START; edges[0] = PART_COLS; edges[1] = PART_ROWS; /* * Read a subset of the raster image array. */ status = GRreadimage (ri_id, start, NULL, edges, (VOIDP)partial_image); /* * Display the first component of the read sample. */ printf ("\nThree rows & two cols at 2nd row and 4th column"); printf (" of the first component:\n"); for (i = 0; i < PART_ROWS; i++) { for (j = 0; j < PART_COLS; j++) printf ("%d ", partial_image[i][j][0]); printf ("\n"); } /* * Define the size and the pattern to read the data. */ start[0] = COLS_SKIP_START; start[1] = ROWS_SKIP_START; edges[0] = SKIP_COLS; edges[1] = SKIP_ROWS; stride[0] = stride[1] = N_STRIDES; /* * Read all the odd rows and even columns of the image. */ status = GRreadimage (ri_id, start, stride, edges, (VOIDP)skipped_image); /* * Display the first component of the read sample. */ printf ("\nAll odd rows and even columns of the first component:\n"); for (i = 0; i < SKIP_ROWS; i++) { for (j = 0; j < SKIP_COLS; j++) printf ("%d ", skipped_image[i][j][0]); printf ("\n"); } /* * Terminate access to the raster image and to the GR interface, and * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_write_palette.c0000644000000000000000000000576212421456623017103 0ustar #include "hdf.h" #define FILE_NAME "Image_with_Palette.hdf" #define NEW_IMAGE_NAME "Image with Palette" #define N_COMPS_IMG 2 /* number of image components */ #define X_LENGTH 5 /* number of rows in the image */ #define Y_LENGTH 5 /* number of columns in the image */ #define N_ENTRIES 256 /* number of entries in the palette */ #define N_COMPS_PAL 3 /* number of palette's components */ int main( ) { /************************* Variable declaration **************************/ intn status, /* status for functions returning an intn */ i, j; int32 file_id, gr_id, ri_id, pal_id, interlace_mode, start[2], /* holds where to start to write for each dimension */ edges[2], /* holds how long to write for each dimension */ dim_sizes[2]; /* sizes of the two dimensions of the image array */ uint8 image_buf[Y_LENGTH][X_LENGTH][N_COMPS_IMG]; /* data of first image */ uint8 palette_buf[N_ENTRIES][N_COMPS_PAL]; /********************** End of variable declaration **********************/ /* * Open the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Define the dimensions and interlace mode of the image. */ dim_sizes[0] = X_LENGTH; dim_sizes[1] = Y_LENGTH; interlace_mode = MFGR_INTERLACE_PIXEL; /* * Create the image named NEW_IMAGE_NAME. */ ri_id = GRcreate (gr_id, NEW_IMAGE_NAME, N_COMPS_IMG, DFNT_UINT8, interlace_mode, dim_sizes); /* * Fill the image data buffer with values. */ for (i = 0; i < Y_LENGTH; i++) { for (j = 0; j < X_LENGTH; j++) { image_buf[i][j][0] = (i + j) + 1; image_buf[i][j][1] = (i + j) + 2; } } /* * Define the size of the data to be written, i.e., start from the origin * and go as long as the length of each dimension. */ start[0] = start[1] = 0; edges[0] = X_LENGTH; edges[1] = Y_LENGTH; /* * Write the data in the buffer into the image array. */ status = GRwriteimage (ri_id, start, NULL, edges, (VOIDP)image_buf); /* * Initialize the palette to grayscale. */ for (i = 0; i < N_ENTRIES; i++) { palette_buf[i][0] = i; palette_buf[i][1] = i; palette_buf[i][2] = i; } /* * Define palette interlace mode. */ interlace_mode = MFGR_INTERLACE_PIXEL; /* * Get the identifier of the palette attached to the image NEW_IMAGE_NAME. */ pal_id = GRgetlutid (ri_id, 0); /* * Write data to the palette. */ status = GRwritelut (pal_id, N_COMPS_PAL, DFNT_UINT8, interlace_mode, N_ENTRIES, (VOIDP)palette_buf); /* * Terminate access to the image and to the GR interface, and * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/AN_create_annotation.c0000644000000000000000000000657412421456623017720 0ustar #include "hdf.h" #define FILE_NAME "General_HDFobjects.hdf" #define VG_NAME "AN Vgroup" #define FILE_LABEL_TXT "General HDF objects" #define FILE_DESC_TXT "This is an HDF file that contains general HDF objects" #define DATA_LABEL_TXT "Common AN Vgroup" #define DATA_DESC_TXT "This is a vgroup that is used to test data annotations" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, /* HDF file identifier */ an_id, /* AN interface identifier */ file_label_id, /* file label identifier */ file_desc_id, /* file description identifier */ data_label_id, /* data label identifier */ data_desc_id, /* data description identifier */ vgroup_id; uint16 vgroup_tag, vgroup_ref; /********************** End of variable declaration **********************/ /* * Create the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the AN interface. */ an_id = ANstart (file_id); /* * Create the file label. */ file_label_id = ANcreatef (an_id, AN_FILE_LABEL); /* * Write the annotations to the file label. */ status_32 = ANwriteann (file_label_id, FILE_LABEL_TXT, strlen (FILE_LABEL_TXT)); /* * Create file description. */ file_desc_id = ANcreatef (an_id, AN_FILE_DESC); /* * Write the annotation to the file description. */ status_32 = ANwriteann (file_desc_id, FILE_DESC_TXT, strlen (FILE_DESC_TXT)); /* * Create a vgroup in the V interface. Note that the vgroup's ref number * is set to -1 for creating and the access mode is "w" for writing. */ status_n = Vstart (file_id); vgroup_id = Vattach (file_id, -1, "w"); status_32 = Vsetname (vgroup_id, VG_NAME); /* * Obtain the tag and ref number of the vgroup for subsequent * references. */ vgroup_tag = (uint16) VQuerytag (vgroup_id); vgroup_ref = (uint16) VQueryref (vgroup_id); /* * Create the data label for the vgroup identified by its tag * and ref number. */ data_label_id = ANcreate (an_id, vgroup_tag, vgroup_ref, AN_DATA_LABEL); /* * Write the annotation text to the data label. */ status_32 = ANwriteann (data_label_id, DATA_LABEL_TXT, strlen (DATA_LABEL_TXT)); /* * Create the data description for the vgroup identified by its tag * and ref number. */ data_desc_id = ANcreate (an_id, vgroup_tag, vgroup_ref, AN_DATA_DESC); /* * Write the annotation text to the data description. */ status_32 = ANwriteann (data_desc_id, DATA_DESC_TXT, strlen (DATA_DESC_TXT)); /* * Teminate access to the vgroup and to the V interface. */ status_32 = Vdetach (vgroup_id); status_n = Vend (file_id); /* * Terminate access to each annotation explicitly. */ status_n = ANendaccess (file_label_id); status_n = ANendaccess (file_desc_id); status_n = ANendaccess (data_label_id); status_n = ANendaccess (data_desc_id); /* * Terminate access to the AN interface and close the HDF file. */ status_32 = ANend (an_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_read_from_vdata.c0000644000000000000000000000566112421456623017347 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define VDATA_NAME "Solid Particle" #define N_RECORDS 5 /* number of records the vdata contains */ #define RECORD_INDEX 3 /* position where reading starts - 4th record */ #define ORDER_1 3 /* order of first field to be read */ #define ORDER_2 2 /* order of second field to be read */ #define FIELDNAME_LIST "Position,Temperature" /* only two fields are read */ #define N_VALS_PER_REC (ORDER_1 + ORDER_2) /* number of values per record */ int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, vdata_ref, /* vdata's reference number */ num_of_records, /* number of records actually written to the vdata */ record_pos; /* position of the current record */ int16 i, rec_num; /* current record number in the vdata */ float32 databuf[N_RECORDS][N_VALS_PER_REC]; /* buffer for vdata values */ /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Get the reference number of the vdata, whose name is specified in * VDATA_NAME, using VSfind, which will be discussed in Section 4.7.3. */ vdata_ref = VSfind (file_id, VDATA_NAME); /* * Attach to the vdata for reading if it is found, otherwise * exit the program. */ if (vdata_ref == 0) exit; vdata_id = VSattach (file_id, vdata_ref, "r"); /* * Specify the fields that will be read. */ status_n = VSsetfields (vdata_id, FIELDNAME_LIST); /* * Place the current point to the position specified in RECORD_INDEX. */ record_pos = VSseek (vdata_id, RECORD_INDEX); /* * Read the next N_RECORDS records from the vdata and store the data * in the buffer databuf with fully interlaced mode. */ num_of_records = VSread (vdata_id, (uint8 *)databuf, N_RECORDS, FULL_INTERLACE); /* * Display the read data as many records as the number of records * returned by VSread. */ printf ("\n Particle Position Temperature Range\n\n"); for (rec_num = 0; rec_num < num_of_records; rec_num++) { printf (" %6.2f, %6.2f, %6.2f %6.2f, %6.2f\n", databuf[rec_num][0], databuf[rec_num][1], databuf[rec_num][2], databuf[rec_num][3], databuf[rec_num][4]); } /* * Terminate access to the vdata and to the VS interface, then close * the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/Makefile.am0000644000000000000000000001010212421456623015513 0ustar ############################################################################# ## Setup for building programs ## ############################################################################# include $(top_srcdir)/config/commence.am DEFINES=-DNDEBUG -DHDF ############################################################################# ## Programs to build ## ############################################################################# EXAMPLE_PROG = VD_create_vdatas VD_write_mixed_vdata \ VD_write_mixed_vdata_struct VD_write_to_vdata \ VD_read_from_vdata VD_read_mixed_vdata \ VD_set_get_vdata_attr VD_create_onefield_vdatas \ VD_get_vdata_info VD_locate_vdata VG_create_vgroup \ VG_add_sds_to_vgroup VG_insert_vdatas_to_vgroup \ VG_set_get_vgroup_attr VG_vgroup_contents \ VG_get_vgroup_info GR_create_and_write_image \ GR_modify_image GR_set_attribute GR_get_attribute \ GR_write_palette GR_read_palette GR_image_info \ GR_read_image GR_write_chunks GR_read_chunks \ AN_create_annotation AN_get_annotation_info AN_read_annotation TEST_PROG = $(EXAMPLE_PROG) # These are the C example files to be installed INSTALL_FILES= VD_read_from_vdata.c VD_read_mixed_vdata.c \ VD_set_get_vdata_attr.c VD_write_mixed_vdata.c \ VD_write_mixed_vdata_struct.c VD_write_to_vdata.c \ VD_create_onefield_vdatas.c VD_create_vdatas.c \ VD_get_vdata_info.c VD_locate_vdata.c \ VG_insert_vdatas_to_vgroup.c VG_set_get_vgroup_attr.c \ VG_vgroup_contents.c VG_add_sds_to_vgroup.c \ VG_create_vgroup.c VG_get_vgroup_info.c \ GR_create_and_write_image.c GR_get_attribute.c \ GR_image_info.c GR_modify_image.c GR_read_image.c \ GR_read_palette.c GR_set_attribute.c \ GR_write_palette.c GR_write_chunks.c GR_read_chunks.c \ AN_create_annotation.c AN_get_annotation_info.c \ AN_read_annotation.c INSTALL_SCRIPT_FILES = run-c-ex.sh INSTALL_TOP_SCRIPT_FILES = run-all-ex.sh INSTALL_TOP_FILES = README # Where to install example files EXAMPLEDIR=$(prefix)/examples/c EXAMPLETOPDIR=$(prefix)/examples # How to build C programs using h4cc $(EXTRA_PROG): $(H4CC) $(H4CC) $(H4CCFLAGS) $(CFLAGS) -o $@ $(srcdir)/$@.c; # List dependencies for each program. Normally, automake would take # care of this for us, but if we tell automake about the programs it # will try to build them with the normal C compiler, not h4cc. # C Programs VD_read_from_vdata: $(srcdir)/VD_read_from_vdata.c VD_read_mixed_vdata: $(srcdir)/VD_read_mixed_vdata.c VD_set_get_vdata_attr: $(srcdir)/VD_set_get_vdata_attr.c VD_write_mixed_vdata: $(srcdir)/VD_write_mixed_vdata.c VD_write_mixed_vdata_struct: $(srcdir)/VD_write_mixed_vdata_struct.c VD_write_to_vdata: $(srcdir)/VD_write_to_vdata.c VD_create_onefield_vdatas: $(srcdir)/VD_create_onefield_vdatas.c VD_create_vdatas: $(srcdir)/VD_create_vdatas.c VD_get_vdata_info: $(srcdir)/VD_get_vdata_info.c VD_locate_vdata: $(srcdir)/VD_locate_vdata.c VG_insert_vdatas_to_vgroup: $(srcdir)/VG_insert_vdatas_to_vgroup.c VG_set_get_vgroup_attr: $(srcdir)/VG_set_get_vgroup_attr.c VG_vgroup_contents: $(srcdir)/VG_vgroup_contents.c VG_add_sds_to_vgroup: $(srcdir)/VG_add_sds_to_vgroup.c VG_create_vgroup: $(srcdir)/VG_create_vgroup.c VG_get_vgroup_info: $(srcdir)/VG_get_vgroup_info.c GR_create_and_write_image: $(srcdir)/GR_create_and_write_image.c GR_get_attribute: $(srcdir)/GR_get_attribute.c GR_image_info: $(srcdir)/GR_image_info.c GR_modify_image: $(srcdir)/GR_modify_image.c GR_read_chunks: $(srcdir)/GR_read_chunks.c GR_read_image: $(srcdir)/GR_read_image.c GR_read_palette: $(srcdir)/GR_read_palette.c GR_set_attribute: $(srcdir)/GR_set_attribute.c GR_write_chunks: $(srcdir)/GR_write_chunks.c GR_write_palette: $(srcdir)/GR_write_palette.c AN_create_annotation: $(srcdir)/AN_create_annotation.c AN_get_annotation_info: $(srcdir)/AN_get_annotation_info.c AN_read_annotation: $(srcdir)/AN_read_annotation.c DISTCLEANFILES = *.chkexe *.chklog if BUILD_SHARED_SZIP_CONDITIONAL LD_LIBRARY_PATH=$(LL_PATH) endif include $(top_srcdir)/config/examples.am include $(top_srcdir)/config/conclude.am libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_write_mixed_vdata_struct.c0000644000000000000000000001267612421456623021341 0ustar /* Example 4_struct. Writing a multi-field and mixed-type vdata with packing - using struct instead of array to buffer field values. This example illustrates the use of VSfpack and VSwrite to write a vdata with data of different types. The problem in this example is identical to that in Example 4 of Chapter Vdata in the User's Guide. However, the two programs differ in the implementation of the data structures that hold the user's data. In this example, the program creates an HDF file named "Packed_Vdata.hdf" then defines a vdata, which is named "Mixed Data Vdata" and belongs to class "General Data Class". The vdata contains four order-1 fields, "Temp", "Height", "Speed", and "Ident" of type float32, int16, float32, and char, respectively. The program then packs the data in fully interlaced mode into a buffer and writes the packed data to the vdata. Note that, in this example, each VSfpack call packs 1 record while in Example 4, a VSfpack call packs all N_RECORDS. This difference is the result of using an array of structs in this example to hold the field values instead of individual arrays as in Example 4. */ #include "hdf.h" #define FILE_NAME "Packed_Vdata.hdf" #define VDATA_NAME "Mixed Data Vdata" #define CLASS_NAME "General Data Class" #define N_RECORDS 20 /* number of records the vdata contains */ #define N_FIELDS 4 /* number of fields in the vdata */ #define FIELD1_NAME "Temp" #define FIELD2_NAME "Height" #define FIELD3_NAME "Speed" #define FIELD4_NAME "Ident" #define FIELDNAME_LIST "Temp,Height,Speed,Ident" /* No spaces b/w names */ /* RECORD_SIZE is the number of bytes of all the field values combined and BUFFER_SIZE is the number of bytes of data to be written */ #define RECORD_SIZE (2 * sizeof(float32) + sizeof(int16) + sizeof(char)) #define BUFFER_SIZE (RECORD_SIZE * N_RECORDS) int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, num_of_records; /* number of records actually written to the vdata */ uint8 databuf[BUFFER_SIZE];/* buffer to hold the data after being packed */ uint8 *pntr; /* pointer pointing to the current record in the data buffer*/ int16 rec_num; /* current record number */ struct { float32 temp; /* to hold value of the first field of the vdata */ int16 height;/* to hold value of the second field of the vdata */ float32 speed; /* to hold value of the third field of the vdata */ char ident; /* to hold value of the fourth field of the vdata */ } source[N_RECORDS]; /* pointers to be pointing to the fields in the struct buffer */ VOIDP fldbufptrs[N_FIELDS]; /********************** End of variable declaration **********************/ /* * Create the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Create a new vdata. */ vdata_id = VSattach (file_id, -1, "w"); /* * Set name and class name of the vdata. */ status_32 = VSsetname (vdata_id, VDATA_NAME); status_32 = VSsetclass (vdata_id, CLASS_NAME); /* * Introduce each field's name, data type, and order. This is the first * part in defining a vdata field. */ status_n = VSfdefine (vdata_id, FIELD1_NAME, DFNT_FLOAT32, 1); status_n = VSfdefine (vdata_id, FIELD2_NAME, DFNT_INT16, 1); status_n = VSfdefine (vdata_id, FIELD3_NAME, DFNT_FLOAT32, 1); status_n = VSfdefine (vdata_id, FIELD4_NAME, DFNT_CHAR8, 1); /* * Finalize the definition of the fields to be written to. */ status_n = VSsetfields (vdata_id, FIELDNAME_LIST); /* * Initialize pointer for traversing the buffer to pack each record. */ pntr = &databuf[0]; /* * Enter data values into each record. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { source[rec_num].temp = 1.11 * (rec_num+1); source[rec_num].height = rec_num; source[rec_num].speed = 1.11 * (rec_num+1); source[rec_num].ident = 'A' + rec_num; } /* * Pack one record at a time. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { /* * Build an array of pointers each of which points to a space that * holds the value of the corresponding field in this record. */ fldbufptrs[0] = &source[rec_num].temp; fldbufptrs[1] = &source[rec_num].height; fldbufptrs[2] = &source[rec_num].speed; fldbufptrs[3] = &source[rec_num].ident; /* * Pack the data in the field buffers into the data buffer at the * current record, i.e. indicated by "pntr". */ status_n = VSfpack (vdata_id,_HDF_VSPACK, NULL, (VOIDP)pntr, RECORD_SIZE, 1, NULL, fldbufptrs); /* * Advance the current position in the buffer. */ pntr = pntr + RECORD_SIZE; } /* * Write all records of the packed data to the vdata. */ num_of_records = VSwrite (vdata_id, (uint8 *)databuf, N_RECORDS, FULL_INTERLACE); /* * Terminate access to the Vdata and the VS interface, * then close the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_get_attribute.c0000644000000000000000000001044512421456623017067 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" #define RI_ATTR_NAME "Image Attribute 2" int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 gr_id, ri_id, file_id, f_att_index, /* index of file attributes */ ri_att_index, /* index of raster image attributes */ data_type, /* image data type */ n_values, /* number of values in an attribute */ value_index, /* index of values in an attribute */ n_rimages, /* number of raster images in the file */ n_file_attrs; /* number of file attributes */ char attr_name[H4_MAX_GR_NAME]; /* buffer to hold the attribute name */ VOIDP data_buf; /* buffer to hold the attribute values */ int16 *int_ptr; /* int16 pointer to point to a void data buffer */ char8 *char_ptr; /* char8 pointer to point to a void data buffer */ /********************** End of variable declaration **********************/ /* * Open the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Determine the number of attributes in the file. */ status = GRfileinfo (gr_id, &n_rimages, &n_file_attrs); if (status != FAIL && n_file_attrs > 0) { for (f_att_index = 0; f_att_index < n_file_attrs; f_att_index++) { /* * Get information about the current file attribute. */ status = GRattrinfo (gr_id, f_att_index, attr_name, &data_type, &n_values); /* * Allocate a buffer to hold the file attribute data. In this example, * knowledge about the data type is assumed to be available from * the previous example for simplicity. In reality, the size * of the type must be determined based on the machine where the * program resides. */ if (data_type == DFNT_CHAR8) { data_buf = malloc (n_values * sizeof (char8)); if (data_buf == NULL) { printf ("Unable to allocate space for attribute data.\n"); exit (1); } } else { printf ("Unable to determine data type to allocate data buffer.\n"); exit (1); } /* * Read and display the attribute values. */ status = GRgetattr (gr_id, f_att_index, (VOIDP)data_buf); char_ptr = (char8 *) data_buf; printf ("Attribute %s: ", attr_name); for (value_index = 0; value_index < n_values; value_index++) printf ("%c", char_ptr[value_index]); printf ("\n"); /* * Free the space allocated for the data buffer. */ free (data_buf); } /* for */ } /* if */ /* * Select the second image in the file. */ ri_id = GRselect (gr_id, 1); /* * Find the image attribute named RI_ATTR_NAME. */ ri_att_index = GRfindattr (ri_id, RI_ATTR_NAME); /* * Get information about the attribute. */ status = GRattrinfo (ri_id, ri_att_index, attr_name, &data_type, &n_values); /* * Allocate a buffer to hold the file attribute data. As mentioned above, * knowledge about the data type is assumed to be available from * the previous example for simplicity. In reality, the size of the * type must be determined based on the machine where the program resides. */ if (data_type == DFNT_INT16) data_buf = malloc (n_values * sizeof (int16)); /* * Read and display the attribute values. */ status = GRgetattr (ri_id, ri_att_index, (VOIDP)data_buf); printf ("\nAttribute %s: ", RI_ATTR_NAME); int_ptr = (int16 *)data_buf; for (value_index = 0; value_index < n_values; value_index++) printf ("%d ", int_ptr[value_index]); printf ("\n"); /* * Free the space allocated for the data buffer. */ free (data_buf); /* * Terminate access to the raster image and to the GR interface, and * close the file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_create_and_write_image.c0000644000000000000000000000476212421456623020673 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" #define IMAGE_NAME "Image Array 1" #define X_LENGTH 10 /* number of columns in the image */ #define Y_LENGTH 5 /* number of rows in the image */ #define N_COMPS 2 /* number of components in the image */ int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ start[2], /* start position to write for each dimension */ edges[2], /* number of elements to be written along each dimension */ dim_sizes[2], /* dimension sizes of the image array */ interlace_mode, /* interlace mode of the image */ data_type, /* data type of the image data */ i, j; int16 image_buf[Y_LENGTH][X_LENGTH][N_COMPS]; /********************** End of variable declaration **********************/ /* * Create and open the file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Set the data type, interlace mode, and dimensions of the image. */ data_type = DFNT_INT16; interlace_mode = MFGR_INTERLACE_PIXEL; dim_sizes[0] = X_LENGTH; dim_sizes[1] = Y_LENGTH; /* * Create the raster image array. */ ri_id = GRcreate (gr_id, IMAGE_NAME, N_COMPS, data_type, interlace_mode, dim_sizes); /* * Fill the image data buffer with values. */ for (i = 0; i < Y_LENGTH; i++) { for (j = 0; j < X_LENGTH; j++) { image_buf[i][j][0] = (i + j) + 1; /* first component */ image_buf[i][j][1] = (i + j) + 1; /* second component */ } } /* * Define the size of the data to be written, i.e., start from the origin * and go as long as the length of each dimension. */ start[0] = start[1] = 0; edges[0] = X_LENGTH; edges[1] = Y_LENGTH; /* * Write the data in the buffer into the image array. */ status = GRwriteimage(ri_id, start, NULL, edges, (VOIDP)image_buf); /* * Terminate access to the raster image and to the GR interface and, * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_vgroup_contents.c0000644000000000000000000000622112421456623017465 0ustar #include "hdf.h" #define FILE_NAME "General_Vgroups.hdf" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vgroup_id, vgroup_ref, obj_index, /* index of an object within a vgroup */ num_of_pairs, /* number of tag/ref number pairs, i.e., objects */ obj_tag, obj_ref, /* tag/ref number of an HDF object */ vgroup_pos = 0; /* position of a vgroup in the file */ /********************** End of variable declaration ***********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Obtain each vgroup in the file by its reference number, get the * number of objects in the vgroup, and display the information about * that vgroup. */ vgroup_ref = -1; /* set to -1 to search from the beginning of file */ while (TRUE) { /* * Get the reference number of the next vgroup in the file. */ vgroup_ref = Vgetid (file_id, vgroup_ref); /* * Attach to the vgroup for reading or exit the loop if no more vgroups * are found. */ if (vgroup_ref == -1) break; vgroup_id = Vattach (file_id, vgroup_ref, "r"); /* * Get the total number of objects in the vgroup. */ num_of_pairs = Vntagrefs (vgroup_id); /* * If the vgroup contains any object, print the tag/ref number * pair of each object in the vgroup, in the order they appear in the * file, and indicate whether the object is a vdata, vgroup, or neither. */ if (num_of_pairs > 0) { printf ("\nVgroup #%d contains:\n", vgroup_pos); for (obj_index = 0; obj_index < num_of_pairs; obj_index++) { /* * Get the tag/ref number pair of the object specified * by its index, obj_index, and display them. */ status_n = Vgettagref (vgroup_id, obj_index, &obj_tag, &obj_ref); printf ("tag = %d, ref = %d", obj_tag, obj_ref); /* * State whether the HDF object referred to by obj_ref is a vdata, * a vgroup, or neither. */ if (Visvg (vgroup_id, obj_ref)) printf (" <-- is a vgroup\n"); else if (Visvs (vgroup_id, obj_ref)) printf (" <-- is a vdata\n"); else printf (" <-- neither vdata nor vgroup\n"); } /* for */ } /* if */ else printf ("Vgroup #%d contains no HDF objects\n", vgroup_pos); /* * Terminate access to the current vgroup. */ status_32 = Vdetach (vgroup_id); /* * Move to the next vgroup position. */ vgroup_pos++; } /* while */ /* * Terminate access to the V interface and close the file. */ status_n = Vend (file_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_create_vdatas.c0000644000000000000000000000551212421456623017032 0ustar #include "hdf.h" #define FILE1_NAME "General_Vdatas.hdf" #define FILE2_NAME "Two_Vdatas.hdf" #define VDATA_NAME "Vdata 1" #define VDATA_CLASS "Empty Vdatas" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file1_id, file2_id, vdata_id, vdata1_id, vdata2_id, vdata_ref = -1; /* ref number of a vdata, set to -1 to create */ /********************** End of variable declaration **********************/ /* * Create the first HDF file. */ file1_id = Hopen (FILE1_NAME, DFACC_CREATE, 0); /* * Initialize the VS interface associated with the first HDF file. */ status_n = Vstart (file1_id); /* * Create a vdata in the first HDF file. */ vdata_id = VSattach (file1_id, vdata_ref, "w"); /* * Assign a name to the vdata. */ status_32 = VSsetname (vdata_id, VDATA_NAME); /* * Other operations on the vdata identified by vdata_id can be carried * out starting from this point. */ /* * Create the second HDF file. */ file2_id = Hopen (FILE2_NAME, DFACC_CREATE, 0); /* * Initialize the VS interface associated with the second HDF file. */ status_n = Vstart (file2_id); /* * Create the first vdata in the second HDF file. */ vdata1_id = VSattach (file2_id, vdata_ref, "w"); /* * Create the second vdata in the second HDF file. */ vdata2_id = VSattach (file2_id, vdata_ref, "w"); /* * Assign a class name to these vdatas. */ status_32 = VSsetclass (vdata1_id, VDATA_CLASS); status_32 = VSsetclass (vdata2_id, VDATA_CLASS); /* * Other operations on the vdatas identified by vdata1_id and vdata2_id * can be carried out starting from this point. */ /* * Terminate access to the first vdata in the second HDF file. */ status_32 = VSdetach (vdata1_id); /* * Terminate access to the second vdata in the second HDF file. */ status_32 = VSdetach (vdata2_id); /* * From this point on, any operations on the vdatas identified by vdata1_id and vdata2_id are invalid but not on the vdata identified by vdata_id. */ /* * Terminate access to the VS interface associated with the second HDF file. */ status_n = Vend (file2_id); /* * Close the second HDF file. */ status_n = Hclose (file2_id); /* * Terminate access to the vdata in the first HDF file. */ status_32 = VSdetach (vdata_id); /* * Terminate access to the VS interface associated with the first HDF file. */ status_n = Vend (file1_id); /* * Close the first HDF file. */ status_n = Hclose (file1_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_write_mixed_vdata.c0000644000000000000000000000765112421456623017732 0ustar #include "hdf.h" #define FILE_NAME "Packed_Vdata.hdf" #define VDATA_NAME "Mixed Data Vdata" #define CLASS_NAME "General Data Class" #define FIELD1_NAME "Temp" #define FIELD2_NAME "Height" #define FIELD3_NAME "Speed" #define FIELD4_NAME "Ident" #define ORDER 1 /* number of values in the field */ #define N_RECORDS 20 /* number of records the vdata contains */ #define N_FIELDS 4 /* number of fields in the vdata */ #define FIELDNAME_LIST "Temp,Height,Speed,Ident" /* No spaces b/w names */ /* number of bytes of the data to be written, i.e., the size of all the field values combined times the number of records */ #define BUF_SIZE (2*sizeof(float32) + sizeof(int16) + sizeof(char)) * N_RECORDS int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, vdata_ref = -1, /* vdata's reference number, set to -1 to create */ num_of_records; /* number of records actually written to the vdata */ float32 temp[N_RECORDS]; /* buffer to hold values of first field */ int16 height[N_RECORDS]; /* buffer to hold values of second field */ float32 speed[N_RECORDS]; /* buffer to hold values of third field */ char8 ident[N_RECORDS]; /* buffer to hold values of fourth field */ VOIDP fldbufptrs[N_FIELDS];/*pointers to be pointing to the field buffers*/ uint16 databuf[BUF_SIZE]; /* buffer to hold the data after being packed*/ int i; /********************** End of variable declaration **********************/ /* * Create an HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Create a new vdata. */ vdata_id = VSattach (file_id, vdata_ref, "w"); /* * Set name and class name of the vdata. */ status_32 = VSsetname (vdata_id, VDATA_NAME); status_32 = VSsetclass (vdata_id, CLASS_NAME); /* * Introduce each field's name, data type, and order. This is the first * part in defining a vdata field. */ status_n = VSfdefine (vdata_id, FIELD1_NAME, DFNT_FLOAT32, ORDER); status_n = VSfdefine (vdata_id, FIELD2_NAME, DFNT_INT16, ORDER); status_n = VSfdefine (vdata_id, FIELD3_NAME, DFNT_FLOAT32, ORDER); status_n = VSfdefine (vdata_id, FIELD4_NAME, DFNT_CHAR8, ORDER); /* * Finalize the definition of the fields of the vdata. */ status_n = VSsetfields (vdata_id, FIELDNAME_LIST); /* * Enter data values into the field buffers by the records. */ for (i = 0; i < N_RECORDS; i++) { temp[i] = 1.11 * (i+1); height[i] = i; speed[i] = 1.11 * (i+1); ident[i] = 'A' + i; } /* * Build an array of pointers each of which points to a field buffer that * holds all values of the field. */ fldbufptrs[0] = &temp[0]; fldbufptrs[1] = &height[0]; fldbufptrs[2] = &speed[0]; fldbufptrs[3] = &ident[0]; /* * Pack all data in the field buffers that are pointed to by the set of * pointers fldbufptrs, and store the packed data into the buffer * databuf. Note that the second parameter is _HDF_VSPACK for packing. */ status_n = VSfpack (vdata_id,_HDF_VSPACK, NULL, (VOIDP)databuf, BUF_SIZE, N_RECORDS, NULL, (VOIDP)fldbufptrs); /* * Write all records of the packed data to the vdata. */ num_of_records = VSwrite (vdata_id, (uint8 *)databuf, N_RECORDS, FULL_INTERLACE); /* * Terminate access to the vdata and the VS interface, then close * the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/README0000644000000000000000000000245012421456623014346 0ustar HDF4 Examples This directory contains example programs for the installed APIs and scripts to compile and run them. Examples in the c subdirectory are always installed, and those in the fortan subdirectory will be installed when fortran is enabled. Running the run-all-ex.sh script in this directory will run the scripts and in turn the examples in the subdirectories where examples are installed. The scripts can also be run individually. The appropriate compile scripts in the bin directory for this install will be used by default to compile and link the example programs. Note that h5redeploy must be run if these binaries are copied or extracted in a directory other than the one where they were initially installed. Compile scripts from other locations can be used by setting an environment variable prefix to the path of the directory containing the bin directory with the compile scripts h4cc and h4fc. For example, export prefix=/usr/local/hdf4 to use h4cc and h5fc in /usr/local/hdf4/bin. Running HDF4 examples built with shared libraries not in system locations may result in an error message "...error while loading shared libraries: ...". Setting LD_LIBRARY_PATH to include the directory containing the missing library should allow the examples to run. libhdf4-4.2.10/HDF_ALT/hdf/examples/AN_get_annotation_info.c0000644000000000000000000000660312421456623020240 0ustar #include "hdf.h" #define FILE_NAME "General_HDFobjects.hdf" #define VG_NAME "AN Vgroup" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32*/ file_id, an_id, ann_id, n_annots, /* number of annotations */ *ann_list, /* list of annotation identifiers */ vgroup_ref, /* reference number of the vgroup */ index; /* index of an annotation in the annotation list */ ann_type annot_type = AN_DATA_DESC; /* annotation to be obtained*/ uint16 ann_tag, ann_ref, /* tag/ref number of an annotation */ vgroup_tag = DFTAG_VG; /* tag of the vgroup */ /********************** End of variable declaration **********************/ /* * Create the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Get the vgroup named VG_NAME. */ vgroup_ref = Vfind (file_id, VG_NAME); /* * Initialize the AN interface and obtain an interface id. */ an_id = ANstart (file_id); /* * Get the number of object descriptions. Note that, since ANnumann takes * the tag and reference number as being of type unit16, vgroup_ref must be * safely cast to uint16 by checking for FAIL value first. */ if (vgroup_ref != FAIL) { n_annots = ANnumann (an_id, annot_type, vgroup_tag, (uint16)vgroup_ref); /* * Allocate space to hold the annotation identifiers. */ ann_list = malloc (n_annots * sizeof (int32)); /* * Get the list of identifiers of the annotations attached to the * vgroup and of type annot_type. */ n_annots = ANannlist (an_id, annot_type, vgroup_tag, (uint16)vgroup_ref, ann_list); /* * Get each annotation identifier from the list then display the * tag/ref number pair of the corresponding annotation. */ printf ("List of annotations of type AN_DATA_DESC:\n"); for (index = 0; index < n_annots; index++) { /* * Get and display the ref number of the annotation from * its identifier. */ status_32 = ANid2tagref (ann_list[index], &ann_tag, &ann_ref); printf ("Annotation index %d: tag = %s\nreference number= %d\n", index, ann_tag == DFTAG_DIA ? "DFTAG_DIA (data description)": "Incorrect", ann_ref); } /* for */ } /* for */ /* * Get and display an annotation type from an annotation tag. */ annot_type = ANtag2atype (DFTAG_FID); printf ("\nAnnotation type of DFTAG_FID (file label) is %s\n", annot_type == AN_FILE_LABEL ? "AN_FILE_LABEL":"Incorrect"); /* * Get and display an annotation tag from an annotation type. */ ann_tag = ANatype2tag (AN_DATA_LABEL); printf ("\nAnnotation tag of AN_DATA_LABEL is %s\n", ann_tag == DFTAG_DIL ? "DFTAG_DIL (data label)":"Incorrect"); /* * Terminate access to the AN interface and close the HDF file. */ status_32 = ANend (an_id); status_n = Hclose (file_id); /* * Free the space allocated for the annotation identifier list. */ free (ann_list); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_locate_vdata.c0000644000000000000000000000446312421456623016657 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define SEARCHED_FIELDS "Position,Temperature" int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, vdata_ref, index = 0; /* index of the vdata in the file - manually kept */ int8 found_fields; /* TRUE if the specified fields exist in the vdata */ /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Set the reference number to -1 to start the search from * the beginning of file. */ vdata_ref = -1; /* * Assume that the specified fields are not found in the current vdata. */ found_fields = FALSE; /* * Use VSgetid to obtain each vdata by its reference number then * attach to the vdata and search for the fields. The loop * terminates when the last vdata is reached or when a vdata which * contains the fields listed in SEARCHED_FIELDS is found. */ while ((vdata_ref = VSgetid (file_id, vdata_ref)) != FAIL) { vdata_id = VSattach (file_id, vdata_ref, "r"); if ((status_n = VSfexist (vdata_id, SEARCHED_FIELDS)) != FAIL) { found_fields = TRUE; break; } /* * Detach from the current vdata before continuing searching. */ status_32 = VSdetach (vdata_id); index++; /* advance the index by 1 for the next vdata */ } /* * Print the index of the vdata containing the fields or a "not found" * message if no such vdata is found. Also detach from the vdata found. */ if (!found_fields) printf ("Fields Position and Temperature were not found.\n"); else { printf ("Fields Position and Temperature found in the vdata at position %d\n", index); status_32 = VSdetach (vdata_id); } /* * Terminate access to the VS interface and close the HDF file. */ status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_read_chunks.c0000644000000000000000000000464612421456623016521 0ustar #include "hdf.h" #define FILE_NAME "Image_Chunked.hdf" #define IMAGE_NAME "Image with Chunks" #define X_LENGTH 10 /* number of rows in the image */ #define Y_LENGTH 6 /* number of columns in the image */ #define NCOMPS 3 /* number of components in the image */ int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dims[2], /* dimension sizes of the image array */ start[2], /* start position to read the image array */ edges[2], /* edges of read array */ interlace_mode; /* interlace mode of the image */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ int32 image_data[X_LENGTH][Y_LENGTH][NCOMPS]; int ii, jj; /********************** End of variable declaration **********************/ /* * Open the file for reading. */ file_id = Hopen (FILE_NAME, DFACC_RDONLY, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Open the raster image array. */ ri_id = GRselect (gr_id, 0); /* * Set dimensions of the image. */ dims[0] = X_LENGTH; dims[1] = Y_LENGTH; start[0] = start[1] = 0; edges[0] = dims[0]; edges[1] = dims[1]; /* Read the data in the image array. */ status = GRreadimage (ri_id, start, NULL, edges, (VOIDP)image_data); printf ("Image Data:\n"); printf ("Component 1:\n "); for (ii=0; ii< X_LENGTH; ii++) { for (jj=0; jj< Y_LENGTH; jj++) printf ("%i ",image_data[ii][jj][0]); printf ("\n "); } printf ("\nComponent 2:\n "); for (ii=0; ii< X_LENGTH; ii++) { for (jj=0; jj< Y_LENGTH; jj++) printf ("%i ",image_data[ii][jj][1]); printf ("\n "); } printf ("\nComponent 3:\n "); for (ii=0; ii< X_LENGTH; ii++) { for (jj=0; jj< Y_LENGTH; jj++) printf ("%i ",image_data[ii][jj][2]); printf ("\n "); } printf ("\n"); /* * Terminate access to the raster image and to the GR interface and, * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_set_get_vgroup_attr.c0000644000000000000000000000626112421456623020320 0ustar #include "hdf.h" #define FILE_NAME "General_Vgroups.hdf" #define VGROUP_NAME "SD Vgroup" #define VGATTR_NAME "First Attribute" #define N_ATT_VALUES 7 /* number of values in the attribute */ int main( ) { /************************* Variable declaration **************************/ intn status_n, /* returned status for functions returning an intn */ n_attrs; /* number of attributes of the vgroup */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vgroup_ref, vgroup_id, attr_index, i, vg_version, data_type, n_values, size; char vg_attr[N_ATT_VALUES] = {'v','g','r','o','u','p','\0'}; char vgattr_buf[N_ATT_VALUES], attr_name[30]; /********************** End of variable declaration **********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Get the reference number of the vgroup named VGROUP_NAME. */ vgroup_ref = Vfind (file_id, VGROUP_NAME); /* * Attach to the vgroup found. */ vgroup_id = Vattach (file_id, vgroup_ref, "w"); /* * Get and display the version of the attached vgroup. */ vg_version = Vgetversion (vgroup_id); switch (vg_version) { case VSET_NEW_VERSION: printf ("\nVgroup %s is of the newest version, version 4\n", VGROUP_NAME); break; case VSET_VERSION: printf ("Vgroup %s is of a version between 3.2 and 4.0r2\n", VGROUP_NAME); break; case VSET_OLD_VERSION: printf ("Vgroup %s is of version before 3.2\n", VGROUP_NAME); break; default: printf ("Unknown version = %d\n", vg_version); } /* switch */ /* * Add the attribute named VGATTR_NAME to the vgroup. */ status_n = Vsetattr (vgroup_id, VGATTR_NAME, DFNT_CHAR, N_ATT_VALUES, vg_attr); /* * Get and display the number of attributes attached to this vgroup. */ n_attrs = Vnattrs (vgroup_id); printf ("\nThis vgroup has %d attribute(s)\n", n_attrs); /* * Get and display the name and the number of values of each attribute. * Note that the fourth and last parameters are set to NULL because the type * and the size of the attribute are not desired. */ for (attr_index = 0; attr_index < n_attrs; attr_index++) { status_n = Vattrinfo (vgroup_id, attr_index, attr_name, NULL, &n_values, NULL); printf ("\nAttribute #%d is named %s and has %d values: ", attr_index+1, attr_name, n_values); /* * Get and display the attribute values. */ status_n = Vgetattr (vgroup_id, attr_index, vgattr_buf); for (i = 0; i < n_values; i++) printf ("%c ", vgattr_buf[i]); printf ("\n"); } /* * Terminate access to the vgroup and to the V interface, and close * the HDF file. */ status_32 = Vdetach (vgroup_id); status_n = Vend (file_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_add_sds_to_vgroup.c0000644000000000000000000000446012421456623017736 0ustar #include "hdf.h" /* Note: in this example, hdf.h can be omitted...*/ #include "mfhdf.h" /* ...since mfhdf.h already includes hdf.h */ #define FILE_NAME "General_Vgroups.hdf" #define SDS_NAME "Test SD" #define VG_NAME "SD Vgroup" #define VG_CLASS "Common Vgroups" int main() { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ sd_id, /* SD interface identifier */ sds_id, /* data set identifier */ sds_ref, /* reference number of the data set */ dim_sizes[1], /* dimension of the data set - only one */ rank = 1, /* rank of the data set array */ vgroup_id, /* vgroup identifier */ file_id; /* HDF file identifier, same for V interface */ /********************** End of variable declaration **********************/ /* * Create the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Initialize the SD interface. */ sd_id = SDstart (FILE_NAME, DFACC_WRITE); /* * Set the size of the SDS's dimension. */ dim_sizes[0] = 10; /* * Create the SDS. */ sds_id = SDcreate (sd_id, SDS_NAME, DFNT_INT32, rank, dim_sizes); /* * Create a vgroup and set its name and class. */ vgroup_id = Vattach (file_id, -1, "w"); status_32 = Vsetname (vgroup_id, VG_NAME); status_32 = Vsetclass (vgroup_id, VG_CLASS); /* * Obtain the reference number of the SDS using its identifier. */ sds_ref = SDidtoref (sds_id); /* * Add the SDS to the vgroup. Note: the tag DFTAG_NDG is used * when adding an SDS. Refer to Appendix A for the entire list of tags. */ status_32 = Vaddtagref (vgroup_id, DFTAG_NDG, sds_ref); /* * Terminate access to the SDS and to the SD interface. */ status_n = SDendaccess (sds_id); status_n = SDend (sd_id); /* * Terminate access to the vgroup and to the V interface, and * close the HDF file. */ status_32 = Vdetach (vgroup_id); status_n = Vend (file_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_write_to_vdata.c0000644000000000000000000000645512421456623017247 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define N_RECORDS 10 /* number of records the vdata contains */ #define ORDER_1 3 /* order of first field */ #define ORDER_2 1 /* order of second field */ #define ORDER_3 2 /* order of third field */ #define CLASS_NAME "Particle Data" #define VDATA_NAME "Solid Particle" #define FIELD1_NAME "Position" /* contains x, y, z values */ #define FIELD2_NAME "Mass" /* contains weight values */ #define FIELD3_NAME "Temperature" /* contains min and max values */ #define FIELDNAME_LIST "Position,Mass,Temperature" /* No spaces b/w names */ /* number of values per record */ #define N_VALS_PER_REC (ORDER_1 + ORDER_2 + ORDER_3) int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, vdata_ref = -1, /* ref number of a vdata, set to -1 to create */ num_of_records; /* number of records actually written to vdata */ int16 rec_num; /* current record number */ float32 data_buf[N_RECORDS][N_VALS_PER_REC]; /* buffer for vdata values */ /********************** End of variable declaration **********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Create a new vdata. */ vdata_id = VSattach (file_id, vdata_ref, "w"); /* * Set name and class name of the vdata. */ status_32 = VSsetname (vdata_id, VDATA_NAME); status_32 = VSsetclass (vdata_id, CLASS_NAME); /* * Introduce each field's name, data type, and order. This is the first * part in defining a field. */ status_n = VSfdefine (vdata_id, FIELD1_NAME, DFNT_FLOAT32, ORDER_1 ); status_n = VSfdefine (vdata_id, FIELD2_NAME, DFNT_FLOAT32, ORDER_2 ); status_n = VSfdefine (vdata_id, FIELD3_NAME, DFNT_FLOAT32, ORDER_3 ); /* * Finalize the definition of the fields. */ status_n = VSsetfields (vdata_id, FIELDNAME_LIST); /* * Buffer the data by the record for fully interlaced mode. Note that the * first three elements contain the three values of the first field, the * fourth element contains the value of the second field, and the last two * elements contain the two values of the third field. */ for (rec_num = 0; rec_num < N_RECORDS; rec_num++) { data_buf[rec_num][0] = 1.0 * rec_num; data_buf[rec_num][1] = 2.0 * rec_num; data_buf[rec_num][2] = 3.0 * rec_num; data_buf[rec_num][3] = 0.1 + rec_num; data_buf[rec_num][4] = 0.0; data_buf[rec_num][5] = 65.0; } /* * Write the data from data_buf to the vdata with full interlacing mode. */ num_of_records = VSwrite (vdata_id, (uint8 *)data_buf, N_RECORDS, FULL_INTERLACE); /* * Terminate access to the vdata and to the VS interface, then close * the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_get_vdata_info.c0000644000000000000000000000461312421456623017177 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define FIELD_SIZE 80 /* maximum length of all the field names */ int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ n_records, /* to retrieve the number of records in the vdata */ interlace_mode,/* to retrieve the interlace mode of the vdata */ vdata_size, /* to retrieve the size of all specified fields */ file_id, vdata_ref, vdata_id; char fieldname_list[FIELD_SIZE], /* buffer to retrieve the vdata data */ vdata_name[VSNAMELENMAX]; /* buffer to retrieve the vdata name */ /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Set vdata_ref to -1 to start the search from the beginning of file. */ vdata_ref = -1; /* * Use VSgetid to obtain each vdata by its reference number then attach * to the vdata and get its information. The loop terminates when * the last vdata is reached. */ while ((vdata_ref = VSgetid (file_id, vdata_ref)) != FAIL) { /* * Attach to the current vdata for reading. */ vdata_id = VSattach (file_id, vdata_ref, "r"); /* * Test whether the current vdata is not a storage of an attribute, then * obtain and display its information. */ if( VSisattr (vdata_id) != TRUE ) { status_n = VSinquire (vdata_id, &n_records, &interlace_mode, fieldname_list, &vdata_size, vdata_name); printf ("Vdata %s: - contains %d records\n\tInterlace mode: %s \ \n\tFields: %s - %d bytes\n\t\n", vdata_name, n_records, interlace_mode == FULL_INTERLACE ? "FULL" : "NONE", fieldname_list, vdata_size ); } /* * Detach from the current vdata. */ status_32 = VSdetach (vdata_id); } /* while */ /* * Terminate access to the VS interface and close the HDF file. */ status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_write_chunks.c0000644000000000000000000000540412421456623016731 0ustar #include "hdf.h" #define FILE_NAME "Image_Chunked.hdf" #define IMAGE_NAME "Image with Chunks" #define X_LENGTH 10 /* number of rows in the image */ #define Y_LENGTH 6 /* number of columns in the image */ #define NCOMPS 3 /* number of components in the image */ int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, /* HDF file identifier */ gr_id, /* GR interface identifier */ ri_id, /* raster image identifier */ dims[2], /* dimension sizes of the image array */ origin[2], /* origin position to write each chunk */ interlace_mode; /* interlace mode of the image */ HDF_CHUNK_DEF chunk_def; /* Chunk defintion set */ int32 chunk00[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }; int32 chunk01[] = {210, 211, 212, 220, 221, 222, 230, 231, 232, 240, 241, 242, 250, 251, 252, 260, 261, 262}; int32 chunk14[] = {1010, 1011, 1012, 1020, 1021, 1022, 1030, 1031, 1032, 1040, 1041, 1042, 1050, 1051, 1052, 1060, 1061, 1062}; /********************** End of variable declaration **********************/ /* * Create and open the file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Set dimensions of the image. */ dims[0] = Y_LENGTH; dims[1] = X_LENGTH; /* * Create the raster image array. */ ri_id = GRcreate (gr_id, IMAGE_NAME, NCOMPS, DFNT_INT32, MFGR_INTERLACE_PIXEL, dims); /* * Define chunked image. */ chunk_def.comp.comp_type = COMP_CODE_DEFLATE; chunk_def.comp.cinfo.deflate.level = 6; chunk_def.comp.chunk_lengths[0] = 3; chunk_def.comp.chunk_lengths[1] = 2; status = GRsetchunk (ri_id, chunk_def, HDF_CHUNK | HDF_COMP); /* * Write first chunk(0,0). */ origin[0] = 0; origin[1] = 0; status = GRwritechunk (ri_id, origin, (VOIDP)chunk00); /* * Write second chunk(0,1). */ origin[0] = 0; origin[1] = 1; status = GRwritechunk (ri_id, origin, (VOIDP)chunk01); /* * Write third chunk(1,4). */ origin[0] = 1; origin[1] = 4; status = GRwritechunk (ri_id, origin, (VOIDP)chunk14); /* * Terminate access to the raster image and to the GR interface and, * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_image_info.c0000644000000000000000000000650212421456623016321 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 file_id, gr_id, ri_id, n_rimages, /* number of raster images in the file */ n_file_attrs, /* number of file attributes */ ri_index, /* index of a image */ dim_sizes[2], /* dimensions of an image */ n_comps, /* number of components an image contains */ interlace_mode, /* interlace mode of an image */ data_type, /* number type of an image */ n_attrs; /* number of attributes belong to an image */ char name[H4_MAX_GR_NAME], /* name of an image */ *type_string, /* mapped text of a number type */ *interlace_string; /* mapped text of an interlace mode */ /********************** End of variable declaration **********************/ /* * Open the file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Determine the contents of the file. */ status = GRfileinfo (gr_id, &n_rimages, &n_file_attrs); /* * For each image in the file, get and display the image information. */ printf ("RI# Name Components Type Interlace \ Dimensions Attributes\n\n"); for (ri_index = 0; ri_index < n_rimages; ri_index++) { ri_id = GRselect (gr_id, ri_index); status = GRgetiminfo (ri_id, name, &n_comps, &data_type, &interlace_mode, dim_sizes, &n_attrs); /* * Map the number type and interlace mode into text strings for output * readability. Note that, in this example, only two possible types * are considered because of the simplicity of the example. For real * problems, all possible types should be checked and, if reading the * data is desired, the size of the type must be determined based on the * machine where the program resides. */ if (data_type == DFNT_CHAR8) type_string = "Char8"; else if (data_type == DFNT_INT16) type_string = "Int16"; else type_string = "Unknown"; switch (interlace_mode) { case MFGR_INTERLACE_PIXEL: interlace_string = "MFGR_INTERLACE_PIXEL"; break; case MFGR_INTERLACE_LINE: interlace_string = "MFGR_INTERLACE_LINE"; break; case MFGR_INTERLACE_COMPONENT: interlace_string = "MFGR_INTERLACE_COMPONENT"; break; default: interlace_string = "Unknown"; break; } /* switch */ /* * Display the image information for the current raster image. */ printf ("%d %s %d %s %s %2d,%2d %d\n", ri_index, name, n_comps, type_string, interlace_string, dim_sizes[0], dim_sizes[1], n_attrs); /* * Terminate access to the current raster image. */ status = GRendaccess (ri_id); } /* * Terminate access to the GR interface and close the HDF file. */ status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_set_get_vdata_attr.c0000644000000000000000000001145312421456623020071 0ustar #include "hdf.h" #define FILE_NAME "General_Vdatas.hdf" #define VDATA_NAME "Solid Particle" #define FIELD_NAME "Mass" #define VATTR_NAME "Site Ident" /* name of the vdata attribute */ #define FATTR_NAME "Scales" /* name of the field attribute */ #define VATTR_N_VALUES 3 /* number of values in the vdata attribute */ #define FATTR_N_VALUES 4 /* number of values in the field attribute */ int main( ) { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_ref, vdata_id, field_index, /* index of a field within the vdata */ n_vdattrs, /* number of vdata attributes */ n_fldattrs, /* number of field attributes */ vdata_type, /* to hold the type of vdata's attribute */ vdata_n_values,/* to hold the number of vdata's attribute values */ vdata_size, /* to hold the size of vdata's attribute values */ field_type, /* to hold the type of field's attribute */ field_n_values,/* to hold the number of field's attribute values */ field_size; /* to hold the size of field's attribute values */ char vd_attr[VATTR_N_VALUES] = {'A', 'B', 'C'};/* vdata attribute values*/ int32 fld_attr[FATTR_N_VALUES] = {2, 4, 6, 8}; /* field attribute values*/ char vattr_buf[VATTR_N_VALUES]; /* to hold vdata attribute's values */ int32 fattr_buf[FATTR_N_VALUES]; /* to hold field attribute's values */ char vattr_name[30], /* name of vdata attribute */ fattr_name[30]; /* name of field attribute */ /********************** End of variable declaration **********************/ /* * Open the HDF file for writing. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Get the reference number of the vdata named VDATA_NAME. */ vdata_ref = VSfind (file_id, VDATA_NAME); /* * Attach to the vdata for writing. */ vdata_id = VSattach (file_id, vdata_ref, "w"); /* * Attach an attribute to the vdata, i.e., indicated by the second parameter. */ status_n = VSsetattr (vdata_id, _HDF_VDATA, VATTR_NAME, DFNT_CHAR, VATTR_N_VALUES, vd_attr); /* * Get the index of the field FIELD_NAME within the vdata. */ status_n = VSfindex (vdata_id, FIELD_NAME, &field_index); /* * Attach an attribute to the field field_index. */ status_n = VSsetattr (vdata_id, field_index, FATTR_NAME, DFNT_INT32, FATTR_N_VALUES, fld_attr); /* * Get the number of attributes attached to the vdata's first * field - should be 0. */ n_fldattrs = VSfnattrs (vdata_id, 0); printf ( "Number of attributes of the first field of the vdata: %d\n", n_fldattrs); /* * Get the number of attributes attached to the field specified by * field_index - should be 1. */ n_fldattrs = VSfnattrs (vdata_id, field_index); printf ( "Number of attributes of field %s: %d\n", FIELD_NAME, n_fldattrs); /* * Get the total number of the field's and vdata's attributes - should be 2. */ n_vdattrs = VSnattrs (vdata_id); printf ( "Number of attributes of the vdata and its fields: %d\n", n_vdattrs); /* * Get information about the vdata's first attribute, indicated * by the third parameter which is the index of the attribute. */ status_n = VSattrinfo (vdata_id, _HDF_VDATA, 0, vattr_name, &vdata_type, &vdata_n_values, &vdata_size); /* * Get information about the first attribute of the field specified by * field_index. */ status_n = VSattrinfo (vdata_id, field_index, 0, fattr_name, &field_type, &field_n_values, &field_size); /* * Get the vdata's first attribute. */ status_n = VSgetattr (vdata_id, _HDF_VDATA, 0, vattr_buf); printf("Values of the vdata attribute = %c %c %c\n", vattr_buf[0], vattr_buf[1], vattr_buf[2]); /* * Get the first attribute of the field specified by field_index. */ status_n = VSgetattr (vdata_id, field_index, 0, fattr_buf); printf("Values of the field attribute = %d %d %d %d\n", fattr_buf[0], fattr_buf[1], fattr_buf[2], fattr_buf[3]); /* * Terminate access to the vdata and to the VS interface, then close * the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_set_attribute.c0000644000000000000000000000440412421456623017101 0ustar #include "hdf.h" #define FILE_NAME "General_RImages.hdf" #define IMAGE_NAME "Image Array 2" #define F_ATT1_NAME "File Attribute 1" #define F_ATT2_NAME "File Attribute 2" #define RI_ATT1_NAME "Image Attribute 1" #define RI_ATT2_NAME "Image Attribute 2" #define F_ATT1_VAL "Contents of First FILE Attribute" #define F_ATT2_VAL "Contents of Second FILE Attribute" #define F_ATT1_N_VALUES 32 #define F_ATT2_N_VALUES 33 #define RI_ATT1_VAL "Contents of IMAGE's First Attribute" #define RI_ATT1_N_VALUES 35 #define RI_ATT2_N_VALUES 6 int main( ) { /************************* Variable declaration **************************/ intn status; /* status for functions returning an intn */ int32 gr_id, ri_id, file_id, ri_index; int16 ri_attr_2[RI_ATT2_N_VALUES] = {1, 2, 3, 4, 5, 6}; /********************** End of variable declaration **********************/ /* * Open the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_WRITE, 0); /* * Initialize the GR interface. */ gr_id = GRstart (file_id); /* * Set two file attributes to the file with names, data types, numbers of * values, and values of the attributes specified. */ status = GRsetattr (gr_id, F_ATT1_NAME, DFNT_CHAR8, F_ATT1_N_VALUES, (VOIDP)F_ATT1_VAL); status = GRsetattr (gr_id, F_ATT2_NAME, DFNT_CHAR8, F_ATT2_N_VALUES, (VOIDP)F_ATT2_VAL); /* * Obtain the index of the image named IMAGE_NAME. */ ri_index = GRnametoindex (gr_id, IMAGE_NAME); /* * Obtain the identifier of this image. */ ri_id = GRselect (gr_id, ri_index); /* * Set two attributes to the image with names, data types, numbers of * values, and values of the attributes specified. */ status = GRsetattr (ri_id, RI_ATT1_NAME, DFNT_CHAR8, RI_ATT1_N_VALUES, (VOIDP)RI_ATT1_VAL); status = GRsetattr (ri_id, RI_ATT2_NAME, DFNT_INT16, RI_ATT2_N_VALUES, (VOIDP)ri_attr_2); /* * Terminate access to the image and to the GR interface, and close the * HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/VG_create_vgroup.c0000644000000000000000000000244512421456623017077 0ustar #include "hdf.h" #define FILE_NAME "Two_Vgroups.hdf" int main() { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ vgroup_ref = -1, vgroup1_id, vgroup2_id, file_id; /********************** End of variable declaration **********************/ /* * Create the HDF file. */ file_id = Hopen (FILE_NAME, DFACC_CREATE, 0); /* * Initialize the V interface. */ status_n = Vstart (file_id); /* * Create the first vgroup. Note that the vgroup reference number is set * to -1 for creating and the access mode is "w" for writing. */ vgroup1_id = Vattach (file_id, vgroup_ref, "w"); /* * Create the second vgroup. */ vgroup2_id = Vattach (file_id, vgroup_ref, "w"); /* * Any operations on the vgroups. */ /* * Terminate access to the first vgroup. */ status_32 = Vdetach (vgroup1_id); /* * Terminate access to the second vgroup. */ status_32 = Vdetach (vgroup2_id); /* * Terminate access to the V interface and close the HDF file. */ status_n = Vend (file_id); status_n = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/run-c-ex.sh0000644000000000000000000001272612421456623015467 0ustar #! /bin/sh # # Copyright by The HDF Group. # All rights reserved. # # This file is part of HDF4. The full HDF4 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF4 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # This file: run-hdf-c-ex.sh # Written by: Larry Knox # Date: Jan 17, 2014 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # This script will compile and run the c examples from source files installed # # in .../examples/c using h4cc. The order for running # # programs with RunTest in the MAIN section below is taken from the Makefile. # # The order is important since some of the test programs use data files created # # by earlier test programs. Any future additions should be placed accordingly. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # Initializations EXIT_SUCCESS=0 EXIT_FAILURE=1 # Where the tool is installed. # default is relative path to installed location of the tools prefix="${prefix:-../../}" AR="@AR@" RANLIB="@RANLIB@" H4TOOL="h4cc" # The tool name H4TOOL_BIN="${prefix}/bin/${H4TOOL}" # The path of the tool binary #### Run test #### RunTest() { TEST_EXEC=$1 Test=$1".c" echo echo "################# $1 #################" ${H4TOOL_BIN} -o $TEST_EXEC $Test if [ $? -ne 0 ] then echo "messed up compiling $Test" exit 1 fi ./$TEST_EXEC } ################## MAIN ################## # Run tests if [ $? -eq 0 ] then if ( #### hdf examples #### RunTest VD_create_vdatas &&\ rm VD_create_vdatas &&\ RunTest VD_write_mixed_vdata &&\ rm VD_write_mixed_vdata &&\ RunTest VD_write_mixed_vdata_struct &&\ rm VD_write_mixed_vdata_struct &&\ RunTest VD_write_to_vdata &&\ rm VD_write_to_vdata &&\ RunTest VD_read_from_vdata &&\ rm VD_read_from_vdata &&\ RunTest VD_read_mixed_vdata &&\ rm VD_read_mixed_vdata &&\ RunTest VD_set_get_vdata_attr &&\ rm VD_set_get_vdata_attr &&\ RunTest VD_create_onefield_vdatas &&\ rm VD_create_onefield_vdatas &&\ RunTest VD_get_vdata_info &&\ rm VD_get_vdata_info &&\ RunTest VD_locate_vdata &&\ rm VD_locate_vdata &&\ RunTest VG_create_vgroup &&\ rm VG_create_vgroup &&\ RunTest VG_add_sds_to_vgroup &&\ rm VG_add_sds_to_vgroup &&\ RunTest VG_insert_vdatas_to_vgroup &&\ rm VG_insert_vdatas_to_vgroup &&\ RunTest VG_set_get_vgroup_attr &&\ rm VG_set_get_vgroup_attr &&\ RunTest VG_vgroup_contents &&\ rm VG_vgroup_contents &&\ RunTest VG_get_vgroup_info &&\ rm VG_get_vgroup_info &&\ RunTest GR_create_and_write_image &&\ rm GR_create_and_write_image &&\ RunTest GR_modify_image &&\ rm GR_modify_image &&\ RunTest GR_set_attribute &&\ rm GR_set_attribute &&\ RunTest GR_get_attribute &&\ rm GR_get_attribute &&\ RunTest GR_write_palette &&\ rm GR_write_palette &&\ RunTest GR_read_palette &&\ rm GR_read_palette &&\ RunTest GR_image_info &&\ rm GR_image_info &&\ RunTest GR_read_image &&\ rm GR_read_image &&\ RunTest GR_write_chunks &&\ rm GR_write_chunks &&\ RunTest GR_read_chunks &&\ rm GR_read_chunks &&\ RunTest AN_create_annotation &&\ rm AN_create_annotation &&\ RunTest AN_get_annotation_info &&\ rm AN_get_annotation_info &&\ RunTest AN_read_annotation &&\ rm AN_read_annotation &&\ #### mfhdf examples #### RunTest SD_create_sds &&\ rm SD_create_sds &&\ RunTest SD_write_to_sds &&\ rm SD_write_to_sds &&\ RunTest SD_write_slab &&\ rm SD_write_slab &&\ RunTest SD_alter_sds_values &&\ rm SD_alter_sds_values &&\ RunTest SD_unlimited_sds &&\ rm SD_unlimited_sds &&\ RunTest SD_compress_sds &&\ rm SD_compress_sds &&\ RunTest SD_mv_sds_to_external &&\ rm SD_mv_sds_to_external &&\ RunTest SD_read_from_sds &&\ rm SD_read_from_sds &&\ RunTest SD_read_subsets &&\ rm SD_read_subsets &&\ RunTest SD_get_info &&\ rm SD_get_info &&\ RunTest SD_find_sds_by_name &&\ rm SD_find_sds_by_name &&\ RunTest SD_set_get_dim_info &&\ rm SD_set_get_dim_info &&\ RunTest SD_dimscale_vs_sds &&\ rm SD_dimscale_vs_sds &&\ RunTest SD_set_attr &&\ rm SD_set_attr &&\ RunTest SD_get_attr &&\ rm SD_get_attr &&\ RunTest SD_chunking_example &&\ rm SD_chunking_example ); then EXIT_VALUE=${EXIT_SUCCESS} else EXIT_VALUE=${EXIT_FAILURE} fi fi # Cleanup rm *.o rm *.hdf echo exit $EXIT_VALUE libhdf4-4.2.10/HDF_ALT/hdf/examples/CMakeTests.cmake0000644000000000000000000000374612421456623016504 0ustar ############################################################################## ############################################################################## ### T E S T I N G ### ############################################################################## ############################################################################## # Remove any output file left over from previous test run ADD_TEST ( NAME HDF_EXAMPLES-clearall-objects COMMAND ${CMAKE_COMMAND} -E remove General_HDFobjects.hdf General_Rimages.hdf General_Vdatas.hdf General_Vgroups.hdf Image_with_Palette.hdf Packed_Vdata.hdf Two_Vdatas.hdf Two_Vgroups.hdf ) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDF_EXAMPLES-clearall-objects PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (HDF_EXAMPLES-clearall-objects PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "HDF_EXAMPLES-clearall-objects") FOREACH (example ${examples}) ADD_TEST (NAME hdftest_${example} COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdftest_${example} PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdftest_${example} PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdftest_${example}") ENDFOREACH (example ${examples}) ADD_TEST (NAME hdftest_VG_add_sds_to_vgroup COMMAND $) IF (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdftest_VG_add_sds_to_vgroup PROPERTIES DEPENDS ${last_test} LABELS EXAMPLES) ELSE (NOT "${last_test}" STREQUAL "") SET_TESTS_PROPERTIES (hdftest_VG_add_sds_to_vgroup PROPERTIES LABELS EXAMPLES) ENDIF (NOT "${last_test}" STREQUAL "") SET (last_test "hdftest_VG_add_sds_to_vgroup") libhdf4-4.2.10/HDF_ALT/hdf/examples/VD_read_mixed_vdata.c0000644000000000000000000000620712421456623017507 0ustar #include "hdf.h" #define N_RECORDS 20 /* number of records to be read */ #define N_FIELDS 2 /* number of fields to be read */ #define FILE_NAME "Packed_Vdata.hdf" #define VDATA_NAME "Mixed Data Vdata" #define FIELDNAME_LIST "Temp,Ident" /* number of bytes of the data to be read */ #define BUFFER_SIZE ( sizeof(float32) + sizeof(char)) * N_RECORDS int main () { /************************* Variable declaration **************************/ intn status_n; /* returned status for functions returning an intn */ int32 status_32, /* returned status for functions returning an int32 */ file_id, vdata_id, num_of_records, /* number of records actually read */ vdata_ref, /* reference number of the vdata to be read */ buffer_size; /* number of bytes the vdata can hold */ float32 itemp[N_RECORDS]; /* buffer to hold values of first field */ char idents[N_RECORDS]; /* buffer to hold values of fourth field */ uint8 databuf[BUFFER_SIZE]; /* buffer to hold read data, still packed */ VOIDP fldbufptrs[N_FIELDS];/*pointers to be pointing to the field buffers*/ int i; /********************** End of variable declaration **********************/ /* * Open the HDF file for reading. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initialize the VS interface. */ status_n = Vstart (file_id); /* * Get the reference number of the vdata, whose name is specified in * VDATA_NAME, using VSfind, which will be discussed in Section 4.7.3. */ vdata_ref = VSfind (file_id, VDATA_NAME); /* * Attach to the vdata for reading. */ vdata_id = VSattach (file_id, vdata_ref, "r"); /* * Specify the fields that will be read. */ status_n = VSsetfields(vdata_id, FIELDNAME_LIST); /* * Read N_RECORDS records of the vdata and store the values into the * buffer databuf. */ num_of_records = VSread (vdata_id, (uint8 *)databuf, N_RECORDS, FULL_INTERLACE); /* * Build an array of pointers each of which points to an array that * will hold all values of a field after being unpacked. */ fldbufptrs[0] = &itemp[0]; fldbufptrs[1] = &idents[0]; /* * Unpack the data from the buffer databuf and store the values into the * appropriate field buffers pointed to by the set of pointers fldbufptrs. * Note that the second parameter is _HDF_VSUNPACK for unpacking and the * number of records is the one returned by VSread. */ status_n = VSfpack (vdata_id, _HDF_VSUNPACK, FIELDNAME_LIST, (VOIDP)databuf, BUFFER_SIZE, num_of_records, NULL, (VOIDP)fldbufptrs); /* * Display the read data being stored in the field buffers. */ printf ("\n Temp Ident\n"); for (i=0; i < num_of_records; i++) printf (" %6.2f %c\n", itemp[i], idents[i]); /* * Terminate access to the vdata and the VS interface, then close * the HDF file. */ status_32 = VSdetach (vdata_id); status_n = Vend (file_id); status_32 = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/hdf/examples/run-all-ex.sh0000755000000000000000000000266212421456623016016 0ustar #! /bin/sh # # Copyright by The HDF Group. # All rights reserved. # # This file is part of HDF4. The full HDF4 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF5 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # This file: run-all-ex.sh # Written by: Larry Knox # Date: January 17, 2014 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # This script will run the scripts to compile and run the installed hdf5 # # examples. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # echo "Run c examples" if ((cd c; sh ./run-c-ex.sh) && \ (if test -d fortran; then echo "Run fortran examples" cd fortran; sh ./run-fortran-ex.sh fi)); then echo "Done" exit 0 else exit 1 fi libhdf4-4.2.10/HDF_ALT/hdf/examples/GR_read_palette.c0000644000000000000000000000435212421456623016656 0ustar #include "hdf.h" #define FILE_NAME "Image_with_Palette.hdf" #define IMAGE_NAME "Image with Palette" #define N_ENTRIES 256 /* number of elements of each color */ int main( ) { /************************* Variable declaration **************************/ intn status, /* status for functions returning an intn */ i, j; int32 file_id, gr_id, ri_id, pal_id, ri_index; int32 data_type, n_comps, n_entries, interlace_mode; uint8 palette_data[N_ENTRIES][3]; /* static because of fixed size */ /************************* Variable declaration **************************/ /* * Open the file. */ file_id = Hopen (FILE_NAME, DFACC_READ, 0); /* * Initiate the GR interface. */ gr_id = GRstart (file_id); /* * Get the index of the image IMAGR_NAME. */ ri_index = GRnametoindex (gr_id, IMAGE_NAME); /* * Get image identifier. */ ri_id = GRselect (gr_id, ri_index); /* * Get the identifier of the palette attached to the image. */ pal_id = GRgetlutid (ri_id, ri_index); /* * Obtain and display information about the palette. */ status = GRgetlutinfo (pal_id, &n_comps, &data_type, &interlace_mode, &n_entries); printf ("Palette: %d components; %d entries\n", n_comps, n_entries); /* * Read the palette data. */ status = GRreadlut (pal_id, (VOIDP)palette_data); /* * Display the palette data. Recall that HDF supports only 256 colors. * Each color is defined by its 3 components. Therefore, * verifying the value of n_entries and n_comps is not necessary and * the buffer to hold the palette data can be static. However, * if more values or colors are added to the model, these parameters * must be checked to allocate sufficient space when reading a palette. */ printf (" Palette Data: \n"); for (i=0; i< n_entries; i++) { for (j = 0; j < n_comps; j++) printf ("%i ", palette_data[i][j]); printf ("\n"); } printf ("\n"); /* * Terminate access to the image and to the GR interface, and * close the HDF file. */ status = GRendaccess (ri_id); status = GRend (gr_id); status = Hclose (file_id); return 0; } libhdf4-4.2.10/HDF_ALT/CTestConfig.cmake0000644000000000000000000000237012421456623014262 0ustar ## This file should be placed in the root directory of your project. ## Then modify the CMakeLists.txt file in the root directory of your ## project to incorporate the testing dashboard. ## # The following are required to uses Dart and the Cdash dashboard ## ENABLE_TESTING() ## INCLUDE(CTest) SET (CTEST_PROJECT_NAME "HDF4") SET (CTEST_NIGHTLY_START_TIME "18:00:00 CST") SET (CTEST_DROP_METHOD "http") IF (CDASH_LOCAL) SET (CTEST_DROP_SITE "72.36.68.252") SET (CTEST_DROP_LOCATION "/submit.php?project=HDF4") ELSE (CDASH_LOCAL) SET (CTEST_DROP_SITE "cdash.hdfgroup.uiuc.edu") SET (CTEST_DROP_LOCATION "/submit.php?project=HDF4") ENDIF (CDASH_LOCAL) SET (CTEST_DROP_SITE_CDASH TRUE) SET (UPDATE_TYPE svn) SET (VALGRIND_COMMAND "/usr/bin/valgrind") SET (VALGRIND_COMMAND_OPTIONS "-v --tool=memcheck --leak-check=full --track-fds=yes --num-callers=50 --show-reachable=yes --track-origins=yes --malloc-fill=0xff --free-fill=0xfe") SET (CTEST_TEST_TIMEOUT 3600 CACHE STRING "Maximum time allowed before CTest will kill the test.") SET (DART_TESTING_TIMEOUT 3600 CACHE STRING "Maximum time allowed before CTest will kill the test." FORCE) SET(CTEST_SUBMIT_RETRY_DELAY 20 CACHE STRING "How long to wait between timed-out CTest submissions.") libhdf4-4.2.10/HDF_ALT/COPYING0000644000000000000000000000511512421456623012143 0ustar Copyright Notice and License Terms for Hierarchical Data Format (HDF) Software Library and Utilities --------------------------------------------------------------------------- Hierarchical Data Format (HDF) Software Library and Utilities Copyright 2006-2014 by The HDF Group. NCSA Hierarchical Data Format (HDF) Software Library and Utilities Copyright 1988-2006 by the Board of Trustees of the University of Illinois. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted for any purpose (including commercial purposes) provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions, and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions, and the following disclaimer in the documentation and/or materials provided with the distribution. 3. In addition, redistributions of modified forms of the source or binary code must carry prominent notices stating that the original code was changed and the date of the change. 4. All publications or advertising materials mentioning features or use of this software are asked, but not required, to acknowledge that it was developed by The HDF Group and by the National Center for Supercomputing Applications at the University of Illinois at Urbana-Champaign and credit the contributors. 5. Neither the name of The HDF Group, the name of the University, nor the name of any Contributor may be used to endorse or promote products derived from this software without specific prior written permission from The HDF Group, the University, or the Contributor, respectively. DISCLAIMER: THIS SOFTWARE IS PROVIDED BY THE HDF GROUP AND THE CONTRIBUTORS "AS IS" WITH NO WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED. In no event shall The HDF Group or the Contributors be liable for any damages suffered by the users arising out of the use of this software, even if advised of the possibility of such damage. --------------------------------------------------------------------------- --------------------------------------------------------------------------- Contributors: National Center for Supercomputing Applications (NCSA) at the University of Illinois, Fortner Software, Unidata Program Center (netCDF), The Independent JPEG Group (JPEG), Jean-loup Gailly and Mark Adler (gzip), and Digital Equipment Corporation (DEC). --------------------------------------------------------------------------- libhdf4-4.2.10/HDF_ALT/config/0000755000000000000000000000000012474643755012367 5ustar libhdf4-4.2.10/HDF_ALT/config/examples.am0000644000000000000000000001103112474643755014520 0ustar ## config/examples.am ## (Use double hashes for copyright notice so that automake treats it as ## comments and does not pass it to Makefile.in) ## Copyright by The HDF Group. ## All rights reserved. ## ## This file is part of HDF. The full HDF copyright notice, including ## terms governing use, modification, and redistribution, is contained in ## the files COPYING and Copyright.html. COPYING can be found at the root ## of the source code distribution tree; Copyright.html can be found at the ## root level of an installed copy of the electronic HDF document set and ## is linked from the top-level documents page. It can also be found at ## http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have ## access to either file, you may request a copy from help@hdfgroup.org. # We can't tell automake about example programs, because they need to be # built using h4cc (or h4fc, etc.) instead of the standard compilers. # This creates some extra work for us. ## The Makefile.am that includes this boilerplate needs to define the ## following: ## ## TEST_PROG ## We assume that all test programs in this directory are examples. ## ## INSTALL_FILES ## The source files that the examples use which should be installed. ## ## EXAMPLEDIR ## The directory into which examples should be installed. ## ## Build rules for $(EXTRA_PROG). ## Dependencies for example programs. ## Automake will supply neither of these. ## # Assume that all tests in this directory are examples, and tell # conclude.am when to build them. EXTRA_PROG = $(EXAMPLE_PROG) # We need to tell automake what to clean MOSTLYCLEANFILES=*.o $(EXAMPLE_PROG) CHECK_CLEANFILES+= *.hdf CLEANFILES=$(EXAMPLE_PROG) # How to create EXAMPLEDIR if it doesn't already exist $(DESTDIR)$(EXAMPLEDIR): mkdir -p $@ # Install and uninstall rules. We install the source files, not the # example programs themselves. install-data-local: @$(MAKE) $(AM_MAKEFLAGS) install-examples uninstall-local: @$(MAKE) $(AM_MAKEFLAGS) uninstall-examples install-examples: $(DESTDIR)$(EXAMPLEDIR) @for f in X $(INSTALL_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLEDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLEDIR)/. || exit 1); \ fi; \ done @for f in X $(INSTALL_TOP_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ chmod a-x $(DESTDIR)$(EXAMPLETOPDIR)/$$f; \ fi; \ done @for f in X $(INSTALL_TOP_SCRIPT_FILES); do \ if test $$f != X; then \ (set -x; $(INSTALL) $(srcdir)/$$f $(DESTDIR)$(EXAMPLETOPDIR)/. || exit 1); \ fi; \ done uninstall-examples: @if test -n "$(INSTALL_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_FILES); \ fi @if test -n "$(INSTALL_SCRIPT_FILES)" -a -d $(EXAMPLEDIR); then \ set -x; cd $(EXAMPLEDIR) && $(RM) $(INSTALL_SCRIPT_FILES); \ fi @if test -n "$(INSTALL_TOP_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_FILES); \ fi @if test -n "$(INSTALL_TOP_SCRIPT_FILES)" -a -d $(EXAMPLETOPDIR); then \ set -x; cd $(EXAMPLETOPDIR) && $(RM) $(INSTALL_TOP_SCRIPT_FILES); \ fi installcheck-local: @if test "$(STATIC_SHARED)" = "static, shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ $(MAKE) $(AM_MAKEFLAGS) clean; \ H5CCFLAGS="" $(MAKE) $(AM_MAKEFLAGS) check; \ elif test "$(STATIC_SHARED)" = "shared"; then \ H5CCFLAGS="-shlib" $(MAKE) $(AM_MAKEFLAGS) check; \ else \ $(MAKE) $(AM_MAKEFLAGS) check; \ fi libhdf4-4.2.10/HDF_ALT/config/i686-pc-cygwin0000644000000000000000000001322712421456623014675 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi if test "X-$F77" = "X-"; then F77=g77 F77_BASENAME=g77 else case $F77 in # The PGI and Intel compilers are automatically detected below f95*|pgf90*) ;; *) # Figure out which compiler we are using: pgf90 or Absoft f95 RM='rm -f' tmpfile=/tmp/cmpver.$$ $F77 -V >$tmpfile if test -s "$tmpfile"; then if( grep -s 'Absoft' $tmpfile > /dev/null) then F77_BASENAME=f95 fi if( grep -s 'g95' $tmpfile > /dev/null) then F77_BASENAME=g95 fi if( grep -s 'pgf90' $tmpfile > /dev/null) then F77_BASENAME=pgf90 fi fi $RM $tmpfile ;; esac fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; f95) CFLAGS="$CFLAGS -DH4_ABSOFT" FFLAGS="$FFLAGS -YEXT_NAMES=UCS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; g95) CFLAGS="$CFLAGS" FFLAGS="$FFLAGS -i4" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/powerpc-apple0000644000000000000000000001350112421456623015054 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi #Make IBM xlf compiler a deafult if test "X-$F77" = "X-"; then F77=xlf F77_BASENAME=xlf else case $F77 in # The PGI and Intel compilers are automatically detected below xlf*|f95*) ;; *) # Figure out which compiler we are using: pgf90 or Absoft f95 RM='rm -f' tmpfile=/tmp/cmpver.$$ $F77 -V >$tmpfile if test -s "$tmpfile"; then #Absoft compiler f95 doesn't recognize -V flag; we will use #the error message it produces to identify the compiler # if( grep -s 'Absoft' $tmpfile > /dev/null) then if( grep -s 'ERROR: No input files' $tmpfile > /dev/null) then F77_BASENAME=f95 fi if( grep -s 'IBM XL' $tmpfile > /dev/null) then F77_BASENAME=xlf fi fi $RM $tmpfile ;; esac fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -ansi -Wall -pedantic " DEBUG_CPPFLAGS= PROD_CFLAGS="-ansi -Wall -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Wconversion -Wmissing-prototypes -Wnested-externs -pedantic -O2" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS -ansi" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in xlf) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; f95) # # Assume Absoft compiler # # Set a flag for compiling C stubs CFLAGS="$CFLAGS -DH4_ABSOFT" FFLAGS="$FFLAGS -YEXT_NAMES=UCS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/x86_64-pc-cygwin0000644000000000000000000001322712421456623015137 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi if test "X-$F77" = "X-"; then F77=g77 F77_BASENAME=g77 else case $F77 in # The PGI and Intel compilers are automatically detected below f95*|pgf90*) ;; *) # Figure out which compiler we are using: pgf90 or Absoft f95 RM='rm -f' tmpfile=/tmp/cmpver.$$ $F77 -V >$tmpfile if test -s "$tmpfile"; then if( grep -s 'Absoft' $tmpfile > /dev/null) then F77_BASENAME=f95 fi if( grep -s 'g95' $tmpfile > /dev/null) then F77_BASENAME=g95 fi if( grep -s 'pgf90' $tmpfile > /dev/null) then F77_BASENAME=pgf90 fi fi $RM $tmpfile ;; esac fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; f95) CFLAGS="$CFLAGS -DH4_ABSOFT" FFLAGS="$FFLAGS -YEXT_NAMES=UCS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; g95) CFLAGS="$CFLAGS" FFLAGS="$FFLAGS -i4" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/solaris2.x0000644000000000000000000001330012421456623014277 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=cc CC_BASENAME=cc fi if test "X-$F77" = "X-"; then F77=f77 F77_BASENAME=f77 fi if test "X-$CXX" = "X-"; then CXX=CC CXX_BASENAME=CC fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS -ansi" DEBUG_CFLAGS="-g " DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 " PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -v" DEBUG_CPPFLAGS= PROD_CFLAGS="-xO2" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; *) FFLAGS="$FFLAGS -O" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac case $CXX_BASENAME in g++) CXXFLAGS="$CXXFLAGS" DEBUG_CXXFLAGS="-g -fverbose-asm" PROD_CXXFLAGS="-O3 -fomit-frame-pointer" PROFILE_CXXFLAGS="-pg" ;; *) CXXFLAGS="$CXXFLAGS -ansi" DEBUG_CXXFLAGS="-g" PROD_CXXFLAGS="-O" PROFILE_CXXFLAGS="-pg" ;; esac # compiler version strings case $CC in *cc*) cc_version_info=`$CC $CFLAGS $H5_CFLAGS -V 2>&1 | grep 'Sun' |\ sed 's/.*\(Sun.*Sun.*\)/\1 /'` ;; *) echo "No match to get cc_version_info for $CC" ;; esac echo "C compiler '$CC' is $cc_version_info" case $F77 in # The PGI and Intel compilers are automatically detected below *f90*|*f77*) fc_version_info=`$F77 $FFLAGS $H5_FFLAGS -V 2>&1 | grep 'Sun' |\ sed 's/.*\(Sun.*Sun.*\)/\1 /'` ;; *) echo "No match to get fc_version_info for $F77" ;; esac echo "Fortran compiler '$F77' is $fc_version_info" # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/commence.am0000644000000000000000000000271212421456623014462 0ustar ## config/commence.am ## (Use double hashes for copyright notice so that automake treats it as ## comments and does not pass it to Makefile.in) ## Copyright by The HDF Group. ## Copyright by the Board of Trustees of the University of Illinois. ## All rights reserved. ## ## This file is part of HDF. The full HDF copyright notice, including ## terms governing use, modification, and redistribution, is contained in ## the files COPYING and Copyright.html. COPYING can be found at the root ## of the source code distribution tree; Copyright.html can be found at ## http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have ## access to either file, you may request a copy from help@hdfgroup.org. ## Textually included in the beginning of every HDF4 Makefile.am. ## Contains definitions, etc. used across multiple Makefiles. # Shell commands used in Makefiles RM = rm -f CP = cp # Libraries to link to while building LIBHDF = $(top_builddir)/hdf/src/libdf.la LIBMFHDF = $(top_builddir)/mfhdf/libsrc/libmfhdf.la H4CC = ${DESTDIR}$(bindir)/h4cc H4FC = ${DESTDIR}$(bindir)/h4fc if HDF_BUILD_XDR XDR_ADD = -R$(abs_top_builddir)/mfhdf/xdr/.libs endif if HDF_BUILD_SHARED AM_LDFLAGS = -R$(abs_top_builddir)/mfhdf/libsrc/.libs -R$(abs_top_builddir)/hdf/src/.libs $(XDR_ADD) endif ACLOCAL_AMFLAGS = "-I m4" # .chkexe files are used to mark tests that have run successfully. # .chklog files are output from those tests. CHECK_CLEANFILES = *.chkexe *.chklog libhdf4-4.2.10/HDF_ALT/config/conclude.am0000644000000000000000000001637112421456623014476 0ustar ## config/conclude.am ## (Use double hashes for copyright notice so that automake treats it as ## comments and does not pass it to Makefile.in) ## Copyright by The HDF Group. ## Copyright by the Board of Trustees of the University of Illinois. ## All rights reserved. ## ## This file is part of HDF5. The full HDF5 copyright notice, including ## terms governing use, modification, and redistribution, is contained in ## the files COPYING and Copyright.html. COPYING can be found at the root ## of the source code distribution tree; Copyright.html can be found at the ## root level of an installed copy of the electronic HDF5 document set and ## is linked from the top-level documents page. It can also be found at ## http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have ## access to either file, you may request a copy from help@hdfgroup.org. ## Textually included at the end of most HDF5 Makefiles.am. ## Contains build rules. # Automake needs to be taught how to build lib, progs, and tests targets. # These will be filled in automatically for the most part (e.g., # lib_LIBRARIES are built for lib target), but EXTRA_LIB, EXTRA_PROG # variables are supplied to allow the user to force targets to # be built at certain times. LIB = $(lib_LIBRARIES) $(lib_LTLIBRARIES) $(noinst_LIBRARIES) \ $(noinst_LTLIBRARIES) $(check_LIBRARIES) $(check_LTLIBRARIES) $(EXTRA_LIB) PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \ $(EXTRA_PROG) chk_TESTS = $(check_PROGRAMS) $(check_SCRIPTS) TESTS = $(TEST_PROG) $(TEST_SCRIPT) TEST_EXTENSIONS = .sh SH_LOG_COMPILER = $(SHELL) AM_SH_LOG_FLAGS = # lib/progs/tests targets recurse into subdirectories. build-* targets # build files in this directory. build-lib: $(LIB) build-progs: $(LIB) $(PROGS) build-tests: $(LIB) $(PROGS) $(chk_TESTS) # General rule for recursive building targets. # BUILT_SOURCES contain targets that need to be built before anything else # in the directory (e.g., for Fortran type detection) lib progs tests check-s :: $(BUILT_SOURCES) @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # General rule for recursive cleaning targets. Like the rule above, # but doesn't require building BUILT_SOURCES. check-clean :: @$(MAKE) $(AM_MAKEFLAGS) build-$@ || exit 1; @for d in X $(SUBDIRS); do \ if test $$d != X && test $$d != .; then \ (set -x; cd $$d && $(MAKE) $(AM_MAKEFLAGS) $@) || exit 1; \ fi; \ done # Tell Automake to build tests when the user types `make all' (this is # not its default behavior). Also build EXTRA_LIB and EXTRA_PROG since # Automake won't build them automatically, either. all-local: $(EXTRA_LIB) $(EXTRA_PROG) $(chk_TESTS) # make install-doc doesn't do anything outside of doc directory, but # Makefiles should recognize it. # UPDATE: docs no longer reside in this build tree, so this target # is depreciated. install-doc uninstall-doc: @echo "Nothing to be done." # clean up files generated by tests so they can be re-run. build-check-clean: $(RM) -rf $(CHECK_CLEANFILES) # run check-clean whenever mostlyclean is run mostlyclean-local: build-check-clean # check-install is just a synonym for installcheck check-install: installcheck # Run each test in order, passing $(TEST_FLAGS) to the program. # Since tests are done in a shell loop, "make -i" does apply inside it. # # Note that targets in chk_TESTS (defined above) will be built when the user # types 'make tests' or 'make check', but only programs in TEST_PROG, # or TEST_SCRIPT will actually be executed. check-TESTS: test test _test: @$(MAKE) build-check-s # Actual execution of check-s. build-check-s: $(LIB) $(PROGS) $(chk_TESTS) @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` begin `date`==="; \ fi @$(MAKE) $(AM_MAKEFLAGS) _exec_check-s @if test -n "$(TEST_PROG)$(TEST_SCRIPT)"; then \ echo "===Serial tests in `echo ${PWD} | sed -e s:.*/::` ended `date`===";\ fi TEST_PROG_CHKEXE=$(TEST_PROG:=.chkexe_) TEST_SCRIPT_CHKSH=$(TEST_SCRIPT:=.chkexe_) _exec_check-s: $(TEST_PROG_CHKEXE) $(TEST_SCRIPT_CHKSH) # The dummy.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_PROG_CHKEXE) dummy.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummy.chkexe_"; then \ tname=$(@:.chkexe_=)$(EXEEXT);\ log=$(@:.chkexe_=.chklog); \ echo ""; \ echo "============================"; \ if $(top_srcdir)/bin/newer $(@:.chkexe_=.chkexe) $${tname}; then \ echo "No need to test $${tname} again."; \ else \ echo "----------------------------" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "----------------------------" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) ./$${tname} $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $(@:.chkexe_=.chkexe) || \ (cat $${log} && false) || exit 1; \ echo "----------------------------" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ cat $${log}; \ fi; \ fi # The dummysh.chkexe here prevents the target from being # empty if there are no tests in the current directory. # $${log} is the log file. # $${tname} is the name of test. $(TEST_SCRIPT_CHKSH) dummysh.chkexe_: @if test "X$@" != "X.chkexe_" && test "X$@" != "Xdummysh.chkexe_"; then \ cmd=$(@:.chkexe_=);\ tname=`basename $$cmd`;\ chkname=`basename $(@:.chkexe_=.chkexe)`;\ log=`basename $(@:.chkexe_=.chklog)`; \ echo "============================"; \ if $(top_srcdir)/bin/newer $${chkname} $$cmd $(SCRIPT_DEPEND); then \ echo "No need to test $${tname} again."; \ else \ echo "============================" > $${log}; \ if test "X$(FORTRAN_API)" = "Xyes"; then \ echo "Fortran API: Testing $${tname} $(TEST_FLAGS)"; \ echo "Fortran API: $${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ else \ echo "Testing $${tname} $(TEST_FLAGS)"; \ echo "$${tname} $(TEST_FLAGS) Test Log" >> $${log}; \ fi; \ echo "============================" >> $${log}; \ srcdir="$(srcdir)" \ $(TIME) $(SHELL) $$cmd $(TEST_FLAGS) >> $${log} 2>&1 \ && touch $${chkname} || \ (cat $${log} && false) || exit 1; \ echo "" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)" >> $${log}; \ echo "============================" >> $${log}; \ echo "Finished testing $${tname} $(TEST_FLAGS)"; \ cat $${log}; \ fi; \ echo "============================"; \ fi libhdf4-4.2.10/HDF_ALT/config/powerpc64-linux-gnu0000644000000000000000000001163012421456623016054 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi if test "X-$F77" = "X-"; then F77=gfortran F77_BASENAME=gfortran fi # compiler version strings case $CC in *gcc*) cc_version_info=`$CC $CFLAGS $H5_CFLAGS --version 2>&1 | grep -v 'PathScale' |\ grep 'GCC' | sed 's/\(.*(GCC) [-a-z0-9\. ]*\).*/\1/'` ;; *) echo "No match to get cc_version_info for $CC" ;; esac # get fortran version info case $F77 in *gfortran*) fc_version_info=`$F77 $FFLAGS --version 2>&1 |\ grep 'GCC' | sed 's/\(.*(GCC) [-a-z0-9\. ]*\).*/\1/'` ;; *) echo "No match to get fc_version_info for $F77" ;; esac # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and gfortran compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O2 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in gfortran) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac libhdf4-4.2.10/HDF_ALT/config/freebsd0000644000000000000000000001223612421456623013714 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi if test "X-$F77" = "X-"; then F77=f77 F77_BASENAME=f77 fi if test "X-$CXX" = "X-"; then CXX=g++ CXX_BASENAME=g++ fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -ansi -Wall -pedantic " DEBUG_CPPFLAGS= PROD_CFLAGS="-ansi -Wall -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Wconversion -Wmissing-prototypes -Wnested-externs -pedantic -O2" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS -ansi" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; *) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac case $CXX_BASENAME in g++) CXXFLAGS="$CXXFLAGS" DEBUG_CXXFLAGS="-g -fverbose-asm" PROD_CXXFLAGS="-O3 -fomit-frame-pointer" PROFILE_CXXFLAGS="-pg" ;; *) CXXFLAGS="$CXXFLAGS -ansi" DEBUG_CXXFLAGS="-g" PROD_CXXFLAGS="-O" PROFILE_CXXFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/powerpc-ibm-aix5.x0000644000000000000000000001212512421456623015635 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=xlc CC_BASENAME=xlc fi if test "X-$F77" = "X-"; then F77=xlf F77_BASENAME=xlf fi if test "X-$CXX" = "X-"; then CXX=xlC CXX_BASENAME=xlC fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS -D_ALL_SOURCE" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; *) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac case $CXX_BASENAME in g++) CXXFLAGS="$CXXFLAGS" DEBUG_CXXFLAGS="-g -fverbose-asm" PROD_CXXFLAGS="-O3 -fomit-frame-pointer" PROFILE_CXXFLAGS="-pg" ;; *) CXXFLAGS="$CXXFLAGS -ansi" DEBUG_CXXFLAGS="-g" PROD_CXXFLAGS="-O" PROFILE_CXXFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/cmake/0000755000000000000000000000000012421456623013433 5ustar libhdf4-4.2.10/HDF_ALT/config/cmake/hdf4-config-version.cmake.in0000644000000000000000000000200312421456623020610 0ustar #----------------------------------------------------------------------------- # HDF4 Version file for install directory #----------------------------------------------------------------------------- SET (PACKAGE_VERSION @HDF4_VERSION_STRING@) IF ("${PACKAGE_FIND_VERSION_MAJOR}" EQUAL @H4_VERS_MAJOR@) # exact match for version @H5_VERS_MAJOR@.@H4_VERS_MINOR@ IF ("${PACKAGE_FIND_VERSION_MINOR}" EQUAL @H4_VERS_MINOR@) # compatible with any version @H4_VERS_MAJOR@.@H4_VERS_MINOR@.x SET (PACKAGE_VERSION_COMPATIBLE 1) IF ("${PACKAGE_FIND_VERSION_PATCH}" EQUAL @H4_VERS_RELEASE@) SET (PACKAGE_VERSION_EXACT 1) IF ("${PACKAGE_FIND_VERSION_TWEAK}" EQUAL @H4_VERS_SUBRELEASE@) # not using this yet ENDIF ("${PACKAGE_FIND_VERSION_TWEAK}" EQUAL @H4_VERS_SUBRELEASE@) ENDIF ("${PACKAGE_FIND_VERSION_PATCH}" EQUAL @H4_VERS_RELEASE@) ENDIF ("${PACKAGE_FIND_VERSION_MINOR}" EQUAL @H4_VERS_MINOR@) ENDIF ("${PACKAGE_FIND_VERSION_MAJOR}" EQUAL @H4_VERS_MAJOR@) libhdf4-4.2.10/HDF_ALT/config/cmake/HDFTests.c0000644000000000000000000001730712421456623015233 0ustar #define SIMPLE_TEST(x) int main(){ x; return 0; } #ifdef HAVE_C99_DESIGNATED_INITIALIZER #ifdef FC_DUMMY_MAIN #ifndef FC_DUMMY_MAIN_EQ_F77 # ifdef __cplusplus extern "C" # endif int FC_DUMMY_MAIN() { return 1;} #endif #endif int main () { typedef struct { int x; union { int i; double d; }u; }di_struct_t; di_struct_t x = { 0, { .d = 0.0}}; ; return 0; } #endif #ifdef HAVE_C99_FUNC #ifdef FC_DUMMY_MAIN #ifndef FC_DUMMY_MAIN_EQ_F77 # ifdef __cplusplus extern "C" # endif int FC_DUMMY_MAIN() { return 1; } #endif #endif int main () { const char *fname = __func__; ; return 0; } #endif #ifdef VSNPRINTF_WORKS #include #include #include int test_vsnprintf(const char *fmt,...) { va_list ap; char *s = malloc(16); int ret; va_start(ap, fmt); ret=vsnprintf(s,16,"%s",ap); va_end(ap); return(ret!=42 ? 1 : 0); } int main(void) { return(test_vsnprintf("%s","A string that is longer than 16 characters")); } #endif #ifdef TIME_WITH_SYS_TIME /* Time with sys/time test */ #include #include #include int main () { if ((struct tm *) 0) return 0; ; return 0; } #endif #ifdef STDC_HEADERS #include #include #include #include int main() { return 0; } #endif /* STDC_HEADERS */ #ifdef HAVE_TM_ZONE #include #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(struct tm tm; tm.tm_zone); #endif /* HAVE_TM_ZONE */ #ifdef HAVE_STRUCT_TM_TM_ZONE #include #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(struct tm tm; tm.tm_zone); #endif /* HAVE_STRUCT_TM_TM_ZONE */ #ifdef HAVE_ATTRIBUTE #if 0 static void test int __attribute((unused)) var) { int __attribute__((unused)) x = var; } int main(void) { test(19); } #else int main () { int __attribute__((unused)) x ; return 0; } #endif #endif /* HAVE_ATTRIBUTE */ #ifdef HAVE_FUNCTION #ifdef FC_DUMMY_MAIN #ifndef FC_DUMMY_MAIN_EQ_F77 # ifdef __cplusplus extern "C" # endif int FC_DUMMY_MAIN() { return 1; } #endif #endif int main () { (void)__FUNCTION__ ; return 0; } #endif /* HAVE_FUNCTION */ #ifdef HAVE_TM_GMTOFF #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(struct tm tm; tm.tm_gmtoff=0); #endif /* HAVE_TM_GMTOFF */ #ifdef HAVE___TM_GMTOFF #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(struct tm tm; tm.__tm_gmtoff=0); #endif /* HAVE_TM_GMTOFF */ #ifdef HAVE_TIMEZONE #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(timezone=0); #endif /* HAVE_TIMEZONE */ #ifdef HAVE_STRUCT_TIMEZONE #include #ifdef HAVE_SYS_TIME_H #include #endif #include SIMPLE_TEST(struct timezone tz; tz.tz_minuteswest=0); #endif /* HAVE_STRUCT_TIMEZONE */ #ifdef HAVE_STAT_ST_BLOCKS #include SIMPLE_TEST(struct stat sb; sb.st_blocks=0); #endif /* HAVE_STAT_ST_BLOCKS */ #ifdef PRINTF_LL_WIDTH #ifdef HAVE_LONG_LONG # define LL_TYPE long long #else /* HAVE_LONG_LONG */ # define LL_TYPE __int64 #endif /* HAVE_LONG_LONG */ #include #include #include int main(void) { char *llwidthArgs[] = { "l64", "l", "L", "q", "ll", NULL }; char *s = malloc(128); char **currentArg = NULL; LL_TYPE x = (LL_TYPE)1048576 * (LL_TYPE)1048576; for (currentArg = llwidthArgs; *currentArg != NULL; currentArg++) { char formatString[64]; sprintf(formatString, "%%%sd", *currentArg); sprintf(s, formatString, x); if (strcmp(s, "1099511627776") == 0) { printf("PRINTF_LL_WIDTH=[%s]\n", *currentArg); return 0; } } return 1; } #endif /* PRINTF_LL_WIDTH */ #ifdef SYSTEM_SCOPE_THREADS #include #include int main(void) { pthread_attr_t attribute; int ret; pthread_attr_init(&attribute); ret=pthread_attr_setscope(&attribute, PTHREAD_SCOPE_SYSTEM); if (ret==0) return 0; return 1; } #endif /* SYSTEM_SCOPE_THREADS */ #ifdef HAVE_SOCKLEN_T #include #include #ifdef HAVE_UNISTD_H #include #endif #ifdef HAVE_SYS_TYPES_H #include #endif #ifdef HAVE_SYS_SOCKET_H #include #endif SIMPLE_TEST(socklen_t foo); #endif /* HAVE_SOCKLEN_T */ #ifdef DEV_T_IS_SCALAR #ifdef HAVE_SYS_TYPES_H #include #endif int main () { dev_t d1, d2; if(d1==d2) return 0; return 1; } #endif /* DEV_T_IS_SCALAR */ #ifdef HAVE_OFF64_T #include int main() { off64_t n = 0; return (int)n; } #endif #ifdef HAVE_STAT64_STRUCT #include #include ], struct stat64 sb; int main() { return 0; } #endif #ifdef TEST_DIRECT_VFD_WORKS #include #include #include int main(void) { int fid; if((fid=open("tst_file", O_CREAT | O_TRUNC | O_DIRECT, 0755))<0) return 1; close(fid); remove("tst_file"); return 0; } #endif #ifdef HAVE_DIRECT SIMPLE_TEST(posix_memalign()); #endif #ifdef TEST_LFS_WORKS /* Return 0 when LFS is available and 1 otherwise. */ #define _LARGEFILE_SOURCE #define _LARGEFILE64_SOURCE #define _LARGE_FILES #define _FILE_OFFSET_BITS 64 #include #include #include #include int main(int argc, char **argv) { /* check that off_t can hold 2^63 - 1 and perform basic operations... */ #define OFF_T_64 (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) if (OFF_T_64 % 2147483647 != 1) return 1; /* stat breaks on SCO OpenServer */ struct stat buf; stat( argv[0], &buf ); if (!S_ISREG(buf.st_mode)) return 2; FILE *file = fopen( argv[0], "r" ); off_t offset = ftello( file ); fseek( file, offset, SEEK_CUR ); fclose( file ); return 0; } #endif #ifdef GETTIMEOFDAY_GIVES_TZ #ifdef HAVE_SYS_TIME_H #include #endif #include int main(void) { struct timeval tv; struct timezone tz; tz.tz_minuteswest = 7777; /* Initialize to an unreasonable number */ tz.tz_dsttime = 7; gettimeofday(&tv, &tz); /* Check whether the function returned any value at all */ if(tz.tz_minuteswest == 7777 && tz.tz_dsttime == 7) return 1; else return 0; } #endif #ifdef LONE_COLON int main(int argc, char * argv) { return 0; } #endif #ifdef CXX_HAVE_OFFSETOF #include #include #ifdef FC_DUMMY_MAIN #ifndef FC_DUMMY_MAIN_EQ_F77 # ifdef __cplusplus extern "C" # endif int FC_DUMMY_MAIN() { return 1;} #endif #endif int main () { struct index_st { unsigned char type; unsigned char num; unsigned int len; }; typedef struct index_st index_t; int x,y; x = offsetof(struct index_st, len); y = offsetof(index_t, num) ; return 0; } #endif #ifdef HAVE_GPFS #include int main () { int fd = 0; gpfs_fcntl(fd, (void *)0); } #endif /* HAVE_GPFS */ #ifdef HAVE_IOEO #include typedef void (WINAPI *PGNSI)(LPSYSTEM_INFO); int main () { PGNSI pGNSI; pGNSI = (PGNSI) GetProcAddress( GetModuleHandle(TEXT("kernel32.dll")), "InitOnceExecuteOnce"); if(NULL == pGNSI) return 1; else return 0; } #endif /* HAVE_IOEO */ #ifdef HAVE_STRUCT_VIDEOCONFIG SIMPLE_TEST(struct videoconfig w; w.numtextcols=0); #endif /* HAVE_TM_GMTOFF */ #ifdef HAVE_STRUCT_TEXT_INFO SIMPLE_TEST(struct text_info w; w.screenwidth=0); #endif /* HAVE_TM_GMTOFF */ #if defined( INLINE_TEST_inline ) || defined( INLINE_TEST___inline__ ) || defined( INLINE_TEST___inline ) #ifndef __cplusplus typedef int foo_t; static INLINE_TEST_INLINE foo_t static_foo () { return 0; } INLINE_TEST_INLINE foo_t foo () {return 0; } int main() { return 0; } #endif #endif /* INLINE_TEST */ libhdf4-4.2.10/HDF_ALT/config/cmake/hdf4-config.cmake.build.in0000644000000000000000000000504512421456623020234 0ustar #----------------------------------------------------------------------------- # HDF4 Config file for compiling against hdf4 build directory #----------------------------------------------------------------------------- GET_FILENAME_COMPONENT (SELF_DIR "${CMAKE_CURRENT_LIST_FILE}" PATH) #----------------------------------------------------------------------------- # User Options #----------------------------------------------------------------------------- SET (HDF4_ENABLE_PARALLEL @HDF4_ENABLE_PARALLEL@) SET (HDF4_BUILD_FORTRAN @HDF4_BUILD_FORTRAN@) SET (HDF4_BUILD_XDR_LIB @HDF4_BUILD_XDR_LIB@) SET (HDF4_BUILD_TOOLS @HDF4_BUILD_TOOLS@) SET (HDF4_BUILD_UTILS @HDF4_BUILD_UTILS@) SET (HDF4_ENABLE_JPEG_LIB_SUPPORT @HDF4_ENABLE_JPEG_LIB_SUPPORT@) SET (HDF4_ENABLE_Z_LIB_SUPPORT @HDF4_ENABLE_Z_LIB_SUPPORT@) SET (HDF4_ENABLE_SZIP_SUPPORT @HDF4_ENABLE_SZIP_SUPPORT@) SET (HDF4_ENABLE_SZIP_ENCODING @HDF4_ENABLE_SZIP_ENCODING@) SET (HDF4_BUILD_SHARED_LIBS @BUILD_SHARED_LIBS@) #----------------------------------------------------------------------------- # Directories #----------------------------------------------------------------------------- SET (HDF4_INCLUDE_DIR "@HDF4_INCLUDES_BUILD_TIME@") IF (HDF4_BUILD_FORTRAN) SET (HDF4_INCLUDE_DIR_FORTRAN "@CMAKE_Fortran_MODULE_DIRECTORY@" ) ENDIF (HDF4_BUILD_FORTRAN) IF (HDF4_BUILD_XDR_LIB) SET (HDF4_INCLUDE_DIR_XDR ${HDF4_INCLUDE_DIR} ) ENDIF (HDF4_BUILD_XDR_LIB) IF (HDF4_BUILD_TOOLS) SET (HDF4_INCLUDE_DIR_TOOLS ${HDF4_INCLUDE_DIR} ) ENDIF (HDF4_BUILD_TOOLS) IF (HDF4_BUILD_UTILS) SET (HDF4_INCLUDE_DIR_UTILS ${HDF4_INCLUDE_DIR} ) ENDIF (HDF4_BUILD_UTILS) IF (HDF4_BUILD_SHARED_LIBS) SET (H4_BUILT_AS_DYNAMIC_LIB 1 ) ELSE (HDF4_BUILD_SHARED_LIBS) SET (H4_BUILT_AS_STATIC_LIB 1 ) ENDIF (HDF4_BUILD_SHARED_LIBS) #----------------------------------------------------------------------------- # Version Strings #----------------------------------------------------------------------------- SET (HDF4_VERSION_STRING @HDF4_VERSION_STRING@) SET (HDF4_VERSION_MAJOR @HDF4_VERSION_MAJOR@) SET (HDF4_VERSION_MINOR @HDF4_VERSION_MINOR@) #----------------------------------------------------------------------------- # Don't include targets if this file is being picked up by another # project which has already build hdf4 as a subproject #----------------------------------------------------------------------------- IF (NOT TARGET "@HDF4_PACKAGE@") INCLUDE (${SELF_DIR}/@HDF4_PACKAGE@@HDF_PACKAGE_EXT@-targets.cmake) SET (HDF4_LIBRARIES "@HDF4_LIBRARIES_TO_EXPORT@") ENDIF (NOT TARGET "@HDF4_PACKAGE@") libhdf4-4.2.10/HDF_ALT/config/cmake/HDF4UseFortran.cmake0000644000000000000000000001114512421456623017135 0ustar # # This file provides functions for Fortran support. # #------------------------------------------------------------------------------- ENABLE_LANGUAGE (Fortran) #----------------------------------------------------------------------------- # Detect name mangling convention used between Fortran and C #----------------------------------------------------------------------------- INCLUDE (FortranCInterface) FortranCInterface_HEADER ( ${CMAKE_BINARY_DIR}/F77Mangle.h MACRO_NAMESPACE "H4_F77_" SYMBOL_NAMESPACE "H4_F77_" SYMBOLS mysub mymod:my_sub ) FILE (STRINGS ${CMAKE_BINARY_DIR}/F77Mangle.h CONTENTS REGEX "H4_F77_GLOBAL\\(.*,.*\\) +(.*)") STRING (REGEX MATCH "H4_F77_GLOBAL\\(.*,.*\\) +(.*)" RESULT ${CONTENTS}) SET (H4_F77_FUNC "H4_F77_FUNC(name,NAME) ${CMAKE_MATCH_1}") FILE (STRINGS ${CMAKE_BINARY_DIR}/F77Mangle.h CONTENTS REGEX "H4_F77_GLOBAL_\\(.*,.*\\) +(.*)") STRING (REGEX MATCH "H4_F77_GLOBAL_\\(.*,.*\\) +(.*)" RESULT ${CONTENTS}) SET (H4_F77_FUNC_ "H4_F77_FUNC_(name,NAME) ${CMAKE_MATCH_1}") #----------------------------------------------------------------------------- # The provided CMake Fortran macros don't provide a general check function # so this one is used for a sizeof test. #----------------------------------------------------------------------------- MACRO (CHECK_FORTRAN_FEATURE FUNCTION CODE VARIABLE) IF (NOT DEFINED ${VARIABLE}) MESSAGE (STATUS "Testing Fortran ${FUNCTION}") IF (CMAKE_REQUIRED_LIBRARIES) SET (CHECK_FUNCTION_EXISTS_ADD_LIBRARIES "-DLINK_LIBRARIES:STRING=${CMAKE_REQUIRED_LIBRARIES}") ELSE (CMAKE_REQUIRED_LIBRARIES) SET (CHECK_FUNCTION_EXISTS_ADD_LIBRARIES) ENDIF (CMAKE_REQUIRED_LIBRARIES) FILE (WRITE ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/testFortranCompiler.f "${CODE}" ) TRY_COMPILE (${VARIABLE} ${CMAKE_BINARY_DIR} ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/testFortranCompiler.f CMAKE_FLAGS "${CHECK_FUNCTION_EXISTS_ADD_LIBRARIES}" OUTPUT_VARIABLE OUTPUT ) # MESSAGE ( "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ") # MESSAGE ( "Test result ${OUTPUT}") # MESSAGE ( "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ") IF (${VARIABLE}) SET (${VARIABLE} 1 CACHE INTERNAL "Have Fortran function ${FUNCTION}") MESSAGE (STATUS "Testing Fortran ${FUNCTION} - OK") FILE (APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeOutput.log "Determining if the Fortran ${FUNCTION} exists passed with the following output:\n" "${OUTPUT}\n\n" ) ELSE (${VARIABLE}) MESSAGE (STATUS "Testing Fortran ${FUNCTION} - Fail") SET (${VARIABLE} "" CACHE INTERNAL "Have Fortran function ${FUNCTION}") FILE (APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeError.log "Determining if the Fortran ${FUNCTION} exists failed with the following output:\n" "${OUTPUT}\n\n") ENDIF (${VARIABLE}) ENDIF (NOT DEFINED ${VARIABLE}) ENDMACRO (CHECK_FORTRAN_FEATURE) #----------------------------------------------------------------------------- # Configure Checks which require Fortran compilation must go in here # not in the main ConfigureChecks.cmake files, because if the user has # no Fortran compiler, problems arise. # # Be careful with leading spaces here, do not remove them. #----------------------------------------------------------------------------- CHECK_FORTRAN_FEATURE(sizeof " PROGRAM main i = sizeof(x) END PROGRAM " FORTRAN_HAVE_SIZEOF ) CHECK_FORTRAN_FEATURE(RealIsNotDouble " MODULE type_mod INTERFACE h4t MODULE PROCEDURE h4t_real MODULE PROCEDURE h4t_dble END INTERFACE CONTAINS SUBROUTINE h4t_real(r) REAL :: r END SUBROUTINE h4t_real SUBROUTINE h4t_dble(d) DOUBLE PRECISION :: d END SUBROUTINE h4t_dble END MODULE type_mod PROGRAM main USE type_mod REAL :: r DOUBLE PRECISION :: d CALL h4t(r) CALL h4t(d) END PROGRAM main " FORTRAN_DEFAULT_REAL_NOT_DOUBLE ) #----------------------------------------------------------------------------- # Add debug information (intel Fortran : JB) #----------------------------------------------------------------------------- IF (CMAKE_Fortran_COMPILER MATCHES ifort) IF (WIN32) SET (CMAKE_Fortran_FLAGS_DEBUG "/debug:full /dbglibs " CACHE "flags" STRING FORCE) SET (CMAKE_EXE_LINKER_FLAGS_DEBUG "/DEBUG" CACHE "flags" STRING FORCE) ENDIF (WIN32) ENDIF (CMAKE_Fortran_COMPILER MATCHES ifort) libhdf4-4.2.10/HDF_ALT/config/cmake/NSIS.template.in0000644000000000000000000006741212421456623016363 0ustar ; CPack install script designed for a nmake build ;-------------------------------- ; You must define these values !define VERSION "@CPACK_PACKAGE_VERSION@" !define PATCH "@CPACK_PACKAGE_VERSION_PATCH@" !define INST_DIR "@CPACK_TEMPORARY_DIRECTORY@" ;-------------------------------- ;Variables Var MUI_TEMP Var STARTMENU_FOLDER Var SV_ALLUSERS Var START_MENU Var DO_NOT_ADD_TO_PATH Var ADD_TO_PATH_ALL_USERS Var ADD_TO_PATH_CURRENT_USER Var INSTALL_DESKTOP Var IS_DEFAULT_INSTALLDIR ;-------------------------------- ;Include Modern UI !include "MUI.nsh" ;Default installation folder InstallDir "@CPACK_NSIS_INSTALL_ROOT@\@CPACK_PACKAGE_INSTALL_DIRECTORY@" ;-------------------------------- ;General ;Name and file Name "@CPACK_NSIS_PACKAGE_NAME@" OutFile "@CPACK_TOPLEVEL_DIRECTORY@/@CPACK_OUTPUT_FILE_NAME@" ;Set compression SetCompressor @CPACK_NSIS_COMPRESSOR@ @CPACK_NSIS_DEFINES@ !include Sections.nsh ;--- Component support macros: --- ; The code for the add/remove functionality is from: ; http://nsis.sourceforge.net/Add/Remove_Functionality ; It has been modified slightly and extended to provide ; inter-component dependencies. Var AR_SecFlags Var AR_RegFlags @CPACK_NSIS_SECTION_SELECTED_VARS@ ; Loads the "selected" flag for the section named SecName into the ; variable VarName. !macro LoadSectionSelectedIntoVar SecName VarName SectionGetFlags ${${SecName}} $${VarName} IntOp $${VarName} $${VarName} & ${SF_SELECTED} ;Turn off all other bits !macroend ; Loads the value of a variable... can we get around this? !macro LoadVar VarName IntOp $R0 0 + $${VarName} !macroend ; Sets the value of a variable !macro StoreVar VarName IntValue IntOp $${VarName} 0 + ${IntValue} !macroend !macro InitSection SecName ; This macro reads component installed flag from the registry and ;changes checked state of the section on the components page. ;Input: section index constant name specified in Section command. ClearErrors ;Reading component status from registry ReadRegDWORD $AR_RegFlags HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@\Components\${SecName}" "Installed" IfErrors "default_${SecName}" ;Status will stay default if registry value not found ;(component was never installed) IntOp $AR_RegFlags $AR_RegFlags & ${SF_SELECTED} ;Turn off all other bits SectionGetFlags ${${SecName}} $AR_SecFlags ;Reading default section flags IntOp $AR_SecFlags $AR_SecFlags & 0xFFFE ;Turn lowest (enabled) bit off IntOp $AR_SecFlags $AR_RegFlags | $AR_SecFlags ;Change lowest bit ; Note whether this component was installed before !insertmacro StoreVar ${SecName}_was_installed $AR_RegFlags IntOp $R0 $AR_RegFlags & $AR_RegFlags ;Writing modified flags SectionSetFlags ${${SecName}} $AR_SecFlags "default_${SecName}:" !insertmacro LoadSectionSelectedIntoVar ${SecName} ${SecName}_selected !macroend !macro FinishSection SecName ; This macro reads section flag set by user and removes the section ;if it is not selected. ;Then it writes component installed flag to registry ;Input: section index constant name specified in Section command. SectionGetFlags ${${SecName}} $AR_SecFlags ;Reading section flags ;Checking lowest bit: IntOp $AR_SecFlags $AR_SecFlags & ${SF_SELECTED} IntCmp $AR_SecFlags 1 "leave_${SecName}" ;Section is not selected: ;Calling Section uninstall macro and writing zero installed flag !insertmacro "Remove_${${SecName}}" WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@\Components\${SecName}" \ "Installed" 0 Goto "exit_${SecName}" "leave_${SecName}:" ;Section is selected: WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@\Components\${SecName}" \ "Installed" 1 "exit_${SecName}:" !macroend !macro RemoveSection_CPack SecName ; This macro is used to call section's Remove_... macro ;from the uninstaller. ;Input: section index constant name specified in Section command. !insertmacro "Remove_${${SecName}}" !macroend ; Determine whether the selection of SecName changed !macro MaybeSelectionChanged SecName !insertmacro LoadVar ${SecName}_selected SectionGetFlags ${${SecName}} $R1 IntOp $R1 $R1 & ${SF_SELECTED} ;Turn off all other bits ; See if the status has changed: IntCmp $R0 $R1 "${SecName}_unchanged" !insertmacro LoadSectionSelectedIntoVar ${SecName} ${SecName}_selected IntCmp $R1 ${SF_SELECTED} "${SecName}_was_selected" !insertmacro "Deselect_required_by_${SecName}" goto "${SecName}_unchanged" "${SecName}_was_selected:" !insertmacro "Select_${SecName}_depends" "${SecName}_unchanged:" !macroend ;--- End of Add/Remove macros --- ;-------------------------------- ;Interface Settings !define MUI_HEADERIMAGE !define MUI_ABORTWARNING ;-------------------------------- ; path functions !verbose 3 !include "WinMessages.NSH" !verbose 4 ;---------------------------------------- ; based upon a script of "Written by KiCHiK 2003-01-18 05:57:02" ;---------------------------------------- !verbose 3 !include "WinMessages.NSH" !verbose 4 ;==================================================== ; get_NT_environment ; Returns: the selected environment ; Output : head of the stack ;==================================================== !macro select_NT_profile UN Function ${UN}select_NT_profile StrCmp $ADD_TO_PATH_ALL_USERS "1" 0 environment_single DetailPrint "Selected environment for all users" Push "all" Return environment_single: DetailPrint "Selected environment for current user only." Push "current" Return FunctionEnd !macroend !insertmacro select_NT_profile "" !insertmacro select_NT_profile "un." ;---------------------------------------------------- !define NT_current_env 'HKCU "Environment"' !define NT_all_env 'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"' !ifndef WriteEnvStr_RegKey !ifdef ALL_USERS !define WriteEnvStr_RegKey \ 'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"' !else !define WriteEnvStr_RegKey 'HKCU "Environment"' !endif !endif ; AddToPath - Adds the given dir to the search path. ; Input - head of the stack ; Note - Win9x systems requires reboot Function AddToPath Exch $0 Push $1 Push $2 Push $3 # don't add if the path doesn't exist IfFileExists "$0\*.*" "" AddToPath_done ReadEnvStr $1 PATH ; if the path is too long for a NSIS variable NSIS will return a 0 ; length string. If we find that, then warn and skip any path ; modification as it will trash the existing path. StrLen $2 $1 IntCmp $2 0 CheckPathLength_ShowPathWarning CheckPathLength_Done CheckPathLength_Done CheckPathLength_ShowPathWarning: Messagebox MB_OK|MB_ICONEXCLAMATION "Warning! PATH too long installer unable to modify PATH!" Goto AddToPath_done CheckPathLength_Done: Push "$1;" Push "$0;" Call StrStr Pop $2 StrCmp $2 "" "" AddToPath_done Push "$1;" Push "$0\;" Call StrStr Pop $2 StrCmp $2 "" "" AddToPath_done GetFullPathName /SHORT $3 $0 Push "$1;" Push "$3;" Call StrStr Pop $2 StrCmp $2 "" "" AddToPath_done Push "$1;" Push "$3\;" Call StrStr Pop $2 StrCmp $2 "" "" AddToPath_done Call IsNT Pop $1 StrCmp $1 1 AddToPath_NT ; Not on NT StrCpy $1 $WINDIR 2 FileOpen $1 "$1\autoexec.bat" a FileSeek $1 -1 END FileReadByte $1 $2 IntCmp $2 26 0 +2 +2 # DOS EOF FileSeek $1 -1 END # write over EOF FileWrite $1 "$\r$\nSET PATH=%PATH%;$3$\r$\n" FileClose $1 SetRebootFlag true Goto AddToPath_done AddToPath_NT: StrCmp $ADD_TO_PATH_ALL_USERS "1" ReadAllKey ReadRegStr $1 ${NT_current_env} "PATH" Goto DoTrim ReadAllKey: ReadRegStr $1 ${NT_all_env} "PATH" DoTrim: StrCmp $1 "" AddToPath_NTdoIt Push $1 Call Trim Pop $1 StrCpy $0 "$1;$0" AddToPath_NTdoIt: StrCmp $ADD_TO_PATH_ALL_USERS "1" WriteAllKey WriteRegExpandStr ${NT_current_env} "PATH" $0 Goto DoSend WriteAllKey: WriteRegExpandStr ${NT_all_env} "PATH" $0 DoSend: SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000 AddToPath_done: Pop $3 Pop $2 Pop $1 Pop $0 FunctionEnd ; RemoveFromPath - Remove a given dir from the path ; Input: head of the stack Function un.RemoveFromPath Exch $0 Push $1 Push $2 Push $3 Push $4 Push $5 Push $6 IntFmt $6 "%c" 26 # DOS EOF Call un.IsNT Pop $1 StrCmp $1 1 unRemoveFromPath_NT ; Not on NT StrCpy $1 $WINDIR 2 FileOpen $1 "$1\autoexec.bat" r GetTempFileName $4 FileOpen $2 $4 w GetFullPathName /SHORT $0 $0 StrCpy $0 "SET PATH=%PATH%;$0" Goto unRemoveFromPath_dosLoop unRemoveFromPath_dosLoop: FileRead $1 $3 StrCpy $5 $3 1 -1 # read last char StrCmp $5 $6 0 +2 # if DOS EOF StrCpy $3 $3 -1 # remove DOS EOF so we can compare StrCmp $3 "$0$\r$\n" unRemoveFromPath_dosLoopRemoveLine StrCmp $3 "$0$\n" unRemoveFromPath_dosLoopRemoveLine StrCmp $3 "$0" unRemoveFromPath_dosLoopRemoveLine StrCmp $3 "" unRemoveFromPath_dosLoopEnd FileWrite $2 $3 Goto unRemoveFromPath_dosLoop unRemoveFromPath_dosLoopRemoveLine: SetRebootFlag true Goto unRemoveFromPath_dosLoop unRemoveFromPath_dosLoopEnd: FileClose $2 FileClose $1 StrCpy $1 $WINDIR 2 Delete "$1\autoexec.bat" CopyFiles /SILENT $4 "$1\autoexec.bat" Delete $4 Goto unRemoveFromPath_done unRemoveFromPath_NT: StrCmp $ADD_TO_PATH_ALL_USERS "1" unReadAllKey ReadRegStr $1 ${NT_current_env} "PATH" Goto unDoTrim unReadAllKey: ReadRegStr $1 ${NT_all_env} "PATH" unDoTrim: StrCpy $5 $1 1 -1 # copy last char StrCmp $5 ";" +2 # if last char != ; StrCpy $1 "$1;" # append ; Push $1 Push "$0;" Call un.StrStr ; Find `$0;` in $1 Pop $2 ; pos of our dir StrCmp $2 "" unRemoveFromPath_done ; else, it is in path # $0 - path to add # $1 - path var StrLen $3 "$0;" StrLen $4 $2 StrCpy $5 $1 -$4 # $5 is now the part before the path to remove StrCpy $6 $2 "" $3 # $6 is now the part after the path to remove StrCpy $3 $5$6 StrCpy $5 $3 1 -1 # copy last char StrCmp $5 ";" 0 +2 # if last char == ; StrCpy $3 $3 -1 # remove last char StrCmp $ADD_TO_PATH_ALL_USERS "1" unWriteAllKey WriteRegExpandStr ${NT_current_env} "PATH" $3 Goto unDoSend unWriteAllKey: WriteRegExpandStr ${NT_all_env} "PATH" $3 unDoSend: SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000 unRemoveFromPath_done: Pop $6 Pop $5 Pop $4 Pop $3 Pop $2 Pop $1 Pop $0 FunctionEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Uninstall sutff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ########################################### # Utility Functions # ########################################### ;==================================================== ; IsNT - Returns 1 if the current system is NT, 0 ; otherwise. ; Output: head of the stack ;==================================================== ; IsNT ; no input ; output, top of the stack = 1 if NT or 0 if not ; ; Usage: ; Call IsNT ; Pop $R0 ; ($R0 at this point is 1 or 0) !macro IsNT un Function ${un}IsNT Push $0 ReadRegStr $0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion StrCmp $0 "" 0 IsNT_yes ; we are not NT. Pop $0 Push 0 Return IsNT_yes: ; NT!!! Pop $0 Push 1 FunctionEnd !macroend !insertmacro IsNT "" !insertmacro IsNT "un." ; StrStr ; input, top of stack = string to search for ; top of stack-1 = string to search in ; output, top of stack (replaces with the portion of the string remaining) ; modifies no other variables. ; ; Usage: ; Push "this is a long ass string" ; Push "ass" ; Call StrStr ; Pop $R0 ; ($R0 at this point is "ass string") !macro StrStr un Function ${un}StrStr Exch $R1 ; st=haystack,old$R1, $R1=needle Exch ; st=old$R1,haystack Exch $R2 ; st=old$R1,old$R2, $R2=haystack Push $R3 Push $R4 Push $R5 StrLen $R3 $R1 StrCpy $R4 0 ; $R1=needle ; $R2=haystack ; $R3=len(needle) ; $R4=cnt ; $R5=tmp loop: StrCpy $R5 $R2 $R3 $R4 StrCmp $R5 $R1 done StrCmp $R5 "" done IntOp $R4 $R4 + 1 Goto loop done: StrCpy $R1 $R2 "" $R4 Pop $R5 Pop $R4 Pop $R3 Pop $R2 Exch $R1 FunctionEnd !macroend !insertmacro StrStr "" !insertmacro StrStr "un." Function Trim ; Added by Pelaca Exch $R1 Push $R2 Loop: StrCpy $R2 "$R1" 1 -1 StrCmp "$R2" " " RTrim StrCmp "$R2" "$\n" RTrim StrCmp "$R2" "$\r" RTrim StrCmp "$R2" ";" RTrim GoTo Done RTrim: StrCpy $R1 "$R1" -1 Goto Loop Done: Pop $R2 Exch $R1 FunctionEnd Function ConditionalAddToRegisty Pop $0 Pop $1 StrCmp "$0" "" ConditionalAddToRegisty_EmptyString WriteRegStr SHCTX "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" \ "$1" "$0" ;MessageBox MB_OK "Set Registry: '$1' to '$0'" DetailPrint "Set install registry entry: '$1' to '$0'" ConditionalAddToRegisty_EmptyString: FunctionEnd ;-------------------------------- !ifdef CPACK_USES_DOWNLOAD Function DownloadFile IfFileExists $INSTDIR\* +2 CreateDirectory $INSTDIR Pop $0 ; Skip if already downloaded IfFileExists $INSTDIR\$0 0 +2 Return StrCpy $1 "@CPACK_DOWNLOAD_SITE@" try_again: NSISdl::download "$1/$0" "$INSTDIR\$0" Pop $1 StrCmp $1 "success" success StrCmp $1 "Cancelled" cancel MessageBox MB_OK "Download failed: $1" cancel: Return success: FunctionEnd !endif ;-------------------------------- ; Installation types @CPACK_NSIS_INSTALLATION_TYPES@ ;-------------------------------- ; Component sections @CPACK_NSIS_COMPONENT_SECTIONS@ ;-------------------------------- ; Define some macro setting for the gui @CPACK_NSIS_INSTALLER_MUI_ICON_CODE@ @CPACK_NSIS_INSTALLER_ICON_CODE@ @CPACK_NSIS_INSTALLER_MUI_COMPONENTS_DESC@ @CPACK_NSIS_INSTALLER_MUI_FINISHPAGE_RUN_CODE@ ;-------------------------------- ;Pages !insertmacro MUI_PAGE_WELCOME !insertmacro MUI_PAGE_LICENSE "@CPACK_RESOURCE_FILE_LICENSE@" Page custom InstallOptionsPage !insertmacro MUI_PAGE_DIRECTORY ;Start Menu Folder Page Configuration !define MUI_STARTMENUPAGE_REGISTRY_ROOT "SHCTX" !define MUI_STARTMENUPAGE_REGISTRY_KEY "Software\@CPACK_PACKAGE_VENDOR@\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "Start Menu Folder" !insertmacro MUI_PAGE_STARTMENU Application $STARTMENU_FOLDER @CPACK_NSIS_PAGE_COMPONENTS@ !insertmacro MUI_PAGE_INSTFILES !insertmacro MUI_PAGE_FINISH !insertmacro MUI_UNPAGE_CONFIRM !insertmacro MUI_UNPAGE_INSTFILES ;-------------------------------- ;Languages !insertmacro MUI_LANGUAGE "English" ;first language is the default language !insertmacro MUI_LANGUAGE "Albanian" !insertmacro MUI_LANGUAGE "Arabic" !insertmacro MUI_LANGUAGE "Basque" !insertmacro MUI_LANGUAGE "Belarusian" !insertmacro MUI_LANGUAGE "Bosnian" !insertmacro MUI_LANGUAGE "Breton" !insertmacro MUI_LANGUAGE "Bulgarian" !insertmacro MUI_LANGUAGE "Croatian" !insertmacro MUI_LANGUAGE "Czech" !insertmacro MUI_LANGUAGE "Danish" !insertmacro MUI_LANGUAGE "Dutch" !insertmacro MUI_LANGUAGE "Estonian" !insertmacro MUI_LANGUAGE "Farsi" !insertmacro MUI_LANGUAGE "Finnish" !insertmacro MUI_LANGUAGE "French" !insertmacro MUI_LANGUAGE "German" !insertmacro MUI_LANGUAGE "Greek" !insertmacro MUI_LANGUAGE "Hebrew" !insertmacro MUI_LANGUAGE "Hungarian" !insertmacro MUI_LANGUAGE "Icelandic" !insertmacro MUI_LANGUAGE "Indonesian" !insertmacro MUI_LANGUAGE "Irish" !insertmacro MUI_LANGUAGE "Italian" !insertmacro MUI_LANGUAGE "Japanese" !insertmacro MUI_LANGUAGE "Korean" !insertmacro MUI_LANGUAGE "Kurdish" !insertmacro MUI_LANGUAGE "Latvian" !insertmacro MUI_LANGUAGE "Lithuanian" !insertmacro MUI_LANGUAGE "Luxembourgish" !insertmacro MUI_LANGUAGE "Macedonian" !insertmacro MUI_LANGUAGE "Malay" !insertmacro MUI_LANGUAGE "Mongolian" !insertmacro MUI_LANGUAGE "Norwegian" !insertmacro MUI_LANGUAGE "Polish" !insertmacro MUI_LANGUAGE "Portuguese" !insertmacro MUI_LANGUAGE "PortugueseBR" !insertmacro MUI_LANGUAGE "Romanian" !insertmacro MUI_LANGUAGE "Russian" !insertmacro MUI_LANGUAGE "Serbian" !insertmacro MUI_LANGUAGE "SerbianLatin" !insertmacro MUI_LANGUAGE "SimpChinese" !insertmacro MUI_LANGUAGE "Slovak" !insertmacro MUI_LANGUAGE "Slovenian" !insertmacro MUI_LANGUAGE "Spanish" !insertmacro MUI_LANGUAGE "Swedish" !insertmacro MUI_LANGUAGE "Thai" !insertmacro MUI_LANGUAGE "TradChinese" !insertmacro MUI_LANGUAGE "Turkish" !insertmacro MUI_LANGUAGE "Ukrainian" !insertmacro MUI_LANGUAGE "Welsh" ;-------------------------------- ;Reserve Files ;These files should be inserted before other files in the data block ;Keep these lines before any File command ;Only for solid compression (by default, solid compression is enabled for BZIP2 and LZMA) ReserveFile "NSIS.InstallOptions.ini" !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS ;-------------------------------- ;Installer Sections Section "-Core installation" ;Use the entire tree produced by the INSTALL target. Keep the ;list of directories here in sync with the RMDir commands below. SetOutPath "$INSTDIR" @CPACK_NSIS_EXTRA_PREINSTALL_COMMANDS@ @CPACK_NSIS_FULL_INSTALL@ ;Store installation folder WriteRegStr SHCTX "Software\@CPACK_PACKAGE_VENDOR@\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "" $INSTDIR ;Create uninstaller WriteUninstaller "$INSTDIR\Uninstall.exe" Push "DisplayName" Push "@CPACK_NSIS_DISPLAY_NAME@" Call ConditionalAddToRegisty Push "DisplayVersion" Push "@CPACK_PACKAGE_VERSION@" Call ConditionalAddToRegisty Push "Publisher" Push "@CPACK_PACKAGE_VENDOR@" Call ConditionalAddToRegisty Push "UninstallString" Push "$INSTDIR\Uninstall.exe" Call ConditionalAddToRegisty Push "NoRepair" Push "1" Call ConditionalAddToRegisty !ifdef CPACK_NSIS_ADD_REMOVE ;Create add/remove functionality Push "ModifyPath" Push "$INSTDIR\AddRemove.exe" Call ConditionalAddToRegisty !else Push "NoModify" Push "1" Call ConditionalAddToRegisty !endif ; Optional registration Push "DisplayIcon" Push "$INSTDIR\@CPACK_NSIS_INSTALLED_ICON_NAME@" Call ConditionalAddToRegisty Push "HelpLink" Push "@CPACK_NSIS_HELP_LINK@" Call ConditionalAddToRegisty Push "URLInfoAbout" Push "@CPACK_NSIS_URL_INFO_ABOUT@" Call ConditionalAddToRegisty Push "Contact" Push "@CPACK_NSIS_CONTACT@" Call ConditionalAddToRegisty !insertmacro MUI_INSTALLOPTIONS_READ $INSTALL_DESKTOP "NSIS.InstallOptions.ini" "Field 5" "State" !insertmacro MUI_STARTMENU_WRITE_BEGIN Application ;Create shortcuts CreateDirectory "$SMPROGRAMS\$STARTMENU_FOLDER" @CPACK_NSIS_CREATE_ICONS@ @CPACK_NSIS_CREATE_ICONS_EXTRA@ CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Uninstall.lnk" "$INSTDIR\Uninstall.exe" ;Read a value from an InstallOptions INI file !insertmacro MUI_INSTALLOPTIONS_READ $DO_NOT_ADD_TO_PATH "NSIS.InstallOptions.ini" "Field 2" "State" !insertmacro MUI_INSTALLOPTIONS_READ $ADD_TO_PATH_ALL_USERS "NSIS.InstallOptions.ini" "Field 3" "State" !insertmacro MUI_INSTALLOPTIONS_READ $ADD_TO_PATH_CURRENT_USER "NSIS.InstallOptions.ini" "Field 4" "State" ; Write special uninstall registry entries Push "StartMenu" Push "$STARTMENU_FOLDER" Call ConditionalAddToRegisty Push "DoNotAddToPath" Push "$DO_NOT_ADD_TO_PATH" Call ConditionalAddToRegisty Push "AddToPathAllUsers" Push "$ADD_TO_PATH_ALL_USERS" Call ConditionalAddToRegisty Push "AddToPathCurrentUser" Push "$ADD_TO_PATH_CURRENT_USER" Call ConditionalAddToRegisty Push "InstallToDesktop" Push "$INSTALL_DESKTOP" Call ConditionalAddToRegisty !insertmacro MUI_STARTMENU_WRITE_END @CPACK_NSIS_EXTRA_INSTALL_COMMANDS@ SectionEnd Section "-Add to path" Push $INSTDIR\bin StrCmp "@CPACK_NSIS_MODIFY_PATH@" "ON" 0 doNotAddToPath StrCmp $DO_NOT_ADD_TO_PATH "1" doNotAddToPath 0 Call AddToPath doNotAddToPath: SectionEnd ;-------------------------------- ; Create custom pages Function InstallOptionsPage !insertmacro MUI_HEADER_TEXT "Install Options" "Choose options for installing @CPACK_NSIS_PACKAGE_NAME@" !insertmacro MUI_INSTALLOPTIONS_DISPLAY "NSIS.InstallOptions.ini" FunctionEnd ;-------------------------------- ; determine admin versus local install Function un.onInit ClearErrors UserInfo::GetName IfErrors noLM Pop $0 UserInfo::GetAccountType Pop $1 StrCmp $1 "Admin" 0 +3 SetShellVarContext all ;MessageBox MB_OK 'User "$0" is in the Admin group' Goto done StrCmp $1 "Power" 0 +3 SetShellVarContext all ;MessageBox MB_OK 'User "$0" is in the Power Users group' Goto done noLM: ;Get installation folder from registry if available done: FunctionEnd ;--- Add/Remove callback functions: --- !macro SectionList MacroName ;This macro used to perform operation on multiple sections. ;List all of your components in following manner here. @CPACK_NSIS_COMPONENT_SECTION_LIST@ !macroend Section -FinishComponents ;Removes unselected components and writes component status to registry !insertmacro SectionList "FinishSection" !ifdef CPACK_NSIS_ADD_REMOVE ; Get the name of the installer executable System::Call 'kernel32::GetModuleFileNameA(i 0, t .R0, i 1024) i r1' StrCpy $R3 $R0 ; Strip off the last 13 characters, to see if we have AddRemove.exe StrLen $R1 $R0 IntOp $R1 $R0 - 13 StrCpy $R2 $R0 13 $R1 StrCmp $R2 "AddRemove.exe" addremove_installed ; We're not running AddRemove.exe, so install it CopyFiles $R3 $INSTDIR\AddRemove.exe addremove_installed: !endif SectionEnd ;--- End of Add/Remove callback functions --- ;-------------------------------- ; Component dependencies Function .onSelChange !insertmacro SectionList MaybeSelectionChanged FunctionEnd ;-------------------------------- ;Uninstaller Section Section "Uninstall" ReadRegStr $START_MENU SHCTX \ "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "StartMenu" ;MessageBox MB_OK "Start menu is in: $START_MENU" ReadRegStr $DO_NOT_ADD_TO_PATH SHCTX \ "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "DoNotAddToPath" ReadRegStr $ADD_TO_PATH_ALL_USERS SHCTX \ "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "AddToPathAllUsers" ReadRegStr $ADD_TO_PATH_CURRENT_USER SHCTX \ "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "AddToPathCurrentUser" ;MessageBox MB_OK "Add to path: $DO_NOT_ADD_TO_PATH all users: $ADD_TO_PATH_ALL_USERS" ReadRegStr $INSTALL_DESKTOP SHCTX \ "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "InstallToDesktop" ;MessageBox MB_OK "Install to desktop: $INSTALL_DESKTOP " @CPACK_NSIS_EXTRA_UNINSTALL_COMMANDS@ ;Remove files we installed. ;Keep the list of directories here in sync with the File commands above. @CPACK_NSIS_DELETE_FILES@ @CPACK_NSIS_DELETE_DIRECTORIES@ !ifdef CPACK_NSIS_ADD_REMOVE ;Remove the add/remove program Delete "$INSTDIR\AddRemove.exe" !endif ;Remove the uninstaller itself. Delete "$INSTDIR\Uninstall.exe" DeleteRegKey SHCTX "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" ;Remove the installation directory if it is empty. RMDir "$INSTDIR" ; Remove the registry entries. DeleteRegKey SHCTX "Software\@CPACK_PACKAGE_VENDOR@\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" ; Removes all optional components !insertmacro SectionList "RemoveSection_CPack" !insertmacro MUI_STARTMENU_GETFOLDER Application $MUI_TEMP Delete "$SMPROGRAMS\$MUI_TEMP\Uninstall.lnk" @CPACK_NSIS_DELETE_ICONS@ @CPACK_NSIS_DELETE_ICONS_EXTRA@ ;Delete empty start menu parent diretories StrCpy $MUI_TEMP "$SMPROGRAMS\$MUI_TEMP" startMenuDeleteLoop: ClearErrors RMDir $MUI_TEMP GetFullPathName $MUI_TEMP "$MUI_TEMP\.." IfErrors startMenuDeleteLoopDone StrCmp "$MUI_TEMP" "$SMPROGRAMS" startMenuDeleteLoopDone startMenuDeleteLoop startMenuDeleteLoopDone: ; If the user changed the shortcut, then untinstall may not work. This should ; try to fix it. StrCpy $MUI_TEMP "$START_MENU" Delete "$SMPROGRAMS\$MUI_TEMP\Uninstall.lnk" @CPACK_NSIS_DELETE_ICONS_EXTRA@ ;Delete empty start menu parent diretories StrCpy $MUI_TEMP "$SMPROGRAMS\$MUI_TEMP" secondStartMenuDeleteLoop: ClearErrors RMDir $MUI_TEMP GetFullPathName $MUI_TEMP "$MUI_TEMP\.." IfErrors secondStartMenuDeleteLoopDone StrCmp "$MUI_TEMP" "$SMPROGRAMS" secondStartMenuDeleteLoopDone secondStartMenuDeleteLoop secondStartMenuDeleteLoopDone: DeleteRegKey /ifempty SHCTX "Software\@CPACK_PACKAGE_VENDOR@\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" Push $INSTDIR\bin StrCmp $DO_NOT_ADD_TO_PATH_ "1" doNotRemoveFromPath 0 Call un.RemoveFromPath doNotRemoveFromPath: SectionEnd ;-------------------------------- ; determine admin versus local install ; Is install for "AllUsers" or "JustMe"? ; Default to "JustMe" - set to "AllUsers" if admin or on Win9x ; This function is used for the very first "custom page" of the installer. ; This custom page does not show up visibly, but it executes prior to the ; first visible page and sets up $INSTDIR properly... ; Choose different default installation folder based on SV_ALLUSERS... ; "Program Files" for AllUsers, "My Documents" for JustMe... Function .onInit StrCmp "@CPACK_NSIS_ENABLE_UNINSTALL_BEFORE_INSTALL@" "ON" 0 inst ReadRegStr $0 HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\@CPACK_PACKAGE_INSTALL_REGISTRY_KEY@" "UninstallString" StrCmp $0 "" inst MessageBox MB_YESNOCANCEL|MB_ICONEXCLAMATION \ "@CPACK_NSIS_PACKAGE_NAME@ is already installed. $\n$\nDo you want to uninstall the old version before installing the new one?" \ IDYES uninst IDNO inst Abort ;Run the uninstaller uninst: ClearErrors StrLen $2 "\Uninstall.exe" StrCpy $3 $0 -$2 # remove "\Uninstall.exe" from UninstallString to get path ExecWait '$0 _?=$3' ;Do not copy the uninstaller to a temp file IfErrors uninst_failed inst uninst_failed: MessageBox MB_OK|MB_ICONSTOP "Uninstall failed." Abort inst: ; Reads components status for registry !insertmacro SectionList "InitSection" ; check to see if /D has been used to change ; the install directory by comparing it to the ; install directory that is expected to be the ; default StrCpy $IS_DEFAULT_INSTALLDIR 0 StrCmp "$INSTDIR" "@CPACK_NSIS_INSTALL_ROOT@\@CPACK_PACKAGE_INSTALL_DIRECTORY@" 0 +2 StrCpy $IS_DEFAULT_INSTALLDIR 1 StrCpy $SV_ALLUSERS "JustMe" ; if default install dir then change the default ; if it is installed for JustMe StrCmp "$IS_DEFAULT_INSTALLDIR" "1" 0 +2 StrCpy $INSTDIR "$DOCUMENTS\@CPACK_PACKAGE_INSTALL_DIRECTORY@" ClearErrors UserInfo::GetName IfErrors noLM Pop $0 UserInfo::GetAccountType Pop $1 StrCmp $1 "Admin" 0 +4 SetShellVarContext all ;MessageBox MB_OK 'User "$0" is in the Admin group' StrCpy $SV_ALLUSERS "AllUsers" Goto done StrCmp $1 "Power" 0 +4 SetShellVarContext all ;MessageBox MB_OK 'User "$0" is in the Power Users group' StrCpy $SV_ALLUSERS "AllUsers" Goto done noLM: StrCpy $SV_ALLUSERS "AllUsers" ;Get installation folder from registry if available done: StrCmp $SV_ALLUSERS "AllUsers" 0 +3 StrCmp "$IS_DEFAULT_INSTALLDIR" "1" 0 +2 StrCpy $INSTDIR "@CPACK_NSIS_INSTALL_ROOT@\@CPACK_PACKAGE_INSTALL_DIRECTORY@" StrCmp "@CPACK_NSIS_MODIFY_PATH@" "ON" 0 noOptionsPage !insertmacro MUI_INSTALLOPTIONS_EXTRACT "NSIS.InstallOptions.ini" noOptionsPage: FunctionEnd libhdf4-4.2.10/HDF_ALT/config/cmake/FindHDF4.cmake.in0000644000000000000000000000553012421456623016333 0ustar # # To be used by projects that make use of CMakeified hdf-@HDF4_PACKAGE_VERSION@ # # # Find the HDF4 includes and get all installed hdf4 library settings from # HDF4-config.cmake file : Requires a CMake compatible hdf-@HDF4_PACKAGE_VERSION@ or later # for this feature to work. The following vars are set if hdf4 is found. # # HDF4_FOUND - True if found, otherwise all other vars are undefined # HDF4_INCLUDE_DIR - The include dir for main *.h files # HDF4_FORTRAN_INCLUDE_DIR - The include dir for fortran modules and headers # HDF4_VERSION_STRING - full version (e.g. @HDF4_PACKAGE_VERSION@) # HDF4_VERSION_MAJOR - major part of version (e.g. @HDF4_PACKAGE_VERSION_MAJOR@) # HDF4_VERSION_MINOR - minor part (e.g. @HDF4_PACKAGE_VERSION_MINOR@) # # The following boolean vars will be defined # HDF4_ENABLE_PARALLEL - 1 if HDF4 parallel supported # HDF4_BUILD_FORTRAN - 1 if HDF4 was compiled with fortran on # HDF4_BUILD_CPP_LIB - 1 if HDF4 was compiled with cpp on # HDF4_BUILD_TOOLS - 1 if HDF4 was compiled with tools on # # Target names that are valid (depending on enabled options) # will be the following # # hdf : HDF4 C library # hdf_f90cstub : used by Fortran to C interface # hdf_fortran : Fortran HDF4 library # mfhdf : HDF4 multi-file C interface library # xdr : RPC library # mfhdf_f90cstub : used by Fortran to C interface to multi-file library # mfhdf_fortran : Fortran multi-file library # # To aid in finding HDF4 as part of a subproject set # HDF4_ROOT_DIR_HINT to the location where @HDF4_PACKAGE@@HDF_PACKAGE_EXT@-config.cmake lies INCLUDE (SelectLibraryConfigurations) INCLUDE (FindPackageHandleStandardArgs) # The HINTS option should only be used for values computed from the system. SET (_HDF4_HINTS $ENV{HOME}/.local $ENV{HDF4_ROOT} $ENV{HDF4_ROOT_DIR_HINT} ) # Hard-coded guesses should still go in PATHS. This ensures that the user # environment can always override hard guesses. SET (_HDF4_PATHS $ENV{HOME}/.local $ENV{HDF4_ROOT} $ENV{HDF4_ROOT_DIR_HINT} /usr/lib/@HDF4_PACKAGE@ /usr/share/@HDF4_PACKAGE@ /usr/local/@HDF4_PACKAGE@ /usr/local/@HDF4_PACKAGE@/share ) FIND_PATH (HDF4_ROOT_DIR "@HDF4_PACKAGE@@HDF_PACKAGE_EXT@-config.cmake" HINTS ${_HDF4_HINTS} PATHS ${_HDF4_PATHS} PATH_SUFFIXES cmake/@HDF4_PACKAGE@ lib/cmake/@HDF4_PACKAGE@ share/cmake/@HDF4_PACKAGE@ ) FIND_PATH (HDF4_INCLUDE_DIRS "hdf.h" HINTS ${_HDF4_HINTS} PATHS ${_HDF4_PATHS} PATH_SUFFIXES include Include ) # For backwards compatibility we set HDF4_INCLUDE_DIR to the value of # HDF4_INCLUDE_DIRS SET ( HDF4_INCLUDE_DIR "${HDF4_INCLUDE_DIRS}" ) IF (HDF4_INCLUDE_DIR) SET (HDF4_FOUND "YES") INCLUDE (${HDF4_ROOT_DIR}/@HDF4_PACKAGE@@HDF_PACKAGE_EXT@-config.cmake) ENDIF (HDF4_INCLUDE_DIR) libhdf4-4.2.10/HDF_ALT/config/cmake/CheckTypeSize.cmake0000644000000000000000000000362712421456623017157 0ustar # # Check if the type exists and determine size of type. if the type # exists, the size will be stored to the variable. # # CHECK_TYPE_SIZE - macro which checks the size of type # VARIABLE - variable to store size if the type exists. # HAVE_${VARIABLE} - does the variable exists or not # MACRO (HDF_CHECK_TYPE_SIZE TYPE VARIABLE) SET (CMAKE_ALLOW_UNKNOWN_VARIABLE_READ_ACCESS 1) IF ("HAVE_${VARIABLE}" MATCHES "^HAVE_${VARIABLE}$") SET (MACRO_CHECK_TYPE_SIZE_FLAGS "-DCHECK_TYPE_SIZE_TYPE=\"${TYPE}\" ${CMAKE_REQUIRED_FLAGS}" ) FOREACH (def HAVE_SYS_TYPES_H HAVE_STDINT_H HAVE_STDDEF_H HAVE_INTTYPES_H) IF ("${def}") SET (MACRO_CHECK_TYPE_SIZE_FLAGS "${MACRO_CHECK_TYPE_SIZE_FLAGS} -D${def}") ENDIF("${def}") ENDFOREACH (def) MESSAGE (STATUS "Check size of ${TYPE}") IF (CMAKE_REQUIRED_LIBRARIES) SET (CHECK_TYPE_SIZE_ADD_LIBRARIES "-DLINK_LIBRARIES:STRING=${CMAKE_REQUIRED_LIBRARIES}" ) ENDIF (CMAKE_REQUIRED_LIBRARIES) TRY_RUN (${VARIABLE} HAVE_${VARIABLE} ${CMAKE_BINARY_DIR} ${HDF4_RESOURCES_DIR}/CheckTypeSize.c CMAKE_FLAGS -DCOMPILE_DEFINITIONS:STRING=${MACRO_CHECK_TYPE_SIZE_FLAGS} "${CHECK_TYPE_SIZE_ADD_LIBRARIES}" OUTPUT_VARIABLE OUTPUT ) IF (HAVE_${VARIABLE}) MESSAGE (STATUS "Check size of ${TYPE} - done") FILE (APPEND ${CMAKE_BINARY_DIR}/CMakeFiles/CMakeOutput.log "Determining size of ${TYPE} passed with the following output:\n${OUTPUT}\n\n" ) ELSE (HAVE_${VARIABLE}) MESSAGE (STATUS "Check size of ${TYPE} - failed") FILE (APPEND ${CMAKE_BINARY_DIR}/CMakeFiles/CMakeError.log "Determining size of ${TYPE} failed with the following output:\n${OUTPUT}\n\n" ) ENDIF (HAVE_${VARIABLE}) ENDIF ("HAVE_${VARIABLE}" MATCHES "^HAVE_${VARIABLE}$") SET (CMAKE_ALLOW_UNKNOWN_VARIABLE_READ_ACCESS) ENDMACRO (HDF_CHECK_TYPE_SIZE) libhdf4-4.2.10/HDF_ALT/config/cmake/cacheinit.cmake0000644000000000000000000000532512421456623016371 0ustar # This is the CMakeCache file. ######################## # EXTERNAL cache entries ######################## SET (BUILD_SHARED_LIBS ON CACHE BOOL "Build Shared Libraries" FORCE) SET (BUILD_TESTING ON CACHE BOOL "Build HDF4 Unit Testing" FORCE) SET (HDF_PACKAGE_EXT "" CACHE STRING "Name of HDF package extension" FORCE) SET (HDF4_BUILD_EXAMPLES ON CACHE BOOL "Build HDF4 Library Examples" FORCE) SET (HDF4_BUILD_FORTRAN ON CACHE BOOL "Build FORTRAN support" FORCE) SET (HDF4_BUILD_TOOLS ON CACHE BOOL "Build HDF4 Tools" FORCE) SET (HDF4_BUILD_UTILS ON CACHE BOOL "Build HDF4 Library Utilities" FORCE) SET (HDF4_BUILD_GENERATORS OFF CACHE BOOL "Build Test Generators" FORCE) SET (HDF4_ENABLE_NETCDF ON CACHE BOOL "Build HDF4 versions of NetCDF-3 APIS" FORCE) SET (HDF4_BUILD_XDR_LIB OFF CACHE BOOL "Build HDF4 XDR Library" FORCE) SET (HDF4_ENABLE_PARALLEL OFF CACHE BOOL "Enable parallel build (requires MPI)" FORCE) SET (MPIEXEC_MAX_NUMPROCS "3" CACHE STRING "Minimum number of processes for HDF parallel tests" FORCE) SET (HDF4_ENABLE_JPEG_LIB_SUPPORT ON CACHE BOOL "Enable Jpeg library" FORCE) SET (HDF4_ENABLE_Z_LIB_SUPPORT ON CACHE BOOL "Enable Zlib Filters" FORCE) SET (HDF4_ENABLE_SZIP_SUPPORT ON CACHE BOOL "Use SZip Filter" FORCE) SET (HDF4_ENABLE_SZIP_ENCODING ON CACHE BOOL "Use SZip Encoding" FORCE) SET (HDF4_ENABLE_COVERAGE OFF CACHE BOOL "Enable code coverage for Libraries and Programs" FORCE) SET (HDF4_DISABLE_COMPILER_WARNINGS OFF CACHE BOOL "Disable compiler warnings" FORCE) SET (HDF4_ENABLE_DEPRECATED_SYMBOLS ON CACHE BOOL "Enable deprecated public API symbols" FORCE) SET (HDF4_PACKAGE_EXTLIBS OFF CACHE BOOL "(WINDOWS)CPACK - include external libraries" FORCE) SET (HDF4_NO_PACKAGES OFF CACHE BOOL "CPACK - Disable packaging" FORCE) SET (HDF4_ALLOW_EXTERNAL_SUPPORT "NO" CACHE STRING "Allow External Library Building" FORCE) SET_PROPERTY(CACHE HDF4_ALLOW_EXTERNAL_SUPPORT PROPERTY STRINGS NO SVN TGZ) SET (ZLIB_SVN_URL "http://svn.hdfgroup.uiuc.edu/zlib/trunk" CACHE STRING "Use ZLib from HDF repository" FORCE) SET (SZIP_SVN_URL "http://svn.hdfgroup.uiuc.edu/szip/trunk" CACHE STRING "Use SZip from HDF repository" FORCE) SET (JPEG_SVN_URL "http://svn.hdfgroup.uiuc.edu/jpeg/branches/jpeg8b" CACHE STRING "Use JPEG from HDF repository" FORCE) SET (ZLIB_TGZ_NAME "ZLib.tar.gz" CACHE STRING "Use ZLib from compressed file" FORCE) SET (SZIP_TGZ_NAME "SZip.tar.gz" CACHE STRING "Use SZip from compressed file" FORCE) SET (JPEG_TGZ_NAME "JPEG8b.tar.gz" CACHE STRING "Use JPEG from compressed file" FORCE) SET (ZLIB_PACKAGE_NAME "zlib" CACHE STRING "Name of ZLIB package" FORCE) SET (SZIP_PACKAGE_NAME "szip" CACHE STRING "Name of SZIP package" FORCE) SET (JPEG_PACKAGE_NAME "jpeg" CACHE STRING "Name of JPEG package" FORCE) libhdf4-4.2.10/HDF_ALT/config/cmake/CPack.Info.plist.in0000644000000000000000000000214712421456623016774 0ustar CFBundleDevelopmentRegion English CFBundleExecutable @CPACK_PACKAGE_FILE_NAME@ CFBundleIconFile @CPACK_BUNDLE_ICON@ CFBundleIdentifier org.@CPACK_PACKAGE_VENDOR@.@CPACK_PACKAGE_NAME@@CPACK_MODULE_VERSION_SUFFIX@ CFBundleInfoDictionaryVersion 6.0 CFBundlePackageType FMWK CFBundleSignature ???? CFBundleVersion @CPACK_PACKAGE_VERSIO@ CFBundleShortVersionString @CPACK_SHORT_VERSION_STRING@ CSResourcesFileMapped CFBundleName @CPACK_BUNDLE_NAME@ CFBundleGetInfoString @CPACK_APPLE_GUI_INFO_STRING@ NSHumanReadableCopyright @CPACK_APPLE_GUI_COPYRIGHT@ libhdf4-4.2.10/HDF_ALT/config/cmake/hdf4-config.cmake.install.in0000644000000000000000000000667712421456623020617 0ustar #----------------------------------------------------------------------------- # HDF4 Config file for compiling against hdf4 install directory #----------------------------------------------------------------------------- GET_FILENAME_COMPONENT (SELF_DIR "${CMAKE_CURRENT_LIST_FILE}" PATH) GET_FILENAME_COMPONENT(_IMPORT_PREFIX "${SELF_DIR}" PATH) GET_FILENAME_COMPONENT(_IMPORT_PREFIX "${_IMPORT_PREFIX}" PATH) IF (NOT WIN32) GET_FILENAME_COMPONENT(_IMPORT_PREFIX "${_IMPORT_PREFIX}" PATH) ENDIF (NOT WIN32) #----------------------------------------------------------------------------- # User Options #----------------------------------------------------------------------------- SET (HDF4_ENABLE_PARALLEL @HDF4_ENABLE_PARALLEL@) SET (HDF4_BUILD_FORTRAN @HDF4_BUILD_FORTRAN@) SET (HDF4_BUILD_XDR_LIB @HDF4_BUILD_XDR_LIB@) SET (HDF4_BUILD_TOOLS @HDF4_BUILD_TOOLS@) SET (HDF4_BUILD_UTILS @HDF4_BUILD_UTILS@) SET (HDF4_ENABLE_JPEG_LIB_SUPPORT @HDF4_ENABLE_JPEG_LIB_SUPPORT@) SET (HDF4_ENABLE_Z_LIB_SUPPORT @HDF4_ENABLE_Z_LIB_SUPPORT@) SET (HDF4_ENABLE_SZIP_SUPPORT @HDF4_ENABLE_SZIP_SUPPORT@) SET (HDF4_ENABLE_SZIP_ENCODING @HDF4_ENABLE_SZIP_ENCODING@) SET (HDF4_BUILD_SHARED_LIBS @BUILD_SHARED_LIBS@) SET (HDF4_PACKAGE_EXTLIBS @HDF4_PACKAGE_EXTLIBS@) #----------------------------------------------------------------------------- # Directories #----------------------------------------------------------------------------- SET (HDF4_INCLUDE_DIR "${_IMPORT_PREFIX}/include") IF (HDF4_BUILD_FORTRAN) SET (HDF4_INCLUDE_DIR_FORTRAN "${_IMPORT_PREFIX}/include") ENDIF (HDF4_BUILD_FORTRAN) IF (HDF4_BUILD_XDR_LIB) SET (HDF4_INCLUDE_DIR_XDR "${_IMPORT_PREFIX}/include") ENDIF (HDF4_BUILD_XDR_LIB) IF (HDF4_BUILD_TOOLS) SET (HDF4_INCLUDE_DIR_TOOLS "${_IMPORT_PREFIX}/include") ENDIF (HDF4_BUILD_TOOLS) IF (HDF4_BUILD_UTILS) SET (HDF4_INCLUDE_DIR_UTILS "${_IMPORT_PREFIX}/include") SET (HDF4_TOOLS_DIR "${_IMPORT_PREFIX}/bin" ) ENDIF (HDF4_BUILD_UTILS) #----------------------------------------------------------------------------- # Version Strings #----------------------------------------------------------------------------- SET (HDF4_VERSION_STRING @HDF4_VERSION_STRING@) SET (HDF4_VERSION_MAJOR @HDF4_VERSION_MAJOR@) SET (HDF4_VERSION_MINOR @HDF4_VERSION_MINOR@) #----------------------------------------------------------------------------- # Don't include targets if this file is being picked up by another # project which has already built hdf4 as a subproject #----------------------------------------------------------------------------- IF (NOT TARGET "@HDF4_PACKAGE@") IF (HDF4_ENABLE_JPEG_LIB_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "jpeg") INCLUDE (${SELF_DIR}/../JPEG/@JPEG_PACKAGE_NAME@@HDF_PACKAGE_EXT@-targets.cmake) ENDIF (HDF4_ENABLE_JPEG_LIB_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "jpeg") IF (HDF4_ENABLE_Z_LIB_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "zlib") INCLUDE (${SELF_DIR}/../ZLIB/@ZLIB_PACKAGE_NAME@@HDF_PACKAGE_EXT@-targets.cmake) ENDIF (HDF4_ENABLE_Z_LIB_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "zlib") IF (HDF4_ENABLE_SZIP_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "szip") INCLUDE (${SELF_DIR}/../SZIP/@SZIP_PACKAGE_NAME@@HDF_PACKAGE_EXT@-targets.cmake) ENDIF (HDF4_ENABLE_SZIP_SUPPORT AND HDF4_PACKAGE_EXTLIBS AND NOT TARGET "szip") INCLUDE (${SELF_DIR}/@HDF4_PACKAGE@@HDF_PACKAGE_EXT@-targets.cmake) SET (HDF4_LIBRARIES "@HDF4_LIBRARIES_TO_EXPORT@") ENDIF (NOT TARGET "@HDF4_PACKAGE@") libhdf4-4.2.10/HDF_ALT/config/cmake/NSIS.InstallOptions.ini.in0000644000000000000000000000106212421456623020275 0ustar [Settings] NumFields=5 [Field 1] Type=label Text=By default @CPACK_PACKAGE_INSTALL_DIRECTORY@ does add its directory to the system PATH. Left=0 Right=-1 Top=0 Bottom=20 [Field 2] Type=radiobutton Text=Do not add @CPACK_PACKAGE_NAME@ to the system PATH Left=0 Right=-1 Top=30 Bottom=40 State=0 [Field 3] Type=radiobutton Text=Add @CPACK_PACKAGE_NAME@ to the system PATH for all users Left=0 Right=-1 Top=40 Bottom=50 State=1 [Field 4] Type=radiobutton Text=Add @CPACK_PACKAGE_NAME@ to the system PATH for current user Left=0 Right=-1 Top=50 Bottom=60 State=0 libhdf4-4.2.10/HDF_ALT/config/cmake/hdf.gif0000644000000000000000000000177012421456623014670 0ustar GIF89a÷€€€€€€€€€€€€ œ„Ì|,¼„Œül„$”DÜìÔìD´D”¼Ä$D܌Ĵ\lì,¬$dtìôì$Ü”<¬Ü¤$„dDœ¤¬ôt¼Œ¤´äüüüôüô”œô,l¬dŒ¼,||¤”Ô”,|„ô\Ä\¬ÌÔ,T̜̤ììü,ÜD¼””ü ì$¤$´ä´4ŒlTœ|”ܜԔ<¼ŒŒü$|„„TäôäD¤\”´Ô$4ô<´4l|ì,„d T”¬´ü¤¤Ü¤ôôü$¬$œÜœ¤ „”ü$t„ÜìÜôD´L$Dä”Ä´l|ìôôô$ä¬Ü¬¬¬ü|¬´ôüü”¤ô|œÌ4Œt4|„dÄd´ÔÌD\ä¤Ô¤ìôü ,Ü ô$¤,¼ä¼|œÜœÔœ <¼$„\œ´ÔD´<l|,Œd Tœ´¼ô¤$¬$ÌÔø¼ä¹\”¤ŒÑŒ\œT´L4Ô$¥„T$œ;œ¼ÔT¤| D¯œÌ¤ is one of C, CXX, or Fortran: # MPI__FOUND TRUE if FindMPI found MPI flags for # MPI__COMPILER MPI Compiler wrapper for # MPI__COMPILE_FLAGS Compilation flags for MPI programs # MPI__INCLUDE_PATH Include path(s) for MPI header # MPI__LINK_FLAGS Linking flags for MPI programs # MPI__LIBRARIES All libraries to link MPI programs against # Additionally, FindMPI sets the following variables for running MPI # programs from the command line: # MPIEXEC Executable for running MPI programs # MPIEXEC_NUMPROC_FLAG Flag to pass to MPIEXEC before giving # it the number of processors to run on # MPIEXEC_PREFLAGS Flags to pass to MPIEXEC directly # before the executable to run. # MPIEXEC_POSTFLAGS Flags to pass to MPIEXEC after other flags # === Usage === # # To use this module, simply call FindMPI from a CMakeLists.txt file, or # run find_package(MPI), then run CMake. If you are happy with the auto- # detected configuration for your language, then you're done. If not, you # have two options: # 1. Set MPI__COMPILER to the MPI wrapper (mpicc, etc.) of your # choice and reconfigure. FindMPI will attempt to determine all the # necessary variables using THAT compiler's compile and link flags. # 2. If this fails, or if your MPI implementation does not come with # a compiler wrapper, then set both MPI__LIBRARIES and # MPI__INCLUDE_PATH. You may also set any other variables # listed above, but these two are required. This will circumvent # autodetection entirely. # When configuration is successful, MPI__COMPILER will be set to the # compiler wrapper for , if it was found. MPI__FOUND and other # variables above will be set if any MPI implementation was found for , # regardless of whether a compiler was found. # # When using MPIEXEC to execute MPI applications, you should typically use # all of the MPIEXEC flags as follows: # ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} PROCS # ${MPIEXEC_PREFLAGS} EXECUTABLE ${MPIEXEC_POSTFLAGS} ARGS # where PROCS is the number of processors on which to execute the program, # EXECUTABLE is the MPI program, and ARGS are the arguments to pass to the # MPI program. # # === Backward Compatibility === # # For backward compatibility with older versions of FindMPI, these # variables are set, but deprecated: # MPI_FOUND MPI_COMPILER MPI_LIBRARY # MPI_COMPILE_FLAGS MPI_INCLUDE_PATH MPI_EXTRA_LIBRARY # MPI_LINK_FLAGS MPI_LIBRARIES # In new projects, please use the MPI__XXX equivalents. #============================================================================= # Copyright 2001-2011 Kitware, Inc. # Copyright 2010-2011 Todd Gamblin tgamblin@llnl.gov # Copyright 2001-2009 Dave Partyka # # Distributed under the OSI-approved BSD License (the "License"); # see accompanying file Copyright.txt for details. # # This software is distributed WITHOUT ANY WARRANTY; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # See the License for more information. #============================================================================= # (To distribute this file outside of CMake, substitute the full # License text for the above reference.) # include this to handle the QUIETLY and REQUIRED arguments include(${CMAKE_ROOT}/Modules/FindPackageHandleStandardArgs.cmake) include(GetPrerequisites) # # This part detects MPI compilers, attempting to wade through the mess of compiler names in # a sensible way. # # The compilers are detected in this order: # # 1. Try to find the most generic availble MPI compiler, as this is usually set up by # cluster admins. e.g., if plain old mpicc is available, we'll use it and assume it's # the right compiler. # # 2. If a generic mpicc is NOT found, then we attempt to find one that matches # CMAKE__COMPILER_ID. e.g. if you are using XL compilers, we'll try to find mpixlc # and company, but not mpiicc. This hopefully prevents toolchain mismatches. # # If you want to force a particular MPI compiler other than what we autodetect (e.g. if you # want to compile regular stuff with GNU and parallel stuff with Intel), you can always set # your favorite MPI__COMPILER explicitly and this stuff will be ignored. # # Start out with the generic MPI compiler names, as these are most commonly used. set(_MPI_C_COMPILER_NAMES mpicc mpcc mpicc_r mpcc_r) set(_MPI_CXX_COMPILER_NAMES mpicxx mpiCC mpcxx mpCC mpic++ mpc++ mpicxx_r mpiCC_r mpcxx_r mpCC_r mpic++_r mpc++_r) set(_MPI_Fortran_COMPILER_NAMES mpif95 mpif95_r mpf95 mpf95_r mpif90 mpif90_r mpf90 mpf90_r mpif77 mpif77_r mpf77 mpf77_r) # GNU compiler names set(_MPI_GNU_C_COMPILER_NAMES mpigcc mpgcc mpigcc_r mpgcc_r) set(_MPI_GNU_CXX_COMPILER_NAMES mpig++ mpg++ mpig++_r mpg++_r) set(_MPI_GNU_Fortran_COMPILER_NAMES mpigfortran mpgfortran mpigfortran_r mpgfortran_r mpig77 mpig77_r mpg77 mpg77_r) # Intel MPI compiler names set(_MPI_Intel_C_COMPILER_NAMES mpiicc) set(_MPI_Intel_CXX_COMPILER_NAMES mpiicpc mpiicxx mpiic++ mpiiCC) set(_MPI_Intel_Fortran_COMPILER_NAMES mpiifort mpiif95 mpiif90 mpiif77) # PGI compiler names set(_MPI_PGI_C_COMPILER_NAMES mpipgcc mppgcc) set(_MPI_PGI_CXX_COMPILER_NAMES mpipgCC mppgCC) set(_MPI_PGI_Fortran_COMPILER_NAMES mpipgf95 mpipgf90 mppgf95 mppgf90 mpipgf77 mppgf77) # XLC MPI Compiler names set(_MPI_XL_C_COMPILER_NAMES mpxlc mpxlc_r mpixlc mpixlc_r) set(_MPI_XL_CXX_COMPILER_NAMES mpixlcxx mpixlC mpixlc++ mpxlcxx mpxlc++ mpixlc++ mpxlCC mpixlcxx_r mpixlC_r mpixlc++_r mpxlcxx_r mpxlc++_r mpixlc++_r mpxlCC_r) set(_MPI_XL_Fortran_COMPILER_NAMES mpixlf95 mpixlf95_r mpxlf95 mpxlf95_r mpixlf90 mpixlf90_r mpxlf90 mpxlf90_r mpixlf77 mpixlf77_r mpxlf77 mpxlf77_r mpixlf mpixlf_r mpxlf mpxlf_r) # append vendor-specific compilers to the list if we either don't know the compiler id, # or if we know it matches the regular compiler. foreach (lang C CXX Fortran) foreach (id GNU Intel PGI XL) if (NOT CMAKE_${lang}_COMPILER_ID OR "${CMAKE_${lang}_COMPILER_ID}" STREQUAL "${id}") list(APPEND _MPI_${lang}_COMPILER_NAMES ${_MPI_${id}_${lang}_COMPILER_NAMES}) endif() unset(_MPI_${id}_${lang}_COMPILER_NAMES) # clean up the namespace here endforeach() endforeach() # Names to try for MPI exec set(_MPI_EXEC_NAMES mpiexec mpirun lamexec srun) # Grab the path to MPI from the registry if we're on windows. set(_MPI_PREFIX_PATH) if(WIN32) list(APPEND _MPI_PREFIX_PATH "[HKEY_LOCAL_MACHINE\\SOFTWARE\\MPICH\\SMPD;binary]/..") list(APPEND _MPI_PREFIX_PATH "[HKEY_LOCAL_MACHINE\\SOFTWARE\\MPICH2;Path]") list(APPEND _MPI_PREFIX_PATH "$ENV{ProgramW6432}/MPICH2/") endif() # Build a list of prefixes to search for MPI. foreach(SystemPrefixDir ${CMAKE_SYSTEM_PREFIX_PATH}) foreach(MpiPackageDir ${_MPI_PREFIX_PATH}) if(EXISTS ${SystemPrefixDir}/${MpiPackageDir}) list(APPEND _MPI_PREFIX_PATH "${SystemPrefixDir}/${MpiPackageDir}") endif() endforeach() endforeach() # # interrogate_mpi_compiler(lang try_libs) # # Attempts to extract compiler and linker args from an MPI compiler. The arguments set # by this function are: # # MPI__INCLUDE_PATH MPI__LINK_FLAGS MPI__FOUND # MPI__COMPILE_FLAGS MPI__LIBRARIES # # MPI__COMPILER must be set beforehand to the absolute path to an MPI compiler for # . Additionally, MPI__INCLUDE_PATH and MPI__LIBRARIES may be set # to skip autodetection. # # If try_libs is TRUE, this will also attempt to find plain MPI libraries in the usual # way. In general, this is not as effective as interrogating the compilers, as it # ignores language-specific flags and libraries. However, some MPI implementations # (Windows implementations) do not have compiler wrappers, so this approach must be used. # function (interrogate_mpi_compiler lang try_libs) # MPI_${lang}_NO_INTERROGATE will be set to a compiler name when the *regular* compiler was # discovered to be the MPI compiler. This happens on machines like the Cray XE6 that use # modules to set cc, CC, and ftn to the MPI compilers. If the user force-sets another MPI # compiler, MPI_${lang}_COMPILER won't be equal to MPI_${lang}_NO_INTERROGATE, and we'll # inspect that compiler anew. This allows users to set new compilers w/o rm'ing cache. string(COMPARE NOTEQUAL "${MPI_${lang}_NO_INTERROGATE}" "${MPI_${lang}_COMPILER}" interrogate) # If MPI is set already in the cache, don't bother with interrogating the compiler. if (interrogate AND ((NOT MPI_${lang}_INCLUDE_PATH) OR (NOT MPI_${lang}_LIBRARIES))) if (MPI_${lang}_COMPILER) # Check whether the -showme:compile option works. This indicates that we have either OpenMPI # or a newer version of LAM-MPI, and implies that -showme:link will also work. execute_process( COMMAND ${MPI_${lang}_COMPILER} -showme:compile OUTPUT_VARIABLE MPI_COMPILE_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_COMPILE_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) if (MPI_COMPILER_RETURN EQUAL 0) # If we appear to have -showme:compile, then we should # also have -showme:link. Try it. execute_process( COMMAND ${MPI_${lang}_COMPILER} -showme:link OUTPUT_VARIABLE MPI_LINK_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_LINK_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) if (MPI_COMPILER_RETURN EQUAL 0) # We probably have -showme:incdirs and -showme:libdirs as well, # so grab that while we're at it. execute_process( COMMAND ${MPI_${lang}_COMPILER} -showme:incdirs OUTPUT_VARIABLE MPI_INCDIRS OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_INCDIRS ERROR_STRIP_TRAILING_WHITESPACE) execute_process( COMMAND ${MPI_${lang}_COMPILER} -showme:libdirs OUTPUT_VARIABLE MPI_LIBDIRS OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_LIBDIRS ERROR_STRIP_TRAILING_WHITESPACE) else() # reset things here if something went wrong. set(MPI_COMPILE_CMDLINE) set(MPI_LINK_CMDLINE) endif() endif () # Older versions of LAM-MPI have "-showme". Try to find that. if (NOT MPI_COMPILER_RETURN EQUAL 0) execute_process( COMMAND ${MPI_${lang}_COMPILER} -showme OUTPUT_VARIABLE MPI_COMPILE_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_COMPILE_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) endif() # MVAPICH uses -compile-info and -link-info. Try them. if (NOT MPI_COMPILER_RETURN EQUAL 0) execute_process( COMMAND ${MPI_${lang}_COMPILER} -compile-info OUTPUT_VARIABLE MPI_COMPILE_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_COMPILE_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) # If we have compile-info, also have link-info. if (MPI_COMPILER_RETURN EQUAL 0) execute_process( COMMAND ${MPI_${lang}_COMPILER} -link-info OUTPUT_VARIABLE MPI_LINK_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_LINK_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) endif() # make sure we got compile and link. Reset vars if something's wrong. if (NOT MPI_COMPILER_RETURN EQUAL 0) set(MPI_COMPILE_CMDLINE) set(MPI_LINK_CMDLINE) endif() endif() # MPICH just uses "-show". Try it. if (NOT MPI_COMPILER_RETURN EQUAL 0) execute_process( COMMAND ${MPI_${lang}_COMPILER} -show OUTPUT_VARIABLE MPI_COMPILE_CMDLINE OUTPUT_STRIP_TRAILING_WHITESPACE ERROR_VARIABLE MPI_COMPILE_CMDLINE ERROR_STRIP_TRAILING_WHITESPACE RESULT_VARIABLE MPI_COMPILER_RETURN) endif() if (MPI_COMPILER_RETURN EQUAL 0) # We have our command lines, but we might need to copy MPI_COMPILE_CMDLINE # into MPI_LINK_CMDLINE, if we didn't find the link line. if (NOT MPI_LINK_CMDLINE) set(MPI_LINK_CMDLINE ${MPI_COMPILE_CMDLINE}) endif() else() message(STATUS "Unable to determine MPI from MPI driver ${MPI_${lang}_COMPILER}") set(MPI_COMPILE_CMDLINE) set(MPI_LINK_CMDLINE) endif() # Here, we're done with the interrogation part, and we'll try to extract args we care # about from what we learned from the compiler wrapper scripts. # If interrogation came back with something, extract our variable from the MPI command line if (MPI_COMPILE_CMDLINE OR MPI_LINK_CMDLINE) # Extract compile flags from the compile command line. string(REGEX MATCHALL "(^| )-[Df]([^\" ]+|\"[^\"]+\")" MPI_ALL_COMPILE_FLAGS "${MPI_COMPILE_CMDLINE}") set(MPI_COMPILE_FLAGS_WORK) foreach(FLAG ${MPI_ALL_COMPILE_FLAGS}) if (MPI_COMPILE_FLAGS_WORK) set(MPI_COMPILE_FLAGS_WORK "${MPI_COMPILE_FLAGS_WORK} ${FLAG}") else() set(MPI_COMPILE_FLAGS_WORK ${FLAG}) endif() endforeach() # Extract include paths from compile command line string(REGEX MATCHALL "(^| )-I([^\" ]+|\"[^\"]+\")" MPI_ALL_INCLUDE_PATHS "${MPI_COMPILE_CMDLINE}") foreach(IPATH ${MPI_ALL_INCLUDE_PATHS}) string(REGEX REPLACE "^ ?-I" "" IPATH ${IPATH}) string(REGEX REPLACE "//" "/" IPATH ${IPATH}) list(APPEND MPI_INCLUDE_PATH_WORK ${IPATH}) endforeach() # try using showme:incdirs if extracting didn't work. if (NOT MPI_INCLUDE_PATH_WORK) set(MPI_INCLUDE_PATH_WORK ${MPI_INCDIRS}) separate_arguments(MPI_INCLUDE_PATH_WORK) endif() # If all else fails, just search for mpi.h in the normal include paths. if (NOT MPI_INCLUDE_PATH_WORK) set(MPI_HEADER_PATH "MPI_HEADER_PATH-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) find_path(MPI_HEADER_PATH mpi.h HINTS ${_MPI_BASE_DIR} ${_MPI_PREFIX_PATH} PATH_SUFFIXES include) set(MPI_INCLUDE_PATH_WORK ${MPI_HEADER_PATH}) endif() # Extract linker paths from the link command line string(REGEX MATCHALL "(^| |-Wl,)-L([^\" ]+|\"[^\"]+\")" MPI_ALL_LINK_PATHS "${MPI_LINK_CMDLINE}") set(MPI_LINK_PATH) foreach(LPATH ${MPI_ALL_LINK_PATHS}) string(REGEX REPLACE "^(| |-Wl,)-L" "" LPATH ${LPATH}) string(REGEX REPLACE "//" "/" LPATH ${LPATH}) list(APPEND MPI_LINK_PATH ${LPATH}) endforeach() # try using showme:libdirs if extracting didn't work. if (NOT MPI_LINK_PATH) set(MPI_LINK_PATH ${MPI_LIBDIRS}) separate_arguments(MPI_LINK_PATH) endif() # Extract linker flags from the link command line string(REGEX MATCHALL "(^| )-Wl,([^\" ]+|\"[^\"]+\")" MPI_ALL_LINK_FLAGS "${MPI_LINK_CMDLINE}") set(MPI_LINK_FLAGS_WORK) foreach(FLAG ${MPI_ALL_LINK_FLAGS}) if (MPI_LINK_FLAGS_WORK) set(MPI_LINK_FLAGS_WORK "${MPI_LINK_FLAGS_WORK} ${FLAG}") else() set(MPI_LINK_FLAGS_WORK ${FLAG}) endif() endforeach() # Extract the set of libraries to link against from the link command # line string(REGEX MATCHALL "(^| )-l([^\" ]+|\"[^\"]+\")" MPI_LIBNAMES "${MPI_LINK_CMDLINE}") # Determine full path names for all of the libraries that one needs # to link against in an MPI program foreach(LIB ${MPI_LIBNAMES}) string(REGEX REPLACE "^ ?-l" "" LIB ${LIB}) # MPI_LIB is cached by find_library, but we don't want that. Clear it first. set(MPI_LIB "MPI_LIB-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) find_library(MPI_LIB NAMES ${LIB} HINTS ${MPI_LINK_PATH}) if (MPI_LIB) list(APPEND MPI_LIBRARIES_WORK ${MPI_LIB}) elseif (NOT MPI_FIND_QUIETLY) message(WARNING "Unable to find MPI library ${LIB}") endif() endforeach() # Sanity check MPI_LIBRARIES to make sure there are enough libraries list(LENGTH MPI_LIBRARIES_WORK MPI_NUMLIBS) list(LENGTH MPI_LIBNAMES MPI_NUMLIBS_EXPECTED) if (NOT MPI_NUMLIBS EQUAL MPI_NUMLIBS_EXPECTED) set(MPI_LIBRARIES_WORK "MPI_${lang}_LIBRARIES-NOTFOUND") endif() endif() elseif(try_libs) # If we didn't have an MPI compiler script to interrogate, attempt to find everything # with plain old find functions. This is nasty because MPI implementations have LOTS of # different library names, so this section isn't going to be very generic. We need to # make sure it works for MS MPI, though, since there are no compiler wrappers for that. find_path(MPI_HEADER_PATH mpi.h HINTS ${_MPI_BASE_DIR} ${_MPI_PREFIX_PATH} PATH_SUFFIXES include Inc) set(MPI_INCLUDE_PATH_WORK ${MPI_HEADER_PATH}) # Decide between 32-bit and 64-bit libraries for Microsoft's MPI if("${CMAKE_SIZEOF_VOID_P}" EQUAL 8) set(MS_MPI_ARCH_DIR amd64) else() set(MS_MPI_ARCH_DIR i386) endif() set(MPI_LIB "MPI_LIB-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) find_library(MPI_LIB NAMES mpi mpich mpich2 msmpi HINTS ${_MPI_BASE_DIR} ${_MPI_PREFIX_PATH} PATH_SUFFIXES lib lib/${MS_MPI_ARCH_DIR} Lib Lib/${MS_MPI_ARCH_DIR}) set(MPI_LIBRARIES_WORK ${MPI_LIB}) # Right now, we only know about the extra libs for C++. # We could add Fortran here (as there is usually libfmpich, etc.), but # this really only has to work with MS MPI on Windows. # Assume that other MPI's are covered by the compiler wrappers. if (${lang} STREQUAL CXX) set(MPI_LIB "MPI_LIB-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) find_library(MPI_LIB NAMES mpi++ mpicxx cxx mpi_cxx HINTS ${_MPI_BASE_DIR} ${_MPI_PREFIX_PATH} PATH_SUFFIXES lib) if (MPI_LIBRARIES_WORK AND MPI_LIB) set(MPI_LIBRARIES_WORK ${MPI_LIBRARIES_WORK} ${MPI_LIB}) endif() endif() if (${lang} STREQUAL Fortran) set(MPI_LIB "MPI_LIB-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) find_library(MPI_LIB NAMES fmpi fmpich fmpich2 fmpich2g HINTS ${_MPI_BASE_DIR} ${_MPI_PREFIX_PATH} PATH_SUFFIXES lib) if (MPI_LIBRARIES_WORK AND MPI_LIB) set(MPI_LIBRARIES_WORK ${MPI_LIBRARIES_WORK} ${MPI_LIB}) endif() endif() if (NOT MPI_LIBRARIES_WORK) set(MPI_LIBRARIES_WORK "MPI_${lang}_LIBRARIES-NOTFOUND") endif() endif() # If we found MPI, set up all of the appropriate cache entries set(MPI_${lang}_COMPILE_FLAGS ${MPI_COMPILE_FLAGS_WORK} CACHE STRING "MPI ${lang} compilation flags" FORCE) set(MPI_${lang}_INCLUDE_PATH ${MPI_INCLUDE_PATH_WORK} CACHE STRING "MPI ${lang} include path" FORCE) set(MPI_${lang}_LINK_FLAGS ${MPI_LINK_FLAGS_WORK} CACHE STRING "MPI ${lang} linking flags" FORCE) set(MPI_${lang}_LIBRARIES ${MPI_LIBRARIES_WORK} CACHE STRING "MPI ${lang} libraries to link against" FORCE) mark_as_advanced(MPI_${lang}_COMPILE_FLAGS MPI_${lang}_INCLUDE_PATH MPI_${lang}_LINK_FLAGS MPI_${lang}_LIBRARIES) # clear out our temporary lib/header detectionv variable here. set(MPI_LIB "MPI_LIB-NOTFOUND" CACHE INTERNAL "Scratch variable for MPI lib detection" FORCE) set(MPI_HEADER_PATH "MPI_HEADER_PATH-NOTFOUND" CACHE INTERNAL "Scratch variable for MPI header detection" FORCE) endif() # finally set a found variable for each MPI language if (MPI_${lang}_INCLUDE_PATH AND MPI_${lang}_LIBRARIES) set(MPI_${lang}_FOUND TRUE PARENT_SCOPE) else() set(MPI_${lang}_FOUND FALSE PARENT_SCOPE) endif() endfunction() # This function attempts to compile with the regular compiler, to see if MPI programs # work with it. This is a last ditch attempt after we've tried interrogating mpicc and # friends, and after we've tried to find generic libraries. Works on machines like # Cray XE6, where the modules environment changes what MPI version cc, CC, and ftn use. function(try_regular_compiler lang success) set(scratch_directory ${CMAKE_CURRENT_BINARY_DIR}${CMAKE_FILES_DIRECTORY}) if (${lang} STREQUAL Fortran) set(test_file ${scratch_directory}/cmake_mpi_test.f90) file(WRITE ${test_file} "program hello\n" "include 'mpif.h'\n" "integer ierror\n" "call MPI_INIT(ierror)\n" "call MPI_FINALIZE(ierror)\n" "end\n") else() if (${lang} STREQUAL CXX) set(test_file ${scratch_directory}/cmake_mpi_test.cpp) else() set(test_file ${scratch_directory}/cmake_mpi_test.c) endif() file(WRITE ${test_file} "#include \n" "int main(int argc, char **argv) {\n" " MPI_Init(&argc, &argv);\n" " MPI_Finalize();\n" "}\n") endif() try_compile(compiler_has_mpi ${scratch_directory} ${test_file}) if (compiler_has_mpi) set(MPI_${lang}_NO_INTERROGATE ${CMAKE_${lang}_COMPILER} CACHE STRING "Whether to interrogate MPI ${lang} compiler" FORCE) set(MPI_${lang}_COMPILER ${CMAKE_${lang}_COMPILER} CACHE STRING "MPI ${lang} compiler" FORCE) set(MPI_${lang}_COMPILE_FLAGS "" CACHE STRING "MPI ${lang} compilation flags" FORCE) set(MPI_${lang}_INCLUDE_PATH "" CACHE STRING "MPI ${lang} include path" FORCE) set(MPI_${lang}_LINK_FLAGS "" CACHE STRING "MPI ${lang} linking flags" FORCE) set(MPI_${lang}_LIBRARIES "" CACHE STRING "MPI ${lang} libraries to link against" FORCE) endif() set(${success} ${compiler_has_mpi} PARENT_SCOPE) unset(compiler_has_mpi CACHE) endfunction() # End definitions, commence real work here. # Most mpi distros have some form of mpiexec which gives us something we can reliably look for. find_program(MPIEXEC NAMES ${_MPI_EXEC_NAMES} PATHS ${_MPI_PREFIX_PATH} PATH_SUFFIXES bin DOC "Executable for running MPI programs.") # call get_filename_component twice to remove mpiexec and the directory it exists in (typically bin). # This gives us a fairly reliable base directory to search for /bin /lib and /include from. get_filename_component(_MPI_BASE_DIR "${MPIEXEC}" PATH) get_filename_component(_MPI_BASE_DIR "${_MPI_BASE_DIR}" PATH) set(MPIEXEC_NUMPROC_FLAG "-np" CACHE STRING "Flag used by MPI to specify the number of processes for MPIEXEC; the next option will be the number of processes.") set(MPIEXEC_PREFLAGS "" CACHE STRING "These flags will be directly before the executable that is being run by MPIEXEC.") set(MPIEXEC_POSTFLAGS "" CACHE STRING "These flags will come after all flags given to MPIEXEC.") set(MPIEXEC_MAX_NUMPROCS "2" CACHE STRING "Maximum number of processors available to run MPI applications.") mark_as_advanced(MPIEXEC MPIEXEC_NUMPROC_FLAG MPIEXEC_PREFLAGS MPIEXEC_POSTFLAGS MPIEXEC_MAX_NUMPROCS) #============================================================================= # Backward compatibility input hacks. Propagate the FindMPI hints to C and # CXX if the respective new versions are not defined. Translate the old # MPI_LIBRARY and MPI_EXTRA_LIBRARY to respective MPI_${lang}_LIBRARIES. # # Once we find the new variables, we translate them back into their old # equivalents below. foreach (lang C CXX) # Old input variables. set(_MPI_OLD_INPUT_VARS COMPILER COMPILE_FLAGS INCLUDE_PATH LINK_FLAGS) # Set new vars based on their old equivalents, if the new versions are not already set. foreach (var ${_MPI_OLD_INPUT_VARS}) if (NOT MPI_${lang}_${var} AND MPI_${var}) set(MPI_${lang}_${var} "${MPI_${var}}") endif() endforeach() # Special handling for MPI_LIBRARY and MPI_EXTRA_LIBRARY, which we nixed in the # new FindMPI. These need to be merged into MPI__LIBRARIES if (NOT MPI_${lang}_LIBRARIES AND (MPI_LIBRARY OR MPI_EXTRA_LIBRARY)) set(MPI_${lang}_LIBRARIES ${MPI_LIBRARY} ${MPI_EXTRA_LIBRARY}) endif() endforeach() #============================================================================= # This loop finds the compilers and sends them off for interrogation. foreach (lang C CXX Fortran) if (CMAKE_${lang}_COMPILER_WORKS) # If the user supplies a compiler *name* instead of an absolute path, assume that we need to find THAT compiler. if (MPI_${lang}_COMPILER) is_file_executable(MPI_${lang}_COMPILER MPI_COMPILER_IS_EXECUTABLE) if (NOT MPI_COMPILER_IS_EXECUTABLE) # Get rid of our default list of names and just search for the name the user wants. set(_MPI_${lang}_COMPILER_NAMES ${MPI_${lang}_COMPILER}) set(MPI_${lang}_COMPILER "MPI_${lang}_COMPILER-NOTFOUND" CACHE FILEPATH "Cleared" FORCE) # If the user specifies a compiler, we don't want to try to search libraries either. set(try_libs FALSE) endif() else() set(try_libs TRUE) endif() find_program(MPI_${lang}_COMPILER NAMES ${_MPI_${lang}_COMPILER_NAMES} PATHS "${MPI_HOME}/bin" "$ENV{MPI_HOME}/bin" ${_MPI_PREFIX_PATH}) interrogate_mpi_compiler(${lang} ${try_libs}) mark_as_advanced(MPI_${lang}_COMPILER) # last ditch try -- if nothing works so far, just try running the regular compiler and # see if we can create an MPI executable. set(regular_compiler_worked 0) if (NOT MPI_${lang}_LIBRARIES OR NOT MPI_${lang}_INCLUDE_PATH) try_regular_compiler(${lang} regular_compiler_worked) endif() if (regular_compiler_worked) find_package_handle_standard_args(MPI_${lang} DEFAULT_MSG MPI_${lang}_COMPILER) else() find_package_handle_standard_args(MPI_${lang} DEFAULT_MSG MPI_${lang}_LIBRARIES MPI_${lang}_INCLUDE_PATH) endif() endif() endforeach() #============================================================================= # More backward compatibility stuff # # Bare MPI sans ${lang} vars are set to CXX then C, depending on what was found. # This mimics the behavior of the old language-oblivious FindMPI. set(_MPI_OLD_VARS FOUND COMPILER INCLUDE_PATH COMPILE_FLAGS LINK_FLAGS LIBRARIES) if (MPI_CXX_FOUND) foreach (var ${_MPI_OLD_VARS}) set(MPI_${var} ${MPI_CXX_${var}}) endforeach() elseif (MPI_C_FOUND) foreach (var ${_MPI_OLD_VARS}) set(MPI_${var} ${MPI_C_${var}}) endforeach() else() # Note that we might still have found Fortran, but you'll need to use MPI_Fortran_FOUND set(MPI_FOUND FALSE) endif() # Chop MPI_LIBRARIES into the old-style MPI_LIBRARY and MPI_EXTRA_LIBRARY, and set them in cache. if (MPI_LIBRARIES) list(GET MPI_LIBRARIES 0 MPI_LIBRARY_WORK) set(MPI_LIBRARY ${MPI_LIBRARY_WORK} CACHE FILEPATH "MPI library to link against" FORCE) else() set(MPI_LIBRARY "MPI_LIBRARY-NOTFOUND" CACHE FILEPATH "MPI library to link against" FORCE) endif() list(LENGTH MPI_LIBRARIES MPI_NUMLIBS) if (MPI_NUMLIBS GREATER 1) set(MPI_EXTRA_LIBRARY_WORK ${MPI_LIBRARIES}) list(REMOVE_AT MPI_EXTRA_LIBRARY_WORK 0) set(MPI_EXTRA_LIBRARY ${MPI_EXTRA_LIBRARY_WORK} CACHE STRING "Extra MPI libraries to link against" FORCE) else() set(MPI_EXTRA_LIBRARY "MPI_EXTRA_LIBRARY-NOTFOUND" CACHE STRING "Extra MPI libraries to link against" FORCE) endif() #============================================================================= # unset these vars to cleanup namespace unset(_MPI_OLD_VARS) unset(_MPI_PREFIX_PATH) unset(_MPI_BASE_DIR) foreach (lang C CXX Fortran) unset(_MPI_${lang}_COMPILER_NAMES) endforeach() libhdf4-4.2.10/HDF_ALT/config/cmake/UserMacros/0000755000000000000000000000000012421456623015516 5ustar libhdf4-4.2.10/HDF_ALT/config/cmake/UserMacros/Windows_MT.cmake0000644000000000000000000000350412421456623020554 0ustar ######################################################## # Include file for user options ######################################################## # To use this option, copy both the macro and option code # into the root UserMacros.cmake file. # OR add an include to the root UserMacros.cmake file: # INCLUDE(path_to_file/WINDOWS_MT.cmake) #----------------------------------------------------------------------------- # Option to Build with Static CRT libraries on Windows #------------------------------------------------------------------------------- MACRO (TARGET_STATIC_CRT_FLAGS) IF (MSVC AND NOT BUILD_SHARED_LIBS) FOREACH (flag_var CMAKE_C_FLAGS CMAKE_C_FLAGS_DEBUG CMAKE_C_FLAGS_RELEASE CMAKE_C_FLAGS_MINSIZEREL CMAKE_C_FLAGS_RELWITHDEBINFO CMAKE_CXX_FLAGS CMAKE_CXX_FLAGS_DEBUG CMAKE_CXX_FLAGS_RELEASE CMAKE_CXX_FLAGS_MINSIZEREL CMAKE_CXX_FLAGS_RELWITHDEBINFO) IF (${flag_var} MATCHES "/MD") STRING (REGEX REPLACE "/MD" "/MT" ${flag_var} "${${flag_var}}") ENDIF (${flag_var} MATCHES "/MD") ENDFOREACH (flag_var) FOREACH (flag_var CMAKE_Fortran_FLAGS CMAKE_Fortran_FLAGS_DEBUG CMAKE_Fortran_FLAGS_RELEASE CMAKE_Fortran_FLAGS_MINSIZEREL CMAKE_Fortran_FLAGS_RELWITHDEBINFO) IF (${flag_var} MATCHES "/libs:dll") STRING (REGEX REPLACE "/libs:dll" "/libs:static" ${flag_var} "${${flag_var}}") ENDIF (${flag_var} MATCHES "/libs:dll") ENDFOREACH (flag_var) SET (WIN_COMPILE_FLAGS "") SET (WIN_LINK_FLAGS "/NODEFAULTLIB:MSVCRT") ENDIF (MSVC AND NOT BUILD_SHARED_LIBS) ENDMACRO (TARGET_STATIC_CRT_FLAGS) #----------------------------------------------------------------------------- OPTION (BUILD_STATIC_CRT_LIBS "Build With Static CRT Libraries" OFF) IF (BUILD_STATIC_CRT_LIBS) TARGET_STATIC_CRT_FLAGS () ENDIF (BUILD_STATIC_CRT_LIBS) libhdf4-4.2.10/HDF_ALT/config/cmake/h4config.h.in0000644000000000000000000001166712421456623015725 0ustar /* hdf/src/h4config.h Generated By CMake during the configuration */ #ifndef H4_CONFIG_H_ #define H4_CONFIG_H_ /* Define to dummy `main' function (if any) required to link to the Fortran libraries. */ #cmakedefine H4_F77_DUMMY_MAIN @H4_F77_DUMMY_MAIN@ /* Defined if HDF4 was built with CMake AND build as a shared library */ #cmakedefine H4_BUILT_AS_DYNAMIC_LIB @H4_BUILT_AS_DYNAMIC_LIB@ /* Defined if HDF4 was built with CMake AND build as a static library */ #cmakedefine H4_BUILT_AS_STATIC_LIB @H4_BUILT_AS_STATIC_LIB@ /* Define to a macro mangling the given C identifier (in lower and upper case), which must not contain underscores, for linking with Fortran. */ #define @H4_F77_FUNC@ /* As F77_FUNC, but for C identifiers containing underscores. */ #define @H4_F77_FUNC_@ /* Define to 1 if your Fortran compiler doesn't accept -c and -o together. */ #cmakedefine H4_F77_NO_MINUS_C_MINUS_O @H4_F77_NO_MINUS_C_MINUS_O@ /* Define if F77 and FC dummy `main' functions are identical. */ #cmakedefine H4_FC_DUMMY_MAIN_EQ_F77 @H4_FC_DUMMY_MAIN_EQ_F77@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_DLFCN_H @H4_HAVE_DLFCN_H@ /* Define to 1 if you have the `fork' function. */ #cmakedefine H4_HAVE_FORK @H4_HAVE_FORK@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_INTTYPES_H @H4_HAVE_INTTYPES_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_JPEGLIB_H @H4_HAVE_JPEGLIB_H@ /* Define to 1 if you have the `jpeg' library (-ljpeg). */ #cmakedefine H4_HAVE_LIBJPEG @H4_HAVE_LIBJPEG@ /* Define to 1 if you have the `sz' library (-lsz). */ #cmakedefine H4_HAVE_LIBSZ @H4_HAVE_LIBSZ@ /* Define to 1 if you have the `z' library (-lz). */ #cmakedefine H4_HAVE_LIBZ @H4_HAVE_LIBZ@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_MEMORY_H @H4_HAVE_MEMORY_H@ /* Define if we support HDF NetCDF APIs version 2.3.2 */ #cmakedefine H4_HAVE_NETCDF @H4_HAVE_NETCDF@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_STDINT_H @H4_HAVE_STDINT_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_STDLIB_H @H4_HAVE_STDLIB_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_STRINGS_H @H4_HAVE_STRINGS_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_STRING_H @H4_HAVE_STRING_H@ /* Define to 1 if you have the `system' function. */ #cmakedefine H4_HAVE_SYSTEM @H4_HAVE_SYSTEM@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_SYS_STAT_H @H4_HAVE_SYS_STAT_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_SYS_TYPES_H @H4_HAVE_SYS_TYPES_H@ /* Define if szip has encoder */ #cmakedefine H4_HAVE_SZIP_ENCODER @H4_HAVE_SZIP_ENCODER@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_SZLIB_H @H4_HAVE_SZLIB_H@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_UNISTD_H @H4_HAVE_UNISTD_H@ /* Define to 1 if you have the `vfork' function. */ #cmakedefine H4_HAVE_VFORK @H4_HAVE_VFORK@ /* Define to 1 if you have the `wait' function. */ #cmakedefine H4_HAVE_WAIT @H4_HAVE_WAIT@ /* Define to 1 if you have the header file. */ #cmakedefine H4_HAVE_ZLIB_H @H4_HAVE_ZLIB_H@ /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #define H4_LT_OBJDIR "@HDF4_LT_OBJDIR@" /* Define to 1 if your C compiler doesn't accept -c and -o together. */ #cmakedefine H4_NO_MINUS_C_MINUS_O @H4_NO_MINUS_C_MINUS_O@ /* Name of package */ #define H4_PACKAGE "@HDF4_PACKAGE@" /* Define to the address where bug reports for this package should be sent. */ #define H4_PACKAGE_BUGREPORT "@HDF4_PACKAGE_BUGREPORT@" /* Define to the full name of this package. */ #define H4_PACKAGE_NAME "@HDF4_PACKAGE_NAME@" /* Define to the full name and version of this package. */ #define H4_PACKAGE_STRING "@HDF4_PACKAGE_STRING@" /* Define to the one symbol short name of this package. */ #define H4_PACKAGE_TARNAME "@HDF4_PACKAGE_TARNAME@" /* Define to the home page for this package. */ #define H4_PACKAGE_URL "@HDF4_PACKAGE_URL@" /* Define to the version of this package. */ #define H4_PACKAGE_VERSION "@HDF4_PACKAGE_VERSION@" /* The size of `int*', as computed by sizeof. */ #cmakedefine H4_SIZEOF_INTP @H4_SIZEOF_INTP@ /* Define to 1 if you have the ANSI C header files. */ #cmakedefine H4_STDC_HEADERS @H4_STDC_HEADERS@ /* Version number of package */ #define H4_VERSION "@HDF4_PACKAGE_VERSION@" /* Define to 1 if your processor stores words with the most significant byte first (like Motorola and SPARC, unlike Intel and VAX). */ #cmakedefine H4_WORDS_BIGENDIAN @H4_WORDS_BIGENDIAN@ /* Define to 1 if `lex' declares `yytext' as a `char *' by default, not a `char[]'. */ #cmakedefine H4_YYTEXT_POINTER @H4_YYTEXT_POINTER@ /* This define is set in the root CMakeLists.txt file to the correct construction. */ #define @H4_HDSETVBUF@ #endif libhdf4-4.2.10/HDF_ALT/config/cmake/HDF4_Examples.cmake.in0000644000000000000000000001312212421456623017364 0ustar cmake_minimum_required(VERSION 2.8.10 FATAL_ERROR) ############################################################################################################### # This script will build and run the examples from a compressed file # Execute from a command line: # ctest -S HDF4_Examples.cmake,HDF4Examples-0.1.1-Source -C Release -O test.log ############################################################################################################### set(INSTALLDIR "@CMAKE_INSTALL_PREFIX@/HDF_Group/@HDF4_PACKAGE_NAME@/@HDF4_PACKAGE_VERSION@") set(CTEST_CMAKE_GENERATOR "@CMAKE_GENERATOR@") set(STATICLIBRARIES "@H4_ENABLE_STATIC_LIB@") set(CTEST_SOURCE_NAME ${CTEST_SCRIPT_ARG}) set(CTEST_DASHBOARD_ROOT ${CTEST_SCRIPT_DIRECTORY}) set(CTEST_BUILD_CONFIGURATION "Release") #set(NO_MAC_FORTRAN "true") set(BUILD_OPTIONS "${BUILD_OPTIONS} -DHDF_BUILD_FORTRAN:BOOL=OFF") ############################################################################################################### # Adjust the following SET Commands as needed ############################################################################################################### if(WIN32) if(STATICLIBRARIES) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DUSE_SHARED_LIBS:BOOL=OFF") endif(STATICLIBRARIES) set(ENV{HDF4_DIR} "${INSTALLDIR}/cmake/hdf4") set(CTEST_BINARY_NAME ${CTEST_SOURCE_NAME}\\build) set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}\\${CTEST_SOURCE_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_DASHBOARD_ROOT}\\${CTEST_BINARY_NAME}") else(WIN32) if(STATICLIBRARIES) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DUSE_SHARED_LIBS:BOOL=OFF -DCMAKE_ANSI_CFLAGS:STRING=-fPIC") endif(STATICLIBRARIES) set(ENV{HDF4_DIR} "${INSTALLDIR}/share/cmake/hdf4") set(ENV{LD_LIBRARY_PATH} "${INSTALLDIR}/lib") set(CTEST_BINARY_NAME ${CTEST_SOURCE_NAME}/build) set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_SOURCE_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_BINARY_NAME}") endif(WIN32) ############################################################################################################### # For any comments please contact cdashhelp@hdfgroup.org # ############################################################################################################### #----------------------------------------------------------------------------- # MAC machines need special option #----------------------------------------------------------------------------- if(APPLE) # Compiler choice execute_process(COMMAND xcrun --find cc OUTPUT_VARIABLE XCODE_CC OUTPUT_STRIP_TRAILING_WHITESPACE) execute_process(COMMAND xcrun --find c++ OUTPUT_VARIABLE XCODE_CXX OUTPUT_STRIP_TRAILING_WHITESPACE) set(ENV{CC} "${XCODE_CC}") set(ENV{CXX} "${XCODE_CXX}") if(NOT NO_MAC_FORTRAN) # Shared fortran is not supported, build static set(BUILD_OPTIONS "${BUILD_OPTIONS} -DBUILD_SHARED_LIBS:BOOL=OFF -DCMAKE_ANSI_CFLAGS:STRING=-fPIC") else(NOT NO_MAC_FORTRAN) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DHDF4_BUILD_FORTRAN:BOOL=OFF") endif(NOT NO_MAC_FORTRAN) set(BUILD_OPTIONS "${BUILD_OPTIONS} -DCTEST_USE_LAUNCHERS:BOOL=ON -DCMAKE_BUILD_WITH_INSTALL_RPATH:BOOL=OFF") endif(APPLE) #----------------------------------------------------------------------------- set(CTEST_CMAKE_COMMAND "\"${CMAKE_COMMAND}\"") ## Uncompress source in tar file provided ## -------------------------- if(WIN32) set(CTEST_7Z_COMMAND "C:/Program Files/7-Zip/7z.exe") message("extracting... [${CTEST_7Z_COMMAND} x ${CTEST_SOURCE_NAME}.zip]") execute_process(COMMAND ${CTEST_7Z_COMMAND} x ${CTEST_SOURCE_NAME}.zip RESULT_VARIABLE rv) else(WIN32) message("extracting... [${CTEST_CMAKE_COMMAND} -E tar -xvf ${CTEST_SOURCE_NAME}.tar.gz]") execute_process(COMMAND tar -xvf ${CTEST_SOURCE_NAME}.tar.gz RESULT_VARIABLE rv) endif(WIN32) if(NOT rv EQUAL 0) message("extracting... [error-(${rv}) clean up]") file(REMOVE_RECURSE "${CTEST_SOURCE_DIRECTORY}") message(FATAL_ERROR "error: extract of ${CTEST_SOURCE_NAME} failed") endif(NOT rv EQUAL 0) #----------------------------------------------------------------------------- ## Clear the build directory ## -------------------------- set(CTEST_START_WITH_EMPTY_BINARY_DIRECTORY TRUE) file(MAKE_DIRECTORY "${CTEST_BINARY_DIRECTORY}") ctest_empty_binary_directory(${CTEST_BINARY_DIRECTORY}) # Use multiple CPU cores to build include(ProcessorCount) ProcessorCount(N) if(NOT N EQUAL 0) if(NOT WIN32) set(CTEST_BUILD_FLAGS -j${N}) endif(NOT WIN32) set(ctest_test_args ${ctest_test_args} PARALLEL_LEVEL ${N}) endif() set (CTEST_CONFIGURE_COMMAND "${CTEST_CMAKE_COMMAND} -C \"${CTEST_SOURCE_DIRECTORY}/config/cmake/cacheinit.cmake\" -DCMAKE_BUILD_TYPE:STRING=${CTEST_BUILD_CONFIGURATION} ${BUILD_OPTIONS} \"-G${CTEST_CMAKE_GENERATOR}\" \"${CTEST_SOURCE_DIRECTORY}\"" ) #----------------------------------------------------------------------------- ## -- set output to english set($ENV{LC_MESSAGES} "en_EN") #----------------------------------------------------------------------------- ## NORMAL process ## -------------------------- CTEST_START (Experimental) CTEST_CONFIGURE (BUILD "${CTEST_BINARY_DIRECTORY}") CTEST_READ_CUSTOM_FILES ("${CTEST_BINARY_DIRECTORY}") CTEST_BUILD (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND) CTEST_TEST (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND ${ctest_test_args} RETURN_VALUE res) if(res GREATER 0) message (FATAL_ERROR "tests FAILED") endif(res GREATER 0) #----------------------------------------------------------------------------- ############################################################################################################## message("DONE")libhdf4-4.2.10/HDF_ALT/config/cmake/HDFMacros.cmake0000644000000000000000000001571412421456623016213 0ustar #------------------------------------------------------------------------------- MACRO (SET_GLOBAL_VARIABLE name value) SET (${name} ${value} CACHE INTERNAL "Used to pass variables between directories" FORCE) ENDMACRO (SET_GLOBAL_VARIABLE) #------------------------------------------------------------------------------- MACRO (IDE_GENERATED_PROPERTIES SOURCE_PATH HEADERS SOURCES) #set(source_group_path "Source/AIM/${NAME}") STRING (REPLACE "/" "\\\\" source_group_path ${SOURCE_PATH}) source_group (${source_group_path} FILES ${HEADERS} ${SOURCES}) #-- The following is needed if we ever start to use OS X Frameworks but only #-- works on CMake 2.6 and greater #SET_PROPERTY (SOURCE ${HEADERS} # PROPERTY MACOSX_PACKAGE_LOCATION Headers/${NAME} #) ENDMACRO (IDE_GENERATED_PROPERTIES) #------------------------------------------------------------------------------- MACRO (IDE_SOURCE_PROPERTIES SOURCE_PATH HEADERS SOURCES) # INSTALL (FILES ${HEADERS} # DESTINATION include/R3D/${NAME} # COMPONENT Headers # ) STRING (REPLACE "/" "\\\\" source_group_path ${SOURCE_PATH} ) source_group (${source_group_path} FILES ${HEADERS} ${SOURCES}) #-- The following is needed if we ever start to use OS X Frameworks but only #-- works on CMake 2.6 and greater #SET_PROPERTY (SOURCE ${HEADERS} # PROPERTY MACOSX_PACKAGE_LOCATION Headers/${NAME} #) ENDMACRO (IDE_SOURCE_PROPERTIES) #------------------------------------------------------------------------------- MACRO (TARGET_NAMING libtarget libtype) IF (WIN32) IF (${libtype} MATCHES "SHARED") SET_TARGET_PROPERTIES (${libtarget} PROPERTIES OUTPUT_NAME "${libtarget}dll") ENDIF (${libtype} MATCHES "SHARED") ENDIF (WIN32) ENDMACRO (TARGET_NAMING) #------------------------------------------------------------------------------- MACRO (INSTALL_TARGET_PDB libtarget targetdestination targetcomponent) IF (WIN32 AND MSVC) GET_TARGET_PROPERTY (target_name ${libtarget} RELWITHDEBINFO_OUTPUT_NAME) INSTALL ( FILES ${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/${CMAKE_BUILD_TYPE}/${CMAKE_IMPORT_LIBRARY_PREFIX}${target_name}.pdb DESTINATION ${targetdestination} CONFIGURATIONS RelWithDebInfo COMPONENT ${targetcomponent} ) ENDIF (WIN32 AND MSVC) ENDMACRO (INSTALL_TARGET_PDB) #------------------------------------------------------------------------------- MACRO (INSTALL_PROGRAM_PDB progtarget targetdestination targetcomponent) IF (WIN32 AND MSVC) GET_TARGET_PROPERTY (target_name ${progtarget} RELWITHDEBINFO_OUTPUT_NAME) GET_TARGET_PROPERTY (target_prefix ${progtarget} PREFIX) INSTALL ( FILES ${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/${CMAKE_BUILD_TYPE}/${target_prefix}${target_name}.pdb DESTINATION ${targetdestination} CONFIGURATIONS RelWithDebInfo COMPONENT ${targetcomponent} ) ENDIF (WIN32 AND MSVC) ENDMACRO (INSTALL_PROGRAM_PDB) #------------------------------------------------------------------------------- MACRO (HDF_SET_LIB_OPTIONS libtarget libname libtype) # message (STATUS "${libname} libtype: ${libtype}") IF (${libtype} MATCHES "SHARED") IF (WIN32) SET (LIB_RELEASE_NAME "${libname}") SET (LIB_DEBUG_NAME "${libname}_D") ELSE (WIN32) SET (LIB_RELEASE_NAME "${libname}") SET (LIB_DEBUG_NAME "${libname}_debug") ENDIF (WIN32) ELSE (${libtype} MATCHES "SHARED") IF (WIN32) SET (LIB_RELEASE_NAME "lib${libname}") SET (LIB_DEBUG_NAME "lib${libname}_D") ELSE (WIN32) # if the generator supports configuration types or if the CMAKE_BUILD_TYPE has a value IF (CMAKE_CONFIGURATION_TYPES OR CMAKE_BUILD_TYPE) SET (LIB_RELEASE_NAME "${libname}") SET (LIB_DEBUG_NAME "${libname}_debug") ELSE (CMAKE_CONFIGURATION_TYPES OR CMAKE_BUILD_TYPE) SET (LIB_RELEASE_NAME "lib${libname}") SET (LIB_DEBUG_NAME "lib${libname}_debug") ENDIF (CMAKE_CONFIGURATION_TYPES OR CMAKE_BUILD_TYPE) ENDIF (WIN32) ENDIF (${libtype} MATCHES "SHARED") SET_TARGET_PROPERTIES (${libtarget} PROPERTIES DEBUG_OUTPUT_NAME ${LIB_DEBUG_NAME} RELEASE_OUTPUT_NAME ${LIB_RELEASE_NAME} MINSIZEREL_OUTPUT_NAME ${LIB_RELEASE_NAME} RELWITHDEBINFO_OUTPUT_NAME ${LIB_RELEASE_NAME} ) #----- Use MSVC Naming conventions for Shared Libraries IF (MINGW AND ${libtype} MATCHES "SHARED") SET_TARGET_PROPERTIES (${libtarget} PROPERTIES IMPORT_SUFFIX ".lib" IMPORT_PREFIX "" PREFIX "" ) ENDIF (MINGW AND ${libtype} MATCHES "SHARED") ENDMACRO (HDF_SET_LIB_OPTIONS) #------------------------------------------------------------------------------- MACRO (TARGET_C_PROPERTIES wintarget addcompileflags addlinkflags) IF (MSVC) TARGET_MSVC_PROPERTIES (${wintarget} "${addcompileflags} ${WIN_COMPILE_FLAGS}" "${addlinkflags} ${WIN_LINK_FLAGS}") ELSE (MSVC) IF (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${wintarget} PROPERTIES COMPILE_FLAGS "${addcompileflags}" LINK_FLAGS "${addlinkflags}" ) ELSE (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${wintarget} PROPERTIES COMPILE_FLAGS "${addcompileflags}" LINK_FLAGS "${addlinkflags}" ) ENDIF (BUILD_SHARED_LIBS) ENDIF (MSVC) ENDMACRO (TARGET_C_PROPERTIES) #------------------------------------------------------------------------------- MACRO (TARGET_MSVC_PROPERTIES wintarget addcompileflags addlinkflags) IF (MSVC) IF (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${wintarget} PROPERTIES COMPILE_FLAGS "${addcompileflags}" LINK_FLAGS "${addlinkflags}" ) ELSE (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${wintarget} PROPERTIES COMPILE_FLAGS "${addcompileflags}" LINK_FLAGS "${addlinkflags}" ) ENDIF (BUILD_SHARED_LIBS) ENDIF (MSVC) ENDMACRO (TARGET_MSVC_PROPERTIES) #------------------------------------------------------------------------------- MACRO (TARGET_FORTRAN_PROPERTIES forttarget addcompileflags addlinkflags) IF (WIN32) TARGET_FORTRAN_WIN_PROPERTIES (${forttarget} "${addcompileflags} ${WIN_COMPILE_FLAGS}" "${addlinkflags} ${WIN_LINK_FLAGS}") ENDIF (WIN32) ENDMACRO (TARGET_FORTRAN_PROPERTIES) #------------------------------------------------------------------------------- MACRO (TARGET_FORTRAN_WIN_PROPERTIES forttarget addcompileflags addlinkflags) IF (MSVC) IF (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${forttarget} PROPERTIES COMPILE_FLAGS "/dll ${addcompileflags}" LINK_FLAGS "/SUBSYSTEM:CONSOLE ${addlinkflags}" ) ELSE (BUILD_SHARED_LIBS) SET_TARGET_PROPERTIES (${forttarget} PROPERTIES COMPILE_FLAGS "${addcompileflags}" LINK_FLAGS "/SUBSYSTEM:CONSOLE ${addlinkflags}" ) ENDIF (BUILD_SHARED_LIBS) ENDIF (MSVC) ENDMACRO (TARGET_FORTRAN_WIN_PROPERTIES) libhdf4-4.2.10/HDF_ALT/config/cmake/ConfigureChecks.cmake0000644000000000000000000003553412421456623017511 0ustar #----------------------------------------------------------------------------- # Include all the necessary files for macros #----------------------------------------------------------------------------- INCLUDE (${CMAKE_ROOT}/Modules/CheckFunctionExists.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckIncludeFile.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckIncludeFileCXX.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckIncludeFiles.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckLibraryExists.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckSymbolExists.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckTypeSize.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckVariableExists.cmake) INCLUDE (${CMAKE_ROOT}/Modules/CheckFortranFunctionExists.cmake) INCLUDE (${CMAKE_ROOT}/Modules/TestBigEndian.cmake) INCLUDE (${CMAKE_ROOT}/Modules/TestForSTDNamespace.cmake) #----------------------------------------------------------------------------- # Always SET this for now IF we are on an OS X box #----------------------------------------------------------------------------- IF (APPLE) LIST(LENGTH CMAKE_OSX_ARCHITECTURES ARCH_LENGTH) IF(ARCH_LENGTH GREATER 1) set (CMAKE_OSX_ARCHITECTURES "" CACHE STRING "" FORCE) message(FATAL_ERROR "Building Universal Binaries on OS X is NOT supported by the HDF5 project. This is" "due to technical reasons. The best approach would be build each architecture in separate directories" "and use the 'lipo' tool to combine them into a single executable or library. The 'CMAKE_OSX_ARCHITECTURES'" "variable has been set to a blank value which will build the default architecture for this system.") ENDIF() SET (H4_AC_APPLE_UNIVERSAL_BUILD 0) ENDIF (APPLE) #----------------------------------------------------------------------------- # Option to Build HDF4 versions of NetCDF-3 APIS #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_NETCDF "Build HDF4 versions of NetCDF-3 APIS" ON) IF (HDF4_ENABLE_NETCDF) SET (H4_HAVE_NETCDF 1) ENDIF (HDF4_ENABLE_NETCDF) #----------------------------------------------------------------------------- # This MACRO checks IF the symbol exists in the library and IF it # does, it appends library to the list. #----------------------------------------------------------------------------- SET (LINK_LIBS "") MACRO (CHECK_LIBRARY_EXISTS_CONCAT LIBRARY SYMBOL VARIABLE) CHECK_LIBRARY_EXISTS ("${LIBRARY};${LINK_LIBS}" ${SYMBOL} "" ${VARIABLE}) IF (${VARIABLE}) SET (LINK_LIBS ${LINK_LIBS} ${LIBRARY}) ENDIF (${VARIABLE}) ENDMACRO (CHECK_LIBRARY_EXISTS_CONCAT) # ---------------------------------------------------------------------- # WINDOWS Hard code Values # ---------------------------------------------------------------------- SET (WINDOWS) IF (WIN32) IF (MINGW) SET (WINDOWS 1) # MinGW tries to imitate Windows SET (CMAKE_REQUIRED_FLAGS "-DWIN32_LEAN_AND_MEAN=1 -DNOGDI=1") ENDIF (MINGW) SET (CMAKE_REQUIRED_LIBRARIES "ws2_32.lib;wsock32.lib") IF (NOT UNIX AND NOT CYGWIN AND NOT MINGW) SET (WINDOWS 1) SET (CMAKE_REQUIRED_FLAGS "/DWIN32_LEAN_AND_MEAN=1 /DNOGDI=1") ENDIF (NOT UNIX AND NOT CYGWIN AND NOT MINGW) ENDIF (WIN32) IF (WINDOWS) SET (H4_HAVE_STDDEF_H 1) SET (H4_HAVE_SYS_STAT_H 1) SET (H4_HAVE_SYS_TYPES_H 1) SET (H4_HAVE_LIBM 1) SET (H4_HAVE_STRDUP 1) SET (H4_HAVE_SYSTEM 1) SET (H4_HAVE_LONGJMP 1) IF (NOT MINGW) SET (H4_HAVE_GETHOSTNAME 1) ENDIF (NOT MINGW) IF (NOT UNIX AND NOT CYGWIN AND NOT MINGW) SET (H4_HAVE_GETCONSOLESCREENBUFFERINFO 1) ENDIF (NOT UNIX AND NOT CYGWIN AND NOT MINGW) SET (H4_HAVE_FUNCTION 1) SET (H4_HAVE_TIMEZONE 1) IF (MINGW) SET (H4_HAVE_WINSOCK2_H 1) ENDIF (MINGW) SET (H4_HAVE_LIBWS2_32 1) SET (H4_HAVE_LIBWSOCK32 1) ENDIF (WINDOWS) # ---------------------------------------------------------------------- # END of WINDOWS Hard code Values # ---------------------------------------------------------------------- IF (CYGWIN) CHECK_LIBRARY_EXISTS_CONCAT ("rpc" xdr_opaque H4_HAVE_RPC) ENDIF (CYGWIN) #----------------------------------------------------------------------------- # Check for the math library "m" #----------------------------------------------------------------------------- IF (NOT WINDOWS) CHECK_LIBRARY_EXISTS_CONCAT ("m" ceil H4_HAVE_LIBM) CHECK_LIBRARY_EXISTS_CONCAT ("ws2_32" WSAStartup H4_HAVE_LIBWS2_32) CHECK_LIBRARY_EXISTS_CONCAT ("wsock32" gethostbyname H4_HAVE_LIBWSOCK32) ENDIF (NOT WINDOWS) CHECK_LIBRARY_EXISTS_CONCAT ("ucb" gethostname H4_HAVE_LIBUCB) CHECK_LIBRARY_EXISTS_CONCAT ("socket" connect H4_HAVE_LIBSOCKET) CHECK_LIBRARY_EXISTS ("c" gethostbyname "" NOT_NEED_LIBNSL) IF (NOT NOT_NEED_LIBNSL) CHECK_LIBRARY_EXISTS_CONCAT ("nsl" gethostbyname H4_HAVE_LIBNSL) ENDIF (NOT NOT_NEED_LIBNSL) # For other tests to use the same libraries SET (CMAKE_REQUIRED_LIBRARIES ${CMAKE_REQUIRED_LIBRARIES} ${LINK_LIBS}) SET (USE_INCLUDES "") IF (WINDOWS) SET (USE_INCLUDES ${USE_INCLUDES} "windows.h") ENDIF (WINDOWS) IF (NOT WINDOWS) TEST_BIG_ENDIAN(H4_WORDS_BIGENDIAN) ENDIF (NOT WINDOWS) # For other specific tests, use this MACRO. MACRO (HDF_FUNCTION_TEST OTHER_TEST) IF ("H4_${OTHER_TEST}" MATCHES "^H4_${OTHER_TEST}$") SET (MACRO_CHECK_FUNCTION_DEFINITIONS "-D${OTHER_TEST} ${CMAKE_REQUIRED_FLAGS}") SET (OTHER_TEST_ADD_LIBRARIES) IF (CMAKE_REQUIRED_LIBRARIES) SET (OTHER_TEST_ADD_LIBRARIES "-DLINK_LIBRARIES:STRING=${CMAKE_REQUIRED_LIBRARIES}") ENDIF (CMAKE_REQUIRED_LIBRARIES) FOREACH (def ${HDF_EXTRA_TEST_DEFINITIONS}) SET (MACRO_CHECK_FUNCTION_DEFINITIONS "${MACRO_CHECK_FUNCTION_DEFINITIONS} -D${def}=${${def}}") ENDFOREACH (def) FOREACH (def HAVE_SYS_TIME_H HAVE_UNISTD_H HAVE_SYS_TYPES_H HAVE_SYS_SOCKET_H ) IF ("${H4_${def}}") SET (MACRO_CHECK_FUNCTION_DEFINITIONS "${MACRO_CHECK_FUNCTION_DEFINITIONS} -D${def}") ENDIF ("${H4_${def}}") ENDFOREACH (def) IF (LARGEFILE) SET (MACRO_CHECK_FUNCTION_DEFINITIONS "${MACRO_CHECK_FUNCTION_DEFINITIONS} -D_FILE_OFFSET_BITS=64 -D_LARGEFILE64_SOURCE -D_LARGEFILE_SOURCE" ) ENDIF (LARGEFILE) #MESSAGE (STATUS "Performing ${OTHER_TEST}") TRY_COMPILE (${OTHER_TEST} ${CMAKE_BINARY_DIR} ${HDF4_RESOURCES_DIR}/HDFTests.c CMAKE_FLAGS -DCOMPILE_DEFINITIONS:STRING=${MACRO_CHECK_FUNCTION_DEFINITIONS} "${OTHER_TEST_ADD_LIBRARIES}" OUTPUT_VARIABLE OUTPUT ) IF (${OTHER_TEST}) SET (H4_${OTHER_TEST} 1 CACHE INTERNAL "Other test ${FUNCTION}") MESSAGE (STATUS "Performing Other Test ${OTHER_TEST} - Success") ELSE (${OTHER_TEST}) MESSAGE (STATUS "Performing Other Test ${OTHER_TEST} - Failed") SET (H4_${OTHER_TEST} "" CACHE INTERNAL "Other test ${FUNCTION}") FILE (APPEND ${CMAKE_BINARY_DIR}/CMakeFiles/CMakeError.log "Performing Other Test ${OTHER_TEST} failed with the following output:\n" "${OUTPUT}\n" ) ENDIF (${OTHER_TEST}) ENDIF ("H4_${OTHER_TEST}" MATCHES "^H4_${OTHER_TEST}$") ENDMACRO (HDF_FUNCTION_TEST) #----------------------------------------------------------------------------- HDF_FUNCTION_TEST (STDC_HEADERS) #----------------------------------------------------------------------------- # Check IF header file exists and add it to the list. #----------------------------------------------------------------------------- MACRO (CHECK_INCLUDE_FILE_CONCAT FILE VARIABLE) CHECK_INCLUDE_FILES ("${USE_INCLUDES};${FILE}" ${VARIABLE}) IF (${VARIABLE}) SET (USE_INCLUDES ${USE_INCLUDES} ${FILE}) ENDIF (${VARIABLE}) ENDMACRO (CHECK_INCLUDE_FILE_CONCAT) #----------------------------------------------------------------------------- # Check for the existence of certain header files #----------------------------------------------------------------------------- CHECK_INCLUDE_FILE_CONCAT ("unistd.h" H4_HAVE_UNISTD_H) CHECK_INCLUDE_FILE_CONCAT ("sys/stat.h" H4_HAVE_SYS_STAT_H) CHECK_INCLUDE_FILE_CONCAT ("sys/types.h" H4_HAVE_SYS_TYPES_H) CHECK_INCLUDE_FILE_CONCAT ("stddef.h" H4_HAVE_STDDEF_H) CHECK_INCLUDE_FILE_CONCAT ("stdint.h" H4_HAVE_STDINT_H) # IF the c compiler found stdint, check the C++ as well. On some systems this # file will be found by C but not C++, only do this test IF the C++ compiler # has been initialized (e.g. the project also includes some c++) IF (H4_HAVE_STDINT_H AND CMAKE_CXX_COMPILER_LOADED) CHECK_INCLUDE_FILE_CXX ("stdint.h" H4_HAVE_STDINT_H_CXX) IF (NOT H4_HAVE_STDINT_H_CXX) SET (H4_HAVE_STDINT_H "" CACHE INTERNAL "Have includes HAVE_STDINT_H") SET (USE_INCLUDES ${USE_INCLUDES} "stdint.h") ENDIF (NOT H4_HAVE_STDINT_H_CXX) ENDIF (H4_HAVE_STDINT_H AND CMAKE_CXX_COMPILER_LOADED) # Windows IF (NOT CYGWIN) CHECK_INCLUDE_FILE_CONCAT ("winsock2.h" H4_HAVE_WINSOCK2_H) ENDIF (NOT CYGWIN) CHECK_INCLUDE_FILE_CONCAT ("pthread.h" H4_HAVE_PTHREAD_H) CHECK_INCLUDE_FILE_CONCAT ("string.h" H4_HAVE_STRING_H) CHECK_INCLUDE_FILE_CONCAT ("strings.h" H4_HAVE_STRINGS_H) CHECK_INCLUDE_FILE_CONCAT ("stdlib.h" H4_HAVE_STDLIB_H) CHECK_INCLUDE_FILE_CONCAT ("memory.h" H4_HAVE_MEMORY_H) CHECK_INCLUDE_FILE_CONCAT ("dlfcn.h" H4_HAVE_DLFCN_H) CHECK_INCLUDE_FILE_CONCAT ("inttypes.h" H4_HAVE_INTTYPES_H) #----------------------------------------------------------------------------- # Check for large file support #----------------------------------------------------------------------------- # The linux-lfs option is deprecated. SET (LINUX_LFS 0) SET (HDF_EXTRA_FLAGS) IF (NOT WINDOWS) # Linux Specific flags # Removed _POSIX_SOURCE due to OS X build errors SET (HDF_EXTRA_FLAGS -D_BSD_SOURCE) OPTION (HDF_ENABLE_LARGE_FILE "Enable support for large (64-bit) files on Linux." ON) IF (HDF_ENABLE_LARGE_FILE) SET (msg "Performing TEST_LFS_WORKS") TRY_RUN (TEST_LFS_WORKS_RUN TEST_LFS_WORKS_COMPILE ${HDF4_BINARY_DIR}/CMake ${HDF4_RESOURCES_DIR}/HDFTests.c CMAKE_FLAGS -DCOMPILE_DEFINITIONS:STRING=-DTEST_LFS_WORKS OUTPUT_VARIABLE OUTPUT ) IF (TEST_LFS_WORKS_COMPILE) IF (TEST_LFS_WORKS_RUN MATCHES 0) SET (TEST_LFS_WORKS 1 CACHE INTERNAL ${msg}) SET (LARGEFILE 1) SET (HDF_EXTRA_FLAGS ${HDF_EXTRA_FLAGS} -D_FILE_OFFSET_BITS=64 -D_LARGEFILE64_SOURCE -D_LARGEFILE_SOURCE) MESSAGE (STATUS "${msg}... yes") ELSE (TEST_LFS_WORKS_RUN MATCHES 0) SET (TEST_LFS_WORKS "" CACHE INTERNAL ${msg}) MESSAGE (STATUS "${msg}... no") FILE (APPEND ${CMAKE_BINARY_DIR}/CMakeFiles/CMakeError.log "Test TEST_LFS_WORKS Run failed with the following output and exit code:\n ${OUTPUT}\n" ) ENDIF (TEST_LFS_WORKS_RUN MATCHES 0) ELSE (TEST_LFS_WORKS_COMPILE ) SET (TEST_LFS_WORKS "" CACHE INTERNAL ${msg}) MESSAGE (STATUS "${msg}... no") FILE (APPEND ${CMAKE_BINARY_DIR}/CMakeFiles/CMakeError.log "Test TEST_LFS_WORKS Compile failed with the following output:\n ${OUTPUT}\n" ) ENDIF (TEST_LFS_WORKS_COMPILE) ENDIF (HDF_ENABLE_LARGE_FILE) SET (CMAKE_REQUIRED_DEFINITIONS ${CMAKE_REQUIRED_DEFINITIONS} ${HDF_EXTRA_FLAGS}) ENDIF (NOT WINDOWS) ADD_DEFINITIONS (${HDF_EXTRA_FLAGS}) #----------------------------------------------------------------------------- # Check the size in bytes of all the int and float types #----------------------------------------------------------------------------- MACRO (H4_CHECK_TYPE_SIZE type var) SET (aType ${type}) SET (aVar ${var}) # MESSAGE (STATUS "Checking size of ${aType} and storing into ${aVar}") CHECK_TYPE_SIZE (${aType} ${aVar}) IF (NOT ${aVar}) SET (${aVar} 0 CACHE INTERNAL "SizeOf for ${aType}") # MESSAGE (STATUS "Size of ${aType} was NOT Found") ENDIF (NOT ${aVar}) ENDMACRO (H4_CHECK_TYPE_SIZE) H4_CHECK_TYPE_SIZE (char H4_SIZEOF_CHAR) H4_CHECK_TYPE_SIZE (short H4_SIZEOF_SHORT) H4_CHECK_TYPE_SIZE (int H4_SIZEOF_INT) H4_CHECK_TYPE_SIZE (unsigned H4_SIZEOF_UNSIGNED) IF (NOT APPLE) H4_CHECK_TYPE_SIZE (long H4_SIZEOF_LONG) ENDIF (NOT APPLE) H4_CHECK_TYPE_SIZE ("long long" H4_SIZEOF_LONG_LONG) H4_CHECK_TYPE_SIZE (__int64 H4_SIZEOF___INT64) IF (NOT H4_SIZEOF___INT64) SET (H4_SIZEOF___INT64 0) ENDIF (NOT H4_SIZEOF___INT64) H4_CHECK_TYPE_SIZE (float H4_SIZEOF_FLOAT) H4_CHECK_TYPE_SIZE (double H4_SIZEOF_DOUBLE) H4_CHECK_TYPE_SIZE ("long double" H4_SIZEOF_LONG_DOUBLE) H4_CHECK_TYPE_SIZE (int8_t H4_SIZEOF_INT8_T) H4_CHECK_TYPE_SIZE (uint8_t H4_SIZEOF_UINT8_T) H4_CHECK_TYPE_SIZE (int_least8_t H4_SIZEOF_INT_LEAST8_T) H4_CHECK_TYPE_SIZE (uint_least8_t H4_SIZEOF_UINT_LEAST8_T) H4_CHECK_TYPE_SIZE (int_fast8_t H4_SIZEOF_INT_FAST8_T) H4_CHECK_TYPE_SIZE (uint_fast8_t H4_SIZEOF_UINT_FAST8_T) H4_CHECK_TYPE_SIZE (int16_t H4_SIZEOF_INT16_T) H4_CHECK_TYPE_SIZE (uint16_t H4_SIZEOF_UINT16_T) H4_CHECK_TYPE_SIZE (int_least16_t H4_SIZEOF_INT_LEAST16_T) H4_CHECK_TYPE_SIZE (uint_least16_t H4_SIZEOF_UINT_LEAST16_T) H4_CHECK_TYPE_SIZE (int_fast16_t H4_SIZEOF_INT_FAST16_T) H4_CHECK_TYPE_SIZE (uint_fast16_t H4_SIZEOF_UINT_FAST16_T) H4_CHECK_TYPE_SIZE (int32_t H4_SIZEOF_INT32_T) H4_CHECK_TYPE_SIZE (uint32_t H4_SIZEOF_UINT32_T) H4_CHECK_TYPE_SIZE (int_least32_t H4_SIZEOF_INT_LEAST32_T) H4_CHECK_TYPE_SIZE (uint_least32_t H4_SIZEOF_UINT_LEAST32_T) H4_CHECK_TYPE_SIZE (int_fast32_t H4_SIZEOF_INT_FAST32_T) H4_CHECK_TYPE_SIZE (uint_fast32_t H4_SIZEOF_UINT_FAST32_T) H4_CHECK_TYPE_SIZE (int64_t H4_SIZEOF_INT64_T) H4_CHECK_TYPE_SIZE (uint64_t H4_SIZEOF_UINT64_T) H4_CHECK_TYPE_SIZE (int_least64_t H4_SIZEOF_INT_LEAST64_T) H4_CHECK_TYPE_SIZE (uint_least64_t H4_SIZEOF_UINT_LEAST64_T) H4_CHECK_TYPE_SIZE (int_fast64_t H4_SIZEOF_INT_FAST64_T) H4_CHECK_TYPE_SIZE (uint_fast64_t H4_SIZEOF_UINT_FAST64_T) IF (NOT APPLE) H4_CHECK_TYPE_SIZE (size_t H4_SIZEOF_SIZE_T) H4_CHECK_TYPE_SIZE (ssize_t H4_SIZEOF_SSIZE_T) IF (NOT H4_SIZEOF_SSIZE_T) SET (H4_SIZEOF_SSIZE_T 0) ENDIF (NOT H4_SIZEOF_SSIZE_T) ENDIF (NOT APPLE) H4_CHECK_TYPE_SIZE (off_t H4_SIZEOF_OFF_T) H4_CHECK_TYPE_SIZE (off64_t H4_SIZEOF_OFF64_T) IF (NOT H4_SIZEOF_OFF64_T) SET (H4_SIZEOF_OFF64_T 0) ENDIF (NOT H4_SIZEOF_OFF64_T) #----------------------------------------------------------------------------- # Check for some functions that are used # CHECK_FUNCTION_EXISTS (fork H4_HAVE_FORK) CHECK_FUNCTION_EXISTS (strdup H4_HAVE_STRDUP) CHECK_FUNCTION_EXISTS (system H4_HAVE_SYSTEM) CHECK_FUNCTION_EXISTS (wait H4_HAVE_WAIT) CHECK_FUNCTION_EXISTS (vfork H4_HAVE_VFORK) #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # Check a bunch of other functions #----------------------------------------------------------------------------- IF (NOT WINDOWS) FOREACH (test STDC_HEADERS HAVE_FUNCTION ) HDF_FUNCTION_TEST (${test}) ENDFOREACH (test) ENDIF (NOT WINDOWS) libhdf4-4.2.10/HDF_ALT/config/cmake/libhdf4.settings.cmake.in0000644000000000000000000000276412421456623020226 0ustar SUMMARY OF THE HDF4 CONFIGURATION ================================= General Information: ------------------- HDF4 Version: @HDF4_PACKAGE_VERSION@ Configured on: @CONFIG_DATE@ Configured by: @CMAKE_GENERATOR@ Configure mode: CMAKE @CMAKE_VERSION@ Host system: @CMAKE_HOST_SYSTEM@ Uname information: @CMAKE_SYSTEM_NAME@ Libraries: @BUILD_NAME_EXT@ Installation point: @CMAKE_INSTALL_PREFIX@ Compiling Options: ------------------ Compilation Mode: @CMAKE_BUILD_TYPE@ C Compiler: @CMAKE_C_COMPILER@ CFLAGS: @CMAKE_C_FLAGS@ CPPFLAGS: @CMAKE_CXX_FLAGS@ Shared Libraries: @H4_ENABLE_SHARED_LIB@ Static Libraries: @H4_ENABLE_STATIC_LIB@ Statically Linked Executables: @BUILD_STATIC_EXECS@ LDFLAGS: @CMAKE_SHARED_LINKER_FLAGS@ Extra libraries: @LINK_LIBS@ Archiver: @CMAKE_AR@ Ranlib: @CMAKE_RANLIB@ Languages: ---------- Fortran: @HDF4_BUILD_FORTRAN@ @BUILD_FORTRAN_CONDITIONAL_TRUE@ Fortran Compiler: @CMAKE_Fortran_COMPILER@ @BUILD_FORTRAN_CONDITIONAL_TRUE@ Fortran Flags: @CMAKE_Fortran_FLAGS@ Features: --------- SZIP compression: @SZIP_INFO@ Support for netCDF API 2.3.2: @HDF4_ENABLE_NETCDF@ libhdf4-4.2.10/HDF_ALT/config/cmake/runTest.cmake0000644000000000000000000001541012421456623016102 0ustar # runTest.cmake executes a command and captures the output in a file. File is then compared # against a reference file. Exit status of command can also be compared. cmake_policy(SET CMP0007 NEW) # arguments checking IF (NOT TEST_PROGRAM) MESSAGE (FATAL_ERROR "Require TEST_PROGRAM to be defined") ENDIF (NOT TEST_PROGRAM) #IF (NOT TEST_ARGS) # MESSAGE (STATUS "Require TEST_ARGS to be defined") #ENDIF (NOT TEST_ARGS) IF (NOT TEST_FOLDER) MESSAGE ( FATAL_ERROR "Require TEST_FOLDER to be defined") ENDIF (NOT TEST_FOLDER) IF (NOT TEST_OUTPUT) MESSAGE (FATAL_ERROR "Require TEST_OUTPUT to be defined") ENDIF (NOT TEST_OUTPUT) #IF (NOT TEST_EXPECT) # MESSAGE (STATUS "Require TEST_EXPECT to be defined") #ENDIF (NOT TEST_EXPECT) #IF (NOT TEST_FILTER) # MESSAGE (STATUS "Require TEST_FILTER to be defined") #ENDIF (NOT TEST_FILTER) IF (NOT TEST_SKIP_COMPARE AND NOT TEST_REFERENCE) MESSAGE (FATAL_ERROR "Require TEST_REFERENCE to be defined") ENDIF (NOT TEST_SKIP_COMPARE AND NOT TEST_REFERENCE) IF (NOT TEST_ERRREF) SET (ERROR_APPEND 1) ENDIF (NOT TEST_ERRREF) MESSAGE (STATUS "COMMAND: ${TEST_PROGRAM} ${TEST_ARGS}") IF (TEST_ENV_VAR) SET (ENV{${TEST_ENV_VAR}} "${TEST_ENV_VALUE}") ENDIF (TEST_ENV_VAR) IF (NOT TEST_INPUT) # run the test program, capture the stdout/stderr and the result var EXECUTE_PROCESS ( COMMAND ${TEST_PROGRAM} ${TEST_ARGS} WORKING_DIRECTORY ${TEST_FOLDER} RESULT_VARIABLE TEST_RESULT OUTPUT_FILE ${TEST_OUTPUT} ERROR_FILE ${TEST_OUTPUT}.err OUTPUT_VARIABLE TEST_ERROR ERROR_VARIABLE TEST_ERROR ) ELSE (NOT TEST_INPUT) # run the test program with stdin, capture the stdout/stderr and the result var EXECUTE_PROCESS ( COMMAND ${TEST_PROGRAM} ${TEST_ARGS} WORKING_DIRECTORY ${TEST_FOLDER} RESULT_VARIABLE TEST_RESULT INPUT_FILE ${TEST_INPUT} OUTPUT_FILE ${TEST_OUTPUT} ERROR_FILE ${TEST_OUTPUT}.err OUTPUT_VARIABLE TEST_ERROR ERROR_VARIABLE TEST_ERROR ) ENDIF (NOT TEST_INPUT) MESSAGE (STATUS "COMMAND Result: ${TEST_RESULT}") IF (ERROR_APPEND) FILE (READ ${TEST_FOLDER}/${TEST_OUTPUT}.err TEST_STREAM) FILE (APPEND ${TEST_FOLDER}/${TEST_OUTPUT} "${TEST_STREAM}") ENDIF (ERROR_APPEND) IF (TEST_APPEND) FILE (APPEND ${TEST_FOLDER}/${TEST_OUTPUT} "${TEST_APPEND} ${TEST_RESULT}\n") ENDIF (TEST_APPEND) # if the return value is !=${TEST_EXPECT} bail out IF (NOT ${TEST_RESULT} STREQUAL ${TEST_EXPECT}) MESSAGE ( FATAL_ERROR "Failed: Test program ${TEST_PROGRAM} exited != ${TEST_EXPECT}.\n${TEST_ERROR}") ENDIF (NOT ${TEST_RESULT} STREQUAL ${TEST_EXPECT}) MESSAGE (STATUS "COMMAND Error: ${TEST_ERROR}") IF (TEST_MASK) FILE (READ ${TEST_FOLDER}/${TEST_OUTPUT} TEST_STREAM) #STRING(REGEX REPLACE "Modified:[^\n]+\n" "Modified: XXXX-XX-XX XX:XX:XX XXX\n" TEST_STREAM "${TEST_STREAM}") STRING(REGEX REPLACE "Storage:[^\n]+\n" "Storage:
\n" TEST_STREAM "${TEST_STREAM}") FILE (WRITE ${TEST_FOLDER}/${TEST_OUTPUT} "${TEST_STREAM}") ENDIF (TEST_MASK) IF (TEST_FILTER) FILE (READ ${TEST_FOLDER}/${TEST_OUTPUT} TEST_STREAM) STRING(REGEX REPLACE "${TEST_FILTER}" "" TEST_STREAM "${TEST_STREAM}") FILE (WRITE ${TEST_FOLDER}/${TEST_OUTPUT} "${TEST_STREAM}") ENDIF (TEST_FILTER) IF (NOT TEST_SKIP_COMPARE) IF (WIN32 AND NOT MINGW) FILE (READ ${TEST_FOLDER}/${TEST_REFERENCE} TEST_STREAM) FILE (WRITE ${TEST_FOLDER}/${TEST_REFERENCE} "${TEST_STREAM}") ENDIF (WIN32 AND NOT MINGW) # now compare the output with the reference EXECUTE_PROCESS ( COMMAND ${CMAKE_COMMAND} -E compare_files ${TEST_FOLDER}/${TEST_OUTPUT} ${TEST_FOLDER}/${TEST_REFERENCE} RESULT_VARIABLE TEST_RESULT ) IF (NOT ${TEST_RESULT} STREQUAL 0) SET (TEST_RESULT 0) FILE (STRINGS ${TEST_FOLDER}/${TEST_OUTPUT} test_act) LIST (LENGTH test_act len_act) FILE (STRINGS ${TEST_FOLDER}/${TEST_REFERENCE} test_ref) LIST (LENGTH test_ref len_ref) IF (NOT ${len_act} STREQUAL "0") MATH (EXPR _FP_LEN "${len_ref} - 1") FOREACH (line RANGE 0 ${_FP_LEN}) LIST (GET test_act ${line} str_act) LIST (GET test_ref ${line} str_ref) IF (NOT "${str_act}" STREQUAL "${str_ref}") IF (NOT "${str_act}" STREQUAL "") SET (TEST_RESULT 1) MESSAGE ("line = ${line}\n***ACTUAL: ${str_act}\n****REFER: ${str_ref}\n") ENDIF (NOT "${str_act}" STREQUAL "") ENDIF (NOT "${str_act}" STREQUAL "${str_ref}") ENDFOREACH (line RANGE 0 ${_FP_LEN}) ENDIF (NOT ${len_act} STREQUAL "0") IF (NOT ${len_act} STREQUAL ${len_ref}) SET (TEST_RESULT 1) ENDIF (NOT ${len_act} STREQUAL ${len_ref}) ENDIF (NOT ${TEST_RESULT} STREQUAL 0) MESSAGE (STATUS "COMPARE Result: ${TEST_RESULT}") # again, if return value is !=0 scream and shout IF (NOT ${TEST_RESULT} STREQUAL 0) MESSAGE (FATAL_ERROR "Failed: The output of ${TEST_OUTPUT} did not match ${TEST_REFERENCE}") ENDIF (NOT ${TEST_RESULT} STREQUAL 0) IF (TEST_ERRREF) IF (WIN32 AND NOT MINGW) FILE (READ ${TEST_FOLDER}/${TEST_ERRREF} TEST_STREAM) FILE (WRITE ${TEST_FOLDER}/${TEST_ERRREF} "${TEST_STREAM}") ENDIF (WIN32 AND NOT MINGW) # now compare the error output with the error reference EXECUTE_PROCESS ( COMMAND ${CMAKE_COMMAND} -E compare_files ${TEST_FOLDER}/${TEST_OUTPUT}.err ${TEST_FOLDER}/${TEST_ERRREF} RESULT_VARIABLE TEST_RESULT ) IF (NOT ${TEST_RESULT} STREQUAL 0) SET (TEST_RESULT 0) FILE (STRINGS ${TEST_FOLDER}/${TEST_OUTPUT}.err test_act) LIST (LENGTH test_act len_act) FILE (STRINGS ${TEST_FOLDER}/${TEST_ERRREF} test_ref) LIST (LENGTH test_ref len_ref) MATH (EXPR _FP_LEN "${len_ref} - 1") IF (NOT ${len_act} STREQUAL "0") MATH (EXPR _FP_LEN "${len_ref} - 1") FOREACH (line RANGE 0 ${_FP_LEN}) LIST (GET test_act ${line} str_act) LIST (GET test_ref ${line} str_ref) IF (NOT "${str_act}" STREQUAL "${str_ref}") IF (NOT "${str_act}" STREQUAL "") SET (TEST_RESULT 1) MESSAGE ("line = ${line}\n***ACTUAL: ${str_act}\n****REFER: ${str_ref}\n") ENDIF (NOT "${str_act}" STREQUAL "") ENDIF (NOT "${str_act}" STREQUAL "${str_ref}") ENDFOREACH (line RANGE 0 ${_FP_LEN}) ENDIF (NOT ${len_act} STREQUAL "0") IF (NOT ${len_act} STREQUAL ${len_ref}) SET (TEST_RESULT 1) ENDIF (NOT ${len_act} STREQUAL ${len_ref}) ENDIF (NOT ${TEST_RESULT} STREQUAL 0) MESSAGE (STATUS "COMPARE Result: ${TEST_RESULT}") # again, if return value is !=0 scream and shout IF (NOT ${TEST_RESULT} STREQUAL 0) MESSAGE (FATAL_ERROR "Failed: The error output of ${TEST_OUTPUT}.err did not match ${TEST_ERRREF}") ENDIF (NOT ${TEST_RESULT} STREQUAL 0) ENDIF (TEST_ERRREF) ENDIF (NOT TEST_SKIP_COMPARE) # everything went fine... MESSAGE ("Passed: The output of ${TEST_PROGRAM} matches ${TEST_REFERENCE}") libhdf4-4.2.10/HDF_ALT/config/cmake/mccacheinit.cmake0000644000000000000000000000545312421456623016713 0ustar # This is the CMakeCache file. ######################## # EXTERNAL cache entries ######################## SET (BUILD_SHARED_LIBS OFF CACHE BOOL "Build Shared Libraries" FORCE) SET (BUILD_TESTING ON CACHE BOOL "Build HDF4 Unit Testing" FORCE) SET (HDF_PACKAGE_EXT "" CACHE STRING "Name of HDF package extension" FORCE) SET (HDF4_BUILD_EXAMPLES ON CACHE BOOL "Build HDF4 Library Examples" FORCE) SET (HDF4_BUILD_FORTRAN ON CACHE BOOL "Build FORTRAN support" FORCE) SET (HDF4_BUILD_TOOLS ON CACHE BOOL "Build HDF4 Tools" FORCE) SET (HDF4_BUILD_UTILS ON CACHE BOOL "Build HDF4 Library Utilities" FORCE) SET (HDF4_BUILD_GENERATORS OFF CACHE BOOL "Build Test Generators" FORCE) SET (HDF4_ENABLE_NETCDF ON CACHE BOOL "Build HDF4 versions of NetCDF-3 APIS" FORCE) SET (HDF4_BUILD_XDR_LIB OFF CACHE BOOL "Build HDF4 XDR Library" FORCE) SET (HDF4_ENABLE_PARALLEL OFF CACHE BOOL "Enable parallel build (requires MPI)" FORCE) SET (MPIEXEC_MAX_NUMPROCS "3" CACHE STRING "Minimum number of processes for HDF parallel tests" FORCE) SET (HDF4_ENABLE_JPEG_LIB_SUPPORT ON CACHE BOOL "Enable Jpeg library" FORCE) SET (HDF4_ENABLE_Z_LIB_SUPPORT ON CACHE BOOL "Enable Zlib Filters" FORCE) SET (HDF4_ENABLE_SZIP_SUPPORT ON CACHE BOOL "Use SZip Filter" FORCE) SET (HDF4_ENABLE_SZIP_ENCODING ON CACHE BOOL "Use SZip Encoding" FORCE) SET (HDF4_ENABLE_COVERAGE OFF CACHE BOOL "Enable code coverage for Libraries and Programs" FORCE) SET (HDF4_ENABLE_USING_MEMCHECKER ON CACHE BOOL "Indicate that a memory checker is used" FORCE) SET (HDF4_DISABLE_COMPILER_WARNINGS OFF CACHE BOOL "Disable compiler warnings" FORCE) SET (HDF4_ENABLE_DEPRECATED_SYMBOLS ON CACHE BOOL "Enable deprecated public API symbols" FORCE) SET (HDF4_PACKAGE_EXTLIBS OFF CACHE BOOL "(WINDOWS)CPACK - include external libraries" FORCE) SET (HDF4_NO_PACKAGES ON CACHE BOOL "CPACK - Disable packaging" FORCE) SET (HDF4_ALLOW_EXTERNAL_SUPPORT "NO" CACHE STRING "Allow External Library Building" FORCE) SET (ZLIB_SVN_URL "http://svn.hdfgroup.uiuc.edu/zlib/trunk" CACHE STRING "Use ZLib from HDF repository" FORCE) SET (SZIP_SVN_URL "http://svn.hdfgroup.uiuc.edu/szip/trunk" CACHE STRING "Use SZip from HDF repository" FORCE) SET (JPEG_SVN_URL "http://svn.hdfgroup.uiuc.edu/jpeg/branches/jpeg8b" CACHE STRING "Use JPEG from HDF repository" FORCE) SET (ZLIB_TGZ_NAME "ZLib.tar.gz" CACHE STRING "Use ZLib from compressed file" FORCE) SET (SZIP_TGZ_NAME "SZip.tar.gz" CACHE STRING "Use SZip from compressed file" FORCE) SET (JPEG_TGZ_NAME "JPEG8b.tar.gz" CACHE STRING "Use JPEG from compressed file" FORCE) SET (CMAKE_BUILD_TYPE "Debug" CACHE STRING "Build Debug" FORCE) SET (ZLIB_PACKAGE_NAME "zlib" CACHE STRING "Name of ZLIB package" FORCE) SET (SZIP_PACKAGE_NAME "szip" CACHE STRING "Name of SZIP package" FORCE) SET (JPEG_PACKAGE_NAME "jpeg" CACHE STRING "Name of JPEG package" FORCE) libhdf4-4.2.10/HDF_ALT/config/cmake/CTestCustom.cmake0000644000000000000000000000633112421456623016655 0ustar SET (CTEST_CUSTOM_MAXIMUM_NUMBER_OF_WARNINGS 1500) SET (CTEST_CUSTOM_WARNING_EXCEPTION ${CTEST_CUSTOM_WARNING_EXCEPTION} "note.*expected.*void.*but argument is of type.*volatile" "SZIP.src.*:[ \t]*warning" "jpeg.src.*:[ \t]*warning" "POSIX name for this item is deprecated" "disabling jobserver mode" "config.cmake.xlatefile.c" ) SET (CTEST_CUSTOM_MEMCHECK_IGNORE ${CTEST_CUSTOM_MEMCHECK_IGNORE} hdfpack-clear-refs hdfpalette-clear-refs hdfjpeg-clear-refs HDP_tst-clearall-objects HDP_tst_err-clearall-objects HDP-clear-my.dat HDP-clear-mybin.dat hdfimport-clear-refs HDIFF-clearall-objects hrepack-clearall-objects HDF_EXAMPLES-clearall-objects HDF_FORTRAN_EXAMPLES-clearall-objects MFHDF_EXAMPLES-clearall-objects MFHDF_FORTRAN_EXAMPLES-clearall-objects MFHDF_TEST-clearall-objects testhdf-clearall-objects testhdf_thf0-clearall-objects testhdf_thf1-clearall-objects testhdf_thf2-clearall-objects testhdf_thf3-clearall-objects testhdf_thf4-clearall-objects testhdf_thf5-clearall-objects testhdf_thf6-clearall-objects testhdf_thf7-clearall-objects testhdf_thf8-clearall-objects testhdf_thf9-clearall-objects testhdf_thf10-clearall-objects testhdf_thf11-clearall-objects testhdf_thf12-clearall-objects testhdf_thf13-clearall-objects testhdf_thf14-clearall-objects testhdf_thf15-clearall-objects testhdf_thf16-clearall-objects testhdf_thf17-clearall-objects testhdf_thf18-clearall-objects testhdf_thf19-clearall-objects testhdf_thf20-clearall-objects testhdf_thf21-clearall-objects testhdf_thf22-clearall-objects testhdf_thf23-clearall-objects testhdf_thf24-clearall-objects testhdf_thf25-clearall-objects testhdf_thf26-clearall-objects testhdf_thf27-clearall-objects testhdf_thf28-clearall-objects testhdf_thf29-clearall-objects testhdf_thf30-clearall-objects testhdf_thf31-clearall-objects testhdf_thf32-clearall-objects testhdf_thf33-clearall-objects testhdf_thf34-clearall-objects testhdf_thf35-clearall-objects testhdf_thf36-clearall-objects testhdf_thf37-clearall-objects testhdf_thf38-clearall-objects testhdf_thf39-clearall-objects testhdf_thf40-clearall-objects testhdf_thf41-clearall-objects testhdf_thf42-clearall-objects testhdf_thf43-clearall-objects testhdf_thf44-clearall-objects testhdf_thf45-clearall-objects testhdf_thf46-clearall-objects testhdf_thf47-clearall-objects testhdf_thf48-clearall-objects testhdf_thf49-clearall-objects testhdf_thf50-clearall-objects testhdf_thf51-clearall-objects testhdf_thf52-clearall-objects testhdf_thf53-clearall-objects testhdf_thf54-clearall-objects testhdf_thf55-clearall-objects testhdf_thf56-clearall-objects testhdf_thf57-clearall-objects testhdf_thf58-clearall-objects testhdf_thf59-clearall-objects testhdf_thf60-clearall-objects hrepack-clearall-objects MFHDF_FORTRAN-clearall-objects HDF_FORTRAN-clearall-objects hdfgif-clear-refs ncdump-clearall-objects NC_TEST-clearall-objects HEDIT-hdfed.input1 HEDIT-ristosds.input1 )libhdf4-4.2.10/HDF_ALT/config/apple0000644000000000000000000000664212421456623013407 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. # Use clang as the default C compiler. if test "X-$CC" = "X-"; then CC=clang CC_BASENAME=clang fi # Use gfortran as the deafult F77 compiler. if test "X-$F77" = "X-"; then F77=gfortran F77_BASENAME=gfortran fi case $CC_BASENAME in clang) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -ansi -Wall -pedantic " DEBUG_CPPFLAGS= # There is a bug somewhere in mfhdf/libsrc that is exposed by compiling # with any optimization in $CC in Lion, Mountain Lion and Mavericks systems. # Use -O0 for now. case "$host_os" in darwin11.* | darwin12.* | darwin13.*) # Lion & Mountain Lion & Mavericks xOFLAG="-O0" ;; *) # Other OSX versions xOFLAG="-O2" ;; esac PROD_CFLAGS=${PROD_CFLAGS:-"-ansi -Wall -pedantic $xOFLAG"} PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; icc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= # There is a bug somewhere in mfhdf/libsrc that is exposed by compiling # with any optimization in $CC in Lion, Mountain Lion and Mavericks systems. # Use -O0 for now. case "$host_os" in darwin11.* | darwin12.* | darwin13.*) # Lion & Mountain Lion & Mavericks xOFLAG="-O0" ;; *) # Other OSX versions xOFLAG="-O2" ;; esac PROD_CFLAGS=${PROD_CFLAGS:-"$xOFLAG"} PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -ansi -Wall -pedantic " DEBUG_CPPFLAGS= # There is a bug somewhere in mfhdf/libsrc that is exposed by compiling # with any optimization in $CC in Lion, Mountain Lion and Mavericks systems. # Use -O0 for now. case "$host_os" in darwin11.* | darwin12.* | darwin13.*) # Lion & Mountain Lion & Mavericks xOFLAG="-O0" ;; *) # Other OSX versions xOFLAG="-O2" ;; esac PROD_CFLAGS=${PROD_CFLAGS:-"-ansi -Wall -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Wconversion -Wmissing-prototypes -Wnested-externs -pedantic $xOFLAG"} PROD_CFLAGS=${PROD_CFLAGS:-"-ansi -Wall -pedantic $xOFLAG"} PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS=${PROD_CFLAGS:-"-O"} PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in gfortran) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac libhdf4-4.2.10/HDF_ALT/config/BlankForm0000644000000000000000000001230212421456623014147 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC="/some/default/compiler/named/foo -ansi" CC_BASENAME=foo fi if test "X-$F77" = "X-"; then F77="/some/default/compiler/named/foo -ansi" F77_BASENAME=foo fi if test "X-$CXX" = "X-"; then CXX="/some/default/compiler/named/foo -ansi" CXX_BASENAME=foo fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS -ansi" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; *) FFLAGS="$FFLAGS -ansi" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac case $CXX_BASENAME in g++) CXXFLAGS="$CXXFLAGS" DEBUG_CXXFLAGS="-g -fverbose-asm" PROD_CXXFLAGS="-O3 -fomit-frame-pointer" PROFILE_CXXFLAGS="-pg" ;; *) CXXFLAGS="$CXXFLAGS -ansi" DEBUG_CXXFLAGS="-g" PROD_CXXFLAGS="-O" PROFILE_CXXFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/linux-gnu0000644000000000000000000001664012421456623014233 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=gcc CC_BASENAME=gcc fi if test "X-$F77" = "X-"; then F77=gfortran F77_BASENAME=gfortran else case $F77 in # The PGI and Intel compilers are automatically detected below f95*|pgf90*) ;; *) # Figure out which compiler we are using: pgf90 or Absoft f95 RM='rm -f' tmpfile=/tmp/cmpver.$$ $F77 -V >$tmpfile if test -s "$tmpfile"; then if( grep -s 'Absoft' $tmpfile > /dev/null) then F77_BASENAME=f95 fi if( grep -s 'g95' $tmpfile > /dev/null) then F77_BASENAME=g95 fi if( grep -s 'pgf90' $tmpfile > /dev/null) then F77_BASENAME=pgf90 fi fi $RM $tmpfile ;; esac fi # compiler version strings case $CC in # whatever matches *pgcc* will also match *gcc*, so this one must come first *pgcc*) cc_version_info=`$CC $CFLAGS $H5_CFLAGS -V 2>&1 | grep 'pgcc'` ;; *gcc*) cc_version_info=`$CC $CFLAGS $H5_CFLAGS --version 2>&1 | grep -v 'PathScale' |\ grep 'GCC' | sed 's/\(.*(GCC) [-a-z0-9\. ]*\).*/\1/'` ;; *icc*) cc_version_info=`$CC $CCFLAGS $H5_CCFLAGS -V 2>&1 | grep 'Version' |\ sed 's/\(Intel.* Compiler\).*\( Version [a-z0-9\.]*\).*\( Build [0-9]*\)/\1\2\3/'` ;; *) echo "No match to get cc_version_info for $CC" ;; esac # get fortran version info case $F77 in *gfortran*) fc_version_info=`$F77 $FFLAGS --version 2>&1 |\ grep 'GCC' | sed 's/\(.*(GCC) [-a-z0-9\. ]*\).*/\1/'` ;; *ifc*|*ifort*) fc_version_info=`$F77 $FFLAGS -V 2>&1 | grep 'Version' |\ sed 's/\(Intel.* Compiler\).*\( Version [a-z0-9\.]*\).*\( Build [0-9]*\)/\1\2\3/'` ;; *f95*) # Figure out which compiler we are using: pgf90 or Absoft f95 RM='rm -f' tmpfile=/tmp/cmpver.$$ $F77 -V >$tmpfile if test -s "$tmpfile"; then if( grep -s 'Absoft' $tmpfile > /dev/null) then FC_BASENAME=f95 fi fi $RM $tmpfile fc_version_info=`$F77 -V | grep Absoft` ;; *g95*|*g77*) fc_version_info=`$F77 $FFLAGS --version 2>&1 |\ grep 'GCC'` ;; *pgf90*) fc_version_info=`$F77 $FFLAGS -V 2>&1 | grep 'pgf90'` ;; *) echo "No match to get fc_version_info for $F77" ;; esac # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and gfortran compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in gfortran) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; g77) FFLAGS="$FFLAGS " DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; f95) CFLAGS="$CFLAGS" FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; g95) CFLAGS="$CFLAGS" FFLAGS="$FFLAGS -i4" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/config/aix0000644000000000000000000001210712421456623013060 0ustar # -*- shell-script -*- # # This file is part of the HDF4 build script. It is processed shortly # after configure starts and defines, among other things, flags for # the various compilation modes. # Choosing C, Fortran, and C++ Compilers # -------------------------------------- # # The user should be able to specify the compiler by setting the CC, F77, # and CXX environment variables to the name of the compiler and any # switches it requires for proper operation. If CC is unset then this # script may set it. If CC is unset by time this script completes then # configure will try `gcc' and `cc' in that order (perhaps some others # too). # # Note: Code later in this file may depend on the value of $CC_BASENAME # in order to distinguish between different compilers when # deciding which compiler command-line switches to use. This # variable is set based on the incoming value of $CC and is only # used within this file. if test "X-$CC" = "X-"; then CC=xlc CC_BASENAME=xlc fi if test "X-$F77" = "X-"; then F77=xlf F77_BASENAME=xlf fi if test "X-$CXX" = "X-"; then CXX=xlC CXX_BASENAME=xlC fi # C, Fortran, and C++ Compiler and Preprocessor Flags # --------------------------------------------------- # # - Flags that end with `_CFLAGS' are always passed to the C compiler. # - Flags that end with `_FFLAGS' are always passed to the Fortran # compiler. # - Flags that end with `_CXXFLAGS' are always passed to the C++ compiler. # - Flags that end with `_CPPFLAGS' are passed to the C and C++ compilers # when compiling but not when linking. # # DEBUG_CFLAGS # DEBUG_FFLAGS # DEBUG_CXXFLAGS # DEBUG_CPPFLAGS - Flags to pass to the compiler to create a # library suitable for use with debugging # tools. Usually this list will exclude # optimization switches (like `-O') and include # switches that turn on symbolic debugging support # (like `-g'). # # PROD_CFLAGS # PROD_FFLAGS # PROD_CXXFLAGS # PROD_CPPFLAGS - Flags to pass to the compiler to create a # production version of the library. These # usualy exclude symbolic debugging switches (like # `-g') and include optimization switches (like # `-O'). # # PROFILE_CFLAGS # PROFILE_FFLAGS # PROFILE_CXXFLAGS # PROFILE_CPPFLAGS- Flags to pass to the compiler to create a # library suitable for performance testing (like # `-pg'). This may or may not include debugging or # production flags. # # FFLAGS # CFLAGS - Flags can be added to these variable which # might already be partially initialized. These # flags will always be passed to the compiler and # should include switches to turn on full warnings. # # WARNING: flags do not have to be added to the CFLAGS # or FFLAGS variable if the compiler is the GNU gcc # and g77 compiler. # # FFLAGS and CFLAGS should contain *something* or else # configure will probably add `-g'. For most systems # this isn't a problem but some systems will disable # optimizations in favor of the `-g'. The configure # script will remove the `-g' flag in production mode # only. # # These flags should be set according to the compiler being used. # There are two ways to check the compiler. You can try using `-v' or # `--version' to see if the compiler will print a version string. You # can use the value of $FOO_BASENAME which is the base name of the # first word in $FOO, where FOO is either CC, F77, or CXX (note that the # value of CC may have changed above). case $CC_BASENAME in gcc) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g -fverbose-asm" DEBUG_CPPFLAGS= PROD_CFLAGS="-O3 -fomit-frame-pointer" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; *) CFLAGS="$CFLAGS" DEBUG_CFLAGS="-g" DEBUG_CPPFLAGS= PROD_CFLAGS="-O" PROD_CPPFLAGS= PROFILE_CFLAGS="-pg" PROFILE_CPPFLAGS= ;; esac case $F77_BASENAME in g77) FFLAGS="$FFLAGS -Wsign-compare" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O3 -fomit-frame-pointer" PROFILE_FFLAGS="-pg" ;; *) FFLAGS="$FFLAGS" DEBUG_FFLAGS="-g" PROD_FFLAGS="-O" PROFILE_FFLAGS="-pg" ;; esac case $CXX_BASENAME in g++) CXXFLAGS="$CXXFLAGS" DEBUG_CXXFLAGS="-g -fverbose-asm" PROD_CXXFLAGS="-O3 -fomit-frame-pointer" PROFILE_CXXFLAGS="-pg" ;; *) CXXFLAGS="$CXXFLAGS -ansi" DEBUG_CXXFLAGS="-g" PROD_CXXFLAGS="-O" PROFILE_CXXFLAGS="-pg" ;; esac # Overriding Configure Tests # -------------------------- # # Values for overriding configuration tests when cross compiling. # Set this to `yes' or `no' depending on whether the target is big # endian or little endian. #ac_cv_c_bigendian=${ac_cv_c_bigendian='yes'} libhdf4-4.2.10/HDF_ALT/CMakeLists.txt0000644000000000000000000007116112421456623013654 0ustar cmake_minimum_required (VERSION 2.8.10) PROJECT (HDF4 C CXX) #----------------------------------------------------------------------------- # Instructions for use : Normal Build # # For standard build of HDF4 libraries,tests and tools. # Run cmake using the HDF4 source tree to generate a build tree. # Enable/Disable options according to requirements and # set CMAKE_INSTALL_PREFIX to the required install path. # Make install can be used to install all components for system-wide use. # #----------------------------------------------------------------------------- # Instructions for use : Sub-Project Build # # To include HDF4 as a sub-project within another project. # Set HDF4_EXTERNALLY_CONFIGURED to 1 in the parent project and # supply values for the following variables... # # HDF4_EXPORTED_TARGETS : # Set this to the name of the targets variable which controls exports # If unset (because parent project does not support/use the # INSTALL (EXPORT target...) syntax), then targets are not configured # for export during install. # # HDF4_LIB_DEPENDENCIES : # If the build of HDF4 libs is being customized, then rules for the # dependencies of the HDF4 libs may be 'incomplete', add additional # dependencies to this variable so that external projects pick them up # # HDF4_EXTERNAL_LIB_PREFIX : # If the parent project needs to install hdf libraries, but avoid # name conflicts with system versions, then a prefix may be added # to ensure that the correct versions configured are used. # # Consider this example, it builds its own zlib # library and tells HDF4 to add it as a dependency - this ensures that # any project making use of this build of HDF4 will use the correct zlib # # # Tell hdf4 that we are manually overriding certain settings # SET (HDF4_EXTERNALLY_CONFIGURED 1) # # Avoid duplicating names of installed libraries # SET (HDF4_EXTERNAL_LIB_PREFIX "prj") # # Targets linking to the HDF4 libs need to know their names # # if they are changed in the sub project, they should be here too # SET (HDF4_LIB_NAME "prjhdf4") # SET (HDF4_MF_LIB_NAME "prjhdf4_mf") # SET (HDF4_LIBRARY "${HDF4_LIB_NAME};${HDF4_MF_LIB_NAME}") # # Export configuration to this export variable # SET (HDF4_EXPORTED_TARGETS "project-targets") # # # Setup all necessary overrides for zlib so that HDF4 uses our # # internally compiled zlib rather than any other version # IF (HDF4_ENABLE_Z_LIB_SUPPORT) # # We must tell the main HDF4 library that it depends on our zlib # SET (HDF4_LIB_DEPENDENCIES prjzlib) # # Override the zlib header file # IF (PRJ_USE_SYSTEM_ZLIB) # SET (H4_ZLIB_HEADER "zlib.h") # ELSE (PRJ_USE_SYSTEM_ZLIB) # SET (H4_ZLIB_HEADER "prj_zlib.h") # # Set vars that FindZlib would have set if used in sub project # SET (ZLIB_INCLUDE_DIRS "${PRJ_ZLIB_INCLUDE_DIRS}") # SET (ZLIB_LIBRARIES prjzlib) # ENDIF (PRJ_USE_SYSTEM_ZLIB) # ENDIF (HDF4_ENABLE_Z_LIB_SUPPORT) # # # Add the sub project # ADD_SUBDIRECTORY (Utilities/hdf4.2.5) # # Add the HDF4 dirs to our include path # SET (HDF4_INCLUDE_DIR # ${PROJECT_SOURCE_DIR}/Utilities/hdf4.2.5/hdf/src # ${PROJECT_BINARY_DIR}/Utilities/hdf4.2.5 # ${PROJECT_SOURCE_DIR}/Utilities/hdf4.2.5/mfhdf/libsrc # ) # #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # Allow Visual Studio solution directories #----------------------------------------------------------------------------- # Provide a way for Visual Studio Express users to turn OFF the new FOLDER # organization feature. Default to ON for non-Express users. Express users must # explicitly turn off this option to build HDF5 in the Express IDE... # OPTION (HDF4_USE_FOLDERS "Enable folder grouping of projects in IDEs." ON) MARK_AS_ADVANCED (HDF4_USE_FOLDERS) IF (HDF4_USE_FOLDERS) SET_PROPERTY (GLOBAL PROPERTY USE_FOLDERS ON) ENDIF (HDF4_USE_FOLDERS) OPTION (HDF4_NO_PACKAGES "CPACK - Disable packaging" OFF) MARK_AS_ADVANCED (HDF4_NO_PACKAGES) #----------------------------------------------------------------------------- # Set the core names of all the libraries #----------------------------------------------------------------------------- SET (HDF4_LIB_CORENAME "hdf4") SET (HDF4_SRC_LIB_CORENAME "hdf") SET (HDF4_SRC_FCSTUB_LIB_CORENAME "hdf_fcstub") SET (HDF4_SRC_FORTRAN_LIB_CORENAME "hdf_fortran") SET (HDF4_MF_LIB_CORENAME "mfhdf") SET (HDF4_MF_XDR_LIB_CORENAME "xdr") SET (HDF4_HDF_TEST_LIB_CORENAME "hdf_test") SET (HDF4_HDF_TEST_FCSTUB_LIB_CORENAME "hdf_test_fcstub") SET (HDF4_MF_FCSTUB_LIB_CORENAME "mfhdf_fcstub") SET (HDF4_MF_FORTRAN_LIB_CORENAME "mfhdf_fortran") SET (HDF4_MF_TEST_LIB_CORENAME "mf_test") SET (HDF4_TOOLS_LIB_CORENAME "h4tools") #----------------------------------------------------------------------------- # Set the true names of all the libraries if customized by external project #----------------------------------------------------------------------------- SET (HDF4_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_LIB_CORENAME}") SET (HDF4_SRC_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_SRC_LIB_CORENAME}") SET (HDF4_SRC_FCSTUB_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_SRC_FCSTUB_LIB_CORENAME}") SET (HDF4_SRC_FORTRAN_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_SRC_FORTRAN_LIB_CORENAME}") SET (HDF4_MF_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_MF_LIB_CORENAME}") SET (HDF4_MF_XDR_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_MF_XDR_LIB_CORENAME}") SET (HDF4_HDF_TEST_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_HDF_TEST_LIB_CORENAME}") SET (HDF4_HDF_TEST_FCSTUB_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_HDF_TEST_FCSTUB_LIB_CORENAME}") SET (HDF4_MF_FCSTUB_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_MF_FCSTUB_LIB_CORENAME}") SET (HDF4_MF_FORTRAN_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_MF_FORTRAN_LIB_CORENAME}") SET (HDF4_MF_TEST_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_MF_TEST_LIB_CORENAME}") SET (HDF4_TOOLS_LIB_NAME "${HDF4_EXTERNAL_LIB_PREFIX}${HDF4_TOOLS_LIB_CORENAME}") #----------------------------------------------------------------------------- # Set the target names of all the libraries #----------------------------------------------------------------------------- SET (HDF4_LIB_TARGET ${HDF4_LIB_CORENAME}) SET (HDF4_SRC_LIB_TARGET ${HDF4_SRC_LIB_CORENAME}) SET (HDF4_SRC_FCSTUB_LIB_TARGET ${HDF4_SRC_FCSTUB_LIB_CORENAME}) SET (HDF4_SRC_FORTRAN_LIB_TARGET ${HDF4_SRC_FORTRAN_LIB_CORENAME}) SET (HDF4_MF_LIB_TARGET ${HDF4_MF_LIB_CORENAME}) SET (HDF4_MF_XDR_LIB_TARGET ${HDF4_MF_XDR_LIB_CORENAME}) SET (HDF4_HDF_TEST_LIB_TARGET ${HDF4_HDF_TEST_LIB_CORENAME}) SET (HDF4_HDF_TEST_FCSTUB_LIB_TARGET ${HDF4_HDF_TEST_FCSTUB_LIB_CORENAME}) SET (HDF4_MF_FCSTUB_LIB_TARGET ${HDF4_MF_FCSTUB_LIB_CORENAME}) SET (HDF4_MF_FORTRAN_LIB_TARGET ${HDF4_MF_FORTRAN_LIB_CORENAME}) SET (HDF4_MF_TEST_LIB_TARGET ${HDF4_MF_TEST_LIB_CORENAME}) SET (HDF4_TOOLS_LIB_TARGET ${HDF4_TOOLS_LIB_CORENAME}) #----------------------------------------------------------------------------- # Define some CMake variables for use later in the project #----------------------------------------------------------------------------- SET (HDF4_RESOURCES_DIR ${HDF4_SOURCE_DIR}/config/cmake) SET (HDF4_HDFSOURCE_DIR ${HDF4_SOURCE_DIR}/hdf/src) SET (HDF4_HDF_TESTSOURCE_DIR ${HDF4_SOURCE_DIR}/hdf/test) SET (HDF4_MFHDFSOURCE_DIR ${HDF4_SOURCE_DIR}/mfhdf/libsrc) SET (HDF4_MFHDF_TEST_DIR ${HDF4_SOURCE_DIR}/mfhdf/test) SET (HDF4_MFHDF_FORTRAN_DIR ${HDF4_SOURCE_DIR}/mfhdf/fortran) SET (HDF4_MFHDF_XDR_DIR ${HDF4_SOURCE_DIR}/mfhdf/xdr) IF (NOT HDF4_INSTALL_BIN_DIR) SET (HDF4_INSTALL_BIN_DIR bin) SET (HDF4_INSTALL_UTILS_BIN_DIR ${HDF4_INSTALL_BIN_DIR}) #${HDF4_INSTALL_BIN_DIR}/utils SET (HDF4_INSTALL_TOOLS_BIN_DIR ${HDF4_INSTALL_BIN_DIR}) #${HDF4_INSTALL_BIN_DIR}/tools ENDIF (NOT HDF4_INSTALL_BIN_DIR) IF (NOT HDF4_INSTALL_LIB_DIR) SET (HDF4_INSTALL_LIB_DIR lib) ENDIF (NOT HDF4_INSTALL_LIB_DIR) IF (NOT HDF4_INSTALL_INCLUDE_DIR) SET (HDF4_INSTALL_INCLUDE_DIR include) ENDIF (NOT HDF4_INSTALL_INCLUDE_DIR) IF (NOT HDF4_INSTALL_DATA_DIR) IF (NOT WIN32) SET (HDF4_INSTALL_DATA_DIR share) SET (HDF4_INSTALL_CMAKE_DIR share/cmake) ELSE (NOT WIN32) SET (HDF4_INSTALL_DATA_DIR ".") SET (HDF4_INSTALL_CMAKE_DIR cmake) ENDIF (NOT WIN32) ENDIF (NOT HDF4_INSTALL_DATA_DIR) #----------------------------------------------------------------------------- # parse the full version number from hfile.h and include in H4_VERS_INFO #----------------------------------------------------------------------------- FILE (READ ${HDF4_HDFSOURCE_DIR}/hfile.h _hfile_h_contents) STRING (REGEX REPLACE ".*#define[ \t]+LIBVER_MAJOR[ \t]+([0-9]*).*$" "\\1" H4_VERS_MAJOR ${_hfile_h_contents}) STRING (REGEX REPLACE ".*#define[ \t]+LIBVER_MINOR[ \t]+([0-9]*).*$" "\\1" H4_VERS_MINOR ${_hfile_h_contents}) STRING (REGEX REPLACE ".*#define[ \t]+LIBVER_RELEASE[ \t]+([0-9]*).*$" "\\1" H4_VERS_RELEASE ${_hfile_h_contents}) STRING (REGEX REPLACE ".*#define[ \t]+LIBVER_SUBRELEASE[ \t]+\"([0-9A-Za-z.]*)\".*$" "\\1" H4_VERS_SUBRELEASE ${_hfile_h_contents}) #MESSAGE (STATUS "VERSION: ${H4_VERS_MAJOR}.${H4_VERS_MINOR}.${H4_VERS_RELEASE}-${H4_VERS_SUBRELEASE}") #----------------------------------------------------------------------------- # Basic HDF4 stuff here #----------------------------------------------------------------------------- SET (HDF4_PACKAGE "hdf4") SET (HDF4_PACKAGE_NAME "HDF") SET (HDF4_PACKAGE_VERSION "${H4_VERS_MAJOR}.${H4_VERS_MINOR}.${H4_VERS_RELEASE}") SET (HDF4_PACKAGE_VERSION_MAJOR "${H4_VERS_MAJOR}.${H4_VERS_MINOR}") SET (HDF4_PACKAGE_VERSION_MINOR "${H4_VERS_RELEASE}") SET (HDF4_PACKAGE_VERSION_STRING "${HDF4_PACKAGE_VERSION}-${H4_VERS_SUBRELEASE}") SET (HDF4_PACKAGE_STRING "${HDF4_PACKAGE_NAME} ${HDF4_PACKAGE_VERSION_STRING}") SET (HDF5_PACKAGE_TARNAME "${HDF4_PACKAGE}${HDF_PACKAGE_EXT}") SET (HDF4_PACKAGE_URL "http://www.hdfgroup.org") SET (HDF4_PACKAGE_BUGREPORT "help@hdfgroup.org") #----------------------------------------------------------------------------- # Include some macros for reusable code #----------------------------------------------------------------------------- INCLUDE (${HDF4_RESOURCES_DIR}/HDFMacros.cmake) INCLUDE (${HDF4_RESOURCES_DIR}/HDFLibMacros.cmake) INCLUDE (${HDF4_RESOURCES_DIR}/HDF4Macros.cmake) #----------------------------------------------------------------------------- # Setup output Directories #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) SET (CMAKE_RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin CACHE PATH "Single Directory for all Executables." ) SET (CMAKE_LIBRARY_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin CACHE PATH "Single Directory for all Libraries" ) SET (CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin CACHE PATH "Single Directory for all static libraries." ) SET (CMAKE_Fortran_MODULE_DIRECTORY ${PROJECT_BINARY_DIR}/bin/fortran CACHE PATH "Single Directory for all fortran modules." ) ELSE (NOT HDF4_EXTERNALLY_CONFIGURED) # if we are externally configured, but the project uses old cmake scripts # this may not be set and utilities like Hdetect will fail IF (NOT CMAKE_RUNTIME_OUTPUT_DIRECTORY) SET (CMAKE_RUNTIME_OUTPUT_DIRECTORY ${EXECUTABLE_OUTPUT_PATH}) ENDIF (NOT CMAKE_RUNTIME_OUTPUT_DIRECTORY) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Targets built within this project are exported at Install time for use # by other projects using FindHDF4. #----------------------------------------------------------------------------- IF (NOT HDF4_EXPORTED_TARGETS) SET (HDF4_EXPORTED_TARGETS "hdf4-targets") ENDIF (NOT HDF4_EXPORTED_TARGETS) #----------------------------------------------------------------------------- # To include a library in the list exported by the project AT BUILD TIME, # add it to this variable. This is NOT used by Make Install, but for projects # which include hdf4 as a sub-project within their build tree #----------------------------------------------------------------------------- SET_GLOBAL_VARIABLE (HDF4_LIBRARIES_TO_EXPORT "") SET (EXTERNAL_HEADER_LIST "") SET (EXTERNAL_LIBRARY_LIST "") SET (EXTERNAL_LIBRARYDLL_LIST "") #----------------------------------------------------------------------------- # Run all the CMake configuration tests for our build environment #----------------------------------------------------------------------------- INCLUDE (${HDF4_RESOURCES_DIR}/ConfigureChecks.cmake) #----------------------------------------------------------------------------- # Option to Build Shared/Static libs, default is static #----------------------------------------------------------------------------- OPTION (BUILD_SHARED_LIBS "Build Shared Libraries" OFF) SET (LIB_TYPE STATIC) SET (H4_ENABLE_SHARED_LIB NO) SET (H4_ENABLE_STATIC_LIB NO) IF (BUILD_SHARED_LIBS) SET (LIB_TYPE SHARED) SET (H4_BUILT_AS_DYNAMIC_LIB 1) SET (H4_ENABLE_SHARED_LIB YES) ELSE (BUILD_SHARED_LIBS) SET (H4_BUILT_AS_STATIC_LIB 1) SET (H4_ENABLE_STATIC_LIB YES) IF (NOT WIN32) # should this be a user setting : Everyone uses it anyway ? ADD_DEFINITIONS (-DPIC) IF (${CMAKE_SYSTEM_NAME} MATCHES "SunOS") ADD_DEFINITIONS (-KPIC) ENDIF (${CMAKE_SYSTEM_NAME} MATCHES "SunOS") ENDIF (NOT WIN32) ENDIF (BUILD_SHARED_LIBS) ADD_DEFINITIONS (-DBIG_LONGS -DSWAP) ADD_DEFINITIONS (-DHAVE_CONFIG_H) #----------------------------------------------------------------------------- # Temporary disable optimization flag #----------------------------------------------------------------------------- IF(${CMAKE_SYSTEM_NAME} MATCHES "Darwin" OR CYGWIN) FOREACH (flag_var CMAKE_C_FLAGS CMAKE_C_FLAGS_DEBUG CMAKE_C_FLAGS_RELEASE CMAKE_C_FLAGS_MINSIZEREL CMAKE_C_FLAGS_RELWITHDEBINFO CMAKE_CXX_FLAGS CMAKE_CXX_FLAGS_DEBUG CMAKE_CXX_FLAGS_RELEASE CMAKE_CXX_FLAGS_MINSIZEREL CMAKE_CXX_FLAGS_RELWITHDEBINFO) IF (${flag_var} MATCHES "O3") STRING (REGEX REPLACE "O3" "O0" ${flag_var} "${${flag_var}}") ENDIF (${flag_var} MATCHES "O3") ENDFOREACH (flag_var) ENDIF (${CMAKE_SYSTEM_NAME} MATCHES "Darwin" OR CYGWIN) #----------------------------------------------------------------------------- # Option to use code coverage #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_COVERAGE "Enable code coverage for Libraries and Programs" OFF) IF (HDF4_ENABLE_COVERAGE) SET (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -g -O0 -fprofile-arcs -ftest-coverage") SET (CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -g -O0 -fprofile-arcs -ftest-coverage") SET (LDFLAGS "${LDFLAGS} -fprofile-arcs -ftest-coverage") ENDIF (HDF4_ENABLE_COVERAGE) #----------------------------------------------------------------------------- # Option to use deprecated public API symbols #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_DEPRECATED_SYMBOLS "Enable deprecated public API symbols" ON) IF (HDF4_ENABLE_DEPRECATED_SYMBOLS) SET (H4_NO_DEPRECATED_SYMBOLS 0) ELSE (HDF4_ENABLE_DEPRECATED_SYMBOLS) SET (H4_NO_DEPRECATED_SYMBOLS 1) ENDIF (HDF4_ENABLE_DEPRECATED_SYMBOLS) #----------------------------------------------------------------------------- # Include the main src and config directories #----------------------------------------------------------------------------- SET (HDF4_INCLUDE_DIRECTORIES ${HDF4_HDFSOURCE_DIR} ${HDF4_MFHDFSOURCE_DIR} ${HDF4_SOURCE_DIR} ${HDF4_BINARY_DIR} ${CMAKE_RUNTIME_OUTPUT_DIRECTORY} ) INCLUDE_DIRECTORIES (${HDF4_INCLUDE_DIRECTORIES} ) #----------------------------------------------------------------------------- # When building utility executables that generate other (source) files : # we make use of the following variables defined in the root CMakeLists. # Certain systems may add /Debug or /Release to output paths # and we need to call the executable from inside the CMake configuration #----------------------------------------------------------------------------- SET (EXE_EXT "") IF (WIN32) SET (EXE_EXT ".exe") IF (NOT CYGWIN) ADD_DEFINITIONS (-D_BIND_TO_CURRENT_VCLIBS_VERSION=1) ADD_DEFINITIONS (-D_CRT_SECURE_NO_WARNINGS) ADD_DEFINITIONS (-D_CONSOLE) ENDIF (NOT CYGWIN) ENDIF (WIN32) IF (MSVC) SET (CMAKE_MFC_FLAG 0) SET (WIN_COMPILE_FLAGS "") SET (WIN_LINK_FLAGS "") ENDIF (MSVC) SET (MAKE_SYSTEM) IF (CMAKE_BUILD_TOOL MATCHES "make") SET (MAKE_SYSTEM 1) ENDIF (CMAKE_BUILD_TOOL MATCHES "make") SET (CFG_INIT "/${CMAKE_CFG_INTDIR}") IF (MAKE_SYSTEM) SET (CFG_INIT "") ENDIF (MAKE_SYSTEM) #----------------------------------------------------------------------------- # Add some definitions for Debug Builds #----------------------------------------------------------------------------- IF (CMAKE_BUILD_TYPE MATCHES Debug) #-- NMake Makefiles will overwhelm the console with warnings if -Wall is used. IF (NOT WIN32) ADD_DEFINITIONS (-Wall) ENDIF (NOT WIN32) ENDIF (CMAKE_BUILD_TYPE MATCHES Debug) #----------------------------------------------------------------------------- # Compiler specific flags : Shouldn't there be compiler tests for these #----------------------------------------------------------------------------- IF (CMAKE_COMPILER_IS_GNUCC) IF (CMAKE_BUILD_TYPE MATCHES Debug) SET (CMAKE_C_FLAGS "${CMAKE_ANSI_CFLAGS} ${CMAKE_C_FLAGS} -std=c99 -finline-functions -fno-common") ELSE (CMAKE_BUILD_TYPE MATCHES Debug) SET (CMAKE_C_FLAGS "${CMAKE_ANSI_CFLAGS} ${CMAKE_C_FLAGS} -std=c99 -fomit-frame-pointer -finline-functions -fno-common") ENDIF (CMAKE_BUILD_TYPE MATCHES Debug) ENDIF (CMAKE_COMPILER_IS_GNUCC) IF (CMAKE_COMPILER_IS_GNUCXX) IF (CMAKE_BUILD_TYPE MATCHES Debug) SET (CMAKE_CXX_FLAGS "${CMAKE_ANSI_CFLAGS} ${CMAKE_CXX_FLAGS} -finline-functions -fno-common") ELSE (CMAKE_BUILD_TYPE MATCHES Debug) SET (CMAKE_CXX_FLAGS "${CMAKE_ANSI_CFLAGS} ${CMAKE_CXX_FLAGS} -fomit-frame-pointer -finline-functions -fno-common") ENDIF (CMAKE_BUILD_TYPE MATCHES Debug) ENDIF (CMAKE_COMPILER_IS_GNUCXX) #----------------------------------------------------------------------------- # Option to allow the user to disable compiler warnings #----------------------------------------------------------------------------- OPTION (HDF4_DISABLE_COMPILER_WARNINGS "Disable compiler warnings" OFF) IF (HDF4_DISABLE_COMPILER_WARNINGS) # MSVC uses /w to suppress warnings. It also complains if another # warning level is given, so remove it. IF (MSVC) SET (HDF4_WARNINGS_BLOCKED 1) STRING (REGEX REPLACE "(^| )([/-])W[0-9]( |$)" " " CMAKE_C_FLAGS "${CMAKE_C_FLAGS}") SET (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} /w") STRING (REGEX REPLACE "(^| )([/-])W[0-9]( |$)" " " CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS}") SET (CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} /w") ENDIF (MSVC) IF (WIN32 AND NOT CYGWIN) ADD_DEFINITIONS (-D_CRT_SECURE_NO_WARNINGS) ENDIF (WIN32 AND NOT CYGWIN) # Borland uses -w- to suppress warnings. IF (BORLAND) SET (HDF4_WARNINGS_BLOCKED 1) SET (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -w-") ENDIF (BORLAND) # Most compilers use -w to suppress warnings. IF (NOT HDF4_WARNINGS_BLOCKED) SET (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -w") SET (CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -w") ENDIF (NOT HDF4_WARNINGS_BLOCKED) ENDIF (HDF4_DISABLE_COMPILER_WARNINGS) #----------------------------------------------------------------------------- # This is in here to help some of the GCC based IDES like Eclipse # and code blocks parse the compiler errors and warnings better. #----------------------------------------------------------------------------- IF (CMAKE_COMPILER_IS_GNUCC) SET (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -fmessage-length=0") ENDIF (CMAKE_COMPILER_IS_GNUCC) IF (CMAKE_COMPILER_IS_GNUCXX) SET (CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -fmessage-length=0") ENDIF (CMAKE_COMPILER_IS_GNUCXX) #----------------------------------------------------------------------------- # Option to Enable MPI Parallel #----------------------------------------------------------------------------- SET (CMAKE_MODULE_PATH ${HDF4_RESOURCES_DIR} ${CMAKE_MODULE_PATH}) OPTION (HDF4_ENABLE_PARALLEL "Enable parallel build (requires MPI)" OFF) IF (HDF4_ENABLE_PARALLEL) INCLUDE (FindMPI) INCLUDE_DIRECTORIES (${MPI_C_INCLUDE_PATH}) IF (MPI_C_FOUND) SET (H4_HAVE_PARALLEL 1) # MPI checks, only do these if MPI_C_FOUND is true, otherwise they always fail # and once set, they are cached as false and not regenerated SET (CMAKE_REQUIRED_LIBRARIES "${MPI_C_LIBRARIES}" ) CHECK_FUNCTION_EXISTS (MPI_File_get_size H4_HAVE_MPI_GET_SIZE) # Used by Fortran + MPI CHECK_SYMBOL_EXISTS (MPI_Comm_c2f "${MPI_C_INCLUDE_PATH}/mpi.h" H4_HAVE_MPI_MULTI_LANG_Comm) CHECK_SYMBOL_EXISTS (MPI_Info_c2f "${MPI_C_INCLUDE_PATH}/mpi.h" H4_HAVE_MPI_MULTI_LANG_Info) ELSE (MPI_C_FOUND) MESSAGE (STATUS "Parallel libraries not found") ENDIF (MPI_C_FOUND) ENDIF (HDF4_ENABLE_PARALLEL) # Parallel IO usage requires MPI to be Linked and Included IF (H4_HAVE_PARALLEL) SET (LINK_LIBS ${LINK_LIBS} ${MPI_C_LIBRARIES}) IF (MPI_C_LINK_FLAGS) SET (CMAKE_EXE_LINKER_FLAGS ${MPI_C_LINK_FLAGS} ${CMAKE_EXE_LINKER_FLAGS}) ENDIF (MPI_C_LINK_FLAGS) ENDIF (H4_HAVE_PARALLEL) #----------------------------------------------------------------------------- # Include user macros #----------------------------------------------------------------------------- INCLUDE (UserMacros.cmake) INCLUDE (CMakeFilters.cmake) #----------------------------------------------------------------------------- # Option for external libraries on windows #----------------------------------------------------------------------------- OPTION (HDF4_PACKAGE_EXTLIBS "CPACK - include external libraries" OFF) IF (NOT HDF4_EXTERNALLY_CONFIGURED) IF (HDF4_PACKAGE_EXTLIBS) SET (HDF4_NO_PACKAGES OFF CACHE BOOL "CPACK - Disable packaging" FORCE) IF (HDF4_ENABLE_JPEG_LIB_SUPPORT AND JPEG_FOUND) PACKAGE_JPEG_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT}) ENDIF (HDF4_ENABLE_JPEG_LIB_SUPPORT AND JPEG_FOUND) IF (HDF4_ENABLE_Z_LIB_SUPPORT AND ZLIB_FOUND) PACKAGE_ZLIB_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT}) ENDIF (HDF4_ENABLE_Z_LIB_SUPPORT AND ZLIB_FOUND) IF (HDF4_ENABLE_SZIP_SUPPORT AND SZIP_FOUND) PACKAGE_SZIP_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT}) ENDIF (HDF4_ENABLE_SZIP_SUPPORT AND SZIP_FOUND) ENDIF (HDF4_PACKAGE_EXTLIBS) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Option to build HDF4 xdr Library #----------------------------------------------------------------------------- OPTION (HDF4_BUILD_XDR_LIB "Build HDF4 XDR Library" OFF) IF (WIN32 AND NOT CYGWIN) SET (HDF4_BUILD_XDR_LIB ON CACHE BOOL "Build HDF4 XDR Library" FORCE) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF4_BUILD_XDR_LIB) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/xdr ${PROJECT_BINARY_DIR}/xdr) ENDIF (HDF4_BUILD_XDR_LIB) #----------------------------------------------------------------------------- # Add the HDF4 Library Target to the build #----------------------------------------------------------------------------- ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf/src ${PROJECT_BINARY_DIR}/hdf/src ) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/libsrc ${PROJECT_BINARY_DIR}/mfhdf/libsrc) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") IF (JPEG_FOUND AND JPEG_USE_EXTERNAL) ADD_DEPENDENCIES (${HDF4_SRC_LIB_TARGET} JPEG) ENDIF (JPEG_FOUND AND JPEG_USE_EXTERNAL) IF (ZLIB_FOUND AND ZLIB_USE_EXTERNAL) ADD_DEPENDENCIES (${HDF4_SRC_LIB_TARGET} ZLIB) ENDIF (ZLIB_FOUND AND ZLIB_USE_EXTERNAL) IF (SZIP_FOUND AND SZIP_USE_EXTERNAL) ADD_DEPENDENCIES (${HDF4_SRC_LIB_TARGET} SZIP) ENDIF (SZIP_FOUND AND SZIP_USE_EXTERNAL) ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") IF (HDF4_BUILD_XDR_LIB) ADD_DEPENDENCIES (${HDF4_MF_LIB_TARGET} ${HDF4_MF_XDR_LIB_TARGET}) ENDIF (HDF4_BUILD_XDR_LIB) #----------------------------------------------------------------------------- # Dashboard and Testing Settings #----------------------------------------------------------------------------- OPTION (BUILD_TESTING "Build HDF4 Unit Testing" OFF) IF (BUILD_TESTING) SET (DART_TESTING_TIMEOUT 1200 CACHE INTEGER "Timeout in seconds for each test (default 1200=20minutes)" ) ENABLE_TESTING () INCLUDE (CTest) IF (NOT HDF4_EXTERNALLY_CONFIGURED) IF (EXISTS "${HDF4_SOURCE_DIR}/hdf/test" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/hdf/test") ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf/test ${PROJECT_BINARY_DIR}/hdf/test) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/hdf/test" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/hdf/test") IF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/test" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/test") ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/test ${PROJECT_BINARY_DIR}/mfhdf/test) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/test" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/test") ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) INCLUDE (${HDF4_SOURCE_DIR}/CTestConfig.cmake) CONFIGURE_FILE (${HDF4_RESOURCES_DIR}/CTestCustom.cmake ${HDF4_BINARY_DIR}/CTestCustom.ctest @ONLY) ENDIF (BUILD_TESTING) #----------------------------------------------------------------------------- # Option to build Fortran bindings/tests/examples # Make sure this appears before the CONFIGURE_FILE step # so that fortran name mangling is detected before writing H4config.h #----------------------------------------------------------------------------- # Set default name mangling : overridden by Fortran detection in fortran dir SET (H4_F77_FUNC "H4_F77_FUNC(name,NAME) name ## _") SET (H4_F77_FUNC_ "H4_F77_FUNC_(name,NAME) name ## __") IF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/fortran" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/fortran") OPTION (HDF4_BUILD_FORTRAN "Build FORTRAN support" ON) IF (HDF4_BUILD_FORTRAN) IF (WIN32 AND NOT CYGWIN) SET (H4_F77_FUNC "H4_F77_FUNC(name,NAME) NAME") SET (H4_F77_FUNC_ "H4_F77_FUNC_(name,NAME) NAME") ENDIF (WIN32 AND NOT CYGWIN) INCLUDE (${HDF4_RESOURCES_DIR}/HDF4UseFortran.cmake) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/fortran ${PROJECT_BINARY_DIR}/mfhdf/fortran) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf/fortran ${PROJECT_BINARY_DIR}/hdf/fortran) ENDIF (HDF4_BUILD_FORTRAN) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/fortran" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/fortran") IF (MSVC) SET (H4_HDSETVBUF "HDsetvbuf(F,S,M,Z) (((Z)>1)?setvbuf(F,S,M,Z):setvbuf(F,S,M,2))") ELSE (MSVC) SET (H4_HDSETVBUF "NOP") ENDIF (MSVC) #----------------------------------------------------------------------------- # Library utilities #----------------------------------------------------------------------------- ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf ${PROJECT_BINARY_DIR}/hdf) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf ${PROJECT_BINARY_DIR}/mfhdf) #----------------------------------------------------------------------------- # Option to build HDF4 Examples #----------------------------------------------------------------------------- IF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/examples") OPTION (HDF4_BUILD_EXAMPLES "Build HDF4 Examples" OFF) IF (HDF4_BUILD_EXAMPLES) IF (HDF4_BUILD_FORTRAN) IF (EXISTS "${HDF4_SOURCE_DIR}/hdf/fortran/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/hdf/fortran/examples") ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf/fortran/examples ${PROJECT_BINARY_DIR}/hdf/fortran/examples) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/hdf/fortran/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/hdf/fortran/examples") IF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/fortran/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/fortran/examples") ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/fortran/examples ${PROJECT_BINARY_DIR}/mfhdf/fortran/examples) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/fortran/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/fortran/examples") ENDIF (HDF4_BUILD_FORTRAN) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/hdf/examples ${PROJECT_BINARY_DIR}/hdf/examples) ADD_SUBDIRECTORY (${HDF4_SOURCE_DIR}/mfhdf/examples ${PROJECT_BINARY_DIR}/mfhdf/examples) ENDIF (HDF4_BUILD_EXAMPLES) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/mfhdf/examples" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/mfhdf/examples") #----------------------------------------------------------------------------- # Generate the H4config.h file containing user settings needed by compilation #----------------------------------------------------------------------------- CONFIGURE_FILE (${HDF4_RESOURCES_DIR}/h4config.h.in ${PROJECT_BINARY_DIR}/h4config.h @ONLY) INCLUDE (CMakeInstallation.cmake) libhdf4-4.2.10/HDF_ALT/CMakeInstallation.cmake0000644000000000000000000003546712421456623015471 0ustar #----------------------------------------------------------------------------- # Add file(s) to CMake Install #----------------------------------------------------------------------------- IF (NOT HDF4_INSTALL_NO_DEVELOPMENT) INSTALL ( FILES ${PROJECT_BINARY_DIR}/h4config.h DESTINATION ${HDF4_INSTALL_INCLUDE_DIR} COMPONENT headers ) ENDIF (NOT HDF4_INSTALL_NO_DEVELOPMENT) #----------------------------------------------------------------------------- # Add Target(s) to CMake Install for import into other projects #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) INSTALL ( EXPORT ${HDF4_EXPORTED_TARGETS} DESTINATION ${HDF4_INSTALL_CMAKE_DIR}/${HDF4_PACKAGE} FILE ${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-targets.cmake COMPONENT configinstall ) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Export all exported targets to the build tree for use by parent project #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) EXPORT ( TARGETS ${HDF4_LIBRARIES_TO_EXPORT} ${HDF4_LIB_DEPENDENCIES} FILE ${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-targets.cmake ) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Configure the hdf4-config.cmake file for the build directory #----------------------------------------------------------------------------- SET (HDF4_INCLUDES_BUILD_TIME ${HDF4_HDF_SOURCE_DIR} ${HDF4_MFHDF_SOURCE_DIR} ${HDF4_MFHDF_XDR_DIR} ${HDF4_BINARY_DIR} ) SET (HDF4_VERSION_STRING @HDF4_PACKAGE_VERSION@) SET (HDF4_VERSION_MAJOR @HDF4_PACKAGE_VERSION_MAJOR@) SET (HDF4_VERSION_MINOR @HDF4_PACKAGE_VERSION_MINOR@) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/hdf4-config.cmake.build.in ${HDF4_BINARY_DIR}/${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-config.cmake @ONLY ) #----------------------------------------------------------------------------- # Configure the FindHDF4.cmake file for the install directory #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/FindHDF4.cmake.in ${HDF4_BINARY_DIR}/CMakeFiles/FindHDF4${HDF_PACKAGE_EXT}.cmake @ONLY ) INSTALL ( FILES ${HDF4_BINARY_DIR}/CMakeFiles/FindHDF4${HDF_PACKAGE_EXT}.cmake DESTINATION ${HDF4_INSTALL_CMAKE_DIR}/${HDF4_PACKAGE} COMPONENT configinstall ) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Configure the HDF4-config.cmake file for the install directory #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/hdf4-config.cmake.install.in ${HDF4_BINARY_DIR}/CMakeFiles/${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-config.cmake @ONLY ) INSTALL ( FILES ${HDF4_BINARY_DIR}/CMakeFiles/${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-config.cmake DESTINATION ${HDF4_INSTALL_CMAKE_DIR}/${HDF4_PACKAGE} COMPONENT configinstall ) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Configure the hdf4-config-version .cmake file for the install directory #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/hdf4-config-version.cmake.in ${HDF4_BINARY_DIR}/CMakeFiles/${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-config-version.cmake @ONLY ) INSTALL ( FILES ${HDF4_BINARY_DIR}/CMakeFiles/${HDF4_PACKAGE}${HDF_PACKAGE_EXT}-config-version.cmake DESTINATION ${HDF4_INSTALL_CMAKE_DIR}/${HDF4_PACKAGE} COMPONENT configinstall ) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Configure the libhdf4.settings file for the lib info #----------------------------------------------------------------------------- IF (H4_WORDS_BIGENDIAN) SET (BYTESEX big-endian) ELSE (H4_WORDS_BIGENDIAN) SET (BYTESEX little-endian) ENDIF (H4_WORDS_BIGENDIAN) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/libhdf4.settings.cmake.in ${HDF4_BINARY_DIR}/libhdf4.settings @ONLY ) INSTALL ( FILES ${HDF4_BINARY_DIR}/libhdf4.settings DESTINATION ${HDF4_INSTALL_CMAKE_DIR}/${HDF4_PACKAGE} COMPONENT libraries ) #----------------------------------------------------------------------------- # Configure the HDF4_Examples.cmake file and the examples #----------------------------------------------------------------------------- OPTION (HDF4_PACK_EXAMPLES "Package the HDF4 Library Examples Compressed File" OFF) IF (HDF4_PACK_EXAMPLES) CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/HDF4_Examples.cmake.in ${HDF4_BINARY_DIR}/HDF4_Examples.cmake @ONLY ) INSTALL ( FILES ${HDF4_BINARY_DIR}/HDF4_Examples.cmake DESTINATION ${HDF4_INSTALL_DATA_DIR} COMPONENT hdfdocuments ) IF (EXISTS "${HDF4_EXAMPLES_COMPRESSED_DIR}/${HDF4_EXAMPLES_COMPRESSED}") INSTALL ( FILES ${HDF4_EXAMPLES_COMPRESSED_DIR}/${HDF4_EXAMPLES_COMPRESSED} ${HDF4_SOURCE_DIR}/release_notes/USING_CMake_Examples.txt DESTINATION ${HDF4_INSTALL_DATA_DIR} COMPONENT hdfdocuments ) ENDIF (EXISTS "${HDF4_EXAMPLES_COMPRESSED_DIR}/${HDF4_EXAMPLES_COMPRESSED}") ENDIF (HDF4_PACK_EXAMPLES) #----------------------------------------------------------------------------- # Add Document File(s) to CMake Install #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED) INSTALL ( FILES ${HDF4_SOURCE_DIR}/COPYING DESTINATION ${HDF4_INSTALL_DATA_DIR} COMPONENT hdfdocuments ) IF (EXISTS "${HDF4_SOURCE_DIR}/release_notes" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/release_notes") SET (release_files ${HDF4_SOURCE_DIR}/release_notes/USING_HDF4_CMake.txt ${HDF4_SOURCE_DIR}/release_notes/RELEASE.txt ) IF (WIN32 AND NOT CYGWIN) SET (release_files ${release_files} ${HDF4_SOURCE_DIR}/release_notes/USING_HDF4_VS.txt ) ENDIF (WIN32 AND NOT CYGWIN) IF (HDF5_PACK_INSTALL_DOCS) SET (release_files ${release_files} ${HDF4_SOURCE_DIR}/release_notes/INSTALL_CMake.txt ${HDF4_SOURCE_DIR}/release_notes/HISTORY.txt ${HDF4_SOURCE_DIR}/release_notes/INSTALL ) IF (WIN32) IF (NOT CYGWIN) SET (release_files ${release_files} ${HDF5_SOURCE_DIR}/release_notes/INSTALL_Windows.txt ) ELSE (NOT CYGWIN) SET (release_files ${release_files} ${HDF5_SOURCE_DIR}/release_notes/INSTALL_Cygwin.txt ) ENDIF (NOT CYGWIN) ENDIF (WIN32) ENDIF (HDF5_PACK_INSTALL_DOCS) INSTALL ( FILES ${release_files} DESTINATION ${HDF4_INSTALL_DATA_DIR} COMPONENT hdfdocuments ) ENDIF (EXISTS "${HDF4_SOURCE_DIR}/release_notes" AND IS_DIRECTORY "${HDF4_SOURCE_DIR}/release_notes") ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED) #----------------------------------------------------------------------------- # Set the cpack variables #----------------------------------------------------------------------------- IF (NOT HDF4_EXTERNALLY_CONFIGURED AND NOT HDF4_NO_PACKAGES) SET (CPACK_PACKAGE_VENDOR "HDF_Group") SET (CPACK_PACKAGE_NAME "${HDF4_PACKAGE_NAME}") SET (CPACK_PACKAGE_VERSION "${HDF4_PACKAGE_VERSION}") SET (CPACK_PACKAGE_VERSION_MAJOR "${HDF4_PACKAGE_VERSION_MAJOR}") SET (CPACK_PACKAGE_VERSION_MINOR "${HDF4_PACKAGE_VERSION_MINOR}") SET (CPACK_PACKAGE_VERSION_PATCH "") SET (CPACK_PACKAGE_INSTALL_DIRECTORY "${CPACK_PACKAGE_VENDOR}/${CPACK_PACKAGE_NAME}/${CPACK_PACKAGE_VERSION}") SET (CPACK_PACKAGE_DESCRIPTION_FILE "${CMAKE_CURRENT_SOURCE_DIR}/release_notes/RELEASE.txt") SET (CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/COPYING") SET (CPACK_RESOURCE_FILE_README "${CMAKE_CURRENT_SOURCE_DIR}/release_notes/RELEASE.txt") SET (CPACK_PACKAGE_RELOCATABLE TRUE) SET (CPACK_GENERATOR "TGZ") IF (WIN32) LIST (APPEND CPACK_GENERATOR "NSIS") # Installers for 32- vs. 64-bit CMake: # - Root install directory (displayed to end user at installer-run time) # - "NSIS package/display name" (text used in the installer GUI) # - Registry key used to store info about the installation IF (CMAKE_CL_64) SET (CPACK_NSIS_INSTALL_ROOT "$PROGRAMFILES64") SET (CPACK_NSIS_PACKAGE_NAME "${HDF4_PACKAGE_STRING} (Win64)") SET (CPACK_PACKAGE_INSTALL_REGISTRY_KEY "${HDF4_PACKAGE_STRING}-${LIB_TYPE} (Win64)") ELSE (CMAKE_CL_64) SET (CPACK_NSIS_INSTALL_ROOT "$PROGRAMFILES") SET (CPACK_NSIS_PACKAGE_NAME "${HDF4_PACKAGE_STRING}") SET (CPACK_PACKAGE_INSTALL_REGISTRY_KEY "${HDF4_PACKAGE_STRING}-${LIB_TYPE}") ENDIF (CMAKE_CL_64) SET (CPACK_PACKAGE_INSTALL_DIRECTORY "${CPACK_PACKAGE_VENDOR}\\\\${CPACK_PACKAGE_NAME}\\\\${CPACK_PACKAGE_VERSION}") SET (CPACK_PACKAGE_INSTALL_REGISTRY_KEY "${CPACK_PACKAGE_NAME}-${CPACK_PACKAGE_VERSION}-${LIB_TYPE}") SET (CPACK_MONOLITHIC_INSTALL ON) SET (CPACK_NSIS_CONTACT "${HDF4_PACKAGE_BUGREPORT}") SET (CPACK_NSIS_MODIFY_PATH ON) ELSEIF (APPLE) LIST (APPEND CPACK_GENERATOR "DragNDrop") SET (CPACK_COMPONENTS_ALL_IN_ONE_PACKAGE ON) SET (CPACK_PACKAGE_DEFAULT_LOCATION "/opt/${CPACK_PACKAGE_NAME}") SET (CPACK_PACKAGING_INSTALL_PREFIX "/") SET (CPACK_PACKAGE_FILE_NAME "${CPACK_PACKAGE_NAME}") SET (CPACK_PACKAGE_ICON "${HDF4_RESOURCES_DIR}/hdf.gif") SET (CPACK_SET_DESTDIR TRUE) # Required when packaging, and set CMAKE_INSTALL_PREFIX to "/". IF (HDF4_PACK_MACOSX_BUNDLE) LIST (APPEND CPACK_GENERATOR "Bundle") SET (CPACK_BUNDLE_NAME "${HDF4_PACKAGE_STRING}") SET (CPACK_BUNDLE_LOCATION "/") # make sure CMAKE_INSTALL_PREFIX ends in / SET (CMAKE_INSTALL_PREFIX "/${CPACK_BUNDLE_NAME}.framework/Versions/${CPACK_PACKAGE_VERSION}/${CPACK_PACKAGE_NAME}/") SET (CPACK_BUNDLE_ICON "${HDF4_RESOURCES_DIR}/hdf.gif") SET (CPACK_BUNDLE_PLIST "${HDF4_BINARY_DIR}/CMakeFiles/Info.plist") SET (CPACK_APPLE_GUI_INFO_STRING "Hierarchical Data Format (HDF) Software Library and Utilities") SET (CPACK_APPLE_GUI_COPYRIGHT "Copyright © 2006-2014 by The HDF Group. All rights reserved.") SET (CPACK_SHORT_VERSION_STRING "${CPACK_PACKAGE_VERSION}") #----------------------------------------------------------------------------- # Configure the Info.plist file for the install bundle #----------------------------------------------------------------------------- CONFIGURE_FILE ( ${HDF4_RESOURCES_DIR}/CPack.Info.plist.in ${HDF4_BINARY_DIR}/CMakeFiles/Info.plist @ONLY ) ENDIF (HDF4_PACK_MACOSX_BUNDLE) ELSE (WIN32) LIST (APPEND CPACK_GENERATOR "STGZ") SET (CPACK_PACKAGING_INSTALL_PREFIX "/${CPACK_PACKAGE_INSTALL_DIRECTORY}") SET (CPACK_COMPONENTS_ALL_IN_ONE_PACKAGE ON) SET (CPACK_DEBIAN_PACKAGE_SECTION "Libraries") SET (CPACK_DEBIAN_PACKAGE_MAINTAINER "${HDF4_PACKAGE_BUGREPORT}") SET (CPACK_RPM_COMPONENT_INSTALL ON) SET (CPACK_RPM_PACKAGE_RELOCATABLE ON) SET (CPACK_RPM_PACKAGE_LICENSE "BSD-style") SET (CPACK_RPM_PACKAGE_GROUP "Development/Libraries") SET (CPACK_RPM_PACKAGE_URL "${HDF4_PACKAGE_URL}") ENDIF (WIN32) INCLUDE(InstallRequiredSystemLibraries) SET (CPACK_INSTALL_CMAKE_PROJECTS "${HDF4_BINARY_DIR};HDF4;ALL;/") IF (HDF4_PACKAGE_EXTLIBS) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") IF (JPEG_FOUND AND JPEG_USE_EXTERNAL) SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${JPEG_INCLUDE_DIR_GEN};JPEG;libraries;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${JPEG_INCLUDE_DIR_GEN};JPEG;headers;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${JPEG_INCLUDE_DIR_GEN};JPEG;configinstall;/") ENDIF (JPEG_FOUND AND JPEG_USE_EXTERNAL) IF (ZLIB_FOUND AND ZLIB_USE_EXTERNAL) SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${ZLIB_INCLUDE_DIR_GEN};ZLIB;libraries;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${ZLIB_INCLUDE_DIR_GEN};ZLIB;headers;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${ZLIB_INCLUDE_DIR_GEN};ZLIB;configinstall;/") ENDIF (ZLIB_FOUND AND ZLIB_USE_EXTERNAL) IF (SZIP_FOUND AND SZIP_USE_EXTERNAL) SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${SZIP_INCLUDE_DIR_GEN};SZIP;libraries;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${SZIP_INCLUDE_DIR_GEN};SZIP;headers;/") SET (CPACK_INSTALL_CMAKE_PROJECTS "${CPACK_INSTALL_CMAKE_PROJECTS};${SZIP_INCLUDE_DIR_GEN};SZIP;configinstall;/") ENDIF (SZIP_FOUND AND SZIP_USE_EXTERNAL) ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") ENDIF (HDF4_PACKAGE_EXTLIBS) INCLUDE (CPack) #----------------------------------------------------------------------------- # Now list the cpack commands #----------------------------------------------------------------------------- CPACK_ADD_COMPONENT (applications DISPLAY_NAME "HDF4 Applications" DEPENDS libraries GROUP Applications ) CPACK_ADD_COMPONENT (libraries DISPLAY_NAME "HDF4 Libraries" GROUP Runtime ) CPACK_ADD_COMPONENT (headers DISPLAY_NAME "HDF4 Headers" DEPENDS libraries GROUP Development ) CPACK_ADD_COMPONENT (hdfdocuments DISPLAY_NAME "HDF4 Documents" GROUP Documents ) CPACK_ADD_COMPONENT (configinstall DISPLAY_NAME "HDF4 CMake files" DEPENDS libraries GROUP Development ) IF (HDF4_BUILD_FORTRAN) CPACK_ADD_COMPONENT (fortlibraries DISPLAY_NAME "HDF4 Fortran Libraries" DEPENDS libraries GROUP Runtime ) ENDIF (HDF4_BUILD_FORTRAN) IF (HDF4_BUILD_TOOLS) CPACK_ADD_COMPONENT (toolsapplications DISPLAY_NAME "HDF4 Tools Applications" DEPENDS libraries GROUP Applications ) CPACK_ADD_COMPONENT (toolsheaders DISPLAY_NAME "HDF4 Tools Headers" DEPENDS libraries GROUP Development ) ENDIF (HDF4_BUILD_TOOLS) IF (HDF4_BUILD_UTILS) CPACK_ADD_COMPONENT (utilsapplications DISPLAY_NAME "HDF4 Utility Applications" DEPENDS libraries GROUP Applications ) CPACK_ADD_COMPONENT (utilsheaders DISPLAY_NAME "HDF4 Utility Headers" DEPENDS libraries GROUP Development ) ENDIF (HDF4_BUILD_UTILS) ENDIF (NOT HDF4_EXTERNALLY_CONFIGURED AND NOT HDF4_NO_PACKAGES) libhdf4-4.2.10/HDF_ALT/CMakeFilters.cmake0000644000000000000000000001616712421456623014434 0ustar #----------------------------------------------------------------------------- # Options for HDF4 Filters #----------------------------------------------------------------------------- INCLUDE (ExternalProject) OPTION (HDF4_ALLOW_EXTERNAL_SUPPORT "Allow External Library Building (NO SVN TGZ)" "NO") IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") OPTION (JPEG_USE_EXTERNAL "Use External Library Building for JPEG" 1) OPTION (ZLIB_USE_EXTERNAL "Use External Library Building for ZLIB" 1) OPTION (SZIP_USE_EXTERNAL "Use External Library Building for SZIP" 1) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN") SET (JPEG_URL ${JPEG_SVN_URL}) SET (ZLIB_URL ${ZLIB_SVN_URL}) SET (SZIP_URL ${SZIP_SVN_URL}) ELSEIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") IF (NOT TGZPATH) SET (TGZPATH ${HDF4_SOURCE_DIR}) ENDIF (NOT TGZPATH) SET (JPEG_URL ${TGZPATH}/${JPEG_TGZ_NAME}) SET (ZLIB_URL ${TGZPATH}/${ZLIB_TGZ_NAME}) SET (SZIP_URL ${TGZPATH}/${SZIP_TGZ_NAME}) ELSE (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN") SET (JPEG_USE_EXTERNAL 0) SET (ZLIB_USE_EXTERNAL 0) SET (SZIP_USE_EXTERNAL 0) ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN") ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") #----------------------------------------------------------------------------- # Option for LibJpeg support #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_JPEG_LIB_SUPPORT "Enable libjpeg" ON) IF (HDF4_ENABLE_JPEG_LIB_SUPPORT) IF (NOT H4_JPEGLIB_HEADER) IF (NOT JPEG_USE_EXTERNAL) FIND_PACKAGE (JPEG NAMES ${JPEG_PACKAGE_NAME}${HDF_PACKAGE_EXT}) IF (NOT JPEG_FOUND) FIND_PACKAGE (JPEG) # Legacy find ENDIF (NOT JPEG_FOUND) ENDIF (NOT JPEG_USE_EXTERNAL) IF (JPEG_FOUND) SET (H4_HAVE_JPEGLIB_H 1) SET (H4_HAVE_LIBJPEG 1) SET (H4_JPEGLIB_HEADER "jpeglib.h") SET (JPEG_INCLUDE_DIR_GEN ${JPEG_INCLUDE_DIR}) SET (JPEG_INCLUDE_DIRS ${JPEG_INCLUDE_DIR}) ELSE (JPEG_FOUND) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") # May need to build JPEG with PIC on x64 machines with gcc # Need to use CMAKE_ANSI_CFLAGS define so that compiler test works IF (BUILD_JPEG_WITH_PIC) SET (JPEG_CMAKE_C_FLAGS "-fPIC") ELSE (BUILD_JPEG_WITH_PIC) IF (DEFINED CMAKE_ANSI_CFLAGS) SET (JPEG_CMAKE_C_FLAGS ${CMAKE_ANSI_CFLAGS}) ELSE (DEFINED CMAKE_ANSI_CFLAGS) SET (JPEG_CMAKE_C_FLAGS " ") ENDIF (DEFINED CMAKE_ANSI_CFLAGS) ENDIF (BUILD_JPEG_WITH_PIC) EXTERNAL_JPEG_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT} ${LIB_TYPE} ${JPEG_CMAKE_C_FLAGS}) SET (H4_HAVE_JPEGLIB_H 1) SET (H4_HAVE_LIBJPEG 1) SET (H4_JPEGLIB_HEADER "jpeglib.h") MESSAGE (STATUS "JPEGLIB is built") ELSE (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") MESSAGE (FATAL_ERROR " JPEGLib is Required for JPEGLib support in HDF4") ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") ENDIF (JPEG_FOUND) ELSE (NOT H4_JPEGLIB_HEADER) # This project is being called from within another and JPEGLib is already configured SET (H4_HAVE_JPEGLIB_H 1) ENDIF (NOT H4_JPEGLIB_HEADER) SET (LINK_LIBS ${LINK_LIBS} ${JPEG_LIBRARY}) INCLUDE_DIRECTORIES (${JPEG_INCLUDE_DIRS}) MESSAGE (STATUS "JPEGLIB is ON") ENDIF (HDF4_ENABLE_JPEG_LIB_SUPPORT) #----------------------------------------------------------------------------- # Option for ZLib support #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_Z_LIB_SUPPORT "Enable Zlib Filters" ON) IF (HDF4_ENABLE_Z_LIB_SUPPORT) IF (NOT H4_ZLIB_HEADER) IF (NOT ZLIB_USE_EXTERNAL) FIND_PACKAGE (ZLIB NAMES ${ZLIB_PACKAGE_NAME}${HDF_PACKAGE_EXT}) IF (NOT ZLIB_FOUND) FIND_PACKAGE (ZLIB) # Legacy find ENDIF (NOT ZLIB_FOUND) ENDIF (NOT ZLIB_USE_EXTERNAL) IF (ZLIB_FOUND) SET (H4_HAVE_FILTER_DEFLATE 1) SET (H4_HAVE_ZLIB_H 1) SET (H4_HAVE_LIBZ 1) SET (H4_ZLIB_HEADER "zlib.h") SET (ZLIB_INCLUDE_DIR_GEN ${ZLIB_INCLUDE_DIR}) SET (ZLIB_INCLUDE_DIRS ${ZLIB_INCLUDE_DIR}) ELSE (ZLIB_FOUND) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") EXTERNAL_ZLIB_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT} ${LIB_TYPE}) SET (H4_HAVE_FILTER_DEFLATE 1) SET (H4_HAVE_ZLIB_H 1) SET (H4_HAVE_LIBZ 1) MESSAGE (STATUS "Filter ZLIB is built") ELSE (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") MESSAGE (FATAL_ERROR " ZLib is Required for ZLib support in HDF4") ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") ENDIF (ZLIB_FOUND) ELSE (NOT H4_ZLIB_HEADER) # This project is being called from within another and ZLib is already configured SET (H4_HAVE_FILTER_DEFLATE 1) SET (H4_HAVE_ZLIB_H 1) SET (H4_HAVE_LIBZ 1) ENDIF (NOT H4_ZLIB_HEADER) SET (LINK_LIBS ${LINK_LIBS} ${ZLIB_LIBRARIES}) INCLUDE_DIRECTORIES (${ZLIB_INCLUDE_DIRS}) MESSAGE (STATUS "Filter ZLIB is ON") ENDIF (HDF4_ENABLE_Z_LIB_SUPPORT) #----------------------------------------------------------------------------- # Option for SzLib support #----------------------------------------------------------------------------- OPTION (HDF4_ENABLE_SZIP_SUPPORT "Use SZip Filter" OFF) SET (SZIP_INFO "disabled") IF (HDF4_ENABLE_SZIP_SUPPORT) OPTION (HDF4_ENABLE_SZIP_ENCODING "Use SZip Encoding" OFF) IF (NOT SZIP_USE_EXTERNAL) FIND_PACKAGE (SZIP NAMES ${SZIP_PACKAGE_NAME}${HDF_PACKAGE_EXT}) IF (NOT SZIP_FOUND) FIND_PACKAGE (SZIP) # Legacy find ENDIF (NOT SZIP_FOUND) ENDIF (NOT SZIP_USE_EXTERNAL) IF (SZIP_FOUND) SET (H4_HAVE_FILTER_SZIP 1) SET (H4_HAVE_SZLIB_H 1) SET (H4_HAVE_LIBSZ 1) SET (SZIP_INCLUDE_DIR_GEN ${SZIP_INCLUDE_DIR}) SET (SZIP_INCLUDE_DIRS ${SZIP_INCLUDE_DIR}) ELSE (SZIP_FOUND) IF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") EXTERNAL_SZIP_LIBRARY (${HDF4_ALLOW_EXTERNAL_SUPPORT} ${LIB_TYPE} ${HDF4_ENABLE_SZIP_ENCODING}) SET (H4_HAVE_FILTER_SZIP 1) SET (H4_HAVE_SZLIB_H 1) SET (H4_HAVE_LIBSZ 1) MESSAGE (STATUS "Filter SZIP is built") ELSE (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") MESSAGE (FATAL_ERROR "SZIP is Required for SZIP support in HDF4") ENDIF (HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "SVN" OR HDF4_ALLOW_EXTERNAL_SUPPORT MATCHES "TGZ") ENDIF (SZIP_FOUND) SET (LINK_LIBS ${LINK_LIBS} ${SZIP_LIBRARIES}) INCLUDE_DIRECTORIES (${SZIP_INCLUDE_DIRS}) MESSAGE (STATUS "Filter SZIP is ON") IF (HDF4_ENABLE_SZIP_ENCODING) SET (H4_HAVE_SZIP_ENCODER 1) SET (SZIP_INFO "enabled with encoder") ELSE (HDF4_ENABLE_SZIP_ENCODING) SET (SZIP_INFO "enabled with decoder only") ENDIF (HDF4_ENABLE_SZIP_ENCODING) ENDIF (HDF4_ENABLE_SZIP_SUPPORT) libhdf4-4.2.10/HDF_ALT/bin/0000755000000000000000000000000012474643754011671 5ustar libhdf4-4.2.10/HDF_ALT/bin/config.sub0000755000000000000000000010535412474643754013664 0ustar #! /bin/sh # Configuration validation subroutine script. # Copyright 1992-2013 Free Software Foundation, Inc. timestamp='2013-08-10' # 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 . # # 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 with a ChangeLog entry 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: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD # 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. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -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 ." version="\ GNU config.sub ($timestamp) Copyright 1992-2013 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" 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 # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \ linux-musl* | linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \ knetbsd*-gnu* | netbsd*-gnu* | \ kopensolaris*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; android-linux) os=-linux-android basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -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*) os= basic_machine=$1 ;; -bluegene*) os=-cnk ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*178) os=-lynxos178 ;; -lynx*5) os=-lynxos5 ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | aarch64 | aarch64_be \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arceb \ | arm | arm[bl]e | arme[lb] | armv[2-8] | armv[3-8][lb] | armv7[arm] \ | avr | avr32 \ | be32 | be64 \ | bfin \ | c4x | c8051 | clipper \ | d10v | d30v | dlx | dsp16xx \ | epiphany \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | hexagon \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | le32 | le64 \ | lm32 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | microblazeel | mcore | mep | metag \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64octeon | mips64octeonel \ | mips64orion | mips64orionel \ | mips64r5900 | mips64r5900el \ | mips64vr | mips64vrel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipsr5900 | mipsr5900el \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | moxie \ | mt \ | msp430 \ | nds32 | nds32le | nds32be \ | nios | nios2 | nios2eb | nios2el \ | ns16k | ns32k \ | open8 \ | or1k | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle \ | pyramid \ | rl78 | rx \ | score \ | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu \ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \ | ubicom32 \ | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \ | we32k \ | x86 | xc16x | xstormy16 | xtensa \ | z8k | z80) basic_machine=$basic_machine-unknown ;; c54x) basic_machine=tic54x-unknown ;; c55x) basic_machine=tic55x-unknown ;; c6x) basic_machine=tic6x-unknown ;; m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip) basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; strongarm | thumb | xscale) basic_machine=arm-unknown ;; xgate) basic_machine=$basic_machine-unknown os=-none ;; xscaleeb) basic_machine=armeb-unknown ;; xscaleel) basic_machine=armel-unknown ;; # 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) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | aarch64-* | aarch64_be-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* | arceb-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | be32-* | be64-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* \ | c8051-* | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | hexagon-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | le32-* | le64-* \ | lm32-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* | metag-* \ | microblaze-* | microblazeel-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64octeon-* | mips64octeonel-* \ | mips64orion-* | mips64orionel-* \ | mips64r5900-* | mips64r5900el-* \ | mips64vr-* | mips64vrel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipsr5900-* | mipsr5900el-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nds32-* | nds32le-* | nds32be-* \ | nios-* | nios2-* | nios2eb-* | nios2el-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | open8-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \ | pyramid-* \ | rl78-* | romp-* | rs6000-* | rx-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \ | tahoe-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tile*-* \ | tron-* \ | ubicom32-* \ | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \ | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-* | z80-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aros) basic_machine=i386-pc os=-aros ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; bluegene*) basic_machine=powerpc-ibm os=-cnk ;; c54x-*) basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c55x-*) basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c6x-*) basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c90) basic_machine=c90-cray os=-unicos ;; cegcc) basic_machine=arm-unknown os=-cegcc ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16 | cr16-*) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dicos) basic_machine=i686-pc os=-dicos ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; microblaze*) basic_machine=microblaze-xilinx ;; mingw64) basic_machine=x86_64-pc os=-mingw64 ;; mingw32) basic_machine=i686-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; msys) basic_machine=i686-pc os=-msys ;; mvs) basic_machine=i370-ibm os=-mvs ;; nacl) basic_machine=le32-unknown os=-nacl ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; neo-tandem) basic_machine=neo-tandem ;; nse-tandem) basic_machine=nse-tandem ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc | ppcbe) basic_machine=powerpc-unknown ;; ppc-* | ppcbe-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos | rdos64) basic_machine=x86_64-pc os=-rdos ;; rdos32) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; strongarm-* | thumb-*) basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'` ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tile*) basic_machine=$basic_machine-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; xscale-* | xscalee[bl]-*) basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'` ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; z80-*-coff) basic_machine=z80-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # 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) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then 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 ;; -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \ | -sym* | -kopensolaris* | -plan9* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* | -aros* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -bitrig* | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* | -cegcc* \ | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -mingw64* | -linux-gnu* | -linux-android* \ | -linux-newlib* | -linux-musl* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -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 ;; -nsk*) os=-nsk ;; # 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 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -zvmoe) os=-zvmoe ;; -dicos*) os=-dicos ;; -nacl*) ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; 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. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; c8051-*) os=-elf ;; hexagon-*) os=-elf ;; tic54x-*) os=-coff ;; tic55x-*) os=-coff ;; tic6x-*) os=-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=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or1k-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-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 ;; *-next) os=-nextstep3 ;; *-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=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $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 ;; -mvs* | -opened*) vendor=ibm ;; -os400*) 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 basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: libhdf4-4.2.10/HDF_ALT/bin/config.guess0000755000000000000000000013036112474643754014215 0ustar #! /bin/sh # Attempt to guess a canonical system name. # Copyright 1992-2013 Free Software Foundation, Inc. timestamp='2013-06-10' # 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 . # # 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. # # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD # # Please send patches with a ChangeLog entry to config-patches@gnu.org. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -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 ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright 1992-2013 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 trap 'exit 1' 1 2 15 # 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. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { 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) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; 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 ; set_cc_for_build= ;' # 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) >/dev/null 2>&1 ; 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/*) # If the system lacks a compiler, then just pick glibc. # We could probably try harder. LIBC=gnu eval $set_cc_for_build cat <<-EOF > $dummy.c #include #if defined(__UCLIBC__) LIBC=uclibc #elif defined(__dietlibc__) LIBC=dietlibc #else LIBC=gnu #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'` ;; 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". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-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. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $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 # 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/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:Bitrig:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'` echo ${UNAME_MACHINE_ARCH}-unknown-bitrig${UNAME_RELEASE} exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) 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. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm*:riscos:*:*|arm*:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux${UNAME_RELEASE} exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) eval $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 [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH="x86_64" fi fi echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; 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. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; 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'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; 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) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # 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:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* 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; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include 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 echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *: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 [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 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 [ -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 [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include 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 [ ${HP_ARCH} = "hppa2.0w" ] then eval $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 echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include 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; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; 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*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; 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:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; 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/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 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/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) UNAME_PROCESSOR=`/usr/bin/uname -p` case ${UNAME_PROCESSOR} in amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW64*:*) echo ${UNAME_MACHINE}-pc-mingw64 exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:MSYS*:*) echo ${UNAME_MACHINE}-pc-msys exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) echo ia64-unknown-interix${UNAME_RELEASE} exit ;; esac ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; 8664:Windows_NT:*) echo x86_64-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-${LIBC}`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-${LIBC} exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; aarch64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; aarch64_be:Linux:*:*) UNAME_MACHINE=aarch64_be echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` 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 echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; arc:Linux:*:* | arceb:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-${LIBC} else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabi else echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabihf fi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; cris:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-${LIBC} exit ;; crisv32:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-${LIBC} exit ;; frv:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; hexagon:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; i*86:Linux:*:*) echo ${UNAME_MACHINE}-pc-linux-${LIBC} exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; mips:Linux:*:* | mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef ${UNAME_MACHINE} #undef ${UNAME_MACHINE}el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=${UNAME_MACHINE}el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=${UNAME_MACHINE} #else CPU= #endif #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'` test x"${CPU}" != x && { echo "${CPU}-unknown-linux-${LIBC}"; exit; } ;; or1k:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; or32:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; padre:Linux:*:*) echo sparc-unknown-linux-${LIBC} exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-${LIBC} exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-${LIBC} ;; PA8*) echo hppa2.0-unknown-linux-${LIBC} ;; *) echo hppa-unknown-linux-${LIBC} ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-${LIBC} exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-${LIBC} exit ;; ppc64le:Linux:*:*) echo powerpc64le-unknown-linux-${LIBC} exit ;; ppcle:Linux:*:*) echo powerpcle-unknown-linux-${LIBC} exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux-${LIBC} exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; tile*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-${LIBC} exit ;; x86_64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-${LIBC} exit ;; 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. echo i386-sequent-sysv4 exit ;; 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. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; 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 echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /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 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; 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 configury will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; 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*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; x86_64:Haiku:*:*) echo x86_64-unknown-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown eval $set_cc_for_build if test "$UNAME_PROCESSOR" = unknown ; then UNAME_PROCESSOR=powerpc fi if [ "$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 fi echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-?:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk${UNAME_RELEASE} exit ;; NSE-*:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *: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 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; i*86:AROS:*:*) echo ${UNAME_MACHINE}-pc-aros exit ;; x86_64:VMkernel:*:*) echo ${UNAME_MACHINE}-unknown-esx exit ;; esac eval $set_cc_for_build cat >$dummy.c < # include #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 printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #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 # 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 printf ("vax-dec-ultrix\n"); exit (0); # 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; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed 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 exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: libhdf4-4.2.10/HDF_ALT/bin/missing0000755000000000000000000002403612421456623013262 0ustar #! /bin/sh # Common stub for a few missing GNU programs while installing. # Copyright (C) 1996, 1997, 1999, 2000, 2002 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # 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 run=: # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi case "$1" in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case "$1" in -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch]" ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing 0.4 - GNU automake" ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; aclocal*) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. You can get \`$1Help2man' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n 's/.*--output[ =]*\([^ ]*\).*/\1/p'` test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` fi if [ -f "$file" ]; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit 1 fi ;; makeinfo) if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then # We have makeinfo, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file` fi touch $file ;; tar) shift if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 fi # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar "$@" && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar "$@" && exit 0 fi firstarg="$1" if shift; then case "$firstarg" in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" "$@" && exit 0 ;; esac case "$firstarg" in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" "$@" && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequirements for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 libhdf4-4.2.10/HDF_ALT/bin/yodconfigure0000755000000000000000000000463712421456623014313 0ustar #!/bin/sh # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF5. The full HDF5 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF5 document set and # is linked from the top-level documents page. It can also be found at # http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have # access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. # Fix configure file so that it can launch configure testing executable # via the proper launching command, e.g., yod. (Thus the name yodconfigure # is used.) # # Author: Albert Cheng if [ "$1" = -f ]; then FORCEMODE=yes echo turn FORCEMODE to $FORCEMODE shift fi if [ $# -ne 1 ]; then echo "Usage: $0 [-f] " echo " -f apply the change even if it has been applied already." exit 1 fi confile=$1 if [ ! -w $confile ]; then echo "$0: $confile is not writable" exit 1 fi ACTRY_NAME="ACTRY()" if grep ^"$ACTRY_NAME"$ $confile >/dev/null 2>&1 && [ "$FORCEMODE" != yes ]; then echo "$0: $confile is already yodconfigure ready. Use -f to force yodconfigure again." exit 1 fi # Insert the ACTRY function after the 1st line which is the #!/bin/sh. # Change all "eval $ac_try" commands to call ACTRY. # auto-configure have changed the ac_try syntax from 'eval $ac_try' to # 'eval "$ac_try"'. Thus requiring two very similar global-substitute. # The single quotes around EOF tell shell NOT to expand or do substitution in # the body of ed input. # ed - $confile <<'EOF' 1a # ===inserted by yodconfigure ==== # ACTRY will figure out when it is approprirate to run the command by the # $RUNSERIAL launcher (e.g., yod -sz 1) and when to just run it as is. # So far, ./a.out and ./conftest are names of real executable that should # be run by $RUNSERIAL. # # (uncomment the echo line if you want to see what is going on.) ACTRY() { #echo ACTRY: args are: $* > /dev/tty if [ "$1" = ./a.out -o "$1" = ./conftest ]; then # echo $RUNSERIAL $* > /dev/tty $RUNSERIAL $* else $* fi } # === end of ACTRY inserted by yodconfigure ==== . g/eval $ac_try/s/eval/eval ACTRY/ g/eval "$ac_try"/s/eval/eval ACTRY/ w q EOF libhdf4-4.2.10/HDF_ALT/bin/chkmanifest0000755000000000000000000001052012421456623014076 0ustar #!/bin/sh # # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # Check that all the files in MANIFEST exist and that (if this is a # SVN checkout) that all the SVN-managed files appear in the # MANIFEST. verbose=yes MANIFEST=/tmp/HD_MANIFEST.$$ SVNENTRY=/tmp/HD_SVNENTRY.$$ # function definitions GETSVNENTRIES_13 () # Purpose: Extract filenames from the svn v1.3.* entries file # $1: directory name in which the svn entries is. # steps: # 1. remove all single line entries so that step 2 does not fail on them. # 2. merge all multiple lines entries into single lines. # 3. remove all non file entries. # 4. insert a blank line because some entries files has no kind="file" # entry and ed does not like to do g on an empty file. # 5. remove everything except the file name. # 6. remove all blank lines, including the inserted one. { cp $1/entries $SVNENTRY chmod u+w $SVNENTRY # entries file is not writable. ed - $SVNENTRY <$/d g/^$/j v/kind="file"/d a . g/.*name="/s/// g/".*/s/// g/^$/d w q EOF cat $SVNENTRY rm $SVNENTRY } GETSVNENTRIES_14 () # Purpose: Extract filenames from the svn v1.4.* entries file # $1: directory name in which the svn entries is. # steps: # 1. all valid files are followed by a line containing "file" only. # 2. find them by looking for "file" first, then mark its preceding line as # wanted. # 3. remove all non-marked line. # 4. insert a blank line because some entries files has no kind="file" # entry and ed does not like to do g on an empty file. # 5. remove the marks. { cp $1/entries $SVNENTRY chmod u+w $SVNENTRY # entries file is not writable. ed - $SVNENTRY <&2 # clean up $MANIFEST file when exits trap "rm -f $MANIFEST" 0 # First make sure i am in the directory in which there is an MANIFEST file # and then do the checking from there. Will try the following, # current directory, parent directory, the directory this command resides. if [ -f MANIFEST ]; then continue elif [ -f ../MANIFEST ]; then cd .. else commanddir=`dirname $0` if [ -d "$commanddir" -a -f $commanddir/MANIFEST ]; then cd $commanddir continue else echo MANIFEST file not found. Abort. exit 1 fi fi # Check for duplicate entries. This can be done at any time, but it may as # well be sooner so that if something else fails the presence of duplicates # will already be known. errcode=0 DUPLICATES=`perl -ne 's/#.*//; next if /^\s*$/; if ($uniq{$_}++) { print $_; }' MANIFEST` if [ "$DUPLICATES" ]; then cat 1>&2 <$MANIFEST for file in `cat $MANIFEST`; do if [ ! -f $file ]; then echo "- $file" fail=yes fi done # Inspect the .svn/entries to figure out what version of svn file entry is # used. # The following algorithm is formed via reverse engineering. # I don't know what the official svn format is if such a specification exists. # Algorithm: # If the first line of the file has 'xml version="1.0"' in it, it is created # by svn 1.3 or older; else if it has '^file$' in it, it is created by svn 1.4. svn_entry_file=.svn/entries if head -1 $svn_entry_file | grep 'xml version="1.0"' > /dev/null 2>&1;then getsvnentries=GETSVNENTRIES_13 elif grep '^file$' $svn_entry_file > /dev/null 2>&1; then getsvnentries=GETSVNENTRIES_14 else echo "Unknown svn entries format. Aborted" exit 1 fi for svn in `find . -type d -name .svn -print`; do path=`echo $svn |sed 's/\/.svn//'` for file in `$getsvnentries $svn`; do if (grep ^$path/$file$ $MANIFEST >/dev/null); then : else echo "+ $path/$file" fail=yes fi done done if [ "X$fail" = "Xyes" ]; then cat 1>&2 <&2 exit 0 libhdf4-4.2.10/HDF_ALT/bin/cmakehdf40000755000000000000000000002652312421456623013442 0ustar #! /bin/sh # Build and Test HDF4 using cmake. # Author: Allen Byrne # Albert Cheng # Creation Date: Nov 2012 # Modified: # Changed to use the quick steps described in INSTALL_CMake.txt. (AKC 2014/1/7) # Copyright: The HDF Group, 2012-14 # Debug Print: remove the comment hash if you want DPRINT to do echo DPRINT=: #DPRINT=echo # use the ctest scripting method if --script is given if [ "$1" != "--script" ]; then # variable names # The "extra" number is the step number and easier to see all logfiles in # the sorted order of steps progname=`basename $0` # program name configlog="#${progname}_1config.log" makelog="#${progname}_2build.log" testlog="#${progname}_3test.log" packlog="#${progname}_4pack.log" installlog="#${progname}_5install.log" srcdir="../hdf4" # expected source directory exit_code=0 #============= # Function definitions #============= # Show user help page HELP() { echo "Usage: $progname [--script]" echo " --script: Use the ctest scripting method of $progname" echo "" } # Display a time stamp TIMESTAMP() { echo "=====" "`date`" "=====" } # Do one step bracketed with time stamps # The '< /dev/null' is needed to prevent some applications like MPI # jobs blocked for reading when they read stdin unnecessary. # $1 is banner message to be displayed. # $2 is command to run # $3 is logfile name for saving output from the command STEP() { banner="$1" command="$2" logfile="$3" echo "$banner" with output saved in $logfile (TIMESTAMP; nerror=0 ; echo "eval $command" eval $command || nerror=1 ; TIMESTAMP; exit $nerror) < /dev/null >> "$logfile" 2>&1 if [ $? -ne 0 ]; then echo "error in '$banner'. $progname aborted." exit 1 fi } #========== # main #========== # Show a start time stamp/hdf4 TIMESTAMP # Always display the help page HELP # Verify there is a valid hdf4 source directory present if [ ! -d $srcdir ]; then echo $srcdir not found. Aborted. exit 1 fi # figure out version information vers=bin/h4vers if [ ! -x $srcdir/$vers ]; then echo $srcdir/$vers not found or not executable. Aborted. exit 1 fi version=`cd $srcdir; $vers` if [ $? != 0 ]; then echo $vers failed. Aborted. exit 1 fi echo Running Cmake for HDF4-${version} ... # 4. Configure the C library, tools and tests with this command: STEP "Configure..." "cmake -C ../hdf4/config/cmake/cacheinit.cmake -G 'Unix Makefiles' -DCMAKE_INSTALL_PREFIX:PATH="." -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING="SVN" -DHDF4_PACKAGE_EXTLIBS:BOOL=ON -DHDF4_BUILD_TOOLS:BOOL=ON -DHDF4_BUILD_UTILS:BOOL=ON -DBUILD_TESTING:BOOL=ON ../hdf4" $configlog # 5. Build the C library, tools and tests with this command: STEP "Build the library, tools and tests, ..." "cmake --build . --config Release" $makelog # 6. Test the C library and tools with this command: STEP "Test the library and tools..." "ctest . -C Release" $testlog # 7. Create an install image with this command: STEP "Create an install image..." "cpack -C Release CPackConfig.cmake" $packlog # 8. Install with this command: STEP "Install..." "./HDF-4.2.10-Linux.sh --skip-license" $installlog # save the last exit code exit_code=$? # Show a closing time stamp TIMESTAMP exit $exit_code else # --------------- # older version # --------------- # variable names progname=`basename $0` # program name cminfile="cmakemin.$$" # Cmake minimum file cfgfile=$progname.$$ # configure file ctest_log=ctest.log # output of ctest script install_log=install.log # output of installation $DPRINT $cfgfile # Remove temporary generated files if exit 0 trap "rm -f $cminfile $cfgfile" 0 #============= # Function definitions #============= TIMESTAMP() { echo "=====" "`date`" "=====" } #========== # main #========== # Show a start time stamp TIMESTAMP # Explain what and where log files are. cat <.log: output of configure LastBuild_.log: output of build LastTest_.log: output of testing LastTestsFailed_.log: list of failed tests EOF # First generate the two needed input files, the $cimnfile and $cfgfile. # Then use ctest to use the two input files. #========== # create the configure file #========== # Create the cmake minimum required file to be used by the following # configure file. Though not absolute needed, it is better to generate # this file before the configure file. Quote the EOF to preven substitution # in the text. #========== #========== cat > $cfgfile <<'EOF' cmake_minimum_required(VERSION 2.8.10 FATAL_ERROR) ######################################################## # This dashboard is maintained by The HDF Group # For any comments please contact cdashhelp@hdfgroup.org # ######################################################## set (CTEST_DASHBOARD_ROOT ${CTEST_SCRIPT_DIRECTORY}) set (CTEST_SOURCE_DIRECTORY "../hdf4") set (CTEST_BINARY_DIRECTORY ".") set (CTEST_CMAKE_GENERATOR "Unix Makefiles") set (CTEST_BUILD_CONFIGURATION "Release") set (CTEST_MAX_N 8) # -- CDash variables set (LOCAL_NO_SUBMIT TRUE) # No CDash submit. set (MODEL "Experimental") set (CDASH_LOCAL TRUE) set (SITE_BUILDNAME_SUFFIX "cmakehdf4") # -- URL set for internal check, default is to not update set (LOCAL_SKIP_UPDATE TRUE) set (REPOSITORY_URL "http://svn.hdfgroup.uiuc.edu/hdf4/trunk") # -- Standard build options set (ADD_BUILD_OPTIONS "-DCMAKE_INSTALL_PREFIX:PATH=${CTEST_BINARY_DIRECTORY} -DHDF4_ALLOW_EXTERNAL_SUPPORT:STRING=\"SVN\" -DHDF4_PACKAGE_EXTLIBS:BOOL=ON") # Use multiple CPU cores to build include(ProcessorCount) ProcessorCount(N) if(NOT N EQUAL 0) if(N GREATER ${CTEST_MAX_N}) set(N ${CTEST_MAX_N}) endif(N GREATER ${CTEST_MAX_N}) set(CTEST_BUILD_FLAGS -j${N}) set(ctest_test_args ${ctest_test_args} PARALLEL_LEVEL ${N}) endif() # ----------------------------------------------------------- # -- Get environment # ----------------------------------------------------------- ## -- set hostname ## -------------------------- find_program (HOSTNAME_CMD NAMES hostname) exec_program (${HOSTNAME_CMD} ARGS OUTPUT_VARIABLE HOSTNAME) set (CTEST_SITE "${HOSTNAME}${CTEST_SITE_EXT}") find_program (UNAME NAMES uname) macro (getuname name flag) exec_program ("${UNAME}" ARGS "${flag}" OUTPUT_VARIABLE "${name}") endmacro (getuname) getuname (osname -s) getuname (osrel -r) getuname (cpu -m) if (SITE_BUILDNAME_SUFFIX) set (CTEST_BUILD_NAME "${osname}-${osrel}-${cpu}-${SITE_BUILDNAME_SUFFIX}") else (SITE_BUILDNAME_SUFFIX) set (CTEST_BUILD_NAME "${osname}-${osrel}-${cpu}") endif (SITE_BUILDNAME_SUFFIX) # ----------------------------------------------------------- set (BUILD_OPTIONS "${ADD_BUILD_OPTIONS} -DSITE:STRING=${CTEST_SITE} -DBUILDNAME:STRING=${CTEST_BUILD_NAME}") #----------------------------------------------------------------------------- # MAC machines need special option #----------------------------------------------------------------------------- if (APPLE) # Compiler choice execute_process(COMMAND xcrun --find cc OUTPUT_VARIABLE XCODE_CC OUTPUT_STRIP_TRAILING_WHITESPACE) execute_process(COMMAND xcrun --find c++ OUTPUT_VARIABLE XCODE_CXX OUTPUT_STRIP_TRAILING_WHITESPACE) SET(ENV{CC} "${XCODE_CC}") SET(ENV{CXX} "${XCODE_CXX}") # Shared fortran is not supported, build static set (BUILD_OPTIONS "${BUILD_OPTIONS} -DBUILD_SHARED_LIBS:BOOL=OFF -DBUILD_JPEG_WITH_PIC:BOOL=ON -DCMAKE_ANSI_CFLAGS:STRING=-fPIC") set (BUILD_OPTIONS "${BUILD_OPTIONS} -DCTEST_USE_LAUNCHERS:BOOL=ON -DCMAKE_BUILD_WITH_INSTALL_RPATH:BOOL=OFF") endif (APPLE) # ----------------------------------------------------------- find_package (Subversion) set (CTEST_UPDATE_COMMAND "${Subversion_SVN_EXECUTABLE}") # -- Only clean build folder if LOCAL_CLEAR_BUILD is set if (LOCAL_CLEAR_BUILD) set (CTEST_START_WITH_EMPTY_BINARY_DIRECTORY TRUE) ctest_empty_binary_directory (${CTEST_BINARY_DIRECTORY}) endif (LOCAL_CLEAR_BUILD) #----------------------------------------------------------------------------- # Send the main script as a note. list (APPEND CTEST_NOTES_FILES "${CMAKE_CURRENT_LIST_FILE}" "${CTEST_SOURCE_DIRECTORY}/config/cmake/cacheinit.cmake" ) # Check for required variables. foreach (req CTEST_CMAKE_GENERATOR CTEST_SITE CTEST_BUILD_NAME ) if (NOT DEFINED ${req}) message(FATAL_ERROR "The containing script must set ${req}") endif (NOT DEFINED ${req}) endforeach (req) ## -- set output to english set($ENV{LC_MESSAGES} "en_EN") #----------------------------------------------------------------------------- # Initialize the CTEST commands #------------------------------ SET (CTEST_CMAKE_COMMAND "\"${CMAKE_COMMAND}\"") SET (CTEST_CONFIGURE_COMMAND "${CTEST_CMAKE_COMMAND} -C \"${CTEST_SOURCE_DIRECTORY}/config/cmake/cacheinit.cmake\" -DCMAKE_BUILD_TYPE:STRING=${CTEST_BUILD_CONFIGURATION} ${BUILD_OPTIONS} \"-G${CTEST_CMAKE_GENERATOR}\" \"${CTEST_SOURCE_DIRECTORY}\"") # Print summary information. foreach (v CTEST_SITE CTEST_BUILD_NAME CTEST_SOURCE_DIRECTORY CTEST_BINARY_DIRECTORY CTEST_CMAKE_GENERATOR CTEST_BUILD_CONFIGURATION CTEST_CONFIGURE_COMMAND CTEST_SCRIPT_DIRECTORY ) set (vars "${vars} ${v}=[${${v}}]\n") endforeach (v) message ("Dashboard script configuration:\n${vars}\n") CTEST_START (${MODEL} TRACK ${MODEL}) if (NOT LOCAL_SKIP_UPDATE) CTEST_UPDATE (SOURCE "${CTEST_SOURCE_DIRECTORY}") endif (NOT LOCAL_SKIP_UPDATE) CTEST_CONFIGURE (BUILD "${CTEST_BINARY_DIRECTORY}" RETURN_VALUE res) if(NOT res STREQUAL "0") message (FATAL_ERROR "Configure FAILED") endif() message ("Configure DONE") CTEST_READ_CUSTOM_FILES ("${CTEST_BINARY_DIRECTORY}") if (NOT LOCAL_NO_SUBMIT) CTEST_SUBMIT (PARTS Update Configure Notes) endif (NOT LOCAL_NO_SUBMIT) CTEST_BUILD (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND RETURN_VALUE res) if (NOT LOCAL_NO_SUBMIT) CTEST_SUBMIT (PARTS Build) endif (NOT LOCAL_NO_SUBMIT) if(NOT res STREQUAL "0") message (FATAL_ERROR "Build FAILED") endif() message ("build DONE") if (NOT LOCAL_SKIP_TEST) CTEST_TEST (BUILD "${CTEST_BINARY_DIRECTORY}" APPEND ${ctest_test_args} RETURN_VALUE res) if (NOT LOCAL_NO_SUBMIT) CTEST_SUBMIT (PARTS Test) endif (NOT LOCAL_NO_SUBMIT) if(NOT res STREQUAL "0") message (FATAL_ERROR "Test FAILED") endif() message ("test DONE") endif (NOT LOCAL_SKIP_TEST) if(NOT LOCAL_MEMCHECK_TEST) ##----------------------------------------------- ## Package the product ##----------------------------------------------- execute_process(COMMAND cpack -C ${CTEST_BUILD_CONFIGURATION} -V WORKING_DIRECTORY ${CTEST_BINARY_DIRECTORY} RESULT_VARIABLE cpackResult OUTPUT_VARIABLE cpackLog ERROR_VARIABLE cpackLog.err ) file(WRITE ${CTEST_BINARY_DIRECTORY}/cpack.log "${cpackLog.err}" "${cpackLog}") endif(NOT LOCAL_MEMCHECK_TEST) #----------------------------------------------------------------------------- message ("DONE") EOF # Run ctest ctest -S $cfgfile -C Release -V -O $ctest_log exit_code=$? if [ $exit_code = 0 ]; then echo CTest script completed without error else echo Error encountered CTest script fi # Using HDF-*.sh because actual name is unavailable install_sh=HDF-*.sh echo installing with $install_sh ... ./$install_sh --skip-license > $install_log exit_code=$? if [ $exit_code = 0 ]; then echo Complete without error else echo Error encountered fi TIMESTAMP exit $exit_code fi libhdf4-4.2.10/HDF_ALT/bin/h4vers0000755000000000000000000004266512421456623013034 0ustar #! /bin/sh perl -x -S $0 "$@" exit #! perl require 5.003; use strict; # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at # http://hdfgroup.org/products/hdf4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # # Robb Matzke # 17 July 1998 # # HDF4 alterations # Larry Knox # 25 September 2009 ### Purpose # Increments the hdf4 version number by changing the value of # constants in the hdf/src/hfile.h file. The new version number is # printed on the standard output. An alternate source file name can be # specified as an argument. In any case, the original file is saved # by appending a tilde `~' to the name. ### Usage: # h4vers [OPTIONS] [FILE] # Without options this program only displays the current version and # doesn't modify any files or create backups. The default is to print # The space and parentheses around A are only printed if A is not empty. # # The `-s VERSION' switch will set the version as specified. If the # string contains a dotted triple then it will be used as the version # number, otherwise up to three numbers will be read from the end of # the string and used as the major version, minor version, and release # number. If any numbers are missing then zero is assumed. This # allows versions to be specified like `-s "version 4.2 release 4"' or # `-s hdf4-4.2.4.tar.bz2'. If the new version is less than the old # version then a warning message is generated on standard error. The # annotation string, A, is set only if it appears immediately after the # third number, separated by a dash (e.g., `1.2.3-pre1') or in parentheses # (e.g., `version 1.2 release 3 (pre1)'). # # The `-i [major|minor|release|annot|last]' option increments the major # number, minor number, release number, or annotation string. The `last' # switch increments the annotation string if present, otherwise the # release number. If the release number is incremented then the annotation # string is cleared. If the minor number is incremented then the release # number is set to zero and the annotation string is cleared; if the major # number is incremented then the minor and release numbers are set to zero # and the annotation string is cleared. # # If a file is specified then that file is used instead of # ./hfile.h or ./hdf/src/hfile.h. # # If the version number is changed (either `-s' or `-i' was used on # the command line) then the first line of the README.txt and # release_notes/RELEASE.txt two levels above the hfile.h file are also # modified so it looks something like: This is hdf4-1.2.3-pre1 currently # under development. The AC_INIT macro in configure.in will also change # in this case to be something like: AC_INIT([HDF4], [hdf4-1.2.3-pre1], # [help@hdfgroup.org]). # #Following paragraph from h5vers does not apply for HDF4? # Whenever the version changes, this script will increment the revision # field in HDF5's libtool shared library version in config/lt_vers.am, # which is included in src/Makefile.am. Incrementing the revision field # indicates that the source code has changed since the last version # (which it probably has). ############################################################################## sub getvers { local ($_) = @_; my (@vers); ($vers[0]) = /^\#\s*define\s+LIBVER_MAJOR\s+(\d+)/m; ($vers[1]) = /^\#\s*define\s+LIBVER_MINOR\s+(\d+)/m; ($vers[2]) = /^\#\s*define\s+LIBVER_RELEASE\s+(\d+)/m; ($vers[3]) = /^\#\s*define\s+LIBVER_SUBRELEASE\s+\"([^\"]*)\"/m; ($vers[4]) = /^\#\s*define\s+LIBVER_STRING\s+\"([^\"]*\d+)\"/m; #The above gets the entire string, below would get just the date portion. #($vers[4]) = /^\#\s*define\s+LIBVER_STRING\s+\"[^\"]*,(.*,\s+\d+)\"/m; return @vers; } sub setvers { my ($contents, @vers) = @_; my @months = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); my @date = (localtime(time)); $_[0] =~ s/^(\#\s*define\s+LIBVER_MAJOR\s+)\d+/$1$vers[0]/m; $_[0] =~ s/^(\#\s*define\s+LIBVER_MINOR\s+)\d+/$1$vers[1]/m; $_[0] =~ s/^(\#\s*define\s+LIBVER_RELEASE\s+)\d+/$1$vers[2]/m; $_[0] =~ s/^(\#\s*define\s+LIBVER_SUBRELEASE\s+\")[^\"]*/$1$vers[3]/m; $_[0] =~ s/^(\#\s*define\s+LIBVER_STRING\s+\")[^\"]*/ sprintf("%sHDF Version %d.%d Release %d%s%s, %s %d, %d", $1, @vers[0,1,2], $vers[3]?"-":"", $vers[3], $months[@date[4]], @date[3], 1900+@date[5])/me; my $stringlength = 25 + 32 + length $months[@date[4]] + 2 + 6; die "Version string too long: $stringlength characters." unless $stringlength < 81; #printf("HDF Version %d.%d Release %d%s%s, %s %d, %d\n", @vers[0,1,2], # $vers[3]?"-":"", $vers[3], $months[@date[4]], @date[3], 1900+@date[5]); return $_[0]; } sub usage { my ($prog) = $0 =~ /([^\/]+)$/; print STDERR <; close FILE; my (@curver) = getvers $contents; #print "Contents: $contents\n"; #print "curver", @curver, "\n"; # Determine the new version number. my @newver; #new version if ($set) { if ($set =~ /(\d+)\.(\d+)\.(\d+)(-([a-zA-Z]\w*))?/) { @newver = ($1, $2, $3, $5); } elsif ($set =~ /(\d+)\D+(\d+)\D+(\d+)(\s*\(([a-zA-Z]\w*)\))?\D*$/) { @newver = ($1, $2, $3, $5); } elsif ($set =~ /(\d+)\D+(\d+)\D*$/) { @newver = ($1, $2, 0, ""); } elsif ($set =~ /(\d+)\D*$/) { @newver = ($1, 0, 0, ""); } else { die "illegal version number specified: $set\n"; } } elsif ($inc) { $inc = $curver[3] eq "" ? 'release' : 'annot' if $inc eq 'last'; if ($inc eq "major") { $newver[0] = $curver[0]+1; @newver[1,2,3] = (0,0,""); } elsif ($inc eq "minor") { $newver[0] = $curver[0]; $newver[1] = $curver[1]+1; @newver[2,3] = (0,""); } elsif ($inc eq "release") { @newver[0,1] = @curver[0,1]; $newver[2] = $curver[2]+1; $newver[3] = ""; } elsif ($inc eq "annot") { @newver[0,1,2] = @curver[0,1,2]; $newver[3] = $curver[3]; $newver[3] =~ s/(\d+)\D*$/$1+1/e or die "Annotation \"".$newver[3]."\" cannot be incremented.\n"; } else { die "unknown increment field: $inc\n"; } } else { # Nothing to do but print result $README = ""; $RELEASE = ""; $CONFIGURE = ""; $MANHDF1 = ""; @newver = @curver; } # Note if the version increased or decreased my $version_increased=""; # Print a warning if the version got smaller (don't check annot field) if ($newver[0]*1000000 + $newver[1]*1000 + $newver[2] < $curver[0]*1000000 + $curver[1]*1000 + $curver[2]) { printf STDERR "Warning: version decreased from %d.%d.%d to %d.%d.%d\n", @curver[0,1,2], @newver[0,1,2]; } if ($newver[0]*1000000 + $newver[1]*1000 + $newver[2] > $curver[0]*1000000 + $curver[1]*1000 + $curver[2]) { $version_increased="true"; } # Update the version number if it changed. if ($newver[0]!=$curver[0] || $newver[1]!=$curver[1] || $newver[2]!=$curver[2] || $newver[3]ne$curver[3]) { setvers $contents, @newver or die "unable to set version\n"; rename $file, "$file~" or die "unable to save backup file\n"; open FILE, ">$file" or die "unable to open $file but backup saved!\n"; print FILE $contents; close FILE; } # Update the libtool shared library version in src/Makefile.am if # the version number has increased. #if ($LT_VERS && $version_increased) { # open FILE, $LT_VERS or die "$LT_VERS: $!\n"; # my ($contentsy) = join "", ; # close FILE; # local($_) = $contentsy; # my ($lt_revision) = /^LT_VERS_REVISION\s*=\s*(\d+)/m; # my $new_lt_revision = $lt_revision+1; # ($contentsy) =~ s/^(LT_VERS_REVISION\s*=\s*)\d+/$1$new_lt_revision/m; # open FILE, ">$LT_VERS" or die "$LT_VERS: $!\n"; # print FILE $contentsy; # close FILE; #} # Update the README file if ($README) { open FILE, $README or die "$README: $!\n"; my @contents = ; close FILE; $contents[0] = sprintf("HDF version %d.%d.%d%s %s", @newver[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3], "currently under development\n"); open FILE, ">$README" or die "$README: $!\n"; print FILE @contents; close FILE; } # Update the release_notes/RELEASE.txt file if ($RELEASE) { open FILE, $RELEASE or die "$RELEASE: $!\n"; my @contents = ; close FILE; $contents[0] = sprintf("HDF version %d.%d.%d%s %s", @newver[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3], "currently under development\n"); open FILE, ">$RELEASE" or die "$RELEASE: $!\n"; print FILE @contents; close FILE; } # Update the man/hdf.1 file # There are currently 2 occurrences of the version string in the man/hdf.1 file. # Since they aren't the top line of the file we search rewrite the file line by # line, searching for the current major.minor.release version string, and replacing # it with the new one. In case someone changes the version string manually or it # otherwise gets out of sync, or another match is found that should not be updated, # we will track the changes in this file, issue an error message and exit at if # the number of changes is different than the 2 expected. if ($MANHDF1) { my $expected_updates = 2; my $man_hdf1_updates = 0; my $verstr = sprintf("%d.%d.%d", @curver[0,1,2]); open FILE, $MANHDF1 or die "$MANHDF1: $!\n"; my @contents = ; close FILE; my @months = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); my @date = (localtime(time)); my $newverstr = sprintf("%d.%d.%d-%d", @newver[0,1,2,3]); my $newverstr = sprintf("%d.%d.%d%s %s", @newver[0,1,2,], $newver[3] eq "" ? "" : "-".$newver[3]." currently under development"); my $newverline = sprintf(".TH HDF 1 \"%s %d\" \"THG HDF %d.%d.%d%s\"", $months[@date[4]], 1900+@date[5], @newver[0,1,2,], $newver[3] eq "" ? "" : "-".$newver[3]); open FILE, ">$MANHDF1" or die "$MANHDF1: $!\n"; foreach my $line (@contents) { if ($line =~ m/THG HDF $verstr/) { # match "THG HDF major.minor.release" in the second line, replace the line with the new line that has # the current month and year and the updated version. print FILE $newverline, "\n"; $man_hdf1_updates += 1; } elsif ($line =~ m/^$verstr\s*$/ || $line =~ m/^$verstr-[a-z]{2,5}\d{1,3}\s*$/ || $line =~ m/^$verstr\scurrently under development\s*$/ || $line =~ m/^$verstr-[a-z]{2,5}\d{1,3}\scurrently under development$\s*/) { # match the line further down that has just the version string, and replace it with the updated version string. # this will match "major.minor.release" or "major.minor.release-subrelease" or "major.minor.release currently # under development" or "major.minor.release-subrelease currently under development" (all followed by # any number of spaces), provided that the subrelease # string is 2-5 letters and 1-3 digits. This should not match any line with text before or after the version. print FILE $newverstr, "\n"; $man_hdf1_updates += 1; } else { print FILE $line; } } close FILE; if ($man_hdf1_updates != $expected_updates) { printf "ERROR: $expected_updates version updates were expected in $MANHDF1, but $man_hdf1_updates occurred. Please check the changes to the $MANHDF1 file and correct the problem.\n"; exit 1; } } sub gen_configure { my ($name, $conf) = @_; open FILE, $conf or die "$conf: $!\n"; my @contents = ; close FILE; for (my $i = 0; $i < $#contents; ++$i) { if ($contents[$i] =~ /^AC_INIT/) { $contents[$i] = sprintf("AC_INIT([$name], [%d.%d.%d%s], [help\@hdfgroup.org])\n", @newver[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3]); last; } } open FILE, ">$conf" or die "$conf: $!\n"; print FILE @contents; close FILE; $conf =~ /^(.*?)\/?configure.ac$/; if ($1) { $rc = system("cd $1 && bin/reconfigure >/dev/null 2>/dev/null && rm -rf autom4te.cache"); } else { $rc = system("bin/reconfigure >/dev/null 2>/dev/null && rm -rf autom4te.cache"); } if ($rc) { printf("bin/reconfigure failed with exit code %d. Aborted.\n", $rc); exit 1; } } # Update the configure.ac files and regenerate them gen_configure("HDF", $CONFIGURE) if $CONFIGURE; sub gen_h5pubconf { my ($name, $pubconf, @vers) = @_; my $namelc = lc($name); my $nameuc = uc($name); open FILE, $pubconf or die "$pubconf: $!\n"; my @contents = ; close FILE; for (my $i = 0; $i < $#contents; ++$i) { if ($contents[$i] =~ /\#\s*define\s+H4_PACKAGE\s+/) { $contents[$i] = "\#define H4_PACKAGE \"$namelc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H4_PACKAGE_NAME\s+/) { $contents[$i] = "\#define H4_PACKAGE_NAME \"$nameuc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H4_PACKAGE_STRING\s+/) { $contents[$i] = sprintf("\#define H4_PACKAGE_STRING \"$nameuc %d.%d.%d%s\"\n", @vers[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3]); } elsif ($contents[$i] =~ /\#\s*define\s+H4_PACKAGE_TARNAME\s+/) { $contents[$i] = "\#define H4_PACKAGE_TARNAME \"$namelc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H4_PACKAGE_VERSION\s+/) { $contents[$i] = sprintf("\#define H4_PACKAGE_VERSION \"%d.%d.%d%s\"\n", @vers[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3]); } elsif ($contents[$i] =~ /\#\s*define\s+H4_VERSION\s+/) { $contents[$i] = sprintf("\#define H4_VERSION \"%d.%d.%d%s\"\n", @vers[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3]); } } open FILE, ">$pubconf" or die "$pubconf: $!\n"; print FILE @contents; close FILE; } # Print the new version number if ($verbose) { #printf("Version %d.%d Release %d%s\n", @newver[0,1,2], # $newver[3] eq "" ? "" : " (".$newver[3].")"); printf("%s\n", $newver[4]); } else { printf("%d.%d.%d%s\n", @newver[0,1,2], $newver[3] eq "" ? "" : "-".$newver[3]); } exit 0; # Because the first line of this file looks like a Bourne shell script, we # must tell XEmacs explicitly that this is really a perl script. # # Local Variables: # mode:perl # End: libhdf4-4.2.10/HDF_ALT/bin/reconfigure0000755000000000000000000000703112421456623014115 0ustar #! /bin/sh # # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # A script to run the GNU autotools to regenerate files for HDF4. # If the paths of the autotools are not specified by the user, they # are hardcoded to point to their locations on HDF5 Linux machines. # Users can specify the locations of the autotools with the following # variables: # AUTOCONF, AUTOMAKE, ACLOCAL, AUTOHEADER should be the path to the # corresponding tools. # LIBTOOL_DIR should be the path to the base libtool directory; # $LIBTOOL_DIR/bin/libtool should invoke libtool, while # $LIBTOOL_DIR/share/aclocal needs to be included by aclocal. # Be very careful when specifying these tools manually! There are a lot # of versions that can get confused (not even counting the m4 utility)! # HDF4 currently uses the following versions of the autotools: AUTOCONF_VERSION="autoconf (GNU Autoconf) 2.69" AUTOMAKE_VERSION="automake (GNU automake) 1.12.3" AUTOHEADER_VERSION="autoheader (GNU Autoconf) 2.69" ACLOCAL_VERSION="aclocal (GNU automake) 1.12.3" LIBTOOL_VERSION="(GNU libtool) 2.4.2" M4_VERSION="m4 (GNU M4) 1.4.16" # # When upgrading automake's version, don't forget to also update its # helper utilities, especially depcomp. # If the user has defined environment variables pointing to the autotools, # use those (but check their versions first!). Otherwise, assume that # we're running on an HDF Group machine with access to the autotools # in mnt/hdf/packages. if test -z ${AUTOCONF}; then AUTOCONF=/mnt/hdf/packages/autoconf/autoconf-2.69/bin/autoconf fi if test -z ${AUTOMAKE}; then AUTOMAKE=/mnt/hdf/packages/automake/automake-1.12.3/bin/automake-1.12 fi if test -z ${AUTOHEADER}; then AUTOHEADER=/mnt/hdf/packages/autoconf/autoconf-2.69/bin/autoheader fi if test -z ${ACLOCAL}; then ACLOCAL=/mnt/hdf/packages/automake/automake-1.12.3/bin/aclocal-1.12 fi if test -z ${LIBTOOL}; then LIBTOOL=/mnt/hdf/packages/libtool/libtool-2.4.2/bin/libtool fi if test -z ${M4}; then M4=/mnt/hdf/packages/m4/m4-1.4.16/bin/m4 fi # Check version numbers of all autotools against the "correct" versions AC_VERS=`${AUTOCONF} --version 2>&1 | grep "^${AUTOCONF_VERSION}"` if test -z "${AC_VERS}"; then echo "${AUTOCONF} version is not ${AUTOCONF_VERSION}" exit 1 fi AM_VERS=`${AUTOMAKE} --version 2>&1 | grep "^${AUTOMAKE_VERSION}"` if test -z "${AM_VERS}"; then echo "${AUTOMAKE} version is not ${AUTOMAKE_VERSION}" exit 1 fi AH_VERS=`${AUTOHEADER} --version 2>&1 | grep "^${AUTOHEADER_VERSION}"` if test -z "${AH_VERS}"; then echo "${AUTOHEADER} version is not ${AUTOHEADER_VERSION}" exit 1 fi AL_VERS=`${ACLOCAL} --version 2>&1 | grep "^${ACLOCAL_VERSION}"` if test -z "${AL_VERS}"; then echo "${ACLOCAL} version is not ${ACLOCAL_VERSION}" exit 1 fi LT_VERS=`${LIBTOOL} --version 2>&1 | grep "${LIBTOOL_VERSION}"` if test -z "${LT_VERS}"; then echo "${LIBTOOL} version is not ${LIBTOOL_VERSION}" exit 1 fi M4_VERS=`${M4} --version 2>&1 | grep "${M4_VERSION}"` if test -z "${M4_VERS}"; then echo "${M4} version is not ${M4_VERSION}" exit 1 fi # Make sure that the tools are in the path. AUTOCONF_DIR=`dirname ${AUTOCONF}` LIBTOOL_DIR=`dirname ${LIBTOOL}` M4_DIR=`dirname ${M4}` PATH=${AUTOCONF_DIR}:${M4_DIR}:$PATH # Run autoconf/automake commands in order echo ${ACLOCAL} -I ${LIBTOOL_DIR}/../share/aclocal ${ACLOCAL} -I ${LIBTOOL_DIR}/../share/aclocal || exit 1 echo ${AUTOHEADER} ${AUTOHEADER} || exit 1 echo ${AUTOMAKE} --add-missing ${AUTOMAKE} --add-missing || exit 1 echo ${AUTOCONF} ${AUTOCONF} || exit 1 exit 0 libhdf4-4.2.10/HDF_ALT/bin/deploy0000755000000000000000000000207412421456623013103 0ustar #!/bin/sh # # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING. COPYING can be found at the root # of the source code distribution tree. If you do not have # access to the file, you may request a copy from hdfhelp@ncsa.uiuc.edu. # # Deploy the HDF4 binary. # # Programmer: Albert Cheng # Created Date: 2005/04/07 # # Modifications # Function definitions # # Print Usage page USAGE() { cat << EOF Usage: $0 Install the binary to directory Examples: $ bin/deploy /usr/local/hdf4 .... EOF } # Variables if [ $# != 1 ]; then USAGE exit 1 fi installdir=$1 # create installdir if it does not exist yet. if [ -d $installdir ] || mkdir $installdir ; then ${MAKE:-gmake} install prefix=$installdir && \ ( cd $installdir/bin; ./h4redeploy -force) exit $? else echo $installdir is not a valid directory USAGE exit 1 fi libhdf4-4.2.10/HDF_ALT/bin/ltmain.sh0000755000000000000000000105152212421456623013507 0ustar # libtool (GNU libtool) 2.4.2 # Written by Gordon Matzigkeit , 1996 # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011 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 GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, # or obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # Usage: $progname [OPTION]... [MODE-ARG]... # # Provide generalized library-building support services. # # --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 # --preserve-dup-deps don't remove duplicate dependency libraries # --quiet, --silent don't print informational messages # --no-quiet, --no-silent # print informational messages (default) # --no-warn don't display warning messages # --tag=TAG use configuration variables from tag TAG # -v, --verbose print more informational messages than default # --no-verbose don't print the extra informational messages # --version print version information # -h, --help, --help-all print short, long, or detailed 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) # $progname: (GNU libtool) 2.4.2 # automake: $automake_version # autoconf: $autoconf_version # # Report bugs to . # GNU libtool home page: . # General help using GNU software: . PROGRAM=libtool PACKAGE=libtool VERSION=2.4.2 TIMESTAMP="" package_revision=1.3337 # 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 # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # NLS nuisances: We save the old values to restore during execute mode. lt_user_locale= lt_safe_locale= for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${$lt_var+set}\" = set; then save_$lt_var=\$$lt_var $lt_var=C export $lt_var lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\" lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\" fi" done LC_ALL=C LANGUAGE=C export LANGUAGE LC_ALL $lt_unset CDPATH # 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" : ${CP="cp -f"} test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} : ${Xsed="$SED -e 1s/^X//"} # Global variables: 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. exit_status=$EXIT_SUCCESS # Make sure IFS has a sensible default lt_nl=' ' IFS=" $lt_nl" dirname="s,/[^/]*$,," basename="s,^.*/,," # func_dirname file append nondir_replacement # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. func_dirname () { func_dirname_result=`$ECHO "${1}" | $SED "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi } # func_dirname may be replaced by extended shell implementation # func_basename file func_basename () { func_basename_result=`$ECHO "${1}" | $SED "$basename"` } # func_basename may be replaced by extended shell implementation # 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" # Implementation must be kept synchronized with func_dirname # and func_basename. For efficiency, we do not delegate to # those functions but instead duplicate the functionality here. func_dirname_and_basename () { # Extract subdirectory from the argument. func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi func_basename_result=`$ECHO "${1}" | $SED -e "$basename"` } # func_dirname_and_basename may be replaced by extended shell implementation # func_stripname 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). # func_strip_suffix prefix name func_stripname () { 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 may be replaced by extended shell implementation # These SED scripts presuppose an absolute path with a trailing slash. pathcar='s,^/\([^/]*\).*$,\1,' pathcdr='s,^/[^/]*,,' removedotparts=':dotsl s@/\./@/@g t dotsl s,/\.$,/,' collapseslashes='s@/\{1,\}@/@g' finalslash='s,/*$,/,' # 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. # value returned in "$func_normal_abspath_result" func_normal_abspath () { # 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 "$removedotparts" -e "$collapseslashes" -e "$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 "$pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$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_normal_abspath_result=$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_relative_path SRCDIR DSTDIR # generates a relative path from SRCDIR to DSTDIR, with a trailing # slash if non-empty, suitable for immediately appending a filename # without needing to append a separator. # value returned in "$func_relative_path_result" func_relative_path () { 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 "x$func_relative_path_tlibdir" = x ; 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 "x$func_stripname_result" != x ; then func_relative_path_result=${func_relative_path_result}/${func_stripname_result} fi # Normalisation. If bindir is libdir, return empty string, # else relative path ending with a slash; either way, target # file name can be directly appended. if test ! -z "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result/" func_relative_path_result=$func_stripname_result fi } # The name of this program: func_dirname_and_basename "$progpath" progname=$func_basename_result # Make sure we have an absolute path for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=$func_dirname_result progdir=`cd "$progdir" && pwd` progpath="$progdir/$progname" ;; *) save_IFS="$IFS" IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS="$save_IFS" test -x "$progdir/$progname" && break done IFS="$save_IFS" test -n "$progdir" || progdir=`pwd` progpath="$progdir/$progname" ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed="${SED}"' -e 1s/^X//' sed_quote_subst='s/\([`"$\\]\)/\\\1/g' # Same as above, but do not quote variable references. 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 # which contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-`\' parameter expansions in output of double_quote_subst that were # `\'-ed in input to the same. If an odd number of `\' preceded a '$' # in input to 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 '$'. bs='\\' bs2='\\\\' bs4='\\\\\\\\' dollar='\$' sed_double_backslash="\ s/$bs4/&\\ /g s/^$bs2$dollar/$bs&/ s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g s/\n//g" # Standard options: opt_dry_run=false opt_help=false opt_quiet=false opt_verbose=false opt_warning=: # func_echo arg... # Echo program name prefixed message, along with the current mode # name if it has been set yet. func_echo () { $ECHO "$progname: ${opt_mode+$opt_mode: }$*" } # func_verbose arg... # Echo program name prefixed message in verbose mode only. func_verbose () { $opt_verbose && 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_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_error arg... # Echo program name prefixed message to standard error. func_error () { $ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2 } # func_warning arg... # Echo program name prefixed warning message to standard error. func_warning () { $opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2 # bash bug again: : } # func_fatal_error arg... # Echo program name prefixed message to standard error, and exit. func_fatal_error () { func_error ${1+"$@"} exit $EXIT_FAILURE } # func_fatal_help arg... # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { func_error ${1+"$@"} func_fatal_error "$help" } help="Try \`$progname --help' for more information." ## default # func_grep expression filename # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $GREP "$1" "$2" >/dev/null 2>&1 } # func_mkdir_p directory-path # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { my_directory_path="$1" my_dir_list= if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then # Protect directory names starting with `-' case $my_directory_path in -*) my_directory_path="./$my_directory_path" ;; esac # While some portion of DIR does not yet exist... while test ! -d "$my_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. my_dir_list="$my_directory_path:$my_dir_list" # If the last portion added has no slash in it, the list is done case $my_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"` done my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'` save_mkdir_p_IFS="$IFS"; IFS=':' for my_dir in $my_dir_list; do IFS="$save_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 "$my_dir" 2>/dev/null || : done IFS="$save_mkdir_p_IFS" # Bail out if we (or some other process) failed to create a directory. test -d "$my_directory_path" || \ func_fatal_error "Failed to create \`$1'" fi } # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$opt_dry_run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $MKDIR "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || \ func_fatal_error "cannot create temporary directory \`$my_tmpdir'" fi $ECHO "$my_tmpdir" } # func_quote_for_eval arg # Aesthetically quote ARG to be evaled later. # This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT # is double-quoted, suitable for a subsequent eval, whereas # FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters # which are still active within double quotes backslashified. func_quote_for_eval () { case $1 in *[\\\`\"\$]*) func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;; *) func_quote_for_eval_unquoted_result="$1" ;; esac case $func_quote_for_eval_unquoted_result in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and and variable # expansion for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\"" ;; *) func_quote_for_eval_result="$func_quote_for_eval_unquoted_result" esac } # 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 () { case $1 in *[\\\`\"]*) my_arg=`$ECHO "$1" | $SED \ -e "$double_quote_subst" -e "$sed_double_backslash"` ;; *) my_arg="$1" ;; esac case $my_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. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") my_arg="\"$my_arg\"" ;; esac func_quote_for_expand_result="$my_arg" } # func_show_eval cmd [fail_exp] # Unless opt_silent 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 () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$my_cmd" my_status=$? if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_show_eval_locale cmd [fail_exp] # Unless opt_silent 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 () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$lt_user_locale $my_cmd" my_status=$? eval "$lt_safe_locale" if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi 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 () { case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_version # Echo version message to standard output and exit. func_version () { $opt_debug $SED -n '/(C)/!b go :more /\./!{ N s/\n# / / b more } :go /^# '$PROGRAM' (GNU /,/# warranty; / { s/^# // s/^# *$// s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/ p }' < "$progpath" exit $? } # func_usage # Echo short help message to standard output and exit. func_usage () { $opt_debug $SED -n '/^# Usage:/,/^# *.*--help/ { s/^# // s/^# *$// s/\$progname/'$progname'/ p }' < "$progpath" echo $ECHO "run \`$progname --help | more' for full usage" exit $? } # func_help [NOEXIT] # Echo long help message to standard output and exit, # unless 'noexit' is passed as argument. func_help () { $opt_debug $SED -n '/^# Usage:/,/# Report bugs to/ { :print s/^# // s/^# *$// s*\$progname*'$progname'* s*\$host*'"$host"'* s*\$SHELL*'"$SHELL"'* s*\$LTCC*'"$LTCC"'* s*\$LTCFLAGS*'"$LTCFLAGS"'* s*\$LD*'"$LD"'* s/\$with_gnu_ld/'"$with_gnu_ld"'/ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/ p d } /^# .* home page:/b print /^# General help using/b print ' < "$progpath" ret=$? if test -z "$1"; then exit $ret fi } # func_missing_arg argname # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $opt_debug func_error "missing argument for $1." exit_cmd=exit } # 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. func_split_short_opt () { my_sed_short_opt='1s/^\(..\).*$/\1/;q' my_sed_short_rest='1s/^..\(.*\)$/\1/;q' func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"` func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"` } # func_split_short_opt may be replaced by extended shell implementation # func_split_long_opt longopt # Set func_split_long_opt_name and func_split_long_opt_arg shell # variables after splitting LONGOPT at the `=' sign. func_split_long_opt () { my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q' my_sed_long_arg='1s/^--[^=]*=//' func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"` func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"` } # func_split_long_opt may be replaced by extended shell implementation exit_cmd=: magic="%%%MAGIC variable%%%" magic_exe="%%%MAGIC EXE variable%%%" # Global variables. nonopt= preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" 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= # func_append var value # Append VALUE to the end of shell variable VAR. func_append () { eval "${1}=\$${1}\${2}" } # func_append may be replaced by extended shell implementation # func_append_quoted var value # Quote VALUE and append to the end of shell variable VAR, separated # by a space. func_append_quoted () { func_quote_for_eval "${2}" eval "${1}=\$${1}\\ \$func_quote_for_eval_result" } # func_append_quoted may be replaced by extended shell implementation # func_arith arithmetic-term... func_arith () { func_arith_result=`expr "${@}"` } # func_arith may be replaced by extended shell implementation # func_len string # STRING may not start with a hyphen. func_len () { func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len` } # func_len may be replaced by extended shell implementation # func_lo2o object func_lo2o () { func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"` } # func_lo2o may be replaced by extended shell implementation # func_xform libobj-or-source func_xform () { func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'` } # func_xform may be replaced by extended shell implementation # func_fatal_configuration arg... # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func_error ${1+"$@"} func_error "See the $PACKAGE documentation for more information." func_fatal_error "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 "$build_libtool_libs" = yes; then echo "enable shared libraries" else echo "disable shared libraries" fi if test "$build_old_libs" = yes; 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 } # 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 # Option defaults: opt_debug=: opt_dry_run=false opt_config=false opt_preserve_dup_deps=false opt_features=false opt_finish=false opt_help=false opt_help_all=false opt_silent=: opt_warning=: opt_verbose=: opt_silent=false opt_verbose=false # Parse options once, thoroughly. This comes as soon as possible in the # script to make things like `--version' happen as quickly as we can. { # this just eases exit handling while test $# -gt 0; do opt="$1" shift case $opt in --debug|-x) opt_debug='set -x' func_echo "enabling shell trace mode" $opt_debug ;; --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) opt_config=: func_config ;; --dlopen|-dlopen) optarg="$1" opt_dlopen="${opt_dlopen+$opt_dlopen }$optarg" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) opt_features=: func_features ;; --finish) opt_finish=: set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help_all=: opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_mode="$optarg" case $optarg in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_silent=false func_append preserve_args " $opt" ;; --no-warning|--no-warn) opt_warning=false func_append preserve_args " $opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $opt" ;; --silent|--quiet) opt_silent=: func_append preserve_args " $opt" opt_verbose=false ;; --verbose|-v) opt_verbose=: func_append preserve_args " $opt" opt_silent=false ;; --tag) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_tag="$optarg" func_append preserve_args " $opt $optarg" func_enable_tag "$optarg" shift ;; -\?|-h) func_usage ;; --help) func_help ;; --version) func_version ;; # Separate optargs to long options: --*=*) func_split_long_opt "$opt" set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-n*|-v*) func_split_short_opt "$opt" set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognized option \`$opt'" ;; *) set dummy "$opt" ${1+"$@"}; shift; break ;; esac done # Validate options: # save first non-option argument if test "$#" -gt 0; then nonopt="$opt" shift fi # preserve --debug test "$opt_debug" = : || func_append preserve_args " --debug" case $host in *cygwin* | *mingw* | *pw32* | *cegcc*) # 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 if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then func_fatal_configuration "not configured to build any kind of library" fi # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test "$opt_mode" != execute; 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." } # Bail if the options were screwed $exit_cmd $EXIT_FAILURE } ## ----------- ## ## Main. ## ## ----------- ## # 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 \ | $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # 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 "$lalib_p" = yes } # 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 () { func_lalib_p "$1" } # 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 () { $opt_debug save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$save_ifs eval cmd=\"$cmd\" 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 () { $opt_debug 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 () { $opt_debug 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 "$build_libtool_libs" = yes; then write_lobj=\'${2}\' else write_lobj=none fi if test "$build_old_libs" = yes; then write_oldobj=\'${3}\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </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 "$lt_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 () { $opt_debug # 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 () { $opt_debug 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 () { $opt_debug # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$lt_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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug $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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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 () { $opt_debug 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_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 () { $opt_debug 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_mode_compile arg... func_mode_compile () { $opt_debug # 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="$arg" arg_mode=normal ;; target ) libobj="$arg" 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 ;; -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 "$build_libtool_libs" != yes && \ func_fatal_configuration "can not 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 "$build_old_libs" = yes; 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 "$pic_mode" = no && test "$deplibs_check_method" != pass_all; 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 "$compiler_c_o" = no; 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 "$need_locks" = yes; 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 "$need_locks" = warn; 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 "$build_libtool_libs" = yes; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test "$pic_mode" != no; 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 "$need_locks" = warn && 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 "$suppress_opt" = yes; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test "$build_old_libs" = yes; then if test "$pic_mode" != yes; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test "$compiler_c_o" = yes; 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 "$need_locks" = warn && 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 "$need_locks" != no; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test "$opt_mode" = compile && 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 -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 () { $opt_debug # 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 test "X$opt_dry_run" = Xfalse; then 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" else # 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 fi } test "$opt_mode" = execute && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $opt_debug 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_silent && 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 "$opt_mode" = finish && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $opt_debug # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # 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=no 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=yes ;; -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$prev" = x-m && 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=yes if test "$isdir" = yes; 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 ;; 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 "$build_old_libs" = yes; 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=yes 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'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then func_warning "\`$lib' has not been installed in \`$libdir'" finalize=no fi done relink_command= func_source "$wrapper" outputname= if test "$fast_install" = no && test -n "$relink_command"; then $opt_dry_run || { if test "$finalize" = yes; 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_silent || { 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 "$opt_mode" = install && 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 () { $opt_debug my_outputname="$1" my_originator="$2" my_pic_p="${3-no}" my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; 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$TIMESTAMP) $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 con'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 /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; 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 . $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 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 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[]; LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = {\ { \"$my_originator\", (void *) 0 }," 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" ;; *) if test "X$my_pic_p" != Xno; then pic_flag_for_symtable=" $pic_flag" fi ;; 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"' # 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_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 () { $opt_debug 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 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 } }'` 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 () { $opt_debug 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 () { $opt_debug 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 which possess that section. Heuristic: eliminate # all those which 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_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 () { $opt_debug 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 () { $opt_debug 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_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 () { $opt_debug 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 () { $opt_debug f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" if test "$lock_old_archive_extraction" = yes; 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 "$lock_old_archive_extraction" = yes; 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 () { $opt_debug 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` darwin_base_archive=`basename "$darwin_archive"` 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 "$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 in which 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$TIMESTAMP) $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/ which is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options which 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$TIMESTAMP) $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 "$fast_install" = yes; 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 "$shlibpath_overrides_runpath" = yes && 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 < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include /* 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 platforms) ... */ #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 # ifndef _INTPTR_T_DEFINED # define _INTPTR_T_DEFINED # define intptr_t int # endif #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 ((void *) 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 <= 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]; int 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 = 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 (strcmp (str, pat) == 0) *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 int 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) { int orig_value_len = strlen (orig_value); int 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 #' */ int len = strlen (new_value); while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[len-1] = '\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 () { $opt_debug case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_mode_link arg... func_mode_link () { $opt_debug 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 # which 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 which 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= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=no 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 "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no break ;; -all-static | -static | -static-libtool-libs) case $arg in -all-static) if test "$build_libtool_libs" = yes && 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) if test "$preload" = no; then # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; 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 ;; 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 "$pic_object" = none && test "$non_pic_object" = none; 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 "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; 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 "$prev" = dlprefiles; 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 "$non_pic_object" != none; 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 "$pic_object" = none ; 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 ;; 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 "$prev" = rpath; 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$arg" = "X-export-symbols"; 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$arg" = "X-lc" || test "X$arg" = "X-lm"; 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$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && 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$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" 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 ;; -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. 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 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,*) 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 # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization -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*|-flto*|-fwhopr*|-fuse-linker-plugin) 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 ;; # 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 "$pic_object" = none && test "$non_pic_object" = none; 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 "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; 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 "$prev" = dlprefiles; 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 "$non_pic_object" != none; 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 "$pic_object" = none ; 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 "$prev" = dlfiles; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test "$prev" = dlprefiles; 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 "$export_dynamic" = yes && 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\" 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 "$linkmode" = lib; 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=no 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 "$linkmode,$pass" = "lib,link"; 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 "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; esac fi if test "$linkmode,$pass" = "lib,dlpreopen"; 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 "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then func_warning "\`-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test "$linkmode" = lib; 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 "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # 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 "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; 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=no func_dirname "$lib" "" "." ladir="$func_dirname_result" lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l *.ltframework) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test "$linkmode" = lib ; 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 "$pass" = conv && 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 "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; 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 "$pass" = link; 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 "$pass" = conv; 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=no 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=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then 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." else echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi ;; esac continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; 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=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'" fi # 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'` 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 "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test "$pass" = conv; 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 "$linkmode" != prog && test "$linkmode" != lib; 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 "$prefer_static_libs" = yes || test "$prefer_static_libs,$installed" = "built,no"; }; 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 "$pass" = dlopen; then if test -z "$libdir"; then func_fatal_error "cannot -dlopen a convenience library: \`$lib'" fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; 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 "X$installed" = Xyes; 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 "X$hardcode_automatic" = Xyes && 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 "$pass" = dlpreopen; then if test -z "$libdir" && test "$linkmode" = prog; 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 "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; 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 "$linkmode" = prog && test "$pass" != link; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes 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 test "$linkalldeplibs" = yes; 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 "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || 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 test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && 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 "$use_static_libs" = built && test "$installed" = yes; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test "$installed" = no; 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 "$shouldnotlink" = yes && test "$pass" = link; then echo if test "$linkmode" = prog; 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 "$linkmode" = lib && test "$hardcode_into_libs" = yes; 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*) 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 "$linkmode" = prog || test "$opt_mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; 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 can not # 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 "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; 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 "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; 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 "$linkmode" = prog; 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 "$hardcode_direct" != yes && test "$hardcode_minus_L" != yes && test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$opt_mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; 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 "$linkmode" = prog; 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 "$linkmode" = prog; 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 "$hardcode_direct" != unsupported; 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 "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; 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 can not 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 "$module" = yes; 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 "$build_old_libs" = no; 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 "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; 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 "$link_static" = no && 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 "$link_all_deplibs" != no; 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 "$pass" = link; then if test "$linkmode" = "prog"; 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 "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # 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= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_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*) ;; *) # 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 # 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 "$linkmode" = prog; then dlfiles="$newdlfiles" fi if test "$linkmode" = prog || test "$linkmode" = lib; then dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; 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 "$module" = no && \ func_fatal_help "libtool library \`$output' must begin with \`lib'" if test "$need_lib_prefix" != no; 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 "$deplibs_check_method" != pass_all; 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 "$dlself" != no && \ func_warning "\`-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test "$#" -gt 1 && \ func_warning "ignoring multiple \`-rpath's for a libtool library" install_libdir="$1" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; 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 # which has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|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" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current" ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; 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 "$loop" -ne 0; 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 "$loop" -ne 0; 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" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. 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 "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then func_warning "undefined symbols not allowed in $host shared libraries" build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi func_generate_dlsyms "$libname" "$libname" "yes" func_append libobjs " $symfileobj" test "X$libobjs" = "X " && libobjs= if test "$opt_mode" != relink; 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 "X$precious_files_regex" != "X"; 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 "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; 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 "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; 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 "$build_libtool_libs" = yes; 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 "$build_libtool_need_lc" = "yes"; 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 </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 "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; 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 "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; 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 "X$deplibs_check_method" = "Xnone"; 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 "$droppeddeps" = yes; then if test "$module" = yes; 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 "$build_old_libs" = no; 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 "$allow_undefined" = no; 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 "$build_old_libs" = no; 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 # 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 ;; *) 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 "$build_libtool_libs" = yes; then # Remove ${wl} instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$opt_mode" != relink && 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 "$opt_mode" != relink && 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 if test "x`$SED 1q $export_symbols`" != xEXPORTS; then # 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 fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || 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 "$try_normal_branch" = yes \ && { 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 "X$skipped_export" != "X:"; 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 "X$skipped_export" != "X:" && 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 "$compiler_needs_object" = yes && 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 "$thread_safe" = yes && 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 "$opt_mode" = relink; 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 "$module" = yes && 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 "X$skipped_export" != "X:" && 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 "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; 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 "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then output=${output_objdir}/${output_la}.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test "$compiler_needs_object" = yes; 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 "X$objlist" = X || 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 "$k" -eq 1 ; 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 if ${skipped_export-false}; then 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 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_silent || { 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 "$opt_mode" = relink; 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 if ${skipped_export-false}; then 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 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 "$module" = yes && 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="$save_ifs" eval cmd=\"$cmd\" $opt_silent || { 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 "$opt_mode" = relink; 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 "$opt_mode" = relink; 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 "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; 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= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` 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 "$build_libtool_libs" != yes && 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" ### testsuite: skip nested quoting test 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 if test "$build_libtool_libs" != yes; then 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 fi if test -n "$pic_flag" || test "$pic_mode" != default; 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" test "$preload" = yes \ && test "$dlopen_support" = unknown \ && test "$dlopen_self" = unknown \ && test "$dlopen_self_static" = unknown && \ 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 "$tagname" = CXX ; 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 ;; *) 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 "$build_old_libs" = yes; 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@" "no" # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=yes case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=no ;; *cygwin* | *mingw* ) if test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; *) if test "$need_relink" = no || test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; esac if test "$wrappers_required" = no; then # 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 fi 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 "$no_install" = yes; 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 if test "$hardcode_action" = relink; then # 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" else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # 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 if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save $symfileobj" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" if test "$preload" = yes && test -f "$symfileobj"; then func_append oldobjs " $symfileobj" fi fi addlibs="$old_convenience" fi 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 "$build_libtool_libs" = yes; 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 "X$oldobjs" = "X" ; 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 "$build_old_libs" = yes && 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 "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test "$installed" = yes; 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 "x$bindir" != x ; 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$TIMESTAMP) $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 can not 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 "$installed" = no && test "$need_relink" = yes; 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 } { test "$opt_mode" = link || test "$opt_mode" = relink; } && func_mode_link ${1+"$@"} # func_mode_uninstall arg... func_mode_uninstall () { $opt_debug RM="$nonopt" files= rmforce= 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=yes ;; -*) 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 "X$dir" = X.; then odir="$objdir" else odir="$dir/$objdir" fi func_basename "$file" name="$func_basename_result" test "$opt_mode" = uninstall && odir="$dir" # Remember odir for removal later, being careful to avoid duplicates if test "$opt_mode" = clean; 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 test "$rmforce" = yes; 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" 'test "$rmforce" = yes || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || 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 "$pic_object" != none; 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 "$non_pic_object" != none; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test "$opt_mode" = clean ; 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 "$fast_install" = yes && 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 } { test "$opt_mode" = uninstall || test "$opt_mode" = clean; } && func_mode_uninstall ${1+"$@"} 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 # in which 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: # vi:sw=2 libhdf4-4.2.10/HDF_ALT/bin/depcomp0000755000000000000000000003256112421456623013242 0ustar #! /bin/sh # depcomp - compile a program generating dependencies as side-effects # Copyright 1999, 2000 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # 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 . 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 # `libtool' can also be set to `yes' or `no'. if test -z "$depfile"; then base=`echo "$object" | sed -e 's,^.*/,,' -e 's,\.\([^.]*\)$,.P\1,'` dir=`echo "$object" | sed 's,/.*$,/,'` if test "$dir" = "$object"; then dir= fi # FIXME: should be _deps on DOS. depfile="$dir.deps/$base" fi tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # 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 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. "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## 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). ## - 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 -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ## 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. tr ' ' ' ' < "$tmpdepfile" | ## 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. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -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 -eq 0; then : else 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 ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ tr ' ' ' ' >> $depfile echo >> $depfile # The second pass generates a dummy entry for each header file. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> $depfile else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. 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. stripped=`echo "$object" | sed -e 's,^.*/,,' -e 's/\(.*\)\..*$/\1/'` tmpdepfile="$stripped.u" outname="$stripped.o" if test "$libtool" = yes; then "$@" -Wc,-M else "$@" -M fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi if test -f "$tmpdepfile"; then # Each line is of the form `foo.o: dependent.h'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed -e "s,^$outname:,$object :," < "$tmpdepfile" > "$depfile" sed -e "s,^$outname: \(.*\)$,\1:," < "$tmpdepfile" >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; icc) # Intel's C compiler understands `-MD -MF file'. However on # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c # ICC 7.0 will fill foo.d with something like # foo.o: sub/foo.c # foo.o: sub/foo.h # which is wrong. We want: # sub/foo.o: sub/foo.c # sub/foo.o: sub/foo.h # sub/foo.c: # sub/foo.h: # ICC 7.1 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using \ : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else 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" ;; 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. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1="$dir.libs/$base.lo.d" tmpdepfile2="$dir.libs/$base.d" "$@" -Wc,-MD else tmpdepfile1="$dir$base.o.d" tmpdepfile2="$dir$base.d" "$@" -MD fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi if test -f "$tmpdepfile1"; then tmpdepfile="$tmpdepfile1" else tmpdepfile="$tmpdepfile2" fi if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a space and a tab in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; #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 proprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test $1 != '--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:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" tr ' ' ' ' < "$tmpdepfile" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. 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 $1 != '--mode=compile'; do shift done shift fi # X makedepend shift cleared=no for arg in "$@"; do case $cleared in no) set ""; shift cleared=yes ;; esac 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. -*|$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" cat < "$tmpdepfile" > "$depfile" sed '1,2d' "$tmpdepfile" | tr ' ' ' ' | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. 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 proprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test $1 != '--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 '/^# [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 proprocessed file to stdout, regardless of -o, # because we must use -o when running libtool. "$@" || exit $? IFS=" " for arg do case "$arg" in "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::echo "`cygpath -u \\"\1\\"`":p' | sort | uniq > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile" echo " " >> "$depfile" . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 libhdf4-4.2.10/HDF_ALT/bin/release0000755000000000000000000001701212421456623013225 0ustar #!/bin/sh # # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF4. The full HDF4 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF4 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF4/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # Make a release of hdf4. # # Programmer: Robb Matzke # Creation date: on or before 1998-01-29. # # Modifications # Robb Matzke, 1999-07-16 # The SunOS 5.6 sed *must* have slashes as delimiters. I changed things like # `sed s+/CVS++' to `sed 's/\/CVS//' # # Albert Cheng, 1999-10-26 # Moved the MANIFEST checking to a separate command file so that # it can be invoked individually. # # Albert Cheng, 2004-08-14 # Added the --private option. # # James Laird, 2005-09-07 # Added the md5 method. # Function definitions # # Print Usage page USAGE() { cat << EOF Usage: $0 [--nocheck] [-d ] [-h] ... -d DIR The name of the directory where the releas(es) should be placed. By default, the directory is ./releases --nocheck Ignore errors in MANIFEST file. --private Make a private release with today's date in version information. The other command-line options are the names of the programs to use for compressing the resulting tar archive (if none are given then "tar md5" is assumed): tar -- use tar and don't do any compressing. compress -- use compress and append ".Z" to the output name. gzip -- use gzip with "-9" and append ".gz" to the output name. bzip2 -- use bzip2 with "-9" and append ".bz2" to the output name. md5 -- produce a md5 checksum in addition to the archive. Examples: $ release releases/hdf-4.2.4.tar releases/hdf-4.2.4.tar.md5 $ release gzip releases/hdf-4.2.4.tar.gz $ release -d /tmp tar compress gzip bzip2 md5 /tmp/hdf-4.2.4.tar /tmp/hdf-4.2.4.tar.Z /tmp/hdf-4.2.4.tar.gz /tmp/hdf-4.2.4.tar.bz2 /tmp/hdf-4.2.4.tar.md5 EOF } # This command must be run at the top level of the hdf4 source directory. # Verify this requirement. if [ ! \( -f configure -a -f bin/release \) ]; then echo "$0 must be run at the top level of the hdf4 source directory" exit 1 fi # Defaults DEST=releases VERS=`perl bin/h4vers` VERS_OLD= test "$VERS" || exit 1 verbose=yes check=yes release_date=`date +%F` today=`date +%Y%m%d` pmode='no' tmpdir="../#release_tmp.$$" # tmp work directory # artifacts from hdf5, not currently used for hdf4 #DOC_URL=http://svn.hdfgroup.uiuc.edu/hdf4doc/trunk #CPPLUS_RM_NAME=cpplus_RM # Restore previous Version information RESTORE_VERSION() { if [ X-${VERS_OLD} != X- ]; then echo restoring version information back to $VERS_OLD # configure/libtool to be considered after initial release script works # rm -f config/lt_vers.am # cp $tmpdir/lt_vers.am config/lt_vers.am bin/h4vers -s $VERS_OLD VERS_OLD= fi } # Command-line arguments while [ -n "$1" ]; do arg=$1 shift case "$arg" in -d) DEST=$1 shift ;; --nocheck) check=no ;; -h) USAGE exit 0 ;; --private) pmode=yes ;; -*) echo "Unknown switch: $arg" 1>&2 USAGE exit 1 ;; *) methods="$methods $arg" ;; esac done # Default methods are tar and md5 if [ "X$methods" = "X" ]; then methods="tar md5" fi # Create the temporay work directory. if mkdir $tmpdir; then echo "temporary work directory for release. "\ "Can be deleted after release completes." > $tmpdir/README else echo "Failed to mkdir tmpdir($tmpdir)" exit 1 fi # setup restoration in case of abort. trap RESTORE_VERSION 0 if [ X$pmode = Xyes ]; then VERS_OLD=$VERS # Copy old version of config/lt_vers.am, since it's hard to # "undo" changes to it. # configure - later # cp config/lt_vers.am $tmpdir # Set version information to m.n.r-of$today. # (h4vers does not correctly handle just m.n.r-$today.) VERS=`echo $VERS | sed -e s/-.*//`-of$today echo Private release of $VERS bin/h4vers -s $VERS fi # Store hdf4-$VERS ("hdf-4.2.4", e.g.) to a variable to avoid typos HDF4_VERS=hdf-$VERS test "$verbose" && echo "Releasing $HDF4_VERS to $DEST" 1>&2 if [ ! -d $DEST ]; then echo " Destination directory $DEST does not exist" 1>&2 exit 1 fi # Check the validity of the MANIFEST file. bin/chkmanifest || fail=yes if [ "X$fail" = "Xyes" ]; then if [ $check = yes ]; then exit 1 else echo "Continuing anyway..." fi fi # Create a manifest that contains only files for distribution. MANIFEST=$tmpdir/H4_MANIFEST grep '^\.' MANIFEST | grep -v _DO_NOT_DISTRIBUTE_ >$MANIFEST # Prepare the source tree for a release. ln -s `pwd` $tmpdir/$HDF4_VERS || exit 1 mv Makefile $tmpdir/Makefile.x 2>/dev/null #might fail # Save a backup copy of Makefile if exists. test -f Makefile && mv Makefile $tmpdir/Makefile.x cp -p Makefile.dist Makefile # Update README.txt and release_notes/RELEASE.txt with release information in # line 1. for f in README.txt release_notes/RELEASE.txt; do echo "HDF version $VERS released on $release_date" >$f.x sed -e 1d $f >>$f.x mv $f.x $f # Make sure new files are of the right access mode chmod 644 $f done # Create the tar file test "$verbose" && echo " Running tar..." 1>&2 ( \ cd $tmpdir; \ tar cf $HDF4_VERS.tar $HDF4_VERS/Makefile \ `sed 's/^\.\//hdf-'$VERS'\//' $MANIFEST` || exit 1 \ ) # Compress for comp in $methods; do case $comp in tar) cp -p $tmpdir/$HDF4_VERS.tar $DEST/$HDF4_VERS.tar ;; compress) test "$verbose" && echo " Running compress..." 1>&2 compress -c <$tmpdir/$HDF4_VERS.tar >$DEST/$HDF4_VERS.tar.Z ;; gzip) test "$verbose" && echo " Running gzip..." 1>&2 gzip -9 <$tmpdir/$HDF4_VERS.tar >$DEST/$HDF4_VERS.tar.gz ;; bzip2) test "$verbose" && echo " Running bzip2..." 1>&2 bzip2 -9 <$tmpdir/$HDF4_VERS.tar >$DEST/$HDF4_VERS.tar.bz2 ;; md5) test "$verbose" && echo " Creating checksum..." 1>&2 (cd $tmpdir; md5sum $HDF4_VERS.tar ) > $DEST/$HDF4_VERS.tar.md5 ;; # doc option from hdf5 - not supported for hdf4 # doc) # test "$verbose" && echo " Creating docs..." 1>&2 # # Check out docs from svn repo # (cd $tmpdir; svn co $DOC_URL > /dev/null) || exit 1 # # Create doxygen C++ RM # (cd c++/src && doxygen cpp_doc_config > /dev/null ) || exit 1 # # Replace version of C++ RM with just-created version # rm -rf $tmpdir/trunk/html/$CPPLUS_RM_NAME # mv c++/src/$CPPLUS_RM_NAME $tmpdir/trunk/html/$CPPLUS_RM_NAME # # Compress the docs and move them to the release area # mv $tmpdir/trunk $tmpdir/${HDF4_VERS}_docs # (cd $tmpdir && tar cf ${HDF4_VERS}_docs.tar ${HDF4_VERS}_docs) # mv $tmpdir/${HDF4_VERS}_docs.tar $DEST # ;; esac done # Copy the RELEASE.txt to the release area. cp release_notes/RELEASE.txt $DEST/$HDF4_VERS-RELEASE.txt # Restore previous Makefile if existed. rm -f Makefile test -f $tmpdir/Makefile.x && mv $tmpdir/Makefile.x Makefile # Restore OLD version information, then no need for trap. if [ X$pmode = Xyes ]; then RESTORE_VERSION trap 0 fi # Remove temporary things rm -rf $tmpdir exit 0 libhdf4-4.2.10/HDF_ALT/bin/mkinstalldirs0000755000000000000000000000370412421456623014470 0ustar #! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain errstatus=0 dirmode="" usage="\ Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..." # process command line arguments while test $# -gt 0 ; do case $1 in -h | --help | --h*) # -h for help echo "$usage" 1>&2 exit 0 ;; -m) # -m PERM arg shift test $# -eq 0 && { echo "$usage" 1>&2; exit 1; } dirmode=$1 shift ;; --) # stop option processing shift break ;; -*) # unknown option echo "$usage" 1>&2 exit 1 ;; *) # first non-opt arg break ;; esac done for file do if test -d "$file"; then shift else break fi done case $# in 0) exit 0 ;; esac case $dirmode in '') if mkdir -p -- . 2>/dev/null; then echo "mkdir -p -- $*" exec mkdir -p -- "$@" fi ;; *) if mkdir -m "$dirmode" -p -- . 2>/dev/null; then echo "mkdir -m $dirmode -p -- $*" exec mkdir -m "$dirmode" -p -- "$@" fi ;; esac for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case $pathcomp in -*) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr else if test ! -z "$dirmode"; then echo "chmod $dirmode $pathcomp" lasterr="" chmod "$dirmode" "$pathcomp" || lasterr=$? if test ! -z "$lasterr"; then errstatus=$lasterr fi fi fi fi pathcomp="$pathcomp/" done done exit $errstatus # Local Variables: # mode: shell-script # sh-indentation: 2 # End: # mkinstalldirs ends here libhdf4-4.2.10/HDF_ALT/bin/compile0000755000000000000000000000532612421456623013242 0ustar #! /bin/sh # Wrapper for compilers which do not understand `-c -o'. # Copyright 1999, 2000 Free Software Foundation, Inc. # Written by Tom Tromey . # # 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # 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. # Usage: # compile PROGRAM [ARGS]... # `-o FOO.o' is removed from the args passed to the actual compile. prog=$1 shift ofile= cfile= args= while test $# -gt 0; do case "$1" in -o) # configure might choose to run compile as `compile cc -o foo foo.c'. # So we do something ugly here. ofile=$2 shift case "$ofile" in *.o | *.obj) ;; *) args="$args -o $ofile" ofile= ;; esac ;; *.c) cfile=$1 args="$args $1" ;; *) args="$args $1" ;; esac 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 "$prog" $args fi # Name of file we expect compiler to create. cofile=`echo $cfile | sed -e 's|^.*/||' -e '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. "$prog" $args status=$? if test -f "$cofile"; then mv "$cofile" "$ofile" fi rmdir $lockdir exit $status libhdf4-4.2.10/HDF_ALT/bin/newer0000755000000000000000000000254312421456623012730 0ustar #!/bin/sh # # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF5. The full HDF5 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF5 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # Compare the modification time of file argument 1 against other file arguments. # Return true (0) if argument 1 is newer than all others, otherwise return # false (1). If any of the argument is not a file, return false (1). # # Programmer: Albert Cheng # Created Date: 2005/07/06 # Modification: # Albert Cheng 2005/8/30 # Changed from two arguments to mulitple arguments. if test $# -lt 2; then exit 1 fi if test ! -f $1; then exit 1 fi f1=$1 shift for f in $*; do if test ! -f $f; then exit 1 fi if test X = X`find $f1 -newer $f -print`; then exit 1 fi done # passed all tests. Must be a file newer than all others. exit 0 libhdf4-4.2.10/HDF_ALT/bin/locate_sw0000755000000000000000000001434112421456623013567 0ustar #!/bin/sh # Try to locate the software as named in argument. # This is a sequential search of all possible locations of the software. # Usage: locate_sw # It prints a string showing the paths leading to the include, lib and bin # directory of the software, separated by colons. E.g., if the software is # located in /usr/sdt/*, it prints # /usr/sdt/include:/usr/sdt/lib:/usr/sdt/bin # Any component that is not found will be returned as an empty string. E.g., # if somehow the header files of the software are not found, it prints # :/usr/sdt/lib;/usr/sdt/bin # Function definitions USAGE() { echo "Usage: locate_sw " echo " where can be hdf4, hdf5, zlib" echo " It prints the paths leading the header files (include)," echo " library (lib), and tools (bin). E.g.," echo " /usr/sdt/include:/usr/sdt/lib:/usr/sdt/bin" echo " Any component that is not found will be returned as an empty string. E.g.," echo " if somehow the header files of the software are not found, it prints" echo " :/usr/sdt/lib;/usr/sdt/bin" echo "Exit code: 0 if software located; otherwise non-zero" } # locate hdf4 software locate_hdf4() { # this default is the best guess of locating hdf4 software swpaths_defaults="/usr/ncsa /usr/sdt /usr/local" swpaths= case "$OSname" in SunOS) case "$OSrelease" in 5.7) swpaths="/afs/ncsa/packages/hdf/SunOS_5.7" ;; *) # use default ;; esac ;; HP-UX) case "$OSrelease" in B.11.00) swpaths="/afs/ncsa/packages/hdf/HPUX_11.00" ;; *) # use default ;; esac ;; IRIX) swpaths="/afs/ncsa/packages/hdf/IRIX_6.5" ;; IRIX64) case "$CC" in cc|"") #default cc abi=`cc -show_defaults 2>&1 | grep 'default abi'` case $abi in *-n32) swpaths="/afs/ncsa/packages/hdf/IRIX64-n32_6.5" ;; *-64) swpaths="/afs/ncsa/packages/hdf/IRIX64_6.5" ;; *) swpaths="/afs/ncsa/packages/hdf/IRIX64_6.5" ;; esac # $abi ;; *-n32) swpaths="/afs/ncsa/packages/hdf/IRIX64-n32_6.5" ;; *) swpaths="/afs/ncsa/packages/hdf/IRIX64_6.5" ;; esac ;; Linux) swpaths="/afs/ncsa/packages/hdf/Linux" ;; OSF1) swpaths="/afs/ncsa/packages/hdf/OSF1_V4.0" ;; *) # just use the defaults ;; esac # Check if the hdf4 software is actually available. # Accept the directory only if needed .h, .a and tools are found # in the same place. That way, they are more likely to be of the # same version. # swpaths="$swpaths $swpaths_defaults" for sw in $swpaths; do if [ -r $sw/include/hdf.h -a -r $sw/lib/libdf.a -a -r $sw/bin/hdp ]; then SW_inc=$sw/include SW_lib=$sw/lib SW_bin=$sw/bin SW_Location=$sw break fi done } # locate hdf5 software locate_hdf5() { # this default is the best guess of locating hdf5 software swpaths_defaults="/usr/ncsa /usr/sdt /usr/local" swpaths= case "$OSname" in SunOS) case "$OSrelease" in 5.7) swpaths="/afs/ncsa/packages/hdf5/SunOS_5.7" ;; *) # use default ;; esac ;; HP-UX) case "$OSrelease" in B.11.00) swpaths="/afs/ncsa/packages/hdf5/HPUX_11.00" ;; *) # use default ;; esac ;; IRIX) swpaths="/afs/ncsa/packages/hdf5/IRIX_6.5" ;; IRIX64) case "$CC" in cc|"") #default cc abi=`cc -show_defaults 2>&1 | grep 'default abi'` case $abi in *-n32) swpaths="/afs/ncsa/packages/hdf5/IRIX64-n32_6.5" ;; *-64) #swpaths="/afs/ncsa/packages/hdf5/IRIX64_6.5" swpaths="/afs/ncsa/packages/hdf5/5-1.4.3-irix64" ;; *) #swpaths="/afs/ncsa/packages/hdf5/IRIX64_6.5" swpaths="/afs/ncsa/packages/hdf5/5-1.4.3-irix64" ;; esac # $abi ;; *-n32) swpaths="/afs/ncsa/packages/hdf5/IRIX64-n32_6.5" ;; *) #swpaths="/afs/ncsa/packages/hdf5/IRIX64_6.5" swpaths="/afs/ncsa/packages/hdf5/5-1.4.3-irix64" ;; esac ;; Linux) swpaths="/afs/ncsa/packages/hdf5/Linux" ;; FreeBSD) swpaths="/afs/ncsa/packages/hdf5/FreeBSD" ;; OSF1) swpaths="/afs/ncsa/packages/hdf5/OSF1_V4.0" ;; *) # just use the defaults ;; esac # Check if the hdf5 software is actually available. # Accept the directory only if needed .h, .a and tools are found # in the same place. That way, they are more likely to be of the # same version. # swpaths="$swpaths $swpaths_defaults" for sw in $swpaths; do if [ -r $sw/include/hdf5.h -a -r $sw/lib/libhdf5.a -a -r $sw/bin/h5dump ]; then SW_inc=$sw/include SW_lib=$sw/lib SW_bin=$sw/bin SW_Location=$sw break fi done } # locate zlib software locate_zlib() { # this default is the best guess of locating zlib software swpaths_defaults="/usr /usr/local /usr/ncsa /usr/sdt" swpaths= # Check if the zlib software is actually available. # Accept the directory only if needed .h, .a and tools are found # in the same place. That way, they are more likely to be of the # same version. # Don't know something specific to check the bin directory. Maybe gzip? # Just make sure it exists. # swpaths="$swpaths $swpaths_defaults" for sw in $swpaths; do if [ -r $sw/include/zlib.h -a \ \( -r $sw/lib/libz.a -o -r $sw/lib/libz.so \) -a -d $cw/bin ]; then SW_inc=$sw/include SW_lib=$sw/lib SW_bin=$sw/bin SW_Location=$sw break fi done # if none found, try HDF4 software which contains a version of zlib. if [ x-$SW_Location = x- ]; then locate_hdf4 fi } # Main # # Options # if [ $# -lt 1 ]; then USAGE exit 1 fi if [ "$1" = -h ]; then USAGE exit 0 fi SW=$1 shift # locations of the software seeked. SW_inc= # include place SW_lib= # library place SW_bin= # binary place SW_Location= # parent directory of all the above OSname=`uname -s` OSrelease=`uname -r` case $SW in hdf4|hdf) locate_hdf4 ;; hdf5) locate_hdf5 ;; zlib) locate_zlib ;; *) echo "unknown software ($SW)" USAGE exit 1 ;; esac # show the results located, separated by commas. if [ -n "${SW_inc}" -a -n "${SW_lib}" -a -n "${SW_bin}" ]; then echo ${SW_inc},${SW_lib},${SW_bin} exit 0 else exit 1 fi libhdf4-4.2.10/HDF_ALT/bin/runtest0000755000000000000000000005642112421456623013320 0ustar #! /bin/sh # # Copyright by The HDF Group. # Copyright by the Board of Trustees of the University of Illinois. # All rights reserved. # # This file is part of HDF. The full HDF copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING. COPYING can be found at the root # of the source code distribution tree. If you do not have # access to the file, you may request a copy from help@hdfgroup.org. # # run the hdf4/bin/snapshot # Usage: # runtest run the test for the local host # runtest run the test for # runtest -all run the test for all predefined hosts # # Assumptions in knowing where to find the right scripts to execute. # 1. assume we are at the top level of the hdf4 source. So, bin/* are # where the script files are. # 2. after the cvs update is completed, we can go to the snapshot area # hdf4 source tree and use the bin/* there. # 3. Cannot use the snapshot area scripts from the beginning because # for one, the current directory is renamed as previous right after # a snapshot release; and for another, some scripts may be changed # by the cvs update while it is being used. # local setup DEBUGMODE="" test -n "$DEBUGMODE" && echo "******** DEBUGMODE is $DEBUGMODE ************" WHEREAMI='pwd' CMD= # the name of this program PROGNAME="bin/runtest $DEBUGMODE" # Setup HOSTNAME=`hostname | cut -f1 -d.` # no domain part TODAY=`date +%m%d%a` WEEKDAY=`date +%a` H4VER= # default to current CVS version H4VERSTR= # default to current CVS version # Default to do checkout (only once) and test, no release. # Will run test only if there is significant differences from previous version. # If srcdir is not used, don't launched multiple tests SNAPSHOT="${DEBUGMODE:+echo }bin/snapshot" SRCDIR="srcdir" # Default standard Snaptest commands SNAPCMD="$SRCDIR test clean" # Default Standard snaptest command options STANDARD_OPT="" ENABLE_PARALLEL="--enable-parallel" CONFIGNAME=$HOSTNAME # Name used in the SNAPTESTCFG file # test host defaults as local host. TESTHOST="" ################################# # Function definitions ################################# # Print messages to stdout # Use this to show output heading to stdout PRINT() { echo "$*" } # Show seconds since midnight. # This is used to calculate seconds elapsed SecOfDay() { set `date '+%H %M %S'` t_sec=`expr $1 \* 3600 + $2 \* 60 + $3` echo $t_sec } # Calculated the elapsed time (in seconds) between the first # and second time. If second time is smaller than the first, # we assume the clock has passed midnight and calculate appropriately. ElapsedTime() { if [ $2 -lt $1 ]; then t_sec=`expr 3600 \* 24 - $1 + $2` else t_sec=`expr $2 - $1` fi echo `expr $t_sec / 60`m `expr $t_sec % 60`s } # Report errors # $1--an error message to be printed REPORT_ERR() { ERRMSG=$1 # print it with a banner shifted right a bit PRINT " *************************************" PRINT " `date`" PRINT " $ERRMSG" PRINT " *************************************" # report it in the FAILED-LOG file too PRINT "$ERRMSG" >> $FAILEDLOG } # # Report results of the last test done REPORT_RESULT() { if [ $retcode -eq 0 ]; then if [ $skiptest = yes ]; then PRINT "SKIPPED ${HOSTNAME}: $TEST_TYPE" | tee -a $SKIPPEDLOG else PRINT "PASSED ${HOSTNAME}: $TEST_TYPE" | tee -a $PASSEDLOG fi else # test failed. REPORT_ERR "****FAILED ${HOSTNAME}: $TEST_TYPE****" fi } # Print a blank line PRINT_BLANK() { PRINT } # Print test trailer PRINT_TEST_TRAILER() { PRINT "*** finished $TEST_TYPE tests for $HOSTNAME ***" date; EndTime=`SecOfDay` PRINT Total time = `ElapsedTime $StartTime $EndTime` PRINT_BLANK } # Print trailer summary PRINT_TRAILER() { PRINT "*** finished tests in $HOSTNAME ***" date; TotalEndTime=`SecOfDay` PRINT "${HOSTNAME}: Ran $n_test $runtest_type, Grand total test time = " \ "`ElapsedTime $TotalStartTime $TotalEndTime`" | tee -a $TIMELOG PRINT_BLANK } # Figure out which remote command to use to reach a host. # Try ssh first, then rsh since fewer machines support rsh exec. # $1--hostname to reach. CHECK_RSH() { # Figure out how to use ping command in this host. # Some hosts use "ping host count", some use "ping -c count host". # Test "ping -c 3 -w 5" since it has timeout feature. # Test "ping -c ..." style before "ping host 3" because some machines # that recognize -c treat 'ping localhost 3' as to ping host '3'. if [ -z "$PING" ]; then if ping -c 3 -w 5 localhost >/dev/null 2>&1; then PING='ping -c 3 -w 5' PINGCOUNT= elif ping -c 3 localhost >/dev/null 2>&1; then PING='ping -c 3' PINGCOUNT= elif ping localhost 3 >/dev/null 2>&1; then PING=ping PINGCOUNT=3 else # don't know how to use ping. PING=no_ping PINGCOUNT= fi fi # host=$1 # Try remote command with host if it responds to ping. # Still try it if we don't know how to do ping. if [ no_ping = "$PING" ] || $PING $host $PINGCOUNT >/dev/null 2>&1; then if ssh $host -n hostname >/dev/null 2>&1; then RSH=ssh elif rsh $host -n hostname >/dev/null 2>&1; then RSH=rsh else PRINT cannot remote command with $host RSH="NoRemoteCommand" fi else RSH="NotReachable" fi } # Wait for a file for at most number of minutes # $1--the file # $2--number of minutes # WAIT_STATUS set to: # -1 if errors encountered # 0 if file found within time limit # 1 if file not found within time limit WAITFOR() { wait_file=$1 nminutes=$2 if [ -z "$wait_file" -o ! "$nminutes" -ge 0 ] then PRINT "errors in argument of WAITFOR(): wait_file($1) or nminutes($2)" WAIT_STATUS=-1 return fi while [ ! -f $wait_file ]; do if [ $nminutes -gt 0 ]; then PRINT "Wait For $wait_file to appear" sleep 60 #sleep 1 minute else WAIT_STATUS=1 return fi nminutes=`expr $nminutes - 1` done WAIT_STATUS=0 return } # Wait till a file disappears for at most number of minutes. # Useful to wait till a lock is removed by another process. # $1--the file # $2--number of minutes # WAIT_STATUS set to: # -1 if errors encountered # 0 if file disappears within time limit # 1 if file has not disappeared within time limit WAITTILL() { wait_file=$1 nminutes=$2 if [ -z "$wait_file" -o ! "$nminutes" -ge 0 ] then PRINT "errors in argument of WAITTILL(): wait_file($1) or nminutes($2)" WAIT_STATUS=-1 return fi while [ -f $wait_file ]; do if [ $nminutes -gt 0 ]; then PRINT "Wait till $wait_file has disappeared" sleep 60 #sleep 1 minute else WAIT_STATUS=1 return fi nminutes=`expr $nminutes - 1` done WAIT_STATUS=0 return } # Run one snapshot test # $*--Types of test being run RUNSNAPTEST() { SNAPCMD_OPT="$STANDARD_OPT" # snapshot test option SRCDIRNAME="" # restore CC, PATH in case they were changed in the last test. CC="$CC_SAVED" PATH=$PATH_SAVED export PATH # DEC OSF1 needs to export PATH explicitly TEST_TYPE=$* retcode=0 skiptest=no date PRINT "*** starting $TEST_TYPE tests in $HOSTNAME ***" PRINT "Uname -a: `uname -a`" # Parse the test type and set options accordingly. # See comments of SNAPTEST_CONFIG_PARSE(). while [ $# -gt 0 ]; do case $1 in -n32) # want -n32 option SRCDIRNAME=${SRCDIRNAME}-n32 CC="cc -n32" export CC ;; parallel) # want parallel test SNAPCMD_OPT="$SNAPCMD_OPT $ENABLE_PARALLEL" SRCDIRNAME=${SRCDIRNAME}-pp ;; standard) # standard test ;; --*) # option for configure SNAPCMD_OPT="$SNAPCMD_OPT $1" ;; op-configure) # option for configure SNAPCMD_OPT="$SNAPCMD_OPT $1 $2" shift ;; op-snapshot) # option for snapshot shift SNAPCMD_OPT="$SNAPCMD_OPT $1" ;; setenv) # set environment variable shift eval $1="$2" export $1 shift ;; setenvN) # set environment variable with $1 values # e.g., setenvN 3 x a b c is same as setenv x="a b c". # a kludge now--the extra single quotes are needed # else eval complains. shift envN=$1 shift envname=$1 envalue= while test $envN -gt 0; do shift envalue="$envalue $1" envN=`expr $envN - 1` done eval $envname="'$envalue'" export $envname ;; skip) # skip this test skiptest=yes ;; deploy) # deploy the built binary. shift SNAPCMD_OPT="$SNAPCMD_OPT deploy $1" ;; deploydir) # default directory for deployment. shift SNAPCMD_OPT="$SNAPCMD_OPT deploydir $1" ;; *) # unknown test PRINT "$0: unknown type of test ($1)" retcode=1 ;; esac shift done if [ $retcode -ne 0 -o $skiptest = yes ]; then errcode=$retcode return $retcode fi # Track down the zlib software ans=`$SNAPYARD/current/bin/locate_sw zlib` if [ $? = 0 ]; then Z_INC=`echo $ans | cut -f1 -d,` Z_LIB=`echo $ans | cut -f2 -d,` SNAPCMD_OPT="$SNAPCMD_OPT zlib $Z_INC,$Z_LIB" else # cannot locate zlib software. # continue the test, maybe configure can find it. : fi if [ -n "${SRCDIRNAME}" ]; then SNAPCMD_OPT="$SNAPCMD_OPT srcdirname ${SRCDIRNAME}" fi # Setup log file name to save test output THIS_MINUTE=`date +%H%M` LOGFILE=${LOGBASENAME}${SRCDIRNAME}_${TODAY}_${THIS_MINUTE} PRINT "Running snapshot with output saved in" PRINT " $LOGFILE" (date; PRINT Hostname=$HOSTNAME) >> $LOGFILE ( cd $SNAPYARD/current $SNAPSHOT $SNAPCMD $SNAPCMD_OPT ) >> $LOGFILE 2>&1 retcode=$? [ $retcode -ne 0 ] && errcode=$retcode date >> $LOGFILE if [ $retcode -ne 0 ]; then # Dump the first 10 lines and the last 30 lines of the LOGFILE. ( ntail=30 echo ========================= echo "Dumping logfile of ${HOSTNAME}: $TEST_TYPE" echo "Last $ntail lines of $LOGFILE" echo ========================= tail -$ntail $LOGFILE echo ========================= echo Dumping done echo ========================= echo "" ) >> $FAILEDDETAIL fi } TIMELIMIT_PARSE() { # Function returns timeparam for timekeeper via standard out - # any debug statements should be 'echo "Debug string" >&2' or timekeeper # will declare timeparam to be non-numeric and ignore it. while read x y ; do # Scan for entry for this weekday. xd=`echo $x | cut -f1 -d/` if [ "$xd" = ${WEEKDAY} ]; then # strip away the weekday/ part. timeparam=`echo $x | cut -f2 -d/` break fi case "$x" in '' | '#'*) # blank or comment lines. Continue. ;; ???/*) # Ignore any entry not of this weekday. ;; *) timeparam="$x" ;; esac done echo $timeparam return } # configuration parsing. # Taking configuration from input. # This should be invoke with configure file as stdin. # Syntax of the configure file: # All lines started with the # are comment lines and are ignored. # Blank lines are ignored too. # Each config line starts with a "Scope" followed by test types. # # Scope can be: # standard ... # what the standard test types are. # : Do for # all: Do for all hosts. # /... Use this scope if the matches. # can be {Mon,Tue,Wed,Thu,Fri,Sat,Sun} # If no : input for a , the standard test is used. # # Test types: # standard tests defined in standard scope. # -n32 -n32 mode. Apply to 64/32 bit OS such as IRIX64. # parallel parallel mode. # op-configure missing" errcode=1 cmd="help" break fi cmddeploy="deploy" DEPLOYDIRNAME="$1" ;; deploydir) # default directory for deployment. shift if [ $# -lt 1 ]; then echo "deploydir missing" errcode=1 cmd="help" break fi deploydir="$1" ;; test) cmdtest="test" cmd="" ;; setenv) # set environment variable shift eval $1="$2" export $1 shift ;; setenvN) # set environment variable with $1 values # e.g., setenvN 3 x a b c is same as setenv x="a b c". # a kludge now--the extra single quotes are needed # else eval complains. shift envN=$1 shift envname=$1 envalue= while test $envN -gt 0; do shift envalue="$envalue $1" envN=`expr $envN - 1` done eval $envname="'$envalue'" export $envname ;; srcdir) #use srcdir option for test srcdir="yes" ;; srcdirname) shift if [ $# -lt 1 ]; then echo "srcdirname missing" errcode=1 cmd="help" break fi SRCDIRNAME="$1" ;; release) cmdrel="release" cmd="" ;; clean | distclean) cmdclean="$1" cmd="" ;; help) cmd="help" break ;; echo) set -x break ;; zlib) shift if [ $# -lt 1 ]; then echo "ZLIB information missing" errcode=1 cmd="help" break fi ZLIB="$1" ;; archive) shift if [ $# -lt 1 ]; then echo "Archive pathname missing" errcode=1 cmd="help" break fi ARCHIVES="$1" ;; --*) OP_CONFIGURE="$OP_CONFIGURE $1" ;; op-configure) shift if [ $# -lt 1 ]; then echo "op-configure option missing" errcode=1 cmd="help" break fi OP_CONFIGURE="$OP_CONFIGURE $1" ;; *) echo "Unkown option $1" errcode=1 cmd="help" break ;; esac shift done # Dump environment variables after option parsing echo ===Dumping environment variables after option parsing === printenv | sort echo ===Done Dumping environment variables after option parsing === if [ "$cmd" = help ]; then set - cat <] [deploydir ] [zlib ] [archive ] [srcdirname ] [op-configure